diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw1.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw1.nb index 78f75b1..39ccfcf 100644 --- a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw1.nb @@ -3,42 +3,4785 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 399390, 9355] -NotebookOptionsPosition[ 375168, 8989] -NotebookOutlinePosition[ 375597, 9006] -CellTagsIndexPosition[ 375554, 9003] +NotebookDataLength[ 752707, 17313] +NotebookOptionsPosition[ 712061, 16663] +NotebookOutlinePosition[ 712526, 16682] +CellTagsIndexPosition[ 712483, 16679] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.991849227197853*^9},ExpressionUUID->"c5bb4ac7-6666-c043-9d96-\ -2dda1d801f63"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849227899128*^9, - 3.9918492279041367`*^9}},ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-\ -14a272e65d1f"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "4.2"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993804130253289*^9, 3.9938041708483353`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"f9d1f11f-5673-4f0f-be9e-fc752864a0ba"], + +Cell[BoxData["4.2`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99380408955241*^9, {3.993804138192917*^9, + 3.993804174131279*^9}, 3.993848807080508*^9, 3.993850005486072*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"754d35a3-d25a-42ac-bdc0-33df5cf6966a"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993849584853736*^9, 3.993849587284864*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"a84bdf18-650d-4cfc-ba31-a23985e3ad58"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ -fc37192f9bb8"], + 3.9913196497381973`*^9, 3.993804089814312*^9, {3.993804138273077*^9, + 3.993804174168432*^9}, 3.993848807152666*^9, 3.9938500055594893`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"82ed9bb8-8ec1-429d-82bf-199502d97e1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "154"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993803793560568*^9, 3.9938037958215322`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"170a0f72-c8dd-4d24-b6fe-e77d2401dc6c"], + +Cell[BoxData["154"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993804089831574*^9, {3.993804138291234*^9, + 3.993804174184713*^9}, 3.993848807170314*^9, 3.9938500055689907`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"9722c374-49ef-4ef0-b2be-64784af7b61d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"27a04430-3710-42cf-9992-fdcc62d855ee"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993804089848836*^9, {3.993804138308714*^9, + 3.9938041741991873`*^9}, 3.993848807187145*^9, 3.993850005578903*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"296c7339-4060-4f9b-9470-492c0fe9167f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"5b43c4d9-0384-4bdf-9191-3dcc0d3d0594"], + +Cell[BoxData["0.5457500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993804089866067*^9, {3.993804138325652*^9, + 3.993804174213254*^9}, 3.993848807191246*^9, 3.993850005588479*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"3e1a148c-90d9-4c08-9ccc-6f02bad28dec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"6bbc99da-fc75-409c-b9a4-a123fa252ba5"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9938040898834*^9, {3.993804138342436*^9, + 3.993804174228182*^9}, 3.9938488072167788`*^9, 3.993850005597913*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"2a02118d-742b-4240-891c-38e89672e966"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"2950791b-8a1b-43e7-8602-5195705fced2"], + +Cell[BoxData["6.21772575671982`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.99380408990067*^9, {3.9938041383460903`*^9, + 3.9938041742424393`*^9}, 3.993848807233614*^9, 3.9938500056074*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"694999ad-0739-4d25-85e6-2d3d61d0dd0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"a59bec7a-0904-4666-8595-015f382a1431"], + +Cell[BoxData["5.12024575643284`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993804089917811*^9, {3.993804138377798*^9, + 3.993804174256633*^9}, 3.993848807250407*^9, 3.993850005617199*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"fc92eae3-b172-4557-bc78-038b26bda308"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "1.0205"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993803860237813*^9, 3.993803866623828*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"736727e8-5f1b-4d3d-b642-f3db243f5957"], + +Cell[BoxData["1.0205`"], "Output", + CellChangeTimes->{ + 3.993804089951392*^9, {3.993804138395643*^9, 3.993804174270754*^9}, + 3.993848807267117*^9, 3.993850005626883*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"aca98e9c-7a90-4c16-8017-ce1720b423d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4896"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.99380387128193*^9, 3.9938038777202883`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"aa67c684-f4c1-4a54-9a91-a809a1b912e8"], + +Cell[BoxData["0.4896`"], "Output", + CellChangeTimes->{ + 3.9938040899683237`*^9, {3.993804138413007*^9, 3.993804174284833*^9}, + 3.993848807283663*^9, 3.993850005637364*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"cfed4126-5da6-4b0e-bc4a-5df2d78e71aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"3d35279e-eba4-4448-a389-d5398fff7f94"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993804090003015*^9, {3.993804138429922*^9, + 3.993804174299185*^9}, 3.993848807299727*^9, 3.993850005648188*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"c08573e4-7d99-4791-8957-e8dd7feac8cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"742e7ecc-a558-4afc-9484-bcc3763cead9"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993804090019147*^9, {3.993804138446356*^9, + 3.993804174313979*^9}, 3.993848807315777*^9, 3.9938500056578093`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8291095b-f003-43de-a264-8620937d1fb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"c5913af8-604b-4bf4-8c99-1d69ec9a8056"], + +Cell[BoxData["2.622074662477555`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.993804090035692*^9, {3.9938041384628077`*^9, + 3.9938041743173933`*^9}, 3.9938488073318787`*^9, 3.9938500056682796`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"30d789eb-1265-4619-a23e-579ed3727a6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"b25797fb-2fbc-47b4-b599-fe4a89643c3d"], + +Cell[BoxData["1.560486547241578`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993804090054099*^9, {3.993804138479048*^9, + 3.9938041743344707`*^9}, 3.99384880734788*^9, 3.993850005678232*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"89a97b86-fd6b-4d5e-aee9-c8ae5d02a0f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"e0557911-8f71-4392-a1ea-cea2fd451671"], + +Cell[BoxData["0.2903701468853932`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.993804090071563*^9, {3.993804138496574*^9, + 3.99380417434737*^9}, 3.993848807363336*^9, 3.99385000568876*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"96c8501b-bee6-49cc-ba0c-958bebbb4b88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"7f7a86c0-3e6d-4c73-bdd0-5dcc2c9aa7ab"], + +Cell[BoxData[ + RowBox[{"-", "0.06800962519581188`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9938040900903397`*^9, {3.993804138513081*^9, + 3.993804174360331*^9}, 3.9938488073821497`*^9, 3.993850005699942*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"26700cad-8612-4f65-9125-fdc6a856e7cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"48aaf736-6fb2-4e34-b5f7-5c88327e5e72"], + +Cell[BoxData[ + RowBox[{"-", "0.40916894338639737`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9938040901078167`*^9, {3.993804138530313*^9, + 3.993804174375409*^9}, 3.9938488073997*^9, 3.993850005712296*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"e35318a4-6a93-42db-bbc4-01c2ac49bafe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"cc95d4dc-b05c-4204-b959-ccf498b86159"], + +Cell[BoxData["0.6026750051187908`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9938040901250677`*^9, {3.993804138546773*^9, + 3.993804174388777*^9}, 3.99384880741957*^9, 3.9938500057221823`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"ceb7365f-e7e2-4347-a682-549c32b428c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"394997d9-d5c4-4015-8e00-ea760891c6dd"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993804090141823*^9, {3.9938041385623407`*^9, + 3.993804174402438*^9}, 3.993848807437189*^9, 3.9938500057381487`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"2c63d68d-76e2-44c7-b48f-ef6c45d7c6a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"3596991d-7377-4947-b87c-4cf4b5049e20"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.993804090158958*^9, {3.993804138578629*^9, + 3.99380417441667*^9}, 3.9938488074549294`*^9, 3.993850005750002*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"0c913619-d795-45e2-8ed8-26ef918460e5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"142818a8-8e46-41da-9c4f-a45d40cfe565"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993804090177505*^9, {3.993804138595006*^9, + 3.993804174430525*^9}, 3.9938488074728813`*^9, 3.993850005760837*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"82187224-8e35-4eb3-b62c-d0a60b2078f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"dc86d0bf-1d34-4e0c-85e7-ef82fca503da"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993804090194539*^9, {3.993804138611753*^9, + 3.993804174445389*^9}, 3.993848807490819*^9, 3.99385000577157*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"134b1e84-ca18-4113-a512-deb3ea8b3c52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"956be282-9d43-40d9-9de4-cb179b0c5142"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9938040902126007`*^9, {3.99380413862824*^9, + 3.9938041744613132`*^9}, 3.993848807508507*^9, 3.993850005782797*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"f03c57e8-7a2a-4739-a045-0cb718485ca1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", " ", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.993803911062066*^9, 3.993803911474206*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"c5acc4cb-912d-4b87-9f6c-3f2cd1a709ee"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993804090230994*^9, {3.9938041386443443`*^9, + 3.993804174475325*^9}, 3.993848807527059*^9, 3.993850005793333*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"cf46eb52-2e14-4205-8dae-854ab70d03d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993849597587175*^9, 3.993849597648221*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"8c104d1e-0e6c-49f7-8653-e9112aa8d5be"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993804090250367*^9, {3.993804138660377*^9, + 3.993804174489229*^9}, 3.9938488075448914`*^9, 3.993850005804199*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"033a2908-a5d0-4065-9ec4-dfb16d4967d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"d8384f44-f4e5-4304-862c-3d3abd5a4e88"], + +Cell[BoxData["86"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993804090267005*^9, {3.9938041386777277`*^9, + 3.993804174504216*^9}, 3.9938488075630293`*^9, 3.993850005814782*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"cde337a4-b67a-4ca5-86a0-53c7eee54161"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"7d9753d0-8b04-4557-bdd7-1ab817307616"], + +Cell[BoxData["0.11093023255813952`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9938040902837143`*^9, {3.9938041386945467`*^9, + 3.9938041745182133`*^9}, 3.9938488075813007`*^9, 3.993850005826256*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"91a793ec-747c-40e6-8d12-266fab32e29f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"d677bd7a-a40f-40d7-a4fc-6c9bfec851d6"], + +Cell[BoxData[ + RowBox[{"-", "2.5630897009966778`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993804090300918*^9, {3.993804138711464*^9, + 3.99380417453297*^9}, 3.993848807599778*^9, 3.9938500058368263`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"291516b6-6437-42a1-8fd2-bbdb46de4b58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"14635bdb-e8d7-4d63-bed8-0a76a3334fbd"], + +Cell[BoxData["20.50874671482353`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993804090321062*^9, {3.9938041387284813`*^9, + 3.993804174547089*^9}, 3.993848807619718*^9, 3.9938500058502417`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"62b47213-6784-4146-b2f2-9951b7b2372a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"2e4e2b15-c7b3-47e4-8b19-cd5e4259fc10"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9938040903372*^9, {3.9938041387455187`*^9, + 3.993804174560532*^9}, 3.9938488076417303`*^9, 3.9938500058594913`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"9594dc8e-99b7-41a1-92f3-6731f18facc3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993803941161499*^9, 3.993803942967257*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"d87668e5-34b4-4466-ae54-e28db0c260db"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804090368265*^9, {3.993804138763773*^9, 3.993804174574923*^9}, + 3.993848807660918*^9, 3.993850005868532*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"e3ee3729-485d-40de-9843-5518d4eac1df"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849229804535*^9, - 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ -3056e2e0b957"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"880e360b-7298-4e09-85f9-48084e5b37ff"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.845"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993803949861635*^9, 3.993803952475243*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"a9d3bb4f-3ef8-40f8-bf4e-f1798dc08ff8"], + +Cell[BoxData["0.845`"], "Output", + CellChangeTimes->{ + 3.993804090400498*^9, {3.9938041388176193`*^9, 3.9938041746000147`*^9}, + 3.993848807703788*^9, 3.993850005883045*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"713d378e-5de5-4524-adcd-15c54cedc06e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"acbdfcb3-7ba0-46b8-ad20-3302b1f23b93"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.34"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993803955445758*^9, 3.9938039566555567`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"0dc48f12-9e6a-4b5b-ae4b-29d8bb6ad10b"], + +Cell[BoxData["2.34`"], "Output", + CellChangeTimes->{ + 3.993804090432963*^9, {3.993804138872542*^9, 3.9938041746232433`*^9}, + 3.993848807741784*^9, 3.99385000589739*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"933475e5-c2d8-422d-a3d7-0ae98a73dd99"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"b59cb2a7-273e-4183-aa67-cd8eb044436b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.235"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993803960293667*^9, 3.9938039628886843`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"2e2d5968-90a9-4221-815a-cfeb8c74421f"], + +Cell[BoxData["1.235`"], "Output", + CellChangeTimes->{ + 3.99380409046647*^9, {3.9938041389300737`*^9, 3.993804174645626*^9}, + 3.993848807767399*^9, 3.9938500059140997`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"83b73b7b-221b-4eb4-9075-84f318129f3b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"6ff1d83f-3a96-4654-89ca-4fb6c3e1d508"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "2.157"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993803966354662*^9, + 3.993803967807385*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"1cabc79f-1fac-48a1-af90-4987c518a680"], + +Cell[BoxData["2.157`"], "Output", + CellChangeTimes->{ + 3.993804090500058*^9, {3.993804138981492*^9, 3.993804174669353*^9}, + 3.993848807792426*^9, 3.9938500059333963`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"e9f4c155-d97c-4886-8e52-379ef48b69b8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"8e684642-5e2e-4335-977a-b70439c2a5e0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.647"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993803975246106*^9, + 3.993803976677384*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"131ce29e-eb44-4a63-96eb-8c4972a1b212"], + +Cell[BoxData["0.647`"], "Output", + CellChangeTimes->{ + 3.993804090532151*^9, {3.993804139031171*^9, 3.993804174692378*^9}, + 3.9938488078179283`*^9, 3.993850005947851*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"6fa0ccb6-7dbe-4005-bb2c-ec8b1204bdca"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"64a1ef54-ae04-49e1-a5f3-390193bb0d68"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.76"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99380398019634*^9, + 3.9938039813095837`*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"ad0ae671-9610-4879-abf9-de3e2c323054"], + +Cell[BoxData["1.76`"], "Output", + CellChangeTimes->{ + 3.993804090566051*^9, {3.993804139085739*^9, 3.9938041747149076`*^9}, + 3.993848807844983*^9, 3.9938500059630013`*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"56b9588f-e6b8-4fdf-a241-c6cd97b6272f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"7e010e74-c51d-4b0b-a358-1e281ea30111"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.075"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993803983729498*^9, 3.993803986997629*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"d7b0860f-be81-4ff6-a61d-21020ad47b25"], + +Cell[BoxData["1.075`"], "Output", + CellChangeTimes->{ + 3.993804090634049*^9, {3.993804139137789*^9, 3.99380417473573*^9}, + 3.993848807872305*^9, 3.9938500059773903`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"3da644f0-51d7-4159-a847-6aca0706de26"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"730fdeb2-39a4-4fa9-8540-0b4b7d435b48"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"24755538-6fb6-49f4-8dea-c74cd9eba2ac"], + +Cell[BoxData["0.01224942383714716`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993804090716114*^9, {3.993804139208848*^9, + 3.993804174782381*^9}, 3.9938488102384644`*^9, 3.993850006081039*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"e49c98f4-5138-4eba-9260-249b88b7965e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"bda461a3-c1f7-4378-9e67-b23b6a411c46"], + +Cell[BoxData["0.5889492852231504`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9938040907433662`*^9, {3.9938041392562933`*^9, + 3.99380417480917*^9}, 3.9938488104573317`*^9, 3.9938500061255074`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"9f61931a-5cb1-45f8-81de-19db360156c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"2b7bc9be-6ff0-49cc-b3e4-df474463af3c"], + +Cell[BoxData[ + RowBox[{"-", "12.704649244928842`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993804090767948*^9, {3.993804139281644*^9, + 3.99380417483276*^9}, 3.993848810481243*^9, 3.993850006165493*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"2c37fc32-f408-4c3b-95a7-475466b1160d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"580a6a2a-dc70-44ae-b272-a1bdd54c826f"], + +Cell[BoxData[ + RowBox[{"-", "15.223385141555047`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993804090797073*^9, {3.993804139310915*^9, + 3.993804174861484*^9}, 3.9938488105114737`*^9, 3.9938500062149363`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"e59e2b9c-2396-457d-92f5-3e5d030a5b42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"9e6bf8d4-aee3-432b-8b73-2467e721d5b6"], + +Cell[BoxData[ + RowBox[{"-", "39.03111013094529`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993804090827354*^9, {3.9938041393422422`*^9, + 3.9938041748908043`*^9}, 3.9938488105468807`*^9, 3.993850006265108*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"3b102122-41d5-47c1-af22-322836d0ef50"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"f2290b19-6da9-4717-a558-5041bb13f1ab"], + +Cell[BoxData[ + RowBox[{"-", "94.34556705329022`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993804090863044*^9, {3.993804139389662*^9, + 3.993804174924636*^9}, 3.993848810587708*^9, 3.993850006317486*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"44306616-d83d-41bf-be1a-b41d2225748f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"677e8854-5d69-47ea-8772-bebd5cd3f9bf"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993804090879141*^9, {3.9938041394058332`*^9, + 3.993804174941469*^9}, 3.99384881061217*^9, 3.9938500063303127`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"6148106e-7ef3-4690-b57f-58f5da3252fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"60e83527-4e25-4e91-8598-6529ad3ba730"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993804090895958*^9, {3.9938041394218063`*^9, + 3.993804174954442*^9}, 3.993848810635922*^9, 3.9938500063410597`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"74677b26-2f7d-4396-a664-18e039a3afcc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"8eba29a0-0bfe-45e8-b578-9129efa9f760"], + +Cell[BoxData["40.9342324933027`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993804090912829*^9, {3.99380413943988*^9, + 3.9938041749678583`*^9}, 3.993848810656166*^9, 3.993850006353188*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"264f2cc4-2f15-4d0e-aeb2-e12ade3edd4f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"631fba51-b60d-40f0-86db-d9a5108c28eb"], + +Cell[BoxData[ + RowBox[{"-", "42.16041879106114`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993804090929619*^9, {3.993804139457325*^9, + 3.9938041749824657`*^9}, 3.9938488106762447`*^9, 3.9938500063631983`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"70c58969-ac65-4c92-b05f-fc78037542d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"c2929b2d-23c7-4ad8-acdf-d40ee5c2edbc"], + +Cell[BoxData["57.85215050076255`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993804090946455*^9, {3.9938041394733677`*^9, + 3.993804174995661*^9}, 3.99384881069589*^9, 3.993850006374173*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"b9f059ee-153d-47f7-abf6-8e568b416f7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"fe4fb9fc-fcc4-4bed-8520-a2b1f238474b"], + +Cell[BoxData["0.2903701468853932`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993804090963214*^9, {3.99380413948948*^9, + 3.993804175008822*^9}, 3.99384881071603*^9, 3.9938500063859*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"7bf7685f-1de0-4ea0-9735-08279121853c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"7de557e2-d974-470f-bfdf-ca2f49a85d7f"], + +Cell[BoxData[ + RowBox[{"-", "0.06800962519581188`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9938040909800377`*^9, {3.993804139506342*^9, + 3.993804175022502*^9}, 3.993848810736079*^9, 3.993850006396977*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"1841e7ea-d6a9-482e-9366-a4eeee7407b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"aa8e3253-9953-41e8-8a40-55eb5a53d450"], + +Cell[BoxData[ + RowBox[{"-", "0.40916894338639737`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9938040909970512`*^9, {3.993804139523937*^9, + 3.99380417503624*^9}, 3.993848810755718*^9, 3.9938500064083967`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"49cc8417-d751-41f4-8a61-31044b419ef8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"0123d409-c86c-462c-a49e-b0ebd09a9850"], + +Cell[BoxData["0.6026750051187908`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9938040910160313`*^9, {3.993804139541357*^9, + 3.9938041750504208`*^9}, 3.993848810776074*^9, 3.9938500064216223`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"ba32b42d-aa54-4381-944a-4f6e3cccb7ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"8cb8bed9-f557-4334-91a9-dabc815b8b8a"], + +Cell[BoxData["2.622074662477555`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9938040910322237`*^9, {3.993804139560528*^9, + 3.99380417506885*^9}, 3.9938488107953978`*^9, 3.993850006433683*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"80d17bfe-e1c1-4649-949e-c152775fb20d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"d7903259-c65b-4038-8fc3-f2474e03c745"], + +Cell[BoxData["1.560486547241578`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9938040910476837`*^9, {3.99380413957936*^9, + 3.993804175086857*^9}, 3.993848810814839*^9, 3.99385000644519*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"a95ff65f-62d4-478d-b017-b8c0ab657044"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"bcf526a5-e1f4-4040-b65b-57e218034949"], + +Cell[BoxData[ + RowBox[{"-", "23.985225206889808`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9938040910636168`*^9, {3.993804139598442*^9, + 3.993804175099869*^9}, 3.99384881083464*^9, 3.9938500064573298`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"293f95e2-641d-4398-8545-498f1f96b27b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"7f93fb69-8560-4fab-8dd9-b3b63be1e4a1"], + +Cell[BoxData[ + RowBox[{"-", "6.082813498068469`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993804091079459*^9, {3.99380413961532*^9, + 3.993804175113451*^9}, 3.993848810854089*^9, 3.993850006467828*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"e2ff3dcc-df07-4c31-a305-06f52a679ec7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"f766ba37-8cfa-49ec-a2ad-8bc999b97f1f"], + +Cell[BoxData["16.949007286412893`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993804091095646*^9, {3.9938041396344*^9, + 3.99380417512825*^9}, 3.9938488108741703`*^9, 3.99385000647896*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"f37e6840-b9ae-48d9-9fa4-78aafcb56a7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"15d5df87-d569-466e-9931-16c78786e4b0"], + +Cell[BoxData[ + RowBox[{"-", "42.16041879106114`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9938040911120157`*^9, {3.993804139651782*^9, + 3.9938041751438704`*^9}, 3.993848810893611*^9, 3.993850006489017*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"6a70f199-add8-438d-8ac2-81eef229749e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"f2e6041c-e222-4174-bc71-de0a35588d73"], + +Cell[BoxData["51.76933700269408`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993804091132085*^9, {3.993804139668528*^9, + 3.993804175187551*^9}, 3.993848810913933*^9, 3.993850006498711*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"580cb745-4266-4b62-a550-613e65eff160"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"7978fc2c-0c96-47bf-bdde-2420e937364b"], + +Cell[BoxData["4.836891405194621`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993804091148937*^9, {3.9938041396855717`*^9, + 3.993804175204822*^9}, 3.993848810933175*^9, 3.993850006533996*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"633a4306-7b2c-4ef1-9a9c-3136f35aec1d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], + ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"9da2b650-53b1-43f9-aede-1fc860881650"], + +Cell[BoxData["252.66846904104736`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993804091165813*^9, {3.993804139705405*^9, + 3.993804175222055*^9}, 3.9938488109528217`*^9, 3.993850006544717*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"fefcbe64-b263-4d6e-a2bc-f816a3206183"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.50281"}]], "Input", + CellChangeTimes->{ + 3.991849227197853*^9, {3.993848944265698*^9, 3.993848951175886*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData["0.50281`"], "Output", + CellChangeTimes->{3.993850006554943*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"7eb4577b-6e35-4148-9b45-e7020c5cd254"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849227899128*^9, 3.9918492279041367`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.16898"}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9, {3.9938489552598743`*^9, 3.993848964132799*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[BoxData["0.16898`"], "Output", + CellChangeTimes->{3.993850006570663*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"2b6f003e-6f8d-4299-8a42-dcd9f091aadb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, 3.991849229809536*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ @@ -84,13 +4827,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + CellLabel->"In[75]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913335367025833`*^9}, - CellLabel-> - "Out[233]=",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[BoxData["2.401224501209607`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9, 3.993850006584815*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"7e7d7954-a9bc-4754-8393-331844a9d9ea"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4865,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ -fcd932c3b663"], + CellChangeTimes->{3.9915575926932735`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[BoxData["5.020725113795862`*^-55"], "Output", - CellChangeTimes->{3.991333536726557*^9}, - CellLabel-> - "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[BoxData["1.1871112023794209`*^-54"], "Output", + CellChangeTimes->{3.991333536726557*^9, 3.993850006595129*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bd795dba-077e-4995-a85a-e191378a670e"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4903,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557595005127*^9, - 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ -23b66397f1fd"], + CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[BoxData["1.871372642785671`*^-54"], "Output", - CellChangeTimes->{3.9913335367515736`*^9}, - CellLabel-> - "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[BoxData["8.090354458175718`*^-55"], "Output", + CellChangeTimes->{3.9913335367515736`*^9, 3.993850006605142*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"b1b23885-e657-47d7-924c-e1b002b38edb"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4931,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + CellLabel->"In[78]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[BoxData["25.178011816139865`"], "Output", - CellChangeTimes->{3.9913335367605553`*^9}, - CellLabel-> - "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[BoxData["11.35840940406953`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9, 3.99385000661547*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"5ffb5033-652e-4dc4-8945-e82818bd2a3f"] }, Open ]], Cell[CellGroupData[{ @@ -225,13 +4960,11 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + CellLabel->"In[79]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[BoxData["31.32034821453639`"], "Output", - CellChangeTimes->{3.991333536783556*^9}, - CellLabel-> - "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[BoxData["26.74564635715819`"], "Output", + CellChangeTimes->{3.991333536783556*^9, 3.993850006627974*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"2d2f85b9-bd48-49c1-9974-142770e39f2a"] }, Open ]], Cell[CellGroupData[{ @@ -240,13 +4973,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + CellLabel->"In[80]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[BoxData["0.7475613664925793`"], "Output", - CellChangeTimes->{3.9913335367915726`*^9}, - CellLabel-> - "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[BoxData["0.6525659502216096`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9, 3.993850006637809*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"0671a55c-3156-49fe-8d0f-e589aedd335b"] }, Open ]], Cell[CellGroupData[{ @@ -255,13 +4986,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + CellLabel->"In[81]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[BoxData["3.5403946764909393`"], "Output", - CellChangeTimes->{3.99133353681583*^9}, - CellLabel-> - "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[BoxData["3.0736115217177438`"], "Output", + CellChangeTimes->{3.99133353681583*^9, 3.99385000664786*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"45e4afc9-c592-45f8-85bc-97bb5cfb5389"] }, Open ]], Cell[CellGroupData[{ @@ -270,13 +4999,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + CellLabel->"In[82]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[BoxData["110.88639408458714`"], "Output", - CellChangeTimes->{3.991333536826782*^9}, - CellLabel-> - "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[BoxData["82.20572679914962`"], "Output", + CellChangeTimes->{3.991333536826782*^9, 3.993850006657928*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"dc39236d-0b3b-4072-adab-92c2dc82665c"] }, Open ]], Cell[CellGroupData[{ @@ -285,13 +5012,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + CellLabel->"In[83]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[BoxData["18.822108918839827`"], "Output", - CellChangeTimes->{3.9913335368508377`*^9}, - CellLabel-> - "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[BoxData["7.412111225772699`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9, 3.993850006668963*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"51b308fd-b12c-47ca-9559-5424fcf61878"] }, Open ]], Cell[CellGroupData[{ @@ -480,13 +5205,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + CellLabel->"In[84]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[BoxData["0.042044960793272385`"], "Output", - CellChangeTimes->{3.9913335368758316`*^9}, - CellLabel-> - "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[BoxData["0.013222115583782734`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9, 3.993850006680663*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"61452f6a-ebda-4800-a77d-5bf94cfd5d7a"] }, Open ]], Cell[CellGroupData[{ @@ -499,13 +5222,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + CellLabel->"In[85]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[BoxData["4.322031867849089`"], "Output", - CellChangeTimes->{3.991333536973074*^9}, - CellLabel-> - "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[BoxData["7.707161615439109`"], "Output", + CellChangeTimes->{3.991333536973074*^9, 3.9938500068423443`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"8e1dfd8a-6569-46c8-866b-78eaab39c540"] }, Open ]], Cell[CellGroupData[{ @@ -696,13 +5417,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + CellLabel->"In[86]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[BoxData["0.011395075201487413`"], "Output", - CellChangeTimes->{3.9913335369870644`*^9}, - CellLabel-> - "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[BoxData["0.12401099638034954`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9, 3.99385000685529*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"0196d9e9-2310-4053-ac60-27793b555707"] }, Open ]], Cell[CellGroupData[{ @@ -715,13 +5434,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + CellLabel->"In[87]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[BoxData["8.302069082299768`"], "Output", - CellChangeTimes->{3.9913335370800858`*^9}, - CellLabel-> - "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[BoxData["2.516603766346807`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9, 3.9938500069137297`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"f0360fd7-5576-48c3-9bb5-235f13ec5320"] }, Open ]], Cell[CellGroupData[{ @@ -813,13 +5530,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + CellLabel->"In[88]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913335370930634`*^9}, - CellLabel-> - "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[BoxData["0.08903677593802349`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9, 3.993850006929255*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"7637949e-9075-42f6-980c-c2c5509ffe35"] }, Open ]], Cell[CellGroupData[{ @@ -908,13 +5623,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + CellLabel->"In[89]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991333537118065*^9}, - CellLabel-> - "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[BoxData["0.9109632240619764`"], "Output", + CellChangeTimes->{3.991333537118065*^9, 3.99385000694108*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"86c1217e-10bd-4ca5-9e1a-126f57859434"] }, Open ]], Cell[CellGroupData[{ @@ -1036,19 +5749,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + CellLabel->"In[90]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913335371420746`*^9}, - CellLabel-> - "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +Cell[BoxData["0.08110922846858569`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9, 3.993850006953444*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"1a90c68e-6034-4b2a-97db-6023f28df5eb"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ -5e47-a896-3a959bbbf44d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ @@ -1062,7 +5773,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -1084,8 +5797,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1109,65 +5821,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849241512779*^9},ExpressionUUID->"738a48f3-b38c-f441-aec4-\ -53babaa73a14"], + CellChangeTimes->{3.991849241512779*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371540604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.094125897449317`*^-222\\\", \ +RowBox[{\\\"27355265838161455835337350\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"38\\\", \\\"\[RightSkeleton]\\\"}], \\\"59182397440000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 92, 1, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.993850006984274*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +In[92]:=",ExpressionUUID->"646a92ee-8e6d-448a-9720-03189cfe260a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371630745`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.111747947476807`*^-228\\\", \ +RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 92, 2, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.9938500070071793`*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +In[92]:=",ExpressionUUID->"f2ea7738-cab2-4e13-8f8f-777cbf1548b7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371710587`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.123672282955085`*^-234\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 92, 3, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.993850007012682*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +In[92]:=",ExpressionUUID->"76b33c98-2a3f-4ffb-8381-fe360589c502"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133353717906*^9}, +during this calculation.\"", 2, 92, 4, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.993850007017749*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +In[92]:=",ExpressionUUID->"04b2684a-8ed4-40de-8fee-63d6422621d1"], -Cell[BoxData["4.322031867849086`"], "Output", - CellChangeTimes->{3.9913335399194164`*^9}, - CellLabel-> - "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[BoxData["7.707161615439108`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9, 3.993850008784121*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"644d1ae2-f9ca-44e3-9e18-196df3dfcb87"] }, Open ]], Cell[CellGroupData[{ @@ -1182,7 +5899,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -1204,8 +5923,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1229,65 +5947,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918492463930817`*^9},ExpressionUUID->"86c33485-ed26-8f49-b3d0-\ -7d040d3b48f0"], + CellChangeTimes->{3.9918492463930817`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399544125`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.094125897449317`*^-222\\\", \ +RowBox[{\\\"27355265838161455835337350\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"38\\\", \\\"\[RightSkeleton]\\\"}], \\\"59182397440000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 93, 5, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.993850008866371*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +In[93]:=",ExpressionUUID->"b80f0899-f0d7-428a-be42-4a5f1614ba80"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399644184`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.111747947476807`*^-228\\\", \ +RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 93, 6, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.993850008873105*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +In[93]:=",ExpressionUUID->"288b8afa-78e6-4d11-a8cd-cc5e3db8e57e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539972414*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.123672282955085`*^-234\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 93, 7, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.993850008878443*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +In[93]:=",ExpressionUUID->"37f6ec21-aff7-479d-ad47-5406caf63724"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539979416*^9}, +during this calculation.\"", 2, 93, 8, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.9938500088836946`*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +In[93]:=",ExpressionUUID->"616cc5a9-8b68-4e2a-bda2-91bd67099ce4"], -Cell[BoxData["8.302069082299772`"], "Output", - CellChangeTimes->{3.991333542631773*^9}, - CellLabel-> - "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[BoxData["2.5166037663468073`"], "Output", + CellChangeTimes->{3.991333542631773*^9, 3.993850010618244*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"894ce06c-76ee-44a5-9885-e73863dcda4e"] }, Open ]], Cell[CellGroupData[{ @@ -1297,138 +6020,140 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492535482903`*^9},ExpressionUUID->"f373fe4f-940c-0842-9236-\ -63ec36d318ad"], + CellChangeTimes->{3.9918492535482903`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4FV0cB3CEZF9C9qxFlFyKtvMTkqwp2bd7547IFpISkmiTJL3pfSsV +SkJRlmwRbVIUbSqRJevcIUslec/9Y555Ps+Z8z3fOWeeUWeGObP5eHh4xvDF +ve99tXJZRdurTeu2tF/0TKLQJirXhGlZiBRnG3K57s5ek6llWYOSPE4/5tqJ +eCkoyniMvjJN/nBdEpPQKGDZgp5KVW31wj7xZEl9QsFr5M5Sus31g7a9V/4Y +vUUGO9w1vbGHO5sPHaj+gII+RZZwrdiv6Tlt8RnFTQW5+GDbcg6ZRbZ8RUcu +bpLwxa77MywSU9CD3tZRXVy/S5SPLQ/tRamesU1+2JSg5fCkUT/6QPQ99McW +TA13Z8wMoPZXuq+Z2KpSl5/trR5EBam2P1nYDkrTNyiLUTTZrHmcxCavasgZ +CFGI0O+kA7ATtB2T97RwUElOcFgg9gf5jtVRBeMo8aR2cTA24REUeC51Ar19 +Yxsaik1f4rlWGvoDHfhmbxmOLaRhIDluNIUm5vpWR2FnEo3WkrLTKLDzgE00 +9tKb7gmrZqbRcrXh6BhsU/0UKqT6J/Le7yUTh717zdeWYYs/aCskOx/DnozZ +xy+sM4c8LCeWnMQ+XC2yQVfoL0INZlOp2FlgejugZR4t+NeVk8Htl/fMMqKA +F67UNg9lYxc8OdedqMQHMckLfXO4fb/7HDqbygcZmSrDN7AP6U3duxu6AJI+ +dZgXc/veUdfkGAmAovKemVrszrbRur85ArCKEaL0iNt/osJDXFYQylWsXZ5g +Fxo7ZBjMCAIjO1G4FbvpwUHe4GohWH9IJLYHe6qx/eughSikx0CU8FEKSduJ +SsbWicLe7atDJLENOyxBzEwMGoeeJ8hhB/WVXV29UhzG5+hxDexwvhbDjaKS +QAyKCm/E7tcoHk+elgLF6uWLorEnyeZFrQxpWDUReCkOm+/2gPqSvdIw/97O +Jhl7KUPNuWBEGpJ/TXEysT0s0ktfdcuAq83z8DLsVlZEpPwLWVitIAaz2F03 +0075CclBNscohD+ZQqMjBTm3rOSgcXrinhi2cFRv+/p6OeAko7Sl2JZHdxr7 +lclDy5fZfdbYVblrpvKzFaB8f4rUv9i5/b+j10WpQPWZ+ijnFAptdTnWFVmk +AotCmLw+2KNNMluKBlSg8p1VbiC2ca6+7FJ3Vfgh0qqfiN3E9LknsEkNHo90 +bi3BnuB07x9MWgr1vjsLZY9RSCbE8v49ew0o1IpS5mAP5ArvdgrSAKVziuFz +2JWf25TGUjRAgaA+ihynkJedd5JOvQbM+yrRy7FzV0Q7XzTSBK+eaB0C23j4 +Jh0vrwVZp89WdWHvDBAx2NajDf9UCsX2naAQinYxcp3ThpGjXRumsPWSs9cS +CjoQdmVMRvAkhXhyGJvjt+vA5Nn7vMuxi7o8XUsbdIC1uvVTMLbgrsJExevL +ILM68cRv7EpL+3fDTF0QrPjdpJ1KoZwdFz7NxOtChZOfvhl2GrOnm/8/Xdgk +15dvh00c3jei2q4LqXGbeyKxpWou8+yw0APGBDg2YgcxKL1qzRXQ8CZCjTxN +ISWNMwmn+vRh9O3gieo0CtWcnNT9xWcA5vxuEe3YXj/cO0h1A1jZFxs5gn2l +SUt3s48B+Ad9fqh0hkIaAVVvfr43gAG1T4fjsPUK+7XJFyuBXyn7ulU6hVSU +VMml7oYgQO33HDxLIf28KNFZZASclPOO+89TiEkkTRk4GIHyw++u57CzNDO6 +/LyM4C97z7472Auu37n7JMYIvp/hpb9jd14Z3plRYgQLhC163f/B/9Msv8u6 +mgww7uirN7+Az/eU3Uo3QWNgRNc5qF+k0LUILaeyFhNQX2LAVLtMobZotPZo +nhmUOUok9t6gkLrPWwfv4I1wqmwVL1VCIfZ8ebHKAQAp61C5+FoKyY9ULpRn +boYNzw4t9nlBoSjGhs8ZepZwrTfM9/hH3H/szzOZYSt4LZHfcWQQn+fmyIXZ +rdaQsHLWh/qFv5/JoIbCTBsYchoxXifCQT/Nl7xsSrCFbJumLBE1DvrCs2C8 +x98esoXb3h5hcFCoclh6oqYjyB5tigq15qDiwGf155OdoH3dfccubw46+ENh +ZkXgdlhg9W9DUiQHTW3bsuuprzPY8r5pzTvFQWaeZ837t+8AjaK7JVQOB71R +uBzUxNgJeWFFegurOUjxRlJN/nIXyO+pXR7ZwUGV3Xp2DmK7IOzyhFrkKAep +dtAB0WO74GXd2hApPhoxzp8tzOl2hSG3bsFJcRpd5v+xMqPRDYLiEq5PK9Ko +3HxVZ/IDd7hatO/e4DIaZa09KfWnwAPKO4ws44xp1PopL4WR6gl2rrsLxYFG +ZfaXtMIPe8FVxdtF3nY0Gg/ZwRNKeEOWWcP28640mtqiu5uy8IE2tZN81kwa +5Y99/Bm5xhceOW5qjQuhkdu1PJa3qB/YjTcnnNxPo3ultr4LjvmBy1ePz1Qi +jcyU3vw68csPtE/MHVc9RSPN7oDO14H+cNHPyf/iORr1iexxvNTrD6GmzVp6 +l2jUlubAsnZhAt/C8DcpOTTKjMkW2dfGBNnHLieeFNCopm7+F8uGBQbpkWqq +JTSS8IJjjCoWKFeo/nAsp9HSxU9blWtYEPl0/DuBbdhiv0SwjgU6batbD2A7 +b/C89aGBBQ9PjkflYGcqR7+Ie86CQO2NKtPYil9uSzz7wIKr5VFfsypopOUj +n+U1w4KcZjXVjkr8Pn5UfrIxAdVTC3XUq2l04yId6bAGu3RHwmrsxe0Tm+RN +Cbi/P6TFHJuymunIX0+AqI7gZiZ27goe3pbNBJy6cuvf69jiM1Lu0tsJ+Gyb +z6Neg/fjtMmi7BACpPtWXlhcS6PtT9d2BITh+d0DAZrYdTzrsg33EjDNb61v +hH0xcpPJoygCVtjOnnHEdnC39u+PJUDi+OLGE9gPtNwfrDhJQHCT9PtZ7LTq +Q4GVNwgYFa4ofldHoxCjC2Yx+QRkzJXd6cW2u1WyyLSAgPGtFbk0tvCFgVsV +RQQoqNYGCT+kUXKE03D5fQKO+1WTG7EP6WrtKXtEwCPpUpVr2EEXXgSXdhGw +z9440beeRjbiAxsiuglYL1fJswd7eTKPmNE3Al4eUY+Kxh6IMCkq6SeAOXJt +zWlsf4fssbujBJy5aa5Xhe0mEBl65zcByopWL6QaaGQdqRheKMcG05IWqgL7 +UXbKtowlbLhR/b3hEfaGlgmtGEU2vObkpbzENtR+8dFClQ0eykL937AV3sda +fNJmw+IamynRRzQaWfdFTtiEDRNvZpg+2Gf4rtYG7GDDAXMqeBpbeJVolr0L +ng+VEfPYRz1jIhiubGj+syhIqJFGMfedls17sEEi09xAEduf5D37D5MNCs0j +AhuxGc1M4vFeNih/PjqfgP3+rLaIZjobyo+2is9iFyOx3YNn2SCvYfKctwnn +j002FZ1jQ8XHsWghbCObpnjTC2zQzdxVKIudxsOasL/ChhPOM/GrsLeEXf0Y +U8gGzp9FjX7YKirH12wqZoPJK7KUxJ5sDju34C4bfBUlzgdjX9dB9mn32LDQ +G4xjsOe+fKnPqWLDpZ0KnWnY9+2U8l89Y4POwS2ND7BP/eYTyGxmQ3D5su91 +2Mz8YX/3FjZsbbT/24gtyV+l1NfKhtrHpOAr7OBqtzO/3rEhsq8hrgdbU++f +aK1+NqSRL4QEH9Po9/u49qEBnPffSz9h7LZktuGdQTb4j4oXimPH9xgPm42y +QfSCvbI8dmdWu7fjDzYYmpSylmFnLJSyOshLwsuRjtNW2DUTXzyjFpDw9h3r +iA329y8FEaECJGx0Ewqwx95w3/IqcxEJC/PTeVywB/xiZrdJkWCVmRnFwpa0 +s5K2kiEhG54Mkdjr10rrIlkS5mqFHYOw08UKdzEUSLjc3zwUzh2v+lqipE6C +5HY1vzhsMq/wmawmCc97u1wOc59PP/BVQpsE3W/F65O465EyYvy6JJSKJLw/ +zh2Xsd49akjC5+YPjuewq/7KJAwYkbAmcPGT89j9Q93nu41JGAnx0c/CXld/ +sLHDlATbJuXnl7D7gotVa4GE7cUbLPKwxd1iTSo2k0DG95vdxDaz2GpXYonX +k/hv6S3sNIVvB/K2ktD/cEVdIXYl/5307G0kpB4T3FeM3cuJvXnRjoQh/zGl +u9imT2TfnnYi4dXdLrN72MySbyPHnElQ7hy8ex/79KU7fEd2klCU8Fe+HPtb +hI1htBsJZQ9syyuxxXzkrMM9SPglnjT2gJtn0+sd5EWCBvPx4mrufLW4Uz5+ +JEBmEKOW20d423U3Jt5PeKlXx82bknvgTJCwN2md9ENuXk9vqx1JQvrW0iGu +TVvuDmzZTYJmrHFJPbdfRdwcBJGwU6hhdwM3//q2xeuDSfjU5Sr5iJt/Wn6F +SSgJA9TPm1x/i+kzXxVOgr5e7qpGbFGixE03goS+JPebXK91jA/TjCKhnl4i +0cTNX2ebohKNvwfyG8l1qvaSy/IxeL2usmKuyyX770kdJOGv47kBrntmS5pF +DpFQUX5Q/DE3/3t8j0A8CTXiwTpcr3lj+3M+gYRml4CVXP8PJ5hEEA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1442,104 +6167,105 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= +1:eJwV1Hk4FV0cB3CEZF9C9qxFlFyKtvMTkqwp2bd7547IFpISkmiTJL3pfSsV +SkJRlmwRbVIUbSqRJevcIUslec/9Y555Ps+Z8z3fOWeeUWeGObP5eHh4xvDF +ve99tXJZRdurTeu2tF/0TKLQJirXhGlZiBRnG3K57s5ek6llWYOSPE4/5tqJ +eCkoyniMvjJN/nBdEpPQKGDZgp5KVW31wj7xZEl9QsFr5M5Sus31g7a9V/4Y +vUUGO9w1vbGHO5sPHaj+gII+RZZwrdiv6Tlt8RnFTQW5+GDbcg6ZRbZ8RUcu +bpLwxa77MywSU9CD3tZRXVy/S5SPLQ/tRamesU1+2JSg5fCkUT/6QPQ99McW +TA13Z8wMoPZXuq+Z2KpSl5/trR5EBam2P1nYDkrTNyiLUTTZrHmcxCavasgZ +CFGI0O+kA7ATtB2T97RwUElOcFgg9gf5jtVRBeMo8aR2cTA24REUeC51Ar19 +Yxsaik1f4rlWGvoDHfhmbxmOLaRhIDluNIUm5vpWR2FnEo3WkrLTKLDzgE00 +9tKb7gmrZqbRcrXh6BhsU/0UKqT6J/Le7yUTh717zdeWYYs/aCskOx/DnozZ +xy+sM4c8LCeWnMQ+XC2yQVfoL0INZlOp2FlgejugZR4t+NeVk8Htl/fMMqKA +F67UNg9lYxc8OdedqMQHMckLfXO4fb/7HDqbygcZmSrDN7AP6U3duxu6AJI+ +dZgXc/veUdfkGAmAovKemVrszrbRur85ArCKEaL0iNt/osJDXFYQylWsXZ5g +Fxo7ZBjMCAIjO1G4FbvpwUHe4GohWH9IJLYHe6qx/eughSikx0CU8FEKSduJ +SsbWicLe7atDJLENOyxBzEwMGoeeJ8hhB/WVXV29UhzG5+hxDexwvhbDjaKS +QAyKCm/E7tcoHk+elgLF6uWLorEnyeZFrQxpWDUReCkOm+/2gPqSvdIw/97O +Jhl7KUPNuWBEGpJ/TXEysT0s0ktfdcuAq83z8DLsVlZEpPwLWVitIAaz2F03 +0075CclBNscohD+ZQqMjBTm3rOSgcXrinhi2cFRv+/p6OeAko7Sl2JZHdxr7 +lclDy5fZfdbYVblrpvKzFaB8f4rUv9i5/b+j10WpQPWZ+ijnFAptdTnWFVmk +AotCmLw+2KNNMluKBlSg8p1VbiC2ca6+7FJ3Vfgh0qqfiN3E9LknsEkNHo90 +bi3BnuB07x9MWgr1vjsLZY9RSCbE8v49ew0o1IpS5mAP5ArvdgrSAKVziuFz +2JWf25TGUjRAgaA+ihynkJedd5JOvQbM+yrRy7FzV0Q7XzTSBK+eaB0C23j4 +Jh0vrwVZp89WdWHvDBAx2NajDf9UCsX2naAQinYxcp3ThpGjXRumsPWSs9cS +CjoQdmVMRvAkhXhyGJvjt+vA5Nn7vMuxi7o8XUsbdIC1uvVTMLbgrsJExevL +ILM68cRv7EpL+3fDTF0QrPjdpJ1KoZwdFz7NxOtChZOfvhl2GrOnm/8/Xdgk +15dvh00c3jei2q4LqXGbeyKxpWou8+yw0APGBDg2YgcxKL1qzRXQ8CZCjTxN +ISWNMwmn+vRh9O3gieo0CtWcnNT9xWcA5vxuEe3YXj/cO0h1A1jZFxs5gn2l +SUt3s48B+Ad9fqh0hkIaAVVvfr43gAG1T4fjsPUK+7XJFyuBXyn7ulU6hVSU +VMml7oYgQO33HDxLIf28KNFZZASclPOO+89TiEkkTRk4GIHyw++u57CzNDO6 +/LyM4C97z7472Auu37n7JMYIvp/hpb9jd14Z3plRYgQLhC163f/B/9Msv8u6 +mgww7uirN7+Az/eU3Uo3QWNgRNc5qF+k0LUILaeyFhNQX2LAVLtMobZotPZo +nhmUOUok9t6gkLrPWwfv4I1wqmwVL1VCIfZ8ebHKAQAp61C5+FoKyY9ULpRn +boYNzw4t9nlBoSjGhs8ZepZwrTfM9/hH3H/szzOZYSt4LZHfcWQQn+fmyIXZ +rdaQsHLWh/qFv5/JoIbCTBsYchoxXifCQT/Nl7xsSrCFbJumLBE1DvrCs2C8 +x98esoXb3h5hcFCoclh6oqYjyB5tigq15qDiwGf155OdoH3dfccubw46+ENh +ZkXgdlhg9W9DUiQHTW3bsuuprzPY8r5pzTvFQWaeZ837t+8AjaK7JVQOB71R +uBzUxNgJeWFFegurOUjxRlJN/nIXyO+pXR7ZwUGV3Xp2DmK7IOzyhFrkKAep +dtAB0WO74GXd2hApPhoxzp8tzOl2hSG3bsFJcRpd5v+xMqPRDYLiEq5PK9Ko +3HxVZ/IDd7hatO/e4DIaZa09KfWnwAPKO4ws44xp1PopL4WR6gl2rrsLxYFG +ZfaXtMIPe8FVxdtF3nY0Gg/ZwRNKeEOWWcP28640mtqiu5uy8IE2tZN81kwa +5Y99/Bm5xhceOW5qjQuhkdu1PJa3qB/YjTcnnNxPo3ultr4LjvmBy1ePz1Qi +jcyU3vw68csPtE/MHVc9RSPN7oDO14H+cNHPyf/iORr1iexxvNTrD6GmzVp6 +l2jUlubAsnZhAt/C8DcpOTTKjMkW2dfGBNnHLieeFNCopm7+F8uGBQbpkWqq +JTSS8IJjjCoWKFeo/nAsp9HSxU9blWtYEPl0/DuBbdhiv0SwjgU6batbD2A7 +b/C89aGBBQ9PjkflYGcqR7+Ie86CQO2NKtPYil9uSzz7wIKr5VFfsypopOUj +n+U1w4KcZjXVjkr8Pn5UfrIxAdVTC3XUq2l04yId6bAGu3RHwmrsxe0Tm+RN +Cbi/P6TFHJuymunIX0+AqI7gZiZ27goe3pbNBJy6cuvf69jiM1Lu0tsJ+Gyb +z6Neg/fjtMmi7BACpPtWXlhcS6PtT9d2BITh+d0DAZrYdTzrsg33EjDNb61v +hH0xcpPJoygCVtjOnnHEdnC39u+PJUDi+OLGE9gPtNwfrDhJQHCT9PtZ7LTq +Q4GVNwgYFa4ofldHoxCjC2Yx+QRkzJXd6cW2u1WyyLSAgPGtFbk0tvCFgVsV +RQQoqNYGCT+kUXKE03D5fQKO+1WTG7EP6WrtKXtEwCPpUpVr2EEXXgSXdhGw +z9440beeRjbiAxsiuglYL1fJswd7eTKPmNE3Al4eUY+Kxh6IMCkq6SeAOXJt +zWlsf4fssbujBJy5aa5Xhe0mEBl65zcByopWL6QaaGQdqRheKMcG05IWqgL7 +UXbKtowlbLhR/b3hEfaGlgmtGEU2vObkpbzENtR+8dFClQ0eykL937AV3sda +fNJmw+IamynRRzQaWfdFTtiEDRNvZpg+2Gf4rtYG7GDDAXMqeBpbeJVolr0L +ng+VEfPYRz1jIhiubGj+syhIqJFGMfedls17sEEi09xAEduf5D37D5MNCs0j +AhuxGc1M4vFeNih/PjqfgP3+rLaIZjobyo+2is9iFyOx3YNn2SCvYfKctwnn +j002FZ1jQ8XHsWghbCObpnjTC2zQzdxVKIudxsOasL/ChhPOM/GrsLeEXf0Y +U8gGzp9FjX7YKirH12wqZoPJK7KUxJ5sDju34C4bfBUlzgdjX9dB9mn32LDQ +G4xjsOe+fKnPqWLDpZ0KnWnY9+2U8l89Y4POwS2ND7BP/eYTyGxmQ3D5su91 +2Mz8YX/3FjZsbbT/24gtyV+l1NfKhtrHpOAr7OBqtzO/3rEhsq8hrgdbU++f +aK1+NqSRL4QEH9Po9/u49qEBnPffSz9h7LZktuGdQTb4j4oXimPH9xgPm42y +QfSCvbI8dmdWu7fjDzYYmpSylmFnLJSyOshLwsuRjtNW2DUTXzyjFpDw9h3r +iA329y8FEaECJGx0Ewqwx95w3/IqcxEJC/PTeVywB/xiZrdJkWCVmRnFwpa0 +s5K2kiEhG54Mkdjr10rrIlkS5mqFHYOw08UKdzEUSLjc3zwUzh2v+lqipE6C +5HY1vzhsMq/wmawmCc97u1wOc59PP/BVQpsE3W/F65O465EyYvy6JJSKJLw/ +zh2Xsd49akjC5+YPjuewq/7KJAwYkbAmcPGT89j9Q93nu41JGAnx0c/CXld/ +sLHDlATbJuXnl7D7gotVa4GE7cUbLPKwxd1iTSo2k0DG95vdxDaz2GpXYonX +k/hv6S3sNIVvB/K2ktD/cEVdIXYl/5307G0kpB4T3FeM3cuJvXnRjoQh/zGl +u9imT2TfnnYi4dXdLrN72MySbyPHnElQ7hy8ex/79KU7fEd2klCU8Fe+HPtb +hI1htBsJZQ9syyuxxXzkrMM9SPglnjT2gJtn0+sd5EWCBvPx4mrufLW4Uz5+ +JEBmEKOW20d423U3Jt5PeKlXx82bknvgTJCwN2md9ENuXk9vqx1JQvrW0iGu +TVvuDmzZTYJmrHFJPbdfRdwcBJGwU6hhdwM3//q2xeuDSfjU5Sr5iJt/Wn6F +SSgJA9TPm1x/i+kzXxVOgr5e7qpGbFGixE03goS+JPebXK91jA/TjCKhnl4i +0cTNX2ebohKNvwfyG8l1qvaSy/IxeL2usmKuyyX770kdJOGv47kBrntmS5pF +DpFQUX5Q/DE3/3t8j0A8CTXiwTpcr3lj+3M+gYRml4CVXP8PJ5hEEA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.9535348896408273, + 1.0482837498324096`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.9535348896408294}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1551,130 +6277,131 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.9535348896408273, + 1.0482837498324096`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.9535348896408294}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{120.79808473007536`, - 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= +1:eJwV1Hk4FV0cB3CEZF9C9qxFlFyKtvMTkqwp2bd7547IFpISkmiTJL3pfSsV +SkJRlmwRbVIUbSqRJevcIUslec/9Y555Ps+Z8z3fOWeeUWeGObP5eHh4xvDF +ve99tXJZRdurTeu2tF/0TKLQJirXhGlZiBRnG3K57s5ek6llWYOSPE4/5tqJ +eCkoyniMvjJN/nBdEpPQKGDZgp5KVW31wj7xZEl9QsFr5M5Sus31g7a9V/4Y +vUUGO9w1vbGHO5sPHaj+gII+RZZwrdiv6Tlt8RnFTQW5+GDbcg6ZRbZ8RUcu +bpLwxa77MywSU9CD3tZRXVy/S5SPLQ/tRamesU1+2JSg5fCkUT/6QPQ99McW +TA13Z8wMoPZXuq+Z2KpSl5/trR5EBam2P1nYDkrTNyiLUTTZrHmcxCavasgZ +CFGI0O+kA7ATtB2T97RwUElOcFgg9gf5jtVRBeMo8aR2cTA24REUeC51Ar19 +Yxsaik1f4rlWGvoDHfhmbxmOLaRhIDluNIUm5vpWR2FnEo3WkrLTKLDzgE00 +9tKb7gmrZqbRcrXh6BhsU/0UKqT6J/Le7yUTh717zdeWYYs/aCskOx/DnozZ +xy+sM4c8LCeWnMQ+XC2yQVfoL0INZlOp2FlgejugZR4t+NeVk8Htl/fMMqKA +F67UNg9lYxc8OdedqMQHMckLfXO4fb/7HDqbygcZmSrDN7AP6U3duxu6AJI+ +dZgXc/veUdfkGAmAovKemVrszrbRur85ArCKEaL0iNt/osJDXFYQylWsXZ5g +Fxo7ZBjMCAIjO1G4FbvpwUHe4GohWH9IJLYHe6qx/eughSikx0CU8FEKSduJ +SsbWicLe7atDJLENOyxBzEwMGoeeJ8hhB/WVXV29UhzG5+hxDexwvhbDjaKS +QAyKCm/E7tcoHk+elgLF6uWLorEnyeZFrQxpWDUReCkOm+/2gPqSvdIw/97O +Jhl7KUPNuWBEGpJ/TXEysT0s0ktfdcuAq83z8DLsVlZEpPwLWVitIAaz2F03 +0075CclBNscohD+ZQqMjBTm3rOSgcXrinhi2cFRv+/p6OeAko7Sl2JZHdxr7 +lclDy5fZfdbYVblrpvKzFaB8f4rUv9i5/b+j10WpQPWZ+ijnFAptdTnWFVmk +AotCmLw+2KNNMluKBlSg8p1VbiC2ca6+7FJ3Vfgh0qqfiN3E9LknsEkNHo90 +bi3BnuB07x9MWgr1vjsLZY9RSCbE8v49ew0o1IpS5mAP5ArvdgrSAKVziuFz +2JWf25TGUjRAgaA+ihynkJedd5JOvQbM+yrRy7FzV0Q7XzTSBK+eaB0C23j4 +Jh0vrwVZp89WdWHvDBAx2NajDf9UCsX2naAQinYxcp3ThpGjXRumsPWSs9cS +CjoQdmVMRvAkhXhyGJvjt+vA5Nn7vMuxi7o8XUsbdIC1uvVTMLbgrsJExevL +ILM68cRv7EpL+3fDTF0QrPjdpJ1KoZwdFz7NxOtChZOfvhl2GrOnm/8/Xdgk +15dvh00c3jei2q4LqXGbeyKxpWou8+yw0APGBDg2YgcxKL1qzRXQ8CZCjTxN +ISWNMwmn+vRh9O3gieo0CtWcnNT9xWcA5vxuEe3YXj/cO0h1A1jZFxs5gn2l +SUt3s48B+Ad9fqh0hkIaAVVvfr43gAG1T4fjsPUK+7XJFyuBXyn7ulU6hVSU +VMml7oYgQO33HDxLIf28KNFZZASclPOO+89TiEkkTRk4GIHyw++u57CzNDO6 +/LyM4C97z7472Auu37n7JMYIvp/hpb9jd14Z3plRYgQLhC163f/B/9Msv8u6 +mgww7uirN7+Az/eU3Uo3QWNgRNc5qF+k0LUILaeyFhNQX2LAVLtMobZotPZo +nhmUOUok9t6gkLrPWwfv4I1wqmwVL1VCIfZ8ebHKAQAp61C5+FoKyY9ULpRn +boYNzw4t9nlBoSjGhs8ZepZwrTfM9/hH3H/szzOZYSt4LZHfcWQQn+fmyIXZ +rdaQsHLWh/qFv5/JoIbCTBsYchoxXifCQT/Nl7xsSrCFbJumLBE1DvrCs2C8 +x98esoXb3h5hcFCoclh6oqYjyB5tigq15qDiwGf155OdoH3dfccubw46+ENh +ZkXgdlhg9W9DUiQHTW3bsuuprzPY8r5pzTvFQWaeZ837t+8AjaK7JVQOB71R +uBzUxNgJeWFFegurOUjxRlJN/nIXyO+pXR7ZwUGV3Xp2DmK7IOzyhFrkKAep +dtAB0WO74GXd2hApPhoxzp8tzOl2hSG3bsFJcRpd5v+xMqPRDYLiEq5PK9Ko +3HxVZ/IDd7hatO/e4DIaZa09KfWnwAPKO4ws44xp1PopL4WR6gl2rrsLxYFG +ZfaXtMIPe8FVxdtF3nY0Gg/ZwRNKeEOWWcP28640mtqiu5uy8IE2tZN81kwa +5Y99/Bm5xhceOW5qjQuhkdu1PJa3qB/YjTcnnNxPo3ultr4LjvmBy1ePz1Qi +jcyU3vw68csPtE/MHVc9RSPN7oDO14H+cNHPyf/iORr1iexxvNTrD6GmzVp6 +l2jUlubAsnZhAt/C8DcpOTTKjMkW2dfGBNnHLieeFNCopm7+F8uGBQbpkWqq +JTSS8IJjjCoWKFeo/nAsp9HSxU9blWtYEPl0/DuBbdhiv0SwjgU6batbD2A7 +b/C89aGBBQ9PjkflYGcqR7+Ie86CQO2NKtPYil9uSzz7wIKr5VFfsypopOUj +n+U1w4KcZjXVjkr8Pn5UfrIxAdVTC3XUq2l04yId6bAGu3RHwmrsxe0Tm+RN +Cbi/P6TFHJuymunIX0+AqI7gZiZ27goe3pbNBJy6cuvf69jiM1Lu0tsJ+Gyb +z6Neg/fjtMmi7BACpPtWXlhcS6PtT9d2BITh+d0DAZrYdTzrsg33EjDNb61v +hH0xcpPJoygCVtjOnnHEdnC39u+PJUDi+OLGE9gPtNwfrDhJQHCT9PtZ7LTq +Q4GVNwgYFa4ofldHoxCjC2Yx+QRkzJXd6cW2u1WyyLSAgPGtFbk0tvCFgVsV +RQQoqNYGCT+kUXKE03D5fQKO+1WTG7EP6WrtKXtEwCPpUpVr2EEXXgSXdhGw +z9440beeRjbiAxsiuglYL1fJswd7eTKPmNE3Al4eUY+Kxh6IMCkq6SeAOXJt +zWlsf4fssbujBJy5aa5Xhe0mEBl65zcByopWL6QaaGQdqRheKMcG05IWqgL7 +UXbKtowlbLhR/b3hEfaGlgmtGEU2vObkpbzENtR+8dFClQ0eykL937AV3sda +fNJmw+IamynRRzQaWfdFTtiEDRNvZpg+2Gf4rtYG7GDDAXMqeBpbeJVolr0L +ng+VEfPYRz1jIhiubGj+syhIqJFGMfedls17sEEi09xAEduf5D37D5MNCs0j +AhuxGc1M4vFeNih/PjqfgP3+rLaIZjobyo+2is9iFyOx3YNn2SCvYfKctwnn +j002FZ1jQ8XHsWghbCObpnjTC2zQzdxVKIudxsOasL/ChhPOM/GrsLeEXf0Y +U8gGzp9FjX7YKirH12wqZoPJK7KUxJ5sDju34C4bfBUlzgdjX9dB9mn32LDQ +G4xjsOe+fKnPqWLDpZ0KnWnY9+2U8l89Y4POwS2ND7BP/eYTyGxmQ3D5su91 +2Mz8YX/3FjZsbbT/24gtyV+l1NfKhtrHpOAr7OBqtzO/3rEhsq8hrgdbU++f +aK1+NqSRL4QEH9Po9/u49qEBnPffSz9h7LZktuGdQTb4j4oXimPH9xgPm42y +QfSCvbI8dmdWu7fjDzYYmpSylmFnLJSyOshLwsuRjtNW2DUTXzyjFpDw9h3r +iA329y8FEaECJGx0Ewqwx95w3/IqcxEJC/PTeVywB/xiZrdJkWCVmRnFwpa0 +s5K2kiEhG54Mkdjr10rrIlkS5mqFHYOw08UKdzEUSLjc3zwUzh2v+lqipE6C +5HY1vzhsMq/wmawmCc97u1wOc59PP/BVQpsE3W/F65O465EyYvy6JJSKJLw/ +zh2Xsd49akjC5+YPjuewq/7KJAwYkbAmcPGT89j9Q93nu41JGAnx0c/CXld/ +sLHDlATbJuXnl7D7gotVa4GE7cUbLPKwxd1iTSo2k0DG95vdxDaz2GpXYonX +k/hv6S3sNIVvB/K2ktD/cEVdIXYl/5307G0kpB4T3FeM3cuJvXnRjoQh/zGl +u9imT2TfnnYi4dXdLrN72MySbyPHnElQ7hy8ex/79KU7fEd2klCU8Fe+HPtb +hI1htBsJZQ9syyuxxXzkrMM9SPglnjT2gJtn0+sd5EWCBvPx4mrufLW4Uz5+ +JEBmEKOW20d423U3Jt5PeKlXx82bknvgTJCwN2md9ENuXk9vqx1JQvrW0iGu +TVvuDmzZTYJmrHFJPbdfRdwcBJGwU6hhdwM3//q2xeuDSfjU5Sr5iJt/Wn6F +SSgJA9TPm1x/i+kzXxVOgr5e7qpGbFGixE03goS+JPebXK91jA/TjCKhnl4i +0cTNX2ebohKNvwfyG8l1qvaSy/IxeL2usmKuyyX770kdJOGv47kBrntmS5pF +DpFQUX5Q/DE3/3t8j0A8CTXiwTpcr3lj+3M+gYRml4CVXP8PJ5hEEA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.9535348896408273, 1.0482837498324096`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.9535348896408294}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1684,7 +6411,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.9887929549829141}, + AxesOrigin->{0, 0.9535348896408294}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1712,7 +6440,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9535348896408273, 1.0482837498324096`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1720,9 +6449,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991333813212965*^9}, - CellLabel-> - "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] + CellChangeTimes->{3.991333813212965*^9, 3.9938508965314207`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"cdb75b53-843f-43a7-b091-3aef1801d8b4"] }, Open ]], Cell[CellGroupData[{ @@ -1737,7 +6465,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -1759,8 +6489,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1785,372 +6514,230 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849261714945*^9},ExpressionUUID->"24fa5db0-1063-354a-bd60-\ -c117a27ff3e1"], + CellChangeTimes->{3.991849261714945*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ -\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 252, 225, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813432829*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.964151643417257`*^-270\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993850896892654*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +In[95]:=",ExpressionUUID->"970b1ff2-db7c-4b4c-a3e1-3b8b1a281e4b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ -\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 252, - 226, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813442087*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6619699393421566`*^-282\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993850896900194*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +In[95]:=",ExpressionUUID->"15827d3f-72bd-4a83-9653-834cd59010ae"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ -\\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 252, - 227, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813450123*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.318497875812463`*^-295\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 11, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.9938508969064617`*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +In[95]:=",ExpressionUUID->"a998602c-ecc5-4435-84c0-4acb8ba06896"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813469118*^9}, +during this calculation.\"", 2, 95, 12, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.9938508969122467`*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +In[95]:=",ExpressionUUID->"faeba482-a823-4c72-874f-aaa151320839"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4lN8XAHDZl8hurCGULftgxsw5iGzZkhCRtQjJGopKlkh7IRWSFiUk +ZlD6UtoUIfsua7IUQqnf/P56n89zn/e595x7z33PK+cd6ujHzMTE1LKBien/ +z+WBd68U0gupHzmHLPd7O1DbbxGOGXedgsAoF/qzrxqAIs3ehK5L4FS3UfXQ +V4Ao+4edLF0FMHLVcbfKVzsQmBW7tNpZDndOhRbdH/WEwVrb0MXOepAtudw7 +MBwK5grT/QudreCXryvS2ZMAq536V+c7RyAqq+F2x4vz0GB6r/BzwU/gmWf6 +NmaZB1KD9HFvtXUwzLrOJ5R3D4QPez7kMGXBTnKL7l2tElDhuNNov5cF1XgC +As/alAAWjI9kB7Gg4eCuX14BJXC4K1hS7QoLCssOTg3nlsCrHfEZ9mMsGGcb +tqLF8QQipLNDslNYUWM4V2RD9xNo+9SqrdrEhpTucrtUWilc0jKvsd3DicHl +uYq+BuWg0eu6k3KQEw9VLF0VMS2HpqTgNtU4Tozc9/hy3a5yYO+68o0znxPF +S9eV173LIe7EqGTDDCeSHPP9Zc6Vg++HxHj9JC60fHvJaXmwHIh+NRTZp9xI +/alTMZ7wFNr4mt/xNXJjzDjH2ztpT+EIbWTPehc3Kh2W4XK9/BQe8nCH9Pzl +RlnmQ5yPip7C5nKXW1eseDArZr7sZ9NT4Py39JdzhAfz/V9FchAqoDtL8+UC +Py+eP7m8pnG/AnLaijdFKfIi77ve2ftlFeDGt9VzzZAXjy/NuhJqKqDvtPRf +Zh9eTBr0S+/5WAFDIdxGws94sTDipsjMjwqY3PG1iujKh/T99k+Myc9gZf76 +k7j8TTjeMFN579UzoKsK/fv3bBNmNHkrfWt6BrH+mbZJ7zdhyaz0O4Uvz+BP +b9L3jJ+bkD73MT927BkkjtJEmuX5MTvvSngpWyUkfbq7eyiCH1V+p9iY7qiE +9MKEZmZxAQyONJz9Q68EK91DgiJbBHBC8bLf6MtK4HzluGerugB+DPU3e/mG +8f6oYq+1McMZ98geXyohXr5p/MohAZSx2Dm/Zb4SQvIIf5WqBfApi+X66JYq +cMgtU7PeJ4jUnYPiaklVwK92I9TDTxCHrcXqBtKq4FNNUnloqCA+Z6+rTzlf +BVa9ew2unBbED/ItY7U5VWAi8de0v1gQ9Wgnbz8trQLdLKt9oX8E0SXMQ6Kt +pwrEroymXb4phEFdsKN/Kw0Iqs+SVooYDmdz3qRGA4n65ASPUiGMpAkKG2rS +QGZeOXJrgxD2mn27Hm5AA0WbI141k0J4KW+yLcmCBjqs68RRHWEM6frUQQig +ge6NT1oWFGE86lfM2xhIA6J2ntpjc2FkaUv8GxhCA5KXqXy0qzAmrsoJ5kbS +wLg2jZcnQRhvTp6VuXGaBnYRol+13wujiCzva95bNLDnmRy43iaM4XXiMvr5 +NHAsoHf/6RPGA493m7oU0sC5xb25cU4Y9ypE/zr5kAYeaneq3UREkFk5WTW8 +kgZBXzUunvISQYM6k9WPTTQ4HLchY+KQCLK9qadFNNMgRLAt2SZcBCfaWfYJ +tdLgKEbFiyaL4CY7FluDThocy60NeFgsgk2CcRJywzRIcbKkti6LoPEO0brQ +n4x8VXySYN4gilpZRqENSzQoEXL6pcUjij60yxW8KzToaN1fenGzKDYcEOdM +/kMDBYcIeQcLUdz74qYwOxsdaKWrfxMdRVEkjlrKx0EHG/6E3lJ3xnimyiIv +Fx3Cm9Ou8IeJYu6rnhPzG+lQv+s2e0u2KMp9SB43E6aD82OF0X93RPGE9E4e +VlE6TG98WKdRIopv1j/M0MToINBUEXO+XhRHrRrn2SXp4GX1ftr2mygyd0hY +6MrRYfGB3ZsTS6J49l30rfvydEjh+nKn5J8oLpYffCOkQIeSt4PufMJiyN/i +kPtJiQ7r5kufPhqJofL00YIOVTpcKIotXjcXw9iH8f0b1OmgwM6Uqu4ghrNU +fWaF7Yx4XnMbn/MTwz6fEuFdmnQYUrgg/TxUDBMdQjmdtBjxJYmszRwTw+hX +UwsO2nTIMZV9apMphmJC1uXaunTYfufu+fgsMXxgtf+8iB4jfmbVw48KGPNX +ng6ZY3jqPz3FjVVieE33CqTq0yFermaD0X9imM3Xpr/TgA78J3Eg6IMYeuV/ +oK4zbIDW1z8MimEw+5sztiQ6NN1uCf89JYYvI3c0TTHs9W+PveqiGKZ8OrI9 +nszIz/5etX1/xTDB/eoTNiNGfl54caVzEjBrO9PuZIYlZMbHqgUJqCbIKvWX +4ZLjQfXTUgTUyVzhDabQwaR//pbEVgKeHzBUa2O4wygqzkqLgJpz22I1qXQI +zP29N5ZMQLe9qr+TGF7/naj70IyA752Ky1sYvrCPXaDHjoBDjWKFQsDIb036 +dy43An5R/tq6i2GahMB7Q18CDlxMNUlg2Cb2WtGhEAI6FZ1cvsfwULfk6ewY +Arbk2v94w3C4Yb7nu1MEdNeNMxxk2CqPb9E6g4Df6Z5S3xmW54hP/XSVgBP3 +Z0N+MrwaPCXlcJuAPdb8uj8Ybml3Lmu7T0CCQ2nIFMP3ya/MnMsJaPjmuVw3 +wwkFWj1dNQS8IK5q/x/Dzly3Q/a9JmD1xtk/+QxvP7KRZeATAflr/qnEMczW +eey6VxcBVS+699sw3EeZUB0dJqCDFauYGMMVhU4v/b4RcH1mtaebkY90nnqn +yUUC2r4xVbvKsPdRjanAvwSMC/rGa8kwqTv3+HcOcdz1aP3UEiPfk0XRRT8k +xNEv/q6OAcN1vGOkSAVxXG/zjfzE2K9rEY7Nv9TF8ZnDiLMHw2Ym6it/UBz1 +gzLZ/Bj7L/UgJyPBShzFzZi6+xnnY3ETpxyzkziqV1e62DFc0D9iyREgjmah +OYekDOlwbIf9QNoRcbSb37IhhnHe7IufH90YK467Ux46NDHO57+YrBsC58Sx +fm+aiieRDu7Ctt8ln4pjQKym6HYdOujE1Zy8VSuO0Rs1W+wY9cA9sk1UrlEc +Q6U1PQIZ9UJ/wgJK3eIopHV4PU2DDqLW9Aua/8QxwlSgIpxRj9/LlBSfckrg +PUWKj7sKHV4RrtD1BCVwm6wKE1WZsf/jISMkRQm8Qxngn2HUc8tJBV0zawms +rDj8/SfjPrg3efHtGycJ5F22CiyUpcMJu3/uVvsl0PKF1/yuzXRQl+45Yxcm +gc2x8koZUnQ4Szvf6XpdAn/Wy+c8Y9w/O+bWYkNGJXD3+uTzOsb9dcziisp/ +MxJ4HtYseDgZ9ZGv3iO0LIG3FPe72rPTgeDkZUjnlMQW216xN8x0mKG9/sWy +XRJ901wOB/ymweVTFyKyYyTxb5xUYtQ3GrztVVaYOSmJeeYaG9ynaPBHt6GN +mi6JL3dnAHmCBv4TS9pfb0oiMSCEeWKE8b2x2bewvUESL8uZsy1202BERCnk +Fa8UziyeUJ5opIFYaJ20mJgUnnn3WyPwFQ1s3rp8PCQrhV8zWtQn/qNBZWy6 +2iYdKVTmtpRprqXB2cH5aVcXKVxGO9LechpoP6gJmCuQwtwmnzvWuTQ4aeRw +QMJAGlfZvOmDQTSw2H/rh76JNDKzatd7H6QBX+K303tspNGtYwMO+tIgt+FM +0QUvadSWOV/yyoMGNKvqb+xp0ih+1n7U2I4G8y5bon52S+P0bzkBbi0a7I9c +OtsUJ4M0DWHOpbkqULxuIjV9Rga7jubHln6rYuTv/GOOCzJY92md1X+iCmL/ +KLeYFMrg1hdjkXUDVXD19H4RepMMBjlzual9rIKmi29u35XejI9rgmt/3K8C +Ukl2xYm6zTi6rFXs7F4FOzo/rc++3YyP2FhiK/ZWgS0T607P1s1Y9sGnknd3 +Ffg4hnTD2GZsPCyZVm5ZBeZxcgmJbLIIi0c2NRKr4Mjm5TvGqrKYcZ5+iMBf +Ba8Cbn9viJJl9IOD9NS6Sji8spD4llcOlTp/0NIFK2FVlX9AfY88PplM3GEf +UgFGxY/yrl3bgjbhLjH0onJYELTycq5XQNMJtqH0yVL4muHlfJRDCX8yuTVb +/XkMlnPRlmPEreh9gMRiFP0QZnw4wysStqGKkH3Pz09FjH5fjDmlXhlT/vKs +iIbfAcGPSpmlcyrY3n5V9f1FRn+f+sSeSFTDns6FsMWTNyBL1ZBfKEAdfxin +PlrqvgbvJYz1fl7cjjTYxnK5+xKQpOovaHRoIEft6Sd/yJkwskVhYKpHA2OK +alMOy2dCmmqyauGgBspPJ47OcGZCF8mqkTClga8zZQQ2d5yDaNfW3xv+aCDT +udanFmHnwM06TGeaXxPPXUg6+ehhBlxLZVwHRE0k7NpcekE5HfhYCiIOnNLE +50bZspecU4F9tW73QpIm9nmormyDVPg72699MkUTWTuCMz9vTYW5HvGFvAxN +jP1n0LV3NQVayi8GD13TxEvEi5wGN1PgkvdJf89iTby7WZQPJ5NBtN7LxaNd +E2sV0y7op58BmZObjVyVtLDvyrsMZpbTUBLOKd+/TQvlBQt0FeZPAdV/geOA +qhbKLb1g39N/CjysG9oOamrhVi8X7q9VpyBXJCAohqSFRQJN5ZXBp0D8YUnO +dVstXLgUdGdr30kQbqOsfonSwvGjPI+ZXiUCl6J7peMbLZTyf6pcFHccAsXB +qvidFhZeNxrj9zwO73nlB1iatHDqivalSybHIWN5gu1Zixbyma9m9HAdB763 +4XvEerTQnlf7Vlx2PAgGpS/2zmihoM2txeXaOJAqq9b2E9RGaf3snhjhWNhO +EX8S7aGNvK+zVoeZo+HplkO/mb200W1/p8KTqSgw4KbvzPTWRngYcuFySxSY +dLoMFQZoo76L91T+rShwDssSaA3TxhUD68lWchQk3BWLUEvWRvM1SeeY2Eho +4RU1HC7RxpyWHXd9OCPg6IBggxWTDjbzlat6+YTB20b35w+ZdTBM6LXoF/sw +kHlSVMXNpoNTtNV5N2oYvE8gPXrPpYPR+aKm2eJhIC/nfdVKSAdf/9AQGGw5 +Ap99ygKslHRQ5bXZ7ySTI6A5ZbfRykYHKRe3G7b4hEDy52z2h7Y6uJXP2eyt +SQj00UeZuB10GP8HBLNBuRBIPRu99G6PDmb3hrw6NBQMQ6q3Byw9dZAt3H3n +7P5guBAyW2p5VAfVIq4X5h84DHM/M/ZYZungIvebPpHjgdDXle98M0cHb3x+ +c9nJKxDeP6/cu5Crg290XD1LTAOhMGXINTtfB52OTI+UcweCm6Tu/qmHOji+ +e9p3PfsQvDbp9U97roOBnM41yc8Pwo2LyjHvRnRw2XEXo00LgNQo6jHpMR0s +KvLwdfvrD1H7dseGTehgXM3+7O9f/cFe8Xi8+IwOLj07d9aj3B/Y6S2Jh5Z0 +cL5ja/gBW38IG4pO4+LUxeQr6W8nz/rBTo3GHEt1XfQK6mk+KuILLuwWTi0a +uthBPHx44Y8PBPa/492rrYvFYfY7zn71gcz0j4m++rqoOkix4q7wgY6Jdv8E +Y12coH/ZbuzkA755o9rP9uiicc56SlS2N5wS2PBB9oQudnoq3/YhHoArk6eS +7iXq4q9UyW1/ZQ9AUR0rdftpXcx5TdlaynMA3gdzlpFTdTG0/Lu227AXCLzf +dN35ki46xIxvf3XOC/JOyfhkFOnimFAnrfqLJ7z4Sf7965MuCgZ4vtkW5AH5 +TVXeuz/roke3mfZBCw9IuqvzvqRNF4PCWpmbFD3Acq9qtl+XLur47dnDNOwO +7dUS+m3Dupj17N5Ogqs7TJ9cPVqyqIv+PNZDU3b7QJS/atpXQg9/j2+fJe91 +hdVJbceXUnqYPlf38oOBK/T9V0KX3KyH7XYl8vESrpAfXpTaukUPDRI5NlMH +XECt86oSquvhD56KRtMAFzC5FeEtiQyfcIs1StgLIWraPZ/99LB13qBcqnEP +RP6SWPM8qId/KTzKNg/2QHw9i8RsoB6eZ82pvpmxB9JdvrhyH9HDt4NRhUW7 +98D9pJhuk1g9/LOvpMN61AlG+l50Pc3UQ3XJaqVGTidwPmfdebVKD83vODlc +DnIEDxfdX1uq9VDKzi3ytaMj+G6RFiuv1cOgiVfZIiRHCKfPOn/6jzH/a5WA +TVyOcGHsYgd7kx6C5YEyv/sO8J7S9SV6SA+PbE6knpqxB8qsb7srFxGLYlfM +nITsQLRmZ0EtDxG/W2/NvfzNFmZTVI5s5iPiHOejT0yvbOGW3DzPmCARdSzz +BHwjbeGvU5zpESkiRhlGi1j27IK6movlyRpEpGaV1fo9sgHjtBcXnu4hYpVk +F1/lESuQcM7fL+pCxEJazIibrRX8kE9SO+ZGxJtPD0hvU7OCglrLt1RPIloH +pWwhT1oC83z7v3cHiTjh+32B6m0JDc7fQobiiGhWGLgxx8MCzBQIu3gLiLgo +a1qTesQcKr6/lvMtJCIpmpXt5G5zUKgKX64uImLi2/uHbhDNgdWq+fbBYiLe +f6z6S2/dDOpDk380VBBRrPG04990M6DWLF6PfUNECY7SsedPdgDR8fPIxAwR +t0xVGvNuMoUiyYQq6hwRCwTOs3Msm4DImFrG1QUi9hA66DL9JrAYnapnukzE ++aungu8Vm0D5TUi99Y+I7B4CuRJWJqAx9Vh9j6A+NptoswVnGMO2xLMx9fr6 +eKdqnWlOEaGWfJfNhqSPF390qubwIdj/qrv0xUgfhc9d3vl2FiAmZOnRpLE+ +8li8+3LvEsBbd69hPht9zPU92kPpp8JBQ6LVPi99XBw50J9ynAIPfgxLLqbq +4ze5d9kVkySglvy5fzxdH732B7zQ/48ErYfEiByZ+qir1P13LpsEa0M29hKX +9fE8c3v7X2sSWDVXJeFNfZSLjJ/NLDeE6eJz3zPK9DHmsUCESZoBqPgZ1in2 +6ONz35II+31EOC9vu3a6Tx9vGXN26hsRYXHQW29kQB9DIq+umUsT4YVbRvGt +UX38Pebb3DuoB472g9fFvutjt6b5yx5/PThGPnOEi8kATQrOt7LH68Jbgc9y +3xUNcOlLvtrUf9qg3jzmbr3NAB/Mc7eE39OGSxlr1x+oGOCBny86Zc9pgzuH +Ap+/hgGq1O0LH3bRhrk/UWsDBga44+qZhJUFLRCdlGprsTZAsmPU+X0qWuD3 +4mBSRZgB1p5tPfjFTwNmg6ejzSIMsOw+c/92PQ2IkT4c1BFlgDNLQksfWTXg +bHyo40qcAWbxKj3oLdwOpaQoWaNkA9yZQzigOqkOfypP1zbkGOBb7Ulnuzg1 +uPTk1mJrgwHGJyyd2vtZGaQ8ZSd9Gg2QT4bv2Iv7ynCXr6B38a0BEo+ynfdK +VAZa8N160U+M+Kg5I06aytCv+uiCWxdj/damFUuXtsG2+3S1kRkDFJz5ePqL +91aoy2v3XRAxxKcXYx/zqCrCkI2cZxTBEJ8XnJEa5VIEptVg198Shkho6mqY +nlQAEwcOWzZZQ6wvd6xNu6cAjRtI+uIqhrj28G7QPyUFaPK+zWVMNcSU9r2H +L2/fAj0KgSUX/A0xw61mhL5fDn63VN4XOWSI1jZzyvKmciB1nOVOTpAhtqk/ +MHy6VQ48vuReLzxiiF5fyzpsF2Rh6ExzIi2WMR5+WsA/WRYmxnV3D2UaYqjT +sM+H0M2weP/fL40qQ6R+XStICJaCcWfzvDS6IQp4J9S+MZGCLtZzFqM1hmhh +2FJqTZCCGi+J7GsvDXG3aMMy2ytJOEXQI62/M8QtV1LukmUkgT81MP59nyE6 +NBHEAvvFQS3gC5MfMwnvJl8b7koSAxkRqQcvWEl4rmf+K+8BMeBv8HYgcJBQ +par4QyRFDH7KzOd/4CFhu9lVw/5lUaju4DbVFiHhQGuAL8thUbAwxzP/tpLQ +7vgJtwhPEfBRLObK2UXCMiV3ss4hIYh9vT9QyZ6EG49Orb62EIILfoIfyh1J +mODzPih9mxDU3j2W8WEvCceb75o9nhQEYSWLTesHSLguTvy2I0gQGpXGhL2i +SKjMZb525pgAqGzbLKt0m4T29hHao0c2Ab5tTSzPJ2EU7wOL++RN4HwweZha +SMJP/DVD/7FvgtP3vxfsfUBCCx7CvfmbfNC3jdH5PiXhNecJBY0WXshUdlWd +eUNCtuLMqkbTjbCgcplYPk/CnqCNK0RfLuhqQjOhnyTsrty27yyZC16GzO6O +WCKh+zHjnxJCXJBZbhlGXCOhpfqh4B/1nKBCYnpUzULG/vcStmGKnOBtGSzX +IErGjo9EY/8ldmgP2Lmx3YiMeVseSfx9wQo1XEsSekBGi07CA7ebrFBQXKB8 +zZiM5JWzadNxrHBkbt3cxZyMlz0XpO8YsgJvdMXJPjsyvmB1qgqtYgHzZLlf +X73JeKlIYs6glhlohb+Hl1LJONt9evLJJBMQTSN+WaWTUd3r9WTcRyZ4Njyz +Me8cGbcMqW0NK2eCcpkBfatLZPyYMxDZEc8Ej7Jenrt1g2GK0aZkISbIyzhj +uLOEjMw9mHn+wl9qWsSmi1ltZJSoOWBfduM3lVMotej7FzIqkyQt6kN+U5PL +mGpNuhjr83+3g2Dym5o0uzA+00fGY3vH/rs4tUY9cbDdyHicjArXLoqXkteo +R92zJ6dWyPisucjJfGaF6rZjC5JljDBvU5rA7vhl6no7J1+DrBHKq4O2mtMy +Nc9vttdqixFmNcWIWqotU8eT6dFu24zQ1zPwhE3/EvXoO7snx7SN8A+5AkNM +lqhnbeNlaOZGqKd2TqGBsEitdvnyRzfUCD9Jk03XfyxQPaaq39eGGeEc2zRT +eusClSk2L2tHhBEO4j0T+/IFqvmNIF2nY0Z4X294NuHoArW1f8Ph8NNGmFrM +ahe4NE+d9t7eW3bdCPnL1lY3s81TJYNT6NtfGuGJoxFtNy/PUDP/+eul1xvh +ytcTSy3eM1TmS+ZlE6+MUFXurvBu7RnqdCXbg7x3Rijz+FugSes3ajVTUpZg +mxEebClKfCnyjep2JTF6ecwIOac46O0Pp6hZNcf0XvBQ8P1NgRgH7gnqRlvX +Mgk+CnZdaOFNHRmnJg4ZqEfzUzCzoaTzX/U49SDbioKmCAUFxSKjyg6PU/Xt +ooQLZCjIvVGWXbBtjNoxcvTnGS0KTtyeCgwv/koV4T5ctmsvBRcdP8qppo5Q +C02Px867UjD53QMiv+8IVft4pulldwpW2UluMcARqu186ZeuAxTcE7GjzHZ1 +mJrcsbTqc5iCYSqxAmdDhqkrBQkmsScpGLnM+6zTd4jaQ77cVlRMQTmFa5YN +v/uoByMLcy1LKKhz8aHijfo+6nLJM7+ZUgoefyVtPJDWRxWU7/qlVUnB9dRO +uCPeR7XmlJZ6/pKCzLb1X4WovdTa9iLfti8U7EtbW5nL7qZa8dHUo7ooGLtx +T6BiQDe1a+e7ZUIvBQ0dlj5U63ZTF6u/pe4fYqxvf04F8+cuqnq+5uOpaUa8 +nhEPFnm7qLU9xlEZ3ymoFE/YIjbQSbUS3g0a8xRs9qlxvFLSSfVPifwcsUTB +XSz+1rn2ndTFl8k5YisUDHB/06oo30k9tXbdp3qNgtmnOzM4Fjuo/LoP1DzW +GfMfPNCLjR3UW8HVS//+UXBE1lDuc1YH9X9CgPto "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2164,331 +6751,186 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== +1:eJwV13k4lN8XAHDZl8hurCGULftgxsw5iGzZkhCRtQjJGopKlkh7IRWSFiUk +ZlD6UtoUIfsua7IUQqnf/P56n89zn/e595x7z33PK+cd6ujHzMTE1LKBien/ +z+WBd68U0gupHzmHLPd7O1DbbxGOGXedgsAoF/qzrxqAIs3ehK5L4FS3UfXQ +V4Ao+4edLF0FMHLVcbfKVzsQmBW7tNpZDndOhRbdH/WEwVrb0MXOepAtudw7 +MBwK5grT/QudreCXryvS2ZMAq536V+c7RyAqq+F2x4vz0GB6r/BzwU/gmWf6 +NmaZB1KD9HFvtXUwzLrOJ5R3D4QPez7kMGXBTnKL7l2tElDhuNNov5cF1XgC +As/alAAWjI9kB7Gg4eCuX14BJXC4K1hS7QoLCssOTg3nlsCrHfEZ9mMsGGcb +tqLF8QQipLNDslNYUWM4V2RD9xNo+9SqrdrEhpTucrtUWilc0jKvsd3DicHl +uYq+BuWg0eu6k3KQEw9VLF0VMS2HpqTgNtU4Tozc9/hy3a5yYO+68o0znxPF +S9eV173LIe7EqGTDDCeSHPP9Zc6Vg++HxHj9JC60fHvJaXmwHIh+NRTZp9xI +/alTMZ7wFNr4mt/xNXJjzDjH2ztpT+EIbWTPehc3Kh2W4XK9/BQe8nCH9Pzl +RlnmQ5yPip7C5nKXW1eseDArZr7sZ9NT4Py39JdzhAfz/V9FchAqoDtL8+UC +Py+eP7m8pnG/AnLaijdFKfIi77ve2ftlFeDGt9VzzZAXjy/NuhJqKqDvtPRf +Zh9eTBr0S+/5WAFDIdxGws94sTDipsjMjwqY3PG1iujKh/T99k+Myc9gZf76 +k7j8TTjeMFN579UzoKsK/fv3bBNmNHkrfWt6BrH+mbZJ7zdhyaz0O4Uvz+BP +b9L3jJ+bkD73MT927BkkjtJEmuX5MTvvSngpWyUkfbq7eyiCH1V+p9iY7qiE +9MKEZmZxAQyONJz9Q68EK91DgiJbBHBC8bLf6MtK4HzluGerugB+DPU3e/mG +8f6oYq+1McMZ98geXyohXr5p/MohAZSx2Dm/Zb4SQvIIf5WqBfApi+X66JYq +cMgtU7PeJ4jUnYPiaklVwK92I9TDTxCHrcXqBtKq4FNNUnloqCA+Z6+rTzlf +BVa9ew2unBbED/ItY7U5VWAi8de0v1gQ9Wgnbz8trQLdLKt9oX8E0SXMQ6Kt +pwrEroymXb4phEFdsKN/Kw0Iqs+SVooYDmdz3qRGA4n65ASPUiGMpAkKG2rS +QGZeOXJrgxD2mn27Hm5AA0WbI141k0J4KW+yLcmCBjqs68RRHWEM6frUQQig +ge6NT1oWFGE86lfM2xhIA6J2ntpjc2FkaUv8GxhCA5KXqXy0qzAmrsoJ5kbS +wLg2jZcnQRhvTp6VuXGaBnYRol+13wujiCzva95bNLDnmRy43iaM4XXiMvr5 +NHAsoHf/6RPGA493m7oU0sC5xb25cU4Y9ypE/zr5kAYeaneq3UREkFk5WTW8 +kgZBXzUunvISQYM6k9WPTTQ4HLchY+KQCLK9qadFNNMgRLAt2SZcBCfaWfYJ +tdLgKEbFiyaL4CY7FluDThocy60NeFgsgk2CcRJywzRIcbKkti6LoPEO0brQ +n4x8VXySYN4gilpZRqENSzQoEXL6pcUjij60yxW8KzToaN1fenGzKDYcEOdM +/kMDBYcIeQcLUdz74qYwOxsdaKWrfxMdRVEkjlrKx0EHG/6E3lJ3xnimyiIv +Fx3Cm9Ou8IeJYu6rnhPzG+lQv+s2e0u2KMp9SB43E6aD82OF0X93RPGE9E4e +VlE6TG98WKdRIopv1j/M0MToINBUEXO+XhRHrRrn2SXp4GX1ftr2mygyd0hY +6MrRYfGB3ZsTS6J49l30rfvydEjh+nKn5J8oLpYffCOkQIeSt4PufMJiyN/i +kPtJiQ7r5kufPhqJofL00YIOVTpcKIotXjcXw9iH8f0b1OmgwM6Uqu4ghrNU +fWaF7Yx4XnMbn/MTwz6fEuFdmnQYUrgg/TxUDBMdQjmdtBjxJYmszRwTw+hX +UwsO2nTIMZV9apMphmJC1uXaunTYfufu+fgsMXxgtf+8iB4jfmbVw48KGPNX +ng6ZY3jqPz3FjVVieE33CqTq0yFermaD0X9imM3Xpr/TgA78J3Eg6IMYeuV/ +oK4zbIDW1z8MimEw+5sztiQ6NN1uCf89JYYvI3c0TTHs9W+PveqiGKZ8OrI9 +nszIz/5etX1/xTDB/eoTNiNGfl54caVzEjBrO9PuZIYlZMbHqgUJqCbIKvWX +4ZLjQfXTUgTUyVzhDabQwaR//pbEVgKeHzBUa2O4wygqzkqLgJpz22I1qXQI +zP29N5ZMQLe9qr+TGF7/naj70IyA752Ky1sYvrCPXaDHjoBDjWKFQsDIb036 +dy43An5R/tq6i2GahMB7Q18CDlxMNUlg2Cb2WtGhEAI6FZ1cvsfwULfk6ewY +Arbk2v94w3C4Yb7nu1MEdNeNMxxk2CqPb9E6g4Df6Z5S3xmW54hP/XSVgBP3 +Z0N+MrwaPCXlcJuAPdb8uj8Ybml3Lmu7T0CCQ2nIFMP3ya/MnMsJaPjmuVw3 +wwkFWj1dNQS8IK5q/x/Dzly3Q/a9JmD1xtk/+QxvP7KRZeATAflr/qnEMczW +eey6VxcBVS+699sw3EeZUB0dJqCDFauYGMMVhU4v/b4RcH1mtaebkY90nnqn +yUUC2r4xVbvKsPdRjanAvwSMC/rGa8kwqTv3+HcOcdz1aP3UEiPfk0XRRT8k +xNEv/q6OAcN1vGOkSAVxXG/zjfzE2K9rEY7Nv9TF8ZnDiLMHw2Ym6it/UBz1 +gzLZ/Bj7L/UgJyPBShzFzZi6+xnnY3ETpxyzkziqV1e62DFc0D9iyREgjmah +OYekDOlwbIf9QNoRcbSb37IhhnHe7IufH90YK467Ux46NDHO57+YrBsC58Sx +fm+aiieRDu7Ctt8ln4pjQKym6HYdOujE1Zy8VSuO0Rs1W+wY9cA9sk1UrlEc +Q6U1PQIZ9UJ/wgJK3eIopHV4PU2DDqLW9Aua/8QxwlSgIpxRj9/LlBSfckrg +PUWKj7sKHV4RrtD1BCVwm6wKE1WZsf/jISMkRQm8Qxngn2HUc8tJBV0zawms +rDj8/SfjPrg3efHtGycJ5F22CiyUpcMJu3/uVvsl0PKF1/yuzXRQl+45Yxcm +gc2x8koZUnQ4Szvf6XpdAn/Wy+c8Y9w/O+bWYkNGJXD3+uTzOsb9dcziisp/ +MxJ4HtYseDgZ9ZGv3iO0LIG3FPe72rPTgeDkZUjnlMQW216xN8x0mKG9/sWy +XRJ901wOB/ymweVTFyKyYyTxb5xUYtQ3GrztVVaYOSmJeeYaG9ynaPBHt6GN +mi6JL3dnAHmCBv4TS9pfb0oiMSCEeWKE8b2x2bewvUESL8uZsy1202BERCnk +Fa8UziyeUJ5opIFYaJ20mJgUnnn3WyPwFQ1s3rp8PCQrhV8zWtQn/qNBZWy6 +2iYdKVTmtpRprqXB2cH5aVcXKVxGO9LechpoP6gJmCuQwtwmnzvWuTQ4aeRw +QMJAGlfZvOmDQTSw2H/rh76JNDKzatd7H6QBX+K303tspNGtYwMO+tIgt+FM +0QUvadSWOV/yyoMGNKvqb+xp0ih+1n7U2I4G8y5bon52S+P0bzkBbi0a7I9c +OtsUJ4M0DWHOpbkqULxuIjV9Rga7jubHln6rYuTv/GOOCzJY92md1X+iCmL/ +KLeYFMrg1hdjkXUDVXD19H4RepMMBjlzual9rIKmi29u35XejI9rgmt/3K8C +Ukl2xYm6zTi6rFXs7F4FOzo/rc++3YyP2FhiK/ZWgS0T607P1s1Y9sGnknd3 +Ffg4hnTD2GZsPCyZVm5ZBeZxcgmJbLIIi0c2NRKr4Mjm5TvGqrKYcZ5+iMBf +Ba8Cbn9viJJl9IOD9NS6Sji8spD4llcOlTp/0NIFK2FVlX9AfY88PplM3GEf +UgFGxY/yrl3bgjbhLjH0onJYELTycq5XQNMJtqH0yVL4muHlfJRDCX8yuTVb +/XkMlnPRlmPEreh9gMRiFP0QZnw4wysStqGKkH3Pz09FjH5fjDmlXhlT/vKs +iIbfAcGPSpmlcyrY3n5V9f1FRn+f+sSeSFTDns6FsMWTNyBL1ZBfKEAdfxin +PlrqvgbvJYz1fl7cjjTYxnK5+xKQpOovaHRoIEft6Sd/yJkwskVhYKpHA2OK +alMOy2dCmmqyauGgBspPJ47OcGZCF8mqkTClga8zZQQ2d5yDaNfW3xv+aCDT +udanFmHnwM06TGeaXxPPXUg6+ehhBlxLZVwHRE0k7NpcekE5HfhYCiIOnNLE +50bZspecU4F9tW73QpIm9nmormyDVPg72699MkUTWTuCMz9vTYW5HvGFvAxN +jP1n0LV3NQVayi8GD13TxEvEi5wGN1PgkvdJf89iTby7WZQPJ5NBtN7LxaNd +E2sV0y7op58BmZObjVyVtLDvyrsMZpbTUBLOKd+/TQvlBQt0FeZPAdV/geOA +qhbKLb1g39N/CjysG9oOamrhVi8X7q9VpyBXJCAohqSFRQJN5ZXBp0D8YUnO +dVstXLgUdGdr30kQbqOsfonSwvGjPI+ZXiUCl6J7peMbLZTyf6pcFHccAsXB +qvidFhZeNxrj9zwO73nlB1iatHDqivalSybHIWN5gu1Zixbyma9m9HAdB763 +4XvEerTQnlf7Vlx2PAgGpS/2zmihoM2txeXaOJAqq9b2E9RGaf3snhjhWNhO +EX8S7aGNvK+zVoeZo+HplkO/mb200W1/p8KTqSgw4KbvzPTWRngYcuFySxSY +dLoMFQZoo76L91T+rShwDssSaA3TxhUD68lWchQk3BWLUEvWRvM1SeeY2Eho +4RU1HC7RxpyWHXd9OCPg6IBggxWTDjbzlat6+YTB20b35w+ZdTBM6LXoF/sw +kHlSVMXNpoNTtNV5N2oYvE8gPXrPpYPR+aKm2eJhIC/nfdVKSAdf/9AQGGw5 +Ap99ygKslHRQ5bXZ7ySTI6A5ZbfRykYHKRe3G7b4hEDy52z2h7Y6uJXP2eyt +SQj00UeZuB10GP8HBLNBuRBIPRu99G6PDmb3hrw6NBQMQ6q3Byw9dZAt3H3n +7P5guBAyW2p5VAfVIq4X5h84DHM/M/ZYZungIvebPpHjgdDXle98M0cHb3x+ +c9nJKxDeP6/cu5Crg290XD1LTAOhMGXINTtfB52OTI+UcweCm6Tu/qmHOji+ +e9p3PfsQvDbp9U97roOBnM41yc8Pwo2LyjHvRnRw2XEXo00LgNQo6jHpMR0s +KvLwdfvrD1H7dseGTehgXM3+7O9f/cFe8Xi8+IwOLj07d9aj3B/Y6S2Jh5Z0 +cL5ja/gBW38IG4pO4+LUxeQr6W8nz/rBTo3GHEt1XfQK6mk+KuILLuwWTi0a +uthBPHx44Y8PBPa/492rrYvFYfY7zn71gcz0j4m++rqoOkix4q7wgY6Jdv8E +Y12coH/ZbuzkA755o9rP9uiicc56SlS2N5wS2PBB9oQudnoq3/YhHoArk6eS +7iXq4q9UyW1/ZQ9AUR0rdftpXcx5TdlaynMA3gdzlpFTdTG0/Lu227AXCLzf +dN35ki46xIxvf3XOC/JOyfhkFOnimFAnrfqLJ7z4Sf7965MuCgZ4vtkW5AH5 +TVXeuz/roke3mfZBCw9IuqvzvqRNF4PCWpmbFD3Acq9qtl+XLur47dnDNOwO +7dUS+m3Dupj17N5Ogqs7TJ9cPVqyqIv+PNZDU3b7QJS/atpXQg9/j2+fJe91 +hdVJbceXUnqYPlf38oOBK/T9V0KX3KyH7XYl8vESrpAfXpTaukUPDRI5NlMH +XECt86oSquvhD56KRtMAFzC5FeEtiQyfcIs1StgLIWraPZ/99LB13qBcqnEP +RP6SWPM8qId/KTzKNg/2QHw9i8RsoB6eZ82pvpmxB9JdvrhyH9HDt4NRhUW7 +98D9pJhuk1g9/LOvpMN61AlG+l50Pc3UQ3XJaqVGTidwPmfdebVKD83vODlc +DnIEDxfdX1uq9VDKzi3ytaMj+G6RFiuv1cOgiVfZIiRHCKfPOn/6jzH/a5WA +TVyOcGHsYgd7kx6C5YEyv/sO8J7S9SV6SA+PbE6knpqxB8qsb7srFxGLYlfM +nITsQLRmZ0EtDxG/W2/NvfzNFmZTVI5s5iPiHOejT0yvbOGW3DzPmCARdSzz +BHwjbeGvU5zpESkiRhlGi1j27IK6movlyRpEpGaV1fo9sgHjtBcXnu4hYpVk +F1/lESuQcM7fL+pCxEJazIibrRX8kE9SO+ZGxJtPD0hvU7OCglrLt1RPIloH +pWwhT1oC83z7v3cHiTjh+32B6m0JDc7fQobiiGhWGLgxx8MCzBQIu3gLiLgo +a1qTesQcKr6/lvMtJCIpmpXt5G5zUKgKX64uImLi2/uHbhDNgdWq+fbBYiLe +f6z6S2/dDOpDk380VBBRrPG04990M6DWLF6PfUNECY7SsedPdgDR8fPIxAwR +t0xVGvNuMoUiyYQq6hwRCwTOs3Msm4DImFrG1QUi9hA66DL9JrAYnapnukzE ++aungu8Vm0D5TUi99Y+I7B4CuRJWJqAx9Vh9j6A+NptoswVnGMO2xLMx9fr6 +eKdqnWlOEaGWfJfNhqSPF390qubwIdj/qrv0xUgfhc9d3vl2FiAmZOnRpLE+ +8li8+3LvEsBbd69hPht9zPU92kPpp8JBQ6LVPi99XBw50J9ynAIPfgxLLqbq +4ze5d9kVkySglvy5fzxdH732B7zQ/48ErYfEiByZ+qir1P13LpsEa0M29hKX +9fE8c3v7X2sSWDVXJeFNfZSLjJ/NLDeE6eJz3zPK9DHmsUCESZoBqPgZ1in2 +6ONz35II+31EOC9vu3a6Tx9vGXN26hsRYXHQW29kQB9DIq+umUsT4YVbRvGt +UX38Pebb3DuoB472g9fFvutjt6b5yx5/PThGPnOEi8kATQrOt7LH68Jbgc9y +3xUNcOlLvtrUf9qg3jzmbr3NAB/Mc7eE39OGSxlr1x+oGOCBny86Zc9pgzuH +Ap+/hgGq1O0LH3bRhrk/UWsDBga44+qZhJUFLRCdlGprsTZAsmPU+X0qWuD3 +4mBSRZgB1p5tPfjFTwNmg6ejzSIMsOw+c/92PQ2IkT4c1BFlgDNLQksfWTXg +bHyo40qcAWbxKj3oLdwOpaQoWaNkA9yZQzigOqkOfypP1zbkGOBb7Ulnuzg1 +uPTk1mJrgwHGJyyd2vtZGaQ8ZSd9Gg2QT4bv2Iv7ynCXr6B38a0BEo+ynfdK +VAZa8N160U+M+Kg5I06aytCv+uiCWxdj/damFUuXtsG2+3S1kRkDFJz5ePqL +91aoy2v3XRAxxKcXYx/zqCrCkI2cZxTBEJ8XnJEa5VIEptVg198Shkho6mqY +nlQAEwcOWzZZQ6wvd6xNu6cAjRtI+uIqhrj28G7QPyUFaPK+zWVMNcSU9r2H +L2/fAj0KgSUX/A0xw61mhL5fDn63VN4XOWSI1jZzyvKmciB1nOVOTpAhtqk/ +MHy6VQ48vuReLzxiiF5fyzpsF2Rh6ExzIi2WMR5+WsA/WRYmxnV3D2UaYqjT +sM+H0M2weP/fL40qQ6R+XStICJaCcWfzvDS6IQp4J9S+MZGCLtZzFqM1hmhh +2FJqTZCCGi+J7GsvDXG3aMMy2ytJOEXQI62/M8QtV1LukmUkgT81MP59nyE6 +NBHEAvvFQS3gC5MfMwnvJl8b7koSAxkRqQcvWEl4rmf+K+8BMeBv8HYgcJBQ +par4QyRFDH7KzOd/4CFhu9lVw/5lUaju4DbVFiHhQGuAL8thUbAwxzP/tpLQ +7vgJtwhPEfBRLObK2UXCMiV3ss4hIYh9vT9QyZ6EG49Orb62EIILfoIfyh1J +mODzPih9mxDU3j2W8WEvCceb75o9nhQEYSWLTesHSLguTvy2I0gQGpXGhL2i +SKjMZb525pgAqGzbLKt0m4T29hHao0c2Ab5tTSzPJ2EU7wOL++RN4HwweZha +SMJP/DVD/7FvgtP3vxfsfUBCCx7CvfmbfNC3jdH5PiXhNecJBY0WXshUdlWd +eUNCtuLMqkbTjbCgcplYPk/CnqCNK0RfLuhqQjOhnyTsrty27yyZC16GzO6O +WCKh+zHjnxJCXJBZbhlGXCOhpfqh4B/1nKBCYnpUzULG/vcStmGKnOBtGSzX +IErGjo9EY/8ldmgP2Lmx3YiMeVseSfx9wQo1XEsSekBGi07CA7ebrFBQXKB8 +zZiM5JWzadNxrHBkbt3cxZyMlz0XpO8YsgJvdMXJPjsyvmB1qgqtYgHzZLlf +X73JeKlIYs6glhlohb+Hl1LJONt9evLJJBMQTSN+WaWTUd3r9WTcRyZ4Njyz +Me8cGbcMqW0NK2eCcpkBfatLZPyYMxDZEc8Ej7Jenrt1g2GK0aZkISbIyzhj +uLOEjMw9mHn+wl9qWsSmi1ltZJSoOWBfduM3lVMotej7FzIqkyQt6kN+U5PL +mGpNuhjr83+3g2Dym5o0uzA+00fGY3vH/rs4tUY9cbDdyHicjArXLoqXkteo +R92zJ6dWyPisucjJfGaF6rZjC5JljDBvU5rA7vhl6no7J1+DrBHKq4O2mtMy +Nc9vttdqixFmNcWIWqotU8eT6dFu24zQ1zPwhE3/EvXoO7snx7SN8A+5AkNM +lqhnbeNlaOZGqKd2TqGBsEitdvnyRzfUCD9Jk03XfyxQPaaq39eGGeEc2zRT +eusClSk2L2tHhBEO4j0T+/IFqvmNIF2nY0Z4X294NuHoArW1f8Ph8NNGmFrM +ahe4NE+d9t7eW3bdCPnL1lY3s81TJYNT6NtfGuGJoxFtNy/PUDP/+eul1xvh +ytcTSy3eM1TmS+ZlE6+MUFXurvBu7RnqdCXbg7x3Rijz+FugSes3ajVTUpZg +mxEebClKfCnyjep2JTF6ecwIOac46O0Pp6hZNcf0XvBQ8P1NgRgH7gnqRlvX +Mgk+CnZdaOFNHRmnJg4ZqEfzUzCzoaTzX/U49SDbioKmCAUFxSKjyg6PU/Xt +ooQLZCjIvVGWXbBtjNoxcvTnGS0KTtyeCgwv/koV4T5ctmsvBRcdP8qppo5Q +C02Px867UjD53QMiv+8IVft4pulldwpW2UluMcARqu186ZeuAxTcE7GjzHZ1 +mJrcsbTqc5iCYSqxAmdDhqkrBQkmsScpGLnM+6zTd4jaQ77cVlRMQTmFa5YN +v/uoByMLcy1LKKhz8aHijfo+6nLJM7+ZUgoefyVtPJDWRxWU7/qlVUnB9dRO +uCPeR7XmlJZ6/pKCzLb1X4WovdTa9iLfti8U7EtbW5nL7qZa8dHUo7ooGLtx +T6BiQDe1a+e7ZUIvBQ0dlj5U63ZTF6u/pe4fYqxvf04F8+cuqnq+5uOpaUa8 +nhEPFnm7qLU9xlEZ3ymoFE/YIjbQSbUS3g0a8xRs9qlxvFLSSfVPifwcsUTB +XSz+1rn2ndTFl8k5YisUDHB/06oo30k9tXbdp3qNgtmnOzM4Fjuo/LoP1DzW +GfMfPNCLjR3UW8HVS//+UXBE1lDuc1YH9X9CgPto "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.09863206346804852}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2500,19 +6942,19 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.09863206346804852}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2526,330 +6968,185 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== +1:eJwV13k4lN8XAHDZl8hurCGULftgxsw5iGzZkhCRtQjJGopKlkh7IRWSFiUk +ZlD6UtoUIfsua7IUQqnf/P56n89zn/e595x7z33PK+cd6ujHzMTE1LKBien/ +z+WBd68U0gupHzmHLPd7O1DbbxGOGXedgsAoF/qzrxqAIs3ehK5L4FS3UfXQ +V4Ao+4edLF0FMHLVcbfKVzsQmBW7tNpZDndOhRbdH/WEwVrb0MXOepAtudw7 +MBwK5grT/QudreCXryvS2ZMAq536V+c7RyAqq+F2x4vz0GB6r/BzwU/gmWf6 +NmaZB1KD9HFvtXUwzLrOJ5R3D4QPez7kMGXBTnKL7l2tElDhuNNov5cF1XgC +As/alAAWjI9kB7Gg4eCuX14BJXC4K1hS7QoLCssOTg3nlsCrHfEZ9mMsGGcb +tqLF8QQipLNDslNYUWM4V2RD9xNo+9SqrdrEhpTucrtUWilc0jKvsd3DicHl +uYq+BuWg0eu6k3KQEw9VLF0VMS2HpqTgNtU4Tozc9/hy3a5yYO+68o0znxPF +S9eV173LIe7EqGTDDCeSHPP9Zc6Vg++HxHj9JC60fHvJaXmwHIh+NRTZp9xI +/alTMZ7wFNr4mt/xNXJjzDjH2ztpT+EIbWTPehc3Kh2W4XK9/BQe8nCH9Pzl +RlnmQ5yPip7C5nKXW1eseDArZr7sZ9NT4Py39JdzhAfz/V9FchAqoDtL8+UC +Py+eP7m8pnG/AnLaijdFKfIi77ve2ftlFeDGt9VzzZAXjy/NuhJqKqDvtPRf +Zh9eTBr0S+/5WAFDIdxGws94sTDipsjMjwqY3PG1iujKh/T99k+Myc9gZf76 +k7j8TTjeMFN579UzoKsK/fv3bBNmNHkrfWt6BrH+mbZJ7zdhyaz0O4Uvz+BP +b9L3jJ+bkD73MT927BkkjtJEmuX5MTvvSngpWyUkfbq7eyiCH1V+p9iY7qiE +9MKEZmZxAQyONJz9Q68EK91DgiJbBHBC8bLf6MtK4HzluGerugB+DPU3e/mG +8f6oYq+1McMZ98geXyohXr5p/MohAZSx2Dm/Zb4SQvIIf5WqBfApi+X66JYq +cMgtU7PeJ4jUnYPiaklVwK92I9TDTxCHrcXqBtKq4FNNUnloqCA+Z6+rTzlf +BVa9ew2unBbED/ItY7U5VWAi8de0v1gQ9Wgnbz8trQLdLKt9oX8E0SXMQ6Kt +pwrEroymXb4phEFdsKN/Kw0Iqs+SVooYDmdz3qRGA4n65ASPUiGMpAkKG2rS +QGZeOXJrgxD2mn27Hm5AA0WbI141k0J4KW+yLcmCBjqs68RRHWEM6frUQQig +ge6NT1oWFGE86lfM2xhIA6J2ntpjc2FkaUv8GxhCA5KXqXy0qzAmrsoJ5kbS +wLg2jZcnQRhvTp6VuXGaBnYRol+13wujiCzva95bNLDnmRy43iaM4XXiMvr5 +NHAsoHf/6RPGA493m7oU0sC5xb25cU4Y9ypE/zr5kAYeaneq3UREkFk5WTW8 +kgZBXzUunvISQYM6k9WPTTQ4HLchY+KQCLK9qadFNNMgRLAt2SZcBCfaWfYJ +tdLgKEbFiyaL4CY7FluDThocy60NeFgsgk2CcRJywzRIcbKkti6LoPEO0brQ +n4x8VXySYN4gilpZRqENSzQoEXL6pcUjij60yxW8KzToaN1fenGzKDYcEOdM +/kMDBYcIeQcLUdz74qYwOxsdaKWrfxMdRVEkjlrKx0EHG/6E3lJ3xnimyiIv +Fx3Cm9Ou8IeJYu6rnhPzG+lQv+s2e0u2KMp9SB43E6aD82OF0X93RPGE9E4e +VlE6TG98WKdRIopv1j/M0MToINBUEXO+XhRHrRrn2SXp4GX1ftr2mygyd0hY +6MrRYfGB3ZsTS6J49l30rfvydEjh+nKn5J8oLpYffCOkQIeSt4PufMJiyN/i +kPtJiQ7r5kufPhqJofL00YIOVTpcKIotXjcXw9iH8f0b1OmgwM6Uqu4ghrNU +fWaF7Yx4XnMbn/MTwz6fEuFdmnQYUrgg/TxUDBMdQjmdtBjxJYmszRwTw+hX +UwsO2nTIMZV9apMphmJC1uXaunTYfufu+fgsMXxgtf+8iB4jfmbVw48KGPNX +ng6ZY3jqPz3FjVVieE33CqTq0yFermaD0X9imM3Xpr/TgA78J3Eg6IMYeuV/ +oK4zbIDW1z8MimEw+5sztiQ6NN1uCf89JYYvI3c0TTHs9W+PveqiGKZ8OrI9 +nszIz/5etX1/xTDB/eoTNiNGfl54caVzEjBrO9PuZIYlZMbHqgUJqCbIKvWX +4ZLjQfXTUgTUyVzhDabQwaR//pbEVgKeHzBUa2O4wygqzkqLgJpz22I1qXQI +zP29N5ZMQLe9qr+TGF7/naj70IyA752Ky1sYvrCPXaDHjoBDjWKFQsDIb036 +dy43An5R/tq6i2GahMB7Q18CDlxMNUlg2Cb2WtGhEAI6FZ1cvsfwULfk6ewY +Arbk2v94w3C4Yb7nu1MEdNeNMxxk2CqPb9E6g4Df6Z5S3xmW54hP/XSVgBP3 +Z0N+MrwaPCXlcJuAPdb8uj8Ybml3Lmu7T0CCQ2nIFMP3ya/MnMsJaPjmuVw3 +wwkFWj1dNQS8IK5q/x/Dzly3Q/a9JmD1xtk/+QxvP7KRZeATAflr/qnEMczW +eey6VxcBVS+699sw3EeZUB0dJqCDFauYGMMVhU4v/b4RcH1mtaebkY90nnqn +yUUC2r4xVbvKsPdRjanAvwSMC/rGa8kwqTv3+HcOcdz1aP3UEiPfk0XRRT8k +xNEv/q6OAcN1vGOkSAVxXG/zjfzE2K9rEY7Nv9TF8ZnDiLMHw2Ym6it/UBz1 +gzLZ/Bj7L/UgJyPBShzFzZi6+xnnY3ETpxyzkziqV1e62DFc0D9iyREgjmah +OYekDOlwbIf9QNoRcbSb37IhhnHe7IufH90YK467Ux46NDHO57+YrBsC58Sx +fm+aiieRDu7Ctt8ln4pjQKym6HYdOujE1Zy8VSuO0Rs1W+wY9cA9sk1UrlEc +Q6U1PQIZ9UJ/wgJK3eIopHV4PU2DDqLW9Aua/8QxwlSgIpxRj9/LlBSfckrg +PUWKj7sKHV4RrtD1BCVwm6wKE1WZsf/jISMkRQm8Qxngn2HUc8tJBV0zawms +rDj8/SfjPrg3efHtGycJ5F22CiyUpcMJu3/uVvsl0PKF1/yuzXRQl+45Yxcm +gc2x8koZUnQ4Szvf6XpdAn/Wy+c8Y9w/O+bWYkNGJXD3+uTzOsb9dcziisp/ +MxJ4HtYseDgZ9ZGv3iO0LIG3FPe72rPTgeDkZUjnlMQW216xN8x0mKG9/sWy +XRJ901wOB/ymweVTFyKyYyTxb5xUYtQ3GrztVVaYOSmJeeYaG9ynaPBHt6GN +mi6JL3dnAHmCBv4TS9pfb0oiMSCEeWKE8b2x2bewvUESL8uZsy1202BERCnk +Fa8UziyeUJ5opIFYaJ20mJgUnnn3WyPwFQ1s3rp8PCQrhV8zWtQn/qNBZWy6 +2iYdKVTmtpRprqXB2cH5aVcXKVxGO9LechpoP6gJmCuQwtwmnzvWuTQ4aeRw +QMJAGlfZvOmDQTSw2H/rh76JNDKzatd7H6QBX+K303tspNGtYwMO+tIgt+FM +0QUvadSWOV/yyoMGNKvqb+xp0ih+1n7U2I4G8y5bon52S+P0bzkBbi0a7I9c +OtsUJ4M0DWHOpbkqULxuIjV9Rga7jubHln6rYuTv/GOOCzJY92md1X+iCmL/ +KLeYFMrg1hdjkXUDVXD19H4RepMMBjlzual9rIKmi29u35XejI9rgmt/3K8C +Ukl2xYm6zTi6rFXs7F4FOzo/rc++3YyP2FhiK/ZWgS0T607P1s1Y9sGnknd3 +Ffg4hnTD2GZsPCyZVm5ZBeZxcgmJbLIIi0c2NRKr4Mjm5TvGqrKYcZ5+iMBf +Ba8Cbn9viJJl9IOD9NS6Sji8spD4llcOlTp/0NIFK2FVlX9AfY88PplM3GEf +UgFGxY/yrl3bgjbhLjH0onJYELTycq5XQNMJtqH0yVL4muHlfJRDCX8yuTVb +/XkMlnPRlmPEreh9gMRiFP0QZnw4wysStqGKkH3Pz09FjH5fjDmlXhlT/vKs +iIbfAcGPSpmlcyrY3n5V9f1FRn+f+sSeSFTDns6FsMWTNyBL1ZBfKEAdfxin +PlrqvgbvJYz1fl7cjjTYxnK5+xKQpOovaHRoIEft6Sd/yJkwskVhYKpHA2OK +alMOy2dCmmqyauGgBspPJ47OcGZCF8mqkTClga8zZQQ2d5yDaNfW3xv+aCDT +udanFmHnwM06TGeaXxPPXUg6+ehhBlxLZVwHRE0k7NpcekE5HfhYCiIOnNLE +50bZspecU4F9tW73QpIm9nmormyDVPg72699MkUTWTuCMz9vTYW5HvGFvAxN +jP1n0LV3NQVayi8GD13TxEvEi5wGN1PgkvdJf89iTby7WZQPJ5NBtN7LxaNd +E2sV0y7op58BmZObjVyVtLDvyrsMZpbTUBLOKd+/TQvlBQt0FeZPAdV/geOA +qhbKLb1g39N/CjysG9oOamrhVi8X7q9VpyBXJCAohqSFRQJN5ZXBp0D8YUnO +dVstXLgUdGdr30kQbqOsfonSwvGjPI+ZXiUCl6J7peMbLZTyf6pcFHccAsXB +qvidFhZeNxrj9zwO73nlB1iatHDqivalSybHIWN5gu1Zixbyma9m9HAdB763 +4XvEerTQnlf7Vlx2PAgGpS/2zmihoM2txeXaOJAqq9b2E9RGaf3snhjhWNhO +EX8S7aGNvK+zVoeZo+HplkO/mb200W1/p8KTqSgw4KbvzPTWRngYcuFySxSY +dLoMFQZoo76L91T+rShwDssSaA3TxhUD68lWchQk3BWLUEvWRvM1SeeY2Eho +4RU1HC7RxpyWHXd9OCPg6IBggxWTDjbzlat6+YTB20b35w+ZdTBM6LXoF/sw +kHlSVMXNpoNTtNV5N2oYvE8gPXrPpYPR+aKm2eJhIC/nfdVKSAdf/9AQGGw5 +Ap99ygKslHRQ5bXZ7ySTI6A5ZbfRykYHKRe3G7b4hEDy52z2h7Y6uJXP2eyt +SQj00UeZuB10GP8HBLNBuRBIPRu99G6PDmb3hrw6NBQMQ6q3Byw9dZAt3H3n +7P5guBAyW2p5VAfVIq4X5h84DHM/M/ZYZungIvebPpHjgdDXle98M0cHb3x+ +c9nJKxDeP6/cu5Crg290XD1LTAOhMGXINTtfB52OTI+UcweCm6Tu/qmHOji+ +e9p3PfsQvDbp9U97roOBnM41yc8Pwo2LyjHvRnRw2XEXo00LgNQo6jHpMR0s +KvLwdfvrD1H7dseGTehgXM3+7O9f/cFe8Xi8+IwOLj07d9aj3B/Y6S2Jh5Z0 +cL5ja/gBW38IG4pO4+LUxeQr6W8nz/rBTo3GHEt1XfQK6mk+KuILLuwWTi0a +uthBPHx44Y8PBPa/492rrYvFYfY7zn71gcz0j4m++rqoOkix4q7wgY6Jdv8E +Y12coH/ZbuzkA755o9rP9uiicc56SlS2N5wS2PBB9oQudnoq3/YhHoArk6eS +7iXq4q9UyW1/ZQ9AUR0rdftpXcx5TdlaynMA3gdzlpFTdTG0/Lu227AXCLzf +dN35ki46xIxvf3XOC/JOyfhkFOnimFAnrfqLJ7z4Sf7965MuCgZ4vtkW5AH5 +TVXeuz/roke3mfZBCw9IuqvzvqRNF4PCWpmbFD3Acq9qtl+XLur47dnDNOwO +7dUS+m3Dupj17N5Ogqs7TJ9cPVqyqIv+PNZDU3b7QJS/atpXQg9/j2+fJe91 +hdVJbceXUnqYPlf38oOBK/T9V0KX3KyH7XYl8vESrpAfXpTaukUPDRI5NlMH +XECt86oSquvhD56KRtMAFzC5FeEtiQyfcIs1StgLIWraPZ/99LB13qBcqnEP +RP6SWPM8qId/KTzKNg/2QHw9i8RsoB6eZ82pvpmxB9JdvrhyH9HDt4NRhUW7 +98D9pJhuk1g9/LOvpMN61AlG+l50Pc3UQ3XJaqVGTidwPmfdebVKD83vODlc +DnIEDxfdX1uq9VDKzi3ytaMj+G6RFiuv1cOgiVfZIiRHCKfPOn/6jzH/a5WA +TVyOcGHsYgd7kx6C5YEyv/sO8J7S9SV6SA+PbE6knpqxB8qsb7srFxGLYlfM +nITsQLRmZ0EtDxG/W2/NvfzNFmZTVI5s5iPiHOejT0yvbOGW3DzPmCARdSzz +BHwjbeGvU5zpESkiRhlGi1j27IK6movlyRpEpGaV1fo9sgHjtBcXnu4hYpVk +F1/lESuQcM7fL+pCxEJazIibrRX8kE9SO+ZGxJtPD0hvU7OCglrLt1RPIloH +pWwhT1oC83z7v3cHiTjh+32B6m0JDc7fQobiiGhWGLgxx8MCzBQIu3gLiLgo +a1qTesQcKr6/lvMtJCIpmpXt5G5zUKgKX64uImLi2/uHbhDNgdWq+fbBYiLe +f6z6S2/dDOpDk380VBBRrPG04990M6DWLF6PfUNECY7SsedPdgDR8fPIxAwR +t0xVGvNuMoUiyYQq6hwRCwTOs3Msm4DImFrG1QUi9hA66DL9JrAYnapnukzE ++aungu8Vm0D5TUi99Y+I7B4CuRJWJqAx9Vh9j6A+NptoswVnGMO2xLMx9fr6 +eKdqnWlOEaGWfJfNhqSPF390qubwIdj/qrv0xUgfhc9d3vl2FiAmZOnRpLE+ +8li8+3LvEsBbd69hPht9zPU92kPpp8JBQ6LVPi99XBw50J9ynAIPfgxLLqbq +4ze5d9kVkySglvy5fzxdH732B7zQ/48ErYfEiByZ+qir1P13LpsEa0M29hKX +9fE8c3v7X2sSWDVXJeFNfZSLjJ/NLDeE6eJz3zPK9DHmsUCESZoBqPgZ1in2 +6ONz35II+31EOC9vu3a6Tx9vGXN26hsRYXHQW29kQB9DIq+umUsT4YVbRvGt +UX38Pebb3DuoB472g9fFvutjt6b5yx5/PThGPnOEi8kATQrOt7LH68Jbgc9y +3xUNcOlLvtrUf9qg3jzmbr3NAB/Mc7eE39OGSxlr1x+oGOCBny86Zc9pgzuH +Ap+/hgGq1O0LH3bRhrk/UWsDBga44+qZhJUFLRCdlGprsTZAsmPU+X0qWuD3 +4mBSRZgB1p5tPfjFTwNmg6ejzSIMsOw+c/92PQ2IkT4c1BFlgDNLQksfWTXg +bHyo40qcAWbxKj3oLdwOpaQoWaNkA9yZQzigOqkOfypP1zbkGOBb7Ulnuzg1 +uPTk1mJrgwHGJyyd2vtZGaQ8ZSd9Gg2QT4bv2Iv7ynCXr6B38a0BEo+ynfdK +VAZa8N160U+M+Kg5I06aytCv+uiCWxdj/damFUuXtsG2+3S1kRkDFJz5ePqL +91aoy2v3XRAxxKcXYx/zqCrCkI2cZxTBEJ8XnJEa5VIEptVg198Shkho6mqY +nlQAEwcOWzZZQ6wvd6xNu6cAjRtI+uIqhrj28G7QPyUFaPK+zWVMNcSU9r2H +L2/fAj0KgSUX/A0xw61mhL5fDn63VN4XOWSI1jZzyvKmciB1nOVOTpAhtqk/ +MHy6VQ48vuReLzxiiF5fyzpsF2Rh6ExzIi2WMR5+WsA/WRYmxnV3D2UaYqjT +sM+H0M2weP/fL40qQ6R+XStICJaCcWfzvDS6IQp4J9S+MZGCLtZzFqM1hmhh +2FJqTZCCGi+J7GsvDXG3aMMy2ytJOEXQI62/M8QtV1LukmUkgT81MP59nyE6 +NBHEAvvFQS3gC5MfMwnvJl8b7koSAxkRqQcvWEl4rmf+K+8BMeBv8HYgcJBQ +par4QyRFDH7KzOd/4CFhu9lVw/5lUaju4DbVFiHhQGuAL8thUbAwxzP/tpLQ +7vgJtwhPEfBRLObK2UXCMiV3ss4hIYh9vT9QyZ6EG49Orb62EIILfoIfyh1J +mODzPih9mxDU3j2W8WEvCceb75o9nhQEYSWLTesHSLguTvy2I0gQGpXGhL2i +SKjMZb525pgAqGzbLKt0m4T29hHao0c2Ab5tTSzPJ2EU7wOL++RN4HwweZha +SMJP/DVD/7FvgtP3vxfsfUBCCx7CvfmbfNC3jdH5PiXhNecJBY0WXshUdlWd +eUNCtuLMqkbTjbCgcplYPk/CnqCNK0RfLuhqQjOhnyTsrty27yyZC16GzO6O +WCKh+zHjnxJCXJBZbhlGXCOhpfqh4B/1nKBCYnpUzULG/vcStmGKnOBtGSzX +IErGjo9EY/8ldmgP2Lmx3YiMeVseSfx9wQo1XEsSekBGi07CA7ebrFBQXKB8 +zZiM5JWzadNxrHBkbt3cxZyMlz0XpO8YsgJvdMXJPjsyvmB1qgqtYgHzZLlf +X73JeKlIYs6glhlohb+Hl1LJONt9evLJJBMQTSN+WaWTUd3r9WTcRyZ4Njyz +Me8cGbcMqW0NK2eCcpkBfatLZPyYMxDZEc8Ej7Jenrt1g2GK0aZkISbIyzhj +uLOEjMw9mHn+wl9qWsSmi1ltZJSoOWBfduM3lVMotej7FzIqkyQt6kN+U5PL +mGpNuhjr83+3g2Dym5o0uzA+00fGY3vH/rs4tUY9cbDdyHicjArXLoqXkteo +R92zJ6dWyPisucjJfGaF6rZjC5JljDBvU5rA7vhl6no7J1+DrBHKq4O2mtMy +Nc9vttdqixFmNcWIWqotU8eT6dFu24zQ1zPwhE3/EvXoO7snx7SN8A+5AkNM +lqhnbeNlaOZGqKd2TqGBsEitdvnyRzfUCD9Jk03XfyxQPaaq39eGGeEc2zRT +eusClSk2L2tHhBEO4j0T+/IFqvmNIF2nY0Z4X294NuHoArW1f8Ph8NNGmFrM +ahe4NE+d9t7eW3bdCPnL1lY3s81TJYNT6NtfGuGJoxFtNy/PUDP/+eul1xvh +ytcTSy3eM1TmS+ZlE6+MUFXurvBu7RnqdCXbg7x3Rijz+FugSes3ajVTUpZg +mxEebClKfCnyjep2JTF6ecwIOac46O0Pp6hZNcf0XvBQ8P1NgRgH7gnqRlvX +Mgk+CnZdaOFNHRmnJg4ZqEfzUzCzoaTzX/U49SDbioKmCAUFxSKjyg6PU/Xt +ooQLZCjIvVGWXbBtjNoxcvTnGS0KTtyeCgwv/koV4T5ctmsvBRcdP8qppo5Q +C02Px867UjD53QMiv+8IVft4pulldwpW2UluMcARqu186ZeuAxTcE7GjzHZ1 +mJrcsbTqc5iCYSqxAmdDhqkrBQkmsScpGLnM+6zTd4jaQ77cVlRMQTmFa5YN +v/uoByMLcy1LKKhz8aHijfo+6nLJM7+ZUgoefyVtPJDWRxWU7/qlVUnB9dRO +uCPeR7XmlJZ6/pKCzLb1X4WovdTa9iLfti8U7EtbW5nL7qZa8dHUo7ooGLtx +T6BiQDe1a+e7ZUIvBQ0dlj5U63ZTF6u/pe4fYqxvf04F8+cuqnq+5uOpaUa8 +nhEPFnm7qLU9xlEZ3ymoFE/YIjbQSbUS3g0a8xRs9qlxvFLSSfVPifwcsUTB +XSz+1rn2ndTFl8k5YisUDHB/06oo30k9tXbdp3qNgtmnOzM4Fjuo/LoP1DzW +GfMfPNCLjR3UW8HVS//+UXBE1lDuc1YH9X9CgPto "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.09863206346804852}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2860,6 +7157,7 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2887,7 +7185,8 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09863206346804852}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2895,25 +7194,1073 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991334471589432*^9}, - CellLabel-> - "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] + CellChangeTimes->{3.991334471589432*^9, 3.993851429815577*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"f2a3f1f8-e326-40fd-9ef1-d1f0b35a9daa"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ -a8e133e7a081"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.011071"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.031476"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.049865"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.064634"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.074128"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.079917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.081589"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.07959"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.075388"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.069397"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.062354"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.055005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.047683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.040719"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.034333"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.028605"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.023579"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.019247"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.015565"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.012478"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.009921"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.007825"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.006123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.004756"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.003667"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.002807"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.002134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.001611"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.001208"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.0009"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000667"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9938492626658897`*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.081589}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993849269060033*^9, 3.993851430103595*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"11dbaf35-52c7-4998-b091-4c5362bd7c67"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ -f16397f0b922"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4lN8XAHDZl8hurCGULftgxsw5iGzZkhCRtQjJGopKlkh7IRWSFiUk +ZlD6UtoUIfsua7IUQqnf/P56n89zn/e595x7z33PK+cd6ujHzMTE1LKBien/ +z+WBd68U0gupHzmHLPd7O1DbbxGOGXedgsAoF/qzrxqAIs3ehK5L4FS3UfXQ +V4Ao+4edLF0FMHLVcbfKVzsQmBW7tNpZDndOhRbdH/WEwVrb0MXOepAtudw7 +MBwK5grT/QudreCXryvS2ZMAq536V+c7RyAqq+F2x4vz0GB6r/BzwU/gmWf6 +NmaZB1KD9HFvtXUwzLrOJ5R3D4QPez7kMGXBTnKL7l2tElDhuNNov5cF1XgC +As/alAAWjI9kB7Gg4eCuX14BJXC4K1hS7QoLCssOTg3nlsCrHfEZ9mMsGGcb +tqLF8QQipLNDslNYUWM4V2RD9xNo+9SqrdrEhpTucrtUWilc0jKvsd3DicHl +uYq+BuWg0eu6k3KQEw9VLF0VMS2HpqTgNtU4Tozc9/hy3a5yYO+68o0znxPF +S9eV173LIe7EqGTDDCeSHPP9Zc6Vg++HxHj9JC60fHvJaXmwHIh+NRTZp9xI +/alTMZ7wFNr4mt/xNXJjzDjH2ztpT+EIbWTPehc3Kh2W4XK9/BQe8nCH9Pzl +RlnmQ5yPip7C5nKXW1eseDArZr7sZ9NT4Py39JdzhAfz/V9FchAqoDtL8+UC +Py+eP7m8pnG/AnLaijdFKfIi77ve2ftlFeDGt9VzzZAXjy/NuhJqKqDvtPRf +Zh9eTBr0S+/5WAFDIdxGws94sTDipsjMjwqY3PG1iujKh/T99k+Myc9gZf76 +k7j8TTjeMFN579UzoKsK/fv3bBNmNHkrfWt6BrH+mbZJ7zdhyaz0O4Uvz+BP +b9L3jJ+bkD73MT927BkkjtJEmuX5MTvvSngpWyUkfbq7eyiCH1V+p9iY7qiE +9MKEZmZxAQyONJz9Q68EK91DgiJbBHBC8bLf6MtK4HzluGerugB+DPU3e/mG +8f6oYq+1McMZ98geXyohXr5p/MohAZSx2Dm/Zb4SQvIIf5WqBfApi+X66JYq +cMgtU7PeJ4jUnYPiaklVwK92I9TDTxCHrcXqBtKq4FNNUnloqCA+Z6+rTzlf +BVa9ew2unBbED/ItY7U5VWAi8de0v1gQ9Wgnbz8trQLdLKt9oX8E0SXMQ6Kt +pwrEroymXb4phEFdsKN/Kw0Iqs+SVooYDmdz3qRGA4n65ASPUiGMpAkKG2rS +QGZeOXJrgxD2mn27Hm5AA0WbI141k0J4KW+yLcmCBjqs68RRHWEM6frUQQig +ge6NT1oWFGE86lfM2xhIA6J2ntpjc2FkaUv8GxhCA5KXqXy0qzAmrsoJ5kbS +wLg2jZcnQRhvTp6VuXGaBnYRol+13wujiCzva95bNLDnmRy43iaM4XXiMvr5 +NHAsoHf/6RPGA493m7oU0sC5xb25cU4Y9ypE/zr5kAYeaneq3UREkFk5WTW8 +kgZBXzUunvISQYM6k9WPTTQ4HLchY+KQCLK9qadFNNMgRLAt2SZcBCfaWfYJ +tdLgKEbFiyaL4CY7FluDThocy60NeFgsgk2CcRJywzRIcbKkti6LoPEO0brQ +n4x8VXySYN4gilpZRqENSzQoEXL6pcUjij60yxW8KzToaN1fenGzKDYcEOdM +/kMDBYcIeQcLUdz74qYwOxsdaKWrfxMdRVEkjlrKx0EHG/6E3lJ3xnimyiIv +Fx3Cm9Ou8IeJYu6rnhPzG+lQv+s2e0u2KMp9SB43E6aD82OF0X93RPGE9E4e +VlE6TG98WKdRIopv1j/M0MToINBUEXO+XhRHrRrn2SXp4GX1ftr2mygyd0hY +6MrRYfGB3ZsTS6J49l30rfvydEjh+nKn5J8oLpYffCOkQIeSt4PufMJiyN/i +kPtJiQ7r5kufPhqJofL00YIOVTpcKIotXjcXw9iH8f0b1OmgwM6Uqu4ghrNU +fWaF7Yx4XnMbn/MTwz6fEuFdmnQYUrgg/TxUDBMdQjmdtBjxJYmszRwTw+hX +UwsO2nTIMZV9apMphmJC1uXaunTYfufu+fgsMXxgtf+8iB4jfmbVw48KGPNX +ng6ZY3jqPz3FjVVieE33CqTq0yFermaD0X9imM3Xpr/TgA78J3Eg6IMYeuV/ +oK4zbIDW1z8MimEw+5sztiQ6NN1uCf89JYYvI3c0TTHs9W+PveqiGKZ8OrI9 +nszIz/5etX1/xTDB/eoTNiNGfl54caVzEjBrO9PuZIYlZMbHqgUJqCbIKvWX +4ZLjQfXTUgTUyVzhDabQwaR//pbEVgKeHzBUa2O4wygqzkqLgJpz22I1qXQI +zP29N5ZMQLe9qr+TGF7/naj70IyA752Ky1sYvrCPXaDHjoBDjWKFQsDIb036 +dy43An5R/tq6i2GahMB7Q18CDlxMNUlg2Cb2WtGhEAI6FZ1cvsfwULfk6ewY +Arbk2v94w3C4Yb7nu1MEdNeNMxxk2CqPb9E6g4Df6Z5S3xmW54hP/XSVgBP3 +Z0N+MrwaPCXlcJuAPdb8uj8Ybml3Lmu7T0CCQ2nIFMP3ya/MnMsJaPjmuVw3 +wwkFWj1dNQS8IK5q/x/Dzly3Q/a9JmD1xtk/+QxvP7KRZeATAflr/qnEMczW +eey6VxcBVS+699sw3EeZUB0dJqCDFauYGMMVhU4v/b4RcH1mtaebkY90nnqn +yUUC2r4xVbvKsPdRjanAvwSMC/rGa8kwqTv3+HcOcdz1aP3UEiPfk0XRRT8k +xNEv/q6OAcN1vGOkSAVxXG/zjfzE2K9rEY7Nv9TF8ZnDiLMHw2Ym6it/UBz1 +gzLZ/Bj7L/UgJyPBShzFzZi6+xnnY3ETpxyzkziqV1e62DFc0D9iyREgjmah +OYekDOlwbIf9QNoRcbSb37IhhnHe7IufH90YK467Ux46NDHO57+YrBsC58Sx +fm+aiieRDu7Ctt8ln4pjQKym6HYdOujE1Zy8VSuO0Rs1W+wY9cA9sk1UrlEc +Q6U1PQIZ9UJ/wgJK3eIopHV4PU2DDqLW9Aua/8QxwlSgIpxRj9/LlBSfckrg +PUWKj7sKHV4RrtD1BCVwm6wKE1WZsf/jISMkRQm8Qxngn2HUc8tJBV0zawms +rDj8/SfjPrg3efHtGycJ5F22CiyUpcMJu3/uVvsl0PKF1/yuzXRQl+45Yxcm +gc2x8koZUnQ4Szvf6XpdAn/Wy+c8Y9w/O+bWYkNGJXD3+uTzOsb9dcziisp/ +MxJ4HtYseDgZ9ZGv3iO0LIG3FPe72rPTgeDkZUjnlMQW216xN8x0mKG9/sWy +XRJ901wOB/ymweVTFyKyYyTxb5xUYtQ3GrztVVaYOSmJeeYaG9ynaPBHt6GN +mi6JL3dnAHmCBv4TS9pfb0oiMSCEeWKE8b2x2bewvUESL8uZsy1202BERCnk +Fa8UziyeUJ5opIFYaJ20mJgUnnn3WyPwFQ1s3rp8PCQrhV8zWtQn/qNBZWy6 +2iYdKVTmtpRprqXB2cH5aVcXKVxGO9LechpoP6gJmCuQwtwmnzvWuTQ4aeRw +QMJAGlfZvOmDQTSw2H/rh76JNDKzatd7H6QBX+K303tspNGtYwMO+tIgt+FM +0QUvadSWOV/yyoMGNKvqb+xp0ih+1n7U2I4G8y5bon52S+P0bzkBbi0a7I9c +OtsUJ4M0DWHOpbkqULxuIjV9Rga7jubHln6rYuTv/GOOCzJY92md1X+iCmL/ +KLeYFMrg1hdjkXUDVXD19H4RepMMBjlzual9rIKmi29u35XejI9rgmt/3K8C +Ukl2xYm6zTi6rFXs7F4FOzo/rc++3YyP2FhiK/ZWgS0T607P1s1Y9sGnknd3 +Ffg4hnTD2GZsPCyZVm5ZBeZxcgmJbLIIi0c2NRKr4Mjm5TvGqrKYcZ5+iMBf +Ba8Cbn9viJJl9IOD9NS6Sji8spD4llcOlTp/0NIFK2FVlX9AfY88PplM3GEf +UgFGxY/yrl3bgjbhLjH0onJYELTycq5XQNMJtqH0yVL4muHlfJRDCX8yuTVb +/XkMlnPRlmPEreh9gMRiFP0QZnw4wysStqGKkH3Pz09FjH5fjDmlXhlT/vKs +iIbfAcGPSpmlcyrY3n5V9f1FRn+f+sSeSFTDns6FsMWTNyBL1ZBfKEAdfxin +PlrqvgbvJYz1fl7cjjTYxnK5+xKQpOovaHRoIEft6Sd/yJkwskVhYKpHA2OK +alMOy2dCmmqyauGgBspPJ47OcGZCF8mqkTClga8zZQQ2d5yDaNfW3xv+aCDT +udanFmHnwM06TGeaXxPPXUg6+ehhBlxLZVwHRE0k7NpcekE5HfhYCiIOnNLE +50bZspecU4F9tW73QpIm9nmormyDVPg72699MkUTWTuCMz9vTYW5HvGFvAxN +jP1n0LV3NQVayi8GD13TxEvEi5wGN1PgkvdJf89iTby7WZQPJ5NBtN7LxaNd +E2sV0y7op58BmZObjVyVtLDvyrsMZpbTUBLOKd+/TQvlBQt0FeZPAdV/geOA +qhbKLb1g39N/CjysG9oOamrhVi8X7q9VpyBXJCAohqSFRQJN5ZXBp0D8YUnO +dVstXLgUdGdr30kQbqOsfonSwvGjPI+ZXiUCl6J7peMbLZTyf6pcFHccAsXB +qvidFhZeNxrj9zwO73nlB1iatHDqivalSybHIWN5gu1Zixbyma9m9HAdB763 +4XvEerTQnlf7Vlx2PAgGpS/2zmihoM2txeXaOJAqq9b2E9RGaf3snhjhWNhO +EX8S7aGNvK+zVoeZo+HplkO/mb200W1/p8KTqSgw4KbvzPTWRngYcuFySxSY +dLoMFQZoo76L91T+rShwDssSaA3TxhUD68lWchQk3BWLUEvWRvM1SeeY2Eho +4RU1HC7RxpyWHXd9OCPg6IBggxWTDjbzlat6+YTB20b35w+ZdTBM6LXoF/sw +kHlSVMXNpoNTtNV5N2oYvE8gPXrPpYPR+aKm2eJhIC/nfdVKSAdf/9AQGGw5 +Ap99ygKslHRQ5bXZ7ySTI6A5ZbfRykYHKRe3G7b4hEDy52z2h7Y6uJXP2eyt +SQj00UeZuB10GP8HBLNBuRBIPRu99G6PDmb3hrw6NBQMQ6q3Byw9dZAt3H3n +7P5guBAyW2p5VAfVIq4X5h84DHM/M/ZYZungIvebPpHjgdDXle98M0cHb3x+ +c9nJKxDeP6/cu5Crg290XD1LTAOhMGXINTtfB52OTI+UcweCm6Tu/qmHOji+ +e9p3PfsQvDbp9U97roOBnM41yc8Pwo2LyjHvRnRw2XEXo00LgNQo6jHpMR0s +KvLwdfvrD1H7dseGTehgXM3+7O9f/cFe8Xi8+IwOLj07d9aj3B/Y6S2Jh5Z0 +cL5ja/gBW38IG4pO4+LUxeQr6W8nz/rBTo3GHEt1XfQK6mk+KuILLuwWTi0a +uthBPHx44Y8PBPa/492rrYvFYfY7zn71gcz0j4m++rqoOkix4q7wgY6Jdv8E +Y12coH/ZbuzkA755o9rP9uiicc56SlS2N5wS2PBB9oQudnoq3/YhHoArk6eS +7iXq4q9UyW1/ZQ9AUR0rdftpXcx5TdlaynMA3gdzlpFTdTG0/Lu227AXCLzf +dN35ki46xIxvf3XOC/JOyfhkFOnimFAnrfqLJ7z4Sf7965MuCgZ4vtkW5AH5 +TVXeuz/roke3mfZBCw9IuqvzvqRNF4PCWpmbFD3Acq9qtl+XLur47dnDNOwO +7dUS+m3Dupj17N5Ogqs7TJ9cPVqyqIv+PNZDU3b7QJS/atpXQg9/j2+fJe91 +hdVJbceXUnqYPlf38oOBK/T9V0KX3KyH7XYl8vESrpAfXpTaukUPDRI5NlMH +XECt86oSquvhD56KRtMAFzC5FeEtiQyfcIs1StgLIWraPZ/99LB13qBcqnEP +RP6SWPM8qId/KTzKNg/2QHw9i8RsoB6eZ82pvpmxB9JdvrhyH9HDt4NRhUW7 +98D9pJhuk1g9/LOvpMN61AlG+l50Pc3UQ3XJaqVGTidwPmfdebVKD83vODlc +DnIEDxfdX1uq9VDKzi3ytaMj+G6RFiuv1cOgiVfZIiRHCKfPOn/6jzH/a5WA +TVyOcGHsYgd7kx6C5YEyv/sO8J7S9SV6SA+PbE6knpqxB8qsb7srFxGLYlfM +nITsQLRmZ0EtDxG/W2/NvfzNFmZTVI5s5iPiHOejT0yvbOGW3DzPmCARdSzz +BHwjbeGvU5zpESkiRhlGi1j27IK6movlyRpEpGaV1fo9sgHjtBcXnu4hYpVk +F1/lESuQcM7fL+pCxEJazIibrRX8kE9SO+ZGxJtPD0hvU7OCglrLt1RPIloH +pWwhT1oC83z7v3cHiTjh+32B6m0JDc7fQobiiGhWGLgxx8MCzBQIu3gLiLgo +a1qTesQcKr6/lvMtJCIpmpXt5G5zUKgKX64uImLi2/uHbhDNgdWq+fbBYiLe +f6z6S2/dDOpDk380VBBRrPG04990M6DWLF6PfUNECY7SsedPdgDR8fPIxAwR +t0xVGvNuMoUiyYQq6hwRCwTOs3Msm4DImFrG1QUi9hA66DL9JrAYnapnukzE ++aungu8Vm0D5TUi99Y+I7B4CuRJWJqAx9Vh9j6A+NptoswVnGMO2xLMx9fr6 +eKdqnWlOEaGWfJfNhqSPF390qubwIdj/qrv0xUgfhc9d3vl2FiAmZOnRpLE+ +8li8+3LvEsBbd69hPht9zPU92kPpp8JBQ6LVPi99XBw50J9ynAIPfgxLLqbq +4ze5d9kVkySglvy5fzxdH732B7zQ/48ErYfEiByZ+qir1P13LpsEa0M29hKX +9fE8c3v7X2sSWDVXJeFNfZSLjJ/NLDeE6eJz3zPK9DHmsUCESZoBqPgZ1in2 +6ONz35II+31EOC9vu3a6Tx9vGXN26hsRYXHQW29kQB9DIq+umUsT4YVbRvGt +UX38Pebb3DuoB472g9fFvutjt6b5yx5/PThGPnOEi8kATQrOt7LH68Jbgc9y +3xUNcOlLvtrUf9qg3jzmbr3NAB/Mc7eE39OGSxlr1x+oGOCBny86Zc9pgzuH +Ap+/hgGq1O0LH3bRhrk/UWsDBga44+qZhJUFLRCdlGprsTZAsmPU+X0qWuD3 +4mBSRZgB1p5tPfjFTwNmg6ejzSIMsOw+c/92PQ2IkT4c1BFlgDNLQksfWTXg +bHyo40qcAWbxKj3oLdwOpaQoWaNkA9yZQzigOqkOfypP1zbkGOBb7Ulnuzg1 +uPTk1mJrgwHGJyyd2vtZGaQ8ZSd9Gg2QT4bv2Iv7ynCXr6B38a0BEo+ynfdK +VAZa8N160U+M+Kg5I06aytCv+uiCWxdj/damFUuXtsG2+3S1kRkDFJz5ePqL +91aoy2v3XRAxxKcXYx/zqCrCkI2cZxTBEJ8XnJEa5VIEptVg198Shkho6mqY +nlQAEwcOWzZZQ6wvd6xNu6cAjRtI+uIqhrj28G7QPyUFaPK+zWVMNcSU9r2H +L2/fAj0KgSUX/A0xw61mhL5fDn63VN4XOWSI1jZzyvKmciB1nOVOTpAhtqk/ +MHy6VQ48vuReLzxiiF5fyzpsF2Rh6ExzIi2WMR5+WsA/WRYmxnV3D2UaYqjT +sM+H0M2weP/fL40qQ6R+XStICJaCcWfzvDS6IQp4J9S+MZGCLtZzFqM1hmhh +2FJqTZCCGi+J7GsvDXG3aMMy2ytJOEXQI62/M8QtV1LukmUkgT81MP59nyE6 +NBHEAvvFQS3gC5MfMwnvJl8b7koSAxkRqQcvWEl4rmf+K+8BMeBv8HYgcJBQ +par4QyRFDH7KzOd/4CFhu9lVw/5lUaju4DbVFiHhQGuAL8thUbAwxzP/tpLQ +7vgJtwhPEfBRLObK2UXCMiV3ss4hIYh9vT9QyZ6EG49Orb62EIILfoIfyh1J +mODzPih9mxDU3j2W8WEvCceb75o9nhQEYSWLTesHSLguTvy2I0gQGpXGhL2i +SKjMZb525pgAqGzbLKt0m4T29hHao0c2Ab5tTSzPJ2EU7wOL++RN4HwweZha +SMJP/DVD/7FvgtP3vxfsfUBCCx7CvfmbfNC3jdH5PiXhNecJBY0WXshUdlWd +eUNCtuLMqkbTjbCgcplYPk/CnqCNK0RfLuhqQjOhnyTsrty27yyZC16GzO6O +WCKh+zHjnxJCXJBZbhlGXCOhpfqh4B/1nKBCYnpUzULG/vcStmGKnOBtGSzX +IErGjo9EY/8ldmgP2Lmx3YiMeVseSfx9wQo1XEsSekBGi07CA7ebrFBQXKB8 +zZiM5JWzadNxrHBkbt3cxZyMlz0XpO8YsgJvdMXJPjsyvmB1qgqtYgHzZLlf +X73JeKlIYs6glhlohb+Hl1LJONt9evLJJBMQTSN+WaWTUd3r9WTcRyZ4Njyz +Me8cGbcMqW0NK2eCcpkBfatLZPyYMxDZEc8Ej7Jenrt1g2GK0aZkISbIyzhj +uLOEjMw9mHn+wl9qWsSmi1ltZJSoOWBfduM3lVMotej7FzIqkyQt6kN+U5PL +mGpNuhjr83+3g2Dym5o0uzA+00fGY3vH/rs4tUY9cbDdyHicjArXLoqXkteo +R92zJ6dWyPisucjJfGaF6rZjC5JljDBvU5rA7vhl6no7J1+DrBHKq4O2mtMy +Nc9vttdqixFmNcWIWqotU8eT6dFu24zQ1zPwhE3/EvXoO7snx7SN8A+5AkNM +lqhnbeNlaOZGqKd2TqGBsEitdvnyRzfUCD9Jk03XfyxQPaaq39eGGeEc2zRT +eusClSk2L2tHhBEO4j0T+/IFqvmNIF2nY0Z4X294NuHoArW1f8Ph8NNGmFrM +ahe4NE+d9t7eW3bdCPnL1lY3s81TJYNT6NtfGuGJoxFtNy/PUDP/+eul1xvh +ytcTSy3eM1TmS+ZlE6+MUFXurvBu7RnqdCXbg7x3Rijz+FugSes3ajVTUpZg +mxEebClKfCnyjep2JTF6ecwIOac46O0Pp6hZNcf0XvBQ8P1NgRgH7gnqRlvX +Mgk+CnZdaOFNHRmnJg4ZqEfzUzCzoaTzX/U49SDbioKmCAUFxSKjyg6PU/Xt +ooQLZCjIvVGWXbBtjNoxcvTnGS0KTtyeCgwv/koV4T5ctmsvBRcdP8qppo5Q +C02Px867UjD53QMiv+8IVft4pulldwpW2UluMcARqu186ZeuAxTcE7GjzHZ1 +mJrcsbTqc5iCYSqxAmdDhqkrBQkmsScpGLnM+6zTd4jaQ77cVlRMQTmFa5YN +v/uoByMLcy1LKKhz8aHijfo+6nLJM7+ZUgoefyVtPJDWRxWU7/qlVUnB9dRO +uCPeR7XmlJZ6/pKCzLb1X4WovdTa9iLfti8U7EtbW5nL7qZa8dHUo7ooGLtx +T6BiQDe1a+e7ZUIvBQ0dlj5U63ZTF6u/pe4fYqxvf04F8+cuqnq+5uOpaUa8 +nhEPFnm7qLU9xlEZ3ymoFE/YIjbQSbUS3g0a8xRs9qlxvFLSSfVPifwcsUTB +XSz+1rn2ndTFl8k5YisUDHB/06oo30k9tXbdp3qNgtmnOzM4Fjuo/LoP1DzW +GfMfPNCLjR3UW8HVS//+UXBE1lDuc1YH9X9CgPto + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4lN8XAHDZl8hurCGULftgxsw5iGzZkhCRtQjJGopKlkh7IRWSFiUk +ZlD6UtoUIfsua7IUQqnf/P56n89zn/e595x7z33PK+cd6ujHzMTE1LKBien/ +z+WBd68U0gupHzmHLPd7O1DbbxGOGXedgsAoF/qzrxqAIs3ehK5L4FS3UfXQ +V4Ao+4edLF0FMHLVcbfKVzsQmBW7tNpZDndOhRbdH/WEwVrb0MXOepAtudw7 +MBwK5grT/QudreCXryvS2ZMAq536V+c7RyAqq+F2x4vz0GB6r/BzwU/gmWf6 +NmaZB1KD9HFvtXUwzLrOJ5R3D4QPez7kMGXBTnKL7l2tElDhuNNov5cF1XgC +As/alAAWjI9kB7Gg4eCuX14BJXC4K1hS7QoLCssOTg3nlsCrHfEZ9mMsGGcb +tqLF8QQipLNDslNYUWM4V2RD9xNo+9SqrdrEhpTucrtUWilc0jKvsd3DicHl +uYq+BuWg0eu6k3KQEw9VLF0VMS2HpqTgNtU4Tozc9/hy3a5yYO+68o0znxPF +S9eV173LIe7EqGTDDCeSHPP9Zc6Vg++HxHj9JC60fHvJaXmwHIh+NRTZp9xI +/alTMZ7wFNr4mt/xNXJjzDjH2ztpT+EIbWTPehc3Kh2W4XK9/BQe8nCH9Pzl +RlnmQ5yPip7C5nKXW1eseDArZr7sZ9NT4Py39JdzhAfz/V9FchAqoDtL8+UC +Py+eP7m8pnG/AnLaijdFKfIi77ve2ftlFeDGt9VzzZAXjy/NuhJqKqDvtPRf +Zh9eTBr0S+/5WAFDIdxGws94sTDipsjMjwqY3PG1iujKh/T99k+Myc9gZf76 +k7j8TTjeMFN579UzoKsK/fv3bBNmNHkrfWt6BrH+mbZJ7zdhyaz0O4Uvz+BP +b9L3jJ+bkD73MT927BkkjtJEmuX5MTvvSngpWyUkfbq7eyiCH1V+p9iY7qiE +9MKEZmZxAQyONJz9Q68EK91DgiJbBHBC8bLf6MtK4HzluGerugB+DPU3e/mG +8f6oYq+1McMZ98geXyohXr5p/MohAZSx2Dm/Zb4SQvIIf5WqBfApi+X66JYq +cMgtU7PeJ4jUnYPiaklVwK92I9TDTxCHrcXqBtKq4FNNUnloqCA+Z6+rTzlf +BVa9ew2unBbED/ItY7U5VWAi8de0v1gQ9Wgnbz8trQLdLKt9oX8E0SXMQ6Kt +pwrEroymXb4phEFdsKN/Kw0Iqs+SVooYDmdz3qRGA4n65ASPUiGMpAkKG2rS +QGZeOXJrgxD2mn27Hm5AA0WbI141k0J4KW+yLcmCBjqs68RRHWEM6frUQQig +ge6NT1oWFGE86lfM2xhIA6J2ntpjc2FkaUv8GxhCA5KXqXy0qzAmrsoJ5kbS +wLg2jZcnQRhvTp6VuXGaBnYRol+13wujiCzva95bNLDnmRy43iaM4XXiMvr5 +NHAsoHf/6RPGA493m7oU0sC5xb25cU4Y9ypE/zr5kAYeaneq3UREkFk5WTW8 +kgZBXzUunvISQYM6k9WPTTQ4HLchY+KQCLK9qadFNNMgRLAt2SZcBCfaWfYJ +tdLgKEbFiyaL4CY7FluDThocy60NeFgsgk2CcRJywzRIcbKkti6LoPEO0brQ +n4x8VXySYN4gilpZRqENSzQoEXL6pcUjij60yxW8KzToaN1fenGzKDYcEOdM +/kMDBYcIeQcLUdz74qYwOxsdaKWrfxMdRVEkjlrKx0EHG/6E3lJ3xnimyiIv +Fx3Cm9Ou8IeJYu6rnhPzG+lQv+s2e0u2KMp9SB43E6aD82OF0X93RPGE9E4e +VlE6TG98WKdRIopv1j/M0MToINBUEXO+XhRHrRrn2SXp4GX1ftr2mygyd0hY +6MrRYfGB3ZsTS6J49l30rfvydEjh+nKn5J8oLpYffCOkQIeSt4PufMJiyN/i +kPtJiQ7r5kufPhqJofL00YIOVTpcKIotXjcXw9iH8f0b1OmgwM6Uqu4ghrNU +fWaF7Yx4XnMbn/MTwz6fEuFdmnQYUrgg/TxUDBMdQjmdtBjxJYmszRwTw+hX +UwsO2nTIMZV9apMphmJC1uXaunTYfufu+fgsMXxgtf+8iB4jfmbVw48KGPNX +ng6ZY3jqPz3FjVVieE33CqTq0yFermaD0X9imM3Xpr/TgA78J3Eg6IMYeuV/ +oK4zbIDW1z8MimEw+5sztiQ6NN1uCf89JYYvI3c0TTHs9W+PveqiGKZ8OrI9 +nszIz/5etX1/xTDB/eoTNiNGfl54caVzEjBrO9PuZIYlZMbHqgUJqCbIKvWX +4ZLjQfXTUgTUyVzhDabQwaR//pbEVgKeHzBUa2O4wygqzkqLgJpz22I1qXQI +zP29N5ZMQLe9qr+TGF7/naj70IyA752Ky1sYvrCPXaDHjoBDjWKFQsDIb036 +dy43An5R/tq6i2GahMB7Q18CDlxMNUlg2Cb2WtGhEAI6FZ1cvsfwULfk6ewY +Arbk2v94w3C4Yb7nu1MEdNeNMxxk2CqPb9E6g4Df6Z5S3xmW54hP/XSVgBP3 +Z0N+MrwaPCXlcJuAPdb8uj8Ybml3Lmu7T0CCQ2nIFMP3ya/MnMsJaPjmuVw3 +wwkFWj1dNQS8IK5q/x/Dzly3Q/a9JmD1xtk/+QxvP7KRZeATAflr/qnEMczW +eey6VxcBVS+699sw3EeZUB0dJqCDFauYGMMVhU4v/b4RcH1mtaebkY90nnqn +yUUC2r4xVbvKsPdRjanAvwSMC/rGa8kwqTv3+HcOcdz1aP3UEiPfk0XRRT8k +xNEv/q6OAcN1vGOkSAVxXG/zjfzE2K9rEY7Nv9TF8ZnDiLMHw2Ym6it/UBz1 +gzLZ/Bj7L/UgJyPBShzFzZi6+xnnY3ETpxyzkziqV1e62DFc0D9iyREgjmah +OYekDOlwbIf9QNoRcbSb37IhhnHe7IufH90YK467Ux46NDHO57+YrBsC58Sx +fm+aiieRDu7Ctt8ln4pjQKym6HYdOujE1Zy8VSuO0Rs1W+wY9cA9sk1UrlEc +Q6U1PQIZ9UJ/wgJK3eIopHV4PU2DDqLW9Aua/8QxwlSgIpxRj9/LlBSfckrg +PUWKj7sKHV4RrtD1BCVwm6wKE1WZsf/jISMkRQm8Qxngn2HUc8tJBV0zawms +rDj8/SfjPrg3efHtGycJ5F22CiyUpcMJu3/uVvsl0PKF1/yuzXRQl+45Yxcm +gc2x8koZUnQ4Szvf6XpdAn/Wy+c8Y9w/O+bWYkNGJXD3+uTzOsb9dcziisp/ +MxJ4HtYseDgZ9ZGv3iO0LIG3FPe72rPTgeDkZUjnlMQW216xN8x0mKG9/sWy +XRJ901wOB/ymweVTFyKyYyTxb5xUYtQ3GrztVVaYOSmJeeYaG9ynaPBHt6GN +mi6JL3dnAHmCBv4TS9pfb0oiMSCEeWKE8b2x2bewvUESL8uZsy1202BERCnk +Fa8UziyeUJ5opIFYaJ20mJgUnnn3WyPwFQ1s3rp8PCQrhV8zWtQn/qNBZWy6 +2iYdKVTmtpRprqXB2cH5aVcXKVxGO9LechpoP6gJmCuQwtwmnzvWuTQ4aeRw +QMJAGlfZvOmDQTSw2H/rh76JNDKzatd7H6QBX+K303tspNGtYwMO+tIgt+FM +0QUvadSWOV/yyoMGNKvqb+xp0ih+1n7U2I4G8y5bon52S+P0bzkBbi0a7I9c +OtsUJ4M0DWHOpbkqULxuIjV9Rga7jubHln6rYuTv/GOOCzJY92md1X+iCmL/ +KLeYFMrg1hdjkXUDVXD19H4RepMMBjlzual9rIKmi29u35XejI9rgmt/3K8C +Ukl2xYm6zTi6rFXs7F4FOzo/rc++3YyP2FhiK/ZWgS0T607P1s1Y9sGnknd3 +Ffg4hnTD2GZsPCyZVm5ZBeZxcgmJbLIIi0c2NRKr4Mjm5TvGqrKYcZ5+iMBf +Ba8Cbn9viJJl9IOD9NS6Sji8spD4llcOlTp/0NIFK2FVlX9AfY88PplM3GEf +UgFGxY/yrl3bgjbhLjH0onJYELTycq5XQNMJtqH0yVL4muHlfJRDCX8yuTVb +/XkMlnPRlmPEreh9gMRiFP0QZnw4wysStqGKkH3Pz09FjH5fjDmlXhlT/vKs +iIbfAcGPSpmlcyrY3n5V9f1FRn+f+sSeSFTDns6FsMWTNyBL1ZBfKEAdfxin +PlrqvgbvJYz1fl7cjjTYxnK5+xKQpOovaHRoIEft6Sd/yJkwskVhYKpHA2OK +alMOy2dCmmqyauGgBspPJ47OcGZCF8mqkTClga8zZQQ2d5yDaNfW3xv+aCDT +udanFmHnwM06TGeaXxPPXUg6+ehhBlxLZVwHRE0k7NpcekE5HfhYCiIOnNLE +50bZspecU4F9tW73QpIm9nmormyDVPg72699MkUTWTuCMz9vTYW5HvGFvAxN +jP1n0LV3NQVayi8GD13TxEvEi5wGN1PgkvdJf89iTby7WZQPJ5NBtN7LxaNd +E2sV0y7op58BmZObjVyVtLDvyrsMZpbTUBLOKd+/TQvlBQt0FeZPAdV/geOA +qhbKLb1g39N/CjysG9oOamrhVi8X7q9VpyBXJCAohqSFRQJN5ZXBp0D8YUnO +dVstXLgUdGdr30kQbqOsfonSwvGjPI+ZXiUCl6J7peMbLZTyf6pcFHccAsXB +qvidFhZeNxrj9zwO73nlB1iatHDqivalSybHIWN5gu1Zixbyma9m9HAdB763 +4XvEerTQnlf7Vlx2PAgGpS/2zmihoM2txeXaOJAqq9b2E9RGaf3snhjhWNhO +EX8S7aGNvK+zVoeZo+HplkO/mb200W1/p8KTqSgw4KbvzPTWRngYcuFySxSY +dLoMFQZoo76L91T+rShwDssSaA3TxhUD68lWchQk3BWLUEvWRvM1SeeY2Eho +4RU1HC7RxpyWHXd9OCPg6IBggxWTDjbzlat6+YTB20b35w+ZdTBM6LXoF/sw +kHlSVMXNpoNTtNV5N2oYvE8gPXrPpYPR+aKm2eJhIC/nfdVKSAdf/9AQGGw5 +Ap99ygKslHRQ5bXZ7ySTI6A5ZbfRykYHKRe3G7b4hEDy52z2h7Y6uJXP2eyt +SQj00UeZuB10GP8HBLNBuRBIPRu99G6PDmb3hrw6NBQMQ6q3Byw9dZAt3H3n +7P5guBAyW2p5VAfVIq4X5h84DHM/M/ZYZungIvebPpHjgdDXle98M0cHb3x+ +c9nJKxDeP6/cu5Crg290XD1LTAOhMGXINTtfB52OTI+UcweCm6Tu/qmHOji+ +e9p3PfsQvDbp9U97roOBnM41yc8Pwo2LyjHvRnRw2XEXo00LgNQo6jHpMR0s +KvLwdfvrD1H7dseGTehgXM3+7O9f/cFe8Xi8+IwOLj07d9aj3B/Y6S2Jh5Z0 +cL5ja/gBW38IG4pO4+LUxeQr6W8nz/rBTo3GHEt1XfQK6mk+KuILLuwWTi0a +uthBPHx44Y8PBPa/492rrYvFYfY7zn71gcz0j4m++rqoOkix4q7wgY6Jdv8E +Y12coH/ZbuzkA755o9rP9uiicc56SlS2N5wS2PBB9oQudnoq3/YhHoArk6eS +7iXq4q9UyW1/ZQ9AUR0rdftpXcx5TdlaynMA3gdzlpFTdTG0/Lu227AXCLzf +dN35ki46xIxvf3XOC/JOyfhkFOnimFAnrfqLJ7z4Sf7965MuCgZ4vtkW5AH5 +TVXeuz/roke3mfZBCw9IuqvzvqRNF4PCWpmbFD3Acq9qtl+XLur47dnDNOwO +7dUS+m3Dupj17N5Ogqs7TJ9cPVqyqIv+PNZDU3b7QJS/atpXQg9/j2+fJe91 +hdVJbceXUnqYPlf38oOBK/T9V0KX3KyH7XYl8vESrpAfXpTaukUPDRI5NlMH +XECt86oSquvhD56KRtMAFzC5FeEtiQyfcIs1StgLIWraPZ/99LB13qBcqnEP +RP6SWPM8qId/KTzKNg/2QHw9i8RsoB6eZ82pvpmxB9JdvrhyH9HDt4NRhUW7 +98D9pJhuk1g9/LOvpMN61AlG+l50Pc3UQ3XJaqVGTidwPmfdebVKD83vODlc +DnIEDxfdX1uq9VDKzi3ytaMj+G6RFiuv1cOgiVfZIiRHCKfPOn/6jzH/a5WA +TVyOcGHsYgd7kx6C5YEyv/sO8J7S9SV6SA+PbE6knpqxB8qsb7srFxGLYlfM +nITsQLRmZ0EtDxG/W2/NvfzNFmZTVI5s5iPiHOejT0yvbOGW3DzPmCARdSzz +BHwjbeGvU5zpESkiRhlGi1j27IK6movlyRpEpGaV1fo9sgHjtBcXnu4hYpVk +F1/lESuQcM7fL+pCxEJazIibrRX8kE9SO+ZGxJtPD0hvU7OCglrLt1RPIloH +pWwhT1oC83z7v3cHiTjh+32B6m0JDc7fQobiiGhWGLgxx8MCzBQIu3gLiLgo +a1qTesQcKr6/lvMtJCIpmpXt5G5zUKgKX64uImLi2/uHbhDNgdWq+fbBYiLe +f6z6S2/dDOpDk380VBBRrPG04990M6DWLF6PfUNECY7SsedPdgDR8fPIxAwR +t0xVGvNuMoUiyYQq6hwRCwTOs3Msm4DImFrG1QUi9hA66DL9JrAYnapnukzE ++aungu8Vm0D5TUi99Y+I7B4CuRJWJqAx9Vh9j6A+NptoswVnGMO2xLMx9fr6 +eKdqnWlOEaGWfJfNhqSPF390qubwIdj/qrv0xUgfhc9d3vl2FiAmZOnRpLE+ +8li8+3LvEsBbd69hPht9zPU92kPpp8JBQ6LVPi99XBw50J9ynAIPfgxLLqbq +4ze5d9kVkySglvy5fzxdH732B7zQ/48ErYfEiByZ+qir1P13LpsEa0M29hKX +9fE8c3v7X2sSWDVXJeFNfZSLjJ/NLDeE6eJz3zPK9DHmsUCESZoBqPgZ1in2 +6ONz35II+31EOC9vu3a6Tx9vGXN26hsRYXHQW29kQB9DIq+umUsT4YVbRvGt +UX38Pebb3DuoB472g9fFvutjt6b5yx5/PThGPnOEi8kATQrOt7LH68Jbgc9y +3xUNcOlLvtrUf9qg3jzmbr3NAB/Mc7eE39OGSxlr1x+oGOCBny86Zc9pgzuH +Ap+/hgGq1O0LH3bRhrk/UWsDBga44+qZhJUFLRCdlGprsTZAsmPU+X0qWuD3 +4mBSRZgB1p5tPfjFTwNmg6ejzSIMsOw+c/92PQ2IkT4c1BFlgDNLQksfWTXg +bHyo40qcAWbxKj3oLdwOpaQoWaNkA9yZQzigOqkOfypP1zbkGOBb7Ulnuzg1 +uPTk1mJrgwHGJyyd2vtZGaQ8ZSd9Gg2QT4bv2Iv7ynCXr6B38a0BEo+ynfdK +VAZa8N160U+M+Kg5I06aytCv+uiCWxdj/damFUuXtsG2+3S1kRkDFJz5ePqL +91aoy2v3XRAxxKcXYx/zqCrCkI2cZxTBEJ8XnJEa5VIEptVg198Shkho6mqY +nlQAEwcOWzZZQ6wvd6xNu6cAjRtI+uIqhrj28G7QPyUFaPK+zWVMNcSU9r2H +L2/fAj0KgSUX/A0xw61mhL5fDn63VN4XOWSI1jZzyvKmciB1nOVOTpAhtqk/ +MHy6VQ48vuReLzxiiF5fyzpsF2Rh6ExzIi2WMR5+WsA/WRYmxnV3D2UaYqjT +sM+H0M2weP/fL40qQ6R+XStICJaCcWfzvDS6IQp4J9S+MZGCLtZzFqM1hmhh +2FJqTZCCGi+J7GsvDXG3aMMy2ytJOEXQI62/M8QtV1LukmUkgT81MP59nyE6 +NBHEAvvFQS3gC5MfMwnvJl8b7koSAxkRqQcvWEl4rmf+K+8BMeBv8HYgcJBQ +par4QyRFDH7KzOd/4CFhu9lVw/5lUaju4DbVFiHhQGuAL8thUbAwxzP/tpLQ +7vgJtwhPEfBRLObK2UXCMiV3ss4hIYh9vT9QyZ6EG49Orb62EIILfoIfyh1J +mODzPih9mxDU3j2W8WEvCceb75o9nhQEYSWLTesHSLguTvy2I0gQGpXGhL2i +SKjMZb525pgAqGzbLKt0m4T29hHao0c2Ab5tTSzPJ2EU7wOL++RN4HwweZha +SMJP/DVD/7FvgtP3vxfsfUBCCx7CvfmbfNC3jdH5PiXhNecJBY0WXshUdlWd +eUNCtuLMqkbTjbCgcplYPk/CnqCNK0RfLuhqQjOhnyTsrty27yyZC16GzO6O +WCKh+zHjnxJCXJBZbhlGXCOhpfqh4B/1nKBCYnpUzULG/vcStmGKnOBtGSzX +IErGjo9EY/8ldmgP2Lmx3YiMeVseSfx9wQo1XEsSekBGi07CA7ebrFBQXKB8 +zZiM5JWzadNxrHBkbt3cxZyMlz0XpO8YsgJvdMXJPjsyvmB1qgqtYgHzZLlf +X73JeKlIYs6glhlohb+Hl1LJONt9evLJJBMQTSN+WaWTUd3r9WTcRyZ4Njyz +Me8cGbcMqW0NK2eCcpkBfatLZPyYMxDZEc8Ej7Jenrt1g2GK0aZkISbIyzhj +uLOEjMw9mHn+wl9qWsSmi1ltZJSoOWBfduM3lVMotej7FzIqkyQt6kN+U5PL +mGpNuhjr83+3g2Dym5o0uzA+00fGY3vH/rs4tUY9cbDdyHicjArXLoqXkteo +R92zJ6dWyPisucjJfGaF6rZjC5JljDBvU5rA7vhl6no7J1+DrBHKq4O2mtMy +Nc9vttdqixFmNcWIWqotU8eT6dFu24zQ1zPwhE3/EvXoO7snx7SN8A+5AkNM +lqhnbeNlaOZGqKd2TqGBsEitdvnyRzfUCD9Jk03XfyxQPaaq39eGGeEc2zRT +eusClSk2L2tHhBEO4j0T+/IFqvmNIF2nY0Z4X294NuHoArW1f8Ph8NNGmFrM +ahe4NE+d9t7eW3bdCPnL1lY3s81TJYNT6NtfGuGJoxFtNy/PUDP/+eul1xvh +ytcTSy3eM1TmS+ZlE6+MUFXurvBu7RnqdCXbg7x3Rijz+FugSes3ajVTUpZg +mxEebClKfCnyjep2JTF6ecwIOac46O0Pp6hZNcf0XvBQ8P1NgRgH7gnqRlvX +Mgk+CnZdaOFNHRmnJg4ZqEfzUzCzoaTzX/U49SDbioKmCAUFxSKjyg6PU/Xt +ooQLZCjIvVGWXbBtjNoxcvTnGS0KTtyeCgwv/koV4T5ctmsvBRcdP8qppo5Q +C02Px867UjD53QMiv+8IVft4pulldwpW2UluMcARqu186ZeuAxTcE7GjzHZ1 +mJrcsbTqc5iCYSqxAmdDhqkrBQkmsScpGLnM+6zTd4jaQ77cVlRMQTmFa5YN +v/uoByMLcy1LKKhz8aHijfo+6nLJM7+ZUgoefyVtPJDWRxWU7/qlVUnB9dRO +uCPeR7XmlJZ6/pKCzLb1X4WovdTa9iLfti8U7EtbW5nL7qZa8dHUo7ooGLtx +T6BiQDe1a+e7ZUIvBQ0dlj5U63ZTF6u/pe4fYqxvf04F8+cuqnq+5uOpaUa8 +nhEPFnm7qLU9xlEZ3ymoFE/YIjbQSbUS3g0a8xRs9qlxvFLSSfVPifwcsUTB +XSz+1rn2ndTFl8k5YisUDHB/06oo30k9tXbdp3qNgtmnOzM4Fjuo/LoP1DzW +GfMfPNCLjR3UW8HVS//+UXBE1lDuc1YH9X9CgPto + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09863206346804852}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.09863206346804852}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4lN8XAHDZl8hurCGULftgxsw5iGzZkhCRtQjJGopKlkh7IRWSFiUk +ZlD6UtoUIfsua7IUQqnf/P56n89zn/e595x7z33PK+cd6ujHzMTE1LKBien/ +z+WBd68U0gupHzmHLPd7O1DbbxGOGXedgsAoF/qzrxqAIs3ehK5L4FS3UfXQ +V4Ao+4edLF0FMHLVcbfKVzsQmBW7tNpZDndOhRbdH/WEwVrb0MXOepAtudw7 +MBwK5grT/QudreCXryvS2ZMAq536V+c7RyAqq+F2x4vz0GB6r/BzwU/gmWf6 +NmaZB1KD9HFvtXUwzLrOJ5R3D4QPez7kMGXBTnKL7l2tElDhuNNov5cF1XgC +As/alAAWjI9kB7Gg4eCuX14BJXC4K1hS7QoLCssOTg3nlsCrHfEZ9mMsGGcb +tqLF8QQipLNDslNYUWM4V2RD9xNo+9SqrdrEhpTucrtUWilc0jKvsd3DicHl +uYq+BuWg0eu6k3KQEw9VLF0VMS2HpqTgNtU4Tozc9/hy3a5yYO+68o0znxPF +S9eV173LIe7EqGTDDCeSHPP9Zc6Vg++HxHj9JC60fHvJaXmwHIh+NRTZp9xI +/alTMZ7wFNr4mt/xNXJjzDjH2ztpT+EIbWTPehc3Kh2W4XK9/BQe8nCH9Pzl +RlnmQ5yPip7C5nKXW1eseDArZr7sZ9NT4Py39JdzhAfz/V9FchAqoDtL8+UC +Py+eP7m8pnG/AnLaijdFKfIi77ve2ftlFeDGt9VzzZAXjy/NuhJqKqDvtPRf +Zh9eTBr0S+/5WAFDIdxGws94sTDipsjMjwqY3PG1iujKh/T99k+Myc9gZf76 +k7j8TTjeMFN579UzoKsK/fv3bBNmNHkrfWt6BrH+mbZJ7zdhyaz0O4Uvz+BP +b9L3jJ+bkD73MT927BkkjtJEmuX5MTvvSngpWyUkfbq7eyiCH1V+p9iY7qiE +9MKEZmZxAQyONJz9Q68EK91DgiJbBHBC8bLf6MtK4HzluGerugB+DPU3e/mG +8f6oYq+1McMZ98geXyohXr5p/MohAZSx2Dm/Zb4SQvIIf5WqBfApi+X66JYq +cMgtU7PeJ4jUnYPiaklVwK92I9TDTxCHrcXqBtKq4FNNUnloqCA+Z6+rTzlf +BVa9ew2unBbED/ItY7U5VWAi8de0v1gQ9Wgnbz8trQLdLKt9oX8E0SXMQ6Kt +pwrEroymXb4phEFdsKN/Kw0Iqs+SVooYDmdz3qRGA4n65ASPUiGMpAkKG2rS +QGZeOXJrgxD2mn27Hm5AA0WbI141k0J4KW+yLcmCBjqs68RRHWEM6frUQQig +ge6NT1oWFGE86lfM2xhIA6J2ntpjc2FkaUv8GxhCA5KXqXy0qzAmrsoJ5kbS +wLg2jZcnQRhvTp6VuXGaBnYRol+13wujiCzva95bNLDnmRy43iaM4XXiMvr5 +NHAsoHf/6RPGA493m7oU0sC5xb25cU4Y9ypE/zr5kAYeaneq3UREkFk5WTW8 +kgZBXzUunvISQYM6k9WPTTQ4HLchY+KQCLK9qadFNNMgRLAt2SZcBCfaWfYJ +tdLgKEbFiyaL4CY7FluDThocy60NeFgsgk2CcRJywzRIcbKkti6LoPEO0brQ +n4x8VXySYN4gilpZRqENSzQoEXL6pcUjij60yxW8KzToaN1fenGzKDYcEOdM +/kMDBYcIeQcLUdz74qYwOxsdaKWrfxMdRVEkjlrKx0EHG/6E3lJ3xnimyiIv +Fx3Cm9Ou8IeJYu6rnhPzG+lQv+s2e0u2KMp9SB43E6aD82OF0X93RPGE9E4e +VlE6TG98WKdRIopv1j/M0MToINBUEXO+XhRHrRrn2SXp4GX1ftr2mygyd0hY +6MrRYfGB3ZsTS6J49l30rfvydEjh+nKn5J8oLpYffCOkQIeSt4PufMJiyN/i +kPtJiQ7r5kufPhqJofL00YIOVTpcKIotXjcXw9iH8f0b1OmgwM6Uqu4ghrNU +fWaF7Yx4XnMbn/MTwz6fEuFdmnQYUrgg/TxUDBMdQjmdtBjxJYmszRwTw+hX +UwsO2nTIMZV9apMphmJC1uXaunTYfufu+fgsMXxgtf+8iB4jfmbVw48KGPNX +ng6ZY3jqPz3FjVVieE33CqTq0yFermaD0X9imM3Xpr/TgA78J3Eg6IMYeuV/ +oK4zbIDW1z8MimEw+5sztiQ6NN1uCf89JYYvI3c0TTHs9W+PveqiGKZ8OrI9 +nszIz/5etX1/xTDB/eoTNiNGfl54caVzEjBrO9PuZIYlZMbHqgUJqCbIKvWX +4ZLjQfXTUgTUyVzhDabQwaR//pbEVgKeHzBUa2O4wygqzkqLgJpz22I1qXQI +zP29N5ZMQLe9qr+TGF7/naj70IyA752Ky1sYvrCPXaDHjoBDjWKFQsDIb036 +dy43An5R/tq6i2GahMB7Q18CDlxMNUlg2Cb2WtGhEAI6FZ1cvsfwULfk6ewY +Arbk2v94w3C4Yb7nu1MEdNeNMxxk2CqPb9E6g4Df6Z5S3xmW54hP/XSVgBP3 +Z0N+MrwaPCXlcJuAPdb8uj8Ybml3Lmu7T0CCQ2nIFMP3ya/MnMsJaPjmuVw3 +wwkFWj1dNQS8IK5q/x/Dzly3Q/a9JmD1xtk/+QxvP7KRZeATAflr/qnEMczW +eey6VxcBVS+699sw3EeZUB0dJqCDFauYGMMVhU4v/b4RcH1mtaebkY90nnqn +yUUC2r4xVbvKsPdRjanAvwSMC/rGa8kwqTv3+HcOcdz1aP3UEiPfk0XRRT8k +xNEv/q6OAcN1vGOkSAVxXG/zjfzE2K9rEY7Nv9TF8ZnDiLMHw2Ym6it/UBz1 +gzLZ/Bj7L/UgJyPBShzFzZi6+xnnY3ETpxyzkziqV1e62DFc0D9iyREgjmah +OYekDOlwbIf9QNoRcbSb37IhhnHe7IufH90YK467Ux46NDHO57+YrBsC58Sx +fm+aiieRDu7Ctt8ln4pjQKym6HYdOujE1Zy8VSuO0Rs1W+wY9cA9sk1UrlEc +Q6U1PQIZ9UJ/wgJK3eIopHV4PU2DDqLW9Aua/8QxwlSgIpxRj9/LlBSfckrg +PUWKj7sKHV4RrtD1BCVwm6wKE1WZsf/jISMkRQm8Qxngn2HUc8tJBV0zawms +rDj8/SfjPrg3efHtGycJ5F22CiyUpcMJu3/uVvsl0PKF1/yuzXRQl+45Yxcm +gc2x8koZUnQ4Szvf6XpdAn/Wy+c8Y9w/O+bWYkNGJXD3+uTzOsb9dcziisp/ +MxJ4HtYseDgZ9ZGv3iO0LIG3FPe72rPTgeDkZUjnlMQW216xN8x0mKG9/sWy +XRJ901wOB/ymweVTFyKyYyTxb5xUYtQ3GrztVVaYOSmJeeYaG9ynaPBHt6GN +mi6JL3dnAHmCBv4TS9pfb0oiMSCEeWKE8b2x2bewvUESL8uZsy1202BERCnk +Fa8UziyeUJ5opIFYaJ20mJgUnnn3WyPwFQ1s3rp8PCQrhV8zWtQn/qNBZWy6 +2iYdKVTmtpRprqXB2cH5aVcXKVxGO9LechpoP6gJmCuQwtwmnzvWuTQ4aeRw +QMJAGlfZvOmDQTSw2H/rh76JNDKzatd7H6QBX+K303tspNGtYwMO+tIgt+FM +0QUvadSWOV/yyoMGNKvqb+xp0ih+1n7U2I4G8y5bon52S+P0bzkBbi0a7I9c +OtsUJ4M0DWHOpbkqULxuIjV9Rga7jubHln6rYuTv/GOOCzJY92md1X+iCmL/ +KLeYFMrg1hdjkXUDVXD19H4RepMMBjlzual9rIKmi29u35XejI9rgmt/3K8C +Ukl2xYm6zTi6rFXs7F4FOzo/rc++3YyP2FhiK/ZWgS0T607P1s1Y9sGnknd3 +Ffg4hnTD2GZsPCyZVm5ZBeZxcgmJbLIIi0c2NRKr4Mjm5TvGqrKYcZ5+iMBf +Ba8Cbn9viJJl9IOD9NS6Sji8spD4llcOlTp/0NIFK2FVlX9AfY88PplM3GEf +UgFGxY/yrl3bgjbhLjH0onJYELTycq5XQNMJtqH0yVL4muHlfJRDCX8yuTVb +/XkMlnPRlmPEreh9gMRiFP0QZnw4wysStqGKkH3Pz09FjH5fjDmlXhlT/vKs +iIbfAcGPSpmlcyrY3n5V9f1FRn+f+sSeSFTDns6FsMWTNyBL1ZBfKEAdfxin +PlrqvgbvJYz1fl7cjjTYxnK5+xKQpOovaHRoIEft6Sd/yJkwskVhYKpHA2OK +alMOy2dCmmqyauGgBspPJ47OcGZCF8mqkTClga8zZQQ2d5yDaNfW3xv+aCDT +udanFmHnwM06TGeaXxPPXUg6+ehhBlxLZVwHRE0k7NpcekE5HfhYCiIOnNLE +50bZspecU4F9tW73QpIm9nmormyDVPg72699MkUTWTuCMz9vTYW5HvGFvAxN +jP1n0LV3NQVayi8GD13TxEvEi5wGN1PgkvdJf89iTby7WZQPJ5NBtN7LxaNd +E2sV0y7op58BmZObjVyVtLDvyrsMZpbTUBLOKd+/TQvlBQt0FeZPAdV/geOA +qhbKLb1g39N/CjysG9oOamrhVi8X7q9VpyBXJCAohqSFRQJN5ZXBp0D8YUnO +dVstXLgUdGdr30kQbqOsfonSwvGjPI+ZXiUCl6J7peMbLZTyf6pcFHccAsXB +qvidFhZeNxrj9zwO73nlB1iatHDqivalSybHIWN5gu1Zixbyma9m9HAdB763 +4XvEerTQnlf7Vlx2PAgGpS/2zmihoM2txeXaOJAqq9b2E9RGaf3snhjhWNhO +EX8S7aGNvK+zVoeZo+HplkO/mb200W1/p8KTqSgw4KbvzPTWRngYcuFySxSY +dLoMFQZoo76L91T+rShwDssSaA3TxhUD68lWchQk3BWLUEvWRvM1SeeY2Eho +4RU1HC7RxpyWHXd9OCPg6IBggxWTDjbzlat6+YTB20b35w+ZdTBM6LXoF/sw +kHlSVMXNpoNTtNV5N2oYvE8gPXrPpYPR+aKm2eJhIC/nfdVKSAdf/9AQGGw5 +Ap99ygKslHRQ5bXZ7ySTI6A5ZbfRykYHKRe3G7b4hEDy52z2h7Y6uJXP2eyt +SQj00UeZuB10GP8HBLNBuRBIPRu99G6PDmb3hrw6NBQMQ6q3Byw9dZAt3H3n +7P5guBAyW2p5VAfVIq4X5h84DHM/M/ZYZungIvebPpHjgdDXle98M0cHb3x+ +c9nJKxDeP6/cu5Crg290XD1LTAOhMGXINTtfB52OTI+UcweCm6Tu/qmHOji+ +e9p3PfsQvDbp9U97roOBnM41yc8Pwo2LyjHvRnRw2XEXo00LgNQo6jHpMR0s +KvLwdfvrD1H7dseGTehgXM3+7O9f/cFe8Xi8+IwOLj07d9aj3B/Y6S2Jh5Z0 +cL5ja/gBW38IG4pO4+LUxeQr6W8nz/rBTo3GHEt1XfQK6mk+KuILLuwWTi0a +uthBPHx44Y8PBPa/492rrYvFYfY7zn71gcz0j4m++rqoOkix4q7wgY6Jdv8E +Y12coH/ZbuzkA755o9rP9uiicc56SlS2N5wS2PBB9oQudnoq3/YhHoArk6eS +7iXq4q9UyW1/ZQ9AUR0rdftpXcx5TdlaynMA3gdzlpFTdTG0/Lu227AXCLzf +dN35ki46xIxvf3XOC/JOyfhkFOnimFAnrfqLJ7z4Sf7965MuCgZ4vtkW5AH5 +TVXeuz/roke3mfZBCw9IuqvzvqRNF4PCWpmbFD3Acq9qtl+XLur47dnDNOwO +7dUS+m3Dupj17N5Ogqs7TJ9cPVqyqIv+PNZDU3b7QJS/atpXQg9/j2+fJe91 +hdVJbceXUnqYPlf38oOBK/T9V0KX3KyH7XYl8vESrpAfXpTaukUPDRI5NlMH +XECt86oSquvhD56KRtMAFzC5FeEtiQyfcIs1StgLIWraPZ/99LB13qBcqnEP +RP6SWPM8qId/KTzKNg/2QHw9i8RsoB6eZ82pvpmxB9JdvrhyH9HDt4NRhUW7 +98D9pJhuk1g9/LOvpMN61AlG+l50Pc3UQ3XJaqVGTidwPmfdebVKD83vODlc +DnIEDxfdX1uq9VDKzi3ytaMj+G6RFiuv1cOgiVfZIiRHCKfPOn/6jzH/a5WA +TVyOcGHsYgd7kx6C5YEyv/sO8J7S9SV6SA+PbE6knpqxB8qsb7srFxGLYlfM +nITsQLRmZ0EtDxG/W2/NvfzNFmZTVI5s5iPiHOejT0yvbOGW3DzPmCARdSzz +BHwjbeGvU5zpESkiRhlGi1j27IK6movlyRpEpGaV1fo9sgHjtBcXnu4hYpVk +F1/lESuQcM7fL+pCxEJazIibrRX8kE9SO+ZGxJtPD0hvU7OCglrLt1RPIloH +pWwhT1oC83z7v3cHiTjh+32B6m0JDc7fQobiiGhWGLgxx8MCzBQIu3gLiLgo +a1qTesQcKr6/lvMtJCIpmpXt5G5zUKgKX64uImLi2/uHbhDNgdWq+fbBYiLe +f6z6S2/dDOpDk380VBBRrPG04990M6DWLF6PfUNECY7SsedPdgDR8fPIxAwR +t0xVGvNuMoUiyYQq6hwRCwTOs3Msm4DImFrG1QUi9hA66DL9JrAYnapnukzE ++aungu8Vm0D5TUi99Y+I7B4CuRJWJqAx9Vh9j6A+NptoswVnGMO2xLMx9fr6 +eKdqnWlOEaGWfJfNhqSPF390qubwIdj/qrv0xUgfhc9d3vl2FiAmZOnRpLE+ +8li8+3LvEsBbd69hPht9zPU92kPpp8JBQ6LVPi99XBw50J9ynAIPfgxLLqbq +4ze5d9kVkySglvy5fzxdH732B7zQ/48ErYfEiByZ+qir1P13LpsEa0M29hKX +9fE8c3v7X2sSWDVXJeFNfZSLjJ/NLDeE6eJz3zPK9DHmsUCESZoBqPgZ1in2 +6ONz35II+31EOC9vu3a6Tx9vGXN26hsRYXHQW29kQB9DIq+umUsT4YVbRvGt +UX38Pebb3DuoB472g9fFvutjt6b5yx5/PThGPnOEi8kATQrOt7LH68Jbgc9y +3xUNcOlLvtrUf9qg3jzmbr3NAB/Mc7eE39OGSxlr1x+oGOCBny86Zc9pgzuH +Ap+/hgGq1O0LH3bRhrk/UWsDBga44+qZhJUFLRCdlGprsTZAsmPU+X0qWuD3 +4mBSRZgB1p5tPfjFTwNmg6ejzSIMsOw+c/92PQ2IkT4c1BFlgDNLQksfWTXg +bHyo40qcAWbxKj3oLdwOpaQoWaNkA9yZQzigOqkOfypP1zbkGOBb7Ulnuzg1 +uPTk1mJrgwHGJyyd2vtZGaQ8ZSd9Gg2QT4bv2Iv7ynCXr6B38a0BEo+ynfdK +VAZa8N160U+M+Kg5I06aytCv+uiCWxdj/damFUuXtsG2+3S1kRkDFJz5ePqL +91aoy2v3XRAxxKcXYx/zqCrCkI2cZxTBEJ8XnJEa5VIEptVg198Shkho6mqY +nlQAEwcOWzZZQ6wvd6xNu6cAjRtI+uIqhrj28G7QPyUFaPK+zWVMNcSU9r2H +L2/fAj0KgSUX/A0xw61mhL5fDn63VN4XOWSI1jZzyvKmciB1nOVOTpAhtqk/ +MHy6VQ48vuReLzxiiF5fyzpsF2Rh6ExzIi2WMR5+WsA/WRYmxnV3D2UaYqjT +sM+H0M2weP/fL40qQ6R+XStICJaCcWfzvDS6IQp4J9S+MZGCLtZzFqM1hmhh +2FJqTZCCGi+J7GsvDXG3aMMy2ytJOEXQI62/M8QtV1LukmUkgT81MP59nyE6 +NBHEAvvFQS3gC5MfMwnvJl8b7koSAxkRqQcvWEl4rmf+K+8BMeBv8HYgcJBQ +par4QyRFDH7KzOd/4CFhu9lVw/5lUaju4DbVFiHhQGuAL8thUbAwxzP/tpLQ +7vgJtwhPEfBRLObK2UXCMiV3ss4hIYh9vT9QyZ6EG49Orb62EIILfoIfyh1J +mODzPih9mxDU3j2W8WEvCceb75o9nhQEYSWLTesHSLguTvy2I0gQGpXGhL2i +SKjMZb525pgAqGzbLKt0m4T29hHao0c2Ab5tTSzPJ2EU7wOL++RN4HwweZha +SMJP/DVD/7FvgtP3vxfsfUBCCx7CvfmbfNC3jdH5PiXhNecJBY0WXshUdlWd +eUNCtuLMqkbTjbCgcplYPk/CnqCNK0RfLuhqQjOhnyTsrty27yyZC16GzO6O +WCKh+zHjnxJCXJBZbhlGXCOhpfqh4B/1nKBCYnpUzULG/vcStmGKnOBtGSzX +IErGjo9EY/8ldmgP2Lmx3YiMeVseSfx9wQo1XEsSekBGi07CA7ebrFBQXKB8 +zZiM5JWzadNxrHBkbt3cxZyMlz0XpO8YsgJvdMXJPjsyvmB1qgqtYgHzZLlf +X73JeKlIYs6glhlohb+Hl1LJONt9evLJJBMQTSN+WaWTUd3r9WTcRyZ4Njyz +Me8cGbcMqW0NK2eCcpkBfatLZPyYMxDZEc8Ej7Jenrt1g2GK0aZkISbIyzhj +uLOEjMw9mHn+wl9qWsSmi1ltZJSoOWBfduM3lVMotej7FzIqkyQt6kN+U5PL +mGpNuhjr83+3g2Dym5o0uzA+00fGY3vH/rs4tUY9cbDdyHicjArXLoqXkteo +R92zJ6dWyPisucjJfGaF6rZjC5JljDBvU5rA7vhl6no7J1+DrBHKq4O2mtMy +Nc9vttdqixFmNcWIWqotU8eT6dFu24zQ1zPwhE3/EvXoO7snx7SN8A+5AkNM +lqhnbeNlaOZGqKd2TqGBsEitdvnyRzfUCD9Jk03XfyxQPaaq39eGGeEc2zRT +eusClSk2L2tHhBEO4j0T+/IFqvmNIF2nY0Z4X294NuHoArW1f8Ph8NNGmFrM +ahe4NE+d9t7eW3bdCPnL1lY3s81TJYNT6NtfGuGJoxFtNy/PUDP/+eul1xvh +ytcTSy3eM1TmS+ZlE6+MUFXurvBu7RnqdCXbg7x3Rijz+FugSes3ajVTUpZg +mxEebClKfCnyjep2JTF6ecwIOac46O0Pp6hZNcf0XvBQ8P1NgRgH7gnqRlvX +Mgk+CnZdaOFNHRmnJg4ZqEfzUzCzoaTzX/U49SDbioKmCAUFxSKjyg6PU/Xt +ooQLZCjIvVGWXbBtjNoxcvTnGS0KTtyeCgwv/koV4T5ctmsvBRcdP8qppo5Q +C02Px867UjD53QMiv+8IVft4pulldwpW2UluMcARqu186ZeuAxTcE7GjzHZ1 +mJrcsbTqc5iCYSqxAmdDhqkrBQkmsScpGLnM+6zTd4jaQ77cVlRMQTmFa5YN +v/uoByMLcy1LKKhz8aHijfo+6nLJM7+ZUgoefyVtPJDWRxWU7/qlVUnB9dRO +uCPeR7XmlJZ6/pKCzLb1X4WovdTa9iLfti8U7EtbW5nL7qZa8dHUo7ooGLtx +T6BiQDe1a+e7ZUIvBQ0dlj5U63ZTF6u/pe4fYqxvf04F8+cuqnq+5uOpaUa8 +nhEPFnm7qLU9xlEZ3ymoFE/YIjbQSbUS3g0a8xRs9qlxvFLSSfVPifwcsUTB +XSz+1rn2ndTFl8k5YisUDHB/06oo30k9tXbdp3qNgtmnOzM4Fjuo/LoP1DzW +GfMfPNCLjR3UW8HVS//+UXBE1lDuc1YH9X9CgPto + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09863206346804852}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09863206346804852}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993851430134761*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"524f2b44-f5ad-4f51-90b5-c1533c2392ef"] +}, Open ]], Cell[CellGroupData[{ @@ -2922,14 +8269,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918492800964603`*^9},ExpressionUUID->"9051a5e3-bb9f-d941-bcca-\ -598d0b6835be"], + CellChangeTimes->{3.9918492800964603`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[BoxData["9.33220071900516`"], "Output", - CellChangeTimes->{3.991334803166374*^9}, - CellLabel-> - "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[BoxData["8.035186796136385`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.9938514301646643`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"f0d07b6d-e1b8-41f9-95c4-405cd025be4d"] }, Open ]], Cell[CellGroupData[{ @@ -2985,191 +8330,227 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ -4a8a16073236"], + CellChangeTimes->{3.9918492818821335`*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 255, 233, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133480336051*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.121830702120128`*^-248\\\", \ +RowBox[{\\\"70359079638545882374689246\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"13\\\", \\\"\[RightSkeleton]\\\"}], \\\"32161719910400000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 99, 13, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.993851430247723*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +In[99]:=",ExpressionUUID->"60e39c2c-01a7-4463-8c6d-a65e79286194"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 234, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803369583*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3384413835586085`*^-256\\\", \ +RowBox[{\\\"67615075532642592962076366\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"16\\\", \\\"\[RightSkeleton]\\\"}], \\\"07412833894400000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 99, 14, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.993851430256832*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +In[99]:=",ExpressionUUID->"2e94d43e-3b5b-46c7-901c-9cd2f4a9f791"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 235, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803378134*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3266697493244435`*^-264\\\", \ +RowBox[{\\\"69237837345426015193166198\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"19\\\", \\\"\[RightSkeleton]\\\"}], \\\"90741907865600000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 99, 15, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.99385143026502*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +In[99]:=",ExpressionUUID->"d20cfe12-0c7e-4b50-bb2c-ff38efbce34a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803386196*^9}, +during this calculation.\"", 2, 99, 16, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.993851430272646*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +In[99]:=",ExpressionUUID->"0a9ef9b4-acd6-4fbb-81b9-be2e0b7c15d7"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4lN0bB3CJ7EKWmbHvlX2MwWz3jShLJHsRKZFUSBQVISpLWmmXypts +WWcs0Yt60UKWCEVUlhBFWshvfn891+e6znPOc865z/c5qv4Htwbw8vDw1K/g +4fn/88f7liaNlHsss2qnB28XnVhdtwhHLXrjIeKcsHaJhx6gTJs/ofcCZKuE +M/Z5MCFyy8Oelb050PHG6pixx2aQnJa78KunFJzOFYQ1ufvAYK3jwbmeBogN +z3FEt/1gozHxbranA55g2UkHp+Pwq8f08kzPMGSfdnHONE2DRqt/7r3O+Q79 +DBFYwX8LFAarPvvrLoGVOTlktu0+SIf4PhSwWolyo7EZ2t/z4YKRTY2jmyAe +sDqSemrqERj0e21kBglix8YiQfbCI3iRuL9TJ0YQU18flB9eUQKrei99Ebwj +iLQ7x39qyJZAzIkR+cZJQeScXmb4sEpg9/O4Y6aJQsj/vmnH5bQSoAbUMFXK +hBEDV7pJaJfC2yzDJ7MSYli8N0zhjnUZXOvMXx2pKYYVi7L8bx3LYJu4tu9v +czF0NXF9IOhZBgMJin95d3Hbf4+Tdgoug6EDwgzpCjHUoHuzjqSXwdiGj2yq +lzi2jOr+a95dBj9nMotj7qxG9U+OK4K9y6FKZ83ycsVqDCla13ppdzlE70l3 +TGxdjb5zZEF2SDks9idOpX5fjeHnigc+HCuHuBGOTJuaBOrbl1a23yiHxFf3 +XYYiJFBsx+bHkv3lkHIvto2XKImJN3fUyTpXgB1lr5SMuiQa3N2rKepZAYJN +W9209STR8Em6xq8dFZA4otlvbyGJ3Y5Go1UhFXBM7cXnS3slcVDYadeb5Ao4 +kE34q1UtiTt0j0dE11aA840SXfvtUnjpb/jKYOVKkNC9ftAnQAp33SSMb9Gs +hFc1iaUHD0oh2TTG2UCnEuz6PcwuJUhhRJtxXge1EixJf63e5Uvh1bLGkLLN +lUDJstt+cFEKHy07Et4drQS5SyNnLt5cgyntGyvan1cCQaci8WfuGpzDv2zX +9kogNSTF+jxag0cMCj1ed1WC0sy6w9qNa7Dvr8jB8neVoOkQ6lcztgY3Sdqv +UvtaCcZ8S9QRY2lUtNqnfV2CDZTrr4w2MaWx3SdELU+aDVRytm6hjTT2dyY8 +KSawgeZnpRblJY11h1eO5aqwwaL2jJhIrDTeunn0O8OQDU4Rsh/JrdLYPWwT +L+jIhi0iY+8zO6UR6fJz2c5s2JpT9XZxQBpbzL9Jkd3Y4N7u3fbsqzRuNcrd +xvJmg4/u3eptMjJoGj6qvbyXDfs+GpyP95PBor+Th9QS2ZDsasvq+CGD8gfm +dv4oZQOp/BWJd4UsKr70eDdYwYaiNa4LRiKyGMcXPfSEw4Y3HTsenVeWxYNL +xMS9dWzQcI5Qc94ki86bi0LcWtjQsPn2qvarsujpv4J89R33ewo1RpbvyqKx +39uJP4NsmBB9WG9QJItGjdI27sNskHxRfuRcgyzuCVr5ZfYzG/zsWiccv8ji +x/phtadf2bBkM//qJUMOU94++z2wzIaM3Oj8JRs5nFkRVle9ggMaq3hO6znL +oceH/6wyVnLA4amwRVqAHBoMfrmuJsCBa1YqZQ7pcli6TqbuoxgH9O/eP3cs +Sw71NcSfx63mQAOvTkhBjhy63lyVLy3JgfF/TTRF2XLYGvdtUl2aA2Zon/l8 +UA7LRM5xhogceHG7/dCfcTncEM26SZfngN+y2xadOTkc13cPTFfgQHKdn1CK +IAE9B60q5JU58IYRGWNnREAN34cx3eocCL7xxyOaTsAapkTbVw0OLP2Jozy0 +JuCCr7s8rxZ3PjUpU0LbCHg7LP2B+FoOHDK/49sST8BbZ4cG/tPhgF22+Jx9 +KgHvKbX/vqjLATWBY6dfXSagxGo/HS89DrR3uZd0PiBgNWn+xSt9DjygN1m7 +lxJw61t7y1gDDsTmGPX11hDwl8nnjrWG3PUIFV35/hUB6dYPHQONOMDfczTT +r5eAWeVM1iLXA8xRnZEPBPSijjmfJXMgRaTBdWyOgF8LI6fPG3PAP9xgPPgv +AZW1B2JEKBygvb1xfEqAiDLl26knuB7Ljcr9RiLiQ78XdCcTDtSLfaId1iBi +RKR7SiHXVyK2ti3oEdE/WVeSn8qBA/31u6JNiei+OafNjWtrS72fi0jEpF3i +Lbe5Vsi7lhprR8RbVq3Lw1zPrRZU5XUloo4VOVLZlAPPIw9XJPoQ8UvGfX03 +rnPeDdsKBBJRk5ykk8j10Q1b3p8JJeListnBAq635D8OF40m4qN7mosvuV4r +pSNwLoGIQlcru8a4Xj6SdV0yjYiXVb3+LHL9ZpDf8NIVIs7bHw8XNuNAkc2h +JtlsIhpOXmZIcn2qcMjzah4R/1wleP/f3tKOU/Jl3PEKj3f+v71xTM3JW7VE +1AK8v8TtT3h4razqMyKOK7/vHOd6eNOVh3fbiHi6v2dnG9dVxStB6y0Rrcoe +ORdxnSEb1vlgmIiN16fvJ3EddPx9oM4kETfSSDs9uYaP9ouF80R8/aHulDrX +svZVGYbLRLySESw7xl2vqRItzTJBEgpOFcrkct1EuFRlIkVCsFJI8uH6RuwK +R448CYXi7YPFuT70+cAwTZOEu8y6mjjc/bLbPBD5WJ+E4Recs7y5Viu3FUEz +Eva47xz9xd3v9pMaFGt7Ehrp1fKqcv3P2Pnm/1xJ2M126nrIrZcTTsvedjtI ++DBrla4+13qKfaecwkj4Z1/KEVVuffElbiR1RJNwJ70y/Pz/62+ivMg1kYTe +MnVLv7n1epZzrscrk4TK1rTX1dx63qm8tG8gm4S0eGVlSa7NkoJ5fB+SUPxi +o+BObv2Puliv2/2YhAka1tVT3POy4evv6AMjJCy0vTNSvY5bD5surf93koQ7 +YoUbh7nnreiOXt+aHyR8PMK6yMc1wdXPvEpQHkUq8iWo3PM5yXm6sFJfHpVD +41q3qHFAVcr3H3dTeYzMU4rZpMoB930/3fNQHl/r8pNpKhx4oqhT6egij3+V +LzwWUeLAxfiMiKtH5NFOMTwrkJsnzf3rNCZPyuN3inCzAYEDi5TGTlaKPDqz +p9d8k+XAntF58seb8ti3/FQkgJtHNIfts/qN8uivwmzl4+bXsIzWgSYxBfQS +3rCkx80/uYP1inJyCijbmLLhKjcfHZo9X+5VUcAQ0wfdf7n5WRmdorvaWAH7 +3Pk+cBbZcHZwZsLLUwFti4ynx+bZQM6rCfyao4Drsoqj6KNsCOR1k7MsUMCL +Ct6PHT6x4cb26WeXKhTQfZ/lMc8RNqwSV9WiNStg1rOOMF9uvveFJ31MnFJA +v5eLGTo9bDjJcN5JMlNEbd18h/qnbNi049Y3U0tFrNQc+rCxkQ3icV8S3BwU +UUYyz6D1Cbf/xlO5GX6KuDP0C19tDRs4dtVfVp1RxB2fPFa5lbBhxlM98vtb +RRQkPZj0vc6GHYfnz76IUcIjfSe+zAezQTPTUmHilBJS+dcdehzI5u7XuUKB +DCVMe1VHjd3NhujFde2W95SQ1ZweP+vDhssJO2SqXighT5zV3fNb2PDi/H+3 +7ysq4wsvhYZGCvf/XHS1/ES9MlpbJJ4R+1UJG3peLU03K6MfvW0hcL4SHHn4 +Nvp2KCPuy+t9PFsJu7YeeAuflNGkYzOP90Ql2MSoxsbxq+Cmg272/v2VEKr8 +466FjgreHR/7drW2EpoCb081RqpgcTCx4VVMJYT8nI1rFlNFza098qTpCqCF +7ZH9LKWKY+7lIkLj3PvURF/+SoIqikxRyr+PVMD9/sY3LDVVFM6YsKh9WwHv +6y7rVlBV0Wsdu5P0tAKcTpn33vFVxdmE9inJ6xVAljppEFOiige//f4suKEC +fulIvNdzU8NbA7pDKinlwMgvyL5yRR07WXwXe5ZKYVbKzs+9QQP5WX6LEwdK +4GOqn3u4gBaKaR90V/ApBtuvUbafqNooYMTq7VpTAJO7BA+Vx65F5dcp2ZWZ +D7j3czne5IZ1mMcvucfB5T5IvdRKf/R1PQqFLm2oi8oBhdPFW6hUXbyw/pe6 +AOM2ZOmYS6wJ1MNsivwBlZBr0EqyMPl+Xh8pGbV3xoyvAE2hIcPgjQH6kA7r +3NS/AOIrcyJ2xhuimgxh2ngwDVb9qneZTTREnVTKourTNPg7/Y58MtkQPUrs +PFTz0+BrH3E2O9UQzxT8eO8SlQbtpef3D10xxK/7FW8mS6TBBf+Te3zzDfFl +Q6aQpk0qyDb4efp0GWKooCdLou4sKJ1UZnhpGaH0Xb4in8FkKDokqPZurRGS +tQx4e1uSgbVnVmCnjhFqdqy/vLM8GXzsGzuDDI3wiz7VN+dMMtyQCdx3hGaE +c97evW8pyUB8WHQt09EIe3My/pDSk0C6k/mrO9IIX9BTfavtT4GQpnfl1v+M +MOlQ5EfBb/EQTAS7/Bbu+5Jljm4f4qFVTO39yhdGOKXoc7WwPR5Sf4zyV7Rz +x/udXH2yOB7Emw+5yfUZ4akrk5fZ++NBal/KXP+kEYoZv/njOnkSFEqqyQFS +ZDQesq8w/BYH+kxicZQPGa+p2e2JYp2AMvW9f3j9yHj4vJiBi8oJMBOu2pju +T8bNQz3lG3lPgGWP59C9QDLqq3bVRz87Du5hWZIdYWRs5G3cLLDlOMTel4vQ +TSKjT+pjxaLAY9AuJmv+oYiMw/mpbq8fREP4e6lGOx5jdP8siEEHo6D5mffj +h7zGaN/c3nDPMwqUinPZwvzGKHBzbdd3iyhojaUVtAoZo9768MgW6ShQU/W/ +bLfGGJf2WZxyromE17tKAu20jPG4ibrRc5FIMBx3ErVzMMbH9377EKoj4Ov3 +VDfbLGMsbA5sqbMNh4HeO+43rxnja3J3ZK5pOLQ+rvSYvWGML+fOBtzUDId7 +yUNeV+8Y4760gkHOinDYJk/ZMf7QGDfJHjK5Xx0GTy3795x5zPV/I5/sDMLg ++vl1R1qGjTGf8mYyST0UNho8u2arR8FjH2+U+O0LAc9Vm1zbDSj45W9y8hP7 +EAh+1yLmQaagcIVxHUs3BNJTXsbtNqXg6KWF2ctT++DNaNeeWAsKTj+M/lYQ +tg92Z4+QK9wouLrsv7C9scEQL7niucoJCu7d0mUV+ygILo3FJ/4TR8HYTfTQ +2EtBkFvPx9JPoOD23gyj60eCoHW/YAn9NAVDI40UNC2CQLJ1dab7BQpqSBUa +x3UGQna80q7UXAoaE29n49IeqPtO/7PwioJH5cgs990BcOcF29/lNQXbRZtr +bDYHQOJ949aiTgouXmqadaAGgK2HztWAXgpKxP6z4ZpgAHRVk0w7P1AwwbSL +TS3aDRMnf4UXzVHQbNrjWNDSLpCVYE/sJpkgvclhPyvfH36Nkbc+UTDBTydN +Dj+74g8D/xZVySub4MK1MrJ/vD/cOZR7ukPdBJuVzTO6vPxBt+eyFuqZYP14 +hfpdIX+wvBXhL48mGJf10rwvZCcc0CX3vQ4wQfXq1wwbCz84vED67RtkgsG2 +BS45en5wrGElaTrYBNN2SnmvIflBime3l3CoCTbo830N/OwLDxKPvLWMNsHT +l0ce9jn4wvBAXW9Zugm+9Krdv1N1B7in2fdcZpsgY27C69fodvDxpCyoV5vg +xJrc0X+ebofd6opypbUm+Dy6fCTm7nY4VDXt/upfE8wNI9266LsdMj6df7Pq +hQk6P1fafeLtNmhl9nZHDZlgXYVqvXqXFzCnd3d5CVGxILn40rMRD5Ct2ZhT +K0JFnoh2hYH/PGA6eX2osjgV2y+dqBAv8IBbqjMin6SoqKhLK22N8IC/rjFW +oQpUrIK3EtcFPKC+5nxpkgEV7VTPuCeT3cHiTF1GmRsVncyl+T/ccAWS+50d +sp5UDDyX6RCU6Arf1BJ1j26jYmHb4HmhEFfIqbVtZvlS8fn9AvZVuivwznQt +twRR0eU/5oepfhdodP9yYCiG62HNvc6qLmCtQdgslkPFCw6Hj+ypc4byqaeq +u+9R8eonZUZInjNosA/9qM6l4oT/KevTl5yBz67tdlA+FUuPO/Xy7nOGhoNJ +3xrLqRi/Lbd5meAMrJq5zOj/qMivbuslcHQLULe+Hh6dpGKmwN600+cdIVc+ +ls36SkUJ4YVvvSGOIPNJN/XyLBXHv5Wvct7kCHNRp02sflDRt9vnHnt5M5Te +hNO3lqkofPdB8bbQzWAwXqjnJmWKy7udiL2eDrA27uyRBlNTrOrUdq20toNa ++n1+B5ophjoJBvGq28GWhfoL3QxTrM2c+RrFYwdHDswXjFmY4oRrcvH7Glto +9vb7IO5gisayAXCFYgtB5lS77X6m+KpF4u5pvU2Q9+2D/NxpUzwutKXMi2ED +rKLFB8dTTLHyyIvgBCUb6NgrRxVIN8WwvdciX/PYwO8hhy2ki6ZoeEV35u1T +a7BrYyfiTVOcSUwwyXK2hon8tKnUElPsUI9rfnBwA6wPMK/X7DPFXwl1dbJP +LeGcmuPvhAFTFN0fTqAWWsLcoL/J8HtTvG6eJBd22RLqtqXm3xoxRd+FgUvm +eyxh65bBTLkpU8xQeRMtKWQJR+mnQoV4zLAt7HN5k4sFNEu+Vp3SNMP2622M +hZ8Aem2fvO3XmqHlw65NFW0AF1J/Z+atN8OIIa2xu7kA3gIa4nsMzDCyNEZG +yg3g62Lk7/dmZrgu9eN93XIWyI4pdLbbm2HpyXFegxgmBNQFJZaHmaHn2qFk +aR06TO+fiLKOMMOfETOi6Xx0OKIYsu9NpBnW9ITGm7+nwdljB7f+jDHDPvpb +d80LNHhEi1RhJJnhnq8zXnaL5rBYmVDbeM0MHzVLqma9NYMLxbfmOhrNMIN/ +NuBJJRUUfFXGdj0zQ1GFqFsiV6hwXzynf67ZDNn84tMnD1OBs/9+g+wrMzxT +9YLvK4UK73QKMrb1mqFhgsCxpxUmsPZBle7wpBl2iomdM62nQH121+5ZGXMU +OSKq3PeVDEMOqr6RBHP0SahUyOsiA8+v/V5/SOZ44prC8+tVZLB0FnDkVzFH +/fIV6V8SyPBsBc2UuN4c6//J4jEkkeGF/20hC5Y5Giwym7Q3G0GfRnBRxh5z +9BytnQrKNIA/7ZUPZPaaI9+F0JCtew1A4fjKu9f2mWMxTUXrKN0AfLpvZN4L +NUfvrZtIx4f0YehUWxwn2hxHbpKfuuvpw+hnistQujmKtl4lSHTowtyD5QUD +tjnmzmgl3LFeD5/dbbLPVJnjWSeHzRaq66GXL23TSI05CvtIXBVfWgc1fqSr +V56Y42Ku8oBhxTqIJ5jQllrM8e3PW+vTtdeBxOngY60D5ljOaA88Lr0WdAO7 +eQJ4afiubGSxSUwLlGQU8ur4aHis72hG8bQmSDT6OxMEaGhyX5D1b5smfFea +ufNchIYllYHaXhc0ofqNsBVZhoavmvbxuBM1YZMNnlrWpuE56qGebfoasEsz +X+jaZhpuz2uOcTmkBtFPdwRrbaHhGrJxU6q7GmQESD0v3UrDwkKZ3VPmalB7 +/2jqcw8a2sdMdqmvUANprU2rl3bS8MebxjLf86rwTOuTtF8kDdcSb6/4zFGB +9WuVVbRuc7//TsqTm9ZKgM0dcaV3aDiYNsKvKqME7kFJH1j3aOj+xePq54+K +kPBgKscjj4YPabFgekoRBtbWap4poyFD3KzyY7MCpK/z0pn8j4bE/lMO6t7y +MLv+IrV0hobhOa4iQ8UE6H2B1mu+0zA2yGqm+gwBnhyYdomYp2E8o+7ss10E +SC+1DaP+pmHTO/b4AQIB1tN4CqpX0lHJquDeUoIc+NvuV22UpeP2l5+63++S +ha7AjaJdDDpeU/CWU7GWhhqheZIJ0FFT6f7dbA1pyMnPWXfFgo6qaeu67fik +IfTrko2nDR3dyzq2yzetAbGo8pMDTnSMHe6J+Md6DdgkqS589KdjuUrqU9wi +BZx7fz7Mn6bjlcRzuwziJYBqFbFgl8Idj8EbJBUoARUfJkWz0+gYvevYBzkH +CShVem9qd4GO68fXZp6RlYCCrCdpt67T0W/zmocC21ZDduop841FdHx9vcol +4IkYnIlYfT6rk45nPTcXLNUKg+Ca07lT3XR85mBf15EuDEklPLWWvXRcebhr +cMRPGBKnZz9PDtDx+Z0DrlX8wnAiqIth8ZmOhdomBuu3CkG499Wx8Z90NDpq +7DU9LwDbNqgjXYmBgpbVq4ID+WGpS1C8UYWBI296WpcY/JAdMN1vp87A62Om +LW1S/PA5qSpq21oG3u12269XzwfhLU7FR8kMfKrVSW0m8cFZx2NKHBsGFivG +Wm54xwvVnt2LlIMMfEOJTCxM4wGf8erW2jAG2s5PuGcE8wBPdHbWhggGbph4 +Ppi3kQdsru+juB5lYGrPpHkcLw90vFsRciiBgS3BOhuC5v+yJvz1+0syGbhy +MMZOemKRJb8/uUr/CQOVLCP1RVR+sdKX95ikNDCwT3q279TETxbvBZuS0SYG +irIWcl0rfrImKvnzslsY2Do26j9l/5NVzZOYJdXJQPOtyn28xxdY2y7FRf34 +xJ2fiGn/0el5VlbNUZM6ESZGRJFb40S/s0QdvUpI4kxUXh0pMzH0jRU3ZKYX +JcHEQuOj8zcrvrGC+H9qGMowsUfile1H328sU6dI6RwlJhIrf6qOsGdZb4bD +v58yYuJFu4HyoMMzLBnhkJLNHkwsb9XuU7SdZN2zOh4948VEbaPyxoA/X1jk +4+lWF72ZeGNC+/iWoi8sx5lH3b07mbhKVNNQRPYLK+nN/K9dIUwsyfO2X54c +Z/3MibWMPslEaq2ggiFnlJU0kCGimMjEc7/5E6wjRlnSsjld9UlMvGCduTxj +OMoyPNO0hz+ViU9ExUUFCj6z9h4USsm4wsTHlMtUYt4nVh/9YmduPhOF6gaI +GnUjrKDD927YFjGxjPDpFj1hhPWjqCJg8hETFSbczgxsGmFJqfUuGFUyscHo ++m529zDLXlBR4fETJsrt/iBdM/+BVduVu7uzm2v+y5W2jkMsO3GOXmQvE+1M +jD5kyQ+xeje2/CD0M3F/om5hS8cga676y+kdQ0x8afx9eVB0kKV3x7BwfIKJ +K8/Q30SnvmPV9llEpk4x8fnqQslq/XcsO2kXMJhh4qO2GwGfXw+w9iQffh0x +z0RzsxAVHvkB1tyTpGtyP5l4wMVk/8STflb878xd1b+ZyO/icasmsJ8lQcnT +9VliImWbwNrw1f2sW/ur55eXmfi3a0WsKKeP9T+u6lue "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3183,150 +8564,180 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe +1:eJwV1nk4lN0bB3CJ7EKWmbHvlX2MwWz3jShLJHsRKZFUSBQVISpLWmmXypts +WWcs0Yt60UKWCEVUlhBFWshvfn891+e6znPOc865z/c5qv4Htwbw8vDw1K/g +4fn/88f7liaNlHsss2qnB28XnVhdtwhHLXrjIeKcsHaJhx6gTJs/ofcCZKuE +M/Z5MCFyy8Oelb050PHG6pixx2aQnJa78KunFJzOFYQ1ufvAYK3jwbmeBogN +z3FEt/1gozHxbranA55g2UkHp+Pwq8f08kzPMGSfdnHONE2DRqt/7r3O+Q79 +DBFYwX8LFAarPvvrLoGVOTlktu0+SIf4PhSwWolyo7EZ2t/z4YKRTY2jmyAe +sDqSemrqERj0e21kBglix8YiQfbCI3iRuL9TJ0YQU18flB9eUQKrei99Ebwj +iLQ7x39qyJZAzIkR+cZJQeScXmb4sEpg9/O4Y6aJQsj/vmnH5bQSoAbUMFXK +hBEDV7pJaJfC2yzDJ7MSYli8N0zhjnUZXOvMXx2pKYYVi7L8bx3LYJu4tu9v +czF0NXF9IOhZBgMJin95d3Hbf4+Tdgoug6EDwgzpCjHUoHuzjqSXwdiGj2yq +lzi2jOr+a95dBj9nMotj7qxG9U+OK4K9y6FKZ83ycsVqDCla13ppdzlE70l3 +TGxdjb5zZEF2SDks9idOpX5fjeHnigc+HCuHuBGOTJuaBOrbl1a23yiHxFf3 +XYYiJFBsx+bHkv3lkHIvto2XKImJN3fUyTpXgB1lr5SMuiQa3N2rKepZAYJN +W9209STR8Em6xq8dFZA4otlvbyGJ3Y5Go1UhFXBM7cXnS3slcVDYadeb5Ao4 +kE34q1UtiTt0j0dE11aA840SXfvtUnjpb/jKYOVKkNC9ftAnQAp33SSMb9Gs +hFc1iaUHD0oh2TTG2UCnEuz6PcwuJUhhRJtxXge1EixJf63e5Uvh1bLGkLLN +lUDJstt+cFEKHy07Et4drQS5SyNnLt5cgyntGyvan1cCQaci8WfuGpzDv2zX +9kogNSTF+jxag0cMCj1ed1WC0sy6w9qNa7Dvr8jB8neVoOkQ6lcztgY3Sdqv +UvtaCcZ8S9QRY2lUtNqnfV2CDZTrr4w2MaWx3SdELU+aDVRytm6hjTT2dyY8 +KSawgeZnpRblJY11h1eO5aqwwaL2jJhIrDTeunn0O8OQDU4Rsh/JrdLYPWwT +L+jIhi0iY+8zO6UR6fJz2c5s2JpT9XZxQBpbzL9Jkd3Y4N7u3fbsqzRuNcrd +xvJmg4/u3eptMjJoGj6qvbyXDfs+GpyP95PBor+Th9QS2ZDsasvq+CGD8gfm +dv4oZQOp/BWJd4UsKr70eDdYwYaiNa4LRiKyGMcXPfSEw4Y3HTsenVeWxYNL +xMS9dWzQcI5Qc94ki86bi0LcWtjQsPn2qvarsujpv4J89R33ewo1RpbvyqKx +39uJP4NsmBB9WG9QJItGjdI27sNskHxRfuRcgyzuCVr5ZfYzG/zsWiccv8ji +x/phtadf2bBkM//qJUMOU94++z2wzIaM3Oj8JRs5nFkRVle9ggMaq3hO6znL +oceH/6wyVnLA4amwRVqAHBoMfrmuJsCBa1YqZQ7pcli6TqbuoxgH9O/eP3cs +Sw71NcSfx63mQAOvTkhBjhy63lyVLy3JgfF/TTRF2XLYGvdtUl2aA2Zon/l8 +UA7LRM5xhogceHG7/dCfcTncEM26SZfngN+y2xadOTkc13cPTFfgQHKdn1CK +IAE9B60q5JU58IYRGWNnREAN34cx3eocCL7xxyOaTsAapkTbVw0OLP2Jozy0 +JuCCr7s8rxZ3PjUpU0LbCHg7LP2B+FoOHDK/49sST8BbZ4cG/tPhgF22+Jx9 +KgHvKbX/vqjLATWBY6dfXSagxGo/HS89DrR3uZd0PiBgNWn+xSt9DjygN1m7 +lxJw61t7y1gDDsTmGPX11hDwl8nnjrWG3PUIFV35/hUB6dYPHQONOMDfczTT +r5eAWeVM1iLXA8xRnZEPBPSijjmfJXMgRaTBdWyOgF8LI6fPG3PAP9xgPPgv +AZW1B2JEKBygvb1xfEqAiDLl26knuB7Ljcr9RiLiQ78XdCcTDtSLfaId1iBi +RKR7SiHXVyK2ti3oEdE/WVeSn8qBA/31u6JNiei+OafNjWtrS72fi0jEpF3i +Lbe5Vsi7lhprR8RbVq3Lw1zPrRZU5XUloo4VOVLZlAPPIw9XJPoQ8UvGfX03 +rnPeDdsKBBJRk5ykk8j10Q1b3p8JJeListnBAq635D8OF40m4qN7mosvuV4r +pSNwLoGIQlcru8a4Xj6SdV0yjYiXVb3+LHL9ZpDf8NIVIs7bHw8XNuNAkc2h +JtlsIhpOXmZIcn2qcMjzah4R/1wleP/f3tKOU/Jl3PEKj3f+v71xTM3JW7VE +1AK8v8TtT3h4razqMyKOK7/vHOd6eNOVh3fbiHi6v2dnG9dVxStB6y0Rrcoe +ORdxnSEb1vlgmIiN16fvJ3EddPx9oM4kETfSSDs9uYaP9ouF80R8/aHulDrX +svZVGYbLRLySESw7xl2vqRItzTJBEgpOFcrkct1EuFRlIkVCsFJI8uH6RuwK +R448CYXi7YPFuT70+cAwTZOEu8y6mjjc/bLbPBD5WJ+E4Recs7y5Viu3FUEz +Eva47xz9xd3v9pMaFGt7Ehrp1fKqcv3P2Pnm/1xJ2M126nrIrZcTTsvedjtI ++DBrla4+13qKfaecwkj4Z1/KEVVuffElbiR1RJNwJ70y/Pz/62+ivMg1kYTe +MnVLv7n1epZzrscrk4TK1rTX1dx63qm8tG8gm4S0eGVlSa7NkoJ5fB+SUPxi +o+BObv2Puliv2/2YhAka1tVT3POy4evv6AMjJCy0vTNSvY5bD5surf93koQ7 +YoUbh7nnreiOXt+aHyR8PMK6yMc1wdXPvEpQHkUq8iWo3PM5yXm6sFJfHpVD +41q3qHFAVcr3H3dTeYzMU4rZpMoB930/3fNQHl/r8pNpKhx4oqhT6egij3+V +LzwWUeLAxfiMiKtH5NFOMTwrkJsnzf3rNCZPyuN3inCzAYEDi5TGTlaKPDqz +p9d8k+XAntF58seb8ti3/FQkgJtHNIfts/qN8uivwmzl4+bXsIzWgSYxBfQS +3rCkx80/uYP1inJyCijbmLLhKjcfHZo9X+5VUcAQ0wfdf7n5WRmdorvaWAH7 +3Pk+cBbZcHZwZsLLUwFti4ynx+bZQM6rCfyao4Drsoqj6KNsCOR1k7MsUMCL +Ct6PHT6x4cb26WeXKhTQfZ/lMc8RNqwSV9WiNStg1rOOMF9uvveFJ31MnFJA +v5eLGTo9bDjJcN5JMlNEbd18h/qnbNi049Y3U0tFrNQc+rCxkQ3icV8S3BwU +UUYyz6D1Cbf/xlO5GX6KuDP0C19tDRs4dtVfVp1RxB2fPFa5lbBhxlM98vtb +RRQkPZj0vc6GHYfnz76IUcIjfSe+zAezQTPTUmHilBJS+dcdehzI5u7XuUKB +DCVMe1VHjd3NhujFde2W95SQ1ZweP+vDhssJO2SqXighT5zV3fNb2PDi/H+3 +7ysq4wsvhYZGCvf/XHS1/ES9MlpbJJ4R+1UJG3peLU03K6MfvW0hcL4SHHn4 +Nvp2KCPuy+t9PFsJu7YeeAuflNGkYzOP90Ql2MSoxsbxq+Cmg272/v2VEKr8 +466FjgreHR/7drW2EpoCb081RqpgcTCx4VVMJYT8nI1rFlNFza098qTpCqCF +7ZH9LKWKY+7lIkLj3PvURF/+SoIqikxRyr+PVMD9/sY3LDVVFM6YsKh9WwHv +6y7rVlBV0Wsdu5P0tAKcTpn33vFVxdmE9inJ6xVAljppEFOiige//f4suKEC +fulIvNdzU8NbA7pDKinlwMgvyL5yRR07WXwXe5ZKYVbKzs+9QQP5WX6LEwdK +4GOqn3u4gBaKaR90V/ApBtuvUbafqNooYMTq7VpTAJO7BA+Vx65F5dcp2ZWZ +D7j3czne5IZ1mMcvucfB5T5IvdRKf/R1PQqFLm2oi8oBhdPFW6hUXbyw/pe6 +AOM2ZOmYS6wJ1MNsivwBlZBr0EqyMPl+Xh8pGbV3xoyvAE2hIcPgjQH6kA7r +3NS/AOIrcyJ2xhuimgxh2ngwDVb9qneZTTREnVTKourTNPg7/Y58MtkQPUrs +PFTz0+BrH3E2O9UQzxT8eO8SlQbtpef3D10xxK/7FW8mS6TBBf+Te3zzDfFl +Q6aQpk0qyDb4efp0GWKooCdLou4sKJ1UZnhpGaH0Xb4in8FkKDokqPZurRGS +tQx4e1uSgbVnVmCnjhFqdqy/vLM8GXzsGzuDDI3wiz7VN+dMMtyQCdx3hGaE +c97evW8pyUB8WHQt09EIe3My/pDSk0C6k/mrO9IIX9BTfavtT4GQpnfl1v+M +MOlQ5EfBb/EQTAS7/Bbu+5Jljm4f4qFVTO39yhdGOKXoc7WwPR5Sf4zyV7Rz +x/udXH2yOB7Emw+5yfUZ4akrk5fZ++NBal/KXP+kEYoZv/njOnkSFEqqyQFS +ZDQesq8w/BYH+kxicZQPGa+p2e2JYp2AMvW9f3j9yHj4vJiBi8oJMBOu2pju +T8bNQz3lG3lPgGWP59C9QDLqq3bVRz87Du5hWZIdYWRs5G3cLLDlOMTel4vQ +TSKjT+pjxaLAY9AuJmv+oYiMw/mpbq8fREP4e6lGOx5jdP8siEEHo6D5mffj +h7zGaN/c3nDPMwqUinPZwvzGKHBzbdd3iyhojaUVtAoZo9768MgW6ShQU/W/ +bLfGGJf2WZxyromE17tKAu20jPG4ibrRc5FIMBx3ErVzMMbH9377EKoj4Ov3 +VDfbLGMsbA5sqbMNh4HeO+43rxnja3J3ZK5pOLQ+rvSYvWGML+fOBtzUDId7 +yUNeV+8Y4760gkHOinDYJk/ZMf7QGDfJHjK5Xx0GTy3795x5zPV/I5/sDMLg ++vl1R1qGjTGf8mYyST0UNho8u2arR8FjH2+U+O0LAc9Vm1zbDSj45W9y8hP7 +EAh+1yLmQaagcIVxHUs3BNJTXsbtNqXg6KWF2ctT++DNaNeeWAsKTj+M/lYQ +tg92Z4+QK9wouLrsv7C9scEQL7niucoJCu7d0mUV+ygILo3FJ/4TR8HYTfTQ +2EtBkFvPx9JPoOD23gyj60eCoHW/YAn9NAVDI40UNC2CQLJ1dab7BQpqSBUa +x3UGQna80q7UXAoaE29n49IeqPtO/7PwioJH5cgs990BcOcF29/lNQXbRZtr +bDYHQOJ949aiTgouXmqadaAGgK2HztWAXgpKxP6z4ZpgAHRVk0w7P1AwwbSL +TS3aDRMnf4UXzVHQbNrjWNDSLpCVYE/sJpkgvclhPyvfH36Nkbc+UTDBTydN +Dj+74g8D/xZVySub4MK1MrJ/vD/cOZR7ukPdBJuVzTO6vPxBt+eyFuqZYP14 +hfpdIX+wvBXhL48mGJf10rwvZCcc0CX3vQ4wQfXq1wwbCz84vED67RtkgsG2 +BS45en5wrGElaTrYBNN2SnmvIflBime3l3CoCTbo830N/OwLDxKPvLWMNsHT +l0ce9jn4wvBAXW9Zugm+9Krdv1N1B7in2fdcZpsgY27C69fodvDxpCyoV5vg +xJrc0X+ebofd6opypbUm+Dy6fCTm7nY4VDXt/upfE8wNI9266LsdMj6df7Pq +hQk6P1fafeLtNmhl9nZHDZlgXYVqvXqXFzCnd3d5CVGxILn40rMRD5Ct2ZhT +K0JFnoh2hYH/PGA6eX2osjgV2y+dqBAv8IBbqjMin6SoqKhLK22N8IC/rjFW +oQpUrIK3EtcFPKC+5nxpkgEV7VTPuCeT3cHiTF1GmRsVncyl+T/ccAWS+50d +sp5UDDyX6RCU6Arf1BJ1j26jYmHb4HmhEFfIqbVtZvlS8fn9AvZVuivwznQt +twRR0eU/5oepfhdodP9yYCiG62HNvc6qLmCtQdgslkPFCw6Hj+ypc4byqaeq +u+9R8eonZUZInjNosA/9qM6l4oT/KevTl5yBz67tdlA+FUuPO/Xy7nOGhoNJ +3xrLqRi/Lbd5meAMrJq5zOj/qMivbuslcHQLULe+Hh6dpGKmwN600+cdIVc+ +ls36SkUJ4YVvvSGOIPNJN/XyLBXHv5Wvct7kCHNRp02sflDRt9vnHnt5M5Te +hNO3lqkofPdB8bbQzWAwXqjnJmWKy7udiL2eDrA27uyRBlNTrOrUdq20toNa ++n1+B5ophjoJBvGq28GWhfoL3QxTrM2c+RrFYwdHDswXjFmY4oRrcvH7Glto +9vb7IO5gisayAXCFYgtB5lS77X6m+KpF4u5pvU2Q9+2D/NxpUzwutKXMi2ED +rKLFB8dTTLHyyIvgBCUb6NgrRxVIN8WwvdciX/PYwO8hhy2ki6ZoeEV35u1T +a7BrYyfiTVOcSUwwyXK2hon8tKnUElPsUI9rfnBwA6wPMK/X7DPFXwl1dbJP +LeGcmuPvhAFTFN0fTqAWWsLcoL/J8HtTvG6eJBd22RLqtqXm3xoxRd+FgUvm +eyxh65bBTLkpU8xQeRMtKWQJR+mnQoV4zLAt7HN5k4sFNEu+Vp3SNMP2622M +hZ8Aem2fvO3XmqHlw65NFW0AF1J/Z+atN8OIIa2xu7kA3gIa4nsMzDCyNEZG +yg3g62Lk7/dmZrgu9eN93XIWyI4pdLbbm2HpyXFegxgmBNQFJZaHmaHn2qFk +aR06TO+fiLKOMMOfETOi6Xx0OKIYsu9NpBnW9ITGm7+nwdljB7f+jDHDPvpb +d80LNHhEi1RhJJnhnq8zXnaL5rBYmVDbeM0MHzVLqma9NYMLxbfmOhrNMIN/ +NuBJJRUUfFXGdj0zQ1GFqFsiV6hwXzynf67ZDNn84tMnD1OBs/9+g+wrMzxT +9YLvK4UK73QKMrb1mqFhgsCxpxUmsPZBle7wpBl2iomdM62nQH121+5ZGXMU +OSKq3PeVDEMOqr6RBHP0SahUyOsiA8+v/V5/SOZ44prC8+tVZLB0FnDkVzFH +/fIV6V8SyPBsBc2UuN4c6//J4jEkkeGF/20hC5Y5Giwym7Q3G0GfRnBRxh5z +9BytnQrKNIA/7ZUPZPaaI9+F0JCtew1A4fjKu9f2mWMxTUXrKN0AfLpvZN4L +NUfvrZtIx4f0YehUWxwn2hxHbpKfuuvpw+hnistQujmKtl4lSHTowtyD5QUD +tjnmzmgl3LFeD5/dbbLPVJnjWSeHzRaq66GXL23TSI05CvtIXBVfWgc1fqSr +V56Y42Ku8oBhxTqIJ5jQllrM8e3PW+vTtdeBxOngY60D5ljOaA88Lr0WdAO7 +eQJ4afiubGSxSUwLlGQU8ur4aHis72hG8bQmSDT6OxMEaGhyX5D1b5smfFea +ufNchIYllYHaXhc0ofqNsBVZhoavmvbxuBM1YZMNnlrWpuE56qGebfoasEsz +X+jaZhpuz2uOcTmkBtFPdwRrbaHhGrJxU6q7GmQESD0v3UrDwkKZ3VPmalB7 +/2jqcw8a2sdMdqmvUANprU2rl3bS8MebxjLf86rwTOuTtF8kDdcSb6/4zFGB +9WuVVbRuc7//TsqTm9ZKgM0dcaV3aDiYNsKvKqME7kFJH1j3aOj+xePq54+K +kPBgKscjj4YPabFgekoRBtbWap4poyFD3KzyY7MCpK/z0pn8j4bE/lMO6t7y +MLv+IrV0hobhOa4iQ8UE6H2B1mu+0zA2yGqm+gwBnhyYdomYp2E8o+7ss10E +SC+1DaP+pmHTO/b4AQIB1tN4CqpX0lHJquDeUoIc+NvuV22UpeP2l5+63++S +ha7AjaJdDDpeU/CWU7GWhhqheZIJ0FFT6f7dbA1pyMnPWXfFgo6qaeu67fik +IfTrko2nDR3dyzq2yzetAbGo8pMDTnSMHe6J+Md6DdgkqS589KdjuUrqU9wi +BZx7fz7Mn6bjlcRzuwziJYBqFbFgl8Idj8EbJBUoARUfJkWz0+gYvevYBzkH +CShVem9qd4GO68fXZp6RlYCCrCdpt67T0W/zmocC21ZDduop841FdHx9vcol +4IkYnIlYfT6rk45nPTcXLNUKg+Ca07lT3XR85mBf15EuDEklPLWWvXRcebhr +cMRPGBKnZz9PDtDx+Z0DrlX8wnAiqIth8ZmOhdomBuu3CkG499Wx8Z90NDpq +7DU9LwDbNqgjXYmBgpbVq4ID+WGpS1C8UYWBI296WpcY/JAdMN1vp87A62Om +LW1S/PA5qSpq21oG3u12269XzwfhLU7FR8kMfKrVSW0m8cFZx2NKHBsGFivG +Wm54xwvVnt2LlIMMfEOJTCxM4wGf8erW2jAG2s5PuGcE8wBPdHbWhggGbph4 +Ppi3kQdsru+juB5lYGrPpHkcLw90vFsRciiBgS3BOhuC5v+yJvz1+0syGbhy +MMZOemKRJb8/uUr/CQOVLCP1RVR+sdKX95ikNDCwT3q279TETxbvBZuS0SYG +irIWcl0rfrImKvnzslsY2Do26j9l/5NVzZOYJdXJQPOtyn28xxdY2y7FRf34 +xJ2fiGn/0el5VlbNUZM6ESZGRJFb40S/s0QdvUpI4kxUXh0pMzH0jRU3ZKYX +JcHEQuOj8zcrvrGC+H9qGMowsUfile1H328sU6dI6RwlJhIrf6qOsGdZb4bD +v58yYuJFu4HyoMMzLBnhkJLNHkwsb9XuU7SdZN2zOh4948VEbaPyxoA/X1jk +4+lWF72ZeGNC+/iWoi8sx5lH3b07mbhKVNNQRPYLK+nN/K9dIUwsyfO2X54c +Z/3MibWMPslEaq2ggiFnlJU0kCGimMjEc7/5E6wjRlnSsjld9UlMvGCduTxj +OMoyPNO0hz+ViU9ExUUFCj6z9h4USsm4wsTHlMtUYt4nVh/9YmduPhOF6gaI +GnUjrKDD927YFjGxjPDpFj1hhPWjqCJg8hETFSbczgxsGmFJqfUuGFUyscHo ++m529zDLXlBR4fETJsrt/iBdM/+BVduVu7uzm2v+y5W2jkMsO3GOXmQvE+1M +jD5kyQ+xeje2/CD0M3F/om5hS8cga676y+kdQ0x8afx9eVB0kKV3x7BwfIKJ +K8/Q30SnvmPV9llEpk4x8fnqQslq/XcsO2kXMJhh4qO2GwGfXw+w9iQffh0x +z0RzsxAVHvkB1tyTpGtyP5l4wMVk/8STflb878xd1b+ZyO/icasmsJ8lQcnT +9VliImWbwNrw1f2sW/ur55eXmfi3a0WsKKeP9T+u6lue "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.09460552690925532}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -3338,19 +8749,19 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.09460552690925532}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3364,149 +8775,179 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe +1:eJwV1nk4lN0bB3CJ7EKWmbHvlX2MwWz3jShLJHsRKZFUSBQVISpLWmmXypts +WWcs0Yt60UKWCEVUlhBFWshvfn891+e6znPOc865z/c5qv4Htwbw8vDw1K/g +4fn/88f7liaNlHsss2qnB28XnVhdtwhHLXrjIeKcsHaJhx6gTJs/ofcCZKuE +M/Z5MCFyy8Oelb050PHG6pixx2aQnJa78KunFJzOFYQ1ufvAYK3jwbmeBogN +z3FEt/1gozHxbranA55g2UkHp+Pwq8f08kzPMGSfdnHONE2DRqt/7r3O+Q79 +DBFYwX8LFAarPvvrLoGVOTlktu0+SIf4PhSwWolyo7EZ2t/z4YKRTY2jmyAe +sDqSemrqERj0e21kBglix8YiQfbCI3iRuL9TJ0YQU18flB9eUQKrei99Ebwj +iLQ7x39qyJZAzIkR+cZJQeScXmb4sEpg9/O4Y6aJQsj/vmnH5bQSoAbUMFXK +hBEDV7pJaJfC2yzDJ7MSYli8N0zhjnUZXOvMXx2pKYYVi7L8bx3LYJu4tu9v +czF0NXF9IOhZBgMJin95d3Hbf4+Tdgoug6EDwgzpCjHUoHuzjqSXwdiGj2yq +lzi2jOr+a95dBj9nMotj7qxG9U+OK4K9y6FKZ83ycsVqDCla13ppdzlE70l3 +TGxdjb5zZEF2SDks9idOpX5fjeHnigc+HCuHuBGOTJuaBOrbl1a23yiHxFf3 +XYYiJFBsx+bHkv3lkHIvto2XKImJN3fUyTpXgB1lr5SMuiQa3N2rKepZAYJN +W9209STR8Em6xq8dFZA4otlvbyGJ3Y5Go1UhFXBM7cXnS3slcVDYadeb5Ao4 +kE34q1UtiTt0j0dE11aA840SXfvtUnjpb/jKYOVKkNC9ftAnQAp33SSMb9Gs +hFc1iaUHD0oh2TTG2UCnEuz6PcwuJUhhRJtxXge1EixJf63e5Uvh1bLGkLLN +lUDJstt+cFEKHy07Et4drQS5SyNnLt5cgyntGyvan1cCQaci8WfuGpzDv2zX +9kogNSTF+jxag0cMCj1ed1WC0sy6w9qNa7Dvr8jB8neVoOkQ6lcztgY3Sdqv +UvtaCcZ8S9QRY2lUtNqnfV2CDZTrr4w2MaWx3SdELU+aDVRytm6hjTT2dyY8 +KSawgeZnpRblJY11h1eO5aqwwaL2jJhIrDTeunn0O8OQDU4Rsh/JrdLYPWwT +L+jIhi0iY+8zO6UR6fJz2c5s2JpT9XZxQBpbzL9Jkd3Y4N7u3fbsqzRuNcrd +xvJmg4/u3eptMjJoGj6qvbyXDfs+GpyP95PBor+Th9QS2ZDsasvq+CGD8gfm +dv4oZQOp/BWJd4UsKr70eDdYwYaiNa4LRiKyGMcXPfSEw4Y3HTsenVeWxYNL +xMS9dWzQcI5Qc94ki86bi0LcWtjQsPn2qvarsujpv4J89R33ewo1RpbvyqKx +39uJP4NsmBB9WG9QJItGjdI27sNskHxRfuRcgyzuCVr5ZfYzG/zsWiccv8ji +x/phtadf2bBkM//qJUMOU94++z2wzIaM3Oj8JRs5nFkRVle9ggMaq3hO6znL +oceH/6wyVnLA4amwRVqAHBoMfrmuJsCBa1YqZQ7pcli6TqbuoxgH9O/eP3cs +Sw71NcSfx63mQAOvTkhBjhy63lyVLy3JgfF/TTRF2XLYGvdtUl2aA2Zon/l8 +UA7LRM5xhogceHG7/dCfcTncEM26SZfngN+y2xadOTkc13cPTFfgQHKdn1CK +IAE9B60q5JU58IYRGWNnREAN34cx3eocCL7xxyOaTsAapkTbVw0OLP2Jozy0 +JuCCr7s8rxZ3PjUpU0LbCHg7LP2B+FoOHDK/49sST8BbZ4cG/tPhgF22+Jx9 +KgHvKbX/vqjLATWBY6dfXSagxGo/HS89DrR3uZd0PiBgNWn+xSt9DjygN1m7 +lxJw61t7y1gDDsTmGPX11hDwl8nnjrWG3PUIFV35/hUB6dYPHQONOMDfczTT +r5eAWeVM1iLXA8xRnZEPBPSijjmfJXMgRaTBdWyOgF8LI6fPG3PAP9xgPPgv +AZW1B2JEKBygvb1xfEqAiDLl26knuB7Ljcr9RiLiQ78XdCcTDtSLfaId1iBi +RKR7SiHXVyK2ti3oEdE/WVeSn8qBA/31u6JNiei+OafNjWtrS72fi0jEpF3i +Lbe5Vsi7lhprR8RbVq3Lw1zPrRZU5XUloo4VOVLZlAPPIw9XJPoQ8UvGfX03 +rnPeDdsKBBJRk5ykk8j10Q1b3p8JJeListnBAq635D8OF40m4qN7mosvuV4r +pSNwLoGIQlcru8a4Xj6SdV0yjYiXVb3+LHL9ZpDf8NIVIs7bHw8XNuNAkc2h +JtlsIhpOXmZIcn2qcMjzah4R/1wleP/f3tKOU/Jl3PEKj3f+v71xTM3JW7VE +1AK8v8TtT3h4razqMyKOK7/vHOd6eNOVh3fbiHi6v2dnG9dVxStB6y0Rrcoe +ORdxnSEb1vlgmIiN16fvJ3EddPx9oM4kETfSSDs9uYaP9ouF80R8/aHulDrX +svZVGYbLRLySESw7xl2vqRItzTJBEgpOFcrkct1EuFRlIkVCsFJI8uH6RuwK +R448CYXi7YPFuT70+cAwTZOEu8y6mjjc/bLbPBD5WJ+E4Recs7y5Viu3FUEz +Eva47xz9xd3v9pMaFGt7Ehrp1fKqcv3P2Pnm/1xJ2M126nrIrZcTTsvedjtI ++DBrla4+13qKfaecwkj4Z1/KEVVuffElbiR1RJNwJ70y/Pz/62+ivMg1kYTe +MnVLv7n1epZzrscrk4TK1rTX1dx63qm8tG8gm4S0eGVlSa7NkoJ5fB+SUPxi +o+BObv2Puliv2/2YhAka1tVT3POy4evv6AMjJCy0vTNSvY5bD5surf93koQ7 +YoUbh7nnreiOXt+aHyR8PMK6yMc1wdXPvEpQHkUq8iWo3PM5yXm6sFJfHpVD +41q3qHFAVcr3H3dTeYzMU4rZpMoB930/3fNQHl/r8pNpKhx4oqhT6egij3+V +LzwWUeLAxfiMiKtH5NFOMTwrkJsnzf3rNCZPyuN3inCzAYEDi5TGTlaKPDqz +p9d8k+XAntF58seb8ti3/FQkgJtHNIfts/qN8uivwmzl4+bXsIzWgSYxBfQS +3rCkx80/uYP1inJyCijbmLLhKjcfHZo9X+5VUcAQ0wfdf7n5WRmdorvaWAH7 +3Pk+cBbZcHZwZsLLUwFti4ynx+bZQM6rCfyao4Drsoqj6KNsCOR1k7MsUMCL +Ct6PHT6x4cb26WeXKhTQfZ/lMc8RNqwSV9WiNStg1rOOMF9uvveFJ31MnFJA +v5eLGTo9bDjJcN5JMlNEbd18h/qnbNi049Y3U0tFrNQc+rCxkQ3icV8S3BwU +UUYyz6D1Cbf/xlO5GX6KuDP0C19tDRs4dtVfVp1RxB2fPFa5lbBhxlM98vtb +RRQkPZj0vc6GHYfnz76IUcIjfSe+zAezQTPTUmHilBJS+dcdehzI5u7XuUKB +DCVMe1VHjd3NhujFde2W95SQ1ZweP+vDhssJO2SqXighT5zV3fNb2PDi/H+3 +7ysq4wsvhYZGCvf/XHS1/ES9MlpbJJ4R+1UJG3peLU03K6MfvW0hcL4SHHn4 +Nvp2KCPuy+t9PFsJu7YeeAuflNGkYzOP90Ql2MSoxsbxq+Cmg272/v2VEKr8 +466FjgreHR/7drW2EpoCb081RqpgcTCx4VVMJYT8nI1rFlNFza098qTpCqCF +7ZH9LKWKY+7lIkLj3PvURF/+SoIqikxRyr+PVMD9/sY3LDVVFM6YsKh9WwHv +6y7rVlBV0Wsdu5P0tAKcTpn33vFVxdmE9inJ6xVAljppEFOiige//f4suKEC +fulIvNdzU8NbA7pDKinlwMgvyL5yRR07WXwXe5ZKYVbKzs+9QQP5WX6LEwdK +4GOqn3u4gBaKaR90V/ApBtuvUbafqNooYMTq7VpTAJO7BA+Vx65F5dcp2ZWZ +D7j3czne5IZ1mMcvucfB5T5IvdRKf/R1PQqFLm2oi8oBhdPFW6hUXbyw/pe6 +AOM2ZOmYS6wJ1MNsivwBlZBr0EqyMPl+Xh8pGbV3xoyvAE2hIcPgjQH6kA7r +3NS/AOIrcyJ2xhuimgxh2ngwDVb9qneZTTREnVTKourTNPg7/Y58MtkQPUrs +PFTz0+BrH3E2O9UQzxT8eO8SlQbtpef3D10xxK/7FW8mS6TBBf+Te3zzDfFl +Q6aQpk0qyDb4efp0GWKooCdLou4sKJ1UZnhpGaH0Xb4in8FkKDokqPZurRGS +tQx4e1uSgbVnVmCnjhFqdqy/vLM8GXzsGzuDDI3wiz7VN+dMMtyQCdx3hGaE +c97evW8pyUB8WHQt09EIe3My/pDSk0C6k/mrO9IIX9BTfavtT4GQpnfl1v+M +MOlQ5EfBb/EQTAS7/Bbu+5Jljm4f4qFVTO39yhdGOKXoc7WwPR5Sf4zyV7Rz +x/udXH2yOB7Emw+5yfUZ4akrk5fZ++NBal/KXP+kEYoZv/njOnkSFEqqyQFS +ZDQesq8w/BYH+kxicZQPGa+p2e2JYp2AMvW9f3j9yHj4vJiBi8oJMBOu2pju +T8bNQz3lG3lPgGWP59C9QDLqq3bVRz87Du5hWZIdYWRs5G3cLLDlOMTel4vQ +TSKjT+pjxaLAY9AuJmv+oYiMw/mpbq8fREP4e6lGOx5jdP8siEEHo6D5mffj +h7zGaN/c3nDPMwqUinPZwvzGKHBzbdd3iyhojaUVtAoZo9768MgW6ShQU/W/ +bLfGGJf2WZxyromE17tKAu20jPG4ibrRc5FIMBx3ErVzMMbH9377EKoj4Ov3 +VDfbLGMsbA5sqbMNh4HeO+43rxnja3J3ZK5pOLQ+rvSYvWGML+fOBtzUDId7 +yUNeV+8Y4760gkHOinDYJk/ZMf7QGDfJHjK5Xx0GTy3795x5zPV/I5/sDMLg ++vl1R1qGjTGf8mYyST0UNho8u2arR8FjH2+U+O0LAc9Vm1zbDSj45W9y8hP7 +EAh+1yLmQaagcIVxHUs3BNJTXsbtNqXg6KWF2ctT++DNaNeeWAsKTj+M/lYQ +tg92Z4+QK9wouLrsv7C9scEQL7niucoJCu7d0mUV+ygILo3FJ/4TR8HYTfTQ +2EtBkFvPx9JPoOD23gyj60eCoHW/YAn9NAVDI40UNC2CQLJ1dab7BQpqSBUa +x3UGQna80q7UXAoaE29n49IeqPtO/7PwioJH5cgs990BcOcF29/lNQXbRZtr +bDYHQOJ949aiTgouXmqadaAGgK2HztWAXgpKxP6z4ZpgAHRVk0w7P1AwwbSL +TS3aDRMnf4UXzVHQbNrjWNDSLpCVYE/sJpkgvclhPyvfH36Nkbc+UTDBTydN +Dj+74g8D/xZVySub4MK1MrJ/vD/cOZR7ukPdBJuVzTO6vPxBt+eyFuqZYP14 +hfpdIX+wvBXhL48mGJf10rwvZCcc0CX3vQ4wQfXq1wwbCz84vED67RtkgsG2 +BS45en5wrGElaTrYBNN2SnmvIflBime3l3CoCTbo830N/OwLDxKPvLWMNsHT +l0ce9jn4wvBAXW9Zugm+9Krdv1N1B7in2fdcZpsgY27C69fodvDxpCyoV5vg +xJrc0X+ebofd6opypbUm+Dy6fCTm7nY4VDXt/upfE8wNI9266LsdMj6df7Pq +hQk6P1fafeLtNmhl9nZHDZlgXYVqvXqXFzCnd3d5CVGxILn40rMRD5Ct2ZhT +K0JFnoh2hYH/PGA6eX2osjgV2y+dqBAv8IBbqjMin6SoqKhLK22N8IC/rjFW +oQpUrIK3EtcFPKC+5nxpkgEV7VTPuCeT3cHiTF1GmRsVncyl+T/ccAWS+50d +sp5UDDyX6RCU6Arf1BJ1j26jYmHb4HmhEFfIqbVtZvlS8fn9AvZVuivwznQt +twRR0eU/5oepfhdodP9yYCiG62HNvc6qLmCtQdgslkPFCw6Hj+ypc4byqaeq +u+9R8eonZUZInjNosA/9qM6l4oT/KevTl5yBz67tdlA+FUuPO/Xy7nOGhoNJ +3xrLqRi/Lbd5meAMrJq5zOj/qMivbuslcHQLULe+Hh6dpGKmwN600+cdIVc+ +ls36SkUJ4YVvvSGOIPNJN/XyLBXHv5Wvct7kCHNRp02sflDRt9vnHnt5M5Te +hNO3lqkofPdB8bbQzWAwXqjnJmWKy7udiL2eDrA27uyRBlNTrOrUdq20toNa ++n1+B5ophjoJBvGq28GWhfoL3QxTrM2c+RrFYwdHDswXjFmY4oRrcvH7Glto +9vb7IO5gisayAXCFYgtB5lS77X6m+KpF4u5pvU2Q9+2D/NxpUzwutKXMi2ED +rKLFB8dTTLHyyIvgBCUb6NgrRxVIN8WwvdciX/PYwO8hhy2ki6ZoeEV35u1T +a7BrYyfiTVOcSUwwyXK2hon8tKnUElPsUI9rfnBwA6wPMK/X7DPFXwl1dbJP +LeGcmuPvhAFTFN0fTqAWWsLcoL/J8HtTvG6eJBd22RLqtqXm3xoxRd+FgUvm +eyxh65bBTLkpU8xQeRMtKWQJR+mnQoV4zLAt7HN5k4sFNEu+Vp3SNMP2622M +hZ8Aem2fvO3XmqHlw65NFW0AF1J/Z+atN8OIIa2xu7kA3gIa4nsMzDCyNEZG +yg3g62Lk7/dmZrgu9eN93XIWyI4pdLbbm2HpyXFegxgmBNQFJZaHmaHn2qFk +aR06TO+fiLKOMMOfETOi6Xx0OKIYsu9NpBnW9ITGm7+nwdljB7f+jDHDPvpb +d80LNHhEi1RhJJnhnq8zXnaL5rBYmVDbeM0MHzVLqma9NYMLxbfmOhrNMIN/ +NuBJJRUUfFXGdj0zQ1GFqFsiV6hwXzynf67ZDNn84tMnD1OBs/9+g+wrMzxT +9YLvK4UK73QKMrb1mqFhgsCxpxUmsPZBle7wpBl2iomdM62nQH121+5ZGXMU +OSKq3PeVDEMOqr6RBHP0SahUyOsiA8+v/V5/SOZ44prC8+tVZLB0FnDkVzFH +/fIV6V8SyPBsBc2UuN4c6//J4jEkkeGF/20hC5Y5Giwym7Q3G0GfRnBRxh5z +9BytnQrKNIA/7ZUPZPaaI9+F0JCtew1A4fjKu9f2mWMxTUXrKN0AfLpvZN4L +NUfvrZtIx4f0YehUWxwn2hxHbpKfuuvpw+hnistQujmKtl4lSHTowtyD5QUD +tjnmzmgl3LFeD5/dbbLPVJnjWSeHzRaq66GXL23TSI05CvtIXBVfWgc1fqSr +V56Y42Ku8oBhxTqIJ5jQllrM8e3PW+vTtdeBxOngY60D5ljOaA88Lr0WdAO7 +eQJ4afiubGSxSUwLlGQU8ur4aHis72hG8bQmSDT6OxMEaGhyX5D1b5smfFea +ufNchIYllYHaXhc0ofqNsBVZhoavmvbxuBM1YZMNnlrWpuE56qGebfoasEsz +X+jaZhpuz2uOcTmkBtFPdwRrbaHhGrJxU6q7GmQESD0v3UrDwkKZ3VPmalB7 +/2jqcw8a2sdMdqmvUANprU2rl3bS8MebxjLf86rwTOuTtF8kDdcSb6/4zFGB +9WuVVbRuc7//TsqTm9ZKgM0dcaV3aDiYNsKvKqME7kFJH1j3aOj+xePq54+K +kPBgKscjj4YPabFgekoRBtbWap4poyFD3KzyY7MCpK/z0pn8j4bE/lMO6t7y +MLv+IrV0hobhOa4iQ8UE6H2B1mu+0zA2yGqm+gwBnhyYdomYp2E8o+7ss10E +SC+1DaP+pmHTO/b4AQIB1tN4CqpX0lHJquDeUoIc+NvuV22UpeP2l5+63++S +ha7AjaJdDDpeU/CWU7GWhhqheZIJ0FFT6f7dbA1pyMnPWXfFgo6qaeu67fik +IfTrko2nDR3dyzq2yzetAbGo8pMDTnSMHe6J+Md6DdgkqS589KdjuUrqU9wi +BZx7fz7Mn6bjlcRzuwziJYBqFbFgl8Idj8EbJBUoARUfJkWz0+gYvevYBzkH +CShVem9qd4GO68fXZp6RlYCCrCdpt67T0W/zmocC21ZDduop841FdHx9vcol +4IkYnIlYfT6rk45nPTcXLNUKg+Ca07lT3XR85mBf15EuDEklPLWWvXRcebhr +cMRPGBKnZz9PDtDx+Z0DrlX8wnAiqIth8ZmOhdomBuu3CkG499Wx8Z90NDpq +7DU9LwDbNqgjXYmBgpbVq4ID+WGpS1C8UYWBI296WpcY/JAdMN1vp87A62Om +LW1S/PA5qSpq21oG3u12269XzwfhLU7FR8kMfKrVSW0m8cFZx2NKHBsGFivG +Wm54xwvVnt2LlIMMfEOJTCxM4wGf8erW2jAG2s5PuGcE8wBPdHbWhggGbph4 +Ppi3kQdsru+juB5lYGrPpHkcLw90vFsRciiBgS3BOhuC5v+yJvz1+0syGbhy +MMZOemKRJb8/uUr/CQOVLCP1RVR+sdKX95ikNDCwT3q279TETxbvBZuS0SYG +irIWcl0rfrImKvnzslsY2Do26j9l/5NVzZOYJdXJQPOtyn28xxdY2y7FRf34 +xJ2fiGn/0el5VlbNUZM6ESZGRJFb40S/s0QdvUpI4kxUXh0pMzH0jRU3ZKYX +JcHEQuOj8zcrvrGC+H9qGMowsUfile1H328sU6dI6RwlJhIrf6qOsGdZb4bD +v58yYuJFu4HyoMMzLBnhkJLNHkwsb9XuU7SdZN2zOh4948VEbaPyxoA/X1jk +4+lWF72ZeGNC+/iWoi8sx5lH3b07mbhKVNNQRPYLK+nN/K9dIUwsyfO2X54c +Z/3MibWMPslEaq2ggiFnlJU0kCGimMjEc7/5E6wjRlnSsjld9UlMvGCduTxj +OMoyPNO0hz+ViU9ExUUFCj6z9h4USsm4wsTHlMtUYt4nVh/9YmduPhOF6gaI +GnUjrKDD927YFjGxjPDpFj1hhPWjqCJg8hETFSbczgxsGmFJqfUuGFUyscHo ++m529zDLXlBR4fETJsrt/iBdM/+BVduVu7uzm2v+y5W2jkMsO3GOXmQvE+1M +jD5kyQ+xeje2/CD0M3F/om5hS8cga676y+kdQ0x8afx9eVB0kKV3x7BwfIKJ +K8/Q30SnvmPV9llEpk4x8fnqQslq/XcsO2kXMJhh4qO2GwGfXw+w9iQffh0x +z0RzsxAVHvkB1tyTpGtyP5l4wMVk/8STflb878xd1b+ZyO/icasmsJ8lQcnT +9VliImWbwNrw1f2sW/ur55eXmfi3a0WsKKeP9T+u6lue "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.09460552690925532}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3517,6 +8958,7 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3544,7 +8986,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09460552690925532}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3552,9 +8995,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991335257344549*^9}, - CellLabel-> - "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] + CellChangeTimes->{3.991335257344549*^9, 3.993852367174636*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"93f2fe85-17d9-4d4d-b3cb-e9caa6f5fea3"] }, Open ]], Cell[CellGroupData[{ @@ -3607,66 +9049,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + "In[100]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 256, - 237, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257395241*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0020626550439254`*^-122\\\", \ +RowBox[{\\\"1330141931606821926876746\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"139\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 17, + 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.993852367286433*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +In[100]:=",ExpressionUUID->"8300253b-3845-4578-a3f7-4d28a1ed4962"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 256, - 238, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574052296`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5136055485702013`*^-124\\\", \ +RowBox[{\\\"6150576291749944589878075\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"142\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 18, + 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9938523672939034`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +In[100]:=",ExpressionUUID->"50f25361-c6d2-45ce-a2a3-469b3f452882"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 256, 239, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257413231*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.2862859374417816`*^-126\\\", \ +RowBox[{\\\"2928289372502148619240951\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"146\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 19, + 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.993852367301003*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +In[100]:=",ExpressionUUID->"4c6bf618-9b1c-40f1-83f1-b5cbc0a73493"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574212303`*^9}, +during this calculation.\"", 2, 100, 20, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.993852367308106*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +In[100]:=",ExpressionUUID->"4de45c9d-5208-478f-8a17-f13e95be7e52"], -Cell[BoxData["9.332200719005158`"], "Output", - CellChangeTimes->{3.991335263670042*^9}, +Cell[BoxData["8.014762774436756`"], "Output", + CellChangeTimes->{3.991335263670042*^9, 3.9938524339885483`*^9}, CellLabel-> - "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] + "Out[100]=",ExpressionUUID->"b303f899-6a08-4e95-9145-accaac60a194"] }, Open ]], Cell[CellGroupData[{ @@ -3733,65 +9182,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849285445259*^9, - 3.991849289419262*^9}},ExpressionUUID->"6f0ad284-4db3-da47-b8dc-\ -45830eedfe9c"], + CellChangeTimes->{{3.991849285445259*^9, 3.991849289419262*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263710146*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.094125897449317`*^-222\\\", \ +RowBox[{\\\"27355265838161455835337350\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"38\\\", \\\"\[RightSkeleton]\\\"}], \\\"59182397440000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 101, 21, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.993852434034727*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +In[101]:=",ExpressionUUID->"59b0e596-2e16-4cde-91a0-6eea6ed32385"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637201557`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.111747947476807`*^-228\\\", \ +RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 101, 22, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.993852434043345*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +In[101]:=",ExpressionUUID->"5c2230f3-7469-4fc6-911d-5fe81cf1044d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263728153*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.123672282955085`*^-234\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 101, 23, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.9938524340521793`*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +In[101]:=",ExpressionUUID->"fb3172e4-0e6b-46d5-bcef-1f6dac08d73b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637361546`*^9}, +during this calculation.\"", 2, 101, 24, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.993852434060227*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +In[101]:=",ExpressionUUID->"5252f4d2-0291-4d5c-8bcd-01254f91743e"], -Cell[BoxData["0.00046079539931050297`"], "Output", - CellChangeTimes->{3.991335268779545*^9}, +Cell[BoxData["0.0044068409786766185`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.9938524402063417`*^9}, CellLabel-> - "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] + "Out[101]=",ExpressionUUID->"a71878e9-160b-4aff-9f6d-40709e02d607"] }, Open ]], Cell[CellGroupData[{ @@ -3812,8 +9268,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3858,65 +9313,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849293744112*^9, - 3.9918492959939384`*^9}},ExpressionUUID->"b2dda819-6f34-5c49-bc62-\ -303d815946e5"], + CellChangeTimes->{{3.991849293744112*^9, 3.9918492959939384`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268812542*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.094125897449317`*^-222\\\", \ +RowBox[{\\\"27355265838161455835337350\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"38\\\", \\\"\[RightSkeleton]\\\"}], \\\"59182397440000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 102, 25, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.9938524402490883`*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +In[102]:=",ExpressionUUID->"761e5245-dc9d-45dd-81ad-4a6ce582e356"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268822542*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.111747947476807`*^-228\\\", \ +RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 102, 26, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.99385244025843*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +In[102]:=",ExpressionUUID->"636bd60f-d184-4f25-96e6-e1517f36e040"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268831545*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.123672282955085`*^-234\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 102, 27, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.99385244026518*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +In[102]:=",ExpressionUUID->"c017d093-de70-4441-9a02-37a5a6e4674b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352688395576`*^9}, +during this calculation.\"", 2, 102, 28, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.9938524402727203`*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +In[102]:=",ExpressionUUID->"592c47ad-457a-4710-af01-473610c4dda0"], -Cell[BoxData["5.104103620353258`"], "Output", - CellChangeTimes->{3.991335272704685*^9}, +Cell[BoxData["16.230521904207706`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.993852446031837*^9}, CellLabel-> - "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] + "Out[102]=",ExpressionUUID->"223784e4-ab21-4584-ab8b-f263c567b601"] }, Open ]], Cell[CellGroupData[{ @@ -3937,8 +9399,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3983,65 +9444,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918492993108063`*^9, - 3.991849303274454*^9}},ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-\ -1a175f609f7d"], + CellChangeTimes->{{3.9918492993108063`*^9, 3.991849303274454*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727386665`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.094125897449317`*^-222\\\", \ +RowBox[{\\\"27355265838161455835337350\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"38\\\", \\\"\[RightSkeleton]\\\"}], \\\"59182397440000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 103, 29, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.9938524460731688`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +In[103]:=",ExpressionUUID->"cbc0a5b1-5a81-4af9-a90e-6e69fba23a35"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727476673`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.111747947476807`*^-228\\\", \ +RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 103, 30, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.9938524460810423`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +In[103]:=",ExpressionUUID->"a04c5e1f-c0bd-416f-8d3e-8384a17583a6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727556705`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.123672282955085`*^-234\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 103, 31, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.993852446087126*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +In[103]:=",ExpressionUUID->"09388045-8281-4be8-80ae-536dad13eaa4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727636833`*^9}, +during this calculation.\"", 2, 103, 32, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.993852446092955*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +In[103]:=",ExpressionUUID->"25df5157-838b-45a2-9711-d598dee79bdc"], -Cell[BoxData["18.832858301324727`"], "Output", - CellChangeTimes->{3.991335275154251*^9}, +Cell[BoxData["1.7305065104416586`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.9938524496812763`*^9}, CellLabel-> - "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] + "Out[103]=",ExpressionUUID->"5077f6b9-f7a4-4fe9-a5c5-03bbc413ee06"] }, Open ]], Cell[CellGroupData[{ @@ -4050,22 +9518,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918493065908413`*^9, - 3.9918493103344364`*^9}},ExpressionUUID->"69dd09d9-152e-3e4d-9517-\ -4de4791db2f4"], - -Cell[BoxData["0.00004699917922538678`"], "Output", - CellChangeTimes->{3.991335275186266*^9}, + CellChangeTimes->{{3.9918493065908413`*^9, 3.9918493103344364`*^9}}, CellLabel-> - "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] + "In[104]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], + +Cell[BoxData["0.0008315234816750964`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.993852449707597*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"aaaabe8a-ce9b-40cf-8bda-71ba9e47ec4a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, - 3.991924798063732*^9},ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-\ -749729cd7104"], + 3.991924798063732*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ @@ -4088,12 +9557,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + "In[106]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[BoxData["5.744985073726737`"], "Output", - CellChangeTimes->{3.9913352752142563`*^9}, +Cell[BoxData["6.982450948835095`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.9938524497207336`*^9}, CellLabel-> - "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] + "Out[106]=",ExpressionUUID->"ac958d4f-5083-4cc1-8fcf-bc1120c249fa"] }, Open ]], Cell[CellGroupData[{ @@ -4103,12 +9572,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + "In[107]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[BoxData["1.564995573098557`"], "Output", - CellChangeTimes->{3.9913352752482567`*^9}, +Cell[BoxData["0.832298710455706`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.993852449730179*^9}, CellLabel-> - "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] + "Out[107]=",ExpressionUUID->"ffb49bc8-359b-4fb6-afd8-756ef651d8fb"] }, Open ]], Cell[CellGroupData[{ @@ -4118,12 +9587,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + "In[108]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[BoxData["8.990876207899632`"], "Output", - CellChangeTimes->{3.9913352753089123`*^9}, +Cell[BoxData["5.811484920535671`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.9938524497390633`*^9}, CellLabel-> - "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] + "Out[108]=",ExpressionUUID->"f3cfef42-ea9b-405a-a4e0-9fac19b6e983"] }, Open ]], Cell[CellGroupData[{ @@ -4313,12 +9782,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + "In[109]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[BoxData["0.07167004636648908`"], "Output", - CellChangeTimes->{3.9913352753341656`*^9}, +Cell[BoxData["0.013507994262885344`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.993852449750086*^9}, CellLabel-> - "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] + "Out[109]=",ExpressionUUID->"9f576b2d-daf6-43ff-a466-f2a65be80e54"] }, Open ]], Cell[CellGroupData[{ @@ -4332,12 +9801,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + "In[110]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[BoxData["3.3103666491187544`"], "Output", - CellChangeTimes->{3.9913352754296722`*^9}, +Cell[BoxData["7.625169585398032`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.9938524498388147`*^9}, CellLabel-> - "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] + "Out[110]=",ExpressionUUID->"3ea118a5-539b-4c39-b57b-7f6ebbc4e688"] }, Open ]], Cell[CellGroupData[{ @@ -4529,12 +9998,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + "In[111]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[BoxData["0.012832691268660865`"], "Output", - CellChangeTimes->{3.9913352754426765`*^9}, +Cell[BoxData["0.15472272420499267`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.993852449850202*^9}, CellLabel-> - "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] + "Out[111]=",ExpressionUUID->"48c639ff-9851-4624-a459-0fac5e9b4074"] }, Open ]], Cell[CellGroupData[{ @@ -4548,12 +10017,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + "In[112]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[BoxData["7.823229443917166`"], "Output", - CellChangeTimes->{3.991335275540678*^9}, +Cell[BoxData["2.253034743711719`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.9938524499425373`*^9}, CellLabel-> - "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] + "Out[112]=",ExpressionUUID->"18a992c2-dc34-4edf-963d-4d30769aca2c"] }, Open ]], Cell[CellGroupData[{ @@ -4646,12 +10115,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + "In[113]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913352755566807`*^9}, +Cell[BoxData["0.08903677593802349`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.993852449952065*^9}, CellLabel-> - "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] + "Out[113]=",ExpressionUUID->"5fb601a0-02e0-4a2b-8e8a-918e7fb33057"] }, Open ]], Cell[CellGroupData[{ @@ -4741,12 +10210,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + "In[114]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991335275581682*^9}, +Cell[BoxData["0.9109632240619764`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.993852449961088*^9}, CellLabel-> - "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] + "Out[114]=",ExpressionUUID->"2f55147e-9094-4e77-88fd-dd9a37b61bd9"] }, Open ]], Cell[CellGroupData[{ @@ -4869,12 +10338,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + "In[115]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913352756087036`*^9}, +Cell[BoxData["0.08110922846858569`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.9938524499709663`*^9}, CellLabel-> - "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] + "Out[115]=",ExpressionUUID->"73caa789-14a9-48c6-a88a-d2bc19a8f36c"] }, Open ]], Cell[CellGroupData[{ @@ -4889,7 +10358,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -4911,8 +10382,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4936,68 +10406,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849332835844*^9},ExpressionUUID->"d6aa822f-4140-174a-8e29-\ -c889dba5c0d8"], + CellChangeTimes->{3.991849332835844*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 253, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275636673*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.858594991223182`*^-220\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 116, 33, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.993852449985898*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +In[116]:=",ExpressionUUID->"0f61795a-00d3-4ef1-a219-2b703c6e5ca0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 254, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756456738`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.969175963098212`*^-226\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 116, 34, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.993852449994595*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +In[116]:=",ExpressionUUID->"a971d52d-e2b1-4a01-b960-be1d7f6bc9cf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 255, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756546745`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9170966158140716`*^-231\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 116, 35, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9938524500012693`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +In[116]:=",ExpressionUUID->"60eb546d-0c55-47e7-bc03-8cb1d58157ac"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275662676*^9}, +during this calculation.\"", 2, 116, 36, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9938524500072813`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +In[116]:=",ExpressionUUID->"a8649875-d13f-4ff6-aa88-54ceaefd0af6"], -Cell[BoxData["3.3103666491187513`"], "Output", - CellChangeTimes->{3.991335279487499*^9}, +Cell[BoxData["7.625169585398028`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.993852453424423*^9}, CellLabel-> - "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] + "Out[116]=",ExpressionUUID->"4a2e8e59-2441-42c0-8197-5eeb648bee80"] }, Open ]], Cell[CellGroupData[{ @@ -5012,7 +10486,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -5034,8 +10510,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -5059,68 +10534,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918493361354027`*^9},ExpressionUUID->"46f3f057-22eb-c143-af7a-\ -23ddab00799c"], + CellChangeTimes->{3.9918493361354027`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 257, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279522499*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.858594991223182`*^-220\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 117, 37, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.9938524534692087`*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +In[117]:=",ExpressionUUID->"9e828d74-5490-40db-a8eb-d15b74a04881"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 258, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279532501*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.969175963098212`*^-226\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 117, 38, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.993852453477244*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +In[117]:=",ExpressionUUID->"9b4d6fae-987e-4cb2-ac8d-ae3e7ed0fd6d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 259, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795405006`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9170966158140716`*^-231\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 117, 39, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.993852453484048*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +In[117]:=",ExpressionUUID->"002781ea-5fa9-4b3a-b133-c915f85d5f71"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795487957`*^9}, +during this calculation.\"", 2, 117, 40, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.993852453491235*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +In[117]:=",ExpressionUUID->"564d31a4-3f3d-44ee-bb37-a35e00b4e548"], -Cell[BoxData["7.82322944391716`"], "Output", - CellChangeTimes->{3.991335283631424*^9}, +Cell[BoxData["2.2530347437117193`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.993852456821282*^9}, CellLabel-> - "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] + "Out[117]=",ExpressionUUID->"6122aea2-ea0f-4a4f-9f9a-4d30881e894e"] }, Open ]], Cell[CellGroupData[{ @@ -5178,94 +10657,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918494105860615`*^9},ExpressionUUID->"0137ed47-cd78-284a-910a-\ -31d165f1571c"], + CellChangeTimes->{3.9918494105860615`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV0nk4VF0cB3B7i6Xsu+yFRDMk8nZ+9n1JC7KPmUtChSR7hd7wCm1aKUtC +SVLE2ytUkqJoExpZynZnbEmJ98wf97nP5znnfs/3nHNVaAfcGDxcXFyT+OG8 +D73etP5h5+vt73fvf+HEM4W2k0WGNMsKVOY908gxM3/LWXXLBpTCn3mTY1f6 +KwEh6lMU5maYwHFVTFIzv2U7embNMuP41DOZxqSyN8jmW92cI3Zd56Fri5R3 +iM/kXB7HYz1t8UfrP6Jw62PaHMsNq3n9sOhFjpKJ5Q7YDqx448j2L6jhboY8 +x48XxwRjygbQdvWyWHvs98ek4x6ED6KS+E+tdtikgOXYLGUYrWuVFeBYIPOg +J3V+BBlJ7afYYiuJXm09VP8dvTryyskG21n+RwlpMYGe//d0hxU2UaAqpbuS +RBWvvUwssZM0XFL3t7OQvDmvmAX2R+nuzVFlU+j4g7QswKbvDdl3JnMatY/R +qAibfYXr+r3wGWQ75vr8L+yVqrprpyhzaHcjrcEE+yy92Wat5A+04l2aojG2 +8k3PJL35H0hn879hRthbN6aRYfU/0Zh9wGcqdvCWL+1jFosoWzFjXAd7NuYw +32rNP6ghweqpFnZyvaCp1solVO4rnrUeOw+2lge1LyMZz7EJVU6/4lbLiDJu +6D6S/kUGu+zZGeYxeR4wURjZLMXp+803PieTBwTf7IkUx47Xnqu+G84L+5xi +moU5fStV1FgUfugUaMrjxu7pnHi8VMgPg5faA5e4cf/ph3tFJAXAR4NU/I1d +YeCcqzsvAHLaR/xmsVvqYrlD61dC6PlS6RHsueauL98thGD2eJv3M2wxR6G1 +cY+FoHdnd8MTbP1uSxA2FobZQd5V/2KHDNUUbN4kAg8E3jOqsQ/ytOv/JbQW +elV2bs7HHla9M5X6QxSYyoprI7FnibZVHVQxkO6up4Rh85SPqMgcEoPlzX+b +BXH6Ute5lY2LQaNWhZoX9l6L7HuvmeLgK775lxl2R2BEpPRLSXhrWMMWxO6/ +mZXhv1IKlEIPv+fDnhgvK7xlJQUK4mGlf7im0Oqowa5tjVIQx+AXZWFbpuwy +8K+Rhie0ydlO7EdFW+ZK82XhqMC2lTnYRcO/ok2iFEFmXI/Gg227+2R/5G1F +yK2xjFxYZqOJFnHr2yOKkPxEL5KNbVC0UVLZUwmqszJQP3YLzbeaf/s6cB4M +X12HPc1iHvl+Qhl4dbP37ccWD7O8X+2kCpKjg27NS2w0UrQ62DVEFSb7bKAW +u7a3U34yTRV6zK4o3Mb2dvQ5odmoCuELsjfOYxfpRLtdpKhB9/BxZjC2wdhN +dqK0Oshu7NNZjb0rSFDXfkADkjxP88IfNkLRuynufzTA0sdZnIqtnZpvRJfV +hHWTT8U0sbkKqeaJOzRBrPkrUxD7dr+X+70nmlAlxK57v8hGAnsqjsndWA+R +3hb++7BrLZ3ej9G0YIHln3r8NxsV7rzweT5RCxxGzbIisbNoA0y+y1rwlbaU +RsemJx8eV+rSAtFTIrbW2KINV7l2WmiD5LOKlauwQ6ikdr2aDlgZkykZv9hI +XvV0UsbQRki5oheRssBGDemzWgs8uvDl07sVEdjeM57dhIouNCRWpPthX2tR +1zL31YXPz6fcTbBVgx69/flBFxaoQqKsn3i/FcMaxMtN8JrJt7wLW1FeiVD2 +1Idk22PvxebZaGNxlNBvRAHNI0u9e2bZiEY/MafrTAF5nVp3M+w8tdx+f28K +8PkcbdLB5r1RefdZDAXWSMsGc2H3XBvblVtFAXv9pZnSGTY6led/VUuNCrV+ +w2vmp/H9Zjhu8hAwADuNy/STU2x0PULdtabdEMrPGo/GkGzUGY2MUoqN4e7H +g+7839hIxfeds0/oX3Bp29+Nhf1sxFh+cEfxKMD3/c2bRt+xkfR47Qppmjkc +TggPTn7JRlFU095cbUvYxccVNt2I+08utoqPWcGyQ2BSXw2+T/PIFfkdNoAU +DjDFb+H/ZzbkScVZO/CamSiIv8JGP81kXrUkOYC71GYj/Sw26uPinRoIcILw +6yN+2UlsFK5wIPuYmgsUZ5tvOHKIje7sa208l+oKgV05px8HsFHsjOy8zr4d +YOQqNFHvxkZz9tZ7nvu5wePchBxdczYy9soxG96xE3qNFGLub2ajt7JXQ1qo +u+Dyw6FqQ1U2kis50VC6YTdseCy/5C6K/y+mtqOz8B5QM+JvucjNRkrd7KDo +yT3wTTbkcPQQC1HP5VQUMt0hsL6klN7MQlf5ZjblNntAXGjVzGgRCz0w0+tJ +rfMEX8Ue67AUFsozShddLNsLe/R+921hsFDH5+I0aqYX+AwX97yxZaEapyvq +B5O9QX85oXBCm4WmwnZyhdN9wNFfrmFuDQvNWWsFkxa+sBh5Lz/pB4lKJz/9 +jNziB+cFG5KFe0nkcb040EfIH7jdmqRyW0hUfc/Bj/ekPzwXUg1LriCRsfzb +hVML/qDmluoTdIFEasygnjf7AkDevF5PPIVEQ4L7Xa4MBkBcZr951UESdWY5 +B9rspgES4bXR8CfR2Zh8wcOdNEjPFVWfdSFRw+PlhUC7QJh2LrDtNyPRGm84 +SX0UCMHbfusEbiGRssTzDoWGQMigbZ8zwNZvd5IReBwIzRnQJ4DtZup16+OT +QGiLzVhVbojzFaJfJrwIhJXpiV2zBiSS6ytf0/oxEIaYo5uyqCRS95XO854P +hMRqLomP+ng//mRpqgEdVlTzi7/QIVHJRXak8xY6/NdapF2MLdE1vV16Kx32 +BKX7HMMmrea7S7fRQa1ST9IEu0iHi7vdnA77qWvaK7RJJDIv6im2gw5/GaZ4 +XtDC5/GP4ar8MDrkFEgsJa8n0Y7nRt1BB+jAo5VxzB/7MZdJvv4hOiy4HFUG +7IuR2w2bouhgZdN0d1mTRM6eNgHDcXRQMtCTT8auU/es00mnAyqqlknTIFFW +ffy+2hI6lDvINpaokSiMcsE4ppQO6uXKNunYjreqVm0to4OiXu33MOzVF0Zu +PbxNh5MnrsQZYqdGuI49uE+HPiNv5lNVEsVrqe+vaaJDSFNTybgKiUIuvAy9 +10+H7HprPQdlEtmJjJhGMOmwoz5vNQV7QyqXMOUrHSry87lksUciDG9XDdNh +lX+n6bd1JApwzp+8O0GH5yc+z6Vge/BHhlf+osOLG8f3P1UikU2k3MEKKQa8 +jtUK3atIoqb8NPtcGQaUNLs8N8c2bZ9Wj5FjQGuloLkOtr7Gy08WSgyo3Gh3 +flGBRLIf4iw+azAgLu53XQH2uEmf1GpDBtRStrNIeRKd5in4N2gnA9ruTMoU +yuH96wnlOe1mQEPMbPBp7BSvmAiqOwNEyqs/xmHH3Hddv7yXASOGftK7sQMI +7pzzNAZU8aaJrsKmttHoTw/hfoYjC9GyJPqQoyGols2AflOT6yEyJLqDhIO/ +5zCgj6Xywws7ZXK25fYZBsiONxJO2BS7lsStFxgQZLn+sj52FlfgtNM1Brzg +uen6U5pE1gcKPsVUMGDi4S8yE1tR8e8t2+8wgMgtWE7Cnm07cIb3LgNOuazY +GIl9QxM5ZVUzIO227EdP7D99fY2FjxjAcg9I2IB931G+9HUrA1KImcU2KRJl +/OLhP9uGz3Pi24v/sGmlYwGe7Qzwri2+dx97Ld8j+aEOBnwQTvpwDTu03uP0 +wnsGMNg14VHYatrno9WHGTCdealLHfvXh4Su0REGmLXv9ZHH7kxl6Fd+x+vF +j/OIYScOGIwZTzDgekfS9WVJEvXkdfm4zDDA2S9pYy927gpRq1huAgak9WIv +YTdM93lF8WJv4O/Lwf7WVxYRzk/AUGkG7RS26X3LAtoqAq69LH8Xgz3iH/Pb +XhTPX2nl7Ym91tFKzEqcgEKh8u4d2NuMxLSQJAFeCy0H7LGzhSv2UGUJCFgv +JWLKGX/0pUpehYC7l7eOK2MTxRWtkmoE9NTbHpXjzM8++mWNBgFRz9ZoS3DW +I8SF+bQIODffPLOCMy5uEzyhT4Du2Kv1UxIkerQknjRCIWAi/drLcezhUeY5 +pgEBRdc25I5gmzTGNndvJeASCjnZiz0UekfpXyBAZKBMrA1bxCPO8KE5AU0F +zu1PsY0tbB2rLAlwHLxd+gQ7S/br0WJbApzf5b+ow67lq8zOtydgwzRF5AH2 +ICvu5kVHAs6EHj98D3vrM8l3/7jifuBeUY5Nq/o6ftKNgOr53rhS7H+uVPIc +30VAyIt14cXYXyPs9KM9CCBpfY/ysYV9pWwO7iVAItZD8ionz27QJ8SbgBK7 +nNxLnO/XJWT4+hMgdcV07hynz2r7Gx40Arj9KnvOcPLmpOrc6ARc38v8msPJ +GxjscCRw/7IO4WxOXvvdEetgAg4FJXhlcfo9TPgDIQRU3Rp9mcnJv2EvsS2U +gJo0Cb8MTv4/0jqG4QQYiy1JpHPyY4bM9A4SYOlbMvk3thC9ykMrgoCWWOHR +k9hGLokH1KIIGDlMXcExzcQhTTGagA4vGds07EwNmavSMQQoGDWUp2I/WDtc +LRpLwOKadRSOB35XtQnGE2AzCZ9TOPnfEgf4Ewko7lK5yfGWtw4/l5MIePP0 +yTmO/wcx/+Ql "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5279,106 +10758,106 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= +1:eJwV0nk4VF0cB3B7i6Xsu+yFRDMk8nZ+9n1JC7KPmUtChSR7hd7wCm1aKUtC +SVLE2ytUkqJoExpZynZnbEmJ98wf97nP5znnfs/3nHNVaAfcGDxcXFyT+OG8 +D73etP5h5+vt73fvf+HEM4W2k0WGNMsKVOY908gxM3/LWXXLBpTCn3mTY1f6 +KwEh6lMU5maYwHFVTFIzv2U7embNMuP41DOZxqSyN8jmW92cI3Zd56Fri5R3 +iM/kXB7HYz1t8UfrP6Jw62PaHMsNq3n9sOhFjpKJ5Q7YDqx448j2L6jhboY8 +x48XxwRjygbQdvWyWHvs98ek4x6ED6KS+E+tdtikgOXYLGUYrWuVFeBYIPOg +J3V+BBlJ7afYYiuJXm09VP8dvTryyskG21n+RwlpMYGe//d0hxU2UaAqpbuS +RBWvvUwssZM0XFL3t7OQvDmvmAX2R+nuzVFlU+j4g7QswKbvDdl3JnMatY/R +qAibfYXr+r3wGWQ75vr8L+yVqrprpyhzaHcjrcEE+yy92Wat5A+04l2aojG2 +8k3PJL35H0hn879hRthbN6aRYfU/0Zh9wGcqdvCWL+1jFosoWzFjXAd7NuYw +32rNP6ghweqpFnZyvaCp1solVO4rnrUeOw+2lge1LyMZz7EJVU6/4lbLiDJu +6D6S/kUGu+zZGeYxeR4wURjZLMXp+803PieTBwTf7IkUx47Xnqu+G84L+5xi +moU5fStV1FgUfugUaMrjxu7pnHi8VMgPg5faA5e4cf/ph3tFJAXAR4NU/I1d +YeCcqzsvAHLaR/xmsVvqYrlD61dC6PlS6RHsueauL98thGD2eJv3M2wxR6G1 +cY+FoHdnd8MTbP1uSxA2FobZQd5V/2KHDNUUbN4kAg8E3jOqsQ/ytOv/JbQW +elV2bs7HHla9M5X6QxSYyoprI7FnibZVHVQxkO6up4Rh85SPqMgcEoPlzX+b +BXH6Ute5lY2LQaNWhZoX9l6L7HuvmeLgK775lxl2R2BEpPRLSXhrWMMWxO6/ +mZXhv1IKlEIPv+fDnhgvK7xlJQUK4mGlf7im0Oqowa5tjVIQx+AXZWFbpuwy +8K+Rhie0ydlO7EdFW+ZK82XhqMC2lTnYRcO/ok2iFEFmXI/Gg227+2R/5G1F +yK2xjFxYZqOJFnHr2yOKkPxEL5KNbVC0UVLZUwmqszJQP3YLzbeaf/s6cB4M +X12HPc1iHvl+Qhl4dbP37ccWD7O8X+2kCpKjg27NS2w0UrQ62DVEFSb7bKAW +u7a3U34yTRV6zK4o3Mb2dvQ5odmoCuELsjfOYxfpRLtdpKhB9/BxZjC2wdhN +dqK0Oshu7NNZjb0rSFDXfkADkjxP88IfNkLRuynufzTA0sdZnIqtnZpvRJfV +hHWTT8U0sbkKqeaJOzRBrPkrUxD7dr+X+70nmlAlxK57v8hGAnsqjsndWA+R +3hb++7BrLZ3ej9G0YIHln3r8NxsV7rzweT5RCxxGzbIisbNoA0y+y1rwlbaU +RsemJx8eV+rSAtFTIrbW2KINV7l2WmiD5LOKlauwQ6ikdr2aDlgZkykZv9hI +XvV0UsbQRki5oheRssBGDemzWgs8uvDl07sVEdjeM57dhIouNCRWpPthX2tR +1zL31YXPz6fcTbBVgx69/flBFxaoQqKsn3i/FcMaxMtN8JrJt7wLW1FeiVD2 +1Idk22PvxebZaGNxlNBvRAHNI0u9e2bZiEY/MafrTAF5nVp3M+w8tdx+f28K +8PkcbdLB5r1RefdZDAXWSMsGc2H3XBvblVtFAXv9pZnSGTY6led/VUuNCrV+ +w2vmp/H9Zjhu8hAwADuNy/STU2x0PULdtabdEMrPGo/GkGzUGY2MUoqN4e7H +g+7839hIxfeds0/oX3Bp29+Nhf1sxFh+cEfxKMD3/c2bRt+xkfR47Qppmjkc +TggPTn7JRlFU095cbUvYxccVNt2I+08utoqPWcGyQ2BSXw2+T/PIFfkdNoAU +DjDFb+H/ZzbkScVZO/CamSiIv8JGP81kXrUkOYC71GYj/Sw26uPinRoIcILw +6yN+2UlsFK5wIPuYmgsUZ5tvOHKIje7sa208l+oKgV05px8HsFHsjOy8zr4d +YOQqNFHvxkZz9tZ7nvu5wePchBxdczYy9soxG96xE3qNFGLub2ajt7JXQ1qo +u+Dyw6FqQ1U2kis50VC6YTdseCy/5C6K/y+mtqOz8B5QM+JvucjNRkrd7KDo +yT3wTTbkcPQQC1HP5VQUMt0hsL6klN7MQlf5ZjblNntAXGjVzGgRCz0w0+tJ +rfMEX8Ue67AUFsozShddLNsLe/R+921hsFDH5+I0aqYX+AwX97yxZaEapyvq +B5O9QX85oXBCm4WmwnZyhdN9wNFfrmFuDQvNWWsFkxa+sBh5Lz/pB4lKJz/9 +jNziB+cFG5KFe0nkcb040EfIH7jdmqRyW0hUfc/Bj/ekPzwXUg1LriCRsfzb +hVML/qDmluoTdIFEasygnjf7AkDevF5PPIVEQ4L7Xa4MBkBcZr951UESdWY5 +B9rspgES4bXR8CfR2Zh8wcOdNEjPFVWfdSFRw+PlhUC7QJh2LrDtNyPRGm84 +SX0UCMHbfusEbiGRssTzDoWGQMigbZ8zwNZvd5IReBwIzRnQJ4DtZup16+OT +QGiLzVhVbojzFaJfJrwIhJXpiV2zBiSS6ytf0/oxEIaYo5uyqCRS95XO854P +hMRqLomP+ng//mRpqgEdVlTzi7/QIVHJRXak8xY6/NdapF2MLdE1vV16Kx32 +BKX7HMMmrea7S7fRQa1ST9IEu0iHi7vdnA77qWvaK7RJJDIv6im2gw5/GaZ4 +XtDC5/GP4ar8MDrkFEgsJa8n0Y7nRt1BB+jAo5VxzB/7MZdJvv4hOiy4HFUG +7IuR2w2bouhgZdN0d1mTRM6eNgHDcXRQMtCTT8auU/es00mnAyqqlknTIFFW +ffy+2hI6lDvINpaokSiMcsE4ppQO6uXKNunYjreqVm0to4OiXu33MOzVF0Zu +PbxNh5MnrsQZYqdGuI49uE+HPiNv5lNVEsVrqe+vaaJDSFNTybgKiUIuvAy9 +10+H7HprPQdlEtmJjJhGMOmwoz5vNQV7QyqXMOUrHSry87lksUciDG9XDdNh +lX+n6bd1JApwzp+8O0GH5yc+z6Vge/BHhlf+osOLG8f3P1UikU2k3MEKKQa8 +jtUK3atIoqb8NPtcGQaUNLs8N8c2bZ9Wj5FjQGuloLkOtr7Gy08WSgyo3Gh3 +flGBRLIf4iw+azAgLu53XQH2uEmf1GpDBtRStrNIeRKd5in4N2gnA9ruTMoU +yuH96wnlOe1mQEPMbPBp7BSvmAiqOwNEyqs/xmHH3Hddv7yXASOGftK7sQMI +7pzzNAZU8aaJrsKmttHoTw/hfoYjC9GyJPqQoyGols2AflOT6yEyJLqDhIO/ +5zCgj6Xywws7ZXK25fYZBsiONxJO2BS7lsStFxgQZLn+sj52FlfgtNM1Brzg +uen6U5pE1gcKPsVUMGDi4S8yE1tR8e8t2+8wgMgtWE7Cnm07cIb3LgNOuazY +GIl9QxM5ZVUzIO227EdP7D99fY2FjxjAcg9I2IB931G+9HUrA1KImcU2KRJl +/OLhP9uGz3Pi24v/sGmlYwGe7Qzwri2+dx97Ld8j+aEOBnwQTvpwDTu03uP0 +wnsGMNg14VHYatrno9WHGTCdealLHfvXh4Su0REGmLXv9ZHH7kxl6Fd+x+vF +j/OIYScOGIwZTzDgekfS9WVJEvXkdfm4zDDA2S9pYy927gpRq1huAgak9WIv +YTdM93lF8WJv4O/Lwf7WVxYRzk/AUGkG7RS26X3LAtoqAq69LH8Xgz3iH/Pb +XhTPX2nl7Ym91tFKzEqcgEKh8u4d2NuMxLSQJAFeCy0H7LGzhSv2UGUJCFgv +JWLKGX/0pUpehYC7l7eOK2MTxRWtkmoE9NTbHpXjzM8++mWNBgFRz9ZoS3DW +I8SF+bQIODffPLOCMy5uEzyhT4Du2Kv1UxIkerQknjRCIWAi/drLcezhUeY5 +pgEBRdc25I5gmzTGNndvJeASCjnZiz0UekfpXyBAZKBMrA1bxCPO8KE5AU0F +zu1PsY0tbB2rLAlwHLxd+gQ7S/br0WJbApzf5b+ow67lq8zOtydgwzRF5AH2 +ICvu5kVHAs6EHj98D3vrM8l3/7jifuBeUY5Nq/o6ftKNgOr53rhS7H+uVPIc +30VAyIt14cXYXyPs9KM9CCBpfY/ysYV9pWwO7iVAItZD8ionz27QJ8SbgBK7 +nNxLnO/XJWT4+hMgdcV07hynz2r7Gx40Arj9KnvOcPLmpOrc6ARc38v8msPJ +GxjscCRw/7IO4WxOXvvdEetgAg4FJXhlcfo9TPgDIQRU3Rp9mcnJv2EvsS2U +gJo0Cb8MTv4/0jqG4QQYiy1JpHPyY4bM9A4SYOlbMvk3thC9ykMrgoCWWOHR +k9hGLokH1KIIGDlMXcExzcQhTTGagA4vGds07EwNmavSMQQoGDWUp2I/WDtc +LRpLwOKadRSOB35XtQnGE2AzCZ9TOPnfEgf4Ewko7lK5yfGWtw4/l5MIePP0 +yTmO/wcx/+Ql "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.9400046276988921, + 1.0630624645176474`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.9400046276988943}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5390,21 +10869,21 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.9400046276988921, + 1.0630624645176474`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.9400046276988943}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5418,104 +10897,104 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= +1:eJwV0nk4VF0cB3B7i6Xsu+yFRDMk8nZ+9n1JC7KPmUtChSR7hd7wCm1aKUtC +SVLE2ytUkqJoExpZynZnbEmJ98wf97nP5znnfs/3nHNVaAfcGDxcXFyT+OG8 +D73etP5h5+vt73fvf+HEM4W2k0WGNMsKVOY908gxM3/LWXXLBpTCn3mTY1f6 +KwEh6lMU5maYwHFVTFIzv2U7embNMuP41DOZxqSyN8jmW92cI3Zd56Fri5R3 +iM/kXB7HYz1t8UfrP6Jw62PaHMsNq3n9sOhFjpKJ5Q7YDqx448j2L6jhboY8 +x48XxwRjygbQdvWyWHvs98ek4x6ED6KS+E+tdtikgOXYLGUYrWuVFeBYIPOg +J3V+BBlJ7afYYiuJXm09VP8dvTryyskG21n+RwlpMYGe//d0hxU2UaAqpbuS +RBWvvUwssZM0XFL3t7OQvDmvmAX2R+nuzVFlU+j4g7QswKbvDdl3JnMatY/R +qAibfYXr+r3wGWQ75vr8L+yVqrprpyhzaHcjrcEE+yy92Wat5A+04l2aojG2 +8k3PJL35H0hn879hRthbN6aRYfU/0Zh9wGcqdvCWL+1jFosoWzFjXAd7NuYw +32rNP6ghweqpFnZyvaCp1solVO4rnrUeOw+2lge1LyMZz7EJVU6/4lbLiDJu +6D6S/kUGu+zZGeYxeR4wURjZLMXp+803PieTBwTf7IkUx47Xnqu+G84L+5xi +moU5fStV1FgUfugUaMrjxu7pnHi8VMgPg5faA5e4cf/ph3tFJAXAR4NU/I1d +YeCcqzsvAHLaR/xmsVvqYrlD61dC6PlS6RHsueauL98thGD2eJv3M2wxR6G1 +cY+FoHdnd8MTbP1uSxA2FobZQd5V/2KHDNUUbN4kAg8E3jOqsQ/ytOv/JbQW +elV2bs7HHla9M5X6QxSYyoprI7FnibZVHVQxkO6up4Rh85SPqMgcEoPlzX+b +BXH6Ute5lY2LQaNWhZoX9l6L7HuvmeLgK775lxl2R2BEpPRLSXhrWMMWxO6/ +mZXhv1IKlEIPv+fDnhgvK7xlJQUK4mGlf7im0Oqowa5tjVIQx+AXZWFbpuwy +8K+Rhie0ydlO7EdFW+ZK82XhqMC2lTnYRcO/ok2iFEFmXI/Gg227+2R/5G1F +yK2xjFxYZqOJFnHr2yOKkPxEL5KNbVC0UVLZUwmqszJQP3YLzbeaf/s6cB4M +X12HPc1iHvl+Qhl4dbP37ccWD7O8X+2kCpKjg27NS2w0UrQ62DVEFSb7bKAW +u7a3U34yTRV6zK4o3Mb2dvQ5odmoCuELsjfOYxfpRLtdpKhB9/BxZjC2wdhN +dqK0Oshu7NNZjb0rSFDXfkADkjxP88IfNkLRuynufzTA0sdZnIqtnZpvRJfV +hHWTT8U0sbkKqeaJOzRBrPkrUxD7dr+X+70nmlAlxK57v8hGAnsqjsndWA+R +3hb++7BrLZ3ej9G0YIHln3r8NxsV7rzweT5RCxxGzbIisbNoA0y+y1rwlbaU +RsemJx8eV+rSAtFTIrbW2KINV7l2WmiD5LOKlauwQ6ikdr2aDlgZkykZv9hI +XvV0UsbQRki5oheRssBGDemzWgs8uvDl07sVEdjeM57dhIouNCRWpPthX2tR +1zL31YXPz6fcTbBVgx69/flBFxaoQqKsn3i/FcMaxMtN8JrJt7wLW1FeiVD2 +1Idk22PvxebZaGNxlNBvRAHNI0u9e2bZiEY/MafrTAF5nVp3M+w8tdx+f28K +8PkcbdLB5r1RefdZDAXWSMsGc2H3XBvblVtFAXv9pZnSGTY6led/VUuNCrV+ +w2vmp/H9Zjhu8hAwADuNy/STU2x0PULdtabdEMrPGo/GkGzUGY2MUoqN4e7H +g+7839hIxfeds0/oX3Bp29+Nhf1sxFh+cEfxKMD3/c2bRt+xkfR47Qppmjkc +TggPTn7JRlFU095cbUvYxccVNt2I+08utoqPWcGyQ2BSXw2+T/PIFfkdNoAU +DjDFb+H/ZzbkScVZO/CamSiIv8JGP81kXrUkOYC71GYj/Sw26uPinRoIcILw +6yN+2UlsFK5wIPuYmgsUZ5tvOHKIje7sa208l+oKgV05px8HsFHsjOy8zr4d +YOQqNFHvxkZz9tZ7nvu5wePchBxdczYy9soxG96xE3qNFGLub2ajt7JXQ1qo +u+Dyw6FqQ1U2kis50VC6YTdseCy/5C6K/y+mtqOz8B5QM+JvucjNRkrd7KDo +yT3wTTbkcPQQC1HP5VQUMt0hsL6klN7MQlf5ZjblNntAXGjVzGgRCz0w0+tJ +rfMEX8Ue67AUFsozShddLNsLe/R+921hsFDH5+I0aqYX+AwX97yxZaEapyvq +B5O9QX85oXBCm4WmwnZyhdN9wNFfrmFuDQvNWWsFkxa+sBh5Lz/pB4lKJz/9 +jNziB+cFG5KFe0nkcb040EfIH7jdmqRyW0hUfc/Bj/ekPzwXUg1LriCRsfzb +hVML/qDmluoTdIFEasygnjf7AkDevF5PPIVEQ4L7Xa4MBkBcZr951UESdWY5 +B9rspgES4bXR8CfR2Zh8wcOdNEjPFVWfdSFRw+PlhUC7QJh2LrDtNyPRGm84 +SX0UCMHbfusEbiGRssTzDoWGQMigbZ8zwNZvd5IReBwIzRnQJ4DtZup16+OT +QGiLzVhVbojzFaJfJrwIhJXpiV2zBiSS6ytf0/oxEIaYo5uyqCRS95XO854P +hMRqLomP+ng//mRpqgEdVlTzi7/QIVHJRXak8xY6/NdapF2MLdE1vV16Kx32 +BKX7HMMmrea7S7fRQa1ST9IEu0iHi7vdnA77qWvaK7RJJDIv6im2gw5/GaZ4 +XtDC5/GP4ar8MDrkFEgsJa8n0Y7nRt1BB+jAo5VxzB/7MZdJvv4hOiy4HFUG +7IuR2w2bouhgZdN0d1mTRM6eNgHDcXRQMtCTT8auU/es00mnAyqqlknTIFFW +ffy+2hI6lDvINpaokSiMcsE4ppQO6uXKNunYjreqVm0to4OiXu33MOzVF0Zu +PbxNh5MnrsQZYqdGuI49uE+HPiNv5lNVEsVrqe+vaaJDSFNTybgKiUIuvAy9 +10+H7HprPQdlEtmJjJhGMOmwoz5vNQV7QyqXMOUrHSry87lksUciDG9XDdNh +lX+n6bd1JApwzp+8O0GH5yc+z6Vge/BHhlf+osOLG8f3P1UikU2k3MEKKQa8 +jtUK3atIoqb8NPtcGQaUNLs8N8c2bZ9Wj5FjQGuloLkOtr7Gy08WSgyo3Gh3 +flGBRLIf4iw+azAgLu53XQH2uEmf1GpDBtRStrNIeRKd5in4N2gnA9ruTMoU +yuH96wnlOe1mQEPMbPBp7BSvmAiqOwNEyqs/xmHH3Hddv7yXASOGftK7sQMI +7pzzNAZU8aaJrsKmttHoTw/hfoYjC9GyJPqQoyGols2AflOT6yEyJLqDhIO/ +5zCgj6Xywws7ZXK25fYZBsiONxJO2BS7lsStFxgQZLn+sj52FlfgtNM1Brzg +uen6U5pE1gcKPsVUMGDi4S8yE1tR8e8t2+8wgMgtWE7Cnm07cIb3LgNOuazY +GIl9QxM5ZVUzIO227EdP7D99fY2FjxjAcg9I2IB931G+9HUrA1KImcU2KRJl +/OLhP9uGz3Pi24v/sGmlYwGe7Qzwri2+dx97Ld8j+aEOBnwQTvpwDTu03uP0 +wnsGMNg14VHYatrno9WHGTCdealLHfvXh4Su0REGmLXv9ZHH7kxl6Fd+x+vF +j/OIYScOGIwZTzDgekfS9WVJEvXkdfm4zDDA2S9pYy927gpRq1huAgak9WIv +YTdM93lF8WJv4O/Lwf7WVxYRzk/AUGkG7RS26X3LAtoqAq69LH8Xgz3iH/Pb +XhTPX2nl7Ym91tFKzEqcgEKh8u4d2NuMxLSQJAFeCy0H7LGzhSv2UGUJCFgv +JWLKGX/0pUpehYC7l7eOK2MTxRWtkmoE9NTbHpXjzM8++mWNBgFRz9ZoS3DW +I8SF+bQIODffPLOCMy5uEzyhT4Du2Kv1UxIkerQknjRCIWAi/drLcezhUeY5 +pgEBRdc25I5gmzTGNndvJeASCjnZiz0UekfpXyBAZKBMrA1bxCPO8KE5AU0F +zu1PsY0tbB2rLAlwHLxd+gQ7S/br0WJbApzf5b+ow67lq8zOtydgwzRF5AH2 +ICvu5kVHAs6EHj98D3vrM8l3/7jifuBeUY5Nq/o6ftKNgOr53rhS7H+uVPIc +30VAyIt14cXYXyPs9KM9CCBpfY/ysYV9pWwO7iVAItZD8ionz27QJ8SbgBK7 +nNxLnO/XJWT4+hMgdcV07hynz2r7Gx40Arj9KnvOcPLmpOrc6ARc38v8msPJ +GxjscCRw/7IO4WxOXvvdEetgAg4FJXhlcfo9TPgDIQRU3Rp9mcnJv2EvsS2U +gJo0Cb8MTv4/0jqG4QQYiy1JpHPyY4bM9A4SYOlbMvk3thC9ykMrgoCWWOHR +k9hGLokH1KIIGDlMXcExzcQhTTGagA4vGds07EwNmavSMQQoGDWUp2I/WDtc +LRpLwOKadRSOB35XtQnGE2AzCZ9TOPnfEgf4Ewko7lK5yfGWtw4/l5MIePP0 +yTmO/wcx/+Ql "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.9400046276988921, 1.0630624645176474`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.9400046276988943}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5525,7 +11004,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6152015704378887}, + AxesOrigin->{0, 0.9400046276988943}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5553,7 +11033,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9400046276988921, 1.0630624645176474`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5561,11 +11042,13 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913355426284504`*^9}, + CellChangeTimes->{3.9913355426284504`*^9, 3.993852726103683*^9}, CellLabel-> - "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] + "Out[118]=",ExpressionUUID->"ce55cba6-f385-4759-bb93-97d6037bfdc0"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", @@ -5576,7 +11059,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -5598,8 +11083,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -5625,14 +11109,1476 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918494141657047`*^9, {3.991849451432905*^9, - 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ -d4884962c12d"], + 3.9918494141657047`*^9, {3.991849451432905*^9, 3.991849451715925*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.469763265896401`*^-275\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852726240139*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"68ea828b-8fd4-480c-b9dd-4466e0ba094b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.010625951006849`*^-287\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852726247615*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"41f055ca-5297-4ad1-895b-4edcaffaf401"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0869337774015087`*^-298\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 119, 43, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852726255781*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"81de07a3-dae6-4474-917d-8ec19282b076"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 44, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938527262635927`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"7ef97648-bf87-491d-a76c-9a9ff79e6d75"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVl3c81f8Xx2WPL9mulYyUUfbFve49B5GVjOxEpCLZUVSI7CSl0pAkbWXf +iyJKlMzskcgqQpGi+N3fX5/H8/H5PB7v9znn9TrnfGS9Au18mJmYmLo3MDH9 +//lruOm1Qmo+1cPppuHVOlvqxxzCScPeszBu86orx0IdUKTVi9CbCfLJXwoi +LBDCbR71sPTmAXpXU5wsbEDgu1jmn55i8O+arxOy8IRP1daBiz11gFPsSwrm +QWCq8HVooacDaL/smk+axMCfHt2s+Z5RcHM5uG2ImAH1xvfz2/N+Qi3947pe +Xi5IfaJPeKn+gwBSbs1vqQcg7O/xiMOYBV+txaQXvS8EZY67DTZOLMhpyG/D +OlkImDcxmn2UBbOyuNp2MT8D/95jkqqXWXDz0pXBXL1n8HrnqTSbcRa0LvD5 +kp3/DMKkswOyE1lxkdN7qMXgOXS2dGiqNLPhmUmd+laeIsjUMK2yduBENUuu +1PsZxaA24LKLcoQT+yT6tpy8UQzN8cc6VaI4ceB0G4txQTGw917+xnmHE8vU +i6Nqqooh6syYZP0MJ4rld/xznSiGg+9jTunGc+EmlbJgcVIJEH2qKJtLuPHf +lV0+OQMl0MnX2sTXwI3PEjkhZLwEgmijDv96ubFzUmaFMlcCj3i4A/rXuDFe +7xzXC+ZSkCl2zrlswYOvmd8YuSiVAuf60hrnKA/qGrEPcxwvhb5r6rUL/LzI +I6fdrspeBtc7H28M38KL92WLJEo3loEr31aPFX1efKJ3NVZDvAwG46TXmL15 +cV3Z7xafahmMBHAbCJfx4myK71tb2zKY2vmlgujCh09tl1r/ZJfB7/mrz6Lu +bMSslNe3X8mXA11FaH29bCNmLPEQOVXLIfJQunX8u42ox1tdsFO7HP4OxM+m +/dyIE7q/+W/vLIeYMZpIqxw/7rq0MtR3sBziW+7Zj4Tx48wFLqlDd8shNT+6 +lVlcACtuw9s2QgVYaPsKisgLoLqx5cVnMhXA+drOYet2AZwzTg6KV6yA+LEt +A5aGAhhhpOrPr10Bp+SaJy77CmBQSpxZkXUFBOQS1hQrBXDMeEZN9GwF2N4s +UrV0E8Rgyeplv88VwK96I9DdRxDfnj5fzTNZAS1V8cWBgYK4QV8/I2+Gcf6A +k97lOEG0/CTtU7xcAUYSa8ZDjwVx0S7xgysvDbSvWbgF/hVE16fKP1qINBC7 +PJZ86ZYQxjYaF5mdpQFBpSz+d4EQ6nUdEzmQQAOJuoRo9+dCaJ8+9SUohQab +5pWOb60XwvXLpk3hmTTYYhXkWTUlhA2nF2ol82igxfqPOKYljNIKKqbvaxjn +3WjRMKMIY0wbqd21ngZEzVzVp6bCOCeZ1/O5gQYkT2O5CBdhlLol49b9gQaG +1cm8PNHCqGF0fL/LAA32hIl+0XwnjG2PmkMaF2lgwzM1fLVTGDdyF5m1LdPA +Lo/e93dQGClrDwpbV2jg2LavtWFOGDOf3lUvY6KDu+rdSlcREWyCEKLkf3Q4 ++kXt4llPEZy2fnhvrywd/KM2pE36iqC5w2ntbnk6BAh2JliFiuBl50L/PYp0 +CMHwU6IJIri2QWRkmwodTt6sPvzosQji+hHWE9p0SNxrTu34JYLPdm0YSjKh +g0RpiwTzBlGcYDH1e76LDoVCe5c1eETR367AqsWcDt0d+59flBHFJpt5idnd +dFCwDZOzNRPFWJK/YoUDHWjP/6zF2ImipOTWexed6GDFHz3wfJ8ojj5mSvdy +oUNoa/Jl/mBRdPz778HkPjrU7b7N3pYtillMI7bR3nRwfKowtn5XFJ3Vtgby ++tDh63+PatQKRbHZa/W/zEN0EGguPXGhThR/93zrOuNLh3wVkkNNsyjquk+w +T/rRQS+1RmOuWxQbDyq/NvGng6fFu6/W3xjfP0qcmwigw+LDPW/PLIni065H +3kpBjPi5uu4Wrouik61KkFcwI97GT/v4hMXwh9+l/bRQOvwzXWr5YCCG7187 +TP2MoENGQeTjf6ZieGfnpfBvJxjxszMlbbcVw1f9juV9JxnxvuE2PO8jhiw9 +R5yuR9FhRCFD+kWgGPImYI3/KUb88SIrMyfF0Kbz+bjOaTpcN95cYpUuhr1P +CqKenKHDjrv3Lpy6JoZfq4YXXKIZ+WFW8X+SJ4ZDB4W11xjs6PXcbPCJGOrc +fWqSHUOH6Vc6W/6rEEN6jIiySiwdTslWbTB4JYZ7+Ku/lDCYPxaHj74Xw6Uj +oie1zjLyg5ZX338Sw5i3nQZicXRovt0WujothltH9UOjGOy57mCjsiiGmuMu +F7sZvLh/QNVtTQzfPHt1fVs8I18vPblSOQl4hp31UjCDJTZNjFcKEtA6nXa6 +iMGFp4/WfZUioMvbqP1TDDYams+R2EpAGsecnug5hn4MwqMsNAjoFk7jJzPY +7+aqUySZgP1scdOODP63GqP9yISAuoFrDb4MznBjF+jfQ8B7qp+ehDJYoSp1 +lsuVgB5hwzlhDKZJCLzTP0hAe63KXH8GW0VeKfANIOAah065G4NH+iTjsk8Q +UJAiOmbI4FD9Ox5NZwlo9lpJRYbBFrl8i5ZpBHxUvvPlL8Z95ThOJbVkETDW +PfFqA4P/HJuWsr1NwKyDQpXpDG776FjU+YCAL+Z5lfYw+AH5tYljMQHFbt6e +5GBwdJ5Gf28VAc1DFn/TGPlz5Lod4PaGgOUzZE8vBu8I+o9luIWAxd8fbGZl +MFvPyauevQQsehVMyWHUZ5AyqTL2mYDnBNro6gxO5anbO7VIwObHO4epjHp6 +hahN+60RcJfYp7RKRv1JfTdPz3KIIydJ7MEOBk8VRBT8kBDHft/zGkwMvdTw +jpOOK4hjl4BfgTtDX1fC7FqXt4ujwW3ZrBKG/kyMtv/+i+J47OTZWTOGPqUe +Xk+LthDHbx5f3JMY+l3cyCnLvFccTzhlOtRG0iFvaNSc47A4Og8emhJn6P3k +Tpvh5CBxtEvwSCEz/GDz+EXIf5Hi2BNi9sqB4Zf1E9duCJwXR972otXQ43TY +J2w9K1kijqZm6yzODL9pRVXF5lSLY9HjmEIqw4/co9tEZRvEkedzK9emQDrQ +n7GAYp84TpkwfW5g+FnUkp6hvi6OaTuOHn91mA6zRYpbSjglsE6DkzuA0R9e +Ey7TdQQlsH6B31+I0T9CJwJGSVskMJ15psDMi1G/WAVtE0sJFE8S3u/O6D/3 +py42vt0rgV/Nd71uc6XDmT3r+yz2S6CyooEIhdGvtkv3n9sTLIHbfKwSmBzp +kEK70ONyVQILlV/xau2hw865lciAMQms3JHFZIGMfJhdVn41I4G/X3RNOFEZ +frizvV/olwRy89bpeRjQgbDXU5/OKYk8IbDDVY8OM7Q3yyw7JPGrEK1hgzod +Lp3NCMs+IYnfb9nMSGyiQ+OAksJMrCTq7P5i9kqSDn+16zupqZKYVPLE6oA4 +HQ5NLml+uSWJQ7u5XNKFGXqwclvYUS+JkzH5cze56TAqohjwmlcKby1dDLqw +xJiXgTXSYmJS2GW8wtPxgwZWjc4ffDdLoZ8YMY1vngblkamqG7WkMMe90+L4 +VxqkfJr/6uIshToCtB0rwzTQfFh1eC5PCi9fzOEYZ8y/WAPbAxJ60jjbasLt +xpinZvtzfugaSeOP7yxyV9JpwBfzLc7BShq3X7C+844xf2/WnyvI8JTGhcys +bzJxNKBZVH5jT5bGGIVHRqdCaTDvLB/+s08ao/s/5zDZ02D/8aWU5qhNOF32 +KtGdMf9JhdmlZ2pkkIXlQPK1oArY2dPy73ujDEZWPBMpPloB1kysuzw6ZPCS +Qqvg20MV4G0X0AfjMvh27Xrw2L4KMI2SjY5h24xjZBJOmFVAkMyvu4Yqm1Ey +NEicsLkCXh++PVsfzuDx9mSr9+Xg/3shppFXFm0dv+gti5TDHxX+4e0Ocji1 +tXL3Zc9SMHj8JPfKFXksFnFIZ04phgVBC0/HOgX03PNBj6X2OXxJ83QM4VDE +OJNugbkrT8F8LsJ8nLgVWVJFQzRZH8GMN2doafQ27MouoFbaFTD2dzHmxDol +7M9ouiT3Mw8EPyimP59TRnWj00pxgox9PemZDZGoiiYU9+DDadfhmoo+v9Dh +7VgawL7u+iML3kkY6vy8uAP7G7ujDrJkAkmqLkOtWw1THV7MNlamwai8wvB0 +vxqmHSsvG7mTBskqCSr5n9TQJLx3C1dyGvSSLBoI02qo8ObjZKpTGkS4dKxu ++KuGJ9SD7JyXUsHVMljrK786+iS+KebQToUrSQz7EtUxqfu809UXycDHkhd2 +4Kw6tj+uCVBgSgT2PzX2C/HqKEvkrAufToC170OasYnq2MvM2dffkQBz/eIL +uWnqeElWWKP3XgK0FV88NnJFHXtYmO8UWCVAplfsIY/H6ng9skQr9dY5EK3z +dHb/qI6CP9m19aziYVOsjIGLogaWUjN/GQ3EQmEop9zQNg309e1qEW+KBeqh +BY4DKhpY+GehfL08Ftwt6zuPqGsg/9Z7Wb8zY+GmyOGjJ0gauMvA/t4ty1gQ +f1R4/aq1BqpPKLQ+rYkB4U7Kn65wDazdxn/e2ScauLbsK7d7q4Fvhooc7sZH +gZ84WDxu0sC5ydi91r5R8I5XbpilWQMXfYXmN1pHQdqvSbayNg3c7qnb2C0W +BXyNoQ5i/Rp4EdiTgp9EguDR1MWBGQ3UsUy839p3EqSKKjV9BDXx0CBfX/vO +E7CDIv4swl0TPe4VCAm4HIcSed9VZk9NdOg2lpMxPA563PRd6V6aqHM4dMFY +6TgY9TiP5B/WRLfMDxntf8LAMfiaQEewJgqGWm5cvREG0ffEwlQTNPHD0eY/ +J76EQhuvqP7nQk306Sf8eX4uBBwWfc75F2liNFOF+ImgEOjvL2tfLtFEjVjn +NXu3EPhy38GPj66JT1iDusw1QuC3YdYNcr0msrY+41QdDgbZcOG1rB5N1P/V +wvKCHAwhw4L1FkxaOJx4/nQBWxA0Nux78YhZC6nNht92TwXCpmcFFdxsWqjf +fPlF4JtAeBdNevKOSwsTweqBSEwgyMl6ZVkIaWEA37fFyV8B0O5ddNhCUQsf +mJ6Lvfj1GKhP7/nPwkoL99f1idtPH4WE9mz2R9ZamNJnt9vo3VEYpI8xcdtq +oevL9uA9j49CUkrEUpODFr4QdNCsP3YURlRuD5t7aGFVUa8g36IfZAR8f24e +ooXtzLfPSLP7wdzPNAfza1q4puaQkABHYLD3juOt61oYQrHNyVQ4Au9elDst +3NTC8oSvrTSuI5CfOOKSfUcL2a1u7bD/eBhcJbX3Tz/SQi7HhrwXfofhjdHA +oeQXWnj8+91mp5uH4MZFpRNNo1r4uWTZW1TQB5LCqSelx7Uwr8WeFVYOQrib +fWTwpBb+23DGNHr0INhsOX1KfEYLzQo/e5uWHAR2eluM75IW3pPP+T7jcBCC +RyKSuTi18e/trrqU296wS63huvl2bRS5HBqcaOwFzuxme9vUtDE78MJ0uaoX ++A018TppauNQe2HkuogXpKd+iDmoq42t12fSBqYOQPfkx0PRhtro5q60XH3h +ABzMHdMsc9DGMRNJEBj1hLMCG95vPqONtJG4pnfqHnB56mz8/Rht5PfUHxTn +8oCCGlbqjjhtLL61ei/r8354d4yziJykjePS+eWCl/aDwLuNVx0ztbFc8Spp +0293yD27yTutQBvZCIezHd/tg5c/yavLLdqYobX0QT3dFe40V3jZt2uj7dIn +c+EAV4i/p/WusFMbp7cp2kpYu4K5k0q2T682gll6/Hk+V/hYKaHb+Vkb2XUH +RXkvusDX2D8hhYva+PHH31mHm84gyl/x9aCEDp7fHdhAeu8If6Y07WqldHBS +i5yu/cwRBl8V0iVldPCAPIfM7kuOcCe0IKlDXgdnOZ9u63dzBNWeLEXcroO/ +3/6t8vzuAEY5YV6MaY1KJdzyHOIOEKCq2d/uo4PCF8h8y3H2cHxZYsXjiA7K +HUvWTfK1h1N1LBLf/XTwrNdMtP4ee0h17nLhDtLBVTGtqVUJe3gQf6LPKFIH +1wz9wv6W2MHo4MveknQdDH+sXNv6zRYcz1v2ZFXoYFKHdulwsA24O2svy1fq +YJH84Iy2mw0clJcWK67WQSebFbP7O20glP7dseWVDh5h//Hjk5gNZIxf7GZv +1sGgqcjz5Og98I7S2xUxooOhgxR+723WQPl+8KMLFxGfGpMbh+9YgmjVrrxq +HiLGMUcJF5+2hO+JykEyfET8SwjXee5iCTmy8zzjgkQ85qdhoipoCWt7o4yD +pIi4GF3WtumcBdRUXSxOUCOiUSW5/G2IORgmv8wocSAi87+UNSb/XSDheGe/ +qDMRF1I9hQatdsEPuXjVk65E1Pl16cXg9l2QV23eSPUg4o4xKy3reVNgnv+4 +3nSEiH6pbHtnw02h3vFbwEgUEceYI11WUkzARIGwmzePiJTRjfUmH4yhdPaN +7MF8Isbb8i/wlRiDQkXor8oCIo5YdlQsXzMGVovW20ceE9GBHJ281ccY6gIT +ftSXEnGSRz7775oRUKsWr0a+JWLuFpkCDz0jINq1j07OENFk5yay0iuEAsno +CuocEdM2fHhS8AhBZFw1LWuBiD5CzC/gMsJiRJKO8S8iQhWH4evDCMW3ICln +nYhXvB9nCfEjqE0/3e4gqIspcb3Hvd9TYVtMyok6XV08YCZ+YJeZAVST77FZ +kXRR36DgU8QmA7BZrsnsMtBFz097VkcWyXAiYOnJlKEu2h0y/OOWR4bGfZ6f ++ax0cUW89OHsOgmO6BMt3Dx1MZWgmm7yRh8e/vgsuZikizlPXenMEbpALfz7 +4HSqLn5TSqh/a68LHb5iRI50XRRXsvZ5oa4LKyNWNhKXdPGglGCM/jciWLRW +xOMtXdytXpUZ4EWEr4/Pz6YV6eItY5nVay46oOyjX7OlXxc99mPLAV8tuCBn +vRI3qIurR2u063ZrweInL53RYV1sSglpN9XUgpeuaY9zxnQx//scc/WqJtjZ +fLoqNquLy+EbC2wzNOEk+VwQF5MeznltjGCr1YBGgXbZ2S16WPxpWSlMTx22 +t47vs9ymh04eyoM8suqQmbZy9aGyHta80a+t41KHfRwKfIfU9HDkwepGyQo1 +mPsbvjKsp4edw/9xK25QA9Epqc42Sz28UL7oEJW7HXxeHokvDdZDnYO6Kprc +KvD92NcIkzA9FL6/ctrhkzKckPY/2h2uhx0Ur/KKUmVIORVo9ztKD/fqLifr +eirDc1L4ZoMEPdQnWRRKVirB3/K46vrrenji8uWyHSe3QeaznMWOej3MnZPW +cZFTBCmPzVPeDXo4WjPp/HJtC9zjyxtYbNTDhQTLu84DW4B27F6daIse+n49 +m6qStQWGVJ5kuPbqoYvjaJ8RzxbY9oCuOjqjhxNPV9lWmBSgJvfjwQURfbxd +U2HznF8ORqxkPcIJ+ji8IDn/4qcsMP055rIqoY9CPvalv7plwciWw5ptsz6+ +En5aO3VLFho2kHTFlfXxdHlieuN2WWj2us1lSNXHxJ4GPhOHzdCv4FeYcUgf +M6ljQp5x0rDaVv5AxFcf26x5Ao7aS4PUaZa714/qo7dZ69EaeWlw77p5NT9I +Hx1fRtXAGykYOdcaQ4vUxyjfik9XeKRgckLbfiRdHx2ys53M70nA4oP1ZbUK +fXxRd0VfmZsAE46mucl0fTwyZDdDHBeDXtbzZmNV+jg2GPjkRK0YVHlKZF+p +1Uf/eTnK9QgxOEvQIf1r0keLwab/rKdEgT/J79S7QX38oXyjw6BTBFQPdzH5 +MJPwbfHe+34fhGCTiNTDl6wkpLO8ibpaKAT89V62BA7G+xe3dBcuCMHPTfN3 +3vOQcDeUhCnbC0FlN7expggJCcIhZ54OCIKZKZ5b30rCwNUfKXWLAuC95THX +9d0kbD3Q+vCmCT9Evtnvp2hDQvm4NGKrEj9k+Ai+L7YjYYxtgdUOPn6ovncy +7b0TCV8qaUmOFm4EYUWzjf8OkFDLKzeepZcPGhTHhT3DSVj6REdOncQLyttk +NiveJqFGZlXuRxI3YGNHTPEdElqPjSX68nKD45GEz9R8EjbkbN1tNsIFcQ9m +85wekrB53L3scwIXDG6r3pJcQkLqeeWliB5OSFdyUZl5S8ISgdqRznMcsKB8 +iVg8T8IlMb+LYcJs0NuMJkI/SXhYlnb22wIr1AZ8tw9bIiEmaD6/2soK6cXm +wcQVEo6dUr2QnsoKyiSmJ5UsZLRmc5H5zsYKXubHZOtFyaj2+26fFisLfDy8 +67+PBmR8WPbj+aTCBqjiWpLQATLujcl6dZJzA+Q9zlO6YkhGVsbupTfDBEFz +/0ydTcl4O/5ojH4pE/BGlMYO7iHj2xaQNDVlAtME2eUvXmTkojxruPNljUrL +X/28lETGhVIjNr72VSrROGzZIpWM6RL1783vrlLLPs/8l3uejMbrrnebj69S +izcN61pkkrGg8NzXe5Kr1CfXas/n3CBj5beoiht+K9TctHP6uwrJSBkq+GMg +8oeaHLbx4rVOMt51yDEtv/6LyimUVDDbRUYZlb4K0eO/qAlFTNVGvWQUUchy +Lt7zixr/fWFiZpCMYsKDzdlsv6hnjnw0MJwgo91WZ8LmsCVqyL7sqenfZLzx +cGdordsi1XWnPJI3GWBk09oSwf4H9d9HTr76zQa4Tbm2OE/jBzXX5/uAhbwB +atx6tPMQ/w/qRAI9wnWbAXr3s4ZktyxQQ5r2PDupaYC9k7E993YvUFOsT22i +mRpg2PxiCYfjPLXSueuvdqAB0m/9EFGQnKW6T1e+qw42wNybtf6O4zNUpsjc +azvDDFCBzMY5+WyGanrjqPbekwYYp/8+d7PpDLVjaIN/aJwBtlxMyv0S/o36 +1WvHQNFVxn2kLJZVp6epkscS6TtqDdD47/Wirv8mqenrh3RS6wxwXHRmT9aX +CSpzpmnR5GsDVDfel3+1eoL6tZztYW6TATbm2rZ5HZugVjLFXxPsNEDD4t0r +HB3jVNfLMRG/xg1wR8q2+zr3v1CvVZ3UeclDwUSPCLlTZ0ap/1m7FEnwUVCT +JZ/no/soNWZEb3sEPwVv766r9aKMUo+w/VZQF6GgjduEtvy/z1TdPeHCeZso +KJ++4Zti9Gdq92jIz3MaFLxi8c55Pm2EKsLtX7TbiYJyIzKppdeHqPnGpyPn +XSgoMiJzudJjiKp5Ot340j4KZvj+8lHfMkS1nn/e1XuAgurF3SZHigapCd1L +f7z9KZhv9dDvZ8sA9XdetFFkLAUHxPVEWqX7qQmDGTzS8RQ8kkti/B/3UYVF +8z7WJFDw5P0LtmfL+qjqya8PsaVRsFUu2KzOuo/qG8iVmnGFgvMNdzU6zvVS ++8mXOgseU7DteXP6dbYe6pHj+TfNCymYouiVtqOnm/qrsMxn5jkFq6qSyyUf +dlMF5XqXNcopaBzJw72+u5tqySkt9aKWgq/nlsm9N7qo1R8LDnZ2UVDn9eIj +q10fqRZ8tO3hvRRck1UbUNr0kdq7q+kXYYCCMYrNVxyXOqmLld+S9o9Q0JVp +x9Gb+Z3U7XfUn05/pWC3XvFAE3sntbrfMDxtloKDQ9QSoZEOqoWwPajNU7Dk +kty9B/QO6qHE4+1hSxT8qeFSVHSsg7pYm3Bd7DcF3QSfVyqYdVDPrlz1rlyh +oC+Hd/WIXAeVX/uhqvs/Ck6HGaiP/2un5hyrXFpfZ9R3cjZDo6+d+j9IGjna + + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81f8Xx2WPL9mulYyUUfbFve49B5GVjOxEpCLZUVSI7CSl0pAkbWXf +iyJKlMzskcgqQpGi+N3fX5/H8/H5PB7v9znn9TrnfGS9Au18mJmYmLo3MDH9 +//lruOm1Qmo+1cPppuHVOlvqxxzCScPeszBu86orx0IdUKTVi9CbCfLJXwoi +LBDCbR71sPTmAXpXU5wsbEDgu1jmn55i8O+arxOy8IRP1daBiz11gFPsSwrm +QWCq8HVooacDaL/smk+axMCfHt2s+Z5RcHM5uG2ImAH1xvfz2/N+Qi3947pe +Xi5IfaJPeKn+gwBSbs1vqQcg7O/xiMOYBV+txaQXvS8EZY67DTZOLMhpyG/D +OlkImDcxmn2UBbOyuNp2MT8D/95jkqqXWXDz0pXBXL1n8HrnqTSbcRa0LvD5 +kp3/DMKkswOyE1lxkdN7qMXgOXS2dGiqNLPhmUmd+laeIsjUMK2yduBENUuu +1PsZxaA24LKLcoQT+yT6tpy8UQzN8cc6VaI4ceB0G4txQTGw917+xnmHE8vU +i6Nqqooh6syYZP0MJ4rld/xznSiGg+9jTunGc+EmlbJgcVIJEH2qKJtLuPHf +lV0+OQMl0MnX2sTXwI3PEjkhZLwEgmijDv96ubFzUmaFMlcCj3i4A/rXuDFe +7xzXC+ZSkCl2zrlswYOvmd8YuSiVAuf60hrnKA/qGrEPcxwvhb5r6rUL/LzI +I6fdrspeBtc7H28M38KL92WLJEo3loEr31aPFX1efKJ3NVZDvAwG46TXmL15 +cV3Z7xafahmMBHAbCJfx4myK71tb2zKY2vmlgujCh09tl1r/ZJfB7/mrz6Lu +bMSslNe3X8mXA11FaH29bCNmLPEQOVXLIfJQunX8u42ox1tdsFO7HP4OxM+m +/dyIE7q/+W/vLIeYMZpIqxw/7rq0MtR3sBziW+7Zj4Tx48wFLqlDd8shNT+6 +lVlcACtuw9s2QgVYaPsKisgLoLqx5cVnMhXA+drOYet2AZwzTg6KV6yA+LEt +A5aGAhhhpOrPr10Bp+SaJy77CmBQSpxZkXUFBOQS1hQrBXDMeEZN9GwF2N4s +UrV0E8Rgyeplv88VwK96I9DdRxDfnj5fzTNZAS1V8cWBgYK4QV8/I2+Gcf6A +k97lOEG0/CTtU7xcAUYSa8ZDjwVx0S7xgysvDbSvWbgF/hVE16fKP1qINBC7 +PJZ86ZYQxjYaF5mdpQFBpSz+d4EQ6nUdEzmQQAOJuoRo9+dCaJ8+9SUohQab +5pWOb60XwvXLpk3hmTTYYhXkWTUlhA2nF2ol82igxfqPOKYljNIKKqbvaxjn +3WjRMKMIY0wbqd21ngZEzVzVp6bCOCeZ1/O5gQYkT2O5CBdhlLol49b9gQaG +1cm8PNHCqGF0fL/LAA32hIl+0XwnjG2PmkMaF2lgwzM1fLVTGDdyF5m1LdPA +Lo/e93dQGClrDwpbV2jg2LavtWFOGDOf3lUvY6KDu+rdSlcREWyCEKLkf3Q4 ++kXt4llPEZy2fnhvrywd/KM2pE36iqC5w2ntbnk6BAh2JliFiuBl50L/PYp0 +CMHwU6IJIri2QWRkmwodTt6sPvzosQji+hHWE9p0SNxrTu34JYLPdm0YSjKh +g0RpiwTzBlGcYDH1e76LDoVCe5c1eETR367AqsWcDt0d+59flBHFJpt5idnd +dFCwDZOzNRPFWJK/YoUDHWjP/6zF2ImipOTWexed6GDFHz3wfJ8ojj5mSvdy +oUNoa/Jl/mBRdPz778HkPjrU7b7N3pYtillMI7bR3nRwfKowtn5XFJ3Vtgby ++tDh63+PatQKRbHZa/W/zEN0EGguPXGhThR/93zrOuNLh3wVkkNNsyjquk+w +T/rRQS+1RmOuWxQbDyq/NvGng6fFu6/W3xjfP0qcmwigw+LDPW/PLIni065H +3kpBjPi5uu4Wrouik61KkFcwI97GT/v4hMXwh9+l/bRQOvwzXWr5YCCG7187 +TP2MoENGQeTjf6ZieGfnpfBvJxjxszMlbbcVw1f9juV9JxnxvuE2PO8jhiw9 +R5yuR9FhRCFD+kWgGPImYI3/KUb88SIrMyfF0Kbz+bjOaTpcN95cYpUuhr1P +CqKenKHDjrv3Lpy6JoZfq4YXXKIZ+WFW8X+SJ4ZDB4W11xjs6PXcbPCJGOrc +fWqSHUOH6Vc6W/6rEEN6jIiySiwdTslWbTB4JYZ7+Ku/lDCYPxaHj74Xw6Uj +oie1zjLyg5ZX338Sw5i3nQZicXRovt0WujothltH9UOjGOy57mCjsiiGmuMu +F7sZvLh/QNVtTQzfPHt1fVs8I18vPblSOQl4hp31UjCDJTZNjFcKEtA6nXa6 +iMGFp4/WfZUioMvbqP1TDDYams+R2EpAGsecnug5hn4MwqMsNAjoFk7jJzPY +7+aqUySZgP1scdOODP63GqP9yISAuoFrDb4MznBjF+jfQ8B7qp+ehDJYoSp1 +lsuVgB5hwzlhDKZJCLzTP0hAe63KXH8GW0VeKfANIOAah065G4NH+iTjsk8Q +UJAiOmbI4FD9Ox5NZwlo9lpJRYbBFrl8i5ZpBHxUvvPlL8Z95ThOJbVkETDW +PfFqA4P/HJuWsr1NwKyDQpXpDG776FjU+YCAL+Z5lfYw+AH5tYljMQHFbt6e +5GBwdJ5Gf28VAc1DFn/TGPlz5Lod4PaGgOUzZE8vBu8I+o9luIWAxd8fbGZl +MFvPyauevQQsehVMyWHUZ5AyqTL2mYDnBNro6gxO5anbO7VIwObHO4epjHp6 +hahN+60RcJfYp7RKRv1JfTdPz3KIIydJ7MEOBk8VRBT8kBDHft/zGkwMvdTw +jpOOK4hjl4BfgTtDX1fC7FqXt4ujwW3ZrBKG/kyMtv/+i+J47OTZWTOGPqUe +Xk+LthDHbx5f3JMY+l3cyCnLvFccTzhlOtRG0iFvaNSc47A4Og8emhJn6P3k +Tpvh5CBxtEvwSCEz/GDz+EXIf5Hi2BNi9sqB4Zf1E9duCJwXR972otXQ43TY +J2w9K1kijqZm6yzODL9pRVXF5lSLY9HjmEIqw4/co9tEZRvEkedzK9emQDrQ +n7GAYp84TpkwfW5g+FnUkp6hvi6OaTuOHn91mA6zRYpbSjglsE6DkzuA0R9e +Ey7TdQQlsH6B31+I0T9CJwJGSVskMJ15psDMi1G/WAVtE0sJFE8S3u/O6D/3 +py42vt0rgV/Nd71uc6XDmT3r+yz2S6CyooEIhdGvtkv3n9sTLIHbfKwSmBzp +kEK70ONyVQILlV/xau2hw865lciAMQms3JHFZIGMfJhdVn41I4G/X3RNOFEZ +frizvV/olwRy89bpeRjQgbDXU5/OKYk8IbDDVY8OM7Q3yyw7JPGrEK1hgzod +Lp3NCMs+IYnfb9nMSGyiQ+OAksJMrCTq7P5i9kqSDn+16zupqZKYVPLE6oA4 +HQ5NLml+uSWJQ7u5XNKFGXqwclvYUS+JkzH5cze56TAqohjwmlcKby1dDLqw +xJiXgTXSYmJS2GW8wtPxgwZWjc4ffDdLoZ8YMY1vngblkamqG7WkMMe90+L4 +VxqkfJr/6uIshToCtB0rwzTQfFh1eC5PCi9fzOEYZ8y/WAPbAxJ60jjbasLt +xpinZvtzfugaSeOP7yxyV9JpwBfzLc7BShq3X7C+844xf2/WnyvI8JTGhcys +bzJxNKBZVH5jT5bGGIVHRqdCaTDvLB/+s08ao/s/5zDZ02D/8aWU5qhNOF32 +KtGdMf9JhdmlZ2pkkIXlQPK1oArY2dPy73ujDEZWPBMpPloB1kysuzw6ZPCS +Qqvg20MV4G0X0AfjMvh27Xrw2L4KMI2SjY5h24xjZBJOmFVAkMyvu4Yqm1Ey +NEicsLkCXh++PVsfzuDx9mSr9+Xg/3shppFXFm0dv+gti5TDHxX+4e0Ocji1 +tXL3Zc9SMHj8JPfKFXksFnFIZ04phgVBC0/HOgX03PNBj6X2OXxJ83QM4VDE +OJNugbkrT8F8LsJ8nLgVWVJFQzRZH8GMN2doafQ27MouoFbaFTD2dzHmxDol +7M9ouiT3Mw8EPyimP59TRnWj00pxgox9PemZDZGoiiYU9+DDadfhmoo+v9Dh +7VgawL7u+iML3kkY6vy8uAP7G7ujDrJkAkmqLkOtWw1THV7MNlamwai8wvB0 +vxqmHSsvG7mTBskqCSr5n9TQJLx3C1dyGvSSLBoI02qo8ObjZKpTGkS4dKxu ++KuGJ9SD7JyXUsHVMljrK786+iS+KebQToUrSQz7EtUxqfu809UXycDHkhd2 +4Kw6tj+uCVBgSgT2PzX2C/HqKEvkrAufToC170OasYnq2MvM2dffkQBz/eIL +uWnqeElWWKP3XgK0FV88NnJFHXtYmO8UWCVAplfsIY/H6ng9skQr9dY5EK3z +dHb/qI6CP9m19aziYVOsjIGLogaWUjN/GQ3EQmEop9zQNg309e1qEW+KBeqh +BY4DKhpY+GehfL08Ftwt6zuPqGsg/9Z7Wb8zY+GmyOGjJ0gauMvA/t4ty1gQ +f1R4/aq1BqpPKLQ+rYkB4U7Kn65wDazdxn/e2ScauLbsK7d7q4Fvhooc7sZH +gZ84WDxu0sC5ydi91r5R8I5XbpilWQMXfYXmN1pHQdqvSbayNg3c7qnb2C0W +BXyNoQ5i/Rp4EdiTgp9EguDR1MWBGQ3UsUy839p3EqSKKjV9BDXx0CBfX/vO +E7CDIv4swl0TPe4VCAm4HIcSed9VZk9NdOg2lpMxPA563PRd6V6aqHM4dMFY +6TgY9TiP5B/WRLfMDxntf8LAMfiaQEewJgqGWm5cvREG0ffEwlQTNPHD0eY/ +J76EQhuvqP7nQk306Sf8eX4uBBwWfc75F2liNFOF+ImgEOjvL2tfLtFEjVjn +NXu3EPhy38GPj66JT1iDusw1QuC3YdYNcr0msrY+41QdDgbZcOG1rB5N1P/V +wvKCHAwhw4L1FkxaOJx4/nQBWxA0Nux78YhZC6nNht92TwXCpmcFFdxsWqjf +fPlF4JtAeBdNevKOSwsTweqBSEwgyMl6ZVkIaWEA37fFyV8B0O5ddNhCUQsf +mJ6Lvfj1GKhP7/nPwkoL99f1idtPH4WE9mz2R9ZamNJnt9vo3VEYpI8xcdtq +oevL9uA9j49CUkrEUpODFr4QdNCsP3YURlRuD5t7aGFVUa8g36IfZAR8f24e +ooXtzLfPSLP7wdzPNAfza1q4puaQkABHYLD3juOt61oYQrHNyVQ4Au9elDst +3NTC8oSvrTSuI5CfOOKSfUcL2a1u7bD/eBhcJbX3Tz/SQi7HhrwXfofhjdHA +oeQXWnj8+91mp5uH4MZFpRNNo1r4uWTZW1TQB5LCqSelx7Uwr8WeFVYOQrib +fWTwpBb+23DGNHr0INhsOX1KfEYLzQo/e5uWHAR2eluM75IW3pPP+T7jcBCC +RyKSuTi18e/trrqU296wS63huvl2bRS5HBqcaOwFzuxme9vUtDE78MJ0uaoX ++A018TppauNQe2HkuogXpKd+iDmoq42t12fSBqYOQPfkx0PRhtro5q60XH3h +ABzMHdMsc9DGMRNJEBj1hLMCG95vPqONtJG4pnfqHnB56mz8/Rht5PfUHxTn +8oCCGlbqjjhtLL61ei/r8354d4yziJykjePS+eWCl/aDwLuNVx0ztbFc8Spp +0293yD27yTutQBvZCIezHd/tg5c/yavLLdqYobX0QT3dFe40V3jZt2uj7dIn +c+EAV4i/p/WusFMbp7cp2kpYu4K5k0q2T682gll6/Hk+V/hYKaHb+Vkb2XUH +RXkvusDX2D8hhYva+PHH31mHm84gyl/x9aCEDp7fHdhAeu8If6Y07WqldHBS +i5yu/cwRBl8V0iVldPCAPIfM7kuOcCe0IKlDXgdnOZ9u63dzBNWeLEXcroO/ +3/6t8vzuAEY5YV6MaY1KJdzyHOIOEKCq2d/uo4PCF8h8y3H2cHxZYsXjiA7K +HUvWTfK1h1N1LBLf/XTwrNdMtP4ee0h17nLhDtLBVTGtqVUJe3gQf6LPKFIH +1wz9wv6W2MHo4MveknQdDH+sXNv6zRYcz1v2ZFXoYFKHdulwsA24O2svy1fq +YJH84Iy2mw0clJcWK67WQSebFbP7O20glP7dseWVDh5h//Hjk5gNZIxf7GZv +1sGgqcjz5Og98I7S2xUxooOhgxR+723WQPl+8KMLFxGfGpMbh+9YgmjVrrxq +HiLGMUcJF5+2hO+JykEyfET8SwjXee5iCTmy8zzjgkQ85qdhoipoCWt7o4yD +pIi4GF3WtumcBdRUXSxOUCOiUSW5/G2IORgmv8wocSAi87+UNSb/XSDheGe/ +qDMRF1I9hQatdsEPuXjVk65E1Pl16cXg9l2QV23eSPUg4o4xKy3reVNgnv+4 +3nSEiH6pbHtnw02h3vFbwEgUEceYI11WUkzARIGwmzePiJTRjfUmH4yhdPaN +7MF8Isbb8i/wlRiDQkXor8oCIo5YdlQsXzMGVovW20ceE9GBHJ281ccY6gIT +ftSXEnGSRz7775oRUKsWr0a+JWLuFpkCDz0jINq1j07OENFk5yay0iuEAsno +CuocEdM2fHhS8AhBZFw1LWuBiD5CzC/gMsJiRJKO8S8iQhWH4evDCMW3ICln +nYhXvB9nCfEjqE0/3e4gqIspcb3Hvd9TYVtMyok6XV08YCZ+YJeZAVST77FZ +kXRR36DgU8QmA7BZrsnsMtBFz097VkcWyXAiYOnJlKEu2h0y/OOWR4bGfZ6f ++ax0cUW89OHsOgmO6BMt3Dx1MZWgmm7yRh8e/vgsuZikizlPXenMEbpALfz7 +4HSqLn5TSqh/a68LHb5iRI50XRRXsvZ5oa4LKyNWNhKXdPGglGCM/jciWLRW +xOMtXdytXpUZ4EWEr4/Pz6YV6eItY5nVay46oOyjX7OlXxc99mPLAV8tuCBn +vRI3qIurR2u063ZrweInL53RYV1sSglpN9XUgpeuaY9zxnQx//scc/WqJtjZ +fLoqNquLy+EbC2wzNOEk+VwQF5MeznltjGCr1YBGgXbZ2S16WPxpWSlMTx22 +t47vs9ymh04eyoM8suqQmbZy9aGyHta80a+t41KHfRwKfIfU9HDkwepGyQo1 +mPsbvjKsp4edw/9xK25QA9Epqc42Sz28UL7oEJW7HXxeHokvDdZDnYO6Kprc +KvD92NcIkzA9FL6/ctrhkzKckPY/2h2uhx0Ur/KKUmVIORVo9ztKD/fqLifr +eirDc1L4ZoMEPdQnWRRKVirB3/K46vrrenji8uWyHSe3QeaznMWOej3MnZPW +cZFTBCmPzVPeDXo4WjPp/HJtC9zjyxtYbNTDhQTLu84DW4B27F6daIse+n49 +m6qStQWGVJ5kuPbqoYvjaJ8RzxbY9oCuOjqjhxNPV9lWmBSgJvfjwQURfbxd +U2HznF8ORqxkPcIJ+ji8IDn/4qcsMP055rIqoY9CPvalv7plwciWw5ptsz6+ +En5aO3VLFho2kHTFlfXxdHlieuN2WWj2us1lSNXHxJ4GPhOHzdCv4FeYcUgf +M6ljQp5x0rDaVv5AxFcf26x5Ao7aS4PUaZa714/qo7dZ69EaeWlw77p5NT9I +Hx1fRtXAGykYOdcaQ4vUxyjfik9XeKRgckLbfiRdHx2ys53M70nA4oP1ZbUK +fXxRd0VfmZsAE46mucl0fTwyZDdDHBeDXtbzZmNV+jg2GPjkRK0YVHlKZF+p +1Uf/eTnK9QgxOEvQIf1r0keLwab/rKdEgT/J79S7QX38oXyjw6BTBFQPdzH5 +MJPwbfHe+34fhGCTiNTDl6wkpLO8ibpaKAT89V62BA7G+xe3dBcuCMHPTfN3 +3vOQcDeUhCnbC0FlN7expggJCcIhZ54OCIKZKZ5b30rCwNUfKXWLAuC95THX +9d0kbD3Q+vCmCT9Evtnvp2hDQvm4NGKrEj9k+Ai+L7YjYYxtgdUOPn6ovncy +7b0TCV8qaUmOFm4EYUWzjf8OkFDLKzeepZcPGhTHhT3DSVj6REdOncQLyttk +NiveJqFGZlXuRxI3YGNHTPEdElqPjSX68nKD45GEz9R8EjbkbN1tNsIFcQ9m +85wekrB53L3scwIXDG6r3pJcQkLqeeWliB5OSFdyUZl5S8ISgdqRznMcsKB8 +iVg8T8IlMb+LYcJs0NuMJkI/SXhYlnb22wIr1AZ8tw9bIiEmaD6/2soK6cXm +wcQVEo6dUr2QnsoKyiSmJ5UsZLRmc5H5zsYKXubHZOtFyaj2+26fFisLfDy8 +67+PBmR8WPbj+aTCBqjiWpLQATLujcl6dZJzA+Q9zlO6YkhGVsbupTfDBEFz +/0ydTcl4O/5ojH4pE/BGlMYO7iHj2xaQNDVlAtME2eUvXmTkojxruPNljUrL +X/28lETGhVIjNr72VSrROGzZIpWM6RL1783vrlLLPs/8l3uejMbrrnebj69S +izcN61pkkrGg8NzXe5Kr1CfXas/n3CBj5beoiht+K9TctHP6uwrJSBkq+GMg +8oeaHLbx4rVOMt51yDEtv/6LyimUVDDbRUYZlb4K0eO/qAlFTNVGvWQUUchy +Lt7zixr/fWFiZpCMYsKDzdlsv6hnjnw0MJwgo91WZ8LmsCVqyL7sqenfZLzx +cGdordsi1XWnPJI3GWBk09oSwf4H9d9HTr76zQa4Tbm2OE/jBzXX5/uAhbwB +atx6tPMQ/w/qRAI9wnWbAXr3s4ZktyxQQ5r2PDupaYC9k7E993YvUFOsT22i +mRpg2PxiCYfjPLXSueuvdqAB0m/9EFGQnKW6T1e+qw42wNybtf6O4zNUpsjc +azvDDFCBzMY5+WyGanrjqPbekwYYp/8+d7PpDLVjaIN/aJwBtlxMyv0S/o36 +1WvHQNFVxn2kLJZVp6epkscS6TtqDdD47/Wirv8mqenrh3RS6wxwXHRmT9aX +CSpzpmnR5GsDVDfel3+1eoL6tZztYW6TATbm2rZ5HZugVjLFXxPsNEDD4t0r +HB3jVNfLMRG/xg1wR8q2+zr3v1CvVZ3UeclDwUSPCLlTZ0ap/1m7FEnwUVCT +JZ/no/soNWZEb3sEPwVv766r9aKMUo+w/VZQF6GgjduEtvy/z1TdPeHCeZso +KJ++4Zti9Gdq92jIz3MaFLxi8c55Pm2EKsLtX7TbiYJyIzKppdeHqPnGpyPn +XSgoMiJzudJjiKp5Ot340j4KZvj+8lHfMkS1nn/e1XuAgurF3SZHigapCd1L +f7z9KZhv9dDvZ8sA9XdetFFkLAUHxPVEWqX7qQmDGTzS8RQ8kkti/B/3UYVF +8z7WJFDw5P0LtmfL+qjqya8PsaVRsFUu2KzOuo/qG8iVmnGFgvMNdzU6zvVS ++8mXOgseU7DteXP6dbYe6pHj+TfNCymYouiVtqOnm/qrsMxn5jkFq6qSyyUf +dlMF5XqXNcopaBzJw72+u5tqySkt9aKWgq/nlsm9N7qo1R8LDnZ2UVDn9eIj +q10fqRZ8tO3hvRRck1UbUNr0kdq7q+kXYYCCMYrNVxyXOqmLld+S9o9Q0JVp +x9Gb+Z3U7XfUn05/pWC3XvFAE3sntbrfMDxtloKDQ9QSoZEOqoWwPajNU7Dk +kty9B/QO6qHE4+1hSxT8qeFSVHSsg7pYm3Bd7DcF3QSfVyqYdVDPrlz1rlyh +oC+Hd/WIXAeVX/uhqvs/Ck6HGaiP/2un5hyrXFpfZ9R3cjZDo6+d+j9IGjna + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0996926200736694}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.0996926200736694}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81f8Xx2WPL9mulYyUUfbFve49B5GVjOxEpCLZUVSI7CSl0pAkbWXf +iyJKlMzskcgqQpGi+N3fX5/H8/H5PB7v9znn9TrnfGS9Au18mJmYmLo3MDH9 +//lruOm1Qmo+1cPppuHVOlvqxxzCScPeszBu86orx0IdUKTVi9CbCfLJXwoi +LBDCbR71sPTmAXpXU5wsbEDgu1jmn55i8O+arxOy8IRP1daBiz11gFPsSwrm +QWCq8HVooacDaL/smk+axMCfHt2s+Z5RcHM5uG2ImAH1xvfz2/N+Qi3947pe +Xi5IfaJPeKn+gwBSbs1vqQcg7O/xiMOYBV+txaQXvS8EZY67DTZOLMhpyG/D +OlkImDcxmn2UBbOyuNp2MT8D/95jkqqXWXDz0pXBXL1n8HrnqTSbcRa0LvD5 +kp3/DMKkswOyE1lxkdN7qMXgOXS2dGiqNLPhmUmd+laeIsjUMK2yduBENUuu +1PsZxaA24LKLcoQT+yT6tpy8UQzN8cc6VaI4ceB0G4txQTGw917+xnmHE8vU +i6Nqqooh6syYZP0MJ4rld/xznSiGg+9jTunGc+EmlbJgcVIJEH2qKJtLuPHf +lV0+OQMl0MnX2sTXwI3PEjkhZLwEgmijDv96ubFzUmaFMlcCj3i4A/rXuDFe +7xzXC+ZSkCl2zrlswYOvmd8YuSiVAuf60hrnKA/qGrEPcxwvhb5r6rUL/LzI +I6fdrspeBtc7H28M38KL92WLJEo3loEr31aPFX1efKJ3NVZDvAwG46TXmL15 +cV3Z7xafahmMBHAbCJfx4myK71tb2zKY2vmlgujCh09tl1r/ZJfB7/mrz6Lu +bMSslNe3X8mXA11FaH29bCNmLPEQOVXLIfJQunX8u42ox1tdsFO7HP4OxM+m +/dyIE7q/+W/vLIeYMZpIqxw/7rq0MtR3sBziW+7Zj4Tx48wFLqlDd8shNT+6 +lVlcACtuw9s2QgVYaPsKisgLoLqx5cVnMhXA+drOYet2AZwzTg6KV6yA+LEt +A5aGAhhhpOrPr10Bp+SaJy77CmBQSpxZkXUFBOQS1hQrBXDMeEZN9GwF2N4s +UrV0E8Rgyeplv88VwK96I9DdRxDfnj5fzTNZAS1V8cWBgYK4QV8/I2+Gcf6A +k97lOEG0/CTtU7xcAUYSa8ZDjwVx0S7xgysvDbSvWbgF/hVE16fKP1qINBC7 +PJZ86ZYQxjYaF5mdpQFBpSz+d4EQ6nUdEzmQQAOJuoRo9+dCaJ8+9SUohQab +5pWOb60XwvXLpk3hmTTYYhXkWTUlhA2nF2ol82igxfqPOKYljNIKKqbvaxjn +3WjRMKMIY0wbqd21ngZEzVzVp6bCOCeZ1/O5gQYkT2O5CBdhlLol49b9gQaG +1cm8PNHCqGF0fL/LAA32hIl+0XwnjG2PmkMaF2lgwzM1fLVTGDdyF5m1LdPA +Lo/e93dQGClrDwpbV2jg2LavtWFOGDOf3lUvY6KDu+rdSlcREWyCEKLkf3Q4 ++kXt4llPEZy2fnhvrywd/KM2pE36iqC5w2ntbnk6BAh2JliFiuBl50L/PYp0 +CMHwU6IJIri2QWRkmwodTt6sPvzosQji+hHWE9p0SNxrTu34JYLPdm0YSjKh +g0RpiwTzBlGcYDH1e76LDoVCe5c1eETR367AqsWcDt0d+59flBHFJpt5idnd +dFCwDZOzNRPFWJK/YoUDHWjP/6zF2ImipOTWexed6GDFHz3wfJ8ojj5mSvdy +oUNoa/Jl/mBRdPz778HkPjrU7b7N3pYtillMI7bR3nRwfKowtn5XFJ3Vtgby ++tDh63+PatQKRbHZa/W/zEN0EGguPXGhThR/93zrOuNLh3wVkkNNsyjquk+w +T/rRQS+1RmOuWxQbDyq/NvGng6fFu6/W3xjfP0qcmwigw+LDPW/PLIni065H +3kpBjPi5uu4Wrouik61KkFcwI97GT/v4hMXwh9+l/bRQOvwzXWr5YCCG7187 +TP2MoENGQeTjf6ZieGfnpfBvJxjxszMlbbcVw1f9juV9JxnxvuE2PO8jhiw9 +R5yuR9FhRCFD+kWgGPImYI3/KUb88SIrMyfF0Kbz+bjOaTpcN95cYpUuhr1P +CqKenKHDjrv3Lpy6JoZfq4YXXKIZ+WFW8X+SJ4ZDB4W11xjs6PXcbPCJGOrc +fWqSHUOH6Vc6W/6rEEN6jIiySiwdTslWbTB4JYZ7+Ku/lDCYPxaHj74Xw6Uj +oie1zjLyg5ZX338Sw5i3nQZicXRovt0WujothltH9UOjGOy57mCjsiiGmuMu +F7sZvLh/QNVtTQzfPHt1fVs8I18vPblSOQl4hp31UjCDJTZNjFcKEtA6nXa6 +iMGFp4/WfZUioMvbqP1TDDYams+R2EpAGsecnug5hn4MwqMsNAjoFk7jJzPY +7+aqUySZgP1scdOODP63GqP9yISAuoFrDb4MznBjF+jfQ8B7qp+ehDJYoSp1 +lsuVgB5hwzlhDKZJCLzTP0hAe63KXH8GW0VeKfANIOAah065G4NH+iTjsk8Q +UJAiOmbI4FD9Ox5NZwlo9lpJRYbBFrl8i5ZpBHxUvvPlL8Z95ThOJbVkETDW +PfFqA4P/HJuWsr1NwKyDQpXpDG776FjU+YCAL+Z5lfYw+AH5tYljMQHFbt6e +5GBwdJ5Gf28VAc1DFn/TGPlz5Lod4PaGgOUzZE8vBu8I+o9luIWAxd8fbGZl +MFvPyauevQQsehVMyWHUZ5AyqTL2mYDnBNro6gxO5anbO7VIwObHO4epjHp6 +hahN+60RcJfYp7RKRv1JfTdPz3KIIydJ7MEOBk8VRBT8kBDHft/zGkwMvdTw +jpOOK4hjl4BfgTtDX1fC7FqXt4ujwW3ZrBKG/kyMtv/+i+J47OTZWTOGPqUe +Xk+LthDHbx5f3JMY+l3cyCnLvFccTzhlOtRG0iFvaNSc47A4Og8emhJn6P3k +Tpvh5CBxtEvwSCEz/GDz+EXIf5Hi2BNi9sqB4Zf1E9duCJwXR972otXQ43TY +J2w9K1kijqZm6yzODL9pRVXF5lSLY9HjmEIqw4/co9tEZRvEkedzK9emQDrQ +n7GAYp84TpkwfW5g+FnUkp6hvi6OaTuOHn91mA6zRYpbSjglsE6DkzuA0R9e +Ey7TdQQlsH6B31+I0T9CJwJGSVskMJ15psDMi1G/WAVtE0sJFE8S3u/O6D/3 +py42vt0rgV/Nd71uc6XDmT3r+yz2S6CyooEIhdGvtkv3n9sTLIHbfKwSmBzp +kEK70ONyVQILlV/xau2hw865lciAMQms3JHFZIGMfJhdVn41I4G/X3RNOFEZ +frizvV/olwRy89bpeRjQgbDXU5/OKYk8IbDDVY8OM7Q3yyw7JPGrEK1hgzod +Lp3NCMs+IYnfb9nMSGyiQ+OAksJMrCTq7P5i9kqSDn+16zupqZKYVPLE6oA4 +HQ5NLml+uSWJQ7u5XNKFGXqwclvYUS+JkzH5cze56TAqohjwmlcKby1dDLqw +xJiXgTXSYmJS2GW8wtPxgwZWjc4ffDdLoZ8YMY1vngblkamqG7WkMMe90+L4 +VxqkfJr/6uIshToCtB0rwzTQfFh1eC5PCi9fzOEYZ8y/WAPbAxJ60jjbasLt +xpinZvtzfugaSeOP7yxyV9JpwBfzLc7BShq3X7C+844xf2/WnyvI8JTGhcys +bzJxNKBZVH5jT5bGGIVHRqdCaTDvLB/+s08ao/s/5zDZ02D/8aWU5qhNOF32 +KtGdMf9JhdmlZ2pkkIXlQPK1oArY2dPy73ujDEZWPBMpPloB1kysuzw6ZPCS +Qqvg20MV4G0X0AfjMvh27Xrw2L4KMI2SjY5h24xjZBJOmFVAkMyvu4Yqm1Ey +NEicsLkCXh++PVsfzuDx9mSr9+Xg/3shppFXFm0dv+gti5TDHxX+4e0Ocji1 +tXL3Zc9SMHj8JPfKFXksFnFIZ04phgVBC0/HOgX03PNBj6X2OXxJ83QM4VDE +OJNugbkrT8F8LsJ8nLgVWVJFQzRZH8GMN2doafQ27MouoFbaFTD2dzHmxDol +7M9ouiT3Mw8EPyimP59TRnWj00pxgox9PemZDZGoiiYU9+DDadfhmoo+v9Dh +7VgawL7u+iML3kkY6vy8uAP7G7ujDrJkAkmqLkOtWw1THV7MNlamwai8wvB0 +vxqmHSsvG7mTBskqCSr5n9TQJLx3C1dyGvSSLBoI02qo8ObjZKpTGkS4dKxu ++KuGJ9SD7JyXUsHVMljrK786+iS+KebQToUrSQz7EtUxqfu809UXycDHkhd2 +4Kw6tj+uCVBgSgT2PzX2C/HqKEvkrAufToC170OasYnq2MvM2dffkQBz/eIL +uWnqeElWWKP3XgK0FV88NnJFHXtYmO8UWCVAplfsIY/H6ng9skQr9dY5EK3z +dHb/qI6CP9m19aziYVOsjIGLogaWUjN/GQ3EQmEop9zQNg309e1qEW+KBeqh +BY4DKhpY+GehfL08Ftwt6zuPqGsg/9Z7Wb8zY+GmyOGjJ0gauMvA/t4ty1gQ +f1R4/aq1BqpPKLQ+rYkB4U7Kn65wDazdxn/e2ScauLbsK7d7q4Fvhooc7sZH +gZ84WDxu0sC5ydi91r5R8I5XbpilWQMXfYXmN1pHQdqvSbayNg3c7qnb2C0W +BXyNoQ5i/Rp4EdiTgp9EguDR1MWBGQ3UsUy839p3EqSKKjV9BDXx0CBfX/vO +E7CDIv4swl0TPe4VCAm4HIcSed9VZk9NdOg2lpMxPA563PRd6V6aqHM4dMFY +6TgY9TiP5B/WRLfMDxntf8LAMfiaQEewJgqGWm5cvREG0ffEwlQTNPHD0eY/ +J76EQhuvqP7nQk306Sf8eX4uBBwWfc75F2liNFOF+ImgEOjvL2tfLtFEjVjn +NXu3EPhy38GPj66JT1iDusw1QuC3YdYNcr0msrY+41QdDgbZcOG1rB5N1P/V +wvKCHAwhw4L1FkxaOJx4/nQBWxA0Nux78YhZC6nNht92TwXCpmcFFdxsWqjf +fPlF4JtAeBdNevKOSwsTweqBSEwgyMl6ZVkIaWEA37fFyV8B0O5ddNhCUQsf +mJ6Lvfj1GKhP7/nPwkoL99f1idtPH4WE9mz2R9ZamNJnt9vo3VEYpI8xcdtq +oevL9uA9j49CUkrEUpODFr4QdNCsP3YURlRuD5t7aGFVUa8g36IfZAR8f24e +ooXtzLfPSLP7wdzPNAfza1q4puaQkABHYLD3juOt61oYQrHNyVQ4Au9elDst +3NTC8oSvrTSuI5CfOOKSfUcL2a1u7bD/eBhcJbX3Tz/SQi7HhrwXfofhjdHA +oeQXWnj8+91mp5uH4MZFpRNNo1r4uWTZW1TQB5LCqSelx7Uwr8WeFVYOQrib +fWTwpBb+23DGNHr0INhsOX1KfEYLzQo/e5uWHAR2eluM75IW3pPP+T7jcBCC +RyKSuTi18e/trrqU296wS63huvl2bRS5HBqcaOwFzuxme9vUtDE78MJ0uaoX ++A018TppauNQe2HkuogXpKd+iDmoq42t12fSBqYOQPfkx0PRhtro5q60XH3h +ABzMHdMsc9DGMRNJEBj1hLMCG95vPqONtJG4pnfqHnB56mz8/Rht5PfUHxTn +8oCCGlbqjjhtLL61ei/r8354d4yziJykjePS+eWCl/aDwLuNVx0ztbFc8Spp +0293yD27yTutQBvZCIezHd/tg5c/yavLLdqYobX0QT3dFe40V3jZt2uj7dIn +c+EAV4i/p/WusFMbp7cp2kpYu4K5k0q2T682gll6/Hk+V/hYKaHb+Vkb2XUH +RXkvusDX2D8hhYva+PHH31mHm84gyl/x9aCEDp7fHdhAeu8If6Y07WqldHBS +i5yu/cwRBl8V0iVldPCAPIfM7kuOcCe0IKlDXgdnOZ9u63dzBNWeLEXcroO/ +3/6t8vzuAEY5YV6MaY1KJdzyHOIOEKCq2d/uo4PCF8h8y3H2cHxZYsXjiA7K +HUvWTfK1h1N1LBLf/XTwrNdMtP4ee0h17nLhDtLBVTGtqVUJe3gQf6LPKFIH +1wz9wv6W2MHo4MveknQdDH+sXNv6zRYcz1v2ZFXoYFKHdulwsA24O2svy1fq +YJH84Iy2mw0clJcWK67WQSebFbP7O20glP7dseWVDh5h//Hjk5gNZIxf7GZv +1sGgqcjz5Og98I7S2xUxooOhgxR+723WQPl+8KMLFxGfGpMbh+9YgmjVrrxq +HiLGMUcJF5+2hO+JykEyfET8SwjXee5iCTmy8zzjgkQ85qdhoipoCWt7o4yD +pIi4GF3WtumcBdRUXSxOUCOiUSW5/G2IORgmv8wocSAi87+UNSb/XSDheGe/ +qDMRF1I9hQatdsEPuXjVk65E1Pl16cXg9l2QV23eSPUg4o4xKy3reVNgnv+4 +3nSEiH6pbHtnw02h3vFbwEgUEceYI11WUkzARIGwmzePiJTRjfUmH4yhdPaN +7MF8Isbb8i/wlRiDQkXor8oCIo5YdlQsXzMGVovW20ceE9GBHJ281ccY6gIT +ftSXEnGSRz7775oRUKsWr0a+JWLuFpkCDz0jINq1j07OENFk5yay0iuEAsno +CuocEdM2fHhS8AhBZFw1LWuBiD5CzC/gMsJiRJKO8S8iQhWH4evDCMW3ICln +nYhXvB9nCfEjqE0/3e4gqIspcb3Hvd9TYVtMyok6XV08YCZ+YJeZAVST77FZ +kXRR36DgU8QmA7BZrsnsMtBFz097VkcWyXAiYOnJlKEu2h0y/OOWR4bGfZ6f ++ax0cUW89OHsOgmO6BMt3Dx1MZWgmm7yRh8e/vgsuZikizlPXenMEbpALfz7 +4HSqLn5TSqh/a68LHb5iRI50XRRXsvZ5oa4LKyNWNhKXdPGglGCM/jciWLRW +xOMtXdytXpUZ4EWEr4/Pz6YV6eItY5nVay46oOyjX7OlXxc99mPLAV8tuCBn +vRI3qIurR2u063ZrweInL53RYV1sSglpN9XUgpeuaY9zxnQx//scc/WqJtjZ +fLoqNquLy+EbC2wzNOEk+VwQF5MeznltjGCr1YBGgXbZ2S16WPxpWSlMTx22 +t47vs9ymh04eyoM8suqQmbZy9aGyHta80a+t41KHfRwKfIfU9HDkwepGyQo1 +mPsbvjKsp4edw/9xK25QA9Epqc42Sz28UL7oEJW7HXxeHokvDdZDnYO6Kprc +KvD92NcIkzA9FL6/ctrhkzKckPY/2h2uhx0Ur/KKUmVIORVo9ztKD/fqLifr +eirDc1L4ZoMEPdQnWRRKVirB3/K46vrrenji8uWyHSe3QeaznMWOej3MnZPW +cZFTBCmPzVPeDXo4WjPp/HJtC9zjyxtYbNTDhQTLu84DW4B27F6daIse+n49 +m6qStQWGVJ5kuPbqoYvjaJ8RzxbY9oCuOjqjhxNPV9lWmBSgJvfjwQURfbxd +U2HznF8ORqxkPcIJ+ji8IDn/4qcsMP055rIqoY9CPvalv7plwciWw5ptsz6+ +En5aO3VLFho2kHTFlfXxdHlieuN2WWj2us1lSNXHxJ4GPhOHzdCv4FeYcUgf +M6ljQp5x0rDaVv5AxFcf26x5Ao7aS4PUaZa714/qo7dZ69EaeWlw77p5NT9I +Hx1fRtXAGykYOdcaQ4vUxyjfik9XeKRgckLbfiRdHx2ys53M70nA4oP1ZbUK +fXxRd0VfmZsAE46mucl0fTwyZDdDHBeDXtbzZmNV+jg2GPjkRK0YVHlKZF+p +1Uf/eTnK9QgxOEvQIf1r0keLwab/rKdEgT/J79S7QX38oXyjw6BTBFQPdzH5 +MJPwbfHe+34fhGCTiNTDl6wkpLO8ibpaKAT89V62BA7G+xe3dBcuCMHPTfN3 +3vOQcDeUhCnbC0FlN7expggJCcIhZ54OCIKZKZ5b30rCwNUfKXWLAuC95THX +9d0kbD3Q+vCmCT9Evtnvp2hDQvm4NGKrEj9k+Ai+L7YjYYxtgdUOPn6ovncy +7b0TCV8qaUmOFm4EYUWzjf8OkFDLKzeepZcPGhTHhT3DSVj6REdOncQLyttk +NiveJqFGZlXuRxI3YGNHTPEdElqPjSX68nKD45GEz9R8EjbkbN1tNsIFcQ9m +85wekrB53L3scwIXDG6r3pJcQkLqeeWliB5OSFdyUZl5S8ISgdqRznMcsKB8 +iVg8T8IlMb+LYcJs0NuMJkI/SXhYlnb22wIr1AZ8tw9bIiEmaD6/2soK6cXm +wcQVEo6dUr2QnsoKyiSmJ5UsZLRmc5H5zsYKXubHZOtFyaj2+26fFisLfDy8 +67+PBmR8WPbj+aTCBqjiWpLQATLujcl6dZJzA+Q9zlO6YkhGVsbupTfDBEFz +/0ydTcl4O/5ojH4pE/BGlMYO7iHj2xaQNDVlAtME2eUvXmTkojxruPNljUrL +X/28lETGhVIjNr72VSrROGzZIpWM6RL1783vrlLLPs/8l3uejMbrrnebj69S +izcN61pkkrGg8NzXe5Kr1CfXas/n3CBj5beoiht+K9TctHP6uwrJSBkq+GMg +8oeaHLbx4rVOMt51yDEtv/6LyimUVDDbRUYZlb4K0eO/qAlFTNVGvWQUUchy +Lt7zixr/fWFiZpCMYsKDzdlsv6hnjnw0MJwgo91WZ8LmsCVqyL7sqenfZLzx +cGdordsi1XWnPJI3GWBk09oSwf4H9d9HTr76zQa4Tbm2OE/jBzXX5/uAhbwB +atx6tPMQ/w/qRAI9wnWbAXr3s4ZktyxQQ5r2PDupaYC9k7E993YvUFOsT22i +mRpg2PxiCYfjPLXSueuvdqAB0m/9EFGQnKW6T1e+qw42wNybtf6O4zNUpsjc +azvDDFCBzMY5+WyGanrjqPbekwYYp/8+d7PpDLVjaIN/aJwBtlxMyv0S/o36 +1WvHQNFVxn2kLJZVp6epkscS6TtqDdD47/Wirv8mqenrh3RS6wxwXHRmT9aX +CSpzpmnR5GsDVDfel3+1eoL6tZztYW6TATbm2rZ5HZugVjLFXxPsNEDD4t0r +HB3jVNfLMRG/xg1wR8q2+zr3v1CvVZ3UeclDwUSPCLlTZ0ap/1m7FEnwUVCT +JZ/no/soNWZEb3sEPwVv766r9aKMUo+w/VZQF6GgjduEtvy/z1TdPeHCeZso +KJ++4Zti9Gdq92jIz3MaFLxi8c55Pm2EKsLtX7TbiYJyIzKppdeHqPnGpyPn +XSgoMiJzudJjiKp5Ot340j4KZvj+8lHfMkS1nn/e1XuAgurF3SZHigapCd1L +f7z9KZhv9dDvZ8sA9XdetFFkLAUHxPVEWqX7qQmDGTzS8RQ8kkti/B/3UYVF +8z7WJFDw5P0LtmfL+qjqya8PsaVRsFUu2KzOuo/qG8iVmnGFgvMNdzU6zvVS ++8mXOgseU7DteXP6dbYe6pHj+TfNCymYouiVtqOnm/qrsMxn5jkFq6qSyyUf +dlMF5XqXNcopaBzJw72+u5tqySkt9aKWgq/nlsm9N7qo1R8LDnZ2UVDn9eIj +q10fqRZ8tO3hvRRck1UbUNr0kdq7q+kXYYCCMYrNVxyXOqmLld+S9o9Q0JVp +x9Gb+Z3U7XfUn05/pWC3XvFAE3sntbrfMDxtloKDQ9QSoZEOqoWwPajNU7Dk +kty9B/QO6qHE4+1hSxT8qeFSVHSsg7pYm3Bd7DcF3QSfVyqYdVDPrlz1rlyh +oC+Hd/WIXAeVX/uhqvs/Ck6HGaiP/2un5hyrXFpfZ9R3cjZDo6+d+j9IGjna + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0996926200736694}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0996926200736694}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938532459993477`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"32ddf9ca-be82-4b6c-9480-3b57520a9ab5"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ -ef47-aa8c-99f282e3d6d3"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[120]:=",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVl3c81f8Xx2WPL9mulYyUUfbFve49B5GVjOxEpCLZUVSI7CSl0pAkbWXf +iyJKlMzskcgqQpGi+N3fX5/H8/H5PB7v9znn9TrnfGS9Au18mJmYmLo3MDH9 +//lruOm1Qmo+1cPppuHVOlvqxxzCScPeszBu86orx0IdUKTVi9CbCfLJXwoi +LBDCbR71sPTmAXpXU5wsbEDgu1jmn55i8O+arxOy8IRP1daBiz11gFPsSwrm +QWCq8HVooacDaL/smk+axMCfHt2s+Z5RcHM5uG2ImAH1xvfz2/N+Qi3947pe +Xi5IfaJPeKn+gwBSbs1vqQcg7O/xiMOYBV+txaQXvS8EZY67DTZOLMhpyG/D +OlkImDcxmn2UBbOyuNp2MT8D/95jkqqXWXDz0pXBXL1n8HrnqTSbcRa0LvD5 +kp3/DMKkswOyE1lxkdN7qMXgOXS2dGiqNLPhmUmd+laeIsjUMK2yduBENUuu +1PsZxaA24LKLcoQT+yT6tpy8UQzN8cc6VaI4ceB0G4txQTGw917+xnmHE8vU +i6Nqqooh6syYZP0MJ4rld/xznSiGg+9jTunGc+EmlbJgcVIJEH2qKJtLuPHf +lV0+OQMl0MnX2sTXwI3PEjkhZLwEgmijDv96ubFzUmaFMlcCj3i4A/rXuDFe +7xzXC+ZSkCl2zrlswYOvmd8YuSiVAuf60hrnKA/qGrEPcxwvhb5r6rUL/LzI +I6fdrspeBtc7H28M38KL92WLJEo3loEr31aPFX1efKJ3NVZDvAwG46TXmL15 +cV3Z7xafahmMBHAbCJfx4myK71tb2zKY2vmlgujCh09tl1r/ZJfB7/mrz6Lu +bMSslNe3X8mXA11FaH29bCNmLPEQOVXLIfJQunX8u42ox1tdsFO7HP4OxM+m +/dyIE7q/+W/vLIeYMZpIqxw/7rq0MtR3sBziW+7Zj4Tx48wFLqlDd8shNT+6 +lVlcACtuw9s2QgVYaPsKisgLoLqx5cVnMhXA+drOYet2AZwzTg6KV6yA+LEt +A5aGAhhhpOrPr10Bp+SaJy77CmBQSpxZkXUFBOQS1hQrBXDMeEZN9GwF2N4s +UrV0E8Rgyeplv88VwK96I9DdRxDfnj5fzTNZAS1V8cWBgYK4QV8/I2+Gcf6A +k97lOEG0/CTtU7xcAUYSa8ZDjwVx0S7xgysvDbSvWbgF/hVE16fKP1qINBC7 +PJZ86ZYQxjYaF5mdpQFBpSz+d4EQ6nUdEzmQQAOJuoRo9+dCaJ8+9SUohQab +5pWOb60XwvXLpk3hmTTYYhXkWTUlhA2nF2ol82igxfqPOKYljNIKKqbvaxjn +3WjRMKMIY0wbqd21ngZEzVzVp6bCOCeZ1/O5gQYkT2O5CBdhlLol49b9gQaG +1cm8PNHCqGF0fL/LAA32hIl+0XwnjG2PmkMaF2lgwzM1fLVTGDdyF5m1LdPA +Lo/e93dQGClrDwpbV2jg2LavtWFOGDOf3lUvY6KDu+rdSlcREWyCEKLkf3Q4 ++kXt4llPEZy2fnhvrywd/KM2pE36iqC5w2ntbnk6BAh2JliFiuBl50L/PYp0 +CMHwU6IJIri2QWRkmwodTt6sPvzosQji+hHWE9p0SNxrTu34JYLPdm0YSjKh +g0RpiwTzBlGcYDH1e76LDoVCe5c1eETR367AqsWcDt0d+59flBHFJpt5idnd +dFCwDZOzNRPFWJK/YoUDHWjP/6zF2ImipOTWexed6GDFHz3wfJ8ojj5mSvdy +oUNoa/Jl/mBRdPz778HkPjrU7b7N3pYtillMI7bR3nRwfKowtn5XFJ3Vtgby ++tDh63+PatQKRbHZa/W/zEN0EGguPXGhThR/93zrOuNLh3wVkkNNsyjquk+w +T/rRQS+1RmOuWxQbDyq/NvGng6fFu6/W3xjfP0qcmwigw+LDPW/PLIni065H +3kpBjPi5uu4Wrouik61KkFcwI97GT/v4hMXwh9+l/bRQOvwzXWr5YCCG7187 +TP2MoENGQeTjf6ZieGfnpfBvJxjxszMlbbcVw1f9juV9JxnxvuE2PO8jhiw9 +R5yuR9FhRCFD+kWgGPImYI3/KUb88SIrMyfF0Kbz+bjOaTpcN95cYpUuhr1P +CqKenKHDjrv3Lpy6JoZfq4YXXKIZ+WFW8X+SJ4ZDB4W11xjs6PXcbPCJGOrc +fWqSHUOH6Vc6W/6rEEN6jIiySiwdTslWbTB4JYZ7+Ku/lDCYPxaHj74Xw6Uj +oie1zjLyg5ZX338Sw5i3nQZicXRovt0WujothltH9UOjGOy57mCjsiiGmuMu +F7sZvLh/QNVtTQzfPHt1fVs8I18vPblSOQl4hp31UjCDJTZNjFcKEtA6nXa6 +iMGFp4/WfZUioMvbqP1TDDYams+R2EpAGsecnug5hn4MwqMsNAjoFk7jJzPY +7+aqUySZgP1scdOODP63GqP9yISAuoFrDb4MznBjF+jfQ8B7qp+ehDJYoSp1 +lsuVgB5hwzlhDKZJCLzTP0hAe63KXH8GW0VeKfANIOAah065G4NH+iTjsk8Q +UJAiOmbI4FD9Ox5NZwlo9lpJRYbBFrl8i5ZpBHxUvvPlL8Z95ThOJbVkETDW +PfFqA4P/HJuWsr1NwKyDQpXpDG776FjU+YCAL+Z5lfYw+AH5tYljMQHFbt6e +5GBwdJ5Gf28VAc1DFn/TGPlz5Lod4PaGgOUzZE8vBu8I+o9luIWAxd8fbGZl +MFvPyauevQQsehVMyWHUZ5AyqTL2mYDnBNro6gxO5anbO7VIwObHO4epjHp6 +hahN+60RcJfYp7RKRv1JfTdPz3KIIydJ7MEOBk8VRBT8kBDHft/zGkwMvdTw +jpOOK4hjl4BfgTtDX1fC7FqXt4ujwW3ZrBKG/kyMtv/+i+J47OTZWTOGPqUe +Xk+LthDHbx5f3JMY+l3cyCnLvFccTzhlOtRG0iFvaNSc47A4Og8emhJn6P3k +Tpvh5CBxtEvwSCEz/GDz+EXIf5Hi2BNi9sqB4Zf1E9duCJwXR972otXQ43TY +J2w9K1kijqZm6yzODL9pRVXF5lSLY9HjmEIqw4/co9tEZRvEkedzK9emQDrQ +n7GAYp84TpkwfW5g+FnUkp6hvi6OaTuOHn91mA6zRYpbSjglsE6DkzuA0R9e +Ey7TdQQlsH6B31+I0T9CJwJGSVskMJ15psDMi1G/WAVtE0sJFE8S3u/O6D/3 +py42vt0rgV/Nd71uc6XDmT3r+yz2S6CyooEIhdGvtkv3n9sTLIHbfKwSmBzp +kEK70ONyVQILlV/xau2hw865lciAMQms3JHFZIGMfJhdVn41I4G/X3RNOFEZ +frizvV/olwRy89bpeRjQgbDXU5/OKYk8IbDDVY8OM7Q3yyw7JPGrEK1hgzod +Lp3NCMs+IYnfb9nMSGyiQ+OAksJMrCTq7P5i9kqSDn+16zupqZKYVPLE6oA4 +HQ5NLml+uSWJQ7u5XNKFGXqwclvYUS+JkzH5cze56TAqohjwmlcKby1dDLqw +xJiXgTXSYmJS2GW8wtPxgwZWjc4ffDdLoZ8YMY1vngblkamqG7WkMMe90+L4 +VxqkfJr/6uIshToCtB0rwzTQfFh1eC5PCi9fzOEYZ8y/WAPbAxJ60jjbasLt +xpinZvtzfugaSeOP7yxyV9JpwBfzLc7BShq3X7C+844xf2/WnyvI8JTGhcys +bzJxNKBZVH5jT5bGGIVHRqdCaTDvLB/+s08ao/s/5zDZ02D/8aWU5qhNOF32 +KtGdMf9JhdmlZ2pkkIXlQPK1oArY2dPy73ujDEZWPBMpPloB1kysuzw6ZPCS +Qqvg20MV4G0X0AfjMvh27Xrw2L4KMI2SjY5h24xjZBJOmFVAkMyvu4Yqm1Ey +NEicsLkCXh++PVsfzuDx9mSr9+Xg/3shppFXFm0dv+gti5TDHxX+4e0Ocji1 +tXL3Zc9SMHj8JPfKFXksFnFIZ04phgVBC0/HOgX03PNBj6X2OXxJ83QM4VDE +OJNugbkrT8F8LsJ8nLgVWVJFQzRZH8GMN2doafQ27MouoFbaFTD2dzHmxDol +7M9ouiT3Mw8EPyimP59TRnWj00pxgox9PemZDZGoiiYU9+DDadfhmoo+v9Dh +7VgawL7u+iML3kkY6vy8uAP7G7ujDrJkAkmqLkOtWw1THV7MNlamwai8wvB0 +vxqmHSsvG7mTBskqCSr5n9TQJLx3C1dyGvSSLBoI02qo8ObjZKpTGkS4dKxu ++KuGJ9SD7JyXUsHVMljrK786+iS+KebQToUrSQz7EtUxqfu809UXycDHkhd2 +4Kw6tj+uCVBgSgT2PzX2C/HqKEvkrAufToC170OasYnq2MvM2dffkQBz/eIL +uWnqeElWWKP3XgK0FV88NnJFHXtYmO8UWCVAplfsIY/H6ng9skQr9dY5EK3z +dHb/qI6CP9m19aziYVOsjIGLogaWUjN/GQ3EQmEop9zQNg309e1qEW+KBeqh +BY4DKhpY+GehfL08Ftwt6zuPqGsg/9Z7Wb8zY+GmyOGjJ0gauMvA/t4ty1gQ +f1R4/aq1BqpPKLQ+rYkB4U7Kn65wDazdxn/e2ScauLbsK7d7q4Fvhooc7sZH +gZ84WDxu0sC5ydi91r5R8I5XbpilWQMXfYXmN1pHQdqvSbayNg3c7qnb2C0W +BXyNoQ5i/Rp4EdiTgp9EguDR1MWBGQ3UsUy839p3EqSKKjV9BDXx0CBfX/vO +E7CDIv4swl0TPe4VCAm4HIcSed9VZk9NdOg2lpMxPA563PRd6V6aqHM4dMFY +6TgY9TiP5B/WRLfMDxntf8LAMfiaQEewJgqGWm5cvREG0ffEwlQTNPHD0eY/ +J76EQhuvqP7nQk306Sf8eX4uBBwWfc75F2liNFOF+ImgEOjvL2tfLtFEjVjn +NXu3EPhy38GPj66JT1iDusw1QuC3YdYNcr0msrY+41QdDgbZcOG1rB5N1P/V +wvKCHAwhw4L1FkxaOJx4/nQBWxA0Nux78YhZC6nNht92TwXCpmcFFdxsWqjf +fPlF4JtAeBdNevKOSwsTweqBSEwgyMl6ZVkIaWEA37fFyV8B0O5ddNhCUQsf +mJ6Lvfj1GKhP7/nPwkoL99f1idtPH4WE9mz2R9ZamNJnt9vo3VEYpI8xcdtq +oevL9uA9j49CUkrEUpODFr4QdNCsP3YURlRuD5t7aGFVUa8g36IfZAR8f24e +ooXtzLfPSLP7wdzPNAfza1q4puaQkABHYLD3juOt61oYQrHNyVQ4Au9elDst +3NTC8oSvrTSuI5CfOOKSfUcL2a1u7bD/eBhcJbX3Tz/SQi7HhrwXfofhjdHA +oeQXWnj8+91mp5uH4MZFpRNNo1r4uWTZW1TQB5LCqSelx7Uwr8WeFVYOQrib +fWTwpBb+23DGNHr0INhsOX1KfEYLzQo/e5uWHAR2eluM75IW3pPP+T7jcBCC +RyKSuTi18e/trrqU296wS63huvl2bRS5HBqcaOwFzuxme9vUtDE78MJ0uaoX ++A018TppauNQe2HkuogXpKd+iDmoq42t12fSBqYOQPfkx0PRhtro5q60XH3h +ABzMHdMsc9DGMRNJEBj1hLMCG95vPqONtJG4pnfqHnB56mz8/Rht5PfUHxTn +8oCCGlbqjjhtLL61ei/r8354d4yziJykjePS+eWCl/aDwLuNVx0ztbFc8Spp +0293yD27yTutQBvZCIezHd/tg5c/yavLLdqYobX0QT3dFe40V3jZt2uj7dIn +c+EAV4i/p/WusFMbp7cp2kpYu4K5k0q2T682gll6/Hk+V/hYKaHb+Vkb2XUH +RXkvusDX2D8hhYva+PHH31mHm84gyl/x9aCEDp7fHdhAeu8If6Y07WqldHBS +i5yu/cwRBl8V0iVldPCAPIfM7kuOcCe0IKlDXgdnOZ9u63dzBNWeLEXcroO/ +3/6t8vzuAEY5YV6MaY1KJdzyHOIOEKCq2d/uo4PCF8h8y3H2cHxZYsXjiA7K +HUvWTfK1h1N1LBLf/XTwrNdMtP4ee0h17nLhDtLBVTGtqVUJe3gQf6LPKFIH +1wz9wv6W2MHo4MveknQdDH+sXNv6zRYcz1v2ZFXoYFKHdulwsA24O2svy1fq +YJH84Iy2mw0clJcWK67WQSebFbP7O20glP7dseWVDh5h//Hjk5gNZIxf7GZv +1sGgqcjz5Og98I7S2xUxooOhgxR+723WQPl+8KMLFxGfGpMbh+9YgmjVrrxq +HiLGMUcJF5+2hO+JykEyfET8SwjXee5iCTmy8zzjgkQ85qdhoipoCWt7o4yD +pIi4GF3WtumcBdRUXSxOUCOiUSW5/G2IORgmv8wocSAi87+UNSb/XSDheGe/ +qDMRF1I9hQatdsEPuXjVk65E1Pl16cXg9l2QV23eSPUg4o4xKy3reVNgnv+4 +3nSEiH6pbHtnw02h3vFbwEgUEceYI11WUkzARIGwmzePiJTRjfUmH4yhdPaN +7MF8Isbb8i/wlRiDQkXor8oCIo5YdlQsXzMGVovW20ceE9GBHJ281ccY6gIT +ftSXEnGSRz7775oRUKsWr0a+JWLuFpkCDz0jINq1j07OENFk5yay0iuEAsno +CuocEdM2fHhS8AhBZFw1LWuBiD5CzC/gMsJiRJKO8S8iQhWH4evDCMW3ICln +nYhXvB9nCfEjqE0/3e4gqIspcb3Hvd9TYVtMyok6XV08YCZ+YJeZAVST77FZ +kXRR36DgU8QmA7BZrsnsMtBFz097VkcWyXAiYOnJlKEu2h0y/OOWR4bGfZ6f ++ax0cUW89OHsOgmO6BMt3Dx1MZWgmm7yRh8e/vgsuZikizlPXenMEbpALfz7 +4HSqLn5TSqh/a68LHb5iRI50XRRXsvZ5oa4LKyNWNhKXdPGglGCM/jciWLRW +xOMtXdytXpUZ4EWEr4/Pz6YV6eItY5nVay46oOyjX7OlXxc99mPLAV8tuCBn +vRI3qIurR2u063ZrweInL53RYV1sSglpN9XUgpeuaY9zxnQx//scc/WqJtjZ +fLoqNquLy+EbC2wzNOEk+VwQF5MeznltjGCr1YBGgXbZ2S16WPxpWSlMTx22 +t47vs9ymh04eyoM8suqQmbZy9aGyHta80a+t41KHfRwKfIfU9HDkwepGyQo1 +mPsbvjKsp4edw/9xK25QA9Epqc42Sz28UL7oEJW7HXxeHokvDdZDnYO6Kprc +KvD92NcIkzA9FL6/ctrhkzKckPY/2h2uhx0Ur/KKUmVIORVo9ztKD/fqLifr +eirDc1L4ZoMEPdQnWRRKVirB3/K46vrrenji8uWyHSe3QeaznMWOej3MnZPW +cZFTBCmPzVPeDXo4WjPp/HJtC9zjyxtYbNTDhQTLu84DW4B27F6daIse+n49 +m6qStQWGVJ5kuPbqoYvjaJ8RzxbY9oCuOjqjhxNPV9lWmBSgJvfjwQURfbxd +U2HznF8ORqxkPcIJ+ji8IDn/4qcsMP055rIqoY9CPvalv7plwciWw5ptsz6+ +En5aO3VLFho2kHTFlfXxdHlieuN2WWj2us1lSNXHxJ4GPhOHzdCv4FeYcUgf +M6ljQp5x0rDaVv5AxFcf26x5Ao7aS4PUaZa714/qo7dZ69EaeWlw77p5NT9I +Hx1fRtXAGykYOdcaQ4vUxyjfik9XeKRgckLbfiRdHx2ys53M70nA4oP1ZbUK +fXxRd0VfmZsAE46mucl0fTwyZDdDHBeDXtbzZmNV+jg2GPjkRK0YVHlKZF+p +1Uf/eTnK9QgxOEvQIf1r0keLwab/rKdEgT/J79S7QX38oXyjw6BTBFQPdzH5 +MJPwbfHe+34fhGCTiNTDl6wkpLO8ibpaKAT89V62BA7G+xe3dBcuCMHPTfN3 +3vOQcDeUhCnbC0FlN7expggJCcIhZ54OCIKZKZ5b30rCwNUfKXWLAuC95THX +9d0kbD3Q+vCmCT9Evtnvp2hDQvm4NGKrEj9k+Ai+L7YjYYxtgdUOPn6ovncy +7b0TCV8qaUmOFm4EYUWzjf8OkFDLKzeepZcPGhTHhT3DSVj6REdOncQLyttk +NiveJqFGZlXuRxI3YGNHTPEdElqPjSX68nKD45GEz9R8EjbkbN1tNsIFcQ9m +85wekrB53L3scwIXDG6r3pJcQkLqeeWliB5OSFdyUZl5S8ISgdqRznMcsKB8 +iVg8T8IlMb+LYcJs0NuMJkI/SXhYlnb22wIr1AZ8tw9bIiEmaD6/2soK6cXm +wcQVEo6dUr2QnsoKyiSmJ5UsZLRmc5H5zsYKXubHZOtFyaj2+26fFisLfDy8 +67+PBmR8WPbj+aTCBqjiWpLQATLujcl6dZJzA+Q9zlO6YkhGVsbupTfDBEFz +/0ydTcl4O/5ojH4pE/BGlMYO7iHj2xaQNDVlAtME2eUvXmTkojxruPNljUrL +X/28lETGhVIjNr72VSrROGzZIpWM6RL1783vrlLLPs/8l3uejMbrrnebj69S +izcN61pkkrGg8NzXe5Kr1CfXas/n3CBj5beoiht+K9TctHP6uwrJSBkq+GMg +8oeaHLbx4rVOMt51yDEtv/6LyimUVDDbRUYZlb4K0eO/qAlFTNVGvWQUUchy +Lt7zixr/fWFiZpCMYsKDzdlsv6hnjnw0MJwgo91WZ8LmsCVqyL7sqenfZLzx +cGdordsi1XWnPJI3GWBk09oSwf4H9d9HTr76zQa4Tbm2OE/jBzXX5/uAhbwB +atx6tPMQ/w/qRAI9wnWbAXr3s4ZktyxQQ5r2PDupaYC9k7E993YvUFOsT22i +mRpg2PxiCYfjPLXSueuvdqAB0m/9EFGQnKW6T1e+qw42wNybtf6O4zNUpsjc +azvDDFCBzMY5+WyGanrjqPbekwYYp/8+d7PpDLVjaIN/aJwBtlxMyv0S/o36 +1WvHQNFVxn2kLJZVp6epkscS6TtqDdD47/Wirv8mqenrh3RS6wxwXHRmT9aX +CSpzpmnR5GsDVDfel3+1eoL6tZztYW6TATbm2rZ5HZugVjLFXxPsNEDD4t0r +HB3jVNfLMRG/xg1wR8q2+zr3v1CvVZ3UeclDwUSPCLlTZ0ap/1m7FEnwUVCT +JZ/no/soNWZEb3sEPwVv766r9aKMUo+w/VZQF6GgjduEtvy/z1TdPeHCeZso +KJ++4Zti9Gdq92jIz3MaFLxi8c55Pm2EKsLtX7TbiYJyIzKppdeHqPnGpyPn +XSgoMiJzudJjiKp5Ot340j4KZvj+8lHfMkS1nn/e1XuAgurF3SZHigapCd1L +f7z9KZhv9dDvZ8sA9XdetFFkLAUHxPVEWqX7qQmDGTzS8RQ8kkti/B/3UYVF +8z7WJFDw5P0LtmfL+qjqya8PsaVRsFUu2KzOuo/qG8iVmnGFgvMNdzU6zvVS ++8mXOgseU7DteXP6dbYe6pHj+TfNCymYouiVtqOnm/qrsMxn5jkFq6qSyyUf +dlMF5XqXNcopaBzJw72+u5tqySkt9aKWgq/nlsm9N7qo1R8LDnZ2UVDn9eIj +q10fqRZ8tO3hvRRck1UbUNr0kdq7q+kXYYCCMYrNVxyXOqmLld+S9o9Q0JVp +x9Gb+Z3U7XfUn05/pWC3XvFAE3sntbrfMDxtloKDQ9QSoZEOqoWwPajNU7Dk +kty9B/QO6qHE4+1hSxT8qeFSVHSsg7pYm3Bd7DcF3QSfVyqYdVDPrlz1rlyh +oC+Hd/WIXAeVX/uhqvs/Ck6HGaiP/2un5hyrXFpfZ9R3cjZDo6+d+j9IGjna + + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81f8Xx2WPL9mulYyUUfbFve49B5GVjOxEpCLZUVSI7CSl0pAkbWXf +iyJKlMzskcgqQpGi+N3fX5/H8/H5PB7v9znn9TrnfGS9Au18mJmYmLo3MDH9 +//lruOm1Qmo+1cPppuHVOlvqxxzCScPeszBu86orx0IdUKTVi9CbCfLJXwoi +LBDCbR71sPTmAXpXU5wsbEDgu1jmn55i8O+arxOy8IRP1daBiz11gFPsSwrm +QWCq8HVooacDaL/smk+axMCfHt2s+Z5RcHM5uG2ImAH1xvfz2/N+Qi3947pe +Xi5IfaJPeKn+gwBSbs1vqQcg7O/xiMOYBV+txaQXvS8EZY67DTZOLMhpyG/D +OlkImDcxmn2UBbOyuNp2MT8D/95jkqqXWXDz0pXBXL1n8HrnqTSbcRa0LvD5 +kp3/DMKkswOyE1lxkdN7qMXgOXS2dGiqNLPhmUmd+laeIsjUMK2yduBENUuu +1PsZxaA24LKLcoQT+yT6tpy8UQzN8cc6VaI4ceB0G4txQTGw917+xnmHE8vU +i6Nqqooh6syYZP0MJ4rld/xznSiGg+9jTunGc+EmlbJgcVIJEH2qKJtLuPHf +lV0+OQMl0MnX2sTXwI3PEjkhZLwEgmijDv96ubFzUmaFMlcCj3i4A/rXuDFe +7xzXC+ZSkCl2zrlswYOvmd8YuSiVAuf60hrnKA/qGrEPcxwvhb5r6rUL/LzI +I6fdrspeBtc7H28M38KL92WLJEo3loEr31aPFX1efKJ3NVZDvAwG46TXmL15 +cV3Z7xafahmMBHAbCJfx4myK71tb2zKY2vmlgujCh09tl1r/ZJfB7/mrz6Lu +bMSslNe3X8mXA11FaH29bCNmLPEQOVXLIfJQunX8u42ox1tdsFO7HP4OxM+m +/dyIE7q/+W/vLIeYMZpIqxw/7rq0MtR3sBziW+7Zj4Tx48wFLqlDd8shNT+6 +lVlcACtuw9s2QgVYaPsKisgLoLqx5cVnMhXA+drOYet2AZwzTg6KV6yA+LEt +A5aGAhhhpOrPr10Bp+SaJy77CmBQSpxZkXUFBOQS1hQrBXDMeEZN9GwF2N4s +UrV0E8Rgyeplv88VwK96I9DdRxDfnj5fzTNZAS1V8cWBgYK4QV8/I2+Gcf6A +k97lOEG0/CTtU7xcAUYSa8ZDjwVx0S7xgysvDbSvWbgF/hVE16fKP1qINBC7 +PJZ86ZYQxjYaF5mdpQFBpSz+d4EQ6nUdEzmQQAOJuoRo9+dCaJ8+9SUohQab +5pWOb60XwvXLpk3hmTTYYhXkWTUlhA2nF2ol82igxfqPOKYljNIKKqbvaxjn +3WjRMKMIY0wbqd21ngZEzVzVp6bCOCeZ1/O5gQYkT2O5CBdhlLol49b9gQaG +1cm8PNHCqGF0fL/LAA32hIl+0XwnjG2PmkMaF2lgwzM1fLVTGDdyF5m1LdPA +Lo/e93dQGClrDwpbV2jg2LavtWFOGDOf3lUvY6KDu+rdSlcREWyCEKLkf3Q4 ++kXt4llPEZy2fnhvrywd/KM2pE36iqC5w2ntbnk6BAh2JliFiuBl50L/PYp0 +CMHwU6IJIri2QWRkmwodTt6sPvzosQji+hHWE9p0SNxrTu34JYLPdm0YSjKh +g0RpiwTzBlGcYDH1e76LDoVCe5c1eETR367AqsWcDt0d+59flBHFJpt5idnd +dFCwDZOzNRPFWJK/YoUDHWjP/6zF2ImipOTWexed6GDFHz3wfJ8ojj5mSvdy +oUNoa/Jl/mBRdPz778HkPjrU7b7N3pYtillMI7bR3nRwfKowtn5XFJ3Vtgby ++tDh63+PatQKRbHZa/W/zEN0EGguPXGhThR/93zrOuNLh3wVkkNNsyjquk+w +T/rRQS+1RmOuWxQbDyq/NvGng6fFu6/W3xjfP0qcmwigw+LDPW/PLIni065H +3kpBjPi5uu4Wrouik61KkFcwI97GT/v4hMXwh9+l/bRQOvwzXWr5YCCG7187 +TP2MoENGQeTjf6ZieGfnpfBvJxjxszMlbbcVw1f9juV9JxnxvuE2PO8jhiw9 +R5yuR9FhRCFD+kWgGPImYI3/KUb88SIrMyfF0Kbz+bjOaTpcN95cYpUuhr1P +CqKenKHDjrv3Lpy6JoZfq4YXXKIZ+WFW8X+SJ4ZDB4W11xjs6PXcbPCJGOrc +fWqSHUOH6Vc6W/6rEEN6jIiySiwdTslWbTB4JYZ7+Ku/lDCYPxaHj74Xw6Uj +oie1zjLyg5ZX338Sw5i3nQZicXRovt0WujothltH9UOjGOy57mCjsiiGmuMu +F7sZvLh/QNVtTQzfPHt1fVs8I18vPblSOQl4hp31UjCDJTZNjFcKEtA6nXa6 +iMGFp4/WfZUioMvbqP1TDDYams+R2EpAGsecnug5hn4MwqMsNAjoFk7jJzPY +7+aqUySZgP1scdOODP63GqP9yISAuoFrDb4MznBjF+jfQ8B7qp+ehDJYoSp1 +lsuVgB5hwzlhDKZJCLzTP0hAe63KXH8GW0VeKfANIOAah065G4NH+iTjsk8Q +UJAiOmbI4FD9Ox5NZwlo9lpJRYbBFrl8i5ZpBHxUvvPlL8Z95ThOJbVkETDW +PfFqA4P/HJuWsr1NwKyDQpXpDG776FjU+YCAL+Z5lfYw+AH5tYljMQHFbt6e +5GBwdJ5Gf28VAc1DFn/TGPlz5Lod4PaGgOUzZE8vBu8I+o9luIWAxd8fbGZl +MFvPyauevQQsehVMyWHUZ5AyqTL2mYDnBNro6gxO5anbO7VIwObHO4epjHp6 +hahN+60RcJfYp7RKRv1JfTdPz3KIIydJ7MEOBk8VRBT8kBDHft/zGkwMvdTw +jpOOK4hjl4BfgTtDX1fC7FqXt4ujwW3ZrBKG/kyMtv/+i+J47OTZWTOGPqUe +Xk+LthDHbx5f3JMY+l3cyCnLvFccTzhlOtRG0iFvaNSc47A4Og8emhJn6P3k +Tpvh5CBxtEvwSCEz/GDz+EXIf5Hi2BNi9sqB4Zf1E9duCJwXR972otXQ43TY +J2w9K1kijqZm6yzODL9pRVXF5lSLY9HjmEIqw4/co9tEZRvEkedzK9emQDrQ +n7GAYp84TpkwfW5g+FnUkp6hvi6OaTuOHn91mA6zRYpbSjglsE6DkzuA0R9e +Ey7TdQQlsH6B31+I0T9CJwJGSVskMJ15psDMi1G/WAVtE0sJFE8S3u/O6D/3 +py42vt0rgV/Nd71uc6XDmT3r+yz2S6CyooEIhdGvtkv3n9sTLIHbfKwSmBzp +kEK70ONyVQILlV/xau2hw865lciAMQms3JHFZIGMfJhdVn41I4G/X3RNOFEZ +frizvV/olwRy89bpeRjQgbDXU5/OKYk8IbDDVY8OM7Q3yyw7JPGrEK1hgzod +Lp3NCMs+IYnfb9nMSGyiQ+OAksJMrCTq7P5i9kqSDn+16zupqZKYVPLE6oA4 +HQ5NLml+uSWJQ7u5XNKFGXqwclvYUS+JkzH5cze56TAqohjwmlcKby1dDLqw +xJiXgTXSYmJS2GW8wtPxgwZWjc4ffDdLoZ8YMY1vngblkamqG7WkMMe90+L4 +VxqkfJr/6uIshToCtB0rwzTQfFh1eC5PCi9fzOEYZ8y/WAPbAxJ60jjbasLt +xpinZvtzfugaSeOP7yxyV9JpwBfzLc7BShq3X7C+844xf2/WnyvI8JTGhcys +bzJxNKBZVH5jT5bGGIVHRqdCaTDvLB/+s08ao/s/5zDZ02D/8aWU5qhNOF32 +KtGdMf9JhdmlZ2pkkIXlQPK1oArY2dPy73ujDEZWPBMpPloB1kysuzw6ZPCS +Qqvg20MV4G0X0AfjMvh27Xrw2L4KMI2SjY5h24xjZBJOmFVAkMyvu4Yqm1Ey +NEicsLkCXh++PVsfzuDx9mSr9+Xg/3shppFXFm0dv+gti5TDHxX+4e0Ocji1 +tXL3Zc9SMHj8JPfKFXksFnFIZ04phgVBC0/HOgX03PNBj6X2OXxJ83QM4VDE +OJNugbkrT8F8LsJ8nLgVWVJFQzRZH8GMN2doafQ27MouoFbaFTD2dzHmxDol +7M9ouiT3Mw8EPyimP59TRnWj00pxgox9PemZDZGoiiYU9+DDadfhmoo+v9Dh +7VgawL7u+iML3kkY6vy8uAP7G7ujDrJkAkmqLkOtWw1THV7MNlamwai8wvB0 +vxqmHSsvG7mTBskqCSr5n9TQJLx3C1dyGvSSLBoI02qo8ObjZKpTGkS4dKxu ++KuGJ9SD7JyXUsHVMljrK786+iS+KebQToUrSQz7EtUxqfu809UXycDHkhd2 +4Kw6tj+uCVBgSgT2PzX2C/HqKEvkrAufToC170OasYnq2MvM2dffkQBz/eIL +uWnqeElWWKP3XgK0FV88NnJFHXtYmO8UWCVAplfsIY/H6ng9skQr9dY5EK3z +dHb/qI6CP9m19aziYVOsjIGLogaWUjN/GQ3EQmEop9zQNg309e1qEW+KBeqh +BY4DKhpY+GehfL08Ftwt6zuPqGsg/9Z7Wb8zY+GmyOGjJ0gauMvA/t4ty1gQ +f1R4/aq1BqpPKLQ+rYkB4U7Kn65wDazdxn/e2ScauLbsK7d7q4Fvhooc7sZH +gZ84WDxu0sC5ydi91r5R8I5XbpilWQMXfYXmN1pHQdqvSbayNg3c7qnb2C0W +BXyNoQ5i/Rp4EdiTgp9EguDR1MWBGQ3UsUy839p3EqSKKjV9BDXx0CBfX/vO +E7CDIv4swl0TPe4VCAm4HIcSed9VZk9NdOg2lpMxPA563PRd6V6aqHM4dMFY +6TgY9TiP5B/WRLfMDxntf8LAMfiaQEewJgqGWm5cvREG0ffEwlQTNPHD0eY/ +J76EQhuvqP7nQk306Sf8eX4uBBwWfc75F2liNFOF+ImgEOjvL2tfLtFEjVjn +NXu3EPhy38GPj66JT1iDusw1QuC3YdYNcr0msrY+41QdDgbZcOG1rB5N1P/V +wvKCHAwhw4L1FkxaOJx4/nQBWxA0Nux78YhZC6nNht92TwXCpmcFFdxsWqjf +fPlF4JtAeBdNevKOSwsTweqBSEwgyMl6ZVkIaWEA37fFyV8B0O5ddNhCUQsf +mJ6Lvfj1GKhP7/nPwkoL99f1idtPH4WE9mz2R9ZamNJnt9vo3VEYpI8xcdtq +oevL9uA9j49CUkrEUpODFr4QdNCsP3YURlRuD5t7aGFVUa8g36IfZAR8f24e +ooXtzLfPSLP7wdzPNAfza1q4puaQkABHYLD3juOt61oYQrHNyVQ4Au9elDst +3NTC8oSvrTSuI5CfOOKSfUcL2a1u7bD/eBhcJbX3Tz/SQi7HhrwXfofhjdHA +oeQXWnj8+91mp5uH4MZFpRNNo1r4uWTZW1TQB5LCqSelx7Uwr8WeFVYOQrib +fWTwpBb+23DGNHr0INhsOX1KfEYLzQo/e5uWHAR2eluM75IW3pPP+T7jcBCC +RyKSuTi18e/trrqU296wS63huvl2bRS5HBqcaOwFzuxme9vUtDE78MJ0uaoX ++A018TppauNQe2HkuogXpKd+iDmoq42t12fSBqYOQPfkx0PRhtro5q60XH3h +ABzMHdMsc9DGMRNJEBj1hLMCG95vPqONtJG4pnfqHnB56mz8/Rht5PfUHxTn +8oCCGlbqjjhtLL61ei/r8354d4yziJykjePS+eWCl/aDwLuNVx0ztbFc8Spp +0293yD27yTutQBvZCIezHd/tg5c/yavLLdqYobX0QT3dFe40V3jZt2uj7dIn +c+EAV4i/p/WusFMbp7cp2kpYu4K5k0q2T682gll6/Hk+V/hYKaHb+Vkb2XUH +RXkvusDX2D8hhYva+PHH31mHm84gyl/x9aCEDp7fHdhAeu8If6Y07WqldHBS +i5yu/cwRBl8V0iVldPCAPIfM7kuOcCe0IKlDXgdnOZ9u63dzBNWeLEXcroO/ +3/6t8vzuAEY5YV6MaY1KJdzyHOIOEKCq2d/uo4PCF8h8y3H2cHxZYsXjiA7K +HUvWTfK1h1N1LBLf/XTwrNdMtP4ee0h17nLhDtLBVTGtqVUJe3gQf6LPKFIH +1wz9wv6W2MHo4MveknQdDH+sXNv6zRYcz1v2ZFXoYFKHdulwsA24O2svy1fq +YJH84Iy2mw0clJcWK67WQSebFbP7O20glP7dseWVDh5h//Hjk5gNZIxf7GZv +1sGgqcjz5Og98I7S2xUxooOhgxR+723WQPl+8KMLFxGfGpMbh+9YgmjVrrxq +HiLGMUcJF5+2hO+JykEyfET8SwjXee5iCTmy8zzjgkQ85qdhoipoCWt7o4yD +pIi4GF3WtumcBdRUXSxOUCOiUSW5/G2IORgmv8wocSAi87+UNSb/XSDheGe/ +qDMRF1I9hQatdsEPuXjVk65E1Pl16cXg9l2QV23eSPUg4o4xKy3reVNgnv+4 +3nSEiH6pbHtnw02h3vFbwEgUEceYI11WUkzARIGwmzePiJTRjfUmH4yhdPaN +7MF8Isbb8i/wlRiDQkXor8oCIo5YdlQsXzMGVovW20ceE9GBHJ281ccY6gIT +ftSXEnGSRz7775oRUKsWr0a+JWLuFpkCDz0jINq1j07OENFk5yay0iuEAsno +CuocEdM2fHhS8AhBZFw1LWuBiD5CzC/gMsJiRJKO8S8iQhWH4evDCMW3ICln +nYhXvB9nCfEjqE0/3e4gqIspcb3Hvd9TYVtMyok6XV08YCZ+YJeZAVST77FZ +kXRR36DgU8QmA7BZrsnsMtBFz097VkcWyXAiYOnJlKEu2h0y/OOWR4bGfZ6f ++ax0cUW89OHsOgmO6BMt3Dx1MZWgmm7yRh8e/vgsuZikizlPXenMEbpALfz7 +4HSqLn5TSqh/a68LHb5iRI50XRRXsvZ5oa4LKyNWNhKXdPGglGCM/jciWLRW +xOMtXdytXpUZ4EWEr4/Pz6YV6eItY5nVay46oOyjX7OlXxc99mPLAV8tuCBn +vRI3qIurR2u063ZrweInL53RYV1sSglpN9XUgpeuaY9zxnQx//scc/WqJtjZ +fLoqNquLy+EbC2wzNOEk+VwQF5MeznltjGCr1YBGgXbZ2S16WPxpWSlMTx22 +t47vs9ymh04eyoM8suqQmbZy9aGyHta80a+t41KHfRwKfIfU9HDkwepGyQo1 +mPsbvjKsp4edw/9xK25QA9Epqc42Sz28UL7oEJW7HXxeHokvDdZDnYO6Kprc +KvD92NcIkzA9FL6/ctrhkzKckPY/2h2uhx0Ur/KKUmVIORVo9ztKD/fqLifr +eirDc1L4ZoMEPdQnWRRKVirB3/K46vrrenji8uWyHSe3QeaznMWOej3MnZPW +cZFTBCmPzVPeDXo4WjPp/HJtC9zjyxtYbNTDhQTLu84DW4B27F6daIse+n49 +m6qStQWGVJ5kuPbqoYvjaJ8RzxbY9oCuOjqjhxNPV9lWmBSgJvfjwQURfbxd +U2HznF8ORqxkPcIJ+ji8IDn/4qcsMP055rIqoY9CPvalv7plwciWw5ptsz6+ +En5aO3VLFho2kHTFlfXxdHlieuN2WWj2us1lSNXHxJ4GPhOHzdCv4FeYcUgf +M6ljQp5x0rDaVv5AxFcf26x5Ao7aS4PUaZa714/qo7dZ69EaeWlw77p5NT9I +Hx1fRtXAGykYOdcaQ4vUxyjfik9XeKRgckLbfiRdHx2ys53M70nA4oP1ZbUK +fXxRd0VfmZsAE46mucl0fTwyZDdDHBeDXtbzZmNV+jg2GPjkRK0YVHlKZF+p +1Uf/eTnK9QgxOEvQIf1r0keLwab/rKdEgT/J79S7QX38oXyjw6BTBFQPdzH5 +MJPwbfHe+34fhGCTiNTDl6wkpLO8ibpaKAT89V62BA7G+xe3dBcuCMHPTfN3 +3vOQcDeUhCnbC0FlN7expggJCcIhZ54OCIKZKZ5b30rCwNUfKXWLAuC95THX +9d0kbD3Q+vCmCT9Evtnvp2hDQvm4NGKrEj9k+Ai+L7YjYYxtgdUOPn6ovncy +7b0TCV8qaUmOFm4EYUWzjf8OkFDLKzeepZcPGhTHhT3DSVj6REdOncQLyttk +NiveJqFGZlXuRxI3YGNHTPEdElqPjSX68nKD45GEz9R8EjbkbN1tNsIFcQ9m +85wekrB53L3scwIXDG6r3pJcQkLqeeWliB5OSFdyUZl5S8ISgdqRznMcsKB8 +iVg8T8IlMb+LYcJs0NuMJkI/SXhYlnb22wIr1AZ8tw9bIiEmaD6/2soK6cXm +wcQVEo6dUr2QnsoKyiSmJ5UsZLRmc5H5zsYKXubHZOtFyaj2+26fFisLfDy8 +67+PBmR8WPbj+aTCBqjiWpLQATLujcl6dZJzA+Q9zlO6YkhGVsbupTfDBEFz +/0ydTcl4O/5ojH4pE/BGlMYO7iHj2xaQNDVlAtME2eUvXmTkojxruPNljUrL +X/28lETGhVIjNr72VSrROGzZIpWM6RL1783vrlLLPs/8l3uejMbrrnebj69S +izcN61pkkrGg8NzXe5Kr1CfXas/n3CBj5beoiht+K9TctHP6uwrJSBkq+GMg +8oeaHLbx4rVOMt51yDEtv/6LyimUVDDbRUYZlb4K0eO/qAlFTNVGvWQUUchy +Lt7zixr/fWFiZpCMYsKDzdlsv6hnjnw0MJwgo91WZ8LmsCVqyL7sqenfZLzx +cGdordsi1XWnPJI3GWBk09oSwf4H9d9HTr76zQa4Tbm2OE/jBzXX5/uAhbwB +atx6tPMQ/w/qRAI9wnWbAXr3s4ZktyxQQ5r2PDupaYC9k7E993YvUFOsT22i +mRpg2PxiCYfjPLXSueuvdqAB0m/9EFGQnKW6T1e+qw42wNybtf6O4zNUpsjc +azvDDFCBzMY5+WyGanrjqPbekwYYp/8+d7PpDLVjaIN/aJwBtlxMyv0S/o36 +1WvHQNFVxn2kLJZVp6epkscS6TtqDdD47/Wirv8mqenrh3RS6wxwXHRmT9aX +CSpzpmnR5GsDVDfel3+1eoL6tZztYW6TATbm2rZ5HZugVjLFXxPsNEDD4t0r +HB3jVNfLMRG/xg1wR8q2+zr3v1CvVZ3UeclDwUSPCLlTZ0ap/1m7FEnwUVCT +JZ/no/soNWZEb3sEPwVv766r9aKMUo+w/VZQF6GgjduEtvy/z1TdPeHCeZso +KJ++4Zti9Gdq92jIz3MaFLxi8c55Pm2EKsLtX7TbiYJyIzKppdeHqPnGpyPn +XSgoMiJzudJjiKp5Ot340j4KZvj+8lHfMkS1nn/e1XuAgurF3SZHigapCd1L +f7z9KZhv9dDvZ8sA9XdetFFkLAUHxPVEWqX7qQmDGTzS8RQ8kkti/B/3UYVF +8z7WJFDw5P0LtmfL+qjqya8PsaVRsFUu2KzOuo/qG8iVmnGFgvMNdzU6zvVS ++8mXOgseU7DteXP6dbYe6pHj+TfNCymYouiVtqOnm/qrsMxn5jkFq6qSyyUf +dlMF5XqXNcopaBzJw72+u5tqySkt9aKWgq/nlsm9N7qo1R8LDnZ2UVDn9eIj +q10fqRZ8tO3hvRRck1UbUNr0kdq7q+kXYYCCMYrNVxyXOqmLld+S9o9Q0JVp +x9Gb+Z3U7XfUn05/pWC3XvFAE3sntbrfMDxtloKDQ9QSoZEOqoWwPajNU7Dk +kty9B/QO6qHE4+1hSxT8qeFSVHSsg7pYm3Bd7DcF3QSfVyqYdVDPrlz1rlyh +oC+Hd/WIXAeVX/uhqvs/Ck6HGaiP/2un5hyrXFpfZ9R3cjZDo6+d+j9IGjna + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0996926200736694}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.0996926200736694}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c81f8Xx2WPL9mulYyUUfbFve49B5GVjOxEpCLZUVSI7CSl0pAkbWXf +iyJKlMzskcgqQpGi+N3fX5/H8/H5PB7v9znn9TrnfGS9Au18mJmYmLo3MDH9 +//lruOm1Qmo+1cPppuHVOlvqxxzCScPeszBu86orx0IdUKTVi9CbCfLJXwoi +LBDCbR71sPTmAXpXU5wsbEDgu1jmn55i8O+arxOy8IRP1daBiz11gFPsSwrm +QWCq8HVooacDaL/smk+axMCfHt2s+Z5RcHM5uG2ImAH1xvfz2/N+Qi3947pe +Xi5IfaJPeKn+gwBSbs1vqQcg7O/xiMOYBV+txaQXvS8EZY67DTZOLMhpyG/D +OlkImDcxmn2UBbOyuNp2MT8D/95jkqqXWXDz0pXBXL1n8HrnqTSbcRa0LvD5 +kp3/DMKkswOyE1lxkdN7qMXgOXS2dGiqNLPhmUmd+laeIsjUMK2yduBENUuu +1PsZxaA24LKLcoQT+yT6tpy8UQzN8cc6VaI4ceB0G4txQTGw917+xnmHE8vU +i6Nqqooh6syYZP0MJ4rld/xznSiGg+9jTunGc+EmlbJgcVIJEH2qKJtLuPHf +lV0+OQMl0MnX2sTXwI3PEjkhZLwEgmijDv96ubFzUmaFMlcCj3i4A/rXuDFe +7xzXC+ZSkCl2zrlswYOvmd8YuSiVAuf60hrnKA/qGrEPcxwvhb5r6rUL/LzI +I6fdrspeBtc7H28M38KL92WLJEo3loEr31aPFX1efKJ3NVZDvAwG46TXmL15 +cV3Z7xafahmMBHAbCJfx4myK71tb2zKY2vmlgujCh09tl1r/ZJfB7/mrz6Lu +bMSslNe3X8mXA11FaH29bCNmLPEQOVXLIfJQunX8u42ox1tdsFO7HP4OxM+m +/dyIE7q/+W/vLIeYMZpIqxw/7rq0MtR3sBziW+7Zj4Tx48wFLqlDd8shNT+6 +lVlcACtuw9s2QgVYaPsKisgLoLqx5cVnMhXA+drOYet2AZwzTg6KV6yA+LEt +A5aGAhhhpOrPr10Bp+SaJy77CmBQSpxZkXUFBOQS1hQrBXDMeEZN9GwF2N4s +UrV0E8Rgyeplv88VwK96I9DdRxDfnj5fzTNZAS1V8cWBgYK4QV8/I2+Gcf6A +k97lOEG0/CTtU7xcAUYSa8ZDjwVx0S7xgysvDbSvWbgF/hVE16fKP1qINBC7 +PJZ86ZYQxjYaF5mdpQFBpSz+d4EQ6nUdEzmQQAOJuoRo9+dCaJ8+9SUohQab +5pWOb60XwvXLpk3hmTTYYhXkWTUlhA2nF2ol82igxfqPOKYljNIKKqbvaxjn +3WjRMKMIY0wbqd21ngZEzVzVp6bCOCeZ1/O5gQYkT2O5CBdhlLol49b9gQaG +1cm8PNHCqGF0fL/LAA32hIl+0XwnjG2PmkMaF2lgwzM1fLVTGDdyF5m1LdPA +Lo/e93dQGClrDwpbV2jg2LavtWFOGDOf3lUvY6KDu+rdSlcREWyCEKLkf3Q4 ++kXt4llPEZy2fnhvrywd/KM2pE36iqC5w2ntbnk6BAh2JliFiuBl50L/PYp0 +CMHwU6IJIri2QWRkmwodTt6sPvzosQji+hHWE9p0SNxrTu34JYLPdm0YSjKh +g0RpiwTzBlGcYDH1e76LDoVCe5c1eETR367AqsWcDt0d+59flBHFJpt5idnd +dFCwDZOzNRPFWJK/YoUDHWjP/6zF2ImipOTWexed6GDFHz3wfJ8ojj5mSvdy +oUNoa/Jl/mBRdPz778HkPjrU7b7N3pYtillMI7bR3nRwfKowtn5XFJ3Vtgby ++tDh63+PatQKRbHZa/W/zEN0EGguPXGhThR/93zrOuNLh3wVkkNNsyjquk+w +T/rRQS+1RmOuWxQbDyq/NvGng6fFu6/W3xjfP0qcmwigw+LDPW/PLIni065H +3kpBjPi5uu4Wrouik61KkFcwI97GT/v4hMXwh9+l/bRQOvwzXWr5YCCG7187 +TP2MoENGQeTjf6ZieGfnpfBvJxjxszMlbbcVw1f9juV9JxnxvuE2PO8jhiw9 +R5yuR9FhRCFD+kWgGPImYI3/KUb88SIrMyfF0Kbz+bjOaTpcN95cYpUuhr1P +CqKenKHDjrv3Lpy6JoZfq4YXXKIZ+WFW8X+SJ4ZDB4W11xjs6PXcbPCJGOrc +fWqSHUOH6Vc6W/6rEEN6jIiySiwdTslWbTB4JYZ7+Ku/lDCYPxaHj74Xw6Uj +oie1zjLyg5ZX338Sw5i3nQZicXRovt0WujothltH9UOjGOy57mCjsiiGmuMu +F7sZvLh/QNVtTQzfPHt1fVs8I18vPblSOQl4hp31UjCDJTZNjFcKEtA6nXa6 +iMGFp4/WfZUioMvbqP1TDDYams+R2EpAGsecnug5hn4MwqMsNAjoFk7jJzPY +7+aqUySZgP1scdOODP63GqP9yISAuoFrDb4MznBjF+jfQ8B7qp+ehDJYoSp1 +lsuVgB5hwzlhDKZJCLzTP0hAe63KXH8GW0VeKfANIOAah065G4NH+iTjsk8Q +UJAiOmbI4FD9Ox5NZwlo9lpJRYbBFrl8i5ZpBHxUvvPlL8Z95ThOJbVkETDW +PfFqA4P/HJuWsr1NwKyDQpXpDG776FjU+YCAL+Z5lfYw+AH5tYljMQHFbt6e +5GBwdJ5Gf28VAc1DFn/TGPlz5Lod4PaGgOUzZE8vBu8I+o9luIWAxd8fbGZl +MFvPyauevQQsehVMyWHUZ5AyqTL2mYDnBNro6gxO5anbO7VIwObHO4epjHp6 +hahN+60RcJfYp7RKRv1JfTdPz3KIIydJ7MEOBk8VRBT8kBDHft/zGkwMvdTw +jpOOK4hjl4BfgTtDX1fC7FqXt4ujwW3ZrBKG/kyMtv/+i+J47OTZWTOGPqUe +Xk+LthDHbx5f3JMY+l3cyCnLvFccTzhlOtRG0iFvaNSc47A4Og8emhJn6P3k +Tpvh5CBxtEvwSCEz/GDz+EXIf5Hi2BNi9sqB4Zf1E9duCJwXR972otXQ43TY +J2w9K1kijqZm6yzODL9pRVXF5lSLY9HjmEIqw4/co9tEZRvEkedzK9emQDrQ +n7GAYp84TpkwfW5g+FnUkp6hvi6OaTuOHn91mA6zRYpbSjglsE6DkzuA0R9e +Ey7TdQQlsH6B31+I0T9CJwJGSVskMJ15psDMi1G/WAVtE0sJFE8S3u/O6D/3 +py42vt0rgV/Nd71uc6XDmT3r+yz2S6CyooEIhdGvtkv3n9sTLIHbfKwSmBzp +kEK70ONyVQILlV/xau2hw865lciAMQms3JHFZIGMfJhdVn41I4G/X3RNOFEZ +frizvV/olwRy89bpeRjQgbDXU5/OKYk8IbDDVY8OM7Q3yyw7JPGrEK1hgzod +Lp3NCMs+IYnfb9nMSGyiQ+OAksJMrCTq7P5i9kqSDn+16zupqZKYVPLE6oA4 +HQ5NLml+uSWJQ7u5XNKFGXqwclvYUS+JkzH5cze56TAqohjwmlcKby1dDLqw +xJiXgTXSYmJS2GW8wtPxgwZWjc4ffDdLoZ8YMY1vngblkamqG7WkMMe90+L4 +VxqkfJr/6uIshToCtB0rwzTQfFh1eC5PCi9fzOEYZ8y/WAPbAxJ60jjbasLt +xpinZvtzfugaSeOP7yxyV9JpwBfzLc7BShq3X7C+844xf2/WnyvI8JTGhcys +bzJxNKBZVH5jT5bGGIVHRqdCaTDvLB/+s08ao/s/5zDZ02D/8aWU5qhNOF32 +KtGdMf9JhdmlZ2pkkIXlQPK1oArY2dPy73ujDEZWPBMpPloB1kysuzw6ZPCS +Qqvg20MV4G0X0AfjMvh27Xrw2L4KMI2SjY5h24xjZBJOmFVAkMyvu4Yqm1Ey +NEicsLkCXh++PVsfzuDx9mSr9+Xg/3shppFXFm0dv+gti5TDHxX+4e0Ocji1 +tXL3Zc9SMHj8JPfKFXksFnFIZ04phgVBC0/HOgX03PNBj6X2OXxJ83QM4VDE +OJNugbkrT8F8LsJ8nLgVWVJFQzRZH8GMN2doafQ27MouoFbaFTD2dzHmxDol +7M9ouiT3Mw8EPyimP59TRnWj00pxgox9PemZDZGoiiYU9+DDadfhmoo+v9Dh +7VgawL7u+iML3kkY6vy8uAP7G7ujDrJkAkmqLkOtWw1THV7MNlamwai8wvB0 +vxqmHSsvG7mTBskqCSr5n9TQJLx3C1dyGvSSLBoI02qo8ObjZKpTGkS4dKxu ++KuGJ9SD7JyXUsHVMljrK786+iS+KebQToUrSQz7EtUxqfu809UXycDHkhd2 +4Kw6tj+uCVBgSgT2PzX2C/HqKEvkrAufToC170OasYnq2MvM2dffkQBz/eIL +uWnqeElWWKP3XgK0FV88NnJFHXtYmO8UWCVAplfsIY/H6ng9skQr9dY5EK3z +dHb/qI6CP9m19aziYVOsjIGLogaWUjN/GQ3EQmEop9zQNg309e1qEW+KBeqh +BY4DKhpY+GehfL08Ftwt6zuPqGsg/9Z7Wb8zY+GmyOGjJ0gauMvA/t4ty1gQ +f1R4/aq1BqpPKLQ+rYkB4U7Kn65wDazdxn/e2ScauLbsK7d7q4Fvhooc7sZH +gZ84WDxu0sC5ydi91r5R8I5XbpilWQMXfYXmN1pHQdqvSbayNg3c7qnb2C0W +BXyNoQ5i/Rp4EdiTgp9EguDR1MWBGQ3UsUy839p3EqSKKjV9BDXx0CBfX/vO +E7CDIv4swl0TPe4VCAm4HIcSed9VZk9NdOg2lpMxPA563PRd6V6aqHM4dMFY +6TgY9TiP5B/WRLfMDxntf8LAMfiaQEewJgqGWm5cvREG0ffEwlQTNPHD0eY/ +J76EQhuvqP7nQk306Sf8eX4uBBwWfc75F2liNFOF+ImgEOjvL2tfLtFEjVjn +NXu3EPhy38GPj66JT1iDusw1QuC3YdYNcr0msrY+41QdDgbZcOG1rB5N1P/V +wvKCHAwhw4L1FkxaOJx4/nQBWxA0Nux78YhZC6nNht92TwXCpmcFFdxsWqjf +fPlF4JtAeBdNevKOSwsTweqBSEwgyMl6ZVkIaWEA37fFyV8B0O5ddNhCUQsf +mJ6Lvfj1GKhP7/nPwkoL99f1idtPH4WE9mz2R9ZamNJnt9vo3VEYpI8xcdtq +oevL9uA9j49CUkrEUpODFr4QdNCsP3YURlRuD5t7aGFVUa8g36IfZAR8f24e +ooXtzLfPSLP7wdzPNAfza1q4puaQkABHYLD3juOt61oYQrHNyVQ4Au9elDst +3NTC8oSvrTSuI5CfOOKSfUcL2a1u7bD/eBhcJbX3Tz/SQi7HhrwXfofhjdHA +oeQXWnj8+91mp5uH4MZFpRNNo1r4uWTZW1TQB5LCqSelx7Uwr8WeFVYOQrib +fWTwpBb+23DGNHr0INhsOX1KfEYLzQo/e5uWHAR2eluM75IW3pPP+T7jcBCC +RyKSuTi18e/trrqU296wS63huvl2bRS5HBqcaOwFzuxme9vUtDE78MJ0uaoX ++A018TppauNQe2HkuogXpKd+iDmoq42t12fSBqYOQPfkx0PRhtro5q60XH3h +ABzMHdMsc9DGMRNJEBj1hLMCG95vPqONtJG4pnfqHnB56mz8/Rht5PfUHxTn +8oCCGlbqjjhtLL61ei/r8354d4yziJykjePS+eWCl/aDwLuNVx0ztbFc8Spp +0293yD27yTutQBvZCIezHd/tg5c/yavLLdqYobX0QT3dFe40V3jZt2uj7dIn +c+EAV4i/p/WusFMbp7cp2kpYu4K5k0q2T682gll6/Hk+V/hYKaHb+Vkb2XUH +RXkvusDX2D8hhYva+PHH31mHm84gyl/x9aCEDp7fHdhAeu8If6Y07WqldHBS +i5yu/cwRBl8V0iVldPCAPIfM7kuOcCe0IKlDXgdnOZ9u63dzBNWeLEXcroO/ +3/6t8vzuAEY5YV6MaY1KJdzyHOIOEKCq2d/uo4PCF8h8y3H2cHxZYsXjiA7K +HUvWTfK1h1N1LBLf/XTwrNdMtP4ee0h17nLhDtLBVTGtqVUJe3gQf6LPKFIH +1wz9wv6W2MHo4MveknQdDH+sXNv6zRYcz1v2ZFXoYFKHdulwsA24O2svy1fq +YJH84Iy2mw0clJcWK67WQSebFbP7O20glP7dseWVDh5h//Hjk5gNZIxf7GZv +1sGgqcjz5Og98I7S2xUxooOhgxR+723WQPl+8KMLFxGfGpMbh+9YgmjVrrxq +HiLGMUcJF5+2hO+JykEyfET8SwjXee5iCTmy8zzjgkQ85qdhoipoCWt7o4yD +pIi4GF3WtumcBdRUXSxOUCOiUSW5/G2IORgmv8wocSAi87+UNSb/XSDheGe/ +qDMRF1I9hQatdsEPuXjVk65E1Pl16cXg9l2QV23eSPUg4o4xKy3reVNgnv+4 +3nSEiH6pbHtnw02h3vFbwEgUEceYI11WUkzARIGwmzePiJTRjfUmH4yhdPaN +7MF8Isbb8i/wlRiDQkXor8oCIo5YdlQsXzMGVovW20ceE9GBHJ281ccY6gIT +ftSXEnGSRz7775oRUKsWr0a+JWLuFpkCDz0jINq1j07OENFk5yay0iuEAsno +CuocEdM2fHhS8AhBZFw1LWuBiD5CzC/gMsJiRJKO8S8iQhWH4evDCMW3ICln +nYhXvB9nCfEjqE0/3e4gqIspcb3Hvd9TYVtMyok6XV08YCZ+YJeZAVST77FZ +kXRR36DgU8QmA7BZrsnsMtBFz097VkcWyXAiYOnJlKEu2h0y/OOWR4bGfZ6f ++ax0cUW89OHsOgmO6BMt3Dx1MZWgmm7yRh8e/vgsuZikizlPXenMEbpALfz7 +4HSqLn5TSqh/a68LHb5iRI50XRRXsvZ5oa4LKyNWNhKXdPGglGCM/jciWLRW +xOMtXdytXpUZ4EWEr4/Pz6YV6eItY5nVay46oOyjX7OlXxc99mPLAV8tuCBn +vRI3qIurR2u063ZrweInL53RYV1sSglpN9XUgpeuaY9zxnQx//scc/WqJtjZ +fLoqNquLy+EbC2wzNOEk+VwQF5MeznltjGCr1YBGgXbZ2S16WPxpWSlMTx22 +t47vs9ymh04eyoM8suqQmbZy9aGyHta80a+t41KHfRwKfIfU9HDkwepGyQo1 +mPsbvjKsp4edw/9xK25QA9Epqc42Sz28UL7oEJW7HXxeHokvDdZDnYO6Kprc +KvD92NcIkzA9FL6/ctrhkzKckPY/2h2uhx0Ur/KKUmVIORVo9ztKD/fqLifr +eirDc1L4ZoMEPdQnWRRKVirB3/K46vrrenji8uWyHSe3QeaznMWOej3MnZPW +cZFTBCmPzVPeDXo4WjPp/HJtC9zjyxtYbNTDhQTLu84DW4B27F6daIse+n49 +m6qStQWGVJ5kuPbqoYvjaJ8RzxbY9oCuOjqjhxNPV9lWmBSgJvfjwQURfbxd +U2HznF8ORqxkPcIJ+ji8IDn/4qcsMP055rIqoY9CPvalv7plwciWw5ptsz6+ +En5aO3VLFho2kHTFlfXxdHlieuN2WWj2us1lSNXHxJ4GPhOHzdCv4FeYcUgf +M6ljQp5x0rDaVv5AxFcf26x5Ao7aS4PUaZa714/qo7dZ69EaeWlw77p5NT9I +Hx1fRtXAGykYOdcaQ4vUxyjfik9XeKRgckLbfiRdHx2ys53M70nA4oP1ZbUK +fXxRd0VfmZsAE46mucl0fTwyZDdDHBeDXtbzZmNV+jg2GPjkRK0YVHlKZF+p +1Uf/eTnK9QgxOEvQIf1r0keLwab/rKdEgT/J79S7QX38oXyjw6BTBFQPdzH5 +MJPwbfHe+34fhGCTiNTDl6wkpLO8ibpaKAT89V62BA7G+xe3dBcuCMHPTfN3 +3vOQcDeUhCnbC0FlN7expggJCcIhZ54OCIKZKZ5b30rCwNUfKXWLAuC95THX +9d0kbD3Q+vCmCT9Evtnvp2hDQvm4NGKrEj9k+Ai+L7YjYYxtgdUOPn6ovncy +7b0TCV8qaUmOFm4EYUWzjf8OkFDLKzeepZcPGhTHhT3DSVj6REdOncQLyttk +NiveJqFGZlXuRxI3YGNHTPEdElqPjSX68nKD45GEz9R8EjbkbN1tNsIFcQ9m +85wekrB53L3scwIXDG6r3pJcQkLqeeWliB5OSFdyUZl5S8ISgdqRznMcsKB8 +iVg8T8IlMb+LYcJs0NuMJkI/SXhYlnb22wIr1AZ8tw9bIiEmaD6/2soK6cXm +wcQVEo6dUr2QnsoKyiSmJ5UsZLRmc5H5zsYKXubHZOtFyaj2+26fFisLfDy8 +67+PBmR8WPbj+aTCBqjiWpLQATLujcl6dZJzA+Q9zlO6YkhGVsbupTfDBEFz +/0ydTcl4O/5ojH4pE/BGlMYO7iHj2xaQNDVlAtME2eUvXmTkojxruPNljUrL +X/28lETGhVIjNr72VSrROGzZIpWM6RL1783vrlLLPs/8l3uejMbrrnebj69S +izcN61pkkrGg8NzXe5Kr1CfXas/n3CBj5beoiht+K9TctHP6uwrJSBkq+GMg +8oeaHLbx4rVOMt51yDEtv/6LyimUVDDbRUYZlb4K0eO/qAlFTNVGvWQUUchy +Lt7zixr/fWFiZpCMYsKDzdlsv6hnjnw0MJwgo91WZ8LmsCVqyL7sqenfZLzx +cGdordsi1XWnPJI3GWBk09oSwf4H9d9HTr76zQa4Tbm2OE/jBzXX5/uAhbwB +atx6tPMQ/w/qRAI9wnWbAXr3s4ZktyxQQ5r2PDupaYC9k7E993YvUFOsT22i +mRpg2PxiCYfjPLXSueuvdqAB0m/9EFGQnKW6T1e+qw42wNybtf6O4zNUpsjc +azvDDFCBzMY5+WyGanrjqPbekwYYp/8+d7PpDLVjaIN/aJwBtlxMyv0S/o36 +1WvHQNFVxn2kLJZVp6epkscS6TtqDdD47/Wirv8mqenrh3RS6wxwXHRmT9aX +CSpzpmnR5GsDVDfel3+1eoL6tZztYW6TATbm2rZ5HZugVjLFXxPsNEDD4t0r +HB3jVNfLMRG/xg1wR8q2+zr3v1CvVZ3UeclDwUSPCLlTZ0ap/1m7FEnwUVCT +JZ/no/soNWZEb3sEPwVv766r9aKMUo+w/VZQF6GgjduEtvy/z1TdPeHCeZso +KJ++4Zti9Gdq92jIz3MaFLxi8c55Pm2EKsLtX7TbiYJyIzKppdeHqPnGpyPn +XSgoMiJzudJjiKp5Ot340j4KZvj+8lHfMkS1nn/e1XuAgurF3SZHigapCd1L +f7z9KZhv9dDvZ8sA9XdetFFkLAUHxPVEWqX7qQmDGTzS8RQ8kkti/B/3UYVF +8z7WJFDw5P0LtmfL+qjqya8PsaVRsFUu2KzOuo/qG8iVmnGFgvMNdzU6zvVS ++8mXOgseU7DteXP6dbYe6pHj+TfNCymYouiVtqOnm/qrsMxn5jkFq6qSyyUf +dlMF5XqXNcopaBzJw72+u5tqySkt9aKWgq/nlsm9N7qo1R8LDnZ2UVDn9eIj +q10fqRZ8tO3hvRRck1UbUNr0kdq7q+kXYYCCMYrNVxyXOqmLld+S9o9Q0JVp +x9Gb+Z3U7XfUn05/pWC3XvFAE3sntbrfMDxtloKDQ9QSoZEOqoWwPajNU7Dk +kty9B/QO6qHE4+1hSxT8qeFSVHSsg7pYm3Bd7DcF3QSfVyqYdVDPrlz1rlyh +oC+Hd/WIXAeVX/uhqvs/Ck6HGaiP/2un5hyrXFpfZ9R3cjZDo6+d+j9IGjna + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0996926200736694}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0996926200736694}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993853246051936*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"9eec02cb-c54d-4d51-b234-855a10f4ea4b"] +}, Open ]], Cell[CellGroupData[{ @@ -5684,66 +12630,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + "In[121]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 282, 273, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269930374*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1375787433553853`*^-113\\\", \ +RowBox[{\\\"1434861792526052823428066\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"150\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 45, + 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.9938532460919237`*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +In[121]:=",ExpressionUUID->"0282651d-9579-4c16-9426-cff1427a9f5e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372699413757`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.252300687890397`*^-115\\\", \ +RowBox[{\\\"7233138296123832282900882\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"153\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 46, + 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.993853246097975*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +In[121]:=",ExpressionUUID->"ca3e5db3-29d5-475e-9fed-5e2ae153e404"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269949375*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2905565515079383`*^-116\\\", \ +RowBox[{\\\"3749658892710594655455817\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"157\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 47, + 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.9938532461035233`*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +In[121]:=",ExpressionUUID->"e6d921d1-9c13-4c53-9f00-d354095129ab"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372699573765`*^9}, +during this calculation.\"", 2, 121, 48, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.993853246108665*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +In[121]:=",ExpressionUUID->"fd934138-dc88-434e-bafe-4c8134331afb"], -Cell[BoxData["9.332200719005147`"], "Output", - CellChangeTimes->{3.9913372766841774`*^9}, +Cell[BoxData["7.970491644561976`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9, 3.993853301102283*^9}, CellLabel-> - "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] + "Out[121]=",ExpressionUUID->"9d1e9dfd-31e3-4c7e-a82b-dc6297e3c0b2"] }, Open ]], Cell[CellGroupData[{ @@ -5810,68 +12763,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494640512295`*^9, - 3.991849468375696*^9}},ExpressionUUID->"53e25fab-b431-cc42-a467-\ -e4dea0353ed0"], + CellChangeTimes->{{3.9918494640512295`*^9, 3.991849468375696*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 277, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767181473`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.858594991223182`*^-220\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 122, 49, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.993853301136838*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +In[122]:=",ExpressionUUID->"1e5a2ecd-2c37-4f2b-9160-0c4d54b1c013"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 278, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767281475`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.969175963098212`*^-226\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 122, 50, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.9938533011449947`*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +In[122]:=",ExpressionUUID->"4ceea64d-14dc-4e7b-a138-f95e674378a3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 279, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767351475`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9170966158140716`*^-231\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 122, 51, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.993853301150426*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +In[122]:=",ExpressionUUID->"86950eab-1792-46a9-8a74-9db97dc91de2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337276743145*^9}, +during this calculation.\"", 2, 122, 52, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.993853301155661*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +In[122]:=",ExpressionUUID->"be5b3594-6065-4d8d-b365-7bb488ba9ce8"], -Cell[BoxData["0.5406905105605413`"], "Output", - CellChangeTimes->{3.991337284091696*^9}, +Cell[BoxData["0.006580395079152366`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.993853306007093*^9}, CellLabel-> - "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] + "Out[122]=",ExpressionUUID->"886148b5-5a0e-4208-bc7b-6dcea47430f3"] }, Open ]], Cell[CellGroupData[{ @@ -5892,8 +12849,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5938,68 +12894,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494737320137`*^9, - 3.9918494774550457`*^9}},ExpressionUUID->"b18c819e-620a-d449-97d6-\ -547e3a6fa152"], + CellChangeTimes->{{3.9918494737320137`*^9, 3.9918494774550457`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 281, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284131695*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.858594991223182`*^-220\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 123, 53, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.993853306043262*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +In[123]:=",ExpressionUUID->"f964f88e-eef2-4145-84a5-8d4bae4d873c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 282, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284142767*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.969175963098212`*^-226\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 123, 54, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.993853306050268*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +In[123]:=",ExpressionUUID->"dadf600d-53d9-4d07-a285-1ba5f1c51832"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 283, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284150778*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9170966158140716`*^-231\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 123, 55, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.993853306057922*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +In[123]:=",ExpressionUUID->"9d90d165-e955-4fcd-a3ba-a877e306aaa5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372841597614`*^9}, +during this calculation.\"", 2, 123, 56, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.993853306065694*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +In[123]:=",ExpressionUUID->"f8f8d130-9318-42be-8441-524e46d04b55"], -Cell[BoxData["2.9943030245183917`"], "Output", - CellChangeTimes->{3.9913372907074146`*^9}, +Cell[BoxData["15.887024559389499`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.993853310624666*^9}, CellLabel-> - "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] + "Out[123]=",ExpressionUUID->"48b8c291-e0f3-40ff-b594-f5995467f80b"] }, Open ]], Cell[CellGroupData[{ @@ -6020,8 +12980,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6066,68 +13025,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849482271084*^9, - 3.9918494852683945`*^9}},ExpressionUUID->"22ab74c7-5916-9440-9d7d-\ -c3e0f6ab8836"], + CellChangeTimes->{{3.991849482271084*^9, 3.9918494852683945`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 285, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337290744484*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.858594991223182`*^-220\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 124, 57, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.9938533106527643`*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +In[124]:=",ExpressionUUID->"43636447-2dee-4f2f-b8e2-8ebc45f3c473"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 286, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337290753483*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.969175963098212`*^-226\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 124, 58, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993853310661051*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +In[124]:=",ExpressionUUID->"e98929ae-fd3b-4a5f-8496-11381b64c155"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 287, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372907615204`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9170966158140716`*^-231\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 124, 59, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.9938533106689577`*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +In[124]:=",ExpressionUUID->"84e2a5d0-42e8-4786-98c9-06d60cd3e1c1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133729076952*^9}, +during this calculation.\"", 2, 124, 60, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993853310674665*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +In[124]:=",ExpressionUUID->"b17c2d88-68fe-413e-9936-f73c253f8584"], -Cell[BoxData["16.72305770548981`"], "Output", - CellChangeTimes->{3.991337294569908*^9}, +Cell[BoxData["1.387009165623437`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.993853313565301*^9}, CellLabel-> - "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] + "Out[124]=",ExpressionUUID->"103eba85-7302-4a9a-abcc-a33dd68c621d"] }, Open ]], Cell[CellGroupData[{ @@ -6136,22 +13099,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918494889040737`*^9, - 3.9918494971484394`*^9}},ExpressionUUID->"f9c66987-c237-7a40-a006-\ -e20e260dbdcb"], - -Cell[BoxData["0.07640873836855284`"], "Output", - CellChangeTimes->{3.9913372946009064`*^9}, + CellChangeTimes->{{3.9918494889040737`*^9, 3.9918494971484394`*^9}}, CellLabel-> - "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] + "In[125]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], + +Cell[BoxData["0.0014018160237777885`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.9938533135887413`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"b8b815d6-1afa-4c8e-bc5f-3c844d55ba63"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, - 3.9919248636163254`*^9},ExpressionUUID->"770a9ed7-7938-9e48-be64-\ -c31719ef3a6b"], + 3.9919248636163254`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ @@ -6174,12 +13138,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + "In[127]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[BoxData["7.13574266196526`"], "Output", - CellChangeTimes->{3.991337294629921*^9}, +Cell[BoxData["16.416331305035982`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.9938533135993357`*^9}, CellLabel-> - "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] + "Out[127]=",ExpressionUUID->"5bf54d30-f7c5-414b-b23c-673b4a8a6074"] }, Open ]], Cell[CellGroupData[{ @@ -6189,12 +13153,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + "In[128]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[BoxData["1.4042291233212119`"], "Output", - CellChangeTimes->{3.9913372946629753`*^9}, +Cell[BoxData["0.5428065934725972`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.993853313606008*^9}, CellLabel-> - "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] + "Out[128]=",ExpressionUUID->"2ad9ab64-a6d8-4d10-9e33-50e77a401b75"] }, Open ]], Cell[CellGroupData[{ @@ -6204,12 +13168,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + "In[129]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[BoxData["10.020217662457247`"], "Output", - CellChangeTimes->{3.9913372947367725`*^9}, +Cell[BoxData["8.910892873004137`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.9938533136125097`*^9}, CellLabel-> - "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] + "Out[129]=",ExpressionUUID->"85a02159-ab24-484a-9bbd-a6b9b4b282d9"] }, Open ]], Cell[CellGroupData[{ @@ -6399,12 +13363,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + "In[130]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[BoxData["0.06674599726273667`"], "Output", - CellChangeTimes->{3.9913372947513313`*^9}, +Cell[BoxData["0.012965183706241366`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.9938533136216717`*^9}, CellLabel-> - "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] + "Out[130]=",ExpressionUUID->"1c545733-17c6-4b05-9d63-b3170cf2c07d"] }, Open ]], Cell[CellGroupData[{ @@ -6418,12 +13382,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + "In[131]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[BoxData["3.430301770911147`"], "Output", - CellChangeTimes->{3.9913372948636913`*^9}, +Cell[BoxData["7.783153635870704`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.9938533137043133`*^9}, CellLabel-> - "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] + "Out[131]=",ExpressionUUID->"aae8c6c8-dbe6-4dec-bfc6-9b7006637411"] }, Open ]], Cell[CellGroupData[{ @@ -6615,12 +13579,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + "In[132]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[BoxData["0.01266539131451536`"], "Output", - CellChangeTimes->{3.991337294877693*^9}, +Cell[BoxData["0.10457425928148105`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.993853313716559*^9}, CellLabel-> - "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] + "Out[132]=",ExpressionUUID->"a90495a1-a26a-4fdf-80dc-0feae9b4b065"] }, Open ]], Cell[CellGroupData[{ @@ -6634,12 +13598,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + "In[133]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[BoxData["7.874729317258519`"], "Output", - CellChangeTimes->{3.991337294976324*^9}, +Cell[BoxData["2.740517263193266`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.993853313797858*^9}, CellLabel-> - "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] + "Out[133]=",ExpressionUUID->"0c445165-1d28-4263-95a1-9200e9f00f66"] }, Open ]], Cell[CellGroupData[{ @@ -6732,12 +13696,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + "In[134]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913372950022793`*^9}, +Cell[BoxData["0.08903677593802349`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.993853313810995*^9}, CellLabel-> - "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] + "Out[134]=",ExpressionUUID->"5b92dae6-afb2-4303-92de-ef2bd82d1f13"] }, Open ]], Cell[CellGroupData[{ @@ -6827,12 +13791,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + "In[135]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991337295013279*^9}, +Cell[BoxData["0.9109632240619764`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.993853313821355*^9}, CellLabel-> - "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] + "Out[135]=",ExpressionUUID->"a4bd8ef9-472b-4d85-a717-2fd75076908c"] }, Open ]], Cell[CellGroupData[{ @@ -6955,12 +13919,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + "In[136]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.991337295041279*^9}, +Cell[BoxData["0.08110922846858569`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.993853313830023*^9}, CellLabel-> - "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] + "Out[136]=",ExpressionUUID->"04e507a1-4a84-4254-af66-14b81de326dd"] }, Open ]], Cell[CellGroupData[{ @@ -6975,7 +13939,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -6997,8 +13963,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7022,68 +13987,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849517192892*^9},ExpressionUUID->"55d51961-97f2-ed4d-8bf8-\ -8a461d652ab4"], + CellChangeTimes->{3.991849517192892*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 301, 289, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950662746`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.738521980024158`*^-212\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 137, 61, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.993853313844666*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +In[137]:=",ExpressionUUID->"c812b00b-d4fb-4437-9180-56078cd6ce65"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 290, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337295076277*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.319363413155982`*^-217\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 137, 62, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.993853313852735*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +In[137]:=",ExpressionUUID->"1133b00c-498e-4192-84f0-1c5379cef0a2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 291, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950842743`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.926277908704135`*^-222\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 137, 63, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.99385331385888*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +In[137]:=",ExpressionUUID->"500a4260-358e-4b38-a90c-a031458460c8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950922775`*^9}, +during this calculation.\"", 2, 137, 64, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.9938533138644667`*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +In[137]:=",ExpressionUUID->"35df80a9-fcab-48a3-af38-400f8c8685a2"], -Cell[BoxData["3.430301770911144`"], "Output", - CellChangeTimes->{3.991337298790371*^9}, +Cell[BoxData["7.783153635870713`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.993853316630127*^9}, CellLabel-> - "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] + "Out[137]=",ExpressionUUID->"a3a8c61d-b30c-43cb-84ef-1fdc5dcdb54f"] }, Open ]], Cell[CellGroupData[{ @@ -7098,7 +14067,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -7120,8 +14091,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7145,68 +14115,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849520751028*^9},ExpressionUUID->"9704b9d3-b449-2144-9970-\ -6a7de047241d"], + CellChangeTimes->{3.991849520751028*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 302, 293, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988243732`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.738521980024158`*^-212\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 138, 65, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.993853316657201*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +In[138]:=",ExpressionUUID->"ceb4b6a8-fa0e-4e29-b9c3-941034d67da4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 294, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988343716`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.319363413155982`*^-217\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 138, 66, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.993853316662842*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +In[138]:=",ExpressionUUID->"049dfdc7-320c-4c4e-bafa-5de605aea4f3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 295, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988425922`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.926277908704135`*^-222\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 138, 67, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.993853316668169*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +In[138]:=",ExpressionUUID->"c2b2c23e-0b4c-44df-ae7d-08c9a859b9be"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988505898`*^9}, +during this calculation.\"", 2, 138, 68, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.993853316673374*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +In[138]:=",ExpressionUUID->"54f46146-5147-458e-b094-0b13a0e6c428"], -Cell[BoxData["7.87472931725852`"], "Output", - CellChangeTimes->{3.991337302457178*^9}, +Cell[BoxData["2.7405172631932677`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.9938533193924217`*^9}, CellLabel-> - "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] + "Out[138]=",ExpressionUUID->"c1fde63f-e98b-46fc-9227-e0e3592e822c"] }, Open ]], Cell[CellGroupData[{ @@ -7264,94 +14238,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849523511486*^9},ExpressionUUID->"0fd90636-7592-fc40-bf9d-\ -ae1cb915c656"], + CellChangeTimes->{3.991849523511486*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk4VdsbB3BzMmXIHJl/mXWOMWq9ppQpZIyM+2xSSUguIpUmieSGLpkj +SUkpwxVRJJU0aCKEwiE2Ebn81vljP/v5PHut737XtLdi4CEXBgcbG9skvlj3 +wy91/veg++U23mbkkyvIRNumSgwCrSpR4/X4aJYH8g0zVawa0ZH0zU9YdiJe +8AjQn6Adcb478rCrYxJbua260HgQJ9s17HNPpZoTK16jLGsFJst13YevLdPe +oQMy9wUKsMc/dcb/1fAB8XxuCSjElhlR9p63/IJeJmyfKMK2+xlvEtn1FTX/ +sbhRgt20PM4fUzGICrc/+Oc69vskybjasG+o3KX4cTn2FI/V+BxtBImLrpG/ +ic1zIdyLvjCK9h8ZunULW14kr+Nwww9EO2AQcQfbUXb++pQlE5V1mmfXYpMF +ShLavFMogu/PYh12ouqu5P1dP9GHVM30f7E/SL7dHFUxg36wUV5PsIk9ofsu +X6CQTNOZ1GfY07lshXfDZlGnV+avF9i8StrCM7RfqPehSFAvdibRaiMsPo82 +oRMhX7AVyrwSdRfmUZz6vqJBbGOt01MHG36j+4U5NUzsEMOvXeOWy0hIIsmO +W4iJ5mKOcPGp/Ye0/i2Y48c+3sBvps67glovG/SIYmeD8c3grlU0JNukoYhN +lHZYRVSwA42wdgbsiqeXB5JkOWDSZ+21HdjT333jL13gAI8/sNEZO17jV82d +ME5YseV7FIideVtR+SeNG8x6VyLPYn/qZjatFHPD4XIvIgNbgXqwR0icBwxB +7VwudqW+Y4b2Ag+k1IuFV2O31cWyH2jgBQtn45o+7F+tb77+sBSAlb3BQrCO +iUTtBYTjmgSgQecB4Yit99YKBE0EwbK15LcPdujw/YLNOkJgFOPxMRY7nKNL +b6uAMOwKE0qowx5RqppJnhcBQz8PVwthPD9k59pXdFHQ0bA75YrNcXNUUeqw +KDwZfjtDYivQN7pUTIgC+2xZ8gXsPZbpd18OiEHSZbP0T9ivgiIiJZ+Lg+zz +q3onRJiov+xiij+vBBjsLzPJxmZOVBTfsJaA0/ZwvAqbL+rbG9NmCbBRW//0 +M7bVKVd9//uS4CO+Wd9ElInqSwx/ledLQ3pLQc4qdsnIUvSWKDnwdVs+Wb+e +iXa4nemPvCUHHS3LFu+xmW1i22+NysHh0nQjClu/REtcwUsehoYOtWiI4/kM +9K3h3rYRevcseFzDpn4OHP1xUgGWqxLS0iSYSOyg1b0aByXoVGlXuirFRKMl +fCFOoUrwIOp2RiP2wy/dspOnlUCMW8T4K7aP/d6Tas1KMIvMlFWlcX2a0S45 +NGXQ3SIdV4OtP142nSCpAkP+0nqfZJjINZhf23ZQFXjNbcp3yTERinajefyn +Cs+Sjs0fxdZIzjcipNXg0LGlowXYbMV0iwRnNRBJbltPYd/q9/a426IGmSVx +97Pk8fl0r0ySKfof8GqdzWBuxPVZObwfD1SHHvmgmkYlJirenfV5IUEdjLZ6 +hExgXwwcHOD6Rx0mY8KcZJTx/j5+ZEL+jTp8j2Gvj8EWacxj222pAUuFWZSR +Ct4/9CmNBmVNIGzDfz9SZSJZpbTElGEt8O357jC/iYkaz8+pL3Jog6G15Hdd +dTwfs15vSUVtiE6waNyHfa1NRd3CVxtWTZNl+rGVgut7fvdqg4j5+evPNPB4 +K0dUyec6kLuwsnRTi4nkZOVJBS89uHoj/WyeHhNplUYJ/EE0sFLpbKebMFEg +cfKXtiMNKms7jh7FzlbO6Pf3oUHLzSveDdicRbfvPI2hwbr9OU2WW/B5uzbu +mlFNA98iHsrdFH9Ps/3z1JXpoMzbL3BmK17fFHsdTx59OPlqI7eQBRMVRqg4 +3e8ygNMH2tJq7ZioOxoZnSo1gU1HVYuIICZS9H3nuPfAVpCnn1wxT2Aixmpt +ldxfAC8ztWsTrzKR5MTDNZKBFnCa6KWfbWSiKLrZlwwNK+iL/28s/Cuuf3K5 +Q2zcGkZ4N/Od45pEtywi1+S/soEyRbesMd1JVDIX2lKZuROC3C6PmnpPot/m +Ui/aEu1gpaNgWSd1EvWxcc4MBjjAWPuUm3zLJArbcCg9SXkX1J66YcA1N4mq +9nU0/53sBLOFgZyPtadQ7Kz0guY+Z5ivGdcZYkyhX7bb3dv9XOCZMA9JlUwh +E+9L5iPOu+HE3ZbBqeEp1COdF9pGdwX1S4f4dyj9RDLXTzaWb3KDFUO5cD/y +J3o4oGHvKOgOM1XiEvplP5H82+ng6El3sLZ8uFr7/Sei/32psnjAAz7UL4aA +5DTK45rVyWj1hOTz+oJnjKdRrbnup+Q6L9gmmDR2z2caZRudF1mu2ANiY6X5 +2sen0avPpafpF7zhRUWcjGjhNLrvkKsSftwHGnw2lvq0TaOZg7vZwoi90DCq +p985PI1+bVcPmbL0Ba3UtWdmOGdQ+eTH35GGfvCnV1K/T2UGeRaWBu0V8Af+ +YKnDVyxmUM1dOz/OM/7QcdZ1JCVgBpnI9iyeW/SHF9FjXjLHZpDyQPCn1/sC +4KPLF72aKzNomH//rtxvAdC3Empfe2cGdV90DLJxC4Rv+vNbae0zKDMmn/9I +dyDolLlvjeybQY1Nq4tBO4PA4tWlds6ZGbTOB87Q64NgVmSVQ5adQgrr219t +aAwCr1MGAj7Yel0OUjxNQdCWZsnMxXYx877xoSUITsd26MlzUChzQ/TzY8+C +wLinpFOeE/8n+26u6/gQBMxEXVMpbgqp+Epm+ywEwZWKe18meClk4j9VnqxP +wHqjxJz1whS6njMd6WhIQH1K9wkb7PVvqG2SxgQc3/Noeyz2lPXC23JTAuxq +/X2/YpdosrF3WRBQ7KfUVSZCIaEFES9RZwJkNmjnbRaj0HCqwdr8gwQ8co+n +NklQyLnd6G3wIQJMlBtVPbCb2Lbk6x0m4HnvEi0ZOydym8HjKAJ85QI/D2A7 +etkEjMQRcOe7a9AVSQrVqXjVaZ4nIFKlyW5JikIXG+L3PbxOgNjjRd9SWQod +pGWZxJQT0D+qufgC2/5G9VrjCgKuVzmEzWPzZY3eeHCLACF1p7HtGyiUHOE0 +XnuPgIe5g4qj2PHqKvvvP8btH3XkyMlTKDTr+YG7/QSk6vw6F65AoZ1Co2YR +AwTs6MmPzcTelMwmSBsiYM1cs/VD7NEIg1vVIwS8O+a5fxU7wDF/8g6TgCr+ +2NkURQp5ckeG3V4iQGlNwlyeEoVsImXCKyUYUDzHVlSqQqHH+adtM6QY8DFN +8ng7tlkXpRIjw4D1/cc3j2HrqT7/aCnPgIhOUyEtVQpJ98ZZflZlgO6Jkarb +2BNb+iT4DBjw2qHqXJUahdI4Cv4N3s2A33W7U85vwuPXFch2cGPAvrr4ruvY +p7xjIugeDIhfPjnwGDvmntP/VvcwQGODQtISdgDJfulKIAOSUuklweoUoncG +Ek8OM8CqeyXMRINCvZdU+ZXTGTAp8Ju9QZNCVUgw5MclBuzs/UeyG/vU5Fzb +rcsMkI0r4B7Bpu1sSzDOYoBQfWuokBZeP7YgyuEaA/iGDb38sLcfKvgYU8mA +1gLOJ4vYcnJnDbdVMYD40eAnoE2huc5Dlznv4PGev9cjj12khhwu1jBgq62f +uSX2f319zcX1DNAuJM3PY9+zly1/2cGA7E03OoV1KJSyxMGd2ckACb8LPxSw +A8vHA7y6GKCWeLlfD1uYq152+BUDwqZ4djthH2jwTFt8zwCxNLe9qdjKGlei +VUYYsOeg0fwq9lLvsTdjowxolMn7W1CXQt3JDL3bP3B/NyFBWeyEQf1xEyYD +uCYETxlgf8p+s3fXLAMmnnhnhGBnrBGxjmUnIV1DRLcdu5Hq847iJKHfXDnr +Dfb3voqIMG4STNlcXnzFNrtnVRC4lgQh+mrxAvaof8wfWxESnOXCllT0cP32 +1qLWYiTcYW55o4ttaiSqjsRJUE+Rit2CnS5Y6U6XJoG3lY22i/W8/mu1rCIJ +ioS/bTQ2WVrZIa5MgtWTi5cTWe3T//q6TpUEkwetFWexR0kxQS51ElTLzSyv +sp6L2YQw9Ug4mm+3oQG7fkUscZRGQoZp2rvH2CNjA38P6JMQ1dbt04m9pTm2 +9a0xCcltO999wB4+UCX/L5DwbHnx4Cy2kGecwQML/H5nsaxFbBPLHfbVViS4 +n1O+uIp9UXror9IdJDTnqI7ybabQQ67b6fm2JAwui9sIY3/7GVeWY0+CkdfS +EXFs46fi71KdSOj0yt26ETuwemjijAvOb/R8r4ydmnub44QrCfsyebZuwh6K +2KkX7UnCjxD9KD1sQV8Jm/A9JEy711jps/J2ftsb6kMC+zXFb0as/huPpfj6 +k+Ab0HluG6sePtsiz0ASXnNwZZiz8n5J1LkQJOTaaIZYsfIGv72yJ0kge5CA +DSuv687o9hASdtibJ+xk1ffg2H8QSsILQrfJjpVfZLve9AAJzNdruxxY+amS +mgZhJPA5dZftYuXHDJvrhpPAXXTC2RlbgKj2VI8gQeGSwjMXbKNdCYeUo0iQ +mLwh5MrK32J3Wi6aBP4L8kpu2BdUpfIkY0jIsU3gdMeuFR6pEYkloYP/2V2W +B/9Ud/LHkyBYt6Lrwcr/njDInUDCbouNcSwb9tj9Xk0kYTJPI5Pl/wNq18sy + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7365,106 +14340,106 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc +1:eJwV1Xk4VdsbB3BzMmXIHJl/mXWOMWq9ppQpZIyM+2xSSUguIpUmieSGLpkj +SUkpwxVRJJU0aCKEwiE2Ebn81vljP/v5PHut737XtLdi4CEXBgcbG9skvlj3 +wy91/veg++U23mbkkyvIRNumSgwCrSpR4/X4aJYH8g0zVawa0ZH0zU9YdiJe +8AjQn6Adcb478rCrYxJbua260HgQJ9s17HNPpZoTK16jLGsFJst13YevLdPe +oQMy9wUKsMc/dcb/1fAB8XxuCSjElhlR9p63/IJeJmyfKMK2+xlvEtn1FTX/ +sbhRgt20PM4fUzGICrc/+Oc69vskybjasG+o3KX4cTn2FI/V+BxtBImLrpG/ +ic1zIdyLvjCK9h8ZunULW14kr+Nwww9EO2AQcQfbUXb++pQlE5V1mmfXYpMF +ShLavFMogu/PYh12ouqu5P1dP9GHVM30f7E/SL7dHFUxg36wUV5PsIk9ofsu +X6CQTNOZ1GfY07lshXfDZlGnV+avF9i8StrCM7RfqPehSFAvdibRaiMsPo82 +oRMhX7AVyrwSdRfmUZz6vqJBbGOt01MHG36j+4U5NUzsEMOvXeOWy0hIIsmO +W4iJ5mKOcPGp/Ye0/i2Y48c+3sBvps67glovG/SIYmeD8c3grlU0JNukoYhN +lHZYRVSwA42wdgbsiqeXB5JkOWDSZ+21HdjT333jL13gAI8/sNEZO17jV82d +ME5YseV7FIideVtR+SeNG8x6VyLPYn/qZjatFHPD4XIvIgNbgXqwR0icBwxB +7VwudqW+Y4b2Ag+k1IuFV2O31cWyH2jgBQtn45o+7F+tb77+sBSAlb3BQrCO +iUTtBYTjmgSgQecB4Yit99YKBE0EwbK15LcPdujw/YLNOkJgFOPxMRY7nKNL +b6uAMOwKE0qowx5RqppJnhcBQz8PVwthPD9k59pXdFHQ0bA75YrNcXNUUeqw +KDwZfjtDYivQN7pUTIgC+2xZ8gXsPZbpd18OiEHSZbP0T9ivgiIiJZ+Lg+zz +q3onRJiov+xiij+vBBjsLzPJxmZOVBTfsJaA0/ZwvAqbL+rbG9NmCbBRW//0 +M7bVKVd9//uS4CO+Wd9ElInqSwx/ledLQ3pLQc4qdsnIUvSWKDnwdVs+Wb+e +iXa4nemPvCUHHS3LFu+xmW1i22+NysHh0nQjClu/REtcwUsehoYOtWiI4/kM +9K3h3rYRevcseFzDpn4OHP1xUgGWqxLS0iSYSOyg1b0aByXoVGlXuirFRKMl +fCFOoUrwIOp2RiP2wy/dspOnlUCMW8T4K7aP/d6Tas1KMIvMlFWlcX2a0S45 +NGXQ3SIdV4OtP142nSCpAkP+0nqfZJjINZhf23ZQFXjNbcp3yTERinajefyn +Cs+Sjs0fxdZIzjcipNXg0LGlowXYbMV0iwRnNRBJbltPYd/q9/a426IGmSVx +97Pk8fl0r0ySKfof8GqdzWBuxPVZObwfD1SHHvmgmkYlJirenfV5IUEdjLZ6 +hExgXwwcHOD6Rx0mY8KcZJTx/j5+ZEL+jTp8j2Gvj8EWacxj222pAUuFWZSR +Ct4/9CmNBmVNIGzDfz9SZSJZpbTElGEt8O357jC/iYkaz8+pL3Jog6G15Hdd +dTwfs15vSUVtiE6waNyHfa1NRd3CVxtWTZNl+rGVgut7fvdqg4j5+evPNPB4 +K0dUyec6kLuwsnRTi4nkZOVJBS89uHoj/WyeHhNplUYJ/EE0sFLpbKebMFEg +cfKXtiMNKms7jh7FzlbO6Pf3oUHLzSveDdicRbfvPI2hwbr9OU2WW/B5uzbu +mlFNA98iHsrdFH9Ps/3z1JXpoMzbL3BmK17fFHsdTx59OPlqI7eQBRMVRqg4 +3e8ygNMH2tJq7ZioOxoZnSo1gU1HVYuIICZS9H3nuPfAVpCnn1wxT2Aixmpt +ldxfAC8ztWsTrzKR5MTDNZKBFnCa6KWfbWSiKLrZlwwNK+iL/28s/Cuuf3K5 +Q2zcGkZ4N/Od45pEtywi1+S/soEyRbesMd1JVDIX2lKZuROC3C6PmnpPot/m +Ui/aEu1gpaNgWSd1EvWxcc4MBjjAWPuUm3zLJArbcCg9SXkX1J66YcA1N4mq +9nU0/53sBLOFgZyPtadQ7Kz0guY+Z5ivGdcZYkyhX7bb3dv9XOCZMA9JlUwh +E+9L5iPOu+HE3ZbBqeEp1COdF9pGdwX1S4f4dyj9RDLXTzaWb3KDFUO5cD/y +J3o4oGHvKOgOM1XiEvplP5H82+ng6El3sLZ8uFr7/Sei/32psnjAAz7UL4aA +5DTK45rVyWj1hOTz+oJnjKdRrbnup+Q6L9gmmDR2z2caZRudF1mu2ANiY6X5 +2sen0avPpafpF7zhRUWcjGjhNLrvkKsSftwHGnw2lvq0TaOZg7vZwoi90DCq +p985PI1+bVcPmbL0Ba3UtWdmOGdQ+eTH35GGfvCnV1K/T2UGeRaWBu0V8Af+ +YKnDVyxmUM1dOz/OM/7QcdZ1JCVgBpnI9iyeW/SHF9FjXjLHZpDyQPCn1/sC +4KPLF72aKzNomH//rtxvAdC3Empfe2cGdV90DLJxC4Rv+vNbae0zKDMmn/9I +dyDolLlvjeybQY1Nq4tBO4PA4tWlds6ZGbTOB87Q64NgVmSVQ5adQgrr219t +aAwCr1MGAj7Yel0OUjxNQdCWZsnMxXYx877xoSUITsd26MlzUChzQ/TzY8+C +wLinpFOeE/8n+26u6/gQBMxEXVMpbgqp+Epm+ywEwZWKe18meClk4j9VnqxP +wHqjxJz1whS6njMd6WhIQH1K9wkb7PVvqG2SxgQc3/Noeyz2lPXC23JTAuxq +/X2/YpdosrF3WRBQ7KfUVSZCIaEFES9RZwJkNmjnbRaj0HCqwdr8gwQ8co+n +NklQyLnd6G3wIQJMlBtVPbCb2Lbk6x0m4HnvEi0ZOydym8HjKAJ85QI/D2A7 +etkEjMQRcOe7a9AVSQrVqXjVaZ4nIFKlyW5JikIXG+L3PbxOgNjjRd9SWQod +pGWZxJQT0D+qufgC2/5G9VrjCgKuVzmEzWPzZY3eeHCLACF1p7HtGyiUHOE0 +XnuPgIe5g4qj2PHqKvvvP8btH3XkyMlTKDTr+YG7/QSk6vw6F65AoZ1Co2YR +AwTs6MmPzcTelMwmSBsiYM1cs/VD7NEIg1vVIwS8O+a5fxU7wDF/8g6TgCr+ +2NkURQp5ckeG3V4iQGlNwlyeEoVsImXCKyUYUDzHVlSqQqHH+adtM6QY8DFN +8ng7tlkXpRIjw4D1/cc3j2HrqT7/aCnPgIhOUyEtVQpJ98ZZflZlgO6Jkarb +2BNb+iT4DBjw2qHqXJUahdI4Cv4N3s2A33W7U85vwuPXFch2cGPAvrr4ruvY +p7xjIugeDIhfPjnwGDvmntP/VvcwQGODQtISdgDJfulKIAOSUuklweoUoncG +Ek8OM8CqeyXMRINCvZdU+ZXTGTAp8Ju9QZNCVUgw5MclBuzs/UeyG/vU5Fzb +rcsMkI0r4B7Bpu1sSzDOYoBQfWuokBZeP7YgyuEaA/iGDb38sLcfKvgYU8mA +1gLOJ4vYcnJnDbdVMYD40eAnoE2huc5Dlznv4PGev9cjj12khhwu1jBgq62f +uSX2f319zcX1DNAuJM3PY9+zly1/2cGA7E03OoV1KJSyxMGd2ckACb8LPxSw +A8vHA7y6GKCWeLlfD1uYq152+BUDwqZ4djthH2jwTFt8zwCxNLe9qdjKGlei +VUYYsOeg0fwq9lLvsTdjowxolMn7W1CXQt3JDL3bP3B/NyFBWeyEQf1xEyYD +uCYETxlgf8p+s3fXLAMmnnhnhGBnrBGxjmUnIV1DRLcdu5Hq847iJKHfXDnr +Dfb3voqIMG4STNlcXnzFNrtnVRC4lgQh+mrxAvaof8wfWxESnOXCllT0cP32 +1qLWYiTcYW55o4ttaiSqjsRJUE+Rit2CnS5Y6U6XJoG3lY22i/W8/mu1rCIJ +ioS/bTQ2WVrZIa5MgtWTi5cTWe3T//q6TpUEkwetFWexR0kxQS51ElTLzSyv +sp6L2YQw9Ug4mm+3oQG7fkUscZRGQoZp2rvH2CNjA38P6JMQ1dbt04m9pTm2 +9a0xCcltO999wB4+UCX/L5DwbHnx4Cy2kGecwQML/H5nsaxFbBPLHfbVViS4 +n1O+uIp9UXror9IdJDTnqI7ybabQQ67b6fm2JAwui9sIY3/7GVeWY0+CkdfS +EXFs46fi71KdSOj0yt26ETuwemjijAvOb/R8r4ydmnub44QrCfsyebZuwh6K +2KkX7UnCjxD9KD1sQV8Jm/A9JEy711jps/J2ftsb6kMC+zXFb0as/huPpfj6 +k+Ab0HluG6sePtsiz0ASXnNwZZiz8n5J1LkQJOTaaIZYsfIGv72yJ0kge5CA +DSuv687o9hASdtibJ+xk1ffg2H8QSsILQrfJjpVfZLve9AAJzNdruxxY+amS +mgZhJPA5dZftYuXHDJvrhpPAXXTC2RlbgKj2VI8gQeGSwjMXbKNdCYeUo0iQ +mLwh5MrK32J3Wi6aBP4L8kpu2BdUpfIkY0jIsU3gdMeuFR6pEYkloYP/2V2W +B/9Ud/LHkyBYt6Lrwcr/njDInUDCbouNcSwb9tj9Xk0kYTJPI5Pl/wNq18sy + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "PlotRange" -> {{0, 180}, {0.8766614724863766, 1.137046412253649}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8766614724863786}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7476,21 +14451,20 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.8766614724863766, 1.137046412253649}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.8766614724863786}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7504,104 +14478,105 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc +1:eJwV1Xk4VdsbB3BzMmXIHJl/mXWOMWq9ppQpZIyM+2xSSUguIpUmieSGLpkj +SUkpwxVRJJU0aCKEwiE2Ebn81vljP/v5PHut737XtLdi4CEXBgcbG9skvlj3 +wy91/veg++U23mbkkyvIRNumSgwCrSpR4/X4aJYH8g0zVawa0ZH0zU9YdiJe +8AjQn6Adcb478rCrYxJbua260HgQJ9s17HNPpZoTK16jLGsFJst13YevLdPe +oQMy9wUKsMc/dcb/1fAB8XxuCSjElhlR9p63/IJeJmyfKMK2+xlvEtn1FTX/ +sbhRgt20PM4fUzGICrc/+Oc69vskybjasG+o3KX4cTn2FI/V+BxtBImLrpG/ +ic1zIdyLvjCK9h8ZunULW14kr+Nwww9EO2AQcQfbUXb++pQlE5V1mmfXYpMF +ShLavFMogu/PYh12ouqu5P1dP9GHVM30f7E/SL7dHFUxg36wUV5PsIk9ofsu +X6CQTNOZ1GfY07lshXfDZlGnV+avF9i8StrCM7RfqPehSFAvdibRaiMsPo82 +oRMhX7AVyrwSdRfmUZz6vqJBbGOt01MHG36j+4U5NUzsEMOvXeOWy0hIIsmO +W4iJ5mKOcPGp/Ye0/i2Y48c+3sBvps67glovG/SIYmeD8c3grlU0JNukoYhN +lHZYRVSwA42wdgbsiqeXB5JkOWDSZ+21HdjT333jL13gAI8/sNEZO17jV82d +ME5YseV7FIideVtR+SeNG8x6VyLPYn/qZjatFHPD4XIvIgNbgXqwR0icBwxB +7VwudqW+Y4b2Ag+k1IuFV2O31cWyH2jgBQtn45o+7F+tb77+sBSAlb3BQrCO +iUTtBYTjmgSgQecB4Yit99YKBE0EwbK15LcPdujw/YLNOkJgFOPxMRY7nKNL +b6uAMOwKE0qowx5RqppJnhcBQz8PVwthPD9k59pXdFHQ0bA75YrNcXNUUeqw +KDwZfjtDYivQN7pUTIgC+2xZ8gXsPZbpd18OiEHSZbP0T9ivgiIiJZ+Lg+zz +q3onRJiov+xiij+vBBjsLzPJxmZOVBTfsJaA0/ZwvAqbL+rbG9NmCbBRW//0 +M7bVKVd9//uS4CO+Wd9ElInqSwx/ledLQ3pLQc4qdsnIUvSWKDnwdVs+Wb+e +iXa4nemPvCUHHS3LFu+xmW1i22+NysHh0nQjClu/REtcwUsehoYOtWiI4/kM +9K3h3rYRevcseFzDpn4OHP1xUgGWqxLS0iSYSOyg1b0aByXoVGlXuirFRKMl +fCFOoUrwIOp2RiP2wy/dspOnlUCMW8T4K7aP/d6Tas1KMIvMlFWlcX2a0S45 +NGXQ3SIdV4OtP142nSCpAkP+0nqfZJjINZhf23ZQFXjNbcp3yTERinajefyn +Cs+Sjs0fxdZIzjcipNXg0LGlowXYbMV0iwRnNRBJbltPYd/q9/a426IGmSVx +97Pk8fl0r0ySKfof8GqdzWBuxPVZObwfD1SHHvmgmkYlJirenfV5IUEdjLZ6 +hExgXwwcHOD6Rx0mY8KcZJTx/j5+ZEL+jTp8j2Gvj8EWacxj222pAUuFWZSR +Ct4/9CmNBmVNIGzDfz9SZSJZpbTElGEt8O357jC/iYkaz8+pL3Jog6G15Hdd +dTwfs15vSUVtiE6waNyHfa1NRd3CVxtWTZNl+rGVgut7fvdqg4j5+evPNPB4 +K0dUyec6kLuwsnRTi4nkZOVJBS89uHoj/WyeHhNplUYJ/EE0sFLpbKebMFEg +cfKXtiMNKms7jh7FzlbO6Pf3oUHLzSveDdicRbfvPI2hwbr9OU2WW/B5uzbu +mlFNA98iHsrdFH9Ps/3z1JXpoMzbL3BmK17fFHsdTx59OPlqI7eQBRMVRqg4 +3e8ygNMH2tJq7ZioOxoZnSo1gU1HVYuIICZS9H3nuPfAVpCnn1wxT2Aixmpt +ldxfAC8ztWsTrzKR5MTDNZKBFnCa6KWfbWSiKLrZlwwNK+iL/28s/Cuuf3K5 +Q2zcGkZ4N/Od45pEtywi1+S/soEyRbesMd1JVDIX2lKZuROC3C6PmnpPot/m +Ui/aEu1gpaNgWSd1EvWxcc4MBjjAWPuUm3zLJArbcCg9SXkX1J66YcA1N4mq +9nU0/53sBLOFgZyPtadQ7Kz0guY+Z5ivGdcZYkyhX7bb3dv9XOCZMA9JlUwh +E+9L5iPOu+HE3ZbBqeEp1COdF9pGdwX1S4f4dyj9RDLXTzaWb3KDFUO5cD/y +J3o4oGHvKOgOM1XiEvplP5H82+ng6El3sLZ8uFr7/Sei/32psnjAAz7UL4aA +5DTK45rVyWj1hOTz+oJnjKdRrbnup+Q6L9gmmDR2z2caZRudF1mu2ANiY6X5 +2sen0avPpafpF7zhRUWcjGjhNLrvkKsSftwHGnw2lvq0TaOZg7vZwoi90DCq +p985PI1+bVcPmbL0Ba3UtWdmOGdQ+eTH35GGfvCnV1K/T2UGeRaWBu0V8Af+ +YKnDVyxmUM1dOz/OM/7QcdZ1JCVgBpnI9iyeW/SHF9FjXjLHZpDyQPCn1/sC +4KPLF72aKzNomH//rtxvAdC3Empfe2cGdV90DLJxC4Rv+vNbae0zKDMmn/9I +dyDolLlvjeybQY1Nq4tBO4PA4tWlds6ZGbTOB87Q64NgVmSVQ5adQgrr219t +aAwCr1MGAj7Yel0OUjxNQdCWZsnMxXYx877xoSUITsd26MlzUChzQ/TzY8+C +wLinpFOeE/8n+26u6/gQBMxEXVMpbgqp+Epm+ywEwZWKe18meClk4j9VnqxP +wHqjxJz1whS6njMd6WhIQH1K9wkb7PVvqG2SxgQc3/Noeyz2lPXC23JTAuxq +/X2/YpdosrF3WRBQ7KfUVSZCIaEFES9RZwJkNmjnbRaj0HCqwdr8gwQ8co+n +NklQyLnd6G3wIQJMlBtVPbCb2Lbk6x0m4HnvEi0ZOydym8HjKAJ85QI/D2A7 +etkEjMQRcOe7a9AVSQrVqXjVaZ4nIFKlyW5JikIXG+L3PbxOgNjjRd9SWQod +pGWZxJQT0D+qufgC2/5G9VrjCgKuVzmEzWPzZY3eeHCLACF1p7HtGyiUHOE0 +XnuPgIe5g4qj2PHqKvvvP8btH3XkyMlTKDTr+YG7/QSk6vw6F65AoZ1Co2YR +AwTs6MmPzcTelMwmSBsiYM1cs/VD7NEIg1vVIwS8O+a5fxU7wDF/8g6TgCr+ +2NkURQp5ckeG3V4iQGlNwlyeEoVsImXCKyUYUDzHVlSqQqHH+adtM6QY8DFN +8ng7tlkXpRIjw4D1/cc3j2HrqT7/aCnPgIhOUyEtVQpJ98ZZflZlgO6Jkarb +2BNb+iT4DBjw2qHqXJUahdI4Cv4N3s2A33W7U85vwuPXFch2cGPAvrr4ruvY +p7xjIugeDIhfPjnwGDvmntP/VvcwQGODQtISdgDJfulKIAOSUuklweoUoncG +Ek8OM8CqeyXMRINCvZdU+ZXTGTAp8Ju9QZNCVUgw5MclBuzs/UeyG/vU5Fzb +rcsMkI0r4B7Bpu1sSzDOYoBQfWuokBZeP7YgyuEaA/iGDb38sLcfKvgYU8mA +1gLOJ4vYcnJnDbdVMYD40eAnoE2huc5Dlznv4PGev9cjj12khhwu1jBgq62f +uSX2f319zcX1DNAuJM3PY9+zly1/2cGA7E03OoV1KJSyxMGd2ckACb8LPxSw +A8vHA7y6GKCWeLlfD1uYq152+BUDwqZ4djthH2jwTFt8zwCxNLe9qdjKGlei +VUYYsOeg0fwq9lLvsTdjowxolMn7W1CXQt3JDL3bP3B/NyFBWeyEQf1xEyYD +uCYETxlgf8p+s3fXLAMmnnhnhGBnrBGxjmUnIV1DRLcdu5Hq847iJKHfXDnr +Dfb3voqIMG4STNlcXnzFNrtnVRC4lgQh+mrxAvaof8wfWxESnOXCllT0cP32 +1qLWYiTcYW55o4ttaiSqjsRJUE+Rit2CnS5Y6U6XJoG3lY22i/W8/mu1rCIJ +ioS/bTQ2WVrZIa5MgtWTi5cTWe3T//q6TpUEkwetFWexR0kxQS51ElTLzSyv +sp6L2YQw9Ug4mm+3oQG7fkUscZRGQoZp2rvH2CNjA38P6JMQ1dbt04m9pTm2 +9a0xCcltO999wB4+UCX/L5DwbHnx4Cy2kGecwQML/H5nsaxFbBPLHfbVViS4 +n1O+uIp9UXror9IdJDTnqI7ybabQQ67b6fm2JAwui9sIY3/7GVeWY0+CkdfS +EXFs46fi71KdSOj0yt26ETuwemjijAvOb/R8r4ydmnub44QrCfsyebZuwh6K +2KkX7UnCjxD9KD1sQV8Jm/A9JEy711jps/J2ftsb6kMC+zXFb0as/huPpfj6 +k+Ab0HluG6sePtsiz0ASXnNwZZiz8n5J1LkQJOTaaIZYsfIGv72yJ0kge5CA +DSuv687o9hASdtibJ+xk1ffg2H8QSsILQrfJjpVfZLve9AAJzNdruxxY+amS +mgZhJPA5dZftYuXHDJvrhpPAXXTC2RlbgKj2VI8gQeGSwjMXbKNdCYeUo0iQ +mLwh5MrK32J3Wi6aBP4L8kpu2BdUpfIkY0jIsU3gdMeuFR6pEYkloYP/2V2W +B/9Ud/LHkyBYt6Lrwcr/njDInUDCbouNcSwb9tj9Xk0kYTJPI5Pl/wNq18sy + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.8766614724863766, 1.137046412253649}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.8766614724863786}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7611,7 +14586,8 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.663943982390173}, + AxesOrigin->{0, 0.8766614724863786}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7639,7 +14615,8 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8766614724863766, 1.137046412253649}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7647,9 +14624,9 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991337564416748*^9}, + CellChangeTimes->{3.991337564416748*^9, 3.9938535189905863`*^9}, CellLabel-> - "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] + "Out[139]=",ExpressionUUID->"1c623964-bdfb-42b5-a48b-24ab9017830b"] }, Open ]], Cell[CellGroupData[{ @@ -7664,7 +14641,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -7686,8 +14665,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7713,252 +14691,228 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918495265156612`*^9, {3.991849580574194*^9, - 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ -ac84cb8f4d66"], + 3.9918495265156612`*^9, {3.991849580574194*^9, 3.9918495807911797`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 304, - 297, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337564646551*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.775941774035472`*^-264\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993853519092157*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +In[140]:=",ExpressionUUID->"c1fadfe6-6623-4cac-947c-9393e57b5bd3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.3300025548372141`*^-275\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.99385351909783*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"fd77dd89-c070-4905-9068-da8084040e76"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.6846770997292916`*^-287\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 304, 298, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646565304`*^9}, + 140, 71, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993853519103199*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 304, 299, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646656475`*^9}, - CellLabel-> - "During evaluation of \ -In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +In[140]:=",ExpressionUUID->"298dc889-9043-48f5-a892-463e54b70a5a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646736584`*^9}, +during this calculation.\"", 2, 140, 72, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993853519107173*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +In[140]:=",ExpressionUUID->"8b477662-1c33-4760-9577-a79024990f33"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0VP8bB3BfEsq+zox9TZZsY4Zh5nkQIVtZooiICiGkSFEkWyotSipU +WpSyxFhSoUIq2RLKFhFCyBL5ze+vOa9z5txz38/yuffKewdv92VnY2N7+x8b +2/9//3xrqFNKucPIa85JGVy/jdF2kxBp0nkKhoYIpXwWWoBiH70Jnelw3aX3 +TY05QITDw88cnbnwfkPJ09Pm9iD0SyJ98XMR+M3efMRt7gm9VXbBs59roOzi +HmcHs2CwUPr5dfpzC1zTnC07axwDi5+pl6c+DwDdl6M8W/4c1Jrdu/Mpdwa+ +2ZWI/5i9BVK95cPeGisQean+7Q2teyAa6PmQy4wDZ0dd7z3PewzpOhaVds7c +2DryweL2SCFodbttoe/nRjnI+0WZKYSm+IOt6se4cfL0fd/alUJY23lpjDuH +G4vKKCVvhIvg2IlBydpxbmQS6iIjjItg77vYaGo8D0Z9rhk5klYEFN9Kulzx +OrzuVuM7oVEMrfwfG/jfrMP792LXXqYUQwhzwHmlcx2yHR6X0MdieLh+XVDX +v3XYULb51G7HYpAtcr15yXo9/qhx1nCJLAbu1bl/3APrkbCgmtNRWwxfrmq/ +nBbkQ9HHfwPWO5ZAZmu+QIQyHx691r49wr0EdvJv8Fwy5EPLr0y2Tt8S6ImT +/sfuw4fu533uxRwtgb6gdcaiz/jwn7xFl+eNEhjZ/L2M4saPhdSeqj1DJbAw +lfHkWI4AroSsFXcPegbl6iKrq88EkP6u4+D1iGcQ5ZdmF98ogNfuqVh+OvEM +lrvjJ1JnBPA4R/xxuXPPIHaQKfZRQRA/5Yc+t3nyDOI/3HXsCxfEk+2VtO6J +Z5ByJ+YjO1EIpQkKXW98SsGafEBYTFEIef8d+VnkXwrcddudN2gKodL18seX +D5VC/KBy91YTIUy51WMFMaUQrdA0fOmAEJYM8tYpZJZCUDbhn0qFEAqUq2qr +fSiFbVmFGlt3CeO3uXeFVK0yENS4HuzhK4ynEyKEFsll8KEyvig4WBjXnxwX +L6SVgXX3DoNLccK4NY4qwmlRBqakf2Zf84XxsFNKi7F7GZCvWu8KXhbGnpNW +yWMJZSBxaTDp4g0RtGEW8Fm2lwFB/Vn8Qp4IPmmO/X3uSxmQahJiPJ6K4AyX +YPXHr2UgM7Xx8IZaEUyObVlPHS4DZZsQr8oREawifbl4508Z6K1ZoQzqiWKq +x+LMXzEmkK9/0LGkiyJz6NSVGiITKLrZGo8tRNFhT7T6SWkm0LzMFI64ieIe +AXPtYSUmmFQl8a2PEcXeyPpqez0m2IeLf9dtFMXvKamNOXZMcFg/8i2jVRQv +/SpYO7KNCdtzy78s94ji9g5rcxVnJrg0u398MymKNJ+ED8m7mOChcbtip5gY +6mURdWf3MSHgu9aFU15iWI9vHK1imBB47L/UHwfE8HdAj5XgKSYECbcm2ISJ +4VJ6vsvHeCaEYkS0eIIYTj0TrdBPZkJkVtW+h/liuCfCqfn2JSaccbJitPwR +wxGxj0lr7zOBVPKBxP6fOF7Yo5kV+5AJBSJO8zrrxTG8ZPT49CMmdLTsfnpB +VhwXeqfKygqZoLQtXGGbpTg+Nb1i2lHBBObTxX+x28Xx+1NJXq7nTLARjOl+ +6i6OVdVhpZteMCHsY9IlwUPieMCjstS7lgk1trfWNl8TR22nx3ke71j5HysN +rt4Wx1HyvTLz90z4yfvwhVaBOL66bFSl9JEJQk0lR8/ViKPcp6UHb1uY4GXd ++NNuTBz7tuz1yPnChNkH9m9PzIljwNBNB5NuVj6e9tsFq+JIdj6ztbOHlae+ +151fVALZV955j/UyYcVi7sN7Ywm83aK8J2+ICefzovJXLCTQduxR979hVr61 +bIma2yTwyxmDMLsRVp7X60zO+krgcrffmtafTOhTOi/9PFgCo65ncnCPs/LF +iy2NR0ogdXhWjTzBhEwzuWKbNAk0LQ9fOTTJhE23756LviqBZsrbC+KmWPnZ +1QMf5Uqgd/fr9NRpJoy+0lfmLZPA+Oei7PEzTDDArRnveiVQrK+riWeeCU23 +msP+jkqgXXRrYDvLXqvODuqzEviuSsX16gIrb7UXTwo3ASeiCNJrllj9lBke +qhAmIIXct/yI5YLjATU/pQhoweZMtv3L6qdxxDFrHQK2fW4sDVtmgn/W3x1R +RgQU/kDkXmJ55W8s+aE5Aa/eLnx+ZIVVn11rhbrsCdiSXdc1zrJSZcoEz04C +Fp5N8nb7x+o/SajRcC8B1R4buT5n2SbqSt6BIAJWM0kvCKusen2RjLt2lHV/ +3f6ZASyHGeZ4NpwiYMGT8IlnLFtn889uTSUgTerFrRmWFbiiEz9cJuD7sPkf +G9nKYfHgqNS2WwTcwtZW78pyc5tLYet9Aq7ZxW8ey/J9ozpzlyICFh/w8cxm +OSZXp6uzkoAcuy6Syll24bkVtOs1Af1u74lsZHlTCC/Htw8EbF28dKKNZc7P +kRlenQQMd5rX+MxyD/2H+mA/Ab2HnM+0sFxyx+ml7xgBd0qcPP+G5ZT1NU4j +swQ8lmyztZhl71CtUf9/BBwXPFdxlWXal6zjE1xEvJiv0B/BshCuEw4RImJd +wvdXtiyP5B3J+00i4tKfEk9pll/wDdEOKxHx4OEjz4dY+a+Eb/84r0nE9izh +b3ksB3W/8ImiEpFLJaTOi2VzU82FZSRizvfoMBGWpR5kpsZYE/Fxreqvalb9 +ZwW45dmdiOhc40f1YTn364AV1z4ibg4IN7nC6l/kZodvSSFEZNtpyK3MskP+ +81DeKCKe+hn14BGr/6tHr14XOktEsWcxZ/L+Py+9nNqXrhDxtK1DI4HlAouw +OvFsIj6gM2fiWPPlLmo3IVlMRIHEpLXmi0zQO1Z58mYVEXl+SfzJZM3nugFV +cfk3RPSpOtM5yprf8iccoPKFiF/KD58K/cOaL/FDrfcHiDhI1nZ4NMeE/ce/ +7VMfJ+KWB5ule2eZIL61/Lz2KhG9z4nUaLH2Y6JQRbmYm4QhsvLZtr+ZUEe4 +VK4vTMLcb5uS97L2KWw4aICmTMIFbsFzx1n713xSiWy+lYTLkiPP3MeYcG/k +Qv1bJxK+jRuwNWPt8wn7VXfr3SScZnuyXnGUCZrSXaftD5GQr7uL8wPrPEhm +nvvslkHCH2e7HVr6mbB5cikqaJCEr0mcmhkdrHpaXlJ7NU7CG3mt/sR2Vn1y +NLtE/pBQq3OzxeVWJhCcvAzLuSVRkbFmMLKZCePM1/McmyTR8I+qwHwDEy6e +Oh9+7agkStr2CtdVMqG+e6PS+ElJLHbQKOkvZ8IyubaVkSKJ88enNiyWMcHv +x5zu9xuSWBew+5JYCet5ZLNrelOtJKZa1/WuYZ3XA2IqQXV8UvjP7DfjZSYT +JIJfSEtISOH2uKHs6Kus/ax3fX9ATgoXhAx59a4woTQqRUNATwrvb17lTbvA +yts79dPNVQot3nsTV84wQfdB5b7JXCm0jLOLqAljwknjbXtIBtJIVvm1h2ML +Eyx33/xNNZXGzNz8J2/MmMAfOxbnbCON1rdNY+OQCVm1p/POe0njjomJqlFD +1nlhXTG2Nkka791mbDygwYQpV8WImS/SOKq1dZkqyITdh+eSm47JYJJ1pie1 +lfW8zjCV+nlaBrHqrCv5Yxmrfucec52XwR7ZncHq78oganljs+kdGbSlWq/j +ri2Dy3G7xcqbZHDP18DYY0Vl0HTh7a270rJoRzVrsD9fBrSCayUnXsgi5zW9 +0eYtZbD584eVX/Wy+Ch/UCHQrAzs2NZs8WyRxQKu/np2KAOf7UFfYEgWu8Zs +/BUoZWBxTD4mllMOQ+83RagrlUGI7J/bJupyuO2D9479q6VQt+/WRG2EHD4u +snZ9WFQKgQvTsfV88lhy52S0IV8pLKoLftN0VkCB7smz11jvg8b5j7KvXFHE +5ltKp+qqi2Ba2NrLpUYJ2a/K+51fXwjfU71cQrlUUJ77hF6YcwFYTR6xGqJs +QBOhka8Xvz6EcR/usJIYVTx+8sb7M4x7rPd1CfYzNRtRocs8aHL4Ngi/V0l7 +OqmGbjN7zjVx5oBU4hMHCkUDi0+o37TzyYKr6oaCIvs08WX/mW9tTzKgkWSi +P3NhE8pefPwkOfsi0KRqzmt1aCHfaf2tSnfOwYCi0rfRLi3kMjzasJp0DpLU +E9Tv9GphhkNHzljwOeikWb8hjGrhzgdedrNG5+CIW8vf/5a1sIW4KtLQlgY7 +tx7S+ymojfUSKhrRPGlwJZF1XFC00WKQGD58IhX4OXLD95zSRmOXvzmPribB +2sUXjtPx2rg3LfDS9dgk+Pfrq+7JM9oYEaBkkLU/CSa7iNPZqdpYk/MmosUg +CZqLLhzsu6KN8bLxXMJdiZDufdLPM18bD9tbyH6WTQTxGi9XjzbW9e5055kz +E0DmpKyxm4oOsnen+/FJxkNBGLfCV1UdzCiv/JDMFQ8Mv2muPeo6aE7sOCQx +GwceW2tb92vr4DV7zq2738dBlti+gKM0HWyK+XckJzYOiA8LMjPsdJCuwK45 +P3oKRFvpi+0ROphoS9mc//Yk8Ci7l25/q4MpN7Q0SbtiwJ8I1vkNOrgir5/o +SY+BRj6FbxxNOrjuh4NElWwMpP75wfmsWQfdBfSyK76fAP76MGeJLh38YZjw +X1PwCRAOSJntHtfB69GP1PSTj4NUYYWur7Aupiu/Odz48RhsohOfHPHQRT7H ++7/trh+FYsUDf9m9dHFBTy1uJvYoGKwr35LmrYsR9ZPVT/yOguln1747+3RR +ViRxKUj3KLgcuirUckgXm3h3t6x9dwRi7kqEayToopWeYHoa2xFo5hM37C/Q +Rf6/MvsuRh+G0G/CtdZseigjLMO74Vko1L9xf/6QXQ9v8F73zM0JBZkneWXr +OPVwkDNAQCstFBpjaI8aefTwzPysU/S+UFCQ975sLaKHV9aLaQ2RQuGTT+E+ +axU9zBztHB6KPwTao/a81jZ6mE0337fdNwQmZ1Kdra7qYQSffVX5w0Do6cxx +uZGph28b6sMsUgOh8XnpjuksPdz0akZ68mAg3DnT53YtRw8FjAMXL+oEwk5J +8u7Rh3rIT5K7urEiAF6bdvslPddDPcNXo6HN/nD9wsajDQN6+Jl/ynRG8AAk +RjAipYf0cIAWVfF5bj9E7HKMOvRDD/fGb37c3rUfHJSPRxPH9XADY6xM+u5+ +WFveHHtgTg/FRe5b99D2w6G+I0k83GS0thp7xx6wD7Zovcm00iRjWMBdRuhX +X3Bda+nUrEXG9i7PQJdaX/D/2sC3Q5eMG+yzupwf+EJayvvYvVQyMrJdpfIO ++0LHjza/GBMyti40FCYJ+MLe7EHdZ85knFyQ0rey3AunhP57J3eCjN7Lb8t4 +33vDpZFT8fdiydhNV9XTLPWGvBdrGJviyMiZuKTkd8sbGg9yFxolkjH8O4e4 +fKg3CDUKZLikk9GxurODSfCG7FMyPql5ZLzIX2fh4b8HqmeM/s5/YP3fqlFs +RMYLcprKvB0/kVGIzTp+M68XxN/VayxoJePr87i8b8YTrHaoX/PtJOMxzu15 +GQ88oa2CRG3tJ6Owu3dshYQn/Dy5GFowS8ZSmUKf30seIC5Y9nMvSR9vpAmm +2/fsgsUR3e0vpfTR8PcmvrTKXdDzqqBcUlYfxW6IlP/K3AU5YXmJLYr6KOse +qi6+cxdofL6sgpr6qMp7wmDpy04wvRnuLYn6+KuiWH6l1w2CNHS7PvnqY472 +ueOKa1zh8DxpyXO/Pu6j7yBzDe2A6BoO0i9/faRO/+3if7MDUlzb3daF6OM/ +omNAUuIOuB9/9ItplD56DIu92SCwAwZ6qjuL01j3J3NAZUzBBVzObv18uUwf +a3qJHbd8nMDDlTyvWKGPt6w6nV9YOsFeRWmJoip9nK/wv/BP0wnCyn+5fHil +j6ExolXdC45wfuhCx9omfTzVQfLlO+8IjfTO9iN9+hh+0yZOt2470H/tbXPj +oeCUa1v7I9NtIF65JbdqPQV1TyarC2hug19n1EJk+Sl44Z9kV5LENrgpP7V+ +SJiCXKp+g2/HHeCf0zGzECkKbtiWLrb3qgO8qLxQlKBFwTzFaiehEXswSao+ +X+xMwdIq8qm3R22B5JKzW9yVgrLKoolWjrbwWyFeI3InBY0b2bP+aNpCbpVV +PcOTgnU5t00/DdoA+1TbasN+Chqahg3EbbOBWpexoL5jFKS6PL5STt4K5koE +W75cCj4r0J23IFpBycRr+b13KKgh2p4UvWgJSmVhfyryKFi71exKxxdLWGP9 +8db+fArycEYnz2daQk1wwu/aEgpeI94YGZGxBEblbEbUWwpa+lyQ9tfcApTt +nwZ+jFOwzHXdvmkfc8iTjCljTFLwhvKnrEOW5iA2pJF6eZqCg0sWM0Ka5jB7 +JFHf7A8FPVPiThT92QxFNyDx5iorP1ExKjhlM2iNPtZ0FqZin/BkdVWFGajG +Jh+toVJRfaGp+a2WKVQZ3eW0oVFxTeUFLT5xU3CYf5HebkzFM45LVWHLJnA0 +aO7RiAkVy71Kmm43mEC9u1c/vw0VK/aeyEvxNYH9hhTrXV5U9N6VMe52G+HB +737J2UQqkuc8tv0MYACjYPn+8RQqvnf2uayHDGg5IEHhSqOitsx761JRBiz1 +2TiQLlIxK3tpxa+aDtYfy+LxBhWrroFJkCgdfuafnUgtpKJ13PhYV6MRqPka +vlDuouLcu+PewZ6GcE7Bbimuh4pmuSKefcaGMNvrrT/wjYozG5rPRJMMoXpn +av7NQSqmB/rd0O8wgO0OvRkSE1S85XI++669AUQanQ7hYTPA5MWgDkdrKtQL +fZKfUDbA+Aj15Pse+qD5cch9q6oB2lVoqimjPqSnLmU8UDPAmaJPW94q6IM7 +lxK/n5YBam3x23ZshAyTyxFL3wxYZru7fOMwGcRHpFqbtxpgmIeqzoMreuBb +vT++5JABqh57alr5Wwd+Hfx5xDzcAF8Ela6J+awDR6UDAzoiDPC3p1f//iod +SI4O3r5wzAA763rVChJ04CktQs44wQCLF3PfLUrpwHJpXFVtpgEyzfY6Bzpo +Q/qTm7MttQaoW8D5lv22Jkh5yo34vDHAxxKvnu4+rAl3+XO7Z+sN0Ezh3sW/ +WzSBefBujfgHA/xn1PXnz4QGfFV/dH5npwFWWp9VGjPWANX75RoD4wbIvbG7 +8+SwGrzIbts7LWaI32BxBf1Uoc9G3jOCYIgu95WcW1AV2BYPuv0lGWLqYNTg +VUlVMN3GZccpZ4iOzXYX6z5tgDf/0ahENUMMPr6uOQ03QJP3LR4ThiHuOLbO +uGSDCnQp+Rec9zPEDCMbuRMkJfjbXHpf7IAhnsu7sp76VxGkjnPczgwwxO60 +lxulexTBoz0r406IIQq9WxIMuakIfac/xjKjDFFBhIekpqwIP4bJjn1phpjn +5nWwiqYAs/dX57XKDPH6y0n/lng5GHaxyE4qN8Q4xSe7TgXKQeeas5aDlYZY +NBl93dFJDiq9SNeuvDTEYxHX97gpycEpgj5tpcEQv/C8WtudIguCif7RjT2G +2GjwT2qjjAxo7Gtn82Wn4eNs3aFLIZIgIyb1oHoNDaumLzx/vEUSBGu9txG4 +aNhfnRO2KiMJMzJTOe/W0/CrPG2HzQcSVHSsM9MVoyH3dUHFeC0SWFrg6dUN +NKxToPFtWiaAj3I+T6YtDZ+P/PQ9WyUOUa93+6s40HDkmpWKW4Y4nPcVfle0 +nYb59TUNHqHiUHU3MvXdDhpG5cVGCW4UB1EVS4GVPTRkGEf3CF8TgzcqQ6Je +ETQcoqUWbokTBTVVWTmVWzTW98pIt+8JYcD6ltiiHBo6O6gHV3gKg8v+hH7G +HRqOOTjlMEyEIe7+RO6OBzT8ffv3p7Y1wtCjWqWcVExDO//qNTppQpC20U19 +/C0NTVISPgQ9EIRptYuUoikaDotOkuPZ+KGzCc1FZmjIRWjaHvKJD14G/XIM +n6PhlhzjypxcPkgrsjpEWaLhq0zRmRZzPlCjsT2q4DBCmYMpjXvP8YK31UH5 +WnEj3DQ5PTG3aT207dvC22ZshDl5l4/63OCGSp45kj4YYeTRhlLrCG7Izc/d +eMXECG23BdsG2nNDyOSKhauFEVZtvGXiwc4NfEdKTvbYG+Fr0bjkCX8usEiQ +n//ubYQG9AjeOIu1wLzzt38u0QhrbbfJHVJeAxSz8HnrFCNM0R7795RzDTzr +H+fNPmuEebLus7LDHFAk841qnW6EiUOJcsn3OODR1Zdnb143QqaQXmSiBgdk +p5423FJghARXt/V/GOyQFC5w4WqrEWZp1eSNxbEBt0hi3kS7EapHceReOcAG +CYVsVaadRtjO/33TAXs2iP81PTzew8qLznLxkmxwYn+bscmwER6S2dwoHrDK +CHW/NjK6YIQxhVE/vPpXGDs3K6KRjDFmNDt0tXH8Zay0cfPXyhlj2pf+u+lt +S4xs31/d1orG2GRzNvLm3SXGcEL5kZ2qxtj3ftH1puUSI7TB/kmkrjEaK6T9 +1UlfZCTbRcswLYzxXUsBr5neAqPCtX2ZHGyMPuQbu1cfzDE8Risaqw4Z4wp9 +372cuDkGW1T21c3hxhjndU4t3mOOYXE9gOwUaYwRYrvtuIXnGC1f/wsMizNG +BjdFm/3ELOOn96buwgxjbGtZtt+3Z4YhefBM+aaXxljsuO2Nv+M0I23VTz+l +xhi/nKNuCKJMM9jTLQp/1BmjxbsnIbeI04yfpZwPshuMMWyP3uPkvilGBVv8 +VeFWY+Ro7w+ODpli7LwUe+TPkDFWvLN7raIzybhaGalfvZ6O7S/1m/IExhm8 +dm6FJH467j/V66bZN8aI7TPQPCJIR/EBEx62wjHGfs4FJW0xOkq89edIdBxj +UO0jRHNl6JicfZtDPOsno2MgdOa0Dh3l3vptaKCNMsTWBRba7qCjyNRCUW7+ +MOOO2fGoKTc6PmVLzHSPHWboHk8zu+hOx//erxnZ6zzMsJt62t65h468XJ63 +drMNMxI65hZ9AunoF3VHYsRtiLGQG2MadZKOYde8Lg6QvjO6jC625uXT8cmI +RQnxUz9j/+E7WVYFdGzIvDX+qKCf8afgme/4UzquG+jdFZPazxBW6JzXKaUj +/LdTrc+yn7GVW1rq+Us6vi62qzpd18eoasvb29pOR+LwIXmetF6GNT9TM6KT +jveyjL8WOfQyOrc0/CF00zH2suDye5FexmzFWOLuPjpmqSXYOl//xtDM0X48 ++pOOKdO2U+lPvjKqukwiUifoODSsGlh0+CvDWtQRtKbo6C+UjXTjrwy/M4c/ +hc/R8QqvE2d6Yw9j9mVCpsQCq16M0yd3pvcwTi1l+FQs0XHTZ2pQys4ehiD5 +gYbHCh2jfriJKin2MG4erJhbXaVjaf6aasXxbsb/AAL33w4= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7972,211 +14926,183 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi +1:eJwV13k0VP8bB3BfEsq+zox9TZZsY4Zh5nkQIVtZooiICiGkSFEkWyotSipU +WpSyxFhSoUIq2RLKFhFCyBL5ze+vOa9z5txz38/yuffKewdv92VnY2N7+x8b +2/9//3xrqFNKucPIa85JGVy/jdF2kxBp0nkKhoYIpXwWWoBiH70Jnelw3aX3 +TY05QITDw88cnbnwfkPJ09Pm9iD0SyJ98XMR+M3efMRt7gm9VXbBs59roOzi +HmcHs2CwUPr5dfpzC1zTnC07axwDi5+pl6c+DwDdl6M8W/4c1Jrdu/Mpdwa+ +2ZWI/5i9BVK95cPeGisQean+7Q2teyAa6PmQy4wDZ0dd7z3PewzpOhaVds7c +2DryweL2SCFodbttoe/nRjnI+0WZKYSm+IOt6se4cfL0fd/alUJY23lpjDuH +G4vKKCVvhIvg2IlBydpxbmQS6iIjjItg77vYaGo8D0Z9rhk5klYEFN9Kulzx +OrzuVuM7oVEMrfwfG/jfrMP792LXXqYUQwhzwHmlcx2yHR6X0MdieLh+XVDX +v3XYULb51G7HYpAtcr15yXo9/qhx1nCJLAbu1bl/3APrkbCgmtNRWwxfrmq/ +nBbkQ9HHfwPWO5ZAZmu+QIQyHx691r49wr0EdvJv8Fwy5EPLr0y2Tt8S6ImT +/sfuw4fu533uxRwtgb6gdcaiz/jwn7xFl+eNEhjZ/L2M4saPhdSeqj1DJbAw +lfHkWI4AroSsFXcPegbl6iKrq88EkP6u4+D1iGcQ5ZdmF98ogNfuqVh+OvEM +lrvjJ1JnBPA4R/xxuXPPIHaQKfZRQRA/5Yc+t3nyDOI/3HXsCxfEk+2VtO6J +Z5ByJ+YjO1EIpQkKXW98SsGafEBYTFEIef8d+VnkXwrcddudN2gKodL18seX +D5VC/KBy91YTIUy51WMFMaUQrdA0fOmAEJYM8tYpZJZCUDbhn0qFEAqUq2qr +fSiFbVmFGlt3CeO3uXeFVK0yENS4HuzhK4ynEyKEFsll8KEyvig4WBjXnxwX +L6SVgXX3DoNLccK4NY4qwmlRBqakf2Zf84XxsFNKi7F7GZCvWu8KXhbGnpNW +yWMJZSBxaTDp4g0RtGEW8Fm2lwFB/Vn8Qp4IPmmO/X3uSxmQahJiPJ6K4AyX +YPXHr2UgM7Xx8IZaEUyObVlPHS4DZZsQr8oREawifbl4508Z6K1ZoQzqiWKq +x+LMXzEmkK9/0LGkiyJz6NSVGiITKLrZGo8tRNFhT7T6SWkm0LzMFI64ieIe +AXPtYSUmmFQl8a2PEcXeyPpqez0m2IeLf9dtFMXvKamNOXZMcFg/8i2jVRQv +/SpYO7KNCdtzy78s94ji9g5rcxVnJrg0u398MymKNJ+ED8m7mOChcbtip5gY +6mURdWf3MSHgu9aFU15iWI9vHK1imBB47L/UHwfE8HdAj5XgKSYECbcm2ISJ +4VJ6vsvHeCaEYkS0eIIYTj0TrdBPZkJkVtW+h/liuCfCqfn2JSaccbJitPwR +wxGxj0lr7zOBVPKBxP6fOF7Yo5kV+5AJBSJO8zrrxTG8ZPT49CMmdLTsfnpB +VhwXeqfKygqZoLQtXGGbpTg+Nb1i2lHBBObTxX+x28Xx+1NJXq7nTLARjOl+ +6i6OVdVhpZteMCHsY9IlwUPieMCjstS7lgk1trfWNl8TR22nx3ke71j5HysN +rt4Wx1HyvTLz90z4yfvwhVaBOL66bFSl9JEJQk0lR8/ViKPcp6UHb1uY4GXd ++NNuTBz7tuz1yPnChNkH9m9PzIljwNBNB5NuVj6e9tsFq+JIdj6ztbOHlae+ +151fVALZV955j/UyYcVi7sN7Ywm83aK8J2+ICefzovJXLCTQduxR979hVr61 +bIma2yTwyxmDMLsRVp7X60zO+krgcrffmtafTOhTOi/9PFgCo65ncnCPs/LF +iy2NR0ogdXhWjTzBhEwzuWKbNAk0LQ9fOTTJhE23756LviqBZsrbC+KmWPnZ +1QMf5Uqgd/fr9NRpJoy+0lfmLZPA+Oei7PEzTDDArRnveiVQrK+riWeeCU23 +msP+jkqgXXRrYDvLXqvODuqzEviuSsX16gIrb7UXTwo3ASeiCNJrllj9lBke +qhAmIIXct/yI5YLjATU/pQhoweZMtv3L6qdxxDFrHQK2fW4sDVtmgn/W3x1R +RgQU/kDkXmJ55W8s+aE5Aa/eLnx+ZIVVn11rhbrsCdiSXdc1zrJSZcoEz04C +Fp5N8nb7x+o/SajRcC8B1R4buT5n2SbqSt6BIAJWM0kvCKusen2RjLt2lHV/ +3f6ZASyHGeZ4NpwiYMGT8IlnLFtn889uTSUgTerFrRmWFbiiEz9cJuD7sPkf +G9nKYfHgqNS2WwTcwtZW78pyc5tLYet9Aq7ZxW8ey/J9ozpzlyICFh/w8cxm +OSZXp6uzkoAcuy6Syll24bkVtOs1Af1u74lsZHlTCC/Htw8EbF28dKKNZc7P +kRlenQQMd5rX+MxyD/2H+mA/Ab2HnM+0sFxyx+ml7xgBd0qcPP+G5ZT1NU4j +swQ8lmyztZhl71CtUf9/BBwXPFdxlWXal6zjE1xEvJiv0B/BshCuEw4RImJd +wvdXtiyP5B3J+00i4tKfEk9pll/wDdEOKxHx4OEjz4dY+a+Eb/84r0nE9izh +b3ksB3W/8ImiEpFLJaTOi2VzU82FZSRizvfoMBGWpR5kpsZYE/Fxreqvalb9 +ZwW45dmdiOhc40f1YTn364AV1z4ibg4IN7nC6l/kZodvSSFEZNtpyK3MskP+ +81DeKCKe+hn14BGr/6tHr14XOktEsWcxZ/L+Py+9nNqXrhDxtK1DI4HlAouw +OvFsIj6gM2fiWPPlLmo3IVlMRIHEpLXmi0zQO1Z58mYVEXl+SfzJZM3nugFV +cfk3RPSpOtM5yprf8iccoPKFiF/KD58K/cOaL/FDrfcHiDhI1nZ4NMeE/ce/ +7VMfJ+KWB5ule2eZIL61/Lz2KhG9z4nUaLH2Y6JQRbmYm4QhsvLZtr+ZUEe4 +VK4vTMLcb5uS97L2KWw4aICmTMIFbsFzx1n713xSiWy+lYTLkiPP3MeYcG/k +Qv1bJxK+jRuwNWPt8wn7VXfr3SScZnuyXnGUCZrSXaftD5GQr7uL8wPrPEhm +nvvslkHCH2e7HVr6mbB5cikqaJCEr0mcmhkdrHpaXlJ7NU7CG3mt/sR2Vn1y +NLtE/pBQq3OzxeVWJhCcvAzLuSVRkbFmMLKZCePM1/McmyTR8I+qwHwDEy6e +Oh9+7agkStr2CtdVMqG+e6PS+ElJLHbQKOkvZ8IyubaVkSKJ88enNiyWMcHv +x5zu9xuSWBew+5JYCet5ZLNrelOtJKZa1/WuYZ3XA2IqQXV8UvjP7DfjZSYT +JIJfSEtISOH2uKHs6Kus/ax3fX9ATgoXhAx59a4woTQqRUNATwrvb17lTbvA +yts79dPNVQot3nsTV84wQfdB5b7JXCm0jLOLqAljwknjbXtIBtJIVvm1h2ML +Eyx33/xNNZXGzNz8J2/MmMAfOxbnbCON1rdNY+OQCVm1p/POe0njjomJqlFD +1nlhXTG2Nkka791mbDygwYQpV8WImS/SOKq1dZkqyITdh+eSm47JYJJ1pie1 +lfW8zjCV+nlaBrHqrCv5Yxmrfucec52XwR7ZncHq78oganljs+kdGbSlWq/j +ri2Dy3G7xcqbZHDP18DYY0Vl0HTh7a270rJoRzVrsD9fBrSCayUnXsgi5zW9 +0eYtZbD584eVX/Wy+Ch/UCHQrAzs2NZs8WyRxQKu/np2KAOf7UFfYEgWu8Zs +/BUoZWBxTD4mllMOQ+83RagrlUGI7J/bJupyuO2D9479q6VQt+/WRG2EHD4u +snZ9WFQKgQvTsfV88lhy52S0IV8pLKoLftN0VkCB7smz11jvg8b5j7KvXFHE +5ltKp+qqi2Ba2NrLpUYJ2a/K+51fXwjfU71cQrlUUJ77hF6YcwFYTR6xGqJs +QBOhka8Xvz6EcR/usJIYVTx+8sb7M4x7rPd1CfYzNRtRocs8aHL4Ngi/V0l7 +OqmGbjN7zjVx5oBU4hMHCkUDi0+o37TzyYKr6oaCIvs08WX/mW9tTzKgkWSi +P3NhE8pefPwkOfsi0KRqzmt1aCHfaf2tSnfOwYCi0rfRLi3kMjzasJp0DpLU +E9Tv9GphhkNHzljwOeikWb8hjGrhzgdedrNG5+CIW8vf/5a1sIW4KtLQlgY7 +tx7S+ymojfUSKhrRPGlwJZF1XFC00WKQGD58IhX4OXLD95zSRmOXvzmPribB +2sUXjtPx2rg3LfDS9dgk+Pfrq+7JM9oYEaBkkLU/CSa7iNPZqdpYk/MmosUg +CZqLLhzsu6KN8bLxXMJdiZDufdLPM18bD9tbyH6WTQTxGi9XjzbW9e5055kz +E0DmpKyxm4oOsnen+/FJxkNBGLfCV1UdzCiv/JDMFQ8Mv2muPeo6aE7sOCQx +GwceW2tb92vr4DV7zq2738dBlti+gKM0HWyK+XckJzYOiA8LMjPsdJCuwK45 +P3oKRFvpi+0ROphoS9mc//Yk8Ci7l25/q4MpN7Q0SbtiwJ8I1vkNOrgir5/o +SY+BRj6FbxxNOrjuh4NElWwMpP75wfmsWQfdBfSyK76fAP76MGeJLh38YZjw +X1PwCRAOSJntHtfB69GP1PSTj4NUYYWur7Aupiu/Odz48RhsohOfHPHQRT7H ++7/trh+FYsUDf9m9dHFBTy1uJvYoGKwr35LmrYsR9ZPVT/yOguln1747+3RR +ViRxKUj3KLgcuirUckgXm3h3t6x9dwRi7kqEayToopWeYHoa2xFo5hM37C/Q +Rf6/MvsuRh+G0G/CtdZseigjLMO74Vko1L9xf/6QXQ9v8F73zM0JBZkneWXr +OPVwkDNAQCstFBpjaI8aefTwzPysU/S+UFCQ975sLaKHV9aLaQ2RQuGTT+E+ +axU9zBztHB6KPwTao/a81jZ6mE0337fdNwQmZ1Kdra7qYQSffVX5w0Do6cxx +uZGph28b6sMsUgOh8XnpjuksPdz0akZ68mAg3DnT53YtRw8FjAMXL+oEwk5J +8u7Rh3rIT5K7urEiAF6bdvslPddDPcNXo6HN/nD9wsajDQN6+Jl/ynRG8AAk +RjAipYf0cIAWVfF5bj9E7HKMOvRDD/fGb37c3rUfHJSPRxPH9XADY6xM+u5+ +WFveHHtgTg/FRe5b99D2w6G+I0k83GS0thp7xx6wD7Zovcm00iRjWMBdRuhX +X3Bda+nUrEXG9i7PQJdaX/D/2sC3Q5eMG+yzupwf+EJayvvYvVQyMrJdpfIO ++0LHjza/GBMyti40FCYJ+MLe7EHdZ85knFyQ0rey3AunhP57J3eCjN7Lb8t4 +33vDpZFT8fdiydhNV9XTLPWGvBdrGJviyMiZuKTkd8sbGg9yFxolkjH8O4e4 +fKg3CDUKZLikk9GxurODSfCG7FMyPql5ZLzIX2fh4b8HqmeM/s5/YP3fqlFs +RMYLcprKvB0/kVGIzTp+M68XxN/VayxoJePr87i8b8YTrHaoX/PtJOMxzu15 +GQ88oa2CRG3tJ6Owu3dshYQn/Dy5GFowS8ZSmUKf30seIC5Y9nMvSR9vpAmm +2/fsgsUR3e0vpfTR8PcmvrTKXdDzqqBcUlYfxW6IlP/K3AU5YXmJLYr6KOse +qi6+cxdofL6sgpr6qMp7wmDpy04wvRnuLYn6+KuiWH6l1w2CNHS7PvnqY472 +ueOKa1zh8DxpyXO/Pu6j7yBzDe2A6BoO0i9/faRO/+3if7MDUlzb3daF6OM/ +omNAUuIOuB9/9ItplD56DIu92SCwAwZ6qjuL01j3J3NAZUzBBVzObv18uUwf +a3qJHbd8nMDDlTyvWKGPt6w6nV9YOsFeRWmJoip9nK/wv/BP0wnCyn+5fHil +j6ExolXdC45wfuhCx9omfTzVQfLlO+8IjfTO9iN9+hh+0yZOt2470H/tbXPj +oeCUa1v7I9NtIF65JbdqPQV1TyarC2hug19n1EJk+Sl44Z9kV5LENrgpP7V+ +SJiCXKp+g2/HHeCf0zGzECkKbtiWLrb3qgO8qLxQlKBFwTzFaiehEXswSao+ +X+xMwdIq8qm3R22B5JKzW9yVgrLKoolWjrbwWyFeI3InBY0b2bP+aNpCbpVV +PcOTgnU5t00/DdoA+1TbasN+Chqahg3EbbOBWpexoL5jFKS6PL5STt4K5koE +W75cCj4r0J23IFpBycRr+b13KKgh2p4UvWgJSmVhfyryKFi71exKxxdLWGP9 +8db+fArycEYnz2daQk1wwu/aEgpeI94YGZGxBEblbEbUWwpa+lyQ9tfcApTt +nwZ+jFOwzHXdvmkfc8iTjCljTFLwhvKnrEOW5iA2pJF6eZqCg0sWM0Ka5jB7 +JFHf7A8FPVPiThT92QxFNyDx5iorP1ExKjhlM2iNPtZ0FqZin/BkdVWFGajG +Jh+toVJRfaGp+a2WKVQZ3eW0oVFxTeUFLT5xU3CYf5HebkzFM45LVWHLJnA0 +aO7RiAkVy71Kmm43mEC9u1c/vw0VK/aeyEvxNYH9hhTrXV5U9N6VMe52G+HB +737J2UQqkuc8tv0MYACjYPn+8RQqvnf2uayHDGg5IEHhSqOitsx761JRBiz1 +2TiQLlIxK3tpxa+aDtYfy+LxBhWrroFJkCgdfuafnUgtpKJ13PhYV6MRqPka +vlDuouLcu+PewZ6GcE7Bbimuh4pmuSKefcaGMNvrrT/wjYozG5rPRJMMoXpn +av7NQSqmB/rd0O8wgO0OvRkSE1S85XI++669AUQanQ7hYTPA5MWgDkdrKtQL +fZKfUDbA+Aj15Pse+qD5cch9q6oB2lVoqimjPqSnLmU8UDPAmaJPW94q6IM7 +lxK/n5YBam3x23ZshAyTyxFL3wxYZru7fOMwGcRHpFqbtxpgmIeqzoMreuBb +vT++5JABqh57alr5Wwd+Hfx5xDzcAF8Ela6J+awDR6UDAzoiDPC3p1f//iod +SI4O3r5wzAA763rVChJ04CktQs44wQCLF3PfLUrpwHJpXFVtpgEyzfY6Bzpo +Q/qTm7MttQaoW8D5lv22Jkh5yo34vDHAxxKvnu4+rAl3+XO7Z+sN0Ezh3sW/ +WzSBefBujfgHA/xn1PXnz4QGfFV/dH5npwFWWp9VGjPWANX75RoD4wbIvbG7 +8+SwGrzIbts7LWaI32BxBf1Uoc9G3jOCYIgu95WcW1AV2BYPuv0lGWLqYNTg +VUlVMN3GZccpZ4iOzXYX6z5tgDf/0ahENUMMPr6uOQ03QJP3LR4ThiHuOLbO +uGSDCnQp+Rec9zPEDCMbuRMkJfjbXHpf7IAhnsu7sp76VxGkjnPczgwwxO60 +lxulexTBoz0r406IIQq9WxIMuakIfac/xjKjDFFBhIekpqwIP4bJjn1phpjn +5nWwiqYAs/dX57XKDPH6y0n/lng5GHaxyE4qN8Q4xSe7TgXKQeeas5aDlYZY +NBl93dFJDiq9SNeuvDTEYxHX97gpycEpgj5tpcEQv/C8WtudIguCif7RjT2G +2GjwT2qjjAxo7Gtn82Wn4eNs3aFLIZIgIyb1oHoNDaumLzx/vEUSBGu9txG4 +aNhfnRO2KiMJMzJTOe/W0/CrPG2HzQcSVHSsM9MVoyH3dUHFeC0SWFrg6dUN +NKxToPFtWiaAj3I+T6YtDZ+P/PQ9WyUOUa93+6s40HDkmpWKW4Y4nPcVfle0 +nYb59TUNHqHiUHU3MvXdDhpG5cVGCW4UB1EVS4GVPTRkGEf3CF8TgzcqQ6Je +ETQcoqUWbokTBTVVWTmVWzTW98pIt+8JYcD6ltiiHBo6O6gHV3gKg8v+hH7G +HRqOOTjlMEyEIe7+RO6OBzT8ffv3p7Y1wtCjWqWcVExDO//qNTppQpC20U19 +/C0NTVISPgQ9EIRptYuUoikaDotOkuPZ+KGzCc1FZmjIRWjaHvKJD14G/XIM +n6PhlhzjypxcPkgrsjpEWaLhq0zRmRZzPlCjsT2q4DBCmYMpjXvP8YK31UH5 +WnEj3DQ5PTG3aT207dvC22ZshDl5l4/63OCGSp45kj4YYeTRhlLrCG7Izc/d +eMXECG23BdsG2nNDyOSKhauFEVZtvGXiwc4NfEdKTvbYG+Fr0bjkCX8usEiQ +n//ubYQG9AjeOIu1wLzzt38u0QhrbbfJHVJeAxSz8HnrFCNM0R7795RzDTzr +H+fNPmuEebLus7LDHFAk841qnW6EiUOJcsn3OODR1Zdnb143QqaQXmSiBgdk +p5423FJghARXt/V/GOyQFC5w4WqrEWZp1eSNxbEBt0hi3kS7EapHceReOcAG +CYVsVaadRtjO/33TAXs2iP81PTzew8qLznLxkmxwYn+bscmwER6S2dwoHrDK +CHW/NjK6YIQxhVE/vPpXGDs3K6KRjDFmNDt0tXH8Zay0cfPXyhlj2pf+u+lt +S4xs31/d1orG2GRzNvLm3SXGcEL5kZ2qxtj3ftH1puUSI7TB/kmkrjEaK6T9 +1UlfZCTbRcswLYzxXUsBr5neAqPCtX2ZHGyMPuQbu1cfzDE8Risaqw4Z4wp9 +372cuDkGW1T21c3hxhjndU4t3mOOYXE9gOwUaYwRYrvtuIXnGC1f/wsMizNG +BjdFm/3ELOOn96buwgxjbGtZtt+3Z4YhefBM+aaXxljsuO2Nv+M0I23VTz+l +xhi/nKNuCKJMM9jTLQp/1BmjxbsnIbeI04yfpZwPshuMMWyP3uPkvilGBVv8 +VeFWY+Ro7w+ODpli7LwUe+TPkDFWvLN7raIzybhaGalfvZ6O7S/1m/IExhm8 +dm6FJH467j/V66bZN8aI7TPQPCJIR/EBEx62wjHGfs4FJW0xOkq89edIdBxj +UO0jRHNl6JicfZtDPOsno2MgdOa0Dh3l3vptaKCNMsTWBRba7qCjyNRCUW7+ +MOOO2fGoKTc6PmVLzHSPHWboHk8zu+hOx//erxnZ6zzMsJt62t65h468XJ63 +drMNMxI65hZ9AunoF3VHYsRtiLGQG2MadZKOYde8Lg6QvjO6jC625uXT8cmI +RQnxUz9j/+E7WVYFdGzIvDX+qKCf8afgme/4UzquG+jdFZPazxBW6JzXKaUj +/LdTrc+yn7GVW1rq+Us6vi62qzpd18eoasvb29pOR+LwIXmetF6GNT9TM6KT +jveyjL8WOfQyOrc0/CF00zH2suDye5FexmzFWOLuPjpmqSXYOl//xtDM0X48 ++pOOKdO2U+lPvjKqukwiUifoODSsGlh0+CvDWtQRtKbo6C+UjXTjrwy/M4c/ +hc/R8QqvE2d6Yw9j9mVCpsQCq16M0yd3pvcwTi1l+FQs0XHTZ2pQys4ehiD5 +gYbHCh2jfriJKin2MG4erJhbXaVjaf6aasXxbsb/AAL33w4= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.09766907546812026}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8188,19 +15114,19 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.09766907546812026}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8214,210 +15140,182 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi +1:eJwV13k0VP8bB3BfEsq+zox9TZZsY4Zh5nkQIVtZooiICiGkSFEkWyotSipU +WpSyxFhSoUIq2RLKFhFCyBL5ze+vOa9z5txz38/yuffKewdv92VnY2N7+x8b +2/9//3xrqFNKucPIa85JGVy/jdF2kxBp0nkKhoYIpXwWWoBiH70Jnelw3aX3 +TY05QITDw88cnbnwfkPJ09Pm9iD0SyJ98XMR+M3efMRt7gm9VXbBs59roOzi +HmcHs2CwUPr5dfpzC1zTnC07axwDi5+pl6c+DwDdl6M8W/4c1Jrdu/Mpdwa+ +2ZWI/5i9BVK95cPeGisQean+7Q2teyAa6PmQy4wDZ0dd7z3PewzpOhaVds7c +2DryweL2SCFodbttoe/nRjnI+0WZKYSm+IOt6se4cfL0fd/alUJY23lpjDuH +G4vKKCVvhIvg2IlBydpxbmQS6iIjjItg77vYaGo8D0Z9rhk5klYEFN9Kulzx +OrzuVuM7oVEMrfwfG/jfrMP792LXXqYUQwhzwHmlcx2yHR6X0MdieLh+XVDX +v3XYULb51G7HYpAtcr15yXo9/qhx1nCJLAbu1bl/3APrkbCgmtNRWwxfrmq/ +nBbkQ9HHfwPWO5ZAZmu+QIQyHx691r49wr0EdvJv8Fwy5EPLr0y2Tt8S6ImT +/sfuw4fu533uxRwtgb6gdcaiz/jwn7xFl+eNEhjZ/L2M4saPhdSeqj1DJbAw +lfHkWI4AroSsFXcPegbl6iKrq88EkP6u4+D1iGcQ5ZdmF98ogNfuqVh+OvEM +lrvjJ1JnBPA4R/xxuXPPIHaQKfZRQRA/5Yc+t3nyDOI/3HXsCxfEk+2VtO6J +Z5ByJ+YjO1EIpQkKXW98SsGafEBYTFEIef8d+VnkXwrcddudN2gKodL18seX +D5VC/KBy91YTIUy51WMFMaUQrdA0fOmAEJYM8tYpZJZCUDbhn0qFEAqUq2qr +fSiFbVmFGlt3CeO3uXeFVK0yENS4HuzhK4ynEyKEFsll8KEyvig4WBjXnxwX +L6SVgXX3DoNLccK4NY4qwmlRBqakf2Zf84XxsFNKi7F7GZCvWu8KXhbGnpNW +yWMJZSBxaTDp4g0RtGEW8Fm2lwFB/Vn8Qp4IPmmO/X3uSxmQahJiPJ6K4AyX +YPXHr2UgM7Xx8IZaEUyObVlPHS4DZZsQr8oREawifbl4508Z6K1ZoQzqiWKq +x+LMXzEmkK9/0LGkiyJz6NSVGiITKLrZGo8tRNFhT7T6SWkm0LzMFI64ieIe +AXPtYSUmmFQl8a2PEcXeyPpqez0m2IeLf9dtFMXvKamNOXZMcFg/8i2jVRQv +/SpYO7KNCdtzy78s94ji9g5rcxVnJrg0u398MymKNJ+ED8m7mOChcbtip5gY +6mURdWf3MSHgu9aFU15iWI9vHK1imBB47L/UHwfE8HdAj5XgKSYECbcm2ISJ +4VJ6vsvHeCaEYkS0eIIYTj0TrdBPZkJkVtW+h/liuCfCqfn2JSaccbJitPwR +wxGxj0lr7zOBVPKBxP6fOF7Yo5kV+5AJBSJO8zrrxTG8ZPT49CMmdLTsfnpB +VhwXeqfKygqZoLQtXGGbpTg+Nb1i2lHBBObTxX+x28Xx+1NJXq7nTLARjOl+ +6i6OVdVhpZteMCHsY9IlwUPieMCjstS7lgk1trfWNl8TR22nx3ke71j5HysN +rt4Wx1HyvTLz90z4yfvwhVaBOL66bFSl9JEJQk0lR8/ViKPcp6UHb1uY4GXd ++NNuTBz7tuz1yPnChNkH9m9PzIljwNBNB5NuVj6e9tsFq+JIdj6ztbOHlae+ +151fVALZV955j/UyYcVi7sN7Ywm83aK8J2+ICefzovJXLCTQduxR979hVr61 +bIma2yTwyxmDMLsRVp7X60zO+krgcrffmtafTOhTOi/9PFgCo65ncnCPs/LF +iy2NR0ogdXhWjTzBhEwzuWKbNAk0LQ9fOTTJhE23756LviqBZsrbC+KmWPnZ +1QMf5Uqgd/fr9NRpJoy+0lfmLZPA+Oei7PEzTDDArRnveiVQrK+riWeeCU23 +msP+jkqgXXRrYDvLXqvODuqzEviuSsX16gIrb7UXTwo3ASeiCNJrllj9lBke +qhAmIIXct/yI5YLjATU/pQhoweZMtv3L6qdxxDFrHQK2fW4sDVtmgn/W3x1R +RgQU/kDkXmJ55W8s+aE5Aa/eLnx+ZIVVn11rhbrsCdiSXdc1zrJSZcoEz04C +Fp5N8nb7x+o/SajRcC8B1R4buT5n2SbqSt6BIAJWM0kvCKusen2RjLt2lHV/ +3f6ZASyHGeZ4NpwiYMGT8IlnLFtn889uTSUgTerFrRmWFbiiEz9cJuD7sPkf +G9nKYfHgqNS2WwTcwtZW78pyc5tLYet9Aq7ZxW8ey/J9ozpzlyICFh/w8cxm +OSZXp6uzkoAcuy6Syll24bkVtOs1Af1u74lsZHlTCC/Htw8EbF28dKKNZc7P +kRlenQQMd5rX+MxyD/2H+mA/Ab2HnM+0sFxyx+ml7xgBd0qcPP+G5ZT1NU4j +swQ8lmyztZhl71CtUf9/BBwXPFdxlWXal6zjE1xEvJiv0B/BshCuEw4RImJd +wvdXtiyP5B3J+00i4tKfEk9pll/wDdEOKxHx4OEjz4dY+a+Eb/84r0nE9izh +b3ksB3W/8ImiEpFLJaTOi2VzU82FZSRizvfoMBGWpR5kpsZYE/Fxreqvalb9 +ZwW45dmdiOhc40f1YTn364AV1z4ibg4IN7nC6l/kZodvSSFEZNtpyK3MskP+ +81DeKCKe+hn14BGr/6tHr14XOktEsWcxZ/L+Py+9nNqXrhDxtK1DI4HlAouw +OvFsIj6gM2fiWPPlLmo3IVlMRIHEpLXmi0zQO1Z58mYVEXl+SfzJZM3nugFV +cfk3RPSpOtM5yprf8iccoPKFiF/KD58K/cOaL/FDrfcHiDhI1nZ4NMeE/ce/ +7VMfJ+KWB5ule2eZIL61/Lz2KhG9z4nUaLH2Y6JQRbmYm4QhsvLZtr+ZUEe4 +VK4vTMLcb5uS97L2KWw4aICmTMIFbsFzx1n713xSiWy+lYTLkiPP3MeYcG/k +Qv1bJxK+jRuwNWPt8wn7VXfr3SScZnuyXnGUCZrSXaftD5GQr7uL8wPrPEhm +nvvslkHCH2e7HVr6mbB5cikqaJCEr0mcmhkdrHpaXlJ7NU7CG3mt/sR2Vn1y +NLtE/pBQq3OzxeVWJhCcvAzLuSVRkbFmMLKZCePM1/McmyTR8I+qwHwDEy6e +Oh9+7agkStr2CtdVMqG+e6PS+ElJLHbQKOkvZ8IyubaVkSKJ88enNiyWMcHv +x5zu9xuSWBew+5JYCet5ZLNrelOtJKZa1/WuYZ3XA2IqQXV8UvjP7DfjZSYT +JIJfSEtISOH2uKHs6Kus/ax3fX9ATgoXhAx59a4woTQqRUNATwrvb17lTbvA +yts79dPNVQot3nsTV84wQfdB5b7JXCm0jLOLqAljwknjbXtIBtJIVvm1h2ML +Eyx33/xNNZXGzNz8J2/MmMAfOxbnbCON1rdNY+OQCVm1p/POe0njjomJqlFD +1nlhXTG2Nkka791mbDygwYQpV8WImS/SOKq1dZkqyITdh+eSm47JYJJ1pie1 +lfW8zjCV+nlaBrHqrCv5Yxmrfucec52XwR7ZncHq78oganljs+kdGbSlWq/j +ri2Dy3G7xcqbZHDP18DYY0Vl0HTh7a270rJoRzVrsD9fBrSCayUnXsgi5zW9 +0eYtZbD584eVX/Wy+Ch/UCHQrAzs2NZs8WyRxQKu/np2KAOf7UFfYEgWu8Zs +/BUoZWBxTD4mllMOQ+83RagrlUGI7J/bJupyuO2D9479q6VQt+/WRG2EHD4u +snZ9WFQKgQvTsfV88lhy52S0IV8pLKoLftN0VkCB7smz11jvg8b5j7KvXFHE +5ltKp+qqi2Ba2NrLpUYJ2a/K+51fXwjfU71cQrlUUJ77hF6YcwFYTR6xGqJs +QBOhka8Xvz6EcR/usJIYVTx+8sb7M4x7rPd1CfYzNRtRocs8aHL4Ngi/V0l7 +OqmGbjN7zjVx5oBU4hMHCkUDi0+o37TzyYKr6oaCIvs08WX/mW9tTzKgkWSi +P3NhE8pefPwkOfsi0KRqzmt1aCHfaf2tSnfOwYCi0rfRLi3kMjzasJp0DpLU +E9Tv9GphhkNHzljwOeikWb8hjGrhzgdedrNG5+CIW8vf/5a1sIW4KtLQlgY7 +tx7S+ymojfUSKhrRPGlwJZF1XFC00WKQGD58IhX4OXLD95zSRmOXvzmPribB +2sUXjtPx2rg3LfDS9dgk+Pfrq+7JM9oYEaBkkLU/CSa7iNPZqdpYk/MmosUg +CZqLLhzsu6KN8bLxXMJdiZDufdLPM18bD9tbyH6WTQTxGi9XjzbW9e5055kz +E0DmpKyxm4oOsnen+/FJxkNBGLfCV1UdzCiv/JDMFQ8Mv2muPeo6aE7sOCQx +GwceW2tb92vr4DV7zq2738dBlti+gKM0HWyK+XckJzYOiA8LMjPsdJCuwK45 +P3oKRFvpi+0ROphoS9mc//Yk8Ci7l25/q4MpN7Q0SbtiwJ8I1vkNOrgir5/o +SY+BRj6FbxxNOrjuh4NElWwMpP75wfmsWQfdBfSyK76fAP76MGeJLh38YZjw +X1PwCRAOSJntHtfB69GP1PSTj4NUYYWur7Aupiu/Odz48RhsohOfHPHQRT7H ++7/trh+FYsUDf9m9dHFBTy1uJvYoGKwr35LmrYsR9ZPVT/yOguln1747+3RR +ViRxKUj3KLgcuirUckgXm3h3t6x9dwRi7kqEayToopWeYHoa2xFo5hM37C/Q +Rf6/MvsuRh+G0G/CtdZseigjLMO74Vko1L9xf/6QXQ9v8F73zM0JBZkneWXr +OPVwkDNAQCstFBpjaI8aefTwzPysU/S+UFCQ975sLaKHV9aLaQ2RQuGTT+E+ +axU9zBztHB6KPwTao/a81jZ6mE0337fdNwQmZ1Kdra7qYQSffVX5w0Do6cxx +uZGph28b6sMsUgOh8XnpjuksPdz0akZ68mAg3DnT53YtRw8FjAMXL+oEwk5J +8u7Rh3rIT5K7urEiAF6bdvslPddDPcNXo6HN/nD9wsajDQN6+Jl/ynRG8AAk +RjAipYf0cIAWVfF5bj9E7HKMOvRDD/fGb37c3rUfHJSPRxPH9XADY6xM+u5+ +WFveHHtgTg/FRe5b99D2w6G+I0k83GS0thp7xx6wD7Zovcm00iRjWMBdRuhX +X3Bda+nUrEXG9i7PQJdaX/D/2sC3Q5eMG+yzupwf+EJayvvYvVQyMrJdpfIO ++0LHjza/GBMyti40FCYJ+MLe7EHdZ85knFyQ0rey3AunhP57J3eCjN7Lb8t4 +33vDpZFT8fdiydhNV9XTLPWGvBdrGJviyMiZuKTkd8sbGg9yFxolkjH8O4e4 +fKg3CDUKZLikk9GxurODSfCG7FMyPql5ZLzIX2fh4b8HqmeM/s5/YP3fqlFs +RMYLcprKvB0/kVGIzTp+M68XxN/VayxoJePr87i8b8YTrHaoX/PtJOMxzu15 +GQ88oa2CRG3tJ6Owu3dshYQn/Dy5GFowS8ZSmUKf30seIC5Y9nMvSR9vpAmm +2/fsgsUR3e0vpfTR8PcmvrTKXdDzqqBcUlYfxW6IlP/K3AU5YXmJLYr6KOse +qi6+cxdofL6sgpr6qMp7wmDpy04wvRnuLYn6+KuiWH6l1w2CNHS7PvnqY472 +ueOKa1zh8DxpyXO/Pu6j7yBzDe2A6BoO0i9/faRO/+3if7MDUlzb3daF6OM/ +omNAUuIOuB9/9ItplD56DIu92SCwAwZ6qjuL01j3J3NAZUzBBVzObv18uUwf +a3qJHbd8nMDDlTyvWKGPt6w6nV9YOsFeRWmJoip9nK/wv/BP0wnCyn+5fHil +j6ExolXdC45wfuhCx9omfTzVQfLlO+8IjfTO9iN9+hh+0yZOt2470H/tbXPj +oeCUa1v7I9NtIF65JbdqPQV1TyarC2hug19n1EJk+Sl44Z9kV5LENrgpP7V+ +SJiCXKp+g2/HHeCf0zGzECkKbtiWLrb3qgO8qLxQlKBFwTzFaiehEXswSao+ +X+xMwdIq8qm3R22B5JKzW9yVgrLKoolWjrbwWyFeI3InBY0b2bP+aNpCbpVV +PcOTgnU5t00/DdoA+1TbasN+Chqahg3EbbOBWpexoL5jFKS6PL5STt4K5koE +W75cCj4r0J23IFpBycRr+b13KKgh2p4UvWgJSmVhfyryKFi71exKxxdLWGP9 +8db+fArycEYnz2daQk1wwu/aEgpeI94YGZGxBEblbEbUWwpa+lyQ9tfcApTt +nwZ+jFOwzHXdvmkfc8iTjCljTFLwhvKnrEOW5iA2pJF6eZqCg0sWM0Ka5jB7 +JFHf7A8FPVPiThT92QxFNyDx5iorP1ExKjhlM2iNPtZ0FqZin/BkdVWFGajG +Jh+toVJRfaGp+a2WKVQZ3eW0oVFxTeUFLT5xU3CYf5HebkzFM45LVWHLJnA0 +aO7RiAkVy71Kmm43mEC9u1c/vw0VK/aeyEvxNYH9hhTrXV5U9N6VMe52G+HB +737J2UQqkuc8tv0MYACjYPn+8RQqvnf2uayHDGg5IEHhSqOitsx761JRBiz1 +2TiQLlIxK3tpxa+aDtYfy+LxBhWrroFJkCgdfuafnUgtpKJ13PhYV6MRqPka +vlDuouLcu+PewZ6GcE7Bbimuh4pmuSKefcaGMNvrrT/wjYozG5rPRJMMoXpn +av7NQSqmB/rd0O8wgO0OvRkSE1S85XI++669AUQanQ7hYTPA5MWgDkdrKtQL +fZKfUDbA+Aj15Pse+qD5cch9q6oB2lVoqimjPqSnLmU8UDPAmaJPW94q6IM7 +lxK/n5YBam3x23ZshAyTyxFL3wxYZru7fOMwGcRHpFqbtxpgmIeqzoMreuBb +vT++5JABqh57alr5Wwd+Hfx5xDzcAF8Ela6J+awDR6UDAzoiDPC3p1f//iod +SI4O3r5wzAA763rVChJ04CktQs44wQCLF3PfLUrpwHJpXFVtpgEyzfY6Bzpo +Q/qTm7MttQaoW8D5lv22Jkh5yo34vDHAxxKvnu4+rAl3+XO7Z+sN0Ezh3sW/ +WzSBefBujfgHA/xn1PXnz4QGfFV/dH5npwFWWp9VGjPWANX75RoD4wbIvbG7 +8+SwGrzIbts7LWaI32BxBf1Uoc9G3jOCYIgu95WcW1AV2BYPuv0lGWLqYNTg +VUlVMN3GZccpZ4iOzXYX6z5tgDf/0ahENUMMPr6uOQ03QJP3LR4ThiHuOLbO +uGSDCnQp+Rec9zPEDCMbuRMkJfjbXHpf7IAhnsu7sp76VxGkjnPczgwwxO60 +lxulexTBoz0r406IIQq9WxIMuakIfac/xjKjDFFBhIekpqwIP4bJjn1phpjn +5nWwiqYAs/dX57XKDPH6y0n/lng5GHaxyE4qN8Q4xSe7TgXKQeeas5aDlYZY +NBl93dFJDiq9SNeuvDTEYxHX97gpycEpgj5tpcEQv/C8WtudIguCif7RjT2G +2GjwT2qjjAxo7Gtn82Wn4eNs3aFLIZIgIyb1oHoNDaumLzx/vEUSBGu9txG4 +aNhfnRO2KiMJMzJTOe/W0/CrPG2HzQcSVHSsM9MVoyH3dUHFeC0SWFrg6dUN +NKxToPFtWiaAj3I+T6YtDZ+P/PQ9WyUOUa93+6s40HDkmpWKW4Y4nPcVfle0 +nYb59TUNHqHiUHU3MvXdDhpG5cVGCW4UB1EVS4GVPTRkGEf3CF8TgzcqQ6Je +ETQcoqUWbokTBTVVWTmVWzTW98pIt+8JYcD6ltiiHBo6O6gHV3gKg8v+hH7G +HRqOOTjlMEyEIe7+RO6OBzT8ffv3p7Y1wtCjWqWcVExDO//qNTppQpC20U19 +/C0NTVISPgQ9EIRptYuUoikaDotOkuPZ+KGzCc1FZmjIRWjaHvKJD14G/XIM +n6PhlhzjypxcPkgrsjpEWaLhq0zRmRZzPlCjsT2q4DBCmYMpjXvP8YK31UH5 +WnEj3DQ5PTG3aT207dvC22ZshDl5l4/63OCGSp45kj4YYeTRhlLrCG7Izc/d +eMXECG23BdsG2nNDyOSKhauFEVZtvGXiwc4NfEdKTvbYG+Fr0bjkCX8usEiQ +n//ubYQG9AjeOIu1wLzzt38u0QhrbbfJHVJeAxSz8HnrFCNM0R7795RzDTzr +H+fNPmuEebLus7LDHFAk841qnW6EiUOJcsn3OODR1Zdnb143QqaQXmSiBgdk +p5423FJghARXt/V/GOyQFC5w4WqrEWZp1eSNxbEBt0hi3kS7EapHceReOcAG +CYVsVaadRtjO/33TAXs2iP81PTzew8qLznLxkmxwYn+bscmwER6S2dwoHrDK +CHW/NjK6YIQxhVE/vPpXGDs3K6KRjDFmNDt0tXH8Zay0cfPXyhlj2pf+u+lt +S4xs31/d1orG2GRzNvLm3SXGcEL5kZ2qxtj3ftH1puUSI7TB/kmkrjEaK6T9 +1UlfZCTbRcswLYzxXUsBr5neAqPCtX2ZHGyMPuQbu1cfzDE8Risaqw4Z4wp9 +372cuDkGW1T21c3hxhjndU4t3mOOYXE9gOwUaYwRYrvtuIXnGC1f/wsMizNG +BjdFm/3ELOOn96buwgxjbGtZtt+3Z4YhefBM+aaXxljsuO2Nv+M0I23VTz+l +xhi/nKNuCKJMM9jTLQp/1BmjxbsnIbeI04yfpZwPshuMMWyP3uPkvilGBVv8 +VeFWY+Ro7w+ODpli7LwUe+TPkDFWvLN7raIzybhaGalfvZ6O7S/1m/IExhm8 +dm6FJH467j/V66bZN8aI7TPQPCJIR/EBEx62wjHGfs4FJW0xOkq89edIdBxj +UO0jRHNl6JicfZtDPOsno2MgdOa0Dh3l3vptaKCNMsTWBRba7qCjyNRCUW7+ +MOOO2fGoKTc6PmVLzHSPHWboHk8zu+hOx//erxnZ6zzMsJt62t65h468XJ63 +drMNMxI65hZ9AunoF3VHYsRtiLGQG2MadZKOYde8Lg6QvjO6jC625uXT8cmI +RQnxUz9j/+E7WVYFdGzIvDX+qKCf8afgme/4UzquG+jdFZPazxBW6JzXKaUj +/LdTrc+yn7GVW1rq+Us6vi62qzpd18eoasvb29pOR+LwIXmetF6GNT9TM6KT +jveyjL8WOfQyOrc0/CF00zH2suDye5FexmzFWOLuPjpmqSXYOl//xtDM0X48 ++pOOKdO2U+lPvjKqukwiUifoODSsGlh0+CvDWtQRtKbo6C+UjXTjrwy/M4c/ +hc/R8QqvE2d6Yw9j9mVCpsQCq16M0yd3pvcwTi1l+FQs0XHTZ2pQys4ehiD5 +gYbHCh2jfriJKin2MG4erJhbXaVjaf6aasXxbsb/AAL33w4= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.09766907546812026}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8428,6 +15326,7 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8455,7 +15354,8 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09766907546812026}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8463,17 +15363,769 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913381496467495`*^9}, + CellChangeTimes->{3.9913381496467495`*^9, 3.9938538075536423`*^9}, CellLabel-> - "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] + "Out[140]=",ExpressionUUID->"d609a7cd-c89e-486d-87a3-bba81456c01e"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ -5c3b93725916"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0VP8bB3BfEsq+zox9TZZsY4Zh5nkQIVtZooiICiGkSFEkWyotSipU +WpSyxFhSoUIq2RLKFhFCyBL5ze+vOa9z5txz38/yuffKewdv92VnY2N7+x8b +2/9//3xrqFNKucPIa85JGVy/jdF2kxBp0nkKhoYIpXwWWoBiH70Jnelw3aX3 +TY05QITDw88cnbnwfkPJ09Pm9iD0SyJ98XMR+M3efMRt7gm9VXbBs59roOzi +HmcHs2CwUPr5dfpzC1zTnC07axwDi5+pl6c+DwDdl6M8W/4c1Jrdu/Mpdwa+ +2ZWI/5i9BVK95cPeGisQean+7Q2teyAa6PmQy4wDZ0dd7z3PewzpOhaVds7c +2DryweL2SCFodbttoe/nRjnI+0WZKYSm+IOt6se4cfL0fd/alUJY23lpjDuH +G4vKKCVvhIvg2IlBydpxbmQS6iIjjItg77vYaGo8D0Z9rhk5klYEFN9Kulzx +OrzuVuM7oVEMrfwfG/jfrMP792LXXqYUQwhzwHmlcx2yHR6X0MdieLh+XVDX +v3XYULb51G7HYpAtcr15yXo9/qhx1nCJLAbu1bl/3APrkbCgmtNRWwxfrmq/ +nBbkQ9HHfwPWO5ZAZmu+QIQyHx691r49wr0EdvJv8Fwy5EPLr0y2Tt8S6ImT +/sfuw4fu533uxRwtgb6gdcaiz/jwn7xFl+eNEhjZ/L2M4saPhdSeqj1DJbAw +lfHkWI4AroSsFXcPegbl6iKrq88EkP6u4+D1iGcQ5ZdmF98ogNfuqVh+OvEM +lrvjJ1JnBPA4R/xxuXPPIHaQKfZRQRA/5Yc+t3nyDOI/3HXsCxfEk+2VtO6J +Z5ByJ+YjO1EIpQkKXW98SsGafEBYTFEIef8d+VnkXwrcddudN2gKodL18seX +D5VC/KBy91YTIUy51WMFMaUQrdA0fOmAEJYM8tYpZJZCUDbhn0qFEAqUq2qr +fSiFbVmFGlt3CeO3uXeFVK0yENS4HuzhK4ynEyKEFsll8KEyvig4WBjXnxwX +L6SVgXX3DoNLccK4NY4qwmlRBqakf2Zf84XxsFNKi7F7GZCvWu8KXhbGnpNW +yWMJZSBxaTDp4g0RtGEW8Fm2lwFB/Vn8Qp4IPmmO/X3uSxmQahJiPJ6K4AyX +YPXHr2UgM7Xx8IZaEUyObVlPHS4DZZsQr8oREawifbl4508Z6K1ZoQzqiWKq +x+LMXzEmkK9/0LGkiyJz6NSVGiITKLrZGo8tRNFhT7T6SWkm0LzMFI64ieIe +AXPtYSUmmFQl8a2PEcXeyPpqez0m2IeLf9dtFMXvKamNOXZMcFg/8i2jVRQv +/SpYO7KNCdtzy78s94ji9g5rcxVnJrg0u398MymKNJ+ED8m7mOChcbtip5gY +6mURdWf3MSHgu9aFU15iWI9vHK1imBB47L/UHwfE8HdAj5XgKSYECbcm2ISJ +4VJ6vsvHeCaEYkS0eIIYTj0TrdBPZkJkVtW+h/liuCfCqfn2JSaccbJitPwR +wxGxj0lr7zOBVPKBxP6fOF7Yo5kV+5AJBSJO8zrrxTG8ZPT49CMmdLTsfnpB +VhwXeqfKygqZoLQtXGGbpTg+Nb1i2lHBBObTxX+x28Xx+1NJXq7nTLARjOl+ +6i6OVdVhpZteMCHsY9IlwUPieMCjstS7lgk1trfWNl8TR22nx3ke71j5HysN +rt4Wx1HyvTLz90z4yfvwhVaBOL66bFSl9JEJQk0lR8/ViKPcp6UHb1uY4GXd ++NNuTBz7tuz1yPnChNkH9m9PzIljwNBNB5NuVj6e9tsFq+JIdj6ztbOHlae+ +151fVALZV955j/UyYcVi7sN7Ywm83aK8J2+ICefzovJXLCTQduxR979hVr61 +bIma2yTwyxmDMLsRVp7X60zO+krgcrffmtafTOhTOi/9PFgCo65ncnCPs/LF +iy2NR0ogdXhWjTzBhEwzuWKbNAk0LQ9fOTTJhE23756LviqBZsrbC+KmWPnZ +1QMf5Uqgd/fr9NRpJoy+0lfmLZPA+Oei7PEzTDDArRnveiVQrK+riWeeCU23 +msP+jkqgXXRrYDvLXqvODuqzEviuSsX16gIrb7UXTwo3ASeiCNJrllj9lBke +qhAmIIXct/yI5YLjATU/pQhoweZMtv3L6qdxxDFrHQK2fW4sDVtmgn/W3x1R +RgQU/kDkXmJ55W8s+aE5Aa/eLnx+ZIVVn11rhbrsCdiSXdc1zrJSZcoEz04C +Fp5N8nb7x+o/SajRcC8B1R4buT5n2SbqSt6BIAJWM0kvCKusen2RjLt2lHV/ +3f6ZASyHGeZ4NpwiYMGT8IlnLFtn889uTSUgTerFrRmWFbiiEz9cJuD7sPkf +G9nKYfHgqNS2WwTcwtZW78pyc5tLYet9Aq7ZxW8ey/J9ozpzlyICFh/w8cxm +OSZXp6uzkoAcuy6Syll24bkVtOs1Af1u74lsZHlTCC/Htw8EbF28dKKNZc7P +kRlenQQMd5rX+MxyD/2H+mA/Ab2HnM+0sFxyx+ml7xgBd0qcPP+G5ZT1NU4j +swQ8lmyztZhl71CtUf9/BBwXPFdxlWXal6zjE1xEvJiv0B/BshCuEw4RImJd +wvdXtiyP5B3J+00i4tKfEk9pll/wDdEOKxHx4OEjz4dY+a+Eb/84r0nE9izh +b3ksB3W/8ImiEpFLJaTOi2VzU82FZSRizvfoMBGWpR5kpsZYE/Fxreqvalb9 +ZwW45dmdiOhc40f1YTn364AV1z4ibg4IN7nC6l/kZodvSSFEZNtpyK3MskP+ +81DeKCKe+hn14BGr/6tHr14XOktEsWcxZ/L+Py+9nNqXrhDxtK1DI4HlAouw +OvFsIj6gM2fiWPPlLmo3IVlMRIHEpLXmi0zQO1Z58mYVEXl+SfzJZM3nugFV +cfk3RPSpOtM5yprf8iccoPKFiF/KD58K/cOaL/FDrfcHiDhI1nZ4NMeE/ce/ +7VMfJ+KWB5ule2eZIL61/Lz2KhG9z4nUaLH2Y6JQRbmYm4QhsvLZtr+ZUEe4 +VK4vTMLcb5uS97L2KWw4aICmTMIFbsFzx1n713xSiWy+lYTLkiPP3MeYcG/k +Qv1bJxK+jRuwNWPt8wn7VXfr3SScZnuyXnGUCZrSXaftD5GQr7uL8wPrPEhm +nvvslkHCH2e7HVr6mbB5cikqaJCEr0mcmhkdrHpaXlJ7NU7CG3mt/sR2Vn1y +NLtE/pBQq3OzxeVWJhCcvAzLuSVRkbFmMLKZCePM1/McmyTR8I+qwHwDEy6e +Oh9+7agkStr2CtdVMqG+e6PS+ElJLHbQKOkvZ8IyubaVkSKJ88enNiyWMcHv +x5zu9xuSWBew+5JYCet5ZLNrelOtJKZa1/WuYZ3XA2IqQXV8UvjP7DfjZSYT +JIJfSEtISOH2uKHs6Kus/ax3fX9ATgoXhAx59a4woTQqRUNATwrvb17lTbvA +yts79dPNVQot3nsTV84wQfdB5b7JXCm0jLOLqAljwknjbXtIBtJIVvm1h2ML +Eyx33/xNNZXGzNz8J2/MmMAfOxbnbCON1rdNY+OQCVm1p/POe0njjomJqlFD +1nlhXTG2Nkka791mbDygwYQpV8WImS/SOKq1dZkqyITdh+eSm47JYJJ1pie1 +lfW8zjCV+nlaBrHqrCv5Yxmrfucec52XwR7ZncHq78oganljs+kdGbSlWq/j +ri2Dy3G7xcqbZHDP18DYY0Vl0HTh7a270rJoRzVrsD9fBrSCayUnXsgi5zW9 +0eYtZbD584eVX/Wy+Ch/UCHQrAzs2NZs8WyRxQKu/np2KAOf7UFfYEgWu8Zs +/BUoZWBxTD4mllMOQ+83RagrlUGI7J/bJupyuO2D9479q6VQt+/WRG2EHD4u +snZ9WFQKgQvTsfV88lhy52S0IV8pLKoLftN0VkCB7smz11jvg8b5j7KvXFHE +5ltKp+qqi2Ba2NrLpUYJ2a/K+51fXwjfU71cQrlUUJ77hF6YcwFYTR6xGqJs +QBOhka8Xvz6EcR/usJIYVTx+8sb7M4x7rPd1CfYzNRtRocs8aHL4Ngi/V0l7 +OqmGbjN7zjVx5oBU4hMHCkUDi0+o37TzyYKr6oaCIvs08WX/mW9tTzKgkWSi +P3NhE8pefPwkOfsi0KRqzmt1aCHfaf2tSnfOwYCi0rfRLi3kMjzasJp0DpLU +E9Tv9GphhkNHzljwOeikWb8hjGrhzgdedrNG5+CIW8vf/5a1sIW4KtLQlgY7 +tx7S+ymojfUSKhrRPGlwJZF1XFC00WKQGD58IhX4OXLD95zSRmOXvzmPribB +2sUXjtPx2rg3LfDS9dgk+Pfrq+7JM9oYEaBkkLU/CSa7iNPZqdpYk/MmosUg +CZqLLhzsu6KN8bLxXMJdiZDufdLPM18bD9tbyH6WTQTxGi9XjzbW9e5055kz +E0DmpKyxm4oOsnen+/FJxkNBGLfCV1UdzCiv/JDMFQ8Mv2muPeo6aE7sOCQx +GwceW2tb92vr4DV7zq2738dBlti+gKM0HWyK+XckJzYOiA8LMjPsdJCuwK45 +P3oKRFvpi+0ROphoS9mc//Yk8Ci7l25/q4MpN7Q0SbtiwJ8I1vkNOrgir5/o +SY+BRj6FbxxNOrjuh4NElWwMpP75wfmsWQfdBfSyK76fAP76MGeJLh38YZjw +X1PwCRAOSJntHtfB69GP1PSTj4NUYYWur7Aupiu/Odz48RhsohOfHPHQRT7H ++7/trh+FYsUDf9m9dHFBTy1uJvYoGKwr35LmrYsR9ZPVT/yOguln1747+3RR +ViRxKUj3KLgcuirUckgXm3h3t6x9dwRi7kqEayToopWeYHoa2xFo5hM37C/Q +Rf6/MvsuRh+G0G/CtdZseigjLMO74Vko1L9xf/6QXQ9v8F73zM0JBZkneWXr +OPVwkDNAQCstFBpjaI8aefTwzPysU/S+UFCQ975sLaKHV9aLaQ2RQuGTT+E+ +axU9zBztHB6KPwTao/a81jZ6mE0337fdNwQmZ1Kdra7qYQSffVX5w0Do6cxx +uZGph28b6sMsUgOh8XnpjuksPdz0akZ68mAg3DnT53YtRw8FjAMXL+oEwk5J +8u7Rh3rIT5K7urEiAF6bdvslPddDPcNXo6HN/nD9wsajDQN6+Jl/ynRG8AAk +RjAipYf0cIAWVfF5bj9E7HKMOvRDD/fGb37c3rUfHJSPRxPH9XADY6xM+u5+ +WFveHHtgTg/FRe5b99D2w6G+I0k83GS0thp7xx6wD7Zovcm00iRjWMBdRuhX +X3Bda+nUrEXG9i7PQJdaX/D/2sC3Q5eMG+yzupwf+EJayvvYvVQyMrJdpfIO ++0LHjza/GBMyti40FCYJ+MLe7EHdZ85knFyQ0rey3AunhP57J3eCjN7Lb8t4 +33vDpZFT8fdiydhNV9XTLPWGvBdrGJviyMiZuKTkd8sbGg9yFxolkjH8O4e4 +fKg3CDUKZLikk9GxurODSfCG7FMyPql5ZLzIX2fh4b8HqmeM/s5/YP3fqlFs +RMYLcprKvB0/kVGIzTp+M68XxN/VayxoJePr87i8b8YTrHaoX/PtJOMxzu15 +GQ88oa2CRG3tJ6Owu3dshYQn/Dy5GFowS8ZSmUKf30seIC5Y9nMvSR9vpAmm +2/fsgsUR3e0vpfTR8PcmvrTKXdDzqqBcUlYfxW6IlP/K3AU5YXmJLYr6KOse +qi6+cxdofL6sgpr6qMp7wmDpy04wvRnuLYn6+KuiWH6l1w2CNHS7PvnqY472 +ueOKa1zh8DxpyXO/Pu6j7yBzDe2A6BoO0i9/faRO/+3if7MDUlzb3daF6OM/ +omNAUuIOuB9/9ItplD56DIu92SCwAwZ6qjuL01j3J3NAZUzBBVzObv18uUwf +a3qJHbd8nMDDlTyvWKGPt6w6nV9YOsFeRWmJoip9nK/wv/BP0wnCyn+5fHil +j6ExolXdC45wfuhCx9omfTzVQfLlO+8IjfTO9iN9+hh+0yZOt2470H/tbXPj +oeCUa1v7I9NtIF65JbdqPQV1TyarC2hug19n1EJk+Sl44Z9kV5LENrgpP7V+ +SJiCXKp+g2/HHeCf0zGzECkKbtiWLrb3qgO8qLxQlKBFwTzFaiehEXswSao+ +X+xMwdIq8qm3R22B5JKzW9yVgrLKoolWjrbwWyFeI3InBY0b2bP+aNpCbpVV +PcOTgnU5t00/DdoA+1TbasN+Chqahg3EbbOBWpexoL5jFKS6PL5STt4K5koE +W75cCj4r0J23IFpBycRr+b13KKgh2p4UvWgJSmVhfyryKFi71exKxxdLWGP9 +8db+fArycEYnz2daQk1wwu/aEgpeI94YGZGxBEblbEbUWwpa+lyQ9tfcApTt +nwZ+jFOwzHXdvmkfc8iTjCljTFLwhvKnrEOW5iA2pJF6eZqCg0sWM0Ka5jB7 +JFHf7A8FPVPiThT92QxFNyDx5iorP1ExKjhlM2iNPtZ0FqZin/BkdVWFGajG +Jh+toVJRfaGp+a2WKVQZ3eW0oVFxTeUFLT5xU3CYf5HebkzFM45LVWHLJnA0 +aO7RiAkVy71Kmm43mEC9u1c/vw0VK/aeyEvxNYH9hhTrXV5U9N6VMe52G+HB +737J2UQqkuc8tv0MYACjYPn+8RQqvnf2uayHDGg5IEHhSqOitsx761JRBiz1 +2TiQLlIxK3tpxa+aDtYfy+LxBhWrroFJkCgdfuafnUgtpKJ13PhYV6MRqPka +vlDuouLcu+PewZ6GcE7Bbimuh4pmuSKefcaGMNvrrT/wjYozG5rPRJMMoXpn +av7NQSqmB/rd0O8wgO0OvRkSE1S85XI++669AUQanQ7hYTPA5MWgDkdrKtQL +fZKfUDbA+Aj15Pse+qD5cch9q6oB2lVoqimjPqSnLmU8UDPAmaJPW94q6IM7 +lxK/n5YBam3x23ZshAyTyxFL3wxYZru7fOMwGcRHpFqbtxpgmIeqzoMreuBb +vT++5JABqh57alr5Wwd+Hfx5xDzcAF8Ela6J+awDR6UDAzoiDPC3p1f//iod +SI4O3r5wzAA763rVChJ04CktQs44wQCLF3PfLUrpwHJpXFVtpgEyzfY6Bzpo +Q/qTm7MttQaoW8D5lv22Jkh5yo34vDHAxxKvnu4+rAl3+XO7Z+sN0Ezh3sW/ +WzSBefBujfgHA/xn1PXnz4QGfFV/dH5npwFWWp9VGjPWANX75RoD4wbIvbG7 +8+SwGrzIbts7LWaI32BxBf1Uoc9G3jOCYIgu95WcW1AV2BYPuv0lGWLqYNTg +VUlVMN3GZccpZ4iOzXYX6z5tgDf/0ahENUMMPr6uOQ03QJP3LR4ThiHuOLbO +uGSDCnQp+Rec9zPEDCMbuRMkJfjbXHpf7IAhnsu7sp76VxGkjnPczgwwxO60 +lxulexTBoz0r406IIQq9WxIMuakIfac/xjKjDFFBhIekpqwIP4bJjn1phpjn +5nWwiqYAs/dX57XKDPH6y0n/lng5GHaxyE4qN8Q4xSe7TgXKQeeas5aDlYZY +NBl93dFJDiq9SNeuvDTEYxHX97gpycEpgj5tpcEQv/C8WtudIguCif7RjT2G +2GjwT2qjjAxo7Gtn82Wn4eNs3aFLIZIgIyb1oHoNDaumLzx/vEUSBGu9txG4 +aNhfnRO2KiMJMzJTOe/W0/CrPG2HzQcSVHSsM9MVoyH3dUHFeC0SWFrg6dUN +NKxToPFtWiaAj3I+T6YtDZ+P/PQ9WyUOUa93+6s40HDkmpWKW4Y4nPcVfle0 +nYb59TUNHqHiUHU3MvXdDhpG5cVGCW4UB1EVS4GVPTRkGEf3CF8TgzcqQ6Je +ETQcoqUWbokTBTVVWTmVWzTW98pIt+8JYcD6ltiiHBo6O6gHV3gKg8v+hH7G +HRqOOTjlMEyEIe7+RO6OBzT8ffv3p7Y1wtCjWqWcVExDO//qNTppQpC20U19 +/C0NTVISPgQ9EIRptYuUoikaDotOkuPZ+KGzCc1FZmjIRWjaHvKJD14G/XIM +n6PhlhzjypxcPkgrsjpEWaLhq0zRmRZzPlCjsT2q4DBCmYMpjXvP8YK31UH5 +WnEj3DQ5PTG3aT207dvC22ZshDl5l4/63OCGSp45kj4YYeTRhlLrCG7Izc/d +eMXECG23BdsG2nNDyOSKhauFEVZtvGXiwc4NfEdKTvbYG+Fr0bjkCX8usEiQ +n//ubYQG9AjeOIu1wLzzt38u0QhrbbfJHVJeAxSz8HnrFCNM0R7795RzDTzr +H+fNPmuEebLus7LDHFAk841qnW6EiUOJcsn3OODR1Zdnb143QqaQXmSiBgdk +p5423FJghARXt/V/GOyQFC5w4WqrEWZp1eSNxbEBt0hi3kS7EapHceReOcAG +CYVsVaadRtjO/33TAXs2iP81PTzew8qLznLxkmxwYn+bscmwER6S2dwoHrDK +CHW/NjK6YIQxhVE/vPpXGDs3K6KRjDFmNDt0tXH8Zay0cfPXyhlj2pf+u+lt +S4xs31/d1orG2GRzNvLm3SXGcEL5kZ2qxtj3ftH1puUSI7TB/kmkrjEaK6T9 +1UlfZCTbRcswLYzxXUsBr5neAqPCtX2ZHGyMPuQbu1cfzDE8Risaqw4Z4wp9 +372cuDkGW1T21c3hxhjndU4t3mOOYXE9gOwUaYwRYrvtuIXnGC1f/wsMizNG +BjdFm/3ELOOn96buwgxjbGtZtt+3Z4YhefBM+aaXxljsuO2Nv+M0I23VTz+l +xhi/nKNuCKJMM9jTLQp/1BmjxbsnIbeI04yfpZwPshuMMWyP3uPkvilGBVv8 +VeFWY+Ro7w+ODpli7LwUe+TPkDFWvLN7raIzybhaGalfvZ6O7S/1m/IExhm8 +dm6FJH467j/V66bZN8aI7TPQPCJIR/EBEx62wjHGfs4FJW0xOkq89edIdBxj +UO0jRHNl6JicfZtDPOsno2MgdOa0Dh3l3vptaKCNMsTWBRba7qCjyNRCUW7+ +MOOO2fGoKTc6PmVLzHSPHWboHk8zu+hOx//erxnZ6zzMsJt62t65h468XJ63 +drMNMxI65hZ9AunoF3VHYsRtiLGQG2MadZKOYde8Lg6QvjO6jC625uXT8cmI +RQnxUz9j/+E7WVYFdGzIvDX+qKCf8afgme/4UzquG+jdFZPazxBW6JzXKaUj +/LdTrc+yn7GVW1rq+Us6vi62qzpd18eoasvb29pOR+LwIXmetF6GNT9TM6KT +jveyjL8WOfQyOrc0/CF00zH2suDye5FexmzFWOLuPjpmqSXYOl//xtDM0X48 ++pOOKdO2U+lPvjKqukwiUifoODSsGlh0+CvDWtQRtKbo6C+UjXTjrwy/M4c/ +hc/R8QqvE2d6Yw9j9mVCpsQCq16M0yd3pvcwTi1l+FQs0XHTZ2pQys4ehiD5 +gYbHCh2jfriJKin2MG4erJhbXaVjaf6aasXxbsb/AAL33w4= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VP8bB3BfEsq+zox9TZZsY4Zh5nkQIVtZooiICiGkSFEkWyotSipU +WpSyxFhSoUIq2RLKFhFCyBL5ze+vOa9z5txz38/yuffKewdv92VnY2N7+x8b +2/9//3xrqFNKucPIa85JGVy/jdF2kxBp0nkKhoYIpXwWWoBiH70Jnelw3aX3 +TY05QITDw88cnbnwfkPJ09Pm9iD0SyJ98XMR+M3efMRt7gm9VXbBs59roOzi +HmcHs2CwUPr5dfpzC1zTnC07axwDi5+pl6c+DwDdl6M8W/4c1Jrdu/Mpdwa+ +2ZWI/5i9BVK95cPeGisQean+7Q2teyAa6PmQy4wDZ0dd7z3PewzpOhaVds7c +2DryweL2SCFodbttoe/nRjnI+0WZKYSm+IOt6se4cfL0fd/alUJY23lpjDuH +G4vKKCVvhIvg2IlBydpxbmQS6iIjjItg77vYaGo8D0Z9rhk5klYEFN9Kulzx +OrzuVuM7oVEMrfwfG/jfrMP792LXXqYUQwhzwHmlcx2yHR6X0MdieLh+XVDX +v3XYULb51G7HYpAtcr15yXo9/qhx1nCJLAbu1bl/3APrkbCgmtNRWwxfrmq/ +nBbkQ9HHfwPWO5ZAZmu+QIQyHx691r49wr0EdvJv8Fwy5EPLr0y2Tt8S6ImT +/sfuw4fu533uxRwtgb6gdcaiz/jwn7xFl+eNEhjZ/L2M4saPhdSeqj1DJbAw +lfHkWI4AroSsFXcPegbl6iKrq88EkP6u4+D1iGcQ5ZdmF98ogNfuqVh+OvEM +lrvjJ1JnBPA4R/xxuXPPIHaQKfZRQRA/5Yc+t3nyDOI/3HXsCxfEk+2VtO6J +Z5ByJ+YjO1EIpQkKXW98SsGafEBYTFEIef8d+VnkXwrcddudN2gKodL18seX +D5VC/KBy91YTIUy51WMFMaUQrdA0fOmAEJYM8tYpZJZCUDbhn0qFEAqUq2qr +fSiFbVmFGlt3CeO3uXeFVK0yENS4HuzhK4ynEyKEFsll8KEyvig4WBjXnxwX +L6SVgXX3DoNLccK4NY4qwmlRBqakf2Zf84XxsFNKi7F7GZCvWu8KXhbGnpNW +yWMJZSBxaTDp4g0RtGEW8Fm2lwFB/Vn8Qp4IPmmO/X3uSxmQahJiPJ6K4AyX +YPXHr2UgM7Xx8IZaEUyObVlPHS4DZZsQr8oREawifbl4508Z6K1ZoQzqiWKq +x+LMXzEmkK9/0LGkiyJz6NSVGiITKLrZGo8tRNFhT7T6SWkm0LzMFI64ieIe +AXPtYSUmmFQl8a2PEcXeyPpqez0m2IeLf9dtFMXvKamNOXZMcFg/8i2jVRQv +/SpYO7KNCdtzy78s94ji9g5rcxVnJrg0u398MymKNJ+ED8m7mOChcbtip5gY +6mURdWf3MSHgu9aFU15iWI9vHK1imBB47L/UHwfE8HdAj5XgKSYECbcm2ISJ +4VJ6vsvHeCaEYkS0eIIYTj0TrdBPZkJkVtW+h/liuCfCqfn2JSaccbJitPwR +wxGxj0lr7zOBVPKBxP6fOF7Yo5kV+5AJBSJO8zrrxTG8ZPT49CMmdLTsfnpB +VhwXeqfKygqZoLQtXGGbpTg+Nb1i2lHBBObTxX+x28Xx+1NJXq7nTLARjOl+ +6i6OVdVhpZteMCHsY9IlwUPieMCjstS7lgk1trfWNl8TR22nx3ke71j5HysN +rt4Wx1HyvTLz90z4yfvwhVaBOL66bFSl9JEJQk0lR8/ViKPcp6UHb1uY4GXd ++NNuTBz7tuz1yPnChNkH9m9PzIljwNBNB5NuVj6e9tsFq+JIdj6ztbOHlae+ +151fVALZV955j/UyYcVi7sN7Ywm83aK8J2+ICefzovJXLCTQduxR979hVr61 +bIma2yTwyxmDMLsRVp7X60zO+krgcrffmtafTOhTOi/9PFgCo65ncnCPs/LF +iy2NR0ogdXhWjTzBhEwzuWKbNAk0LQ9fOTTJhE23756LviqBZsrbC+KmWPnZ +1QMf5Uqgd/fr9NRpJoy+0lfmLZPA+Oei7PEzTDDArRnveiVQrK+riWeeCU23 +msP+jkqgXXRrYDvLXqvODuqzEviuSsX16gIrb7UXTwo3ASeiCNJrllj9lBke +qhAmIIXct/yI5YLjATU/pQhoweZMtv3L6qdxxDFrHQK2fW4sDVtmgn/W3x1R +RgQU/kDkXmJ55W8s+aE5Aa/eLnx+ZIVVn11rhbrsCdiSXdc1zrJSZcoEz04C +Fp5N8nb7x+o/SajRcC8B1R4buT5n2SbqSt6BIAJWM0kvCKusen2RjLt2lHV/ +3f6ZASyHGeZ4NpwiYMGT8IlnLFtn889uTSUgTerFrRmWFbiiEz9cJuD7sPkf +G9nKYfHgqNS2WwTcwtZW78pyc5tLYet9Aq7ZxW8ey/J9ozpzlyICFh/w8cxm +OSZXp6uzkoAcuy6Syll24bkVtOs1Af1u74lsZHlTCC/Htw8EbF28dKKNZc7P +kRlenQQMd5rX+MxyD/2H+mA/Ab2HnM+0sFxyx+ml7xgBd0qcPP+G5ZT1NU4j +swQ8lmyztZhl71CtUf9/BBwXPFdxlWXal6zjE1xEvJiv0B/BshCuEw4RImJd +wvdXtiyP5B3J+00i4tKfEk9pll/wDdEOKxHx4OEjz4dY+a+Eb/84r0nE9izh +b3ksB3W/8ImiEpFLJaTOi2VzU82FZSRizvfoMBGWpR5kpsZYE/Fxreqvalb9 +ZwW45dmdiOhc40f1YTn364AV1z4ibg4IN7nC6l/kZodvSSFEZNtpyK3MskP+ +81DeKCKe+hn14BGr/6tHr14XOktEsWcxZ/L+Py+9nNqXrhDxtK1DI4HlAouw +OvFsIj6gM2fiWPPlLmo3IVlMRIHEpLXmi0zQO1Z58mYVEXl+SfzJZM3nugFV +cfk3RPSpOtM5yprf8iccoPKFiF/KD58K/cOaL/FDrfcHiDhI1nZ4NMeE/ce/ +7VMfJ+KWB5ule2eZIL61/Lz2KhG9z4nUaLH2Y6JQRbmYm4QhsvLZtr+ZUEe4 +VK4vTMLcb5uS97L2KWw4aICmTMIFbsFzx1n713xSiWy+lYTLkiPP3MeYcG/k +Qv1bJxK+jRuwNWPt8wn7VXfr3SScZnuyXnGUCZrSXaftD5GQr7uL8wPrPEhm +nvvslkHCH2e7HVr6mbB5cikqaJCEr0mcmhkdrHpaXlJ7NU7CG3mt/sR2Vn1y +NLtE/pBQq3OzxeVWJhCcvAzLuSVRkbFmMLKZCePM1/McmyTR8I+qwHwDEy6e +Oh9+7agkStr2CtdVMqG+e6PS+ElJLHbQKOkvZ8IyubaVkSKJ88enNiyWMcHv +x5zu9xuSWBew+5JYCet5ZLNrelOtJKZa1/WuYZ3XA2IqQXV8UvjP7DfjZSYT +JIJfSEtISOH2uKHs6Kus/ax3fX9ATgoXhAx59a4woTQqRUNATwrvb17lTbvA +yts79dPNVQot3nsTV84wQfdB5b7JXCm0jLOLqAljwknjbXtIBtJIVvm1h2ML +Eyx33/xNNZXGzNz8J2/MmMAfOxbnbCON1rdNY+OQCVm1p/POe0njjomJqlFD +1nlhXTG2Nkka791mbDygwYQpV8WImS/SOKq1dZkqyITdh+eSm47JYJJ1pie1 +lfW8zjCV+nlaBrHqrCv5Yxmrfucec52XwR7ZncHq78oganljs+kdGbSlWq/j +ri2Dy3G7xcqbZHDP18DYY0Vl0HTh7a270rJoRzVrsD9fBrSCayUnXsgi5zW9 +0eYtZbD584eVX/Wy+Ch/UCHQrAzs2NZs8WyRxQKu/np2KAOf7UFfYEgWu8Zs +/BUoZWBxTD4mllMOQ+83RagrlUGI7J/bJupyuO2D9479q6VQt+/WRG2EHD4u +snZ9WFQKgQvTsfV88lhy52S0IV8pLKoLftN0VkCB7smz11jvg8b5j7KvXFHE +5ltKp+qqi2Ba2NrLpUYJ2a/K+51fXwjfU71cQrlUUJ77hF6YcwFYTR6xGqJs +QBOhka8Xvz6EcR/usJIYVTx+8sb7M4x7rPd1CfYzNRtRocs8aHL4Ngi/V0l7 +OqmGbjN7zjVx5oBU4hMHCkUDi0+o37TzyYKr6oaCIvs08WX/mW9tTzKgkWSi +P3NhE8pefPwkOfsi0KRqzmt1aCHfaf2tSnfOwYCi0rfRLi3kMjzasJp0DpLU +E9Tv9GphhkNHzljwOeikWb8hjGrhzgdedrNG5+CIW8vf/5a1sIW4KtLQlgY7 +tx7S+ymojfUSKhrRPGlwJZF1XFC00WKQGD58IhX4OXLD95zSRmOXvzmPribB +2sUXjtPx2rg3LfDS9dgk+Pfrq+7JM9oYEaBkkLU/CSa7iNPZqdpYk/MmosUg +CZqLLhzsu6KN8bLxXMJdiZDufdLPM18bD9tbyH6WTQTxGi9XjzbW9e5055kz +E0DmpKyxm4oOsnen+/FJxkNBGLfCV1UdzCiv/JDMFQ8Mv2muPeo6aE7sOCQx +GwceW2tb92vr4DV7zq2738dBlti+gKM0HWyK+XckJzYOiA8LMjPsdJCuwK45 +P3oKRFvpi+0ROphoS9mc//Yk8Ci7l25/q4MpN7Q0SbtiwJ8I1vkNOrgir5/o +SY+BRj6FbxxNOrjuh4NElWwMpP75wfmsWQfdBfSyK76fAP76MGeJLh38YZjw +X1PwCRAOSJntHtfB69GP1PSTj4NUYYWur7Aupiu/Odz48RhsohOfHPHQRT7H ++7/trh+FYsUDf9m9dHFBTy1uJvYoGKwr35LmrYsR9ZPVT/yOguln1747+3RR +ViRxKUj3KLgcuirUckgXm3h3t6x9dwRi7kqEayToopWeYHoa2xFo5hM37C/Q +Rf6/MvsuRh+G0G/CtdZseigjLMO74Vko1L9xf/6QXQ9v8F73zM0JBZkneWXr +OPVwkDNAQCstFBpjaI8aefTwzPysU/S+UFCQ975sLaKHV9aLaQ2RQuGTT+E+ +axU9zBztHB6KPwTao/a81jZ6mE0337fdNwQmZ1Kdra7qYQSffVX5w0Do6cxx +uZGph28b6sMsUgOh8XnpjuksPdz0akZ68mAg3DnT53YtRw8FjAMXL+oEwk5J +8u7Rh3rIT5K7urEiAF6bdvslPddDPcNXo6HN/nD9wsajDQN6+Jl/ynRG8AAk +RjAipYf0cIAWVfF5bj9E7HKMOvRDD/fGb37c3rUfHJSPRxPH9XADY6xM+u5+ +WFveHHtgTg/FRe5b99D2w6G+I0k83GS0thp7xx6wD7Zovcm00iRjWMBdRuhX +X3Bda+nUrEXG9i7PQJdaX/D/2sC3Q5eMG+yzupwf+EJayvvYvVQyMrJdpfIO ++0LHjza/GBMyti40FCYJ+MLe7EHdZ85knFyQ0rey3AunhP57J3eCjN7Lb8t4 +33vDpZFT8fdiydhNV9XTLPWGvBdrGJviyMiZuKTkd8sbGg9yFxolkjH8O4e4 +fKg3CDUKZLikk9GxurODSfCG7FMyPql5ZLzIX2fh4b8HqmeM/s5/YP3fqlFs +RMYLcprKvB0/kVGIzTp+M68XxN/VayxoJePr87i8b8YTrHaoX/PtJOMxzu15 +GQ88oa2CRG3tJ6Owu3dshYQn/Dy5GFowS8ZSmUKf30seIC5Y9nMvSR9vpAmm +2/fsgsUR3e0vpfTR8PcmvrTKXdDzqqBcUlYfxW6IlP/K3AU5YXmJLYr6KOse +qi6+cxdofL6sgpr6qMp7wmDpy04wvRnuLYn6+KuiWH6l1w2CNHS7PvnqY472 +ueOKa1zh8DxpyXO/Pu6j7yBzDe2A6BoO0i9/faRO/+3if7MDUlzb3daF6OM/ +omNAUuIOuB9/9ItplD56DIu92SCwAwZ6qjuL01j3J3NAZUzBBVzObv18uUwf +a3qJHbd8nMDDlTyvWKGPt6w6nV9YOsFeRWmJoip9nK/wv/BP0wnCyn+5fHil +j6ExolXdC45wfuhCx9omfTzVQfLlO+8IjfTO9iN9+hh+0yZOt2470H/tbXPj +oeCUa1v7I9NtIF65JbdqPQV1TyarC2hug19n1EJk+Sl44Z9kV5LENrgpP7V+ +SJiCXKp+g2/HHeCf0zGzECkKbtiWLrb3qgO8qLxQlKBFwTzFaiehEXswSao+ +X+xMwdIq8qm3R22B5JKzW9yVgrLKoolWjrbwWyFeI3InBY0b2bP+aNpCbpVV +PcOTgnU5t00/DdoA+1TbasN+Chqahg3EbbOBWpexoL5jFKS6PL5STt4K5koE +W75cCj4r0J23IFpBycRr+b13KKgh2p4UvWgJSmVhfyryKFi71exKxxdLWGP9 +8db+fArycEYnz2daQk1wwu/aEgpeI94YGZGxBEblbEbUWwpa+lyQ9tfcApTt +nwZ+jFOwzHXdvmkfc8iTjCljTFLwhvKnrEOW5iA2pJF6eZqCg0sWM0Ka5jB7 +JFHf7A8FPVPiThT92QxFNyDx5iorP1ExKjhlM2iNPtZ0FqZin/BkdVWFGajG +Jh+toVJRfaGp+a2WKVQZ3eW0oVFxTeUFLT5xU3CYf5HebkzFM45LVWHLJnA0 +aO7RiAkVy71Kmm43mEC9u1c/vw0VK/aeyEvxNYH9hhTrXV5U9N6VMe52G+HB +737J2UQqkuc8tv0MYACjYPn+8RQqvnf2uayHDGg5IEHhSqOitsx761JRBiz1 +2TiQLlIxK3tpxa+aDtYfy+LxBhWrroFJkCgdfuafnUgtpKJ13PhYV6MRqPka +vlDuouLcu+PewZ6GcE7Bbimuh4pmuSKefcaGMNvrrT/wjYozG5rPRJMMoXpn +av7NQSqmB/rd0O8wgO0OvRkSE1S85XI++669AUQanQ7hYTPA5MWgDkdrKtQL +fZKfUDbA+Aj15Pse+qD5cch9q6oB2lVoqimjPqSnLmU8UDPAmaJPW94q6IM7 +lxK/n5YBam3x23ZshAyTyxFL3wxYZru7fOMwGcRHpFqbtxpgmIeqzoMreuBb +vT++5JABqh57alr5Wwd+Hfx5xDzcAF8Ela6J+awDR6UDAzoiDPC3p1f//iod +SI4O3r5wzAA763rVChJ04CktQs44wQCLF3PfLUrpwHJpXFVtpgEyzfY6Bzpo +Q/qTm7MttQaoW8D5lv22Jkh5yo34vDHAxxKvnu4+rAl3+XO7Z+sN0Ezh3sW/ +WzSBefBujfgHA/xn1PXnz4QGfFV/dH5npwFWWp9VGjPWANX75RoD4wbIvbG7 +8+SwGrzIbts7LWaI32BxBf1Uoc9G3jOCYIgu95WcW1AV2BYPuv0lGWLqYNTg +VUlVMN3GZccpZ4iOzXYX6z5tgDf/0ahENUMMPr6uOQ03QJP3LR4ThiHuOLbO +uGSDCnQp+Rec9zPEDCMbuRMkJfjbXHpf7IAhnsu7sp76VxGkjnPczgwwxO60 +lxulexTBoz0r406IIQq9WxIMuakIfac/xjKjDFFBhIekpqwIP4bJjn1phpjn +5nWwiqYAs/dX57XKDPH6y0n/lng5GHaxyE4qN8Q4xSe7TgXKQeeas5aDlYZY +NBl93dFJDiq9SNeuvDTEYxHX97gpycEpgj5tpcEQv/C8WtudIguCif7RjT2G +2GjwT2qjjAxo7Gtn82Wn4eNs3aFLIZIgIyb1oHoNDaumLzx/vEUSBGu9txG4 +aNhfnRO2KiMJMzJTOe/W0/CrPG2HzQcSVHSsM9MVoyH3dUHFeC0SWFrg6dUN +NKxToPFtWiaAj3I+T6YtDZ+P/PQ9WyUOUa93+6s40HDkmpWKW4Y4nPcVfle0 +nYb59TUNHqHiUHU3MvXdDhpG5cVGCW4UB1EVS4GVPTRkGEf3CF8TgzcqQ6Je +ETQcoqUWbokTBTVVWTmVWzTW98pIt+8JYcD6ltiiHBo6O6gHV3gKg8v+hH7G +HRqOOTjlMEyEIe7+RO6OBzT8ffv3p7Y1wtCjWqWcVExDO//qNTppQpC20U19 +/C0NTVISPgQ9EIRptYuUoikaDotOkuPZ+KGzCc1FZmjIRWjaHvKJD14G/XIM +n6PhlhzjypxcPkgrsjpEWaLhq0zRmRZzPlCjsT2q4DBCmYMpjXvP8YK31UH5 +WnEj3DQ5PTG3aT207dvC22ZshDl5l4/63OCGSp45kj4YYeTRhlLrCG7Izc/d +eMXECG23BdsG2nNDyOSKhauFEVZtvGXiwc4NfEdKTvbYG+Fr0bjkCX8usEiQ +n//ubYQG9AjeOIu1wLzzt38u0QhrbbfJHVJeAxSz8HnrFCNM0R7795RzDTzr +H+fNPmuEebLus7LDHFAk841qnW6EiUOJcsn3OODR1Zdnb143QqaQXmSiBgdk +p5423FJghARXt/V/GOyQFC5w4WqrEWZp1eSNxbEBt0hi3kS7EapHceReOcAG +CYVsVaadRtjO/33TAXs2iP81PTzew8qLznLxkmxwYn+bscmwER6S2dwoHrDK +CHW/NjK6YIQxhVE/vPpXGDs3K6KRjDFmNDt0tXH8Zay0cfPXyhlj2pf+u+lt +S4xs31/d1orG2GRzNvLm3SXGcEL5kZ2qxtj3ftH1puUSI7TB/kmkrjEaK6T9 +1UlfZCTbRcswLYzxXUsBr5neAqPCtX2ZHGyMPuQbu1cfzDE8Risaqw4Z4wp9 +372cuDkGW1T21c3hxhjndU4t3mOOYXE9gOwUaYwRYrvtuIXnGC1f/wsMizNG +BjdFm/3ELOOn96buwgxjbGtZtt+3Z4YhefBM+aaXxljsuO2Nv+M0I23VTz+l +xhi/nKNuCKJMM9jTLQp/1BmjxbsnIbeI04yfpZwPshuMMWyP3uPkvilGBVv8 +VeFWY+Ro7w+ODpli7LwUe+TPkDFWvLN7raIzybhaGalfvZ6O7S/1m/IExhm8 +dm6FJH467j/V66bZN8aI7TPQPCJIR/EBEx62wjHGfs4FJW0xOkq89edIdBxj +UO0jRHNl6JicfZtDPOsno2MgdOa0Dh3l3vptaKCNMsTWBRba7qCjyNRCUW7+ +MOOO2fGoKTc6PmVLzHSPHWboHk8zu+hOx//erxnZ6zzMsJt62t65h468XJ63 +drMNMxI65hZ9AunoF3VHYsRtiLGQG2MadZKOYde8Lg6QvjO6jC625uXT8cmI +RQnxUz9j/+E7WVYFdGzIvDX+qKCf8afgme/4UzquG+jdFZPazxBW6JzXKaUj +/LdTrc+yn7GVW1rq+Us6vi62qzpd18eoasvb29pOR+LwIXmetF6GNT9TM6KT +jveyjL8WOfQyOrc0/CF00zH2suDye5FexmzFWOLuPjpmqSXYOl//xtDM0X48 ++pOOKdO2U+lPvjKqukwiUifoODSsGlh0+CvDWtQRtKbo6C+UjXTjrwy/M4c/ +hc/R8QqvE2d6Yw9j9mVCpsQCq16M0yd3pvcwTi1l+FQs0XHTZ2pQys4ehiD5 +gYbHCh2jfriJKin2MG4erJhbXaVjaf6aasXxbsb/AAL33w4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09766907546812026}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.09766907546812026}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0VP8bB3BfEsq+zox9TZZsY4Zh5nkQIVtZooiICiGkSFEkWyotSipU +WpSyxFhSoUIq2RLKFhFCyBL5ze+vOa9z5txz38/yuffKewdv92VnY2N7+x8b +2/9//3xrqFNKucPIa85JGVy/jdF2kxBp0nkKhoYIpXwWWoBiH70Jnelw3aX3 +TY05QITDw88cnbnwfkPJ09Pm9iD0SyJ98XMR+M3efMRt7gm9VXbBs59roOzi +HmcHs2CwUPr5dfpzC1zTnC07axwDi5+pl6c+DwDdl6M8W/4c1Jrdu/Mpdwa+ +2ZWI/5i9BVK95cPeGisQean+7Q2teyAa6PmQy4wDZ0dd7z3PewzpOhaVds7c +2DryweL2SCFodbttoe/nRjnI+0WZKYSm+IOt6se4cfL0fd/alUJY23lpjDuH +G4vKKCVvhIvg2IlBydpxbmQS6iIjjItg77vYaGo8D0Z9rhk5klYEFN9Kulzx +OrzuVuM7oVEMrfwfG/jfrMP792LXXqYUQwhzwHmlcx2yHR6X0MdieLh+XVDX +v3XYULb51G7HYpAtcr15yXo9/qhx1nCJLAbu1bl/3APrkbCgmtNRWwxfrmq/ +nBbkQ9HHfwPWO5ZAZmu+QIQyHx691r49wr0EdvJv8Fwy5EPLr0y2Tt8S6ImT +/sfuw4fu533uxRwtgb6gdcaiz/jwn7xFl+eNEhjZ/L2M4saPhdSeqj1DJbAw +lfHkWI4AroSsFXcPegbl6iKrq88EkP6u4+D1iGcQ5ZdmF98ogNfuqVh+OvEM +lrvjJ1JnBPA4R/xxuXPPIHaQKfZRQRA/5Yc+t3nyDOI/3HXsCxfEk+2VtO6J +Z5ByJ+YjO1EIpQkKXW98SsGafEBYTFEIef8d+VnkXwrcddudN2gKodL18seX +D5VC/KBy91YTIUy51WMFMaUQrdA0fOmAEJYM8tYpZJZCUDbhn0qFEAqUq2qr +fSiFbVmFGlt3CeO3uXeFVK0yENS4HuzhK4ynEyKEFsll8KEyvig4WBjXnxwX +L6SVgXX3DoNLccK4NY4qwmlRBqakf2Zf84XxsFNKi7F7GZCvWu8KXhbGnpNW +yWMJZSBxaTDp4g0RtGEW8Fm2lwFB/Vn8Qp4IPmmO/X3uSxmQahJiPJ6K4AyX +YPXHr2UgM7Xx8IZaEUyObVlPHS4DZZsQr8oREawifbl4508Z6K1ZoQzqiWKq +x+LMXzEmkK9/0LGkiyJz6NSVGiITKLrZGo8tRNFhT7T6SWkm0LzMFI64ieIe +AXPtYSUmmFQl8a2PEcXeyPpqez0m2IeLf9dtFMXvKamNOXZMcFg/8i2jVRQv +/SpYO7KNCdtzy78s94ji9g5rcxVnJrg0u398MymKNJ+ED8m7mOChcbtip5gY +6mURdWf3MSHgu9aFU15iWI9vHK1imBB47L/UHwfE8HdAj5XgKSYECbcm2ISJ +4VJ6vsvHeCaEYkS0eIIYTj0TrdBPZkJkVtW+h/liuCfCqfn2JSaccbJitPwR +wxGxj0lr7zOBVPKBxP6fOF7Yo5kV+5AJBSJO8zrrxTG8ZPT49CMmdLTsfnpB +VhwXeqfKygqZoLQtXGGbpTg+Nb1i2lHBBObTxX+x28Xx+1NJXq7nTLARjOl+ +6i6OVdVhpZteMCHsY9IlwUPieMCjstS7lgk1trfWNl8TR22nx3ke71j5HysN +rt4Wx1HyvTLz90z4yfvwhVaBOL66bFSl9JEJQk0lR8/ViKPcp6UHb1uY4GXd ++NNuTBz7tuz1yPnChNkH9m9PzIljwNBNB5NuVj6e9tsFq+JIdj6ztbOHlae+ +151fVALZV955j/UyYcVi7sN7Ywm83aK8J2+ICefzovJXLCTQduxR979hVr61 +bIma2yTwyxmDMLsRVp7X60zO+krgcrffmtafTOhTOi/9PFgCo65ncnCPs/LF +iy2NR0ogdXhWjTzBhEwzuWKbNAk0LQ9fOTTJhE23756LviqBZsrbC+KmWPnZ +1QMf5Uqgd/fr9NRpJoy+0lfmLZPA+Oei7PEzTDDArRnveiVQrK+riWeeCU23 +msP+jkqgXXRrYDvLXqvODuqzEviuSsX16gIrb7UXTwo3ASeiCNJrllj9lBke +qhAmIIXct/yI5YLjATU/pQhoweZMtv3L6qdxxDFrHQK2fW4sDVtmgn/W3x1R +RgQU/kDkXmJ55W8s+aE5Aa/eLnx+ZIVVn11rhbrsCdiSXdc1zrJSZcoEz04C +Fp5N8nb7x+o/SajRcC8B1R4buT5n2SbqSt6BIAJWM0kvCKusen2RjLt2lHV/ +3f6ZASyHGeZ4NpwiYMGT8IlnLFtn889uTSUgTerFrRmWFbiiEz9cJuD7sPkf +G9nKYfHgqNS2WwTcwtZW78pyc5tLYet9Aq7ZxW8ey/J9ozpzlyICFh/w8cxm +OSZXp6uzkoAcuy6Syll24bkVtOs1Af1u74lsZHlTCC/Htw8EbF28dKKNZc7P +kRlenQQMd5rX+MxyD/2H+mA/Ab2HnM+0sFxyx+ml7xgBd0qcPP+G5ZT1NU4j +swQ8lmyztZhl71CtUf9/BBwXPFdxlWXal6zjE1xEvJiv0B/BshCuEw4RImJd +wvdXtiyP5B3J+00i4tKfEk9pll/wDdEOKxHx4OEjz4dY+a+Eb/84r0nE9izh +b3ksB3W/8ImiEpFLJaTOi2VzU82FZSRizvfoMBGWpR5kpsZYE/Fxreqvalb9 +ZwW45dmdiOhc40f1YTn364AV1z4ibg4IN7nC6l/kZodvSSFEZNtpyK3MskP+ +81DeKCKe+hn14BGr/6tHr14XOktEsWcxZ/L+Py+9nNqXrhDxtK1DI4HlAouw +OvFsIj6gM2fiWPPlLmo3IVlMRIHEpLXmi0zQO1Z58mYVEXl+SfzJZM3nugFV +cfk3RPSpOtM5yprf8iccoPKFiF/KD58K/cOaL/FDrfcHiDhI1nZ4NMeE/ce/ +7VMfJ+KWB5ule2eZIL61/Lz2KhG9z4nUaLH2Y6JQRbmYm4QhsvLZtr+ZUEe4 +VK4vTMLcb5uS97L2KWw4aICmTMIFbsFzx1n713xSiWy+lYTLkiPP3MeYcG/k +Qv1bJxK+jRuwNWPt8wn7VXfr3SScZnuyXnGUCZrSXaftD5GQr7uL8wPrPEhm +nvvslkHCH2e7HVr6mbB5cikqaJCEr0mcmhkdrHpaXlJ7NU7CG3mt/sR2Vn1y +NLtE/pBQq3OzxeVWJhCcvAzLuSVRkbFmMLKZCePM1/McmyTR8I+qwHwDEy6e +Oh9+7agkStr2CtdVMqG+e6PS+ElJLHbQKOkvZ8IyubaVkSKJ88enNiyWMcHv +x5zu9xuSWBew+5JYCet5ZLNrelOtJKZa1/WuYZ3XA2IqQXV8UvjP7DfjZSYT +JIJfSEtISOH2uKHs6Kus/ax3fX9ATgoXhAx59a4woTQqRUNATwrvb17lTbvA +yts79dPNVQot3nsTV84wQfdB5b7JXCm0jLOLqAljwknjbXtIBtJIVvm1h2ML +Eyx33/xNNZXGzNz8J2/MmMAfOxbnbCON1rdNY+OQCVm1p/POe0njjomJqlFD +1nlhXTG2Nkka791mbDygwYQpV8WImS/SOKq1dZkqyITdh+eSm47JYJJ1pie1 +lfW8zjCV+nlaBrHqrCv5Yxmrfucec52XwR7ZncHq78oganljs+kdGbSlWq/j +ri2Dy3G7xcqbZHDP18DYY0Vl0HTh7a270rJoRzVrsD9fBrSCayUnXsgi5zW9 +0eYtZbD584eVX/Wy+Ch/UCHQrAzs2NZs8WyRxQKu/np2KAOf7UFfYEgWu8Zs +/BUoZWBxTD4mllMOQ+83RagrlUGI7J/bJupyuO2D9479q6VQt+/WRG2EHD4u +snZ9WFQKgQvTsfV88lhy52S0IV8pLKoLftN0VkCB7smz11jvg8b5j7KvXFHE +5ltKp+qqi2Ba2NrLpUYJ2a/K+51fXwjfU71cQrlUUJ77hF6YcwFYTR6xGqJs +QBOhka8Xvz6EcR/usJIYVTx+8sb7M4x7rPd1CfYzNRtRocs8aHL4Ngi/V0l7 +OqmGbjN7zjVx5oBU4hMHCkUDi0+o37TzyYKr6oaCIvs08WX/mW9tTzKgkWSi +P3NhE8pefPwkOfsi0KRqzmt1aCHfaf2tSnfOwYCi0rfRLi3kMjzasJp0DpLU +E9Tv9GphhkNHzljwOeikWb8hjGrhzgdedrNG5+CIW8vf/5a1sIW4KtLQlgY7 +tx7S+ymojfUSKhrRPGlwJZF1XFC00WKQGD58IhX4OXLD95zSRmOXvzmPribB +2sUXjtPx2rg3LfDS9dgk+Pfrq+7JM9oYEaBkkLU/CSa7iNPZqdpYk/MmosUg +CZqLLhzsu6KN8bLxXMJdiZDufdLPM18bD9tbyH6WTQTxGi9XjzbW9e5055kz +E0DmpKyxm4oOsnen+/FJxkNBGLfCV1UdzCiv/JDMFQ8Mv2muPeo6aE7sOCQx +GwceW2tb92vr4DV7zq2738dBlti+gKM0HWyK+XckJzYOiA8LMjPsdJCuwK45 +P3oKRFvpi+0ROphoS9mc//Yk8Ci7l25/q4MpN7Q0SbtiwJ8I1vkNOrgir5/o +SY+BRj6FbxxNOrjuh4NElWwMpP75wfmsWQfdBfSyK76fAP76MGeJLh38YZjw +X1PwCRAOSJntHtfB69GP1PSTj4NUYYWur7Aupiu/Odz48RhsohOfHPHQRT7H ++7/trh+FYsUDf9m9dHFBTy1uJvYoGKwr35LmrYsR9ZPVT/yOguln1747+3RR +ViRxKUj3KLgcuirUckgXm3h3t6x9dwRi7kqEayToopWeYHoa2xFo5hM37C/Q +Rf6/MvsuRh+G0G/CtdZseigjLMO74Vko1L9xf/6QXQ9v8F73zM0JBZkneWXr +OPVwkDNAQCstFBpjaI8aefTwzPysU/S+UFCQ975sLaKHV9aLaQ2RQuGTT+E+ +axU9zBztHB6KPwTao/a81jZ6mE0337fdNwQmZ1Kdra7qYQSffVX5w0Do6cxx +uZGph28b6sMsUgOh8XnpjuksPdz0akZ68mAg3DnT53YtRw8FjAMXL+oEwk5J +8u7Rh3rIT5K7urEiAF6bdvslPddDPcNXo6HN/nD9wsajDQN6+Jl/ynRG8AAk +RjAipYf0cIAWVfF5bj9E7HKMOvRDD/fGb37c3rUfHJSPRxPH9XADY6xM+u5+ +WFveHHtgTg/FRe5b99D2w6G+I0k83GS0thp7xx6wD7Zovcm00iRjWMBdRuhX +X3Bda+nUrEXG9i7PQJdaX/D/2sC3Q5eMG+yzupwf+EJayvvYvVQyMrJdpfIO ++0LHjza/GBMyti40FCYJ+MLe7EHdZ85knFyQ0rey3AunhP57J3eCjN7Lb8t4 +33vDpZFT8fdiydhNV9XTLPWGvBdrGJviyMiZuKTkd8sbGg9yFxolkjH8O4e4 +fKg3CDUKZLikk9GxurODSfCG7FMyPql5ZLzIX2fh4b8HqmeM/s5/YP3fqlFs +RMYLcprKvB0/kVGIzTp+M68XxN/VayxoJePr87i8b8YTrHaoX/PtJOMxzu15 +GQ88oa2CRG3tJ6Owu3dshYQn/Dy5GFowS8ZSmUKf30seIC5Y9nMvSR9vpAmm +2/fsgsUR3e0vpfTR8PcmvrTKXdDzqqBcUlYfxW6IlP/K3AU5YXmJLYr6KOse +qi6+cxdofL6sgpr6qMp7wmDpy04wvRnuLYn6+KuiWH6l1w2CNHS7PvnqY472 +ueOKa1zh8DxpyXO/Pu6j7yBzDe2A6BoO0i9/faRO/+3if7MDUlzb3daF6OM/ +omNAUuIOuB9/9ItplD56DIu92SCwAwZ6qjuL01j3J3NAZUzBBVzObv18uUwf +a3qJHbd8nMDDlTyvWKGPt6w6nV9YOsFeRWmJoip9nK/wv/BP0wnCyn+5fHil +j6ExolXdC45wfuhCx9omfTzVQfLlO+8IjfTO9iN9+hh+0yZOt2470H/tbXPj +oeCUa1v7I9NtIF65JbdqPQV1TyarC2hug19n1EJk+Sl44Z9kV5LENrgpP7V+ +SJiCXKp+g2/HHeCf0zGzECkKbtiWLrb3qgO8qLxQlKBFwTzFaiehEXswSao+ +X+xMwdIq8qm3R22B5JKzW9yVgrLKoolWjrbwWyFeI3InBY0b2bP+aNpCbpVV +PcOTgnU5t00/DdoA+1TbasN+Chqahg3EbbOBWpexoL5jFKS6PL5STt4K5koE +W75cCj4r0J23IFpBycRr+b13KKgh2p4UvWgJSmVhfyryKFi71exKxxdLWGP9 +8db+fArycEYnz2daQk1wwu/aEgpeI94YGZGxBEblbEbUWwpa+lyQ9tfcApTt +nwZ+jFOwzHXdvmkfc8iTjCljTFLwhvKnrEOW5iA2pJF6eZqCg0sWM0Ka5jB7 +JFHf7A8FPVPiThT92QxFNyDx5iorP1ExKjhlM2iNPtZ0FqZin/BkdVWFGajG +Jh+toVJRfaGp+a2WKVQZ3eW0oVFxTeUFLT5xU3CYf5HebkzFM45LVWHLJnA0 +aO7RiAkVy71Kmm43mEC9u1c/vw0VK/aeyEvxNYH9hhTrXV5U9N6VMe52G+HB +737J2UQqkuc8tv0MYACjYPn+8RQqvnf2uayHDGg5IEHhSqOitsx761JRBiz1 +2TiQLlIxK3tpxa+aDtYfy+LxBhWrroFJkCgdfuafnUgtpKJ13PhYV6MRqPka +vlDuouLcu+PewZ6GcE7Bbimuh4pmuSKefcaGMNvrrT/wjYozG5rPRJMMoXpn +av7NQSqmB/rd0O8wgO0OvRkSE1S85XI++669AUQanQ7hYTPA5MWgDkdrKtQL +fZKfUDbA+Aj15Pse+qD5cch9q6oB2lVoqimjPqSnLmU8UDPAmaJPW94q6IM7 +lxK/n5YBam3x23ZshAyTyxFL3wxYZru7fOMwGcRHpFqbtxpgmIeqzoMreuBb +vT++5JABqh57alr5Wwd+Hfx5xDzcAF8Ela6J+awDR6UDAzoiDPC3p1f//iod +SI4O3r5wzAA763rVChJ04CktQs44wQCLF3PfLUrpwHJpXFVtpgEyzfY6Bzpo +Q/qTm7MttQaoW8D5lv22Jkh5yo34vDHAxxKvnu4+rAl3+XO7Z+sN0Ezh3sW/ +WzSBefBujfgHA/xn1PXnz4QGfFV/dH5npwFWWp9VGjPWANX75RoD4wbIvbG7 +8+SwGrzIbts7LWaI32BxBf1Uoc9G3jOCYIgu95WcW1AV2BYPuv0lGWLqYNTg +VUlVMN3GZccpZ4iOzXYX6z5tgDf/0ahENUMMPr6uOQ03QJP3LR4ThiHuOLbO +uGSDCnQp+Rec9zPEDCMbuRMkJfjbXHpf7IAhnsu7sp76VxGkjnPczgwwxO60 +lxulexTBoz0r406IIQq9WxIMuakIfac/xjKjDFFBhIekpqwIP4bJjn1phpjn +5nWwiqYAs/dX57XKDPH6y0n/lng5GHaxyE4qN8Q4xSe7TgXKQeeas5aDlYZY +NBl93dFJDiq9SNeuvDTEYxHX97gpycEpgj5tpcEQv/C8WtudIguCif7RjT2G +2GjwT2qjjAxo7Gtn82Wn4eNs3aFLIZIgIyb1oHoNDaumLzx/vEUSBGu9txG4 +aNhfnRO2KiMJMzJTOe/W0/CrPG2HzQcSVHSsM9MVoyH3dUHFeC0SWFrg6dUN +NKxToPFtWiaAj3I+T6YtDZ+P/PQ9WyUOUa93+6s40HDkmpWKW4Y4nPcVfle0 +nYb59TUNHqHiUHU3MvXdDhpG5cVGCW4UB1EVS4GVPTRkGEf3CF8TgzcqQ6Je +ETQcoqUWbokTBTVVWTmVWzTW98pIt+8JYcD6ltiiHBo6O6gHV3gKg8v+hH7G +HRqOOTjlMEyEIe7+RO6OBzT8ffv3p7Y1wtCjWqWcVExDO//qNTppQpC20U19 +/C0NTVISPgQ9EIRptYuUoikaDotOkuPZ+KGzCc1FZmjIRWjaHvKJD14G/XIM +n6PhlhzjypxcPkgrsjpEWaLhq0zRmRZzPlCjsT2q4DBCmYMpjXvP8YK31UH5 +WnEj3DQ5PTG3aT207dvC22ZshDl5l4/63OCGSp45kj4YYeTRhlLrCG7Izc/d +eMXECG23BdsG2nNDyOSKhauFEVZtvGXiwc4NfEdKTvbYG+Fr0bjkCX8usEiQ +n//ubYQG9AjeOIu1wLzzt38u0QhrbbfJHVJeAxSz8HnrFCNM0R7795RzDTzr +H+fNPmuEebLus7LDHFAk841qnW6EiUOJcsn3OODR1Zdnb143QqaQXmSiBgdk +p5423FJghARXt/V/GOyQFC5w4WqrEWZp1eSNxbEBt0hi3kS7EapHceReOcAG +CYVsVaadRtjO/33TAXs2iP81PTzew8qLznLxkmxwYn+bscmwER6S2dwoHrDK +CHW/NjK6YIQxhVE/vPpXGDs3K6KRjDFmNDt0tXH8Zay0cfPXyhlj2pf+u+lt +S4xs31/d1orG2GRzNvLm3SXGcEL5kZ2qxtj3ftH1puUSI7TB/kmkrjEaK6T9 +1UlfZCTbRcswLYzxXUsBr5neAqPCtX2ZHGyMPuQbu1cfzDE8Risaqw4Z4wp9 +372cuDkGW1T21c3hxhjndU4t3mOOYXE9gOwUaYwRYrvtuIXnGC1f/wsMizNG +BjdFm/3ELOOn96buwgxjbGtZtt+3Z4YhefBM+aaXxljsuO2Nv+M0I23VTz+l +xhi/nKNuCKJMM9jTLQp/1BmjxbsnIbeI04yfpZwPshuMMWyP3uPkvilGBVv8 +VeFWY+Ro7w+ODpli7LwUe+TPkDFWvLN7raIzybhaGalfvZ6O7S/1m/IExhm8 +dm6FJH467j/V66bZN8aI7TPQPCJIR/EBEx62wjHGfs4FJW0xOkq89edIdBxj +UO0jRHNl6JicfZtDPOsno2MgdOa0Dh3l3vptaKCNMsTWBRba7qCjyNRCUW7+ +MOOO2fGoKTc6PmVLzHSPHWboHk8zu+hOx//erxnZ6zzMsJt62t65h468XJ63 +drMNMxI65hZ9AunoF3VHYsRtiLGQG2MadZKOYde8Lg6QvjO6jC625uXT8cmI +RQnxUz9j/+E7WVYFdGzIvDX+qKCf8afgme/4UzquG+jdFZPazxBW6JzXKaUj +/LdTrc+yn7GVW1rq+Us6vi62qzpd18eoasvb29pOR+LwIXmetF6GNT9TM6KT +jveyjL8WOfQyOrc0/CF00zH2suDye5FexmzFWOLuPjpmqSXYOl//xtDM0X48 ++pOOKdO2U+lPvjKqukwiUifoODSsGlh0+CvDWtQRtKbo6C+UjXTjrwy/M4c/ +hc/R8QqvE2d6Yw9j9mVCpsQCq16M0yd3pvcwTi1l+FQs0XHTZ2pQys4ehiD5 +gYbHCh2jfriJKin2MG4erJhbXaVjaf6aasXxbsb/AAL33w4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09766907546812026}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09766907546812026}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993853807586994*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"bc3579e6-40eb-4fb6-8d02-a6a5310e9c34"] +}, Open ]], Cell[CellGroupData[{ @@ -8525,66 +16177,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + "In[142]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 308, 309, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133920579224*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.75934443598708`*^-129\\\", \ +RowBox[{\\\"6802374028907832895045078\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"131\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 73, + 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.9938538076108723`*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +In[142]:=",ExpressionUUID->"16c7273d-5bb4-4baa-b902-414c60e06088"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 308, 310, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058022385`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8386967822403315`*^-131\\\", \ +RowBox[{\\\"2963114126992252009081636\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"135\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 74, + 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993853807614916*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +In[142]:=",ExpressionUUID->"9509a379-b653-46bd-a147-8ada68c60685"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339205811241*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.921628185969252`*^-133\\\", \ +RowBox[{\\\"1330141931606821926876746\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"139\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"00000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 75, + 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993853807618979*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +In[142]:=",ExpressionUUID->"6704cec8-6461-4685-b033-ae673aff90ef"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058197193`*^9}, +during this calculation.\"", 2, 142, 76, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.9938538076227903`*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +In[142]:=",ExpressionUUID->"af804022-3a25-4eeb-8abb-12d17ae412d4"], -Cell[BoxData["9.33220071900515`"], "Output", - CellChangeTimes->{3.9913392124888554`*^9}, +Cell[BoxData["8.028031180009252`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9, 3.993853839684935*^9}, CellLabel-> - "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] + "Out[142]=",ExpressionUUID->"f5a68c27-39e2-481c-a096-423dbd76cb46"] }, Open ]], Cell[CellGroupData[{ @@ -8651,68 +16310,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849547748472*^9, - 3.9918495528702526`*^9}},ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-\ -0895c02ffd8f"], + CellChangeTimes->{{3.991849547748472*^9, 3.9918495528702526`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 309, 313, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125258827`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.738521980024158`*^-212\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 143, 77, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.9938538397065983`*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +In[143]:=",ExpressionUUID->"b3567b4a-3b0c-4bd2-911d-382ced14f875"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 314, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339212535879*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.319363413155982`*^-217\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 143, 78, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993853839710998*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +In[143]:=",ExpressionUUID->"9df35b54-3300-43e1-881f-57768e412c0d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 315, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125438805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.926277908704135`*^-222\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 143, 79, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993853839715519*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +In[143]:=",ExpressionUUID->"ed6edeed-79d4-4fc9-af4e-3deac33beb71"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125518837`*^9}, +during this calculation.\"", 2, 143, 80, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.99385383971938*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +In[143]:=",ExpressionUUID->"343ca153-83a1-40c7-859b-678e3a3289bb"], -Cell[BoxData["0.41157157699018565`"], "Output", - CellChangeTimes->{3.9913392196090164`*^9}, +Cell[BoxData["0.036397568289158265`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.993853842903632*^9}, CellLabel-> - "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] + "Out[143]=",ExpressionUUID->"ac321bbd-06e6-4d54-a0cf-f6646d76612a"] }, Open ]], Cell[CellGroupData[{ @@ -8733,8 +16396,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8779,68 +16441,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918495568340263`*^9, - 3.991849559359928*^9}},ExpressionUUID->"57976ffc-56f1-604b-8519-\ -bead95265db8"], + CellChangeTimes->{{3.9918495568340263`*^9, 3.991849559359928*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 310, 317, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196440163`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.738521980024158`*^-212\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 144, 81, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993853842923169*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +In[144]:=",ExpressionUUID->"706f90ef-fe33-4378-8320-302e52425f6b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 318, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196535416`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.319363413155982`*^-217\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 144, 82, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993853842927148*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +In[144]:=",ExpressionUUID->"12cbc80a-e003-4838-9d8b-5e65342e1bd4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 319, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219661541*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.926277908704135`*^-222\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 144, 83, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993853842931069*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +In[144]:=",ExpressionUUID->"07cbe7ce-bb8a-4a04-8365-cdade94456f1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219670542*^9}, +during this calculation.\"", 2, 144, 84, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993853842935019*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +In[144]:=",ExpressionUUID->"79d77691-ff50-4453-af58-0f00dd912a8e"], -Cell[BoxData["3.215201591157595`"], "Output", - CellChangeTimes->{3.9913392268711624`*^9}, +Cell[BoxData["16.552163198369733`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.993853846021288*^9}, CellLabel-> - "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] + "Out[144]=",ExpressionUUID->"a75afdd9-a92a-4f75-b84a-402d54e113ef"] }, Open ]], Cell[CellGroupData[{ @@ -8861,8 +16527,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8907,68 +16572,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849563755764*^9, - 3.991849566543682*^9}},ExpressionUUID->"cfa37210-3ae7-3f49-b290-\ -f19508c6d2f1"], + CellChangeTimes->{{3.991849563755764*^9, 3.991849566543682*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 311, 321, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226907137*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.738521980024158`*^-212\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 145, 85, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.9938538460413637`*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +In[145]:=",ExpressionUUID->"d18b9671-05f3-4f99-a06b-3eb19a529bda"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 322, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226917137*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.319363413155982`*^-217\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 145, 86, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993853846045672*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +In[145]:=",ExpressionUUID->"a2da594d-be48-4e67-a556-a8cf41c305b7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 323, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269251385`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.926277908704135`*^-222\\\", \ +RowBox[{\\\"7066407765328259371913031\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"58\\\", \\\"\[RightSkeleton]\\\"}], \\\"82006784000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 145, 87, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993853846050069*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +In[145]:=",ExpressionUUID->"8a39f3ec-3093-4669-8b61-83ebf6452151"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269341373`*^9}, +during this calculation.\"", 2, 145, 88, 31384996296936012358, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993853846053795*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +In[145]:=",ExpressionUUID->"89c9d361-78c6-44c0-a81f-0972d8cf2d5a"], -Cell[BoxData["16.94395627212904`"], "Output", - CellChangeTimes->{3.9913392304284153`*^9}, +Cell[BoxData["2.0521478046037283`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.993853848077298*^9}, CellLabel-> - "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] + "Out[145]=",ExpressionUUID->"88228ca3-a98f-4198-a969-7038690b33ef"] }, Open ]], Cell[CellGroupData[{ @@ -8977,20 +16646,27 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849569404436*^9, - 3.991849573855135*^9}},ExpressionUUID->"7457b456-6d32-5b44-9679-\ -346c5f5ac532"], - -Cell[BoxData["0.05576142449710889`"], "Output", - CellChangeTimes->{3.9913392304624157`*^9}, + CellChangeTimes->{{3.991849569404436*^9, 3.991849573855135*^9}}, CellLabel-> - "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] + "In[146]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], + +Cell[BoxData["0.006245118321392147`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.9938538480939407`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"07b9271a-10ce-4d4f-8b74-fc21a3ea47cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"7a65bf2f-59e6-4f80-a990-7a2c887106f6"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +Evaluator->"kernel 2", +WindowSize->{714, 288}, +WindowMargins->{{-3, Automatic}, {Automatic, 15}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +Magnification:>1.5 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" ] @@ -9005,361 +16681,641 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 147, 4, 28, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[704, 26, 154, 3, 28, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], -Cell[861, 31, 149, 4, 28, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], -Cell[1013, 37, 152, 3, 28, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ -Cell[1190, 44, 1301, 43, 113, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[2494, 89, 178, 3, 32, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[576, 22, 300, 5, 44, "Input",ExpressionUUID->"f9d1f11f-5673-4f0f-be9e-fc752864a0ba"], +Cell[879, 29, 269, 4, 50, "Output",ExpressionUUID->"754d35a3-d25a-42ac-bdc0-33df5cf6966a"] }, Open ]], Cell[CellGroupData[{ -Cell[2709, 97, 910, 31, 56, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[3622, 130, 175, 3, 32, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[1185, 38, 246, 4, 44, "Input",ExpressionUUID->"a84bdf18-650d-4cfc-ba31-a23985e3ad58"], +Cell[1434, 44, 273, 4, 50, "Output",ExpressionUUID->"82ed9bb8-8ec1-429d-82bf-199502d97e1a"] }, Open ]], Cell[CellGroupData[{ -Cell[3834, 138, 885, 30, 56, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[1744, 53, 228, 4, 44, "Input",ExpressionUUID->"170a0f72-c8dd-4d24-b6fe-e77d2401dc6c"], +Cell[1975, 59, 273, 4, 50, "Output",ExpressionUUID->"9722c374-49ef-4ef0-b2be-64784af7b61d"] }, Open ]], Cell[CellGroupData[{ -Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[5497, 199, 173, 3, 32, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[2285, 68, 175, 3, 44, "Input",ExpressionUUID->"27a04430-3710-42cf-9992-fdcc62d855ee"], +Cell[2463, 73, 273, 4, 50, "Output",ExpressionUUID->"296c7339-4060-4f9b-9470-492c0fe9167f"] }, Open ]], Cell[CellGroupData[{ -Cell[5707, 207, 623, 21, 52, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[6333, 230, 170, 3, 32, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[2773, 82, 257, 7, 64, "Input",ExpressionUUID->"5b43c4d9-0384-4bdf-9191-3dcc0d3d0594"], +Cell[3033, 91, 287, 4, 50, "Output",ExpressionUUID->"3e1a148c-90d9-4c08-9ccc-6f02bad28dec"] }, Open ]], Cell[CellGroupData[{ -Cell[6540, 238, 170, 5, 56, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[6713, 245, 173, 3, 32, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[3357, 100, 131, 2, 44, "Input",ExpressionUUID->"6bbc99da-fc75-409c-b9a4-a123fa252ba5"], +Cell[3491, 104, 273, 4, 50, "Output",ExpressionUUID->"2a02118d-742b-4240-891c-38e89672e966"] }, Open ]], Cell[CellGroupData[{ -Cell[6923, 253, 170, 5, 55, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[7096, 260, 170, 3, 70, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[3801, 113, 276, 6, 44, "Input",ExpressionUUID->"2950791b-8a1b-43e7-8602-5195705fced2"], +Cell[4080, 121, 286, 4, 50, "Output",ExpressionUUID->"694999ad-0739-4d25-85e6-2d3d61d0dd0c"] }, Open ]], Cell[CellGroupData[{ -Cell[7303, 268, 181, 5, 70, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[7487, 275, 171, 3, 70, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[4403, 130, 257, 7, 44, "Input",ExpressionUUID->"a59bec7a-0904-4666-8595-015f382a1431"], +Cell[4663, 139, 285, 4, 50, "Output",ExpressionUUID->"fc92eae3-b172-4557-bc78-038b26bda308"] }, Open ]], Cell[CellGroupData[{ -Cell[7695, 283, 181, 5, 70, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[7879, 290, 173, 3, 70, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[4985, 148, 224, 4, 44, "Input",ExpressionUUID->"736727e8-5f1b-4d3d-b642-f3db243f5957"], +Cell[5212, 154, 251, 4, 50, "Output",ExpressionUUID->"aca98e9c-7a90-4c16-8017-ce1720b423d8"] }, Open ]], Cell[CellGroupData[{ -Cell[8089, 298, 6055, 185, 70, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[14147, 485, 175, 3, 70, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[5500, 163, 226, 4, 44, "Input",ExpressionUUID->"aa67c684-f4c1-4a54-9a91-a809a1b912e8"], +Cell[5729, 169, 254, 4, 50, "Output",ExpressionUUID->"cfed4126-5da6-4b0e-bc4a-5df2d78e71aa"] }, Open ]], Cell[CellGroupData[{ -Cell[14359, 493, 368, 9, 70, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[14730, 504, 170, 3, 70, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[6020, 178, 129, 2, 44, "Input",ExpressionUUID->"3d35279e-eba4-4448-a389-d5398fff7f94"], +Cell[6152, 182, 270, 4, 50, "Output",ExpressionUUID->"c08573e4-7d99-4791-8957-e8dd7feac8cd"] }, Open ]], Cell[CellGroupData[{ -Cell[14937, 512, 6122, 187, 70, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[21062, 701, 175, 3, 70, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[6459, 191, 129, 2, 44, "Input",ExpressionUUID->"742e7ecc-a558-4afc-9484-bcc3763cead9"], +Cell[6591, 195, 272, 4, 50, "Output",ExpressionUUID->"8291095b-f003-43de-a264-8620937d1fb1"] }, Open ]], Cell[CellGroupData[{ -Cell[21274, 709, 368, 9, 70, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[21645, 720, 172, 3, 70, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[6900, 204, 557, 19, 119, "Input",ExpressionUUID->"c5913af8-604b-4bf4-8c99-1d69ec9a8056"], +Cell[7460, 225, 295, 4, 50, "Output",ExpressionUUID->"30d789eb-1265-4619-a23e-579ed3727a6b"] }, Open ]], Cell[CellGroupData[{ -Cell[21854, 728, 2663, 88, 70, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[24520, 818, 173, 3, 70, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[7792, 234, 557, 19, 119, "Input",ExpressionUUID->"b25797fb-2fbc-47b4-b599-fe4a89643c3d"], +Cell[8352, 255, 288, 4, 50, "Output",ExpressionUUID->"89a97b86-fd6b-4d5e-aee9-c8ae5d02a0f9"] }, Open ]], Cell[CellGroupData[{ -Cell[24730, 826, 2603, 85, 70, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[27336, 913, 172, 3, 70, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[8677, 264, 1588, 50, 471, "Input",ExpressionUUID->"e0557911-8f71-4392-a1ea-cea2fd451671"], +Cell[10268, 316, 284, 4, 50, "Output",ExpressionUUID->"96c8501b-bee6-49cc-ba0c-958bebbb4b88"] }, Open ]], Cell[CellGroupData[{ -Cell[27545, 921, 3712, 118, 70, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[31260, 1041, 174, 3, 70, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] -}, Open ]], -Cell[31449, 1047, 138, 3, 70, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], -Cell[CellGroupData[{ -Cell[31612, 1054, 2052, 59, 70, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[33667, 1115, 524, 11, 70, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], -Cell[34194, 1128, 526, 11, 70, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], -Cell[34723, 1141, 530, 11, 70, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], -Cell[35256, 1154, 455, 10, 70, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], -Cell[35714, 1166, 172, 3, 70, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[10589, 325, 1422, 46, 247, "Input",ExpressionUUID->"7f7a86c0-3e6d-4c73-bdd0-5dcc2c9aa7ab"], +Cell[12014, 373, 308, 5, 50, "Output",ExpressionUUID->"26700cad-8612-4f65-9125-fdc6a856e7cb"] }, Open ]], Cell[CellGroupData[{ -Cell[35923, 1174, 2054, 59, 70, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[37980, 1235, 524, 11, 70, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], -Cell[38507, 1248, 526, 11, 70, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], -Cell[39036, 1261, 528, 11, 70, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], -Cell[39567, 1274, 456, 10, 70, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], -Cell[40026, 1286, 170, 3, 70, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[12359, 383, 1422, 46, 247, "Input",ExpressionUUID->"48aaf736-6fb2-4e34-b5f7-5c88327e5e72"], +Cell[13784, 431, 306, 5, 50, "Output",ExpressionUUID->"e35318a4-6a93-42db-bbc4-01c2ac49bafe"] }, Open ]], Cell[CellGroupData[{ -Cell[40233, 1294, 1938, 53, 70, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[42174, 1349, 19981, 375, 70, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +Cell[14127, 441, 1588, 50, 471, "Input",ExpressionUUID->"cc95d4dc-b05c-4204-b959-ccf498b86159"], +Cell[15718, 493, 287, 4, 50, "Output",ExpressionUUID->"ceb7365f-e7e2-4347-a682-549c32b428c0"] }, Open ]], Cell[CellGroupData[{ -Cell[62192, 1729, 2092, 60, 70, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[64287, 1791, 490, 11, 70, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], -Cell[64780, 1804, 493, 11, 70, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], -Cell[65276, 1817, 508, 11, 70, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], -Cell[65787, 1830, 456, 10, 70, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], -Cell[66246, 1842, 61603, 1057, 70, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] -}, Open ]], -Cell[127864, 2902, 232, 6, 70, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[128099, 2910, 209, 5, 70, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], -Cell[CellGroupData[{ -Cell[128333, 2919, 217, 7, 70, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[128553, 2928, 169, 3, 70, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[16042, 502, 131, 2, 44, "Input",ExpressionUUID->"394997d9-d5c4-4015-8e00-ea760891c6dd"], +Cell[16176, 506, 274, 4, 50, "Output",ExpressionUUID->"2c63d68d-76e2-44c7-b48f-ef6c45d7c6a7"] }, Open ]], Cell[CellGroupData[{ -Cell[128759, 2936, 1816, 53, 70, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[130578, 2991, 502, 11, 70, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], -Cell[131083, 3004, 506, 11, 70, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], -Cell[131592, 3017, 509, 11, 70, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], -Cell[132104, 3030, 456, 10, 70, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], -Cell[132563, 3042, 28560, 514, 70, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +Cell[16487, 515, 133, 2, 44, "Input",ExpressionUUID->"3596991d-7377-4947-b87c-4cf4b5049e20"], +Cell[16623, 519, 273, 4, 50, "Output",ExpressionUUID->"0c913619-d795-45e2-8ed8-26ef918460e5"] }, Open ]], Cell[CellGroupData[{ -Cell[161160, 3561, 1616, 48, 70, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[162779, 3611, 576, 12, 70, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], -Cell[163358, 3625, 582, 12, 70, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], -Cell[163943, 3639, 584, 12, 70, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], -Cell[164530, 3653, 458, 10, 70, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], -Cell[164991, 3665, 170, 3, 70, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[16933, 528, 134, 2, 44, "Input",ExpressionUUID->"142818a8-8e46-41da-9c4f-a45d40cfe565"], +Cell[17070, 532, 276, 4, 50, "Output",ExpressionUUID->"82187224-8e35-4eb3-b62c-d0a60b2078f0"] }, Open ]], Cell[CellGroupData[{ -Cell[165198, 3673, 2247, 64, 70, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[167448, 3739, 522, 11, 70, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], -Cell[167973, 3752, 526, 11, 70, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], -Cell[168502, 3765, 528, 11, 70, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], -Cell[169033, 3778, 458, 10, 70, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], -Cell[169494, 3790, 175, 3, 70, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[17383, 541, 219, 4, 44, "Input",ExpressionUUID->"dc86d0bf-1d34-4e0c-85e7-ef82fca503da"], +Cell[17605, 547, 286, 5, 50, "Output",ExpressionUUID->"134b1e84-ca18-4113-a512-deb3ea8b3c52"] }, Open ]], Cell[CellGroupData[{ -Cell[169706, 3798, 2221, 64, 70, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[171930, 3864, 522, 11, 70, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], -Cell[172455, 3877, 524, 11, 70, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], -Cell[172982, 3890, 528, 11, 70, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], -Cell[173513, 3903, 458, 10, 70, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], -Cell[173974, 3915, 170, 3, 70, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +Cell[17928, 557, 134, 2, 44, "Input",ExpressionUUID->"956be282-9d43-40d9-9de4-cb179b0c5142"], +Cell[18065, 561, 277, 4, 50, "Output",ExpressionUUID->"f03c57e8-7a2a-4739-a045-0cb718485ca1"] }, Open ]], Cell[CellGroupData[{ -Cell[174181, 3923, 2221, 64, 70, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[176405, 3989, 524, 11, 70, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], -Cell[176932, 4002, 526, 11, 70, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], -Cell[177461, 4015, 530, 11, 70, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], -Cell[177994, 4028, 458, 10, 70, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], -Cell[178455, 4040, 171, 3, 70, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +Cell[18379, 570, 328, 5, 44, "Input",ExpressionUUID->"c5acc4cb-912d-4b87-9f6c-3f2cd1a709ee"], +Cell[18710, 577, 273, 4, 50, "Output",ExpressionUUID->"cf46eb52-2e14-4205-8dae-854ab70d03d4"] }, Open ]], Cell[CellGroupData[{ -Cell[178663, 4048, 215, 6, 70, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[178881, 4056, 175, 3, 70, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] -}, Open ]], -Cell[179071, 4062, 245, 5, 70, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], -Cell[CellGroupData[{ -Cell[179341, 4071, 558, 19, 70, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[179902, 4092, 172, 3, 70, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +Cell[19020, 586, 296, 5, 44, "Input",ExpressionUUID->"8c104d1e-0e6c-49f7-8653-e9112aa8d5be"], +Cell[19319, 593, 273, 4, 50, "Output",ExpressionUUID->"033a2908-a5d0-4065-9ec4-dfb16d4967d4"] }, Open ]], Cell[CellGroupData[{ -Cell[180111, 4100, 170, 5, 70, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[180284, 4107, 172, 3, 70, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +Cell[19629, 602, 219, 4, 44, "Input",ExpressionUUID->"d8384f44-f4e5-4304-862c-3d3abd5a4e88"], +Cell[19851, 608, 273, 4, 50, "Output",ExpressionUUID->"cde337a4-b67a-4ca5-86a0-53c7eee54161"] }, Open ]], Cell[CellGroupData[{ -Cell[180493, 4115, 181, 5, 70, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[180677, 4122, 172, 3, 70, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +Cell[20161, 617, 350, 10, 64, "Input",ExpressionUUID->"7d9753d0-8b04-4557-bdd7-1ab817307616"], +Cell[20514, 629, 297, 4, 50, "Output",ExpressionUUID->"91a793ec-747c-40e6-8d12-266fab32e29f"] }, Open ]], Cell[CellGroupData[{ -Cell[180886, 4130, 6055, 185, 70, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[186944, 4317, 174, 3, 70, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +Cell[20848, 638, 350, 10, 64, "Input",ExpressionUUID->"d677bd7a-a40f-40d7-a4fc-6c9bfec851d6"], +Cell[21201, 650, 306, 5, 50, "Output",ExpressionUUID->"291516b6-6437-42a1-8fd2-bbdb46de4b58"] }, Open ]], Cell[CellGroupData[{ -Cell[187155, 4325, 368, 9, 70, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[187526, 4336, 173, 3, 70, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +Cell[21544, 660, 994, 26, 327, "Input",ExpressionUUID->"14635bdb-e8d7-4d63-bed8-0a76a3334fbd"], +Cell[22541, 688, 291, 4, 50, "Output",ExpressionUUID->"62b47213-6784-4146-b2f2-9951b7b2372a"] }, Open ]], Cell[CellGroupData[{ -Cell[187736, 4344, 6122, 187, 70, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[193861, 4533, 175, 3, 70, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +Cell[22869, 697, 199, 3, 44, "Input",ExpressionUUID->"2e4e2b15-c7b3-47e4-8b19-cd5e4259fc10"], +Cell[23071, 702, 274, 4, 50, "Output",ExpressionUUID->"9594dc8e-99b7-41a1-92f3-6731f18facc3"] }, Open ]], Cell[CellGroupData[{ -Cell[194073, 4541, 368, 9, 70, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[194444, 4552, 170, 3, 70, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +Cell[23382, 711, 326, 5, 44, "Input",ExpressionUUID->"d87668e5-34b4-4466-ae54-e28db0c260db"], +Cell[23711, 718, 250, 4, 50, "Output",ExpressionUUID->"e3ee3729-485d-40de-9843-5518d4eac1df"] +}, Open ]], +Cell[23976, 725, 173, 2, 44, "Input",ExpressionUUID->"880e360b-7298-4e09-85f9-48084e5b37ff"], +Cell[CellGroupData[{ +Cell[24174, 731, 327, 5, 44, "Input",ExpressionUUID->"a9d3bb4f-3ef8-40f8-bf4e-f1798dc08ff8"], +Cell[24504, 738, 255, 4, 50, "Output",ExpressionUUID->"713d378e-5de5-4524-adcd-15c54cedc06e"] +}, Open ]], +Cell[24774, 745, 173, 2, 44, "Input",ExpressionUUID->"acbdfcb3-7ba0-46b8-ad20-3302b1f23b93"], +Cell[CellGroupData[{ +Cell[24972, 751, 329, 5, 44, "Input",ExpressionUUID->"0dc48f12-9e6a-4b5b-ae4b-29d8bb6ad10b"], +Cell[25304, 758, 251, 4, 50, "Output",ExpressionUUID->"933475e5-c2d8-422d-a3d7-0ae98a73dd99"] +}, Open ]], +Cell[25570, 765, 173, 2, 44, "Input",ExpressionUUID->"b59cb2a7-273e-4183-aa67-cd8eb044436b"], +Cell[CellGroupData[{ +Cell[25768, 771, 354, 5, 44, "Input",ExpressionUUID->"2e2d5968-90a9-4221-815a-cfeb8c74421f"], +Cell[26125, 778, 254, 4, 50, "Output",ExpressionUUID->"83b73b7b-221b-4eb4-9075-84f318129f3b"] +}, Open ]], +Cell[26394, 785, 171, 2, 44, "Input",ExpressionUUID->"6ff1d83f-3a96-4654-89ca-4fb6c3e1d508"], +Cell[CellGroupData[{ +Cell[26590, 791, 299, 5, 44, "Input",ExpressionUUID->"1cabc79f-1fac-48a1-af90-4987c518a680"], +Cell[26892, 798, 253, 4, 50, "Output",ExpressionUUID->"e9f4c155-d97c-4886-8e52-379ef48b69b8"] +}, Open ]], +Cell[27160, 805, 171, 2, 44, "Input",ExpressionUUID->"8e684642-5e2e-4335-977a-b70439c2a5e0"], +Cell[CellGroupData[{ +Cell[27356, 811, 303, 5, 44, "Input",ExpressionUUID->"131ce29e-eb44-4a63-96eb-8c4972a1b212"], +Cell[27662, 818, 253, 4, 50, "Output",ExpressionUUID->"6fa0ccb6-7dbe-4005-bb2c-ec8b1204bdca"] +}, Open ]], +Cell[27930, 825, 173, 2, 44, "Input",ExpressionUUID->"64a1ef54-ae04-49e1-a5f3-390193bb0d68"], +Cell[CellGroupData[{ +Cell[28128, 831, 306, 5, 44, "Input",ExpressionUUID->"ad0ae671-9610-4879-abf9-de3e2c323054"], +Cell[28437, 838, 254, 4, 50, "Output",ExpressionUUID->"56b9588f-e6b8-4fdf-a241-c6cd97b6272f"] +}, Open ]], +Cell[28706, 845, 172, 2, 44, "Input",ExpressionUUID->"7e010e74-c51d-4b0b-a358-1e281ea30111"], +Cell[CellGroupData[{ +Cell[28903, 851, 275, 4, 44, "Input",ExpressionUUID->"d7b0860f-be81-4ff6-a61d-21020ad47b25"], +Cell[29181, 857, 252, 4, 50, "Output",ExpressionUUID->"3da644f0-51d7-4159-a847-6aca0706de26"] +}, Open ]], +Cell[29448, 864, 175, 2, 44, "Input",ExpressionUUID->"730fdeb2-39a4-4fa9-8540-0b4b7d435b48"], +Cell[CellGroupData[{ +Cell[29648, 870, 19809, 485, 3721, "Input",ExpressionUUID->"24755538-6fb6-49f4-8dea-c74cd9eba2ac"], +Cell[49460, 1357, 289, 4, 50, "Output",ExpressionUUID->"e49c98f4-5138-4eba-9260-249b88b7965e"] }, Open ]], Cell[CellGroupData[{ -Cell[194651, 4560, 2663, 88, 70, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[197317, 4650, 173, 3, 70, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +Cell[49786, 1366, 19748, 489, 3905, "Input",ExpressionUUID->"bda461a3-c1f7-4378-9e67-b23b6a411c46"], +Cell[69537, 1857, 293, 4, 50, "Output",ExpressionUUID->"9f61931a-5cb1-45f8-81de-19db360156c7"] }, Open ]], Cell[CellGroupData[{ -Cell[197527, 4658, 2603, 85, 70, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[200133, 4745, 172, 3, 70, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +Cell[69867, 1866, 19748, 483, 3803, "Input",ExpressionUUID->"2b7bc9be-6ff0-49cc-b3e4-df474463af3c"], +Cell[89618, 2351, 302, 5, 50, "Output",ExpressionUUID->"2c37fc32-f408-4c3b-95a7-475466b1160d"] }, Open ]], Cell[CellGroupData[{ -Cell[200342, 4753, 3712, 118, 70, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[204057, 4873, 174, 3, 70, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +Cell[89957, 2361, 22534, 553, 4326, "Input",ExpressionUUID->"580a6a2a-dc70-44ae-b272-a1bdd54c826f"], +Cell[112494, 2916, 307, 5, 50, "Output",ExpressionUUID->"e59e2b9c-2396-457d-92f5-3e5d030a5b42"] }, Open ]], Cell[CellGroupData[{ -Cell[204268, 4881, 2052, 59, 70, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[206323, 4942, 574, 12, 70, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], -Cell[206900, 4956, 580, 12, 70, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], -Cell[207483, 4970, 582, 12, 70, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], -Cell[208068, 4984, 456, 10, 70, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], -Cell[208527, 4996, 171, 3, 70, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +Cell[112838, 2926, 22535, 553, 4326, "Input",ExpressionUUID->"9e6bf8d4-aee3-432b-8b73-2467e721d5b6"], +Cell[135376, 3481, 310, 5, 50, "Output",ExpressionUUID->"3b102122-41d5-47c1-af22-322836d0ef50"] }, Open ]], Cell[CellGroupData[{ -Cell[208735, 5004, 2054, 59, 70, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[210792, 5065, 574, 12, 70, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], -Cell[211369, 5079, 578, 12, 70, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], -Cell[211950, 5093, 582, 12, 70, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], -Cell[212535, 5107, 458, 10, 70, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], -Cell[212996, 5119, 169, 3, 70, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +Cell[135723, 3491, 25491, 626, 4849, "Input",ExpressionUUID->"f2290b19-6da9-4717-a558-5041bb13f1ab"], +Cell[161217, 4119, 302, 5, 50, "Output",ExpressionUUID->"44306616-d83d-41bf-be1a-b41d2225748f"] }, Open ]], Cell[CellGroupData[{ -Cell[213202, 5127, 2030, 55, 70, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[215235, 5184, 20326, 381, 70, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] -}, Open ]], -Cell[235576, 5568, 2144, 61, 70, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[237723, 5631, 138, 3, 70, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], -Cell[CellGroupData[{ -Cell[237886, 5638, 1616, 48, 70, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[239505, 5688, 592, 12, 70, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], -Cell[240100, 5702, 597, 12, 70, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], -Cell[240700, 5716, 599, 12, 70, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], -Cell[241302, 5730, 458, 10, 70, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], -Cell[241763, 5742, 172, 3, 70, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +Cell[161556, 4129, 130, 2, 44, "Input",ExpressionUUID->"677e8854-5d69-47ea-8772-bebd5cd3f9bf"], +Cell[161689, 4133, 273, 4, 50, "Output",ExpressionUUID->"6148106e-7ef3-4690-b57f-58f5da3252fc"] }, Open ]], Cell[CellGroupData[{ -Cell[241972, 5750, 2249, 64, 70, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[244224, 5816, 576, 12, 70, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], -Cell[244803, 5830, 580, 12, 70, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], -Cell[245386, 5844, 582, 12, 70, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], -Cell[245971, 5858, 456, 10, 70, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], -Cell[246430, 5870, 171, 3, 70, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +Cell[161999, 4142, 130, 2, 44, "Input",ExpressionUUID->"60e83527-4e25-4e91-8598-6529ad3ba730"], +Cell[162132, 4146, 274, 4, 50, "Output",ExpressionUUID->"74677b26-2f7d-4396-a664-18e039a3afcc"] }, Open ]], Cell[CellGroupData[{ -Cell[246638, 5878, 2223, 64, 70, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[248864, 5944, 574, 12, 70, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], -Cell[249441, 5958, 578, 12, 70, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], -Cell[250022, 5972, 580, 12, 70, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], -Cell[250605, 5986, 458, 10, 70, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], -Cell[251066, 5998, 173, 3, 70, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +Cell[162443, 4155, 1144, 39, 336, "Input",ExpressionUUID->"8eba29a0-0bfe-45e8-b578-9129efa9f760"], +Cell[163590, 4196, 285, 4, 50, "Output",ExpressionUUID->"264f2cc4-2f15-4d0e-aeb2-e12ade3edd4f"] }, Open ]], Cell[CellGroupData[{ -Cell[251276, 6006, 2221, 64, 70, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[253500, 6072, 574, 12, 70, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], -Cell[254077, 6086, 578, 12, 70, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], -Cell[254658, 6100, 582, 12, 70, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], -Cell[255243, 6114, 455, 10, 70, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], -Cell[255701, 6126, 170, 3, 70, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +Cell[163912, 4205, 1041, 35, 334, "Input",ExpressionUUID->"631fba51-b60d-40f0-86db-d9a5108c28eb"], +Cell[164956, 4242, 308, 5, 50, "Output",ExpressionUUID->"70c58969-ac65-4c92-b05f-fc78037542d2"] }, Open ]], Cell[CellGroupData[{ -Cell[255908, 6134, 215, 6, 70, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[256126, 6142, 174, 3, 70, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] -}, Open ]], -Cell[256315, 6148, 249, 5, 70, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], -Cell[CellGroupData[{ -Cell[256589, 6157, 558, 19, 70, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[257150, 6178, 169, 3, 70, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +Cell[165301, 4252, 1144, 39, 336, "Input",ExpressionUUID->"c2929b2d-23c7-4ad8-acdf-d40ee5c2edbc"], +Cell[166448, 4293, 288, 4, 50, "Output",ExpressionUUID->"b9f059ee-153d-47f7-abf6-8e568b416f7d"] }, Open ]], Cell[CellGroupData[{ -Cell[257356, 6186, 170, 5, 70, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[257529, 6193, 173, 3, 70, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +Cell[166773, 4302, 108, 1, 44, "Input",ExpressionUUID->"fe4fb9fc-fcc4-4bed-8520-a2b1f238474b"], +Cell[166884, 4305, 284, 4, 50, "Output",ExpressionUUID->"7bf7685f-1de0-4ea0-9735-08279121853c"] }, Open ]], Cell[CellGroupData[{ -Cell[257739, 6201, 181, 5, 70, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[257923, 6208, 173, 3, 70, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +Cell[167205, 4314, 108, 1, 44, "Input",ExpressionUUID->"7de557e2-d974-470f-bfdf-ca2f49a85d7f"], +Cell[167316, 4317, 308, 5, 50, "Output",ExpressionUUID->"1841e7ea-d6a9-482e-9366-a4eeee7407b5"] }, Open ]], Cell[CellGroupData[{ -Cell[258133, 6216, 6055, 185, 70, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[264191, 6403, 174, 3, 70, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +Cell[167661, 4327, 108, 1, 44, "Input",ExpressionUUID->"aa8e3253-9953-41e8-8a40-55eb5a53d450"], +Cell[167772, 4330, 307, 5, 50, "Output",ExpressionUUID->"49cc8417-d751-41f4-8a61-31044b419ef8"] }, Open ]], Cell[CellGroupData[{ -Cell[264402, 6411, 368, 9, 70, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[264773, 6422, 172, 3, 70, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +Cell[168116, 4340, 108, 1, 44, "Input",ExpressionUUID->"0123d409-c86c-462c-a49e-b0ebd09a9850"], +Cell[168227, 4343, 292, 4, 50, "Output",ExpressionUUID->"ba32b42d-aa54-4381-944a-4f6e3cccb7ca"] }, Open ]], Cell[CellGroupData[{ -Cell[264982, 6430, 6122, 187, 70, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[271107, 6619, 172, 3, 70, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +Cell[168556, 4352, 107, 1, 44, "Input",ExpressionUUID->"8cb8bed9-f557-4334-91a9-dabc815b8b8a"], +Cell[168666, 4355, 290, 4, 50, "Output",ExpressionUUID->"80d17bfe-e1c1-4649-949e-c152775fb20d"] }, Open ]], Cell[CellGroupData[{ -Cell[271316, 6627, 368, 9, 70, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[271687, 6638, 170, 3, 70, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +Cell[168993, 4364, 107, 1, 44, "Input",ExpressionUUID->"d7903259-c65b-4038-8fc3-f2474e03c745"], +Cell[169103, 4367, 287, 4, 50, "Output",ExpressionUUID->"a95ff65f-62d4-478d-b017-b8c0ab657044"] }, Open ]], Cell[CellGroupData[{ -Cell[271894, 6646, 2663, 88, 70, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[274560, 6736, 173, 3, 70, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +Cell[169427, 4376, 497, 16, 84, "Input",ExpressionUUID->"bcf526a5-e1f4-4040-b65b-57e218034949"], +Cell[169927, 4394, 308, 5, 50, "Output",ExpressionUUID->"293f95e2-641d-4398-8545-498f1f96b27b"] }, Open ]], Cell[CellGroupData[{ -Cell[274770, 6744, 2603, 85, 70, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[277376, 6831, 172, 3, 70, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +Cell[170272, 4404, 497, 16, 84, "Input",ExpressionUUID->"7f93fb69-8560-4fab-8dd9-b3b63be1e4a1"], +Cell[170772, 4422, 301, 5, 50, "Output",ExpressionUUID->"e2ff3dcc-df07-4c31-a305-06f52a679ec7"] }, Open ]], Cell[CellGroupData[{ -Cell[277585, 6839, 3712, 118, 70, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[281300, 6959, 172, 3, 70, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +Cell[171110, 4432, 1788, 60, 508, "Input",ExpressionUUID->"f766ba37-8cfa-49ec-a2ad-8bc999b97f1f"], +Cell[172901, 4494, 286, 4, 50, "Output",ExpressionUUID->"f37e6840-b9ae-48d9-9fa4-78aafcb56a7a"] }, Open ]], Cell[CellGroupData[{ -Cell[281509, 6967, 2052, 59, 70, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[283564, 7028, 573, 12, 70, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], -Cell[284140, 7042, 573, 12, 70, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], -Cell[284716, 7056, 579, 12, 70, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], -Cell[285298, 7070, 458, 10, 70, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], -Cell[285759, 7082, 170, 3, 70, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +Cell[173224, 4503, 1101, 36, 367, "Input",ExpressionUUID->"15d5df87-d569-466e-9931-16c78786e4b0"], +Cell[174328, 4541, 308, 5, 50, "Output",ExpressionUUID->"6a70f199-add8-438d-8ac2-81eef229749e"] }, Open ]], Cell[CellGroupData[{ -Cell[285966, 7090, 2052, 59, 70, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[288021, 7151, 573, 12, 70, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], -Cell[288597, 7165, 575, 12, 70, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], -Cell[289175, 7179, 579, 12, 70, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], -Cell[289757, 7193, 458, 10, 70, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], -Cell[290218, 7205, 169, 3, 70, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +Cell[174673, 4551, 1818, 61, 508, "Input",ExpressionUUID->"f2e6041c-e222-4174-bc71-de0a35588d73"], +Cell[176494, 4614, 285, 4, 50, "Output",ExpressionUUID->"580cb745-4266-4b62-a550-613e65eff160"] }, Open ]], Cell[CellGroupData[{ -Cell[290424, 7213, 2028, 55, 70, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[292455, 7270, 20296, 381, 70, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +Cell[176816, 4623, 1631, 53, 287, "Input",ExpressionUUID->"7978fc2c-0c96-47bf-bdde-2420e937364b"], +Cell[178450, 4678, 289, 4, 50, "Output",ExpressionUUID->"633a4306-7b2c-4ef1-9a9c-3136f35aec1d"] }, Open ]], Cell[CellGroupData[{ -Cell[312788, 7656, 2146, 61, 70, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[314937, 7719, 500, 11, 70, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], -Cell[315440, 7732, 505, 11, 70, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], -Cell[315948, 7745, 509, 11, 70, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], -Cell[316460, 7758, 458, 10, 70, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], -Cell[316921, 7770, 39609, 697, 70, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] -}, Open ]], -Cell[356545, 8470, 209, 5, 70, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], -Cell[CellGroupData[{ -Cell[356779, 8479, 1616, 48, 70, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[358398, 8529, 589, 12, 70, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], -Cell[358990, 8543, 595, 12, 70, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], -Cell[359588, 8557, 596, 12, 70, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], -Cell[360187, 8571, 458, 10, 70, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], -Cell[360648, 8583, 171, 3, 70, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +Cell[178776, 4687, 1710, 55, 354, "Input",ExpressionUUID->"9da2b650-53b1-43f9-aede-1fc860881650"], +Cell[180489, 4744, 288, 4, 50, "Output",ExpressionUUID->"fefcbe64-b263-4d6e-a2bc-f816a3206183"] }, Open ]], Cell[CellGroupData[{ -Cell[360856, 8591, 2249, 64, 70, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[363108, 8657, 573, 12, 70, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], -Cell[363684, 8671, 573, 12, 70, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], -Cell[364260, 8685, 579, 12, 70, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], -Cell[364842, 8699, 458, 10, 70, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], -Cell[365303, 8711, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +Cell[180814, 4753, 226, 4, 44, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[181043, 4759, 156, 2, 50, "Output",ExpressionUUID->"7eb4577b-6e35-4148-9b45-e7020c5cd254"] +}, Open ]], +Cell[181214, 4764, 173, 2, 44, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], +Cell[CellGroupData[{ +Cell[181412, 4770, 230, 4, 44, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[181645, 4776, 156, 2, 50, "Output",ExpressionUUID->"2b6f003e-6f8d-4299-8a42-dcd9f091aadb"] +}, Open ]], +Cell[181816, 4781, 171, 2, 44, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], +Cell[CellGroupData[{ +Cell[182012, 4787, 1297, 42, 205, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[183312, 4831, 195, 2, 50, "Output",ExpressionUUID->"7e7d7954-a9bc-4754-8393-331844a9d9ea"] }, Open ]], Cell[CellGroupData[{ -Cell[365514, 8719, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[367738, 8785, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], -Cell[368314, 8799, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], -Cell[368892, 8813, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], -Cell[369472, 8827, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], -Cell[369931, 8839, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +Cell[183544, 4838, 929, 30, 205, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[184476, 4870, 194, 2, 50, "Output",ExpressionUUID->"bd795dba-077e-4995-a85a-e191378a670e"] }, Open ]], Cell[CellGroupData[{ -Cell[370140, 8847, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[372362, 8913, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], -Cell[372936, 8927, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], -Cell[373512, 8941, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], -Cell[374094, 8955, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], -Cell[374555, 8967, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +Cell[184707, 4877, 904, 29, 149, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[185614, 4908, 195, 2, 50, "Output",ExpressionUUID->"b1b23885-e657-47d7-924c-e1b002b38edb"] }, Open ]], Cell[CellGroupData[{ -Cell[374764, 8975, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[374978, 8983, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +Cell[185846, 4915, 554, 18, 79, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[186403, 4935, 189, 2, 50, "Output",ExpressionUUID->"5ffb5033-652e-4dc4-8945-e82818bd2a3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186629, 4942, 619, 20, 79, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[187251, 4964, 188, 2, 50, "Output",ExpressionUUID->"2d2f85b9-bd48-49c1-9974-142770e39f2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187476, 4971, 166, 4, 84, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[187645, 4977, 191, 2, 50, "Output",ExpressionUUID->"0671a55c-3156-49fe-8d0f-e589aedd335b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187873, 4984, 166, 4, 83, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[188042, 4990, 187, 2, 50, "Output",ExpressionUUID->"45e4afc9-c592-45f8-85bc-97bb5cfb5389"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188266, 4997, 177, 4, 65, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[188446, 5003, 188, 2, 50, "Output",ExpressionUUID->"dc39236d-0b3b-4072-adab-92c2dc82665c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188671, 5010, 177, 4, 65, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[188851, 5016, 190, 2, 50, "Output",ExpressionUUID->"51b308fd-b12c-47ca-9559-5424fcf61878"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189078, 5023, 6051, 184, 1229, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[195132, 5209, 193, 2, 50, "Output",ExpressionUUID->"61452f6a-ebda-4800-a77d-5bf94cfd5d7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195362, 5216, 364, 8, 63, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[195729, 5226, 190, 2, 50, "Output",ExpressionUUID->"8e1dfd8a-6569-46c8-866b-78eaab39c540"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195956, 5233, 6118, 186, 1292, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[202077, 5421, 191, 2, 50, "Output",ExpressionUUID->"0196d9e9-2310-4053-ac60-27793b555707"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202305, 5428, 364, 8, 63, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[202672, 5438, 192, 2, 50, "Output",ExpressionUUID->"f0360fd7-5576-48c3-9bb5-235f13ec5320"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202901, 5445, 2659, 87, 558, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[205563, 5534, 192, 2, 50, "Output",ExpressionUUID->"7637949e-9075-42f6-980c-c2c5509ffe35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205792, 5541, 2599, 84, 558, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[208394, 5627, 188, 2, 50, "Output",ExpressionUUID->"86c1217e-10bd-4ca5-9e1a-126f57859434"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208619, 5634, 3708, 117, 781, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[212330, 5753, 192, 2, 50, "Output",ExpressionUUID->"1a90c68e-6034-4b2a-97db-6023f28df5eb"] +}, Open ]], +Cell[212537, 5758, 160, 3, 44, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[212722, 5765, 2097, 59, 409, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[214822, 5826, 633, 13, 89, "Message",ExpressionUUID->"646a92ee-8e6d-448a-9720-03189cfe260a"], +Cell[215458, 5841, 635, 13, 89, "Message",ExpressionUUID->"f2ea7738-cab2-4e13-8f8f-777cbf1548b7"], +Cell[216096, 5856, 633, 13, 89, "Message",ExpressionUUID->"76b33c98-2a3f-4ffb-8381-fe360589c502"], +Cell[216732, 5871, 492, 11, 64, "Message",ExpressionUUID->"04b2684a-8ed4-40de-8fee-63d6422621d1"], +Cell[217227, 5884, 190, 2, 50, "Output",ExpressionUUID->"644d1ae2-f9ca-44e3-9e18-196df3dfcb87"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217454, 5891, 2099, 59, 409, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[219556, 5952, 633, 13, 89, "Message",ExpressionUUID->"b80f0899-f0d7-428a-be42-4a5f1614ba80"], +Cell[220192, 5967, 633, 13, 89, "Message",ExpressionUUID->"288b8afa-78e6-4d11-a8cd-cc5e3db8e57e"], +Cell[220828, 5982, 633, 13, 89, "Message",ExpressionUUID->"37f6ec21-aff7-479d-ad47-5406caf63724"], +Cell[221464, 5997, 494, 11, 64, "Message",ExpressionUUID->"616cc5a9-8b68-4e2a-bda2-91bd67099ce4"], +Cell[221961, 6010, 189, 2, 50, "Output",ExpressionUUID->"894ce06c-76ee-44a5-9885-e73863dcda4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[222187, 6017, 2049, 54, 317, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[224239, 6073, 20232, 379, 329, "Output",ExpressionUUID->"cdb75b53-843f-43a7-b091-3aef1801d8b4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244508, 6457, 2138, 60, 450, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[246649, 6519, 529, 12, 111, "Message",ExpressionUUID->"970b1ff2-db7c-4b4c-a3e1-3b8b1a281e4b"], +Cell[247181, 6533, 533, 12, 111, "Message",ExpressionUUID->"15827d3f-72bd-4a83-9653-834cd59010ae"], +Cell[247717, 6547, 537, 12, 111, "Message",ExpressionUUID->"a998602c-ecc5-4435-84c0-4acb8ba06896"], +Cell[248257, 6561, 493, 11, 64, "Message",ExpressionUUID->"faeba482-a823-4c72-874f-aaa151320839"], +Cell[248753, 6574, 35177, 623, 329, "Output",ExpressionUUID->"f2a3f1f8-e326-40fd-9ef1-d1f0b35a9daa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[283967, 7202, 2477, 69, 350, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[286447, 7273, 9514, 222, 337, "Output",ExpressionUUID->"11dbaf35-52c7-4998-b091-4c5362bd7c67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[295998, 7500, 228, 4, 44, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[296229, 7506, 41539, 755, 329, "Output",ExpressionUUID->"524f2b44-f5ad-4f51-90b5-c1533c2392ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337805, 8266, 236, 6, 72, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[338044, 8274, 190, 2, 50, "Output",ExpressionUUID->"f0d07b6d-e1b8-41f9-95c4-405cd025be4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338271, 8281, 1835, 52, 367, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[340109, 8335, 631, 13, 89, "Message",ExpressionUUID->"60e39c2c-01a7-4463-8c6d-a65e79286194"], +Cell[340743, 8350, 632, 13, 89, "Message",ExpressionUUID->"2e94d43e-3b5b-46c7-901c-9cd2f4a9f791"], +Cell[341378, 8365, 631, 13, 89, "Message",ExpressionUUID->"d20cfe12-0c7e-4b50-bb2c-ff38efbce34a"], +Cell[342012, 8380, 490, 11, 64, "Message",ExpressionUUID->"0a9ef9b4-acd6-4fbb-81b9-be2e0b7c15d7"], +Cell[342505, 8393, 34091, 605, 329, "Output",ExpressionUUID->"93f2fe85-17d9-4d4d-b3cb-e9caa6f5fea3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376633, 9003, 1616, 48, 247, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[378252, 9053, 639, 14, 89, "Message",ExpressionUUID->"8300253b-3845-4578-a3f7-4d28a1ed4962"], +Cell[378894, 9069, 641, 14, 89, "Message",ExpressionUUID->"50f25361-c6d2-45ce-a2a3-469b3f452882"], +Cell[379538, 9085, 639, 14, 89, "Message",ExpressionUUID->"4c6bf618-9b1c-40f1-83f1-b5cbc0a73493"], +Cell[380180, 9101, 493, 11, 64, "Message",ExpressionUUID->"4de45c9d-5208-478f-8a17-f13e95be7e52"], +Cell[380676, 9114, 194, 3, 50, "Output",ExpressionUUID->"b303f899-6a08-4e95-9145-accaac60a194"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380907, 9122, 2270, 64, 501, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[383180, 9188, 634, 13, 89, "Message",ExpressionUUID->"59b0e596-2e16-4cde-91a0-6eea6ed32385"], +Cell[383817, 9203, 634, 13, 89, "Message",ExpressionUUID->"5c2230f3-7469-4fc6-911d-5fe81cf1044d"], +Cell[384454, 9218, 636, 13, 89, "Message",ExpressionUUID->"fb3172e4-0e6b-46d5-bcef-1f6dac08d73b"], +Cell[385093, 9233, 493, 11, 64, "Message",ExpressionUUID->"5252f4d2-0291-4d5c-8bcd-01254f91743e"], +Cell[385589, 9246, 198, 3, 50, "Output",ExpressionUUID->"a71878e9-160b-4aff-9f6d-40709e02d607"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385824, 9254, 2233, 63, 501, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[388060, 9319, 636, 13, 89, "Message",ExpressionUUID->"761e5245-dc9d-45dd-81ad-4a6ce582e356"], +Cell[388699, 9334, 633, 13, 89, "Message",ExpressionUUID->"636bd60f-d184-4f25-96e6-e1517f36e040"], +Cell[389335, 9349, 633, 13, 89, "Message",ExpressionUUID->"c017d093-de70-4441-9a02-37a5a6e4674b"], +Cell[389971, 9364, 495, 11, 64, "Message",ExpressionUUID->"592c47ad-457a-4710-af01-473610c4dda0"], +Cell[390469, 9377, 193, 3, 50, "Output",ExpressionUUID->"223784e4-ab21-4584-ab8b-f263c567b601"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390699, 9385, 2233, 63, 501, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[392935, 9450, 638, 13, 89, "Message",ExpressionUUID->"cbc0a5b1-5a81-4af9-a90e-6e69fba23a35"], +Cell[393576, 9465, 638, 13, 89, "Message",ExpressionUUID->"a04c5e1f-c0bd-416f-8d3e-8384a17583a6"], +Cell[394217, 9480, 636, 13, 89, "Message",ExpressionUUID->"09388045-8281-4be8-80ae-536dad13eaa4"], +Cell[394856, 9495, 495, 11, 64, "Message",ExpressionUUID->"25df5157-838b-45a2-9711-d598dee79bdc"], +Cell[395354, 9508, 195, 3, 50, "Output",ExpressionUUID->"5077f6b9-f7a4-4fe9-a5c5-03bbc413ee06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395586, 9516, 238, 6, 71, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[395827, 9524, 196, 3, 50, "Output",ExpressionUUID->"aaaabe8a-ce9b-40cf-8bda-71ba9e47ec4a"] +}, Open ]], +Cell[396038, 9530, 271, 6, 44, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[396334, 9540, 558, 19, 79, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[396895, 9561, 196, 3, 50, "Output",ExpressionUUID->"ac958d4f-5083-4cc1-8fcf-bc1120c249fa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397128, 9569, 170, 5, 84, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[397301, 9576, 194, 3, 50, "Output",ExpressionUUID->"ffb49bc8-359b-4fb6-afd8-756ef651d8fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397532, 9584, 181, 5, 65, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[397716, 9591, 196, 3, 50, "Output",ExpressionUUID->"f3cfef42-ea9b-405a-a4e0-9fac19b6e983"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397949, 9599, 6055, 185, 1229, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[404007, 9786, 197, 3, 50, "Output",ExpressionUUID->"9f576b2d-daf6-43ff-a466-f2a65be80e54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404241, 9794, 368, 9, 63, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[404612, 9805, 196, 3, 50, "Output",ExpressionUUID->"3ea118a5-539b-4c39-b57b-7f6ebbc4e688"] +}, Open ]], +Cell[CellGroupData[{ +Cell[404845, 9813, 6122, 187, 1292, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[410970, 10002, 196, 3, 50, "Output",ExpressionUUID->"48c639ff-9851-4624-a459-0fac5e9b4074"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411203, 10010, 368, 9, 63, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[411574, 10021, 194, 3, 50, "Output",ExpressionUUID->"18a992c2-dc34-4edf-963d-4d30769aca2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411805, 10029, 2663, 88, 558, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[414471, 10119, 196, 3, 50, "Output",ExpressionUUID->"5fb601a0-02e0-4a2b-8e8a-918e7fb33057"] +}, Open ]], +Cell[CellGroupData[{ +Cell[414704, 10127, 2603, 85, 558, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[417310, 10214, 193, 3, 50, "Output",ExpressionUUID->"2f55147e-9094-4e77-88fd-dd9a37b61bd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[417540, 10222, 3712, 118, 781, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[421255, 10342, 198, 3, 50, "Output",ExpressionUUID->"73caa789-14a9-48c6-a88a-d2bc19a8f36c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[421490, 10350, 2101, 60, 409, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[423594, 10412, 634, 13, 89, "Message",ExpressionUUID->"0f61795a-00d3-4ef1-a219-2b703c6e5ca0"], +Cell[424231, 10427, 633, 13, 89, "Message",ExpressionUUID->"a971d52d-e2b1-4a01-b960-be1d7f6bc9cf"], +Cell[424867, 10442, 636, 13, 89, "Message",ExpressionUUID->"60eb546d-0c55-47e7-bc03-8cb1d58157ac"], +Cell[425506, 10457, 495, 11, 64, "Message",ExpressionUUID->"a8649875-d13f-4ff6-aa88-54ceaefd0af6"], +Cell[426004, 10470, 192, 3, 50, "Output",ExpressionUUID->"4a2e8e59-2441-42c0-8197-5eeb648bee80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[426233, 10478, 2103, 60, 409, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[428339, 10540, 636, 13, 89, "Message",ExpressionUUID->"9e828d74-5490-40db-a8eb-d15b74a04881"], +Cell[428978, 10555, 633, 13, 89, "Message",ExpressionUUID->"9b4d6fae-987e-4cb2-ac8d-ae3e7ed0fd6d"], +Cell[429614, 10570, 634, 13, 89, "Message",ExpressionUUID->"002781ea-5fa9-4b3a-b133-c915f85d5f71"], +Cell[430251, 10585, 493, 11, 64, "Message",ExpressionUUID->"564d31a4-3f3d-44ee-bb37-a35e00b4e548"], +Cell[430747, 10598, 193, 3, 50, "Output",ExpressionUUID->"6122aea2-ea0f-4a4f-9f9a-4d30881e894e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[430977, 10606, 2053, 55, 317, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[433033, 10663, 20287, 383, 329, "Output",ExpressionUUID->"ce55cba6-f385-4759-bb93-97d6037bfdc0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453357, 11051, 2193, 62, 450, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[455553, 11115, 512, 12, 111, "Message",ExpressionUUID->"68ea828b-8fd4-480c-b9dd-4466e0ba094b"], +Cell[456068, 11129, 515, 12, 111, "Message",ExpressionUUID->"41f055ca-5297-4ad1-895b-4edcaffaf401"], +Cell[456586, 11143, 519, 12, 147, "Message",ExpressionUUID->"81de07a3-dae6-4474-917d-8ec19282b076"], +Cell[457108, 11157, 473, 11, 64, "Message",ExpressionUUID->"7ef97648-bf87-491d-a76c-9a9ff79e6d75"], +Cell[457584, 11170, 35586, 633, 329, "Output",ExpressionUUID->"32ddf9ca-be82-4b6c-9480-3b57520a9ab5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493207, 11808, 164, 4, 44, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[493374, 11814, 41968, 765, 329, "Output",ExpressionUUID->"9eec02cb-c54d-4d51-b234-855a10f4ea4b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[535379, 12584, 1616, 48, 247, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[536998, 12634, 641, 14, 89, "Message",ExpressionUUID->"0282651d-9579-4c16-9426-cff1427a9f5e"], +Cell[537642, 12650, 638, 14, 89, "Message",ExpressionUUID->"ca3e5db3-29d5-475e-9fed-5e2ae153e404"], +Cell[538283, 12666, 641, 14, 89, "Message",ExpressionUUID->"e6d921d1-9c13-4c53-9f00-d354095129ab"], +Cell[538927, 12682, 493, 11, 64, "Message",ExpressionUUID->"fd934138-dc88-434e-bafe-4c8134331afb"], +Cell[539423, 12695, 194, 3, 50, "Output",ExpressionUUID->"9d1e9dfd-31e3-4c7e-a82b-dc6297e3c0b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[539654, 12703, 2272, 64, 501, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[541929, 12769, 636, 13, 89, "Message",ExpressionUUID->"1e5a2ecd-2c37-4f2b-9160-0c4d54b1c013"], +Cell[542568, 12784, 637, 13, 89, "Message",ExpressionUUID->"4ceea64d-14dc-4e7b-a138-f95e674378a3"], +Cell[543208, 12799, 636, 13, 89, "Message",ExpressionUUID->"86950eab-1792-46a9-8a74-9db97dc91de2"], +Cell[543847, 12814, 495, 11, 64, "Message",ExpressionUUID->"be5b3594-6065-4d8d-b365-7bb488ba9ce8"], +Cell[544345, 12827, 195, 3, 50, "Output",ExpressionUUID->"886148b5-5a0e-4208-bc7b-6dcea47430f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[544577, 12835, 2235, 63, 501, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[546815, 12900, 634, 13, 89, "Message",ExpressionUUID->"f964f88e-eef2-4145-84a5-8d4bae4d873c"], +Cell[547452, 12915, 633, 13, 89, "Message",ExpressionUUID->"dadf600d-53d9-4d07-a285-1ba5f1c51832"], +Cell[548088, 12930, 634, 13, 89, "Message",ExpressionUUID->"9d90d165-e955-4fcd-a3ba-a877e306aaa5"], +Cell[548725, 12945, 493, 11, 64, "Message",ExpressionUUID->"f8f8d130-9318-42be-8441-524e46d04b55"], +Cell[549221, 12958, 195, 3, 50, "Output",ExpressionUUID->"48b8c291-e0f3-40ff-b594-f5995467f80b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549453, 12966, 2233, 63, 501, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[551689, 13031, 636, 13, 89, "Message",ExpressionUUID->"43636447-2dee-4f2f-b8e2-8ebc45f3c473"], +Cell[552328, 13046, 633, 13, 89, "Message",ExpressionUUID->"e98929ae-fd3b-4a5f-8496-11381b64c155"], +Cell[552964, 13061, 636, 13, 89, "Message",ExpressionUUID->"84e2a5d0-42e8-4786-98c9-06d60cd3e1c1"], +Cell[553603, 13076, 493, 11, 64, "Message",ExpressionUUID->"b17c2d88-68fe-413e-9936-f73c253f8584"], +Cell[554099, 13089, 192, 3, 50, "Output",ExpressionUUID->"103eba85-7302-4a9a-abcc-a33dd68c621d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[554328, 13097, 238, 6, 71, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[554569, 13105, 200, 3, 50, "Output",ExpressionUUID->"b8b815d6-1afa-4c8e-bc5f-3c844d55ba63"] +}, Open ]], +Cell[554784, 13111, 275, 6, 44, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[555084, 13121, 558, 19, 79, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[555645, 13142, 195, 3, 50, "Output",ExpressionUUID->"5bf54d30-f7c5-414b-b23c-673b4a8a6074"] +}, Open ]], +Cell[CellGroupData[{ +Cell[555877, 13150, 170, 5, 84, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[556050, 13157, 195, 3, 50, "Output",ExpressionUUID->"2ad9ab64-a6d8-4d10-9e33-50e77a401b75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556282, 13165, 181, 5, 65, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[556466, 13172, 196, 3, 50, "Output",ExpressionUUID->"85a02159-ab24-484a-9bbd-a6b9b4b282d9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556699, 13180, 6055, 185, 1229, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[562757, 13367, 199, 3, 50, "Output",ExpressionUUID->"1c545733-17c6-4b05-9d63-b3170cf2c07d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[562993, 13375, 368, 9, 63, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[563364, 13386, 196, 3, 50, "Output",ExpressionUUID->"aae8c6c8-dbe6-4dec-bfc6-9b7006637411"] +}, Open ]], +Cell[CellGroupData[{ +Cell[563597, 13394, 6122, 187, 1292, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[569722, 13583, 194, 3, 50, "Output",ExpressionUUID->"a90495a1-a26a-4fdf-80dc-0feae9b4b065"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569953, 13591, 368, 9, 63, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[570324, 13602, 192, 3, 50, "Output",ExpressionUUID->"0c445165-1d28-4263-95a1-9200e9f00f66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[570553, 13610, 2663, 88, 558, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[573219, 13700, 196, 3, 50, "Output",ExpressionUUID->"5b92dae6-afb2-4303-92de-ef2bd82d1f13"] +}, Open ]], +Cell[CellGroupData[{ +Cell[573452, 13708, 2603, 85, 558, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[576058, 13795, 193, 3, 50, "Output",ExpressionUUID->"a4bd8ef9-472b-4d85-a717-2fd75076908c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[576288, 13803, 3712, 118, 781, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[580003, 13923, 194, 3, 50, "Output",ExpressionUUID->"04e507a1-4a84-4254-af66-14b81de326dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[580234, 13931, 2101, 60, 409, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[582338, 13993, 635, 13, 89, "Message",ExpressionUUID->"c812b00b-d4fb-4437-9180-56078cd6ce65"], +Cell[582976, 14008, 635, 13, 89, "Message",ExpressionUUID->"1133b00c-498e-4192-84f0-1c5379cef0a2"], +Cell[583614, 14023, 634, 13, 89, "Message",ExpressionUUID->"500a4260-358e-4b38-a90c-a031458460c8"], +Cell[584251, 14038, 497, 11, 64, "Message",ExpressionUUID->"35df80a9-fcab-48a3-af38-400f8c8685a2"], +Cell[584751, 14051, 192, 3, 50, "Output",ExpressionUUID->"a3a8c61d-b30c-43cb-84ef-1fdc5dcdb54f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[584980, 14059, 2101, 60, 409, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[587084, 14121, 635, 13, 89, "Message",ExpressionUUID->"ceb4b6a8-fa0e-4e29-b9c3-941034d67da4"], +Cell[587722, 14136, 635, 13, 89, "Message",ExpressionUUID->"049dfdc7-320c-4c4e-bafa-5de605aea4f3"], +Cell[588360, 14151, 635, 13, 89, "Message",ExpressionUUID->"c2b2c23e-0b4c-44df-ae7d-08c9a859b9be"], +Cell[588998, 14166, 495, 11, 64, "Message",ExpressionUUID->"54f46146-5147-458e-b094-0b13a0e6c428"], +Cell[589496, 14179, 195, 3, 50, "Output",ExpressionUUID->"c1fde63f-e98b-46fc-9227-e0e3592e822c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[589728, 14187, 2051, 55, 317, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[591782, 14244, 20399, 384, 335, "Output",ExpressionUUID->"1c623964-bdfb-42b5-a48b-24ab9017830b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[612218, 14633, 2195, 62, 450, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[614416, 14697, 534, 12, 111, "Message",ExpressionUUID->"c1fadfe6-6623-4cac-947c-9393e57b5bd3"], +Cell[614953, 14711, 537, 12, 111, "Message",ExpressionUUID->"fd77dd89-c070-4905-9068-da8084040e76"], +Cell[615493, 14725, 541, 12, 147, "Message",ExpressionUUID->"298dc889-9043-48f5-a892-463e54b70a5a"], +Cell[616037, 14739, 493, 11, 64, "Message",ExpressionUUID->"8b477662-1c33-4760-9577-a79024990f33"], +Cell[616533, 14752, 34660, 615, 329, "Output",ExpressionUUID->"d609a7cd-c89e-486d-87a3-bba81456c01e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[651230, 15372, 232, 5, 44, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[651465, 15379, 41018, 747, 329, "Output",ExpressionUUID->"bc3579e6-40eb-4fb6-8d02-a6a5310e9c34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[692520, 16131, 1616, 48, 247, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[694139, 16181, 638, 14, 89, "Message",ExpressionUUID->"16c7273d-5bb4-4baa-b902-414c60e06088"], +Cell[694780, 16197, 638, 14, 89, "Message",ExpressionUUID->"9509a379-b653-46bd-a147-8ada68c60685"], +Cell[695421, 16213, 637, 14, 89, "Message",ExpressionUUID->"6704cec8-6461-4685-b033-ae673aff90ef"], +Cell[696061, 16229, 494, 11, 64, "Message",ExpressionUUID->"af804022-3a25-4eeb-8abb-12d17ae412d4"], +Cell[696558, 16242, 194, 3, 50, "Output",ExpressionUUID->"f5a68c27-39e2-481c-a096-423dbd76cb46"] +}, Open ]], +Cell[CellGroupData[{ +Cell[696789, 16250, 2272, 64, 501, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[699064, 16316, 637, 13, 89, "Message",ExpressionUUID->"b3567b4a-3b0c-4bd2-911d-382ced14f875"], +Cell[699704, 16331, 635, 13, 89, "Message",ExpressionUUID->"9df35b54-3300-43e1-881f-57768e412c0d"], +Cell[700342, 16346, 635, 13, 89, "Message",ExpressionUUID->"ed6edeed-79d4-4fc9-af4e-3deac33beb71"], +Cell[700980, 16361, 494, 11, 64, "Message",ExpressionUUID->"343ca153-83a1-40c7-859b-678e3a3289bb"], +Cell[701477, 16374, 197, 3, 50, "Output",ExpressionUUID->"ac321bbd-06e6-4d54-a0cf-f6646d76612a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[701711, 16382, 2233, 63, 501, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[703947, 16447, 635, 13, 89, "Message",ExpressionUUID->"706f90ef-fe33-4378-8320-302e52425f6b"], +Cell[704585, 16462, 635, 13, 89, "Message",ExpressionUUID->"12cbc80a-e003-4838-9d8b-5e65342e1bd4"], +Cell[705223, 16477, 635, 13, 89, "Message",ExpressionUUID->"07cbe7ce-bb8a-4a04-8365-cdade94456f1"], +Cell[705861, 16492, 495, 11, 64, "Message",ExpressionUUID->"79d77691-ff50-4453-af58-0f00dd912a8e"], +Cell[706359, 16505, 195, 3, 50, "Output",ExpressionUUID->"a75afdd9-a92a-4f75-b84a-402d54e113ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[706591, 16513, 2231, 63, 501, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[708825, 16578, 635, 13, 89, "Message",ExpressionUUID->"d18b9671-05f3-4f99-a06b-3eb19a529bda"], +Cell[709463, 16593, 633, 13, 89, "Message",ExpressionUUID->"a2da594d-be48-4e67-a556-a8cf41c305b7"], +Cell[710099, 16608, 633, 13, 89, "Message",ExpressionUUID->"8a39f3ec-3093-4669-8b61-83ebf6452151"], +Cell[710735, 16623, 493, 11, 64, "Message",ExpressionUUID->"89c9d361-78c6-44c0-a81f-0972d8cf2d5a"], +Cell[711231, 16636, 195, 3, 50, "Output",ExpressionUUID->"88228ca3-a98f-4198-a969-7038690b33ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[711463, 16644, 234, 6, 71, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[711700, 16652, 199, 3, 50, "Output",ExpressionUUID->"07b9271a-10ce-4d4f-8b74-fc21a3ea47cd"] +}, Open ]], +Cell[711914, 16658, 143, 3, 44, "Input",ExpressionUUID->"7a65bf2f-59e6-4f80-a990-7a2c887106f6"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw2.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw2.nb index 1f902d9..e312754 100644 --- a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw2.nb @@ -3,42 +3,4784 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 243505, 7911] -NotebookOptionsPosition[ 219988, 7552] -NotebookOutlinePosition[ 220412, 7569] -CellTagsIndexPosition[ 220369, 7566] +NotebookDataLength[ 743894, 17252] +NotebookOptionsPosition[ 703283, 16603] +NotebookOutlinePosition[ 703747, 16622] +CellTagsIndexPosition[ 703704, 16619] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ -5e950c758893"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991850549355442*^9, - 3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\ -e7a6896afd10"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "4.2"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993804130253289*^9, 3.9938041708483353`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"c970a514-c264-4110-a0ef-043e8aaa2b1d"], + +Cell[BoxData["4.2`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99380408955241*^9, {3.993804138192917*^9, + 3.993804174131279*^9}, 3.993848807080508*^9, 3.993850019326097*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"e6cae810-f7d0-4a01-9a81-4e4e773d713b"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.99384955061726*^9, 3.993849552454216*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"3aa73156-bae5-4f58-b255-293cf17f76ff"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ -5e27a96171a9"], + 3.9913196497381973`*^9, 3.993804089814312*^9, {3.993804138273077*^9, + 3.993804174168432*^9}, 3.993848807152666*^9, 3.9938500194137774`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"a63b3616-65b1-45e7-9ddc-5a27d523fbe7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "154"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993803793560568*^9, 3.9938037958215322`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"82fa63e9-3b7d-4d4b-a300-dcb22c26d159"], + +Cell[BoxData["154"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993804089831574*^9, {3.993804138291234*^9, + 3.993804174184713*^9}, 3.993848807170314*^9, 3.993850019432115*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"8408f13a-4937-48f2-9c04-9bf5eb3db3bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"434ae237-5f95-429f-a927-a018b4b6cec0"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993804089848836*^9, {3.993804138308714*^9, + 3.9938041741991873`*^9}, 3.993848807187145*^9, 3.99385001944912*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"7ed9d7a7-a4b4-48a8-aa12-19fe67729669"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"add06471-a1fc-446c-a29d-8e3602c68963"], + +Cell[BoxData["0.5457500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993804089866067*^9, {3.993804138325652*^9, + 3.993804174213254*^9}, 3.993848807191246*^9, 3.993850019464633*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"e0c11148-4e28-4100-b70a-644efe9ec004"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"fb396560-5e46-46fb-81ea-75151a4f3cb9"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9938040898834*^9, {3.993804138342436*^9, + 3.993804174228182*^9}, 3.9938488072167788`*^9, 3.9938500194808407`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"b65ce5f6-7680-4cee-a84a-513db970950c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"5a92e802-bd3b-48ce-81f0-db562afc05c0"], + +Cell[BoxData["6.21772575671982`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.99380408990067*^9, {3.9938041383460903`*^9, + 3.9938041742424393`*^9}, 3.993848807233614*^9, 3.993850019496984*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"48d6d062-5d70-4d82-8d77-6687336a914c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"40505347-518b-4f43-a35a-4a47ecb1c57c"], + +Cell[BoxData["5.12024575643284`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993804089917811*^9, {3.993804138377798*^9, + 3.993804174256633*^9}, 3.993848807250407*^9, 3.99385001950985*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"adf2ade8-256f-47e0-b8e7-bdd914e3f55f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "1.0205"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993803860237813*^9, 3.993803866623828*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"a4b2ecd0-6027-4a0c-8938-d37ba36c6939"], + +Cell[BoxData["1.0205`"], "Output", + CellChangeTimes->{ + 3.993804089951392*^9, {3.993804138395643*^9, 3.993804174270754*^9}, + 3.993848807267117*^9, 3.993850019534524*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"5e58e60f-2fcc-43af-bfad-51d2d37fd2cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4896"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.99380387128193*^9, 3.9938038777202883`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"7e2ebc7e-82ad-4233-80bd-925be93b1650"], + +Cell[BoxData["0.4896`"], "Output", + CellChangeTimes->{ + 3.9938040899683237`*^9, {3.993804138413007*^9, 3.993804174284833*^9}, + 3.993848807283663*^9, 3.993850019551003*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"2497cef0-786e-481e-9bde-329ebdf6b3c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"8700d390-c3df-46ef-8e86-2ae77f0c3028"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993804090003015*^9, {3.993804138429922*^9, + 3.993804174299185*^9}, 3.993848807299727*^9, 3.993850019566947*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"1c8410cc-7892-417a-8862-48bc81837651"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"0313e860-89b9-49da-9797-b3ae279e8660"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993804090019147*^9, {3.993804138446356*^9, + 3.993804174313979*^9}, 3.993848807315777*^9, 3.993850019582477*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"d983b690-2265-4435-8fd2-14b6dbfe7121"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"9062c959-237b-4b3e-8ad0-462f4e001716"], + +Cell[BoxData["2.622074662477555`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.993804090035692*^9, {3.9938041384628077`*^9, + 3.9938041743173933`*^9}, 3.9938488073318787`*^9, 3.993850019599201*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"3cf3a52d-5e71-4d10-8aa1-8d9a321b0278"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"d7a62204-9c95-4014-9409-7a29789ba465"], + +Cell[BoxData["1.560486547241578`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993804090054099*^9, {3.993804138479048*^9, + 3.9938041743344707`*^9}, 3.99384880734788*^9, 3.993850019615662*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"868ad187-6d24-4d5d-9561-d5de63cd5759"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"bf2f1a7a-6cb7-45e6-90f8-e30657e2ab97"], + +Cell[BoxData["0.2903701468853932`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.993804090071563*^9, {3.993804138496574*^9, + 3.99380417434737*^9}, 3.993848807363336*^9, 3.993850019633049*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"30e6204f-4182-4f79-947e-93d0ec74b3dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"cc657ac5-d7cf-46a9-b8a4-18e228ab1c2f"], + +Cell[BoxData[ + RowBox[{"-", "0.06800962519581188`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9938040900903397`*^9, {3.993804138513081*^9, + 3.993804174360331*^9}, 3.9938488073821497`*^9, 3.9938500196506643`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"9d21523e-f1f5-4c90-b5ac-97835af6973e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"03795c7a-1f49-48c9-b784-5fc7b0754f87"], + +Cell[BoxData[ + RowBox[{"-", "0.40916894338639737`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9938040901078167`*^9, {3.993804138530313*^9, + 3.993804174375409*^9}, 3.9938488073997*^9, 3.9938500196700077`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"e989719b-c0fb-459e-84d9-cbb884d01549"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"f7c3374b-126d-4d93-88ab-21116462eff7"], + +Cell[BoxData["0.6026750051187908`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9938040901250677`*^9, {3.993804138546773*^9, + 3.993804174388777*^9}, 3.99384880741957*^9, 3.993850019721037*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"66e4f79d-9fdf-410f-bcbf-a0a566c5c3c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"8e05df19-cae6-421f-b14a-94fbf678f660"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993804090141823*^9, {3.9938041385623407`*^9, + 3.993804174402438*^9}, 3.993848807437189*^9, 3.9938500197381363`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"ca3ee269-7880-4103-9dda-df82bf94569e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"09aae351-7f1c-4da8-b454-3512d716b95a"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.993804090158958*^9, {3.993804138578629*^9, + 3.99380417441667*^9}, 3.9938488074549294`*^9, 3.993850019757072*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"f947f7d5-f7fd-4986-b5b6-1dea2aee288d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"157691d4-0f5d-41e0-9140-a7a99a80e6ba"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993804090177505*^9, {3.993804138595006*^9, + 3.993804174430525*^9}, 3.9938488074728813`*^9, 3.993850019774757*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"b37e8744-0209-4b28-aa47-03111d1d4e24"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"2069e1c8-d93d-41f2-a82b-e492a8ee03a1"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993804090194539*^9, {3.993804138611753*^9, + 3.993804174445389*^9}, 3.993848807490819*^9, 3.993850019797538*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"84bb83b6-fe99-4ad8-bd54-a8c9d9f2bf39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"0626a310-0f90-4912-bc3a-7822390fea05"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9938040902126007`*^9, {3.99380413862824*^9, + 3.9938041744613132`*^9}, 3.993848807508507*^9, 3.993850019826025*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"b9a50ae9-1c7e-4d8a-a394-f630617dd1bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", " ", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.993803911062066*^9, 3.993803911474206*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"f0af1773-93b4-45b5-bdd9-66460c01a81a"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993804090230994*^9, {3.9938041386443443`*^9, + 3.993804174475325*^9}, 3.993848807527059*^9, 3.993850019844166*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"b12f267c-6bf3-454a-9688-bdbb543502d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993849563960414*^9, 3.99384956406236*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"de1530f9-575e-443e-bc18-17397dd34dcf"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993804090250367*^9, {3.993804138660377*^9, + 3.993804174489229*^9}, 3.9938488075448914`*^9, 3.993850019866006*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"1ebef2b1-bed3-4897-8d51-554de9b6c29f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"0d248353-e792-4323-8a17-199026105302"], + +Cell[BoxData["86"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993804090267005*^9, {3.9938041386777277`*^9, + 3.993804174504216*^9}, 3.9938488075630293`*^9, 3.9938500198850946`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"70954b8d-1a45-49d3-97e7-7b7419b8f21b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"a170b3ae-76b4-4274-b3de-0ffd8c598fa4"], + +Cell[BoxData["0.11093023255813952`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9938040902837143`*^9, {3.9938041386945467`*^9, + 3.9938041745182133`*^9}, 3.9938488075813007`*^9, 3.993850019903901*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"280e0893-8a5b-42bc-9b56-a99f9d872fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"6e515b0a-1a45-4569-b799-d21a93d7d008"], + +Cell[BoxData[ + RowBox[{"-", "2.5630897009966778`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993804090300918*^9, {3.993804138711464*^9, + 3.99380417453297*^9}, 3.993848807599778*^9, 3.993850019920491*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"711667f0-e4ce-4657-9e3e-aaba48a24a14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"4cd30f86-f280-40d1-bc35-6518e7c12fb6"], + +Cell[BoxData["20.50874671482353`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993804090321062*^9, {3.9938041387284813`*^9, + 3.993804174547089*^9}, 3.993848807619718*^9, 3.99385002004818*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"fa8722d8-e606-4833-86a7-694d9e7f4c56"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"7420ddf0-c2a5-404d-972d-22dffaeb4a08"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9938040903372*^9, {3.9938041387455187`*^9, + 3.993804174560532*^9}, 3.9938488076417303`*^9, 3.993850022895759*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"ff0ee179-a4ea-47e0-959e-19a10cd179a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993803941161499*^9, 3.993803942967257*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"5c43ff43-e9f2-49f4-869d-8619ba62f690"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804090368265*^9, {3.993804138763773*^9, 3.993804174574923*^9}, + 3.993848807660918*^9, 3.993850023274989*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"b36ce9e1-08f7-49e1-a81f-fbe85c636d0a"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918505524437046`*^9, - 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ -8c5c5be10fe8"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"8035fed7-fff3-4c2f-802a-080a7f09baca"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.845"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993803949861635*^9, 3.993803952475243*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"b25d6bb2-343d-4ffb-af0f-6e6daca02b07"], + +Cell[BoxData["0.845`"], "Output", + CellChangeTimes->{ + 3.993804090400498*^9, {3.9938041388176193`*^9, 3.9938041746000147`*^9}, + 3.993848807703788*^9, 3.993850023304455*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"4b4cc827-5c91-4798-9e08-85edfffac7c0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"b965b8e2-0c23-4d91-a768-0b59d51c9921"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.34"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993803955445758*^9, 3.9938039566555567`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"0d836c65-1caf-42f0-89a9-b74458b358d9"], + +Cell[BoxData["2.34`"], "Output", + CellChangeTimes->{ + 3.993804090432963*^9, {3.993804138872542*^9, 3.9938041746232433`*^9}, + 3.993848807741784*^9, 3.993850023329351*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"625f81df-ea85-4f00-bf04-86f476a6e54b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"5208a081-efd4-4225-9399-ba35fc8ac8a6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.235"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993803960293667*^9, 3.9938039628886843`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"b1a1fc4c-6c96-4aa3-b2a8-e6cfc976228a"], + +Cell[BoxData["1.235`"], "Output", + CellChangeTimes->{ + 3.99380409046647*^9, {3.9938041389300737`*^9, 3.993804174645626*^9}, + 3.993848807767399*^9, 3.993850023350387*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"90ad223f-bca4-4f10-b0a9-27219361f852"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"234ae4a9-f79c-4749-bcc5-cb4612f3391f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "2.157"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993803966354662*^9, + 3.993803967807385*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"42672907-f309-4577-9d98-84bac7f327a4"], + +Cell[BoxData["2.157`"], "Output", + CellChangeTimes->{ + 3.993804090500058*^9, {3.993804138981492*^9, 3.993804174669353*^9}, + 3.993848807792426*^9, 3.993850023370213*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"66ede755-45b5-49ab-8122-ab8f05ae8a1b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"227202ee-b311-4677-af80-52177eaf1640"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.647"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993803975246106*^9, + 3.993803976677384*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"a0041b19-1241-4879-8b63-95d36ef018cd"], + +Cell[BoxData["0.647`"], "Output", + CellChangeTimes->{ + 3.993804090532151*^9, {3.993804139031171*^9, 3.993804174692378*^9}, + 3.9938488078179283`*^9, 3.9938500233909903`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"4e9ecdd5-7af2-4bfb-ac62-748d93437473"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"42017933-8f58-4c7e-8b58-5f870ac79c50"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.76"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99380398019634*^9, + 3.9938039813095837`*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"6687b50f-899c-42ac-b29d-29c330a11bc9"], + +Cell[BoxData["1.76`"], "Output", + CellChangeTimes->{ + 3.993804090566051*^9, {3.993804139085739*^9, 3.9938041747149076`*^9}, + 3.993848807844983*^9, 3.993850023412567*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"3147ad28-24e2-48a3-a440-47172bdac6c1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"ef95eb08-f131-4f51-aa9c-5cb2fb28e13a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.075"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993803983729498*^9, 3.993803986997629*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"353c56a8-48a0-4cfd-b1ab-33495941b3c3"], + +Cell[BoxData["1.075`"], "Output", + CellChangeTimes->{ + 3.993804090634049*^9, {3.993804139137789*^9, 3.99380417473573*^9}, + 3.993848807872305*^9, 3.9938500234363422`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"8ed8c580-074c-4d00-a7cc-b226f9118568"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"52933fb9-e8e4-4d94-b73d-5656b4a1caa5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"b307bfe4-6578-48c8-8bed-576ace1c952f"], + +Cell[BoxData["0.01224942383714716`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993804090716114*^9, {3.993804139208848*^9, + 3.993804174782381*^9}, 3.9938488102384644`*^9, 3.9938500235672493`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"3611dd77-3f00-4178-ad57-8762972750b2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"fb6802e5-6168-41d0-bb67-1d1676ce6e16"], + +Cell[BoxData["0.5889492852231504`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9938040907433662`*^9, {3.9938041392562933`*^9, + 3.99380417480917*^9}, 3.9938488104573317`*^9, 3.993850023619053*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"e972e05a-4823-4d29-86ae-56a6401917c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"333d083a-fb74-4795-86cf-01753834658e"], + +Cell[BoxData[ + RowBox[{"-", "12.704649244928842`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993804090767948*^9, {3.993804139281644*^9, + 3.99380417483276*^9}, 3.993848810481243*^9, 3.993850023678389*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"6450afa8-a5d9-49b6-b2f1-53a8e38e3f22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"55822fbc-bf86-433c-9252-c992ab2637bb"], + +Cell[BoxData[ + RowBox[{"-", "15.223385141555047`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993804090797073*^9, {3.993804139310915*^9, + 3.993804174861484*^9}, 3.9938488105114737`*^9, 3.993850023737949*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"4a086f54-b4ba-45c7-8592-a3b1c50d824e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"077f1073-fca8-4399-b4db-023167dbe0fc"], + +Cell[BoxData[ + RowBox[{"-", "39.03111013094529`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993804090827354*^9, {3.9938041393422422`*^9, + 3.9938041748908043`*^9}, 3.9938488105468807`*^9, 3.993850023803563*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"a0cc4172-a721-4a8e-9e6a-7ba9d3f16e39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"1b89d108-fbfa-4121-bf5b-4936a08491fd"], + +Cell[BoxData[ + RowBox[{"-", "94.34556705329022`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993804090863044*^9, {3.993804139389662*^9, + 3.993804174924636*^9}, 3.993848810587708*^9, 3.993850023892539*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"c2947a86-e5bf-4f02-9240-3a46f8b28e4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"42e9dff9-1d3a-480e-8a91-ecc651e77a4c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993804090879141*^9, {3.9938041394058332`*^9, + 3.993804174941469*^9}, 3.99384881061217*^9, 3.993850023908764*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"e0159b45-915a-4ba0-8d1e-05d4faab6f07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"f0c06393-ba85-410f-8197-b253ff4aaa21"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993804090895958*^9, {3.9938041394218063`*^9, + 3.993804174954442*^9}, 3.993848810635922*^9, 3.993850023982109*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"23789401-f29e-467b-8f69-d7730761f768"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"a3fcaca2-a214-4e63-adb9-2f9d5b8bb6fb"], + +Cell[BoxData["40.9342324933027`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993804090912829*^9, {3.99380413943988*^9, + 3.9938041749678583`*^9}, 3.993848810656166*^9, 3.993850023998292*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"104432d5-cd71-4c4f-a1a1-b10001da8fa5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"68c30f15-677d-482b-b549-3ff3886cd692"], + +Cell[BoxData[ + RowBox[{"-", "42.16041879106114`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993804090929619*^9, {3.993804139457325*^9, + 3.9938041749824657`*^9}, 3.9938488106762447`*^9, 3.9938500240129232`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"4429f17f-c3bc-4115-b4d5-440ef4cf2a6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"2048c3f4-4eb8-4c06-a38f-01b1fed86922"], + +Cell[BoxData["57.85215050076255`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993804090946455*^9, {3.9938041394733677`*^9, + 3.993804174995661*^9}, 3.99384881069589*^9, 3.9938500240305862`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"6bbd03c8-2bae-45ba-a54e-2c18a3e0de6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"b7933d31-4988-45a2-921d-3d45c695ed58"], + +Cell[BoxData["0.2903701468853932`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993804090963214*^9, {3.99380413948948*^9, + 3.993804175008822*^9}, 3.99384881071603*^9, 3.993850024045403*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"b366e839-49bc-43c4-9e93-a686f0d196be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"cec47719-b175-4417-8145-d785123a5bf0"], + +Cell[BoxData[ + RowBox[{"-", "0.06800962519581188`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9938040909800377`*^9, {3.993804139506342*^9, + 3.993804175022502*^9}, 3.993848810736079*^9, 3.99385002406032*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"d3b4f38b-05d6-49cc-9dad-daffc8e421df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"f2304888-789d-4fa0-a4be-e66f79233489"], + +Cell[BoxData[ + RowBox[{"-", "0.40916894338639737`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9938040909970512`*^9, {3.993804139523937*^9, + 3.99380417503624*^9}, 3.993848810755718*^9, 3.9938500240759163`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"2d633fe9-d929-45f8-9507-b0669cb96f22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"ec132e20-9550-4789-91a8-085005edc93a"], + +Cell[BoxData["0.6026750051187908`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9938040910160313`*^9, {3.993804139541357*^9, + 3.9938041750504208`*^9}, 3.993848810776074*^9, 3.9938500240899076`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"52f516c9-df98-4abd-bb56-7c6699826319"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"83397ab3-3cf7-4a88-aae8-b8b5c3611de1"], + +Cell[BoxData["2.622074662477555`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9938040910322237`*^9, {3.993804139560528*^9, + 3.99380417506885*^9}, 3.9938488107953978`*^9, 3.993850024104115*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"3cb17c5f-f5d8-4089-9d67-4233fea3750b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"ba0fe4c1-9ec6-4d9f-8b0d-d0a5a7e6e2e1"], + +Cell[BoxData["1.560486547241578`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9938040910476837`*^9, {3.99380413957936*^9, + 3.993804175086857*^9}, 3.993848810814839*^9, 3.993850024119728*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"97779b39-cff2-4978-b569-9598e956c874"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"e379d23c-f567-4938-84d6-25a04feef797"], + +Cell[BoxData[ + RowBox[{"-", "23.985225206889808`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9938040910636168`*^9, {3.993804139598442*^9, + 3.993804175099869*^9}, 3.99384881083464*^9, 3.993850024138957*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"11508937-0f6b-4cd2-97a0-8131286be825"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"dc28f312-1556-4ae4-a1ce-6bad090e6c84"], + +Cell[BoxData[ + RowBox[{"-", "6.082813498068469`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993804091079459*^9, {3.99380413961532*^9, + 3.993804175113451*^9}, 3.993848810854089*^9, 3.993850024158601*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"c5afb22b-f6f3-4916-bc23-db94c332d463"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"cc315b3f-2d84-4cdb-b246-c3d121afba33"], + +Cell[BoxData["16.949007286412893`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993804091095646*^9, {3.9938041396344*^9, + 3.99380417512825*^9}, 3.9938488108741703`*^9, 3.9938500241787157`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"00b810cd-d57e-4314-989b-e437f35b706b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"aa60a75e-1139-465d-85ac-9ad6749126d8"], + +Cell[BoxData[ + RowBox[{"-", "42.16041879106114`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9938040911120157`*^9, {3.993804139651782*^9, + 3.9938041751438704`*^9}, 3.993848810893611*^9, 3.993850024191526*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"4ca926ba-d4ba-4dbf-a676-a22543e8e465"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"5903c9f7-5795-4bd1-8ca0-eadc4ab032cb"], + +Cell[BoxData["51.76933700269408`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993804091132085*^9, {3.993804139668528*^9, + 3.993804175187551*^9}, 3.993848810913933*^9, 3.993850024211323*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"b14d05b5-6917-41ae-bdcf-507db27701b4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"985d0d12-d718-4755-a421-bc7178ea0c27"], + +Cell[BoxData["4.836891405194621`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993804091148937*^9, {3.9938041396855717`*^9, + 3.993804175204822*^9}, 3.993848810933175*^9, 3.993850024227508*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"c843f2d1-ef65-4ef6-9b2c-0162bb840003"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], + ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"79390877-6350-4f64-8cb1-578407df1c71"], + +Cell[BoxData["252.66846904104736`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993804091165813*^9, {3.993804139705405*^9, + 3.993804175222055*^9}, 3.9938488109528217`*^9, 3.9938500242447147`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"89b1bc5f-120e-42be-8f21-b313e3aa5ad3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.50281"}]], "Input", + CellChangeTimes->{3.9918505481678543`*^9, 3.993849806078323*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], + +Cell[BoxData["0.50281`"], "Output", + CellChangeTimes->{3.993850024260715*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"d2c5be96-a707-472f-9c7b-3deeb0a91c3f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991850549355442*^9, 3.991850549360302*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.16898"}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9, {3.993849808706373*^9, 3.9938498217562428`*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], + +Cell[BoxData["0.16898`"], "Output", + CellChangeTimes->{3.993850024282688*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"ce226dee-70d6-44f8-8903-5d432a73ac98"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, 3.991850552447544*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ @@ -83,9 +4825,12 @@ Cell[BoxData[ RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], - ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + ")"}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[BoxData["2.401224501209607`*^-53"], "Output", + CellChangeTimes->{3.99385002430623*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"319f5fd9-7517-4b83-aa94-d2fc5fc2996a"] }, Open ]], Cell[CellGroupData[{ @@ -119,11 +4864,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ -a9b137c5e3b6"], + CellChangeTimes->{3.9915577064670105`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[BoxData["1.1871112023794209`*^-54"], "Output", + CellChangeTimes->{3.993850024322159*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"5f7ed3d1-7ba7-48e0-915a-ac93fcd70fb2"] }, Open ]], Cell[CellGroupData[{ @@ -156,11 +4902,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557709328657*^9, - 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ -8010347227f7"], + CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[BoxData["8.090354458175718`*^-55"], "Output", + CellChangeTimes->{3.993850024334468*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"4262fa39-fbc7-4daa-a8e3-317be279eae6"] }, Open ]], Cell[CellGroupData[{ @@ -182,10 +4929,12 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ih", "*", "Ir"}], - RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ -e247-a132-b43b2736212a"], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[BoxData["11.35840940406953`"], "Output", + CellChangeTimes->{3.993850024352298*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"879e3eb3-9fbc-40d7-a081-969191127146"] }, Open ]], Cell[CellGroupData[{ @@ -210,10 +4959,12 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", - RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ -ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[BoxData["31.37722694221147`"], "Output", + CellChangeTimes->{3.993850024370061*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"64f684c2-6f8f-47f3-8b30-7189d2c4ac49"] }, Open ]], Cell[CellGroupData[{ @@ -221,10 +4972,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ -88a4-7c75445a4f32"], + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[BoxData["0.6525659502216096`"], "Output", + CellChangeTimes->{3.993850024388048*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"e6214e7e-5586-48be-88f9-f4e7e323fec8"] }, Open ]], Cell[CellGroupData[{ @@ -232,10 +4985,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ - FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ -a9f8-bc957ede9a68"], + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[BoxData["2.8377115315502093`"], "Output", + CellChangeTimes->{3.9938500244059067`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"fb464bfe-bbb6-4faa-8549-436ae460fb6d"] }, Open ]], Cell[CellGroupData[{ @@ -243,10 +4998,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ - RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ -eb8f-4944-8d03-7bcd77a7b4b4"], + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[BoxData["89.0395187219814`"], "Output", + CellChangeTimes->{3.993850024419256*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"dc6cc8e6-b299-49f5-a87a-dcceaa794e1b"] }, Open ]], Cell[CellGroupData[{ @@ -254,10 +5011,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ -08dc-e64f-8823-2a55ad6b8ca8"], + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[BoxData["7.412111225772699`"], "Output", + CellChangeTimes->{3.9938500244330597`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"199b3c41-8fba-4085-83dd-50c35e6544e4"] }, Open ]], Cell[CellGroupData[{ @@ -445,10 +5204,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ -bf8f-1350d0b8a0bb"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[BoxData["0.012299833795839881`"], "Output", + CellChangeTimes->{3.9938500244505367`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"57e101a0-d5ce-4a6f-a690-d9add671a731"] }, Open ]], Cell[CellGroupData[{ @@ -460,18 +5221,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"65edd566-\ -4493-2440-9c51-9fca28ce324b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], - -Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[BoxData["7.990893069841205`"], "Output", + CellChangeTimes->{3.9938500246650343`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"9c6d19e5-ac39-4f2d-9500-90a0e86e6ac4"] }, Open ]], Cell[CellGroupData[{ @@ -661,10 +5416,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ -afec-31463f4946cd"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[BoxData["0.12318341059317867`"], "Output", + CellChangeTimes->{3.993850024677847*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"a3121a1d-55bd-4dda-bb10-b245be1c475c"] }, Open ]], Cell[CellGroupData[{ @@ -676,18 +5433,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"56b1717f-\ -bc75-4047-98f0-7a0dede3f8a9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], - -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[BoxData["2.5250432921279167`"], "Output", + CellChangeTimes->{3.993850024769689*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"3fcc08e8-1d11-495d-8cbd-d163e0203cb8"] }, Open ]], Cell[CellGroupData[{ @@ -778,10 +5529,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ -f74418e31aeb"], + ")"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[BoxData["0.08903677593802349`"], "Output", + CellChangeTimes->{3.99385002478491*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"9fd86425-b123-439c-ab1b-f621b15289fe"] }, Open ]], Cell[CellGroupData[{ @@ -869,10 +5622,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ -91d5391478d5"], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[BoxData["0.9109632240619764`"], "Output", + CellChangeTimes->{3.993850024798586*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"edc0746b-cd18-40e8-87ac-43dc937b40b6"] }, Open ]], Cell[CellGroupData[{ @@ -993,16 +5748,18 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ -ef4e-9454-9d4e027f5fa2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +Cell[BoxData["0.08110922846858569`"], "Output", + CellChangeTimes->{3.993850024813485*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"7931b3c1-6630-44ea-92d7-06f2aedd0a04"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ -2048-8697-fe84d79611fa"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ @@ -1016,30 +5773,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1063,27 +5823,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\ -3d78ebb0f21b"], + CellChangeTimes->{3.9918505674491863`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8039957833974813`*^-241\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 1, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938500248497458`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"73551088-43b1-405f-88d6-1e948aa77a7b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"42c1a263-2456-664a-bb33-c5fe841cb412"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4980853698135751`*^-248\\\", \ +RowBox[{\\\"1067739468952301225452814\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"31\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8310538240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 2, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99385002491534*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"708fd42a-d728-4c63-ab64-8ce2bda90938"], -Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2440493464030392`*^-255\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 3, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993850024922462*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"6adce30c-ee97-4e12-8d8a-854dcc01314f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 4, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938500249302607`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"a618b3d5-bb69-4c7c-9823-8697dffd0676"], + +Cell[BoxData["7.9908930698412055`"], "Output", + CellChangeTimes->{3.9938500268676*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"7d3bce5b-9772-4ef3-89d8-d68d98eafdfb"] }, Open ]], Cell[CellGroupData[{ @@ -1098,30 +5904,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1145,26 +5954,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], + CellChangeTimes->{3.99185057022003*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"be4d7bfb-c18e-564a-93ce-3f42607886e7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8039957833974813`*^-241\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 5, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993850027006815*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"2c875bfe-090c-49f0-a1fc-c2ae9291c628"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4980853698135751`*^-248\\\", \ +RowBox[{\\\"1067739468952301225452814\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"31\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8310538240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 6, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993850027015315*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"536bf514-041a-42e5-992d-fbd30722ab8a"], -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2440493464030392`*^-255\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 7, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99385002702402*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"ff7d54d4-7c00-47e5-bee6-50081e507969"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 8, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993850027031054*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"086fa721-8144-4cf2-b736-2a797e22d300"], + +Cell[BoxData["2.525043292127918`"], "Output", + CellChangeTimes->{3.993850028946694*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"3b5780e5-c04a-4dd3-95b8-ab016de54260"] }, Open ]], Cell[CellGroupData[{ @@ -1174,461 +6030,434 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\ -12d8b19f0936"], + CellChangeTimes->{3.9918505747312756`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d3cb6fbc-3803-0541-80d1-8cab47341c44"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d8687e0f-2f42-0543-a749-78a1ff3c9572"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -2.67879 2.97603 [ -[.15608 .28474 -6 -9 ] -[.15608 .28474 6 0 ] -[.28836 .28474 -6 -9 ] -[.28836 .28474 6 0 ] -[.42063 .28474 -6 -9 ] -[.42063 .28474 6 0 ] -[.55291 .28474 -9 -9 ] -[.55291 .28474 9 0 ] -[.68519 .28474 -9 -9 ] -[.68519 .28474 9 0 ] -[.81746 .28474 -9 -9 ] -[.81746 .28474 9 0 ] -[.94974 .28474 -9 -9 ] -[.94974 .28474 9 0 ] -[.01131 .14844 -24 -4.5 ] -[.01131 .14844 0 4.5 ] -[.01131 .44604 -24 -4.5 ] -[.01131 .44604 0 4.5 ] -[.01131 .59484 -18 -4.5 ] -[.01131 .59484 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .29724 m -.15608 .30349 L -s -[(25)] .15608 .28474 0 1 Mshowa -.28836 .29724 m -.28836 .30349 L -s -[(50)] .28836 .28474 0 1 Mshowa -.42063 .29724 m -.42063 .30349 L -s -[(75)] .42063 .28474 0 1 Mshowa -.55291 .29724 m -.55291 .30349 L -s -[(100)] .55291 .28474 0 1 Mshowa -.68519 .29724 m -.68519 .30349 L -s -[(125)] .68519 .28474 0 1 Mshowa -.81746 .29724 m -.81746 .30349 L -s -[(150)] .81746 .28474 0 1 Mshowa -.94974 .29724 m -.94974 .30349 L -s -[(175)] .94974 .28474 0 1 Mshowa -.125 Mabswid -.05026 .29724 m -.05026 .30099 L -s -.07672 .29724 m -.07672 .30099 L -s -.10317 .29724 m -.10317 .30099 L -s -.12963 .29724 m -.12963 .30099 L -s -.18254 .29724 m -.18254 .30099 L -s -.20899 .29724 m -.20899 .30099 L -s -.23545 .29724 m -.23545 .30099 L -s -.2619 .29724 m -.2619 .30099 L -s -.31481 .29724 m -.31481 .30099 L -s -.34127 .29724 m -.34127 .30099 L -s -.36772 .29724 m -.36772 .30099 L -s -.39418 .29724 m -.39418 .30099 L -s -.44709 .29724 m -.44709 .30099 L -s -.47354 .29724 m -.47354 .30099 L -s -.5 .29724 m -.5 .30099 L -s -.52646 .29724 m -.52646 .30099 L -s -.57937 .29724 m -.57937 .30099 L -s -.60582 .29724 m -.60582 .30099 L -s -.63228 .29724 m -.63228 .30099 L -s -.65873 .29724 m -.65873 .30099 L -s -.71164 .29724 m -.71164 .30099 L -s -.7381 .29724 m -.7381 .30099 L -s -.76455 .29724 m -.76455 .30099 L -s -.79101 .29724 m -.79101 .30099 L -s -.84392 .29724 m -.84392 .30099 L -s -.87037 .29724 m -.87037 .30099 L -s -.89683 .29724 m -.89683 .30099 L -s -.92328 .29724 m -.92328 .30099 L -s -.97619 .29724 m -.97619 .30099 L -s -.25 Mabswid -0 .29724 m -1 .29724 L -s -.02381 .14844 m -.03006 .14844 L -s -[(0.95)] .01131 .14844 1 0 Mshowa -.02381 .44604 m -.03006 .44604 L -s -[(1.05)] .01131 .44604 1 0 Mshowa -.02381 .59484 m -.03006 .59484 L -s -[(1.1)] .01131 .59484 1 0 Mshowa -.125 Mabswid -.02381 .02939 m -.02756 .02939 L -s -.02381 .05915 m -.02756 .05915 L -s -.02381 .08892 m -.02756 .08892 L -s -.02381 .11868 m -.02756 .11868 L -s -.02381 .1782 m -.02756 .1782 L -s -.02381 .20796 m -.02756 .20796 L -s -.02381 .23772 m -.02756 .23772 L -s -.02381 .26748 m -.02756 .26748 L -s -.02381 .327 m -.02756 .327 L -s -.02381 .35676 m -.02756 .35676 L -s -.02381 .38652 m -.02756 .38652 L -s -.02381 .41628 m -.02756 .41628 L -s -.02381 .4758 m -.02756 .4758 L -s -.02381 .50556 m -.02756 .50556 L -s -.02381 .53532 m -.02756 .53532 L -s -.02381 .56508 m -.02756 .56508 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.02499 .01472 L -.02605 .01472 L -.02729 .01473 L -.02846 .01474 L -.03053 .01478 L -.03279 .01482 L -.03527 .01489 L -.0379 .01499 L -.04262 .0152 L -.04749 .01548 L -.05205 .0158 L -.06244 .01675 L -.07305 .01801 L -.08274 .01944 L -.10458 .02358 L -.12357 .02821 L -.14429 .03435 L -.18493 .04963 L -.22406 .06826 L -.26565 .09204 L -.30571 .11858 L -.34426 .14717 L -.38527 .1805 L -.42475 .215 L -.46273 .24996 L -.50315 .28853 L -.54206 .3264 L -.58342 .36674 L -.62326 .40497 L -.66159 .44044 L -.70238 .47601 L -.74164 .50741 L -.77939 .53432 L -.8196 .55879 L -.85828 .57771 L -.87793 .58543 L -.89942 .59234 L -.91995 .59741 L -.92911 .59917 L -.93905 .60073 L -.94426 .60141 L -.94906 .60194 L -.95356 .60236 L -.95851 .60273 L -.96295 .60299 L -.9671 .60316 L -.96939 .60323 L -.97148 .60328 L -.97264 .6033 L -Mistroke -.9739 .60331 L -.97509 .60332 L -.97619 .60332 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo -jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq -so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp -0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq -747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr -D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41 -yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3 -k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA -s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr -8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC -HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB -K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho -Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi -Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7 -0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk -R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO -nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX -zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM -oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw -QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8 -cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha -oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj -I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB -MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk -hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh -jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr -BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA -JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV -ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l -jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl -hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR -iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj -/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev -9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr -wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c -vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc -Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05 -x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN -QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C -aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2 -JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+ -Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff -A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt -TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6 -JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I -buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr -sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO -yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu -TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx -uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx -1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST -SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy -lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X -pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm -Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y -TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9 -YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-19.394, 0.892147, 0.709611, \ -0.0012616}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\ -c578eb57eb6a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwd1Xk4VdsbB3CEZKgQh4SMXWToHGPJfjMlU1IJIY5ztpLIeClDbpGUEm50 +y5Ch5BoikaGuSpO5UkmZh4p0TjI1qN+7f3/sZz+f593Pu7577bX2UmIGObP5 +eHh4pvCi7sEdOutquzrM/PbZV+pe4RBmnwsNmJalxOBR1WrKg7mGGaqWjURS +bmkjZSdWu6Ao4yFx+eloC+XKyLgHApZtRP+3tn7Kpx7JNMWVPCMaddgLlOu6 +gnN+0l8Sb8gymh56orclOqqhh7DNKzKlvHpMZe+cxTtC+I2DH2U7TrRJaNsA +Ubb8aibluz8nRCJLhogss/J2yq/iaUdrAkcIfTa5bAP6s6DlxAx9jEiP67Cl +LHjmsBtjfpwoOzV+nrKCePaT4IYPxOm48n7KjnJzVz9bfCI81jieoqPJPGVp +baHPRHyd2nvKcWrbEw62cYhZnTJbBrqH1r0hrOQL0ZTcqqyPZrn7H0g/M01M +s5iZlLmXea5UBX4lPH4VixughZS1V36hzxIpzlY0Q3QG68HWlVJzRNivf/Ip +r73mFqc7P0dE2uUxjNDG6xM/H2pYILqv1ZHG6P2GA20TFj8J04Pq4pvQM5Hh +/MLqi8QDtYWnlI81iJhqCP0i4g2ikkzRWWD8r1/bb2JA45S0GZWv6IllSAkv +FK8ZiNiCLnmUPhgvxweeZpqe5lTe917R58/wQc8u1W0W6GjN2Zs3ApfAmIYa +3YrKW6GkwqELQPzIHptt6N6uT3d/FQiApIKshy2Vf7rWfbmUIPS8Tgq3Q5fq +O6ZpzwuCQ1JonQO6ue4Ib0CDEIQuCUtwRs8+eDHwwUIUGk+K63iiJexFVx69 +KwpuAa0NXmi9bksQMxGD3/4bnLzR/qO38jboLIdWG94UX/Rhvja9zaIroflQ +mYs/eky5/EvCnDj0rpHXjKLmh2xZ1smQgMO9ycpH0Xz/jivJBEuAzON8pRgq +L0PRuWRSAnoKuhjxaHeL1KqOQUmgJa0tPoXu9A0JpbVKQWfg4a5L6P5rZ097 +C0mD7EIQIwf9abKk4LqVNBQ407Lz0MJhIy82NUmDa7fHiSK05Yld+t63aHDd +825+Bbq+0HC2OFcW3lRUKzxEF459j9gYJg+XvitKzKJtdp/sDy2TB22ZeYkF +qn+zpHXZuDwskBdkf6D1C9dLrXVTgF8D641583E+mV43BcwUIUG3ul4MPc0Z +/PPD8bUgnc73ch1a8pBl9U0HZejgJzy90eOFwvud/JVhwfaONAt9+12X3FSi +MnDZiy/90B72nsfVm5Sh0eg+OwhdqBXhfJGuAtuFXFti0foT17ixNFWQXRd/ +LQe9y09E23ZIDbxG5G8Mo4mI3fQ9i2rw/rKAyHu0ZkKuEUtWHTSPBR6cRPMU +MMxjd6hD3KP7pjPosv69e6ruqYO7Q6CSYAHuT5fS+NX562CnYta0Jvq2pcOr +CaYGFNh7VkWiC3Zmvp2P1YBgx4+NMeizzKFB/ksa8ODLVNtfaNax8EmFFxqw +ZG7f4hm0eGM2z04LTVjs7c+9gvZnfNZsUNGCmo2Ck61oOeVzcadH10PQuneZ +qoUcojF5RuMbnzZoRu5q10R7fHXrJpW0Qdtrw7IN6JxmVQ1zL20IJ2gZm9HK +fvXPF15rw+Z/Ts65oDVLx9TIVh247nJpKhktL6dArnXTA5O6mCvz6PVFYaI/ +CDrQVhGCo0Ucgsk6PqvtSAeu/A+7SXSWSlq/twcd3JN0MqfRS/IrbjyKpINJ +27fNvFdxv+VM7EqrpIO5nHS7AvpUlne2hgoDknQFvrijx0/b67gK6oOV9jX7 +1+grIapOt9oM4EwsYTJ4jUN0RRBGJ4pMQOXZ8Hm/Eg6h5PXS0TNgM4z3axPm +ZRyC/bumXD4KgL+9ScHsBoegTd5eSmOaQ0Gs3peumxwijGH6Lk3TEtI7dYbD +ajH/1M8nkhNWcNzHRN6+Ab+neejS3M6t0HSn70nTf7h+ZvzvlWZsg5oWu92a +zRxiYYtMe3OcHfylvXpU/ymH6ONZ8mXIxwEuFfslszs4ROCaoNR4le1AvrvU +EfiCQ5QfeNL0d4IThAtKWUu/4RBHvsrOax3YAePbhcQT+/H/YWvt8nifM6zf +bO2TOsohTPae3zK2YyfsXqysz5ngEM9ls/2bGbvgR1XPh71cPE+uHm8s/mM3 +2NtE6Fybw/U1qGnvKOYC3lI9VWk/8Tzo5vpFTLnAJe2oM3ReLsH4+3xpweAe +OKN+0tmdn0tk83/VSXvgCrkM33CbpVyiZotub0KdG3hf7xAMFOYSWUbJ4j9L +3KF8XfHHKDEu0fm2KJFxZi94nG+PtlzJJW45XFY9fMwDth/nVd0oySW+HNrJ +E8jyBNusfNMJKS4xa62x/7OFFwgaHVeKlOESxVNvFkIN94EWl5mrIsclXK8U ++XqKesNyFZfNifJc4maV3b4lJ73BRZb59IcilzCRe/7t1DdvOEKsqFZX5hIq +g369zw74wMVo1wI1VS4xKnJw++URHxAytAj/Q51LdJ119N26mwn3fA2nhtZx +iYzIXJHwLibYBBRWpmtwica7v7/5bvOFLQH7wpdrcYkVHnCSUe8LK2KttC3X +c4m1qx53rmn0hdKZVrFtaL02BxnBu77Qqqc86YB2Nt17veeeL3idML28B52x +JqI15qkvXA9W6PFHr+77d8WTHl/Y/dW6JhWt6kXL8phHJ99c1os28f5cnKDP +ggN00e9MbS5x9SI31NGQBYqZtx+R6FUvps1oxiywG0xO9Ud/tprvLt7EAlI5 +Ty4EXajFw9tmzoLaY4kr4tHL58XdJHaw4M/VooE56NEUg2W5h1jwj54T/2v0 +jsdG3X5BLAjp3BLei77LszFXL5gFDU07RvrQF0PNDO6HsWC4urVmFO3ottVn +7CgLllxV2jSNrlN1q9NKZoG3p2qdqA6XONsQfeD2VRYYZ/CfItCH6JkmkcUs +kMh+l2KOtr9eucy4hAWpKh/PWaGFM8ev15ax4M77nNN26IQQp4maahxPONJn +DzpaQ/XgrfssyCZqEwPR/pmtAVX9LFi8rV7zD3rb8nHTkEEWLJ1j+GSj/0jg +EaMPY30haFkeejzEoKxyjAWxRaE7itA+jrlTNz6x4MFM4X8VaFeB0MCK7yxQ +HUxe1YzeGrr6cKk0G3a9scmdQN/PTbRNk2HD3fBVylNo07Zp1cjVbJCi42mJ +1lNrfWOhwAYth0MXZtCyr49avFVjw9dPq11/oSc39kkLG7DBomBko7gulzjH +l3fHbycbLgbOReujhXVFsxx2s6Fk4WyGIfrE3sgQxh42eOi1FhujI6ud1v12 +Z4OgiM5jU7QPyXv+ApMNj7UuvrVEM1qYrIfBbEgbGGHuQr8+ryaikop57R0n +DqPLCbH9H86zYdWljKgQqv/UTHNZOhsMuB8FwtD0bc2xxplsuGxzT+pP9Fke +32mHHDbQvihKxKCtg/LeRJaywaruZEwSWl4+ydCsHPP1V/WdQs+0BKUvucEG +8uTkxtPofHXC4exNNjiKJHxKQS/29TUV1LOhONBlfTq62l6uuOMJG9rG9ilk +o09/5xPIaGFDnJLb9hw0s3jCx60N3/ecV0wueiV/vdxoJxtqK1O6rqADGlzP +fXuF8/n7yM6raBXNCxGqY2zYXxzfWo7+/jrmxcdxNuRaG7RXoLsS2HoVH9jg +Pvu19QY6dkh/wuQTG6rM05qq0L1ZLzy3f2XDyndOiTXotKXiVkd4STAreHL8 +Drpxum9v2BISxKcPBt5Fv+8rCQkUIKHsldfu/9Cm1ZZ5zGUkqNEYMvfQ496R +P2zFSZCLSw9upvLbW0lYSaJPVJo9RG8yktAgpEgITlMQeoROFSt1YciSEJM8 +du4xVa8fqJRTIuGBvlpoC5osKn0ipULCu4465Vbq+dSogRVqJPQsXO6gPE5K +ivFrkBD40FGunapLbt3/SY8E3S6vpE50/S/JuHE6CbER5Oou9NjHwb8H9Ulw +sG4spryx6ciDbmMSOvSd65+hRwPKFe4ACZsV1StfoJe7HjWoNSdBcyhbrRtt +YmFjX2lJAiPK9wLls7LDUUU2JOQs7Ql4ib7NX5Gaa0tC7afE55RHOEevXbQn +gUw4rv8KbfxI6mWKE/avYk9RZlYOT550JuEvIzvL1+iUyxV8f+0iId05NpPy +cMg2vQhXErJ12+k9aDEv6a2H3UmQHPtwhLLxthFPfw8SnGnO/1FOUYw57eVN +Qtg70c1vqDzCtvmuTBIM2F4RlIdnpeucWTgfLov/UhYbGum0J0ngKf3YR9m4 +7ca49X4SanxURHupfLUxi+BPwmhoiSHllHzbVZsCSJAfiPWkfDuFpmUQSMLW +vLxjlIcjR7foHiYhqXpFHmVRVqWrRggJbrJtDZSNtscGqYTh+G0vX/y//0a7 +RPkIEoTa1n+gfEZNJpsWScJO6WcLlGtWjt0UP4L1kvsCb9FDPypbRKJJUEzk +XUFZ9H3skEAsCd3XU1ZRNnxut/A7joS6VX7SlP8HuaP9nQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd1Xk4VdsbB3CEZKgQh4SMXWToHGPJfjMlU1IJIY5ztpLIeClDbpGUEm50 +y5Ch5BoikaGuSpO5UkmZh4p0TjI1qN+7f3/sZz+f593Pu7577bX2UmIGObP5 +eHh4pvCi7sEdOutquzrM/PbZV+pe4RBmnwsNmJalxOBR1WrKg7mGGaqWjURS +bmkjZSdWu6Ao4yFx+eloC+XKyLgHApZtRP+3tn7Kpx7JNMWVPCMaddgLlOu6 +gnN+0l8Sb8gymh56orclOqqhh7DNKzKlvHpMZe+cxTtC+I2DH2U7TrRJaNsA +Ubb8aibluz8nRCJLhogss/J2yq/iaUdrAkcIfTa5bAP6s6DlxAx9jEiP67Cl +LHjmsBtjfpwoOzV+nrKCePaT4IYPxOm48n7KjnJzVz9bfCI81jieoqPJPGVp +baHPRHyd2nvKcWrbEw62cYhZnTJbBrqH1r0hrOQL0ZTcqqyPZrn7H0g/M01M +s5iZlLmXea5UBX4lPH4VixughZS1V36hzxIpzlY0Q3QG68HWlVJzRNivf/Ip +r73mFqc7P0dE2uUxjNDG6xM/H2pYILqv1ZHG6P2GA20TFj8J04Pq4pvQM5Hh +/MLqi8QDtYWnlI81iJhqCP0i4g2ikkzRWWD8r1/bb2JA45S0GZWv6IllSAkv +FK8ZiNiCLnmUPhgvxweeZpqe5lTe917R58/wQc8u1W0W6GjN2Zs3ApfAmIYa +3YrKW6GkwqELQPzIHptt6N6uT3d/FQiApIKshy2Vf7rWfbmUIPS8Tgq3Q5fq +O6ZpzwuCQ1JonQO6ue4Ib0CDEIQuCUtwRs8+eDHwwUIUGk+K63iiJexFVx69 +KwpuAa0NXmi9bksQMxGD3/4bnLzR/qO38jboLIdWG94UX/Rhvja9zaIroflQ +mYs/eky5/EvCnDj0rpHXjKLmh2xZ1smQgMO9ycpH0Xz/jivJBEuAzON8pRgq +L0PRuWRSAnoKuhjxaHeL1KqOQUmgJa0tPoXu9A0JpbVKQWfg4a5L6P5rZ097 +C0mD7EIQIwf9abKk4LqVNBQ407Lz0MJhIy82NUmDa7fHiSK05Yld+t63aHDd +825+Bbq+0HC2OFcW3lRUKzxEF459j9gYJg+XvitKzKJtdp/sDy2TB22ZeYkF +qn+zpHXZuDwskBdkf6D1C9dLrXVTgF8D641583E+mV43BcwUIUG3ul4MPc0Z +/PPD8bUgnc73ch1a8pBl9U0HZejgJzy90eOFwvud/JVhwfaONAt9+12X3FSi +MnDZiy/90B72nsfVm5Sh0eg+OwhdqBXhfJGuAtuFXFti0foT17ixNFWQXRd/ +LQe9y09E23ZIDbxG5G8Mo4mI3fQ9i2rw/rKAyHu0ZkKuEUtWHTSPBR6cRPMU +MMxjd6hD3KP7pjPosv69e6ruqYO7Q6CSYAHuT5fS+NX562CnYta0Jvq2pcOr +CaYGFNh7VkWiC3Zmvp2P1YBgx4+NMeizzKFB/ksa8ODLVNtfaNax8EmFFxqw +ZG7f4hm0eGM2z04LTVjs7c+9gvZnfNZsUNGCmo2Ck61oOeVzcadH10PQuneZ +qoUcojF5RuMbnzZoRu5q10R7fHXrJpW0Qdtrw7IN6JxmVQ1zL20IJ2gZm9HK +fvXPF15rw+Z/Ts65oDVLx9TIVh247nJpKhktL6dArnXTA5O6mCvz6PVFYaI/ +CDrQVhGCo0Ucgsk6PqvtSAeu/A+7SXSWSlq/twcd3JN0MqfRS/IrbjyKpINJ +27fNvFdxv+VM7EqrpIO5nHS7AvpUlne2hgoDknQFvrijx0/b67gK6oOV9jX7 +1+grIapOt9oM4EwsYTJ4jUN0RRBGJ4pMQOXZ8Hm/Eg6h5PXS0TNgM4z3axPm +ZRyC/bumXD4KgL+9ScHsBoegTd5eSmOaQ0Gs3peumxwijGH6Lk3TEtI7dYbD +ajH/1M8nkhNWcNzHRN6+Ab+neejS3M6t0HSn70nTf7h+ZvzvlWZsg5oWu92a +zRxiYYtMe3OcHfylvXpU/ymH6ONZ8mXIxwEuFfslszs4ROCaoNR4le1AvrvU +EfiCQ5QfeNL0d4IThAtKWUu/4RBHvsrOax3YAePbhcQT+/H/YWvt8nifM6zf +bO2TOsohTPae3zK2YyfsXqysz5ngEM9ls/2bGbvgR1XPh71cPE+uHm8s/mM3 +2NtE6Fybw/U1qGnvKOYC3lI9VWk/8Tzo5vpFTLnAJe2oM3ReLsH4+3xpweAe +OKN+0tmdn0tk83/VSXvgCrkM33CbpVyiZotub0KdG3hf7xAMFOYSWUbJ4j9L +3KF8XfHHKDEu0fm2KJFxZi94nG+PtlzJJW45XFY9fMwDth/nVd0oySW+HNrJ +E8jyBNusfNMJKS4xa62x/7OFFwgaHVeKlOESxVNvFkIN94EWl5mrIsclXK8U ++XqKesNyFZfNifJc4maV3b4lJ73BRZb59IcilzCRe/7t1DdvOEKsqFZX5hIq +g369zw74wMVo1wI1VS4xKnJw++URHxAytAj/Q51LdJ119N26mwn3fA2nhtZx +iYzIXJHwLibYBBRWpmtwica7v7/5bvOFLQH7wpdrcYkVHnCSUe8LK2KttC3X +c4m1qx53rmn0hdKZVrFtaL02BxnBu77Qqqc86YB2Nt17veeeL3idML28B52x +JqI15qkvXA9W6PFHr+77d8WTHl/Y/dW6JhWt6kXL8phHJ99c1os28f5cnKDP +ggN00e9MbS5x9SI31NGQBYqZtx+R6FUvps1oxiywG0xO9Ud/tprvLt7EAlI5 +Ty4EXajFw9tmzoLaY4kr4tHL58XdJHaw4M/VooE56NEUg2W5h1jwj54T/2v0 +jsdG3X5BLAjp3BLei77LszFXL5gFDU07RvrQF0PNDO6HsWC4urVmFO3ottVn +7CgLllxV2jSNrlN1q9NKZoG3p2qdqA6XONsQfeD2VRYYZ/CfItCH6JkmkcUs +kMh+l2KOtr9eucy4hAWpKh/PWaGFM8ev15ax4M77nNN26IQQp4maahxPONJn +DzpaQ/XgrfssyCZqEwPR/pmtAVX9LFi8rV7zD3rb8nHTkEEWLJ1j+GSj/0jg +EaMPY30haFkeejzEoKxyjAWxRaE7itA+jrlTNz6x4MFM4X8VaFeB0MCK7yxQ +HUxe1YzeGrr6cKk0G3a9scmdQN/PTbRNk2HD3fBVylNo07Zp1cjVbJCi42mJ +1lNrfWOhwAYth0MXZtCyr49avFVjw9dPq11/oSc39kkLG7DBomBko7gulzjH +l3fHbycbLgbOReujhXVFsxx2s6Fk4WyGIfrE3sgQxh42eOi1FhujI6ud1v12 +Z4OgiM5jU7QPyXv+ApMNj7UuvrVEM1qYrIfBbEgbGGHuQr8+ryaikop57R0n +DqPLCbH9H86zYdWljKgQqv/UTHNZOhsMuB8FwtD0bc2xxplsuGxzT+pP9Fke +32mHHDbQvihKxKCtg/LeRJaywaruZEwSWl4+ydCsHPP1V/WdQs+0BKUvucEG +8uTkxtPofHXC4exNNjiKJHxKQS/29TUV1LOhONBlfTq62l6uuOMJG9rG9ilk +o09/5xPIaGFDnJLb9hw0s3jCx60N3/ecV0wueiV/vdxoJxtqK1O6rqADGlzP +fXuF8/n7yM6raBXNCxGqY2zYXxzfWo7+/jrmxcdxNuRaG7RXoLsS2HoVH9jg +Pvu19QY6dkh/wuQTG6rM05qq0L1ZLzy3f2XDyndOiTXotKXiVkd4STAreHL8 +Drpxum9v2BISxKcPBt5Fv+8rCQkUIKHsldfu/9Cm1ZZ5zGUkqNEYMvfQ496R +P2zFSZCLSw9upvLbW0lYSaJPVJo9RG8yktAgpEgITlMQeoROFSt1YciSEJM8 +du4xVa8fqJRTIuGBvlpoC5osKn0ipULCu4465Vbq+dSogRVqJPQsXO6gPE5K +ivFrkBD40FGunapLbt3/SY8E3S6vpE50/S/JuHE6CbER5Oou9NjHwb8H9Ulw +sG4spryx6ciDbmMSOvSd65+hRwPKFe4ACZsV1StfoJe7HjWoNSdBcyhbrRtt +YmFjX2lJAiPK9wLls7LDUUU2JOQs7Ql4ib7NX5Gaa0tC7afE55RHOEevXbQn +gUw4rv8KbfxI6mWKE/avYk9RZlYOT550JuEvIzvL1+iUyxV8f+0iId05NpPy +cMg2vQhXErJ12+k9aDEv6a2H3UmQHPtwhLLxthFPfw8SnGnO/1FOUYw57eVN +Qtg70c1vqDzCtvmuTBIM2F4RlIdnpeucWTgfLov/UhYbGum0J0ngKf3YR9m4 +7ca49X4SanxURHupfLUxi+BPwmhoiSHllHzbVZsCSJAfiPWkfDuFpmUQSMLW +vLxjlIcjR7foHiYhqXpFHmVRVqWrRggJbrJtDZSNtscGqYTh+G0vX/y//0a7 +RPkIEoTa1n+gfEZNJpsWScJO6WcLlGtWjt0UP4L1kvsCb9FDPypbRKJJUEzk +XUFZ9H3skEAsCd3XU1ZRNnxut/A7joS6VX7SlP8HuaP9nQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9884260619028112, + 1.0116835475067048`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9884260619028135}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.9884260619028112, + 1.0116835475067048`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9884260619028135}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwd1Xk4VdsbB3CEZKgQh4SMXWToHGPJfjMlU1IJIY5ztpLIeClDbpGUEm50 +y5Ch5BoikaGuSpO5UkmZh4p0TjI1qN+7f3/sZz+f593Pu7577bX2UmIGObP5 +eHh4pvCi7sEdOutquzrM/PbZV+pe4RBmnwsNmJalxOBR1WrKg7mGGaqWjURS +bmkjZSdWu6Ao4yFx+eloC+XKyLgHApZtRP+3tn7Kpx7JNMWVPCMaddgLlOu6 +gnN+0l8Sb8gymh56orclOqqhh7DNKzKlvHpMZe+cxTtC+I2DH2U7TrRJaNsA +Ubb8aibluz8nRCJLhogss/J2yq/iaUdrAkcIfTa5bAP6s6DlxAx9jEiP67Cl +LHjmsBtjfpwoOzV+nrKCePaT4IYPxOm48n7KjnJzVz9bfCI81jieoqPJPGVp +baHPRHyd2nvKcWrbEw62cYhZnTJbBrqH1r0hrOQL0ZTcqqyPZrn7H0g/M01M +s5iZlLmXea5UBX4lPH4VixughZS1V36hzxIpzlY0Q3QG68HWlVJzRNivf/Ip +r73mFqc7P0dE2uUxjNDG6xM/H2pYILqv1ZHG6P2GA20TFj8J04Pq4pvQM5Hh +/MLqi8QDtYWnlI81iJhqCP0i4g2ikkzRWWD8r1/bb2JA45S0GZWv6IllSAkv +FK8ZiNiCLnmUPhgvxweeZpqe5lTe917R58/wQc8u1W0W6GjN2Zs3ApfAmIYa +3YrKW6GkwqELQPzIHptt6N6uT3d/FQiApIKshy2Vf7rWfbmUIPS8Tgq3Q5fq +O6ZpzwuCQ1JonQO6ue4Ib0CDEIQuCUtwRs8+eDHwwUIUGk+K63iiJexFVx69 +KwpuAa0NXmi9bksQMxGD3/4bnLzR/qO38jboLIdWG94UX/Rhvja9zaIroflQ +mYs/eky5/EvCnDj0rpHXjKLmh2xZ1smQgMO9ycpH0Xz/jivJBEuAzON8pRgq +L0PRuWRSAnoKuhjxaHeL1KqOQUmgJa0tPoXu9A0JpbVKQWfg4a5L6P5rZ097 +C0mD7EIQIwf9abKk4LqVNBQ407Lz0MJhIy82NUmDa7fHiSK05Yld+t63aHDd +825+Bbq+0HC2OFcW3lRUKzxEF459j9gYJg+XvitKzKJtdp/sDy2TB22ZeYkF +qn+zpHXZuDwskBdkf6D1C9dLrXVTgF8D641583E+mV43BcwUIUG3ul4MPc0Z +/PPD8bUgnc73ch1a8pBl9U0HZejgJzy90eOFwvud/JVhwfaONAt9+12X3FSi +MnDZiy/90B72nsfVm5Sh0eg+OwhdqBXhfJGuAtuFXFti0foT17ixNFWQXRd/ +LQe9y09E23ZIDbxG5G8Mo4mI3fQ9i2rw/rKAyHu0ZkKuEUtWHTSPBR6cRPMU +MMxjd6hD3KP7pjPosv69e6ruqYO7Q6CSYAHuT5fS+NX562CnYta0Jvq2pcOr +CaYGFNh7VkWiC3Zmvp2P1YBgx4+NMeizzKFB/ksa8ODLVNtfaNax8EmFFxqw +ZG7f4hm0eGM2z04LTVjs7c+9gvZnfNZsUNGCmo2Ck61oOeVzcadH10PQuneZ +qoUcojF5RuMbnzZoRu5q10R7fHXrJpW0Qdtrw7IN6JxmVQ1zL20IJ2gZm9HK +fvXPF15rw+Z/Ts65oDVLx9TIVh247nJpKhktL6dArnXTA5O6mCvz6PVFYaI/ +CDrQVhGCo0Ucgsk6PqvtSAeu/A+7SXSWSlq/twcd3JN0MqfRS/IrbjyKpINJ +27fNvFdxv+VM7EqrpIO5nHS7AvpUlne2hgoDknQFvrijx0/b67gK6oOV9jX7 +1+grIapOt9oM4EwsYTJ4jUN0RRBGJ4pMQOXZ8Hm/Eg6h5PXS0TNgM4z3axPm +ZRyC/bumXD4KgL+9ScHsBoegTd5eSmOaQ0Gs3peumxwijGH6Lk3TEtI7dYbD +ajH/1M8nkhNWcNzHRN6+Ab+neejS3M6t0HSn70nTf7h+ZvzvlWZsg5oWu92a +zRxiYYtMe3OcHfylvXpU/ymH6ONZ8mXIxwEuFfslszs4ROCaoNR4le1AvrvU +EfiCQ5QfeNL0d4IThAtKWUu/4RBHvsrOax3YAePbhcQT+/H/YWvt8nifM6zf +bO2TOsohTPae3zK2YyfsXqysz5ngEM9ls/2bGbvgR1XPh71cPE+uHm8s/mM3 +2NtE6Fybw/U1qGnvKOYC3lI9VWk/8Tzo5vpFTLnAJe2oM3ReLsH4+3xpweAe +OKN+0tmdn0tk83/VSXvgCrkM33CbpVyiZotub0KdG3hf7xAMFOYSWUbJ4j9L +3KF8XfHHKDEu0fm2KJFxZi94nG+PtlzJJW45XFY9fMwDth/nVd0oySW+HNrJ +E8jyBNusfNMJKS4xa62x/7OFFwgaHVeKlOESxVNvFkIN94EWl5mrIsclXK8U ++XqKesNyFZfNifJc4maV3b4lJ73BRZb59IcilzCRe/7t1DdvOEKsqFZX5hIq +g369zw74wMVo1wI1VS4xKnJw++URHxAytAj/Q51LdJ119N26mwn3fA2nhtZx +iYzIXJHwLibYBBRWpmtwica7v7/5bvOFLQH7wpdrcYkVHnCSUe8LK2KttC3X +c4m1qx53rmn0hdKZVrFtaL02BxnBu77Qqqc86YB2Nt17veeeL3idML28B52x +JqI15qkvXA9W6PFHr+77d8WTHl/Y/dW6JhWt6kXL8phHJ99c1os28f5cnKDP +ggN00e9MbS5x9SI31NGQBYqZtx+R6FUvps1oxiywG0xO9Ud/tprvLt7EAlI5 +Ty4EXajFw9tmzoLaY4kr4tHL58XdJHaw4M/VooE56NEUg2W5h1jwj54T/2v0 +jsdG3X5BLAjp3BLei77LszFXL5gFDU07RvrQF0PNDO6HsWC4urVmFO3ottVn +7CgLllxV2jSNrlN1q9NKZoG3p2qdqA6XONsQfeD2VRYYZ/CfItCH6JkmkcUs +kMh+l2KOtr9eucy4hAWpKh/PWaGFM8ev15ax4M77nNN26IQQp4maahxPONJn +DzpaQ/XgrfssyCZqEwPR/pmtAVX9LFi8rV7zD3rb8nHTkEEWLJ1j+GSj/0jg +EaMPY30haFkeejzEoKxyjAWxRaE7itA+jrlTNz6x4MFM4X8VaFeB0MCK7yxQ +HUxe1YzeGrr6cKk0G3a9scmdQN/PTbRNk2HD3fBVylNo07Zp1cjVbJCi42mJ +1lNrfWOhwAYth0MXZtCyr49avFVjw9dPq11/oSc39kkLG7DBomBko7gulzjH +l3fHbycbLgbOReujhXVFsxx2s6Fk4WyGIfrE3sgQxh42eOi1FhujI6ud1v12 +Z4OgiM5jU7QPyXv+ApMNj7UuvrVEM1qYrIfBbEgbGGHuQr8+ryaikop57R0n +DqPLCbH9H86zYdWljKgQqv/UTHNZOhsMuB8FwtD0bc2xxplsuGxzT+pP9Fke +32mHHDbQvihKxKCtg/LeRJaywaruZEwSWl4+ydCsHPP1V/WdQs+0BKUvucEG +8uTkxtPofHXC4exNNjiKJHxKQS/29TUV1LOhONBlfTq62l6uuOMJG9rG9ilk +o09/5xPIaGFDnJLb9hw0s3jCx60N3/ecV0wueiV/vdxoJxtqK1O6rqADGlzP +fXuF8/n7yM6raBXNCxGqY2zYXxzfWo7+/jrmxcdxNuRaG7RXoLsS2HoVH9jg +Pvu19QY6dkh/wuQTG6rM05qq0L1ZLzy3f2XDyndOiTXotKXiVkd4STAreHL8 +Drpxum9v2BISxKcPBt5Fv+8rCQkUIKHsldfu/9Cm1ZZ5zGUkqNEYMvfQ496R +P2zFSZCLSw9upvLbW0lYSaJPVJo9RG8yktAgpEgITlMQeoROFSt1YciSEJM8 +du4xVa8fqJRTIuGBvlpoC5osKn0ipULCu4465Vbq+dSogRVqJPQsXO6gPE5K +ivFrkBD40FGunapLbt3/SY8E3S6vpE50/S/JuHE6CbER5Oou9NjHwb8H9Ulw +sG4spryx6ciDbmMSOvSd65+hRwPKFe4ACZsV1StfoJe7HjWoNSdBcyhbrRtt +YmFjX2lJAiPK9wLls7LDUUU2JOQs7Ql4ib7NX5Gaa0tC7afE55RHOEevXbQn +gUw4rv8KbfxI6mWKE/avYk9RZlYOT550JuEvIzvL1+iUyxV8f+0iId05NpPy +cMg2vQhXErJ12+k9aDEv6a2H3UmQHPtwhLLxthFPfw8SnGnO/1FOUYw57eVN +Qtg70c1vqDzCtvmuTBIM2F4RlIdnpeucWTgfLov/UhYbGum0J0ngKf3YR9m4 +7ca49X4SanxURHupfLUxi+BPwmhoiSHllHzbVZsCSJAfiPWkfDuFpmUQSMLW +vLxjlIcjR7foHiYhqXpFHmVRVqWrRggJbrJtDZSNtscGqYTh+G0vX/y//0a7 +RPkIEoTa1n+gfEZNJpsWScJO6WcLlGtWjt0UP4L1kvsCb9FDPypbRKJJUEzk +XUFZ9H3skEAsCd3XU1ZRNnxut/A7joS6VX7SlP8HuaP9nQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9884260619028112, 1.0116835475067048`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9884260619028135}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.9884260619028135}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9884260619028112, 1.0116835475067048`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993850285094318*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"1a8d7880-01bf-455a-abb9-3745aebb6e0f"] }, Open ]], Cell[CellGroupData[{ @@ -1643,30 +6472,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1691,420 +6523,1729 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\ -562f8b3faecd"], + CellChangeTimes->{3.9918505781608486`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3681572055532075`*^-284\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993850285444972*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"0643ceeb-d1d9-468a-aa00-5903cde712fa"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"a2ecd22c-b766-5347-9e03-9d459620be75"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.386353317925198`*^-298\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938502854532757`*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"7d1469fd-e464-4914-9f57-c3668f684128"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ +\\\"1.7660775686536735`*^-7\\\"}], \\\")\\\"}], \\\"46\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 11, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938502854605627`*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"92f92933-cd5d-4104-af6b-e79d8c42ee8c"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 6.72103 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .14914 -24 -4.5 ] -[.01131 .14914 0 4.5 ] -[.01131 .28356 -24 -4.5 ] -[.01131 .28356 0 4.5 ] -[.01131 .41798 -24 -4.5 ] -[.01131 .41798 0 4.5 ] -[.01131 .5524 -24 -4.5 ] -[.01131 .5524 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .14914 m -.03006 .14914 L -s -[(0.02)] .01131 .14914 1 0 Mshowa -.02381 .28356 m -.03006 .28356 L -s -[(0.04)] .01131 .28356 1 0 Mshowa -.02381 .41798 m -.03006 .41798 L -s -[(0.06)] .01131 .41798 1 0 Mshowa -.02381 .5524 m -.03006 .5524 L -s -[(0.08)] .01131 .5524 1 0 Mshowa -.125 Mabswid -.02381 .04832 m -.02756 .04832 L -s -.02381 .08193 m -.02756 .08193 L -s -.02381 .11553 m -.02756 .11553 L -s -.02381 .18274 m -.02756 .18274 L -s -.02381 .21635 m -.02756 .21635 L -s -.02381 .24995 m -.02756 .24995 L -s -.02381 .31716 m -.02756 .31716 L -s -.02381 .35077 m -.02756 .35077 L -s -.02381 .38437 m -.02756 .38437 L -s -.02381 .45158 m -.02756 .45158 L -s -.02381 .48519 m -.02756 .48519 L -s -.02381 .51879 m -.02756 .51879 L -s -.02381 .586 m -.02756 .586 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .18263 L -.10458 .34796 L -.12507 .41668 L -.14415 .47199 L -.16371 .51906 L -.18221 .55405 L -.192 .56876 L -.20263 .58172 L -.21228 .59082 L -.2212 .59698 L -.22586 .59936 L -.22843 .60043 L -.23087 .60129 L -.23313 .60195 L -.2356 .60252 L -.23669 .60272 L -.23784 .6029 L -.23886 .60304 L -.23993 .60315 L -.24059 .6032 L -.24132 .60325 L -.2426 .60331 L -.24332 .60332 L -.2441 .60332 L -.24483 .6033 L -.2455 .60328 L -.24679 .6032 L -.24752 .60314 L -.24819 .60307 L -.25074 .60272 L -.253 .60228 L -.2555 .60165 L -.26055 .59995 L -.26547 .59774 L -.27064 .59486 L -.2799 .58832 L -.30075 .56765 L -.3205 .54159 L -.33886 .51282 L -.37791 .44198 L -.41941 .36071 L -.45939 .28487 L -.49785 .21945 L -.53877 .16105 L -.57818 .1166 L -.61606 .08416 L -.63714 .07001 L -.6564 .05921 L -.69523 .04269 L -Mistroke -.71425 .03672 L -.73499 .0315 L -.7547 .02757 L -.77569 .0243 L -.79714 .02174 L -.81732 .01991 L -.83744 .01853 L -.85592 .01756 L -.87479 .01681 L -.89546 .0162 L -.91501 .01578 L -.93594 .01545 L -.95662 .01522 L -.97619 .01507 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL -SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870 -7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7 -7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN -39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ -15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ -G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/ -Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY -xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj -jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt -rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM -S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd -UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31 -EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW -Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ -stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav -AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5 -z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0 -PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J -2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M -llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ -bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk -VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ -uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47 -6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL -8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ -M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC -vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q -4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL -kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY -ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp -htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE -ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y -LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S -7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC -o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1 -9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8 -f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu -gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf -Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg -vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl -XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN -fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq -F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G -9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K -p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB -PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7 -gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl -swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd -c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe -6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm -6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V -+koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg -kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj -lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV -nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm -sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9 -Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm -Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-3.23234, -0.00806918, 0.118269, \ -0.000558628}},ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 95, 12, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993850285468597*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"cabd8cb6-e179-4a8b-8270-3004e6d91848"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ -04dec8739bf5"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0lO8XAHBZsmVnmLFkS7Jkn2GYuRfZhWxFtmQpSqhUlpC1SCqhTUi+ +hcg6YylFKSopiqQSlaUIWSrKb35/vedzzvu+57nPc5dHwf+AcyA7Gxtb+xo2 +tv8/Fz90PlTOKKFT3J4qzKo70fsKpI6ZDpyAy5MFV3XLNQElXvhLDZyDucz5 +wW9lNIhyKuvnGCgGxe0tlNqyrSAyLXnud38NZG0t+Wha5g0fWxwOzPe3wWyF +s0r9zf1gqTz5frb/FXzJj3S/VhwHv/spF2b6R2DUs+uW/6nT0G7+X8nL4p8w +4uTUP7ijAGQ+Nn711/gLV8u8hGP4S0F8n28ZtzkH1gclrK6lVcA5HctmBzce +tOKjPqFIVYPWOw8r2h4e3D7Yti9asRqeJe/vVY/hwVbHjtQGjWpYO5DzjaeI +BwkB/wSlTash5viodPt3HgzqDJC+sLcaAp4mxFKSebHZ1T7DtrEayIHNNPla +PiRKx3wodamBt/na92eFBfDLTBtnzsFauNRbLhS1QQB7umecXsfWgqfgRt8/ +RgL4S3OjlmBqLQwlyf5j3y2AadfP5AXl18JwGJ+JeL0Atga+fFXdUgvjWz4z +yB6CeKKC810VRx38msmriikSQq/h8SpqRh00qoutrtYL4dy8aufe83UQHZTl +kNwlhL5BIlrZl+tg5V3yVOZPISy37XjbVl4HCaNMiReKwqg3mBDd+rQOkrtv +uAwfEkZR280x4nz1kFES/4KdKIKEyJtWSgn1YKu/V1RCSQRJCxLLkmn1wPPQ +2W2jpgg2PjWS58yqh+TRDe/sTEVwqfp5c9vleohVfPY1Z68IBislyL1tqIew +Qql/Kk0iqLei0b/3Wz1su1KtYbdTFLfY+voTHBpAWOPyAe9AURwgPHi75NIA +3c3JNQcOiOKkS3Nlj0cD2L7bbpiTJIrfeoPC9wQ2gBnpn/n7clF8Gmxnrx3b +APr5tjsPrIiiv1mVhcLNBpDMGT15/qoYdmUVuaX/bgAp9frkX6VieGXm5DqO +fw1AakuN974jhlIB/5lGsTNAbmbT4Y3tYkgK6N5oyc+ADfbhfs3jYrjr6qOp +DBkG6HH+JY/qiSP5r/TdKhoD9C9361jTxDHoc0ZqjSkDyLqFGrctxVGXoPX6 +tgUDqH7mikc8xHGRtoMzaysDTFtOCvDHi6Ogr0DzvBcDHA8RPut2iWO02gFZ +r2gGOPGPf8jrFce4TUWpY3EMcC5ufLsyJI49bybiQxMZ4N7j9aLjhzhGrf23 +wTudAd4a15s8JSRwp/jd7WMXGBD6WevsCT8J1FxnTcqvYsC+mDWZY3slcKhm +3XRFDQPCRHtT7Q9KYNpCrl9TPQMiMSqWkCqBx6lqKq3NDDh2pSW4rFwCb3d5 +bgt/zIA0Vxv6q0UJ/M/BVTnyPQNIdd0k9jUEDKTE1NkMM6BSzHVJh5+AaVM/ +KqRGGfDmlc+ds+sJeIpg+v7KOAOUtx1S3GZNwAuBvCH0nwxo23ptbc9FAl40 +380cW8sE99vKo6vXCah2c+slMi8TJteVtWpVEnB5toYtjp8JIs/qjp5pI+Bf +pyL/GSEm+Nl2TTp8I6D/0z/VEVJM+Gu50P3cRBJ55nwthjcyIbs0uvyvpSQ+ +Vyr1vbmJCcpr2dI1t0ni/D6n9XvUmWD/iM/0dKAk/nKoyOvezIRL5vK19lmS +mMSILqcYMGHz9RtnYvMlMYHWrHWXzIQ2dvV9FcWS+C73VCjVkAkTDww2rGNI +okQ1iMkYM8EQ7fKefpRET6GPgbHIhGfXeg4uT0jityrniVZT1npX3ZzU5yWx ++OUlyrIZE9Lu+fFm8EjhjbGrdA8LJpDkvn5pEpXCMzSflRhLJlTGhbZNykjh +nZ6/WblWTHhjEhVjqyOFPu7itFobJoRcWd4ebSyFVTU13vW2rPiXE/TLLKRw +l1S8d5UdK97mjCleTymMl1zPlbGVCQeNinw7T0hh/s8e+icnJtgWCs7bZUqh +So8vb+42Jihyx6Z3X5BC2WszPebOTOjpc6/uvSmFPKV8fqdcmHDT+KGFe40U +Mt+Layi5MiG+WGdwoFkKl9Yo/atjeXP4Oo4P3VJo8jjsbrsbE7j6j+X5DUjh +0EeLKnRnwhBtTH30kxS+6Ha508ByXYnr/cBvLH/83rZhOxMy+Ntcx+elcNV3 +z8Rplv0jtSZC/kmh9WV5lR8sU99eiZviJmLR28gYmx2sfEA+0XARIlp6tX67 +wvJ46ZHSORIR1+zce2yC5VaBL9TDykQ8vKZfRcuDCbmHnF8saRLRcV/E4n6W +w9617o6mEDG7tGTyBssWZpq/VpCInaUfufpZlrl1KTPeloh29jm2azyZMC/E +o8DuSsRjXpRmZZafRh2uT/Ym4nA8epqyXPx+xIY7mIiXQE1tO8vHtjh9OBlO +RA/2SM0glp3K70auiyYigzc/KIxlVVF17jNJRAw8sH7gAMurR/Mvi5wmorNi +VnIIy28+cmnn5BLxx+i+MB+WKy0PPiQUstZjYZVvx3LK7eEdF28R0aWknFOX +ZS9xhynpWiL+VFVvEGFZL6Y5saCFiBZtHlWTrHj4RlQJCh1EvKfUPdfC8oh1 +btn1F6zv2xSS0llurOIAlbdEvP1yxn8ry9mEiN6bI0QE08Ecfpb3xH0IVv/O +2s/GeOl21v7CZ7uV2wtEfJuf8vsgywS7xmztVSKSZ8/pyLE8Va2yoZaHhE3J +2zoesM7voVROo4EoCUXa9zf5sHzwa9gIdQMJrbcdf5rMygfbrUNRdzeTUKdr +YEqAZcU6G340JKEh1Ts6m5VPPYnK+hZ2JFwwfj6UyMq3/8bPPnnsSsJ9P/SY +M6z8PO646mXrQ8L6/iYeD5Y1ZQdTHCNI2D9vLE5g5TNnshXpVTQJTcce9YWw +8n1osq7SNZmEnUlnJBpZ9XCKeabfI4+EBfKySmaOTNi1/m/oUCEJv8ikLMQ6 +sOo7NYTNt4yE3vWHXKpZ9TTmYrEp4C4JlWQc7q61Z8KWH3+iw0ZJmGKufjHA +mnX+1jlqD76TsGW/IX8Eq34rizQHxRZJqG2IvkdY9S3l6mfUyCONLxzNmRFb +mPCd+WiJY7M0/kovj5Fl9Q8FUd//3CnS6L1J1O43ndUfQ3+530JpnN9SK/qC +xoT7suoNDi7SOFI+dWEPq/+cP5F96OJRaezGhmYXVr968m6T8vdEaaS9cL2y +qs+EFf32XnqGNI4yFzJu6DEhaGxB9/NVaRx+0Hn9ozarvux3zm5ul8ZFxu+1 +Aqz+OCKhEvZQQAb/ez+v7ijHBMkDrbKSkjJoeH3jzqsyrP75ZMfzvfIy+P1J +2JMvJCY0RGdoCOnJ4NsfpnsDJVn7+XFm0mOHDIqYXJSSF2aC7q3m4B/FMniP +7dtAChsTEk227SIZyqIdZ9M5VdY8sfYpmKOYyeJWXTPd7EEGCCZ8S3Kzl8Ut +xpsTZvsZcKU9pTTbTxZ9q0ooRa8YwLRt+rb2pCy+FbyeXs+aTzM7lKJ+vpXF +rxbW7vV3GOBzeOHUsxg5XE1Tldc6zprfeWYykylyqNO8erOPNV+/M8/c5s6W +w6eDscGHjjAgemVTj1kJy+EducXhDLiQ5CPR+EwOH3yONWzyZ8Czs4+v3ZBd +jxMj57wG/z/PKy/WHW9dj/qpj0X+cjNgS3/33+kn61E88ac5hZMBDmycVr6v +1uNL7VNf97ExYLdz2Fv4sh4dYi9ndP1qAMsYhfgELnkMy5lvdpxogPD1i9dN +1eVRVlt7KrmzAR4GX5tqj5LHxUsGB+tSG2Dfr9mEJwIKyP7s/edf8/VAjQgi +fBVVwJfCHMRHP1j3r8nBcg4pBcysJfGdnqyHG+/a39AVFfDsVw+y8HA9fLh3 +QaOerIC+m2/TPnfVg2OK0UCRrwKeUMk1eXytHnRFE7ViqhXQp9W5+JJlPfxW +F/6g6aaIFneWCpNO1oFJeUVhbq4SBiqE7E+fr4FZUVs/9zZlHBqKyDL3rYbP +mX7ukdwqWHFA2M1ctwpsfhyx+ULeiAdMlptShsvh+26eg3XxqviU/3zva++b +rPu8JHta2yb00FjCdIkbIPpcJevODzUM2MJsOGJYDDLpVU5ksgae3Es5b3Gv +APLVjYTFgjWx4wH3221zF6GLZGrw8+xmVAvpStp5/wJQZdqytd5oofRt5rWX +7WdBkKP40K4T2vg1ZXHPHpnTsPZ3q8tssjbalIXFlLOfhn/T73UT07TxxZzH +3Op4JvwYJM4WZmqjxcDbxaH6TOipObt/OFcbN0WkNQU5ZcI5/8Qg33Jt/Ils +MnXpGUBo89vh3aeN1M27H6xbewrkEtebeKjoYHjdhSFP3TSoPMij+F5VB1MT +l2U0ZNOAHjTLvUtdB8Wuchet40kDb7v23j3aOqjazfBcfp8KVySCQ49SdXAz +ZfdI1qlUIJZVXspz0EHNipJb6V9TQLyX9vt1lA6+3v3++cVbycC7wavB+bEO +jjUN2D/wPAEhRLAt79RBlc55mo/tCegSUPzA8UwHlx+lcHNTT0Dm4hhXfY8O +hhxeFIglngDBJwfdJAd1sPfesa0/BxJBNDRj/t13HbzqKnpfxDMRZKqbdANF +dXHTz+SCsYAE2EwjVh3x1sXdcTmDxylxUKu0d5ndTxdFL4dmsJPiwJCv0SrL +XxdzVA1fFazEgln/juGSYF3kih8cl2+LBfeIfJFXEbp4P+l0hY1DLMTfkDyk +kaqLpuPjigqhMdAjQDD6VKmL0cOq1ckNxyDyg2i7LZseilePtPGdjYInHV53 +y9j1MFLOjf1tdBTIVZUy+Lj0cDR8trAxIAq64qkVXbx6mA4L3dWGUaCo4H/B +VkwPS8931Md+Ogwvd1cH26roYd5R6Z+R5MOgPeG4ztZeD7MZh16enzoIP35m +utnk66GZzQq/RVYEDA0UuV+9pIe14vW/KmMjoOtuw/bZKyzfeD+7MTQCStKG +PS4W6WHTId4RS+sI8JTW95ko00P5WatSCkcEPDJ7F3Tyrh4WpcRrDMWEw+Wz +m452juhhTnlP9uCPMEiPoh+T/aKHW0wTH9r1hEHUTpfoiDE93H56+sbAnTBw +2hAXS/yuh2PZbioWkWGwtrEnYe+CHp4f1RYIXtwPEcNHTvLy6KNByQ2eexz7 +wUqr45KNpj6mrRj1knVDYcdaa9ceLX0kXm46e14sFELedwps19VHTp5EDcGF +EMjKeJ4QQNHH9OK2S17MEHgz1hcUb6qPd80y+3diCAQUjurWu+lj39Osjy/c +9sIJkTVP5Y/r40xUef3MhWDIGT+R/F+CPq4rtFV8Hx0Mpa2c9M1J+ljpSyj4 +7BsMXft5qo3T9dFxu+u+LWrBINIllOd+Th+7+m5yWdwPgsITcrszS/WxrWfd +LspsINz7aby81K2PQuSQa/ZBAVD0jOHv8lIfGYQtv3idAiD5hl5XZa8+Hjid +eWHIKABstqtfDBzQR8MK850PBAKgr4lE6f2kj0WFUpZpDbthMvF3ZOW8Pr5g +d7Zb5N8NBGHGZADJAHvLlLxnHu2C3+O6zvdlDNCgxnSAXLMLhh5UNkqvN0B5 +sZu52QW7oOhgaforJQO8b+lzLe7ILtDov6CCmgZo/ahF20RtF5gVHPKXRgNU +ogXO0s77QZiG7uDLQAMMaODUev3FBw4vkf747jHAgTVdefz3fSC2jYM0HWKA +3BNb34dc8oGMHa89+MINMPz8+dDrjj5wM/noW7NoA5ybNb7wq9kbRobuDdRm +GWC6cFSI2BUvcD9t13+BYYCJ4zk2osc8wXuH/pJSkwE+F6l7LrfDEwKUZCVr +WgzQO6GvzZHiCQcbp927HxigXGLZUblFD8j+cvbN2mcGGCJaujv0sAd00QZe +Hxlmref2Nd7S6B1Amw7o8+AlYyN3fl9jgTsQmq2KW/jJyHFX1eB3kjtMp6mF +rxckY/7Gt69c97pDgcIM/xdRMn77L8HPT98d/rnGmIfLkDEubI6z46kbtDaf +rUnVIuNRxsKt+lVXMD15L7vWjYzGoYXZMTEuQHIv8iHsIOPgwXuDogEuMKeY +rHHMk4z/Nap6tNu7QHGLzRO6LxkHPsjkHpBzAfaZvtXOPWQML6k+NdfmDO3u +38KGY8joeN45MEvYGSyUpbYKFJOxqZAjMPGuE9RNPVIIKCHjzoNrO4/dcgJl +xsHFplIyRvVENKddcAJO2xfX9pSTUehewfLofidoO5A6115HRo0Dpncvr3cC +evN8XvRjMhoOnlWdFnAEsvPLkbHvZBR23jVS0WkPpdLxDPoPMrafJq7Ul9qD +xBeNzAuzZJTdUxHyJcke5o+kG5gvkvGNa0NdA90eaq5CesEqGU0Eytaub7AD +rYnbmm6iFHwbI+YwVm4LqgmnjrZRKHh2eY/rrhpraDG+wWVPpaDMmtl/3met +wWmp9dxrEwqeX6dcdCLcGo6GLVSMm1JwtLdDyVzLGp54+X0StKegZvzRzCuV +VrDHiGy704+CEveN6jLrLOHW3Cfp+XQKrkmvHbAa2gL0ypWbcRkULFf55Dbf +ugVe7ZUkc2dRsNCh9HH79S3wZ9jeiXSeglyxObNdoVvA9gUjGa9ScM71mlnU +X3OYLD89lVlNwY41+3fLbzQHtUCj1g2DFLy1GPnfo3OmcEbR4U/SEAWPJ3+8 +phJrCvMf/Q1GPlBwZW26cnGgKdzzzCwvGKVg6+WcgHFDU3B2+pgnOUVBjtFf +bZXDCMeMU8J52QzxsGemH78BwhORlwpTGwwxkWKtnj9MA80XX7zsVA1R2dNa +KLeRBucy/+TdUjPEMm2l5LZzNPDiVhYM0jLE50lGO0staPBjJerPB0ND1D2l +GpBz2wQI4zK9PXaG6F0pf/FjijEE3tuTXBdhiAI2GwUn3I1gev/kEYtDhmjs +v5cjW9cIjsruC30TZYixIV4dQYJGcCr2gPOvGEM8uNXqdXGHIdyhRsmbpBqi +8KlpdkcjQ1hpSGppv2SIprkVVVYbKXCuqmD+VbshnvfPm7FQNgAZX/nx3R2G +eD17E/E4lwHcECx+N//EEDVHxw5//KoPzP032gjdhtiqHrJWtkwf3qtXZHsO +sP7/iKB6XFcfVG82aox8N8SKtHRypa0etBb2BcxKGGEukedlXJ4ODNsr+EZJ +GWHt4Maw33E6wPZ7v8cyyQituI6o5QXogNk2bgcueSO85XbKy1BXBzrWUClE +NSPk7ZLWE3ihDc/8r/Ga0o0w/H5Y/ntBbRhUDqnMDjLCxrkuF1F7TVjuabgp +sdcIJ+4JJf+S1wSZOI7rl0KN8LsjOhAXNcD79ZW8knAjdK+vzOYt0oDhlBcJ +zGgjVMtJYrv6Wx3Gvuq7DGcZYUBRPsm5Xg3mb64uaTGMUEvkyYiUmyp8dbcs +PNlohE4EcT5jPVUY4DxtPdpshOlDVe/SRVSh2Y90Mfe+EXrUtFeXdm+EE1IG +1L+dRpjcYVT4xXYjCKeHxHYNGWHRitXXLXYqoBH8mi2QnYrjSlvCySHKICch +c+seJxVvi+o+DduqDMLt/tukuKn4c0il55m2MvyUmyl6yk/FutBh5d9LStD0 +hs9cV4KK5fpzMoLpSmBtiSmrG6mYjOf+sFcpwu4N5byXtlIxycXM+QdBAaIf ++YSoOFGR+cE6LHZFHrIDRZ/WOFOxfpNdgdaIPLTcOJb5dDsV+XjNI7kr5UFc +xVro7y4q2iVWHT9iJQ8dKl/E/aKomGI6IeHNvh7UVNfLq1yj4rnwgSlvWRnA +J68Saoqo2EDf1mo+Kw3ue1I/0UuouL3NXTDkkTQk3Zwq3n6Lirx+w0+jwqRh +SLVlw8laKp4cswpNaydB1iYP9e+PqejnkNRkfIwIs2rnyTUzVCx7bDrAFJaE +gWdoIfaTih8y2zfEThPgfti0y6EFKuoocX8Le0aArBqbCPIfKtKHyd8+pRNA +jcpW0cRhjNmNswZLHATwt9mv0E4wxtk+YkQ5uwT0BVut6zMxxulNTgvl8mLQ +zLtAMgBjNHt+VHmaQwyKy4s35Zoa45PMDy07xkQh/Mdfyx2Wxki9Z7ijtFIU +BI7UJQ45GqPY1LYsWRAFy1SFpc/+xhibIRTkGCwCzJLlTwvpxviQXzmwp1QI +yOaHlmwzjDHGUrqz4IgQ1H/6vq7wtDFu0xdTrLIWghq5DxTbc8bovP+VT843 +QajIv3+64LIxrvnX8TRYXxAKM1OMrCqNUUnKb2Hi5To4eUjobH6vMc6fCZZW +p/IBj1h66dRrY7S/Ex15SZQPUqvZWswGjHH7naJXpt94IXl69uv3IWN0aM9J +p1zlheN7+kxMvxqj3+GFNw0cvBDpdXF84pcxlmQERHUMcoPnFiU0ljNBLiuv +KssqLvjbxyPYLm+CBA62R7syuKAwcPqdrZIJ1p73aKwL5oKvqY1HPFVN0CXm +4TKbAhdEdjpWHdM1wXVxZZpquZxwyiFWjmlpgtapac+iT3FA047XK/oHTLDK +uXuS6+Ia8J5o6mqJMMFr92+bpMesAbbowvwth0xwxoxT2shnDVheDtV3PWaC +nWMC+zYor4FX79fsO5hkgt99rVfka9hg0n/zu+o8E9yqHN7eW7FKl96f1rj5 +vgn61T4X5YtboWetBhlktJngpjO59j8cV+js5yyrxx6a4LPyoFFJpRX6ZAPX +rcJOEyxYDazW6VqmN7El54v2mqDv+ulbcdLLdM+chCOLX0ww3Ls5aGPXb3p+ +8zGDe/w0JPm1Wnm5LdHXOXhUkwRp+NjCS4NNe4meMGyoeUSYhjde25wb4lui +7+H6pawtQcMLJarXaQ8W6RTHKPFiORp+K2Sj5Gsv0t+MRP5M0aEhRZszMJS4 +QJfg21e9dTsNDz8JFUwQ+UkvMY+LnvGgYUts0+91P+bounFZ5ue9aNh/Pfph +37M5usPMndcDu1hO1UgQOzlHT32z8Hv3PhqmBOcGmnPO0X8Vx5tFJ9JQ8oeg +kyzXLH3Q+HxvaTkNt5UqV1V5TdP3HC65YlNJw/qSoQbVDdP0xcr6wO93aDhx +NXJ2zfQUXVRxYEmngYbzy5NZrxKm6HY8sjJ379PQfno1413Zd3pLX2lA72sa +9tWFpfEIf6PbCjI1owZoyCtOiKB9mKQPWHUuSr2jodOqkH5nxSR9vulbus8w +DV9arAqM2k7SNYu0b09M0jCevZMpnDFBbxk0jcqcYsX/WEBwaucE3VbcBbRm +aBip7DgirTlBD0o7/PLQAuv9JZ3JsJ5x+vz91EuSv2h4+Ti/yLnicfqJP3m7 +m/7Q0Cfd8SrX4XG6sP4tDe+/NJTiz+frtBqnF+xvWlhdpWHEsvXrd6Rx+v8A +iNWQFQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0lO8XAHBZsmVnmLFkS7Jkn2GYuRfZhWxFtmQpSqhUlpC1SCqhTUi+ +hcg6YylFKSopiqQSlaUIWSrKb35/vedzzvu+57nPc5dHwf+AcyA7Gxtb+xo2 +tv8/Fz90PlTOKKFT3J4qzKo70fsKpI6ZDpyAy5MFV3XLNQElXvhLDZyDucz5 +wW9lNIhyKuvnGCgGxe0tlNqyrSAyLXnud38NZG0t+Wha5g0fWxwOzPe3wWyF +s0r9zf1gqTz5frb/FXzJj3S/VhwHv/spF2b6R2DUs+uW/6nT0G7+X8nL4p8w +4uTUP7ijAGQ+Nn711/gLV8u8hGP4S0F8n28ZtzkH1gclrK6lVcA5HctmBzce +tOKjPqFIVYPWOw8r2h4e3D7Yti9asRqeJe/vVY/hwVbHjtQGjWpYO5DzjaeI +BwkB/wSlTash5viodPt3HgzqDJC+sLcaAp4mxFKSebHZ1T7DtrEayIHNNPla +PiRKx3wodamBt/na92eFBfDLTBtnzsFauNRbLhS1QQB7umecXsfWgqfgRt8/ +RgL4S3OjlmBqLQwlyf5j3y2AadfP5AXl18JwGJ+JeL0Atga+fFXdUgvjWz4z +yB6CeKKC810VRx38msmriikSQq/h8SpqRh00qoutrtYL4dy8aufe83UQHZTl +kNwlhL5BIlrZl+tg5V3yVOZPISy37XjbVl4HCaNMiReKwqg3mBDd+rQOkrtv +uAwfEkZR280x4nz1kFES/4KdKIKEyJtWSgn1YKu/V1RCSQRJCxLLkmn1wPPQ +2W2jpgg2PjWS58yqh+TRDe/sTEVwqfp5c9vleohVfPY1Z68IBislyL1tqIew +Qql/Kk0iqLei0b/3Wz1su1KtYbdTFLfY+voTHBpAWOPyAe9AURwgPHi75NIA +3c3JNQcOiOKkS3Nlj0cD2L7bbpiTJIrfeoPC9wQ2gBnpn/n7clF8Gmxnrx3b +APr5tjsPrIiiv1mVhcLNBpDMGT15/qoYdmUVuaX/bgAp9frkX6VieGXm5DqO +fw1AakuN974jhlIB/5lGsTNAbmbT4Y3tYkgK6N5oyc+ADfbhfs3jYrjr6qOp +DBkG6HH+JY/qiSP5r/TdKhoD9C9361jTxDHoc0ZqjSkDyLqFGrctxVGXoPX6 +tgUDqH7mikc8xHGRtoMzaysDTFtOCvDHi6Ogr0DzvBcDHA8RPut2iWO02gFZ +r2gGOPGPf8jrFce4TUWpY3EMcC5ufLsyJI49bybiQxMZ4N7j9aLjhzhGrf23 +wTudAd4a15s8JSRwp/jd7WMXGBD6WevsCT8J1FxnTcqvYsC+mDWZY3slcKhm +3XRFDQPCRHtT7Q9KYNpCrl9TPQMiMSqWkCqBx6lqKq3NDDh2pSW4rFwCb3d5 +bgt/zIA0Vxv6q0UJ/M/BVTnyPQNIdd0k9jUEDKTE1NkMM6BSzHVJh5+AaVM/ +KqRGGfDmlc+ds+sJeIpg+v7KOAOUtx1S3GZNwAuBvCH0nwxo23ptbc9FAl40 +380cW8sE99vKo6vXCah2c+slMi8TJteVtWpVEnB5toYtjp8JIs/qjp5pI+Bf +pyL/GSEm+Nl2TTp8I6D/0z/VEVJM+Gu50P3cRBJ55nwthjcyIbs0uvyvpSQ+ +Vyr1vbmJCcpr2dI1t0ni/D6n9XvUmWD/iM/0dKAk/nKoyOvezIRL5vK19lmS +mMSILqcYMGHz9RtnYvMlMYHWrHWXzIQ2dvV9FcWS+C73VCjVkAkTDww2rGNI +okQ1iMkYM8EQ7fKefpRET6GPgbHIhGfXeg4uT0jityrniVZT1npX3ZzU5yWx ++OUlyrIZE9Lu+fFm8EjhjbGrdA8LJpDkvn5pEpXCMzSflRhLJlTGhbZNykjh +nZ6/WblWTHhjEhVjqyOFPu7itFobJoRcWd4ebSyFVTU13vW2rPiXE/TLLKRw +l1S8d5UdK97mjCleTymMl1zPlbGVCQeNinw7T0hh/s8e+icnJtgWCs7bZUqh +So8vb+42Jihyx6Z3X5BC2WszPebOTOjpc6/uvSmFPKV8fqdcmHDT+KGFe40U +Mt+Layi5MiG+WGdwoFkKl9Yo/atjeXP4Oo4P3VJo8jjsbrsbE7j6j+X5DUjh +0EeLKnRnwhBtTH30kxS+6Ha508ByXYnr/cBvLH/83rZhOxMy+Ntcx+elcNV3 +z8Rplv0jtSZC/kmh9WV5lR8sU99eiZviJmLR28gYmx2sfEA+0XARIlp6tX67 +wvJ46ZHSORIR1+zce2yC5VaBL9TDykQ8vKZfRcuDCbmHnF8saRLRcV/E4n6W +w9617o6mEDG7tGTyBssWZpq/VpCInaUfufpZlrl1KTPeloh29jm2azyZMC/E +o8DuSsRjXpRmZZafRh2uT/Ym4nA8epqyXPx+xIY7mIiXQE1tO8vHtjh9OBlO +RA/2SM0glp3K70auiyYigzc/KIxlVVF17jNJRAw8sH7gAMurR/Mvi5wmorNi +VnIIy28+cmnn5BLxx+i+MB+WKy0PPiQUstZjYZVvx3LK7eEdF28R0aWknFOX +ZS9xhynpWiL+VFVvEGFZL6Y5saCFiBZtHlWTrHj4RlQJCh1EvKfUPdfC8oh1 +btn1F6zv2xSS0llurOIAlbdEvP1yxn8ry9mEiN6bI0QE08Ecfpb3xH0IVv/O +2s/GeOl21v7CZ7uV2wtEfJuf8vsgywS7xmztVSKSZ8/pyLE8Va2yoZaHhE3J +2zoesM7voVROo4EoCUXa9zf5sHzwa9gIdQMJrbcdf5rMygfbrUNRdzeTUKdr +YEqAZcU6G340JKEh1Ts6m5VPPYnK+hZ2JFwwfj6UyMq3/8bPPnnsSsJ9P/SY +M6z8PO646mXrQ8L6/iYeD5Y1ZQdTHCNI2D9vLE5g5TNnshXpVTQJTcce9YWw +8n1osq7SNZmEnUlnJBpZ9XCKeabfI4+EBfKySmaOTNi1/m/oUCEJv8ikLMQ6 +sOo7NYTNt4yE3vWHXKpZ9TTmYrEp4C4JlWQc7q61Z8KWH3+iw0ZJmGKufjHA +mnX+1jlqD76TsGW/IX8Eq34rizQHxRZJqG2IvkdY9S3l6mfUyCONLxzNmRFb +mPCd+WiJY7M0/kovj5Fl9Q8FUd//3CnS6L1J1O43ndUfQ3+530JpnN9SK/qC +xoT7suoNDi7SOFI+dWEPq/+cP5F96OJRaezGhmYXVr968m6T8vdEaaS9cL2y +qs+EFf32XnqGNI4yFzJu6DEhaGxB9/NVaRx+0Hn9ozarvux3zm5ul8ZFxu+1 +Aqz+OCKhEvZQQAb/ez+v7ijHBMkDrbKSkjJoeH3jzqsyrP75ZMfzvfIy+P1J +2JMvJCY0RGdoCOnJ4NsfpnsDJVn7+XFm0mOHDIqYXJSSF2aC7q3m4B/FMniP +7dtAChsTEk227SIZyqIdZ9M5VdY8sfYpmKOYyeJWXTPd7EEGCCZ8S3Kzl8Ut +xpsTZvsZcKU9pTTbTxZ9q0ooRa8YwLRt+rb2pCy+FbyeXs+aTzM7lKJ+vpXF +rxbW7vV3GOBzeOHUsxg5XE1Tldc6zprfeWYykylyqNO8erOPNV+/M8/c5s6W +w6eDscGHjjAgemVTj1kJy+EducXhDLiQ5CPR+EwOH3yONWzyZ8Czs4+v3ZBd +jxMj57wG/z/PKy/WHW9dj/qpj0X+cjNgS3/33+kn61E88ac5hZMBDmycVr6v +1uNL7VNf97ExYLdz2Fv4sh4dYi9ndP1qAMsYhfgELnkMy5lvdpxogPD1i9dN +1eVRVlt7KrmzAR4GX5tqj5LHxUsGB+tSG2Dfr9mEJwIKyP7s/edf8/VAjQgi +fBVVwJfCHMRHP1j3r8nBcg4pBcysJfGdnqyHG+/a39AVFfDsVw+y8HA9fLh3 +QaOerIC+m2/TPnfVg2OK0UCRrwKeUMk1eXytHnRFE7ViqhXQp9W5+JJlPfxW +F/6g6aaIFneWCpNO1oFJeUVhbq4SBiqE7E+fr4FZUVs/9zZlHBqKyDL3rYbP +mX7ukdwqWHFA2M1ctwpsfhyx+ULeiAdMlptShsvh+26eg3XxqviU/3zva++b +rPu8JHta2yb00FjCdIkbIPpcJevODzUM2MJsOGJYDDLpVU5ksgae3Es5b3Gv +APLVjYTFgjWx4wH3221zF6GLZGrw8+xmVAvpStp5/wJQZdqytd5oofRt5rWX +7WdBkKP40K4T2vg1ZXHPHpnTsPZ3q8tssjbalIXFlLOfhn/T73UT07TxxZzH +3Op4JvwYJM4WZmqjxcDbxaH6TOipObt/OFcbN0WkNQU5ZcI5/8Qg33Jt/Ils +MnXpGUBo89vh3aeN1M27H6xbewrkEtebeKjoYHjdhSFP3TSoPMij+F5VB1MT +l2U0ZNOAHjTLvUtdB8Wuchet40kDb7v23j3aOqjazfBcfp8KVySCQ49SdXAz +ZfdI1qlUIJZVXspz0EHNipJb6V9TQLyX9vt1lA6+3v3++cVbycC7wavB+bEO +jjUN2D/wPAEhRLAt79RBlc55mo/tCegSUPzA8UwHlx+lcHNTT0Dm4hhXfY8O +hhxeFIglngDBJwfdJAd1sPfesa0/BxJBNDRj/t13HbzqKnpfxDMRZKqbdANF +dXHTz+SCsYAE2EwjVh3x1sXdcTmDxylxUKu0d5ndTxdFL4dmsJPiwJCv0SrL +XxdzVA1fFazEgln/juGSYF3kih8cl2+LBfeIfJFXEbp4P+l0hY1DLMTfkDyk +kaqLpuPjigqhMdAjQDD6VKmL0cOq1ckNxyDyg2i7LZseilePtPGdjYInHV53 +y9j1MFLOjf1tdBTIVZUy+Lj0cDR8trAxIAq64qkVXbx6mA4L3dWGUaCo4H/B +VkwPS8931Md+Ogwvd1cH26roYd5R6Z+R5MOgPeG4ztZeD7MZh16enzoIP35m +utnk66GZzQq/RVYEDA0UuV+9pIe14vW/KmMjoOtuw/bZKyzfeD+7MTQCStKG +PS4W6WHTId4RS+sI8JTW95ko00P5WatSCkcEPDJ7F3Tyrh4WpcRrDMWEw+Wz +m452juhhTnlP9uCPMEiPoh+T/aKHW0wTH9r1hEHUTpfoiDE93H56+sbAnTBw +2hAXS/yuh2PZbioWkWGwtrEnYe+CHp4f1RYIXtwPEcNHTvLy6KNByQ2eexz7 +wUqr45KNpj6mrRj1knVDYcdaa9ceLX0kXm46e14sFELedwps19VHTp5EDcGF +EMjKeJ4QQNHH9OK2S17MEHgz1hcUb6qPd80y+3diCAQUjurWu+lj39Osjy/c +9sIJkTVP5Y/r40xUef3MhWDIGT+R/F+CPq4rtFV8Hx0Mpa2c9M1J+ljpSyj4 +7BsMXft5qo3T9dFxu+u+LWrBINIllOd+Th+7+m5yWdwPgsITcrszS/WxrWfd +LspsINz7aby81K2PQuSQa/ZBAVD0jOHv8lIfGYQtv3idAiD5hl5XZa8+Hjid +eWHIKABstqtfDBzQR8MK850PBAKgr4lE6f2kj0WFUpZpDbthMvF3ZOW8Pr5g +d7Zb5N8NBGHGZADJAHvLlLxnHu2C3+O6zvdlDNCgxnSAXLMLhh5UNkqvN0B5 +sZu52QW7oOhgaforJQO8b+lzLe7ILtDov6CCmgZo/ahF20RtF5gVHPKXRgNU +ogXO0s77QZiG7uDLQAMMaODUev3FBw4vkf747jHAgTVdefz3fSC2jYM0HWKA +3BNb34dc8oGMHa89+MINMPz8+dDrjj5wM/noW7NoA5ybNb7wq9kbRobuDdRm +GWC6cFSI2BUvcD9t13+BYYCJ4zk2osc8wXuH/pJSkwE+F6l7LrfDEwKUZCVr +WgzQO6GvzZHiCQcbp927HxigXGLZUblFD8j+cvbN2mcGGCJaujv0sAd00QZe +Hxlmref2Nd7S6B1Amw7o8+AlYyN3fl9jgTsQmq2KW/jJyHFX1eB3kjtMp6mF +rxckY/7Gt69c97pDgcIM/xdRMn77L8HPT98d/rnGmIfLkDEubI6z46kbtDaf +rUnVIuNRxsKt+lVXMD15L7vWjYzGoYXZMTEuQHIv8iHsIOPgwXuDogEuMKeY +rHHMk4z/Nap6tNu7QHGLzRO6LxkHPsjkHpBzAfaZvtXOPWQML6k+NdfmDO3u +38KGY8joeN45MEvYGSyUpbYKFJOxqZAjMPGuE9RNPVIIKCHjzoNrO4/dcgJl +xsHFplIyRvVENKddcAJO2xfX9pSTUehewfLofidoO5A6115HRo0Dpncvr3cC +evN8XvRjMhoOnlWdFnAEsvPLkbHvZBR23jVS0WkPpdLxDPoPMrafJq7Ul9qD +xBeNzAuzZJTdUxHyJcke5o+kG5gvkvGNa0NdA90eaq5CesEqGU0Eytaub7AD +rYnbmm6iFHwbI+YwVm4LqgmnjrZRKHh2eY/rrhpraDG+wWVPpaDMmtl/3met +wWmp9dxrEwqeX6dcdCLcGo6GLVSMm1JwtLdDyVzLGp54+X0StKegZvzRzCuV +VrDHiGy704+CEveN6jLrLOHW3Cfp+XQKrkmvHbAa2gL0ypWbcRkULFf55Dbf +ugVe7ZUkc2dRsNCh9HH79S3wZ9jeiXSeglyxObNdoVvA9gUjGa9ScM71mlnU +X3OYLD89lVlNwY41+3fLbzQHtUCj1g2DFLy1GPnfo3OmcEbR4U/SEAWPJ3+8 +phJrCvMf/Q1GPlBwZW26cnGgKdzzzCwvGKVg6+WcgHFDU3B2+pgnOUVBjtFf +bZXDCMeMU8J52QzxsGemH78BwhORlwpTGwwxkWKtnj9MA80XX7zsVA1R2dNa +KLeRBucy/+TdUjPEMm2l5LZzNPDiVhYM0jLE50lGO0staPBjJerPB0ND1D2l +GpBz2wQI4zK9PXaG6F0pf/FjijEE3tuTXBdhiAI2GwUn3I1gev/kEYtDhmjs +v5cjW9cIjsruC30TZYixIV4dQYJGcCr2gPOvGEM8uNXqdXGHIdyhRsmbpBqi +8KlpdkcjQ1hpSGppv2SIprkVVVYbKXCuqmD+VbshnvfPm7FQNgAZX/nx3R2G +eD17E/E4lwHcECx+N//EEDVHxw5//KoPzP032gjdhtiqHrJWtkwf3qtXZHsO +sP7/iKB6XFcfVG82aox8N8SKtHRypa0etBb2BcxKGGEukedlXJ4ODNsr+EZJ +GWHt4Maw33E6wPZ7v8cyyQituI6o5QXogNk2bgcueSO85XbKy1BXBzrWUClE +NSPk7ZLWE3ihDc/8r/Ga0o0w/H5Y/ntBbRhUDqnMDjLCxrkuF1F7TVjuabgp +sdcIJ+4JJf+S1wSZOI7rl0KN8LsjOhAXNcD79ZW8knAjdK+vzOYt0oDhlBcJ +zGgjVMtJYrv6Wx3Gvuq7DGcZYUBRPsm5Xg3mb64uaTGMUEvkyYiUmyp8dbcs +PNlohE4EcT5jPVUY4DxtPdpshOlDVe/SRVSh2Y90Mfe+EXrUtFeXdm+EE1IG +1L+dRpjcYVT4xXYjCKeHxHYNGWHRitXXLXYqoBH8mi2QnYrjSlvCySHKICch +c+seJxVvi+o+DduqDMLt/tukuKn4c0il55m2MvyUmyl6yk/FutBh5d9LStD0 +hs9cV4KK5fpzMoLpSmBtiSmrG6mYjOf+sFcpwu4N5byXtlIxycXM+QdBAaIf ++YSoOFGR+cE6LHZFHrIDRZ/WOFOxfpNdgdaIPLTcOJb5dDsV+XjNI7kr5UFc +xVro7y4q2iVWHT9iJQ8dKl/E/aKomGI6IeHNvh7UVNfLq1yj4rnwgSlvWRnA +J68Saoqo2EDf1mo+Kw3ue1I/0UuouL3NXTDkkTQk3Zwq3n6Lirx+w0+jwqRh +SLVlw8laKp4cswpNaydB1iYP9e+PqejnkNRkfIwIs2rnyTUzVCx7bDrAFJaE +gWdoIfaTih8y2zfEThPgfti0y6EFKuoocX8Le0aArBqbCPIfKtKHyd8+pRNA +jcpW0cRhjNmNswZLHATwt9mv0E4wxtk+YkQ5uwT0BVut6zMxxulNTgvl8mLQ +zLtAMgBjNHt+VHmaQwyKy4s35Zoa45PMDy07xkQh/Mdfyx2Wxki9Z7ijtFIU +BI7UJQ45GqPY1LYsWRAFy1SFpc/+xhibIRTkGCwCzJLlTwvpxviQXzmwp1QI +yOaHlmwzjDHGUrqz4IgQ1H/6vq7wtDFu0xdTrLIWghq5DxTbc8bovP+VT843 +QajIv3+64LIxrvnX8TRYXxAKM1OMrCqNUUnKb2Hi5To4eUjobH6vMc6fCZZW +p/IBj1h66dRrY7S/Ex15SZQPUqvZWswGjHH7naJXpt94IXl69uv3IWN0aM9J +p1zlheN7+kxMvxqj3+GFNw0cvBDpdXF84pcxlmQERHUMcoPnFiU0ljNBLiuv +KssqLvjbxyPYLm+CBA62R7syuKAwcPqdrZIJ1p73aKwL5oKvqY1HPFVN0CXm +4TKbAhdEdjpWHdM1wXVxZZpquZxwyiFWjmlpgtapac+iT3FA047XK/oHTLDK +uXuS6+Ia8J5o6mqJMMFr92+bpMesAbbowvwth0xwxoxT2shnDVheDtV3PWaC +nWMC+zYor4FX79fsO5hkgt99rVfka9hg0n/zu+o8E9yqHN7eW7FKl96f1rj5 +vgn61T4X5YtboWetBhlktJngpjO59j8cV+js5yyrxx6a4LPyoFFJpRX6ZAPX +rcJOEyxYDazW6VqmN7El54v2mqDv+ulbcdLLdM+chCOLX0ww3Ls5aGPXb3p+ +8zGDe/w0JPm1Wnm5LdHXOXhUkwRp+NjCS4NNe4meMGyoeUSYhjde25wb4lui +7+H6pawtQcMLJarXaQ8W6RTHKPFiORp+K2Sj5Gsv0t+MRP5M0aEhRZszMJS4 +QJfg21e9dTsNDz8JFUwQ+UkvMY+LnvGgYUts0+91P+bounFZ5ue9aNh/Pfph +37M5usPMndcDu1hO1UgQOzlHT32z8Hv3PhqmBOcGmnPO0X8Vx5tFJ9JQ8oeg +kyzXLH3Q+HxvaTkNt5UqV1V5TdP3HC65YlNJw/qSoQbVDdP0xcr6wO93aDhx +NXJ2zfQUXVRxYEmngYbzy5NZrxKm6HY8sjJ379PQfno1413Zd3pLX2lA72sa +9tWFpfEIf6PbCjI1owZoyCtOiKB9mKQPWHUuSr2jodOqkH5nxSR9vulbus8w +DV9arAqM2k7SNYu0b09M0jCevZMpnDFBbxk0jcqcYsX/WEBwaucE3VbcBbRm +aBip7DgirTlBD0o7/PLQAuv9JZ3JsJ5x+vz91EuSv2h4+Ti/yLnicfqJP3m7 +m/7Q0Cfd8SrX4XG6sP4tDe+/NJTiz+frtBqnF+xvWlhdpWHEsvXrd6Rx+v8A +iNWQFQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09512995745120419}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.09512995745120419}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0lO8XAHBZsmVnmLFkS7Jkn2GYuRfZhWxFtmQpSqhUlpC1SCqhTUi+ +hcg6YylFKSopiqQSlaUIWSrKb35/vedzzvu+57nPc5dHwf+AcyA7Gxtb+xo2 +tv8/Fz90PlTOKKFT3J4qzKo70fsKpI6ZDpyAy5MFV3XLNQElXvhLDZyDucz5 +wW9lNIhyKuvnGCgGxe0tlNqyrSAyLXnud38NZG0t+Wha5g0fWxwOzPe3wWyF +s0r9zf1gqTz5frb/FXzJj3S/VhwHv/spF2b6R2DUs+uW/6nT0G7+X8nL4p8w +4uTUP7ijAGQ+Nn711/gLV8u8hGP4S0F8n28ZtzkH1gclrK6lVcA5HctmBzce +tOKjPqFIVYPWOw8r2h4e3D7Yti9asRqeJe/vVY/hwVbHjtQGjWpYO5DzjaeI +BwkB/wSlTash5viodPt3HgzqDJC+sLcaAp4mxFKSebHZ1T7DtrEayIHNNPla +PiRKx3wodamBt/na92eFBfDLTBtnzsFauNRbLhS1QQB7umecXsfWgqfgRt8/ +RgL4S3OjlmBqLQwlyf5j3y2AadfP5AXl18JwGJ+JeL0Atga+fFXdUgvjWz4z +yB6CeKKC810VRx38msmriikSQq/h8SpqRh00qoutrtYL4dy8aufe83UQHZTl +kNwlhL5BIlrZl+tg5V3yVOZPISy37XjbVl4HCaNMiReKwqg3mBDd+rQOkrtv +uAwfEkZR280x4nz1kFES/4KdKIKEyJtWSgn1YKu/V1RCSQRJCxLLkmn1wPPQ +2W2jpgg2PjWS58yqh+TRDe/sTEVwqfp5c9vleohVfPY1Z68IBislyL1tqIew +Qql/Kk0iqLei0b/3Wz1su1KtYbdTFLfY+voTHBpAWOPyAe9AURwgPHi75NIA +3c3JNQcOiOKkS3Nlj0cD2L7bbpiTJIrfeoPC9wQ2gBnpn/n7clF8Gmxnrx3b +APr5tjsPrIiiv1mVhcLNBpDMGT15/qoYdmUVuaX/bgAp9frkX6VieGXm5DqO +fw1AakuN974jhlIB/5lGsTNAbmbT4Y3tYkgK6N5oyc+ADfbhfs3jYrjr6qOp +DBkG6HH+JY/qiSP5r/TdKhoD9C9361jTxDHoc0ZqjSkDyLqFGrctxVGXoPX6 +tgUDqH7mikc8xHGRtoMzaysDTFtOCvDHi6Ogr0DzvBcDHA8RPut2iWO02gFZ +r2gGOPGPf8jrFce4TUWpY3EMcC5ufLsyJI49bybiQxMZ4N7j9aLjhzhGrf23 +wTudAd4a15s8JSRwp/jd7WMXGBD6WevsCT8J1FxnTcqvYsC+mDWZY3slcKhm +3XRFDQPCRHtT7Q9KYNpCrl9TPQMiMSqWkCqBx6lqKq3NDDh2pSW4rFwCb3d5 +bgt/zIA0Vxv6q0UJ/M/BVTnyPQNIdd0k9jUEDKTE1NkMM6BSzHVJh5+AaVM/ +KqRGGfDmlc+ds+sJeIpg+v7KOAOUtx1S3GZNwAuBvCH0nwxo23ptbc9FAl40 +380cW8sE99vKo6vXCah2c+slMi8TJteVtWpVEnB5toYtjp8JIs/qjp5pI+Bf +pyL/GSEm+Nl2TTp8I6D/0z/VEVJM+Gu50P3cRBJ55nwthjcyIbs0uvyvpSQ+ +Vyr1vbmJCcpr2dI1t0ni/D6n9XvUmWD/iM/0dKAk/nKoyOvezIRL5vK19lmS +mMSILqcYMGHz9RtnYvMlMYHWrHWXzIQ2dvV9FcWS+C73VCjVkAkTDww2rGNI +okQ1iMkYM8EQ7fKefpRET6GPgbHIhGfXeg4uT0jityrniVZT1npX3ZzU5yWx ++OUlyrIZE9Lu+fFm8EjhjbGrdA8LJpDkvn5pEpXCMzSflRhLJlTGhbZNykjh +nZ6/WblWTHhjEhVjqyOFPu7itFobJoRcWd4ebSyFVTU13vW2rPiXE/TLLKRw +l1S8d5UdK97mjCleTymMl1zPlbGVCQeNinw7T0hh/s8e+icnJtgWCs7bZUqh +So8vb+42Jihyx6Z3X5BC2WszPebOTOjpc6/uvSmFPKV8fqdcmHDT+KGFe40U +Mt+Layi5MiG+WGdwoFkKl9Yo/atjeXP4Oo4P3VJo8jjsbrsbE7j6j+X5DUjh +0EeLKnRnwhBtTH30kxS+6Ha508ByXYnr/cBvLH/83rZhOxMy+Ntcx+elcNV3 +z8Rplv0jtSZC/kmh9WV5lR8sU99eiZviJmLR28gYmx2sfEA+0XARIlp6tX67 +wvJ46ZHSORIR1+zce2yC5VaBL9TDykQ8vKZfRcuDCbmHnF8saRLRcV/E4n6W +w9617o6mEDG7tGTyBssWZpq/VpCInaUfufpZlrl1KTPeloh29jm2azyZMC/E +o8DuSsRjXpRmZZafRh2uT/Ym4nA8epqyXPx+xIY7mIiXQE1tO8vHtjh9OBlO +RA/2SM0glp3K70auiyYigzc/KIxlVVF17jNJRAw8sH7gAMurR/Mvi5wmorNi +VnIIy28+cmnn5BLxx+i+MB+WKy0PPiQUstZjYZVvx3LK7eEdF28R0aWknFOX +ZS9xhynpWiL+VFVvEGFZL6Y5saCFiBZtHlWTrHj4RlQJCh1EvKfUPdfC8oh1 +btn1F6zv2xSS0llurOIAlbdEvP1yxn8ry9mEiN6bI0QE08Ecfpb3xH0IVv/O +2s/GeOl21v7CZ7uV2wtEfJuf8vsgywS7xmztVSKSZ8/pyLE8Va2yoZaHhE3J +2zoesM7voVROo4EoCUXa9zf5sHzwa9gIdQMJrbcdf5rMygfbrUNRdzeTUKdr +YEqAZcU6G340JKEh1Ts6m5VPPYnK+hZ2JFwwfj6UyMq3/8bPPnnsSsJ9P/SY +M6z8PO646mXrQ8L6/iYeD5Y1ZQdTHCNI2D9vLE5g5TNnshXpVTQJTcce9YWw +8n1osq7SNZmEnUlnJBpZ9XCKeabfI4+EBfKySmaOTNi1/m/oUCEJv8ikLMQ6 +sOo7NYTNt4yE3vWHXKpZ9TTmYrEp4C4JlWQc7q61Z8KWH3+iw0ZJmGKufjHA +mnX+1jlqD76TsGW/IX8Eq34rizQHxRZJqG2IvkdY9S3l6mfUyCONLxzNmRFb +mPCd+WiJY7M0/kovj5Fl9Q8FUd//3CnS6L1J1O43ndUfQ3+530JpnN9SK/qC +xoT7suoNDi7SOFI+dWEPq/+cP5F96OJRaezGhmYXVr968m6T8vdEaaS9cL2y +qs+EFf32XnqGNI4yFzJu6DEhaGxB9/NVaRx+0Hn9ozarvux3zm5ul8ZFxu+1 +Aqz+OCKhEvZQQAb/ez+v7ijHBMkDrbKSkjJoeH3jzqsyrP75ZMfzvfIy+P1J +2JMvJCY0RGdoCOnJ4NsfpnsDJVn7+XFm0mOHDIqYXJSSF2aC7q3m4B/FMniP +7dtAChsTEk227SIZyqIdZ9M5VdY8sfYpmKOYyeJWXTPd7EEGCCZ8S3Kzl8Ut +xpsTZvsZcKU9pTTbTxZ9q0ooRa8YwLRt+rb2pCy+FbyeXs+aTzM7lKJ+vpXF +rxbW7vV3GOBzeOHUsxg5XE1Tldc6zprfeWYykylyqNO8erOPNV+/M8/c5s6W +w6eDscGHjjAgemVTj1kJy+EducXhDLiQ5CPR+EwOH3yONWzyZ8Czs4+v3ZBd +jxMj57wG/z/PKy/WHW9dj/qpj0X+cjNgS3/33+kn61E88ac5hZMBDmycVr6v +1uNL7VNf97ExYLdz2Fv4sh4dYi9ndP1qAMsYhfgELnkMy5lvdpxogPD1i9dN +1eVRVlt7KrmzAR4GX5tqj5LHxUsGB+tSG2Dfr9mEJwIKyP7s/edf8/VAjQgi +fBVVwJfCHMRHP1j3r8nBcg4pBcysJfGdnqyHG+/a39AVFfDsVw+y8HA9fLh3 +QaOerIC+m2/TPnfVg2OK0UCRrwKeUMk1eXytHnRFE7ViqhXQp9W5+JJlPfxW +F/6g6aaIFneWCpNO1oFJeUVhbq4SBiqE7E+fr4FZUVs/9zZlHBqKyDL3rYbP +mX7ukdwqWHFA2M1ctwpsfhyx+ULeiAdMlptShsvh+26eg3XxqviU/3zva++b +rPu8JHta2yb00FjCdIkbIPpcJevODzUM2MJsOGJYDDLpVU5ksgae3Es5b3Gv +APLVjYTFgjWx4wH3221zF6GLZGrw8+xmVAvpStp5/wJQZdqytd5oofRt5rWX +7WdBkKP40K4T2vg1ZXHPHpnTsPZ3q8tssjbalIXFlLOfhn/T73UT07TxxZzH +3Op4JvwYJM4WZmqjxcDbxaH6TOipObt/OFcbN0WkNQU5ZcI5/8Qg33Jt/Ils +MnXpGUBo89vh3aeN1M27H6xbewrkEtebeKjoYHjdhSFP3TSoPMij+F5VB1MT +l2U0ZNOAHjTLvUtdB8Wuchet40kDb7v23j3aOqjazfBcfp8KVySCQ49SdXAz +ZfdI1qlUIJZVXspz0EHNipJb6V9TQLyX9vt1lA6+3v3++cVbycC7wavB+bEO +jjUN2D/wPAEhRLAt79RBlc55mo/tCegSUPzA8UwHlx+lcHNTT0Dm4hhXfY8O +hhxeFIglngDBJwfdJAd1sPfesa0/BxJBNDRj/t13HbzqKnpfxDMRZKqbdANF +dXHTz+SCsYAE2EwjVh3x1sXdcTmDxylxUKu0d5ndTxdFL4dmsJPiwJCv0SrL +XxdzVA1fFazEgln/juGSYF3kih8cl2+LBfeIfJFXEbp4P+l0hY1DLMTfkDyk +kaqLpuPjigqhMdAjQDD6VKmL0cOq1ckNxyDyg2i7LZseilePtPGdjYInHV53 +y9j1MFLOjf1tdBTIVZUy+Lj0cDR8trAxIAq64qkVXbx6mA4L3dWGUaCo4H/B +VkwPS8931Md+Ogwvd1cH26roYd5R6Z+R5MOgPeG4ztZeD7MZh16enzoIP35m +utnk66GZzQq/RVYEDA0UuV+9pIe14vW/KmMjoOtuw/bZKyzfeD+7MTQCStKG +PS4W6WHTId4RS+sI8JTW95ko00P5WatSCkcEPDJ7F3Tyrh4WpcRrDMWEw+Wz +m452juhhTnlP9uCPMEiPoh+T/aKHW0wTH9r1hEHUTpfoiDE93H56+sbAnTBw +2hAXS/yuh2PZbioWkWGwtrEnYe+CHp4f1RYIXtwPEcNHTvLy6KNByQ2eexz7 +wUqr45KNpj6mrRj1knVDYcdaa9ceLX0kXm46e14sFELedwps19VHTp5EDcGF +EMjKeJ4QQNHH9OK2S17MEHgz1hcUb6qPd80y+3diCAQUjurWu+lj39Osjy/c +9sIJkTVP5Y/r40xUef3MhWDIGT+R/F+CPq4rtFV8Hx0Mpa2c9M1J+ljpSyj4 +7BsMXft5qo3T9dFxu+u+LWrBINIllOd+Th+7+m5yWdwPgsITcrszS/WxrWfd +LspsINz7aby81K2PQuSQa/ZBAVD0jOHv8lIfGYQtv3idAiD5hl5XZa8+Hjid +eWHIKABstqtfDBzQR8MK850PBAKgr4lE6f2kj0WFUpZpDbthMvF3ZOW8Pr5g +d7Zb5N8NBGHGZADJAHvLlLxnHu2C3+O6zvdlDNCgxnSAXLMLhh5UNkqvN0B5 +sZu52QW7oOhgaforJQO8b+lzLe7ILtDov6CCmgZo/ahF20RtF5gVHPKXRgNU +ogXO0s77QZiG7uDLQAMMaODUev3FBw4vkf747jHAgTVdefz3fSC2jYM0HWKA +3BNb34dc8oGMHa89+MINMPz8+dDrjj5wM/noW7NoA5ybNb7wq9kbRobuDdRm +GWC6cFSI2BUvcD9t13+BYYCJ4zk2osc8wXuH/pJSkwE+F6l7LrfDEwKUZCVr +WgzQO6GvzZHiCQcbp927HxigXGLZUblFD8j+cvbN2mcGGCJaujv0sAd00QZe +Hxlmref2Nd7S6B1Amw7o8+AlYyN3fl9jgTsQmq2KW/jJyHFX1eB3kjtMp6mF +rxckY/7Gt69c97pDgcIM/xdRMn77L8HPT98d/rnGmIfLkDEubI6z46kbtDaf +rUnVIuNRxsKt+lVXMD15L7vWjYzGoYXZMTEuQHIv8iHsIOPgwXuDogEuMKeY +rHHMk4z/Nap6tNu7QHGLzRO6LxkHPsjkHpBzAfaZvtXOPWQML6k+NdfmDO3u +38KGY8joeN45MEvYGSyUpbYKFJOxqZAjMPGuE9RNPVIIKCHjzoNrO4/dcgJl +xsHFplIyRvVENKddcAJO2xfX9pSTUehewfLofidoO5A6115HRo0Dpncvr3cC +evN8XvRjMhoOnlWdFnAEsvPLkbHvZBR23jVS0WkPpdLxDPoPMrafJq7Ul9qD +xBeNzAuzZJTdUxHyJcke5o+kG5gvkvGNa0NdA90eaq5CesEqGU0Eytaub7AD +rYnbmm6iFHwbI+YwVm4LqgmnjrZRKHh2eY/rrhpraDG+wWVPpaDMmtl/3met +wWmp9dxrEwqeX6dcdCLcGo6GLVSMm1JwtLdDyVzLGp54+X0StKegZvzRzCuV +VrDHiGy704+CEveN6jLrLOHW3Cfp+XQKrkmvHbAa2gL0ypWbcRkULFf55Dbf +ugVe7ZUkc2dRsNCh9HH79S3wZ9jeiXSeglyxObNdoVvA9gUjGa9ScM71mlnU +X3OYLD89lVlNwY41+3fLbzQHtUCj1g2DFLy1GPnfo3OmcEbR4U/SEAWPJ3+8 +phJrCvMf/Q1GPlBwZW26cnGgKdzzzCwvGKVg6+WcgHFDU3B2+pgnOUVBjtFf +bZXDCMeMU8J52QzxsGemH78BwhORlwpTGwwxkWKtnj9MA80XX7zsVA1R2dNa +KLeRBucy/+TdUjPEMm2l5LZzNPDiVhYM0jLE50lGO0staPBjJerPB0ND1D2l +GpBz2wQI4zK9PXaG6F0pf/FjijEE3tuTXBdhiAI2GwUn3I1gev/kEYtDhmjs +v5cjW9cIjsruC30TZYixIV4dQYJGcCr2gPOvGEM8uNXqdXGHIdyhRsmbpBqi +8KlpdkcjQ1hpSGppv2SIprkVVVYbKXCuqmD+VbshnvfPm7FQNgAZX/nx3R2G +eD17E/E4lwHcECx+N//EEDVHxw5//KoPzP032gjdhtiqHrJWtkwf3qtXZHsO +sP7/iKB6XFcfVG82aox8N8SKtHRypa0etBb2BcxKGGEukedlXJ4ODNsr+EZJ +GWHt4Maw33E6wPZ7v8cyyQituI6o5QXogNk2bgcueSO85XbKy1BXBzrWUClE +NSPk7ZLWE3ihDc/8r/Ga0o0w/H5Y/ntBbRhUDqnMDjLCxrkuF1F7TVjuabgp +sdcIJ+4JJf+S1wSZOI7rl0KN8LsjOhAXNcD79ZW8knAjdK+vzOYt0oDhlBcJ +zGgjVMtJYrv6Wx3Gvuq7DGcZYUBRPsm5Xg3mb64uaTGMUEvkyYiUmyp8dbcs +PNlohE4EcT5jPVUY4DxtPdpshOlDVe/SRVSh2Y90Mfe+EXrUtFeXdm+EE1IG +1L+dRpjcYVT4xXYjCKeHxHYNGWHRitXXLXYqoBH8mi2QnYrjSlvCySHKICch +c+seJxVvi+o+DduqDMLt/tukuKn4c0il55m2MvyUmyl6yk/FutBh5d9LStD0 +hs9cV4KK5fpzMoLpSmBtiSmrG6mYjOf+sFcpwu4N5byXtlIxycXM+QdBAaIf ++YSoOFGR+cE6LHZFHrIDRZ/WOFOxfpNdgdaIPLTcOJb5dDsV+XjNI7kr5UFc +xVro7y4q2iVWHT9iJQ8dKl/E/aKomGI6IeHNvh7UVNfLq1yj4rnwgSlvWRnA +J68Saoqo2EDf1mo+Kw3ue1I/0UuouL3NXTDkkTQk3Zwq3n6Lirx+w0+jwqRh +SLVlw8laKp4cswpNaydB1iYP9e+PqejnkNRkfIwIs2rnyTUzVCx7bDrAFJaE +gWdoIfaTih8y2zfEThPgfti0y6EFKuoocX8Le0aArBqbCPIfKtKHyd8+pRNA +jcpW0cRhjNmNswZLHATwt9mv0E4wxtk+YkQ5uwT0BVut6zMxxulNTgvl8mLQ +zLtAMgBjNHt+VHmaQwyKy4s35Zoa45PMDy07xkQh/Mdfyx2Wxki9Z7ijtFIU +BI7UJQ45GqPY1LYsWRAFy1SFpc/+xhibIRTkGCwCzJLlTwvpxviQXzmwp1QI +yOaHlmwzjDHGUrqz4IgQ1H/6vq7wtDFu0xdTrLIWghq5DxTbc8bovP+VT843 +QajIv3+64LIxrvnX8TRYXxAKM1OMrCqNUUnKb2Hi5To4eUjobH6vMc6fCZZW +p/IBj1h66dRrY7S/Ex15SZQPUqvZWswGjHH7naJXpt94IXl69uv3IWN0aM9J +p1zlheN7+kxMvxqj3+GFNw0cvBDpdXF84pcxlmQERHUMcoPnFiU0ljNBLiuv +KssqLvjbxyPYLm+CBA62R7syuKAwcPqdrZIJ1p73aKwL5oKvqY1HPFVN0CXm +4TKbAhdEdjpWHdM1wXVxZZpquZxwyiFWjmlpgtapac+iT3FA047XK/oHTLDK +uXuS6+Ia8J5o6mqJMMFr92+bpMesAbbowvwth0xwxoxT2shnDVheDtV3PWaC +nWMC+zYor4FX79fsO5hkgt99rVfka9hg0n/zu+o8E9yqHN7eW7FKl96f1rj5 +vgn61T4X5YtboWetBhlktJngpjO59j8cV+js5yyrxx6a4LPyoFFJpRX6ZAPX +rcJOEyxYDazW6VqmN7El54v2mqDv+ulbcdLLdM+chCOLX0ww3Ls5aGPXb3p+ +8zGDe/w0JPm1Wnm5LdHXOXhUkwRp+NjCS4NNe4meMGyoeUSYhjde25wb4lui +7+H6pawtQcMLJarXaQ8W6RTHKPFiORp+K2Sj5Gsv0t+MRP5M0aEhRZszMJS4 +QJfg21e9dTsNDz8JFUwQ+UkvMY+LnvGgYUts0+91P+bounFZ5ue9aNh/Pfph +37M5usPMndcDu1hO1UgQOzlHT32z8Hv3PhqmBOcGmnPO0X8Vx5tFJ9JQ8oeg +kyzXLH3Q+HxvaTkNt5UqV1V5TdP3HC65YlNJw/qSoQbVDdP0xcr6wO93aDhx +NXJ2zfQUXVRxYEmngYbzy5NZrxKm6HY8sjJ379PQfno1413Zd3pLX2lA72sa +9tWFpfEIf6PbCjI1owZoyCtOiKB9mKQPWHUuSr2jodOqkH5nxSR9vulbus8w +DV9arAqM2k7SNYu0b09M0jCevZMpnDFBbxk0jcqcYsX/WEBwaucE3VbcBbRm +aBip7DgirTlBD0o7/PLQAuv9JZ3JsJ5x+vz91EuSv2h4+Ti/yLnicfqJP3m7 +m/7Q0Cfd8SrX4XG6sP4tDe+/NJTiz+frtBqnF+xvWlhdpWHEsvXrd6Rx+v8A +iNWQFQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09512995745120419}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09512995745120419}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993850692448388*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"3df1e345-70ac-497e-8162-2755eb24c791"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ -5e6c7b4b5678"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.011071"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.031476"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.049865"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.064634"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.074128"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.079917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.081589"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.07959"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.075388"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.069397"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.062354"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.055005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.047683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.040719"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.034333"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.028605"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.023579"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.019247"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.015565"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.012478"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.009921"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.007825"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.006123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.004756"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.003667"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.002807"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.002134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.001611"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.001208"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.0009"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000667"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993849916589966*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.081589}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993850692617476*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"1c0c0579-0055-435c-8742-421915059db8"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ -3f60fcfd9a79"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0lO8XAHBZsmVnmLFkS7Jkn2GYuRfZhWxFtmQpSqhUlpC1SCqhTUi+ +hcg6YylFKSopiqQSlaUIWSrKb35/vedzzvu+57nPc5dHwf+AcyA7Gxtb+xo2 +tv8/Fz90PlTOKKFT3J4qzKo70fsKpI6ZDpyAy5MFV3XLNQElXvhLDZyDucz5 +wW9lNIhyKuvnGCgGxe0tlNqyrSAyLXnud38NZG0t+Wha5g0fWxwOzPe3wWyF +s0r9zf1gqTz5frb/FXzJj3S/VhwHv/spF2b6R2DUs+uW/6nT0G7+X8nL4p8w +4uTUP7ijAGQ+Nn711/gLV8u8hGP4S0F8n28ZtzkH1gclrK6lVcA5HctmBzce +tOKjPqFIVYPWOw8r2h4e3D7Yti9asRqeJe/vVY/hwVbHjtQGjWpYO5DzjaeI +BwkB/wSlTash5viodPt3HgzqDJC+sLcaAp4mxFKSebHZ1T7DtrEayIHNNPla +PiRKx3wodamBt/na92eFBfDLTBtnzsFauNRbLhS1QQB7umecXsfWgqfgRt8/ +RgL4S3OjlmBqLQwlyf5j3y2AadfP5AXl18JwGJ+JeL0Atga+fFXdUgvjWz4z +yB6CeKKC810VRx38msmriikSQq/h8SpqRh00qoutrtYL4dy8aufe83UQHZTl +kNwlhL5BIlrZl+tg5V3yVOZPISy37XjbVl4HCaNMiReKwqg3mBDd+rQOkrtv +uAwfEkZR280x4nz1kFES/4KdKIKEyJtWSgn1YKu/V1RCSQRJCxLLkmn1wPPQ +2W2jpgg2PjWS58yqh+TRDe/sTEVwqfp5c9vleohVfPY1Z68IBislyL1tqIew +Qql/Kk0iqLei0b/3Wz1su1KtYbdTFLfY+voTHBpAWOPyAe9AURwgPHi75NIA +3c3JNQcOiOKkS3Nlj0cD2L7bbpiTJIrfeoPC9wQ2gBnpn/n7clF8Gmxnrx3b +APr5tjsPrIiiv1mVhcLNBpDMGT15/qoYdmUVuaX/bgAp9frkX6VieGXm5DqO +fw1AakuN974jhlIB/5lGsTNAbmbT4Y3tYkgK6N5oyc+ADfbhfs3jYrjr6qOp +DBkG6HH+JY/qiSP5r/TdKhoD9C9361jTxDHoc0ZqjSkDyLqFGrctxVGXoPX6 +tgUDqH7mikc8xHGRtoMzaysDTFtOCvDHi6Ogr0DzvBcDHA8RPut2iWO02gFZ +r2gGOPGPf8jrFce4TUWpY3EMcC5ufLsyJI49bybiQxMZ4N7j9aLjhzhGrf23 +wTudAd4a15s8JSRwp/jd7WMXGBD6WevsCT8J1FxnTcqvYsC+mDWZY3slcKhm +3XRFDQPCRHtT7Q9KYNpCrl9TPQMiMSqWkCqBx6lqKq3NDDh2pSW4rFwCb3d5 +bgt/zIA0Vxv6q0UJ/M/BVTnyPQNIdd0k9jUEDKTE1NkMM6BSzHVJh5+AaVM/ +KqRGGfDmlc+ds+sJeIpg+v7KOAOUtx1S3GZNwAuBvCH0nwxo23ptbc9FAl40 +380cW8sE99vKo6vXCah2c+slMi8TJteVtWpVEnB5toYtjp8JIs/qjp5pI+Bf +pyL/GSEm+Nl2TTp8I6D/0z/VEVJM+Gu50P3cRBJ55nwthjcyIbs0uvyvpSQ+ +Vyr1vbmJCcpr2dI1t0ni/D6n9XvUmWD/iM/0dKAk/nKoyOvezIRL5vK19lmS +mMSILqcYMGHz9RtnYvMlMYHWrHWXzIQ2dvV9FcWS+C73VCjVkAkTDww2rGNI +okQ1iMkYM8EQ7fKefpRET6GPgbHIhGfXeg4uT0jityrniVZT1npX3ZzU5yWx ++OUlyrIZE9Lu+fFm8EjhjbGrdA8LJpDkvn5pEpXCMzSflRhLJlTGhbZNykjh +nZ6/WblWTHhjEhVjqyOFPu7itFobJoRcWd4ebSyFVTU13vW2rPiXE/TLLKRw +l1S8d5UdK97mjCleTymMl1zPlbGVCQeNinw7T0hh/s8e+icnJtgWCs7bZUqh +So8vb+42Jihyx6Z3X5BC2WszPebOTOjpc6/uvSmFPKV8fqdcmHDT+KGFe40U +Mt+Layi5MiG+WGdwoFkKl9Yo/atjeXP4Oo4P3VJo8jjsbrsbE7j6j+X5DUjh +0EeLKnRnwhBtTH30kxS+6Ha508ByXYnr/cBvLH/83rZhOxMy+Ntcx+elcNV3 +z8Rplv0jtSZC/kmh9WV5lR8sU99eiZviJmLR28gYmx2sfEA+0XARIlp6tX67 +wvJ46ZHSORIR1+zce2yC5VaBL9TDykQ8vKZfRcuDCbmHnF8saRLRcV/E4n6W +w9617o6mEDG7tGTyBssWZpq/VpCInaUfufpZlrl1KTPeloh29jm2azyZMC/E +o8DuSsRjXpRmZZafRh2uT/Ym4nA8epqyXPx+xIY7mIiXQE1tO8vHtjh9OBlO +RA/2SM0glp3K70auiyYigzc/KIxlVVF17jNJRAw8sH7gAMurR/Mvi5wmorNi +VnIIy28+cmnn5BLxx+i+MB+WKy0PPiQUstZjYZVvx3LK7eEdF28R0aWknFOX +ZS9xhynpWiL+VFVvEGFZL6Y5saCFiBZtHlWTrHj4RlQJCh1EvKfUPdfC8oh1 +btn1F6zv2xSS0llurOIAlbdEvP1yxn8ry9mEiN6bI0QE08Ecfpb3xH0IVv/O +2s/GeOl21v7CZ7uV2wtEfJuf8vsgywS7xmztVSKSZ8/pyLE8Va2yoZaHhE3J +2zoesM7voVROo4EoCUXa9zf5sHzwa9gIdQMJrbcdf5rMygfbrUNRdzeTUKdr +YEqAZcU6G340JKEh1Ts6m5VPPYnK+hZ2JFwwfj6UyMq3/8bPPnnsSsJ9P/SY +M6z8PO646mXrQ8L6/iYeD5Y1ZQdTHCNI2D9vLE5g5TNnshXpVTQJTcce9YWw +8n1osq7SNZmEnUlnJBpZ9XCKeabfI4+EBfKySmaOTNi1/m/oUCEJv8ikLMQ6 +sOo7NYTNt4yE3vWHXKpZ9TTmYrEp4C4JlWQc7q61Z8KWH3+iw0ZJmGKufjHA +mnX+1jlqD76TsGW/IX8Eq34rizQHxRZJqG2IvkdY9S3l6mfUyCONLxzNmRFb +mPCd+WiJY7M0/kovj5Fl9Q8FUd//3CnS6L1J1O43ndUfQ3+530JpnN9SK/qC +xoT7suoNDi7SOFI+dWEPq/+cP5F96OJRaezGhmYXVr968m6T8vdEaaS9cL2y +qs+EFf32XnqGNI4yFzJu6DEhaGxB9/NVaRx+0Hn9ozarvux3zm5ul8ZFxu+1 +Aqz+OCKhEvZQQAb/ez+v7ijHBMkDrbKSkjJoeH3jzqsyrP75ZMfzvfIy+P1J +2JMvJCY0RGdoCOnJ4NsfpnsDJVn7+XFm0mOHDIqYXJSSF2aC7q3m4B/FMniP +7dtAChsTEk227SIZyqIdZ9M5VdY8sfYpmKOYyeJWXTPd7EEGCCZ8S3Kzl8Ut +xpsTZvsZcKU9pTTbTxZ9q0ooRa8YwLRt+rb2pCy+FbyeXs+aTzM7lKJ+vpXF +rxbW7vV3GOBzeOHUsxg5XE1Tldc6zprfeWYykylyqNO8erOPNV+/M8/c5s6W +w6eDscGHjjAgemVTj1kJy+EducXhDLiQ5CPR+EwOH3yONWzyZ8Czs4+v3ZBd +jxMj57wG/z/PKy/WHW9dj/qpj0X+cjNgS3/33+kn61E88ac5hZMBDmycVr6v +1uNL7VNf97ExYLdz2Fv4sh4dYi9ndP1qAMsYhfgELnkMy5lvdpxogPD1i9dN +1eVRVlt7KrmzAR4GX5tqj5LHxUsGB+tSG2Dfr9mEJwIKyP7s/edf8/VAjQgi +fBVVwJfCHMRHP1j3r8nBcg4pBcysJfGdnqyHG+/a39AVFfDsVw+y8HA9fLh3 +QaOerIC+m2/TPnfVg2OK0UCRrwKeUMk1eXytHnRFE7ViqhXQp9W5+JJlPfxW +F/6g6aaIFneWCpNO1oFJeUVhbq4SBiqE7E+fr4FZUVs/9zZlHBqKyDL3rYbP +mX7ukdwqWHFA2M1ctwpsfhyx+ULeiAdMlptShsvh+26eg3XxqviU/3zva++b +rPu8JHta2yb00FjCdIkbIPpcJevODzUM2MJsOGJYDDLpVU5ksgae3Es5b3Gv +APLVjYTFgjWx4wH3221zF6GLZGrw8+xmVAvpStp5/wJQZdqytd5oofRt5rWX +7WdBkKP40K4T2vg1ZXHPHpnTsPZ3q8tssjbalIXFlLOfhn/T73UT07TxxZzH +3Op4JvwYJM4WZmqjxcDbxaH6TOipObt/OFcbN0WkNQU5ZcI5/8Qg33Jt/Ils +MnXpGUBo89vh3aeN1M27H6xbewrkEtebeKjoYHjdhSFP3TSoPMij+F5VB1MT +l2U0ZNOAHjTLvUtdB8Wuchet40kDb7v23j3aOqjazfBcfp8KVySCQ49SdXAz +ZfdI1qlUIJZVXspz0EHNipJb6V9TQLyX9vt1lA6+3v3++cVbycC7wavB+bEO +jjUN2D/wPAEhRLAt79RBlc55mo/tCegSUPzA8UwHlx+lcHNTT0Dm4hhXfY8O +hhxeFIglngDBJwfdJAd1sPfesa0/BxJBNDRj/t13HbzqKnpfxDMRZKqbdANF +dXHTz+SCsYAE2EwjVh3x1sXdcTmDxylxUKu0d5ndTxdFL4dmsJPiwJCv0SrL +XxdzVA1fFazEgln/juGSYF3kih8cl2+LBfeIfJFXEbp4P+l0hY1DLMTfkDyk +kaqLpuPjigqhMdAjQDD6VKmL0cOq1ckNxyDyg2i7LZseilePtPGdjYInHV53 +y9j1MFLOjf1tdBTIVZUy+Lj0cDR8trAxIAq64qkVXbx6mA4L3dWGUaCo4H/B +VkwPS8931Md+Ogwvd1cH26roYd5R6Z+R5MOgPeG4ztZeD7MZh16enzoIP35m +utnk66GZzQq/RVYEDA0UuV+9pIe14vW/KmMjoOtuw/bZKyzfeD+7MTQCStKG +PS4W6WHTId4RS+sI8JTW95ko00P5WatSCkcEPDJ7F3Tyrh4WpcRrDMWEw+Wz +m452juhhTnlP9uCPMEiPoh+T/aKHW0wTH9r1hEHUTpfoiDE93H56+sbAnTBw +2hAXS/yuh2PZbioWkWGwtrEnYe+CHp4f1RYIXtwPEcNHTvLy6KNByQ2eexz7 +wUqr45KNpj6mrRj1knVDYcdaa9ceLX0kXm46e14sFELedwps19VHTp5EDcGF +EMjKeJ4QQNHH9OK2S17MEHgz1hcUb6qPd80y+3diCAQUjurWu+lj39Osjy/c +9sIJkTVP5Y/r40xUef3MhWDIGT+R/F+CPq4rtFV8Hx0Mpa2c9M1J+ljpSyj4 +7BsMXft5qo3T9dFxu+u+LWrBINIllOd+Th+7+m5yWdwPgsITcrszS/WxrWfd +LspsINz7aby81K2PQuSQa/ZBAVD0jOHv8lIfGYQtv3idAiD5hl5XZa8+Hjid +eWHIKABstqtfDBzQR8MK850PBAKgr4lE6f2kj0WFUpZpDbthMvF3ZOW8Pr5g +d7Zb5N8NBGHGZADJAHvLlLxnHu2C3+O6zvdlDNCgxnSAXLMLhh5UNkqvN0B5 +sZu52QW7oOhgaforJQO8b+lzLe7ILtDov6CCmgZo/ahF20RtF5gVHPKXRgNU +ogXO0s77QZiG7uDLQAMMaODUev3FBw4vkf747jHAgTVdefz3fSC2jYM0HWKA +3BNb34dc8oGMHa89+MINMPz8+dDrjj5wM/noW7NoA5ybNb7wq9kbRobuDdRm +GWC6cFSI2BUvcD9t13+BYYCJ4zk2osc8wXuH/pJSkwE+F6l7LrfDEwKUZCVr +WgzQO6GvzZHiCQcbp927HxigXGLZUblFD8j+cvbN2mcGGCJaujv0sAd00QZe +Hxlmref2Nd7S6B1Amw7o8+AlYyN3fl9jgTsQmq2KW/jJyHFX1eB3kjtMp6mF +rxckY/7Gt69c97pDgcIM/xdRMn77L8HPT98d/rnGmIfLkDEubI6z46kbtDaf +rUnVIuNRxsKt+lVXMD15L7vWjYzGoYXZMTEuQHIv8iHsIOPgwXuDogEuMKeY +rHHMk4z/Nap6tNu7QHGLzRO6LxkHPsjkHpBzAfaZvtXOPWQML6k+NdfmDO3u +38KGY8joeN45MEvYGSyUpbYKFJOxqZAjMPGuE9RNPVIIKCHjzoNrO4/dcgJl +xsHFplIyRvVENKddcAJO2xfX9pSTUehewfLofidoO5A6115HRo0Dpncvr3cC +evN8XvRjMhoOnlWdFnAEsvPLkbHvZBR23jVS0WkPpdLxDPoPMrafJq7Ul9qD +xBeNzAuzZJTdUxHyJcke5o+kG5gvkvGNa0NdA90eaq5CesEqGU0Eytaub7AD +rYnbmm6iFHwbI+YwVm4LqgmnjrZRKHh2eY/rrhpraDG+wWVPpaDMmtl/3met +wWmp9dxrEwqeX6dcdCLcGo6GLVSMm1JwtLdDyVzLGp54+X0StKegZvzRzCuV +VrDHiGy704+CEveN6jLrLOHW3Cfp+XQKrkmvHbAa2gL0ypWbcRkULFf55Dbf +ugVe7ZUkc2dRsNCh9HH79S3wZ9jeiXSeglyxObNdoVvA9gUjGa9ScM71mlnU +X3OYLD89lVlNwY41+3fLbzQHtUCj1g2DFLy1GPnfo3OmcEbR4U/SEAWPJ3+8 +phJrCvMf/Q1GPlBwZW26cnGgKdzzzCwvGKVg6+WcgHFDU3B2+pgnOUVBjtFf +bZXDCMeMU8J52QzxsGemH78BwhORlwpTGwwxkWKtnj9MA80XX7zsVA1R2dNa +KLeRBucy/+TdUjPEMm2l5LZzNPDiVhYM0jLE50lGO0staPBjJerPB0ND1D2l +GpBz2wQI4zK9PXaG6F0pf/FjijEE3tuTXBdhiAI2GwUn3I1gev/kEYtDhmjs +v5cjW9cIjsruC30TZYixIV4dQYJGcCr2gPOvGEM8uNXqdXGHIdyhRsmbpBqi +8KlpdkcjQ1hpSGppv2SIprkVVVYbKXCuqmD+VbshnvfPm7FQNgAZX/nx3R2G +eD17E/E4lwHcECx+N//EEDVHxw5//KoPzP032gjdhtiqHrJWtkwf3qtXZHsO +sP7/iKB6XFcfVG82aox8N8SKtHRypa0etBb2BcxKGGEukedlXJ4ODNsr+EZJ +GWHt4Maw33E6wPZ7v8cyyQituI6o5QXogNk2bgcueSO85XbKy1BXBzrWUClE +NSPk7ZLWE3ihDc/8r/Ga0o0w/H5Y/ntBbRhUDqnMDjLCxrkuF1F7TVjuabgp +sdcIJ+4JJf+S1wSZOI7rl0KN8LsjOhAXNcD79ZW8knAjdK+vzOYt0oDhlBcJ +zGgjVMtJYrv6Wx3Gvuq7DGcZYUBRPsm5Xg3mb64uaTGMUEvkyYiUmyp8dbcs +PNlohE4EcT5jPVUY4DxtPdpshOlDVe/SRVSh2Y90Mfe+EXrUtFeXdm+EE1IG +1L+dRpjcYVT4xXYjCKeHxHYNGWHRitXXLXYqoBH8mi2QnYrjSlvCySHKICch +c+seJxVvi+o+DduqDMLt/tukuKn4c0il55m2MvyUmyl6yk/FutBh5d9LStD0 +hs9cV4KK5fpzMoLpSmBtiSmrG6mYjOf+sFcpwu4N5byXtlIxycXM+QdBAaIf ++YSoOFGR+cE6LHZFHrIDRZ/WOFOxfpNdgdaIPLTcOJb5dDsV+XjNI7kr5UFc +xVro7y4q2iVWHT9iJQ8dKl/E/aKomGI6IeHNvh7UVNfLq1yj4rnwgSlvWRnA +J68Saoqo2EDf1mo+Kw3ue1I/0UuouL3NXTDkkTQk3Zwq3n6Lirx+w0+jwqRh +SLVlw8laKp4cswpNaydB1iYP9e+PqejnkNRkfIwIs2rnyTUzVCx7bDrAFJaE +gWdoIfaTih8y2zfEThPgfti0y6EFKuoocX8Le0aArBqbCPIfKtKHyd8+pRNA +jcpW0cRhjNmNswZLHATwt9mv0E4wxtk+YkQ5uwT0BVut6zMxxulNTgvl8mLQ +zLtAMgBjNHt+VHmaQwyKy4s35Zoa45PMDy07xkQh/Mdfyx2Wxki9Z7ijtFIU +BI7UJQ45GqPY1LYsWRAFy1SFpc/+xhibIRTkGCwCzJLlTwvpxviQXzmwp1QI +yOaHlmwzjDHGUrqz4IgQ1H/6vq7wtDFu0xdTrLIWghq5DxTbc8bovP+VT843 +QajIv3+64LIxrvnX8TRYXxAKM1OMrCqNUUnKb2Hi5To4eUjobH6vMc6fCZZW +p/IBj1h66dRrY7S/Ex15SZQPUqvZWswGjHH7naJXpt94IXl69uv3IWN0aM9J +p1zlheN7+kxMvxqj3+GFNw0cvBDpdXF84pcxlmQERHUMcoPnFiU0ljNBLiuv +KssqLvjbxyPYLm+CBA62R7syuKAwcPqdrZIJ1p73aKwL5oKvqY1HPFVN0CXm +4TKbAhdEdjpWHdM1wXVxZZpquZxwyiFWjmlpgtapac+iT3FA047XK/oHTLDK +uXuS6+Ia8J5o6mqJMMFr92+bpMesAbbowvwth0xwxoxT2shnDVheDtV3PWaC +nWMC+zYor4FX79fsO5hkgt99rVfka9hg0n/zu+o8E9yqHN7eW7FKl96f1rj5 +vgn61T4X5YtboWetBhlktJngpjO59j8cV+js5yyrxx6a4LPyoFFJpRX6ZAPX +rcJOEyxYDazW6VqmN7El54v2mqDv+ulbcdLLdM+chCOLX0ww3Ls5aGPXb3p+ +8zGDe/w0JPm1Wnm5LdHXOXhUkwRp+NjCS4NNe4meMGyoeUSYhjde25wb4lui +7+H6pawtQcMLJarXaQ8W6RTHKPFiORp+K2Sj5Gsv0t+MRP5M0aEhRZszMJS4 +QJfg21e9dTsNDz8JFUwQ+UkvMY+LnvGgYUts0+91P+bounFZ5ue9aNh/Pfph +37M5usPMndcDu1hO1UgQOzlHT32z8Hv3PhqmBOcGmnPO0X8Vx5tFJ9JQ8oeg +kyzXLH3Q+HxvaTkNt5UqV1V5TdP3HC65YlNJw/qSoQbVDdP0xcr6wO93aDhx +NXJ2zfQUXVRxYEmngYbzy5NZrxKm6HY8sjJ379PQfno1413Zd3pLX2lA72sa +9tWFpfEIf6PbCjI1owZoyCtOiKB9mKQPWHUuSr2jodOqkH5nxSR9vulbus8w +DV9arAqM2k7SNYu0b09M0jCevZMpnDFBbxk0jcqcYsX/WEBwaucE3VbcBbRm +aBip7DgirTlBD0o7/PLQAuv9JZ3JsJ5x+vz91EuSv2h4+Ti/yLnicfqJP3m7 +m/7Q0Cfd8SrX4XG6sP4tDe+/NJTiz+frtBqnF+xvWlhdpWHEsvXrd6Rx+v8A +iNWQFQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0lO8XAHBZsmVnmLFkS7Jkn2GYuRfZhWxFtmQpSqhUlpC1SCqhTUi+ +hcg6YylFKSopiqQSlaUIWSrKb35/vedzzvu+57nPc5dHwf+AcyA7Gxtb+xo2 +tv8/Fz90PlTOKKFT3J4qzKo70fsKpI6ZDpyAy5MFV3XLNQElXvhLDZyDucz5 +wW9lNIhyKuvnGCgGxe0tlNqyrSAyLXnud38NZG0t+Wha5g0fWxwOzPe3wWyF +s0r9zf1gqTz5frb/FXzJj3S/VhwHv/spF2b6R2DUs+uW/6nT0G7+X8nL4p8w +4uTUP7ijAGQ+Nn711/gLV8u8hGP4S0F8n28ZtzkH1gclrK6lVcA5HctmBzce +tOKjPqFIVYPWOw8r2h4e3D7Yti9asRqeJe/vVY/hwVbHjtQGjWpYO5DzjaeI +BwkB/wSlTash5viodPt3HgzqDJC+sLcaAp4mxFKSebHZ1T7DtrEayIHNNPla +PiRKx3wodamBt/na92eFBfDLTBtnzsFauNRbLhS1QQB7umecXsfWgqfgRt8/ +RgL4S3OjlmBqLQwlyf5j3y2AadfP5AXl18JwGJ+JeL0Atga+fFXdUgvjWz4z +yB6CeKKC810VRx38msmriikSQq/h8SpqRh00qoutrtYL4dy8aufe83UQHZTl +kNwlhL5BIlrZl+tg5V3yVOZPISy37XjbVl4HCaNMiReKwqg3mBDd+rQOkrtv +uAwfEkZR280x4nz1kFES/4KdKIKEyJtWSgn1YKu/V1RCSQRJCxLLkmn1wPPQ +2W2jpgg2PjWS58yqh+TRDe/sTEVwqfp5c9vleohVfPY1Z68IBislyL1tqIew +Qql/Kk0iqLei0b/3Wz1su1KtYbdTFLfY+voTHBpAWOPyAe9AURwgPHi75NIA +3c3JNQcOiOKkS3Nlj0cD2L7bbpiTJIrfeoPC9wQ2gBnpn/n7clF8Gmxnrx3b +APr5tjsPrIiiv1mVhcLNBpDMGT15/qoYdmUVuaX/bgAp9frkX6VieGXm5DqO +fw1AakuN974jhlIB/5lGsTNAbmbT4Y3tYkgK6N5oyc+ADfbhfs3jYrjr6qOp +DBkG6HH+JY/qiSP5r/TdKhoD9C9361jTxDHoc0ZqjSkDyLqFGrctxVGXoPX6 +tgUDqH7mikc8xHGRtoMzaysDTFtOCvDHi6Ogr0DzvBcDHA8RPut2iWO02gFZ +r2gGOPGPf8jrFce4TUWpY3EMcC5ufLsyJI49bybiQxMZ4N7j9aLjhzhGrf23 +wTudAd4a15s8JSRwp/jd7WMXGBD6WevsCT8J1FxnTcqvYsC+mDWZY3slcKhm +3XRFDQPCRHtT7Q9KYNpCrl9TPQMiMSqWkCqBx6lqKq3NDDh2pSW4rFwCb3d5 +bgt/zIA0Vxv6q0UJ/M/BVTnyPQNIdd0k9jUEDKTE1NkMM6BSzHVJh5+AaVM/ +KqRGGfDmlc+ds+sJeIpg+v7KOAOUtx1S3GZNwAuBvCH0nwxo23ptbc9FAl40 +380cW8sE99vKo6vXCah2c+slMi8TJteVtWpVEnB5toYtjp8JIs/qjp5pI+Bf +pyL/GSEm+Nl2TTp8I6D/0z/VEVJM+Gu50P3cRBJ55nwthjcyIbs0uvyvpSQ+ +Vyr1vbmJCcpr2dI1t0ni/D6n9XvUmWD/iM/0dKAk/nKoyOvezIRL5vK19lmS +mMSILqcYMGHz9RtnYvMlMYHWrHWXzIQ2dvV9FcWS+C73VCjVkAkTDww2rGNI +okQ1iMkYM8EQ7fKefpRET6GPgbHIhGfXeg4uT0jityrniVZT1npX3ZzU5yWx ++OUlyrIZE9Lu+fFm8EjhjbGrdA8LJpDkvn5pEpXCMzSflRhLJlTGhbZNykjh +nZ6/WblWTHhjEhVjqyOFPu7itFobJoRcWd4ebSyFVTU13vW2rPiXE/TLLKRw +l1S8d5UdK97mjCleTymMl1zPlbGVCQeNinw7T0hh/s8e+icnJtgWCs7bZUqh +So8vb+42Jihyx6Z3X5BC2WszPebOTOjpc6/uvSmFPKV8fqdcmHDT+KGFe40U +Mt+Layi5MiG+WGdwoFkKl9Yo/atjeXP4Oo4P3VJo8jjsbrsbE7j6j+X5DUjh +0EeLKnRnwhBtTH30kxS+6Ha508ByXYnr/cBvLH/83rZhOxMy+Ntcx+elcNV3 +z8Rplv0jtSZC/kmh9WV5lR8sU99eiZviJmLR28gYmx2sfEA+0XARIlp6tX67 +wvJ46ZHSORIR1+zce2yC5VaBL9TDykQ8vKZfRcuDCbmHnF8saRLRcV/E4n6W +w9617o6mEDG7tGTyBssWZpq/VpCInaUfufpZlrl1KTPeloh29jm2azyZMC/E +o8DuSsRjXpRmZZafRh2uT/Ym4nA8epqyXPx+xIY7mIiXQE1tO8vHtjh9OBlO +RA/2SM0glp3K70auiyYigzc/KIxlVVF17jNJRAw8sH7gAMurR/Mvi5wmorNi +VnIIy28+cmnn5BLxx+i+MB+WKy0PPiQUstZjYZVvx3LK7eEdF28R0aWknFOX +ZS9xhynpWiL+VFVvEGFZL6Y5saCFiBZtHlWTrHj4RlQJCh1EvKfUPdfC8oh1 +btn1F6zv2xSS0llurOIAlbdEvP1yxn8ry9mEiN6bI0QE08Ecfpb3xH0IVv/O +2s/GeOl21v7CZ7uV2wtEfJuf8vsgywS7xmztVSKSZ8/pyLE8Va2yoZaHhE3J +2zoesM7voVROo4EoCUXa9zf5sHzwa9gIdQMJrbcdf5rMygfbrUNRdzeTUKdr +YEqAZcU6G340JKEh1Ts6m5VPPYnK+hZ2JFwwfj6UyMq3/8bPPnnsSsJ9P/SY +M6z8PO646mXrQ8L6/iYeD5Y1ZQdTHCNI2D9vLE5g5TNnshXpVTQJTcce9YWw +8n1osq7SNZmEnUlnJBpZ9XCKeabfI4+EBfKySmaOTNi1/m/oUCEJv8ikLMQ6 +sOo7NYTNt4yE3vWHXKpZ9TTmYrEp4C4JlWQc7q61Z8KWH3+iw0ZJmGKufjHA +mnX+1jlqD76TsGW/IX8Eq34rizQHxRZJqG2IvkdY9S3l6mfUyCONLxzNmRFb +mPCd+WiJY7M0/kovj5Fl9Q8FUd//3CnS6L1J1O43ndUfQ3+530JpnN9SK/qC +xoT7suoNDi7SOFI+dWEPq/+cP5F96OJRaezGhmYXVr968m6T8vdEaaS9cL2y +qs+EFf32XnqGNI4yFzJu6DEhaGxB9/NVaRx+0Hn9ozarvux3zm5ul8ZFxu+1 +Aqz+OCKhEvZQQAb/ez+v7ijHBMkDrbKSkjJoeH3jzqsyrP75ZMfzvfIy+P1J +2JMvJCY0RGdoCOnJ4NsfpnsDJVn7+XFm0mOHDIqYXJSSF2aC7q3m4B/FMniP +7dtAChsTEk227SIZyqIdZ9M5VdY8sfYpmKOYyeJWXTPd7EEGCCZ8S3Kzl8Ut +xpsTZvsZcKU9pTTbTxZ9q0ooRa8YwLRt+rb2pCy+FbyeXs+aTzM7lKJ+vpXF +rxbW7vV3GOBzeOHUsxg5XE1Tldc6zprfeWYykylyqNO8erOPNV+/M8/c5s6W +w6eDscGHjjAgemVTj1kJy+EducXhDLiQ5CPR+EwOH3yONWzyZ8Czs4+v3ZBd +jxMj57wG/z/PKy/WHW9dj/qpj0X+cjNgS3/33+kn61E88ac5hZMBDmycVr6v +1uNL7VNf97ExYLdz2Fv4sh4dYi9ndP1qAMsYhfgELnkMy5lvdpxogPD1i9dN +1eVRVlt7KrmzAR4GX5tqj5LHxUsGB+tSG2Dfr9mEJwIKyP7s/edf8/VAjQgi +fBVVwJfCHMRHP1j3r8nBcg4pBcysJfGdnqyHG+/a39AVFfDsVw+y8HA9fLh3 +QaOerIC+m2/TPnfVg2OK0UCRrwKeUMk1eXytHnRFE7ViqhXQp9W5+JJlPfxW +F/6g6aaIFneWCpNO1oFJeUVhbq4SBiqE7E+fr4FZUVs/9zZlHBqKyDL3rYbP +mX7ukdwqWHFA2M1ctwpsfhyx+ULeiAdMlptShsvh+26eg3XxqviU/3zva++b +rPu8JHta2yb00FjCdIkbIPpcJevODzUM2MJsOGJYDDLpVU5ksgae3Es5b3Gv +APLVjYTFgjWx4wH3221zF6GLZGrw8+xmVAvpStp5/wJQZdqytd5oofRt5rWX +7WdBkKP40K4T2vg1ZXHPHpnTsPZ3q8tssjbalIXFlLOfhn/T73UT07TxxZzH +3Op4JvwYJM4WZmqjxcDbxaH6TOipObt/OFcbN0WkNQU5ZcI5/8Qg33Jt/Ils +MnXpGUBo89vh3aeN1M27H6xbewrkEtebeKjoYHjdhSFP3TSoPMij+F5VB1MT +l2U0ZNOAHjTLvUtdB8Wuchet40kDb7v23j3aOqjazfBcfp8KVySCQ49SdXAz +ZfdI1qlUIJZVXspz0EHNipJb6V9TQLyX9vt1lA6+3v3++cVbycC7wavB+bEO +jjUN2D/wPAEhRLAt79RBlc55mo/tCegSUPzA8UwHlx+lcHNTT0Dm4hhXfY8O +hhxeFIglngDBJwfdJAd1sPfesa0/BxJBNDRj/t13HbzqKnpfxDMRZKqbdANF +dXHTz+SCsYAE2EwjVh3x1sXdcTmDxylxUKu0d5ndTxdFL4dmsJPiwJCv0SrL +XxdzVA1fFazEgln/juGSYF3kih8cl2+LBfeIfJFXEbp4P+l0hY1DLMTfkDyk +kaqLpuPjigqhMdAjQDD6VKmL0cOq1ckNxyDyg2i7LZseilePtPGdjYInHV53 +y9j1MFLOjf1tdBTIVZUy+Lj0cDR8trAxIAq64qkVXbx6mA4L3dWGUaCo4H/B +VkwPS8931Md+Ogwvd1cH26roYd5R6Z+R5MOgPeG4ztZeD7MZh16enzoIP35m +utnk66GZzQq/RVYEDA0UuV+9pIe14vW/KmMjoOtuw/bZKyzfeD+7MTQCStKG +PS4W6WHTId4RS+sI8JTW95ko00P5WatSCkcEPDJ7F3Tyrh4WpcRrDMWEw+Wz +m452juhhTnlP9uCPMEiPoh+T/aKHW0wTH9r1hEHUTpfoiDE93H56+sbAnTBw +2hAXS/yuh2PZbioWkWGwtrEnYe+CHp4f1RYIXtwPEcNHTvLy6KNByQ2eexz7 +wUqr45KNpj6mrRj1knVDYcdaa9ceLX0kXm46e14sFELedwps19VHTp5EDcGF +EMjKeJ4QQNHH9OK2S17MEHgz1hcUb6qPd80y+3diCAQUjurWu+lj39Osjy/c +9sIJkTVP5Y/r40xUef3MhWDIGT+R/F+CPq4rtFV8Hx0Mpa2c9M1J+ljpSyj4 +7BsMXft5qo3T9dFxu+u+LWrBINIllOd+Th+7+m5yWdwPgsITcrszS/WxrWfd +LspsINz7aby81K2PQuSQa/ZBAVD0jOHv8lIfGYQtv3idAiD5hl5XZa8+Hjid +eWHIKABstqtfDBzQR8MK850PBAKgr4lE6f2kj0WFUpZpDbthMvF3ZOW8Pr5g +d7Zb5N8NBGHGZADJAHvLlLxnHu2C3+O6zvdlDNCgxnSAXLMLhh5UNkqvN0B5 +sZu52QW7oOhgaforJQO8b+lzLe7ILtDov6CCmgZo/ahF20RtF5gVHPKXRgNU +ogXO0s77QZiG7uDLQAMMaODUev3FBw4vkf747jHAgTVdefz3fSC2jYM0HWKA +3BNb34dc8oGMHa89+MINMPz8+dDrjj5wM/noW7NoA5ybNb7wq9kbRobuDdRm +GWC6cFSI2BUvcD9t13+BYYCJ4zk2osc8wXuH/pJSkwE+F6l7LrfDEwKUZCVr +WgzQO6GvzZHiCQcbp927HxigXGLZUblFD8j+cvbN2mcGGCJaujv0sAd00QZe +Hxlmref2Nd7S6B1Amw7o8+AlYyN3fl9jgTsQmq2KW/jJyHFX1eB3kjtMp6mF +rxckY/7Gt69c97pDgcIM/xdRMn77L8HPT98d/rnGmIfLkDEubI6z46kbtDaf +rUnVIuNRxsKt+lVXMD15L7vWjYzGoYXZMTEuQHIv8iHsIOPgwXuDogEuMKeY +rHHMk4z/Nap6tNu7QHGLzRO6LxkHPsjkHpBzAfaZvtXOPWQML6k+NdfmDO3u +38KGY8joeN45MEvYGSyUpbYKFJOxqZAjMPGuE9RNPVIIKCHjzoNrO4/dcgJl +xsHFplIyRvVENKddcAJO2xfX9pSTUehewfLofidoO5A6115HRo0Dpncvr3cC +evN8XvRjMhoOnlWdFnAEsvPLkbHvZBR23jVS0WkPpdLxDPoPMrafJq7Ul9qD +xBeNzAuzZJTdUxHyJcke5o+kG5gvkvGNa0NdA90eaq5CesEqGU0Eytaub7AD +rYnbmm6iFHwbI+YwVm4LqgmnjrZRKHh2eY/rrhpraDG+wWVPpaDMmtl/3met +wWmp9dxrEwqeX6dcdCLcGo6GLVSMm1JwtLdDyVzLGp54+X0StKegZvzRzCuV +VrDHiGy704+CEveN6jLrLOHW3Cfp+XQKrkmvHbAa2gL0ypWbcRkULFf55Dbf +ugVe7ZUkc2dRsNCh9HH79S3wZ9jeiXSeglyxObNdoVvA9gUjGa9ScM71mlnU +X3OYLD89lVlNwY41+3fLbzQHtUCj1g2DFLy1GPnfo3OmcEbR4U/SEAWPJ3+8 +phJrCvMf/Q1GPlBwZW26cnGgKdzzzCwvGKVg6+WcgHFDU3B2+pgnOUVBjtFf +bZXDCMeMU8J52QzxsGemH78BwhORlwpTGwwxkWKtnj9MA80XX7zsVA1R2dNa +KLeRBucy/+TdUjPEMm2l5LZzNPDiVhYM0jLE50lGO0staPBjJerPB0ND1D2l +GpBz2wQI4zK9PXaG6F0pf/FjijEE3tuTXBdhiAI2GwUn3I1gev/kEYtDhmjs +v5cjW9cIjsruC30TZYixIV4dQYJGcCr2gPOvGEM8uNXqdXGHIdyhRsmbpBqi +8KlpdkcjQ1hpSGppv2SIprkVVVYbKXCuqmD+VbshnvfPm7FQNgAZX/nx3R2G +eD17E/E4lwHcECx+N//EEDVHxw5//KoPzP032gjdhtiqHrJWtkwf3qtXZHsO +sP7/iKB6XFcfVG82aox8N8SKtHRypa0etBb2BcxKGGEukedlXJ4ODNsr+EZJ +GWHt4Maw33E6wPZ7v8cyyQituI6o5QXogNk2bgcueSO85XbKy1BXBzrWUClE +NSPk7ZLWE3ihDc/8r/Ga0o0w/H5Y/ntBbRhUDqnMDjLCxrkuF1F7TVjuabgp +sdcIJ+4JJf+S1wSZOI7rl0KN8LsjOhAXNcD79ZW8knAjdK+vzOYt0oDhlBcJ +zGgjVMtJYrv6Wx3Gvuq7DGcZYUBRPsm5Xg3mb64uaTGMUEvkyYiUmyp8dbcs +PNlohE4EcT5jPVUY4DxtPdpshOlDVe/SRVSh2Y90Mfe+EXrUtFeXdm+EE1IG +1L+dRpjcYVT4xXYjCKeHxHYNGWHRitXXLXYqoBH8mi2QnYrjSlvCySHKICch +c+seJxVvi+o+DduqDMLt/tukuKn4c0il55m2MvyUmyl6yk/FutBh5d9LStD0 +hs9cV4KK5fpzMoLpSmBtiSmrG6mYjOf+sFcpwu4N5byXtlIxycXM+QdBAaIf ++YSoOFGR+cE6LHZFHrIDRZ/WOFOxfpNdgdaIPLTcOJb5dDsV+XjNI7kr5UFc +xVro7y4q2iVWHT9iJQ8dKl/E/aKomGI6IeHNvh7UVNfLq1yj4rnwgSlvWRnA +J68Saoqo2EDf1mo+Kw3ue1I/0UuouL3NXTDkkTQk3Zwq3n6Lirx+w0+jwqRh +SLVlw8laKp4cswpNaydB1iYP9e+PqejnkNRkfIwIs2rnyTUzVCx7bDrAFJaE +gWdoIfaTih8y2zfEThPgfti0y6EFKuoocX8Le0aArBqbCPIfKtKHyd8+pRNA +jcpW0cRhjNmNswZLHATwt9mv0E4wxtk+YkQ5uwT0BVut6zMxxulNTgvl8mLQ +zLtAMgBjNHt+VHmaQwyKy4s35Zoa45PMDy07xkQh/Mdfyx2Wxki9Z7ijtFIU +BI7UJQ45GqPY1LYsWRAFy1SFpc/+xhibIRTkGCwCzJLlTwvpxviQXzmwp1QI +yOaHlmwzjDHGUrqz4IgQ1H/6vq7wtDFu0xdTrLIWghq5DxTbc8bovP+VT843 +QajIv3+64LIxrvnX8TRYXxAKM1OMrCqNUUnKb2Hi5To4eUjobH6vMc6fCZZW +p/IBj1h66dRrY7S/Ex15SZQPUqvZWswGjHH7naJXpt94IXl69uv3IWN0aM9J +p1zlheN7+kxMvxqj3+GFNw0cvBDpdXF84pcxlmQERHUMcoPnFiU0ljNBLiuv +KssqLvjbxyPYLm+CBA62R7syuKAwcPqdrZIJ1p73aKwL5oKvqY1HPFVN0CXm +4TKbAhdEdjpWHdM1wXVxZZpquZxwyiFWjmlpgtapac+iT3FA047XK/oHTLDK +uXuS6+Ia8J5o6mqJMMFr92+bpMesAbbowvwth0xwxoxT2shnDVheDtV3PWaC +nWMC+zYor4FX79fsO5hkgt99rVfka9hg0n/zu+o8E9yqHN7eW7FKl96f1rj5 +vgn61T4X5YtboWetBhlktJngpjO59j8cV+js5yyrxx6a4LPyoFFJpRX6ZAPX +rcJOEyxYDazW6VqmN7El54v2mqDv+ulbcdLLdM+chCOLX0ww3Ls5aGPXb3p+ +8zGDe/w0JPm1Wnm5LdHXOXhUkwRp+NjCS4NNe4meMGyoeUSYhjde25wb4lui +7+H6pawtQcMLJarXaQ8W6RTHKPFiORp+K2Sj5Gsv0t+MRP5M0aEhRZszMJS4 +QJfg21e9dTsNDz8JFUwQ+UkvMY+LnvGgYUts0+91P+bounFZ5ue9aNh/Pfph +37M5usPMndcDu1hO1UgQOzlHT32z8Hv3PhqmBOcGmnPO0X8Vx5tFJ9JQ8oeg +kyzXLH3Q+HxvaTkNt5UqV1V5TdP3HC65YlNJw/qSoQbVDdP0xcr6wO93aDhx +NXJ2zfQUXVRxYEmngYbzy5NZrxKm6HY8sjJ379PQfno1413Zd3pLX2lA72sa +9tWFpfEIf6PbCjI1owZoyCtOiKB9mKQPWHUuSr2jodOqkH5nxSR9vulbus8w +DV9arAqM2k7SNYu0b09M0jCevZMpnDFBbxk0jcqcYsX/WEBwaucE3VbcBbRm +aBip7DgirTlBD0o7/PLQAuv9JZ3JsJ5x+vz91EuSv2h4+Ti/yLnicfqJP3m7 +m/7Q0Cfd8SrX4XG6sP4tDe+/NJTiz+frtBqnF+xvWlhdpWHEsvXrd6Rx+v8A +iNWQFQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09512995745120419}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.09512995745120419}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0lO8XAHBZsmVnmLFkS7Jkn2GYuRfZhWxFtmQpSqhUlpC1SCqhTUi+ +hcg6YylFKSopiqQSlaUIWSrKb35/vedzzvu+57nPc5dHwf+AcyA7Gxtb+xo2 +tv8/Fz90PlTOKKFT3J4qzKo70fsKpI6ZDpyAy5MFV3XLNQElXvhLDZyDucz5 +wW9lNIhyKuvnGCgGxe0tlNqyrSAyLXnud38NZG0t+Wha5g0fWxwOzPe3wWyF +s0r9zf1gqTz5frb/FXzJj3S/VhwHv/spF2b6R2DUs+uW/6nT0G7+X8nL4p8w +4uTUP7ijAGQ+Nn711/gLV8u8hGP4S0F8n28ZtzkH1gclrK6lVcA5HctmBzce +tOKjPqFIVYPWOw8r2h4e3D7Yti9asRqeJe/vVY/hwVbHjtQGjWpYO5DzjaeI +BwkB/wSlTash5viodPt3HgzqDJC+sLcaAp4mxFKSebHZ1T7DtrEayIHNNPla +PiRKx3wodamBt/na92eFBfDLTBtnzsFauNRbLhS1QQB7umecXsfWgqfgRt8/ +RgL4S3OjlmBqLQwlyf5j3y2AadfP5AXl18JwGJ+JeL0Atga+fFXdUgvjWz4z +yB6CeKKC810VRx38msmriikSQq/h8SpqRh00qoutrtYL4dy8aufe83UQHZTl +kNwlhL5BIlrZl+tg5V3yVOZPISy37XjbVl4HCaNMiReKwqg3mBDd+rQOkrtv +uAwfEkZR280x4nz1kFES/4KdKIKEyJtWSgn1YKu/V1RCSQRJCxLLkmn1wPPQ +2W2jpgg2PjWS58yqh+TRDe/sTEVwqfp5c9vleohVfPY1Z68IBislyL1tqIew +Qql/Kk0iqLei0b/3Wz1su1KtYbdTFLfY+voTHBpAWOPyAe9AURwgPHi75NIA +3c3JNQcOiOKkS3Nlj0cD2L7bbpiTJIrfeoPC9wQ2gBnpn/n7clF8Gmxnrx3b +APr5tjsPrIiiv1mVhcLNBpDMGT15/qoYdmUVuaX/bgAp9frkX6VieGXm5DqO +fw1AakuN974jhlIB/5lGsTNAbmbT4Y3tYkgK6N5oyc+ADfbhfs3jYrjr6qOp +DBkG6HH+JY/qiSP5r/TdKhoD9C9361jTxDHoc0ZqjSkDyLqFGrctxVGXoPX6 +tgUDqH7mikc8xHGRtoMzaysDTFtOCvDHi6Ogr0DzvBcDHA8RPut2iWO02gFZ +r2gGOPGPf8jrFce4TUWpY3EMcC5ufLsyJI49bybiQxMZ4N7j9aLjhzhGrf23 +wTudAd4a15s8JSRwp/jd7WMXGBD6WevsCT8J1FxnTcqvYsC+mDWZY3slcKhm +3XRFDQPCRHtT7Q9KYNpCrl9TPQMiMSqWkCqBx6lqKq3NDDh2pSW4rFwCb3d5 +bgt/zIA0Vxv6q0UJ/M/BVTnyPQNIdd0k9jUEDKTE1NkMM6BSzHVJh5+AaVM/ +KqRGGfDmlc+ds+sJeIpg+v7KOAOUtx1S3GZNwAuBvCH0nwxo23ptbc9FAl40 +380cW8sE99vKo6vXCah2c+slMi8TJteVtWpVEnB5toYtjp8JIs/qjp5pI+Bf +pyL/GSEm+Nl2TTp8I6D/0z/VEVJM+Gu50P3cRBJ55nwthjcyIbs0uvyvpSQ+ +Vyr1vbmJCcpr2dI1t0ni/D6n9XvUmWD/iM/0dKAk/nKoyOvezIRL5vK19lmS +mMSILqcYMGHz9RtnYvMlMYHWrHWXzIQ2dvV9FcWS+C73VCjVkAkTDww2rGNI +okQ1iMkYM8EQ7fKefpRET6GPgbHIhGfXeg4uT0jityrniVZT1npX3ZzU5yWx ++OUlyrIZE9Lu+fFm8EjhjbGrdA8LJpDkvn5pEpXCMzSflRhLJlTGhbZNykjh +nZ6/WblWTHhjEhVjqyOFPu7itFobJoRcWd4ebSyFVTU13vW2rPiXE/TLLKRw +l1S8d5UdK97mjCleTymMl1zPlbGVCQeNinw7T0hh/s8e+icnJtgWCs7bZUqh +So8vb+42Jihyx6Z3X5BC2WszPebOTOjpc6/uvSmFPKV8fqdcmHDT+KGFe40U +Mt+Layi5MiG+WGdwoFkKl9Yo/atjeXP4Oo4P3VJo8jjsbrsbE7j6j+X5DUjh +0EeLKnRnwhBtTH30kxS+6Ha508ByXYnr/cBvLH/83rZhOxMy+Ntcx+elcNV3 +z8Rplv0jtSZC/kmh9WV5lR8sU99eiZviJmLR28gYmx2sfEA+0XARIlp6tX67 +wvJ46ZHSORIR1+zce2yC5VaBL9TDykQ8vKZfRcuDCbmHnF8saRLRcV/E4n6W +w9617o6mEDG7tGTyBssWZpq/VpCInaUfufpZlrl1KTPeloh29jm2azyZMC/E +o8DuSsRjXpRmZZafRh2uT/Ym4nA8epqyXPx+xIY7mIiXQE1tO8vHtjh9OBlO +RA/2SM0glp3K70auiyYigzc/KIxlVVF17jNJRAw8sH7gAMurR/Mvi5wmorNi +VnIIy28+cmnn5BLxx+i+MB+WKy0PPiQUstZjYZVvx3LK7eEdF28R0aWknFOX +ZS9xhynpWiL+VFVvEGFZL6Y5saCFiBZtHlWTrHj4RlQJCh1EvKfUPdfC8oh1 +btn1F6zv2xSS0llurOIAlbdEvP1yxn8ry9mEiN6bI0QE08Ecfpb3xH0IVv/O +2s/GeOl21v7CZ7uV2wtEfJuf8vsgywS7xmztVSKSZ8/pyLE8Va2yoZaHhE3J +2zoesM7voVROo4EoCUXa9zf5sHzwa9gIdQMJrbcdf5rMygfbrUNRdzeTUKdr +YEqAZcU6G340JKEh1Ts6m5VPPYnK+hZ2JFwwfj6UyMq3/8bPPnnsSsJ9P/SY +M6z8PO646mXrQ8L6/iYeD5Y1ZQdTHCNI2D9vLE5g5TNnshXpVTQJTcce9YWw +8n1osq7SNZmEnUlnJBpZ9XCKeabfI4+EBfKySmaOTNi1/m/oUCEJv8ikLMQ6 +sOo7NYTNt4yE3vWHXKpZ9TTmYrEp4C4JlWQc7q61Z8KWH3+iw0ZJmGKufjHA +mnX+1jlqD76TsGW/IX8Eq34rizQHxRZJqG2IvkdY9S3l6mfUyCONLxzNmRFb +mPCd+WiJY7M0/kovj5Fl9Q8FUd//3CnS6L1J1O43ndUfQ3+530JpnN9SK/qC +xoT7suoNDi7SOFI+dWEPq/+cP5F96OJRaezGhmYXVr968m6T8vdEaaS9cL2y +qs+EFf32XnqGNI4yFzJu6DEhaGxB9/NVaRx+0Hn9ozarvux3zm5ul8ZFxu+1 +Aqz+OCKhEvZQQAb/ez+v7ijHBMkDrbKSkjJoeH3jzqsyrP75ZMfzvfIy+P1J +2JMvJCY0RGdoCOnJ4NsfpnsDJVn7+XFm0mOHDIqYXJSSF2aC7q3m4B/FMniP +7dtAChsTEk227SIZyqIdZ9M5VdY8sfYpmKOYyeJWXTPd7EEGCCZ8S3Kzl8Ut +xpsTZvsZcKU9pTTbTxZ9q0ooRa8YwLRt+rb2pCy+FbyeXs+aTzM7lKJ+vpXF +rxbW7vV3GOBzeOHUsxg5XE1Tldc6zprfeWYykylyqNO8erOPNV+/M8/c5s6W +w6eDscGHjjAgemVTj1kJy+EducXhDLiQ5CPR+EwOH3yONWzyZ8Czs4+v3ZBd +jxMj57wG/z/PKy/WHW9dj/qpj0X+cjNgS3/33+kn61E88ac5hZMBDmycVr6v +1uNL7VNf97ExYLdz2Fv4sh4dYi9ndP1qAMsYhfgELnkMy5lvdpxogPD1i9dN +1eVRVlt7KrmzAR4GX5tqj5LHxUsGB+tSG2Dfr9mEJwIKyP7s/edf8/VAjQgi +fBVVwJfCHMRHP1j3r8nBcg4pBcysJfGdnqyHG+/a39AVFfDsVw+y8HA9fLh3 +QaOerIC+m2/TPnfVg2OK0UCRrwKeUMk1eXytHnRFE7ViqhXQp9W5+JJlPfxW +F/6g6aaIFneWCpNO1oFJeUVhbq4SBiqE7E+fr4FZUVs/9zZlHBqKyDL3rYbP +mX7ukdwqWHFA2M1ctwpsfhyx+ULeiAdMlptShsvh+26eg3XxqviU/3zva++b +rPu8JHta2yb00FjCdIkbIPpcJevODzUM2MJsOGJYDDLpVU5ksgae3Es5b3Gv +APLVjYTFgjWx4wH3221zF6GLZGrw8+xmVAvpStp5/wJQZdqytd5oofRt5rWX +7WdBkKP40K4T2vg1ZXHPHpnTsPZ3q8tssjbalIXFlLOfhn/T73UT07TxxZzH +3Op4JvwYJM4WZmqjxcDbxaH6TOipObt/OFcbN0WkNQU5ZcI5/8Qg33Jt/Ils +MnXpGUBo89vh3aeN1M27H6xbewrkEtebeKjoYHjdhSFP3TSoPMij+F5VB1MT +l2U0ZNOAHjTLvUtdB8Wuchet40kDb7v23j3aOqjazfBcfp8KVySCQ49SdXAz +ZfdI1qlUIJZVXspz0EHNipJb6V9TQLyX9vt1lA6+3v3++cVbycC7wavB+bEO +jjUN2D/wPAEhRLAt79RBlc55mo/tCegSUPzA8UwHlx+lcHNTT0Dm4hhXfY8O +hhxeFIglngDBJwfdJAd1sPfesa0/BxJBNDRj/t13HbzqKnpfxDMRZKqbdANF +dXHTz+SCsYAE2EwjVh3x1sXdcTmDxylxUKu0d5ndTxdFL4dmsJPiwJCv0SrL +XxdzVA1fFazEgln/juGSYF3kih8cl2+LBfeIfJFXEbp4P+l0hY1DLMTfkDyk +kaqLpuPjigqhMdAjQDD6VKmL0cOq1ckNxyDyg2i7LZseilePtPGdjYInHV53 +y9j1MFLOjf1tdBTIVZUy+Lj0cDR8trAxIAq64qkVXbx6mA4L3dWGUaCo4H/B +VkwPS8931Md+Ogwvd1cH26roYd5R6Z+R5MOgPeG4ztZeD7MZh16enzoIP35m +utnk66GZzQq/RVYEDA0UuV+9pIe14vW/KmMjoOtuw/bZKyzfeD+7MTQCStKG +PS4W6WHTId4RS+sI8JTW95ko00P5WatSCkcEPDJ7F3Tyrh4WpcRrDMWEw+Wz +m452juhhTnlP9uCPMEiPoh+T/aKHW0wTH9r1hEHUTpfoiDE93H56+sbAnTBw +2hAXS/yuh2PZbioWkWGwtrEnYe+CHp4f1RYIXtwPEcNHTvLy6KNByQ2eexz7 +wUqr45KNpj6mrRj1knVDYcdaa9ceLX0kXm46e14sFELedwps19VHTp5EDcGF +EMjKeJ4QQNHH9OK2S17MEHgz1hcUb6qPd80y+3diCAQUjurWu+lj39Osjy/c +9sIJkTVP5Y/r40xUef3MhWDIGT+R/F+CPq4rtFV8Hx0Mpa2c9M1J+ljpSyj4 +7BsMXft5qo3T9dFxu+u+LWrBINIllOd+Th+7+m5yWdwPgsITcrszS/WxrWfd +LspsINz7aby81K2PQuSQa/ZBAVD0jOHv8lIfGYQtv3idAiD5hl5XZa8+Hjid +eWHIKABstqtfDBzQR8MK850PBAKgr4lE6f2kj0WFUpZpDbthMvF3ZOW8Pr5g +d7Zb5N8NBGHGZADJAHvLlLxnHu2C3+O6zvdlDNCgxnSAXLMLhh5UNkqvN0B5 +sZu52QW7oOhgaforJQO8b+lzLe7ILtDov6CCmgZo/ahF20RtF5gVHPKXRgNU +ogXO0s77QZiG7uDLQAMMaODUev3FBw4vkf747jHAgTVdefz3fSC2jYM0HWKA +3BNb34dc8oGMHa89+MINMPz8+dDrjj5wM/noW7NoA5ybNb7wq9kbRobuDdRm +GWC6cFSI2BUvcD9t13+BYYCJ4zk2osc8wXuH/pJSkwE+F6l7LrfDEwKUZCVr +WgzQO6GvzZHiCQcbp927HxigXGLZUblFD8j+cvbN2mcGGCJaujv0sAd00QZe +Hxlmref2Nd7S6B1Amw7o8+AlYyN3fl9jgTsQmq2KW/jJyHFX1eB3kjtMp6mF +rxckY/7Gt69c97pDgcIM/xdRMn77L8HPT98d/rnGmIfLkDEubI6z46kbtDaf +rUnVIuNRxsKt+lVXMD15L7vWjYzGoYXZMTEuQHIv8iHsIOPgwXuDogEuMKeY +rHHMk4z/Nap6tNu7QHGLzRO6LxkHPsjkHpBzAfaZvtXOPWQML6k+NdfmDO3u +38KGY8joeN45MEvYGSyUpbYKFJOxqZAjMPGuE9RNPVIIKCHjzoNrO4/dcgJl +xsHFplIyRvVENKddcAJO2xfX9pSTUehewfLofidoO5A6115HRo0Dpncvr3cC +evN8XvRjMhoOnlWdFnAEsvPLkbHvZBR23jVS0WkPpdLxDPoPMrafJq7Ul9qD +xBeNzAuzZJTdUxHyJcke5o+kG5gvkvGNa0NdA90eaq5CesEqGU0Eytaub7AD +rYnbmm6iFHwbI+YwVm4LqgmnjrZRKHh2eY/rrhpraDG+wWVPpaDMmtl/3met +wWmp9dxrEwqeX6dcdCLcGo6GLVSMm1JwtLdDyVzLGp54+X0StKegZvzRzCuV +VrDHiGy704+CEveN6jLrLOHW3Cfp+XQKrkmvHbAa2gL0ypWbcRkULFf55Dbf +ugVe7ZUkc2dRsNCh9HH79S3wZ9jeiXSeglyxObNdoVvA9gUjGa9ScM71mlnU +X3OYLD89lVlNwY41+3fLbzQHtUCj1g2DFLy1GPnfo3OmcEbR4U/SEAWPJ3+8 +phJrCvMf/Q1GPlBwZW26cnGgKdzzzCwvGKVg6+WcgHFDU3B2+pgnOUVBjtFf +bZXDCMeMU8J52QzxsGemH78BwhORlwpTGwwxkWKtnj9MA80XX7zsVA1R2dNa +KLeRBucy/+TdUjPEMm2l5LZzNPDiVhYM0jLE50lGO0staPBjJerPB0ND1D2l +GpBz2wQI4zK9PXaG6F0pf/FjijEE3tuTXBdhiAI2GwUn3I1gev/kEYtDhmjs +v5cjW9cIjsruC30TZYixIV4dQYJGcCr2gPOvGEM8uNXqdXGHIdyhRsmbpBqi +8KlpdkcjQ1hpSGppv2SIprkVVVYbKXCuqmD+VbshnvfPm7FQNgAZX/nx3R2G +eD17E/E4lwHcECx+N//EEDVHxw5//KoPzP032gjdhtiqHrJWtkwf3qtXZHsO +sP7/iKB6XFcfVG82aox8N8SKtHRypa0etBb2BcxKGGEukedlXJ4ODNsr+EZJ +GWHt4Maw33E6wPZ7v8cyyQituI6o5QXogNk2bgcueSO85XbKy1BXBzrWUClE +NSPk7ZLWE3ihDc/8r/Ga0o0w/H5Y/ntBbRhUDqnMDjLCxrkuF1F7TVjuabgp +sdcIJ+4JJf+S1wSZOI7rl0KN8LsjOhAXNcD79ZW8knAjdK+vzOYt0oDhlBcJ +zGgjVMtJYrv6Wx3Gvuq7DGcZYUBRPsm5Xg3mb64uaTGMUEvkyYiUmyp8dbcs +PNlohE4EcT5jPVUY4DxtPdpshOlDVe/SRVSh2Y90Mfe+EXrUtFeXdm+EE1IG +1L+dRpjcYVT4xXYjCKeHxHYNGWHRitXXLXYqoBH8mi2QnYrjSlvCySHKICch +c+seJxVvi+o+DduqDMLt/tukuKn4c0il55m2MvyUmyl6yk/FutBh5d9LStD0 +hs9cV4KK5fpzMoLpSmBtiSmrG6mYjOf+sFcpwu4N5byXtlIxycXM+QdBAaIf ++YSoOFGR+cE6LHZFHrIDRZ/WOFOxfpNdgdaIPLTcOJb5dDsV+XjNI7kr5UFc +xVro7y4q2iVWHT9iJQ8dKl/E/aKomGI6IeHNvh7UVNfLq1yj4rnwgSlvWRnA +J68Saoqo2EDf1mo+Kw3ue1I/0UuouL3NXTDkkTQk3Zwq3n6Lirx+w0+jwqRh +SLVlw8laKp4cswpNaydB1iYP9e+PqejnkNRkfIwIs2rnyTUzVCx7bDrAFJaE +gWdoIfaTih8y2zfEThPgfti0y6EFKuoocX8Le0aArBqbCPIfKtKHyd8+pRNA +jcpW0cRhjNmNswZLHATwt9mv0E4wxtk+YkQ5uwT0BVut6zMxxulNTgvl8mLQ +zLtAMgBjNHt+VHmaQwyKy4s35Zoa45PMDy07xkQh/Mdfyx2Wxki9Z7ijtFIU +BI7UJQ45GqPY1LYsWRAFy1SFpc/+xhibIRTkGCwCzJLlTwvpxviQXzmwp1QI +yOaHlmwzjDHGUrqz4IgQ1H/6vq7wtDFu0xdTrLIWghq5DxTbc8bovP+VT843 +QajIv3+64LIxrvnX8TRYXxAKM1OMrCqNUUnKb2Hi5To4eUjobH6vMc6fCZZW +p/IBj1h66dRrY7S/Ex15SZQPUqvZWswGjHH7naJXpt94IXl69uv3IWN0aM9J +p1zlheN7+kxMvxqj3+GFNw0cvBDpdXF84pcxlmQERHUMcoPnFiU0ljNBLiuv +KssqLvjbxyPYLm+CBA62R7syuKAwcPqdrZIJ1p73aKwL5oKvqY1HPFVN0CXm +4TKbAhdEdjpWHdM1wXVxZZpquZxwyiFWjmlpgtapac+iT3FA047XK/oHTLDK +uXuS6+Ia8J5o6mqJMMFr92+bpMesAbbowvwth0xwxoxT2shnDVheDtV3PWaC +nWMC+zYor4FX79fsO5hkgt99rVfka9hg0n/zu+o8E9yqHN7eW7FKl96f1rj5 +vgn61T4X5YtboWetBhlktJngpjO59j8cV+js5yyrxx6a4LPyoFFJpRX6ZAPX +rcJOEyxYDazW6VqmN7El54v2mqDv+ulbcdLLdM+chCOLX0ww3Ls5aGPXb3p+ +8zGDe/w0JPm1Wnm5LdHXOXhUkwRp+NjCS4NNe4meMGyoeUSYhjde25wb4lui +7+H6pawtQcMLJarXaQ8W6RTHKPFiORp+K2Sj5Gsv0t+MRP5M0aEhRZszMJS4 +QJfg21e9dTsNDz8JFUwQ+UkvMY+LnvGgYUts0+91P+bounFZ5ue9aNh/Pfph +37M5usPMndcDu1hO1UgQOzlHT32z8Hv3PhqmBOcGmnPO0X8Vx5tFJ9JQ8oeg +kyzXLH3Q+HxvaTkNt5UqV1V5TdP3HC65YlNJw/qSoQbVDdP0xcr6wO93aDhx +NXJ2zfQUXVRxYEmngYbzy5NZrxKm6HY8sjJ379PQfno1413Zd3pLX2lA72sa +9tWFpfEIf6PbCjI1owZoyCtOiKB9mKQPWHUuSr2jodOqkH5nxSR9vulbus8w +DV9arAqM2k7SNYu0b09M0jCevZMpnDFBbxk0jcqcYsX/WEBwaucE3VbcBbRm +aBip7DgirTlBD0o7/PLQAuv9JZ3JsJ5x+vz91EuSv2h4+Ti/yLnicfqJP3m7 +m/7Q0Cfd8SrX4XG6sP4tDe+/NJTiz+frtBqnF+xvWlhdpWHEsvXrd6Rx+v8A +iNWQFQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09512995745120419}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09512995745120419}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993850692643092*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"d2e9e7f8-62e2-4b6a-9b96-57b0540da635"] +}, Open ]], Cell[CellGroupData[{ @@ -2113,11 +8254,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ -fe19384187c3"], + CellChangeTimes->{3.991850610344879*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[BoxData["8.362504079164141`"], "Output", + CellChangeTimes->{3.9938506926781263`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"2e68cb0e-24e9-4ed6-af4f-3936bf3bf59e"] }, Open ]], Cell[CellGroupData[{ @@ -2131,27 +8273,30 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], "2"], - ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + FractionBox["h2", "Cb"], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -2173,416 +8318,658 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\ -77ebd1a3e048"], + CellChangeTimes->{3.991850612616415*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.121830702120128`*^-248\\\", \ +RowBox[{\\\"7035907963854588237468924\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2161719910400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 13, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993850692761271*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"3cc54d66-67df-4117-9fc1-00e9651701a3"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"05911c33-7605-8b49-a7ba-7fc8c8f30741"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3384413835586085`*^-256\\\", \ +RowBox[{\\\"6761507553264259296207636\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7412833894400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 14, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993850692769555*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"8048a9dd-a40d-412a-a551-03d7aeb30947"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3266697493244435`*^-264\\\", \ +RowBox[{\\\"6923783734542601519316619\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0741907865600000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 15, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993850692777823*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"0bbd98d8-1061-4dca-bb17-e8f0f17e204a"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 12.2218 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .13693 -24 -4.5 ] -[.01131 .13693 0 4.5 ] -[.01131 .25915 -24 -4.5 ] -[.01131 .25915 0 4.5 ] -[.01131 .38137 -24 -4.5 ] -[.01131 .38137 0 4.5 ] -[.01131 .50359 -24 -4.5 ] -[.01131 .50359 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .13693 m -.03006 .13693 L -s -[(0.01)] .01131 .13693 1 0 Mshowa -.02381 .25915 m -.03006 .25915 L -s -[(0.02)] .01131 .25915 1 0 Mshowa -.02381 .38137 m -.03006 .38137 L -s -[(0.03)] .01131 .38137 1 0 Mshowa -.02381 .50359 m -.03006 .50359 L -s -[(0.04)] .01131 .50359 1 0 Mshowa -.125 Mabswid -.02381 .03916 m -.02756 .03916 L -s -.02381 .0636 m -.02756 .0636 L -s -.02381 .08805 m -.02756 .08805 L -s -.02381 .11249 m -.02756 .11249 L -s -.02381 .16138 m -.02756 .16138 L -s -.02381 .18582 m -.02756 .18582 L -s -.02381 .21026 m -.02756 .21026 L -s -.02381 .23471 m -.02756 .23471 L -s -.02381 .2836 m -.02756 .2836 L -s -.02381 .30804 m -.02756 .30804 L -s -.02381 .33248 m -.02756 .33248 L -s -.02381 .35693 m -.02756 .35693 L -s -.02381 .40581 m -.02756 .40581 L -s -.02381 .43026 m -.02756 .43026 L -s -.02381 .4547 m -.02756 .4547 L -s -.02381 .47914 m -.02756 .47914 L -s -.02381 .52803 m -.02756 .52803 L -s -.02381 .55248 m -.02756 .55248 L -s -.02381 .57692 m -.02756 .57692 L -s -.02381 .60136 m -.02756 .60136 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .10806 L -.10458 .20681 L -.14415 .29388 L -.18221 .37017 L -.22272 .44131 L -.26171 .49847 L -.30316 .54591 L -.32392 .56431 L -.34309 .5781 L -.36173 .58858 L -.37125 .59283 L -.3815 .59658 L -.3917 .59947 L -.40103 .60141 L -.40552 .6021 L -.40789 .6024 L -.41042 .60267 L -.41284 .60289 L -.41504 .60305 L -.41725 .60317 L -.41834 .60322 L -.41933 .60325 L -.4205 .60328 L -.42174 .60331 L -.4229 .60332 L -.42399 .60332 L -.42526 .60331 L -.42644 .60329 L -.42773 .60326 L -.4291 .60321 L -.43163 .60308 L -.434 .60293 L -.43941 .60241 L -.44405 .60181 L -.4483 .60112 L -.45788 .59913 L -.46769 .59645 L -.47681 .59341 L -.49751 .58461 L -.53655 .56157 L -.57805 .52937 L -.61803 .49268 L -.6565 .45377 L -.69742 .4102 L -.73682 .36757 L -.77471 .32713 L -.81505 .2857 L -.85387 .24819 L -.89515 .21147 L -Mistroke -.93491 .17954 L -.97316 .15219 L -.97619 .15016 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf -ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v -9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ -9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg -5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv -X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql -oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD -HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV -i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 -Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy -oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE -PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl -aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o -znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj -k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD -PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF -lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR -ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD -JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U -OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 -hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC -LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN -LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr -hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM -l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 -AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 -poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 -EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F -gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn -eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo -AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka -21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U -uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 -W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn -yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH -bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S -mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO -jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP -4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl -sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS -NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq -i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ -B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz -wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA -LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw -S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo -YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs -QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH -sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE -BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn -2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp -F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE -di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC -z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk -BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA -Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN -CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ -XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 -ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI -3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 -Ww==\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-3.23234, -0.00443741, 0.118269, \ -0.000307202}},ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 16, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993850692785492*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"a52b3209-50e7-4cad-b07f-58e0955762c7"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ -baecb9a57d9b"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VN8bAHBRlrLvxi4kS2SZGcPM+1L2aAjZQhRJlkoUJSSVJLSQVkKK +7GZCiyJRviiRKFkqUkKWFPK7v7/u83nuc855zznve+49yn5hTrs5OTg47q/g +4Pj/c66/pVH1bB6jUyvku8dpe8bbG9JHzHoSYL440VdLSgtQot1PuicDVJyD +4LukCUQy773j6skFBmfJoRpJOxD5KZXx510FmNf+LHaX9IRPDx3CZt49A27P +B+aCEsFgqTr2cerdG/Do/8W3IBQDf95RLk2+G4JPD3xONy4kQ8OmO3mvc6dh +0lOTW/PpVZD7VPPVT3sJXh6Ibg8wyAPxfT73eDZx4dKJY/09U3chY6NlnYML +Lx5Su39k06lS0O1zt6Lv4cV0elBWcXYptCaGdGrF8KIGg3VjdUkpcPdc/M6b +w4utkSu35L8thZjYYdmGH7wYvyLC+p5wGex6FXeUksiH2uEHV9t5lQF5dx1d +qXI1fo9dGYETZfA+S69+SlgAX2zI9jjEVQHZnUVCkWoCKGakVOjPXwEegut8 +/hoLYNTAjqe2EhXw4YT8P05/AQwdtLPnWlcBA6GrTcWrBZApKXxa3rYCRjd/ +ZpPdBTGxoid+JrUC5iczS2NyhPCmcKCVvFgl1GiJLS9XC2FumlSlkmwlRAek +OiS+FELKOq4CubWVsNiXOJ4yLYQ50wzSP/1KiBt+INGuIoyJwbA60KkSEtvy +tw1ECKM23/yp9vOVcDbveDunjAh+1CLNTqysAlvDIFGJtSI4z3FTZ2BNFfA2 +Orms0xHBBwvKXC2iVZA4rNZnZyaCE40n4hKVquCoSuvXi0EieLrcMz/XpApC +b0n/U68VwYPypkXR4VXgeK1c285TFIPe5G288LYKhLWvhu3YLYoTZizlS71V +0FaXWBEWJooy9m4Z5weI8fu2Uy+eEMWnw2O/Qn5UgTnp36aPRaJofTo5p4Or +GgyzbD3DFkVReoWBhc7GapC6OHzmwnUxHP3ULGyWVA3SWtWJ8wVi+JTEtWUh +uRpIz5KO7ygTQ5FXbb9LzleDwuT6Q+saxDBj4ectzivVoLYl3LduVAzrFHuo +nkXVYLByiTxsII6HbysnvW6rhq0Rkp/1X4rjZGdaZKcwC5hrRvszO8Wxq2vF +jzpxFjjl1rxf/CCOYZS27uvSLHDt8GpvmhBHw64RAQclFuzQvl3rISGBDswu +fl9dFgR/1k1P8JXAiL7z9223sOCUsw3jzZwEtnc9lmPEs4BU1UbiXCGJK8JN +SrMSWVAi5vx74xpJrHtByv9+igXdb7zL0hUlsTSl9XF0KgtUHSNUHK0lsSw2 +7Dn9Kgue2d/k7rgiiaYlT3jdKol47qsOL9+WxHrLEjtjFgvG+O890S2RRGEx +bi6xGhaItFYdPv9MEufL6jtLH7PA1/blmMN3Scy9PK54voUFS5azbf+ZSmFP +VVLil48sSCuILlqylEKhlrQChwFifG6O0zqOUthqKOBUNsSCLc9Xm53bLYXb +3DTsdoywIHuTUuWWVCksDnOY2DHJgg23888fzZLCYDY56ewvIl5OrX3FuVK4 +ueFsRfkMC749NVLjZ0uhy+DT1yPzLKCiXearT1LY2y2zfYGDDa03Ow4ufJPC +Dhpf0zgnG3yXXZhaM1Ko1ej0rmclG0499uU7yyuNg3wVI1m8bOg2jYyx3SiN +hd9uTdQLseGgcY5PS4I01rRaaFTIscH2luCMXYo0ftx6O1xSgQ0qPEdPt12S +RneNiIAIRTZ0vHUt7yyURummO77yKmzYEM7P1d8mjXzNEXVr17Fh1bsjmb49 +0tgtePiqiwYbPtBHtIYHpTGYmmcUv54NZ9c8cx6dIeI5s/Lmcy02jBZEFfwi +yaBQs0sElx4bngh8oR1SlcEYo3/buDay4XKEU/tvHRk0ct+wsEjYwlxnfhFl +cHsW952PBmyQu5udctxWBhPOqZU2GrJhRohXmdNZBsNGa07mG7Eh9+OQDU+g +DFYVbsl3prDhyGZm/5lwGVRw7Z5SobKBWfToAH+0DJ6Y/S72nfDy4ayrIudk +8Mme8U97aGzwEncYl62UwUsK5JckOhsMYuribzyUQbPcv7NswquHNCSVm2Tw +e/Pkqq0MNtSUcoH6exmcHZl+vxfYkCa5v7NwSAa/Tb/ImSC851h/oNYPGfz7 +3NMlFNkgaVeTprcsg/53gk+5m7FhvFxdrZKXhNyUZ3xNhBulL9YYiZJQ5cy5 +49rmbLh2fIXDA1kSBnyqH0shfPBr6BBNjYQP+h3tRwjb2n+IfLSBhBvOUe+a +bCL2r8pmDVJJKMAM40gm/IfEvvnMjIQ3v/1yfkO4I17V0MKOhEpRzwrFN7Ph +zmh68wtnEt4I/bTEJBy7ddnL1puEwtftXU8RdmXtm2oNJOHUWrEqNmEd+d6T +W/eTMDCKKjNEeGWiFelNNAlnPZtPcVsQ+z9WVeKcSMLMz+0r1AhXOqpseneO +hMHh3mfohJMfnH/nnknCF4UnlZiEdyouBX+4RcI3se4tXoSpSXs5fO4R81s/ +edKfsPD4u4uDlSTcrurntovwyDaL9bsekVBd66W5D+HHtRWPvjaRkI9mYeVM ++LKyklNQBwn1kn8FbiIccvrc1+/vifmkTRdoE9488Tc6dJiECn+CuYUJH7G+ +qPn0Bwnt3xVv/knMpyRHp1dsjoS7ioWHmggP/206E7BMwrScnIErhKWdfY1r +eGXxxpdg80DC9vf/jK4RlcWVRcf4dAkncF/I8paVRT71EcoUsd4/Hjz/zbVB +FrNX83fuIqws6nPHlSKLhzunNkkSdg2ed72LsviYP1H1GbGf9fJaLIdtshi9 +SZrOR3g2snF3jpcsrvNxPpJH5Idmxw6Jmd2yyFpbrkMjfCEhLeLKYVl8g648 +LkR+NfetV/0RL4vj5FG9XiL/Fg0bOhlnZXGIf0OfO+GAkVn9z9dlsTLrWK01 +kb9X8fwQ+Y4semoNTP8/vzuuaGScKZPF69sKWcqEaVs8pzY0yOLxV7qDn03Y +EJY/cyu+VRZ5frvaMwjn/TvHfNsli1z7Ku0yiPoRLK8vPTIqi1sZkzyaxmwY +klAPbRSQQz9NuUfSZDZIhT2Rl5KSw36nE38siXrd0uz2X5CSHF5UluoNI+qZ +FX1WW8hADucShtLK9Yl8+TQ55u4mhydem0jMbiDOC2pydvFOOVRW1a2c1yHq +P32t7fJeOTTzesDzW5sN3ptd7+Ydk0MBvqGPw5ps0L9bFziRK4cyjtZxseps +COR0kTIvlkPJhxfF3dSI+vL82XSxWg6FJRwOaKuygVtQWZ3WLIcBzRkXniuz +ofdA0ufEcTmMw9SyGuK8jDd13EmiymPn+i8HikTYYO194xfFXB7XDrrGigoT +84/7fsJlizw2tbIvHhQk+m84WZDmK4/ZNn9/rl3Dhge2td+5z8jjnjt9FXTi +vJ50Wxs5/V4emdPpNm6zLGBHh/OIfJbH4O0bT+6cZkHstUdZG37K41PRw8u7 +pljAP7C9LohTAQePbnjkMc6CdYEpHAOaCmimJFC74gsLvA/NJrfGEO/vCxZg +JwvUMs3lxk4q4If2Kc+JDhaRj+fv86Qp4FlO+aSsNhZEL67vMM9TwFc1U5t7 +ie/dpRPeEjWtCsgqONYqW8+C1vQXN/PlFfHKWBtPdhELaCVXqmKfKKKakdKd +q7Es2PyubelnsyKKHLv97U0MCxw4Vlr5vFFE9yfJNauOsMDfKfQ9fFHEkp0U +Ae+DLLCMUT4et0oJB+UUu98HsiBcce62mZYShj6ZjedgsqAx8OZ4Q6QSZiSs +E1KUZ4HNorHo0RglVA3qr/lPhgVtaW/JhnFKeDINHQ9LsuB9DV9c3hklrAxR +c3oqxIKfayJET15Twney4VMqnCyQLrOmWD5TwnhVA+a6r9Wwb34qrllAGck7 +KBy2xP8ObX+A5FdRZVRqXGGqeacaeMd6i7iklTF44JQy9+1qyO9r6GaoKOPR +zot/yrKrof/xJe1qsjLqP92/pfMM8X900rgnx0cZu++vnLUPrAZ90XjdmHJl +3NFerkFRrIY/WsL9Oi4qaMf2GHhwogpMi4pvXb68Fh1imUGgUwlTora+rs9U +cfyVf2xAazl8TvF1PcCjjpfXjsnNkcvAZiLK5gt5HUp9mywo3n0ffvjzHqw6 +roEC/n//XFa4R9wfpDhPPVuPL6YiHt5ZLADR/9RTyyY0cbH7ibWvfh7InS5l +ksnaWF5loFjllQNZWsbCYoE6yIxWzdn0/jq8JJkZTadvwEWTanpj7BWgyT1L +0+3WxVaV+u1emy+BIFduxM4EPRRTER6VbEkHhXhFU3f1jZjw8GGRzYpzwKfm +xXJ6sRH1xpmH+mJPwQa6TGnUDn0U5darnlI6AZVrgxY4ffWxrPOz4lmhE0Bd +XWOV6qePf0eKGBv/JYD5O7eBvEB9ZC7ujL/dlwCu+7NE3uzXR4FVj44oZibA +8XypCO0kfaQJ56qGCydAh4Ck8WCJPiY7Wl+344+HA/2iDbYcBrhRsGzr5q2x +0Nzk9egepwF2Wtn+8zaMBYXSAvbqVQaYHkk1PycTCy+P04pf8hngldoIf9XP +x0BF2e+SrZgBMnRUl0yij8Fr//JAW3UDfJQsLMt77yjofdvKb7vFALtbWw51 +SMXAxHSKi02WAdaTTxVyax6GDz05rtezDXDd3X+CWuKH4eUj1vapawZYvfXU +vM+/KMg7NeB+JccAOSsX9RbeRIGHrKH3t3sGGNXKT587GgXPzfsCzjwywAbx +8F9znZFwNX394ZYhA5Q0Nb/++dwhsNJtyrbRMcRGjzXmiboHwY3b2rlD1xAt +f96wWpQ9CHs/tghs1zfElxiqcZL3IKSe/S9uF8UQH3FIMVsGD0D3yNuA42aG ++CAig5t06QDsujWsX+1iiGohg+md//ZDgsiKV0qxRH+DEu2e/eHweNpk4Xeb +Ic7P1ncNXg6BnFa237bXhpjc6aldeiQEEvMNXpZ0GhL3D2/rS14hYLNd68ru +HkP8ME06X6QSAm9rSZTOQUO0L7dN/Ve6D8bi/xwomTFE6/si8nrtwSApzB7b +RTLCjJnbi0zFvRCqrd/7ercRWl7zOSvDFQiHfpP++uwxQvM1q4NyvwXA0Wdc +pJ97jVD1pUrLpo4AOOvW5b463Ajz2pcb268HQGHi4ffm0UYY8O3f1dW0ABj6 +8LinMtUI1UQVgxYid4PrObt3l9hG6PJ+bo815y7Y4Wb4e22tETqfLL/26Ls/ +7ForL1Xx0AizObh5bLr84WDNT9e2p0ZoPeJHzS30h7Qv6d3crUZYb2Sq4MX0 +h5f0nq6oASP86yKT2X/bD+g/d7115yOj446d6/I9doJknVXuwzVkPL9aXVXY +eif8PKUZrihIRr22zJspRjvhhvLkmi+iZGTb+nyoEd4J/5xjNoXLkTG5UnRm ++IUvPKlLr0jSJaP06+GRvca+YHbmcVqlCxn9/K4EtDt6A8k1x1vSjYz2373z +Xut5wy+VRO0jHmR0KoCsaSFvyH1o08zwIaOBkgL9ctsO4Jx8u9yyh4xW52dr +ttnvgAbX76EDMWT0yDxz+wrTCyxUpe0FcskYdEXXKD/EA6rGnyvvyiOj6pJz +GoejB6iyD87VFpDxfenByChDD1hp235zTxEZl572JrMX3OFZWNKvhioyvv7T +ERR71h0YdTOZ0S/IuFf+UrdYmRuQnV4PjfwgY2P57kdN/NuhQPY4mzFBxhu1 +Y8FB064g8UU75dIUGQ03Pvmt2usKM1GnjTbNkfFq3Yzz1zuuUHEdTt9YJuOK +q3dGzm92Bd1v93VcRCko93R14b4EF9CISz78jELB8VTj6XohZ3hokr9qC42C +rCDZQwd/bwPm7ycZXaYUTFX9bouftsHh0NniUTMKLv9TT9co3QbNXr6Dglso +qKxzcliPuQ32GJNtPX0peCi0rGJNphPc/TUoO3OaghbJuksWFEdglCwWHjtL +jP+Zsk5CxRHeBEmReVIp6KOWUbfA7wh/B7YwSRco+DvI9aXgMBNs29mJeJ2C +trleErZpTBgrOjeeUk7BXH65uJX9W0Fzt/ETtV4KXqDKmDUdsYfzKg5/T3yg +4PspQzef7fYw88nPaKifgoH6/tlyRvbw2COl6MYwBaeL9eS4praAE/NTptQ4 +BT8GG8Yd3bsFjpicDOfjoKK5W83elbvsoFnktfK4GhUn35Fik8NtQKf9i5ed +BhWPyKa+3etkAxkpfzPvalJxhbW3f7ChDXjxqAoG6FKxfzKrvHXeGiYWI//2 +U6l47093C/8Ja5AclevssCPaS2Uv7LluBbsf70ms2k9F7X4V96ZRC/gZMhZl +EUHFKepMhnmrBRyW3xfcHUnF4yF+uwZKLSD5aJjTfAwVs9dYmcdFWUAZLVLJ +NImKVOUyeXteC1hknXjYkE1Fhe2Otku6myGj9MbMmwYq+u4Z72y9bA5yPkqj +/k1U7Ir+60SLNYd8wdy+mWYqlklEwvPd5vAgJP+ZZBsVV4mFDukbmcNHreI0 +jx4qki8vDAZ1mYFGYY320A8qfrH3L9SSNYMnt97umpIwxhXe4dwukQADW5R9 +IqWN8cpi6sH3WwA4/oS4L5CMcbTZfMf5tQDmjjwOq5SMcSvrY1vqawY0raBR +ZDSNMWNf6dZuXQa0+t3kM2MY4zx3wTH3WVPoVd1bkhZgjEzBUYEXuTRY6GAV +SgQZ48AU/3uJ4zSQO8Z1OzvYGC97JLHOe9JgR9e1zLxwY3SmaH/lkqDBwMn2 +uAfRxihwbf3r0TPGMPLVcNtAqjEO2uirxMRQYaZw+bcu2xinRg/YHj1Khq+u +lrfO1BhjSKn6tgEfMvSsPGc9XGeML22sifsHGep8SVcu1xvjUwed4rbVZEiQ +NqIttRijkYn9iPJVIxA+vffoyw/G+MClT7rwqSFoB3Zx7Oak4XfLQm5LNQNQ +kJC7+3glDePvfjwRyW8Awg1+jtI8NDy3Oci8YVofphUmc16toWH4XVhZ/kwf +artXb9KXoGFQrpV67059sLbEk8vraIhSrVet8jeCv1oRX7Y9DUMOGPbVgh5E +P/feq86kIbPx97s9GnqQtlv0VYUTDUuGK64ZiOjBw/wjKa+20zC2aLiP3qQL +4urWQks7aWg/nJqaLqwLTepfxH0jaVjeGaF+qVQHNDUUldRv0tCgJYZ/o4QW +YPObuIocGnr/EdQ2HtcE1z1Jg4w8Gl6d7w898FwTThSO526/S8M5wfW7oyI1 +4YPGQ7UzlUS8LyxdG3vXQ+p6d60fL2h4TVHSy6hYA6Y0L5ArJmlY79p090O4 +OvS0ooXYNA1VFznYfUx1qA/9uS1iloY7ee+4LOupQ2qFzX7yXxqWNkZeq5xS +A00aR3Etlwn28c+Wv4pQAz+bEOUGSRPclvLlv0vxqvA20Ir/rakJdsWsizha +pQJ1fLMkIzBBEaF49ydZKpBblLv+spkJXl75Y0z5mAqETyxZulkS7etTEy0s +VUAgqir+w1YT7AxlPeXsVQbLJOXfn/1MkG7ndoHCowwP8hYGZ0+b4JqQIJGt +EwpA3hTx2/asCd7YuStFr14Bqgd/8N86R4z/9RrFKl0BKhT6KbYZJhjjyWMt +ZqgAxVn1525cNcH2vXuTlI7Kw62Uk8ZWJSY4U5TmOSQhB2cihNKzOk3QsviA +/v1QGeAVO10w3mWCdnkaSZ0WMpBUzvHQvMcEeTKNONfLy0Diz6mvPz6YoLFA +b7NvqzTE7nlravbVBDNymPP/tKXhgNeV0W/zJih6QVnhzZwkeGxeiyYKpng4 +yCSlsUgclt7yCjYomWKl6k2NpJPicGv3zz7btabYdmX89hEfcfiaVBPloWGK +8SFhybNi4nCgZWvpEX1TtNlzN9T0uBgkOxxVeGBpilH/rByGvEWh1q1r0TDM +FANe3yuLNhOGHd9qXz7cb4ppV15/Wq8sDBzRt7I2R5jip+hOAe4VwmB5NdjQ ++YgpMv89qTyTIARvPq7Yd/CEKV6u/dBcdkoQxvw29JVnmuKwDrPhQC4/yIac +qtlQb4riX7Qq5qT4IHU5wOjsM1Pci+GH733hBc4My/KRRlPUjtbdn1/JC2Os +VXdvtZji65W9G8KZvFDLkZgl2mmKkopDzG3neMDjYlzU3BdT1N8RK6cqzg1Z +dUeMHq+h42njkYx0Zy7gd3AvJwnSce67hf1LTS6IG6DqRAnT8YdR19ymFVyw +Z9W8qp4EHSNe7Nz6p4QTKFsjxXMV6CjTLnw1QIATuocOTJ/cSEeD0Yarit0c +ILF6X7n9djo2PhLs2aq1xMjbdCx60p2OqU8OnHX5tMjQP5a66YIXHZ/b/1o7 +fmGR4TBZ1tWzk45XHYMftf9bYCR1z/7x30dHi4LhNKe+v4z53OPm0fFEvLr3 +cv8rmWckfUhbI59IRzWmZUVx8DxDXDL37ZMkOuomnA4QXz/P0DvTGLAqhY53 +ww7tjMn/zQgK4zubdpmO2fRegcy8OUavyYXOgiI65i3PZh2vm2HsOZR3zaaE +jpGh287lxM0w5kqqd/8oo2Nd+Z8Mc8sZhqhKz++NLDp+8oz3W34zzbDjlZd7 +VE/HYbbWrNOvX4yHbwt2dXbR8dTAYdkeqymGreADncgeOoaXN8XmiE8xeqxa +5qT7CHMsSAwMTjJmar+f9h6gY2VnuG/tsUmGTo7e/W9jxPqmU2tvH5pgPOw1 +i0wZp+PXV9vLAyQnGLbi20B3ko4Xpmd5Vj/4yQg4deh1xCwdY2/ptPxYGmfM +1CdlS83TMenFm/vrc8cZCX8z/Wv/0jFGX/KrmdU4Q9jwrvaOJTpqML02GI7/ +YNwIqZ1dXiYc2WG+fOEH439x9+bt + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VN8bAHBRlrLvxi4kS2SZGcPM+1L2aAjZQhRJlkoUJSSVJLSQVkKK +7GZCiyJRviiRKFkqUkKWFPK7v7/u83nuc855zznve+49yn5hTrs5OTg47q/g +4Pj/c66/pVH1bB6jUyvku8dpe8bbG9JHzHoSYL440VdLSgtQot1PuicDVJyD +4LukCUQy773j6skFBmfJoRpJOxD5KZXx510FmNf+LHaX9IRPDx3CZt49A27P +B+aCEsFgqTr2cerdG/Do/8W3IBQDf95RLk2+G4JPD3xONy4kQ8OmO3mvc6dh +0lOTW/PpVZD7VPPVT3sJXh6Ibg8wyAPxfT73eDZx4dKJY/09U3chY6NlnYML +Lx5Su39k06lS0O1zt6Lv4cV0elBWcXYptCaGdGrF8KIGg3VjdUkpcPdc/M6b +w4utkSu35L8thZjYYdmGH7wYvyLC+p5wGex6FXeUksiH2uEHV9t5lQF5dx1d +qXI1fo9dGYETZfA+S69+SlgAX2zI9jjEVQHZnUVCkWoCKGakVOjPXwEegut8 +/hoLYNTAjqe2EhXw4YT8P05/AQwdtLPnWlcBA6GrTcWrBZApKXxa3rYCRjd/ +ZpPdBTGxoid+JrUC5iczS2NyhPCmcKCVvFgl1GiJLS9XC2FumlSlkmwlRAek +OiS+FELKOq4CubWVsNiXOJ4yLYQ50wzSP/1KiBt+INGuIoyJwbA60KkSEtvy +tw1ECKM23/yp9vOVcDbveDunjAh+1CLNTqysAlvDIFGJtSI4z3FTZ2BNFfA2 +Orms0xHBBwvKXC2iVZA4rNZnZyaCE40n4hKVquCoSuvXi0EieLrcMz/XpApC +b0n/U68VwYPypkXR4VXgeK1c285TFIPe5G288LYKhLWvhu3YLYoTZizlS71V +0FaXWBEWJooy9m4Z5weI8fu2Uy+eEMWnw2O/Qn5UgTnp36aPRaJofTo5p4Or +GgyzbD3DFkVReoWBhc7GapC6OHzmwnUxHP3ULGyWVA3SWtWJ8wVi+JTEtWUh +uRpIz5KO7ygTQ5FXbb9LzleDwuT6Q+saxDBj4ectzivVoLYl3LduVAzrFHuo +nkXVYLByiTxsII6HbysnvW6rhq0Rkp/1X4rjZGdaZKcwC5hrRvszO8Wxq2vF +jzpxFjjl1rxf/CCOYZS27uvSLHDt8GpvmhBHw64RAQclFuzQvl3rISGBDswu +fl9dFgR/1k1P8JXAiL7z9223sOCUsw3jzZwEtnc9lmPEs4BU1UbiXCGJK8JN +SrMSWVAi5vx74xpJrHtByv9+igXdb7zL0hUlsTSl9XF0KgtUHSNUHK0lsSw2 +7Dn9Kgue2d/k7rgiiaYlT3jdKol47qsOL9+WxHrLEjtjFgvG+O890S2RRGEx +bi6xGhaItFYdPv9MEufL6jtLH7PA1/blmMN3Scy9PK54voUFS5azbf+ZSmFP +VVLil48sSCuILlqylEKhlrQChwFifG6O0zqOUthqKOBUNsSCLc9Xm53bLYXb +3DTsdoywIHuTUuWWVCksDnOY2DHJgg23888fzZLCYDY56ewvIl5OrX3FuVK4 +ueFsRfkMC749NVLjZ0uhy+DT1yPzLKCiXearT1LY2y2zfYGDDa03Ow4ufJPC +Dhpf0zgnG3yXXZhaM1Ko1ej0rmclG0499uU7yyuNg3wVI1m8bOg2jYyx3SiN +hd9uTdQLseGgcY5PS4I01rRaaFTIscH2luCMXYo0ftx6O1xSgQ0qPEdPt12S +RneNiIAIRTZ0vHUt7yyURummO77yKmzYEM7P1d8mjXzNEXVr17Fh1bsjmb49 +0tgtePiqiwYbPtBHtIYHpTGYmmcUv54NZ9c8cx6dIeI5s/Lmcy02jBZEFfwi +yaBQs0sElx4bngh8oR1SlcEYo3/buDay4XKEU/tvHRk0ct+wsEjYwlxnfhFl +cHsW952PBmyQu5udctxWBhPOqZU2GrJhRohXmdNZBsNGa07mG7Eh9+OQDU+g +DFYVbsl3prDhyGZm/5lwGVRw7Z5SobKBWfToAH+0DJ6Y/S72nfDy4ayrIudk +8Mme8U97aGzwEncYl62UwUsK5JckOhsMYuribzyUQbPcv7NswquHNCSVm2Tw +e/Pkqq0MNtSUcoH6exmcHZl+vxfYkCa5v7NwSAa/Tb/ImSC851h/oNYPGfz7 +3NMlFNkgaVeTprcsg/53gk+5m7FhvFxdrZKXhNyUZ3xNhBulL9YYiZJQ5cy5 +49rmbLh2fIXDA1kSBnyqH0shfPBr6BBNjYQP+h3tRwjb2n+IfLSBhBvOUe+a +bCL2r8pmDVJJKMAM40gm/IfEvvnMjIQ3v/1yfkO4I17V0MKOhEpRzwrFN7Ph +zmh68wtnEt4I/bTEJBy7ddnL1puEwtftXU8RdmXtm2oNJOHUWrEqNmEd+d6T +W/eTMDCKKjNEeGWiFelNNAlnPZtPcVsQ+z9WVeKcSMLMz+0r1AhXOqpseneO +hMHh3mfohJMfnH/nnknCF4UnlZiEdyouBX+4RcI3se4tXoSpSXs5fO4R81s/ +edKfsPD4u4uDlSTcrurntovwyDaL9bsekVBd66W5D+HHtRWPvjaRkI9mYeVM ++LKyklNQBwn1kn8FbiIccvrc1+/vifmkTRdoE9488Tc6dJiECn+CuYUJH7G+ +qPn0Bwnt3xVv/knMpyRHp1dsjoS7ioWHmggP/206E7BMwrScnIErhKWdfY1r +eGXxxpdg80DC9vf/jK4RlcWVRcf4dAkncF/I8paVRT71EcoUsd4/Hjz/zbVB +FrNX83fuIqws6nPHlSKLhzunNkkSdg2ed72LsviYP1H1GbGf9fJaLIdtshi9 +SZrOR3g2snF3jpcsrvNxPpJH5Idmxw6Jmd2yyFpbrkMjfCEhLeLKYVl8g648 +LkR+NfetV/0RL4vj5FG9XiL/Fg0bOhlnZXGIf0OfO+GAkVn9z9dlsTLrWK01 +kb9X8fwQ+Y4semoNTP8/vzuuaGScKZPF69sKWcqEaVs8pzY0yOLxV7qDn03Y +EJY/cyu+VRZ5frvaMwjn/TvHfNsli1z7Ku0yiPoRLK8vPTIqi1sZkzyaxmwY +klAPbRSQQz9NuUfSZDZIhT2Rl5KSw36nE38siXrd0uz2X5CSHF5UluoNI+qZ +FX1WW8hADucShtLK9Yl8+TQ55u4mhydem0jMbiDOC2pydvFOOVRW1a2c1yHq +P32t7fJeOTTzesDzW5sN3ptd7+Ydk0MBvqGPw5ps0L9bFziRK4cyjtZxseps +COR0kTIvlkPJhxfF3dSI+vL82XSxWg6FJRwOaKuygVtQWZ3WLIcBzRkXniuz +ofdA0ufEcTmMw9SyGuK8jDd13EmiymPn+i8HikTYYO194xfFXB7XDrrGigoT +84/7fsJlizw2tbIvHhQk+m84WZDmK4/ZNn9/rl3Dhge2td+5z8jjnjt9FXTi +vJ50Wxs5/V4emdPpNm6zLGBHh/OIfJbH4O0bT+6cZkHstUdZG37K41PRw8u7 +pljAP7C9LohTAQePbnjkMc6CdYEpHAOaCmimJFC74gsLvA/NJrfGEO/vCxZg +JwvUMs3lxk4q4If2Kc+JDhaRj+fv86Qp4FlO+aSsNhZEL67vMM9TwFc1U5t7 +ie/dpRPeEjWtCsgqONYqW8+C1vQXN/PlFfHKWBtPdhELaCVXqmKfKKKakdKd +q7Es2PyubelnsyKKHLv97U0MCxw4Vlr5vFFE9yfJNauOsMDfKfQ9fFHEkp0U +Ae+DLLCMUT4et0oJB+UUu98HsiBcce62mZYShj6ZjedgsqAx8OZ4Q6QSZiSs +E1KUZ4HNorHo0RglVA3qr/lPhgVtaW/JhnFKeDINHQ9LsuB9DV9c3hklrAxR +c3oqxIKfayJET15Twney4VMqnCyQLrOmWD5TwnhVA+a6r9Wwb34qrllAGck7 +KBy2xP8ObX+A5FdRZVRqXGGqeacaeMd6i7iklTF44JQy9+1qyO9r6GaoKOPR +zot/yrKrof/xJe1qsjLqP92/pfMM8X900rgnx0cZu++vnLUPrAZ90XjdmHJl +3NFerkFRrIY/WsL9Oi4qaMf2GHhwogpMi4pvXb68Fh1imUGgUwlTora+rs9U +cfyVf2xAazl8TvF1PcCjjpfXjsnNkcvAZiLK5gt5HUp9mywo3n0ffvjzHqw6 +roEC/n//XFa4R9wfpDhPPVuPL6YiHt5ZLADR/9RTyyY0cbH7ibWvfh7InS5l +ksnaWF5loFjllQNZWsbCYoE6yIxWzdn0/jq8JJkZTadvwEWTanpj7BWgyT1L +0+3WxVaV+u1emy+BIFduxM4EPRRTER6VbEkHhXhFU3f1jZjw8GGRzYpzwKfm +xXJ6sRH1xpmH+mJPwQa6TGnUDn0U5darnlI6AZVrgxY4ffWxrPOz4lmhE0Bd +XWOV6qePf0eKGBv/JYD5O7eBvEB9ZC7ujL/dlwCu+7NE3uzXR4FVj44oZibA +8XypCO0kfaQJ56qGCydAh4Ck8WCJPiY7Wl+344+HA/2iDbYcBrhRsGzr5q2x +0Nzk9egepwF2Wtn+8zaMBYXSAvbqVQaYHkk1PycTCy+P04pf8hngldoIf9XP +x0BF2e+SrZgBMnRUl0yij8Fr//JAW3UDfJQsLMt77yjofdvKb7vFALtbWw51 +SMXAxHSKi02WAdaTTxVyax6GDz05rtezDXDd3X+CWuKH4eUj1vapawZYvfXU +vM+/KMg7NeB+JccAOSsX9RbeRIGHrKH3t3sGGNXKT587GgXPzfsCzjwywAbx +8F9znZFwNX394ZYhA5Q0Nb/++dwhsNJtyrbRMcRGjzXmiboHwY3b2rlD1xAt +f96wWpQ9CHs/tghs1zfElxiqcZL3IKSe/S9uF8UQH3FIMVsGD0D3yNuA42aG ++CAig5t06QDsujWsX+1iiGohg+md//ZDgsiKV0qxRH+DEu2e/eHweNpk4Xeb +Ic7P1ncNXg6BnFa237bXhpjc6aldeiQEEvMNXpZ0GhL3D2/rS14hYLNd68ru +HkP8ME06X6QSAm9rSZTOQUO0L7dN/Ve6D8bi/xwomTFE6/si8nrtwSApzB7b +RTLCjJnbi0zFvRCqrd/7ercRWl7zOSvDFQiHfpP++uwxQvM1q4NyvwXA0Wdc +pJ97jVD1pUrLpo4AOOvW5b463Ajz2pcb268HQGHi4ffm0UYY8O3f1dW0ABj6 +8LinMtUI1UQVgxYid4PrObt3l9hG6PJ+bo815y7Y4Wb4e22tETqfLL/26Ls/ +7ForL1Xx0AizObh5bLr84WDNT9e2p0ZoPeJHzS30h7Qv6d3crUZYb2Sq4MX0 +h5f0nq6oASP86yKT2X/bD+g/d7115yOj446d6/I9doJknVXuwzVkPL9aXVXY +eif8PKUZrihIRr22zJspRjvhhvLkmi+iZGTb+nyoEd4J/5xjNoXLkTG5UnRm ++IUvPKlLr0jSJaP06+GRvca+YHbmcVqlCxn9/K4EtDt6A8k1x1vSjYz2373z +Xut5wy+VRO0jHmR0KoCsaSFvyH1o08zwIaOBkgL9ctsO4Jx8u9yyh4xW52dr +ttnvgAbX76EDMWT0yDxz+wrTCyxUpe0FcskYdEXXKD/EA6rGnyvvyiOj6pJz +GoejB6iyD87VFpDxfenByChDD1hp235zTxEZl572JrMX3OFZWNKvhioyvv7T +ERR71h0YdTOZ0S/IuFf+UrdYmRuQnV4PjfwgY2P57kdN/NuhQPY4mzFBxhu1 +Y8FB064g8UU75dIUGQ03Pvmt2usKM1GnjTbNkfFq3Yzz1zuuUHEdTt9YJuOK +q3dGzm92Bd1v93VcRCko93R14b4EF9CISz78jELB8VTj6XohZ3hokr9qC42C +rCDZQwd/bwPm7ycZXaYUTFX9bouftsHh0NniUTMKLv9TT9co3QbNXr6Dglso +qKxzcliPuQ32GJNtPX0peCi0rGJNphPc/TUoO3OaghbJuksWFEdglCwWHjtL +jP+Zsk5CxRHeBEmReVIp6KOWUbfA7wh/B7YwSRco+DvI9aXgMBNs29mJeJ2C +trleErZpTBgrOjeeUk7BXH65uJX9W0Fzt/ETtV4KXqDKmDUdsYfzKg5/T3yg +4PspQzef7fYw88nPaKifgoH6/tlyRvbw2COl6MYwBaeL9eS4praAE/NTptQ4 +BT8GG8Yd3bsFjpicDOfjoKK5W83elbvsoFnktfK4GhUn35Fik8NtQKf9i5ed +BhWPyKa+3etkAxkpfzPvalJxhbW3f7ChDXjxqAoG6FKxfzKrvHXeGiYWI//2 +U6l47093C/8Ja5AclevssCPaS2Uv7LluBbsf70ms2k9F7X4V96ZRC/gZMhZl +EUHFKepMhnmrBRyW3xfcHUnF4yF+uwZKLSD5aJjTfAwVs9dYmcdFWUAZLVLJ +NImKVOUyeXteC1hknXjYkE1Fhe2Otku6myGj9MbMmwYq+u4Z72y9bA5yPkqj +/k1U7Ir+60SLNYd8wdy+mWYqlklEwvPd5vAgJP+ZZBsVV4mFDukbmcNHreI0 +jx4qki8vDAZ1mYFGYY320A8qfrH3L9SSNYMnt97umpIwxhXe4dwukQADW5R9 +IqWN8cpi6sH3WwA4/oS4L5CMcbTZfMf5tQDmjjwOq5SMcSvrY1vqawY0raBR +ZDSNMWNf6dZuXQa0+t3kM2MY4zx3wTH3WVPoVd1bkhZgjEzBUYEXuTRY6GAV +SgQZ48AU/3uJ4zSQO8Z1OzvYGC97JLHOe9JgR9e1zLxwY3SmaH/lkqDBwMn2 +uAfRxihwbf3r0TPGMPLVcNtAqjEO2uirxMRQYaZw+bcu2xinRg/YHj1Khq+u +lrfO1BhjSKn6tgEfMvSsPGc9XGeML22sifsHGep8SVcu1xvjUwed4rbVZEiQ +NqIttRijkYn9iPJVIxA+vffoyw/G+MClT7rwqSFoB3Zx7Oak4XfLQm5LNQNQ +kJC7+3glDePvfjwRyW8Awg1+jtI8NDy3Oci8YVofphUmc16toWH4XVhZ/kwf +artXb9KXoGFQrpV67059sLbEk8vraIhSrVet8jeCv1oRX7Y9DUMOGPbVgh5E +P/feq86kIbPx97s9GnqQtlv0VYUTDUuGK64ZiOjBw/wjKa+20zC2aLiP3qQL +4urWQks7aWg/nJqaLqwLTepfxH0jaVjeGaF+qVQHNDUUldRv0tCgJYZ/o4QW +YPObuIocGnr/EdQ2HtcE1z1Jg4w8Gl6d7w898FwTThSO526/S8M5wfW7oyI1 +4YPGQ7UzlUS8LyxdG3vXQ+p6d60fL2h4TVHSy6hYA6Y0L5ArJmlY79p090O4 +OvS0ooXYNA1VFznYfUx1qA/9uS1iloY7ee+4LOupQ2qFzX7yXxqWNkZeq5xS +A00aR3Etlwn28c+Wv4pQAz+bEOUGSRPclvLlv0vxqvA20Ir/rakJdsWsizha +pQJ1fLMkIzBBEaF49ydZKpBblLv+spkJXl75Y0z5mAqETyxZulkS7etTEy0s +VUAgqir+w1YT7AxlPeXsVQbLJOXfn/1MkG7ndoHCowwP8hYGZ0+b4JqQIJGt +EwpA3hTx2/asCd7YuStFr14Bqgd/8N86R4z/9RrFKl0BKhT6KbYZJhjjyWMt +ZqgAxVn1525cNcH2vXuTlI7Kw62Uk8ZWJSY4U5TmOSQhB2cihNKzOk3QsviA +/v1QGeAVO10w3mWCdnkaSZ0WMpBUzvHQvMcEeTKNONfLy0Diz6mvPz6YoLFA +b7NvqzTE7nlravbVBDNymPP/tKXhgNeV0W/zJih6QVnhzZwkeGxeiyYKpng4 +yCSlsUgclt7yCjYomWKl6k2NpJPicGv3zz7btabYdmX89hEfcfiaVBPloWGK +8SFhybNi4nCgZWvpEX1TtNlzN9T0uBgkOxxVeGBpilH/rByGvEWh1q1r0TDM +FANe3yuLNhOGHd9qXz7cb4ppV15/Wq8sDBzRt7I2R5jip+hOAe4VwmB5NdjQ ++YgpMv89qTyTIARvPq7Yd/CEKV6u/dBcdkoQxvw29JVnmuKwDrPhQC4/yIac +qtlQb4riX7Qq5qT4IHU5wOjsM1Pci+GH733hBc4My/KRRlPUjtbdn1/JC2Os +VXdvtZji65W9G8KZvFDLkZgl2mmKkopDzG3neMDjYlzU3BdT1N8RK6cqzg1Z +dUeMHq+h42njkYx0Zy7gd3AvJwnSce67hf1LTS6IG6DqRAnT8YdR19ymFVyw +Z9W8qp4EHSNe7Nz6p4QTKFsjxXMV6CjTLnw1QIATuocOTJ/cSEeD0Yarit0c +ILF6X7n9djo2PhLs2aq1xMjbdCx60p2OqU8OnHX5tMjQP5a66YIXHZ/b/1o7 +fmGR4TBZ1tWzk45XHYMftf9bYCR1z/7x30dHi4LhNKe+v4z53OPm0fFEvLr3 +cv8rmWckfUhbI59IRzWmZUVx8DxDXDL37ZMkOuomnA4QXz/P0DvTGLAqhY53 +ww7tjMn/zQgK4zubdpmO2fRegcy8OUavyYXOgiI65i3PZh2vm2HsOZR3zaaE +jpGh287lxM0w5kqqd/8oo2Nd+Z8Mc8sZhqhKz++NLDp+8oz3W34zzbDjlZd7 +VE/HYbbWrNOvX4yHbwt2dXbR8dTAYdkeqymGreADncgeOoaXN8XmiE8xeqxa +5qT7CHMsSAwMTjJmar+f9h6gY2VnuG/tsUmGTo7e/W9jxPqmU2tvH5pgPOw1 +i0wZp+PXV9vLAyQnGLbi20B3ko4Xpmd5Vj/4yQg4deh1xCwdY2/ptPxYGmfM +1CdlS83TMenFm/vrc8cZCX8z/Wv/0jFGX/KrmdU4Q9jwrvaOJTpqML02GI7/ +YNwIqZ1dXiYc2WG+fOEH439x9+bt + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09090258748814627}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.09090258748814627}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VN8bAHBRlrLvxi4kS2SZGcPM+1L2aAjZQhRJlkoUJSSVJLSQVkKK +7GZCiyJRviiRKFkqUkKWFPK7v7/u83nuc855zznve+49yn5hTrs5OTg47q/g +4Pj/c66/pVH1bB6jUyvku8dpe8bbG9JHzHoSYL440VdLSgtQot1PuicDVJyD +4LukCUQy773j6skFBmfJoRpJOxD5KZXx510FmNf+LHaX9IRPDx3CZt49A27P +B+aCEsFgqTr2cerdG/Do/8W3IBQDf95RLk2+G4JPD3xONy4kQ8OmO3mvc6dh +0lOTW/PpVZD7VPPVT3sJXh6Ibg8wyAPxfT73eDZx4dKJY/09U3chY6NlnYML +Lx5Su39k06lS0O1zt6Lv4cV0elBWcXYptCaGdGrF8KIGg3VjdUkpcPdc/M6b +w4utkSu35L8thZjYYdmGH7wYvyLC+p5wGex6FXeUksiH2uEHV9t5lQF5dx1d +qXI1fo9dGYETZfA+S69+SlgAX2zI9jjEVQHZnUVCkWoCKGakVOjPXwEegut8 +/hoLYNTAjqe2EhXw4YT8P05/AQwdtLPnWlcBA6GrTcWrBZApKXxa3rYCRjd/ +ZpPdBTGxoid+JrUC5iczS2NyhPCmcKCVvFgl1GiJLS9XC2FumlSlkmwlRAek +OiS+FELKOq4CubWVsNiXOJ4yLYQ50wzSP/1KiBt+INGuIoyJwbA60KkSEtvy +tw1ECKM23/yp9vOVcDbveDunjAh+1CLNTqysAlvDIFGJtSI4z3FTZ2BNFfA2 +Orms0xHBBwvKXC2iVZA4rNZnZyaCE40n4hKVquCoSuvXi0EieLrcMz/XpApC +b0n/U68VwYPypkXR4VXgeK1c285TFIPe5G288LYKhLWvhu3YLYoTZizlS71V +0FaXWBEWJooy9m4Z5weI8fu2Uy+eEMWnw2O/Qn5UgTnp36aPRaJofTo5p4Or +GgyzbD3DFkVReoWBhc7GapC6OHzmwnUxHP3ULGyWVA3SWtWJ8wVi+JTEtWUh +uRpIz5KO7ygTQ5FXbb9LzleDwuT6Q+saxDBj4ectzivVoLYl3LduVAzrFHuo +nkXVYLByiTxsII6HbysnvW6rhq0Rkp/1X4rjZGdaZKcwC5hrRvszO8Wxq2vF +jzpxFjjl1rxf/CCOYZS27uvSLHDt8GpvmhBHw64RAQclFuzQvl3rISGBDswu +fl9dFgR/1k1P8JXAiL7z9223sOCUsw3jzZwEtnc9lmPEs4BU1UbiXCGJK8JN +SrMSWVAi5vx74xpJrHtByv9+igXdb7zL0hUlsTSl9XF0KgtUHSNUHK0lsSw2 +7Dn9Kgue2d/k7rgiiaYlT3jdKol47qsOL9+WxHrLEjtjFgvG+O890S2RRGEx +bi6xGhaItFYdPv9MEufL6jtLH7PA1/blmMN3Scy9PK54voUFS5azbf+ZSmFP +VVLil48sSCuILlqylEKhlrQChwFifG6O0zqOUthqKOBUNsSCLc9Xm53bLYXb +3DTsdoywIHuTUuWWVCksDnOY2DHJgg23888fzZLCYDY56ewvIl5OrX3FuVK4 +ueFsRfkMC749NVLjZ0uhy+DT1yPzLKCiXearT1LY2y2zfYGDDa03Ow4ufJPC +Dhpf0zgnG3yXXZhaM1Ko1ej0rmclG0499uU7yyuNg3wVI1m8bOg2jYyx3SiN +hd9uTdQLseGgcY5PS4I01rRaaFTIscH2luCMXYo0ftx6O1xSgQ0qPEdPt12S +RneNiIAIRTZ0vHUt7yyURummO77yKmzYEM7P1d8mjXzNEXVr17Fh1bsjmb49 +0tgtePiqiwYbPtBHtIYHpTGYmmcUv54NZ9c8cx6dIeI5s/Lmcy02jBZEFfwi +yaBQs0sElx4bngh8oR1SlcEYo3/buDay4XKEU/tvHRk0ct+wsEjYwlxnfhFl +cHsW952PBmyQu5udctxWBhPOqZU2GrJhRohXmdNZBsNGa07mG7Eh9+OQDU+g +DFYVbsl3prDhyGZm/5lwGVRw7Z5SobKBWfToAH+0DJ6Y/S72nfDy4ayrIudk +8Mme8U97aGzwEncYl62UwUsK5JckOhsMYuribzyUQbPcv7NswquHNCSVm2Tw +e/Pkqq0MNtSUcoH6exmcHZl+vxfYkCa5v7NwSAa/Tb/ImSC851h/oNYPGfz7 +3NMlFNkgaVeTprcsg/53gk+5m7FhvFxdrZKXhNyUZ3xNhBulL9YYiZJQ5cy5 +49rmbLh2fIXDA1kSBnyqH0shfPBr6BBNjYQP+h3tRwjb2n+IfLSBhBvOUe+a +bCL2r8pmDVJJKMAM40gm/IfEvvnMjIQ3v/1yfkO4I17V0MKOhEpRzwrFN7Ph +zmh68wtnEt4I/bTEJBy7ddnL1puEwtftXU8RdmXtm2oNJOHUWrEqNmEd+d6T +W/eTMDCKKjNEeGWiFelNNAlnPZtPcVsQ+z9WVeKcSMLMz+0r1AhXOqpseneO +hMHh3mfohJMfnH/nnknCF4UnlZiEdyouBX+4RcI3se4tXoSpSXs5fO4R81s/ +edKfsPD4u4uDlSTcrurntovwyDaL9bsekVBd66W5D+HHtRWPvjaRkI9mYeVM ++LKyklNQBwn1kn8FbiIccvrc1+/vifmkTRdoE9488Tc6dJiECn+CuYUJH7G+ +qPn0Bwnt3xVv/knMpyRHp1dsjoS7ioWHmggP/206E7BMwrScnIErhKWdfY1r +eGXxxpdg80DC9vf/jK4RlcWVRcf4dAkncF/I8paVRT71EcoUsd4/Hjz/zbVB +FrNX83fuIqws6nPHlSKLhzunNkkSdg2ed72LsviYP1H1GbGf9fJaLIdtshi9 +SZrOR3g2snF3jpcsrvNxPpJH5Idmxw6Jmd2yyFpbrkMjfCEhLeLKYVl8g648 +LkR+NfetV/0RL4vj5FG9XiL/Fg0bOhlnZXGIf0OfO+GAkVn9z9dlsTLrWK01 +kb9X8fwQ+Y4semoNTP8/vzuuaGScKZPF69sKWcqEaVs8pzY0yOLxV7qDn03Y +EJY/cyu+VRZ5frvaMwjn/TvHfNsli1z7Ku0yiPoRLK8vPTIqi1sZkzyaxmwY +klAPbRSQQz9NuUfSZDZIhT2Rl5KSw36nE38siXrd0uz2X5CSHF5UluoNI+qZ +FX1WW8hADucShtLK9Yl8+TQ55u4mhydem0jMbiDOC2pydvFOOVRW1a2c1yHq +P32t7fJeOTTzesDzW5sN3ptd7+Ydk0MBvqGPw5ps0L9bFziRK4cyjtZxseps +COR0kTIvlkPJhxfF3dSI+vL82XSxWg6FJRwOaKuygVtQWZ3WLIcBzRkXniuz +ofdA0ufEcTmMw9SyGuK8jDd13EmiymPn+i8HikTYYO194xfFXB7XDrrGigoT +84/7fsJlizw2tbIvHhQk+m84WZDmK4/ZNn9/rl3Dhge2td+5z8jjnjt9FXTi +vJ50Wxs5/V4emdPpNm6zLGBHh/OIfJbH4O0bT+6cZkHstUdZG37K41PRw8u7 +pljAP7C9LohTAQePbnjkMc6CdYEpHAOaCmimJFC74gsLvA/NJrfGEO/vCxZg +JwvUMs3lxk4q4If2Kc+JDhaRj+fv86Qp4FlO+aSsNhZEL67vMM9TwFc1U5t7 +ie/dpRPeEjWtCsgqONYqW8+C1vQXN/PlFfHKWBtPdhELaCVXqmKfKKKakdKd +q7Es2PyubelnsyKKHLv97U0MCxw4Vlr5vFFE9yfJNauOsMDfKfQ9fFHEkp0U +Ae+DLLCMUT4et0oJB+UUu98HsiBcce62mZYShj6ZjedgsqAx8OZ4Q6QSZiSs +E1KUZ4HNorHo0RglVA3qr/lPhgVtaW/JhnFKeDINHQ9LsuB9DV9c3hklrAxR +c3oqxIKfayJET15Twney4VMqnCyQLrOmWD5TwnhVA+a6r9Wwb34qrllAGck7 +KBy2xP8ObX+A5FdRZVRqXGGqeacaeMd6i7iklTF44JQy9+1qyO9r6GaoKOPR +zot/yrKrof/xJe1qsjLqP92/pfMM8X900rgnx0cZu++vnLUPrAZ90XjdmHJl +3NFerkFRrIY/WsL9Oi4qaMf2GHhwogpMi4pvXb68Fh1imUGgUwlTora+rs9U +cfyVf2xAazl8TvF1PcCjjpfXjsnNkcvAZiLK5gt5HUp9mywo3n0ffvjzHqw6 +roEC/n//XFa4R9wfpDhPPVuPL6YiHt5ZLADR/9RTyyY0cbH7ibWvfh7InS5l +ksnaWF5loFjllQNZWsbCYoE6yIxWzdn0/jq8JJkZTadvwEWTanpj7BWgyT1L +0+3WxVaV+u1emy+BIFduxM4EPRRTER6VbEkHhXhFU3f1jZjw8GGRzYpzwKfm +xXJ6sRH1xpmH+mJPwQa6TGnUDn0U5darnlI6AZVrgxY4ffWxrPOz4lmhE0Bd +XWOV6qePf0eKGBv/JYD5O7eBvEB9ZC7ujL/dlwCu+7NE3uzXR4FVj44oZibA +8XypCO0kfaQJ56qGCydAh4Ck8WCJPiY7Wl+344+HA/2iDbYcBrhRsGzr5q2x +0Nzk9egepwF2Wtn+8zaMBYXSAvbqVQaYHkk1PycTCy+P04pf8hngldoIf9XP +x0BF2e+SrZgBMnRUl0yij8Fr//JAW3UDfJQsLMt77yjofdvKb7vFALtbWw51 +SMXAxHSKi02WAdaTTxVyax6GDz05rtezDXDd3X+CWuKH4eUj1vapawZYvfXU +vM+/KMg7NeB+JccAOSsX9RbeRIGHrKH3t3sGGNXKT587GgXPzfsCzjwywAbx +8F9znZFwNX394ZYhA5Q0Nb/++dwhsNJtyrbRMcRGjzXmiboHwY3b2rlD1xAt +f96wWpQ9CHs/tghs1zfElxiqcZL3IKSe/S9uF8UQH3FIMVsGD0D3yNuA42aG ++CAig5t06QDsujWsX+1iiGohg+md//ZDgsiKV0qxRH+DEu2e/eHweNpk4Xeb +Ic7P1ncNXg6BnFa237bXhpjc6aldeiQEEvMNXpZ0GhL3D2/rS14hYLNd68ru +HkP8ME06X6QSAm9rSZTOQUO0L7dN/Ve6D8bi/xwomTFE6/si8nrtwSApzB7b +RTLCjJnbi0zFvRCqrd/7ercRWl7zOSvDFQiHfpP++uwxQvM1q4NyvwXA0Wdc +pJ97jVD1pUrLpo4AOOvW5b463Ajz2pcb268HQGHi4ffm0UYY8O3f1dW0ABj6 +8LinMtUI1UQVgxYid4PrObt3l9hG6PJ+bo815y7Y4Wb4e22tETqfLL/26Ls/ +7ForL1Xx0AizObh5bLr84WDNT9e2p0ZoPeJHzS30h7Qv6d3crUZYb2Sq4MX0 +h5f0nq6oASP86yKT2X/bD+g/d7115yOj446d6/I9doJknVXuwzVkPL9aXVXY +eif8PKUZrihIRr22zJspRjvhhvLkmi+iZGTb+nyoEd4J/5xjNoXLkTG5UnRm ++IUvPKlLr0jSJaP06+GRvca+YHbmcVqlCxn9/K4EtDt6A8k1x1vSjYz2373z +Xut5wy+VRO0jHmR0KoCsaSFvyH1o08zwIaOBkgL9ctsO4Jx8u9yyh4xW52dr +ttnvgAbX76EDMWT0yDxz+wrTCyxUpe0FcskYdEXXKD/EA6rGnyvvyiOj6pJz +GoejB6iyD87VFpDxfenByChDD1hp235zTxEZl572JrMX3OFZWNKvhioyvv7T +ERR71h0YdTOZ0S/IuFf+UrdYmRuQnV4PjfwgY2P57kdN/NuhQPY4mzFBxhu1 +Y8FB064g8UU75dIUGQ03Pvmt2usKM1GnjTbNkfFq3Yzz1zuuUHEdTt9YJuOK +q3dGzm92Bd1v93VcRCko93R14b4EF9CISz78jELB8VTj6XohZ3hokr9qC42C +rCDZQwd/bwPm7ycZXaYUTFX9bouftsHh0NniUTMKLv9TT9co3QbNXr6Dglso +qKxzcliPuQ32GJNtPX0peCi0rGJNphPc/TUoO3OaghbJuksWFEdglCwWHjtL +jP+Zsk5CxRHeBEmReVIp6KOWUbfA7wh/B7YwSRco+DvI9aXgMBNs29mJeJ2C +trleErZpTBgrOjeeUk7BXH65uJX9W0Fzt/ETtV4KXqDKmDUdsYfzKg5/T3yg +4PspQzef7fYw88nPaKifgoH6/tlyRvbw2COl6MYwBaeL9eS4praAE/NTptQ4 +BT8GG8Yd3bsFjpicDOfjoKK5W83elbvsoFnktfK4GhUn35Fik8NtQKf9i5ed +BhWPyKa+3etkAxkpfzPvalJxhbW3f7ChDXjxqAoG6FKxfzKrvHXeGiYWI//2 +U6l47093C/8Ja5AclevssCPaS2Uv7LluBbsf70ms2k9F7X4V96ZRC/gZMhZl +EUHFKepMhnmrBRyW3xfcHUnF4yF+uwZKLSD5aJjTfAwVs9dYmcdFWUAZLVLJ +NImKVOUyeXteC1hknXjYkE1Fhe2Otku6myGj9MbMmwYq+u4Z72y9bA5yPkqj +/k1U7Ir+60SLNYd8wdy+mWYqlklEwvPd5vAgJP+ZZBsVV4mFDukbmcNHreI0 +jx4qki8vDAZ1mYFGYY320A8qfrH3L9SSNYMnt97umpIwxhXe4dwukQADW5R9 +IqWN8cpi6sH3WwA4/oS4L5CMcbTZfMf5tQDmjjwOq5SMcSvrY1vqawY0raBR +ZDSNMWNf6dZuXQa0+t3kM2MY4zx3wTH3WVPoVd1bkhZgjEzBUYEXuTRY6GAV +SgQZ48AU/3uJ4zSQO8Z1OzvYGC97JLHOe9JgR9e1zLxwY3SmaH/lkqDBwMn2 +uAfRxihwbf3r0TPGMPLVcNtAqjEO2uirxMRQYaZw+bcu2xinRg/YHj1Khq+u +lrfO1BhjSKn6tgEfMvSsPGc9XGeML22sifsHGep8SVcu1xvjUwed4rbVZEiQ +NqIttRijkYn9iPJVIxA+vffoyw/G+MClT7rwqSFoB3Zx7Oak4XfLQm5LNQNQ +kJC7+3glDePvfjwRyW8Awg1+jtI8NDy3Oci8YVofphUmc16toWH4XVhZ/kwf +artXb9KXoGFQrpV67059sLbEk8vraIhSrVet8jeCv1oRX7Y9DUMOGPbVgh5E +P/feq86kIbPx97s9GnqQtlv0VYUTDUuGK64ZiOjBw/wjKa+20zC2aLiP3qQL +4urWQks7aWg/nJqaLqwLTepfxH0jaVjeGaF+qVQHNDUUldRv0tCgJYZ/o4QW +YPObuIocGnr/EdQ2HtcE1z1Jg4w8Gl6d7w898FwTThSO526/S8M5wfW7oyI1 +4YPGQ7UzlUS8LyxdG3vXQ+p6d60fL2h4TVHSy6hYA6Y0L5ArJmlY79p090O4 +OvS0ooXYNA1VFznYfUx1qA/9uS1iloY7ee+4LOupQ2qFzX7yXxqWNkZeq5xS +A00aR3Etlwn28c+Wv4pQAz+bEOUGSRPclvLlv0vxqvA20Ir/rakJdsWsizha +pQJ1fLMkIzBBEaF49ydZKpBblLv+spkJXl75Y0z5mAqETyxZulkS7etTEy0s +VUAgqir+w1YT7AxlPeXsVQbLJOXfn/1MkG7ndoHCowwP8hYGZ0+b4JqQIJGt +EwpA3hTx2/asCd7YuStFr14Bqgd/8N86R4z/9RrFKl0BKhT6KbYZJhjjyWMt +ZqgAxVn1525cNcH2vXuTlI7Kw62Uk8ZWJSY4U5TmOSQhB2cihNKzOk3QsviA +/v1QGeAVO10w3mWCdnkaSZ0WMpBUzvHQvMcEeTKNONfLy0Diz6mvPz6YoLFA +b7NvqzTE7nlravbVBDNymPP/tKXhgNeV0W/zJih6QVnhzZwkeGxeiyYKpng4 +yCSlsUgclt7yCjYomWKl6k2NpJPicGv3zz7btabYdmX89hEfcfiaVBPloWGK +8SFhybNi4nCgZWvpEX1TtNlzN9T0uBgkOxxVeGBpilH/rByGvEWh1q1r0TDM +FANe3yuLNhOGHd9qXz7cb4ppV15/Wq8sDBzRt7I2R5jip+hOAe4VwmB5NdjQ ++YgpMv89qTyTIARvPq7Yd/CEKV6u/dBcdkoQxvw29JVnmuKwDrPhQC4/yIac +qtlQb4riX7Qq5qT4IHU5wOjsM1Pci+GH733hBc4My/KRRlPUjtbdn1/JC2Os +VXdvtZji65W9G8KZvFDLkZgl2mmKkopDzG3neMDjYlzU3BdT1N8RK6cqzg1Z +dUeMHq+h42njkYx0Zy7gd3AvJwnSce67hf1LTS6IG6DqRAnT8YdR19ymFVyw +Z9W8qp4EHSNe7Nz6p4QTKFsjxXMV6CjTLnw1QIATuocOTJ/cSEeD0Yarit0c +ILF6X7n9djo2PhLs2aq1xMjbdCx60p2OqU8OnHX5tMjQP5a66YIXHZ/b/1o7 +fmGR4TBZ1tWzk45XHYMftf9bYCR1z/7x30dHi4LhNKe+v4z53OPm0fFEvLr3 +cv8rmWckfUhbI59IRzWmZUVx8DxDXDL37ZMkOuomnA4QXz/P0DvTGLAqhY53 +ww7tjMn/zQgK4zubdpmO2fRegcy8OUavyYXOgiI65i3PZh2vm2HsOZR3zaaE +jpGh287lxM0w5kqqd/8oo2Nd+Z8Mc8sZhqhKz++NLDp+8oz3W34zzbDjlZd7 +VE/HYbbWrNOvX4yHbwt2dXbR8dTAYdkeqymGreADncgeOoaXN8XmiE8xeqxa +5qT7CHMsSAwMTjJmar+f9h6gY2VnuG/tsUmGTo7e/W9jxPqmU2tvH5pgPOw1 +i0wZp+PXV9vLAyQnGLbi20B3ko4Xpmd5Vj/4yQg4deh1xCwdY2/ptPxYGmfM +1CdlS83TMenFm/vrc8cZCX8z/Wv/0jFGX/KrmdU4Q9jwrvaOJTpqML02GI7/ +YNwIqZ1dXiYc2WG+fOEH439x9+bt + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09090258748814627}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09090258748814627}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993851628603629*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"8949990d-6456-49e4-a7c3-70a0c8c66203"] }, Open ]], Cell[CellGroupData[{ @@ -2594,7 +8981,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -2612,8 +9001,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -2633,18 +9022,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[100]:=",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0020626550439254`*^-122\\\", \ +RowBox[{\\\"133014193160682192687674\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"141\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 17, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851628748316*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"f374b8d4-681e-42b4-84d3-a884cec6ebc8"], -Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5136055485702013`*^-124\\\", \ +RowBox[{\\\"615057629174994458987807\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"144\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 18, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851628755745*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"2912a076-2b41-464d-8d3e-721d922e1e59"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2862859374417816`*^-126\\\", \ +RowBox[{\\\"292828937250214861924095\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"148\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 19, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851628761848*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"85ea0811-4ff0-4ee2-9bc8-76ccd6e2e77d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 20, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851628768969*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"c0b86410-695a-4ffd-98b1-810472b6f98e"], + +Cell[BoxData["8.327828256265224`"], "Output", + CellChangeTimes->{3.993851695320259*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"b7f8ec73-3bc6-4ae9-981a-11400f82db10"] }, Open ]], Cell[CellGroupData[{ @@ -2711,27 +9157,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850595832054*^9, - 3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\ -8e83e9537fdc"], + CellChangeTimes->{{3.991850595832054*^9, 3.991850600247154*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56921c73-2b67-0e4a-9808-5f61de992c7e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8039957833974813`*^-241\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 21, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938516953744497`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"1c7846cf-5f5b-4b56-9031-ef43e4aa3339"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4980853698135751`*^-248\\\", \ +RowBox[{\\\"1067739468952301225452814\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"31\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8310538240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 22, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851695381791*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"091ba1cb-fc43-47a6-b1c2-29f6ffe11126"], -Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2440493464030392`*^-255\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 23, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938516953881903`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"27968280-2130-465c-bdfc-b83947e75f32"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 24, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851695394053*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"593950b3-12ac-4ec8-b2e3-cf668934af55"], + +Cell[BoxData["0.00027644428686183207`"], "Output", + CellChangeTimes->{3.993851701100116*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"339ac22a-3736-4863-ac57-78134000bb25"] }, Open ]], Cell[CellGroupData[{ @@ -2752,8 +9246,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -2798,27 +9291,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850617546938*^9, - 3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\ -3471356a3614"], + CellChangeTimes->{{3.991850617546938*^9, 3.991850621692934*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"1795c3b9-0182-224c-b986-6414d6712c04"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8039957833974813`*^-241\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 25, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851701139166*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"cf600c38-050e-4d20-ae42-117bcbfcc657"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c3b31753-a67f-9b45-b822-068e1df11f68"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4980853698135751`*^-248\\\", \ +RowBox[{\\\"1067739468952301225452814\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"31\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8310538240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 26, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938517011483803`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"a8271c37-cea5-4c8b-9f7d-a51903473f99"], -Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2440493464030392`*^-255\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 27, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851701155999*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"948711fa-fa4a-46ca-8d29-9a93d5b66e3e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 28, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851701163323*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"0083ce07-598a-41a5-bcc5-7719486b21de"], + +Cell[BoxData["17.447539549285313`"], "Output", + CellChangeTimes->{3.9938517064170322`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"4240135c-d2da-45fb-b8bd-3f7b87fe70da"] }, Open ]], Cell[CellGroupData[{ @@ -2839,8 +9380,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -2885,27 +9425,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918506254460773`*^9, - 3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\ -286954db37c5"], + CellChangeTimes->{{3.9918506254460773`*^9, 3.991850628958872*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8039957833974813`*^-241\\\", \ +RowBox[{\\\"8716240562875928371043383\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"27\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"5941477990400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 29, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938517064569693`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"4199cb66-fe88-4669-bbf6-f3f82d9839e1"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4e2b22f2-1724-7649-93fc-33cd27bb415e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4980853698135751`*^-248\\\", \ +RowBox[{\\\"1067739468952301225452814\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"31\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8310538240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 30, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851706466055*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"faafb214-52c6-4c3d-bfda-294d3421391e"], -Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2440493464030392`*^-255\\\", \ +RowBox[{\\\"1383790351762182388186847\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"34\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0457559040000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 31, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851706474712*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"7be7b14a-dab2-4bb4-9449-3f21b65d351e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 32, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851706482505*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"18a0b045-ac33-44f0-a78d-e09cb91e20b8"], + +Cell[BoxData["1.7421326099769125`"], "Output", + CellChangeTimes->{3.993851709692998*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"250476ce-d1e8-4464-a0d2-62efc480368a"] }, Open ]], Cell[CellGroupData[{ @@ -2914,19 +9502,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918506775260105`*^9, - 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ -20e078d734cd"], + CellChangeTimes->{{3.9918506775260105`*^9, 3.9918506840946693`*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +Cell[BoxData["0.0000501417997621912`"], "Output", + CellChangeTimes->{3.99385170973273*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"d38ae367-904a-4604-aa60-b1c61fe2bbdb"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9}, - 3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\ -dd2997d3499c"], + 3.9919245116307106`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ @@ -2947,10 +9539,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], - RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ -ae4b-824f-5eb2b3081f6d"], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[BoxData["6.982450948835095`"], "Output", + CellChangeTimes->{3.993851709750046*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"f50eeedd-19df-4a94-a510-083de09b25c0"] }, Open ]], Cell[CellGroupData[{ @@ -2958,10 +9554,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ -89cd-559587f30b91"], + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[BoxData["0.832298710455706`"], "Output", + CellChangeTimes->{3.9938517097588654`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"d972aa02-e10e-4fef-b57e-5c1041288b74"] }, Open ]], Cell[CellGroupData[{ @@ -2969,10 +9569,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ -afc4-be40-8f37-0116656ecd38"], + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[BoxData["5.811484920535671`"], "Output", + CellChangeTimes->{3.9938517097674713`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"4712f9e0-14cb-413d-a775-c24d907bd878"] }, Open ]], Cell[CellGroupData[{ @@ -3160,10 +9764,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ -82a6-7cf06f61e28f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[BoxData["0.012546849103687578`"], "Output", + CellChangeTimes->{3.9938517097820044`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"0a5ff222-4925-44f8-b1e9-7eb437dde874"] }, Open ]], Cell[CellGroupData[{ @@ -3175,18 +9783,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"b88b1a94-\ -22d7-2843-88e3-f607b95c8af9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"def6b331-c871-b04d-a16e-4fc00b03d009"], - -Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[BoxData["7.911841953250667`"], "Output", + CellChangeTimes->{3.993851709872299*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"e81e122d-264f-4651-ab63-b235fe769d2c"] }, Open ]], Cell[CellGroupData[{ @@ -3376,10 +9980,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ -9b53-9472e00c4d82"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[BoxData["0.15343659776675467`"], "Output", + CellChangeTimes->{3.993851709885648*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"af26deac-2ce6-4eab-9b21-0cf72fdebbca"] }, Open ]], Cell[CellGroupData[{ @@ -3391,18 +9999,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"47e2a8e8-\ -6af3-374f-9eea-9c2b6faaaf4a"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c6c8676e-4601-144e-b83c-769e22949175"], - -Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[BoxData["2.2624576607533204`"], "Output", + CellChangeTimes->{3.993851709992662*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"b95aca18-9989-47b6-98c6-d3281dc9f807"] }, Open ]], Cell[CellGroupData[{ @@ -3493,10 +10097,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ -6b0985b9b3bc"], + ")"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[BoxData["0.08903677593802349`"], "Output", + CellChangeTimes->{3.993851710005287*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"5cea8dba-7b2a-4160-8a3c-88ee14a71b5c"] }, Open ]], Cell[CellGroupData[{ @@ -3584,10 +10192,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ -4868d83e9702"], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[BoxData["0.9109632240619764`"], "Output", + CellChangeTimes->{3.99385171001822*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"8575dc37-4f3a-422b-8bd8-45679d371e98"] }, Open ]], Cell[CellGroupData[{ @@ -3708,10 +10320,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ -9940-98cd-9460e2c074b2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[BoxData["0.08110922846858569`"], "Output", + CellChangeTimes->{3.9938517100324793`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"33baca9c-b7e4-4818-8933-58d11d7958b9"] }, Open ]], Cell[CellGroupData[{ @@ -3726,30 +10342,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -3773,27 +10392,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\ -05d6af1a6e52"], + CellChangeTimes->{3.991850710120125*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7fd60dea-f794-4744-8801-bfb1a50a0e07"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.12612552597999`*^-211\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 33, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99385171005254*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"19485de0-4b03-4dcc-b96b-4be637b24506"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0b8c0718-41d2-4542-8afe-212a15805650"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8085503894797516`*^-216\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 34, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938517100589037`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"1e52048e-87d2-4f27-af0e-9436dbb750d7"], -Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8296334133240623`*^-221\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 35, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851710065298*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"c35ea1ef-319a-4faf-bc7f-634a6beb835b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 36, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851710071224*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"5243f702-c89c-49b6-a09e-ba12de864874"], + +Cell[BoxData["7.911841953250662`"], "Output", + CellChangeTimes->{3.9938517138357887`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"fcb13d42-ae3c-43e0-b973-84229870334f"] }, Open ]], Cell[CellGroupData[{ @@ -3808,30 +10472,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -3855,27 +10522,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\ -f69c33a31448"], + CellChangeTimes->{3.9918507152152424`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b6f0ccc2-ff83-124b-a341-e143319c7670"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.12612552597999`*^-211\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 37, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851713875311*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2fbae2bb-2fbe-4f56-93f3-fd97ea97a2e2"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8085503894797516`*^-216\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 38, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851713881754*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"6e5ed560-c81d-417f-a6ca-e0ea0654dfad"], -Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8296334133240623`*^-221\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 39, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938517138875923`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"996d78cb-d4a6-47b7-8cb3-8bcec46958bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 40, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851713894799*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"b72606c5-3924-48c3-a8a8-fe410f94011c"], + +Cell[BoxData["2.2624576607533196`"], "Output", + CellChangeTimes->{3.993851717646082*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"2bf9e185-dbc3-4461-9b4a-2c8a91849be7"] }, Open ]], Cell[CellGroupData[{ @@ -3933,489 +10645,392 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\ -194fae57c34e"], + CellChangeTimes->{3.9918507183992805`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7797a546-4085-124a-83da-5f3c472cdc4c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"ca7472ca-7b27-a54a-84a1-e603fa592207"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC -MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 -5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX -nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v -yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi -sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG -tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W -tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw -WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq -Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz -IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A -nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc -Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td -rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 -63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp -CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el -jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD -f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA -eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb -uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa -UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au -6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 -BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ -5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX -XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 -jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO -JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme -IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG -gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ -9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ -ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL -bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD -pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN -ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 -ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j -6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE -iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k -d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz -+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ -6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C -2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K -wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 -xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 -9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 -OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm -yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj -GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz -mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W -ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 -pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu -KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH -65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD -bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ -LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW -2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx -bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU -E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 -7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 -5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 -brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT -OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o -Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL -hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl -D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm -v/odiPr3KLwBMhrzH2bRmaY=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-14.8518, 0.65382, 0.693802, \ -0.00448812}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\ -49e8ffb5e8c8"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4FV0cB3DZklB4kWTJRSFeuRLV6/yyJFmSSvYsd8YSsiUiEpIW2UIl +yhJ5lSwla4qkeCO0KWXJJQyuNVK95/4xzzyf58x853vOmZmNrsetCE4ODg4K +H+yz/2v1TZUdr/WW0uznC7NYSG8ib5urYTFKq9g8wnZftnaqgmEtcuNNqmPb +kvEfrwD9OTJMTA1muzQkspHHsA2V29BF2Y5vXtcQWfQGtXn4pBRgV3X4Zy1r +vkV6bfoLd7BHe16Fh9Z8QFZJ5Xpsrx+i2c8bfEZjLU8887FNJ8N1A9u+oqhz +7iF52PXLo6tDivqRWl+RVy72uyiJsEe+g+jGRDzkYE/wGo7Oag4hgf+4l25h +817ys6UvMJHLNan0bGwZ4Zst/jUjSCTotUQWtoXU/J0Jg3HkMsjXdB2bvCUv +rsY3gUaeJ05mYEcq7o891jaJbls9/J2G/UGie2tQEQvx0d6+SMZm2Hl5plya +Rh4vO6ISsacyOW6X+c4gm6+esgnYfPJqa1mac+jTzhM88dipjEbjtWLzqH9x +2PwctlyBbeTfC/PIVXwxNBpbZ8u5CZ+aH8g0eCH8NLaH9te2UYNlpFfure6H +PRtygptf6RcK1+pJ8cY+U7N6lzLfb5TuO/LZAzsDdP51b/uDmMdGJF3Y/fJb +DAOKVsCF0jPIEruoOaUvSooTtIR+PzVl9x12Ck+6xAk0BdnNxtjhKnPlD3y5 +YLeaRfY/7L4lG2mTmjzQKOutq4zd0zFe/zuXByqyRT/S2P2nK+2ExHhBPdLV +QQa7WMsiWW2BF9a5/BAUxW6qOrXCu4YPDJ1FpX/eZKG5xq6vIwYCoGEUM/Yc +W8RMYG1YvQBwbylXqcfW6DYEQV1BYELm3kfYXt8e3tqqLgRZ9rfk7mD7cbZp +/COwFrjGz++OwR6Sv8+KnReGgm//Gu/AniVfrWqni4CN5FiABjbnv8yN6/xF +4H7FTLgSthxd1qpoTATWehFqIth2Bollr/tEQTfn+5/hTBZqdwsIlGgVg6cx +J70vY38pSLjozCcOjvpvY6Kwx8eKcu8aicNztTXhJ7D5gwa7djaIw3TNhpWO +2IYxh7ScH0pAXl3jFRXs6jztucJsSfDaesL7yQ0WyhtaCt4RJA13ROodO66z +0N7DcV8C70lDIxFKPMUebxLdc48pDS9mQy3LsLXytojJ2coA85hlRwp2k6tT +OY+eLOz7eOrkYezpyb6TI9FykLN7DdF1jYVEfQwrys3lIVVZqKUqg4WYefwe +ll7yoLLn6M4C7MefO6Soc/Lw58Om5FRsBzPHaKUGeWixVRr1xc5TDba6pkmD +fkV+Q3lsrdGCqQgJBXAO5rgdnc5Ch9xXq+3rV4T6of8EtqaxEAo+rHnklyLI +cg66SGGrxGZvZ0gqwb2y5zd4sDly6foRB5SAzPxZ9/EqC937Yn+k7KkSaNxz +rj2DzWtdHLU+ZxP4+XfkvEzF/QzN3426KkPKSIuCcQoL5R5M/7QQoQwHg2Ik +1LETXPv7uG8ow5pIy8m/sBlnTozJdCmDoyDNYiCZhYRrb3IcNFAB+yBWSxi2 +F31CpYamCgrW2g/vJrGQlPyVyIvftgAPMR3CusJCtRdmlRc51WDvcmthJ7bD +jG03uVENtB6ZV5VjZzUpKOs7qcFgnHX4CWx59+rOH+/VYFHw44WFBDzf4iFF +slUdzvrGtc1dZiFpKRlSzlYDEkYcl3oustCW/CCBn0gTYvd8btkbx0KujOg5 +NQtNkDbKfaOAnUFL/uLsoAl21sNPOLC5ckoeNIdowpEnM2aPz+HvLWv0UHKp +JjglhSorYcdnON9UptHh56Ds5HIM3t+LZuo2vFqQ1BvdlHaWhW4HKFg+bNsG +nyS9HMJPs1BHMNoek68LLz7uINf4s9BGp7cWjt7/QNyYjOAGNxYi/jy6Lx0K +MGpiPn7jEAtJjD1eKeGqD8SvpT47AxYKou/6nKxiCCWBnQvMrbg/tdwiOmoE +6949yMiWxfupH7gyu90YQrtLG9L48fsz6/W0ONUEanooNDU3hX7sXvdfU6Qp +pIbWWF75MoV6ObhY/S7mcOaphHV18xTy3XA8MYq2H5biK1W7S6bQfc+Whqux +ljBZ+7vBJW0KnZqRXFD1PADWe96/V42YQnP79li/OGoF42R0WKLbFNK1T9o9 +dOAgiNdmcG01mUKdkje9muiHIGS69W6oxhRafye6tnDzYRDybVYsFptCj/tU +zCwEraFDJet3xOIkkumecg+mrKGIoQ0rXk4i+tWk4ty+IzDc5rFx5dVJdJN7 +Rj250QZ6em/wmhGT6NHuv3tiq2whmNtO/YbmJMrYfkF4ucgOegRbRcQ4J1H7 +p/xz9Ev2kFdTslXi3QR6aJ6p4HfGAea/bn9NFUwgls9BDl+GI0SLBnf5REyg +uT3KHhMGTnB/1c79DkcmUCH18Ueg9lE4f/TXhmH1CWRzO9/NUcAZuqVDecVW +T6DyMtOjXHHOMFMwF3CSSSFdqc7F+EVnMCY2WwQ1U4jW597zxtMFdC7Mv9p6 +l0LfVh/bnznoAvLf39HHLlKoI8HCzfiwK6h4uhxYCqBQakj26hMdrvCk9TMt +y45CtfV/Ft1M3MDk8M66YCMKrXGAOHq1G1y201BDWhSS++tF+4ZaNwh+HjC2 +SKeQRpv5Ot56N+j7pPShAttql/3dD0/d4MPJyV2q2KkbgltPv3SD11MHtNZr +Umh9779rWj64wTDtzWcODQopOElkOCy4AS1/dhNLFc/HeaIwVosBr1mfdZ0U +KHTn2lSghTYD5mPbTm3G/qtrWk9ChwEtqi3fpmkUmjBa6C7cyQC6yRj9PHae +KseKNn0GfKsXe1IhTyGhBWFbkQMM+Lkh64LYRrwel7etyvZhgH8W4pqXptCB +F9u73Y8zQEHZ0PM5dj3HjmwNfwa8r0r4kYp9LVBv27MgBjQ1LSdrYVvYGrsM +hTFgWsC78sQGClUp2FapXmBAV7NQw5/1FEqoCfd8fIcB9vHtnzTXUchHM103 +pJAB2nkzxnzYZndLV+kUMeCT+uynXgkK8acz71beY4CteWJYPHZsgOXoowoG +VAY7XBsQp1C4ssKxh88YICwTYZkpRiGv9Fbvsi8MeOfh9UhNlEImQsxdAX0M +2CnfIseHvTmWQ1BzAPf3UysfEKEQM2DbvdIhBgx0i1pmYLtYZFMPxhmw+maA +Fw+2DU+gb8kSAy6+uCA/vJZCxoHr/YrFCYBL/oUtQhR6ln1uX/I6Anw4bh3M +x97VNq0Qsp6A7MOS6mexNRRbPxrIEFCnOu23C1vyfZjBJ0UC3D+4qpcLUmhs +R684/zYCNCK84+8KUOgK560694ME7Doo+7KKH8//b4EM88MEfBTXcs7EjrEP +CaAfIUD/aK1SJHZIheWmP3YEGIlu0TfCdiFXJKW5EpBWVlDWtYpC9FeujOf+ +BAR95w1b5KPQ+yTF1bREAqzfVD/wWEmh+0jQYySJgAdf81qssGOo2aZ7KQQI +dy+v+gdb06QpQiedgOOMRT4R7AQOt2nzLAJkL+j+qOOl0J7jtz6GFBMQ4B+U +KY0tLX1eW+8+AWWlyab82LOvjqdwPSAgk09FYYGHQjlKyDyhnIDS1OYDb7B/ +9fY25Fbj9RR6mRWHXWEmVfi6hQBvmQiOZW4KXVzi5El9RcDTsRDjMWzXwlEX +2zYCZlPmK3uw13JXS31rJ6CzPFysGtu7xubK4jsCCm82PjuFTVNJC1YYImC8 +tYzJhb30/nTXdyYBeU+kmue48PceS2iUjBBwnbmmfRg7ol9rVHecgIKyG45t +2D0ZXY77Z/DzNC180rGTVwobnVpBgkdx1JFt2LXTvfZBXCSEZemFbcYe7i0K +8OUhQUfwZacU9q4Kw1uuq0iQj94rzYXNdA75uU+YhGBDDrluTtzfzEjESJSE +nuztAy3YO7eLKCMxEtSi4UMddqJgsTVdkgS/upajhezx6q+lUhtJmDn/5HMk +Nplf3CJGI8Gy5so/wezrE0O/rlEkQW9Wq9Mbm0mKCnIrkxC5hiPdjj0uauwx +rkFCWVxugg529W/RSKYmCdbXlRI0sIe+913t0yKhPT/q6WbsHQ2nGrt1SDCd +b2iUxP7mfV+mDkhwVffR/r0C/z9swrZV6pOg/eJx9wK2rsFes1JDEgLqv9xh +YSdIDoTm7yXh6ptq5hD2Y+6SxOx9JCR6+x/qwx6cDCu4ZkaCOYNrvgdbp1ns +7WVLEv7sr+7uwHYtHRiLsyIhqvSrcBv25cwSzrOHSFjY13/2BfZAgIlGsA0J +J0ZCOZ5gCzqJG/vZkXB5r7BgDTvPZNDRy4GE3IxY80r2/bKnLzo5k3ClkMfr +AbsP/74cG1cSfpcJ77nHzpsTr7JikOCi//NwETuvf7DdjCQhOvjZtQJ2XtsD +5h4PEka93YXz2f0qT/8CLxJEd4/W5rDzc/b9tdMb75+AaeYtdv5lCdVtviTQ +h+JLstj5Id92/+1HArPvznwmtgCj1EY5gIRVIjn+N7C37484TgsiYeh8mNx1 +dv4O03PSwSS8PUjnuoZ9SXHdTYkQEgYjXkpmYD9aO1QufIqEflE9Rjp2/8/S +V6vDSYhfnzSQxs4fjujniSABMp6lsq3dafrjTyQJnomdp9j+HxfPDJ0= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4FV0cB3DZklB4kWTJRSFeuRLV6/yyJFmSSvYsd8YSsiUiEpIW2UIl +yhJ5lSwla4qkeCO0KWXJJQyuNVK95/4xzzyf58x853vOmZmNrsetCE4ODg4K +H+yz/2v1TZUdr/WW0uznC7NYSG8ib5urYTFKq9g8wnZftnaqgmEtcuNNqmPb +kvEfrwD9OTJMTA1muzQkspHHsA2V29BF2Y5vXtcQWfQGtXn4pBRgV3X4Zy1r +vkV6bfoLd7BHe16Fh9Z8QFZJ5Xpsrx+i2c8bfEZjLU8887FNJ8N1A9u+oqhz +7iF52PXLo6tDivqRWl+RVy72uyiJsEe+g+jGRDzkYE/wGo7Oag4hgf+4l25h +817ys6UvMJHLNan0bGwZ4Zst/jUjSCTotUQWtoXU/J0Jg3HkMsjXdB2bvCUv +rsY3gUaeJ05mYEcq7o891jaJbls9/J2G/UGie2tQEQvx0d6+SMZm2Hl5plya +Rh4vO6ISsacyOW6X+c4gm6+esgnYfPJqa1mac+jTzhM88dipjEbjtWLzqH9x +2PwctlyBbeTfC/PIVXwxNBpbZ8u5CZ+aH8g0eCH8NLaH9te2UYNlpFfure6H +PRtygptf6RcK1+pJ8cY+U7N6lzLfb5TuO/LZAzsDdP51b/uDmMdGJF3Y/fJb +DAOKVsCF0jPIEruoOaUvSooTtIR+PzVl9x12Ck+6xAk0BdnNxtjhKnPlD3y5 +YLeaRfY/7L4lG2mTmjzQKOutq4zd0zFe/zuXByqyRT/S2P2nK+2ExHhBPdLV +QQa7WMsiWW2BF9a5/BAUxW6qOrXCu4YPDJ1FpX/eZKG5xq6vIwYCoGEUM/Yc +W8RMYG1YvQBwbylXqcfW6DYEQV1BYELm3kfYXt8e3tqqLgRZ9rfk7mD7cbZp +/COwFrjGz++OwR6Sv8+KnReGgm//Gu/AniVfrWqni4CN5FiABjbnv8yN6/xF +4H7FTLgSthxd1qpoTATWehFqIth2Bollr/tEQTfn+5/hTBZqdwsIlGgVg6cx +J70vY38pSLjozCcOjvpvY6Kwx8eKcu8aicNztTXhJ7D5gwa7djaIw3TNhpWO +2IYxh7ScH0pAXl3jFRXs6jztucJsSfDaesL7yQ0WyhtaCt4RJA13ROodO66z +0N7DcV8C70lDIxFKPMUebxLdc48pDS9mQy3LsLXytojJ2coA85hlRwp2k6tT +OY+eLOz7eOrkYezpyb6TI9FykLN7DdF1jYVEfQwrys3lIVVZqKUqg4WYefwe +ll7yoLLn6M4C7MefO6Soc/Lw58Om5FRsBzPHaKUGeWixVRr1xc5TDba6pkmD +fkV+Q3lsrdGCqQgJBXAO5rgdnc5Ch9xXq+3rV4T6of8EtqaxEAo+rHnklyLI +cg66SGGrxGZvZ0gqwb2y5zd4sDly6foRB5SAzPxZ9/EqC937Yn+k7KkSaNxz +rj2DzWtdHLU+ZxP4+XfkvEzF/QzN3426KkPKSIuCcQoL5R5M/7QQoQwHg2Ik +1LETXPv7uG8ow5pIy8m/sBlnTozJdCmDoyDNYiCZhYRrb3IcNFAB+yBWSxi2 +F31CpYamCgrW2g/vJrGQlPyVyIvftgAPMR3CusJCtRdmlRc51WDvcmthJ7bD +jG03uVENtB6ZV5VjZzUpKOs7qcFgnHX4CWx59+rOH+/VYFHw44WFBDzf4iFF +slUdzvrGtc1dZiFpKRlSzlYDEkYcl3oustCW/CCBn0gTYvd8btkbx0KujOg5 +NQtNkDbKfaOAnUFL/uLsoAl21sNPOLC5ckoeNIdowpEnM2aPz+HvLWv0UHKp +JjglhSorYcdnON9UptHh56Ds5HIM3t+LZuo2vFqQ1BvdlHaWhW4HKFg+bNsG +nyS9HMJPs1BHMNoek68LLz7uINf4s9BGp7cWjt7/QNyYjOAGNxYi/jy6Lx0K +MGpiPn7jEAtJjD1eKeGqD8SvpT47AxYKou/6nKxiCCWBnQvMrbg/tdwiOmoE +6949yMiWxfupH7gyu90YQrtLG9L48fsz6/W0ONUEanooNDU3hX7sXvdfU6Qp +pIbWWF75MoV6ObhY/S7mcOaphHV18xTy3XA8MYq2H5biK1W7S6bQfc+Whqux +ljBZ+7vBJW0KnZqRXFD1PADWe96/V42YQnP79li/OGoF42R0WKLbFNK1T9o9 +dOAgiNdmcG01mUKdkje9muiHIGS69W6oxhRafye6tnDzYRDybVYsFptCj/tU +zCwEraFDJet3xOIkkumecg+mrKGIoQ0rXk4i+tWk4ty+IzDc5rFx5dVJdJN7 +Rj250QZ6em/wmhGT6NHuv3tiq2whmNtO/YbmJMrYfkF4ucgOegRbRcQ4J1H7 +p/xz9Ev2kFdTslXi3QR6aJ6p4HfGAea/bn9NFUwgls9BDl+GI0SLBnf5REyg +uT3KHhMGTnB/1c79DkcmUCH18Ueg9lE4f/TXhmH1CWRzO9/NUcAZuqVDecVW +T6DyMtOjXHHOMFMwF3CSSSFdqc7F+EVnMCY2WwQ1U4jW597zxtMFdC7Mv9p6 +l0LfVh/bnznoAvLf39HHLlKoI8HCzfiwK6h4uhxYCqBQakj26hMdrvCk9TMt +y45CtfV/Ft1M3MDk8M66YCMKrXGAOHq1G1y201BDWhSS++tF+4ZaNwh+HjC2 +SKeQRpv5Ot56N+j7pPShAttql/3dD0/d4MPJyV2q2KkbgltPv3SD11MHtNZr +Umh9779rWj64wTDtzWcODQopOElkOCy4AS1/dhNLFc/HeaIwVosBr1mfdZ0U +KHTn2lSghTYD5mPbTm3G/qtrWk9ChwEtqi3fpmkUmjBa6C7cyQC6yRj9PHae +KseKNn0GfKsXe1IhTyGhBWFbkQMM+Lkh64LYRrwel7etyvZhgH8W4pqXptCB +F9u73Y8zQEHZ0PM5dj3HjmwNfwa8r0r4kYp9LVBv27MgBjQ1LSdrYVvYGrsM +hTFgWsC78sQGClUp2FapXmBAV7NQw5/1FEqoCfd8fIcB9vHtnzTXUchHM103 +pJAB2nkzxnzYZndLV+kUMeCT+uynXgkK8acz71beY4CteWJYPHZsgOXoowoG +VAY7XBsQp1C4ssKxh88YICwTYZkpRiGv9Fbvsi8MeOfh9UhNlEImQsxdAX0M +2CnfIseHvTmWQ1BzAPf3UysfEKEQM2DbvdIhBgx0i1pmYLtYZFMPxhmw+maA +Fw+2DU+gb8kSAy6+uCA/vJZCxoHr/YrFCYBL/oUtQhR6ln1uX/I6Anw4bh3M +x97VNq0Qsp6A7MOS6mexNRRbPxrIEFCnOu23C1vyfZjBJ0UC3D+4qpcLUmhs +R684/zYCNCK84+8KUOgK560694ME7Doo+7KKH8//b4EM88MEfBTXcs7EjrEP +CaAfIUD/aK1SJHZIheWmP3YEGIlu0TfCdiFXJKW5EpBWVlDWtYpC9FeujOf+ +BAR95w1b5KPQ+yTF1bREAqzfVD/wWEmh+0jQYySJgAdf81qssGOo2aZ7KQQI +dy+v+gdb06QpQiedgOOMRT4R7AQOt2nzLAJkL+j+qOOl0J7jtz6GFBMQ4B+U +KY0tLX1eW+8+AWWlyab82LOvjqdwPSAgk09FYYGHQjlKyDyhnIDS1OYDb7B/ +9fY25Fbj9RR6mRWHXWEmVfi6hQBvmQiOZW4KXVzi5El9RcDTsRDjMWzXwlEX +2zYCZlPmK3uw13JXS31rJ6CzPFysGtu7xubK4jsCCm82PjuFTVNJC1YYImC8 +tYzJhb30/nTXdyYBeU+kmue48PceS2iUjBBwnbmmfRg7ol9rVHecgIKyG45t +2D0ZXY77Z/DzNC180rGTVwobnVpBgkdx1JFt2LXTvfZBXCSEZemFbcYe7i0K +8OUhQUfwZacU9q4Kw1uuq0iQj94rzYXNdA75uU+YhGBDDrluTtzfzEjESJSE +nuztAy3YO7eLKCMxEtSi4UMddqJgsTVdkgS/upajhezx6q+lUhtJmDn/5HMk +Nplf3CJGI8Gy5so/wezrE0O/rlEkQW9Wq9Mbm0mKCnIrkxC5hiPdjj0uauwx +rkFCWVxugg529W/RSKYmCdbXlRI0sIe+913t0yKhPT/q6WbsHQ2nGrt1SDCd +b2iUxP7mfV+mDkhwVffR/r0C/z9swrZV6pOg/eJx9wK2rsFes1JDEgLqv9xh +YSdIDoTm7yXh6ptq5hD2Y+6SxOx9JCR6+x/qwx6cDCu4ZkaCOYNrvgdbp1ns +7WVLEv7sr+7uwHYtHRiLsyIhqvSrcBv25cwSzrOHSFjY13/2BfZAgIlGsA0J +J0ZCOZ5gCzqJG/vZkXB5r7BgDTvPZNDRy4GE3IxY80r2/bKnLzo5k3ClkMfr +AbsP/74cG1cSfpcJ77nHzpsTr7JikOCi//NwETuvf7DdjCQhOvjZtQJ2XtsD +5h4PEka93YXz2f0qT/8CLxJEd4/W5rDzc/b9tdMb75+AaeYtdv5lCdVtviTQ +h+JLstj5Id92/+1HArPvznwmtgCj1EY5gIRVIjn+N7C37484TgsiYeh8mNx1 +dv4O03PSwSS8PUjnuoZ9SXHdTYkQEgYjXkpmYD9aO1QufIqEflE9Rjp2/8/S +V6vDSYhfnzSQxs4fjujniSABMp6lsq3dafrjTyQJnomdp9j+HxfPDJ0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9064438246609942, 1.101235353789376}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9064438246609962}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.9064438246609942, 1.101235353789376}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9064438246609962}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4FV0cB3DZklB4kWTJRSFeuRLV6/yyJFmSSvYsd8YSsiUiEpIW2UIl +yhJ5lSwla4qkeCO0KWXJJQyuNVK95/4xzzyf58x853vOmZmNrsetCE4ODg4K +H+yz/2v1TZUdr/WW0uznC7NYSG8ib5urYTFKq9g8wnZftnaqgmEtcuNNqmPb +kvEfrwD9OTJMTA1muzQkspHHsA2V29BF2Y5vXtcQWfQGtXn4pBRgV3X4Zy1r +vkV6bfoLd7BHe16Fh9Z8QFZJ5Xpsrx+i2c8bfEZjLU8887FNJ8N1A9u+oqhz +7iF52PXLo6tDivqRWl+RVy72uyiJsEe+g+jGRDzkYE/wGo7Oag4hgf+4l25h +817ys6UvMJHLNan0bGwZ4Zst/jUjSCTotUQWtoXU/J0Jg3HkMsjXdB2bvCUv +rsY3gUaeJ05mYEcq7o891jaJbls9/J2G/UGie2tQEQvx0d6+SMZm2Hl5plya +Rh4vO6ISsacyOW6X+c4gm6+esgnYfPJqa1mac+jTzhM88dipjEbjtWLzqH9x +2PwctlyBbeTfC/PIVXwxNBpbZ8u5CZ+aH8g0eCH8NLaH9te2UYNlpFfure6H +PRtygptf6RcK1+pJ8cY+U7N6lzLfb5TuO/LZAzsDdP51b/uDmMdGJF3Y/fJb +DAOKVsCF0jPIEruoOaUvSooTtIR+PzVl9x12Ck+6xAk0BdnNxtjhKnPlD3y5 +YLeaRfY/7L4lG2mTmjzQKOutq4zd0zFe/zuXByqyRT/S2P2nK+2ExHhBPdLV +QQa7WMsiWW2BF9a5/BAUxW6qOrXCu4YPDJ1FpX/eZKG5xq6vIwYCoGEUM/Yc +W8RMYG1YvQBwbylXqcfW6DYEQV1BYELm3kfYXt8e3tqqLgRZ9rfk7mD7cbZp +/COwFrjGz++OwR6Sv8+KnReGgm//Gu/AniVfrWqni4CN5FiABjbnv8yN6/xF +4H7FTLgSthxd1qpoTATWehFqIth2Bollr/tEQTfn+5/hTBZqdwsIlGgVg6cx +J70vY38pSLjozCcOjvpvY6Kwx8eKcu8aicNztTXhJ7D5gwa7djaIw3TNhpWO +2IYxh7ScH0pAXl3jFRXs6jztucJsSfDaesL7yQ0WyhtaCt4RJA13ROodO66z +0N7DcV8C70lDIxFKPMUebxLdc48pDS9mQy3LsLXytojJ2coA85hlRwp2k6tT +OY+eLOz7eOrkYezpyb6TI9FykLN7DdF1jYVEfQwrys3lIVVZqKUqg4WYefwe +ll7yoLLn6M4C7MefO6Soc/Lw58Om5FRsBzPHaKUGeWixVRr1xc5TDba6pkmD +fkV+Q3lsrdGCqQgJBXAO5rgdnc5Ch9xXq+3rV4T6of8EtqaxEAo+rHnklyLI +cg66SGGrxGZvZ0gqwb2y5zd4sDly6foRB5SAzPxZ9/EqC937Yn+k7KkSaNxz +rj2DzWtdHLU+ZxP4+XfkvEzF/QzN3426KkPKSIuCcQoL5R5M/7QQoQwHg2Ik +1LETXPv7uG8ow5pIy8m/sBlnTozJdCmDoyDNYiCZhYRrb3IcNFAB+yBWSxi2 +F31CpYamCgrW2g/vJrGQlPyVyIvftgAPMR3CusJCtRdmlRc51WDvcmthJ7bD +jG03uVENtB6ZV5VjZzUpKOs7qcFgnHX4CWx59+rOH+/VYFHw44WFBDzf4iFF +slUdzvrGtc1dZiFpKRlSzlYDEkYcl3oustCW/CCBn0gTYvd8btkbx0KujOg5 +NQtNkDbKfaOAnUFL/uLsoAl21sNPOLC5ckoeNIdowpEnM2aPz+HvLWv0UHKp +JjglhSorYcdnON9UptHh56Ds5HIM3t+LZuo2vFqQ1BvdlHaWhW4HKFg+bNsG +nyS9HMJPs1BHMNoek68LLz7uINf4s9BGp7cWjt7/QNyYjOAGNxYi/jy6Lx0K +MGpiPn7jEAtJjD1eKeGqD8SvpT47AxYKou/6nKxiCCWBnQvMrbg/tdwiOmoE +6949yMiWxfupH7gyu90YQrtLG9L48fsz6/W0ONUEanooNDU3hX7sXvdfU6Qp +pIbWWF75MoV6ObhY/S7mcOaphHV18xTy3XA8MYq2H5biK1W7S6bQfc+Whqux +ljBZ+7vBJW0KnZqRXFD1PADWe96/V42YQnP79li/OGoF42R0WKLbFNK1T9o9 +dOAgiNdmcG01mUKdkje9muiHIGS69W6oxhRafye6tnDzYRDybVYsFptCj/tU +zCwEraFDJet3xOIkkumecg+mrKGIoQ0rXk4i+tWk4ty+IzDc5rFx5dVJdJN7 +Rj250QZ6em/wmhGT6NHuv3tiq2whmNtO/YbmJMrYfkF4ucgOegRbRcQ4J1H7 +p/xz9Ev2kFdTslXi3QR6aJ6p4HfGAea/bn9NFUwgls9BDl+GI0SLBnf5REyg +uT3KHhMGTnB/1c79DkcmUCH18Ueg9lE4f/TXhmH1CWRzO9/NUcAZuqVDecVW +T6DyMtOjXHHOMFMwF3CSSSFdqc7F+EVnMCY2WwQ1U4jW597zxtMFdC7Mv9p6 +l0LfVh/bnznoAvLf39HHLlKoI8HCzfiwK6h4uhxYCqBQakj26hMdrvCk9TMt +y45CtfV/Ft1M3MDk8M66YCMKrXGAOHq1G1y201BDWhSS++tF+4ZaNwh+HjC2 +SKeQRpv5Ot56N+j7pPShAttql/3dD0/d4MPJyV2q2KkbgltPv3SD11MHtNZr +Umh9779rWj64wTDtzWcODQopOElkOCy4AS1/dhNLFc/HeaIwVosBr1mfdZ0U +KHTn2lSghTYD5mPbTm3G/qtrWk9ChwEtqi3fpmkUmjBa6C7cyQC6yRj9PHae +KseKNn0GfKsXe1IhTyGhBWFbkQMM+Lkh64LYRrwel7etyvZhgH8W4pqXptCB +F9u73Y8zQEHZ0PM5dj3HjmwNfwa8r0r4kYp9LVBv27MgBjQ1LSdrYVvYGrsM +hTFgWsC78sQGClUp2FapXmBAV7NQw5/1FEqoCfd8fIcB9vHtnzTXUchHM103 +pJAB2nkzxnzYZndLV+kUMeCT+uynXgkK8acz71beY4CteWJYPHZsgOXoowoG +VAY7XBsQp1C4ssKxh88YICwTYZkpRiGv9Fbvsi8MeOfh9UhNlEImQsxdAX0M +2CnfIseHvTmWQ1BzAPf3UysfEKEQM2DbvdIhBgx0i1pmYLtYZFMPxhmw+maA +Fw+2DU+gb8kSAy6+uCA/vJZCxoHr/YrFCYBL/oUtQhR6ln1uX/I6Anw4bh3M +x97VNq0Qsp6A7MOS6mexNRRbPxrIEFCnOu23C1vyfZjBJ0UC3D+4qpcLUmhs +R684/zYCNCK84+8KUOgK560694ME7Doo+7KKH8//b4EM88MEfBTXcs7EjrEP +CaAfIUD/aK1SJHZIheWmP3YEGIlu0TfCdiFXJKW5EpBWVlDWtYpC9FeujOf+ +BAR95w1b5KPQ+yTF1bREAqzfVD/wWEmh+0jQYySJgAdf81qssGOo2aZ7KQQI +dy+v+gdb06QpQiedgOOMRT4R7AQOt2nzLAJkL+j+qOOl0J7jtz6GFBMQ4B+U +KY0tLX1eW+8+AWWlyab82LOvjqdwPSAgk09FYYGHQjlKyDyhnIDS1OYDb7B/ +9fY25Fbj9RR6mRWHXWEmVfi6hQBvmQiOZW4KXVzi5El9RcDTsRDjMWzXwlEX +2zYCZlPmK3uw13JXS31rJ6CzPFysGtu7xubK4jsCCm82PjuFTVNJC1YYImC8 +tYzJhb30/nTXdyYBeU+kmue48PceS2iUjBBwnbmmfRg7ol9rVHecgIKyG45t +2D0ZXY77Z/DzNC180rGTVwobnVpBgkdx1JFt2LXTvfZBXCSEZemFbcYe7i0K +8OUhQUfwZacU9q4Kw1uuq0iQj94rzYXNdA75uU+YhGBDDrluTtzfzEjESJSE +nuztAy3YO7eLKCMxEtSi4UMddqJgsTVdkgS/upajhezx6q+lUhtJmDn/5HMk +Nplf3CJGI8Gy5so/wezrE0O/rlEkQW9Wq9Mbm0mKCnIrkxC5hiPdjj0uauwx +rkFCWVxugg529W/RSKYmCdbXlRI0sIe+913t0yKhPT/q6WbsHQ2nGrt1SDCd +b2iUxP7mfV+mDkhwVffR/r0C/z9swrZV6pOg/eJx9wK2rsFes1JDEgLqv9xh +YSdIDoTm7yXh6ptq5hD2Y+6SxOx9JCR6+x/qwx6cDCu4ZkaCOYNrvgdbp1ns +7WVLEv7sr+7uwHYtHRiLsyIhqvSrcBv25cwSzrOHSFjY13/2BfZAgIlGsA0J +J0ZCOZ5gCzqJG/vZkXB5r7BgDTvPZNDRy4GE3IxY80r2/bKnLzo5k3ClkMfr +AbsP/74cG1cSfpcJ77nHzpsTr7JikOCi//NwETuvf7DdjCQhOvjZtQJ2XtsD +5h4PEka93YXz2f0qT/8CLxJEd4/W5rDzc/b9tdMb75+AaeYtdv5lCdVtviTQ +h+JLstj5Id92/+1HArPvznwmtgCj1EY5gIRVIjn+N7C37484TgsiYeh8mNx1 +dv4O03PSwSS8PUjnuoZ9SXHdTYkQEgYjXkpmYD9aO1QufIqEflE9Rjp2/8/S +V6vDSYhfnzSQxs4fjujniSABMp6lsq3dafrjTyQJnomdp9j+HxfPDJ0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9064438246609942, 1.101235353789376}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9064438246609962}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.9064438246609962}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9064438246609942, 1.101235353789376}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99385199441101*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"d9bbb722-ce47-455d-8dc6-b675781daabf"] }, Open ]], Cell[CellGroupData[{ @@ -4430,30 +11045,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4478,427 +11096,1447 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918507211663303`*^9, - 3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\ -494cdae35e56"], + CellChangeTimes->{{3.9918507211663303`*^9, 3.991850725479061*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b9265795-17b8-4e47-bd29-fee31586537e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.781748456292809`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851994542047*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"ff17a85d-49de-408f-b8c7-7072b29de295"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"072fb53f-7116-0f41-a298-6891351a3192"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.972048596138888`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851994551242*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"48dc7d03-29fe-4689-ab78-2b742c8c8de4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3874723536341897`*^-289\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 119, 43, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851994560039*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"671f5762-ced1-4b49-9939-e33951ef8bd0"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ -GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM -b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ -1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 -9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX -KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 -1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu -UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV -Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX -r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO -rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q -pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq -b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk -+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj -oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi -z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp -jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd -dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw -cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 -Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe -TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj -UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE -/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM -opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 -RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ -u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y -XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV -nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi -T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 -OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U -ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY -E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S -Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT -vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ -zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO -nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm -oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU -fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd -G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han -eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao -n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv -6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 -gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF -hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 -d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS -0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 -bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 -wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF -7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 -ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe -37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg -X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu -TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 -CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 -FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX -A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs -LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr -AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo -2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr -rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 -1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 -dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO -endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 -mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK -Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-1.61617, -0.0100934, 0.0591342, \ -0.000698765}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 44, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993851994568488*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"08c7351d-5c5c-4548-be62-2b4fbe5df77f"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ -87bc9c72594a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVl2k4lH8Xxy0JhexmbCGU7IwZhplzELIk2ZKyZE1JipSlUEiRIkWbkLQo +ZZ2xFFGS+mtBJCFbkjVCizz38+q+Pi/Ouc75nu3+KfoccPTn4uDgeMnJwfH/ +73zvy2fKKQVMq1ujgRKxDsz2HFKkadcJsFZw4K4x1wKUeOND6soA0hqOikPm +TIhwuNfJ3ZUPZ1u0Dxia24PIpFTGr85S8F94/r7BzBP6au0PzHU2gJ7Horqq +aQhYKo99nul8D9+iZ8zf0Y/Dr07axenOARjIYptdVkyDRvPbBe/yZyHgqObB +iZkckO2rGvHRWIL1eb/OSx0tBPFgr3u85twoezT/5O3G+5Cha1lj78KHFopT +smP+JaD9aYcVYw8f+s6kHbMNLYHXCfvb1KP58NDu65KFUSWwsivzO18eHx4O +ix+2PFcC0ccHZRrH+XBjYs0NKrsE/F7FxdAS+JGyRarvFV8pUP1rGAplq9DH ++LBxVUEptAm9eSnUtAqvxBpMGBeXQih7wGWpaxUK/S6LZrFK4d7qVSHd/1ah +6VKe8uWWUlhb6paTabManXgZXiunS4Fv+ec/voHV+Ehbyz7JqAw+ZuvUzwgL +4gbDKPbqF2Vwpa1oTYSKIKrH5e3weFsG7kLrvX4bCWJigqxZ4ccy6Dkp94/L +VxD1UgZ65cbLoD9klYl4hSBqeA1xFgiXw+imIRZ1hxC2PnFq53crh8XprIfR +eWtwsMFfS6O/HKrUxZaXK9ag6+toC5/RcogKSLNPaFmD5Owyz3PT5fD3U8JE +6uwaFOJOO9/KUQFxg2yJN0rCeC4hqqFfoQISWm859YcLo4pc4qKjVwWkFMS+ +4SKLoNLhsCa/jgqwoQSJSqwTQbvwsk3beyqA75mjy3pNEZQz15nEQcJ+UOWT +rakI9otZ1f2aroAYpdcjmUEi6CfKacYpUAkhuaR/qtUi+EosUy4QK2HbtRIN +252iGFC689/p/EoQ1rh6wMNfFM1vUzO971RCa01C6YEDosihlGOuVVwJNp+2 +G2aeFMU3/l6TxVWVYCb9z/xzkSiu+cYdavG2EijZNjsP/BXFWtNN5Bd/KkEq +c/D0hetiGLglpVPOjgUk9YqExUIxZC3Z3ktyYIF0Q1KsxyMxbBTma/zqzAL5 +abXD6xvF8CdTpTnDgwUqdqHeNaNi+E+0XjM1hAX6K5aog/riiBH+3QLnWEC5 +2qq7mSGOoee9N//OYAFVL1fjgaU4Fn7h4Om/xAK6t7nSkR3ieOrFWHBmDgtM +a08Lro4Vx4xzO1bnPWDB1nDJIb0WcdwefkrbpoUFDqtHe7PaxFH06OSX2v9Y +4Jhf9fFvjzhKny2bWv+OBa5vd71pmhJHUpqI4tdOFnho3Kx2l5DAP7UC8/zD +LNg3pJ1+wlsCr7Y7bRlYYkFwNGfq1yAJnFg+qvmJgw0hom1JdmESuHrqduRr +bjYcwogYySQJjHTucM/mZ0PktdrAe0US2O63zqdDnA2nnK2Z7+clcLvezZxh +NTZIl7dKc3FKYtB3g+NXNdhQLOa8oLtaEo0fzKZu1mbDh/eej9LXSuLuHCVI +prBBeVu40rbNkpjl/Eoth8kG9qNf/+IcJTE9fU2loCkb7IRjPz3aJYnq7oFx +4eZsCHtzOlP4oCS6nVDpXL+ZDQ1bbqx8e1kSR7ufPFPZxgbXB8qDyzclsfGX +Z+RWJzaMCdyr0y6WRPGHxjGhLmwQeV1+9FwDYS8idzh7Bxu8bVrG7L9Lohnp +0YG43WxYsvzZ+p+JFO7NCIssPcCG84VRRUuWUnj28Say40Ei3pUcyZrbpNAq +3Ub92yEivuerTM/6S+GIU/bDpcNsuGKuUGaXJoU74h4fq49mg9bNW+disqUw +yDFzVuYYES+XevD9fCm0i/GeCjnOhm9PDVQEWFKoHSp88k8cGwzRNutVnxTS +6rf5Pkxkw+sbb8P+fJPCHzrUbS+SiHiXXRzU56SwPnHu44dThP5PvPlT+Eg4 +tbapqec0ob/8yHC1KAn/iW3WaTtD6H9sX8OYLAlLTOPhaQqhv0lEtI0uCUOn +Vd0TzrJh77U/26OMSbhmo8q+HWlE/n/iKPcsSJi58p+G6jki35qUCX53ElpW +ZLQWnifqIy3SYuRHwvJXXOXu6UT+UZcKg0JImMpT6bIyg6iPUZ7XyxMkrHM7 +9nHTBTbY5ArN2aaSMJLRCq0EK/HGJLdeJKHEa4MYh0w2/Nr/TXbbDRIeUpRN +f0Xw23bXkrY7RDynxuPgIhvuGD+zcC0loUGohP19gmPzdbu7akgodITvj8gl +Qt9QAe7eVhJeXVD694Jgns7ILO8uIv8tjB2kLDb0ML6qD34h4f3DvDm7CS4v +cK73/07Cxze43twkOGV1g/PoHAlrRcsmewn2OaT9be8/ErLW5y6LZrOB/vHa +sQleMrpaOa9AgkVwlWioCBl7RnYt+xM8Wnik8Ic0Ga0TbWYTCK4THKYfViaj +851HA9cIvhTu+GZBk4yJH1XePiA45FOdbxSNjOo3zZ+wCLYw01z8i2Q8drbw +YTXBsnevpMbakPG8zGRhJcFza/gUuZzJuKu5trCI4FcRhysSPMjYxM0uuUxw +/ucBa95AMt7UTm6JIzhyk0Pv6VAyll7rmvUm2KHo8SGBKDLmndquQyd4g6g6 +77mTZBSQrDwhQPDy0eyrImfJGOZ0Z6KTyP9DH49O5iUygtZw2DWCiy3Dnknm +krEmXJXkTnDig363y3fJyPF+w2dhgneJ20/IlJFxuaXoeT2hv350TXxOLRmD +aw62BxG8amCDpGITYf8eBAQIHth86d7NN2TkE+k9cJuoZ9VDblD9SEbRTVJc +JgSflzzYdmeAjLQVVc9fEv2w51hvoPo4GW1KLjz+f79I2lad11kmY5uyuYsN +0U8TJaoqZXzSuBje9LuW6L9npMwqA1FpNK7r69vw/34cCRmgq0jjJeet4eNE +/76NV6ZY2Erj4xlJqXVEv98eTW9+4SyNqr7qq7yJeTi+dXmXjac0ZtwVcb6U +ygZNue7ErQcJ/rlucZKYpzPsc507sqTxVVN+uwMxf7vXLu3ryZXGxqKId27E +fBom7eXwuieNnWIcDHdifr86Waj5PZbGwRqXYOuTbNg09TsqZJDgs8nxH4n5 +j9ycufHpuDRqJ3mZlhH7oThPs1tsXhoLwyeak2LYQHL2Nqrik8F9r0boMlFs +GGc/X+DWksE5duffX+FsUBT1uu1Kk0HJxV67/DBi/+1bdL2LMnj1kVXMJmI/ +1cupV9o7yaCqokliBLHPLpw4H375qAyqaMlnpgexofmTmvJ4vAwmbTqnz7+H +DX8pjW3MFBls+nmxJSqADQFff+oNXSf8vb/13daXmAe7nTNajTKYoCboULiL +qKeEasgzQVmMUDvqzrRng9SBOjkpKVkMviL31dWO2A/Nbv8FKciiXZzl9SAb +NlRGpWis0ZfF5rovGccsCT37psd2uMlifUjfXy9i/+vdrQmcypfFnQ2LOSKa +bIg32bZb2lAOb/ZvXQMr2bDZM+cHzUwOUyuei+4l7pNQ3PeTLnZyuKlcoyyN +uF/XGhMLz3vLofu5jT3PfrOAbVP9feVpOcxz79s8PMmCabd1EbMf5dDRPdn3 +dwcLPA//PPM6Wh6HKBNlmTeIe55lJjuWKI9SzXMDf66yCL3PPeA9L49vl4IZ +HtksiPqr9tasQB6dX88kCaWz4OJJT4mq1/LY63RoXP0EC16nv7hxS24tDj2n +8br6Eve9+HL58bq1aHctYOaUIgs2dbYuTTavRZPyC+qn5Fhgz7HCyuv9WixP +8m+LJ7PA1zHkIwyvRW9b++ggERZYRivGxvEo4N+7j7O4OFkQunb+pqm6ArHf +8nd79VXCs8AbE40RCvjCzd++N7sSghdn4poFFfHuii1PXy1XAP1ggOSIqCLq +ZEjUuv0m/sfGuou4SYq4Wln42Je5Crj1qfEDU0kRu9pz/Ee+VUDvk4saFVRF +NFymezxpq4CtiUZdeV6K6GXDb1VUWAF6ovHa0SWKeG2/ONc16wr4pS7cq+mi +hPxZTgNTCeVgUnQ/99KldZheqq0qNlAKM6I23q4Nyli18udoqGkJDKV6ux7i +VUVjl2IZpYFisJ46Yj1MXY/Ndyep5+KLYNyXL6w8dgMOLX1bzJy9TbwXpLhO +Nahhnq6nVm9BAYj+p5r2aGojllqcPHD7eR7IJj90oFI1UNhp6Y7lp+uQrW4k +LBaoiaTg9bFHpC5Di7SpwWy6Fn6+2C1zZyYT6LIN57U/aONuvNv8gCcdhLjz +w3ef0ME2Ew8PmcYUWPmrzmkmQQfzOa6X/LmbAv8mP+vFn9JBSR7dtInzKTDV +TZ7JTdXBXkPfFzxeKfC2NH1//yUd7B5inOH9ewYyfOIDvIp0UPz7o2c2RmdA +ssHbzaNdBy31JNj59ckgH7/WZIeqLnZ3y/ynwJkExWF8Sp836CJbg1cpfTwR +mAEzvLvVdTGB99hj4a5E8LBtbNujo4u9XdP3GQ8T4ZpE4L6jdF0UE2l7uMUz +Ecj3iq9k2eviiULhLViXAOJtjF8dEbpo/TmFBakngV9lV6XjC120adoeoLAt +HvaSwabopS72V+cd2kr8E7QIKvVyvybsvZI3ndGNh9T5rzwVb3VRl5dPaZ1o +PAg1h7lIdetiVl+d4pe2OBDdlzL3aVwXNQQ8lU7viAPZkmo9f1E9jKrsln7a +fRy0GOSHRzz0sMP3s+DbfdFQti7oD5e3HpYcEzE6sTUaDFdVWaX56OFBte/3 +7PSjwazTrb8gUA/5NR+v3/gnClwPZou8P6iHMxsOj/GkRkHsLalwjSQ9rJhJ +fqJfGglvBSWNvhTrYYLyBzcu4aNwqFe00YZDH8/Fu3ei0GFobtr1+B6XPl6m ++zwT+xUO8g8LWat49JE1RK5YHAyHllj6/RZ+fdTbMhK2WBUOSoo+F23E9LHr +wv31rQHh8M63JNBGVR9PnhE/0twYBjrftgrY2OnjI13DlrtnDsHUbKqLdbY+ +Bv2QdS21DoWerjzX61f00a+Eu4nbKBRaHldun7mmj+y+D72+G0Kh4FT/jst5 ++lgU6ji4lTcU3GUont/u6aNaWr7p/ZQD8NzsU8Dpx/rIuUI7SSUlBK6mqx19 +OaCPuUEkCeEbwZAcwYyUG9bHX7/7eWjxwRCx0ynq4Fd9tK7U6DzqGwwOKsdi +yOP6qCkh8sZuQzCsrHobF/RTHx2shDgoZfvgYP+R0/x8FORSm+mb/G8vWGk3 +XbHWpODkli8/L0gGgdvKzc5vtSm4tLnzwsNfe2Dv55eC2/UoeHzyBmm0Zw+k +pfwX50ejoM5t86iHN/fAh6/tAbGmFLx7KYZ8UW8P+OUO6lW4UPDlwJWXt10C +4YQI5yuF4xSczePeuuWRP2SOnki4HUfBpBHu7o+X/KGwbgVT6yQF28vlj8cd +84eW/XwlxskUDDUdrZax9QeRljVZrhkUjO/Uunfqqx/knpD3TS2koJ9Ceq6S +ih88mTX+s9BKwX/dX13elfpA3muWj9M7ClocfOE1f90HEm7ptxS3UdDLW6xb ++7QPWG9Xv+zfRcGuFr3ePi8faK+WprV9oWCim6O7npAPjMX/OlQ8R8HtLNuJ +jJDdICnMGvOTNkA13qB77xne8GtUz7Fe1gDFxzrSA9S9oedpcZXMWgNsuVQ6 +LkD2hrywwuT36wyQrtl7XPGbF2h0XlRFTQO0jM7dOeLmBWY54T4yaIDTmc5D +6uAJIRp63e/8DXDdkZtiH1R2weEF6d9eewzw+l4J9m2uXRDTwC09udcAU1wv +eub27YQUt44dq0IN0J3Wp7Dyyk64k3D0o1mUAZo5Np++IbwTBnqedJWlGeCC +2b2KsRXu4HrWtvMiywALXNcXTfC5gYcbZWFdtQE2P4rR2Dm2HfzWyUmV1hrg +VFGD6/dX2yGsatK19akBLm82UQw7tx3OD6d/WPnaAGVM2qZlSduhhdHVcaSf +yIfDpK9W2xUYk37tO/ipeNTu8tiWI84gWWOVX7uaiiv29y6kezrD5KmNoWuF +qMizMujFtIUz5ChOrx4WpaLVkTM2/8Sd4Z9ztHmoLBXPxOzTdS13grqa9NIk +bSp+tyhhDC04gunpJ+fLXKj4Wru27H36NpB2zfOUdCP8qe8+gjHb4IdSgkak +O5V477/jbQrYBvm11s1MLyoqObRSSCbbgGu6ffnlHipGPeax/fDVARpdv4f0 +R1Px/q7hv7fMHcBCmbRFMJ+Kfwfmv89L2UP5xHNFvwIqBp42Pa0xuwWUWWHz +1YVUtO8uZ51p3QIrbN7c2FNERVlp1KxP3AINB5J+NJZTcd/twxar5+2AWTOX +FfWCijE6nL0cvbZAdXw38HWciu3Xn+j4t1hDoUwsizlFRXFFWQm/e9YgMayR +enGG8O/zeCzpjDXMHUk2MJ+n4gWyzmearTWUXofknGUqBqzLFzBv3Qza3x5o +uojS0NRf1LO/2wo2xJ052kCjoVXmq2s2gpZQa3yLx45Ow/WV4iMaUxbgsFCX +0WFCQ3s4foryzgKOhvy8P2pKQ5/mgzplFy2geZf3FyE7GsrbT5QGKVjAHiOq +zU5vGlaTLj/MNtkEd398kZlLpqGE7GX/qTQzYBb/vXMshYbB0mtZOofN4H2Q +FJU3jYYi5JL0jJ1m8LvfzkH6Ag3dXghuY20wA5s3rAS8TsPl+Xj++GemMFZ0 +diK1hIaVcXuc5zlNYaO/UZ1KNw3pVyY3TqgCnFOy/32yh4YalMEV80tMmOvz +MRjopWFXrRxZp4MJT9xTi3IGaXjTrk6elsAER4e+LKkJGuqYe02cGWJApHFi +KD+HIQ478tySLTaBZpF3ihMqhtjcykE/40sHzTfDu2w3GGK8bJSeG9IhI/V3 +1t2NhihI+6C1TY4Ou3iVhQK0DbFiketoY6cRTP2N+N1raIg3rq+nFdgbgeSo +bNtbW0MM3Slsp7XJEPyf7EkoP2iIvS5qJzS2UGFy/9gRi3BD5KQ0ysVqUOGo +XPC+DxGG2Gr/g7W0mgpnYg44LkYb4iURqvjxVwbwiB6hYJJkiA8P0B8k2hnA +38qTtY1XDHG0uZR00pUCGQ9z5t43ErzQ5d2ZrAeyXgqjvk2G2PLVR95qvx7c +Esr/NNdsiGGpZrk92/SAvf9Wg2SrIYbUSdKOyujBZ/X75927DHGjx87C4Ee6 +sOFOlcbAuCE+N5XqUPqiA3W57X4zEkYYwwwWVKzSgn47Ra8IkhE2pdNcr6Vo +Acev/Tv+SBthtfzlMRdPLTDbxmvPo2CEm9gnGk6s0IImTjqNvNEI/z2/2Vnt +pAmvfW7wmzKNkF/32FefJXXoVt5bfD7ACDnO7Tl8MVoN/rytvCMRZISM1gYF +Wxc1kD3GffPKPiPU+9MgStVWA4+Oa1kFoUZYmkR9cm9wA/QnvoljRxnho+XM +77xbN8DXEYpTf5oR2mx95uymvR7m7iwvaLOM8CXfs9sXxVVgxNUy93SVERra +OmDOvDJ0rTi7ebDGCD9aVe9u7VKGGm/py5fqjfDQxdPxBdeV4QTJgL700ghn +FYuF16kpg3Dy3piWHiP8O/P0O1qtA43ADg5/LjoOlJeEPc9RBHkJ2btPVtAx +sK/4W0CiIgg3+mwj8dJxctOb7RuDFWFWfjrv1Wo6Jr67FCFJV4TqD6vM9STo +6KzUxoztVIDNlpi4vJ6Ox9ddPHeApAC+KkX8V7bQ0evvuqiDvnIQ9dxzr6oD +HTVnn8v/o8jBeX/RV6WOdBy8N6P5ZqUc1N6KTH21nY6K/1nLMIpkQVx185ql +3XR8uPjagLkgA02qw+LeEXScqz85kXRVGjZuWKugeoOIP1Peql2UBNj8Pq40 +j46nvqzOMR+XAtc9SV+YBXTsrdO4Nf5cCk7emcjffpeOEX1+p8YipaBnQ63K +6TI6agn48p0dkoQ0tR3q4y/oWHRI7JraMwmY2XiBWjpNR0//dapV98Sg6zVa +iM3SsWDonOO3VDGoD5l0Cv9JR9nI9U3mB8QgrdT6IPU3HSv0dQojKGKwkc5x +v5rbGPXGtLe21ouCj/V+xUZJY6R8RzPJLyLQHmgl0G5ijKWHjd2uM4Whhv+n +tAEYozH1rOYjFWHIL8pXu2RqjFePRn0aERCG0KklSzdLY2Q/GOE5zloDgkfK +43u2Ev6za0o3zguBZZLiwpCPMSpTBTb7xgkCu+DPl5/JxtjD3fm67/kqoJqH +L9ikGOPEySA92euroOLLuEDuWWP8d5WzJyN8FZTK99JsMoj4NtJeaCqvgvvZ +9Wdzrhpj/YfkWyJJ/JCbmmhkVWyMGVFOY1ud+eB0+Jr07DZjXCn9kfM+aSXw +iSUXTnQY44McQYf8eR5IKuGoNesyxjv2E2Mv23kgYXJmZLzHGD0m5peK0nng ++J52E9MRYyyxeL+/XJAHDu26PPpt0Rj1xy/L5witAPdN69BY3gS5A3QXFfW4 +YKmdT6hRwQS/1Q8/9Rbjglz/yU8260yQdkUh9u0cJ4wkVR1x32CC8nvLSk3Z +nHDo5daHkXomOP3ZU83XlBPO2MfIsy1N8Fmr5qjfLg6oduv4SzlggvqClc2S +gUtMj2/VLbUHTZA8nd/URFlickTlZm8KN8HM9aTFF1xLTMur+yjOkSbY7Z8n +WHvjL/P9Z87gsJMmqL178Y3H5z/MMR+tTyVZJshlJGKgEPibKbP/VJVWvQmO +lrscSCxZYKYtBxikNJhg66d/P2gpC0yuDMuSr89M8HzQ+1ll/wXmWCXP3dyX +Jjjl93DtA/ICs5ojIVu0zQSdYwVk9ifOM90z447MD5tgx9oTH/wCfzKzayIN +nqxm4DPm1oOiTrNMAfsdJdJCDEx/3jMfpT/LjOs31DwizMDPoiau4uKzzD08 +i8o6EgxkPlmR3NXxg0nbGiGeL8/AolfOYjd2/mB+GDg0m6jLwDWr+tpHD8ww +JVYFl2zZziDeu+NZ5mFTzALzY1HTOxh49d2z/Wg0xdQ7lmZ+YRcDWdUqOfnL +k0z76UcdXbsZWBDneiTz7CQz6cPPX77BDDzR8mOtbPEEczE/1iwqnoG/f1iI +a3OOM7uNL7QVFjHQ/6TsFb3vo8w9hwuuWRczsNDn1M6i2lHmfHGF//gjBj54 +yZMQkTbKFFXqWtCtZOCub/kjnPqjTFs+OdnH9QxUUVJa3xv7lVnbXujX1sHA +hXCZL4YbRpg2QmzNiC4GWuusu3j53zCzy+rlPOkTA5dm5GM3dQwz56q/J3v2 +M1Bocpn7yMlhpmaezoNvYwx88V+/n+ngELO22zQidYKBj8XvuI7UDDFtxJ1A +e5qB3mLfH77LHGIGnDr8LvwnAyGgoC7Saog5V590RWqRgYyizSkGikPME7+z +fKt/MzAypmHU4M8gU5hyV8NjiYEUkUN+UR2DzJz91T+Xlwm9SoNTuB4NMv8H +1x7ERA== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl2k4lH8Xxy0JhexmbCGU7IwZhplzELIk2ZKyZE1JipSlUEiRIkWbkLQo +ZZ2xFFGS+mtBJCFbkjVCizz38+q+Pi/Ouc75nu3+KfoccPTn4uDgeMnJwfH/ +73zvy2fKKQVMq1ujgRKxDsz2HFKkadcJsFZw4K4x1wKUeOND6soA0hqOikPm +TIhwuNfJ3ZUPZ1u0Dxia24PIpFTGr85S8F94/r7BzBP6au0PzHU2gJ7Horqq +aQhYKo99nul8D9+iZ8zf0Y/Dr07axenOARjIYptdVkyDRvPbBe/yZyHgqObB +iZkckO2rGvHRWIL1eb/OSx0tBPFgr3u85twoezT/5O3G+5Cha1lj78KHFopT +smP+JaD9aYcVYw8f+s6kHbMNLYHXCfvb1KP58NDu65KFUSWwsivzO18eHx4O +ix+2PFcC0ccHZRrH+XBjYs0NKrsE/F7FxdAS+JGyRarvFV8pUP1rGAplq9DH ++LBxVUEptAm9eSnUtAqvxBpMGBeXQih7wGWpaxUK/S6LZrFK4d7qVSHd/1ah +6VKe8uWWUlhb6paTabManXgZXiunS4Fv+ec/voHV+Ehbyz7JqAw+ZuvUzwgL +4gbDKPbqF2Vwpa1oTYSKIKrH5e3weFsG7kLrvX4bCWJigqxZ4ccy6Dkp94/L +VxD1UgZ65cbLoD9klYl4hSBqeA1xFgiXw+imIRZ1hxC2PnFq53crh8XprIfR +eWtwsMFfS6O/HKrUxZaXK9ag6+toC5/RcogKSLNPaFmD5Owyz3PT5fD3U8JE +6uwaFOJOO9/KUQFxg2yJN0rCeC4hqqFfoQISWm859YcLo4pc4qKjVwWkFMS+ +4SKLoNLhsCa/jgqwoQSJSqwTQbvwsk3beyqA75mjy3pNEZQz15nEQcJ+UOWT +rakI9otZ1f2aroAYpdcjmUEi6CfKacYpUAkhuaR/qtUi+EosUy4QK2HbtRIN +252iGFC689/p/EoQ1rh6wMNfFM1vUzO971RCa01C6YEDosihlGOuVVwJNp+2 +G2aeFMU3/l6TxVWVYCb9z/xzkSiu+cYdavG2EijZNjsP/BXFWtNN5Bd/KkEq +c/D0hetiGLglpVPOjgUk9YqExUIxZC3Z3ktyYIF0Q1KsxyMxbBTma/zqzAL5 +abXD6xvF8CdTpTnDgwUqdqHeNaNi+E+0XjM1hAX6K5aog/riiBH+3QLnWEC5 +2qq7mSGOoee9N//OYAFVL1fjgaU4Fn7h4Om/xAK6t7nSkR3ieOrFWHBmDgtM +a08Lro4Vx4xzO1bnPWDB1nDJIb0WcdwefkrbpoUFDqtHe7PaxFH06OSX2v9Y +4Jhf9fFvjzhKny2bWv+OBa5vd71pmhJHUpqI4tdOFnho3Kx2l5DAP7UC8/zD +LNg3pJ1+wlsCr7Y7bRlYYkFwNGfq1yAJnFg+qvmJgw0hom1JdmESuHrqduRr +bjYcwogYySQJjHTucM/mZ0PktdrAe0US2O63zqdDnA2nnK2Z7+clcLvezZxh +NTZIl7dKc3FKYtB3g+NXNdhQLOa8oLtaEo0fzKZu1mbDh/eej9LXSuLuHCVI +prBBeVu40rbNkpjl/Eoth8kG9qNf/+IcJTE9fU2loCkb7IRjPz3aJYnq7oFx +4eZsCHtzOlP4oCS6nVDpXL+ZDQ1bbqx8e1kSR7ufPFPZxgbXB8qDyzclsfGX +Z+RWJzaMCdyr0y6WRPGHxjGhLmwQeV1+9FwDYS8idzh7Bxu8bVrG7L9Lohnp +0YG43WxYsvzZ+p+JFO7NCIssPcCG84VRRUuWUnj28Say40Ei3pUcyZrbpNAq +3Ub92yEivuerTM/6S+GIU/bDpcNsuGKuUGaXJoU74h4fq49mg9bNW+disqUw +yDFzVuYYES+XevD9fCm0i/GeCjnOhm9PDVQEWFKoHSp88k8cGwzRNutVnxTS +6rf5Pkxkw+sbb8P+fJPCHzrUbS+SiHiXXRzU56SwPnHu44dThP5PvPlT+Eg4 +tbapqec0ob/8yHC1KAn/iW3WaTtD6H9sX8OYLAlLTOPhaQqhv0lEtI0uCUOn +Vd0TzrJh77U/26OMSbhmo8q+HWlE/n/iKPcsSJi58p+G6jki35qUCX53ElpW +ZLQWnifqIy3SYuRHwvJXXOXu6UT+UZcKg0JImMpT6bIyg6iPUZ7XyxMkrHM7 +9nHTBTbY5ArN2aaSMJLRCq0EK/HGJLdeJKHEa4MYh0w2/Nr/TXbbDRIeUpRN +f0Xw23bXkrY7RDynxuPgIhvuGD+zcC0loUGohP19gmPzdbu7akgodITvj8gl +Qt9QAe7eVhJeXVD694Jgns7ILO8uIv8tjB2kLDb0ML6qD34h4f3DvDm7CS4v +cK73/07Cxze43twkOGV1g/PoHAlrRcsmewn2OaT9be8/ErLW5y6LZrOB/vHa +sQleMrpaOa9AgkVwlWioCBl7RnYt+xM8Wnik8Ic0Ga0TbWYTCK4THKYfViaj +851HA9cIvhTu+GZBk4yJH1XePiA45FOdbxSNjOo3zZ+wCLYw01z8i2Q8drbw +YTXBsnevpMbakPG8zGRhJcFza/gUuZzJuKu5trCI4FcRhysSPMjYxM0uuUxw +/ucBa95AMt7UTm6JIzhyk0Pv6VAyll7rmvUm2KHo8SGBKDLmndquQyd4g6g6 +77mTZBSQrDwhQPDy0eyrImfJGOZ0Z6KTyP9DH49O5iUygtZw2DWCiy3Dnknm +krEmXJXkTnDig363y3fJyPF+w2dhgneJ20/IlJFxuaXoeT2hv350TXxOLRmD +aw62BxG8amCDpGITYf8eBAQIHth86d7NN2TkE+k9cJuoZ9VDblD9SEbRTVJc +JgSflzzYdmeAjLQVVc9fEv2w51hvoPo4GW1KLjz+f79I2lad11kmY5uyuYsN +0U8TJaoqZXzSuBje9LuW6L9npMwqA1FpNK7r69vw/34cCRmgq0jjJeet4eNE +/76NV6ZY2Erj4xlJqXVEv98eTW9+4SyNqr7qq7yJeTi+dXmXjac0ZtwVcb6U +ygZNue7ErQcJ/rlucZKYpzPsc507sqTxVVN+uwMxf7vXLu3ryZXGxqKId27E +fBom7eXwuieNnWIcDHdifr86Waj5PZbGwRqXYOuTbNg09TsqZJDgs8nxH4n5 +j9ycufHpuDRqJ3mZlhH7oThPs1tsXhoLwyeak2LYQHL2Nqrik8F9r0boMlFs +GGc/X+DWksE5duffX+FsUBT1uu1Kk0HJxV67/DBi/+1bdL2LMnj1kVXMJmI/ +1cupV9o7yaCqokliBLHPLpw4H375qAyqaMlnpgexofmTmvJ4vAwmbTqnz7+H +DX8pjW3MFBls+nmxJSqADQFff+oNXSf8vb/13daXmAe7nTNajTKYoCboULiL +qKeEasgzQVmMUDvqzrRng9SBOjkpKVkMviL31dWO2A/Nbv8FKciiXZzl9SAb +NlRGpWis0ZfF5rovGccsCT37psd2uMlifUjfXy9i/+vdrQmcypfFnQ2LOSKa +bIg32bZb2lAOb/ZvXQMr2bDZM+cHzUwOUyuei+4l7pNQ3PeTLnZyuKlcoyyN +uF/XGhMLz3vLofu5jT3PfrOAbVP9feVpOcxz79s8PMmCabd1EbMf5dDRPdn3 +dwcLPA//PPM6Wh6HKBNlmTeIe55lJjuWKI9SzXMDf66yCL3PPeA9L49vl4IZ +HtksiPqr9tasQB6dX88kCaWz4OJJT4mq1/LY63RoXP0EC16nv7hxS24tDj2n +8br6Eve9+HL58bq1aHctYOaUIgs2dbYuTTavRZPyC+qn5Fhgz7HCyuv9WixP +8m+LJ7PA1zHkIwyvRW9b++ggERZYRivGxvEo4N+7j7O4OFkQunb+pqm6ArHf +8nd79VXCs8AbE40RCvjCzd++N7sSghdn4poFFfHuii1PXy1XAP1ggOSIqCLq +ZEjUuv0m/sfGuou4SYq4Wln42Je5Crj1qfEDU0kRu9pz/Ee+VUDvk4saFVRF +NFymezxpq4CtiUZdeV6K6GXDb1VUWAF6ovHa0SWKeG2/ONc16wr4pS7cq+mi +hPxZTgNTCeVgUnQ/99KldZheqq0qNlAKM6I23q4Nyli18udoqGkJDKV6ux7i +VUVjl2IZpYFisJ46Yj1MXY/Ndyep5+KLYNyXL6w8dgMOLX1bzJy9TbwXpLhO +Nahhnq6nVm9BAYj+p5r2aGojllqcPHD7eR7IJj90oFI1UNhp6Y7lp+uQrW4k +LBaoiaTg9bFHpC5Di7SpwWy6Fn6+2C1zZyYT6LIN57U/aONuvNv8gCcdhLjz +w3ef0ME2Ew8PmcYUWPmrzmkmQQfzOa6X/LmbAv8mP+vFn9JBSR7dtInzKTDV +TZ7JTdXBXkPfFzxeKfC2NH1//yUd7B5inOH9ewYyfOIDvIp0UPz7o2c2RmdA +ssHbzaNdBy31JNj59ckgH7/WZIeqLnZ3y/ynwJkExWF8Sp836CJbg1cpfTwR +mAEzvLvVdTGB99hj4a5E8LBtbNujo4u9XdP3GQ8T4ZpE4L6jdF0UE2l7uMUz +Ecj3iq9k2eviiULhLViXAOJtjF8dEbpo/TmFBakngV9lV6XjC120adoeoLAt +HvaSwabopS72V+cd2kr8E7QIKvVyvybsvZI3ndGNh9T5rzwVb3VRl5dPaZ1o +PAg1h7lIdetiVl+d4pe2OBDdlzL3aVwXNQQ8lU7viAPZkmo9f1E9jKrsln7a +fRy0GOSHRzz0sMP3s+DbfdFQti7oD5e3HpYcEzE6sTUaDFdVWaX56OFBte/3 +7PSjwazTrb8gUA/5NR+v3/gnClwPZou8P6iHMxsOj/GkRkHsLalwjSQ9rJhJ +fqJfGglvBSWNvhTrYYLyBzcu4aNwqFe00YZDH8/Fu3ei0GFobtr1+B6XPl6m ++zwT+xUO8g8LWat49JE1RK5YHAyHllj6/RZ+fdTbMhK2WBUOSoo+F23E9LHr +wv31rQHh8M63JNBGVR9PnhE/0twYBjrftgrY2OnjI13DlrtnDsHUbKqLdbY+ +Bv2QdS21DoWerjzX61f00a+Eu4nbKBRaHldun7mmj+y+D72+G0Kh4FT/jst5 ++lgU6ji4lTcU3GUont/u6aNaWr7p/ZQD8NzsU8Dpx/rIuUI7SSUlBK6mqx19 +OaCPuUEkCeEbwZAcwYyUG9bHX7/7eWjxwRCx0ynq4Fd9tK7U6DzqGwwOKsdi +yOP6qCkh8sZuQzCsrHobF/RTHx2shDgoZfvgYP+R0/x8FORSm+mb/G8vWGk3 +XbHWpODkli8/L0gGgdvKzc5vtSm4tLnzwsNfe2Dv55eC2/UoeHzyBmm0Zw+k +pfwX50ejoM5t86iHN/fAh6/tAbGmFLx7KYZ8UW8P+OUO6lW4UPDlwJWXt10C +4YQI5yuF4xSczePeuuWRP2SOnki4HUfBpBHu7o+X/KGwbgVT6yQF28vlj8cd +84eW/XwlxskUDDUdrZax9QeRljVZrhkUjO/Uunfqqx/knpD3TS2koJ9Ceq6S +ih88mTX+s9BKwX/dX13elfpA3muWj9M7ClocfOE1f90HEm7ptxS3UdDLW6xb ++7QPWG9Xv+zfRcGuFr3ePi8faK+WprV9oWCim6O7npAPjMX/OlQ8R8HtLNuJ +jJDdICnMGvOTNkA13qB77xne8GtUz7Fe1gDFxzrSA9S9oedpcZXMWgNsuVQ6 +LkD2hrywwuT36wyQrtl7XPGbF2h0XlRFTQO0jM7dOeLmBWY54T4yaIDTmc5D +6uAJIRp63e/8DXDdkZtiH1R2weEF6d9eewzw+l4J9m2uXRDTwC09udcAU1wv +eub27YQUt44dq0IN0J3Wp7Dyyk64k3D0o1mUAZo5Np++IbwTBnqedJWlGeCC +2b2KsRXu4HrWtvMiywALXNcXTfC5gYcbZWFdtQE2P4rR2Dm2HfzWyUmV1hrg +VFGD6/dX2yGsatK19akBLm82UQw7tx3OD6d/WPnaAGVM2qZlSduhhdHVcaSf +yIfDpK9W2xUYk37tO/ipeNTu8tiWI84gWWOVX7uaiiv29y6kezrD5KmNoWuF +qMizMujFtIUz5ChOrx4WpaLVkTM2/8Sd4Z9ztHmoLBXPxOzTdS13grqa9NIk +bSp+tyhhDC04gunpJ+fLXKj4Wru27H36NpB2zfOUdCP8qe8+gjHb4IdSgkak +O5V477/jbQrYBvm11s1MLyoqObRSSCbbgGu6ffnlHipGPeax/fDVARpdv4f0 +R1Px/q7hv7fMHcBCmbRFMJ+Kfwfmv89L2UP5xHNFvwIqBp42Pa0xuwWUWWHz +1YVUtO8uZ51p3QIrbN7c2FNERVlp1KxP3AINB5J+NJZTcd/twxar5+2AWTOX +FfWCijE6nL0cvbZAdXw38HWciu3Xn+j4t1hDoUwsizlFRXFFWQm/e9YgMayR +enGG8O/zeCzpjDXMHUk2MJ+n4gWyzmearTWUXofknGUqBqzLFzBv3Qza3x5o +uojS0NRf1LO/2wo2xJ052kCjoVXmq2s2gpZQa3yLx45Ow/WV4iMaUxbgsFCX +0WFCQ3s4foryzgKOhvy8P2pKQ5/mgzplFy2geZf3FyE7GsrbT5QGKVjAHiOq +zU5vGlaTLj/MNtkEd398kZlLpqGE7GX/qTQzYBb/vXMshYbB0mtZOofN4H2Q +FJU3jYYi5JL0jJ1m8LvfzkH6Ag3dXghuY20wA5s3rAS8TsPl+Xj++GemMFZ0 +diK1hIaVcXuc5zlNYaO/UZ1KNw3pVyY3TqgCnFOy/32yh4YalMEV80tMmOvz +MRjopWFXrRxZp4MJT9xTi3IGaXjTrk6elsAER4e+LKkJGuqYe02cGWJApHFi +KD+HIQ478tySLTaBZpF3ihMqhtjcykE/40sHzTfDu2w3GGK8bJSeG9IhI/V3 +1t2NhihI+6C1TY4Ou3iVhQK0DbFiketoY6cRTP2N+N1raIg3rq+nFdgbgeSo +bNtbW0MM3Slsp7XJEPyf7EkoP2iIvS5qJzS2UGFy/9gRi3BD5KQ0ysVqUOGo +XPC+DxGG2Gr/g7W0mgpnYg44LkYb4iURqvjxVwbwiB6hYJJkiA8P0B8k2hnA +38qTtY1XDHG0uZR00pUCGQ9z5t43ErzQ5d2ZrAeyXgqjvk2G2PLVR95qvx7c +Esr/NNdsiGGpZrk92/SAvf9Wg2SrIYbUSdKOyujBZ/X75927DHGjx87C4Ee6 +sOFOlcbAuCE+N5XqUPqiA3W57X4zEkYYwwwWVKzSgn47Ra8IkhE2pdNcr6Vo +Acev/Tv+SBthtfzlMRdPLTDbxmvPo2CEm9gnGk6s0IImTjqNvNEI/z2/2Vnt +pAmvfW7wmzKNkF/32FefJXXoVt5bfD7ACDnO7Tl8MVoN/rytvCMRZISM1gYF +Wxc1kD3GffPKPiPU+9MgStVWA4+Oa1kFoUZYmkR9cm9wA/QnvoljRxnho+XM +77xbN8DXEYpTf5oR2mx95uymvR7m7iwvaLOM8CXfs9sXxVVgxNUy93SVERra +OmDOvDJ0rTi7ebDGCD9aVe9u7VKGGm/py5fqjfDQxdPxBdeV4QTJgL700ghn +FYuF16kpg3Dy3piWHiP8O/P0O1qtA43ADg5/LjoOlJeEPc9RBHkJ2btPVtAx +sK/4W0CiIgg3+mwj8dJxctOb7RuDFWFWfjrv1Wo6Jr67FCFJV4TqD6vM9STo +6KzUxoztVIDNlpi4vJ6Ox9ddPHeApAC+KkX8V7bQ0evvuqiDvnIQ9dxzr6oD +HTVnn8v/o8jBeX/RV6WOdBy8N6P5ZqUc1N6KTH21nY6K/1nLMIpkQVx185ql +3XR8uPjagLkgA02qw+LeEXScqz85kXRVGjZuWKugeoOIP1Peql2UBNj8Pq40 +j46nvqzOMR+XAtc9SV+YBXTsrdO4Nf5cCk7emcjffpeOEX1+p8YipaBnQ63K +6TI6agn48p0dkoQ0tR3q4y/oWHRI7JraMwmY2XiBWjpNR0//dapV98Sg6zVa +iM3SsWDonOO3VDGoD5l0Cv9JR9nI9U3mB8QgrdT6IPU3HSv0dQojKGKwkc5x +v5rbGPXGtLe21ouCj/V+xUZJY6R8RzPJLyLQHmgl0G5ijKWHjd2uM4Whhv+n +tAEYozH1rOYjFWHIL8pXu2RqjFePRn0aERCG0KklSzdLY2Q/GOE5zloDgkfK +43u2Ev6za0o3zguBZZLiwpCPMSpTBTb7xgkCu+DPl5/JxtjD3fm67/kqoJqH +L9ikGOPEySA92euroOLLuEDuWWP8d5WzJyN8FZTK99JsMoj4NtJeaCqvgvvZ +9Wdzrhpj/YfkWyJJ/JCbmmhkVWyMGVFOY1ud+eB0+Jr07DZjXCn9kfM+aSXw +iSUXTnQY44McQYf8eR5IKuGoNesyxjv2E2Mv23kgYXJmZLzHGD0m5peK0nng ++J52E9MRYyyxeL+/XJAHDu26PPpt0Rj1xy/L5witAPdN69BY3gS5A3QXFfW4 +YKmdT6hRwQS/1Q8/9Rbjglz/yU8260yQdkUh9u0cJ4wkVR1x32CC8nvLSk3Z +nHDo5daHkXomOP3ZU83XlBPO2MfIsy1N8Fmr5qjfLg6oduv4SzlggvqClc2S +gUtMj2/VLbUHTZA8nd/URFlickTlZm8KN8HM9aTFF1xLTMur+yjOkSbY7Z8n +WHvjL/P9Z87gsJMmqL178Y3H5z/MMR+tTyVZJshlJGKgEPibKbP/VJVWvQmO +lrscSCxZYKYtBxikNJhg66d/P2gpC0yuDMuSr89M8HzQ+1ll/wXmWCXP3dyX +Jjjl93DtA/ICs5ojIVu0zQSdYwVk9ifOM90z447MD5tgx9oTH/wCfzKzayIN +nqxm4DPm1oOiTrNMAfsdJdJCDEx/3jMfpT/LjOs31DwizMDPoiau4uKzzD08 +i8o6EgxkPlmR3NXxg0nbGiGeL8/AolfOYjd2/mB+GDg0m6jLwDWr+tpHD8ww +JVYFl2zZziDeu+NZ5mFTzALzY1HTOxh49d2z/Wg0xdQ7lmZ+YRcDWdUqOfnL +k0z76UcdXbsZWBDneiTz7CQz6cPPX77BDDzR8mOtbPEEczE/1iwqnoG/f1iI +a3OOM7uNL7QVFjHQ/6TsFb3vo8w9hwuuWRczsNDn1M6i2lHmfHGF//gjBj54 +yZMQkTbKFFXqWtCtZOCub/kjnPqjTFs+OdnH9QxUUVJa3xv7lVnbXujX1sHA +hXCZL4YbRpg2QmzNiC4GWuusu3j53zCzy+rlPOkTA5dm5GM3dQwz56q/J3v2 +M1Bocpn7yMlhpmaezoNvYwx88V+/n+ngELO22zQidYKBj8XvuI7UDDFtxJ1A +e5qB3mLfH77LHGIGnDr8LvwnAyGgoC7Saog5V590RWqRgYyizSkGikPME7+z +fKt/MzAypmHU4M8gU5hyV8NjiYEUkUN+UR2DzJz91T+Xlwm9SoNTuB4NMv8H +1x7ERA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09608046329826965}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.09608046329826965}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl2k4lH8Xxy0JhexmbCGU7IwZhplzELIk2ZKyZE1JipSlUEiRIkWbkLQo +ZZ2xFFGS+mtBJCFbkjVCizz38+q+Pi/Ouc75nu3+KfoccPTn4uDgeMnJwfH/ +73zvy2fKKQVMq1ujgRKxDsz2HFKkadcJsFZw4K4x1wKUeOND6soA0hqOikPm +TIhwuNfJ3ZUPZ1u0Dxia24PIpFTGr85S8F94/r7BzBP6au0PzHU2gJ7Horqq +aQhYKo99nul8D9+iZ8zf0Y/Dr07axenOARjIYptdVkyDRvPbBe/yZyHgqObB +iZkckO2rGvHRWIL1eb/OSx0tBPFgr3u85twoezT/5O3G+5Cha1lj78KHFopT +smP+JaD9aYcVYw8f+s6kHbMNLYHXCfvb1KP58NDu65KFUSWwsivzO18eHx4O +ix+2PFcC0ccHZRrH+XBjYs0NKrsE/F7FxdAS+JGyRarvFV8pUP1rGAplq9DH ++LBxVUEptAm9eSnUtAqvxBpMGBeXQih7wGWpaxUK/S6LZrFK4d7qVSHd/1ah +6VKe8uWWUlhb6paTabManXgZXiunS4Fv+ec/voHV+Ehbyz7JqAw+ZuvUzwgL +4gbDKPbqF2Vwpa1oTYSKIKrH5e3weFsG7kLrvX4bCWJigqxZ4ccy6Dkp94/L +VxD1UgZ65cbLoD9klYl4hSBqeA1xFgiXw+imIRZ1hxC2PnFq53crh8XprIfR +eWtwsMFfS6O/HKrUxZaXK9ag6+toC5/RcogKSLNPaFmD5Owyz3PT5fD3U8JE +6uwaFOJOO9/KUQFxg2yJN0rCeC4hqqFfoQISWm859YcLo4pc4qKjVwWkFMS+ +4SKLoNLhsCa/jgqwoQSJSqwTQbvwsk3beyqA75mjy3pNEZQz15nEQcJ+UOWT +rakI9otZ1f2aroAYpdcjmUEi6CfKacYpUAkhuaR/qtUi+EosUy4QK2HbtRIN +252iGFC689/p/EoQ1rh6wMNfFM1vUzO971RCa01C6YEDosihlGOuVVwJNp+2 +G2aeFMU3/l6TxVWVYCb9z/xzkSiu+cYdavG2EijZNjsP/BXFWtNN5Bd/KkEq +c/D0hetiGLglpVPOjgUk9YqExUIxZC3Z3ktyYIF0Q1KsxyMxbBTma/zqzAL5 +abXD6xvF8CdTpTnDgwUqdqHeNaNi+E+0XjM1hAX6K5aog/riiBH+3QLnWEC5 +2qq7mSGOoee9N//OYAFVL1fjgaU4Fn7h4Om/xAK6t7nSkR3ieOrFWHBmDgtM +a08Lro4Vx4xzO1bnPWDB1nDJIb0WcdwefkrbpoUFDqtHe7PaxFH06OSX2v9Y +4Jhf9fFvjzhKny2bWv+OBa5vd71pmhJHUpqI4tdOFnho3Kx2l5DAP7UC8/zD +LNg3pJ1+wlsCr7Y7bRlYYkFwNGfq1yAJnFg+qvmJgw0hom1JdmESuHrqduRr +bjYcwogYySQJjHTucM/mZ0PktdrAe0US2O63zqdDnA2nnK2Z7+clcLvezZxh +NTZIl7dKc3FKYtB3g+NXNdhQLOa8oLtaEo0fzKZu1mbDh/eej9LXSuLuHCVI +prBBeVu40rbNkpjl/Eoth8kG9qNf/+IcJTE9fU2loCkb7IRjPz3aJYnq7oFx +4eZsCHtzOlP4oCS6nVDpXL+ZDQ1bbqx8e1kSR7ufPFPZxgbXB8qDyzclsfGX +Z+RWJzaMCdyr0y6WRPGHxjGhLmwQeV1+9FwDYS8idzh7Bxu8bVrG7L9Lohnp +0YG43WxYsvzZ+p+JFO7NCIssPcCG84VRRUuWUnj28Say40Ei3pUcyZrbpNAq +3Ub92yEivuerTM/6S+GIU/bDpcNsuGKuUGaXJoU74h4fq49mg9bNW+disqUw +yDFzVuYYES+XevD9fCm0i/GeCjnOhm9PDVQEWFKoHSp88k8cGwzRNutVnxTS +6rf5Pkxkw+sbb8P+fJPCHzrUbS+SiHiXXRzU56SwPnHu44dThP5PvPlT+Eg4 +tbapqec0ob/8yHC1KAn/iW3WaTtD6H9sX8OYLAlLTOPhaQqhv0lEtI0uCUOn +Vd0TzrJh77U/26OMSbhmo8q+HWlE/n/iKPcsSJi58p+G6jki35qUCX53ElpW +ZLQWnifqIy3SYuRHwvJXXOXu6UT+UZcKg0JImMpT6bIyg6iPUZ7XyxMkrHM7 +9nHTBTbY5ArN2aaSMJLRCq0EK/HGJLdeJKHEa4MYh0w2/Nr/TXbbDRIeUpRN +f0Xw23bXkrY7RDynxuPgIhvuGD+zcC0loUGohP19gmPzdbu7akgodITvj8gl +Qt9QAe7eVhJeXVD694Jgns7ILO8uIv8tjB2kLDb0ML6qD34h4f3DvDm7CS4v +cK73/07Cxze43twkOGV1g/PoHAlrRcsmewn2OaT9be8/ErLW5y6LZrOB/vHa +sQleMrpaOa9AgkVwlWioCBl7RnYt+xM8Wnik8Ic0Ga0TbWYTCK4THKYfViaj +851HA9cIvhTu+GZBk4yJH1XePiA45FOdbxSNjOo3zZ+wCLYw01z8i2Q8drbw +YTXBsnevpMbakPG8zGRhJcFza/gUuZzJuKu5trCI4FcRhysSPMjYxM0uuUxw +/ucBa95AMt7UTm6JIzhyk0Pv6VAyll7rmvUm2KHo8SGBKDLmndquQyd4g6g6 +77mTZBSQrDwhQPDy0eyrImfJGOZ0Z6KTyP9DH49O5iUygtZw2DWCiy3Dnknm +krEmXJXkTnDig363y3fJyPF+w2dhgneJ20/IlJFxuaXoeT2hv350TXxOLRmD +aw62BxG8amCDpGITYf8eBAQIHth86d7NN2TkE+k9cJuoZ9VDblD9SEbRTVJc +JgSflzzYdmeAjLQVVc9fEv2w51hvoPo4GW1KLjz+f79I2lad11kmY5uyuYsN +0U8TJaoqZXzSuBje9LuW6L9npMwqA1FpNK7r69vw/34cCRmgq0jjJeet4eNE +/76NV6ZY2Erj4xlJqXVEv98eTW9+4SyNqr7qq7yJeTi+dXmXjac0ZtwVcb6U +ygZNue7ErQcJ/rlucZKYpzPsc507sqTxVVN+uwMxf7vXLu3ryZXGxqKId27E +fBom7eXwuieNnWIcDHdifr86Waj5PZbGwRqXYOuTbNg09TsqZJDgs8nxH4n5 +j9ycufHpuDRqJ3mZlhH7oThPs1tsXhoLwyeak2LYQHL2Nqrik8F9r0boMlFs +GGc/X+DWksE5duffX+FsUBT1uu1Kk0HJxV67/DBi/+1bdL2LMnj1kVXMJmI/ +1cupV9o7yaCqokliBLHPLpw4H375qAyqaMlnpgexofmTmvJ4vAwmbTqnz7+H +DX8pjW3MFBls+nmxJSqADQFff+oNXSf8vb/13daXmAe7nTNajTKYoCboULiL +qKeEasgzQVmMUDvqzrRng9SBOjkpKVkMviL31dWO2A/Nbv8FKciiXZzl9SAb +NlRGpWis0ZfF5rovGccsCT37psd2uMlifUjfXy9i/+vdrQmcypfFnQ2LOSKa +bIg32bZb2lAOb/ZvXQMr2bDZM+cHzUwOUyuei+4l7pNQ3PeTLnZyuKlcoyyN +uF/XGhMLz3vLofu5jT3PfrOAbVP9feVpOcxz79s8PMmCabd1EbMf5dDRPdn3 +dwcLPA//PPM6Wh6HKBNlmTeIe55lJjuWKI9SzXMDf66yCL3PPeA9L49vl4IZ +HtksiPqr9tasQB6dX88kCaWz4OJJT4mq1/LY63RoXP0EC16nv7hxS24tDj2n +8br6Eve9+HL58bq1aHctYOaUIgs2dbYuTTavRZPyC+qn5Fhgz7HCyuv9WixP +8m+LJ7PA1zHkIwyvRW9b++ggERZYRivGxvEo4N+7j7O4OFkQunb+pqm6ArHf +8nd79VXCs8AbE40RCvjCzd++N7sSghdn4poFFfHuii1PXy1XAP1ggOSIqCLq +ZEjUuv0m/sfGuou4SYq4Wln42Je5Crj1qfEDU0kRu9pz/Ee+VUDvk4saFVRF +NFymezxpq4CtiUZdeV6K6GXDb1VUWAF6ovHa0SWKeG2/ONc16wr4pS7cq+mi +hPxZTgNTCeVgUnQ/99KldZheqq0qNlAKM6I23q4Nyli18udoqGkJDKV6ux7i +VUVjl2IZpYFisJ46Yj1MXY/Ndyep5+KLYNyXL6w8dgMOLX1bzJy9TbwXpLhO +Nahhnq6nVm9BAYj+p5r2aGojllqcPHD7eR7IJj90oFI1UNhp6Y7lp+uQrW4k +LBaoiaTg9bFHpC5Di7SpwWy6Fn6+2C1zZyYT6LIN57U/aONuvNv8gCcdhLjz +w3ef0ME2Ew8PmcYUWPmrzmkmQQfzOa6X/LmbAv8mP+vFn9JBSR7dtInzKTDV +TZ7JTdXBXkPfFzxeKfC2NH1//yUd7B5inOH9ewYyfOIDvIp0UPz7o2c2RmdA +ssHbzaNdBy31JNj59ckgH7/WZIeqLnZ3y/ynwJkExWF8Sp836CJbg1cpfTwR +mAEzvLvVdTGB99hj4a5E8LBtbNujo4u9XdP3GQ8T4ZpE4L6jdF0UE2l7uMUz +Ecj3iq9k2eviiULhLViXAOJtjF8dEbpo/TmFBakngV9lV6XjC120adoeoLAt +HvaSwabopS72V+cd2kr8E7QIKvVyvybsvZI3ndGNh9T5rzwVb3VRl5dPaZ1o +PAg1h7lIdetiVl+d4pe2OBDdlzL3aVwXNQQ8lU7viAPZkmo9f1E9jKrsln7a +fRy0GOSHRzz0sMP3s+DbfdFQti7oD5e3HpYcEzE6sTUaDFdVWaX56OFBte/3 +7PSjwazTrb8gUA/5NR+v3/gnClwPZou8P6iHMxsOj/GkRkHsLalwjSQ9rJhJ +fqJfGglvBSWNvhTrYYLyBzcu4aNwqFe00YZDH8/Fu3ei0GFobtr1+B6XPl6m ++zwT+xUO8g8LWat49JE1RK5YHAyHllj6/RZ+fdTbMhK2WBUOSoo+F23E9LHr +wv31rQHh8M63JNBGVR9PnhE/0twYBjrftgrY2OnjI13DlrtnDsHUbKqLdbY+ +Bv2QdS21DoWerjzX61f00a+Eu4nbKBRaHldun7mmj+y+D72+G0Kh4FT/jst5 ++lgU6ji4lTcU3GUont/u6aNaWr7p/ZQD8NzsU8Dpx/rIuUI7SSUlBK6mqx19 +OaCPuUEkCeEbwZAcwYyUG9bHX7/7eWjxwRCx0ynq4Fd9tK7U6DzqGwwOKsdi +yOP6qCkh8sZuQzCsrHobF/RTHx2shDgoZfvgYP+R0/x8FORSm+mb/G8vWGk3 +XbHWpODkli8/L0gGgdvKzc5vtSm4tLnzwsNfe2Dv55eC2/UoeHzyBmm0Zw+k +pfwX50ejoM5t86iHN/fAh6/tAbGmFLx7KYZ8UW8P+OUO6lW4UPDlwJWXt10C +4YQI5yuF4xSczePeuuWRP2SOnki4HUfBpBHu7o+X/KGwbgVT6yQF28vlj8cd +84eW/XwlxskUDDUdrZax9QeRljVZrhkUjO/Uunfqqx/knpD3TS2koJ9Ceq6S +ih88mTX+s9BKwX/dX13elfpA3muWj9M7ClocfOE1f90HEm7ptxS3UdDLW6xb ++7QPWG9Xv+zfRcGuFr3ePi8faK+WprV9oWCim6O7npAPjMX/OlQ8R8HtLNuJ +jJDdICnMGvOTNkA13qB77xne8GtUz7Fe1gDFxzrSA9S9oedpcZXMWgNsuVQ6 +LkD2hrywwuT36wyQrtl7XPGbF2h0XlRFTQO0jM7dOeLmBWY54T4yaIDTmc5D +6uAJIRp63e/8DXDdkZtiH1R2weEF6d9eewzw+l4J9m2uXRDTwC09udcAU1wv +eub27YQUt44dq0IN0J3Wp7Dyyk64k3D0o1mUAZo5Np++IbwTBnqedJWlGeCC +2b2KsRXu4HrWtvMiywALXNcXTfC5gYcbZWFdtQE2P4rR2Dm2HfzWyUmV1hrg +VFGD6/dX2yGsatK19akBLm82UQw7tx3OD6d/WPnaAGVM2qZlSduhhdHVcaSf +yIfDpK9W2xUYk37tO/ipeNTu8tiWI84gWWOVX7uaiiv29y6kezrD5KmNoWuF +qMizMujFtIUz5ChOrx4WpaLVkTM2/8Sd4Z9ztHmoLBXPxOzTdS13grqa9NIk +bSp+tyhhDC04gunpJ+fLXKj4Wru27H36NpB2zfOUdCP8qe8+gjHb4IdSgkak +O5V477/jbQrYBvm11s1MLyoqObRSSCbbgGu6ffnlHipGPeax/fDVARpdv4f0 +R1Px/q7hv7fMHcBCmbRFMJ+Kfwfmv89L2UP5xHNFvwIqBp42Pa0xuwWUWWHz +1YVUtO8uZ51p3QIrbN7c2FNERVlp1KxP3AINB5J+NJZTcd/twxar5+2AWTOX +FfWCijE6nL0cvbZAdXw38HWciu3Xn+j4t1hDoUwsizlFRXFFWQm/e9YgMayR +enGG8O/zeCzpjDXMHUk2MJ+n4gWyzmearTWUXofknGUqBqzLFzBv3Qza3x5o +uojS0NRf1LO/2wo2xJ052kCjoVXmq2s2gpZQa3yLx45Ow/WV4iMaUxbgsFCX +0WFCQ3s4foryzgKOhvy8P2pKQ5/mgzplFy2geZf3FyE7GsrbT5QGKVjAHiOq +zU5vGlaTLj/MNtkEd398kZlLpqGE7GX/qTQzYBb/vXMshYbB0mtZOofN4H2Q +FJU3jYYi5JL0jJ1m8LvfzkH6Ag3dXghuY20wA5s3rAS8TsPl+Xj++GemMFZ0 +diK1hIaVcXuc5zlNYaO/UZ1KNw3pVyY3TqgCnFOy/32yh4YalMEV80tMmOvz +MRjopWFXrRxZp4MJT9xTi3IGaXjTrk6elsAER4e+LKkJGuqYe02cGWJApHFi +KD+HIQ478tySLTaBZpF3ihMqhtjcykE/40sHzTfDu2w3GGK8bJSeG9IhI/V3 +1t2NhihI+6C1TY4Ou3iVhQK0DbFiketoY6cRTP2N+N1raIg3rq+nFdgbgeSo +bNtbW0MM3Slsp7XJEPyf7EkoP2iIvS5qJzS2UGFy/9gRi3BD5KQ0ysVqUOGo +XPC+DxGG2Gr/g7W0mgpnYg44LkYb4iURqvjxVwbwiB6hYJJkiA8P0B8k2hnA +38qTtY1XDHG0uZR00pUCGQ9z5t43ErzQ5d2ZrAeyXgqjvk2G2PLVR95qvx7c +Esr/NNdsiGGpZrk92/SAvf9Wg2SrIYbUSdKOyujBZ/X75927DHGjx87C4Ee6 +sOFOlcbAuCE+N5XqUPqiA3W57X4zEkYYwwwWVKzSgn47Ra8IkhE2pdNcr6Vo +Acev/Tv+SBthtfzlMRdPLTDbxmvPo2CEm9gnGk6s0IImTjqNvNEI/z2/2Vnt +pAmvfW7wmzKNkF/32FefJXXoVt5bfD7ACDnO7Tl8MVoN/rytvCMRZISM1gYF +Wxc1kD3GffPKPiPU+9MgStVWA4+Oa1kFoUZYmkR9cm9wA/QnvoljRxnho+XM +77xbN8DXEYpTf5oR2mx95uymvR7m7iwvaLOM8CXfs9sXxVVgxNUy93SVERra +OmDOvDJ0rTi7ebDGCD9aVe9u7VKGGm/py5fqjfDQxdPxBdeV4QTJgL700ghn +FYuF16kpg3Dy3piWHiP8O/P0O1qtA43ADg5/LjoOlJeEPc9RBHkJ2btPVtAx +sK/4W0CiIgg3+mwj8dJxctOb7RuDFWFWfjrv1Wo6Jr67FCFJV4TqD6vM9STo +6KzUxoztVIDNlpi4vJ6Ox9ddPHeApAC+KkX8V7bQ0evvuqiDvnIQ9dxzr6oD +HTVnn8v/o8jBeX/RV6WOdBy8N6P5ZqUc1N6KTH21nY6K/1nLMIpkQVx185ql +3XR8uPjagLkgA02qw+LeEXScqz85kXRVGjZuWKugeoOIP1Peql2UBNj8Pq40 +j46nvqzOMR+XAtc9SV+YBXTsrdO4Nf5cCk7emcjffpeOEX1+p8YipaBnQ63K +6TI6agn48p0dkoQ0tR3q4y/oWHRI7JraMwmY2XiBWjpNR0//dapV98Sg6zVa +iM3SsWDonOO3VDGoD5l0Cv9JR9nI9U3mB8QgrdT6IPU3HSv0dQojKGKwkc5x +v5rbGPXGtLe21ouCj/V+xUZJY6R8RzPJLyLQHmgl0G5ijKWHjd2uM4Whhv+n +tAEYozH1rOYjFWHIL8pXu2RqjFePRn0aERCG0KklSzdLY2Q/GOE5zloDgkfK +43u2Ev6za0o3zguBZZLiwpCPMSpTBTb7xgkCu+DPl5/JxtjD3fm67/kqoJqH +L9ikGOPEySA92euroOLLuEDuWWP8d5WzJyN8FZTK99JsMoj4NtJeaCqvgvvZ +9Wdzrhpj/YfkWyJJ/JCbmmhkVWyMGVFOY1ud+eB0+Jr07DZjXCn9kfM+aSXw +iSUXTnQY44McQYf8eR5IKuGoNesyxjv2E2Mv23kgYXJmZLzHGD0m5peK0nng ++J52E9MRYyyxeL+/XJAHDu26PPpt0Rj1xy/L5witAPdN69BY3gS5A3QXFfW4 +YKmdT6hRwQS/1Q8/9Rbjglz/yU8260yQdkUh9u0cJ4wkVR1x32CC8nvLSk3Z +nHDo5daHkXomOP3ZU83XlBPO2MfIsy1N8Fmr5qjfLg6oduv4SzlggvqClc2S +gUtMj2/VLbUHTZA8nd/URFlickTlZm8KN8HM9aTFF1xLTMur+yjOkSbY7Z8n +WHvjL/P9Z87gsJMmqL178Y3H5z/MMR+tTyVZJshlJGKgEPibKbP/VJVWvQmO +lrscSCxZYKYtBxikNJhg66d/P2gpC0yuDMuSr89M8HzQ+1ll/wXmWCXP3dyX +Jjjl93DtA/ICs5ojIVu0zQSdYwVk9ifOM90z447MD5tgx9oTH/wCfzKzayIN +nqxm4DPm1oOiTrNMAfsdJdJCDEx/3jMfpT/LjOs31DwizMDPoiau4uKzzD08 +i8o6EgxkPlmR3NXxg0nbGiGeL8/AolfOYjd2/mB+GDg0m6jLwDWr+tpHD8ww +JVYFl2zZziDeu+NZ5mFTzALzY1HTOxh49d2z/Wg0xdQ7lmZ+YRcDWdUqOfnL +k0z76UcdXbsZWBDneiTz7CQz6cPPX77BDDzR8mOtbPEEczE/1iwqnoG/f1iI +a3OOM7uNL7QVFjHQ/6TsFb3vo8w9hwuuWRczsNDn1M6i2lHmfHGF//gjBj54 +yZMQkTbKFFXqWtCtZOCub/kjnPqjTFs+OdnH9QxUUVJa3xv7lVnbXujX1sHA +hXCZL4YbRpg2QmzNiC4GWuusu3j53zCzy+rlPOkTA5dm5GM3dQwz56q/J3v2 +M1Bocpn7yMlhpmaezoNvYwx88V+/n+ngELO22zQidYKBj8XvuI7UDDFtxJ1A +e5qB3mLfH77LHGIGnDr8LvwnAyGgoC7Saog5V590RWqRgYyizSkGikPME7+z +fKt/MzAypmHU4M8gU5hyV8NjiYEUkUN+UR2DzJz91T+Xlwm9SoNTuB4NMv8H +1x7ERA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09608046329826965}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09608046329826965}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993852562277628*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"0ba5dac3-c2cf-4eb4-8455-7df1dfe3acf7"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ -53b7ef04b97c"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVl2k4lH8Xxy0JhexmbCGU7IwZhplzELIk2ZKyZE1JipSlUEiRIkWbkLQo +ZZ2xFFGS+mtBJCFbkjVCizz38+q+Pi/Ouc75nu3+KfoccPTn4uDgeMnJwfH/ +73zvy2fKKQVMq1ujgRKxDsz2HFKkadcJsFZw4K4x1wKUeOND6soA0hqOikPm +TIhwuNfJ3ZUPZ1u0Dxia24PIpFTGr85S8F94/r7BzBP6au0PzHU2gJ7Horqq +aQhYKo99nul8D9+iZ8zf0Y/Dr07axenOARjIYptdVkyDRvPbBe/yZyHgqObB +iZkckO2rGvHRWIL1eb/OSx0tBPFgr3u85twoezT/5O3G+5Cha1lj78KHFopT +smP+JaD9aYcVYw8f+s6kHbMNLYHXCfvb1KP58NDu65KFUSWwsivzO18eHx4O +ix+2PFcC0ccHZRrH+XBjYs0NKrsE/F7FxdAS+JGyRarvFV8pUP1rGAplq9DH ++LBxVUEptAm9eSnUtAqvxBpMGBeXQih7wGWpaxUK/S6LZrFK4d7qVSHd/1ah +6VKe8uWWUlhb6paTabManXgZXiunS4Fv+ec/voHV+Ehbyz7JqAw+ZuvUzwgL +4gbDKPbqF2Vwpa1oTYSKIKrH5e3weFsG7kLrvX4bCWJigqxZ4ccy6Dkp94/L +VxD1UgZ65cbLoD9klYl4hSBqeA1xFgiXw+imIRZ1hxC2PnFq53crh8XprIfR +eWtwsMFfS6O/HKrUxZaXK9ag6+toC5/RcogKSLNPaFmD5Owyz3PT5fD3U8JE +6uwaFOJOO9/KUQFxg2yJN0rCeC4hqqFfoQISWm859YcLo4pc4qKjVwWkFMS+ +4SKLoNLhsCa/jgqwoQSJSqwTQbvwsk3beyqA75mjy3pNEZQz15nEQcJ+UOWT +rakI9otZ1f2aroAYpdcjmUEi6CfKacYpUAkhuaR/qtUi+EosUy4QK2HbtRIN +252iGFC689/p/EoQ1rh6wMNfFM1vUzO971RCa01C6YEDosihlGOuVVwJNp+2 +G2aeFMU3/l6TxVWVYCb9z/xzkSiu+cYdavG2EijZNjsP/BXFWtNN5Bd/KkEq +c/D0hetiGLglpVPOjgUk9YqExUIxZC3Z3ktyYIF0Q1KsxyMxbBTma/zqzAL5 +abXD6xvF8CdTpTnDgwUqdqHeNaNi+E+0XjM1hAX6K5aog/riiBH+3QLnWEC5 +2qq7mSGOoee9N//OYAFVL1fjgaU4Fn7h4Om/xAK6t7nSkR3ieOrFWHBmDgtM +a08Lro4Vx4xzO1bnPWDB1nDJIb0WcdwefkrbpoUFDqtHe7PaxFH06OSX2v9Y +4Jhf9fFvjzhKny2bWv+OBa5vd71pmhJHUpqI4tdOFnho3Kx2l5DAP7UC8/zD +LNg3pJ1+wlsCr7Y7bRlYYkFwNGfq1yAJnFg+qvmJgw0hom1JdmESuHrqduRr +bjYcwogYySQJjHTucM/mZ0PktdrAe0US2O63zqdDnA2nnK2Z7+clcLvezZxh +NTZIl7dKc3FKYtB3g+NXNdhQLOa8oLtaEo0fzKZu1mbDh/eej9LXSuLuHCVI +prBBeVu40rbNkpjl/Eoth8kG9qNf/+IcJTE9fU2loCkb7IRjPz3aJYnq7oFx +4eZsCHtzOlP4oCS6nVDpXL+ZDQ1bbqx8e1kSR7ufPFPZxgbXB8qDyzclsfGX +Z+RWJzaMCdyr0y6WRPGHxjGhLmwQeV1+9FwDYS8idzh7Bxu8bVrG7L9Lohnp +0YG43WxYsvzZ+p+JFO7NCIssPcCG84VRRUuWUnj28Say40Ei3pUcyZrbpNAq +3Ub92yEivuerTM/6S+GIU/bDpcNsuGKuUGaXJoU74h4fq49mg9bNW+disqUw +yDFzVuYYES+XevD9fCm0i/GeCjnOhm9PDVQEWFKoHSp88k8cGwzRNutVnxTS +6rf5Pkxkw+sbb8P+fJPCHzrUbS+SiHiXXRzU56SwPnHu44dThP5PvPlT+Eg4 +tbapqec0ob/8yHC1KAn/iW3WaTtD6H9sX8OYLAlLTOPhaQqhv0lEtI0uCUOn +Vd0TzrJh77U/26OMSbhmo8q+HWlE/n/iKPcsSJi58p+G6jki35qUCX53ElpW +ZLQWnifqIy3SYuRHwvJXXOXu6UT+UZcKg0JImMpT6bIyg6iPUZ7XyxMkrHM7 +9nHTBTbY5ArN2aaSMJLRCq0EK/HGJLdeJKHEa4MYh0w2/Nr/TXbbDRIeUpRN +f0Xw23bXkrY7RDynxuPgIhvuGD+zcC0loUGohP19gmPzdbu7akgodITvj8gl +Qt9QAe7eVhJeXVD694Jgns7ILO8uIv8tjB2kLDb0ML6qD34h4f3DvDm7CS4v +cK73/07Cxze43twkOGV1g/PoHAlrRcsmewn2OaT9be8/ErLW5y6LZrOB/vHa +sQleMrpaOa9AgkVwlWioCBl7RnYt+xM8Wnik8Ic0Ga0TbWYTCK4THKYfViaj +851HA9cIvhTu+GZBk4yJH1XePiA45FOdbxSNjOo3zZ+wCLYw01z8i2Q8drbw +YTXBsnevpMbakPG8zGRhJcFza/gUuZzJuKu5trCI4FcRhysSPMjYxM0uuUxw +/ucBa95AMt7UTm6JIzhyk0Pv6VAyll7rmvUm2KHo8SGBKDLmndquQyd4g6g6 +77mTZBSQrDwhQPDy0eyrImfJGOZ0Z6KTyP9DH49O5iUygtZw2DWCiy3Dnknm +krEmXJXkTnDig363y3fJyPF+w2dhgneJ20/IlJFxuaXoeT2hv350TXxOLRmD +aw62BxG8amCDpGITYf8eBAQIHth86d7NN2TkE+k9cJuoZ9VDblD9SEbRTVJc +JgSflzzYdmeAjLQVVc9fEv2w51hvoPo4GW1KLjz+f79I2lad11kmY5uyuYsN +0U8TJaoqZXzSuBje9LuW6L9npMwqA1FpNK7r69vw/34cCRmgq0jjJeet4eNE +/76NV6ZY2Erj4xlJqXVEv98eTW9+4SyNqr7qq7yJeTi+dXmXjac0ZtwVcb6U +ygZNue7ErQcJ/rlucZKYpzPsc507sqTxVVN+uwMxf7vXLu3ryZXGxqKId27E +fBom7eXwuieNnWIcDHdifr86Waj5PZbGwRqXYOuTbNg09TsqZJDgs8nxH4n5 +j9ycufHpuDRqJ3mZlhH7oThPs1tsXhoLwyeak2LYQHL2Nqrik8F9r0boMlFs +GGc/X+DWksE5duffX+FsUBT1uu1Kk0HJxV67/DBi/+1bdL2LMnj1kVXMJmI/ +1cupV9o7yaCqokliBLHPLpw4H375qAyqaMlnpgexofmTmvJ4vAwmbTqnz7+H +DX8pjW3MFBls+nmxJSqADQFff+oNXSf8vb/13daXmAe7nTNajTKYoCboULiL +qKeEasgzQVmMUDvqzrRng9SBOjkpKVkMviL31dWO2A/Nbv8FKciiXZzl9SAb +NlRGpWis0ZfF5rovGccsCT37psd2uMlifUjfXy9i/+vdrQmcypfFnQ2LOSKa +bIg32bZb2lAOb/ZvXQMr2bDZM+cHzUwOUyuei+4l7pNQ3PeTLnZyuKlcoyyN +uF/XGhMLz3vLofu5jT3PfrOAbVP9feVpOcxz79s8PMmCabd1EbMf5dDRPdn3 +dwcLPA//PPM6Wh6HKBNlmTeIe55lJjuWKI9SzXMDf66yCL3PPeA9L49vl4IZ +HtksiPqr9tasQB6dX88kCaWz4OJJT4mq1/LY63RoXP0EC16nv7hxS24tDj2n +8br6Eve9+HL58bq1aHctYOaUIgs2dbYuTTavRZPyC+qn5Fhgz7HCyuv9WixP +8m+LJ7PA1zHkIwyvRW9b++ggERZYRivGxvEo4N+7j7O4OFkQunb+pqm6ArHf +8nd79VXCs8AbE40RCvjCzd++N7sSghdn4poFFfHuii1PXy1XAP1ggOSIqCLq +ZEjUuv0m/sfGuou4SYq4Wln42Je5Crj1qfEDU0kRu9pz/Ee+VUDvk4saFVRF +NFymezxpq4CtiUZdeV6K6GXDb1VUWAF6ovHa0SWKeG2/ONc16wr4pS7cq+mi +hPxZTgNTCeVgUnQ/99KldZheqq0qNlAKM6I23q4Nyli18udoqGkJDKV6ux7i +VUVjl2IZpYFisJ46Yj1MXY/Ndyep5+KLYNyXL6w8dgMOLX1bzJy9TbwXpLhO +Nahhnq6nVm9BAYj+p5r2aGojllqcPHD7eR7IJj90oFI1UNhp6Y7lp+uQrW4k +LBaoiaTg9bFHpC5Di7SpwWy6Fn6+2C1zZyYT6LIN57U/aONuvNv8gCcdhLjz +w3ef0ME2Ew8PmcYUWPmrzmkmQQfzOa6X/LmbAv8mP+vFn9JBSR7dtInzKTDV +TZ7JTdXBXkPfFzxeKfC2NH1//yUd7B5inOH9ewYyfOIDvIp0UPz7o2c2RmdA +ssHbzaNdBy31JNj59ckgH7/WZIeqLnZ3y/ynwJkExWF8Sp836CJbg1cpfTwR +mAEzvLvVdTGB99hj4a5E8LBtbNujo4u9XdP3GQ8T4ZpE4L6jdF0UE2l7uMUz +Ecj3iq9k2eviiULhLViXAOJtjF8dEbpo/TmFBakngV9lV6XjC120adoeoLAt +HvaSwabopS72V+cd2kr8E7QIKvVyvybsvZI3ndGNh9T5rzwVb3VRl5dPaZ1o +PAg1h7lIdetiVl+d4pe2OBDdlzL3aVwXNQQ8lU7viAPZkmo9f1E9jKrsln7a +fRy0GOSHRzz0sMP3s+DbfdFQti7oD5e3HpYcEzE6sTUaDFdVWaX56OFBte/3 +7PSjwazTrb8gUA/5NR+v3/gnClwPZou8P6iHMxsOj/GkRkHsLalwjSQ9rJhJ +fqJfGglvBSWNvhTrYYLyBzcu4aNwqFe00YZDH8/Fu3ei0GFobtr1+B6XPl6m ++zwT+xUO8g8LWat49JE1RK5YHAyHllj6/RZ+fdTbMhK2WBUOSoo+F23E9LHr +wv31rQHh8M63JNBGVR9PnhE/0twYBjrftgrY2OnjI13DlrtnDsHUbKqLdbY+ +Bv2QdS21DoWerjzX61f00a+Eu4nbKBRaHldun7mmj+y+D72+G0Kh4FT/jst5 ++lgU6ji4lTcU3GUont/u6aNaWr7p/ZQD8NzsU8Dpx/rIuUI7SSUlBK6mqx19 +OaCPuUEkCeEbwZAcwYyUG9bHX7/7eWjxwRCx0ynq4Fd9tK7U6DzqGwwOKsdi +yOP6qCkh8sZuQzCsrHobF/RTHx2shDgoZfvgYP+R0/x8FORSm+mb/G8vWGk3 +XbHWpODkli8/L0gGgdvKzc5vtSm4tLnzwsNfe2Dv55eC2/UoeHzyBmm0Zw+k +pfwX50ejoM5t86iHN/fAh6/tAbGmFLx7KYZ8UW8P+OUO6lW4UPDlwJWXt10C +4YQI5yuF4xSczePeuuWRP2SOnki4HUfBpBHu7o+X/KGwbgVT6yQF28vlj8cd +84eW/XwlxskUDDUdrZax9QeRljVZrhkUjO/Uunfqqx/knpD3TS2koJ9Ceq6S +ih88mTX+s9BKwX/dX13elfpA3muWj9M7ClocfOE1f90HEm7ptxS3UdDLW6xb ++7QPWG9Xv+zfRcGuFr3ePi8faK+WprV9oWCim6O7npAPjMX/OlQ8R8HtLNuJ +jJDdICnMGvOTNkA13qB77xne8GtUz7Fe1gDFxzrSA9S9oedpcZXMWgNsuVQ6 +LkD2hrywwuT36wyQrtl7XPGbF2h0XlRFTQO0jM7dOeLmBWY54T4yaIDTmc5D +6uAJIRp63e/8DXDdkZtiH1R2weEF6d9eewzw+l4J9m2uXRDTwC09udcAU1wv +eub27YQUt44dq0IN0J3Wp7Dyyk64k3D0o1mUAZo5Np++IbwTBnqedJWlGeCC +2b2KsRXu4HrWtvMiywALXNcXTfC5gYcbZWFdtQE2P4rR2Dm2HfzWyUmV1hrg +VFGD6/dX2yGsatK19akBLm82UQw7tx3OD6d/WPnaAGVM2qZlSduhhdHVcaSf +yIfDpK9W2xUYk37tO/ipeNTu8tiWI84gWWOVX7uaiiv29y6kezrD5KmNoWuF +qMizMujFtIUz5ChOrx4WpaLVkTM2/8Sd4Z9ztHmoLBXPxOzTdS13grqa9NIk +bSp+tyhhDC04gunpJ+fLXKj4Wru27H36NpB2zfOUdCP8qe8+gjHb4IdSgkak +O5V477/jbQrYBvm11s1MLyoqObRSSCbbgGu6ffnlHipGPeax/fDVARpdv4f0 +R1Px/q7hv7fMHcBCmbRFMJ+Kfwfmv89L2UP5xHNFvwIqBp42Pa0xuwWUWWHz +1YVUtO8uZ51p3QIrbN7c2FNERVlp1KxP3AINB5J+NJZTcd/twxar5+2AWTOX +FfWCijE6nL0cvbZAdXw38HWciu3Xn+j4t1hDoUwsizlFRXFFWQm/e9YgMayR +enGG8O/zeCzpjDXMHUk2MJ+n4gWyzmearTWUXofknGUqBqzLFzBv3Qza3x5o +uojS0NRf1LO/2wo2xJ052kCjoVXmq2s2gpZQa3yLx45Ow/WV4iMaUxbgsFCX +0WFCQ3s4foryzgKOhvy8P2pKQ5/mgzplFy2geZf3FyE7GsrbT5QGKVjAHiOq +zU5vGlaTLj/MNtkEd398kZlLpqGE7GX/qTQzYBb/vXMshYbB0mtZOofN4H2Q +FJU3jYYi5JL0jJ1m8LvfzkH6Ag3dXghuY20wA5s3rAS8TsPl+Xj++GemMFZ0 +diK1hIaVcXuc5zlNYaO/UZ1KNw3pVyY3TqgCnFOy/32yh4YalMEV80tMmOvz +MRjopWFXrRxZp4MJT9xTi3IGaXjTrk6elsAER4e+LKkJGuqYe02cGWJApHFi +KD+HIQ478tySLTaBZpF3ihMqhtjcykE/40sHzTfDu2w3GGK8bJSeG9IhI/V3 +1t2NhihI+6C1TY4Ou3iVhQK0DbFiketoY6cRTP2N+N1raIg3rq+nFdgbgeSo +bNtbW0MM3Slsp7XJEPyf7EkoP2iIvS5qJzS2UGFy/9gRi3BD5KQ0ysVqUOGo +XPC+DxGG2Gr/g7W0mgpnYg44LkYb4iURqvjxVwbwiB6hYJJkiA8P0B8k2hnA +38qTtY1XDHG0uZR00pUCGQ9z5t43ErzQ5d2ZrAeyXgqjvk2G2PLVR95qvx7c +Esr/NNdsiGGpZrk92/SAvf9Wg2SrIYbUSdKOyujBZ/X75927DHGjx87C4Ee6 +sOFOlcbAuCE+N5XqUPqiA3W57X4zEkYYwwwWVKzSgn47Ra8IkhE2pdNcr6Vo +Acev/Tv+SBthtfzlMRdPLTDbxmvPo2CEm9gnGk6s0IImTjqNvNEI/z2/2Vnt +pAmvfW7wmzKNkF/32FefJXXoVt5bfD7ACDnO7Tl8MVoN/rytvCMRZISM1gYF +Wxc1kD3GffPKPiPU+9MgStVWA4+Oa1kFoUZYmkR9cm9wA/QnvoljRxnho+XM +77xbN8DXEYpTf5oR2mx95uymvR7m7iwvaLOM8CXfs9sXxVVgxNUy93SVERra +OmDOvDJ0rTi7ebDGCD9aVe9u7VKGGm/py5fqjfDQxdPxBdeV4QTJgL700ghn +FYuF16kpg3Dy3piWHiP8O/P0O1qtA43ADg5/LjoOlJeEPc9RBHkJ2btPVtAx +sK/4W0CiIgg3+mwj8dJxctOb7RuDFWFWfjrv1Wo6Jr67FCFJV4TqD6vM9STo +6KzUxoztVIDNlpi4vJ6Ox9ddPHeApAC+KkX8V7bQ0evvuqiDvnIQ9dxzr6oD +HTVnn8v/o8jBeX/RV6WOdBy8N6P5ZqUc1N6KTH21nY6K/1nLMIpkQVx185ql +3XR8uPjagLkgA02qw+LeEXScqz85kXRVGjZuWKugeoOIP1Peql2UBNj8Pq40 +j46nvqzOMR+XAtc9SV+YBXTsrdO4Nf5cCk7emcjffpeOEX1+p8YipaBnQ63K +6TI6agn48p0dkoQ0tR3q4y/oWHRI7JraMwmY2XiBWjpNR0//dapV98Sg6zVa +iM3SsWDonOO3VDGoD5l0Cv9JR9nI9U3mB8QgrdT6IPU3HSv0dQojKGKwkc5x +v5rbGPXGtLe21ouCj/V+xUZJY6R8RzPJLyLQHmgl0G5ijKWHjd2uM4Whhv+n +tAEYozH1rOYjFWHIL8pXu2RqjFePRn0aERCG0KklSzdLY2Q/GOE5zloDgkfK +43u2Ev6za0o3zguBZZLiwpCPMSpTBTb7xgkCu+DPl5/JxtjD3fm67/kqoJqH +L9ikGOPEySA92euroOLLuEDuWWP8d5WzJyN8FZTK99JsMoj4NtJeaCqvgvvZ +9Wdzrhpj/YfkWyJJ/JCbmmhkVWyMGVFOY1ud+eB0+Jr07DZjXCn9kfM+aSXw +iSUXTnQY44McQYf8eR5IKuGoNesyxjv2E2Mv23kgYXJmZLzHGD0m5peK0nng ++J52E9MRYyyxeL+/XJAHDu26PPpt0Rj1xy/L5witAPdN69BY3gS5A3QXFfW4 +YKmdT6hRwQS/1Q8/9Rbjglz/yU8260yQdkUh9u0cJ4wkVR1x32CC8nvLSk3Z +nHDo5daHkXomOP3ZU83XlBPO2MfIsy1N8Fmr5qjfLg6oduv4SzlggvqClc2S +gUtMj2/VLbUHTZA8nd/URFlickTlZm8KN8HM9aTFF1xLTMur+yjOkSbY7Z8n +WHvjL/P9Z87gsJMmqL178Y3H5z/MMR+tTyVZJshlJGKgEPibKbP/VJVWvQmO +lrscSCxZYKYtBxikNJhg66d/P2gpC0yuDMuSr89M8HzQ+1ll/wXmWCXP3dyX +Jjjl93DtA/ICs5ojIVu0zQSdYwVk9ifOM90z447MD5tgx9oTH/wCfzKzayIN +nqxm4DPm1oOiTrNMAfsdJdJCDEx/3jMfpT/LjOs31DwizMDPoiau4uKzzD08 +i8o6EgxkPlmR3NXxg0nbGiGeL8/AolfOYjd2/mB+GDg0m6jLwDWr+tpHD8ww +JVYFl2zZziDeu+NZ5mFTzALzY1HTOxh49d2z/Wg0xdQ7lmZ+YRcDWdUqOfnL +k0z76UcdXbsZWBDneiTz7CQz6cPPX77BDDzR8mOtbPEEczE/1iwqnoG/f1iI +a3OOM7uNL7QVFjHQ/6TsFb3vo8w9hwuuWRczsNDn1M6i2lHmfHGF//gjBj54 +yZMQkTbKFFXqWtCtZOCub/kjnPqjTFs+OdnH9QxUUVJa3xv7lVnbXujX1sHA +hXCZL4YbRpg2QmzNiC4GWuusu3j53zCzy+rlPOkTA5dm5GM3dQwz56q/J3v2 +M1Bocpn7yMlhpmaezoNvYwx88V+/n+ngELO22zQidYKBj8XvuI7UDDFtxJ1A +e5qB3mLfH77LHGIGnDr8LvwnAyGgoC7Saog5V590RWqRgYyizSkGikPME7+z +fKt/MzAypmHU4M8gU5hyV8NjiYEUkUN+UR2DzJz91T+Xlwm9SoNTuB4NMv8H +1x7ERA== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl2k4lH8Xxy0JhexmbCGU7IwZhplzELIk2ZKyZE1JipSlUEiRIkWbkLQo +ZZ2xFFGS+mtBJCFbkjVCizz38+q+Pi/Ouc75nu3+KfoccPTn4uDgeMnJwfH/ +73zvy2fKKQVMq1ujgRKxDsz2HFKkadcJsFZw4K4x1wKUeOND6soA0hqOikPm +TIhwuNfJ3ZUPZ1u0Dxia24PIpFTGr85S8F94/r7BzBP6au0PzHU2gJ7Horqq +aQhYKo99nul8D9+iZ8zf0Y/Dr07axenOARjIYptdVkyDRvPbBe/yZyHgqObB +iZkckO2rGvHRWIL1eb/OSx0tBPFgr3u85twoezT/5O3G+5Cha1lj78KHFopT +smP+JaD9aYcVYw8f+s6kHbMNLYHXCfvb1KP58NDu65KFUSWwsivzO18eHx4O +ix+2PFcC0ccHZRrH+XBjYs0NKrsE/F7FxdAS+JGyRarvFV8pUP1rGAplq9DH ++LBxVUEptAm9eSnUtAqvxBpMGBeXQih7wGWpaxUK/S6LZrFK4d7qVSHd/1ah +6VKe8uWWUlhb6paTabManXgZXiunS4Fv+ec/voHV+Ehbyz7JqAw+ZuvUzwgL +4gbDKPbqF2Vwpa1oTYSKIKrH5e3weFsG7kLrvX4bCWJigqxZ4ccy6Dkp94/L +VxD1UgZ65cbLoD9klYl4hSBqeA1xFgiXw+imIRZ1hxC2PnFq53crh8XprIfR +eWtwsMFfS6O/HKrUxZaXK9ag6+toC5/RcogKSLNPaFmD5Owyz3PT5fD3U8JE +6uwaFOJOO9/KUQFxg2yJN0rCeC4hqqFfoQISWm859YcLo4pc4qKjVwWkFMS+ +4SKLoNLhsCa/jgqwoQSJSqwTQbvwsk3beyqA75mjy3pNEZQz15nEQcJ+UOWT +rakI9otZ1f2aroAYpdcjmUEi6CfKacYpUAkhuaR/qtUi+EosUy4QK2HbtRIN +252iGFC689/p/EoQ1rh6wMNfFM1vUzO971RCa01C6YEDosihlGOuVVwJNp+2 +G2aeFMU3/l6TxVWVYCb9z/xzkSiu+cYdavG2EijZNjsP/BXFWtNN5Bd/KkEq +c/D0hetiGLglpVPOjgUk9YqExUIxZC3Z3ktyYIF0Q1KsxyMxbBTma/zqzAL5 +abXD6xvF8CdTpTnDgwUqdqHeNaNi+E+0XjM1hAX6K5aog/riiBH+3QLnWEC5 +2qq7mSGOoee9N//OYAFVL1fjgaU4Fn7h4Om/xAK6t7nSkR3ieOrFWHBmDgtM +a08Lro4Vx4xzO1bnPWDB1nDJIb0WcdwefkrbpoUFDqtHe7PaxFH06OSX2v9Y +4Jhf9fFvjzhKny2bWv+OBa5vd71pmhJHUpqI4tdOFnho3Kx2l5DAP7UC8/zD +LNg3pJ1+wlsCr7Y7bRlYYkFwNGfq1yAJnFg+qvmJgw0hom1JdmESuHrqduRr +bjYcwogYySQJjHTucM/mZ0PktdrAe0US2O63zqdDnA2nnK2Z7+clcLvezZxh +NTZIl7dKc3FKYtB3g+NXNdhQLOa8oLtaEo0fzKZu1mbDh/eej9LXSuLuHCVI +prBBeVu40rbNkpjl/Eoth8kG9qNf/+IcJTE9fU2loCkb7IRjPz3aJYnq7oFx +4eZsCHtzOlP4oCS6nVDpXL+ZDQ1bbqx8e1kSR7ufPFPZxgbXB8qDyzclsfGX +Z+RWJzaMCdyr0y6WRPGHxjGhLmwQeV1+9FwDYS8idzh7Bxu8bVrG7L9Lohnp +0YG43WxYsvzZ+p+JFO7NCIssPcCG84VRRUuWUnj28Say40Ei3pUcyZrbpNAq +3Ub92yEivuerTM/6S+GIU/bDpcNsuGKuUGaXJoU74h4fq49mg9bNW+disqUw +yDFzVuYYES+XevD9fCm0i/GeCjnOhm9PDVQEWFKoHSp88k8cGwzRNutVnxTS +6rf5Pkxkw+sbb8P+fJPCHzrUbS+SiHiXXRzU56SwPnHu44dThP5PvPlT+Eg4 +tbapqec0ob/8yHC1KAn/iW3WaTtD6H9sX8OYLAlLTOPhaQqhv0lEtI0uCUOn +Vd0TzrJh77U/26OMSbhmo8q+HWlE/n/iKPcsSJi58p+G6jki35qUCX53ElpW +ZLQWnifqIy3SYuRHwvJXXOXu6UT+UZcKg0JImMpT6bIyg6iPUZ7XyxMkrHM7 +9nHTBTbY5ArN2aaSMJLRCq0EK/HGJLdeJKHEa4MYh0w2/Nr/TXbbDRIeUpRN +f0Xw23bXkrY7RDynxuPgIhvuGD+zcC0loUGohP19gmPzdbu7akgodITvj8gl +Qt9QAe7eVhJeXVD694Jgns7ILO8uIv8tjB2kLDb0ML6qD34h4f3DvDm7CS4v +cK73/07Cxze43twkOGV1g/PoHAlrRcsmewn2OaT9be8/ErLW5y6LZrOB/vHa +sQleMrpaOa9AgkVwlWioCBl7RnYt+xM8Wnik8Ic0Ga0TbWYTCK4THKYfViaj +851HA9cIvhTu+GZBk4yJH1XePiA45FOdbxSNjOo3zZ+wCLYw01z8i2Q8drbw +YTXBsnevpMbakPG8zGRhJcFza/gUuZzJuKu5trCI4FcRhysSPMjYxM0uuUxw +/ucBa95AMt7UTm6JIzhyk0Pv6VAyll7rmvUm2KHo8SGBKDLmndquQyd4g6g6 +77mTZBSQrDwhQPDy0eyrImfJGOZ0Z6KTyP9DH49O5iUygtZw2DWCiy3Dnknm +krEmXJXkTnDig363y3fJyPF+w2dhgneJ20/IlJFxuaXoeT2hv350TXxOLRmD +aw62BxG8amCDpGITYf8eBAQIHth86d7NN2TkE+k9cJuoZ9VDblD9SEbRTVJc +JgSflzzYdmeAjLQVVc9fEv2w51hvoPo4GW1KLjz+f79I2lad11kmY5uyuYsN +0U8TJaoqZXzSuBje9LuW6L9npMwqA1FpNK7r69vw/34cCRmgq0jjJeet4eNE +/76NV6ZY2Erj4xlJqXVEv98eTW9+4SyNqr7qq7yJeTi+dXmXjac0ZtwVcb6U +ygZNue7ErQcJ/rlucZKYpzPsc507sqTxVVN+uwMxf7vXLu3ryZXGxqKId27E +fBom7eXwuieNnWIcDHdifr86Waj5PZbGwRqXYOuTbNg09TsqZJDgs8nxH4n5 +j9ycufHpuDRqJ3mZlhH7oThPs1tsXhoLwyeak2LYQHL2Nqrik8F9r0boMlFs +GGc/X+DWksE5duffX+FsUBT1uu1Kk0HJxV67/DBi/+1bdL2LMnj1kVXMJmI/ +1cupV9o7yaCqokliBLHPLpw4H375qAyqaMlnpgexofmTmvJ4vAwmbTqnz7+H +DX8pjW3MFBls+nmxJSqADQFff+oNXSf8vb/13daXmAe7nTNajTKYoCboULiL +qKeEasgzQVmMUDvqzrRng9SBOjkpKVkMviL31dWO2A/Nbv8FKciiXZzl9SAb +NlRGpWis0ZfF5rovGccsCT37psd2uMlifUjfXy9i/+vdrQmcypfFnQ2LOSKa +bIg32bZb2lAOb/ZvXQMr2bDZM+cHzUwOUyuei+4l7pNQ3PeTLnZyuKlcoyyN +uF/XGhMLz3vLofu5jT3PfrOAbVP9feVpOcxz79s8PMmCabd1EbMf5dDRPdn3 +dwcLPA//PPM6Wh6HKBNlmTeIe55lJjuWKI9SzXMDf66yCL3PPeA9L49vl4IZ +HtksiPqr9tasQB6dX88kCaWz4OJJT4mq1/LY63RoXP0EC16nv7hxS24tDj2n +8br6Eve9+HL58bq1aHctYOaUIgs2dbYuTTavRZPyC+qn5Fhgz7HCyuv9WixP +8m+LJ7PA1zHkIwyvRW9b++ggERZYRivGxvEo4N+7j7O4OFkQunb+pqm6ArHf +8nd79VXCs8AbE40RCvjCzd++N7sSghdn4poFFfHuii1PXy1XAP1ggOSIqCLq +ZEjUuv0m/sfGuou4SYq4Wln42Je5Crj1qfEDU0kRu9pz/Ee+VUDvk4saFVRF +NFymezxpq4CtiUZdeV6K6GXDb1VUWAF6ovHa0SWKeG2/ONc16wr4pS7cq+mi +hPxZTgNTCeVgUnQ/99KldZheqq0qNlAKM6I23q4Nyli18udoqGkJDKV6ux7i +VUVjl2IZpYFisJ46Yj1MXY/Ndyep5+KLYNyXL6w8dgMOLX1bzJy9TbwXpLhO +Nahhnq6nVm9BAYj+p5r2aGojllqcPHD7eR7IJj90oFI1UNhp6Y7lp+uQrW4k +LBaoiaTg9bFHpC5Di7SpwWy6Fn6+2C1zZyYT6LIN57U/aONuvNv8gCcdhLjz +w3ef0ME2Ew8PmcYUWPmrzmkmQQfzOa6X/LmbAv8mP+vFn9JBSR7dtInzKTDV +TZ7JTdXBXkPfFzxeKfC2NH1//yUd7B5inOH9ewYyfOIDvIp0UPz7o2c2RmdA +ssHbzaNdBy31JNj59ckgH7/WZIeqLnZ3y/ynwJkExWF8Sp836CJbg1cpfTwR +mAEzvLvVdTGB99hj4a5E8LBtbNujo4u9XdP3GQ8T4ZpE4L6jdF0UE2l7uMUz +Ecj3iq9k2eviiULhLViXAOJtjF8dEbpo/TmFBakngV9lV6XjC120adoeoLAt +HvaSwabopS72V+cd2kr8E7QIKvVyvybsvZI3ndGNh9T5rzwVb3VRl5dPaZ1o +PAg1h7lIdetiVl+d4pe2OBDdlzL3aVwXNQQ8lU7viAPZkmo9f1E9jKrsln7a +fRy0GOSHRzz0sMP3s+DbfdFQti7oD5e3HpYcEzE6sTUaDFdVWaX56OFBte/3 +7PSjwazTrb8gUA/5NR+v3/gnClwPZou8P6iHMxsOj/GkRkHsLalwjSQ9rJhJ +fqJfGglvBSWNvhTrYYLyBzcu4aNwqFe00YZDH8/Fu3ei0GFobtr1+B6XPl6m ++zwT+xUO8g8LWat49JE1RK5YHAyHllj6/RZ+fdTbMhK2WBUOSoo+F23E9LHr +wv31rQHh8M63JNBGVR9PnhE/0twYBjrftgrY2OnjI13DlrtnDsHUbKqLdbY+ +Bv2QdS21DoWerjzX61f00a+Eu4nbKBRaHldun7mmj+y+D72+G0Kh4FT/jst5 ++lgU6ji4lTcU3GUont/u6aNaWr7p/ZQD8NzsU8Dpx/rIuUI7SSUlBK6mqx19 +OaCPuUEkCeEbwZAcwYyUG9bHX7/7eWjxwRCx0ynq4Fd9tK7U6DzqGwwOKsdi +yOP6qCkh8sZuQzCsrHobF/RTHx2shDgoZfvgYP+R0/x8FORSm+mb/G8vWGk3 +XbHWpODkli8/L0gGgdvKzc5vtSm4tLnzwsNfe2Dv55eC2/UoeHzyBmm0Zw+k +pfwX50ejoM5t86iHN/fAh6/tAbGmFLx7KYZ8UW8P+OUO6lW4UPDlwJWXt10C +4YQI5yuF4xSczePeuuWRP2SOnki4HUfBpBHu7o+X/KGwbgVT6yQF28vlj8cd +84eW/XwlxskUDDUdrZax9QeRljVZrhkUjO/Uunfqqx/knpD3TS2koJ9Ceq6S +ih88mTX+s9BKwX/dX13elfpA3muWj9M7ClocfOE1f90HEm7ptxS3UdDLW6xb ++7QPWG9Xv+zfRcGuFr3ePi8faK+WprV9oWCim6O7npAPjMX/OlQ8R8HtLNuJ +jJDdICnMGvOTNkA13qB77xne8GtUz7Fe1gDFxzrSA9S9oedpcZXMWgNsuVQ6 +LkD2hrywwuT36wyQrtl7XPGbF2h0XlRFTQO0jM7dOeLmBWY54T4yaIDTmc5D +6uAJIRp63e/8DXDdkZtiH1R2weEF6d9eewzw+l4J9m2uXRDTwC09udcAU1wv +eub27YQUt44dq0IN0J3Wp7Dyyk64k3D0o1mUAZo5Np++IbwTBnqedJWlGeCC +2b2KsRXu4HrWtvMiywALXNcXTfC5gYcbZWFdtQE2P4rR2Dm2HfzWyUmV1hrg +VFGD6/dX2yGsatK19akBLm82UQw7tx3OD6d/WPnaAGVM2qZlSduhhdHVcaSf +yIfDpK9W2xUYk37tO/ipeNTu8tiWI84gWWOVX7uaiiv29y6kezrD5KmNoWuF +qMizMujFtIUz5ChOrx4WpaLVkTM2/8Sd4Z9ztHmoLBXPxOzTdS13grqa9NIk +bSp+tyhhDC04gunpJ+fLXKj4Wru27H36NpB2zfOUdCP8qe8+gjHb4IdSgkak +O5V477/jbQrYBvm11s1MLyoqObRSSCbbgGu6ffnlHipGPeax/fDVARpdv4f0 +R1Px/q7hv7fMHcBCmbRFMJ+Kfwfmv89L2UP5xHNFvwIqBp42Pa0xuwWUWWHz +1YVUtO8uZ51p3QIrbN7c2FNERVlp1KxP3AINB5J+NJZTcd/twxar5+2AWTOX +FfWCijE6nL0cvbZAdXw38HWciu3Xn+j4t1hDoUwsizlFRXFFWQm/e9YgMayR +enGG8O/zeCzpjDXMHUk2MJ+n4gWyzmearTWUXofknGUqBqzLFzBv3Qza3x5o +uojS0NRf1LO/2wo2xJ052kCjoVXmq2s2gpZQa3yLx45Ow/WV4iMaUxbgsFCX +0WFCQ3s4foryzgKOhvy8P2pKQ5/mgzplFy2geZf3FyE7GsrbT5QGKVjAHiOq +zU5vGlaTLj/MNtkEd398kZlLpqGE7GX/qTQzYBb/vXMshYbB0mtZOofN4H2Q +FJU3jYYi5JL0jJ1m8LvfzkH6Ag3dXghuY20wA5s3rAS8TsPl+Xj++GemMFZ0 +diK1hIaVcXuc5zlNYaO/UZ1KNw3pVyY3TqgCnFOy/32yh4YalMEV80tMmOvz +MRjopWFXrRxZp4MJT9xTi3IGaXjTrk6elsAER4e+LKkJGuqYe02cGWJApHFi +KD+HIQ478tySLTaBZpF3ihMqhtjcykE/40sHzTfDu2w3GGK8bJSeG9IhI/V3 +1t2NhihI+6C1TY4Ou3iVhQK0DbFiketoY6cRTP2N+N1raIg3rq+nFdgbgeSo +bNtbW0MM3Slsp7XJEPyf7EkoP2iIvS5qJzS2UGFy/9gRi3BD5KQ0ysVqUOGo +XPC+DxGG2Gr/g7W0mgpnYg44LkYb4iURqvjxVwbwiB6hYJJkiA8P0B8k2hnA +38qTtY1XDHG0uZR00pUCGQ9z5t43ErzQ5d2ZrAeyXgqjvk2G2PLVR95qvx7c +Esr/NNdsiGGpZrk92/SAvf9Wg2SrIYbUSdKOyujBZ/X75927DHGjx87C4Ee6 +sOFOlcbAuCE+N5XqUPqiA3W57X4zEkYYwwwWVKzSgn47Ra8IkhE2pdNcr6Vo +Acev/Tv+SBthtfzlMRdPLTDbxmvPo2CEm9gnGk6s0IImTjqNvNEI/z2/2Vnt +pAmvfW7wmzKNkF/32FefJXXoVt5bfD7ACDnO7Tl8MVoN/rytvCMRZISM1gYF +Wxc1kD3GffPKPiPU+9MgStVWA4+Oa1kFoUZYmkR9cm9wA/QnvoljRxnho+XM +77xbN8DXEYpTf5oR2mx95uymvR7m7iwvaLOM8CXfs9sXxVVgxNUy93SVERra +OmDOvDJ0rTi7ebDGCD9aVe9u7VKGGm/py5fqjfDQxdPxBdeV4QTJgL700ghn +FYuF16kpg3Dy3piWHiP8O/P0O1qtA43ADg5/LjoOlJeEPc9RBHkJ2btPVtAx +sK/4W0CiIgg3+mwj8dJxctOb7RuDFWFWfjrv1Wo6Jr67FCFJV4TqD6vM9STo +6KzUxoztVIDNlpi4vJ6Ox9ddPHeApAC+KkX8V7bQ0evvuqiDvnIQ9dxzr6oD +HTVnn8v/o8jBeX/RV6WOdBy8N6P5ZqUc1N6KTH21nY6K/1nLMIpkQVx185ql +3XR8uPjagLkgA02qw+LeEXScqz85kXRVGjZuWKugeoOIP1Peql2UBNj8Pq40 +j46nvqzOMR+XAtc9SV+YBXTsrdO4Nf5cCk7emcjffpeOEX1+p8YipaBnQ63K +6TI6agn48p0dkoQ0tR3q4y/oWHRI7JraMwmY2XiBWjpNR0//dapV98Sg6zVa +iM3SsWDonOO3VDGoD5l0Cv9JR9nI9U3mB8QgrdT6IPU3HSv0dQojKGKwkc5x +v5rbGPXGtLe21ouCj/V+xUZJY6R8RzPJLyLQHmgl0G5ijKWHjd2uM4Whhv+n +tAEYozH1rOYjFWHIL8pXu2RqjFePRn0aERCG0KklSzdLY2Q/GOE5zloDgkfK +43u2Ev6za0o3zguBZZLiwpCPMSpTBTb7xgkCu+DPl5/JxtjD3fm67/kqoJqH +L9ikGOPEySA92euroOLLuEDuWWP8d5WzJyN8FZTK99JsMoj4NtJeaCqvgvvZ +9Wdzrhpj/YfkWyJJ/JCbmmhkVWyMGVFOY1ud+eB0+Jr07DZjXCn9kfM+aSXw +iSUXTnQY44McQYf8eR5IKuGoNesyxjv2E2Mv23kgYXJmZLzHGD0m5peK0nng ++J52E9MRYyyxeL+/XJAHDu26PPpt0Rj1xy/L5witAPdN69BY3gS5A3QXFfW4 +YKmdT6hRwQS/1Q8/9Rbjglz/yU8260yQdkUh9u0cJ4wkVR1x32CC8nvLSk3Z +nHDo5daHkXomOP3ZU83XlBPO2MfIsy1N8Fmr5qjfLg6oduv4SzlggvqClc2S +gUtMj2/VLbUHTZA8nd/URFlickTlZm8KN8HM9aTFF1xLTMur+yjOkSbY7Z8n +WHvjL/P9Z87gsJMmqL178Y3H5z/MMR+tTyVZJshlJGKgEPibKbP/VJVWvQmO +lrscSCxZYKYtBxikNJhg66d/P2gpC0yuDMuSr89M8HzQ+1ll/wXmWCXP3dyX +Jjjl93DtA/ICs5ojIVu0zQSdYwVk9ifOM90z447MD5tgx9oTH/wCfzKzayIN +nqxm4DPm1oOiTrNMAfsdJdJCDEx/3jMfpT/LjOs31DwizMDPoiau4uKzzD08 +i8o6EgxkPlmR3NXxg0nbGiGeL8/AolfOYjd2/mB+GDg0m6jLwDWr+tpHD8ww +JVYFl2zZziDeu+NZ5mFTzALzY1HTOxh49d2z/Wg0xdQ7lmZ+YRcDWdUqOfnL +k0z76UcdXbsZWBDneiTz7CQz6cPPX77BDDzR8mOtbPEEczE/1iwqnoG/f1iI +a3OOM7uNL7QVFjHQ/6TsFb3vo8w9hwuuWRczsNDn1M6i2lHmfHGF//gjBj54 +yZMQkTbKFFXqWtCtZOCub/kjnPqjTFs+OdnH9QxUUVJa3xv7lVnbXujX1sHA +hXCZL4YbRpg2QmzNiC4GWuusu3j53zCzy+rlPOkTA5dm5GM3dQwz56q/J3v2 +M1Bocpn7yMlhpmaezoNvYwx88V+/n+ngELO22zQidYKBj8XvuI7UDDFtxJ1A +e5qB3mLfH77LHGIGnDr8LvwnAyGgoC7Saog5V590RWqRgYyizSkGikPME7+z +fKt/MzAypmHU4M8gU5hyV8NjiYEUkUN+UR2DzJz91T+Xlwm9SoNTuB4NMv8H +1x7ERA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09608046329826965}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.09608046329826965}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl2k4lH8Xxy0JhexmbCGU7IwZhplzELIk2ZKyZE1JipSlUEiRIkWbkLQo +ZZ2xFFGS+mtBJCFbkjVCizz38+q+Pi/Ouc75nu3+KfoccPTn4uDgeMnJwfH/ +73zvy2fKKQVMq1ujgRKxDsz2HFKkadcJsFZw4K4x1wKUeOND6soA0hqOikPm +TIhwuNfJ3ZUPZ1u0Dxia24PIpFTGr85S8F94/r7BzBP6au0PzHU2gJ7Horqq +aQhYKo99nul8D9+iZ8zf0Y/Dr07axenOARjIYptdVkyDRvPbBe/yZyHgqObB +iZkckO2rGvHRWIL1eb/OSx0tBPFgr3u85twoezT/5O3G+5Cha1lj78KHFopT +smP+JaD9aYcVYw8f+s6kHbMNLYHXCfvb1KP58NDu65KFUSWwsivzO18eHx4O +ix+2PFcC0ccHZRrH+XBjYs0NKrsE/F7FxdAS+JGyRarvFV8pUP1rGAplq9DH ++LBxVUEptAm9eSnUtAqvxBpMGBeXQih7wGWpaxUK/S6LZrFK4d7qVSHd/1ah +6VKe8uWWUlhb6paTabManXgZXiunS4Fv+ec/voHV+Ehbyz7JqAw+ZuvUzwgL +4gbDKPbqF2Vwpa1oTYSKIKrH5e3weFsG7kLrvX4bCWJigqxZ4ccy6Dkp94/L +VxD1UgZ65cbLoD9klYl4hSBqeA1xFgiXw+imIRZ1hxC2PnFq53crh8XprIfR +eWtwsMFfS6O/HKrUxZaXK9ag6+toC5/RcogKSLNPaFmD5Owyz3PT5fD3U8JE +6uwaFOJOO9/KUQFxg2yJN0rCeC4hqqFfoQISWm859YcLo4pc4qKjVwWkFMS+ +4SKLoNLhsCa/jgqwoQSJSqwTQbvwsk3beyqA75mjy3pNEZQz15nEQcJ+UOWT +rakI9otZ1f2aroAYpdcjmUEi6CfKacYpUAkhuaR/qtUi+EosUy4QK2HbtRIN +252iGFC689/p/EoQ1rh6wMNfFM1vUzO971RCa01C6YEDosihlGOuVVwJNp+2 +G2aeFMU3/l6TxVWVYCb9z/xzkSiu+cYdavG2EijZNjsP/BXFWtNN5Bd/KkEq +c/D0hetiGLglpVPOjgUk9YqExUIxZC3Z3ktyYIF0Q1KsxyMxbBTma/zqzAL5 +abXD6xvF8CdTpTnDgwUqdqHeNaNi+E+0XjM1hAX6K5aog/riiBH+3QLnWEC5 +2qq7mSGOoee9N//OYAFVL1fjgaU4Fn7h4Om/xAK6t7nSkR3ieOrFWHBmDgtM +a08Lro4Vx4xzO1bnPWDB1nDJIb0WcdwefkrbpoUFDqtHe7PaxFH06OSX2v9Y +4Jhf9fFvjzhKny2bWv+OBa5vd71pmhJHUpqI4tdOFnho3Kx2l5DAP7UC8/zD +LNg3pJ1+wlsCr7Y7bRlYYkFwNGfq1yAJnFg+qvmJgw0hom1JdmESuHrqduRr +bjYcwogYySQJjHTucM/mZ0PktdrAe0US2O63zqdDnA2nnK2Z7+clcLvezZxh +NTZIl7dKc3FKYtB3g+NXNdhQLOa8oLtaEo0fzKZu1mbDh/eej9LXSuLuHCVI +prBBeVu40rbNkpjl/Eoth8kG9qNf/+IcJTE9fU2loCkb7IRjPz3aJYnq7oFx +4eZsCHtzOlP4oCS6nVDpXL+ZDQ1bbqx8e1kSR7ufPFPZxgbXB8qDyzclsfGX +Z+RWJzaMCdyr0y6WRPGHxjGhLmwQeV1+9FwDYS8idzh7Bxu8bVrG7L9Lohnp +0YG43WxYsvzZ+p+JFO7NCIssPcCG84VRRUuWUnj28Say40Ei3pUcyZrbpNAq +3Ub92yEivuerTM/6S+GIU/bDpcNsuGKuUGaXJoU74h4fq49mg9bNW+disqUw +yDFzVuYYES+XevD9fCm0i/GeCjnOhm9PDVQEWFKoHSp88k8cGwzRNutVnxTS +6rf5Pkxkw+sbb8P+fJPCHzrUbS+SiHiXXRzU56SwPnHu44dThP5PvPlT+Eg4 +tbapqec0ob/8yHC1KAn/iW3WaTtD6H9sX8OYLAlLTOPhaQqhv0lEtI0uCUOn +Vd0TzrJh77U/26OMSbhmo8q+HWlE/n/iKPcsSJi58p+G6jki35qUCX53ElpW +ZLQWnifqIy3SYuRHwvJXXOXu6UT+UZcKg0JImMpT6bIyg6iPUZ7XyxMkrHM7 +9nHTBTbY5ArN2aaSMJLRCq0EK/HGJLdeJKHEa4MYh0w2/Nr/TXbbDRIeUpRN +f0Xw23bXkrY7RDynxuPgIhvuGD+zcC0loUGohP19gmPzdbu7akgodITvj8gl +Qt9QAe7eVhJeXVD694Jgns7ILO8uIv8tjB2kLDb0ML6qD34h4f3DvDm7CS4v +cK73/07Cxze43twkOGV1g/PoHAlrRcsmewn2OaT9be8/ErLW5y6LZrOB/vHa +sQleMrpaOa9AgkVwlWioCBl7RnYt+xM8Wnik8Ic0Ga0TbWYTCK4THKYfViaj +851HA9cIvhTu+GZBk4yJH1XePiA45FOdbxSNjOo3zZ+wCLYw01z8i2Q8drbw +YTXBsnevpMbakPG8zGRhJcFza/gUuZzJuKu5trCI4FcRhysSPMjYxM0uuUxw +/ucBa95AMt7UTm6JIzhyk0Pv6VAyll7rmvUm2KHo8SGBKDLmndquQyd4g6g6 +77mTZBSQrDwhQPDy0eyrImfJGOZ0Z6KTyP9DH49O5iUygtZw2DWCiy3Dnknm +krEmXJXkTnDig363y3fJyPF+w2dhgneJ20/IlJFxuaXoeT2hv350TXxOLRmD +aw62BxG8amCDpGITYf8eBAQIHth86d7NN2TkE+k9cJuoZ9VDblD9SEbRTVJc +JgSflzzYdmeAjLQVVc9fEv2w51hvoPo4GW1KLjz+f79I2lad11kmY5uyuYsN +0U8TJaoqZXzSuBje9LuW6L9npMwqA1FpNK7r69vw/34cCRmgq0jjJeet4eNE +/76NV6ZY2Erj4xlJqXVEv98eTW9+4SyNqr7qq7yJeTi+dXmXjac0ZtwVcb6U +ygZNue7ErQcJ/rlucZKYpzPsc507sqTxVVN+uwMxf7vXLu3ryZXGxqKId27E +fBom7eXwuieNnWIcDHdifr86Waj5PZbGwRqXYOuTbNg09TsqZJDgs8nxH4n5 +j9ycufHpuDRqJ3mZlhH7oThPs1tsXhoLwyeak2LYQHL2Nqrik8F9r0boMlFs +GGc/X+DWksE5duffX+FsUBT1uu1Kk0HJxV67/DBi/+1bdL2LMnj1kVXMJmI/ +1cupV9o7yaCqokliBLHPLpw4H375qAyqaMlnpgexofmTmvJ4vAwmbTqnz7+H +DX8pjW3MFBls+nmxJSqADQFff+oNXSf8vb/13daXmAe7nTNajTKYoCboULiL +qKeEasgzQVmMUDvqzrRng9SBOjkpKVkMviL31dWO2A/Nbv8FKciiXZzl9SAb +NlRGpWis0ZfF5rovGccsCT37psd2uMlifUjfXy9i/+vdrQmcypfFnQ2LOSKa +bIg32bZb2lAOb/ZvXQMr2bDZM+cHzUwOUyuei+4l7pNQ3PeTLnZyuKlcoyyN +uF/XGhMLz3vLofu5jT3PfrOAbVP9feVpOcxz79s8PMmCabd1EbMf5dDRPdn3 +dwcLPA//PPM6Wh6HKBNlmTeIe55lJjuWKI9SzXMDf66yCL3PPeA9L49vl4IZ +HtksiPqr9tasQB6dX88kCaWz4OJJT4mq1/LY63RoXP0EC16nv7hxS24tDj2n +8br6Eve9+HL58bq1aHctYOaUIgs2dbYuTTavRZPyC+qn5Fhgz7HCyuv9WixP +8m+LJ7PA1zHkIwyvRW9b++ggERZYRivGxvEo4N+7j7O4OFkQunb+pqm6ArHf +8nd79VXCs8AbE40RCvjCzd++N7sSghdn4poFFfHuii1PXy1XAP1ggOSIqCLq +ZEjUuv0m/sfGuou4SYq4Wln42Je5Crj1qfEDU0kRu9pz/Ee+VUDvk4saFVRF +NFymezxpq4CtiUZdeV6K6GXDb1VUWAF6ovHa0SWKeG2/ONc16wr4pS7cq+mi +hPxZTgNTCeVgUnQ/99KldZheqq0qNlAKM6I23q4Nyli18udoqGkJDKV6ux7i +VUVjl2IZpYFisJ46Yj1MXY/Ndyep5+KLYNyXL6w8dgMOLX1bzJy9TbwXpLhO +Nahhnq6nVm9BAYj+p5r2aGojllqcPHD7eR7IJj90oFI1UNhp6Y7lp+uQrW4k +LBaoiaTg9bFHpC5Di7SpwWy6Fn6+2C1zZyYT6LIN57U/aONuvNv8gCcdhLjz +w3ef0ME2Ew8PmcYUWPmrzmkmQQfzOa6X/LmbAv8mP+vFn9JBSR7dtInzKTDV +TZ7JTdXBXkPfFzxeKfC2NH1//yUd7B5inOH9ewYyfOIDvIp0UPz7o2c2RmdA +ssHbzaNdBy31JNj59ckgH7/WZIeqLnZ3y/ynwJkExWF8Sp836CJbg1cpfTwR +mAEzvLvVdTGB99hj4a5E8LBtbNujo4u9XdP3GQ8T4ZpE4L6jdF0UE2l7uMUz +Ecj3iq9k2eviiULhLViXAOJtjF8dEbpo/TmFBakngV9lV6XjC120adoeoLAt +HvaSwabopS72V+cd2kr8E7QIKvVyvybsvZI3ndGNh9T5rzwVb3VRl5dPaZ1o +PAg1h7lIdetiVl+d4pe2OBDdlzL3aVwXNQQ8lU7viAPZkmo9f1E9jKrsln7a +fRy0GOSHRzz0sMP3s+DbfdFQti7oD5e3HpYcEzE6sTUaDFdVWaX56OFBte/3 +7PSjwazTrb8gUA/5NR+v3/gnClwPZou8P6iHMxsOj/GkRkHsLalwjSQ9rJhJ +fqJfGglvBSWNvhTrYYLyBzcu4aNwqFe00YZDH8/Fu3ei0GFobtr1+B6XPl6m ++zwT+xUO8g8LWat49JE1RK5YHAyHllj6/RZ+fdTbMhK2WBUOSoo+F23E9LHr +wv31rQHh8M63JNBGVR9PnhE/0twYBjrftgrY2OnjI13DlrtnDsHUbKqLdbY+ +Bv2QdS21DoWerjzX61f00a+Eu4nbKBRaHldun7mmj+y+D72+G0Kh4FT/jst5 ++lgU6ji4lTcU3GUont/u6aNaWr7p/ZQD8NzsU8Dpx/rIuUI7SSUlBK6mqx19 +OaCPuUEkCeEbwZAcwYyUG9bHX7/7eWjxwRCx0ynq4Fd9tK7U6DzqGwwOKsdi +yOP6qCkh8sZuQzCsrHobF/RTHx2shDgoZfvgYP+R0/x8FORSm+mb/G8vWGk3 +XbHWpODkli8/L0gGgdvKzc5vtSm4tLnzwsNfe2Dv55eC2/UoeHzyBmm0Zw+k +pfwX50ejoM5t86iHN/fAh6/tAbGmFLx7KYZ8UW8P+OUO6lW4UPDlwJWXt10C +4YQI5yuF4xSczePeuuWRP2SOnki4HUfBpBHu7o+X/KGwbgVT6yQF28vlj8cd +84eW/XwlxskUDDUdrZax9QeRljVZrhkUjO/Uunfqqx/knpD3TS2koJ9Ceq6S +ih88mTX+s9BKwX/dX13elfpA3muWj9M7ClocfOE1f90HEm7ptxS3UdDLW6xb ++7QPWG9Xv+zfRcGuFr3ePi8faK+WprV9oWCim6O7npAPjMX/OlQ8R8HtLNuJ +jJDdICnMGvOTNkA13qB77xne8GtUz7Fe1gDFxzrSA9S9oedpcZXMWgNsuVQ6 +LkD2hrywwuT36wyQrtl7XPGbF2h0XlRFTQO0jM7dOeLmBWY54T4yaIDTmc5D +6uAJIRp63e/8DXDdkZtiH1R2weEF6d9eewzw+l4J9m2uXRDTwC09udcAU1wv +eub27YQUt44dq0IN0J3Wp7Dyyk64k3D0o1mUAZo5Np++IbwTBnqedJWlGeCC +2b2KsRXu4HrWtvMiywALXNcXTfC5gYcbZWFdtQE2P4rR2Dm2HfzWyUmV1hrg +VFGD6/dX2yGsatK19akBLm82UQw7tx3OD6d/WPnaAGVM2qZlSduhhdHVcaSf +yIfDpK9W2xUYk37tO/ipeNTu8tiWI84gWWOVX7uaiiv29y6kezrD5KmNoWuF +qMizMujFtIUz5ChOrx4WpaLVkTM2/8Sd4Z9ztHmoLBXPxOzTdS13grqa9NIk +bSp+tyhhDC04gunpJ+fLXKj4Wru27H36NpB2zfOUdCP8qe8+gjHb4IdSgkak +O5V477/jbQrYBvm11s1MLyoqObRSSCbbgGu6ffnlHipGPeax/fDVARpdv4f0 +R1Px/q7hv7fMHcBCmbRFMJ+Kfwfmv89L2UP5xHNFvwIqBp42Pa0xuwWUWWHz +1YVUtO8uZ51p3QIrbN7c2FNERVlp1KxP3AINB5J+NJZTcd/twxar5+2AWTOX +FfWCijE6nL0cvbZAdXw38HWciu3Xn+j4t1hDoUwsizlFRXFFWQm/e9YgMayR +enGG8O/zeCzpjDXMHUk2MJ+n4gWyzmearTWUXofknGUqBqzLFzBv3Qza3x5o +uojS0NRf1LO/2wo2xJ052kCjoVXmq2s2gpZQa3yLx45Ow/WV4iMaUxbgsFCX +0WFCQ3s4foryzgKOhvy8P2pKQ5/mgzplFy2geZf3FyE7GsrbT5QGKVjAHiOq +zU5vGlaTLj/MNtkEd398kZlLpqGE7GX/qTQzYBb/vXMshYbB0mtZOofN4H2Q +FJU3jYYi5JL0jJ1m8LvfzkH6Ag3dXghuY20wA5s3rAS8TsPl+Xj++GemMFZ0 +diK1hIaVcXuc5zlNYaO/UZ1KNw3pVyY3TqgCnFOy/32yh4YalMEV80tMmOvz +MRjopWFXrRxZp4MJT9xTi3IGaXjTrk6elsAER4e+LKkJGuqYe02cGWJApHFi +KD+HIQ478tySLTaBZpF3ihMqhtjcykE/40sHzTfDu2w3GGK8bJSeG9IhI/V3 +1t2NhihI+6C1TY4Ou3iVhQK0DbFiketoY6cRTP2N+N1raIg3rq+nFdgbgeSo +bNtbW0MM3Slsp7XJEPyf7EkoP2iIvS5qJzS2UGFy/9gRi3BD5KQ0ysVqUOGo +XPC+DxGG2Gr/g7W0mgpnYg44LkYb4iURqvjxVwbwiB6hYJJkiA8P0B8k2hnA +38qTtY1XDHG0uZR00pUCGQ9z5t43ErzQ5d2ZrAeyXgqjvk2G2PLVR95qvx7c +Esr/NNdsiGGpZrk92/SAvf9Wg2SrIYbUSdKOyujBZ/X75927DHGjx87C4Ee6 +sOFOlcbAuCE+N5XqUPqiA3W57X4zEkYYwwwWVKzSgn47Ra8IkhE2pdNcr6Vo +Acev/Tv+SBthtfzlMRdPLTDbxmvPo2CEm9gnGk6s0IImTjqNvNEI/z2/2Vnt +pAmvfW7wmzKNkF/32FefJXXoVt5bfD7ACDnO7Tl8MVoN/rytvCMRZISM1gYF +Wxc1kD3GffPKPiPU+9MgStVWA4+Oa1kFoUZYmkR9cm9wA/QnvoljRxnho+XM +77xbN8DXEYpTf5oR2mx95uymvR7m7iwvaLOM8CXfs9sXxVVgxNUy93SVERra +OmDOvDJ0rTi7ebDGCD9aVe9u7VKGGm/py5fqjfDQxdPxBdeV4QTJgL700ghn +FYuF16kpg3Dy3piWHiP8O/P0O1qtA43ADg5/LjoOlJeEPc9RBHkJ2btPVtAx +sK/4W0CiIgg3+mwj8dJxctOb7RuDFWFWfjrv1Wo6Jr67FCFJV4TqD6vM9STo +6KzUxoztVIDNlpi4vJ6Ox9ddPHeApAC+KkX8V7bQ0evvuqiDvnIQ9dxzr6oD +HTVnn8v/o8jBeX/RV6WOdBy8N6P5ZqUc1N6KTH21nY6K/1nLMIpkQVx185ql +3XR8uPjagLkgA02qw+LeEXScqz85kXRVGjZuWKugeoOIP1Peql2UBNj8Pq40 +j46nvqzOMR+XAtc9SV+YBXTsrdO4Nf5cCk7emcjffpeOEX1+p8YipaBnQ63K +6TI6agn48p0dkoQ0tR3q4y/oWHRI7JraMwmY2XiBWjpNR0//dapV98Sg6zVa +iM3SsWDonOO3VDGoD5l0Cv9JR9nI9U3mB8QgrdT6IPU3HSv0dQojKGKwkc5x +v5rbGPXGtLe21ouCj/V+xUZJY6R8RzPJLyLQHmgl0G5ijKWHjd2uM4Whhv+n +tAEYozH1rOYjFWHIL8pXu2RqjFePRn0aERCG0KklSzdLY2Q/GOE5zloDgkfK +43u2Ev6za0o3zguBZZLiwpCPMSpTBTb7xgkCu+DPl5/JxtjD3fm67/kqoJqH +L9ikGOPEySA92euroOLLuEDuWWP8d5WzJyN8FZTK99JsMoj4NtJeaCqvgvvZ +9Wdzrhpj/YfkWyJJ/JCbmmhkVWyMGVFOY1ud+eB0+Jr07DZjXCn9kfM+aSXw +iSUXTnQY44McQYf8eR5IKuGoNesyxjv2E2Mv23kgYXJmZLzHGD0m5peK0nng ++J52E9MRYyyxeL+/XJAHDu26PPpt0Rj1xy/L5witAPdN69BY3gS5A3QXFfW4 +YKmdT6hRwQS/1Q8/9Rbjglz/yU8260yQdkUh9u0cJ4wkVR1x32CC8nvLSk3Z +nHDo5daHkXomOP3ZU83XlBPO2MfIsy1N8Fmr5qjfLg6oduv4SzlggvqClc2S +gUtMj2/VLbUHTZA8nd/URFlickTlZm8KN8HM9aTFF1xLTMur+yjOkSbY7Z8n +WHvjL/P9Z87gsJMmqL178Y3H5z/MMR+tTyVZJshlJGKgEPibKbP/VJVWvQmO +lrscSCxZYKYtBxikNJhg66d/P2gpC0yuDMuSr89M8HzQ+1ll/wXmWCXP3dyX +Jjjl93DtA/ICs5ojIVu0zQSdYwVk9ifOM90z447MD5tgx9oTH/wCfzKzayIN +nqxm4DPm1oOiTrNMAfsdJdJCDEx/3jMfpT/LjOs31DwizMDPoiau4uKzzD08 +i8o6EgxkPlmR3NXxg0nbGiGeL8/AolfOYjd2/mB+GDg0m6jLwDWr+tpHD8ww +JVYFl2zZziDeu+NZ5mFTzALzY1HTOxh49d2z/Wg0xdQ7lmZ+YRcDWdUqOfnL +k0z76UcdXbsZWBDneiTz7CQz6cPPX77BDDzR8mOtbPEEczE/1iwqnoG/f1iI +a3OOM7uNL7QVFjHQ/6TsFb3vo8w9hwuuWRczsNDn1M6i2lHmfHGF//gjBj54 +yZMQkTbKFFXqWtCtZOCub/kjnPqjTFs+OdnH9QxUUVJa3xv7lVnbXujX1sHA +hXCZL4YbRpg2QmzNiC4GWuusu3j53zCzy+rlPOkTA5dm5GM3dQwz56q/J3v2 +M1Bocpn7yMlhpmaezoNvYwx88V+/n+ngELO22zQidYKBj8XvuI7UDDFtxJ1A +e5qB3mLfH77LHGIGnDr8LvwnAyGgoC7Saog5V590RWqRgYyizSkGikPME7+z +fKt/MzAypmHU4M8gU5hyV8NjiYEUkUN+UR2DzJz91T+Xlwm9SoNTuB4NMv8H +1x7ERA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09608046329826965}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09608046329826965}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993852562350684*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"4d8c2e73-e873-4890-9245-0c3f305d4ed2"] +}, Open ]], Cell[CellGroupData[{ @@ -4909,7 +12547,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -4927,8 +12567,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4948,18 +12588,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"01995149-3665-fe4e-b326-b20429031afd"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"52cff8eb-0c77-c944-a54f-e282b00ce766"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1375787433553853`*^-113\\\", \ +RowBox[{\\\"143486179252605282342806\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"152\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 45, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99385256239246*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"a2da5a76-bcaa-4bb9-981c-38c67ed20ece"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.252300687890397`*^-115\\\", \ +RowBox[{\\\"723313829612383228290088\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"155\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 46, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852562402693*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"0f980fde-9f4d-4908-a27e-6c1675410933"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2905565515079383`*^-116\\\", \ +RowBox[{\\\"374965889271059465545581\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"159\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 47, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852562411233*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"86cd68f4-9eaa-48b4-97d8-3c7d1d833df2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 48, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99385256241971*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"c06cdf5c-d218-4e68-9125-030c80804bb6"], + +Cell[BoxData["8.261689453607353`"], "Output", + CellChangeTimes->{3.993852632006999*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"6abb0bd8-a4f6-4e26-a7f0-d0d3a11b7e93"] }, Open ]], Cell[CellGroupData[{ @@ -5026,27 +12723,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507468132763`*^9, - 3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\ -062a3c04ed96"], + CellChangeTimes->{{3.9918507468132763`*^9, 3.9918507511809216`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cb5a1193-7562-6446-a279-d9f6295d156e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.12612552597999`*^-211\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 49, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938526320450373`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"3658884f-a9d5-4f92-9f30-4d5b64f66e33"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566b0ad4-7f4e-b04f-8294-646ce1913fac"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8085503894797516`*^-216\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 50, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938526320512943`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"5b42bdae-e241-4ad0-aa5e-3707db3fe701"], -Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8296334133240623`*^-221\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 51, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852632059214*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"b59f5658-0c99-4bfc-8cba-dcb80480cb3d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 52, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852632065331*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"4e7e125b-3c31-441d-aa32-0bd8079604a8"], + +Cell[BoxData["0.01714257489273117`"], "Output", + CellChangeTimes->{3.99385263859062*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"88c9f3cb-29ad-4511-a721-810f50907164"] }, Open ]], Cell[CellGroupData[{ @@ -5067,8 +12809,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5113,27 +12854,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185075434021*^9, - 3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\ -3382e7679ba8"], + CellChangeTimes->{{3.99185075434021*^9, 3.9918507570104733`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4cd45900-7eb0-6b4b-830a-a339e8117392"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.12612552597999`*^-211\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 53, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852638633301*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"123f62fc-d2bc-4fda-856c-70009ac38f25"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8085503894797516`*^-216\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 54, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852638642582*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"ef6838f0-1bc4-4e7b-b32a-8728fe58222a"], -Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8296334133240623`*^-221\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 55, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938526386505947`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"4fe3021f-fd1e-413a-ac15-d27a2f308e5d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 56, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938526386582403`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"de4deb7a-6f74-4c4a-934c-85200df275c4"], + +Cell[BoxData["17.104042204467106`"], "Output", + CellChangeTimes->{3.9938526447011137`*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"cc34bc09-44ff-461a-82e0-229389267eb6"] }, Open ]], Cell[CellGroupData[{ @@ -5154,8 +12940,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5200,27 +12985,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507598219967`*^9, - 3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\ -2462b23d6249"], + CellChangeTimes->{{3.9918507598219967`*^9, 3.9918507622107697`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.12612552597999`*^-211\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 57, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938526447394667`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"cd1798b9-a0e1-4c5e-ac1f-dda90f170fc2"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"61220452-df6a-154e-8b5c-fecd0ab287a1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8085503894797516`*^-216\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 58, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852644748111*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"cd552bac-55c8-4915-81e9-f1a6cf1d6f07"], -Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8296334133240623`*^-221\\\", \ +RowBox[{\\\"365000401101666289871540\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"57\\\", \\\"\[RightSkeleton]\\\"}], \\\"4598144000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 59, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852644756666*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"927e9f03-7518-43e8-ba86-78edc3bdc4d7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 60, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938526447649593`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"3e87b60f-a99f-43cd-b607-eda5bc98ae7b"], + +Cell[BoxData["1.3986352651586886`"], "Output", + CellChangeTimes->{3.9938526486321287`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"9f92557a-8e01-4013-84fb-98aa41d7f9ef"] }, Open ]], Cell[CellGroupData[{ @@ -5229,19 +13059,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918507652122154`*^9, - 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ -168ec8f367e1"], + CellChangeTimes->{{3.9918507652122154`*^9, 3.9918507685850487`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +Cell[BoxData["0.003504890373454009`"], "Output", + CellChangeTimes->{3.9938526486601057`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"7d283087-c353-492f-abd2-afd174c9d707"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9}, - 3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\ -e661a25a7ba1"], + 3.9919245563167305`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ @@ -5262,10 +13096,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ir", "*", "Il"}], - RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ -c74d-891b-10a6d009e34b"], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[BoxData["16.416331305035982`"], "Output", + CellChangeTimes->{3.993852648674402*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"3907a1f2-3b6f-46c3-92b3-e202e7ff717f"] }, Open ]], Cell[CellGroupData[{ @@ -5273,10 +13111,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ -bb01-e9142212274d"], + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[BoxData["0.5428065934725972`"], "Output", + CellChangeTimes->{3.993852648684853*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"547bca4d-f35a-41a1-83c3-e3ac8f9c100b"] }, Open ]], Cell[CellGroupData[{ @@ -5284,10 +13126,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ -cb9a-bc4b-93f0-a7873f982a23"], + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[BoxData["8.910892873004137`"], "Output", + CellChangeTimes->{3.993852648693379*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"fe3123f2-117b-4aa0-a4bd-75578053a6cb"] }, Open ]], Cell[CellGroupData[{ @@ -5475,10 +13321,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ -b13c-0185de64c37f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[BoxData["0.012077193568643863`"], "Output", + CellChangeTimes->{3.9938526487050953`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"8bb374f2-301c-46d1-9331-984f89998b5e"] }, Open ]], Cell[CellGroupData[{ @@ -5490,18 +13340,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"731f0e35-\ -7798-8b45-a769-075ac4b3983f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], - -Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[BoxData["8.064211827990732`"], "Output", + CellChangeTimes->{3.993852648818223*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"309e3259-be3c-4532-80f8-98df3ae7a3dc"] }, Open ]], Cell[CellGroupData[{ @@ -5691,10 +13537,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ -9ccb-23aebae2e6d5"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[BoxData["0.10398514884414414`"], "Output", + CellChangeTimes->{3.993852648833671*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"628d29fd-aac7-41f5-87d7-d0fd47d25aee"] }, Open ]], Cell[CellGroupData[{ @@ -5706,18 +13556,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"e11d7eb8-\ -00a8-f540-98a0-89164ac4bae9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], - -Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[BoxData["2.748269269956925`"], "Output", + CellChangeTimes->{3.99385264893892*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"20e94de4-1965-462c-a320-30748b83164a"] }, Open ]], Cell[CellGroupData[{ @@ -5808,10 +13654,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ -1ee89e798d8f"], + ")"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[BoxData["0.08903677593802349`"], "Output", + CellChangeTimes->{3.993852648949876*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"8897288a-d277-430e-bd66-7b47799e99f9"] }, Open ]], Cell[CellGroupData[{ @@ -5899,10 +13749,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ -f30d036fcdd2"], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[BoxData["0.9109632240619764`"], "Output", + CellChangeTimes->{3.9938526489617643`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"5017912d-a823-4252-ace6-7d73785cf7ef"] }, Open ]], Cell[CellGroupData[{ @@ -6023,10 +13877,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ -7240-acd2-307af56b44db"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[BoxData["0.08110922846858569`"], "Output", + CellChangeTimes->{3.993852648974409*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"cccb2b7b-4b32-4588-b350-624ebc5c0f2e"] }, Open ]], Cell[CellGroupData[{ @@ -6041,30 +13899,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6088,27 +13949,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\ -af0307420662"], + CellChangeTimes->{3.9918507910247746`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b82c1933-5313-1d4c-a858-68be8f118333"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7756390465049095`*^-214\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 61, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852648991829*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"a9793396-58ff-436e-87f8-73da480e2e63"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.046157951452463`*^-220\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 62, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852649000828*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"603e43a8-51ed-4b4e-9143-5f67c885e5b7"], -Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.64604832874983`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 137, 63, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852649009467*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"ac8f77db-b010-4390-815e-ce13b3d771a9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 64, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852649017013*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"05bfc177-e09b-4be7-bf40-31a6aeb809de"], + +Cell[BoxData["8.064211827990736`"], "Output", + CellChangeTimes->{3.993852652472104*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"d67a8576-587d-4835-8562-7853b026f2d4"] }, Open ]], Cell[CellGroupData[{ @@ -6123,30 +14030,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6170,27 +14080,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\ -34313c6ec04d"], + CellChangeTimes->{3.9918507936164455`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7756390465049095`*^-214\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 65, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938526525103617`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"60735fb9-d6f3-4be5-9eda-f9872f864138"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56712e4d-1aa7-524a-8254-bcfd8978eea0"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.046157951452463`*^-220\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 66, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852652517373*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"3d55b5f7-f878-45d4-a004-3cae7ad22664"], -Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.64604832874983`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 138, 67, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852652523337*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"d08e549b-b256-4615-8824-3eab25c78173"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 68, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938526525299664`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"67840d33-c4ed-4141-b2e0-40cb5f017e2a"], + +Cell[BoxData["2.748269269956925`"], "Output", + CellChangeTimes->{3.993852655852043*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"fc518199-cc21-4ece-84c9-62f636ad4952"] }, Open ]], Cell[CellGroupData[{ @@ -6248,489 +14204,392 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\ -ad38cf07d634"], + CellChangeTimes->{3.9918507961174965`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9c6ce535-b42f-3c43-a89e-eda48c04121e"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC -MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 -5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX -nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v -yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi -sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG -tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W -tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw -WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq -Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz -IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A -nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc -Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td -rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 -63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp -CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el -jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD -f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA -eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb -uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa -UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au -6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 -BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ -5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX -XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 -jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO -JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme -IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG -gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ -9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ -ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL -bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD -pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN -ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 -ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j -6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE -iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k -d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz -+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ -6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C -2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K -wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 -xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 -9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 -OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm -yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj -GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz -mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W -ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 -pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu -KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH -65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD -bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ -LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW -2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx -bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU -E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 -7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 -5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 -brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT -OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o -Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL -hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl -D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm -v/odiPr3KLwBMhrzH2bRmaY=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-14.8518, 0.65382, 0.693802, \ -0.00448812}},ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\ -8b4ad9ffca61"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV03k4VdsbB3CEZMo8ZEgOChkyRcl6ZYpQqWSOY59tuGYSmZI0Z0rhJiop +ZMjUgEpSP8mNREnmORzOkUg312+dP/azn8+z9vqud6137S3UYAcaBxsbGx0/ +rHfoB82tTzo+mKxVXA/5Ik1HJnP39KnmpUjc4elZlofyDTKVzBvQyR75Vywf +JP7h5td9gzaavlPuwa6MSnjNZd6GXC48qWL54lupxoSSjyiq+LvPV+xnHaF5 +f3S6kUnecYte7One1tjo+h406iG9/xv2pnGK65JZH4oekYjuw94/H2sU3jaI +QuWd2vuxX/yZ5osqGUa86/vtBrE/J0rGPA4aRTyphYtD2HPc5tOLOuOo6UHl +6xFs7ishzrrLE8jClL1+DFte+FZLaP0U4rfJ7J3AtpdZuj9nNov2uJ/NmMEm +bytKaPDMoeY9w2pz2AnKB5L/aptHlF2JMwzsHsmuHRElTHSacml8CZtw8fe7 +dmUBXf22IP8bm5HLdqcq6Ae6aZF3ehWbR1FDiKnzEz183NDAuYmOMonXVkLi +SygzTiuLB1vhgXOC1vISCogcy+HHNtx+bi6w/hcKDhKTEsf2NRhsmzb7g1b2 +XFjeir0YdYKTV2UVSRA8YhrYp+v5jFV5/kNbo9856WBng+FDn7Y19LVawHUP +NlHYYh5Wwg5av7P3HsUueXttKFGGA/S0ZO64YjMmPWLTr3CA4JO+rVTsWLWf +1Y+C1oH8Z9nyYFa9FVso8zpccKbo0q0r2L0dsy/+K+CCX51sJpms+heeuAiK +c0OxSw13Lnapnn2GxjI3CAZ2CpViNz87xR5QzwNFdSPrP2D/fP1pcMqMH1SO +CCVKy9CRiC2/UMwLfnCnBiUqYWt3mYOAkQDcbheu1ML2H6u9vUNTEEZ+qORZ +YodwtGnv4ReCRrW4ikjsccVyZvKSMIyAX/kg9iLZuqFdVwRaAkbu0rE5Hk5s +kQoVAduW7Lf/YivobnYomRGB2y/qbkrJ0pGLWVrVhyFR8BJ6HXsEu907LFzy +vTika7lId2MPPEi57MkjAcNc7uwT2LMzJQXFFhLwnZ4htYzNGzH6aXejBPze +er1LWo6OzM8e0fOslYQZ68EzXth19wx+FuVLQ6/U2JMV7HvjvyN3RcjB4Hup +eLvNdLTv6PmB8DI5SC5veEvFnm0WtSybkIOknBDDKGy9e9vFFZzlISqaK6sA +u5nqUc1lshle3fkH/mAvzA+dnEpSgNRGJctaBToSDTSvqbZThLnvG0QsFelo +4h6v70F/RWj0lYzxxH7a1yFDP6cIX+5IC8Rgu9m6J6k0KgLzxK+Hj7DvqUc6 +5OhQYKmWs1uOgteffsCIl1QCCeOYT2vYR3z4NGyGlaHPq+LUiDIdocijOsdW +lcHnxiMvdhU6UkvO30lIq4DCvvlgBWy2At298YdU4FyvAsdx7LIB12NVr1TA +NdRgtR+b27E0cdPdrVCQpmc3uhXXZ273eZqqCrAlzpZPjY4KDmd9W45XhaZi +Nmkt7BTq8BDnTVW4+jaX/zA2cfrEjPwnVfjeJO13E1u44RbbYTM1CLuzbllD +Hd8f3Tm1eoo6XDeMprlspyMZxdSEy2PbITWzJqlDk44aLi2qrnBoQBVla+Ef +bLcfzl3kFg0weuC7uE2LjvKalVT3emhA2f5DsmewFX3qOn990QCx/uR0A228 +39JxZfK9JsQ59m0s2kFHcjLypIKzNpR/+GpfpkdH2wsj+P9FOhD7TyIBu+mI +SiT91LDXgWPBu/QisLMpGQOebjpQ9ZFUL8Jed7fi0dsoHZh1EU0TMsb/W970 +kYxKHah/eU5nFPtituctVYoubBhU7001wf29bKvpxK0Hwk4t97n30tGdMKWD +tW36UP1Y9LWfNR11RKKdZwuNYFzRvy3RlY62eHTbuwfsgTLnj0LsIXREW3tc +LhcNQHbvO3Y2mY4kZ56ul6TuhTPtRsq0fDqK0DXuy1AzB7cza2Mjz3D99D8t +otMW8CrRWOd3N+7n3vD1+e1WoJUSLdq4hO/Pov+r0kxrSH2J3EnJOfTLVOqf +5oT9EJhs0Mg0nkP9bOuYw152QHxu3T7gPYeCZIPTEikHoBbWUyYvzqFyv5bG +68kHwcJZ1nWmZg6d+iG9rO53CG5qF0rnDMyhnzaWjv877gARyj0PLATmkZFr +uun4ocOwU9dCKNJ4HnVK3/Jv1j0CIVMbha74zaNN95MairYdhZGV8lbfm/Po +6ZCarb2AIxhx7nxa2zqP5LsYPpF0R4g7z78nd2Ue6V5PLy0YOgaQF6UcKsFA +tzh/aGa8doLKv4uPRWgy0GNTrd7kZ87AOfbySeQ+BsreeUn4T4kLJE0+LOz3 +YqD2b4XndK+4gkZEXsHRaAaqtctVCjntBmI3tlkGZDAQM/AwWxDhDqZZkWlE +MQP9tFT1nTPzgG0j7vXUlwxURP/6K9zgODQmv5e98pmBnO4Uervze8IJdQYP +McNA1VX7j6877wnuERY8POxMZCTTuXJxxRMYgRQFYzEmogz59H708wIvqUku +bhUmGuP760DuqBfcqVnwEjBkoo4Ue2+ro1Q4/bm3KduKiTKj8vlOdFDBsNvR +dsGRiRperK14W3uDkWnZBT+CiTa6wXndOm+YofvGnwxmIgWx/7XLNngDdZiT +cg9bu81OivuFNzgeEnvYge1g7Frc88obJl1iaKohOF828n3cO2+4lTt95iv2 +pv6HG1t6vGF1u6ubXhgTKXlIZrstewP9SKJ/VwTej+dcUbIeAS1O/FzPo5no +fg4j3N6AgN7Uke+D2GKfFkwkDQnYMjtdw3GKieYslruKdhOQmpi8aoV9T52N +vW0vAfJ/X3L6iC24LOwscogA4crNuoMx+Dyu6m/IDyQgiWpBm4xjokP/29nl +E0zAyqNw3vXxTPSCbVe+digB176FX1fBzgk30W+KwPlHBtxo2PbOVl7jMQS8 +MOWvHMZ+puT8TP0Szl9xDOhOYKKU+li/p/cJmByKkilOZKJAnSyjqCICQq+J +TzZj2xZXbjAsIeC8t37OEDZv1kTxkzICfpcuPpI8w0TJYQenH9cQwH5Ns/ws +dqyq0l+1TQTuR2y/cxIT+We9D6gaIED1luMa4ywTWQtOGIcNEVBj1X5jQzIT +bUtmE9AZISDzZaKYIvZEmH5Z5TgBDacvNzlge9nn0x/NEvD1/tJUFbYTV3hQ +xW8Cup8fdQ86x0RW4ZtCSiVokP5ntfvjeSZqyj9nkyFFg2enB9emsI3bFpSi +NtFAdJs8H9sF3H/l91/N5Gnw+ljxGw1s6S8xZt+UafBHo7b1PPbMrn4JXn0a +yGbmihhcZKJUjtvPfQ7ToFpf/lLMJbx/Lf5su6M04Nxt+i0F+6xrVJjuMWzZ +GIG72FE1B7euudDgnxh18RZsL5I9/QaVBu4VVpUil5lIt5VKvAmlQaRJ46a7 +2F/SlfkoaTRoNJotLL7CROVIwHcqnQZdJ5YEn2KfpS82l12jQV/kmNtbbB3r +5njDLBq8vUk+GMFOYfNesMujwck3g0vSV5nIMvj216hSGuyAtPgkbDm5CwYm +5TTQrwT9NOzF1uBr6x7RIN7hVUcu9l0VZJdSTQOvG5qPa7FX+/sbC+posKkx +Z9cEdo2tTNGHFhrQU15u25vCRJd/c3BltuL5VvPqdtjUomkv5zYa8G0cEHXC +FuKskxlrp8HXnsX0QOyAeqfUlc80sDKdtczCpqjdiFQax+u17bg2jv37S9yn +7xM0+KY2PDyH3ZFM066YooERHcR/YccP600bzdLAxFpQjTeViXqzP7kf+EGD +7X+/49PAzlgvbHGKnYTJm2IVgdgNC/2uEetI+CQ6ui0Se7K/JCyIi4TdnTmn +47GNa8xvUzeQwO3Z8C4Fe8Iz6l8bYRKuWzQ0lWEL2VqIWIiSkOVWrV6LvXun +iCoSJ2FnzuWwBuw0gVJHXWkS5Iz7clpZ43WDlTJbSBgXmLIfxyYLS1vEKSQc +kO28P8P6Pi16cKMyCTtUsvqYrPVIUQFOVRJueFYMr7LGRa18Z7VJ6KnlchBL +Y6K6/0QTJnRIGGityZbGHv8+dH1IjwSTIqPn8ti7Gk+97jIkYfivpvxt2GMB +5fLPgQT2F42tu7AFnWL0n+wlQequIBvCNjLbZ1tpTkK1iKaoGXaK9Eh04T4S +RN8MdtpgP+WsSMu3IcFaJTTBHnt0PuZBji0J0w6dGxywDd+Kd189SML3kxxP +nbCplSMz5x1IKC3v+OaKfTW3guPMERKKNQL7PbBHwqy1I51IKH+48RSBLeAh +YRXiQoIwj7i4DyvPetTd340E0mfyqh9r/ua4yx6eJOiKLUgFserhtbnrRCWB +bUBVPYSV91PimQNBgneBhkwYK294tN2WxP3cvjoVzsprezRh6UuCsXl25glW +fU/iVsGfhNW6/+ROsvLv2ojtDiBh0Vs7OYqVf1VSXT+IhHAJjdZoVn7UmKlW +CAlVZYuzp7D5iUon1TASmnnO02Owdx6ID6ZEkJDHO/Y+lpW/a/85uUi8n7/5 +LsRhX1GWuiUZRULHndUt8diPhcarhU+RECxUl8Py8L+VrXyxJLj2wDzL/JPx +w1zx+Dzn0xUTsA069/9aSyDB5lCZLsv/B8lNAXk= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03k4VdsbB3CEZMo8ZEgOChkyRcl6ZYpQqWSOY59tuGYSmZI0Z0rhJiop +ZMjUgEpSP8mNREnmORzOkUg312+dP/azn8+z9vqud6137S3UYAcaBxsbGx0/ +rHfoB82tTzo+mKxVXA/5Ik1HJnP39KnmpUjc4elZlofyDTKVzBvQyR75Vywf +JP7h5td9gzaavlPuwa6MSnjNZd6GXC48qWL54lupxoSSjyiq+LvPV+xnHaF5 +f3S6kUnecYte7One1tjo+h406iG9/xv2pnGK65JZH4oekYjuw94/H2sU3jaI +QuWd2vuxX/yZ5osqGUa86/vtBrE/J0rGPA4aRTyphYtD2HPc5tOLOuOo6UHl +6xFs7ishzrrLE8jClL1+DFte+FZLaP0U4rfJ7J3AtpdZuj9nNov2uJ/NmMEm +bytKaPDMoeY9w2pz2AnKB5L/aptHlF2JMwzsHsmuHRElTHSacml8CZtw8fe7 +dmUBXf22IP8bm5HLdqcq6Ae6aZF3ehWbR1FDiKnzEz183NDAuYmOMonXVkLi +SygzTiuLB1vhgXOC1vISCogcy+HHNtx+bi6w/hcKDhKTEsf2NRhsmzb7g1b2 +XFjeir0YdYKTV2UVSRA8YhrYp+v5jFV5/kNbo9856WBng+FDn7Y19LVawHUP +NlHYYh5Wwg5av7P3HsUueXttKFGGA/S0ZO64YjMmPWLTr3CA4JO+rVTsWLWf +1Y+C1oH8Z9nyYFa9FVso8zpccKbo0q0r2L0dsy/+K+CCX51sJpms+heeuAiK +c0OxSw13Lnapnn2GxjI3CAZ2CpViNz87xR5QzwNFdSPrP2D/fP1pcMqMH1SO +CCVKy9CRiC2/UMwLfnCnBiUqYWt3mYOAkQDcbheu1ML2H6u9vUNTEEZ+qORZ +YodwtGnv4ReCRrW4ikjsccVyZvKSMIyAX/kg9iLZuqFdVwRaAkbu0rE5Hk5s +kQoVAduW7Lf/YivobnYomRGB2y/qbkrJ0pGLWVrVhyFR8BJ6HXsEu907LFzy +vTika7lId2MPPEi57MkjAcNc7uwT2LMzJQXFFhLwnZ4htYzNGzH6aXejBPze +er1LWo6OzM8e0fOslYQZ68EzXth19wx+FuVLQ6/U2JMV7HvjvyN3RcjB4Hup +eLvNdLTv6PmB8DI5SC5veEvFnm0WtSybkIOknBDDKGy9e9vFFZzlISqaK6sA +u5nqUc1lshle3fkH/mAvzA+dnEpSgNRGJctaBToSDTSvqbZThLnvG0QsFelo +4h6v70F/RWj0lYzxxH7a1yFDP6cIX+5IC8Rgu9m6J6k0KgLzxK+Hj7DvqUc6 +5OhQYKmWs1uOgteffsCIl1QCCeOYT2vYR3z4NGyGlaHPq+LUiDIdocijOsdW +lcHnxiMvdhU6UkvO30lIq4DCvvlgBWy2At298YdU4FyvAsdx7LIB12NVr1TA +NdRgtR+b27E0cdPdrVCQpmc3uhXXZ273eZqqCrAlzpZPjY4KDmd9W45XhaZi +Nmkt7BTq8BDnTVW4+jaX/zA2cfrEjPwnVfjeJO13E1u44RbbYTM1CLuzbllD +Hd8f3Tm1eoo6XDeMprlspyMZxdSEy2PbITWzJqlDk44aLi2qrnBoQBVla+Ef +bLcfzl3kFg0weuC7uE2LjvKalVT3emhA2f5DsmewFX3qOn990QCx/uR0A228 +39JxZfK9JsQ59m0s2kFHcjLypIKzNpR/+GpfpkdH2wsj+P9FOhD7TyIBu+mI +SiT91LDXgWPBu/QisLMpGQOebjpQ9ZFUL8Jed7fi0dsoHZh1EU0TMsb/W970 +kYxKHah/eU5nFPtituctVYoubBhU7001wf29bKvpxK0Hwk4t97n30tGdMKWD +tW36UP1Y9LWfNR11RKKdZwuNYFzRvy3RlY62eHTbuwfsgTLnj0LsIXREW3tc +LhcNQHbvO3Y2mY4kZ56ul6TuhTPtRsq0fDqK0DXuy1AzB7cza2Mjz3D99D8t +otMW8CrRWOd3N+7n3vD1+e1WoJUSLdq4hO/Pov+r0kxrSH2J3EnJOfTLVOqf +5oT9EJhs0Mg0nkP9bOuYw152QHxu3T7gPYeCZIPTEikHoBbWUyYvzqFyv5bG +68kHwcJZ1nWmZg6d+iG9rO53CG5qF0rnDMyhnzaWjv877gARyj0PLATmkZFr +uun4ocOwU9dCKNJ4HnVK3/Jv1j0CIVMbha74zaNN95MairYdhZGV8lbfm/Po +6ZCarb2AIxhx7nxa2zqP5LsYPpF0R4g7z78nd2Ue6V5PLy0YOgaQF6UcKsFA +tzh/aGa8doLKv4uPRWgy0GNTrd7kZ87AOfbySeQ+BsreeUn4T4kLJE0+LOz3 +YqD2b4XndK+4gkZEXsHRaAaqtctVCjntBmI3tlkGZDAQM/AwWxDhDqZZkWlE +MQP9tFT1nTPzgG0j7vXUlwxURP/6K9zgODQmv5e98pmBnO4Uervze8IJdQYP +McNA1VX7j6877wnuERY8POxMZCTTuXJxxRMYgRQFYzEmogz59H708wIvqUku +bhUmGuP760DuqBfcqVnwEjBkoo4Ue2+ro1Q4/bm3KduKiTKj8vlOdFDBsNvR +dsGRiRperK14W3uDkWnZBT+CiTa6wXndOm+YofvGnwxmIgWx/7XLNngDdZiT +cg9bu81OivuFNzgeEnvYge1g7Frc88obJl1iaKohOF828n3cO2+4lTt95iv2 +pv6HG1t6vGF1u6ubXhgTKXlIZrstewP9SKJ/VwTej+dcUbIeAS1O/FzPo5no +fg4j3N6AgN7Uke+D2GKfFkwkDQnYMjtdw3GKieYslruKdhOQmpi8aoV9T52N +vW0vAfJ/X3L6iC24LOwscogA4crNuoMx+Dyu6m/IDyQgiWpBm4xjokP/29nl +E0zAyqNw3vXxTPSCbVe+digB176FX1fBzgk30W+KwPlHBtxo2PbOVl7jMQS8 +MOWvHMZ+puT8TP0Szl9xDOhOYKKU+li/p/cJmByKkilOZKJAnSyjqCICQq+J +TzZj2xZXbjAsIeC8t37OEDZv1kTxkzICfpcuPpI8w0TJYQenH9cQwH5Ns/ws +dqyq0l+1TQTuR2y/cxIT+We9D6gaIED1luMa4ywTWQtOGIcNEVBj1X5jQzIT +bUtmE9AZISDzZaKYIvZEmH5Z5TgBDacvNzlge9nn0x/NEvD1/tJUFbYTV3hQ +xW8Cup8fdQ86x0RW4ZtCSiVokP5ntfvjeSZqyj9nkyFFg2enB9emsI3bFpSi +NtFAdJs8H9sF3H/l91/N5Gnw+ljxGw1s6S8xZt+UafBHo7b1PPbMrn4JXn0a +yGbmihhcZKJUjtvPfQ7ToFpf/lLMJbx/Lf5su6M04Nxt+i0F+6xrVJjuMWzZ +GIG72FE1B7euudDgnxh18RZsL5I9/QaVBu4VVpUil5lIt5VKvAmlQaRJ46a7 +2F/SlfkoaTRoNJotLL7CROVIwHcqnQZdJ5YEn2KfpS82l12jQV/kmNtbbB3r +5njDLBq8vUk+GMFOYfNesMujwck3g0vSV5nIMvj216hSGuyAtPgkbDm5CwYm +5TTQrwT9NOzF1uBr6x7RIN7hVUcu9l0VZJdSTQOvG5qPa7FX+/sbC+posKkx +Z9cEdo2tTNGHFhrQU15u25vCRJd/c3BltuL5VvPqdtjUomkv5zYa8G0cEHXC +FuKskxlrp8HXnsX0QOyAeqfUlc80sDKdtczCpqjdiFQax+u17bg2jv37S9yn +7xM0+KY2PDyH3ZFM066YooERHcR/YccP600bzdLAxFpQjTeViXqzP7kf+EGD +7X+/49PAzlgvbHGKnYTJm2IVgdgNC/2uEetI+CQ6ui0Se7K/JCyIi4TdnTmn +47GNa8xvUzeQwO3Z8C4Fe8Iz6l8bYRKuWzQ0lWEL2VqIWIiSkOVWrV6LvXun +iCoSJ2FnzuWwBuw0gVJHXWkS5Iz7clpZ43WDlTJbSBgXmLIfxyYLS1vEKSQc +kO28P8P6Pi16cKMyCTtUsvqYrPVIUQFOVRJueFYMr7LGRa18Z7VJ6KnlchBL +Y6K6/0QTJnRIGGityZbGHv8+dH1IjwSTIqPn8ti7Gk+97jIkYfivpvxt2GMB +5fLPgQT2F42tu7AFnWL0n+wlQequIBvCNjLbZ1tpTkK1iKaoGXaK9Eh04T4S +RN8MdtpgP+WsSMu3IcFaJTTBHnt0PuZBji0J0w6dGxywDd+Kd189SML3kxxP +nbCplSMz5x1IKC3v+OaKfTW3guPMERKKNQL7PbBHwqy1I51IKH+48RSBLeAh +YRXiQoIwj7i4DyvPetTd340E0mfyqh9r/ua4yx6eJOiKLUgFserhtbnrRCWB +bUBVPYSV91PimQNBgneBhkwYK294tN2WxP3cvjoVzsprezRh6UuCsXl25glW +fU/iVsGfhNW6/+ROsvLv2ojtDiBh0Vs7OYqVf1VSXT+IhHAJjdZoVn7UmKlW +CAlVZYuzp7D5iUon1TASmnnO02Owdx6ID6ZEkJDHO/Y+lpW/a/85uUi8n7/5 +LsRhX1GWuiUZRULHndUt8diPhcarhU+RECxUl8Py8L+VrXyxJLj2wDzL/JPx +w1zx+Dzn0xUTsA069/9aSyDB5lCZLsv/B8lNAXk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9094044875068902, 1.097777559150091}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9094044875068922}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.9094044875068902, 1.097777559150091}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9094044875068922}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03k4VdsbB3CEZMo8ZEgOChkyRcl6ZYpQqWSOY59tuGYSmZI0Z0rhJiop +ZMjUgEpSP8mNREnmORzOkUg312+dP/azn8+z9vqud6137S3UYAcaBxsbGx0/ +rHfoB82tTzo+mKxVXA/5Ik1HJnP39KnmpUjc4elZlofyDTKVzBvQyR75Vywf +JP7h5td9gzaavlPuwa6MSnjNZd6GXC48qWL54lupxoSSjyiq+LvPV+xnHaF5 +f3S6kUnecYte7One1tjo+h406iG9/xv2pnGK65JZH4oekYjuw94/H2sU3jaI +QuWd2vuxX/yZ5osqGUa86/vtBrE/J0rGPA4aRTyphYtD2HPc5tOLOuOo6UHl +6xFs7ishzrrLE8jClL1+DFte+FZLaP0U4rfJ7J3AtpdZuj9nNov2uJ/NmMEm +bytKaPDMoeY9w2pz2AnKB5L/aptHlF2JMwzsHsmuHRElTHSacml8CZtw8fe7 +dmUBXf22IP8bm5HLdqcq6Ae6aZF3ehWbR1FDiKnzEz183NDAuYmOMonXVkLi +SygzTiuLB1vhgXOC1vISCogcy+HHNtx+bi6w/hcKDhKTEsf2NRhsmzb7g1b2 +XFjeir0YdYKTV2UVSRA8YhrYp+v5jFV5/kNbo9856WBng+FDn7Y19LVawHUP +NlHYYh5Wwg5av7P3HsUueXttKFGGA/S0ZO64YjMmPWLTr3CA4JO+rVTsWLWf +1Y+C1oH8Z9nyYFa9FVso8zpccKbo0q0r2L0dsy/+K+CCX51sJpms+heeuAiK +c0OxSw13Lnapnn2GxjI3CAZ2CpViNz87xR5QzwNFdSPrP2D/fP1pcMqMH1SO +CCVKy9CRiC2/UMwLfnCnBiUqYWt3mYOAkQDcbheu1ML2H6u9vUNTEEZ+qORZ +YodwtGnv4ReCRrW4ikjsccVyZvKSMIyAX/kg9iLZuqFdVwRaAkbu0rE5Hk5s +kQoVAduW7Lf/YivobnYomRGB2y/qbkrJ0pGLWVrVhyFR8BJ6HXsEu907LFzy +vTika7lId2MPPEi57MkjAcNc7uwT2LMzJQXFFhLwnZ4htYzNGzH6aXejBPze +er1LWo6OzM8e0fOslYQZ68EzXth19wx+FuVLQ6/U2JMV7HvjvyN3RcjB4Hup +eLvNdLTv6PmB8DI5SC5veEvFnm0WtSybkIOknBDDKGy9e9vFFZzlISqaK6sA +u5nqUc1lshle3fkH/mAvzA+dnEpSgNRGJctaBToSDTSvqbZThLnvG0QsFelo +4h6v70F/RWj0lYzxxH7a1yFDP6cIX+5IC8Rgu9m6J6k0KgLzxK+Hj7DvqUc6 +5OhQYKmWs1uOgteffsCIl1QCCeOYT2vYR3z4NGyGlaHPq+LUiDIdocijOsdW +lcHnxiMvdhU6UkvO30lIq4DCvvlgBWy2At298YdU4FyvAsdx7LIB12NVr1TA +NdRgtR+b27E0cdPdrVCQpmc3uhXXZ273eZqqCrAlzpZPjY4KDmd9W45XhaZi +Nmkt7BTq8BDnTVW4+jaX/zA2cfrEjPwnVfjeJO13E1u44RbbYTM1CLuzbllD +Hd8f3Tm1eoo6XDeMprlspyMZxdSEy2PbITWzJqlDk44aLi2qrnBoQBVla+Ef +bLcfzl3kFg0weuC7uE2LjvKalVT3emhA2f5DsmewFX3qOn990QCx/uR0A228 +39JxZfK9JsQ59m0s2kFHcjLypIKzNpR/+GpfpkdH2wsj+P9FOhD7TyIBu+mI +SiT91LDXgWPBu/QisLMpGQOebjpQ9ZFUL8Jed7fi0dsoHZh1EU0TMsb/W970 +kYxKHah/eU5nFPtituctVYoubBhU7001wf29bKvpxK0Hwk4t97n30tGdMKWD +tW36UP1Y9LWfNR11RKKdZwuNYFzRvy3RlY62eHTbuwfsgTLnj0LsIXREW3tc +LhcNQHbvO3Y2mY4kZ56ul6TuhTPtRsq0fDqK0DXuy1AzB7cza2Mjz3D99D8t +otMW8CrRWOd3N+7n3vD1+e1WoJUSLdq4hO/Pov+r0kxrSH2J3EnJOfTLVOqf +5oT9EJhs0Mg0nkP9bOuYw152QHxu3T7gPYeCZIPTEikHoBbWUyYvzqFyv5bG +68kHwcJZ1nWmZg6d+iG9rO53CG5qF0rnDMyhnzaWjv877gARyj0PLATmkZFr +uun4ocOwU9dCKNJ4HnVK3/Jv1j0CIVMbha74zaNN95MairYdhZGV8lbfm/Po +6ZCarb2AIxhx7nxa2zqP5LsYPpF0R4g7z78nd2Ue6V5PLy0YOgaQF6UcKsFA +tzh/aGa8doLKv4uPRWgy0GNTrd7kZ87AOfbySeQ+BsreeUn4T4kLJE0+LOz3 +YqD2b4XndK+4gkZEXsHRaAaqtctVCjntBmI3tlkGZDAQM/AwWxDhDqZZkWlE +MQP9tFT1nTPzgG0j7vXUlwxURP/6K9zgODQmv5e98pmBnO4Uervze8IJdQYP +McNA1VX7j6877wnuERY8POxMZCTTuXJxxRMYgRQFYzEmogz59H708wIvqUku +bhUmGuP760DuqBfcqVnwEjBkoo4Ue2+ro1Q4/bm3KduKiTKj8vlOdFDBsNvR +dsGRiRperK14W3uDkWnZBT+CiTa6wXndOm+YofvGnwxmIgWx/7XLNngDdZiT +cg9bu81OivuFNzgeEnvYge1g7Frc88obJl1iaKohOF828n3cO2+4lTt95iv2 +pv6HG1t6vGF1u6ubXhgTKXlIZrstewP9SKJ/VwTej+dcUbIeAS1O/FzPo5no +fg4j3N6AgN7Uke+D2GKfFkwkDQnYMjtdw3GKieYslruKdhOQmpi8aoV9T52N +vW0vAfJ/X3L6iC24LOwscogA4crNuoMx+Dyu6m/IDyQgiWpBm4xjokP/29nl +E0zAyqNw3vXxTPSCbVe+digB176FX1fBzgk30W+KwPlHBtxo2PbOVl7jMQS8 +MOWvHMZ+puT8TP0Szl9xDOhOYKKU+li/p/cJmByKkilOZKJAnSyjqCICQq+J +TzZj2xZXbjAsIeC8t37OEDZv1kTxkzICfpcuPpI8w0TJYQenH9cQwH5Ns/ws +dqyq0l+1TQTuR2y/cxIT+We9D6gaIED1luMa4ywTWQtOGIcNEVBj1X5jQzIT +bUtmE9AZISDzZaKYIvZEmH5Z5TgBDacvNzlge9nn0x/NEvD1/tJUFbYTV3hQ +xW8Cup8fdQ86x0RW4ZtCSiVokP5ntfvjeSZqyj9nkyFFg2enB9emsI3bFpSi +NtFAdJs8H9sF3H/l91/N5Gnw+ljxGw1s6S8xZt+UafBHo7b1PPbMrn4JXn0a +yGbmihhcZKJUjtvPfQ7ToFpf/lLMJbx/Lf5su6M04Nxt+i0F+6xrVJjuMWzZ +GIG72FE1B7euudDgnxh18RZsL5I9/QaVBu4VVpUil5lIt5VKvAmlQaRJ46a7 +2F/SlfkoaTRoNJotLL7CROVIwHcqnQZdJ5YEn2KfpS82l12jQV/kmNtbbB3r +5njDLBq8vUk+GMFOYfNesMujwck3g0vSV5nIMvj216hSGuyAtPgkbDm5CwYm +5TTQrwT9NOzF1uBr6x7RIN7hVUcu9l0VZJdSTQOvG5qPa7FX+/sbC+posKkx +Z9cEdo2tTNGHFhrQU15u25vCRJd/c3BltuL5VvPqdtjUomkv5zYa8G0cEHXC +FuKskxlrp8HXnsX0QOyAeqfUlc80sDKdtczCpqjdiFQax+u17bg2jv37S9yn +7xM0+KY2PDyH3ZFM066YooERHcR/YccP600bzdLAxFpQjTeViXqzP7kf+EGD +7X+/49PAzlgvbHGKnYTJm2IVgdgNC/2uEetI+CQ6ui0Se7K/JCyIi4TdnTmn +47GNa8xvUzeQwO3Z8C4Fe8Iz6l8bYRKuWzQ0lWEL2VqIWIiSkOVWrV6LvXun +iCoSJ2FnzuWwBuw0gVJHXWkS5Iz7clpZ43WDlTJbSBgXmLIfxyYLS1vEKSQc +kO28P8P6Pi16cKMyCTtUsvqYrPVIUQFOVRJueFYMr7LGRa18Z7VJ6KnlchBL +Y6K6/0QTJnRIGGityZbGHv8+dH1IjwSTIqPn8ti7Gk+97jIkYfivpvxt2GMB +5fLPgQT2F42tu7AFnWL0n+wlQequIBvCNjLbZ1tpTkK1iKaoGXaK9Eh04T4S +RN8MdtpgP+WsSMu3IcFaJTTBHnt0PuZBji0J0w6dGxywDd+Kd189SML3kxxP +nbCplSMz5x1IKC3v+OaKfTW3guPMERKKNQL7PbBHwqy1I51IKH+48RSBLeAh +YRXiQoIwj7i4DyvPetTd340E0mfyqh9r/ua4yx6eJOiKLUgFserhtbnrRCWB +bUBVPYSV91PimQNBgneBhkwYK294tN2WxP3cvjoVzsprezRh6UuCsXl25glW +fU/iVsGfhNW6/+ROsvLv2ojtDiBh0Vs7OYqVf1VSXT+IhHAJjdZoVn7UmKlW +CAlVZYuzp7D5iUon1TASmnnO02Owdx6ID6ZEkJDHO/Y+lpW/a/85uUi8n7/5 +LsRhX1GWuiUZRULHndUt8diPhcarhU+RECxUl8Py8L+VrXyxJLj2wDzL/JPx +w1zx+Dzn0xUTsA069/9aSyDB5lCZLsv/B8lNAXk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9094044875068902, 1.097777559150091}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9094044875068922}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.9094044875068922}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9094044875068902, 1.097777559150091}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938529370047493`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"d6ef2515-fb33-43f7-8986-16f34d4b6f82"] }, Open ]], Cell[CellGroupData[{ @@ -6745,30 +14604,33 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ RowBox[{"-", FractionBox["1", "Cw"]}], "+", FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6794,425 +14656,1416 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.99185079904813*^9, {3.9918508647235966`*^9, - 3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\ -6a3bc399953c"], + 3.99185079904813*^9, {3.9918508647235966`*^9, 3.991850864992861*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0507113951462323`*^-271\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852937140758*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"f908e2a4-e04c-4954-8b0c-a3feec95d215"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"71d4e039-c2b8-d74d-819a-80d2051e4273"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4902530571522343`*^-283\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852937149229*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"0423e01d-1ada-4fce-9f5a-db73587f4d71"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"63625e13-15ef-1f45-89dc-998a1b63a626"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.940312435866601`*^-295\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 140, 71, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852937157987*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"80312c75-e740-4fa1-82c7-61b71e36c6e4"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ -GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM -b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ -1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 -9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX -KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 -1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu -UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV -Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX -r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO -rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q -pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq -b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk -+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj -oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi -z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp -jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd -dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw -cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 -Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe -TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj -UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE -/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM -opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 -RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ -u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y -XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV -nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi -T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 -OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U -ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY -E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S -Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT -vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ -zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO -nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm -oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU -fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd -G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han -eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao -n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv -6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 -gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF -hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 -d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS -0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 -bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 -wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF -7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 -ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe -37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg -X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu -TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 -CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 -FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX -A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs -LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr -AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo -2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr -rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 -1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 -dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO -endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 -mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK -Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-1.61617, -0.0100934, 0.0591342, \ -0.000698765}},ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 140, 72, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993852937164432*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"672722ba-9647-4e3c-9d04-8d2385036246"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ -1872f77ea023"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk41F8XAHChUCj7zNjX7LsZM2PmHET2LVkqUdYiCVFKskaWtJJUKCrK +zkyoRBspRYuiSCnJ+kuUxDvvX9/n8zz33nOXc+73Ku7c6xbIzcXF1byCi+v/ +37mPHQ9UMq8yvwdRXLjbnJmvLhEOmvclwZ7YtCiWog6gRPdOQt8pqJ/3F49U +ZECMS/lbnr4SeLFC4ytN0RFEJqVO/XlbC17NwZufKfjAYIvT3tm3bVA+Hlvr +JL8HrFXGPsy87YFfL10rI4jx8Oct5ez022EYkTxhJcqdDe2W166+LPkJqc6i +wx3PL4LM4O2vO7X/QbGJolX4jVIQD/Mt57PkwQ/oHuHZXgGnDKybnTbzo/rh +3dIfXlaDXr/3RkYIP36eSPDjGaiGrpQ9vVqH+FGr3cdV+Ws1rOo784O/mB8p ++tGaLgvVcOjIZ+n2cX48sjAb5KNUAwFPjx6mpAjglM35eMt9NUAObGYo1K1G +l8eO5zRX18K7fP3WmXVCGHGzK+z1+joo6K1YG6MqhDXJcQQ+gzrYIrzed4Eq +hIkr3uTr0+pgIFl2idtfCLd+OSYU6lAHQ+GrzcQbhDBnkpUYH1EHoxu+sMje +wtjUZJ4gyaqD39N5VYeK12L2qwInAWY93NYSW15uWIsBaYFyBtb1EBeU45TS +uRZ9vkbHuzjVw2J/ykTWz7W4WpM6vH97PRz9zJboVlqHghsSJbYeqYeU56Wb +hqLXYdF8SFV2Sz1kXk3o5iaKoObMjGWGYQPYGe8SlVAWwanHXRNHqA3A/8Bt +83odESy5d8QmDBsg5bNqv725CI6PbBfUdWqAw0pdX8/sEkFmxt9ax10NEF5E +WFJrEsEi7uP1ixcbwLWwRtt+qyg+iS0IFl/RCOu0L+z1CRTFq11XCpdWNcLz +5pTavXtFcbnCL2xIsBHs+j1NzySLolTNqffHCY1gQVqy/FAhirUJDt/j9BrB +ON9u695FUST09Rc+3toIUmc+Z5y+KIbJYk97RCsbgaDVkPK7TAw7+aSuFdY2 +AqktLcGnWgyLAuna8qxGkJvW2L++XQwzTXjshFsbQdUhwq95VAxNReX6z7xs +BCPef+TPRuKYYrW/0PInJ96F5wY2DHFUcF4o8ZpvBLJhkfYta3E0Nx/1Dfrb +CDQ/S6VYb3HsUPq2FMrDAvOWDKE1CeLISywclBdjgXO05BfDTnHcUhx5Q9OA +BS5rRj/m9YrjmrJoz6fGLHAruf1ucUAcTQf1HgaYssDjxbbuR1PiWLvm2nAi +sMBH+0rTFgkJ/GhtSgt0ZEHoF72TSX4SmLuhS/BlMAuOudsye+YkMN2MmmyZ +xwJS/XMS9wpJ/Gto7GdawIJKMfd5gzWSeMfW+Z3KRRa86dlefVJeEqX3PSn9 +UsICFddoJVcbSXy6l7tn+RYL2hwvr3pxXhJ/To30lbZx5nNL5fPyFUnM9TE2 +lHjIgjHB8nt6lZLYftrJ/PBjFoh01R840caJV/XzmEEXC/zsOsecfkii2FGf +76avWfDP+tfzZ2ZSODgWfqllhAW5ZXEV/6yl0Lc9zOD6N078VVzpOq5SyKiP +zc/8zgKHh6vNswOlMH3NpzHqBAsKLBXqHHKkUCdaq994lgW6V0pPHM6XwvOk +izaDvzjz5dYKu1kihWGhIwWJ8yz4ft9EVZDFGW+yeu7WAgtM0T7v6aAUrq1Q +6ijlYkPX5RdRf79LYWgN6cJabjb4LW920ZqVwo0tD/338bDh2F0/gUx+Aj4w +ihqWWcWGN2Yxh+wMCHhKu+ON2Bo27C786xlHJyAz7N1lhiAb/v09alxuRcBh +amqkrxAbVJozJwS2EJAxvo+ZuZYNUdRi344kAqp/721IFmODXZHwrH0WAV3W +Cd/ZLs4GJb7D6c/PEjBTZfmLoQQbXrzyqOm9zonPu/3yI0k2XKc/sPKoJeAb +x2WTNCk2JJQYvO9rJqDOwbu/mAQ26EYI8nx8TkCai9yfC0Q2rHx7MM+vj4Bx +7qvNkcSGAcY3rc+fCCj9rbzpA8eZa9rcR2cJaPqu1Z5Xhg07I/W+714ioKLM ++eBsjmnvCuMn+IioUfXjzlpZNoyWxZb9RyKiS/aIEpccG+4JjdD2qxDR89cq +cjjH56Lduud1iKg8fC7rNcfh/ff84yhEvHzinTpZng1WFjq/F5GIwuKSQrkc +y9woyEqwI+J+n3P0zxzPruVX5HYnIpfetUY9BTY8jdnfkOJDxGi5/KP7OS75 +MGzLF0zEUyebL9RzfHCDy8eMCCLuaw5aPcGxS8WdSME4Iv44P/NcTpEN6qJa +fCeSicj7s/GHLcfLB/IviGQTEdzE/cM5fjO4Uv/MOSIurdxNyeK40jrqgWQR +EcdkpEOvcJx6a8jr/A0iOvpnc9VzvE3caUK6jogBfhoLdzg2OtSceKmFiPc3 +bdlyn+PVw+qSio+IWGGYo3yX42Gbc+VXuokYWGri9f/+t6t4QO0dEbN5Hyz8 +f/xcyX2914eJGONRJZTNcUj8x2CtcSLGOUSc3ssxfLFfvPWLiBswKceeY0n7 +27n6y0TUM/BfocjxRI2aah0/CTPun56c4qz/AeHMbRNREk4a5XmxOS5MWOHE +libh6ZCf5nEcR30NH6apkjD7vf4tE47tHAdi7uiSUOXi+8Ixzv4r1duuQVMS +KnofETvP8YtEFWMrexIepM9fHuac57XRk08eu5NwS9psUzzHR5yXt9ltJyFF +2CxYlGMd2fepzvtIeJ9P8og6J194UzaSeuJI+G/gy8QNTj4NjNVXuqeQcKA6 +5o8Kx8fZJ95655GQLzt2kk+aDTvk/4UOFJHQfoj8YS8nP03TdnP5lpOwsM07 +8iUnn79tstIIuEPCmrbUgkROvm+YWogL/0zCEVt53XOcejloc0bz/jgJ459Q +r3Vz6qmyWOe92BwJL1oNkHg4Jrj7UW/zSyP1huyipygbxtkP53l0pfHqXMfU +bWE2KIr6XvOgSOP0b4e0dk79eoT+9riB0ki/7qX9mFPfrbJajU6bpLGhsram +ZTUbTiflRp8/II1xuknjfpz74Um/hsp4ojS2XHewo69kw6Jxey8zUxqVetWe +reVlQ9C3X4ZfLkpjWsKsw7UVnPpy2Dqj2y6NtcRnibmLLBiWUAt/ICSDAbFl +Ok4zLJDae09WSkoGB1vm1ndNce7DJ17PdinIIIH8OWrDJAsa4zK11xrJYO3F +uTUqP1hwfHB6zNtLBtUJlOzLX1hgeKM5eKpEBnMgY+vxNywI5t4sZXGT41cO +HZWvWFC4dfLRmQYZFCsQZz3rYcEqYUU12hMZxJZjcn+fs+B9ZNqXlAkZdGPS +I8Q593uimesOkqksGubp37VsZIHN9kv/USxkMVYy5vinOhYIH/2RvNlBFvX1 +lCQP1nDGb08ty/WTRYaA26GzN1nAtmv6sSpDFr9t4vqRzPnfTHspx/x8J4sX +KI9f07JZsH3/r+Ndh+SQbXtgWns7C1TzLGTGUuWQuTVh5+qtLM55nbjFlyuH +yRfuiw97siBuUeOFxVU53J2VYXfUlQVnk7dL3O6Sw5+X4vce2MCCrpOPL5fK +yiPzaJP1Vg0W0CrP1x+5J4+kY7fq+acaYcPb5/8mn8jj9LOP/8X+aAQnLt6N +vj3yqMzLLB3+1gj+buHvYEQel2czosuHGsH6kGLC0ZUK6NtfJM/b0wgR8nNX +zLUUUHxlY8twXSM8CL480R6jgBVJF4cCoxsh7PfM0SdCivhIXgUcvjcAbV+Q +5FdRReSRSL/p+oXznhp7X8FDUEQ10roXboMNUNrf/oappIifbIUdbF43wMe7 +Z7UbyIp4/eD281z3G8A5ldpX7KuIu+c7z5XnNYChaKLeoRpFtCnQyeG1aIA/ +Wus+6mxWQlv20ZbezHowq7hZdO6cMqrsDC/P4qmDGVE7P482FUymTV5/eKAG +vmT5eUTyqSGf9Y7tQQeqwHYq1naEvB5D9MTGWcY3YdyfP6o+QR2JoZtillqu +c97nUtzH2jTQ8IBvhdmhUhB9ppZTPaWJ8VsPru8oKgGZ9CoXMlkblwPZZ95l +X4Z8Leo6sWAdLNYszchvLoBOkrnJz5O6KCP8atWRhHNAk2nL1XujhxkNwyM3 +ok+BME9J9I4kfbRg3s1x9M2BVX/ubZpJ0cfFqj2KK61yYGnyg2HiMX0sE9o3 +/UwzB6beE2eKsvSx8muf7um5bHhRe3LP0Dl99L7GvvAjJxtO7UwM8q3Qxz2C +hPzutiyQbPPz8nmljyblb0lMSibIJcqbeasZoPqFlzn7XdOhMopf6YO6ARao +k3pY9HRgBs3w7dAywDs3XjgLqKWDj317b4i+Ad7Pejb8buEYFEoEhx6gGWD3 +5w2t+qXHgFheWZDnZICGbZuJ1YtpIN7L+PM6xgAXfe7VdjamgoDqtka3xwZo +9aZkQdQjGXYTwa6iwwAdl67qalklQ6eQ0keeLgMcXeW80dk4GbLmvq1seGGA +2tmnRJpFk0H4SdRmqfcGOFMaFKPwIglEQzNn+8cN8AajfFjWMQlkapoMA0UN +Ue31BtW7zomgyyBWxfoY4sretWk940egTnnXX24/Q+zUvvAHnx8B09W3N+bs +NMQ73DXmT6qOgMVbr6GrwYZIPZVHUIw6Ah778kV69hmil47YjoWFeEgolYrW +TjNE4I3ZCmvj4YWQJPVTpSGuy6dy19kegsiPou12XEZYfVUkZgPPAXjyaNud +cm4j/HZB7qbieCzIVZWxVq80Qv5N1jkir2OhM4F2s1PACP9F0bU0rsWCkuLO +s3ZiRphGjjlHdoiFl/41wXZqRtj7R6Cy9XwM6H93FrRzMELtAA11a4v9MPUz +a7NtvhFu5YtrvfcoEgb6ij0uFhghZWlw2rU+EjrvNHrOFBph3fOVKT+LI+Hq +sSHv88VGOI/XKwLiI2GLtPH27+VGqHQiafqfcSQ8tOgPyrjDsez2fp5r++DC +SY0DHcNGyPfHVYF0LgI26j0qsNUxxmLHIxNtZnvAa5WN+ws9Y8yctNE9LLMH +dn/oEPI0NMbyzHMq7othkJP57GgAxRgvVcq/8W0JgzffXgUlmBvjJkP2s8+M +MAgo+mzYsNkYQ0JCjI9bh0KSyIqnCkeMcfNv/RX1e3bBmdGklGtHjTHLvsGa +4LoLyu7xMnWTjZGyRiY233gXdO7hr6GnG2N86lPz8b8hINK5Ns/jlDE+449X +HMwMgaIkOf+sMmOs+B1tPlgdDHd/0v/OPzfGBFXtnnrhICjuYu3c9NIY65T8 +hmTnAyGl1KizstcYT7Z1zBQOBoKtp9b5wD5jpD/60j9QHQivmkiU3k/GeHB3 +8tIO90AYS/wTWTlrjC1WRYpRlwNAch1rLIBkgqmhlBKw8oc/o4ZurTIm2DNa +nGGr7w8D9ytvS8ub4J35gohgaX8ojipL71E2wZN+/UsfZ3aC9tuzaqhjggtN +HbuaL+8Ei0vRO6XRBMk3Q/5JL++AcG3D9y8DTTApyuOzSJcf7J8nLfiGmKD2 +qz0GUyw/ONzGQ5rcbYLz/eRHn674QabXa+/VESaooX/m4KrDfnA95cA7izgT +PML9fYWDjh8MD9ztq8sxQYuyJcW9633BI9v+7VmWCXrpYoDq4Dbw8TKeV24y +wRbR+i0/mrdBgLKsVG2LCb7kCQt4m78Nom5Pejy/b4L8Nibqipu2Qe7IyTer +ukxwj9inutiOrdDJ6HsdO8SJr8Gmit3ZAozJgFfeAmT8vvwrSvqeF0g2byxp +WUPmxH9RvrvECyaPaUbIC5PRfKPN4bepXnBJcXrNiCgZvxxaky7g6AVL7ocs +I2TImMoI3t814An3mk/WpumRUXTT8X2sFZ5gnnE3t24zGUcPbSiI8tsMJI/i +7ZJeZIw1fRFttXEz/KeUon1wCxnbcgVeGuhuhpIW2ydMXzLKll+p8l50B+7p +V8sdIWTUXv804vN5d2j3+BE+dIiMKqcGT3a+2wRWKgRHoRIyVobdX7kxzA3q +Jx4qBlwl4/bWyKpyDzdQYUXNNZWRcfNDqpSquRvw2nVfDqkgY8vjVd0+km7Q +tjftv/Z6Mlb5ll8duO8KzObZvLjHZEThJeaSjCuQ3V4OfxsnYzZXd272I2co +k05gMafIeK/PTZBV5AwSI9pZZ2fIuHR6L1HgkDPMxqabWM6R0ZPHz01N3xlq +L0L6pWUy3r+dqmle6AR632/pbBalYJ7d3Pq+Q46gfvT4gTYKBVU7v8XkeNpD +C710pQONgmrhF4vYRvbgMn/v1GszCrYP91KF1tnDgfBfN0fNOe0zLARNOuzg +yTa/T8IOFEwKjIyKY9hBCJVst9WPgjWjiy8bdWzhxn+fpGfTKVixbsz0pdZG +YFYuXo/PpKBNEk/wvOBG6NklRebLoeBxq6Rei0lrWBhycCGdpuAZpcxOmxpr +sOtmpeBFCg5ayo8LUq1hrCJ7IquGgqPvzKzcna1AM5B6T/U9Bauqu+37zlrC +CSWnheQBCsr7dt+Rj7eE2cGdJsMfKXhPMepUcoAl3N2SVXHpMwV5FoVmLhtZ +gpvLYJ7UBAV3PTwVpN5rAQfpqRECXKZ4p1Y331fKAp6IvFScUDXFZAEK77U6 +BJ3ukW326qbIGIjktrqEcCprIe+Gpin6cA8s/E1H2ManIhykZ4on3AlR9dsR +phZjFj6amuLeS/R6hzUIkqMyvS/sTdEj1bGWv4cJgXdDUur3mWLtTyHy41Az +mNwzFmsVbYqzTdjcZWkGB2TDQt/EmGJ26uf6lTJmcPzwXrffh0zR0siaJPKM +DtW0GAWzNFMc1Qq3P2ZAh8XG5Jb2AlO8OL04cZeHBqeqLs32tHP6R1y82fuU +AjK+CqP+j0zR5vXP0Xc3KFAqXNI/+8QU3VWHrwumU4C9p7RN8rkpqsTv+Dy3 +gQIftG7mbukzxSZpnYt9rWRQv35be3jcFIuDj1+82moC94peBcxIUNHBj/CV +d9AIhhwUfWMIVBSyqjzU2mYEXH/2eP8lUVH1EUOkuMwILFz5nFYqUPGNdlnO +i3AjeLSCRiFqUtGioFzmC5cRdO28LGDOpGKIQ4Q/W8sQ3qvsrswNoqLfdy3q +rwJ9+Pui8brELiqmeB59t5ykDzLxPFcKQqnIctnroxmqDz6vC/OuRlBxvaF9 +7Ee6Pgyldh9lx1HRktJ6If6OHnz7arxpKIeKuzwuNR9x14XZ68vzeiwq/spY +S0+t1IKvHtZFGbepeDo7pbE5XQv6eLNtPjdT8WPz3BdFfy1o9iOdP9dKRVEp +ncTDBC1IIpjQ/nVw1tuu2h2Qqgnr0ncf7hygok1WmmFvsAZoB7/mCuSm4RXe +eJ87jutBTkLmxl1eGnbVFtWm6KyHde07XQl8NLQuj3HdL7QefspNFz9dQ8Nr +V91uvnymBk1vVlsaStBQv0S5ZJ+LGthYY+ryehr+N6d9TNVHFfxVKwQKHGl4 +/GdotdxpZYh7uH23mgsNn1FUvwXvV4bcQNGntW40fGxZvKLfUxlaSg9mPfWk +oV3239VMWWUQV7NZ+28Hp/9e3cKZG0rwSG1E3C+GhoEajV+GOhVBU11eQe0y +DfemCe+L11AAfNJztLaYhl/fNwZdXqcAHiFpn5hXaWiZ4jjTMSUPydcnSjxv +0PC3tHd4fbY8DKi3qGbU0XCFVqLaiy45yNHw1hp/TEOW5yqjXk9ZmNE8Ta6d +pqHm5H6Nkksk6OtCK7GfNOy3D2AMxZKgNXxyU/QvGpqXt8y4uZIgp9Z2H3mB +hsJWkyaveUmgSeO62cRDx4vc/8Ssw4mw03aPYrskHS+/qnMqtiPAq+CNgq/M +6MgqN3XPXi8JzQK/SCZAx+vxgiMjqyShpKJE45w5HUUiO/aEfpWAiKl/1l7W +dOQZy0heLJUAodj6xAFnOkZmrjinv14CrNMU57/spOO7sKXXVQbiwL7699Ov +dDpa1CdFnQ4UBbJl9LxdJh0zrz8lV9iJQsOnccGibDo+vHSz+5ueKNTKfaTY +naJjXU/yk+cLInAzvzX70gU6PtBUfO50SgSKslKpGyvpaE1Vzp16vA4yotee +zO+lo6DaQSme88LAL5ZeNvGajq1yG6uaQ4UhrYarxaKPjllBhwl1TGFImZz5 +Oj7AWe/YdlmfESE4EvLKzPwrHSVH5KlnTYQgctv50e+/6XhJ1VTN9dMa2LJB +GelyZthGvlw44i8A/17xC7crmKFYTapsBU0AigIn++2UzZBr2uBwlYgAfE27 +HbtF3QyfNKyPiGrlh8gO56qDhmYY4LQt/6MCPxx3OizHtjbDe7xX0+bGV0GT +1+tF471mSNx9aOVoFS/4fG/qbNlnhnGGu3JGsnmBK64of0O0GeqO3a+UCuMF +6wuhxu4HzTDcRTidoMELPR9WhEUlm2HlK96olFIeGNup21+TZ4Y6nblSD69x +g/SeY7d1WzntK13cFru5IGc5yCSzzQz1FI03DTZwAfcp65pvD8yQUs5zfPQC +F4w1rrxR1GGG7YbpHWEhXNDElZIv2suJ/1htiszDBVvOHI2dGzHD6oYdNPuE +JWZ+80GTu2sYKMw7MqVb+pcp6ORdQxJm4KaGLIe2g3+ZR4dMdWLXMbCGtpHn +nNNfZsjK3yr6Egwk2lZL//u9wKQ4x4iXyDEwxHPeu9VlgflmOPJnqgEDX2qQ +UrrX/GFKrA6rcfRkIOMm15bOW3PMq5bxcdPeDJx1XL+UlzrHNIzPsTy9jYHT +Mbr/XfeZYzpNV7/u28HAHcE6qqeF55hpb3798Q9j4GqGoGd81C/m75IEi7hE +BuZfannpbDvLfE8/3VtWwUDvheU35kr/MUP2Xy20rWTg0/I7+9kr/mPOVTYE +jlczUK3MyDXo0wxTVKlv3qCRgVJDJ32DimeY9vyyMndaGVj3leA7qTzDbHlV +FtD7moHHbeIrew2nmXbCbJ2YPgaqLgutPCcxzezb2DFH6GfgTiHWTfGZKeZs +04/07UMM3E2967b2yBRTp1j/1vcxBsoe8+zLL5xktrw3j8maYKB/34pPWoGT +TDvxTaA3zdlPUda8rO4kM+jY/pfRvxh463DluMz9CeZsa1qB1G8G8u36cEE9 +c4KZtJDn37TAwEivyYXczRPMdcY3tH3+MbB1Nj16s8IE89Kepl/LywwMdjKK +3v9jnPk/k5I4Yw== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk41F8XAHChUCj7zNjX7LsZM2PmHET2LVkqUdYiCVFKskaWtJJUKCrK +zkyoRBspRYuiSCnJ+kuUxDvvX9/n8zz33nOXc+73Ku7c6xbIzcXF1byCi+v/ +37mPHQ9UMq8yvwdRXLjbnJmvLhEOmvclwZ7YtCiWog6gRPdOQt8pqJ/3F49U +ZECMS/lbnr4SeLFC4ytN0RFEJqVO/XlbC17NwZufKfjAYIvT3tm3bVA+Hlvr +JL8HrFXGPsy87YFfL10rI4jx8Oct5ez022EYkTxhJcqdDe2W166+LPkJqc6i +wx3PL4LM4O2vO7X/QbGJolX4jVIQD/Mt57PkwQ/oHuHZXgGnDKybnTbzo/rh +3dIfXlaDXr/3RkYIP36eSPDjGaiGrpQ9vVqH+FGr3cdV+Ws1rOo784O/mB8p ++tGaLgvVcOjIZ+n2cX48sjAb5KNUAwFPjx6mpAjglM35eMt9NUAObGYo1K1G +l8eO5zRX18K7fP3WmXVCGHGzK+z1+joo6K1YG6MqhDXJcQQ+gzrYIrzed4Eq +hIkr3uTr0+pgIFl2idtfCLd+OSYU6lAHQ+GrzcQbhDBnkpUYH1EHoxu+sMje +wtjUZJ4gyaqD39N5VYeK12L2qwInAWY93NYSW15uWIsBaYFyBtb1EBeU45TS +uRZ9vkbHuzjVw2J/ykTWz7W4WpM6vH97PRz9zJboVlqHghsSJbYeqYeU56Wb +hqLXYdF8SFV2Sz1kXk3o5iaKoObMjGWGYQPYGe8SlVAWwanHXRNHqA3A/8Bt +83odESy5d8QmDBsg5bNqv725CI6PbBfUdWqAw0pdX8/sEkFmxt9ax10NEF5E +WFJrEsEi7uP1ixcbwLWwRtt+qyg+iS0IFl/RCOu0L+z1CRTFq11XCpdWNcLz +5pTavXtFcbnCL2xIsBHs+j1NzySLolTNqffHCY1gQVqy/FAhirUJDt/j9BrB +ON9u695FUST09Rc+3toIUmc+Z5y+KIbJYk97RCsbgaDVkPK7TAw7+aSuFdY2 +AqktLcGnWgyLAuna8qxGkJvW2L++XQwzTXjshFsbQdUhwq95VAxNReX6z7xs +BCPef+TPRuKYYrW/0PInJ96F5wY2DHFUcF4o8ZpvBLJhkfYta3E0Nx/1Dfrb +CDQ/S6VYb3HsUPq2FMrDAvOWDKE1CeLISywclBdjgXO05BfDTnHcUhx5Q9OA +BS5rRj/m9YrjmrJoz6fGLHAruf1ucUAcTQf1HgaYssDjxbbuR1PiWLvm2nAi +sMBH+0rTFgkJ/GhtSgt0ZEHoF72TSX4SmLuhS/BlMAuOudsye+YkMN2MmmyZ +xwJS/XMS9wpJ/Gto7GdawIJKMfd5gzWSeMfW+Z3KRRa86dlefVJeEqX3PSn9 +UsICFddoJVcbSXy6l7tn+RYL2hwvr3pxXhJ/To30lbZx5nNL5fPyFUnM9TE2 +lHjIgjHB8nt6lZLYftrJ/PBjFoh01R840caJV/XzmEEXC/zsOsecfkii2FGf +76avWfDP+tfzZ2ZSODgWfqllhAW5ZXEV/6yl0Lc9zOD6N078VVzpOq5SyKiP +zc/8zgKHh6vNswOlMH3NpzHqBAsKLBXqHHKkUCdaq994lgW6V0pPHM6XwvOk +izaDvzjz5dYKu1kihWGhIwWJ8yz4ft9EVZDFGW+yeu7WAgtM0T7v6aAUrq1Q +6ijlYkPX5RdRf79LYWgN6cJabjb4LW920ZqVwo0tD/338bDh2F0/gUx+Aj4w +ihqWWcWGN2Yxh+wMCHhKu+ON2Bo27C786xlHJyAz7N1lhiAb/v09alxuRcBh +amqkrxAbVJozJwS2EJAxvo+ZuZYNUdRi344kAqp/721IFmODXZHwrH0WAV3W +Cd/ZLs4GJb7D6c/PEjBTZfmLoQQbXrzyqOm9zonPu/3yI0k2XKc/sPKoJeAb +x2WTNCk2JJQYvO9rJqDOwbu/mAQ26EYI8nx8TkCai9yfC0Q2rHx7MM+vj4Bx +7qvNkcSGAcY3rc+fCCj9rbzpA8eZa9rcR2cJaPqu1Z5Xhg07I/W+714ioKLM ++eBsjmnvCuMn+IioUfXjzlpZNoyWxZb9RyKiS/aIEpccG+4JjdD2qxDR89cq +cjjH56Lduud1iKg8fC7rNcfh/ff84yhEvHzinTpZng1WFjq/F5GIwuKSQrkc +y9woyEqwI+J+n3P0zxzPruVX5HYnIpfetUY9BTY8jdnfkOJDxGi5/KP7OS75 +MGzLF0zEUyebL9RzfHCDy8eMCCLuaw5aPcGxS8WdSME4Iv44P/NcTpEN6qJa +fCeSicj7s/GHLcfLB/IviGQTEdzE/cM5fjO4Uv/MOSIurdxNyeK40jrqgWQR +EcdkpEOvcJx6a8jr/A0iOvpnc9VzvE3caUK6jogBfhoLdzg2OtSceKmFiPc3 +bdlyn+PVw+qSio+IWGGYo3yX42Gbc+VXuokYWGri9f/+t6t4QO0dEbN5Hyz8 +f/xcyX2914eJGONRJZTNcUj8x2CtcSLGOUSc3ssxfLFfvPWLiBswKceeY0n7 +27n6y0TUM/BfocjxRI2aah0/CTPun56c4qz/AeHMbRNREk4a5XmxOS5MWOHE +libh6ZCf5nEcR30NH6apkjD7vf4tE47tHAdi7uiSUOXi+8Ixzv4r1duuQVMS +KnofETvP8YtEFWMrexIepM9fHuac57XRk08eu5NwS9psUzzHR5yXt9ltJyFF +2CxYlGMd2fepzvtIeJ9P8og6J194UzaSeuJI+G/gy8QNTj4NjNVXuqeQcKA6 +5o8Kx8fZJ95655GQLzt2kk+aDTvk/4UOFJHQfoj8YS8nP03TdnP5lpOwsM07 +8iUnn79tstIIuEPCmrbUgkROvm+YWogL/0zCEVt53XOcejloc0bz/jgJ459Q +r3Vz6qmyWOe92BwJL1oNkHg4Jrj7UW/zSyP1huyipygbxtkP53l0pfHqXMfU +bWE2KIr6XvOgSOP0b4e0dk79eoT+9riB0ki/7qX9mFPfrbJajU6bpLGhsram +ZTUbTiflRp8/II1xuknjfpz74Um/hsp4ojS2XHewo69kw6Jxey8zUxqVetWe +reVlQ9C3X4ZfLkpjWsKsw7UVnPpy2Dqj2y6NtcRnibmLLBiWUAt/ICSDAbFl +Ok4zLJDae09WSkoGB1vm1ndNce7DJ17PdinIIIH8OWrDJAsa4zK11xrJYO3F +uTUqP1hwfHB6zNtLBtUJlOzLX1hgeKM5eKpEBnMgY+vxNywI5t4sZXGT41cO +HZWvWFC4dfLRmQYZFCsQZz3rYcEqYUU12hMZxJZjcn+fs+B9ZNqXlAkZdGPS +I8Q593uimesOkqksGubp37VsZIHN9kv/USxkMVYy5vinOhYIH/2RvNlBFvX1 +lCQP1nDGb08ty/WTRYaA26GzN1nAtmv6sSpDFr9t4vqRzPnfTHspx/x8J4sX +KI9f07JZsH3/r+Ndh+SQbXtgWns7C1TzLGTGUuWQuTVh5+qtLM55nbjFlyuH +yRfuiw97siBuUeOFxVU53J2VYXfUlQVnk7dL3O6Sw5+X4vce2MCCrpOPL5fK +yiPzaJP1Vg0W0CrP1x+5J4+kY7fq+acaYcPb5/8mn8jj9LOP/8X+aAQnLt6N +vj3yqMzLLB3+1gj+buHvYEQel2czosuHGsH6kGLC0ZUK6NtfJM/b0wgR8nNX +zLUUUHxlY8twXSM8CL480R6jgBVJF4cCoxsh7PfM0SdCivhIXgUcvjcAbV+Q +5FdRReSRSL/p+oXznhp7X8FDUEQ10roXboMNUNrf/oappIifbIUdbF43wMe7 +Z7UbyIp4/eD281z3G8A5ldpX7KuIu+c7z5XnNYChaKLeoRpFtCnQyeG1aIA/ +Wus+6mxWQlv20ZbezHowq7hZdO6cMqrsDC/P4qmDGVE7P482FUymTV5/eKAG +vmT5eUTyqSGf9Y7tQQeqwHYq1naEvB5D9MTGWcY3YdyfP6o+QR2JoZtillqu +c97nUtzH2jTQ8IBvhdmhUhB9ppZTPaWJ8VsPru8oKgGZ9CoXMlkblwPZZ95l +X4Z8Leo6sWAdLNYszchvLoBOkrnJz5O6KCP8atWRhHNAk2nL1XujhxkNwyM3 +ok+BME9J9I4kfbRg3s1x9M2BVX/ubZpJ0cfFqj2KK61yYGnyg2HiMX0sE9o3 +/UwzB6beE2eKsvSx8muf7um5bHhRe3LP0Dl99L7GvvAjJxtO7UwM8q3Qxz2C +hPzutiyQbPPz8nmljyblb0lMSibIJcqbeasZoPqFlzn7XdOhMopf6YO6ARao +k3pY9HRgBs3w7dAywDs3XjgLqKWDj317b4i+Ad7Pejb8buEYFEoEhx6gGWD3 +5w2t+qXHgFheWZDnZICGbZuJ1YtpIN7L+PM6xgAXfe7VdjamgoDqtka3xwZo +9aZkQdQjGXYTwa6iwwAdl67qalklQ6eQ0keeLgMcXeW80dk4GbLmvq1seGGA +2tmnRJpFk0H4SdRmqfcGOFMaFKPwIglEQzNn+8cN8AajfFjWMQlkapoMA0UN +Ue31BtW7zomgyyBWxfoY4sretWk940egTnnXX24/Q+zUvvAHnx8B09W3N+bs +NMQ73DXmT6qOgMVbr6GrwYZIPZVHUIw6Ah778kV69hmil47YjoWFeEgolYrW +TjNE4I3ZCmvj4YWQJPVTpSGuy6dy19kegsiPou12XEZYfVUkZgPPAXjyaNud +cm4j/HZB7qbieCzIVZWxVq80Qv5N1jkir2OhM4F2s1PACP9F0bU0rsWCkuLO +s3ZiRphGjjlHdoiFl/41wXZqRtj7R6Cy9XwM6H93FrRzMELtAA11a4v9MPUz +a7NtvhFu5YtrvfcoEgb6ij0uFhghZWlw2rU+EjrvNHrOFBph3fOVKT+LI+Hq +sSHv88VGOI/XKwLiI2GLtPH27+VGqHQiafqfcSQ8tOgPyrjDsez2fp5r++DC +SY0DHcNGyPfHVYF0LgI26j0qsNUxxmLHIxNtZnvAa5WN+ws9Y8yctNE9LLMH +dn/oEPI0NMbyzHMq7othkJP57GgAxRgvVcq/8W0JgzffXgUlmBvjJkP2s8+M +MAgo+mzYsNkYQ0JCjI9bh0KSyIqnCkeMcfNv/RX1e3bBmdGklGtHjTHLvsGa +4LoLyu7xMnWTjZGyRiY233gXdO7hr6GnG2N86lPz8b8hINK5Ns/jlDE+449X +HMwMgaIkOf+sMmOs+B1tPlgdDHd/0v/OPzfGBFXtnnrhICjuYu3c9NIY65T8 +hmTnAyGl1KizstcYT7Z1zBQOBoKtp9b5wD5jpD/60j9QHQivmkiU3k/GeHB3 +8tIO90AYS/wTWTlrjC1WRYpRlwNAch1rLIBkgqmhlBKw8oc/o4ZurTIm2DNa +nGGr7w8D9ytvS8ub4J35gohgaX8ojipL71E2wZN+/UsfZ3aC9tuzaqhjggtN +HbuaL+8Ei0vRO6XRBMk3Q/5JL++AcG3D9y8DTTApyuOzSJcf7J8nLfiGmKD2 +qz0GUyw/ONzGQ5rcbYLz/eRHn674QabXa+/VESaooX/m4KrDfnA95cA7izgT +PML9fYWDjh8MD9ztq8sxQYuyJcW9633BI9v+7VmWCXrpYoDq4Dbw8TKeV24y +wRbR+i0/mrdBgLKsVG2LCb7kCQt4m78Nom5Pejy/b4L8Nibqipu2Qe7IyTer +ukxwj9inutiOrdDJ6HsdO8SJr8Gmit3ZAozJgFfeAmT8vvwrSvqeF0g2byxp +WUPmxH9RvrvECyaPaUbIC5PRfKPN4bepXnBJcXrNiCgZvxxaky7g6AVL7ocs +I2TImMoI3t814An3mk/WpumRUXTT8X2sFZ5gnnE3t24zGUcPbSiI8tsMJI/i +7ZJeZIw1fRFttXEz/KeUon1wCxnbcgVeGuhuhpIW2ydMXzLKll+p8l50B+7p +V8sdIWTUXv804vN5d2j3+BE+dIiMKqcGT3a+2wRWKgRHoRIyVobdX7kxzA3q +Jx4qBlwl4/bWyKpyDzdQYUXNNZWRcfNDqpSquRvw2nVfDqkgY8vjVd0+km7Q +tjftv/Z6Mlb5ll8duO8KzObZvLjHZEThJeaSjCuQ3V4OfxsnYzZXd272I2co +k05gMafIeK/PTZBV5AwSI9pZZ2fIuHR6L1HgkDPMxqabWM6R0ZPHz01N3xlq +L0L6pWUy3r+dqmle6AR632/pbBalYJ7d3Pq+Q46gfvT4gTYKBVU7v8XkeNpD +C710pQONgmrhF4vYRvbgMn/v1GszCrYP91KF1tnDgfBfN0fNOe0zLARNOuzg +yTa/T8IOFEwKjIyKY9hBCJVst9WPgjWjiy8bdWzhxn+fpGfTKVixbsz0pdZG +YFYuXo/PpKBNEk/wvOBG6NklRebLoeBxq6Rei0lrWBhycCGdpuAZpcxOmxpr +sOtmpeBFCg5ayo8LUq1hrCJ7IquGgqPvzKzcna1AM5B6T/U9Bauqu+37zlrC +CSWnheQBCsr7dt+Rj7eE2cGdJsMfKXhPMepUcoAl3N2SVXHpMwV5FoVmLhtZ +gpvLYJ7UBAV3PTwVpN5rAQfpqRECXKZ4p1Y331fKAp6IvFScUDXFZAEK77U6 +BJ3ukW326qbIGIjktrqEcCprIe+Gpin6cA8s/E1H2ManIhykZ4on3AlR9dsR +phZjFj6amuLeS/R6hzUIkqMyvS/sTdEj1bGWv4cJgXdDUur3mWLtTyHy41Az +mNwzFmsVbYqzTdjcZWkGB2TDQt/EmGJ26uf6lTJmcPzwXrffh0zR0siaJPKM +DtW0GAWzNFMc1Qq3P2ZAh8XG5Jb2AlO8OL04cZeHBqeqLs32tHP6R1y82fuU +AjK+CqP+j0zR5vXP0Xc3KFAqXNI/+8QU3VWHrwumU4C9p7RN8rkpqsTv+Dy3 +gQIftG7mbukzxSZpnYt9rWRQv35be3jcFIuDj1+82moC94peBcxIUNHBj/CV +d9AIhhwUfWMIVBSyqjzU2mYEXH/2eP8lUVH1EUOkuMwILFz5nFYqUPGNdlnO +i3AjeLSCRiFqUtGioFzmC5cRdO28LGDOpGKIQ4Q/W8sQ3qvsrswNoqLfdy3q +rwJ9+Pui8brELiqmeB59t5ykDzLxPFcKQqnIctnroxmqDz6vC/OuRlBxvaF9 +7Ee6Pgyldh9lx1HRktJ6If6OHnz7arxpKIeKuzwuNR9x14XZ68vzeiwq/spY +S0+t1IKvHtZFGbepeDo7pbE5XQv6eLNtPjdT8WPz3BdFfy1o9iOdP9dKRVEp +ncTDBC1IIpjQ/nVw1tuu2h2Qqgnr0ncf7hygok1WmmFvsAZoB7/mCuSm4RXe +eJ87jutBTkLmxl1eGnbVFtWm6KyHde07XQl8NLQuj3HdL7QefspNFz9dQ8Nr +V91uvnymBk1vVlsaStBQv0S5ZJ+LGthYY+ryehr+N6d9TNVHFfxVKwQKHGl4 +/GdotdxpZYh7uH23mgsNn1FUvwXvV4bcQNGntW40fGxZvKLfUxlaSg9mPfWk +oV3239VMWWUQV7NZ+28Hp/9e3cKZG0rwSG1E3C+GhoEajV+GOhVBU11eQe0y +DfemCe+L11AAfNJztLaYhl/fNwZdXqcAHiFpn5hXaWiZ4jjTMSUPydcnSjxv +0PC3tHd4fbY8DKi3qGbU0XCFVqLaiy45yNHw1hp/TEOW5yqjXk9ZmNE8Ta6d +pqHm5H6Nkksk6OtCK7GfNOy3D2AMxZKgNXxyU/QvGpqXt8y4uZIgp9Z2H3mB +hsJWkyaveUmgSeO62cRDx4vc/8Ssw4mw03aPYrskHS+/qnMqtiPAq+CNgq/M +6MgqN3XPXi8JzQK/SCZAx+vxgiMjqyShpKJE45w5HUUiO/aEfpWAiKl/1l7W +dOQZy0heLJUAodj6xAFnOkZmrjinv14CrNMU57/spOO7sKXXVQbiwL7699Ov +dDpa1CdFnQ4UBbJl9LxdJh0zrz8lV9iJQsOnccGibDo+vHSz+5ueKNTKfaTY +naJjXU/yk+cLInAzvzX70gU6PtBUfO50SgSKslKpGyvpaE1Vzp16vA4yotee +zO+lo6DaQSme88LAL5ZeNvGajq1yG6uaQ4UhrYarxaKPjllBhwl1TGFImZz5 +Oj7AWe/YdlmfESE4EvLKzPwrHSVH5KlnTYQgctv50e+/6XhJ1VTN9dMa2LJB +GelyZthGvlw44i8A/17xC7crmKFYTapsBU0AigIn++2UzZBr2uBwlYgAfE27 +HbtF3QyfNKyPiGrlh8gO56qDhmYY4LQt/6MCPxx3OizHtjbDe7xX0+bGV0GT +1+tF471mSNx9aOVoFS/4fG/qbNlnhnGGu3JGsnmBK64of0O0GeqO3a+UCuMF +6wuhxu4HzTDcRTidoMELPR9WhEUlm2HlK96olFIeGNup21+TZ4Y6nblSD69x +g/SeY7d1WzntK13cFru5IGc5yCSzzQz1FI03DTZwAfcp65pvD8yQUs5zfPQC +F4w1rrxR1GGG7YbpHWEhXNDElZIv2suJ/1htiszDBVvOHI2dGzHD6oYdNPuE +JWZ+80GTu2sYKMw7MqVb+pcp6ORdQxJm4KaGLIe2g3+ZR4dMdWLXMbCGtpHn +nNNfZsjK3yr6Egwk2lZL//u9wKQ4x4iXyDEwxHPeu9VlgflmOPJnqgEDX2qQ +UrrX/GFKrA6rcfRkIOMm15bOW3PMq5bxcdPeDJx1XL+UlzrHNIzPsTy9jYHT +Mbr/XfeZYzpNV7/u28HAHcE6qqeF55hpb3798Q9j4GqGoGd81C/m75IEi7hE +BuZfannpbDvLfE8/3VtWwUDvheU35kr/MUP2Xy20rWTg0/I7+9kr/mPOVTYE +jlczUK3MyDXo0wxTVKlv3qCRgVJDJ32DimeY9vyyMndaGVj3leA7qTzDbHlV +FtD7moHHbeIrew2nmXbCbJ2YPgaqLgutPCcxzezb2DFH6GfgTiHWTfGZKeZs +04/07UMM3E2967b2yBRTp1j/1vcxBsoe8+zLL5xktrw3j8maYKB/34pPWoGT +TDvxTaA3zdlPUda8rO4kM+jY/pfRvxh463DluMz9CeZsa1qB1G8G8u36cEE9 +c4KZtJDn37TAwEivyYXczRPMdcY3tH3+MbB1Nj16s8IE89Kepl/LywwMdjKK +3v9jnPk/k5I4Yw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09426506477241416}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.09426506477241416}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk41F8XAHChUCj7zNjX7LsZM2PmHET2LVkqUdYiCVFKskaWtJJUKCrK +zkyoRBspRYuiSCnJ+kuUxDvvX9/n8zz33nOXc+73Ku7c6xbIzcXF1byCi+v/ +37mPHQ9UMq8yvwdRXLjbnJmvLhEOmvclwZ7YtCiWog6gRPdOQt8pqJ/3F49U +ZECMS/lbnr4SeLFC4ytN0RFEJqVO/XlbC17NwZufKfjAYIvT3tm3bVA+Hlvr +JL8HrFXGPsy87YFfL10rI4jx8Oct5ez022EYkTxhJcqdDe2W166+LPkJqc6i +wx3PL4LM4O2vO7X/QbGJolX4jVIQD/Mt57PkwQ/oHuHZXgGnDKybnTbzo/rh +3dIfXlaDXr/3RkYIP36eSPDjGaiGrpQ9vVqH+FGr3cdV+Ws1rOo784O/mB8p ++tGaLgvVcOjIZ+n2cX48sjAb5KNUAwFPjx6mpAjglM35eMt9NUAObGYo1K1G +l8eO5zRX18K7fP3WmXVCGHGzK+z1+joo6K1YG6MqhDXJcQQ+gzrYIrzed4Eq +hIkr3uTr0+pgIFl2idtfCLd+OSYU6lAHQ+GrzcQbhDBnkpUYH1EHoxu+sMje +wtjUZJ4gyaqD39N5VYeK12L2qwInAWY93NYSW15uWIsBaYFyBtb1EBeU45TS +uRZ9vkbHuzjVw2J/ykTWz7W4WpM6vH97PRz9zJboVlqHghsSJbYeqYeU56Wb +hqLXYdF8SFV2Sz1kXk3o5iaKoObMjGWGYQPYGe8SlVAWwanHXRNHqA3A/8Bt +83odESy5d8QmDBsg5bNqv725CI6PbBfUdWqAw0pdX8/sEkFmxt9ax10NEF5E +WFJrEsEi7uP1ixcbwLWwRtt+qyg+iS0IFl/RCOu0L+z1CRTFq11XCpdWNcLz +5pTavXtFcbnCL2xIsBHs+j1NzySLolTNqffHCY1gQVqy/FAhirUJDt/j9BrB +ON9u695FUST09Rc+3toIUmc+Z5y+KIbJYk97RCsbgaDVkPK7TAw7+aSuFdY2 +AqktLcGnWgyLAuna8qxGkJvW2L++XQwzTXjshFsbQdUhwq95VAxNReX6z7xs +BCPef+TPRuKYYrW/0PInJ96F5wY2DHFUcF4o8ZpvBLJhkfYta3E0Nx/1Dfrb +CDQ/S6VYb3HsUPq2FMrDAvOWDKE1CeLISywclBdjgXO05BfDTnHcUhx5Q9OA +BS5rRj/m9YrjmrJoz6fGLHAruf1ucUAcTQf1HgaYssDjxbbuR1PiWLvm2nAi +sMBH+0rTFgkJ/GhtSgt0ZEHoF72TSX4SmLuhS/BlMAuOudsye+YkMN2MmmyZ +xwJS/XMS9wpJ/Gto7GdawIJKMfd5gzWSeMfW+Z3KRRa86dlefVJeEqX3PSn9 +UsICFddoJVcbSXy6l7tn+RYL2hwvr3pxXhJ/To30lbZx5nNL5fPyFUnM9TE2 +lHjIgjHB8nt6lZLYftrJ/PBjFoh01R840caJV/XzmEEXC/zsOsecfkii2FGf +76avWfDP+tfzZ2ZSODgWfqllhAW5ZXEV/6yl0Lc9zOD6N078VVzpOq5SyKiP +zc/8zgKHh6vNswOlMH3NpzHqBAsKLBXqHHKkUCdaq994lgW6V0pPHM6XwvOk +izaDvzjz5dYKu1kihWGhIwWJ8yz4ft9EVZDFGW+yeu7WAgtM0T7v6aAUrq1Q +6ijlYkPX5RdRf79LYWgN6cJabjb4LW920ZqVwo0tD/338bDh2F0/gUx+Aj4w +ihqWWcWGN2Yxh+wMCHhKu+ON2Bo27C786xlHJyAz7N1lhiAb/v09alxuRcBh +amqkrxAbVJozJwS2EJAxvo+ZuZYNUdRi344kAqp/721IFmODXZHwrH0WAV3W +Cd/ZLs4GJb7D6c/PEjBTZfmLoQQbXrzyqOm9zonPu/3yI0k2XKc/sPKoJeAb +x2WTNCk2JJQYvO9rJqDOwbu/mAQ26EYI8nx8TkCai9yfC0Q2rHx7MM+vj4Bx +7qvNkcSGAcY3rc+fCCj9rbzpA8eZa9rcR2cJaPqu1Z5Xhg07I/W+714ioKLM ++eBsjmnvCuMn+IioUfXjzlpZNoyWxZb9RyKiS/aIEpccG+4JjdD2qxDR89cq +cjjH56Lduud1iKg8fC7rNcfh/ff84yhEvHzinTpZng1WFjq/F5GIwuKSQrkc +y9woyEqwI+J+n3P0zxzPruVX5HYnIpfetUY9BTY8jdnfkOJDxGi5/KP7OS75 +MGzLF0zEUyebL9RzfHCDy8eMCCLuaw5aPcGxS8WdSME4Iv44P/NcTpEN6qJa +fCeSicj7s/GHLcfLB/IviGQTEdzE/cM5fjO4Uv/MOSIurdxNyeK40jrqgWQR +EcdkpEOvcJx6a8jr/A0iOvpnc9VzvE3caUK6jogBfhoLdzg2OtSceKmFiPc3 +bdlyn+PVw+qSio+IWGGYo3yX42Gbc+VXuokYWGri9f/+t6t4QO0dEbN5Hyz8 +f/xcyX2914eJGONRJZTNcUj8x2CtcSLGOUSc3ssxfLFfvPWLiBswKceeY0n7 +27n6y0TUM/BfocjxRI2aah0/CTPun56c4qz/AeHMbRNREk4a5XmxOS5MWOHE +libh6ZCf5nEcR30NH6apkjD7vf4tE47tHAdi7uiSUOXi+8Ixzv4r1duuQVMS +KnofETvP8YtEFWMrexIepM9fHuac57XRk08eu5NwS9psUzzHR5yXt9ltJyFF +2CxYlGMd2fepzvtIeJ9P8og6J194UzaSeuJI+G/gy8QNTj4NjNVXuqeQcKA6 +5o8Kx8fZJ95655GQLzt2kk+aDTvk/4UOFJHQfoj8YS8nP03TdnP5lpOwsM07 +8iUnn79tstIIuEPCmrbUgkROvm+YWogL/0zCEVt53XOcejloc0bz/jgJ459Q +r3Vz6qmyWOe92BwJL1oNkHg4Jrj7UW/zSyP1huyipygbxtkP53l0pfHqXMfU +bWE2KIr6XvOgSOP0b4e0dk79eoT+9riB0ki/7qX9mFPfrbJajU6bpLGhsram +ZTUbTiflRp8/II1xuknjfpz74Um/hsp4ojS2XHewo69kw6Jxey8zUxqVetWe +reVlQ9C3X4ZfLkpjWsKsw7UVnPpy2Dqj2y6NtcRnibmLLBiWUAt/ICSDAbFl +Ok4zLJDae09WSkoGB1vm1ndNce7DJ17PdinIIIH8OWrDJAsa4zK11xrJYO3F +uTUqP1hwfHB6zNtLBtUJlOzLX1hgeKM5eKpEBnMgY+vxNywI5t4sZXGT41cO +HZWvWFC4dfLRmQYZFCsQZz3rYcEqYUU12hMZxJZjcn+fs+B9ZNqXlAkZdGPS +I8Q593uimesOkqksGubp37VsZIHN9kv/USxkMVYy5vinOhYIH/2RvNlBFvX1 +lCQP1nDGb08ty/WTRYaA26GzN1nAtmv6sSpDFr9t4vqRzPnfTHspx/x8J4sX +KI9f07JZsH3/r+Ndh+SQbXtgWns7C1TzLGTGUuWQuTVh5+qtLM55nbjFlyuH +yRfuiw97siBuUeOFxVU53J2VYXfUlQVnk7dL3O6Sw5+X4vce2MCCrpOPL5fK +yiPzaJP1Vg0W0CrP1x+5J4+kY7fq+acaYcPb5/8mn8jj9LOP/8X+aAQnLt6N +vj3yqMzLLB3+1gj+buHvYEQel2czosuHGsH6kGLC0ZUK6NtfJM/b0wgR8nNX +zLUUUHxlY8twXSM8CL480R6jgBVJF4cCoxsh7PfM0SdCivhIXgUcvjcAbV+Q +5FdRReSRSL/p+oXznhp7X8FDUEQ10roXboMNUNrf/oappIifbIUdbF43wMe7 +Z7UbyIp4/eD281z3G8A5ldpX7KuIu+c7z5XnNYChaKLeoRpFtCnQyeG1aIA/ +Wus+6mxWQlv20ZbezHowq7hZdO6cMqrsDC/P4qmDGVE7P482FUymTV5/eKAG +vmT5eUTyqSGf9Y7tQQeqwHYq1naEvB5D9MTGWcY3YdyfP6o+QR2JoZtillqu +c97nUtzH2jTQ8IBvhdmhUhB9ppZTPaWJ8VsPru8oKgGZ9CoXMlkblwPZZ95l +X4Z8Leo6sWAdLNYszchvLoBOkrnJz5O6KCP8atWRhHNAk2nL1XujhxkNwyM3 +ok+BME9J9I4kfbRg3s1x9M2BVX/ubZpJ0cfFqj2KK61yYGnyg2HiMX0sE9o3 +/UwzB6beE2eKsvSx8muf7um5bHhRe3LP0Dl99L7GvvAjJxtO7UwM8q3Qxz2C +hPzutiyQbPPz8nmljyblb0lMSibIJcqbeasZoPqFlzn7XdOhMopf6YO6ARao +k3pY9HRgBs3w7dAywDs3XjgLqKWDj317b4i+Ad7Pejb8buEYFEoEhx6gGWD3 +5w2t+qXHgFheWZDnZICGbZuJ1YtpIN7L+PM6xgAXfe7VdjamgoDqtka3xwZo +9aZkQdQjGXYTwa6iwwAdl67qalklQ6eQ0keeLgMcXeW80dk4GbLmvq1seGGA +2tmnRJpFk0H4SdRmqfcGOFMaFKPwIglEQzNn+8cN8AajfFjWMQlkapoMA0UN +Ue31BtW7zomgyyBWxfoY4sretWk940egTnnXX24/Q+zUvvAHnx8B09W3N+bs +NMQ73DXmT6qOgMVbr6GrwYZIPZVHUIw6Ah778kV69hmil47YjoWFeEgolYrW +TjNE4I3ZCmvj4YWQJPVTpSGuy6dy19kegsiPou12XEZYfVUkZgPPAXjyaNud +cm4j/HZB7qbieCzIVZWxVq80Qv5N1jkir2OhM4F2s1PACP9F0bU0rsWCkuLO +s3ZiRphGjjlHdoiFl/41wXZqRtj7R6Cy9XwM6H93FrRzMELtAA11a4v9MPUz +a7NtvhFu5YtrvfcoEgb6ij0uFhghZWlw2rU+EjrvNHrOFBph3fOVKT+LI+Hq +sSHv88VGOI/XKwLiI2GLtPH27+VGqHQiafqfcSQ8tOgPyrjDsez2fp5r++DC +SY0DHcNGyPfHVYF0LgI26j0qsNUxxmLHIxNtZnvAa5WN+ws9Y8yctNE9LLMH +dn/oEPI0NMbyzHMq7othkJP57GgAxRgvVcq/8W0JgzffXgUlmBvjJkP2s8+M +MAgo+mzYsNkYQ0JCjI9bh0KSyIqnCkeMcfNv/RX1e3bBmdGklGtHjTHLvsGa +4LoLyu7xMnWTjZGyRiY233gXdO7hr6GnG2N86lPz8b8hINK5Ns/jlDE+449X +HMwMgaIkOf+sMmOs+B1tPlgdDHd/0v/OPzfGBFXtnnrhICjuYu3c9NIY65T8 +hmTnAyGl1KizstcYT7Z1zBQOBoKtp9b5wD5jpD/60j9QHQivmkiU3k/GeHB3 +8tIO90AYS/wTWTlrjC1WRYpRlwNAch1rLIBkgqmhlBKw8oc/o4ZurTIm2DNa +nGGr7w8D9ytvS8ub4J35gohgaX8ojipL71E2wZN+/UsfZ3aC9tuzaqhjggtN +HbuaL+8Ei0vRO6XRBMk3Q/5JL++AcG3D9y8DTTApyuOzSJcf7J8nLfiGmKD2 +qz0GUyw/ONzGQ5rcbYLz/eRHn674QabXa+/VESaooX/m4KrDfnA95cA7izgT +PML9fYWDjh8MD9ztq8sxQYuyJcW9633BI9v+7VmWCXrpYoDq4Dbw8TKeV24y +wRbR+i0/mrdBgLKsVG2LCb7kCQt4m78Nom5Pejy/b4L8Nibqipu2Qe7IyTer +ukxwj9inutiOrdDJ6HsdO8SJr8Gmit3ZAozJgFfeAmT8vvwrSvqeF0g2byxp +WUPmxH9RvrvECyaPaUbIC5PRfKPN4bepXnBJcXrNiCgZvxxaky7g6AVL7ocs +I2TImMoI3t814An3mk/WpumRUXTT8X2sFZ5gnnE3t24zGUcPbSiI8tsMJI/i +7ZJeZIw1fRFttXEz/KeUon1wCxnbcgVeGuhuhpIW2ydMXzLKll+p8l50B+7p +V8sdIWTUXv804vN5d2j3+BE+dIiMKqcGT3a+2wRWKgRHoRIyVobdX7kxzA3q +Jx4qBlwl4/bWyKpyDzdQYUXNNZWRcfNDqpSquRvw2nVfDqkgY8vjVd0+km7Q +tjftv/Z6Mlb5ll8duO8KzObZvLjHZEThJeaSjCuQ3V4OfxsnYzZXd272I2co +k05gMafIeK/PTZBV5AwSI9pZZ2fIuHR6L1HgkDPMxqabWM6R0ZPHz01N3xlq +L0L6pWUy3r+dqmle6AR632/pbBalYJ7d3Pq+Q46gfvT4gTYKBVU7v8XkeNpD +C710pQONgmrhF4vYRvbgMn/v1GszCrYP91KF1tnDgfBfN0fNOe0zLARNOuzg +yTa/T8IOFEwKjIyKY9hBCJVst9WPgjWjiy8bdWzhxn+fpGfTKVixbsz0pdZG +YFYuXo/PpKBNEk/wvOBG6NklRebLoeBxq6Rei0lrWBhycCGdpuAZpcxOmxpr +sOtmpeBFCg5ayo8LUq1hrCJ7IquGgqPvzKzcna1AM5B6T/U9Bauqu+37zlrC +CSWnheQBCsr7dt+Rj7eE2cGdJsMfKXhPMepUcoAl3N2SVXHpMwV5FoVmLhtZ +gpvLYJ7UBAV3PTwVpN5rAQfpqRECXKZ4p1Y331fKAp6IvFScUDXFZAEK77U6 +BJ3ukW326qbIGIjktrqEcCprIe+Gpin6cA8s/E1H2ManIhykZ4on3AlR9dsR +phZjFj6amuLeS/R6hzUIkqMyvS/sTdEj1bGWv4cJgXdDUur3mWLtTyHy41Az +mNwzFmsVbYqzTdjcZWkGB2TDQt/EmGJ26uf6lTJmcPzwXrffh0zR0siaJPKM +DtW0GAWzNFMc1Qq3P2ZAh8XG5Jb2AlO8OL04cZeHBqeqLs32tHP6R1y82fuU +AjK+CqP+j0zR5vXP0Xc3KFAqXNI/+8QU3VWHrwumU4C9p7RN8rkpqsTv+Dy3 +gQIftG7mbukzxSZpnYt9rWRQv35be3jcFIuDj1+82moC94peBcxIUNHBj/CV +d9AIhhwUfWMIVBSyqjzU2mYEXH/2eP8lUVH1EUOkuMwILFz5nFYqUPGNdlnO +i3AjeLSCRiFqUtGioFzmC5cRdO28LGDOpGKIQ4Q/W8sQ3qvsrswNoqLfdy3q +rwJ9+Pui8brELiqmeB59t5ykDzLxPFcKQqnIctnroxmqDz6vC/OuRlBxvaF9 +7Ee6Pgyldh9lx1HRktJ6If6OHnz7arxpKIeKuzwuNR9x14XZ68vzeiwq/spY +S0+t1IKvHtZFGbepeDo7pbE5XQv6eLNtPjdT8WPz3BdFfy1o9iOdP9dKRVEp +ncTDBC1IIpjQ/nVw1tuu2h2Qqgnr0ncf7hygok1WmmFvsAZoB7/mCuSm4RXe +eJ87jutBTkLmxl1eGnbVFtWm6KyHde07XQl8NLQuj3HdL7QefspNFz9dQ8Nr +V91uvnymBk1vVlsaStBQv0S5ZJ+LGthYY+ryehr+N6d9TNVHFfxVKwQKHGl4 +/GdotdxpZYh7uH23mgsNn1FUvwXvV4bcQNGntW40fGxZvKLfUxlaSg9mPfWk +oV3239VMWWUQV7NZ+28Hp/9e3cKZG0rwSG1E3C+GhoEajV+GOhVBU11eQe0y +DfemCe+L11AAfNJztLaYhl/fNwZdXqcAHiFpn5hXaWiZ4jjTMSUPydcnSjxv +0PC3tHd4fbY8DKi3qGbU0XCFVqLaiy45yNHw1hp/TEOW5yqjXk9ZmNE8Ta6d +pqHm5H6Nkksk6OtCK7GfNOy3D2AMxZKgNXxyU/QvGpqXt8y4uZIgp9Z2H3mB +hsJWkyaveUmgSeO62cRDx4vc/8Ssw4mw03aPYrskHS+/qnMqtiPAq+CNgq/M +6MgqN3XPXi8JzQK/SCZAx+vxgiMjqyShpKJE45w5HUUiO/aEfpWAiKl/1l7W +dOQZy0heLJUAodj6xAFnOkZmrjinv14CrNMU57/spOO7sKXXVQbiwL7699Ov +dDpa1CdFnQ4UBbJl9LxdJh0zrz8lV9iJQsOnccGibDo+vHSz+5ueKNTKfaTY +naJjXU/yk+cLInAzvzX70gU6PtBUfO50SgSKslKpGyvpaE1Vzp16vA4yotee +zO+lo6DaQSme88LAL5ZeNvGajq1yG6uaQ4UhrYarxaKPjllBhwl1TGFImZz5 +Oj7AWe/YdlmfESE4EvLKzPwrHSVH5KlnTYQgctv50e+/6XhJ1VTN9dMa2LJB +GelyZthGvlw44i8A/17xC7crmKFYTapsBU0AigIn++2UzZBr2uBwlYgAfE27 +HbtF3QyfNKyPiGrlh8gO56qDhmYY4LQt/6MCPxx3OizHtjbDe7xX0+bGV0GT +1+tF471mSNx9aOVoFS/4fG/qbNlnhnGGu3JGsnmBK64of0O0GeqO3a+UCuMF +6wuhxu4HzTDcRTidoMELPR9WhEUlm2HlK96olFIeGNup21+TZ4Y6nblSD69x +g/SeY7d1WzntK13cFru5IGc5yCSzzQz1FI03DTZwAfcp65pvD8yQUs5zfPQC +F4w1rrxR1GGG7YbpHWEhXNDElZIv2suJ/1htiszDBVvOHI2dGzHD6oYdNPuE +JWZ+80GTu2sYKMw7MqVb+pcp6ORdQxJm4KaGLIe2g3+ZR4dMdWLXMbCGtpHn +nNNfZsjK3yr6Egwk2lZL//u9wKQ4x4iXyDEwxHPeu9VlgflmOPJnqgEDX2qQ +UrrX/GFKrA6rcfRkIOMm15bOW3PMq5bxcdPeDJx1XL+UlzrHNIzPsTy9jYHT +Mbr/XfeZYzpNV7/u28HAHcE6qqeF55hpb3798Q9j4GqGoGd81C/m75IEi7hE +BuZfannpbDvLfE8/3VtWwUDvheU35kr/MUP2Xy20rWTg0/I7+9kr/mPOVTYE +jlczUK3MyDXo0wxTVKlv3qCRgVJDJ32DimeY9vyyMndaGVj3leA7qTzDbHlV +FtD7moHHbeIrew2nmXbCbJ2YPgaqLgutPCcxzezb2DFH6GfgTiHWTfGZKeZs +04/07UMM3E2967b2yBRTp1j/1vcxBsoe8+zLL5xktrw3j8maYKB/34pPWoGT +TDvxTaA3zdlPUda8rO4kM+jY/pfRvxh463DluMz9CeZsa1qB1G8G8u36cEE9 +c4KZtJDn37TAwEivyYXczRPMdcY3tH3+MbB1Nj16s8IE89Kepl/LywwMdjKK +3v9jnPk/k5I4Yw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09426506477241416}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09426506477241416}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993853396429523*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"b2edc9ba-a156-41ec-937b-2947c5be14cf"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ -5240-aa41-ba7c8ff64fb9"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[141]:=",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk41F8XAHChUCj7zNjX7LsZM2PmHET2LVkqUdYiCVFKskaWtJJUKCrK +zkyoRBspRYuiSCnJ+kuUxDvvX9/n8zz33nOXc+73Ku7c6xbIzcXF1byCi+v/ +37mPHQ9UMq8yvwdRXLjbnJmvLhEOmvclwZ7YtCiWog6gRPdOQt8pqJ/3F49U +ZECMS/lbnr4SeLFC4ytN0RFEJqVO/XlbC17NwZufKfjAYIvT3tm3bVA+Hlvr +JL8HrFXGPsy87YFfL10rI4jx8Oct5ez022EYkTxhJcqdDe2W166+LPkJqc6i +wx3PL4LM4O2vO7X/QbGJolX4jVIQD/Mt57PkwQ/oHuHZXgGnDKybnTbzo/rh +3dIfXlaDXr/3RkYIP36eSPDjGaiGrpQ9vVqH+FGr3cdV+Ws1rOo784O/mB8p ++tGaLgvVcOjIZ+n2cX48sjAb5KNUAwFPjx6mpAjglM35eMt9NUAObGYo1K1G +l8eO5zRX18K7fP3WmXVCGHGzK+z1+joo6K1YG6MqhDXJcQQ+gzrYIrzed4Eq +hIkr3uTr0+pgIFl2idtfCLd+OSYU6lAHQ+GrzcQbhDBnkpUYH1EHoxu+sMje +wtjUZJ4gyaqD39N5VYeK12L2qwInAWY93NYSW15uWIsBaYFyBtb1EBeU45TS +uRZ9vkbHuzjVw2J/ykTWz7W4WpM6vH97PRz9zJboVlqHghsSJbYeqYeU56Wb +hqLXYdF8SFV2Sz1kXk3o5iaKoObMjGWGYQPYGe8SlVAWwanHXRNHqA3A/8Bt +83odESy5d8QmDBsg5bNqv725CI6PbBfUdWqAw0pdX8/sEkFmxt9ax10NEF5E +WFJrEsEi7uP1ixcbwLWwRtt+qyg+iS0IFl/RCOu0L+z1CRTFq11XCpdWNcLz +5pTavXtFcbnCL2xIsBHs+j1NzySLolTNqffHCY1gQVqy/FAhirUJDt/j9BrB +ON9u695FUST09Rc+3toIUmc+Z5y+KIbJYk97RCsbgaDVkPK7TAw7+aSuFdY2 +AqktLcGnWgyLAuna8qxGkJvW2L++XQwzTXjshFsbQdUhwq95VAxNReX6z7xs +BCPef+TPRuKYYrW/0PInJ96F5wY2DHFUcF4o8ZpvBLJhkfYta3E0Nx/1Dfrb +CDQ/S6VYb3HsUPq2FMrDAvOWDKE1CeLISywclBdjgXO05BfDTnHcUhx5Q9OA +BS5rRj/m9YrjmrJoz6fGLHAruf1ucUAcTQf1HgaYssDjxbbuR1PiWLvm2nAi +sMBH+0rTFgkJ/GhtSgt0ZEHoF72TSX4SmLuhS/BlMAuOudsye+YkMN2MmmyZ +xwJS/XMS9wpJ/Gto7GdawIJKMfd5gzWSeMfW+Z3KRRa86dlefVJeEqX3PSn9 +UsICFddoJVcbSXy6l7tn+RYL2hwvr3pxXhJ/To30lbZx5nNL5fPyFUnM9TE2 +lHjIgjHB8nt6lZLYftrJ/PBjFoh01R840caJV/XzmEEXC/zsOsecfkii2FGf +76avWfDP+tfzZ2ZSODgWfqllhAW5ZXEV/6yl0Lc9zOD6N078VVzpOq5SyKiP +zc/8zgKHh6vNswOlMH3NpzHqBAsKLBXqHHKkUCdaq994lgW6V0pPHM6XwvOk +izaDvzjz5dYKu1kihWGhIwWJ8yz4ft9EVZDFGW+yeu7WAgtM0T7v6aAUrq1Q +6ijlYkPX5RdRf79LYWgN6cJabjb4LW920ZqVwo0tD/338bDh2F0/gUx+Aj4w +ihqWWcWGN2Yxh+wMCHhKu+ON2Bo27C786xlHJyAz7N1lhiAb/v09alxuRcBh +amqkrxAbVJozJwS2EJAxvo+ZuZYNUdRi344kAqp/721IFmODXZHwrH0WAV3W +Cd/ZLs4GJb7D6c/PEjBTZfmLoQQbXrzyqOm9zonPu/3yI0k2XKc/sPKoJeAb +x2WTNCk2JJQYvO9rJqDOwbu/mAQ26EYI8nx8TkCai9yfC0Q2rHx7MM+vj4Bx +7qvNkcSGAcY3rc+fCCj9rbzpA8eZa9rcR2cJaPqu1Z5Xhg07I/W+714ioKLM ++eBsjmnvCuMn+IioUfXjzlpZNoyWxZb9RyKiS/aIEpccG+4JjdD2qxDR89cq +cjjH56Lduud1iKg8fC7rNcfh/ff84yhEvHzinTpZng1WFjq/F5GIwuKSQrkc +y9woyEqwI+J+n3P0zxzPruVX5HYnIpfetUY9BTY8jdnfkOJDxGi5/KP7OS75 +MGzLF0zEUyebL9RzfHCDy8eMCCLuaw5aPcGxS8WdSME4Iv44P/NcTpEN6qJa +fCeSicj7s/GHLcfLB/IviGQTEdzE/cM5fjO4Uv/MOSIurdxNyeK40jrqgWQR +EcdkpEOvcJx6a8jr/A0iOvpnc9VzvE3caUK6jogBfhoLdzg2OtSceKmFiPc3 +bdlyn+PVw+qSio+IWGGYo3yX42Gbc+VXuokYWGri9f/+t6t4QO0dEbN5Hyz8 +f/xcyX2914eJGONRJZTNcUj8x2CtcSLGOUSc3ssxfLFfvPWLiBswKceeY0n7 +27n6y0TUM/BfocjxRI2aah0/CTPun56c4qz/AeHMbRNREk4a5XmxOS5MWOHE +libh6ZCf5nEcR30NH6apkjD7vf4tE47tHAdi7uiSUOXi+8Ixzv4r1duuQVMS +KnofETvP8YtEFWMrexIepM9fHuac57XRk08eu5NwS9psUzzHR5yXt9ltJyFF +2CxYlGMd2fepzvtIeJ9P8og6J194UzaSeuJI+G/gy8QNTj4NjNVXuqeQcKA6 +5o8Kx8fZJ95655GQLzt2kk+aDTvk/4UOFJHQfoj8YS8nP03TdnP5lpOwsM07 +8iUnn79tstIIuEPCmrbUgkROvm+YWogL/0zCEVt53XOcejloc0bz/jgJ459Q +r3Vz6qmyWOe92BwJL1oNkHg4Jrj7UW/zSyP1huyipygbxtkP53l0pfHqXMfU +bWE2KIr6XvOgSOP0b4e0dk79eoT+9riB0ki/7qX9mFPfrbJajU6bpLGhsram +ZTUbTiflRp8/II1xuknjfpz74Um/hsp4ojS2XHewo69kw6Jxey8zUxqVetWe +reVlQ9C3X4ZfLkpjWsKsw7UVnPpy2Dqj2y6NtcRnibmLLBiWUAt/ICSDAbFl +Ok4zLJDae09WSkoGB1vm1ndNce7DJ17PdinIIIH8OWrDJAsa4zK11xrJYO3F +uTUqP1hwfHB6zNtLBtUJlOzLX1hgeKM5eKpEBnMgY+vxNywI5t4sZXGT41cO +HZWvWFC4dfLRmQYZFCsQZz3rYcEqYUU12hMZxJZjcn+fs+B9ZNqXlAkZdGPS +I8Q593uimesOkqksGubp37VsZIHN9kv/USxkMVYy5vinOhYIH/2RvNlBFvX1 +lCQP1nDGb08ty/WTRYaA26GzN1nAtmv6sSpDFr9t4vqRzPnfTHspx/x8J4sX +KI9f07JZsH3/r+Ndh+SQbXtgWns7C1TzLGTGUuWQuTVh5+qtLM55nbjFlyuH +yRfuiw97siBuUeOFxVU53J2VYXfUlQVnk7dL3O6Sw5+X4vce2MCCrpOPL5fK +yiPzaJP1Vg0W0CrP1x+5J4+kY7fq+acaYcPb5/8mn8jj9LOP/8X+aAQnLt6N +vj3yqMzLLB3+1gj+buHvYEQel2czosuHGsH6kGLC0ZUK6NtfJM/b0wgR8nNX +zLUUUHxlY8twXSM8CL480R6jgBVJF4cCoxsh7PfM0SdCivhIXgUcvjcAbV+Q +5FdRReSRSL/p+oXznhp7X8FDUEQ10roXboMNUNrf/oappIifbIUdbF43wMe7 +Z7UbyIp4/eD281z3G8A5ldpX7KuIu+c7z5XnNYChaKLeoRpFtCnQyeG1aIA/ +Wus+6mxWQlv20ZbezHowq7hZdO6cMqrsDC/P4qmDGVE7P482FUymTV5/eKAG +vmT5eUTyqSGf9Y7tQQeqwHYq1naEvB5D9MTGWcY3YdyfP6o+QR2JoZtillqu +c97nUtzH2jTQ8IBvhdmhUhB9ppZTPaWJ8VsPru8oKgGZ9CoXMlkblwPZZ95l +X4Z8Leo6sWAdLNYszchvLoBOkrnJz5O6KCP8atWRhHNAk2nL1XujhxkNwyM3 +ok+BME9J9I4kfbRg3s1x9M2BVX/ubZpJ0cfFqj2KK61yYGnyg2HiMX0sE9o3 +/UwzB6beE2eKsvSx8muf7um5bHhRe3LP0Dl99L7GvvAjJxtO7UwM8q3Qxz2C +hPzutiyQbPPz8nmljyblb0lMSibIJcqbeasZoPqFlzn7XdOhMopf6YO6ARao +k3pY9HRgBs3w7dAywDs3XjgLqKWDj317b4i+Ad7Pejb8buEYFEoEhx6gGWD3 +5w2t+qXHgFheWZDnZICGbZuJ1YtpIN7L+PM6xgAXfe7VdjamgoDqtka3xwZo +9aZkQdQjGXYTwa6iwwAdl67qalklQ6eQ0keeLgMcXeW80dk4GbLmvq1seGGA +2tmnRJpFk0H4SdRmqfcGOFMaFKPwIglEQzNn+8cN8AajfFjWMQlkapoMA0UN +Ue31BtW7zomgyyBWxfoY4sretWk940egTnnXX24/Q+zUvvAHnx8B09W3N+bs +NMQ73DXmT6qOgMVbr6GrwYZIPZVHUIw6Ah778kV69hmil47YjoWFeEgolYrW +TjNE4I3ZCmvj4YWQJPVTpSGuy6dy19kegsiPou12XEZYfVUkZgPPAXjyaNud +cm4j/HZB7qbieCzIVZWxVq80Qv5N1jkir2OhM4F2s1PACP9F0bU0rsWCkuLO +s3ZiRphGjjlHdoiFl/41wXZqRtj7R6Cy9XwM6H93FrRzMELtAA11a4v9MPUz +a7NtvhFu5YtrvfcoEgb6ij0uFhghZWlw2rU+EjrvNHrOFBph3fOVKT+LI+Hq +sSHv88VGOI/XKwLiI2GLtPH27+VGqHQiafqfcSQ8tOgPyrjDsez2fp5r++DC +SY0DHcNGyPfHVYF0LgI26j0qsNUxxmLHIxNtZnvAa5WN+ws9Y8yctNE9LLMH +dn/oEPI0NMbyzHMq7othkJP57GgAxRgvVcq/8W0JgzffXgUlmBvjJkP2s8+M +MAgo+mzYsNkYQ0JCjI9bh0KSyIqnCkeMcfNv/RX1e3bBmdGklGtHjTHLvsGa +4LoLyu7xMnWTjZGyRiY233gXdO7hr6GnG2N86lPz8b8hINK5Ns/jlDE+449X +HMwMgaIkOf+sMmOs+B1tPlgdDHd/0v/OPzfGBFXtnnrhICjuYu3c9NIY65T8 +hmTnAyGl1KizstcYT7Z1zBQOBoKtp9b5wD5jpD/60j9QHQivmkiU3k/GeHB3 +8tIO90AYS/wTWTlrjC1WRYpRlwNAch1rLIBkgqmhlBKw8oc/o4ZurTIm2DNa +nGGr7w8D9ytvS8ub4J35gohgaX8ojipL71E2wZN+/UsfZ3aC9tuzaqhjggtN +HbuaL+8Ei0vRO6XRBMk3Q/5JL++AcG3D9y8DTTApyuOzSJcf7J8nLfiGmKD2 +qz0GUyw/ONzGQ5rcbYLz/eRHn674QabXa+/VESaooX/m4KrDfnA95cA7izgT +PML9fYWDjh8MD9ztq8sxQYuyJcW9633BI9v+7VmWCXrpYoDq4Dbw8TKeV24y +wRbR+i0/mrdBgLKsVG2LCb7kCQt4m78Nom5Pejy/b4L8Nibqipu2Qe7IyTer +ukxwj9inutiOrdDJ6HsdO8SJr8Gmit3ZAozJgFfeAmT8vvwrSvqeF0g2byxp +WUPmxH9RvrvECyaPaUbIC5PRfKPN4bepXnBJcXrNiCgZvxxaky7g6AVL7ocs +I2TImMoI3t814An3mk/WpumRUXTT8X2sFZ5gnnE3t24zGUcPbSiI8tsMJI/i +7ZJeZIw1fRFttXEz/KeUon1wCxnbcgVeGuhuhpIW2ydMXzLKll+p8l50B+7p +V8sdIWTUXv804vN5d2j3+BE+dIiMKqcGT3a+2wRWKgRHoRIyVobdX7kxzA3q +Jx4qBlwl4/bWyKpyDzdQYUXNNZWRcfNDqpSquRvw2nVfDqkgY8vjVd0+km7Q +tjftv/Z6Mlb5ll8duO8KzObZvLjHZEThJeaSjCuQ3V4OfxsnYzZXd272I2co +k05gMafIeK/PTZBV5AwSI9pZZ2fIuHR6L1HgkDPMxqabWM6R0ZPHz01N3xlq +L0L6pWUy3r+dqmle6AR632/pbBalYJ7d3Pq+Q46gfvT4gTYKBVU7v8XkeNpD +C710pQONgmrhF4vYRvbgMn/v1GszCrYP91KF1tnDgfBfN0fNOe0zLARNOuzg +yTa/T8IOFEwKjIyKY9hBCJVst9WPgjWjiy8bdWzhxn+fpGfTKVixbsz0pdZG +YFYuXo/PpKBNEk/wvOBG6NklRebLoeBxq6Rei0lrWBhycCGdpuAZpcxOmxpr +sOtmpeBFCg5ayo8LUq1hrCJ7IquGgqPvzKzcna1AM5B6T/U9Bauqu+37zlrC +CSWnheQBCsr7dt+Rj7eE2cGdJsMfKXhPMepUcoAl3N2SVXHpMwV5FoVmLhtZ +gpvLYJ7UBAV3PTwVpN5rAQfpqRECXKZ4p1Y331fKAp6IvFScUDXFZAEK77U6 +BJ3ukW326qbIGIjktrqEcCprIe+Gpin6cA8s/E1H2ManIhykZ4on3AlR9dsR +phZjFj6amuLeS/R6hzUIkqMyvS/sTdEj1bGWv4cJgXdDUur3mWLtTyHy41Az +mNwzFmsVbYqzTdjcZWkGB2TDQt/EmGJ26uf6lTJmcPzwXrffh0zR0siaJPKM +DtW0GAWzNFMc1Qq3P2ZAh8XG5Jb2AlO8OL04cZeHBqeqLs32tHP6R1y82fuU +AjK+CqP+j0zR5vXP0Xc3KFAqXNI/+8QU3VWHrwumU4C9p7RN8rkpqsTv+Dy3 +gQIftG7mbukzxSZpnYt9rWRQv35be3jcFIuDj1+82moC94peBcxIUNHBj/CV +d9AIhhwUfWMIVBSyqjzU2mYEXH/2eP8lUVH1EUOkuMwILFz5nFYqUPGNdlnO +i3AjeLSCRiFqUtGioFzmC5cRdO28LGDOpGKIQ4Q/W8sQ3qvsrswNoqLfdy3q +rwJ9+Pui8brELiqmeB59t5ykDzLxPFcKQqnIctnroxmqDz6vC/OuRlBxvaF9 +7Ee6Pgyldh9lx1HRktJ6If6OHnz7arxpKIeKuzwuNR9x14XZ68vzeiwq/spY +S0+t1IKvHtZFGbepeDo7pbE5XQv6eLNtPjdT8WPz3BdFfy1o9iOdP9dKRVEp +ncTDBC1IIpjQ/nVw1tuu2h2Qqgnr0ncf7hygok1WmmFvsAZoB7/mCuSm4RXe +eJ87jutBTkLmxl1eGnbVFtWm6KyHde07XQl8NLQuj3HdL7QefspNFz9dQ8Nr +V91uvnymBk1vVlsaStBQv0S5ZJ+LGthYY+ryehr+N6d9TNVHFfxVKwQKHGl4 +/GdotdxpZYh7uH23mgsNn1FUvwXvV4bcQNGntW40fGxZvKLfUxlaSg9mPfWk +oV3239VMWWUQV7NZ+28Hp/9e3cKZG0rwSG1E3C+GhoEajV+GOhVBU11eQe0y +DfemCe+L11AAfNJztLaYhl/fNwZdXqcAHiFpn5hXaWiZ4jjTMSUPydcnSjxv +0PC3tHd4fbY8DKi3qGbU0XCFVqLaiy45yNHw1hp/TEOW5yqjXk9ZmNE8Ta6d +pqHm5H6Nkksk6OtCK7GfNOy3D2AMxZKgNXxyU/QvGpqXt8y4uZIgp9Z2H3mB +hsJWkyaveUmgSeO62cRDx4vc/8Ssw4mw03aPYrskHS+/qnMqtiPAq+CNgq/M +6MgqN3XPXi8JzQK/SCZAx+vxgiMjqyShpKJE45w5HUUiO/aEfpWAiKl/1l7W +dOQZy0heLJUAodj6xAFnOkZmrjinv14CrNMU57/spOO7sKXXVQbiwL7699Ov +dDpa1CdFnQ4UBbJl9LxdJh0zrz8lV9iJQsOnccGibDo+vHSz+5ueKNTKfaTY +naJjXU/yk+cLInAzvzX70gU6PtBUfO50SgSKslKpGyvpaE1Vzp16vA4yotee +zO+lo6DaQSme88LAL5ZeNvGajq1yG6uaQ4UhrYarxaKPjllBhwl1TGFImZz5 +Oj7AWe/YdlmfESE4EvLKzPwrHSVH5KlnTYQgctv50e+/6XhJ1VTN9dMa2LJB +GelyZthGvlw44i8A/17xC7crmKFYTapsBU0AigIn++2UzZBr2uBwlYgAfE27 +HbtF3QyfNKyPiGrlh8gO56qDhmYY4LQt/6MCPxx3OizHtjbDe7xX0+bGV0GT +1+tF471mSNx9aOVoFS/4fG/qbNlnhnGGu3JGsnmBK64of0O0GeqO3a+UCuMF +6wuhxu4HzTDcRTidoMELPR9WhEUlm2HlK96olFIeGNup21+TZ4Y6nblSD69x +g/SeY7d1WzntK13cFru5IGc5yCSzzQz1FI03DTZwAfcp65pvD8yQUs5zfPQC +F4w1rrxR1GGG7YbpHWEhXNDElZIv2suJ/1htiszDBVvOHI2dGzHD6oYdNPuE +JWZ+80GTu2sYKMw7MqVb+pcp6ORdQxJm4KaGLIe2g3+ZR4dMdWLXMbCGtpHn +nNNfZsjK3yr6Egwk2lZL//u9wKQ4x4iXyDEwxHPeu9VlgflmOPJnqgEDX2qQ +UrrX/GFKrA6rcfRkIOMm15bOW3PMq5bxcdPeDJx1XL+UlzrHNIzPsTy9jYHT +Mbr/XfeZYzpNV7/u28HAHcE6qqeF55hpb3798Q9j4GqGoGd81C/m75IEi7hE +BuZfannpbDvLfE8/3VtWwUDvheU35kr/MUP2Xy20rWTg0/I7+9kr/mPOVTYE +jlczUK3MyDXo0wxTVKlv3qCRgVJDJ32DimeY9vyyMndaGVj3leA7qTzDbHlV +FtD7moHHbeIrew2nmXbCbJ2YPgaqLgutPCcxzezb2DFH6GfgTiHWTfGZKeZs +04/07UMM3E2967b2yBRTp1j/1vcxBsoe8+zLL5xktrw3j8maYKB/34pPWoGT +TDvxTaA3zdlPUda8rO4kM+jY/pfRvxh463DluMz9CeZsa1qB1G8G8u36cEE9 +c4KZtJDn37TAwEivyYXczRPMdcY3tH3+MbB1Nj16s8IE89Kepl/LywwMdjKK +3v9jnPk/k5I4Yw== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk41F8XAHChUCj7zNjX7LsZM2PmHET2LVkqUdYiCVFKskaWtJJUKCrK +zkyoRBspRYuiSCnJ+kuUxDvvX9/n8zz33nOXc+73Ku7c6xbIzcXF1byCi+v/ +37mPHQ9UMq8yvwdRXLjbnJmvLhEOmvclwZ7YtCiWog6gRPdOQt8pqJ/3F49U +ZECMS/lbnr4SeLFC4ytN0RFEJqVO/XlbC17NwZufKfjAYIvT3tm3bVA+Hlvr +JL8HrFXGPsy87YFfL10rI4jx8Oct5ez022EYkTxhJcqdDe2W166+LPkJqc6i +wx3PL4LM4O2vO7X/QbGJolX4jVIQD/Mt57PkwQ/oHuHZXgGnDKybnTbzo/rh +3dIfXlaDXr/3RkYIP36eSPDjGaiGrpQ9vVqH+FGr3cdV+Ws1rOo784O/mB8p ++tGaLgvVcOjIZ+n2cX48sjAb5KNUAwFPjx6mpAjglM35eMt9NUAObGYo1K1G +l8eO5zRX18K7fP3WmXVCGHGzK+z1+joo6K1YG6MqhDXJcQQ+gzrYIrzed4Eq +hIkr3uTr0+pgIFl2idtfCLd+OSYU6lAHQ+GrzcQbhDBnkpUYH1EHoxu+sMje +wtjUZJ4gyaqD39N5VYeK12L2qwInAWY93NYSW15uWIsBaYFyBtb1EBeU45TS +uRZ9vkbHuzjVw2J/ykTWz7W4WpM6vH97PRz9zJboVlqHghsSJbYeqYeU56Wb +hqLXYdF8SFV2Sz1kXk3o5iaKoObMjGWGYQPYGe8SlVAWwanHXRNHqA3A/8Bt +83odESy5d8QmDBsg5bNqv725CI6PbBfUdWqAw0pdX8/sEkFmxt9ax10NEF5E +WFJrEsEi7uP1ixcbwLWwRtt+qyg+iS0IFl/RCOu0L+z1CRTFq11XCpdWNcLz +5pTavXtFcbnCL2xIsBHs+j1NzySLolTNqffHCY1gQVqy/FAhirUJDt/j9BrB +ON9u695FUST09Rc+3toIUmc+Z5y+KIbJYk97RCsbgaDVkPK7TAw7+aSuFdY2 +AqktLcGnWgyLAuna8qxGkJvW2L++XQwzTXjshFsbQdUhwq95VAxNReX6z7xs +BCPef+TPRuKYYrW/0PInJ96F5wY2DHFUcF4o8ZpvBLJhkfYta3E0Nx/1Dfrb +CDQ/S6VYb3HsUPq2FMrDAvOWDKE1CeLISywclBdjgXO05BfDTnHcUhx5Q9OA +BS5rRj/m9YrjmrJoz6fGLHAruf1ucUAcTQf1HgaYssDjxbbuR1PiWLvm2nAi +sMBH+0rTFgkJ/GhtSgt0ZEHoF72TSX4SmLuhS/BlMAuOudsye+YkMN2MmmyZ +xwJS/XMS9wpJ/Gto7GdawIJKMfd5gzWSeMfW+Z3KRRa86dlefVJeEqX3PSn9 +UsICFddoJVcbSXy6l7tn+RYL2hwvr3pxXhJ/To30lbZx5nNL5fPyFUnM9TE2 +lHjIgjHB8nt6lZLYftrJ/PBjFoh01R840caJV/XzmEEXC/zsOsecfkii2FGf +76avWfDP+tfzZ2ZSODgWfqllhAW5ZXEV/6yl0Lc9zOD6N078VVzpOq5SyKiP +zc/8zgKHh6vNswOlMH3NpzHqBAsKLBXqHHKkUCdaq994lgW6V0pPHM6XwvOk +izaDvzjz5dYKu1kihWGhIwWJ8yz4ft9EVZDFGW+yeu7WAgtM0T7v6aAUrq1Q +6ijlYkPX5RdRf79LYWgN6cJabjb4LW920ZqVwo0tD/338bDh2F0/gUx+Aj4w +ihqWWcWGN2Yxh+wMCHhKu+ON2Bo27C786xlHJyAz7N1lhiAb/v09alxuRcBh +amqkrxAbVJozJwS2EJAxvo+ZuZYNUdRi344kAqp/721IFmODXZHwrH0WAV3W +Cd/ZLs4GJb7D6c/PEjBTZfmLoQQbXrzyqOm9zonPu/3yI0k2XKc/sPKoJeAb +x2WTNCk2JJQYvO9rJqDOwbu/mAQ26EYI8nx8TkCai9yfC0Q2rHx7MM+vj4Bx +7qvNkcSGAcY3rc+fCCj9rbzpA8eZa9rcR2cJaPqu1Z5Xhg07I/W+714ioKLM ++eBsjmnvCuMn+IioUfXjzlpZNoyWxZb9RyKiS/aIEpccG+4JjdD2qxDR89cq +cjjH56Lduud1iKg8fC7rNcfh/ff84yhEvHzinTpZng1WFjq/F5GIwuKSQrkc +y9woyEqwI+J+n3P0zxzPruVX5HYnIpfetUY9BTY8jdnfkOJDxGi5/KP7OS75 +MGzLF0zEUyebL9RzfHCDy8eMCCLuaw5aPcGxS8WdSME4Iv44P/NcTpEN6qJa +fCeSicj7s/GHLcfLB/IviGQTEdzE/cM5fjO4Uv/MOSIurdxNyeK40jrqgWQR +EcdkpEOvcJx6a8jr/A0iOvpnc9VzvE3caUK6jogBfhoLdzg2OtSceKmFiPc3 +bdlyn+PVw+qSio+IWGGYo3yX42Gbc+VXuokYWGri9f/+t6t4QO0dEbN5Hyz8 +f/xcyX2914eJGONRJZTNcUj8x2CtcSLGOUSc3ssxfLFfvPWLiBswKceeY0n7 +27n6y0TUM/BfocjxRI2aah0/CTPun56c4qz/AeHMbRNREk4a5XmxOS5MWOHE +libh6ZCf5nEcR30NH6apkjD7vf4tE47tHAdi7uiSUOXi+8Ixzv4r1duuQVMS +KnofETvP8YtEFWMrexIepM9fHuac57XRk08eu5NwS9psUzzHR5yXt9ltJyFF +2CxYlGMd2fepzvtIeJ9P8og6J194UzaSeuJI+G/gy8QNTj4NjNVXuqeQcKA6 +5o8Kx8fZJ95655GQLzt2kk+aDTvk/4UOFJHQfoj8YS8nP03TdnP5lpOwsM07 +8iUnn79tstIIuEPCmrbUgkROvm+YWogL/0zCEVt53XOcejloc0bz/jgJ459Q +r3Vz6qmyWOe92BwJL1oNkHg4Jrj7UW/zSyP1huyipygbxtkP53l0pfHqXMfU +bWE2KIr6XvOgSOP0b4e0dk79eoT+9riB0ki/7qX9mFPfrbJajU6bpLGhsram +ZTUbTiflRp8/II1xuknjfpz74Um/hsp4ojS2XHewo69kw6Jxey8zUxqVetWe +reVlQ9C3X4ZfLkpjWsKsw7UVnPpy2Dqj2y6NtcRnibmLLBiWUAt/ICSDAbFl +Ok4zLJDae09WSkoGB1vm1ndNce7DJ17PdinIIIH8OWrDJAsa4zK11xrJYO3F +uTUqP1hwfHB6zNtLBtUJlOzLX1hgeKM5eKpEBnMgY+vxNywI5t4sZXGT41cO +HZWvWFC4dfLRmQYZFCsQZz3rYcEqYUU12hMZxJZjcn+fs+B9ZNqXlAkZdGPS +I8Q593uimesOkqksGubp37VsZIHN9kv/USxkMVYy5vinOhYIH/2RvNlBFvX1 +lCQP1nDGb08ty/WTRYaA26GzN1nAtmv6sSpDFr9t4vqRzPnfTHspx/x8J4sX +KI9f07JZsH3/r+Ndh+SQbXtgWns7C1TzLGTGUuWQuTVh5+qtLM55nbjFlyuH +yRfuiw97siBuUeOFxVU53J2VYXfUlQVnk7dL3O6Sw5+X4vce2MCCrpOPL5fK +yiPzaJP1Vg0W0CrP1x+5J4+kY7fq+acaYcPb5/8mn8jj9LOP/8X+aAQnLt6N +vj3yqMzLLB3+1gj+buHvYEQel2czosuHGsH6kGLC0ZUK6NtfJM/b0wgR8nNX +zLUUUHxlY8twXSM8CL480R6jgBVJF4cCoxsh7PfM0SdCivhIXgUcvjcAbV+Q +5FdRReSRSL/p+oXznhp7X8FDUEQ10roXboMNUNrf/oappIifbIUdbF43wMe7 +Z7UbyIp4/eD281z3G8A5ldpX7KuIu+c7z5XnNYChaKLeoRpFtCnQyeG1aIA/ +Wus+6mxWQlv20ZbezHowq7hZdO6cMqrsDC/P4qmDGVE7P482FUymTV5/eKAG +vmT5eUTyqSGf9Y7tQQeqwHYq1naEvB5D9MTGWcY3YdyfP6o+QR2JoZtillqu +c97nUtzH2jTQ8IBvhdmhUhB9ppZTPaWJ8VsPru8oKgGZ9CoXMlkblwPZZ95l +X4Z8Leo6sWAdLNYszchvLoBOkrnJz5O6KCP8atWRhHNAk2nL1XujhxkNwyM3 +ok+BME9J9I4kfbRg3s1x9M2BVX/ubZpJ0cfFqj2KK61yYGnyg2HiMX0sE9o3 +/UwzB6beE2eKsvSx8muf7um5bHhRe3LP0Dl99L7GvvAjJxtO7UwM8q3Qxz2C +hPzutiyQbPPz8nmljyblb0lMSibIJcqbeasZoPqFlzn7XdOhMopf6YO6ARao +k3pY9HRgBs3w7dAywDs3XjgLqKWDj317b4i+Ad7Pejb8buEYFEoEhx6gGWD3 +5w2t+qXHgFheWZDnZICGbZuJ1YtpIN7L+PM6xgAXfe7VdjamgoDqtka3xwZo +9aZkQdQjGXYTwa6iwwAdl67qalklQ6eQ0keeLgMcXeW80dk4GbLmvq1seGGA +2tmnRJpFk0H4SdRmqfcGOFMaFKPwIglEQzNn+8cN8AajfFjWMQlkapoMA0UN +Ue31BtW7zomgyyBWxfoY4sretWk940egTnnXX24/Q+zUvvAHnx8B09W3N+bs +NMQ73DXmT6qOgMVbr6GrwYZIPZVHUIw6Ah778kV69hmil47YjoWFeEgolYrW +TjNE4I3ZCmvj4YWQJPVTpSGuy6dy19kegsiPou12XEZYfVUkZgPPAXjyaNud +cm4j/HZB7qbieCzIVZWxVq80Qv5N1jkir2OhM4F2s1PACP9F0bU0rsWCkuLO +s3ZiRphGjjlHdoiFl/41wXZqRtj7R6Cy9XwM6H93FrRzMELtAA11a4v9MPUz +a7NtvhFu5YtrvfcoEgb6ij0uFhghZWlw2rU+EjrvNHrOFBph3fOVKT+LI+Hq +sSHv88VGOI/XKwLiI2GLtPH27+VGqHQiafqfcSQ8tOgPyrjDsez2fp5r++DC +SY0DHcNGyPfHVYF0LgI26j0qsNUxxmLHIxNtZnvAa5WN+ws9Y8yctNE9LLMH +dn/oEPI0NMbyzHMq7othkJP57GgAxRgvVcq/8W0JgzffXgUlmBvjJkP2s8+M +MAgo+mzYsNkYQ0JCjI9bh0KSyIqnCkeMcfNv/RX1e3bBmdGklGtHjTHLvsGa +4LoLyu7xMnWTjZGyRiY233gXdO7hr6GnG2N86lPz8b8hINK5Ns/jlDE+449X +HMwMgaIkOf+sMmOs+B1tPlgdDHd/0v/OPzfGBFXtnnrhICjuYu3c9NIY65T8 +hmTnAyGl1KizstcYT7Z1zBQOBoKtp9b5wD5jpD/60j9QHQivmkiU3k/GeHB3 +8tIO90AYS/wTWTlrjC1WRYpRlwNAch1rLIBkgqmhlBKw8oc/o4ZurTIm2DNa +nGGr7w8D9ytvS8ub4J35gohgaX8ojipL71E2wZN+/UsfZ3aC9tuzaqhjggtN +HbuaL+8Ei0vRO6XRBMk3Q/5JL++AcG3D9y8DTTApyuOzSJcf7J8nLfiGmKD2 +qz0GUyw/ONzGQ5rcbYLz/eRHn674QabXa+/VESaooX/m4KrDfnA95cA7izgT +PML9fYWDjh8MD9ztq8sxQYuyJcW9633BI9v+7VmWCXrpYoDq4Dbw8TKeV24y +wRbR+i0/mrdBgLKsVG2LCb7kCQt4m78Nom5Pejy/b4L8Nibqipu2Qe7IyTer +ukxwj9inutiOrdDJ6HsdO8SJr8Gmit3ZAozJgFfeAmT8vvwrSvqeF0g2byxp +WUPmxH9RvrvECyaPaUbIC5PRfKPN4bepXnBJcXrNiCgZvxxaky7g6AVL7ocs +I2TImMoI3t814An3mk/WpumRUXTT8X2sFZ5gnnE3t24zGUcPbSiI8tsMJI/i +7ZJeZIw1fRFttXEz/KeUon1wCxnbcgVeGuhuhpIW2ydMXzLKll+p8l50B+7p +V8sdIWTUXv804vN5d2j3+BE+dIiMKqcGT3a+2wRWKgRHoRIyVobdX7kxzA3q +Jx4qBlwl4/bWyKpyDzdQYUXNNZWRcfNDqpSquRvw2nVfDqkgY8vjVd0+km7Q +tjftv/Z6Mlb5ll8duO8KzObZvLjHZEThJeaSjCuQ3V4OfxsnYzZXd272I2co +k05gMafIeK/PTZBV5AwSI9pZZ2fIuHR6L1HgkDPMxqabWM6R0ZPHz01N3xlq +L0L6pWUy3r+dqmle6AR632/pbBalYJ7d3Pq+Q46gfvT4gTYKBVU7v8XkeNpD +C710pQONgmrhF4vYRvbgMn/v1GszCrYP91KF1tnDgfBfN0fNOe0zLARNOuzg +yTa/T8IOFEwKjIyKY9hBCJVst9WPgjWjiy8bdWzhxn+fpGfTKVixbsz0pdZG +YFYuXo/PpKBNEk/wvOBG6NklRebLoeBxq6Rei0lrWBhycCGdpuAZpcxOmxpr +sOtmpeBFCg5ayo8LUq1hrCJ7IquGgqPvzKzcna1AM5B6T/U9Bauqu+37zlrC +CSWnheQBCsr7dt+Rj7eE2cGdJsMfKXhPMepUcoAl3N2SVXHpMwV5FoVmLhtZ +gpvLYJ7UBAV3PTwVpN5rAQfpqRECXKZ4p1Y331fKAp6IvFScUDXFZAEK77U6 +BJ3ukW326qbIGIjktrqEcCprIe+Gpin6cA8s/E1H2ManIhykZ4on3AlR9dsR +phZjFj6amuLeS/R6hzUIkqMyvS/sTdEj1bGWv4cJgXdDUur3mWLtTyHy41Az +mNwzFmsVbYqzTdjcZWkGB2TDQt/EmGJ26uf6lTJmcPzwXrffh0zR0siaJPKM +DtW0GAWzNFMc1Qq3P2ZAh8XG5Jb2AlO8OL04cZeHBqeqLs32tHP6R1y82fuU +AjK+CqP+j0zR5vXP0Xc3KFAqXNI/+8QU3VWHrwumU4C9p7RN8rkpqsTv+Dy3 +gQIftG7mbukzxSZpnYt9rWRQv35be3jcFIuDj1+82moC94peBcxIUNHBj/CV +d9AIhhwUfWMIVBSyqjzU2mYEXH/2eP8lUVH1EUOkuMwILFz5nFYqUPGNdlnO +i3AjeLSCRiFqUtGioFzmC5cRdO28LGDOpGKIQ4Q/W8sQ3qvsrswNoqLfdy3q +rwJ9+Pui8brELiqmeB59t5ykDzLxPFcKQqnIctnroxmqDz6vC/OuRlBxvaF9 +7Ee6Pgyldh9lx1HRktJ6If6OHnz7arxpKIeKuzwuNR9x14XZ68vzeiwq/spY +S0+t1IKvHtZFGbepeDo7pbE5XQv6eLNtPjdT8WPz3BdFfy1o9iOdP9dKRVEp +ncTDBC1IIpjQ/nVw1tuu2h2Qqgnr0ncf7hygok1WmmFvsAZoB7/mCuSm4RXe +eJ87jutBTkLmxl1eGnbVFtWm6KyHde07XQl8NLQuj3HdL7QefspNFz9dQ8Nr +V91uvnymBk1vVlsaStBQv0S5ZJ+LGthYY+ryehr+N6d9TNVHFfxVKwQKHGl4 +/GdotdxpZYh7uH23mgsNn1FUvwXvV4bcQNGntW40fGxZvKLfUxlaSg9mPfWk +oV3239VMWWUQV7NZ+28Hp/9e3cKZG0rwSG1E3C+GhoEajV+GOhVBU11eQe0y +DfemCe+L11AAfNJztLaYhl/fNwZdXqcAHiFpn5hXaWiZ4jjTMSUPydcnSjxv +0PC3tHd4fbY8DKi3qGbU0XCFVqLaiy45yNHw1hp/TEOW5yqjXk9ZmNE8Ta6d +pqHm5H6Nkksk6OtCK7GfNOy3D2AMxZKgNXxyU/QvGpqXt8y4uZIgp9Z2H3mB +hsJWkyaveUmgSeO62cRDx4vc/8Ssw4mw03aPYrskHS+/qnMqtiPAq+CNgq/M +6MgqN3XPXi8JzQK/SCZAx+vxgiMjqyShpKJE45w5HUUiO/aEfpWAiKl/1l7W +dOQZy0heLJUAodj6xAFnOkZmrjinv14CrNMU57/spOO7sKXXVQbiwL7699Ov +dDpa1CdFnQ4UBbJl9LxdJh0zrz8lV9iJQsOnccGibDo+vHSz+5ueKNTKfaTY +naJjXU/yk+cLInAzvzX70gU6PtBUfO50SgSKslKpGyvpaE1Vzp16vA4yotee +zO+lo6DaQSme88LAL5ZeNvGajq1yG6uaQ4UhrYarxaKPjllBhwl1TGFImZz5 +Oj7AWe/YdlmfESE4EvLKzPwrHSVH5KlnTYQgctv50e+/6XhJ1VTN9dMa2LJB +GelyZthGvlw44i8A/17xC7crmKFYTapsBU0AigIn++2UzZBr2uBwlYgAfE27 +HbtF3QyfNKyPiGrlh8gO56qDhmYY4LQt/6MCPxx3OizHtjbDe7xX0+bGV0GT +1+tF471mSNx9aOVoFS/4fG/qbNlnhnGGu3JGsnmBK64of0O0GeqO3a+UCuMF +6wuhxu4HzTDcRTidoMELPR9WhEUlm2HlK96olFIeGNup21+TZ4Y6nblSD69x +g/SeY7d1WzntK13cFru5IGc5yCSzzQz1FI03DTZwAfcp65pvD8yQUs5zfPQC +F4w1rrxR1GGG7YbpHWEhXNDElZIv2suJ/1htiszDBVvOHI2dGzHD6oYdNPuE +JWZ+80GTu2sYKMw7MqVb+pcp6ORdQxJm4KaGLIe2g3+ZR4dMdWLXMbCGtpHn +nNNfZsjK3yr6Egwk2lZL//u9wKQ4x4iXyDEwxHPeu9VlgflmOPJnqgEDX2qQ +UrrX/GFKrA6rcfRkIOMm15bOW3PMq5bxcdPeDJx1XL+UlzrHNIzPsTy9jYHT +Mbr/XfeZYzpNV7/u28HAHcE6qqeF55hpb3798Q9j4GqGoGd81C/m75IEi7hE +BuZfannpbDvLfE8/3VtWwUDvheU35kr/MUP2Xy20rWTg0/I7+9kr/mPOVTYE +jlczUK3MyDXo0wxTVKlv3qCRgVJDJ32DimeY9vyyMndaGVj3leA7qTzDbHlV +FtD7moHHbeIrew2nmXbCbJ2YPgaqLgutPCcxzezb2DFH6GfgTiHWTfGZKeZs +04/07UMM3E2967b2yBRTp1j/1vcxBsoe8+zLL5xktrw3j8maYKB/34pPWoGT +TDvxTaA3zdlPUda8rO4kM+jY/pfRvxh463DluMz9CeZsa1qB1G8G8u36cEE9 +c4KZtJDn37TAwEivyYXczRPMdcY3tH3+MbB1Nj16s8IE89Kepl/LywwMdjKK +3v9jnPk/k5I4Yw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09426506477241416}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.09426506477241416}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk41F8XAHChUCj7zNjX7LsZM2PmHET2LVkqUdYiCVFKskaWtJJUKCrK +zkyoRBspRYuiSCnJ+kuUxDvvX9/n8zz33nOXc+73Ku7c6xbIzcXF1byCi+v/ +37mPHQ9UMq8yvwdRXLjbnJmvLhEOmvclwZ7YtCiWog6gRPdOQt8pqJ/3F49U +ZECMS/lbnr4SeLFC4ytN0RFEJqVO/XlbC17NwZufKfjAYIvT3tm3bVA+Hlvr +JL8HrFXGPsy87YFfL10rI4jx8Oct5ez022EYkTxhJcqdDe2W166+LPkJqc6i +wx3PL4LM4O2vO7X/QbGJolX4jVIQD/Mt57PkwQ/oHuHZXgGnDKybnTbzo/rh +3dIfXlaDXr/3RkYIP36eSPDjGaiGrpQ9vVqH+FGr3cdV+Ws1rOo784O/mB8p ++tGaLgvVcOjIZ+n2cX48sjAb5KNUAwFPjx6mpAjglM35eMt9NUAObGYo1K1G +l8eO5zRX18K7fP3WmXVCGHGzK+z1+joo6K1YG6MqhDXJcQQ+gzrYIrzed4Eq +hIkr3uTr0+pgIFl2idtfCLd+OSYU6lAHQ+GrzcQbhDBnkpUYH1EHoxu+sMje +wtjUZJ4gyaqD39N5VYeK12L2qwInAWY93NYSW15uWIsBaYFyBtb1EBeU45TS +uRZ9vkbHuzjVw2J/ykTWz7W4WpM6vH97PRz9zJboVlqHghsSJbYeqYeU56Wb +hqLXYdF8SFV2Sz1kXk3o5iaKoObMjGWGYQPYGe8SlVAWwanHXRNHqA3A/8Bt +83odESy5d8QmDBsg5bNqv725CI6PbBfUdWqAw0pdX8/sEkFmxt9ax10NEF5E +WFJrEsEi7uP1ixcbwLWwRtt+qyg+iS0IFl/RCOu0L+z1CRTFq11XCpdWNcLz +5pTavXtFcbnCL2xIsBHs+j1NzySLolTNqffHCY1gQVqy/FAhirUJDt/j9BrB +ON9u695FUST09Rc+3toIUmc+Z5y+KIbJYk97RCsbgaDVkPK7TAw7+aSuFdY2 +AqktLcGnWgyLAuna8qxGkJvW2L++XQwzTXjshFsbQdUhwq95VAxNReX6z7xs +BCPef+TPRuKYYrW/0PInJ96F5wY2DHFUcF4o8ZpvBLJhkfYta3E0Nx/1Dfrb +CDQ/S6VYb3HsUPq2FMrDAvOWDKE1CeLISywclBdjgXO05BfDTnHcUhx5Q9OA +BS5rRj/m9YrjmrJoz6fGLHAruf1ucUAcTQf1HgaYssDjxbbuR1PiWLvm2nAi +sMBH+0rTFgkJ/GhtSgt0ZEHoF72TSX4SmLuhS/BlMAuOudsye+YkMN2MmmyZ +xwJS/XMS9wpJ/Gto7GdawIJKMfd5gzWSeMfW+Z3KRRa86dlefVJeEqX3PSn9 +UsICFddoJVcbSXy6l7tn+RYL2hwvr3pxXhJ/To30lbZx5nNL5fPyFUnM9TE2 +lHjIgjHB8nt6lZLYftrJ/PBjFoh01R840caJV/XzmEEXC/zsOsecfkii2FGf +76avWfDP+tfzZ2ZSODgWfqllhAW5ZXEV/6yl0Lc9zOD6N078VVzpOq5SyKiP +zc/8zgKHh6vNswOlMH3NpzHqBAsKLBXqHHKkUCdaq994lgW6V0pPHM6XwvOk +izaDvzjz5dYKu1kihWGhIwWJ8yz4ft9EVZDFGW+yeu7WAgtM0T7v6aAUrq1Q +6ijlYkPX5RdRf79LYWgN6cJabjb4LW920ZqVwo0tD/338bDh2F0/gUx+Aj4w +ihqWWcWGN2Yxh+wMCHhKu+ON2Bo27C786xlHJyAz7N1lhiAb/v09alxuRcBh +amqkrxAbVJozJwS2EJAxvo+ZuZYNUdRi344kAqp/721IFmODXZHwrH0WAV3W +Cd/ZLs4GJb7D6c/PEjBTZfmLoQQbXrzyqOm9zonPu/3yI0k2XKc/sPKoJeAb +x2WTNCk2JJQYvO9rJqDOwbu/mAQ26EYI8nx8TkCai9yfC0Q2rHx7MM+vj4Bx +7qvNkcSGAcY3rc+fCCj9rbzpA8eZa9rcR2cJaPqu1Z5Xhg07I/W+714ioKLM ++eBsjmnvCuMn+IioUfXjzlpZNoyWxZb9RyKiS/aIEpccG+4JjdD2qxDR89cq +cjjH56Lduud1iKg8fC7rNcfh/ff84yhEvHzinTpZng1WFjq/F5GIwuKSQrkc +y9woyEqwI+J+n3P0zxzPruVX5HYnIpfetUY9BTY8jdnfkOJDxGi5/KP7OS75 +MGzLF0zEUyebL9RzfHCDy8eMCCLuaw5aPcGxS8WdSME4Iv44P/NcTpEN6qJa +fCeSicj7s/GHLcfLB/IviGQTEdzE/cM5fjO4Uv/MOSIurdxNyeK40jrqgWQR +EcdkpEOvcJx6a8jr/A0iOvpnc9VzvE3caUK6jogBfhoLdzg2OtSceKmFiPc3 +bdlyn+PVw+qSio+IWGGYo3yX42Gbc+VXuokYWGri9f/+t6t4QO0dEbN5Hyz8 +f/xcyX2914eJGONRJZTNcUj8x2CtcSLGOUSc3ssxfLFfvPWLiBswKceeY0n7 +27n6y0TUM/BfocjxRI2aah0/CTPun56c4qz/AeHMbRNREk4a5XmxOS5MWOHE +libh6ZCf5nEcR30NH6apkjD7vf4tE47tHAdi7uiSUOXi+8Ixzv4r1duuQVMS +KnofETvP8YtEFWMrexIepM9fHuac57XRk08eu5NwS9psUzzHR5yXt9ltJyFF +2CxYlGMd2fepzvtIeJ9P8og6J194UzaSeuJI+G/gy8QNTj4NjNVXuqeQcKA6 +5o8Kx8fZJ95655GQLzt2kk+aDTvk/4UOFJHQfoj8YS8nP03TdnP5lpOwsM07 +8iUnn79tstIIuEPCmrbUgkROvm+YWogL/0zCEVt53XOcejloc0bz/jgJ459Q +r3Vz6qmyWOe92BwJL1oNkHg4Jrj7UW/zSyP1huyipygbxtkP53l0pfHqXMfU +bWE2KIr6XvOgSOP0b4e0dk79eoT+9riB0ki/7qX9mFPfrbJajU6bpLGhsram +ZTUbTiflRp8/II1xuknjfpz74Um/hsp4ojS2XHewo69kw6Jxey8zUxqVetWe +reVlQ9C3X4ZfLkpjWsKsw7UVnPpy2Dqj2y6NtcRnibmLLBiWUAt/ICSDAbFl +Ok4zLJDae09WSkoGB1vm1ndNce7DJ17PdinIIIH8OWrDJAsa4zK11xrJYO3F +uTUqP1hwfHB6zNtLBtUJlOzLX1hgeKM5eKpEBnMgY+vxNywI5t4sZXGT41cO +HZWvWFC4dfLRmQYZFCsQZz3rYcEqYUU12hMZxJZjcn+fs+B9ZNqXlAkZdGPS +I8Q593uimesOkqksGubp37VsZIHN9kv/USxkMVYy5vinOhYIH/2RvNlBFvX1 +lCQP1nDGb08ty/WTRYaA26GzN1nAtmv6sSpDFr9t4vqRzPnfTHspx/x8J4sX +KI9f07JZsH3/r+Ndh+SQbXtgWns7C1TzLGTGUuWQuTVh5+qtLM55nbjFlyuH +yRfuiw97siBuUeOFxVU53J2VYXfUlQVnk7dL3O6Sw5+X4vce2MCCrpOPL5fK +yiPzaJP1Vg0W0CrP1x+5J4+kY7fq+acaYcPb5/8mn8jj9LOP/8X+aAQnLt6N +vj3yqMzLLB3+1gj+buHvYEQel2czosuHGsH6kGLC0ZUK6NtfJM/b0wgR8nNX +zLUUUHxlY8twXSM8CL480R6jgBVJF4cCoxsh7PfM0SdCivhIXgUcvjcAbV+Q +5FdRReSRSL/p+oXznhp7X8FDUEQ10roXboMNUNrf/oappIifbIUdbF43wMe7 +Z7UbyIp4/eD281z3G8A5ldpX7KuIu+c7z5XnNYChaKLeoRpFtCnQyeG1aIA/ +Wus+6mxWQlv20ZbezHowq7hZdO6cMqrsDC/P4qmDGVE7P482FUymTV5/eKAG +vmT5eUTyqSGf9Y7tQQeqwHYq1naEvB5D9MTGWcY3YdyfP6o+QR2JoZtillqu +c97nUtzH2jTQ8IBvhdmhUhB9ppZTPaWJ8VsPru8oKgGZ9CoXMlkblwPZZ95l +X4Z8Leo6sWAdLNYszchvLoBOkrnJz5O6KCP8atWRhHNAk2nL1XujhxkNwyM3 +ok+BME9J9I4kfbRg3s1x9M2BVX/ubZpJ0cfFqj2KK61yYGnyg2HiMX0sE9o3 +/UwzB6beE2eKsvSx8muf7um5bHhRe3LP0Dl99L7GvvAjJxtO7UwM8q3Qxz2C +hPzutiyQbPPz8nmljyblb0lMSibIJcqbeasZoPqFlzn7XdOhMopf6YO6ARao +k3pY9HRgBs3w7dAywDs3XjgLqKWDj317b4i+Ad7Pejb8buEYFEoEhx6gGWD3 +5w2t+qXHgFheWZDnZICGbZuJ1YtpIN7L+PM6xgAXfe7VdjamgoDqtka3xwZo +9aZkQdQjGXYTwa6iwwAdl67qalklQ6eQ0keeLgMcXeW80dk4GbLmvq1seGGA +2tmnRJpFk0H4SdRmqfcGOFMaFKPwIglEQzNn+8cN8AajfFjWMQlkapoMA0UN +Ue31BtW7zomgyyBWxfoY4sretWk940egTnnXX24/Q+zUvvAHnx8B09W3N+bs +NMQ73DXmT6qOgMVbr6GrwYZIPZVHUIw6Ah778kV69hmil47YjoWFeEgolYrW +TjNE4I3ZCmvj4YWQJPVTpSGuy6dy19kegsiPou12XEZYfVUkZgPPAXjyaNud +cm4j/HZB7qbieCzIVZWxVq80Qv5N1jkir2OhM4F2s1PACP9F0bU0rsWCkuLO +s3ZiRphGjjlHdoiFl/41wXZqRtj7R6Cy9XwM6H93FrRzMELtAA11a4v9MPUz +a7NtvhFu5YtrvfcoEgb6ij0uFhghZWlw2rU+EjrvNHrOFBph3fOVKT+LI+Hq +sSHv88VGOI/XKwLiI2GLtPH27+VGqHQiafqfcSQ8tOgPyrjDsez2fp5r++DC +SY0DHcNGyPfHVYF0LgI26j0qsNUxxmLHIxNtZnvAa5WN+ws9Y8yctNE9LLMH +dn/oEPI0NMbyzHMq7othkJP57GgAxRgvVcq/8W0JgzffXgUlmBvjJkP2s8+M +MAgo+mzYsNkYQ0JCjI9bh0KSyIqnCkeMcfNv/RX1e3bBmdGklGtHjTHLvsGa +4LoLyu7xMnWTjZGyRiY233gXdO7hr6GnG2N86lPz8b8hINK5Ns/jlDE+449X +HMwMgaIkOf+sMmOs+B1tPlgdDHd/0v/OPzfGBFXtnnrhICjuYu3c9NIY65T8 +hmTnAyGl1KizstcYT7Z1zBQOBoKtp9b5wD5jpD/60j9QHQivmkiU3k/GeHB3 +8tIO90AYS/wTWTlrjC1WRYpRlwNAch1rLIBkgqmhlBKw8oc/o4ZurTIm2DNa +nGGr7w8D9ytvS8ub4J35gohgaX8ojipL71E2wZN+/UsfZ3aC9tuzaqhjggtN +HbuaL+8Ei0vRO6XRBMk3Q/5JL++AcG3D9y8DTTApyuOzSJcf7J8nLfiGmKD2 +qz0GUyw/ONzGQ5rcbYLz/eRHn674QabXa+/VESaooX/m4KrDfnA95cA7izgT +PML9fYWDjh8MD9ztq8sxQYuyJcW9633BI9v+7VmWCXrpYoDq4Dbw8TKeV24y +wRbR+i0/mrdBgLKsVG2LCb7kCQt4m78Nom5Pejy/b4L8Nibqipu2Qe7IyTer +ukxwj9inutiOrdDJ6HsdO8SJr8Gmit3ZAozJgFfeAmT8vvwrSvqeF0g2byxp +WUPmxH9RvrvECyaPaUbIC5PRfKPN4bepXnBJcXrNiCgZvxxaky7g6AVL7ocs +I2TImMoI3t814An3mk/WpumRUXTT8X2sFZ5gnnE3t24zGUcPbSiI8tsMJI/i +7ZJeZIw1fRFttXEz/KeUon1wCxnbcgVeGuhuhpIW2ydMXzLKll+p8l50B+7p +V8sdIWTUXv804vN5d2j3+BE+dIiMKqcGT3a+2wRWKgRHoRIyVobdX7kxzA3q +Jx4qBlwl4/bWyKpyDzdQYUXNNZWRcfNDqpSquRvw2nVfDqkgY8vjVd0+km7Q +tjftv/Z6Mlb5ll8duO8KzObZvLjHZEThJeaSjCuQ3V4OfxsnYzZXd272I2co +k05gMafIeK/PTZBV5AwSI9pZZ2fIuHR6L1HgkDPMxqabWM6R0ZPHz01N3xlq +L0L6pWUy3r+dqmle6AR632/pbBalYJ7d3Pq+Q46gfvT4gTYKBVU7v8XkeNpD +C710pQONgmrhF4vYRvbgMn/v1GszCrYP91KF1tnDgfBfN0fNOe0zLARNOuzg +yTa/T8IOFEwKjIyKY9hBCJVst9WPgjWjiy8bdWzhxn+fpGfTKVixbsz0pdZG +YFYuXo/PpKBNEk/wvOBG6NklRebLoeBxq6Rei0lrWBhycCGdpuAZpcxOmxpr +sOtmpeBFCg5ayo8LUq1hrCJ7IquGgqPvzKzcna1AM5B6T/U9Bauqu+37zlrC +CSWnheQBCsr7dt+Rj7eE2cGdJsMfKXhPMepUcoAl3N2SVXHpMwV5FoVmLhtZ +gpvLYJ7UBAV3PTwVpN5rAQfpqRECXKZ4p1Y331fKAp6IvFScUDXFZAEK77U6 +BJ3ukW326qbIGIjktrqEcCprIe+Gpin6cA8s/E1H2ManIhykZ4on3AlR9dsR +phZjFj6amuLeS/R6hzUIkqMyvS/sTdEj1bGWv4cJgXdDUur3mWLtTyHy41Az +mNwzFmsVbYqzTdjcZWkGB2TDQt/EmGJ26uf6lTJmcPzwXrffh0zR0siaJPKM +DtW0GAWzNFMc1Qq3P2ZAh8XG5Jb2AlO8OL04cZeHBqeqLs32tHP6R1y82fuU +AjK+CqP+j0zR5vXP0Xc3KFAqXNI/+8QU3VWHrwumU4C9p7RN8rkpqsTv+Dy3 +gQIftG7mbukzxSZpnYt9rWRQv35be3jcFIuDj1+82moC94peBcxIUNHBj/CV +d9AIhhwUfWMIVBSyqjzU2mYEXH/2eP8lUVH1EUOkuMwILFz5nFYqUPGNdlnO +i3AjeLSCRiFqUtGioFzmC5cRdO28LGDOpGKIQ4Q/W8sQ3qvsrswNoqLfdy3q +rwJ9+Pui8brELiqmeB59t5ykDzLxPFcKQqnIctnroxmqDz6vC/OuRlBxvaF9 +7Ee6Pgyldh9lx1HRktJ6If6OHnz7arxpKIeKuzwuNR9x14XZ68vzeiwq/spY +S0+t1IKvHtZFGbepeDo7pbE5XQv6eLNtPjdT8WPz3BdFfy1o9iOdP9dKRVEp +ncTDBC1IIpjQ/nVw1tuu2h2Qqgnr0ncf7hygok1WmmFvsAZoB7/mCuSm4RXe +eJ87jutBTkLmxl1eGnbVFtWm6KyHde07XQl8NLQuj3HdL7QefspNFz9dQ8Nr +V91uvnymBk1vVlsaStBQv0S5ZJ+LGthYY+ryehr+N6d9TNVHFfxVKwQKHGl4 +/GdotdxpZYh7uH23mgsNn1FUvwXvV4bcQNGntW40fGxZvKLfUxlaSg9mPfWk +oV3239VMWWUQV7NZ+28Hp/9e3cKZG0rwSG1E3C+GhoEajV+GOhVBU11eQe0y +DfemCe+L11AAfNJztLaYhl/fNwZdXqcAHiFpn5hXaWiZ4jjTMSUPydcnSjxv +0PC3tHd4fbY8DKi3qGbU0XCFVqLaiy45yNHw1hp/TEOW5yqjXk9ZmNE8Ta6d +pqHm5H6Nkksk6OtCK7GfNOy3D2AMxZKgNXxyU/QvGpqXt8y4uZIgp9Z2H3mB +hsJWkyaveUmgSeO62cRDx4vc/8Ssw4mw03aPYrskHS+/qnMqtiPAq+CNgq/M +6MgqN3XPXi8JzQK/SCZAx+vxgiMjqyShpKJE45w5HUUiO/aEfpWAiKl/1l7W +dOQZy0heLJUAodj6xAFnOkZmrjinv14CrNMU57/spOO7sKXXVQbiwL7699Ov +dDpa1CdFnQ4UBbJl9LxdJh0zrz8lV9iJQsOnccGibDo+vHSz+5ueKNTKfaTY +naJjXU/yk+cLInAzvzX70gU6PtBUfO50SgSKslKpGyvpaE1Vzp16vA4yotee +zO+lo6DaQSme88LAL5ZeNvGajq1yG6uaQ4UhrYarxaKPjllBhwl1TGFImZz5 +Oj7AWe/YdlmfESE4EvLKzPwrHSVH5KlnTYQgctv50e+/6XhJ1VTN9dMa2LJB +GelyZthGvlw44i8A/17xC7crmKFYTapsBU0AigIn++2UzZBr2uBwlYgAfE27 +HbtF3QyfNKyPiGrlh8gO56qDhmYY4LQt/6MCPxx3OizHtjbDe7xX0+bGV0GT +1+tF471mSNx9aOVoFS/4fG/qbNlnhnGGu3JGsnmBK64of0O0GeqO3a+UCuMF +6wuhxu4HzTDcRTidoMELPR9WhEUlm2HlK96olFIeGNup21+TZ4Y6nblSD69x +g/SeY7d1WzntK13cFru5IGc5yCSzzQz1FI03DTZwAfcp65pvD8yQUs5zfPQC +F4w1rrxR1GGG7YbpHWEhXNDElZIv2suJ/1htiszDBVvOHI2dGzHD6oYdNPuE +JWZ+80GTu2sYKMw7MqVb+pcp6ORdQxJm4KaGLIe2g3+ZR4dMdWLXMbCGtpHn +nNNfZsjK3yr6Egwk2lZL//u9wKQ4x4iXyDEwxHPeu9VlgflmOPJnqgEDX2qQ +UrrX/GFKrA6rcfRkIOMm15bOW3PMq5bxcdPeDJx1XL+UlzrHNIzPsTy9jYHT +Mbr/XfeZYzpNV7/u28HAHcE6qqeF55hpb3798Q9j4GqGoGd81C/m75IEi7hE +BuZfannpbDvLfE8/3VtWwUDvheU35kr/MUP2Xy20rWTg0/I7+9kr/mPOVTYE +jlczUK3MyDXo0wxTVKlv3qCRgVJDJ32DimeY9vyyMndaGVj3leA7qTzDbHlV +FtD7moHHbeIrew2nmXbCbJ2YPgaqLgutPCcxzezb2DFH6GfgTiHWTfGZKeZs +04/07UMM3E2967b2yBRTp1j/1vcxBsoe8+zLL5xktrw3j8maYKB/34pPWoGT +TDvxTaA3zdlPUda8rO4kM+jY/pfRvxh463DluMz9CeZsa1qB1G8G8u36cEE9 +c4KZtJDn37TAwEivyYXczRPMdcY3tH3+MbB1Nj16s8IE89Kepl/LywwMdjKK +3v9jnPk/k5I4Yw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09426506477241416}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09426506477241416}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938533965005093`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"a3f94a24-f799-4aea-878d-5b2fca49eeab"] +}, Open ]], Cell[CellGroupData[{ @@ -7223,7 +16076,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -7241,8 +16096,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7262,18 +16117,75 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.75934443598708`*^-129\\\", \ +RowBox[{\\\"680237402890783289504507\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"133\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 73, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993853396554266*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"b74a4fb3-1886-4d31-a6d5-eb43d8dafbc1"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8386967822403315`*^-131\\\", \ +RowBox[{\\\"296311412699225200908163\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"137\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 74, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993853396563971*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8fdd437f-d3cd-44e1-805c-8b85bf4c0b5c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.921628185969252`*^-133\\\", \ +RowBox[{\\\"133014193160682192687674\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"141\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 75, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993853396570673*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"925883e1-6d0d-4d4f-8e01-3fee80a49672"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993853396576339*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"2215eba9-730e-4aee-8c47-88e1d78530c9"], + +Cell[BoxData["8.349397547237908`"], "Output", + CellChangeTimes->{3.9938534474513474`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"72b36f61-a253-4803-9393-33a10499143a"] }, Open ]], Cell[CellGroupData[{ @@ -7340,27 +16252,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850818889292*^9, - 3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\ -5dd8190b0268"], + CellChangeTimes->{{3.991850818889292*^9, 3.9918508230677433`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"905b237c-0e51-ab4b-895d-05994c6f1d5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7756390465049095`*^-214\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 77, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938534474874477`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"7ea83088-4647-4c25-83af-8ade88522096"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ad8c79e-9570-a44d-b593-07aa87056e21"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.046157951452463`*^-220\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 78, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993853447494954*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2fdf25da-8e54-4908-88ff-b7d380030ed9"], -Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.64604832874983`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 143, 79, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993853447502584*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"4576fe35-8f02-42aa-87cb-4b9f94b98f7a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993853447508689*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d49cd7b-e9ba-48e9-ad27-4909153ac99f"], + +Cell[BoxData["0.019853532840756517`"], "Output", + CellChangeTimes->{3.993853452723632*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"e3f0d524-f4fc-45fd-a85c-db6b345b53c3"] }, Open ]], Cell[CellGroupData[{ @@ -7381,8 +16339,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7427,27 +16384,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850826380268*^9, - 3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\ -98d71f8a8458"], + CellChangeTimes->{{3.991850826380268*^9, 3.991850829169306*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c516c31a-74b4-f24d-a16a-678221cde87e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7756390465049095`*^-214\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 81, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993853452758659*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"f28d56c9-6b50-4598-a538-d5f0086223a0"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"5c50b555-9ebe-f94d-801f-34634555f622"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.046157951452463`*^-220\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 82, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993853452766149*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"26e04db2-80ad-4043-b80d-6f56527243c6"], -Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.64604832874983`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 144, 83, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993853452772471*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"bc998eab-bc7f-4ac0-bb8a-7743ae066775"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99385345277815*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"daf6421a-3b5e-422e-8e91-d5d50cd086e7"], + +Cell[BoxData["17.769180843447266`"], "Output", + CellChangeTimes->{3.9938534591042767`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"626edf84-b274-4463-bca6-3360dc7fdb5a"] }, Open ]], Cell[CellGroupData[{ @@ -7468,8 +16471,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7514,27 +16516,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918508329145336`*^9, - 3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\ -57c1fe1d0585"], + CellChangeTimes->{{3.9918508329145336`*^9, 3.991850837197098*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ca591cf-a5ce-ce41-8101-8edfca50e890"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7756390465049095`*^-214\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 85, + 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938534591667557`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"179014ea-1c34-4bbe-90b1-4b7e837a97e2"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cbafd11a-4be0-b541-81e4-e62191ae7695"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.046157951452463`*^-220\\\", \ +RowBox[{\\\"111907153680443277505994\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"51\\\", \\\"\[RightSkeleton]\\\"}], \\\"1183104000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 86, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938534591786747`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a72319c0-42a2-4a9f-be2c-e0877e7464f1"], -Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.64604832874983`*^-225\\\", \ +RowBox[{\\\"197404219092301941520573\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"54\\\", \\\"\[RightSkeleton]\\\"}], \\\"6995456000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 145, 87, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938534591846333`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"625c5f85-b36a-4fcb-91d2-5bc862a1ca3f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31384996388695007102, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938534591899776`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0657c413-6acc-430d-b8f5-18143f796ed1"], + +Cell[BoxData["2.0637739041389764`"], "Output", + CellChangeTimes->{3.9938534619040613`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"7cdb6e9c-e3b0-4e2a-8852-a4561063cb8c"] }, Open ]], Cell[CellGroupData[{ @@ -7543,17 +16591,22 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918508397421246`*^9, - 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ -1ca469b254bd"], + CellChangeTimes->{{3.9918508397421246`*^9, 3.9918508449867363`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +Cell[BoxData["0.003278483759087229`"], "Output", + CellChangeTimes->{3.993853461937002*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"8223d6e6-2653-4c7e-b2f9-62c346d747a4"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +Evaluator->"kernel 4", +WindowSize->{714, 288}, +WindowMargins->{{Automatic, 3}, {Automatic, 15}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +Magnification:>1.8 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" ] @@ -7568,354 +16621,640 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], -Cell[706, 26, 152, 3, 28, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], -Cell[861, 31, 147, 4, 28, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], -Cell[1011, 37, 154, 3, 28, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ -Cell[1190, 44, 1273, 41, 113, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[2466, 87, 106, 0, 32, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[576, 22, 300, 5, 52, "Input",ExpressionUUID->"c970a514-c264-4110-a0ef-043e8aaa2b1d"], +Cell[879, 29, 269, 4, 59, "Output",ExpressionUUID->"e6cae810-f7d0-4a01-9a81-4e4e773d713b"] }, Open ]], Cell[CellGroupData[{ -Cell[2609, 92, 910, 31, 56, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[3522, 125, 106, 0, 32, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[1185, 38, 245, 4, 52, "Input",ExpressionUUID->"3aa73156-bae5-4f58-b255-293cf17f76ff"], +Cell[1433, 44, 273, 4, 59, "Output",ExpressionUUID->"a63b3616-65b1-45e7-9ddc-5a27d523fbe7"] }, Open ]], Cell[CellGroupData[{ -Cell[3665, 130, 885, 30, 56, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[4553, 162, 106, 0, 32, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[1743, 53, 228, 4, 52, "Input",ExpressionUUID->"82fa63e9-3b7d-4d4b-a300-dcb22c26d159"], +Cell[1974, 59, 271, 4, 59, "Output",ExpressionUUID->"8408f13a-4937-48f2-9c04-9bf5eb3db3bd"] }, Open ]], Cell[CellGroupData[{ -Cell[4696, 167, 532, 18, 52, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[5231, 187, 101, 0, 32, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[2282, 68, 175, 3, 52, "Input",ExpressionUUID->"434ae237-5f95-429f-a927-a018b4b6cec0"], +Cell[2460, 73, 272, 4, 59, "Output",ExpressionUUID->"7ed9d7a7-a4b4-48a8-aa12-19fe67729669"] }, Open ]], Cell[CellGroupData[{ -Cell[5369, 192, 625, 21, 52, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[5997, 215, 100, 0, 32, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[2769, 82, 257, 7, 75, "Input",ExpressionUUID->"add06471-a1fc-446c-a29d-8e3602c68963"], +Cell[3029, 91, 287, 4, 59, "Output",ExpressionUUID->"e0c11148-4e28-4100-b70a-644efe9ec004"] }, Open ]], Cell[CellGroupData[{ -Cell[6134, 220, 144, 4, 56, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[6281, 226, 101, 0, 32, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[3353, 100, 131, 2, 52, "Input",ExpressionUUID->"fb396560-5e46-46fb-81ea-75151a4f3cb9"], +Cell[3487, 104, 275, 4, 59, "Output",ExpressionUUID->"b65ce5f6-7680-4cee-a84a-513db970950c"] }, Open ]], Cell[CellGroupData[{ -Cell[6419, 231, 144, 4, 55, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[6566, 237, 100, 0, 70, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[3799, 113, 276, 6, 52, "Input",ExpressionUUID->"5a92e802-bd3b-48ce-81f0-db562afc05c0"], +Cell[4078, 121, 288, 4, 59, "Output",ExpressionUUID->"48d6d062-5d70-4d82-8d77-6687336a914c"] }, Open ]], Cell[CellGroupData[{ -Cell[6703, 242, 155, 4, 70, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[6861, 248, 101, 0, 70, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[4403, 130, 257, 7, 52, "Input",ExpressionUUID->"40505347-518b-4f43-a35a-4a47ecb1c57c"], +Cell[4663, 139, 284, 4, 59, "Output",ExpressionUUID->"adf2ade8-256f-47e0-b8e7-bdd914e3f55f"] }, Open ]], Cell[CellGroupData[{ -Cell[6999, 253, 155, 4, 70, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[7157, 259, 101, 0, 70, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[4984, 148, 224, 4, 52, "Input",ExpressionUUID->"a4b2ecd0-6027-4a0c-8938-d37ba36c6939"], +Cell[5211, 154, 251, 4, 59, "Output",ExpressionUUID->"5e58e60f-2fcc-43af-bfad-51d2d37fd2cb"] }, Open ]], Cell[CellGroupData[{ -Cell[7295, 264, 6029, 184, 70, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[13327, 450, 102, 0, 70, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[5499, 163, 226, 4, 52, "Input",ExpressionUUID->"7e2ebc7e-82ad-4233-80bd-925be93b1650"], +Cell[5728, 169, 254, 4, 59, "Output",ExpressionUUID->"2497cef0-786e-481e-9bde-329ebdf6b3c2"] }, Open ]], Cell[CellGroupData[{ -Cell[13466, 455, 342, 8, 70, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[13811, 465, 342, 6, 70, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], -Cell[14156, 473, 100, 0, 70, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[6019, 178, 129, 2, 52, "Input",ExpressionUUID->"8700d390-c3df-46ef-8e86-2ae77f0c3028"], +Cell[6151, 182, 270, 4, 59, "Output",ExpressionUUID->"1c8410cc-7892-417a-8862-48bc81837651"] }, Open ]], Cell[CellGroupData[{ -Cell[14293, 478, 6096, 186, 70, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[20392, 666, 103, 0, 70, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[6458, 191, 129, 2, 52, "Input",ExpressionUUID->"0313e860-89b9-49da-9797-b3ae279e8660"], +Cell[6590, 195, 270, 4, 59, "Output",ExpressionUUID->"d983b690-2265-4435-8fd2-14b6dbfe7121"] }, Open ]], Cell[CellGroupData[{ -Cell[20532, 671, 342, 8, 70, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[20877, 681, 342, 6, 70, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], -Cell[21222, 689, 100, 0, 70, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[6897, 204, 557, 19, 141, "Input",ExpressionUUID->"9062c959-237b-4b3e-8ad0-462f4e001716"], +Cell[7457, 225, 293, 4, 59, "Output",ExpressionUUID->"3cf3a52d-5e71-4d10-8aa1-8d9a321b0278"] }, Open ]], Cell[CellGroupData[{ -Cell[21359, 694, 2637, 87, 70, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[23999, 783, 101, 0, 70, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[7787, 234, 557, 19, 141, "Input",ExpressionUUID->"d7a62204-9c95-4014-9409-7a29789ba465"], +Cell[8347, 255, 288, 4, 59, "Output",ExpressionUUID->"868ad187-6d24-4d5d-9561-d5de63cd5759"] }, Open ]], Cell[CellGroupData[{ -Cell[24137, 788, 2577, 84, 70, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[26717, 874, 102, 0, 70, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[8672, 264, 1588, 50, 555, "Input",ExpressionUUID->"bf2f1a7a-6cb7-45e6-90f8-e30657e2ab97"], +Cell[10263, 316, 285, 4, 59, "Output",ExpressionUUID->"30e6204f-4182-4f79-947e-93d0ec74b3dc"] }, Open ]], Cell[CellGroupData[{ -Cell[26856, 879, 3686, 117, 70, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[30545, 998, 102, 0, 70, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] -}, Open ]], -Cell[30662, 1001, 138, 3, 70, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], -Cell[CellGroupData[{ -Cell[30825, 1008, 2054, 59, 70, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], -Cell[32882, 1069, 342, 6, 70, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], -Cell[33227, 1077, 342, 6, 70, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], -Cell[33572, 1085, 100, 0, 70, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[10585, 325, 1422, 46, 518, "Input",ExpressionUUID->"cc657ac5-d7cf-46a9-b8a4-18e228ab1c2f"], +Cell[12010, 373, 310, 5, 59, "Output",ExpressionUUID->"9d21523e-f1f5-4c90-b5ac-97835af6973e"] }, Open ]], Cell[CellGroupData[{ -Cell[33709, 1090, 2049, 58, 70, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], -Cell[35761, 1150, 342, 6, 70, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], -Cell[36106, 1158, 342, 6, 70, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], -Cell[36451, 1166, 100, 0, 70, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[12357, 383, 1422, 46, 518, "Input",ExpressionUUID->"03795c7a-1f49-48c9-b784-5fc7b0754f87"], +Cell[13782, 431, 308, 5, 59, "Output",ExpressionUUID->"e989719b-c0fb-459e-84d9-cbb884d01549"] }, Open ]], Cell[CellGroupData[{ -Cell[36588, 1171, 1938, 53, 70, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], -Cell[38529, 1226, 342, 6, 70, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], -Cell[38874, 1234, 342, 6, 70, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], -Cell[39219, 1242, 342, 6, 70, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], -Cell[39564, 1250, 407, 7, 70, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], -Cell[39974, 1259, 8018, 364, 70, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], -Cell[47995, 1625, 191, 5, 70, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +Cell[14127, 441, 1588, 50, 555, "Input",ExpressionUUID->"f7c3374b-126d-4d93-88ab-21116462eff7"], +Cell[15718, 493, 285, 4, 59, "Output",ExpressionUUID->"66e4f79d-9fdf-410f-bcbf-a0a566c5c3c3"] }, Open ]], Cell[CellGroupData[{ -Cell[48223, 1635, 2094, 60, 70, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], -Cell[50320, 1697, 342, 6, 70, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], -Cell[50665, 1705, 342, 6, 70, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], -Cell[51010, 1713, 342, 6, 70, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], -Cell[51355, 1721, 407, 7, 70, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], -Cell[51765, 1730, 8024, 353, 70, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], -Cell[59792, 2085, 191, 5, 70, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] -}, Open ]], -Cell[59998, 2093, 232, 6, 70, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], -Cell[60233, 2101, 209, 5, 70, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], -Cell[CellGroupData[{ -Cell[60467, 2110, 215, 7, 70, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[60685, 2119, 100, 0, 70, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[16040, 502, 131, 2, 52, "Input",ExpressionUUID->"8e05df19-cae6-421f-b14a-94fbf678f660"], +Cell[16174, 506, 274, 4, 59, "Output",ExpressionUUID->"ca3ee269-7880-4103-9dda-df82bf94569e"] }, Open ]], Cell[CellGroupData[{ -Cell[60822, 2124, 1814, 53, 70, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], -Cell[62639, 2179, 342, 6, 70, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], -Cell[62984, 2187, 342, 6, 70, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], -Cell[63329, 2195, 342, 6, 70, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], -Cell[63674, 2203, 407, 7, 70, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], -Cell[64084, 2212, 8187, 365, 70, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], -Cell[72274, 2579, 191, 5, 70, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +Cell[16485, 515, 133, 2, 52, "Input",ExpressionUUID->"09aae351-7f1c-4da8-b454-3512d716b95a"], +Cell[16621, 519, 273, 4, 59, "Output",ExpressionUUID->"f947f7d5-f7fd-4986-b5b6-1dea2aee288d"] }, Open ]], Cell[CellGroupData[{ -Cell[72502, 2589, 1590, 47, 70, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], -Cell[74095, 2638, 342, 6, 70, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], -Cell[74440, 2646, 101, 0, 70, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[16931, 528, 134, 2, 52, "Input",ExpressionUUID->"157691d4-0f5d-41e0-9140-a7a99a80e6ba"], +Cell[17068, 532, 276, 4, 59, "Output",ExpressionUUID->"b37e8744-0209-4b28-aa47-03111d1d4e24"] }, Open ]], Cell[CellGroupData[{ -Cell[74578, 2651, 2247, 64, 70, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], -Cell[76828, 2717, 342, 6, 70, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], -Cell[77173, 2725, 342, 6, 70, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], -Cell[77518, 2733, 103, 0, 70, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[17381, 541, 219, 4, 52, "Input",ExpressionUUID->"2069e1c8-d93d-41f2-a82b-e492a8ee03a1"], +Cell[17603, 547, 287, 5, 59, "Output",ExpressionUUID->"84bb83b6-fe99-4ad8-bd54-a8c9d9f2bf39"] }, Open ]], Cell[CellGroupData[{ -Cell[77658, 2738, 2219, 64, 70, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], -Cell[79880, 2804, 342, 6, 70, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], -Cell[80225, 2812, 342, 6, 70, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], -Cell[80570, 2820, 100, 0, 70, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[17927, 557, 134, 2, 52, "Input",ExpressionUUID->"0626a310-0f90-4912-bc3a-7822390fea05"], +Cell[18064, 561, 277, 4, 59, "Output",ExpressionUUID->"b9a50ae9-1c7e-4d8a-a394-f630617dd1bc"] }, Open ]], Cell[CellGroupData[{ -Cell[80707, 2825, 2221, 64, 70, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], -Cell[82931, 2891, 342, 6, 70, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], -Cell[83276, 2899, 342, 6, 70, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], -Cell[83621, 2907, 101, 0, 70, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[18378, 570, 328, 5, 52, "Input",ExpressionUUID->"f0af1773-93b4-45b5-bdd9-66460c01a81a"], +Cell[18709, 577, 273, 4, 59, "Output",ExpressionUUID->"b12f267c-6bf3-454a-9688-bdbb543502d4"] }, Open ]], Cell[CellGroupData[{ -Cell[83759, 2912, 215, 6, 70, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[83977, 2920, 104, 0, 70, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] -}, Open ]], -Cell[84096, 2923, 247, 5, 70, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], -Cell[CellGroupData[{ -Cell[84368, 2932, 532, 18, 70, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[84903, 2952, 100, 0, 70, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[19019, 586, 295, 5, 52, "Input",ExpressionUUID->"de1530f9-575e-443e-bc18-17397dd34dcf"], +Cell[19317, 593, 273, 4, 59, "Output",ExpressionUUID->"1ebef2b1-bed3-4897-8d51-554de9b6c29f"] }, Open ]], Cell[CellGroupData[{ -Cell[85040, 2957, 144, 4, 70, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[85187, 2963, 100, 0, 70, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[19627, 602, 219, 4, 52, "Input",ExpressionUUID->"0d248353-e792-4323-8a17-199026105302"], +Cell[19849, 608, 275, 4, 59, "Output",ExpressionUUID->"70954b8d-1a45-49d3-97e7-7b7419b8f21b"] }, Open ]], Cell[CellGroupData[{ -Cell[85324, 2968, 155, 4, 70, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[85482, 2974, 100, 0, 70, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[20161, 617, 350, 10, 75, "Input",ExpressionUUID->"a170b3ae-76b4-4274-b3de-0ffd8c598fa4"], +Cell[20514, 629, 297, 4, 59, "Output",ExpressionUUID->"280e0893-8a5b-42bc-9b56-a99f9d872fb2"] }, Open ]], Cell[CellGroupData[{ -Cell[85619, 2979, 6029, 184, 70, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[91651, 3165, 102, 0, 70, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[20848, 638, 350, 10, 75, "Input",ExpressionUUID->"6e515b0a-1a45-4569-b799-d21a93d7d008"], +Cell[21201, 650, 304, 5, 59, "Output",ExpressionUUID->"711667f0-e4ce-4657-9e3e-aaba48a24a14"] }, Open ]], Cell[CellGroupData[{ -Cell[91790, 3170, 342, 8, 70, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[92135, 3180, 342, 6, 70, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], -Cell[92480, 3188, 99, 0, 70, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[21542, 660, 994, 26, 459, "Input",ExpressionUUID->"4cd30f86-f280-40d1-bc35-6518e7c12fb6"], +Cell[22539, 688, 288, 4, 59, "Output",ExpressionUUID->"fa8722d8-e606-4833-86a7-694d9e7f4c56"] }, Open ]], Cell[CellGroupData[{ -Cell[92616, 3193, 6096, 186, 70, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[98715, 3381, 102, 0, 70, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[22864, 697, 199, 3, 52, "Input",ExpressionUUID->"7420ddf0-c2a5-404d-972d-22dffaeb4a08"], +Cell[23066, 702, 272, 4, 59, "Output",ExpressionUUID->"ff0ee179-a4ea-47e0-959e-19a10cd179a5"] }, Open ]], Cell[CellGroupData[{ -Cell[98854, 3386, 342, 8, 70, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[99199, 3396, 342, 6, 70, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], -Cell[99544, 3404, 100, 0, 70, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[23375, 711, 326, 5, 52, "Input",ExpressionUUID->"5c43ff43-e9f2-49f4-869d-8619ba62f690"], +Cell[23704, 718, 250, 4, 59, "Output",ExpressionUUID->"b36ce9e1-08f7-49e1-a81f-fbe85c636d0a"] +}, Open ]], +Cell[23969, 725, 173, 2, 73, "Input",ExpressionUUID->"8035fed7-fff3-4c2f-802a-080a7f09baca"], +Cell[CellGroupData[{ +Cell[24167, 731, 327, 5, 52, "Input",ExpressionUUID->"b25d6bb2-343d-4ffb-af0f-6e6daca02b07"], +Cell[24497, 738, 255, 4, 59, "Output",ExpressionUUID->"4b4cc827-5c91-4798-9e08-85edfffac7c0"] +}, Open ]], +Cell[24767, 745, 173, 2, 73, "Input",ExpressionUUID->"b965b8e2-0c23-4d91-a768-0b59d51c9921"], +Cell[CellGroupData[{ +Cell[24965, 751, 329, 5, 52, "Input",ExpressionUUID->"0d836c65-1caf-42f0-89a9-b74458b358d9"], +Cell[25297, 758, 252, 4, 59, "Output",ExpressionUUID->"625f81df-ea85-4f00-bf04-86f476a6e54b"] +}, Open ]], +Cell[25564, 765, 173, 2, 73, "Input",ExpressionUUID->"5208a081-efd4-4225-9399-ba35fc8ac8a6"], +Cell[CellGroupData[{ +Cell[25762, 771, 354, 5, 52, "Input",ExpressionUUID->"b1a1fc4c-6c96-4aa3-b2a8-e6cfc976228a"], +Cell[26119, 778, 252, 4, 59, "Output",ExpressionUUID->"90ad223f-bca4-4f10-b0a9-27219361f852"] +}, Open ]], +Cell[26386, 785, 171, 2, 73, "Input",ExpressionUUID->"234ae4a9-f79c-4749-bcc5-cb4612f3391f"], +Cell[CellGroupData[{ +Cell[26582, 791, 299, 5, 52, "Input",ExpressionUUID->"42672907-f309-4577-9d98-84bac7f327a4"], +Cell[26884, 798, 251, 4, 59, "Output",ExpressionUUID->"66ede755-45b5-49ab-8122-ab8f05ae8a1b"] +}, Open ]], +Cell[27150, 805, 171, 2, 73, "Input",ExpressionUUID->"227202ee-b311-4677-af80-52177eaf1640"], +Cell[CellGroupData[{ +Cell[27346, 811, 303, 5, 52, "Input",ExpressionUUID->"a0041b19-1241-4879-8b63-95d36ef018cd"], +Cell[27652, 818, 255, 4, 59, "Output",ExpressionUUID->"4e9ecdd5-7af2-4bfb-ac62-748d93437473"] +}, Open ]], +Cell[27922, 825, 173, 2, 73, "Input",ExpressionUUID->"42017933-8f58-4c7e-8b58-5f870ac79c50"], +Cell[CellGroupData[{ +Cell[28120, 831, 306, 5, 52, "Input",ExpressionUUID->"6687b50f-899c-42ac-b29d-29c330a11bc9"], +Cell[28429, 838, 252, 4, 59, "Output",ExpressionUUID->"3147ad28-24e2-48a3-a440-47172bdac6c1"] +}, Open ]], +Cell[28696, 845, 172, 2, 73, "Input",ExpressionUUID->"ef95eb08-f131-4f51-aa9c-5cb2fb28e13a"], +Cell[CellGroupData[{ +Cell[28893, 851, 275, 4, 52, "Input",ExpressionUUID->"353c56a8-48a0-4cfd-b1ab-33495941b3c3"], +Cell[29171, 857, 252, 4, 59, "Output",ExpressionUUID->"8ed8c580-074c-4d00-a7cc-b226f9118568"] +}, Open ]], +Cell[29438, 864, 175, 2, 73, "Input",ExpressionUUID->"52933fb9-e8e4-4d94-b73d-5656b4a1caa5"], +Cell[CellGroupData[{ +Cell[29638, 870, 19809, 485, 6103, "Input",ExpressionUUID->"b307bfe4-6578-48c8-8bed-576ace1c952f"], +Cell[49450, 1357, 291, 4, 59, "Output",ExpressionUUID->"3611dd77-3f00-4178-ad57-8762972750b2"] }, Open ]], Cell[CellGroupData[{ -Cell[99681, 3409, 2637, 87, 70, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[102321, 3498, 101, 0, 70, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[49778, 1366, 19748, 489, 6152, "Input",ExpressionUUID->"fb6802e5-6168-41d0-bb67-1d1676ce6e16"], +Cell[69529, 1857, 291, 4, 59, "Output",ExpressionUUID->"e972e05a-4823-4d29-86ae-56a6401917c4"] }, Open ]], Cell[CellGroupData[{ -Cell[102459, 3503, 2577, 84, 70, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[105039, 3589, 102, 0, 70, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[69857, 1866, 19748, 483, 6126, "Input",ExpressionUUID->"333d083a-fb74-4795-86cf-01753834658e"], +Cell[89608, 2351, 302, 5, 59, "Output",ExpressionUUID->"6450afa8-a5d9-49b6-b2f1-53a8e38e3f22"] }, Open ]], Cell[CellGroupData[{ -Cell[105178, 3594, 3686, 117, 70, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[108867, 3713, 102, 0, 70, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[89947, 2361, 22534, 553, 6975, "Input",ExpressionUUID->"55822fbc-bf86-433c-9252-c992ab2637bb"], +Cell[112484, 2916, 305, 5, 59, "Output",ExpressionUUID->"4a086f54-b4ba-45c7-8592-a3b1c50d824e"] }, Open ]], Cell[CellGroupData[{ -Cell[109006, 3718, 2052, 59, 70, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], -Cell[111061, 3779, 342, 6, 70, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], -Cell[111406, 3787, 342, 6, 70, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], -Cell[111751, 3795, 101, 0, 70, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[112826, 2926, 22535, 553, 7037, "Input",ExpressionUUID->"077f1073-fca8-4399-b4db-023167dbe0fc"], +Cell[135364, 3481, 310, 5, 59, "Output",ExpressionUUID->"a0cc4172-a721-4a8e-9e6a-7ba9d3f16e39"] }, Open ]], Cell[CellGroupData[{ -Cell[111889, 3800, 2054, 59, 70, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], -Cell[113946, 3861, 342, 6, 70, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], -Cell[114291, 3869, 342, 6, 70, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], -Cell[114636, 3877, 100, 0, 70, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[135711, 3491, 25491, 626, 7925, "Input",ExpressionUUID->"1b89d108-fbfa-4121-bf5b-4936a08491fd"], +Cell[161205, 4119, 302, 5, 59, "Output",ExpressionUUID->"c2947a86-e5bf-4f02-9240-3a46f8b28e4e"] }, Open ]], Cell[CellGroupData[{ -Cell[114773, 3882, 2030, 55, 70, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], -Cell[116806, 3939, 342, 6, 70, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], -Cell[117151, 3947, 342, 6, 70, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], -Cell[117496, 3955, 342, 6, 70, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], -Cell[117841, 3963, 407, 7, 70, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], -Cell[118251, 3972, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], -Cell[127686, 4412, 191, 5, 70, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +Cell[161544, 4129, 130, 2, 52, "Input",ExpressionUUID->"42e9dff9-1d3a-480e-8a91-ecc651e77a4c"], +Cell[161677, 4133, 271, 4, 59, "Output",ExpressionUUID->"e0159b45-915a-4ba0-8d1e-05d4faab6f07"] }, Open ]], Cell[CellGroupData[{ -Cell[127914, 4422, 2118, 60, 70, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], -Cell[130035, 4484, 342, 6, 70, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], -Cell[130380, 4492, 342, 6, 70, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], -Cell[130725, 4500, 342, 6, 70, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], -Cell[131070, 4508, 407, 7, 70, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], -Cell[131480, 4517, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], -Cell[140029, 4887, 191, 5, 70, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] -}, Open ]], -Cell[140235, 4895, 209, 5, 70, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], -Cell[CellGroupData[{ -Cell[140469, 4904, 1590, 47, 70, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], -Cell[142062, 4953, 342, 6, 70, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], -Cell[142407, 4961, 101, 0, 70, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[161985, 4142, 130, 2, 52, "Input",ExpressionUUID->"f0c06393-ba85-410f-8197-b253ff4aaa21"], +Cell[162118, 4146, 272, 4, 59, "Output",ExpressionUUID->"23789401-f29e-467b-8f69-d7730761f768"] }, Open ]], Cell[CellGroupData[{ -Cell[142545, 4966, 2251, 64, 70, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], -Cell[144799, 5032, 342, 6, 70, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], -Cell[145144, 5040, 342, 6, 70, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], -Cell[145489, 5048, 101, 0, 70, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[162427, 4155, 1144, 39, 581, "Input",ExpressionUUID->"a3fcaca2-a214-4e63-adb9-2f9d5b8bb6fb"], +Cell[163574, 4196, 285, 4, 59, "Output",ExpressionUUID->"104432d5-cd71-4c4f-a1a1-b10001da8fa5"] }, Open ]], Cell[CellGroupData[{ -Cell[145627, 5053, 2220, 64, 70, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], -Cell[147850, 5119, 342, 6, 70, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], -Cell[148195, 5127, 342, 6, 70, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], -Cell[148540, 5135, 101, 0, 70, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[163896, 4205, 1041, 35, 578, "Input",ExpressionUUID->"68c30f15-677d-482b-b549-3ff3886cd692"], +Cell[164940, 4242, 308, 5, 59, "Output",ExpressionUUID->"4429f17f-c3bc-4115-b4d5-440ef4cf2a6c"] }, Open ]], Cell[CellGroupData[{ -Cell[148678, 5140, 2223, 64, 70, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], -Cell[150904, 5206, 342, 6, 70, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], -Cell[151249, 5214, 342, 6, 70, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], -Cell[151594, 5222, 101, 0, 70, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[165285, 4252, 1144, 39, 581, "Input",ExpressionUUID->"2048c3f4-4eb8-4c06-a38f-01b1fed86922"], +Cell[166432, 4293, 290, 4, 59, "Output",ExpressionUUID->"6bbd03c8-2bae-45ba-a54e-2c18a3e0de6c"] }, Open ]], Cell[CellGroupData[{ -Cell[151732, 5227, 215, 6, 70, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[151950, 5235, 102, 0, 70, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] -}, Open ]], -Cell[152067, 5238, 247, 5, 70, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], -Cell[CellGroupData[{ -Cell[152339, 5247, 532, 18, 70, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[152874, 5267, 101, 0, 70, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[166759, 4302, 108, 1, 52, "Input",ExpressionUUID->"b7933d31-4988-45a2-921d-3d45c695ed58"], +Cell[166870, 4305, 286, 4, 59, "Output",ExpressionUUID->"b366e839-49bc-43c4-9e93-a686f0d196be"] }, Open ]], Cell[CellGroupData[{ -Cell[153012, 5272, 144, 4, 70, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[153159, 5278, 101, 0, 70, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[167193, 4314, 108, 1, 52, "Input",ExpressionUUID->"cec47719-b175-4417-8145-d785123a5bf0"], +Cell[167304, 4317, 307, 5, 59, "Output",ExpressionUUID->"d3b4f38b-05d6-49cc-9dad-daffc8e421df"] }, Open ]], Cell[CellGroupData[{ -Cell[153297, 5283, 155, 4, 70, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[153455, 5289, 100, 0, 70, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[167648, 4327, 108, 1, 52, "Input",ExpressionUUID->"f2304888-789d-4fa0-a4be-e66f79233489"], +Cell[167759, 4330, 307, 5, 59, "Output",ExpressionUUID->"2d633fe9-d929-45f8-9507-b0669cb96f22"] }, Open ]], Cell[CellGroupData[{ -Cell[153592, 5294, 6029, 184, 70, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[159624, 5480, 102, 0, 70, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[168103, 4340, 108, 1, 52, "Input",ExpressionUUID->"ec132e20-9550-4789-91a8-085005edc93a"], +Cell[168214, 4343, 292, 4, 59, "Output",ExpressionUUID->"52f516c9-df98-4abd-bb56-7c6699826319"] }, Open ]], Cell[CellGroupData[{ -Cell[159763, 5485, 342, 8, 70, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[160108, 5495, 342, 6, 70, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], -Cell[160453, 5503, 100, 0, 70, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[168543, 4352, 107, 1, 52, "Input",ExpressionUUID->"83397ab3-3cf7-4a88-aae8-b8b5c3611de1"], +Cell[168653, 4355, 290, 4, 59, "Output",ExpressionUUID->"3cb17c5f-f5d8-4089-9d67-4233fea3750b"] }, Open ]], Cell[CellGroupData[{ -Cell[160590, 5508, 6096, 186, 70, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[166689, 5696, 102, 0, 70, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[168980, 4364, 107, 1, 52, "Input",ExpressionUUID->"ba0fe4c1-9ec6-4d9f-8b0d-d0a5a7e6e2e1"], +Cell[169090, 4367, 288, 4, 59, "Output",ExpressionUUID->"97779b39-cff2-4978-b569-9598e956c874"] }, Open ]], Cell[CellGroupData[{ -Cell[166828, 5701, 342, 8, 70, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[167173, 5711, 342, 6, 70, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], -Cell[167518, 5719, 99, 0, 70, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[169415, 4376, 497, 16, 170, "Input",ExpressionUUID->"e379d23c-f567-4938-84d6-25a04feef797"], +Cell[169915, 4394, 306, 5, 59, "Output",ExpressionUUID->"11508937-0f6b-4cd2-97a0-8131286be825"] }, Open ]], Cell[CellGroupData[{ -Cell[167654, 5724, 2637, 87, 70, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[170294, 5813, 101, 0, 70, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[170258, 4404, 497, 16, 170, "Input",ExpressionUUID->"dc28f312-1556-4ae4-a1ce-6bad090e6c84"], +Cell[170758, 4422, 301, 5, 59, "Output",ExpressionUUID->"c5afb22b-f6f3-4916-bc23-db94c332d463"] }, Open ]], Cell[CellGroupData[{ -Cell[170432, 5818, 2577, 84, 70, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[173012, 5904, 102, 0, 70, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[171096, 4432, 1788, 60, 850, "Input",ExpressionUUID->"cc315b3f-2d84-4cdb-b246-c3d121afba33"], +Cell[172887, 4494, 289, 4, 59, "Output",ExpressionUUID->"00b810cd-d57e-4314-989b-e437f35b706b"] }, Open ]], Cell[CellGroupData[{ -Cell[173151, 5909, 3686, 117, 70, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[176840, 6028, 102, 0, 70, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[173213, 4503, 1101, 36, 617, "Input",ExpressionUUID->"aa60a75e-1139-465d-85ac-9ad6749126d8"], +Cell[174317, 4541, 308, 5, 59, "Output",ExpressionUUID->"4ca926ba-d4ba-4dbf-a676-a22543e8e465"] }, Open ]], Cell[CellGroupData[{ -Cell[176979, 6033, 2054, 59, 70, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], -Cell[179036, 6094, 342, 6, 70, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], -Cell[179381, 6102, 342, 6, 70, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], -Cell[179726, 6110, 100, 0, 70, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[174662, 4551, 1818, 61, 850, "Input",ExpressionUUID->"5903c9f7-5795-4bd1-8ca0-eadc4ab032cb"], +Cell[176483, 4614, 285, 4, 59, "Output",ExpressionUUID->"b14d05b5-6917-41ae-bdcf-507db27701b4"] }, Open ]], Cell[CellGroupData[{ -Cell[179863, 6115, 2054, 59, 70, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], -Cell[181920, 6176, 342, 6, 70, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], -Cell[182265, 6184, 342, 6, 70, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], -Cell[182610, 6192, 100, 0, 70, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[176805, 4623, 1631, 53, 464, "Input",ExpressionUUID->"985d0d12-d718-4755-a421-bc7178ea0c27"], +Cell[178439, 4678, 289, 4, 59, "Output",ExpressionUUID->"c843f2d1-ef65-4ef6-9b2c-0162bb840003"] }, Open ]], Cell[CellGroupData[{ -Cell[182747, 6197, 2030, 55, 70, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], -Cell[184780, 6254, 342, 6, 70, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], -Cell[185125, 6262, 342, 6, 70, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], -Cell[185470, 6270, 342, 6, 70, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], -Cell[185815, 6278, 407, 7, 70, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], -Cell[186225, 6287, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], -Cell[195660, 6727, 191, 5, 70, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +Cell[178765, 4687, 1710, 55, 597, "Input",ExpressionUUID->"79390877-6350-4f64-8cb1-578407df1c71"], +Cell[180478, 4744, 290, 4, 59, "Output",ExpressionUUID->"89b1bc5f-120e-42be-8f21-b313e3aa5ad3"] }, Open ]], Cell[CellGroupData[{ -Cell[195888, 6737, 2143, 61, 70, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], -Cell[198034, 6800, 342, 6, 70, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], -Cell[198379, 6808, 342, 6, 70, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], -Cell[198724, 6816, 342, 6, 70, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], -Cell[199069, 6824, 407, 7, 70, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], -Cell[199479, 6833, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], -Cell[208028, 7203, 191, 5, 70, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +Cell[180805, 4753, 201, 3, 52, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[181009, 4758, 156, 2, 59, "Output",ExpressionUUID->"d2c5be96-a707-472f-9c7b-3deeb0a91c3f"] }, Open ]], -Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[181180, 4763, 171, 2, 52, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], Cell[CellGroupData[{ -Cell[208397, 7218, 1590, 47, 70, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], -Cell[209990, 7267, 342, 6, 70, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], -Cell[210335, 7275, 101, 0, 70, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[181376, 4769, 228, 4, 52, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[181607, 4775, 156, 2, 59, "Output",ExpressionUUID->"ce226dee-70d6-44f8-8903-5d432a73ac98"] +}, Open ]], +Cell[181778, 4780, 173, 2, 52, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[181976, 4786, 1297, 42, 244, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[183276, 4830, 170, 2, 59, "Output",ExpressionUUID->"319f5fd9-7517-4b83-aa94-d2fc5fc2996a"] }, Open ]], Cell[CellGroupData[{ -Cell[210473, 7280, 2249, 64, 70, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], -Cell[212725, 7346, 342, 6, 70, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], -Cell[213070, 7354, 342, 6, 70, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], -Cell[213415, 7362, 100, 0, 70, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[183483, 4837, 929, 30, 241, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[184415, 4869, 172, 2, 59, "Output",ExpressionUUID->"5f7ed3d1-7ba7-48e0-915a-ac93fcd70fb2"] }, Open ]], Cell[CellGroupData[{ -Cell[213552, 7367, 2219, 64, 70, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], -Cell[215774, 7433, 342, 6, 70, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], -Cell[216119, 7441, 342, 6, 70, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], -Cell[216464, 7449, 99, 0, 70, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[184624, 4876, 904, 29, 241, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[185531, 4907, 171, 2, 59, "Output",ExpressionUUID->"4262fa39-fbc7-4daa-a8e3-317be279eae6"] }, Open ]], Cell[CellGroupData[{ -Cell[216600, 7454, 2221, 64, 70, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], -Cell[218824, 7520, 342, 6, 70, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], -Cell[219169, 7528, 342, 6, 70, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], -Cell[219514, 7536, 101, 0, 70, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[185739, 4914, 554, 18, 93, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[186296, 4934, 166, 2, 59, "Output",ExpressionUUID->"879e3eb3-9fbc-40d7-a081-969191127146"] }, Open ]], Cell[CellGroupData[{ -Cell[219652, 7541, 215, 6, 70, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[219870, 7549, 102, 0, 70, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +Cell[186499, 4941, 647, 21, 163, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[187149, 4964, 166, 2, 59, "Output",ExpressionUUID->"64f684c2-6f8f-47f3-8b30-7189d2c4ac49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187352, 4971, 166, 4, 98, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[187521, 4977, 167, 2, 59, "Output",ExpressionUUID->"e6214e7e-5586-48be-88f9-f4e7e323fec8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187725, 4984, 166, 4, 97, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[187894, 4990, 169, 2, 59, "Output",ExpressionUUID->"fb464bfe-bbb6-4faa-8549-436ae460fb6d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188100, 4997, 177, 4, 77, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[188280, 5003, 165, 2, 59, "Output",ExpressionUUID->"dc6cc8e6-b299-49f5-a87a-dcceaa794e1b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188482, 5010, 177, 4, 77, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[188662, 5016, 168, 2, 59, "Output",ExpressionUUID->"199b3c41-8fba-4085-83dd-50c35e6544e4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188867, 5023, 6051, 184, 1957, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[194921, 5209, 171, 2, 59, "Output",ExpressionUUID->"57e101a0-d5ce-4a6f-a690-d9add671a731"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195129, 5216, 364, 8, 75, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[195496, 5226, 168, 2, 59, "Output",ExpressionUUID->"9c6d19e5-ac39-4f2d-9500-90a0e86e6ac4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195701, 5233, 6118, 186, 1865, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[201822, 5421, 168, 2, 59, "Output",ExpressionUUID->"a3121a1d-55bd-4dda-bb10-b245be1c475c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202027, 5428, 364, 8, 75, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[202394, 5438, 167, 2, 59, "Output",ExpressionUUID->"3fcc08e8-1d11-495d-8cbd-d163e0203cb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202598, 5445, 2659, 87, 804, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[205260, 5534, 167, 2, 59, "Output",ExpressionUUID->"9fd86425-b123-439c-ab1b-f621b15289fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205464, 5541, 2599, 84, 804, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[208066, 5627, 167, 2, 59, "Output",ExpressionUUID->"edc0746b-cd18-40e8-87ac-43dc937b40b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208270, 5634, 3708, 117, 1253, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[211981, 5753, 168, 2, 59, "Output",ExpressionUUID->"7931b3c1-6630-44ea-92d7-06f2aedd0a04"] +}, Open ]], +Cell[212164, 5758, 160, 3, 126, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[212349, 5765, 2209, 61, 594, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[214561, 5828, 614, 14, 176, "Message",ExpressionUUID->"73551088-43b1-405f-88d6-1e948aa77a7b"], +Cell[215178, 5844, 611, 14, 176, "Message",ExpressionUUID->"708fd42a-d728-4c63-ab64-8ce2bda90938"], +Cell[215792, 5860, 612, 14, 176, "Message",ExpressionUUID->"6adce30c-ee97-4e12-8d8a-854dcc01314f"], +Cell[216407, 5876, 470, 11, 77, "Message",ExpressionUUID->"a618b3d5-bb69-4c7c-9823-8697dffd0676"], +Cell[216880, 5889, 165, 2, 59, "Output",ExpressionUUID->"7d3bce5b-9772-4ef3-89d8-d68d98eafdfb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217082, 5896, 2206, 61, 594, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[219291, 5959, 612, 14, 176, "Message",ExpressionUUID->"2c875bfe-090c-49f0-a1fc-c2ae9291c628"], +Cell[219906, 5975, 612, 14, 176, "Message",ExpressionUUID->"536bf514-041a-42e5-992d-fbd30722ab8a"], +Cell[220521, 5991, 611, 14, 176, "Message",ExpressionUUID->"ff7d54d4-7c00-47e5-bee6-50081e507969"], +Cell[221135, 6007, 468, 11, 77, "Message",ExpressionUUID->"086fa721-8144-4cf2-b736-2a797e22d300"], +Cell[221606, 6020, 166, 2, 59, "Output",ExpressionUUID->"3b5780e5-c04a-4dd3-95b8-ab016de54260"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221809, 6027, 2049, 54, 432, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[223861, 6083, 20001, 376, 314, "Output",ExpressionUUID->"1a8d7880-01bf-455a-abb9-3745aebb6e0f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243899, 6464, 2249, 62, 698, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[246151, 6528, 505, 12, 176, "Message",ExpressionUUID->"0643ceeb-d1d9-468a-aa00-5903cde712fa"], +Cell[246659, 6542, 510, 12, 176, "Message",ExpressionUUID->"7d1469fd-e464-4914-9f57-c3668f684128"], +Cell[247172, 6556, 524, 12, 81, "Message",ExpressionUUID->"92f92933-cd5d-4104-af6b-e79d8c42ee8c"], +Cell[247699, 6570, 469, 11, 77, "Message",ExpressionUUID->"cabd8cb6-e179-4a8b-8270-3004e6d91848"], +Cell[248171, 6583, 34327, 611, 329, "Output",ExpressionUUID->"3df1e345-70ac-497e-8162-2755eb24c791"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282535, 7199, 2475, 69, 637, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[285013, 7270, 9492, 222, 329, "Output",ExpressionUUID->"1c0c0579-0055-435c-8742-421915059db8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294542, 7497, 228, 4, 52, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[294773, 7503, 40711, 743, 329, "Output",ExpressionUUID->"d2e9e7f8-62e2-4b6a-9b96-57b0540da635"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335521, 8251, 234, 6, 85, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[335758, 8259, 168, 2, 59, "Output",ExpressionUUID->"2e68cb0e-24e9-4ed6-af4f-3936bf3bf59e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335963, 8266, 1968, 55, 643, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[337934, 8323, 612, 14, 176, "Message",ExpressionUUID->"3cc54d66-67df-4117-9fc1-00e9651701a3"], +Cell[338549, 8339, 613, 14, 176, "Message",ExpressionUUID->"8048a9dd-a40d-412a-a551-03d7aeb30947"], +Cell[339165, 8355, 613, 14, 176, "Message",ExpressionUUID->"0bbd98d8-1061-4dca-bb17-e8f0f17e204a"], +Cell[339781, 8371, 469, 11, 77, "Message",ExpressionUUID->"a52b3209-50e7-4cad-b07f-58e0955762c7"], +Cell[340253, 8384, 32923, 587, 320, "Output",ExpressionUUID->"8949990d-6456-49e4-a7c3-70a0c8c66203"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373213, 8976, 1648, 50, 433, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[374864, 9028, 615, 14, 176, "Message",ExpressionUUID->"f374b8d4-681e-42b4-84d3-a884cec6ebc8"], +Cell[375482, 9044, 615, 14, 176, "Message",ExpressionUUID->"2912a076-2b41-464d-8d3e-721d922e1e59"], +Cell[376100, 9060, 615, 14, 176, "Message",ExpressionUUID->"85ea0811-4ff0-4ee2-9bc8-76ccd6e2e77d"], +Cell[376718, 9076, 471, 11, 77, "Message",ExpressionUUID->"c0b86410-695a-4ffd-98b1-810472b6f98e"], +Cell[377192, 9089, 170, 3, 59, "Output",ExpressionUUID->"b7f8ec73-3bc6-4ae9-981a-11400f82db10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377399, 9097, 2270, 64, 652, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[379672, 9163, 617, 14, 176, "Message",ExpressionUUID->"1c7846cf-5f5b-4b56-9031-ef43e4aa3339"], +Cell[380292, 9179, 615, 14, 176, "Message",ExpressionUUID->"091ba1cb-fc43-47a6-b1c2-29f6ffe11126"], +Cell[380910, 9195, 617, 14, 176, "Message",ExpressionUUID->"27968280-2130-465c-bdfc-b83947e75f32"], +Cell[381530, 9211, 471, 11, 77, "Message",ExpressionUUID->"593950b3-12ac-4ec8-b2e3-cf668934af55"], +Cell[382004, 9224, 175, 3, 59, "Output",ExpressionUUID->"339ac22a-3736-4863-ac57-78134000bb25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382216, 9232, 2231, 63, 652, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[384450, 9297, 615, 14, 176, "Message",ExpressionUUID->"cf600c38-050e-4d20-ae42-117bcbfcc657"], +Cell[385068, 9313, 617, 14, 176, "Message",ExpressionUUID->"a8271c37-cea5-4c8b-9f7d-a51903473f99"], +Cell[385688, 9329, 615, 14, 176, "Message",ExpressionUUID->"948711fa-fa4a-46ca-8d29-9a93d5b66e3e"], +Cell[386306, 9345, 471, 11, 77, "Message",ExpressionUUID->"0083ce07-598a-41a5-bcc5-7719486b21de"], +Cell[386780, 9358, 173, 3, 59, "Output",ExpressionUUID->"4240135c-d2da-45fb-b8bd-3f7b87fe70da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386990, 9366, 2233, 63, 652, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[389226, 9431, 617, 14, 176, "Message",ExpressionUUID->"4199cb66-fe88-4669-bbf6-f3f82d9839e1"], +Cell[389846, 9447, 615, 14, 176, "Message",ExpressionUUID->"faafb214-52c6-4c3d-bfda-294d3421391e"], +Cell[390464, 9463, 615, 14, 176, "Message",ExpressionUUID->"7be7b14a-dab2-4bb4-9449-3f21b65d351e"], +Cell[391082, 9479, 471, 11, 77, "Message",ExpressionUUID->"18a0b045-ac33-44f0-a78d-e09cb91e20b8"], +Cell[391556, 9492, 171, 3, 59, "Output",ExpressionUUID->"250476ce-d1e8-4464-a0d2-62efc480368a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391764, 9500, 238, 6, 83, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[392005, 9508, 173, 3, 59, "Output",ExpressionUUID->"d38ae367-904a-4604-aa60-b1c61fe2bbdb"] +}, Open ]], +Cell[392193, 9514, 273, 6, 126, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[392491, 9524, 558, 19, 93, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[393052, 9545, 170, 3, 59, "Output",ExpressionUUID->"f50eeedd-19df-4a94-a510-083de09b25c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393259, 9553, 170, 5, 98, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[393432, 9560, 172, 3, 59, "Output",ExpressionUUID->"d972aa02-e10e-4fef-b57e-5c1041288b74"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393641, 9568, 181, 5, 77, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[393825, 9575, 172, 3, 59, "Output",ExpressionUUID->"4712f9e0-14cb-413d-a775-c24d907bd878"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394034, 9583, 6055, 185, 1957, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[400092, 9770, 175, 3, 59, "Output",ExpressionUUID->"0a5ff222-4925-44f8-b1e9-7eb437dde874"] +}, Open ]], +Cell[CellGroupData[{ +Cell[400304, 9778, 368, 9, 75, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[400675, 9789, 170, 3, 59, "Output",ExpressionUUID->"e81e122d-264f-4651-ab63-b235fe769d2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[400882, 9797, 6122, 187, 1865, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[407007, 9986, 172, 3, 59, "Output",ExpressionUUID->"af26deac-2ce6-4eab-9b21-0cf72fdebbca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[407216, 9994, 368, 9, 75, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[407587, 10005, 171, 3, 59, "Output",ExpressionUUID->"b95aca18-9989-47b6-98c6-d3281dc9f807"] +}, Open ]], +Cell[CellGroupData[{ +Cell[407795, 10013, 2663, 88, 804, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[410461, 10103, 172, 3, 59, "Output",ExpressionUUID->"5cea8dba-7b2a-4160-8a3c-88ee14a71b5c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[410670, 10111, 2603, 85, 804, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[413276, 10198, 170, 3, 59, "Output",ExpressionUUID->"8575dc37-4f3a-422b-8bd8-45679d371e98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[413483, 10206, 3712, 118, 1253, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[417198, 10326, 174, 3, 59, "Output",ExpressionUUID->"33baca9c-b7e4-4818-8933-58d11d7958b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[417409, 10334, 2211, 62, 594, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[419623, 10398, 607, 13, 176, "Message",ExpressionUUID->"19485de0-4b03-4dcc-b96b-4be637b24506"], +Cell[420233, 10413, 612, 13, 176, "Message",ExpressionUUID->"1e52048e-87d2-4f27-af0e-9436dbb750d7"], +Cell[420848, 10428, 610, 13, 176, "Message",ExpressionUUID->"c35ea1ef-319a-4faf-bc7f-634a6beb835b"], +Cell[421461, 10443, 471, 11, 77, "Message",ExpressionUUID->"5243f702-c89c-49b6-a09e-ba12de864874"], +Cell[421935, 10456, 172, 3, 59, "Output",ExpressionUUID->"fcb13d42-ae3c-43e0-b973-84229870334f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[422144, 10464, 2213, 62, 594, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[424360, 10528, 608, 13, 176, "Message",ExpressionUUID->"2fbae2bb-2fbe-4f56-93f3-fd97ea97a2e2"], +Cell[424971, 10543, 610, 13, 176, "Message",ExpressionUUID->"6e5ed560-c81d-417f-a6ca-e0ea0654dfad"], +Cell[425584, 10558, 612, 13, 176, "Message",ExpressionUUID->"996d78cb-d4a6-47b7-8cb3-8bcec46958bb"], +Cell[426199, 10573, 471, 11, 77, "Message",ExpressionUUID->"b72606c5-3924-48c3-a8a8-fe410f94011c"], +Cell[426673, 10586, 171, 3, 59, "Output",ExpressionUUID->"2bf9e185-dbc3-4461-9b4a-2c8a91849be7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[426881, 10594, 2053, 55, 432, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[428937, 10651, 20359, 381, 321, "Output",ExpressionUUID->"d9bbb722-ce47-455d-8dc6-b675781daabf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[449333, 11037, 2277, 63, 698, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[451613, 11102, 512, 12, 147, "Message",ExpressionUUID->"ff17a85d-49de-408f-b8c7-7072b29de295"], +Cell[452128, 11116, 515, 12, 176, "Message",ExpressionUUID->"48dc7d03-29fe-4689-ab78-2b742c8c8de4"], +Cell[452646, 11130, 519, 12, 176, "Message",ExpressionUUID->"671f5762-ced1-4b49-9939-e33951ef8bd0"], +Cell[453168, 11144, 471, 11, 77, "Message",ExpressionUUID->"08c7351d-5c5c-4548-be62-2b4fbe5df77f"], +Cell[453642, 11157, 34697, 618, 326, "Output",ExpressionUUID->"0ba5dac3-c2cf-4eb4-8455-7df1dfe3acf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488376, 11780, 232, 5, 52, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[488611, 11787, 41081, 750, 326, "Output",ExpressionUUID->"4d8c2e73-e873-4890-9245-0c3f305d4ed2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529729, 12542, 1648, 50, 433, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[531380, 12594, 614, 14, 176, "Message",ExpressionUUID->"a2da5a76-bcaa-4bb9-981c-38c67ed20ece"], +Cell[531997, 12610, 614, 14, 176, "Message",ExpressionUUID->"0f980fde-9f4d-4908-a27e-6c1675410933"], +Cell[532614, 12626, 615, 14, 176, "Message",ExpressionUUID->"86cd68f4-9eaa-48b4-97d8-3c7d1d833df2"], +Cell[533232, 12642, 470, 11, 77, "Message",ExpressionUUID->"c06cdf5c-d218-4e68-9125-030c80804bb6"], +Cell[533705, 12655, 170, 3, 59, "Output",ExpressionUUID->"6abb0bd8-a4f6-4e26-a7f0-d0d3a11b7e93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533912, 12663, 2274, 64, 652, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[536189, 12729, 610, 13, 176, "Message",ExpressionUUID->"3658884f-a9d5-4f92-9f30-4d5b64f66e33"], +Cell[536802, 12744, 612, 13, 176, "Message",ExpressionUUID->"5b42bdae-e241-4ad0-aa5e-3707db3fe701"], +Cell[537417, 12759, 610, 13, 176, "Message",ExpressionUUID->"b59f5658-0c99-4bfc-8cba-dcb80480cb3d"], +Cell[538030, 12774, 471, 11, 77, "Message",ExpressionUUID->"4e7e125b-3c31-441d-aa32-0bd8079604a8"], +Cell[538504, 12787, 171, 3, 59, "Output",ExpressionUUID->"88c9f3cb-29ad-4511-a721-810f50907164"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538712, 12795, 2232, 63, 652, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[540947, 12860, 608, 13, 176, "Message",ExpressionUUID->"123f62fc-d2bc-4fda-856c-70009ac38f25"], +Cell[541558, 12875, 610, 13, 176, "Message",ExpressionUUID->"ef6838f0-1bc4-4e7b-b32a-8728fe58222a"], +Cell[542171, 12890, 612, 13, 176, "Message",ExpressionUUID->"4fe3021f-fd1e-413a-ac15-d27a2f308e5d"], +Cell[542786, 12905, 473, 11, 77, "Message",ExpressionUUID->"de4deb7a-6f74-4c4a-934c-85200df275c4"], +Cell[543262, 12918, 173, 3, 59, "Output",ExpressionUUID->"cc34bc09-44ff-461a-82e0-229389267eb6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[543472, 12926, 2235, 63, 652, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[545710, 12991, 610, 13, 176, "Message",ExpressionUUID->"cd1798b9-a0e1-4c5e-ac1f-dda90f170fc2"], +Cell[546323, 13006, 610, 13, 176, "Message",ExpressionUUID->"cd552bac-55c8-4915-81e9-f1a6cf1d6f07"], +Cell[546936, 13021, 610, 13, 176, "Message",ExpressionUUID->"927e9f03-7518-43e8-ba86-78edc3bdc4d7"], +Cell[547549, 13036, 473, 11, 77, "Message",ExpressionUUID->"3e87b60f-a99f-43cd-b607-eda5bc98ae7b"], +Cell[548025, 13049, 173, 3, 59, "Output",ExpressionUUID->"9f92557a-8e01-4013-84fb-98aa41d7f9ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[548235, 13057, 238, 6, 83, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[548476, 13065, 175, 3, 59, "Output",ExpressionUUID->"7d283087-c353-492f-abd2-afd174c9d707"] +}, Open ]], +Cell[548666, 13071, 273, 6, 126, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[548964, 13081, 558, 19, 93, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[549525, 13102, 171, 3, 59, "Output",ExpressionUUID->"3907a1f2-3b6f-46c3-92b3-e202e7ff717f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549733, 13110, 170, 5, 98, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[549906, 13117, 171, 3, 59, "Output",ExpressionUUID->"547bca4d-f35a-41a1-83c3-e3ac8f9c100b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[550114, 13125, 181, 5, 77, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[550298, 13132, 170, 3, 59, "Output",ExpressionUUID->"fe3123f2-117b-4aa0-a4bd-75578053a6cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[550505, 13140, 6055, 185, 1957, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[556563, 13327, 175, 3, 59, "Output",ExpressionUUID->"8bb374f2-301c-46d1-9331-984f89998b5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556775, 13335, 368, 9, 75, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[557146, 13346, 170, 3, 59, "Output",ExpressionUUID->"309e3259-be3c-4532-80f8-98df3ae7a3dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[557353, 13354, 6122, 187, 1865, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[563478, 13543, 172, 3, 59, "Output",ExpressionUUID->"628d29fd-aac7-41f5-87d7-d0fd47d25aee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[563687, 13551, 368, 9, 75, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[564058, 13562, 169, 3, 59, "Output",ExpressionUUID->"20e94de4-1965-462c-a320-30748b83164a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564264, 13570, 2663, 88, 804, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[566930, 13660, 172, 3, 59, "Output",ExpressionUUID->"8897288a-d277-430e-bd66-7b47799e99f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[567139, 13668, 2603, 85, 804, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[569745, 13755, 173, 3, 59, "Output",ExpressionUUID->"5017912d-a823-4252-ace6-7d73785cf7ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569955, 13763, 3712, 118, 1253, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[573670, 13883, 172, 3, 59, "Output",ExpressionUUID->"cccb2b7b-4b32-4588-b350-624ebc5c0f2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[573879, 13891, 2213, 62, 594, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[576095, 13955, 615, 14, 176, "Message",ExpressionUUID->"a9793396-58ff-436e-87f8-73da480e2e63"], +Cell[576713, 13971, 609, 13, 176, "Message",ExpressionUUID->"603e43a8-51ed-4b4e-9143-5f67c885e5b7"], +Cell[577325, 13986, 608, 13, 176, "Message",ExpressionUUID->"ac8f77db-b010-4390-815e-ce13b3d771a9"], +Cell[577936, 14001, 471, 11, 77, "Message",ExpressionUUID->"05bfc177-e09b-4be7-bf40-31a6aeb809de"], +Cell[578410, 14014, 170, 3, 59, "Output",ExpressionUUID->"d67a8576-587d-4835-8562-7853b026f2d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[578617, 14022, 2213, 62, 594, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[580833, 14086, 617, 14, 176, "Message",ExpressionUUID->"60735fb9-d6f3-4be5-9eda-f9872f864138"], +Cell[581453, 14102, 609, 13, 176, "Message",ExpressionUUID->"3d55b5f7-f878-45d4-a004-3cae7ad22664"], +Cell[582065, 14117, 608, 13, 176, "Message",ExpressionUUID->"d08e549b-b256-4615-8824-3eab25c78173"], +Cell[582676, 14132, 473, 11, 77, "Message",ExpressionUUID->"67840d33-c4ed-4141-b2e0-40cb5f017e2a"], +Cell[583152, 14145, 170, 3, 59, "Output",ExpressionUUID->"fc518199-cc21-4ece-84c9-62f636ad4952"] +}, Open ]], +Cell[CellGroupData[{ +Cell[583359, 14153, 2053, 55, 432, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[585415, 14210, 20314, 381, 321, "Output",ExpressionUUID->"d6ef2515-fb33-43f7-8986-16f34d4b6f82"] +}, Open ]], +Cell[CellGroupData[{ +Cell[605766, 14596, 2301, 64, 698, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[608070, 14662, 513, 12, 147, "Message",ExpressionUUID->"f908e2a4-e04c-4954-8b0c-a3feec95d215"], +Cell[608586, 14676, 516, 12, 176, "Message",ExpressionUUID->"0423e01d-1ada-4fce-9f5a-db73587f4d71"], +Cell[609105, 14690, 518, 12, 176, "Message",ExpressionUUID->"80312c75-e740-4fa1-82c7-61b71e36c6e4"], +Cell[609626, 14704, 471, 11, 77, "Message",ExpressionUUID->"672722ba-9647-4e3c-9d04-8d2385036246"], +Cell[610100, 14717, 33806, 603, 320, "Output",ExpressionUUID->"b2edc9ba-a156-41ec-937b-2947c5be14cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[643943, 15325, 164, 4, 52, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[644110, 15331, 40192, 735, 320, "Output",ExpressionUUID->"a3f94a24-f799-4aea-878d-5b2fca49eeab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[684339, 16071, 1648, 50, 433, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[685990, 16123, 613, 14, 176, "Message",ExpressionUUID->"b74a4fb3-1886-4d31-a6d5-eb43d8dafbc1"], +Cell[686606, 16139, 615, 14, 176, "Message",ExpressionUUID->"8fdd437f-d3cd-44e1-805c-8b85bf4c0b5c"], +Cell[687224, 16155, 614, 14, 176, "Message",ExpressionUUID->"925883e1-6d0d-4d4f-8e01-3fee80a49672"], +Cell[687841, 16171, 471, 11, 77, "Message",ExpressionUUID->"2215eba9-730e-4aee-8c47-88e1d78530c9"], +Cell[688315, 16184, 172, 3, 59, "Output",ExpressionUUID->"72b36f61-a253-4803-9393-33a10499143a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[688524, 16192, 2272, 64, 652, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[690799, 16258, 617, 14, 176, "Message",ExpressionUUID->"7ea83088-4647-4c25-83af-8ade88522096"], +Cell[691419, 16274, 609, 13, 176, "Message",ExpressionUUID->"2fdf25da-8e54-4908-88ff-b7d380030ed9"], +Cell[692031, 16289, 608, 13, 176, "Message",ExpressionUUID->"4576fe35-8f02-42aa-87cb-4b9f94b98f7a"], +Cell[692642, 16304, 471, 11, 77, "Message",ExpressionUUID->"2d49cd7b-e9ba-48e9-ad27-4909153ac99f"], +Cell[693116, 16317, 173, 3, 59, "Output",ExpressionUUID->"e3f0d524-f4fc-45fd-a85c-db6b345b53c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[693326, 16325, 2231, 63, 652, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[695560, 16390, 615, 14, 176, "Message",ExpressionUUID->"f28d56c9-6b50-4598-a538-d5f0086223a0"], +Cell[696178, 16406, 609, 13, 176, "Message",ExpressionUUID->"26e04db2-80ad-4043-b80d-6f56527243c6"], +Cell[696790, 16421, 608, 13, 176, "Message",ExpressionUUID->"bc998eab-bc7f-4ac0-bb8a-7743ae066775"], +Cell[697401, 16436, 470, 11, 77, "Message",ExpressionUUID->"daf6421a-3b5e-422e-8e91-d5d50cd086e7"], +Cell[697874, 16449, 173, 3, 59, "Output",ExpressionUUID->"626edf84-b274-4463-bca6-3360dc7fdb5a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[698084, 16457, 2233, 63, 652, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[700320, 16522, 617, 14, 176, "Message",ExpressionUUID->"179014ea-1c34-4bbe-90b1-4b7e837a97e2"], +Cell[700940, 16538, 611, 13, 176, "Message",ExpressionUUID->"a72319c0-42a2-4a9f-be2c-e0877e7464f1"], +Cell[701554, 16553, 610, 13, 176, "Message",ExpressionUUID->"625c5f85-b36a-4fcb-91d2-5bc862a1ca3f"], +Cell[702167, 16568, 473, 11, 77, "Message",ExpressionUUID->"0657c413-6acc-430d-b8f5-18143f796ed1"], +Cell[702643, 16581, 173, 3, 59, "Output",ExpressionUUID->"7cdb6e9c-e3b0-4e2a-8852-a4561063cb8c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[702853, 16589, 238, 6, 83, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[703094, 16597, 173, 3, 59, "Output",ExpressionUUID->"8223d6e6-2653-4c7e-b2f9-62c346d747a4"] }, Open ]] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw1.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw1.nb index 98b5145..3215f85 100644 --- a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 574707, 14399] -NotebookOptionsPosition[ 532725, 13728] -NotebookOutlinePosition[ 533166, 13746] -CellTagsIndexPosition[ 533123, 13743] +NotebookDataLength[ 741755, 17356] +NotebookOptionsPosition[ 698999, 16671] +NotebookOutlinePosition[ 699462, 16690] +CellTagsIndexPosition[ 699419, 16687] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,31 +25,28 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.993804130253289*^9, 3.9938041708483353`*^9}}, - CellLabel-> - "In[308]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], + CellLabel->"In[1]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], Cell[BoxData["4.2`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.99380408955241*^9, {3.993804138192917*^9, - 3.993804174131279*^9}}, - CellLabel-> - "Out[308]=",ExpressionUUID->"8bcc869c-02b6-4b6c-b8d4-2a9c1b3be3f4"] + 3.993804174131279*^9}, 3.993848807080508*^9, 3.993849990516943*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"13edd4a7-57d6-4827-9179-655d5331a610"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"A", "=", "236"}]], "Input", - CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}}, - CellLabel-> - "In[309]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.99384955061726*^9, 3.993849552454216*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[BoxData["236"], "Output", +Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.993804089814312*^9, {3.993804138273077*^9, - 3.993804174168432*^9}}, - CellLabel-> - "Out[309]=",ExpressionUUID->"6ba6e445-a6c8-4c1a-b99a-1b3790d34b4b"] + 3.993804174168432*^9}, 3.993848807152666*^9, 3.9938499908397007`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"e19fce7a-361a-4025-baf2-ce5fa0fac9de"] }, Open ]], Cell[CellGroupData[{ @@ -58,15 +55,13 @@ Cell[BoxData[ RowBox[{"A1", "=", " ", "154"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.993803793560568*^9, 3.9938037958215322`*^9}}, - CellLabel-> - "In[310]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + CellLabel->"In[3]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], Cell[BoxData["154"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.993804089831574*^9, {3.993804138291234*^9, - 3.993804174184713*^9}}, - CellLabel-> - "Out[310]=",ExpressionUUID->"68a4b771-590d-461b-a6c1-3c0c7402d89f"] + 3.993804174184713*^9}, 3.993848807170314*^9, 3.9938499908500967`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"54ea73d4-4df9-4373-9a4f-006ec8158187"] }, Open ]], Cell[CellGroupData[{ @@ -74,15 +69,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[311]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.993804089848836*^9, {3.993804138308714*^9, - 3.9938041741991873`*^9}}, - CellLabel-> - "Out[311]=",ExpressionUUID->"d786de7f-b858-4e73-9dc1-c9f55fe4d0f3"] + 3.9938041741991873`*^9}, 3.993848807187145*^9, 3.993849990858671*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"88242743-0945-4493-9a1f-026edbd79f55"] }, Open ]], Cell[CellGroupData[{ @@ -94,30 +87,26 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[312]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[BoxData["0.5454237288135594`"], "Output", +Cell[BoxData["0.5457500000000001`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.993804089866067*^9, {3.993804138325652*^9, - 3.993804174213254*^9}}, - CellLabel-> - "Out[312]=",ExpressionUUID->"aca4159d-4962-4a83-badd-83ec93b346ec"] + 3.993804174213254*^9}, 3.993848807191246*^9, 3.993849990867415*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"fa767b48-31a7-45c4-941b-61e0b5206629"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[313]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.9938040898834*^9, {3.993804138342436*^9, - 3.993804174228182*^9}}, - CellLabel-> - "Out[313]=",ExpressionUUID->"b528f501-29aa-441b-9508-700f4af79ce4"] + 3.993804174228182*^9}, 3.9938488072167788`*^9, 3.993849990876028*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"1a542d18-2927-4316-8213-04e2a6550fb9"] }, Open ]], Cell[CellGroupData[{ @@ -128,15 +117,13 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[314]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], Cell[BoxData["6.21772575671982`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.99380408990067*^9, {3.9938041383460903`*^9, - 3.9938041742424393`*^9}}, - CellLabel-> - "Out[314]=",ExpressionUUID->"11e21b32-eb43-44d9-a4eb-9edafa554bcf"] + 3.9938041742424393`*^9}, 3.993848807233614*^9, 3.993849990885769*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"81931160-91b0-4ce5-b93f-aab091beda8c"] }, Open ]], Cell[CellGroupData[{ @@ -148,15 +135,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[315]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[BoxData["5.0395985234915885`"], "Output", +Cell[BoxData["5.12024575643284`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.993804089917811*^9, {3.993804138377798*^9, - 3.993804174256633*^9}}, - CellLabel-> - "Out[315]=",ExpressionUUID->"a8e1095d-88f3-4544-875c-b9473bd0ad09"] + 3.993804174256633*^9}, 3.993848807250407*^9, 3.993849990894706*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"b6acc2fa-bee3-474d-a90d-1614480cbd28"] }, Open ]], Cell[CellGroupData[{ @@ -165,14 +150,13 @@ Cell[BoxData[ RowBox[{"b1", "=", "1.0205"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.993803860237813*^9, 3.993803866623828*^9}}, - CellLabel-> - "In[316]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + CellLabel->"In[9]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], Cell[BoxData["1.0205`"], "Output", CellChangeTimes->{ - 3.993804089951392*^9, {3.993804138395643*^9, 3.993804174270754*^9}}, - CellLabel-> - "Out[316]=",ExpressionUUID->"cdaf059a-05fc-4f46-9381-6f5634e09bc6"] + 3.993804089951392*^9, {3.993804138395643*^9, 3.993804174270754*^9}, + 3.993848807267117*^9, 3.9938499909070873`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"35f223e9-2c4d-4fcd-9da1-b7c04bbc5290"] }, Open ]], Cell[CellGroupData[{ @@ -181,44 +165,39 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.4896"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.99380387128193*^9, 3.9938038777202883`*^9}}, - CellLabel-> - "In[317]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + CellLabel->"In[10]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[BoxData["0.4896`"], "Output", CellChangeTimes->{ - 3.9938040899683237`*^9, {3.993804138413007*^9, 3.993804174284833*^9}}, - CellLabel-> - "Out[317]=",ExpressionUUID->"ab0cd6ef-6976-431a-b045-8ccd88b934b2"] + 3.9938040899683237`*^9, {3.993804138413007*^9, 3.993804174284833*^9}, + 3.993848807283663*^9, 3.993849990916193*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"5f1a0c03-293a-47fc-90c9-436a7dfd93a0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[318]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.993804090003015*^9, {3.993804138429922*^9, - 3.993804174299185*^9}}, - CellLabel-> - "Out[318]=",ExpressionUUID->"ef91f38c-2cb1-43ab-bcb1-fa0a87349adb"] + 3.993804174299185*^9}, 3.993848807299727*^9, 3.99384999092511*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"bdd87bb8-800c-40b7-971a-faeaced84c9a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[319]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.993804090019147*^9, {3.993804138446356*^9, - 3.993804174313979*^9}}, - CellLabel-> - "Out[319]=",ExpressionUUID->"e5a5e1db-f525-46f8-ab9a-e9e97eec27eb"] + 3.993804174313979*^9}, 3.993848807315777*^9, 3.99384999093392*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8094242e-c3d9-454c-bba8-302a46e733af"] }, Open ]], Cell[CellGroupData[{ @@ -242,15 +221,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[320]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], Cell[BoxData["2.622074662477555`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.993804090035692*^9, {3.9938041384628077`*^9, - 3.9938041743173933`*^9}}, - CellLabel-> - "Out[320]=",ExpressionUUID->"f2abcbf3-8a18-4e51-8f6a-f8ed8152204e"] + 3.9938041743173933`*^9}, 3.9938488073318787`*^9, 3.993849990942885*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"cd43ac5a-1193-4542-9d4d-57f9b89f4ea8"] }, Open ]], Cell[CellGroupData[{ @@ -274,15 +251,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[321]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], Cell[BoxData["1.560486547241578`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993804090054099*^9, {3.993804138479048*^9, - 3.9938041743344707`*^9}}, - CellLabel-> - "Out[321]=",ExpressionUUID->"a5315219-13ee-49e1-8ba2-52acf4c17de9"] + 3.9938041743344707`*^9}, 3.99384880734788*^9, 3.993849990951831*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"4fb3c8f5-f316-45bd-89cf-e6c12c9212e5"] }, Open ]], Cell[CellGroupData[{ @@ -290,25 +265,84 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c11", "=", RowBox[{"1", "-", - FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + +Cell[BoxData["0.2903701468853932`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.993804090071563*^9, {3.993804138496574*^9, + 3.99380417434737*^9}, 3.993848807363336*^9, 3.9938499909614058`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"f2619396-a2df-4b98-8280-f5e6f139c3bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + RowBox[{ + RowBox[{"(", RowBox[{ RowBox[{"(", - RowBox[{ - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", RowBox[{"(", - RowBox[{ - SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", RowBox[{ RowBox[{"R01", "*", RowBox[{"(", @@ -334,83 +368,40 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel-> - "In[322]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], - -Cell[BoxData["0.29111769394051146`"], "Output", - CellChangeTimes->{ - 3.991319786533783*^9, 3.993804090071563*^9, {3.993804138496574*^9, - 3.99380417434737*^9}}, - CellLabel-> - "Out[322]=",ExpressionUUID->"0e4fb904-09c4-4a82-b839-ed54d29c8fc2"] -}, Open ]], - -Cell[CellGroupData[{ + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[BoxData[ - RowBox[{"c12", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w2", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[323]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], - -Cell[BoxData[ - RowBox[{"-", "0.0672837169013307`"}]], "Output", + RowBox[{"-", "0.06800962519581188`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.9938040900903397`*^9, {3.993804138513081*^9, - 3.993804174360331*^9}}, - CellLabel-> - "Out[323]=",ExpressionUUID->"4af3f868-5b0e-4e2c-8c9a-efcd5efdf015"] + 3.993804174360331*^9}, 3.9938488073821497`*^9, 3.993849990971092*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"2af7a3ca-ad28-4afa-b3c7-776d4721a746"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", @@ -420,46 +411,30 @@ Cell[BoxData[ RowBox[{"b1", "*", SqrtBox[ FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w1", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[324]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ - RowBox[{"-", "0.41127955626934987`"}]], "Output", + RowBox[{"-", "0.40916894338639737`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.9938040901078167`*^9, {3.993804138530313*^9, - 3.993804174375409*^9}}, - CellLabel-> - "Out[324]=",ExpressionUUID->"b6676923-0fb9-432e-8f1c-91fadeafe255"] + 3.993804174375409*^9}, 3.9938488073997*^9, 3.9938499909809637`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"f4361646-888b-4409-b6fe-66d1cc478e5a"] }, Open ]], Cell[CellGroupData[{ @@ -467,105 +442,99 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c22", "=", RowBox[{"1", "-", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w1", "2"]}]}], ")"}], "*", - RowBox[{"(", - RowBox[{ - SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", + RowBox[{ + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel-> - "In[325]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[BoxData["0.6006254867805345`"], "Output", +Cell[BoxData["0.6026750051187908`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.9938040901250677`*^9, {3.993804138546773*^9, - 3.993804174388777*^9}}, - CellLabel-> - "Out[325]=",ExpressionUUID->"a17b4da2-122c-4921-9c38-341df7fb5d17"] + 3.993804174388777*^9}, 3.99384880741957*^9, 3.99384999099002*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"0e66de81-3cad-4c06-af39-43b01937a116"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[326]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + CellLabel->"In[19]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.993804090141823*^9, {3.9938041385623407`*^9, - 3.993804174402438*^9}}, - CellLabel-> - "Out[326]=",ExpressionUUID->"0d0ccadb-076e-40aa-b18c-a9d5c6aa7bb7"] + 3.993804174402438*^9}, 3.993848807437189*^9, 3.993849990998246*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"71a37eb7-6334-465e-9716-4d81a4b21efe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[327]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + CellLabel->"In[20]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.993804090158958*^9, {3.993804138578629*^9, - 3.99380417441667*^9}}, - CellLabel-> - "Out[327]=",ExpressionUUID->"37ae45c1-23d3-4b8e-b580-586e120518e0"] + 3.99380417441667*^9}, 3.9938488074549294`*^9, 3.9938499910064697`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"f5724984-3a57-4aa7-a8ce-bcfe5deaedef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[328]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + CellLabel->"In[21]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.993804090177505*^9, {3.993804138595006*^9, - 3.993804174430525*^9}}, - CellLabel-> - "Out[328]=",ExpressionUUID->"7991b4a2-13d4-4256-bcd4-712052b81ef3"] + 3.993804174430525*^9}, 3.9938488074728813`*^9, 3.993849991014834*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"ccd18e3a-e9a2-4e14-a4c6-1efd69bc6fa7"] }, Open ]], Cell[CellGroupData[{ @@ -574,31 +543,27 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[329]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + CellLabel->"In[22]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.993804090194539*^9, {3.993804138611753*^9, - 3.993804174445389*^9}}, - CellLabel-> - "Out[329]=",ExpressionUUID->"628aa974-bc8a-4059-9797-5ec7f317ca0f"] + 3.993804174445389*^9}, 3.993848807490819*^9, 3.993849991022958*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"e64e45e4-6145-4443-891b-0cac74457f0f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[330]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + CellLabel->"In[23]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.9938040902126007`*^9, {3.99380413862824*^9, - 3.9938041744613132`*^9}}, - CellLabel-> - "Out[330]=",ExpressionUUID->"81fa9705-8140-4960-a8d9-4c4e2a3af50d"] + 3.9938041744613132`*^9}, 3.993848807508507*^9, 3.9938499910310163`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"6f4b8980-f73e-467d-84dd-e84085def07a"] }, Open ]], Cell[CellGroupData[{ @@ -608,33 +573,29 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.993803911062066*^9, 3.993803911474206*^9}}, - CellLabel-> - "In[331]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + CellLabel->"In[24]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.993804090230994*^9, {3.9938041386443443`*^9, - 3.993804174475325*^9}}, - CellLabel-> - "Out[331]=",ExpressionUUID->"d538d358-0420-45e5-bcc3-88e9317a7697"] + 3.993804174475325*^9}, 3.993848807527059*^9, 3.9938499910389423`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"0610a978-d6c9-4604-9871-75125a2e3331"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Z2", "=", - RowBox[{"92", "-", "Z1"}]}]], "Input", + RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, - 3.9916443064841423`*^9}, - CellLabel-> - "In[332]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + 3.9916443064841423`*^9, {3.993849563960414*^9, 3.99384956406236*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[BoxData["26"], "Output", +Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.993804090250367*^9, {3.993804138660377*^9, - 3.993804174489229*^9}}, - CellLabel-> - "Out[332]=",ExpressionUUID->"249f0f3b-3127-40ca-88ea-adf5f89b1fcd"] + 3.993804174489229*^9}, 3.9938488075448914`*^9, 3.99384999104701*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"6b58caaa-7d70-42aa-bbf6-9184474e9434"] }, Open ]], Cell[CellGroupData[{ @@ -643,15 +604,13 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[333]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + CellLabel->"In[26]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[BoxData["82"], "Output", +Cell[BoxData["86"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.993804090267005*^9, {3.9938041386777277`*^9, - 3.993804174504216*^9}}, - CellLabel-> - "Out[333]=",ExpressionUUID->"cce4a4dc-8bf9-4fdb-8ad9-30d4c2b8bd5f"] + 3.993804174504216*^9}, 3.9938488075630293`*^9, 3.993849991055056*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"1f9ed0e9-8e8f-4911-aeed-aca2905bf288"] }, Open ]], Cell[CellGroupData[{ @@ -666,15 +625,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[334]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + CellLabel->"In[27]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[BoxData["0.11195121951219511`"], "Output", +Cell[BoxData["0.11093023255813952`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.9938040902837143`*^9, {3.9938041386945467`*^9, - 3.9938041745182133`*^9}}, - CellLabel-> - "Out[334]=",ExpressionUUID->"2b55f36d-48cd-491f-9bb8-89821284f2f6"] + 3.9938041745182133`*^9}, 3.9938488075813007`*^9, 3.9938499910632563`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"d7090f2a-68a1-4bf5-9c42-d712684d1d87"] }, Open ]], Cell[CellGroupData[{ @@ -689,16 +646,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[335]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + CellLabel->"In[28]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ - RowBox[{"-", "2.5617770034843206`"}]], "Output", + RowBox[{"-", "2.5630897009966778`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.993804090300918*^9, {3.993804138711464*^9, - 3.99380417453297*^9}}, - CellLabel-> - "Out[335]=",ExpressionUUID->"f7cead41-60d0-43c6-8526-acd5b06ea4cf"] + 3.99380417453297*^9}, 3.993848807599778*^9, 3.9938499910715237`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"1f4b53ef-5801-4b20-85e1-9b29a83032b8"] }, Open ]], Cell[CellGroupData[{ @@ -729,15 +684,13 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[336]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + CellLabel->"In[29]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[BoxData["20.404731458107793`"], "Output", +Cell[BoxData["20.50874671482353`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.993804090321062*^9, {3.9938041387284813`*^9, - 3.993804174547089*^9}}, - CellLabel-> - "Out[336]=",ExpressionUUID->"8235dc07-cc49-4ca5-b4a0-ae8a34c68991"] + 3.993804174547089*^9}, 3.993848807619718*^9, 3.993849991079987*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"6ebec195-82b4-4757-8c0c-46846dc9bc50"] }, Open ]], Cell[CellGroupData[{ @@ -745,15 +698,13 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[337]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + CellLabel->"In[30]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.9938040903372*^9, {3.9938041387455187`*^9, - 3.993804174560532*^9}}, - CellLabel-> - "Out[337]=",ExpressionUUID->"f0c8c1bb-fc60-4f31-b855-25251804aedd"] + 3.993804174560532*^9}, 3.9938488076417303`*^9, 3.993849991089016*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"25103de2-783e-4940-87b9-ecd84f507211"] }, Open ]], Cell[CellGroupData[{ @@ -763,20 +714,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.993803941161499*^9, 3.993803942967257*^9}}, - CellLabel-> - "In[338]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + CellLabel->"In[31]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], Cell[BoxData["1.82`"], "Output", CellChangeTimes->{ - 3.993804090368265*^9, {3.993804138763773*^9, 3.993804174574923*^9}}, - CellLabel-> - "Out[338]=",ExpressionUUID->"87b7f9c2-78d1-439b-9066-b2305c34a95e"] + 3.993804090368265*^9, {3.993804138763773*^9, 3.993804174574923*^9}, + 3.993848807660918*^9, 3.993849991097828*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"5df84669-6f08-4a4d-80c9-aaf07c1d3d7c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[339]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + CellLabel->"In[32]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ @@ -785,20 +734,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993803949861635*^9, 3.993803952475243*^9}}, - CellLabel-> - "In[340]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + CellLabel->"In[33]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], Cell[BoxData["0.845`"], "Output", CellChangeTimes->{ - 3.993804090400498*^9, {3.9938041388176193`*^9, 3.9938041746000147`*^9}}, - CellLabel-> - "Out[340]=",ExpressionUUID->"a981b58b-57e5-4c99-89c2-e88ba6d7edb9"] + 3.993804090400498*^9, {3.9938041388176193`*^9, 3.9938041746000147`*^9}, + 3.993848807703788*^9, 3.993849991112558*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"19e60f5d-d416-4c31-b73a-57fc78f53446"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[341]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + CellLabel->"In[34]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ @@ -807,20 +754,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.993803955445758*^9, 3.9938039566555567`*^9}}, - CellLabel-> - "In[342]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + CellLabel->"In[35]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], Cell[BoxData["2.34`"], "Output", CellChangeTimes->{ - 3.993804090432963*^9, {3.993804138872542*^9, 3.9938041746232433`*^9}}, - CellLabel-> - "Out[342]=",ExpressionUUID->"4d2d82c9-d77a-4c98-9597-552d5b154960"] + 3.993804090432963*^9, {3.993804138872542*^9, 3.9938041746232433`*^9}, + 3.993848807741784*^9, 3.993849991127323*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"b09d4da2-5eca-4fd2-8983-644f3df93e1a"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[343]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + CellLabel->"In[36]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ @@ -829,20 +774,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993803960293667*^9, 3.9938039628886843`*^9}}, - CellLabel-> - "In[344]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + CellLabel->"In[37]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], Cell[BoxData["1.235`"], "Output", CellChangeTimes->{ - 3.99380409046647*^9, {3.9938041389300737`*^9, 3.993804174645626*^9}}, - CellLabel-> - "Out[344]=",ExpressionUUID->"ed0b4ea2-ac36-412e-9512-d8112ec25bb3"] + 3.99380409046647*^9, {3.9938041389300737`*^9, 3.993804174645626*^9}, + 3.993848807767399*^9, 3.993849991141657*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"f846f60c-e02a-4b73-9cf9-3a86a5116aac"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[345]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + CellLabel->"In[38]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ @@ -851,20 +794,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.993803966354662*^9, 3.993803967807385*^9}}, - CellLabel-> - "In[346]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + CellLabel->"In[39]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], Cell[BoxData["2.157`"], "Output", CellChangeTimes->{ - 3.993804090500058*^9, {3.993804138981492*^9, 3.993804174669353*^9}}, - CellLabel-> - "Out[346]=",ExpressionUUID->"e4937222-35a4-495d-b0c7-513bcf69f3e0"] + 3.993804090500058*^9, {3.993804138981492*^9, 3.993804174669353*^9}, + 3.993848807792426*^9, 3.993849991156149*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"282744a4-1412-4ed0-886f-b428b2e3700e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[347]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + CellLabel->"In[40]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ @@ -873,20 +814,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993803975246106*^9, 3.993803976677384*^9}}, - CellLabel-> - "In[348]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + CellLabel->"In[41]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], Cell[BoxData["0.647`"], "Output", CellChangeTimes->{ - 3.993804090532151*^9, {3.993804139031171*^9, 3.993804174692378*^9}}, - CellLabel-> - "Out[348]=",ExpressionUUID->"3bede287-2b32-46cd-b810-0561f9ef9e9c"] + 3.993804090532151*^9, {3.993804139031171*^9, 3.993804174692378*^9}, + 3.9938488078179283`*^9, 3.993849991170518*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"5c1d5645-a6e5-431e-b59e-af5ddd759371"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[349]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + CellLabel->"In[42]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ @@ -895,20 +834,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99380398019634*^9, 3.9938039813095837`*^9}}, - CellLabel-> - "In[350]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + CellLabel->"In[43]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], Cell[BoxData["1.76`"], "Output", CellChangeTimes->{ - 3.993804090566051*^9, {3.993804139085739*^9, 3.9938041747149076`*^9}}, - CellLabel-> - "Out[350]=",ExpressionUUID->"d62e3280-7ba7-41cc-8cbd-9e6af2fabd1f"] + 3.993804090566051*^9, {3.993804139085739*^9, 3.9938041747149076`*^9}, + 3.993848807844983*^9, 3.993849991185005*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"39084966-3bae-4903-92b3-d232bfe7c09f"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[351]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + CellLabel->"In[44]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ @@ -916,20 +853,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "1.075"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993803983729498*^9, 3.993803986997629*^9}}, - CellLabel-> - "In[352]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + CellLabel->"In[45]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], Cell[BoxData["1.075`"], "Output", CellChangeTimes->{ - 3.993804090634049*^9, {3.993804139137789*^9, 3.99380417473573*^9}}, - CellLabel-> - "Out[352]=",ExpressionUUID->"566f288a-f1a4-4dc8-bcd2-4a73af54093e"] + 3.993804090634049*^9, {3.993804139137789*^9, 3.99380417473573*^9}, + 3.993848807872305*^9, 3.993849991199329*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"a99c4431-50b1-4d90-ae69-9c62f70b4fde"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[353]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], + CellLabel->"In[46]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1418,15 +1353,13 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[354]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + CellLabel->"In[47]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[BoxData["0.012225515731922772`"], "Output", +Cell[BoxData["0.01224942383714716`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.993804090716114*^9, {3.993804139208848*^9, - 3.993804174782381*^9}}, - CellLabel-> - "Out[354]=",ExpressionUUID->"9c3ec440-2d3a-4405-80f3-819eb362f9b5"] + 3.993804174782381*^9}, 3.9938488102384644`*^9, 3.993849991273375*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"038ace0f-3460-4c22-bf0a-1baa3f75dc5b"] }, Open ]], Cell[CellGroupData[{ @@ -1920,15 +1853,13 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[355]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + CellLabel->"In[48]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[BoxData["0.5978568902447922`"], "Output", +Cell[BoxData["0.5889492852231504`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9938040907433662`*^9, {3.9938041392562933`*^9, - 3.99380417480917*^9}}, - CellLabel-> - "Out[355]=",ExpressionUUID->"c25e46d5-7456-4779-b6d4-365f258c8dad"] + 3.99380417480917*^9}, 3.9938488104573317`*^9, 3.9938499913045797`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"2b1e9200-dfd1-462a-94cd-daf42fc83ecc"] }, Open ]], Cell[CellGroupData[{ @@ -2416,16 +2347,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[356]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + CellLabel->"In[49]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ - RowBox[{"-", "12.72552468113798`"}]], "Output", + RowBox[{"-", "12.704649244928842`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.993804090767948*^9, {3.993804139281644*^9, - 3.99380417483276*^9}}, - CellLabel-> - "Out[356]=",ExpressionUUID->"7a0722fd-ee03-42fc-b8ed-6d8832b52cd6"] + 3.99380417483276*^9}, 3.993848810481243*^9, 3.9938499913329782`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"1798d23b-515d-45fa-9d37-fd3fdef1e939"] }, Open ]], Cell[CellGroupData[{ @@ -2983,16 +2912,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[357]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + CellLabel->"In[50]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ - RowBox[{"-", "15.012624510274025`"}]], "Output", + RowBox[{"-", "15.223385141555047`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.993804090797073*^9, {3.993804139310915*^9, - 3.993804174861484*^9}}, - CellLabel-> - "Out[357]=",ExpressionUUID->"2a8cd7f5-3b54-4cba-91aa-86253166e0bc"] + 3.993804174861484*^9}, 3.9938488105114737`*^9, 3.9938499913677673`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"5e879384-0a04-466c-bf19-8858ea4b5a4b"] }, Open ]], Cell[CellGroupData[{ @@ -3550,16 +3477,14 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[358]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + CellLabel->"In[51]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ - RowBox[{"-", "39.07723636621093`"}]], "Output", + RowBox[{"-", "39.03111013094529`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.993804090827354*^9, {3.9938041393422422`*^9, - 3.9938041748908043`*^9}}, - CellLabel-> - "Out[358]=",ExpressionUUID->"c20d9ab1-0c1e-4e4a-93e0-e64c1dca8d40"] + 3.9938041748908043`*^9}, 3.9938488105468807`*^9, 3.9938499914067087`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"96e1fcc1-fcef-4c62-8552-8142d8814ed4"] }, Open ]], Cell[CellGroupData[{ @@ -4190,46 +4115,40 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[359]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + CellLabel->"In[52]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ - RowBox[{"-", "93.00637979991991`"}]], "Output", + RowBox[{"-", "94.34556705329022`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.993804090863044*^9, {3.993804139389662*^9, - 3.993804174924636*^9}}, - CellLabel-> - "Out[359]=",ExpressionUUID->"1c2cf9fe-278a-4909-a4c6-1e02bf663526"] + 3.993804174924636*^9}, 3.993848810587708*^9, 3.993849991444174*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"ff641489-2ee3-4031-ab1e-d8f5d00b7f91"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[360]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + CellLabel->"In[53]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.993804090879141*^9, {3.9938041394058332`*^9, - 3.993804174941469*^9}}, - CellLabel-> - "Out[360]=",ExpressionUUID->"b66b431f-5686-4495-975e-8f70e4879ef0"] + 3.993804174941469*^9}, 3.99384881061217*^9, 3.9938499914524717`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"222c333f-af34-4afd-bf0d-b06b5fb59c3e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[361]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + CellLabel->"In[54]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.993804090895958*^9, {3.9938041394218063`*^9, - 3.993804174954442*^9}}, - CellLabel-> - "Out[361]=",ExpressionUUID->"f1487934-de13-4a72-b17a-1fa98f37129f"] + 3.993804174954442*^9}, 3.993848810635922*^9, 3.9938499914608307`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"603c96e9-0df4-4ace-b959-de2ea3e018ea"] }, Open ]], Cell[CellGroupData[{ @@ -4273,15 +4192,13 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[362]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + CellLabel->"In[55]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[BoxData["40.90786567569682`"], "Output", +Cell[BoxData["40.9342324933027`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.993804090912829*^9, {3.99380413943988*^9, - 3.9938041749678583`*^9}}, - CellLabel-> - "Out[362]=",ExpressionUUID->"e9edcc1b-d82a-42c8-9624-66be27948d59"] + 3.9938041749678583`*^9}, 3.993848810656166*^9, 3.993849991469294*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"4051fc27-9d23-4be6-8dce-481e5caa0fb1"] }, Open ]], Cell[CellGroupData[{ @@ -4321,16 +4238,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[363]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + CellLabel->"In[56]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ - RowBox[{"-", "41.795471940131726`"}]], "Output", + RowBox[{"-", "42.16041879106114`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.993804090929619*^9, {3.993804139457325*^9, - 3.9938041749824657`*^9}}, - CellLabel-> - "Out[363]=",ExpressionUUID->"91de79c9-7c79-4420-b82a-ed636542dbe9"] + 3.9938041749824657`*^9}, 3.9938488106762447`*^9, 3.9938499914776087`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"dddc311a-062c-4937-97c1-40a5b4f6fe0a"] }, Open ]], Cell[CellGroupData[{ @@ -4374,101 +4289,87 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[364]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + CellLabel->"In[57]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[BoxData["56.88973992569649`"], "Output", +Cell[BoxData["57.85215050076255`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.993804090946455*^9, {3.9938041394733677`*^9, - 3.993804174995661*^9}}, - CellLabel-> - "Out[364]=",ExpressionUUID->"9fa48dcd-f160-4fb8-9f7d-713b92a5179d"] + 3.993804174995661*^9}, 3.99384881069589*^9, 3.993849991488472*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"6c32cef0-3d1d-4930-aa28-f89ab5702664"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[365]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + CellLabel->"In[58]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[BoxData["0.29111769394051146`"], "Output", +Cell[BoxData["0.2903701468853932`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.993804090963214*^9, {3.99380413948948*^9, - 3.993804175008822*^9}}, - CellLabel-> - "Out[365]=",ExpressionUUID->"5b9e8e96-4161-42d7-ad1f-d1e16483920a"] + 3.993804175008822*^9}, 3.99384881071603*^9, 3.993849991497101*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"02e58389-303e-46f1-94f0-f344f20efd13"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[366]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + CellLabel->"In[59]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ - RowBox[{"-", "0.0672837169013307`"}]], "Output", + RowBox[{"-", "0.06800962519581188`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.9938040909800377`*^9, {3.993804139506342*^9, - 3.993804175022502*^9}}, - CellLabel-> - "Out[366]=",ExpressionUUID->"c4272f89-531c-4673-bee8-6c314fbfea90"] + 3.993804175022502*^9}, 3.993848810736079*^9, 3.993849991505829*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"f83a429a-aa6f-4253-bb94-2922c439220c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[367]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + CellLabel->"In[60]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ - RowBox[{"-", "0.41127955626934987`"}]], "Output", + RowBox[{"-", "0.40916894338639737`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.9938040909970512`*^9, {3.993804139523937*^9, - 3.99380417503624*^9}}, - CellLabel-> - "Out[367]=",ExpressionUUID->"73cba804-1cae-4ce7-9bde-a7e84ea681c6"] + 3.99380417503624*^9}, 3.993848810755718*^9, 3.993849991515297*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"e8388ae6-23d2-431a-aa66-e58610522aec"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[368]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + CellLabel->"In[61]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[BoxData["0.6006254867805345`"], "Output", +Cell[BoxData["0.6026750051187908`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.9938040910160313`*^9, {3.993804139541357*^9, - 3.9938041750504208`*^9}}, - CellLabel-> - "Out[368]=",ExpressionUUID->"b136cfb4-41df-44f3-8130-479aecdce898"] + 3.9938041750504208`*^9}, 3.993848810776074*^9, 3.993849991527789*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"729f8994-88a4-4584-8c2a-fe15cf30a42a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[369]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + CellLabel->"In[62]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], Cell[BoxData["2.622074662477555`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.9938040910322237`*^9, {3.993804139560528*^9, - 3.99380417506885*^9}}, - CellLabel-> - "Out[369]=",ExpressionUUID->"f949120e-edee-4ac3-9a95-6a0e8bc91f85"] + 3.99380417506885*^9}, 3.9938488107953978`*^9, 3.993849991566267*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"41251c16-68bd-476d-b6ef-dd7061a2d552"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[370]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + CellLabel->"In[63]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], Cell[BoxData["1.560486547241578`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.9938040910476837`*^9, {3.99380413957936*^9, - 3.993804175086857*^9}}, - CellLabel-> - "Out[370]=",ExpressionUUID->"e273eb50-14ab-48f8-bdf8-0eb92c7b6b48"] + 3.993804175086857*^9}, 3.993848810814839*^9, 3.993849991574327*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9850f0cc-e288-48a1-9bba-ed1dd44010b4"] }, Open ]], Cell[CellGroupData[{ @@ -4489,16 +4390,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[371]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + CellLabel->"In[64]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ - RowBox[{"-", "22.614335519277837`"}]], "Output", + RowBox[{"-", "23.985225206889808`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.9938040910636168`*^9, {3.993804139598442*^9, - 3.993804175099869*^9}}, - CellLabel-> - "Out[371]=",ExpressionUUID->"3be0ce69-8de9-4497-b8f6-55749814f454"] + 3.993804175099869*^9}, 3.99384881083464*^9, 3.993849991582725*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"93dce725-35e5-4930-970d-6056902d7255"] }, Open ]], Cell[CellGroupData[{ @@ -4519,16 +4418,14 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[372]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + CellLabel->"In[65]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ - RowBox[{"-", "5.555904846448835`"}]], "Output", + RowBox[{"-", "6.082813498068469`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.993804091079459*^9, {3.99380413961532*^9, - 3.993804175113451*^9}}, - CellLabel-> - "Out[372]=",ExpressionUUID->"92444125-7e33-4c6e-aba9-83554b55e6d9"] + 3.993804175113451*^9}, 3.993848810854089*^9, 3.993849991591123*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"643029ab-084a-4807-9503-34dec14d909d"] }, Open ]], Cell[CellGroupData[{ @@ -4593,15 +4490,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[373]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + CellLabel->"In[66]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[BoxData["18.29353015641898`"], "Output", +Cell[BoxData["16.949007286412893`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.993804091095646*^9, {3.9938041396344*^9, - 3.99380417512825*^9}}, - CellLabel-> - "Out[373]=",ExpressionUUID->"79602979-8cb8-45cc-ae2a-e31cf15ec45d"] + 3.99380417512825*^9}, 3.9938488108741703`*^9, 3.9938499916000757`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"58da0836-d864-49f7-a483-6b0ad94f0020"] }, Open ]], Cell[CellGroupData[{ @@ -4642,16 +4537,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[374]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + CellLabel->"In[67]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ - RowBox[{"-", "41.795471940131726`"}]], "Output", + RowBox[{"-", "42.16041879106114`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.9938040911120157`*^9, {3.993804139651782*^9, - 3.9938041751438704`*^9}}, - CellLabel-> - "Out[374]=",ExpressionUUID->"afe26eea-6af3-4b18-bfe2-2fd504da1af2"] + 3.9938041751438704`*^9}, 3.993848810893611*^9, 3.9938499916081963`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"819378b0-8043-4d90-9b88-b2d94d525cf4"] }, Open ]], Cell[CellGroupData[{ @@ -4717,15 +4610,13 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[375]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + CellLabel->"In[68]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[BoxData["51.333835079247656`"], "Output", +Cell[BoxData["51.76933700269408`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993804091132085*^9, {3.993804139668528*^9, - 3.993804175187551*^9}}, - CellLabel-> - "Out[375]=",ExpressionUUID->"b0aebb67-e5a7-4b01-9b89-e7f9d4849967"] + 3.993804175187551*^9}, 3.993848810913933*^9, 3.993849991616674*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"ed1e72b0-d0bd-42da-a656-f30859c950e0"] }, Open ]], Cell[CellGroupData[{ @@ -4783,15 +4674,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[376]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + CellLabel->"In[69]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[BoxData["7.924304390173532`"], "Output", +Cell[BoxData["4.836891405194621`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.993804091148937*^9, {3.9938041396855717`*^9, - 3.993804175204822*^9}}, - CellLabel-> - "Out[376]=",ExpressionUUID->"1910ebd9-89d0-4f8a-946a-b44106990855"] + 3.993804175204822*^9}, 3.993848810933175*^9, 3.993849991625382*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"038a78fb-06d5-4458-ba53-df8f557ad48b"] }, Open ]], Cell[CellGroupData[{ @@ -4849,15 +4738,13 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[377]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + CellLabel->"In[70]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[BoxData["257.5422618015032`"], "Output", +Cell[BoxData["252.66846904104736`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.993804091165813*^9, {3.993804139705405*^9, - 3.993804175222055*^9}}, - CellLabel-> - "Out[377]=",ExpressionUUID->"c31e45df-9b42-4ee8-9c90-5df94ad45aad"] + 3.993804175222055*^9}, 3.9938488109528217`*^9, 3.993849991637038*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"fa3c2009-e6e1-43ba-8441-9a19ff0f2e09"] }, Open ]], Cell[CellGroupData[{ @@ -4866,20 +4753,18 @@ Cell[BoxData[ RowBox[{"f1", "=", "0.8739"}]], "Input", CellChangeTimes->{ 3.991799412462593*^9, {3.993804029896429*^9, 3.9938040343540173`*^9}}, - CellLabel-> - "In[378]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + CellLabel->"In[71]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], Cell[BoxData["0.8739`"], "Output", CellChangeTimes->{ - 3.9938040911980047`*^9, {3.993804139723586*^9, 3.993804175238888*^9}}, - CellLabel-> - "Out[378]=",ExpressionUUID->"0a32a23b-b0e7-477c-b916-9eddae008515"] + 3.9938040911980047`*^9, {3.993804139723586*^9, 3.993804175238888*^9}, + 3.993848810972369*^9, 3.993849991648221*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"94f99678-c82d-4fc3-a317-4aa182c83bc4"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, - CellLabel-> - "In[379]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + CellLabel->"In[72]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ @@ -4887,20 +4772,18 @@ Cell[BoxData[ RowBox[{"f2", "=", "0.6058"}]], "Input", CellChangeTimes->{ 3.991799414288656*^9, {3.993804035930612*^9, 3.993804041206016*^9}}, - CellLabel-> - "In[380]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + CellLabel->"In[73]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], Cell[BoxData["0.6058`"], "Output", CellChangeTimes->{ - 3.993804091229457*^9, {3.993804139805561*^9, 3.993804175264201*^9}}, - CellLabel-> - "Out[380]=",ExpressionUUID->"3e4c717b-061b-43fa-ba33-dd7a892e4209"] + 3.993804091229457*^9, {3.993804139805561*^9, 3.993804175264201*^9}, + 3.993848811007929*^9, 3.9938499916606283`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"1caf8546-fde3-40ae-a10b-d2f256c15b2e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, - CellLabel-> - "In[381]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], + CellLabel->"In[74]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4946,15 +4829,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[382]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + CellLabel->"In[75]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[BoxData["2.305235238366321`*^-53"], "Output", +Cell[BoxData["2.401224501209607`*^-53"], "Output", CellChangeTimes->{ 3.99132042156752*^9, 3.993804091265337*^9, {3.993804139873336*^9, - 3.993804175288704*^9}}, - CellLabel-> - "Out[382]=",ExpressionUUID->"aa1e5914-f8e7-4e49-bd06-a26c3a458257"] + 3.993804175288704*^9}, 3.993848811034981*^9, 3.99384999167211*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"2169c98a-ea90-47f3-a84a-0f4f39f457e7"] }, Open ]], Cell[CellGroupData[{ @@ -4989,15 +4870,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.991557471461853*^9}, - CellLabel-> - "In[383]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + CellLabel->"In[76]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[BoxData["1.9057893898786494`*^-54"], "Output", +Cell[BoxData["2.0632375644067863`*^-54"], "Output", CellChangeTimes->{ 3.99132042159643*^9, 3.993804091282148*^9, {3.9938041398893423`*^9, - 3.9938041753053837`*^9}}, - CellLabel-> - "Out[383]=",ExpressionUUID->"0866f914-3da7-4b27-a7a8-8e3c9adedfa3"] + 3.9938041753053837`*^9}, 3.993848811052017*^9, 3.993849991680648*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"c5b8f3b8-f0c6-495d-beb6-7517d0822ce7"] }, Open ]], Cell[CellGroupData[{ @@ -5031,15 +4910,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, - CellLabel-> - "In[384]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + CellLabel->"In[77]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[BoxData["2.9004241512385187`*^-54"], "Output", CellChangeTimes->{ 3.9913204216085243`*^9, 3.993804091299055*^9, {3.993804139907029*^9, - 3.99380417532242*^9}}, - CellLabel-> - "Out[384]=",ExpressionUUID->"77fbc0d9-c336-4ebd-b036-9f1d1afff5b7"] + 3.99380417532242*^9}, 3.993848811069098*^9, 3.9938499916895742`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"4e3b7ff2-ca15-41c7-9b94-d41ea2a2868c"] }, Open ]], Cell[CellGroupData[{ @@ -5062,10 +4939,9 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel-> - "In[385]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + CellLabel->"In[78]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[BoxData["16.690707231866124`"], "Output", +Cell[BoxData["17.496450714495822`"], "Output", CellChangeTimes->{ 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, @@ -5073,9 +4949,9 @@ Cell[BoxData["16.690707231866124`"], "Output", 3.99208680410137*^9}, 3.992091247458048*^9, {3.992091392660454*^9, 3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, { 3.9920915619364376`*^9, 3.9920915885645847`*^9}, 3.9938040913177443`*^9, { - 3.993804139923235*^9, 3.993804175339624*^9}}, - CellLabel-> - "Out[385]=",ExpressionUUID->"8b0effff-d267-4fa2-a852-b5c25094c2f7"] + 3.993804139923235*^9, 3.993804175339624*^9}, 3.99384881108665*^9, + 3.9938499916982613`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"0980fbd3-3ef2-4c28-890d-ad30eee711e6"] }, Open ]], Cell[CellGroupData[{ @@ -5101,10 +4977,9 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, - CellLabel-> - "In[386]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + CellLabel->"In[79]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[BoxData["57.71662669691002`"], "Output", +Cell[BoxData["59.69518347145969`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, @@ -5112,9 +4987,8 @@ Cell[BoxData["57.71662669691002`"], "Output", 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, 3.992091588571615*^9}, 3.993804091336111*^9, {3.993804139939087*^9, - 3.9938041753576927`*^9}}, - CellLabel-> - "Out[386]=",ExpressionUUID->"590c5446-49b6-4b58-bfa1-2107be173a19"] + 3.9938041753576927`*^9}, 3.993848811103951*^9, 3.993849991706685*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"77d5e7ff-61b5-498c-85f2-1faf9ba17e42"] }, Open ]], Cell[CellGroupData[{ @@ -5123,10 +4997,9 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel-> - "In[387]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + CellLabel->"In[80]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[BoxData["0.6890380498263884`"], "Output", +Cell[BoxData["0.5257849970519695`"], "Output", CellChangeTimes->{ 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, @@ -5134,9 +5007,9 @@ Cell[BoxData["0.6890380498263884`"], "Output", 3.9920868041580334`*^9}, 3.9920912474925404`*^9, {3.9920913926935654`*^9, 3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, { 3.9920915619686337`*^9, 3.992091588596325*^9}, 3.993804091353615*^9, { - 3.9938041399554567`*^9, 3.993804175374692*^9}}, - CellLabel-> - "Out[387]=",ExpressionUUID->"4b5fe660-6701-4ba2-af84-ac919b1de20c"] + 3.9938041399554567`*^9, 3.993804175374692*^9}, 3.993848811120904*^9, + 3.9938499917156143`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"b5ac9a55-558c-4932-b7d1-afccf1ef42da"] }, Open ]], Cell[CellGroupData[{ @@ -5146,19 +5019,18 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, - CellLabel-> - "In[388]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + CellLabel->"In[81]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[BoxData["2.1123884417956242`"], "Output", +Cell[BoxData["2.0573390943039227`"], "Output", CellChangeTimes->{ 3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9, 3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, { 3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.992091247522402*^9, { 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, - 3.993804091371138*^9, {3.993804139973077*^9, 3.9938041753926353`*^9}}, - CellLabel-> - "Out[388]=",ExpressionUUID->"8326433e-8afb-439a-9d70-0cfdd8f7ba28"] + 3.993804091371138*^9, {3.993804139973077*^9, 3.9938041753926353`*^9}, + 3.993848811137815*^9, 3.9938499917255573`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"59350063-5e88-4ae9-af7f-a6f18810d1d0"] }, Open ]], Cell[CellGroupData[{ @@ -5168,10 +5040,9 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, - CellLabel-> - "In[389]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + CellLabel->"In[82]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[BoxData["121.91993513398548`"], "Output", +Cell[BoxData["122.81323469747937`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, @@ -5179,9 +5050,8 @@ Cell[BoxData["121.91993513398548`"], "Output", 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, 3.9920915886284447`*^9}, 3.993804091388323*^9, {3.993804139989348*^9, - 3.9938041754094276`*^9}}, - CellLabel-> - "Out[389]=",ExpressionUUID->"52b0a569-900d-4079-8220-d59f404216ab"] + 3.9938041754094276`*^9}, 3.993848811155039*^9, 3.993849991733869*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"7523cb84-61c9-4105-94a7-520c97b7a117"] }, Open ]], Cell[CellGroupData[{ @@ -5190,10 +5060,9 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[390]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + CellLabel->"In[83]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[BoxData["11.500532361268231`"], "Output", +Cell[BoxData["9.199371287341116`"], "Output", CellChangeTimes->{ 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, @@ -5201,9 +5070,9 @@ Cell[BoxData["11.500532361268231`"], "Output", 3.992086804192051*^9}, 3.9920912475547256`*^9, {3.9920913927436028`*^9, 3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, { 3.992091562006651*^9, 3.992091588636162*^9}, 3.993804091405838*^9, { - 3.993804140006907*^9, 3.9938041754273376`*^9}}, - CellLabel-> - "Out[390]=",ExpressionUUID->"ef1d69c7-53a4-4991-8691-43431977780a"] + 3.993804140006907*^9, 3.9938041754273376`*^9}, 3.993848811171826*^9, + 3.9938499917424603`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"eb517569-f404-4af3-a7d7-8547efb15186"] }, Open ]], Cell[CellGroupData[{ @@ -5392,10 +5261,9 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[391]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + CellLabel->"In[84]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[BoxData["0.010188962005257879`"], "Output", +Cell[BoxData["0.01060913068438898`"], "Output", CellChangeTimes->{ 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, @@ -5403,9 +5271,8 @@ Cell[BoxData["0.010188962005257879`"], "Output", 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, 3.992091588657053*^9}, 3.9938040914240828`*^9, {3.9938041400269003`*^9, - 3.993804175444214*^9}}, - CellLabel-> - "Out[391]=",ExpressionUUID->"751422cd-ca57-4f0b-9fc4-954ea2bb83ed"] + 3.993804175444214*^9}, 3.99384881119079*^9, 3.993849991752029*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"41e32b7b-b79e-423f-9bbd-6b8af0701157"] }, Open ]], Cell[CellGroupData[{ @@ -5419,20 +5286,19 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->RGBColor[0.4, 0.6, 1, 0.33], - CellLabel-> - "In[392]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + CellLabel->"In[85]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[BoxData["8.779705920706578`"], "Output", +Cell[BoxData["8.604091913763606`"], "Output", CellChangeTimes->{ 3.991323707203314*^9, 3.991708997556095*^9, 3.99208606078174*^9, 3.992086270465349*^9, 3.9920863122235165`*^9, 3.992086602309389*^9, { 3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.992091250499668*^9, { 3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9, 3.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}, - 3.993804091535705*^9, {3.993804140081051*^9, 3.993804175503229*^9}}, + 3.993804091535705*^9, {3.993804140081051*^9, 3.993804175503229*^9}, + 3.993848811334577*^9, 3.993849991883861*^9}, Background->RGBColor[0.14, 0.8, 0.14, 0.33], - CellLabel-> - "Out[392]=",ExpressionUUID->"794b4024-ab33-4c32-aeb1-b5b188ac2c1f"] + CellLabel->"Out[85]=",ExpressionUUID->"4ac84946-4e87-46bb-a71f-fa8026e07e2e"] }, Open ]], Cell[BoxData[ @@ -5444,8 +5310,7 @@ Cell[BoxData[ 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, - CellLabel-> - "In[393]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + CellLabel->"In[86]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5467,15 +5332,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[394]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + CellLabel->"In[87]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[BoxData["37.38817955251654`"], "Output", +Cell[BoxData["37.55596197732338`"], "Output", CellChangeTimes->{ 3.991320421637537*^9, 3.9938040915717487`*^9, {3.9938041401738377`*^9, - 3.993804175542981*^9}}, - CellLabel-> - "Out[394]=",ExpressionUUID->"a250f861-38d8-41fa-abb6-15044bec4839"] + 3.993804175542981*^9}, 3.993848811417399*^9, 3.993849991896879*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"4c413de3-8824-4095-9f41-c8aa397c8133"] }, Open ]], Cell[CellGroupData[{ @@ -5500,15 +5363,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[395]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + CellLabel->"In[88]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[BoxData["57.71662669691002`"], "Output", +Cell[BoxData["59.69518347145969`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.993804091654755*^9, {3.993804140191663*^9, - 3.993804175560048*^9}}, - CellLabel-> - "Out[395]=",ExpressionUUID->"935f3854-7901-4e12-9070-485e26f76e45"] + 3.993804175560048*^9}, 3.993848811434908*^9, 3.993849991905819*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"a184cb01-a20e-403c-9e62-e0b60f0f81bf"] }, Open ]], Cell[CellGroupData[{ @@ -5517,15 +5378,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[396]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + CellLabel->"In[89]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[BoxData["0.46037678407514676`"], "Output", +Cell[BoxData["0.35887542775089`"], "Output", CellChangeTimes->{ 3.991320421698473*^9, 3.993804091671186*^9, {3.993804140214637*^9, - 3.993804175577203*^9}}, - CellLabel-> - "Out[396]=",ExpressionUUID->"fa611ebd-3fe0-4079-9eb3-17cc48768b80"] + 3.993804175577203*^9}, 3.993848811452743*^9, 3.993849991915017*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"d2b926f5-434a-4431-8f56-d41c491add02"] }, Open ]], Cell[CellGroupData[{ @@ -5534,15 +5393,13 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[397]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + CellLabel->"In[90]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[BoxData["2.1123884417956242`"], "Output", +Cell[BoxData["2.0573390943039227`"], "Output", CellChangeTimes->{ 3.991320421726494*^9, 3.9938040916893578`*^9, {3.993804140235684*^9, - 3.993804175593491*^9}}, - CellLabel-> - "Out[397]=",ExpressionUUID->"681d7e29-e21e-4913-a119-4048941f0bed"] + 3.993804175593491*^9}, 3.993848811470731*^9, 3.993849991924468*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"b4853515-74e7-401a-9324-3cc4798ac487"] }, Open ]], Cell[CellGroupData[{ @@ -5551,15 +5408,13 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[398]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + CellLabel->"In[91]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[BoxData["121.91993513398548`"], "Output", +Cell[BoxData["122.81323469747937`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.993804091704173*^9, {3.993804140288746*^9, - 3.993804175609673*^9}}, - CellLabel-> - "Out[398]=",ExpressionUUID->"7d4ee918-ec43-43c8-ab06-198fd5a46edf"] + 3.993804175609673*^9}, 3.9938488114883204`*^9, 3.993849991933482*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"d99706ac-02da-4424-a6be-f473826a5ae5"] }, Open ]], Cell[CellGroupData[{ @@ -5568,15 +5423,13 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[399]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + CellLabel->"In[92]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[BoxData["17.212649864811723`"], "Output", +Cell[BoxData["13.477911919208088`"], "Output", CellChangeTimes->{ 3.9913204217855225`*^9, 3.993804091719913*^9, {3.9938041403052893`*^9, - 3.993804175626717*^9}}, - CellLabel-> - "Out[399]=",ExpressionUUID->"7b32337a-33c4-4d64-9c8f-2aef21d57c95"] + 3.993804175626717*^9}, 3.9938488115058107`*^9, 3.993849991942384*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"5eba89ef-0fa9-4b74-a7b7-fc14b39b6df4"] }, Open ]], Cell[CellGroupData[{ @@ -5765,15 +5618,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[400]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + CellLabel->"In[93]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[BoxData["0.009628573735349574`"], "Output", +Cell[BoxData["0.010148475191362942`"], "Output", CellChangeTimes->{ 3.9913204218154297`*^9, 3.993804091735849*^9, {3.993804140321991*^9, - 3.993804175643557*^9}}, - CellLabel-> - "Out[400]=",ExpressionUUID->"fee33d30-59a0-4780-9ead-e9241afa38ed"] + 3.993804175643557*^9}, 3.993848811524199*^9, 3.99384999195267*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"31ae9a59-eafd-4b75-b670-f0bd8fd6528e"] }, Open ]], Cell[CellGroupData[{ @@ -5786,15 +5637,13 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[401]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + CellLabel->"In[94]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[BoxData["9.031584725311701`"], "Output", +Cell[BoxData["8.797201578614759`"], "Output", CellChangeTimes->{ 3.991320422776104*^9, 3.993804091776442*^9, {3.993804140383285*^9, - 3.993804175691011*^9}}, - CellLabel-> - "Out[401]=",ExpressionUUID->"9037b4ef-2bb7-4bf9-8ed6-b704592f2a23"] + 3.993804175691011*^9}, 3.993848811564343*^9, 3.993849991994873*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"9d97fff2-a297-48d2-aa2f-0b6bf06a9197"] }, Open ]], Cell[CellGroupData[{ @@ -5985,15 +5834,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[402]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + CellLabel->"In[95]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[BoxData["0.04946242283929413`"], "Output", +Cell[BoxData["0.059048763558984335`"], "Output", CellChangeTimes->{ 3.9913204229248886`*^9, 3.993804091794599*^9, {3.993804140398861*^9, - 3.99380417571054*^9}}, - CellLabel-> - "Out[402]=",ExpressionUUID->"2e6e36bc-9a53-489e-9a7d-0d3bc87388fd"] + 3.99380417571054*^9}, 3.993848811584301*^9, 3.993849992005272*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"4c294fe4-3ef7-4e61-9fb7-6361728c9407"] }, Open ]], Cell[CellGroupData[{ @@ -6006,15 +5853,13 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[403]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + CellLabel->"In[96]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[BoxData["3.9848065977013696`"], "Output", +Cell[BoxData["3.6470316862163594`"], "Output", CellChangeTimes->{ 3.9913204230053368`*^9, 3.993804091835825*^9, {3.993804140450575*^9, - 3.99380417577052*^9}}, - CellLabel-> - "Out[403]=",ExpressionUUID->"feff5617-1dc5-41b1-9da2-c4e6155e646e"] + 3.99380417577052*^9}, 3.993848811623715*^9, 3.993849992046672*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"c0813815-0cc4-4099-a4a1-f9cd12c143fc"] }, Open ]], Cell[CellGroupData[{ @@ -6106,15 +5951,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[404]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + CellLabel->"In[97]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[BoxData["0.15698729298393382`"], "Output", +Cell[BoxData["0.16778085836042492`"], "Output", CellChangeTimes->{ 3.9913204230393543`*^9, 3.993804091855238*^9, {3.9938041404653263`*^9, - 3.99380417578846*^9}}, - CellLabel-> - "Out[404]=",ExpressionUUID->"32aa00da-50e4-4f36-a081-9b2e9196a8e8"] + 3.99380417578846*^9}, 3.99384881164307*^9, 3.993849992057291*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"959acbcf-3394-4cf0-8c84-3305235c285d"] }, Open ]], Cell[CellGroupData[{ @@ -6203,15 +6046,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[405]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + CellLabel->"In[98]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[BoxData["0.8430127070160663`"], "Output", +Cell[BoxData["0.832219141639575`"], "Output", CellChangeTimes->{ 3.9913204230728855`*^9, 3.9938040918738823`*^9, {3.99380414047971*^9, - 3.993804175805037*^9}}, - CellLabel-> - "Out[405]=",ExpressionUUID->"d73ffc43-c5af-46ee-a2fc-4a64412159e8"] + 3.993804175805037*^9}, 3.993848811661083*^9, 3.993849992082348*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"6d721ff9-b894-489a-8018-31cdbcc4e6d1"] }, Open ]], Cell[CellGroupData[{ @@ -6333,22 +6174,20 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[406]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + CellLabel->"In[99]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[BoxData["0.13234228282551033`"], "Output", +Cell[BoxData["0.13963044192826393`"], "Output", CellChangeTimes->{ 3.9913204231038837`*^9, 3.9938040918946753`*^9, {3.9938041404939547`*^9, - 3.993804175823888*^9}}, - CellLabel-> - "Out[406]=",ExpressionUUID->"f7610a49-ba13-4e43-9fd5-f286effc2503"] + 3.993804175823888*^9}, 3.993848811679791*^9, 3.9938499920930843`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"b103b628-e5f6-4cf4-9ac5-e17052837861"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel-> - "In[407]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], + "In[100]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6362,7 +6201,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -6384,8 +6225,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6411,77 +6251,84 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799443370365*^9}, CellLabel-> - "In[408]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + "In[101]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.423503734259543`*^-231\\\", \ -\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ -0000000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 408, 21, 31384693109808909235, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"4.667772584347319`*^-213\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 1, + 31384987718215482366, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.99380409193898*^9, {3.993804140517798*^9, - 3.993804175887122*^9}}, + 3.993804175887122*^9}, 3.9938488117962*^9, 3.993849992117158*^9}, CellLabel-> "During evaluation of \ -In[408]:=",ExpressionUUID->"97d2ae00-aae3-499a-a47c-97763672c123"], +In[101]:=",ExpressionUUID->"bb238776-c156-4640-beed-3bd676a27485"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.429747581141914`*^-237\\\", \ -\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ -0000000000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 408, 22, 31384693109808909235, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"2.295289294666224`*^-218\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 2, + 31384987718215482366, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.99380409193898*^9, {3.993804140517798*^9, - 3.9938041758901663`*^9}}, + 3.993804175887122*^9}, 3.9938488117962*^9, 3.993849992124064*^9}, CellLabel-> "During evaluation of \ -In[408]:=",ExpressionUUID->"ee231dc2-c1eb-49dc-aec7-0a4cbf69fc57"], +In[101]:=",ExpressionUUID->"def4c48d-1aba-4521-8075-fb41df6512e3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.769109870559059`*^-244\\\", \ -\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ -0000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 408, 23, 31384693109808909235, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"1.1286653004210207`*^-223\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 3, + 31384987718215482366, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.99380409193898*^9, {3.993804140517798*^9, - 3.993804175892456*^9}}, + 3.993804175887122*^9}, 3.9938488117962*^9, 3.9938499921292067`*^9}, CellLabel-> "During evaluation of \ -In[408]:=",ExpressionUUID->"60948973-7883-401e-9d08-ccf438e82cd0"], +In[101]:=",ExpressionUUID->"48af6a53-90aa-4d02-ba3d-116fd19e1eca"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 408, 24, 31384693109808909235, "Local"}, +during this calculation.\"", 2, 101, 4, 31384987718215482366, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.99380409193898*^9, {3.993804140517798*^9, - 3.9938041758944397`*^9}}, + 3.993804175887122*^9}, 3.9938488117962*^9, 3.993849992133025*^9}, CellLabel-> "During evaluation of \ -In[408]:=",ExpressionUUID->"4896cb3a-92e7-4a49-9077-fd76595695bf"], +In[101]:=",ExpressionUUID->"7c7eb366-b268-4744-8d4a-26374b5d9744"], -Cell[BoxData["9.031584725311696`"], "Output", +Cell[BoxData["8.797201578614766`"], "Output", CellChangeTimes->{ 3.9913204260017204`*^9, 3.993804093177535*^9, 3.9938041421753683`*^9, { - 3.993804172866331*^9, 3.993804177360256*^9}}, + 3.993804172866331*^9, 3.993804177360256*^9}, 3.9938488128541603`*^9, + 3.993849993394236*^9}, CellLabel-> - "Out[408]=",ExpressionUUID->"6ff04d1e-5236-458b-9bfa-af9269a378bb"] + "Out[101]=",ExpressionUUID->"1d4d7b1d-a8e1-4df0-84b8-4a07feb648bf"] }, Open ]], Cell[CellGroupData[{ @@ -6545,72 +6392,80 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9917994459475594`*^9}, CellLabel-> - "In[409]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], + "In[102]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.423503734259543`*^-231\\\", \ -\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ -0000000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 409, 25, 31384693109808909235, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"4.667772584347319`*^-213\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 5, 31384987718215482366, + "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204262354183`*^9, 3.993804093219645*^9, - 3.9938041422138166`*^9, 3.993804177379631*^9}, + 3.9938041422138166`*^9, 3.993804177379631*^9, 3.9938488128793697`*^9, + 3.9938499934772778`*^9}, CellLabel-> "During evaluation of \ -In[409]:=",ExpressionUUID->"17ca5a72-925d-4981-b9be-4288e9b2121d"], +In[102]:=",ExpressionUUID->"c5295c70-5806-4f91-825f-7567e9ace28d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.429747581141914`*^-237\\\", \ -\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ -0000000000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 409, 26, 31384693109808909235, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"2.295289294666224`*^-218\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 6, 31384987718215482366, + "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204262354183`*^9, 3.993804093219645*^9, - 3.9938041422138166`*^9, 3.9938041773823843`*^9}, + 3.9938041422138166`*^9, 3.993804177379631*^9, 3.9938488128793697`*^9, + 3.993849993481476*^9}, CellLabel-> "During evaluation of \ -In[409]:=",ExpressionUUID->"5d85c034-93dc-4e67-aad5-d7f04ccc104b"], +In[102]:=",ExpressionUUID->"8109e673-919f-497e-a743-2663bec99ff4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.769109870559059`*^-244\\\", \ -\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ -0000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 409, 27, 31384693109808909235, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"1.1286653004210207`*^-223\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 7, + 31384987718215482366, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204262354183`*^9, 3.993804093219645*^9, - 3.9938041422138166`*^9, 3.993804177384655*^9}, + 3.9938041422138166`*^9, 3.993804177379631*^9, 3.9938488128793697`*^9, + 3.993849993485873*^9}, CellLabel-> "During evaluation of \ -In[409]:=",ExpressionUUID->"328eb673-a2d7-4508-8628-a79012269eb8"], +In[102]:=",ExpressionUUID->"9cc3b430-a337-4a58-888d-d6f531f48193"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 409, 28, 31384693109808909235, "Local"}, +during this calculation.\"", 2, 102, 8, 31384987718215482366, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204262354183`*^9, 3.993804093219645*^9, - 3.9938041422138166`*^9, 3.993804177386739*^9}, + 3.9938041422138166`*^9, 3.993804177379631*^9, 3.9938488128793697`*^9, + 3.993849993489894*^9}, CellLabel-> "During evaluation of \ -In[409]:=",ExpressionUUID->"c7e05995-11ff-48f7-89b5-e1da1c4b442e"], +In[102]:=",ExpressionUUID->"7500908e-ac1d-4ca5-862f-b8e38b9e31be"], -Cell[BoxData["3.984806597701365`"], "Output", +Cell[BoxData["3.647031686216362`"], "Output", CellChangeTimes->{3.991320428882721*^9, 3.99380409435779*^9, - 3.9938041437664337`*^9, 3.99380417885997*^9}, + 3.9938041437664337`*^9, 3.99380417885997*^9, 3.993848813873954*^9, + 3.9938499948302298`*^9}, CellLabel-> - "Out[409]=",ExpressionUUID->"d69016d8-f51b-4a93-a32d-19994eb9bb67"] + "Out[102]=",ExpressionUUID->"c2c62d68-a3e7-485e-bf97-1a7e82ca345e"] }, Open ]], Cell[CellGroupData[{ @@ -6668,14 +6523,397 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917994505623856`*^9}, CellLabel-> - "In[410]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], + "In[103]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[BoxData["$Aborted"], "Output", +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0VV8bB3ARFSpDhpKZChm6Zsl+ZJ6nkilx3XNCIUNSCSWpSEjRW6gQ +CRmLDD+VSlIkSsqUoXKMN0NKeff946yzPmuv/V3f5+yztjQ9yJFgZ2Njm8AP +6x38VmXro/a3BhIL6z0fEUxkMJmrSTcuQmflh81YHsjWSpMzrkMvNOmcLNsz +3nDxqj9HiyoXrz3ELouIfsZp3IpmN3v8qcK+8EK0MbrwHTLl61ZnuaY9OGuJ +1oV2SPxDldhjPS2Rx2u7UYPXW8kK7E0jsu7zRl9Qwbz5+zJsq6lI3dDWfuTH +EehWit2wNMYTUTiINB/sqirB/nBa5OTDwCH0e0v1UBH2JJfx2CxtBB242TtS +iM2VeMRVfWEUtZiU1BZgS/BnNgfXfkcunorEXWxbsfm7k0bjiDkgr34bm7wl +I6y8ehL1d+fty8KOlreLO9Q6hUrcO+xuYHeLdO4IK5xBpQ602jRshpu/35VE +JroWQaqkYE/fZLtdHvgTNaaYH72EvVpGmW+GNodASzQqDjuN8cyMT2geidzg +gtPYUvmu0aoL80gzL7crEltn+7nJgNpfSC955mQotq9Wf+uY0RKa2tRb6Yk9 +G3F0JfeWv8jhq/MGV+yYWh59hdX/0JP0s2ZO2Bmgc/9g6zL6YflvmxmrX16z +cUjhCjhlc6p7O3bhiysDp8XY4WB/QZc8q+83z8iURHaw+3DprgR2pOJcRWkg +Bxivjn+2ntX3gbTsFI0TzonajE0xmKinfbzhXw4n2Ni4xX3DlmI+clsnxAU/ +ErbO9mEXadimKi9wQWIHp80b7KaaEysO166G7zBO5WPPPXvf/92IF95NmfTv +wRaw5uU72cALZ/zPNJljq3Uaw1rdtRD7u/2oPrb/cNWtHSrrYFdCob4s9hH2 +VrVdvHzgrhbpPunDRCMyJTNx8/ww17Gh/wT2LNmypk1dAF4/1z13CJv9/qi0 +aLAANMQkLrpjS6lLOhZSAiAn8cxYH9vNKLn87YAgDHMXB/ymM1GbT0ioyGsh ++F+4BU8Adl9+UoLXamFoSNod7oY9ThXm3DMRhtn0hGIzbO6wofc7G4VB+4fw +aWls47N7NLyqRGDXwN66Dm8mepyrNVeQvRFKFnLjlLBzR36H64WJAy3TOfzh +ASYy3xvfF1osDj+jgjdlY483CZoWj4rDMbHmlHhsjdztQlKuEqD/kvZ7H3YT +3bOC00ASULNp+bwnEzGnBo59j5WCVaqNT5SwBQOMKytsZECEKAwO82Ci0Vxu +X3t/Gei7cPnMPuzqL+1iE+dkgLrNc1AP28N6f+yWRhkodewqXHbH/ZTCHa/T +ZIHDfrXEeWyNsfzpKBE5/H1eVSW7MdGegzzKloPykJp1+WmMCxOh8L20fX/l +wa3B5LcntmJctjZj4xYIcnq4ahc2W4767iiHLdCy3Jnzax8TFfe57yt/sgVs +DA8PBmBzORed3nRnK3hHqB61d8b9jG0+jNEVIMLKYeO8ExPlOKV/XohSAJ/g +6PVt2En0wYGVNxTA1nDwcz42I+YoJfFeAcKk7RdcsPnrMtmcjBRhKstGt8YR +/z/qk4q1skpQrHhoItiBicRkLkcnDG8Hh23bNJpsmaju4qzCIrsyuP/nrp2G +7fHTtZOUVoY/UhzcDOysJjmF3Z7K0FvcJM6BLXPwccevj8rgz1e9bGCD5y0a +kSdfq0B74o3yYismEheTIKVc1WCAdFkmzZloe14Y7x9Eg6AXVJalIRPRGbFz +yrY0UMlYLhPAzpBN7fPyoME7Q62bPcBEHHcelL6IoIFbuuy8H3ZP1tie1DIa +fIrLaTyH8H2a4ZWpIKsOQS5BVdW78PkmWKu4cGmAaG+9+T9dJrodImdf1aoJ +e3p0jvHTmKg9HGmfzdOFVPKs3hsJJpL27LLdf3gXjP7vU7nOGiYilh+WiB8H +oB+emutmziARqnqVCH03MNff6LbunkFh6vpfUhWNoTDyZn18/QyiTyw1C46Z +AOMt77art2dQ8e7QVdltZiARo9l6/vQMyp31f1KUZgHnLxA6avQZ9MtQ9E1T +tBWYfJff+tFgBvWyccwMetuA5jbtU3ObZlDg5qDk07J2sOZDi/qtX9OoxK+5 +8WqcPRyL1ZLL6ZhGJ35uXFDycwAV0x+Z+SXTaM7S1PnlAUdI9+feYxk/jXTd +UwxHHJxAylzkZ5jXNOrYmOnfpL4HPNiIXD39abTpbmxdwba90GC3sl5SaBpV +Dyha2651hqB131Z/HpxCEp3TB8MnnMHOv+5Rw40ppH41pShnYB9cU3Z6Mmk/ +hTJX/lRJfeYCUSrjixd4p9BDQ9WeuBpXEDSZjtFtmkQZ2hf5lwrdgLIWsraL +nkRtn/POqSe6w/bVjQ4ihpOoyuam3JEYD5BtiPbgZ5tEMwFObIGM/dBdsdP3 +4/MJNGeq4Dtp5AkWpuN3dS9PoIKJT79CtQ7AulVpkX3OE8jldp7Pfl4vOE58 +fSUnP4Eqyq0OcMR7QbGSteBJ5jjSFetYvLDoBUc+CS86vhhHsgMHe975eYN1 +tIinYNY4GuY5ZHdzyBtEL970/nF0HLUn2fqY7aWD9aCt0UuncZQWkc1ztJ0O +QlGx92Jp46iuYXnRx8IHYkL3ry0VGkfrPSBe/bEPKLytR8b/KCS14WXb5jof +OB5lvHn0L4XUWm1EuRp8QHLkjM55bEd993vdT3zgS+YOtTdLFErbHP761Csf +yGy8vdntD4U29d5f39ztA+tHxcejf1FIzlMkw2PBB74KZx/7w6SQrtdkQZwG +A4bCHrSUf6fQ3evTobZaDAAN/Y9+2BveMw1EdBjgq90jJo09abLQWbCTAUmS +DjbJ3yh8f7GtaN3NgPRad4fgUQqtW+B3FXBgwKKlX/+uYQoNX9Jckx3AACEv +JLligEIOL7U7DwYxQOaq6Y7/+inUwKaXrRbMAIeetJOnsK+HGmg+DWOA+xhv +ze8+Ctm6mnmPnGTADon0jwu9FKqRc61RusiAmdHA3KXPFEqqjfSrvsuA1KmH +8WrdFAqgpetGFDBgZ773m/mPFLK+V7ZGp5ABrZH2FvXY3Omj9x4VMyDz5fKQ +JXZciP3Yw0oGVEe8yvX9QKFIBblDVU8ZENqqsLekk0L+6a8Pl/cxIMHjy3H6 +OwpZrBvVDxlgQKNn9EVV7G1xbGtpXxkgJZP0bqmdQqMhmsVlIwyIP/+TPQPb +2zZ7onScAStb/zLb2yjkwhka+OA3Azrv8qyxeUshs9BNR4qECYiYzdkQ+JpC +T7PPWaaKEjC997O2AbZ+K1MuYhMBVKTljXXYavKvPxlJEHBxW5dMaQuFNn48 +afRZnoDOiQaN+VcUovR6hbk1CRgXnmckNVPoMvut+oNOBBQuyy1PPsfzq/Jm +2Owl4EZ3ntJL7LPuESHq+whQjYrNyMaOqLTfuuxGwD43V3UHbG9yRco1OgGz +kokBj5oopN5CZzwPJmBNyOTs5WcU+pgizyObTECflZ1z8BMKlaC1vt9TCLD/ +vLPECfvsxGxT8RUCOK1sDLSwaRZNUTrpBHw7Psi11IjPj82HaZNFgM+VQd2L +2KZBtz5FFBGw3aN9a9l/FBIXP69lUEKAdZULezr2bEvQFY5SAkCAT+gU9p0t +yCapgoBG2rohC+y/vb2NOY8JCDF2kR5toFCltVjB22YC9MVub1XATvjNzpnW +QkBmxf44AWx6wZi3aysBoVscxZbqKcS38rHYcBsBlTnDU23Yh2tdLi9+IGDF +VP3OE9iyitfC5UYI6BIr9vxUR6HfH0+9/zFKAPc9aXiB3R5HqD34ToDpzS7X +CuyoQY0x3XECnvn/1UzC7sl4v9/uJwF8Li4pptipq/hNTqwgIaQxrfNJLYXq +mL3uYRwkhG2wCijF/tZbGBLISUJMtZR1NrZ+pfEt+hoS/PqUvpzCHvWK+GPJ +T0Jj8VsTA2w+axMBE0ES2jMT16ti79QWUEBCJJSeDZCUwk5eW+SsvpGEyOHr +/Bys9cf9ZWLSJNzfWYBaH1OIzCtqFpIl4Su6oPcfdnLy8f718iQ40pNPlmOP +koJrVyqQoHhEoP06a13QzHdcjYSzu6eeHsJ+/E8wepRGAlcP95QX9siPgasD +Gni/jp23M7Ze44lnnTokVB5zEt2NPXy4RKIeSIBPDu2bsde5nNR8tJuEvwm1 +yhuwdY3MrcuMSZBStX/Hg5208evxPHMSujT/jP2poVD1ygfJ2ZYkbOAV8J7F +Hpo6mX/dmgT+6j3iE9g6L4S6LtmTMODl6duPTS/7SsU7kpDUKL/QjX3p5gP2 +M3tIuFS7sbUD+2uIhVq4CwmP1c+bv8Re6ylsdsSNBIqDY/oJK89iaL+/BwnB +Qvd761j7JU8leHrheS/FJlSw+nBb3nGhk2CrVWn1gJU3J1zjyCBhf76A431W +3uBQmzVJwvBSVlY+K6+1dNTUl4Q4B9cduax+j079BX8SFuoNuW+z8u9Ybth5 +mIQxFxeFLFb+JRElzUASNLUzk26w8iOGDVWPkBB1iE/vOjYvo8xFIYSEGq5y +pXRsbbuoINkwEjJEzvhcZeXrWZ0TDyfhe2HM4BXsRHnRTJEIEupfF+elYj/k +G6ngP0FC7Zk1pSnYg3/KWngiSfj14Qoby7zfogY5o0jwfWOdnoyt1WH1azma +hE++GmEs/x9ONi9/ + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VV8bB3ARFSpDhpKZChm6Zsl+ZJ6nkilx3XNCIUNSCSWpSEjRW6gQ +CRmLDD+VSlIkSsqUoXKMN0NKeff946yzPmuv/V3f5+yztjQ9yJFgZ2Njm8AP +6x38VmXro/a3BhIL6z0fEUxkMJmrSTcuQmflh81YHsjWSpMzrkMvNOmcLNsz +3nDxqj9HiyoXrz3ELouIfsZp3IpmN3v8qcK+8EK0MbrwHTLl61ZnuaY9OGuJ +1oV2SPxDldhjPS2Rx2u7UYPXW8kK7E0jsu7zRl9Qwbz5+zJsq6lI3dDWfuTH +EehWit2wNMYTUTiINB/sqirB/nBa5OTDwCH0e0v1UBH2JJfx2CxtBB242TtS +iM2VeMRVfWEUtZiU1BZgS/BnNgfXfkcunorEXWxbsfm7k0bjiDkgr34bm7wl +I6y8ehL1d+fty8KOlreLO9Q6hUrcO+xuYHeLdO4IK5xBpQ602jRshpu/35VE +JroWQaqkYE/fZLtdHvgTNaaYH72EvVpGmW+GNodASzQqDjuN8cyMT2geidzg +gtPYUvmu0aoL80gzL7crEltn+7nJgNpfSC955mQotq9Wf+uY0RKa2tRb6Yk9 +G3F0JfeWv8jhq/MGV+yYWh59hdX/0JP0s2ZO2Bmgc/9g6zL6YflvmxmrX16z +cUjhCjhlc6p7O3bhiysDp8XY4WB/QZc8q+83z8iURHaw+3DprgR2pOJcRWkg +Bxivjn+2ntX3gbTsFI0TzonajE0xmKinfbzhXw4n2Ni4xX3DlmI+clsnxAU/ +ErbO9mEXadimKi9wQWIHp80b7KaaEysO166G7zBO5WPPPXvf/92IF95NmfTv +wRaw5uU72cALZ/zPNJljq3Uaw1rdtRD7u/2oPrb/cNWtHSrrYFdCob4s9hH2 +VrVdvHzgrhbpPunDRCMyJTNx8/ww17Gh/wT2LNmypk1dAF4/1z13CJv9/qi0 +aLAANMQkLrpjS6lLOhZSAiAn8cxYH9vNKLn87YAgDHMXB/ymM1GbT0ioyGsh ++F+4BU8Adl9+UoLXamFoSNod7oY9ThXm3DMRhtn0hGIzbO6wofc7G4VB+4fw +aWls47N7NLyqRGDXwN66Dm8mepyrNVeQvRFKFnLjlLBzR36H64WJAy3TOfzh +ASYy3xvfF1osDj+jgjdlY483CZoWj4rDMbHmlHhsjdztQlKuEqD/kvZ7H3YT +3bOC00ASULNp+bwnEzGnBo59j5WCVaqNT5SwBQOMKytsZECEKAwO82Ci0Vxu +X3t/Gei7cPnMPuzqL+1iE+dkgLrNc1AP28N6f+yWRhkodewqXHbH/ZTCHa/T +ZIHDfrXEeWyNsfzpKBE5/H1eVSW7MdGegzzKloPykJp1+WmMCxOh8L20fX/l +wa3B5LcntmJctjZj4xYIcnq4ahc2W4767iiHLdCy3Jnzax8TFfe57yt/sgVs +DA8PBmBzORed3nRnK3hHqB61d8b9jG0+jNEVIMLKYeO8ExPlOKV/XohSAJ/g +6PVt2En0wYGVNxTA1nDwcz42I+YoJfFeAcKk7RdcsPnrMtmcjBRhKstGt8YR +/z/qk4q1skpQrHhoItiBicRkLkcnDG8Hh23bNJpsmaju4qzCIrsyuP/nrp2G +7fHTtZOUVoY/UhzcDOysJjmF3Z7K0FvcJM6BLXPwccevj8rgz1e9bGCD5y0a +kSdfq0B74o3yYismEheTIKVc1WCAdFkmzZloe14Y7x9Eg6AXVJalIRPRGbFz +yrY0UMlYLhPAzpBN7fPyoME7Q62bPcBEHHcelL6IoIFbuuy8H3ZP1tie1DIa +fIrLaTyH8H2a4ZWpIKsOQS5BVdW78PkmWKu4cGmAaG+9+T9dJrodImdf1aoJ +e3p0jvHTmKg9HGmfzdOFVPKs3hsJJpL27LLdf3gXjP7vU7nOGiYilh+WiB8H +oB+emutmziARqnqVCH03MNff6LbunkFh6vpfUhWNoTDyZn18/QyiTyw1C46Z +AOMt77art2dQ8e7QVdltZiARo9l6/vQMyp31f1KUZgHnLxA6avQZ9MtQ9E1T +tBWYfJff+tFgBvWyccwMetuA5jbtU3ObZlDg5qDk07J2sOZDi/qtX9OoxK+5 +8WqcPRyL1ZLL6ZhGJ35uXFDycwAV0x+Z+SXTaM7S1PnlAUdI9+feYxk/jXTd +UwxHHJxAylzkZ5jXNOrYmOnfpL4HPNiIXD39abTpbmxdwba90GC3sl5SaBpV +Dyha2651hqB131Z/HpxCEp3TB8MnnMHOv+5Rw40ppH41pShnYB9cU3Z6Mmk/ +hTJX/lRJfeYCUSrjixd4p9BDQ9WeuBpXEDSZjtFtmkQZ2hf5lwrdgLIWsraL +nkRtn/POqSe6w/bVjQ4ihpOoyuam3JEYD5BtiPbgZ5tEMwFObIGM/dBdsdP3 +4/MJNGeq4Dtp5AkWpuN3dS9PoIKJT79CtQ7AulVpkX3OE8jldp7Pfl4vOE58 +fSUnP4Eqyq0OcMR7QbGSteBJ5jjSFetYvLDoBUc+CS86vhhHsgMHe975eYN1 +tIinYNY4GuY5ZHdzyBtEL970/nF0HLUn2fqY7aWD9aCt0UuncZQWkc1ztJ0O +QlGx92Jp46iuYXnRx8IHYkL3ry0VGkfrPSBe/bEPKLytR8b/KCS14WXb5jof +OB5lvHn0L4XUWm1EuRp8QHLkjM55bEd993vdT3zgS+YOtTdLFErbHP761Csf +yGy8vdntD4U29d5f39ztA+tHxcejf1FIzlMkw2PBB74KZx/7w6SQrtdkQZwG +A4bCHrSUf6fQ3evTobZaDAAN/Y9+2BveMw1EdBjgq90jJo09abLQWbCTAUmS +DjbJ3yh8f7GtaN3NgPRad4fgUQqtW+B3FXBgwKKlX/+uYQoNX9Jckx3AACEv +JLligEIOL7U7DwYxQOaq6Y7/+inUwKaXrRbMAIeetJOnsK+HGmg+DWOA+xhv +ze8+Ctm6mnmPnGTADon0jwu9FKqRc61RusiAmdHA3KXPFEqqjfSrvsuA1KmH +8WrdFAqgpetGFDBgZ773m/mPFLK+V7ZGp5ABrZH2FvXY3Omj9x4VMyDz5fKQ +JXZciP3Yw0oGVEe8yvX9QKFIBblDVU8ZENqqsLekk0L+6a8Pl/cxIMHjy3H6 +OwpZrBvVDxlgQKNn9EVV7G1xbGtpXxkgJZP0bqmdQqMhmsVlIwyIP/+TPQPb +2zZ7onScAStb/zLb2yjkwhka+OA3Azrv8qyxeUshs9BNR4qECYiYzdkQ+JpC +T7PPWaaKEjC997O2AbZ+K1MuYhMBVKTljXXYavKvPxlJEHBxW5dMaQuFNn48 +afRZnoDOiQaN+VcUovR6hbk1CRgXnmckNVPoMvut+oNOBBQuyy1PPsfzq/Jm +2Owl4EZ3ntJL7LPuESHq+whQjYrNyMaOqLTfuuxGwD43V3UHbG9yRco1OgGz +kokBj5oopN5CZzwPJmBNyOTs5WcU+pgizyObTECflZ1z8BMKlaC1vt9TCLD/ +vLPECfvsxGxT8RUCOK1sDLSwaRZNUTrpBHw7Psi11IjPj82HaZNFgM+VQd2L +2KZBtz5FFBGw3aN9a9l/FBIXP69lUEKAdZULezr2bEvQFY5SAkCAT+gU9p0t +yCapgoBG2rohC+y/vb2NOY8JCDF2kR5toFCltVjB22YC9MVub1XATvjNzpnW +QkBmxf44AWx6wZi3aysBoVscxZbqKcS38rHYcBsBlTnDU23Yh2tdLi9+IGDF +VP3OE9iyitfC5UYI6BIr9vxUR6HfH0+9/zFKAPc9aXiB3R5HqD34ToDpzS7X +CuyoQY0x3XECnvn/1UzC7sl4v9/uJwF8Li4pptipq/hNTqwgIaQxrfNJLYXq +mL3uYRwkhG2wCijF/tZbGBLISUJMtZR1NrZ+pfEt+hoS/PqUvpzCHvWK+GPJ +T0Jj8VsTA2w+axMBE0ES2jMT16ti79QWUEBCJJSeDZCUwk5eW+SsvpGEyOHr +/Bys9cf9ZWLSJNzfWYBaH1OIzCtqFpIl4Su6oPcfdnLy8f718iQ40pNPlmOP +koJrVyqQoHhEoP06a13QzHdcjYSzu6eeHsJ+/E8wepRGAlcP95QX9siPgasD +Gni/jp23M7Ze44lnnTokVB5zEt2NPXy4RKIeSIBPDu2bsde5nNR8tJuEvwm1 +yhuwdY3MrcuMSZBStX/Hg5208evxPHMSujT/jP2poVD1ygfJ2ZYkbOAV8J7F +Hpo6mX/dmgT+6j3iE9g6L4S6LtmTMODl6duPTS/7SsU7kpDUKL/QjX3p5gP2 +M3tIuFS7sbUD+2uIhVq4CwmP1c+bv8Re6ylsdsSNBIqDY/oJK89iaL+/BwnB +Qvd761j7JU8leHrheS/FJlSw+nBb3nGhk2CrVWn1gJU3J1zjyCBhf76A431W +3uBQmzVJwvBSVlY+K6+1dNTUl4Q4B9cduax+j079BX8SFuoNuW+z8u9Ybth5 +mIQxFxeFLFb+JRElzUASNLUzk26w8iOGDVWPkBB1iE/vOjYvo8xFIYSEGq5y +pXRsbbuoINkwEjJEzvhcZeXrWZ0TDyfhe2HM4BXsRHnRTJEIEupfF+elYj/k +G6ngP0FC7Zk1pSnYg3/KWngiSfj14Qoby7zfogY5o0jwfWOdnoyt1WH1azma +hE++GmEs/x9ONi9/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8664018888114483, + 1.1498330759345161`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8664018888114502}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.8664018888114483, + 1.1498330759345161`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8664018888114502}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VV8bB3ARFSpDhpKZChm6Zsl+ZJ6nkilx3XNCIUNSCSWpSEjRW6gQ +CRmLDD+VSlIkSsqUoXKMN0NKeff946yzPmuv/V3f5+yztjQ9yJFgZ2Njm8AP +6x38VmXro/a3BhIL6z0fEUxkMJmrSTcuQmflh81YHsjWSpMzrkMvNOmcLNsz +3nDxqj9HiyoXrz3ELouIfsZp3IpmN3v8qcK+8EK0MbrwHTLl61ZnuaY9OGuJ +1oV2SPxDldhjPS2Rx2u7UYPXW8kK7E0jsu7zRl9Qwbz5+zJsq6lI3dDWfuTH +EehWit2wNMYTUTiINB/sqirB/nBa5OTDwCH0e0v1UBH2JJfx2CxtBB242TtS +iM2VeMRVfWEUtZiU1BZgS/BnNgfXfkcunorEXWxbsfm7k0bjiDkgr34bm7wl +I6y8ehL1d+fty8KOlreLO9Q6hUrcO+xuYHeLdO4IK5xBpQ602jRshpu/35VE +JroWQaqkYE/fZLtdHvgTNaaYH72EvVpGmW+GNodASzQqDjuN8cyMT2geidzg +gtPYUvmu0aoL80gzL7crEltn+7nJgNpfSC955mQotq9Wf+uY0RKa2tRb6Yk9 +G3F0JfeWv8jhq/MGV+yYWh59hdX/0JP0s2ZO2Bmgc/9g6zL6YflvmxmrX16z +cUjhCjhlc6p7O3bhiysDp8XY4WB/QZc8q+83z8iURHaw+3DprgR2pOJcRWkg +Bxivjn+2ntX3gbTsFI0TzonajE0xmKinfbzhXw4n2Ni4xX3DlmI+clsnxAU/ +ErbO9mEXadimKi9wQWIHp80b7KaaEysO166G7zBO5WPPPXvf/92IF95NmfTv +wRaw5uU72cALZ/zPNJljq3Uaw1rdtRD7u/2oPrb/cNWtHSrrYFdCob4s9hH2 +VrVdvHzgrhbpPunDRCMyJTNx8/ww17Gh/wT2LNmypk1dAF4/1z13CJv9/qi0 +aLAANMQkLrpjS6lLOhZSAiAn8cxYH9vNKLn87YAgDHMXB/ymM1GbT0ioyGsh ++F+4BU8Adl9+UoLXamFoSNod7oY9ThXm3DMRhtn0hGIzbO6wofc7G4VB+4fw +aWls47N7NLyqRGDXwN66Dm8mepyrNVeQvRFKFnLjlLBzR36H64WJAy3TOfzh +ASYy3xvfF1osDj+jgjdlY483CZoWj4rDMbHmlHhsjdztQlKuEqD/kvZ7H3YT +3bOC00ASULNp+bwnEzGnBo59j5WCVaqNT5SwBQOMKytsZECEKAwO82Ci0Vxu +X3t/Gei7cPnMPuzqL+1iE+dkgLrNc1AP28N6f+yWRhkodewqXHbH/ZTCHa/T +ZIHDfrXEeWyNsfzpKBE5/H1eVSW7MdGegzzKloPykJp1+WmMCxOh8L20fX/l +wa3B5LcntmJctjZj4xYIcnq4ahc2W4767iiHLdCy3Jnzax8TFfe57yt/sgVs +DA8PBmBzORed3nRnK3hHqB61d8b9jG0+jNEVIMLKYeO8ExPlOKV/XohSAJ/g +6PVt2En0wYGVNxTA1nDwcz42I+YoJfFeAcKk7RdcsPnrMtmcjBRhKstGt8YR +/z/qk4q1skpQrHhoItiBicRkLkcnDG8Hh23bNJpsmaju4qzCIrsyuP/nrp2G +7fHTtZOUVoY/UhzcDOysJjmF3Z7K0FvcJM6BLXPwccevj8rgz1e9bGCD5y0a +kSdfq0B74o3yYismEheTIKVc1WCAdFkmzZloe14Y7x9Eg6AXVJalIRPRGbFz +yrY0UMlYLhPAzpBN7fPyoME7Q62bPcBEHHcelL6IoIFbuuy8H3ZP1tie1DIa +fIrLaTyH8H2a4ZWpIKsOQS5BVdW78PkmWKu4cGmAaG+9+T9dJrodImdf1aoJ +e3p0jvHTmKg9HGmfzdOFVPKs3hsJJpL27LLdf3gXjP7vU7nOGiYilh+WiB8H +oB+emutmziARqnqVCH03MNff6LbunkFh6vpfUhWNoTDyZn18/QyiTyw1C46Z +AOMt77art2dQ8e7QVdltZiARo9l6/vQMyp31f1KUZgHnLxA6avQZ9MtQ9E1T +tBWYfJff+tFgBvWyccwMetuA5jbtU3ObZlDg5qDk07J2sOZDi/qtX9OoxK+5 +8WqcPRyL1ZLL6ZhGJ35uXFDycwAV0x+Z+SXTaM7S1PnlAUdI9+feYxk/jXTd +UwxHHJxAylzkZ5jXNOrYmOnfpL4HPNiIXD39abTpbmxdwba90GC3sl5SaBpV +Dyha2651hqB131Z/HpxCEp3TB8MnnMHOv+5Rw40ppH41pShnYB9cU3Z6Mmk/ +hTJX/lRJfeYCUSrjixd4p9BDQ9WeuBpXEDSZjtFtmkQZ2hf5lwrdgLIWsraL +nkRtn/POqSe6w/bVjQ4ihpOoyuam3JEYD5BtiPbgZ5tEMwFObIGM/dBdsdP3 +4/MJNGeq4Dtp5AkWpuN3dS9PoIKJT79CtQ7AulVpkX3OE8jldp7Pfl4vOE58 +fSUnP4Eqyq0OcMR7QbGSteBJ5jjSFetYvLDoBUc+CS86vhhHsgMHe975eYN1 +tIinYNY4GuY5ZHdzyBtEL970/nF0HLUn2fqY7aWD9aCt0UuncZQWkc1ztJ0O +QlGx92Jp46iuYXnRx8IHYkL3ry0VGkfrPSBe/bEPKLytR8b/KCS14WXb5jof +OB5lvHn0L4XUWm1EuRp8QHLkjM55bEd993vdT3zgS+YOtTdLFErbHP761Csf +yGy8vdntD4U29d5f39ztA+tHxcejf1FIzlMkw2PBB74KZx/7w6SQrtdkQZwG +A4bCHrSUf6fQ3evTobZaDAAN/Y9+2BveMw1EdBjgq90jJo09abLQWbCTAUmS +DjbJ3yh8f7GtaN3NgPRad4fgUQqtW+B3FXBgwKKlX/+uYQoNX9Jckx3AACEv +JLligEIOL7U7DwYxQOaq6Y7/+inUwKaXrRbMAIeetJOnsK+HGmg+DWOA+xhv +ze8+Ctm6mnmPnGTADon0jwu9FKqRc61RusiAmdHA3KXPFEqqjfSrvsuA1KmH +8WrdFAqgpetGFDBgZ773m/mPFLK+V7ZGp5ABrZH2FvXY3Omj9x4VMyDz5fKQ +JXZciP3Yw0oGVEe8yvX9QKFIBblDVU8ZENqqsLekk0L+6a8Pl/cxIMHjy3H6 +OwpZrBvVDxlgQKNn9EVV7G1xbGtpXxkgJZP0bqmdQqMhmsVlIwyIP/+TPQPb +2zZ7onScAStb/zLb2yjkwhka+OA3Azrv8qyxeUshs9BNR4qECYiYzdkQ+JpC +T7PPWaaKEjC997O2AbZ+K1MuYhMBVKTljXXYavKvPxlJEHBxW5dMaQuFNn48 +afRZnoDOiQaN+VcUovR6hbk1CRgXnmckNVPoMvut+oNOBBQuyy1PPsfzq/Jm +2Owl4EZ3ntJL7LPuESHq+whQjYrNyMaOqLTfuuxGwD43V3UHbG9yRco1OgGz +kokBj5oopN5CZzwPJmBNyOTs5WcU+pgizyObTECflZ1z8BMKlaC1vt9TCLD/ +vLPECfvsxGxT8RUCOK1sDLSwaRZNUTrpBHw7Psi11IjPj82HaZNFgM+VQd2L +2KZBtz5FFBGw3aN9a9l/FBIXP69lUEKAdZULezr2bEvQFY5SAkCAT+gU9p0t +yCapgoBG2rohC+y/vb2NOY8JCDF2kR5toFCltVjB22YC9MVub1XATvjNzpnW +QkBmxf44AWx6wZi3aysBoVscxZbqKcS38rHYcBsBlTnDU23Yh2tdLi9+IGDF +VP3OE9iyitfC5UYI6BIr9vxUR6HfH0+9/zFKAPc9aXiB3R5HqD34ToDpzS7X +CuyoQY0x3XECnvn/1UzC7sl4v9/uJwF8Li4pptipq/hNTqwgIaQxrfNJLYXq +mL3uYRwkhG2wCijF/tZbGBLISUJMtZR1NrZ+pfEt+hoS/PqUvpzCHvWK+GPJ +T0Jj8VsTA2w+axMBE0ES2jMT16ti79QWUEBCJJSeDZCUwk5eW+SsvpGEyOHr +/Bys9cf9ZWLSJNzfWYBaH1OIzCtqFpIl4Su6oPcfdnLy8f718iQ40pNPlmOP +koJrVyqQoHhEoP06a13QzHdcjYSzu6eeHsJ+/E8wepRGAlcP95QX9siPgasD +Gni/jp23M7Ze44lnnTokVB5zEt2NPXy4RKIeSIBPDu2bsde5nNR8tJuEvwm1 +yhuwdY3MrcuMSZBStX/Hg5208evxPHMSujT/jP2poVD1ygfJ2ZYkbOAV8J7F +Hpo6mX/dmgT+6j3iE9g6L4S6LtmTMODl6duPTS/7SsU7kpDUKL/QjX3p5gP2 +M3tIuFS7sbUD+2uIhVq4CwmP1c+bv8Re6ylsdsSNBIqDY/oJK89iaL+/BwnB +Qvd761j7JU8leHrheS/FJlSw+nBb3nGhk2CrVWn1gJU3J1zjyCBhf76A431W +3uBQmzVJwvBSVlY+K6+1dNTUl4Q4B9cduax+j079BX8SFuoNuW+z8u9Ybth5 +mIQxFxeFLFb+JRElzUASNLUzk26w8iOGDVWPkBB1iE/vOjYvo8xFIYSEGq5y +pXRsbbuoINkwEjJEzvhcZeXrWZ0TDyfhe2HM4BXsRHnRTJEIEupfF+elYj/k +G6ngP0FC7Zk1pSnYg3/KWngiSfj14Qoby7zfogY5o0jwfWOdnoyt1WH1azma +hE++GmEs/x9ONi9/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8664018888114483, 1.1498330759345161`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8664018888114502}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.8664018888114502}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8664018888114483, 1.1498330759345161`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.9913206956809444`*^9, {3.9938041362133617`*^9, 3.993804154860791*^9}, - 3.99380428221427*^9}, + 3.99380428221427*^9, 3.993848818310897*^9, 3.99385023573065*^9}, CellLabel-> - "Out[410]=",ExpressionUUID->"b2877f9f-711b-42c9-9d91-a81a91766be9"] + "Out[103]=",ExpressionUUID->"9180f680-0b93-4d8d-9854-330a9280068c"] }, Open ]], Cell[CellGroupData[{ @@ -6738,274 +6976,208 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ -9aed2c391662"], + CellChangeTimes->{3.9917994543716736`*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.343580434588877`*^-270\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 9, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993850236101273*^9}, + CellLabel-> + "During evaluation of \ +In[104]:=",ExpressionUUID->"16233701-3203-4726-a68d-e22d6c5ebdb8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4814750761727654`*^-282\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696298666*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 10, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993850236109407*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +In[104]:=",ExpressionUUID->"e99bb3b7-36e8-4078-9335-cfe760f6b877"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.583066554962777`*^-294\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 86, - 10, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696309664*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, + 104, 11, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.9938502361176023`*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 86, 11, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696318653*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +In[104]:=",ExpressionUUID->"0217891a-64ad-4b58-a9f9-ecd10d913de4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913206963286114`*^9}, +during this calculation.\"", 2, 104, 12, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993850236124886*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +In[104]:=",ExpressionUUID->"1437835e-9d99-49da-807a-396cc397c41f"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0lN8fB3BRSUX2ZWYsI9llH2YYnw+KUCohJBQiLVR2LURSpCShRQgt +SpaZyRZFSb6yZEmUJElky1Yiv+f313Ne59x77r3P8/m873mo+/3tvLm5uLgu +LePi+v9ztvfNS4X4HJOnfH5K955Ym7RnSIaZdp0F5VtZ/WXhyoBizfslu67C +0v4Gj8hwQwje8fA9T1c2jN9WVXII3wJCYxJX/7wvBrdj6vdXhDvB50pb/+n3 +NcBlpuAzG+oLFgrDnybfv4ObdRc0WgND4c97g5SJ9/3wpcxj3NYrDmrN7+W0 +Zk+BhE59TbNMOlA+lw3uV18EruBb65t2ZoPoYfeHvOY8uN405W1g6j24qm1R +YeuwCh/lqA6U1T2CD2lazycF+VE3dsP49NlCuNGWvy54Az/eEvxPJTy+EFwE +lNzn6fwYlxXp+ie5ED5GS//j9uTHzSmSWd9yCqHv6GpjUTY/nuMU+QbVFcLQ +poGnNGcBPHMX1gSsKoLfE6lPIrLWoQWnS732fBGUqYksLbHXYZGq/c7oy0UQ +fiDRNqZhHX4XbVBnphbBQk/MaMLUOhT5Hb4sI68IIr+WijXLC+Kv/PQJkVdF +ENOUu6svUBAdntv5NHMVQ3zOmWZuKSGkpUWdDztRDNZ6B4XF1guhm0f9r63h +xbDqpZ2DkoYQqoq9lyFFFUPM1w09NqZCeOafFSsrsRhOyjcOXjsohIbH6MXe +D4rhaKbkP8VyIWRRdk5VfyqGnbeK1G32CGNGuuFqjmkJCKrf9N/rLYypiQ6e +1ZYl0FQRU+zvL4y3PJv31GwrAeue3YbXooWRWpeixHYuATPSP/NP+cLYcs9e +1PZYCeilWe/xXxDGxhKD21vvlIDEta8Xkm+LYOMBjbmQ2RKQVGPH/M4TQfrS +LL/L3xIg1cSe2VsogqdfMs7TuFggM6ESpFQrgoyU8Tu9fCzYsDXAo2JIBHkO +dO4bobBAd/ki7auuKBYe2Tk2a8qC7YHiAzoNojilcHew/TwLdqwZ6k1tE8XJ +zrIv3AkssMsu+7DwURSTAxQZaldY4Nji2lw3LooXQnh5DqWxYK/63XIXMTF8 ++SRzJu8+Cw4NaCad9RDDlF61w4L1LDhvb2XyblYMjxyISHrIzQYSq4nEvUwc +b5a9MPRfyYYCEfs57TXiuN06frPGajZ0vnMrTJIVxyR7i6QUITYo7AyU37lF +HDM3H1oUl2NDzbY7K1vSxbG55nPyJyM2OD5W+Lp0Vxz5bzc3GAIbhtc+rNYs +EEez0yb+l8zYINTICr1cI47llLU8663Y4GHdMGw7Io4dSaa+Sw5sWLSYaXpr +LIF+XDdrTh1lw5W88PxFCwncX1pADThGrL+SK05jpwR6DJ37syeQDVtfrTa9 +5C2BZ288F5cLZ8MNc7mSrYkS6Dk3KONyjg2GaJP632cJRN/d6tdvsKHxTsuJ +vz8kUL985IzcbWL9JYcdatMSOPKuzCXnDhvOV3nwxa+SxJUHBR6m5RDnNw6O +sNaWxBHv5EbdAjacoGe5vzkriSIqo8L6z9lgnSkwbZMgiRM0N029GjbI856M +a0qRxIdhck81XrKhpd2xqO2+JDK4I9cK1rNhY8Bant4mSXQqODWc1MyGobyQ +vF8kKez84esc/4kN1fzfGEEKUujyjZWj/ZkN1wPtmuc0pNBaafrQuz42bDbT ++L2AUni5oOY4zwAbsj/1W/H6SOGfEw5R64fZ4CpqO0oukcJlwZR7rjNs0I2o +iMqolML4ihmj/Fk2rO5XFqfWSaG/ynX36Tk2lD3hAcUPUjhuqu4UPM8GcZuy +K1pLUnjEk6pDX2LDaJHihpJVJByQSPdw5eLAS8lrZfrCJJyd4FcOX8aBE4NH ++xkbSPg8Wft8Lg8HWqIU9DbbkLDaMze/gpcD94aS6l/bk7Ai0vh1ySoOnN6+ +5GrtRkJbUnxsHh8HNKS7z20/RsJlGe9mItZw4GLp5ffOqSQMTRevGhTgwD7Z +xUMfM0nILekjw1rHAcNYPy73hySU+/VQ46QgB77v2qzi9YyE/062uC0IcWDT ++Hz40a8klA3co/dMlANhW66pvvhJQr6Nsvx7xThQkKXRLTJLwqYYUsccYUl7 +D3rZKjLOLXoYykhwYNvjP0NrhMnIWnuu8wHhsyuT09zIZLRMvHpQS5IDP0tf +zfFsJGOPrmbgRikOUIXd7zkakHH1vtyxXMKOh347PkAylgq2eUqSOPBcWo1j +u4uM5kDbNEZ4Jvild5YrGRNKPYp3kjmg2rJXbNqbjEfy1KmFhJPPXglMDyXj +s7e5K90oHKjvUVH4GUXGrjqHyMeEF/Rq20ziyahU9IjrN2HtRNfopGtkFNLU +usCU5sCB7zM6A7eJ+dd8yKcJ38TL/bR7ZMwb7CktI9ySrnz1QiEZaV0SnhOE +V0y9MP1YRsb9DffI8jIcYGzdM7mxlozYIDVgS9g/dzozqpGMuZcXnwUTzvl3 +aUd7BxmfRgw8TCf8YbcSl9JnMkan7nv0lLBA0fMnYUNkvHOV72ULYfPVLu6N +k2QseHF8aoBwqOeUgOxfMq6R1jeeJvy4MqHq2HIKWsHwnX+E+8UUj77kp2Cb +p4bcclkOSPhXS0tIUDDM+2bV/7213untQTkKrnv27iQX4Sjqr5OVKhScPHPC +dY6YzwmPV1+nS8F0N1n3H4RH2hQ+7jOmoO7dsNhOwnIaVfGszRTU1lJqryLs +ELvbiHc7BRtPN1llE774eWLY2YmC+bclfkQSrja8eOPRPgo6aT4qcSE8nbTe +esmPgl98DfI1CauMVP7ZGUhBN8EDrUvE+3Tb5Pgg5xQFIyIGlf4jnHx73Gku +loKiib6FSYTrZ+NWWV+h4IPS24d3EdZ5UOEznk24aSy2nviePtwOEmaPKBiy +LWgogvCtPWN119gUVF4VE6NKeKUAVZFRT5xPWu5EGFEvRj7lHQmtFBymKbyR +IhzwfNe5z90U3L4yw4NN1Fv38diBmFEKXngz4dJL1Oe6Rtlr72cpKBO69cUh +wps2lJmrckmjw/b1AdNEfRe8H8luFpbGXdpOBXNE/UcZ79xHMpRGx8b63ldE +v2xxy/hlYCaN0T9WpMgRFogciXbYKo1durVNQUS/3ao9l3fFQxr3Am/nOhEO +lFqXj6y8II2cVGoQN9GvZw7znlJIlib6uypOm+hni0R7AbPb0mjplamzh+j3 +9tYxrVNF0vjSvMwuYy0HJpzWB099kMad1114B4j8eBoewCs0II0mfaqCQ0S+ +nL71LG3jmDQ2c07XDK7kwNq+3RUHuWXQpOSERvtyDij5JHD1qcrgxeM2+/yJ +/HILmrnYGCGDPK2Ohx8Qebgh1YwyfE4Gq7KH9J2JvPxZevkx7xUZol7ft/BM +syF8QaXFLEcGezYsO2c1yYaUaDexskYZvC66eWPqCHGfJL2+kystiyqq0vVM +Iq+TS0S1a5Vk8fOVyY83iTx36dhX06cti6rpBT+ne4i8l1wYIFvIIlX2FG9a +Fxt4MrVUrx6VRd7cv4HZrWxgFKSzTlcT4wOH4hqI+2TT+6bFsXpZ3HX11cw8 +cd/Yci23dH8ni/9k5VWUqtngaXf0A3yTRYcss5/HK9hgEUE9E7lCDuOeVMh3 +lbAhQHb2rqmaHH4yq9nSc5cNL33ujNYGy2FWfeHR9kg2WC3QhU9GyGHgJf91 +Z0+zoelKO00vUg4Dhj5Uq51kw4cyvsicC3L4IUPU+UQIG8bWBAqfuyWHo0O8 +T9qOsEGycIuBRY0cHm6tm+92ZsPh35OR9fxUtLcteiOqSZzn2AHxQWEqPg0P +56xVZ8Oq4e58HkkqSipWunKpsCG3p7bTRJ6KSmsl+7vl2dBblaLOplExMv2w +0l5xNmw/R+/Kcqfi523yzukLLNARjtKMKKJi3nD9gZV1LPijJtir4SCPhcnR +jd7bWDB7mxSl6yKPIvz9b0OsWDC9boMC3V0eBSKNg2I3s2Bsiu636aA8SrBo +NelMFvRXeM66nJJHm9i4/DQNFjTYPBWIy5XHrvB7R+fXsuDGITfon5HHXyN3 +nDzflIBx/qPM69fXY/8+JaFQeglMClt7ONYoYNohjl6McDEMJHg4HudVxI6b +k7yW7EKwGg+x+kZTwrMxuI2/sgB+eq46wTqjjAc95N1KavOJ/wUJ7vM1Ktjj +zGMc1nMfhN8qJhaOq2KIIvXCQ/08oMQ92UGjqeNjqr/7jaC7kKZGFxTx0cCK +tH+0A6uzoIFkqj+VtBG/60kltD68DQxKzRXNTk1MriYFmG1JBwGe7MB9Z7XQ +vO8GqF9PAZkoWWNnRW10qvD4Hbn8KvBtcOXYvdbGd3X2V6MHLsFGptSTkL06 +WBLVVdE1GAfHe4Vrrbl0MZ0kLks1iYHxqQQHqzRdNA4dd9CMj4SPXVmOt2/o +4qRNutuHU5HQ8Iyze/KWLoZ1fqUkBERCzvk+5/QsXexgPMhf4xgJLmQ9tx8P +dXHEZVn+cWokvDLrOXDhmS4Od/FPlJ04AzeTVELf9Oti0/YHg0L9p8BSs+6G +lYYeltYO//o0Hg5OK7fYt2jq4e/xr1q+78PB79Mb/t06ekhOuVezvDocEuPf +RnoZ6GFLW05FYGI4dH5vP3DGVA9RQmV+48Zw8Mr8qsN20EN59V0ey4+FwVmh +Zf/JndZDKv113gRPKFRNGf2da9LD3kzV089dgyCr8en+Xa16KD6MTWNWQRCT +q9tQ0KaH0+4HV6kZBIHVbrV07y49/F46RXkrFATt5SSDti96yJ1tMcN5HQjD +UX+OF0zr4cXY1x9ItEAQF3w67EXSR2Zj19Fxygk4qq7T3eqtj9p1siFaQscg +aI407+6rj/P0jkc7uI7ByRoe0pifPuZ+1BE7Mx4A8U4dzqsD9PF750PnlU0B +cD8m9INZuD5m7QpnPYsPgP6PVV0lifo4lnS+9TVfADhesnmf8lQfi7bc8ROX +OwrMMa92Zz4a6t/7FFQf6wfiFZbZlWtoKPtkt6nnET8YO68aICtAQ5VZAR4R +ez/IoE6s+SZMw46vgzpFVD/4Zx9hHkChoVm34pvBZwehuiKpOFaThjbrjHjV +5n3B9ELVlRIHGr5d8D1fHuUDmxUkt/Fn01CphC1EafAC1ugrqlcODR+f1siZ +YnuBwtMTs+V5NOxtsoOPWV6w3Lr5jm8+DXNZlvv6wrygxj/2Vy2Lhm/WuQiW +qHqBScV0avhrGjZTt64LvewJNLvW/u8/acjd+0df23s/KEdeDK0xMMDIXeGl +MyYeUGmUu2IrwwBvPFZ8tlvDA3bMVV/tMDbAymjPKw1kDwg9OvNoyNQA9Syu +97ycdId6V48vAlsNkCt7hUqJjzv40mnWezwMsPu7pT3L2Q0e/PpCno4zwH2v +GhxTHFzBpGDh/ql4A9QI0JhwobnCu4MSNN5EA7wFJjMmEq4w37d1BynZAFuV +hj7v+7AHrJufxuBtA7xu3xsn6L4HhvMvjSYUGSDZxuLrX38XUPWmV2/oNkDH +0oQDnvec4LK87Xz0RwP83dJlmXHJCaY/79fv7zXAVIMXwpMnnKDKJSE/46sB +BvrNkHrRCex2fE6VGDVAkWryWFvPbggzOhfAx2WIP08ZxMuI74Z6oVbq6AZD +LKrJkC+66QAazd9cbZQNke/Z09FXMQ5wNWE+9YGqIU5EV++fOOIArrwKAgc0 +DTFCf8+KWHSA8YXg+V5DQ3R4DdbFg/YgPkRpa7ExxK/39fqWaPbgXeUbwzpm +iAPxrVV/Bu1g7MhwyOZAQ/yuO48TLXYQKn34UGewIXbHna1aLLeDiyf97X5H +GCL9+mqXvZftoJARLGcca4jZY57d6nQ7WOBEV9beIPbzIdL375WdcPVJxvS7 +WkMUDPnwqnHHDqC4yw151hliJe925ZPMHZArkN0zXW+IrEtNwqi6A0qP5NaI +NxkiyZNHf8XyHfBJ7dEVly5DHP9822rFse2gfL9Mvf+nITpta5APtLaF6sx2 +r0kxOobebk2gk7ZC31aqe7AkHcm/X04K/rEBrj9HnP+S6Fgp65W2pssGzHby +2q6Qo+P4EykVv+s2ULeMYSClSsevxfnv6kVtoHH/HT5TEzr2tCp5T0hYQ7eC +X8GVA3QU8jQyFDDYAn9bOPfFDtLRtjS6XpC0BSineO7eOERHd1Ohcp1FS9jb +cSs1J4AYv7bXur3WEvrONUeWhtNxZe+W0Yt2lvB9UG9XXyIdZyXVmh4FWcD0 +/aU5zad07Nz+HRdaN8Ggo0XmhTI6lus+M/cu3wRdyy9t+VpBx29LZ2MGszdB +hQcp/fpzOtopV/pqB26Cs5L6jMU3dDz98sjeQYlNIBjnd7LhIx0Pc7UblHua +g7pPB5c3NwPjdzp/DV5rBjJilAdVyxk4erAqtWrOFARr9++U5GWgq+uzMfJX +U5iSmcj6bw0DP3rJ6EuUm0J552pzHTEGnjhdP89/0BS2WOC5JSUGDipsdRhp +QPDckM93YxsDV1tEWVcbAYS/cvNT3MHA8PNcIW6iAFe8hf8rtmPgt8gdI6qj +JlCZG5bw324GegyHTVnfMQFRxS3rFvcxMKN3TXT2ChOoU/wm6hHMQKWZmQ1x +3cagqiwrp3iHgav2XQr8c5cBWP8usjiLgVwHjzuORDHA0Tf2i0kOAyf7xfhW +eDAg+v5o9u4HDHRq9jB6QmHAR+XKDRdKGHj8157d3al0SFRxVvv5moEvTrkt ++KQYwqRqMq14goFyrRV5Wx/RoKsRN4tMMbBqgZn86QoNnh8d2xU4w0DuV6oT +CUE0SCy2OkabZ2D/woezFkADVQbXo3IeI9T4pFxHbdeH/VZHqLXiRtiRsmnE +jUcf2n0s17YbG2HE1PkJlRBdqOCbIemDEc6/GfHb4a4L2fnZKtdNjVBAzu5F +kqUuBIwvWjhZGKGmzucUL0ld4A9hRX3cboQ7p2RGLSt0wCKWOjew3wgZSguS +Yyt0oDTn75eZOCM0NH+ly1OgBTTzwDnreCOU4XtmV56uBewvP9dmXjLCsw9T +1OLOaUGxTK+B9VUjfPjuyBOfvVrwKO35pYybxP69HkbrCmhBZsI5umWBEQrn +WZ7s+L4RLgSuS0prM0JeZ0rPyQx1WCUSlzfaYYTfsgObzSPUIbaIq9KsywiH +fu19o+OkDjFjk4M/PxrhraFRlThhdTjt225sOkisV8VQXXtBDY67pg/9+G2E +kQ8slxxOqYLLpvVoJGOMaHb+T2+UMiy2rxKolTPGCV+ZmloPZcj0HuuxXm+M +ryNvDLeCMgzGloW4KBsjS4SWefCfEhx/s/1JmI4xMnaXXow6pQQXbU/KlFoY +46MXSk5q0YpQ7tSxoOdvjHav9nRq5ivA3h/lDZXHjPHUoqbDj0QF4ArPTNsU +aIxqumWFdccVwOLmIT37MGI/nDannwwFePdp2eET0caolZT5q7dxPQzv39hT +lGqMH4V3LTHn5IF85HzZxufGKDgq7tTqRYXEpQP68TXGaKj+d8belgrcVy2K +vr80xk3eA9emDKgwzFnxIPONMZbnPHGPWkOFcq6YNOE2Y7SgvZruKZEDl2uR +IbPfjJFLVazzBJ8cpFWE6VetYaLXYtvbtkRpWGvrXEQSYOIFnZPLNHylIbLP +UCNEkIlXJYWAbSoNvit+K2iJMVFcZG6l3QwFDLYHi2bLMLH80UPpp24U6Ow/ +PnVOm4nzZfqPuRlkEFt9uGjbbib2F+m9MBeSghzzU+ETzkwMpfqab/opCTqn +Es2TXZnoEGX0JOS1JNhOFHZ07WPiy0A0Dz4tCbGdM388DzPxwfUR3//GJOB3 +9hmz8CgmXr//djqjSxy6jZLb8vKZKJORd928WRR8g3JuWRUQ+3WwZ6gWisJs +Adv7ZyETOSF9lsZJoiAs3zWnzWFiTMy6mi+7RMFmlTTl2XMmTtiLq6n3iEBl +e55XWwcTUyvjPS5PCoO1QKlGcBcTP0ltFBLpEIYuyzezkj1MPJqxuqmqVBim +y0fi3PqYaOEQcPtSpDBoZGk9/jHMxEr6/Cy3sDBUdpsGJ4wS8wtaD72YFQJr +0V2gOcHEPK1R+7weIThwPqg1cIaJi10Olf25QjD9PPaGxG8mblbyeU+PF4Kz +86me5fNMHNi7KZMTIASCeg/U9y4y8fT0529OjkKQcaR8ZmmJiZcrvUPkjIXg +f8MrDuU= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7019,233 +7191,163 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV13k0lN8fB3BRSUX2ZWYsI9llH2YYnw+KUCohJBQiLVR2LURSpCShRQgt +SpaZyRZFSb6yZEmUJElky1Yiv+f313Ne59x77r3P8/m873mo+/3tvLm5uLgu +LePi+v9ztvfNS4X4HJOnfH5K955Ym7RnSIaZdp0F5VtZ/WXhyoBizfslu67C +0v4Gj8hwQwje8fA9T1c2jN9WVXII3wJCYxJX/7wvBrdj6vdXhDvB50pb/+n3 +NcBlpuAzG+oLFgrDnybfv4ObdRc0WgND4c97g5SJ9/3wpcxj3NYrDmrN7+W0 +Zk+BhE59TbNMOlA+lw3uV18EruBb65t2ZoPoYfeHvOY8uN405W1g6j24qm1R +YeuwCh/lqA6U1T2CD2lazycF+VE3dsP49NlCuNGWvy54Az/eEvxPJTy+EFwE +lNzn6fwYlxXp+ie5ED5GS//j9uTHzSmSWd9yCqHv6GpjUTY/nuMU+QbVFcLQ +poGnNGcBPHMX1gSsKoLfE6lPIrLWoQWnS732fBGUqYksLbHXYZGq/c7oy0UQ +fiDRNqZhHX4XbVBnphbBQk/MaMLUOhT5Hb4sI68IIr+WijXLC+Kv/PQJkVdF +ENOUu6svUBAdntv5NHMVQ3zOmWZuKSGkpUWdDztRDNZ6B4XF1guhm0f9r63h +xbDqpZ2DkoYQqoq9lyFFFUPM1w09NqZCeOafFSsrsRhOyjcOXjsohIbH6MXe +D4rhaKbkP8VyIWRRdk5VfyqGnbeK1G32CGNGuuFqjmkJCKrf9N/rLYypiQ6e +1ZYl0FQRU+zvL4y3PJv31GwrAeue3YbXooWRWpeixHYuATPSP/NP+cLYcs9e +1PZYCeilWe/xXxDGxhKD21vvlIDEta8Xkm+LYOMBjbmQ2RKQVGPH/M4TQfrS +LL/L3xIg1cSe2VsogqdfMs7TuFggM6ESpFQrgoyU8Tu9fCzYsDXAo2JIBHkO +dO4bobBAd/ki7auuKBYe2Tk2a8qC7YHiAzoNojilcHew/TwLdqwZ6k1tE8XJ +zrIv3AkssMsu+7DwURSTAxQZaldY4Nji2lw3LooXQnh5DqWxYK/63XIXMTF8 ++SRzJu8+Cw4NaCad9RDDlF61w4L1LDhvb2XyblYMjxyISHrIzQYSq4nEvUwc +b5a9MPRfyYYCEfs57TXiuN06frPGajZ0vnMrTJIVxyR7i6QUITYo7AyU37lF +HDM3H1oUl2NDzbY7K1vSxbG55nPyJyM2OD5W+Lp0Vxz5bzc3GAIbhtc+rNYs +EEez0yb+l8zYINTICr1cI47llLU8663Y4GHdMGw7Io4dSaa+Sw5sWLSYaXpr +LIF+XDdrTh1lw5W88PxFCwncX1pADThGrL+SK05jpwR6DJ37syeQDVtfrTa9 +5C2BZ288F5cLZ8MNc7mSrYkS6Dk3KONyjg2GaJP632cJRN/d6tdvsKHxTsuJ +vz8kUL985IzcbWL9JYcdatMSOPKuzCXnDhvOV3nwxa+SxJUHBR6m5RDnNw6O +sNaWxBHv5EbdAjacoGe5vzkriSIqo8L6z9lgnSkwbZMgiRM0N029GjbI856M +a0qRxIdhck81XrKhpd2xqO2+JDK4I9cK1rNhY8Bant4mSXQqODWc1MyGobyQ +vF8kKez84esc/4kN1fzfGEEKUujyjZWj/ZkN1wPtmuc0pNBaafrQuz42bDbT ++L2AUni5oOY4zwAbsj/1W/H6SOGfEw5R64fZ4CpqO0oukcJlwZR7rjNs0I2o +iMqolML4ihmj/Fk2rO5XFqfWSaG/ynX36Tk2lD3hAcUPUjhuqu4UPM8GcZuy +K1pLUnjEk6pDX2LDaJHihpJVJByQSPdw5eLAS8lrZfrCJJyd4FcOX8aBE4NH ++xkbSPg8Wft8Lg8HWqIU9DbbkLDaMze/gpcD94aS6l/bk7Ai0vh1ySoOnN6+ +5GrtRkJbUnxsHh8HNKS7z20/RsJlGe9mItZw4GLp5ffOqSQMTRevGhTgwD7Z +xUMfM0nILekjw1rHAcNYPy73hySU+/VQ46QgB77v2qzi9YyE/062uC0IcWDT ++Hz40a8klA3co/dMlANhW66pvvhJQr6Nsvx7xThQkKXRLTJLwqYYUsccYUl7 +D3rZKjLOLXoYykhwYNvjP0NrhMnIWnuu8wHhsyuT09zIZLRMvHpQS5IDP0tf +zfFsJGOPrmbgRikOUIXd7zkakHH1vtyxXMKOh347PkAylgq2eUqSOPBcWo1j +u4uM5kDbNEZ4Jvild5YrGRNKPYp3kjmg2rJXbNqbjEfy1KmFhJPPXglMDyXj +s7e5K90oHKjvUVH4GUXGrjqHyMeEF/Rq20ziyahU9IjrN2HtRNfopGtkFNLU +usCU5sCB7zM6A7eJ+dd8yKcJ38TL/bR7ZMwb7CktI9ySrnz1QiEZaV0SnhOE +V0y9MP1YRsb9DffI8jIcYGzdM7mxlozYIDVgS9g/dzozqpGMuZcXnwUTzvl3 +aUd7BxmfRgw8TCf8YbcSl9JnMkan7nv0lLBA0fMnYUNkvHOV72ULYfPVLu6N +k2QseHF8aoBwqOeUgOxfMq6R1jeeJvy4MqHq2HIKWsHwnX+E+8UUj77kp2Cb +p4bcclkOSPhXS0tIUDDM+2bV/7213untQTkKrnv27iQX4Sjqr5OVKhScPHPC +dY6YzwmPV1+nS8F0N1n3H4RH2hQ+7jOmoO7dsNhOwnIaVfGszRTU1lJqryLs +ELvbiHc7BRtPN1llE774eWLY2YmC+bclfkQSrja8eOPRPgo6aT4qcSE8nbTe +esmPgl98DfI1CauMVP7ZGUhBN8EDrUvE+3Tb5Pgg5xQFIyIGlf4jnHx73Gku +loKiib6FSYTrZ+NWWV+h4IPS24d3EdZ5UOEznk24aSy2nviePtwOEmaPKBiy +LWgogvCtPWN119gUVF4VE6NKeKUAVZFRT5xPWu5EGFEvRj7lHQmtFBymKbyR +IhzwfNe5z90U3L4yw4NN1Fv38diBmFEKXngz4dJL1Oe6Rtlr72cpKBO69cUh +wps2lJmrckmjw/b1AdNEfRe8H8luFpbGXdpOBXNE/UcZ79xHMpRGx8b63ldE +v2xxy/hlYCaN0T9WpMgRFogciXbYKo1durVNQUS/3ao9l3fFQxr3Am/nOhEO +lFqXj6y8II2cVGoQN9GvZw7znlJIlib6uypOm+hni0R7AbPb0mjplamzh+j3 +9tYxrVNF0vjSvMwuYy0HJpzWB099kMad1114B4j8eBoewCs0II0mfaqCQ0S+ +nL71LG3jmDQ2c07XDK7kwNq+3RUHuWXQpOSERvtyDij5JHD1qcrgxeM2+/yJ +/HILmrnYGCGDPK2Ohx8Qebgh1YwyfE4Gq7KH9J2JvPxZevkx7xUZol7ft/BM +syF8QaXFLEcGezYsO2c1yYaUaDexskYZvC66eWPqCHGfJL2+kystiyqq0vVM +Iq+TS0S1a5Vk8fOVyY83iTx36dhX06cti6rpBT+ne4i8l1wYIFvIIlX2FG9a +Fxt4MrVUrx6VRd7cv4HZrWxgFKSzTlcT4wOH4hqI+2TT+6bFsXpZ3HX11cw8 +cd/Yci23dH8ni/9k5VWUqtngaXf0A3yTRYcss5/HK9hgEUE9E7lCDuOeVMh3 +lbAhQHb2rqmaHH4yq9nSc5cNL33ujNYGy2FWfeHR9kg2WC3QhU9GyGHgJf91 +Z0+zoelKO00vUg4Dhj5Uq51kw4cyvsicC3L4IUPU+UQIG8bWBAqfuyWHo0O8 +T9qOsEGycIuBRY0cHm6tm+92ZsPh35OR9fxUtLcteiOqSZzn2AHxQWEqPg0P +56xVZ8Oq4e58HkkqSipWunKpsCG3p7bTRJ6KSmsl+7vl2dBblaLOplExMv2w +0l5xNmw/R+/Kcqfi523yzukLLNARjtKMKKJi3nD9gZV1LPijJtir4SCPhcnR +jd7bWDB7mxSl6yKPIvz9b0OsWDC9boMC3V0eBSKNg2I3s2Bsiu636aA8SrBo +NelMFvRXeM66nJJHm9i4/DQNFjTYPBWIy5XHrvB7R+fXsuDGITfon5HHXyN3 +nDzflIBx/qPM69fXY/8+JaFQeglMClt7ONYoYNohjl6McDEMJHg4HudVxI6b +k7yW7EKwGg+x+kZTwrMxuI2/sgB+eq46wTqjjAc95N1KavOJ/wUJ7vM1Ktjj +zGMc1nMfhN8qJhaOq2KIIvXCQ/08oMQ92UGjqeNjqr/7jaC7kKZGFxTx0cCK +tH+0A6uzoIFkqj+VtBG/60kltD68DQxKzRXNTk1MriYFmG1JBwGe7MB9Z7XQ +vO8GqF9PAZkoWWNnRW10qvD4Hbn8KvBtcOXYvdbGd3X2V6MHLsFGptSTkL06 +WBLVVdE1GAfHe4Vrrbl0MZ0kLks1iYHxqQQHqzRdNA4dd9CMj4SPXVmOt2/o +4qRNutuHU5HQ8Iyze/KWLoZ1fqUkBERCzvk+5/QsXexgPMhf4xgJLmQ9tx8P +dXHEZVn+cWokvDLrOXDhmS4Od/FPlJ04AzeTVELf9Oti0/YHg0L9p8BSs+6G +lYYeltYO//o0Hg5OK7fYt2jq4e/xr1q+78PB79Mb/t06ekhOuVezvDocEuPf +RnoZ6GFLW05FYGI4dH5vP3DGVA9RQmV+48Zw8Mr8qsN20EN59V0ey4+FwVmh +Zf/JndZDKv113gRPKFRNGf2da9LD3kzV089dgyCr8en+Xa16KD6MTWNWQRCT +q9tQ0KaH0+4HV6kZBIHVbrV07y49/F46RXkrFATt5SSDti96yJ1tMcN5HQjD +UX+OF0zr4cXY1x9ItEAQF3w67EXSR2Zj19Fxygk4qq7T3eqtj9p1siFaQscg +aI407+6rj/P0jkc7uI7ByRoe0pifPuZ+1BE7Mx4A8U4dzqsD9PF750PnlU0B +cD8m9INZuD5m7QpnPYsPgP6PVV0lifo4lnS+9TVfADhesnmf8lQfi7bc8ROX +OwrMMa92Zz4a6t/7FFQf6wfiFZbZlWtoKPtkt6nnET8YO68aICtAQ5VZAR4R +ez/IoE6s+SZMw46vgzpFVD/4Zx9hHkChoVm34pvBZwehuiKpOFaThjbrjHjV +5n3B9ELVlRIHGr5d8D1fHuUDmxUkt/Fn01CphC1EafAC1ugrqlcODR+f1siZ +YnuBwtMTs+V5NOxtsoOPWV6w3Lr5jm8+DXNZlvv6wrygxj/2Vy2Lhm/WuQiW +qHqBScV0avhrGjZTt64LvewJNLvW/u8/acjd+0df23s/KEdeDK0xMMDIXeGl +MyYeUGmUu2IrwwBvPFZ8tlvDA3bMVV/tMDbAymjPKw1kDwg9OvNoyNQA9Syu +97ycdId6V48vAlsNkCt7hUqJjzv40mnWezwMsPu7pT3L2Q0e/PpCno4zwH2v +GhxTHFzBpGDh/ql4A9QI0JhwobnCu4MSNN5EA7wFJjMmEq4w37d1BynZAFuV +hj7v+7AHrJufxuBtA7xu3xsn6L4HhvMvjSYUGSDZxuLrX38XUPWmV2/oNkDH +0oQDnvec4LK87Xz0RwP83dJlmXHJCaY/79fv7zXAVIMXwpMnnKDKJSE/46sB +BvrNkHrRCex2fE6VGDVAkWryWFvPbggzOhfAx2WIP08ZxMuI74Z6oVbq6AZD +LKrJkC+66QAazd9cbZQNke/Z09FXMQ5wNWE+9YGqIU5EV++fOOIArrwKAgc0 +DTFCf8+KWHSA8YXg+V5DQ3R4DdbFg/YgPkRpa7ExxK/39fqWaPbgXeUbwzpm +iAPxrVV/Bu1g7MhwyOZAQ/yuO48TLXYQKn34UGewIXbHna1aLLeDiyf97X5H +GCL9+mqXvZftoJARLGcca4jZY57d6nQ7WOBEV9beIPbzIdL375WdcPVJxvS7 +WkMUDPnwqnHHDqC4yw151hliJe925ZPMHZArkN0zXW+IrEtNwqi6A0qP5NaI +NxkiyZNHf8XyHfBJ7dEVly5DHP9822rFse2gfL9Mvf+nITpta5APtLaF6sx2 +r0kxOobebk2gk7ZC31aqe7AkHcm/X04K/rEBrj9HnP+S6Fgp65W2pssGzHby +2q6Qo+P4EykVv+s2ULeMYSClSsevxfnv6kVtoHH/HT5TEzr2tCp5T0hYQ7eC +X8GVA3QU8jQyFDDYAn9bOPfFDtLRtjS6XpC0BSineO7eOERHd1Ohcp1FS9jb +cSs1J4AYv7bXur3WEvrONUeWhtNxZe+W0Yt2lvB9UG9XXyIdZyXVmh4FWcD0 +/aU5zad07Nz+HRdaN8Ggo0XmhTI6lus+M/cu3wRdyy9t+VpBx29LZ2MGszdB +hQcp/fpzOtopV/pqB26Cs5L6jMU3dDz98sjeQYlNIBjnd7LhIx0Pc7UblHua +g7pPB5c3NwPjdzp/DV5rBjJilAdVyxk4erAqtWrOFARr9++U5GWgq+uzMfJX +U5iSmcj6bw0DP3rJ6EuUm0J552pzHTEGnjhdP89/0BS2WOC5JSUGDipsdRhp +QPDckM93YxsDV1tEWVcbAYS/cvNT3MHA8PNcIW6iAFe8hf8rtmPgt8gdI6qj +JlCZG5bw324GegyHTVnfMQFRxS3rFvcxMKN3TXT2ChOoU/wm6hHMQKWZmQ1x +3cagqiwrp3iHgav2XQr8c5cBWP8usjiLgVwHjzuORDHA0Tf2i0kOAyf7xfhW +eDAg+v5o9u4HDHRq9jB6QmHAR+XKDRdKGHj8157d3al0SFRxVvv5moEvTrkt ++KQYwqRqMq14goFyrRV5Wx/RoKsRN4tMMbBqgZn86QoNnh8d2xU4w0DuV6oT +CUE0SCy2OkabZ2D/woezFkADVQbXo3IeI9T4pFxHbdeH/VZHqLXiRtiRsmnE +jUcf2n0s17YbG2HE1PkJlRBdqOCbIemDEc6/GfHb4a4L2fnZKtdNjVBAzu5F +kqUuBIwvWjhZGKGmzucUL0ld4A9hRX3cboQ7p2RGLSt0wCKWOjew3wgZSguS +Yyt0oDTn75eZOCM0NH+ly1OgBTTzwDnreCOU4XtmV56uBewvP9dmXjLCsw9T +1OLOaUGxTK+B9VUjfPjuyBOfvVrwKO35pYybxP69HkbrCmhBZsI5umWBEQrn +WZ7s+L4RLgSuS0prM0JeZ0rPyQx1WCUSlzfaYYTfsgObzSPUIbaIq9KsywiH +fu19o+OkDjFjk4M/PxrhraFRlThhdTjt225sOkisV8VQXXtBDY67pg/9+G2E +kQ8slxxOqYLLpvVoJGOMaHb+T2+UMiy2rxKolTPGCV+ZmloPZcj0HuuxXm+M +ryNvDLeCMgzGloW4KBsjS4SWefCfEhx/s/1JmI4xMnaXXow6pQQXbU/KlFoY +46MXSk5q0YpQ7tSxoOdvjHav9nRq5ivA3h/lDZXHjPHUoqbDj0QF4ArPTNsU +aIxqumWFdccVwOLmIT37MGI/nDannwwFePdp2eET0caolZT5q7dxPQzv39hT +lGqMH4V3LTHn5IF85HzZxufGKDgq7tTqRYXEpQP68TXGaKj+d8belgrcVy2K +vr80xk3eA9emDKgwzFnxIPONMZbnPHGPWkOFcq6YNOE2Y7SgvZruKZEDl2uR +IbPfjJFLVazzBJ8cpFWE6VetYaLXYtvbtkRpWGvrXEQSYOIFnZPLNHylIbLP +UCNEkIlXJYWAbSoNvit+K2iJMVFcZG6l3QwFDLYHi2bLMLH80UPpp24U6Ow/ +PnVOm4nzZfqPuRlkEFt9uGjbbib2F+m9MBeSghzzU+ETzkwMpfqab/opCTqn +Es2TXZnoEGX0JOS1JNhOFHZ07WPiy0A0Dz4tCbGdM388DzPxwfUR3//GJOB3 +9hmz8CgmXr//djqjSxy6jZLb8vKZKJORd928WRR8g3JuWRUQ+3WwZ6gWisJs +Adv7ZyETOSF9lsZJoiAs3zWnzWFiTMy6mi+7RMFmlTTl2XMmTtiLq6n3iEBl +e55XWwcTUyvjPS5PCoO1QKlGcBcTP0ltFBLpEIYuyzezkj1MPJqxuqmqVBim +y0fi3PqYaOEQcPtSpDBoZGk9/jHMxEr6/Cy3sDBUdpsGJ4wS8wtaD72YFQJr +0V2gOcHEPK1R+7weIThwPqg1cIaJi10Olf25QjD9PPaGxG8mblbyeU+PF4Kz +86me5fNMHNi7KZMTIASCeg/U9y4y8fT0529OjkKQcaR8ZmmJiZcrvUPkjIXg +f8MrDuU= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.08641080525867108}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7257,19 +7359,19 @@ HbLGog== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.08641080525867108}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7283,232 +7385,162 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV13k0lN8fB3BRSUX2ZWYsI9llH2YYnw+KUCohJBQiLVR2LURSpCShRQgt +SpaZyRZFSb6yZEmUJElky1Yiv+f313Ne59x77r3P8/m873mo+/3tvLm5uLgu +LePi+v9ztvfNS4X4HJOnfH5K955Ym7RnSIaZdp0F5VtZ/WXhyoBizfslu67C +0v4Gj8hwQwje8fA9T1c2jN9WVXII3wJCYxJX/7wvBrdj6vdXhDvB50pb/+n3 +NcBlpuAzG+oLFgrDnybfv4ObdRc0WgND4c97g5SJ9/3wpcxj3NYrDmrN7+W0 +Zk+BhE59TbNMOlA+lw3uV18EruBb65t2ZoPoYfeHvOY8uN405W1g6j24qm1R +YeuwCh/lqA6U1T2CD2lazycF+VE3dsP49NlCuNGWvy54Az/eEvxPJTy+EFwE +lNzn6fwYlxXp+ie5ED5GS//j9uTHzSmSWd9yCqHv6GpjUTY/nuMU+QbVFcLQ +poGnNGcBPHMX1gSsKoLfE6lPIrLWoQWnS732fBGUqYksLbHXYZGq/c7oy0UQ +fiDRNqZhHX4XbVBnphbBQk/MaMLUOhT5Hb4sI68IIr+WijXLC+Kv/PQJkVdF +ENOUu6svUBAdntv5NHMVQ3zOmWZuKSGkpUWdDztRDNZ6B4XF1guhm0f9r63h +xbDqpZ2DkoYQqoq9lyFFFUPM1w09NqZCeOafFSsrsRhOyjcOXjsohIbH6MXe +D4rhaKbkP8VyIWRRdk5VfyqGnbeK1G32CGNGuuFqjmkJCKrf9N/rLYypiQ6e +1ZYl0FQRU+zvL4y3PJv31GwrAeue3YbXooWRWpeixHYuATPSP/NP+cLYcs9e +1PZYCeilWe/xXxDGxhKD21vvlIDEta8Xkm+LYOMBjbmQ2RKQVGPH/M4TQfrS +LL/L3xIg1cSe2VsogqdfMs7TuFggM6ESpFQrgoyU8Tu9fCzYsDXAo2JIBHkO +dO4bobBAd/ki7auuKBYe2Tk2a8qC7YHiAzoNojilcHew/TwLdqwZ6k1tE8XJ +zrIv3AkssMsu+7DwURSTAxQZaldY4Nji2lw3LooXQnh5DqWxYK/63XIXMTF8 ++SRzJu8+Cw4NaCad9RDDlF61w4L1LDhvb2XyblYMjxyISHrIzQYSq4nEvUwc +b5a9MPRfyYYCEfs57TXiuN06frPGajZ0vnMrTJIVxyR7i6QUITYo7AyU37lF +HDM3H1oUl2NDzbY7K1vSxbG55nPyJyM2OD5W+Lp0Vxz5bzc3GAIbhtc+rNYs +EEez0yb+l8zYINTICr1cI47llLU8663Y4GHdMGw7Io4dSaa+Sw5sWLSYaXpr +LIF+XDdrTh1lw5W88PxFCwncX1pADThGrL+SK05jpwR6DJ37syeQDVtfrTa9 +5C2BZ288F5cLZ8MNc7mSrYkS6Dk3KONyjg2GaJP632cJRN/d6tdvsKHxTsuJ +vz8kUL985IzcbWL9JYcdatMSOPKuzCXnDhvOV3nwxa+SxJUHBR6m5RDnNw6O +sNaWxBHv5EbdAjacoGe5vzkriSIqo8L6z9lgnSkwbZMgiRM0N029GjbI856M +a0qRxIdhck81XrKhpd2xqO2+JDK4I9cK1rNhY8Bant4mSXQqODWc1MyGobyQ +vF8kKez84esc/4kN1fzfGEEKUujyjZWj/ZkN1wPtmuc0pNBaafrQuz42bDbT ++L2AUni5oOY4zwAbsj/1W/H6SOGfEw5R64fZ4CpqO0oukcJlwZR7rjNs0I2o +iMqolML4ihmj/Fk2rO5XFqfWSaG/ynX36Tk2lD3hAcUPUjhuqu4UPM8GcZuy +K1pLUnjEk6pDX2LDaJHihpJVJByQSPdw5eLAS8lrZfrCJJyd4FcOX8aBE4NH ++xkbSPg8Wft8Lg8HWqIU9DbbkLDaMze/gpcD94aS6l/bk7Ai0vh1ySoOnN6+ +5GrtRkJbUnxsHh8HNKS7z20/RsJlGe9mItZw4GLp5ffOqSQMTRevGhTgwD7Z +xUMfM0nILekjw1rHAcNYPy73hySU+/VQ46QgB77v2qzi9YyE/062uC0IcWDT ++Hz40a8klA3co/dMlANhW66pvvhJQr6Nsvx7xThQkKXRLTJLwqYYUsccYUl7 +D3rZKjLOLXoYykhwYNvjP0NrhMnIWnuu8wHhsyuT09zIZLRMvHpQS5IDP0tf +zfFsJGOPrmbgRikOUIXd7zkakHH1vtyxXMKOh347PkAylgq2eUqSOPBcWo1j +u4uM5kDbNEZ4Jvild5YrGRNKPYp3kjmg2rJXbNqbjEfy1KmFhJPPXglMDyXj +s7e5K90oHKjvUVH4GUXGrjqHyMeEF/Rq20ziyahU9IjrN2HtRNfopGtkFNLU +usCU5sCB7zM6A7eJ+dd8yKcJ38TL/bR7ZMwb7CktI9ySrnz1QiEZaV0SnhOE +V0y9MP1YRsb9DffI8jIcYGzdM7mxlozYIDVgS9g/dzozqpGMuZcXnwUTzvl3 +aUd7BxmfRgw8TCf8YbcSl9JnMkan7nv0lLBA0fMnYUNkvHOV72ULYfPVLu6N +k2QseHF8aoBwqOeUgOxfMq6R1jeeJvy4MqHq2HIKWsHwnX+E+8UUj77kp2Cb +p4bcclkOSPhXS0tIUDDM+2bV/7213untQTkKrnv27iQX4Sjqr5OVKhScPHPC +dY6YzwmPV1+nS8F0N1n3H4RH2hQ+7jOmoO7dsNhOwnIaVfGszRTU1lJqryLs +ELvbiHc7BRtPN1llE774eWLY2YmC+bclfkQSrja8eOPRPgo6aT4qcSE8nbTe +esmPgl98DfI1CauMVP7ZGUhBN8EDrUvE+3Tb5Pgg5xQFIyIGlf4jnHx73Gku +loKiib6FSYTrZ+NWWV+h4IPS24d3EdZ5UOEznk24aSy2nviePtwOEmaPKBiy +LWgogvCtPWN119gUVF4VE6NKeKUAVZFRT5xPWu5EGFEvRj7lHQmtFBymKbyR +IhzwfNe5z90U3L4yw4NN1Fv38diBmFEKXngz4dJL1Oe6Rtlr72cpKBO69cUh +wps2lJmrckmjw/b1AdNEfRe8H8luFpbGXdpOBXNE/UcZ79xHMpRGx8b63ldE +v2xxy/hlYCaN0T9WpMgRFogciXbYKo1durVNQUS/3ao9l3fFQxr3Am/nOhEO +lFqXj6y8II2cVGoQN9GvZw7znlJIlib6uypOm+hni0R7AbPb0mjplamzh+j3 +9tYxrVNF0vjSvMwuYy0HJpzWB099kMad1114B4j8eBoewCs0II0mfaqCQ0S+ +nL71LG3jmDQ2c07XDK7kwNq+3RUHuWXQpOSERvtyDij5JHD1qcrgxeM2+/yJ +/HILmrnYGCGDPK2Ohx8Qebgh1YwyfE4Gq7KH9J2JvPxZevkx7xUZol7ft/BM +syF8QaXFLEcGezYsO2c1yYaUaDexskYZvC66eWPqCHGfJL2+kystiyqq0vVM +Iq+TS0S1a5Vk8fOVyY83iTx36dhX06cti6rpBT+ne4i8l1wYIFvIIlX2FG9a +Fxt4MrVUrx6VRd7cv4HZrWxgFKSzTlcT4wOH4hqI+2TT+6bFsXpZ3HX11cw8 +cd/Yci23dH8ni/9k5VWUqtngaXf0A3yTRYcss5/HK9hgEUE9E7lCDuOeVMh3 +lbAhQHb2rqmaHH4yq9nSc5cNL33ujNYGy2FWfeHR9kg2WC3QhU9GyGHgJf91 +Z0+zoelKO00vUg4Dhj5Uq51kw4cyvsicC3L4IUPU+UQIG8bWBAqfuyWHo0O8 +T9qOsEGycIuBRY0cHm6tm+92ZsPh35OR9fxUtLcteiOqSZzn2AHxQWEqPg0P +56xVZ8Oq4e58HkkqSipWunKpsCG3p7bTRJ6KSmsl+7vl2dBblaLOplExMv2w +0l5xNmw/R+/Kcqfi523yzukLLNARjtKMKKJi3nD9gZV1LPijJtir4SCPhcnR +jd7bWDB7mxSl6yKPIvz9b0OsWDC9boMC3V0eBSKNg2I3s2Bsiu636aA8SrBo +NelMFvRXeM66nJJHm9i4/DQNFjTYPBWIy5XHrvB7R+fXsuDGITfon5HHXyN3 +nDzflIBx/qPM69fXY/8+JaFQeglMClt7ONYoYNohjl6McDEMJHg4HudVxI6b +k7yW7EKwGg+x+kZTwrMxuI2/sgB+eq46wTqjjAc95N1KavOJ/wUJ7vM1Ktjj +zGMc1nMfhN8qJhaOq2KIIvXCQ/08oMQ92UGjqeNjqr/7jaC7kKZGFxTx0cCK +tH+0A6uzoIFkqj+VtBG/60kltD68DQxKzRXNTk1MriYFmG1JBwGe7MB9Z7XQ +vO8GqF9PAZkoWWNnRW10qvD4Hbn8KvBtcOXYvdbGd3X2V6MHLsFGptSTkL06 +WBLVVdE1GAfHe4Vrrbl0MZ0kLks1iYHxqQQHqzRdNA4dd9CMj4SPXVmOt2/o +4qRNutuHU5HQ8Iyze/KWLoZ1fqUkBERCzvk+5/QsXexgPMhf4xgJLmQ9tx8P +dXHEZVn+cWokvDLrOXDhmS4Od/FPlJ04AzeTVELf9Oti0/YHg0L9p8BSs+6G +lYYeltYO//o0Hg5OK7fYt2jq4e/xr1q+78PB79Mb/t06ekhOuVezvDocEuPf +RnoZ6GFLW05FYGI4dH5vP3DGVA9RQmV+48Zw8Mr8qsN20EN59V0ey4+FwVmh +Zf/JndZDKv113gRPKFRNGf2da9LD3kzV089dgyCr8en+Xa16KD6MTWNWQRCT +q9tQ0KaH0+4HV6kZBIHVbrV07y49/F46RXkrFATt5SSDti96yJ1tMcN5HQjD +UX+OF0zr4cXY1x9ItEAQF3w67EXSR2Zj19Fxygk4qq7T3eqtj9p1siFaQscg +aI407+6rj/P0jkc7uI7ByRoe0pifPuZ+1BE7Mx4A8U4dzqsD9PF750PnlU0B +cD8m9INZuD5m7QpnPYsPgP6PVV0lifo4lnS+9TVfADhesnmf8lQfi7bc8ROX +OwrMMa92Zz4a6t/7FFQf6wfiFZbZlWtoKPtkt6nnET8YO68aICtAQ5VZAR4R +ez/IoE6s+SZMw46vgzpFVD/4Zx9hHkChoVm34pvBZwehuiKpOFaThjbrjHjV +5n3B9ELVlRIHGr5d8D1fHuUDmxUkt/Fn01CphC1EafAC1ugrqlcODR+f1siZ +YnuBwtMTs+V5NOxtsoOPWV6w3Lr5jm8+DXNZlvv6wrygxj/2Vy2Lhm/WuQiW +qHqBScV0avhrGjZTt64LvewJNLvW/u8/acjd+0df23s/KEdeDK0xMMDIXeGl +MyYeUGmUu2IrwwBvPFZ8tlvDA3bMVV/tMDbAymjPKw1kDwg9OvNoyNQA9Syu +97ycdId6V48vAlsNkCt7hUqJjzv40mnWezwMsPu7pT3L2Q0e/PpCno4zwH2v +GhxTHFzBpGDh/ql4A9QI0JhwobnCu4MSNN5EA7wFJjMmEq4w37d1BynZAFuV +hj7v+7AHrJufxuBtA7xu3xsn6L4HhvMvjSYUGSDZxuLrX38XUPWmV2/oNkDH +0oQDnvec4LK87Xz0RwP83dJlmXHJCaY/79fv7zXAVIMXwpMnnKDKJSE/46sB +BvrNkHrRCex2fE6VGDVAkWryWFvPbggzOhfAx2WIP08ZxMuI74Z6oVbq6AZD +LKrJkC+66QAazd9cbZQNke/Z09FXMQ5wNWE+9YGqIU5EV++fOOIArrwKAgc0 +DTFCf8+KWHSA8YXg+V5DQ3R4DdbFg/YgPkRpa7ExxK/39fqWaPbgXeUbwzpm +iAPxrVV/Bu1g7MhwyOZAQ/yuO48TLXYQKn34UGewIXbHna1aLLeDiyf97X5H +GCL9+mqXvZftoJARLGcca4jZY57d6nQ7WOBEV9beIPbzIdL375WdcPVJxvS7 +WkMUDPnwqnHHDqC4yw151hliJe925ZPMHZArkN0zXW+IrEtNwqi6A0qP5NaI +NxkiyZNHf8XyHfBJ7dEVly5DHP9822rFse2gfL9Mvf+nITpta5APtLaF6sx2 +r0kxOobebk2gk7ZC31aqe7AkHcm/X04K/rEBrj9HnP+S6Fgp65W2pssGzHby +2q6Qo+P4EykVv+s2ULeMYSClSsevxfnv6kVtoHH/HT5TEzr2tCp5T0hYQ7eC +X8GVA3QU8jQyFDDYAn9bOPfFDtLRtjS6XpC0BSineO7eOERHd1Ohcp1FS9jb +cSs1J4AYv7bXur3WEvrONUeWhtNxZe+W0Yt2lvB9UG9XXyIdZyXVmh4FWcD0 +/aU5zad07Nz+HRdaN8Ggo0XmhTI6lus+M/cu3wRdyy9t+VpBx29LZ2MGszdB +hQcp/fpzOtopV/pqB26Cs5L6jMU3dDz98sjeQYlNIBjnd7LhIx0Pc7UblHua +g7pPB5c3NwPjdzp/DV5rBjJilAdVyxk4erAqtWrOFARr9++U5GWgq+uzMfJX +U5iSmcj6bw0DP3rJ6EuUm0J552pzHTEGnjhdP89/0BS2WOC5JSUGDipsdRhp +QPDckM93YxsDV1tEWVcbAYS/cvNT3MHA8PNcIW6iAFe8hf8rtmPgt8gdI6qj +JlCZG5bw324GegyHTVnfMQFRxS3rFvcxMKN3TXT2ChOoU/wm6hHMQKWZmQ1x +3cagqiwrp3iHgav2XQr8c5cBWP8usjiLgVwHjzuORDHA0Tf2i0kOAyf7xfhW +eDAg+v5o9u4HDHRq9jB6QmHAR+XKDRdKGHj8157d3al0SFRxVvv5moEvTrkt ++KQYwqRqMq14goFyrRV5Wx/RoKsRN4tMMbBqgZn86QoNnh8d2xU4w0DuV6oT +CUE0SCy2OkabZ2D/woezFkADVQbXo3IeI9T4pFxHbdeH/VZHqLXiRtiRsmnE +jUcf2n0s17YbG2HE1PkJlRBdqOCbIemDEc6/GfHb4a4L2fnZKtdNjVBAzu5F +kqUuBIwvWjhZGKGmzucUL0ld4A9hRX3cboQ7p2RGLSt0wCKWOjew3wgZSguS +Yyt0oDTn75eZOCM0NH+ly1OgBTTzwDnreCOU4XtmV56uBewvP9dmXjLCsw9T +1OLOaUGxTK+B9VUjfPjuyBOfvVrwKO35pYybxP69HkbrCmhBZsI5umWBEQrn +WZ7s+L4RLgSuS0prM0JeZ0rPyQx1WCUSlzfaYYTfsgObzSPUIbaIq9KsywiH +fu19o+OkDjFjk4M/PxrhraFRlThhdTjt225sOkisV8VQXXtBDY67pg/9+G2E +kQ8slxxOqYLLpvVoJGOMaHb+T2+UMiy2rxKolTPGCV+ZmloPZcj0HuuxXm+M +ryNvDLeCMgzGloW4KBsjS4SWefCfEhx/s/1JmI4xMnaXXow6pQQXbU/KlFoY +46MXSk5q0YpQ7tSxoOdvjHav9nRq5ivA3h/lDZXHjPHUoqbDj0QF4ArPTNsU +aIxqumWFdccVwOLmIT37MGI/nDannwwFePdp2eET0caolZT5q7dxPQzv39hT +lGqMH4V3LTHn5IF85HzZxufGKDgq7tTqRYXEpQP68TXGaKj+d8belgrcVy2K +vr80xk3eA9emDKgwzFnxIPONMZbnPHGPWkOFcq6YNOE2Y7SgvZruKZEDl2uR +IbPfjJFLVazzBJ8cpFWE6VetYaLXYtvbtkRpWGvrXEQSYOIFnZPLNHylIbLP +UCNEkIlXJYWAbSoNvit+K2iJMVFcZG6l3QwFDLYHi2bLMLH80UPpp24U6Ow/ +PnVOm4nzZfqPuRlkEFt9uGjbbib2F+m9MBeSghzzU+ETzkwMpfqab/opCTqn +Es2TXZnoEGX0JOS1JNhOFHZ07WPiy0A0Dz4tCbGdM388DzPxwfUR3//GJOB3 +9hmz8CgmXr//djqjSxy6jZLb8vKZKJORd928WRR8g3JuWRUQ+3WwZ6gWisJs +Adv7ZyETOSF9lsZJoiAs3zWnzWFiTMy6mi+7RMFmlTTl2XMmTtiLq6n3iEBl +e55XWwcTUyvjPS5PCoO1QKlGcBcTP0ltFBLpEIYuyzezkj1MPJqxuqmqVBim +y0fi3PqYaOEQcPtSpDBoZGk9/jHMxEr6/Cy3sDBUdpsGJ4wS8wtaD72YFQJr +0V2gOcHEPK1R+7weIThwPqg1cIaJi10Olf25QjD9PPaGxG8mblbyeU+PF4Kz +86me5fNMHNi7KZMTIASCeg/U9y4y8fT0529OjkKQcaR8ZmmJiZcrvUPkjIXg +f8MrDuU= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.08641080525867108}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7519,6 +7551,7 @@ HbLGog== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7546,7 +7579,8 @@ HbLGog== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.08641080525867108}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7554,24 +7588,1010 @@ HbLGog== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913218813523655`*^9}, - CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] + CellChangeTimes->{3.9913218813523655`*^9, 3.993850685997842*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"6071ed82-2b7e-4128-85ec-c8f2f5a086b8"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ -9e93d345c648"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.011071"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.031476"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.049865"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.064634"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.074128"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.079917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.081589"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.07959"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.075388"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.069397"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.062354"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.055005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.047683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.040719"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.034333"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.028605"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.023579"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.019247"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.015565"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.012478"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.009921"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.007825"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.006123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.004756"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.003667"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.002807"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.002134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.001611"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.001208"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.0009"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000667"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, { + 3.993849116243969*^9, 3.9938491174682283`*^9}, {3.993849237485689*^9, + 3.99384924665593*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.081589}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993850686167259*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"c41a2731-a84e-4615-8b40-92d02b9f7e48"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ -ec28b28907cc"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0lN8fB3BRSUX2ZWYsI9llH2YYnw+KUCohJBQiLVR2LURSpCShRQgt +SpaZyRZFSb6yZEmUJElky1Yiv+f313Ne59x77r3P8/m873mo+/3tvLm5uLgu +LePi+v9ztvfNS4X4HJOnfH5K955Ym7RnSIaZdp0F5VtZ/WXhyoBizfslu67C +0v4Gj8hwQwje8fA9T1c2jN9WVXII3wJCYxJX/7wvBrdj6vdXhDvB50pb/+n3 +NcBlpuAzG+oLFgrDnybfv4ObdRc0WgND4c97g5SJ9/3wpcxj3NYrDmrN7+W0 +Zk+BhE59TbNMOlA+lw3uV18EruBb65t2ZoPoYfeHvOY8uN405W1g6j24qm1R +YeuwCh/lqA6U1T2CD2lazycF+VE3dsP49NlCuNGWvy54Az/eEvxPJTy+EFwE +lNzn6fwYlxXp+ie5ED5GS//j9uTHzSmSWd9yCqHv6GpjUTY/nuMU+QbVFcLQ +poGnNGcBPHMX1gSsKoLfE6lPIrLWoQWnS732fBGUqYksLbHXYZGq/c7oy0UQ +fiDRNqZhHX4XbVBnphbBQk/MaMLUOhT5Hb4sI68IIr+WijXLC+Kv/PQJkVdF +ENOUu6svUBAdntv5NHMVQ3zOmWZuKSGkpUWdDztRDNZ6B4XF1guhm0f9r63h +xbDqpZ2DkoYQqoq9lyFFFUPM1w09NqZCeOafFSsrsRhOyjcOXjsohIbH6MXe +D4rhaKbkP8VyIWRRdk5VfyqGnbeK1G32CGNGuuFqjmkJCKrf9N/rLYypiQ6e +1ZYl0FQRU+zvL4y3PJv31GwrAeue3YbXooWRWpeixHYuATPSP/NP+cLYcs9e +1PZYCeilWe/xXxDGxhKD21vvlIDEta8Xkm+LYOMBjbmQ2RKQVGPH/M4TQfrS +LL/L3xIg1cSe2VsogqdfMs7TuFggM6ESpFQrgoyU8Tu9fCzYsDXAo2JIBHkO +dO4bobBAd/ki7auuKBYe2Tk2a8qC7YHiAzoNojilcHew/TwLdqwZ6k1tE8XJ +zrIv3AkssMsu+7DwURSTAxQZaldY4Nji2lw3LooXQnh5DqWxYK/63XIXMTF8 ++SRzJu8+Cw4NaCad9RDDlF61w4L1LDhvb2XyblYMjxyISHrIzQYSq4nEvUwc +b5a9MPRfyYYCEfs57TXiuN06frPGajZ0vnMrTJIVxyR7i6QUITYo7AyU37lF +HDM3H1oUl2NDzbY7K1vSxbG55nPyJyM2OD5W+Lp0Vxz5bzc3GAIbhtc+rNYs +EEez0yb+l8zYINTICr1cI47llLU8663Y4GHdMGw7Io4dSaa+Sw5sWLSYaXpr +LIF+XDdrTh1lw5W88PxFCwncX1pADThGrL+SK05jpwR6DJ37syeQDVtfrTa9 +5C2BZ288F5cLZ8MNc7mSrYkS6Dk3KONyjg2GaJP632cJRN/d6tdvsKHxTsuJ +vz8kUL985IzcbWL9JYcdatMSOPKuzCXnDhvOV3nwxa+SxJUHBR6m5RDnNw6O +sNaWxBHv5EbdAjacoGe5vzkriSIqo8L6z9lgnSkwbZMgiRM0N029GjbI856M +a0qRxIdhck81XrKhpd2xqO2+JDK4I9cK1rNhY8Bant4mSXQqODWc1MyGobyQ +vF8kKez84esc/4kN1fzfGEEKUujyjZWj/ZkN1wPtmuc0pNBaafrQuz42bDbT ++L2AUni5oOY4zwAbsj/1W/H6SOGfEw5R64fZ4CpqO0oukcJlwZR7rjNs0I2o +iMqolML4ihmj/Fk2rO5XFqfWSaG/ynX36Tk2lD3hAcUPUjhuqu4UPM8GcZuy +K1pLUnjEk6pDX2LDaJHihpJVJByQSPdw5eLAS8lrZfrCJJyd4FcOX8aBE4NH ++xkbSPg8Wft8Lg8HWqIU9DbbkLDaMze/gpcD94aS6l/bk7Ai0vh1ySoOnN6+ +5GrtRkJbUnxsHh8HNKS7z20/RsJlGe9mItZw4GLp5ffOqSQMTRevGhTgwD7Z +xUMfM0nILekjw1rHAcNYPy73hySU+/VQ46QgB77v2qzi9YyE/062uC0IcWDT ++Hz40a8klA3co/dMlANhW66pvvhJQr6Nsvx7xThQkKXRLTJLwqYYUsccYUl7 +D3rZKjLOLXoYykhwYNvjP0NrhMnIWnuu8wHhsyuT09zIZLRMvHpQS5IDP0tf +zfFsJGOPrmbgRikOUIXd7zkakHH1vtyxXMKOh347PkAylgq2eUqSOPBcWo1j +u4uM5kDbNEZ4Jvild5YrGRNKPYp3kjmg2rJXbNqbjEfy1KmFhJPPXglMDyXj +s7e5K90oHKjvUVH4GUXGrjqHyMeEF/Rq20ziyahU9IjrN2HtRNfopGtkFNLU +usCU5sCB7zM6A7eJ+dd8yKcJ38TL/bR7ZMwb7CktI9ySrnz1QiEZaV0SnhOE +V0y9MP1YRsb9DffI8jIcYGzdM7mxlozYIDVgS9g/dzozqpGMuZcXnwUTzvl3 +aUd7BxmfRgw8TCf8YbcSl9JnMkan7nv0lLBA0fMnYUNkvHOV72ULYfPVLu6N +k2QseHF8aoBwqOeUgOxfMq6R1jeeJvy4MqHq2HIKWsHwnX+E+8UUj77kp2Cb +p4bcclkOSPhXS0tIUDDM+2bV/7213untQTkKrnv27iQX4Sjqr5OVKhScPHPC +dY6YzwmPV1+nS8F0N1n3H4RH2hQ+7jOmoO7dsNhOwnIaVfGszRTU1lJqryLs +ELvbiHc7BRtPN1llE774eWLY2YmC+bclfkQSrja8eOPRPgo6aT4qcSE8nbTe +esmPgl98DfI1CauMVP7ZGUhBN8EDrUvE+3Tb5Pgg5xQFIyIGlf4jnHx73Gku +loKiib6FSYTrZ+NWWV+h4IPS24d3EdZ5UOEznk24aSy2nviePtwOEmaPKBiy +LWgogvCtPWN119gUVF4VE6NKeKUAVZFRT5xPWu5EGFEvRj7lHQmtFBymKbyR +IhzwfNe5z90U3L4yw4NN1Fv38diBmFEKXngz4dJL1Oe6Rtlr72cpKBO69cUh +wps2lJmrckmjw/b1AdNEfRe8H8luFpbGXdpOBXNE/UcZ79xHMpRGx8b63ldE +v2xxy/hlYCaN0T9WpMgRFogciXbYKo1durVNQUS/3ao9l3fFQxr3Am/nOhEO +lFqXj6y8II2cVGoQN9GvZw7znlJIlib6uypOm+hni0R7AbPb0mjplamzh+j3 +9tYxrVNF0vjSvMwuYy0HJpzWB099kMad1114B4j8eBoewCs0II0mfaqCQ0S+ +nL71LG3jmDQ2c07XDK7kwNq+3RUHuWXQpOSERvtyDij5JHD1qcrgxeM2+/yJ +/HILmrnYGCGDPK2Ohx8Qebgh1YwyfE4Gq7KH9J2JvPxZevkx7xUZol7ft/BM +syF8QaXFLEcGezYsO2c1yYaUaDexskYZvC66eWPqCHGfJL2+kystiyqq0vVM +Iq+TS0S1a5Vk8fOVyY83iTx36dhX06cti6rpBT+ne4i8l1wYIFvIIlX2FG9a +Fxt4MrVUrx6VRd7cv4HZrWxgFKSzTlcT4wOH4hqI+2TT+6bFsXpZ3HX11cw8 +cd/Yci23dH8ni/9k5VWUqtngaXf0A3yTRYcss5/HK9hgEUE9E7lCDuOeVMh3 +lbAhQHb2rqmaHH4yq9nSc5cNL33ujNYGy2FWfeHR9kg2WC3QhU9GyGHgJf91 +Z0+zoelKO00vUg4Dhj5Uq51kw4cyvsicC3L4IUPU+UQIG8bWBAqfuyWHo0O8 +T9qOsEGycIuBRY0cHm6tm+92ZsPh35OR9fxUtLcteiOqSZzn2AHxQWEqPg0P +56xVZ8Oq4e58HkkqSipWunKpsCG3p7bTRJ6KSmsl+7vl2dBblaLOplExMv2w +0l5xNmw/R+/Kcqfi523yzukLLNARjtKMKKJi3nD9gZV1LPijJtir4SCPhcnR +jd7bWDB7mxSl6yKPIvz9b0OsWDC9boMC3V0eBSKNg2I3s2Bsiu636aA8SrBo +NelMFvRXeM66nJJHm9i4/DQNFjTYPBWIy5XHrvB7R+fXsuDGITfon5HHXyN3 +nDzflIBx/qPM69fXY/8+JaFQeglMClt7ONYoYNohjl6McDEMJHg4HudVxI6b +k7yW7EKwGg+x+kZTwrMxuI2/sgB+eq46wTqjjAc95N1KavOJ/wUJ7vM1Ktjj +zGMc1nMfhN8qJhaOq2KIIvXCQ/08oMQ92UGjqeNjqr/7jaC7kKZGFxTx0cCK +tH+0A6uzoIFkqj+VtBG/60kltD68DQxKzRXNTk1MriYFmG1JBwGe7MB9Z7XQ +vO8GqF9PAZkoWWNnRW10qvD4Hbn8KvBtcOXYvdbGd3X2V6MHLsFGptSTkL06 +WBLVVdE1GAfHe4Vrrbl0MZ0kLks1iYHxqQQHqzRdNA4dd9CMj4SPXVmOt2/o +4qRNutuHU5HQ8Iyze/KWLoZ1fqUkBERCzvk+5/QsXexgPMhf4xgJLmQ9tx8P +dXHEZVn+cWokvDLrOXDhmS4Od/FPlJ04AzeTVELf9Oti0/YHg0L9p8BSs+6G +lYYeltYO//o0Hg5OK7fYt2jq4e/xr1q+78PB79Mb/t06ekhOuVezvDocEuPf +RnoZ6GFLW05FYGI4dH5vP3DGVA9RQmV+48Zw8Mr8qsN20EN59V0ey4+FwVmh +Zf/JndZDKv113gRPKFRNGf2da9LD3kzV089dgyCr8en+Xa16KD6MTWNWQRCT +q9tQ0KaH0+4HV6kZBIHVbrV07y49/F46RXkrFATt5SSDti96yJ1tMcN5HQjD +UX+OF0zr4cXY1x9ItEAQF3w67EXSR2Zj19Fxygk4qq7T3eqtj9p1siFaQscg +aI407+6rj/P0jkc7uI7ByRoe0pifPuZ+1BE7Mx4A8U4dzqsD9PF750PnlU0B +cD8m9INZuD5m7QpnPYsPgP6PVV0lifo4lnS+9TVfADhesnmf8lQfi7bc8ROX +OwrMMa92Zz4a6t/7FFQf6wfiFZbZlWtoKPtkt6nnET8YO68aICtAQ5VZAR4R +ez/IoE6s+SZMw46vgzpFVD/4Zx9hHkChoVm34pvBZwehuiKpOFaThjbrjHjV +5n3B9ELVlRIHGr5d8D1fHuUDmxUkt/Fn01CphC1EafAC1ugrqlcODR+f1siZ +YnuBwtMTs+V5NOxtsoOPWV6w3Lr5jm8+DXNZlvv6wrygxj/2Vy2Lhm/WuQiW +qHqBScV0avhrGjZTt64LvewJNLvW/u8/acjd+0df23s/KEdeDK0xMMDIXeGl +MyYeUGmUu2IrwwBvPFZ8tlvDA3bMVV/tMDbAymjPKw1kDwg9OvNoyNQA9Syu +97ycdId6V48vAlsNkCt7hUqJjzv40mnWezwMsPu7pT3L2Q0e/PpCno4zwH2v +GhxTHFzBpGDh/ql4A9QI0JhwobnCu4MSNN5EA7wFJjMmEq4w37d1BynZAFuV +hj7v+7AHrJufxuBtA7xu3xsn6L4HhvMvjSYUGSDZxuLrX38XUPWmV2/oNkDH +0oQDnvec4LK87Xz0RwP83dJlmXHJCaY/79fv7zXAVIMXwpMnnKDKJSE/46sB +BvrNkHrRCex2fE6VGDVAkWryWFvPbggzOhfAx2WIP08ZxMuI74Z6oVbq6AZD +LKrJkC+66QAazd9cbZQNke/Z09FXMQ5wNWE+9YGqIU5EV++fOOIArrwKAgc0 +DTFCf8+KWHSA8YXg+V5DQ3R4DdbFg/YgPkRpa7ExxK/39fqWaPbgXeUbwzpm +iAPxrVV/Bu1g7MhwyOZAQ/yuO48TLXYQKn34UGewIXbHna1aLLeDiyf97X5H +GCL9+mqXvZftoJARLGcca4jZY57d6nQ7WOBEV9beIPbzIdL375WdcPVJxvS7 +WkMUDPnwqnHHDqC4yw151hliJe925ZPMHZArkN0zXW+IrEtNwqi6A0qP5NaI +NxkiyZNHf8XyHfBJ7dEVly5DHP9822rFse2gfL9Mvf+nITpta5APtLaF6sx2 +r0kxOobebk2gk7ZC31aqe7AkHcm/X04K/rEBrj9HnP+S6Fgp65W2pssGzHby +2q6Qo+P4EykVv+s2ULeMYSClSsevxfnv6kVtoHH/HT5TEzr2tCp5T0hYQ7eC +X8GVA3QU8jQyFDDYAn9bOPfFDtLRtjS6XpC0BSineO7eOERHd1Ohcp1FS9jb +cSs1J4AYv7bXur3WEvrONUeWhtNxZe+W0Yt2lvB9UG9XXyIdZyXVmh4FWcD0 +/aU5zad07Nz+HRdaN8Ggo0XmhTI6lus+M/cu3wRdyy9t+VpBx29LZ2MGszdB +hQcp/fpzOtopV/pqB26Cs5L6jMU3dDz98sjeQYlNIBjnd7LhIx0Pc7UblHua +g7pPB5c3NwPjdzp/DV5rBjJilAdVyxk4erAqtWrOFARr9++U5GWgq+uzMfJX +U5iSmcj6bw0DP3rJ6EuUm0J552pzHTEGnjhdP89/0BS2WOC5JSUGDipsdRhp +QPDckM93YxsDV1tEWVcbAYS/cvNT3MHA8PNcIW6iAFe8hf8rtmPgt8gdI6qj +JlCZG5bw324GegyHTVnfMQFRxS3rFvcxMKN3TXT2ChOoU/wm6hHMQKWZmQ1x +3cagqiwrp3iHgav2XQr8c5cBWP8usjiLgVwHjzuORDHA0Tf2i0kOAyf7xfhW +eDAg+v5o9u4HDHRq9jB6QmHAR+XKDRdKGHj8157d3al0SFRxVvv5moEvTrkt ++KQYwqRqMq14goFyrRV5Wx/RoKsRN4tMMbBqgZn86QoNnh8d2xU4w0DuV6oT +CUE0SCy2OkabZ2D/woezFkADVQbXo3IeI9T4pFxHbdeH/VZHqLXiRtiRsmnE +jUcf2n0s17YbG2HE1PkJlRBdqOCbIemDEc6/GfHb4a4L2fnZKtdNjVBAzu5F +kqUuBIwvWjhZGKGmzucUL0ld4A9hRX3cboQ7p2RGLSt0wCKWOjew3wgZSguS +Yyt0oDTn75eZOCM0NH+ly1OgBTTzwDnreCOU4XtmV56uBewvP9dmXjLCsw9T +1OLOaUGxTK+B9VUjfPjuyBOfvVrwKO35pYybxP69HkbrCmhBZsI5umWBEQrn +WZ7s+L4RLgSuS0prM0JeZ0rPyQx1WCUSlzfaYYTfsgObzSPUIbaIq9KsywiH +fu19o+OkDjFjk4M/PxrhraFRlThhdTjt225sOkisV8VQXXtBDY67pg/9+G2E +kQ8slxxOqYLLpvVoJGOMaHb+T2+UMiy2rxKolTPGCV+ZmloPZcj0HuuxXm+M +ryNvDLeCMgzGloW4KBsjS4SWefCfEhx/s/1JmI4xMnaXXow6pQQXbU/KlFoY +46MXSk5q0YpQ7tSxoOdvjHav9nRq5ivA3h/lDZXHjPHUoqbDj0QF4ArPTNsU +aIxqumWFdccVwOLmIT37MGI/nDannwwFePdp2eET0caolZT5q7dxPQzv39hT +lGqMH4V3LTHn5IF85HzZxufGKDgq7tTqRYXEpQP68TXGaKj+d8belgrcVy2K +vr80xk3eA9emDKgwzFnxIPONMZbnPHGPWkOFcq6YNOE2Y7SgvZruKZEDl2uR +IbPfjJFLVazzBJ8cpFWE6VetYaLXYtvbtkRpWGvrXEQSYOIFnZPLNHylIbLP +UCNEkIlXJYWAbSoNvit+K2iJMVFcZG6l3QwFDLYHi2bLMLH80UPpp24U6Ow/ +PnVOm4nzZfqPuRlkEFt9uGjbbib2F+m9MBeSghzzU+ETzkwMpfqab/opCTqn +Es2TXZnoEGX0JOS1JNhOFHZ07WPiy0A0Dz4tCbGdM388DzPxwfUR3//GJOB3 +9hmz8CgmXr//djqjSxy6jZLb8vKZKJORd928WRR8g3JuWRUQ+3WwZ6gWisJs +Adv7ZyETOSF9lsZJoiAs3zWnzWFiTMy6mi+7RMFmlTTl2XMmTtiLq6n3iEBl +e55XWwcTUyvjPS5PCoO1QKlGcBcTP0ltFBLpEIYuyzezkj1MPJqxuqmqVBim +y0fi3PqYaOEQcPtSpDBoZGk9/jHMxEr6/Cy3sDBUdpsGJ4wS8wtaD72YFQJr +0V2gOcHEPK1R+7weIThwPqg1cIaJi10Olf25QjD9PPaGxG8mblbyeU+PF4Kz +86me5fNMHNi7KZMTIASCeg/U9y4y8fT0529OjkKQcaR8ZmmJiZcrvUPkjIXg +f8MrDuU= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0lN8fB3BRSUX2ZWYsI9llH2YYnw+KUCohJBQiLVR2LURSpCShRQgt +SpaZyRZFSb6yZEmUJElky1Yiv+f313Ne59x77r3P8/m873mo+/3tvLm5uLgu +LePi+v9ztvfNS4X4HJOnfH5K955Ym7RnSIaZdp0F5VtZ/WXhyoBizfslu67C +0v4Gj8hwQwje8fA9T1c2jN9WVXII3wJCYxJX/7wvBrdj6vdXhDvB50pb/+n3 +NcBlpuAzG+oLFgrDnybfv4ObdRc0WgND4c97g5SJ9/3wpcxj3NYrDmrN7+W0 +Zk+BhE59TbNMOlA+lw3uV18EruBb65t2ZoPoYfeHvOY8uN405W1g6j24qm1R +YeuwCh/lqA6U1T2CD2lazycF+VE3dsP49NlCuNGWvy54Az/eEvxPJTy+EFwE +lNzn6fwYlxXp+ie5ED5GS//j9uTHzSmSWd9yCqHv6GpjUTY/nuMU+QbVFcLQ +poGnNGcBPHMX1gSsKoLfE6lPIrLWoQWnS732fBGUqYksLbHXYZGq/c7oy0UQ +fiDRNqZhHX4XbVBnphbBQk/MaMLUOhT5Hb4sI68IIr+WijXLC+Kv/PQJkVdF +ENOUu6svUBAdntv5NHMVQ3zOmWZuKSGkpUWdDztRDNZ6B4XF1guhm0f9r63h +xbDqpZ2DkoYQqoq9lyFFFUPM1w09NqZCeOafFSsrsRhOyjcOXjsohIbH6MXe +D4rhaKbkP8VyIWRRdk5VfyqGnbeK1G32CGNGuuFqjmkJCKrf9N/rLYypiQ6e +1ZYl0FQRU+zvL4y3PJv31GwrAeue3YbXooWRWpeixHYuATPSP/NP+cLYcs9e +1PZYCeilWe/xXxDGxhKD21vvlIDEta8Xkm+LYOMBjbmQ2RKQVGPH/M4TQfrS +LL/L3xIg1cSe2VsogqdfMs7TuFggM6ESpFQrgoyU8Tu9fCzYsDXAo2JIBHkO +dO4bobBAd/ki7auuKBYe2Tk2a8qC7YHiAzoNojilcHew/TwLdqwZ6k1tE8XJ +zrIv3AkssMsu+7DwURSTAxQZaldY4Nji2lw3LooXQnh5DqWxYK/63XIXMTF8 ++SRzJu8+Cw4NaCad9RDDlF61w4L1LDhvb2XyblYMjxyISHrIzQYSq4nEvUwc +b5a9MPRfyYYCEfs57TXiuN06frPGajZ0vnMrTJIVxyR7i6QUITYo7AyU37lF +HDM3H1oUl2NDzbY7K1vSxbG55nPyJyM2OD5W+Lp0Vxz5bzc3GAIbhtc+rNYs +EEez0yb+l8zYINTICr1cI47llLU8663Y4GHdMGw7Io4dSaa+Sw5sWLSYaXpr +LIF+XDdrTh1lw5W88PxFCwncX1pADThGrL+SK05jpwR6DJ37syeQDVtfrTa9 +5C2BZ288F5cLZ8MNc7mSrYkS6Dk3KONyjg2GaJP632cJRN/d6tdvsKHxTsuJ +vz8kUL985IzcbWL9JYcdatMSOPKuzCXnDhvOV3nwxa+SxJUHBR6m5RDnNw6O +sNaWxBHv5EbdAjacoGe5vzkriSIqo8L6z9lgnSkwbZMgiRM0N029GjbI856M +a0qRxIdhck81XrKhpd2xqO2+JDK4I9cK1rNhY8Bant4mSXQqODWc1MyGobyQ +vF8kKez84esc/4kN1fzfGEEKUujyjZWj/ZkN1wPtmuc0pNBaafrQuz42bDbT ++L2AUni5oOY4zwAbsj/1W/H6SOGfEw5R64fZ4CpqO0oukcJlwZR7rjNs0I2o +iMqolML4ihmj/Fk2rO5XFqfWSaG/ynX36Tk2lD3hAcUPUjhuqu4UPM8GcZuy +K1pLUnjEk6pDX2LDaJHihpJVJByQSPdw5eLAS8lrZfrCJJyd4FcOX8aBE4NH ++xkbSPg8Wft8Lg8HWqIU9DbbkLDaMze/gpcD94aS6l/bk7Ai0vh1ySoOnN6+ +5GrtRkJbUnxsHh8HNKS7z20/RsJlGe9mItZw4GLp5ffOqSQMTRevGhTgwD7Z +xUMfM0nILekjw1rHAcNYPy73hySU+/VQ46QgB77v2qzi9YyE/062uC0IcWDT ++Hz40a8klA3co/dMlANhW66pvvhJQr6Nsvx7xThQkKXRLTJLwqYYUsccYUl7 +D3rZKjLOLXoYykhwYNvjP0NrhMnIWnuu8wHhsyuT09zIZLRMvHpQS5IDP0tf +zfFsJGOPrmbgRikOUIXd7zkakHH1vtyxXMKOh347PkAylgq2eUqSOPBcWo1j +u4uM5kDbNEZ4Jvild5YrGRNKPYp3kjmg2rJXbNqbjEfy1KmFhJPPXglMDyXj +s7e5K90oHKjvUVH4GUXGrjqHyMeEF/Rq20ziyahU9IjrN2HtRNfopGtkFNLU +usCU5sCB7zM6A7eJ+dd8yKcJ38TL/bR7ZMwb7CktI9ySrnz1QiEZaV0SnhOE +V0y9MP1YRsb9DffI8jIcYGzdM7mxlozYIDVgS9g/dzozqpGMuZcXnwUTzvl3 +aUd7BxmfRgw8TCf8YbcSl9JnMkan7nv0lLBA0fMnYUNkvHOV72ULYfPVLu6N +k2QseHF8aoBwqOeUgOxfMq6R1jeeJvy4MqHq2HIKWsHwnX+E+8UUj77kp2Cb +p4bcclkOSPhXS0tIUDDM+2bV/7213untQTkKrnv27iQX4Sjqr5OVKhScPHPC +dY6YzwmPV1+nS8F0N1n3H4RH2hQ+7jOmoO7dsNhOwnIaVfGszRTU1lJqryLs +ELvbiHc7BRtPN1llE774eWLY2YmC+bclfkQSrja8eOPRPgo6aT4qcSE8nbTe +esmPgl98DfI1CauMVP7ZGUhBN8EDrUvE+3Tb5Pgg5xQFIyIGlf4jnHx73Gku +loKiib6FSYTrZ+NWWV+h4IPS24d3EdZ5UOEznk24aSy2nviePtwOEmaPKBiy +LWgogvCtPWN119gUVF4VE6NKeKUAVZFRT5xPWu5EGFEvRj7lHQmtFBymKbyR +IhzwfNe5z90U3L4yw4NN1Fv38diBmFEKXngz4dJL1Oe6Rtlr72cpKBO69cUh +wps2lJmrckmjw/b1AdNEfRe8H8luFpbGXdpOBXNE/UcZ79xHMpRGx8b63ldE +v2xxy/hlYCaN0T9WpMgRFogciXbYKo1durVNQUS/3ao9l3fFQxr3Am/nOhEO +lFqXj6y8II2cVGoQN9GvZw7znlJIlib6uypOm+hni0R7AbPb0mjplamzh+j3 +9tYxrVNF0vjSvMwuYy0HJpzWB099kMad1114B4j8eBoewCs0II0mfaqCQ0S+ +nL71LG3jmDQ2c07XDK7kwNq+3RUHuWXQpOSERvtyDij5JHD1qcrgxeM2+/yJ +/HILmrnYGCGDPK2Ohx8Qebgh1YwyfE4Gq7KH9J2JvPxZevkx7xUZol7ft/BM +syF8QaXFLEcGezYsO2c1yYaUaDexskYZvC66eWPqCHGfJL2+kystiyqq0vVM +Iq+TS0S1a5Vk8fOVyY83iTx36dhX06cti6rpBT+ne4i8l1wYIFvIIlX2FG9a +Fxt4MrVUrx6VRd7cv4HZrWxgFKSzTlcT4wOH4hqI+2TT+6bFsXpZ3HX11cw8 +cd/Yci23dH8ni/9k5VWUqtngaXf0A3yTRYcss5/HK9hgEUE9E7lCDuOeVMh3 +lbAhQHb2rqmaHH4yq9nSc5cNL33ujNYGy2FWfeHR9kg2WC3QhU9GyGHgJf91 +Z0+zoelKO00vUg4Dhj5Uq51kw4cyvsicC3L4IUPU+UQIG8bWBAqfuyWHo0O8 +T9qOsEGycIuBRY0cHm6tm+92ZsPh35OR9fxUtLcteiOqSZzn2AHxQWEqPg0P +56xVZ8Oq4e58HkkqSipWunKpsCG3p7bTRJ6KSmsl+7vl2dBblaLOplExMv2w +0l5xNmw/R+/Kcqfi523yzukLLNARjtKMKKJi3nD9gZV1LPijJtir4SCPhcnR +jd7bWDB7mxSl6yKPIvz9b0OsWDC9boMC3V0eBSKNg2I3s2Bsiu636aA8SrBo +NelMFvRXeM66nJJHm9i4/DQNFjTYPBWIy5XHrvB7R+fXsuDGITfon5HHXyN3 +nDzflIBx/qPM69fXY/8+JaFQeglMClt7ONYoYNohjl6McDEMJHg4HudVxI6b +k7yW7EKwGg+x+kZTwrMxuI2/sgB+eq46wTqjjAc95N1KavOJ/wUJ7vM1Ktjj +zGMc1nMfhN8qJhaOq2KIIvXCQ/08oMQ92UGjqeNjqr/7jaC7kKZGFxTx0cCK +tH+0A6uzoIFkqj+VtBG/60kltD68DQxKzRXNTk1MriYFmG1JBwGe7MB9Z7XQ +vO8GqF9PAZkoWWNnRW10qvD4Hbn8KvBtcOXYvdbGd3X2V6MHLsFGptSTkL06 +WBLVVdE1GAfHe4Vrrbl0MZ0kLks1iYHxqQQHqzRdNA4dd9CMj4SPXVmOt2/o +4qRNutuHU5HQ8Iyze/KWLoZ1fqUkBERCzvk+5/QsXexgPMhf4xgJLmQ9tx8P +dXHEZVn+cWokvDLrOXDhmS4Od/FPlJ04AzeTVELf9Oti0/YHg0L9p8BSs+6G +lYYeltYO//o0Hg5OK7fYt2jq4e/xr1q+78PB79Mb/t06ekhOuVezvDocEuPf +RnoZ6GFLW05FYGI4dH5vP3DGVA9RQmV+48Zw8Mr8qsN20EN59V0ey4+FwVmh +Zf/JndZDKv113gRPKFRNGf2da9LD3kzV089dgyCr8en+Xa16KD6MTWNWQRCT +q9tQ0KaH0+4HV6kZBIHVbrV07y49/F46RXkrFATt5SSDti96yJ1tMcN5HQjD +UX+OF0zr4cXY1x9ItEAQF3w67EXSR2Zj19Fxygk4qq7T3eqtj9p1siFaQscg +aI407+6rj/P0jkc7uI7ByRoe0pifPuZ+1BE7Mx4A8U4dzqsD9PF750PnlU0B +cD8m9INZuD5m7QpnPYsPgP6PVV0lifo4lnS+9TVfADhesnmf8lQfi7bc8ROX +OwrMMa92Zz4a6t/7FFQf6wfiFZbZlWtoKPtkt6nnET8YO68aICtAQ5VZAR4R +ez/IoE6s+SZMw46vgzpFVD/4Zx9hHkChoVm34pvBZwehuiKpOFaThjbrjHjV +5n3B9ELVlRIHGr5d8D1fHuUDmxUkt/Fn01CphC1EafAC1ugrqlcODR+f1siZ +YnuBwtMTs+V5NOxtsoOPWV6w3Lr5jm8+DXNZlvv6wrygxj/2Vy2Lhm/WuQiW +qHqBScV0avhrGjZTt64LvewJNLvW/u8/acjd+0df23s/KEdeDK0xMMDIXeGl +MyYeUGmUu2IrwwBvPFZ8tlvDA3bMVV/tMDbAymjPKw1kDwg9OvNoyNQA9Syu +97ycdId6V48vAlsNkCt7hUqJjzv40mnWezwMsPu7pT3L2Q0e/PpCno4zwH2v +GhxTHFzBpGDh/ql4A9QI0JhwobnCu4MSNN5EA7wFJjMmEq4w37d1BynZAFuV +hj7v+7AHrJufxuBtA7xu3xsn6L4HhvMvjSYUGSDZxuLrX38XUPWmV2/oNkDH +0oQDnvec4LK87Xz0RwP83dJlmXHJCaY/79fv7zXAVIMXwpMnnKDKJSE/46sB +BvrNkHrRCex2fE6VGDVAkWryWFvPbggzOhfAx2WIP08ZxMuI74Z6oVbq6AZD +LKrJkC+66QAazd9cbZQNke/Z09FXMQ5wNWE+9YGqIU5EV++fOOIArrwKAgc0 +DTFCf8+KWHSA8YXg+V5DQ3R4DdbFg/YgPkRpa7ExxK/39fqWaPbgXeUbwzpm +iAPxrVV/Bu1g7MhwyOZAQ/yuO48TLXYQKn34UGewIXbHna1aLLeDiyf97X5H +GCL9+mqXvZftoJARLGcca4jZY57d6nQ7WOBEV9beIPbzIdL375WdcPVJxvS7 +WkMUDPnwqnHHDqC4yw151hliJe925ZPMHZArkN0zXW+IrEtNwqi6A0qP5NaI +NxkiyZNHf8XyHfBJ7dEVly5DHP9822rFse2gfL9Mvf+nITpta5APtLaF6sx2 +r0kxOobebk2gk7ZC31aqe7AkHcm/X04K/rEBrj9HnP+S6Fgp65W2pssGzHby +2q6Qo+P4EykVv+s2ULeMYSClSsevxfnv6kVtoHH/HT5TEzr2tCp5T0hYQ7eC +X8GVA3QU8jQyFDDYAn9bOPfFDtLRtjS6XpC0BSineO7eOERHd1Ohcp1FS9jb +cSs1J4AYv7bXur3WEvrONUeWhtNxZe+W0Yt2lvB9UG9XXyIdZyXVmh4FWcD0 +/aU5zad07Nz+HRdaN8Ggo0XmhTI6lus+M/cu3wRdyy9t+VpBx29LZ2MGszdB +hQcp/fpzOtopV/pqB26Cs5L6jMU3dDz98sjeQYlNIBjnd7LhIx0Pc7UblHua +g7pPB5c3NwPjdzp/DV5rBjJilAdVyxk4erAqtWrOFARr9++U5GWgq+uzMfJX +U5iSmcj6bw0DP3rJ6EuUm0J552pzHTEGnjhdP89/0BS2WOC5JSUGDipsdRhp +QPDckM93YxsDV1tEWVcbAYS/cvNT3MHA8PNcIW6iAFe8hf8rtmPgt8gdI6qj +JlCZG5bw324GegyHTVnfMQFRxS3rFvcxMKN3TXT2ChOoU/wm6hHMQKWZmQ1x +3cagqiwrp3iHgav2XQr8c5cBWP8usjiLgVwHjzuORDHA0Tf2i0kOAyf7xfhW +eDAg+v5o9u4HDHRq9jB6QmHAR+XKDRdKGHj8157d3al0SFRxVvv5moEvTrkt ++KQYwqRqMq14goFyrRV5Wx/RoKsRN4tMMbBqgZn86QoNnh8d2xU4w0DuV6oT +CUE0SCy2OkabZ2D/woezFkADVQbXo3IeI9T4pFxHbdeH/VZHqLXiRtiRsmnE +jUcf2n0s17YbG2HE1PkJlRBdqOCbIemDEc6/GfHb4a4L2fnZKtdNjVBAzu5F +kqUuBIwvWjhZGKGmzucUL0ld4A9hRX3cboQ7p2RGLSt0wCKWOjew3wgZSguS +Yyt0oDTn75eZOCM0NH+ly1OgBTTzwDnreCOU4XtmV56uBewvP9dmXjLCsw9T +1OLOaUGxTK+B9VUjfPjuyBOfvVrwKO35pYybxP69HkbrCmhBZsI5umWBEQrn +WZ7s+L4RLgSuS0prM0JeZ0rPyQx1WCUSlzfaYYTfsgObzSPUIbaIq9KsywiH +fu19o+OkDjFjk4M/PxrhraFRlThhdTjt225sOkisV8VQXXtBDY67pg/9+G2E +kQ8slxxOqYLLpvVoJGOMaHb+T2+UMiy2rxKolTPGCV+ZmloPZcj0HuuxXm+M +ryNvDLeCMgzGloW4KBsjS4SWefCfEhx/s/1JmI4xMnaXXow6pQQXbU/KlFoY +46MXSk5q0YpQ7tSxoOdvjHav9nRq5ivA3h/lDZXHjPHUoqbDj0QF4ArPTNsU +aIxqumWFdccVwOLmIT37MGI/nDannwwFePdp2eET0caolZT5q7dxPQzv39hT +lGqMH4V3LTHn5IF85HzZxufGKDgq7tTqRYXEpQP68TXGaKj+d8belgrcVy2K +vr80xk3eA9emDKgwzFnxIPONMZbnPHGPWkOFcq6YNOE2Y7SgvZruKZEDl2uR +IbPfjJFLVazzBJ8cpFWE6VetYaLXYtvbtkRpWGvrXEQSYOIFnZPLNHylIbLP +UCNEkIlXJYWAbSoNvit+K2iJMVFcZG6l3QwFDLYHi2bLMLH80UPpp24U6Ow/ +PnVOm4nzZfqPuRlkEFt9uGjbbib2F+m9MBeSghzzU+ETzkwMpfqab/opCTqn +Es2TXZnoEGX0JOS1JNhOFHZ07WPiy0A0Dz4tCbGdM388DzPxwfUR3//GJOB3 +9hmz8CgmXr//djqjSxy6jZLb8vKZKJORd928WRR8g3JuWRUQ+3WwZ6gWisJs +Adv7ZyETOSF9lsZJoiAs3zWnzWFiTMy6mi+7RMFmlTTl2XMmTtiLq6n3iEBl +e55XWwcTUyvjPS5PCoO1QKlGcBcTP0ltFBLpEIYuyzezkj1MPJqxuqmqVBim +y0fi3PqYaOEQcPtSpDBoZGk9/jHMxEr6/Cy3sDBUdpsGJ4wS8wtaD72YFQJr +0V2gOcHEPK1R+7weIThwPqg1cIaJi10Olf25QjD9PPaGxG8mblbyeU+PF4Kz +86me5fNMHNi7KZMTIASCeg/U9y4y8fT0529OjkKQcaR8ZmmJiZcrvUPkjIXg +f8MrDuU= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08641080525867108}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.08641080525867108}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0lN8fB3BRSUX2ZWYsI9llH2YYnw+KUCohJBQiLVR2LURSpCShRQgt +SpaZyRZFSb6yZEmUJElky1Yiv+f313Ne59x77r3P8/m873mo+/3tvLm5uLgu +LePi+v9ztvfNS4X4HJOnfH5K955Ym7RnSIaZdp0F5VtZ/WXhyoBizfslu67C +0v4Gj8hwQwje8fA9T1c2jN9WVXII3wJCYxJX/7wvBrdj6vdXhDvB50pb/+n3 +NcBlpuAzG+oLFgrDnybfv4ObdRc0WgND4c97g5SJ9/3wpcxj3NYrDmrN7+W0 +Zk+BhE59TbNMOlA+lw3uV18EruBb65t2ZoPoYfeHvOY8uN405W1g6j24qm1R +YeuwCh/lqA6U1T2CD2lazycF+VE3dsP49NlCuNGWvy54Az/eEvxPJTy+EFwE +lNzn6fwYlxXp+ie5ED5GS//j9uTHzSmSWd9yCqHv6GpjUTY/nuMU+QbVFcLQ +poGnNGcBPHMX1gSsKoLfE6lPIrLWoQWnS732fBGUqYksLbHXYZGq/c7oy0UQ +fiDRNqZhHX4XbVBnphbBQk/MaMLUOhT5Hb4sI68IIr+WijXLC+Kv/PQJkVdF +ENOUu6svUBAdntv5NHMVQ3zOmWZuKSGkpUWdDztRDNZ6B4XF1guhm0f9r63h +xbDqpZ2DkoYQqoq9lyFFFUPM1w09NqZCeOafFSsrsRhOyjcOXjsohIbH6MXe +D4rhaKbkP8VyIWRRdk5VfyqGnbeK1G32CGNGuuFqjmkJCKrf9N/rLYypiQ6e +1ZYl0FQRU+zvL4y3PJv31GwrAeue3YbXooWRWpeixHYuATPSP/NP+cLYcs9e +1PZYCeilWe/xXxDGxhKD21vvlIDEta8Xkm+LYOMBjbmQ2RKQVGPH/M4TQfrS +LL/L3xIg1cSe2VsogqdfMs7TuFggM6ESpFQrgoyU8Tu9fCzYsDXAo2JIBHkO +dO4bobBAd/ki7auuKBYe2Tk2a8qC7YHiAzoNojilcHew/TwLdqwZ6k1tE8XJ +zrIv3AkssMsu+7DwURSTAxQZaldY4Nji2lw3LooXQnh5DqWxYK/63XIXMTF8 ++SRzJu8+Cw4NaCad9RDDlF61w4L1LDhvb2XyblYMjxyISHrIzQYSq4nEvUwc +b5a9MPRfyYYCEfs57TXiuN06frPGajZ0vnMrTJIVxyR7i6QUITYo7AyU37lF +HDM3H1oUl2NDzbY7K1vSxbG55nPyJyM2OD5W+Lp0Vxz5bzc3GAIbhtc+rNYs +EEez0yb+l8zYINTICr1cI47llLU8663Y4GHdMGw7Io4dSaa+Sw5sWLSYaXpr +LIF+XDdrTh1lw5W88PxFCwncX1pADThGrL+SK05jpwR6DJ37syeQDVtfrTa9 +5C2BZ288F5cLZ8MNc7mSrYkS6Dk3KONyjg2GaJP632cJRN/d6tdvsKHxTsuJ +vz8kUL985IzcbWL9JYcdatMSOPKuzCXnDhvOV3nwxa+SxJUHBR6m5RDnNw6O +sNaWxBHv5EbdAjacoGe5vzkriSIqo8L6z9lgnSkwbZMgiRM0N029GjbI856M +a0qRxIdhck81XrKhpd2xqO2+JDK4I9cK1rNhY8Bant4mSXQqODWc1MyGobyQ +vF8kKez84esc/4kN1fzfGEEKUujyjZWj/ZkN1wPtmuc0pNBaafrQuz42bDbT ++L2AUni5oOY4zwAbsj/1W/H6SOGfEw5R64fZ4CpqO0oukcJlwZR7rjNs0I2o +iMqolML4ihmj/Fk2rO5XFqfWSaG/ynX36Tk2lD3hAcUPUjhuqu4UPM8GcZuy +K1pLUnjEk6pDX2LDaJHihpJVJByQSPdw5eLAS8lrZfrCJJyd4FcOX8aBE4NH ++xkbSPg8Wft8Lg8HWqIU9DbbkLDaMze/gpcD94aS6l/bk7Ai0vh1ySoOnN6+ +5GrtRkJbUnxsHh8HNKS7z20/RsJlGe9mItZw4GLp5ffOqSQMTRevGhTgwD7Z +xUMfM0nILekjw1rHAcNYPy73hySU+/VQ46QgB77v2qzi9YyE/062uC0IcWDT ++Hz40a8klA3co/dMlANhW66pvvhJQr6Nsvx7xThQkKXRLTJLwqYYUsccYUl7 +D3rZKjLOLXoYykhwYNvjP0NrhMnIWnuu8wHhsyuT09zIZLRMvHpQS5IDP0tf +zfFsJGOPrmbgRikOUIXd7zkakHH1vtyxXMKOh347PkAylgq2eUqSOPBcWo1j +u4uM5kDbNEZ4Jvild5YrGRNKPYp3kjmg2rJXbNqbjEfy1KmFhJPPXglMDyXj +s7e5K90oHKjvUVH4GUXGrjqHyMeEF/Rq20ziyahU9IjrN2HtRNfopGtkFNLU +usCU5sCB7zM6A7eJ+dd8yKcJ38TL/bR7ZMwb7CktI9ySrnz1QiEZaV0SnhOE +V0y9MP1YRsb9DffI8jIcYGzdM7mxlozYIDVgS9g/dzozqpGMuZcXnwUTzvl3 +aUd7BxmfRgw8TCf8YbcSl9JnMkan7nv0lLBA0fMnYUNkvHOV72ULYfPVLu6N +k2QseHF8aoBwqOeUgOxfMq6R1jeeJvy4MqHq2HIKWsHwnX+E+8UUj77kp2Cb +p4bcclkOSPhXS0tIUDDM+2bV/7213untQTkKrnv27iQX4Sjqr5OVKhScPHPC +dY6YzwmPV1+nS8F0N1n3H4RH2hQ+7jOmoO7dsNhOwnIaVfGszRTU1lJqryLs +ELvbiHc7BRtPN1llE774eWLY2YmC+bclfkQSrja8eOPRPgo6aT4qcSE8nbTe +esmPgl98DfI1CauMVP7ZGUhBN8EDrUvE+3Tb5Pgg5xQFIyIGlf4jnHx73Gku +loKiib6FSYTrZ+NWWV+h4IPS24d3EdZ5UOEznk24aSy2nviePtwOEmaPKBiy +LWgogvCtPWN119gUVF4VE6NKeKUAVZFRT5xPWu5EGFEvRj7lHQmtFBymKbyR +IhzwfNe5z90U3L4yw4NN1Fv38diBmFEKXngz4dJL1Oe6Rtlr72cpKBO69cUh +wps2lJmrckmjw/b1AdNEfRe8H8luFpbGXdpOBXNE/UcZ79xHMpRGx8b63ldE +v2xxy/hlYCaN0T9WpMgRFogciXbYKo1durVNQUS/3ao9l3fFQxr3Am/nOhEO +lFqXj6y8II2cVGoQN9GvZw7znlJIlib6uypOm+hni0R7AbPb0mjplamzh+j3 +9tYxrVNF0vjSvMwuYy0HJpzWB099kMad1114B4j8eBoewCs0II0mfaqCQ0S+ +nL71LG3jmDQ2c07XDK7kwNq+3RUHuWXQpOSERvtyDij5JHD1qcrgxeM2+/yJ +/HILmrnYGCGDPK2Ohx8Qebgh1YwyfE4Gq7KH9J2JvPxZevkx7xUZol7ft/BM +syF8QaXFLEcGezYsO2c1yYaUaDexskYZvC66eWPqCHGfJL2+kystiyqq0vVM +Iq+TS0S1a5Vk8fOVyY83iTx36dhX06cti6rpBT+ne4i8l1wYIFvIIlX2FG9a +Fxt4MrVUrx6VRd7cv4HZrWxgFKSzTlcT4wOH4hqI+2TT+6bFsXpZ3HX11cw8 +cd/Yci23dH8ni/9k5VWUqtngaXf0A3yTRYcss5/HK9hgEUE9E7lCDuOeVMh3 +lbAhQHb2rqmaHH4yq9nSc5cNL33ujNYGy2FWfeHR9kg2WC3QhU9GyGHgJf91 +Z0+zoelKO00vUg4Dhj5Uq51kw4cyvsicC3L4IUPU+UQIG8bWBAqfuyWHo0O8 +T9qOsEGycIuBRY0cHm6tm+92ZsPh35OR9fxUtLcteiOqSZzn2AHxQWEqPg0P +56xVZ8Oq4e58HkkqSipWunKpsCG3p7bTRJ6KSmsl+7vl2dBblaLOplExMv2w +0l5xNmw/R+/Kcqfi523yzukLLNARjtKMKKJi3nD9gZV1LPijJtir4SCPhcnR +jd7bWDB7mxSl6yKPIvz9b0OsWDC9boMC3V0eBSKNg2I3s2Bsiu636aA8SrBo +NelMFvRXeM66nJJHm9i4/DQNFjTYPBWIy5XHrvB7R+fXsuDGITfon5HHXyN3 +nDzflIBx/qPM69fXY/8+JaFQeglMClt7ONYoYNohjl6McDEMJHg4HudVxI6b +k7yW7EKwGg+x+kZTwrMxuI2/sgB+eq46wTqjjAc95N1KavOJ/wUJ7vM1Ktjj +zGMc1nMfhN8qJhaOq2KIIvXCQ/08oMQ92UGjqeNjqr/7jaC7kKZGFxTx0cCK +tH+0A6uzoIFkqj+VtBG/60kltD68DQxKzRXNTk1MriYFmG1JBwGe7MB9Z7XQ +vO8GqF9PAZkoWWNnRW10qvD4Hbn8KvBtcOXYvdbGd3X2V6MHLsFGptSTkL06 +WBLVVdE1GAfHe4Vrrbl0MZ0kLks1iYHxqQQHqzRdNA4dd9CMj4SPXVmOt2/o +4qRNutuHU5HQ8Iyze/KWLoZ1fqUkBERCzvk+5/QsXexgPMhf4xgJLmQ9tx8P +dXHEZVn+cWokvDLrOXDhmS4Od/FPlJ04AzeTVELf9Oti0/YHg0L9p8BSs+6G +lYYeltYO//o0Hg5OK7fYt2jq4e/xr1q+78PB79Mb/t06ekhOuVezvDocEuPf +RnoZ6GFLW05FYGI4dH5vP3DGVA9RQmV+48Zw8Mr8qsN20EN59V0ey4+FwVmh +Zf/JndZDKv113gRPKFRNGf2da9LD3kzV089dgyCr8en+Xa16KD6MTWNWQRCT +q9tQ0KaH0+4HV6kZBIHVbrV07y49/F46RXkrFATt5SSDti96yJ1tMcN5HQjD +UX+OF0zr4cXY1x9ItEAQF3w67EXSR2Zj19Fxygk4qq7T3eqtj9p1siFaQscg +aI407+6rj/P0jkc7uI7ByRoe0pifPuZ+1BE7Mx4A8U4dzqsD9PF750PnlU0B +cD8m9INZuD5m7QpnPYsPgP6PVV0lifo4lnS+9TVfADhesnmf8lQfi7bc8ROX +OwrMMa92Zz4a6t/7FFQf6wfiFZbZlWtoKPtkt6nnET8YO68aICtAQ5VZAR4R +ez/IoE6s+SZMw46vgzpFVD/4Zx9hHkChoVm34pvBZwehuiKpOFaThjbrjHjV +5n3B9ELVlRIHGr5d8D1fHuUDmxUkt/Fn01CphC1EafAC1ugrqlcODR+f1siZ +YnuBwtMTs+V5NOxtsoOPWV6w3Lr5jm8+DXNZlvv6wrygxj/2Vy2Lhm/WuQiW +qHqBScV0avhrGjZTt64LvewJNLvW/u8/acjd+0df23s/KEdeDK0xMMDIXeGl +MyYeUGmUu2IrwwBvPFZ8tlvDA3bMVV/tMDbAymjPKw1kDwg9OvNoyNQA9Syu +97ycdId6V48vAlsNkCt7hUqJjzv40mnWezwMsPu7pT3L2Q0e/PpCno4zwH2v +GhxTHFzBpGDh/ql4A9QI0JhwobnCu4MSNN5EA7wFJjMmEq4w37d1BynZAFuV +hj7v+7AHrJufxuBtA7xu3xsn6L4HhvMvjSYUGSDZxuLrX38XUPWmV2/oNkDH +0oQDnvec4LK87Xz0RwP83dJlmXHJCaY/79fv7zXAVIMXwpMnnKDKJSE/46sB +BvrNkHrRCex2fE6VGDVAkWryWFvPbggzOhfAx2WIP08ZxMuI74Z6oVbq6AZD +LKrJkC+66QAazd9cbZQNke/Z09FXMQ5wNWE+9YGqIU5EV++fOOIArrwKAgc0 +DTFCf8+KWHSA8YXg+V5DQ3R4DdbFg/YgPkRpa7ExxK/39fqWaPbgXeUbwzpm +iAPxrVV/Bu1g7MhwyOZAQ/yuO48TLXYQKn34UGewIXbHna1aLLeDiyf97X5H +GCL9+mqXvZftoJARLGcca4jZY57d6nQ7WOBEV9beIPbzIdL375WdcPVJxvS7 +WkMUDPnwqnHHDqC4yw151hliJe925ZPMHZArkN0zXW+IrEtNwqi6A0qP5NaI +NxkiyZNHf8XyHfBJ7dEVly5DHP9822rFse2gfL9Mvf+nITpta5APtLaF6sx2 +r0kxOobebk2gk7ZC31aqe7AkHcm/X04K/rEBrj9HnP+S6Fgp65W2pssGzHby +2q6Qo+P4EykVv+s2ULeMYSClSsevxfnv6kVtoHH/HT5TEzr2tCp5T0hYQ7eC +X8GVA3QU8jQyFDDYAn9bOPfFDtLRtjS6XpC0BSineO7eOERHd1Ohcp1FS9jb +cSs1J4AYv7bXur3WEvrONUeWhtNxZe+W0Yt2lvB9UG9XXyIdZyXVmh4FWcD0 +/aU5zad07Nz+HRdaN8Ggo0XmhTI6lus+M/cu3wRdyy9t+VpBx29LZ2MGszdB +hQcp/fpzOtopV/pqB26Cs5L6jMU3dDz98sjeQYlNIBjnd7LhIx0Pc7UblHua +g7pPB5c3NwPjdzp/DV5rBjJilAdVyxk4erAqtWrOFARr9++U5GWgq+uzMfJX +U5iSmcj6bw0DP3rJ6EuUm0J552pzHTEGnjhdP89/0BS2WOC5JSUGDipsdRhp +QPDckM93YxsDV1tEWVcbAYS/cvNT3MHA8PNcIW6iAFe8hf8rtmPgt8gdI6qj +JlCZG5bw324GegyHTVnfMQFRxS3rFvcxMKN3TXT2ChOoU/wm6hHMQKWZmQ1x +3cagqiwrp3iHgav2XQr8c5cBWP8usjiLgVwHjzuORDHA0Tf2i0kOAyf7xfhW +eDAg+v5o9u4HDHRq9jB6QmHAR+XKDRdKGHj8157d3al0SFRxVvv5moEvTrkt ++KQYwqRqMq14goFyrRV5Wx/RoKsRN4tMMbBqgZn86QoNnh8d2xU4w0DuV6oT +CUE0SCy2OkabZ2D/woezFkADVQbXo3IeI9T4pFxHbdeH/VZHqLXiRtiRsmnE +jUcf2n0s17YbG2HE1PkJlRBdqOCbIemDEc6/GfHb4a4L2fnZKtdNjVBAzu5F +kqUuBIwvWjhZGKGmzucUL0ld4A9hRX3cboQ7p2RGLSt0wCKWOjew3wgZSguS +Yyt0oDTn75eZOCM0NH+ly1OgBTTzwDnreCOU4XtmV56uBewvP9dmXjLCsw9T +1OLOaUGxTK+B9VUjfPjuyBOfvVrwKO35pYybxP69HkbrCmhBZsI5umWBEQrn +WZ7s+L4RLgSuS0prM0JeZ0rPyQx1WCUSlzfaYYTfsgObzSPUIbaIq9KsywiH +fu19o+OkDjFjk4M/PxrhraFRlThhdTjt225sOkisV8VQXXtBDY67pg/9+G2E +kQ8slxxOqYLLpvVoJGOMaHb+T2+UMiy2rxKolTPGCV+ZmloPZcj0HuuxXm+M +ryNvDLeCMgzGloW4KBsjS4SWefCfEhx/s/1JmI4xMnaXXow6pQQXbU/KlFoY +46MXSk5q0YpQ7tSxoOdvjHav9nRq5ivA3h/lDZXHjPHUoqbDj0QF4ArPTNsU +aIxqumWFdccVwOLmIT37MGI/nDannwwFePdp2eET0caolZT5q7dxPQzv39hT +lGqMH4V3LTHn5IF85HzZxufGKDgq7tTqRYXEpQP68TXGaKj+d8belgrcVy2K +vr80xk3eA9emDKgwzFnxIPONMZbnPHGPWkOFcq6YNOE2Y7SgvZruKZEDl2uR +IbPfjJFLVazzBJ8cpFWE6VetYaLXYtvbtkRpWGvrXEQSYOIFnZPLNHylIbLP +UCNEkIlXJYWAbSoNvit+K2iJMVFcZG6l3QwFDLYHi2bLMLH80UPpp24U6Ow/ +PnVOm4nzZfqPuRlkEFt9uGjbbib2F+m9MBeSghzzU+ETzkwMpfqab/opCTqn +Es2TXZnoEGX0JOS1JNhOFHZ07WPiy0A0Dz4tCbGdM388DzPxwfUR3//GJOB3 +9hmz8CgmXr//djqjSxy6jZLb8vKZKJORd928WRR8g3JuWRUQ+3WwZ6gWisJs +Adv7ZyETOSF9lsZJoiAs3zWnzWFiTMy6mi+7RMFmlTTl2XMmTtiLq6n3iEBl +e55XWwcTUyvjPS5PCoO1QKlGcBcTP0ltFBLpEIYuyzezkj1MPJqxuqmqVBim +y0fi3PqYaOEQcPtSpDBoZGk9/jHMxEr6/Cy3sDBUdpsGJ4wS8wtaD72YFQJr +0V2gOcHEPK1R+7weIThwPqg1cIaJi10Olf25QjD9PPaGxG8mblbyeU+PF4Kz +86me5fNMHNi7KZMTIASCeg/U9y4y8fT0529OjkKQcaR8ZmmJiZcrvUPkjIXg +f8MrDuU= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08641080525867108}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.08641080525867108}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993850686193634*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"3a309f86-6a2c-4e38-b033-8c6e4b01daa4"] +}, Open ]], Cell[CellGroupData[{ @@ -7580,12 +8600,14 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + CellChangeTimes->{3.99179966106703*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[BoxData["11.27534350842078`"], "Output", - CellChangeTimes->{3.9913229040054893`*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[BoxData["9.821267177523483`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.993850686228106*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"0f23036d-2fd3-46bd-94d4-ce51a3060fcb"] }, Open ]], Cell[CellGroupData[{ @@ -7641,158 +8663,181 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991799666995865*^9},ExpressionUUID->"7116d4f3-8ab8-b741-8264-\ -0a5eeac170a0"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 17, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042538757`*^9}, + CellChangeTimes->{3.991799666995865*^9}, CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + "In[108]:=",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 18, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042728806`*^9}, - CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ -\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ + "\"\\!\\(\\*FractionBox[\\\"3.330517047673065`*^-257\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 89, 19, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042938766`*^9}, +\"", 2, 108, 13, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.9938506863093643`*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +In[108]:=",ExpressionUUID->"50a06c82-c7e8-42a3-8464-5f52c3b61424"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7693625691350066`*^-266\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 108, 14, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.9938506863170433`*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"a94e864b-f7b9-420e-8025-cd2483a29b09"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.829816208795145`*^-275\\\", \ +RowBox[{\\\"676150755326425929620763661562\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2566907412833894400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 108, 15, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993850686323574*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"ff64baf1-7e5f-4bea-9553-7b886e5b3443"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 89, 20, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229043127804`*^9}, +during this calculation.\"", 2, 108, 16, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993850686329908*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +In[108]:=",ExpressionUUID->"3fc27bf5-36b4-4b5c-a36c-ef38270ca581"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0Ve0XB3BDKhUh83DvNasMGe/gXnujKEmmMlWUZNYbUpESKr1UhoqK +yNBbKdx7QoYQEpESCUWDBgmRKUX9zu+vsz5rnWk9z/7u/Sjv2e/oI8DHx8fg +5+P7/3VmoKVRLTHf7LydYxn6bzDruiZ7xLwnFlovSxb9yVMFlHq2R7YnFdaB +lkFHniFE2N9+JdiTCxZ521W5eZYgPiaTOveKB/rdfT1ReU7wttpu/9SrelBR +kFrblusNVmrD/ROvXoDGRGwALScM5l7RL46/+gBaHKE9xy7GQYPlf/kduZNg +3/zjtzn9Aii+rfi8R3sBivdLtg6nZ4FkkOftJZaC2BpQLeOskQep+lZVdtuW +4jE11lrrk/9Bb8a6ugkxEZQX+kfyjVEhJOYffyYgJ47C7Z5diWVFYGPkLyGl +Ko6/41y/sxuKYGmj4zZNHXF0k9gQ8elZEcQPqr/ebC6Oy1671ih+LYKjKm2f +L/iLo/KhwSlVhWIIyZH9o1EpjrGUbVOp0cXgkMnV3uwhgQLTm4cnlEpA5sLg +mbSsVVhscfb4RHsJyK4tjf95YxUmH5u3ftlZAvL1p47vLFmFsUo3qKU9JUAZ +X31Qs2EVmip5/fL7UALqtv94VQ2twoy8li3Xp0vAcNGCyaChJKqZW005KXBh +a7j0R4Mnkrh8zKf9gTcX7JcPDaR3SmJuSsdxFT8uOOZW9M6/kUTekLx+XBAX +tj/f8azpuyTKdtWlMA5yYad2XqW7lBQ6bhUyDzvFhcCPeimxXlKo+LJBWOsm +F047bzJ7MSOFvwc61c8OcUH+Xru8AL803o6aEX40woWiVc6z+sulkRL/Tffn +OBe6X+wqSaFK45SFI8t+jgtqDuEqDhul8UhNof1jYR7Ub8le/PyyNKYcldna +sZoHC1bT7U/ZMnj03skrTvt4kHwjsnDBSgYDWh2sJv15oLaYL0HHQQanjAX0 +zgXzwPbRMvOzPjL4Q1++vDScB1csaYTtORmU8RrIbY3lAQM3p7e+lUF5CaFp +iWs8CGNe92yJlcUPzy/aiXXwwCZHdGpzkizOiZR6fezkgcqSowntF2Wx5u3X +rfe6efC8azu386Yslqf6N1m/4YHuPysEB9plcUfHkBznCw+Gbhy68UNeDvsP +/kjePc+DHZJ2owqEHLbqfK5KUyXAMKrqxLVqOZwbyZwcVCdg2QctaeUmOUw6 +3Cu+TouAimJB0OiVQ7pIqGC1NgHSmyuS1/2VQ61Hjk25xgQ8P6FmtGGzPL6I +n9O6Y0XA+u+/IkMG5bF6WiiT60PAkY0X1jwckcd39TFhEb4EFF3X6Vs1I4+W +5e/96P4EyDp7MSuWKmDgyrDiu0EEjNx/NCuoq4Ax8YOVgWEEpMUmh18+rIDM +sThr3RgCml+vVhs5oYCDFxyh9AQB80YNnWaJCqh4W3gXI46AfV+mDT5mKeBl +TqaE4SkCWLYeE7oNCighEu//K5GAD1IaIY0iikgJe+7RcYkAmf21SjIyiqh3 +VVtEIYMA22bXp/40RZR6/d93r8sElEUmaq80VMSv53k2768S8O/b8WE3V0Ws +DnAPupdDgMGtKt/vuYr4VKz1d/4tAnwFtslY3FFE3fujErzbBGR6jDVdKFVE +voXkfVWFBCwWVdZgNSviwm23pvq7BPSFnvoYP6qI/RlG0flcAk6wHXbLM5TQ +ufXhwXv3Cdi469oPuoUS/vXNtEuvIEA05lvcNlsl1BMTaD5YSb6/4eSNZC8l +jFXLzlGvJuC+TeW3xWeUML+uebFDLQHHg5ZEq6Up4WzCZX7xOgKszjmLWmQp +Ydux6II20l0dY+uiuUoYx3g7YlJPwLirasRkrxJm8P3JeNVIQHnkP0vEPyqh +0rTD7/BHBBzLfJChO6aEF4uyV4o2EbDinUuVvwAFD2wrdzR8TEAnf4Ht6RUU +7NvSFldL+orqj/58aQoaUQ8EWjcToOmbxPduDQUZFDFvmxYCxhJ6UxaMKFhb +73XwEel7tzVUFYCCVWvHLNhPCLAYq9uw3YmCjk1RkkqtBAiLib4K20nBX/f7 +5U+Tfq7v4ZfiS8HV4/B+hPSug9P/tkVREER6eIVtBKinWygOn6Tg9TeRdYue +/r++zt9dkkzBXQ9nU91IR86vfm6RT0GBdr/EGdLmlEO7vYooWPSpizBrJ2Ap +Nv6Ivk9B6fFlN2JJX4zbJVXRRsHsB50jC6R3FBTe6O6m4F7nr5bGzwhQefyT +PvWOgrS4dn8/0l+HNrSIf6OgiUSzZzrpkmVp7nrTFNRUVtSsJ31I+903278U +9FeXeDhE2sxOJzpAmIouX3/oLn9OgNA/kaIJq6ionrg0dDXptpTH2QVKVLwb +dS3RknQaIanfoEnF0Gj+aDfS7i9317/Tp2JE3nHrQNLKs0VOf0ypKG/vN3KY +9JDs/EcFKyoqGa0IjiVdzNoUwbSnYuCWB09Ok47YcWmJizsVxT63Lz5Dmn1s +MCN8L+m0iyqnSAvmrFuTGkLFLYa+1OOknzyMrio+TMXjY1f+hJFOHnxi+zSW +irOGZx7uJe0iJDswnETFrIpEfwfSFE2f/UvTqVgfuTDLJP1pI49P4zoV+cpZ +IRTSdwL+plgWUtFoIufpH3I9wpJsVXeXUpE+dk7mNWlW0eV7x2qpOErs3UKQ +Xv+qfWGsmYomvwJj/iVtx7fI2vMFFT9JPNDaRdp1NTP52Wsq7vty2FqXtLdj +SC98oqKlw8P+X+T+hUTlqZSMUVFFrmKkgfTh/J5A2k8qLpuJO3iGtFWU8vEY +IRp6hmjMCZNuXVmdx1hGwzRZm5lGsl7s87c3j4vSsHey58BR0h5PE8V3y9Jw +KLRv6B1Zf/9QZ/LM19LQ/Ifo7HGyPqeJ5OY5PRryS2stpZKO3Lh2lGtEwyqv +pdcryXo/ecDLRMWMhhoH+kO+kHm40vCkWcCBhhaa6zNlyPxQXX1GK7fRcNG3 +XyuukvnKH/krHuZOQ2ajyEoF0sVSxh6D3jTc9EClTYzMZ6Nv9mhDBA31l9Bt +OxsI2DTPlDgaRcOZ7Gl/U9LtyV0mRjE0bEp9o5JD5r+3Qjgm/wwNWVVygZ4P +yXwuD5c4mUnDBHXTw6U15H7kiNI512nYU05LFSD90+iWx3QBDTdeXudg+4Cs +j10D+T7FNDzf87bhZRXZ30s20q3qaVjhrpRdR/azrPWDHn+aaJjycFxospzM +S290TFkrDVeHqymqkNYRIFo0XpL/87zbI6KUzL+z0o4lQzTsK6iwnSX7Y9DP +iZhmEWWMcEmW20H2V9aBfdKfJZQxLG2J5Xqy/y4d7isUlFXGsaP6OVo3CSh4 +3dBtpqKMKQn75z8VEDBQc1G71EQZTQWSggyvE7D1JLPnuqcyWv6CIvl0sj7/ +3A2u3Uu+XzTlfdNFsl9EqAj2+yuje+3WvfsvEJDgt1xXNlwZjzI0PEtTCKjb +3B93LkEZo1b0e0glkfNA4oReFFcZbfsz+DXJecWXON2YUaaMIafO8V8+Rq63 +YIB7WRX5fN3V4CXRBAROO56ceET+r5JVSu8Rcj971F779imjCWsZy4mcf9LZ +zaecBVXw+0L83Sxyns6tFRvQ2aaCT6urNTOtCZjJkj9h6K6C3z54pd/cQMDU +SnU1pifpB0NPuZbk/k0yA9b7q2Dg/k+XKoGcf1XeM+7RKjjqFNdaQCfzu7lc +NKFABQ0PDrh+1CDrLXAXfJhWwZVeid9FBcn8F97JuXRJFVdMLF4Tx+PBa1ph +9oarqth6MT73TzEPIi/dujaVrYoN3uOlh+7yoPzEjUzHW6qYKvWG2HOTBwau +ORmi1arId0+KoUieb1YLXUg+9V4VpRPCGyhneCDtGRUToa2Gp1dpLwTt5MGE +hI3X9no1zLbUdz/9lwsfk7y2hy7RQLUAJY6vHBc2fT+06ZOJJi4NSege0CyB +Ee+lYfeOa2HWF+nay3JF5PlcRuB0/WosVKnemNxRCBJPNc6VfF+D/Btr48fz +boFiQrG9iYk2LtvmNJC14T/IWMsUW+Wrg2HDKc7VMgXwRN7ceDJFF42YRvNe +i/KApVifrNeth1J7DbyT3+SAqGBu+O7YdbjFI6Z35UgWUE5Q2W4a+ngu6mOo +luQVEFbfUeb4WB9jPVWKLl+9BLocueJDOw2Q3eBWVXMjDUIHJBps+AzR+Vrk +PYOHyfB9MmnbpgxDfP6m6VfBnSSw1mu6sknHCI8vN/ptEJ4ANZOmv2fbjXA6 +cc8nTnA8hGgb9HX4GKNRL2ftec0TwBnb2+UmbILTY5JVjHVHYYOa7BaRXBM8 +b3/fRcTuEGjF/Hu4nk7H4Znrdu30MKg2LRCyZdFxT8CbsWjNMLCfrU19yaaj +zvI7OkyZMDgcMn1nyJyOu8fHQ17MhELzDq/3orZ09Fub7HK+LBT8mCY2Hl50 +XBSOMTqMULj1473CVAIdg5M8d3ZYHoA1Psxa9T46npETud8zEwLnVex+xb2h +46ZRx7VH+kNg6u0e4w8DdCyZ2m+7tjEEatyTCq8N0vGxxFBoY0oIONq/TZcZ +pWPrDSfbFp0QOGJ68h9hPgZezN4qKeUfDM3iHcqj6gz0VbU+HT4SCD41fvH3 +DjDw1lXt5S5q/jAWPHxoQzgDvfs/DDiL+MNhpaDA7ggGvgyCp3tn/ODfo/sd +f0Yx8JfByaeVzX5QwoqgsU8xsGW/uYZZiB/Ml8VVN1xhYNIptwsZ1b6QWnxt +6kUDA3UIb0H7ffugNqdr74QUE82ffL4Y+s0b3tkqe0bIMjEmfbxgrscb+OaC +3X7LM/Hypd8Z55u8wcJhiZ0QjYl2LC7/0HVvaOJn0eXWMFHdntuxyc0b2vZk +C5ubkff3rpBrebIH+tQCipL3MbEmXS48/P5umLr5d1avnImLmKvrfh72hM/b +rXLOVDARgoNshnd4Qs+isxsHq5g4Ei71aAI9ocpL/vKlOiYW9cY4WQh7Qqys +MWuhhYndVl5bhq7sArGEgKNP3jDRUbb3rGn9TtD2fcnnI8DCS+pFZtm0HeCt +Xih8ZQsL/+ue6AyRc4PIR7sCNOxZeEGgOCaWzw2SfSRaeY4szHnwUfTOF1eo +LjiS1OrCwrO9L85jmStIamxcubCbhdlbjfYFO7tCk8YnSa8IFhrltaU1X3CB +NVpUmkY2Cx891paWVd8OE2vSTHjjLGSISqc8i3GCnjbcsGqShSe/S0oYhzhB +XciYU/g0C41vRey57eEE53ibDpj8YmHDzKxlo4kTrGHx3akUNEXJNeRpbtQR +9mwKVm6QNsWjsqlah3c5Qpev9Youtil2pYYSGzc7wP383++nE0xxNHmdw95s +OzCxDJ+1STTFED7xDQKxdlD6fmRFzllTdJUNOlGx1w54lAG6TaophmuvOhO2 +xg7uZNSdvXbVFCvN59pWlW+BnKSTTOsiU5xzYYtNd9nCmfCVKRmdpvjee3K8 +SmUzuK9XRVMKGxlZ3mYJAhthoWupaAONjW2GEfe+DVlDjs/YaxtVNn7piHzm ++8waPp+qOOSuxcb5C+zcW5nWENqytfiIARsfZDUfc2BYw792Ryn3rdgoIue1 +mxZuBZWuL+eN9rPR60HupN7Cetj5tfJJ9QE2VpSWmJ34vB74InMy1oezMSDa +oHzo2Xqwuhpo5HyEjYeo4p/mctfDi37+oLA4NvI5n9FQtVkPw3t0X3PT2chf +Mzgfk2kJCsGnK3Tr2Gg2PBs+bG8B5/7uM06sZ6PGxxf+RmYWIJBqxf3SyMbX +LKey82stYLhM6FZOCxvDdAUokYstoJIvPkOik43qFY45ig/Mwf1CzKGZT2xU +pdTZJ+mYQ0bVEeOa5RwcvGYK5fIIK+zcuPKiHMzf/uai+DKEmHcMnUNiHJwP +HNKY/QHgJ/RTbZ0UB3XeX8qeLwGgb42QzKVw0KrtekukLkD3h9DJk/ocpKcY +luromYHUsiDuFhcO8lMS5Gqt2JBvGR057sbBLyWzK2vU2WAQfc4ybQcHS47c +0ni3iA124yUve3Zz0EW0c93ZBlM41T095x3EQSe/V8qnLUzhZ+5xi8gTHDxg +Ky0zYMWCPtO0zhuFHJQ8zRfF8mOA38H8zE1FHEzOafD13MyAmaJSn5ESDmpe +eRifp8sACZWeWf0yDv652v8qYZoOm5cqKT6o46A+7W1uYzwdqrtu7O18ycHG +N66KX26agI3ofZ2IHg6K16w2nThrAj3WLTOyrznIfVhaJhtmAlOV3xJ2veNg +vaezYy3HBHSur7v7dZj8fr2IkF+XMVT3mUckjXLQjRfxw63SGGwknUBvnINZ +0pkefjnGsO/0wY7waQ7y9W816Asyhqm6U1dkfnKwuLPEj+NkDLG/0r0rf3Fw +yDbsTjXTGMSMbmnvXODgSlnmBxeaMVwLrpz++5eD985UjokuMYb/AXOgzJc= + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7806,117 +8851,134 @@ U0FU/w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== +1:eJwV1nk0Ve0XB3BDKhUh83DvNasMGe/gXnujKEmmMlWUZNYbUpESKr1UhoqK +yNBbKdx7QoYQEpESCUWDBgmRKUX9zu+vsz5rnWk9z/7u/Sjv2e/oI8DHx8fg +5+P7/3VmoKVRLTHf7LydYxn6bzDruiZ7xLwnFlovSxb9yVMFlHq2R7YnFdaB +lkFHniFE2N9+JdiTCxZ521W5eZYgPiaTOveKB/rdfT1ReU7wttpu/9SrelBR +kFrblusNVmrD/ROvXoDGRGwALScM5l7RL46/+gBaHKE9xy7GQYPlf/kduZNg +3/zjtzn9Aii+rfi8R3sBivdLtg6nZ4FkkOftJZaC2BpQLeOskQep+lZVdtuW +4jE11lrrk/9Bb8a6ugkxEZQX+kfyjVEhJOYffyYgJ47C7Z5diWVFYGPkLyGl +Ko6/41y/sxuKYGmj4zZNHXF0k9gQ8elZEcQPqr/ebC6Oy1671ih+LYKjKm2f +L/iLo/KhwSlVhWIIyZH9o1EpjrGUbVOp0cXgkMnV3uwhgQLTm4cnlEpA5sLg +mbSsVVhscfb4RHsJyK4tjf95YxUmH5u3ftlZAvL1p47vLFmFsUo3qKU9JUAZ +X31Qs2EVmip5/fL7UALqtv94VQ2twoy8li3Xp0vAcNGCyaChJKqZW005KXBh +a7j0R4Mnkrh8zKf9gTcX7JcPDaR3SmJuSsdxFT8uOOZW9M6/kUTekLx+XBAX +tj/f8azpuyTKdtWlMA5yYad2XqW7lBQ6bhUyDzvFhcCPeimxXlKo+LJBWOsm +F047bzJ7MSOFvwc61c8OcUH+Xru8AL803o6aEX40woWiVc6z+sulkRL/Tffn +OBe6X+wqSaFK45SFI8t+jgtqDuEqDhul8UhNof1jYR7Ub8le/PyyNKYcldna +sZoHC1bT7U/ZMnj03skrTvt4kHwjsnDBSgYDWh2sJv15oLaYL0HHQQanjAX0 +zgXzwPbRMvOzPjL4Q1++vDScB1csaYTtORmU8RrIbY3lAQM3p7e+lUF5CaFp +iWs8CGNe92yJlcUPzy/aiXXwwCZHdGpzkizOiZR6fezkgcqSowntF2Wx5u3X +rfe6efC8azu386Yslqf6N1m/4YHuPysEB9plcUfHkBznCw+Gbhy68UNeDvsP +/kjePc+DHZJ2owqEHLbqfK5KUyXAMKrqxLVqOZwbyZwcVCdg2QctaeUmOUw6 +3Cu+TouAimJB0OiVQ7pIqGC1NgHSmyuS1/2VQ61Hjk25xgQ8P6FmtGGzPL6I +n9O6Y0XA+u+/IkMG5bF6WiiT60PAkY0X1jwckcd39TFhEb4EFF3X6Vs1I4+W +5e/96P4EyDp7MSuWKmDgyrDiu0EEjNx/NCuoq4Ax8YOVgWEEpMUmh18+rIDM +sThr3RgCml+vVhs5oYCDFxyh9AQB80YNnWaJCqh4W3gXI46AfV+mDT5mKeBl +TqaE4SkCWLYeE7oNCighEu//K5GAD1IaIY0iikgJe+7RcYkAmf21SjIyiqh3 +VVtEIYMA22bXp/40RZR6/d93r8sElEUmaq80VMSv53k2768S8O/b8WE3V0Ws +DnAPupdDgMGtKt/vuYr4VKz1d/4tAnwFtslY3FFE3fujErzbBGR6jDVdKFVE +voXkfVWFBCwWVdZgNSviwm23pvq7BPSFnvoYP6qI/RlG0flcAk6wHXbLM5TQ +ufXhwXv3Cdi469oPuoUS/vXNtEuvIEA05lvcNlsl1BMTaD5YSb6/4eSNZC8l +jFXLzlGvJuC+TeW3xWeUML+uebFDLQHHg5ZEq6Up4WzCZX7xOgKszjmLWmQp +Ydux6II20l0dY+uiuUoYx3g7YlJPwLirasRkrxJm8P3JeNVIQHnkP0vEPyqh +0rTD7/BHBBzLfJChO6aEF4uyV4o2EbDinUuVvwAFD2wrdzR8TEAnf4Ht6RUU +7NvSFldL+orqj/58aQoaUQ8EWjcToOmbxPduDQUZFDFvmxYCxhJ6UxaMKFhb +73XwEel7tzVUFYCCVWvHLNhPCLAYq9uw3YmCjk1RkkqtBAiLib4K20nBX/f7 +5U+Tfq7v4ZfiS8HV4/B+hPSug9P/tkVREER6eIVtBKinWygOn6Tg9TeRdYue +/r++zt9dkkzBXQ9nU91IR86vfm6RT0GBdr/EGdLmlEO7vYooWPSpizBrJ2Ap +Nv6Ivk9B6fFlN2JJX4zbJVXRRsHsB50jC6R3FBTe6O6m4F7nr5bGzwhQefyT +PvWOgrS4dn8/0l+HNrSIf6OgiUSzZzrpkmVp7nrTFNRUVtSsJ31I+903278U +9FeXeDhE2sxOJzpAmIouX3/oLn9OgNA/kaIJq6ionrg0dDXptpTH2QVKVLwb +dS3RknQaIanfoEnF0Gj+aDfS7i9317/Tp2JE3nHrQNLKs0VOf0ypKG/vN3KY +9JDs/EcFKyoqGa0IjiVdzNoUwbSnYuCWB09Ok47YcWmJizsVxT63Lz5Dmn1s +MCN8L+m0iyqnSAvmrFuTGkLFLYa+1OOknzyMrio+TMXjY1f+hJFOHnxi+zSW +irOGZx7uJe0iJDswnETFrIpEfwfSFE2f/UvTqVgfuTDLJP1pI49P4zoV+cpZ +IRTSdwL+plgWUtFoIufpH3I9wpJsVXeXUpE+dk7mNWlW0eV7x2qpOErs3UKQ +Xv+qfWGsmYomvwJj/iVtx7fI2vMFFT9JPNDaRdp1NTP52Wsq7vty2FqXtLdj +SC98oqKlw8P+X+T+hUTlqZSMUVFFrmKkgfTh/J5A2k8qLpuJO3iGtFWU8vEY +IRp6hmjMCZNuXVmdx1hGwzRZm5lGsl7s87c3j4vSsHey58BR0h5PE8V3y9Jw +KLRv6B1Zf/9QZ/LM19LQ/Ifo7HGyPqeJ5OY5PRryS2stpZKO3Lh2lGtEwyqv +pdcryXo/ecDLRMWMhhoH+kO+kHm40vCkWcCBhhaa6zNlyPxQXX1GK7fRcNG3 +XyuukvnKH/krHuZOQ2ajyEoF0sVSxh6D3jTc9EClTYzMZ6Nv9mhDBA31l9Bt +OxsI2DTPlDgaRcOZ7Gl/U9LtyV0mRjE0bEp9o5JD5r+3Qjgm/wwNWVVygZ4P +yXwuD5c4mUnDBHXTw6U15H7kiNI512nYU05LFSD90+iWx3QBDTdeXudg+4Cs +j10D+T7FNDzf87bhZRXZ30s20q3qaVjhrpRdR/azrPWDHn+aaJjycFxospzM +S290TFkrDVeHqymqkNYRIFo0XpL/87zbI6KUzL+z0o4lQzTsK6iwnSX7Y9DP +iZhmEWWMcEmW20H2V9aBfdKfJZQxLG2J5Xqy/y4d7isUlFXGsaP6OVo3CSh4 +3dBtpqKMKQn75z8VEDBQc1G71EQZTQWSggyvE7D1JLPnuqcyWv6CIvl0sj7/ +3A2u3Uu+XzTlfdNFsl9EqAj2+yuje+3WvfsvEJDgt1xXNlwZjzI0PEtTCKjb +3B93LkEZo1b0e0glkfNA4oReFFcZbfsz+DXJecWXON2YUaaMIafO8V8+Rq63 +YIB7WRX5fN3V4CXRBAROO56ceET+r5JVSu8Rcj971F779imjCWsZy4mcf9LZ +zaecBVXw+0L83Sxyns6tFRvQ2aaCT6urNTOtCZjJkj9h6K6C3z54pd/cQMDU +SnU1pifpB0NPuZbk/k0yA9b7q2Dg/k+XKoGcf1XeM+7RKjjqFNdaQCfzu7lc +NKFABQ0PDrh+1CDrLXAXfJhWwZVeid9FBcn8F97JuXRJFVdMLF4Tx+PBa1ph +9oarqth6MT73TzEPIi/dujaVrYoN3uOlh+7yoPzEjUzHW6qYKvWG2HOTBwau +ORmi1arId0+KoUieb1YLXUg+9V4VpRPCGyhneCDtGRUToa2Gp1dpLwTt5MGE +hI3X9no1zLbUdz/9lwsfk7y2hy7RQLUAJY6vHBc2fT+06ZOJJi4NSege0CyB +Ee+lYfeOa2HWF+nay3JF5PlcRuB0/WosVKnemNxRCBJPNc6VfF+D/Btr48fz +boFiQrG9iYk2LtvmNJC14T/IWMsUW+Wrg2HDKc7VMgXwRN7ceDJFF42YRvNe +i/KApVifrNeth1J7DbyT3+SAqGBu+O7YdbjFI6Z35UgWUE5Q2W4a+ngu6mOo +luQVEFbfUeb4WB9jPVWKLl+9BLocueJDOw2Q3eBWVXMjDUIHJBps+AzR+Vrk +PYOHyfB9MmnbpgxDfP6m6VfBnSSw1mu6sknHCI8vN/ptEJ4ANZOmv2fbjXA6 +cc8nTnA8hGgb9HX4GKNRL2ftec0TwBnb2+UmbILTY5JVjHVHYYOa7BaRXBM8 +b3/fRcTuEGjF/Hu4nk7H4Znrdu30MKg2LRCyZdFxT8CbsWjNMLCfrU19yaaj +zvI7OkyZMDgcMn1nyJyOu8fHQ17MhELzDq/3orZ09Fub7HK+LBT8mCY2Hl50 +XBSOMTqMULj1473CVAIdg5M8d3ZYHoA1Psxa9T46npETud8zEwLnVex+xb2h +46ZRx7VH+kNg6u0e4w8DdCyZ2m+7tjEEatyTCq8N0vGxxFBoY0oIONq/TZcZ +pWPrDSfbFp0QOGJ68h9hPgZezN4qKeUfDM3iHcqj6gz0VbU+HT4SCD41fvH3 +DjDw1lXt5S5q/jAWPHxoQzgDvfs/DDiL+MNhpaDA7ggGvgyCp3tn/ODfo/sd +f0Yx8JfByaeVzX5QwoqgsU8xsGW/uYZZiB/Ml8VVN1xhYNIptwsZ1b6QWnxt +6kUDA3UIb0H7ffugNqdr74QUE82ffL4Y+s0b3tkqe0bIMjEmfbxgrscb+OaC +3X7LM/Hypd8Z55u8wcJhiZ0QjYl2LC7/0HVvaOJn0eXWMFHdntuxyc0b2vZk +C5ubkff3rpBrebIH+tQCipL3MbEmXS48/P5umLr5d1avnImLmKvrfh72hM/b +rXLOVDARgoNshnd4Qs+isxsHq5g4Ei71aAI9ocpL/vKlOiYW9cY4WQh7Qqys +MWuhhYndVl5bhq7sArGEgKNP3jDRUbb3rGn9TtD2fcnnI8DCS+pFZtm0HeCt +Xih8ZQsL/+ue6AyRc4PIR7sCNOxZeEGgOCaWzw2SfSRaeY4szHnwUfTOF1eo +LjiS1OrCwrO9L85jmStIamxcubCbhdlbjfYFO7tCk8YnSa8IFhrltaU1X3CB +NVpUmkY2Cx891paWVd8OE2vSTHjjLGSISqc8i3GCnjbcsGqShSe/S0oYhzhB +XciYU/g0C41vRey57eEE53ibDpj8YmHDzKxlo4kTrGHx3akUNEXJNeRpbtQR +9mwKVm6QNsWjsqlah3c5Qpev9Youtil2pYYSGzc7wP383++nE0xxNHmdw95s +OzCxDJ+1STTFED7xDQKxdlD6fmRFzllTdJUNOlGx1w54lAG6TaophmuvOhO2 +xg7uZNSdvXbVFCvN59pWlW+BnKSTTOsiU5xzYYtNd9nCmfCVKRmdpvjee3K8 +SmUzuK9XRVMKGxlZ3mYJAhthoWupaAONjW2GEfe+DVlDjs/YaxtVNn7piHzm ++8waPp+qOOSuxcb5C+zcW5nWENqytfiIARsfZDUfc2BYw792Ryn3rdgoIue1 +mxZuBZWuL+eN9rPR60HupN7Cetj5tfJJ9QE2VpSWmJ34vB74InMy1oezMSDa +oHzo2Xqwuhpo5HyEjYeo4p/mctfDi37+oLA4NvI5n9FQtVkPw3t0X3PT2chf +Mzgfk2kJCsGnK3Tr2Gg2PBs+bG8B5/7uM06sZ6PGxxf+RmYWIJBqxf3SyMbX +LKey82stYLhM6FZOCxvDdAUokYstoJIvPkOik43qFY45ig/Mwf1CzKGZT2xU +pdTZJ+mYQ0bVEeOa5RwcvGYK5fIIK+zcuPKiHMzf/uai+DKEmHcMnUNiHJwP +HNKY/QHgJ/RTbZ0UB3XeX8qeLwGgb42QzKVw0KrtekukLkD3h9DJk/ocpKcY +luromYHUsiDuFhcO8lMS5Gqt2JBvGR057sbBLyWzK2vU2WAQfc4ybQcHS47c +0ni3iA124yUve3Zz0EW0c93ZBlM41T095x3EQSe/V8qnLUzhZ+5xi8gTHDxg +Ky0zYMWCPtO0zhuFHJQ8zRfF8mOA38H8zE1FHEzOafD13MyAmaJSn5ESDmpe +eRifp8sACZWeWf0yDv652v8qYZoOm5cqKT6o46A+7W1uYzwdqrtu7O18ycHG +N66KX26agI3ofZ2IHg6K16w2nThrAj3WLTOyrznIfVhaJhtmAlOV3xJ2veNg +vaezYy3HBHSur7v7dZj8fr2IkF+XMVT3mUckjXLQjRfxw63SGGwknUBvnINZ +0pkefjnGsO/0wY7waQ7y9W816Asyhqm6U1dkfnKwuLPEj+NkDLG/0r0rf3Fw +yDbsTjXTGMSMbmnvXODgSlnmBxeaMVwLrpz++5eD985UjokuMYb/AXOgzJc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.07740074554649135}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7928,19 +8990,19 @@ U0FU/w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.07740074554649135}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7954,116 +9016,133 @@ U0FU/w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== +1:eJwV1nk0Ve0XB3BDKhUh83DvNasMGe/gXnujKEmmMlWUZNYbUpESKr1UhoqK +yNBbKdx7QoYQEpESCUWDBgmRKUX9zu+vsz5rnWk9z/7u/Sjv2e/oI8DHx8fg +5+P7/3VmoKVRLTHf7LydYxn6bzDruiZ7xLwnFlovSxb9yVMFlHq2R7YnFdaB +lkFHniFE2N9+JdiTCxZ521W5eZYgPiaTOveKB/rdfT1ReU7wttpu/9SrelBR +kFrblusNVmrD/ROvXoDGRGwALScM5l7RL46/+gBaHKE9xy7GQYPlf/kduZNg +3/zjtzn9Aii+rfi8R3sBivdLtg6nZ4FkkOftJZaC2BpQLeOskQep+lZVdtuW +4jE11lrrk/9Bb8a6ugkxEZQX+kfyjVEhJOYffyYgJ47C7Z5diWVFYGPkLyGl +Ko6/41y/sxuKYGmj4zZNHXF0k9gQ8elZEcQPqr/ebC6Oy1671ih+LYKjKm2f +L/iLo/KhwSlVhWIIyZH9o1EpjrGUbVOp0cXgkMnV3uwhgQLTm4cnlEpA5sLg +mbSsVVhscfb4RHsJyK4tjf95YxUmH5u3ftlZAvL1p47vLFmFsUo3qKU9JUAZ +X31Qs2EVmip5/fL7UALqtv94VQ2twoy8li3Xp0vAcNGCyaChJKqZW005KXBh +a7j0R4Mnkrh8zKf9gTcX7JcPDaR3SmJuSsdxFT8uOOZW9M6/kUTekLx+XBAX +tj/f8azpuyTKdtWlMA5yYad2XqW7lBQ6bhUyDzvFhcCPeimxXlKo+LJBWOsm +F047bzJ7MSOFvwc61c8OcUH+Xru8AL803o6aEX40woWiVc6z+sulkRL/Tffn +OBe6X+wqSaFK45SFI8t+jgtqDuEqDhul8UhNof1jYR7Ub8le/PyyNKYcldna +sZoHC1bT7U/ZMnj03skrTvt4kHwjsnDBSgYDWh2sJv15oLaYL0HHQQanjAX0 +zgXzwPbRMvOzPjL4Q1++vDScB1csaYTtORmU8RrIbY3lAQM3p7e+lUF5CaFp +iWs8CGNe92yJlcUPzy/aiXXwwCZHdGpzkizOiZR6fezkgcqSowntF2Wx5u3X +rfe6efC8azu386Yslqf6N1m/4YHuPysEB9plcUfHkBznCw+Gbhy68UNeDvsP +/kjePc+DHZJ2owqEHLbqfK5KUyXAMKrqxLVqOZwbyZwcVCdg2QctaeUmOUw6 +3Cu+TouAimJB0OiVQ7pIqGC1NgHSmyuS1/2VQ61Hjk25xgQ8P6FmtGGzPL6I +n9O6Y0XA+u+/IkMG5bF6WiiT60PAkY0X1jwckcd39TFhEb4EFF3X6Vs1I4+W +5e/96P4EyDp7MSuWKmDgyrDiu0EEjNx/NCuoq4Ax8YOVgWEEpMUmh18+rIDM +sThr3RgCml+vVhs5oYCDFxyh9AQB80YNnWaJCqh4W3gXI46AfV+mDT5mKeBl +TqaE4SkCWLYeE7oNCighEu//K5GAD1IaIY0iikgJe+7RcYkAmf21SjIyiqh3 +VVtEIYMA22bXp/40RZR6/d93r8sElEUmaq80VMSv53k2768S8O/b8WE3V0Ws +DnAPupdDgMGtKt/vuYr4VKz1d/4tAnwFtslY3FFE3fujErzbBGR6jDVdKFVE +voXkfVWFBCwWVdZgNSviwm23pvq7BPSFnvoYP6qI/RlG0flcAk6wHXbLM5TQ +ufXhwXv3Cdi469oPuoUS/vXNtEuvIEA05lvcNlsl1BMTaD5YSb6/4eSNZC8l +jFXLzlGvJuC+TeW3xWeUML+uebFDLQHHg5ZEq6Up4WzCZX7xOgKszjmLWmQp +Ydux6II20l0dY+uiuUoYx3g7YlJPwLirasRkrxJm8P3JeNVIQHnkP0vEPyqh +0rTD7/BHBBzLfJChO6aEF4uyV4o2EbDinUuVvwAFD2wrdzR8TEAnf4Ht6RUU +7NvSFldL+orqj/58aQoaUQ8EWjcToOmbxPduDQUZFDFvmxYCxhJ6UxaMKFhb +73XwEel7tzVUFYCCVWvHLNhPCLAYq9uw3YmCjk1RkkqtBAiLib4K20nBX/f7 +5U+Tfq7v4ZfiS8HV4/B+hPSug9P/tkVREER6eIVtBKinWygOn6Tg9TeRdYue +/r++zt9dkkzBXQ9nU91IR86vfm6RT0GBdr/EGdLmlEO7vYooWPSpizBrJ2Ap +Nv6Ivk9B6fFlN2JJX4zbJVXRRsHsB50jC6R3FBTe6O6m4F7nr5bGzwhQefyT +PvWOgrS4dn8/0l+HNrSIf6OgiUSzZzrpkmVp7nrTFNRUVtSsJ31I+903278U +9FeXeDhE2sxOJzpAmIouX3/oLn9OgNA/kaIJq6ionrg0dDXptpTH2QVKVLwb +dS3RknQaIanfoEnF0Gj+aDfS7i9317/Tp2JE3nHrQNLKs0VOf0ypKG/vN3KY +9JDs/EcFKyoqGa0IjiVdzNoUwbSnYuCWB09Ok47YcWmJizsVxT63Lz5Dmn1s +MCN8L+m0iyqnSAvmrFuTGkLFLYa+1OOknzyMrio+TMXjY1f+hJFOHnxi+zSW +irOGZx7uJe0iJDswnETFrIpEfwfSFE2f/UvTqVgfuTDLJP1pI49P4zoV+cpZ +IRTSdwL+plgWUtFoIufpH3I9wpJsVXeXUpE+dk7mNWlW0eV7x2qpOErs3UKQ +Xv+qfWGsmYomvwJj/iVtx7fI2vMFFT9JPNDaRdp1NTP52Wsq7vty2FqXtLdj +SC98oqKlw8P+X+T+hUTlqZSMUVFFrmKkgfTh/J5A2k8qLpuJO3iGtFWU8vEY +IRp6hmjMCZNuXVmdx1hGwzRZm5lGsl7s87c3j4vSsHey58BR0h5PE8V3y9Jw +KLRv6B1Zf/9QZ/LM19LQ/Ifo7HGyPqeJ5OY5PRryS2stpZKO3Lh2lGtEwyqv +pdcryXo/ecDLRMWMhhoH+kO+kHm40vCkWcCBhhaa6zNlyPxQXX1GK7fRcNG3 +XyuukvnKH/krHuZOQ2ajyEoF0sVSxh6D3jTc9EClTYzMZ6Nv9mhDBA31l9Bt +OxsI2DTPlDgaRcOZ7Gl/U9LtyV0mRjE0bEp9o5JD5r+3Qjgm/wwNWVVygZ4P +yXwuD5c4mUnDBHXTw6U15H7kiNI512nYU05LFSD90+iWx3QBDTdeXudg+4Cs +j10D+T7FNDzf87bhZRXZ30s20q3qaVjhrpRdR/azrPWDHn+aaJjycFxospzM +S290TFkrDVeHqymqkNYRIFo0XpL/87zbI6KUzL+z0o4lQzTsK6iwnSX7Y9DP +iZhmEWWMcEmW20H2V9aBfdKfJZQxLG2J5Xqy/y4d7isUlFXGsaP6OVo3CSh4 +3dBtpqKMKQn75z8VEDBQc1G71EQZTQWSggyvE7D1JLPnuqcyWv6CIvl0sj7/ +3A2u3Uu+XzTlfdNFsl9EqAj2+yuje+3WvfsvEJDgt1xXNlwZjzI0PEtTCKjb +3B93LkEZo1b0e0glkfNA4oReFFcZbfsz+DXJecWXON2YUaaMIafO8V8+Rq63 +YIB7WRX5fN3V4CXRBAROO56ceET+r5JVSu8Rcj971F779imjCWsZy4mcf9LZ +zaecBVXw+0L83Sxyns6tFRvQ2aaCT6urNTOtCZjJkj9h6K6C3z54pd/cQMDU +SnU1pifpB0NPuZbk/k0yA9b7q2Dg/k+XKoGcf1XeM+7RKjjqFNdaQCfzu7lc +NKFABQ0PDrh+1CDrLXAXfJhWwZVeid9FBcn8F97JuXRJFVdMLF4Tx+PBa1ph +9oarqth6MT73TzEPIi/dujaVrYoN3uOlh+7yoPzEjUzHW6qYKvWG2HOTBwau +ORmi1arId0+KoUieb1YLXUg+9V4VpRPCGyhneCDtGRUToa2Gp1dpLwTt5MGE +hI3X9no1zLbUdz/9lwsfk7y2hy7RQLUAJY6vHBc2fT+06ZOJJi4NSege0CyB +Ee+lYfeOa2HWF+nay3JF5PlcRuB0/WosVKnemNxRCBJPNc6VfF+D/Btr48fz +boFiQrG9iYk2LtvmNJC14T/IWMsUW+Wrg2HDKc7VMgXwRN7ceDJFF42YRvNe +i/KApVifrNeth1J7DbyT3+SAqGBu+O7YdbjFI6Z35UgWUE5Q2W4a+ngu6mOo +luQVEFbfUeb4WB9jPVWKLl+9BLocueJDOw2Q3eBWVXMjDUIHJBps+AzR+Vrk +PYOHyfB9MmnbpgxDfP6m6VfBnSSw1mu6sknHCI8vN/ptEJ4ANZOmv2fbjXA6 +cc8nTnA8hGgb9HX4GKNRL2ftec0TwBnb2+UmbILTY5JVjHVHYYOa7BaRXBM8 +b3/fRcTuEGjF/Hu4nk7H4Znrdu30MKg2LRCyZdFxT8CbsWjNMLCfrU19yaaj +zvI7OkyZMDgcMn1nyJyOu8fHQ17MhELzDq/3orZ09Fub7HK+LBT8mCY2Hl50 +XBSOMTqMULj1473CVAIdg5M8d3ZYHoA1Psxa9T46npETud8zEwLnVex+xb2h +46ZRx7VH+kNg6u0e4w8DdCyZ2m+7tjEEatyTCq8N0vGxxFBoY0oIONq/TZcZ +pWPrDSfbFp0QOGJ68h9hPgZezN4qKeUfDM3iHcqj6gz0VbU+HT4SCD41fvH3 +DjDw1lXt5S5q/jAWPHxoQzgDvfs/DDiL+MNhpaDA7ggGvgyCp3tn/ODfo/sd +f0Yx8JfByaeVzX5QwoqgsU8xsGW/uYZZiB/Ml8VVN1xhYNIptwsZ1b6QWnxt +6kUDA3UIb0H7ffugNqdr74QUE82ffL4Y+s0b3tkqe0bIMjEmfbxgrscb+OaC +3X7LM/Hypd8Z55u8wcJhiZ0QjYl2LC7/0HVvaOJn0eXWMFHdntuxyc0b2vZk +C5ubkff3rpBrebIH+tQCipL3MbEmXS48/P5umLr5d1avnImLmKvrfh72hM/b +rXLOVDARgoNshnd4Qs+isxsHq5g4Ei71aAI9ocpL/vKlOiYW9cY4WQh7Qqys +MWuhhYndVl5bhq7sArGEgKNP3jDRUbb3rGn9TtD2fcnnI8DCS+pFZtm0HeCt +Xih8ZQsL/+ue6AyRc4PIR7sCNOxZeEGgOCaWzw2SfSRaeY4szHnwUfTOF1eo +LjiS1OrCwrO9L85jmStIamxcubCbhdlbjfYFO7tCk8YnSa8IFhrltaU1X3CB +NVpUmkY2Cx891paWVd8OE2vSTHjjLGSISqc8i3GCnjbcsGqShSe/S0oYhzhB +XciYU/g0C41vRey57eEE53ibDpj8YmHDzKxlo4kTrGHx3akUNEXJNeRpbtQR +9mwKVm6QNsWjsqlah3c5Qpev9Youtil2pYYSGzc7wP383++nE0xxNHmdw95s +OzCxDJ+1STTFED7xDQKxdlD6fmRFzllTdJUNOlGx1w54lAG6TaophmuvOhO2 +xg7uZNSdvXbVFCvN59pWlW+BnKSTTOsiU5xzYYtNd9nCmfCVKRmdpvjee3K8 +SmUzuK9XRVMKGxlZ3mYJAhthoWupaAONjW2GEfe+DVlDjs/YaxtVNn7piHzm ++8waPp+qOOSuxcb5C+zcW5nWENqytfiIARsfZDUfc2BYw792Ryn3rdgoIue1 +mxZuBZWuL+eN9rPR60HupN7Cetj5tfJJ9QE2VpSWmJ34vB74InMy1oezMSDa +oHzo2Xqwuhpo5HyEjYeo4p/mctfDi37+oLA4NvI5n9FQtVkPw3t0X3PT2chf +Mzgfk2kJCsGnK3Tr2Gg2PBs+bG8B5/7uM06sZ6PGxxf+RmYWIJBqxf3SyMbX +LKey82stYLhM6FZOCxvDdAUokYstoJIvPkOik43qFY45ig/Mwf1CzKGZT2xU +pdTZJ+mYQ0bVEeOa5RwcvGYK5fIIK+zcuPKiHMzf/uai+DKEmHcMnUNiHJwP +HNKY/QHgJ/RTbZ0UB3XeX8qeLwGgb42QzKVw0KrtekukLkD3h9DJk/ocpKcY +luromYHUsiDuFhcO8lMS5Gqt2JBvGR057sbBLyWzK2vU2WAQfc4ybQcHS47c +0ni3iA124yUve3Zz0EW0c93ZBlM41T095x3EQSe/V8qnLUzhZ+5xi8gTHDxg +Ky0zYMWCPtO0zhuFHJQ8zRfF8mOA38H8zE1FHEzOafD13MyAmaJSn5ESDmpe +eRifp8sACZWeWf0yDv652v8qYZoOm5cqKT6o46A+7W1uYzwdqrtu7O18ycHG +N66KX26agI3ofZ2IHg6K16w2nThrAj3WLTOyrznIfVhaJhtmAlOV3xJ2veNg +vaezYy3HBHSur7v7dZj8fr2IkF+XMVT3mUckjXLQjRfxw63SGGwknUBvnINZ +0pkefjnGsO/0wY7waQ7y9W816Asyhqm6U1dkfnKwuLPEj+NkDLG/0r0rf3Fw +yDbsTjXTGMSMbmnvXODgSlnmBxeaMVwLrpz++5eD985UjokuMYb/AXOgzJc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.07740074554649135}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8074,6 +9153,7 @@ U0FU/w== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8101,7 +9181,8 @@ U0FU/w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07740074554649135}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8109,8 +9190,9 @@ U0FU/w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913236646248627`*^9}, - CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] + CellChangeTimes->{3.9913236646248627`*^9, 3.9938512910770817`*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"233f1e18-8401-4876-9bda-82f4a2a4005e"] }, Open ]], Cell[CellGroupData[{ @@ -8162,65 +9244,74 @@ Cell[BoxData[ FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", - CellLabel->"In[90]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], + CellLabel-> + "In[109]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 90, - 21, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323664732767*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.478429733952664`*^-146\\\", \ +RowBox[{\\\"692388265304082962155241704502\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"104\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"160000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 109, 17, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.993851291197256*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +In[109]:=",ExpressionUUID->"6f5bbbfc-7c37-4dda-b820-b1feb4953be3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 22, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132366476486*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8512847487015097`*^-148\\\", \ +RowBox[{\\\"257637673519649270217965438245\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"360000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 109, 18, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.993851291206232*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +In[109]:=",ExpressionUUID->"46dc54da-73b1-484a-8f7e-fb81630002b7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 23, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236647877655`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0871031763884583`*^-150\\\", \ +RowBox[{\\\"990359217009531794717859144615\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"111\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"840000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 109, 19, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.993851291214839*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +In[109]:=",ExpressionUUID->"980cdd6c-e6f9-4d13-8746-929d70d33379"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 90, 24, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236648078594`*^9}, +during this calculation.\"", 2, 109, 20, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.9938512912218313`*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +In[109]:=",ExpressionUUID->"ac2643cd-d890-4a8d-a948-33c4ed2500ab"], -Cell[BoxData["11.275343508420768`"], "Output", - CellChangeTimes->{3.9913236764669056`*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[BoxData["9.818446706029368`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.993851346600954*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"b7750efd-4415-4c17-a737-5e1107da72b3"] }, Open ]], Cell[CellGroupData[{ @@ -8287,67 +9378,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917996753598194`*^9, - 3.991799698091812*^9}},ExpressionUUID->"18d0289f-01fd-a740-8fac-\ -540622282b2c"], + CellChangeTimes->{{3.9917996753598194`*^9, 3.991799698091812*^9}}, + CellLabel-> + "In[110]:=",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 25, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765399036`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.667772584347319`*^-213\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 110, 21, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993851346652666*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +In[110]:=",ExpressionUUID->"db229b02-6238-46e6-998b-f817bb8c6b93"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 26, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765679016`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.295289294666224`*^-218\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 110, 22, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993851346658483*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +In[110]:=",ExpressionUUID->"883ca953-6112-40cb-9203-9a1e648f4bf9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 27, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323676587904*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1286653004210207`*^-223\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 110, 23, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993851346665835*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +In[110]:=",ExpressionUUID->"6cb2e090-d621-4222-b57b-2f0fd2a375a7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 91, 28, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236766039066`*^9}, +during this calculation.\"", 2, 110, 24, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993851346672203*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +In[110]:=",ExpressionUUID->"a8d3cc56-ba9f-40ac-9259-5f5d75a8e8fc"], -Cell[BoxData["0.5376063675902706`"], "Output", - CellChangeTimes->{3.9913236883162384`*^9}, - CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[BoxData["0.0647915752063677`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.993851353091399*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"afe44931-e120-49b0-a331-488134d2fca2"] }, Open ]], Cell[CellGroupData[{ @@ -8368,8 +9467,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8414,67 +9512,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997261183853`*^9, - 3.991799730012718*^9}},ExpressionUUID->"33f25e29-8e2f-5249-9603-\ -4bb381db84df"], + CellChangeTimes->{{3.9917997261183853`*^9, 3.991799730012718*^9}}, + CellLabel-> + "In[111]:=",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 29, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132368839011*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.667772584347319`*^-213\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 111, 25, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.993851353124647*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +In[111]:=",ExpressionUUID->"85e49407-8e8e-4da4-8579-bd683cea1de4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 30, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884141064`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.295289294666224`*^-218\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 111, 26, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.993851353132144*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +In[111]:=",ExpressionUUID->"cc0b260d-e116-4475-80d0-6c25a3e702d5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 31, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323688443001*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1286653004210207`*^-223\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 111, 27, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.9938513531386633`*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +In[111]:=",ExpressionUUID->"6822039b-be3e-44d2-aeb1-92348e3938bd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 92, 32, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884570007`*^9}, +during this calculation.\"", 2, 111, 28, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.993851353144784*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +In[111]:=",ExpressionUUID->"9dd3e765-aa35-49cb-8c6f-540415b21c3d"], -Cell[BoxData["10.498798062085507`"], "Output", - CellChangeTimes->{3.9913236988049507`*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[BoxData["21.146214830893317`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.9938513592997417`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"b0567982-7f8b-4cdf-8a4b-add5b14220fa"] }, Open ]], Cell[CellGroupData[{ @@ -8495,8 +9601,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8541,67 +9646,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997336698074`*^9, - 3.9917997367747993`*^9}},ExpressionUUID->"88e14da9-8532-e842-b722-\ -1b0781de8eeb"], + CellChangeTimes->{{3.9917997336698074`*^9, 3.9917997367747993`*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 33, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698915848*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.667772584347319`*^-213\\\", \ +RowBox[{\\\"665717749437497189208769764374\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"35\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9706282409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 112, 29, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993851359340742*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +In[112]:=",ExpressionUUID->"dab10240-d33a-44d4-a4d2-ad17dda6ae8d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 34, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698943981*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.295289294666224`*^-218\\\", \ +RowBox[{\\\"111907153680443277505994197391\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"260731183104000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 112, 30, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993851359348937*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +In[112]:=",ExpressionUUID->"dfc50201-21b6-485c-a38c-5bf4b86c28a2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 35, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698971981*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1286653004210207`*^-223\\\", \ +RowBox[{\\\"197404219092301941520573764198\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"929806995456000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 112, 31, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993851359356873*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +In[112]:=",ExpressionUUID->"8aec9205-88de-4b9d-a64f-371c9198930e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 93, 36, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698986994*^9}, +during this calculation.\"", 2, 112, 32, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993851359365225*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +In[112]:=",ExpressionUUID->"8d346fdf-b2b0-4408-8568-3645590be30f"], -Cell[BoxData["18.521732102530788`"], "Output", - CellChangeTimes->{3.991323706795576*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[BoxData["3.6343154990566986`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.9938513631460733`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cbb2fdd7-0c67-4dfc-9e51-613418d01ced"] }, Open ]], Cell[CellGroupData[{ @@ -8610,21 +9723,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991799742384985*^9, - 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ -e5f89f4ec38f"], + CellChangeTimes->{{3.991799742384985*^9, 3.9917997459840527`*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[BoxData["0.038552612544494616`"], "Output", - CellChangeTimes->{3.991323706858589*^9}, - CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[BoxData["0.007390790731099696`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.9938513631846848`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"85472415-17d8-4a32-a5c1-00cfb1b7f14e"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9}, - 3.9919243164025135`*^9},ExpressionUUID->"c771f2bd-f081-e54a-b4e5-\ -bf0dbc996ac3"], + 3.9919243164025135`*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ @@ -8646,11 +9761,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + CellLabel-> + "In[115]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.991323706886154*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[BoxData["17.496450714495822`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.993851363200539*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"830c4460-484e-4d0c-824c-a1b6a5baf4a0"] }, Open ]], Cell[CellGroupData[{ @@ -8659,11 +9776,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + CellLabel-> + "In[116]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.9913237069236546`*^9}, - CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[BoxData["0.5257849970519695`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.993851363208529*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"c8980ba0-c564-437a-882a-c42fe61eaccd"] }, Open ]], Cell[CellGroupData[{ @@ -8673,12 +9792,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + "In[117]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913237069753113`*^9}, +Cell[BoxData["9.199371287341116`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.993851363216387*^9}, CellLabel-> - "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] + "Out[117]=",ExpressionUUID->"736e1c38-34ae-4e81-b2ba-3ce2d5bb49d9"] }, Open ]], Cell[CellGroupData[{ @@ -8868,12 +9987,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + "In[118]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[BoxData["0.02467166981689615`"], "Output", - CellChangeTimes->{3.991323707000412*^9}, +Cell[BoxData["0.01060913068438898`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.993851363229567*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] + "Out[118]=",ExpressionUUID->"68c846e1-553b-49a0-a3ba-aa1d454dd055"] }, Open ]], Cell[CellGroupData[{ @@ -8887,12 +10006,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + "In[119]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[BoxData["5.642163519289108`"], "Output", - CellChangeTimes->{3.991323707203314*^9}, +Cell[BoxData["8.604091913763606`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.99385136334173*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] + "Out[119]=",ExpressionUUID->"620025c8-175d-4bfa-8ea2-e73aa2d8f2ec"] }, Open ]], Cell[CellGroupData[{ @@ -9084,12 +10203,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + "In[120]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[BoxData["0.012834083028601704`"], "Output", - CellChangeTimes->{3.9913237072224197`*^9}, +Cell[BoxData["0.07901006714600324`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.993851363356987*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] + "Out[120]=",ExpressionUUID->"ec80de55-fa31-4bed-8b6c-a29466dc93d2"] }, Open ]], Cell[CellGroupData[{ @@ -9103,12 +10222,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + "In[121]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[BoxData["7.82280524717004`"], "Output", - CellChangeTimes->{3.991323707432623*^9}, +Cell[BoxData["3.1528530200401774`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.993851363454802*^9}, CellLabel-> - "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] + "Out[121]=",ExpressionUUID->"6dd9775a-e665-4687-a329-90b93fb0dc57"] }, Open ]], Cell[CellGroupData[{ @@ -9201,12 +10320,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + "In[122]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913237074497375`*^9}, +Cell[BoxData["0.16778085836042492`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.993851363465117*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] + "Out[122]=",ExpressionUUID->"3572d612-4b7a-4b2d-986a-883ac51fd525"] }, Open ]], Cell[CellGroupData[{ @@ -9296,12 +10415,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + "In[123]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991323707467621*^9}, +Cell[BoxData["0.832219141639575`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.9938513634748173`*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] + "Out[123]=",ExpressionUUID->"1422074a-13cc-435f-8d40-34be5dea6350"] }, Open ]], Cell[CellGroupData[{ @@ -9424,12 +10543,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + "In[124]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991323707488617*^9}, +Cell[BoxData["0.13963044192826393`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.993851363484786*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] + "Out[124]=",ExpressionUUID->"d8ec8bdd-4662-411d-81fe-441807f87b0a"] }, Open ]], Cell[CellGroupData[{ @@ -9444,7 +10563,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -9466,8 +10587,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9491,68 +10611,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799766323864*^9},ExpressionUUID->"ee2d2671-1677-5943-bf7a-\ -6ffa36275fe8"], + CellChangeTimes->{3.991799766323864*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 109, 37, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075117207`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.972671355976386`*^-199\\\", \ +RowBox[{\\\"302788506336550585827101492333\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"56\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"040868761600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 33, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993851363498893*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +In[125]:=",ExpressionUUID->"ed6cbe47-34e4-4cee-95e7-d417a45b96c9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 38, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323707545618*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.4417130170892036`*^-203\\\", \ +RowBox[{\\\"668859810497440244092067196564\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"279094374400000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 34, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993851363505595*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +In[125]:=",ExpressionUUID->"3c2f0abf-588d-4658-9332-6f31cd9c85a8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 39, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075757256`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1987670943769683`*^-207\\\", \ +RowBox[{\\\"154105300338610232238812282088\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"63\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"033438617600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 35, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.9938513635134783`*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +In[125]:=",ExpressionUUID->"aad7c81a-0042-4f12-bcce-6368236a67f8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 109, 40, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075926247`*^9}, +during this calculation.\"", 2, 125, 36, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993851363519948*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +In[125]:=",ExpressionUUID->"5d7b1dba-9144-4326-9e5b-e8fe81b08e40"], -Cell[BoxData["5.642163519289105`"], "Output", - CellChangeTimes->{3.9913237161181736`*^9}, +Cell[BoxData["8.604091913763611`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.9938513674652567`*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] + "Out[125]=",ExpressionUUID->"1a3f5d4c-0e3b-4d05-bd9a-d9a299e3e87f"] }, Open ]], Cell[CellGroupData[{ @@ -9567,7 +10694,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -9589,8 +10718,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9614,68 +10742,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917997699328365`*^9},ExpressionUUID->"b0b1035a-0fdf-b146-a71f-\ -1ab9142a9a90"], + CellChangeTimes->{3.9917997699328365`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 110, 41, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237161871567`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.972671355976386`*^-199\\\", \ +RowBox[{\\\"302788506336550585827101492333\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"56\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"040868761600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 37, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.9938513675100613`*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +In[126]:=",ExpressionUUID->"9571e0c8-33d3-4031-a4f8-73eb8052315e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 42, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162070637`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.4417130170892036`*^-203\\\", \ +RowBox[{\\\"668859810497440244092067196564\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"279094374400000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 38, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993851367518681*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +In[126]:=",ExpressionUUID->"5af6330d-10a4-4485-87a5-8a98ffcf5fd0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 43, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323716227171*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1987670943769683`*^-207\\\", \ +RowBox[{\\\"154105300338610232238812282088\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"63\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"033438617600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 39, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.9938513675272503`*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +In[126]:=",ExpressionUUID->"5f1e65b7-ad0d-4735-8b94-4c627e29cf25"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 110, 44, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162481613`*^9}, +during this calculation.\"", 2, 126, 40, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993851367535597*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +In[126]:=",ExpressionUUID->"eb328550-0b83-44aa-a188-982971628863"], -Cell[BoxData["7.822805247170038`"], "Output", - CellChangeTimes->{3.991323724852854*^9}, +Cell[BoxData["3.1528530200401756`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.993851371405119*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] + "Out[126]=",ExpressionUUID->"56004ea5-9cfe-4e63-8c3a-7096c669259a"] }, Open ]], Cell[CellGroupData[{ @@ -9733,95 +10868,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917997843341885`*^9},ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-\ -ff25938e6592"], + CellChangeTimes->{3.9917997843341885`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0Fe8fB3ARLajsRYSLvpLiWkLyfLJkFyo7cd0ZkpTlK1u0IZUtlH4l +FJI1bbLkW6FVESpadMWdLNkZbfJ7/DFnzus8Z97zfj5znlFgHXQkeHl4eAbw +tXAPfr1pfXXba6Pjjf5Jp9ppZDRaoMMyLUO2W0J0F8zJ1c1UMq1HmlaZ2xKx +7dmvBIS0mlGreuuVeOyqiLhGftMW9E6b4XYCO+nJ6odxJW+QUEfawaPYNW3B +V/4w3yKznNVfYrCHPryIiazrQiGWdcUR2NJchjtt8gmlVES2hGJbj8Xoh7Z8 +QSVNu62CsBv+DAlGlPSi/gJbRX/sd8ekou8F9aGwJGK3D/aogOnQNJOLLrzK +4bhiC5w95Ko1S6EbI7NPHLDlRHKeBdcNIP7Ef5dYYtvJ0EWjJt/Rcfh6Xgeb +zFOUVF86ikrgLXcDdpzyzvj9LWNIP2oqZR12l1SnZljJBFJorh0TwGa7BezL +ODuJehr8r/98Q6Pxyzz5t4KmUNtj65ph7KWK6qsmmDPIXrl++BV2JrvRfJUE +jY6H7RRqwJa/7hq3eZZGUpWMxHJsvY0JowfqfqA65uUzp7H9db+0DJn8QZWP +NNsMsacj/l28XGUOlbdvblyPfbRO0FB16V/k+ujsKlHsbNAr9WuZR2LXwmr7 +23C/wmemISWLgMg5Yn0cu+RJBueYDC/0dE+K+GOPf/OKST/LCwqMEaYtdsyG +mds3g/iglp1wUgI7s1KBMcbkh5/pg+SVVhp9aPve8PcaP8gbKvHGYctPVrut +kBCABjfRH17YZdp259RnBeB3tuL0WuymmqhFgXVL4dODV+rpr2k009jxZcBE +CHQNU8vdXtFI1EZoVXSDEMx9Sjmgjq3RaQrC+sIQGd6+f76FRgH9d/M0N60A +2Uf2jHzsQ7wtGtuEVsHmlz5xH1/SiKtYMRFPi0BkrSqt9gLPh3yxrFVLFCij +t7mTz2nEW0oprA4WBc/n8afuY8trrXMsGRYFOceNUsbYbiZpt15zxODwFQk1 +m2c0avUNCZV6KQHMIDkDwyc06rmecsZ7qSSs4L79QDfT6PtwybUbZpKwX/ho +3U3s5WF9HVsfSkLV8IihIrbpyd3a3nelQPMNn/GfRhrVFujOFOeugYFVFuyz +j2hUwP0VbhAmCxvzis/I1tPIYk9iT2i5LESedjv2pA7nN4ntKKdkoSOx9E0Q +tnbBRgl5VznQqAg+/qAWz5PldZvfaB1sDUhQ2VVDo8kxzuGBE/LgLPrr1N57 +NBI7YHrntq0i/P5v0GiukkZUwXJ/+wBF8NtqVJ6Off9Tm8xIgiJkthVFKGN7 +2HieUHmoCOVIcL11Be6nFu54kcmAxx2n+lPK8PuHro/HSilBV8avmdliGu32 +E1S36lUGtUEtSYd8GqHwPUznOWU4RGS968ij0Yb43C3sNSoAjtpze7B5rmkZ +xzqoQN346SMuuTQq73F3vvVIBWaiTG2dcvD5dCo7Jn11Pcg6JBvpXMT9TG3f +DbFU4cw5PZljaTSSUUyNO9O/EVT6VEqdjtCo/vS06k9edVDpHpkujMH9p1w7 +SQV1+HugO306mkZXmpRUjb3UgeNd15waRSNFv9r2H+/VoWj/nzUNh3G/Mq4y ++XIT9GiGXvgVTCNZGTlS3lUDOEKy/NMEjTYWhgn9RkywezgvPGlNIxb7xIy6 +HRM6N4kvUcHOZpzr8fZgAkeYN9TVikZ8VytvPolgQv4lvoIGC3w+rgztPlfF +BF94G3TcDP//sr1zVBla4CZ49/mYEf4eZ2w2uQhoQ2opt5ilSaP8ECX7uy06 +MJ2tOVMlTqO2cLTlZKE+hMQ6dWS3ziAFr7d2noHbYNHhh/nmJ2YQMX+vQjYS +gDOSbuqkM4Okhu8vkWIZg/jR2H2sD9MoTMvw07kNpuCfMSVlf3QasUb+PBMb +MoP81tmuecY0KjcOXZLbag5L/zFxh/opVDAd8Kgs0xJmVRUnKZcp9GP76ldN +cdbQ3jNr5jg8iT7z8E30+tgCqKomlcZOoqC1B9OOMXbC2b/5/aJrJlHFvmcP +s+Lt4ZvTLMu8dAJFTa2ZVdvnACF2FnENZhNoxmqH09O9juB0X6NrV/c40ndP +38512AW1GcbDfMHjqH1NTkCT1m7grex0nRcZR9JFJ+qL/9kDzNHDT266j6H7 +nA02dsJOQPa9EcotGkVyneN+4SNOcEmi9JTc7xGklZVedo3jDApK/Xs1LEZQ +zuKpTecaXSCgQ/g/jeLv6N72zR/ia1wh0LU75Brvd5S95bTInxI3kP/H03ub +/zBq/ViYoHXWHYQPf+G9+GUI3bW9rHToqAdoerzNiN81hCYO7OIJYntCZlXG +LNE1iGZ2qPqPmngBQzQyqZscRMUj3T9CdfeCenzCj8tTA8glv9DXU8gbn8cV +nxJTB9DtW9Z7+RK9oXqbnLSo2gDSl2n/mfTTG+694FbXdX5DDI7fhzf7fEBD +KEueL/Eb6hfcv/Nynw9o9a5f5mXwDbWl2Pma72HBA/GVquM/KZQZkSv4bxsL +nOfu7G6qo1B9w/xPX0tfsP5cEOidQKGVHpCoVesLJZ+CB3e5U0he/Gnr2npf +2LnWKPq6G4U0WmxXCzT4gu5weMJvVwo5Grrf6HrkC9r8MssKXXD+2vCXR577 +QhlxvWFuD4WkP5eufNblC/5ZpVSzPYWUvKSyPWZ9wUD16bKqHRTS9x4tjtdm +g+K+orwJLQoVXRwPtdNlw2eO9/tAbPGOSSMpPTYUGP8IH2BSaNRstrN4Kxts +/705ztGk8P+GZ1GLMRsGhgZfvdtMoRWzIq6iDmxINby28Z0ahfqTdZblHmBD ++qMaNkOJQg5Pt3T6HWSDY9SLm6UMCjXwGORqBLPh7xJHQhv7YqiRzuMwNqyP +qVlirkghO1dzH2407mecpRksT6EaJdcatdNs2DDYJ9m9lkIpdTH77hex4U9O +hNisBIUOMC/oRxSz4cbg0aMp2DY3qpbplbBhZCzLQQV7+QXqRnU5G45/+rjO +WZxC8SH2Q/fusCErITXwgSiFYlSV9t99zAYdKe+myyspFHDhZeCtHjaMCgR5 +FC2jkOUKyjCEw4ZGCYMdVtj/xPMIM7+y4VR9U8boUgpRITrlVVw2HCoWctPD +9rHLHbn5nQ0rXdZntAlQyIU/NKjyFxs+Vp+7K7aYQuah0ofKJAnY0S1S1v+X +ix7nJlidW03ABk8DqxRsw5ZJpQhpAvIqojz1sDWUX3abyBFQnKTXlzzHRWve +R5t8VCYgOpG13+gPFw0bfJZcrkOAY61Z4N2fXJTKm/fAbxcBWleL1/2e5qLl +m4WybfcQsFhX2uM29kn3iBAtZwJKDrgIB2JH3LFfP+9GwCpT5uueKS7yIRel +n2cRMFci//z5JBdpvWCxm4MJCNu/9urdcS56n64syEgj4ITf1/b+71xUgYT9 +B9IJSLpuGlaJfXJkuqk8g4DhC0rRUdhMy6ZYvQsEKM4714hgp/D4TtpeISC4 +gpw1HeaiHQfzuiPKCOh0/RXRMMhFsrKndI0qCGhqPh+cij394mAG300CZKlL +rd7YV1WQbcptAvy9P9Ytxp77/PnhtVoCPmYJ73EY4KI7NjLFr58R8DbUIGmO +4qIzv3j5M18QkD3c+b4Tm1U85OPaQoBTbfOZMuxVi2tl+lsJ0FUoYnhiB9a5 +pP58R4DxMjOxRi4XMTacD1fiEnA1WWYiv5+Lfr0/0jFIEfCQzs+Mw26LJzQq +B/A8fwfleGLH9moP6X8nIH5Hd4809ofsDs+dUwSUhr2T/18fF51bImIWtYiE +qsT7eaVfuah+8rN7GB8JSyp1PM5if/tcEhLET0K10busA9iGd0zzWMtIOJ9y +5IQmNuUd8dtKhISVlywt/uvF/W3MRM3ESNiY8WT6GvbWLaKqSIKEBtu965Kw +04TLnLTWkHAjnjO6e2G99kuVjAIJHIvlhyc5XEQWlj2TYJBQHGcr/hE7LS3y +y0plEgI/Fm5uwqZIMeHFqiTQizI4FxbWxcz9v2uQMDZhpWaGXftXLI5ikiAl +w6jRxOYOcrI42iQ87lzeLIdt8DCqsVOPBPFYAedfX7ioP7BC7gGQUK9xxbca +e4VLtE61MQnNFl97r2Prm1jYVJmSIENq9mRjp6z5GlloQYJA7ah9DPb9xZVp +uVYkZM+7Pw3C7huLvn7RhoSj/u11Pth6TyTeJtuT8HesS84Sm1X1dTjRkYRW +I//kbdjJlyt5j+8mwVlkPpKJ/TXEUiPchYRXrdtfyWILe0maH3LD8xQe0RJf +yLPs8wzwwPsLvrJacOH5dUfOeHmTEH5E1ONXD+6z3OqqC4uE5OzO2knsrzOS +NY5sEk7/d+nCMLZwb1+rDUmC6T2/yX5svZab1A5/EtJM9V72YLOqj8xBAAkx +usKK3djJV63EtwaSoORB0R0L+clSajpBJPCebrRsXciP6N+++RDOzy6Qfokt +xK5yUQ3B+2En7XuKvWVn7EFGGAk2r4N1mxbyDawTZMNJYNV5HnuEfVZ5dY5U +BAl3xG2t/sO+t4p7WySKhJSnKP0Bdu/vqheCMSS4N+s41S/kf4vt5Y8loYtv +88U6bN126x/zcSSUxai5Lfj/vusrDQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -9835,107 +10969,106 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1Hk0Fe8fB3ARLajsRYSLvpLiWkLyfLJkFyo7cd0ZkpTlK1u0IZUtlH4l +FJI1bbLkW6FVESpadMWdLNkZbfJ7/DFnzus8Z97zfj5znlFgHXQkeHl4eAbw +tXAPfr1pfXXba6Pjjf5Jp9ppZDRaoMMyLUO2W0J0F8zJ1c1UMq1HmlaZ2xKx +7dmvBIS0mlGreuuVeOyqiLhGftMW9E6b4XYCO+nJ6odxJW+QUEfawaPYNW3B +V/4w3yKznNVfYrCHPryIiazrQiGWdcUR2NJchjtt8gmlVES2hGJbj8Xoh7Z8 +QSVNu62CsBv+DAlGlPSi/gJbRX/sd8ekou8F9aGwJGK3D/aogOnQNJOLLrzK +4bhiC5w95Ko1S6EbI7NPHLDlRHKeBdcNIP7Ef5dYYtvJ0EWjJt/Rcfh6Xgeb +zFOUVF86ikrgLXcDdpzyzvj9LWNIP2oqZR12l1SnZljJBFJorh0TwGa7BezL +ODuJehr8r/98Q6Pxyzz5t4KmUNtj65ph7KWK6qsmmDPIXrl++BV2JrvRfJUE +jY6H7RRqwJa/7hq3eZZGUpWMxHJsvY0JowfqfqA65uUzp7H9db+0DJn8QZWP +NNsMsacj/l28XGUOlbdvblyPfbRO0FB16V/k+ujsKlHsbNAr9WuZR2LXwmr7 +23C/wmemISWLgMg5Yn0cu+RJBueYDC/0dE+K+GOPf/OKST/LCwqMEaYtdsyG +mds3g/iglp1wUgI7s1KBMcbkh5/pg+SVVhp9aPve8PcaP8gbKvHGYctPVrut +kBCABjfRH17YZdp259RnBeB3tuL0WuymmqhFgXVL4dODV+rpr2k009jxZcBE +CHQNU8vdXtFI1EZoVXSDEMx9Sjmgjq3RaQrC+sIQGd6+f76FRgH9d/M0N60A +2Uf2jHzsQ7wtGtuEVsHmlz5xH1/SiKtYMRFPi0BkrSqt9gLPh3yxrFVLFCij +t7mTz2nEW0oprA4WBc/n8afuY8trrXMsGRYFOceNUsbYbiZpt15zxODwFQk1 +m2c0avUNCZV6KQHMIDkDwyc06rmecsZ7qSSs4L79QDfT6PtwybUbZpKwX/ho +3U3s5WF9HVsfSkLV8IihIrbpyd3a3nelQPMNn/GfRhrVFujOFOeugYFVFuyz +j2hUwP0VbhAmCxvzis/I1tPIYk9iT2i5LESedjv2pA7nN4ntKKdkoSOx9E0Q +tnbBRgl5VznQqAg+/qAWz5PldZvfaB1sDUhQ2VVDo8kxzuGBE/LgLPrr1N57 +NBI7YHrntq0i/P5v0GiukkZUwXJ/+wBF8NtqVJ6Off9Tm8xIgiJkthVFKGN7 +2HieUHmoCOVIcL11Be6nFu54kcmAxx2n+lPK8PuHro/HSilBV8avmdliGu32 +E1S36lUGtUEtSYd8GqHwPUznOWU4RGS968ij0Yb43C3sNSoAjtpze7B5rmkZ +xzqoQN346SMuuTQq73F3vvVIBWaiTG2dcvD5dCo7Jn11Pcg6JBvpXMT9TG3f +DbFU4cw5PZljaTSSUUyNO9O/EVT6VEqdjtCo/vS06k9edVDpHpkujMH9p1w7 +SQV1+HugO306mkZXmpRUjb3UgeNd15waRSNFv9r2H+/VoWj/nzUNh3G/Mq4y ++XIT9GiGXvgVTCNZGTlS3lUDOEKy/NMEjTYWhgn9RkywezgvPGlNIxb7xIy6 +HRM6N4kvUcHOZpzr8fZgAkeYN9TVikZ8VytvPolgQv4lvoIGC3w+rgztPlfF +BF94G3TcDP//sr1zVBla4CZ49/mYEf4eZ2w2uQhoQ2opt5ilSaP8ECX7uy06 +MJ2tOVMlTqO2cLTlZKE+hMQ6dWS3ziAFr7d2noHbYNHhh/nmJ2YQMX+vQjYS +gDOSbuqkM4Okhu8vkWIZg/jR2H2sD9MoTMvw07kNpuCfMSVlf3QasUb+PBMb +MoP81tmuecY0KjcOXZLbag5L/zFxh/opVDAd8Kgs0xJmVRUnKZcp9GP76ldN +cdbQ3jNr5jg8iT7z8E30+tgCqKomlcZOoqC1B9OOMXbC2b/5/aJrJlHFvmcP +s+Lt4ZvTLMu8dAJFTa2ZVdvnACF2FnENZhNoxmqH09O9juB0X6NrV/c40ndP +38512AW1GcbDfMHjqH1NTkCT1m7grex0nRcZR9JFJ+qL/9kDzNHDT266j6H7 +nA02dsJOQPa9EcotGkVyneN+4SNOcEmi9JTc7xGklZVedo3jDApK/Xs1LEZQ +zuKpTecaXSCgQ/g/jeLv6N72zR/ia1wh0LU75Brvd5S95bTInxI3kP/H03ub +/zBq/ViYoHXWHYQPf+G9+GUI3bW9rHToqAdoerzNiN81hCYO7OIJYntCZlXG +LNE1iGZ2qPqPmngBQzQyqZscRMUj3T9CdfeCenzCj8tTA8glv9DXU8gbn8cV +nxJTB9DtW9Z7+RK9oXqbnLSo2gDSl2n/mfTTG+694FbXdX5DDI7fhzf7fEBD +KEueL/Eb6hfcv/Nynw9o9a5f5mXwDbWl2Pma72HBA/GVquM/KZQZkSv4bxsL +nOfu7G6qo1B9w/xPX0tfsP5cEOidQKGVHpCoVesLJZ+CB3e5U0he/Gnr2npf +2LnWKPq6G4U0WmxXCzT4gu5weMJvVwo5Grrf6HrkC9r8MssKXXD+2vCXR577 +QhlxvWFuD4WkP5eufNblC/5ZpVSzPYWUvKSyPWZ9wUD16bKqHRTS9x4tjtdm +g+K+orwJLQoVXRwPtdNlw2eO9/tAbPGOSSMpPTYUGP8IH2BSaNRstrN4Kxts +/705ztGk8P+GZ1GLMRsGhgZfvdtMoRWzIq6iDmxINby28Z0ahfqTdZblHmBD ++qMaNkOJQg5Pt3T6HWSDY9SLm6UMCjXwGORqBLPh7xJHQhv7YqiRzuMwNqyP +qVlirkghO1dzH2407mecpRksT6EaJdcatdNs2DDYJ9m9lkIpdTH77hex4U9O +hNisBIUOMC/oRxSz4cbg0aMp2DY3qpbplbBhZCzLQQV7+QXqRnU5G45/+rjO +WZxC8SH2Q/fusCErITXwgSiFYlSV9t99zAYdKe+myyspFHDhZeCtHjaMCgR5 +FC2jkOUKyjCEw4ZGCYMdVtj/xPMIM7+y4VR9U8boUgpRITrlVVw2HCoWctPD +9rHLHbn5nQ0rXdZntAlQyIU/NKjyFxs+Vp+7K7aYQuah0ofKJAnY0S1S1v+X +ix7nJlidW03ABk8DqxRsw5ZJpQhpAvIqojz1sDWUX3abyBFQnKTXlzzHRWve +R5t8VCYgOpG13+gPFw0bfJZcrkOAY61Z4N2fXJTKm/fAbxcBWleL1/2e5qLl +m4WybfcQsFhX2uM29kn3iBAtZwJKDrgIB2JH3LFfP+9GwCpT5uueKS7yIRel +n2cRMFci//z5JBdpvWCxm4MJCNu/9urdcS56n64syEgj4ITf1/b+71xUgYT9 +B9IJSLpuGlaJfXJkuqk8g4DhC0rRUdhMy6ZYvQsEKM4714hgp/D4TtpeISC4 +gpw1HeaiHQfzuiPKCOh0/RXRMMhFsrKndI0qCGhqPh+cij394mAG300CZKlL +rd7YV1WQbcptAvy9P9Ytxp77/PnhtVoCPmYJ73EY4KI7NjLFr58R8DbUIGmO +4qIzv3j5M18QkD3c+b4Tm1U85OPaQoBTbfOZMuxVi2tl+lsJ0FUoYnhiB9a5 +pP58R4DxMjOxRi4XMTacD1fiEnA1WWYiv5+Lfr0/0jFIEfCQzs+Mw26LJzQq +B/A8fwfleGLH9moP6X8nIH5Hd4809ofsDs+dUwSUhr2T/18fF51bImIWtYiE +qsT7eaVfuah+8rN7GB8JSyp1PM5if/tcEhLET0K10busA9iGd0zzWMtIOJ9y +5IQmNuUd8dtKhISVlywt/uvF/W3MRM3ESNiY8WT6GvbWLaKqSIKEBtu965Kw +04TLnLTWkHAjnjO6e2G99kuVjAIJHIvlhyc5XEQWlj2TYJBQHGcr/hE7LS3y +y0plEgI/Fm5uwqZIMeHFqiTQizI4FxbWxcz9v2uQMDZhpWaGXftXLI5ikiAl +w6jRxOYOcrI42iQ87lzeLIdt8DCqsVOPBPFYAedfX7ioP7BC7gGQUK9xxbca +e4VLtE61MQnNFl97r2Prm1jYVJmSIENq9mRjp6z5GlloQYJA7ah9DPb9xZVp +uVYkZM+7Pw3C7huLvn7RhoSj/u11Pth6TyTeJtuT8HesS84Sm1X1dTjRkYRW +I//kbdjJlyt5j+8mwVlkPpKJ/TXEUiPchYRXrdtfyWILe0maH3LD8xQe0RJf +yLPs8wzwwPsLvrJacOH5dUfOeHmTEH5E1ONXD+6z3OqqC4uE5OzO2knsrzOS +NY5sEk7/d+nCMLZwb1+rDUmC6T2/yX5svZab1A5/EtJM9V72YLOqj8xBAAkx +usKK3djJV63EtwaSoORB0R0L+clSajpBJPCebrRsXciP6N+++RDOzy6Qfokt +xK5yUQ3B+2En7XuKvWVn7EFGGAk2r4N1mxbyDawTZMNJYNV5HnuEfVZ5dY5U +BAl3xG2t/sO+t4p7WySKhJSnKP0Bdu/vqheCMSS4N+s41S/kf4vt5Y8loYtv +88U6bN126x/zcSSUxai5Lfj/vusrDQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.683438945878057, + 1.4263997428463147`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.6834389458780585}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -9947,21 +11080,20 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "PlotRange" -> {{0, 180}, {0.683438945878057, 1.4263997428463147`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6834389458780585}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -9975,105 +11107,104 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1Hk0Fe8fB3ARLajsRYSLvpLiWkLyfLJkFyo7cd0ZkpTlK1u0IZUtlH4l +FJI1bbLkW6FVESpadMWdLNkZbfJ7/DFnzus8Z97zfj5znlFgHXQkeHl4eAbw +tXAPfr1pfXXba6Pjjf5Jp9ppZDRaoMMyLUO2W0J0F8zJ1c1UMq1HmlaZ2xKx +7dmvBIS0mlGreuuVeOyqiLhGftMW9E6b4XYCO+nJ6odxJW+QUEfawaPYNW3B +V/4w3yKznNVfYrCHPryIiazrQiGWdcUR2NJchjtt8gmlVES2hGJbj8Xoh7Z8 +QSVNu62CsBv+DAlGlPSi/gJbRX/sd8ekou8F9aGwJGK3D/aogOnQNJOLLrzK +4bhiC5w95Ko1S6EbI7NPHLDlRHKeBdcNIP7Ef5dYYtvJ0EWjJt/Rcfh6Xgeb +zFOUVF86ikrgLXcDdpzyzvj9LWNIP2oqZR12l1SnZljJBFJorh0TwGa7BezL +ODuJehr8r/98Q6Pxyzz5t4KmUNtj65ph7KWK6qsmmDPIXrl++BV2JrvRfJUE +jY6H7RRqwJa/7hq3eZZGUpWMxHJsvY0JowfqfqA65uUzp7H9db+0DJn8QZWP +NNsMsacj/l28XGUOlbdvblyPfbRO0FB16V/k+ujsKlHsbNAr9WuZR2LXwmr7 +23C/wmemISWLgMg5Yn0cu+RJBueYDC/0dE+K+GOPf/OKST/LCwqMEaYtdsyG +mds3g/iglp1wUgI7s1KBMcbkh5/pg+SVVhp9aPve8PcaP8gbKvHGYctPVrut +kBCABjfRH17YZdp259RnBeB3tuL0WuymmqhFgXVL4dODV+rpr2k009jxZcBE +CHQNU8vdXtFI1EZoVXSDEMx9Sjmgjq3RaQrC+sIQGd6+f76FRgH9d/M0N60A +2Uf2jHzsQ7wtGtuEVsHmlz5xH1/SiKtYMRFPi0BkrSqt9gLPh3yxrFVLFCij +t7mTz2nEW0oprA4WBc/n8afuY8trrXMsGRYFOceNUsbYbiZpt15zxODwFQk1 +m2c0avUNCZV6KQHMIDkDwyc06rmecsZ7qSSs4L79QDfT6PtwybUbZpKwX/ho +3U3s5WF9HVsfSkLV8IihIrbpyd3a3nelQPMNn/GfRhrVFujOFOeugYFVFuyz +j2hUwP0VbhAmCxvzis/I1tPIYk9iT2i5LESedjv2pA7nN4ntKKdkoSOx9E0Q +tnbBRgl5VznQqAg+/qAWz5PldZvfaB1sDUhQ2VVDo8kxzuGBE/LgLPrr1N57 +NBI7YHrntq0i/P5v0GiukkZUwXJ/+wBF8NtqVJ6Off9Tm8xIgiJkthVFKGN7 +2HieUHmoCOVIcL11Be6nFu54kcmAxx2n+lPK8PuHro/HSilBV8avmdliGu32 +E1S36lUGtUEtSYd8GqHwPUznOWU4RGS968ij0Yb43C3sNSoAjtpze7B5rmkZ +xzqoQN346SMuuTQq73F3vvVIBWaiTG2dcvD5dCo7Jn11Pcg6JBvpXMT9TG3f +DbFU4cw5PZljaTSSUUyNO9O/EVT6VEqdjtCo/vS06k9edVDpHpkujMH9p1w7 +SQV1+HugO306mkZXmpRUjb3UgeNd15waRSNFv9r2H+/VoWj/nzUNh3G/Mq4y ++XIT9GiGXvgVTCNZGTlS3lUDOEKy/NMEjTYWhgn9RkywezgvPGlNIxb7xIy6 +HRM6N4kvUcHOZpzr8fZgAkeYN9TVikZ8VytvPolgQv4lvoIGC3w+rgztPlfF +BF94G3TcDP//sr1zVBla4CZ49/mYEf4eZ2w2uQhoQ2opt5ilSaP8ECX7uy06 +MJ2tOVMlTqO2cLTlZKE+hMQ6dWS3ziAFr7d2noHbYNHhh/nmJ2YQMX+vQjYS +gDOSbuqkM4Okhu8vkWIZg/jR2H2sD9MoTMvw07kNpuCfMSVlf3QasUb+PBMb +MoP81tmuecY0KjcOXZLbag5L/zFxh/opVDAd8Kgs0xJmVRUnKZcp9GP76ldN +cdbQ3jNr5jg8iT7z8E30+tgCqKomlcZOoqC1B9OOMXbC2b/5/aJrJlHFvmcP +s+Lt4ZvTLMu8dAJFTa2ZVdvnACF2FnENZhNoxmqH09O9juB0X6NrV/c40ndP +38512AW1GcbDfMHjqH1NTkCT1m7grex0nRcZR9JFJ+qL/9kDzNHDT266j6H7 +nA02dsJOQPa9EcotGkVyneN+4SNOcEmi9JTc7xGklZVedo3jDApK/Xs1LEZQ +zuKpTecaXSCgQ/g/jeLv6N72zR/ia1wh0LU75Brvd5S95bTInxI3kP/H03ub +/zBq/ViYoHXWHYQPf+G9+GUI3bW9rHToqAdoerzNiN81hCYO7OIJYntCZlXG +LNE1iGZ2qPqPmngBQzQyqZscRMUj3T9CdfeCenzCj8tTA8glv9DXU8gbn8cV +nxJTB9DtW9Z7+RK9oXqbnLSo2gDSl2n/mfTTG+694FbXdX5DDI7fhzf7fEBD +KEueL/Eb6hfcv/Nynw9o9a5f5mXwDbWl2Pma72HBA/GVquM/KZQZkSv4bxsL +nOfu7G6qo1B9w/xPX0tfsP5cEOidQKGVHpCoVesLJZ+CB3e5U0he/Gnr2npf +2LnWKPq6G4U0WmxXCzT4gu5weMJvVwo5Grrf6HrkC9r8MssKXXD+2vCXR577 +QhlxvWFuD4WkP5eufNblC/5ZpVSzPYWUvKSyPWZ9wUD16bKqHRTS9x4tjtdm +g+K+orwJLQoVXRwPtdNlw2eO9/tAbPGOSSMpPTYUGP8IH2BSaNRstrN4Kxts +/705ztGk8P+GZ1GLMRsGhgZfvdtMoRWzIq6iDmxINby28Z0ahfqTdZblHmBD ++qMaNkOJQg5Pt3T6HWSDY9SLm6UMCjXwGORqBLPh7xJHQhv7YqiRzuMwNqyP +qVlirkghO1dzH2407mecpRksT6EaJdcatdNs2DDYJ9m9lkIpdTH77hex4U9O +hNisBIUOMC/oRxSz4cbg0aMp2DY3qpbplbBhZCzLQQV7+QXqRnU5G45/+rjO +WZxC8SH2Q/fusCErITXwgSiFYlSV9t99zAYdKe+myyspFHDhZeCtHjaMCgR5 +FC2jkOUKyjCEw4ZGCYMdVtj/xPMIM7+y4VR9U8boUgpRITrlVVw2HCoWctPD +9rHLHbn5nQ0rXdZntAlQyIU/NKjyFxs+Vp+7K7aYQuah0ofKJAnY0S1S1v+X +ix7nJlidW03ABk8DqxRsw5ZJpQhpAvIqojz1sDWUX3abyBFQnKTXlzzHRWve +R5t8VCYgOpG13+gPFw0bfJZcrkOAY61Z4N2fXJTKm/fAbxcBWleL1/2e5qLl +m4WybfcQsFhX2uM29kn3iBAtZwJKDrgIB2JH3LFfP+9GwCpT5uueKS7yIRel +n2cRMFci//z5JBdpvWCxm4MJCNu/9urdcS56n64syEgj4ITf1/b+71xUgYT9 +B9IJSLpuGlaJfXJkuqk8g4DhC0rRUdhMy6ZYvQsEKM4714hgp/D4TtpeISC4 +gpw1HeaiHQfzuiPKCOh0/RXRMMhFsrKndI0qCGhqPh+cij394mAG300CZKlL +rd7YV1WQbcptAvy9P9Ytxp77/PnhtVoCPmYJ73EY4KI7NjLFr58R8DbUIGmO +4qIzv3j5M18QkD3c+b4Tm1U85OPaQoBTbfOZMuxVi2tl+lsJ0FUoYnhiB9a5 +pP58R4DxMjOxRi4XMTacD1fiEnA1WWYiv5+Lfr0/0jFIEfCQzs+Mw26LJzQq +B/A8fwfleGLH9moP6X8nIH5Hd4809ofsDs+dUwSUhr2T/18fF51bImIWtYiE +qsT7eaVfuah+8rN7GB8JSyp1PM5if/tcEhLET0K10busA9iGd0zzWMtIOJ9y +5IQmNuUd8dtKhISVlywt/uvF/W3MRM3ESNiY8WT6GvbWLaKqSIKEBtu965Kw +04TLnLTWkHAjnjO6e2G99kuVjAIJHIvlhyc5XEQWlj2TYJBQHGcr/hE7LS3y +y0plEgI/Fm5uwqZIMeHFqiTQizI4FxbWxcz9v2uQMDZhpWaGXftXLI5ikiAl +w6jRxOYOcrI42iQ87lzeLIdt8DCqsVOPBPFYAedfX7ioP7BC7gGQUK9xxbca +e4VLtE61MQnNFl97r2Prm1jYVJmSIENq9mRjp6z5GlloQYJA7ah9DPb9xZVp +uVYkZM+7Pw3C7huLvn7RhoSj/u11Pth6TyTeJtuT8HesS84Sm1X1dTjRkYRW +I//kbdjJlyt5j+8mwVlkPpKJ/TXEUiPchYRXrdtfyWILe0maH3LD8xQe0RJf +yLPs8wzwwPsLvrJacOH5dUfOeHmTEH5E1ONXD+6z3OqqC4uE5OzO2knsrzOS +NY5sEk7/d+nCMLZwb1+rDUmC6T2/yX5svZab1A5/EtJM9V72YLOqj8xBAAkx +usKK3djJV63EtwaSoORB0R0L+clSajpBJPCebrRsXciP6N+++RDOzy6Qfokt +xK5yUQ3B+2En7XuKvWVn7EFGGAk2r4N1mxbyDawTZMNJYNV5HnuEfVZ5dY5U +BAl3xG2t/sO+t4p7WySKhJSnKP0Bdu/vqheCMSS4N+s41S/kf4vt5Y8loYtv +88U6bN126x/zcSSUxai5Lfj/vusrDQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.683438945878057, 1.4263997428463147`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.6834389458780585}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10083,7 +11214,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5082122808512888}, + AxesOrigin->{0, 0.6834389458780585}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10111,7 +11243,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.683438945878057, 1.4263997428463147`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10119,9 +11252,9 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913242457281837`*^9}, + CellChangeTimes->{3.9913242457281837`*^9, 3.9938516335704937`*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] + "Out[127]=",ExpressionUUID->"60a1f101-b826-4b48-b1df-41a6df932793"] }, Open ]], Cell[CellGroupData[{ @@ -10184,158 +11317,213 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9917997871187477`*^9, - 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ -d12d9d52c36b"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 112, - 45, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246104725*^9}, + CellChangeTimes->{{3.9917997871187477`*^9, 3.991799792469698*^9}}, CellLabel-> - "During evaluation of \ -In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], + "In[128]:=",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.416028698365193`*^-269\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 112, 46, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461217346`*^9}, + 128, 41, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993851633699369*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +In[128]:=",ExpressionUUID->"458c9dee-b04c-428d-ac0a-0e84b808c955"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0069970428201856`*^-279\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 112, 47, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461427383`*^9}, + 2, 128, 42, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.9938516337059603`*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +In[128]:=",ExpressionUUID->"967982c5-a918-4781-b5e7-a9e96f01a58a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8722999834817777`*^-290\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 128, 43, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993851633712281*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"f1002ef9-6125-4ca6-8eda-3163e1dc2ee6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246159645*^9}, +during this calculation.\"", 2, 128, 44, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993851633719781*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +In[128]:=",ExpressionUUID->"10a723ed-1527-4415-985d-0d0b36145b28"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c41f8XAHBayMge99ohK2Tc6TrHLFIJWQkNqxTJChVCZEQDDUJSIln3 +yki+lCRJSJRKRkNGRqjI7/7++jyv5/k8n3Oe8z7nvJ+PwgF/W89VHBwc2Zwc +HP9/zn98/kQpqcBIZlS6qHF0u1FPjuRJ474YGLoQWq+VqQYo9uqAZN9FsFVS +8ZvJoEKIzb23q/vywe6k/YknGZYgNClx8ffbCpDL+qd/LMMZPtXv9J972wRq +5jbiFld8wUJp7MP02y4Q0wqNa0g7Cb/fkq/8fDsE5Xp7A6pOJ0Kz6Z2C1/mz +kH2i9hG/0TWQ/lTz5YDmMjjrz27WkrsFon7u97hMV+POwS8WTVl34eIWi7qd +e7gxliurx3XuPmi/d97K8OHG8piZ18JcpdAee7RbI4Ibv5N8XzVIlcK6vss/ +uPO4keucAWvRqBQiTg8Tm8e50SFt2+3ZhFI49CIqkhzLg38XbxZzEh8AybOO +IV+5Hkc/n7EsJZZBf5ZO47QgPxYtwxYe1XK41l28IUSZH7fdCW55pFMOLgKb +3P9Q+dFhRKv3CLUcBs7K/Ft1kB8rCt/srbIqh8Fj6w1FmfwYFXjq8bxfOXwz +G6kmOQvguQNrZ4zKymHxZ+aDiLwNOPSwXKNjSwXUaIisrDA34Em/0/33qRUQ +7pW6M7ZtAx7vWG6IN66ApfexE8mzGzDc+rWa0u4KiBp+KPZKURBH6B+t+QMq +ILbjtt1gkCB6B49aZJZUQFLBmVerpITwZl5o/2n5SrDS9xUW2yiEo5S6q/s3 +VQL3E9s9mzYL4aef6rkMrUqIHVZ+v91YCAUn7oV/pldCpGL7l8u+Quh9v92s +z6ESjuVK/lOpFcJGT3ft6KRK2H2jXHP7XmHcseM0pWaqEgQ1r/vv8xRGodr4 +oqZfldBRF1vh7y+ME6t4jJ/+Zcd/70i5fFYYKfyJg0yuKjAh/DP9UCyMvbVl +L83kqkA/y2qv/5IwnhUVfyW5owokLg8nXsoWQeelD8VXblWBpAYzdrFQBO+5 +rf/pe7cKCE3xZ/aViWDFgKsO5X4VyP5UC97ULIJ2dTcKmlhVoGwd4FH3TQRj +3M0cLjyvAr01y6RhPVE87BPyiGuyCnYFiY/otoniKe1y9SBdJtjwfvuY2S2K +IW8l/ztHYoJtfk3/0oAomvzeY3uFxgSHTtdXLVOiOC8w7JljwoR9mrdqXcTE +8MazkT0+tkw4MqKdHuMhhmdzI8+9D2DCOXtLo655Meyq69UxLmICoaqDsIpT +HC0thdUHSphQKmK/sIVXHG+9qSUElDGht8utLF1OHA/FtI/EVDNBaXeQ4u5t +4pjgKKJl/5QJTTturuu8Ko7xXjTdwk/sfO4rDa/cEsetpcS5ziEmjPHde6xd +Ko76HosP50aZINReFXahSRzVDq3btWmcCR5WbWM7f4ijxeLEE8oiE5YtfnW8 +NJTAHA/3O/wbWJBWGF68bCGB52I+rn0uxAKldRwJm3dLYN3d0yGnRFlg/XS9 +cYqnBJYHe118LcWCa6byldapEtjsF9ytosQCCm7PfPFJAoV5v4fHk1nQfrPz +xN/vEngnJj+mm8oCj5U9NhpzEtjZKfNAypAF5xo8eJK4JfGeysmIdGRBr2FI +hNUWSVyodFqnbcmCE9Q89+cxktg5bCu60ZkFVrkCc9uTJTFn5qDLsAsLFLki +EzquSKKN58uabFcWdPY4lHfflUTe26efc3iwQCuAb/XHDkmMHa3eGeXFgrVv +T2Z69Emir1pftJAPCwYYXzWGP0vi4wJa3w1fFiTxNtl/m5PEJ0bfZ/P8WPCt +MLRwhiCFuQ4+vF6BLHjMP0oLVpLCtoY1p1pPsCAjyPbVwmYpnL7oLa0czAJz +k82LSyiFG55MfW8PZUH+hyFLLm8plB3M+tIbyQJX0Z0TxEoplC/3zX8TxwK9 +iLronHoprA7YkfU+ngXrh1TFFVqkkO+/pq7351hQ82A1qPRLIUnLk/gikQXi +22vSdFakkJtbRsUzhQUT5SrKldwE7DIQOsJIZcETycs1BsIETI1+yyF4gV2/ +L8eGaMoEZHArKxeksesTraRvvp2AlRKWpxIuseDOt/TWZ/YE5Jg2Dda7zILT +u1ZcrdwIyCn8qa2P7c0y7+J2HSdgdlr8FeEMFqyJ3UroCidgVPQg/x22B8aq +Su1jCbj1Q/CYQSYLzj+88NY5k4Cbota+NcliwX655SMDuQQU9HMba2SbEn+Y +w/0eAbl4ynyoV1nw1c5c7dAjAtL6hO5LXWNBQ23Foy8tBKxOTA+JZjtDQd7W +t5OAu79+Kx9m22zqT/ixYQIWpIvGZV5nwcltl9X/GydgW6Hopa9sl+Ztficy +T8DMsrW7dW+wYPhPS6LXCjte9sXGULYl7T2oNdxE7GL4DFezveP+72+8wkSs +szCom2E7Zt2lLDciEdda37NUzWZBtbvmtnIlInY3nkxzYnv84dOF1VpETPvl +mH6WbQVh9zsOZCI6iv/dUcS2w5FFhyIk4g41YutztpOepK9bsiSiKH8g5yjb +jTIarJ12RJQMrfv7h+1fIU8881yJyDdT9ZA3hwXqnfvE5jyJqDUgQ5Ng201t +4YmFPxHrPaujZdi+FJMWdDWMiDYXzNJl2W59r6Y0Hk1EA9XzhwlsL+k3dxsl +sfNt37lBiO0tqa5n0y8TcfWoS/Qqtr2+/tIdySaif35Y0yQ7/nW8MES6Q8TJ +fyd63rDdeVX1YmIZET/VEmqq2V47+5/xQA0R4/YaBl5mm2a9d1qrmYgH1O5x ++rHtf3suN7qdiMlaZF8jtgv+pdj0vCHiBoOH93jZ7nfcxLHpExHJT1e3drPr +K1De+ODkNyIubJxpymDbdL2Le/s0EXV378u2Zzvs4KyA3F8iKq5TcOZne0hM +5dgTfmk8GqUW6c8+Xwn/xzISEtLI2qr1VZJt61anl77y0rglk5f+iN0frPAk +zQ160tgWNlQwz+6vH91KA/sNpTHoclFDEtvymxuSqsylcWXrSCuR7fOffo45 +O0kj9ct+lia7Px9Tzl8r2S+NZiVnsu+z+3kufaPVymFpzHjUEqnGtpuZQ1HB +KWn8cT5L4//zoFtU5z2VL40TttLRd9jz5L1qj4RJiTSmHrfy4GD7xt7JlstM +aXSM3LvV/iIL1gkoqNBa2fkmKxhMsOfxXWD8SOwEO5540LNh9jxvaJe7/HZe +GvfPjMiIsW2mXGOqziGDpl2OycbJ7P5++yP/lbAMapwPqEk6z4Jow937CRQZ +PO2ynDLK3h/b3HJmyCYyGCBl0/SOvV8Eon6c3WMtg+4pJaZtsex8muMK0zxk +0HOnLiUrhgUPrWp/rEuUwS9tZXo/T7HgjB/XKaVLMvjII4b4kL2vLFLtBUyy +ZfBbzLRneAQLel5P6pwql0F1QtbmyTAW/HTaGDLbL4NKhpxvLrL3YXV4AJfQ +iAzKcJfIarH35ekbj7K0JmUwdmnt5+YAFvANOtb5rpLFM25z7z4eZcEm72SO +QXVZPGDtNtPlza5v8K/z7RGy+E83Wp3F3u/KmSbSY3GyuI9D1/aP0//n78J9 +rjRZ/OQkJU91ZEH4klqnSYEsCrlo1BbaseDKWTexmnZZbHCSoppYs++f9Gc3 +b8vI4Qmn0F+R7PuGVnq16vRjOZTt/eIgzr6/zN52LE+2yuGa47KzH8RZsJNj +zVb3LjnUeqNBy2Pfdwdtj/XDqByeke7vIgiy6xGhcCZqrTyWBGgHv1vHggC5 ++VvGGvJ4/fNdVsosE55435xoDpHHuZPbVHqfM8FyiSocGSGPJzrkBSWfMaEj +rYekHyWP9HqthT1PmNBfwxNVkCiPXeWBz542MGGSN0g47oY8irHCa4MrmSBZ +to1s0SSPs9pChlI3mOC3OB3Vyq+ALnz33aMPM4F23Ev8i7ACjks05q3yZgL3 +2Lvi1ZIK6P+afvHMQSbcft/ca6SogL6FFsl+rkz42HBFk0lSwPcXWsxFdjJh +Vxy1L89dAY89/a8/Q4cJusLR2hHlCtg6Erf6wkwV/NYQ/Lh5jyK2lVWJ8Byp +gvlsQrSeiyJejKMkFHpVwdwGZSWquyK+aJkqwQNVMDlLPWzmq4i6986IHnGu +gqG6g/MupxTxqutAbdbWKmjbXi2QcFsRVejRLi4bq+DaETcY+qWI071SGal9 +lWBYXJKbkbER+VP7SWG0SpgWtvJwaFLCJu1Sd+c/5TCS7OEQyKWCp4X3LR2M +LQPLqVDLUdIm/JfR0UHXLYXxg9wnqs6oss/r5KC4eDH7/0Ni1bkmNVTwejQz +InwXhF+qpJZNqWPagkfi1r23QTrhgQ2JpIkcOpZFNy7kQ5YGVVDEezO2Z8vS +QT4X2gjGBrPpWrg1+RZvYP91oEk3pWn3auNKxLhgTmwmCKzOD9ofo4PpW2cy +3b5eAtloOUNnlS3oo7ff50tgGvAou7Jsn23BT35nVkZWJ4EWQ+pB6D5dDKt4 +FkCzjIfAj8LNVhx6uOmjubD1j2hobXF9dG+VHjpoaRC8BqJB9kFh9fq1enjt +daz0+ZfR0HaGVtLGo4f9JVUrUw+iQVHhwBUrET3kIdQ/1w2OhtcHy72tVPTw +y6nB6jTOaND5vovPyloPBVaNUdIUomBqNnmPZRb7/c56f9e/kTDQl+eQfU0P +WRo3XrcORULbI5bj9A095OXXtrNoi4SCc4POV/P0sDvl9+Wgq5HgQtR3+35P +D+/Xf9fOpkTCU5P3XomP9DC8rrpIIjwCrqerhT0f0sOj481jYTzhsFW75Zrl +Zn0MGR95v8kpFJzWbbPv1NZHr1cxSR+MQ+Hwh+f8jrr6KEcpXH1bIxRSk15G +HSLr40xYpZLvSgj0fu3xOmOsj96fy/me3gmBQ7nDusw9+qhpf+5C099giBHi +fCF/Wh9h98e0lLIgaJil/13o0Mcl3QU1ve2BkNdefcDutT7mz+3JMKEFQuxt +vbbSbn18l5Bv664WCJaOGlc9+/SR5nPueiNXIPTUEsjdn/XxHyvyosLT4zAW +/TuwdE4ff74LozuYHAdxweqxQwQD9Ml4I2FvEQDHNHXfvfY0QP6N32d/jPpB +8ALhj7uPAUZcWOv75ZkfRDatJkweNkARmUP3/xb5QZLTG+f1AQY43+bgHHLM +D+7GhvWbhBtg6uh1g3uLR2BooKGvMtUAty1ldP0VOgIOKdvfXqk2QI4NCoUt +jr7AmDzU48xDQn3Z4JvCml4gXrc1v56XhEpDw/ktYl4weU49QE6AhGZTuqqp +K56Qo/CTd1SYhJI5ZdGO3Z7wzz7CNECahP6T6jOvIzzhcV16Rbw2CeU/R407 +dx4C48SGtMo9JHyS0nHV6dxBMFeS3MGfT8L6CWVFsvp+qJp4qnCogIQF0Q4f +6iX3g1L1ifnaQhIuT92h23LthzVWr276FLO/T2iqLB7xgCb/+JnmKhKSOvN2 +S+Z6gFHdXGb4MxIeWxTd0yHlASTb10Nfx0noHrTs1KDjBoXEM9VGUyQ8Ulk+ +HS/kBmKjmslXpklogSlcfjP7YC40wcB0noRHj6TaJ1Xtg4psSMhZIWGpHwdR +mrYPtL/f37xHmIyZV1bXnLByBdWo82FNZDJSjwvE+5xxgXr67bXWNDI+31Q0 +xdjvAjYLjy++MSRjTq1/2xZTFwg79qvkmzEZN6s1+wVxuUCrq8dnAWsy8ubX +ZR1IdwYfKslqrwcZD2RfPtB+zwmKZj4T5xLI+EPqd8qmWQcwKl26eyqJjBx3 +i05d63OALl8JElcqGffLC7SoNjjAn0FrG8IlMi51fOXMTHQAq1fVsZhNRpdX +IxeqFRxgrDhlIrmcjEOvOc7NOewBdU/qY+V3ZLRNfcjzqMcOLiju/HN2gIwf +fH7a/W2wg7lPBwyGPpKxaYE6t7PIDhpckotzhsnoY9o1ZXDaDmxtPmVKTJDR +VZc+zKFmByfpcQE8HBQccCvxiIixhVah1woTyhSsXDZQP2+2Gza/GnXdrkpB +ibiLKbu37IaLyX8yi9QpqMVfqKgpuxtcuZQEvLQpqKprnktYtIGppZA/HykU +PBa2Tv59iQ2If5Pu7txOwafpf3kGpGzAs8Entuo4BcssRRYGVu2EyaNjoeZB +FAwI/vdN+eMOCJPxO9IbQsHFrMNWmTU74Hykv+1iBAXp3zWaZgJ2QBktRN4w +noKlha5OCZ+tYYl1tr75GgVtIznE+Nu2w8UHOXNdzRQk+qVgeLUlSLvLfzvY +QsFthzm7EjIt4bZA/vu5Vgp6r7yg14VawsOjt5vEOyhooFDPl0SxhA8aJWku +fRQcX3Lo66rbBqp3azSHxin4tcRMaLR1KzzO7Tk0LUbF2DfSDmpL5jBoreAe +IknFR5wnbGcGzYHj91HnvwQqdhzFvv6n5mCym2vnWnkqWjukcK9JM4cWThpZ +Sp2KG4r16/5TNof2Azd5jI2o+PKMWlmrgxm8UzpcmuZFxRz+mH56hwn87WTd +FfOl4rHOpuZslglIn1p969oRKob9oBUSbprAvjc3MgsCqNhtcvProQATGIx7 +FfUwnIp3W1lHKKIm8PWLvt1gKhWvPTvBeOJhDHN3Vxa0q6no7eWaW8OH8MXB +IjexhopTowOKO2YB+takbBuuoyJLO2GfzUuAOg/C1YxGKgpP6xl1RQPESBrQ +lp9Tsc3wt/vjcSMQTDgc2TZAxb4sHSWZNgZoer/h8FxFw36zVXMDeXSQFZMu +alhDw5PVnAmZUXQQbD6wW5KLhpn2so9C3OkwK/sz7wUvDW8nZkfky9Chtne9 +qa4YDV/qZnsVX6fBNguMW9lEQ/cEUfqhHCocVC7mubaDhsmChyajH5Eh/Knb +YRUbGu4YTheRzSFDmqfwiwpbGponNZkNniZD/e2TyS8caThD/KDSi2QQVdm2 +YXk/DQ++WzpxtoUELSqjoh4hNFzL8flvY58BqKvKyavcpCEfTfECU0IfsLUr +qiKPht1zF/a0LOmBg0/8Z6MCGnKStbYvftaDs3cn8h2LaDj+o2TL4xI9GFCt +V06spOFD9fWzPaZ6kKrmrDH+jIZ3Su5Mc4TpwrT6JVLFTxou8kfyey/oQF87 +movM0nDsZYnT4GcdaDw2aRf0i4YfszJeBrbrQGqF5XHSHxrKNQ61DeXpgDqN +o6R2NR3F88r1x3fowAHLowrN4nS83pRBk96jDT3eW/l6DOnI+LWcXDemCXU8 +vwgGQEe7XoW8K081Ib84Xy3DmI7HBJVbrudqQsDUsoWTBR1ptebxGo6awB9a +FT2wi45O1z802rVogEW8wsLIATqaP02ozylRh4cFfz//SqCjWqrw4ZFMVSCZ +Bi1YJdExgKTAmximCszP43y5KXSMvclbbOusChWyH8lWF+kYf/eMpT1RFUqy +GlNyrrPj2xhV8+VtgtzkOOrWUjq23paP0qlUgcSgDelZ3XSkZFn6Gk4rAbdI +QuHEGzo2YCEvuVcJ4ss56k366FjjbctpW6cEsZPTX8YH6Oi2luTyLU4JTvv0 +GBp/oeOgcePMRWklCHS9+u37Ih3vLcw++G/XRnAx24h0WUM0j/JJvN6uAMs9 +3ALN8oYY94qx7FWpALmek++tNhpiVW7FVbtrCvAlvibURdUQ9SQL71/wUYDA +57senNQ1xHhJ3tnUdQpwfmek7EMLQ7xl6LQuYZs81Dq9WdL3N0RZPlOv2hYZ +2Pe9tq3+uCESTv2Xz3VDBjjCc7PMggzx7aaPH1KOy4DF9SP69icN8VWcGM1M +Rga6PnD6nThriGo333LuDpWGsQNa78szDbH+0tXIBwZEIB49V6PVaIhcL+4c +qeqXhNQVL4OkJkPUsX15mPuhJKy6aFH+9YkhOrm+mo/PkIQx1tqi3OeGSLl6 +/Ocqe0mo5YjNEu42xMKr0cLTnRLgcjkqdH7UEI0UxhcjusQhq+6kQQMvA88z +xK+unRUFvp3O5QQBBtaUvA/a1SsKUYOUzaGCDJT/e1SkoUYUfNYuKumIMXB1 +g/Q4d7QokHeFiObLMlDBJ3GvjZAo9A4FzsZtYaDNeoJ5NEUExNb7le9wZOC9 +oGt91rlCUGB6KvynMwO7BK2teOKEQPdUquklVwbOK7J0J3yFYOfPsjd9+xm4 +hul9RV1fCOJ7f/0+6MfA+8d+TAW3CcJi/hmT8GgGKmrcOWS2tAHe0S91FxYz +sDFgP3mSgx98ggtuWJYysG2iXTKmmw/mS5me42UMJF/vKXIq5ANhxb6FLSwG +Fr5xOt5uzQfbuWWkHzUyUEeC1f7kBi/U9xQe6n7DQBbXx5fF29aDlcDDzSF9 +DFT61LfFWG499G19Pi/5noEFY3KvReZ5YK72R4LbIAP5ZzlP+BfwwOY8nfvf +x9j5OJbrL6zmgfp3xiHJEwzkMe3wODrADVaidqD9k4HhP2IMZJnc4HUu+HXQ +LwaaXv2coeXNDXON8dckFhnokn/jbApyQ8yfzIO1fxj4LlOwX5nADYL6RZr7 +lhn4b53RtoVZLsg5WvtrZYWBIrPnYjg7uOB/Ca6OUQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10349,117 +11537,168 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV13c41f8XAHBayMge99ohK2Tc6TrHLFIJWQkNqxTJChVCZEQDDUJSIln3 +yki+lCRJSJRKRkNGRqjI7/7++jyv5/k8n3Oe8z7nvJ+PwgF/W89VHBwc2Zwc +HP9/zn98/kQpqcBIZlS6qHF0u1FPjuRJ474YGLoQWq+VqQYo9uqAZN9FsFVS +8ZvJoEKIzb23q/vywe6k/YknGZYgNClx8ffbCpDL+qd/LMMZPtXv9J972wRq +5jbiFld8wUJp7MP02y4Q0wqNa0g7Cb/fkq/8fDsE5Xp7A6pOJ0Kz6Z2C1/mz +kH2i9hG/0TWQ/lTz5YDmMjjrz27WkrsFon7u97hMV+POwS8WTVl34eIWi7qd +e7gxliurx3XuPmi/d97K8OHG8piZ18JcpdAee7RbI4Ibv5N8XzVIlcK6vss/ +uPO4keucAWvRqBQiTg8Tm8e50SFt2+3ZhFI49CIqkhzLg38XbxZzEh8AybOO +IV+5Hkc/n7EsJZZBf5ZO47QgPxYtwxYe1XK41l28IUSZH7fdCW55pFMOLgKb +3P9Q+dFhRKv3CLUcBs7K/Ft1kB8rCt/srbIqh8Fj6w1FmfwYFXjq8bxfOXwz +G6kmOQvguQNrZ4zKymHxZ+aDiLwNOPSwXKNjSwXUaIisrDA34Em/0/33qRUQ +7pW6M7ZtAx7vWG6IN66ApfexE8mzGzDc+rWa0u4KiBp+KPZKURBH6B+t+QMq +ILbjtt1gkCB6B49aZJZUQFLBmVerpITwZl5o/2n5SrDS9xUW2yiEo5S6q/s3 +VQL3E9s9mzYL4aef6rkMrUqIHVZ+v91YCAUn7oV/pldCpGL7l8u+Quh9v92s +z6ESjuVK/lOpFcJGT3ft6KRK2H2jXHP7XmHcseM0pWaqEgQ1r/vv8xRGodr4 +oqZfldBRF1vh7y+ME6t4jJ/+Zcd/70i5fFYYKfyJg0yuKjAh/DP9UCyMvbVl +L83kqkA/y2qv/5IwnhUVfyW5owokLg8nXsoWQeelD8VXblWBpAYzdrFQBO+5 +rf/pe7cKCE3xZ/aViWDFgKsO5X4VyP5UC97ULIJ2dTcKmlhVoGwd4FH3TQRj +3M0cLjyvAr01y6RhPVE87BPyiGuyCnYFiY/otoniKe1y9SBdJtjwfvuY2S2K +IW8l/ztHYoJtfk3/0oAomvzeY3uFxgSHTtdXLVOiOC8w7JljwoR9mrdqXcTE +8MazkT0+tkw4MqKdHuMhhmdzI8+9D2DCOXtLo655Meyq69UxLmICoaqDsIpT +HC0thdUHSphQKmK/sIVXHG+9qSUElDGht8utLF1OHA/FtI/EVDNBaXeQ4u5t +4pjgKKJl/5QJTTturuu8Ko7xXjTdwk/sfO4rDa/cEsetpcS5ziEmjPHde6xd +Ko76HosP50aZINReFXahSRzVDq3btWmcCR5WbWM7f4ijxeLEE8oiE5YtfnW8 +NJTAHA/3O/wbWJBWGF68bCGB52I+rn0uxAKldRwJm3dLYN3d0yGnRFlg/XS9 +cYqnBJYHe118LcWCa6byldapEtjsF9ytosQCCm7PfPFJAoV5v4fHk1nQfrPz +xN/vEngnJj+mm8oCj5U9NhpzEtjZKfNAypAF5xo8eJK4JfGeysmIdGRBr2FI +hNUWSVyodFqnbcmCE9Q89+cxktg5bCu60ZkFVrkCc9uTJTFn5qDLsAsLFLki +EzquSKKN58uabFcWdPY4lHfflUTe26efc3iwQCuAb/XHDkmMHa3eGeXFgrVv +T2Z69Emir1pftJAPCwYYXzWGP0vi4wJa3w1fFiTxNtl/m5PEJ0bfZ/P8WPCt +MLRwhiCFuQ4+vF6BLHjMP0oLVpLCtoY1p1pPsCAjyPbVwmYpnL7oLa0czAJz +k82LSyiFG55MfW8PZUH+hyFLLm8plB3M+tIbyQJX0Z0TxEoplC/3zX8TxwK9 +iLronHoprA7YkfU+ngXrh1TFFVqkkO+/pq7351hQ82A1qPRLIUnLk/gikQXi +22vSdFakkJtbRsUzhQUT5SrKldwE7DIQOsJIZcETycs1BsIETI1+yyF4gV2/ +L8eGaMoEZHArKxeksesTraRvvp2AlRKWpxIuseDOt/TWZ/YE5Jg2Dda7zILT +u1ZcrdwIyCn8qa2P7c0y7+J2HSdgdlr8FeEMFqyJ3UroCidgVPQg/x22B8aq +Su1jCbj1Q/CYQSYLzj+88NY5k4Cbota+NcliwX655SMDuQQU9HMba2SbEn+Y +w/0eAbl4ynyoV1nw1c5c7dAjAtL6hO5LXWNBQ23Foy8tBKxOTA+JZjtDQd7W +t5OAu79+Kx9m22zqT/ixYQIWpIvGZV5nwcltl9X/GydgW6Hopa9sl+Ztficy +T8DMsrW7dW+wYPhPS6LXCjte9sXGULYl7T2oNdxE7GL4DFezveP+72+8wkSs +szCom2E7Zt2lLDciEdda37NUzWZBtbvmtnIlInY3nkxzYnv84dOF1VpETPvl +mH6WbQVh9zsOZCI6iv/dUcS2w5FFhyIk4g41YutztpOepK9bsiSiKH8g5yjb +jTIarJ12RJQMrfv7h+1fIU8881yJyDdT9ZA3hwXqnfvE5jyJqDUgQ5Ng201t +4YmFPxHrPaujZdi+FJMWdDWMiDYXzNJl2W59r6Y0Hk1EA9XzhwlsL+k3dxsl +sfNt37lBiO0tqa5n0y8TcfWoS/Qqtr2+/tIdySaif35Y0yQ7/nW8MES6Q8TJ +fyd63rDdeVX1YmIZET/VEmqq2V47+5/xQA0R4/YaBl5mm2a9d1qrmYgH1O5x ++rHtf3suN7qdiMlaZF8jtgv+pdj0vCHiBoOH93jZ7nfcxLHpExHJT1e3drPr +K1De+ODkNyIubJxpymDbdL2Le/s0EXV378u2Zzvs4KyA3F8iKq5TcOZne0hM +5dgTfmk8GqUW6c8+Xwn/xzISEtLI2qr1VZJt61anl77y0rglk5f+iN0frPAk +zQ160tgWNlQwz+6vH91KA/sNpTHoclFDEtvymxuSqsylcWXrSCuR7fOffo45 +O0kj9ct+lia7Px9Tzl8r2S+NZiVnsu+z+3kufaPVymFpzHjUEqnGtpuZQ1HB +KWn8cT5L4//zoFtU5z2VL40TttLRd9jz5L1qj4RJiTSmHrfy4GD7xt7JlstM +aXSM3LvV/iIL1gkoqNBa2fkmKxhMsOfxXWD8SOwEO5540LNh9jxvaJe7/HZe +GvfPjMiIsW2mXGOqziGDpl2OycbJ7P5++yP/lbAMapwPqEk6z4Jow937CRQZ +PO2ynDLK3h/b3HJmyCYyGCBl0/SOvV8Eon6c3WMtg+4pJaZtsex8muMK0zxk +0HOnLiUrhgUPrWp/rEuUwS9tZXo/T7HgjB/XKaVLMvjII4b4kL2vLFLtBUyy +ZfBbzLRneAQLel5P6pwql0F1QtbmyTAW/HTaGDLbL4NKhpxvLrL3YXV4AJfQ +iAzKcJfIarH35ekbj7K0JmUwdmnt5+YAFvANOtb5rpLFM25z7z4eZcEm72SO +QXVZPGDtNtPlza5v8K/z7RGy+E83Wp3F3u/KmSbSY3GyuI9D1/aP0//n78J9 +rjRZ/OQkJU91ZEH4klqnSYEsCrlo1BbaseDKWTexmnZZbHCSoppYs++f9Gc3 +b8vI4Qmn0F+R7PuGVnq16vRjOZTt/eIgzr6/zN52LE+2yuGa47KzH8RZsJNj +zVb3LjnUeqNBy2Pfdwdtj/XDqByeke7vIgiy6xGhcCZqrTyWBGgHv1vHggC5 ++VvGGvJ4/fNdVsosE55435xoDpHHuZPbVHqfM8FyiSocGSGPJzrkBSWfMaEj +rYekHyWP9HqthT1PmNBfwxNVkCiPXeWBz542MGGSN0g47oY8irHCa4MrmSBZ +to1s0SSPs9pChlI3mOC3OB3Vyq+ALnz33aMPM4F23Ev8i7ACjks05q3yZgL3 +2Lvi1ZIK6P+afvHMQSbcft/ca6SogL6FFsl+rkz42HBFk0lSwPcXWsxFdjJh +Vxy1L89dAY89/a8/Q4cJusLR2hHlCtg6Erf6wkwV/NYQ/Lh5jyK2lVWJ8Byp +gvlsQrSeiyJejKMkFHpVwdwGZSWquyK+aJkqwQNVMDlLPWzmq4i6986IHnGu +gqG6g/MupxTxqutAbdbWKmjbXi2QcFsRVejRLi4bq+DaETcY+qWI071SGal9 +lWBYXJKbkbER+VP7SWG0SpgWtvJwaFLCJu1Sd+c/5TCS7OEQyKWCp4X3LR2M +LQPLqVDLUdIm/JfR0UHXLYXxg9wnqs6oss/r5KC4eDH7/0Ni1bkmNVTwejQz +InwXhF+qpJZNqWPagkfi1r23QTrhgQ2JpIkcOpZFNy7kQ5YGVVDEezO2Z8vS +QT4X2gjGBrPpWrg1+RZvYP91oEk3pWn3auNKxLhgTmwmCKzOD9ofo4PpW2cy +3b5eAtloOUNnlS3oo7ff50tgGvAou7Jsn23BT35nVkZWJ4EWQ+pB6D5dDKt4 +FkCzjIfAj8LNVhx6uOmjubD1j2hobXF9dG+VHjpoaRC8BqJB9kFh9fq1enjt +daz0+ZfR0HaGVtLGo4f9JVUrUw+iQVHhwBUrET3kIdQ/1w2OhtcHy72tVPTw +y6nB6jTOaND5vovPyloPBVaNUdIUomBqNnmPZRb7/c56f9e/kTDQl+eQfU0P +WRo3XrcORULbI5bj9A095OXXtrNoi4SCc4POV/P0sDvl9+Wgq5HgQtR3+35P +D+/Xf9fOpkTCU5P3XomP9DC8rrpIIjwCrqerhT0f0sOj481jYTzhsFW75Zrl +Zn0MGR95v8kpFJzWbbPv1NZHr1cxSR+MQ+Hwh+f8jrr6KEcpXH1bIxRSk15G +HSLr40xYpZLvSgj0fu3xOmOsj96fy/me3gmBQ7nDusw9+qhpf+5C099giBHi +fCF/Wh9h98e0lLIgaJil/13o0Mcl3QU1ve2BkNdefcDutT7mz+3JMKEFQuxt +vbbSbn18l5Bv664WCJaOGlc9+/SR5nPueiNXIPTUEsjdn/XxHyvyosLT4zAW +/TuwdE4ff74LozuYHAdxweqxQwQD9Ml4I2FvEQDHNHXfvfY0QP6N32d/jPpB +8ALhj7uPAUZcWOv75ZkfRDatJkweNkARmUP3/xb5QZLTG+f1AQY43+bgHHLM +D+7GhvWbhBtg6uh1g3uLR2BooKGvMtUAty1ldP0VOgIOKdvfXqk2QI4NCoUt +jr7AmDzU48xDQn3Z4JvCml4gXrc1v56XhEpDw/ktYl4weU49QE6AhGZTuqqp +K56Qo/CTd1SYhJI5ZdGO3Z7wzz7CNECahP6T6jOvIzzhcV16Rbw2CeU/R407 +dx4C48SGtMo9JHyS0nHV6dxBMFeS3MGfT8L6CWVFsvp+qJp4qnCogIQF0Q4f +6iX3g1L1ifnaQhIuT92h23LthzVWr276FLO/T2iqLB7xgCb/+JnmKhKSOvN2 +S+Z6gFHdXGb4MxIeWxTd0yHlASTb10Nfx0noHrTs1KDjBoXEM9VGUyQ8Ulk+ +HS/kBmKjmslXpklogSlcfjP7YC40wcB0noRHj6TaJ1Xtg4psSMhZIWGpHwdR +mrYPtL/f37xHmIyZV1bXnLByBdWo82FNZDJSjwvE+5xxgXr67bXWNDI+31Q0 +xdjvAjYLjy++MSRjTq1/2xZTFwg79qvkmzEZN6s1+wVxuUCrq8dnAWsy8ubX +ZR1IdwYfKslqrwcZD2RfPtB+zwmKZj4T5xLI+EPqd8qmWQcwKl26eyqJjBx3 +i05d63OALl8JElcqGffLC7SoNjjAn0FrG8IlMi51fOXMTHQAq1fVsZhNRpdX +IxeqFRxgrDhlIrmcjEOvOc7NOewBdU/qY+V3ZLRNfcjzqMcOLiju/HN2gIwf +fH7a/W2wg7lPBwyGPpKxaYE6t7PIDhpckotzhsnoY9o1ZXDaDmxtPmVKTJDR +VZc+zKFmByfpcQE8HBQccCvxiIixhVah1woTyhSsXDZQP2+2Gza/GnXdrkpB +ibiLKbu37IaLyX8yi9QpqMVfqKgpuxtcuZQEvLQpqKprnktYtIGppZA/HykU +PBa2Tv59iQ2If5Pu7txOwafpf3kGpGzAs8Entuo4BcssRRYGVu2EyaNjoeZB +FAwI/vdN+eMOCJPxO9IbQsHFrMNWmTU74Hykv+1iBAXp3zWaZgJ2QBktRN4w +noKlha5OCZ+tYYl1tr75GgVtIznE+Nu2w8UHOXNdzRQk+qVgeLUlSLvLfzvY +QsFthzm7EjIt4bZA/vu5Vgp6r7yg14VawsOjt5vEOyhooFDPl0SxhA8aJWku +fRQcX3Lo66rbBqp3azSHxin4tcRMaLR1KzzO7Tk0LUbF2DfSDmpL5jBoreAe +IknFR5wnbGcGzYHj91HnvwQqdhzFvv6n5mCym2vnWnkqWjukcK9JM4cWThpZ +Sp2KG4r16/5TNof2Azd5jI2o+PKMWlmrgxm8UzpcmuZFxRz+mH56hwn87WTd +FfOl4rHOpuZslglIn1p969oRKob9oBUSbprAvjc3MgsCqNhtcvProQATGIx7 +FfUwnIp3W1lHKKIm8PWLvt1gKhWvPTvBeOJhDHN3Vxa0q6no7eWaW8OH8MXB +IjexhopTowOKO2YB+takbBuuoyJLO2GfzUuAOg/C1YxGKgpP6xl1RQPESBrQ +lp9Tsc3wt/vjcSMQTDgc2TZAxb4sHSWZNgZoer/h8FxFw36zVXMDeXSQFZMu +alhDw5PVnAmZUXQQbD6wW5KLhpn2so9C3OkwK/sz7wUvDW8nZkfky9Chtne9 +qa4YDV/qZnsVX6fBNguMW9lEQ/cEUfqhHCocVC7mubaDhsmChyajH5Eh/Knb +YRUbGu4YTheRzSFDmqfwiwpbGponNZkNniZD/e2TyS8caThD/KDSi2QQVdm2 +YXk/DQ++WzpxtoUELSqjoh4hNFzL8flvY58BqKvKyavcpCEfTfECU0IfsLUr +qiKPht1zF/a0LOmBg0/8Z6MCGnKStbYvftaDs3cn8h2LaDj+o2TL4xI9GFCt +V06spOFD9fWzPaZ6kKrmrDH+jIZ3Su5Mc4TpwrT6JVLFTxou8kfyey/oQF87 +movM0nDsZYnT4GcdaDw2aRf0i4YfszJeBrbrQGqF5XHSHxrKNQ61DeXpgDqN +o6R2NR3F88r1x3fowAHLowrN4nS83pRBk96jDT3eW/l6DOnI+LWcXDemCXU8 +vwgGQEe7XoW8K081Ib84Xy3DmI7HBJVbrudqQsDUsoWTBR1ptebxGo6awB9a +FT2wi45O1z802rVogEW8wsLIATqaP02ozylRh4cFfz//SqCjWqrw4ZFMVSCZ +Bi1YJdExgKTAmximCszP43y5KXSMvclbbOusChWyH8lWF+kYf/eMpT1RFUqy +GlNyrrPj2xhV8+VtgtzkOOrWUjq23paP0qlUgcSgDelZ3XSkZFn6Gk4rAbdI +QuHEGzo2YCEvuVcJ4ss56k366FjjbctpW6cEsZPTX8YH6Oi2luTyLU4JTvv0 +GBp/oeOgcePMRWklCHS9+u37Ih3vLcw++G/XRnAx24h0WUM0j/JJvN6uAMs9 +3ALN8oYY94qx7FWpALmek++tNhpiVW7FVbtrCvAlvibURdUQ9SQL71/wUYDA +57senNQ1xHhJ3tnUdQpwfmek7EMLQ7xl6LQuYZs81Dq9WdL3N0RZPlOv2hYZ +2Pe9tq3+uCESTv2Xz3VDBjjCc7PMggzx7aaPH1KOy4DF9SP69icN8VWcGM1M +Rga6PnD6nThriGo333LuDpWGsQNa78szDbH+0tXIBwZEIB49V6PVaIhcL+4c +qeqXhNQVL4OkJkPUsX15mPuhJKy6aFH+9YkhOrm+mo/PkIQx1tqi3OeGSLl6 +/Ocqe0mo5YjNEu42xMKr0cLTnRLgcjkqdH7UEI0UxhcjusQhq+6kQQMvA88z +xK+unRUFvp3O5QQBBtaUvA/a1SsKUYOUzaGCDJT/e1SkoUYUfNYuKumIMXB1 +g/Q4d7QokHeFiObLMlDBJ3GvjZAo9A4FzsZtYaDNeoJ5NEUExNb7le9wZOC9 +oGt91rlCUGB6KvynMwO7BK2teOKEQPdUquklVwbOK7J0J3yFYOfPsjd9+xm4 +hul9RV1fCOJ7f/0+6MfA+8d+TAW3CcJi/hmT8GgGKmrcOWS2tAHe0S91FxYz +sDFgP3mSgx98ggtuWJYysG2iXTKmmw/mS5me42UMJF/vKXIq5ANhxb6FLSwG +Fr5xOt5uzQfbuWWkHzUyUEeC1f7kBi/U9xQe6n7DQBbXx5fF29aDlcDDzSF9 +DFT61LfFWG499G19Pi/5noEFY3KvReZ5YK72R4LbIAP5ZzlP+BfwwOY8nfvf +x9j5OJbrL6zmgfp3xiHJEwzkMe3wODrADVaidqD9k4HhP2IMZJnc4HUu+HXQ +LwaaXv2coeXNDXON8dckFhnokn/jbApyQ8yfzIO1fxj4LlOwX5nADYL6RZr7 +lhn4b53RtoVZLsg5WvtrZYWBIrPnYjg7uOB/Ca6OUQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.08835021063401638}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10471,19 +11710,19 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.08835021063401638}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10497,116 +11736,167 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV13c41f8XAHBayMge99ohK2Tc6TrHLFIJWQkNqxTJChVCZEQDDUJSIln3 +yki+lCRJSJRKRkNGRqjI7/7++jyv5/k8n3Oe8z7nvJ+PwgF/W89VHBwc2Zwc +HP9/zn98/kQpqcBIZlS6qHF0u1FPjuRJ474YGLoQWq+VqQYo9uqAZN9FsFVS +8ZvJoEKIzb23q/vywe6k/YknGZYgNClx8ffbCpDL+qd/LMMZPtXv9J972wRq +5jbiFld8wUJp7MP02y4Q0wqNa0g7Cb/fkq/8fDsE5Xp7A6pOJ0Kz6Z2C1/mz +kH2i9hG/0TWQ/lTz5YDmMjjrz27WkrsFon7u97hMV+POwS8WTVl34eIWi7qd +e7gxliurx3XuPmi/d97K8OHG8piZ18JcpdAee7RbI4Ibv5N8XzVIlcK6vss/ +uPO4keucAWvRqBQiTg8Tm8e50SFt2+3ZhFI49CIqkhzLg38XbxZzEh8AybOO +IV+5Hkc/n7EsJZZBf5ZO47QgPxYtwxYe1XK41l28IUSZH7fdCW55pFMOLgKb +3P9Q+dFhRKv3CLUcBs7K/Ft1kB8rCt/srbIqh8Fj6w1FmfwYFXjq8bxfOXwz +G6kmOQvguQNrZ4zKymHxZ+aDiLwNOPSwXKNjSwXUaIisrDA34Em/0/33qRUQ +7pW6M7ZtAx7vWG6IN66ApfexE8mzGzDc+rWa0u4KiBp+KPZKURBH6B+t+QMq +ILbjtt1gkCB6B49aZJZUQFLBmVerpITwZl5o/2n5SrDS9xUW2yiEo5S6q/s3 +VQL3E9s9mzYL4aef6rkMrUqIHVZ+v91YCAUn7oV/pldCpGL7l8u+Quh9v92s +z6ESjuVK/lOpFcJGT3ft6KRK2H2jXHP7XmHcseM0pWaqEgQ1r/vv8xRGodr4 +oqZfldBRF1vh7y+ME6t4jJ/+Zcd/70i5fFYYKfyJg0yuKjAh/DP9UCyMvbVl +L83kqkA/y2qv/5IwnhUVfyW5owokLg8nXsoWQeelD8VXblWBpAYzdrFQBO+5 +rf/pe7cKCE3xZ/aViWDFgKsO5X4VyP5UC97ULIJ2dTcKmlhVoGwd4FH3TQRj +3M0cLjyvAr01y6RhPVE87BPyiGuyCnYFiY/otoniKe1y9SBdJtjwfvuY2S2K +IW8l/ztHYoJtfk3/0oAomvzeY3uFxgSHTtdXLVOiOC8w7JljwoR9mrdqXcTE +8MazkT0+tkw4MqKdHuMhhmdzI8+9D2DCOXtLo655Meyq69UxLmICoaqDsIpT +HC0thdUHSphQKmK/sIVXHG+9qSUElDGht8utLF1OHA/FtI/EVDNBaXeQ4u5t +4pjgKKJl/5QJTTturuu8Ko7xXjTdwk/sfO4rDa/cEsetpcS5ziEmjPHde6xd +Ko76HosP50aZINReFXahSRzVDq3btWmcCR5WbWM7f4ijxeLEE8oiE5YtfnW8 +NJTAHA/3O/wbWJBWGF68bCGB52I+rn0uxAKldRwJm3dLYN3d0yGnRFlg/XS9 +cYqnBJYHe118LcWCa6byldapEtjsF9ytosQCCm7PfPFJAoV5v4fHk1nQfrPz +xN/vEngnJj+mm8oCj5U9NhpzEtjZKfNAypAF5xo8eJK4JfGeysmIdGRBr2FI +hNUWSVyodFqnbcmCE9Q89+cxktg5bCu60ZkFVrkCc9uTJTFn5qDLsAsLFLki +EzquSKKN58uabFcWdPY4lHfflUTe26efc3iwQCuAb/XHDkmMHa3eGeXFgrVv +T2Z69Emir1pftJAPCwYYXzWGP0vi4wJa3w1fFiTxNtl/m5PEJ0bfZ/P8WPCt +MLRwhiCFuQ4+vF6BLHjMP0oLVpLCtoY1p1pPsCAjyPbVwmYpnL7oLa0czAJz +k82LSyiFG55MfW8PZUH+hyFLLm8plB3M+tIbyQJX0Z0TxEoplC/3zX8TxwK9 +iLronHoprA7YkfU+ngXrh1TFFVqkkO+/pq7351hQ82A1qPRLIUnLk/gikQXi +22vSdFakkJtbRsUzhQUT5SrKldwE7DIQOsJIZcETycs1BsIETI1+yyF4gV2/ +L8eGaMoEZHArKxeksesTraRvvp2AlRKWpxIuseDOt/TWZ/YE5Jg2Dda7zILT +u1ZcrdwIyCn8qa2P7c0y7+J2HSdgdlr8FeEMFqyJ3UroCidgVPQg/x22B8aq +Su1jCbj1Q/CYQSYLzj+88NY5k4Cbota+NcliwX655SMDuQQU9HMba2SbEn+Y +w/0eAbl4ynyoV1nw1c5c7dAjAtL6hO5LXWNBQ23Foy8tBKxOTA+JZjtDQd7W +t5OAu79+Kx9m22zqT/ixYQIWpIvGZV5nwcltl9X/GydgW6Hopa9sl+Ztficy +T8DMsrW7dW+wYPhPS6LXCjte9sXGULYl7T2oNdxE7GL4DFezveP+72+8wkSs +szCom2E7Zt2lLDciEdda37NUzWZBtbvmtnIlInY3nkxzYnv84dOF1VpETPvl +mH6WbQVh9zsOZCI6iv/dUcS2w5FFhyIk4g41YutztpOepK9bsiSiKH8g5yjb +jTIarJ12RJQMrfv7h+1fIU8881yJyDdT9ZA3hwXqnfvE5jyJqDUgQ5Ng201t +4YmFPxHrPaujZdi+FJMWdDWMiDYXzNJl2W59r6Y0Hk1EA9XzhwlsL+k3dxsl +sfNt37lBiO0tqa5n0y8TcfWoS/Qqtr2+/tIdySaif35Y0yQ7/nW8MES6Q8TJ +fyd63rDdeVX1YmIZET/VEmqq2V47+5/xQA0R4/YaBl5mm2a9d1qrmYgH1O5x ++rHtf3suN7qdiMlaZF8jtgv+pdj0vCHiBoOH93jZ7nfcxLHpExHJT1e3drPr +K1De+ODkNyIubJxpymDbdL2Le/s0EXV378u2Zzvs4KyA3F8iKq5TcOZne0hM +5dgTfmk8GqUW6c8+Xwn/xzISEtLI2qr1VZJt61anl77y0rglk5f+iN0frPAk +zQ160tgWNlQwz+6vH91KA/sNpTHoclFDEtvymxuSqsylcWXrSCuR7fOffo45 +O0kj9ct+lia7Px9Tzl8r2S+NZiVnsu+z+3kufaPVymFpzHjUEqnGtpuZQ1HB +KWn8cT5L4//zoFtU5z2VL40TttLRd9jz5L1qj4RJiTSmHrfy4GD7xt7JlstM +aXSM3LvV/iIL1gkoqNBa2fkmKxhMsOfxXWD8SOwEO5540LNh9jxvaJe7/HZe +GvfPjMiIsW2mXGOqziGDpl2OycbJ7P5++yP/lbAMapwPqEk6z4Jow937CRQZ +PO2ynDLK3h/b3HJmyCYyGCBl0/SOvV8Eon6c3WMtg+4pJaZtsex8muMK0zxk +0HOnLiUrhgUPrWp/rEuUwS9tZXo/T7HgjB/XKaVLMvjII4b4kL2vLFLtBUyy +ZfBbzLRneAQLel5P6pwql0F1QtbmyTAW/HTaGDLbL4NKhpxvLrL3YXV4AJfQ +iAzKcJfIarH35ekbj7K0JmUwdmnt5+YAFvANOtb5rpLFM25z7z4eZcEm72SO +QXVZPGDtNtPlza5v8K/z7RGy+E83Wp3F3u/KmSbSY3GyuI9D1/aP0//n78J9 +rjRZ/OQkJU91ZEH4klqnSYEsCrlo1BbaseDKWTexmnZZbHCSoppYs++f9Gc3 +b8vI4Qmn0F+R7PuGVnq16vRjOZTt/eIgzr6/zN52LE+2yuGa47KzH8RZsJNj +zVb3LjnUeqNBy2Pfdwdtj/XDqByeke7vIgiy6xGhcCZqrTyWBGgHv1vHggC5 ++VvGGvJ4/fNdVsosE55435xoDpHHuZPbVHqfM8FyiSocGSGPJzrkBSWfMaEj +rYekHyWP9HqthT1PmNBfwxNVkCiPXeWBz542MGGSN0g47oY8irHCa4MrmSBZ +to1s0SSPs9pChlI3mOC3OB3Vyq+ALnz33aMPM4F23Ev8i7ACjks05q3yZgL3 +2Lvi1ZIK6P+afvHMQSbcft/ca6SogL6FFsl+rkz42HBFk0lSwPcXWsxFdjJh +Vxy1L89dAY89/a8/Q4cJusLR2hHlCtg6Erf6wkwV/NYQ/Lh5jyK2lVWJ8Byp +gvlsQrSeiyJejKMkFHpVwdwGZSWquyK+aJkqwQNVMDlLPWzmq4i6986IHnGu +gqG6g/MupxTxqutAbdbWKmjbXi2QcFsRVejRLi4bq+DaETcY+qWI071SGal9 +lWBYXJKbkbER+VP7SWG0SpgWtvJwaFLCJu1Sd+c/5TCS7OEQyKWCp4X3LR2M +LQPLqVDLUdIm/JfR0UHXLYXxg9wnqs6oss/r5KC4eDH7/0Ni1bkmNVTwejQz +InwXhF+qpJZNqWPagkfi1r23QTrhgQ2JpIkcOpZFNy7kQ5YGVVDEezO2Z8vS +QT4X2gjGBrPpWrg1+RZvYP91oEk3pWn3auNKxLhgTmwmCKzOD9ofo4PpW2cy +3b5eAtloOUNnlS3oo7ff50tgGvAou7Jsn23BT35nVkZWJ4EWQ+pB6D5dDKt4 +FkCzjIfAj8LNVhx6uOmjubD1j2hobXF9dG+VHjpoaRC8BqJB9kFh9fq1enjt +daz0+ZfR0HaGVtLGo4f9JVUrUw+iQVHhwBUrET3kIdQ/1w2OhtcHy72tVPTw +y6nB6jTOaND5vovPyloPBVaNUdIUomBqNnmPZRb7/c56f9e/kTDQl+eQfU0P +WRo3XrcORULbI5bj9A095OXXtrNoi4SCc4POV/P0sDvl9+Wgq5HgQtR3+35P +D+/Xf9fOpkTCU5P3XomP9DC8rrpIIjwCrqerhT0f0sOj481jYTzhsFW75Zrl +Zn0MGR95v8kpFJzWbbPv1NZHr1cxSR+MQ+Hwh+f8jrr6KEcpXH1bIxRSk15G +HSLr40xYpZLvSgj0fu3xOmOsj96fy/me3gmBQ7nDusw9+qhpf+5C099giBHi +fCF/Wh9h98e0lLIgaJil/13o0Mcl3QU1ve2BkNdefcDutT7mz+3JMKEFQuxt +vbbSbn18l5Bv664WCJaOGlc9+/SR5nPueiNXIPTUEsjdn/XxHyvyosLT4zAW +/TuwdE4ff74LozuYHAdxweqxQwQD9Ml4I2FvEQDHNHXfvfY0QP6N32d/jPpB +8ALhj7uPAUZcWOv75ZkfRDatJkweNkARmUP3/xb5QZLTG+f1AQY43+bgHHLM +D+7GhvWbhBtg6uh1g3uLR2BooKGvMtUAty1ldP0VOgIOKdvfXqk2QI4NCoUt +jr7AmDzU48xDQn3Z4JvCml4gXrc1v56XhEpDw/ktYl4weU49QE6AhGZTuqqp +K56Qo/CTd1SYhJI5ZdGO3Z7wzz7CNECahP6T6jOvIzzhcV16Rbw2CeU/R407 +dx4C48SGtMo9JHyS0nHV6dxBMFeS3MGfT8L6CWVFsvp+qJp4qnCogIQF0Q4f +6iX3g1L1ifnaQhIuT92h23LthzVWr276FLO/T2iqLB7xgCb/+JnmKhKSOvN2 +S+Z6gFHdXGb4MxIeWxTd0yHlASTb10Nfx0noHrTs1KDjBoXEM9VGUyQ8Ulk+ +HS/kBmKjmslXpklogSlcfjP7YC40wcB0noRHj6TaJ1Xtg4psSMhZIWGpHwdR +mrYPtL/f37xHmIyZV1bXnLByBdWo82FNZDJSjwvE+5xxgXr67bXWNDI+31Q0 +xdjvAjYLjy++MSRjTq1/2xZTFwg79qvkmzEZN6s1+wVxuUCrq8dnAWsy8ubX +ZR1IdwYfKslqrwcZD2RfPtB+zwmKZj4T5xLI+EPqd8qmWQcwKl26eyqJjBx3 +i05d63OALl8JElcqGffLC7SoNjjAn0FrG8IlMi51fOXMTHQAq1fVsZhNRpdX +IxeqFRxgrDhlIrmcjEOvOc7NOewBdU/qY+V3ZLRNfcjzqMcOLiju/HN2gIwf +fH7a/W2wg7lPBwyGPpKxaYE6t7PIDhpckotzhsnoY9o1ZXDaDmxtPmVKTJDR +VZc+zKFmByfpcQE8HBQccCvxiIixhVah1woTyhSsXDZQP2+2Gza/GnXdrkpB +ibiLKbu37IaLyX8yi9QpqMVfqKgpuxtcuZQEvLQpqKprnktYtIGppZA/HykU +PBa2Tv59iQ2If5Pu7txOwafpf3kGpGzAs8Entuo4BcssRRYGVu2EyaNjoeZB +FAwI/vdN+eMOCJPxO9IbQsHFrMNWmTU74Hykv+1iBAXp3zWaZgJ2QBktRN4w +noKlha5OCZ+tYYl1tr75GgVtIznE+Nu2w8UHOXNdzRQk+qVgeLUlSLvLfzvY +QsFthzm7EjIt4bZA/vu5Vgp6r7yg14VawsOjt5vEOyhooFDPl0SxhA8aJWku +fRQcX3Lo66rbBqp3azSHxin4tcRMaLR1KzzO7Tk0LUbF2DfSDmpL5jBoreAe +IknFR5wnbGcGzYHj91HnvwQqdhzFvv6n5mCym2vnWnkqWjukcK9JM4cWThpZ +Sp2KG4r16/5TNof2Azd5jI2o+PKMWlmrgxm8UzpcmuZFxRz+mH56hwn87WTd +FfOl4rHOpuZslglIn1p969oRKob9oBUSbprAvjc3MgsCqNhtcvProQATGIx7 +FfUwnIp3W1lHKKIm8PWLvt1gKhWvPTvBeOJhDHN3Vxa0q6no7eWaW8OH8MXB +IjexhopTowOKO2YB+takbBuuoyJLO2GfzUuAOg/C1YxGKgpP6xl1RQPESBrQ +lp9Tsc3wt/vjcSMQTDgc2TZAxb4sHSWZNgZoer/h8FxFw36zVXMDeXSQFZMu +alhDw5PVnAmZUXQQbD6wW5KLhpn2so9C3OkwK/sz7wUvDW8nZkfky9Chtne9 +qa4YDV/qZnsVX6fBNguMW9lEQ/cEUfqhHCocVC7mubaDhsmChyajH5Eh/Knb +YRUbGu4YTheRzSFDmqfwiwpbGponNZkNniZD/e2TyS8caThD/KDSi2QQVdm2 +YXk/DQ++WzpxtoUELSqjoh4hNFzL8flvY58BqKvKyavcpCEfTfECU0IfsLUr +qiKPht1zF/a0LOmBg0/8Z6MCGnKStbYvftaDs3cn8h2LaDj+o2TL4xI9GFCt +V06spOFD9fWzPaZ6kKrmrDH+jIZ3Su5Mc4TpwrT6JVLFTxou8kfyey/oQF87 +movM0nDsZYnT4GcdaDw2aRf0i4YfszJeBrbrQGqF5XHSHxrKNQ61DeXpgDqN +o6R2NR3F88r1x3fowAHLowrN4nS83pRBk96jDT3eW/l6DOnI+LWcXDemCXU8 +vwgGQEe7XoW8K081Ib84Xy3DmI7HBJVbrudqQsDUsoWTBR1ptebxGo6awB9a +FT2wi45O1z802rVogEW8wsLIATqaP02ozylRh4cFfz//SqCjWqrw4ZFMVSCZ +Bi1YJdExgKTAmximCszP43y5KXSMvclbbOusChWyH8lWF+kYf/eMpT1RFUqy +GlNyrrPj2xhV8+VtgtzkOOrWUjq23paP0qlUgcSgDelZ3XSkZFn6Gk4rAbdI +QuHEGzo2YCEvuVcJ4ss56k366FjjbctpW6cEsZPTX8YH6Oi2luTyLU4JTvv0 +GBp/oeOgcePMRWklCHS9+u37Ih3vLcw++G/XRnAx24h0WUM0j/JJvN6uAMs9 +3ALN8oYY94qx7FWpALmek++tNhpiVW7FVbtrCvAlvibURdUQ9SQL71/wUYDA +57senNQ1xHhJ3tnUdQpwfmek7EMLQ7xl6LQuYZs81Dq9WdL3N0RZPlOv2hYZ +2Pe9tq3+uCESTv2Xz3VDBjjCc7PMggzx7aaPH1KOy4DF9SP69icN8VWcGM1M +Rga6PnD6nThriGo333LuDpWGsQNa78szDbH+0tXIBwZEIB49V6PVaIhcL+4c +qeqXhNQVL4OkJkPUsX15mPuhJKy6aFH+9YkhOrm+mo/PkIQx1tqi3OeGSLl6 +/Ocqe0mo5YjNEu42xMKr0cLTnRLgcjkqdH7UEI0UxhcjusQhq+6kQQMvA88z +xK+unRUFvp3O5QQBBtaUvA/a1SsKUYOUzaGCDJT/e1SkoUYUfNYuKumIMXB1 +g/Q4d7QokHeFiObLMlDBJ3GvjZAo9A4FzsZtYaDNeoJ5NEUExNb7le9wZOC9 +oGt91rlCUGB6KvynMwO7BK2teOKEQPdUquklVwbOK7J0J3yFYOfPsjd9+xm4 +hul9RV1fCOJ7f/0+6MfA+8d+TAW3CcJi/hmT8GgGKmrcOWS2tAHe0S91FxYz +sDFgP3mSgx98ggtuWJYysG2iXTKmmw/mS5me42UMJF/vKXIq5ANhxb6FLSwG +Fr5xOt5uzQfbuWWkHzUyUEeC1f7kBi/U9xQe6n7DQBbXx5fF29aDlcDDzSF9 +DFT61LfFWG499G19Pi/5noEFY3KvReZ5YK72R4LbIAP5ZzlP+BfwwOY8nfvf +x9j5OJbrL6zmgfp3xiHJEwzkMe3wODrADVaidqD9k4HhP2IMZJnc4HUu+HXQ +LwaaXv2coeXNDXON8dckFhnokn/jbApyQ8yfzIO1fxj4LlOwX5nADYL6RZr7 +lhn4b53RtoVZLsg5WvtrZYWBIrPnYjg7uOB/Ca6OUQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.08835021063401638}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10617,6 +11907,7 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10644,7 +11935,8 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.08835021063401638}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10652,22 +11944,730 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991324915847246*^9}, + CellChangeTimes->{3.991324915847246*^9, 3.993852211277273*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] + "Out[128]=",ExpressionUUID->"2987efed-ddd9-408f-94eb-2d3455dbe161"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, - 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ -4f98a6653ef7"], + 3.991924419552084*^9}, + CellLabel-> + "In[129]:=",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799819852022*^9, - 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ -6e6b94590d4b"], + CellChangeTimes->{{3.991799819852022*^9, 3.9917998213158054`*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c41f8XAHBayMge99ohK2Tc6TrHLFIJWQkNqxTJChVCZEQDDUJSIln3 +yki+lCRJSJRKRkNGRqjI7/7++jyv5/k8n3Oe8z7nvJ+PwgF/W89VHBwc2Zwc +HP9/zn98/kQpqcBIZlS6qHF0u1FPjuRJ474YGLoQWq+VqQYo9uqAZN9FsFVS +8ZvJoEKIzb23q/vywe6k/YknGZYgNClx8ffbCpDL+qd/LMMZPtXv9J972wRq +5jbiFld8wUJp7MP02y4Q0wqNa0g7Cb/fkq/8fDsE5Xp7A6pOJ0Kz6Z2C1/mz +kH2i9hG/0TWQ/lTz5YDmMjjrz27WkrsFon7u97hMV+POwS8WTVl34eIWi7qd +e7gxliurx3XuPmi/d97K8OHG8piZ18JcpdAee7RbI4Ibv5N8XzVIlcK6vss/ +uPO4keucAWvRqBQiTg8Tm8e50SFt2+3ZhFI49CIqkhzLg38XbxZzEh8AybOO +IV+5Hkc/n7EsJZZBf5ZO47QgPxYtwxYe1XK41l28IUSZH7fdCW55pFMOLgKb +3P9Q+dFhRKv3CLUcBs7K/Ft1kB8rCt/srbIqh8Fj6w1FmfwYFXjq8bxfOXwz +G6kmOQvguQNrZ4zKymHxZ+aDiLwNOPSwXKNjSwXUaIisrDA34Em/0/33qRUQ +7pW6M7ZtAx7vWG6IN66ApfexE8mzGzDc+rWa0u4KiBp+KPZKURBH6B+t+QMq +ILbjtt1gkCB6B49aZJZUQFLBmVerpITwZl5o/2n5SrDS9xUW2yiEo5S6q/s3 +VQL3E9s9mzYL4aef6rkMrUqIHVZ+v91YCAUn7oV/pldCpGL7l8u+Quh9v92s +z6ESjuVK/lOpFcJGT3ft6KRK2H2jXHP7XmHcseM0pWaqEgQ1r/vv8xRGodr4 +oqZfldBRF1vh7y+ME6t4jJ/+Zcd/70i5fFYYKfyJg0yuKjAh/DP9UCyMvbVl +L83kqkA/y2qv/5IwnhUVfyW5owokLg8nXsoWQeelD8VXblWBpAYzdrFQBO+5 +rf/pe7cKCE3xZ/aViWDFgKsO5X4VyP5UC97ULIJ2dTcKmlhVoGwd4FH3TQRj +3M0cLjyvAr01y6RhPVE87BPyiGuyCnYFiY/otoniKe1y9SBdJtjwfvuY2S2K +IW8l/ztHYoJtfk3/0oAomvzeY3uFxgSHTtdXLVOiOC8w7JljwoR9mrdqXcTE +8MazkT0+tkw4MqKdHuMhhmdzI8+9D2DCOXtLo655Meyq69UxLmICoaqDsIpT +HC0thdUHSphQKmK/sIVXHG+9qSUElDGht8utLF1OHA/FtI/EVDNBaXeQ4u5t +4pjgKKJl/5QJTTturuu8Ko7xXjTdwk/sfO4rDa/cEsetpcS5ziEmjPHde6xd +Ko76HosP50aZINReFXahSRzVDq3btWmcCR5WbWM7f4ijxeLEE8oiE5YtfnW8 +NJTAHA/3O/wbWJBWGF68bCGB52I+rn0uxAKldRwJm3dLYN3d0yGnRFlg/XS9 +cYqnBJYHe118LcWCa6byldapEtjsF9ytosQCCm7PfPFJAoV5v4fHk1nQfrPz +xN/vEngnJj+mm8oCj5U9NhpzEtjZKfNAypAF5xo8eJK4JfGeysmIdGRBr2FI +hNUWSVyodFqnbcmCE9Q89+cxktg5bCu60ZkFVrkCc9uTJTFn5qDLsAsLFLki +EzquSKKN58uabFcWdPY4lHfflUTe26efc3iwQCuAb/XHDkmMHa3eGeXFgrVv +T2Z69Emir1pftJAPCwYYXzWGP0vi4wJa3w1fFiTxNtl/m5PEJ0bfZ/P8WPCt +MLRwhiCFuQ4+vF6BLHjMP0oLVpLCtoY1p1pPsCAjyPbVwmYpnL7oLa0czAJz +k82LSyiFG55MfW8PZUH+hyFLLm8plB3M+tIbyQJX0Z0TxEoplC/3zX8TxwK9 +iLronHoprA7YkfU+ngXrh1TFFVqkkO+/pq7351hQ82A1qPRLIUnLk/gikQXi +22vSdFakkJtbRsUzhQUT5SrKldwE7DIQOsJIZcETycs1BsIETI1+yyF4gV2/ +L8eGaMoEZHArKxeksesTraRvvp2AlRKWpxIuseDOt/TWZ/YE5Jg2Dda7zILT +u1ZcrdwIyCn8qa2P7c0y7+J2HSdgdlr8FeEMFqyJ3UroCidgVPQg/x22B8aq +Su1jCbj1Q/CYQSYLzj+88NY5k4Cbota+NcliwX655SMDuQQU9HMba2SbEn+Y +w/0eAbl4ynyoV1nw1c5c7dAjAtL6hO5LXWNBQ23Foy8tBKxOTA+JZjtDQd7W +t5OAu79+Kx9m22zqT/ixYQIWpIvGZV5nwcltl9X/GydgW6Hopa9sl+Ztficy +T8DMsrW7dW+wYPhPS6LXCjte9sXGULYl7T2oNdxE7GL4DFezveP+72+8wkSs +szCom2E7Zt2lLDciEdda37NUzWZBtbvmtnIlInY3nkxzYnv84dOF1VpETPvl +mH6WbQVh9zsOZCI6iv/dUcS2w5FFhyIk4g41YutztpOepK9bsiSiKH8g5yjb +jTIarJ12RJQMrfv7h+1fIU8881yJyDdT9ZA3hwXqnfvE5jyJqDUgQ5Ng201t +4YmFPxHrPaujZdi+FJMWdDWMiDYXzNJl2W59r6Y0Hk1EA9XzhwlsL+k3dxsl +sfNt37lBiO0tqa5n0y8TcfWoS/Qqtr2+/tIdySaif35Y0yQ7/nW8MES6Q8TJ +fyd63rDdeVX1YmIZET/VEmqq2V47+5/xQA0R4/YaBl5mm2a9d1qrmYgH1O5x ++rHtf3suN7qdiMlaZF8jtgv+pdj0vCHiBoOH93jZ7nfcxLHpExHJT1e3drPr +K1De+ODkNyIubJxpymDbdL2Le/s0EXV378u2Zzvs4KyA3F8iKq5TcOZne0hM +5dgTfmk8GqUW6c8+Xwn/xzISEtLI2qr1VZJt61anl77y0rglk5f+iN0frPAk +zQ160tgWNlQwz+6vH91KA/sNpTHoclFDEtvymxuSqsylcWXrSCuR7fOffo45 +O0kj9ct+lia7Px9Tzl8r2S+NZiVnsu+z+3kufaPVymFpzHjUEqnGtpuZQ1HB +KWn8cT5L4//zoFtU5z2VL40TttLRd9jz5L1qj4RJiTSmHrfy4GD7xt7JlstM +aXSM3LvV/iIL1gkoqNBa2fkmKxhMsOfxXWD8SOwEO5540LNh9jxvaJe7/HZe +GvfPjMiIsW2mXGOqziGDpl2OycbJ7P5++yP/lbAMapwPqEk6z4Jow937CRQZ +PO2ynDLK3h/b3HJmyCYyGCBl0/SOvV8Eon6c3WMtg+4pJaZtsex8muMK0zxk +0HOnLiUrhgUPrWp/rEuUwS9tZXo/T7HgjB/XKaVLMvjII4b4kL2vLFLtBUyy +ZfBbzLRneAQLel5P6pwql0F1QtbmyTAW/HTaGDLbL4NKhpxvLrL3YXV4AJfQ +iAzKcJfIarH35ekbj7K0JmUwdmnt5+YAFvANOtb5rpLFM25z7z4eZcEm72SO +QXVZPGDtNtPlza5v8K/z7RGy+E83Wp3F3u/KmSbSY3GyuI9D1/aP0//n78J9 +rjRZ/OQkJU91ZEH4klqnSYEsCrlo1BbaseDKWTexmnZZbHCSoppYs++f9Gc3 +b8vI4Qmn0F+R7PuGVnq16vRjOZTt/eIgzr6/zN52LE+2yuGa47KzH8RZsJNj +zVb3LjnUeqNBy2Pfdwdtj/XDqByeke7vIgiy6xGhcCZqrTyWBGgHv1vHggC5 ++VvGGvJ4/fNdVsosE55435xoDpHHuZPbVHqfM8FyiSocGSGPJzrkBSWfMaEj +rYekHyWP9HqthT1PmNBfwxNVkCiPXeWBz542MGGSN0g47oY8irHCa4MrmSBZ +to1s0SSPs9pChlI3mOC3OB3Vyq+ALnz33aMPM4F23Ev8i7ACjks05q3yZgL3 +2Lvi1ZIK6P+afvHMQSbcft/ca6SogL6FFsl+rkz42HBFk0lSwPcXWsxFdjJh +Vxy1L89dAY89/a8/Q4cJusLR2hHlCtg6Erf6wkwV/NYQ/Lh5jyK2lVWJ8Byp +gvlsQrSeiyJejKMkFHpVwdwGZSWquyK+aJkqwQNVMDlLPWzmq4i6986IHnGu +gqG6g/MupxTxqutAbdbWKmjbXi2QcFsRVejRLi4bq+DaETcY+qWI071SGal9 +lWBYXJKbkbER+VP7SWG0SpgWtvJwaFLCJu1Sd+c/5TCS7OEQyKWCp4X3LR2M +LQPLqVDLUdIm/JfR0UHXLYXxg9wnqs6oss/r5KC4eDH7/0Ni1bkmNVTwejQz +InwXhF+qpJZNqWPagkfi1r23QTrhgQ2JpIkcOpZFNy7kQ5YGVVDEezO2Z8vS +QT4X2gjGBrPpWrg1+RZvYP91oEk3pWn3auNKxLhgTmwmCKzOD9ofo4PpW2cy +3b5eAtloOUNnlS3oo7ff50tgGvAou7Jsn23BT35nVkZWJ4EWQ+pB6D5dDKt4 +FkCzjIfAj8LNVhx6uOmjubD1j2hobXF9dG+VHjpoaRC8BqJB9kFh9fq1enjt +daz0+ZfR0HaGVtLGo4f9JVUrUw+iQVHhwBUrET3kIdQ/1w2OhtcHy72tVPTw +y6nB6jTOaND5vovPyloPBVaNUdIUomBqNnmPZRb7/c56f9e/kTDQl+eQfU0P +WRo3XrcORULbI5bj9A095OXXtrNoi4SCc4POV/P0sDvl9+Wgq5HgQtR3+35P +D+/Xf9fOpkTCU5P3XomP9DC8rrpIIjwCrqerhT0f0sOj481jYTzhsFW75Zrl +Zn0MGR95v8kpFJzWbbPv1NZHr1cxSR+MQ+Hwh+f8jrr6KEcpXH1bIxRSk15G +HSLr40xYpZLvSgj0fu3xOmOsj96fy/me3gmBQ7nDusw9+qhpf+5C099giBHi +fCF/Wh9h98e0lLIgaJil/13o0Mcl3QU1ve2BkNdefcDutT7mz+3JMKEFQuxt +vbbSbn18l5Bv664WCJaOGlc9+/SR5nPueiNXIPTUEsjdn/XxHyvyosLT4zAW +/TuwdE4ff74LozuYHAdxweqxQwQD9Ml4I2FvEQDHNHXfvfY0QP6N32d/jPpB +8ALhj7uPAUZcWOv75ZkfRDatJkweNkARmUP3/xb5QZLTG+f1AQY43+bgHHLM +D+7GhvWbhBtg6uh1g3uLR2BooKGvMtUAty1ldP0VOgIOKdvfXqk2QI4NCoUt +jr7AmDzU48xDQn3Z4JvCml4gXrc1v56XhEpDw/ktYl4weU49QE6AhGZTuqqp +K56Qo/CTd1SYhJI5ZdGO3Z7wzz7CNECahP6T6jOvIzzhcV16Rbw2CeU/R407 +dx4C48SGtMo9JHyS0nHV6dxBMFeS3MGfT8L6CWVFsvp+qJp4qnCogIQF0Q4f +6iX3g1L1ifnaQhIuT92h23LthzVWr276FLO/T2iqLB7xgCb/+JnmKhKSOvN2 +S+Z6gFHdXGb4MxIeWxTd0yHlASTb10Nfx0noHrTs1KDjBoXEM9VGUyQ8Ulk+ +HS/kBmKjmslXpklogSlcfjP7YC40wcB0noRHj6TaJ1Xtg4psSMhZIWGpHwdR +mrYPtL/f37xHmIyZV1bXnLByBdWo82FNZDJSjwvE+5xxgXr67bXWNDI+31Q0 +xdjvAjYLjy++MSRjTq1/2xZTFwg79qvkmzEZN6s1+wVxuUCrq8dnAWsy8ubX +ZR1IdwYfKslqrwcZD2RfPtB+zwmKZj4T5xLI+EPqd8qmWQcwKl26eyqJjBx3 +i05d63OALl8JElcqGffLC7SoNjjAn0FrG8IlMi51fOXMTHQAq1fVsZhNRpdX +IxeqFRxgrDhlIrmcjEOvOc7NOewBdU/qY+V3ZLRNfcjzqMcOLiju/HN2gIwf +fH7a/W2wg7lPBwyGPpKxaYE6t7PIDhpckotzhsnoY9o1ZXDaDmxtPmVKTJDR +VZc+zKFmByfpcQE8HBQccCvxiIixhVah1woTyhSsXDZQP2+2Gza/GnXdrkpB +ibiLKbu37IaLyX8yi9QpqMVfqKgpuxtcuZQEvLQpqKprnktYtIGppZA/HykU +PBa2Tv59iQ2If5Pu7txOwafpf3kGpGzAs8Entuo4BcssRRYGVu2EyaNjoeZB +FAwI/vdN+eMOCJPxO9IbQsHFrMNWmTU74Hykv+1iBAXp3zWaZgJ2QBktRN4w +noKlha5OCZ+tYYl1tr75GgVtIznE+Nu2w8UHOXNdzRQk+qVgeLUlSLvLfzvY +QsFthzm7EjIt4bZA/vu5Vgp6r7yg14VawsOjt5vEOyhooFDPl0SxhA8aJWku +fRQcX3Lo66rbBqp3azSHxin4tcRMaLR1KzzO7Tk0LUbF2DfSDmpL5jBoreAe +IknFR5wnbGcGzYHj91HnvwQqdhzFvv6n5mCym2vnWnkqWjukcK9JM4cWThpZ +Sp2KG4r16/5TNof2Azd5jI2o+PKMWlmrgxm8UzpcmuZFxRz+mH56hwn87WTd +FfOl4rHOpuZslglIn1p969oRKob9oBUSbprAvjc3MgsCqNhtcvProQATGIx7 +FfUwnIp3W1lHKKIm8PWLvt1gKhWvPTvBeOJhDHN3Vxa0q6no7eWaW8OH8MXB +IjexhopTowOKO2YB+takbBuuoyJLO2GfzUuAOg/C1YxGKgpP6xl1RQPESBrQ +lp9Tsc3wt/vjcSMQTDgc2TZAxb4sHSWZNgZoer/h8FxFw36zVXMDeXSQFZMu +alhDw5PVnAmZUXQQbD6wW5KLhpn2so9C3OkwK/sz7wUvDW8nZkfky9Chtne9 +qa4YDV/qZnsVX6fBNguMW9lEQ/cEUfqhHCocVC7mubaDhsmChyajH5Eh/Knb +YRUbGu4YTheRzSFDmqfwiwpbGponNZkNniZD/e2TyS8caThD/KDSi2QQVdm2 +YXk/DQ++WzpxtoUELSqjoh4hNFzL8flvY58BqKvKyavcpCEfTfECU0IfsLUr +qiKPht1zF/a0LOmBg0/8Z6MCGnKStbYvftaDs3cn8h2LaDj+o2TL4xI9GFCt +V06spOFD9fWzPaZ6kKrmrDH+jIZ3Su5Mc4TpwrT6JVLFTxou8kfyey/oQF87 +movM0nDsZYnT4GcdaDw2aRf0i4YfszJeBrbrQGqF5XHSHxrKNQ61DeXpgDqN +o6R2NR3F88r1x3fowAHLowrN4nS83pRBk96jDT3eW/l6DOnI+LWcXDemCXU8 +vwgGQEe7XoW8K081Ib84Xy3DmI7HBJVbrudqQsDUsoWTBR1ptebxGo6awB9a +FT2wi45O1z802rVogEW8wsLIATqaP02ozylRh4cFfz//SqCjWqrw4ZFMVSCZ +Bi1YJdExgKTAmximCszP43y5KXSMvclbbOusChWyH8lWF+kYf/eMpT1RFUqy +GlNyrrPj2xhV8+VtgtzkOOrWUjq23paP0qlUgcSgDelZ3XSkZFn6Gk4rAbdI +QuHEGzo2YCEvuVcJ4ss56k366FjjbctpW6cEsZPTX8YH6Oi2luTyLU4JTvv0 +GBp/oeOgcePMRWklCHS9+u37Ih3vLcw++G/XRnAx24h0WUM0j/JJvN6uAMs9 +3ALN8oYY94qx7FWpALmek++tNhpiVW7FVbtrCvAlvibURdUQ9SQL71/wUYDA +57senNQ1xHhJ3tnUdQpwfmek7EMLQ7xl6LQuYZs81Dq9WdL3N0RZPlOv2hYZ +2Pe9tq3+uCESTv2Xz3VDBjjCc7PMggzx7aaPH1KOy4DF9SP69icN8VWcGM1M +Rga6PnD6nThriGo333LuDpWGsQNa78szDbH+0tXIBwZEIB49V6PVaIhcL+4c +qeqXhNQVL4OkJkPUsX15mPuhJKy6aFH+9YkhOrm+mo/PkIQx1tqi3OeGSLl6 +/Ocqe0mo5YjNEu42xMKr0cLTnRLgcjkqdH7UEI0UxhcjusQhq+6kQQMvA88z +xK+unRUFvp3O5QQBBtaUvA/a1SsKUYOUzaGCDJT/e1SkoUYUfNYuKumIMXB1 +g/Q4d7QokHeFiObLMlDBJ3GvjZAo9A4FzsZtYaDNeoJ5NEUExNb7le9wZOC9 +oGt91rlCUGB6KvynMwO7BK2teOKEQPdUquklVwbOK7J0J3yFYOfPsjd9+xm4 +hul9RV1fCOJ7f/0+6MfA+8d+TAW3CcJi/hmT8GgGKmrcOWS2tAHe0S91FxYz +sDFgP3mSgx98ggtuWJYysG2iXTKmmw/mS5me42UMJF/vKXIq5ANhxb6FLSwG +Fr5xOt5uzQfbuWWkHzUyUEeC1f7kBi/U9xQe6n7DQBbXx5fF29aDlcDDzSF9 +DFT61LfFWG499G19Pi/5noEFY3KvReZ5YK72R4LbIAP5ZzlP+BfwwOY8nfvf +x9j5OJbrL6zmgfp3xiHJEwzkMe3wODrADVaidqD9k4HhP2IMZJnc4HUu+HXQ +LwaaXv2coeXNDXON8dckFhnokn/jbApyQ8yfzIO1fxj4LlOwX5nADYL6RZr7 +lhn4b53RtoVZLsg5WvtrZYWBIrPnYjg7uOB/Ca6OUQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c41f8XAHBayMge99ohK2Tc6TrHLFIJWQkNqxTJChVCZEQDDUJSIln3 +yki+lCRJSJRKRkNGRqjI7/7++jyv5/k8n3Oe8z7nvJ+PwgF/W89VHBwc2Zwc +HP9/zn98/kQpqcBIZlS6qHF0u1FPjuRJ474YGLoQWq+VqQYo9uqAZN9FsFVS +8ZvJoEKIzb23q/vywe6k/YknGZYgNClx8ffbCpDL+qd/LMMZPtXv9J972wRq +5jbiFld8wUJp7MP02y4Q0wqNa0g7Cb/fkq/8fDsE5Xp7A6pOJ0Kz6Z2C1/mz +kH2i9hG/0TWQ/lTz5YDmMjjrz27WkrsFon7u97hMV+POwS8WTVl34eIWi7qd +e7gxliurx3XuPmi/d97K8OHG8piZ18JcpdAee7RbI4Ibv5N8XzVIlcK6vss/ +uPO4keucAWvRqBQiTg8Tm8e50SFt2+3ZhFI49CIqkhzLg38XbxZzEh8AybOO +IV+5Hkc/n7EsJZZBf5ZO47QgPxYtwxYe1XK41l28IUSZH7fdCW55pFMOLgKb +3P9Q+dFhRKv3CLUcBs7K/Ft1kB8rCt/srbIqh8Fj6w1FmfwYFXjq8bxfOXwz +G6kmOQvguQNrZ4zKymHxZ+aDiLwNOPSwXKNjSwXUaIisrDA34Em/0/33qRUQ +7pW6M7ZtAx7vWG6IN66ApfexE8mzGzDc+rWa0u4KiBp+KPZKURBH6B+t+QMq +ILbjtt1gkCB6B49aZJZUQFLBmVerpITwZl5o/2n5SrDS9xUW2yiEo5S6q/s3 +VQL3E9s9mzYL4aef6rkMrUqIHVZ+v91YCAUn7oV/pldCpGL7l8u+Quh9v92s +z6ESjuVK/lOpFcJGT3ft6KRK2H2jXHP7XmHcseM0pWaqEgQ1r/vv8xRGodr4 +oqZfldBRF1vh7y+ME6t4jJ/+Zcd/70i5fFYYKfyJg0yuKjAh/DP9UCyMvbVl +L83kqkA/y2qv/5IwnhUVfyW5owokLg8nXsoWQeelD8VXblWBpAYzdrFQBO+5 +rf/pe7cKCE3xZ/aViWDFgKsO5X4VyP5UC97ULIJ2dTcKmlhVoGwd4FH3TQRj +3M0cLjyvAr01y6RhPVE87BPyiGuyCnYFiY/otoniKe1y9SBdJtjwfvuY2S2K +IW8l/ztHYoJtfk3/0oAomvzeY3uFxgSHTtdXLVOiOC8w7JljwoR9mrdqXcTE +8MazkT0+tkw4MqKdHuMhhmdzI8+9D2DCOXtLo655Meyq69UxLmICoaqDsIpT +HC0thdUHSphQKmK/sIVXHG+9qSUElDGht8utLF1OHA/FtI/EVDNBaXeQ4u5t +4pjgKKJl/5QJTTturuu8Ko7xXjTdwk/sfO4rDa/cEsetpcS5ziEmjPHde6xd +Ko76HosP50aZINReFXahSRzVDq3btWmcCR5WbWM7f4ijxeLEE8oiE5YtfnW8 +NJTAHA/3O/wbWJBWGF68bCGB52I+rn0uxAKldRwJm3dLYN3d0yGnRFlg/XS9 +cYqnBJYHe118LcWCa6byldapEtjsF9ytosQCCm7PfPFJAoV5v4fHk1nQfrPz +xN/vEngnJj+mm8oCj5U9NhpzEtjZKfNAypAF5xo8eJK4JfGeysmIdGRBr2FI +hNUWSVyodFqnbcmCE9Q89+cxktg5bCu60ZkFVrkCc9uTJTFn5qDLsAsLFLki +EzquSKKN58uabFcWdPY4lHfflUTe26efc3iwQCuAb/XHDkmMHa3eGeXFgrVv +T2Z69Emir1pftJAPCwYYXzWGP0vi4wJa3w1fFiTxNtl/m5PEJ0bfZ/P8WPCt +MLRwhiCFuQ4+vF6BLHjMP0oLVpLCtoY1p1pPsCAjyPbVwmYpnL7oLa0czAJz +k82LSyiFG55MfW8PZUH+hyFLLm8plB3M+tIbyQJX0Z0TxEoplC/3zX8TxwK9 +iLronHoprA7YkfU+ngXrh1TFFVqkkO+/pq7351hQ82A1qPRLIUnLk/gikQXi +22vSdFakkJtbRsUzhQUT5SrKldwE7DIQOsJIZcETycs1BsIETI1+yyF4gV2/ +L8eGaMoEZHArKxeksesTraRvvp2AlRKWpxIuseDOt/TWZ/YE5Jg2Dda7zILT +u1ZcrdwIyCn8qa2P7c0y7+J2HSdgdlr8FeEMFqyJ3UroCidgVPQg/x22B8aq +Su1jCbj1Q/CYQSYLzj+88NY5k4Cbota+NcliwX655SMDuQQU9HMba2SbEn+Y +w/0eAbl4ynyoV1nw1c5c7dAjAtL6hO5LXWNBQ23Foy8tBKxOTA+JZjtDQd7W +t5OAu79+Kx9m22zqT/ixYQIWpIvGZV5nwcltl9X/GydgW6Hopa9sl+Ztficy +T8DMsrW7dW+wYPhPS6LXCjte9sXGULYl7T2oNdxE7GL4DFezveP+72+8wkSs +szCom2E7Zt2lLDciEdda37NUzWZBtbvmtnIlInY3nkxzYnv84dOF1VpETPvl +mH6WbQVh9zsOZCI6iv/dUcS2w5FFhyIk4g41YutztpOepK9bsiSiKH8g5yjb +jTIarJ12RJQMrfv7h+1fIU8881yJyDdT9ZA3hwXqnfvE5jyJqDUgQ5Ng201t +4YmFPxHrPaujZdi+FJMWdDWMiDYXzNJl2W59r6Y0Hk1EA9XzhwlsL+k3dxsl +sfNt37lBiO0tqa5n0y8TcfWoS/Qqtr2+/tIdySaif35Y0yQ7/nW8MES6Q8TJ +fyd63rDdeVX1YmIZET/VEmqq2V47+5/xQA0R4/YaBl5mm2a9d1qrmYgH1O5x ++rHtf3suN7qdiMlaZF8jtgv+pdj0vCHiBoOH93jZ7nfcxLHpExHJT1e3drPr +K1De+ODkNyIubJxpymDbdL2Le/s0EXV378u2Zzvs4KyA3F8iKq5TcOZne0hM +5dgTfmk8GqUW6c8+Xwn/xzISEtLI2qr1VZJt61anl77y0rglk5f+iN0frPAk +zQ160tgWNlQwz+6vH91KA/sNpTHoclFDEtvymxuSqsylcWXrSCuR7fOffo45 +O0kj9ct+lia7Px9Tzl8r2S+NZiVnsu+z+3kufaPVymFpzHjUEqnGtpuZQ1HB +KWn8cT5L4//zoFtU5z2VL40TttLRd9jz5L1qj4RJiTSmHrfy4GD7xt7JlstM +aXSM3LvV/iIL1gkoqNBa2fkmKxhMsOfxXWD8SOwEO5540LNh9jxvaJe7/HZe +GvfPjMiIsW2mXGOqziGDpl2OycbJ7P5++yP/lbAMapwPqEk6z4Jow937CRQZ +PO2ynDLK3h/b3HJmyCYyGCBl0/SOvV8Eon6c3WMtg+4pJaZtsex8muMK0zxk +0HOnLiUrhgUPrWp/rEuUwS9tZXo/T7HgjB/XKaVLMvjII4b4kL2vLFLtBUyy +ZfBbzLRneAQLel5P6pwql0F1QtbmyTAW/HTaGDLbL4NKhpxvLrL3YXV4AJfQ +iAzKcJfIarH35ekbj7K0JmUwdmnt5+YAFvANOtb5rpLFM25z7z4eZcEm72SO +QXVZPGDtNtPlza5v8K/z7RGy+E83Wp3F3u/KmSbSY3GyuI9D1/aP0//n78J9 +rjRZ/OQkJU91ZEH4klqnSYEsCrlo1BbaseDKWTexmnZZbHCSoppYs++f9Gc3 +b8vI4Qmn0F+R7PuGVnq16vRjOZTt/eIgzr6/zN52LE+2yuGa47KzH8RZsJNj +zVb3LjnUeqNBy2Pfdwdtj/XDqByeke7vIgiy6xGhcCZqrTyWBGgHv1vHggC5 ++VvGGvJ4/fNdVsosE55435xoDpHHuZPbVHqfM8FyiSocGSGPJzrkBSWfMaEj +rYekHyWP9HqthT1PmNBfwxNVkCiPXeWBz542MGGSN0g47oY8irHCa4MrmSBZ +to1s0SSPs9pChlI3mOC3OB3Vyq+ALnz33aMPM4F23Ev8i7ACjks05q3yZgL3 +2Lvi1ZIK6P+afvHMQSbcft/ca6SogL6FFsl+rkz42HBFk0lSwPcXWsxFdjJh +Vxy1L89dAY89/a8/Q4cJusLR2hHlCtg6Erf6wkwV/NYQ/Lh5jyK2lVWJ8Byp +gvlsQrSeiyJejKMkFHpVwdwGZSWquyK+aJkqwQNVMDlLPWzmq4i6986IHnGu +gqG6g/MupxTxqutAbdbWKmjbXi2QcFsRVejRLi4bq+DaETcY+qWI071SGal9 +lWBYXJKbkbER+VP7SWG0SpgWtvJwaFLCJu1Sd+c/5TCS7OEQyKWCp4X3LR2M +LQPLqVDLUdIm/JfR0UHXLYXxg9wnqs6oss/r5KC4eDH7/0Ni1bkmNVTwejQz +InwXhF+qpJZNqWPagkfi1r23QTrhgQ2JpIkcOpZFNy7kQ5YGVVDEezO2Z8vS +QT4X2gjGBrPpWrg1+RZvYP91oEk3pWn3auNKxLhgTmwmCKzOD9ofo4PpW2cy +3b5eAtloOUNnlS3oo7ff50tgGvAou7Jsn23BT35nVkZWJ4EWQ+pB6D5dDKt4 +FkCzjIfAj8LNVhx6uOmjubD1j2hobXF9dG+VHjpoaRC8BqJB9kFh9fq1enjt +daz0+ZfR0HaGVtLGo4f9JVUrUw+iQVHhwBUrET3kIdQ/1w2OhtcHy72tVPTw +y6nB6jTOaND5vovPyloPBVaNUdIUomBqNnmPZRb7/c56f9e/kTDQl+eQfU0P +WRo3XrcORULbI5bj9A095OXXtrNoi4SCc4POV/P0sDvl9+Wgq5HgQtR3+35P +D+/Xf9fOpkTCU5P3XomP9DC8rrpIIjwCrqerhT0f0sOj481jYTzhsFW75Zrl +Zn0MGR95v8kpFJzWbbPv1NZHr1cxSR+MQ+Hwh+f8jrr6KEcpXH1bIxRSk15G +HSLr40xYpZLvSgj0fu3xOmOsj96fy/me3gmBQ7nDusw9+qhpf+5C099giBHi +fCF/Wh9h98e0lLIgaJil/13o0Mcl3QU1ve2BkNdefcDutT7mz+3JMKEFQuxt +vbbSbn18l5Bv664WCJaOGlc9+/SR5nPueiNXIPTUEsjdn/XxHyvyosLT4zAW +/TuwdE4ff74LozuYHAdxweqxQwQD9Ml4I2FvEQDHNHXfvfY0QP6N32d/jPpB +8ALhj7uPAUZcWOv75ZkfRDatJkweNkARmUP3/xb5QZLTG+f1AQY43+bgHHLM +D+7GhvWbhBtg6uh1g3uLR2BooKGvMtUAty1ldP0VOgIOKdvfXqk2QI4NCoUt +jr7AmDzU48xDQn3Z4JvCml4gXrc1v56XhEpDw/ktYl4weU49QE6AhGZTuqqp +K56Qo/CTd1SYhJI5ZdGO3Z7wzz7CNECahP6T6jOvIzzhcV16Rbw2CeU/R407 +dx4C48SGtMo9JHyS0nHV6dxBMFeS3MGfT8L6CWVFsvp+qJp4qnCogIQF0Q4f +6iX3g1L1ifnaQhIuT92h23LthzVWr276FLO/T2iqLB7xgCb/+JnmKhKSOvN2 +S+Z6gFHdXGb4MxIeWxTd0yHlASTb10Nfx0noHrTs1KDjBoXEM9VGUyQ8Ulk+ +HS/kBmKjmslXpklogSlcfjP7YC40wcB0noRHj6TaJ1Xtg4psSMhZIWGpHwdR +mrYPtL/f37xHmIyZV1bXnLByBdWo82FNZDJSjwvE+5xxgXr67bXWNDI+31Q0 +xdjvAjYLjy++MSRjTq1/2xZTFwg79qvkmzEZN6s1+wVxuUCrq8dnAWsy8ubX +ZR1IdwYfKslqrwcZD2RfPtB+zwmKZj4T5xLI+EPqd8qmWQcwKl26eyqJjBx3 +i05d63OALl8JElcqGffLC7SoNjjAn0FrG8IlMi51fOXMTHQAq1fVsZhNRpdX +IxeqFRxgrDhlIrmcjEOvOc7NOewBdU/qY+V3ZLRNfcjzqMcOLiju/HN2gIwf +fH7a/W2wg7lPBwyGPpKxaYE6t7PIDhpckotzhsnoY9o1ZXDaDmxtPmVKTJDR +VZc+zKFmByfpcQE8HBQccCvxiIixhVah1woTyhSsXDZQP2+2Gza/GnXdrkpB +ibiLKbu37IaLyX8yi9QpqMVfqKgpuxtcuZQEvLQpqKprnktYtIGppZA/HykU +PBa2Tv59iQ2If5Pu7txOwafpf3kGpGzAs8Entuo4BcssRRYGVu2EyaNjoeZB +FAwI/vdN+eMOCJPxO9IbQsHFrMNWmTU74Hykv+1iBAXp3zWaZgJ2QBktRN4w +noKlha5OCZ+tYYl1tr75GgVtIznE+Nu2w8UHOXNdzRQk+qVgeLUlSLvLfzvY +QsFthzm7EjIt4bZA/vu5Vgp6r7yg14VawsOjt5vEOyhooFDPl0SxhA8aJWku +fRQcX3Lo66rbBqp3azSHxin4tcRMaLR1KzzO7Tk0LUbF2DfSDmpL5jBoreAe +IknFR5wnbGcGzYHj91HnvwQqdhzFvv6n5mCym2vnWnkqWjukcK9JM4cWThpZ +Sp2KG4r16/5TNof2Azd5jI2o+PKMWlmrgxm8UzpcmuZFxRz+mH56hwn87WTd +FfOl4rHOpuZslglIn1p969oRKob9oBUSbprAvjc3MgsCqNhtcvProQATGIx7 +FfUwnIp3W1lHKKIm8PWLvt1gKhWvPTvBeOJhDHN3Vxa0q6no7eWaW8OH8MXB +IjexhopTowOKO2YB+takbBuuoyJLO2GfzUuAOg/C1YxGKgpP6xl1RQPESBrQ +lp9Tsc3wt/vjcSMQTDgc2TZAxb4sHSWZNgZoer/h8FxFw36zVXMDeXSQFZMu +alhDw5PVnAmZUXQQbD6wW5KLhpn2so9C3OkwK/sz7wUvDW8nZkfky9Chtne9 +qa4YDV/qZnsVX6fBNguMW9lEQ/cEUfqhHCocVC7mubaDhsmChyajH5Eh/Knb +YRUbGu4YTheRzSFDmqfwiwpbGponNZkNniZD/e2TyS8caThD/KDSi2QQVdm2 +YXk/DQ++WzpxtoUELSqjoh4hNFzL8flvY58BqKvKyavcpCEfTfECU0IfsLUr +qiKPht1zF/a0LOmBg0/8Z6MCGnKStbYvftaDs3cn8h2LaDj+o2TL4xI9GFCt +V06spOFD9fWzPaZ6kKrmrDH+jIZ3Su5Mc4TpwrT6JVLFTxou8kfyey/oQF87 +movM0nDsZYnT4GcdaDw2aRf0i4YfszJeBrbrQGqF5XHSHxrKNQ61DeXpgDqN +o6R2NR3F88r1x3fowAHLowrN4nS83pRBk96jDT3eW/l6DOnI+LWcXDemCXU8 +vwgGQEe7XoW8K081Ib84Xy3DmI7HBJVbrudqQsDUsoWTBR1ptebxGo6awB9a +FT2wi45O1z802rVogEW8wsLIATqaP02ozylRh4cFfz//SqCjWqrw4ZFMVSCZ +Bi1YJdExgKTAmximCszP43y5KXSMvclbbOusChWyH8lWF+kYf/eMpT1RFUqy +GlNyrrPj2xhV8+VtgtzkOOrWUjq23paP0qlUgcSgDelZ3XSkZFn6Gk4rAbdI +QuHEGzo2YCEvuVcJ4ss56k366FjjbctpW6cEsZPTX8YH6Oi2luTyLU4JTvv0 +GBp/oeOgcePMRWklCHS9+u37Ih3vLcw++G/XRnAx24h0WUM0j/JJvN6uAMs9 +3ALN8oYY94qx7FWpALmek++tNhpiVW7FVbtrCvAlvibURdUQ9SQL71/wUYDA +57senNQ1xHhJ3tnUdQpwfmek7EMLQ7xl6LQuYZs81Dq9WdL3N0RZPlOv2hYZ +2Pe9tq3+uCESTv2Xz3VDBjjCc7PMggzx7aaPH1KOy4DF9SP69icN8VWcGM1M +Rga6PnD6nThriGo333LuDpWGsQNa78szDbH+0tXIBwZEIB49V6PVaIhcL+4c +qeqXhNQVL4OkJkPUsX15mPuhJKy6aFH+9YkhOrm+mo/PkIQx1tqi3OeGSLl6 +/Ocqe0mo5YjNEu42xMKr0cLTnRLgcjkqdH7UEI0UxhcjusQhq+6kQQMvA88z +xK+unRUFvp3O5QQBBtaUvA/a1SsKUYOUzaGCDJT/e1SkoUYUfNYuKumIMXB1 +g/Q4d7QokHeFiObLMlDBJ3GvjZAo9A4FzsZtYaDNeoJ5NEUExNb7le9wZOC9 +oGt91rlCUGB6KvynMwO7BK2teOKEQPdUquklVwbOK7J0J3yFYOfPsjd9+xm4 +hul9RV1fCOJ7f/0+6MfA+8d+TAW3CcJi/hmT8GgGKmrcOWS2tAHe0S91FxYz +sDFgP3mSgx98ggtuWJYysG2iXTKmmw/mS5me42UMJF/vKXIq5ANhxb6FLSwG +Fr5xOt5uzQfbuWWkHzUyUEeC1f7kBi/U9xQe6n7DQBbXx5fF29aDlcDDzSF9 +DFT61LfFWG499G19Pi/5noEFY3KvReZ5YK72R4LbIAP5ZzlP+BfwwOY8nfvf +x9j5OJbrL6zmgfp3xiHJEwzkMe3wODrADVaidqD9k4HhP2IMZJnc4HUu+HXQ +LwaaXv2coeXNDXON8dckFhnokn/jbApyQ8yfzIO1fxj4LlOwX5nADYL6RZr7 +lhn4b53RtoVZLsg5WvtrZYWBIrPnYjg7uOB/Ca6OUQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08835021063401638}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.08835021063401638}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c41f8XAHBayMge99ohK2Tc6TrHLFIJWQkNqxTJChVCZEQDDUJSIln3 +yki+lCRJSJRKRkNGRqjI7/7++jyv5/k8n3Oe8z7nvJ+PwgF/W89VHBwc2Zwc +HP9/zn98/kQpqcBIZlS6qHF0u1FPjuRJ474YGLoQWq+VqQYo9uqAZN9FsFVS +8ZvJoEKIzb23q/vywe6k/YknGZYgNClx8ffbCpDL+qd/LMMZPtXv9J972wRq +5jbiFld8wUJp7MP02y4Q0wqNa0g7Cb/fkq/8fDsE5Xp7A6pOJ0Kz6Z2C1/mz +kH2i9hG/0TWQ/lTz5YDmMjjrz27WkrsFon7u97hMV+POwS8WTVl34eIWi7qd +e7gxliurx3XuPmi/d97K8OHG8piZ18JcpdAee7RbI4Ibv5N8XzVIlcK6vss/ +uPO4keucAWvRqBQiTg8Tm8e50SFt2+3ZhFI49CIqkhzLg38XbxZzEh8AybOO +IV+5Hkc/n7EsJZZBf5ZO47QgPxYtwxYe1XK41l28IUSZH7fdCW55pFMOLgKb +3P9Q+dFhRKv3CLUcBs7K/Ft1kB8rCt/srbIqh8Fj6w1FmfwYFXjq8bxfOXwz +G6kmOQvguQNrZ4zKymHxZ+aDiLwNOPSwXKNjSwXUaIisrDA34Em/0/33qRUQ +7pW6M7ZtAx7vWG6IN66ApfexE8mzGzDc+rWa0u4KiBp+KPZKURBH6B+t+QMq +ILbjtt1gkCB6B49aZJZUQFLBmVerpITwZl5o/2n5SrDS9xUW2yiEo5S6q/s3 +VQL3E9s9mzYL4aef6rkMrUqIHVZ+v91YCAUn7oV/pldCpGL7l8u+Quh9v92s +z6ESjuVK/lOpFcJGT3ft6KRK2H2jXHP7XmHcseM0pWaqEgQ1r/vv8xRGodr4 +oqZfldBRF1vh7y+ME6t4jJ/+Zcd/70i5fFYYKfyJg0yuKjAh/DP9UCyMvbVl +L83kqkA/y2qv/5IwnhUVfyW5owokLg8nXsoWQeelD8VXblWBpAYzdrFQBO+5 +rf/pe7cKCE3xZ/aViWDFgKsO5X4VyP5UC97ULIJ2dTcKmlhVoGwd4FH3TQRj +3M0cLjyvAr01y6RhPVE87BPyiGuyCnYFiY/otoniKe1y9SBdJtjwfvuY2S2K +IW8l/ztHYoJtfk3/0oAomvzeY3uFxgSHTtdXLVOiOC8w7JljwoR9mrdqXcTE +8MazkT0+tkw4MqKdHuMhhmdzI8+9D2DCOXtLo655Meyq69UxLmICoaqDsIpT +HC0thdUHSphQKmK/sIVXHG+9qSUElDGht8utLF1OHA/FtI/EVDNBaXeQ4u5t +4pjgKKJl/5QJTTturuu8Ko7xXjTdwk/sfO4rDa/cEsetpcS5ziEmjPHde6xd +Ko76HosP50aZINReFXahSRzVDq3btWmcCR5WbWM7f4ijxeLEE8oiE5YtfnW8 +NJTAHA/3O/wbWJBWGF68bCGB52I+rn0uxAKldRwJm3dLYN3d0yGnRFlg/XS9 +cYqnBJYHe118LcWCa6byldapEtjsF9ytosQCCm7PfPFJAoV5v4fHk1nQfrPz +xN/vEngnJj+mm8oCj5U9NhpzEtjZKfNAypAF5xo8eJK4JfGeysmIdGRBr2FI +hNUWSVyodFqnbcmCE9Q89+cxktg5bCu60ZkFVrkCc9uTJTFn5qDLsAsLFLki +EzquSKKN58uabFcWdPY4lHfflUTe26efc3iwQCuAb/XHDkmMHa3eGeXFgrVv +T2Z69Emir1pftJAPCwYYXzWGP0vi4wJa3w1fFiTxNtl/m5PEJ0bfZ/P8WPCt +MLRwhiCFuQ4+vF6BLHjMP0oLVpLCtoY1p1pPsCAjyPbVwmYpnL7oLa0czAJz +k82LSyiFG55MfW8PZUH+hyFLLm8plB3M+tIbyQJX0Z0TxEoplC/3zX8TxwK9 +iLronHoprA7YkfU+ngXrh1TFFVqkkO+/pq7351hQ82A1qPRLIUnLk/gikQXi +22vSdFakkJtbRsUzhQUT5SrKldwE7DIQOsJIZcETycs1BsIETI1+yyF4gV2/ +L8eGaMoEZHArKxeksesTraRvvp2AlRKWpxIuseDOt/TWZ/YE5Jg2Dda7zILT +u1ZcrdwIyCn8qa2P7c0y7+J2HSdgdlr8FeEMFqyJ3UroCidgVPQg/x22B8aq +Su1jCbj1Q/CYQSYLzj+88NY5k4Cbota+NcliwX655SMDuQQU9HMba2SbEn+Y +w/0eAbl4ynyoV1nw1c5c7dAjAtL6hO5LXWNBQ23Foy8tBKxOTA+JZjtDQd7W +t5OAu79+Kx9m22zqT/ixYQIWpIvGZV5nwcltl9X/GydgW6Hopa9sl+Ztficy +T8DMsrW7dW+wYPhPS6LXCjte9sXGULYl7T2oNdxE7GL4DFezveP+72+8wkSs +szCom2E7Zt2lLDciEdda37NUzWZBtbvmtnIlInY3nkxzYnv84dOF1VpETPvl +mH6WbQVh9zsOZCI6iv/dUcS2w5FFhyIk4g41YutztpOepK9bsiSiKH8g5yjb +jTIarJ12RJQMrfv7h+1fIU8881yJyDdT9ZA3hwXqnfvE5jyJqDUgQ5Ng201t +4YmFPxHrPaujZdi+FJMWdDWMiDYXzNJl2W59r6Y0Hk1EA9XzhwlsL+k3dxsl +sfNt37lBiO0tqa5n0y8TcfWoS/Qqtr2+/tIdySaif35Y0yQ7/nW8MES6Q8TJ +fyd63rDdeVX1YmIZET/VEmqq2V47+5/xQA0R4/YaBl5mm2a9d1qrmYgH1O5x ++rHtf3suN7qdiMlaZF8jtgv+pdj0vCHiBoOH93jZ7nfcxLHpExHJT1e3drPr +K1De+ODkNyIubJxpymDbdL2Le/s0EXV378u2Zzvs4KyA3F8iKq5TcOZne0hM +5dgTfmk8GqUW6c8+Xwn/xzISEtLI2qr1VZJt61anl77y0rglk5f+iN0frPAk +zQ160tgWNlQwz+6vH91KA/sNpTHoclFDEtvymxuSqsylcWXrSCuR7fOffo45 +O0kj9ct+lia7Px9Tzl8r2S+NZiVnsu+z+3kufaPVymFpzHjUEqnGtpuZQ1HB +KWn8cT5L4//zoFtU5z2VL40TttLRd9jz5L1qj4RJiTSmHrfy4GD7xt7JlstM +aXSM3LvV/iIL1gkoqNBa2fkmKxhMsOfxXWD8SOwEO5540LNh9jxvaJe7/HZe +GvfPjMiIsW2mXGOqziGDpl2OycbJ7P5++yP/lbAMapwPqEk6z4Jow937CRQZ +PO2ynDLK3h/b3HJmyCYyGCBl0/SOvV8Eon6c3WMtg+4pJaZtsex8muMK0zxk +0HOnLiUrhgUPrWp/rEuUwS9tZXo/T7HgjB/XKaVLMvjII4b4kL2vLFLtBUyy +ZfBbzLRneAQLel5P6pwql0F1QtbmyTAW/HTaGDLbL4NKhpxvLrL3YXV4AJfQ +iAzKcJfIarH35ekbj7K0JmUwdmnt5+YAFvANOtb5rpLFM25z7z4eZcEm72SO +QXVZPGDtNtPlza5v8K/z7RGy+E83Wp3F3u/KmSbSY3GyuI9D1/aP0//n78J9 +rjRZ/OQkJU91ZEH4klqnSYEsCrlo1BbaseDKWTexmnZZbHCSoppYs++f9Gc3 +b8vI4Qmn0F+R7PuGVnq16vRjOZTt/eIgzr6/zN52LE+2yuGa47KzH8RZsJNj +zVb3LjnUeqNBy2Pfdwdtj/XDqByeke7vIgiy6xGhcCZqrTyWBGgHv1vHggC5 ++VvGGvJ4/fNdVsosE55435xoDpHHuZPbVHqfM8FyiSocGSGPJzrkBSWfMaEj +rYekHyWP9HqthT1PmNBfwxNVkCiPXeWBz542MGGSN0g47oY8irHCa4MrmSBZ +to1s0SSPs9pChlI3mOC3OB3Vyq+ALnz33aMPM4F23Ev8i7ACjks05q3yZgL3 +2Lvi1ZIK6P+afvHMQSbcft/ca6SogL6FFsl+rkz42HBFk0lSwPcXWsxFdjJh +Vxy1L89dAY89/a8/Q4cJusLR2hHlCtg6Erf6wkwV/NYQ/Lh5jyK2lVWJ8Byp +gvlsQrSeiyJejKMkFHpVwdwGZSWquyK+aJkqwQNVMDlLPWzmq4i6986IHnGu +gqG6g/MupxTxqutAbdbWKmjbXi2QcFsRVejRLi4bq+DaETcY+qWI071SGal9 +lWBYXJKbkbER+VP7SWG0SpgWtvJwaFLCJu1Sd+c/5TCS7OEQyKWCp4X3LR2M +LQPLqVDLUdIm/JfR0UHXLYXxg9wnqs6oss/r5KC4eDH7/0Ni1bkmNVTwejQz +InwXhF+qpJZNqWPagkfi1r23QTrhgQ2JpIkcOpZFNy7kQ5YGVVDEezO2Z8vS +QT4X2gjGBrPpWrg1+RZvYP91oEk3pWn3auNKxLhgTmwmCKzOD9ofo4PpW2cy +3b5eAtloOUNnlS3oo7ff50tgGvAou7Jsn23BT35nVkZWJ4EWQ+pB6D5dDKt4 +FkCzjIfAj8LNVhx6uOmjubD1j2hobXF9dG+VHjpoaRC8BqJB9kFh9fq1enjt +daz0+ZfR0HaGVtLGo4f9JVUrUw+iQVHhwBUrET3kIdQ/1w2OhtcHy72tVPTw +y6nB6jTOaND5vovPyloPBVaNUdIUomBqNnmPZRb7/c56f9e/kTDQl+eQfU0P +WRo3XrcORULbI5bj9A095OXXtrNoi4SCc4POV/P0sDvl9+Wgq5HgQtR3+35P +D+/Xf9fOpkTCU5P3XomP9DC8rrpIIjwCrqerhT0f0sOj481jYTzhsFW75Zrl +Zn0MGR95v8kpFJzWbbPv1NZHr1cxSR+MQ+Hwh+f8jrr6KEcpXH1bIxRSk15G +HSLr40xYpZLvSgj0fu3xOmOsj96fy/me3gmBQ7nDusw9+qhpf+5C099giBHi +fCF/Wh9h98e0lLIgaJil/13o0Mcl3QU1ve2BkNdefcDutT7mz+3JMKEFQuxt +vbbSbn18l5Bv664WCJaOGlc9+/SR5nPueiNXIPTUEsjdn/XxHyvyosLT4zAW +/TuwdE4ff74LozuYHAdxweqxQwQD9Ml4I2FvEQDHNHXfvfY0QP6N32d/jPpB +8ALhj7uPAUZcWOv75ZkfRDatJkweNkARmUP3/xb5QZLTG+f1AQY43+bgHHLM +D+7GhvWbhBtg6uh1g3uLR2BooKGvMtUAty1ldP0VOgIOKdvfXqk2QI4NCoUt +jr7AmDzU48xDQn3Z4JvCml4gXrc1v56XhEpDw/ktYl4weU49QE6AhGZTuqqp +K56Qo/CTd1SYhJI5ZdGO3Z7wzz7CNECahP6T6jOvIzzhcV16Rbw2CeU/R407 +dx4C48SGtMo9JHyS0nHV6dxBMFeS3MGfT8L6CWVFsvp+qJp4qnCogIQF0Q4f +6iX3g1L1ifnaQhIuT92h23LthzVWr276FLO/T2iqLB7xgCb/+JnmKhKSOvN2 +S+Z6gFHdXGb4MxIeWxTd0yHlASTb10Nfx0noHrTs1KDjBoXEM9VGUyQ8Ulk+ +HS/kBmKjmslXpklogSlcfjP7YC40wcB0noRHj6TaJ1Xtg4psSMhZIWGpHwdR +mrYPtL/f37xHmIyZV1bXnLByBdWo82FNZDJSjwvE+5xxgXr67bXWNDI+31Q0 +xdjvAjYLjy++MSRjTq1/2xZTFwg79qvkmzEZN6s1+wVxuUCrq8dnAWsy8ubX +ZR1IdwYfKslqrwcZD2RfPtB+zwmKZj4T5xLI+EPqd8qmWQcwKl26eyqJjBx3 +i05d63OALl8JElcqGffLC7SoNjjAn0FrG8IlMi51fOXMTHQAq1fVsZhNRpdX +IxeqFRxgrDhlIrmcjEOvOc7NOewBdU/qY+V3ZLRNfcjzqMcOLiju/HN2gIwf +fH7a/W2wg7lPBwyGPpKxaYE6t7PIDhpckotzhsnoY9o1ZXDaDmxtPmVKTJDR +VZc+zKFmByfpcQE8HBQccCvxiIixhVah1woTyhSsXDZQP2+2Gza/GnXdrkpB +ibiLKbu37IaLyX8yi9QpqMVfqKgpuxtcuZQEvLQpqKprnktYtIGppZA/HykU +PBa2Tv59iQ2If5Pu7txOwafpf3kGpGzAs8Entuo4BcssRRYGVu2EyaNjoeZB +FAwI/vdN+eMOCJPxO9IbQsHFrMNWmTU74Hykv+1iBAXp3zWaZgJ2QBktRN4w +noKlha5OCZ+tYYl1tr75GgVtIznE+Nu2w8UHOXNdzRQk+qVgeLUlSLvLfzvY +QsFthzm7EjIt4bZA/vu5Vgp6r7yg14VawsOjt5vEOyhooFDPl0SxhA8aJWku +fRQcX3Lo66rbBqp3azSHxin4tcRMaLR1KzzO7Tk0LUbF2DfSDmpL5jBoreAe +IknFR5wnbGcGzYHj91HnvwQqdhzFvv6n5mCym2vnWnkqWjukcK9JM4cWThpZ +Sp2KG4r16/5TNof2Azd5jI2o+PKMWlmrgxm8UzpcmuZFxRz+mH56hwn87WTd +FfOl4rHOpuZslglIn1p969oRKob9oBUSbprAvjc3MgsCqNhtcvProQATGIx7 +FfUwnIp3W1lHKKIm8PWLvt1gKhWvPTvBeOJhDHN3Vxa0q6no7eWaW8OH8MXB +IjexhopTowOKO2YB+takbBuuoyJLO2GfzUuAOg/C1YxGKgpP6xl1RQPESBrQ +lp9Tsc3wt/vjcSMQTDgc2TZAxb4sHSWZNgZoer/h8FxFw36zVXMDeXSQFZMu +alhDw5PVnAmZUXQQbD6wW5KLhpn2so9C3OkwK/sz7wUvDW8nZkfky9Chtne9 +qa4YDV/qZnsVX6fBNguMW9lEQ/cEUfqhHCocVC7mubaDhsmChyajH5Eh/Knb +YRUbGu4YTheRzSFDmqfwiwpbGponNZkNniZD/e2TyS8caThD/KDSi2QQVdm2 +YXk/DQ++WzpxtoUELSqjoh4hNFzL8flvY58BqKvKyavcpCEfTfECU0IfsLUr +qiKPht1zF/a0LOmBg0/8Z6MCGnKStbYvftaDs3cn8h2LaDj+o2TL4xI9GFCt +V06spOFD9fWzPaZ6kKrmrDH+jIZ3Su5Mc4TpwrT6JVLFTxou8kfyey/oQF87 +movM0nDsZYnT4GcdaDw2aRf0i4YfszJeBrbrQGqF5XHSHxrKNQ61DeXpgDqN +o6R2NR3F88r1x3fowAHLowrN4nS83pRBk96jDT3eW/l6DOnI+LWcXDemCXU8 +vwgGQEe7XoW8K081Ib84Xy3DmI7HBJVbrudqQsDUsoWTBR1ptebxGo6awB9a +FT2wi45O1z802rVogEW8wsLIATqaP02ozylRh4cFfz//SqCjWqrw4ZFMVSCZ +Bi1YJdExgKTAmximCszP43y5KXSMvclbbOusChWyH8lWF+kYf/eMpT1RFUqy +GlNyrrPj2xhV8+VtgtzkOOrWUjq23paP0qlUgcSgDelZ3XSkZFn6Gk4rAbdI +QuHEGzo2YCEvuVcJ4ss56k366FjjbctpW6cEsZPTX8YH6Oi2luTyLU4JTvv0 +GBp/oeOgcePMRWklCHS9+u37Ih3vLcw++G/XRnAx24h0WUM0j/JJvN6uAMs9 +3ALN8oYY94qx7FWpALmek++tNhpiVW7FVbtrCvAlvibURdUQ9SQL71/wUYDA +57senNQ1xHhJ3tnUdQpwfmek7EMLQ7xl6LQuYZs81Dq9WdL3N0RZPlOv2hYZ +2Pe9tq3+uCESTv2Xz3VDBjjCc7PMggzx7aaPH1KOy4DF9SP69icN8VWcGM1M +Rga6PnD6nThriGo333LuDpWGsQNa78szDbH+0tXIBwZEIB49V6PVaIhcL+4c +qeqXhNQVL4OkJkPUsX15mPuhJKy6aFH+9YkhOrm+mo/PkIQx1tqi3OeGSLl6 +/Ocqe0mo5YjNEu42xMKr0cLTnRLgcjkqdH7UEI0UxhcjusQhq+6kQQMvA88z +xK+unRUFvp3O5QQBBtaUvA/a1SsKUYOUzaGCDJT/e1SkoUYUfNYuKumIMXB1 +g/Q4d7QokHeFiObLMlDBJ3GvjZAo9A4FzsZtYaDNeoJ5NEUExNb7le9wZOC9 +oGt91rlCUGB6KvynMwO7BK2teOKEQPdUquklVwbOK7J0J3yFYOfPsjd9+xm4 +hul9RV1fCOJ7f/0+6MfA+8d+TAW3CcJi/hmT8GgGKmrcOWS2tAHe0S91FxYz +sDFgP3mSgx98ggtuWJYysG2iXTKmmw/mS5me42UMJF/vKXIq5ANhxb6FLSwG +Fr5xOt5uzQfbuWWkHzUyUEeC1f7kBi/U9xQe6n7DQBbXx5fF29aDlcDDzSF9 +DFT61LfFWG499G19Pi/5noEFY3KvReZ5YK72R4LbIAP5ZzlP+BfwwOY8nfvf +x9j5OJbrL6zmgfp3xiHJEwzkMe3wODrADVaidqD9k4HhP2IMZJnc4HUu+HXQ +LwaaXv2coeXNDXON8dckFhnokn/jbApyQ8yfzIO1fxj4LlOwX5nADYL6RZr7 +lhn4b53RtoVZLsg5WvtrZYWBIrPnYjg7uOB/Ca6OUQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08835021063401638}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.08835021063401638}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938522113442497`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"405cf143-2974-4b3e-b99e-469a5dcceadc"] +}, Open ]], Cell[CellGroupData[{ @@ -10719,66 +12719,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + "In[131]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 116, 57, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068365192`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.687712559405811`*^-134\\\", \ +RowBox[{\\\"161002935595451666154913093426\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"119\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"160000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 45, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.993852211381277*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +In[131]:=",ExpressionUUID->"f896bf94-2bab-481b-b421-570f3b84c7e7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506846985*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.199590965959446`*^-136\\\", \ +RowBox[{\\\"680237402890783289504507819726\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"122\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"000000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 46, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.993852211388549*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +In[131]:=",ExpressionUUID->"4612d3ae-0b43-4a7d-9710-17ada6cafdc3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 116, 59, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506856045*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.800118245754679`*^-138\\\", \ +RowBox[{\\\"296311412699225200908163606272\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"126\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"000000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 131, 47, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.993852211397827*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +In[131]:=",ExpressionUUID->"3dc912da-6cb1-4c64-9d7a-88ffe9985457"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 116, 60, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068640423`*^9}, +during this calculation.\"", 2, 131, 48, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.9938522114065113`*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +In[131]:=",ExpressionUUID->"1404938d-e709-4462-904e-d95edba3354a"], -Cell[BoxData["11.275343508404701`"], "Output", - CellChangeTimes->{3.991326513010317*^9}, +Cell[BoxData["9.786962019589287`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.993852272787798*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] + "Out[131]=",ExpressionUUID->"55ce24fe-2edd-4812-bf89-e34afdfa95ee"] }, Open ]], Cell[CellGroupData[{ @@ -10845,68 +12852,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998502248*^9, - 3.9917998584727135`*^9}},ExpressionUUID->"df92a918-12ed-ff47-a8a8-\ -122296a3d634"], + CellChangeTimes->{{3.9917998502248*^9, 3.9917998584727135`*^9}}, + CellLabel-> + "In[132]:=",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 117, 61, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130447063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.972671355976386`*^-199\\\", \ +RowBox[{\\\"302788506336550585827101492333\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"56\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"040868761600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 49, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.99385227282964*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +In[132]:=",ExpressionUUID->"531b0dc8-6768-440c-a04a-3c1a08cfe2b5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 62, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513053705*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.4417130170892036`*^-203\\\", \ +RowBox[{\\\"668859810497440244092067196564\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"279094374400000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 50, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993852272838323*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +In[132]:=",ExpressionUUID->"41adb977-9d79-4069-a95c-5be8e8346117"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 63, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130617065`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1987670943769683`*^-207\\\", \ +RowBox[{\\\"154105300338610232238812282088\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"63\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"033438617600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 51, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.9938522728476562`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +In[132]:=",ExpressionUUID->"35037419-3030-452c-b2da-a98f0414107d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 117, 64, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513069849*^9}, +during this calculation.\"", 2, 132, 52, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.9938522728562593`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +In[132]:=",ExpressionUUID->"a51974cd-f3e9-41d9-943d-9ee44837cc7d"], -Cell[BoxData["1.662840304462236`"], "Output", - CellChangeTimes->{3.9913265201819115`*^9}, +Cell[BoxData["0.36041350452938004`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.993852280168809*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] + "Out[132]=",ExpressionUUID->"420d570b-bd0d-4494-8992-d49859a69641"] }, Open ]], Cell[CellGroupData[{ @@ -10927,8 +12941,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10973,68 +12986,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998626681576`*^9, - 3.991799866004116*^9}},ExpressionUUID->"1990573a-00f1-b54c-9d39-\ -9c68738afe07"], + CellChangeTimes->{{3.9917998626681576`*^9, 3.991799866004116*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 118, 65, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520216116*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.972671355976386`*^-199\\\", \ +RowBox[{\\\"302788506336550585827101492333\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"56\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"040868761600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 53, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993852280213602*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +In[133]:=",ExpressionUUID->"6687a382-8556-4c89-aedc-be6cf3757f18"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 66, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520226103*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.4417130170892036`*^-203\\\", \ +RowBox[{\\\"668859810497440244092067196564\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"279094374400000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 54, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993852280222652*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +In[133]:=",ExpressionUUID->"c2b7c64c-207a-4917-8fa0-f91256f096fc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 67, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265202341022`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1987670943769683`*^-207\\\", \ +RowBox[{\\\"154105300338610232238812282088\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"63\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"033438617600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 55, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993852280231433*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +In[133]:=",ExpressionUUID->"40acec2f-144a-4e47-b544-9efea0625e2d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 118, 68, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520242243*^9}, +during this calculation.\"", 2, 133, 56, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.9938522802397547`*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +In[133]:=",ExpressionUUID->"60ff8026-132f-47f9-901f-9a4ba021c984"], -Cell[BoxData["8.698310175000124`"], "Output", - CellChangeTimes->{3.9913265264075394`*^9}, +Cell[BoxData["20.228032153316`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.993852287744282*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] + "Out[133]=",ExpressionUUID->"a4ec448a-9b2c-4f7e-8815-5caba918aa05"] }, Open ]], Cell[CellGroupData[{ @@ -11055,8 +13075,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11101,68 +13120,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799871682028*^9, - 3.9917998792226925`*^9}},ExpressionUUID->"586f2005-dac7-8547-be11-\ -766f96e6af5d"], + CellChangeTimes->{{3.991799871682028*^9, 3.9917998792226925`*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 119, 69, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264435444`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.972671355976386`*^-199\\\", \ +RowBox[{\\\"302788506336550585827101492333\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"56\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"040868761600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 57, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993852287814116*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +In[134]:=",ExpressionUUID->"1c624e6a-236f-44ad-b02f-d693a51fc1fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 70, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264535427`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.4417130170892036`*^-203\\\", \ +RowBox[{\\\"668859810497440244092067196564\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"279094374400000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 58, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993852287820632*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +In[134]:=",ExpressionUUID->"68356879-64e0-43ba-b1d9-6f8ea664ee3d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 71, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264615555`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.1987670943769683`*^-207\\\", \ +RowBox[{\\\"154105300338610232238812282088\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"63\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"033438617600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 59, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.9938522878286133`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +In[134]:=",ExpressionUUID->"888df696-75ce-471d-a714-30f85d89f785"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 119, 72, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326526468542*^9}, +during this calculation.\"", 2, 134, 60, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993852287836175*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +In[134]:=",ExpressionUUID->"f091a327-19c2-4ac4-99ae-68049e436f51"], -Cell[BoxData["16.721244215445346`"], "Output", - CellChangeTimes->{3.9913265299431496`*^9}, +Cell[BoxData["2.7161328214794174`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.993852292252822*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] + "Out[134]=",ExpressionUUID->"b64976de-06a3-4907-a6f0-09bb6bb0a9de"] }, Open ]], Cell[CellGroupData[{ @@ -11171,22 +13197,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9917998836260815`*^9, - 3.991799887334032*^9}},ExpressionUUID->"363f609f-6fd9-cc4c-924f-\ -14ef82ef0962"], - -Cell[BoxData["0.13787921511838797`"], "Output", - CellChangeTimes->{3.991326529975149*^9}, + CellChangeTimes->{{3.9917998836260815`*^9, 3.991799887334032*^9}}, CellLabel-> - "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] + "In[135]:=",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], + +Cell[BoxData["0.04862378204352489`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.99385229229044*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"2ee7f7d4-be23-4a05-bffa-121ff4f6022b"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9}, - 3.991924340381132*^9},ExpressionUUID->"32c57f0b-017d-d340-92c6-\ -0f56a212e9c3"], + 3.991924340381132*^9}, + CellLabel-> + "In[136]:=",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ @@ -11209,12 +13236,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + "In[137]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913265300040226`*^9}, +Cell[BoxData["27.573445149039923`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.993852292307807*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] + "Out[137]=",ExpressionUUID->"0a129f90-a30a-4d4f-9541-82c1d0577791"] }, Open ]], Cell[CellGroupData[{ @@ -11224,12 +13251,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + "In[138]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.991326530052025*^9}, +Cell[BoxData["0.4188298752014735`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.9938522923173933`*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] + "Out[138]=",ExpressionUUID->"112360a6-9cb2-44ba-bbde-57dfe0a63c0b"] }, Open ]], Cell[CellGroupData[{ @@ -11239,12 +13266,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + "In[139]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913265300922585`*^9}, +Cell[BoxData["11.548582590647067`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.993852292328084*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] + "Out[139]=",ExpressionUUID->"2578f5eb-8bc4-4711-a950-73a9ae3e788f"] }, Open ]], Cell[CellGroupData[{ @@ -11434,12 +13461,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + "In[140]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[BoxData["0.022635100966331548`"], "Output", - CellChangeTimes->{3.9913265301172295`*^9}, +Cell[BoxData["0.010351148091771867`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.9938522923428793`*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] + "Out[140]=",ExpressionUUID->"039c7178-0650-45fd-a630-56b4818ee828"] }, Open ]], Cell[CellGroupData[{ @@ -11453,12 +13480,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + "In[141]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[BoxData["5.890521190513567`"], "Output", - CellChangeTimes->{3.991326530210228*^9}, +Cell[BoxData["8.710652323651855`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.9938522924431467`*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] + "Out[141]=",ExpressionUUID->"782c54da-f9f8-42bb-bc80-23b09006e9b4"] }, Open ]], Cell[CellGroupData[{ @@ -11650,12 +13677,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + "In[142]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[BoxData["0.012260254107801566`"], "Output", - CellChangeTimes->{3.9913265302252293`*^9}, +Cell[BoxData["0.06664078209512786`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.993852292455105*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] + "Out[142]=",ExpressionUUID->"51326464-a4a6-4e66-b0b5-9e22e584649d"] }, Open ]], Cell[CellGroupData[{ @@ -11669,12 +13696,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + "In[143]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[BoxData["8.003781147223087`"], "Output", - CellChangeTimes->{3.9913265303172264`*^9}, +Cell[BoxData["3.4330086526289865`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.993852292554595*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] + "Out[143]=",ExpressionUUID->"5da7409c-34fe-4443-aa35-9838aa03e7b6"] }, Open ]], Cell[CellGroupData[{ @@ -11767,12 +13794,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + "In[144]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913265303292294`*^9}, +Cell[BoxData["0.16778085836042492`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.993852292565413*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] + "Out[144]=",ExpressionUUID->"d0a92889-fdb4-4179-9f6d-e90d27e6dc8b"] }, Open ]], Cell[CellGroupData[{ @@ -11862,12 +13889,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + "In[145]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991326530340416*^9}, +Cell[BoxData["0.832219141639575`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.993852292576123*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] + "Out[145]=",ExpressionUUID->"fcfdc000-b935-4a75-98a8-2e4c6df0034f"] }, Open ]], Cell[CellGroupData[{ @@ -11990,12 +14017,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + "In[146]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991326530367384*^9}, +Cell[BoxData["0.13963044192826393`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.993852292589156*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] + "Out[146]=",ExpressionUUID->"496320be-e0cc-4ffc-ae38-f021272b40a7"] }, Open ]], Cell[CellGroupData[{ @@ -12010,7 +14037,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -12032,8 +14061,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12057,68 +14085,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799912745739*^9},ExpressionUUID->"c3883d3a-8a99-644a-9175-\ -a97b5c6c44f4"], + CellChangeTimes->{3.991799912745739*^9}, + CellLabel-> + "In[147]:=",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 135, 73, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265303923836`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9536320724369636`*^-207\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 61, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.99385229260664*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +In[147]:=",ExpressionUUID->"0c75b933-64ee-4026-ae05-0bd9aeebf030"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 135, 74, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304013824`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.045461218780291`*^-212\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 62, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.993852292612933*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +In[147]:=",ExpressionUUID->"9ff5564c-cc4e-4a37-8a32-178f05754c84"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 135, - 75, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304095325`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.7474824794032446`*^-217\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 63, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9938522926186457`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +In[147]:=",ExpressionUUID->"be0a7790-c377-4f3e-8194-cfe9fbb7ce18"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 135, 76, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304175396`*^9}, +during this calculation.\"", 2, 147, 64, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.993852292624074*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +In[147]:=",ExpressionUUID->"5b9b2096-5f5f-4b8d-b29f-b5cd98917c3c"], -Cell[BoxData["5.890521190513565`"], "Output", - CellChangeTimes->{3.9913265339749985`*^9}, +Cell[BoxData["8.710652323651853`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.9938522964486523`*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] + "Out[147]=",ExpressionUUID->"b7e81d56-ccd6-4ea7-a569-c0a8803778ab"] }, Open ]], Cell[CellGroupData[{ @@ -12133,7 +14168,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -12155,8 +14192,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12180,68 +14216,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917999175346184`*^9},ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-\ -bed1f30b804b"], + CellChangeTimes->{3.9917999175346184`*^9}, + CellLabel-> + "In[148]:=",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 136, 77, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340092525`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9536320724369636`*^-207\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 148, 65, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9938522964878283`*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +In[148]:=",ExpressionUUID->"1cd9a2a3-fa0c-42c8-b27e-2374ff2b1b9f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 136, 78, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340202503`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.045461218780291`*^-212\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 148, 66, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9938522964948*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +In[148]:=",ExpressionUUID->"3969133d-945a-4f58-9b85-c3e8964f422a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 136, - 79, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340282536`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.7474824794032446`*^-217\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 148, 67, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.99385229650417*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +In[148]:=",ExpressionUUID->"10cd9af0-204c-46e6-81bf-9c20546bfb68"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 136, 80, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340354958`*^9}, +during this calculation.\"", 2, 148, 68, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.993852296512917*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +In[148]:=",ExpressionUUID->"a312d92b-00d9-4006-81bc-de6549d5a217"], -Cell[BoxData["8.00378114722308`"], "Output", - CellChangeTimes->{3.9913265375649567`*^9}, +Cell[BoxData["3.433008652628986`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.993852300247484*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] + "Out[148]=",ExpressionUUID->"44079fde-d0c3-44c4-819e-97542f61be99"] }, Open ]], Cell[CellGroupData[{ @@ -12299,92 +14342,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917999220519733`*^9},ExpressionUUID->"d5c5d0e8-862b-f245-8b21-\ -eac61b5b75d3"], + CellChangeTimes->{3.9917999220519733`*^9}, + CellLabel-> + "In[149]:=",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0VVscB3CZMhdCSMn4VIbuzXCF/ctYMlcyJa57D8lM5qEe0qCeqeJF +SgMZk8qsQYOkqDS+lJ7hdS7huteYeNsfZ531WXuf7+/322etvZEe6sLk5eHh ++YGf5Xf4Kx3N+p5XZsUXqzXzZbnIbOyaPt2yEilsiv59Abu/2CBPzbIF9TV3 +Jy/bifFSUIz6BLXRmyvOY9fGprQLWHaheBNa2jnsk0/XPkgpf40qInYJ5WE3 +9oRfWqC8Qx+MRw1zsFmfOxPjmj8ixvuN0lnYCkOqntMWX1BhDqvgDPbu8URa +ZNc3VNVh3XUKu22BJRpb/h1V9BmUZ2C/PyaXcC9kAB03b6amYY8JWrK4lCGk +GNUbcBRbMDPMnTozjNR//bkrEXu9ZFFHePMPZB707F0MtoPi9I0xi1FU+vca +djA2cVlFVltoDBW0rD8agJ2i7ph+uGsccbMfNtGxP8r1bo0qZyPeq70UV2yG +R+Ch3MxJFF5iHeaIPVHIc+V2CAe1f9nrvhNbSEV7NZsyhbaL2erQsPMY7Tar +ZaaRlhpVYSu2cql7iu7MNEptaan9A9toy/Gx4OZZdNXg3oAsdoDBty6WxQI6 +SSf2jMtwETf2CL+Ixm9UZBJTOIh9tFnUREtoEYl4UbM/YeeDUYV/1xJ6WV2X +9Aibcb3DMqJ8BWjI8fllYZc/ze0/psgLG00KhVOxJ/7zTszO5IUo+pjnEezE +TVN1t0L4wDLiCZ87dl7NRtVxigDkh8b4rMP+3DPatnhVAPyVJJli2MqT9R4S +MoJwMTlKZmENF1Vuc8jRnhEEnnNX4j5jP26MXxHULARGJh8dc7Gn2t9++2Eh +BpwTM/pT0lwkZSe2OqFNDPizVTZ/xdbrtQRxmjisWkxvfYodOHj38lYdCfDO +FWg6jx3G26VnKrYajFa5SVGwh1Sq2enTkrBYx2vpKoXPh+gU7qZKQZ1imQQN +m7dieOPacCkIjnoRrYitTN3gUj4iBYM5xRu+SXKRh0XW7Vf90oDMRXp9sbv9 +IiLlXsiApF1a197VXPS19OxpHyFZOGQYHb4Ve3Sk/OpNK1mw69x+RxxbJGrg +7fYHsuCe4S79ZBUXWabt3eZzVw6mLU8Y6WI3XTOYKiuWh+R0HTW2OBddG5qP +No5SgsitD2s2i3LRzn0ZXyOrlKBtetxqSQTnP5a2rhpWgsReq4w32NuubZFR +dl8PoxlHRWOxH9O96wTMNkAg5YfCfWEumhzvj/mRqgw3P3h4mgpxkXSw5Z06 +exUwWpTIm+fnouFrIgFOgSqAaBGF7dgNX3oUfx5XAbsb/U6Z2F52B1I1HqiA +dc1i6zrsa5ujXQooqjBqtKGcxofrs0onkuXU4K8dsq/9VnDRXn9Rbdvv6mAg +eOBc3G8OQtH7KPt/q0NpYXosDXtTerEhQ14DrPfzi80tcBDPVap5srMGGAZp +WsZgV3313H/7oQY0PVmYC/3FQYKulccUSjSBWNmV6jLHQQ2W9u9ZdC2wj/Zy +/sLlIEWVv1JOD26Bb66DPAIjHNRyiqs1x6sNP2GFVjmLg7w47r3ERm3Qn3ed +dsC+9FhNy9xbG/5+NHz0AslBKv5Nb2Y/aMPAjO5+tR+4v8ohdeKFDqwJ3y+j +PcRBSorrCWV3PdCka5n/+spBW65Hif1CFKC1bPp85jUH0RmpU9oOFNg9JOiu +hp2vmvPVx4sC8TrOmU09HMRXUnPraSwFPK8dWj3czUGfL7H25tRSoK/BLIv2 +ioNO5vsUaalSQSjcJOFNJwcNn7bTcRPcBpcK44iudg66EqHmdLdLH2ZNK8YG +7nBQTzQyTLtOgyNbjSSeZnHQRu93DgeCTEGHHT6bEcBBzKV71UpxAO/ahyZE +EAfJjTSslKObA6+NbfoGCQ6Kopp8ydlkCYaNLQvKfZOI/nOhQ5plBaeiX4m4 +lk+iKvPIlcXdNuBlV/LHybBJdI0b+LAybxewz8/YHzGaRLM71r58nLIbdEvb +ph7OsVEfDx/7u689ZJnufFHTxEYh60Kzjqk6wi2SptqfzEbVhzoenEt3Apry +maf2pmwUz5Gf2XzIGbLtJ5eeLk2gKVtr12cHXeBIkon/utYJRPPM3jHkvAeW +RFDrYsIEeiNfFPiYuhc8HDpC3qIJpHAjtaXsj31wgmJzfHFxHDX0b7JzEHeF +c33rq0ROjqP1vRP+0T9dQXjdgU3v5cYR9Vx25dX+/VCfMnlU/fIYKuLn6OS0 +u4FSYbB9PXUM3duh+zm90R0SZmbfyT76ifINT0kulHtAOH2fzhPXn6j7n+vH +qZmeYJ9sm189PYru2heqhR31ggHbxn7J3FHEDt7DE8I4ALYd3oVZxqNoylor +YMzCG4rrMhtVf4ygsp+fZiMNDoJUXqJHTe4Icrty3e+AmA+4P2+tL981gupu +7z7Il+EDIjvL9zcvshBN8c3cyTkfOB5k0tPdykKq/f6fXx/yBZoG7wbunyw0 +KHrYsXDAFwqqt5xK28lCPWcd/Gz20UFCXXVKVo6F8mKLRY/00CFALEVf+T8S +tbQtzfnt8oM3Anm2ja0kWuUFGdQmPxDSmPSgFJJIec2z7nUtfnCM6OmquEgi +vS77tYJtfvDR0fOiOraLiefNjw/9QDMszkHhbxLlrYt+kfTcDyRmh8WE8kmk +0FexquOjH+hm849wc0mk5i2X7zXjB44UAb01mSSi+YyVpW9jQJGvymxAEolu +FExEOhgwAIxP/+LBXvN20kzOiAEvFnsdCxJJNGY101u2nQFWaWIjnQkkvm94 +VnSZM6B6XHp0azyJJGYk3aWcGWAq+nTtqhgSDZ7RFy4OZsC4asV6wXASOT8z +7PUPZQDX5r5ZWRiJ2niMi/XCGfBNs7XGFrsg0kz/URQDDsnEpGWFksjB3cZ3 +KIEBcgRrdkMIiRrV3Bs3n2KApx+fhMNhEp1tTjzUcIMBnZ2ZrGEmiYIpF2ix +ZQyoiBR5mYdtd7NW2KicAZ+0XH6bY4tcGL5ZX8UAi1iwucwgUXqEE+veHQY8 +KCk66u1HokQttcN3H+F82rGTpA+JAi+8CLr9lQH81WumaF4k2iUxbBLRz4BL +85rZbE8S/ZHOI075lwEXM0QSbmIPR+hX1Q7h8+KaGilg+zoU/7w1yoC5lXS3 +JXcSuQlEhtTMM+BtZqvux/0ksolUCKuUZUJYfen2x3tI9Kj4uG3OWiaI/X5m +fhTbpGtSLVaBCd5b0q6bYOupv/hksZ4Jmh96ku65kEj+Q4LFP+pMcDG4H1ft +TKIR4z5ZEX0mNPWKF9c4kugv3sut/nuYoLPX6fL0bjy/rli+/T4mqDlpK7Zh +p3nGRlD3MyFeoZydjh17x0lzyYMJz1JTa2WxfYkV2efpTKAlNSSa2JKI2kln +PAlnArsXdhTsJNGHbHVR1SwmOJ8MSr1gRaJqJB7wIxvX41sbGYyd9pP7uCqX +CW9PnbltgU3Z9TjZ6AITxnk+KLMt8f/j8Zu0v8QE2y1DTY7Y1qGXP8VWMuFv +hV+DihYkUlI6YWBWzQR/O4fX0+Yk4naG5vLdYgJvaJD4G+wSDWR/to4Juk3C +R05i/+7re3C1Cc/f8XzFwg4S3bFTLHvVwQTHPYGSE0Ci0/O8AnmdTGA5Rsx3 +Y9PLWL7uXUwQ/WVFvYW9mr9JcbCbCcwMp7xw7KBmt7/m3uP+CjnSs4hEqpvO +R6sNMeERM154Dfb8h6S35DATXAXNx2fNSNSTztSr+cEEM/Y7ta/Yyd+3sWij +TOjvoKfcxP6c//aAI4cJsoclJy2wc1ZKWsWvIOB5zPOXGab4Ppjs84ziI6Dh +poJqKPZ/feURIQIEHKn98o8rtskdy8t0YQJY/nUxmtjDPrG/bCUJeBRW6fbS +BPdvZyVlJU2ApXP683rs7YZSWkiGgFGH7qIS7CzxSleqPAF1D++FxS2vN32r +VdxIwJeDvfc3YxPXKztkVAmQ4De0k1/enxX3bZU6Aat4RU1WYg8T0uL8WgSU +aqy0HtyO16VtAkb1cP0OJ76r2E2L0inDFAIqJ80qcrGHyP5z/dsI+Fp26V4a +tvGD+PZeIwKKem7P+GMPBlWvbwUCfK/oqFKxJdwS9OvNCXj/6OawBjbNYqdd +rSUB3gXnxRWxz8r/G3d9JwFSMU/S+bEb+Guyim0JKD6+8sOcMYkGxhNKC+wI +EPZqPj2ObfRU5t0ZJwIY/rEbvmDTa/8dyXAhIP3ascU32GcKa3j/3Iv7u7sA +ndj/RuzSi3bD89N3TjRii3vL2oR5EDDAK3/g9nLeroEDgV4EsFM9tSuWv9+Q +dNrbhwDPrQazRdgNIrYlbnQCkuivJi8s503JNrowCKhJ+uiUs5z3faDbjiCg +P22v1JnlvK5bw9YBBGyMNzc8sdxffdJvCMQ+WHI/dTm/xHbN9iACzupHVaQs +55+R26wfQsD8Yv18wnJ+7OAO3TAC8lqCq2KxxRi1bloRBJSFnms/gm3omByq +GkWAk7yuaeRyvvHu40rRBGQ0GSuEY2eqry2SiyXg+54Gj1Dse6uH6iTjCTAb +Ll0Mxv7+q7ZTNJGAuXBhwWWL/Zf8XSCZAL+ZL2FB2AZvds8upRDQF62Clv0/ +OeDDzg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12398,104 +14443,106 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1Hk0VVscB3CZMhdCSMn4VIbuzXCF/ctYMlcyJa57D8lM5qEe0qCeqeJF +SgMZk8qsQYOkqDS+lJ7hdS7huteYeNsfZ531WXuf7+/322etvZEe6sLk5eHh ++YGf5Xf4Kx3N+p5XZsUXqzXzZbnIbOyaPt2yEilsiv59Abu/2CBPzbIF9TV3 +Jy/bifFSUIz6BLXRmyvOY9fGprQLWHaheBNa2jnsk0/XPkgpf40qInYJ5WE3 +9oRfWqC8Qx+MRw1zsFmfOxPjmj8ixvuN0lnYCkOqntMWX1BhDqvgDPbu8URa +ZNc3VNVh3XUKu22BJRpb/h1V9BmUZ2C/PyaXcC9kAB03b6amYY8JWrK4lCGk +GNUbcBRbMDPMnTozjNR//bkrEXu9ZFFHePMPZB707F0MtoPi9I0xi1FU+vca +djA2cVlFVltoDBW0rD8agJ2i7ph+uGsccbMfNtGxP8r1bo0qZyPeq70UV2yG +R+Ch3MxJFF5iHeaIPVHIc+V2CAe1f9nrvhNbSEV7NZsyhbaL2erQsPMY7Tar +ZaaRlhpVYSu2cql7iu7MNEptaan9A9toy/Gx4OZZdNXg3oAsdoDBty6WxQI6 +SSf2jMtwETf2CL+Ixm9UZBJTOIh9tFnUREtoEYl4UbM/YeeDUYV/1xJ6WV2X +9Aibcb3DMqJ8BWjI8fllYZc/ze0/psgLG00KhVOxJ/7zTszO5IUo+pjnEezE +TVN1t0L4wDLiCZ87dl7NRtVxigDkh8b4rMP+3DPatnhVAPyVJJli2MqT9R4S +MoJwMTlKZmENF1Vuc8jRnhEEnnNX4j5jP26MXxHULARGJh8dc7Gn2t9++2Eh +BpwTM/pT0lwkZSe2OqFNDPizVTZ/xdbrtQRxmjisWkxvfYodOHj38lYdCfDO +FWg6jx3G26VnKrYajFa5SVGwh1Sq2enTkrBYx2vpKoXPh+gU7qZKQZ1imQQN +m7dieOPacCkIjnoRrYitTN3gUj4iBYM5xRu+SXKRh0XW7Vf90oDMRXp9sbv9 +IiLlXsiApF1a197VXPS19OxpHyFZOGQYHb4Ve3Sk/OpNK1mw69x+RxxbJGrg +7fYHsuCe4S79ZBUXWabt3eZzVw6mLU8Y6WI3XTOYKiuWh+R0HTW2OBddG5qP +No5SgsitD2s2i3LRzn0ZXyOrlKBtetxqSQTnP5a2rhpWgsReq4w32NuubZFR +dl8PoxlHRWOxH9O96wTMNkAg5YfCfWEumhzvj/mRqgw3P3h4mgpxkXSw5Z06 +exUwWpTIm+fnouFrIgFOgSqAaBGF7dgNX3oUfx5XAbsb/U6Z2F52B1I1HqiA +dc1i6zrsa5ujXQooqjBqtKGcxofrs0onkuXU4K8dsq/9VnDRXn9Rbdvv6mAg +eOBc3G8OQtH7KPt/q0NpYXosDXtTerEhQ14DrPfzi80tcBDPVap5srMGGAZp +WsZgV3313H/7oQY0PVmYC/3FQYKulccUSjSBWNmV6jLHQQ2W9u9ZdC2wj/Zy +/sLlIEWVv1JOD26Bb66DPAIjHNRyiqs1x6sNP2GFVjmLg7w47r3ERm3Qn3ed +dsC+9FhNy9xbG/5+NHz0AslBKv5Nb2Y/aMPAjO5+tR+4v8ohdeKFDqwJ3y+j +PcRBSorrCWV3PdCka5n/+spBW65Hif1CFKC1bPp85jUH0RmpU9oOFNg9JOiu +hp2vmvPVx4sC8TrOmU09HMRXUnPraSwFPK8dWj3czUGfL7H25tRSoK/BLIv2 +ioNO5vsUaalSQSjcJOFNJwcNn7bTcRPcBpcK44iudg66EqHmdLdLH2ZNK8YG +7nBQTzQyTLtOgyNbjSSeZnHQRu93DgeCTEGHHT6bEcBBzKV71UpxAO/ahyZE +EAfJjTSslKObA6+NbfoGCQ6Kopp8ydlkCYaNLQvKfZOI/nOhQ5plBaeiX4m4 +lk+iKvPIlcXdNuBlV/LHybBJdI0b+LAybxewz8/YHzGaRLM71r58nLIbdEvb +ph7OsVEfDx/7u689ZJnufFHTxEYh60Kzjqk6wi2SptqfzEbVhzoenEt3Apry +maf2pmwUz5Gf2XzIGbLtJ5eeLk2gKVtr12cHXeBIkon/utYJRPPM3jHkvAeW +RFDrYsIEeiNfFPiYuhc8HDpC3qIJpHAjtaXsj31wgmJzfHFxHDX0b7JzEHeF +c33rq0ROjqP1vRP+0T9dQXjdgU3v5cYR9Vx25dX+/VCfMnlU/fIYKuLn6OS0 +u4FSYbB9PXUM3duh+zm90R0SZmbfyT76ifINT0kulHtAOH2fzhPXn6j7n+vH +qZmeYJ9sm189PYru2heqhR31ggHbxn7J3FHEDt7DE8I4ALYd3oVZxqNoylor +YMzCG4rrMhtVf4ygsp+fZiMNDoJUXqJHTe4Icrty3e+AmA+4P2+tL981gupu +7z7Il+EDIjvL9zcvshBN8c3cyTkfOB5k0tPdykKq/f6fXx/yBZoG7wbunyw0 +KHrYsXDAFwqqt5xK28lCPWcd/Gz20UFCXXVKVo6F8mKLRY/00CFALEVf+T8S +tbQtzfnt8oM3Anm2ja0kWuUFGdQmPxDSmPSgFJJIec2z7nUtfnCM6OmquEgi +vS77tYJtfvDR0fOiOraLiefNjw/9QDMszkHhbxLlrYt+kfTcDyRmh8WE8kmk +0FexquOjH+hm849wc0mk5i2X7zXjB44UAb01mSSi+YyVpW9jQJGvymxAEolu +FExEOhgwAIxP/+LBXvN20kzOiAEvFnsdCxJJNGY101u2nQFWaWIjnQkkvm94 +VnSZM6B6XHp0azyJJGYk3aWcGWAq+nTtqhgSDZ7RFy4OZsC4asV6wXASOT8z +7PUPZQDX5r5ZWRiJ2niMi/XCGfBNs7XGFrsg0kz/URQDDsnEpGWFksjB3cZ3 +KIEBcgRrdkMIiRrV3Bs3n2KApx+fhMNhEp1tTjzUcIMBnZ2ZrGEmiYIpF2ix +ZQyoiBR5mYdtd7NW2KicAZ+0XH6bY4tcGL5ZX8UAi1iwucwgUXqEE+veHQY8 +KCk66u1HokQttcN3H+F82rGTpA+JAi+8CLr9lQH81WumaF4k2iUxbBLRz4BL +85rZbE8S/ZHOI075lwEXM0QSbmIPR+hX1Q7h8+KaGilg+zoU/7w1yoC5lXS3 +JXcSuQlEhtTMM+BtZqvux/0ksolUCKuUZUJYfen2x3tI9Kj4uG3OWiaI/X5m +fhTbpGtSLVaBCd5b0q6bYOupv/hksZ4Jmh96ku65kEj+Q4LFP+pMcDG4H1ft +TKIR4z5ZEX0mNPWKF9c4kugv3sut/nuYoLPX6fL0bjy/rli+/T4mqDlpK7Zh +p3nGRlD3MyFeoZydjh17x0lzyYMJz1JTa2WxfYkV2efpTKAlNSSa2JKI2kln +PAlnArsXdhTsJNGHbHVR1SwmOJ8MSr1gRaJqJB7wIxvX41sbGYyd9pP7uCqX +CW9PnbltgU3Z9TjZ6AITxnk+KLMt8f/j8Zu0v8QE2y1DTY7Y1qGXP8VWMuFv +hV+DihYkUlI6YWBWzQR/O4fX0+Yk4naG5vLdYgJvaJD4G+wSDWR/to4Juk3C +R05i/+7re3C1Cc/f8XzFwg4S3bFTLHvVwQTHPYGSE0Ci0/O8AnmdTGA5Rsx3 +Y9PLWL7uXUwQ/WVFvYW9mr9JcbCbCcwMp7xw7KBmt7/m3uP+CjnSs4hEqpvO +R6sNMeERM154Dfb8h6S35DATXAXNx2fNSNSTztSr+cEEM/Y7ta/Yyd+3sWij +TOjvoKfcxP6c//aAI4cJsoclJy2wc1ZKWsWvIOB5zPOXGab4Ppjs84ziI6Dh +poJqKPZ/feURIQIEHKn98o8rtskdy8t0YQJY/nUxmtjDPrG/bCUJeBRW6fbS +BPdvZyVlJU2ApXP683rs7YZSWkiGgFGH7qIS7CzxSleqPAF1D++FxS2vN32r +VdxIwJeDvfc3YxPXKztkVAmQ4De0k1/enxX3bZU6Aat4RU1WYg8T0uL8WgSU +aqy0HtyO16VtAkb1cP0OJ76r2E2L0inDFAIqJ80qcrGHyP5z/dsI+Fp26V4a +tvGD+PZeIwKKem7P+GMPBlWvbwUCfK/oqFKxJdwS9OvNCXj/6OawBjbNYqdd +rSUB3gXnxRWxz8r/G3d9JwFSMU/S+bEb+Guyim0JKD6+8sOcMYkGxhNKC+wI +EPZqPj2ObfRU5t0ZJwIY/rEbvmDTa/8dyXAhIP3ascU32GcKa3j/3Iv7u7sA +ndj/RuzSi3bD89N3TjRii3vL2oR5EDDAK3/g9nLeroEDgV4EsFM9tSuWv9+Q +dNrbhwDPrQazRdgNIrYlbnQCkuivJi8s503JNrowCKhJ+uiUs5z3faDbjiCg +P22v1JnlvK5bw9YBBGyMNzc8sdxffdJvCMQ+WHI/dTm/xHbN9iACzupHVaQs +55+R26wfQsD8Yv18wnJ+7OAO3TAC8lqCq2KxxRi1bloRBJSFnms/gm3omByq +GkWAk7yuaeRyvvHu40rRBGQ0GSuEY2eqry2SiyXg+54Gj1Dse6uH6iTjCTAb +Ll0Mxv7+q7ZTNJGAuXBhwWWL/Zf8XSCZAL+ZL2FB2AZvds8upRDQF62Clv0/ +OeDDzg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.7883816941354912, + 1.2555162000732947`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.788381694135493}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12507,21 +14554,21 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.7883816941354912, + 1.2555162000732947`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.788381694135493}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12535,102 +14582,104 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1Hk0VVscB3CZMhdCSMn4VIbuzXCF/ctYMlcyJa57D8lM5qEe0qCeqeJF +SgMZk8qsQYOkqDS+lJ7hdS7huteYeNsfZ531WXuf7+/322etvZEe6sLk5eHh ++YGf5Xf4Kx3N+p5XZsUXqzXzZbnIbOyaPt2yEilsiv59Abu/2CBPzbIF9TV3 +Jy/bifFSUIz6BLXRmyvOY9fGprQLWHaheBNa2jnsk0/XPkgpf40qInYJ5WE3 +9oRfWqC8Qx+MRw1zsFmfOxPjmj8ixvuN0lnYCkOqntMWX1BhDqvgDPbu8URa +ZNc3VNVh3XUKu22BJRpb/h1V9BmUZ2C/PyaXcC9kAB03b6amYY8JWrK4lCGk +GNUbcBRbMDPMnTozjNR//bkrEXu9ZFFHePMPZB707F0MtoPi9I0xi1FU+vca +djA2cVlFVltoDBW0rD8agJ2i7ph+uGsccbMfNtGxP8r1bo0qZyPeq70UV2yG +R+Ch3MxJFF5iHeaIPVHIc+V2CAe1f9nrvhNbSEV7NZsyhbaL2erQsPMY7Tar +ZaaRlhpVYSu2cql7iu7MNEptaan9A9toy/Gx4OZZdNXg3oAsdoDBty6WxQI6 +SSf2jMtwETf2CL+Ixm9UZBJTOIh9tFnUREtoEYl4UbM/YeeDUYV/1xJ6WV2X +9Aibcb3DMqJ8BWjI8fllYZc/ze0/psgLG00KhVOxJ/7zTszO5IUo+pjnEezE +TVN1t0L4wDLiCZ87dl7NRtVxigDkh8b4rMP+3DPatnhVAPyVJJli2MqT9R4S +MoJwMTlKZmENF1Vuc8jRnhEEnnNX4j5jP26MXxHULARGJh8dc7Gn2t9++2Eh +BpwTM/pT0lwkZSe2OqFNDPizVTZ/xdbrtQRxmjisWkxvfYodOHj38lYdCfDO +FWg6jx3G26VnKrYajFa5SVGwh1Sq2enTkrBYx2vpKoXPh+gU7qZKQZ1imQQN +m7dieOPacCkIjnoRrYitTN3gUj4iBYM5xRu+SXKRh0XW7Vf90oDMRXp9sbv9 +IiLlXsiApF1a197VXPS19OxpHyFZOGQYHb4Ve3Sk/OpNK1mw69x+RxxbJGrg +7fYHsuCe4S79ZBUXWabt3eZzVw6mLU8Y6WI3XTOYKiuWh+R0HTW2OBddG5qP +No5SgsitD2s2i3LRzn0ZXyOrlKBtetxqSQTnP5a2rhpWgsReq4w32NuubZFR +dl8PoxlHRWOxH9O96wTMNkAg5YfCfWEumhzvj/mRqgw3P3h4mgpxkXSw5Z06 +exUwWpTIm+fnouFrIgFOgSqAaBGF7dgNX3oUfx5XAbsb/U6Z2F52B1I1HqiA +dc1i6zrsa5ujXQooqjBqtKGcxofrs0onkuXU4K8dsq/9VnDRXn9Rbdvv6mAg +eOBc3G8OQtH7KPt/q0NpYXosDXtTerEhQ14DrPfzi80tcBDPVap5srMGGAZp +WsZgV3313H/7oQY0PVmYC/3FQYKulccUSjSBWNmV6jLHQQ2W9u9ZdC2wj/Zy +/sLlIEWVv1JOD26Bb66DPAIjHNRyiqs1x6sNP2GFVjmLg7w47r3ERm3Qn3ed +dsC+9FhNy9xbG/5+NHz0AslBKv5Nb2Y/aMPAjO5+tR+4v8ohdeKFDqwJ3y+j +PcRBSorrCWV3PdCka5n/+spBW65Hif1CFKC1bPp85jUH0RmpU9oOFNg9JOiu +hp2vmvPVx4sC8TrOmU09HMRXUnPraSwFPK8dWj3czUGfL7H25tRSoK/BLIv2 +ioNO5vsUaalSQSjcJOFNJwcNn7bTcRPcBpcK44iudg66EqHmdLdLH2ZNK8YG +7nBQTzQyTLtOgyNbjSSeZnHQRu93DgeCTEGHHT6bEcBBzKV71UpxAO/ahyZE +EAfJjTSslKObA6+NbfoGCQ6Kopp8ydlkCYaNLQvKfZOI/nOhQ5plBaeiX4m4 +lk+iKvPIlcXdNuBlV/LHybBJdI0b+LAybxewz8/YHzGaRLM71r58nLIbdEvb +ph7OsVEfDx/7u689ZJnufFHTxEYh60Kzjqk6wi2SptqfzEbVhzoenEt3Apry +maf2pmwUz5Gf2XzIGbLtJ5eeLk2gKVtr12cHXeBIkon/utYJRPPM3jHkvAeW +RFDrYsIEeiNfFPiYuhc8HDpC3qIJpHAjtaXsj31wgmJzfHFxHDX0b7JzEHeF +c33rq0ROjqP1vRP+0T9dQXjdgU3v5cYR9Vx25dX+/VCfMnlU/fIYKuLn6OS0 +u4FSYbB9PXUM3duh+zm90R0SZmbfyT76ifINT0kulHtAOH2fzhPXn6j7n+vH +qZmeYJ9sm189PYru2heqhR31ggHbxn7J3FHEDt7DE8I4ALYd3oVZxqNoylor +YMzCG4rrMhtVf4ygsp+fZiMNDoJUXqJHTe4Icrty3e+AmA+4P2+tL981gupu +7z7Il+EDIjvL9zcvshBN8c3cyTkfOB5k0tPdykKq/f6fXx/yBZoG7wbunyw0 +KHrYsXDAFwqqt5xK28lCPWcd/Gz20UFCXXVKVo6F8mKLRY/00CFALEVf+T8S +tbQtzfnt8oM3Anm2ja0kWuUFGdQmPxDSmPSgFJJIec2z7nUtfnCM6OmquEgi +vS77tYJtfvDR0fOiOraLiefNjw/9QDMszkHhbxLlrYt+kfTcDyRmh8WE8kmk +0FexquOjH+hm849wc0mk5i2X7zXjB44UAb01mSSi+YyVpW9jQJGvymxAEolu +FExEOhgwAIxP/+LBXvN20kzOiAEvFnsdCxJJNGY101u2nQFWaWIjnQkkvm94 +VnSZM6B6XHp0azyJJGYk3aWcGWAq+nTtqhgSDZ7RFy4OZsC4asV6wXASOT8z +7PUPZQDX5r5ZWRiJ2niMi/XCGfBNs7XGFrsg0kz/URQDDsnEpGWFksjB3cZ3 +KIEBcgRrdkMIiRrV3Bs3n2KApx+fhMNhEp1tTjzUcIMBnZ2ZrGEmiYIpF2ix +ZQyoiBR5mYdtd7NW2KicAZ+0XH6bY4tcGL5ZX8UAi1iwucwgUXqEE+veHQY8 +KCk66u1HokQttcN3H+F82rGTpA+JAi+8CLr9lQH81WumaF4k2iUxbBLRz4BL +85rZbE8S/ZHOI075lwEXM0QSbmIPR+hX1Q7h8+KaGilg+zoU/7w1yoC5lXS3 +JXcSuQlEhtTMM+BtZqvux/0ksolUCKuUZUJYfen2x3tI9Kj4uG3OWiaI/X5m +fhTbpGtSLVaBCd5b0q6bYOupv/hksZ4Jmh96ku65kEj+Q4LFP+pMcDG4H1ft +TKIR4z5ZEX0mNPWKF9c4kugv3sut/nuYoLPX6fL0bjy/rli+/T4mqDlpK7Zh +p3nGRlD3MyFeoZydjh17x0lzyYMJz1JTa2WxfYkV2efpTKAlNSSa2JKI2kln +PAlnArsXdhTsJNGHbHVR1SwmOJ8MSr1gRaJqJB7wIxvX41sbGYyd9pP7uCqX +CW9PnbltgU3Z9TjZ6AITxnk+KLMt8f/j8Zu0v8QE2y1DTY7Y1qGXP8VWMuFv +hV+DihYkUlI6YWBWzQR/O4fX0+Yk4naG5vLdYgJvaJD4G+wSDWR/to4Juk3C +R05i/+7re3C1Cc/f8XzFwg4S3bFTLHvVwQTHPYGSE0Ci0/O8AnmdTGA5Rsx3 +Y9PLWL7uXUwQ/WVFvYW9mr9JcbCbCcwMp7xw7KBmt7/m3uP+CjnSs4hEqpvO +R6sNMeERM154Dfb8h6S35DATXAXNx2fNSNSTztSr+cEEM/Y7ta/Yyd+3sWij +TOjvoKfcxP6c//aAI4cJsoclJy2wc1ZKWsWvIOB5zPOXGab4Ppjs84ziI6Dh +poJqKPZ/feURIQIEHKn98o8rtskdy8t0YQJY/nUxmtjDPrG/bCUJeBRW6fbS +BPdvZyVlJU2ApXP683rs7YZSWkiGgFGH7qIS7CzxSleqPAF1D++FxS2vN32r +VdxIwJeDvfc3YxPXKztkVAmQ4De0k1/enxX3bZU6Aat4RU1WYg8T0uL8WgSU +aqy0HtyO16VtAkb1cP0OJ76r2E2L0inDFAIqJ80qcrGHyP5z/dsI+Fp26V4a +tvGD+PZeIwKKem7P+GMPBlWvbwUCfK/oqFKxJdwS9OvNCXj/6OawBjbNYqdd +rSUB3gXnxRWxz8r/G3d9JwFSMU/S+bEb+Guyim0JKD6+8sOcMYkGxhNKC+wI +EPZqPj2ObfRU5t0ZJwIY/rEbvmDTa/8dyXAhIP3ascU32GcKa3j/3Iv7u7sA +ndj/RuzSi3bD89N3TjRii3vL2oR5EDDAK3/g9nLeroEDgV4EsFM9tSuWv9+Q +dNrbhwDPrQazRdgNIrYlbnQCkuivJi8s503JNrowCKhJ+uiUs5z3faDbjiCg +P22v1JnlvK5bw9YBBGyMNzc8sdxffdJvCMQ+WHI/dTm/xHbN9iACzupHVaQs +55+R26wfQsD8Yv18wnJ+7OAO3TAC8lqCq2KxxRi1bloRBJSFnms/gm3omByq +GkWAk7yuaeRyvvHu40rRBGQ0GSuEY2eqry2SiyXg+54Gj1Dse6uH6iTjCTAb +Ll0Mxv7+q7ZTNJGAuXBhwWWL/Zf8XSCZAL+ZL2FB2AZvds8upRDQF62Clv0/ +OeDDzg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.7883816941354912, 1.2555162000732947`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.788381694135493}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12640,7 +14689,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6007907022525477}, + AxesOrigin->{0, 0.788381694135493}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12668,7 +14718,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7883816941354912, 1.2555162000732947`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12676,9 +14727,9 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913267728125134`*^9}, + CellChangeTimes->{3.9913267728125134`*^9, 3.993852567834495*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] + "Out[149]=",ExpressionUUID->"326a9d7a-6d2f-4560-a54f-c0d841b875e1"] }, Open ]], Cell[CellGroupData[{ @@ -12741,154 +14792,210 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799933259697*^9, - 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ -c179c9adcae7"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ -\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 81, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773051552*^9}, + CellChangeTimes->{{3.991799933259697*^9, 3.9917999365172615`*^9}}, CellLabel-> - "During evaluation of \ -In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], + "In[150]:=",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.634457733064485`*^-270\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 82, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730605392`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 69, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9938525679898453`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +In[150]:=",ExpressionUUID->"94388b7a-69f8-410b-908c-c24dbfe7d4ae"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.542481758225461`*^-281\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 138, 83, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730685368`*^9}, + 150, 70, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9938525679964113`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +In[150]:=",ExpressionUUID->"69fcec10-8330-40c2-8e7d-34edec2baf66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.031270248130687`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 150, 71, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9938525680033703`*^9}, + CellLabel-> + "During evaluation of \ +In[150]:=",ExpressionUUID->"9dbf060a-fce5-43e9-814e-4412034031e4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773076536*^9}, +during this calculation.\"", 2, 150, 72, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.993852568011544*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +In[150]:=",ExpressionUUID->"271a5615-6722-429c-acd0-839b6c297768"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c81d8bAHBFVvZ2hxXZKePiDs+DbElZqYxIaQglGRVJGkZWX1IkoaEU +7r1ZUTRUSoPMSqikiMyK/D6/vz6v9+vzOud8nnOe5zmvj2pA6MagpTw8PNlL +eHj+/5z58PShenKxhZylF0nOzMmivUAh2rIrAcpZSRf6Z7UAZdsCFLoyITiO ++qFk1gwiXW908nYVgYyeVXj0rD1Ijsln/u6shHcdg0s1ZzfBx3qX0KnOJjjE +TJ8UmQkGW/WR9xOdbyANBBfrJ6Lgd6fpufHOAdDbNn8kvf8UNFtfLX5dNAl6 +/QtfmfnngfKx5kuA3gL4lngvs7hJrLPX74aANS8Gzz8Z6BC8BplrbOtcPARx +i6KdwCOnW9Cdu/r+hIQo+izMbet5fgfy3paJR2qI4p9HL8ci2u/AZjFNvz/m +otjdP8QUen8H+o5T/y0NFEWVd9eklcfuQP8+YaYMRxTtF233LopXwPDaobs0 +bzEUaLfqS99YAXPjObdjL4vjxIyC3PCbCqjRlV5c5IhjRpZaMbenAmJ2pLkk +PhPHE8yTFUcHKmC+N3E0ZVIcj5/Vsf47UQHxg9WybWoSmKJuJFEqUQmJL0vc ++iMkUDtryev7zpWQXBzXtlRREl1e8tQuNlaCo/EuKdkVkihOVYjseVwJgg83 +emjqSyKIuN0rf0GMH9TodbKURHIrc9i6txIOq7V+yd4liRz7H6kqM5Wwr1Dh +38paSXTdqiVbpFMFGy5W6DltkcK7EpPchrQqkNC7EOoTJIUlU0qcluwqeFmX +WBkaKoWXFaqorXlV4NjrZZZ9XApnHkzoNJZWgRXpn/X7MilUkClW8WyoAuNc +xy2h81L4K+B6r+2PKpDPHjydlS+N6xNlgwys2aCgy0mcK5VGv9P988vt2UBq +SorzuSONPhzLZwPObFAa1z6o2SyNebkVfHGebNBwDvOvG5ZGy2fOE+G72GDE +t0AbNJLBGy2HYizT2LA+Qm7I8JkMHj0zuS3pLRtclw9/yHkrg5wsW+/rnWzY +WFTTPd8ng13q1xIe97LB89XWtsc/ZfChW9een4Ns8NG7UrtZVhYvRTjm/Z1k +w54hg4wEf1n01V1IWJDiwEl3B4s3M7KY8iFt+JozB0jsl6SlS+Qw+/XCxy2u +HCiXdp9ds1wOC2NjRQTdOfDuje+dDGU5vHKsgN95CwfUN0SobbCXw++8WmkJ +uzjQtO4S/6vzcjhq1b37RiIHPG+pDy5ekcNfqUPT4yc5MCJyo9GgXA7bF+Ia +VydzQLKVHXW2SQ4l7FDyYgYH/B2fjbh8l0Nlrexm1QIOLNhOv3zBlEer7TIy +IxwOpJfGlC3YyuOFiHNDD6uJ9fl5TulvkMdM9Sye83UccH4kbJkaJI9ZL9lK ++g84kGetUuWcJo/Pj1LFlrVywAydcp5/lEedk7dzI/o50Hrp1YG/3+QxYFXU +f0MDxPqLHq66U/J4lmf+57rPxP40+AslCypgTQS3VmSEiJ8ZGeu4RgHjhY3a +6JMcOGB+2e9pggKmZ1/k2czHBcdCsSmnFAXMOrK43IKfC2oCh0+9PKeAmsHh +vhRBLrxq96x4e00Bq4ra+p4s58KqMBHeDy8VsPSqnG+PFBeGSw+V/iIpYkF6 +TOiYMhcaRT/TD6ororBoVfghVS78F7GxbVZfEeUaWC/+qHHBxkp/bh4VkTKs +c25cgwtF7wccBHYqYiLP8uRcXS5slXEZJVcp4qPGcN1eEy4YxdYdK6hXRJnA +d97CplwQHtCSU32siAa7ZWeMzLhQc5sXVnYr4v6xjCORdC7IOdWkr15UxL8W +Qj+rLbgwWrFSo0qQhFHq3Mo64MJDhewaEykSjhu6/6xGLhz4sm+ArkFC3nH5 +7iIrIt5j6sY2TiT8UaGaY2zLhavDGS1P3EkoUn7TcbkdF46uX9zq6EtCF+mW +hD7C+tSeE+vDSVibfTVpnwMX+BLtSG9iSHj80l4PA0cu9I2wy90TSXh2tLl8 +hPCZ6rOd3jkk5PtiKbDBmQvblBf29BWScMnfaKF5wmZJu3n8bpDQTmPnxcvr +uPDVzUZ7+z0S+i2ej+lz4cLan39i9g2SsG3Z9rWSG7gQbZ+t8+AHCV8HBCWk +ES6/rN8jPUNCpx1hWfwbuaDg7m9eI0jGu5X1xl8Jr7v1e3i5FBk7TcRb1rtx +IYE/K9eXTMaRV6nGVYR/VD+a5V1FRqN6m0u73bmgKuV31dOUjJcfFRQ2EPbc +M+d5Hcl43DPwmKgHF5IfZvDPO5Ax5ImmtRfh+1RdrosbGaPME75eIDwd+TDo +8lYydmQLh/US1nnlIzsVREbmyc0fZD254Ks9+9A2lIxJCaLGToSzEtIjzkeR +UbXu/v5Ywi292uo/jpGxaKX0xVLC88bNby2SyWgcU1LRSnhN2tbjGdlk1NIm +cUYJ7/g6bTiUT8aIQNlrQl5cuIBnB2hXyagvw0pRIfzqvFbm6TtkXN5vFmhI +eNnkA8u+GjL+WFG5CgjTnbdMrGomo82k27gt4dCSqcJjrWQsl3t+3YFw8b9U +1/YOMnoKP95qR7jbS5NH8yMZE+anhJGwWMX929HDZORvFeIaEbYW3uzXOkHG +Fv5qPzXCUYGTYsp/yWgwzBYSIXyrPqUhnI+CJV53OePE9w/Irtz3UJSCol8P +Bb0iLB/aSJWXpyD99R1SGWHnlk0vdqlQMGSO2hlP+Jjqr8P12hR8NHT44gbC +3JhkPXEjCnKaUvZSCX9/q963jUnBk9vEHIaI/VfRb0hm21Dw4ZqHRqWEz3wc +H/HeRME8mw90MuFGszN5N7cR4xPaNr8kznsqY4Xj4m4KSn8SSz9M2Het5/Xi +IxTUy71i+YzIl6z8n5tmkyiYzc18sItwy8wpQcd0Ch46yuvLR9jwet3On0UU +1Jgun9Qh8m/nUg95q5sUnOVNH+cS+Xpxy9jjbA4FtaNB0oIwv5jqSnoLBRXC +dz5iuXKBsbO2I+U1BRXrM7dy13Mh7L7biY89FPz8Z0JJh3DP/qShxFEKZtY0 +6fES9SHeqpzdOUPBUtPJ2GCiftZq1Fjr8FCxtqhjoYWor/LO70VtUlSceW5x +OdaJ2D/mhm0kMypWFfdeuGrPBXvfgl+mVlTUBH6Fd0R9i8V/P+7hTEXV/3QX +/xH94GLzidJ0fyqGNjkqoA0Xqh1rv/OfpqL2tVN1cZZciNsrcEQ9i4qUc1od +x4j+YpvmLmaVT8zv2RhylOg/7a/HVh+poOLds1MaO1lcGN+0InKym4rBdR9/ +zxD97G5MmIDkEBUDMs5sfEH0u6MX7+WuGqNiG73YooDGBZF+r7pdS5XQrul4 +r4ExFzR3pvD06ygh6e1cmJQBcT4Hp8+0xirhWkrHps4VXNDIsaKMnFDCf27B +Kzap/b++z94SSFfCw1m1ZW9VuBAzr/3KqlgJt2SE8NRRuXDuuK9sTasSLuvR +4HeS50JrxpNLJVRl/Bom+W2/EHHeVTJrmjWVUUk4o7NQgAubO7Y19a9Rxlec +9ttPlxH3gcL8ENlWGZ2iP2mJLOUCb+Fqncx9yig2NpPs/ocD9PLz7KONyqi8 +aXXm9DcOrO18uTDWoox/+navmPvKARcePju/N8poIuu7b4a4zwI37uuGz8p4 +JK6L/uUTB2xjVePil6ngWA9zPLObA2HKM1csdVXwQQ35k1oLBx7uvDTaHKmC +N65sr9Av4oDDvLnU4VgVpNYMkm9e4sDL9HaacbwKboxzSF2Zz4HuGqH44tMq +GFFVliaey4Gx5RFSJy6q4KY5nQ2VqRxQuGNvatukggVPqpeyojiwd24ivkVU +FX3cpW9FORLxhO+Q+yKlig0DXUeZdhwQHOkp41VQxdO8IXzz1hwo6W1+Z6Gm +irFBYmb7WBz40HBOj0NTxQFouqi8mgPrT5h3XfZTRYewKXqNDAcMpY4ZxFao +op3TiW8fetjwW1fig76HGga2vxC5vYUNM/mkY0ab1VCgLP1WqhcbpsQ11M39 +1LA2nWcu2I0NY5Pmu9fuUsM4xQf/yTqxYaAucGbzETXMHWzysKOz4ZnTXbFT +JWqY02V1Q1yBDXl7fGFgWg31i2Zojq+rgFl2s/C//1bgYr0LjcyoggkpR3/P +JnX8dbUif0GwEoZS/D33C6zEsIg9MvWFd8Dh5yGHzzRNfPKrZ4j3WDn8CBQ8 +wI7TwoWJX9lxUWXE/4T80pNN2niawnt1+vg1kHqxMu3OTx30bTNwH+woAcqp +2640mh52q9Y9sZK4Arm65hLSO/VRcDbu3JuiQnhGsjSZzFiFGVffX2f2XQQ6 +pSnd4J0B9v9IXFgelwtivEUR2xJWY/lx3k/5HdmgdEyZ6b1yDRpEKf71c80A +IY2t3I1P1uDASq7JkvMpsIqlePuQjyFmSOsHnKk+Cfs/SDU78hjhG8OCseur +j8PPyRQPh1wjNDwap881i4O+rsue+XlG6F7V+31WKQ6e3eN6TVw0QoHti3OO +y+Kg+GS/9/nLRihEfdWv/uYobCYb+367YYTHcj+JXd17FB5Z9e44fc8IM94/ +1/hQfAQuZGhHPR0g5hOeNf2kehjsDB7nOegb478vY4fPOEfDJn5791cGxkjW +c1YVMYmG3e+finoZGuOznEv9l6jRkJb8In67qTGKTHw5tTAWBe++tu+IszRG +HwnvkPTMKNheOGjI8TDGG0dfTy5/fwgSJJc8VzlqjMIxPfmycZHQMMn4O/vS +GJekNL1znz4Al1vvBri9NkaTj6anNw8egMQSo2flb40x8jh7KOT1AXDw0j0f +1GWM8SGiUfduHYD2WpLp20/GaD2UY7644wCMHPu9v3zKGGnfRKL4+/aDnMTd +ke0kEyzwKK0eawuHfXqGPa+DTHDXqiupy+pC4eAs6Y9fsAlxv3stncwLhcNN +vKSx3Sao9HdGfz4mFJI3dXgLh5ngbvG9/tsYoXAtMarbKsYE6VC9+uC9fTDQ +19BVlWaCVm9uJlU+DgHPVKfOc3dN0IDxLWnZ6B5gjW1v9xaioZiGSb7+iWCQ +q7Mrql9Ow5sBS9tWhQTD2EmdMGUxGire5vVY6xEMBarjyz9L0XB6ll/zpkYw +/HOPtQ6j0PDp1d9BIU92QmNdRmWSAQ33DQdG3RDbCZanG9KrPGgofW7Fhoqy +ILBRV1gnWkRDuTaFD3LUQGCPPlLdXkzDN0maLzSEA0H97oGZ2lIacpQ7NG1m +A4DPse1ScBkND/u0TrBfB0BTaNKvZjYNfZJSz3mdDACLuqmcmCc0bEmvUbg0 +vQ1oG18PfP1BQ3b+av7h9/5QSo67a/GThrLaSUFjrf4g+1kv5dwEDbUPnmrh +rfeHqUOnTKxniHiPz4VsyfOHynw4VbBIQ3m+g/z3vPzB4NstfQ8pU7y+48JC +3A0/0Io/E9Vkaoq7qCGbpjk+UM8oWeZMN0Up2JUieM4HXGcbMzuYpriTRplh +RPhA1L7pm8OWphi/wmApr5EPtGz1/yTmbIqJ3xfUxSu3QrA5zXGLvyl+e89a +JsTdAtd/fSJPnTJF1XcR7Nft3mBRPn/tSLIpvoo5SK696w1vdsnTBNJMiXqP +Tm/M84Y//c6upCxTXJwLsVbd5g2ObXcTMd8UYzXXa7F+boKRstTRlApTTBdX +mXsgsQl0gswbNXpMMZW/6M/mYE84q+by53ifKTpUd5H2unrC1McAk4EPpviz +OudflpknNGxOKSsYNMUEduYTTSFP2Oj6MUd+1BR9IuQDfMo8IJpxIkyIxwxr +7EonxifdoUXyteqohhk2v08IZ51zA/22z1udtMxQxPvRdr54N8hM+ZNzXccM +H99c9fXjbjfYKqAutsPADC+4VHm0oxv8nI/888HMDD86xS+pGN0IcsOUt6+c +zLCSJ3pGx2kjBDUEJ7LDzfCawffkcpkNMBYycsgmwgxdysPnPXg2QBR17553 +kWaYfLlfR/qHK5w5HLpxLtYMDd3eh79sdoU79EgVZpIZ2rG1jtpGuMI893h9 +c54ZKulKdntWrofM2wVTb5rNMPHvV07i9nVA8VMZDnxshnXKwDOH66BErKh3 +qsUM8+cSlmRS10F1SEmT3EszTCJ55Zh3OsN73Zvpm7vMMPVHNdnN2Rm0rtXo +Dfwww+4rYox0lhM0FrZvn5A1R02VuB4WwwH6nVX9IhXMcZIzXPuW4gA8v0O8 +/5LM8XBaVt2Zf/ZgtUHAZZmKORZ6+xVuabKHx0vopoo65njNovvsCSd7aA24 +JGRpYY4nIq5Jfwy0gx713eXpO8xxpZVoX0eZDfx9xb0mu8ucSIl3z90zbIBy +hPdK3h5zvCxcTZ2ItAGfjos5xWHmyLt39uAxKxvoP9EWXx1jjg2TF/oXetbC +1y/Gbv1p5mjj36a1TnItTF1bnDW4a460Q/ZuSZlW8MXTtvB0jTlusSvyFThi +BV18qfaDdeYYZi8rdGmnFdT5k87/d98c20qKv0qyrCBBwYS+8NQcOzVDT/B+ +swSJU7sPP+sjvocaa8dnYwl6Ozt4gpbSUWjFN8OfIghKspTrDXx0lCp+lWw+ +BSDRHLBBQYCOHpEKE/UvASaVxi8/X064+uInRiJA7Ttha0NZOtr9zTeXm7AA +e1s8sahJxwX7zcqUNywI1CgTyltHR6W6yKSQOwyIeeS7e6UrHZ1vVE0+TGFA +epDU88qNdPS8f36L7S4G1JdEpzz3ouMJWZW9j9UYILPSXnxhGx0bY6+94ObQ +4fHKzzL+kXS0+Xrrr+Fpc9DRUlZZeYmOf7cFTx04bQrY8ia+8jIx/7uu89W7 +TcEzOOmTRTEd3XXVBdScTeH4tdEir+t01Dp86GKAuCn0adVrnK6i4/6Jv6H/ +5dAgTdtb98cTOh4MvEC5Wm4CEzpZtMpxOgY8WXJzx4wRdLWijfQkHVMd+ITr +3hvB/X1jbhHTdNT9nL9X95ERpFU6hNP+0DHDte6FX7YR6NB5btbyMpBvgXdY +2tgIAhxCVJvlGJh6TkYiI8oQ2nfaibQzGRgkq8xVkV0DdULTJBNgYHejn+P9 +xdVQVFak/Z8lA69K0hKiRlZD2M8F2022DLQOLYo0vL8aRA+xj/WtZ6C8b9Ct +p3tXg22S6uxQAAP/dOh//ZBtANXFfz9Nn2Igde3+wV59faBZR8w6JjPQ8K6M +UIGQPnA+/RApTGXgk4P89ac/60Gl0gdTx0wG6qpRlN7n68HN3PupBRcY6OTk +qh0qoQeFKSfM7coZGJIcf4a8oAOnI8Qzct8yUHXL6XORk1ogKH2qdLSDgSsd +diwotmtBUgVPvVUX8T58vPcTWwsSxya+/OhjoCtyAz9EasHR4Ham5RcGtqd7 +RiTNa8L+reeHv80R6/E7NISLacLmtSuQocTEWGsPOY6TBiy0C4o1qzCRIRoh +575KAwqDxnodVzBxIbf6qoKkBnxJqjm0WYuJDdm72iQ71WH/0/W3ow2ZGLdC +JrpxuzqccTmsVG3LRI/tXr8GklZA7aaOeeNQJv5MPquv/VkVfL7VPqsPZ+LL +8DQF7VZV4IkpzF0bwUSTGMMIhypVsL2wx9g9monCn9cMjRxThTfvl+w9cJyJ +EmzzuJsqqjASsKq3IoeJ3h3jg0LbVYAccrJm1X0mOpt/fuK7VAnSFneYJDcx +0fOWgeCDHioszbSt+PqQiUXrRKbcqqgwwl12vfApEwd5dKaEg6hQy5OYK/WW +ia326dfvPqPA5uz4QzOfmfi7rsDkfQEZcuuiTRqWs1DqlOP8aLAiiLh4V5DE +WPiv+37Xoq0ixPeb6R+SYKGBya5fDA1FCF42p75aloX7fVsphgMKYLo+UqZI +iYUJM99lJH0V4N3A/skTa1jIuWK5K8xHHmSF91as82Kh0b41AgejZaHY+kjM +uDcLJwcHG+W9ZcHwSJp11lYWbtynyT9sJgsu43c6uraxkI9PxFXitwwkvZv+ +HbiXhVkiT6OiY2VgrijOKuYYC4d02qdjT0lDDyPrbWkZC5XvxDy+90ASgg8W +X3QoZ2GmY69sSakkzJRzgn7cYSFP3pRMVbIkSKl1za7hsnAmQcDLylMSnASp +lHv3WXhItylYa1QC6ttLt7/tYGF/m9LBr6oS4ChWrR/ZRYw/qhGsJiQBXXZP +ZxR6WVhc9318ySdxmKr9fsq3n4X6j6OCXePEQf/y6lvfRljoIrhu1qhRDOp7 +LCNTRlkofD/oYPdZMXCUcQODcRYGFJ+1bfYXgx0nD76OmGahvWdyZACvGEzd +T8qTn2PhyaGrKvIdopDwJyew9g8LHWE3W+yqKEgYX9fzWWChyZakLvtoUSgI +qZ1eXGShZwHZ+JGTKPwPy6w4/g== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12902,113 +15009,165 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV13c81d8bAHBFVvZ2hxXZKePiDs+DbElZqYxIaQglGRVJGkZWX1IkoaEU +7r1ZUTRUSoPMSqikiMyK/D6/vz6v9+vzOud8nnOe5zmvj2pA6MagpTw8PNlL +eHj+/5z58PShenKxhZylF0nOzMmivUAh2rIrAcpZSRf6Z7UAZdsCFLoyITiO ++qFk1gwiXW908nYVgYyeVXj0rD1Ijsln/u6shHcdg0s1ZzfBx3qX0KnOJjjE +TJ8UmQkGW/WR9xOdbyANBBfrJ6Lgd6fpufHOAdDbNn8kvf8UNFtfLX5dNAl6 +/QtfmfnngfKx5kuA3gL4lngvs7hJrLPX74aANS8Gzz8Z6BC8BplrbOtcPARx +i6KdwCOnW9Cdu/r+hIQo+izMbet5fgfy3paJR2qI4p9HL8ci2u/AZjFNvz/m +otjdP8QUen8H+o5T/y0NFEWVd9eklcfuQP8+YaYMRxTtF233LopXwPDaobs0 +bzEUaLfqS99YAXPjObdjL4vjxIyC3PCbCqjRlV5c5IhjRpZaMbenAmJ2pLkk +PhPHE8yTFUcHKmC+N3E0ZVIcj5/Vsf47UQHxg9WybWoSmKJuJFEqUQmJL0vc ++iMkUDtryev7zpWQXBzXtlRREl1e8tQuNlaCo/EuKdkVkihOVYjseVwJgg83 +emjqSyKIuN0rf0GMH9TodbKURHIrc9i6txIOq7V+yd4liRz7H6kqM5Wwr1Dh +38paSXTdqiVbpFMFGy5W6DltkcK7EpPchrQqkNC7EOoTJIUlU0qcluwqeFmX +WBkaKoWXFaqorXlV4NjrZZZ9XApnHkzoNJZWgRXpn/X7MilUkClW8WyoAuNc +xy2h81L4K+B6r+2PKpDPHjydlS+N6xNlgwys2aCgy0mcK5VGv9P988vt2UBq +SorzuSONPhzLZwPObFAa1z6o2SyNebkVfHGebNBwDvOvG5ZGy2fOE+G72GDE +t0AbNJLBGy2HYizT2LA+Qm7I8JkMHj0zuS3pLRtclw9/yHkrg5wsW+/rnWzY +WFTTPd8ng13q1xIe97LB89XWtsc/ZfChW9een4Ns8NG7UrtZVhYvRTjm/Z1k +w54hg4wEf1n01V1IWJDiwEl3B4s3M7KY8iFt+JozB0jsl6SlS+Qw+/XCxy2u +HCiXdp9ds1wOC2NjRQTdOfDuje+dDGU5vHKsgN95CwfUN0SobbCXw++8WmkJ +uzjQtO4S/6vzcjhq1b37RiIHPG+pDy5ekcNfqUPT4yc5MCJyo9GgXA7bF+Ia +VydzQLKVHXW2SQ4l7FDyYgYH/B2fjbh8l0Nlrexm1QIOLNhOv3zBlEer7TIy +IxwOpJfGlC3YyuOFiHNDD6uJ9fl5TulvkMdM9Sye83UccH4kbJkaJI9ZL9lK ++g84kGetUuWcJo/Pj1LFlrVywAydcp5/lEedk7dzI/o50Hrp1YG/3+QxYFXU +f0MDxPqLHq66U/J4lmf+57rPxP40+AslCypgTQS3VmSEiJ8ZGeu4RgHjhY3a +6JMcOGB+2e9pggKmZ1/k2czHBcdCsSmnFAXMOrK43IKfC2oCh0+9PKeAmsHh +vhRBLrxq96x4e00Bq4ra+p4s58KqMBHeDy8VsPSqnG+PFBeGSw+V/iIpYkF6 +TOiYMhcaRT/TD6ororBoVfghVS78F7GxbVZfEeUaWC/+qHHBxkp/bh4VkTKs +c25cgwtF7wccBHYqYiLP8uRcXS5slXEZJVcp4qPGcN1eEy4YxdYdK6hXRJnA +d97CplwQHtCSU32siAa7ZWeMzLhQc5sXVnYr4v6xjCORdC7IOdWkr15UxL8W +Qj+rLbgwWrFSo0qQhFHq3Mo64MJDhewaEykSjhu6/6xGLhz4sm+ArkFC3nH5 +7iIrIt5j6sY2TiT8UaGaY2zLhavDGS1P3EkoUn7TcbkdF46uX9zq6EtCF+mW +hD7C+tSeE+vDSVibfTVpnwMX+BLtSG9iSHj80l4PA0cu9I2wy90TSXh2tLl8 +hPCZ6rOd3jkk5PtiKbDBmQvblBf29BWScMnfaKF5wmZJu3n8bpDQTmPnxcvr +uPDVzUZ7+z0S+i2ej+lz4cLan39i9g2SsG3Z9rWSG7gQbZ+t8+AHCV8HBCWk +ES6/rN8jPUNCpx1hWfwbuaDg7m9eI0jGu5X1xl8Jr7v1e3i5FBk7TcRb1rtx +IYE/K9eXTMaRV6nGVYR/VD+a5V1FRqN6m0u73bmgKuV31dOUjJcfFRQ2EPbc +M+d5Hcl43DPwmKgHF5IfZvDPO5Ax5ImmtRfh+1RdrosbGaPME75eIDwd+TDo +8lYydmQLh/US1nnlIzsVREbmyc0fZD254Ks9+9A2lIxJCaLGToSzEtIjzkeR +UbXu/v5Ywi292uo/jpGxaKX0xVLC88bNby2SyWgcU1LRSnhN2tbjGdlk1NIm +cUYJ7/g6bTiUT8aIQNlrQl5cuIBnB2hXyagvw0pRIfzqvFbm6TtkXN5vFmhI +eNnkA8u+GjL+WFG5CgjTnbdMrGomo82k27gt4dCSqcJjrWQsl3t+3YFw8b9U +1/YOMnoKP95qR7jbS5NH8yMZE+anhJGwWMX929HDZORvFeIaEbYW3uzXOkHG +Fv5qPzXCUYGTYsp/yWgwzBYSIXyrPqUhnI+CJV53OePE9w/Irtz3UJSCol8P +Bb0iLB/aSJWXpyD99R1SGWHnlk0vdqlQMGSO2hlP+Jjqr8P12hR8NHT44gbC +3JhkPXEjCnKaUvZSCX9/q963jUnBk9vEHIaI/VfRb0hm21Dw4ZqHRqWEz3wc +H/HeRME8mw90MuFGszN5N7cR4xPaNr8kznsqY4Xj4m4KSn8SSz9M2Het5/Xi +IxTUy71i+YzIl6z8n5tmkyiYzc18sItwy8wpQcd0Ch46yuvLR9jwet3On0UU +1Jgun9Qh8m/nUg95q5sUnOVNH+cS+Xpxy9jjbA4FtaNB0oIwv5jqSnoLBRXC +dz5iuXKBsbO2I+U1BRXrM7dy13Mh7L7biY89FPz8Z0JJh3DP/qShxFEKZtY0 +6fES9SHeqpzdOUPBUtPJ2GCiftZq1Fjr8FCxtqhjoYWor/LO70VtUlSceW5x +OdaJ2D/mhm0kMypWFfdeuGrPBXvfgl+mVlTUBH6Fd0R9i8V/P+7hTEXV/3QX +/xH94GLzidJ0fyqGNjkqoA0Xqh1rv/OfpqL2tVN1cZZciNsrcEQ9i4qUc1od +x4j+YpvmLmaVT8zv2RhylOg/7a/HVh+poOLds1MaO1lcGN+0InKym4rBdR9/ +zxD97G5MmIDkEBUDMs5sfEH0u6MX7+WuGqNiG73YooDGBZF+r7pdS5XQrul4 +r4ExFzR3pvD06ygh6e1cmJQBcT4Hp8+0xirhWkrHps4VXNDIsaKMnFDCf27B +Kzap/b++z94SSFfCw1m1ZW9VuBAzr/3KqlgJt2SE8NRRuXDuuK9sTasSLuvR +4HeS50JrxpNLJVRl/Bom+W2/EHHeVTJrmjWVUUk4o7NQgAubO7Y19a9Rxlec +9ttPlxH3gcL8ENlWGZ2iP2mJLOUCb+Fqncx9yig2NpPs/ocD9PLz7KONyqi8 +aXXm9DcOrO18uTDWoox/+navmPvKARcePju/N8poIuu7b4a4zwI37uuGz8p4 +JK6L/uUTB2xjVePil6ngWA9zPLObA2HKM1csdVXwQQ35k1oLBx7uvDTaHKmC +N65sr9Av4oDDvLnU4VgVpNYMkm9e4sDL9HaacbwKboxzSF2Zz4HuGqH44tMq +GFFVliaey4Gx5RFSJy6q4KY5nQ2VqRxQuGNvatukggVPqpeyojiwd24ivkVU +FX3cpW9FORLxhO+Q+yKlig0DXUeZdhwQHOkp41VQxdO8IXzz1hwo6W1+Z6Gm +irFBYmb7WBz40HBOj0NTxQFouqi8mgPrT5h3XfZTRYewKXqNDAcMpY4ZxFao +op3TiW8fetjwW1fig76HGga2vxC5vYUNM/mkY0ab1VCgLP1WqhcbpsQ11M39 +1LA2nWcu2I0NY5Pmu9fuUsM4xQf/yTqxYaAucGbzETXMHWzysKOz4ZnTXbFT +JWqY02V1Q1yBDXl7fGFgWg31i2Zojq+rgFl2s/C//1bgYr0LjcyoggkpR3/P +JnX8dbUif0GwEoZS/D33C6zEsIg9MvWFd8Dh5yGHzzRNfPKrZ4j3WDn8CBQ8 +wI7TwoWJX9lxUWXE/4T80pNN2niawnt1+vg1kHqxMu3OTx30bTNwH+woAcqp +2640mh52q9Y9sZK4Arm65hLSO/VRcDbu3JuiQnhGsjSZzFiFGVffX2f2XQQ6 +pSnd4J0B9v9IXFgelwtivEUR2xJWY/lx3k/5HdmgdEyZ6b1yDRpEKf71c80A +IY2t3I1P1uDASq7JkvMpsIqlePuQjyFmSOsHnKk+Cfs/SDU78hjhG8OCseur +j8PPyRQPh1wjNDwap881i4O+rsue+XlG6F7V+31WKQ6e3eN6TVw0QoHti3OO +y+Kg+GS/9/nLRihEfdWv/uYobCYb+367YYTHcj+JXd17FB5Z9e44fc8IM94/ +1/hQfAQuZGhHPR0g5hOeNf2kehjsDB7nOegb478vY4fPOEfDJn5791cGxkjW +c1YVMYmG3e+finoZGuOznEv9l6jRkJb8In67qTGKTHw5tTAWBe++tu+IszRG +HwnvkPTMKNheOGjI8TDGG0dfTy5/fwgSJJc8VzlqjMIxPfmycZHQMMn4O/vS +GJekNL1znz4Al1vvBri9NkaTj6anNw8egMQSo2flb40x8jh7KOT1AXDw0j0f +1GWM8SGiUfduHYD2WpLp20/GaD2UY7644wCMHPu9v3zKGGnfRKL4+/aDnMTd +ke0kEyzwKK0eawuHfXqGPa+DTHDXqiupy+pC4eAs6Y9fsAlxv3stncwLhcNN +vKSx3Sao9HdGfz4mFJI3dXgLh5ngbvG9/tsYoXAtMarbKsYE6VC9+uC9fTDQ +19BVlWaCVm9uJlU+DgHPVKfOc3dN0IDxLWnZ6B5gjW1v9xaioZiGSb7+iWCQ +q7Mrql9Ow5sBS9tWhQTD2EmdMGUxGire5vVY6xEMBarjyz9L0XB6ll/zpkYw +/HOPtQ6j0PDp1d9BIU92QmNdRmWSAQ33DQdG3RDbCZanG9KrPGgofW7Fhoqy +ILBRV1gnWkRDuTaFD3LUQGCPPlLdXkzDN0maLzSEA0H97oGZ2lIacpQ7NG1m +A4DPse1ScBkND/u0TrBfB0BTaNKvZjYNfZJSz3mdDACLuqmcmCc0bEmvUbg0 +vQ1oG18PfP1BQ3b+av7h9/5QSo67a/GThrLaSUFjrf4g+1kv5dwEDbUPnmrh +rfeHqUOnTKxniHiPz4VsyfOHynw4VbBIQ3m+g/z3vPzB4NstfQ8pU7y+48JC +3A0/0Io/E9Vkaoq7qCGbpjk+UM8oWeZMN0Up2JUieM4HXGcbMzuYpriTRplh +RPhA1L7pm8OWphi/wmApr5EPtGz1/yTmbIqJ3xfUxSu3QrA5zXGLvyl+e89a +JsTdAtd/fSJPnTJF1XcR7Nft3mBRPn/tSLIpvoo5SK696w1vdsnTBNJMiXqP +Tm/M84Y//c6upCxTXJwLsVbd5g2ObXcTMd8UYzXXa7F+boKRstTRlApTTBdX +mXsgsQl0gswbNXpMMZW/6M/mYE84q+by53ifKTpUd5H2unrC1McAk4EPpviz +OudflpknNGxOKSsYNMUEduYTTSFP2Oj6MUd+1BR9IuQDfMo8IJpxIkyIxwxr +7EonxifdoUXyteqohhk2v08IZ51zA/22z1udtMxQxPvRdr54N8hM+ZNzXccM +H99c9fXjbjfYKqAutsPADC+4VHm0oxv8nI/888HMDD86xS+pGN0IcsOUt6+c +zLCSJ3pGx2kjBDUEJ7LDzfCawffkcpkNMBYycsgmwgxdysPnPXg2QBR17553 +kWaYfLlfR/qHK5w5HLpxLtYMDd3eh79sdoU79EgVZpIZ2rG1jtpGuMI893h9 +c54ZKulKdntWrofM2wVTb5rNMPHvV07i9nVA8VMZDnxshnXKwDOH66BErKh3 +qsUM8+cSlmRS10F1SEmT3EszTCJ55Zh3OsN73Zvpm7vMMPVHNdnN2Rm0rtXo +Dfwww+4rYox0lhM0FrZvn5A1R02VuB4WwwH6nVX9IhXMcZIzXPuW4gA8v0O8 +/5LM8XBaVt2Zf/ZgtUHAZZmKORZ6+xVuabKHx0vopoo65njNovvsCSd7aA24 +JGRpYY4nIq5Jfwy0gx713eXpO8xxpZVoX0eZDfx9xb0mu8ucSIl3z90zbIBy +hPdK3h5zvCxcTZ2ItAGfjos5xWHmyLt39uAxKxvoP9EWXx1jjg2TF/oXetbC +1y/Gbv1p5mjj36a1TnItTF1bnDW4a460Q/ZuSZlW8MXTtvB0jTlusSvyFThi +BV18qfaDdeYYZi8rdGmnFdT5k87/d98c20qKv0qyrCBBwYS+8NQcOzVDT/B+ +swSJU7sPP+sjvocaa8dnYwl6Ozt4gpbSUWjFN8OfIghKspTrDXx0lCp+lWw+ +BSDRHLBBQYCOHpEKE/UvASaVxi8/X064+uInRiJA7Ttha0NZOtr9zTeXm7AA +e1s8sahJxwX7zcqUNywI1CgTyltHR6W6yKSQOwyIeeS7e6UrHZ1vVE0+TGFA +epDU88qNdPS8f36L7S4G1JdEpzz3ouMJWZW9j9UYILPSXnxhGx0bY6+94ObQ +4fHKzzL+kXS0+Xrrr+Fpc9DRUlZZeYmOf7cFTx04bQrY8ia+8jIx/7uu89W7 +TcEzOOmTRTEd3XXVBdScTeH4tdEir+t01Dp86GKAuCn0adVrnK6i4/6Jv6H/ +5dAgTdtb98cTOh4MvEC5Wm4CEzpZtMpxOgY8WXJzx4wRdLWijfQkHVMd+ITr +3hvB/X1jbhHTdNT9nL9X95ERpFU6hNP+0DHDte6FX7YR6NB5btbyMpBvgXdY +2tgIAhxCVJvlGJh6TkYiI8oQ2nfaibQzGRgkq8xVkV0DdULTJBNgYHejn+P9 +xdVQVFak/Z8lA69K0hKiRlZD2M8F2022DLQOLYo0vL8aRA+xj/WtZ6C8b9Ct +p3tXg22S6uxQAAP/dOh//ZBtANXFfz9Nn2Igde3+wV59faBZR8w6JjPQ8K6M +UIGQPnA+/RApTGXgk4P89ac/60Gl0gdTx0wG6qpRlN7n68HN3PupBRcY6OTk +qh0qoQeFKSfM7coZGJIcf4a8oAOnI8Qzct8yUHXL6XORk1ogKH2qdLSDgSsd +diwotmtBUgVPvVUX8T58vPcTWwsSxya+/OhjoCtyAz9EasHR4Ham5RcGtqd7 +RiTNa8L+reeHv80R6/E7NISLacLmtSuQocTEWGsPOY6TBiy0C4o1qzCRIRoh +575KAwqDxnodVzBxIbf6qoKkBnxJqjm0WYuJDdm72iQ71WH/0/W3ow2ZGLdC +JrpxuzqccTmsVG3LRI/tXr8GklZA7aaOeeNQJv5MPquv/VkVfL7VPqsPZ+LL +8DQF7VZV4IkpzF0bwUSTGMMIhypVsL2wx9g9monCn9cMjRxThTfvl+w9cJyJ +EmzzuJsqqjASsKq3IoeJ3h3jg0LbVYAccrJm1X0mOpt/fuK7VAnSFneYJDcx +0fOWgeCDHioszbSt+PqQiUXrRKbcqqgwwl12vfApEwd5dKaEg6hQy5OYK/WW +ia326dfvPqPA5uz4QzOfmfi7rsDkfQEZcuuiTRqWs1DqlOP8aLAiiLh4V5DE +WPiv+37Xoq0ixPeb6R+SYKGBya5fDA1FCF42p75aloX7fVsphgMKYLo+UqZI +iYUJM99lJH0V4N3A/skTa1jIuWK5K8xHHmSF91as82Kh0b41AgejZaHY+kjM +uDcLJwcHG+W9ZcHwSJp11lYWbtynyT9sJgsu43c6uraxkI9PxFXitwwkvZv+ +HbiXhVkiT6OiY2VgrijOKuYYC4d02qdjT0lDDyPrbWkZC5XvxDy+90ASgg8W +X3QoZ2GmY69sSakkzJRzgn7cYSFP3pRMVbIkSKl1za7hsnAmQcDLylMSnASp +lHv3WXhItylYa1QC6ttLt7/tYGF/m9LBr6oS4ChWrR/ZRYw/qhGsJiQBXXZP +ZxR6WVhc9318ySdxmKr9fsq3n4X6j6OCXePEQf/y6lvfRljoIrhu1qhRDOp7 +LCNTRlkofD/oYPdZMXCUcQODcRYGFJ+1bfYXgx0nD76OmGahvWdyZACvGEzd +T8qTn2PhyaGrKvIdopDwJyew9g8LHWE3W+yqKEgYX9fzWWChyZakLvtoUSgI +qZ1eXGShZwHZ+JGTKPwPy6w4/g== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.08726940532059288}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13020,19 +15179,19 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.08726940532059288}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13046,112 +15205,164 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV13c81d8bAHBFVvZ2hxXZKePiDs+DbElZqYxIaQglGRVJGkZWX1IkoaEU +7r1ZUTRUSoPMSqikiMyK/D6/vz6v9+vzOud8nnOe5zmvj2pA6MagpTw8PNlL +eHj+/5z58PShenKxhZylF0nOzMmivUAh2rIrAcpZSRf6Z7UAZdsCFLoyITiO ++qFk1gwiXW908nYVgYyeVXj0rD1Ijsln/u6shHcdg0s1ZzfBx3qX0KnOJjjE +TJ8UmQkGW/WR9xOdbyANBBfrJ6Lgd6fpufHOAdDbNn8kvf8UNFtfLX5dNAl6 +/QtfmfnngfKx5kuA3gL4lngvs7hJrLPX74aANS8Gzz8Z6BC8BplrbOtcPARx +i6KdwCOnW9Cdu/r+hIQo+izMbet5fgfy3paJR2qI4p9HL8ci2u/AZjFNvz/m +otjdP8QUen8H+o5T/y0NFEWVd9eklcfuQP8+YaYMRxTtF233LopXwPDaobs0 +bzEUaLfqS99YAXPjObdjL4vjxIyC3PCbCqjRlV5c5IhjRpZaMbenAmJ2pLkk +PhPHE8yTFUcHKmC+N3E0ZVIcj5/Vsf47UQHxg9WybWoSmKJuJFEqUQmJL0vc ++iMkUDtryev7zpWQXBzXtlRREl1e8tQuNlaCo/EuKdkVkihOVYjseVwJgg83 +emjqSyKIuN0rf0GMH9TodbKURHIrc9i6txIOq7V+yd4liRz7H6kqM5Wwr1Dh +38paSXTdqiVbpFMFGy5W6DltkcK7EpPchrQqkNC7EOoTJIUlU0qcluwqeFmX +WBkaKoWXFaqorXlV4NjrZZZ9XApnHkzoNJZWgRXpn/X7MilUkClW8WyoAuNc +xy2h81L4K+B6r+2PKpDPHjydlS+N6xNlgwys2aCgy0mcK5VGv9P988vt2UBq +SorzuSONPhzLZwPObFAa1z6o2SyNebkVfHGebNBwDvOvG5ZGy2fOE+G72GDE +t0AbNJLBGy2HYizT2LA+Qm7I8JkMHj0zuS3pLRtclw9/yHkrg5wsW+/rnWzY +WFTTPd8ng13q1xIe97LB89XWtsc/ZfChW9een4Ns8NG7UrtZVhYvRTjm/Z1k +w54hg4wEf1n01V1IWJDiwEl3B4s3M7KY8iFt+JozB0jsl6SlS+Qw+/XCxy2u +HCiXdp9ds1wOC2NjRQTdOfDuje+dDGU5vHKsgN95CwfUN0SobbCXw++8WmkJ +uzjQtO4S/6vzcjhq1b37RiIHPG+pDy5ekcNfqUPT4yc5MCJyo9GgXA7bF+Ia +VydzQLKVHXW2SQ4l7FDyYgYH/B2fjbh8l0Nlrexm1QIOLNhOv3zBlEer7TIy +IxwOpJfGlC3YyuOFiHNDD6uJ9fl5TulvkMdM9Sye83UccH4kbJkaJI9ZL9lK ++g84kGetUuWcJo/Pj1LFlrVywAydcp5/lEedk7dzI/o50Hrp1YG/3+QxYFXU +f0MDxPqLHq66U/J4lmf+57rPxP40+AslCypgTQS3VmSEiJ8ZGeu4RgHjhY3a +6JMcOGB+2e9pggKmZ1/k2czHBcdCsSmnFAXMOrK43IKfC2oCh0+9PKeAmsHh +vhRBLrxq96x4e00Bq4ra+p4s58KqMBHeDy8VsPSqnG+PFBeGSw+V/iIpYkF6 +TOiYMhcaRT/TD6ororBoVfghVS78F7GxbVZfEeUaWC/+qHHBxkp/bh4VkTKs +c25cgwtF7wccBHYqYiLP8uRcXS5slXEZJVcp4qPGcN1eEy4YxdYdK6hXRJnA +d97CplwQHtCSU32siAa7ZWeMzLhQc5sXVnYr4v6xjCORdC7IOdWkr15UxL8W +Qj+rLbgwWrFSo0qQhFHq3Mo64MJDhewaEykSjhu6/6xGLhz4sm+ArkFC3nH5 +7iIrIt5j6sY2TiT8UaGaY2zLhavDGS1P3EkoUn7TcbkdF46uX9zq6EtCF+mW +hD7C+tSeE+vDSVibfTVpnwMX+BLtSG9iSHj80l4PA0cu9I2wy90TSXh2tLl8 +hPCZ6rOd3jkk5PtiKbDBmQvblBf29BWScMnfaKF5wmZJu3n8bpDQTmPnxcvr +uPDVzUZ7+z0S+i2ej+lz4cLan39i9g2SsG3Z9rWSG7gQbZ+t8+AHCV8HBCWk +ES6/rN8jPUNCpx1hWfwbuaDg7m9eI0jGu5X1xl8Jr7v1e3i5FBk7TcRb1rtx +IYE/K9eXTMaRV6nGVYR/VD+a5V1FRqN6m0u73bmgKuV31dOUjJcfFRQ2EPbc +M+d5Hcl43DPwmKgHF5IfZvDPO5Ax5ImmtRfh+1RdrosbGaPME75eIDwd+TDo +8lYydmQLh/US1nnlIzsVREbmyc0fZD254Ks9+9A2lIxJCaLGToSzEtIjzkeR +UbXu/v5Ywi292uo/jpGxaKX0xVLC88bNby2SyWgcU1LRSnhN2tbjGdlk1NIm +cUYJ7/g6bTiUT8aIQNlrQl5cuIBnB2hXyagvw0pRIfzqvFbm6TtkXN5vFmhI +eNnkA8u+GjL+WFG5CgjTnbdMrGomo82k27gt4dCSqcJjrWQsl3t+3YFw8b9U +1/YOMnoKP95qR7jbS5NH8yMZE+anhJGwWMX929HDZORvFeIaEbYW3uzXOkHG +Fv5qPzXCUYGTYsp/yWgwzBYSIXyrPqUhnI+CJV53OePE9w/Irtz3UJSCol8P +Bb0iLB/aSJWXpyD99R1SGWHnlk0vdqlQMGSO2hlP+Jjqr8P12hR8NHT44gbC +3JhkPXEjCnKaUvZSCX9/q963jUnBk9vEHIaI/VfRb0hm21Dw4ZqHRqWEz3wc +H/HeRME8mw90MuFGszN5N7cR4xPaNr8kznsqY4Xj4m4KSn8SSz9M2Het5/Xi +IxTUy71i+YzIl6z8n5tmkyiYzc18sItwy8wpQcd0Ch46yuvLR9jwet3On0UU +1Jgun9Qh8m/nUg95q5sUnOVNH+cS+Xpxy9jjbA4FtaNB0oIwv5jqSnoLBRXC +dz5iuXKBsbO2I+U1BRXrM7dy13Mh7L7biY89FPz8Z0JJh3DP/qShxFEKZtY0 +6fES9SHeqpzdOUPBUtPJ2GCiftZq1Fjr8FCxtqhjoYWor/LO70VtUlSceW5x +OdaJ2D/mhm0kMypWFfdeuGrPBXvfgl+mVlTUBH6Fd0R9i8V/P+7hTEXV/3QX +/xH94GLzidJ0fyqGNjkqoA0Xqh1rv/OfpqL2tVN1cZZciNsrcEQ9i4qUc1od +x4j+YpvmLmaVT8zv2RhylOg/7a/HVh+poOLds1MaO1lcGN+0InKym4rBdR9/ +zxD97G5MmIDkEBUDMs5sfEH0u6MX7+WuGqNiG73YooDGBZF+r7pdS5XQrul4 +r4ExFzR3pvD06ygh6e1cmJQBcT4Hp8+0xirhWkrHps4VXNDIsaKMnFDCf27B +Kzap/b++z94SSFfCw1m1ZW9VuBAzr/3KqlgJt2SE8NRRuXDuuK9sTasSLuvR +4HeS50JrxpNLJVRl/Bom+W2/EHHeVTJrmjWVUUk4o7NQgAubO7Y19a9Rxlec +9ttPlxH3gcL8ENlWGZ2iP2mJLOUCb+Fqncx9yig2NpPs/ocD9PLz7KONyqi8 +aXXm9DcOrO18uTDWoox/+navmPvKARcePju/N8poIuu7b4a4zwI37uuGz8p4 +JK6L/uUTB2xjVePil6ngWA9zPLObA2HKM1csdVXwQQ35k1oLBx7uvDTaHKmC +N65sr9Av4oDDvLnU4VgVpNYMkm9e4sDL9HaacbwKboxzSF2Zz4HuGqH44tMq +GFFVliaey4Gx5RFSJy6q4KY5nQ2VqRxQuGNvatukggVPqpeyojiwd24ivkVU +FX3cpW9FORLxhO+Q+yKlig0DXUeZdhwQHOkp41VQxdO8IXzz1hwo6W1+Z6Gm +irFBYmb7WBz40HBOj0NTxQFouqi8mgPrT5h3XfZTRYewKXqNDAcMpY4ZxFao +op3TiW8fetjwW1fig76HGga2vxC5vYUNM/mkY0ab1VCgLP1WqhcbpsQ11M39 +1LA2nWcu2I0NY5Pmu9fuUsM4xQf/yTqxYaAucGbzETXMHWzysKOz4ZnTXbFT +JWqY02V1Q1yBDXl7fGFgWg31i2Zojq+rgFl2s/C//1bgYr0LjcyoggkpR3/P +JnX8dbUif0GwEoZS/D33C6zEsIg9MvWFd8Dh5yGHzzRNfPKrZ4j3WDn8CBQ8 +wI7TwoWJX9lxUWXE/4T80pNN2niawnt1+vg1kHqxMu3OTx30bTNwH+woAcqp +2640mh52q9Y9sZK4Arm65hLSO/VRcDbu3JuiQnhGsjSZzFiFGVffX2f2XQQ6 +pSnd4J0B9v9IXFgelwtivEUR2xJWY/lx3k/5HdmgdEyZ6b1yDRpEKf71c80A +IY2t3I1P1uDASq7JkvMpsIqlePuQjyFmSOsHnKk+Cfs/SDU78hjhG8OCseur +j8PPyRQPh1wjNDwap881i4O+rsue+XlG6F7V+31WKQ6e3eN6TVw0QoHti3OO +y+Kg+GS/9/nLRihEfdWv/uYobCYb+367YYTHcj+JXd17FB5Z9e44fc8IM94/ +1/hQfAQuZGhHPR0g5hOeNf2kehjsDB7nOegb478vY4fPOEfDJn5791cGxkjW +c1YVMYmG3e+finoZGuOznEv9l6jRkJb8In67qTGKTHw5tTAWBe++tu+IszRG +HwnvkPTMKNheOGjI8TDGG0dfTy5/fwgSJJc8VzlqjMIxPfmycZHQMMn4O/vS +GJekNL1znz4Al1vvBri9NkaTj6anNw8egMQSo2flb40x8jh7KOT1AXDw0j0f +1GWM8SGiUfduHYD2WpLp20/GaD2UY7644wCMHPu9v3zKGGnfRKL4+/aDnMTd +ke0kEyzwKK0eawuHfXqGPa+DTHDXqiupy+pC4eAs6Y9fsAlxv3stncwLhcNN +vKSx3Sao9HdGfz4mFJI3dXgLh5ngbvG9/tsYoXAtMarbKsYE6VC9+uC9fTDQ +19BVlWaCVm9uJlU+DgHPVKfOc3dN0IDxLWnZ6B5gjW1v9xaioZiGSb7+iWCQ +q7Mrql9Ow5sBS9tWhQTD2EmdMGUxGire5vVY6xEMBarjyz9L0XB6ll/zpkYw +/HOPtQ6j0PDp1d9BIU92QmNdRmWSAQ33DQdG3RDbCZanG9KrPGgofW7Fhoqy +ILBRV1gnWkRDuTaFD3LUQGCPPlLdXkzDN0maLzSEA0H97oGZ2lIacpQ7NG1m +A4DPse1ScBkND/u0TrBfB0BTaNKvZjYNfZJSz3mdDACLuqmcmCc0bEmvUbg0 +vQ1oG18PfP1BQ3b+av7h9/5QSo67a/GThrLaSUFjrf4g+1kv5dwEDbUPnmrh +rfeHqUOnTKxniHiPz4VsyfOHynw4VbBIQ3m+g/z3vPzB4NstfQ8pU7y+48JC +3A0/0Io/E9Vkaoq7qCGbpjk+UM8oWeZMN0Up2JUieM4HXGcbMzuYpriTRplh +RPhA1L7pm8OWphi/wmApr5EPtGz1/yTmbIqJ3xfUxSu3QrA5zXGLvyl+e89a +JsTdAtd/fSJPnTJF1XcR7Nft3mBRPn/tSLIpvoo5SK696w1vdsnTBNJMiXqP +Tm/M84Y//c6upCxTXJwLsVbd5g2ObXcTMd8UYzXXa7F+boKRstTRlApTTBdX +mXsgsQl0gswbNXpMMZW/6M/mYE84q+by53ifKTpUd5H2unrC1McAk4EPpviz +OudflpknNGxOKSsYNMUEduYTTSFP2Oj6MUd+1BR9IuQDfMo8IJpxIkyIxwxr +7EonxifdoUXyteqohhk2v08IZ51zA/22z1udtMxQxPvRdr54N8hM+ZNzXccM +H99c9fXjbjfYKqAutsPADC+4VHm0oxv8nI/888HMDD86xS+pGN0IcsOUt6+c +zLCSJ3pGx2kjBDUEJ7LDzfCawffkcpkNMBYycsgmwgxdysPnPXg2QBR17553 +kWaYfLlfR/qHK5w5HLpxLtYMDd3eh79sdoU79EgVZpIZ2rG1jtpGuMI893h9 +c54ZKulKdntWrofM2wVTb5rNMPHvV07i9nVA8VMZDnxshnXKwDOH66BErKh3 +qsUM8+cSlmRS10F1SEmT3EszTCJ55Zh3OsN73Zvpm7vMMPVHNdnN2Rm0rtXo +Dfwww+4rYox0lhM0FrZvn5A1R02VuB4WwwH6nVX9IhXMcZIzXPuW4gA8v0O8 +/5LM8XBaVt2Zf/ZgtUHAZZmKORZ6+xVuabKHx0vopoo65njNovvsCSd7aA24 +JGRpYY4nIq5Jfwy0gx713eXpO8xxpZVoX0eZDfx9xb0mu8ucSIl3z90zbIBy +hPdK3h5zvCxcTZ2ItAGfjos5xWHmyLt39uAxKxvoP9EWXx1jjg2TF/oXetbC +1y/Gbv1p5mjj36a1TnItTF1bnDW4a460Q/ZuSZlW8MXTtvB0jTlusSvyFThi +BV18qfaDdeYYZi8rdGmnFdT5k87/d98c20qKv0qyrCBBwYS+8NQcOzVDT/B+ +swSJU7sPP+sjvocaa8dnYwl6Ozt4gpbSUWjFN8OfIghKspTrDXx0lCp+lWw+ +BSDRHLBBQYCOHpEKE/UvASaVxi8/X064+uInRiJA7Ttha0NZOtr9zTeXm7AA +e1s8sahJxwX7zcqUNywI1CgTyltHR6W6yKSQOwyIeeS7e6UrHZ1vVE0+TGFA +epDU88qNdPS8f36L7S4G1JdEpzz3ouMJWZW9j9UYILPSXnxhGx0bY6+94ObQ +4fHKzzL+kXS0+Xrrr+Fpc9DRUlZZeYmOf7cFTx04bQrY8ia+8jIx/7uu89W7 +TcEzOOmTRTEd3XXVBdScTeH4tdEir+t01Dp86GKAuCn0adVrnK6i4/6Jv6H/ +5dAgTdtb98cTOh4MvEC5Wm4CEzpZtMpxOgY8WXJzx4wRdLWijfQkHVMd+ITr +3hvB/X1jbhHTdNT9nL9X95ERpFU6hNP+0DHDte6FX7YR6NB5btbyMpBvgXdY +2tgIAhxCVJvlGJh6TkYiI8oQ2nfaibQzGRgkq8xVkV0DdULTJBNgYHejn+P9 +xdVQVFak/Z8lA69K0hKiRlZD2M8F2022DLQOLYo0vL8aRA+xj/WtZ6C8b9Ct +p3tXg22S6uxQAAP/dOh//ZBtANXFfz9Nn2Igde3+wV59faBZR8w6JjPQ8K6M +UIGQPnA+/RApTGXgk4P89ac/60Gl0gdTx0wG6qpRlN7n68HN3PupBRcY6OTk +qh0qoQeFKSfM7coZGJIcf4a8oAOnI8Qzct8yUHXL6XORk1ogKH2qdLSDgSsd +diwotmtBUgVPvVUX8T58vPcTWwsSxya+/OhjoCtyAz9EasHR4Ham5RcGtqd7 +RiTNa8L+reeHv80R6/E7NISLacLmtSuQocTEWGsPOY6TBiy0C4o1qzCRIRoh +575KAwqDxnodVzBxIbf6qoKkBnxJqjm0WYuJDdm72iQ71WH/0/W3ow2ZGLdC +JrpxuzqccTmsVG3LRI/tXr8GklZA7aaOeeNQJv5MPquv/VkVfL7VPqsPZ+LL +8DQF7VZV4IkpzF0bwUSTGMMIhypVsL2wx9g9monCn9cMjRxThTfvl+w9cJyJ +EmzzuJsqqjASsKq3IoeJ3h3jg0LbVYAccrJm1X0mOpt/fuK7VAnSFneYJDcx +0fOWgeCDHioszbSt+PqQiUXrRKbcqqgwwl12vfApEwd5dKaEg6hQy5OYK/WW +ia326dfvPqPA5uz4QzOfmfi7rsDkfQEZcuuiTRqWs1DqlOP8aLAiiLh4V5DE +WPiv+37Xoq0ixPeb6R+SYKGBya5fDA1FCF42p75aloX7fVsphgMKYLo+UqZI +iYUJM99lJH0V4N3A/skTa1jIuWK5K8xHHmSF91as82Kh0b41AgejZaHY+kjM +uDcLJwcHG+W9ZcHwSJp11lYWbtynyT9sJgsu43c6uraxkI9PxFXitwwkvZv+ +HbiXhVkiT6OiY2VgrijOKuYYC4d02qdjT0lDDyPrbWkZC5XvxDy+90ASgg8W +X3QoZ2GmY69sSakkzJRzgn7cYSFP3pRMVbIkSKl1za7hsnAmQcDLylMSnASp +lHv3WXhItylYa1QC6ttLt7/tYGF/m9LBr6oS4ChWrR/ZRYw/qhGsJiQBXXZP +ZxR6WVhc9318ySdxmKr9fsq3n4X6j6OCXePEQf/y6lvfRljoIrhu1qhRDOp7 +LCNTRlkofD/oYPdZMXCUcQODcRYGFJ+1bfYXgx0nD76OmGahvWdyZACvGEzd +T8qTn2PhyaGrKvIdopDwJyew9g8LHWE3W+yqKEgYX9fzWWChyZakLvtoUSgI +qZ1eXGShZwHZ+JGTKPwPy6w4/g== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.08726940532059288}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13162,6 +15373,7 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13189,7 +15401,8 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.08726940532059288}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13197,22 +15410,721 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991327033758711*^9}, + CellChangeTimes->{3.991327033758711*^9, 3.9938530974912977`*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] + "Out[150]=",ExpressionUUID->"708a2554-ef03-4b55-a91f-f71f738cdd64"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, - 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ -ea3fc2b4c4a8"], + 3.9919244033659534`*^9}, + CellLabel-> + "In[151]:=",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799951845436*^9, - 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ -85a3484011b6"], + CellChangeTimes->{{3.991799951845436*^9, 3.991799954096182*^9}}, + CellLabel-> + "In[152]:=",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c81d8bAHBFVvZ2hxXZKePiDs+DbElZqYxIaQglGRVJGkZWX1IkoaEU +7r1ZUTRUSoPMSqikiMyK/D6/vz6v9+vzOud8nnOe5zmvj2pA6MagpTw8PNlL +eHj+/5z58PShenKxhZylF0nOzMmivUAh2rIrAcpZSRf6Z7UAZdsCFLoyITiO ++qFk1gwiXW908nYVgYyeVXj0rD1Ijsln/u6shHcdg0s1ZzfBx3qX0KnOJjjE +TJ8UmQkGW/WR9xOdbyANBBfrJ6Lgd6fpufHOAdDbNn8kvf8UNFtfLX5dNAl6 +/QtfmfnngfKx5kuA3gL4lngvs7hJrLPX74aANS8Gzz8Z6BC8BplrbOtcPARx +i6KdwCOnW9Cdu/r+hIQo+izMbet5fgfy3paJR2qI4p9HL8ci2u/AZjFNvz/m +otjdP8QUen8H+o5T/y0NFEWVd9eklcfuQP8+YaYMRxTtF233LopXwPDaobs0 +bzEUaLfqS99YAXPjObdjL4vjxIyC3PCbCqjRlV5c5IhjRpZaMbenAmJ2pLkk +PhPHE8yTFUcHKmC+N3E0ZVIcj5/Vsf47UQHxg9WybWoSmKJuJFEqUQmJL0vc ++iMkUDtryev7zpWQXBzXtlRREl1e8tQuNlaCo/EuKdkVkihOVYjseVwJgg83 +emjqSyKIuN0rf0GMH9TodbKURHIrc9i6txIOq7V+yd4liRz7H6kqM5Wwr1Dh +38paSXTdqiVbpFMFGy5W6DltkcK7EpPchrQqkNC7EOoTJIUlU0qcluwqeFmX +WBkaKoWXFaqorXlV4NjrZZZ9XApnHkzoNJZWgRXpn/X7MilUkClW8WyoAuNc +xy2h81L4K+B6r+2PKpDPHjydlS+N6xNlgwys2aCgy0mcK5VGv9P988vt2UBq +SorzuSONPhzLZwPObFAa1z6o2SyNebkVfHGebNBwDvOvG5ZGy2fOE+G72GDE +t0AbNJLBGy2HYizT2LA+Qm7I8JkMHj0zuS3pLRtclw9/yHkrg5wsW+/rnWzY +WFTTPd8ng13q1xIe97LB89XWtsc/ZfChW9een4Ns8NG7UrtZVhYvRTjm/Z1k +w54hg4wEf1n01V1IWJDiwEl3B4s3M7KY8iFt+JozB0jsl6SlS+Qw+/XCxy2u +HCiXdp9ds1wOC2NjRQTdOfDuje+dDGU5vHKsgN95CwfUN0SobbCXw++8WmkJ +uzjQtO4S/6vzcjhq1b37RiIHPG+pDy5ekcNfqUPT4yc5MCJyo9GgXA7bF+Ia +VydzQLKVHXW2SQ4l7FDyYgYH/B2fjbh8l0Nlrexm1QIOLNhOv3zBlEer7TIy +IxwOpJfGlC3YyuOFiHNDD6uJ9fl5TulvkMdM9Sye83UccH4kbJkaJI9ZL9lK ++g84kGetUuWcJo/Pj1LFlrVywAydcp5/lEedk7dzI/o50Hrp1YG/3+QxYFXU +f0MDxPqLHq66U/J4lmf+57rPxP40+AslCypgTQS3VmSEiJ8ZGeu4RgHjhY3a +6JMcOGB+2e9pggKmZ1/k2czHBcdCsSmnFAXMOrK43IKfC2oCh0+9PKeAmsHh +vhRBLrxq96x4e00Bq4ra+p4s58KqMBHeDy8VsPSqnG+PFBeGSw+V/iIpYkF6 +TOiYMhcaRT/TD6ororBoVfghVS78F7GxbVZfEeUaWC/+qHHBxkp/bh4VkTKs +c25cgwtF7wccBHYqYiLP8uRcXS5slXEZJVcp4qPGcN1eEy4YxdYdK6hXRJnA +d97CplwQHtCSU32siAa7ZWeMzLhQc5sXVnYr4v6xjCORdC7IOdWkr15UxL8W +Qj+rLbgwWrFSo0qQhFHq3Mo64MJDhewaEykSjhu6/6xGLhz4sm+ArkFC3nH5 +7iIrIt5j6sY2TiT8UaGaY2zLhavDGS1P3EkoUn7TcbkdF46uX9zq6EtCF+mW +hD7C+tSeE+vDSVibfTVpnwMX+BLtSG9iSHj80l4PA0cu9I2wy90TSXh2tLl8 +hPCZ6rOd3jkk5PtiKbDBmQvblBf29BWScMnfaKF5wmZJu3n8bpDQTmPnxcvr +uPDVzUZ7+z0S+i2ej+lz4cLan39i9g2SsG3Z9rWSG7gQbZ+t8+AHCV8HBCWk +ES6/rN8jPUNCpx1hWfwbuaDg7m9eI0jGu5X1xl8Jr7v1e3i5FBk7TcRb1rtx +IYE/K9eXTMaRV6nGVYR/VD+a5V1FRqN6m0u73bmgKuV31dOUjJcfFRQ2EPbc +M+d5Hcl43DPwmKgHF5IfZvDPO5Ax5ImmtRfh+1RdrosbGaPME75eIDwd+TDo +8lYydmQLh/US1nnlIzsVREbmyc0fZD254Ks9+9A2lIxJCaLGToSzEtIjzkeR +UbXu/v5Ywi292uo/jpGxaKX0xVLC88bNby2SyWgcU1LRSnhN2tbjGdlk1NIm +cUYJ7/g6bTiUT8aIQNlrQl5cuIBnB2hXyagvw0pRIfzqvFbm6TtkXN5vFmhI +eNnkA8u+GjL+WFG5CgjTnbdMrGomo82k27gt4dCSqcJjrWQsl3t+3YFw8b9U +1/YOMnoKP95qR7jbS5NH8yMZE+anhJGwWMX929HDZORvFeIaEbYW3uzXOkHG +Fv5qPzXCUYGTYsp/yWgwzBYSIXyrPqUhnI+CJV53OePE9w/Irtz3UJSCol8P +Bb0iLB/aSJWXpyD99R1SGWHnlk0vdqlQMGSO2hlP+Jjqr8P12hR8NHT44gbC +3JhkPXEjCnKaUvZSCX9/q963jUnBk9vEHIaI/VfRb0hm21Dw4ZqHRqWEz3wc +H/HeRME8mw90MuFGszN5N7cR4xPaNr8kznsqY4Xj4m4KSn8SSz9M2Het5/Xi +IxTUy71i+YzIl6z8n5tmkyiYzc18sItwy8wpQcd0Ch46yuvLR9jwet3On0UU +1Jgun9Qh8m/nUg95q5sUnOVNH+cS+Xpxy9jjbA4FtaNB0oIwv5jqSnoLBRXC +dz5iuXKBsbO2I+U1BRXrM7dy13Mh7L7biY89FPz8Z0JJh3DP/qShxFEKZtY0 +6fES9SHeqpzdOUPBUtPJ2GCiftZq1Fjr8FCxtqhjoYWor/LO70VtUlSceW5x +OdaJ2D/mhm0kMypWFfdeuGrPBXvfgl+mVlTUBH6Fd0R9i8V/P+7hTEXV/3QX +/xH94GLzidJ0fyqGNjkqoA0Xqh1rv/OfpqL2tVN1cZZciNsrcEQ9i4qUc1od +x4j+YpvmLmaVT8zv2RhylOg/7a/HVh+poOLds1MaO1lcGN+0InKym4rBdR9/ +zxD97G5MmIDkEBUDMs5sfEH0u6MX7+WuGqNiG73YooDGBZF+r7pdS5XQrul4 +r4ExFzR3pvD06ygh6e1cmJQBcT4Hp8+0xirhWkrHps4VXNDIsaKMnFDCf27B +Kzap/b++z94SSFfCw1m1ZW9VuBAzr/3KqlgJt2SE8NRRuXDuuK9sTasSLuvR +4HeS50JrxpNLJVRl/Bom+W2/EHHeVTJrmjWVUUk4o7NQgAubO7Y19a9Rxlec +9ttPlxH3gcL8ENlWGZ2iP2mJLOUCb+Fqncx9yig2NpPs/ocD9PLz7KONyqi8 +aXXm9DcOrO18uTDWoox/+navmPvKARcePju/N8poIuu7b4a4zwI37uuGz8p4 +JK6L/uUTB2xjVePil6ngWA9zPLObA2HKM1csdVXwQQ35k1oLBx7uvDTaHKmC +N65sr9Av4oDDvLnU4VgVpNYMkm9e4sDL9HaacbwKboxzSF2Zz4HuGqH44tMq +GFFVliaey4Gx5RFSJy6q4KY5nQ2VqRxQuGNvatukggVPqpeyojiwd24ivkVU +FX3cpW9FORLxhO+Q+yKlig0DXUeZdhwQHOkp41VQxdO8IXzz1hwo6W1+Z6Gm +irFBYmb7WBz40HBOj0NTxQFouqi8mgPrT5h3XfZTRYewKXqNDAcMpY4ZxFao +op3TiW8fetjwW1fig76HGga2vxC5vYUNM/mkY0ab1VCgLP1WqhcbpsQ11M39 +1LA2nWcu2I0NY5Pmu9fuUsM4xQf/yTqxYaAucGbzETXMHWzysKOz4ZnTXbFT +JWqY02V1Q1yBDXl7fGFgWg31i2Zojq+rgFl2s/C//1bgYr0LjcyoggkpR3/P +JnX8dbUif0GwEoZS/D33C6zEsIg9MvWFd8Dh5yGHzzRNfPKrZ4j3WDn8CBQ8 +wI7TwoWJX9lxUWXE/4T80pNN2niawnt1+vg1kHqxMu3OTx30bTNwH+woAcqp +2640mh52q9Y9sZK4Arm65hLSO/VRcDbu3JuiQnhGsjSZzFiFGVffX2f2XQQ6 +pSnd4J0B9v9IXFgelwtivEUR2xJWY/lx3k/5HdmgdEyZ6b1yDRpEKf71c80A +IY2t3I1P1uDASq7JkvMpsIqlePuQjyFmSOsHnKk+Cfs/SDU78hjhG8OCseur +j8PPyRQPh1wjNDwap881i4O+rsue+XlG6F7V+31WKQ6e3eN6TVw0QoHti3OO +y+Kg+GS/9/nLRihEfdWv/uYobCYb+367YYTHcj+JXd17FB5Z9e44fc8IM94/ +1/hQfAQuZGhHPR0g5hOeNf2kehjsDB7nOegb478vY4fPOEfDJn5791cGxkjW +c1YVMYmG3e+finoZGuOznEv9l6jRkJb8In67qTGKTHw5tTAWBe++tu+IszRG +HwnvkPTMKNheOGjI8TDGG0dfTy5/fwgSJJc8VzlqjMIxPfmycZHQMMn4O/vS +GJekNL1znz4Al1vvBri9NkaTj6anNw8egMQSo2flb40x8jh7KOT1AXDw0j0f +1GWM8SGiUfduHYD2WpLp20/GaD2UY7644wCMHPu9v3zKGGnfRKL4+/aDnMTd +ke0kEyzwKK0eawuHfXqGPa+DTHDXqiupy+pC4eAs6Y9fsAlxv3stncwLhcNN +vKSx3Sao9HdGfz4mFJI3dXgLh5ngbvG9/tsYoXAtMarbKsYE6VC9+uC9fTDQ +19BVlWaCVm9uJlU+DgHPVKfOc3dN0IDxLWnZ6B5gjW1v9xaioZiGSb7+iWCQ +q7Mrql9Ow5sBS9tWhQTD2EmdMGUxGire5vVY6xEMBarjyz9L0XB6ll/zpkYw +/HOPtQ6j0PDp1d9BIU92QmNdRmWSAQ33DQdG3RDbCZanG9KrPGgofW7Fhoqy +ILBRV1gnWkRDuTaFD3LUQGCPPlLdXkzDN0maLzSEA0H97oGZ2lIacpQ7NG1m +A4DPse1ScBkND/u0TrBfB0BTaNKvZjYNfZJSz3mdDACLuqmcmCc0bEmvUbg0 +vQ1oG18PfP1BQ3b+av7h9/5QSo67a/GThrLaSUFjrf4g+1kv5dwEDbUPnmrh +rfeHqUOnTKxniHiPz4VsyfOHynw4VbBIQ3m+g/z3vPzB4NstfQ8pU7y+48JC +3A0/0Io/E9Vkaoq7qCGbpjk+UM8oWeZMN0Up2JUieM4HXGcbMzuYpriTRplh +RPhA1L7pm8OWphi/wmApr5EPtGz1/yTmbIqJ3xfUxSu3QrA5zXGLvyl+e89a +JsTdAtd/fSJPnTJF1XcR7Nft3mBRPn/tSLIpvoo5SK696w1vdsnTBNJMiXqP +Tm/M84Y//c6upCxTXJwLsVbd5g2ObXcTMd8UYzXXa7F+boKRstTRlApTTBdX +mXsgsQl0gswbNXpMMZW/6M/mYE84q+by53ifKTpUd5H2unrC1McAk4EPpviz +OudflpknNGxOKSsYNMUEduYTTSFP2Oj6MUd+1BR9IuQDfMo8IJpxIkyIxwxr +7EonxifdoUXyteqohhk2v08IZ51zA/22z1udtMxQxPvRdr54N8hM+ZNzXccM +H99c9fXjbjfYKqAutsPADC+4VHm0oxv8nI/888HMDD86xS+pGN0IcsOUt6+c +zLCSJ3pGx2kjBDUEJ7LDzfCawffkcpkNMBYycsgmwgxdysPnPXg2QBR17553 +kWaYfLlfR/qHK5w5HLpxLtYMDd3eh79sdoU79EgVZpIZ2rG1jtpGuMI893h9 +c54ZKulKdntWrofM2wVTb5rNMPHvV07i9nVA8VMZDnxshnXKwDOH66BErKh3 +qsUM8+cSlmRS10F1SEmT3EszTCJ55Zh3OsN73Zvpm7vMMPVHNdnN2Rm0rtXo +Dfwww+4rYox0lhM0FrZvn5A1R02VuB4WwwH6nVX9IhXMcZIzXPuW4gA8v0O8 +/5LM8XBaVt2Zf/ZgtUHAZZmKORZ6+xVuabKHx0vopoo65njNovvsCSd7aA24 +JGRpYY4nIq5Jfwy0gx713eXpO8xxpZVoX0eZDfx9xb0mu8ucSIl3z90zbIBy +hPdK3h5zvCxcTZ2ItAGfjos5xWHmyLt39uAxKxvoP9EWXx1jjg2TF/oXetbC +1y/Gbv1p5mjj36a1TnItTF1bnDW4a460Q/ZuSZlW8MXTtvB0jTlusSvyFThi +BV18qfaDdeYYZi8rdGmnFdT5k87/d98c20qKv0qyrCBBwYS+8NQcOzVDT/B+ +swSJU7sPP+sjvocaa8dnYwl6Ozt4gpbSUWjFN8OfIghKspTrDXx0lCp+lWw+ +BSDRHLBBQYCOHpEKE/UvASaVxi8/X064+uInRiJA7Ttha0NZOtr9zTeXm7AA +e1s8sahJxwX7zcqUNywI1CgTyltHR6W6yKSQOwyIeeS7e6UrHZ1vVE0+TGFA +epDU88qNdPS8f36L7S4G1JdEpzz3ouMJWZW9j9UYILPSXnxhGx0bY6+94ObQ +4fHKzzL+kXS0+Xrrr+Fpc9DRUlZZeYmOf7cFTx04bQrY8ia+8jIx/7uu89W7 +TcEzOOmTRTEd3XXVBdScTeH4tdEir+t01Dp86GKAuCn0adVrnK6i4/6Jv6H/ +5dAgTdtb98cTOh4MvEC5Wm4CEzpZtMpxOgY8WXJzx4wRdLWijfQkHVMd+ITr +3hvB/X1jbhHTdNT9nL9X95ERpFU6hNP+0DHDte6FX7YR6NB5btbyMpBvgXdY +2tgIAhxCVJvlGJh6TkYiI8oQ2nfaibQzGRgkq8xVkV0DdULTJBNgYHejn+P9 +xdVQVFak/Z8lA69K0hKiRlZD2M8F2022DLQOLYo0vL8aRA+xj/WtZ6C8b9Ct +p3tXg22S6uxQAAP/dOh//ZBtANXFfz9Nn2Igde3+wV59faBZR8w6JjPQ8K6M +UIGQPnA+/RApTGXgk4P89ac/60Gl0gdTx0wG6qpRlN7n68HN3PupBRcY6OTk +qh0qoQeFKSfM7coZGJIcf4a8oAOnI8Qzct8yUHXL6XORk1ogKH2qdLSDgSsd +diwotmtBUgVPvVUX8T58vPcTWwsSxya+/OhjoCtyAz9EasHR4Ham5RcGtqd7 +RiTNa8L+reeHv80R6/E7NISLacLmtSuQocTEWGsPOY6TBiy0C4o1qzCRIRoh +575KAwqDxnodVzBxIbf6qoKkBnxJqjm0WYuJDdm72iQ71WH/0/W3ow2ZGLdC +JrpxuzqccTmsVG3LRI/tXr8GklZA7aaOeeNQJv5MPquv/VkVfL7VPqsPZ+LL +8DQF7VZV4IkpzF0bwUSTGMMIhypVsL2wx9g9monCn9cMjRxThTfvl+w9cJyJ +EmzzuJsqqjASsKq3IoeJ3h3jg0LbVYAccrJm1X0mOpt/fuK7VAnSFneYJDcx +0fOWgeCDHioszbSt+PqQiUXrRKbcqqgwwl12vfApEwd5dKaEg6hQy5OYK/WW +ia326dfvPqPA5uz4QzOfmfi7rsDkfQEZcuuiTRqWs1DqlOP8aLAiiLh4V5DE +WPiv+37Xoq0ixPeb6R+SYKGBya5fDA1FCF42p75aloX7fVsphgMKYLo+UqZI +iYUJM99lJH0V4N3A/skTa1jIuWK5K8xHHmSF91as82Kh0b41AgejZaHY+kjM +uDcLJwcHG+W9ZcHwSJp11lYWbtynyT9sJgsu43c6uraxkI9PxFXitwwkvZv+ +HbiXhVkiT6OiY2VgrijOKuYYC4d02qdjT0lDDyPrbWkZC5XvxDy+90ASgg8W +X3QoZ2GmY69sSakkzJRzgn7cYSFP3pRMVbIkSKl1za7hsnAmQcDLylMSnASp +lHv3WXhItylYa1QC6ttLt7/tYGF/m9LBr6oS4ChWrR/ZRYw/qhGsJiQBXXZP +ZxR6WVhc9318ySdxmKr9fsq3n4X6j6OCXePEQf/y6lvfRljoIrhu1qhRDOp7 +LCNTRlkofD/oYPdZMXCUcQODcRYGFJ+1bfYXgx0nD76OmGahvWdyZACvGEzd +T8qTn2PhyaGrKvIdopDwJyew9g8LHWE3W+yqKEgYX9fzWWChyZakLvtoUSgI +qZ1eXGShZwHZ+JGTKPwPy6w4/g== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c81d8bAHBFVvZ2hxXZKePiDs+DbElZqYxIaQglGRVJGkZWX1IkoaEU +7r1ZUTRUSoPMSqikiMyK/D6/vz6v9+vzOud8nnOe5zmvj2pA6MagpTw8PNlL +eHj+/5z58PShenKxhZylF0nOzMmivUAh2rIrAcpZSRf6Z7UAZdsCFLoyITiO ++qFk1gwiXW908nYVgYyeVXj0rD1Ijsln/u6shHcdg0s1ZzfBx3qX0KnOJjjE +TJ8UmQkGW/WR9xOdbyANBBfrJ6Lgd6fpufHOAdDbNn8kvf8UNFtfLX5dNAl6 +/QtfmfnngfKx5kuA3gL4lngvs7hJrLPX74aANS8Gzz8Z6BC8BplrbOtcPARx +i6KdwCOnW9Cdu/r+hIQo+izMbet5fgfy3paJR2qI4p9HL8ci2u/AZjFNvz/m +otjdP8QUen8H+o5T/y0NFEWVd9eklcfuQP8+YaYMRxTtF233LopXwPDaobs0 +bzEUaLfqS99YAXPjObdjL4vjxIyC3PCbCqjRlV5c5IhjRpZaMbenAmJ2pLkk +PhPHE8yTFUcHKmC+N3E0ZVIcj5/Vsf47UQHxg9WybWoSmKJuJFEqUQmJL0vc ++iMkUDtryev7zpWQXBzXtlRREl1e8tQuNlaCo/EuKdkVkihOVYjseVwJgg83 +emjqSyKIuN0rf0GMH9TodbKURHIrc9i6txIOq7V+yd4liRz7H6kqM5Wwr1Dh +38paSXTdqiVbpFMFGy5W6DltkcK7EpPchrQqkNC7EOoTJIUlU0qcluwqeFmX +WBkaKoWXFaqorXlV4NjrZZZ9XApnHkzoNJZWgRXpn/X7MilUkClW8WyoAuNc +xy2h81L4K+B6r+2PKpDPHjydlS+N6xNlgwys2aCgy0mcK5VGv9P988vt2UBq +SorzuSONPhzLZwPObFAa1z6o2SyNebkVfHGebNBwDvOvG5ZGy2fOE+G72GDE +t0AbNJLBGy2HYizT2LA+Qm7I8JkMHj0zuS3pLRtclw9/yHkrg5wsW+/rnWzY +WFTTPd8ng13q1xIe97LB89XWtsc/ZfChW9een4Ns8NG7UrtZVhYvRTjm/Z1k +w54hg4wEf1n01V1IWJDiwEl3B4s3M7KY8iFt+JozB0jsl6SlS+Qw+/XCxy2u +HCiXdp9ds1wOC2NjRQTdOfDuje+dDGU5vHKsgN95CwfUN0SobbCXw++8WmkJ +uzjQtO4S/6vzcjhq1b37RiIHPG+pDy5ekcNfqUPT4yc5MCJyo9GgXA7bF+Ia +VydzQLKVHXW2SQ4l7FDyYgYH/B2fjbh8l0Nlrexm1QIOLNhOv3zBlEer7TIy +IxwOpJfGlC3YyuOFiHNDD6uJ9fl5TulvkMdM9Sye83UccH4kbJkaJI9ZL9lK ++g84kGetUuWcJo/Pj1LFlrVywAydcp5/lEedk7dzI/o50Hrp1YG/3+QxYFXU +f0MDxPqLHq66U/J4lmf+57rPxP40+AslCypgTQS3VmSEiJ8ZGeu4RgHjhY3a +6JMcOGB+2e9pggKmZ1/k2czHBcdCsSmnFAXMOrK43IKfC2oCh0+9PKeAmsHh +vhRBLrxq96x4e00Bq4ra+p4s58KqMBHeDy8VsPSqnG+PFBeGSw+V/iIpYkF6 +TOiYMhcaRT/TD6ororBoVfghVS78F7GxbVZfEeUaWC/+qHHBxkp/bh4VkTKs +c25cgwtF7wccBHYqYiLP8uRcXS5slXEZJVcp4qPGcN1eEy4YxdYdK6hXRJnA +d97CplwQHtCSU32siAa7ZWeMzLhQc5sXVnYr4v6xjCORdC7IOdWkr15UxL8W +Qj+rLbgwWrFSo0qQhFHq3Mo64MJDhewaEykSjhu6/6xGLhz4sm+ArkFC3nH5 +7iIrIt5j6sY2TiT8UaGaY2zLhavDGS1P3EkoUn7TcbkdF46uX9zq6EtCF+mW +hD7C+tSeE+vDSVibfTVpnwMX+BLtSG9iSHj80l4PA0cu9I2wy90TSXh2tLl8 +hPCZ6rOd3jkk5PtiKbDBmQvblBf29BWScMnfaKF5wmZJu3n8bpDQTmPnxcvr +uPDVzUZ7+z0S+i2ej+lz4cLan39i9g2SsG3Z9rWSG7gQbZ+t8+AHCV8HBCWk +ES6/rN8jPUNCpx1hWfwbuaDg7m9eI0jGu5X1xl8Jr7v1e3i5FBk7TcRb1rtx +IYE/K9eXTMaRV6nGVYR/VD+a5V1FRqN6m0u73bmgKuV31dOUjJcfFRQ2EPbc +M+d5Hcl43DPwmKgHF5IfZvDPO5Ax5ImmtRfh+1RdrosbGaPME75eIDwd+TDo +8lYydmQLh/US1nnlIzsVREbmyc0fZD254Ks9+9A2lIxJCaLGToSzEtIjzkeR +UbXu/v5Ywi292uo/jpGxaKX0xVLC88bNby2SyWgcU1LRSnhN2tbjGdlk1NIm +cUYJ7/g6bTiUT8aIQNlrQl5cuIBnB2hXyagvw0pRIfzqvFbm6TtkXN5vFmhI +eNnkA8u+GjL+WFG5CgjTnbdMrGomo82k27gt4dCSqcJjrWQsl3t+3YFw8b9U +1/YOMnoKP95qR7jbS5NH8yMZE+anhJGwWMX929HDZORvFeIaEbYW3uzXOkHG +Fv5qPzXCUYGTYsp/yWgwzBYSIXyrPqUhnI+CJV53OePE9w/Irtz3UJSCol8P +Bb0iLB/aSJWXpyD99R1SGWHnlk0vdqlQMGSO2hlP+Jjqr8P12hR8NHT44gbC +3JhkPXEjCnKaUvZSCX9/q963jUnBk9vEHIaI/VfRb0hm21Dw4ZqHRqWEz3wc +H/HeRME8mw90MuFGszN5N7cR4xPaNr8kznsqY4Xj4m4KSn8SSz9M2Het5/Xi +IxTUy71i+YzIl6z8n5tmkyiYzc18sItwy8wpQcd0Ch46yuvLR9jwet3On0UU +1Jgun9Qh8m/nUg95q5sUnOVNH+cS+Xpxy9jjbA4FtaNB0oIwv5jqSnoLBRXC +dz5iuXKBsbO2I+U1BRXrM7dy13Mh7L7biY89FPz8Z0JJh3DP/qShxFEKZtY0 +6fES9SHeqpzdOUPBUtPJ2GCiftZq1Fjr8FCxtqhjoYWor/LO70VtUlSceW5x +OdaJ2D/mhm0kMypWFfdeuGrPBXvfgl+mVlTUBH6Fd0R9i8V/P+7hTEXV/3QX +/xH94GLzidJ0fyqGNjkqoA0Xqh1rv/OfpqL2tVN1cZZciNsrcEQ9i4qUc1od +x4j+YpvmLmaVT8zv2RhylOg/7a/HVh+poOLds1MaO1lcGN+0InKym4rBdR9/ +zxD97G5MmIDkEBUDMs5sfEH0u6MX7+WuGqNiG73YooDGBZF+r7pdS5XQrul4 +r4ExFzR3pvD06ygh6e1cmJQBcT4Hp8+0xirhWkrHps4VXNDIsaKMnFDCf27B +Kzap/b++z94SSFfCw1m1ZW9VuBAzr/3KqlgJt2SE8NRRuXDuuK9sTasSLuvR +4HeS50JrxpNLJVRl/Bom+W2/EHHeVTJrmjWVUUk4o7NQgAubO7Y19a9Rxlec +9ttPlxH3gcL8ENlWGZ2iP2mJLOUCb+Fqncx9yig2NpPs/ocD9PLz7KONyqi8 +aXXm9DcOrO18uTDWoox/+navmPvKARcePju/N8poIuu7b4a4zwI37uuGz8p4 +JK6L/uUTB2xjVePil6ngWA9zPLObA2HKM1csdVXwQQ35k1oLBx7uvDTaHKmC +N65sr9Av4oDDvLnU4VgVpNYMkm9e4sDL9HaacbwKboxzSF2Zz4HuGqH44tMq +GFFVliaey4Gx5RFSJy6q4KY5nQ2VqRxQuGNvatukggVPqpeyojiwd24ivkVU +FX3cpW9FORLxhO+Q+yKlig0DXUeZdhwQHOkp41VQxdO8IXzz1hwo6W1+Z6Gm +irFBYmb7WBz40HBOj0NTxQFouqi8mgPrT5h3XfZTRYewKXqNDAcMpY4ZxFao +op3TiW8fetjwW1fig76HGga2vxC5vYUNM/mkY0ab1VCgLP1WqhcbpsQ11M39 +1LA2nWcu2I0NY5Pmu9fuUsM4xQf/yTqxYaAucGbzETXMHWzysKOz4ZnTXbFT +JWqY02V1Q1yBDXl7fGFgWg31i2Zojq+rgFl2s/C//1bgYr0LjcyoggkpR3/P +JnX8dbUif0GwEoZS/D33C6zEsIg9MvWFd8Dh5yGHzzRNfPKrZ4j3WDn8CBQ8 +wI7TwoWJX9lxUWXE/4T80pNN2niawnt1+vg1kHqxMu3OTx30bTNwH+woAcqp +2640mh52q9Y9sZK4Arm65hLSO/VRcDbu3JuiQnhGsjSZzFiFGVffX2f2XQQ6 +pSnd4J0B9v9IXFgelwtivEUR2xJWY/lx3k/5HdmgdEyZ6b1yDRpEKf71c80A +IY2t3I1P1uDASq7JkvMpsIqlePuQjyFmSOsHnKk+Cfs/SDU78hjhG8OCseur +j8PPyRQPh1wjNDwap881i4O+rsue+XlG6F7V+31WKQ6e3eN6TVw0QoHti3OO +y+Kg+GS/9/nLRihEfdWv/uYobCYb+367YYTHcj+JXd17FB5Z9e44fc8IM94/ +1/hQfAQuZGhHPR0g5hOeNf2kehjsDB7nOegb478vY4fPOEfDJn5791cGxkjW +c1YVMYmG3e+finoZGuOznEv9l6jRkJb8In67qTGKTHw5tTAWBe++tu+IszRG +HwnvkPTMKNheOGjI8TDGG0dfTy5/fwgSJJc8VzlqjMIxPfmycZHQMMn4O/vS +GJekNL1znz4Al1vvBri9NkaTj6anNw8egMQSo2flb40x8jh7KOT1AXDw0j0f +1GWM8SGiUfduHYD2WpLp20/GaD2UY7644wCMHPu9v3zKGGnfRKL4+/aDnMTd +ke0kEyzwKK0eawuHfXqGPa+DTHDXqiupy+pC4eAs6Y9fsAlxv3stncwLhcNN +vKSx3Sao9HdGfz4mFJI3dXgLh5ngbvG9/tsYoXAtMarbKsYE6VC9+uC9fTDQ +19BVlWaCVm9uJlU+DgHPVKfOc3dN0IDxLWnZ6B5gjW1v9xaioZiGSb7+iWCQ +q7Mrql9Ow5sBS9tWhQTD2EmdMGUxGire5vVY6xEMBarjyz9L0XB6ll/zpkYw +/HOPtQ6j0PDp1d9BIU92QmNdRmWSAQ33DQdG3RDbCZanG9KrPGgofW7Fhoqy +ILBRV1gnWkRDuTaFD3LUQGCPPlLdXkzDN0maLzSEA0H97oGZ2lIacpQ7NG1m +A4DPse1ScBkND/u0TrBfB0BTaNKvZjYNfZJSz3mdDACLuqmcmCc0bEmvUbg0 +vQ1oG18PfP1BQ3b+av7h9/5QSo67a/GThrLaSUFjrf4g+1kv5dwEDbUPnmrh +rfeHqUOnTKxniHiPz4VsyfOHynw4VbBIQ3m+g/z3vPzB4NstfQ8pU7y+48JC +3A0/0Io/E9Vkaoq7qCGbpjk+UM8oWeZMN0Up2JUieM4HXGcbMzuYpriTRplh +RPhA1L7pm8OWphi/wmApr5EPtGz1/yTmbIqJ3xfUxSu3QrA5zXGLvyl+e89a +JsTdAtd/fSJPnTJF1XcR7Nft3mBRPn/tSLIpvoo5SK696w1vdsnTBNJMiXqP +Tm/M84Y//c6upCxTXJwLsVbd5g2ObXcTMd8UYzXXa7F+boKRstTRlApTTBdX +mXsgsQl0gswbNXpMMZW/6M/mYE84q+by53ifKTpUd5H2unrC1McAk4EPpviz +OudflpknNGxOKSsYNMUEduYTTSFP2Oj6MUd+1BR9IuQDfMo8IJpxIkyIxwxr +7EonxifdoUXyteqohhk2v08IZ51zA/22z1udtMxQxPvRdr54N8hM+ZNzXccM +H99c9fXjbjfYKqAutsPADC+4VHm0oxv8nI/888HMDD86xS+pGN0IcsOUt6+c +zLCSJ3pGx2kjBDUEJ7LDzfCawffkcpkNMBYycsgmwgxdysPnPXg2QBR17553 +kWaYfLlfR/qHK5w5HLpxLtYMDd3eh79sdoU79EgVZpIZ2rG1jtpGuMI893h9 +c54ZKulKdntWrofM2wVTb5rNMPHvV07i9nVA8VMZDnxshnXKwDOH66BErKh3 +qsUM8+cSlmRS10F1SEmT3EszTCJ55Zh3OsN73Zvpm7vMMPVHNdnN2Rm0rtXo +Dfwww+4rYox0lhM0FrZvn5A1R02VuB4WwwH6nVX9IhXMcZIzXPuW4gA8v0O8 +/5LM8XBaVt2Zf/ZgtUHAZZmKORZ6+xVuabKHx0vopoo65njNovvsCSd7aA24 +JGRpYY4nIq5Jfwy0gx713eXpO8xxpZVoX0eZDfx9xb0mu8ucSIl3z90zbIBy +hPdK3h5zvCxcTZ2ItAGfjos5xWHmyLt39uAxKxvoP9EWXx1jjg2TF/oXetbC +1y/Gbv1p5mjj36a1TnItTF1bnDW4a460Q/ZuSZlW8MXTtvB0jTlusSvyFThi +BV18qfaDdeYYZi8rdGmnFdT5k87/d98c20qKv0qyrCBBwYS+8NQcOzVDT/B+ +swSJU7sPP+sjvocaa8dnYwl6Ozt4gpbSUWjFN8OfIghKspTrDXx0lCp+lWw+ +BSDRHLBBQYCOHpEKE/UvASaVxi8/X064+uInRiJA7Ttha0NZOtr9zTeXm7AA +e1s8sahJxwX7zcqUNywI1CgTyltHR6W6yKSQOwyIeeS7e6UrHZ1vVE0+TGFA +epDU88qNdPS8f36L7S4G1JdEpzz3ouMJWZW9j9UYILPSXnxhGx0bY6+94ObQ +4fHKzzL+kXS0+Xrrr+Fpc9DRUlZZeYmOf7cFTx04bQrY8ia+8jIx/7uu89W7 +TcEzOOmTRTEd3XXVBdScTeH4tdEir+t01Dp86GKAuCn0adVrnK6i4/6Jv6H/ +5dAgTdtb98cTOh4MvEC5Wm4CEzpZtMpxOgY8WXJzx4wRdLWijfQkHVMd+ITr +3hvB/X1jbhHTdNT9nL9X95ERpFU6hNP+0DHDte6FX7YR6NB5btbyMpBvgXdY +2tgIAhxCVJvlGJh6TkYiI8oQ2nfaibQzGRgkq8xVkV0DdULTJBNgYHejn+P9 +xdVQVFak/Z8lA69K0hKiRlZD2M8F2022DLQOLYo0vL8aRA+xj/WtZ6C8b9Ct +p3tXg22S6uxQAAP/dOh//ZBtANXFfz9Nn2Igde3+wV59faBZR8w6JjPQ8K6M +UIGQPnA+/RApTGXgk4P89ac/60Gl0gdTx0wG6qpRlN7n68HN3PupBRcY6OTk +qh0qoQeFKSfM7coZGJIcf4a8oAOnI8Qzct8yUHXL6XORk1ogKH2qdLSDgSsd +diwotmtBUgVPvVUX8T58vPcTWwsSxya+/OhjoCtyAz9EasHR4Ham5RcGtqd7 +RiTNa8L+reeHv80R6/E7NISLacLmtSuQocTEWGsPOY6TBiy0C4o1qzCRIRoh +575KAwqDxnodVzBxIbf6qoKkBnxJqjm0WYuJDdm72iQ71WH/0/W3ow2ZGLdC +JrpxuzqccTmsVG3LRI/tXr8GklZA7aaOeeNQJv5MPquv/VkVfL7VPqsPZ+LL +8DQF7VZV4IkpzF0bwUSTGMMIhypVsL2wx9g9monCn9cMjRxThTfvl+w9cJyJ +EmzzuJsqqjASsKq3IoeJ3h3jg0LbVYAccrJm1X0mOpt/fuK7VAnSFneYJDcx +0fOWgeCDHioszbSt+PqQiUXrRKbcqqgwwl12vfApEwd5dKaEg6hQy5OYK/WW +ia326dfvPqPA5uz4QzOfmfi7rsDkfQEZcuuiTRqWs1DqlOP8aLAiiLh4V5DE +WPiv+37Xoq0ixPeb6R+SYKGBya5fDA1FCF42p75aloX7fVsphgMKYLo+UqZI +iYUJM99lJH0V4N3A/skTa1jIuWK5K8xHHmSF91as82Kh0b41AgejZaHY+kjM +uDcLJwcHG+W9ZcHwSJp11lYWbtynyT9sJgsu43c6uraxkI9PxFXitwwkvZv+ +HbiXhVkiT6OiY2VgrijOKuYYC4d02qdjT0lDDyPrbWkZC5XvxDy+90ASgg8W +X3QoZ2GmY69sSakkzJRzgn7cYSFP3pRMVbIkSKl1za7hsnAmQcDLylMSnASp +lHv3WXhItylYa1QC6ttLt7/tYGF/m9LBr6oS4ChWrR/ZRYw/qhGsJiQBXXZP +ZxR6WVhc9318ySdxmKr9fsq3n4X6j6OCXePEQf/y6lvfRljoIrhu1qhRDOp7 +LCNTRlkofD/oYPdZMXCUcQODcRYGFJ+1bfYXgx0nD76OmGahvWdyZACvGEzd +T8qTn2PhyaGrKvIdopDwJyew9g8LHWE3W+yqKEgYX9fzWWChyZakLvtoUSgI +qZ1eXGShZwHZ+JGTKPwPy6w4/g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08726940532059288}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.08726940532059288}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c81d8bAHBFVvZ2hxXZKePiDs+DbElZqYxIaQglGRVJGkZWX1IkoaEU +7r1ZUTRUSoPMSqikiMyK/D6/vz6v9+vzOud8nnOe5zmvj2pA6MagpTw8PNlL +eHj+/5z58PShenKxhZylF0nOzMmivUAh2rIrAcpZSRf6Z7UAZdsCFLoyITiO ++qFk1gwiXW908nYVgYyeVXj0rD1Ijsln/u6shHcdg0s1ZzfBx3qX0KnOJjjE +TJ8UmQkGW/WR9xOdbyANBBfrJ6Lgd6fpufHOAdDbNn8kvf8UNFtfLX5dNAl6 +/QtfmfnngfKx5kuA3gL4lngvs7hJrLPX74aANS8Gzz8Z6BC8BplrbOtcPARx +i6KdwCOnW9Cdu/r+hIQo+izMbet5fgfy3paJR2qI4p9HL8ci2u/AZjFNvz/m +otjdP8QUen8H+o5T/y0NFEWVd9eklcfuQP8+YaYMRxTtF233LopXwPDaobs0 +bzEUaLfqS99YAXPjObdjL4vjxIyC3PCbCqjRlV5c5IhjRpZaMbenAmJ2pLkk +PhPHE8yTFUcHKmC+N3E0ZVIcj5/Vsf47UQHxg9WybWoSmKJuJFEqUQmJL0vc ++iMkUDtryev7zpWQXBzXtlRREl1e8tQuNlaCo/EuKdkVkihOVYjseVwJgg83 +emjqSyKIuN0rf0GMH9TodbKURHIrc9i6txIOq7V+yd4liRz7H6kqM5Wwr1Dh +38paSXTdqiVbpFMFGy5W6DltkcK7EpPchrQqkNC7EOoTJIUlU0qcluwqeFmX +WBkaKoWXFaqorXlV4NjrZZZ9XApnHkzoNJZWgRXpn/X7MilUkClW8WyoAuNc +xy2h81L4K+B6r+2PKpDPHjydlS+N6xNlgwys2aCgy0mcK5VGv9P988vt2UBq +SorzuSONPhzLZwPObFAa1z6o2SyNebkVfHGebNBwDvOvG5ZGy2fOE+G72GDE +t0AbNJLBGy2HYizT2LA+Qm7I8JkMHj0zuS3pLRtclw9/yHkrg5wsW+/rnWzY +WFTTPd8ng13q1xIe97LB89XWtsc/ZfChW9een4Ns8NG7UrtZVhYvRTjm/Z1k +w54hg4wEf1n01V1IWJDiwEl3B4s3M7KY8iFt+JozB0jsl6SlS+Qw+/XCxy2u +HCiXdp9ds1wOC2NjRQTdOfDuje+dDGU5vHKsgN95CwfUN0SobbCXw++8WmkJ +uzjQtO4S/6vzcjhq1b37RiIHPG+pDy5ekcNfqUPT4yc5MCJyo9GgXA7bF+Ia +VydzQLKVHXW2SQ4l7FDyYgYH/B2fjbh8l0Nlrexm1QIOLNhOv3zBlEer7TIy +IxwOpJfGlC3YyuOFiHNDD6uJ9fl5TulvkMdM9Sye83UccH4kbJkaJI9ZL9lK ++g84kGetUuWcJo/Pj1LFlrVywAydcp5/lEedk7dzI/o50Hrp1YG/3+QxYFXU +f0MDxPqLHq66U/J4lmf+57rPxP40+AslCypgTQS3VmSEiJ8ZGeu4RgHjhY3a +6JMcOGB+2e9pggKmZ1/k2czHBcdCsSmnFAXMOrK43IKfC2oCh0+9PKeAmsHh +vhRBLrxq96x4e00Bq4ra+p4s58KqMBHeDy8VsPSqnG+PFBeGSw+V/iIpYkF6 +TOiYMhcaRT/TD6ororBoVfghVS78F7GxbVZfEeUaWC/+qHHBxkp/bh4VkTKs +c25cgwtF7wccBHYqYiLP8uRcXS5slXEZJVcp4qPGcN1eEy4YxdYdK6hXRJnA +d97CplwQHtCSU32siAa7ZWeMzLhQc5sXVnYr4v6xjCORdC7IOdWkr15UxL8W +Qj+rLbgwWrFSo0qQhFHq3Mo64MJDhewaEykSjhu6/6xGLhz4sm+ArkFC3nH5 +7iIrIt5j6sY2TiT8UaGaY2zLhavDGS1P3EkoUn7TcbkdF46uX9zq6EtCF+mW +hD7C+tSeE+vDSVibfTVpnwMX+BLtSG9iSHj80l4PA0cu9I2wy90TSXh2tLl8 +hPCZ6rOd3jkk5PtiKbDBmQvblBf29BWScMnfaKF5wmZJu3n8bpDQTmPnxcvr +uPDVzUZ7+z0S+i2ej+lz4cLan39i9g2SsG3Z9rWSG7gQbZ+t8+AHCV8HBCWk +ES6/rN8jPUNCpx1hWfwbuaDg7m9eI0jGu5X1xl8Jr7v1e3i5FBk7TcRb1rtx +IYE/K9eXTMaRV6nGVYR/VD+a5V1FRqN6m0u73bmgKuV31dOUjJcfFRQ2EPbc +M+d5Hcl43DPwmKgHF5IfZvDPO5Ax5ImmtRfh+1RdrosbGaPME75eIDwd+TDo +8lYydmQLh/US1nnlIzsVREbmyc0fZD254Ks9+9A2lIxJCaLGToSzEtIjzkeR +UbXu/v5Ywi292uo/jpGxaKX0xVLC88bNby2SyWgcU1LRSnhN2tbjGdlk1NIm +cUYJ7/g6bTiUT8aIQNlrQl5cuIBnB2hXyagvw0pRIfzqvFbm6TtkXN5vFmhI +eNnkA8u+GjL+WFG5CgjTnbdMrGomo82k27gt4dCSqcJjrWQsl3t+3YFw8b9U +1/YOMnoKP95qR7jbS5NH8yMZE+anhJGwWMX929HDZORvFeIaEbYW3uzXOkHG +Fv5qPzXCUYGTYsp/yWgwzBYSIXyrPqUhnI+CJV53OePE9w/Irtz3UJSCol8P +Bb0iLB/aSJWXpyD99R1SGWHnlk0vdqlQMGSO2hlP+Jjqr8P12hR8NHT44gbC +3JhkPXEjCnKaUvZSCX9/q963jUnBk9vEHIaI/VfRb0hm21Dw4ZqHRqWEz3wc +H/HeRME8mw90MuFGszN5N7cR4xPaNr8kznsqY4Xj4m4KSn8SSz9M2Het5/Xi +IxTUy71i+YzIl6z8n5tmkyiYzc18sItwy8wpQcd0Ch46yuvLR9jwet3On0UU +1Jgun9Qh8m/nUg95q5sUnOVNH+cS+Xpxy9jjbA4FtaNB0oIwv5jqSnoLBRXC +dz5iuXKBsbO2I+U1BRXrM7dy13Mh7L7biY89FPz8Z0JJh3DP/qShxFEKZtY0 +6fES9SHeqpzdOUPBUtPJ2GCiftZq1Fjr8FCxtqhjoYWor/LO70VtUlSceW5x +OdaJ2D/mhm0kMypWFfdeuGrPBXvfgl+mVlTUBH6Fd0R9i8V/P+7hTEXV/3QX +/xH94GLzidJ0fyqGNjkqoA0Xqh1rv/OfpqL2tVN1cZZciNsrcEQ9i4qUc1od +x4j+YpvmLmaVT8zv2RhylOg/7a/HVh+poOLds1MaO1lcGN+0InKym4rBdR9/ +zxD97G5MmIDkEBUDMs5sfEH0u6MX7+WuGqNiG73YooDGBZF+r7pdS5XQrul4 +r4ExFzR3pvD06ygh6e1cmJQBcT4Hp8+0xirhWkrHps4VXNDIsaKMnFDCf27B +Kzap/b++z94SSFfCw1m1ZW9VuBAzr/3KqlgJt2SE8NRRuXDuuK9sTasSLuvR +4HeS50JrxpNLJVRl/Bom+W2/EHHeVTJrmjWVUUk4o7NQgAubO7Y19a9Rxlec +9ttPlxH3gcL8ENlWGZ2iP2mJLOUCb+Fqncx9yig2NpPs/ocD9PLz7KONyqi8 +aXXm9DcOrO18uTDWoox/+navmPvKARcePju/N8poIuu7b4a4zwI37uuGz8p4 +JK6L/uUTB2xjVePil6ngWA9zPLObA2HKM1csdVXwQQ35k1oLBx7uvDTaHKmC +N65sr9Av4oDDvLnU4VgVpNYMkm9e4sDL9HaacbwKboxzSF2Zz4HuGqH44tMq +GFFVliaey4Gx5RFSJy6q4KY5nQ2VqRxQuGNvatukggVPqpeyojiwd24ivkVU +FX3cpW9FORLxhO+Q+yKlig0DXUeZdhwQHOkp41VQxdO8IXzz1hwo6W1+Z6Gm +irFBYmb7WBz40HBOj0NTxQFouqi8mgPrT5h3XfZTRYewKXqNDAcMpY4ZxFao +op3TiW8fetjwW1fig76HGga2vxC5vYUNM/mkY0ab1VCgLP1WqhcbpsQ11M39 +1LA2nWcu2I0NY5Pmu9fuUsM4xQf/yTqxYaAucGbzETXMHWzysKOz4ZnTXbFT +JWqY02V1Q1yBDXl7fGFgWg31i2Zojq+rgFl2s/C//1bgYr0LjcyoggkpR3/P +JnX8dbUif0GwEoZS/D33C6zEsIg9MvWFd8Dh5yGHzzRNfPKrZ4j3WDn8CBQ8 +wI7TwoWJX9lxUWXE/4T80pNN2niawnt1+vg1kHqxMu3OTx30bTNwH+woAcqp +2640mh52q9Y9sZK4Arm65hLSO/VRcDbu3JuiQnhGsjSZzFiFGVffX2f2XQQ6 +pSnd4J0B9v9IXFgelwtivEUR2xJWY/lx3k/5HdmgdEyZ6b1yDRpEKf71c80A +IY2t3I1P1uDASq7JkvMpsIqlePuQjyFmSOsHnKk+Cfs/SDU78hjhG8OCseur +j8PPyRQPh1wjNDwap881i4O+rsue+XlG6F7V+31WKQ6e3eN6TVw0QoHti3OO +y+Kg+GS/9/nLRihEfdWv/uYobCYb+367YYTHcj+JXd17FB5Z9e44fc8IM94/ +1/hQfAQuZGhHPR0g5hOeNf2kehjsDB7nOegb478vY4fPOEfDJn5791cGxkjW +c1YVMYmG3e+finoZGuOznEv9l6jRkJb8In67qTGKTHw5tTAWBe++tu+IszRG +HwnvkPTMKNheOGjI8TDGG0dfTy5/fwgSJJc8VzlqjMIxPfmycZHQMMn4O/vS +GJekNL1znz4Al1vvBri9NkaTj6anNw8egMQSo2flb40x8jh7KOT1AXDw0j0f +1GWM8SGiUfduHYD2WpLp20/GaD2UY7644wCMHPu9v3zKGGnfRKL4+/aDnMTd +ke0kEyzwKK0eawuHfXqGPa+DTHDXqiupy+pC4eAs6Y9fsAlxv3stncwLhcNN +vKSx3Sao9HdGfz4mFJI3dXgLh5ngbvG9/tsYoXAtMarbKsYE6VC9+uC9fTDQ +19BVlWaCVm9uJlU+DgHPVKfOc3dN0IDxLWnZ6B5gjW1v9xaioZiGSb7+iWCQ +q7Mrql9Ow5sBS9tWhQTD2EmdMGUxGire5vVY6xEMBarjyz9L0XB6ll/zpkYw +/HOPtQ6j0PDp1d9BIU92QmNdRmWSAQ33DQdG3RDbCZanG9KrPGgofW7Fhoqy +ILBRV1gnWkRDuTaFD3LUQGCPPlLdXkzDN0maLzSEA0H97oGZ2lIacpQ7NG1m +A4DPse1ScBkND/u0TrBfB0BTaNKvZjYNfZJSz3mdDACLuqmcmCc0bEmvUbg0 +vQ1oG18PfP1BQ3b+av7h9/5QSo67a/GThrLaSUFjrf4g+1kv5dwEDbUPnmrh +rfeHqUOnTKxniHiPz4VsyfOHynw4VbBIQ3m+g/z3vPzB4NstfQ8pU7y+48JC +3A0/0Io/E9Vkaoq7qCGbpjk+UM8oWeZMN0Up2JUieM4HXGcbMzuYpriTRplh +RPhA1L7pm8OWphi/wmApr5EPtGz1/yTmbIqJ3xfUxSu3QrA5zXGLvyl+e89a +JsTdAtd/fSJPnTJF1XcR7Nft3mBRPn/tSLIpvoo5SK696w1vdsnTBNJMiXqP +Tm/M84Y//c6upCxTXJwLsVbd5g2ObXcTMd8UYzXXa7F+boKRstTRlApTTBdX +mXsgsQl0gswbNXpMMZW/6M/mYE84q+by53ifKTpUd5H2unrC1McAk4EPpviz +OudflpknNGxOKSsYNMUEduYTTSFP2Oj6MUd+1BR9IuQDfMo8IJpxIkyIxwxr +7EonxifdoUXyteqohhk2v08IZ51zA/22z1udtMxQxPvRdr54N8hM+ZNzXccM +H99c9fXjbjfYKqAutsPADC+4VHm0oxv8nI/888HMDD86xS+pGN0IcsOUt6+c +zLCSJ3pGx2kjBDUEJ7LDzfCawffkcpkNMBYycsgmwgxdysPnPXg2QBR17553 +kWaYfLlfR/qHK5w5HLpxLtYMDd3eh79sdoU79EgVZpIZ2rG1jtpGuMI893h9 +c54ZKulKdntWrofM2wVTb5rNMPHvV07i9nVA8VMZDnxshnXKwDOH66BErKh3 +qsUM8+cSlmRS10F1SEmT3EszTCJ55Zh3OsN73Zvpm7vMMPVHNdnN2Rm0rtXo +Dfwww+4rYox0lhM0FrZvn5A1R02VuB4WwwH6nVX9IhXMcZIzXPuW4gA8v0O8 +/5LM8XBaVt2Zf/ZgtUHAZZmKORZ6+xVuabKHx0vopoo65njNovvsCSd7aA24 +JGRpYY4nIq5Jfwy0gx713eXpO8xxpZVoX0eZDfx9xb0mu8ucSIl3z90zbIBy +hPdK3h5zvCxcTZ2ItAGfjos5xWHmyLt39uAxKxvoP9EWXx1jjg2TF/oXetbC +1y/Gbv1p5mjj36a1TnItTF1bnDW4a460Q/ZuSZlW8MXTtvB0jTlusSvyFThi +BV18qfaDdeYYZi8rdGmnFdT5k87/d98c20qKv0qyrCBBwYS+8NQcOzVDT/B+ +swSJU7sPP+sjvocaa8dnYwl6Ozt4gpbSUWjFN8OfIghKspTrDXx0lCp+lWw+ +BSDRHLBBQYCOHpEKE/UvASaVxi8/X064+uInRiJA7Ttha0NZOtr9zTeXm7AA +e1s8sahJxwX7zcqUNywI1CgTyltHR6W6yKSQOwyIeeS7e6UrHZ1vVE0+TGFA +epDU88qNdPS8f36L7S4G1JdEpzz3ouMJWZW9j9UYILPSXnxhGx0bY6+94ObQ +4fHKzzL+kXS0+Xrrr+Fpc9DRUlZZeYmOf7cFTx04bQrY8ia+8jIx/7uu89W7 +TcEzOOmTRTEd3XXVBdScTeH4tdEir+t01Dp86GKAuCn0adVrnK6i4/6Jv6H/ +5dAgTdtb98cTOh4MvEC5Wm4CEzpZtMpxOgY8WXJzx4wRdLWijfQkHVMd+ITr +3hvB/X1jbhHTdNT9nL9X95ERpFU6hNP+0DHDte6FX7YR6NB5btbyMpBvgXdY +2tgIAhxCVJvlGJh6TkYiI8oQ2nfaibQzGRgkq8xVkV0DdULTJBNgYHejn+P9 +xdVQVFak/Z8lA69K0hKiRlZD2M8F2022DLQOLYo0vL8aRA+xj/WtZ6C8b9Ct +p3tXg22S6uxQAAP/dOh//ZBtANXFfz9Nn2Igde3+wV59faBZR8w6JjPQ8K6M +UIGQPnA+/RApTGXgk4P89ac/60Gl0gdTx0wG6qpRlN7n68HN3PupBRcY6OTk +qh0qoQeFKSfM7coZGJIcf4a8oAOnI8Qzct8yUHXL6XORk1ogKH2qdLSDgSsd +diwotmtBUgVPvVUX8T58vPcTWwsSxya+/OhjoCtyAz9EasHR4Ham5RcGtqd7 +RiTNa8L+reeHv80R6/E7NISLacLmtSuQocTEWGsPOY6TBiy0C4o1qzCRIRoh +575KAwqDxnodVzBxIbf6qoKkBnxJqjm0WYuJDdm72iQ71WH/0/W3ow2ZGLdC +JrpxuzqccTmsVG3LRI/tXr8GklZA7aaOeeNQJv5MPquv/VkVfL7VPqsPZ+LL +8DQF7VZV4IkpzF0bwUSTGMMIhypVsL2wx9g9monCn9cMjRxThTfvl+w9cJyJ +EmzzuJsqqjASsKq3IoeJ3h3jg0LbVYAccrJm1X0mOpt/fuK7VAnSFneYJDcx +0fOWgeCDHioszbSt+PqQiUXrRKbcqqgwwl12vfApEwd5dKaEg6hQy5OYK/WW +ia326dfvPqPA5uz4QzOfmfi7rsDkfQEZcuuiTRqWs1DqlOP8aLAiiLh4V5DE +WPiv+37Xoq0ixPeb6R+SYKGBya5fDA1FCF42p75aloX7fVsphgMKYLo+UqZI +iYUJM99lJH0V4N3A/skTa1jIuWK5K8xHHmSF91as82Kh0b41AgejZaHY+kjM +uDcLJwcHG+W9ZcHwSJp11lYWbtynyT9sJgsu43c6uraxkI9PxFXitwwkvZv+ +HbiXhVkiT6OiY2VgrijOKuYYC4d02qdjT0lDDyPrbWkZC5XvxDy+90ASgg8W +X3QoZ2GmY69sSakkzJRzgn7cYSFP3pRMVbIkSKl1za7hsnAmQcDLylMSnASp +lHv3WXhItylYa1QC6ttLt7/tYGF/m9LBr6oS4ChWrR/ZRYw/qhGsJiQBXXZP +ZxR6WVhc9318ySdxmKr9fsq3n4X6j6OCXePEQf/y6lvfRljoIrhu1qhRDOp7 +LCNTRlkofD/oYPdZMXCUcQODcRYGFJ+1bfYXgx0nD76OmGahvWdyZACvGEzd +T8qTn2PhyaGrKvIdopDwJyew9g8LHWE3W+yqKEgYX9fzWWChyZakLvtoUSgI +qZ1eXGShZwHZ+JGTKPwPy6w4/g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08726940532059288}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.08726940532059288}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993853097608027*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"d345201d-9856-412e-bc61-9b14a54ff740"] +}, Open ]], Cell[CellGroupData[{ @@ -13264,66 +16176,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + "In[153]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 93, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097599506`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.26943627569432`*^-142\\\", \ +RowBox[{\\\"990359217009531794717859144615\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"111\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"840000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 153, 73, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993853097654233*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +In[153]:=",ExpressionUUID->"27a3bab1-f8a4-4599-874a-0ad2f8bf9df4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 94, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909769953*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1785174697722115`*^-144\\\", \ +RowBox[{\\\"393073573231083169323518294497\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"115\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"960000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 153, 74, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993853097664542*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +In[153]:=",ExpressionUUID->"0e3a6be6-b7f5-4272-b915-8cede30503b3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 142, 95, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097784023`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.120037127428785`*^-147\\\", \ +RowBox[{\\\"161002935595451666154913093426\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"119\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"160000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 153, 75, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.9938530976711063`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +In[153]:=",ExpressionUUID->"7bc67e0c-9546-4acc-a429-74d97013ed45"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 142, 96, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909786396*^9}, +during this calculation.\"", 2, 153, 76, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.9938530976766567`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +In[153]:=",ExpressionUUID->"9fc0c765-e643-46ff-9a74-3c5e0a98af9a"], -Cell[BoxData["11.275343508420296`"], "Output", - CellChangeTimes->{3.9913279159698696`*^9}, +Cell[BoxData["9.81186483980621`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.9938531510043573`*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] + "Out[153]=",ExpressionUUID->"4c62cd97-4794-44bd-9396-b61b4be4e2ed"] }, Open ]], Cell[CellGroupData[{ @@ -13390,68 +16309,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99179998339209*^9, - 3.991799988637089*^9}},ExpressionUUID->"a5e0631c-6c6c-a045-8418-\ -22c641e38d86"], + CellChangeTimes->{{3.99179998339209*^9, 3.991799988637089*^9}}, + CellLabel-> + "In[154]:=",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 143, 97, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916008396*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9536320724369636`*^-207\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 154, 77, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993853151039044*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +In[154]:=",ExpressionUUID->"d0d424bc-5148-4702-9191-a1b023685210"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 143, 98, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916018362*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.045461218780291`*^-212\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 154, 78, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.9938531510476627`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +In[154]:=",ExpressionUUID->"696a85f5-de3f-4d61-9add-bc05ca3bb0cb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 143, - 99, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279160263577`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.7474824794032446`*^-217\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 154, 79, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993853151055813*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +In[154]:=",ExpressionUUID->"e06488ef-a37a-4ce4-b55d-1c466f699de2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 143, 100, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916034359*^9}, +during this calculation.\"", 2, 154, 80, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993853151064259*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +In[154]:=",ExpressionUUID->"c7d1477c-71c7-41c1-aa71-8633c092ddb7"], -Cell[BoxData["1.0734937398087425`"], "Output", - CellChangeTimes->{3.991327922931429*^9}, +Cell[BoxData["0.1619355326893728`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.993853157362*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] + "Out[154]=",ExpressionUUID->"b053ea25-1004-426b-a3aa-b1f571c1897f"] }, Open ]], Cell[CellGroupData[{ @@ -13472,8 +16398,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13518,68 +16443,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799991275097*^9, - 3.9917999948700333`*^9}},ExpressionUUID->"4b6c44e4-d946-0c4d-9992-\ -4f0fc7048689"], + CellChangeTimes->{{3.991799991275097*^9, 3.9917999948700333`*^9}}, + CellLabel-> + "In[155]:=",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 144, 101, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229664307`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9536320724369636`*^-207\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 155, 81, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.9938531574233027`*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +In[155]:=",ExpressionUUID->"dae90408-ed74-4eb2-a5d3-34be7337fe0d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 144, 102, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327922975607*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.045461218780291`*^-212\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 155, 82, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993853157430214*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +In[155]:=",ExpressionUUID->"e70e652d-be5d-429d-9e81-0ecc4261a966"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 144, - 103, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229836063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.7474824794032446`*^-217\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 155, 83, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.9938531574376783`*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +In[155]:=",ExpressionUUID->"7939a19a-96f3-4537-9afe-36792ad89083"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 144, 104, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229916077`*^9}, +during this calculation.\"", 2, 155, 84, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.99385315744551*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +In[155]:=",ExpressionUUID->"d9ad3655-5452-407b-af4f-61c451ffcacc"], -Cell[BoxData["9.48093127226425`"], "Output", - CellChangeTimes->{3.9913279288200035`*^9}, +Cell[BoxData["20.73217721357295`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9, 3.993853163103458*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] + "Out[155]=",ExpressionUUID->"54f5d98a-da96-4a1b-bf46-610217b41295"] }, Open ]], Cell[CellGroupData[{ @@ -13600,8 +16532,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13646,68 +16577,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918000011431293`*^9, - 3.9918000068677616`*^9}},ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-\ -32244819d42b"], + CellChangeTimes->{{3.9918000011431293`*^9, 3.9918000068677616`*^9}}, + CellLabel-> + "In[156]:=",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 145, 105, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928854006*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9536320724369636`*^-207\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 156, 85, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993853163146117*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +In[156]:=",ExpressionUUID->"acb95209-d868-44cc-a5b9-afca7258f83b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 145, 106, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928864023*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.045461218780291`*^-212\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 156, 86, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993853163154471*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +In[156]:=",ExpressionUUID->"7c954ed9-2435-42c1-a416-b33c5aed14b0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 145, - 107, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928871004*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.7474824794032446`*^-217\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 156, 87, + 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.9938531631631308`*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +In[156]:=",ExpressionUUID->"4f6eef0e-264e-483d-a917-9d36917fab6a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 145, 108, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928878006*^9}, +during this calculation.\"", 2, 156, 88, 31384987718215482366, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993853163170577*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +In[156]:=",ExpressionUUID->"48a64460-800f-4143-9547-2cabd0d4c622"], -Cell[BoxData["17.503865312709518`"], "Output", - CellChangeTimes->{3.9913279320131683`*^9}, +Cell[BoxData["3.220277881736349`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.993853166816609*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] + "Out[156]=",ExpressionUUID->"827eac2d-995e-48ec-afd6-a4acea4a1919"] }, Open ]], Cell[CellGroupData[{ @@ -13716,20 +16654,26 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991800029528055*^9, - 3.991800041720209*^9}},ExpressionUUID->"99da2760-e71e-1246-8cc9-\ -f0a7464dc747"], - -Cell[BoxData["0.08333108480569339`"], "Output", - CellChangeTimes->{3.9913279320452003`*^9}, + CellChangeTimes->{{3.991800029528055*^9, 3.991800041720209*^9}}, CellLabel-> - "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] + "In[157]:=",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], + +Cell[BoxData["0.019818602332043266`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.993853166856093*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"e527cff2-5d6b-4fb6-8827-38771ef39b77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"0b907eb6-f914-4733-8572-30b883966193"] }, -WindowSize->{1440, 882}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +Evaluator->"Local", +WindowSize->{714, 288}, +WindowMargins->{{-3, Automatic}, {297, Automatic}}, CellContext->Notebook, -Magnification:>0.8 Inherited, +Magnification:>1.4 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" @@ -13746,661 +16690,674 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 305, 6, 23, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[884, 30, 230, 5, 38, "Output",ExpressionUUID->"8bcc869c-02b6-4b6c-b8d4-2a9c1b3be3f4"] +Cell[576, 22, 300, 5, 73, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[879, 29, 269, 4, 46, "Output",ExpressionUUID->"13edd4a7-57d6-4827-9179-655d5331a610"] }, Open ]], Cell[CellGroupData[{ -Cell[1151, 40, 202, 4, 23, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1356, 46, 232, 5, 38, "Output",ExpressionUUID->"6ba6e445-a6c8-4c1a-b99a-1b3790d34b4b"] +Cell[1185, 38, 245, 4, 40, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1433, 44, 273, 4, 46, "Output",ExpressionUUID->"e19fce7a-361a-4025-baf2-ce5fa0fac9de"] }, Open ]], Cell[CellGroupData[{ -Cell[1625, 56, 233, 5, 23, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1861, 63, 232, 5, 38, "Output",ExpressionUUID->"68a4b771-590d-461b-a6c1-3c0c7402d89f"] +Cell[1743, 53, 228, 4, 40, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1974, 59, 273, 4, 46, "Output",ExpressionUUID->"54ea73d4-4df9-4373-9a4f-006ec8158187"] }, Open ]], Cell[CellGroupData[{ -Cell[2130, 73, 180, 4, 23, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2313, 79, 234, 5, 38, "Output",ExpressionUUID->"d786de7f-b858-4e73-9dc1-c9f55fe4d0f3"] +Cell[2284, 68, 175, 3, 40, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2462, 73, 273, 4, 46, "Output",ExpressionUUID->"88242743-0945-4493-9a1f-026edbd79f55"] }, Open ]], Cell[CellGroupData[{ -Cell[2584, 89, 262, 8, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2849, 99, 248, 5, 38, "Output",ExpressionUUID->"aca4159d-4962-4a83-badd-83ec93b346ec"] +Cell[2772, 82, 257, 7, 59, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3032, 91, 287, 4, 46, "Output",ExpressionUUID->"fa767b48-31a7-45c4-941b-61e0b5206629"] }, Open ]], Cell[CellGroupData[{ -Cell[3134, 109, 136, 3, 23, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3273, 114, 232, 5, 38, "Output",ExpressionUUID->"b528f501-29aa-441b-9508-700f4af79ce4"] +Cell[3356, 100, 131, 2, 40, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3490, 104, 273, 4, 46, "Output",ExpressionUUID->"1a542d18-2927-4316-8213-04e2a6550fb9"] }, Open ]], Cell[CellGroupData[{ -Cell[3542, 124, 281, 7, 23, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3826, 133, 249, 5, 38, "Output",ExpressionUUID->"11e21b32-eb43-44d9-a4eb-9edafa554bcf"] +Cell[3800, 113, 276, 6, 40, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4079, 121, 288, 4, 46, "Output",ExpressionUUID->"81931160-91b0-4ce5-b93f-aab091beda8c"] }, Open ]], Cell[CellGroupData[{ -Cell[4112, 143, 262, 8, 23, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4377, 153, 248, 5, 38, "Output",ExpressionUUID->"a8e1095d-88f3-4544-875c-b9473bd0ad09"] +Cell[4404, 130, 257, 7, 40, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4664, 139, 285, 4, 46, "Output",ExpressionUUID->"b6acc2fa-bee3-474d-a90d-1614480cbd28"] }, Open ]], Cell[CellGroupData[{ -Cell[4662, 163, 229, 5, 23, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[4894, 170, 208, 4, 38, "Output",ExpressionUUID->"cdaf059a-05fc-4f46-9381-6f5634e09bc6"] +Cell[4986, 148, 224, 4, 40, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5213, 154, 253, 4, 46, "Output",ExpressionUUID->"35f223e9-2c4d-4fcd-9da1-b7c04bbc5290"] }, Open ]], Cell[CellGroupData[{ -Cell[5139, 179, 230, 5, 23, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5372, 186, 210, 4, 38, "Output",ExpressionUUID->"ab0cd6ef-6976-431a-b045-8ccd88b934b2"] +Cell[5503, 163, 226, 4, 40, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5732, 169, 254, 4, 46, "Output",ExpressionUUID->"5f1a0c03-293a-47fc-90c9-436a7dfd93a0"] }, Open ]], Cell[CellGroupData[{ -Cell[5619, 195, 133, 3, 23, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[5755, 200, 230, 5, 38, "Output",ExpressionUUID->"ef91f38c-2cb1-43ab-bcb1-fa0a87349adb"] +Cell[6023, 178, 129, 2, 40, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6155, 182, 269, 4, 46, "Output",ExpressionUUID->"bdd87bb8-800c-40b7-971a-faeaced84c9a"] }, Open ]], Cell[CellGroupData[{ -Cell[6022, 210, 133, 3, 23, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[6158, 215, 230, 5, 38, "Output",ExpressionUUID->"e5a5e1db-f525-46f8-ab9a-e9e97eec27eb"] +Cell[6461, 191, 129, 2, 40, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6593, 195, 269, 4, 46, "Output",ExpressionUUID->"8094242e-c3d9-454c-bba8-302a46e733af"] }, Open ]], Cell[CellGroupData[{ -Cell[6425, 225, 561, 20, 67, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[6989, 247, 251, 5, 38, "Output",ExpressionUUID->"f2abcbf3-8a18-4e51-8f6a-f8ed8152204e"] +Cell[6899, 204, 557, 19, 109, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7459, 225, 293, 4, 46, "Output",ExpressionUUID->"cd43ac5a-1193-4542-9d4d-57f9b89f4ea8"] }, Open ]], Cell[CellGroupData[{ -Cell[7277, 257, 561, 20, 67, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[7841, 279, 249, 5, 38, "Output",ExpressionUUID->"a5315219-13ee-49e1-8ba2-52acf4c17de9"] +Cell[7789, 234, 557, 19, 109, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8349, 255, 288, 4, 46, "Output",ExpressionUUID->"4fb3c8f5-f316-45bd-89cf-e6c12c9212e5"] }, Open ]], Cell[CellGroupData[{ -Cell[8127, 289, 1496, 49, 67, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[9626, 340, 246, 5, 38, "Output",ExpressionUUID->"0e4fb904-09c4-4a82-b839-ed54d29c8fc2"] +Cell[8674, 264, 1588, 50, 293, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10265, 316, 287, 4, 46, "Output",ExpressionUUID->"f2619396-a2df-4b98-8280-f5e6f139c3bf"] }, Open ]], Cell[CellGroupData[{ -Cell[9909, 350, 1335, 45, 67, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[11247, 397, 265, 6, 38, "Output",ExpressionUUID->"4af3f868-5b0e-4e2c-8c9a-efcd5efdf015"] +Cell[10589, 325, 1422, 46, 232, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[12014, 373, 308, 5, 46, "Output",ExpressionUUID->"2af7a3ca-ad28-4afa-b3c7-776d4721a746"] }, Open ]], Cell[CellGroupData[{ -Cell[11549, 408, 1335, 45, 67, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[12887, 455, 268, 6, 38, "Output",ExpressionUUID->"b6676923-0fb9-432e-8f1c-91fadeafe255"] +Cell[12359, 383, 1422, 46, 232, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[13784, 431, 308, 5, 46, "Output",ExpressionUUID->"f4361646-888b-4409-b6fe-66d1cc478e5a"] }, Open ]], Cell[CellGroupData[{ -Cell[13192, 466, 1496, 49, 67, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[14691, 517, 246, 5, 38, "Output",ExpressionUUID->"a17b4da2-122c-4921-9c38-341df7fb5d17"] +Cell[14129, 441, 1588, 50, 293, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[15720, 493, 284, 4, 46, "Output",ExpressionUUID->"0e66de81-3cad-4c06-af39-43b01937a116"] }, Open ]], Cell[CellGroupData[{ -Cell[14974, 527, 135, 3, 23, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[15112, 532, 232, 5, 38, "Output",ExpressionUUID->"0d0ccadb-076e-40aa-b18c-a9d5c6aa7bb7"] +Cell[16041, 502, 131, 2, 40, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[16175, 506, 272, 4, 46, "Output",ExpressionUUID->"71a37eb7-6334-465e-9716-4d81a4b21efe"] }, Open ]], Cell[CellGroupData[{ -Cell[15381, 542, 137, 3, 23, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[15521, 547, 231, 5, 38, "Output",ExpressionUUID->"37ae45c1-23d3-4b8e-b580-586e120518e0"] +Cell[16484, 515, 133, 2, 40, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[16620, 519, 275, 4, 46, "Output",ExpressionUUID->"f5724984-3a57-4aa7-a8ce-bcfe5deaedef"] }, Open ]], Cell[CellGroupData[{ -Cell[15789, 557, 138, 3, 23, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[15930, 562, 234, 5, 38, "Output",ExpressionUUID->"7991b4a2-13d4-4256-bcd4-712052b81ef3"] +Cell[16932, 528, 134, 2, 40, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[17069, 532, 276, 4, 46, "Output",ExpressionUUID->"ccd18e3a-e9a2-4e14-a4c6-1efd69bc6fa7"] }, Open ]], Cell[CellGroupData[{ -Cell[16201, 572, 223, 5, 23, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[16427, 579, 247, 6, 38, "Output",ExpressionUUID->"628aa974-bc8a-4059-9797-5ec7f317ca0f"] +Cell[17382, 541, 219, 4, 40, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[17604, 547, 287, 5, 46, "Output",ExpressionUUID->"e64e45e4-6145-4443-891b-0cac74457f0f"] }, Open ]], Cell[CellGroupData[{ -Cell[16711, 590, 138, 3, 23, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[16852, 595, 237, 5, 38, "Output",ExpressionUUID->"81fa9705-8140-4960-a8d9-4c4e2a3af50d"] +Cell[17928, 557, 134, 2, 40, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[18065, 561, 279, 4, 46, "Output",ExpressionUUID->"6f4b8980-f73e-467d-84dd-e84085def07a"] }, Open ]], Cell[CellGroupData[{ -Cell[17126, 605, 332, 6, 23, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[17461, 613, 233, 5, 38, "Output",ExpressionUUID->"d538d358-0420-45e5-bcc3-88e9317a7697"] +Cell[18381, 570, 328, 5, 40, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[18712, 577, 275, 4, 46, "Output",ExpressionUUID->"0610a978-d6c9-4604-9871-75125a2e3331"] }, Open ]], Cell[CellGroupData[{ -Cell[17731, 623, 254, 6, 23, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[17988, 631, 231, 5, 38, "Output",ExpressionUUID->"249f0f3b-3127-40ca-88ea-adf5f89b1fcd"] +Cell[19024, 586, 295, 5, 40, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[19322, 593, 272, 4, 46, "Output",ExpressionUUID->"6b58caaa-7d70-42aa-bbf6-9184474e9434"] }, Open ]], Cell[CellGroupData[{ -Cell[18256, 641, 223, 5, 23, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[18482, 648, 231, 5, 38, "Output",ExpressionUUID->"cce4a4dc-8bf9-4fdb-8ad9-30d4c2b8bd5f"] +Cell[19631, 602, 219, 4, 40, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[19853, 608, 273, 4, 46, "Output",ExpressionUUID->"1f9ed0e9-8e8f-4911-aeed-aca2905bf288"] }, Open ]], Cell[CellGroupData[{ -Cell[18750, 658, 354, 11, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[19107, 671, 255, 5, 38, "Output",ExpressionUUID->"2b55f36d-48cd-491f-9bb8-89821284f2f6"] +Cell[20163, 617, 350, 10, 59, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[20516, 629, 299, 4, 46, "Output",ExpressionUUID->"d7090f2a-68a1-4bf5-9c42-d712684d1d87"] }, Open ]], Cell[CellGroupData[{ -Cell[19399, 681, 354, 11, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[19756, 694, 264, 6, 38, "Output",ExpressionUUID->"f7cead41-60d0-43c6-8526-acd5b06ea4cf"] +Cell[20852, 638, 350, 10, 59, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[21205, 650, 306, 5, 46, "Output",ExpressionUUID->"1f4b53ef-5801-4b20-85e1-9b29a83032b8"] }, Open ]], Cell[CellGroupData[{ -Cell[20057, 705, 998, 27, 38, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[21058, 734, 250, 5, 38, "Output",ExpressionUUID->"8235dc07-cc49-4ca5-b4a0-ae8a34c68991"] +Cell[21548, 660, 994, 26, 201, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[22545, 688, 289, 4, 46, "Output",ExpressionUUID->"6ebec195-82b4-4757-8c0c-46846dc9bc50"] }, Open ]], Cell[CellGroupData[{ -Cell[21345, 744, 203, 4, 23, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[21551, 750, 230, 5, 38, "Output",ExpressionUUID->"f0c8c1bb-fc60-4f31-b855-25251804aedd"] +Cell[22871, 697, 199, 3, 40, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[23073, 702, 272, 4, 46, "Output",ExpressionUUID->"25103de2-783e-4940-87b9-ecd84f507211"] }, Open ]], Cell[CellGroupData[{ -Cell[21818, 760, 330, 6, 23, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[22151, 768, 206, 4, 38, "Output",ExpressionUUID->"87b7f9c2-78d1-439b-9066-b2305c34a95e"] +Cell[23382, 711, 326, 5, 40, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[23711, 718, 250, 4, 46, "Output",ExpressionUUID->"5df84669-6f08-4a4d-80c9-aaf07c1d3d7c"] }, Open ]], -Cell[22372, 775, 177, 3, 23, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[23976, 725, 173, 2, 40, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[22574, 782, 331, 6, 23, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[22908, 790, 211, 4, 38, "Output",ExpressionUUID->"a981b58b-57e5-4c99-89c2-e88ba6d7edb9"] +Cell[24174, 731, 327, 5, 40, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[24504, 738, 255, 4, 46, "Output",ExpressionUUID->"19e60f5d-d416-4c31-b73a-57fc78f53446"] }, Open ]], -Cell[23134, 797, 177, 3, 23, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[24774, 745, 173, 2, 40, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[23336, 804, 333, 6, 23, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[23672, 812, 208, 4, 38, "Output",ExpressionUUID->"4d2d82c9-d77a-4c98-9597-552d5b154960"] +Cell[24972, 751, 329, 5, 40, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[25304, 758, 252, 4, 46, "Output",ExpressionUUID->"b09d4da2-5eca-4fd2-8983-644f3df93e1a"] }, Open ]], -Cell[23895, 819, 177, 3, 23, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[25571, 765, 173, 2, 40, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[24097, 826, 358, 6, 23, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[24458, 834, 208, 4, 38, "Output",ExpressionUUID->"ed0b4ea2-ac36-412e-9512-d8112ec25bb3"] +Cell[25769, 771, 354, 5, 40, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[26126, 778, 252, 4, 46, "Output",ExpressionUUID->"f846f60c-e02a-4b73-9cf9-3a86a5116aac"] }, Open ]], -Cell[24681, 841, 175, 3, 23, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[26393, 785, 171, 2, 40, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[24881, 848, 303, 6, 23, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[25187, 856, 207, 4, 38, "Output",ExpressionUUID->"e4937222-35a4-495d-b0c7-513bcf69f3e0"] +Cell[26589, 791, 299, 5, 40, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[26891, 798, 251, 4, 46, "Output",ExpressionUUID->"282744a4-1412-4ed0-886f-b428b2e3700e"] }, Open ]], -Cell[25409, 863, 175, 3, 23, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[27157, 805, 171, 2, 40, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[25609, 870, 307, 6, 23, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[25919, 878, 207, 4, 38, "Output",ExpressionUUID->"3bede287-2b32-46cd-b810-0561f9ef9e9c"] +Cell[27353, 811, 303, 5, 40, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[27659, 818, 253, 4, 46, "Output",ExpressionUUID->"5c1d5645-a6e5-431e-b59e-af5ddd759371"] }, Open ]], -Cell[26141, 885, 177, 3, 23, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[27927, 825, 173, 2, 40, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[26343, 892, 310, 6, 23, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[26656, 900, 208, 4, 38, "Output",ExpressionUUID->"d62e3280-7ba7-41cc-8cbd-9e6af2fabd1f"] +Cell[28125, 831, 306, 5, 40, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[28434, 838, 252, 4, 46, "Output",ExpressionUUID->"39084966-3bae-4903-92b3-d232bfe7c09f"] }, Open ]], -Cell[26879, 907, 176, 3, 23, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[28701, 845, 172, 2, 40, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[27080, 914, 279, 5, 23, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[27362, 921, 206, 4, 38, "Output",ExpressionUUID->"566f288a-f1a4-4dc8-bcd2-4a73af54093e"] +Cell[28898, 851, 275, 4, 40, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[29176, 857, 250, 4, 46, "Output",ExpressionUUID->"a99c4431-50b1-4d90-ae69-9c62f70b4fde"] }, Open ]], -Cell[27583, 928, 179, 3, 23, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[29441, 864, 175, 2, 40, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[27787, 935, 19813, 486, 680, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[47603, 1423, 248, 5, 38, "Output",ExpressionUUID->"9c3ec440-2d3a-4405-80f3-819eb362f9b5"] +Cell[29641, 870, 19809, 485, 3376, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[49453, 1357, 289, 4, 46, "Output",ExpressionUUID->"038ace0f-3460-4c22-bf0a-1baa3f75dc5b"] }, Open ]], Cell[CellGroupData[{ -Cell[47888, 1433, 19752, 490, 690, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[67643, 1925, 249, 5, 38, "Output",ExpressionUUID->"c25e46d5-7456-4779-b6d4-365f258c8dad"] +Cell[49779, 1366, 19748, 489, 3376, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[69530, 1857, 293, 4, 46, "Output",ExpressionUUID->"2b1e9200-dfd1-462a-94cd-daf42fc83ecc"] }, Open ]], Cell[CellGroupData[{ -Cell[67929, 1935, 19752, 484, 689, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[87684, 2421, 261, 6, 38, "Output",ExpressionUUID->"7a0722fd-ee03-42fc-b8ed-6d8832b52cd6"] +Cell[69860, 1866, 19748, 483, 3375, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[89611, 2351, 304, 5, 46, "Output",ExpressionUUID->"1798d23b-515d-45fa-9d37-fd3fdef1e939"] }, Open ]], Cell[CellGroupData[{ -Cell[87982, 2432, 22538, 554, 761, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[110523, 2988, 263, 6, 38, "Output",ExpressionUUID->"2a8cd7f5-3b54-4cba-91aa-86253166e0bc"] +Cell[89952, 2361, 22534, 553, 3857, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[112489, 2916, 307, 5, 46, "Output",ExpressionUUID->"5e879384-0a04-466c-bf19-8858ea4b5a4b"] }, Open ]], Cell[CellGroupData[{ -Cell[110823, 2999, 22539, 554, 761, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[133365, 3555, 268, 6, 38, "Output",ExpressionUUID->"c20d9ab1-0c1e-4e4a-93e0-e64c1dca8d40"] +Cell[112833, 2926, 22535, 553, 3857, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[135371, 3481, 312, 5, 46, "Output",ExpressionUUID->"96e1fcc1-fcef-4c62-8552-8142d8814ed4"] }, Open ]], Cell[CellGroupData[{ -Cell[133670, 3566, 25495, 627, 833, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[159168, 4195, 262, 6, 38, "Output",ExpressionUUID->"1c2cf9fe-278a-4909-a4c6-1e02bf663526"] +Cell[135720, 3491, 25491, 626, 4339, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[161214, 4119, 302, 5, 46, "Output",ExpressionUUID->"ff641489-2ee3-4031-ab1e-d8f5d00b7f91"] }, Open ]], Cell[CellGroupData[{ -Cell[159467, 4206, 134, 3, 23, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[159604, 4211, 232, 5, 38, "Output",ExpressionUUID->"b66b431f-5686-4495-975e-8f70e4879ef0"] +Cell[161553, 4129, 130, 2, 40, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[161686, 4133, 273, 4, 46, "Output",ExpressionUUID->"222c333f-af34-4afd-bf0d-b06b5fb59c3e"] }, Open ]], Cell[CellGroupData[{ -Cell[159873, 4221, 134, 3, 23, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[160010, 4226, 232, 5, 38, "Output",ExpressionUUID->"f1487934-de13-4a72-b17a-1fa98f37129f"] +Cell[161996, 4142, 130, 2, 40, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[162129, 4146, 274, 4, 46, "Output",ExpressionUUID->"603c96e9-0df4-4ace-b959-de2ea3e018ea"] }, Open ]], Cell[CellGroupData[{ -Cell[160279, 4236, 1148, 40, 48, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[161430, 4278, 246, 5, 38, "Output",ExpressionUUID->"e9edcc1b-d82a-42c8-9624-66be27948d59"] +Cell[162440, 4155, 1144, 39, 155, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[163587, 4196, 285, 4, 46, "Output",ExpressionUUID->"4051fc27-9d23-4be6-8dce-481e5caa0fb1"] }, Open ]], Cell[CellGroupData[{ -Cell[161713, 4288, 1045, 36, 48, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[162761, 4326, 265, 6, 38, "Output",ExpressionUUID->"91de79c9-7c79-4420-b82a-ed636542dbe9"] +Cell[163909, 4205, 1041, 35, 210, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[164953, 4242, 308, 5, 46, "Output",ExpressionUUID->"dddc311a-062c-4937-97c1-40a5b4f6fe0a"] }, Open ]], Cell[CellGroupData[{ -Cell[163063, 4337, 1148, 40, 48, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[164214, 4379, 249, 5, 38, "Output",ExpressionUUID->"9fa48dcd-f160-4fb8-9f7d-713b92a5179d"] +Cell[165298, 4252, 1144, 39, 155, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[166445, 4293, 288, 4, 46, "Output",ExpressionUUID->"6c32cef0-3d1d-4930-aa28-f89ab5702664"] }, Open ]], Cell[CellGroupData[{ -Cell[164500, 4389, 112, 2, 23, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[164615, 4393, 248, 5, 38, "Output",ExpressionUUID->"5b9e8e96-4161-42d7-ad1f-d1e16483920a"] +Cell[166770, 4302, 108, 1, 40, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[166881, 4305, 286, 4, 46, "Output",ExpressionUUID->"02e58389-303e-46f1-94f0-f344f20efd13"] }, Open ]], Cell[CellGroupData[{ -Cell[164900, 4403, 112, 2, 23, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[165015, 4407, 267, 6, 38, "Output",ExpressionUUID->"c4272f89-531c-4673-bee8-6c314fbfea90"] +Cell[167204, 4314, 108, 1, 40, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[167315, 4317, 308, 5, 46, "Output",ExpressionUUID->"f83a429a-aa6f-4253-bb94-2922c439220c"] }, Open ]], Cell[CellGroupData[{ -Cell[165319, 4418, 112, 2, 23, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[165434, 4422, 265, 6, 38, "Output",ExpressionUUID->"73cba804-1cae-4ce7-9bde-a7e84ea681c6"] +Cell[167660, 4327, 108, 1, 40, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[167771, 4330, 305, 5, 46, "Output",ExpressionUUID->"e8388ae6-23d2-431a-aa66-e58610522aec"] }, Open ]], Cell[CellGroupData[{ -Cell[165736, 4433, 112, 2, 23, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[165851, 4437, 250, 5, 38, "Output",ExpressionUUID->"b136cfb4-41df-44f3-8130-479aecdce898"] +Cell[168113, 4340, 108, 1, 40, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[168224, 4343, 290, 4, 46, "Output",ExpressionUUID->"729f8994-88a4-4584-8c2a-fe15cf30a42a"] }, Open ]], Cell[CellGroupData[{ -Cell[166138, 4447, 111, 2, 23, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[166252, 4451, 248, 5, 38, "Output",ExpressionUUID->"f949120e-edee-4ac3-9a95-6a0e8bc91f85"] +Cell[168551, 4352, 107, 1, 40, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[168661, 4355, 290, 4, 46, "Output",ExpressionUUID->"41251c16-68bd-476d-b6ef-dd7061a2d552"] }, Open ]], Cell[CellGroupData[{ -Cell[166537, 4461, 111, 2, 23, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[166651, 4465, 248, 5, 38, "Output",ExpressionUUID->"e273eb50-14ab-48f8-bdf8-0eb92c7b6b48"] +Cell[168988, 4364, 107, 1, 40, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[169098, 4367, 288, 4, 46, "Output",ExpressionUUID->"9850f0cc-e288-48a1-9bba-ed1dd44010b4"] }, Open ]], Cell[CellGroupData[{ -Cell[166936, 4475, 501, 17, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[167440, 4494, 267, 6, 38, "Output",ExpressionUUID->"3be0ce69-8de9-4497-b8f6-55749814f454"] +Cell[169423, 4376, 497, 16, 77, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[169923, 4394, 306, 5, 46, "Output",ExpressionUUID->"93dce725-35e5-4930-970d-6056902d7255"] }, Open ]], Cell[CellGroupData[{ -Cell[167744, 4505, 501, 17, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[168248, 4524, 261, 6, 38, "Output",ExpressionUUID->"92444125-7e33-4c6e-aba9-83554b55e6d9"] +Cell[170266, 4404, 497, 16, 77, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[170766, 4422, 301, 5, 46, "Output",ExpressionUUID->"643029ab-084a-4807-9503-34dec14d909d"] }, Open ]], Cell[CellGroupData[{ -Cell[168546, 4535, 1792, 61, 48, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[170341, 4598, 244, 5, 38, "Output",ExpressionUUID->"79602979-8cb8-45cc-ae2a-e31cf15ec45d"] +Cell[171104, 4432, 1788, 60, 473, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[172895, 4494, 289, 4, 46, "Output",ExpressionUUID->"58da0836-d864-49f7-a483-6b0ad94f0020"] }, Open ]], Cell[CellGroupData[{ -Cell[170622, 4608, 1105, 37, 48, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[171730, 4647, 269, 6, 38, "Output",ExpressionUUID->"afe26eea-6af3-4b18-bfe2-2fd504da1af2"] +Cell[173221, 4503, 1101, 36, 241, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[174325, 4541, 310, 5, 46, "Output",ExpressionUUID->"819378b0-8043-4d90-9b88-b2d94d525cf4"] }, Open ]], Cell[CellGroupData[{ -Cell[172036, 4658, 1822, 62, 95, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[173861, 4722, 246, 5, 38, "Output",ExpressionUUID->"b0aebb67-e5a7-4b01-9b89-e7f9d4849967"] +Cell[174672, 4551, 1818, 61, 473, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[176493, 4614, 285, 4, 46, "Output",ExpressionUUID->"ed1e72b0-d0bd-42da-a656-f30859c950e0"] }, Open ]], Cell[CellGroupData[{ -Cell[174144, 4732, 1635, 54, 67, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[175782, 4788, 249, 5, 38, "Output",ExpressionUUID->"1910ebd9-89d0-4f8a-946a-b44106990855"] +Cell[176815, 4623, 1631, 53, 228, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[178449, 4678, 289, 4, 46, "Output",ExpressionUUID->"038a78fb-06d5-4458-ba53-df8f557ad48b"] }, Open ]], Cell[CellGroupData[{ -Cell[176068, 4798, 1635, 54, 67, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[177706, 4854, 245, 5, 38, "Output",ExpressionUUID->"c31e45df-9b42-4ee8-9c90-5df94ad45aad"] +Cell[178775, 4687, 1631, 53, 111, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[180409, 4742, 288, 4, 46, "Output",ExpressionUUID->"fa3c2009-e6e1-43ba-8441-9a19ff0f2e09"] }, Open ]], Cell[CellGroupData[{ -Cell[177988, 4864, 231, 5, 23, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[178222, 4871, 210, 4, 38, "Output",ExpressionUUID->"0a32a23b-b0e7-477c-b916-9eddae008515"] +Cell[180734, 4751, 227, 4, 40, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[180964, 4757, 254, 4, 46, "Output",ExpressionUUID->"94f99678-c82d-4fc3-a317-4aa182c83bc4"] }, Open ]], -Cell[178447, 4878, 176, 3, 23, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[181233, 4764, 172, 2, 40, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[178648, 4885, 229, 5, 23, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[178880, 4892, 208, 4, 38, "Output",ExpressionUUID->"3e4c717b-061b-43fa-ba33-dd7a892e4209"] +Cell[181430, 4770, 225, 4, 40, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[181658, 4776, 254, 4, 46, "Output",ExpressionUUID->"1caf8546-fde3-40ae-a10b-d2f256c15b2e"] }, Open ]], -Cell[179103, 4899, 177, 3, 23, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[181927, 4783, 173, 2, 40, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[179305, 4906, 1301, 43, 40, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[180609, 4951, 249, 5, 38, "Output",ExpressionUUID->"aa1e5914-f8e7-4e49-bd06-a26c3a458257"] +Cell[182125, 4789, 1297, 42, 67, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[183425, 4833, 288, 4, 46, "Output",ExpressionUUID->"2169c98a-ea90-47f3-a84a-0f4f39f457e7"] }, Open ]], Cell[CellGroupData[{ -Cell[180895, 4961, 931, 31, 48, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[181829, 4994, 254, 5, 38, "Output",ExpressionUUID->"0866f914-3da7-4b27-a7a8-8e3c9adedfa3"] +Cell[183750, 4842, 927, 30, 79, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[184680, 4874, 294, 4, 46, "Output",ExpressionUUID->"c5b8f3b8-f0c6-495d-beb6-7517d0822ce7"] }, Open ]], Cell[CellGroupData[{ -Cell[182120, 5004, 907, 30, 48, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[183030, 5036, 252, 5, 38, "Output",ExpressionUUID->"77fbc0d9-c336-4ebd-b036-9f1d1afff5b7"] +Cell[185011, 4883, 903, 29, 79, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[185917, 4914, 294, 4, 46, "Output",ExpressionUUID->"4e3b7ff2-ca15-41c7-9b94-d41ea2a2868c"] }, Open ]], Cell[CellGroupData[{ -Cell[183319, 5046, 558, 19, 43, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[183880, 5067, 641, 10, 38, "Output",ExpressionUUID->"8b0effff-d267-4fa2-a852-b5c25094c2f7"] +Cell[186248, 4923, 554, 18, 73, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[186805, 4943, 686, 10, 46, "Output",ExpressionUUID->"0980fbd3-3ef2-4c28-890d-ad30eee711e6"] }, Open ]], Cell[CellGroupData[{ -Cell[184558, 5082, 665, 22, 43, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[185226, 5106, 627, 10, 38, "Output",ExpressionUUID->"590c5446-49b6-4b58-bfa1-2107be173a19"] +Cell[187528, 4958, 661, 21, 73, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[188192, 4981, 667, 9, 46, "Output",ExpressionUUID->"77d5e7ff-61b5-498c-85f2-1faf9ba17e42"] }, Open ]], Cell[CellGroupData[{ -Cell[185890, 5121, 170, 5, 47, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[186063, 5128, 652, 10, 38, "Output",ExpressionUUID->"4b5fe660-6701-4ba2-af84-ac919b1de20c"] +Cell[188896, 4995, 166, 4, 77, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[189065, 5001, 698, 10, 46, "Output",ExpressionUUID->"b5ac9a55-558c-4932-b7d1-afccf1ef42da"] }, Open ]], Cell[CellGroupData[{ -Cell[186752, 5143, 236, 6, 46, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[186991, 5151, 590, 9, 38, "Output",ExpressionUUID->"8326433e-8afb-439a-9d70-0cfdd8f7ba28"] +Cell[189800, 5016, 232, 5, 77, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[190035, 5023, 636, 9, 46, "Output",ExpressionUUID->"59350063-5e88-4ae9-af7f-a6f18810d1d0"] }, Open ]], Cell[CellGroupData[{ -Cell[187618, 5165, 223, 6, 36, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[187844, 5173, 624, 10, 38, "Output",ExpressionUUID->"52b0a569-900d-4079-8220-d59f404216ab"] +Cell[190708, 5037, 219, 5, 60, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[190930, 5044, 664, 9, 46, "Output",ExpressionUUID->"7523cb84-61c9-4105-94a7-520c97b7a117"] }, Open ]], Cell[CellGroupData[{ -Cell[188505, 5188, 181, 5, 36, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[188689, 5195, 642, 10, 38, "Output",ExpressionUUID->"ef1d69c7-53a4-4991-8691-43431977780a"] +Cell[191631, 5058, 177, 4, 60, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[191811, 5064, 687, 10, 46, "Output",ExpressionUUID->"eb517569-f404-4af3-a7d7-8547efb15186"] }, Open ]], Cell[CellGroupData[{ -Cell[189368, 5210, 6055, 185, 161, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[195426, 5397, 624, 10, 38, "Output",ExpressionUUID->"751422cd-ca57-4f0b-9fc4-954ea2bb83ed"] +Cell[192535, 5079, 6051, 184, 465, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[198589, 5265, 662, 9, 46, "Output",ExpressionUUID->"41e32b7b-b79e-423f-9bbd-6b8af0701157"] }, Open ]], Cell[CellGroupData[{ -Cell[196087, 5412, 410, 10, 46, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[196500, 5424, 638, 10, 51, "Output",ExpressionUUID->"794b4024-ab33-4c32-aeb1-b5b188ac2c1f"] +Cell[199288, 5279, 406, 9, 81, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[199697, 5290, 682, 10, 68, "Output",ExpressionUUID->"4ac84946-4e87-46bb-a71f-fa8026e07e2e"] }, Open ]], -Cell[197153, 5437, 492, 10, 23, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[200394, 5303, 488, 9, 40, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[197670, 5451, 558, 19, 43, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[198231, 5472, 249, 5, 38, "Output",ExpressionUUID->"a250f861-38d8-41fa-abb6-15044bec4839"] +Cell[200907, 5316, 554, 18, 73, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[201464, 5336, 289, 4, 46, "Output",ExpressionUUID->"4c413de3-8824-4095-9f41-c8aa397c8133"] }, Open ]], Cell[CellGroupData[{ -Cell[198517, 5482, 623, 21, 43, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[199143, 5505, 247, 5, 38, "Output",ExpressionUUID->"935f3854-7901-4e12-9070-485e26f76e45"] +Cell[201790, 5345, 619, 20, 73, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[202412, 5367, 287, 4, 46, "Output",ExpressionUUID->"a184cb01-a20e-403c-9e62-e0b60f0f81bf"] }, Open ]], Cell[CellGroupData[{ -Cell[199427, 5515, 170, 5, 47, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[199600, 5522, 247, 5, 38, "Output",ExpressionUUID->"fa611ebd-3fe0-4079-9eb3-17cc48768b80"] +Cell[202736, 5376, 166, 4, 77, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[202905, 5382, 284, 4, 46, "Output",ExpressionUUID->"d2b926f5-434a-4431-8f56-d41c491add02"] }, Open ]], Cell[CellGroupData[{ -Cell[199884, 5532, 170, 5, 46, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[200057, 5539, 248, 5, 38, "Output",ExpressionUUID->"681d7e29-e21e-4913-a119-4048941f0bed"] +Cell[203226, 5391, 166, 4, 77, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[203395, 5397, 288, 4, 46, "Output",ExpressionUUID->"b4853515-74e7-401a-9324-3cc4798ac487"] }, Open ]], Cell[CellGroupData[{ -Cell[200342, 5549, 181, 5, 36, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[200526, 5556, 248, 5, 38, "Output",ExpressionUUID->"7d4ee918-ec43-43c8-ab06-198fd5a46edf"] +Cell[203720, 5406, 177, 4, 60, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[203900, 5412, 290, 4, 46, "Output",ExpressionUUID->"d99706ac-02da-4424-a6be-f473826a5ae5"] }, Open ]], Cell[CellGroupData[{ -Cell[200811, 5566, 181, 5, 36, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[200995, 5573, 250, 5, 38, "Output",ExpressionUUID->"7b32337a-33c4-4d64-9c8f-2aef21d57c95"] +Cell[204227, 5421, 177, 4, 60, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[204407, 5427, 292, 4, 46, "Output",ExpressionUUID->"5eba89ef-0fa9-4b74-a7b7-fc14b39b6df4"] }, Open ]], Cell[CellGroupData[{ -Cell[201282, 5583, 6055, 185, 161, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[207340, 5770, 250, 5, 38, "Output",ExpressionUUID->"fee33d30-59a0-4780-9ead-e9241afa38ed"] +Cell[204736, 5436, 6051, 184, 465, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[210790, 5622, 289, 4, 46, "Output",ExpressionUUID->"31ae9a59-eafd-4b75-b670-f0bd8fd6528e"] }, Open ]], Cell[CellGroupData[{ -Cell[207627, 5780, 368, 9, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[207998, 5791, 245, 5, 38, "Output",ExpressionUUID->"9037b4ef-2bb7-4bf9-8ed6-b704592f2a23"] +Cell[211116, 5631, 364, 8, 58, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[211483, 5641, 285, 4, 46, "Output",ExpressionUUID->"9d97fff2-a297-48d2-aa2f-0b6bf06a9197"] }, Open ]], Cell[CellGroupData[{ -Cell[208280, 5801, 6122, 187, 161, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[214405, 5990, 248, 5, 38, "Output",ExpressionUUID->"2e6e36bc-9a53-489e-9a7d-0d3bc87388fd"] +Cell[211805, 5650, 6118, 186, 465, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[217926, 5838, 289, 4, 46, "Output",ExpressionUUID->"4c294fe4-3ef7-4e61-9fb7-6361728c9407"] }, Open ]], Cell[CellGroupData[{ -Cell[214690, 6000, 368, 9, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[215061, 6011, 247, 5, 38, "Output",ExpressionUUID->"feff5617-1dc5-41b1-9da2-c4e6155e646e"] +Cell[218252, 5847, 364, 8, 58, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[218619, 5857, 287, 4, 46, "Output",ExpressionUUID->"c0813815-0cc4-4099-a4a1-f9cd12c143fc"] }, Open ]], Cell[CellGroupData[{ -Cell[215345, 6021, 2663, 88, 95, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[218011, 6111, 250, 5, 38, "Output",ExpressionUUID->"32aa00da-50e4-4f36-a081-9b2e9196a8e8"] +Cell[218943, 5866, 2659, 87, 232, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[221605, 5955, 289, 4, 46, "Output",ExpressionUUID->"959acbcf-3394-4cf0-8c84-3305235c285d"] }, Open ]], Cell[CellGroupData[{ -Cell[218298, 6121, 2603, 85, 95, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[220904, 6208, 249, 5, 38, "Output",ExpressionUUID->"d73ffc43-c5af-46ee-a2fc-4a64412159e8"] +Cell[221931, 5964, 2599, 84, 232, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[224533, 6050, 288, 4, 46, "Output",ExpressionUUID->"6d721ff9-b894-489a-8018-31cdbcc4e6d1"] }, Open ]], Cell[CellGroupData[{ -Cell[221190, 6218, 3712, 118, 142, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[224905, 6338, 253, 5, 38, "Output",ExpressionUUID->"f7610a49-ba13-4e43-9fd5-f286effc2503"] +Cell[224858, 6059, 3708, 117, 341, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[228569, 6178, 295, 4, 46, "Output",ExpressionUUID->"b103b628-e5f6-4cf4-9ac5-e17052837861"] }, Open ]], -Cell[225173, 6346, 164, 4, 23, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[228879, 6185, 164, 4, 40, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[225362, 6354, 2075, 59, 83, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[227440, 6415, 619, 14, 34, "Message",ExpressionUUID->"97d2ae00-aae3-499a-a47c-97763672c123"], -Cell[228062, 6431, 624, 14, 34, "Message",ExpressionUUID->"ee231dc2-c1eb-49dc-aec7-0a4cbf69fc57"], -Cell[228689, 6447, 625, 14, 34, "Message",ExpressionUUID->"60948973-7883-401e-9d08-ccf438e82cd0"], -Cell[229317, 6463, 546, 13, 20, "Message",ExpressionUUID->"4896cb3a-92e7-4a49-9077-fd76595695bf"], -Cell[229866, 6478, 271, 5, 26, "Output",ExpressionUUID->"6ff04d1e-5236-458b-9bfa-af9269a378bb"] +Cell[229068, 6193, 2101, 60, 88, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[231172, 6255, 739, 16, 60, "Message",ExpressionUUID->"bb238776-c156-4640-beed-3bd676a27485"], +Cell[231914, 6273, 738, 16, 60, "Message",ExpressionUUID->"def4c48d-1aba-4521-8075-fb41df6512e3"], +Cell[232655, 6291, 741, 16, 60, "Message",ExpressionUUID->"48af6a53-90aa-4d02-ba3d-116fd19e1eca"], +Cell[233399, 6309, 585, 13, 36, "Message",ExpressionUUID->"7c7eb366-b268-4744-8d4a-26374b5d9744"], +Cell[233987, 6324, 321, 6, 46, "Output",ExpressionUUID->"1d4d7b1d-a8e1-4df0-84b8-4a07feb648bf"] }, Open ]], Cell[CellGroupData[{ -Cell[230174, 6488, 2077, 59, 83, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[232254, 6549, 616, 13, 34, "Message",ExpressionUUID->"17ca5a72-925d-4981-b9be-4288e9b2121d"], -Cell[232873, 6564, 621, 13, 34, "Message",ExpressionUUID->"5d85c034-93dc-4e67-aad5-d7f04ccc104b"], -Cell[233497, 6579, 622, 13, 34, "Message",ExpressionUUID->"328eb673-a2d7-4508-8628-a79012269eb8"], -Cell[234122, 6594, 541, 12, 20, "Message",ExpressionUUID->"c7e05995-11ff-48f7-89b5-e1da1c4b442e"], -Cell[234666, 6608, 239, 4, 26, "Output",ExpressionUUID->"d69016d8-f51b-4a93-a32d-19994eb9bb67"] +Cell[234345, 6335, 2077, 59, 127, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[236425, 6396, 685, 15, 82, "Message",ExpressionUUID->"c5295c70-5806-4f91-825f-7567e9ace28d"], +Cell[237113, 6413, 687, 15, 136, "Message",ExpressionUUID->"8109e673-919f-497e-a743-2663bec99ff4"], +Cell[237803, 6430, 691, 15, 136, "Message",ExpressionUUID->"9cc3b430-a337-4a58-888d-d6f531f48193"], +Cell[238497, 6447, 589, 13, 61, "Message",ExpressionUUID->"7500908e-ac1d-4ca5-862f-b8e38b9e31be"], +Cell[239089, 6462, 288, 5, 46, "Output",ExpressionUUID->"c2c62d68-a3e7-485e-bf97-1a7e82ca345e"] }, Open ]], Cell[CellGroupData[{ -Cell[234942, 6617, 1961, 53, 61, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[236906, 6672, 238, 5, 38, "Output",ExpressionUUID->"b2877f9f-711b-42c9-9d91-a81a91766be9"] +Cell[239414, 6472, 1961, 53, 292, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[241378, 6527, 20579, 388, 325, "Output",ExpressionUUID->"9180f680-0b93-4d8d-9854-330a9280068c"] }, Open ]], Cell[CellGroupData[{ -Cell[237181, 6682, 2094, 60, 70, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[239278, 6744, 497, 11, 70, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[239778, 6757, 501, 11, 70, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[240282, 6770, 503, 11, 70, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[240788, 6783, 455, 10, 70, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[241246, 6795, 43631, 762, 70, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[261994, 6920, 2117, 60, 387, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[264114, 6982, 530, 12, 105, "Message",ExpressionUUID->"16233701-3203-4726-a68d-e22d6c5ebdb8"], +Cell[264647, 6996, 535, 12, 105, "Message",ExpressionUUID->"e99bb3b7-36e8-4078-9335-cfe760f6b877"], +Cell[265185, 7010, 539, 12, 105, "Message",ExpressionUUID->"0217891a-64ad-4b58-a9f9-ecd10d913de4"], +Cell[265727, 7024, 490, 11, 60, "Message",ExpressionUUID->"1437835e-9d99-49da-807a-396cc397c41f"], +Cell[266220, 7037, 30878, 555, 325, "Output",ExpressionUUID->"6071ed82-2b7e-4128-85ec-c8f2f5a086b8"] }, Open ]], -Cell[284892, 7560, 232, 6, 70, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[285127, 7568, 209, 5, 70, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[285361, 7577, 212, 6, 70, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[285576, 7585, 168, 2, 70, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[297135, 7597, 2552, 71, 323, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[299690, 7670, 9496, 223, 334, "Output",ExpressionUUID->"c41a2731-a84e-4615-8b40-92d02b9f7e48"] }, Open ]], Cell[CellGroupData[{ -Cell[285781, 7592, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[287598, 7647, 505, 11, 70, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[288106, 7660, 509, 11, 70, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[288618, 7673, 508, 11, 70, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[289129, 7686, 455, 10, 70, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[289587, 7698, 22399, 414, 70, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[309223, 7898, 232, 5, 40, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[309458, 7905, 37238, 687, 325, "Output",ExpressionUUID->"3a309f86-6a2c-4e38-b033-8c6e4b01daa4"] }, Open ]], Cell[CellGroupData[{ -Cell[312023, 8117, 1612, 47, 70, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[313638, 8166, 581, 12, 70, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[314222, 8180, 584, 12, 70, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[314809, 8194, 590, 12, 70, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[315402, 8208, 455, 10, 70, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[315860, 8220, 169, 2, 70, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[346733, 8597, 237, 7, 67, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[346973, 8606, 194, 3, 46, "Output",ExpressionUUID->"0f23036d-2fd3-46bd-94d4-ce51a3060fcb"] }, Open ]], Cell[CellGroupData[{ -Cell[316066, 8227, 2249, 64, 70, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[318318, 8293, 557, 12, 70, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[318878, 8307, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[319441, 8321, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[320004, 8335, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[320462, 8347, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[347204, 8614, 1837, 53, 339, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[349044, 8669, 550, 12, 112, "Message",ExpressionUUID->"50a06c82-c7e8-42a3-8464-5f52c3b61424"], +Cell[349597, 8683, 554, 12, 112, "Message",ExpressionUUID->"a94e864b-f7b9-420e-8025-cd2483a29b09"], +Cell[350154, 8697, 645, 14, 108, "Message",ExpressionUUID->"ff64baf1-7e5f-4bea-9553-7b886e5b3443"], +Cell[350802, 8713, 492, 11, 60, "Message",ExpressionUUID->"3fc27bf5-36b4-4b5c-a36c-ef38270ca581"], +Cell[351297, 8726, 25549, 468, 327, "Output",ExpressionUUID->"233f1e18-8401-4876-9bda-82f4a2a4005e"] }, Open ]], Cell[CellGroupData[{ -Cell[320668, 8354, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[322892, 8420, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[323449, 8434, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[324012, 8448, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[324575, 8462, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[325033, 8474, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[376883, 9199, 1616, 48, 144, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[378502, 9249, 644, 14, 84, "Message",ExpressionUUID->"6f5bbbfc-7c37-4dda-b820-b1feb4953be3"], +Cell[379149, 9265, 645, 14, 84, "Message",ExpressionUUID->"46dc54da-73b1-484a-8f7e-fb81630002b7"], +Cell[379797, 9281, 645, 14, 84, "Message",ExpressionUUID->"980cdd6c-e6f9-4d13-8746-929d70d33379"], +Cell[380445, 9297, 492, 11, 60, "Message",ExpressionUUID->"ac2643cd-d890-4a8d-a948-33c4ed2500ab"], +Cell[380940, 9310, 194, 3, 46, "Output",ExpressionUUID->"b7750efd-4415-4c17-a737-5e1107da72b3"] }, Open ]], Cell[CellGroupData[{ -Cell[325239, 8481, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[327465, 8547, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[328023, 8561, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[328584, 8575, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[329147, 8589, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[329603, 8601, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[381171, 9318, 2272, 64, 461, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[383446, 9384, 646, 14, 108, "Message",ExpressionUUID->"db229b02-6238-46e6-998b-f817bb8c6b93"], +Cell[384095, 9400, 645, 14, 84, "Message",ExpressionUUID->"883ca953-6112-40cb-9203-9a1e648f4bf9"], +Cell[384743, 9416, 646, 14, 84, "Message",ExpressionUUID->"6cb2e090-d621-4222-b57b-2f0fd2a375a7"], +Cell[385392, 9432, 492, 11, 60, "Message",ExpressionUUID->"a8d3cc56-ba9f-40ac-9259-5f5d75a8e8fc"], +Cell[385887, 9445, 195, 3, 46, "Output",ExpressionUUID->"afe44931-e120-49b0-a331-488134d2fca2"] }, Open ]], Cell[CellGroupData[{ -Cell[329807, 8608, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[330023, 8616, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[386119, 9453, 2233, 63, 461, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[388355, 9518, 643, 14, 108, "Message",ExpressionUUID->"85e49407-8e8e-4da4-8579-bd683cea1de4"], +Cell[389001, 9534, 642, 14, 84, "Message",ExpressionUUID->"cc0b260d-e116-4475-80d0-6c25a3e702d5"], +Cell[389646, 9550, 645, 14, 84, "Message",ExpressionUUID->"6822039b-be3e-44d2-aeb1-92348e3938bd"], +Cell[390294, 9566, 489, 11, 60, "Message",ExpressionUUID->"9dd3e765-aa35-49cb-8c6f-540415b21c3d"], +Cell[390786, 9579, 197, 3, 46, "Output",ExpressionUUID->"b0567982-7f8b-4cdf-8a4b-add5b14220fa"] }, Open ]], -Cell[330207, 8621, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[330479, 8630, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[331036, 8650, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[391020, 9587, 2235, 63, 461, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[393258, 9652, 644, 14, 108, "Message",ExpressionUUID->"dab10240-d33a-44d4-a4d2-ad17dda6ae8d"], +Cell[393905, 9668, 643, 14, 84, "Message",ExpressionUUID->"dfc50201-21b6-485c-a38c-5bf4b86c28a2"], +Cell[394551, 9684, 644, 14, 84, "Message",ExpressionUUID->"8aec9205-88de-4b9d-a64f-371c9198930e"], +Cell[395198, 9700, 490, 11, 60, "Message",ExpressionUUID->"8d346fdf-b2b0-4408-8568-3645590be30f"], +Cell[395691, 9713, 195, 3, 46, "Output",ExpressionUUID->"cbb2fdd7-0c67-4dfc-9e51-613418d01ced"] }, Open ]], Cell[CellGroupData[{ -Cell[331240, 8657, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[331409, 8663, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[395923, 9721, 236, 6, 66, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[396162, 9729, 197, 3, 46, "Output",ExpressionUUID->"85472415-17d8-4a32-a5c1-00cfb1b7f14e"] }, Open ]], +Cell[396374, 9735, 273, 6, 40, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[331615, 8670, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[331799, 8677, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[396672, 9745, 558, 19, 73, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[397233, 9766, 193, 3, 46, "Output",ExpressionUUID->"830c4460-484e-4d0c-824c-a1b6a5baf4a0"] }, Open ]], Cell[CellGroupData[{ -Cell[332009, 8685, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[338067, 8872, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[397463, 9774, 170, 5, 77, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[397636, 9781, 195, 3, 46, "Output",ExpressionUUID->"c8980ba0-c564-437a-882a-c42fe61eaccd"] }, Open ]], Cell[CellGroupData[{ -Cell[338276, 8880, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[338647, 8891, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[397868, 9789, 181, 5, 60, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[398052, 9796, 194, 3, 46, "Output",ExpressionUUID->"736e1c38-34ae-4e81-b2ba-3ce2d5bb49d9"] }, Open ]], Cell[CellGroupData[{ -Cell[338854, 8899, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[344979, 9088, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[398283, 9804, 6055, 185, 1094, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[404341, 9991, 194, 3, 46, "Output",ExpressionUUID->"68c846e1-553b-49a0-a3ba-aa1d454dd055"] }, Open ]], Cell[CellGroupData[{ -Cell[345191, 9096, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[345562, 9107, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[404572, 9999, 368, 9, 58, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[404943, 10010, 191, 3, 46, "Output",ExpressionUUID->"620025c8-175d-4bfa-8ea2-e73aa2d8f2ec"] }, Open ]], Cell[CellGroupData[{ -Cell[345768, 9115, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[348434, 9205, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[405171, 10018, 6122, 187, 1094, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[411296, 10207, 196, 3, 46, "Output",ExpressionUUID->"ec80de55-fa31-4bed-8b6c-a29466dc93d2"] }, Open ]], Cell[CellGroupData[{ -Cell[348644, 9213, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[351250, 9300, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[411529, 10215, 368, 9, 58, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[411900, 10226, 193, 3, 46, "Output",ExpressionUUID->"6dd9775a-e665-4687-a329-90b93fb0dc57"] }, Open ]], Cell[CellGroupData[{ -Cell[351458, 9308, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[355173, 9428, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[412130, 10234, 2663, 88, 470, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[414796, 10324, 196, 3, 46, "Output",ExpressionUUID->"3572d612-4b7a-4b2d-986a-883ac51fd525"] }, Open ]], Cell[CellGroupData[{ -Cell[355381, 9436, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[357436, 9497, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[358011, 9511, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[358587, 9525, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[359168, 9539, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[359628, 9551, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[415029, 10332, 2603, 85, 470, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[417635, 10419, 194, 3, 46, "Output",ExpressionUUID->"1422074a-13cc-435f-8d40-34be5dea6350"] }, Open ]], Cell[CellGroupData[{ -Cell[359837, 9559, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[361894, 9620, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[362469, 9634, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[363047, 9648, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[363626, 9662, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[364086, 9674, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[417866, 10427, 3712, 118, 620, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[421581, 10547, 194, 3, 46, "Output",ExpressionUUID->"d8ec8bdd-4662-411d-81fe-441807f87b0a"] }, Open ]], Cell[CellGroupData[{ -Cell[364293, 9682, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[366326, 9739, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[421812, 10555, 2101, 60, 292, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[423916, 10617, 645, 14, 84, "Message",ExpressionUUID->"ed6cbe47-34e4-4cee-95e7-d417a45b96c9"], +Cell[424564, 10633, 646, 14, 84, "Message",ExpressionUUID->"3c2f0abf-588d-4658-9332-6f31cd9c85a8"], +Cell[425213, 10649, 648, 14, 84, "Message",ExpressionUUID->"aad7c81a-0042-4f12-bcce-6368236a67f8"], +Cell[425864, 10665, 492, 11, 60, "Message",ExpressionUUID->"5d7b1dba-9144-4326-9e5b-e8fe81b08e40"], +Cell[426359, 10678, 196, 3, 46, "Output",ExpressionUUID->"1a3f5d4c-0e3b-4d05-bd9a-d9a299e3e87f"] }, Open ]], Cell[CellGroupData[{ -Cell[386740, 10128, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[388861, 10190, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[389363, 10203, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[389870, 10216, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[390380, 10229, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[390838, 10241, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[426592, 10686, 2103, 60, 292, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[428698, 10748, 647, 14, 84, "Message",ExpressionUUID->"9571e0c8-33d3-4031-a4f8-73eb8052315e"], +Cell[429348, 10764, 646, 14, 84, "Message",ExpressionUUID->"5af6330d-10a4-4485-87a5-8a98ffcf5fd0"], +Cell[429997, 10780, 648, 14, 84, "Message",ExpressionUUID->"5f1e65b7-ad0d-4735-8b94-4c627e29cf25"], +Cell[430648, 10796, 492, 11, 60, "Message",ExpressionUUID->"eb328550-0b83-44aa-a188-982971628863"], +Cell[431143, 10809, 193, 3, 46, "Output",ExpressionUUID->"56004ea5-9cfe-4e63-8c3a-7096c669259a"] }, Open ]], -Cell[413234, 10659, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[413411, 10664, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[413645, 10673, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[415264, 10723, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[415861, 10737, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[416458, 10751, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[417059, 10765, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[417519, 10777, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[431373, 10817, 2053, 55, 292, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[433429, 10874, 20332, 382, 331, "Output",ExpressionUUID->"60a1f101-b826-4b48-b1df-41a6df932793"] }, Open ]], Cell[CellGroupData[{ -Cell[417727, 10785, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[419977, 10851, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[420552, 10865, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[421128, 10879, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[421709, 10893, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[422167, 10905, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[453798, 11261, 2141, 60, 387, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[455942, 11323, 537, 12, 105, "Message",ExpressionUUID->"458c9dee-b04c-428d-ac0a-0e84b808c955"], +Cell[456482, 11337, 543, 12, 105, "Message",ExpressionUUID->"967982c5-a918-4781-b5e7-a9e96f01a58a"], +Cell[457028, 11351, 544, 12, 139, "Message",ExpressionUUID->"f1002ef9-6125-4ca6-8eda-3163e1dc2ee6"], +Cell[457575, 11365, 490, 11, 60, "Message",ExpressionUUID->"10a723ed-1527-4415-985d-0d0b36145b28"], +Cell[458068, 11378, 31899, 570, 325, "Output",ExpressionUUID->"2987efed-ddd9-408f-94eb-2d3455dbe161"] }, Open ]], +Cell[489982, 11951, 200, 4, 40, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[422376, 10913, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[424600, 10979, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[425173, 10993, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[425749, 11007, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[426330, 11021, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[426788, 11033, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[490207, 11959, 232, 5, 40, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[490442, 11966, 38263, 702, 325, "Output",ExpressionUUID->"405cf143-2974-4b3e-b99e-469a5dcceadc"] }, Open ]], Cell[CellGroupData[{ -Cell[426997, 11041, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[429221, 11107, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[429796, 11121, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[430374, 11135, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[430955, 11149, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[431413, 11161, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[528742, 12673, 1616, 48, 144, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[530361, 12723, 646, 14, 84, "Message",ExpressionUUID->"f896bf94-2bab-481b-b421-570f3b84c7e7"], +Cell[531010, 12739, 646, 14, 84, "Message",ExpressionUUID->"4612d3ae-0b43-4a7d-9710-17ada6cafdc3"], +Cell[531659, 12755, 646, 14, 84, "Message",ExpressionUUID->"3dc912da-6cb1-4c64-9d7a-88ffe9985457"], +Cell[532308, 12771, 494, 11, 60, "Message",ExpressionUUID->"1404938d-e709-4462-904e-d95edba3354a"], +Cell[532805, 12784, 192, 3, 46, "Output",ExpressionUUID->"55ce24fe-2edd-4812-bf89-e34afdfa95ee"] }, Open ]], Cell[CellGroupData[{ -Cell[431623, 11169, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[431839, 11177, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[533034, 12792, 2270, 64, 461, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[535307, 12858, 644, 14, 84, "Message",ExpressionUUID->"531b0dc8-6768-440c-a04a-3c1a08cfe2b5"], +Cell[535954, 12874, 646, 14, 84, "Message",ExpressionUUID->"41adb977-9d79-4069-a95c-5be8e8346117"], +Cell[536603, 12890, 648, 14, 84, "Message",ExpressionUUID->"35037419-3030-452c-b2da-a98f0414107d"], +Cell[537254, 12906, 494, 11, 60, "Message",ExpressionUUID->"a51974cd-f3e9-41d9-943d-9ee44837cc7d"], +Cell[537751, 12919, 196, 3, 46, "Output",ExpressionUUID->"420d570b-bd0d-4494-8992-d49859a69641"] }, Open ]], -Cell[432026, 11183, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[432296, 11192, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[432857, 11213, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[537984, 12927, 2233, 63, 461, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[540220, 12992, 643, 14, 84, "Message",ExpressionUUID->"6687a382-8556-4c89-aedc-be6cf3757f18"], +Cell[540866, 13008, 644, 14, 84, "Message",ExpressionUUID->"c2b7c64c-207a-4917-8fa0-f91256f096fc"], +Cell[541513, 13024, 644, 14, 84, "Message",ExpressionUUID->"40acec2f-144a-4e47-b544-9efea0625e2d"], +Cell[542160, 13040, 492, 11, 60, "Message",ExpressionUUID->"60ff8026-132f-47f9-901f-9a4ba021c984"], +Cell[542655, 13053, 192, 3, 46, "Output",ExpressionUUID->"a4ec448a-9b2c-4f7e-8815-5caba918aa05"] }, Open ]], Cell[CellGroupData[{ -Cell[433067, 11221, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[433240, 11228, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[542884, 13061, 2233, 63, 461, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[545120, 13126, 645, 14, 84, "Message",ExpressionUUID->"1c624e6a-236f-44ad-b02f-d693a51fc1fb"], +Cell[545768, 13142, 646, 14, 84, "Message",ExpressionUUID->"68356879-64e0-43ba-b1d9-6f8ea664ee3d"], +Cell[546417, 13158, 648, 14, 84, "Message",ExpressionUUID->"888df696-75ce-471d-a714-30f85d89f785"], +Cell[547068, 13174, 492, 11, 60, "Message",ExpressionUUID->"f091a327-19c2-4ac4-99ae-68049e436f51"], +Cell[547563, 13187, 195, 3, 46, "Output",ExpressionUUID->"b64976de-06a3-4907-a6f0-09bb6bb0a9de"] }, Open ]], Cell[CellGroupData[{ -Cell[433448, 11236, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[433632, 11243, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[547795, 13195, 236, 6, 66, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[548034, 13203, 193, 3, 46, "Output",ExpressionUUID->"2ee7f7d4-be23-4a05-bffa-121ff4f6022b"] }, Open ]], +Cell[548242, 13209, 271, 6, 40, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[433842, 11251, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[439900, 11438, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[548538, 13219, 558, 19, 73, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[549099, 13240, 195, 3, 46, "Output",ExpressionUUID->"0a129f90-a30a-4d4f-9541-82c1d0577791"] }, Open ]], Cell[CellGroupData[{ -Cell[440112, 11446, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[440483, 11457, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[549331, 13248, 170, 5, 77, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[549504, 13255, 195, 3, 46, "Output",ExpressionUUID->"112360a6-9cb2-44ba-bbde-57dfe0a63c0b"] }, Open ]], Cell[CellGroupData[{ -Cell[440690, 11465, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[446815, 11654, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[549736, 13263, 181, 5, 60, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[549920, 13270, 195, 3, 46, "Output",ExpressionUUID->"2578f5eb-8bc4-4711-a950-73a9ae3e788f"] }, Open ]], Cell[CellGroupData[{ -Cell[447027, 11662, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[447398, 11673, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[550152, 13278, 6055, 185, 1094, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[556210, 13465, 199, 3, 46, "Output",ExpressionUUID->"039c7178-0650-45fd-a630-56b4818ee828"] }, Open ]], Cell[CellGroupData[{ -Cell[447607, 11681, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[450273, 11771, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[556446, 13473, 368, 9, 58, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[556817, 13484, 194, 3, 46, "Output",ExpressionUUID->"782c54da-f9f8-42bb-bc80-23b09006e9b4"] }, Open ]], Cell[CellGroupData[{ -Cell[450483, 11779, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[453089, 11866, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[557048, 13492, 6122, 187, 1094, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[563173, 13681, 196, 3, 46, "Output",ExpressionUUID->"51326464-a4a6-4e66-b0b5-9e22e584649d"] }, Open ]], Cell[CellGroupData[{ -Cell[453297, 11874, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[457012, 11994, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[563406, 13689, 368, 9, 58, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[563777, 13700, 195, 3, 46, "Output",ExpressionUUID->"5da7409c-34fe-4443-aa35-9838aa03e7b6"] }, Open ]], Cell[CellGroupData[{ -Cell[457220, 12002, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[459275, 12063, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[459846, 12077, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[460421, 12091, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[460998, 12105, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[461458, 12117, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[564009, 13708, 2663, 88, 470, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[566675, 13798, 196, 3, 46, "Output",ExpressionUUID->"d0a92889-fdb4-4179-9f6d-e90d27e6dc8b"] }, Open ]], Cell[CellGroupData[{ -Cell[461667, 12125, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[463724, 12186, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[464295, 12200, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[464870, 12214, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[465447, 12228, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[465907, 12240, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[566908, 13806, 2603, 85, 470, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[569514, 13893, 192, 3, 46, "Output",ExpressionUUID->"fcfdc000-b935-4a75-98a8-2e4c6df0034f"] }, Open ]], Cell[CellGroupData[{ -Cell[466115, 12248, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[468148, 12305, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[569743, 13901, 3712, 118, 620, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[573458, 14021, 194, 3, 46, "Output",ExpressionUUID->"496320be-e0cc-4ffc-ae38-f021272b40a7"] }, Open ]], Cell[CellGroupData[{ -Cell[488145, 12685, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[490266, 12747, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[490765, 12760, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[491269, 12773, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[491777, 12786, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[492235, 12798, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[573689, 14029, 2101, 60, 292, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[575793, 14091, 645, 14, 84, "Message",ExpressionUUID->"0c75b933-64ee-4026-ae05-0bd9aeebf030"], +Cell[576441, 14107, 645, 14, 84, "Message",ExpressionUUID->"9ff5564c-cc4e-4a37-8a32-178f05754c84"], +Cell[577089, 14123, 648, 14, 84, "Message",ExpressionUUID->"be0a7790-c377-4f3e-8194-cfe9fbb7ce18"], +Cell[577740, 14139, 492, 11, 60, "Message",ExpressionUUID->"5b9b2096-5f5f-4b8d-b29f-b5cd98917c3c"], +Cell[578235, 14152, 196, 3, 46, "Output",ExpressionUUID->"b7e81d56-ccd6-4ea7-a569-c0a8803778ab"] }, Open ]], -Cell[513971, 13204, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[514155, 13209, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[514387, 13218, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[516006, 13268, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[516598, 13282, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[517189, 13296, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[517786, 13310, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[518244, 13322, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[578468, 14160, 2103, 60, 292, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[580574, 14222, 648, 14, 84, "Message",ExpressionUUID->"1cd9a2a3-fa0c-42c8-b27e-2374ff2b1b9f"], +Cell[581225, 14238, 643, 14, 84, "Message",ExpressionUUID->"3969133d-945a-4f58-9b85-c3e8964f422a"], +Cell[581871, 14254, 645, 14, 84, "Message",ExpressionUUID->"10cd9af0-204c-46e6-81bf-9c20546bfb68"], +Cell[582519, 14270, 492, 11, 60, "Message",ExpressionUUID->"a312d92b-00d9-4006-81bc-de6549d5a217"], +Cell[583014, 14283, 194, 3, 46, "Output",ExpressionUUID->"44079fde-d0c3-44c4-819e-97542f61be99"] }, Open ]], Cell[CellGroupData[{ -Cell[518454, 13330, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[520703, 13396, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[521272, 13410, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[521845, 13424, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[522422, 13438, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[522881, 13450, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[583245, 14291, 2053, 55, 292, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[585301, 14348, 20271, 383, 331, "Output",ExpressionUUID->"326a9d7a-6d2f-4560-a54f-c0d841b875e1"] }, Open ]], Cell[CellGroupData[{ -Cell[523089, 13458, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[525313, 13524, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[525885, 13538, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[526459, 13552, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[527037, 13566, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[527498, 13578, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[605609, 14736, 2141, 60, 387, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[607753, 14798, 536, 12, 105, "Message",ExpressionUUID->"94388b7a-69f8-410b-908c-c24dbfe7d4ae"], +Cell[608292, 14812, 539, 12, 105, "Message",ExpressionUUID->"69fcec10-8330-40c2-8e7d-34edec2baf66"], +Cell[608834, 14826, 542, 12, 105, "Message",ExpressionUUID->"9dbf060a-fce5-43e9-814e-4412034031e4"], +Cell[609379, 14840, 490, 11, 60, "Message",ExpressionUUID->"271a5615-6722-429c-acd0-839b6c297768"], +Cell[609872, 14853, 31304, 561, 325, "Output",ExpressionUUID->"708a2554-ef03-4b55-a91f-f71f738cdd64"] }, Open ]], +Cell[641191, 15417, 207, 4, 40, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[527706, 13586, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[529932, 13652, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[530502, 13666, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[531076, 13680, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[531652, 13694, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[532111, 13706, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[641423, 15425, 230, 5, 40, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[641656, 15432, 37664, 693, 325, "Output",ExpressionUUID->"d345201d-9856-412e-bc61-9b14a54ff740"] }, Open ]], Cell[CellGroupData[{ -Cell[532321, 13714, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[532535, 13722, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +Cell[679357, 16130, 1616, 48, 144, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[680976, 16180, 645, 14, 84, "Message",ExpressionUUID->"27a3bab1-f8a4-4599-874a-0ad2f8bf9df4"], +Cell[681624, 16196, 647, 14, 84, "Message",ExpressionUUID->"0e3a6be6-b7f5-4272-b915-8cede30503b3"], +Cell[682274, 16212, 648, 14, 84, "Message",ExpressionUUID->"7bc67e0c-9546-4acc-a429-74d97013ed45"], +Cell[682925, 16228, 494, 11, 60, "Message",ExpressionUUID->"9fc0c765-e643-46ff-9a74-3c5e0a98af9a"], +Cell[683422, 16241, 195, 3, 46, "Output",ExpressionUUID->"4c62cd97-4794-44bd-9396-b61b4be4e2ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[683654, 16249, 2269, 64, 461, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[685926, 16315, 644, 14, 84, "Message",ExpressionUUID->"d0d424bc-5148-4702-9191-a1b023685210"], +Cell[686573, 16331, 645, 14, 84, "Message",ExpressionUUID->"696a85f5-de3f-4d61-9add-bc05ca3bb0cb"], +Cell[687221, 16347, 644, 14, 84, "Message",ExpressionUUID->"e06488ef-a37a-4ce4-b55d-1c466f699de2"], +Cell[687868, 16363, 490, 11, 60, "Message",ExpressionUUID->"c7d1477c-71c7-41c1-aa71-8633c092ddb7"], +Cell[688361, 16376, 190, 3, 46, "Output",ExpressionUUID->"b053ea25-1004-426b-a3aa-b1f571c1897f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[688588, 16384, 2233, 63, 461, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[690824, 16449, 648, 14, 84, "Message",ExpressionUUID->"dae90408-ed74-4eb2-a5d3-34be7337fe0d"], +Cell[691475, 16465, 645, 14, 84, "Message",ExpressionUUID->"e70e652d-be5d-429d-9e81-0ecc4261a966"], +Cell[692123, 16481, 648, 14, 84, "Message",ExpressionUUID->"7939a19a-96f3-4537-9afe-36792ad89083"], +Cell[692774, 16497, 491, 11, 60, "Message",ExpressionUUID->"d9ad3655-5452-407b-af4f-61c451ffcacc"], +Cell[693268, 16510, 194, 3, 46, "Output",ExpressionUUID->"54f5d98a-da96-4a1b-bf46-610217b41295"] +}, Open ]], +Cell[CellGroupData[{ +Cell[693499, 16518, 2235, 63, 461, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[695737, 16583, 644, 14, 84, "Message",ExpressionUUID->"acb95209-d868-44cc-a5b9-afca7258f83b"], +Cell[696384, 16599, 643, 14, 84, "Message",ExpressionUUID->"7c954ed9-2435-42c1-a416-b33c5aed14b0"], +Cell[697030, 16615, 646, 14, 84, "Message",ExpressionUUID->"4f6eef0e-264e-483d-a917-9d36917fab6a"], +Cell[697679, 16631, 490, 11, 60, "Message",ExpressionUUID->"48a64460-800f-4143-9547-2cabd0d4c622"], +Cell[698172, 16644, 194, 3, 46, "Output",ExpressionUUID->"827eac2d-995e-48ec-afd6-a4acea4a1919"] +}, Open ]], +Cell[CellGroupData[{ +Cell[698403, 16652, 234, 6, 66, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[698640, 16660, 197, 3, 46, "Output",ExpressionUUID->"e527cff2-5d6b-4fb6-8827-38771ef39b77"] +}, Open ]], +Cell[698852, 16666, 143, 3, 40, "Input",ExpressionUUID->"0b907eb6-f914-4733-8572-30b883966193"] } ] *) diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw2.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw2.nb index a320d64..176685c 100644 --- a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw2.nb @@ -3,42 +3,4783 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 381361, 9130] -NotebookOptionsPosition[ 356610, 8757] -NotebookOutlinePosition[ 357039, 8774] -CellTagsIndexPosition[ 356996, 8771] +NotebookDataLength[ 696349, 16414] +NotebookOptionsPosition[ 655820, 15765] +NotebookOutlinePosition[ 656285, 15784] +CellTagsIndexPosition[ 656242, 15781] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ -6f058773310c"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918496892276516`*^9, - 3.9918496892324924`*^9}},ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-\ -c82e80965ca9"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "4.2"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993804130253289*^9, 3.9938041708483353`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"0a96495d-14dd-4f84-9979-9f8b41e9e1ad"], + +Cell[BoxData["4.2`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99380408955241*^9, {3.993804138192917*^9, + 3.993804174131279*^9}, 3.993848807080508*^9, 3.993850022507352*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"f725994a-1006-42d2-86c4-1032e55221f0"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.99384955061726*^9, 3.993849552454216*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"d1c09bce-0e24-4060-8056-a28c79fdf097"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ -7dc8ec78e5b4"], + 3.9913196497381973`*^9, 3.993804089814312*^9, {3.993804138273077*^9, + 3.993804174168432*^9}, 3.993848807152666*^9, 3.993850022604472*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"f989c03b-83b8-4c3a-b35a-38b7ac75a7af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "154"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993803793560568*^9, 3.9938037958215322`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"bc5f10b8-d473-4ab6-8d81-4426809c9c14"], + +Cell[BoxData["154"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993804089831574*^9, {3.993804138291234*^9, + 3.993804174184713*^9}, 3.993848807170314*^9, 3.9938500226192913`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"cf06ad56-2259-4f59-bec1-579a0b6ff3e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"5b0eb987-b51a-4bf6-97da-0f76b838b8dc"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993804089848836*^9, {3.993804138308714*^9, + 3.9938041741991873`*^9}, 3.993848807187145*^9, 3.993850022632781*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"671ca7a7-2c1f-46f9-b9bb-3793947b7584"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"9b8c303b-cd10-431e-b968-7e9aef415d53"], + +Cell[BoxData["0.5457500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993804089866067*^9, {3.993804138325652*^9, + 3.993804174213254*^9}, 3.993848807191246*^9, 3.9938500226533546`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"04949209-9624-47df-b97f-d148ca9404d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"9c904b61-1319-4382-abfc-afb18190c4cd"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9938040898834*^9, {3.993804138342436*^9, + 3.993804174228182*^9}, 3.9938488072167788`*^9, 3.993850022673099*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"7f71e2c6-a18c-48b8-8d31-205995fc0103"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"8396fbd2-779b-4eca-a777-fb70703115ce"], + +Cell[BoxData["6.21772575671982`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.99380408990067*^9, {3.9938041383460903`*^9, + 3.9938041742424393`*^9}, 3.993848807233614*^9, 3.993850022692987*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"6c533acd-be49-4cee-bff4-219014a0dcce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"2fbbb6c2-de5c-4621-8a51-ab91c289707a"], + +Cell[BoxData["5.12024575643284`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993804089917811*^9, {3.993804138377798*^9, + 3.993804174256633*^9}, 3.993848807250407*^9, 3.993850022703351*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"81f836c2-ae72-4543-977c-487151372b99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "1.0205"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993803860237813*^9, 3.993803866623828*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"744b80b1-6fa3-4187-a98e-8b9afdc7182d"], + +Cell[BoxData["1.0205`"], "Output", + CellChangeTimes->{ + 3.993804089951392*^9, {3.993804138395643*^9, 3.993804174270754*^9}, + 3.993848807267117*^9, 3.993850022729834*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"8b0ebdc1-f230-4f3b-b05d-c3b7d804b8d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4896"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.99380387128193*^9, 3.9938038777202883`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"84029daa-3bca-42b4-90db-4b82897fe958"], + +Cell[BoxData["0.4896`"], "Output", + CellChangeTimes->{ + 3.9938040899683237`*^9, {3.993804138413007*^9, 3.993804174284833*^9}, + 3.993848807283663*^9, 3.993850022748281*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"47f2cda4-0817-450b-9e0e-09d290d408d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"e351b173-d9ea-4223-8406-c641064e0d80"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993804090003015*^9, {3.993804138429922*^9, + 3.993804174299185*^9}, 3.993848807299727*^9, 3.99385002276329*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"65803275-a83c-492c-b0a7-8938554c2f63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"19ff8c00-c094-4be7-867c-176e17b1abc7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993804090019147*^9, {3.993804138446356*^9, + 3.993804174313979*^9}, 3.993848807315777*^9, 3.9938500227791*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"2948d314-6a95-4717-b94e-dd6dec73d987"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"abde3c43-6230-465a-a10f-5cb1350bf2b6"], + +Cell[BoxData["2.622074662477555`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.993804090035692*^9, {3.9938041384628077`*^9, + 3.9938041743173933`*^9}, 3.9938488073318787`*^9, 3.99385002279585*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"fcce4b61-115c-4e69-8163-623aaecddd3a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"816cfcb3-a59e-4765-9796-2504848c65fe"], + +Cell[BoxData["1.560486547241578`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993804090054099*^9, {3.993804138479048*^9, + 3.9938041743344707`*^9}, 3.99384880734788*^9, 3.993850022810526*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"8bd591d8-97ff-4327-b56b-9a7faf194d5a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"a3b4a669-b487-4424-8be1-05dcc23dc214"], + +Cell[BoxData["0.2903701468853932`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.993804090071563*^9, {3.993804138496574*^9, + 3.99380417434737*^9}, 3.993848807363336*^9, 3.993850022825347*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"e213f4b0-e343-433c-8d01-874bc30ed8ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"0ec7e126-c321-43f8-9619-3d9d461db0ec"], + +Cell[BoxData[ + RowBox[{"-", "0.06800962519581188`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9938040900903397`*^9, {3.993804138513081*^9, + 3.993804174360331*^9}, 3.9938488073821497`*^9, 3.9938500228451014`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"693b21c2-a898-4a8f-a660-f7dc25dfa1a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"05a86301-3507-478f-9bf2-8a25d4771765"], + +Cell[BoxData[ + RowBox[{"-", "0.40916894338639737`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9938040901078167`*^9, {3.993804138530313*^9, + 3.993804174375409*^9}, 3.9938488073997*^9, 3.993850022859877*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"7b69e37b-77b6-4f4a-9970-d9efc3e7888b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"850c6054-4639-4e95-a685-1f7ff6b6facc"], + +Cell[BoxData["0.6026750051187908`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9938040901250677`*^9, {3.993804138546773*^9, + 3.993804174388777*^9}, 3.99384880741957*^9, 3.993850022876824*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"5412a59f-95f0-48a0-a6c1-a6222e5295ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"cf01d079-b925-4629-8bea-51e3cd09314b"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993804090141823*^9, {3.9938041385623407`*^9, + 3.993804174402438*^9}, 3.993848807437189*^9, 3.99385002290138*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"47fe2ee9-ec7a-44dd-a739-095507697099"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"c8825c39-1357-4dec-87ed-9fb3e25768ab"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.993804090158958*^9, {3.993804138578629*^9, + 3.99380417441667*^9}, 3.9938488074549294`*^9, 3.993850022923292*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"17aa71b9-c0b4-4713-a0a1-f1b57c31687d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"89133a3e-3294-460f-8a99-fb0fa1d5fd82"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993804090177505*^9, {3.993804138595006*^9, + 3.993804174430525*^9}, 3.9938488074728813`*^9, 3.993850022942203*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"a327a291-4e25-4706-a2c0-96af8d27594c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"303e9cda-7704-46de-92c9-adf09a1b8407"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993804090194539*^9, {3.993804138611753*^9, + 3.993804174445389*^9}, 3.993848807490819*^9, 3.99385002295732*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"11178533-dc00-446d-95ea-5c23dd0d6b5f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"8cb1284d-8771-43d2-9563-3f9e80e94e8e"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9938040902126007`*^9, {3.99380413862824*^9, + 3.9938041744613132`*^9}, 3.993848807508507*^9, 3.993850022971261*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"10ff33ab-3fd3-4e1c-93ab-b36579d7cdcc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", " ", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.993803911062066*^9, 3.993803911474206*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"eeff07aa-579a-4832-b621-cd5e94819983"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993804090230994*^9, {3.9938041386443443`*^9, + 3.993804174475325*^9}, 3.993848807527059*^9, 3.993850022985382*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"23b71c3e-e500-4dd7-90a5-600976b6346f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993849563960414*^9, 3.99384956406236*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"6a41c0e6-c209-4a4d-95d2-5a5112da970e"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993804090250367*^9, {3.993804138660377*^9, + 3.993804174489229*^9}, 3.9938488075448914`*^9, 3.993850023002879*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"2221af45-630d-4a99-b92e-d33a8fdf03c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"f77919a5-b150-4212-a6bf-f662c19a9cdf"], + +Cell[BoxData["86"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993804090267005*^9, {3.9938041386777277`*^9, + 3.993804174504216*^9}, 3.9938488075630293`*^9, 3.9938500230208483`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"a50805d3-20af-4818-8cb2-76daafdde0ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"17effdc7-36fb-48f4-bb75-62d57937eddb"], + +Cell[BoxData["0.11093023255813952`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9938040902837143`*^9, {3.9938041386945467`*^9, + 3.9938041745182133`*^9}, 3.9938488075813007`*^9, 3.993850023039501*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"e9b0b1a5-0695-4dd7-840b-6cbbe25be298"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"890b183b-a2d1-449a-b7bf-0e0e45f95fba"], + +Cell[BoxData[ + RowBox[{"-", "2.5630897009966778`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993804090300918*^9, {3.993804138711464*^9, + 3.99380417453297*^9}, 3.993848807599778*^9, 3.99385002305455*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"9b00a15b-68e9-4aa8-a1fd-3adbb56b4f8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"eb0d4add-a02f-4521-93d4-b208efceb5ff"], + +Cell[BoxData["20.50874671482353`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993804090321062*^9, {3.9938041387284813`*^9, + 3.993804174547089*^9}, 3.993848807619718*^9, 3.993850026873252*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"763f35a6-e85d-431b-91f7-584b0f3d0dd6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"9e2429db-14e5-43ca-882a-30807041eab1"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9938040903372*^9, {3.9938041387455187`*^9, + 3.993804174560532*^9}, 3.9938488076417303`*^9, 3.993850027293914*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"669b9b64-9990-482c-90b4-e3980a0a590c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993803941161499*^9, 3.993803942967257*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"ddcce324-a0cb-4dd9-95eb-303166f0a635"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804090368265*^9, {3.993804138763773*^9, 3.993804174574923*^9}, + 3.993848807660918*^9, 3.993850027317333*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"ad57d305-ae83-4996-a1fa-c79dbe2a0731"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849693382303*^9, - 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ -623392314869"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"ddbe11e2-d7b2-4b53-9e3c-a490f52ae499"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.845"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993803949861635*^9, 3.993803952475243*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"218e1623-3987-47d5-b450-7973b006819a"], + +Cell[BoxData["0.845`"], "Output", + CellChangeTimes->{ + 3.993804090400498*^9, {3.9938041388176193`*^9, 3.9938041746000147`*^9}, + 3.993848807703788*^9, 3.993850027366962*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"828af726-7616-42b4-8d05-47f0762b9792"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"955fb12c-a1ab-4a3b-9086-81cd4f05a9e3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.34"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993803955445758*^9, 3.9938039566555567`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"0d782163-1796-48c2-afc2-4187768112e8"], + +Cell[BoxData["2.34`"], "Output", + CellChangeTimes->{ + 3.993804090432963*^9, {3.993804138872542*^9, 3.9938041746232433`*^9}, + 3.993848807741784*^9, 3.993850027418428*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"b1a1cf2e-1261-4a1a-81e0-fe43797d6182"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"703549f0-15cf-4f83-bf7d-9edca30d7441"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.235"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993803960293667*^9, 3.9938039628886843`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"41efb9a2-d46c-4a67-a704-26577721cbcb"], + +Cell[BoxData["1.235`"], "Output", + CellChangeTimes->{ + 3.99380409046647*^9, {3.9938041389300737`*^9, 3.993804174645626*^9}, + 3.993848807767399*^9, 3.993850027473963*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"eb83a49e-4815-4a62-91b2-99ec94ea5c1b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"6e9b8f45-c7ef-4493-82b4-42f269beb463"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "2.157"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993803966354662*^9, + 3.993803967807385*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"cc2524cc-ca4d-460e-82c8-dcde4d2547f8"], + +Cell[BoxData["2.157`"], "Output", + CellChangeTimes->{ + 3.993804090500058*^9, {3.993804138981492*^9, 3.993804174669353*^9}, + 3.993848807792426*^9, 3.993850027544038*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"fe52d7c8-8345-48b2-835d-7c5de5928ef9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"6b84c17b-8c22-430b-a207-f9a3e4a268d2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.647"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993803975246106*^9, + 3.993803976677384*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"19aaada3-98f7-4f5b-99c0-a9577f187cf3"], + +Cell[BoxData["0.647`"], "Output", + CellChangeTimes->{ + 3.993804090532151*^9, {3.993804139031171*^9, 3.993804174692378*^9}, + 3.9938488078179283`*^9, 3.9938500276165457`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"1dd60c17-157f-4e21-b965-c11701611809"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"d47150e8-9705-44d7-8c76-69aaa218dedd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.76"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99380398019634*^9, + 3.9938039813095837`*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"6d3e0801-72ef-4e3d-94c6-6c7a2e74b556"], + +Cell[BoxData["1.76`"], "Output", + CellChangeTimes->{ + 3.993804090566051*^9, {3.993804139085739*^9, 3.9938041747149076`*^9}, + 3.993848807844983*^9, 3.99385002766721*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"b44f9eea-bfc0-43e5-b338-2f11eb50b4c7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"43f91a28-3e0d-49f9-9122-532bce416b6f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.075"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993803983729498*^9, 3.993803986997629*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"07b09028-4fb0-4da2-a7a6-952eab392377"], + +Cell[BoxData["1.075`"], "Output", + CellChangeTimes->{ + 3.993804090634049*^9, {3.993804139137789*^9, 3.99380417473573*^9}, + 3.993848807872305*^9, 3.993850027722845*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"01cbd7aa-c9be-47b2-83d6-2295098c56e4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"84ff10ce-b3c4-455b-8a96-d893c2484886"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"b7d7f1fe-053c-442b-b851-74dffea538c2"], + +Cell[BoxData["0.01224942383714716`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993804090716114*^9, {3.993804139208848*^9, + 3.993804174782381*^9}, 3.9938488102384644`*^9, 3.99385002789533*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"0b907081-d083-49a0-9dbc-4dd304d6196c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"067baf66-454d-4cff-973f-02e2e4fc6269"], + +Cell[BoxData["0.5889492852231504`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9938040907433662`*^9, {3.9938041392562933`*^9, + 3.99380417480917*^9}, 3.9938488104573317`*^9, 3.99385002804161*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"88111183-1015-48e1-9c58-12f014c02301"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"a93a841f-a6ed-4f83-85a7-d3b0c3d57a20"], + +Cell[BoxData[ + RowBox[{"-", "12.704649244928842`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993804090767948*^9, {3.993804139281644*^9, + 3.99380417483276*^9}, 3.993848810481243*^9, 3.993850028143147*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"d82663ca-710a-4817-a26d-c4958b570a32"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"9c5d16fe-ab02-4622-a1a3-ede84e76c485"], + +Cell[BoxData[ + RowBox[{"-", "15.223385141555047`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993804090797073*^9, {3.993804139310915*^9, + 3.993804174861484*^9}, 3.9938488105114737`*^9, 3.9938500282274*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"c7207fbc-b710-456f-9031-f8d28765e02f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"ec3ebd5f-0fe3-4570-93b3-af240429cf85"], + +Cell[BoxData[ + RowBox[{"-", "39.03111013094529`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993804090827354*^9, {3.9938041393422422`*^9, + 3.9938041748908043`*^9}, 3.9938488105468807`*^9, 3.993850028299691*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"eee6e1c8-9c14-4710-98f9-466b37f6b606"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"5feb26db-6c57-4e6a-a2ea-0103f51e7297"], + +Cell[BoxData[ + RowBox[{"-", "94.34556705329022`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993804090863044*^9, {3.993804139389662*^9, + 3.993804174924636*^9}, 3.993848810587708*^9, 3.993850028369403*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"be377a84-2eb0-4f12-a858-8de382220794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"0de8bf1f-268e-4f16-917e-b806c8eb0e41"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993804090879141*^9, {3.9938041394058332`*^9, + 3.993804174941469*^9}, 3.99384881061217*^9, 3.993850028444475*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"5f828fd4-6793-4b71-902b-2b91b0840bb9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"e4f6fb00-3dde-454b-beaf-3e6ae6f55bbd"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993804090895958*^9, {3.9938041394218063`*^9, + 3.993804174954442*^9}, 3.993848810635922*^9, 3.9938500284782877`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"73dc94b0-9b51-447d-bfb6-e86981388033"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"011cafc8-f690-4e49-bf9f-c84ec9192e78"], + +Cell[BoxData["40.9342324933027`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993804090912829*^9, {3.99380413943988*^9, + 3.9938041749678583`*^9}, 3.993848810656166*^9, 3.993850028515299*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"367fab02-93d5-4ab5-a39a-eec77217cc90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"ecfe18d0-7e4f-44af-a0e6-60a70ef2d7a3"], + +Cell[BoxData[ + RowBox[{"-", "42.16041879106114`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993804090929619*^9, {3.993804139457325*^9, + 3.9938041749824657`*^9}, 3.9938488106762447`*^9, 3.993850028543111*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"61e3c816-c189-423b-8d9a-df950f3ff093"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"317d5665-0ff0-4ffe-8df5-bf48540bee10"], + +Cell[BoxData["57.85215050076255`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993804090946455*^9, {3.9938041394733677`*^9, + 3.993804174995661*^9}, 3.99384881069589*^9, 3.993850028572502*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"c711988c-fa70-4e4c-aee4-8452b67b644d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"e2e2fbfc-ee8c-4704-beee-27f2931a7624"], + +Cell[BoxData["0.2903701468853932`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993804090963214*^9, {3.99380413948948*^9, + 3.993804175008822*^9}, 3.99384881071603*^9, 3.993850028609645*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"bf23a887-be6b-4c44-9b4a-3ea366f0da29"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"1168b0d7-de9d-49ff-8c83-e4efb9931e13"], + +Cell[BoxData[ + RowBox[{"-", "0.06800962519581188`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9938040909800377`*^9, {3.993804139506342*^9, + 3.993804175022502*^9}, 3.993848810736079*^9, 3.9938500286404343`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"ccae00cc-8cd1-4611-9f5b-b2bde62c6441"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"51e085aa-291a-47e0-aaa9-ed2870dd7cd7"], + +Cell[BoxData[ + RowBox[{"-", "0.40916894338639737`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9938040909970512`*^9, {3.993804139523937*^9, + 3.99380417503624*^9}, 3.993848810755718*^9, 3.9938500286646347`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"de5e093c-744a-47c0-9df7-d755f33d6298"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"f670fee2-9875-46de-931a-ba5b79c31784"], + +Cell[BoxData["0.6026750051187908`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9938040910160313`*^9, {3.993804139541357*^9, + 3.9938041750504208`*^9}, 3.993848810776074*^9, 3.99385002869028*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"906373f1-5147-4f22-b016-d498c7f389bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"3f327840-3220-4237-a4f1-9cbeddb8b61d"], + +Cell[BoxData["2.622074662477555`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9938040910322237`*^9, {3.993804139560528*^9, + 3.99380417506885*^9}, 3.9938488107953978`*^9, 3.993850028716732*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"1e370c28-e539-4c1a-8f7f-3837950b1aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"3124d911-bc02-4559-972c-9b3001b02567"], + +Cell[BoxData["1.560486547241578`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9938040910476837`*^9, {3.99380413957936*^9, + 3.993804175086857*^9}, 3.993848810814839*^9, 3.99385002874772*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"7dbb7d35-328c-4942-a7be-8a5a61e27b0e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"7b631c24-2f8a-4bcb-8844-706912f40583"], + +Cell[BoxData[ + RowBox[{"-", "23.985225206889808`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9938040910636168`*^9, {3.993804139598442*^9, + 3.993804175099869*^9}, 3.99384881083464*^9, 3.9938500287796803`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"213535b4-6b5d-4200-b59a-e7a2b9550591"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"529b76c8-b00c-42fd-b792-3383512c7250"], + +Cell[BoxData[ + RowBox[{"-", "6.082813498068469`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993804091079459*^9, {3.99380413961532*^9, + 3.993804175113451*^9}, 3.993848810854089*^9, 3.993850028790366*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"c47b283d-7d16-4029-81a7-4c3063e4c755"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"a585ee79-aeb4-4151-a0c8-0870e53c46ab"], + +Cell[BoxData["16.949007286412893`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993804091095646*^9, {3.9938041396344*^9, + 3.99380417512825*^9}, 3.9938488108741703`*^9, 3.993850028836631*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"e6ac5039-34fd-47ac-96c0-d186815d93cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"9de94f55-4df8-4c5c-aff2-446adda9627d"], + +Cell[BoxData[ + RowBox[{"-", "42.16041879106114`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9938040911120157`*^9, {3.993804139651782*^9, + 3.9938041751438704`*^9}, 3.993848810893611*^9, 3.993850028870966*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"23b7e792-4f9a-499a-b73c-5796e65fd7c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"7f6710eb-4913-476a-99aa-122cfbce3b67"], + +Cell[BoxData["51.76933700269408`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993804091132085*^9, {3.993804139668528*^9, + 3.993804175187551*^9}, 3.993848810913933*^9, 3.993850028915244*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"5f8acbbc-17b9-4e89-85ef-d0559133f1f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"3f4e2e44-69a6-4bf3-8564-603d14af133d"], + +Cell[BoxData["4.836891405194621`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993804091148937*^9, {3.9938041396855717`*^9, + 3.993804175204822*^9}, 3.993848810933175*^9, 3.993850028976943*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"769709e0-e40a-458e-8958-aa0f2367b0b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], + ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"69a8c366-33b0-4251-acaa-6fc0b063b69b"], + +Cell[BoxData["252.66846904104736`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993804091165813*^9, {3.993804139705405*^9, + 3.993804175222055*^9}, 3.9938488109528217`*^9, 3.9938500290237627`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"c4547aaa-0b84-4fb1-95d6-0b678f87d2ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.8739"}]], "Input", + CellChangeTimes->{3.9918496921150837`*^9, 3.993849775993334*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], + +Cell[BoxData["0.8739`"], "Output", + CellChangeTimes->{3.9938500290494747`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"b82f809e-feed-4820-bf7d-4b0e49954b1c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918496892276516`*^9, 3.9918496892324924`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.6058"}]], "Input", + CellChangeTimes->{3.991849690724144*^9, 3.9938497865262613`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], + +Cell[BoxData["0.6058`"], "Output", + CellChangeTimes->{3.993850029099348*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"77d8e223-b900-432c-ae48-c33f02b35ece"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, 3.991849693386299*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ @@ -84,13 +4825,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[316]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], + CellLabel->"In[75]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.991339230528511*^9}, - CellLabel-> - "Out[316]=",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[BoxData["2.401224501209607`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.9938500291427507`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"4b5e5ca3-6e81-4372-9184-4685a4484b93"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4863,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ -67189aa511ad"], + CellChangeTimes->{3.991557615205345*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[BoxData["2.192147584896785`*^-54"], "Output", - CellChangeTimes->{3.991339230554512*^9}, - CellLabel-> - "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[BoxData["2.0632375644067863`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.993850029173504*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"f7dbb150-d982-4010-8eca-de79146d262c"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4901,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557618917984*^9, - 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ -5f01117db38b"], + CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[BoxData["3.508823705223133`*^-54"], "Output", - CellChangeTimes->{3.9913392305796223`*^9}, - CellLabel-> - "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[BoxData["2.9004241512385187`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.993850029199242*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"d0471a4d-151a-4d07-a5a0-a5b0afb1c927"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4929,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + CellLabel->"In[78]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[BoxData["44.37747929594205`"], "Output", - CellChangeTimes->{3.9913392305906105`*^9}, - CellLabel-> - "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[BoxData["37.55596197732338`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.993850029232318*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"54dd67f5-d856-4c19-8914-969e2501e483"] }, Open ]], Cell[CellGroupData[{ @@ -226,13 +4959,11 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", - CellLabel-> - "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + CellLabel->"In[79]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[BoxData["102.55835649176893`"], "Output", - CellChangeTimes->{3.99133923061561*^9}, - CellLabel-> - "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[BoxData["86.92562643667134`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.993850029257509*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"26d88b4f-da6f-4d4f-a06b-096e64f628a8"] }, Open ]], Cell[CellGroupData[{ @@ -241,13 +4972,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + CellLabel->"In[80]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[BoxData["0.5630879721742558`"], "Output", - CellChangeTimes->{3.9913392306426105`*^9}, - CellLabel-> - "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[BoxData["0.35887542775089`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.99385002928027*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"141510a0-3354-4413-b23b-3945c17d1129"] }, Open ]], Cell[CellGroupData[{ @@ -256,13 +4985,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + CellLabel->"In[81]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[BoxData["1.956498159343112`"], "Output", - CellChangeTimes->{3.99133923065361*^9}, - CellLabel-> - "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[BoxData["1.7049105958811308`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.993850029312203*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"e7cfdbd1-6e5b-487e-9b2d-8ae793154dac"] }, Open ]], Cell[CellGroupData[{ @@ -271,13 +4998,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + CellLabel->"In[82]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[BoxData["200.65523570140064`"], "Output", - CellChangeTimes->{3.9913392306776104`*^9}, - CellLabel-> - "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[BoxData["148.2004215654859`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.993850029336619*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"4bbcbdc3-7d7e-4cb2-b125-393ff09dfbb7"] }, Open ]], Cell[CellGroupData[{ @@ -286,13 +5011,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + CellLabel->"In[83]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[BoxData["24.98842482695703`"], "Output", - CellChangeTimes->{3.991339230703802*^9}, - CellLabel-> - "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[BoxData["13.477911919208088`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.993850029363052*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"3d8dd4a7-88e1-4023-a1c2-c761277bb675"] }, Open ]], Cell[CellGroupData[{ @@ -481,13 +5204,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + CellLabel->"In[84]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[BoxData["0.01829601703069907`"], "Output", - CellChangeTimes->{3.9913392307297993`*^9}, - CellLabel-> - "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[BoxData["0.00861179210094999`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.993850029418847*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"696078d8-7ff5-44db-a656-ad1cb392cf71"] }, Open ]], Cell[CellGroupData[{ @@ -500,13 +5221,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + CellLabel->"In[85]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.991339230837267*^9}, - CellLabel-> - "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[BoxData["9.54988566874902`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.993850029661509*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"0801e62a-4625-480f-b2a6-59d657340723"] }, Open ]], Cell[CellGroupData[{ @@ -697,13 +5416,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + CellLabel->"In[86]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[BoxData["0.00990105610750653`"], "Output", - CellChangeTimes->{3.9913392308522797`*^9}, - CellLabel-> - "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[BoxData["0.05665781604933924`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.993850029689171*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"58dac994-a73d-4d44-a6da-966e18b322ba"] }, Open ]], Cell[CellGroupData[{ @@ -716,13 +5433,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + CellLabel->"In[87]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[BoxData["8.906440683949702`"], "Output", - CellChangeTimes->{3.991339230966341*^9}, - CellLabel-> - "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[BoxData["3.723188509777294`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.993850029765419*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"07753253-f145-47b3-9e26-6137c9319e3e"] }, Open ]], Cell[CellGroupData[{ @@ -814,13 +5529,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + CellLabel->"In[88]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991339230988348*^9}, - CellLabel-> - "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[BoxData["0.16778085836042492`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.9938500297984657`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"30175c83-746f-4e9c-85cc-db63d3caa72b"] }, Open ]], Cell[CellGroupData[{ @@ -909,13 +5622,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + CellLabel->"In[89]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991339231030445*^9}, - CellLabel-> - "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[BoxData["0.832219141639575`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.993850029830264*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"25694695-e405-41c4-acb5-0854c1fd6a02"] }, Open ]], Cell[CellGroupData[{ @@ -1037,19 +5748,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + CellLabel->"In[90]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991339231060343*^9}, - CellLabel-> - "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +Cell[BoxData["0.13963044192826393`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.993850029878563*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"b94c0b1d-5b52-4ae8-b1f8-22147550b50b"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ -e24d-bdc4-544ea2d2fbd9"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ @@ -1110,68 +5819,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918497046469917`*^9},ExpressionUUID->"574b810b-aa4a-d545-b080-\ -c44fbe83a713"], + CellChangeTimes->{3.9918497046469917`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.325825370548443`*^-211\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 1, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.9938500299420233`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"d120a938-d2ee-427b-924c-072f3e4bb235"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2169182427560213`*^-215\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 332, 325, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310873375`*^9}, +normalized machine number; precision may be lost.\"", 2, 92, 2, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.993850029952633*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +In[92]:=",ExpressionUUID->"3020bb2b-8f63-4b27-bc8b-5352fb392fdf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.5879452495745292`*^-220\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 332, 326, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310973415`*^9}, +a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.9938500299617367`*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 332, 327, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339231105339*^9}, - CellLabel-> - "During evaluation of \ -In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +In[92]:=",ExpressionUUID->"f67ae8e8-fec0-498a-9e62-44462c9a6c42"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392311143417`*^9}, +during this calculation.\"", 2, 92, 4, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.993850029970046*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +In[92]:=",ExpressionUUID->"e5265b27-cab4-4c93-b2a3-9e09d2e47512"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.9913392346332226`*^9}, - CellLabel-> - "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[BoxData["9.549885668749027`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.993850032454496*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"0114c7c2-26dc-4514-88f4-f5384429c8f8"] }, Open ]], Cell[CellGroupData[{ @@ -1233,68 +5944,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849710877041*^9},ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-\ -656c90598e75"], + CellChangeTimes->{3.991849710877041*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.325825370548443`*^-211\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 5, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.993850032620552*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"3e664c4f-4d51-4f8d-a819-f4739d3abeb6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2169182427560213`*^-215\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 333, 329, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234667631*^9}, +normalized machine number; precision may be lost.\"", 2, 93, 6, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.993850032629396*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +In[93]:=",ExpressionUUID->"055cdd7e-b588-40dc-803a-d2c00f6188c6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.5879452495745292`*^-220\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 333, 330, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234676628*^9}, +a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.9938500326380157`*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 333, 331, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234685627*^9}, - CellLabel-> - "During evaluation of \ -In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +In[93]:=",ExpressionUUID->"c3f18acc-7159-456d-b310-a0968e34aafc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133923469363*^9}, +during this calculation.\"", 2, 93, 8, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.9938500326456423`*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +In[93]:=",ExpressionUUID->"f5eee997-1099-42fb-8e9e-1e5fe98acf0c"], -Cell[BoxData["8.906440683949707`"], "Output", - CellChangeTimes->{3.99133923819088*^9}, - CellLabel-> - "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[BoxData["3.7231885097772977`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.993850035184478*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"23ea6c29-917e-4554-bb10-dbf27daf2f1a"] }, Open ]], Cell[CellGroupData[{ @@ -1350,92 +6063,93 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849713921898*^9},ExpressionUUID->"9c540ba7-8bb4-ef46-919c-\ -62296271f174"], + CellChangeTimes->{3.991849713921898*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VdsbB3ARlaFEpqTMIlPHEJH14sgsQ6YM4eyzSZEp91SG/EI3FaFB +g3RDSRKaZLqUSjrhNuJG5vY5hgwH6VZ+yx/72c/nWXt/17ve/az1bKWQg+5M +fj4+PgpfS/foNl2Nxx1tFrFvOq/nsnjIYqLIKIRehgY8M6OX3FdgfE6VXocW +dasGc7BdiTdCogbPESeCPp+NXclKfiZIZ6M2I5uys9gnX8g2Jpf+g8YeP+DP +wn7SEX3tJ+0DOm+Q++M0Nre7NeFwbSfSnuvLzcBeP6ziN2f9GW32u9Z2Atvx +W4JpLPsLWsN+XZqK3fCTK8Iq7Ufxjfs2p2B/TJE5+ihyEAk3sGwTsSeE6Fwe +bRil+iysOIwtdDrK12B+BFVuHdsXh71xbX5LdC2F9i+4RRzEdpGfuzlhPYa8 +9hz2IbDJ68rSOisnUM4lcwjETlbblbaf/Q1FS8a/8sbulHm/Na50Cg3k72q0 +xyb2hO/LPT2NfjdP6VhhT17l+6sqcga1eqzesR17pbKO+BRtFmlE1SJN7HPE +M1txqTlUlepioIiteMs3WW9+Dn1ZHdwijW2inT4RUfsd3dAW/sSPHWb8hc21 +/omqzS6mf/yDh3isQ8uF1X+h73au6a3Yx2pFzDVX/kYzJ89rNGDngcmdUPYi +6hVnuxRhE8Ut9JjSZRCzWVH/AHbpi9y+FHl+oIVGmwdgT34NTMg+zQ+dcnu5 +ztgJWrP3KyIFwF5Qbosu9rl7SirfaIIgoOsA3Hge6u4Ya/hdKAhGg02+ndiK +04/3rJYSAtM3nHUvsMsMXXJ05oVAXMsz6jp285Mjyw7UrgSvJE6tK/bss3df +KGtRUFeqKik4xEMSTqLiRxtEoViLvzsNW/89HcRMxSCD7+HV/djhQw+vb9Vd +DZbxnh+NsKP42fo7RMXBLllI/nkcDw0rl0+lza2FwaqsibZY3B+ydVW7gQQI +S/qblGPz3xlRko2WgKHUHskz2IoGm9xLRyVg5xvpY/bYe6zPVrX1SUJP+Crd ++hgeamfExMq8lgJZ0+DhrGge6r2VeSpopTToPQtwDsMeGy0tvG0jDQKNcbaA +LRw3+M6sURoYAqunJ6J4iJ662zDooQzYRj1UssWuKTKeLSmQA+Nhj6mBSB4q +Gv4Rvz1OAdQ0Tp9s2c9Ddp4nemPvKgB5cbDtAvZYs+TOuyMKoO/h9JDANizS +llL03QhnVkUxF8NxP0MC7wtabIIvop0e+tjT3/r+oI4rQm6sVNSxMB6SjKA/ +uO+sDF3miX1dBA+NFAmHuYYrA2Oq1vsqdvXnDvnxdGVgp8tFB2L7OwUcV29U +hsLbXhn9DFzflnj3SzQVMNHo9x4MwfNzb00myaiCVePN0A9BPLQ7VETHoV8N +lKwsrsf68xCK96R5/1ID+oGh3i3YWmkF2wg5dRifSG8e9OMhvkIDqyQ3dTDK +5Ka6Y9/t9fOualKHw11u/27Zg/enV1nK+hsa8Fhy7usbb1wf3fkjN0QTepc3 +vWl35yF55azkU0PaEGtq4v/GlofqMniaC/w6kClj9ncotv+M73tSSQeUw3/X +LcO+1qyqaRWIXSV80nAnDymH1rz9/kkHIjTkmefpuL6yYTXytS4U/PA1p1vy +kIL8RlLRVx/y9WKGvLbzkHZxnOh/iAbuYkrGu7fwUAhxfFbHhQatnzQce7Xw +/lLJ6Q3yp0GVm4JoGLbAjXsVL1g0kP0lk3NEE++Pa9zdOZU0WKe1ueKKBj7/ +8oLyNVUM4FnSI+s2Ffw9Tjnp+ggZAlS8tJqV56G/YlRdH7KNwMnd8pyLCA91 +xKNtqcWm8HR73jK+wRmkFPjBJeDADhhhL2SqPppBzMVH5QqHAeR2bBzlnZhB +MqPVK2RCrIB/E19yrtsMijMw/5yjRYf8FM5ZmvwMChn/2SLJtYGg2g/XOQPT +6K5V7IqCdlv4dfWky8KNaVTEC28qO2cPlXbiE2LMafTdUvZNc7IjnOIfCONt +mkY9fAJT/cHOEOR85+aF7ikUueHg2RSVXUA9ovwn86ZQ+b6WxvNprrBG4dtm +BbcpdGRGbn7LPjf4L45n+1lsCs067PR6udcdvuzxTVV9PolM/bIth908QP2O +KcMmaRK9lcsPbzbYDbcOuCeOmk+i9TeP15Vs9oQkzvghYuIbqu7TcnIR8wKt +uXqBjshvaOP7ydD4cS8gquWNrvAmkMH57LLCPm+Qy3BOuRU7gfKXz+jmPPOB +wKBDgWsWx9EjS73utCe+ELjjid6GtHGUty1j7c/SPSD0VEdEXWIctf9bnG5w +2g96DRunmHfG0EPnq6pRx/zhbHkpscZyDE1FePBFEgHgsv3Y59qBUTS7UzNs +wjoQOhPh5vJTo6hkvOt7rPFeSBHdQd+5dRT5/FXMCBANgmdNqQK1A1x0v8px +r8CJIMhW9opyy+UiU/m3CycXguCdmGj1ZRcuUukL7f5nXzCIS7auCRLnoiGR +/buuDgbDJd+gHSVvOagj04Vh6xkCq+58/efYNQ46xyoQOdQRAnUjx4wm93NQ +XcPiAsOeAf+bZiR6AAet8YcTBjUM+J3u98dKBQ5SXPeyfUMdA+53LvQc2cBB ++mxnWaEGBnSGxt8cl+cgd3O/251NDMjvWRXwfj3O3xD/OvEVAzyJi0E3ZTlo +fc+dNS2dDFCRNWryX8dBqoEyef7zDGghCr9KiHKQadBESZohAbIiGk1FPyl0 +89JkrIsxAV5USsg27HXvpi1kTAiY6Fbybf2PQhM28+9LzAi4HKS/c+oHhc8b +vmVsKwKYJ45vsl6g0Or5tb4SbgT8PNLbNjdLoaEzRqsKIgg4HQybrn2jkNvL +be9DDxJQlzoeZobdwLe9QD+agKex3Su6Jih0KdbC6GkcAQYCsTZS2C6+tsHD +RwmYXX757+wxCj1R9X2yJYMArl7evcscCmXWJuyrvkmAg6x04tgghSJoF01Z +JQRkJdRvvoDtdLtylUkpAR+znNUBW/jiyO3HdwlQXqchc36AQmkxrtxHDwjY +/aqm3aqfQgmaqvsfPiVga7rF1bu9FAq/+PpAVS8BEo6pfzV2Uch+9Yh5TB8B +/jfGTsZhb07jE6MNEFCoZ9K8GXskxuhu5TABlhYs3ZxOCgW7FIxXjBFQE3Gx +K+wThXwEYyPv/SBA0UU7Q+0DhWxj10eVSTNB9Huqx+cOCj0tSHfIkWWCR9/V +wXPY5uxpVdZ6JjxJkXjvjK2v9rrLeiMTXBWkPza2U0ju01Hrf9WYYPeTFXin +jUKj23ukhY2YkDWffCyHTaEs/uv1oR5MaBDUX3m7Ba9fTzTP2ZMJil1XCiOw +U/1YMQbeTFDZsLeAhs164KqxuIcJCQajj+tf4vrJZdkXQpjASF8X0fmCQgat +IcTzaCZEBh//uuk5hT5lq4monGWCQvFl+fkmCpUjsTAqmwnrG8w5rdip47zm +u7lMqNCuFy7Aptk3J5lcZELVnz72dtiZfIxp52tMeFs9++BaI4V2HrzexSpj +QkxGuY3f3xRSUPjT2KKcCYVaGm6G2LzWg7kCFThPL6FCDPuGOnLOvM8E75ma +8KYGCv3q6WksrGFCvemfb7SxHzjJl7S14Pks7J0k6yl06ge/4LlWJmhRR85P +1VEopIQb7MtmQorZCVoHtvjyGvmhdiaUsvTCMrEP1PpkLXxkQt2ftU2rsVW0 +LsSrDuP1XinT2YT/Q398SnzHGWGCvV3iA37sjjSm/j2KCY0KGlkjNRRK6jfk +mo7hfnIE4R52d967gF0zTLh3azyLjp2zYq3NkWUknLrlQSU9oVDddI9fnAAJ +7pzQ3wT2157SmEhBEq70zCU4Yps/oF8PWUVCMSv1vhz2SBDrP4e1JAyy/YRq +q3H9TjYSNpIkpM1YBRVhm22T0ERSJKwQK1LOxD4rVuZlIEfClsZ3fSFL4zVf +KuWVSPB9O2K1FpssLmuRUiHBweRK36/H+Pmzh7+sUcP1cVtGuNgjpKTYck0S +FKks7RdL45K2YWP6JDxzbM1Pwa75LZk8QiPBVco2ORp7mNN3vs+QhNl881fB +2Nsbjzx7b0LC+N3sC9bYQwfKN9YDCXT1AWlR7NU+R40eW5GQRFcxX3xEIVNr +O6dKOgnHyz+/msbOlBs4XGxHgo5h9cZ/sauX3ztb4EBC37bu4XbswW9Hb11y +IoHlHSf1HNvkhdSHM64kaP0tXl6BHVI5MHrCnYRj0xIyt7DPXL3H/7/duF+y +Z6h87IEYe/14HxLCZTjNp7HFAqVto/aQMNfb2p66lGc/GBDuT4J3vKp14tL7 +mxJPBQaRYDlnwTi4VI+www2fEBLYHYtr9i3lzUo/cSdImA40UWMs5fUPtjuR +JDRdpm4ELOWxK0Z2hpGQkSR+0mepvseJvyCcBFPBik8eS/k3HNaZHSDht+bL +zF1L+WdkthhFkpBMeZY7LuWzhiz1okioN/c3tsMWJSp9NGNIcFTpVrfB3rYr +6aBKHAmcvPZkq6X87Y7pCvEkSF4xtwTs02qy+TIsEpw1lPZbYD8SH76/9ggJ +M2aJv8yx+/+rbBVJIMHjk+t3s6X8r0n9gkkkXP5+xW/Jxm8dvy8mk/DrWqDG +kv8Ptwn8kg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1449,104 +6163,106 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV1nk4VdsbB3ARlaFEpqTMIlPHEJH14sgsQ6YM4eyzSZEp91SG/EI3FaFB +g3RDSRKaZLqUSjrhNuJG5vY5hgwH6VZ+yx/72c/nWXt/17ve/az1bKWQg+5M +fj4+PgpfS/foNl2Nxx1tFrFvOq/nsnjIYqLIKIRehgY8M6OX3FdgfE6VXocW +dasGc7BdiTdCogbPESeCPp+NXclKfiZIZ6M2I5uys9gnX8g2Jpf+g8YeP+DP +wn7SEX3tJ+0DOm+Q++M0Nre7NeFwbSfSnuvLzcBeP6ziN2f9GW32u9Z2Atvx +W4JpLPsLWsN+XZqK3fCTK8Iq7Ufxjfs2p2B/TJE5+ihyEAk3sGwTsSeE6Fwe +bRil+iysOIwtdDrK12B+BFVuHdsXh71xbX5LdC2F9i+4RRzEdpGfuzlhPYa8 +9hz2IbDJ68rSOisnUM4lcwjETlbblbaf/Q1FS8a/8sbulHm/Na50Cg3k72q0 +xyb2hO/LPT2NfjdP6VhhT17l+6sqcga1eqzesR17pbKO+BRtFmlE1SJN7HPE +M1txqTlUlepioIiteMs3WW9+Dn1ZHdwijW2inT4RUfsd3dAW/sSPHWb8hc21 +/omqzS6mf/yDh3isQ8uF1X+h73au6a3Yx2pFzDVX/kYzJ89rNGDngcmdUPYi +6hVnuxRhE8Ut9JjSZRCzWVH/AHbpi9y+FHl+oIVGmwdgT34NTMg+zQ+dcnu5 +ztgJWrP3KyIFwF5Qbosu9rl7SirfaIIgoOsA3Hge6u4Ya/hdKAhGg02+ndiK +04/3rJYSAtM3nHUvsMsMXXJ05oVAXMsz6jp285Mjyw7UrgSvJE6tK/bss3df +KGtRUFeqKik4xEMSTqLiRxtEoViLvzsNW/89HcRMxSCD7+HV/djhQw+vb9Vd +DZbxnh+NsKP42fo7RMXBLllI/nkcDw0rl0+lza2FwaqsibZY3B+ydVW7gQQI +S/qblGPz3xlRko2WgKHUHskz2IoGm9xLRyVg5xvpY/bYe6zPVrX1SUJP+Crd ++hgeamfExMq8lgJZ0+DhrGge6r2VeSpopTToPQtwDsMeGy0tvG0jDQKNcbaA +LRw3+M6sURoYAqunJ6J4iJ662zDooQzYRj1UssWuKTKeLSmQA+Nhj6mBSB4q +Gv4Rvz1OAdQ0Tp9s2c9Ddp4nemPvKgB5cbDtAvZYs+TOuyMKoO/h9JDANizS +llL03QhnVkUxF8NxP0MC7wtabIIvop0e+tjT3/r+oI4rQm6sVNSxMB6SjKA/ +uO+sDF3miX1dBA+NFAmHuYYrA2Oq1vsqdvXnDvnxdGVgp8tFB2L7OwUcV29U +hsLbXhn9DFzflnj3SzQVMNHo9x4MwfNzb00myaiCVePN0A9BPLQ7VETHoV8N +lKwsrsf68xCK96R5/1ID+oGh3i3YWmkF2wg5dRifSG8e9OMhvkIDqyQ3dTDK +5Ka6Y9/t9fOualKHw11u/27Zg/enV1nK+hsa8Fhy7usbb1wf3fkjN0QTepc3 +vWl35yF55azkU0PaEGtq4v/GlofqMniaC/w6kClj9ncotv+M73tSSQeUw3/X +LcO+1qyqaRWIXSV80nAnDymH1rz9/kkHIjTkmefpuL6yYTXytS4U/PA1p1vy +kIL8RlLRVx/y9WKGvLbzkHZxnOh/iAbuYkrGu7fwUAhxfFbHhQatnzQce7Xw +/lLJ6Q3yp0GVm4JoGLbAjXsVL1g0kP0lk3NEE++Pa9zdOZU0WKe1ueKKBj7/ +8oLyNVUM4FnSI+s2Ffw9Tjnp+ggZAlS8tJqV56G/YlRdH7KNwMnd8pyLCA91 +xKNtqcWm8HR73jK+wRmkFPjBJeDADhhhL2SqPppBzMVH5QqHAeR2bBzlnZhB +MqPVK2RCrIB/E19yrtsMijMw/5yjRYf8FM5ZmvwMChn/2SLJtYGg2g/XOQPT +6K5V7IqCdlv4dfWky8KNaVTEC28qO2cPlXbiE2LMafTdUvZNc7IjnOIfCONt +mkY9fAJT/cHOEOR85+aF7ikUueHg2RSVXUA9ovwn86ZQ+b6WxvNprrBG4dtm +BbcpdGRGbn7LPjf4L45n+1lsCs067PR6udcdvuzxTVV9PolM/bIth908QP2O +KcMmaRK9lcsPbzbYDbcOuCeOmk+i9TeP15Vs9oQkzvghYuIbqu7TcnIR8wKt +uXqBjshvaOP7ydD4cS8gquWNrvAmkMH57LLCPm+Qy3BOuRU7gfKXz+jmPPOB +wKBDgWsWx9EjS73utCe+ELjjid6GtHGUty1j7c/SPSD0VEdEXWIctf9bnG5w +2g96DRunmHfG0EPnq6pRx/zhbHkpscZyDE1FePBFEgHgsv3Y59qBUTS7UzNs +wjoQOhPh5vJTo6hkvOt7rPFeSBHdQd+5dRT5/FXMCBANgmdNqQK1A1x0v8px +r8CJIMhW9opyy+UiU/m3CycXguCdmGj1ZRcuUukL7f5nXzCIS7auCRLnoiGR +/buuDgbDJd+gHSVvOagj04Vh6xkCq+58/efYNQ46xyoQOdQRAnUjx4wm93NQ +XcPiAsOeAf+bZiR6AAet8YcTBjUM+J3u98dKBQ5SXPeyfUMdA+53LvQc2cBB ++mxnWaEGBnSGxt8cl+cgd3O/251NDMjvWRXwfj3O3xD/OvEVAzyJi0E3ZTlo +fc+dNS2dDFCRNWryX8dBqoEyef7zDGghCr9KiHKQadBESZohAbIiGk1FPyl0 +89JkrIsxAV5USsg27HXvpi1kTAiY6Fbybf2PQhM28+9LzAi4HKS/c+oHhc8b +vmVsKwKYJ45vsl6g0Or5tb4SbgT8PNLbNjdLoaEzRqsKIgg4HQybrn2jkNvL +be9DDxJQlzoeZobdwLe9QD+agKex3Su6Jih0KdbC6GkcAQYCsTZS2C6+tsHD +RwmYXX757+wxCj1R9X2yJYMArl7evcscCmXWJuyrvkmAg6x04tgghSJoF01Z +JQRkJdRvvoDtdLtylUkpAR+znNUBW/jiyO3HdwlQXqchc36AQmkxrtxHDwjY +/aqm3aqfQgmaqvsfPiVga7rF1bu9FAq/+PpAVS8BEo6pfzV2Uch+9Yh5TB8B +/jfGTsZhb07jE6MNEFCoZ9K8GXskxuhu5TABlhYs3ZxOCgW7FIxXjBFQE3Gx +K+wThXwEYyPv/SBA0UU7Q+0DhWxj10eVSTNB9Huqx+cOCj0tSHfIkWWCR9/V +wXPY5uxpVdZ6JjxJkXjvjK2v9rrLeiMTXBWkPza2U0ju01Hrf9WYYPeTFXin +jUKj23ukhY2YkDWffCyHTaEs/uv1oR5MaBDUX3m7Ba9fTzTP2ZMJil1XCiOw +U/1YMQbeTFDZsLeAhs164KqxuIcJCQajj+tf4vrJZdkXQpjASF8X0fmCQgat +IcTzaCZEBh//uuk5hT5lq4monGWCQvFl+fkmCpUjsTAqmwnrG8w5rdip47zm +u7lMqNCuFy7Aptk3J5lcZELVnz72dtiZfIxp52tMeFs9++BaI4V2HrzexSpj +QkxGuY3f3xRSUPjT2KKcCYVaGm6G2LzWg7kCFThPL6FCDPuGOnLOvM8E75ma +8KYGCv3q6WksrGFCvemfb7SxHzjJl7S14Pks7J0k6yl06ge/4LlWJmhRR85P +1VEopIQb7MtmQorZCVoHtvjyGvmhdiaUsvTCMrEP1PpkLXxkQt2ftU2rsVW0 +LsSrDuP1XinT2YT/Q398SnzHGWGCvV3iA37sjjSm/j2KCY0KGlkjNRRK6jfk +mo7hfnIE4R52d967gF0zTLh3azyLjp2zYq3NkWUknLrlQSU9oVDddI9fnAAJ +7pzQ3wT2157SmEhBEq70zCU4Yps/oF8PWUVCMSv1vhz2SBDrP4e1JAyy/YRq +q3H9TjYSNpIkpM1YBRVhm22T0ERSJKwQK1LOxD4rVuZlIEfClsZ3fSFL4zVf +KuWVSPB9O2K1FpssLmuRUiHBweRK36/H+Pmzh7+sUcP1cVtGuNgjpKTYck0S +FKks7RdL45K2YWP6JDxzbM1Pwa75LZk8QiPBVco2ORp7mNN3vs+QhNl881fB +2Nsbjzx7b0LC+N3sC9bYQwfKN9YDCXT1AWlR7NU+R40eW5GQRFcxX3xEIVNr +O6dKOgnHyz+/msbOlBs4XGxHgo5h9cZ/sauX3ztb4EBC37bu4XbswW9Hb11y +IoHlHSf1HNvkhdSHM64kaP0tXl6BHVI5MHrCnYRj0xIyt7DPXL3H/7/duF+y +Z6h87IEYe/14HxLCZTjNp7HFAqVto/aQMNfb2p66lGc/GBDuT4J3vKp14tL7 +mxJPBQaRYDlnwTi4VI+www2fEBLYHYtr9i3lzUo/cSdImA40UWMs5fUPtjuR +JDRdpm4ELOWxK0Z2hpGQkSR+0mepvseJvyCcBFPBik8eS/k3HNaZHSDht+bL +zF1L+WdkthhFkpBMeZY7LuWzhiz1okioN/c3tsMWJSp9NGNIcFTpVrfB3rYr +6aBKHAmcvPZkq6X87Y7pCvEkSF4xtwTs02qy+TIsEpw1lPZbYD8SH76/9ggJ +M2aJv8yx+/+rbBVJIMHjk+t3s6X8r0n9gkkkXP5+xW/Jxm8dvy8mk/DrWqDG +kv8Ptwn8kg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.7722450035989535, + 1.2794376643258516`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.7722450035989552}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1558,130 +6274,132 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.7722450035989535, + 1.2794376643258516`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.7722450035989552}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{115.12306105754327`, - 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV1nk4VdsbB3ARlaFEpqTMIlPHEJH14sgsQ6YM4eyzSZEp91SG/EI3FaFB +g3RDSRKaZLqUSjrhNuJG5vY5hgwH6VZ+yx/72c/nWXt/17ve/az1bKWQg+5M +fj4+PgpfS/foNl2Nxx1tFrFvOq/nsnjIYqLIKIRehgY8M6OX3FdgfE6VXocW +dasGc7BdiTdCogbPESeCPp+NXclKfiZIZ6M2I5uys9gnX8g2Jpf+g8YeP+DP +wn7SEX3tJ+0DOm+Q++M0Nre7NeFwbSfSnuvLzcBeP6ziN2f9GW32u9Z2Atvx +W4JpLPsLWsN+XZqK3fCTK8Iq7Ufxjfs2p2B/TJE5+ihyEAk3sGwTsSeE6Fwe +bRil+iysOIwtdDrK12B+BFVuHdsXh71xbX5LdC2F9i+4RRzEdpGfuzlhPYa8 +9hz2IbDJ68rSOisnUM4lcwjETlbblbaf/Q1FS8a/8sbulHm/Na50Cg3k72q0 +xyb2hO/LPT2NfjdP6VhhT17l+6sqcga1eqzesR17pbKO+BRtFmlE1SJN7HPE +M1txqTlUlepioIiteMs3WW9+Dn1ZHdwijW2inT4RUfsd3dAW/sSPHWb8hc21 +/omqzS6mf/yDh3isQ8uF1X+h73au6a3Yx2pFzDVX/kYzJ89rNGDngcmdUPYi +6hVnuxRhE8Ut9JjSZRCzWVH/AHbpi9y+FHl+oIVGmwdgT34NTMg+zQ+dcnu5 +ztgJWrP3KyIFwF5Qbosu9rl7SirfaIIgoOsA3Hge6u4Ya/hdKAhGg02+ndiK +04/3rJYSAtM3nHUvsMsMXXJ05oVAXMsz6jp285Mjyw7UrgSvJE6tK/bss3df +KGtRUFeqKik4xEMSTqLiRxtEoViLvzsNW/89HcRMxSCD7+HV/djhQw+vb9Vd +DZbxnh+NsKP42fo7RMXBLllI/nkcDw0rl0+lza2FwaqsibZY3B+ydVW7gQQI +S/qblGPz3xlRko2WgKHUHskz2IoGm9xLRyVg5xvpY/bYe6zPVrX1SUJP+Crd ++hgeamfExMq8lgJZ0+DhrGge6r2VeSpopTToPQtwDsMeGy0tvG0jDQKNcbaA +LRw3+M6sURoYAqunJ6J4iJ662zDooQzYRj1UssWuKTKeLSmQA+Nhj6mBSB4q +Gv4Rvz1OAdQ0Tp9s2c9Ddp4nemPvKgB5cbDtAvZYs+TOuyMKoO/h9JDANizS +llL03QhnVkUxF8NxP0MC7wtabIIvop0e+tjT3/r+oI4rQm6sVNSxMB6SjKA/ +uO+sDF3miX1dBA+NFAmHuYYrA2Oq1vsqdvXnDvnxdGVgp8tFB2L7OwUcV29U +hsLbXhn9DFzflnj3SzQVMNHo9x4MwfNzb00myaiCVePN0A9BPLQ7VETHoV8N +lKwsrsf68xCK96R5/1ID+oGh3i3YWmkF2wg5dRifSG8e9OMhvkIDqyQ3dTDK +5Ka6Y9/t9fOualKHw11u/27Zg/enV1nK+hsa8Fhy7usbb1wf3fkjN0QTepc3 +vWl35yF55azkU0PaEGtq4v/GlofqMniaC/w6kClj9ncotv+M73tSSQeUw3/X +LcO+1qyqaRWIXSV80nAnDymH1rz9/kkHIjTkmefpuL6yYTXytS4U/PA1p1vy +kIL8RlLRVx/y9WKGvLbzkHZxnOh/iAbuYkrGu7fwUAhxfFbHhQatnzQce7Xw +/lLJ6Q3yp0GVm4JoGLbAjXsVL1g0kP0lk3NEE++Pa9zdOZU0WKe1ueKKBj7/ +8oLyNVUM4FnSI+s2Ffw9Tjnp+ggZAlS8tJqV56G/YlRdH7KNwMnd8pyLCA91 +xKNtqcWm8HR73jK+wRmkFPjBJeDADhhhL2SqPppBzMVH5QqHAeR2bBzlnZhB +MqPVK2RCrIB/E19yrtsMijMw/5yjRYf8FM5ZmvwMChn/2SLJtYGg2g/XOQPT +6K5V7IqCdlv4dfWky8KNaVTEC28qO2cPlXbiE2LMafTdUvZNc7IjnOIfCONt +mkY9fAJT/cHOEOR85+aF7ikUueHg2RSVXUA9ovwn86ZQ+b6WxvNprrBG4dtm +BbcpdGRGbn7LPjf4L45n+1lsCs067PR6udcdvuzxTVV9PolM/bIth908QP2O +KcMmaRK9lcsPbzbYDbcOuCeOmk+i9TeP15Vs9oQkzvghYuIbqu7TcnIR8wKt +uXqBjshvaOP7ydD4cS8gquWNrvAmkMH57LLCPm+Qy3BOuRU7gfKXz+jmPPOB +wKBDgWsWx9EjS73utCe+ELjjid6GtHGUty1j7c/SPSD0VEdEXWIctf9bnG5w +2g96DRunmHfG0EPnq6pRx/zhbHkpscZyDE1FePBFEgHgsv3Y59qBUTS7UzNs +wjoQOhPh5vJTo6hkvOt7rPFeSBHdQd+5dRT5/FXMCBANgmdNqQK1A1x0v8px +r8CJIMhW9opyy+UiU/m3CycXguCdmGj1ZRcuUukL7f5nXzCIS7auCRLnoiGR +/buuDgbDJd+gHSVvOagj04Vh6xkCq+58/efYNQ46xyoQOdQRAnUjx4wm93NQ +XcPiAsOeAf+bZiR6AAet8YcTBjUM+J3u98dKBQ5SXPeyfUMdA+53LvQc2cBB ++mxnWaEGBnSGxt8cl+cgd3O/251NDMjvWRXwfj3O3xD/OvEVAzyJi0E3ZTlo +fc+dNS2dDFCRNWryX8dBqoEyef7zDGghCr9KiHKQadBESZohAbIiGk1FPyl0 +89JkrIsxAV5USsg27HXvpi1kTAiY6Fbybf2PQhM28+9LzAi4HKS/c+oHhc8b +vmVsKwKYJ45vsl6g0Or5tb4SbgT8PNLbNjdLoaEzRqsKIgg4HQybrn2jkNvL +be9DDxJQlzoeZobdwLe9QD+agKex3Su6Jih0KdbC6GkcAQYCsTZS2C6+tsHD +RwmYXX757+wxCj1R9X2yJYMArl7evcscCmXWJuyrvkmAg6x04tgghSJoF01Z +JQRkJdRvvoDtdLtylUkpAR+znNUBW/jiyO3HdwlQXqchc36AQmkxrtxHDwjY +/aqm3aqfQgmaqvsfPiVga7rF1bu9FAq/+PpAVS8BEo6pfzV2Uch+9Yh5TB8B +/jfGTsZhb07jE6MNEFCoZ9K8GXskxuhu5TABlhYs3ZxOCgW7FIxXjBFQE3Gx +K+wThXwEYyPv/SBA0UU7Q+0DhWxj10eVSTNB9Huqx+cOCj0tSHfIkWWCR9/V +wXPY5uxpVdZ6JjxJkXjvjK2v9rrLeiMTXBWkPza2U0ju01Hrf9WYYPeTFXin +jUKj23ukhY2YkDWffCyHTaEs/uv1oR5MaBDUX3m7Ba9fTzTP2ZMJil1XCiOw +U/1YMQbeTFDZsLeAhs164KqxuIcJCQajj+tf4vrJZdkXQpjASF8X0fmCQgat +IcTzaCZEBh//uuk5hT5lq4monGWCQvFl+fkmCpUjsTAqmwnrG8w5rdip47zm +u7lMqNCuFy7Aptk3J5lcZELVnz72dtiZfIxp52tMeFs9++BaI4V2HrzexSpj +QkxGuY3f3xRSUPjT2KKcCYVaGm6G2LzWg7kCFThPL6FCDPuGOnLOvM8E75ma +8KYGCv3q6WksrGFCvemfb7SxHzjJl7S14Pks7J0k6yl06ge/4LlWJmhRR85P +1VEopIQb7MtmQorZCVoHtvjyGvmhdiaUsvTCMrEP1PpkLXxkQt2ftU2rsVW0 +LsSrDuP1XinT2YT/Q398SnzHGWGCvV3iA37sjjSm/j2KCY0KGlkjNRRK6jfk +mo7hfnIE4R52d967gF0zTLh3azyLjp2zYq3NkWUknLrlQSU9oVDddI9fnAAJ +7pzQ3wT2157SmEhBEq70zCU4Yps/oF8PWUVCMSv1vhz2SBDrP4e1JAyy/YRq +q3H9TjYSNpIkpM1YBRVhm22T0ERSJKwQK1LOxD4rVuZlIEfClsZ3fSFL4zVf +KuWVSPB9O2K1FpssLmuRUiHBweRK36/H+Pmzh7+sUcP1cVtGuNgjpKTYck0S +FKks7RdL45K2YWP6JDxzbM1Pwa75LZk8QiPBVco2ORp7mNN3vs+QhNl881fB +2Nsbjzx7b0LC+N3sC9bYQwfKN9YDCXT1AWlR7NU+R40eW5GQRFcxX3xEIVNr +O6dKOgnHyz+/msbOlBs4XGxHgo5h9cZ/sauX3ztb4EBC37bu4XbswW9Hb11y +IoHlHSf1HNvkhdSHM64kaP0tXl6BHVI5MHrCnYRj0xIyt7DPXL3H/7/duF+y +Z6h87IEYe/14HxLCZTjNp7HFAqVto/aQMNfb2p66lGc/GBDuT4J3vKp14tL7 +mxJPBQaRYDlnwTi4VI+www2fEBLYHYtr9i3lzUo/cSdImA40UWMs5fUPtjuR +JDRdpm4ELOWxK0Z2hpGQkSR+0mepvseJvyCcBFPBik8eS/k3HNaZHSDht+bL +zF1L+WdkthhFkpBMeZY7LuWzhiz1okioN/c3tsMWJSp9NGNIcFTpVrfB3rYr +6aBKHAmcvPZkq6X87Y7pCvEkSF4xtwTs02qy+TIsEpw1lPZbYD8SH76/9ggJ +M2aJv8yx+/+rbBVJIMHjk+t3s6X8r0n9gkkkXP5+xW/Jxm8dvy8mk/DrWqDG +kv8Ptwn8kg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.7722450035989535, 1.2794376643258516`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.7722450035989552}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1691,7 +6409,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5986424829233548}, + AxesOrigin->{0, 0.7722450035989552}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1719,7 +6438,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7722450035989535, 1.2794376643258516`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1727,9 +6447,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991339493274267*^9}, - CellLabel-> - "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] + CellChangeTimes->{3.991339493274267*^9, 3.993850281489262*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"da73068e-e268-4f3d-a234-915aae7594fb"] }, Open ]], Cell[CellGroupData[{ @@ -1792,262 +6511,184 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849724783457*^9},ExpressionUUID->"6e33cb28-ef1e-1547-b52d-\ -2171e7786920"], + CellChangeTimes->{3.991849724783457*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.689971828739316`*^-272\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 335, - 333, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493498577*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993850281888338*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +In[95]:=",ExpressionUUID->"7585ec4b-168f-4982-9229-467e60eee184"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.8084881925371995`*^-283\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 335, 334, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493508564*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.9938502818955793`*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +In[95]:=",ExpressionUUID->"3953e88a-97a2-4b58-85ef-84ff4e82b332"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.863562364008294`*^-295\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 335, 335, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493517563*^9}, + 2, 95, 11, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993850281901091*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +In[95]:=",ExpressionUUID->"c81ddf5a-084f-4ede-ab02-70f6f6b55656"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493525564*^9}, +during this calculation.\"", 2, 95, 12, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993850281905983*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +In[95]:=",ExpressionUUID->"fc97d8c3-ec6f-4a54-bee0-2c32843b269c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0lG8bB3BRWX4h+zpj7KXsDDNmXJe1rJWksmQrFFJIUSoVKZRQJBJJ +C4mZKWuRLSQqO2VJSYoSWsn7vH/N+Zwzz3Lu5/p+71vRJ8RpDzcXF5fNMi6u +///+GGppUEnIN4XMKRGDW9amXdelI836TsHX6OMJrxpVACU6fKT7UuDB9n7r +3EYDiNh8r5enLw9cjnSUH2+0BJFpqZTfvSxYedCl3qLRGYarHUPmeuug4jEt +9UTDbrBWmXw70/satDL9Jk49DYffvUaXv/W+g+wDYvuuPzwD9Ra381/lzUJ1 +1flnbI/LID9cMe6zfhGqp0OvkjAHxIM87/Fa8ODTrQ7LX+vlQ4qudZXjNj48 +cXbhbH3DHejP0KmdWS2I5KHyI10ZRZDZWSgcoSqIywcSrgbcKQJXIXXPPzRB +nP0uWzVbVgRvTpP+cfsKYvwn8sx0TxGM7BdgiD8UxKYDOU+OiN+HCcv3ZdSd +QijpJ3S9J+k+/PqW/uBorjBOjGe450UWQ0L+iQ5uGRGMc6bGe8mWgK3BXlEJ +ZRF0079jN0QpAb4Gp23qmiKYwq22bbt6CZwZUx20MxPBmA1bDE0MSuCYUtt4 +2l4R1Juk8bU6lMD+G9L/1CpF8PLA0WnukyWwJat0vZ2bKBpE8X/sHykBqbSx +c6nZYjg5ST3wIbUUpNc9PPOrQAzVtW43vMooBdm6uBMeJWK47Jv4s4rsUiB/ +W3tIvV4MV/HVdx67XQqq9ge8qibE0EylbrG9shT0ly9Sx/TF8XJzm8rNkVLY +FC75Xq9VHMN6i6/zrmXB5v8mhtI7xbHteHBLgCYLnPIq+hfeiKNFrkNaoy4L +XF66dzR9FcfsDev4Q+ks8Fh/s9JVQgJFjz/3u2LHgsD32pdOeUlgQ2UDa1Uw +C84625i+/iGB0ZHiM/eLWCDLaZflXiaJMqaxa7tLWFAs5vxT9z9JDPu8zPAn +hwU9r3eVXFKQRBWh9IZ1j1mgsiVcactGSRxZtlDn8oIFdQ45K19elcRjfmUa +nC8sWLSeb3/BkMJuYYXkRHU2JBdEFS5aS2Gvgr640Do2qKzkitfcIoWaBjGB +57XYYN8oYJa0RwrP6gemhRmyIdOCwra/IIWjFOcuXgs2GKNd+vNhKbwl9opu +7MGGMFquZ8spaQwYnz9fmcQG2xtCc3aJ0nj0IlewXzIblHiPxbdflsbhqbgu +wVQ2vOxyKe28I42LH0MMN2WwQevAKp6hdmk8pfx1Y1YeGyYKDhd8l5VBp5pJ +Qa9HbKgR/EA/pCKDt+v3HWooZ8OVcKeOn5oymJDQEqBSxQYrc81fCyiDTcbz +cz01bMh7+86G118GVdfIl6xsYYO7uOOUHFsG9YdvKVwaYIP+0aqY69UyGMpZ +OF78hg0C79ZIKjbJ4HSufuizITZUPOABtX4ZrK2NlPzyjg2SdhXJOksyePy7 +tR/XZ+L9Y1QMrOxkUSZgxe1tf9hg+fVP1P4xWbyiAwplEhyI3Jim8fSLLH5i +iTmhFAeKczUHxH7IolpJ/Y5GaQ5IO3vRKvjkkOda7Ps6OQ58KW/8yaMlh2Lm +5/kTFTmQeio5/OoROUwL69Lcvp4DzYNrVb7EyOHVslPz2ZocWDCo7zRNkMOV +PR+zRrQ44PdxXu99thz+C1lI2qnLAbq924xWvRwuNeYKy1I58E5CbX+DoDw+ +9ny6oceUA1IhNSQpKXksP7k8aBA4YN+848Veijy2tWlGv0EOPIpKWC+sL48W +okV7X5tz4Pzwt8mdO+TR8tv06SRrDtQYn88s8pbHcIHv6qEbODB3Sdl2aZ88 +JpRP1zht5MAuS5e7+dHyyHc2ooPXlgN6d6v8v+bJ4/LfB+PMHDjgz71NyrxI +Hr9/nhxb4ciBLLfpprSH8pjr+JTRRHilkKIavVkeFd9sek/fzIGB0Lj3Z6bk +MWJ1leqcEweE2xTSen/I47Kut0cytnLAUrXCQoOLhDF1qzuMnYn17v2c1yFK +Qv+L6fHB2zgQw9jiLWtMwgf6S3a3t3Ng467r343MSXjiTfUEdQcHhE5+Pr3N +noQdZNLbp4Sz6mMLkr1I+Ftl6VXLTg74fnhtVLyPhLM9it3WrhzQ4KW0PA8n +oenCGsMawuW2lZ9XniMhyclYJM+NAyeCeKNVUkl43mf64ip3DlhfcBYyzyZh +xM33B0IJd72a1okuJWGY+NIuHQ8OXJs1qcusIuH01Nv98YR9JM5tLW8kof7G +0PFBwt92KEfM9pPQw9hc9NAuDpRFHeAVeU/COmmrlkrCx7MeZ2hNk/DgqsSp +v4Stngho2P8iYeeN4yeNPTmwamR71V5uMkrMxJ4+QLhz2S37s6vIOJa/6tdN +wpnK39/mS5JR6uvx4deEvawgpI5CxrBEW5NFwur+iVwjGmTcWTe0StmLA9Px +/ZcWDcgY7VG0zZIw556ashyQMatEVcqb8NG2MI6xDRnXpj5xiiRsPl1r5bKV +jMJeX/iTCPOvFuoN8yCjy5yqaRbhl7puAZf8yTh8f+xbAeH0rXd+Fx8kI/++ +HOX7hHcdmj/fdpSMoWe6eosJq6aby0/GEs/rXhIq8vp/fi7e500m4+3SnNZ8 +wuyBN6aqmWScHddfdZVw1MLal+b5ZBysZnbHEzYjH/b2Kiajz3dQDyfMhw3f +o8vJOFD9hMeNcLu3yJlrdWS80gRBTMKXT++SqGgjY7amrY8cYfdbhQU9PWS0 +PuX3cY5YH6Vnv4zmRsj4o5G82EL404RVi8hnMtbu/ZefSbhEINVVe56Mog4p +I36ED68f+Wy/RMaA6oBSLcKmjprR+/gVcDxEROY78f3aLj3LuUVSQL8rCuxA +wqlscd16dQWUiS+cUCTs2u1dN6KrgMXlLlWdxHxMSC+8l7NWQDEDf1MNwg/o +NhG0zQq4V/XfTDsxbxHuV3i3uyrgUo6UTQhhnhs6Gin7FbA+z3Li//Pa+jS6 +6sERBZRtT9OnEk4ea7V/cUoBLZpG1jQS801W3xPCl66A5+znpHqIPNCLr3KO +1yjgL3khagORJ8ve9sXpZgVMHH32yJSwI9fyDZ6vFdD0z+FjD12I/Djt74cP +Crgve92bdCKP1kcVT5xcQUEXwXViOkR+nwtX3zQWoKD74MBoIpHvzfkuzd+E +KDgXcJRrfAsH3F4kiHhLU/D+XrJ+EtEHBxR+3DRbR8GnvMKXHxB9Ms9Obv6t +TcEQCW+Br/bE9964bqrUgIKHPwwOaBCOPehFVTKl4Mp7v1PSiT7KrG9t5t5C +wfnk1rNWRH81+OdM1UdQMGB2T9Mc0Yc2CzTRY0cpqPMyPvMP0ZftyV1Ug5MU +9HGbH1lgcqC/gv9k/jkK7n+Z0vrDhMjDf+GisVkUbKr1odcaEf1estHIuo6C +3y8wBu8R/ZxtOeb2r4mCZn39cUeI/lbqjz756DkF9dxqq82JftfkZreodVMw +sD/2RdtaIi/OJHfeCQp+5v10v0yFA0G/Zk42Cypipe/2hk8yxPof9JMcF1XE +j06R232I/YRvcqCQR1oRA/ZSf/ZIcuDWYH2PqZIiFiSe380R48DQk8vrH1IV +UYJLWBsFObApltaX60n8PzfENnuJDXqiMdpHSxWxq0Nh+bFRNnAlzDdkPFLE +D2QjxahhNrTz7HN9VKWI9kbcSeFv2RA47xQ706iIE1/1du7qZ0N+n8qg/4Ai +Do4ULK14ReyXOc1xzjxKWBVeu/s2sR//Xrd6SHObEkrZOZeZZbLhR7ZsjL6r +EqY4BLr2p7NhTlhVheaphB3hrqXBl9kwPUvbZ7lXCZv3qJxOJM4P76p8f7hG +K6GJvelMXhwbWu3KhOJvKeETZ/WXBqHE+SRwF7ybV8IRbeGov9ZsYBQW3bhy +RRnP9u+UTPrIgkFKYY7VNWXcInfR5Op7FkRduXt9LkcZxyYP/MkbZUFZTEGW +011ltIrxsn8wyAK9HTcyhKqV8UPkyrDCDhasXZGWHDeqjC1Rj931y1gg6Xn0 +ZMR6FXTk5xhcOMOCGVFbL5c6FYx9/Xy6S5oF7xO9XEJ51ZCsZDNyWKIUbL4e +tvlAVccexVeuJgIl8MWXL4xzYg3yzupVJxfeJ87/Utxn69Yil+mVV4NGhSD6 +Qu1CyVcNFMkQNKv4eAfk4x9splLX47X9093GgQWQsY62WsxfE98J08Ul1uRD +q6yZ4ewlLeSvCtxpujIP6PJ1ydo92vhUbFPI9L0cEOLJC/c+pYMkYkga+q4B +OUaBsVNNF9/WR6+8sDID+FXdHzk908UM1wBjq+w00GLKPDjsoYc5thy1x48v +QeiQaL0tlz4eZ0kfuTmZBF9nE7fZZOijC02+JHrrOdig3ZRpo2mAb/xVnod7 +xMKTWZO/P9sN0MejcGtSbgzsX6838GqPIY5sigoSsooG5vTurp38VMzo0229 +XX0YrFSkHQTzqNjxW1Qu0jsMOFONirvzqTi9QOPp3BIGKmVhPyoLqDgr1BZv +ZB4Gy207cgIKqbiCo7KdohwGdSFx3+s5VDT7diz4wIdQMK2aS496RkXWktbk +iqBQoDq9evfxCxUP/23PGj15ENacPH+kzsgIv0y03zyUHALVJrdW2NONcL1A +YMeXsBDY/LMmpZthhDeCzacit4fAkf3zRRNmRpglEdXWTQ6BZnevUSF7I+xp +LGCnFO+HABrV1s3LCBlGD5dLvg6Gu99H5ebijbDXxMh3ck0QaOyh1agOGKEO +yHuKie2Fi0qOf06/McI0uTAhg8UAmBv2MXw3ZIQsiUPr9nwMgCeuiYXXx4xw +7anhs7+qAsBp83C61JQRkoYeV7/bEwCRJrEH+LmM8dlD4FRX+0OzyCvFKVVj +XBzcH2gZ4Qd7ngSc4Rw0xtzHe5euSu6G6eDJw1bhxiidW7NCgGc3HCEFBfZE +GKOv67vs81994fyxEKdfR43xju4Fl8fNvlBCj6Aw4oxRb+WZBx+P+sLCo9PV +9ZmEP+4D6w8+kPLg+tzremN8l5nV+rbeG2pudO2ekaChpH5liom7J4zYK3pG +SNOQs9lOwJ7pCVy/g3f+laWht8Anx8NkTzDfwuu4gkLD02brZkmju6BpGd1I +RoOGYzs/p9313wVtPjn8ZqY0TK0RaLgb6QEDKvuKk/1oePfDodHnJW4wd2fp +p3YZDUH7q/Mt/x0w7mJ941wFDeWZ9mmnNu+AvuVJG8eqaGgofR/DaDugykv2 +6pVaGh6Q47l34b8dcErakL7YQsPuBBOLopLtsDp+37HWNzQs5OZpjvjnAuv9 +u7n2cNNxs/Nb+HJ7G/iqFvJnOtCxTzJZI157K0Q17tqntpmO35rGzDbIbYXk +PaLPWU50XPFEJ0iGdytU34pMfL6djqobeqp/DDmBuNpG4UVvOmYfXFuQetEJ +mtQ+iHtF0PE/a+9DNnNbQGONAkUth461SvpPmc83w4xGKpX1jY4rm+z+27HD +Afra0Epslo7mxdqf0+kOULt/emv4PB2XHXwy9l3eAS6wbA5S/9Cxl7q69feo +PWjQuYoqeUwwOOaJvE2wPfjYBCvWS5pgzxmZC4PxdtDlv2FVF8MEH7+4MwCd +NlCe/3d0Pt4EDSXVfpaUWAPVIvynbYIJCpZGnLtw1Roejn5ZdSPJBGUGvgbF +nLIGFnnIyDbFBK/SZMcKnK2hKKM26fo1E3y5fLxk+rcV3EiMpW0oNsHQ3Fuy +vhut4Fy48KWMThO8JqOXHThnAXxi8QVT3SZ4cfjO6s5hC4gr5ao27zPBVcvK +nzk8t4Az0zPjX96YIL289OmxPAs4HtDFMBs3wZnTfVo1Wywg1P3qxKdfJqi5 +ZsGjmW0OrpbKaEJmoEi79p2YWDNY7OITqqcwMHZ89ErBQTO4sWd60FaZgf1e +J38Oe5jBeFzFYdc1DKw5crPhItUMQls2PYjUY+CfFt/E0QmE847HyOXWDBQ3 +s5xibkGo3NG9YBDCwNrH4qQqL1Pw+FTZWn2QgZJJ7aODTFPgirqRYRnOQKPy +CAVFOVOwvhZo4BzJQBlzkRPSPUx4/XZZUNhpBm7vj1Evc2DCpI/WYGk6A98/ +3KSbbsEAueCzFVq1DPTMMpte2kiHC0t+hgl1DOxTaX0QtZ4O3CnWpR8bGPi0 +oPGhyGo6TD5acfdGCwNVqP3r0nppUMl1JkO0k4GWOg2CE/40cE07efjHBwZO +pXo7PkoyhoyqSMMn/zFxkA/SraaosMpxZ6msEBN9QxzWyHZR4eSIsebh1Uw8 +83dkBV8VFQJW/FLRkWDivPlae+1zVDDaFCGeR2bi5lczF++qUaHnXehsrC4T +ra5ui6H5GYKEQFCpw3YmHvrQ+kbrpz7kW0RHfdtJ3H9+siJkSB/0oi9YpLoz +sca0qLqtUR8cv5V093kzseJ+a+1Amj7E9cz/9g1ior/5yB0LA334lXfCPCqG +iU09rDCdI3owYJLaWVDIxMmVQxWPxHQh4FB+lk0xcb2beIX1Px34Ufxwz5cS +JtpXh0Z+ndABUaW+n7qPmDjQZdh7/okO2PGR5B/XMtFSr8h0fJ8OVHcV7O7s +ZiI3j1+CfrI22AqVa0b0MdHnuSW/c4A29G1o+SE9yETWWv3JPNSGucrP8btG +mNhfcUTs+YwWaObq3P80SbzfpcpacNGC6gGziMQpJnp5/xRt19YCW/GtoP2N +iTMUeZtz/Frgd/bQq/B5Jt7Rq8iPfawJc7VxmVK/mFh2f29QU7omnPqT7lv5 +h4lu2qHu+qGasNrg7nqPRSa6X9hh3WavCdeDK+eXlpj4rqLtb7K6JvwPj7ZB +IQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2061,221 +6702,140 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV1nk0lG8bB3BRWX4h+zpj7KXsDDNmXJe1rJWksmQrFFJIUSoVKZRQJBJJ +C4mZKWuRLSQqO2VJSYoSWsn7vH/N+Zwzz3Lu5/p+71vRJ8RpDzcXF5fNMi6u +///+GGppUEnIN4XMKRGDW9amXdelI836TsHX6OMJrxpVACU6fKT7UuDB9n7r +3EYDiNh8r5enLw9cjnSUH2+0BJFpqZTfvSxYedCl3qLRGYarHUPmeuug4jEt +9UTDbrBWmXw70/satDL9Jk49DYffvUaXv/W+g+wDYvuuPzwD9Ra381/lzUJ1 +1flnbI/LID9cMe6zfhGqp0OvkjAHxIM87/Fa8ODTrQ7LX+vlQ4qudZXjNj48 +cXbhbH3DHejP0KmdWS2I5KHyI10ZRZDZWSgcoSqIywcSrgbcKQJXIXXPPzRB +nP0uWzVbVgRvTpP+cfsKYvwn8sx0TxGM7BdgiD8UxKYDOU+OiN+HCcv3ZdSd +QijpJ3S9J+k+/PqW/uBorjBOjGe450UWQ0L+iQ5uGRGMc6bGe8mWgK3BXlEJ +ZRF0079jN0QpAb4Gp23qmiKYwq22bbt6CZwZUx20MxPBmA1bDE0MSuCYUtt4 +2l4R1Juk8bU6lMD+G9L/1CpF8PLA0WnukyWwJat0vZ2bKBpE8X/sHykBqbSx +c6nZYjg5ST3wIbUUpNc9PPOrQAzVtW43vMooBdm6uBMeJWK47Jv4s4rsUiB/ +W3tIvV4MV/HVdx67XQqq9ge8qibE0EylbrG9shT0ly9Sx/TF8XJzm8rNkVLY +FC75Xq9VHMN6i6/zrmXB5v8mhtI7xbHteHBLgCYLnPIq+hfeiKNFrkNaoy4L +XF66dzR9FcfsDev4Q+ks8Fh/s9JVQgJFjz/3u2LHgsD32pdOeUlgQ2UDa1Uw +C84625i+/iGB0ZHiM/eLWCDLaZflXiaJMqaxa7tLWFAs5vxT9z9JDPu8zPAn +hwU9r3eVXFKQRBWh9IZ1j1mgsiVcactGSRxZtlDn8oIFdQ45K19elcRjfmUa +nC8sWLSeb3/BkMJuYYXkRHU2JBdEFS5aS2Gvgr640Do2qKzkitfcIoWaBjGB +57XYYN8oYJa0RwrP6gemhRmyIdOCwra/IIWjFOcuXgs2GKNd+vNhKbwl9opu +7MGGMFquZ8spaQwYnz9fmcQG2xtCc3aJ0nj0IlewXzIblHiPxbdflsbhqbgu +wVQ2vOxyKe28I42LH0MMN2WwQevAKp6hdmk8pfx1Y1YeGyYKDhd8l5VBp5pJ +Qa9HbKgR/EA/pCKDt+v3HWooZ8OVcKeOn5oymJDQEqBSxQYrc81fCyiDTcbz +cz01bMh7+86G118GVdfIl6xsYYO7uOOUHFsG9YdvKVwaYIP+0aqY69UyGMpZ +OF78hg0C79ZIKjbJ4HSufuizITZUPOABtX4ZrK2NlPzyjg2SdhXJOksyePy7 +tR/XZ+L9Y1QMrOxkUSZgxe1tf9hg+fVP1P4xWbyiAwplEhyI3Jim8fSLLH5i +iTmhFAeKczUHxH7IolpJ/Y5GaQ5IO3vRKvjkkOda7Ps6OQ58KW/8yaMlh2Lm +5/kTFTmQeio5/OoROUwL69Lcvp4DzYNrVb7EyOHVslPz2ZocWDCo7zRNkMOV +PR+zRrQ44PdxXu99thz+C1lI2qnLAbq924xWvRwuNeYKy1I58E5CbX+DoDw+ +9ny6oceUA1IhNSQpKXksP7k8aBA4YN+848Veijy2tWlGv0EOPIpKWC+sL48W +okV7X5tz4Pzwt8mdO+TR8tv06SRrDtQYn88s8pbHcIHv6qEbODB3Sdl2aZ88 +JpRP1zht5MAuS5e7+dHyyHc2ooPXlgN6d6v8v+bJ4/LfB+PMHDjgz71NyrxI +Hr9/nhxb4ciBLLfpprSH8pjr+JTRRHilkKIavVkeFd9sek/fzIGB0Lj3Z6bk +MWJ1leqcEweE2xTSen/I47Kut0cytnLAUrXCQoOLhDF1qzuMnYn17v2c1yFK +Qv+L6fHB2zgQw9jiLWtMwgf6S3a3t3Ng467r343MSXjiTfUEdQcHhE5+Pr3N +noQdZNLbp4Sz6mMLkr1I+Ftl6VXLTg74fnhtVLyPhLM9it3WrhzQ4KW0PA8n +oenCGsMawuW2lZ9XniMhyclYJM+NAyeCeKNVUkl43mf64ip3DlhfcBYyzyZh +xM33B0IJd72a1okuJWGY+NIuHQ8OXJs1qcusIuH01Nv98YR9JM5tLW8kof7G +0PFBwt92KEfM9pPQw9hc9NAuDpRFHeAVeU/COmmrlkrCx7MeZ2hNk/DgqsSp +v4Stngho2P8iYeeN4yeNPTmwamR71V5uMkrMxJ4+QLhz2S37s6vIOJa/6tdN +wpnK39/mS5JR6uvx4deEvawgpI5CxrBEW5NFwur+iVwjGmTcWTe0StmLA9Px +/ZcWDcgY7VG0zZIw556ashyQMatEVcqb8NG2MI6xDRnXpj5xiiRsPl1r5bKV +jMJeX/iTCPOvFuoN8yCjy5yqaRbhl7puAZf8yTh8f+xbAeH0rXd+Fx8kI/++ +HOX7hHcdmj/fdpSMoWe6eosJq6aby0/GEs/rXhIq8vp/fi7e500m4+3SnNZ8 +wuyBN6aqmWScHddfdZVw1MLal+b5ZBysZnbHEzYjH/b2Kiajz3dQDyfMhw3f +o8vJOFD9hMeNcLu3yJlrdWS80gRBTMKXT++SqGgjY7amrY8cYfdbhQU9PWS0 +PuX3cY5YH6Vnv4zmRsj4o5G82EL404RVi8hnMtbu/ZefSbhEINVVe56Mog4p +I36ED68f+Wy/RMaA6oBSLcKmjprR+/gVcDxEROY78f3aLj3LuUVSQL8rCuxA +wqlscd16dQWUiS+cUCTs2u1dN6KrgMXlLlWdxHxMSC+8l7NWQDEDf1MNwg/o +NhG0zQq4V/XfTDsxbxHuV3i3uyrgUo6UTQhhnhs6Gin7FbA+z3Li//Pa+jS6 +6sERBZRtT9OnEk4ea7V/cUoBLZpG1jQS801W3xPCl66A5+znpHqIPNCLr3KO +1yjgL3khagORJ8ve9sXpZgVMHH32yJSwI9fyDZ6vFdD0z+FjD12I/Djt74cP +Crgve92bdCKP1kcVT5xcQUEXwXViOkR+nwtX3zQWoKD74MBoIpHvzfkuzd+E +KDgXcJRrfAsH3F4kiHhLU/D+XrJ+EtEHBxR+3DRbR8GnvMKXHxB9Ms9Obv6t +TcEQCW+Br/bE9964bqrUgIKHPwwOaBCOPehFVTKl4Mp7v1PSiT7KrG9t5t5C +wfnk1rNWRH81+OdM1UdQMGB2T9Mc0Yc2CzTRY0cpqPMyPvMP0ZftyV1Ug5MU +9HGbH1lgcqC/gv9k/jkK7n+Z0vrDhMjDf+GisVkUbKr1odcaEf1estHIuo6C +3y8wBu8R/ZxtOeb2r4mCZn39cUeI/lbqjz756DkF9dxqq82JftfkZreodVMw +sD/2RdtaIi/OJHfeCQp+5v10v0yFA0G/Zk42Cypipe/2hk8yxPof9JMcF1XE +j06R232I/YRvcqCQR1oRA/ZSf/ZIcuDWYH2PqZIiFiSe380R48DQk8vrH1IV +UYJLWBsFObApltaX60n8PzfENnuJDXqiMdpHSxWxq0Nh+bFRNnAlzDdkPFLE +D2QjxahhNrTz7HN9VKWI9kbcSeFv2RA47xQ706iIE1/1du7qZ0N+n8qg/4Ai +Do4ULK14ReyXOc1xzjxKWBVeu/s2sR//Xrd6SHObEkrZOZeZZbLhR7ZsjL6r +EqY4BLr2p7NhTlhVheaphB3hrqXBl9kwPUvbZ7lXCZv3qJxOJM4P76p8f7hG +K6GJvelMXhwbWu3KhOJvKeETZ/WXBqHE+SRwF7ybV8IRbeGov9ZsYBQW3bhy +RRnP9u+UTPrIgkFKYY7VNWXcInfR5Op7FkRduXt9LkcZxyYP/MkbZUFZTEGW +011ltIrxsn8wyAK9HTcyhKqV8UPkyrDCDhasXZGWHDeqjC1Rj931y1gg6Xn0 +ZMR6FXTk5xhcOMOCGVFbL5c6FYx9/Xy6S5oF7xO9XEJ51ZCsZDNyWKIUbL4e +tvlAVccexVeuJgIl8MWXL4xzYg3yzupVJxfeJ87/Utxn69Yil+mVV4NGhSD6 +Qu1CyVcNFMkQNKv4eAfk4x9splLX47X9093GgQWQsY62WsxfE98J08Ul1uRD +q6yZ4ewlLeSvCtxpujIP6PJ1ydo92vhUbFPI9L0cEOLJC/c+pYMkYkga+q4B +OUaBsVNNF9/WR6+8sDID+FXdHzk908UM1wBjq+w00GLKPDjsoYc5thy1x48v +QeiQaL0tlz4eZ0kfuTmZBF9nE7fZZOijC02+JHrrOdig3ZRpo2mAb/xVnod7 +xMKTWZO/P9sN0MejcGtSbgzsX6838GqPIY5sigoSsooG5vTurp38VMzo0229 +XX0YrFSkHQTzqNjxW1Qu0jsMOFONirvzqTi9QOPp3BIGKmVhPyoLqDgr1BZv +ZB4Gy207cgIKqbiCo7KdohwGdSFx3+s5VDT7diz4wIdQMK2aS496RkXWktbk +iqBQoDq9evfxCxUP/23PGj15ENacPH+kzsgIv0y03zyUHALVJrdW2NONcL1A +YMeXsBDY/LMmpZthhDeCzacit4fAkf3zRRNmRpglEdXWTQ6BZnevUSF7I+xp +LGCnFO+HABrV1s3LCBlGD5dLvg6Gu99H5ebijbDXxMh3ck0QaOyh1agOGKEO +yHuKie2Fi0qOf06/McI0uTAhg8UAmBv2MXw3ZIQsiUPr9nwMgCeuiYXXx4xw +7anhs7+qAsBp83C61JQRkoYeV7/bEwCRJrEH+LmM8dlD4FRX+0OzyCvFKVVj +XBzcH2gZ4Qd7ngSc4Rw0xtzHe5euSu6G6eDJw1bhxiidW7NCgGc3HCEFBfZE +GKOv67vs81994fyxEKdfR43xju4Fl8fNvlBCj6Aw4oxRb+WZBx+P+sLCo9PV +9ZmEP+4D6w8+kPLg+tzremN8l5nV+rbeG2pudO2ekaChpH5liom7J4zYK3pG +SNOQs9lOwJ7pCVy/g3f+laWht8Anx8NkTzDfwuu4gkLD02brZkmju6BpGd1I +RoOGYzs/p9313wVtPjn8ZqY0TK0RaLgb6QEDKvuKk/1oePfDodHnJW4wd2fp +p3YZDUH7q/Mt/x0w7mJ941wFDeWZ9mmnNu+AvuVJG8eqaGgofR/DaDugykv2 +6pVaGh6Q47l34b8dcErakL7YQsPuBBOLopLtsDp+37HWNzQs5OZpjvjnAuv9 +u7n2cNNxs/Nb+HJ7G/iqFvJnOtCxTzJZI157K0Q17tqntpmO35rGzDbIbYXk +PaLPWU50XPFEJ0iGdytU34pMfL6djqobeqp/DDmBuNpG4UVvOmYfXFuQetEJ +mtQ+iHtF0PE/a+9DNnNbQGONAkUth461SvpPmc83w4xGKpX1jY4rm+z+27HD +Afra0Epslo7mxdqf0+kOULt/emv4PB2XHXwy9l3eAS6wbA5S/9Cxl7q69feo +PWjQuYoqeUwwOOaJvE2wPfjYBCvWS5pgzxmZC4PxdtDlv2FVF8MEH7+4MwCd +NlCe/3d0Pt4EDSXVfpaUWAPVIvynbYIJCpZGnLtw1Roejn5ZdSPJBGUGvgbF +nLIGFnnIyDbFBK/SZMcKnK2hKKM26fo1E3y5fLxk+rcV3EiMpW0oNsHQ3Fuy +vhut4Fy48KWMThO8JqOXHThnAXxi8QVT3SZ4cfjO6s5hC4gr5ao27zPBVcvK +nzk8t4Az0zPjX96YIL289OmxPAs4HtDFMBs3wZnTfVo1Wywg1P3qxKdfJqi5 +ZsGjmW0OrpbKaEJmoEi79p2YWDNY7OITqqcwMHZ89ErBQTO4sWd60FaZgf1e +J38Oe5jBeFzFYdc1DKw5crPhItUMQls2PYjUY+CfFt/E0QmE847HyOXWDBQ3 +s5xibkGo3NG9YBDCwNrH4qQqL1Pw+FTZWn2QgZJJ7aODTFPgirqRYRnOQKPy +CAVFOVOwvhZo4BzJQBlzkRPSPUx4/XZZUNhpBm7vj1Evc2DCpI/WYGk6A98/ +3KSbbsEAueCzFVq1DPTMMpte2kiHC0t+hgl1DOxTaX0QtZ4O3CnWpR8bGPi0 +oPGhyGo6TD5acfdGCwNVqP3r0nppUMl1JkO0k4GWOg2CE/40cE07efjHBwZO +pXo7PkoyhoyqSMMn/zFxkA/SraaosMpxZ6msEBN9QxzWyHZR4eSIsebh1Uw8 +83dkBV8VFQJW/FLRkWDivPlae+1zVDDaFCGeR2bi5lczF++qUaHnXehsrC4T +ra5ui6H5GYKEQFCpw3YmHvrQ+kbrpz7kW0RHfdtJ3H9+siJkSB/0oi9YpLoz +sca0qLqtUR8cv5V093kzseJ+a+1Amj7E9cz/9g1ior/5yB0LA334lXfCPCqG +iU09rDCdI3owYJLaWVDIxMmVQxWPxHQh4FB+lk0xcb2beIX1Px34Ufxwz5cS +JtpXh0Z+ndABUaW+n7qPmDjQZdh7/okO2PGR5B/XMtFSr8h0fJ8OVHcV7O7s +ZiI3j1+CfrI22AqVa0b0MdHnuSW/c4A29G1o+SE9yETWWv3JPNSGucrP8btG +mNhfcUTs+YwWaObq3P80SbzfpcpacNGC6gGziMQpJnp5/xRt19YCW/GtoP2N +iTMUeZtz/Frgd/bQq/B5Jt7Rq8iPfawJc7VxmVK/mFh2f29QU7omnPqT7lv5 +h4lu2qHu+qGasNrg7nqPRSa6X9hh3WavCdeDK+eXlpj4rqLtb7K6JvwPj7ZB +IQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.07960026521006272}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2287,19 +6847,19 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.07960026521006272}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2313,220 +6873,139 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV1nk0lG8bB3BRWX4h+zpj7KXsDDNmXJe1rJWksmQrFFJIUSoVKZRQJBJJ +C4mZKWuRLSQqO2VJSYoSWsn7vH/N+Zwzz3Lu5/p+71vRJ8RpDzcXF5fNMi6u +///+GGppUEnIN4XMKRGDW9amXdelI836TsHX6OMJrxpVACU6fKT7UuDB9n7r +3EYDiNh8r5enLw9cjnSUH2+0BJFpqZTfvSxYedCl3qLRGYarHUPmeuug4jEt +9UTDbrBWmXw70/satDL9Jk49DYffvUaXv/W+g+wDYvuuPzwD9Ra381/lzUJ1 +1flnbI/LID9cMe6zfhGqp0OvkjAHxIM87/Fa8ODTrQ7LX+vlQ4qudZXjNj48 +cXbhbH3DHejP0KmdWS2I5KHyI10ZRZDZWSgcoSqIywcSrgbcKQJXIXXPPzRB +nP0uWzVbVgRvTpP+cfsKYvwn8sx0TxGM7BdgiD8UxKYDOU+OiN+HCcv3ZdSd +QijpJ3S9J+k+/PqW/uBorjBOjGe450UWQ0L+iQ5uGRGMc6bGe8mWgK3BXlEJ +ZRF0079jN0QpAb4Gp23qmiKYwq22bbt6CZwZUx20MxPBmA1bDE0MSuCYUtt4 +2l4R1Juk8bU6lMD+G9L/1CpF8PLA0WnukyWwJat0vZ2bKBpE8X/sHykBqbSx +c6nZYjg5ST3wIbUUpNc9PPOrQAzVtW43vMooBdm6uBMeJWK47Jv4s4rsUiB/ +W3tIvV4MV/HVdx67XQqq9ge8qibE0EylbrG9shT0ly9Sx/TF8XJzm8rNkVLY +FC75Xq9VHMN6i6/zrmXB5v8mhtI7xbHteHBLgCYLnPIq+hfeiKNFrkNaoy4L +XF66dzR9FcfsDev4Q+ks8Fh/s9JVQgJFjz/3u2LHgsD32pdOeUlgQ2UDa1Uw +C84625i+/iGB0ZHiM/eLWCDLaZflXiaJMqaxa7tLWFAs5vxT9z9JDPu8zPAn +hwU9r3eVXFKQRBWh9IZ1j1mgsiVcactGSRxZtlDn8oIFdQ45K19elcRjfmUa +nC8sWLSeb3/BkMJuYYXkRHU2JBdEFS5aS2Gvgr640Do2qKzkitfcIoWaBjGB +57XYYN8oYJa0RwrP6gemhRmyIdOCwra/IIWjFOcuXgs2GKNd+vNhKbwl9opu +7MGGMFquZ8spaQwYnz9fmcQG2xtCc3aJ0nj0IlewXzIblHiPxbdflsbhqbgu +wVQ2vOxyKe28I42LH0MMN2WwQevAKp6hdmk8pfx1Y1YeGyYKDhd8l5VBp5pJ +Qa9HbKgR/EA/pCKDt+v3HWooZ8OVcKeOn5oymJDQEqBSxQYrc81fCyiDTcbz +cz01bMh7+86G118GVdfIl6xsYYO7uOOUHFsG9YdvKVwaYIP+0aqY69UyGMpZ +OF78hg0C79ZIKjbJ4HSufuizITZUPOABtX4ZrK2NlPzyjg2SdhXJOksyePy7 +tR/XZ+L9Y1QMrOxkUSZgxe1tf9hg+fVP1P4xWbyiAwplEhyI3Jim8fSLLH5i +iTmhFAeKczUHxH7IolpJ/Y5GaQ5IO3vRKvjkkOda7Ps6OQ58KW/8yaMlh2Lm +5/kTFTmQeio5/OoROUwL69Lcvp4DzYNrVb7EyOHVslPz2ZocWDCo7zRNkMOV +PR+zRrQ44PdxXu99thz+C1lI2qnLAbq924xWvRwuNeYKy1I58E5CbX+DoDw+ +9ny6oceUA1IhNSQpKXksP7k8aBA4YN+848Veijy2tWlGv0EOPIpKWC+sL48W +okV7X5tz4Pzwt8mdO+TR8tv06SRrDtQYn88s8pbHcIHv6qEbODB3Sdl2aZ88 +JpRP1zht5MAuS5e7+dHyyHc2ooPXlgN6d6v8v+bJ4/LfB+PMHDjgz71NyrxI +Hr9/nhxb4ciBLLfpprSH8pjr+JTRRHilkKIavVkeFd9sek/fzIGB0Lj3Z6bk +MWJ1leqcEweE2xTSen/I47Kut0cytnLAUrXCQoOLhDF1qzuMnYn17v2c1yFK +Qv+L6fHB2zgQw9jiLWtMwgf6S3a3t3Ng467r343MSXjiTfUEdQcHhE5+Pr3N +noQdZNLbp4Sz6mMLkr1I+Ftl6VXLTg74fnhtVLyPhLM9it3WrhzQ4KW0PA8n +oenCGsMawuW2lZ9XniMhyclYJM+NAyeCeKNVUkl43mf64ip3DlhfcBYyzyZh +xM33B0IJd72a1okuJWGY+NIuHQ8OXJs1qcusIuH01Nv98YR9JM5tLW8kof7G +0PFBwt92KEfM9pPQw9hc9NAuDpRFHeAVeU/COmmrlkrCx7MeZ2hNk/DgqsSp +v4Stngho2P8iYeeN4yeNPTmwamR71V5uMkrMxJ4+QLhz2S37s6vIOJa/6tdN +wpnK39/mS5JR6uvx4deEvawgpI5CxrBEW5NFwur+iVwjGmTcWTe0StmLA9Px +/ZcWDcgY7VG0zZIw556ashyQMatEVcqb8NG2MI6xDRnXpj5xiiRsPl1r5bKV +jMJeX/iTCPOvFuoN8yCjy5yqaRbhl7puAZf8yTh8f+xbAeH0rXd+Fx8kI/++ +HOX7hHcdmj/fdpSMoWe6eosJq6aby0/GEs/rXhIq8vp/fi7e500m4+3SnNZ8 +wuyBN6aqmWScHddfdZVw1MLal+b5ZBysZnbHEzYjH/b2Kiajz3dQDyfMhw3f +o8vJOFD9hMeNcLu3yJlrdWS80gRBTMKXT++SqGgjY7amrY8cYfdbhQU9PWS0 +PuX3cY5YH6Vnv4zmRsj4o5G82EL404RVi8hnMtbu/ZefSbhEINVVe56Mog4p +I36ED68f+Wy/RMaA6oBSLcKmjprR+/gVcDxEROY78f3aLj3LuUVSQL8rCuxA +wqlscd16dQWUiS+cUCTs2u1dN6KrgMXlLlWdxHxMSC+8l7NWQDEDf1MNwg/o +NhG0zQq4V/XfTDsxbxHuV3i3uyrgUo6UTQhhnhs6Gin7FbA+z3Li//Pa+jS6 +6sERBZRtT9OnEk4ea7V/cUoBLZpG1jQS801W3xPCl66A5+znpHqIPNCLr3KO +1yjgL3khagORJ8ve9sXpZgVMHH32yJSwI9fyDZ6vFdD0z+FjD12I/Djt74cP +Crgve92bdCKP1kcVT5xcQUEXwXViOkR+nwtX3zQWoKD74MBoIpHvzfkuzd+E +KDgXcJRrfAsH3F4kiHhLU/D+XrJ+EtEHBxR+3DRbR8GnvMKXHxB9Ms9Obv6t +TcEQCW+Br/bE9964bqrUgIKHPwwOaBCOPehFVTKl4Mp7v1PSiT7KrG9t5t5C +wfnk1rNWRH81+OdM1UdQMGB2T9Mc0Yc2CzTRY0cpqPMyPvMP0ZftyV1Ug5MU +9HGbH1lgcqC/gv9k/jkK7n+Z0vrDhMjDf+GisVkUbKr1odcaEf1estHIuo6C +3y8wBu8R/ZxtOeb2r4mCZn39cUeI/lbqjz756DkF9dxqq82JftfkZreodVMw +sD/2RdtaIi/OJHfeCQp+5v10v0yFA0G/Zk42Cypipe/2hk8yxPof9JMcF1XE +j06R232I/YRvcqCQR1oRA/ZSf/ZIcuDWYH2PqZIiFiSe380R48DQk8vrH1IV +UYJLWBsFObApltaX60n8PzfENnuJDXqiMdpHSxWxq0Nh+bFRNnAlzDdkPFLE +D2QjxahhNrTz7HN9VKWI9kbcSeFv2RA47xQ706iIE1/1du7qZ0N+n8qg/4Ai +Do4ULK14ReyXOc1xzjxKWBVeu/s2sR//Xrd6SHObEkrZOZeZZbLhR7ZsjL6r +EqY4BLr2p7NhTlhVheaphB3hrqXBl9kwPUvbZ7lXCZv3qJxOJM4P76p8f7hG +K6GJvelMXhwbWu3KhOJvKeETZ/WXBqHE+SRwF7ybV8IRbeGov9ZsYBQW3bhy +RRnP9u+UTPrIgkFKYY7VNWXcInfR5Op7FkRduXt9LkcZxyYP/MkbZUFZTEGW +011ltIrxsn8wyAK9HTcyhKqV8UPkyrDCDhasXZGWHDeqjC1Rj931y1gg6Xn0 +ZMR6FXTk5xhcOMOCGVFbL5c6FYx9/Xy6S5oF7xO9XEJ51ZCsZDNyWKIUbL4e +tvlAVccexVeuJgIl8MWXL4xzYg3yzupVJxfeJ87/Utxn69Yil+mVV4NGhSD6 +Qu1CyVcNFMkQNKv4eAfk4x9splLX47X9093GgQWQsY62WsxfE98J08Ul1uRD +q6yZ4ewlLeSvCtxpujIP6PJ1ydo92vhUbFPI9L0cEOLJC/c+pYMkYkga+q4B +OUaBsVNNF9/WR6+8sDID+FXdHzk908UM1wBjq+w00GLKPDjsoYc5thy1x48v +QeiQaL0tlz4eZ0kfuTmZBF9nE7fZZOijC02+JHrrOdig3ZRpo2mAb/xVnod7 +xMKTWZO/P9sN0MejcGtSbgzsX6838GqPIY5sigoSsooG5vTurp38VMzo0229 +XX0YrFSkHQTzqNjxW1Qu0jsMOFONirvzqTi9QOPp3BIGKmVhPyoLqDgr1BZv +ZB4Gy207cgIKqbiCo7KdohwGdSFx3+s5VDT7diz4wIdQMK2aS496RkXWktbk +iqBQoDq9evfxCxUP/23PGj15ENacPH+kzsgIv0y03zyUHALVJrdW2NONcL1A +YMeXsBDY/LMmpZthhDeCzacit4fAkf3zRRNmRpglEdXWTQ6BZnevUSF7I+xp +LGCnFO+HABrV1s3LCBlGD5dLvg6Gu99H5ebijbDXxMh3ck0QaOyh1agOGKEO +yHuKie2Fi0qOf06/McI0uTAhg8UAmBv2MXw3ZIQsiUPr9nwMgCeuiYXXx4xw +7anhs7+qAsBp83C61JQRkoYeV7/bEwCRJrEH+LmM8dlD4FRX+0OzyCvFKVVj +XBzcH2gZ4Qd7ngSc4Rw0xtzHe5euSu6G6eDJw1bhxiidW7NCgGc3HCEFBfZE +GKOv67vs81994fyxEKdfR43xju4Fl8fNvlBCj6Aw4oxRb+WZBx+P+sLCo9PV +9ZmEP+4D6w8+kPLg+tzremN8l5nV+rbeG2pudO2ekaChpH5liom7J4zYK3pG +SNOQs9lOwJ7pCVy/g3f+laWht8Anx8NkTzDfwuu4gkLD02brZkmju6BpGd1I +RoOGYzs/p9313wVtPjn8ZqY0TK0RaLgb6QEDKvuKk/1oePfDodHnJW4wd2fp +p3YZDUH7q/Mt/x0w7mJ941wFDeWZ9mmnNu+AvuVJG8eqaGgofR/DaDugykv2 +6pVaGh6Q47l34b8dcErakL7YQsPuBBOLopLtsDp+37HWNzQs5OZpjvjnAuv9 +u7n2cNNxs/Nb+HJ7G/iqFvJnOtCxTzJZI157K0Q17tqntpmO35rGzDbIbYXk +PaLPWU50XPFEJ0iGdytU34pMfL6djqobeqp/DDmBuNpG4UVvOmYfXFuQetEJ +mtQ+iHtF0PE/a+9DNnNbQGONAkUth461SvpPmc83w4xGKpX1jY4rm+z+27HD +Afra0Epslo7mxdqf0+kOULt/emv4PB2XHXwy9l3eAS6wbA5S/9Cxl7q69feo +PWjQuYoqeUwwOOaJvE2wPfjYBCvWS5pgzxmZC4PxdtDlv2FVF8MEH7+4MwCd +NlCe/3d0Pt4EDSXVfpaUWAPVIvynbYIJCpZGnLtw1Roejn5ZdSPJBGUGvgbF +nLIGFnnIyDbFBK/SZMcKnK2hKKM26fo1E3y5fLxk+rcV3EiMpW0oNsHQ3Fuy +vhut4Fy48KWMThO8JqOXHThnAXxi8QVT3SZ4cfjO6s5hC4gr5ao27zPBVcvK +nzk8t4Az0zPjX96YIL289OmxPAs4HtDFMBs3wZnTfVo1Wywg1P3qxKdfJqi5 +ZsGjmW0OrpbKaEJmoEi79p2YWDNY7OITqqcwMHZ89ErBQTO4sWd60FaZgf1e +J38Oe5jBeFzFYdc1DKw5crPhItUMQls2PYjUY+CfFt/E0QmE847HyOXWDBQ3 +s5xibkGo3NG9YBDCwNrH4qQqL1Pw+FTZWn2QgZJJ7aODTFPgirqRYRnOQKPy +CAVFOVOwvhZo4BzJQBlzkRPSPUx4/XZZUNhpBm7vj1Evc2DCpI/WYGk6A98/ +3KSbbsEAueCzFVq1DPTMMpte2kiHC0t+hgl1DOxTaX0QtZ4O3CnWpR8bGPi0 +oPGhyGo6TD5acfdGCwNVqP3r0nppUMl1JkO0k4GWOg2CE/40cE07efjHBwZO +pXo7PkoyhoyqSMMn/zFxkA/SraaosMpxZ6msEBN9QxzWyHZR4eSIsebh1Uw8 +83dkBV8VFQJW/FLRkWDivPlae+1zVDDaFCGeR2bi5lczF++qUaHnXehsrC4T +ra5ui6H5GYKEQFCpw3YmHvrQ+kbrpz7kW0RHfdtJ3H9+siJkSB/0oi9YpLoz +sca0qLqtUR8cv5V093kzseJ+a+1Amj7E9cz/9g1ior/5yB0LA334lXfCPCqG +iU09rDCdI3owYJLaWVDIxMmVQxWPxHQh4FB+lk0xcb2beIX1Px34Ufxwz5cS +JtpXh0Z+ndABUaW+n7qPmDjQZdh7/okO2PGR5B/XMtFSr8h0fJ8OVHcV7O7s +ZiI3j1+CfrI22AqVa0b0MdHnuSW/c4A29G1o+SE9yETWWv3JPNSGucrP8btG +mNhfcUTs+YwWaObq3P80SbzfpcpacNGC6gGziMQpJnp5/xRt19YCW/GtoP2N +iTMUeZtz/Frgd/bQq/B5Jt7Rq8iPfawJc7VxmVK/mFh2f29QU7omnPqT7lv5 +h4lu2qHu+qGasNrg7nqPRSa6X9hh3WavCdeDK+eXlpj4rqLtb7K6JvwPj7ZB +IQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.07960026521006272}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2537,6 +7016,7 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2564,7 +7044,8 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07960026521006272}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2572,25 +7053,935 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991340117671425*^9}, - CellLabel-> - "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] + CellChangeTimes->{3.991340117671425*^9, 3.9938506753540287`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"480b959a-4ade-4c9b-bc63-5a4b9bd59a7a"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ -2bd9764114a1"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.011071"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.031476"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.049865"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.064634"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.074128"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.079917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.081589"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.07959"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.075388"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.069397"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.062354"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.055005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.047683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.040719"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.034333"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.028605"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.023579"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.019247"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.015565"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.012478"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.009921"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.007825"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.006123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.004756"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.003667"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.002807"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.002134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.001611"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.001208"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.0009"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000667"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993849923953776*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.081589}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993850675509178*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"a32a2954-e12e-408a-9880-3836c37c42bc"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ -0ac982b58a3a"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0lG8bB3BRWX4h+zpj7KXsDDNmXJe1rJWksmQrFFJIUSoVKZRQJBJJ +C4mZKWuRLSQqO2VJSYoSWsn7vH/N+Zwzz3Lu5/p+71vRJ8RpDzcXF5fNMi6u +///+GGppUEnIN4XMKRGDW9amXdelI836TsHX6OMJrxpVACU6fKT7UuDB9n7r +3EYDiNh8r5enLw9cjnSUH2+0BJFpqZTfvSxYedCl3qLRGYarHUPmeuug4jEt +9UTDbrBWmXw70/satDL9Jk49DYffvUaXv/W+g+wDYvuuPzwD9Ra381/lzUJ1 +1flnbI/LID9cMe6zfhGqp0OvkjAHxIM87/Fa8ODTrQ7LX+vlQ4qudZXjNj48 +cXbhbH3DHejP0KmdWS2I5KHyI10ZRZDZWSgcoSqIywcSrgbcKQJXIXXPPzRB +nP0uWzVbVgRvTpP+cfsKYvwn8sx0TxGM7BdgiD8UxKYDOU+OiN+HCcv3ZdSd +QijpJ3S9J+k+/PqW/uBorjBOjGe450UWQ0L+iQ5uGRGMc6bGe8mWgK3BXlEJ +ZRF0079jN0QpAb4Gp23qmiKYwq22bbt6CZwZUx20MxPBmA1bDE0MSuCYUtt4 +2l4R1Juk8bU6lMD+G9L/1CpF8PLA0WnukyWwJat0vZ2bKBpE8X/sHykBqbSx +c6nZYjg5ST3wIbUUpNc9PPOrQAzVtW43vMooBdm6uBMeJWK47Jv4s4rsUiB/ +W3tIvV4MV/HVdx67XQqq9ge8qibE0EylbrG9shT0ly9Sx/TF8XJzm8rNkVLY +FC75Xq9VHMN6i6/zrmXB5v8mhtI7xbHteHBLgCYLnPIq+hfeiKNFrkNaoy4L +XF66dzR9FcfsDev4Q+ks8Fh/s9JVQgJFjz/3u2LHgsD32pdOeUlgQ2UDa1Uw +C84625i+/iGB0ZHiM/eLWCDLaZflXiaJMqaxa7tLWFAs5vxT9z9JDPu8zPAn +hwU9r3eVXFKQRBWh9IZ1j1mgsiVcactGSRxZtlDn8oIFdQ45K19elcRjfmUa +nC8sWLSeb3/BkMJuYYXkRHU2JBdEFS5aS2Gvgr640Do2qKzkitfcIoWaBjGB +57XYYN8oYJa0RwrP6gemhRmyIdOCwra/IIWjFOcuXgs2GKNd+vNhKbwl9opu +7MGGMFquZ8spaQwYnz9fmcQG2xtCc3aJ0nj0IlewXzIblHiPxbdflsbhqbgu +wVQ2vOxyKe28I42LH0MMN2WwQevAKp6hdmk8pfx1Y1YeGyYKDhd8l5VBp5pJ +Qa9HbKgR/EA/pCKDt+v3HWooZ8OVcKeOn5oymJDQEqBSxQYrc81fCyiDTcbz +cz01bMh7+86G118GVdfIl6xsYYO7uOOUHFsG9YdvKVwaYIP+0aqY69UyGMpZ +OF78hg0C79ZIKjbJ4HSufuizITZUPOABtX4ZrK2NlPzyjg2SdhXJOksyePy7 +tR/XZ+L9Y1QMrOxkUSZgxe1tf9hg+fVP1P4xWbyiAwplEhyI3Jim8fSLLH5i +iTmhFAeKczUHxH7IolpJ/Y5GaQ5IO3vRKvjkkOda7Ps6OQ58KW/8yaMlh2Lm +5/kTFTmQeio5/OoROUwL69Lcvp4DzYNrVb7EyOHVslPz2ZocWDCo7zRNkMOV +PR+zRrQ44PdxXu99thz+C1lI2qnLAbq924xWvRwuNeYKy1I58E5CbX+DoDw+ +9ny6oceUA1IhNSQpKXksP7k8aBA4YN+848Veijy2tWlGv0EOPIpKWC+sL48W +okV7X5tz4Pzwt8mdO+TR8tv06SRrDtQYn88s8pbHcIHv6qEbODB3Sdl2aZ88 +JpRP1zht5MAuS5e7+dHyyHc2ooPXlgN6d6v8v+bJ4/LfB+PMHDjgz71NyrxI +Hr9/nhxb4ciBLLfpprSH8pjr+JTRRHilkKIavVkeFd9sek/fzIGB0Lj3Z6bk +MWJ1leqcEweE2xTSen/I47Kut0cytnLAUrXCQoOLhDF1qzuMnYn17v2c1yFK +Qv+L6fHB2zgQw9jiLWtMwgf6S3a3t3Ng467r343MSXjiTfUEdQcHhE5+Pr3N +noQdZNLbp4Sz6mMLkr1I+Ftl6VXLTg74fnhtVLyPhLM9it3WrhzQ4KW0PA8n +oenCGsMawuW2lZ9XniMhyclYJM+NAyeCeKNVUkl43mf64ip3DlhfcBYyzyZh +xM33B0IJd72a1okuJWGY+NIuHQ8OXJs1qcusIuH01Nv98YR9JM5tLW8kof7G +0PFBwt92KEfM9pPQw9hc9NAuDpRFHeAVeU/COmmrlkrCx7MeZ2hNk/DgqsSp +v4Stngho2P8iYeeN4yeNPTmwamR71V5uMkrMxJ4+QLhz2S37s6vIOJa/6tdN +wpnK39/mS5JR6uvx4deEvawgpI5CxrBEW5NFwur+iVwjGmTcWTe0StmLA9Px +/ZcWDcgY7VG0zZIw556ashyQMatEVcqb8NG2MI6xDRnXpj5xiiRsPl1r5bKV +jMJeX/iTCPOvFuoN8yCjy5yqaRbhl7puAZf8yTh8f+xbAeH0rXd+Fx8kI/++ +HOX7hHcdmj/fdpSMoWe6eosJq6aby0/GEs/rXhIq8vp/fi7e500m4+3SnNZ8 +wuyBN6aqmWScHddfdZVw1MLal+b5ZBysZnbHEzYjH/b2Kiajz3dQDyfMhw3f +o8vJOFD9hMeNcLu3yJlrdWS80gRBTMKXT++SqGgjY7amrY8cYfdbhQU9PWS0 +PuX3cY5YH6Vnv4zmRsj4o5G82EL404RVi8hnMtbu/ZefSbhEINVVe56Mog4p +I36ED68f+Wy/RMaA6oBSLcKmjprR+/gVcDxEROY78f3aLj3LuUVSQL8rCuxA +wqlscd16dQWUiS+cUCTs2u1dN6KrgMXlLlWdxHxMSC+8l7NWQDEDf1MNwg/o +NhG0zQq4V/XfTDsxbxHuV3i3uyrgUo6UTQhhnhs6Gin7FbA+z3Li//Pa+jS6 +6sERBZRtT9OnEk4ea7V/cUoBLZpG1jQS801W3xPCl66A5+znpHqIPNCLr3KO +1yjgL3khagORJ8ve9sXpZgVMHH32yJSwI9fyDZ6vFdD0z+FjD12I/Djt74cP +Crgve92bdCKP1kcVT5xcQUEXwXViOkR+nwtX3zQWoKD74MBoIpHvzfkuzd+E +KDgXcJRrfAsH3F4kiHhLU/D+XrJ+EtEHBxR+3DRbR8GnvMKXHxB9Ms9Obv6t +TcEQCW+Br/bE9964bqrUgIKHPwwOaBCOPehFVTKl4Mp7v1PSiT7KrG9t5t5C +wfnk1rNWRH81+OdM1UdQMGB2T9Mc0Yc2CzTRY0cpqPMyPvMP0ZftyV1Ug5MU +9HGbH1lgcqC/gv9k/jkK7n+Z0vrDhMjDf+GisVkUbKr1odcaEf1estHIuo6C +3y8wBu8R/ZxtOeb2r4mCZn39cUeI/lbqjz756DkF9dxqq82JftfkZreodVMw +sD/2RdtaIi/OJHfeCQp+5v10v0yFA0G/Zk42Cypipe/2hk8yxPof9JMcF1XE +j06R232I/YRvcqCQR1oRA/ZSf/ZIcuDWYH2PqZIiFiSe380R48DQk8vrH1IV +UYJLWBsFObApltaX60n8PzfENnuJDXqiMdpHSxWxq0Nh+bFRNnAlzDdkPFLE +D2QjxahhNrTz7HN9VKWI9kbcSeFv2RA47xQ706iIE1/1du7qZ0N+n8qg/4Ai +Do4ULK14ReyXOc1xzjxKWBVeu/s2sR//Xrd6SHObEkrZOZeZZbLhR7ZsjL6r +EqY4BLr2p7NhTlhVheaphB3hrqXBl9kwPUvbZ7lXCZv3qJxOJM4P76p8f7hG +K6GJvelMXhwbWu3KhOJvKeETZ/WXBqHE+SRwF7ybV8IRbeGov9ZsYBQW3bhy +RRnP9u+UTPrIgkFKYY7VNWXcInfR5Op7FkRduXt9LkcZxyYP/MkbZUFZTEGW +011ltIrxsn8wyAK9HTcyhKqV8UPkyrDCDhasXZGWHDeqjC1Rj931y1gg6Xn0 +ZMR6FXTk5xhcOMOCGVFbL5c6FYx9/Xy6S5oF7xO9XEJ51ZCsZDNyWKIUbL4e +tvlAVccexVeuJgIl8MWXL4xzYg3yzupVJxfeJ87/Utxn69Yil+mVV4NGhSD6 +Qu1CyVcNFMkQNKv4eAfk4x9splLX47X9093GgQWQsY62WsxfE98J08Ul1uRD +q6yZ4ewlLeSvCtxpujIP6PJ1ydo92vhUbFPI9L0cEOLJC/c+pYMkYkga+q4B +OUaBsVNNF9/WR6+8sDID+FXdHzk908UM1wBjq+w00GLKPDjsoYc5thy1x48v +QeiQaL0tlz4eZ0kfuTmZBF9nE7fZZOijC02+JHrrOdig3ZRpo2mAb/xVnod7 +xMKTWZO/P9sN0MejcGtSbgzsX6838GqPIY5sigoSsooG5vTurp38VMzo0229 +XX0YrFSkHQTzqNjxW1Qu0jsMOFONirvzqTi9QOPp3BIGKmVhPyoLqDgr1BZv +ZB4Gy207cgIKqbiCo7KdohwGdSFx3+s5VDT7diz4wIdQMK2aS496RkXWktbk +iqBQoDq9evfxCxUP/23PGj15ENacPH+kzsgIv0y03zyUHALVJrdW2NONcL1A +YMeXsBDY/LMmpZthhDeCzacit4fAkf3zRRNmRpglEdXWTQ6BZnevUSF7I+xp +LGCnFO+HABrV1s3LCBlGD5dLvg6Gu99H5ebijbDXxMh3ck0QaOyh1agOGKEO +yHuKie2Fi0qOf06/McI0uTAhg8UAmBv2MXw3ZIQsiUPr9nwMgCeuiYXXx4xw +7anhs7+qAsBp83C61JQRkoYeV7/bEwCRJrEH+LmM8dlD4FRX+0OzyCvFKVVj +XBzcH2gZ4Qd7ngSc4Rw0xtzHe5euSu6G6eDJw1bhxiidW7NCgGc3HCEFBfZE +GKOv67vs81994fyxEKdfR43xju4Fl8fNvlBCj6Aw4oxRb+WZBx+P+sLCo9PV +9ZmEP+4D6w8+kPLg+tzremN8l5nV+rbeG2pudO2ekaChpH5liom7J4zYK3pG +SNOQs9lOwJ7pCVy/g3f+laWht8Anx8NkTzDfwuu4gkLD02brZkmju6BpGd1I +RoOGYzs/p9313wVtPjn8ZqY0TK0RaLgb6QEDKvuKk/1oePfDodHnJW4wd2fp +p3YZDUH7q/Mt/x0w7mJ941wFDeWZ9mmnNu+AvuVJG8eqaGgofR/DaDugykv2 +6pVaGh6Q47l34b8dcErakL7YQsPuBBOLopLtsDp+37HWNzQs5OZpjvjnAuv9 +u7n2cNNxs/Nb+HJ7G/iqFvJnOtCxTzJZI157K0Q17tqntpmO35rGzDbIbYXk +PaLPWU50XPFEJ0iGdytU34pMfL6djqobeqp/DDmBuNpG4UVvOmYfXFuQetEJ +mtQ+iHtF0PE/a+9DNnNbQGONAkUth461SvpPmc83w4xGKpX1jY4rm+z+27HD +Afra0Epslo7mxdqf0+kOULt/emv4PB2XHXwy9l3eAS6wbA5S/9Cxl7q69feo +PWjQuYoqeUwwOOaJvE2wPfjYBCvWS5pgzxmZC4PxdtDlv2FVF8MEH7+4MwCd +NlCe/3d0Pt4EDSXVfpaUWAPVIvynbYIJCpZGnLtw1Roejn5ZdSPJBGUGvgbF +nLIGFnnIyDbFBK/SZMcKnK2hKKM26fo1E3y5fLxk+rcV3EiMpW0oNsHQ3Fuy +vhut4Fy48KWMThO8JqOXHThnAXxi8QVT3SZ4cfjO6s5hC4gr5ao27zPBVcvK +nzk8t4Az0zPjX96YIL289OmxPAs4HtDFMBs3wZnTfVo1Wywg1P3qxKdfJqi5 +ZsGjmW0OrpbKaEJmoEi79p2YWDNY7OITqqcwMHZ89ErBQTO4sWd60FaZgf1e +J38Oe5jBeFzFYdc1DKw5crPhItUMQls2PYjUY+CfFt/E0QmE847HyOXWDBQ3 +s5xibkGo3NG9YBDCwNrH4qQqL1Pw+FTZWn2QgZJJ7aODTFPgirqRYRnOQKPy +CAVFOVOwvhZo4BzJQBlzkRPSPUx4/XZZUNhpBm7vj1Evc2DCpI/WYGk6A98/ +3KSbbsEAueCzFVq1DPTMMpte2kiHC0t+hgl1DOxTaX0QtZ4O3CnWpR8bGPi0 +oPGhyGo6TD5acfdGCwNVqP3r0nppUMl1JkO0k4GWOg2CE/40cE07efjHBwZO +pXo7PkoyhoyqSMMn/zFxkA/SraaosMpxZ6msEBN9QxzWyHZR4eSIsebh1Uw8 +83dkBV8VFQJW/FLRkWDivPlae+1zVDDaFCGeR2bi5lczF++qUaHnXehsrC4T +ra5ui6H5GYKEQFCpw3YmHvrQ+kbrpz7kW0RHfdtJ3H9+siJkSB/0oi9YpLoz +sca0qLqtUR8cv5V093kzseJ+a+1Amj7E9cz/9g1ior/5yB0LA334lXfCPCqG +iU09rDCdI3owYJLaWVDIxMmVQxWPxHQh4FB+lk0xcb2beIX1Px34Ufxwz5cS +JtpXh0Z+ndABUaW+n7qPmDjQZdh7/okO2PGR5B/XMtFSr8h0fJ8OVHcV7O7s +ZiI3j1+CfrI22AqVa0b0MdHnuSW/c4A29G1o+SE9yETWWv3JPNSGucrP8btG +mNhfcUTs+YwWaObq3P80SbzfpcpacNGC6gGziMQpJnp5/xRt19YCW/GtoP2N +iTMUeZtz/Frgd/bQq/B5Jt7Rq8iPfawJc7VxmVK/mFh2f29QU7omnPqT7lv5 +h4lu2qHu+qGasNrg7nqPRSa6X9hh3WavCdeDK+eXlpj4rqLtb7K6JvwPj7ZB +IQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0lG8bB3BRWX4h+zpj7KXsDDNmXJe1rJWksmQrFFJIUSoVKZRQJBJJ +C4mZKWuRLSQqO2VJSYoSWsn7vH/N+Zwzz3Lu5/p+71vRJ8RpDzcXF5fNMi6u +///+GGppUEnIN4XMKRGDW9amXdelI836TsHX6OMJrxpVACU6fKT7UuDB9n7r +3EYDiNh8r5enLw9cjnSUH2+0BJFpqZTfvSxYedCl3qLRGYarHUPmeuug4jEt +9UTDbrBWmXw70/satDL9Jk49DYffvUaXv/W+g+wDYvuuPzwD9Ra381/lzUJ1 +1flnbI/LID9cMe6zfhGqp0OvkjAHxIM87/Fa8ODTrQ7LX+vlQ4qudZXjNj48 +cXbhbH3DHejP0KmdWS2I5KHyI10ZRZDZWSgcoSqIywcSrgbcKQJXIXXPPzRB +nP0uWzVbVgRvTpP+cfsKYvwn8sx0TxGM7BdgiD8UxKYDOU+OiN+HCcv3ZdSd +QijpJ3S9J+k+/PqW/uBorjBOjGe450UWQ0L+iQ5uGRGMc6bGe8mWgK3BXlEJ +ZRF0079jN0QpAb4Gp23qmiKYwq22bbt6CZwZUx20MxPBmA1bDE0MSuCYUtt4 +2l4R1Juk8bU6lMD+G9L/1CpF8PLA0WnukyWwJat0vZ2bKBpE8X/sHykBqbSx +c6nZYjg5ST3wIbUUpNc9PPOrQAzVtW43vMooBdm6uBMeJWK47Jv4s4rsUiB/ +W3tIvV4MV/HVdx67XQqq9ge8qibE0EylbrG9shT0ly9Sx/TF8XJzm8rNkVLY +FC75Xq9VHMN6i6/zrmXB5v8mhtI7xbHteHBLgCYLnPIq+hfeiKNFrkNaoy4L +XF66dzR9FcfsDev4Q+ks8Fh/s9JVQgJFjz/3u2LHgsD32pdOeUlgQ2UDa1Uw +C84625i+/iGB0ZHiM/eLWCDLaZflXiaJMqaxa7tLWFAs5vxT9z9JDPu8zPAn +hwU9r3eVXFKQRBWh9IZ1j1mgsiVcactGSRxZtlDn8oIFdQ45K19elcRjfmUa +nC8sWLSeb3/BkMJuYYXkRHU2JBdEFS5aS2Gvgr640Do2qKzkitfcIoWaBjGB +57XYYN8oYJa0RwrP6gemhRmyIdOCwra/IIWjFOcuXgs2GKNd+vNhKbwl9opu +7MGGMFquZ8spaQwYnz9fmcQG2xtCc3aJ0nj0IlewXzIblHiPxbdflsbhqbgu +wVQ2vOxyKe28I42LH0MMN2WwQevAKp6hdmk8pfx1Y1YeGyYKDhd8l5VBp5pJ +Qa9HbKgR/EA/pCKDt+v3HWooZ8OVcKeOn5oymJDQEqBSxQYrc81fCyiDTcbz +cz01bMh7+86G118GVdfIl6xsYYO7uOOUHFsG9YdvKVwaYIP+0aqY69UyGMpZ +OF78hg0C79ZIKjbJ4HSufuizITZUPOABtX4ZrK2NlPzyjg2SdhXJOksyePy7 +tR/XZ+L9Y1QMrOxkUSZgxe1tf9hg+fVP1P4xWbyiAwplEhyI3Jim8fSLLH5i +iTmhFAeKczUHxH7IolpJ/Y5GaQ5IO3vRKvjkkOda7Ps6OQ58KW/8yaMlh2Lm +5/kTFTmQeio5/OoROUwL69Lcvp4DzYNrVb7EyOHVslPz2ZocWDCo7zRNkMOV +PR+zRrQ44PdxXu99thz+C1lI2qnLAbq924xWvRwuNeYKy1I58E5CbX+DoDw+ +9ny6oceUA1IhNSQpKXksP7k8aBA4YN+848Veijy2tWlGv0EOPIpKWC+sL48W +okV7X5tz4Pzwt8mdO+TR8tv06SRrDtQYn88s8pbHcIHv6qEbODB3Sdl2aZ88 +JpRP1zht5MAuS5e7+dHyyHc2ooPXlgN6d6v8v+bJ4/LfB+PMHDjgz71NyrxI +Hr9/nhxb4ciBLLfpprSH8pjr+JTRRHilkKIavVkeFd9sek/fzIGB0Lj3Z6bk +MWJ1leqcEweE2xTSen/I47Kut0cytnLAUrXCQoOLhDF1qzuMnYn17v2c1yFK +Qv+L6fHB2zgQw9jiLWtMwgf6S3a3t3Ng467r343MSXjiTfUEdQcHhE5+Pr3N +noQdZNLbp4Sz6mMLkr1I+Ftl6VXLTg74fnhtVLyPhLM9it3WrhzQ4KW0PA8n +oenCGsMawuW2lZ9XniMhyclYJM+NAyeCeKNVUkl43mf64ip3DlhfcBYyzyZh +xM33B0IJd72a1okuJWGY+NIuHQ8OXJs1qcusIuH01Nv98YR9JM5tLW8kof7G +0PFBwt92KEfM9pPQw9hc9NAuDpRFHeAVeU/COmmrlkrCx7MeZ2hNk/DgqsSp +v4Stngho2P8iYeeN4yeNPTmwamR71V5uMkrMxJ4+QLhz2S37s6vIOJa/6tdN +wpnK39/mS5JR6uvx4deEvawgpI5CxrBEW5NFwur+iVwjGmTcWTe0StmLA9Px +/ZcWDcgY7VG0zZIw556ashyQMatEVcqb8NG2MI6xDRnXpj5xiiRsPl1r5bKV +jMJeX/iTCPOvFuoN8yCjy5yqaRbhl7puAZf8yTh8f+xbAeH0rXd+Fx8kI/++ +HOX7hHcdmj/fdpSMoWe6eosJq6aby0/GEs/rXhIq8vp/fi7e500m4+3SnNZ8 +wuyBN6aqmWScHddfdZVw1MLal+b5ZBysZnbHEzYjH/b2Kiajz3dQDyfMhw3f +o8vJOFD9hMeNcLu3yJlrdWS80gRBTMKXT++SqGgjY7amrY8cYfdbhQU9PWS0 +PuX3cY5YH6Vnv4zmRsj4o5G82EL404RVi8hnMtbu/ZefSbhEINVVe56Mog4p +I36ED68f+Wy/RMaA6oBSLcKmjprR+/gVcDxEROY78f3aLj3LuUVSQL8rCuxA +wqlscd16dQWUiS+cUCTs2u1dN6KrgMXlLlWdxHxMSC+8l7NWQDEDf1MNwg/o +NhG0zQq4V/XfTDsxbxHuV3i3uyrgUo6UTQhhnhs6Gin7FbA+z3Li//Pa+jS6 +6sERBZRtT9OnEk4ea7V/cUoBLZpG1jQS801W3xPCl66A5+znpHqIPNCLr3KO +1yjgL3khagORJ8ve9sXpZgVMHH32yJSwI9fyDZ6vFdD0z+FjD12I/Djt74cP +Crgve92bdCKP1kcVT5xcQUEXwXViOkR+nwtX3zQWoKD74MBoIpHvzfkuzd+E +KDgXcJRrfAsH3F4kiHhLU/D+XrJ+EtEHBxR+3DRbR8GnvMKXHxB9Ms9Obv6t +TcEQCW+Br/bE9964bqrUgIKHPwwOaBCOPehFVTKl4Mp7v1PSiT7KrG9t5t5C +wfnk1rNWRH81+OdM1UdQMGB2T9Mc0Yc2CzTRY0cpqPMyPvMP0ZftyV1Ug5MU +9HGbH1lgcqC/gv9k/jkK7n+Z0vrDhMjDf+GisVkUbKr1odcaEf1estHIuo6C +3y8wBu8R/ZxtOeb2r4mCZn39cUeI/lbqjz756DkF9dxqq82JftfkZreodVMw +sD/2RdtaIi/OJHfeCQp+5v10v0yFA0G/Zk42Cypipe/2hk8yxPof9JMcF1XE +j06R232I/YRvcqCQR1oRA/ZSf/ZIcuDWYH2PqZIiFiSe380R48DQk8vrH1IV +UYJLWBsFObApltaX60n8PzfENnuJDXqiMdpHSxWxq0Nh+bFRNnAlzDdkPFLE +D2QjxahhNrTz7HN9VKWI9kbcSeFv2RA47xQ706iIE1/1du7qZ0N+n8qg/4Ai +Do4ULK14ReyXOc1xzjxKWBVeu/s2sR//Xrd6SHObEkrZOZeZZbLhR7ZsjL6r +EqY4BLr2p7NhTlhVheaphB3hrqXBl9kwPUvbZ7lXCZv3qJxOJM4P76p8f7hG +K6GJvelMXhwbWu3KhOJvKeETZ/WXBqHE+SRwF7ybV8IRbeGov9ZsYBQW3bhy +RRnP9u+UTPrIgkFKYY7VNWXcInfR5Op7FkRduXt9LkcZxyYP/MkbZUFZTEGW +011ltIrxsn8wyAK9HTcyhKqV8UPkyrDCDhasXZGWHDeqjC1Rj931y1gg6Xn0 +ZMR6FXTk5xhcOMOCGVFbL5c6FYx9/Xy6S5oF7xO9XEJ51ZCsZDNyWKIUbL4e +tvlAVccexVeuJgIl8MWXL4xzYg3yzupVJxfeJ87/Utxn69Yil+mVV4NGhSD6 +Qu1CyVcNFMkQNKv4eAfk4x9splLX47X9093GgQWQsY62WsxfE98J08Ul1uRD +q6yZ4ewlLeSvCtxpujIP6PJ1ydo92vhUbFPI9L0cEOLJC/c+pYMkYkga+q4B +OUaBsVNNF9/WR6+8sDID+FXdHzk908UM1wBjq+w00GLKPDjsoYc5thy1x48v +QeiQaL0tlz4eZ0kfuTmZBF9nE7fZZOijC02+JHrrOdig3ZRpo2mAb/xVnod7 +xMKTWZO/P9sN0MejcGtSbgzsX6838GqPIY5sigoSsooG5vTurp38VMzo0229 +XX0YrFSkHQTzqNjxW1Qu0jsMOFONirvzqTi9QOPp3BIGKmVhPyoLqDgr1BZv +ZB4Gy207cgIKqbiCo7KdohwGdSFx3+s5VDT7diz4wIdQMK2aS496RkXWktbk +iqBQoDq9evfxCxUP/23PGj15ENacPH+kzsgIv0y03zyUHALVJrdW2NONcL1A +YMeXsBDY/LMmpZthhDeCzacit4fAkf3zRRNmRpglEdXWTQ6BZnevUSF7I+xp +LGCnFO+HABrV1s3LCBlGD5dLvg6Gu99H5ebijbDXxMh3ck0QaOyh1agOGKEO +yHuKie2Fi0qOf06/McI0uTAhg8UAmBv2MXw3ZIQsiUPr9nwMgCeuiYXXx4xw +7anhs7+qAsBp83C61JQRkoYeV7/bEwCRJrEH+LmM8dlD4FRX+0OzyCvFKVVj +XBzcH2gZ4Qd7ngSc4Rw0xtzHe5euSu6G6eDJw1bhxiidW7NCgGc3HCEFBfZE +GKOv67vs81994fyxEKdfR43xju4Fl8fNvlBCj6Aw4oxRb+WZBx+P+sLCo9PV +9ZmEP+4D6w8+kPLg+tzremN8l5nV+rbeG2pudO2ekaChpH5liom7J4zYK3pG +SNOQs9lOwJ7pCVy/g3f+laWht8Anx8NkTzDfwuu4gkLD02brZkmju6BpGd1I +RoOGYzs/p9313wVtPjn8ZqY0TK0RaLgb6QEDKvuKk/1oePfDodHnJW4wd2fp +p3YZDUH7q/Mt/x0w7mJ941wFDeWZ9mmnNu+AvuVJG8eqaGgofR/DaDugykv2 +6pVaGh6Q47l34b8dcErakL7YQsPuBBOLopLtsDp+37HWNzQs5OZpjvjnAuv9 +u7n2cNNxs/Nb+HJ7G/iqFvJnOtCxTzJZI157K0Q17tqntpmO35rGzDbIbYXk +PaLPWU50XPFEJ0iGdytU34pMfL6djqobeqp/DDmBuNpG4UVvOmYfXFuQetEJ +mtQ+iHtF0PE/a+9DNnNbQGONAkUth461SvpPmc83w4xGKpX1jY4rm+z+27HD +Afra0Epslo7mxdqf0+kOULt/emv4PB2XHXwy9l3eAS6wbA5S/9Cxl7q69feo +PWjQuYoqeUwwOOaJvE2wPfjYBCvWS5pgzxmZC4PxdtDlv2FVF8MEH7+4MwCd +NlCe/3d0Pt4EDSXVfpaUWAPVIvynbYIJCpZGnLtw1Roejn5ZdSPJBGUGvgbF +nLIGFnnIyDbFBK/SZMcKnK2hKKM26fo1E3y5fLxk+rcV3EiMpW0oNsHQ3Fuy +vhut4Fy48KWMThO8JqOXHThnAXxi8QVT3SZ4cfjO6s5hC4gr5ao27zPBVcvK +nzk8t4Az0zPjX96YIL289OmxPAs4HtDFMBs3wZnTfVo1Wywg1P3qxKdfJqi5 +ZsGjmW0OrpbKaEJmoEi79p2YWDNY7OITqqcwMHZ89ErBQTO4sWd60FaZgf1e +J38Oe5jBeFzFYdc1DKw5crPhItUMQls2PYjUY+CfFt/E0QmE847HyOXWDBQ3 +s5xibkGo3NG9YBDCwNrH4qQqL1Pw+FTZWn2QgZJJ7aODTFPgirqRYRnOQKPy +CAVFOVOwvhZo4BzJQBlzkRPSPUx4/XZZUNhpBm7vj1Evc2DCpI/WYGk6A98/ +3KSbbsEAueCzFVq1DPTMMpte2kiHC0t+hgl1DOxTaX0QtZ4O3CnWpR8bGPi0 +oPGhyGo6TD5acfdGCwNVqP3r0nppUMl1JkO0k4GWOg2CE/40cE07efjHBwZO +pXo7PkoyhoyqSMMn/zFxkA/SraaosMpxZ6msEBN9QxzWyHZR4eSIsebh1Uw8 +83dkBV8VFQJW/FLRkWDivPlae+1zVDDaFCGeR2bi5lczF++qUaHnXehsrC4T +ra5ui6H5GYKEQFCpw3YmHvrQ+kbrpz7kW0RHfdtJ3H9+siJkSB/0oi9YpLoz +sca0qLqtUR8cv5V093kzseJ+a+1Amj7E9cz/9g1ior/5yB0LA334lXfCPCqG +iU09rDCdI3owYJLaWVDIxMmVQxWPxHQh4FB+lk0xcb2beIX1Px34Ufxwz5cS +JtpXh0Z+ndABUaW+n7qPmDjQZdh7/okO2PGR5B/XMtFSr8h0fJ8OVHcV7O7s +ZiI3j1+CfrI22AqVa0b0MdHnuSW/c4A29G1o+SE9yETWWv3JPNSGucrP8btG +mNhfcUTs+YwWaObq3P80SbzfpcpacNGC6gGziMQpJnp5/xRt19YCW/GtoP2N +iTMUeZtz/Frgd/bQq/B5Jt7Rq8iPfawJc7VxmVK/mFh2f29QU7omnPqT7lv5 +h4lu2qHu+qGasNrg7nqPRSa6X9hh3WavCdeDK+eXlpj4rqLtb7K6JvwPj7ZB +IQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07960026521006272}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.07960026521006272}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0lG8bB3BRWX4h+zpj7KXsDDNmXJe1rJWksmQrFFJIUSoVKZRQJBJJ +C4mZKWuRLSQqO2VJSYoSWsn7vH/N+Zwzz3Lu5/p+71vRJ8RpDzcXF5fNMi6u +///+GGppUEnIN4XMKRGDW9amXdelI836TsHX6OMJrxpVACU6fKT7UuDB9n7r +3EYDiNh8r5enLw9cjnSUH2+0BJFpqZTfvSxYedCl3qLRGYarHUPmeuug4jEt +9UTDbrBWmXw70/satDL9Jk49DYffvUaXv/W+g+wDYvuuPzwD9Ra381/lzUJ1 +1flnbI/LID9cMe6zfhGqp0OvkjAHxIM87/Fa8ODTrQ7LX+vlQ4qudZXjNj48 +cXbhbH3DHejP0KmdWS2I5KHyI10ZRZDZWSgcoSqIywcSrgbcKQJXIXXPPzRB +nP0uWzVbVgRvTpP+cfsKYvwn8sx0TxGM7BdgiD8UxKYDOU+OiN+HCcv3ZdSd +QijpJ3S9J+k+/PqW/uBorjBOjGe450UWQ0L+iQ5uGRGMc6bGe8mWgK3BXlEJ +ZRF0079jN0QpAb4Gp23qmiKYwq22bbt6CZwZUx20MxPBmA1bDE0MSuCYUtt4 +2l4R1Juk8bU6lMD+G9L/1CpF8PLA0WnukyWwJat0vZ2bKBpE8X/sHykBqbSx +c6nZYjg5ST3wIbUUpNc9PPOrQAzVtW43vMooBdm6uBMeJWK47Jv4s4rsUiB/ +W3tIvV4MV/HVdx67XQqq9ge8qibE0EylbrG9shT0ly9Sx/TF8XJzm8rNkVLY +FC75Xq9VHMN6i6/zrmXB5v8mhtI7xbHteHBLgCYLnPIq+hfeiKNFrkNaoy4L +XF66dzR9FcfsDev4Q+ks8Fh/s9JVQgJFjz/3u2LHgsD32pdOeUlgQ2UDa1Uw +C84625i+/iGB0ZHiM/eLWCDLaZflXiaJMqaxa7tLWFAs5vxT9z9JDPu8zPAn +hwU9r3eVXFKQRBWh9IZ1j1mgsiVcactGSRxZtlDn8oIFdQ45K19elcRjfmUa +nC8sWLSeb3/BkMJuYYXkRHU2JBdEFS5aS2Gvgr640Do2qKzkitfcIoWaBjGB +57XYYN8oYJa0RwrP6gemhRmyIdOCwra/IIWjFOcuXgs2GKNd+vNhKbwl9opu +7MGGMFquZ8spaQwYnz9fmcQG2xtCc3aJ0nj0IlewXzIblHiPxbdflsbhqbgu +wVQ2vOxyKe28I42LH0MMN2WwQevAKp6hdmk8pfx1Y1YeGyYKDhd8l5VBp5pJ +Qa9HbKgR/EA/pCKDt+v3HWooZ8OVcKeOn5oymJDQEqBSxQYrc81fCyiDTcbz +cz01bMh7+86G118GVdfIl6xsYYO7uOOUHFsG9YdvKVwaYIP+0aqY69UyGMpZ +OF78hg0C79ZIKjbJ4HSufuizITZUPOABtX4ZrK2NlPzyjg2SdhXJOksyePy7 +tR/XZ+L9Y1QMrOxkUSZgxe1tf9hg+fVP1P4xWbyiAwplEhyI3Jim8fSLLH5i +iTmhFAeKczUHxH7IolpJ/Y5GaQ5IO3vRKvjkkOda7Ps6OQ58KW/8yaMlh2Lm +5/kTFTmQeio5/OoROUwL69Lcvp4DzYNrVb7EyOHVslPz2ZocWDCo7zRNkMOV +PR+zRrQ44PdxXu99thz+C1lI2qnLAbq924xWvRwuNeYKy1I58E5CbX+DoDw+ +9ny6oceUA1IhNSQpKXksP7k8aBA4YN+848Veijy2tWlGv0EOPIpKWC+sL48W +okV7X5tz4Pzwt8mdO+TR8tv06SRrDtQYn88s8pbHcIHv6qEbODB3Sdl2aZ88 +JpRP1zht5MAuS5e7+dHyyHc2ooPXlgN6d6v8v+bJ4/LfB+PMHDjgz71NyrxI +Hr9/nhxb4ciBLLfpprSH8pjr+JTRRHilkKIavVkeFd9sek/fzIGB0Lj3Z6bk +MWJ1leqcEweE2xTSen/I47Kut0cytnLAUrXCQoOLhDF1qzuMnYn17v2c1yFK +Qv+L6fHB2zgQw9jiLWtMwgf6S3a3t3Ng467r343MSXjiTfUEdQcHhE5+Pr3N +noQdZNLbp4Sz6mMLkr1I+Ftl6VXLTg74fnhtVLyPhLM9it3WrhzQ4KW0PA8n +oenCGsMawuW2lZ9XniMhyclYJM+NAyeCeKNVUkl43mf64ip3DlhfcBYyzyZh +xM33B0IJd72a1okuJWGY+NIuHQ8OXJs1qcusIuH01Nv98YR9JM5tLW8kof7G +0PFBwt92KEfM9pPQw9hc9NAuDpRFHeAVeU/COmmrlkrCx7MeZ2hNk/DgqsSp +v4Stngho2P8iYeeN4yeNPTmwamR71V5uMkrMxJ4+QLhz2S37s6vIOJa/6tdN +wpnK39/mS5JR6uvx4deEvawgpI5CxrBEW5NFwur+iVwjGmTcWTe0StmLA9Px +/ZcWDcgY7VG0zZIw556ashyQMatEVcqb8NG2MI6xDRnXpj5xiiRsPl1r5bKV +jMJeX/iTCPOvFuoN8yCjy5yqaRbhl7puAZf8yTh8f+xbAeH0rXd+Fx8kI/++ +HOX7hHcdmj/fdpSMoWe6eosJq6aby0/GEs/rXhIq8vp/fi7e500m4+3SnNZ8 +wuyBN6aqmWScHddfdZVw1MLal+b5ZBysZnbHEzYjH/b2Kiajz3dQDyfMhw3f +o8vJOFD9hMeNcLu3yJlrdWS80gRBTMKXT++SqGgjY7amrY8cYfdbhQU9PWS0 +PuX3cY5YH6Vnv4zmRsj4o5G82EL404RVi8hnMtbu/ZefSbhEINVVe56Mog4p +I36ED68f+Wy/RMaA6oBSLcKmjprR+/gVcDxEROY78f3aLj3LuUVSQL8rCuxA +wqlscd16dQWUiS+cUCTs2u1dN6KrgMXlLlWdxHxMSC+8l7NWQDEDf1MNwg/o +NhG0zQq4V/XfTDsxbxHuV3i3uyrgUo6UTQhhnhs6Gin7FbA+z3Li//Pa+jS6 +6sERBZRtT9OnEk4ea7V/cUoBLZpG1jQS801W3xPCl66A5+znpHqIPNCLr3KO +1yjgL3khagORJ8ve9sXpZgVMHH32yJSwI9fyDZ6vFdD0z+FjD12I/Djt74cP +Crgve92bdCKP1kcVT5xcQUEXwXViOkR+nwtX3zQWoKD74MBoIpHvzfkuzd+E +KDgXcJRrfAsH3F4kiHhLU/D+XrJ+EtEHBxR+3DRbR8GnvMKXHxB9Ms9Obv6t +TcEQCW+Br/bE9964bqrUgIKHPwwOaBCOPehFVTKl4Mp7v1PSiT7KrG9t5t5C +wfnk1rNWRH81+OdM1UdQMGB2T9Mc0Yc2CzTRY0cpqPMyPvMP0ZftyV1Ug5MU +9HGbH1lgcqC/gv9k/jkK7n+Z0vrDhMjDf+GisVkUbKr1odcaEf1estHIuo6C +3y8wBu8R/ZxtOeb2r4mCZn39cUeI/lbqjz756DkF9dxqq82JftfkZreodVMw +sD/2RdtaIi/OJHfeCQp+5v10v0yFA0G/Zk42Cypipe/2hk8yxPof9JMcF1XE +j06R232I/YRvcqCQR1oRA/ZSf/ZIcuDWYH2PqZIiFiSe380R48DQk8vrH1IV +UYJLWBsFObApltaX60n8PzfENnuJDXqiMdpHSxWxq0Nh+bFRNnAlzDdkPFLE +D2QjxahhNrTz7HN9VKWI9kbcSeFv2RA47xQ706iIE1/1du7qZ0N+n8qg/4Ai +Do4ULK14ReyXOc1xzjxKWBVeu/s2sR//Xrd6SHObEkrZOZeZZbLhR7ZsjL6r +EqY4BLr2p7NhTlhVheaphB3hrqXBl9kwPUvbZ7lXCZv3qJxOJM4P76p8f7hG +K6GJvelMXhwbWu3KhOJvKeETZ/WXBqHE+SRwF7ybV8IRbeGov9ZsYBQW3bhy +RRnP9u+UTPrIgkFKYY7VNWXcInfR5Op7FkRduXt9LkcZxyYP/MkbZUFZTEGW +011ltIrxsn8wyAK9HTcyhKqV8UPkyrDCDhasXZGWHDeqjC1Rj931y1gg6Xn0 +ZMR6FXTk5xhcOMOCGVFbL5c6FYx9/Xy6S5oF7xO9XEJ51ZCsZDNyWKIUbL4e +tvlAVccexVeuJgIl8MWXL4xzYg3yzupVJxfeJ87/Utxn69Yil+mVV4NGhSD6 +Qu1CyVcNFMkQNKv4eAfk4x9splLX47X9093GgQWQsY62WsxfE98J08Ul1uRD +q6yZ4ewlLeSvCtxpujIP6PJ1ydo92vhUbFPI9L0cEOLJC/c+pYMkYkga+q4B +OUaBsVNNF9/WR6+8sDID+FXdHzk908UM1wBjq+w00GLKPDjsoYc5thy1x48v +QeiQaL0tlz4eZ0kfuTmZBF9nE7fZZOijC02+JHrrOdig3ZRpo2mAb/xVnod7 +xMKTWZO/P9sN0MejcGtSbgzsX6838GqPIY5sigoSsooG5vTurp38VMzo0229 +XX0YrFSkHQTzqNjxW1Qu0jsMOFONirvzqTi9QOPp3BIGKmVhPyoLqDgr1BZv +ZB4Gy207cgIKqbiCo7KdohwGdSFx3+s5VDT7diz4wIdQMK2aS496RkXWktbk +iqBQoDq9evfxCxUP/23PGj15ENacPH+kzsgIv0y03zyUHALVJrdW2NONcL1A +YMeXsBDY/LMmpZthhDeCzacit4fAkf3zRRNmRpglEdXWTQ6BZnevUSF7I+xp +LGCnFO+HABrV1s3LCBlGD5dLvg6Gu99H5ebijbDXxMh3ck0QaOyh1agOGKEO +yHuKie2Fi0qOf06/McI0uTAhg8UAmBv2MXw3ZIQsiUPr9nwMgCeuiYXXx4xw +7anhs7+qAsBp83C61JQRkoYeV7/bEwCRJrEH+LmM8dlD4FRX+0OzyCvFKVVj +XBzcH2gZ4Qd7ngSc4Rw0xtzHe5euSu6G6eDJw1bhxiidW7NCgGc3HCEFBfZE +GKOv67vs81994fyxEKdfR43xju4Fl8fNvlBCj6Aw4oxRb+WZBx+P+sLCo9PV +9ZmEP+4D6w8+kPLg+tzremN8l5nV+rbeG2pudO2ekaChpH5liom7J4zYK3pG +SNOQs9lOwJ7pCVy/g3f+laWht8Anx8NkTzDfwuu4gkLD02brZkmju6BpGd1I +RoOGYzs/p9313wVtPjn8ZqY0TK0RaLgb6QEDKvuKk/1oePfDodHnJW4wd2fp +p3YZDUH7q/Mt/x0w7mJ941wFDeWZ9mmnNu+AvuVJG8eqaGgofR/DaDugykv2 +6pVaGh6Q47l34b8dcErakL7YQsPuBBOLopLtsDp+37HWNzQs5OZpjvjnAuv9 +u7n2cNNxs/Nb+HJ7G/iqFvJnOtCxTzJZI157K0Q17tqntpmO35rGzDbIbYXk +PaLPWU50XPFEJ0iGdytU34pMfL6djqobeqp/DDmBuNpG4UVvOmYfXFuQetEJ +mtQ+iHtF0PE/a+9DNnNbQGONAkUth461SvpPmc83w4xGKpX1jY4rm+z+27HD +Afra0Epslo7mxdqf0+kOULt/emv4PB2XHXwy9l3eAS6wbA5S/9Cxl7q69feo +PWjQuYoqeUwwOOaJvE2wPfjYBCvWS5pgzxmZC4PxdtDlv2FVF8MEH7+4MwCd +NlCe/3d0Pt4EDSXVfpaUWAPVIvynbYIJCpZGnLtw1Roejn5ZdSPJBGUGvgbF +nLIGFnnIyDbFBK/SZMcKnK2hKKM26fo1E3y5fLxk+rcV3EiMpW0oNsHQ3Fuy +vhut4Fy48KWMThO8JqOXHThnAXxi8QVT3SZ4cfjO6s5hC4gr5ao27zPBVcvK +nzk8t4Az0zPjX96YIL289OmxPAs4HtDFMBs3wZnTfVo1Wywg1P3qxKdfJqi5 +ZsGjmW0OrpbKaEJmoEi79p2YWDNY7OITqqcwMHZ89ErBQTO4sWd60FaZgf1e +J38Oe5jBeFzFYdc1DKw5crPhItUMQls2PYjUY+CfFt/E0QmE847HyOXWDBQ3 +s5xibkGo3NG9YBDCwNrH4qQqL1Pw+FTZWn2QgZJJ7aODTFPgirqRYRnOQKPy +CAVFOVOwvhZo4BzJQBlzkRPSPUx4/XZZUNhpBm7vj1Evc2DCpI/WYGk6A98/ +3KSbbsEAueCzFVq1DPTMMpte2kiHC0t+hgl1DOxTaX0QtZ4O3CnWpR8bGPi0 +oPGhyGo6TD5acfdGCwNVqP3r0nppUMl1JkO0k4GWOg2CE/40cE07efjHBwZO +pXo7PkoyhoyqSMMn/zFxkA/SraaosMpxZ6msEBN9QxzWyHZR4eSIsebh1Uw8 +83dkBV8VFQJW/FLRkWDivPlae+1zVDDaFCGeR2bi5lczF++qUaHnXehsrC4T +ra5ui6H5GYKEQFCpw3YmHvrQ+kbrpz7kW0RHfdtJ3H9+siJkSB/0oi9YpLoz +sca0qLqtUR8cv5V093kzseJ+a+1Amj7E9cz/9g1ior/5yB0LA334lXfCPCqG +iU09rDCdI3owYJLaWVDIxMmVQxWPxHQh4FB+lk0xcb2beIX1Px34Ufxwz5cS +JtpXh0Z+ndABUaW+n7qPmDjQZdh7/okO2PGR5B/XMtFSr8h0fJ8OVHcV7O7s +ZiI3j1+CfrI22AqVa0b0MdHnuSW/c4A29G1o+SE9yETWWv3JPNSGucrP8btG +mNhfcUTs+YwWaObq3P80SbzfpcpacNGC6gGziMQpJnp5/xRt19YCW/GtoP2N +iTMUeZtz/Frgd/bQq/B5Jt7Rq8iPfawJc7VxmVK/mFh2f29QU7omnPqT7lv5 +h4lu2qHu+qGasNrg7nqPRSa6X9hh3WavCdeDK+eXlpj4rqLtb7K6JvwPj7ZB +IQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07960026521006272}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07960026521006272}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993850675532866*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"f5de0314-21b7-4f9b-a88c-4d83d39aa131"] +}, Open ]], Cell[CellGroupData[{ @@ -2599,14 +7990,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ -52adca93b0cf"], + CellChangeTimes->{3.9918497405884743`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[BoxData["12.55365498952246`"], "Output", - CellChangeTimes->{3.991340544411957*^9}, - CellLabel-> - "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[BoxData["10.788713496625082`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.993850675562018*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"993649d1-6614-4983-9190-521cfc3b0486"] }, Open ]], Cell[CellGroupData[{ @@ -2662,157 +8051,166 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ -d2b12a49fd20"], + CellChangeTimes->{3.991849742961588*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 341, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544611845*^9}, - CellLabel-> - "During evaluation of \ -In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 342, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913405446218624`*^9}, - CellLabel-> - "During evaluation of \ -In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ -\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ + "\"\\!\\(\\*FractionBox[\\\"3.330517047673065`*^-257\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 338, 343, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544630844*^9}, +\"", 2, 99, 13, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.9938506756401777`*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +In[99]:=",ExpressionUUID->"4909004b-e1aa-4d57-9eb2-3f30262b0802"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7693625691350066`*^-266\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 14, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.993850675648617*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"5961010a-60cf-4c70-8f6a-81a8551de6c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.829816208795145`*^-275\\\", \ +RowBox[{\\\"676150755326425929620763661562\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"7\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2566907412833894400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 15, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.993850675657381*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"311a200f-f9eb-4ba7-9961-50bde8deb21e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544639845*^9}, +during this calculation.\"", 2, 99, 16, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.9938506756654387`*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +In[99]:=",ExpressionUUID->"d104e16b-55ba-4078-85cd-f51f4b22fef1"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VV0XAHCRqCRDmV33XGOGyCyutTQIyRSRzGOjFE1kzhAlaSCvhAx5 +iXuUyhBChjSaQiGieoUoQ0i+8/11nt9zzj7n7PWsvdbehMdxG292NjY2/hVs +bP+/zva3NMgk5BiKsIvTzauNDDsyRM4ZdUfCx58nNUuM6YAb33iIdCfD8NzI +54vGanDa6t/3HN3ZcOx7d6e/MQL/hHDy/PtSKBr+8djM2AoGqiyOT7+vA9Od +GZbvdrqBscxo39T7NlhWU9u3uN0f5t/r3Jh8PwRZfQ+N7huEQ/32/Jx32b9g +MYBh8bQlCSQGyr94KC9BBdvZD9Z3U2HDUdd/ubZzYLakJ4N3+Q4kbzGutLDj +xtC6FYfuVN+FnlS12im+dZjSHfOXYy4PEnLC3rCL8uOw85GMHvF/Qfj654vX +bgui+Z8Lsj9fF4GIUtmF33mCWLi1R8CouwjE6mLCnFmCyC2pvi1+sAhok5tO +ydcLYjYf02PtdBHImvu7VX4TxKEctdhmkfugsXJJ+7PGBlxWuuKj4n4fLAOF +htVfbMCs9JGJW+P3IdbW1LBtdiMOp/qyN08Xg9jD12LsK4TwqLLrcZOlYigW +tJ3bslYI+9fUdDzjLIGuNhfWVSkhTNoiF31HqARkrAMZ1iZCeEddyWuVbgnU +7bmz6u0tIezNPesWca4EloxnXr8yEMb9Erpc8nMlkJQXVLhkLIx6Zz1+N/yl +xq9ii1OxFsaYzVojKhwsMH++xuiytzB6uh7kqljDgrTt9AfmicIY+rHvQr4o +C3Rxd0rrgDCeOLlf6b02CwL0slxbIkVQq2ZPbqwfC8wyead3XxLBjbU75ApP +sIDBdT7u9Q0RbAkRiG0NZMHbjn1k+z0RvMd89ZU9mAWb/Xk4+l+LYF2ehrR5 +LAu+5Z3J+ykmigoCyf4md1jgtMFiXPyBKHJef8b77SULNIIrIzKqRLGpaeZI +/hsWrBlSECIaRXFLKyvfs40F5SUcINcjirlR7yra3rNAaHd5ktqyKCY8TbRK +GKK+HyGjuXO3GAZzpm/3mWPBjh8LQX6fxTCSSG6sp5FwzuS64rMxMVSPfbhV +kCChOEulV3BWDCt0FotdpUkQsXXTK+cWx1nr4NQf8iSMPXk+x7FZHEfmaQHf +1Ui4FpkUeOusOCrlhR/cu42EoY1yfg3rJDD48M5LIx4kCB+vkRQWlkDalwq7 +Ti8SzJsdXh2iS+BmV5psnQ8Jj4ISlNdrSOB5vcyu5MMkxA9Mju53kMAWNtsE +vpMkqBdU+v7IlkCJfvPAkHASIgys3cV0JdGtIE5L6h8STFwyfupsk8Se145a +bekk8IZ/j7Izl8R3gbXVERkkpNdH5yW5SWLj+NLxriwSnphVfF91URKleC44 +7LtHwqSD9OlfPZK4kHYgn/WQhMdB/lz8w5JY0apwWvkRCaHpT1M3T0ji7PaR +zpzHJPB8sq88xE5DK08Fs4QKEuR9L7F9UqThwrffgqq1JLicmol/GUzDNEWj +rLYXJMimbJMYjaZh4J66KuGX/4/flftcSTQceHL7xP5XJAT92fR2Ww4NP4Vm +F7S9IeFGlMvG8pc0VK7p8kjvIOHl1aY7uZJSKCjQc/5yHxXvBxu21MtL4bOy +sID0fhIcO93rPm2RwqPjP3nuDZDwTeTPsLixFEoPViuWDZLAkammmOwnhSc+ +ZUvnj5CwtfjWw9AaKWyfjPlndIyEHe9fL000SyGXSs2tsnESLNhW7nJtk0LD +/ToPQiZI8LTx64ERKXzxmNjKOUmCcTARFs5Jx/kHGflTP0loXV91V3cNHX+e +vXol9xcJVjn7mid56bjDf3fKvmkSDrxK4HcXoeNdYx9u1gwJ/lKzd42U6OhT +mxqBv0mYeZDUPK9Kx0xD4mwf5SATpXFSk475gnLXzsyTEH3CTZthSMeGRh69 +uwskpNW/aGa3pqPcoz123X9IkHLwHq+wo+NhlwfhLksk5Iwt8wc40jHqxpnO +QcolG7UOfPakYxJb2tLAXxIafO+M15+m4/O4wf0VbKVg+kdP4HwwHUcS3g1u +WlEKr5M6tDXD6Xg+ZXPqTco95avDcy7S0X2hPtmXvRRcLHJynBKp94mbdLdS +Hh4ybNlwjY5K3W8tVDhKYWJtoEB0Oh3TaFfefaUckMmrw8yi47G2jQO4shR+ +axYcmMml48vA7fQUyhwu/TneJXR8o8JEfc5SEGGZ6BjX0VGNFrDaY1Up3N7x ++cDfRjq+N5lpzKHM6AkJf9RKR/gY+XSYsgr7gxa5TjpK/Ah1cOIqhdKbeyb6 +e+go6Gvx9xplXaVvAin9dOTX/T7QTHmbraQT1zc6dk7Z7VfkLoWmb4/Da8bo +GPTn4s99lM1DbHLPTNHxQ7b9i3DKbfzjLaqzdLS9EjCYT9k+L3bi6wI13/XX +dF9S/riVIZi5TEemwNG345Q93lTpOKwkMEyxrIBndSl89bR34ltNYHqC7HMF +ykd/T4U3ryPQec0p6W2Ut57wEfoiQKCo11KCI2Xu0d5CDhECtYuCqo9T7vKw +NCIkCbSN6qmMoJz7ob7LkEEgrw9XdBLlQFvdo07yBJ4o+imWTnnbq6IVQcrU ++IvxoTmU+YyJlJQtBDJW17AKKPdX31Au0yYwRCCitJBykc6aujZ9AsW96i78 +SzmIFWo/iQQuXj+lkEfZZNOvsXXGBAYIJmZkUBbK9o1U2k1gggzbt2uUh8U+ +CptaEXj2cy1nDOXSa1b3fewIzMDG34GUw3meb7vgSKDWCq46N8qW0XrdWa4E ++lUHeZhSpv29f6zGi8DhYdEPmymPnWZw9B0isP1BnzI/5YofN1MX/KjnDWod +Jqn4xh1cu1kkkIqHe5Xr/+O/bzCsXuscgdmdr7blUpZxnHbYG0pglsQUezDl +2t19UYlxBHLqe9IkKSc2WIsWXSYwilES/B+VD07MxuKWZAJdFldVlFKe31zS +s/I29T3/vj59ys350scZ2QRKRbg+X6Ty7SY9dSXmEzh2ePrqE8rqAhGqwSQ1 +X0+ffgXKbAkzDamPCLyltcftI5XPrzkOOz6qJNDX27H1EuUjMzbRU8+peM9x +uA9T+b/Vr0lsfSuBN21ZlxMoc3/VZym/pebDeTdflXJOt8wH314CT7+Kyvej +1tNJ61v+0QNUPNnjrqymjC/Wrbo7TOD3hr8Hs6j12Fc5q9Y/QWBS9NnpJmr9 +Ct1pjrHlYODnX9oJk8skDAszJU5yM3DRxEsigHJpEkleWcfAgarw/J9UfbCM +TPv4QpiBIw7tJd+o+hHnfVTdSJmBDtdp+axFEuaV+PpV7BgovPuuDDlLwuxt +sQgNRwYK9Bit5qI8vV5WRs+Vgfnnyjc4UvVu4pfe4R2HGJg4cTxnjqqPQ5We +s44hDEyXfdbAN0XCi92PeeNyGXh/EuYrR0loevqMvPwvAys/NrQO/0fVK9WX +ttdKGNh96EDXGsrVgoNpGeUMFF2gp1p8pf7/wxr5slcMFN/1bezhZ6o+HnGB +oRkGlq6T71j6QEJK38GhrwsMrDYsKFroJeG6ZUD0+DIDN+ivfzPdQ0KiRlzr +79XSeFxq/eyn9yRELpL262nSOO5cPpbaTsKRBE5/A2NpFBB2CImj+plBYVHm +zZvSyBZ6ydyP6o8f6IV3dv4jjTYi1R9Uyqj6fbMgY/qONEYdua76/QHVTyPy +0m0KpFFikn+TK0n1c4fMVN4qafzPJiVUuYiETZzXk2IGpXFyUuGKM9WfhVyD +w08ry2B5BV2DHk9CWce5MNktMri3dyukxZFga3Y2tENLBpc5ylQFYklI1jp1 +Xh1ksN2i69liFAnreI6fnbCmxjvpNJWFkLCy3MPf54wMaqo83droT8KUgJnb +vjoZjHXum3G1I6H7KOPt4SYZdFP3HT2xl4TaxgUIeymDI0F/4yOsSUgKKpS6 +1yWDFwqLOm/tIUFtiGdgflQGk76cf1S8kwQ/8o3zbUFZrIrPbTusRcKopd2B +YS9ZFHXtGdUSpPLtktu+k1xyaBjnpuzVzAK/UWWGGo8cqsQXcAk1smBu1/z4 +OJ8cvsxnV2isp/Z3HMnRh8TksPGAvwFRwwK1c/UP3VTkcOgEb0ddGQtCvOUE +LffKobuM09OH2dR+z3DsjdIdOfy8c+jUAWp/afrjjOmItjwyd5aVTMuzYMyT +O+BhmAIerY/l0awtps4bwuyxdZtwjebLeBrvfRB4JZfI+qGIDyHrT7RzIUjE +lVhpayvjxDEPf/PAAkhV0uMT9FXBg1UHFSWy8uGFmJHWr6ubcUE0Uj6vIxe2 +StQlqXap4oxbgWXhyF3g5cgOdI9UQ7eS/WmLRDbQIqQM9sttwUPptHBD00xY +Lev0yKZpCzbytiVdkbwNm5miJWec1TH8+1zETv40ONkvUG/GpoEqETtj3Odv +wo9fl+xMUzVQT3OCm2l+HXapNqaZqmjiHx0nua5PV6H6l/7i3GtNZN6e5bee +SwQ/ZfXed95auEpcaNfRsXhgTnh17F+tjWl9JTd2/o2BnTIie9Zla6Okb8jh +xoooUAiPP1uno4OruDeE1X0OB0VvvRrZXh0c5uLsqXY5D97VBy88PKGLzcvk +J575M1CT2eE1tVEPRyuJ9vu9ATB9b3lO9bEeokHdULiPP3jKFq5O27MVc73t ++3eYH4EpxWvapZNb0bb1rzQyfeBJzuLgTJw+3qjvNdTd4QHa2wPnzBL08SLT +0mNaywPKBsd4Mi/rY88CoVEh7wGltH4ds2R9JDhHmjzWekBRau3ljH/0sbDK +Vkm+3R0yL0Xr7SrWx1kT8d1nvdzhYuD6q6nt+nj6INEunOgGjjukUZ9mgIqX +uN66/3aGpQ5u3nq6AQbnFqy173eGTO+JD2bSBjiWxCfi1uAMX2LKzzgqGGDl +Kr6T95Oc4WSLZck5dQOkJxAdGorOEG9xnvbE2ADrwpiFw25OUOHQ+UfzuAHK +jOmER350BPFjseWbaw3QW6dkWXKNAyQu+2gl1Bmg4AbRdJFZe2BPNia/Nhgg +31z/D2LIHkYfcRZktlDuz7nlVmFPnWsvpAq0G2Ar2+/FS0fswfF6+JnZEQMk +f0rrpL3dB6mV57Sq1zLR0vfpJtNcO9i45ii5x56JM2xPT4ud2Qs520OCJvcz +0SWNjeeq115QD0ncfs2JiWlzxVbCNnvBYpLV2e3OxPxNxZU2Knshpmtm3vMo +E6VXbxqMGraB39lh24IimBiodqXhuZ0N9Opfa88rZOLDfxImgrdbw8FTOemm +xUzcH+tm1K5uDbPFZd5jLCb68Ob8p8uwBgFG99yWR0zsji7jU11hDbu5JSWe +1jJxx+D0jec1VlDVkefV3snE9qyl08lgBWa8T1ROdzMxVPfZrheqVtC9q2VW +5AMTVZ8Ft6ynW8F0xfc4l09M3KN7/nE9mxWoZKnd/2+UidWFQybp0ZZQ1Wt0 ++tI4df+5cNOwjyWYbdgLqpNMzFs1t8rExBJ8Yk+9C5xh4pdE7/Muay1hujYm +Tfg3E684HIrnH7eAyIUUz4oF6vndbGsHXlsAn2aBsvMSEz87hI82siwg41jF +zPIyE0fCzDa2JFvA/wAKybnf "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2826,116 +8224,120 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV13k4VV0XAHCRqCRDmV33XGOGyCyutTQIyRSRzGOjFE1kzhAlaSCvhAx5 +iXuUyhBChjSaQiGieoUoQ0i+8/11nt9zzj7n7PWsvdbehMdxG292NjY2/hVs +bP+/zva3NMgk5BiKsIvTzauNDDsyRM4ZdUfCx58nNUuM6YAb33iIdCfD8NzI +54vGanDa6t/3HN3ZcOx7d6e/MQL/hHDy/PtSKBr+8djM2AoGqiyOT7+vA9Od +GZbvdrqBscxo39T7NlhWU9u3uN0f5t/r3Jh8PwRZfQ+N7huEQ/32/Jx32b9g +MYBh8bQlCSQGyr94KC9BBdvZD9Z3U2HDUdd/ubZzYLakJ4N3+Q4kbzGutLDj +xtC6FYfuVN+FnlS12im+dZjSHfOXYy4PEnLC3rCL8uOw85GMHvF/Qfj654vX +bgui+Z8Lsj9fF4GIUtmF33mCWLi1R8CouwjE6mLCnFmCyC2pvi1+sAhok5tO +ydcLYjYf02PtdBHImvu7VX4TxKEctdhmkfugsXJJ+7PGBlxWuuKj4n4fLAOF +htVfbMCs9JGJW+P3IdbW1LBtdiMOp/qyN08Xg9jD12LsK4TwqLLrcZOlYigW +tJ3bslYI+9fUdDzjLIGuNhfWVSkhTNoiF31HqARkrAMZ1iZCeEddyWuVbgnU +7bmz6u0tIezNPesWca4EloxnXr8yEMb9Erpc8nMlkJQXVLhkLIx6Zz1+N/yl +xq9ii1OxFsaYzVojKhwsMH++xuiytzB6uh7kqljDgrTt9AfmicIY+rHvQr4o +C3Rxd0rrgDCeOLlf6b02CwL0slxbIkVQq2ZPbqwfC8wyead3XxLBjbU75ApP +sIDBdT7u9Q0RbAkRiG0NZMHbjn1k+z0RvMd89ZU9mAWb/Xk4+l+LYF2ehrR5 +LAu+5Z3J+ykmigoCyf4md1jgtMFiXPyBKHJef8b77SULNIIrIzKqRLGpaeZI +/hsWrBlSECIaRXFLKyvfs40F5SUcINcjirlR7yra3rNAaHd5ktqyKCY8TbRK +GKK+HyGjuXO3GAZzpm/3mWPBjh8LQX6fxTCSSG6sp5FwzuS64rMxMVSPfbhV +kCChOEulV3BWDCt0FotdpUkQsXXTK+cWx1nr4NQf8iSMPXk+x7FZHEfmaQHf +1Ui4FpkUeOusOCrlhR/cu42EoY1yfg3rJDD48M5LIx4kCB+vkRQWlkDalwq7 +Ti8SzJsdXh2iS+BmV5psnQ8Jj4ISlNdrSOB5vcyu5MMkxA9Mju53kMAWNtsE +vpMkqBdU+v7IlkCJfvPAkHASIgys3cV0JdGtIE5L6h8STFwyfupsk8Se145a +bekk8IZ/j7Izl8R3gbXVERkkpNdH5yW5SWLj+NLxriwSnphVfF91URKleC44 +7LtHwqSD9OlfPZK4kHYgn/WQhMdB/lz8w5JY0apwWvkRCaHpT1M3T0ji7PaR +zpzHJPB8sq88xE5DK08Fs4QKEuR9L7F9UqThwrffgqq1JLicmol/GUzDNEWj +rLYXJMimbJMYjaZh4J66KuGX/4/flftcSTQceHL7xP5XJAT92fR2Ww4NP4Vm +F7S9IeFGlMvG8pc0VK7p8kjvIOHl1aY7uZJSKCjQc/5yHxXvBxu21MtL4bOy +sID0fhIcO93rPm2RwqPjP3nuDZDwTeTPsLixFEoPViuWDZLAkammmOwnhSc+ +ZUvnj5CwtfjWw9AaKWyfjPlndIyEHe9fL000SyGXSs2tsnESLNhW7nJtk0LD +/ToPQiZI8LTx64ERKXzxmNjKOUmCcTARFs5Jx/kHGflTP0loXV91V3cNHX+e +vXol9xcJVjn7mid56bjDf3fKvmkSDrxK4HcXoeNdYx9u1gwJ/lKzd42U6OhT +mxqBv0mYeZDUPK9Kx0xD4mwf5SATpXFSk475gnLXzsyTEH3CTZthSMeGRh69 +uwskpNW/aGa3pqPcoz123X9IkHLwHq+wo+NhlwfhLksk5Iwt8wc40jHqxpnO +QcolG7UOfPakYxJb2tLAXxIafO+M15+m4/O4wf0VbKVg+kdP4HwwHUcS3g1u +WlEKr5M6tDXD6Xg+ZXPqTco95avDcy7S0X2hPtmXvRRcLHJynBKp94mbdLdS +Hh4ybNlwjY5K3W8tVDhKYWJtoEB0Oh3TaFfefaUckMmrw8yi47G2jQO4shR+ +axYcmMml48vA7fQUyhwu/TneJXR8o8JEfc5SEGGZ6BjX0VGNFrDaY1Up3N7x ++cDfRjq+N5lpzKHM6AkJf9RKR/gY+XSYsgr7gxa5TjpK/Ah1cOIqhdKbeyb6 +e+go6Gvx9xplXaVvAin9dOTX/T7QTHmbraQT1zc6dk7Z7VfkLoWmb4/Da8bo +GPTn4s99lM1DbHLPTNHxQ7b9i3DKbfzjLaqzdLS9EjCYT9k+L3bi6wI13/XX +dF9S/riVIZi5TEemwNG345Q93lTpOKwkMEyxrIBndSl89bR34ltNYHqC7HMF +ykd/T4U3ryPQec0p6W2Ut57wEfoiQKCo11KCI2Xu0d5CDhECtYuCqo9T7vKw +NCIkCbSN6qmMoJz7ob7LkEEgrw9XdBLlQFvdo07yBJ4o+imWTnnbq6IVQcrU ++IvxoTmU+YyJlJQtBDJW17AKKPdX31Au0yYwRCCitJBykc6aujZ9AsW96i78 +SzmIFWo/iQQuXj+lkEfZZNOvsXXGBAYIJmZkUBbK9o1U2k1gggzbt2uUh8U+ +CptaEXj2cy1nDOXSa1b3fewIzMDG34GUw3meb7vgSKDWCq46N8qW0XrdWa4E ++lUHeZhSpv29f6zGi8DhYdEPmymPnWZw9B0isP1BnzI/5YofN1MX/KjnDWod +Jqn4xh1cu1kkkIqHe5Xr/+O/bzCsXuscgdmdr7blUpZxnHbYG0pglsQUezDl +2t19UYlxBHLqe9IkKSc2WIsWXSYwilES/B+VD07MxuKWZAJdFldVlFKe31zS +s/I29T3/vj59ys350scZ2QRKRbg+X6Ty7SY9dSXmEzh2ePrqE8rqAhGqwSQ1 +X0+ffgXKbAkzDamPCLyltcftI5XPrzkOOz6qJNDX27H1EuUjMzbRU8+peM9x +uA9T+b/Vr0lsfSuBN21ZlxMoc3/VZym/pebDeTdflXJOt8wH314CT7+Kyvej +1tNJ61v+0QNUPNnjrqymjC/Wrbo7TOD3hr8Hs6j12Fc5q9Y/QWBS9NnpJmr9 +Ct1pjrHlYODnX9oJk8skDAszJU5yM3DRxEsigHJpEkleWcfAgarw/J9UfbCM +TPv4QpiBIw7tJd+o+hHnfVTdSJmBDtdp+axFEuaV+PpV7BgovPuuDDlLwuxt +sQgNRwYK9Bit5qI8vV5WRs+Vgfnnyjc4UvVu4pfe4R2HGJg4cTxnjqqPQ5We +s44hDEyXfdbAN0XCi92PeeNyGXh/EuYrR0loevqMvPwvAys/NrQO/0fVK9WX +ttdKGNh96EDXGsrVgoNpGeUMFF2gp1p8pf7/wxr5slcMFN/1bezhZ6o+HnGB +oRkGlq6T71j6QEJK38GhrwsMrDYsKFroJeG6ZUD0+DIDN+ivfzPdQ0KiRlzr +79XSeFxq/eyn9yRELpL262nSOO5cPpbaTsKRBE5/A2NpFBB2CImj+plBYVHm +zZvSyBZ6ydyP6o8f6IV3dv4jjTYi1R9Uyqj6fbMgY/qONEYdua76/QHVTyPy +0m0KpFFikn+TK0n1c4fMVN4qafzPJiVUuYiETZzXk2IGpXFyUuGKM9WfhVyD +w08ry2B5BV2DHk9CWce5MNktMri3dyukxZFga3Y2tENLBpc5ylQFYklI1jp1 +Xh1ksN2i69liFAnreI6fnbCmxjvpNJWFkLCy3MPf54wMaqo83droT8KUgJnb +vjoZjHXum3G1I6H7KOPt4SYZdFP3HT2xl4TaxgUIeymDI0F/4yOsSUgKKpS6 +1yWDFwqLOm/tIUFtiGdgflQGk76cf1S8kwQ/8o3zbUFZrIrPbTusRcKopd2B +YS9ZFHXtGdUSpPLtktu+k1xyaBjnpuzVzAK/UWWGGo8cqsQXcAk1smBu1/z4 +OJ8cvsxnV2isp/Z3HMnRh8TksPGAvwFRwwK1c/UP3VTkcOgEb0ddGQtCvOUE +LffKobuM09OH2dR+z3DsjdIdOfy8c+jUAWp/afrjjOmItjwyd5aVTMuzYMyT +O+BhmAIerY/l0awtps4bwuyxdZtwjebLeBrvfRB4JZfI+qGIDyHrT7RzIUjE +lVhpayvjxDEPf/PAAkhV0uMT9FXBg1UHFSWy8uGFmJHWr6ubcUE0Uj6vIxe2 +StQlqXap4oxbgWXhyF3g5cgOdI9UQ7eS/WmLRDbQIqQM9sttwUPptHBD00xY +Lev0yKZpCzbytiVdkbwNm5miJWec1TH8+1zETv40ONkvUG/GpoEqETtj3Odv +wo9fl+xMUzVQT3OCm2l+HXapNqaZqmjiHx0nua5PV6H6l/7i3GtNZN6e5bee +SwQ/ZfXed95auEpcaNfRsXhgTnh17F+tjWl9JTd2/o2BnTIie9Zla6Okb8jh +xoooUAiPP1uno4OruDeE1X0OB0VvvRrZXh0c5uLsqXY5D97VBy88PKGLzcvk +J575M1CT2eE1tVEPRyuJ9vu9ATB9b3lO9bEeokHdULiPP3jKFq5O27MVc73t ++3eYH4EpxWvapZNb0bb1rzQyfeBJzuLgTJw+3qjvNdTd4QHa2wPnzBL08SLT +0mNaywPKBsd4Mi/rY88CoVEh7wGltH4ds2R9JDhHmjzWekBRau3ljH/0sbDK +Vkm+3R0yL0Xr7SrWx1kT8d1nvdzhYuD6q6nt+nj6INEunOgGjjukUZ9mgIqX +uN66/3aGpQ5u3nq6AQbnFqy173eGTO+JD2bSBjiWxCfi1uAMX2LKzzgqGGDl +Kr6T95Oc4WSLZck5dQOkJxAdGorOEG9xnvbE2ADrwpiFw25OUOHQ+UfzuAHK +jOmER350BPFjseWbaw3QW6dkWXKNAyQu+2gl1Bmg4AbRdJFZe2BPNia/Nhgg +31z/D2LIHkYfcRZktlDuz7nlVmFPnWsvpAq0G2Ar2+/FS0fswfF6+JnZEQMk +f0rrpL3dB6mV57Sq1zLR0vfpJtNcO9i45ii5x56JM2xPT4ud2Qs520OCJvcz +0SWNjeeq115QD0ncfs2JiWlzxVbCNnvBYpLV2e3OxPxNxZU2Knshpmtm3vMo +E6VXbxqMGraB39lh24IimBiodqXhuZ0N9Opfa88rZOLDfxImgrdbw8FTOemm +xUzcH+tm1K5uDbPFZd5jLCb68Ob8p8uwBgFG99yWR0zsji7jU11hDbu5JSWe +1jJxx+D0jec1VlDVkefV3snE9qyl08lgBWa8T1ROdzMxVPfZrheqVtC9q2VW +5AMTVZ8Ft6ynW8F0xfc4l09M3KN7/nE9mxWoZKnd/2+UidWFQybp0ZZQ1Wt0 ++tI4df+5cNOwjyWYbdgLqpNMzFs1t8rExBJ8Yk+9C5xh4pdE7/Muay1hujYm +Tfg3E684HIrnH7eAyIUUz4oF6vndbGsHXlsAn2aBsvMSEz87hI82siwg41jF +zPIyE0fCzDa2JFvA/wAKybnf "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.07046006305706416}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2947,19 +8349,19 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.07046006305706416}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2973,115 +8375,119 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV13k4VV0XAHCRqCRDmV33XGOGyCyutTQIyRSRzGOjFE1kzhAlaSCvhAx5 +iXuUyhBChjSaQiGieoUoQ0i+8/11nt9zzj7n7PWsvdbehMdxG292NjY2/hVs +bP+/zva3NMgk5BiKsIvTzauNDDsyRM4ZdUfCx58nNUuM6YAb33iIdCfD8NzI +54vGanDa6t/3HN3ZcOx7d6e/MQL/hHDy/PtSKBr+8djM2AoGqiyOT7+vA9Od +GZbvdrqBscxo39T7NlhWU9u3uN0f5t/r3Jh8PwRZfQ+N7huEQ/32/Jx32b9g +MYBh8bQlCSQGyr94KC9BBdvZD9Z3U2HDUdd/ubZzYLakJ4N3+Q4kbzGutLDj +xtC6FYfuVN+FnlS12im+dZjSHfOXYy4PEnLC3rCL8uOw85GMHvF/Qfj654vX +bgui+Z8Lsj9fF4GIUtmF33mCWLi1R8CouwjE6mLCnFmCyC2pvi1+sAhok5tO +ydcLYjYf02PtdBHImvu7VX4TxKEctdhmkfugsXJJ+7PGBlxWuuKj4n4fLAOF +htVfbMCs9JGJW+P3IdbW1LBtdiMOp/qyN08Xg9jD12LsK4TwqLLrcZOlYigW +tJ3bslYI+9fUdDzjLIGuNhfWVSkhTNoiF31HqARkrAMZ1iZCeEddyWuVbgnU +7bmz6u0tIezNPesWca4EloxnXr8yEMb9Erpc8nMlkJQXVLhkLIx6Zz1+N/yl +xq9ii1OxFsaYzVojKhwsMH++xuiytzB6uh7kqljDgrTt9AfmicIY+rHvQr4o +C3Rxd0rrgDCeOLlf6b02CwL0slxbIkVQq2ZPbqwfC8wyead3XxLBjbU75ApP +sIDBdT7u9Q0RbAkRiG0NZMHbjn1k+z0RvMd89ZU9mAWb/Xk4+l+LYF2ehrR5 +LAu+5Z3J+ykmigoCyf4md1jgtMFiXPyBKHJef8b77SULNIIrIzKqRLGpaeZI +/hsWrBlSECIaRXFLKyvfs40F5SUcINcjirlR7yra3rNAaHd5ktqyKCY8TbRK +GKK+HyGjuXO3GAZzpm/3mWPBjh8LQX6fxTCSSG6sp5FwzuS64rMxMVSPfbhV +kCChOEulV3BWDCt0FotdpUkQsXXTK+cWx1nr4NQf8iSMPXk+x7FZHEfmaQHf +1Ui4FpkUeOusOCrlhR/cu42EoY1yfg3rJDD48M5LIx4kCB+vkRQWlkDalwq7 +Ti8SzJsdXh2iS+BmV5psnQ8Jj4ISlNdrSOB5vcyu5MMkxA9Mju53kMAWNtsE +vpMkqBdU+v7IlkCJfvPAkHASIgys3cV0JdGtIE5L6h8STFwyfupsk8Se145a +bekk8IZ/j7Izl8R3gbXVERkkpNdH5yW5SWLj+NLxriwSnphVfF91URKleC44 +7LtHwqSD9OlfPZK4kHYgn/WQhMdB/lz8w5JY0apwWvkRCaHpT1M3T0ji7PaR +zpzHJPB8sq88xE5DK08Fs4QKEuR9L7F9UqThwrffgqq1JLicmol/GUzDNEWj +rLYXJMimbJMYjaZh4J66KuGX/4/flftcSTQceHL7xP5XJAT92fR2Ww4NP4Vm +F7S9IeFGlMvG8pc0VK7p8kjvIOHl1aY7uZJSKCjQc/5yHxXvBxu21MtL4bOy +sID0fhIcO93rPm2RwqPjP3nuDZDwTeTPsLixFEoPViuWDZLAkammmOwnhSc+ +ZUvnj5CwtfjWw9AaKWyfjPlndIyEHe9fL000SyGXSs2tsnESLNhW7nJtk0LD +/ToPQiZI8LTx64ERKXzxmNjKOUmCcTARFs5Jx/kHGflTP0loXV91V3cNHX+e +vXol9xcJVjn7mid56bjDf3fKvmkSDrxK4HcXoeNdYx9u1gwJ/lKzd42U6OhT +mxqBv0mYeZDUPK9Kx0xD4mwf5SATpXFSk475gnLXzsyTEH3CTZthSMeGRh69 +uwskpNW/aGa3pqPcoz123X9IkHLwHq+wo+NhlwfhLksk5Iwt8wc40jHqxpnO +QcolG7UOfPakYxJb2tLAXxIafO+M15+m4/O4wf0VbKVg+kdP4HwwHUcS3g1u +WlEKr5M6tDXD6Xg+ZXPqTco95avDcy7S0X2hPtmXvRRcLHJynBKp94mbdLdS +Hh4ybNlwjY5K3W8tVDhKYWJtoEB0Oh3TaFfefaUckMmrw8yi47G2jQO4shR+ +axYcmMml48vA7fQUyhwu/TneJXR8o8JEfc5SEGGZ6BjX0VGNFrDaY1Up3N7x ++cDfRjq+N5lpzKHM6AkJf9RKR/gY+XSYsgr7gxa5TjpK/Ah1cOIqhdKbeyb6 +e+go6Gvx9xplXaVvAin9dOTX/T7QTHmbraQT1zc6dk7Z7VfkLoWmb4/Da8bo +GPTn4s99lM1DbHLPTNHxQ7b9i3DKbfzjLaqzdLS9EjCYT9k+L3bi6wI13/XX +dF9S/riVIZi5TEemwNG345Q93lTpOKwkMEyxrIBndSl89bR34ltNYHqC7HMF +ykd/T4U3ryPQec0p6W2Ut57wEfoiQKCo11KCI2Xu0d5CDhECtYuCqo9T7vKw +NCIkCbSN6qmMoJz7ob7LkEEgrw9XdBLlQFvdo07yBJ4o+imWTnnbq6IVQcrU ++IvxoTmU+YyJlJQtBDJW17AKKPdX31Au0yYwRCCitJBykc6aujZ9AsW96i78 +SzmIFWo/iQQuXj+lkEfZZNOvsXXGBAYIJmZkUBbK9o1U2k1gggzbt2uUh8U+ +CptaEXj2cy1nDOXSa1b3fewIzMDG34GUw3meb7vgSKDWCq46N8qW0XrdWa4E ++lUHeZhSpv29f6zGi8DhYdEPmymPnWZw9B0isP1BnzI/5YofN1MX/KjnDWod +Jqn4xh1cu1kkkIqHe5Xr/+O/bzCsXuscgdmdr7blUpZxnHbYG0pglsQUezDl +2t19UYlxBHLqe9IkKSc2WIsWXSYwilES/B+VD07MxuKWZAJdFldVlFKe31zS +s/I29T3/vj59ys350scZ2QRKRbg+X6Ty7SY9dSXmEzh2ePrqE8rqAhGqwSQ1 +X0+ffgXKbAkzDamPCLyltcftI5XPrzkOOz6qJNDX27H1EuUjMzbRU8+peM9x +uA9T+b/Vr0lsfSuBN21ZlxMoc3/VZym/pebDeTdflXJOt8wH314CT7+Kyvej +1tNJ61v+0QNUPNnjrqymjC/Wrbo7TOD3hr8Hs6j12Fc5q9Y/QWBS9NnpJmr9 +Ct1pjrHlYODnX9oJk8skDAszJU5yM3DRxEsigHJpEkleWcfAgarw/J9UfbCM +TPv4QpiBIw7tJd+o+hHnfVTdSJmBDtdp+axFEuaV+PpV7BgovPuuDDlLwuxt +sQgNRwYK9Bit5qI8vV5WRs+Vgfnnyjc4UvVu4pfe4R2HGJg4cTxnjqqPQ5We +s44hDEyXfdbAN0XCi92PeeNyGXh/EuYrR0loevqMvPwvAys/NrQO/0fVK9WX +ttdKGNh96EDXGsrVgoNpGeUMFF2gp1p8pf7/wxr5slcMFN/1bezhZ6o+HnGB +oRkGlq6T71j6QEJK38GhrwsMrDYsKFroJeG6ZUD0+DIDN+ivfzPdQ0KiRlzr +79XSeFxq/eyn9yRELpL262nSOO5cPpbaTsKRBE5/A2NpFBB2CImj+plBYVHm +zZvSyBZ6ydyP6o8f6IV3dv4jjTYi1R9Uyqj6fbMgY/qONEYdua76/QHVTyPy +0m0KpFFikn+TK0n1c4fMVN4qafzPJiVUuYiETZzXk2IGpXFyUuGKM9WfhVyD +w08ry2B5BV2DHk9CWce5MNktMri3dyukxZFga3Y2tENLBpc5ylQFYklI1jp1 +Xh1ksN2i69liFAnreI6fnbCmxjvpNJWFkLCy3MPf54wMaqo83droT8KUgJnb +vjoZjHXum3G1I6H7KOPt4SYZdFP3HT2xl4TaxgUIeymDI0F/4yOsSUgKKpS6 +1yWDFwqLOm/tIUFtiGdgflQGk76cf1S8kwQ/8o3zbUFZrIrPbTusRcKopd2B +YS9ZFHXtGdUSpPLtktu+k1xyaBjnpuzVzAK/UWWGGo8cqsQXcAk1smBu1/z4 +OJ8cvsxnV2isp/Z3HMnRh8TksPGAvwFRwwK1c/UP3VTkcOgEb0ddGQtCvOUE +LffKobuM09OH2dR+z3DsjdIdOfy8c+jUAWp/afrjjOmItjwyd5aVTMuzYMyT +O+BhmAIerY/l0awtps4bwuyxdZtwjebLeBrvfRB4JZfI+qGIDyHrT7RzIUjE +lVhpayvjxDEPf/PAAkhV0uMT9FXBg1UHFSWy8uGFmJHWr6ubcUE0Uj6vIxe2 +StQlqXap4oxbgWXhyF3g5cgOdI9UQ7eS/WmLRDbQIqQM9sttwUPptHBD00xY +Lev0yKZpCzbytiVdkbwNm5miJWec1TH8+1zETv40ONkvUG/GpoEqETtj3Odv +wo9fl+xMUzVQT3OCm2l+HXapNqaZqmjiHx0nua5PV6H6l/7i3GtNZN6e5bee +SwQ/ZfXed95auEpcaNfRsXhgTnh17F+tjWl9JTd2/o2BnTIie9Zla6Okb8jh +xoooUAiPP1uno4OruDeE1X0OB0VvvRrZXh0c5uLsqXY5D97VBy88PKGLzcvk +J575M1CT2eE1tVEPRyuJ9vu9ATB9b3lO9bEeokHdULiPP3jKFq5O27MVc73t ++3eYH4EpxWvapZNb0bb1rzQyfeBJzuLgTJw+3qjvNdTd4QHa2wPnzBL08SLT +0mNaywPKBsd4Mi/rY88CoVEh7wGltH4ds2R9JDhHmjzWekBRau3ljH/0sbDK +Vkm+3R0yL0Xr7SrWx1kT8d1nvdzhYuD6q6nt+nj6INEunOgGjjukUZ9mgIqX +uN66/3aGpQ5u3nq6AQbnFqy173eGTO+JD2bSBjiWxCfi1uAMX2LKzzgqGGDl +Kr6T95Oc4WSLZck5dQOkJxAdGorOEG9xnvbE2ADrwpiFw25OUOHQ+UfzuAHK +jOmER350BPFjseWbaw3QW6dkWXKNAyQu+2gl1Bmg4AbRdJFZe2BPNia/Nhgg +31z/D2LIHkYfcRZktlDuz7nlVmFPnWsvpAq0G2Ar2+/FS0fswfF6+JnZEQMk +f0rrpL3dB6mV57Sq1zLR0vfpJtNcO9i45ii5x56JM2xPT4ud2Qs520OCJvcz +0SWNjeeq115QD0ncfs2JiWlzxVbCNnvBYpLV2e3OxPxNxZU2Knshpmtm3vMo +E6VXbxqMGraB39lh24IimBiodqXhuZ0N9Opfa88rZOLDfxImgrdbw8FTOemm +xUzcH+tm1K5uDbPFZd5jLCb68Ob8p8uwBgFG99yWR0zsji7jU11hDbu5JSWe +1jJxx+D0jec1VlDVkefV3snE9qyl08lgBWa8T1ROdzMxVPfZrheqVtC9q2VW +5AMTVZ8Ft6ynW8F0xfc4l09M3KN7/nE9mxWoZKnd/2+UidWFQybp0ZZQ1Wt0 ++tI4df+5cNOwjyWYbdgLqpNMzFs1t8rExBJ8Yk+9C5xh4pdE7/Muay1hujYm +Tfg3E684HIrnH7eAyIUUz4oF6vndbGsHXlsAn2aBsvMSEz87hI82siwg41jF +zPIyE0fCzDa2JFvA/wAKybnf "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.07046006305706416}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3092,6 +8498,7 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3119,7 +8526,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07046006305706416}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3127,9 +8535,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913408819317417`*^9}, - CellLabel-> - "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] + CellChangeTimes->{3.9913408819317417`*^9, 3.993851210555228*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"c898a668-7532-4098-95de-d1e83c1761f8"] }, Open ]], Cell[CellGroupData[{ @@ -3182,66 +8589,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[339]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], + "In[100]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 339, 345, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881982744*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.478429733952664`*^-146\\\", \ +RowBox[{\\\"692388265304082962155241704502\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"104\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"160000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 17, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.993851210684906*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +In[100]:=",ExpressionUUID->"415cddfa-8b28-4326-8197-2049a8c90b96"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 346, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881991743*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8512847487015097`*^-148\\\", \ +RowBox[{\\\"257637673519649270217965438245\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"108\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"360000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 18, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9938512106941957`*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +In[100]:=",ExpressionUUID->"4ee4ddb5-d87a-461f-a5cf-c612594a6eb1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 347, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882000746*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0871031763884583`*^-150\\\", \ +RowBox[{\\\"990359217009531794717859144615\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"111\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"840000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 19, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.993851210703622*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +In[100]:=",ExpressionUUID->"72909d4a-284f-47a4-9d64-094e4579c7b4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882008745*^9}, +during this calculation.\"", 2, 100, 20, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.993851210712329*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +In[100]:=",ExpressionUUID->"aae1ac21-e99c-46fb-babd-9e5364d75b67"], -Cell[BoxData["12.553654989521348`"], "Output", - CellChangeTimes->{3.9913408882266617`*^9}, +Cell[BoxData["10.772165436462224`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.993851263687181*^9}, CellLabel-> - "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] + "Out[100]=",ExpressionUUID->"236c66d6-6b5d-4fe5-ab43-4de8ccb86d68"] }, Open ]], Cell[CellGroupData[{ @@ -3309,68 +8723,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ - 3.9918497473740044`*^9, {3.99184977815234*^9, - 3.991849780845421*^9}},ExpressionUUID->"1d118f77-7d68-dd41-b0af-\ -09454f88e7f1"], + 3.9918497473740044`*^9, {3.99184977815234*^9, 3.991849780845421*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 340, 349, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882626343`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.325825370548443`*^-211\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 21, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993851263744999*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +In[101]:=",ExpressionUUID->"7c01f7c2-aa58-438d-a3a6-cf40576608a5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 340, 350, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882726326`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2169182427560213`*^-215\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 22, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993851263752419*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +In[101]:=",ExpressionUUID->"6da93b58-2467-4078-a9b8-a570eedfaffd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 340, 351, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882816315`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5879452495745292`*^-220\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 23, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993851263758465*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +In[101]:=",ExpressionUUID->"17d3ad8b-da65-43e0-8f83-0df7e777d3af"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882906322`*^9}, +during this calculation.\"", 2, 101, 24, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993851263764868*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +In[101]:=",ExpressionUUID->"0406ff55-1d80-4488-aaf8-6ec69b0a1539"], -Cell[BoxData["1.3456729512531673`"], "Output", - CellChangeTimes->{3.991340895263792*^9}, +Cell[BoxData["0.22616123839388388`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.9938512706375437`*^9}, CellLabel-> - "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] + "Out[101]=",ExpressionUUID->"57be959d-5e74-4641-a568-8dbfbd16d181"] }, Open ]], Cell[CellGroupData[{ @@ -3391,8 +8812,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3437,68 +8857,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497892022038`*^9, - 3.991849792285101*^9}},ExpressionUUID->"c8039063-5f4d-134a-b6ba-\ -e19335f7a9f6"], + CellChangeTimes->{{3.9918497892022038`*^9, 3.991849792285101*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 341, 353, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895297941*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.325825370548443`*^-211\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 25, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.9938512706771793`*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +In[102]:=",ExpressionUUID->"fa28c372-dd2d-404b-8a3b-ee9469552f38"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 341, 354, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895308939*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2169182427560213`*^-215\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 26, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.993851270685606*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +In[102]:=",ExpressionUUID->"6a9fe898-2b11-409b-8a76-46471489e142"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 341, 355, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895316965*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5879452495745292`*^-220\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 27, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.9938512706933203`*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +In[102]:=",ExpressionUUID->"7fc3e50a-8eac-4065-8c9a-d3287d04e1a4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895324953*^9}, +during this calculation.\"", 2, 102, 28, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.9938512706991997`*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +In[102]:=",ExpressionUUID->"7f83fc66-3c88-4040-88b7-37ae9a8569d4"], -Cell[BoxData["11.729429210875175`"], "Output", - CellChangeTimes->{3.9913409010488796`*^9}, +Cell[BoxData["24.91953290173825`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.993851277071787*^9}, CellLabel-> - "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] + "Out[102]=",ExpressionUUID->"5b7afadd-93d8-4e3a-9516-23ff8a2642be"] }, Open ]], Cell[CellGroupData[{ @@ -3519,8 +8946,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3565,68 +8991,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497964884186`*^9, - 3.9918497998504505`*^9}},ExpressionUUID->"a474307a-af78-3040-90ec-\ -fb8d284b16bb"], + CellChangeTimes->{{3.9918497964884186`*^9, 3.9918497998504505`*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 342, 357, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010848827`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.325825370548443`*^-211\\\", \ +RowBox[{\\\"365000401101666289871540890002\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"213134598144000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 29, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993851277109592*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +In[103]:=",ExpressionUUID->"495a5dd5-0746-4ec9-9816-b2ad61d47316"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 342, 358, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010938797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2169182427560213`*^-215\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 30, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993851277118136*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +In[103]:=",ExpressionUUID->"49631495-583b-4d72-9297-09ce210d53bd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 342, 359, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340901101883*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5879452495745292`*^-220\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 31, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.9938512771256027`*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +In[103]:=",ExpressionUUID->"163c53f3-a785-4068-88e0-74268c3538bb"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409011098804`*^9}, +during this calculation.\"", 2, 103, 32, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.9938512771337337`*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +In[103]:=",ExpressionUUID->"3fc33bb0-5a0f-4a67-ae62-784689daf834"], -Cell[BoxData["21.67464099510054`"], "Output", - CellChangeTimes->{3.991340904517517*^9}, +Cell[BoxData["3.787682822360652`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.9938512810628138`*^9}, CellLabel-> - "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] + "Out[103]=",ExpressionUUID->"7351f5e4-7267-41e2-a110-f1d9d2e005f2"] }, Open ]], Cell[CellGroupData[{ @@ -3635,22 +9068,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849803549658*^9, - 3.9918498086143265`*^9}},ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-\ -f67bfdbd9bc7"], - -Cell[BoxData["0.0843966342510027`"], "Output", - CellChangeTimes->{3.991340904549515*^9}, + CellChangeTimes->{{3.991849803549658*^9, 3.9918498086143265`*^9}}, CellLabel-> - "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] + "In[104]:=",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], + +Cell[BoxData["0.02327884467795137`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.993851281097478*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"b4f47a21-1428-405f-89d4-b7468e998dda"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918501018852215`*^9, 3.991850105557743*^9}, - 3.99192470649716*^9},ExpressionUUID->"d104d373-080a-854b-92ff-\ -e87abbd4c41c"], + 3.99192470649716*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ @@ -3673,12 +9107,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + "In[106]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.9913409045775146`*^9}, +Cell[BoxData["17.496450714495822`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.993851281111535*^9}, CellLabel-> - "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] + "Out[106]=",ExpressionUUID->"43a7c1ec-adfe-41d5-88a5-16981e09c46a"] }, Open ]], Cell[CellGroupData[{ @@ -3688,12 +9122,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + "In[107]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.991340904625164*^9}, +Cell[BoxData["0.5257849970519695`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.993851281119501*^9}, CellLabel-> - "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] + "Out[107]=",ExpressionUUID->"0476c042-b180-4c5f-a359-6b888f67bedf"] }, Open ]], Cell[CellGroupData[{ @@ -3703,12 +9137,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + "In[108]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913409046880226`*^9}, +Cell[BoxData["9.199371287341116`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.9938512811277313`*^9}, CellLabel-> - "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] + "Out[108]=",ExpressionUUID->"6ff29c86-8ab3-40ce-9b06-460a10cd404b"] }, Open ]], Cell[CellGroupData[{ @@ -3898,12 +9332,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + "In[109]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[BoxData["0.021613768236132463`"], "Output", - CellChangeTimes->{3.9913409047132187`*^9}, +Cell[BoxData["0.008941240163502302`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.993851281139278*^9}, CellLabel-> - "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] + "Out[109]=",ExpressionUUID->"83406fa2-507c-46c8-9fc9-2ec8ff04aa55"] }, Open ]], Cell[CellGroupData[{ @@ -3917,12 +9351,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + "In[110]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[BoxData["6.028089553291302`"], "Output", - CellChangeTimes->{3.9913409048112164`*^9}, +Cell[BoxData["9.372297388148128`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.993851281237946*^9}, CellLabel-> - "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] + "Out[110]=",ExpressionUUID->"a433a290-6996-4507-8791-4bbc3db58d4f"] }, Open ]], Cell[CellGroupData[{ @@ -4114,12 +9548,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + "In[111]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[BoxData["0.010798036798660033`"], "Output", - CellChangeTimes->{3.991340904825058*^9}, +Cell[BoxData["0.0747871844483751`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.9938512812520247`*^9}, CellLabel-> - "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] + "Out[111]=",ExpressionUUID->"992879f2-be49-4383-aec4-b751bacf8afd"] }, Open ]], Cell[CellGroupData[{ @@ -4133,12 +9567,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + "In[112]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[BoxData["8.5284977476633`"], "Output", - CellChangeTimes->{3.9913409049303207`*^9}, +Cell[BoxData["3.2406441836536146`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.9938512813552027`*^9}, CellLabel-> - "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] + "Out[112]=",ExpressionUUID->"24090173-e4f2-4ab1-8e97-e2a987ad27ce"] }, Open ]], Cell[CellGroupData[{ @@ -4231,12 +9665,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + "In[113]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991340904948307*^9}, +Cell[BoxData["0.16778085836042492`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.993851281365568*^9}, CellLabel-> - "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] + "Out[113]=",ExpressionUUID->"9b2c1270-3f52-47fc-a8e0-f4f225e577c3"] }, Open ]], Cell[CellGroupData[{ @@ -4326,12 +9760,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + "In[114]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991340904981308*^9}, +Cell[BoxData["0.832219141639575`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.99385128137626*^9}, CellLabel-> - "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] + "Out[114]=",ExpressionUUID->"f32d4872-70c3-423e-beca-99174cd105d2"] }, Open ]], Cell[CellGroupData[{ @@ -4454,12 +9888,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + "In[115]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.99134090500931*^9}, +Cell[BoxData["0.13963044192826393`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.993851281387542*^9}, CellLabel-> - "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] + "Out[115]=",ExpressionUUID->"a0f8cfa6-70ed-4dd6-89e3-bf6ddbd6a4c1"] }, Open ]], Cell[CellGroupData[{ @@ -4474,7 +9908,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -4496,8 +9932,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4521,68 +9956,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849824909197*^9},ExpressionUUID->"486d514f-ec65-1e4e-b780-\ -7e9487f745c3"], + CellChangeTimes->{3.991849824909197*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 361, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905038307*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0737212740811408`*^-195\\\", \ +RowBox[{\\\"668859810497440244092067196564\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"279094374400000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 33, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.9938512814056273`*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +In[116]:=",ExpressionUUID->"bd69c26f-0e25-48ef-835c-9ae5ed589214"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 362, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905047306*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.631548261656493`*^-200\\\", \ +RowBox[{\\\"154105300338610232238812282088\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"63\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"033438617600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 34, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993851281414844*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +In[116]:=",ExpressionUUID->"8e004243-2e29-4489-9338-d49d51f8baaf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 363, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905056307*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.4241757405647766`*^-204\\\", \ +RowBox[{\\\"370006826113003167605388289294\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"66\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"286120857600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 35, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.9938512814232407`*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +In[116]:=",ExpressionUUID->"f52c7dc5-d2b3-45c5-8240-ed8f7fe62370"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905064308*^9}, +during this calculation.\"", 2, 116, 36, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.9938512814313*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +In[116]:=",ExpressionUUID->"736c2dd2-0b2a-46e7-8e93-db9bb57c028c"], -Cell[BoxData["6.028089553291301`"], "Output", - CellChangeTimes->{3.991340908920454*^9}, +Cell[BoxData["9.372297388148136`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.993851285560357*^9}, CellLabel-> - "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] + "Out[116]=",ExpressionUUID->"cd3eab2e-71fc-4085-9926-fdbc6ba6794e"] }, Open ]], Cell[CellGroupData[{ @@ -4597,7 +10039,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -4619,8 +10063,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4644,68 +10087,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918498299076843`*^9},ExpressionUUID->"c7144ce5-8356-d548-8854-\ -18c538c3321c"], + CellChangeTimes->{3.9918498299076843`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 365, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908954941*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0737212740811408`*^-195\\\", \ +RowBox[{\\\"668859810497440244092067196564\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"279094374400000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 37, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993851285604603*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +In[117]:=",ExpressionUUID->"a333acf8-b79d-4b48-bc90-c8f72931d6b0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 366, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908964924*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.631548261656493`*^-200\\\", \ +RowBox[{\\\"154105300338610232238812282088\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"63\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"033438617600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 38, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993851285611479*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +In[117]:=",ExpressionUUID->"8cb40e0f-acd6-4cdc-9fff-d9f2b2925223"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 367, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409089739246`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.4241757405647766`*^-204\\\", \ +RowBox[{\\\"370006826113003167605388289294\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"66\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"286120857600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 39, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.99385128561982*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +In[117]:=",ExpressionUUID->"00a7cd6c-fea8-4476-90ac-ae0af6e38c7a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908981924*^9}, +during this calculation.\"", 2, 117, 40, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.9938512856253567`*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +In[117]:=",ExpressionUUID->"16aa2df7-f840-4077-b1f9-91852ef20dd6"], -Cell[BoxData["8.528497747663296`"], "Output", - CellChangeTimes->{3.991340912767397*^9}, +Cell[BoxData["3.240644183653615`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.99385128960527*^9}, CellLabel-> - "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] + "Out[117]=",ExpressionUUID->"3bb8553f-27a7-40ad-9560-862650f69886"] }, Open ]], Cell[CellGroupData[{ @@ -4763,95 +10213,92 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849833066021*^9},ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-\ -a45df2eabf0c"], + CellChangeTimes->{3.991849833066021*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk8FesfB3AUKWtkj8q+JyJbnm+cZN9akJ05Y0lZO6lE3dAmSVJui26y +JGt2qZ92FxdJpbpCwyn7zplu5ff4Y17zer+emc98vs9rZjYFRrgxebi4uL7i +Y/kc1a6rVtvZbjHUY2Z7azeNLCbuGQYyilH+CvT6JnZ/jlGmMqMRBZ503XED +24X4h0/Q4CXSrYypvY5dEZf4nJfRhjot8zWuYp97Jd2UWPQGvZYeuZaOXd8Z +dfun/jtkGQA8F7BHPrXEH33Ug3QuFIUkYcsOKXktWP2LxG00W+Ox7SfjTWLa ++pBT6lONWOwnP0cE4ooG0Ju06KQw7PenpI7XHKKQzd/osx/2BB9jZE5/CIly +tHT3YPOlRnoaLLLRZlnTE7uwFdbeao569B25RR1sNsF2klvIn7AaQ0/E3HbL +YZN3FCV1+CfQAx2BK2uwE1Wckw+0TSK2At3OcaNRj1T3ltiiaXSCJ8WsC5vY +HxZ6JXUGHf+kG/4Ye+om118PD80ivj0bswuw+RV1RKf15xHr7ey3OOxM4vku +UYkFlPN2YLU/9sYCz8TNiwuoLVRP3RrbWDtl4uAjDrqkvma/CHaIUV/biNVP +VKZz7MpVVxrNxR1euUb1F1KzM8yOxT75SMBcg/83+tPn4g037Otg/CC4bQlR +Z7ZlCWATec2M6CJuaLaMI6JcaFT06kr/KTke6Lgt72KDPfXNN/5yKg8IjxYb +K2DHa85Xlh9aAbceVXG9dsZ9yzYpTerzwvi5goOC2J86x578zuWF/sGeHZ+d +cP+Z2v3CEnygVOMqfh+7eKtThs4iHzxiOpbuwH5Rf4w7/BE/6AsMvSQdaTT/ +/G3fdytBYP3WOXvSnkZiDoKix58Iwo11RiUm2HrdDBAyEYIjvpa503Y0Chus +vrNFVxiCTz7h8cWO5GnT2y4oCh0B9ZfVbWk0pFg6nbywFjLdklYmW+P9IVtW +dxiIAVHdwNDC5nnA3iQdJQaSg0fdO3fivgYb3IpGxWBRiGteEnu/VfrD9n5x +qJozF8+yolFHUHSMVKsEjM+qLXgBjb4UpF3w55eE8nuHwycRjcZGi3Lv75SE +L4Kataew18RSb82aJOFSll3LXQsaMZL2bPWvloL4dsnR9+Y0arhnNF+YIwM9 +m30MV5nQ6N7QD5ZprDxMPjs9c1aPRjZ7z3yJKZGHWOupMS7ssRfi1iVseagr +sWcf2Uyjrfe0JTZ6KoCCm8/7QF28n4G+lbwWG0BBp7dMW5tGM5P9R76f3gir +5B6EpKvRSPwgo6rSURFSjxDc2fI0Yt9bE+ISpgivTC2UptfTqO7fTrnxFEWI +sZy2scH2dvA5rdqkCBnN6XdmZXE/LZZbtr4SRD75I9lCGj9/pGAqQUoZ1goH +OeaJ0WhPsICO3YAKjE/+kq3joxFi7dV3/6UCo4wTP+Z4aaSZnLONkFEF4QvW +43rYXLkGlgmuqlBXzRLKX0Gjki9e7g+fqoLYy2vbk7nw97mv+JTsXTVIYfSe +kfrBQXUMx/cjgRqwrnO72sUxDpJTvJR4YVAb1ve7ODe3c1Dj+TkNmkcHLPs3 +qtb8w0Hes57d5CYdUBjwW7jbxkG3XyhrWPrqAKveL+loCwcpBjd0cT7ogHoy +21f2FQdpFg+pkK26oF/S66b1mIPk5RTIjZ56UM1IC00t4iDtvFjB/5A+ING5 +Ep8/OOivaGWX6jZDeGlZ0U7qcFAnC21LyjOBPW8/fGE/X0SbfN85+YRvB5Zb +0NB+l0XEXKoplT8KcGAgy5n5eQFJjdatkgq0hO75DyEWexZQrIH5vxmaDOge +fDrb1jGPAsd/NouP7ITRlFXBCbbzqMQyZlVOxy4oVPq1g1E1h+7NhT0tzrSF +qmNuN4XU5hBnh/Q/LxLtweWdot2Wi7Ool2vF9ECAI1z7EMLOXJhBh9ZHpJ9S +coZOYT+f+AMzqDS0uelqsgsEeUmk8H+YRsdmZRa1Ql3h76jWVSznaTRvZ73v +tZ8bVJ7N+pjYNIVMvC7vGHLdDfP89US58RTqkrkV9sJgD8zL22t/i59Esvmn +GwvV94J5ZoqdWcIEquvXdHAS2gfe+3TPF/45jhS6p4JZ4/sgQ0VpfcjLMWRw +9XJxbr879C50DNgMj6JbK2d1M557gAfxKiVedRTV7Nj8KbneE+K6ljInfUfQ +9W3n1/4s2g8yNgWcwvxh1PE5L8Ug1Qu6w5vWCvAOo2rHm8qRJ73h8ujiub/9 +v6Ppg7u5DhE+sLdWUeT6m29o3lojZMLKF+YCkvJOO31DheMfOTFGfkCW9YpG +tbCRx195QT6C/jD6RVUkyYONKh/a+6044w+/9d+0f2UPIRO5Lvoc7Q/lHzP0 +OpKHkFJ/8Kc3oQFwZdSsvF93CA0KHHC+SQVAjO7WWxkfB1FnmlPQrr2BMDqj +pqCXMYgy43IEDncGwsnhT91XHQdR45MlOsg2CLpGLmkPig0iEW84Y9AQBKLW +ubk1FIU2rnvdsb4xCHqmhaborxTSa3OU5nsSBHVSsc+3Y7uZe93veRoE/ryC +S6/6KZS5ntV64u8gyDL0bu7rpZBs7wOR5p4g0NbddEOzh0LKvlLXvReDQNM7 +f0n5HwqZ+E8UJm8lwHxmuq2ojkL52VMxTkYE9FlUf5LBXvd2xkLKmACPrbre +52opNLFzsbvQjADZ56oNoTUU/h9wcbdZEhCrdnxgcxWFhBfXeoq5EnBEelXP +mzIKDV40XJ1zkACh/ADj8AIKub7e1h0cQcCsPKt8OJ9CT7hMc/SiCJBefeRG +MHZ2jIXhs1gCkgJUW4g8Cjl57goYOk5Al9PVc0QuheqVPeu1zhOQb5J14WgO +hdIexYfW5RMwlrc9lr5GoYP610ziCgnYKRGdcgbb4X7FauMiAryzD/BJYq+5 +xr5fW0LAneZs561ZFEqOdhmpqSLgobo7HyuTQvEaygeqnxHQeJifW/gyhcKu +tYY//EIA9aljdfp5CtkKs82j+wlY5cRo1cJWT+YS0v9KAEuETb8+RyF2tGFJ +xRABj/+Xc5sbO8ApZ7x8jIA3pZG8x85QyIM35lDZDwJowf8xEpMotCtGNrJY +kgnK6nXhnxMo9CwnxS5Dmgn5P+tiT2Cbt80ox8ky4bb/nZ8bsPVUWj9aKTBh +ZptIKnmCQjIfjlt9VsHr5kOF9HEKjZr2Sq4xZILAD5v3245S6BLPncfBu5ng +vOVnn3gsnn+z4HXHvUxwjWj5/DKGQklecdEG7kxY+X5iXxx2XJWL2tJ+JvC0 +arR+icb9Se7LWYFMEE1eLKqIopBBSyDxMooJBYmnGBERFPpwWUVAKZ0JWX+p +vLQ9QKFSJBTy/TKeR3nmtQh20vjci5IrTIg0NTZ5H0YhfdsXCcbXcJ801WAC +O40raMbxNhOuf7WcSg6lkHXEnY9xxUwQt7Sq7g2mkLz8WSOLUiY4rWfdLsKe +a4m4sqKcCUWnf8wfwb6rihzTKvH8hROT4ti/enubchuYcFGXIeJKUqjKQa6w +vZkJI12VdB9BoQs/eHgzW5jwNGrmVSV2YOFIgGcbE/hy/XjOYouubJAb7GDC +79LHz7dghz/yuES/Z8IzVdfI80EUUtLMYikPMUH9l1aESyCFfnw48XaYzYSm +P8MVtLA7k5l6Zd+ZwO59bMaHnTCwdcRkjAmV5y80PQ6g0Kfrb32cZ5kQL5Y3 +swU7Y9Xance4SZCWObSo60+hxpler9gVJMQ8+LBCCPtbb1H0IV4SDlbZZo/6 +4fehinEncDUJPKeQXxE22z/uP7u1JByQs3DXxRZ12Cm2U5yEfsvaB6LYZtvE +NJAECe37Nc/N+lIoXah4n4EMCWmli18asM0a+irkNpHg0Me94IxN5hU3SyiR +YO8on2G0fH360T4RFRLs5FVr5bHZpLjQSg0Ssrb8uDHug9fFd4WM6ZHQzJ/S +eQW74bd4IlufhHltdmUC9tBw/9X+rSQkrtfYGIZt2nTsebcxCRsL3a5YYg+G +lyo8BhK4DSQGaW/8//A4blhrSUKRebjwMLaJlY1DBYMEw5hbT3uw02S+Hs2z +wX1Lzj+rx65bWZaeY0fCs28M0QfY1OTxgmwHEr42vmPfxDZ+JfHuogsJ+f8d +0f0DO7Di6+gZNxJMP5/JOYx98WYZzx97SHDfcSA7FPtrtK0ey4OEJuq+2m5s +IV/JXZH7SRB5t6LRZjnPlvIJ8yahs0b3o8Xy/RtOXPD1JyFZcL5Ee7nPGru7 +HoEkRMZeYiov581L1rsRJAxXcfLWL+cNUB0OJAk5XnoREst5beVs6xAStH8b +PhVe7ld74heEkSBuuvom/3L+Xbt1ZuEkFFTdX+JZzr8opWV4iAQlOamxX144 +P25wx+ZIPJ+iawCNLUhUeGhEk7D9rLvfPPY254QIpVgSGkU12dPYgab2KfIs +EqbONs9PYKeqSN+SisN9X+qnjWHXiA5Vrj1GQt/dkLIR7IH/KloE4klI5Q3z +HF7O/5YwwJtAwtuPRqnfsY267DlLiSR0iXfsWvb/AW24uX0= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -4865,106 +10312,104 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwV1Hk8FesfB3AUKWtkj8q+JyJbnm+cZN9akJ05Y0lZO6lE3dAmSVJui26y +JGt2qZ92FxdJpbpCwyn7zplu5ff4Y17zer+emc98vs9rZjYFRrgxebi4uL7i +Y/kc1a6rVtvZbjHUY2Z7azeNLCbuGQYyilH+CvT6JnZ/jlGmMqMRBZ503XED +24X4h0/Q4CXSrYypvY5dEZf4nJfRhjot8zWuYp97Jd2UWPQGvZYeuZaOXd8Z +dfun/jtkGQA8F7BHPrXEH33Ug3QuFIUkYcsOKXktWP2LxG00W+Ox7SfjTWLa ++pBT6lONWOwnP0cE4ooG0Ju06KQw7PenpI7XHKKQzd/osx/2BB9jZE5/CIly +tHT3YPOlRnoaLLLRZlnTE7uwFdbeao569B25RR1sNsF2klvIn7AaQ0/E3HbL +YZN3FCV1+CfQAx2BK2uwE1Wckw+0TSK2At3OcaNRj1T3ltiiaXSCJ8WsC5vY +HxZ6JXUGHf+kG/4Ye+om118PD80ivj0bswuw+RV1RKf15xHr7ey3OOxM4vku +UYkFlPN2YLU/9sYCz8TNiwuoLVRP3RrbWDtl4uAjDrqkvma/CHaIUV/biNVP +VKZz7MpVVxrNxR1euUb1F1KzM8yOxT75SMBcg/83+tPn4g037Otg/CC4bQlR +Z7ZlCWATec2M6CJuaLaMI6JcaFT06kr/KTke6Lgt72KDPfXNN/5yKg8IjxYb +K2DHa85Xlh9aAbceVXG9dsZ9yzYpTerzwvi5goOC2J86x578zuWF/sGeHZ+d +cP+Z2v3CEnygVOMqfh+7eKtThs4iHzxiOpbuwH5Rf4w7/BE/6AsMvSQdaTT/ +/G3fdytBYP3WOXvSnkZiDoKix58Iwo11RiUm2HrdDBAyEYIjvpa503Y0Chus +vrNFVxiCTz7h8cWO5GnT2y4oCh0B9ZfVbWk0pFg6nbywFjLdklYmW+P9IVtW +dxiIAVHdwNDC5nnA3iQdJQaSg0fdO3fivgYb3IpGxWBRiGteEnu/VfrD9n5x +qJozF8+yolFHUHSMVKsEjM+qLXgBjb4UpF3w55eE8nuHwycRjcZGi3Lv75SE +L4Kataew18RSb82aJOFSll3LXQsaMZL2bPWvloL4dsnR9+Y0arhnNF+YIwM9 +m30MV5nQ6N7QD5ZprDxMPjs9c1aPRjZ7z3yJKZGHWOupMS7ssRfi1iVseagr +sWcf2Uyjrfe0JTZ6KoCCm8/7QF28n4G+lbwWG0BBp7dMW5tGM5P9R76f3gir +5B6EpKvRSPwgo6rSURFSjxDc2fI0Yt9bE+ISpgivTC2UptfTqO7fTrnxFEWI +sZy2scH2dvA5rdqkCBnN6XdmZXE/LZZbtr4SRD75I9lCGj9/pGAqQUoZ1goH +OeaJ0WhPsICO3YAKjE/+kq3joxFi7dV3/6UCo4wTP+Z4aaSZnLONkFEF4QvW +43rYXLkGlgmuqlBXzRLKX0Gjki9e7g+fqoLYy2vbk7nw97mv+JTsXTVIYfSe +kfrBQXUMx/cjgRqwrnO72sUxDpJTvJR4YVAb1ve7ODe3c1Dj+TkNmkcHLPs3 +qtb8w0Hes57d5CYdUBjwW7jbxkG3XyhrWPrqAKveL+loCwcpBjd0cT7ogHoy +21f2FQdpFg+pkK26oF/S66b1mIPk5RTIjZ56UM1IC00t4iDtvFjB/5A+ING5 +Ep8/OOivaGWX6jZDeGlZ0U7qcFAnC21LyjOBPW8/fGE/X0SbfN85+YRvB5Zb +0NB+l0XEXKoplT8KcGAgy5n5eQFJjdatkgq0hO75DyEWexZQrIH5vxmaDOge +fDrb1jGPAsd/NouP7ITRlFXBCbbzqMQyZlVOxy4oVPq1g1E1h+7NhT0tzrSF +qmNuN4XU5hBnh/Q/LxLtweWdot2Wi7Ool2vF9ECAI1z7EMLOXJhBh9ZHpJ9S +coZOYT+f+AMzqDS0uelqsgsEeUmk8H+YRsdmZRa1Ql3h76jWVSznaTRvZ73v +tZ8bVJ7N+pjYNIVMvC7vGHLdDfP89US58RTqkrkV9sJgD8zL22t/i59Esvmn +GwvV94J5ZoqdWcIEquvXdHAS2gfe+3TPF/45jhS6p4JZ4/sgQ0VpfcjLMWRw +9XJxbr879C50DNgMj6JbK2d1M557gAfxKiVedRTV7Nj8KbneE+K6ljInfUfQ +9W3n1/4s2g8yNgWcwvxh1PE5L8Ug1Qu6w5vWCvAOo2rHm8qRJ73h8ujiub/9 +v6Ppg7u5DhE+sLdWUeT6m29o3lojZMLKF+YCkvJOO31DheMfOTFGfkCW9YpG +tbCRx195QT6C/jD6RVUkyYONKh/a+6044w+/9d+0f2UPIRO5Lvoc7Q/lHzP0 +OpKHkFJ/8Kc3oQFwZdSsvF93CA0KHHC+SQVAjO7WWxkfB1FnmlPQrr2BMDqj +pqCXMYgy43IEDncGwsnhT91XHQdR45MlOsg2CLpGLmkPig0iEW84Y9AQBKLW +ubk1FIU2rnvdsb4xCHqmhaborxTSa3OU5nsSBHVSsc+3Y7uZe93veRoE/ryC +S6/6KZS5ntV64u8gyDL0bu7rpZBs7wOR5p4g0NbddEOzh0LKvlLXvReDQNM7 +f0n5HwqZ+E8UJm8lwHxmuq2ojkL52VMxTkYE9FlUf5LBXvd2xkLKmACPrbre +52opNLFzsbvQjADZ56oNoTUU/h9wcbdZEhCrdnxgcxWFhBfXeoq5EnBEelXP +mzIKDV40XJ1zkACh/ADj8AIKub7e1h0cQcCsPKt8OJ9CT7hMc/SiCJBefeRG +MHZ2jIXhs1gCkgJUW4g8Cjl57goYOk5Al9PVc0QuheqVPeu1zhOQb5J14WgO +hdIexYfW5RMwlrc9lr5GoYP610ziCgnYKRGdcgbb4X7FauMiAryzD/BJYq+5 +xr5fW0LAneZs561ZFEqOdhmpqSLgobo7HyuTQvEaygeqnxHQeJifW/gyhcKu +tYY//EIA9aljdfp5CtkKs82j+wlY5cRo1cJWT+YS0v9KAEuETb8+RyF2tGFJ +xRABj/+Xc5sbO8ApZ7x8jIA3pZG8x85QyIM35lDZDwJowf8xEpMotCtGNrJY +kgnK6nXhnxMo9CwnxS5Dmgn5P+tiT2Cbt80ox8ky4bb/nZ8bsPVUWj9aKTBh +ZptIKnmCQjIfjlt9VsHr5kOF9HEKjZr2Sq4xZILAD5v3245S6BLPncfBu5ng +vOVnn3gsnn+z4HXHvUxwjWj5/DKGQklecdEG7kxY+X5iXxx2XJWL2tJ+JvC0 +arR+icb9Se7LWYFMEE1eLKqIopBBSyDxMooJBYmnGBERFPpwWUVAKZ0JWX+p +vLQ9QKFSJBTy/TKeR3nmtQh20vjci5IrTIg0NTZ5H0YhfdsXCcbXcJ801WAC +O40raMbxNhOuf7WcSg6lkHXEnY9xxUwQt7Sq7g2mkLz8WSOLUiY4rWfdLsKe +a4m4sqKcCUWnf8wfwb6rihzTKvH8hROT4ti/enubchuYcFGXIeJKUqjKQa6w +vZkJI12VdB9BoQs/eHgzW5jwNGrmVSV2YOFIgGcbE/hy/XjOYouubJAb7GDC +79LHz7dghz/yuES/Z8IzVdfI80EUUtLMYikPMUH9l1aESyCFfnw48XaYzYSm +P8MVtLA7k5l6Zd+ZwO59bMaHnTCwdcRkjAmV5y80PQ6g0Kfrb32cZ5kQL5Y3 +swU7Y9Xance4SZCWObSo60+hxpler9gVJMQ8+LBCCPtbb1H0IV4SDlbZZo/6 +4fehinEncDUJPKeQXxE22z/uP7u1JByQs3DXxRZ12Cm2U5yEfsvaB6LYZtvE +NJAECe37Nc/N+lIoXah4n4EMCWmli18asM0a+irkNpHg0Me94IxN5hU3SyiR +YO8on2G0fH360T4RFRLs5FVr5bHZpLjQSg0Ssrb8uDHug9fFd4WM6ZHQzJ/S +eQW74bd4IlufhHltdmUC9tBw/9X+rSQkrtfYGIZt2nTsebcxCRsL3a5YYg+G +lyo8BhK4DSQGaW/8//A4blhrSUKRebjwMLaJlY1DBYMEw5hbT3uw02S+Hs2z +wX1Lzj+rx65bWZaeY0fCs28M0QfY1OTxgmwHEr42vmPfxDZ+JfHuogsJ+f8d +0f0DO7Di6+gZNxJMP5/JOYx98WYZzx97SHDfcSA7FPtrtK0ey4OEJuq+2m5s +IV/JXZH7SRB5t6LRZjnPlvIJ8yahs0b3o8Xy/RtOXPD1JyFZcL5Ee7nPGru7 +HoEkRMZeYiov581L1rsRJAxXcfLWL+cNUB0OJAk5XnoREst5beVs6xAStH8b +PhVe7ld74heEkSBuuvom/3L+Xbt1ZuEkFFTdX+JZzr8opWV4iAQlOamxX144 +P25wx+ZIPJ+iawCNLUhUeGhEk7D9rLvfPPY254QIpVgSGkU12dPYgab2KfIs +EqbONs9PYKeqSN+SisN9X+qnjWHXiA5Vrj1GQt/dkLIR7IH/KloE4klI5Q3z +HF7O/5YwwJtAwtuPRqnfsY267DlLiSR0iXfsWvb/AW24uX0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "PlotRange" -> {{0, 180}, {0.6049691584126953, + 1.5829136715597596`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6049691584126966}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -4976,20 +10421,21 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.6049691584126953, + 1.5829136715597596`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.6049691584126966}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5003,105 +10449,102 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwV1Hk8FesfB3AUKWtkj8q+JyJbnm+cZN9akJ05Y0lZO6lE3dAmSVJui26y +JGt2qZ92FxdJpbpCwyn7zplu5ff4Y17zer+emc98vs9rZjYFRrgxebi4uL7i +Y/kc1a6rVtvZbjHUY2Z7azeNLCbuGQYyilH+CvT6JnZ/jlGmMqMRBZ503XED +24X4h0/Q4CXSrYypvY5dEZf4nJfRhjot8zWuYp97Jd2UWPQGvZYeuZaOXd8Z +dfun/jtkGQA8F7BHPrXEH33Ug3QuFIUkYcsOKXktWP2LxG00W+Ox7SfjTWLa ++pBT6lONWOwnP0cE4ooG0Ju06KQw7PenpI7XHKKQzd/osx/2BB9jZE5/CIly +tHT3YPOlRnoaLLLRZlnTE7uwFdbeao569B25RR1sNsF2klvIn7AaQ0/E3HbL +YZN3FCV1+CfQAx2BK2uwE1Wckw+0TSK2At3OcaNRj1T3ltiiaXSCJ8WsC5vY +HxZ6JXUGHf+kG/4Ye+om118PD80ivj0bswuw+RV1RKf15xHr7ey3OOxM4vku +UYkFlPN2YLU/9sYCz8TNiwuoLVRP3RrbWDtl4uAjDrqkvma/CHaIUV/biNVP +VKZz7MpVVxrNxR1euUb1F1KzM8yOxT75SMBcg/83+tPn4g037Otg/CC4bQlR +Z7ZlCWATec2M6CJuaLaMI6JcaFT06kr/KTke6Lgt72KDPfXNN/5yKg8IjxYb +K2DHa85Xlh9aAbceVXG9dsZ9yzYpTerzwvi5goOC2J86x578zuWF/sGeHZ+d +cP+Z2v3CEnygVOMqfh+7eKtThs4iHzxiOpbuwH5Rf4w7/BE/6AsMvSQdaTT/ +/G3fdytBYP3WOXvSnkZiDoKix58Iwo11RiUm2HrdDBAyEYIjvpa503Y0Chus +vrNFVxiCTz7h8cWO5GnT2y4oCh0B9ZfVbWk0pFg6nbywFjLdklYmW+P9IVtW +dxiIAVHdwNDC5nnA3iQdJQaSg0fdO3fivgYb3IpGxWBRiGteEnu/VfrD9n5x +qJozF8+yolFHUHSMVKsEjM+qLXgBjb4UpF3w55eE8nuHwycRjcZGi3Lv75SE +L4Kataew18RSb82aJOFSll3LXQsaMZL2bPWvloL4dsnR9+Y0arhnNF+YIwM9 +m30MV5nQ6N7QD5ZprDxMPjs9c1aPRjZ7z3yJKZGHWOupMS7ssRfi1iVseagr +sWcf2Uyjrfe0JTZ6KoCCm8/7QF28n4G+lbwWG0BBp7dMW5tGM5P9R76f3gir +5B6EpKvRSPwgo6rSURFSjxDc2fI0Yt9bE+ISpgivTC2UptfTqO7fTrnxFEWI +sZy2scH2dvA5rdqkCBnN6XdmZXE/LZZbtr4SRD75I9lCGj9/pGAqQUoZ1goH +OeaJ0WhPsICO3YAKjE/+kq3joxFi7dV3/6UCo4wTP+Z4aaSZnLONkFEF4QvW +43rYXLkGlgmuqlBXzRLKX0Gjki9e7g+fqoLYy2vbk7nw97mv+JTsXTVIYfSe +kfrBQXUMx/cjgRqwrnO72sUxDpJTvJR4YVAb1ve7ODe3c1Dj+TkNmkcHLPs3 +qtb8w0Hes57d5CYdUBjwW7jbxkG3XyhrWPrqAKveL+loCwcpBjd0cT7ogHoy +21f2FQdpFg+pkK26oF/S66b1mIPk5RTIjZ56UM1IC00t4iDtvFjB/5A+ING5 +Ep8/OOivaGWX6jZDeGlZ0U7qcFAnC21LyjOBPW8/fGE/X0SbfN85+YRvB5Zb +0NB+l0XEXKoplT8KcGAgy5n5eQFJjdatkgq0hO75DyEWexZQrIH5vxmaDOge +fDrb1jGPAsd/NouP7ITRlFXBCbbzqMQyZlVOxy4oVPq1g1E1h+7NhT0tzrSF +qmNuN4XU5hBnh/Q/LxLtweWdot2Wi7Ool2vF9ECAI1z7EMLOXJhBh9ZHpJ9S +coZOYT+f+AMzqDS0uelqsgsEeUmk8H+YRsdmZRa1Ql3h76jWVSznaTRvZ73v +tZ8bVJ7N+pjYNIVMvC7vGHLdDfP89US58RTqkrkV9sJgD8zL22t/i59Esvmn +GwvV94J5ZoqdWcIEquvXdHAS2gfe+3TPF/45jhS6p4JZ4/sgQ0VpfcjLMWRw +9XJxbr879C50DNgMj6JbK2d1M557gAfxKiVedRTV7Nj8KbneE+K6ljInfUfQ +9W3n1/4s2g8yNgWcwvxh1PE5L8Ug1Qu6w5vWCvAOo2rHm8qRJ73h8ujiub/9 +v6Ppg7u5DhE+sLdWUeT6m29o3lojZMLKF+YCkvJOO31DheMfOTFGfkCW9YpG +tbCRx195QT6C/jD6RVUkyYONKh/a+6044w+/9d+0f2UPIRO5Lvoc7Q/lHzP0 +OpKHkFJ/8Kc3oQFwZdSsvF93CA0KHHC+SQVAjO7WWxkfB1FnmlPQrr2BMDqj +pqCXMYgy43IEDncGwsnhT91XHQdR45MlOsg2CLpGLmkPig0iEW84Y9AQBKLW +ubk1FIU2rnvdsb4xCHqmhaborxTSa3OU5nsSBHVSsc+3Y7uZe93veRoE/ryC +S6/6KZS5ntV64u8gyDL0bu7rpZBs7wOR5p4g0NbddEOzh0LKvlLXvReDQNM7 +f0n5HwqZ+E8UJm8lwHxmuq2ojkL52VMxTkYE9FlUf5LBXvd2xkLKmACPrbre +52opNLFzsbvQjADZ56oNoTUU/h9wcbdZEhCrdnxgcxWFhBfXeoq5EnBEelXP +mzIKDV40XJ1zkACh/ADj8AIKub7e1h0cQcCsPKt8OJ9CT7hMc/SiCJBefeRG +MHZ2jIXhs1gCkgJUW4g8Cjl57goYOk5Al9PVc0QuheqVPeu1zhOQb5J14WgO +hdIexYfW5RMwlrc9lr5GoYP610ziCgnYKRGdcgbb4X7FauMiAryzD/BJYq+5 +xr5fW0LAneZs561ZFEqOdhmpqSLgobo7HyuTQvEaygeqnxHQeJifW/gyhcKu +tYY//EIA9aljdfp5CtkKs82j+wlY5cRo1cJWT+YS0v9KAEuETb8+RyF2tGFJ +xRABj/+Xc5sbO8ApZ7x8jIA3pZG8x85QyIM35lDZDwJowf8xEpMotCtGNrJY +kgnK6nXhnxMo9CwnxS5Dmgn5P+tiT2Cbt80ox8ky4bb/nZ8bsPVUWj9aKTBh +ZptIKnmCQjIfjlt9VsHr5kOF9HEKjZr2Sq4xZILAD5v3245S6BLPncfBu5ng +vOVnn3gsnn+z4HXHvUxwjWj5/DKGQklecdEG7kxY+X5iXxx2XJWL2tJ+JvC0 +arR+icb9Se7LWYFMEE1eLKqIopBBSyDxMooJBYmnGBERFPpwWUVAKZ0JWX+p +vLQ9QKFSJBTy/TKeR3nmtQh20vjci5IrTIg0NTZ5H0YhfdsXCcbXcJ801WAC +O40raMbxNhOuf7WcSg6lkHXEnY9xxUwQt7Sq7g2mkLz8WSOLUiY4rWfdLsKe +a4m4sqKcCUWnf8wfwb6rihzTKvH8hROT4ti/enubchuYcFGXIeJKUqjKQa6w +vZkJI12VdB9BoQs/eHgzW5jwNGrmVSV2YOFIgGcbE/hy/XjOYouubJAb7GDC +79LHz7dghz/yuES/Z8IzVdfI80EUUtLMYikPMUH9l1aESyCFfnw48XaYzYSm +P8MVtLA7k5l6Zd+ZwO59bMaHnTCwdcRkjAmV5y80PQ6g0Kfrb32cZ5kQL5Y3 +swU7Y9Xance4SZCWObSo60+hxpler9gVJMQ8+LBCCPtbb1H0IV4SDlbZZo/6 +4fehinEncDUJPKeQXxE22z/uP7u1JByQs3DXxRZ12Cm2U5yEfsvaB6LYZtvE +NJAECe37Nc/N+lIoXah4n4EMCWmli18asM0a+irkNpHg0Me94IxN5hU3SyiR +YO8on2G0fH360T4RFRLs5FVr5bHZpLjQSg0Ssrb8uDHug9fFd4WM6ZHQzJ/S +eQW74bd4IlufhHltdmUC9tBw/9X+rSQkrtfYGIZt2nTsebcxCRsL3a5YYg+G +lyo8BhK4DSQGaW/8//A4blhrSUKRebjwMLaJlY1DBYMEw5hbT3uw02S+Hs2z +wX1Lzj+rx65bWZaeY0fCs28M0QfY1OTxgmwHEr42vmPfxDZ+JfHuogsJ+f8d +0f0DO7Di6+gZNxJMP5/JOYx98WYZzx97SHDfcSA7FPtrtK0ey4OEJuq+2m5s +IV/JXZH7SRB5t6LRZjnPlvIJ8yahs0b3o8Xy/RtOXPD1JyFZcL5Ee7nPGru7 +HoEkRMZeYiov581L1rsRJAxXcfLWL+cNUB0OJAk5XnoREst5beVs6xAStH8b +PhVe7ld74heEkSBuuvom/3L+Xbt1ZuEkFFTdX+JZzr8opWV4iAQlOamxX144 +P25wx+ZIPJ+iawCNLUhUeGhEk7D9rLvfPPY254QIpVgSGkU12dPYgab2KfIs +EqbONs9PYKeqSN+SisN9X+qnjWHXiA5Vrj1GQt/dkLIR7IH/KloE4klI5Q3z +HF7O/5YwwJtAwtuPRqnfsY267DlLiSR0iXfsWvb/AW24uX0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.6049691584126953, 1.5829136715597596`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.6049691584126966}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5111,7 +10554,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.42228371308737755`}, + AxesOrigin->{0, 0.6049691584126966}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5139,7 +10583,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6049691584126953, 1.5829136715597596`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5147,9 +10592,9 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913411752988663`*^9}, + CellChangeTimes->{3.9913411752988663`*^9, 3.993851550571788*^9}, CellLabel-> - "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] + "Out[118]=",ExpressionUUID->"9d091533-2791-4f17-b7cb-a777069d790a"] }, Open ]], Cell[CellGroupData[{ @@ -5212,157 +10657,195 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918498397477245`*^9, - 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ -70a15768b745"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 361, - 369, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755393047`*^9}, + CellChangeTimes->{{3.9918498397477245`*^9, 3.9918498435341415`*^9}}, CellLabel-> - "During evaluation of \ -In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + "In[119]:=",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.5813137255952923`*^-265\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 361, 370, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755492897`*^9}, + 119, 41, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.99385155070262*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], +In[119]:=",ExpressionUUID->"b8c46302-5a4e-4e8f-8c7c-a13127b75a01"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.2230089475122685`*^-275\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 361, 371, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991341175557289*^9}, + 2, 119, 42, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993851550708991*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +In[119]:=",ExpressionUUID->"893cd34d-1098-4f3e-b616-2ec10b9b8420"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2648951267809324`*^-286\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 119, 43, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993851550714333*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"02cfcf66-339b-46ce-83b0-4ef6022fbae4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755664787`*^9}, +during this calculation.\"", 2, 119, 44, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.99385155071983*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +In[119]:=",ExpressionUUID->"d31a0bf5-1060-4afd-98fd-326c704d2932"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3BRKUW69uVeeySEuNx7Xe83GRkpMyukfM1CVmhRdoMmEpKU +lHUPWUk0aCcrpKH6+lZWZkN+5/fXeTwf53PO+Tw+n/f7dc6R9w118OPl4eEJ +XMLD8//j7FDHfaWMYuO22s27fiVaGnflS8aa9CVC/k6LpSZZyoBiL3wl+06D +O/tqu1CWPkRvu9HL11cEFDo19GumOawdkzj9s7caOCFDjmWZzvCuyS50urcV +msI81/ad8gMLpa9vJ3s7obpT79+C41Hws9fg3ETvR8hk1ds9P5wEbZuuFb8q +mgJrDbMT8hrnQeZd/RdfjQXIK39AS9MrBNEQ7xv8m/iw0HJl5q6xYjitY9Fo +57wCzcZXaNpeKYU32dotk8KCmJD+yWPk1C3IfV22JlpZEPdfG4jqKrgF7kKq +3r+Ygug0nj1eW3ELBo/S/vLuEsQ4130/vF7cgvd7BYxEawQxrYr6iCVUDiNm +n24z3ITQawnTip5eDvMTFyriL69B0YWjN+PiKiCj+PALXqm1qER7L+uXXwnW +eoEUMcW1qDH+vP9ncSWsuO/grKq5Fos7lTPSyirh2LDygI3JWvzVsvxRTl0l +HFB4+uVs4FqMvLyYerCzEvYWSv5VaViLn3jD19kvqwL7vCoNGw8Kdlws/Svn +XwXCGhdDd/hR0KpFSI2ypwqeNx6rDg2loPWNNMW/+6rAemC74dmjFDTt5Dnx +8FAVmFL/bnpbRsG8ZZuEpc5XgV62tUfoHwr6XvxEud9WBRJnh9POXBJB7ZGU +3RrS1SC5vubYfIkIvj4VtkNarhqorcmHd1SKoLFRZ/My5WqgT6yLUm0TwdaA +P3VPtapB2TbMp3FEBNObmQcVTath49IFxvBGUZT2FBya8q+GrZHin3Qfi6Kb +yII6rbIatq0aGbrwWhRbl4jt2E9Ug0NR/Zs/g6J4+Knqt+d11eDy0vPFw3FR +7E3QpO69Vw07NK40uIuJ4amZiqbIzmoI/rQhK9FHDCvNIz8UTVVDipOVcees +GE5n5cUn6HKBSjyn8i4Rx6YbSdQcBhfKRZzmdFaJY8KVGuMyFhd6Or0qs2TF +kdf8nvhdUy4o2Ucq2G8Wx28xc0uvOnChdUvB8pc54ni87PbbwHAuLFjMPH9m +JIF+o92KfTe4kFkSV7ZgIYFJfZdSsJy8fjlPqqa9BHr46EdeqeKC7QMBkxN+ +Evgy49uIax0XcjfJcW1PSuDQyLXNiQ+4YIg2F568k8ARnuXrXwxxIYJ52bsj +URIn30xaOgkSYF0oNG1zXBIzImdM3q8hQIH/QOrzc5J4zkzrmD+FgJddLlWv +r0vi1320YX8JArTCVvMNPZfEuG3+ktryBIyUxJT8oEphXohS59BGAu4KfmZF +KUmhx8S6DFkGAecjHV7MaUohvig962FIgLmp5vwflMJVHv4XHxgRUPT2oxW/ +vxRa8vum7jQnwFPUblSaK4VSuaZB9c4EbIxvTMhvksIG3qaIiu0ECHxUE5d/ +KIW7mqp7C90IqK/gA5U3UqhyrasqagcB4jb1mdqLUqgeEtb6725y/glKeuY2 +VDQIrJsd3UfAtZGs9kdOVDyzLnshJ5KAQ1sXPa29qBh7rDTIJJoATVp/0tZw +Kq6npsYlxhKQXneq1+0CFfWaLqc8O0yA2fivuL3DVHxiwSucmkFA7Oaz6ve+ +U/Flvuf34eMElF/W7BeZpSJlLieQfZIASScfZv0Kabw0J279NpOA73UP5vi0 +pPE65W3D93MEyFO8r7kYSKP5In+t8gUCXILnXUpRGlO8xlzdswlooa2vtXOU +xgS1qJzaXALOJGZG5uyXxneC4XR2AQHtA+uUvidIo2puRJh9IQF/9NpeG2dI +Y6PKP+G7LhPwz78zup8uSWNI4sujcVcIYNl6TGq1SaP484WlUdcI+Cimsve+ +oAyuVgzemldOgEToXZqEhAze2ZLJu7eCANt212eBcjIoLiMTya4koDYuQ2PN +Rhk8GxJ1vqOKXJ93E1/dXGXw/YqB6WqC3H/D9NybO2Vw93Tvbd8aAqazFK0X +g2QwjxZnIlRLgJeZS2nxQRk0+PjlputtAnRLG/3Hi2TQ0YvJ21hPgD+vs4Tp +TRm0X6UladVAQJ7H2MOzNTL4iPBY6CS9XEhehdUugzHN95n9jQSw/Ru6j7+S +wX/u6J3Z3kRAWItj0rt+GXSZtmh5Sbp/X/KnY6Pk82M6cmrvELDmqezZ3lkZ +9KvYv1mxmdxP5fpN6jw01Jq2fJFBurz3W9ELCg3bEzsDt90lYFg7yUFBhoa/ +v/QcvklaMp3OG6VMQ5mME/uWthCQYGS/k2pIwydXq35cI73ZK/+HgSkND0/Q +m3+SFjry7aizLQ0XPcUrLe4R0H3ZUCzChYbH9CUfnySd15ZUkulDw6/xJYKd +pHd97jQoD6Kh6YjZAeFWAtT55TqeRNLQ79/9EtakJ9X2uP93iIbJOR3vD5Gu +s274tjyNhnde3n1TTvpwCP9BpTM0vLDmC18/aYuTTkKml2h4I6Xdh6eNAMHK +ywXe12goLTkzKU+669WY9sEqGurY/q4zJn1xit2a20jDQbeQ2y6kfcXSHOse +0HCz3MBYIOl1Bj2ful/Q0Ftl0Gc/6QlXxeipNzR0zVm2JpH07bgw/rWfyPE2 +47+SSR/Ku5OtNUbDnCpdlRTS5s0C6rbzNLw6HHT6/+NXv9/eGMhLR/0cPZNY +0q+XXLVNWU1H/nVaesGkcxV/vC0Wp+P2lLkQV9I+5hDaKkfHEDPdUSSt6n+c +5706HVdnJNQqkR5LfZO1oEfHtbLpj/lIEzdUFKWBjl89fqgPkesR/zSCMLSi +o/hG3zdc0qZjLeYujnTkqh/tPUZ6pbBQb8QOOs568Kjak36p4xGQ5U/HmvDk +DknSXlEz6U/j6SjzwF8ol9wv5QumMl+T6CigqEQ43vt/f5+6xZ9Jx6VXyrgr +SMf9WffStJiOKZvGH+4m68GEHrPTp5yONt2SQ6tIr8D7Pw7W0TErYMS5nKyv +c0e9xOqf0rFQ02/vZ7IePa+WlfT00NF5MoMSR1rh0bzB9Hs6uvXa0AVIVwqc +cd8wQ8fFotwIGbK+n2Y9KrhKk0Ub2/cWAmR/nOGK6rSpyiKlXsctjuwf9+6d +re91ZFG6w+rDZ7LfRiT/fJK2kEU7Mx73ijoC+Aq11U/vlcW0nwZyq8l+fXzv +YGPFfllUK/MTcSX7OXP4se2zRFn0mRpOLyD7na7qF7rigizuWqErJM8l86U8 +hzh0l7QQT+4YmR9mvc8Xxtpl0Qm1o5VJ2/EstfTulMV5SZ79rmTe7HLY+wY+ +y2KHV8GP6ptkvcbLHz6yTA59vX6OMUvJfpadvWKyXg7vPbLxySLzbIab2f5z +gxwOlHpuyyDzLm7z+tEqPTk0dOQ7nEDmYVK4D0PBWA6558PzfS+R9dP2uJ3X +Xg43zl2hzJN5et+/YLQtWg6fdC8ww08RYPWHSTkQL4cVH090bSDz+nlmF0Pv +iBw6ll169JXM8zf1K48Up8nh/PGeO87pZH2tiqQk5cmhuJWYFE8SmQeVmw0s +WuUwybqH5zr5vgiZnzzSLiiPxIrT4dt8yPUI/0f8C0Ue/cRayvd7kfv9tb+M +T1IeOXrd7/M8Cbg60NZjrCCPNVmXNd64EjDUfE6jhiGP125EXZa3J2BrErPv +src8hja9m59CMi8pCRviq+TR1HrV9nIaATwZM/eza+Vxe5v0eTdpcv58Qe61 +jfI4TLUSWSJFQPCMQ9LkA3k8+NbjlZkoAcV9SgP+/fIodcIwv0CAfF8WtCc7 +8SlggLXw8eJZLvxcLzyk6ayA1kueBfx5woXZS9SEje4KqLu9RsSkgwvTa5SV +mN4KOG5kGJj4kAtjU8wgs0AFvONtSvvdwoWPjbtm3Q8q4Ik1c//dr+HCY5vb +QqlXyfHhIjJN+eT3SbAXfJxRwGPLzbWs9nLBqOxm4fnzitg0MtWycykXBuTK +CswvKuJgsVqP7BIuxJ0vzZ8uUETztj8pAwvVcDuhJM+hVBG7rCw6bOaqQde1 +MFuoSRE/DjbOr/laDeuWnc1M/qCIUU+ONKu9qAZx7/gj0RpKKHZm9ljphWqY +pFj7uLQq4aiMiYKzQjV8Ou7jso9fBavv2wkPCVSB1XiM1WeGKtrkf/WOGKyA +77tWRBCH1dDFJTT+kf0t8n9CgjeldR2WlSQtu3rvBlCeqZysHFdH59XrXxV5 +XAeZ1IptDIYGOqdEvat6ehWy1zOFRfw1UfPmn3WWB6/AY6qJ/lSWFuqE3rLq +d7wMLJnWzA09G1B7eDp0wjgfhPiKIncmauMhbavI3j25QE+QNXJT0cFv1AB5 +evF5WKnsWevwSAeNX8hf22J1BrQ4UhUxO3Rx5Gl75Ln4TNg3RGmz5tmIFepJ +t7+cyYDxqePOVtkbkf4qIfHm+hSw3PAw10pTD+mKVsSo31FonmL/nnuuhzF6 +Fi8imw/DXg3d/ld++rgzVsMjWCEOouaov7wD9NFNO/bF0tVxcKCVjzoWpI83 +gvYKl8/EQoZrt5tAmD6y7frebOiIhevH9r8xjdNHDXW3mvGwWPg42NzHPamP +jgcon93a9oPLCZvec7f1Mbdy5+eiiBjgjO3uclvJwJDDvwe8eKJAvNGyqGkV +Ay/F56z4PhYJYynqYbJCDDRc5HdJehsJ+fITqz5TGHgllIc92BAJf53iN4XJ +MPDOE+2j1OhIuNuYVZ28gYEDEf13Xo9FgElacybXmYG/27acE/pvH5grSW4R +LGLgjsPuPS6LYUCMPpDfXczAmF2fhZZPhoHS7YjZhhIGNtQNHbn7MQyWWr8o +CChj4HbU/L3tYRi0hib/aCMY6KQyWTF6IgyMG6cvxD1iILew23GlbBgwHF59 +/Pc7A7ekNatbZu0FtSPp+1sNDNDs3dI74WHB0MS+usyWZYDfHlzvPOMSDNvm +7p7uNjJAgeknXY+NgmH/3pmbIyYGuNZRLChmZTC0e/p8ELI1wHRV86COK0EQ +wGRYe/gYoCpx2cN8MBBKf3yQnk41QPqEeYOpZwCo+zHvKvcboNKhrc9PnfOD +Uwp2v44OGqB4Q9DoWIIfTL/z1f84ZIB/7N+m7djrB83ux8vyhw0wvPaZSKCl +Hzhse3dBYpS8X+cTD8NfuyGWnRS2kscQeS49tqzw3Q3ta1/JjyobormYbnmj +8S7waw44RoQbolRo1egm+Z0wtudrjHmkIebUC394v2Yn7KeFBPdEG+KGviXW +J/76QPqBUIf5eEM0ffBkq+igD1SyouWMkg2xXjHlx5sLPvCn9mhTW64hppx1 ++sik+MDpivzpzjZDdBS++WFR0QvuFnbtnhRjYqin+d/iaHd4byvvHS3JxD3U +GN5wD3fg+bnH7TeVidkeNc3O6A6m9vx2y+SYePttiWiggDs8XMIykFJnoltY +jWZNgRs89S1YaWLMxPb6u+Odz12hXymoPPMfJpYEXzx71Xg7TF9fnNtwm4kq +vl8qn/s4wRcXi8K0eibWe/Nqlts6Qd/SE5uHG5nIJ3zRu8DQCRp9qDnnW5hY +rnKKWyvsBImS+qyFDiYOzWlfu33PEYRTgw48HmSiOfWs+5yKI2j4d/P48bIw +dMmUs+hfe6CLyZQ2L2XhiXjdK2u/24Nwm6+9JD8LDyQLr5Htt4cp+sTlJ6tY +uEMtY21QrT009Ahs0hVjoYEDK/huqD1stsCkRVUWUo7k9Xh+3ga7lMtW5m5h +4bj3Elt63VaIe+AVpLKNhX0ZK5dzzm2FTD/Kk2oHFnLFatUO7dsKTVdjjz/Z +zsKKpPKN/ppbQVRl85qFnSx00pVlvCq2g4cqn0V9olkoV93f/y1nC6irycqp +FLDwn/jAf6PzbADbO49UX2Zh9rOs1rKDNuASkPzBuJiFZQ2nUha9bODo9dGi +7aUsjLFZtptPwQYG1ZqU07gs/HIj72BsqTWcXOe2/vsjFip2DiqtaLaCSfUz +jOoJFhZUHo399ccS+p6iucgUC9UqdB1Khi2hZe+YY+QMC09/jLAPemwJJ6ut +whm/WOjX+TCClW0J6iyemw18bJSM3yT9U88SfK32yLeJs9EDaXeG9llAl7/l +6i4jNmpvF9G+v2gGjStnqPrAxpv3DWhb/zODorKidedN2BhWGvJ4vNMMwsYX +LFwt2Bg9dlx6X4kZCMYQCYNb2di8b3nOfjszsEiWn/vkS54vz9U4WLQJ6op/ +f5hJZWOS0oucETdTYGyKnLPOYCOR0VERYmEKNR++ry48wcZ3AjMn+TaaQjV9 +yMD6NBvXmfgEBq42hZvZLSfyL7IxdCy8S6TFBAqPJzEty9nolhXf061uAmmR +a7KyX7PRvVHW5YogwgqR1JLRbjZuv5HMfDAPkFzF02TaR47PZ6f79QAcG5v8 +8n2QjV4h55asOg1wKKDLyOQLGyfUqPQvAgD7PHNG/ptn47YRJu99XmNwN1NE +Nt0IkzvVOe4CRrDQtUKoTc4I8RImmv3HhkK/sQFrRSOc024PcGhnw5fk+hh3 +NSPkF4043ZfMhn0dWytidY1QkLH0evoyNqTbHaDXWRhhjMh8VcBKFjS4dv/R +CzXCrU9inNXUDWHHfw2Pm8KN8MhdiUULQUPgiSvMNos0wrL2NOOkCQOwuBis +5xRrhFt2qS/1uW0AnW+XhEQcNcLZyXtOGRYG8NVXa6DqghF+035bkR/EAOk9 +KfVaLUbYbdke/bVdD04u/qOf0WqEXenV/GFVesB72qLq3/tG+Lb56HfBXD34 +WrustLCDPM//ffvpYD1o4DmWTXlthMN6SmaNa/TA/eyRmNnPRmh94TctznMj +ZDfG6jev4uAFOcU7ovy6sNrOrYoqxME3M6mJcT904Mh7Q80YYQ4OSuqOzrzV +gYBl80raYhy8H/fOR7NGBwy2RosW0Tn4x0InI2+3DvR83DeVpMPB10Nae4Ie +aYOYQEjVlu0czB6hhMcYboDiTQfjJtw4eEAvqWaD8AbQPXhy0xlPDj5+IDsg +MaIFdhOV3X07OSg5uWUhOlsLkntmfu4K4eD+hG3Cwb81Yb7osGlcAgfDxYIL +/nZoQD/7zOuSMg5e87qteyhVHQKiivOsyjnYNjE/1emnDrPlNX7fKznYhwfS +7DepA0Whb06nloPtDubxT/6uA5sVNJk7LRw8l6yeditmHTR1lex+3c1BA7ty +R75wNbAWqtOM7uPgQijh+X6bGvRZdsxKDnBwp6hs1CdtNZhu+Jbq9Z6DK1df +Uts5qQqal7Vv/feVgx5E6g/VSFVo6jeJPj7KwYKEd88MnVXBWtQRNkxwkLDi ++oUyVOGflKhXkTMcDFPeobTlpwpMtyTnSsxzMOqB5/xUvwok/rqwq+EXB5+x +NYbvNqmAsF6pxo4FDs5eaWuszFeB/D0NM4uLHOTkm7o9PKIC/wOY/yDX "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5376,116 +10859,150 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV13c8Vf8fB3BRKUW69uVeeySEuNx7Xe83GRkpMyukfM1CVmhRdoMmEpKU +lHUPWUk0aCcrpKH6+lZWZkN+5/fXeTwf53PO+Tw+n/f7dc6R9w118OPl4eEJ +XMLD8//j7FDHfaWMYuO22s27fiVaGnflS8aa9CVC/k6LpSZZyoBiL3wl+06D +O/tqu1CWPkRvu9HL11cEFDo19GumOawdkzj9s7caOCFDjmWZzvCuyS50urcV +msI81/ad8gMLpa9vJ3s7obpT79+C41Hws9fg3ETvR8hk1ds9P5wEbZuuFb8q +mgJrDbMT8hrnQeZd/RdfjQXIK39AS9MrBNEQ7xv8m/iw0HJl5q6xYjitY9Fo +57wCzcZXaNpeKYU32dotk8KCmJD+yWPk1C3IfV22JlpZEPdfG4jqKrgF7kKq +3r+Ygug0nj1eW3ELBo/S/vLuEsQ4130/vF7cgvd7BYxEawQxrYr6iCVUDiNm +n24z3ITQawnTip5eDvMTFyriL69B0YWjN+PiKiCj+PALXqm1qER7L+uXXwnW +eoEUMcW1qDH+vP9ncSWsuO/grKq5Fos7lTPSyirh2LDygI3JWvzVsvxRTl0l +HFB4+uVs4FqMvLyYerCzEvYWSv5VaViLn3jD19kvqwL7vCoNGw8Kdlws/Svn +XwXCGhdDd/hR0KpFSI2ypwqeNx6rDg2loPWNNMW/+6rAemC74dmjFDTt5Dnx +8FAVmFL/bnpbRsG8ZZuEpc5XgV62tUfoHwr6XvxEud9WBRJnh9POXBJB7ZGU +3RrS1SC5vubYfIkIvj4VtkNarhqorcmHd1SKoLFRZ/My5WqgT6yLUm0TwdaA +P3VPtapB2TbMp3FEBNObmQcVTath49IFxvBGUZT2FBya8q+GrZHin3Qfi6Kb +yII6rbIatq0aGbrwWhRbl4jt2E9Ug0NR/Zs/g6J4+Knqt+d11eDy0vPFw3FR +7E3QpO69Vw07NK40uIuJ4amZiqbIzmoI/rQhK9FHDCvNIz8UTVVDipOVcees +GE5n5cUn6HKBSjyn8i4Rx6YbSdQcBhfKRZzmdFaJY8KVGuMyFhd6Or0qs2TF +kdf8nvhdUy4o2Ucq2G8Wx28xc0uvOnChdUvB8pc54ni87PbbwHAuLFjMPH9m +JIF+o92KfTe4kFkSV7ZgIYFJfZdSsJy8fjlPqqa9BHr46EdeqeKC7QMBkxN+ +Evgy49uIax0XcjfJcW1PSuDQyLXNiQ+4YIg2F568k8ARnuXrXwxxIYJ52bsj +URIn30xaOgkSYF0oNG1zXBIzImdM3q8hQIH/QOrzc5J4zkzrmD+FgJddLlWv +r0vi1320YX8JArTCVvMNPZfEuG3+ktryBIyUxJT8oEphXohS59BGAu4KfmZF +KUmhx8S6DFkGAecjHV7MaUohvig962FIgLmp5vwflMJVHv4XHxgRUPT2oxW/ +vxRa8vum7jQnwFPUblSaK4VSuaZB9c4EbIxvTMhvksIG3qaIiu0ECHxUE5d/ +KIW7mqp7C90IqK/gA5U3UqhyrasqagcB4jb1mdqLUqgeEtb6725y/glKeuY2 +VDQIrJsd3UfAtZGs9kdOVDyzLnshJ5KAQ1sXPa29qBh7rDTIJJoATVp/0tZw +Kq6npsYlxhKQXneq1+0CFfWaLqc8O0yA2fivuL3DVHxiwSucmkFA7Oaz6ve+ +U/Flvuf34eMElF/W7BeZpSJlLieQfZIASScfZv0Kabw0J279NpOA73UP5vi0 +pPE65W3D93MEyFO8r7kYSKP5In+t8gUCXILnXUpRGlO8xlzdswlooa2vtXOU +xgS1qJzaXALOJGZG5uyXxneC4XR2AQHtA+uUvidIo2puRJh9IQF/9NpeG2dI +Y6PKP+G7LhPwz78zup8uSWNI4sujcVcIYNl6TGq1SaP484WlUdcI+Cimsve+ +oAyuVgzemldOgEToXZqEhAze2ZLJu7eCANt212eBcjIoLiMTya4koDYuQ2PN +Rhk8GxJ1vqOKXJ93E1/dXGXw/YqB6WqC3H/D9NybO2Vw93Tvbd8aAqazFK0X +g2QwjxZnIlRLgJeZS2nxQRk0+PjlputtAnRLG/3Hi2TQ0YvJ21hPgD+vs4Tp +TRm0X6UladVAQJ7H2MOzNTL4iPBY6CS9XEhehdUugzHN95n9jQSw/Ru6j7+S +wX/u6J3Z3kRAWItj0rt+GXSZtmh5Sbp/X/KnY6Pk82M6cmrvELDmqezZ3lkZ +9KvYv1mxmdxP5fpN6jw01Jq2fJFBurz3W9ELCg3bEzsDt90lYFg7yUFBhoa/ +v/QcvklaMp3OG6VMQ5mME/uWthCQYGS/k2pIwydXq35cI73ZK/+HgSkND0/Q +m3+SFjry7aizLQ0XPcUrLe4R0H3ZUCzChYbH9CUfnySd15ZUkulDw6/xJYKd +pHd97jQoD6Kh6YjZAeFWAtT55TqeRNLQ79/9EtakJ9X2uP93iIbJOR3vD5Gu +s274tjyNhnde3n1TTvpwCP9BpTM0vLDmC18/aYuTTkKml2h4I6Xdh6eNAMHK +ywXe12goLTkzKU+669WY9sEqGurY/q4zJn1xit2a20jDQbeQ2y6kfcXSHOse +0HCz3MBYIOl1Bj2ful/Q0Ftl0Gc/6QlXxeipNzR0zVm2JpH07bgw/rWfyPE2 +47+SSR/Ku5OtNUbDnCpdlRTS5s0C6rbzNLw6HHT6/+NXv9/eGMhLR/0cPZNY +0q+XXLVNWU1H/nVaesGkcxV/vC0Wp+P2lLkQV9I+5hDaKkfHEDPdUSSt6n+c +5706HVdnJNQqkR5LfZO1oEfHtbLpj/lIEzdUFKWBjl89fqgPkesR/zSCMLSi +o/hG3zdc0qZjLeYujnTkqh/tPUZ6pbBQb8QOOs568Kjak36p4xGQ5U/HmvDk +DknSXlEz6U/j6SjzwF8ol9wv5QumMl+T6CigqEQ43vt/f5+6xZ9Jx6VXyrgr +SMf9WffStJiOKZvGH+4m68GEHrPTp5yONt2SQ6tIr8D7Pw7W0TErYMS5nKyv +c0e9xOqf0rFQ02/vZ7IePa+WlfT00NF5MoMSR1rh0bzB9Hs6uvXa0AVIVwqc +cd8wQ8fFotwIGbK+n2Y9KrhKk0Ub2/cWAmR/nOGK6rSpyiKlXsctjuwf9+6d +re91ZFG6w+rDZ7LfRiT/fJK2kEU7Mx73ijoC+Aq11U/vlcW0nwZyq8l+fXzv +YGPFfllUK/MTcSX7OXP4se2zRFn0mRpOLyD7na7qF7rigizuWqErJM8l86U8 +hzh0l7QQT+4YmR9mvc8Xxtpl0Qm1o5VJ2/EstfTulMV5SZ79rmTe7HLY+wY+ +y2KHV8GP6ptkvcbLHz6yTA59vX6OMUvJfpadvWKyXg7vPbLxySLzbIab2f5z +gxwOlHpuyyDzLm7z+tEqPTk0dOQ7nEDmYVK4D0PBWA6558PzfS+R9dP2uJ3X +Xg43zl2hzJN5et+/YLQtWg6fdC8ww08RYPWHSTkQL4cVH090bSDz+nlmF0Pv +iBw6ll169JXM8zf1K48Up8nh/PGeO87pZH2tiqQk5cmhuJWYFE8SmQeVmw0s +WuUwybqH5zr5vgiZnzzSLiiPxIrT4dt8yPUI/0f8C0Ue/cRayvd7kfv9tb+M +T1IeOXrd7/M8Cbg60NZjrCCPNVmXNd64EjDUfE6jhiGP125EXZa3J2BrErPv +src8hja9m59CMi8pCRviq+TR1HrV9nIaATwZM/eza+Vxe5v0eTdpcv58Qe61 +jfI4TLUSWSJFQPCMQ9LkA3k8+NbjlZkoAcV9SgP+/fIodcIwv0CAfF8WtCc7 +8SlggLXw8eJZLvxcLzyk6ayA1kueBfx5woXZS9SEje4KqLu9RsSkgwvTa5SV +mN4KOG5kGJj4kAtjU8wgs0AFvONtSvvdwoWPjbtm3Q8q4Ik1c//dr+HCY5vb +QqlXyfHhIjJN+eT3SbAXfJxRwGPLzbWs9nLBqOxm4fnzitg0MtWycykXBuTK +CswvKuJgsVqP7BIuxJ0vzZ8uUETztj8pAwvVcDuhJM+hVBG7rCw6bOaqQde1 +MFuoSRE/DjbOr/laDeuWnc1M/qCIUU+ONKu9qAZx7/gj0RpKKHZm9ljphWqY +pFj7uLQq4aiMiYKzQjV8Ou7jso9fBavv2wkPCVSB1XiM1WeGKtrkf/WOGKyA +77tWRBCH1dDFJTT+kf0t8n9CgjeldR2WlSQtu3rvBlCeqZysHFdH59XrXxV5 +XAeZ1IptDIYGOqdEvat6ehWy1zOFRfw1UfPmn3WWB6/AY6qJ/lSWFuqE3rLq +d7wMLJnWzA09G1B7eDp0wjgfhPiKIncmauMhbavI3j25QE+QNXJT0cFv1AB5 +evF5WKnsWevwSAeNX8hf22J1BrQ4UhUxO3Rx5Gl75Ln4TNg3RGmz5tmIFepJ +t7+cyYDxqePOVtkbkf4qIfHm+hSw3PAw10pTD+mKVsSo31FonmL/nnuuhzF6 +Fi8imw/DXg3d/ld++rgzVsMjWCEOouaov7wD9NFNO/bF0tVxcKCVjzoWpI83 +gvYKl8/EQoZrt5tAmD6y7frebOiIhevH9r8xjdNHDXW3mvGwWPg42NzHPamP +jgcon93a9oPLCZvec7f1Mbdy5+eiiBjgjO3uclvJwJDDvwe8eKJAvNGyqGkV +Ay/F56z4PhYJYynqYbJCDDRc5HdJehsJ+fITqz5TGHgllIc92BAJf53iN4XJ +MPDOE+2j1OhIuNuYVZ28gYEDEf13Xo9FgElacybXmYG/27acE/pvH5grSW4R +LGLgjsPuPS6LYUCMPpDfXczAmF2fhZZPhoHS7YjZhhIGNtQNHbn7MQyWWr8o +CChj4HbU/L3tYRi0hib/aCMY6KQyWTF6IgyMG6cvxD1iILew23GlbBgwHF59 +/Pc7A7ekNatbZu0FtSPp+1sNDNDs3dI74WHB0MS+usyWZYDfHlzvPOMSDNvm +7p7uNjJAgeknXY+NgmH/3pmbIyYGuNZRLChmZTC0e/p8ELI1wHRV86COK0EQ +wGRYe/gYoCpx2cN8MBBKf3yQnk41QPqEeYOpZwCo+zHvKvcboNKhrc9PnfOD +Uwp2v44OGqB4Q9DoWIIfTL/z1f84ZIB/7N+m7djrB83ux8vyhw0wvPaZSKCl +Hzhse3dBYpS8X+cTD8NfuyGWnRS2kscQeS49tqzw3Q3ta1/JjyobormYbnmj +8S7waw44RoQbolRo1egm+Z0wtudrjHmkIebUC394v2Yn7KeFBPdEG+KGviXW +J/76QPqBUIf5eEM0ffBkq+igD1SyouWMkg2xXjHlx5sLPvCn9mhTW64hppx1 ++sik+MDpivzpzjZDdBS++WFR0QvuFnbtnhRjYqin+d/iaHd4byvvHS3JxD3U +GN5wD3fg+bnH7TeVidkeNc3O6A6m9vx2y+SYePttiWiggDs8XMIykFJnoltY +jWZNgRs89S1YaWLMxPb6u+Odz12hXymoPPMfJpYEXzx71Xg7TF9fnNtwm4kq +vl8qn/s4wRcXi8K0eibWe/Nqlts6Qd/SE5uHG5nIJ3zRu8DQCRp9qDnnW5hY +rnKKWyvsBImS+qyFDiYOzWlfu33PEYRTgw48HmSiOfWs+5yKI2j4d/P48bIw +dMmUs+hfe6CLyZQ2L2XhiXjdK2u/24Nwm6+9JD8LDyQLr5Htt4cp+sTlJ6tY +uEMtY21QrT009Ahs0hVjoYEDK/huqD1stsCkRVUWUo7k9Xh+3ga7lMtW5m5h +4bj3Elt63VaIe+AVpLKNhX0ZK5dzzm2FTD/Kk2oHFnLFatUO7dsKTVdjjz/Z +zsKKpPKN/ppbQVRl85qFnSx00pVlvCq2g4cqn0V9olkoV93f/y1nC6irycqp +FLDwn/jAf6PzbADbO49UX2Zh9rOs1rKDNuASkPzBuJiFZQ2nUha9bODo9dGi +7aUsjLFZtptPwQYG1ZqU07gs/HIj72BsqTWcXOe2/vsjFip2DiqtaLaCSfUz +jOoJFhZUHo399ccS+p6iucgUC9UqdB1Khi2hZe+YY+QMC09/jLAPemwJJ6ut +whm/WOjX+TCClW0J6iyemw18bJSM3yT9U88SfK32yLeJs9EDaXeG9llAl7/l +6i4jNmpvF9G+v2gGjStnqPrAxpv3DWhb/zODorKidedN2BhWGvJ4vNMMwsYX +LFwt2Bg9dlx6X4kZCMYQCYNb2di8b3nOfjszsEiWn/vkS54vz9U4WLQJ6op/ +f5hJZWOS0oucETdTYGyKnLPOYCOR0VERYmEKNR++ry48wcZ3AjMn+TaaQjV9 +yMD6NBvXmfgEBq42hZvZLSfyL7IxdCy8S6TFBAqPJzEty9nolhXf061uAmmR +a7KyX7PRvVHW5YogwgqR1JLRbjZuv5HMfDAPkFzF02TaR47PZ6f79QAcG5v8 +8n2QjV4h55asOg1wKKDLyOQLGyfUqPQvAgD7PHNG/ptn47YRJu99XmNwN1NE +Nt0IkzvVOe4CRrDQtUKoTc4I8RImmv3HhkK/sQFrRSOc024PcGhnw5fk+hh3 +NSPkF4043ZfMhn0dWytidY1QkLH0evoyNqTbHaDXWRhhjMh8VcBKFjS4dv/R +CzXCrU9inNXUDWHHfw2Pm8KN8MhdiUULQUPgiSvMNos0wrL2NOOkCQOwuBis +5xRrhFt2qS/1uW0AnW+XhEQcNcLZyXtOGRYG8NVXa6DqghF+035bkR/EAOk9 +KfVaLUbYbdke/bVdD04u/qOf0WqEXenV/GFVesB72qLq3/tG+Lb56HfBXD34 +WrustLCDPM//ffvpYD1o4DmWTXlthMN6SmaNa/TA/eyRmNnPRmh94TctznMj +ZDfG6jev4uAFOcU7ovy6sNrOrYoqxME3M6mJcT904Mh7Q80YYQ4OSuqOzrzV +gYBl80raYhy8H/fOR7NGBwy2RosW0Tn4x0InI2+3DvR83DeVpMPB10Nae4Ie +aYOYQEjVlu0czB6hhMcYboDiTQfjJtw4eEAvqWaD8AbQPXhy0xlPDj5+IDsg +MaIFdhOV3X07OSg5uWUhOlsLkntmfu4K4eD+hG3Cwb81Yb7osGlcAgfDxYIL +/nZoQD/7zOuSMg5e87qteyhVHQKiivOsyjnYNjE/1emnDrPlNX7fKznYhwfS +7DepA0Whb06nloPtDubxT/6uA5sVNJk7LRw8l6yeditmHTR1lex+3c1BA7ty +R75wNbAWqtOM7uPgQijh+X6bGvRZdsxKDnBwp6hs1CdtNZhu+Jbq9Z6DK1df +Uts5qQqal7Vv/feVgx5E6g/VSFVo6jeJPj7KwYKEd88MnVXBWtQRNkxwkLDi ++oUyVOGflKhXkTMcDFPeobTlpwpMtyTnSsxzMOqB5/xUvwok/rqwq+EXB5+x +NYbvNqmAsF6pxo4FDs5eaWuszFeB/D0NM4uLHOTkm7o9PKIC/wOY/yDX "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.08110851938790233}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5497,19 +11014,19 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.08110851938790233}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5523,115 +11040,149 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV13c8Vf8fB3BRKUW69uVeeySEuNx7Xe83GRkpMyukfM1CVmhRdoMmEpKU +lHUPWUk0aCcrpKH6+lZWZkN+5/fXeTwf53PO+Tw+n/f7dc6R9w118OPl4eEJ +XMLD8//j7FDHfaWMYuO22s27fiVaGnflS8aa9CVC/k6LpSZZyoBiL3wl+06D +O/tqu1CWPkRvu9HL11cEFDo19GumOawdkzj9s7caOCFDjmWZzvCuyS50urcV +msI81/ad8gMLpa9vJ3s7obpT79+C41Hws9fg3ETvR8hk1ds9P5wEbZuuFb8q +mgJrDbMT8hrnQeZd/RdfjQXIK39AS9MrBNEQ7xv8m/iw0HJl5q6xYjitY9Fo +57wCzcZXaNpeKYU32dotk8KCmJD+yWPk1C3IfV22JlpZEPdfG4jqKrgF7kKq +3r+Ygug0nj1eW3ELBo/S/vLuEsQ4130/vF7cgvd7BYxEawQxrYr6iCVUDiNm +n24z3ITQawnTip5eDvMTFyriL69B0YWjN+PiKiCj+PALXqm1qER7L+uXXwnW +eoEUMcW1qDH+vP9ncSWsuO/grKq5Fos7lTPSyirh2LDygI3JWvzVsvxRTl0l +HFB4+uVs4FqMvLyYerCzEvYWSv5VaViLn3jD19kvqwL7vCoNGw8Kdlws/Svn +XwXCGhdDd/hR0KpFSI2ypwqeNx6rDg2loPWNNMW/+6rAemC74dmjFDTt5Dnx +8FAVmFL/bnpbRsG8ZZuEpc5XgV62tUfoHwr6XvxEud9WBRJnh9POXBJB7ZGU +3RrS1SC5vubYfIkIvj4VtkNarhqorcmHd1SKoLFRZ/My5WqgT6yLUm0TwdaA +P3VPtapB2TbMp3FEBNObmQcVTath49IFxvBGUZT2FBya8q+GrZHin3Qfi6Kb +yII6rbIatq0aGbrwWhRbl4jt2E9Ug0NR/Zs/g6J4+Knqt+d11eDy0vPFw3FR +7E3QpO69Vw07NK40uIuJ4amZiqbIzmoI/rQhK9FHDCvNIz8UTVVDipOVcees +GE5n5cUn6HKBSjyn8i4Rx6YbSdQcBhfKRZzmdFaJY8KVGuMyFhd6Or0qs2TF +kdf8nvhdUy4o2Ucq2G8Wx28xc0uvOnChdUvB8pc54ni87PbbwHAuLFjMPH9m +JIF+o92KfTe4kFkSV7ZgIYFJfZdSsJy8fjlPqqa9BHr46EdeqeKC7QMBkxN+ +Evgy49uIax0XcjfJcW1PSuDQyLXNiQ+4YIg2F568k8ARnuXrXwxxIYJ52bsj +URIn30xaOgkSYF0oNG1zXBIzImdM3q8hQIH/QOrzc5J4zkzrmD+FgJddLlWv +r0vi1320YX8JArTCVvMNPZfEuG3+ktryBIyUxJT8oEphXohS59BGAu4KfmZF +KUmhx8S6DFkGAecjHV7MaUohvig962FIgLmp5vwflMJVHv4XHxgRUPT2oxW/ +vxRa8vum7jQnwFPUblSaK4VSuaZB9c4EbIxvTMhvksIG3qaIiu0ECHxUE5d/ +KIW7mqp7C90IqK/gA5U3UqhyrasqagcB4jb1mdqLUqgeEtb6725y/glKeuY2 +VDQIrJsd3UfAtZGs9kdOVDyzLnshJ5KAQ1sXPa29qBh7rDTIJJoATVp/0tZw +Kq6npsYlxhKQXneq1+0CFfWaLqc8O0yA2fivuL3DVHxiwSucmkFA7Oaz6ve+ +U/Flvuf34eMElF/W7BeZpSJlLieQfZIASScfZv0Kabw0J279NpOA73UP5vi0 +pPE65W3D93MEyFO8r7kYSKP5In+t8gUCXILnXUpRGlO8xlzdswlooa2vtXOU +xgS1qJzaXALOJGZG5uyXxneC4XR2AQHtA+uUvidIo2puRJh9IQF/9NpeG2dI +Y6PKP+G7LhPwz78zup8uSWNI4sujcVcIYNl6TGq1SaP484WlUdcI+Cimsve+ +oAyuVgzemldOgEToXZqEhAze2ZLJu7eCANt212eBcjIoLiMTya4koDYuQ2PN +Rhk8GxJ1vqOKXJ93E1/dXGXw/YqB6WqC3H/D9NybO2Vw93Tvbd8aAqazFK0X +g2QwjxZnIlRLgJeZS2nxQRk0+PjlputtAnRLG/3Hi2TQ0YvJ21hPgD+vs4Tp +TRm0X6UladVAQJ7H2MOzNTL4iPBY6CS9XEhehdUugzHN95n9jQSw/Ru6j7+S +wX/u6J3Z3kRAWItj0rt+GXSZtmh5Sbp/X/KnY6Pk82M6cmrvELDmqezZ3lkZ +9KvYv1mxmdxP5fpN6jw01Jq2fJFBurz3W9ELCg3bEzsDt90lYFg7yUFBhoa/ +v/QcvklaMp3OG6VMQ5mME/uWthCQYGS/k2pIwydXq35cI73ZK/+HgSkND0/Q +m3+SFjry7aizLQ0XPcUrLe4R0H3ZUCzChYbH9CUfnySd15ZUkulDw6/xJYKd +pHd97jQoD6Kh6YjZAeFWAtT55TqeRNLQ79/9EtakJ9X2uP93iIbJOR3vD5Gu +s274tjyNhnde3n1TTvpwCP9BpTM0vLDmC18/aYuTTkKml2h4I6Xdh6eNAMHK +ywXe12goLTkzKU+669WY9sEqGurY/q4zJn1xit2a20jDQbeQ2y6kfcXSHOse +0HCz3MBYIOl1Bj2ful/Q0Ftl0Gc/6QlXxeipNzR0zVm2JpH07bgw/rWfyPE2 +47+SSR/Ku5OtNUbDnCpdlRTS5s0C6rbzNLw6HHT6/+NXv9/eGMhLR/0cPZNY +0q+XXLVNWU1H/nVaesGkcxV/vC0Wp+P2lLkQV9I+5hDaKkfHEDPdUSSt6n+c +5706HVdnJNQqkR5LfZO1oEfHtbLpj/lIEzdUFKWBjl89fqgPkesR/zSCMLSi +o/hG3zdc0qZjLeYujnTkqh/tPUZ6pbBQb8QOOs568Kjak36p4xGQ5U/HmvDk +DknSXlEz6U/j6SjzwF8ol9wv5QumMl+T6CigqEQ43vt/f5+6xZ9Jx6VXyrgr +SMf9WffStJiOKZvGH+4m68GEHrPTp5yONt2SQ6tIr8D7Pw7W0TErYMS5nKyv +c0e9xOqf0rFQ02/vZ7IePa+WlfT00NF5MoMSR1rh0bzB9Hs6uvXa0AVIVwqc +cd8wQ8fFotwIGbK+n2Y9KrhKk0Ub2/cWAmR/nOGK6rSpyiKlXsctjuwf9+6d +re91ZFG6w+rDZ7LfRiT/fJK2kEU7Mx73ijoC+Aq11U/vlcW0nwZyq8l+fXzv +YGPFfllUK/MTcSX7OXP4se2zRFn0mRpOLyD7na7qF7rigizuWqErJM8l86U8 +hzh0l7QQT+4YmR9mvc8Xxtpl0Qm1o5VJ2/EstfTulMV5SZ79rmTe7HLY+wY+ +y2KHV8GP6ptkvcbLHz6yTA59vX6OMUvJfpadvWKyXg7vPbLxySLzbIab2f5z +gxwOlHpuyyDzLm7z+tEqPTk0dOQ7nEDmYVK4D0PBWA6558PzfS+R9dP2uJ3X +Xg43zl2hzJN5et+/YLQtWg6fdC8ww08RYPWHSTkQL4cVH090bSDz+nlmF0Pv +iBw6ll169JXM8zf1K48Up8nh/PGeO87pZH2tiqQk5cmhuJWYFE8SmQeVmw0s +WuUwybqH5zr5vgiZnzzSLiiPxIrT4dt8yPUI/0f8C0Ue/cRayvd7kfv9tb+M +T1IeOXrd7/M8Cbg60NZjrCCPNVmXNd64EjDUfE6jhiGP125EXZa3J2BrErPv +src8hja9m59CMi8pCRviq+TR1HrV9nIaATwZM/eza+Vxe5v0eTdpcv58Qe61 +jfI4TLUSWSJFQPCMQ9LkA3k8+NbjlZkoAcV9SgP+/fIodcIwv0CAfF8WtCc7 +8SlggLXw8eJZLvxcLzyk6ayA1kueBfx5woXZS9SEje4KqLu9RsSkgwvTa5SV +mN4KOG5kGJj4kAtjU8wgs0AFvONtSvvdwoWPjbtm3Q8q4Ik1c//dr+HCY5vb +QqlXyfHhIjJN+eT3SbAXfJxRwGPLzbWs9nLBqOxm4fnzitg0MtWycykXBuTK +CswvKuJgsVqP7BIuxJ0vzZ8uUETztj8pAwvVcDuhJM+hVBG7rCw6bOaqQde1 +MFuoSRE/DjbOr/laDeuWnc1M/qCIUU+ONKu9qAZx7/gj0RpKKHZm9ljphWqY +pFj7uLQq4aiMiYKzQjV8Ou7jso9fBavv2wkPCVSB1XiM1WeGKtrkf/WOGKyA +77tWRBCH1dDFJTT+kf0t8n9CgjeldR2WlSQtu3rvBlCeqZysHFdH59XrXxV5 +XAeZ1IptDIYGOqdEvat6ehWy1zOFRfw1UfPmn3WWB6/AY6qJ/lSWFuqE3rLq +d7wMLJnWzA09G1B7eDp0wjgfhPiKIncmauMhbavI3j25QE+QNXJT0cFv1AB5 +evF5WKnsWevwSAeNX8hf22J1BrQ4UhUxO3Rx5Gl75Ln4TNg3RGmz5tmIFepJ +t7+cyYDxqePOVtkbkf4qIfHm+hSw3PAw10pTD+mKVsSo31FonmL/nnuuhzF6 +Fi8imw/DXg3d/ld++rgzVsMjWCEOouaov7wD9NFNO/bF0tVxcKCVjzoWpI83 +gvYKl8/EQoZrt5tAmD6y7frebOiIhevH9r8xjdNHDXW3mvGwWPg42NzHPamP +jgcon93a9oPLCZvec7f1Mbdy5+eiiBjgjO3uclvJwJDDvwe8eKJAvNGyqGkV +Ay/F56z4PhYJYynqYbJCDDRc5HdJehsJ+fITqz5TGHgllIc92BAJf53iN4XJ +MPDOE+2j1OhIuNuYVZ28gYEDEf13Xo9FgElacybXmYG/27acE/pvH5grSW4R +LGLgjsPuPS6LYUCMPpDfXczAmF2fhZZPhoHS7YjZhhIGNtQNHbn7MQyWWr8o +CChj4HbU/L3tYRi0hib/aCMY6KQyWTF6IgyMG6cvxD1iILew23GlbBgwHF59 +/Pc7A7ekNatbZu0FtSPp+1sNDNDs3dI74WHB0MS+usyWZYDfHlzvPOMSDNvm +7p7uNjJAgeknXY+NgmH/3pmbIyYGuNZRLChmZTC0e/p8ELI1wHRV86COK0EQ +wGRYe/gYoCpx2cN8MBBKf3yQnk41QPqEeYOpZwCo+zHvKvcboNKhrc9PnfOD +Uwp2v44OGqB4Q9DoWIIfTL/z1f84ZIB/7N+m7djrB83ux8vyhw0wvPaZSKCl +Hzhse3dBYpS8X+cTD8NfuyGWnRS2kscQeS49tqzw3Q3ta1/JjyobormYbnmj +8S7waw44RoQbolRo1egm+Z0wtudrjHmkIebUC394v2Yn7KeFBPdEG+KGviXW +J/76QPqBUIf5eEM0ffBkq+igD1SyouWMkg2xXjHlx5sLPvCn9mhTW64hppx1 ++sik+MDpivzpzjZDdBS++WFR0QvuFnbtnhRjYqin+d/iaHd4byvvHS3JxD3U +GN5wD3fg+bnH7TeVidkeNc3O6A6m9vx2y+SYePttiWiggDs8XMIykFJnoltY +jWZNgRs89S1YaWLMxPb6u+Odz12hXymoPPMfJpYEXzx71Xg7TF9fnNtwm4kq +vl8qn/s4wRcXi8K0eibWe/Nqlts6Qd/SE5uHG5nIJ3zRu8DQCRp9qDnnW5hY +rnKKWyvsBImS+qyFDiYOzWlfu33PEYRTgw48HmSiOfWs+5yKI2j4d/P48bIw +dMmUs+hfe6CLyZQ2L2XhiXjdK2u/24Nwm6+9JD8LDyQLr5Htt4cp+sTlJ6tY +uEMtY21QrT009Ahs0hVjoYEDK/huqD1stsCkRVUWUo7k9Xh+3ga7lMtW5m5h +4bj3Elt63VaIe+AVpLKNhX0ZK5dzzm2FTD/Kk2oHFnLFatUO7dsKTVdjjz/Z +zsKKpPKN/ppbQVRl85qFnSx00pVlvCq2g4cqn0V9olkoV93f/y1nC6irycqp +FLDwn/jAf6PzbADbO49UX2Zh9rOs1rKDNuASkPzBuJiFZQ2nUha9bODo9dGi +7aUsjLFZtptPwQYG1ZqU07gs/HIj72BsqTWcXOe2/vsjFip2DiqtaLaCSfUz +jOoJFhZUHo399ccS+p6iucgUC9UqdB1Khi2hZe+YY+QMC09/jLAPemwJJ6ut +whm/WOjX+TCClW0J6iyemw18bJSM3yT9U88SfK32yLeJs9EDaXeG9llAl7/l +6i4jNmpvF9G+v2gGjStnqPrAxpv3DWhb/zODorKidedN2BhWGvJ4vNMMwsYX +LFwt2Bg9dlx6X4kZCMYQCYNb2di8b3nOfjszsEiWn/vkS54vz9U4WLQJ6op/ +f5hJZWOS0oucETdTYGyKnLPOYCOR0VERYmEKNR++ry48wcZ3AjMn+TaaQjV9 +yMD6NBvXmfgEBq42hZvZLSfyL7IxdCy8S6TFBAqPJzEty9nolhXf061uAmmR +a7KyX7PRvVHW5YogwgqR1JLRbjZuv5HMfDAPkFzF02TaR47PZ6f79QAcG5v8 +8n2QjV4h55asOg1wKKDLyOQLGyfUqPQvAgD7PHNG/ptn47YRJu99XmNwN1NE +Nt0IkzvVOe4CRrDQtUKoTc4I8RImmv3HhkK/sQFrRSOc024PcGhnw5fk+hh3 +NSPkF4043ZfMhn0dWytidY1QkLH0evoyNqTbHaDXWRhhjMh8VcBKFjS4dv/R +CzXCrU9inNXUDWHHfw2Pm8KN8MhdiUULQUPgiSvMNos0wrL2NOOkCQOwuBis +5xRrhFt2qS/1uW0AnW+XhEQcNcLZyXtOGRYG8NVXa6DqghF+035bkR/EAOk9 +KfVaLUbYbdke/bVdD04u/qOf0WqEXenV/GFVesB72qLq3/tG+Lb56HfBXD34 +WrustLCDPM//ffvpYD1o4DmWTXlthMN6SmaNa/TA/eyRmNnPRmh94TctznMj +ZDfG6jev4uAFOcU7ovy6sNrOrYoqxME3M6mJcT904Mh7Q80YYQ4OSuqOzrzV +gYBl80raYhy8H/fOR7NGBwy2RosW0Tn4x0InI2+3DvR83DeVpMPB10Nae4Ie +aYOYQEjVlu0czB6hhMcYboDiTQfjJtw4eEAvqWaD8AbQPXhy0xlPDj5+IDsg +MaIFdhOV3X07OSg5uWUhOlsLkntmfu4K4eD+hG3Cwb81Yb7osGlcAgfDxYIL +/nZoQD/7zOuSMg5e87qteyhVHQKiivOsyjnYNjE/1emnDrPlNX7fKznYhwfS +7DepA0Whb06nloPtDubxT/6uA5sVNJk7LRw8l6yeditmHTR1lex+3c1BA7ty +R75wNbAWqtOM7uPgQijh+X6bGvRZdsxKDnBwp6hs1CdtNZhu+Jbq9Z6DK1df +Uts5qQqal7Vv/feVgx5E6g/VSFVo6jeJPj7KwYKEd88MnVXBWtQRNkxwkLDi ++oUyVOGflKhXkTMcDFPeobTlpwpMtyTnSsxzMOqB5/xUvwok/rqwq+EXB5+x +NYbvNqmAsF6pxo4FDs5eaWuszFeB/D0NM4uLHOTkm7o9PKIC/wOY/yDX "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.08110851938790233}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5642,6 +11193,7 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5669,7 +11221,8 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.08110851938790233}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5677,17 +11230,670 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913414579436264`*^9}, + CellChangeTimes->{3.9913414579436264`*^9, 3.9938520788264837`*^9}, CellLabel-> - "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] + "Out[119]=",ExpressionUUID->"76594fc8-3b6c-4530-a6c7-b0d93492aacf"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ -8e8787fb2589"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3BRKUW69uVeeySEuNx7Xe83GRkpMyukfM1CVmhRdoMmEpKU +lHUPWUk0aCcrpKH6+lZWZkN+5/fXeTwf53PO+Tw+n/f7dc6R9w118OPl4eEJ +XMLD8//j7FDHfaWMYuO22s27fiVaGnflS8aa9CVC/k6LpSZZyoBiL3wl+06D +O/tqu1CWPkRvu9HL11cEFDo19GumOawdkzj9s7caOCFDjmWZzvCuyS50urcV +msI81/ad8gMLpa9vJ3s7obpT79+C41Hws9fg3ETvR8hk1ds9P5wEbZuuFb8q +mgJrDbMT8hrnQeZd/RdfjQXIK39AS9MrBNEQ7xv8m/iw0HJl5q6xYjitY9Fo +57wCzcZXaNpeKYU32dotk8KCmJD+yWPk1C3IfV22JlpZEPdfG4jqKrgF7kKq +3r+Ygug0nj1eW3ELBo/S/vLuEsQ4130/vF7cgvd7BYxEawQxrYr6iCVUDiNm +n24z3ITQawnTip5eDvMTFyriL69B0YWjN+PiKiCj+PALXqm1qER7L+uXXwnW +eoEUMcW1qDH+vP9ncSWsuO/grKq5Fos7lTPSyirh2LDygI3JWvzVsvxRTl0l +HFB4+uVs4FqMvLyYerCzEvYWSv5VaViLn3jD19kvqwL7vCoNGw8Kdlws/Svn +XwXCGhdDd/hR0KpFSI2ypwqeNx6rDg2loPWNNMW/+6rAemC74dmjFDTt5Dnx +8FAVmFL/bnpbRsG8ZZuEpc5XgV62tUfoHwr6XvxEud9WBRJnh9POXBJB7ZGU +3RrS1SC5vubYfIkIvj4VtkNarhqorcmHd1SKoLFRZ/My5WqgT6yLUm0TwdaA +P3VPtapB2TbMp3FEBNObmQcVTath49IFxvBGUZT2FBya8q+GrZHin3Qfi6Kb +yII6rbIatq0aGbrwWhRbl4jt2E9Ug0NR/Zs/g6J4+Knqt+d11eDy0vPFw3FR +7E3QpO69Vw07NK40uIuJ4amZiqbIzmoI/rQhK9FHDCvNIz8UTVVDipOVcees +GE5n5cUn6HKBSjyn8i4Rx6YbSdQcBhfKRZzmdFaJY8KVGuMyFhd6Or0qs2TF +kdf8nvhdUy4o2Ucq2G8Wx28xc0uvOnChdUvB8pc54ni87PbbwHAuLFjMPH9m +JIF+o92KfTe4kFkSV7ZgIYFJfZdSsJy8fjlPqqa9BHr46EdeqeKC7QMBkxN+ +Evgy49uIax0XcjfJcW1PSuDQyLXNiQ+4YIg2F568k8ARnuXrXwxxIYJ52bsj +URIn30xaOgkSYF0oNG1zXBIzImdM3q8hQIH/QOrzc5J4zkzrmD+FgJddLlWv +r0vi1320YX8JArTCVvMNPZfEuG3+ktryBIyUxJT8oEphXohS59BGAu4KfmZF +KUmhx8S6DFkGAecjHV7MaUohvig962FIgLmp5vwflMJVHv4XHxgRUPT2oxW/ +vxRa8vum7jQnwFPUblSaK4VSuaZB9c4EbIxvTMhvksIG3qaIiu0ECHxUE5d/ +KIW7mqp7C90IqK/gA5U3UqhyrasqagcB4jb1mdqLUqgeEtb6725y/glKeuY2 +VDQIrJsd3UfAtZGs9kdOVDyzLnshJ5KAQ1sXPa29qBh7rDTIJJoATVp/0tZw +Kq6npsYlxhKQXneq1+0CFfWaLqc8O0yA2fivuL3DVHxiwSucmkFA7Oaz6ve+ +U/Flvuf34eMElF/W7BeZpSJlLieQfZIASScfZv0Kabw0J279NpOA73UP5vi0 +pPE65W3D93MEyFO8r7kYSKP5In+t8gUCXILnXUpRGlO8xlzdswlooa2vtXOU +xgS1qJzaXALOJGZG5uyXxneC4XR2AQHtA+uUvidIo2puRJh9IQF/9NpeG2dI +Y6PKP+G7LhPwz78zup8uSWNI4sujcVcIYNl6TGq1SaP484WlUdcI+Cimsve+ +oAyuVgzemldOgEToXZqEhAze2ZLJu7eCANt212eBcjIoLiMTya4koDYuQ2PN +Rhk8GxJ1vqOKXJ93E1/dXGXw/YqB6WqC3H/D9NybO2Vw93Tvbd8aAqazFK0X +g2QwjxZnIlRLgJeZS2nxQRk0+PjlputtAnRLG/3Hi2TQ0YvJ21hPgD+vs4Tp +TRm0X6UladVAQJ7H2MOzNTL4iPBY6CS9XEhehdUugzHN95n9jQSw/Ru6j7+S +wX/u6J3Z3kRAWItj0rt+GXSZtmh5Sbp/X/KnY6Pk82M6cmrvELDmqezZ3lkZ +9KvYv1mxmdxP5fpN6jw01Jq2fJFBurz3W9ELCg3bEzsDt90lYFg7yUFBhoa/ +v/QcvklaMp3OG6VMQ5mME/uWthCQYGS/k2pIwydXq35cI73ZK/+HgSkND0/Q +m3+SFjry7aizLQ0XPcUrLe4R0H3ZUCzChYbH9CUfnySd15ZUkulDw6/xJYKd +pHd97jQoD6Kh6YjZAeFWAtT55TqeRNLQ79/9EtakJ9X2uP93iIbJOR3vD5Gu +s274tjyNhnde3n1TTvpwCP9BpTM0vLDmC18/aYuTTkKml2h4I6Xdh6eNAMHK +ywXe12goLTkzKU+669WY9sEqGurY/q4zJn1xit2a20jDQbeQ2y6kfcXSHOse +0HCz3MBYIOl1Bj2ful/Q0Ftl0Gc/6QlXxeipNzR0zVm2JpH07bgw/rWfyPE2 +47+SSR/Ku5OtNUbDnCpdlRTS5s0C6rbzNLw6HHT6/+NXv9/eGMhLR/0cPZNY +0q+XXLVNWU1H/nVaesGkcxV/vC0Wp+P2lLkQV9I+5hDaKkfHEDPdUSSt6n+c +5706HVdnJNQqkR5LfZO1oEfHtbLpj/lIEzdUFKWBjl89fqgPkesR/zSCMLSi +o/hG3zdc0qZjLeYujnTkqh/tPUZ6pbBQb8QOOs568Kjak36p4xGQ5U/HmvDk +DknSXlEz6U/j6SjzwF8ol9wv5QumMl+T6CigqEQ43vt/f5+6xZ9Jx6VXyrgr +SMf9WffStJiOKZvGH+4m68GEHrPTp5yONt2SQ6tIr8D7Pw7W0TErYMS5nKyv +c0e9xOqf0rFQ02/vZ7IePa+WlfT00NF5MoMSR1rh0bzB9Hs6uvXa0AVIVwqc +cd8wQ8fFotwIGbK+n2Y9KrhKk0Ub2/cWAmR/nOGK6rSpyiKlXsctjuwf9+6d +re91ZFG6w+rDZ7LfRiT/fJK2kEU7Mx73ijoC+Aq11U/vlcW0nwZyq8l+fXzv +YGPFfllUK/MTcSX7OXP4se2zRFn0mRpOLyD7na7qF7rigizuWqErJM8l86U8 +hzh0l7QQT+4YmR9mvc8Xxtpl0Qm1o5VJ2/EstfTulMV5SZ79rmTe7HLY+wY+ +y2KHV8GP6ptkvcbLHz6yTA59vX6OMUvJfpadvWKyXg7vPbLxySLzbIab2f5z +gxwOlHpuyyDzLm7z+tEqPTk0dOQ7nEDmYVK4D0PBWA6558PzfS+R9dP2uJ3X +Xg43zl2hzJN5et+/YLQtWg6fdC8ww08RYPWHSTkQL4cVH090bSDz+nlmF0Pv +iBw6ll169JXM8zf1K48Up8nh/PGeO87pZH2tiqQk5cmhuJWYFE8SmQeVmw0s +WuUwybqH5zr5vgiZnzzSLiiPxIrT4dt8yPUI/0f8C0Ue/cRayvd7kfv9tb+M +T1IeOXrd7/M8Cbg60NZjrCCPNVmXNd64EjDUfE6jhiGP125EXZa3J2BrErPv +src8hja9m59CMi8pCRviq+TR1HrV9nIaATwZM/eza+Vxe5v0eTdpcv58Qe61 +jfI4TLUSWSJFQPCMQ9LkA3k8+NbjlZkoAcV9SgP+/fIodcIwv0CAfF8WtCc7 +8SlggLXw8eJZLvxcLzyk6ayA1kueBfx5woXZS9SEje4KqLu9RsSkgwvTa5SV +mN4KOG5kGJj4kAtjU8wgs0AFvONtSvvdwoWPjbtm3Q8q4Ik1c//dr+HCY5vb +QqlXyfHhIjJN+eT3SbAXfJxRwGPLzbWs9nLBqOxm4fnzitg0MtWycykXBuTK +CswvKuJgsVqP7BIuxJ0vzZ8uUETztj8pAwvVcDuhJM+hVBG7rCw6bOaqQde1 +MFuoSRE/DjbOr/laDeuWnc1M/qCIUU+ONKu9qAZx7/gj0RpKKHZm9ljphWqY +pFj7uLQq4aiMiYKzQjV8Ou7jso9fBavv2wkPCVSB1XiM1WeGKtrkf/WOGKyA +77tWRBCH1dDFJTT+kf0t8n9CgjeldR2WlSQtu3rvBlCeqZysHFdH59XrXxV5 +XAeZ1IptDIYGOqdEvat6ehWy1zOFRfw1UfPmn3WWB6/AY6qJ/lSWFuqE3rLq +d7wMLJnWzA09G1B7eDp0wjgfhPiKIncmauMhbavI3j25QE+QNXJT0cFv1AB5 +evF5WKnsWevwSAeNX8hf22J1BrQ4UhUxO3Rx5Gl75Ln4TNg3RGmz5tmIFepJ +t7+cyYDxqePOVtkbkf4qIfHm+hSw3PAw10pTD+mKVsSo31FonmL/nnuuhzF6 +Fi8imw/DXg3d/ld++rgzVsMjWCEOouaov7wD9NFNO/bF0tVxcKCVjzoWpI83 +gvYKl8/EQoZrt5tAmD6y7frebOiIhevH9r8xjdNHDXW3mvGwWPg42NzHPamP +jgcon93a9oPLCZvec7f1Mbdy5+eiiBjgjO3uclvJwJDDvwe8eKJAvNGyqGkV +Ay/F56z4PhYJYynqYbJCDDRc5HdJehsJ+fITqz5TGHgllIc92BAJf53iN4XJ +MPDOE+2j1OhIuNuYVZ28gYEDEf13Xo9FgElacybXmYG/27acE/pvH5grSW4R +LGLgjsPuPS6LYUCMPpDfXczAmF2fhZZPhoHS7YjZhhIGNtQNHbn7MQyWWr8o +CChj4HbU/L3tYRi0hib/aCMY6KQyWTF6IgyMG6cvxD1iILew23GlbBgwHF59 +/Pc7A7ekNatbZu0FtSPp+1sNDNDs3dI74WHB0MS+usyWZYDfHlzvPOMSDNvm +7p7uNjJAgeknXY+NgmH/3pmbIyYGuNZRLChmZTC0e/p8ELI1wHRV86COK0EQ +wGRYe/gYoCpx2cN8MBBKf3yQnk41QPqEeYOpZwCo+zHvKvcboNKhrc9PnfOD +Uwp2v44OGqB4Q9DoWIIfTL/z1f84ZIB/7N+m7djrB83ux8vyhw0wvPaZSKCl +Hzhse3dBYpS8X+cTD8NfuyGWnRS2kscQeS49tqzw3Q3ta1/JjyobormYbnmj +8S7waw44RoQbolRo1egm+Z0wtudrjHmkIebUC394v2Yn7KeFBPdEG+KGviXW +J/76QPqBUIf5eEM0ffBkq+igD1SyouWMkg2xXjHlx5sLPvCn9mhTW64hppx1 ++sik+MDpivzpzjZDdBS++WFR0QvuFnbtnhRjYqin+d/iaHd4byvvHS3JxD3U +GN5wD3fg+bnH7TeVidkeNc3O6A6m9vx2y+SYePttiWiggDs8XMIykFJnoltY +jWZNgRs89S1YaWLMxPb6u+Odz12hXymoPPMfJpYEXzx71Xg7TF9fnNtwm4kq +vl8qn/s4wRcXi8K0eibWe/Nqlts6Qd/SE5uHG5nIJ3zRu8DQCRp9qDnnW5hY +rnKKWyvsBImS+qyFDiYOzWlfu33PEYRTgw48HmSiOfWs+5yKI2j4d/P48bIw +dMmUs+hfe6CLyZQ2L2XhiXjdK2u/24Nwm6+9JD8LDyQLr5Htt4cp+sTlJ6tY +uEMtY21QrT009Ahs0hVjoYEDK/huqD1stsCkRVUWUo7k9Xh+3ga7lMtW5m5h +4bj3Elt63VaIe+AVpLKNhX0ZK5dzzm2FTD/Kk2oHFnLFatUO7dsKTVdjjz/Z +zsKKpPKN/ppbQVRl85qFnSx00pVlvCq2g4cqn0V9olkoV93f/y1nC6irycqp +FLDwn/jAf6PzbADbO49UX2Zh9rOs1rKDNuASkPzBuJiFZQ2nUha9bODo9dGi +7aUsjLFZtptPwQYG1ZqU07gs/HIj72BsqTWcXOe2/vsjFip2DiqtaLaCSfUz +jOoJFhZUHo399ccS+p6iucgUC9UqdB1Khi2hZe+YY+QMC09/jLAPemwJJ6ut +whm/WOjX+TCClW0J6iyemw18bJSM3yT9U88SfK32yLeJs9EDaXeG9llAl7/l +6i4jNmpvF9G+v2gGjStnqPrAxpv3DWhb/zODorKidedN2BhWGvJ4vNMMwsYX +LFwt2Bg9dlx6X4kZCMYQCYNb2di8b3nOfjszsEiWn/vkS54vz9U4WLQJ6op/ +f5hJZWOS0oucETdTYGyKnLPOYCOR0VERYmEKNR++ry48wcZ3AjMn+TaaQjV9 +yMD6NBvXmfgEBq42hZvZLSfyL7IxdCy8S6TFBAqPJzEty9nolhXf061uAmmR +a7KyX7PRvVHW5YogwgqR1JLRbjZuv5HMfDAPkFzF02TaR47PZ6f79QAcG5v8 +8n2QjV4h55asOg1wKKDLyOQLGyfUqPQvAgD7PHNG/ptn47YRJu99XmNwN1NE +Nt0IkzvVOe4CRrDQtUKoTc4I8RImmv3HhkK/sQFrRSOc024PcGhnw5fk+hh3 +NSPkF4043ZfMhn0dWytidY1QkLH0evoyNqTbHaDXWRhhjMh8VcBKFjS4dv/R +CzXCrU9inNXUDWHHfw2Pm8KN8MhdiUULQUPgiSvMNos0wrL2NOOkCQOwuBis +5xRrhFt2qS/1uW0AnW+XhEQcNcLZyXtOGRYG8NVXa6DqghF+035bkR/EAOk9 +KfVaLUbYbdke/bVdD04u/qOf0WqEXenV/GFVesB72qLq3/tG+Lb56HfBXD34 +WrustLCDPM//ffvpYD1o4DmWTXlthMN6SmaNa/TA/eyRmNnPRmh94TctznMj +ZDfG6jev4uAFOcU7ovy6sNrOrYoqxME3M6mJcT904Mh7Q80YYQ4OSuqOzrzV +gYBl80raYhy8H/fOR7NGBwy2RosW0Tn4x0InI2+3DvR83DeVpMPB10Nae4Ie +aYOYQEjVlu0czB6hhMcYboDiTQfjJtw4eEAvqWaD8AbQPXhy0xlPDj5+IDsg +MaIFdhOV3X07OSg5uWUhOlsLkntmfu4K4eD+hG3Cwb81Yb7osGlcAgfDxYIL +/nZoQD/7zOuSMg5e87qteyhVHQKiivOsyjnYNjE/1emnDrPlNX7fKznYhwfS +7DepA0Whb06nloPtDubxT/6uA5sVNJk7LRw8l6yeditmHTR1lex+3c1BA7ty +R75wNbAWqtOM7uPgQijh+X6bGvRZdsxKDnBwp6hs1CdtNZhu+Jbq9Z6DK1df +Uts5qQqal7Vv/feVgx5E6g/VSFVo6jeJPj7KwYKEd88MnVXBWtQRNkxwkLDi ++oUyVOGflKhXkTMcDFPeobTlpwpMtyTnSsxzMOqB5/xUvwok/rqwq+EXB5+x +NYbvNqmAsF6pxo4FDs5eaWuszFeB/D0NM4uLHOTkm7o9PKIC/wOY/yDX + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3BRKUW69uVeeySEuNx7Xe83GRkpMyukfM1CVmhRdoMmEpKU +lHUPWUk0aCcrpKH6+lZWZkN+5/fXeTwf53PO+Tw+n/f7dc6R9w118OPl4eEJ +XMLD8//j7FDHfaWMYuO22s27fiVaGnflS8aa9CVC/k6LpSZZyoBiL3wl+06D +O/tqu1CWPkRvu9HL11cEFDo19GumOawdkzj9s7caOCFDjmWZzvCuyS50urcV +msI81/ad8gMLpa9vJ3s7obpT79+C41Hws9fg3ETvR8hk1ds9P5wEbZuuFb8q +mgJrDbMT8hrnQeZd/RdfjQXIK39AS9MrBNEQ7xv8m/iw0HJl5q6xYjitY9Fo +57wCzcZXaNpeKYU32dotk8KCmJD+yWPk1C3IfV22JlpZEPdfG4jqKrgF7kKq +3r+Ygug0nj1eW3ELBo/S/vLuEsQ4130/vF7cgvd7BYxEawQxrYr6iCVUDiNm +n24z3ITQawnTip5eDvMTFyriL69B0YWjN+PiKiCj+PALXqm1qER7L+uXXwnW +eoEUMcW1qDH+vP9ncSWsuO/grKq5Fos7lTPSyirh2LDygI3JWvzVsvxRTl0l +HFB4+uVs4FqMvLyYerCzEvYWSv5VaViLn3jD19kvqwL7vCoNGw8Kdlws/Svn +XwXCGhdDd/hR0KpFSI2ypwqeNx6rDg2loPWNNMW/+6rAemC74dmjFDTt5Dnx +8FAVmFL/bnpbRsG8ZZuEpc5XgV62tUfoHwr6XvxEud9WBRJnh9POXBJB7ZGU +3RrS1SC5vubYfIkIvj4VtkNarhqorcmHd1SKoLFRZ/My5WqgT6yLUm0TwdaA +P3VPtapB2TbMp3FEBNObmQcVTath49IFxvBGUZT2FBya8q+GrZHin3Qfi6Kb +yII6rbIatq0aGbrwWhRbl4jt2E9Ug0NR/Zs/g6J4+Knqt+d11eDy0vPFw3FR +7E3QpO69Vw07NK40uIuJ4amZiqbIzmoI/rQhK9FHDCvNIz8UTVVDipOVcees +GE5n5cUn6HKBSjyn8i4Rx6YbSdQcBhfKRZzmdFaJY8KVGuMyFhd6Or0qs2TF +kdf8nvhdUy4o2Ucq2G8Wx28xc0uvOnChdUvB8pc54ni87PbbwHAuLFjMPH9m +JIF+o92KfTe4kFkSV7ZgIYFJfZdSsJy8fjlPqqa9BHr46EdeqeKC7QMBkxN+ +Evgy49uIax0XcjfJcW1PSuDQyLXNiQ+4YIg2F568k8ARnuXrXwxxIYJ52bsj +URIn30xaOgkSYF0oNG1zXBIzImdM3q8hQIH/QOrzc5J4zkzrmD+FgJddLlWv +r0vi1320YX8JArTCVvMNPZfEuG3+ktryBIyUxJT8oEphXohS59BGAu4KfmZF +KUmhx8S6DFkGAecjHV7MaUohvig962FIgLmp5vwflMJVHv4XHxgRUPT2oxW/ +vxRa8vum7jQnwFPUblSaK4VSuaZB9c4EbIxvTMhvksIG3qaIiu0ECHxUE5d/ +KIW7mqp7C90IqK/gA5U3UqhyrasqagcB4jb1mdqLUqgeEtb6725y/glKeuY2 +VDQIrJsd3UfAtZGs9kdOVDyzLnshJ5KAQ1sXPa29qBh7rDTIJJoATVp/0tZw +Kq6npsYlxhKQXneq1+0CFfWaLqc8O0yA2fivuL3DVHxiwSucmkFA7Oaz6ve+ +U/Flvuf34eMElF/W7BeZpSJlLieQfZIASScfZv0Kabw0J279NpOA73UP5vi0 +pPE65W3D93MEyFO8r7kYSKP5In+t8gUCXILnXUpRGlO8xlzdswlooa2vtXOU +xgS1qJzaXALOJGZG5uyXxneC4XR2AQHtA+uUvidIo2puRJh9IQF/9NpeG2dI +Y6PKP+G7LhPwz78zup8uSWNI4sujcVcIYNl6TGq1SaP484WlUdcI+Cimsve+ +oAyuVgzemldOgEToXZqEhAze2ZLJu7eCANt212eBcjIoLiMTya4koDYuQ2PN +Rhk8GxJ1vqOKXJ93E1/dXGXw/YqB6WqC3H/D9NybO2Vw93Tvbd8aAqazFK0X +g2QwjxZnIlRLgJeZS2nxQRk0+PjlputtAnRLG/3Hi2TQ0YvJ21hPgD+vs4Tp +TRm0X6UladVAQJ7H2MOzNTL4iPBY6CS9XEhehdUugzHN95n9jQSw/Ru6j7+S +wX/u6J3Z3kRAWItj0rt+GXSZtmh5Sbp/X/KnY6Pk82M6cmrvELDmqezZ3lkZ +9KvYv1mxmdxP5fpN6jw01Jq2fJFBurz3W9ELCg3bEzsDt90lYFg7yUFBhoa/ +v/QcvklaMp3OG6VMQ5mME/uWthCQYGS/k2pIwydXq35cI73ZK/+HgSkND0/Q +m3+SFjry7aizLQ0XPcUrLe4R0H3ZUCzChYbH9CUfnySd15ZUkulDw6/xJYKd +pHd97jQoD6Kh6YjZAeFWAtT55TqeRNLQ79/9EtakJ9X2uP93iIbJOR3vD5Gu +s274tjyNhnde3n1TTvpwCP9BpTM0vLDmC18/aYuTTkKml2h4I6Xdh6eNAMHK +ywXe12goLTkzKU+669WY9sEqGurY/q4zJn1xit2a20jDQbeQ2y6kfcXSHOse +0HCz3MBYIOl1Bj2ful/Q0Ftl0Gc/6QlXxeipNzR0zVm2JpH07bgw/rWfyPE2 +47+SSR/Ku5OtNUbDnCpdlRTS5s0C6rbzNLw6HHT6/+NXv9/eGMhLR/0cPZNY +0q+XXLVNWU1H/nVaesGkcxV/vC0Wp+P2lLkQV9I+5hDaKkfHEDPdUSSt6n+c +5706HVdnJNQqkR5LfZO1oEfHtbLpj/lIEzdUFKWBjl89fqgPkesR/zSCMLSi +o/hG3zdc0qZjLeYujnTkqh/tPUZ6pbBQb8QOOs568Kjak36p4xGQ5U/HmvDk +DknSXlEz6U/j6SjzwF8ol9wv5QumMl+T6CigqEQ43vt/f5+6xZ9Jx6VXyrgr +SMf9WffStJiOKZvGH+4m68GEHrPTp5yONt2SQ6tIr8D7Pw7W0TErYMS5nKyv +c0e9xOqf0rFQ02/vZ7IePa+WlfT00NF5MoMSR1rh0bzB9Hs6uvXa0AVIVwqc +cd8wQ8fFotwIGbK+n2Y9KrhKk0Ub2/cWAmR/nOGK6rSpyiKlXsctjuwf9+6d +re91ZFG6w+rDZ7LfRiT/fJK2kEU7Mx73ijoC+Aq11U/vlcW0nwZyq8l+fXzv +YGPFfllUK/MTcSX7OXP4se2zRFn0mRpOLyD7na7qF7rigizuWqErJM8l86U8 +hzh0l7QQT+4YmR9mvc8Xxtpl0Qm1o5VJ2/EstfTulMV5SZ79rmTe7HLY+wY+ +y2KHV8GP6ptkvcbLHz6yTA59vX6OMUvJfpadvWKyXg7vPbLxySLzbIab2f5z +gxwOlHpuyyDzLm7z+tEqPTk0dOQ7nEDmYVK4D0PBWA6558PzfS+R9dP2uJ3X +Xg43zl2hzJN5et+/YLQtWg6fdC8ww08RYPWHSTkQL4cVH090bSDz+nlmF0Pv +iBw6ll169JXM8zf1K48Up8nh/PGeO87pZH2tiqQk5cmhuJWYFE8SmQeVmw0s +WuUwybqH5zr5vgiZnzzSLiiPxIrT4dt8yPUI/0f8C0Ue/cRayvd7kfv9tb+M +T1IeOXrd7/M8Cbg60NZjrCCPNVmXNd64EjDUfE6jhiGP125EXZa3J2BrErPv +src8hja9m59CMi8pCRviq+TR1HrV9nIaATwZM/eza+Vxe5v0eTdpcv58Qe61 +jfI4TLUSWSJFQPCMQ9LkA3k8+NbjlZkoAcV9SgP+/fIodcIwv0CAfF8WtCc7 +8SlggLXw8eJZLvxcLzyk6ayA1kueBfx5woXZS9SEje4KqLu9RsSkgwvTa5SV +mN4KOG5kGJj4kAtjU8wgs0AFvONtSvvdwoWPjbtm3Q8q4Ik1c//dr+HCY5vb +QqlXyfHhIjJN+eT3SbAXfJxRwGPLzbWs9nLBqOxm4fnzitg0MtWycykXBuTK +CswvKuJgsVqP7BIuxJ0vzZ8uUETztj8pAwvVcDuhJM+hVBG7rCw6bOaqQde1 +MFuoSRE/DjbOr/laDeuWnc1M/qCIUU+ONKu9qAZx7/gj0RpKKHZm9ljphWqY +pFj7uLQq4aiMiYKzQjV8Ou7jso9fBavv2wkPCVSB1XiM1WeGKtrkf/WOGKyA +77tWRBCH1dDFJTT+kf0t8n9CgjeldR2WlSQtu3rvBlCeqZysHFdH59XrXxV5 +XAeZ1IptDIYGOqdEvat6ehWy1zOFRfw1UfPmn3WWB6/AY6qJ/lSWFuqE3rLq +d7wMLJnWzA09G1B7eDp0wjgfhPiKIncmauMhbavI3j25QE+QNXJT0cFv1AB5 +evF5WKnsWevwSAeNX8hf22J1BrQ4UhUxO3Rx5Gl75Ln4TNg3RGmz5tmIFepJ +t7+cyYDxqePOVtkbkf4qIfHm+hSw3PAw10pTD+mKVsSo31FonmL/nnuuhzF6 +Fi8imw/DXg3d/ld++rgzVsMjWCEOouaov7wD9NFNO/bF0tVxcKCVjzoWpI83 +gvYKl8/EQoZrt5tAmD6y7frebOiIhevH9r8xjdNHDXW3mvGwWPg42NzHPamP +jgcon93a9oPLCZvec7f1Mbdy5+eiiBjgjO3uclvJwJDDvwe8eKJAvNGyqGkV +Ay/F56z4PhYJYynqYbJCDDRc5HdJehsJ+fITqz5TGHgllIc92BAJf53iN4XJ +MPDOE+2j1OhIuNuYVZ28gYEDEf13Xo9FgElacybXmYG/27acE/pvH5grSW4R +LGLgjsPuPS6LYUCMPpDfXczAmF2fhZZPhoHS7YjZhhIGNtQNHbn7MQyWWr8o +CChj4HbU/L3tYRi0hib/aCMY6KQyWTF6IgyMG6cvxD1iILew23GlbBgwHF59 +/Pc7A7ekNatbZu0FtSPp+1sNDNDs3dI74WHB0MS+usyWZYDfHlzvPOMSDNvm +7p7uNjJAgeknXY+NgmH/3pmbIyYGuNZRLChmZTC0e/p8ELI1wHRV86COK0EQ +wGRYe/gYoCpx2cN8MBBKf3yQnk41QPqEeYOpZwCo+zHvKvcboNKhrc9PnfOD +Uwp2v44OGqB4Q9DoWIIfTL/z1f84ZIB/7N+m7djrB83ux8vyhw0wvPaZSKCl +Hzhse3dBYpS8X+cTD8NfuyGWnRS2kscQeS49tqzw3Q3ta1/JjyobormYbnmj +8S7waw44RoQbolRo1egm+Z0wtudrjHmkIebUC394v2Yn7KeFBPdEG+KGviXW +J/76QPqBUIf5eEM0ffBkq+igD1SyouWMkg2xXjHlx5sLPvCn9mhTW64hppx1 ++sik+MDpivzpzjZDdBS++WFR0QvuFnbtnhRjYqin+d/iaHd4byvvHS3JxD3U +GN5wD3fg+bnH7TeVidkeNc3O6A6m9vx2y+SYePttiWiggDs8XMIykFJnoltY +jWZNgRs89S1YaWLMxPb6u+Odz12hXymoPPMfJpYEXzx71Xg7TF9fnNtwm4kq +vl8qn/s4wRcXi8K0eibWe/Nqlts6Qd/SE5uHG5nIJ3zRu8DQCRp9qDnnW5hY +rnKKWyvsBImS+qyFDiYOzWlfu33PEYRTgw48HmSiOfWs+5yKI2j4d/P48bIw +dMmUs+hfe6CLyZQ2L2XhiXjdK2u/24Nwm6+9JD8LDyQLr5Htt4cp+sTlJ6tY +uEMtY21QrT009Ahs0hVjoYEDK/huqD1stsCkRVUWUo7k9Xh+3ga7lMtW5m5h +4bj3Elt63VaIe+AVpLKNhX0ZK5dzzm2FTD/Kk2oHFnLFatUO7dsKTVdjjz/Z +zsKKpPKN/ppbQVRl85qFnSx00pVlvCq2g4cqn0V9olkoV93f/y1nC6irycqp +FLDwn/jAf6PzbADbO49UX2Zh9rOs1rKDNuASkPzBuJiFZQ2nUha9bODo9dGi +7aUsjLFZtptPwQYG1ZqU07gs/HIj72BsqTWcXOe2/vsjFip2DiqtaLaCSfUz +jOoJFhZUHo399ccS+p6iucgUC9UqdB1Khi2hZe+YY+QMC09/jLAPemwJJ6ut +whm/WOjX+TCClW0J6iyemw18bJSM3yT9U88SfK32yLeJs9EDaXeG9llAl7/l +6i4jNmpvF9G+v2gGjStnqPrAxpv3DWhb/zODorKidedN2BhWGvJ4vNMMwsYX +LFwt2Bg9dlx6X4kZCMYQCYNb2di8b3nOfjszsEiWn/vkS54vz9U4WLQJ6op/ +f5hJZWOS0oucETdTYGyKnLPOYCOR0VERYmEKNR++ry48wcZ3AjMn+TaaQjV9 +yMD6NBvXmfgEBq42hZvZLSfyL7IxdCy8S6TFBAqPJzEty9nolhXf061uAmmR +a7KyX7PRvVHW5YogwgqR1JLRbjZuv5HMfDAPkFzF02TaR47PZ6f79QAcG5v8 +8n2QjV4h55asOg1wKKDLyOQLGyfUqPQvAgD7PHNG/ptn47YRJu99XmNwN1NE +Nt0IkzvVOe4CRrDQtUKoTc4I8RImmv3HhkK/sQFrRSOc024PcGhnw5fk+hh3 +NSPkF4043ZfMhn0dWytidY1QkLH0evoyNqTbHaDXWRhhjMh8VcBKFjS4dv/R +CzXCrU9inNXUDWHHfw2Pm8KN8MhdiUULQUPgiSvMNos0wrL2NOOkCQOwuBis +5xRrhFt2qS/1uW0AnW+XhEQcNcLZyXtOGRYG8NVXa6DqghF+035bkR/EAOk9 +KfVaLUbYbdke/bVdD04u/qOf0WqEXenV/GFVesB72qLq3/tG+Lb56HfBXD34 +WrustLCDPM//ffvpYD1o4DmWTXlthMN6SmaNa/TA/eyRmNnPRmh94TctznMj +ZDfG6jev4uAFOcU7ovy6sNrOrYoqxME3M6mJcT904Mh7Q80YYQ4OSuqOzrzV +gYBl80raYhy8H/fOR7NGBwy2RosW0Tn4x0InI2+3DvR83DeVpMPB10Nae4Ie +aYOYQEjVlu0czB6hhMcYboDiTQfjJtw4eEAvqWaD8AbQPXhy0xlPDj5+IDsg +MaIFdhOV3X07OSg5uWUhOlsLkntmfu4K4eD+hG3Cwb81Yb7osGlcAgfDxYIL +/nZoQD/7zOuSMg5e87qteyhVHQKiivOsyjnYNjE/1emnDrPlNX7fKznYhwfS +7DepA0Whb06nloPtDubxT/6uA5sVNJk7LRw8l6yeditmHTR1lex+3c1BA7ty +R75wNbAWqtOM7uPgQijh+X6bGvRZdsxKDnBwp6hs1CdtNZhu+Jbq9Z6DK1df +Uts5qQqal7Vv/feVgx5E6g/VSFVo6jeJPj7KwYKEd88MnVXBWtQRNkxwkLDi ++oUyVOGflKhXkTMcDFPeobTlpwpMtyTnSsxzMOqB5/xUvwok/rqwq+EXB5+x +NYbvNqmAsF6pxo4FDs5eaWuszFeB/D0NM4uLHOTkm7o9PKIC/wOY/yDX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08110851938790233}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.08110851938790233}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3BRKUW69uVeeySEuNx7Xe83GRkpMyukfM1CVmhRdoMmEpKU +lHUPWUk0aCcrpKH6+lZWZkN+5/fXeTwf53PO+Tw+n/f7dc6R9w118OPl4eEJ +XMLD8//j7FDHfaWMYuO22s27fiVaGnflS8aa9CVC/k6LpSZZyoBiL3wl+06D +O/tqu1CWPkRvu9HL11cEFDo19GumOawdkzj9s7caOCFDjmWZzvCuyS50urcV +msI81/ad8gMLpa9vJ3s7obpT79+C41Hws9fg3ETvR8hk1ds9P5wEbZuuFb8q +mgJrDbMT8hrnQeZd/RdfjQXIK39AS9MrBNEQ7xv8m/iw0HJl5q6xYjitY9Fo +57wCzcZXaNpeKYU32dotk8KCmJD+yWPk1C3IfV22JlpZEPdfG4jqKrgF7kKq +3r+Ygug0nj1eW3ELBo/S/vLuEsQ4130/vF7cgvd7BYxEawQxrYr6iCVUDiNm +n24z3ITQawnTip5eDvMTFyriL69B0YWjN+PiKiCj+PALXqm1qER7L+uXXwnW +eoEUMcW1qDH+vP9ncSWsuO/grKq5Fos7lTPSyirh2LDygI3JWvzVsvxRTl0l +HFB4+uVs4FqMvLyYerCzEvYWSv5VaViLn3jD19kvqwL7vCoNGw8Kdlws/Svn +XwXCGhdDd/hR0KpFSI2ypwqeNx6rDg2loPWNNMW/+6rAemC74dmjFDTt5Dnx +8FAVmFL/bnpbRsG8ZZuEpc5XgV62tUfoHwr6XvxEud9WBRJnh9POXBJB7ZGU +3RrS1SC5vubYfIkIvj4VtkNarhqorcmHd1SKoLFRZ/My5WqgT6yLUm0TwdaA +P3VPtapB2TbMp3FEBNObmQcVTath49IFxvBGUZT2FBya8q+GrZHin3Qfi6Kb +yII6rbIatq0aGbrwWhRbl4jt2E9Ug0NR/Zs/g6J4+Knqt+d11eDy0vPFw3FR +7E3QpO69Vw07NK40uIuJ4amZiqbIzmoI/rQhK9FHDCvNIz8UTVVDipOVcees +GE5n5cUn6HKBSjyn8i4Rx6YbSdQcBhfKRZzmdFaJY8KVGuMyFhd6Or0qs2TF +kdf8nvhdUy4o2Ucq2G8Wx28xc0uvOnChdUvB8pc54ni87PbbwHAuLFjMPH9m +JIF+o92KfTe4kFkSV7ZgIYFJfZdSsJy8fjlPqqa9BHr46EdeqeKC7QMBkxN+ +Evgy49uIax0XcjfJcW1PSuDQyLXNiQ+4YIg2F568k8ARnuXrXwxxIYJ52bsj +URIn30xaOgkSYF0oNG1zXBIzImdM3q8hQIH/QOrzc5J4zkzrmD+FgJddLlWv +r0vi1320YX8JArTCVvMNPZfEuG3+ktryBIyUxJT8oEphXohS59BGAu4KfmZF +KUmhx8S6DFkGAecjHV7MaUohvig962FIgLmp5vwflMJVHv4XHxgRUPT2oxW/ +vxRa8vum7jQnwFPUblSaK4VSuaZB9c4EbIxvTMhvksIG3qaIiu0ECHxUE5d/ +KIW7mqp7C90IqK/gA5U3UqhyrasqagcB4jb1mdqLUqgeEtb6725y/glKeuY2 +VDQIrJsd3UfAtZGs9kdOVDyzLnshJ5KAQ1sXPa29qBh7rDTIJJoATVp/0tZw +Kq6npsYlxhKQXneq1+0CFfWaLqc8O0yA2fivuL3DVHxiwSucmkFA7Oaz6ve+ +U/Flvuf34eMElF/W7BeZpSJlLieQfZIASScfZv0Kabw0J279NpOA73UP5vi0 +pPE65W3D93MEyFO8r7kYSKP5In+t8gUCXILnXUpRGlO8xlzdswlooa2vtXOU +xgS1qJzaXALOJGZG5uyXxneC4XR2AQHtA+uUvidIo2puRJh9IQF/9NpeG2dI +Y6PKP+G7LhPwz78zup8uSWNI4sujcVcIYNl6TGq1SaP484WlUdcI+Cimsve+ +oAyuVgzemldOgEToXZqEhAze2ZLJu7eCANt212eBcjIoLiMTya4koDYuQ2PN +Rhk8GxJ1vqOKXJ93E1/dXGXw/YqB6WqC3H/D9NybO2Vw93Tvbd8aAqazFK0X +g2QwjxZnIlRLgJeZS2nxQRk0+PjlputtAnRLG/3Hi2TQ0YvJ21hPgD+vs4Tp +TRm0X6UladVAQJ7H2MOzNTL4iPBY6CS9XEhehdUugzHN95n9jQSw/Ru6j7+S +wX/u6J3Z3kRAWItj0rt+GXSZtmh5Sbp/X/KnY6Pk82M6cmrvELDmqezZ3lkZ +9KvYv1mxmdxP5fpN6jw01Jq2fJFBurz3W9ELCg3bEzsDt90lYFg7yUFBhoa/ +v/QcvklaMp3OG6VMQ5mME/uWthCQYGS/k2pIwydXq35cI73ZK/+HgSkND0/Q +m3+SFjry7aizLQ0XPcUrLe4R0H3ZUCzChYbH9CUfnySd15ZUkulDw6/xJYKd +pHd97jQoD6Kh6YjZAeFWAtT55TqeRNLQ79/9EtakJ9X2uP93iIbJOR3vD5Gu +s274tjyNhnde3n1TTvpwCP9BpTM0vLDmC18/aYuTTkKml2h4I6Xdh6eNAMHK +ywXe12goLTkzKU+669WY9sEqGurY/q4zJn1xit2a20jDQbeQ2y6kfcXSHOse +0HCz3MBYIOl1Bj2ful/Q0Ftl0Gc/6QlXxeipNzR0zVm2JpH07bgw/rWfyPE2 +47+SSR/Ku5OtNUbDnCpdlRTS5s0C6rbzNLw6HHT6/+NXv9/eGMhLR/0cPZNY +0q+XXLVNWU1H/nVaesGkcxV/vC0Wp+P2lLkQV9I+5hDaKkfHEDPdUSSt6n+c +5706HVdnJNQqkR5LfZO1oEfHtbLpj/lIEzdUFKWBjl89fqgPkesR/zSCMLSi +o/hG3zdc0qZjLeYujnTkqh/tPUZ6pbBQb8QOOs568Kjak36p4xGQ5U/HmvDk +DknSXlEz6U/j6SjzwF8ol9wv5QumMl+T6CigqEQ43vt/f5+6xZ9Jx6VXyrgr +SMf9WffStJiOKZvGH+4m68GEHrPTp5yONt2SQ6tIr8D7Pw7W0TErYMS5nKyv +c0e9xOqf0rFQ02/vZ7IePa+WlfT00NF5MoMSR1rh0bzB9Hs6uvXa0AVIVwqc +cd8wQ8fFotwIGbK+n2Y9KrhKk0Ub2/cWAmR/nOGK6rSpyiKlXsctjuwf9+6d +re91ZFG6w+rDZ7LfRiT/fJK2kEU7Mx73ijoC+Aq11U/vlcW0nwZyq8l+fXzv +YGPFfllUK/MTcSX7OXP4se2zRFn0mRpOLyD7na7qF7rigizuWqErJM8l86U8 +hzh0l7QQT+4YmR9mvc8Xxtpl0Qm1o5VJ2/EstfTulMV5SZ79rmTe7HLY+wY+ +y2KHV8GP6ptkvcbLHz6yTA59vX6OMUvJfpadvWKyXg7vPbLxySLzbIab2f5z +gxwOlHpuyyDzLm7z+tEqPTk0dOQ7nEDmYVK4D0PBWA6558PzfS+R9dP2uJ3X +Xg43zl2hzJN5et+/YLQtWg6fdC8ww08RYPWHSTkQL4cVH090bSDz+nlmF0Pv +iBw6ll169JXM8zf1K48Up8nh/PGeO87pZH2tiqQk5cmhuJWYFE8SmQeVmw0s +WuUwybqH5zr5vgiZnzzSLiiPxIrT4dt8yPUI/0f8C0Ue/cRayvd7kfv9tb+M +T1IeOXrd7/M8Cbg60NZjrCCPNVmXNd64EjDUfE6jhiGP125EXZa3J2BrErPv +src8hja9m59CMi8pCRviq+TR1HrV9nIaATwZM/eza+Vxe5v0eTdpcv58Qe61 +jfI4TLUSWSJFQPCMQ9LkA3k8+NbjlZkoAcV9SgP+/fIodcIwv0CAfF8WtCc7 +8SlggLXw8eJZLvxcLzyk6ayA1kueBfx5woXZS9SEje4KqLu9RsSkgwvTa5SV +mN4KOG5kGJj4kAtjU8wgs0AFvONtSvvdwoWPjbtm3Q8q4Ik1c//dr+HCY5vb +QqlXyfHhIjJN+eT3SbAXfJxRwGPLzbWs9nLBqOxm4fnzitg0MtWycykXBuTK +CswvKuJgsVqP7BIuxJ0vzZ8uUETztj8pAwvVcDuhJM+hVBG7rCw6bOaqQde1 +MFuoSRE/DjbOr/laDeuWnc1M/qCIUU+ONKu9qAZx7/gj0RpKKHZm9ljphWqY +pFj7uLQq4aiMiYKzQjV8Ou7jso9fBavv2wkPCVSB1XiM1WeGKtrkf/WOGKyA +77tWRBCH1dDFJTT+kf0t8n9CgjeldR2WlSQtu3rvBlCeqZysHFdH59XrXxV5 +XAeZ1IptDIYGOqdEvat6ehWy1zOFRfw1UfPmn3WWB6/AY6qJ/lSWFuqE3rLq +d7wMLJnWzA09G1B7eDp0wjgfhPiKIncmauMhbavI3j25QE+QNXJT0cFv1AB5 +evF5WKnsWevwSAeNX8hf22J1BrQ4UhUxO3Rx5Gl75Ln4TNg3RGmz5tmIFepJ +t7+cyYDxqePOVtkbkf4qIfHm+hSw3PAw10pTD+mKVsSo31FonmL/nnuuhzF6 +Fi8imw/DXg3d/ld++rgzVsMjWCEOouaov7wD9NFNO/bF0tVxcKCVjzoWpI83 +gvYKl8/EQoZrt5tAmD6y7frebOiIhevH9r8xjdNHDXW3mvGwWPg42NzHPamP +jgcon93a9oPLCZvec7f1Mbdy5+eiiBjgjO3uclvJwJDDvwe8eKJAvNGyqGkV +Ay/F56z4PhYJYynqYbJCDDRc5HdJehsJ+fITqz5TGHgllIc92BAJf53iN4XJ +MPDOE+2j1OhIuNuYVZ28gYEDEf13Xo9FgElacybXmYG/27acE/pvH5grSW4R +LGLgjsPuPS6LYUCMPpDfXczAmF2fhZZPhoHS7YjZhhIGNtQNHbn7MQyWWr8o +CChj4HbU/L3tYRi0hib/aCMY6KQyWTF6IgyMG6cvxD1iILew23GlbBgwHF59 +/Pc7A7ekNatbZu0FtSPp+1sNDNDs3dI74WHB0MS+usyWZYDfHlzvPOMSDNvm +7p7uNjJAgeknXY+NgmH/3pmbIyYGuNZRLChmZTC0e/p8ELI1wHRV86COK0EQ +wGRYe/gYoCpx2cN8MBBKf3yQnk41QPqEeYOpZwCo+zHvKvcboNKhrc9PnfOD +Uwp2v44OGqB4Q9DoWIIfTL/z1f84ZIB/7N+m7djrB83ux8vyhw0wvPaZSKCl +Hzhse3dBYpS8X+cTD8NfuyGWnRS2kscQeS49tqzw3Q3ta1/JjyobormYbnmj +8S7waw44RoQbolRo1egm+Z0wtudrjHmkIebUC394v2Yn7KeFBPdEG+KGviXW +J/76QPqBUIf5eEM0ffBkq+igD1SyouWMkg2xXjHlx5sLPvCn9mhTW64hppx1 ++sik+MDpivzpzjZDdBS++WFR0QvuFnbtnhRjYqin+d/iaHd4byvvHS3JxD3U +GN5wD3fg+bnH7TeVidkeNc3O6A6m9vx2y+SYePttiWiggDs8XMIykFJnoltY +jWZNgRs89S1YaWLMxPb6u+Odz12hXymoPPMfJpYEXzx71Xg7TF9fnNtwm4kq +vl8qn/s4wRcXi8K0eibWe/Nqlts6Qd/SE5uHG5nIJ3zRu8DQCRp9qDnnW5hY +rnKKWyvsBImS+qyFDiYOzWlfu33PEYRTgw48HmSiOfWs+5yKI2j4d/P48bIw +dMmUs+hfe6CLyZQ2L2XhiXjdK2u/24Nwm6+9JD8LDyQLr5Htt4cp+sTlJ6tY +uEMtY21QrT009Ahs0hVjoYEDK/huqD1stsCkRVUWUo7k9Xh+3ga7lMtW5m5h +4bj3Elt63VaIe+AVpLKNhX0ZK5dzzm2FTD/Kk2oHFnLFatUO7dsKTVdjjz/Z +zsKKpPKN/ppbQVRl85qFnSx00pVlvCq2g4cqn0V9olkoV93f/y1nC6irycqp +FLDwn/jAf6PzbADbO49UX2Zh9rOs1rKDNuASkPzBuJiFZQ2nUha9bODo9dGi +7aUsjLFZtptPwQYG1ZqU07gs/HIj72BsqTWcXOe2/vsjFip2DiqtaLaCSfUz +jOoJFhZUHo399ccS+p6iucgUC9UqdB1Khi2hZe+YY+QMC09/jLAPemwJJ6ut +whm/WOjX+TCClW0J6iyemw18bJSM3yT9U88SfK32yLeJs9EDaXeG9llAl7/l +6i4jNmpvF9G+v2gGjStnqPrAxpv3DWhb/zODorKidedN2BhWGvJ4vNMMwsYX +LFwt2Bg9dlx6X4kZCMYQCYNb2di8b3nOfjszsEiWn/vkS54vz9U4WLQJ6op/ +f5hJZWOS0oucETdTYGyKnLPOYCOR0VERYmEKNR++ry48wcZ3AjMn+TaaQjV9 +yMD6NBvXmfgEBq42hZvZLSfyL7IxdCy8S6TFBAqPJzEty9nolhXf061uAmmR +a7KyX7PRvVHW5YogwgqR1JLRbjZuv5HMfDAPkFzF02TaR47PZ6f79QAcG5v8 +8n2QjV4h55asOg1wKKDLyOQLGyfUqPQvAgD7PHNG/ptn47YRJu99XmNwN1NE +Nt0IkzvVOe4CRrDQtUKoTc4I8RImmv3HhkK/sQFrRSOc024PcGhnw5fk+hh3 +NSPkF4043ZfMhn0dWytidY1QkLH0evoyNqTbHaDXWRhhjMh8VcBKFjS4dv/R +CzXCrU9inNXUDWHHfw2Pm8KN8MhdiUULQUPgiSvMNos0wrL2NOOkCQOwuBis +5xRrhFt2qS/1uW0AnW+XhEQcNcLZyXtOGRYG8NVXa6DqghF+035bkR/EAOk9 +KfVaLUbYbdke/bVdD04u/qOf0WqEXenV/GFVesB72qLq3/tG+Lb56HfBXD34 +WrustLCDPM//ffvpYD1o4DmWTXlthMN6SmaNa/TA/eyRmNnPRmh94TctznMj +ZDfG6jev4uAFOcU7ovy6sNrOrYoqxME3M6mJcT904Mh7Q80YYQ4OSuqOzrzV +gYBl80raYhy8H/fOR7NGBwy2RosW0Tn4x0InI2+3DvR83DeVpMPB10Nae4Ie +aYOYQEjVlu0czB6hhMcYboDiTQfjJtw4eEAvqWaD8AbQPXhy0xlPDj5+IDsg +MaIFdhOV3X07OSg5uWUhOlsLkntmfu4K4eD+hG3Cwb81Yb7osGlcAgfDxYIL +/nZoQD/7zOuSMg5e87qteyhVHQKiivOsyjnYNjE/1emnDrPlNX7fKznYhwfS +7DepA0Whb06nloPtDubxT/6uA5sVNJk7LRw8l6yeditmHTR1lex+3c1BA7ty +R75wNbAWqtOM7uPgQijh+X6bGvRZdsxKDnBwp6hs1CdtNZhu+Jbq9Z6DK1df +Uts5qQqal7Vv/feVgx5E6g/VSFVo6jeJPj7KwYKEd88MnVXBWtQRNkxwkLDi ++oUyVOGflKhXkTMcDFPeobTlpwpMtyTnSsxzMOqB5/xUvwok/rqwq+EXB5+x +NYbvNqmAsF6pxo4FDs5eaWuszFeB/D0NM4uLHOTkm7o9PKIC/wOY/yDX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08110851938790233}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.08110851938790233}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938520788870907`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"e88f4f2d-ae8b-48de-996a-d7812de42e00"] +}, Open ]], Cell[CellGroupData[{ @@ -5739,66 +11945,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + "In[121]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 365, 381, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423358439445`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.687712559405811`*^-134\\\", \ +RowBox[{\\\"161002935595451666154913093426\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"119\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"160000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 45, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.9938520789284678`*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +In[121]:=",ExpressionUUID->"9c614eb9-195b-44bb-a7f4-6eebb5399f9e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335853943*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.199590965959446`*^-136\\\", \ +RowBox[{\\\"680237402890783289504507819726\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"122\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"000000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 46, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993852078935313*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +In[121]:=",ExpressionUUID->"60bc8dca-b4ce-4785-856a-052e43b48d3a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335861944*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.800118245754679`*^-138\\\", \ +RowBox[{\\\"296311412699225200908163606272\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"126\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"000000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 47, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993852078942479*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +In[121]:=",ExpressionUUID->"ebea756e-3669-46ee-a15c-5f94585411d6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335870945*^9}, +during this calculation.\"", 2, 121, 48, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993852078948484*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +In[121]:=",ExpressionUUID->"d08738be-39e2-49c5-a4e2-2d95d980a2c0"], -Cell[BoxData["12.5536549879565`"], "Output", - CellChangeTimes->{3.9913423425170345`*^9}, +Cell[BoxData["10.682200220460857`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.993852137953855*^9}, CellLabel-> - "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] + "Out[121]=",ExpressionUUID->"aafb4466-8fcd-4fe0-97df-1d19ab8ea65e"] }, Open ]], Cell[CellGroupData[{ @@ -5865,68 +12078,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99184987967128*^9, - 3.9918498857615337`*^9}},ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-\ -30286a178ca1"], + CellChangeTimes->{{3.99184987967128*^9, 3.9918498857615337`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 385, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425545177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0737212740811408`*^-195\\\", \ +RowBox[{\\\"668859810497440244092067196564\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"279094374400000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 49, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993852137992022*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +In[122]:=",ExpressionUUID->"af8d1b5f-cb37-47e6-b1e8-6dd7f5c5a9f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 386, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342342564516*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.631548261656493`*^-200\\\", \ +RowBox[{\\\"154105300338610232238812282088\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"63\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"033438617600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 50, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993852138001279*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +In[122]:=",ExpressionUUID->"d525dc08-bfd3-4df3-baf5-c1ad4dc3a86a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 387, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425725136`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.4241757405647766`*^-204\\\", \ +RowBox[{\\\"370006826113003167605388289294\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"66\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"286120857600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 51, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.9938521380098658`*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +In[122]:=",ExpressionUUID->"9ab0e9f6-7198-4310-bf4c-4eba73d4e510"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425815163`*^9}, +during this calculation.\"", 2, 122, 52, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993852138018179*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +In[122]:=",ExpressionUUID->"17bc7e2d-85d9-40b5-8a69-8145d4373c60"], -Cell[BoxData["2.904399821349581`"], "Output", - CellChangeTimes->{3.9913423499055786`*^9}, +Cell[BoxData["0.6745660332522563`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.993852146173358*^9}, CellLabel-> - "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] + "Out[122]=",ExpressionUUID->"f73fd5a6-b419-4455-afc5-95d03186f354"] }, Open ]], Cell[CellGroupData[{ @@ -5947,8 +12167,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5993,67 +12212,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849890499424*^9, - 3.9918498944226*^9}},ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], + CellChangeTimes->{{3.991849890499424*^9, 3.9918498944226*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 389, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499435787`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0737212740811408`*^-195\\\", \ +RowBox[{\\\"668859810497440244092067196564\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"279094374400000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 53, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993852146214431*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +In[123]:=",ExpressionUUID->"1eea320a-c35a-402b-a219-492d67c12161"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 390, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342349953579*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.631548261656493`*^-200\\\", \ +RowBox[{\\\"154105300338610232238812282088\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"63\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"033438617600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 54, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993852146222742*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +In[123]:=",ExpressionUUID->"a67b7dd7-ba54-44a6-ada5-7ded47bd593d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 391, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499625797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.4241757405647766`*^-204\\\", \ +RowBox[{\\\"370006826113003167605388289294\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"66\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"286120857600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 55, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.9938521462309*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +In[123]:=",ExpressionUUID->"ae004981-c379-4654-afac-117e067f07fc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499715805`*^9}, +during this calculation.\"", 2, 123, 56, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993852146237522*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +In[123]:=",ExpressionUUID->"f3f77bf6-9d91-4a79-ae98-2b7d9834c89b"], -Cell[BoxData["9.928941323789857`"], "Output", - CellChangeTimes->{3.991342356382967*^9}, +Cell[BoxData["24.001350224160866`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.993852153954131*^9}, CellLabel-> - "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] + "Out[123]=",ExpressionUUID->"b2d600a2-037b-4eab-9294-af6ca8273272"] }, Open ]], Cell[CellGroupData[{ @@ -6074,8 +12301,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6120,68 +12346,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499002266407`*^9, - 3.9918499040814323`*^9}},ExpressionUUID->"935796a8-6280-564a-b4d0-\ -fc6fb6cd41f8"], + CellChangeTimes->{{3.9918499002266407`*^9, 3.9918499040814323`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 393, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356420965*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0737212740811408`*^-195\\\", \ +RowBox[{\\\"668859810497440244092067196564\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"59\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"279094374400000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 57, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993852154009138*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +In[124]:=",ExpressionUUID->"95757f49-71ca-4d7a-96e5-b527d06d8456"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 394, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356431965*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.631548261656493`*^-200\\\", \ +RowBox[{\\\"154105300338610232238812282088\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"63\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"033438617600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 58, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.99385215401626*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +In[124]:=",ExpressionUUID->"658c60fb-5cae-4bf8-b795-bbf79d4c8342"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 395, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356441965*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.4241757405647766`*^-204\\\", \ +RowBox[{\\\"370006826113003167605388289294\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"66\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"286120857600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 59, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993852154022829*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +In[124]:=",ExpressionUUID->"0a771320-51ef-4f3c-8feb-1a817adbee53"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356450968*^9}, +during this calculation.\"", 2, 124, 60, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993852154030993*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +In[124]:=",ExpressionUUID->"462a0d2e-61e5-47d6-8de7-8a6e7f274637"], -Cell[BoxData["19.874153108015193`"], "Output", - CellChangeTimes->{3.9913423600715523`*^9}, +Cell[BoxData["2.869500144783358`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.993852158889255*^9}, CellLabel-> - "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] + "Out[124]=",ExpressionUUID->"2746586a-1133-475d-bad0-80a924aaf0ef"] }, Open ]], Cell[CellGroupData[{ @@ -6190,22 +12423,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849908545643*^9, - 3.9918499133398113`*^9}},ExpressionUUID->"ee52036b-90c5-e14a-aed9-\ -684ff23ed035"], - -Cell[BoxData["0.2067571864462191`"], "Output", - CellChangeTimes->{3.9913423601046352`*^9}, + CellChangeTimes->{{3.991849908545643*^9, 3.9918499133398113`*^9}}, CellLabel-> - "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] + "In[125]:=",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], + +Cell[BoxData["0.08128370791727973`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.9938521589208527`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"57a71fde-78f5-4422-9460-b8d49c89091a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849916273302*^9, 3.9918499185334816`*^9}, - 3.9919247506818066`*^9},ExpressionUUID->"c6d4a146-4cca-7e4e-b483-\ -85227a6e6b51"], + 3.9919247506818066`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ @@ -6228,12 +12462,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + "In[127]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913423601345863`*^9}, +Cell[BoxData["27.573445149039923`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.993852158938344*^9}, CellLabel-> - "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] + "Out[127]=",ExpressionUUID->"38118ce5-edd0-44e1-b864-71d79dc6c1ef"] }, Open ]], Cell[CellGroupData[{ @@ -6243,12 +12477,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + "In[128]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.9913423601709976`*^9}, +Cell[BoxData["0.4188298752014735`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.993852158949835*^9}, CellLabel-> - "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] + "Out[128]=",ExpressionUUID->"639fd039-28cb-4d96-8752-d8d55241768a"] }, Open ]], Cell[CellGroupData[{ @@ -6258,12 +12492,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + "In[129]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913423602320137`*^9}, +Cell[BoxData["11.548582590647067`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.9938521589588127`*^9}, CellLabel-> - "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] + "Out[129]=",ExpressionUUID->"0a40aee6-f9fa-4d16-abf3-293c40e76a91"] }, Open ]], Cell[CellGroupData[{ @@ -6453,12 +12687,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + "In[130]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[BoxData["0.02003459702393596`"], "Output", - CellChangeTimes->{3.991342360260002*^9}, +Cell[BoxData["0.008757294399146872`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.9938521589741507`*^9}, CellLabel-> - "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] + "Out[130]=",ExpressionUUID->"98c3b64b-e750-43b6-93e3-30c632d0b16e"] }, Open ]], Cell[CellGroupData[{ @@ -6472,12 +12706,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + "In[131]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[BoxData["6.261157591052328`"], "Output", - CellChangeTimes->{3.9913423603598785`*^9}, +Cell[BoxData["9.470217768084188`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.993852159074707*^9}, CellLabel-> - "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] + "Out[131]=",ExpressionUUID->"3c9c4ce7-a4ad-4941-a3e2-30bc61063dc5"] }, Open ]], Cell[CellGroupData[{ @@ -6669,12 +12903,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + "In[132]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[BoxData["0.010388932679900494`"], "Output", - CellChangeTimes->{3.991342360375868*^9}, +Cell[BoxData["0.06361126424377192`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.993852159088348*^9}, CellLabel-> - "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] + "Out[132]=",ExpressionUUID->"d7c3a4f6-4b31-4a15-877e-943921665020"] }, Open ]], Cell[CellGroupData[{ @@ -6688,12 +12922,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + "In[133]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[BoxData["8.694797556550151`"], "Output", - CellChangeTimes->{3.991342360471882*^9}, +Cell[BoxData["3.513807189943271`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.9938521591979847`*^9}, CellLabel-> - "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] + "Out[133]=",ExpressionUUID->"93c82b11-10ab-4d8a-8eb4-2460488f6332"] }, Open ]], Cell[CellGroupData[{ @@ -6786,12 +13020,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + "In[134]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991342360486868*^9}, +Cell[BoxData["0.16778085836042492`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.9938521592084293`*^9}, CellLabel-> - "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] + "Out[134]=",ExpressionUUID->"256c4a06-f56a-478e-b610-578deb2fdbc2"] }, Open ]], Cell[CellGroupData[{ @@ -6881,12 +13115,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + "In[135]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.9913423605138645`*^9}, +Cell[BoxData["0.832219141639575`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.993852159218113*^9}, CellLabel-> - "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] + "Out[135]=",ExpressionUUID->"55d1f2b9-a2cb-401a-abf1-b69fb3df2223"] }, Open ]], Cell[CellGroupData[{ @@ -7009,12 +13243,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + "In[136]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.9913423605448647`*^9}, +Cell[BoxData["0.13963044192826393`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.993852159229899*^9}, CellLabel-> - "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] + "Out[136]=",ExpressionUUID->"95cc062f-a28b-4ead-b50a-15f0280af906"] }, Open ]], Cell[CellGroupData[{ @@ -7029,7 +13263,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -7051,8 +13287,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7076,68 +13311,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849936863495*^9},ExpressionUUID->"6b25ec99-ae49-ec4d-9652-\ -65328572e509"], + CellChangeTimes->{3.991849936863495*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 384, 397, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342360571863*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1108880413994475`*^-200\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 61, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.99385215924716*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +In[137]:=",ExpressionUUID->"a002aaa2-b14a-4a23-a850-eb19597b5d3d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 384, 398, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605818653`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1714196108547306`*^-205\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 62, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.9938521592553787`*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +In[137]:=",ExpressionUUID->"6d7adf2f-a762-4d07-a549-98ad8a067fa0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 384, - 399, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605898647`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.053929805062508`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"56\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"040868761600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 63, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.9938521592637253`*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +In[137]:=",ExpressionUUID->"7e26ce17-58e0-49bb-8f3a-5c66e00f3912"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605988636`*^9}, +during this calculation.\"", 2, 137, 64, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993852159270529*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +In[137]:=",ExpressionUUID->"2eb1eb3e-ce5d-4415-b23a-7986a8963956"], -Cell[BoxData["6.261157591052324`"], "Output", - CellChangeTimes->{3.9913423642473736`*^9}, +Cell[BoxData["9.470217768084177`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.993852163111219*^9}, CellLabel-> - "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] + "Out[137]=",ExpressionUUID->"52afdae0-8c69-4392-9138-466989056d17"] }, Open ]], Cell[CellGroupData[{ @@ -7152,7 +13394,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -7174,8 +13418,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7199,68 +13442,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849940282545*^9},ExpressionUUID->"3e2baf62-fab9-eb41-8de7-\ -aa229443ac14"], + CellChangeTimes->{3.991849940282545*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 385, 401, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364284378*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1108880413994475`*^-200\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 65, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.993852163154134*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +In[138]:=",ExpressionUUID->"4def0a14-d1c9-4d33-8475-eab8867231af"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 385, 402, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423642935734`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1714196108547306`*^-205\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 66, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.993852163162283*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +In[138]:=",ExpressionUUID->"8b137b81-80b9-4b74-a394-a3de5106d7f7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 385, - 403, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364302574*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.053929805062508`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"56\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"040868761600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 67, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.993852163170052*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +In[138]:=",ExpressionUUID->"4b8fd02d-ef50-45d2-9ec0-c32673e3fafd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423643105717`*^9}, +during this calculation.\"", 2, 138, 68, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9938521631781673`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +In[138]:=",ExpressionUUID->"3b26d996-e4cf-4e24-949d-383313907b4f"], -Cell[BoxData["8.694797556550144`"], "Output", - CellChangeTimes->{3.9913423679416714`*^9}, +Cell[BoxData["3.5138071899432712`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.9938521670363007`*^9}, CellLabel-> - "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] + "Out[138]=",ExpressionUUID->"54ba49cd-2394-4ab0-a0e1-de64be9112db"] }, Open ]], Cell[CellGroupData[{ @@ -7318,95 +13568,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849946138607*^9},ExpressionUUID->"725c3011-bda9-4c42-96ce-\ -9a77a5dc787c"], + CellChangeTimes->{3.991849946138607*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0VW0bBnCZkpAhUzIPxUtkCA2eOw4iUzLPcc42JISkCBX1RoQU+shQ +IpEoEiVJkhQvkkQI2zw7p5TyPf7Ya6/feta67mvfa+8t7RloTWNmYmIax9f6 +/eTHXTuetn/Uu1tzqULpKAPpzd7V8qSUoMbQJu91D+bsSZOjPEdLzfGXFbGt +qB/YuTTeoMChTr6d2OXh0a/ZKK2oiDWfXQH7SpNIfXTxf0jtBp0mi/2s/eTt +VfVP6BVfm6oU9mRvS+SZ2h5kKKhK3Y69bVTWmWHQh1rthFhEsA/PReqGtA6g +xPtxXALYdauTm8OLh9Ds6rkYbuzu88IRVQHDKMyFyX0j9iw7ZXJZfRT1zHEX +MWGzXw1y1PhBorlfhc4r1gwkwZfdfLJ2HFX1t51ZwLYQY9ybNZhG0tpt9AFs +IldGSIVjFkX9un+0Gzta3jLueOsc2qQqur0Vu0e4a3do8QIqqnk+XYlNdfLz +vX51ESUh+vJ97PkspryKgCVkltLinY3NIaPCu6BOR0HKtokXsNOor415BRko +P3YLhGJLFTpGq/5gIPu3Qa40bB3lS7Mnan8iZXeNHkNsnz0DrZMGq0hGn+fj +2hEGWg4/xcqp8AdRrtt0T2PH1G7er8jxFwlZOpt8wc4AnQferWsI+qoDH2FT +C5opwcUb4JqRTJ09dnHT9cHzYsxgJfNlO2DPj7lFplxlhrXpIHIHdqQS/fGj +ABb4UGBbQ7fCfcukZefU2cBF9iwtHru3fbru7x02KFSrEwvAllp86sQjyA7v +yzkPHMEu0bRIVfnBDn6jHfWC2I3Pzm7wr+UAK/aXH9ItGYj+unNg3IALbjg5 +MsdYMBC/GRdvRB0XzFo27rPHVuuiALcuN2jcSm5SwfYbqczdvYsH3JdPtveY +M1AQc6vaAS5eiEo9VqWAPSrzcCGOwQfW9+o78w7j/RAtm9o0+IERNbAjAJv5 +ASktcpIfkiRYP+piS2lIWhdP8UMkeyJvmykDORkkV3wcFABJwcnABRMGavMK +DhF+Lwh7LlTkCx5ioG+FSQkeHEIQoza5/bMxA01PFd+5bygEN2UXJ9KxOUOH +O/fVCwF3fnGkMDYl1kbTo1IYNF+aXeIxYqCau3voRTmiQE8w0u4zYKC7o7/C +9oaKQ+4KRDP0GOiQ7eVvIaXioGOewFGEPd0oYFRKisNW78xVB2zNu8qCUo4S +EOl3QP7ZAbxPT7fHbHqS8EvV+mzwfgZanBs8PX5RCoqqTh18p8tAAicoTx6b +y8DrLbFPN2oyEHmX08fKTwYyp7Or72kwUHVfu9jMJRmoZktTMMR2MXO9qFAv +Ay8l3E1i1HG/f8KsM9VlIUs5qmRODc+fLJyPEpYD1aq8lQoVBrLx3qxiOiQP +iwks+1oVGAiF2arb/5EHv8MFB52xleJytKmiCjDub/hiQp6BmO5o6EcdUQAH +tU4BNuzSb872Fa8UgObnB1qy+Pu0Kzm/LX8HUNRYiiMkcT+KefekpyJ0dCbZ +5wkzkJjMteiEEWW4RQlWsWVnoOfxy4orzCowaMpSVMmG+y85dhHSKvCUMR4n +iH27UU5R300Fms/r+HeyMJCMd03Hz88q0FJ7izTegPuVjMoT73fBvxfcHwms +0pG4mAQh5agGrdpxidoLdKRcEMr1G6nDVneT8OovdORJvUhXsVAHU+d7QkzY +GbKp3zxc1GFGJ1vTuIeOWPLLHjWFq4O9Sd9cZzcd9d6etEktV4fJjgPeY510 +dCXDI1tRVgOM9evCGB/oiEww2+XArglOTgLsVa/oKC9YzqqyVQvcvFavNhTS +UXsY0o4t0AWp7UXv1HzpSNrtk4Wr/wHoFex6/FOWjmhrVQ/FzwCMF0gX7Ohf +RsJT1RuFPfXhTQOVzSV+GYVq7O9LVaJAT5udobrOMvKcWW0WmDSEnS8vP2sb +XkKl+iEbc9qMYdY3TqYhdgndXfZ7VZJmAmoUm5lYxSX086DIh8bow+BzI7s9 +v3ER9TOxLAwdM4e7xAYTR49FFLA9MPm8rCXIcAnq2TEvooe+zfU34qyAw/WG +/9msBXR2SfTHP75HoGzkvQCn3gKimxrZvXW3hgTpY7vne+aRrnPKwdEjR2FA +Mlnc5/Q86hDN9mvUsAEHnrqH9hLzaNu9i8+LdtpCT3fcvtMxc6h6UMnMgtsO +LvwIKx37NIskuua9w2bsoNeb3raqMYs0bqSU3Bm0hzqOqLQH8TMom3VpV+pr +B9i5HDcxsziNqg6q9sY9cwT5lk0TabbTKEM7nm+12An4FUZXYhumUNvXgksa +V51B3spFUhymUKV5llxQjAvkieqVq9RMooUTR5kCqK7A3WRvfIAyiehGij6z +Bm6w1/270uHPE6ho5svPkD3uYN50+UCizwRyyCvwcuXygIOxPhp7OSbQ44rD +7iyXPSCdj4PDu3Ac6Yp1rFxZ8QCzTToiW23Gkeygd+9/vsdgyLjE9zfHOBrZ +fNwya/gYDEuGfvtcN4bakyy8jG09IYD0Yz0VM4bSwnM2n2r3hAnyY6UGZQw9 +r1tb8TLxAp7vd4d8ecfQFhe4rFHjBU5tJeG5JImktr5t2/7cCyw4xzlXRkmk +1mouwl7nBWyit/mtsa33O9/veeUFsreOX2AbIVHa9rD35955gdGSzPDJIRJt +63+wpbnHC/hfvCzw6CORnJtwhssPL/g1ziR0s4NEuh6zRXGaVPBPGP/qXk+i +e5nzIRZ7qFBcnfnl20sSbe1c1BPWoYLy9NR+N+xZwx9dRfuocLrbR9OtjsT/ +G6YNrfpUcFOMID2fk4jnB58j/xEqHOeutYmuJtFIotamnBNU8LL9aMxaTqIj +b7W7vAOp0PbwzvK1RySqY9qbo3aSCr0TzezbsTND9LQaQqlAc1hx0iojkYWj +8bHRCCpovXnY4F9Komdyjs/+iafCdRv7xNn7JEqqjfStvkcFhr7L2oE7JDqh +nq4bXkQFenqQU08+iczul2/SKaZCp0yWUAg2Zzp5/2kpFf5mq1XczyNRXLDV +ZNUTKsyPCIaJ5ZIoUlHueGUD7uPOrcqXTSK/9Pf+Fd+oYC83ZW+YTiITHnJ/ +8CAV9OM4O6ZukmhnHBO3+ncq6OYwl6Zik8FapeWjVPhUeCpu6AaJjlnkzDya +pkKUoGb9xTQSObCFBJT9osK5yhjn3hQSGYdsCyoRooHEB2Xx9qskasi5ZJoq +QoOu7JuSkdj7WxflwrfRQH/ry+s7sdXk338xkKDBp0aD/y4kkEj0c4TBV3ka +WF4Zzt0fT6Kpvf1CnFo0+D78MvnNZRJdY8594X2UBgPNyQXKF/Hzq3JlmNvS +wFVkcx95gUSxzuHBGvY08H+wMTYPO/yJ1Y41JxosN8TsFME+RmxIuelJgyRn +g9ec50mk0eJJfXOSBqG7MvTYokn0OUV+s2wyDSZzow5aRpDoIeL2GU+hgc6G +XEcx7NiZ5cbS6zRQ4vbvGjtLInWTxiiddBrYla8tnMdOYvJaNL9NgxAPRmvN +GRIZBeZ+CS+hwdeR3RtQOInExf/do/eQBpm+kQZ82MstgddZHtGgutxjfPg0 +ifIVkHnSYxqE/W/RMR77T39//Z0aGmRVSvV9DSPREzOxoo/NNEj80emccopE +Cb+Y2dJacL/eQ299sT2LJo85ttKAqeLQDX1sXtYasZE2GsR/HnWgh5LIv9bh +2ko3DbwSo6LcsWWVbobJjeL+e07pG4WQ6Nfnc50TJA2CA7W75bDb42hqZeN4 +/szpVhbsqCHNSd1pvM/uoMGGYBL1ZnS6Wi7RQKp41z1D7NSNfIZnNxDA/dig +yPUkiZ4v9juHshDQsiqth7DH+ouDA9gI+KFaZiGNvf8JJddzEwGWfJ0DZBB+ +3zzCf5vyEdBfptRwGpvXzJDfUIAAQwk/FVfsfdr8ikiQgHsm1gIG2MncJXYa +ogTMMm2z5F0/rxkoF5Mm4Pj7kEuPAklEFJQ0C8oScGt0tCkTOzn5zMAWeQK6 +ab/PX8QmCQFuVkUCVJR5fBzWzwWMfabVCPhzs2FpI3bNX4FoUp2A3cloEz2A +RKMTgzcGNQkQDXDO/I69t/7s6y4dAjq6Tyi+xB7xfyjxAgjYuGWeIwqbxyFC +66k+AYXv7JYCsHUNDpmVUwi4/cLBwQM7SfT7mYJDBHypVU6lYFezliXnmBJw +keUvoY09PBdRmGlGgMGaT5UStk6T4KdEKwKGKjjf8GN7ln+fumxNwKbXELsR +OzGrjPmCDZ6nvaVu9QSJvgebqIU5EPBJNjRvHJvbTcg4yIkAZx7OwwPYOibD +rn4uBJwy0A7sxk6UPJfg5kHA6Qy7HU3Y1Zym+Q6eeD9Gh2rr1vPoQs+sqQQo +ObW/e7qeNzTcZkYQ8OHOrHX5el7rI9LIh4Dn9Hy7B9ieT8/9AT8CpuVnugrW +8/NNt+7zJ4Dk/vAhdz0/UfgfrQACKPH6B7PW88NHDqoGEWAcYa6agc1FLXdQ +DCZAv3EmPQ1b2zIqUDaUAEkz2YiU9fy9hy+JhxEwtjrTk4R9VV4kWzicAJtG +8/Kr2FW8o4/5zhIgcV2fNQF76Hd5y+ZIArJcW/+7sp4/FjXEFkWAj9iU6Lr3 +dBz+uRZNQODb233/Yv8faZ7lHg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7420,107 +13669,106 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwV1Hk0VW0bBnCZkpAhUzIPxUtkCA2eOw4iUzLPcc42JISkCBX1RoQU+shQ +IpEoEiVJkhQvkkQI2zw7p5TyPf7Ya6/feta67mvfa+8t7RloTWNmYmIax9f6 +/eTHXTuetn/Uu1tzqULpKAPpzd7V8qSUoMbQJu91D+bsSZOjPEdLzfGXFbGt +qB/YuTTeoMChTr6d2OXh0a/ZKK2oiDWfXQH7SpNIfXTxf0jtBp0mi/2s/eTt +VfVP6BVfm6oU9mRvS+SZ2h5kKKhK3Y69bVTWmWHQh1rthFhEsA/PReqGtA6g +xPtxXALYdauTm8OLh9Ds6rkYbuzu88IRVQHDKMyFyX0j9iw7ZXJZfRT1zHEX +MWGzXw1y1PhBorlfhc4r1gwkwZfdfLJ2HFX1t51ZwLYQY9ybNZhG0tpt9AFs +IldGSIVjFkX9un+0Gzta3jLueOsc2qQqur0Vu0e4a3do8QIqqnk+XYlNdfLz +vX51ESUh+vJ97PkspryKgCVkltLinY3NIaPCu6BOR0HKtokXsNOor415BRko +P3YLhGJLFTpGq/5gIPu3Qa40bB3lS7Mnan8iZXeNHkNsnz0DrZMGq0hGn+fj +2hEGWg4/xcqp8AdRrtt0T2PH1G7er8jxFwlZOpt8wc4AnQferWsI+qoDH2FT +C5opwcUb4JqRTJ09dnHT9cHzYsxgJfNlO2DPj7lFplxlhrXpIHIHdqQS/fGj +ABb4UGBbQ7fCfcukZefU2cBF9iwtHru3fbru7x02KFSrEwvAllp86sQjyA7v +yzkPHMEu0bRIVfnBDn6jHfWC2I3Pzm7wr+UAK/aXH9ItGYj+unNg3IALbjg5 +MsdYMBC/GRdvRB0XzFo27rPHVuuiALcuN2jcSm5SwfYbqczdvYsH3JdPtveY +M1AQc6vaAS5eiEo9VqWAPSrzcCGOwQfW9+o78w7j/RAtm9o0+IERNbAjAJv5 +ASktcpIfkiRYP+piS2lIWhdP8UMkeyJvmykDORkkV3wcFABJwcnABRMGavMK +DhF+Lwh7LlTkCx5ioG+FSQkeHEIQoza5/bMxA01PFd+5bygEN2UXJ9KxOUOH +O/fVCwF3fnGkMDYl1kbTo1IYNF+aXeIxYqCau3voRTmiQE8w0u4zYKC7o7/C +9oaKQ+4KRDP0GOiQ7eVvIaXioGOewFGEPd0oYFRKisNW78xVB2zNu8qCUo4S +EOl3QP7ZAbxPT7fHbHqS8EvV+mzwfgZanBs8PX5RCoqqTh18p8tAAicoTx6b +y8DrLbFPN2oyEHmX08fKTwYyp7Or72kwUHVfu9jMJRmoZktTMMR2MXO9qFAv +Ay8l3E1i1HG/f8KsM9VlIUs5qmRODc+fLJyPEpYD1aq8lQoVBrLx3qxiOiQP +iwks+1oVGAiF2arb/5EHv8MFB52xleJytKmiCjDub/hiQp6BmO5o6EcdUQAH +tU4BNuzSb872Fa8UgObnB1qy+Pu0Kzm/LX8HUNRYiiMkcT+KefekpyJ0dCbZ +5wkzkJjMteiEEWW4RQlWsWVnoOfxy4orzCowaMpSVMmG+y85dhHSKvCUMR4n +iH27UU5R300Fms/r+HeyMJCMd03Hz88q0FJ7izTegPuVjMoT73fBvxfcHwms +0pG4mAQh5agGrdpxidoLdKRcEMr1G6nDVneT8OovdORJvUhXsVAHU+d7QkzY +GbKp3zxc1GFGJ1vTuIeOWPLLHjWFq4O9Sd9cZzcd9d6etEktV4fJjgPeY510 +dCXDI1tRVgOM9evCGB/oiEww2+XArglOTgLsVa/oKC9YzqqyVQvcvFavNhTS +UXsY0o4t0AWp7UXv1HzpSNrtk4Wr/wHoFex6/FOWjmhrVQ/FzwCMF0gX7Ohf +RsJT1RuFPfXhTQOVzSV+GYVq7O9LVaJAT5udobrOMvKcWW0WmDSEnS8vP2sb +XkKl+iEbc9qMYdY3TqYhdgndXfZ7VZJmAmoUm5lYxSX086DIh8bow+BzI7s9 +v3ER9TOxLAwdM4e7xAYTR49FFLA9MPm8rCXIcAnq2TEvooe+zfU34qyAw/WG +/9msBXR2SfTHP75HoGzkvQCn3gKimxrZvXW3hgTpY7vne+aRrnPKwdEjR2FA +Mlnc5/Q86hDN9mvUsAEHnrqH9hLzaNu9i8+LdtpCT3fcvtMxc6h6UMnMgtsO +LvwIKx37NIskuua9w2bsoNeb3raqMYs0bqSU3Bm0hzqOqLQH8TMom3VpV+pr +B9i5HDcxsziNqg6q9sY9cwT5lk0TabbTKEM7nm+12An4FUZXYhumUNvXgksa +V51B3spFUhymUKV5llxQjAvkieqVq9RMooUTR5kCqK7A3WRvfIAyiehGij6z +Bm6w1/270uHPE6ho5svPkD3uYN50+UCizwRyyCvwcuXygIOxPhp7OSbQ44rD +7iyXPSCdj4PDu3Ac6Yp1rFxZ8QCzTToiW23Gkeygd+9/vsdgyLjE9zfHOBrZ +fNwya/gYDEuGfvtcN4bakyy8jG09IYD0Yz0VM4bSwnM2n2r3hAnyY6UGZQw9 +r1tb8TLxAp7vd4d8ecfQFhe4rFHjBU5tJeG5JImktr5t2/7cCyw4xzlXRkmk +1mouwl7nBWyit/mtsa33O9/veeUFsreOX2AbIVHa9rD35955gdGSzPDJIRJt +63+wpbnHC/hfvCzw6CORnJtwhssPL/g1ziR0s4NEuh6zRXGaVPBPGP/qXk+i +e5nzIRZ7qFBcnfnl20sSbe1c1BPWoYLy9NR+N+xZwx9dRfuocLrbR9OtjsT/ +G6YNrfpUcFOMID2fk4jnB58j/xEqHOeutYmuJtFIotamnBNU8LL9aMxaTqIj +b7W7vAOp0PbwzvK1RySqY9qbo3aSCr0TzezbsTND9LQaQqlAc1hx0iojkYWj +8bHRCCpovXnY4F9Komdyjs/+iafCdRv7xNn7JEqqjfStvkcFhr7L2oE7JDqh +nq4bXkQFenqQU08+iczul2/SKaZCp0yWUAg2Zzp5/2kpFf5mq1XczyNRXLDV +ZNUTKsyPCIaJ5ZIoUlHueGUD7uPOrcqXTSK/9Pf+Fd+oYC83ZW+YTiITHnJ/ +8CAV9OM4O6ZukmhnHBO3+ncq6OYwl6Zik8FapeWjVPhUeCpu6AaJjlnkzDya +pkKUoGb9xTQSObCFBJT9osK5yhjn3hQSGYdsCyoRooHEB2Xx9qskasi5ZJoq +QoOu7JuSkdj7WxflwrfRQH/ry+s7sdXk338xkKDBp0aD/y4kkEj0c4TBV3ka +WF4Zzt0fT6Kpvf1CnFo0+D78MvnNZRJdY8594X2UBgPNyQXKF/Hzq3JlmNvS +wFVkcx95gUSxzuHBGvY08H+wMTYPO/yJ1Y41JxosN8TsFME+RmxIuelJgyRn +g9ec50mk0eJJfXOSBqG7MvTYokn0OUV+s2wyDSZzow5aRpDoIeL2GU+hgc6G +XEcx7NiZ5cbS6zRQ4vbvGjtLInWTxiiddBrYla8tnMdOYvJaNL9NgxAPRmvN +GRIZBeZ+CS+hwdeR3RtQOInExf/do/eQBpm+kQZ82MstgddZHtGgutxjfPg0 +ifIVkHnSYxqE/W/RMR77T39//Z0aGmRVSvV9DSPREzOxoo/NNEj80emccopE +Cb+Y2dJacL/eQ299sT2LJo85ttKAqeLQDX1sXtYasZE2GsR/HnWgh5LIv9bh +2ko3DbwSo6LcsWWVbobJjeL+e07pG4WQ6Nfnc50TJA2CA7W75bDb42hqZeN4 +/szpVhbsqCHNSd1pvM/uoMGGYBL1ZnS6Wi7RQKp41z1D7NSNfIZnNxDA/dig +yPUkiZ4v9juHshDQsiqth7DH+ouDA9gI+KFaZiGNvf8JJddzEwGWfJ0DZBB+ +3zzCf5vyEdBfptRwGpvXzJDfUIAAQwk/FVfsfdr8ikiQgHsm1gIG2MncJXYa +ogTMMm2z5F0/rxkoF5Mm4Pj7kEuPAklEFJQ0C8oScGt0tCkTOzn5zMAWeQK6 +ab/PX8QmCQFuVkUCVJR5fBzWzwWMfabVCPhzs2FpI3bNX4FoUp2A3cloEz2A +RKMTgzcGNQkQDXDO/I69t/7s6y4dAjq6Tyi+xB7xfyjxAgjYuGWeIwqbxyFC +66k+AYXv7JYCsHUNDpmVUwi4/cLBwQM7SfT7mYJDBHypVU6lYFezliXnmBJw +keUvoY09PBdRmGlGgMGaT5UStk6T4KdEKwKGKjjf8GN7ln+fumxNwKbXELsR +OzGrjPmCDZ6nvaVu9QSJvgebqIU5EPBJNjRvHJvbTcg4yIkAZx7OwwPYOibD +rn4uBJwy0A7sxk6UPJfg5kHA6Qy7HU3Y1Zym+Q6eeD9Gh2rr1vPoQs+sqQQo +ObW/e7qeNzTcZkYQ8OHOrHX5el7rI9LIh4Dn9Hy7B9ieT8/9AT8CpuVnugrW +8/NNt+7zJ4Dk/vAhdz0/UfgfrQACKPH6B7PW88NHDqoGEWAcYa6agc1FLXdQ +DCZAv3EmPQ1b2zIqUDaUAEkz2YiU9fy9hy+JhxEwtjrTk4R9VV4kWzicAJtG +8/Kr2FW8o4/5zhIgcV2fNQF76Hd5y+ZIArJcW/+7sp4/FjXEFkWAj9iU6Lr3 +dBz+uRZNQODb233/Yv8faZ7lHg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.700870924853218, + 1.3953043912585281`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.7008709248532196}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7532,21 +13780,20 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "PlotRange" -> {{0, 180}, {0.700870924853218, 1.3953043912585281`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7008709248532196}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7560,105 +13807,104 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwV1Hk0VW0bBnCZkpAhUzIPxUtkCA2eOw4iUzLPcc42JISkCBX1RoQU+shQ +IpEoEiVJkhQvkkQI2zw7p5TyPf7Ya6/feta67mvfa+8t7RloTWNmYmIax9f6 +/eTHXTuetn/Uu1tzqULpKAPpzd7V8qSUoMbQJu91D+bsSZOjPEdLzfGXFbGt +qB/YuTTeoMChTr6d2OXh0a/ZKK2oiDWfXQH7SpNIfXTxf0jtBp0mi/2s/eTt +VfVP6BVfm6oU9mRvS+SZ2h5kKKhK3Y69bVTWmWHQh1rthFhEsA/PReqGtA6g +xPtxXALYdauTm8OLh9Ds6rkYbuzu88IRVQHDKMyFyX0j9iw7ZXJZfRT1zHEX +MWGzXw1y1PhBorlfhc4r1gwkwZfdfLJ2HFX1t51ZwLYQY9ybNZhG0tpt9AFs +IldGSIVjFkX9un+0Gzta3jLueOsc2qQqur0Vu0e4a3do8QIqqnk+XYlNdfLz +vX51ESUh+vJ97PkspryKgCVkltLinY3NIaPCu6BOR0HKtokXsNOor415BRko +P3YLhGJLFTpGq/5gIPu3Qa40bB3lS7Mnan8iZXeNHkNsnz0DrZMGq0hGn+fj +2hEGWg4/xcqp8AdRrtt0T2PH1G7er8jxFwlZOpt8wc4AnQferWsI+qoDH2FT +C5opwcUb4JqRTJ09dnHT9cHzYsxgJfNlO2DPj7lFplxlhrXpIHIHdqQS/fGj +ABb4UGBbQ7fCfcukZefU2cBF9iwtHru3fbru7x02KFSrEwvAllp86sQjyA7v +yzkPHMEu0bRIVfnBDn6jHfWC2I3Pzm7wr+UAK/aXH9ItGYj+unNg3IALbjg5 +MsdYMBC/GRdvRB0XzFo27rPHVuuiALcuN2jcSm5SwfYbqczdvYsH3JdPtveY +M1AQc6vaAS5eiEo9VqWAPSrzcCGOwQfW9+o78w7j/RAtm9o0+IERNbAjAJv5 +ASktcpIfkiRYP+piS2lIWhdP8UMkeyJvmykDORkkV3wcFABJwcnABRMGavMK +DhF+Lwh7LlTkCx5ioG+FSQkeHEIQoza5/bMxA01PFd+5bygEN2UXJ9KxOUOH +O/fVCwF3fnGkMDYl1kbTo1IYNF+aXeIxYqCau3voRTmiQE8w0u4zYKC7o7/C +9oaKQ+4KRDP0GOiQ7eVvIaXioGOewFGEPd0oYFRKisNW78xVB2zNu8qCUo4S +EOl3QP7ZAbxPT7fHbHqS8EvV+mzwfgZanBs8PX5RCoqqTh18p8tAAicoTx6b +y8DrLbFPN2oyEHmX08fKTwYyp7Or72kwUHVfu9jMJRmoZktTMMR2MXO9qFAv +Ay8l3E1i1HG/f8KsM9VlIUs5qmRODc+fLJyPEpYD1aq8lQoVBrLx3qxiOiQP +iwks+1oVGAiF2arb/5EHv8MFB52xleJytKmiCjDub/hiQp6BmO5o6EcdUQAH +tU4BNuzSb872Fa8UgObnB1qy+Pu0Kzm/LX8HUNRYiiMkcT+KefekpyJ0dCbZ +5wkzkJjMteiEEWW4RQlWsWVnoOfxy4orzCowaMpSVMmG+y85dhHSKvCUMR4n +iH27UU5R300Fms/r+HeyMJCMd03Hz88q0FJ7izTegPuVjMoT73fBvxfcHwms +0pG4mAQh5agGrdpxidoLdKRcEMr1G6nDVneT8OovdORJvUhXsVAHU+d7QkzY +GbKp3zxc1GFGJ1vTuIeOWPLLHjWFq4O9Sd9cZzcd9d6etEktV4fJjgPeY510 +dCXDI1tRVgOM9evCGB/oiEww2+XArglOTgLsVa/oKC9YzqqyVQvcvFavNhTS +UXsY0o4t0AWp7UXv1HzpSNrtk4Wr/wHoFex6/FOWjmhrVQ/FzwCMF0gX7Ohf +RsJT1RuFPfXhTQOVzSV+GYVq7O9LVaJAT5udobrOMvKcWW0WmDSEnS8vP2sb +XkKl+iEbc9qMYdY3TqYhdgndXfZ7VZJmAmoUm5lYxSX086DIh8bow+BzI7s9 +v3ER9TOxLAwdM4e7xAYTR49FFLA9MPm8rCXIcAnq2TEvooe+zfU34qyAw/WG +/9msBXR2SfTHP75HoGzkvQCn3gKimxrZvXW3hgTpY7vne+aRrnPKwdEjR2FA +Mlnc5/Q86hDN9mvUsAEHnrqH9hLzaNu9i8+LdtpCT3fcvtMxc6h6UMnMgtsO +LvwIKx37NIskuua9w2bsoNeb3raqMYs0bqSU3Bm0hzqOqLQH8TMom3VpV+pr +B9i5HDcxsziNqg6q9sY9cwT5lk0TabbTKEM7nm+12An4FUZXYhumUNvXgksa +V51B3spFUhymUKV5llxQjAvkieqVq9RMooUTR5kCqK7A3WRvfIAyiehGij6z +Bm6w1/270uHPE6ho5svPkD3uYN50+UCizwRyyCvwcuXygIOxPhp7OSbQ44rD +7iyXPSCdj4PDu3Ac6Yp1rFxZ8QCzTToiW23Gkeygd+9/vsdgyLjE9zfHOBrZ +fNwya/gYDEuGfvtcN4bakyy8jG09IYD0Yz0VM4bSwnM2n2r3hAnyY6UGZQw9 +r1tb8TLxAp7vd4d8ecfQFhe4rFHjBU5tJeG5JImktr5t2/7cCyw4xzlXRkmk +1mouwl7nBWyit/mtsa33O9/veeUFsreOX2AbIVHa9rD35955gdGSzPDJIRJt +63+wpbnHC/hfvCzw6CORnJtwhssPL/g1ziR0s4NEuh6zRXGaVPBPGP/qXk+i +e5nzIRZ7qFBcnfnl20sSbe1c1BPWoYLy9NR+N+xZwx9dRfuocLrbR9OtjsT/ +G6YNrfpUcFOMID2fk4jnB58j/xEqHOeutYmuJtFIotamnBNU8LL9aMxaTqIj +b7W7vAOp0PbwzvK1RySqY9qbo3aSCr0TzezbsTND9LQaQqlAc1hx0iojkYWj +8bHRCCpovXnY4F9Komdyjs/+iafCdRv7xNn7JEqqjfStvkcFhr7L2oE7JDqh +nq4bXkQFenqQU08+iczul2/SKaZCp0yWUAg2Zzp5/2kpFf5mq1XczyNRXLDV +ZNUTKsyPCIaJ5ZIoUlHueGUD7uPOrcqXTSK/9Pf+Fd+oYC83ZW+YTiITHnJ/ +8CAV9OM4O6ZukmhnHBO3+ncq6OYwl6Zik8FapeWjVPhUeCpu6AaJjlnkzDya +pkKUoGb9xTQSObCFBJT9osK5yhjn3hQSGYdsCyoRooHEB2Xx9qskasi5ZJoq +QoOu7JuSkdj7WxflwrfRQH/ry+s7sdXk338xkKDBp0aD/y4kkEj0c4TBV3ka +WF4Zzt0fT6Kpvf1CnFo0+D78MvnNZRJdY8594X2UBgPNyQXKF/Hzq3JlmNvS +wFVkcx95gUSxzuHBGvY08H+wMTYPO/yJ1Y41JxosN8TsFME+RmxIuelJgyRn +g9ec50mk0eJJfXOSBqG7MvTYokn0OUV+s2wyDSZzow5aRpDoIeL2GU+hgc6G +XEcx7NiZ5cbS6zRQ4vbvGjtLInWTxiiddBrYla8tnMdOYvJaNL9NgxAPRmvN +GRIZBeZ+CS+hwdeR3RtQOInExf/do/eQBpm+kQZ82MstgddZHtGgutxjfPg0 +ifIVkHnSYxqE/W/RMR77T39//Z0aGmRVSvV9DSPREzOxoo/NNEj80emccopE +Cb+Y2dJacL/eQ299sT2LJo85ttKAqeLQDX1sXtYasZE2GsR/HnWgh5LIv9bh +2ko3DbwSo6LcsWWVbobJjeL+e07pG4WQ6Nfnc50TJA2CA7W75bDb42hqZeN4 +/szpVhbsqCHNSd1pvM/uoMGGYBL1ZnS6Wi7RQKp41z1D7NSNfIZnNxDA/dig +yPUkiZ4v9juHshDQsiqth7DH+ouDA9gI+KFaZiGNvf8JJddzEwGWfJ0DZBB+ +3zzCf5vyEdBfptRwGpvXzJDfUIAAQwk/FVfsfdr8ikiQgHsm1gIG2MncJXYa +ogTMMm2z5F0/rxkoF5Mm4Pj7kEuPAklEFJQ0C8oScGt0tCkTOzn5zMAWeQK6 +ab/PX8QmCQFuVkUCVJR5fBzWzwWMfabVCPhzs2FpI3bNX4FoUp2A3cloEz2A +RKMTgzcGNQkQDXDO/I69t/7s6y4dAjq6Tyi+xB7xfyjxAgjYuGWeIwqbxyFC +66k+AYXv7JYCsHUNDpmVUwi4/cLBwQM7SfT7mYJDBHypVU6lYFezliXnmBJw +keUvoY09PBdRmGlGgMGaT5UStk6T4KdEKwKGKjjf8GN7ln+fumxNwKbXELsR +OzGrjPmCDZ6nvaVu9QSJvgebqIU5EPBJNjRvHJvbTcg4yIkAZx7OwwPYOibD +rn4uBJwy0A7sxk6UPJfg5kHA6Qy7HU3Y1Zym+Q6eeD9Gh2rr1vPoQs+sqQQo +ObW/e7qeNzTcZkYQ8OHOrHX5el7rI9LIh4Dn9Hy7B9ieT8/9AT8CpuVnugrW +8/NNt+7zJ4Dk/vAhdz0/UfgfrQACKPH6B7PW88NHDqoGEWAcYa6agc1FLXdQ +DCZAv3EmPQ1b2zIqUDaUAEkz2YiU9fy9hy+JhxEwtjrTk4R9VV4kWzicAJtG +8/Kr2FW8o4/5zhIgcV2fNQF76Hd5y+ZIArJcW/+7sp4/FjXEFkWAj9iU6Lr3 +dBz+uRZNQODb233/Yv8faZ7lHg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.700870924853218, 1.3953043912585281`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.7008709248532196}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7668,7 +13914,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5012481131960849}, + AxesOrigin->{0, 0.7008709248532196}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7696,7 +13943,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.700870924853218, 1.3953043912585281`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7704,9 +13952,9 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991342629715925*^9}, + CellChangeTimes->{3.991342629715925*^9, 3.9938524389765377`*^9}, CellLabel-> - "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] + "Out[139]=",ExpressionUUID->"ba12f18c-412c-4754-80dc-b4abaecd6918"] }, Open ]], Cell[CellGroupData[{ @@ -7769,156 +14017,190 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991849950722357*^9, - 3.9918499540026855`*^9}},ExpressionUUID->"1ea503b1-33a1-2744-a92d-\ -2e1269faf5ed"], + CellChangeTimes->{{3.991849950722357*^9, 3.9918499540026855`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.336371811940489`*^-264\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 387, - 405, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299467087`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993852439112485*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +In[140]:=",ExpressionUUID->"6a85dd5a-b916-4078-9a53-033a916e7d6c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.722001950498298`*^-275\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 387, 406, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629956772*^9}, + 140, 70, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993852439120102*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], +In[140]:=",ExpressionUUID->"417d746c-d514-4f29-9c05-277d6a04646b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.135499450815152`*^-286\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 387, 407, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629966284*^9}, + 2, 140, 71, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.99385243912671*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +In[140]:=",ExpressionUUID->"397625e3-a822-49a6-8f63-e63b7bff01e0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299753895`*^9}, +during this calculation.\"", 2, 140, 72, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993852439132731*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +In[140]:=",ExpressionUUID->"a4008556-81bc-4c98-803c-18fdf1a9e0f7"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3BRoWFv1702GcnoXu51vd9mGQmJjIQyKjsjJJkJFalIsr6i +UuLemzJapGhQCKGiaAgtq6J+5/fXeTwf5/E4n/V+v845Cr6hTn7cXFxc7su4 +uP5/nXvT8UA5q8KEfCjspirvJpPeYqlY04FkuG8/UHuFogIo3uUrNXAK1N2c +T8RSNkK0w5V+noFyGHodQXWhWILwtOSpX/0skJ4JD5OmbIe3zfahM/0tEK43 +eNme7AdWyhOvv/d3w4MP7n9pslHwq5925lv/OxDTjhn5IpAGreZVFS/Kf8Jq +9sLb8VtngPS24YOv1hKIj7o5uLWWgFjQriu85jw4Hblz3720Cjila9Vkv50P ++bJKbxqqXYZXBRvufRdai4O/REyNV16Dwp5qwWiVtXjVvr51XvwauAuo7fpt +tBajIpK4rqhcg+EUub/cu9fiy9tzBT8srsFIyCpjsRtrcXaT1SvRlGvwyWLs +JtVNAK/7zFvlLV2DhW/51+PLBDH5fq1r0JcayKpI7OKWFsbBMsnJcedasDHY +KyKuJIxnPaJUQjxqge+B03Y1bWHk6YlK+u5TC6nvVYZsTYXxfoJv0eeQWjik ++PTD6b3CGMQ6xijJqIWQUqm/qo3CqNX4SZTSVAuORXVath4iuOcHr9NeUh0I +aZ0P3ekngjtnBsu3KdZBZ1MqKzRUBFc85/5pqF4HNkOuhqdTRJDrc8bxGf06 +MJP5a/66WgR12YdydWzrwKDAxiN0UQRn1bzXcg7WgeTp98fyLojiuxVPJL53 +1YGU5o3UhUpRtHVTnHzTWwcyLemJO2tFMdPknUP7qzogf1sXpdYqitCY8vD4 ++zpQsQvzbvokiryeq53fz9WB/vIl6nt9MTSzE8++RWLB1kiJMb3HYpiItSF8 +fixwWP3pTX6PGLre7doasJcFTuUNrxaHxdBmuQD7fjALXJ57dj38KoYi/fV/ +A6NZsFPrv0Z3cXEclugsTzrKgv1jOrnJ3uL4oa9wbPASC446W5t0z4mjl03v +iOYnFshwOmW4l0mgypzgObtJFtSIOs/rrpZAx3wB7sBvLOjr9qrNpUigA3N2 +/MQCC5QdIxUdN0vg8PS2n0V8bGjZUrLy+TkJzHOvlm1UY8OS1WznM2NJnGD+ +G1rwYUNOZVz1kpUkHsjgvRrqxwbllVwZ2o6SGHo7dP1oIBvs2laZHveTxPGt ++racUDYUmsuz7U5IIrW2e0ImgQ2GaJv/5K0knl6XuPj5LBsOGJXt6kiWwhb3 +BXbuQzbYlArM2GZL4SN1r2GdDjYo8h7K6Dwjhf9lqIV2PGHD816Xup5LUmjj +eeTl9HM2rA9bw/OmUwrjiz/Xcg+x4VNlTOUPGWl8d3fdiq3TbLi7dpwepSyN +v21SeSu+seFspFPXvLY09i2Lip/5wQZLM+2FRZTGlHz5xqPzbCh//c6aN0Aa +vcz1y2K4OOApZj8ly5bG05/tcxKEOaAf35RU3CyNkTU+k8dEObDqnbqEwkNp +5Oz53JIrzoGG6zyg+koaRzvbR/OkOSBh25Cz4Z80jpyjL/gocOB5krKBpa0M +viA/k1LdwIGqT7ntj5xl8OPyx4ETuhw4vPWfp42XDA7tb2Je0eeAttxg2tZw +GfwbvS2WRONA5q2T/W75Mhj15KztEyYHLL7+jgt5L4P75RN5ttlwIHbzaY37 +kzLok/7f0XZbDtSUaQ+Kzsmg+zRPh9EWDkg5exs18Mni0nBKuqADByZvtc3z +rJfF2psk7oztHMhLzok8d1AW7whoX7u2iwPtQ+uUJ5NkMemhxe633hxYNGjt +McmSxb43/u/X+HLA/+Os3tgFWfwltd7SYw8H6HYe39e3yuJtreeVbYEceCeu +GvJgLQlFXNdUvQjjgGToXTlJSRIqvLT1vxfOAbv2Hc/2ypPwfNX9pSsRHKiP +y9IS1Cfh/SH+hgORxHrffptw20FC6AqM74nhwF3DzMKrPiRk8dRIlB3kwEyu +ks2/fSTsLLuTuy+WA14WLpcrEki421pF83scB/QuNwV8LSfhkn/6ymcJHAjg +3i5pdpWEtxbPN8Ue5kCRx/TD0zdIOF+0Z4diIgdWCiio0ttJOPRdZkvAEQ4w +AhpfZr8gYeZD4SqeJA6E3duW9naQhGpjzybPEx6MSB9LnSLhU656uJfMAcGn +lNP9cyRkyM/a26UQ56PSYK7BJYesRxT7XsI1/V/Ku0TkkJ6zX34glQNJxo4+ +MoZyqCN6XO96Ogc2exX/oJnJ4Zpc1z6loxwQOPIlZbudHAb1DTflES5qTavM +8ZbDn/cvOfplcGD3eDetZp8cakk3L39EWINXvuNJpBz65iv9UzrGgVs2jV9W +HpNDucuFXV2EE4N4E5Tz5DBOM/USOZMDViecBcwuyGHX9ajOQMJra8tKdlXJ +oYbViFkN4d4X0xsS6uSwrITK+5Xw+Z+MlsImYvw1UyTNLA74ih/bdqtNDm0T +YtN8Ca+j9Y297JLD+4e2mZ0h/G2HUvTPV3IoqT/j3Er4ZlwYr/CYHHr79t2Z +JHy46HbB+mk5POcXnSSczQHLO6s07BbkcIuOU7Eu4TUjrk17ucloufmzxBbC +Pcsu2h1dQ0ZKZ/PkbsKFSj9eV0iQcTZ8q0I0YW9LCG2RJ+PvaJX6FMJqAdlc +IxpkVK17cDWb8HTGq9wlAzJ2pHBW5hLmXFFVkgUyao4ktOUQjn96gGNoTUYT +i+qJLMJm0/csXbaRUbmhPSaZML+QQP+BnWQcfrE7JJLwc12PwNwAMg5eXv3c +h3D+tku/asLJeOW9Q7ENYa+o2cyn8WRMqmobXE9YJd+MNJFGxpGypXSB7P/3 +38lrvDlk3Mh9ouIzsR/swWETlUIyBsSu3XiPcNziuudmFWRMMBSjnyJsSo7x +8a4ho95Xxo1dhPnwwY+EW2Q8/phySZ3wmRQv8YanZAxZm/PnKnFenherK/v6 +yDhq4L7r/+er+GiBNjNCxhV/PUwphGtX5bnrzJKRT+xUeiJRHzFaI1/s/pFx +oltwSp2wib12wj5+CtaK7Rh4RtTX09xHJRflKBg0PmG+inAeW0y3VY2Cyvsz +H5UR9en+0qdlRJeC+72K+wwIf5JaHJO1ouAf0usLW4j6vk63jjZyoKA2NdCt +J40D0Z5neV3dKfh2u3qVM2Ge0g0ap0IoGF0lyWVD9Mfj+wlN1w9S8JwDS+AO +0T857x/bPUumYM+XHfXahMlqfqF8+RRkr6rt/0f0I73mHOfwXQqqVZLyQol+ +tujvXJpup+AA+UbEU6Lf7bmWb9rVTUH/g2rHVAjvdgp5BeMUXFzh6v30ENEP +8QqJR1bIY9Ki5cgkkSdPBJv/M1wljwWDq0o0CTtUuLR/E5BHsxFmqT+RPx7P +soR9pORxWO9J6ItoIh8oc/+ZasrjbGtLUNwBDsyyc9p/6cgjs1c38DyRb3Gb +NafqDOSx4+po3S0i/9LCvamKJvKYJfFv46dQop5bH7dzO8pjJ9tCUzaIAw8C +SqZao+XROKdErns3B6wXjUQOxRPjf4ll3SLytzOnl2pwRB5b+KeunffhwKsG +/iMVx+Tx6mT3Gxciv6dXR4qkFcmjm7+5c7k7kf+1m2lWLfLII1g/dYLI/6CF +70fa1yqg7x/vlY+NiP0L95f4IKKAhxl1WyiGRH1NDFbzSClgaOf9s2FUDlwc +au0zUVTAZdY5VF7i/fTmzhmtG1QFDBwQ/rRciwNb04wGynYpoIfunq/mckT+ +iiTpxNcpYPI/u6q3i2zgypp9UFCvgGKbj25p+M2GTp597vVNCqgXepN+coEN ++2ed0r63KWBGxdAPnRk2VAwoDwUMKuA521wpyy9skChpT3fmUcQ364x07g2w +4Zem0Bvt7YoY3+G+k7+ODXMXZJL03RWxcN+ysEM1bJgRVFE22qWIEVH/dCer +2TD902ifxV5FFJu49/R+JRveNe2ec09QxEkjdqFlERse294UyLioiEUls6l1 +6cT3y34veDdL3M/TFtVwY4Nx9dXSs2eVcDFY9JTsLAuG5KtLLM8rYXCzDXXF +DxbEnb1cPFOihIL9UlGT0yy4mVRZ5HRZCflHxzrYxPeZ3o7SAoFmJQxq2Lhc +dZgF61aczkkfVcKiy3yehS0skNgVfyRaSxnLe16VdR1nwXcRG2+XFmW0FMyW +eSnHgrFsb5cIXlVU95dVyhKuA+uvMdbjVDUcXa7hIbN0HSZ38x3gJKrj9pkS +klTaNeJ/Q5L7aMs6DDIpdy1cXg0iz1RP1H7VwC9Cc2G5Vy4BKeO6A5Wqhevy +ZhIvqlRCgaaRkGiANl6cM2B0D/8Hj2VMN/7MXY+3LGRrvW+WAZ3UkqPTp4Ol +pyqGEvhLQICnPNIneQNuPGv/xI12HshJFGM3VV0sbVPZFB2YD/wqnvVOj3Tx +ov8RPcMVp2E9U/p6zE49tOiNeG+rnQsRb0Rabbj08Spf89mDr7Ph68/s7dYF ++hjxd0b/mXsGbNJ5WGitbYC3BgdEfsemwp2fjD/znQaYsEpwe+7LIxCipTf4 +wm8jHoqR+X5qIB6Y03t63fip+Ls/J+FRQjRYKkttWVtOxdDyJuUpmwjgTLUp +7KmgYi2Lj3eEEQHKNw/MNVZSUUeM5PlaKwKW23SVBFZT0X+OZD0vEAEtoek/ +WjlUtOoPK6jqCQeTppn8uEdUFKr76zXrFQ5UpxfvPk5S8bxYrat8QhioH8k8 +2EKj4fJjeqtJ14KhmXFxhR2dhpQVB3c+zA0Gh/m7p14a0/Bq2bMN6dHBcDBk +9uonUxpWyQ+oWmEwtHt6jwrY0RBskj+09QZBoBHVxsObhqkrmOENy4Lg8o9R +2ZkMGv7YKOUvuX8faPgZ3VUZpGH9ZPj+7wcD4KSi/e+UYRpqmLruFd8TADNv +fTe+e0PD+zwf91tvDYA77tnVxe9p+Oij3o5RlQBwcnibLzlFQ6e9EXe6evwh +lpEWxs9liP6nTJ2L9fyhXfiFwpSKIVr6uU3e/bMH/O4EpnLCDfHy4RnnVY2+ +MB08EWMZaYhxN+BcdJUvHJQL2t8XbYhCM9QfP077QuahUKeFeEPse7DhhmyY +L9TSo+WN0w2xm15oqaXmC4v1Kc2thYYYrTLUDQU+cOp68Ux3qyGGRQo1vk/z +hrulvXu+ixvhnhs71HOkd8KIncKuaCkjPGn3+KfToidw/Qp2+yNjhB+Bv1Tn +rSeYOfLar5A3Qik3j63Ui57wcBmdJq1hhB5qLr+j9TzhqW8Jv6mJEarq9Kjf +cPSAQeV9NTn+RhgVv0y4otwNZi79m9e5aYQdodO4J9MFPrhYlR5rMEKHiMqu +0kgXGFh+fPP7JiM09xjl/eblAk3eMufO3jPCIl1FeKjvAslSG+lLHUZ4nLnO +yeHNdhDK2Hfo8bARHjUXD+qibgetgJdcftx0zBHZOCk3uw12q1TzF26h48Wq +K7epFY4Q1+a1T9WBjtd1FfZCriPk+Ik8YTnRkTlGcXQ/7AjNF2Ozn7jS8UX8 +YuHDHY4gprpZcMmHjuPn1aJjBBzhoeq4mHc0He9c2hConeAAGuoUedUSOhaf +qZRY1WUP2N59hFVGx7NP7AUjrtmDS2D6qEkFHQfnvT/9zrKHlEtT5a6X6dhQ +uP9ZiLU9DKs3qxxj01Epuch3uG0LnFjnpjn5iI4Oc/1f6x/YwXeNPCrrGx1t +5Q0+1ryygYGnaCn6k46zZ2qy5m7bwL2Q6W2Rs3RcXekw61puAydY1uHU33Tc +/NSjLWC/DWjQua428jBweChfquGvNfhaByu0SjAwujSsXkjDGnoDNq3pNWag +/7Xl7bx5m6CJf1ZmIzCQJdM97x23Ccqry9edNWXgX9qD0Bc+myDs65LVDisG +0qbbvsxv2ARrYzhJw1sZuD25lcvtuRVYpSvMj/kyMGdgt6aHqBXcqvgzOpvB +wPMXbge9uWwBVPPIeZssBjZHeSXuO20BN0Yn15QeZ2CMsNqdVYkWwCK/odmc +YqDQwWWHjzpbwNWCe8eLzzOQsmXRKIzLAkqz04w21TDwZGbLrm8e5nAsUjC3 +oIeBcR+TExgKZsAnmlE59ZKBc5bkHm0BM0iv42o2GyDmOz7vqvfHFFKnv3+Y +HGagTsVxVvhLUzgc2Gts+oGBE08u8LRnmkKE57lPnxcYKH514VfbAoK7hRIy +yMb4aKXbJ2wFWOrlE2iVN0bfzJrWwmKAUr/pIRslwhVHKbJxAB/SG2Lc1Y3x +2QOHxyd0ASI6tl6P1TNGug33WpNyE8i0P0S+ZWWMhzf5XbyQyYTGHS8XDUKN +MVV/IjM8mgE7Pzc+bg43xnMhOmE7XBjAFVdaYBFpjOO8Emd8qAywOr/fwDnW +GJnO8aTBOTp0v14WdCDFGDnClGLvWDpM+K4fqss3xtxVJv9VpRqBbPDRhvX3 +jLE0LSvJgk2DE//8N2a1GKPtepUP4udowH3Kqu7jA2P8use6dVkiDSbqV1wu +7TBG/0nxDHVbGjRypRaI9Bgjy2vi4vUxKrifPhIzN26Mec8s7pwkUaGgKXbj +ndVM5P9r6j5fbABr7N3qZASYqKcxuObLUQM4MmKoHSPERL7Gcu+5MAMIXLGg +vEGciTMhO85sMzcA2tZosXIyE+/qrhxU+awPfe8ifqbpMvHiVm9jSSN9EF8V +VLfFlYnarz9Tij7rQoV5Qtw3NyaeDjZlL+vRBb2EE+Z5nkwsHFNKTGrWBftv +tS8HfJg4l1q2reukLqT3zf7aHcTEAIng36U0XVgoTzSLS2Iiu012fHn2Bhhk +5PVUVjNxV0zyLr0T6yEwqqLIuoZ4vqB/lUrAepirueE3WcvE8Ssnv1jhehBR +HJjXrWdisKdIpchPbbDlkyPdvsfEp35C5zvctaG5t3JPz0sm5hoUdWbpaYGN +wC3t6AEm/vJ56L9ZQAsGNnXMSQ0xsaf+yPINE5ow0/glw2uEiWGxrwsSyzVB +u2zDtc8TxPozl9RkxTWhedA0OnuKiaHpFtMaPzTARmwb6Hxj4oJ8j/2eLg3w +Pxr1InKWiY++MrW2ZWrAzL30QskFYj5CTAe+QA1I/p2/u/E3E0eCOzw/WGqA +kMFlrZ1LTHyWMqQypaQBxcGNs//+EefTdTqRxK0B/wM3ALdu "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7932,115 +14214,145 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV13c8Vf8fB3BRoWFv1702GcnoXu51vd9mGQmJjIQyKjsjJJkJFalIsr6i +UuLemzJapGhQCKGiaAgtq6J+5/fXeTwf5/E4n/V+v845Cr6hTn7cXFxc7su4 +uP5/nXvT8UA5q8KEfCjspirvJpPeYqlY04FkuG8/UHuFogIo3uUrNXAK1N2c +T8RSNkK0w5V+noFyGHodQXWhWILwtOSpX/0skJ4JD5OmbIe3zfahM/0tEK43 +eNme7AdWyhOvv/d3w4MP7n9pslHwq5925lv/OxDTjhn5IpAGreZVFS/Kf8Jq +9sLb8VtngPS24YOv1hKIj7o5uLWWgFjQriu85jw4Hblz3720Cjila9Vkv50P ++bJKbxqqXYZXBRvufRdai4O/REyNV16Dwp5qwWiVtXjVvr51XvwauAuo7fpt +tBajIpK4rqhcg+EUub/cu9fiy9tzBT8srsFIyCpjsRtrcXaT1SvRlGvwyWLs +JtVNAK/7zFvlLV2DhW/51+PLBDH5fq1r0JcayKpI7OKWFsbBMsnJcedasDHY +KyKuJIxnPaJUQjxqge+B03Y1bWHk6YlK+u5TC6nvVYZsTYXxfoJv0eeQWjik ++PTD6b3CGMQ6xijJqIWQUqm/qo3CqNX4SZTSVAuORXVath4iuOcHr9NeUh0I +aZ0P3ekngjtnBsu3KdZBZ1MqKzRUBFc85/5pqF4HNkOuhqdTRJDrc8bxGf06 +MJP5a/66WgR12YdydWzrwKDAxiN0UQRn1bzXcg7WgeTp98fyLojiuxVPJL53 +1YGU5o3UhUpRtHVTnHzTWwcyLemJO2tFMdPknUP7qzogf1sXpdYqitCY8vD4 ++zpQsQvzbvokiryeq53fz9WB/vIl6nt9MTSzE8++RWLB1kiJMb3HYpiItSF8 +fixwWP3pTX6PGLre7doasJcFTuUNrxaHxdBmuQD7fjALXJ57dj38KoYi/fV/ +A6NZsFPrv0Z3cXEclugsTzrKgv1jOrnJ3uL4oa9wbPASC446W5t0z4mjl03v +iOYnFshwOmW4l0mgypzgObtJFtSIOs/rrpZAx3wB7sBvLOjr9qrNpUigA3N2 +/MQCC5QdIxUdN0vg8PS2n0V8bGjZUrLy+TkJzHOvlm1UY8OS1WznM2NJnGD+ +G1rwYUNOZVz1kpUkHsjgvRrqxwbllVwZ2o6SGHo7dP1oIBvs2laZHveTxPGt ++racUDYUmsuz7U5IIrW2e0ImgQ2GaJv/5K0knl6XuPj5LBsOGJXt6kiWwhb3 +BXbuQzbYlArM2GZL4SN1r2GdDjYo8h7K6Dwjhf9lqIV2PGHD816Xup5LUmjj +eeTl9HM2rA9bw/OmUwrjiz/Xcg+x4VNlTOUPGWl8d3fdiq3TbLi7dpwepSyN +v21SeSu+seFspFPXvLY09i2Lip/5wQZLM+2FRZTGlHz5xqPzbCh//c6aN0Aa +vcz1y2K4OOApZj8ly5bG05/tcxKEOaAf35RU3CyNkTU+k8dEObDqnbqEwkNp +5Oz53JIrzoGG6zyg+koaRzvbR/OkOSBh25Cz4Z80jpyjL/gocOB5krKBpa0M +viA/k1LdwIGqT7ntj5xl8OPyx4ETuhw4vPWfp42XDA7tb2Je0eeAttxg2tZw +GfwbvS2WRONA5q2T/W75Mhj15KztEyYHLL7+jgt5L4P75RN5ttlwIHbzaY37 +kzLok/7f0XZbDtSUaQ+Kzsmg+zRPh9EWDkg5exs18Mni0nBKuqADByZvtc3z +rJfF2psk7oztHMhLzok8d1AW7whoX7u2iwPtQ+uUJ5NkMemhxe633hxYNGjt +McmSxb43/u/X+HLA/+Os3tgFWfwltd7SYw8H6HYe39e3yuJtreeVbYEceCeu +GvJgLQlFXNdUvQjjgGToXTlJSRIqvLT1vxfOAbv2Hc/2ypPwfNX9pSsRHKiP +y9IS1Cfh/SH+hgORxHrffptw20FC6AqM74nhwF3DzMKrPiRk8dRIlB3kwEyu +ks2/fSTsLLuTuy+WA14WLpcrEki421pF83scB/QuNwV8LSfhkn/6ymcJHAjg +3i5pdpWEtxbPN8Ue5kCRx/TD0zdIOF+0Z4diIgdWCiio0ttJOPRdZkvAEQ4w +AhpfZr8gYeZD4SqeJA6E3duW9naQhGpjzybPEx6MSB9LnSLhU656uJfMAcGn +lNP9cyRkyM/a26UQ56PSYK7BJYesRxT7XsI1/V/Ku0TkkJ6zX34glQNJxo4+ +MoZyqCN6XO96Ogc2exX/oJnJ4Zpc1z6loxwQOPIlZbudHAb1DTflES5qTavM +8ZbDn/cvOfplcGD3eDetZp8cakk3L39EWINXvuNJpBz65iv9UzrGgVs2jV9W +HpNDucuFXV2EE4N4E5Tz5DBOM/USOZMDViecBcwuyGHX9ajOQMJra8tKdlXJ +oYbViFkN4d4X0xsS6uSwrITK+5Xw+Z+MlsImYvw1UyTNLA74ih/bdqtNDm0T +YtN8Ca+j9Y297JLD+4e2mZ0h/G2HUvTPV3IoqT/j3Er4ZlwYr/CYHHr79t2Z +JHy46HbB+mk5POcXnSSczQHLO6s07BbkcIuOU7Eu4TUjrk17ucloufmzxBbC +Pcsu2h1dQ0ZKZ/PkbsKFSj9eV0iQcTZ8q0I0YW9LCG2RJ+PvaJX6FMJqAdlc +IxpkVK17cDWb8HTGq9wlAzJ2pHBW5hLmXFFVkgUyao4ktOUQjn96gGNoTUYT +i+qJLMJm0/csXbaRUbmhPSaZML+QQP+BnWQcfrE7JJLwc12PwNwAMg5eXv3c +h3D+tku/asLJeOW9Q7ENYa+o2cyn8WRMqmobXE9YJd+MNJFGxpGypXSB7P/3 +38lrvDlk3Mh9ouIzsR/swWETlUIyBsSu3XiPcNziuudmFWRMMBSjnyJsSo7x +8a4ho95Xxo1dhPnwwY+EW2Q8/phySZ3wmRQv8YanZAxZm/PnKnFenherK/v6 +yDhq4L7r/+er+GiBNjNCxhV/PUwphGtX5bnrzJKRT+xUeiJRHzFaI1/s/pFx +oltwSp2wib12wj5+CtaK7Rh4RtTX09xHJRflKBg0PmG+inAeW0y3VY2Cyvsz +H5UR9en+0qdlRJeC+72K+wwIf5JaHJO1ouAf0usLW4j6vk63jjZyoKA2NdCt +J40D0Z5neV3dKfh2u3qVM2Ge0g0ap0IoGF0lyWVD9Mfj+wlN1w9S8JwDS+AO +0T857x/bPUumYM+XHfXahMlqfqF8+RRkr6rt/0f0I73mHOfwXQqqVZLyQol+ +tujvXJpup+AA+UbEU6Lf7bmWb9rVTUH/g2rHVAjvdgp5BeMUXFzh6v30ENEP +8QqJR1bIY9Ki5cgkkSdPBJv/M1wljwWDq0o0CTtUuLR/E5BHsxFmqT+RPx7P +soR9pORxWO9J6ItoIh8oc/+ZasrjbGtLUNwBDsyyc9p/6cgjs1c38DyRb3Gb +NafqDOSx4+po3S0i/9LCvamKJvKYJfFv46dQop5bH7dzO8pjJ9tCUzaIAw8C +SqZao+XROKdErns3B6wXjUQOxRPjf4ll3SLytzOnl2pwRB5b+KeunffhwKsG +/iMVx+Tx6mT3Gxciv6dXR4qkFcmjm7+5c7k7kf+1m2lWLfLII1g/dYLI/6CF +70fa1yqg7x/vlY+NiP0L95f4IKKAhxl1WyiGRH1NDFbzSClgaOf9s2FUDlwc +au0zUVTAZdY5VF7i/fTmzhmtG1QFDBwQ/rRciwNb04wGynYpoIfunq/mckT+ +iiTpxNcpYPI/u6q3i2zgypp9UFCvgGKbj25p+M2GTp597vVNCqgXepN+coEN ++2ed0r63KWBGxdAPnRk2VAwoDwUMKuA521wpyy9skChpT3fmUcQ364x07g2w +4Zem0Bvt7YoY3+G+k7+ODXMXZJL03RWxcN+ysEM1bJgRVFE22qWIEVH/dCer +2TD902ifxV5FFJu49/R+JRveNe2ec09QxEkjdqFlERse294UyLioiEUls6l1 +6cT3y34veDdL3M/TFtVwY4Nx9dXSs2eVcDFY9JTsLAuG5KtLLM8rYXCzDXXF +DxbEnb1cPFOihIL9UlGT0yy4mVRZ5HRZCflHxzrYxPeZ3o7SAoFmJQxq2Lhc +dZgF61aczkkfVcKiy3yehS0skNgVfyRaSxnLe16VdR1nwXcRG2+XFmW0FMyW +eSnHgrFsb5cIXlVU95dVyhKuA+uvMdbjVDUcXa7hIbN0HSZ38x3gJKrj9pkS +klTaNeJ/Q5L7aMs6DDIpdy1cXg0iz1RP1H7VwC9Cc2G5Vy4BKeO6A5Wqhevy +ZhIvqlRCgaaRkGiANl6cM2B0D/8Hj2VMN/7MXY+3LGRrvW+WAZ3UkqPTp4Ol +pyqGEvhLQICnPNIneQNuPGv/xI12HshJFGM3VV0sbVPZFB2YD/wqnvVOj3Tx +ov8RPcMVp2E9U/p6zE49tOiNeG+rnQsRb0Rabbj08Spf89mDr7Ph68/s7dYF ++hjxd0b/mXsGbNJ5WGitbYC3BgdEfsemwp2fjD/znQaYsEpwe+7LIxCipTf4 +wm8jHoqR+X5qIB6Y03t63fip+Ls/J+FRQjRYKkttWVtOxdDyJuUpmwjgTLUp +7KmgYi2Lj3eEEQHKNw/MNVZSUUeM5PlaKwKW23SVBFZT0X+OZD0vEAEtoek/ +WjlUtOoPK6jqCQeTppn8uEdUFKr76zXrFQ5UpxfvPk5S8bxYrat8QhioH8k8 +2EKj4fJjeqtJ14KhmXFxhR2dhpQVB3c+zA0Gh/m7p14a0/Bq2bMN6dHBcDBk +9uonUxpWyQ+oWmEwtHt6jwrY0RBskj+09QZBoBHVxsObhqkrmOENy4Lg8o9R +2ZkMGv7YKOUvuX8faPgZ3VUZpGH9ZPj+7wcD4KSi/e+UYRpqmLruFd8TADNv +fTe+e0PD+zwf91tvDYA77tnVxe9p+Oij3o5RlQBwcnibLzlFQ6e9EXe6evwh +lpEWxs9liP6nTJ2L9fyhXfiFwpSKIVr6uU3e/bMH/O4EpnLCDfHy4RnnVY2+ +MB08EWMZaYhxN+BcdJUvHJQL2t8XbYhCM9QfP077QuahUKeFeEPse7DhhmyY +L9TSo+WN0w2xm15oqaXmC4v1Kc2thYYYrTLUDQU+cOp68Ux3qyGGRQo1vk/z +hrulvXu+ixvhnhs71HOkd8KIncKuaCkjPGn3+KfToidw/Qp2+yNjhB+Bv1Tn +rSeYOfLar5A3Qik3j63Ui57wcBmdJq1hhB5qLr+j9TzhqW8Jv6mJEarq9Kjf +cPSAQeV9NTn+RhgVv0y4otwNZi79m9e5aYQdodO4J9MFPrhYlR5rMEKHiMqu +0kgXGFh+fPP7JiM09xjl/eblAk3eMufO3jPCIl1FeKjvAslSG+lLHUZ4nLnO +yeHNdhDK2Hfo8bARHjUXD+qibgetgJdcftx0zBHZOCk3uw12q1TzF26h48Wq +K7epFY4Q1+a1T9WBjtd1FfZCriPk+Ik8YTnRkTlGcXQ/7AjNF2Ozn7jS8UX8 +YuHDHY4gprpZcMmHjuPn1aJjBBzhoeq4mHc0He9c2hConeAAGuoUedUSOhaf +qZRY1WUP2N59hFVGx7NP7AUjrtmDS2D6qEkFHQfnvT/9zrKHlEtT5a6X6dhQ +uP9ZiLU9DKs3qxxj01Epuch3uG0LnFjnpjn5iI4Oc/1f6x/YwXeNPCrrGx1t +5Q0+1ryygYGnaCn6k46zZ2qy5m7bwL2Q6W2Rs3RcXekw61puAydY1uHU33Tc +/NSjLWC/DWjQua428jBweChfquGvNfhaByu0SjAwujSsXkjDGnoDNq3pNWag +/7Xl7bx5m6CJf1ZmIzCQJdM97x23Ccqry9edNWXgX9qD0Bc+myDs65LVDisG +0qbbvsxv2ARrYzhJw1sZuD25lcvtuRVYpSvMj/kyMGdgt6aHqBXcqvgzOpvB +wPMXbge9uWwBVPPIeZssBjZHeSXuO20BN0Yn15QeZ2CMsNqdVYkWwCK/odmc +YqDQwWWHjzpbwNWCe8eLzzOQsmXRKIzLAkqz04w21TDwZGbLrm8e5nAsUjC3 +oIeBcR+TExgKZsAnmlE59ZKBc5bkHm0BM0iv42o2GyDmOz7vqvfHFFKnv3+Y +HGagTsVxVvhLUzgc2Gts+oGBE08u8LRnmkKE57lPnxcYKH514VfbAoK7hRIy +yMb4aKXbJ2wFWOrlE2iVN0bfzJrWwmKAUr/pIRslwhVHKbJxAB/SG2Lc1Y3x +2QOHxyd0ASI6tl6P1TNGug33WpNyE8i0P0S+ZWWMhzf5XbyQyYTGHS8XDUKN +MVV/IjM8mgE7Pzc+bg43xnMhOmE7XBjAFVdaYBFpjOO8Emd8qAywOr/fwDnW +GJnO8aTBOTp0v14WdCDFGDnClGLvWDpM+K4fqss3xtxVJv9VpRqBbPDRhvX3 +jLE0LSvJgk2DE//8N2a1GKPtepUP4udowH3Kqu7jA2P8use6dVkiDSbqV1wu +7TBG/0nxDHVbGjRypRaI9Bgjy2vi4vUxKrifPhIzN26Mec8s7pwkUaGgKXbj +ndVM5P9r6j5fbABr7N3qZASYqKcxuObLUQM4MmKoHSPERL7Gcu+5MAMIXLGg +vEGciTMhO85sMzcA2tZosXIyE+/qrhxU+awPfe8ifqbpMvHiVm9jSSN9EF8V +VLfFlYnarz9Tij7rQoV5Qtw3NyaeDjZlL+vRBb2EE+Z5nkwsHFNKTGrWBftv +tS8HfJg4l1q2reukLqT3zf7aHcTEAIng36U0XVgoTzSLS2Iiu012fHn2Bhhk +5PVUVjNxV0zyLr0T6yEwqqLIuoZ4vqB/lUrAepirueE3WcvE8Ssnv1jhehBR +HJjXrWdisKdIpchPbbDlkyPdvsfEp35C5zvctaG5t3JPz0sm5hoUdWbpaYGN +wC3t6AEm/vJ56L9ZQAsGNnXMSQ0xsaf+yPINE5ow0/glw2uEiWGxrwsSyzVB +u2zDtc8TxPozl9RkxTWhedA0OnuKiaHpFtMaPzTARmwb6Hxj4oJ8j/2eLg3w +Pxr1InKWiY++MrW2ZWrAzL30QskFYj5CTAe+QA1I/p2/u/E3E0eCOzw/WGqA +kMFlrZ1LTHyWMqQypaQBxcGNs//+EefTdTqRxK0B/wM3ALdu "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.08026987470340353}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8052,19 +14364,19 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.08026987470340353}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8078,114 +14390,144 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV13c8Vf8fB3BRoWFv1702GcnoXu51vd9mGQmJjIQyKjsjJJkJFalIsr6i +UuLemzJapGhQCKGiaAgtq6J+5/fXeTwf5/E4n/V+v845Cr6hTn7cXFxc7su4 +uP5/nXvT8UA5q8KEfCjspirvJpPeYqlY04FkuG8/UHuFogIo3uUrNXAK1N2c +T8RSNkK0w5V+noFyGHodQXWhWILwtOSpX/0skJ4JD5OmbIe3zfahM/0tEK43 +eNme7AdWyhOvv/d3w4MP7n9pslHwq5925lv/OxDTjhn5IpAGreZVFS/Kf8Jq +9sLb8VtngPS24YOv1hKIj7o5uLWWgFjQriu85jw4Hblz3720Cjila9Vkv50P ++bJKbxqqXYZXBRvufRdai4O/REyNV16Dwp5qwWiVtXjVvr51XvwauAuo7fpt +tBajIpK4rqhcg+EUub/cu9fiy9tzBT8srsFIyCpjsRtrcXaT1SvRlGvwyWLs +JtVNAK/7zFvlLV2DhW/51+PLBDH5fq1r0JcayKpI7OKWFsbBMsnJcedasDHY +KyKuJIxnPaJUQjxqge+B03Y1bWHk6YlK+u5TC6nvVYZsTYXxfoJv0eeQWjik ++PTD6b3CGMQ6xijJqIWQUqm/qo3CqNX4SZTSVAuORXVath4iuOcHr9NeUh0I +aZ0P3ekngjtnBsu3KdZBZ1MqKzRUBFc85/5pqF4HNkOuhqdTRJDrc8bxGf06 +MJP5a/66WgR12YdydWzrwKDAxiN0UQRn1bzXcg7WgeTp98fyLojiuxVPJL53 +1YGU5o3UhUpRtHVTnHzTWwcyLemJO2tFMdPknUP7qzogf1sXpdYqitCY8vD4 ++zpQsQvzbvokiryeq53fz9WB/vIl6nt9MTSzE8++RWLB1kiJMb3HYpiItSF8 +fixwWP3pTX6PGLre7doasJcFTuUNrxaHxdBmuQD7fjALXJ57dj38KoYi/fV/ +A6NZsFPrv0Z3cXEclugsTzrKgv1jOrnJ3uL4oa9wbPASC446W5t0z4mjl03v +iOYnFshwOmW4l0mgypzgObtJFtSIOs/rrpZAx3wB7sBvLOjr9qrNpUigA3N2 +/MQCC5QdIxUdN0vg8PS2n0V8bGjZUrLy+TkJzHOvlm1UY8OS1WznM2NJnGD+ +G1rwYUNOZVz1kpUkHsjgvRrqxwbllVwZ2o6SGHo7dP1oIBvs2laZHveTxPGt ++racUDYUmsuz7U5IIrW2e0ImgQ2GaJv/5K0knl6XuPj5LBsOGJXt6kiWwhb3 +BXbuQzbYlArM2GZL4SN1r2GdDjYo8h7K6Dwjhf9lqIV2PGHD816Xup5LUmjj +eeTl9HM2rA9bw/OmUwrjiz/Xcg+x4VNlTOUPGWl8d3fdiq3TbLi7dpwepSyN +v21SeSu+seFspFPXvLY09i2Lip/5wQZLM+2FRZTGlHz5xqPzbCh//c6aN0Aa +vcz1y2K4OOApZj8ly5bG05/tcxKEOaAf35RU3CyNkTU+k8dEObDqnbqEwkNp +5Oz53JIrzoGG6zyg+koaRzvbR/OkOSBh25Cz4Z80jpyjL/gocOB5krKBpa0M +viA/k1LdwIGqT7ntj5xl8OPyx4ETuhw4vPWfp42XDA7tb2Je0eeAttxg2tZw +GfwbvS2WRONA5q2T/W75Mhj15KztEyYHLL7+jgt5L4P75RN5ttlwIHbzaY37 +kzLok/7f0XZbDtSUaQ+Kzsmg+zRPh9EWDkg5exs18Mni0nBKuqADByZvtc3z +rJfF2psk7oztHMhLzok8d1AW7whoX7u2iwPtQ+uUJ5NkMemhxe633hxYNGjt +McmSxb43/u/X+HLA/+Os3tgFWfwltd7SYw8H6HYe39e3yuJtreeVbYEceCeu +GvJgLQlFXNdUvQjjgGToXTlJSRIqvLT1vxfOAbv2Hc/2ypPwfNX9pSsRHKiP +y9IS1Cfh/SH+hgORxHrffptw20FC6AqM74nhwF3DzMKrPiRk8dRIlB3kwEyu +ks2/fSTsLLuTuy+WA14WLpcrEki421pF83scB/QuNwV8LSfhkn/6ymcJHAjg +3i5pdpWEtxbPN8Ue5kCRx/TD0zdIOF+0Z4diIgdWCiio0ttJOPRdZkvAEQ4w +AhpfZr8gYeZD4SqeJA6E3duW9naQhGpjzybPEx6MSB9LnSLhU656uJfMAcGn +lNP9cyRkyM/a26UQ56PSYK7BJYesRxT7XsI1/V/Ku0TkkJ6zX34glQNJxo4+ +MoZyqCN6XO96Ogc2exX/oJnJ4Zpc1z6loxwQOPIlZbudHAb1DTflES5qTavM +8ZbDn/cvOfplcGD3eDetZp8cakk3L39EWINXvuNJpBz65iv9UzrGgVs2jV9W +HpNDucuFXV2EE4N4E5Tz5DBOM/USOZMDViecBcwuyGHX9ajOQMJra8tKdlXJ +oYbViFkN4d4X0xsS6uSwrITK+5Xw+Z+MlsImYvw1UyTNLA74ih/bdqtNDm0T +YtN8Ca+j9Y297JLD+4e2mZ0h/G2HUvTPV3IoqT/j3Er4ZlwYr/CYHHr79t2Z +JHy46HbB+mk5POcXnSSczQHLO6s07BbkcIuOU7Eu4TUjrk17ucloufmzxBbC +Pcsu2h1dQ0ZKZ/PkbsKFSj9eV0iQcTZ8q0I0YW9LCG2RJ+PvaJX6FMJqAdlc +IxpkVK17cDWb8HTGq9wlAzJ2pHBW5hLmXFFVkgUyao4ktOUQjn96gGNoTUYT +i+qJLMJm0/csXbaRUbmhPSaZML+QQP+BnWQcfrE7JJLwc12PwNwAMg5eXv3c +h3D+tku/asLJeOW9Q7ENYa+o2cyn8WRMqmobXE9YJd+MNJFGxpGypXSB7P/3 +38lrvDlk3Mh9ouIzsR/swWETlUIyBsSu3XiPcNziuudmFWRMMBSjnyJsSo7x +8a4ho95Xxo1dhPnwwY+EW2Q8/phySZ3wmRQv8YanZAxZm/PnKnFenherK/v6 +yDhq4L7r/+er+GiBNjNCxhV/PUwphGtX5bnrzJKRT+xUeiJRHzFaI1/s/pFx +oltwSp2wib12wj5+CtaK7Rh4RtTX09xHJRflKBg0PmG+inAeW0y3VY2Cyvsz +H5UR9en+0qdlRJeC+72K+wwIf5JaHJO1ouAf0usLW4j6vk63jjZyoKA2NdCt +J40D0Z5neV3dKfh2u3qVM2Ge0g0ap0IoGF0lyWVD9Mfj+wlN1w9S8JwDS+AO +0T857x/bPUumYM+XHfXahMlqfqF8+RRkr6rt/0f0I73mHOfwXQqqVZLyQol+ +tujvXJpup+AA+UbEU6Lf7bmWb9rVTUH/g2rHVAjvdgp5BeMUXFzh6v30ENEP +8QqJR1bIY9Ki5cgkkSdPBJv/M1wljwWDq0o0CTtUuLR/E5BHsxFmqT+RPx7P +soR9pORxWO9J6ItoIh8oc/+ZasrjbGtLUNwBDsyyc9p/6cgjs1c38DyRb3Gb +NafqDOSx4+po3S0i/9LCvamKJvKYJfFv46dQop5bH7dzO8pjJ9tCUzaIAw8C +SqZao+XROKdErns3B6wXjUQOxRPjf4ll3SLytzOnl2pwRB5b+KeunffhwKsG +/iMVx+Tx6mT3Gxciv6dXR4qkFcmjm7+5c7k7kf+1m2lWLfLII1g/dYLI/6CF +70fa1yqg7x/vlY+NiP0L95f4IKKAhxl1WyiGRH1NDFbzSClgaOf9s2FUDlwc +au0zUVTAZdY5VF7i/fTmzhmtG1QFDBwQ/rRciwNb04wGynYpoIfunq/mckT+ +iiTpxNcpYPI/u6q3i2zgypp9UFCvgGKbj25p+M2GTp597vVNCqgXepN+coEN ++2ed0r63KWBGxdAPnRk2VAwoDwUMKuA521wpyy9skChpT3fmUcQ364x07g2w +4Zem0Bvt7YoY3+G+k7+ODXMXZJL03RWxcN+ysEM1bJgRVFE22qWIEVH/dCer +2TD902ifxV5FFJu49/R+JRveNe2ec09QxEkjdqFlERse294UyLioiEUls6l1 +6cT3y34veDdL3M/TFtVwY4Nx9dXSs2eVcDFY9JTsLAuG5KtLLM8rYXCzDXXF +DxbEnb1cPFOihIL9UlGT0yy4mVRZ5HRZCflHxzrYxPeZ3o7SAoFmJQxq2Lhc +dZgF61aczkkfVcKiy3yehS0skNgVfyRaSxnLe16VdR1nwXcRG2+XFmW0FMyW +eSnHgrFsb5cIXlVU95dVyhKuA+uvMdbjVDUcXa7hIbN0HSZ38x3gJKrj9pkS +klTaNeJ/Q5L7aMs6DDIpdy1cXg0iz1RP1H7VwC9Cc2G5Vy4BKeO6A5Wqhevy +ZhIvqlRCgaaRkGiANl6cM2B0D/8Hj2VMN/7MXY+3LGRrvW+WAZ3UkqPTp4Ol +pyqGEvhLQICnPNIneQNuPGv/xI12HshJFGM3VV0sbVPZFB2YD/wqnvVOj3Tx +ov8RPcMVp2E9U/p6zE49tOiNeG+rnQsRb0Rabbj08Spf89mDr7Ph68/s7dYF ++hjxd0b/mXsGbNJ5WGitbYC3BgdEfsemwp2fjD/znQaYsEpwe+7LIxCipTf4 +wm8jHoqR+X5qIB6Y03t63fip+Ls/J+FRQjRYKkttWVtOxdDyJuUpmwjgTLUp +7KmgYi2Lj3eEEQHKNw/MNVZSUUeM5PlaKwKW23SVBFZT0X+OZD0vEAEtoek/ +WjlUtOoPK6jqCQeTppn8uEdUFKr76zXrFQ5UpxfvPk5S8bxYrat8QhioH8k8 +2EKj4fJjeqtJ14KhmXFxhR2dhpQVB3c+zA0Gh/m7p14a0/Bq2bMN6dHBcDBk +9uonUxpWyQ+oWmEwtHt6jwrY0RBskj+09QZBoBHVxsObhqkrmOENy4Lg8o9R +2ZkMGv7YKOUvuX8faPgZ3VUZpGH9ZPj+7wcD4KSi/e+UYRpqmLruFd8TADNv +fTe+e0PD+zwf91tvDYA77tnVxe9p+Oij3o5RlQBwcnibLzlFQ6e9EXe6evwh +lpEWxs9liP6nTJ2L9fyhXfiFwpSKIVr6uU3e/bMH/O4EpnLCDfHy4RnnVY2+ +MB08EWMZaYhxN+BcdJUvHJQL2t8XbYhCM9QfP077QuahUKeFeEPse7DhhmyY +L9TSo+WN0w2xm15oqaXmC4v1Kc2thYYYrTLUDQU+cOp68Ux3qyGGRQo1vk/z +hrulvXu+ixvhnhs71HOkd8KIncKuaCkjPGn3+KfToidw/Qp2+yNjhB+Bv1Tn +rSeYOfLar5A3Qik3j63Ui57wcBmdJq1hhB5qLr+j9TzhqW8Jv6mJEarq9Kjf +cPSAQeV9NTn+RhgVv0y4otwNZi79m9e5aYQdodO4J9MFPrhYlR5rMEKHiMqu +0kgXGFh+fPP7JiM09xjl/eblAk3eMufO3jPCIl1FeKjvAslSG+lLHUZ4nLnO +yeHNdhDK2Hfo8bARHjUXD+qibgetgJdcftx0zBHZOCk3uw12q1TzF26h48Wq +K7epFY4Q1+a1T9WBjtd1FfZCriPk+Ik8YTnRkTlGcXQ/7AjNF2Ozn7jS8UX8 +YuHDHY4gprpZcMmHjuPn1aJjBBzhoeq4mHc0He9c2hConeAAGuoUedUSOhaf +qZRY1WUP2N59hFVGx7NP7AUjrtmDS2D6qEkFHQfnvT/9zrKHlEtT5a6X6dhQ +uP9ZiLU9DKs3qxxj01Epuch3uG0LnFjnpjn5iI4Oc/1f6x/YwXeNPCrrGx1t +5Q0+1ryygYGnaCn6k46zZ2qy5m7bwL2Q6W2Rs3RcXekw61puAydY1uHU33Tc +/NSjLWC/DWjQua428jBweChfquGvNfhaByu0SjAwujSsXkjDGnoDNq3pNWag +/7Xl7bx5m6CJf1ZmIzCQJdM97x23Ccqry9edNWXgX9qD0Bc+myDs65LVDisG +0qbbvsxv2ARrYzhJw1sZuD25lcvtuRVYpSvMj/kyMGdgt6aHqBXcqvgzOpvB +wPMXbge9uWwBVPPIeZssBjZHeSXuO20BN0Yn15QeZ2CMsNqdVYkWwCK/odmc +YqDQwWWHjzpbwNWCe8eLzzOQsmXRKIzLAkqz04w21TDwZGbLrm8e5nAsUjC3 +oIeBcR+TExgKZsAnmlE59ZKBc5bkHm0BM0iv42o2GyDmOz7vqvfHFFKnv3+Y +HGagTsVxVvhLUzgc2Gts+oGBE08u8LRnmkKE57lPnxcYKH514VfbAoK7hRIy +yMb4aKXbJ2wFWOrlE2iVN0bfzJrWwmKAUr/pIRslwhVHKbJxAB/SG2Lc1Y3x +2QOHxyd0ASI6tl6P1TNGug33WpNyE8i0P0S+ZWWMhzf5XbyQyYTGHS8XDUKN +MVV/IjM8mgE7Pzc+bg43xnMhOmE7XBjAFVdaYBFpjOO8Emd8qAywOr/fwDnW +GJnO8aTBOTp0v14WdCDFGDnClGLvWDpM+K4fqss3xtxVJv9VpRqBbPDRhvX3 +jLE0LSvJgk2DE//8N2a1GKPtepUP4udowH3Kqu7jA2P8use6dVkiDSbqV1wu +7TBG/0nxDHVbGjRypRaI9Bgjy2vi4vUxKrifPhIzN26Mec8s7pwkUaGgKXbj +ndVM5P9r6j5fbABr7N3qZASYqKcxuObLUQM4MmKoHSPERL7Gcu+5MAMIXLGg +vEGciTMhO85sMzcA2tZosXIyE+/qrhxU+awPfe8ifqbpMvHiVm9jSSN9EF8V +VLfFlYnarz9Tij7rQoV5Qtw3NyaeDjZlL+vRBb2EE+Z5nkwsHFNKTGrWBftv +tS8HfJg4l1q2reukLqT3zf7aHcTEAIng36U0XVgoTzSLS2Iiu012fHn2Bhhk +5PVUVjNxV0zyLr0T6yEwqqLIuoZ4vqB/lUrAepirueE3WcvE8Ssnv1jhehBR +HJjXrWdisKdIpchPbbDlkyPdvsfEp35C5zvctaG5t3JPz0sm5hoUdWbpaYGN +wC3t6AEm/vJ56L9ZQAsGNnXMSQ0xsaf+yPINE5ow0/glw2uEiWGxrwsSyzVB +u2zDtc8TxPozl9RkxTWhedA0OnuKiaHpFtMaPzTARmwb6Hxj4oJ8j/2eLg3w +Pxr1InKWiY++MrW2ZWrAzL30QskFYj5CTAe+QA1I/p2/u/E3E0eCOzw/WGqA +kMFlrZ1LTHyWMqQypaQBxcGNs//+EefTdTqRxK0B/wM3ALdu "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.08026987470340353}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8196,6 +14538,7 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8223,7 +14566,8 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.08026987470340353}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8231,17 +14575,655 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913429049348164`*^9}, + CellChangeTimes->{3.9913429049348164`*^9, 3.9938529215621357`*^9}, CellLabel-> - "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] + "Out[140]=",ExpressionUUID->"dd969a83-7459-43f1-b4f8-744a378f6b1d"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ -25a7a01bdd8f"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3BRoWFv1702GcnoXu51vd9mGQmJjIQyKjsjJJkJFalIsr6i +UuLemzJapGhQCKGiaAgtq6J+5/fXeTwf5/E4n/V+v845Cr6hTn7cXFxc7su4 +uP5/nXvT8UA5q8KEfCjspirvJpPeYqlY04FkuG8/UHuFogIo3uUrNXAK1N2c +T8RSNkK0w5V+noFyGHodQXWhWILwtOSpX/0skJ4JD5OmbIe3zfahM/0tEK43 +eNme7AdWyhOvv/d3w4MP7n9pslHwq5925lv/OxDTjhn5IpAGreZVFS/Kf8Jq +9sLb8VtngPS24YOv1hKIj7o5uLWWgFjQriu85jw4Hblz3720Cjila9Vkv50P ++bJKbxqqXYZXBRvufRdai4O/REyNV16Dwp5qwWiVtXjVvr51XvwauAuo7fpt +tBajIpK4rqhcg+EUub/cu9fiy9tzBT8srsFIyCpjsRtrcXaT1SvRlGvwyWLs +JtVNAK/7zFvlLV2DhW/51+PLBDH5fq1r0JcayKpI7OKWFsbBMsnJcedasDHY +KyKuJIxnPaJUQjxqge+B03Y1bWHk6YlK+u5TC6nvVYZsTYXxfoJv0eeQWjik ++PTD6b3CGMQ6xijJqIWQUqm/qo3CqNX4SZTSVAuORXVath4iuOcHr9NeUh0I +aZ0P3ekngjtnBsu3KdZBZ1MqKzRUBFc85/5pqF4HNkOuhqdTRJDrc8bxGf06 +MJP5a/66WgR12YdydWzrwKDAxiN0UQRn1bzXcg7WgeTp98fyLojiuxVPJL53 +1YGU5o3UhUpRtHVTnHzTWwcyLemJO2tFMdPknUP7qzogf1sXpdYqitCY8vD4 ++zpQsQvzbvokiryeq53fz9WB/vIl6nt9MTSzE8++RWLB1kiJMb3HYpiItSF8 +fixwWP3pTX6PGLre7doasJcFTuUNrxaHxdBmuQD7fjALXJ57dj38KoYi/fV/ +A6NZsFPrv0Z3cXEclugsTzrKgv1jOrnJ3uL4oa9wbPASC446W5t0z4mjl03v +iOYnFshwOmW4l0mgypzgObtJFtSIOs/rrpZAx3wB7sBvLOjr9qrNpUigA3N2 +/MQCC5QdIxUdN0vg8PS2n0V8bGjZUrLy+TkJzHOvlm1UY8OS1WznM2NJnGD+ +G1rwYUNOZVz1kpUkHsjgvRrqxwbllVwZ2o6SGHo7dP1oIBvs2laZHveTxPGt ++racUDYUmsuz7U5IIrW2e0ImgQ2GaJv/5K0knl6XuPj5LBsOGJXt6kiWwhb3 +BXbuQzbYlArM2GZL4SN1r2GdDjYo8h7K6Dwjhf9lqIV2PGHD816Xup5LUmjj +eeTl9HM2rA9bw/OmUwrjiz/Xcg+x4VNlTOUPGWl8d3fdiq3TbLi7dpwepSyN +v21SeSu+seFspFPXvLY09i2Lip/5wQZLM+2FRZTGlHz5xqPzbCh//c6aN0Aa +vcz1y2K4OOApZj8ly5bG05/tcxKEOaAf35RU3CyNkTU+k8dEObDqnbqEwkNp +5Oz53JIrzoGG6zyg+koaRzvbR/OkOSBh25Cz4Z80jpyjL/gocOB5krKBpa0M +viA/k1LdwIGqT7ntj5xl8OPyx4ETuhw4vPWfp42XDA7tb2Je0eeAttxg2tZw +GfwbvS2WRONA5q2T/W75Mhj15KztEyYHLL7+jgt5L4P75RN5ttlwIHbzaY37 +kzLok/7f0XZbDtSUaQ+Kzsmg+zRPh9EWDkg5exs18Mni0nBKuqADByZvtc3z +rJfF2psk7oztHMhLzok8d1AW7whoX7u2iwPtQ+uUJ5NkMemhxe633hxYNGjt +McmSxb43/u/X+HLA/+Os3tgFWfwltd7SYw8H6HYe39e3yuJtreeVbYEceCeu +GvJgLQlFXNdUvQjjgGToXTlJSRIqvLT1vxfOAbv2Hc/2ypPwfNX9pSsRHKiP +y9IS1Cfh/SH+hgORxHrffptw20FC6AqM74nhwF3DzMKrPiRk8dRIlB3kwEyu +ks2/fSTsLLuTuy+WA14WLpcrEki421pF83scB/QuNwV8LSfhkn/6ymcJHAjg +3i5pdpWEtxbPN8Ue5kCRx/TD0zdIOF+0Z4diIgdWCiio0ttJOPRdZkvAEQ4w +AhpfZr8gYeZD4SqeJA6E3duW9naQhGpjzybPEx6MSB9LnSLhU656uJfMAcGn +lNP9cyRkyM/a26UQ56PSYK7BJYesRxT7XsI1/V/Ku0TkkJ6zX34glQNJxo4+ +MoZyqCN6XO96Ogc2exX/oJnJ4Zpc1z6loxwQOPIlZbudHAb1DTflES5qTavM +8ZbDn/cvOfplcGD3eDetZp8cakk3L39EWINXvuNJpBz65iv9UzrGgVs2jV9W +HpNDucuFXV2EE4N4E5Tz5DBOM/USOZMDViecBcwuyGHX9ajOQMJra8tKdlXJ +oYbViFkN4d4X0xsS6uSwrITK+5Xw+Z+MlsImYvw1UyTNLA74ih/bdqtNDm0T +YtN8Ca+j9Y297JLD+4e2mZ0h/G2HUvTPV3IoqT/j3Er4ZlwYr/CYHHr79t2Z +JHy46HbB+mk5POcXnSSczQHLO6s07BbkcIuOU7Eu4TUjrk17ucloufmzxBbC +Pcsu2h1dQ0ZKZ/PkbsKFSj9eV0iQcTZ8q0I0YW9LCG2RJ+PvaJX6FMJqAdlc +IxpkVK17cDWb8HTGq9wlAzJ2pHBW5hLmXFFVkgUyao4ktOUQjn96gGNoTUYT +i+qJLMJm0/csXbaRUbmhPSaZML+QQP+BnWQcfrE7JJLwc12PwNwAMg5eXv3c +h3D+tku/asLJeOW9Q7ENYa+o2cyn8WRMqmobXE9YJd+MNJFGxpGypXSB7P/3 +38lrvDlk3Mh9ouIzsR/swWETlUIyBsSu3XiPcNziuudmFWRMMBSjnyJsSo7x +8a4ho95Xxo1dhPnwwY+EW2Q8/phySZ3wmRQv8YanZAxZm/PnKnFenherK/v6 +yDhq4L7r/+er+GiBNjNCxhV/PUwphGtX5bnrzJKRT+xUeiJRHzFaI1/s/pFx +oltwSp2wib12wj5+CtaK7Rh4RtTX09xHJRflKBg0PmG+inAeW0y3VY2Cyvsz +H5UR9en+0qdlRJeC+72K+wwIf5JaHJO1ouAf0usLW4j6vk63jjZyoKA2NdCt +J40D0Z5neV3dKfh2u3qVM2Ge0g0ap0IoGF0lyWVD9Mfj+wlN1w9S8JwDS+AO +0T857x/bPUumYM+XHfXahMlqfqF8+RRkr6rt/0f0I73mHOfwXQqqVZLyQol+ +tujvXJpup+AA+UbEU6Lf7bmWb9rVTUH/g2rHVAjvdgp5BeMUXFzh6v30ENEP +8QqJR1bIY9Ki5cgkkSdPBJv/M1wljwWDq0o0CTtUuLR/E5BHsxFmqT+RPx7P +soR9pORxWO9J6ItoIh8oc/+ZasrjbGtLUNwBDsyyc9p/6cgjs1c38DyRb3Gb +NafqDOSx4+po3S0i/9LCvamKJvKYJfFv46dQop5bH7dzO8pjJ9tCUzaIAw8C +SqZao+XROKdErns3B6wXjUQOxRPjf4ll3SLytzOnl2pwRB5b+KeunffhwKsG +/iMVx+Tx6mT3Gxciv6dXR4qkFcmjm7+5c7k7kf+1m2lWLfLII1g/dYLI/6CF +70fa1yqg7x/vlY+NiP0L95f4IKKAhxl1WyiGRH1NDFbzSClgaOf9s2FUDlwc +au0zUVTAZdY5VF7i/fTmzhmtG1QFDBwQ/rRciwNb04wGynYpoIfunq/mckT+ +iiTpxNcpYPI/u6q3i2zgypp9UFCvgGKbj25p+M2GTp597vVNCqgXepN+coEN ++2ed0r63KWBGxdAPnRk2VAwoDwUMKuA521wpyy9skChpT3fmUcQ364x07g2w +4Zem0Bvt7YoY3+G+k7+ODXMXZJL03RWxcN+ysEM1bJgRVFE22qWIEVH/dCer +2TD902ifxV5FFJu49/R+JRveNe2ec09QxEkjdqFlERse294UyLioiEUls6l1 +6cT3y34veDdL3M/TFtVwY4Nx9dXSs2eVcDFY9JTsLAuG5KtLLM8rYXCzDXXF +DxbEnb1cPFOihIL9UlGT0yy4mVRZ5HRZCflHxzrYxPeZ3o7SAoFmJQxq2Lhc +dZgF61aczkkfVcKiy3yehS0skNgVfyRaSxnLe16VdR1nwXcRG2+XFmW0FMyW +eSnHgrFsb5cIXlVU95dVyhKuA+uvMdbjVDUcXa7hIbN0HSZ38x3gJKrj9pkS +klTaNeJ/Q5L7aMs6DDIpdy1cXg0iz1RP1H7VwC9Cc2G5Vy4BKeO6A5Wqhevy +ZhIvqlRCgaaRkGiANl6cM2B0D/8Hj2VMN/7MXY+3LGRrvW+WAZ3UkqPTp4Ol +pyqGEvhLQICnPNIneQNuPGv/xI12HshJFGM3VV0sbVPZFB2YD/wqnvVOj3Tx +ov8RPcMVp2E9U/p6zE49tOiNeG+rnQsRb0Rabbj08Spf89mDr7Ph68/s7dYF ++hjxd0b/mXsGbNJ5WGitbYC3BgdEfsemwp2fjD/znQaYsEpwe+7LIxCipTf4 +wm8jHoqR+X5qIB6Y03t63fip+Ls/J+FRQjRYKkttWVtOxdDyJuUpmwjgTLUp +7KmgYi2Lj3eEEQHKNw/MNVZSUUeM5PlaKwKW23SVBFZT0X+OZD0vEAEtoek/ +WjlUtOoPK6jqCQeTppn8uEdUFKr76zXrFQ5UpxfvPk5S8bxYrat8QhioH8k8 +2EKj4fJjeqtJ14KhmXFxhR2dhpQVB3c+zA0Gh/m7p14a0/Bq2bMN6dHBcDBk +9uonUxpWyQ+oWmEwtHt6jwrY0RBskj+09QZBoBHVxsObhqkrmOENy4Lg8o9R +2ZkMGv7YKOUvuX8faPgZ3VUZpGH9ZPj+7wcD4KSi/e+UYRpqmLruFd8TADNv +fTe+e0PD+zwf91tvDYA77tnVxe9p+Oij3o5RlQBwcnibLzlFQ6e9EXe6evwh +lpEWxs9liP6nTJ2L9fyhXfiFwpSKIVr6uU3e/bMH/O4EpnLCDfHy4RnnVY2+ +MB08EWMZaYhxN+BcdJUvHJQL2t8XbYhCM9QfP077QuahUKeFeEPse7DhhmyY +L9TSo+WN0w2xm15oqaXmC4v1Kc2thYYYrTLUDQU+cOp68Ux3qyGGRQo1vk/z +hrulvXu+ixvhnhs71HOkd8KIncKuaCkjPGn3+KfToidw/Qp2+yNjhB+Bv1Tn +rSeYOfLar5A3Qik3j63Ui57wcBmdJq1hhB5qLr+j9TzhqW8Jv6mJEarq9Kjf +cPSAQeV9NTn+RhgVv0y4otwNZi79m9e5aYQdodO4J9MFPrhYlR5rMEKHiMqu +0kgXGFh+fPP7JiM09xjl/eblAk3eMufO3jPCIl1FeKjvAslSG+lLHUZ4nLnO +yeHNdhDK2Hfo8bARHjUXD+qibgetgJdcftx0zBHZOCk3uw12q1TzF26h48Wq +K7epFY4Q1+a1T9WBjtd1FfZCriPk+Ik8YTnRkTlGcXQ/7AjNF2Ozn7jS8UX8 +YuHDHY4gprpZcMmHjuPn1aJjBBzhoeq4mHc0He9c2hConeAAGuoUedUSOhaf +qZRY1WUP2N59hFVGx7NP7AUjrtmDS2D6qEkFHQfnvT/9zrKHlEtT5a6X6dhQ +uP9ZiLU9DKs3qxxj01Epuch3uG0LnFjnpjn5iI4Oc/1f6x/YwXeNPCrrGx1t +5Q0+1ryygYGnaCn6k46zZ2qy5m7bwL2Q6W2Rs3RcXekw61puAydY1uHU33Tc +/NSjLWC/DWjQua428jBweChfquGvNfhaByu0SjAwujSsXkjDGnoDNq3pNWag +/7Xl7bx5m6CJf1ZmIzCQJdM97x23Ccqry9edNWXgX9qD0Bc+myDs65LVDisG +0qbbvsxv2ARrYzhJw1sZuD25lcvtuRVYpSvMj/kyMGdgt6aHqBXcqvgzOpvB +wPMXbge9uWwBVPPIeZssBjZHeSXuO20BN0Yn15QeZ2CMsNqdVYkWwCK/odmc +YqDQwWWHjzpbwNWCe8eLzzOQsmXRKIzLAkqz04w21TDwZGbLrm8e5nAsUjC3 +oIeBcR+TExgKZsAnmlE59ZKBc5bkHm0BM0iv42o2GyDmOz7vqvfHFFKnv3+Y +HGagTsVxVvhLUzgc2Gts+oGBE08u8LRnmkKE57lPnxcYKH514VfbAoK7hRIy +yMb4aKXbJ2wFWOrlE2iVN0bfzJrWwmKAUr/pIRslwhVHKbJxAB/SG2Lc1Y3x +2QOHxyd0ASI6tl6P1TNGug33WpNyE8i0P0S+ZWWMhzf5XbyQyYTGHS8XDUKN +MVV/IjM8mgE7Pzc+bg43xnMhOmE7XBjAFVdaYBFpjOO8Emd8qAywOr/fwDnW +GJnO8aTBOTp0v14WdCDFGDnClGLvWDpM+K4fqss3xtxVJv9VpRqBbPDRhvX3 +jLE0LSvJgk2DE//8N2a1GKPtepUP4udowH3Kqu7jA2P8use6dVkiDSbqV1wu +7TBG/0nxDHVbGjRypRaI9Bgjy2vi4vUxKrifPhIzN26Mec8s7pwkUaGgKXbj +ndVM5P9r6j5fbABr7N3qZASYqKcxuObLUQM4MmKoHSPERL7Gcu+5MAMIXLGg +vEGciTMhO85sMzcA2tZosXIyE+/qrhxU+awPfe8ifqbpMvHiVm9jSSN9EF8V +VLfFlYnarz9Tij7rQoV5Qtw3NyaeDjZlL+vRBb2EE+Z5nkwsHFNKTGrWBftv +tS8HfJg4l1q2reukLqT3zf7aHcTEAIng36U0XVgoTzSLS2Iiu012fHn2Bhhk +5PVUVjNxV0zyLr0T6yEwqqLIuoZ4vqB/lUrAepirueE3WcvE8Ssnv1jhehBR +HJjXrWdisKdIpchPbbDlkyPdvsfEp35C5zvctaG5t3JPz0sm5hoUdWbpaYGN +wC3t6AEm/vJ56L9ZQAsGNnXMSQ0xsaf+yPINE5ow0/glw2uEiWGxrwsSyzVB +u2zDtc8TxPozl9RkxTWhedA0OnuKiaHpFtMaPzTARmwb6Hxj4oJ8j/2eLg3w +Pxr1InKWiY++MrW2ZWrAzL30QskFYj5CTAe+QA1I/p2/u/E3E0eCOzw/WGqA +kMFlrZ1LTHyWMqQypaQBxcGNs//+EefTdTqRxK0B/wM3ALdu + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3BRoWFv1702GcnoXu51vd9mGQmJjIQyKjsjJJkJFalIsr6i +UuLemzJapGhQCKGiaAgtq6J+5/fXeTwf5/E4n/V+v845Cr6hTn7cXFxc7su4 +uP5/nXvT8UA5q8KEfCjspirvJpPeYqlY04FkuG8/UHuFogIo3uUrNXAK1N2c +T8RSNkK0w5V+noFyGHodQXWhWILwtOSpX/0skJ4JD5OmbIe3zfahM/0tEK43 +eNme7AdWyhOvv/d3w4MP7n9pslHwq5925lv/OxDTjhn5IpAGreZVFS/Kf8Jq +9sLb8VtngPS24YOv1hKIj7o5uLWWgFjQriu85jw4Hblz3720Cjila9Vkv50P ++bJKbxqqXYZXBRvufRdai4O/REyNV16Dwp5qwWiVtXjVvr51XvwauAuo7fpt +tBajIpK4rqhcg+EUub/cu9fiy9tzBT8srsFIyCpjsRtrcXaT1SvRlGvwyWLs +JtVNAK/7zFvlLV2DhW/51+PLBDH5fq1r0JcayKpI7OKWFsbBMsnJcedasDHY +KyKuJIxnPaJUQjxqge+B03Y1bWHk6YlK+u5TC6nvVYZsTYXxfoJv0eeQWjik ++PTD6b3CGMQ6xijJqIWQUqm/qo3CqNX4SZTSVAuORXVath4iuOcHr9NeUh0I +aZ0P3ekngjtnBsu3KdZBZ1MqKzRUBFc85/5pqF4HNkOuhqdTRJDrc8bxGf06 +MJP5a/66WgR12YdydWzrwKDAxiN0UQRn1bzXcg7WgeTp98fyLojiuxVPJL53 +1YGU5o3UhUpRtHVTnHzTWwcyLemJO2tFMdPknUP7qzogf1sXpdYqitCY8vD4 ++zpQsQvzbvokiryeq53fz9WB/vIl6nt9MTSzE8++RWLB1kiJMb3HYpiItSF8 +fixwWP3pTX6PGLre7doasJcFTuUNrxaHxdBmuQD7fjALXJ57dj38KoYi/fV/ +A6NZsFPrv0Z3cXEclugsTzrKgv1jOrnJ3uL4oa9wbPASC446W5t0z4mjl03v +iOYnFshwOmW4l0mgypzgObtJFtSIOs/rrpZAx3wB7sBvLOjr9qrNpUigA3N2 +/MQCC5QdIxUdN0vg8PS2n0V8bGjZUrLy+TkJzHOvlm1UY8OS1WznM2NJnGD+ +G1rwYUNOZVz1kpUkHsjgvRrqxwbllVwZ2o6SGHo7dP1oIBvs2laZHveTxPGt ++racUDYUmsuz7U5IIrW2e0ImgQ2GaJv/5K0knl6XuPj5LBsOGJXt6kiWwhb3 +BXbuQzbYlArM2GZL4SN1r2GdDjYo8h7K6Dwjhf9lqIV2PGHD816Xup5LUmjj +eeTl9HM2rA9bw/OmUwrjiz/Xcg+x4VNlTOUPGWl8d3fdiq3TbLi7dpwepSyN +v21SeSu+seFspFPXvLY09i2Lip/5wQZLM+2FRZTGlHz5xqPzbCh//c6aN0Aa +vcz1y2K4OOApZj8ly5bG05/tcxKEOaAf35RU3CyNkTU+k8dEObDqnbqEwkNp +5Oz53JIrzoGG6zyg+koaRzvbR/OkOSBh25Cz4Z80jpyjL/gocOB5krKBpa0M +viA/k1LdwIGqT7ntj5xl8OPyx4ETuhw4vPWfp42XDA7tb2Je0eeAttxg2tZw +GfwbvS2WRONA5q2T/W75Mhj15KztEyYHLL7+jgt5L4P75RN5ttlwIHbzaY37 +kzLok/7f0XZbDtSUaQ+Kzsmg+zRPh9EWDkg5exs18Mni0nBKuqADByZvtc3z +rJfF2psk7oztHMhLzok8d1AW7whoX7u2iwPtQ+uUJ5NkMemhxe633hxYNGjt +McmSxb43/u/X+HLA/+Os3tgFWfwltd7SYw8H6HYe39e3yuJtreeVbYEceCeu +GvJgLQlFXNdUvQjjgGToXTlJSRIqvLT1vxfOAbv2Hc/2ypPwfNX9pSsRHKiP +y9IS1Cfh/SH+hgORxHrffptw20FC6AqM74nhwF3DzMKrPiRk8dRIlB3kwEyu +ks2/fSTsLLuTuy+WA14WLpcrEki421pF83scB/QuNwV8LSfhkn/6ymcJHAjg +3i5pdpWEtxbPN8Ue5kCRx/TD0zdIOF+0Z4diIgdWCiio0ttJOPRdZkvAEQ4w +AhpfZr8gYeZD4SqeJA6E3duW9naQhGpjzybPEx6MSB9LnSLhU656uJfMAcGn +lNP9cyRkyM/a26UQ56PSYK7BJYesRxT7XsI1/V/Ku0TkkJ6zX34glQNJxo4+ +MoZyqCN6XO96Ogc2exX/oJnJ4Zpc1z6loxwQOPIlZbudHAb1DTflES5qTavM +8ZbDn/cvOfplcGD3eDetZp8cakk3L39EWINXvuNJpBz65iv9UzrGgVs2jV9W +HpNDucuFXV2EE4N4E5Tz5DBOM/USOZMDViecBcwuyGHX9ajOQMJra8tKdlXJ +oYbViFkN4d4X0xsS6uSwrITK+5Xw+Z+MlsImYvw1UyTNLA74ih/bdqtNDm0T +YtN8Ca+j9Y297JLD+4e2mZ0h/G2HUvTPV3IoqT/j3Er4ZlwYr/CYHHr79t2Z +JHy46HbB+mk5POcXnSSczQHLO6s07BbkcIuOU7Eu4TUjrk17ucloufmzxBbC +Pcsu2h1dQ0ZKZ/PkbsKFSj9eV0iQcTZ8q0I0YW9LCG2RJ+PvaJX6FMJqAdlc +IxpkVK17cDWb8HTGq9wlAzJ2pHBW5hLmXFFVkgUyao4ktOUQjn96gGNoTUYT +i+qJLMJm0/csXbaRUbmhPSaZML+QQP+BnWQcfrE7JJLwc12PwNwAMg5eXv3c +h3D+tku/asLJeOW9Q7ENYa+o2cyn8WRMqmobXE9YJd+MNJFGxpGypXSB7P/3 +38lrvDlk3Mh9ouIzsR/swWETlUIyBsSu3XiPcNziuudmFWRMMBSjnyJsSo7x +8a4ho95Xxo1dhPnwwY+EW2Q8/phySZ3wmRQv8YanZAxZm/PnKnFenherK/v6 +yDhq4L7r/+er+GiBNjNCxhV/PUwphGtX5bnrzJKRT+xUeiJRHzFaI1/s/pFx +oltwSp2wib12wj5+CtaK7Rh4RtTX09xHJRflKBg0PmG+inAeW0y3VY2Cyvsz +H5UR9en+0qdlRJeC+72K+wwIf5JaHJO1ouAf0usLW4j6vk63jjZyoKA2NdCt +J40D0Z5neV3dKfh2u3qVM2Ge0g0ap0IoGF0lyWVD9Mfj+wlN1w9S8JwDS+AO +0T857x/bPUumYM+XHfXahMlqfqF8+RRkr6rt/0f0I73mHOfwXQqqVZLyQol+ +tujvXJpup+AA+UbEU6Lf7bmWb9rVTUH/g2rHVAjvdgp5BeMUXFzh6v30ENEP +8QqJR1bIY9Ki5cgkkSdPBJv/M1wljwWDq0o0CTtUuLR/E5BHsxFmqT+RPx7P +soR9pORxWO9J6ItoIh8oc/+ZasrjbGtLUNwBDsyyc9p/6cgjs1c38DyRb3Gb +NafqDOSx4+po3S0i/9LCvamKJvKYJfFv46dQop5bH7dzO8pjJ9tCUzaIAw8C +SqZao+XROKdErns3B6wXjUQOxRPjf4ll3SLytzOnl2pwRB5b+KeunffhwKsG +/iMVx+Tx6mT3Gxciv6dXR4qkFcmjm7+5c7k7kf+1m2lWLfLII1g/dYLI/6CF +70fa1yqg7x/vlY+NiP0L95f4IKKAhxl1WyiGRH1NDFbzSClgaOf9s2FUDlwc +au0zUVTAZdY5VF7i/fTmzhmtG1QFDBwQ/rRciwNb04wGynYpoIfunq/mckT+ +iiTpxNcpYPI/u6q3i2zgypp9UFCvgGKbj25p+M2GTp597vVNCqgXepN+coEN ++2ed0r63KWBGxdAPnRk2VAwoDwUMKuA521wpyy9skChpT3fmUcQ364x07g2w +4Zem0Bvt7YoY3+G+k7+ODXMXZJL03RWxcN+ysEM1bJgRVFE22qWIEVH/dCer +2TD902ifxV5FFJu49/R+JRveNe2ec09QxEkjdqFlERse294UyLioiEUls6l1 +6cT3y34veDdL3M/TFtVwY4Nx9dXSs2eVcDFY9JTsLAuG5KtLLM8rYXCzDXXF +DxbEnb1cPFOihIL9UlGT0yy4mVRZ5HRZCflHxzrYxPeZ3o7SAoFmJQxq2Lhc +dZgF61aczkkfVcKiy3yehS0skNgVfyRaSxnLe16VdR1nwXcRG2+XFmW0FMyW +eSnHgrFsb5cIXlVU95dVyhKuA+uvMdbjVDUcXa7hIbN0HSZ38x3gJKrj9pkS +klTaNeJ/Q5L7aMs6DDIpdy1cXg0iz1RP1H7VwC9Cc2G5Vy4BKeO6A5Wqhevy +ZhIvqlRCgaaRkGiANl6cM2B0D/8Hj2VMN/7MXY+3LGRrvW+WAZ3UkqPTp4Ol +pyqGEvhLQICnPNIneQNuPGv/xI12HshJFGM3VV0sbVPZFB2YD/wqnvVOj3Tx +ov8RPcMVp2E9U/p6zE49tOiNeG+rnQsRb0Rabbj08Spf89mDr7Ph68/s7dYF ++hjxd0b/mXsGbNJ5WGitbYC3BgdEfsemwp2fjD/znQaYsEpwe+7LIxCipTf4 +wm8jHoqR+X5qIB6Y03t63fip+Ls/J+FRQjRYKkttWVtOxdDyJuUpmwjgTLUp +7KmgYi2Lj3eEEQHKNw/MNVZSUUeM5PlaKwKW23SVBFZT0X+OZD0vEAEtoek/ +WjlUtOoPK6jqCQeTppn8uEdUFKr76zXrFQ5UpxfvPk5S8bxYrat8QhioH8k8 +2EKj4fJjeqtJ14KhmXFxhR2dhpQVB3c+zA0Gh/m7p14a0/Bq2bMN6dHBcDBk +9uonUxpWyQ+oWmEwtHt6jwrY0RBskj+09QZBoBHVxsObhqkrmOENy4Lg8o9R +2ZkMGv7YKOUvuX8faPgZ3VUZpGH9ZPj+7wcD4KSi/e+UYRpqmLruFd8TADNv +fTe+e0PD+zwf91tvDYA77tnVxe9p+Oij3o5RlQBwcnibLzlFQ6e9EXe6evwh +lpEWxs9liP6nTJ2L9fyhXfiFwpSKIVr6uU3e/bMH/O4EpnLCDfHy4RnnVY2+ +MB08EWMZaYhxN+BcdJUvHJQL2t8XbYhCM9QfP077QuahUKeFeEPse7DhhmyY +L9TSo+WN0w2xm15oqaXmC4v1Kc2thYYYrTLUDQU+cOp68Ux3qyGGRQo1vk/z +hrulvXu+ixvhnhs71HOkd8KIncKuaCkjPGn3+KfToidw/Qp2+yNjhB+Bv1Tn +rSeYOfLar5A3Qik3j63Ui57wcBmdJq1hhB5qLr+j9TzhqW8Jv6mJEarq9Kjf +cPSAQeV9NTn+RhgVv0y4otwNZi79m9e5aYQdodO4J9MFPrhYlR5rMEKHiMqu +0kgXGFh+fPP7JiM09xjl/eblAk3eMufO3jPCIl1FeKjvAslSG+lLHUZ4nLnO +yeHNdhDK2Hfo8bARHjUXD+qibgetgJdcftx0zBHZOCk3uw12q1TzF26h48Wq +K7epFY4Q1+a1T9WBjtd1FfZCriPk+Ik8YTnRkTlGcXQ/7AjNF2Ozn7jS8UX8 +YuHDHY4gprpZcMmHjuPn1aJjBBzhoeq4mHc0He9c2hConeAAGuoUedUSOhaf +qZRY1WUP2N59hFVGx7NP7AUjrtmDS2D6qEkFHQfnvT/9zrKHlEtT5a6X6dhQ +uP9ZiLU9DKs3qxxj01Epuch3uG0LnFjnpjn5iI4Oc/1f6x/YwXeNPCrrGx1t +5Q0+1ryygYGnaCn6k46zZ2qy5m7bwL2Q6W2Rs3RcXekw61puAydY1uHU33Tc +/NSjLWC/DWjQua428jBweChfquGvNfhaByu0SjAwujSsXkjDGnoDNq3pNWag +/7Xl7bx5m6CJf1ZmIzCQJdM97x23Ccqry9edNWXgX9qD0Bc+myDs65LVDisG +0qbbvsxv2ARrYzhJw1sZuD25lcvtuRVYpSvMj/kyMGdgt6aHqBXcqvgzOpvB +wPMXbge9uWwBVPPIeZssBjZHeSXuO20BN0Yn15QeZ2CMsNqdVYkWwCK/odmc +YqDQwWWHjzpbwNWCe8eLzzOQsmXRKIzLAkqz04w21TDwZGbLrm8e5nAsUjC3 +oIeBcR+TExgKZsAnmlE59ZKBc5bkHm0BM0iv42o2GyDmOz7vqvfHFFKnv3+Y +HGagTsVxVvhLUzgc2Gts+oGBE08u8LRnmkKE57lPnxcYKH514VfbAoK7hRIy +yMb4aKXbJ2wFWOrlE2iVN0bfzJrWwmKAUr/pIRslwhVHKbJxAB/SG2Lc1Y3x +2QOHxyd0ASI6tl6P1TNGug33WpNyE8i0P0S+ZWWMhzf5XbyQyYTGHS8XDUKN +MVV/IjM8mgE7Pzc+bg43xnMhOmE7XBjAFVdaYBFpjOO8Emd8qAywOr/fwDnW +GJnO8aTBOTp0v14WdCDFGDnClGLvWDpM+K4fqss3xtxVJv9VpRqBbPDRhvX3 +jLE0LSvJgk2DE//8N2a1GKPtepUP4udowH3Kqu7jA2P8use6dVkiDSbqV1wu +7TBG/0nxDHVbGjRypRaI9Bgjy2vi4vUxKrifPhIzN26Mec8s7pwkUaGgKXbj +ndVM5P9r6j5fbABr7N3qZASYqKcxuObLUQM4MmKoHSPERL7Gcu+5MAMIXLGg +vEGciTMhO85sMzcA2tZosXIyE+/qrhxU+awPfe8ifqbpMvHiVm9jSSN9EF8V +VLfFlYnarz9Tij7rQoV5Qtw3NyaeDjZlL+vRBb2EE+Z5nkwsHFNKTGrWBftv +tS8HfJg4l1q2reukLqT3zf7aHcTEAIng36U0XVgoTzSLS2Iiu012fHn2Bhhk +5PVUVjNxV0zyLr0T6yEwqqLIuoZ4vqB/lUrAepirueE3WcvE8Ssnv1jhehBR +HJjXrWdisKdIpchPbbDlkyPdvsfEp35C5zvctaG5t3JPz0sm5hoUdWbpaYGN +wC3t6AEm/vJ56L9ZQAsGNnXMSQ0xsaf+yPINE5ow0/glw2uEiWGxrwsSyzVB +u2zDtc8TxPozl9RkxTWhedA0OnuKiaHpFtMaPzTARmwb6Hxj4oJ8j/2eLg3w +Pxr1InKWiY++MrW2ZWrAzL30QskFYj5CTAe+QA1I/p2/u/E3E0eCOzw/WGqA +kMFlrZ1LTHyWMqQypaQBxcGNs//+EefTdTqRxK0B/wM3ALdu + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08026987470340353}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.08026987470340353}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3BRoWFv1702GcnoXu51vd9mGQmJjIQyKjsjJJkJFalIsr6i +UuLemzJapGhQCKGiaAgtq6J+5/fXeTwf5/E4n/V+v845Cr6hTn7cXFxc7su4 +uP5/nXvT8UA5q8KEfCjspirvJpPeYqlY04FkuG8/UHuFogIo3uUrNXAK1N2c +T8RSNkK0w5V+noFyGHodQXWhWILwtOSpX/0skJ4JD5OmbIe3zfahM/0tEK43 +eNme7AdWyhOvv/d3w4MP7n9pslHwq5925lv/OxDTjhn5IpAGreZVFS/Kf8Jq +9sLb8VtngPS24YOv1hKIj7o5uLWWgFjQriu85jw4Hblz3720Cjila9Vkv50P ++bJKbxqqXYZXBRvufRdai4O/REyNV16Dwp5qwWiVtXjVvr51XvwauAuo7fpt +tBajIpK4rqhcg+EUub/cu9fiy9tzBT8srsFIyCpjsRtrcXaT1SvRlGvwyWLs +JtVNAK/7zFvlLV2DhW/51+PLBDH5fq1r0JcayKpI7OKWFsbBMsnJcedasDHY +KyKuJIxnPaJUQjxqge+B03Y1bWHk6YlK+u5TC6nvVYZsTYXxfoJv0eeQWjik ++PTD6b3CGMQ6xijJqIWQUqm/qo3CqNX4SZTSVAuORXVath4iuOcHr9NeUh0I +aZ0P3ekngjtnBsu3KdZBZ1MqKzRUBFc85/5pqF4HNkOuhqdTRJDrc8bxGf06 +MJP5a/66WgR12YdydWzrwKDAxiN0UQRn1bzXcg7WgeTp98fyLojiuxVPJL53 +1YGU5o3UhUpRtHVTnHzTWwcyLemJO2tFMdPknUP7qzogf1sXpdYqitCY8vD4 ++zpQsQvzbvokiryeq53fz9WB/vIl6nt9MTSzE8++RWLB1kiJMb3HYpiItSF8 +fixwWP3pTX6PGLre7doasJcFTuUNrxaHxdBmuQD7fjALXJ57dj38KoYi/fV/ +A6NZsFPrv0Z3cXEclugsTzrKgv1jOrnJ3uL4oa9wbPASC446W5t0z4mjl03v +iOYnFshwOmW4l0mgypzgObtJFtSIOs/rrpZAx3wB7sBvLOjr9qrNpUigA3N2 +/MQCC5QdIxUdN0vg8PS2n0V8bGjZUrLy+TkJzHOvlm1UY8OS1WznM2NJnGD+ +G1rwYUNOZVz1kpUkHsjgvRrqxwbllVwZ2o6SGHo7dP1oIBvs2laZHveTxPGt ++racUDYUmsuz7U5IIrW2e0ImgQ2GaJv/5K0knl6XuPj5LBsOGJXt6kiWwhb3 +BXbuQzbYlArM2GZL4SN1r2GdDjYo8h7K6Dwjhf9lqIV2PGHD816Xup5LUmjj +eeTl9HM2rA9bw/OmUwrjiz/Xcg+x4VNlTOUPGWl8d3fdiq3TbLi7dpwepSyN +v21SeSu+seFspFPXvLY09i2Lip/5wQZLM+2FRZTGlHz5xqPzbCh//c6aN0Aa +vcz1y2K4OOApZj8ly5bG05/tcxKEOaAf35RU3CyNkTU+k8dEObDqnbqEwkNp +5Oz53JIrzoGG6zyg+koaRzvbR/OkOSBh25Cz4Z80jpyjL/gocOB5krKBpa0M +viA/k1LdwIGqT7ntj5xl8OPyx4ETuhw4vPWfp42XDA7tb2Je0eeAttxg2tZw +GfwbvS2WRONA5q2T/W75Mhj15KztEyYHLL7+jgt5L4P75RN5ttlwIHbzaY37 +kzLok/7f0XZbDtSUaQ+Kzsmg+zRPh9EWDkg5exs18Mni0nBKuqADByZvtc3z +rJfF2psk7oztHMhLzok8d1AW7whoX7u2iwPtQ+uUJ5NkMemhxe633hxYNGjt +McmSxb43/u/X+HLA/+Os3tgFWfwltd7SYw8H6HYe39e3yuJtreeVbYEceCeu +GvJgLQlFXNdUvQjjgGToXTlJSRIqvLT1vxfOAbv2Hc/2ypPwfNX9pSsRHKiP +y9IS1Cfh/SH+hgORxHrffptw20FC6AqM74nhwF3DzMKrPiRk8dRIlB3kwEyu +ks2/fSTsLLuTuy+WA14WLpcrEki421pF83scB/QuNwV8LSfhkn/6ymcJHAjg +3i5pdpWEtxbPN8Ue5kCRx/TD0zdIOF+0Z4diIgdWCiio0ttJOPRdZkvAEQ4w +AhpfZr8gYeZD4SqeJA6E3duW9naQhGpjzybPEx6MSB9LnSLhU656uJfMAcGn +lNP9cyRkyM/a26UQ56PSYK7BJYesRxT7XsI1/V/Ku0TkkJ6zX34glQNJxo4+ +MoZyqCN6XO96Ogc2exX/oJnJ4Zpc1z6loxwQOPIlZbudHAb1DTflES5qTavM +8ZbDn/cvOfplcGD3eDetZp8cakk3L39EWINXvuNJpBz65iv9UzrGgVs2jV9W +HpNDucuFXV2EE4N4E5Tz5DBOM/USOZMDViecBcwuyGHX9ajOQMJra8tKdlXJ +oYbViFkN4d4X0xsS6uSwrITK+5Xw+Z+MlsImYvw1UyTNLA74ih/bdqtNDm0T +YtN8Ca+j9Y297JLD+4e2mZ0h/G2HUvTPV3IoqT/j3Er4ZlwYr/CYHHr79t2Z +JHy46HbB+mk5POcXnSSczQHLO6s07BbkcIuOU7Eu4TUjrk17ucloufmzxBbC +Pcsu2h1dQ0ZKZ/PkbsKFSj9eV0iQcTZ8q0I0YW9LCG2RJ+PvaJX6FMJqAdlc +IxpkVK17cDWb8HTGq9wlAzJ2pHBW5hLmXFFVkgUyao4ktOUQjn96gGNoTUYT +i+qJLMJm0/csXbaRUbmhPSaZML+QQP+BnWQcfrE7JJLwc12PwNwAMg5eXv3c +h3D+tku/asLJeOW9Q7ENYa+o2cyn8WRMqmobXE9YJd+MNJFGxpGypXSB7P/3 +38lrvDlk3Mh9ouIzsR/swWETlUIyBsSu3XiPcNziuudmFWRMMBSjnyJsSo7x +8a4ho95Xxo1dhPnwwY+EW2Q8/phySZ3wmRQv8YanZAxZm/PnKnFenherK/v6 +yDhq4L7r/+er+GiBNjNCxhV/PUwphGtX5bnrzJKRT+xUeiJRHzFaI1/s/pFx +oltwSp2wib12wj5+CtaK7Rh4RtTX09xHJRflKBg0PmG+inAeW0y3VY2Cyvsz +H5UR9en+0qdlRJeC+72K+wwIf5JaHJO1ouAf0usLW4j6vk63jjZyoKA2NdCt +J40D0Z5neV3dKfh2u3qVM2Ge0g0ap0IoGF0lyWVD9Mfj+wlN1w9S8JwDS+AO +0T857x/bPUumYM+XHfXahMlqfqF8+RRkr6rt/0f0I73mHOfwXQqqVZLyQol+ +tujvXJpup+AA+UbEU6Lf7bmWb9rVTUH/g2rHVAjvdgp5BeMUXFzh6v30ENEP +8QqJR1bIY9Ki5cgkkSdPBJv/M1wljwWDq0o0CTtUuLR/E5BHsxFmqT+RPx7P +soR9pORxWO9J6ItoIh8oc/+ZasrjbGtLUNwBDsyyc9p/6cgjs1c38DyRb3Gb +NafqDOSx4+po3S0i/9LCvamKJvKYJfFv46dQop5bH7dzO8pjJ9tCUzaIAw8C +SqZao+XROKdErns3B6wXjUQOxRPjf4ll3SLytzOnl2pwRB5b+KeunffhwKsG +/iMVx+Tx6mT3Gxciv6dXR4qkFcmjm7+5c7k7kf+1m2lWLfLII1g/dYLI/6CF +70fa1yqg7x/vlY+NiP0L95f4IKKAhxl1WyiGRH1NDFbzSClgaOf9s2FUDlwc +au0zUVTAZdY5VF7i/fTmzhmtG1QFDBwQ/rRciwNb04wGynYpoIfunq/mckT+ +iiTpxNcpYPI/u6q3i2zgypp9UFCvgGKbj25p+M2GTp597vVNCqgXepN+coEN ++2ed0r63KWBGxdAPnRk2VAwoDwUMKuA521wpyy9skChpT3fmUcQ364x07g2w +4Zem0Bvt7YoY3+G+k7+ODXMXZJL03RWxcN+ysEM1bJgRVFE22qWIEVH/dCer +2TD902ifxV5FFJu49/R+JRveNe2ec09QxEkjdqFlERse294UyLioiEUls6l1 +6cT3y34veDdL3M/TFtVwY4Nx9dXSs2eVcDFY9JTsLAuG5KtLLM8rYXCzDXXF +DxbEnb1cPFOihIL9UlGT0yy4mVRZ5HRZCflHxzrYxPeZ3o7SAoFmJQxq2Lhc +dZgF61aczkkfVcKiy3yehS0skNgVfyRaSxnLe16VdR1nwXcRG2+XFmW0FMyW +eSnHgrFsb5cIXlVU95dVyhKuA+uvMdbjVDUcXa7hIbN0HSZ38x3gJKrj9pkS +klTaNeJ/Q5L7aMs6DDIpdy1cXg0iz1RP1H7VwC9Cc2G5Vy4BKeO6A5Wqhevy +ZhIvqlRCgaaRkGiANl6cM2B0D/8Hj2VMN/7MXY+3LGRrvW+WAZ3UkqPTp4Ol +pyqGEvhLQICnPNIneQNuPGv/xI12HshJFGM3VV0sbVPZFB2YD/wqnvVOj3Tx +ov8RPcMVp2E9U/p6zE49tOiNeG+rnQsRb0Rabbj08Spf89mDr7Ph68/s7dYF ++hjxd0b/mXsGbNJ5WGitbYC3BgdEfsemwp2fjD/znQaYsEpwe+7LIxCipTf4 +wm8jHoqR+X5qIB6Y03t63fip+Ls/J+FRQjRYKkttWVtOxdDyJuUpmwjgTLUp +7KmgYi2Lj3eEEQHKNw/MNVZSUUeM5PlaKwKW23SVBFZT0X+OZD0vEAEtoek/ +WjlUtOoPK6jqCQeTppn8uEdUFKr76zXrFQ5UpxfvPk5S8bxYrat8QhioH8k8 +2EKj4fJjeqtJ14KhmXFxhR2dhpQVB3c+zA0Gh/m7p14a0/Bq2bMN6dHBcDBk +9uonUxpWyQ+oWmEwtHt6jwrY0RBskj+09QZBoBHVxsObhqkrmOENy4Lg8o9R +2ZkMGv7YKOUvuX8faPgZ3VUZpGH9ZPj+7wcD4KSi/e+UYRpqmLruFd8TADNv +fTe+e0PD+zwf91tvDYA77tnVxe9p+Oij3o5RlQBwcnibLzlFQ6e9EXe6evwh +lpEWxs9liP6nTJ2L9fyhXfiFwpSKIVr6uU3e/bMH/O4EpnLCDfHy4RnnVY2+ +MB08EWMZaYhxN+BcdJUvHJQL2t8XbYhCM9QfP077QuahUKeFeEPse7DhhmyY +L9TSo+WN0w2xm15oqaXmC4v1Kc2thYYYrTLUDQU+cOp68Ux3qyGGRQo1vk/z +hrulvXu+ixvhnhs71HOkd8KIncKuaCkjPGn3+KfToidw/Qp2+yNjhB+Bv1Tn +rSeYOfLar5A3Qik3j63Ui57wcBmdJq1hhB5qLr+j9TzhqW8Jv6mJEarq9Kjf +cPSAQeV9NTn+RhgVv0y4otwNZi79m9e5aYQdodO4J9MFPrhYlR5rMEKHiMqu +0kgXGFh+fPP7JiM09xjl/eblAk3eMufO3jPCIl1FeKjvAslSG+lLHUZ4nLnO +yeHNdhDK2Hfo8bARHjUXD+qibgetgJdcftx0zBHZOCk3uw12q1TzF26h48Wq +K7epFY4Q1+a1T9WBjtd1FfZCriPk+Ik8YTnRkTlGcXQ/7AjNF2Ozn7jS8UX8 +YuHDHY4gprpZcMmHjuPn1aJjBBzhoeq4mHc0He9c2hConeAAGuoUedUSOhaf +qZRY1WUP2N59hFVGx7NP7AUjrtmDS2D6qEkFHQfnvT/9zrKHlEtT5a6X6dhQ +uP9ZiLU9DKs3qxxj01Epuch3uG0LnFjnpjn5iI4Oc/1f6x/YwXeNPCrrGx1t +5Q0+1ryygYGnaCn6k46zZ2qy5m7bwL2Q6W2Rs3RcXekw61puAydY1uHU33Tc +/NSjLWC/DWjQua428jBweChfquGvNfhaByu0SjAwujSsXkjDGnoDNq3pNWag +/7Xl7bx5m6CJf1ZmIzCQJdM97x23Ccqry9edNWXgX9qD0Bc+myDs65LVDisG +0qbbvsxv2ARrYzhJw1sZuD25lcvtuRVYpSvMj/kyMGdgt6aHqBXcqvgzOpvB +wPMXbge9uWwBVPPIeZssBjZHeSXuO20BN0Yn15QeZ2CMsNqdVYkWwCK/odmc +YqDQwWWHjzpbwNWCe8eLzzOQsmXRKIzLAkqz04w21TDwZGbLrm8e5nAsUjC3 +oIeBcR+TExgKZsAnmlE59ZKBc5bkHm0BM0iv42o2GyDmOz7vqvfHFFKnv3+Y +HGagTsVxVvhLUzgc2Gts+oGBE08u8LRnmkKE57lPnxcYKH514VfbAoK7hRIy +yMb4aKXbJ2wFWOrlE2iVN0bfzJrWwmKAUr/pIRslwhVHKbJxAB/SG2Lc1Y3x +2QOHxyd0ASI6tl6P1TNGug33WpNyE8i0P0S+ZWWMhzf5XbyQyYTGHS8XDUKN +MVV/IjM8mgE7Pzc+bg43xnMhOmE7XBjAFVdaYBFpjOO8Emd8qAywOr/fwDnW +GJnO8aTBOTp0v14WdCDFGDnClGLvWDpM+K4fqss3xtxVJv9VpRqBbPDRhvX3 +jLE0LSvJgk2DE//8N2a1GKPtepUP4udowH3Kqu7jA2P8use6dVkiDSbqV1wu +7TBG/0nxDHVbGjRypRaI9Bgjy2vi4vUxKrifPhIzN26Mec8s7pwkUaGgKXbj +ndVM5P9r6j5fbABr7N3qZASYqKcxuObLUQM4MmKoHSPERL7Gcu+5MAMIXLGg +vEGciTMhO85sMzcA2tZosXIyE+/qrhxU+awPfe8ifqbpMvHiVm9jSSN9EF8V +VLfFlYnarz9Tij7rQoV5Qtw3NyaeDjZlL+vRBb2EE+Z5nkwsHFNKTGrWBftv +tS8HfJg4l1q2reukLqT3zf7aHcTEAIng36U0XVgoTzSLS2Iiu012fHn2Bhhk +5PVUVjNxV0zyLr0T6yEwqqLIuoZ4vqB/lUrAepirueE3WcvE8Ssnv1jhehBR +HJjXrWdisKdIpchPbbDlkyPdvsfEp35C5zvctaG5t3JPz0sm5hoUdWbpaYGN +wC3t6AEm/vJ56L9ZQAsGNnXMSQ0xsaf+yPINE5ow0/glw2uEiWGxrwsSyzVB +u2zDtc8TxPozl9RkxTWhedA0OnuKiaHpFtMaPzTARmwb6Hxj4oJ8j/2eLg3w +Pxr1InKWiY++MrW2ZWrAzL30QskFYj5CTAe+QA1I/p2/u/E3E0eCOzw/WGqA +kMFlrZ1LTHyWMqQypaQBxcGNs//+EefTdTqRxK0B/wM3ALdu + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08026987470340353}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.08026987470340353}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99385292165551*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"a9ec4b8e-4637-4e78-8ce9-ac188116e32e"] +}, Open ]], Cell[CellGroupData[{ @@ -8293,66 +15275,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + "In[142]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 417, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437636167164`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.26943627569432`*^-142\\\", \ +RowBox[{\\\"990359217009531794717859144615\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"111\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"840000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 73, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993852921701166*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +In[142]:=",ExpressionUUID->"9c3bf04a-d703-46c1-b534-f233905b3724"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 418, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763625717*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1785174697722115`*^-144\\\", \ +RowBox[{\\\"393073573231083169323518294497\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"115\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"960000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 74, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993852921708334*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +In[142]:=",ExpressionUUID->"2782c85f-4b10-4832-8b68-48f3ff9d301f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 391, 419, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763634718*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.120037127428785`*^-147\\\", \ +RowBox[{\\\"161002935595451666154913093426\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"119\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"160000000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 75, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993852921714394*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +In[142]:=",ExpressionUUID->"de7d8d35-f24e-47c9-9de1-5a5dea13ded1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763643717*^9}, +during this calculation.\"", 2, 142, 76, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993852921720624*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +In[142]:=",ExpressionUUID->"2d1fc874-3051-4c05-8a7a-353b745fdbae"], -Cell[BoxData["12.55365498945131`"], "Output", - CellChangeTimes->{3.991343769962549*^9}, +Cell[BoxData["10.752652329859966`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.993852977418787*^9}, CellLabel-> - "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] + "Out[142]=",ExpressionUUID->"a7a10224-e390-4f25-89fc-8ad0330e74e3"] }, Open ]], Cell[CellGroupData[{ @@ -8419,68 +15408,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499777649403`*^9, - 3.9918499820026073`*^9}},ExpressionUUID->"97b28b29-5d04-5c42-a0e8-\ -93b70f20e7f6"], + CellChangeTimes->{{3.9918499777649403`*^9, 3.9918499820026073`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 392, 421, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343769999645*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1108880413994475`*^-200\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 77, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.993852977461199*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +In[143]:=",ExpressionUUID->"e6c3e8aa-5da8-4e3e-bf89-a03b48058a29"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 392, 422, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700095463`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1714196108547306`*^-205\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 78, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9938529774701757`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +In[143]:=",ExpressionUUID->"d3d3f771-16f9-4837-a96c-919072a89843"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 392, - 423, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343770018547*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.053929805062508`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"56\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"040868761600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 79, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.993852977478985*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +In[143]:=",ExpressionUUID->"3f668db1-61dc-4ffe-966e-74d50f37900f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700265465`*^9}, +during this calculation.\"", 2, 143, 80, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9938529774871187`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +In[143]:=",ExpressionUUID->"037193f2-4958-4db5-b22b-d33f94fed3d1"], -Cell[BoxData["2.1234790234082306`"], "Output", - CellChangeTimes->{3.9913437771602173`*^9}, +Cell[BoxData["0.38868620686614014`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.993852984607901*^9}, CellLabel-> - "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] + "Out[143]=",ExpressionUUID->"526e7c70-4a92-499d-b2b2-c637516ae1b7"] }, Open ]], Cell[CellGroupData[{ @@ -8501,8 +15497,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8547,68 +15542,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499862910366`*^9, - 3.991849989300226*^9}},ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-\ -cdce838d9efe"], + CellChangeTimes->{{3.9918499862910366`*^9, 3.991849989300226*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 393, 425, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437771982174`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1108880413994475`*^-200\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 81, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.9938529846530457`*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +In[144]:=",ExpressionUUID->"a6cc368e-c0e6-4765-9ce4-608e6b6f9574"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 393, 426, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772082157`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1714196108547306`*^-205\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 82, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993852984662922*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +In[144]:=",ExpressionUUID->"57b0b52b-6119-4f0a-acef-b3b09ea5ec23"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 393, - 427, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134377721661*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.053929805062508`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"56\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"040868761600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 83, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993852984671554*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +In[144]:=",ExpressionUUID->"09875df1-2707-4e91-83d0-f1fe78bb29dc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772256165`*^9}, +during this calculation.\"", 2, 144, 84, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993852984678206*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +In[144]:=",ExpressionUUID->"c480f299-2d84-490e-89d8-412d8b115cd0"], -Cell[BoxData["10.711562421053975`"], "Output", - CellChangeTimes->{3.991343783589731*^9}, +Cell[BoxData["24.50549528441776`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.99385299136864*^9}, CellLabel-> - "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] + "Out[144]=",ExpressionUUID->"5b931a39-c065-4f66-95bb-5d2001b599e9"] }, Open ]], Cell[CellGroupData[{ @@ -8629,8 +15631,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8675,68 +15676,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849992549782*^9, - 3.9918499952553864`*^9}},ExpressionUUID->"0794d062-69d5-0a45-936e-\ -533b19d33de6"], + CellChangeTimes->{{3.991849992549782*^9, 3.9918499952553864`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 394, 429, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836316223`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1108880413994475`*^-200\\\", \ +RowBox[{\\\"706640776532825937191303163045\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"628582006784000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 85, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993852991415247*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +In[145]:=",ExpressionUUID->"3b187cd9-8f85-4933-806b-bfbff7ec4b63"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 394, 430, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836416245`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1714196108547306`*^-205\\\", \ +RowBox[{\\\"143094757247897252281238890516\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"53\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"878563737600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 86, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993852991422023*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +In[145]:=",ExpressionUUID->"41c67142-c5fa-408c-8282-7d231fb7f35e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 394, - 431, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343783649622*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.053929805062508`*^-210\\\", \ +RowBox[{\\\"302788506336550585827101492333\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"56\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"040868761600000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 87, + 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993852991428255*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +In[145]:=",ExpressionUUID->"d03d4453-53c7-4199-aac3-f09cc3f822da"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836576347`*^9}, +during this calculation.\"", 2, 145, 88, 31384996408358927514, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993852991435652*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +In[145]:=",ExpressionUUID->"c3c60efe-f759-44e9-9d96-2949383f1ed5"], -Cell[BoxData["20.656774205279326`"], "Output", - CellChangeTimes->{3.9913437870822353`*^9}, +Cell[BoxData["3.373645205040277`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.993852995626631*^9}, CellLabel-> - "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] + "Out[145]=",ExpressionUUID->"09e6baf1-610a-4770-b6df-83b894c5cfb1"] }, Open ]], Cell[CellGroupData[{ @@ -8745,20 +15753,22 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918500011025047`*^9, - 3.9918500053803673`*^9}},ExpressionUUID->"95c56266-e4d3-624e-89c1-\ -cedeeeb0247a"], - -Cell[BoxData["0.14275466609450368`"], "Output", - CellChangeTimes->{3.991343787117275*^9}, + CellChangeTimes->{{3.9918500011025047`*^9, 3.9918500053803673`*^9}}, CellLabel-> - "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] + "In[146]:=",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], + +Cell[BoxData["0.04274818530904044`"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.993852995666926*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"5acb1d10-1ea4-4352-9dd9-b733c5035770"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +Evaluator->"kernel 5", +WindowSize->{714, 288}, +WindowMargins->{{Automatic, 3}, {297, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +Magnification:>1.4 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" ] @@ -8773,368 +15783,640 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], -Cell[706, 26, 156, 3, 28, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], -Cell[865, 31, 147, 4, 28, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], -Cell[1015, 37, 152, 3, 28, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ -Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[2496, 89, 176, 3, 32, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[576, 22, 300, 5, 40, "Input",ExpressionUUID->"0a96495d-14dd-4f84-9979-9f8b41e9e1ad"], +Cell[879, 29, 269, 4, 46, "Output",ExpressionUUID->"f725994a-1006-42d2-86c4-1032e55221f0"] }, Open ]], Cell[CellGroupData[{ -Cell[2709, 97, 908, 31, 56, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[3620, 130, 175, 3, 32, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[1185, 38, 245, 4, 40, "Input",ExpressionUUID->"d1c09bce-0e24-4060-8056-a28c79fdf097"], +Cell[1433, 44, 271, 4, 46, "Output",ExpressionUUID->"f989c03b-83b8-4c3a-b35a-38b7ac75a7af"] }, Open ]], Cell[CellGroupData[{ -Cell[3832, 138, 887, 30, 56, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[1741, 53, 228, 4, 40, "Input",ExpressionUUID->"bc5f10b8-d473-4ab6-8d81-4426809c9c14"], +Cell[1972, 59, 273, 4, 46, "Output",ExpressionUUID->"cf06ad56-2259-4f59-bec1-579a0b6ff3e1"] }, Open ]], Cell[CellGroupData[{ -Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[5497, 199, 172, 3, 32, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[2282, 68, 175, 3, 40, "Input",ExpressionUUID->"5b0eb987-b51a-4bf6-97da-0f76b838b8dc"], +Cell[2460, 73, 273, 4, 46, "Output",ExpressionUUID->"671ca7a7-2c1f-46f9-b9bb-3793947b7584"] }, Open ]], Cell[CellGroupData[{ -Cell[5706, 207, 651, 22, 52, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[6360, 231, 170, 3, 32, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[2770, 82, 257, 7, 59, "Input",ExpressionUUID->"9b8c303b-cd10-431e-b968-7e9aef415d53"], +Cell[3030, 91, 289, 4, 46, "Output",ExpressionUUID->"04949209-9624-47df-b97f-d148ca9404d0"] }, Open ]], Cell[CellGroupData[{ -Cell[6567, 239, 170, 5, 56, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[6740, 246, 173, 3, 32, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[3356, 100, 131, 2, 40, "Input",ExpressionUUID->"9c904b61-1319-4382-abfc-afb18190c4cd"], +Cell[3490, 104, 273, 4, 46, "Output",ExpressionUUID->"7f71e2c6-a18c-48b8-8d31-205995fc0103"] }, Open ]], Cell[CellGroupData[{ -Cell[6950, 254, 170, 5, 55, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[7123, 261, 169, 3, 70, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[3800, 113, 276, 6, 40, "Input",ExpressionUUID->"8396fbd2-779b-4eca-a777-fb70703115ce"], +Cell[4079, 121, 288, 4, 46, "Output",ExpressionUUID->"6c533acd-be49-4cee-bff4-219014a0dcce"] }, Open ]], Cell[CellGroupData[{ -Cell[7329, 269, 181, 5, 70, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[7513, 276, 173, 3, 70, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[4404, 130, 257, 7, 40, "Input",ExpressionUUID->"2fbbb6c2-de5c-4621-8a51-ab91c289707a"], +Cell[4664, 139, 285, 4, 46, "Output",ExpressionUUID->"81f836c2-ae72-4543-977c-487151372b99"] }, Open ]], Cell[CellGroupData[{ -Cell[7723, 284, 181, 5, 70, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[7907, 291, 170, 3, 70, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[4986, 148, 224, 4, 40, "Input",ExpressionUUID->"744b80b1-6fa3-4187-a98e-8b9afdc7182d"], +Cell[5213, 154, 251, 4, 46, "Output",ExpressionUUID->"8b0ebdc1-f230-4f3b-b05d-c3b7d804b8d1"] }, Open ]], Cell[CellGroupData[{ -Cell[8114, 299, 6055, 185, 70, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[14172, 486, 174, 3, 70, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[5501, 163, 226, 4, 40, "Input",ExpressionUUID->"84029daa-3bca-42b4-90db-4b82897fe958"], +Cell[5730, 169, 254, 4, 46, "Output",ExpressionUUID->"47f2cda4-0817-450b-9e0e-09d290d408d2"] }, Open ]], Cell[CellGroupData[{ -Cell[14383, 494, 368, 9, 70, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[14754, 505, 170, 3, 70, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[6021, 178, 129, 2, 40, "Input",ExpressionUUID->"e351b173-d9ea-4223-8406-c641064e0d80"], +Cell[6153, 182, 269, 4, 46, "Output",ExpressionUUID->"65803275-a83c-492c-b0a7-8938554c2f63"] }, Open ]], Cell[CellGroupData[{ -Cell[14961, 513, 6122, 187, 70, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[21086, 702, 174, 3, 70, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[6459, 191, 129, 2, 40, "Input",ExpressionUUID->"19ff8c00-c094-4be7-867c-176e17b1abc7"], +Cell[6591, 195, 268, 4, 46, "Output",ExpressionUUID->"2948d314-6a95-4717-b94e-dd6dec73d987"] }, Open ]], Cell[CellGroupData[{ -Cell[21297, 710, 368, 9, 70, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[21668, 721, 170, 3, 70, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[6896, 204, 557, 19, 109, "Input",ExpressionUUID->"abde3c43-6230-465a-a10f-5cb1350bf2b6"], +Cell[7456, 225, 292, 4, 46, "Output",ExpressionUUID->"fcce4b61-115c-4e69-8163-623aaecddd3a"] }, Open ]], Cell[CellGroupData[{ -Cell[21875, 729, 2663, 88, 70, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[24541, 819, 171, 3, 70, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[7785, 234, 557, 19, 109, "Input",ExpressionUUID->"816cfcb3-a59e-4765-9796-2504848c65fe"], +Cell[8345, 255, 288, 4, 46, "Output",ExpressionUUID->"8bd591d8-97ff-4327-b56b-9a7faf194d5a"] }, Open ]], Cell[CellGroupData[{ -Cell[24749, 827, 2603, 85, 70, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[27355, 914, 171, 3, 70, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[8670, 264, 1588, 50, 293, "Input",ExpressionUUID->"a3b4a669-b487-4424-8be1-05dcc23dc214"], +Cell[10261, 316, 285, 4, 46, "Output",ExpressionUUID->"e213f4b0-e343-433c-8d01-874bc30ed8ba"] }, Open ]], Cell[CellGroupData[{ -Cell[27563, 922, 3712, 118, 70, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[31278, 1042, 171, 3, 70, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] -}, Open ]], -Cell[31464, 1048, 138, 3, 70, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], -Cell[CellGroupData[{ -Cell[31627, 1055, 2054, 59, 70, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], -Cell[33684, 1116, 566, 12, 70, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], -Cell[34253, 1130, 569, 12, 70, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], -Cell[34825, 1144, 570, 12, 70, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], -Cell[35398, 1158, 458, 10, 70, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], -Cell[35859, 1170, 172, 3, 70, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[10583, 325, 1422, 46, 232, "Input",ExpressionUUID->"0ec7e126-c321-43f8-9619-3d9d461db0ec"], +Cell[12008, 373, 310, 5, 46, "Output",ExpressionUUID->"693b21c2-a898-4a8f-a660-f7dc25dfa1a6"] }, Open ]], Cell[CellGroupData[{ -Cell[36068, 1178, 2052, 59, 70, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], -Cell[38123, 1239, 564, 12, 70, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], -Cell[38690, 1253, 567, 12, 70, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], -Cell[39260, 1267, 570, 12, 70, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], -Cell[39833, 1281, 455, 10, 70, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], -Cell[40291, 1293, 169, 3, 70, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[12355, 383, 1422, 46, 232, "Input",ExpressionUUID->"05a86301-3507-478f-9bf2-8a25d4771765"], +Cell[13780, 431, 306, 5, 46, "Output",ExpressionUUID->"7b69e37b-77b6-4f4a-9970-d9efc3e7888b"] }, Open ]], Cell[CellGroupData[{ -Cell[40497, 1301, 1936, 53, 70, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], -Cell[42436, 1356, 19983, 375, 70, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +Cell[14123, 441, 1588, 50, 293, "Input",ExpressionUUID->"850c6054-4639-4e95-a685-1f7ff6b6facc"], +Cell[15714, 493, 285, 4, 46, "Output",ExpressionUUID->"5412a59f-95f0-48a0-a6c1-a6222e5295ea"] }, Open ]], Cell[CellGroupData[{ -Cell[62456, 1736, 2092, 60, 70, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], -Cell[64551, 1798, 501, 11, 70, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], -Cell[65055, 1811, 503, 11, 70, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], -Cell[65561, 1824, 506, 11, 70, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], -Cell[66070, 1837, 456, 10, 70, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], -Cell[66529, 1849, 41581, 727, 70, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] -}, Open ]], -Cell[108125, 2579, 232, 6, 70, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], -Cell[108360, 2587, 209, 5, 70, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], -Cell[CellGroupData[{ -Cell[108594, 2596, 217, 7, 70, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[108814, 2605, 170, 3, 70, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[16036, 502, 131, 2, 40, "Input",ExpressionUUID->"cf01d079-b925-4629-8bea-51e3cd09314b"], +Cell[16170, 506, 271, 4, 46, "Output",ExpressionUUID->"47fe2ee9-ec7a-44dd-a739-095507697099"] }, Open ]], Cell[CellGroupData[{ -Cell[109021, 2613, 1814, 53, 70, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], -Cell[110838, 2668, 506, 11, 70, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], -Cell[111347, 2681, 512, 11, 70, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], -Cell[111862, 2694, 509, 11, 70, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], -Cell[112374, 2707, 456, 10, 70, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], -Cell[112833, 2719, 22336, 412, 70, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +Cell[16478, 515, 133, 2, 40, "Input",ExpressionUUID->"c8825c39-1357-4dec-87ed-9fb3e25768ab"], +Cell[16614, 519, 273, 4, 46, "Output",ExpressionUUID->"17aa71b9-c0b4-4713-a0a1-f1b57c31687d"] }, Open ]], Cell[CellGroupData[{ -Cell[135206, 3136, 1616, 48, 70, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], -Cell[136825, 3186, 584, 12, 70, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], -Cell[137412, 3200, 588, 12, 70, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], -Cell[138003, 3214, 591, 12, 70, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], -Cell[138597, 3228, 456, 10, 70, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], -Cell[139056, 3240, 173, 3, 70, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +Cell[16924, 528, 134, 2, 40, "Input",ExpressionUUID->"89133a3e-3294-460f-8a99-fb0fa1d5fd82"], +Cell[17061, 532, 276, 4, 46, "Output",ExpressionUUID->"a327a291-4e25-4706-a2c0-96af8d27594c"] }, Open ]], Cell[CellGroupData[{ -Cell[139266, 3248, 2274, 65, 70, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], -Cell[141543, 3315, 566, 12, 70, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], -Cell[142112, 3329, 569, 12, 70, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], -Cell[142684, 3343, 572, 12, 70, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], -Cell[143259, 3357, 458, 10, 70, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], -Cell[143720, 3369, 171, 3, 70, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +Cell[17374, 541, 219, 4, 40, "Input",ExpressionUUID->"303e9cda-7704-46de-92c9-adf09a1b8407"], +Cell[17596, 547, 286, 5, 46, "Output",ExpressionUUID->"11178533-dc00-446d-95ea-5c23dd0d6b5f"] }, Open ]], Cell[CellGroupData[{ -Cell[143928, 3377, 2221, 64, 70, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], -Cell[146152, 3443, 564, 12, 70, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], -Cell[146719, 3457, 567, 12, 70, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], -Cell[147289, 3471, 570, 12, 70, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], -Cell[147862, 3485, 456, 10, 70, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], -Cell[148321, 3497, 173, 3, 70, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +Cell[17919, 557, 134, 2, 40, "Input",ExpressionUUID->"8cb1284d-8771-43d2-9563-3f9e80e94e8e"], +Cell[18056, 561, 277, 4, 46, "Output",ExpressionUUID->"10ff33ab-3fd3-4e1c-93ab-b36579d7cdcc"] }, Open ]], Cell[CellGroupData[{ -Cell[148531, 3505, 2223, 64, 70, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], -Cell[150757, 3571, 566, 12, 70, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], -Cell[151326, 3585, 569, 12, 70, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], -Cell[151898, 3599, 570, 12, 70, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], -Cell[152471, 3613, 458, 10, 70, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], -Cell[152932, 3625, 170, 3, 70, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +Cell[18370, 570, 328, 5, 40, "Input",ExpressionUUID->"eeff07aa-579a-4832-b621-cd5e94819983"], +Cell[18701, 577, 273, 4, 46, "Output",ExpressionUUID->"23b71c3e-e500-4dd7-90a5-600976b6346f"] }, Open ]], Cell[CellGroupData[{ -Cell[153139, 3633, 213, 6, 70, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], -Cell[153355, 3641, 171, 3, 70, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] -}, Open ]], -Cell[153541, 3647, 244, 5, 70, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], -Cell[CellGroupData[{ -Cell[153810, 3656, 558, 19, 70, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[154371, 3677, 173, 3, 70, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +Cell[19011, 586, 295, 5, 40, "Input",ExpressionUUID->"6a41c0e6-c209-4a4d-95d2-5a5112da970e"], +Cell[19309, 593, 273, 4, 46, "Output",ExpressionUUID->"2221af45-630d-4a99-b92e-d33a8fdf03c9"] }, Open ]], Cell[CellGroupData[{ -Cell[154581, 3685, 170, 5, 70, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[154754, 3692, 171, 3, 70, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +Cell[19619, 602, 219, 4, 40, "Input",ExpressionUUID->"f77919a5-b150-4212-a6bf-f662c19a9cdf"], +Cell[19841, 608, 275, 4, 46, "Output",ExpressionUUID->"a50805d3-20af-4818-8cb2-76daafdde0ce"] }, Open ]], Cell[CellGroupData[{ -Cell[154962, 3700, 181, 5, 70, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[155146, 3707, 173, 3, 70, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +Cell[20153, 617, 350, 10, 59, "Input",ExpressionUUID->"17effdc7-36fb-48f4-bb75-62d57937eddb"], +Cell[20506, 629, 297, 4, 46, "Output",ExpressionUUID->"e9b0b1a5-0695-4dd7-840b-6cbbe25be298"] }, Open ]], Cell[CellGroupData[{ -Cell[155356, 3715, 6055, 185, 70, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[161414, 3902, 175, 3, 70, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +Cell[20840, 638, 350, 10, 59, "Input",ExpressionUUID->"890b183b-a2d1-449a-b7bf-0e0e45f95fba"], +Cell[21193, 650, 303, 5, 46, "Output",ExpressionUUID->"9b00a15b-68e9-4aa8-a1fd-3adbb56b4f8d"] }, Open ]], Cell[CellGroupData[{ -Cell[161626, 3910, 368, 9, 70, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[161997, 3921, 172, 3, 70, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +Cell[21533, 660, 994, 26, 60, "Input",ExpressionUUID->"eb0d4add-a02f-4521-93d4-b208efceb5ff"], +Cell[22530, 688, 289, 4, 46, "Output",ExpressionUUID->"763f35a6-e85d-431b-91f7-584b0f3d0dd6"] }, Open ]], Cell[CellGroupData[{ -Cell[162206, 3929, 6122, 187, 70, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[168331, 4118, 173, 3, 70, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +Cell[22856, 697, 199, 3, 40, "Input",ExpressionUUID->"9e2429db-14e5-43ca-882a-30807041eab1"], +Cell[23058, 702, 272, 4, 46, "Output",ExpressionUUID->"669b9b64-9990-482c-90b4-e3980a0a590c"] }, Open ]], Cell[CellGroupData[{ -Cell[168541, 4126, 368, 9, 70, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[168912, 4137, 170, 3, 70, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +Cell[23367, 711, 326, 5, 40, "Input",ExpressionUUID->"ddcce324-a0cb-4dd9-95eb-303166f0a635"], +Cell[23696, 718, 250, 4, 46, "Output",ExpressionUUID->"ad57d305-ae83-4996-a1fa-c79dbe2a0731"] +}, Open ]], +Cell[23961, 725, 173, 2, 57, "Input",ExpressionUUID->"ddbe11e2-d7b2-4b53-9e3c-a490f52ae499"], +Cell[CellGroupData[{ +Cell[24159, 731, 327, 5, 40, "Input",ExpressionUUID->"218e1623-3987-47d5-b450-7973b006819a"], +Cell[24489, 738, 255, 4, 46, "Output",ExpressionUUID->"828af726-7616-42b4-8d05-47f0762b9792"] +}, Open ]], +Cell[24759, 745, 173, 2, 57, "Input",ExpressionUUID->"955fb12c-a1ab-4a3b-9086-81cd4f05a9e3"], +Cell[CellGroupData[{ +Cell[24957, 751, 329, 5, 40, "Input",ExpressionUUID->"0d782163-1796-48c2-afc2-4187768112e8"], +Cell[25289, 758, 252, 4, 46, "Output",ExpressionUUID->"b1a1cf2e-1261-4a1a-81e0-fe43797d6182"] +}, Open ]], +Cell[25556, 765, 173, 2, 57, "Input",ExpressionUUID->"703549f0-15cf-4f83-bf7d-9edca30d7441"], +Cell[CellGroupData[{ +Cell[25754, 771, 354, 5, 40, "Input",ExpressionUUID->"41efb9a2-d46c-4a67-a704-26577721cbcb"], +Cell[26111, 778, 252, 4, 46, "Output",ExpressionUUID->"eb83a49e-4815-4a62-91b2-99ec94ea5c1b"] +}, Open ]], +Cell[26378, 785, 171, 2, 57, "Input",ExpressionUUID->"6e9b8f45-c7ef-4493-82b4-42f269beb463"], +Cell[CellGroupData[{ +Cell[26574, 791, 299, 5, 40, "Input",ExpressionUUID->"cc2524cc-ca4d-460e-82c8-dcde4d2547f8"], +Cell[26876, 798, 251, 4, 46, "Output",ExpressionUUID->"fe52d7c8-8345-48b2-835d-7c5de5928ef9"] +}, Open ]], +Cell[27142, 805, 171, 2, 57, "Input",ExpressionUUID->"6b84c17b-8c22-430b-a207-f9a3e4a268d2"], +Cell[CellGroupData[{ +Cell[27338, 811, 303, 5, 40, "Input",ExpressionUUID->"19aaada3-98f7-4f5b-99c0-a9577f187cf3"], +Cell[27644, 818, 255, 4, 46, "Output",ExpressionUUID->"1dd60c17-157f-4e21-b965-c11701611809"] +}, Open ]], +Cell[27914, 825, 173, 2, 57, "Input",ExpressionUUID->"d47150e8-9705-44d7-8c76-69aaa218dedd"], +Cell[CellGroupData[{ +Cell[28112, 831, 306, 5, 40, "Input",ExpressionUUID->"6d3e0801-72ef-4e3d-94c6-6c7a2e74b556"], +Cell[28421, 838, 251, 4, 46, "Output",ExpressionUUID->"b44f9eea-bfc0-43e5-b338-2f11eb50b4c7"] +}, Open ]], +Cell[28687, 845, 172, 2, 57, "Input",ExpressionUUID->"43f91a28-3e0d-49f9-9122-532bce416b6f"], +Cell[CellGroupData[{ +Cell[28884, 851, 275, 4, 40, "Input",ExpressionUUID->"07b09028-4fb0-4da2-a7a6-952eab392377"], +Cell[29162, 857, 250, 4, 46, "Output",ExpressionUUID->"01cbd7aa-c9be-47b2-83d6-2295098c56e4"] +}, Open ]], +Cell[29427, 864, 175, 2, 57, "Input",ExpressionUUID->"84ff10ce-b3c4-455b-8a96-d893c2484886"], +Cell[CellGroupData[{ +Cell[29627, 870, 19809, 485, 1847, "Input",ExpressionUUID->"b7d7f1fe-053c-442b-b851-74dffea538c2"], +Cell[49439, 1357, 288, 4, 46, "Output",ExpressionUUID->"0b907081-d083-49a0-9dbc-4dd304d6196c"] }, Open ]], Cell[CellGroupData[{ -Cell[169119, 4145, 2663, 88, 70, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[171785, 4235, 171, 3, 70, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +Cell[49764, 1366, 19748, 489, 1862, "Input",ExpressionUUID->"067baf66-454d-4cff-973f-02e2e4fc6269"], +Cell[69515, 1857, 290, 4, 46, "Output",ExpressionUUID->"88111183-1015-48e1-9c58-12f014c02301"] }, Open ]], Cell[CellGroupData[{ -Cell[171993, 4243, 2603, 85, 70, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[174599, 4330, 171, 3, 70, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +Cell[69842, 1866, 19748, 483, 1861, "Input",ExpressionUUID->"a93a841f-a6ed-4f83-85a7-d3b0c3d57a20"], +Cell[89593, 2351, 302, 5, 46, "Output",ExpressionUUID->"d82663ca-710a-4817-a26d-c4958b570a32"] }, Open ]], Cell[CellGroupData[{ -Cell[174807, 4338, 3712, 118, 70, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[178522, 4458, 170, 3, 70, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +Cell[89932, 2361, 22534, 553, 2040, "Input",ExpressionUUID->"9c5d16fe-ab02-4622-a1a3-ede84e76c485"], +Cell[112469, 2916, 303, 5, 46, "Output",ExpressionUUID->"c7207fbc-b710-456f-9031-f8d28765e02f"] }, Open ]], Cell[CellGroupData[{ -Cell[178729, 4466, 2052, 59, 70, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], -Cell[180784, 4527, 573, 12, 70, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], -Cell[181360, 4541, 577, 12, 70, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], -Cell[181940, 4555, 580, 12, 70, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], -Cell[182523, 4569, 456, 10, 70, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], -Cell[182982, 4581, 170, 3, 70, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +Cell[112809, 2926, 22535, 553, 2040, "Input",ExpressionUUID->"ec3ebd5f-0fe3-4570-93b3-af240429cf85"], +Cell[135347, 3481, 310, 5, 46, "Output",ExpressionUUID->"eee6e1c8-9c14-4710-98f9-466b37f6b606"] }, Open ]], Cell[CellGroupData[{ -Cell[183189, 4589, 2054, 59, 70, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], -Cell[185246, 4650, 573, 12, 70, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], -Cell[185822, 4664, 577, 12, 70, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], -Cell[186402, 4678, 582, 12, 70, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], -Cell[186987, 4692, 456, 10, 70, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], -Cell[187446, 4704, 170, 3, 70, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +Cell[135694, 3491, 25491, 626, 2249, "Input",ExpressionUUID->"5feb26db-6c57-4e6a-a2ea-0103f51e7297"], +Cell[161188, 4119, 302, 5, 46, "Output",ExpressionUUID->"be377a84-2eb0-4f12-a858-8de382220794"] }, Open ]], Cell[CellGroupData[{ -Cell[187653, 4712, 2028, 55, 70, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], -Cell[189684, 4769, 20422, 382, 70, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +Cell[161527, 4129, 130, 2, 40, "Input",ExpressionUUID->"0de8bf1f-268e-4f16-917e-b806c8eb0e41"], +Cell[161660, 4133, 271, 4, 46, "Output",ExpressionUUID->"5f828fd4-6793-4b71-902b-2b91b0840bb9"] }, Open ]], Cell[CellGroupData[{ -Cell[210143, 5156, 2120, 60, 70, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], -Cell[212266, 5218, 502, 11, 70, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], -Cell[212771, 5231, 506, 11, 70, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], -Cell[213280, 5244, 505, 11, 70, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], -Cell[213788, 5257, 458, 10, 70, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], -Cell[214249, 5269, 22288, 412, 70, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] -}, Open ]], -Cell[236552, 5684, 209, 5, 70, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], -Cell[CellGroupData[{ -Cell[236786, 5693, 1616, 48, 70, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], -Cell[238405, 5743, 595, 12, 70, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], -Cell[239003, 5757, 595, 12, 70, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], -Cell[239601, 5771, 599, 12, 70, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], -Cell[240203, 5785, 456, 10, 70, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], -Cell[240662, 5797, 171, 3, 70, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +Cell[161968, 4142, 130, 2, 40, "Input",ExpressionUUID->"e4f6fb00-3dde-454b-beaf-3e6ae6f55bbd"], +Cell[162101, 4146, 274, 4, 46, "Output",ExpressionUUID->"73dc94b0-9b51-447d-bfb6-e86981388033"] }, Open ]], Cell[CellGroupData[{ -Cell[240870, 5805, 2248, 64, 70, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], -Cell[243121, 5871, 575, 12, 70, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], -Cell[243699, 5885, 577, 12, 70, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], -Cell[244279, 5899, 582, 12, 70, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], -Cell[244864, 5913, 458, 10, 70, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], -Cell[245325, 5925, 172, 3, 70, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +Cell[162412, 4155, 1144, 39, 79, "Input",ExpressionUUID->"011cafc8-f690-4e49-bf9f-c84ec9192e78"], +Cell[163559, 4196, 285, 4, 46, "Output",ExpressionUUID->"367fab02-93d5-4ab5-a39a-eec77217cc90"] }, Open ]], Cell[CellGroupData[{ -Cell[245534, 5933, 2215, 63, 70, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], -Cell[247752, 5998, 575, 12, 70, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], -Cell[248330, 6012, 577, 12, 70, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], -Cell[248910, 6026, 582, 12, 70, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], -Cell[249495, 6040, 458, 10, 70, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], -Cell[249956, 6052, 170, 3, 70, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +Cell[163881, 4205, 1041, 35, 79, "Input",ExpressionUUID->"ecfe18d0-7e4f-44af-a0e6-60a70ef2d7a3"], +Cell[164925, 4242, 306, 5, 46, "Output",ExpressionUUID->"61e3c816-c189-423b-8d9a-df950f3ff093"] }, Open ]], Cell[CellGroupData[{ -Cell[250163, 6060, 2223, 64, 70, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], -Cell[252389, 6126, 573, 12, 70, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], -Cell[252965, 6140, 577, 12, 70, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], -Cell[253545, 6154, 580, 12, 70, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], -Cell[254128, 6168, 456, 10, 70, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], -Cell[254587, 6180, 173, 3, 70, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +Cell[165268, 4252, 1144, 39, 79, "Input",ExpressionUUID->"317d5665-0ff0-4ffe-8df5-bf48540bee10"], +Cell[166415, 4293, 288, 4, 46, "Output",ExpressionUUID->"c711988c-fa70-4e4c-aee4-8452b67b644d"] }, Open ]], Cell[CellGroupData[{ -Cell[254797, 6188, 213, 6, 70, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], -Cell[255013, 6196, 173, 3, 70, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] -}, Open ]], -Cell[255201, 6202, 247, 5, 70, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], -Cell[CellGroupData[{ -Cell[255473, 6211, 558, 19, 70, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[256034, 6232, 173, 3, 70, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +Cell[166740, 4302, 108, 1, 40, "Input",ExpressionUUID->"e2e2fbfc-ee8c-4704-beee-27f2931a7624"], +Cell[166851, 4305, 286, 4, 46, "Output",ExpressionUUID->"bf23a887-be6b-4c44-9b4a-3ea366f0da29"] }, Open ]], Cell[CellGroupData[{ -Cell[256244, 6240, 170, 5, 70, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[256417, 6247, 173, 3, 70, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +Cell[167174, 4314, 108, 1, 40, "Input",ExpressionUUID->"1168b0d7-de9d-49ff-8c83-e4efb9931e13"], +Cell[167285, 4317, 310, 5, 46, "Output",ExpressionUUID->"ccae00cc-8cd1-4611-9f5b-b2bde62c6441"] }, Open ]], Cell[CellGroupData[{ -Cell[256627, 6255, 181, 5, 70, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[256811, 6262, 173, 3, 70, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +Cell[167632, 4327, 108, 1, 40, "Input",ExpressionUUID->"51e085aa-291a-47e0-aaa9-ed2870dd7cd7"], +Cell[167743, 4330, 307, 5, 46, "Output",ExpressionUUID->"de5e093c-744a-47c0-9df7-d755f33d6298"] }, Open ]], Cell[CellGroupData[{ -Cell[257021, 6270, 6055, 185, 70, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[263079, 6457, 172, 3, 70, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +Cell[168087, 4340, 108, 1, 40, "Input",ExpressionUUID->"f670fee2-9875-46de-931a-ba5b79c31784"], +Cell[168198, 4343, 289, 4, 46, "Output",ExpressionUUID->"906373f1-5147-4f22-b016-d498c7f389bc"] }, Open ]], Cell[CellGroupData[{ -Cell[263288, 6465, 368, 9, 70, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[263659, 6476, 172, 3, 70, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +Cell[168524, 4352, 107, 1, 40, "Input",ExpressionUUID->"3f327840-3220-4237-a4f1-9cbeddb8b61d"], +Cell[168634, 4355, 290, 4, 46, "Output",ExpressionUUID->"1e370c28-e539-4c1a-8f7f-3837950b1aac"] }, Open ]], Cell[CellGroupData[{ -Cell[263868, 6484, 6122, 187, 70, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[269993, 6673, 173, 3, 70, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +Cell[168961, 4364, 107, 1, 40, "Input",ExpressionUUID->"3124d911-bc02-4559-972c-9b3001b02567"], +Cell[169071, 4367, 287, 4, 46, "Output",ExpressionUUID->"7dbb7d35-328c-4942-a7be-8a5a61e27b0e"] }, Open ]], Cell[CellGroupData[{ -Cell[270203, 6681, 368, 9, 70, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[270574, 6692, 170, 3, 70, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +Cell[169395, 4376, 497, 16, 77, "Input",ExpressionUUID->"7b631c24-2f8a-4bcb-8844-706912f40583"], +Cell[169895, 4394, 308, 5, 46, "Output",ExpressionUUID->"213535b4-6b5d-4200-b59a-e7a2b9550591"] }, Open ]], Cell[CellGroupData[{ -Cell[270781, 6700, 2663, 88, 70, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[273447, 6790, 171, 3, 70, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +Cell[170240, 4404, 497, 16, 77, "Input",ExpressionUUID->"529b76c8-b00c-42fd-b792-3383512c7250"], +Cell[170740, 4422, 301, 5, 46, "Output",ExpressionUUID->"c47b283d-7d16-4029-81a7-4c3063e4c755"] }, Open ]], Cell[CellGroupData[{ -Cell[273655, 6798, 2603, 85, 70, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[276261, 6885, 173, 3, 70, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +Cell[171078, 4432, 1788, 60, 187, "Input",ExpressionUUID->"a585ee79-aeb4-4151-a0c8-0870e53c46ab"], +Cell[172869, 4494, 287, 4, 46, "Output",ExpressionUUID->"e6ac5039-34fd-47ac-96c0-d186815d93cc"] }, Open ]], Cell[CellGroupData[{ -Cell[276471, 6893, 3712, 118, 70, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[280186, 7013, 173, 3, 70, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +Cell[173193, 4503, 1101, 36, 79, "Input",ExpressionUUID->"9de94f55-4df8-4c5c-aff2-446adda9627d"], +Cell[174297, 4541, 308, 5, 46, "Output",ExpressionUUID->"23b7e792-4f9a-499a-b73c-5796e65fd7c2"] }, Open ]], Cell[CellGroupData[{ -Cell[280396, 7021, 2052, 59, 70, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], -Cell[282451, 7082, 568, 12, 70, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], -Cell[283022, 7096, 573, 12, 70, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], -Cell[283598, 7110, 576, 12, 70, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], -Cell[284177, 7124, 458, 10, 70, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], -Cell[284638, 7136, 172, 3, 70, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +Cell[174642, 4551, 1818, 61, 155, "Input",ExpressionUUID->"7f6710eb-4913-476a-99aa-122cfbce3b67"], +Cell[176463, 4614, 285, 4, 46, "Output",ExpressionUUID->"5f8acbbc-17b9-4e89-85ef-d0559133f1f1"] }, Open ]], Cell[CellGroupData[{ -Cell[284847, 7144, 2052, 59, 70, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], -Cell[286902, 7205, 568, 12, 70, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], -Cell[287473, 7219, 573, 12, 70, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], -Cell[288049, 7233, 574, 12, 70, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], -Cell[288626, 7247, 458, 10, 70, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], -Cell[289087, 7259, 172, 3, 70, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +Cell[176785, 4623, 1631, 53, 111, "Input",ExpressionUUID->"3f4e2e44-69a6-4bf3-8564-603d14af133d"], +Cell[178419, 4678, 289, 4, 46, "Output",ExpressionUUID->"769709e0-e40a-458e-8958-aa0f2367b0b3"] }, Open ]], Cell[CellGroupData[{ -Cell[289296, 7267, 2028, 55, 70, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], -Cell[291327, 7324, 20375, 384, 70, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +Cell[178745, 4687, 1710, 55, 192, "Input",ExpressionUUID->"69a8c366-33b0-4251-acaa-6fc0b063b69b"], +Cell[180458, 4744, 290, 4, 46, "Output",ExpressionUUID->"c4547aaa-0b84-4fb1-95d6-0b678f87d2ee"] }, Open ]], Cell[CellGroupData[{ -Cell[311739, 7713, 2118, 60, 70, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], -Cell[313860, 7775, 501, 11, 70, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], -Cell[314364, 7788, 503, 11, 70, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], -Cell[314870, 7801, 506, 11, 70, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], -Cell[315379, 7814, 458, 10, 70, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], -Cell[315840, 7826, 22161, 409, 70, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +Cell[180785, 4753, 200, 3, 40, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[180988, 4758, 157, 2, 46, "Output",ExpressionUUID->"b82f809e-feed-4820-bf7d-4b0e49954b1c"] }, Open ]], -Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[181160, 4763, 175, 2, 40, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], Cell[CellGroupData[{ -Cell[338250, 8247, 1616, 48, 70, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], -Cell[339869, 8297, 590, 12, 70, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], -Cell[340462, 8311, 589, 12, 70, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], -Cell[341054, 8325, 593, 12, 70, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], -Cell[341650, 8339, 456, 10, 70, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], -Cell[342109, 8351, 170, 3, 70, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +Cell[181360, 4769, 200, 3, 40, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[181563, 4774, 155, 2, 46, "Output",ExpressionUUID->"77d8e223-b900-432c-ae48-c33f02b35ece"] +}, Open ]], +Cell[181733, 4779, 171, 2, 40, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[181929, 4785, 1297, 42, 67, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[183229, 4829, 195, 2, 46, "Output",ExpressionUUID->"4b5e5ca3-6e81-4372-9184-4685a4484b93"] }, Open ]], Cell[CellGroupData[{ -Cell[342316, 8359, 2251, 64, 70, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], -Cell[344570, 8425, 568, 12, 70, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], -Cell[345141, 8439, 573, 12, 70, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], -Cell[345717, 8453, 574, 12, 70, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], -Cell[346294, 8467, 458, 10, 70, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], -Cell[346755, 8479, 173, 3, 70, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +Cell[183461, 4836, 927, 30, 79, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[184391, 4868, 194, 2, 46, "Output",ExpressionUUID->"f7dbb150-d982-4010-8eca-de79146d262c"] }, Open ]], Cell[CellGroupData[{ -Cell[346965, 8487, 2221, 64, 70, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], -Cell[349189, 8553, 570, 12, 70, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], -Cell[349762, 8567, 573, 12, 70, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], -Cell[350338, 8581, 573, 12, 70, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], -Cell[350914, 8595, 458, 10, 70, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], -Cell[351375, 8607, 171, 3, 70, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +Cell[184622, 4875, 906, 29, 79, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[185531, 4906, 196, 2, 46, "Output",ExpressionUUID->"d0471a4d-151a-4d07-a5a0-a5b0afb1c927"] }, Open ]], Cell[CellGroupData[{ -Cell[351583, 8615, 2221, 64, 70, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], -Cell[353807, 8681, 570, 12, 70, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], -Cell[354380, 8695, 573, 12, 70, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], -Cell[354956, 8709, 574, 12, 70, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], -Cell[355533, 8723, 458, 10, 70, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], -Cell[355994, 8735, 173, 3, 70, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +Cell[185764, 4913, 554, 18, 73, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[186321, 4933, 190, 2, 46, "Output",ExpressionUUID->"54dd67f5-d856-4c19-8914-969e2501e483"] }, Open ]], Cell[CellGroupData[{ -Cell[356204, 8743, 215, 6, 70, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], -Cell[356422, 8751, 172, 3, 70, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +Cell[186548, 4940, 647, 21, 73, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[187198, 4963, 187, 2, 46, "Output",ExpressionUUID->"26d88b4f-da6f-4d4f-a06b-096e64f628a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187422, 4970, 166, 4, 77, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[187591, 4976, 188, 2, 46, "Output",ExpressionUUID->"141510a0-3354-4413-b23b-3945c17d1129"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187816, 4983, 166, 4, 77, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[187985, 4989, 188, 2, 46, "Output",ExpressionUUID->"e7cfdbd1-6e5b-487e-9b2d-8ae793154dac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188210, 4996, 177, 4, 60, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[188390, 5002, 190, 2, 46, "Output",ExpressionUUID->"4bbcbdc3-7d7e-4cb2-b125-393ff09dfbb7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188617, 5009, 177, 4, 60, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[188797, 5015, 189, 2, 46, "Output",ExpressionUUID->"3d8dd4a7-88e1-4023-a1c2-c761277bb675"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189023, 5022, 6051, 184, 465, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[195077, 5208, 192, 2, 46, "Output",ExpressionUUID->"696078d8-7ff5-44db-a656-ad1cb392cf71"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195306, 5215, 364, 8, 58, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[195673, 5225, 187, 2, 46, "Output",ExpressionUUID->"0801e62a-4625-480f-b2a6-59d657340723"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195897, 5232, 6118, 186, 465, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[202018, 5420, 192, 2, 46, "Output",ExpressionUUID->"58dac994-a73d-4d44-a6da-966e18b322ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202247, 5427, 364, 8, 58, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[202614, 5437, 188, 2, 46, "Output",ExpressionUUID->"07753253-f145-47b3-9e26-6137c9319e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202839, 5444, 2659, 87, 232, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[205501, 5533, 192, 2, 46, "Output",ExpressionUUID->"30175c83-746f-4e9c-85cc-db63d3caa72b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205730, 5540, 2599, 84, 232, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[208332, 5626, 188, 2, 46, "Output",ExpressionUUID->"25694695-e405-41c4-acb5-0854c1fd6a02"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208557, 5633, 3708, 117, 341, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[212268, 5752, 190, 2, 46, "Output",ExpressionUUID->"b94c0b1d-5b52-4ae8-b1f8-22147550b50b"] +}, Open ]], +Cell[212473, 5757, 160, 3, 40, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[212658, 5764, 2073, 58, 127, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[214734, 5824, 598, 13, 82, "Message",ExpressionUUID->"d120a938-d2ee-427b-924c-072f3e4bb235"], +Cell[215335, 5839, 600, 13, 82, "Message",ExpressionUUID->"3020bb2b-8f63-4b27-bc8b-5352fb392fdf"], +Cell[215938, 5854, 606, 13, 82, "Message",ExpressionUUID->"f67ae8e8-fec0-498a-9e62-44462c9a6c42"], +Cell[216547, 5869, 492, 11, 36, "Message",ExpressionUUID->"e5265b27-cab4-4c93-b2a3-9e09d2e47512"], +Cell[217042, 5882, 190, 2, 46, "Output",ExpressionUUID->"0114c7c2-26dc-4514-88f4-f5384429c8f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217269, 5889, 2071, 58, 127, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[219343, 5949, 594, 13, 82, "Message",ExpressionUUID->"3e664c4f-4d51-4f8d-a819-f4739d3abeb6"], +Cell[219940, 5964, 598, 13, 82, "Message",ExpressionUUID->"055cdd7e-b588-40dc-803a-d2c00f6188c6"], +Cell[220541, 5979, 604, 13, 82, "Message",ExpressionUUID->"c3f18acc-7159-456d-b310-a0968e34aafc"], +Cell[221148, 5994, 492, 11, 36, "Message",ExpressionUUID->"f5eee997-1099-42fb-8e9e-1e5fe98acf0c"], +Cell[221643, 6007, 188, 2, 46, "Output",ExpressionUUID->"23ea6c29-917e-4554-bb10-dbf27daf2f1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221868, 6014, 1955, 52, 292, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[223826, 6068, 20281, 382, 334, "Output",ExpressionUUID->"da73068e-e268-4f3d-a234-915aae7594fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244144, 6455, 2111, 59, 387, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[246258, 6516, 534, 12, 105, "Message",ExpressionUUID->"7585ec4b-168f-4982-9229-467e60eee184"], +Cell[246795, 6530, 541, 12, 105, "Message",ExpressionUUID->"3953e88a-97a2-4b58-85ef-84ff4e82b332"], +Cell[247339, 6544, 541, 12, 105, "Message",ExpressionUUID->"c81ddf5a-084f-4ede-ab02-70f6f6b55656"], +Cell[247883, 6558, 491, 11, 60, "Message",ExpressionUUID->"fc97d8c3-ec6f-4a54-bee0-2c32843b269c"], +Cell[248377, 6571, 26653, 485, 325, "Output",ExpressionUUID->"480b959a-4ade-4c9b-bc63-5a4b9bd59a7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[275067, 7061, 2475, 69, 323, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[277545, 7132, 9492, 222, 334, "Output",ExpressionUUID->"a32a2954-e12e-408a-9880-3836c37c42bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[287074, 7359, 228, 4, 40, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[287305, 7365, 33013, 617, 325, "Output",ExpressionUUID->"f5de0314-21b7-4f9b-a88c-4d83d39aa131"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320355, 7987, 236, 6, 67, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[320594, 7995, 189, 2, 46, "Output",ExpressionUUID->"993649d1-6614-4983-9190-521cfc3b0486"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320820, 8002, 1833, 52, 339, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[322656, 8056, 549, 12, 112, "Message",ExpressionUUID->"4909004b-e1aa-4d57-9eb2-3f30262b0802"], +Cell[323208, 8070, 551, 12, 112, "Message",ExpressionUUID->"5961010a-60cf-4c70-8f6a-81a8551de6c4"], +Cell[323762, 8084, 644, 14, 108, "Message",ExpressionUUID->"311a200f-f9eb-4ba7-9961-50bde8deb21e"], +Cell[324409, 8100, 493, 11, 60, "Message",ExpressionUUID->"d104e16b-55ba-4078-85cd-f51f4b22fef1"], +Cell[324905, 8113, 23053, 425, 325, "Output",ExpressionUUID->"c898a668-7532-4098-95de-d1e83c1761f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347995, 8543, 1616, 48, 144, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[349614, 8593, 647, 14, 84, "Message",ExpressionUUID->"415cddfa-8b28-4326-8197-2049a8c90b96"], +Cell[350264, 8609, 650, 14, 84, "Message",ExpressionUUID->"4ee4ddb5-d87a-461f-a5cf-c612594a6eb1"], +Cell[350917, 8625, 648, 14, 84, "Message",ExpressionUUID->"72909d4a-284f-47a4-9d64-094e4579c7b4"], +Cell[351568, 8641, 493, 11, 60, "Message",ExpressionUUID->"aae1ac21-e99c-46fb-babd-9e5364d75b67"], +Cell[352064, 8654, 195, 3, 46, "Output",ExpressionUUID->"236c66d6-6b5d-4fe5-ab43-4de8ccb86d68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352296, 8662, 2296, 65, 461, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[354595, 8729, 648, 14, 84, "Message",ExpressionUUID->"7c01f7c2-aa58-438d-a3a6-cf40576608a5"], +Cell[355246, 8745, 649, 14, 84, "Message",ExpressionUUID->"6da93b58-2467-4078-a9b8-a570eedfaffd"], +Cell[355898, 8761, 649, 14, 84, "Message",ExpressionUUID->"17d3ad8b-da65-43e0-8f83-0df7e777d3af"], +Cell[356550, 8777, 495, 11, 60, "Message",ExpressionUUID->"0406ff55-1d80-4488-aaf8-6ec69b0a1539"], +Cell[357048, 8790, 196, 3, 46, "Output",ExpressionUUID->"57be959d-5e74-4641-a568-8dbfbd16d181"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357281, 8798, 2233, 63, 461, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[359517, 8863, 648, 14, 84, "Message",ExpressionUUID->"fa28c372-dd2d-404b-8a3b-ee9469552f38"], +Cell[360168, 8879, 647, 14, 84, "Message",ExpressionUUID->"6a9fe898-2b11-409b-8a76-46471489e142"], +Cell[360818, 8895, 649, 14, 84, "Message",ExpressionUUID->"7fc3e50a-8eac-4065-8c9a-d3287d04e1a4"], +Cell[361470, 8911, 495, 11, 60, "Message",ExpressionUUID->"7f83fc66-3c88-4040-88b7-37ae9a8569d4"], +Cell[361968, 8924, 194, 3, 46, "Output",ExpressionUUID->"5b7afadd-93d8-4e3a-9516-23ff8a2642be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362199, 8932, 2235, 63, 461, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[364437, 8997, 648, 14, 84, "Message",ExpressionUUID->"495a5dd5-0746-4ec9-9816-b2ad61d47316"], +Cell[365088, 9013, 649, 14, 84, "Message",ExpressionUUID->"49631495-583b-4d72-9297-09ce210d53bd"], +Cell[365740, 9029, 651, 14, 84, "Message",ExpressionUUID->"163c53f3-a785-4068-88e0-74268c3538bb"], +Cell[366394, 9045, 497, 11, 60, "Message",ExpressionUUID->"3fc33bb0-5a0f-4a67-ae62-784689daf834"], +Cell[366894, 9058, 194, 3, 46, "Output",ExpressionUUID->"7351f5e4-7267-41e2-a110-f1d9d2e005f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367125, 9066, 236, 6, 66, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[367364, 9074, 194, 3, 46, "Output",ExpressionUUID->"b4f47a21-1428-405f-89d4-b7468e998dda"] +}, Open ]], +Cell[367573, 9080, 270, 6, 40, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[367868, 9090, 558, 19, 73, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[368429, 9111, 195, 3, 46, "Output",ExpressionUUID->"43a7c1ec-adfe-41d5-88a5-16981e09c46a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368661, 9119, 170, 5, 77, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[368834, 9126, 193, 3, 46, "Output",ExpressionUUID->"0476c042-b180-4c5f-a359-6b888f67bedf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369064, 9134, 181, 5, 60, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[369248, 9141, 196, 3, 46, "Output",ExpressionUUID->"6ff29c86-8ab3-40ce-9b06-460a10cd404b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369481, 9149, 6055, 185, 1094, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[375539, 9336, 197, 3, 46, "Output",ExpressionUUID->"83406fa2-507c-46c8-9fc9-2ec8ff04aa55"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375773, 9344, 368, 9, 58, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[376144, 9355, 194, 3, 46, "Output",ExpressionUUID->"a433a290-6996-4507-8791-4bbc3db58d4f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376375, 9363, 6122, 187, 1094, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[382500, 9552, 195, 3, 46, "Output",ExpressionUUID->"992879f2-be49-4383-aec4-b751bacf8afd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382732, 9560, 368, 9, 58, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[383103, 9571, 197, 3, 46, "Output",ExpressionUUID->"24090173-e4f2-4ab1-8e97-e2a987ad27ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383337, 9579, 2663, 88, 470, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[386003, 9669, 194, 3, 46, "Output",ExpressionUUID->"9b2c1270-3f52-47fc-a8e0-f4f225e577c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386234, 9677, 2603, 85, 470, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[388840, 9764, 191, 3, 46, "Output",ExpressionUUID->"f32d4872-70c3-423e-beca-99174cd105d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389068, 9772, 3712, 118, 620, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[392783, 9892, 193, 3, 46, "Output",ExpressionUUID->"a0f8cfa6-70ed-4dd6-89e3-bf6ddbd6a4c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393013, 9900, 2101, 60, 292, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[395117, 9962, 649, 14, 84, "Message",ExpressionUUID->"bd69c26f-0e25-48ef-835c-9ae5ed589214"], +Cell[395769, 9978, 646, 14, 84, "Message",ExpressionUUID->"8e004243-2e29-4489-9338-d49d51f8baaf"], +Cell[396418, 9994, 649, 14, 84, "Message",ExpressionUUID->"f52c7dc5-d2b3-45c5-8240-ed8f7fe62370"], +Cell[397070, 10010, 491, 11, 60, "Message",ExpressionUUID->"736c2dd2-0b2a-46e7-8e93-db9bb57c028c"], +Cell[397564, 10023, 192, 3, 46, "Output",ExpressionUUID->"cd3eab2e-71fc-4085-9926-fdbc6ba6794e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397793, 10031, 2103, 60, 292, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[399899, 10093, 647, 14, 84, "Message",ExpressionUUID->"a333acf8-b79d-4b48-bc90-c8f72931d6b0"], +Cell[400549, 10109, 646, 14, 84, "Message",ExpressionUUID->"8cb40e0f-acd6-4cdc-9fff-d9f2b2925223"], +Cell[401198, 10125, 646, 14, 84, "Message",ExpressionUUID->"00a7cd6c-fea8-4476-90ac-ae0af6e38c7a"], +Cell[401847, 10141, 495, 11, 60, "Message",ExpressionUUID->"16aa2df7-f840-4077-b1f9-91852ef20dd6"], +Cell[402345, 10154, 191, 3, 46, "Output",ExpressionUUID->"3bb8553f-27a7-40ad-9560-862650f69886"] +}, Open ]], +Cell[CellGroupData[{ +Cell[402573, 10162, 2051, 55, 292, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[404627, 10219, 20029, 377, 331, "Output",ExpressionUUID->"9d091533-2791-4f17-b7cb-a777069d790a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[424693, 10601, 2143, 60, 387, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[426839, 10663, 542, 12, 105, "Message",ExpressionUUID->"b8c46302-5a4e-4e8f-8c7c-a13127b75a01"], +Cell[427384, 10677, 546, 12, 105, "Message",ExpressionUUID->"893cd34d-1098-4f3e-b616-2ec10b9b8420"], +Cell[427933, 10691, 549, 12, 139, "Message",ExpressionUUID->"02cfcf66-339b-46ce-83b0-4ef6022fbae4"], +Cell[428485, 10705, 494, 11, 60, "Message",ExpressionUUID->"d31a0bf5-1060-4afd-98fd-326c704d2932"], +Cell[428982, 10718, 28645, 516, 325, "Output",ExpressionUUID->"76594fc8-3b6c-4530-a6c7-b0d93492aacf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457664, 11239, 232, 5, 40, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[457899, 11246, 35005, 648, 325, "Output",ExpressionUUID->"e88f4f2d-ae8b-48de-996a-d7812de42e00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492941, 11899, 1616, 48, 144, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[494560, 11949, 651, 14, 84, "Message",ExpressionUUID->"9c614eb9-195b-44bb-a7f4-6eebb5399f9e"], +Cell[495214, 11965, 649, 14, 84, "Message",ExpressionUUID->"60bc8dca-b4ce-4785-856a-052e43b48d3a"], +Cell[495866, 11981, 649, 14, 84, "Message",ExpressionUUID->"ebea756e-3669-46ee-a15c-5f94585411d6"], +Cell[496518, 11997, 495, 11, 60, "Message",ExpressionUUID->"d08738be-39e2-49c5-a4e2-2d95d980a2c0"], +Cell[497016, 12010, 195, 3, 46, "Output",ExpressionUUID->"aafb4466-8fcd-4fe0-97df-1d19ab8ea65e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497248, 12018, 2271, 64, 461, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[499522, 12084, 649, 14, 84, "Message",ExpressionUUID->"af8d1b5f-cb37-47e6-b1e8-6dd7f5c5a9f6"], +Cell[500174, 12100, 648, 14, 84, "Message",ExpressionUUID->"d525dc08-bfd3-4df3-baf5-c1ad4dc3a86a"], +Cell[500825, 12116, 651, 14, 84, "Message",ExpressionUUID->"9ab0e9f6-7198-4310-bf4c-4eba73d4e510"], +Cell[501479, 12132, 495, 11, 60, "Message",ExpressionUUID->"17bc7e2d-85d9-40b5-8a69-8145d4373c60"], +Cell[501977, 12145, 195, 3, 46, "Output",ExpressionUUID->"f73fd5a6-b419-4455-afc5-95d03186f354"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502209, 12153, 2229, 63, 461, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[504441, 12218, 649, 14, 84, "Message",ExpressionUUID->"1eea320a-c35a-402b-a219-492d67c12161"], +Cell[505093, 12234, 648, 14, 84, "Message",ExpressionUUID->"a67b7dd7-ba54-44a6-ada5-7ded47bd593d"], +Cell[505744, 12250, 647, 14, 84, "Message",ExpressionUUID->"ae004981-c379-4654-afac-117e067f07fc"], +Cell[506394, 12266, 495, 11, 60, "Message",ExpressionUUID->"f3f77bf6-9d91-4a79-ae98-2b7d9834c89b"], +Cell[506892, 12279, 193, 3, 46, "Output",ExpressionUUID->"b2d600a2-037b-4eab-9294-af6ca8273272"] +}, Open ]], +Cell[CellGroupData[{ +Cell[507122, 12287, 2235, 63, 461, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[509360, 12352, 647, 14, 84, "Message",ExpressionUUID->"95757f49-71ca-4d7a-96e5-b527d06d8456"], +Cell[510010, 12368, 645, 14, 84, "Message",ExpressionUUID->"658c60fb-5cae-4bf8-b795-bbf79d4c8342"], +Cell[510658, 12384, 647, 14, 84, "Message",ExpressionUUID->"0a771320-51ef-4f3c-8feb-1a817adbee53"], +Cell[511308, 12400, 493, 11, 60, "Message",ExpressionUUID->"462a0d2e-61e5-47d6-8de7-8a6e7f274637"], +Cell[511804, 12413, 194, 3, 46, "Output",ExpressionUUID->"2746586a-1133-475d-bad0-80a924aaf0ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512035, 12421, 236, 6, 66, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[512274, 12429, 198, 3, 46, "Output",ExpressionUUID->"57a71fde-78f5-4422-9460-b8d49c89091a"] +}, Open ]], +Cell[512487, 12435, 273, 6, 98, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[512785, 12445, 558, 19, 73, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[513346, 12466, 195, 3, 46, "Output",ExpressionUUID->"38118ce5-edd0-44e1-b864-71d79dc6c1ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[513578, 12474, 170, 5, 77, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[513751, 12481, 195, 3, 46, "Output",ExpressionUUID->"639fd039-28cb-4d96-8752-d8d55241768a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[513983, 12489, 181, 5, 60, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[514167, 12496, 197, 3, 46, "Output",ExpressionUUID->"0a40aee6-f9fa-4d16-abf3-293c40e76a91"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514401, 12504, 6055, 185, 1094, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[520459, 12691, 197, 3, 46, "Output",ExpressionUUID->"98c3b64b-e750-43b6-93e3-30c632d0b16e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[520693, 12699, 368, 9, 58, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[521064, 12710, 194, 3, 46, "Output",ExpressionUUID->"3c9c4ce7-a4ad-4941-a3e2-30bc61063dc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[521295, 12718, 6122, 187, 1094, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[527420, 12907, 194, 3, 46, "Output",ExpressionUUID->"d7c3a4f6-4b31-4a15-877e-943921665020"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527651, 12915, 368, 9, 58, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[528022, 12926, 194, 3, 46, "Output",ExpressionUUID->"93c82b11-10ab-4d8a-8eb4-2460488f6332"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528253, 12934, 2663, 88, 470, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[530919, 13024, 196, 3, 46, "Output",ExpressionUUID->"256c4a06-f56a-478e-b610-578deb2fdbc2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531152, 13032, 2603, 85, 470, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[533758, 13119, 194, 3, 46, "Output",ExpressionUUID->"55d1f2b9-a2cb-401a-abf1-b69fb3df2223"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533989, 13127, 3712, 118, 620, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[537704, 13247, 196, 3, 46, "Output",ExpressionUUID->"95cc062f-a28b-4ead-b50a-15f0280af906"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537937, 13255, 2101, 60, 292, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[540041, 13317, 646, 14, 84, "Message",ExpressionUUID->"a002aaa2-b14a-4a23-a850-eb19597b5d3d"], +Cell[540690, 13333, 649, 14, 84, "Message",ExpressionUUID->"6d7adf2f-a762-4d07-a549-98ad8a067fa0"], +Cell[541342, 13349, 648, 14, 84, "Message",ExpressionUUID->"7e26ce17-58e0-49bb-8f3a-5c66e00f3912"], +Cell[541993, 13365, 493, 11, 60, "Message",ExpressionUUID->"2eb1eb3e-ce5d-4415-b23a-7986a8963956"], +Cell[542489, 13378, 194, 3, 46, "Output",ExpressionUUID->"52afdae0-8c69-4392-9138-466989056d17"] +}, Open ]], +Cell[CellGroupData[{ +Cell[542720, 13386, 2101, 60, 292, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[544824, 13448, 647, 14, 84, "Message",ExpressionUUID->"4def0a14-d1c9-4d33-8475-eab8867231af"], +Cell[545474, 13464, 647, 14, 84, "Message",ExpressionUUID->"8b137b81-80b9-4b74-a394-a3de5106d7f7"], +Cell[546124, 13480, 646, 14, 84, "Message",ExpressionUUID->"4b8fd02d-ef50-45d2-9ec0-c32673e3fafd"], +Cell[546773, 13496, 495, 11, 60, "Message",ExpressionUUID->"3b26d996-e4cf-4e24-949d-383313907b4f"], +Cell[547271, 13509, 197, 3, 46, "Output",ExpressionUUID->"54ba49cd-2394-4ab0-a0e1-de64be9112db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[547505, 13517, 2051, 55, 292, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[549559, 13574, 20318, 382, 331, "Output",ExpressionUUID->"ba12f18c-412c-4754-80dc-b4abaecd6918"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569914, 13961, 2141, 60, 387, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[572058, 14023, 539, 12, 105, "Message",ExpressionUUID->"6a85dd5a-b916-4078-9a53-033a916e7d6c"], +Cell[572600, 14037, 542, 12, 105, "Message",ExpressionUUID->"417d746c-d514-4f29-9c05-277d6a04646b"], +Cell[573145, 14051, 544, 12, 105, "Message",ExpressionUUID->"397625e3-a822-49a6-8f63-e63b7bff01e0"], +Cell[573692, 14065, 495, 11, 60, "Message",ExpressionUUID->"a4008556-81bc-4c98-803c-18fdf1a9e0f7"], +Cell[574190, 14078, 27706, 501, 325, "Output",ExpressionUUID->"dd969a83-7459-43f1-b4f8-744a378f6b1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[601933, 14584, 232, 5, 40, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[602168, 14591, 34063, 633, 325, "Output",ExpressionUUID->"a9ec4b8e-4637-4e78-8ce9-ac188116e32e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[636268, 15229, 1616, 48, 144, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[637887, 15279, 648, 14, 84, "Message",ExpressionUUID->"9c3bf04a-d703-46c1-b534-f233905b3724"], +Cell[638538, 15295, 650, 14, 84, "Message",ExpressionUUID->"2782c85f-4b10-4832-8b68-48f3ff9d301f"], +Cell[639191, 15311, 649, 14, 84, "Message",ExpressionUUID->"de7d8d35-f24e-47c9-9de1-5a5dea13ded1"], +Cell[639843, 15327, 495, 11, 60, "Message",ExpressionUUID->"2d1fc874-3051-4c05-8a7a-353b745fdbae"], +Cell[640341, 15340, 193, 3, 46, "Output",ExpressionUUID->"a7a10224-e390-4f25-89fc-8ad0330e74e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[640571, 15348, 2274, 64, 461, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[642848, 15414, 647, 14, 84, "Message",ExpressionUUID->"e6c3e8aa-5da8-4e3e-bf89-a03b48058a29"], +Cell[643498, 15430, 649, 14, 84, "Message",ExpressionUUID->"d3d3f771-16f9-4837-a96c-919072a89843"], +Cell[644150, 15446, 646, 14, 84, "Message",ExpressionUUID->"3f668db1-61dc-4ffe-966e-74d50f37900f"], +Cell[644799, 15462, 495, 11, 60, "Message",ExpressionUUID->"037193f2-4958-4db5-b22b-d33f94fed3d1"], +Cell[645297, 15475, 196, 3, 46, "Output",ExpressionUUID->"526e7c70-4a92-499d-b2b2-c637516ae1b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[645530, 15483, 2233, 63, 461, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[647766, 15548, 651, 14, 84, "Message",ExpressionUUID->"a6cc368e-c0e6-4765-9ce4-608e6b6f9574"], +Cell[648420, 15564, 649, 14, 84, "Message",ExpressionUUID->"57b0b52b-6119-4f0a-acef-b3b09ea5ec23"], +Cell[649072, 15580, 648, 14, 84, "Message",ExpressionUUID->"09875df1-2707-4e91-83d0-f1fe78bb29dc"], +Cell[649723, 15596, 495, 11, 60, "Message",ExpressionUUID->"c480f299-2d84-490e-89d8-412d8b115cd0"], +Cell[650221, 15609, 191, 3, 46, "Output",ExpressionUUID->"5b931a39-c065-4f66-95bb-5d2001b599e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[650449, 15617, 2233, 63, 461, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[652685, 15682, 649, 14, 84, "Message",ExpressionUUID->"3b187cd9-8f85-4933-806b-bfbff7ec4b63"], +Cell[653337, 15698, 649, 14, 84, "Message",ExpressionUUID->"41c67142-c5fa-408c-8282-7d231fb7f35e"], +Cell[653989, 15714, 648, 14, 84, "Message",ExpressionUUID->"d03d4453-53c7-4199-aac3-f09cc3f822da"], +Cell[654640, 15730, 495, 11, 60, "Message",ExpressionUUID->"c3c60efe-f759-44e9-9d96-2949383f1ed5"], +Cell[655138, 15743, 194, 3, 46, "Output",ExpressionUUID->"09e6baf1-610a-4770-b6df-83b894c5cfb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[655369, 15751, 238, 6, 66, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[655610, 15759, 194, 3, 46, "Output",ExpressionUUID->"5acb1d10-1ea4-4352-9dd9-b733c5035770"] }, Open ]] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw1.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw1.nb index 14330be..e2dbbf2 100644 --- a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw1.nb @@ -3,42 +3,4783 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 419556, 9759] -NotebookOptionsPosition[ 394772, 9385] -NotebookOutlinePosition[ 395226, 9403] -CellTagsIndexPosition[ 395183, 9400] +NotebookDataLength[ 754146, 17367] +NotebookOptionsPosition[ 713465, 16718] +NotebookOutlinePosition[ 713906, 16736] +CellTagsIndexPosition[ 713863, 16733] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ -406cf54e52d1"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848849725815*^9, - 3.9918488497328167`*^9}},ExpressionUUID->"a5161e25-7247-124f-8601-\ -7bcc4af89c62"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "4.2"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993804130253289*^9, 3.9938041708483353`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"eb4f7d99-077a-4902-9ca7-72107ce875c7"], + +Cell[BoxData["4.2`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99380408955241*^9, {3.993804138192917*^9, + 3.993804174131279*^9}, 3.993848807080508*^9, 3.99384998733955*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"94bf6b8f-0d4b-4fc3-9ae4-8179dfb6bd5c"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.99384961269138*^9, 3.9938496131289797`*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"9c0bcff3-0649-4637-a6ef-3bc8c746899d"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ -c079ad464f5d"], + 3.9913196497381973`*^9, 3.993804089814312*^9, {3.993804138273077*^9, + 3.993804174168432*^9}, 3.993848807152666*^9, 3.9938499873861856`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"af1fde50-0702-48e3-88b5-8e8cd8454560"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "154"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993803793560568*^9, 3.9938037958215322`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"8d217eb7-ac45-4636-b319-d70a33b883c0"], + +Cell[BoxData["154"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993804089831574*^9, {3.993804138291234*^9, + 3.993804174184713*^9}, 3.993848807170314*^9, 3.993849987397627*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"6ee7ed3d-dbfd-4afa-88eb-5a9ae9199fb6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"eb5a2db4-dc4c-4b8e-b39a-194b6f817c20"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993804089848836*^9, {3.993804138308714*^9, + 3.9938041741991873`*^9}, 3.993848807187145*^9, 3.993849987408239*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"347e146d-81d5-489b-a73f-1aa4160de046"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"6c3344af-cb78-428c-a28a-b63d1d5ce44c"], + +Cell[BoxData["0.5457500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993804089866067*^9, {3.993804138325652*^9, + 3.993804174213254*^9}, 3.993848807191246*^9, 3.993849987419054*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"3fd90194-6863-46dc-bc20-99cc805acb7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"a20675c7-af4a-43da-a7c2-a3d3d5dbbab8"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9938040898834*^9, {3.993804138342436*^9, + 3.993804174228182*^9}, 3.9938488072167788`*^9, 3.99384998742955*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"47c5968a-b90e-432b-995e-59cbcd06660c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"484f9ade-7b2d-41d0-94e4-d617de45f1d2"], + +Cell[BoxData["6.21772575671982`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.99380408990067*^9, {3.9938041383460903`*^9, + 3.9938041742424393`*^9}, 3.993848807233614*^9, 3.9938499874399977`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"24eb5386-c0e9-4559-b3de-c31fe7acad73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"7838c061-b103-4808-be9b-1acd5ec8c6c9"], + +Cell[BoxData["5.12024575643284`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993804089917811*^9, {3.993804138377798*^9, + 3.993804174256633*^9}, 3.993848807250407*^9, 3.993849987450468*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"47874651-48ec-4093-8b54-8ea327b8ce27"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "1.0205"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993803860237813*^9, 3.993803866623828*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"67a1a5e5-d039-4bd2-a35a-93258c60dff4"], + +Cell[BoxData["1.0205`"], "Output", + CellChangeTimes->{ + 3.993804089951392*^9, {3.993804138395643*^9, 3.993804174270754*^9}, + 3.993848807267117*^9, 3.9938499874609623`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"8e067677-f339-4a52-85c6-b9fa5ba8fe60"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4896"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.99380387128193*^9, 3.9938038777202883`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"6d2dfa28-9b9d-41d3-af97-310da614dca8"], + +Cell[BoxData["0.4896`"], "Output", + CellChangeTimes->{ + 3.9938040899683237`*^9, {3.993804138413007*^9, 3.993804174284833*^9}, + 3.993848807283663*^9, 3.993849987471388*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"cefa81b3-6d1b-43d5-b5b1-3269f65142ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"97dc0520-9918-4eac-988f-ef1f76a98302"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993804090003015*^9, {3.993804138429922*^9, + 3.993804174299185*^9}, 3.993848807299727*^9, 3.99384998748041*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"80d5be71-0acf-437d-8d8e-00e16396aba9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"542ed6e2-8c21-43f0-9cd1-ea382a386f30"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993804090019147*^9, {3.993804138446356*^9, + 3.993804174313979*^9}, 3.993848807315777*^9, 3.993849987487877*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"930f3ed5-f9c3-4943-bacf-3a539080a260"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"b6df73ac-d8a7-4e4e-825f-4bf3e0ce9c0e"], + +Cell[BoxData["2.622074662477555`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.993804090035692*^9, {3.9938041384628077`*^9, + 3.9938041743173933`*^9}, 3.9938488073318787`*^9, 3.9938499874961843`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"14e47b66-4ad8-4561-824e-c30bc7f05619"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"4112b189-3d5e-4450-adff-3c506eb31fe9"], + +Cell[BoxData["1.560486547241578`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993804090054099*^9, {3.993804138479048*^9, + 3.9938041743344707`*^9}, 3.99384880734788*^9, 3.9938499875038853`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"612d9caa-c70a-4ac7-876d-db84e62950c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"7c203fc0-11b1-41d6-b52e-d2c5fc74a0f1"], + +Cell[BoxData["0.2903701468853932`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.993804090071563*^9, {3.993804138496574*^9, + 3.99380417434737*^9}, 3.993848807363336*^9, 3.993849987512147*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"624248a6-2f31-476f-a010-036151757a0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"b4a15a68-fdc1-4f4d-993c-7d9414ba1f1c"], + +Cell[BoxData[ + RowBox[{"-", "0.06800962519581188`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9938040900903397`*^9, {3.993804138513081*^9, + 3.993804174360331*^9}, 3.9938488073821497`*^9, 3.993849987518949*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"f93dd6ca-1c76-4903-8b7c-a9b76d619cc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"8ad661c8-00a1-439f-b4c4-45aecdb593f0"], + +Cell[BoxData[ + RowBox[{"-", "0.40916894338639737`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9938040901078167`*^9, {3.993804138530313*^9, + 3.993804174375409*^9}, 3.9938488073997*^9, 3.993849987526547*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"c3f3f1d4-68d2-46cf-a046-7c8052acbf33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"bbce03cb-2b22-494d-8f4a-ff1f35ed3ac9"], + +Cell[BoxData["0.6026750051187908`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9938040901250677`*^9, {3.993804138546773*^9, + 3.993804174388777*^9}, 3.99384880741957*^9, 3.993849987534913*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"5363130f-6555-49dc-989e-a9ffa6a2479a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"2c5d8b0c-3b8f-4d36-b625-5b11244cad01"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993804090141823*^9, {3.9938041385623407`*^9, + 3.993804174402438*^9}, 3.993848807437189*^9, 3.993849987539216*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"bf838381-d60c-45c5-9b60-d1a7f5df2f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"a5dce572-bde7-49eb-9844-8a75a3a84993"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.993804090158958*^9, {3.993804138578629*^9, + 3.99380417441667*^9}, 3.9938488074549294`*^9, 3.993849987550509*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"2bb0059c-6d82-45f8-8152-af481be22ce4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"4753cc77-a569-4a33-905b-626d222329ce"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993804090177505*^9, {3.993804138595006*^9, + 3.993804174430525*^9}, 3.9938488074728813`*^9, 3.993849987556918*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"b2a30292-ef9d-4c0d-b4b4-d5b0f6b3b532"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"90c42c00-7e8a-452f-8867-3f960d6636af"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993804090194539*^9, {3.993804138611753*^9, + 3.993804174445389*^9}, 3.993848807490819*^9, 3.99384998756374*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"de7efc3d-5845-4d9a-825a-71614b44347f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"f65683b6-ec6f-4ee8-95de-aab34fe7b69f"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9938040902126007`*^9, {3.99380413862824*^9, + 3.9938041744613132`*^9}, 3.993848807508507*^9, 3.993849987570616*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"42039b3e-847e-47ad-bcb4-a1d99727dade"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", " ", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.993803911062066*^9, 3.993803911474206*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"23f5a493-0f81-438e-969e-89e922218514"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993804090230994*^9, {3.9938041386443443`*^9, + 3.993804174475325*^9}, 3.993848807527059*^9, 3.9938499875769043`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"b77bdd59-7885-426a-82af-3d435d258665"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9938496242747927`*^9, 3.993849624371874*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"b63f0be8-e35e-4f59-b736-bce49f5c0ae3"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993804090250367*^9, {3.993804138660377*^9, + 3.993804174489229*^9}, 3.9938488075448914`*^9, 3.993849987583143*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"89b8acae-240c-4abe-ba80-8696b076a64b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"5ab34d1d-36a0-430f-8bb2-2b3487a39fcf"], + +Cell[BoxData["86"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993804090267005*^9, {3.9938041386777277`*^9, + 3.993804174504216*^9}, 3.9938488075630293`*^9, 3.993849987589205*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"6a223440-544c-4404-8f7a-679fc1b81dab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"45126320-2e02-4a73-b101-178d00fee0fa"], + +Cell[BoxData["0.11093023255813952`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9938040902837143`*^9, {3.9938041386945467`*^9, + 3.9938041745182133`*^9}, 3.9938488075813007`*^9, 3.993849987595704*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"57d1e3e4-5ba8-4815-a501-1e5e60ab3868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"07de4134-43e6-4c83-8c96-c65ba9b7fd3e"], + +Cell[BoxData[ + RowBox[{"-", "2.5630897009966778`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993804090300918*^9, {3.993804138711464*^9, + 3.99380417453297*^9}, 3.993848807599778*^9, 3.993849987602099*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"bc6c462f-88b1-45e7-8daa-f9608c7cb8a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8d6d55b3-3670-403c-b697-764556447cc1"], + +Cell[BoxData["20.50874671482353`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993804090321062*^9, {3.9938041387284813`*^9, + 3.993804174547089*^9}, 3.993848807619718*^9, 3.9938499876084547`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"62487f90-eeed-4a46-9441-1c88632d67c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"f19f6695-a07a-45ef-900f-e7b82828e855"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9938040903372*^9, {3.9938041387455187`*^9, + 3.993804174560532*^9}, 3.9938488076417303`*^9, 3.993849987614606*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"8689b7a1-736a-40c5-8bfb-c09da5673fd7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993803941161499*^9, 3.993803942967257*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"1bf516a3-2139-4d2d-9028-88263663d3c7"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804090368265*^9, {3.993804138763773*^9, 3.993804174574923*^9}, + 3.993848807660918*^9, 3.9938499876208553`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"4d49801e-768e-48ed-a052-65792579e107"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848851636154*^9, - 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ -11f4dcb03e07"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"343acee6-8e3f-4465-bd8e-f56c48c7ecec"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.845"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993803949861635*^9, 3.993803952475243*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"081a7602-9229-4cd7-a575-94f5e9f4b486"], + +Cell[BoxData["0.845`"], "Output", + CellChangeTimes->{ + 3.993804090400498*^9, {3.9938041388176193`*^9, 3.9938041746000147`*^9}, + 3.993848807703788*^9, 3.993849987631078*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"2612478f-11cf-4663-b259-647123531a49"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"d58dd9d8-133e-4352-ae0c-f1de0439ef48"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.34"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993803955445758*^9, 3.9938039566555567`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"5620897e-38c5-4d83-a798-5c19f6da0ac9"], + +Cell[BoxData["2.34`"], "Output", + CellChangeTimes->{ + 3.993804090432963*^9, {3.993804138872542*^9, 3.9938041746232433`*^9}, + 3.993848807741784*^9, 3.993849987641254*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"f0cf599a-d7c3-447b-9314-c04f22334493"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"8f81fcc5-e6e4-4dbd-abd2-ef1ce5affa08"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.235"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993803960293667*^9, 3.9938039628886843`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"80c78cff-e4c1-470f-a2c6-edd80549da35"], + +Cell[BoxData["1.235`"], "Output", + CellChangeTimes->{ + 3.99380409046647*^9, {3.9938041389300737`*^9, 3.993804174645626*^9}, + 3.993848807767399*^9, 3.9938499876516333`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"39325cc3-3a90-4e99-a699-bd801326c9db"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"094434b5-8bdf-49ba-971d-e012404fbb8d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "2.157"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993803966354662*^9, + 3.993803967807385*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"a7a6a600-9d32-4e87-94fa-56d58d3ad4d6"], + +Cell[BoxData["2.157`"], "Output", + CellChangeTimes->{ + 3.993804090500058*^9, {3.993804138981492*^9, 3.993804174669353*^9}, + 3.993848807792426*^9, 3.9938499876619062`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"34752093-37d0-469b-a617-a7dcae5c2697"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"bb1c58bc-93f3-425a-b1f1-1ed7515cd10f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.647"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993803975246106*^9, + 3.993803976677384*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"a63d606c-675a-4f8d-ac87-050553c3b3c8"], + +Cell[BoxData["0.647`"], "Output", + CellChangeTimes->{ + 3.993804090532151*^9, {3.993804139031171*^9, 3.993804174692378*^9}, + 3.9938488078179283`*^9, 3.993849987672338*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"aa77f987-0e3b-4cf3-9e10-d01325849ddd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"9bd428bb-e30a-4a00-960d-a31d62f46510"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.76"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99380398019634*^9, + 3.9938039813095837`*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"11d67302-0208-4493-bc7c-d6fb2e2655d7"], + +Cell[BoxData["1.76`"], "Output", + CellChangeTimes->{ + 3.993804090566051*^9, {3.993804139085739*^9, 3.9938041747149076`*^9}, + 3.993848807844983*^9, 3.993849987682571*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"858120e2-0ed7-4c35-8ac3-cee8e78c61d0"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"8f80f979-0706-4bb9-9232-98d9e906f2fb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.075"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993803983729498*^9, 3.993803986997629*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"0f4ade84-10d4-40a9-abaf-34c44a88f145"], + +Cell[BoxData["1.075`"], "Output", + CellChangeTimes->{ + 3.993804090634049*^9, {3.993804139137789*^9, 3.99380417473573*^9}, + 3.993848807872305*^9, 3.993849987692852*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"705fbc80-1d21-43fd-8804-0cf81a4f53fa"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"0ab65f9c-e8ee-47de-859e-c53618b93a33"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"0fe4ec56-07ec-4c0d-9884-a9780cdd6770"], + +Cell[BoxData["0.01224942383714716`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993804090716114*^9, {3.993804139208848*^9, + 3.993804174782381*^9}, 3.9938488102384644`*^9, 3.993849987726108*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"f72c366a-1652-4dcc-b854-d1981d9c5e8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"750a3b3a-997b-4223-98a2-6d8afd5c94cd"], + +Cell[BoxData["0.5889492852231504`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9938040907433662`*^9, {3.9938041392562933`*^9, + 3.99380417480917*^9}, 3.9938488104573317`*^9, 3.99384998775633*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"d8108b48-e9b0-4d19-85c6-5060754897f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"accd8c37-cae6-41a5-bb27-f544a81f806d"], + +Cell[BoxData[ + RowBox[{"-", "12.704649244928842`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993804090767948*^9, {3.993804139281644*^9, + 3.99380417483276*^9}, 3.993848810481243*^9, 3.9938499877833776`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"1b17f8f1-2653-4a78-b12c-edc1968a49c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"5ac56d7e-dff0-46ab-9c03-43b0bdb382bf"], + +Cell[BoxData[ + RowBox[{"-", "15.223385141555047`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993804090797073*^9, {3.993804139310915*^9, + 3.993804174861484*^9}, 3.9938488105114737`*^9, 3.9938499878144217`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"ab752417-e5b7-463d-909a-b9f9a03775b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"d7dbb1a2-15a0-40da-8140-b88a8b689577"], + +Cell[BoxData[ + RowBox[{"-", "39.03111013094529`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993804090827354*^9, {3.9938041393422422`*^9, + 3.9938041748908043`*^9}, 3.9938488105468807`*^9, 3.9938499878444347`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"00ac287b-74ce-466b-bb0c-1730eca6208c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"9186500d-969f-48fd-9744-3f8ef80e0707"], + +Cell[BoxData[ + RowBox[{"-", "94.34556705329022`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993804090863044*^9, {3.993804139389662*^9, + 3.993804174924636*^9}, 3.993848810587708*^9, 3.993849987878718*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"6a6eb2fe-4e6a-4447-bd0e-2eb24d7fa84d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"d75a144f-3b8e-426f-8221-8b442bb77687"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993804090879141*^9, {3.9938041394058332`*^9, + 3.993804174941469*^9}, 3.99384881061217*^9, 3.993849987889278*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"46218e79-ac9f-46bc-a959-3f52c0d6dfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"d0ada450-6f2a-4b02-a2a4-a82f47c31fe2"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993804090895958*^9, {3.9938041394218063`*^9, + 3.993804174954442*^9}, 3.993848810635922*^9, 3.993849987897748*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"d0e18549-8335-4675-9334-ae8e5c3d0857"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4d09932b-2ea3-40f8-bc1b-64de13ac12a4"], + +Cell[BoxData["40.9342324933027`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993804090912829*^9, {3.99380413943988*^9, + 3.9938041749678583`*^9}, 3.993848810656166*^9, 3.993849987905715*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"661eb652-11f7-495d-bde3-4cd9cbe0791d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"a33136c3-0760-46e1-99db-887f5795815e"], + +Cell[BoxData[ + RowBox[{"-", "42.16041879106114`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993804090929619*^9, {3.993804139457325*^9, + 3.9938041749824657`*^9}, 3.9938488106762447`*^9, 3.9938499879129744`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"f5b6fae3-a84f-4a0f-93f2-a064dc9e5cad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"f3c4a9a0-eac9-49b8-bac5-9a02ca104c94"], + +Cell[BoxData["57.85215050076255`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993804090946455*^9, {3.9938041394733677`*^9, + 3.993804174995661*^9}, 3.99384881069589*^9, 3.993849987920309*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"ce18778d-0d81-4bb0-9370-2acb65be70e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"f5b81e76-a3d7-411b-87d0-b3f7fb9c036c"], + +Cell[BoxData["0.2903701468853932`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993804090963214*^9, {3.99380413948948*^9, + 3.993804175008822*^9}, 3.99384881071603*^9, 3.993849987927593*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"86cb7835-8352-4316-9a43-7965860ce3c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"25c342b6-83e7-4e8d-903a-782228cc4357"], + +Cell[BoxData[ + RowBox[{"-", "0.06800962519581188`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9938040909800377`*^9, {3.993804139506342*^9, + 3.993804175022502*^9}, 3.993848810736079*^9, 3.993849987935525*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"9d4a2c9e-912e-45ca-9e78-a783b4d744cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"4fff5c93-3e96-44e6-a383-732e326cb801"], + +Cell[BoxData[ + RowBox[{"-", "0.40916894338639737`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9938040909970512`*^9, {3.993804139523937*^9, + 3.99380417503624*^9}, 3.993848810755718*^9, 3.993849987942794*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"670a65b2-c3a5-4b0e-bb6e-40f6fe87c5bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"7a704ace-32d6-470a-b159-d208a661399c"], + +Cell[BoxData["0.6026750051187908`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9938040910160313`*^9, {3.993804139541357*^9, + 3.9938041750504208`*^9}, 3.993848810776074*^9, 3.993849987950062*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"63ae4c8e-681a-4a73-b420-7c5595257cc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"5e4bc2d5-ed0a-4c4c-9c08-0e7517c4ba1b"], + +Cell[BoxData["2.622074662477555`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9938040910322237`*^9, {3.993804139560528*^9, + 3.99380417506885*^9}, 3.9938488107953978`*^9, 3.9938499879578743`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"3eab826b-f9a8-46b0-80cb-1322e34568d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"64c7b3ce-74e8-474d-91c7-ee904b39fffc"], + +Cell[BoxData["1.560486547241578`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9938040910476837`*^9, {3.99380413957936*^9, + 3.993804175086857*^9}, 3.993848810814839*^9, 3.993849987965177*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"18216dbc-3d54-44b0-9795-6de66fc850ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"e0e44bfe-5df9-440d-a35a-a71505e5a2bf"], + +Cell[BoxData[ + RowBox[{"-", "23.985225206889808`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9938040910636168`*^9, {3.993804139598442*^9, + 3.993804175099869*^9}, 3.99384881083464*^9, 3.9938499879727097`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"738bc0ca-3840-4b3c-a767-0863a848fe17"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"c5768973-1a8b-40ea-b47c-48ab268b62c5"], + +Cell[BoxData[ + RowBox[{"-", "6.082813498068469`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993804091079459*^9, {3.99380413961532*^9, + 3.993804175113451*^9}, 3.993848810854089*^9, 3.993849987980007*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"22751f4c-7b69-4f5b-ab03-33964f6e12e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"0c2eccbc-0130-41fa-9009-3595b42d5b97"], + +Cell[BoxData["16.949007286412893`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993804091095646*^9, {3.9938041396344*^9, + 3.99380417512825*^9}, 3.9938488108741703`*^9, 3.9938499879874697`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"37693d5c-4ad1-4ec2-b208-596fed5664bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"79940cdf-f1d9-4abf-a911-a81951a58577"], + +Cell[BoxData[ + RowBox[{"-", "42.16041879106114`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9938040911120157`*^9, {3.993804139651782*^9, + 3.9938041751438704`*^9}, 3.993848810893611*^9, 3.993849987994814*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"a8b07cd8-7718-440d-b8a4-f0352ac0e688"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"57d5a495-c009-4620-8dcd-049d6a4e5013"], + +Cell[BoxData["51.76933700269408`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993804091132085*^9, {3.993804139668528*^9, + 3.993804175187551*^9}, 3.993848810913933*^9, 3.993849988002*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"d49411a0-d875-425f-8a2f-c776c8a76824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"838d90f3-e46b-41e8-9387-90e66b4daaac"], + +Cell[BoxData["4.836891405194621`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993804091148937*^9, {3.9938041396855717`*^9, + 3.993804175204822*^9}, 3.993848810933175*^9, 3.993849988009184*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"f37685cc-ff51-4eaf-9290-ddc9baeb0fe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"b58daacb-44d4-4717-8a79-a37368bbc038"], + +Cell[BoxData["252.66846904104736`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993804091165813*^9, {3.993804139705405*^9, + 3.993804175222055*^9}, 3.9938488109528217`*^9, 3.9938499880163193`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"97412eba-ea6f-4f3e-859f-281e726da988"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.47855"}]], "Input", + CellChangeTimes->{ + 3.9918488488187084`*^9, {3.993848897066637*^9, 3.9938489044807463`*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], + +Cell[BoxData["0.47855`"], "Output", + CellChangeTimes->{3.993849988024548*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"ce4df800-b078-4290-bee5-072efa0272b6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848849725815*^9, 3.9918488497328167`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.23891"}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9, {3.993848907821007*^9, 3.993848920031622*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], + +Cell[BoxData["0.23891`"], "Output", + CellChangeTimes->{3.9938499880346622`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"f0e93a99-8bff-4ce9-bb75-be6e5648b214"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, 3.9918488516427097`*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ @@ -84,13 +4825,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[150]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], + CellLabel->"In[75]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913279321052856`*^9}, - CellLabel-> - "Out[150]=",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[BoxData["2.401224501209607`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.993849988044372*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"8330addc-0032-4d58-a670-b9d9463f269e"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4863,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ -7221ff813b6d"], + CellChangeTimes->{3.9915575644922657`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.991327932129387*^9}, - CellLabel-> - "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[BoxData["1.1298344621202283`*^-54"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.993849988051318*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"8d67947a-76f9-4ce7-acf5-5ee1824a0491"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4901,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915575683388195`*^9, - 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ -fa370a62ac27"], + CellChangeTimes->{{3.9915575683388195`*^9, 3.991557570173399*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.991327932138338*^9}, - CellLabel-> - "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +Cell[BoxData["1.1438434037180499`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.993849988061952*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"f1db2812-9928-47ff-afa8-f385ad0c4ed5"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4929,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + CellLabel->"In[78]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913279321616154`*^9}, - CellLabel-> - "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +Cell[BoxData["15.845195800747504`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.993849988071644*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"e2100f16-e390-48aa-b570-c6a70273cec8"] }, Open ]], Cell[CellGroupData[{ @@ -225,13 +4958,11 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + CellLabel->"In[79]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[BoxData["37.77192070584817`"], "Output", - CellChangeTimes->{3.9913279321696014`*^9}, - CellLabel-> - "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +Cell[BoxData["30.142540646005774`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.993849988079669*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9f4f98d6-5fe9-4a8c-806f-e8c5ff70ef7f"] }, Open ]], Cell[CellGroupData[{ @@ -240,13 +4971,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + CellLabel->"In[80]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913279321926613`*^9}, - CellLabel-> - "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +Cell[BoxData["0.5525026474719789`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.993849988087428*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"a1ee1c40-79aa-42cf-b7b7-8285fa23b6ad"] }, Open ]], Cell[CellGroupData[{ @@ -255,13 +4984,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + CellLabel->"In[81]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[BoxData["3.2238916343938024`"], "Output", - CellChangeTimes->{3.991327932200657*^9}, - CellLabel-> - "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +Cell[BoxData["2.8952468437765964`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.993849988095282*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"800c8a1b-fff8-4cbb-8974-c33a790e5bab"] }, Open ]], Cell[CellGroupData[{ @@ -270,13 +4997,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + CellLabel->"In[82]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[BoxData["121.77257917856996`"], "Output", - CellChangeTimes->{3.99132793222501*^9}, - CellLabel-> - "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +Cell[BoxData["87.27009566875599`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.993849988103013*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"2e748499-7ad1-4230-88b2-f7102af952ae"] }, Open ]], Cell[CellGroupData[{ @@ -285,13 +5010,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + CellLabel->"In[83]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913279322642612`*^9}, - CellLabel-> - "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +Cell[BoxData["8.754512629624879`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.993849988110887*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"1d566a1d-e3bd-42b0-9e0b-3da9d5baf4a7"] }, Open ]], Cell[CellGroupData[{ @@ -480,13 +5203,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + CellLabel->"In[84]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[BoxData["0.032550594324745`"], "Output", - CellChangeTimes->{3.9913279322906475`*^9}, - CellLabel-> - "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +Cell[BoxData["0.013280486771848676`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.993849988120617*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"f462ec7e-b133-4608-b44e-800cab2fe68f"] }, Open ]], Cell[CellGroupData[{ @@ -499,13 +5220,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + CellLabel->"In[85]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[BoxData["4.91208054446651`"], "Output", - CellChangeTimes->{3.9913279323826447`*^9}, - CellLabel-> - "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +Cell[BoxData["7.6902054749054525`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.9938499881696367`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"8658b733-4c9b-471c-9408-ab983aa120ee"] }, Open ]], Cell[CellGroupData[{ @@ -696,13 +5415,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + CellLabel->"In[86]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[BoxData["0.012685641417856707`"], "Output", - CellChangeTimes->{3.991327932394655*^9}, - CellLabel-> - "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +Cell[BoxData["0.09845120382469093`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.993849988178615*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"44f0f84b-9ccb-420a-a3cc-9a0dbcecef78"] }, Open ]], Cell[CellGroupData[{ @@ -715,13 +5432,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + CellLabel->"In[87]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.991327932491659*^9}, - CellLabel-> - "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +Cell[BoxData["2.8244534743117558`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.993849988228862*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"5a6e604b-7467-48f8-a93c-361d1f01749d"] }, Open ]], Cell[CellGroupData[{ @@ -813,13 +5528,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + CellLabel->"In[88]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991327932509678*^9}, - CellLabel-> - "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +Cell[BoxData["0.12678436313657984`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.993849988236717*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"0a798654-c4f0-42e2-b310-b19fce396732"] }, Open ]], Cell[CellGroupData[{ @@ -908,13 +5621,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + CellLabel->"In[89]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913279325457134`*^9}, - CellLabel-> - "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +Cell[BoxData["0.8732156368634202`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.993849988244368*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"ae36430d-785c-4adc-b5d2-92002f42ea3e"] }, Open ]], Cell[CellGroupData[{ @@ -1036,19 +5747,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + CellLabel->"In[90]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913279325697117`*^9}, - CellLabel-> - "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +Cell[BoxData["0.1107100884006317`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.9938499882521677`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"f20c4546-f533-4d89-8441-f3ebb6ebb6a0"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ -eb45-a9e1-7a2f5d020eb1"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ @@ -1062,7 +5771,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -1084,8 +5795,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1109,68 +5819,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ -c0135e32eaf8"], + CellChangeTimes->{3.9918488620812244`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279325947113`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.664873378603957`*^-223\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 9, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.9938499882638683`*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +In[92]:=",ExpressionUUID->"10373825-d124-457b-90fd-8fbf6935f19f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 110, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326047096`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.57687906617643`*^-229\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 10, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993849988270083*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +In[92]:=",ExpressionUUID->"638ec23a-9efb-49d8-aee1-973c64cda5e1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 111, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327932612709*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.27256427784428`*^-235\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 11, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.99384998827391*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +In[92]:=",ExpressionUUID->"1e3561a1-1ea5-4dfc-9b68-86d642e57998"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326207104`*^9}, +during this calculation.\"", 2, 92, 12, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993849988277761*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +In[92]:=",ExpressionUUID->"cb430389-2a06-461c-8342-1cc3c5e30f8f"], -Cell[BoxData["4.912080544466506`"], "Output", - CellChangeTimes->{3.9913279359974174`*^9}, - CellLabel-> - "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[BoxData["7.6902054749054525`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.9938499897677317`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"5b4b5545-fc2c-4a6b-8456-c9082f837960"] }, Open ]], Cell[CellGroupData[{ @@ -1185,7 +5900,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -1207,8 +5924,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1232,68 +5948,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ -b0ab3cd09ac2"], + CellChangeTimes->{3.991848865140564*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936033827*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.664873378603957`*^-223\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 13, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993849989798726*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +In[93]:=",ExpressionUUID->"2e4bc722-b0c6-40fa-b95d-22d6eb699e6b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 114, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360428295`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.57687906617643`*^-229\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 14, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993849989802573*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +In[93]:=",ExpressionUUID->"c3b84d40-5c10-4bb6-ab4b-5ea646f6b376"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 115, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936050829*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.27256427784428`*^-235\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 15, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993849989806076*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +In[93]:=",ExpressionUUID->"1341aa78-7dac-4aae-9e51-6923273e6612"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360588284`*^9}, +during this calculation.\"", 2, 93, 16, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993849989810021*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +In[93]:=",ExpressionUUID->"ef10122f-82ed-4164-81ed-b611121a75e6"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.9913279393385086`*^9}, - CellLabel-> - "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[BoxData["2.8244534743117553`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.993849991291565*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"bb06f1e0-73f2-491c-b75c-8da74247089c"] }, Open ]], Cell[CellGroupData[{ @@ -1303,141 +6024,141 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848869193308*^9},ExpressionUUID->"124cd7db-c537-8943-bef2-\ -1a154ab4a709"], + CellChangeTimes->{3.991848869193308*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk8VN8bB3B7hJDsbRgVpZixRp0nRDQkWuwxZq6lIutXCJFKK2kvKUsk +S8gS5ZdSSYqiom+KRLJckxJt337P/HFf9/V+nXs+9znnnnuOJifUhSciJCQ0 +hpfgHvZs+eKa9merU2/y+k+85pPVdJ4xx6aYvNEKfitwb7bJSYbNbcIc+ueR +wM7cpxIyrAdEU+J4nsDlMYn3xW1aydbEsgiB0x6q3k0sek4yt3YbCXyrPezS +b+ZLkp8pM5SBHn7TEr+7votsN7c/KrD6gLbnd+u3pHfDcYbA68fjzSNa3xPR +9+9K0tENv4elY4r6yPi4qa7Ar/aqxFWH9JOWI+dPH0fTEjbD35gDpOOuxPdj +aIkju9xZU4Nk89l4O4HnK2Q1h9UPkdKFvw8dRTtpfL9KW4+S6gTVocNo6rKW +sr4kTRIiq4QFTtTZkLq9dZw4eHrJHkJ3qXQaRhZ9Ia/tmn8eQHM9goMyj0wQ +En307X40/6LQlYqQr+TLoNeNVLSklr78F+YkIaPqy1PQJ7n37eSVvhP5Cqmu +veiFBe6JK6a+k6NzRSOT0GbL9tM766dJpaNy8h50oMn71mHr3+Titsbv0ehv +MVFiMxf9IZbJkoZR6KR6aUtdyf/I5TWe3hHos2B2PaD1L5FazDgSKqgvv9km +vEgYTtbZWQWgix5m9u7VEIFZw+MyPEG9n3ziM46IQMNE3mMOOl5vsvJGiCi4 +WZmo+QjqLdPUHmeKQ/fUT/lN6Dftow3/5YrDohlyOzYK6p+o8ZilJAGxuwxv +OaGLjZxO6E9JwFedHF17dNOtWOEd9ZJwa4m5/yr05P2O90PWMrApPMxcGz2b +LSMf1yADtTsNgxagDTptQNZcFgbjTxzUQAd/rLpsuHwWBK8yP62I3iXSarBK +Rh4aArXHRNADWqVfUr8rQI393bR3r3B+qBapNtZsWHG2obIbLXJ9UFM1bDbM +Ae7TTvRC1gKXopHZMOVb0NaC9rBOr3jWqwhwQU2+Gt3mHx6h8kQJOjmqe9PQ +7wqOHfaVVIZPnKb8FPToSFHutbXKQO9eULcHPTOyv8PirjLEyA2Uh6Ft9m0y +8q1SAbt5d3rc0HV5JpOF2WrQX7VgMQOdN/AzemXkPOjW+Lqv9CWfrNt84F1E +yTxY0ii5uAA92qRoWzI4D1LEv9dlo43yliktdJ8Pr/7nXpuObuL4VIqvXgB2 +B7dIhaMnxnv/GUpZCNLhJWJMtOJOm5uVjlqg/MSBV9DJJ4N5MwOdg7VgjuIh +60vo2rftGmP7taCipkrxFNqL7Z2y6K4WqE93piWj85ZGu5xjasNYvd1TL7TR +cAE/QYUBRDW/fBZ6U4C0vkOfDiwoL50M6ODjut/M3PpHB9zf/s/eG62Xmm3K +VVsE3cl+6S5ooVyWVcLGRXA1zn3SEl3yznNrReMiYAwz5yugJbYU71XPWQz/ +hK4drX6B9dk4vhrm6MJrhZHE6ed8kut65t+pBF1YnVG6eBR9jNPXK3ZBF4bX +zL/3Hs1NihqZ36EL6/jibQ/RCrezhFyt9UDssbz9SXQwi9ar114KkYOfG5ah +NbSOJx7+uAzuOqfVurbzye1D33R/iOjD6yg4YIP2+ureSWnqQyQ7xNYYfamJ +oWvlow+Su1inldFaAXUvpl/rg/fBtLiuNhxv8YAO9WQ5zNQ55+OOnqcxn1ro +bgAjhfrpG57xybL8SJlfhAkdFQ+/ybbyCYebMqnvxISGKlPm7yf4v2qfeOfr +xYTW1EjOMFo0p+zGwxgmMIS2XniIfnNpeNOJcib01g6EJKDTzvpm6WqzQJPt +e2mkBb/vYfZyNwkj0O8uWXL7MZ9cCWc4V7UaQ8f0lKXJIz5pjyam+/LNwX3r +bAW5Rj7R9Hnp5L1jFcReMtutVccnvL/VpfN2A7S/3OY3UsEnKiO1M1Q4VpB3 +fcxzQxGfRLIs357Qs4HdR7RVM69g/WO/mxWH10K/lPER3ln8nlYRM7Lb7MAr +QoTdehTXz7fgxuKT9pBk63fNI4VPpteoPm1KXA8mkRmdcf/wSY+Q6Jc+P0cY +jmEObtrOJyFzQ9P3am+AcrP/aVzYxielQc13T6U6Q32lTNk+Fz6J/ao2tTRo +I5xR7csSscX9w8F2y6NtLpB+6OIalhmfmHtmrBnY6Ar371SOhunxyQu1rOAm +1iYQC326OmEenidXU24XLtkMD6ab9vjJ4frq1WM7yW4B/8qBe4YieB508gOi +x7aAWqPI46zhccI6lVGc27sVSj9YRLx9Nk6yxL4uP3HfDVirHk9A1TipXrPi +Teotdwi875pGnxsnZ00PKfwu8oAVim3nChLHSdu/+ftZRzxh05/dynUB46TK +8SJjV5IXcEhsTbLTOPmy01UohOsNCc+iuhpMx8mkrW4gbe0Ddbqiiyy0xknh +WPd0hMk22Hgx6nqP9Dhxu5Lv7y3jCzPSRsr+TNGksmL9NtEDvvD5kFz8+X6a +mGu8+JH2wxfWflyjV/ucJtq9AW+eB/nBOkj87tJIk4/S2zdc7PcDsxmNO9/f +oEn7MSd/u80ciM8KoZ/n0ORkTLZ0VDsHFGfeKJc7RZPbDX9/+Nv7g1HV0FLl +NJrIecEBVp0/7BSKDnFJpMnCOY/a5t72hz4vzvylaINWR1WJBn8QmxswJIp2 +sfS81tXoDxX+91qqEjB/bvSTPY/9odjgd7M6Wr3nulxzlz/kZbqVfI6nCcNH +5azXlD+weTaMC7E4Hl+6MNWICwWf41c6RtPk6jl+hJMJF3hTcsXL0XM6Jlar +mHEhsrbNSB5Nr53qLLTgAkP738MdUTTuX0LCrVb4vLCDsyd61pSC++yNXOjd +/IgVGonzcdRYKnsnFwK2CIUWhtNk4yPTzoBQLshs+9h8BN0gtDLbIIwLXlzN +lWHocxGrje9FYn7Odc5KtJO7nd9AHBfCN+u0Pg2jyS2G+62lh7igav5U+Mcu +mhyrjw+qvcoFJYsbQn6hNNnJPGMeU8iFr6e3Nq1Ds6+VS5kVcSEx6NQlA/TM +M4PXakq40NrVdVoInRruPFx9kwsZEVmnr4TQJF6Xsb3qHhfe3ZnV+WknTYLP +PNlR8Y4LDyr7HVN30MR+1qBleC8XflQHDIail6QKyTI/cKGam3vKAz0YblxS +PsAFOnutmQHazyl77MYoFz7EOx97u50mbuIRIWU/uZCT6ZpgjraLUN9VrMwD +pm10pFgwTe5l73c4ocqDX8krXflBNLFsnWDEqPOgpuAd+y3aQOdJt/V8HniN +t6TfRKu9jrP+V4cH+SobPSn0yMoe5ZnGPFj899evZ4E0OS5y+U6AKw8mUxvD +bwbg+FfInHXczIOK/N1lueh9njHhrK2Yv8BwRiY65qbz4r8ePEgquzIjHO1H +CWec5vBAu/kK2xDNauFwH4TxICag59NNiiavM3SktdN5wIqeCGzn0aSUyAYO +ZfDgk0rYyH30vrFvTSWZPBAbOpBag2baNyWYneHB0LYkoWz0MSH/CcdL2L6/ +WCEUbRt6uTummAf2j3dcUUTPm3fQZHUpD0ynb2RJor+1hGaK3uDBeYnT5X+4 +NMlZRByPVfKA/chm4RD6T0/P3dw6Hhy4b6XWgL7J1ih81syDLO9lsSHowz9F +xE+28IAxVMvnojmFw37urfi+z2MJnmh5sTqNj208sJBz/bAOvaPe7fiPVzzY +Oaj0gIHW1jsdzRjggbzim5+9/jT5+XpPx+dBHrjpLxztQren8gzKhnC+LJUm +29EJfUbD5qM8iCiTdWpEvznb4b3hKw8c/66Zm4s+MUNhbawwBbn64nrb0bcn +ejwjRSmo+G9Bpz/6U09ReIg4BeqPmi54oS1v2lzmSFEQ9qkkxQk96Bvzy0GB +gsl8qWoWWp69dvZaRQquJySy9dEWprN1iRIFtZHJQovR6bLFW1hqFHgsNWxU +F7TXvS/X0KTAcZ9Fviiayi9uVtKmIEqJseQ/Dj6fvvu9nA4FZ+IvNk+jBylF +WTFdCkIlV3NoQbuiXeCoAQX7PdjTb9B1/ykmDjIpKB+uD3iFHvjce6rXiALN +i3e+PUevvBt7v9OMgpmBMQGP0R93lM6/AxQIB70ou4We5RZnXGNFgV1nt3Q1 +2tx6HbvchoIfq6NSK9DH1D7szl9HQV9v4PPr6FqxsvRsB8yPa8wtRPePxxWc +Y1Pw8U1pZj7a7KHSy6POFGRnrWvNRnPKP4wccKFgxZbJOVnooxfLRJI3UdCc +YBp3Hv0h3N4g2o0Cqjb+8im0rI+y3S4PClgKSdsyBXn2/d7BXhR4BqlZZgj6 +L9hz2MeXgkWnZjkdFdQz0yHHjUPBg5zglMOCvEnlWy5cCn5re79KE+T19bex +KQr2GQ7aHhTktd4YtA2k4NIH8Zf7BfXV7PkDwRTsZd9OShXk5zjMsdhBQU2y +lMM+Qf5RlaXGIRRwz4wZpAjyYz6uWbGLgsLzgcbJaBluuZtuOM7P+dite9Gm +GxJCtSMpUMvXPpMkyF+5fv+8aAqsmvy/JaKP6KhmqcRQ8FLYIlTgavmBSoVY +CkJ412YI3PervEU6HvtPlt5JEOR/SugTT6BAump9hsAmL9ZP/02k4HtBYrLA +/wekKjBu "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1451,106 +6172,106 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Xk8VN8bB3B7hJDsbRgVpZixRp0nRDQkWuwxZq6lIutXCJFKK2kvKUsk +S8gS5ZdSSYqiom+KRLJckxJt337P/HFf9/V+nXs+9znnnnuOJifUhSciJCQ0 +hpfgHvZs+eKa9merU2/y+k+85pPVdJ4xx6aYvNEKfitwb7bJSYbNbcIc+ueR +wM7cpxIyrAdEU+J4nsDlMYn3xW1aydbEsgiB0x6q3k0sek4yt3YbCXyrPezS +b+ZLkp8pM5SBHn7TEr+7votsN7c/KrD6gLbnd+u3pHfDcYbA68fjzSNa3xPR +9+9K0tENv4elY4r6yPi4qa7Ar/aqxFWH9JOWI+dPH0fTEjbD35gDpOOuxPdj +aIkju9xZU4Nk89l4O4HnK2Q1h9UPkdKFvw8dRTtpfL9KW4+S6gTVocNo6rKW +sr4kTRIiq4QFTtTZkLq9dZw4eHrJHkJ3qXQaRhZ9Ia/tmn8eQHM9goMyj0wQ +En307X40/6LQlYqQr+TLoNeNVLSklr78F+YkIaPqy1PQJ7n37eSVvhP5Cqmu +veiFBe6JK6a+k6NzRSOT0GbL9tM766dJpaNy8h50oMn71mHr3+Titsbv0ehv +MVFiMxf9IZbJkoZR6KR6aUtdyf/I5TWe3hHos2B2PaD1L5FazDgSKqgvv9km +vEgYTtbZWQWgix5m9u7VEIFZw+MyPEG9n3ziM46IQMNE3mMOOl5vsvJGiCi4 +WZmo+QjqLdPUHmeKQ/fUT/lN6Dftow3/5YrDohlyOzYK6p+o8ZilJAGxuwxv +OaGLjZxO6E9JwFedHF17dNOtWOEd9ZJwa4m5/yr05P2O90PWMrApPMxcGz2b +LSMf1yADtTsNgxagDTptQNZcFgbjTxzUQAd/rLpsuHwWBK8yP62I3iXSarBK +Rh4aArXHRNADWqVfUr8rQI393bR3r3B+qBapNtZsWHG2obIbLXJ9UFM1bDbM +Ae7TTvRC1gKXopHZMOVb0NaC9rBOr3jWqwhwQU2+Gt3mHx6h8kQJOjmqe9PQ +7wqOHfaVVIZPnKb8FPToSFHutbXKQO9eULcHPTOyv8PirjLEyA2Uh6Ft9m0y +8q1SAbt5d3rc0HV5JpOF2WrQX7VgMQOdN/AzemXkPOjW+Lqv9CWfrNt84F1E +yTxY0ii5uAA92qRoWzI4D1LEv9dlo43yliktdJ8Pr/7nXpuObuL4VIqvXgB2 +B7dIhaMnxnv/GUpZCNLhJWJMtOJOm5uVjlqg/MSBV9DJJ4N5MwOdg7VgjuIh +60vo2rftGmP7taCipkrxFNqL7Z2y6K4WqE93piWj85ZGu5xjasNYvd1TL7TR +cAE/QYUBRDW/fBZ6U4C0vkOfDiwoL50M6ODjut/M3PpHB9zf/s/eG62Xmm3K +VVsE3cl+6S5ooVyWVcLGRXA1zn3SEl3yznNrReMiYAwz5yugJbYU71XPWQz/ +hK4drX6B9dk4vhrm6MJrhZHE6ed8kut65t+pBF1YnVG6eBR9jNPXK3ZBF4bX +zL/3Hs1NihqZ36EL6/jibQ/RCrezhFyt9UDssbz9SXQwi9ar114KkYOfG5ah +NbSOJx7+uAzuOqfVurbzye1D33R/iOjD6yg4YIP2+ureSWnqQyQ7xNYYfamJ +oWvlow+Su1inldFaAXUvpl/rg/fBtLiuNhxv8YAO9WQ5zNQ55+OOnqcxn1ro +bgAjhfrpG57xybL8SJlfhAkdFQ+/ybbyCYebMqnvxISGKlPm7yf4v2qfeOfr +xYTW1EjOMFo0p+zGwxgmMIS2XniIfnNpeNOJcib01g6EJKDTzvpm6WqzQJPt +e2mkBb/vYfZyNwkj0O8uWXL7MZ9cCWc4V7UaQ8f0lKXJIz5pjyam+/LNwX3r +bAW5Rj7R9Hnp5L1jFcReMtutVccnvL/VpfN2A7S/3OY3UsEnKiO1M1Q4VpB3 +fcxzQxGfRLIs357Qs4HdR7RVM69g/WO/mxWH10K/lPER3ln8nlYRM7Lb7MAr +QoTdehTXz7fgxuKT9pBk63fNI4VPpteoPm1KXA8mkRmdcf/wSY+Q6Jc+P0cY +jmEObtrOJyFzQ9P3am+AcrP/aVzYxielQc13T6U6Q32lTNk+Fz6J/ao2tTRo +I5xR7csSscX9w8F2y6NtLpB+6OIalhmfmHtmrBnY6Ar371SOhunxyQu1rOAm +1iYQC326OmEenidXU24XLtkMD6ab9vjJ4frq1WM7yW4B/8qBe4YieB508gOi +x7aAWqPI46zhccI6lVGc27sVSj9YRLx9Nk6yxL4uP3HfDVirHk9A1TipXrPi +Teotdwi875pGnxsnZ00PKfwu8oAVim3nChLHSdu/+ftZRzxh05/dynUB46TK +8SJjV5IXcEhsTbLTOPmy01UohOsNCc+iuhpMx8mkrW4gbe0Ddbqiiyy0xknh +WPd0hMk22Hgx6nqP9Dhxu5Lv7y3jCzPSRsr+TNGksmL9NtEDvvD5kFz8+X6a +mGu8+JH2wxfWflyjV/ucJtq9AW+eB/nBOkj87tJIk4/S2zdc7PcDsxmNO9/f +oEn7MSd/u80ciM8KoZ/n0ORkTLZ0VDsHFGfeKJc7RZPbDX9/+Nv7g1HV0FLl +NJrIecEBVp0/7BSKDnFJpMnCOY/a5t72hz4vzvylaINWR1WJBn8QmxswJIp2 +sfS81tXoDxX+91qqEjB/bvSTPY/9odjgd7M6Wr3nulxzlz/kZbqVfI6nCcNH +5azXlD+weTaMC7E4Hl+6MNWICwWf41c6RtPk6jl+hJMJF3hTcsXL0XM6Jlar +mHEhsrbNSB5Nr53qLLTgAkP738MdUTTuX0LCrVb4vLCDsyd61pSC++yNXOjd +/IgVGonzcdRYKnsnFwK2CIUWhtNk4yPTzoBQLshs+9h8BN0gtDLbIIwLXlzN +lWHocxGrje9FYn7Odc5KtJO7nd9AHBfCN+u0Pg2jyS2G+62lh7igav5U+Mcu +mhyrjw+qvcoFJYsbQn6hNNnJPGMeU8iFr6e3Nq1Ds6+VS5kVcSEx6NQlA/TM +M4PXakq40NrVdVoInRruPFx9kwsZEVmnr4TQJF6Xsb3qHhfe3ZnV+WknTYLP +PNlR8Y4LDyr7HVN30MR+1qBleC8XflQHDIail6QKyTI/cKGam3vKAz0YblxS +PsAFOnutmQHazyl77MYoFz7EOx97u50mbuIRIWU/uZCT6ZpgjraLUN9VrMwD +pm10pFgwTe5l73c4ocqDX8krXflBNLFsnWDEqPOgpuAd+y3aQOdJt/V8HniN +t6TfRKu9jrP+V4cH+SobPSn0yMoe5ZnGPFj899evZ4E0OS5y+U6AKw8mUxvD +bwbg+FfInHXczIOK/N1lueh9njHhrK2Yv8BwRiY65qbz4r8ePEgquzIjHO1H +CWec5vBAu/kK2xDNauFwH4TxICag59NNiiavM3SktdN5wIqeCGzn0aSUyAYO +ZfDgk0rYyH30vrFvTSWZPBAbOpBag2baNyWYneHB0LYkoWz0MSH/CcdL2L6/ +WCEUbRt6uTummAf2j3dcUUTPm3fQZHUpD0ynb2RJor+1hGaK3uDBeYnT5X+4 +NMlZRByPVfKA/chm4RD6T0/P3dw6Hhy4b6XWgL7J1ih81syDLO9lsSHowz9F +xE+28IAxVMvnojmFw37urfi+z2MJnmh5sTqNj208sJBz/bAOvaPe7fiPVzzY +Oaj0gIHW1jsdzRjggbzim5+9/jT5+XpPx+dBHrjpLxztQren8gzKhnC+LJUm +29EJfUbD5qM8iCiTdWpEvznb4b3hKw8c/66Zm4s+MUNhbawwBbn64nrb0bcn +ejwjRSmo+G9Bpz/6U09ReIg4BeqPmi54oS1v2lzmSFEQ9qkkxQk96Bvzy0GB +gsl8qWoWWp69dvZaRQquJySy9dEWprN1iRIFtZHJQovR6bLFW1hqFHgsNWxU +F7TXvS/X0KTAcZ9Fviiayi9uVtKmIEqJseQ/Dj6fvvu9nA4FZ+IvNk+jBylF +WTFdCkIlV3NoQbuiXeCoAQX7PdjTb9B1/ykmDjIpKB+uD3iFHvjce6rXiALN +i3e+PUevvBt7v9OMgpmBMQGP0R93lM6/AxQIB70ou4We5RZnXGNFgV1nt3Q1 +2tx6HbvchoIfq6NSK9DH1D7szl9HQV9v4PPr6FqxsvRsB8yPa8wtRPePxxWc +Y1Pw8U1pZj7a7KHSy6POFGRnrWvNRnPKP4wccKFgxZbJOVnooxfLRJI3UdCc +YBp3Hv0h3N4g2o0Cqjb+8im0rI+y3S4PClgKSdsyBXn2/d7BXhR4BqlZZgj6 +L9hz2MeXgkWnZjkdFdQz0yHHjUPBg5zglMOCvEnlWy5cCn5re79KE+T19bex +KQr2GQ7aHhTktd4YtA2k4NIH8Zf7BfXV7PkDwRTsZd9OShXk5zjMsdhBQU2y +lMM+Qf5RlaXGIRRwz4wZpAjyYz6uWbGLgsLzgcbJaBluuZtuOM7P+dite9Gm +GxJCtSMpUMvXPpMkyF+5fv+8aAqsmvy/JaKP6KhmqcRQ8FLYIlTgavmBSoVY +CkJ412YI3PervEU6HvtPlt5JEOR/SugTT6BAump9hsAmL9ZP/02k4HtBYrLA +/wekKjBu "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "PlotRange" -> {{0, 180}, {0.9495232151796233, + 1.0526303179460978`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9495232151796255}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1562,132 +6283,132 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.9495232151796233, + 1.0526303179460978`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.9495232151796255}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{91.80048673422971, - 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Xk8VN8bB3B7hJDsbRgVpZixRp0nRDQkWuwxZq6lIutXCJFKK2kvKUsk +S8gS5ZdSSYqiom+KRLJckxJt337P/HFf9/V+nXs+9znnnnuOJifUhSciJCQ0 +hpfgHvZs+eKa9merU2/y+k+85pPVdJ4xx6aYvNEKfitwb7bJSYbNbcIc+ueR +wM7cpxIyrAdEU+J4nsDlMYn3xW1aydbEsgiB0x6q3k0sek4yt3YbCXyrPezS +b+ZLkp8pM5SBHn7TEr+7votsN7c/KrD6gLbnd+u3pHfDcYbA68fjzSNa3xPR +9+9K0tENv4elY4r6yPi4qa7Ar/aqxFWH9JOWI+dPH0fTEjbD35gDpOOuxPdj +aIkju9xZU4Nk89l4O4HnK2Q1h9UPkdKFvw8dRTtpfL9KW4+S6gTVocNo6rKW +sr4kTRIiq4QFTtTZkLq9dZw4eHrJHkJ3qXQaRhZ9Ia/tmn8eQHM9goMyj0wQ +En307X40/6LQlYqQr+TLoNeNVLSklr78F+YkIaPqy1PQJ7n37eSVvhP5Cqmu +veiFBe6JK6a+k6NzRSOT0GbL9tM766dJpaNy8h50oMn71mHr3+Titsbv0ehv +MVFiMxf9IZbJkoZR6KR6aUtdyf/I5TWe3hHos2B2PaD1L5FazDgSKqgvv9km +vEgYTtbZWQWgix5m9u7VEIFZw+MyPEG9n3ziM46IQMNE3mMOOl5vsvJGiCi4 +WZmo+QjqLdPUHmeKQ/fUT/lN6Dftow3/5YrDohlyOzYK6p+o8ZilJAGxuwxv +OaGLjZxO6E9JwFedHF17dNOtWOEd9ZJwa4m5/yr05P2O90PWMrApPMxcGz2b +LSMf1yADtTsNgxagDTptQNZcFgbjTxzUQAd/rLpsuHwWBK8yP62I3iXSarBK +Rh4aArXHRNADWqVfUr8rQI393bR3r3B+qBapNtZsWHG2obIbLXJ9UFM1bDbM +Ae7TTvRC1gKXopHZMOVb0NaC9rBOr3jWqwhwQU2+Gt3mHx6h8kQJOjmqe9PQ +7wqOHfaVVIZPnKb8FPToSFHutbXKQO9eULcHPTOyv8PirjLEyA2Uh6Ft9m0y +8q1SAbt5d3rc0HV5JpOF2WrQX7VgMQOdN/AzemXkPOjW+Lqv9CWfrNt84F1E +yTxY0ii5uAA92qRoWzI4D1LEv9dlo43yliktdJ8Pr/7nXpuObuL4VIqvXgB2 +B7dIhaMnxnv/GUpZCNLhJWJMtOJOm5uVjlqg/MSBV9DJJ4N5MwOdg7VgjuIh +60vo2rftGmP7taCipkrxFNqL7Z2y6K4WqE93piWj85ZGu5xjasNYvd1TL7TR +cAE/QYUBRDW/fBZ6U4C0vkOfDiwoL50M6ODjut/M3PpHB9zf/s/eG62Xmm3K +VVsE3cl+6S5ooVyWVcLGRXA1zn3SEl3yznNrReMiYAwz5yugJbYU71XPWQz/ +hK4drX6B9dk4vhrm6MJrhZHE6ed8kut65t+pBF1YnVG6eBR9jNPXK3ZBF4bX +zL/3Hs1NihqZ36EL6/jibQ/RCrezhFyt9UDssbz9SXQwi9ar114KkYOfG5ah +NbSOJx7+uAzuOqfVurbzye1D33R/iOjD6yg4YIP2+ureSWnqQyQ7xNYYfamJ +oWvlow+Su1inldFaAXUvpl/rg/fBtLiuNhxv8YAO9WQ5zNQ55+OOnqcxn1ro +bgAjhfrpG57xybL8SJlfhAkdFQ+/ybbyCYebMqnvxISGKlPm7yf4v2qfeOfr +xYTW1EjOMFo0p+zGwxgmMIS2XniIfnNpeNOJcib01g6EJKDTzvpm6WqzQJPt +e2mkBb/vYfZyNwkj0O8uWXL7MZ9cCWc4V7UaQ8f0lKXJIz5pjyam+/LNwX3r +bAW5Rj7R9Hnp5L1jFcReMtutVccnvL/VpfN2A7S/3OY3UsEnKiO1M1Q4VpB3 +fcxzQxGfRLIs357Qs4HdR7RVM69g/WO/mxWH10K/lPER3ln8nlYRM7Lb7MAr +QoTdehTXz7fgxuKT9pBk63fNI4VPpteoPm1KXA8mkRmdcf/wSY+Q6Jc+P0cY +jmEObtrOJyFzQ9P3am+AcrP/aVzYxielQc13T6U6Q32lTNk+Fz6J/ao2tTRo +I5xR7csSscX9w8F2y6NtLpB+6OIalhmfmHtmrBnY6Ar371SOhunxyQu1rOAm +1iYQC326OmEenidXU24XLtkMD6ab9vjJ4frq1WM7yW4B/8qBe4YieB508gOi +x7aAWqPI46zhccI6lVGc27sVSj9YRLx9Nk6yxL4uP3HfDVirHk9A1TipXrPi +Teotdwi875pGnxsnZ00PKfwu8oAVim3nChLHSdu/+ftZRzxh05/dynUB46TK +8SJjV5IXcEhsTbLTOPmy01UohOsNCc+iuhpMx8mkrW4gbe0Ddbqiiyy0xknh +WPd0hMk22Hgx6nqP9Dhxu5Lv7y3jCzPSRsr+TNGksmL9NtEDvvD5kFz8+X6a +mGu8+JH2wxfWflyjV/ucJtq9AW+eB/nBOkj87tJIk4/S2zdc7PcDsxmNO9/f +oEn7MSd/u80ciM8KoZ/n0ORkTLZ0VDsHFGfeKJc7RZPbDX9/+Nv7g1HV0FLl +NJrIecEBVp0/7BSKDnFJpMnCOY/a5t72hz4vzvylaINWR1WJBn8QmxswJIp2 +sfS81tXoDxX+91qqEjB/bvSTPY/9odjgd7M6Wr3nulxzlz/kZbqVfI6nCcNH +5azXlD+weTaMC7E4Hl+6MNWICwWf41c6RtPk6jl+hJMJF3hTcsXL0XM6Jlar +mHEhsrbNSB5Nr53qLLTgAkP738MdUTTuX0LCrVb4vLCDsyd61pSC++yNXOjd +/IgVGonzcdRYKnsnFwK2CIUWhtNk4yPTzoBQLshs+9h8BN0gtDLbIIwLXlzN +lWHocxGrje9FYn7Odc5KtJO7nd9AHBfCN+u0Pg2jyS2G+62lh7igav5U+Mcu +mhyrjw+qvcoFJYsbQn6hNNnJPGMeU8iFr6e3Nq1Ds6+VS5kVcSEx6NQlA/TM +M4PXakq40NrVdVoInRruPFx9kwsZEVmnr4TQJF6Xsb3qHhfe3ZnV+WknTYLP +PNlR8Y4LDyr7HVN30MR+1qBleC8XflQHDIail6QKyTI/cKGam3vKAz0YblxS +PsAFOnutmQHazyl77MYoFz7EOx97u50mbuIRIWU/uZCT6ZpgjraLUN9VrMwD +pm10pFgwTe5l73c4ocqDX8krXflBNLFsnWDEqPOgpuAd+y3aQOdJt/V8HniN +t6TfRKu9jrP+V4cH+SobPSn0yMoe5ZnGPFj899evZ4E0OS5y+U6AKw8mUxvD +bwbg+FfInHXczIOK/N1lueh9njHhrK2Yv8BwRiY65qbz4r8ePEgquzIjHO1H +CWec5vBAu/kK2xDNauFwH4TxICag59NNiiavM3SktdN5wIqeCGzn0aSUyAYO +ZfDgk0rYyH30vrFvTSWZPBAbOpBag2baNyWYneHB0LYkoWz0MSH/CcdL2L6/ +WCEUbRt6uTummAf2j3dcUUTPm3fQZHUpD0ynb2RJor+1hGaK3uDBeYnT5X+4 +NMlZRByPVfKA/chm4RD6T0/P3dw6Hhy4b6XWgL7J1ih81syDLO9lsSHowz9F +xE+28IAxVMvnojmFw37urfi+z2MJnmh5sTqNj208sJBz/bAOvaPe7fiPVzzY +Oaj0gIHW1jsdzRjggbzim5+9/jT5+XpPx+dBHrjpLxztQren8gzKhnC+LJUm +29EJfUbD5qM8iCiTdWpEvznb4b3hKw8c/66Zm4s+MUNhbawwBbn64nrb0bcn +ejwjRSmo+G9Bpz/6U09ReIg4BeqPmi54oS1v2lzmSFEQ9qkkxQk96Bvzy0GB +gsl8qWoWWp69dvZaRQquJySy9dEWprN1iRIFtZHJQovR6bLFW1hqFHgsNWxU +F7TXvS/X0KTAcZ9Fviiayi9uVtKmIEqJseQ/Dj6fvvu9nA4FZ+IvNk+jBylF +WTFdCkIlV3NoQbuiXeCoAQX7PdjTb9B1/ykmDjIpKB+uD3iFHvjce6rXiALN +i3e+PUevvBt7v9OMgpmBMQGP0R93lM6/AxQIB70ou4We5RZnXGNFgV1nt3Q1 +2tx6HbvchoIfq6NSK9DH1D7szl9HQV9v4PPr6FqxsvRsB8yPa8wtRPePxxWc +Y1Pw8U1pZj7a7KHSy6POFGRnrWvNRnPKP4wccKFgxZbJOVnooxfLRJI3UdCc +YBp3Hv0h3N4g2o0Cqjb+8im0rI+y3S4PClgKSdsyBXn2/d7BXhR4BqlZZgj6 +L9hz2MeXgkWnZjkdFdQz0yHHjUPBg5zglMOCvEnlWy5cCn5re79KE+T19bex +KQr2GQ7aHhTktd4YtA2k4NIH8Zf7BfXV7PkDwRTsZd9OShXk5zjMsdhBQU2y +lMM+Qf5RlaXGIRRwz4wZpAjyYz6uWbGLgsLzgcbJaBluuZtuOM7P+dite9Gm +GxJCtSMpUMvXPpMkyF+5fv+8aAqsmvy/JaKP6KhmqcRQ8FLYIlTgavmBSoVY +CkJ412YI3PervEU6HvtPlt5JEOR/SugTT6BAump9hsAmL9ZP/02k4HtBYrLA +/wekKjBu "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.9495232151796233, 1.0526303179460978`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.9495232151796255}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1697,7 +6418,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.819001000320631}, + AxesOrigin->{0, 0.9495232151796255}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1725,7 +6447,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9495232151796233, 1.0526303179460978`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1733,9 +6456,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913281932019863`*^9}, - CellLabel-> - "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] + CellChangeTimes->{3.9913281932019863`*^9, 3.993850230680876*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3710a03f-be0e-43d1-a1dd-2ccda952c7c5"] }, Open ]], Cell[CellGroupData[{ @@ -1750,7 +6472,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -1772,8 +6496,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1798,348 +6521,230 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ -bade8ae5c530"], + CellChangeTimes->{3.9918488717861137`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.428824560182079`*^-271\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 17, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.9938502309400682`*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"b4cc2311-f162-4275-9a52-5333111f364d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.463396978167533`*^-283\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 117, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934227676`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 18, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993850230947764*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +In[95]:=",ExpressionUUID->"91f1e559-76d1-4a4b-a857-79a70ffb523e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.3635457639997116`*^-295\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 118, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934317894`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 19, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993850230955024*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 169, 119, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934409904`*^9}, - CellLabel-> - "During evaluation of \ -In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +In[95]:=",ExpressionUUID->"15815263-6fd1-4c97-8c0b-15ab676bd833"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132819344899*^9}, +during this calculation.\"", 2, 95, 20, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993850230961269*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +In[95]:=",ExpressionUUID->"df55c314-012f-4bae-b70e-a029b32b9a4c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVlnc8le8bx0VllL2OmTIaNsfB4ZzrohBJKDNFSlEyIsooVEYkpEgpSQql +zHMOKl8aSFRGRnZkFmWkxO/5/fW83q/nfp7787nWfW9097X1YGdjY/uwio3t +/8/53vpXCvE5dJugnCGOIBt66x3SWaOOKAjuK4t3W60BKNrsTupIAaFcG1Hq +aoQg6/zPHB3ZMP2EPUhytTUIfhdPWfxcDLZuV8U6Odygr8rKd/ZzDcimpqn/ +ZPcDU4XxnpnPn6CbrFHcuHweFj/rXp/+PAijId+/JQxehdrtD3M+Zv+Cnp6x +ndP7s0C6jzXirvIP/PM8rqSzHoKIt2s+53YOHAm7FKhgUwjbOO+/sXbgQG2R +C1vkvAsBs0cGb57gQPtnTSK8MYXg3XFSSiWVA8fn2j0rqgrh1Y6wBOthDiw+ +9a/m0OanEChz0+dmzGq8KzoR17n4FFqaPmkpN65B7/D/pJPrn0GKpmmllR0X +1pb3SAdaFIN6t5MZzZMLHb6/01axK4bGiydblEO50M6Vs/6LazGs7Uid4LrH +hbcnpA5tPl0MoeeGpGonuTBTv3Xi0N1iOPIuIkz3IjfGcsplev0sBopHJU2u +hAc1D3msK0wpgRa+5nq+NzwofTKwx/d2CfgxB+3+dfDgcROn91tzSyB/HY9P +1zIPMpt+/r3EKoENxY53Ui3W4VWlIou+vhLgWplb5hpchzcDOE8JK5dCZ7pG +9YwAL95XoUv5V5ZCRksBf5AiL3Kv1JCmXpWCM99m1z/6vNiorxPq2lQKXy7I +LLMf5sUQSt6RzQOl0O/DYyhSxosLVr0Xtq8tg9EdXxkUJz7c5Cj5Jd+qDH5P +pz0NvcePEmMmlUodZcBSFl5ZKePH03lc34/3l0HI0USriw38yDnwx+jBaBks +dV+cSvjFjyVdg6ZLv8sgYogp2rxJACW4ktK1JcrhYtODvf2BArjh6YjgG4dy +iM8538wuIYiPKx4k+b8vBwuyl5CovCDuTTK5Yd9aDlyvbO02qwqilvexX5rd +xPdDit27jAQxes+ponej5RC2qXEk1UsQOc4MbYvnYIBPFmlZqUIQx1SEb+nr +MsDmdpHKrv1CyHxutd42jQECKrd8D3gIYfO388qrMhnQVHmx2NdXCEfvfk3P +zWaARbeDXuoFIfy46vPB1icMMJZc3t5TIIQF2wpvV9YygJxusd93SQg7e2o3 +sKYYIJ46FHctUxg1XosnBVCZQFIuu/g7Vxjl7OYis+hMkKyJPn/gmTCWVrQK +vTZmguz01tOba4VxHfO2yJwFExQt/dwqR4WR9NyvcNqZCdqr/1GGtEUwqvrg +X/uzTCDfatLcSRNBfm1Po+UwJlC0slSemIpguNptcmYEE6hu2zcFO4ngwZJC +pZoYJhhVxfGuOy+CIvceOTy6zoQ9gWJftRpEcL+MwNTIUyZYrxvtTWsRwT53 ++QTuEibYZrM6l76IYBWKT8iXM8H+g0vzmx8i+FZtfAqqmHBA5X6Fs6goFmSS +VUXrmHDiq3pylJso7hPw+qDTywTv0FUJ37xEMUhHWbStnwk+Qi3RlgGiyMaY +1PAeYsIpDAoTixbFX6KNvyJHmXD2dtWx/AJRJNuGt+76yYSYfeb0T/OiSL8W +Guq8mgWSpU2S7KvEcOtYtNmDtSwoFN63oLlODKWa7twa4WJB+6eDz5I3iCFP +s9ewJS8LFGwCN9nsFMMJkV7jR6IsYD5bXI6wFcPvd9JSHoqzwFLgfPczFzFs +du8Kz5RgQUBzXKqAvxhahsprnpRhQc3uu2s/3BTDRHe+vbcVWGD/RGFo5b4Y +NnrrvLVWYsH4+vyX6oViePVW7cTfzSwQbCw9c7WG0HdwwpqizAI3i4Zxqwkx +9O852WGgyYLZvD1vz82JoUPWE+lcLRbEcLfdL1wRw+d88Zs5yYSfuj4XPhFx +rLp+5/YTCgv+mc41vTcUx6yn9XYJBixIyg0p+GcqjkzHALknhoS/tWyxqjbi +SPqB9a9ohJ/XPEZXPMRxhOn9XwewoF8hSea5rziKc4+LtSHh76Lon8mz4vgp +qN6+zogFGdvlSiwTxXHFRSH72nYWqN1/cDUsXRz5tL6VnNhB+GdX9n6cLY7X +WzOqqCYsGPtPR3E9QxwZwzdfPjdlQdjGylWG/4ljjfO+an8zFghEYu+Jd+J4 +K6vnlfROFujhrrR3feLYeMlvxMGcBY13PwT8HRPH+zQBnlGC3VbsrJVnxbFw +Kp/ua0HE52C3yv5lYr+itJgpgmNeuHHHc5HQwFdr1H0XkX/ZkeEKIRKyf+o+ +3ExwYfiJmnFpEn4zWfynZckC457pO5KbSVj4c5Z1heB2w6BQC00S/iyn3eoj ++Pjtvw4hBiR0kzd7sGU3Ed+/EeR8ExJWn47r9iQ4af9awa49JBRLjTTKIlih +Mn6K25mEFZxFXU0EMyUFG/SPkND9d2b+LMGWITdyvXxIaLi5pVTQioh3p9SF +m2dIyDXet6RIcID+Pdf6KBLyKDlGaxJskcU3uyuBhJ6/7I6TCd7EGRbbdJ2E +T994l6kTvHhyTNrmLgkbQpOOyxP8odW+qOURCZvtmQn8BD8yeGViX0zCOLY+ +2f/vfz5bs6ujkoQtUewKHwm2577rs/81CRVMFO7mEqzmt56jt4mEfVzm1wIJ +XvP5bJpbBwnbhs9wGBD8hfZNeWiAhHmmL38uEvEpzdlX7TFBQuPhbUeKCI5f +V7NvdJaEW9++dz5EsPsp9bHjyyT8pf+8k5tgauft8ClOCXzcLPg1n8jHaG5w +7k9JCSyadHnYTuTvJe8w9bSCBDa8Tz16iOAbgbbNC6oSSD1X+vwrkX8TY9Xf +SyiBA9ttsI2oF+m8jITzFhJ4z2TrKWOCZ/m5NrLvk8Bzo3d2PiLqK7tn0Jzz +mAT6XzGYPkDU39kd1r1xfhIondH+9glRn9YFz0+tD5HAHLsF63miflfOpN8S +vCKBstMtF/2J+nYRsZqSKpFAeduJJgGiH7RDKyPvVElg2duriUpEv/AMbhHb ++EYCg/llJHXoLGA95QClTglivrlkGxL9JraLlaSxIoFOM//a5nRZMFWkpFjC +JYk89u57PxH9+oqUytIRksT3iR8YD3WI/I/4DFIVJbHlefJ2mjaRz0gFssku +SUz/yHgrrMaCh6PJdW/3SWJR7LFehgoLzu1ZcbE4KIkpYb8X9hHzQ1Wm69Ie +f0k02NdrFLKFBZeZVz87pUnimyKtVP9NLNjx40+Iz5AkZiiGOYgR8+3sztRt +/01KougLwQN2wkR/3FPtEp6XxBqTO4NXBFlA2uemz+KSwkhGTOgEMR8nma8X +ONSkkLsqwdSJmKfXopICb56RwqV9eo7s80yo696qMBkphdbF4Rzdv5iwRK5t +ocdLYYnf8WNPZphw9Nuc1tdMKVS8UHQMpojzxnL/jFqtFG4JfPKU9JUJg6JK +Pq94pfGVU1ny/Q9MEPd9KSMuLo23ebPDJZqYYFnn+N5Ljnj/Yskl7h0TykPi +Vfi1pfGC38xqhzdMuNw3Pe7kKI0vYmbd8yuZoJVXeexHtjRe8tiWS37AhEhD +m0OSejLYlnJW4mcAE3YevPNT11gGU8tfhhz1YwJfxMQFO0sZnE+Vsmr1ZsLt +2ku5SW4y+KLC0PW2BxOYFhUTa+Nk0KE1n9lrz4RpR/mgX50yuPfGlQoNPSYc +PD13uTFUFvlvfx1VnWeAYpqx9PglWRT+ePFU1wyDiN/VJ5xJsphQ1iIUSZz3 +IUtbPxjnyOKa5ODHVV8ZcP3CQVFWoyxaz861T31iQGPy27sPZDagZu+bB4aF +DKAW3iw993ID1vwOtCxyY8COz03/vtdtQJVcka2rXBhgxbbazPXTBnTOfh1g +6cCAw7Y+nTC8AVXz3h9p280A09CN5yPWyOF5pSL1IioD/DbM3zdSlsMhI3nD +VGEGvDp2d6o2SA5tnof0KtWUg/fvmYg63o34iH44IFC4HBaVBXpV7TbhWpOO +1JITpWBY8Djrxg151FLDS2vvFcOMkIWbfY0C/nn1KuJo/zP4muBmf4pTCffJ +aPS8/vYEzH8Emw9TNqPpta2+7a75MHmYK6D0/BY8YKl28kZZLnHfF2ePqdmK +193eXO93vA9C75USn/3Yhg1cRxg5wcT9PvapNYWigoMaTywP7rkF6cr6AsLH +VJH/un7Rhvwb0CBppPMrWQ1LtLhVqE9SgCpdk6Tero7/rfspv3ryCgzKK/SO +damjWb0v741PVyBOOVo5p08dLdpeRumxrkAH1eINaUwdnba2/S2MvgLBTp/+ +rlpSx8jxd9cObboCzrv8tccFNNApd/PjDpcEuBFLjAOKBsbxuSqP9lwGPo7s +wENRGmgqXm60mz8W1i6+3DtzUQN7qOsceX7HwPL3Hq3IGA00/Dah1tkfAz+6 +JGayEjQwyoxnpaA4Bj4UJ5/sv6GByWL8uxUdYiDFPfKoa4EG/jV6znC9Hw1i +NW6OB1o1cH9QVF/lzksgG7nB0ElJE0kTosnmr6OgMIBrU88WTfz4yedgUnEU +0I/OcB5S1sTLd6xsRu5GwYFdtS2eGpq4aVVPzMuQKLgteuzEGaomBvSkEL+J +Aon8wow0K02E4d1pL7IiQaSFttgWpIm9nNWpA5cjgFvRpdz2rSYe3PVWz10o +HI5LgEVBvSaqj8YP882HQQPvpl6ORk00fWYd8KkzDBLmv60p+6CJ2bd4ljPv +hQFfXYCdeJcmbg6t9zDRCgOhE/Gz3ZOaaOUWrdbgEArSRRVaHkJauOyl6G1T +chbUaBJPgw9o4dwnf9/LeUFQIu/1l91NC412FU7cTAoCPR6WWaK7FvoGDSVW +BweB8WfH/pxjWsjUucez1zQI7P3TBT/5a+HKiqJU/NfTcP6BeKBKtBbW8Tq/ +01c8DR94xfQHCrXw/RQrU54RAKd6hWot2LRxj7lhbb2EP9S9cXmez66NPFK2 +6kGc/iD7NJfBs0YbJSq3+GvP+UHDeerjBm5tjLtqZtr/wQ82bXS/biGsjR3/ +Lo2uivODj4eLjlkoaSNzbJtz2W9f0Bjbs97CUhu5c07T5XpPQvTHm2vzrbTR +4ZNQV8Tzk/CFNcTGY6ONsalLZLbMkxB7OXiu3k4b0xuS3zu7nIR+5bu95q7a +eMOojTf8izck+Xx/Zn6K0PPCg8d98AT8+JVgZ56ujbwmKaOCq4/Dl4579pkZ +2vit2j//2TcvaHhe7jBzWxsrnMd3H3/nBTkx/U437xF6wpxGVa95gbMU+eBY +vjZueytKnpX3gtfG3Ufjnmvjn+23E05YeMKt5K1n6ge1kbSU6xiSfxRig+hn +ZYa1sbrvwy2r5KMQtH9viP83bbRTnTEzOHMUrBXDwyQmtXGjx9nEA6ZHYS3r +Q4TXnDa6zIa/qB3yAP/+4DhuLjLO6QSQ1sp7gJn6mwxzVTKSr83I9BcfBse1 +O/d9UCfjUmHaRlbGYTjeU8/roEXGM4YUxcdRhyEx/n3EEV0ybv74+EOf7WFo +/9Z69LwRGU+33dcPnXWHI1lDWmV2ZNxxbEOcj6E7RAmueid3joxhjMrEgl43 +SB2NuvgwgoxblnduvlnvBrkvV9PVLpBxxYZvKbPUDRpOchUZxJJR+r7tmqnL +biDYwJ9mn0JGlTcaZnf03CArSvZwQi4Zs7nX+AVpuMKLXwZ/F5rIuNrEU/ZO +swvca2S47/1I6Ne4ZXDiiQtcfKDdUNhCRqXSby4u8S5g7qB806ODjPeHy1Xy +zVygtUJSt2WAjMe2/I2f/m8/jEcuniqcJWPlracD6587g5gAY/yIpA6K7HvX ++LjRERZHtWyrpXVwls/R+UWhI3z5r5AltUEHDwilSEwnOcK9gNzYT/I6mB+x +wCixcwSVz9eVUFUH2XMMTJj9DmB8J9BdCnVwUvTjscwle/BR0er66KGDe34N +sQntsoPTC5J/XD11MGMg5/F/anYQVsMh+f24Dqq4k3muCdlBvGObE4+fDnJv +WGOb0bUPHl0802kcooMyByUP6Hrvg8EvLzpKEnUwvuXS0pXre8H+yq7P1xkE +/5tLertiAwccyQvyFToYoHdz68lvNnBEXka8uEoH57reu2o020AA67t903+E +nsPiW/nv2kDScHL72kYdLLPt+7gNbaCB1tEW3E/oS58YehljDbTvR1qduCm4 +xzGvdJODFYhVmmVXraPgz/Xn7OU1rOB7zDa/DXwUdCAnattwW8GdjdPrhoUo +eKwza0y7ajcs7wvd7idNwdXXde0EFHbDy8rk4mh1ChbedJJZ/rsLjOJeJJXY +UbBaq2Bf2DtzkLS/d1DMkYKcjoMLTXnm8HPTRZWzzhR8uVbS2zzWHLKrzOvo +rhS0TnaXLzMxB/bp1pV6Twr6HHnqcLhmJ9TaT/j0h1IwZmA0faHGDEwUSLt5 +symYypZ3ZLLPBEqnXm88kkPBWQEr2/BaE1BgBMxX5FLw9VB/q/pDE1ht0XzX +s4CCC2vyeRd9TKDGN/pnbSkFLXM0oklsJkCvnE0LeUvBbBFS+cktO4Bi+3Hw +2yQFf90kC8UmGUOu1HkG/Qeh/4DEfp4zxiA6rJJwfYaCSQ3PxPJdjWE2OFZn ++zwF837yehmpG0NxJsTeWaGgF6+kWGOzEaiPPVG1E9LFCxdc3lLEjGBLxOUz +Nbq6uH1mp8dGX4AqgwdrLKm6uCbgXuZ5IwDrhZcpbYa6qKr88IikCMAZn7nH +o0a66He+JnJ1BR3qXNwG+Cx1cYjxyvA+Fx089SkW+910UTpR8cX7Z4aQ93NA +ajZWF+s+nVL7t40K9MKlR+HxuvjIzGyn52oqfPISp3Am6qLRNd14zl59+NNv +aS15TRehUiB5IFkfLJoZFzFTF/lVlN4t/dWD8YIrUwlFuihHfWuY0akL2zz0 +Xyp26eIgNXO+makDVzdZ/bnwRRcn2suGAzN0YLbPXWewVxdX/tP6jGE68MI5 +oeDOkC6uXvuedzfqgK11X5r4FLHeY8+4ZgMZzhpc8uNm08Ohxa3za4e1oU7w +48YpRT201b78oURHC1Sbh112bdHDhrXsJsNSWpCS8Cctb5semqyAvx67Frhw +KvAdVdfDvPMZttubNeHHUtCfXj09nLviNjlyXBPERqVbPuzSQyW3PxnbH2mA +xwvPi6X+esjlGP0oLVANvp8cDzYJ1EO1bI7NaiZqcEbG+0R7kB4KLNd94RJT +g8thvra/Q/VQIuNVfBxTFZ5Rg+QMo/VwVU+4SyGbKiyVX6iqzdDD+c6rZGqm +MqQ8vTP7qVYPL+w1GBFcsxWkXeVGD78h/JX+a7vcswUe8GV3z9bp4ev4H/do +5VuAefJBjViTHu5U3Hdrj+cW6FF+nOTcoYdNOro10s2bYcsjlsrgJOHn0Tl/ +yYdK8DKr9ciMqD6+ElgMyzunAP2WG12DSPrIeyI92POgArAtnnT6K6mPl871 +3bCnK4CxDafVGjl9FG7P2flyWR7erKLqSmzTx+NvWp9URspDo/tdbiO6PhZJ +5wkpJ22CLoXjhUlH9VFm8tlRs/dy8PdD+SNRL33MnaipCyqWA+lwjvsZJ/SR +qXqGrSlNDg603U7L8dPHMZly0i93Oei/1BzBDNFHa9eNCgrzG+DbCHlvf6I+ +ug2l7x4/Iguzj1YW1Bn6KJ82r9t5RgpG7E2z4lj6eHSwOtN1jxR0rL6yc6hS +HzVFfU/IKUlBpZvkzRvV+uhpLi9o3SoJUSQd6r964v3j2P2u2pIgEHs8rOGL +PvYc8C/695cEKsfa2DzYqZhgrZO7s0wMZEWl816spmJNVv7upBQxEKh1tyFx +UtH2UEoyt58Y/JKdvvduHRVdc3aMX1UWg4p2nu1aolT0U6z88DVHFHaa4qWV +zVTMcX4xF5wlAocVC7gzdlNxRuBGxw2WEIS8PnhcyZqKNhtHCrdmCEGSh9C7 +Ylsqui9v+jYVIgRVD84mvHOg4tSFS67cNCEQUdrJ/+8QFcNXaZRcrBWEN0rD +Im5BVBwVL1Wx7hSAbVs2yCndpeJy9Pu695Z8QDRyRPE9KsqxidvvkOADe8/o +AXoOFUvuZcrwjvDChUdT2Q55VLynXhl0LYIXvmypUowroaKazID2UdZ6SNzq +pDz5loqvdfh+V+mvg5lt1yjF08R6/lVGpFNc0NGIJsK/qLgYv+5XtQUXVPt8 +3xs4R0XfhW75B/JckFhs7k/5Q8VO0uVS2XZO2EZle1zBYYCrRVwS3tM4wd38 +5MZaMQMMez9NaxFfC63HzNa3Ghpgx7VFpsssB1Ryz0nqgAG63nrt3d3CAdkF +2VtvGBlge/ngfHwJB/j9+GfqaGqAJV5upyIDOIA3uDTyyx4DZBx66lg+xw6m +0RsXvrob4Bv/gsx1HOzAzPk7MBdrgA9an05dAzagbA9csIg3QBfXuBVrRTYo +G5hcn3XFAHOFT4lQ1rFBsWyvrkWKAbr1U+q/F67QH6dXX7lzywB7DNbMZQ0t +07MSLumbFRrgzLo1aY77/9HjAvmT01sMcDbqS51a5B86l3Bs7lSbAW5UEwjq +sPtDjy5iqzLuMMCMygCu19v+0C9+nxmZ/GKAB9nr9nu0LdLPebYaGo0YoDq3 +tQ1TdZF+yuXm6NhvA/wxKM+wG1+gO++QRwNZQ+T3VLBaTJqj/2vl4quVM8TH +jx4rmB+fo2d5fO+2kDdEw+Lw9K7tc/SRaFaw8xZD/D1lwqxemKWfqt/z9KyW +ITq2Jt1KdJ+lX7YKk2WaEiw2N9Ox/Re9wrFtiexriLJBOT6XtGboB8YqGqr8 +DZE4eQ5aCM/Q2UKy0ncEGuL9HFs2k9lpuumtE+R9Zw1xR/gqjq7yafqnnlXe +ARcMMRpS88/Sp+nj7mrdRWmGeP2heGNC4Xe61MkYllq1IcY9CrR+5zRBT1w5 +qhNfQ+w3r27Qt22Czp5iWvTtlSGuOz8YDEvj9PHyNXlZ9YZ4Ve266NDdcXoF +28V0oRZDdHs6YpE/PkZ3To0Inh82xGy2Q7NtV0bp6ZVndV6so+GJm5kCTzhH +6OutnIok+WhIsinwPj0wTI/o11MNFqDhjaoMZljlMN1zzW8FDVEaJvqUZ5j6 +DdN19wSJZMvScNfPGLbnX77S2wdP/bqkScNHR752DlQP0UV5vIt2O9AwhkMR +rpUQrbQ9PGTaiYY+/rajU0kDdK3wxO3XXGgYsLB3TZzPAN1q+llbxyEaxm19 ++PnctgF6dPvc4mFvGo5MHn/q8qCf/jv7vHFIJA2HjSIFVu/uo3cZXGvJLaDh +bWuRJwYPu+mep3NumxfS8JmS3vdTft30+cIyj8lnNDxU/yxEkNpNF9rUsaBZ +TkMYi0iLbOqi7+KSkX5eTUP5FSkByaVOelVr7pGWNhpumO02T/bqoFvwMVWD +Omg4g4/vj+l10DvM6udJ3TRUGy21v8PVQZ+tmIg92E/Dc09VtSXzPtNV72k8 +GRsn1gNtyvx7O72qyygoYYqG/F45GgHV7XQLkb2gPk3DzIIrL36ltNOPxpz+ +GDhHw5C7saa/9drps9XRGeK/aVhnd447dH07PepP2uGKPzQ0WVX5yLa/jS5A +zlM58I+GXQGG8edK2+h3TlbMrawQfg+zSyzHttH/B3NuE+w= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2153,307 +6758,186 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwVlnc8le8bx0VllL2OmTIaNsfB4ZzrohBJKDNFSlEyIsooVEYkpEgpSQql +zHMOKl8aSFRGRnZkFmWkxO/5/fW83q/nfp7787nWfW9097X1YGdjY/uwio3t +/8/53vpXCvE5dJugnCGOIBt66x3SWaOOKAjuK4t3W60BKNrsTupIAaFcG1Hq +aoQg6/zPHB3ZMP2EPUhytTUIfhdPWfxcDLZuV8U6Odygr8rKd/ZzDcimpqn/ +ZPcDU4XxnpnPn6CbrFHcuHweFj/rXp/+PAijId+/JQxehdrtD3M+Zv+Cnp6x +ndP7s0C6jzXirvIP/PM8rqSzHoKIt2s+53YOHAm7FKhgUwjbOO+/sXbgQG2R +C1vkvAsBs0cGb57gQPtnTSK8MYXg3XFSSiWVA8fn2j0rqgrh1Y6wBOthDiw+ +9a/m0OanEChz0+dmzGq8KzoR17n4FFqaPmkpN65B7/D/pJPrn0GKpmmllR0X +1pb3SAdaFIN6t5MZzZMLHb6/01axK4bGiydblEO50M6Vs/6LazGs7Uid4LrH +hbcnpA5tPl0MoeeGpGonuTBTv3Xi0N1iOPIuIkz3IjfGcsplev0sBopHJU2u +hAc1D3msK0wpgRa+5nq+NzwofTKwx/d2CfgxB+3+dfDgcROn91tzSyB/HY9P +1zIPMpt+/r3EKoENxY53Ui3W4VWlIou+vhLgWplb5hpchzcDOE8JK5dCZ7pG +9YwAL95XoUv5V5ZCRksBf5AiL3Kv1JCmXpWCM99m1z/6vNiorxPq2lQKXy7I +LLMf5sUQSt6RzQOl0O/DYyhSxosLVr0Xtq8tg9EdXxkUJz7c5Cj5Jd+qDH5P +pz0NvcePEmMmlUodZcBSFl5ZKePH03lc34/3l0HI0USriw38yDnwx+jBaBks +dV+cSvjFjyVdg6ZLv8sgYogp2rxJACW4ktK1JcrhYtODvf2BArjh6YjgG4dy +iM8538wuIYiPKx4k+b8vBwuyl5CovCDuTTK5Yd9aDlyvbO02qwqilvexX5rd +xPdDit27jAQxes+ponej5RC2qXEk1UsQOc4MbYvnYIBPFmlZqUIQx1SEb+nr +MsDmdpHKrv1CyHxutd42jQECKrd8D3gIYfO388qrMhnQVHmx2NdXCEfvfk3P +zWaARbeDXuoFIfy46vPB1icMMJZc3t5TIIQF2wpvV9YygJxusd93SQg7e2o3 +sKYYIJ46FHctUxg1XosnBVCZQFIuu/g7Vxjl7OYis+hMkKyJPn/gmTCWVrQK +vTZmguz01tOba4VxHfO2yJwFExQt/dwqR4WR9NyvcNqZCdqr/1GGtEUwqvrg +X/uzTCDfatLcSRNBfm1Po+UwJlC0slSemIpguNptcmYEE6hu2zcFO4ngwZJC +pZoYJhhVxfGuOy+CIvceOTy6zoQ9gWJftRpEcL+MwNTIUyZYrxvtTWsRwT53 ++QTuEibYZrM6l76IYBWKT8iXM8H+g0vzmx8i+FZtfAqqmHBA5X6Fs6goFmSS +VUXrmHDiq3pylJso7hPw+qDTywTv0FUJ37xEMUhHWbStnwk+Qi3RlgGiyMaY +1PAeYsIpDAoTixbFX6KNvyJHmXD2dtWx/AJRJNuGt+76yYSYfeb0T/OiSL8W +Guq8mgWSpU2S7KvEcOtYtNmDtSwoFN63oLlODKWa7twa4WJB+6eDz5I3iCFP +s9ewJS8LFGwCN9nsFMMJkV7jR6IsYD5bXI6wFcPvd9JSHoqzwFLgfPczFzFs +du8Kz5RgQUBzXKqAvxhahsprnpRhQc3uu2s/3BTDRHe+vbcVWGD/RGFo5b4Y +NnrrvLVWYsH4+vyX6oViePVW7cTfzSwQbCw9c7WG0HdwwpqizAI3i4Zxqwkx +9O852WGgyYLZvD1vz82JoUPWE+lcLRbEcLfdL1wRw+d88Zs5yYSfuj4XPhFx +rLp+5/YTCgv+mc41vTcUx6yn9XYJBixIyg0p+GcqjkzHALknhoS/tWyxqjbi +SPqB9a9ohJ/XPEZXPMRxhOn9XwewoF8hSea5rziKc4+LtSHh76Lon8mz4vgp +qN6+zogFGdvlSiwTxXHFRSH72nYWqN1/cDUsXRz5tL6VnNhB+GdX9n6cLY7X +WzOqqCYsGPtPR3E9QxwZwzdfPjdlQdjGylWG/4ljjfO+an8zFghEYu+Jd+J4 +K6vnlfROFujhrrR3feLYeMlvxMGcBY13PwT8HRPH+zQBnlGC3VbsrJVnxbFw +Kp/ua0HE52C3yv5lYr+itJgpgmNeuHHHc5HQwFdr1H0XkX/ZkeEKIRKyf+o+ +3ExwYfiJmnFpEn4zWfynZckC457pO5KbSVj4c5Z1heB2w6BQC00S/iyn3eoj ++Pjtvw4hBiR0kzd7sGU3Ed+/EeR8ExJWn47r9iQ4af9awa49JBRLjTTKIlih +Mn6K25mEFZxFXU0EMyUFG/SPkND9d2b+LMGWITdyvXxIaLi5pVTQioh3p9SF +m2dIyDXet6RIcID+Pdf6KBLyKDlGaxJskcU3uyuBhJ6/7I6TCd7EGRbbdJ2E +T994l6kTvHhyTNrmLgkbQpOOyxP8odW+qOURCZvtmQn8BD8yeGViX0zCOLY+ +2f/vfz5bs6ujkoQtUewKHwm2577rs/81CRVMFO7mEqzmt56jt4mEfVzm1wIJ +XvP5bJpbBwnbhs9wGBD8hfZNeWiAhHmmL38uEvEpzdlX7TFBQuPhbUeKCI5f +V7NvdJaEW9++dz5EsPsp9bHjyyT8pf+8k5tgauft8ClOCXzcLPg1n8jHaG5w +7k9JCSyadHnYTuTvJe8w9bSCBDa8Tz16iOAbgbbNC6oSSD1X+vwrkX8TY9Xf +SyiBA9ttsI2oF+m8jITzFhJ4z2TrKWOCZ/m5NrLvk8Bzo3d2PiLqK7tn0Jzz +mAT6XzGYPkDU39kd1r1xfhIondH+9glRn9YFz0+tD5HAHLsF63miflfOpN8S +vCKBstMtF/2J+nYRsZqSKpFAeduJJgGiH7RDKyPvVElg2duriUpEv/AMbhHb ++EYCg/llJHXoLGA95QClTglivrlkGxL9JraLlaSxIoFOM//a5nRZMFWkpFjC +JYk89u57PxH9+oqUytIRksT3iR8YD3WI/I/4DFIVJbHlefJ2mjaRz0gFssku +SUz/yHgrrMaCh6PJdW/3SWJR7LFehgoLzu1ZcbE4KIkpYb8X9hHzQ1Wm69Ie +f0k02NdrFLKFBZeZVz87pUnimyKtVP9NLNjx40+Iz5AkZiiGOYgR8+3sztRt +/01KougLwQN2wkR/3FPtEp6XxBqTO4NXBFlA2uemz+KSwkhGTOgEMR8nma8X +ONSkkLsqwdSJmKfXopICb56RwqV9eo7s80yo696qMBkphdbF4Rzdv5iwRK5t +ocdLYYnf8WNPZphw9Nuc1tdMKVS8UHQMpojzxnL/jFqtFG4JfPKU9JUJg6JK +Pq94pfGVU1ny/Q9MEPd9KSMuLo23ebPDJZqYYFnn+N5Ljnj/Yskl7h0TykPi +Vfi1pfGC38xqhzdMuNw3Pe7kKI0vYmbd8yuZoJVXeexHtjRe8tiWS37AhEhD +m0OSejLYlnJW4mcAE3YevPNT11gGU8tfhhz1YwJfxMQFO0sZnE+Vsmr1ZsLt +2ku5SW4y+KLC0PW2BxOYFhUTa+Nk0KE1n9lrz4RpR/mgX50yuPfGlQoNPSYc +PD13uTFUFvlvfx1VnWeAYpqx9PglWRT+ePFU1wyDiN/VJ5xJsphQ1iIUSZz3 +IUtbPxjnyOKa5ODHVV8ZcP3CQVFWoyxaz861T31iQGPy27sPZDagZu+bB4aF +DKAW3iw993ID1vwOtCxyY8COz03/vtdtQJVcka2rXBhgxbbazPXTBnTOfh1g +6cCAw7Y+nTC8AVXz3h9p280A09CN5yPWyOF5pSL1IioD/DbM3zdSlsMhI3nD +VGEGvDp2d6o2SA5tnof0KtWUg/fvmYg63o34iH44IFC4HBaVBXpV7TbhWpOO +1JITpWBY8Djrxg151FLDS2vvFcOMkIWbfY0C/nn1KuJo/zP4muBmf4pTCffJ +aPS8/vYEzH8Emw9TNqPpta2+7a75MHmYK6D0/BY8YKl28kZZLnHfF2ePqdmK +193eXO93vA9C75USn/3Yhg1cRxg5wcT9PvapNYWigoMaTywP7rkF6cr6AsLH +VJH/un7Rhvwb0CBppPMrWQ1LtLhVqE9SgCpdk6Tero7/rfspv3ryCgzKK/SO +damjWb0v741PVyBOOVo5p08dLdpeRumxrkAH1eINaUwdnba2/S2MvgLBTp/+ +rlpSx8jxd9cObboCzrv8tccFNNApd/PjDpcEuBFLjAOKBsbxuSqP9lwGPo7s +wENRGmgqXm60mz8W1i6+3DtzUQN7qOsceX7HwPL3Hq3IGA00/Dah1tkfAz+6 +JGayEjQwyoxnpaA4Bj4UJ5/sv6GByWL8uxUdYiDFPfKoa4EG/jV6znC9Hw1i +NW6OB1o1cH9QVF/lzksgG7nB0ElJE0kTosnmr6OgMIBrU88WTfz4yedgUnEU +0I/OcB5S1sTLd6xsRu5GwYFdtS2eGpq4aVVPzMuQKLgteuzEGaomBvSkEL+J +Aon8wow0K02E4d1pL7IiQaSFttgWpIm9nNWpA5cjgFvRpdz2rSYe3PVWz10o +HI5LgEVBvSaqj8YP882HQQPvpl6ORk00fWYd8KkzDBLmv60p+6CJ2bd4ljPv +hQFfXYCdeJcmbg6t9zDRCgOhE/Gz3ZOaaOUWrdbgEArSRRVaHkJauOyl6G1T +chbUaBJPgw9o4dwnf9/LeUFQIu/1l91NC412FU7cTAoCPR6WWaK7FvoGDSVW +BweB8WfH/pxjWsjUucez1zQI7P3TBT/5a+HKiqJU/NfTcP6BeKBKtBbW8Tq/ +01c8DR94xfQHCrXw/RQrU54RAKd6hWot2LRxj7lhbb2EP9S9cXmez66NPFK2 +6kGc/iD7NJfBs0YbJSq3+GvP+UHDeerjBm5tjLtqZtr/wQ82bXS/biGsjR3/ +Lo2uivODj4eLjlkoaSNzbJtz2W9f0Bjbs97CUhu5c07T5XpPQvTHm2vzrbTR +4ZNQV8Tzk/CFNcTGY6ONsalLZLbMkxB7OXiu3k4b0xuS3zu7nIR+5bu95q7a +eMOojTf8izck+Xx/Zn6K0PPCg8d98AT8+JVgZ56ujbwmKaOCq4/Dl4579pkZ +2vit2j//2TcvaHhe7jBzWxsrnMd3H3/nBTkx/U437xF6wpxGVa95gbMU+eBY +vjZueytKnpX3gtfG3Ufjnmvjn+23E05YeMKt5K1n6ge1kbSU6xiSfxRig+hn +ZYa1sbrvwy2r5KMQtH9viP83bbRTnTEzOHMUrBXDwyQmtXGjx9nEA6ZHYS3r +Q4TXnDa6zIa/qB3yAP/+4DhuLjLO6QSQ1sp7gJn6mwxzVTKSr83I9BcfBse1 +O/d9UCfjUmHaRlbGYTjeU8/roEXGM4YUxcdRhyEx/n3EEV0ybv74+EOf7WFo +/9Z69LwRGU+33dcPnXWHI1lDWmV2ZNxxbEOcj6E7RAmueid3joxhjMrEgl43 +SB2NuvgwgoxblnduvlnvBrkvV9PVLpBxxYZvKbPUDRpOchUZxJJR+r7tmqnL +biDYwJ9mn0JGlTcaZnf03CArSvZwQi4Zs7nX+AVpuMKLXwZ/F5rIuNrEU/ZO +swvca2S47/1I6Ne4ZXDiiQtcfKDdUNhCRqXSby4u8S5g7qB806ODjPeHy1Xy +zVygtUJSt2WAjMe2/I2f/m8/jEcuniqcJWPlracD6587g5gAY/yIpA6K7HvX ++LjRERZHtWyrpXVwls/R+UWhI3z5r5AltUEHDwilSEwnOcK9gNzYT/I6mB+x +wCixcwSVz9eVUFUH2XMMTJj9DmB8J9BdCnVwUvTjscwle/BR0er66KGDe34N +sQntsoPTC5J/XD11MGMg5/F/anYQVsMh+f24Dqq4k3muCdlBvGObE4+fDnJv +WGOb0bUPHl0802kcooMyByUP6Hrvg8EvLzpKEnUwvuXS0pXre8H+yq7P1xkE +/5tLertiAwccyQvyFToYoHdz68lvNnBEXka8uEoH57reu2o020AA67t903+E +nsPiW/nv2kDScHL72kYdLLPt+7gNbaCB1tEW3E/oS58YehljDbTvR1qduCm4 +xzGvdJODFYhVmmVXraPgz/Xn7OU1rOB7zDa/DXwUdCAnattwW8GdjdPrhoUo +eKwza0y7ajcs7wvd7idNwdXXde0EFHbDy8rk4mh1ChbedJJZ/rsLjOJeJJXY +UbBaq2Bf2DtzkLS/d1DMkYKcjoMLTXnm8HPTRZWzzhR8uVbS2zzWHLKrzOvo +rhS0TnaXLzMxB/bp1pV6Twr6HHnqcLhmJ9TaT/j0h1IwZmA0faHGDEwUSLt5 +symYypZ3ZLLPBEqnXm88kkPBWQEr2/BaE1BgBMxX5FLw9VB/q/pDE1ht0XzX +s4CCC2vyeRd9TKDGN/pnbSkFLXM0oklsJkCvnE0LeUvBbBFS+cktO4Bi+3Hw +2yQFf90kC8UmGUOu1HkG/Qeh/4DEfp4zxiA6rJJwfYaCSQ3PxPJdjWE2OFZn ++zwF837yehmpG0NxJsTeWaGgF6+kWGOzEaiPPVG1E9LFCxdc3lLEjGBLxOUz +Nbq6uH1mp8dGX4AqgwdrLKm6uCbgXuZ5IwDrhZcpbYa6qKr88IikCMAZn7nH +o0a66He+JnJ1BR3qXNwG+Cx1cYjxyvA+Fx089SkW+910UTpR8cX7Z4aQ93NA +ajZWF+s+nVL7t40K9MKlR+HxuvjIzGyn52oqfPISp3Am6qLRNd14zl59+NNv +aS15TRehUiB5IFkfLJoZFzFTF/lVlN4t/dWD8YIrUwlFuihHfWuY0akL2zz0 +Xyp26eIgNXO+makDVzdZ/bnwRRcn2suGAzN0YLbPXWewVxdX/tP6jGE68MI5 +oeDOkC6uXvuedzfqgK11X5r4FLHeY8+4ZgMZzhpc8uNm08Ohxa3za4e1oU7w +48YpRT201b78oURHC1Sbh112bdHDhrXsJsNSWpCS8Cctb5semqyAvx67Frhw +KvAdVdfDvPMZttubNeHHUtCfXj09nLviNjlyXBPERqVbPuzSQyW3PxnbH2mA +xwvPi6X+esjlGP0oLVANvp8cDzYJ1EO1bI7NaiZqcEbG+0R7kB4KLNd94RJT +g8thvra/Q/VQIuNVfBxTFZ5Rg+QMo/VwVU+4SyGbKiyVX6iqzdDD+c6rZGqm +MqQ8vTP7qVYPL+w1GBFcsxWkXeVGD78h/JX+a7vcswUe8GV3z9bp4ev4H/do +5VuAefJBjViTHu5U3Hdrj+cW6FF+nOTcoYdNOro10s2bYcsjlsrgJOHn0Tl/ +yYdK8DKr9ciMqD6+ElgMyzunAP2WG12DSPrIeyI92POgArAtnnT6K6mPl871 +3bCnK4CxDafVGjl9FG7P2flyWR7erKLqSmzTx+NvWp9URspDo/tdbiO6PhZJ +5wkpJ22CLoXjhUlH9VFm8tlRs/dy8PdD+SNRL33MnaipCyqWA+lwjvsZJ/SR +qXqGrSlNDg603U7L8dPHMZly0i93Oei/1BzBDNFHa9eNCgrzG+DbCHlvf6I+ +ug2l7x4/Iguzj1YW1Bn6KJ82r9t5RgpG7E2z4lj6eHSwOtN1jxR0rL6yc6hS +HzVFfU/IKUlBpZvkzRvV+uhpLi9o3SoJUSQd6r964v3j2P2u2pIgEHs8rOGL +PvYc8C/695cEKsfa2DzYqZhgrZO7s0wMZEWl816spmJNVv7upBQxEKh1tyFx +UtH2UEoyt58Y/JKdvvduHRVdc3aMX1UWg4p2nu1aolT0U6z88DVHFHaa4qWV +zVTMcX4xF5wlAocVC7gzdlNxRuBGxw2WEIS8PnhcyZqKNhtHCrdmCEGSh9C7 +Ylsqui9v+jYVIgRVD84mvHOg4tSFS67cNCEQUdrJ/+8QFcNXaZRcrBWEN0rD +Im5BVBwVL1Wx7hSAbVs2yCndpeJy9Pu695Z8QDRyRPE9KsqxidvvkOADe8/o +AXoOFUvuZcrwjvDChUdT2Q55VLynXhl0LYIXvmypUowroaKazID2UdZ6SNzq +pDz5loqvdfh+V+mvg5lt1yjF08R6/lVGpFNc0NGIJsK/qLgYv+5XtQUXVPt8 +3xs4R0XfhW75B/JckFhs7k/5Q8VO0uVS2XZO2EZle1zBYYCrRVwS3tM4wd38 +5MZaMQMMez9NaxFfC63HzNa3Ghpgx7VFpsssB1Ryz0nqgAG63nrt3d3CAdkF +2VtvGBlge/ngfHwJB/j9+GfqaGqAJV5upyIDOIA3uDTyyx4DZBx66lg+xw6m +0RsXvrob4Bv/gsx1HOzAzPk7MBdrgA9an05dAzagbA9csIg3QBfXuBVrRTYo +G5hcn3XFAHOFT4lQ1rFBsWyvrkWKAbr1U+q/F67QH6dXX7lzywB7DNbMZQ0t +07MSLumbFRrgzLo1aY77/9HjAvmT01sMcDbqS51a5B86l3Bs7lSbAW5UEwjq +sPtDjy5iqzLuMMCMygCu19v+0C9+nxmZ/GKAB9nr9nu0LdLPebYaGo0YoDq3 +tQ1TdZF+yuXm6NhvA/wxKM+wG1+gO++QRwNZQ+T3VLBaTJqj/2vl4quVM8TH +jx4rmB+fo2d5fO+2kDdEw+Lw9K7tc/SRaFaw8xZD/D1lwqxemKWfqt/z9KyW +ITq2Jt1KdJ+lX7YKk2WaEiw2N9Ox/Re9wrFtiexriLJBOT6XtGboB8YqGqr8 +DZE4eQ5aCM/Q2UKy0ncEGuL9HFs2k9lpuumtE+R9Zw1xR/gqjq7yafqnnlXe +ARcMMRpS88/Sp+nj7mrdRWmGeP2heGNC4Xe61MkYllq1IcY9CrR+5zRBT1w5 +qhNfQ+w3r27Qt22Czp5iWvTtlSGuOz8YDEvj9PHyNXlZ9YZ4Ve266NDdcXoF +28V0oRZDdHs6YpE/PkZ3To0Inh82xGy2Q7NtV0bp6ZVndV6so+GJm5kCTzhH +6OutnIok+WhIsinwPj0wTI/o11MNFqDhjaoMZljlMN1zzW8FDVEaJvqUZ5j6 +DdN19wSJZMvScNfPGLbnX77S2wdP/bqkScNHR752DlQP0UV5vIt2O9AwhkMR +rpUQrbQ9PGTaiYY+/rajU0kDdK3wxO3XXGgYsLB3TZzPAN1q+llbxyEaxm19 ++PnctgF6dPvc4mFvGo5MHn/q8qCf/jv7vHFIJA2HjSIFVu/uo3cZXGvJLaDh +bWuRJwYPu+mep3NumxfS8JmS3vdTft30+cIyj8lnNDxU/yxEkNpNF9rUsaBZ +TkMYi0iLbOqi7+KSkX5eTUP5FSkByaVOelVr7pGWNhpumO02T/bqoFvwMVWD +Omg4g4/vj+l10DvM6udJ3TRUGy21v8PVQZ+tmIg92E/Dc09VtSXzPtNV72k8 +GRsn1gNtyvx7O72qyygoYYqG/F45GgHV7XQLkb2gPk3DzIIrL36ltNOPxpz+ +GDhHw5C7saa/9drps9XRGeK/aVhnd447dH07PepP2uGKPzQ0WVX5yLa/jS5A +zlM58I+GXQGG8edK2+h3TlbMrawQfg+zSyzHttH/B3NuE+w= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.09884955974662335}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2465,19 +6949,19 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.09884955974662335}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2491,306 +6975,185 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwVlnc8le8bx0VllL2OmTIaNsfB4ZzrohBJKDNFSlEyIsooVEYkpEgpSQql +zHMOKl8aSFRGRnZkFmWkxO/5/fW83q/nfp7787nWfW9097X1YGdjY/uwio3t +/8/53vpXCvE5dJugnCGOIBt66x3SWaOOKAjuK4t3W60BKNrsTupIAaFcG1Hq +aoQg6/zPHB3ZMP2EPUhytTUIfhdPWfxcDLZuV8U6Odygr8rKd/ZzDcimpqn/ +ZPcDU4XxnpnPn6CbrFHcuHweFj/rXp/+PAijId+/JQxehdrtD3M+Zv+Cnp6x +ndP7s0C6jzXirvIP/PM8rqSzHoKIt2s+53YOHAm7FKhgUwjbOO+/sXbgQG2R +C1vkvAsBs0cGb57gQPtnTSK8MYXg3XFSSiWVA8fn2j0rqgrh1Y6wBOthDiw+ +9a/m0OanEChz0+dmzGq8KzoR17n4FFqaPmkpN65B7/D/pJPrn0GKpmmllR0X +1pb3SAdaFIN6t5MZzZMLHb6/01axK4bGiydblEO50M6Vs/6LazGs7Uid4LrH +hbcnpA5tPl0MoeeGpGonuTBTv3Xi0N1iOPIuIkz3IjfGcsplev0sBopHJU2u +hAc1D3msK0wpgRa+5nq+NzwofTKwx/d2CfgxB+3+dfDgcROn91tzSyB/HY9P +1zIPMpt+/r3EKoENxY53Ui3W4VWlIou+vhLgWplb5hpchzcDOE8JK5dCZ7pG +9YwAL95XoUv5V5ZCRksBf5AiL3Kv1JCmXpWCM99m1z/6vNiorxPq2lQKXy7I +LLMf5sUQSt6RzQOl0O/DYyhSxosLVr0Xtq8tg9EdXxkUJz7c5Cj5Jd+qDH5P +pz0NvcePEmMmlUodZcBSFl5ZKePH03lc34/3l0HI0USriw38yDnwx+jBaBks +dV+cSvjFjyVdg6ZLv8sgYogp2rxJACW4ktK1JcrhYtODvf2BArjh6YjgG4dy +iM8538wuIYiPKx4k+b8vBwuyl5CovCDuTTK5Yd9aDlyvbO02qwqilvexX5rd +xPdDit27jAQxes+ponej5RC2qXEk1UsQOc4MbYvnYIBPFmlZqUIQx1SEb+nr +MsDmdpHKrv1CyHxutd42jQECKrd8D3gIYfO388qrMhnQVHmx2NdXCEfvfk3P +zWaARbeDXuoFIfy46vPB1icMMJZc3t5TIIQF2wpvV9YygJxusd93SQg7e2o3 +sKYYIJ46FHctUxg1XosnBVCZQFIuu/g7Vxjl7OYis+hMkKyJPn/gmTCWVrQK +vTZmguz01tOba4VxHfO2yJwFExQt/dwqR4WR9NyvcNqZCdqr/1GGtEUwqvrg +X/uzTCDfatLcSRNBfm1Po+UwJlC0slSemIpguNptcmYEE6hu2zcFO4ngwZJC +pZoYJhhVxfGuOy+CIvceOTy6zoQ9gWJftRpEcL+MwNTIUyZYrxvtTWsRwT53 ++QTuEibYZrM6l76IYBWKT8iXM8H+g0vzmx8i+FZtfAqqmHBA5X6Fs6goFmSS +VUXrmHDiq3pylJso7hPw+qDTywTv0FUJ37xEMUhHWbStnwk+Qi3RlgGiyMaY +1PAeYsIpDAoTixbFX6KNvyJHmXD2dtWx/AJRJNuGt+76yYSYfeb0T/OiSL8W +Guq8mgWSpU2S7KvEcOtYtNmDtSwoFN63oLlODKWa7twa4WJB+6eDz5I3iCFP +s9ewJS8LFGwCN9nsFMMJkV7jR6IsYD5bXI6wFcPvd9JSHoqzwFLgfPczFzFs +du8Kz5RgQUBzXKqAvxhahsprnpRhQc3uu2s/3BTDRHe+vbcVWGD/RGFo5b4Y +NnrrvLVWYsH4+vyX6oViePVW7cTfzSwQbCw9c7WG0HdwwpqizAI3i4Zxqwkx +9O852WGgyYLZvD1vz82JoUPWE+lcLRbEcLfdL1wRw+d88Zs5yYSfuj4XPhFx +rLp+5/YTCgv+mc41vTcUx6yn9XYJBixIyg0p+GcqjkzHALknhoS/tWyxqjbi +SPqB9a9ohJ/XPEZXPMRxhOn9XwewoF8hSea5rziKc4+LtSHh76Lon8mz4vgp +qN6+zogFGdvlSiwTxXHFRSH72nYWqN1/cDUsXRz5tL6VnNhB+GdX9n6cLY7X +WzOqqCYsGPtPR3E9QxwZwzdfPjdlQdjGylWG/4ljjfO+an8zFghEYu+Jd+J4 +K6vnlfROFujhrrR3feLYeMlvxMGcBY13PwT8HRPH+zQBnlGC3VbsrJVnxbFw +Kp/ua0HE52C3yv5lYr+itJgpgmNeuHHHc5HQwFdr1H0XkX/ZkeEKIRKyf+o+ +3ExwYfiJmnFpEn4zWfynZckC457pO5KbSVj4c5Z1heB2w6BQC00S/iyn3eoj ++Pjtvw4hBiR0kzd7sGU3Ed+/EeR8ExJWn47r9iQ4af9awa49JBRLjTTKIlih +Mn6K25mEFZxFXU0EMyUFG/SPkND9d2b+LMGWITdyvXxIaLi5pVTQioh3p9SF +m2dIyDXet6RIcID+Pdf6KBLyKDlGaxJskcU3uyuBhJ6/7I6TCd7EGRbbdJ2E +T994l6kTvHhyTNrmLgkbQpOOyxP8odW+qOURCZvtmQn8BD8yeGViX0zCOLY+ +2f/vfz5bs6ujkoQtUewKHwm2577rs/81CRVMFO7mEqzmt56jt4mEfVzm1wIJ +XvP5bJpbBwnbhs9wGBD8hfZNeWiAhHmmL38uEvEpzdlX7TFBQuPhbUeKCI5f +V7NvdJaEW9++dz5EsPsp9bHjyyT8pf+8k5tgauft8ClOCXzcLPg1n8jHaG5w +7k9JCSyadHnYTuTvJe8w9bSCBDa8Tz16iOAbgbbNC6oSSD1X+vwrkX8TY9Xf +SyiBA9ttsI2oF+m8jITzFhJ4z2TrKWOCZ/m5NrLvk8Bzo3d2PiLqK7tn0Jzz +mAT6XzGYPkDU39kd1r1xfhIondH+9glRn9YFz0+tD5HAHLsF63miflfOpN8S +vCKBstMtF/2J+nYRsZqSKpFAeduJJgGiH7RDKyPvVElg2duriUpEv/AMbhHb ++EYCg/llJHXoLGA95QClTglivrlkGxL9JraLlaSxIoFOM//a5nRZMFWkpFjC +JYk89u57PxH9+oqUytIRksT3iR8YD3WI/I/4DFIVJbHlefJ2mjaRz0gFssku +SUz/yHgrrMaCh6PJdW/3SWJR7LFehgoLzu1ZcbE4KIkpYb8X9hHzQ1Wm69Ie +f0k02NdrFLKFBZeZVz87pUnimyKtVP9NLNjx40+Iz5AkZiiGOYgR8+3sztRt +/01KougLwQN2wkR/3FPtEp6XxBqTO4NXBFlA2uemz+KSwkhGTOgEMR8nma8X +ONSkkLsqwdSJmKfXopICb56RwqV9eo7s80yo696qMBkphdbF4Rzdv5iwRK5t +ocdLYYnf8WNPZphw9Nuc1tdMKVS8UHQMpojzxnL/jFqtFG4JfPKU9JUJg6JK +Pq94pfGVU1ny/Q9MEPd9KSMuLo23ebPDJZqYYFnn+N5Ljnj/Yskl7h0TykPi +Vfi1pfGC38xqhzdMuNw3Pe7kKI0vYmbd8yuZoJVXeexHtjRe8tiWS37AhEhD +m0OSejLYlnJW4mcAE3YevPNT11gGU8tfhhz1YwJfxMQFO0sZnE+Vsmr1ZsLt +2ku5SW4y+KLC0PW2BxOYFhUTa+Nk0KE1n9lrz4RpR/mgX50yuPfGlQoNPSYc +PD13uTFUFvlvfx1VnWeAYpqx9PglWRT+ePFU1wyDiN/VJ5xJsphQ1iIUSZz3 +IUtbPxjnyOKa5ODHVV8ZcP3CQVFWoyxaz861T31iQGPy27sPZDagZu+bB4aF +DKAW3iw993ID1vwOtCxyY8COz03/vtdtQJVcka2rXBhgxbbazPXTBnTOfh1g +6cCAw7Y+nTC8AVXz3h9p280A09CN5yPWyOF5pSL1IioD/DbM3zdSlsMhI3nD +VGEGvDp2d6o2SA5tnof0KtWUg/fvmYg63o34iH44IFC4HBaVBXpV7TbhWpOO +1JITpWBY8Djrxg151FLDS2vvFcOMkIWbfY0C/nn1KuJo/zP4muBmf4pTCffJ +aPS8/vYEzH8Emw9TNqPpta2+7a75MHmYK6D0/BY8YKl28kZZLnHfF2ePqdmK +193eXO93vA9C75USn/3Yhg1cRxg5wcT9PvapNYWigoMaTywP7rkF6cr6AsLH +VJH/un7Rhvwb0CBppPMrWQ1LtLhVqE9SgCpdk6Tero7/rfspv3ryCgzKK/SO +damjWb0v741PVyBOOVo5p08dLdpeRumxrkAH1eINaUwdnba2/S2MvgLBTp/+ +rlpSx8jxd9cObboCzrv8tccFNNApd/PjDpcEuBFLjAOKBsbxuSqP9lwGPo7s +wENRGmgqXm60mz8W1i6+3DtzUQN7qOsceX7HwPL3Hq3IGA00/Dah1tkfAz+6 +JGayEjQwyoxnpaA4Bj4UJ5/sv6GByWL8uxUdYiDFPfKoa4EG/jV6znC9Hw1i +NW6OB1o1cH9QVF/lzksgG7nB0ElJE0kTosnmr6OgMIBrU88WTfz4yedgUnEU +0I/OcB5S1sTLd6xsRu5GwYFdtS2eGpq4aVVPzMuQKLgteuzEGaomBvSkEL+J +Aon8wow0K02E4d1pL7IiQaSFttgWpIm9nNWpA5cjgFvRpdz2rSYe3PVWz10o +HI5LgEVBvSaqj8YP882HQQPvpl6ORk00fWYd8KkzDBLmv60p+6CJ2bd4ljPv +hQFfXYCdeJcmbg6t9zDRCgOhE/Gz3ZOaaOUWrdbgEArSRRVaHkJauOyl6G1T +chbUaBJPgw9o4dwnf9/LeUFQIu/1l91NC412FU7cTAoCPR6WWaK7FvoGDSVW +BweB8WfH/pxjWsjUucez1zQI7P3TBT/5a+HKiqJU/NfTcP6BeKBKtBbW8Tq/ +01c8DR94xfQHCrXw/RQrU54RAKd6hWot2LRxj7lhbb2EP9S9cXmez66NPFK2 +6kGc/iD7NJfBs0YbJSq3+GvP+UHDeerjBm5tjLtqZtr/wQ82bXS/biGsjR3/ +Lo2uivODj4eLjlkoaSNzbJtz2W9f0Bjbs97CUhu5c07T5XpPQvTHm2vzrbTR +4ZNQV8Tzk/CFNcTGY6ONsalLZLbMkxB7OXiu3k4b0xuS3zu7nIR+5bu95q7a +eMOojTf8izck+Xx/Zn6K0PPCg8d98AT8+JVgZ56ujbwmKaOCq4/Dl4579pkZ +2vit2j//2TcvaHhe7jBzWxsrnMd3H3/nBTkx/U437xF6wpxGVa95gbMU+eBY +vjZueytKnpX3gtfG3Ufjnmvjn+23E05YeMKt5K1n6ge1kbSU6xiSfxRig+hn +ZYa1sbrvwy2r5KMQtH9viP83bbRTnTEzOHMUrBXDwyQmtXGjx9nEA6ZHYS3r +Q4TXnDa6zIa/qB3yAP/+4DhuLjLO6QSQ1sp7gJn6mwxzVTKSr83I9BcfBse1 +O/d9UCfjUmHaRlbGYTjeU8/roEXGM4YUxcdRhyEx/n3EEV0ybv74+EOf7WFo +/9Z69LwRGU+33dcPnXWHI1lDWmV2ZNxxbEOcj6E7RAmueid3joxhjMrEgl43 +SB2NuvgwgoxblnduvlnvBrkvV9PVLpBxxYZvKbPUDRpOchUZxJJR+r7tmqnL +biDYwJ9mn0JGlTcaZnf03CArSvZwQi4Zs7nX+AVpuMKLXwZ/F5rIuNrEU/ZO +swvca2S47/1I6Ne4ZXDiiQtcfKDdUNhCRqXSby4u8S5g7qB806ODjPeHy1Xy +zVygtUJSt2WAjMe2/I2f/m8/jEcuniqcJWPlracD6587g5gAY/yIpA6K7HvX ++LjRERZHtWyrpXVwls/R+UWhI3z5r5AltUEHDwilSEwnOcK9gNzYT/I6mB+x +wCixcwSVz9eVUFUH2XMMTJj9DmB8J9BdCnVwUvTjscwle/BR0er66KGDe34N +sQntsoPTC5J/XD11MGMg5/F/anYQVsMh+f24Dqq4k3muCdlBvGObE4+fDnJv +WGOb0bUPHl0802kcooMyByUP6Hrvg8EvLzpKEnUwvuXS0pXre8H+yq7P1xkE +/5tLertiAwccyQvyFToYoHdz68lvNnBEXka8uEoH57reu2o020AA67t903+E +nsPiW/nv2kDScHL72kYdLLPt+7gNbaCB1tEW3E/oS58YehljDbTvR1qduCm4 +xzGvdJODFYhVmmVXraPgz/Xn7OU1rOB7zDa/DXwUdCAnattwW8GdjdPrhoUo +eKwza0y7ajcs7wvd7idNwdXXde0EFHbDy8rk4mh1ChbedJJZ/rsLjOJeJJXY +UbBaq2Bf2DtzkLS/d1DMkYKcjoMLTXnm8HPTRZWzzhR8uVbS2zzWHLKrzOvo +rhS0TnaXLzMxB/bp1pV6Twr6HHnqcLhmJ9TaT/j0h1IwZmA0faHGDEwUSLt5 +symYypZ3ZLLPBEqnXm88kkPBWQEr2/BaE1BgBMxX5FLw9VB/q/pDE1ht0XzX +s4CCC2vyeRd9TKDGN/pnbSkFLXM0oklsJkCvnE0LeUvBbBFS+cktO4Bi+3Hw +2yQFf90kC8UmGUOu1HkG/Qeh/4DEfp4zxiA6rJJwfYaCSQ3PxPJdjWE2OFZn ++zwF837yehmpG0NxJsTeWaGgF6+kWGOzEaiPPVG1E9LFCxdc3lLEjGBLxOUz +Nbq6uH1mp8dGX4AqgwdrLKm6uCbgXuZ5IwDrhZcpbYa6qKr88IikCMAZn7nH +o0a66He+JnJ1BR3qXNwG+Cx1cYjxyvA+Fx089SkW+910UTpR8cX7Z4aQ93NA +ajZWF+s+nVL7t40K9MKlR+HxuvjIzGyn52oqfPISp3Am6qLRNd14zl59+NNv +aS15TRehUiB5IFkfLJoZFzFTF/lVlN4t/dWD8YIrUwlFuihHfWuY0akL2zz0 +Xyp26eIgNXO+makDVzdZ/bnwRRcn2suGAzN0YLbPXWewVxdX/tP6jGE68MI5 +oeDOkC6uXvuedzfqgK11X5r4FLHeY8+4ZgMZzhpc8uNm08Ohxa3za4e1oU7w +48YpRT201b78oURHC1Sbh112bdHDhrXsJsNSWpCS8Cctb5semqyAvx67Frhw +KvAdVdfDvPMZttubNeHHUtCfXj09nLviNjlyXBPERqVbPuzSQyW3PxnbH2mA +xwvPi6X+esjlGP0oLVANvp8cDzYJ1EO1bI7NaiZqcEbG+0R7kB4KLNd94RJT +g8thvra/Q/VQIuNVfBxTFZ5Rg+QMo/VwVU+4SyGbKiyVX6iqzdDD+c6rZGqm +MqQ8vTP7qVYPL+w1GBFcsxWkXeVGD78h/JX+a7vcswUe8GV3z9bp4ev4H/do +5VuAefJBjViTHu5U3Hdrj+cW6FF+nOTcoYdNOro10s2bYcsjlsrgJOHn0Tl/ +yYdK8DKr9ciMqD6+ElgMyzunAP2WG12DSPrIeyI92POgArAtnnT6K6mPl871 +3bCnK4CxDafVGjl9FG7P2flyWR7erKLqSmzTx+NvWp9URspDo/tdbiO6PhZJ +5wkpJ22CLoXjhUlH9VFm8tlRs/dy8PdD+SNRL33MnaipCyqWA+lwjvsZJ/SR +qXqGrSlNDg603U7L8dPHMZly0i93Oei/1BzBDNFHa9eNCgrzG+DbCHlvf6I+ +ug2l7x4/Iguzj1YW1Bn6KJ82r9t5RgpG7E2z4lj6eHSwOtN1jxR0rL6yc6hS +HzVFfU/IKUlBpZvkzRvV+uhpLi9o3SoJUSQd6r964v3j2P2u2pIgEHs8rOGL +PvYc8C/695cEKsfa2DzYqZhgrZO7s0wMZEWl816spmJNVv7upBQxEKh1tyFx +UtH2UEoyt58Y/JKdvvduHRVdc3aMX1UWg4p2nu1aolT0U6z88DVHFHaa4qWV +zVTMcX4xF5wlAocVC7gzdlNxRuBGxw2WEIS8PnhcyZqKNhtHCrdmCEGSh9C7 +Ylsqui9v+jYVIgRVD84mvHOg4tSFS67cNCEQUdrJ/+8QFcNXaZRcrBWEN0rD +Im5BVBwVL1Wx7hSAbVs2yCndpeJy9Pu695Z8QDRyRPE9KsqxidvvkOADe8/o +AXoOFUvuZcrwjvDChUdT2Q55VLynXhl0LYIXvmypUowroaKazID2UdZ6SNzq +pDz5loqvdfh+V+mvg5lt1yjF08R6/lVGpFNc0NGIJsK/qLgYv+5XtQUXVPt8 +3xs4R0XfhW75B/JckFhs7k/5Q8VO0uVS2XZO2EZle1zBYYCrRVwS3tM4wd38 +5MZaMQMMez9NaxFfC63HzNa3Ghpgx7VFpsssB1Ryz0nqgAG63nrt3d3CAdkF +2VtvGBlge/ngfHwJB/j9+GfqaGqAJV5upyIDOIA3uDTyyx4DZBx66lg+xw6m +0RsXvrob4Bv/gsx1HOzAzPk7MBdrgA9an05dAzagbA9csIg3QBfXuBVrRTYo +G5hcn3XFAHOFT4lQ1rFBsWyvrkWKAbr1U+q/F67QH6dXX7lzywB7DNbMZQ0t +07MSLumbFRrgzLo1aY77/9HjAvmT01sMcDbqS51a5B86l3Bs7lSbAW5UEwjq +sPtDjy5iqzLuMMCMygCu19v+0C9+nxmZ/GKAB9nr9nu0LdLPebYaGo0YoDq3 +tQ1TdZF+yuXm6NhvA/wxKM+wG1+gO++QRwNZQ+T3VLBaTJqj/2vl4quVM8TH +jx4rmB+fo2d5fO+2kDdEw+Lw9K7tc/SRaFaw8xZD/D1lwqxemKWfqt/z9KyW +ITq2Jt1KdJ+lX7YKk2WaEiw2N9Ox/Re9wrFtiexriLJBOT6XtGboB8YqGqr8 +DZE4eQ5aCM/Q2UKy0ncEGuL9HFs2k9lpuumtE+R9Zw1xR/gqjq7yafqnnlXe +ARcMMRpS88/Sp+nj7mrdRWmGeP2heGNC4Xe61MkYllq1IcY9CrR+5zRBT1w5 +qhNfQ+w3r27Qt22Czp5iWvTtlSGuOz8YDEvj9PHyNXlZ9YZ4Ve266NDdcXoF +28V0oRZDdHs6YpE/PkZ3To0Inh82xGy2Q7NtV0bp6ZVndV6so+GJm5kCTzhH +6OutnIok+WhIsinwPj0wTI/o11MNFqDhjaoMZljlMN1zzW8FDVEaJvqUZ5j6 +DdN19wSJZMvScNfPGLbnX77S2wdP/bqkScNHR752DlQP0UV5vIt2O9AwhkMR +rpUQrbQ9PGTaiYY+/rajU0kDdK3wxO3XXGgYsLB3TZzPAN1q+llbxyEaxm19 ++PnctgF6dPvc4mFvGo5MHn/q8qCf/jv7vHFIJA2HjSIFVu/uo3cZXGvJLaDh +bWuRJwYPu+mep3NumxfS8JmS3vdTft30+cIyj8lnNDxU/yxEkNpNF9rUsaBZ +TkMYi0iLbOqi7+KSkX5eTUP5FSkByaVOelVr7pGWNhpumO02T/bqoFvwMVWD +Omg4g4/vj+l10DvM6udJ3TRUGy21v8PVQZ+tmIg92E/Dc09VtSXzPtNV72k8 +GRsn1gNtyvx7O72qyygoYYqG/F45GgHV7XQLkb2gPk3DzIIrL36ltNOPxpz+ +GDhHw5C7saa/9drps9XRGeK/aVhnd447dH07PepP2uGKPzQ0WVX5yLa/jS5A +zlM58I+GXQGG8edK2+h3TlbMrawQfg+zSyzHttH/B3NuE+w= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.09884955974662335}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2801,6 +7164,7 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2828,7 +7192,8 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09884955974662335}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2836,25 +7201,1073 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913290128289948`*^9}, - CellLabel-> - "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] + CellChangeTimes->{3.9913290128289948`*^9, 3.9938507238365593`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"807985f8-a22f-48cd-b50f-2140bc12a200"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ -511095eaf120"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.011071"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.031476"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.049865"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.064634"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.074128"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.079917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.081589"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.07959"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.075388"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.069397"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.062354"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.055005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.047683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.040719"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.034333"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.028605"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.023579"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.019247"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.015565"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.012478"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.009921"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.007825"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.006123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.004756"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.003667"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.002807"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.002134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.001611"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.001208"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.0009"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000667"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993849223956621*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.081589}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938507239584827`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"e6b472ef-6a56-4614-aff2-a0eb43db2ff5"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ -89d3982ba28f"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVlnc8le8bx0VllL2OmTIaNsfB4ZzrohBJKDNFSlEyIsooVEYkpEgpSQql +zHMOKl8aSFRGRnZkFmWkxO/5/fW83q/nfp7787nWfW9097X1YGdjY/uwio3t +/8/53vpXCvE5dJugnCGOIBt66x3SWaOOKAjuK4t3W60BKNrsTupIAaFcG1Hq +aoQg6/zPHB3ZMP2EPUhytTUIfhdPWfxcDLZuV8U6Odygr8rKd/ZzDcimpqn/ +ZPcDU4XxnpnPn6CbrFHcuHweFj/rXp/+PAijId+/JQxehdrtD3M+Zv+Cnp6x +ndP7s0C6jzXirvIP/PM8rqSzHoKIt2s+53YOHAm7FKhgUwjbOO+/sXbgQG2R +C1vkvAsBs0cGb57gQPtnTSK8MYXg3XFSSiWVA8fn2j0rqgrh1Y6wBOthDiw+ +9a/m0OanEChz0+dmzGq8KzoR17n4FFqaPmkpN65B7/D/pJPrn0GKpmmllR0X +1pb3SAdaFIN6t5MZzZMLHb6/01axK4bGiydblEO50M6Vs/6LazGs7Uid4LrH +hbcnpA5tPl0MoeeGpGonuTBTv3Xi0N1iOPIuIkz3IjfGcsplev0sBopHJU2u +hAc1D3msK0wpgRa+5nq+NzwofTKwx/d2CfgxB+3+dfDgcROn91tzSyB/HY9P +1zIPMpt+/r3EKoENxY53Ui3W4VWlIou+vhLgWplb5hpchzcDOE8JK5dCZ7pG +9YwAL95XoUv5V5ZCRksBf5AiL3Kv1JCmXpWCM99m1z/6vNiorxPq2lQKXy7I +LLMf5sUQSt6RzQOl0O/DYyhSxosLVr0Xtq8tg9EdXxkUJz7c5Cj5Jd+qDH5P +pz0NvcePEmMmlUodZcBSFl5ZKePH03lc34/3l0HI0USriw38yDnwx+jBaBks +dV+cSvjFjyVdg6ZLv8sgYogp2rxJACW4ktK1JcrhYtODvf2BArjh6YjgG4dy +iM8538wuIYiPKx4k+b8vBwuyl5CovCDuTTK5Yd9aDlyvbO02qwqilvexX5rd +xPdDit27jAQxes+ponej5RC2qXEk1UsQOc4MbYvnYIBPFmlZqUIQx1SEb+nr +MsDmdpHKrv1CyHxutd42jQECKrd8D3gIYfO388qrMhnQVHmx2NdXCEfvfk3P +zWaARbeDXuoFIfy46vPB1icMMJZc3t5TIIQF2wpvV9YygJxusd93SQg7e2o3 +sKYYIJ46FHctUxg1XosnBVCZQFIuu/g7Vxjl7OYis+hMkKyJPn/gmTCWVrQK +vTZmguz01tOba4VxHfO2yJwFExQt/dwqR4WR9NyvcNqZCdqr/1GGtEUwqvrg +X/uzTCDfatLcSRNBfm1Po+UwJlC0slSemIpguNptcmYEE6hu2zcFO4ngwZJC +pZoYJhhVxfGuOy+CIvceOTy6zoQ9gWJftRpEcL+MwNTIUyZYrxvtTWsRwT53 ++QTuEibYZrM6l76IYBWKT8iXM8H+g0vzmx8i+FZtfAqqmHBA5X6Fs6goFmSS +VUXrmHDiq3pylJso7hPw+qDTywTv0FUJ37xEMUhHWbStnwk+Qi3RlgGiyMaY +1PAeYsIpDAoTixbFX6KNvyJHmXD2dtWx/AJRJNuGt+76yYSYfeb0T/OiSL8W +Guq8mgWSpU2S7KvEcOtYtNmDtSwoFN63oLlODKWa7twa4WJB+6eDz5I3iCFP +s9ewJS8LFGwCN9nsFMMJkV7jR6IsYD5bXI6wFcPvd9JSHoqzwFLgfPczFzFs +du8Kz5RgQUBzXKqAvxhahsprnpRhQc3uu2s/3BTDRHe+vbcVWGD/RGFo5b4Y +NnrrvLVWYsH4+vyX6oViePVW7cTfzSwQbCw9c7WG0HdwwpqizAI3i4Zxqwkx +9O852WGgyYLZvD1vz82JoUPWE+lcLRbEcLfdL1wRw+d88Zs5yYSfuj4XPhFx +rLp+5/YTCgv+mc41vTcUx6yn9XYJBixIyg0p+GcqjkzHALknhoS/tWyxqjbi +SPqB9a9ohJ/XPEZXPMRxhOn9XwewoF8hSea5rziKc4+LtSHh76Lon8mz4vgp +qN6+zogFGdvlSiwTxXHFRSH72nYWqN1/cDUsXRz5tL6VnNhB+GdX9n6cLY7X +WzOqqCYsGPtPR3E9QxwZwzdfPjdlQdjGylWG/4ljjfO+an8zFghEYu+Jd+J4 +K6vnlfROFujhrrR3feLYeMlvxMGcBY13PwT8HRPH+zQBnlGC3VbsrJVnxbFw +Kp/ua0HE52C3yv5lYr+itJgpgmNeuHHHc5HQwFdr1H0XkX/ZkeEKIRKyf+o+ +3ExwYfiJmnFpEn4zWfynZckC457pO5KbSVj4c5Z1heB2w6BQC00S/iyn3eoj ++Pjtvw4hBiR0kzd7sGU3Ed+/EeR8ExJWn47r9iQ4af9awa49JBRLjTTKIlih +Mn6K25mEFZxFXU0EMyUFG/SPkND9d2b+LMGWITdyvXxIaLi5pVTQioh3p9SF +m2dIyDXet6RIcID+Pdf6KBLyKDlGaxJskcU3uyuBhJ6/7I6TCd7EGRbbdJ2E +T994l6kTvHhyTNrmLgkbQpOOyxP8odW+qOURCZvtmQn8BD8yeGViX0zCOLY+ +2f/vfz5bs6ujkoQtUewKHwm2577rs/81CRVMFO7mEqzmt56jt4mEfVzm1wIJ +XvP5bJpbBwnbhs9wGBD8hfZNeWiAhHmmL38uEvEpzdlX7TFBQuPhbUeKCI5f +V7NvdJaEW9++dz5EsPsp9bHjyyT8pf+8k5tgauft8ClOCXzcLPg1n8jHaG5w +7k9JCSyadHnYTuTvJe8w9bSCBDa8Tz16iOAbgbbNC6oSSD1X+vwrkX8TY9Xf +SyiBA9ttsI2oF+m8jITzFhJ4z2TrKWOCZ/m5NrLvk8Bzo3d2PiLqK7tn0Jzz +mAT6XzGYPkDU39kd1r1xfhIondH+9glRn9YFz0+tD5HAHLsF63miflfOpN8S +vCKBstMtF/2J+nYRsZqSKpFAeduJJgGiH7RDKyPvVElg2duriUpEv/AMbhHb ++EYCg/llJHXoLGA95QClTglivrlkGxL9JraLlaSxIoFOM//a5nRZMFWkpFjC +JYk89u57PxH9+oqUytIRksT3iR8YD3WI/I/4DFIVJbHlefJ2mjaRz0gFssku +SUz/yHgrrMaCh6PJdW/3SWJR7LFehgoLzu1ZcbE4KIkpYb8X9hHzQ1Wm69Ie +f0k02NdrFLKFBZeZVz87pUnimyKtVP9NLNjx40+Iz5AkZiiGOYgR8+3sztRt +/01KougLwQN2wkR/3FPtEp6XxBqTO4NXBFlA2uemz+KSwkhGTOgEMR8nma8X +ONSkkLsqwdSJmKfXopICb56RwqV9eo7s80yo696qMBkphdbF4Rzdv5iwRK5t +ocdLYYnf8WNPZphw9Nuc1tdMKVS8UHQMpojzxnL/jFqtFG4JfPKU9JUJg6JK +Pq94pfGVU1ny/Q9MEPd9KSMuLo23ebPDJZqYYFnn+N5Ljnj/Yskl7h0TykPi +Vfi1pfGC38xqhzdMuNw3Pe7kKI0vYmbd8yuZoJVXeexHtjRe8tiWS37AhEhD +m0OSejLYlnJW4mcAE3YevPNT11gGU8tfhhz1YwJfxMQFO0sZnE+Vsmr1ZsLt +2ku5SW4y+KLC0PW2BxOYFhUTa+Nk0KE1n9lrz4RpR/mgX50yuPfGlQoNPSYc +PD13uTFUFvlvfx1VnWeAYpqx9PglWRT+ePFU1wyDiN/VJ5xJsphQ1iIUSZz3 +IUtbPxjnyOKa5ODHVV8ZcP3CQVFWoyxaz861T31iQGPy27sPZDagZu+bB4aF +DKAW3iw993ID1vwOtCxyY8COz03/vtdtQJVcka2rXBhgxbbazPXTBnTOfh1g +6cCAw7Y+nTC8AVXz3h9p280A09CN5yPWyOF5pSL1IioD/DbM3zdSlsMhI3nD +VGEGvDp2d6o2SA5tnof0KtWUg/fvmYg63o34iH44IFC4HBaVBXpV7TbhWpOO +1JITpWBY8Djrxg151FLDS2vvFcOMkIWbfY0C/nn1KuJo/zP4muBmf4pTCffJ +aPS8/vYEzH8Emw9TNqPpta2+7a75MHmYK6D0/BY8YKl28kZZLnHfF2ePqdmK +193eXO93vA9C75USn/3Yhg1cRxg5wcT9PvapNYWigoMaTywP7rkF6cr6AsLH +VJH/un7Rhvwb0CBppPMrWQ1LtLhVqE9SgCpdk6Tero7/rfspv3ryCgzKK/SO +damjWb0v741PVyBOOVo5p08dLdpeRumxrkAH1eINaUwdnba2/S2MvgLBTp/+ +rlpSx8jxd9cObboCzrv8tccFNNApd/PjDpcEuBFLjAOKBsbxuSqP9lwGPo7s +wENRGmgqXm60mz8W1i6+3DtzUQN7qOsceX7HwPL3Hq3IGA00/Dah1tkfAz+6 +JGayEjQwyoxnpaA4Bj4UJ5/sv6GByWL8uxUdYiDFPfKoa4EG/jV6znC9Hw1i +NW6OB1o1cH9QVF/lzksgG7nB0ElJE0kTosnmr6OgMIBrU88WTfz4yedgUnEU +0I/OcB5S1sTLd6xsRu5GwYFdtS2eGpq4aVVPzMuQKLgteuzEGaomBvSkEL+J +Aon8wow0K02E4d1pL7IiQaSFttgWpIm9nNWpA5cjgFvRpdz2rSYe3PVWz10o +HI5LgEVBvSaqj8YP882HQQPvpl6ORk00fWYd8KkzDBLmv60p+6CJ2bd4ljPv +hQFfXYCdeJcmbg6t9zDRCgOhE/Gz3ZOaaOUWrdbgEArSRRVaHkJauOyl6G1T +chbUaBJPgw9o4dwnf9/LeUFQIu/1l91NC412FU7cTAoCPR6WWaK7FvoGDSVW +BweB8WfH/pxjWsjUucez1zQI7P3TBT/5a+HKiqJU/NfTcP6BeKBKtBbW8Tq/ +01c8DR94xfQHCrXw/RQrU54RAKd6hWot2LRxj7lhbb2EP9S9cXmez66NPFK2 +6kGc/iD7NJfBs0YbJSq3+GvP+UHDeerjBm5tjLtqZtr/wQ82bXS/biGsjR3/ +Lo2uivODj4eLjlkoaSNzbJtz2W9f0Bjbs97CUhu5c07T5XpPQvTHm2vzrbTR +4ZNQV8Tzk/CFNcTGY6ONsalLZLbMkxB7OXiu3k4b0xuS3zu7nIR+5bu95q7a +eMOojTf8izck+Xx/Zn6K0PPCg8d98AT8+JVgZ56ujbwmKaOCq4/Dl4579pkZ +2vit2j//2TcvaHhe7jBzWxsrnMd3H3/nBTkx/U437xF6wpxGVa95gbMU+eBY +vjZueytKnpX3gtfG3Ufjnmvjn+23E05YeMKt5K1n6ge1kbSU6xiSfxRig+hn +ZYa1sbrvwy2r5KMQtH9viP83bbRTnTEzOHMUrBXDwyQmtXGjx9nEA6ZHYS3r +Q4TXnDa6zIa/qB3yAP/+4DhuLjLO6QSQ1sp7gJn6mwxzVTKSr83I9BcfBse1 +O/d9UCfjUmHaRlbGYTjeU8/roEXGM4YUxcdRhyEx/n3EEV0ybv74+EOf7WFo +/9Z69LwRGU+33dcPnXWHI1lDWmV2ZNxxbEOcj6E7RAmueid3joxhjMrEgl43 +SB2NuvgwgoxblnduvlnvBrkvV9PVLpBxxYZvKbPUDRpOchUZxJJR+r7tmqnL +biDYwJ9mn0JGlTcaZnf03CArSvZwQi4Zs7nX+AVpuMKLXwZ/F5rIuNrEU/ZO +swvca2S47/1I6Ne4ZXDiiQtcfKDdUNhCRqXSby4u8S5g7qB806ODjPeHy1Xy +zVygtUJSt2WAjMe2/I2f/m8/jEcuniqcJWPlracD6587g5gAY/yIpA6K7HvX ++LjRERZHtWyrpXVwls/R+UWhI3z5r5AltUEHDwilSEwnOcK9gNzYT/I6mB+x +wCixcwSVz9eVUFUH2XMMTJj9DmB8J9BdCnVwUvTjscwle/BR0er66KGDe34N +sQntsoPTC5J/XD11MGMg5/F/anYQVsMh+f24Dqq4k3muCdlBvGObE4+fDnJv +WGOb0bUPHl0802kcooMyByUP6Hrvg8EvLzpKEnUwvuXS0pXre8H+yq7P1xkE +/5tLertiAwccyQvyFToYoHdz68lvNnBEXka8uEoH57reu2o020AA67t903+E +nsPiW/nv2kDScHL72kYdLLPt+7gNbaCB1tEW3E/oS58YehljDbTvR1qduCm4 +xzGvdJODFYhVmmVXraPgz/Xn7OU1rOB7zDa/DXwUdCAnattwW8GdjdPrhoUo +eKwza0y7ajcs7wvd7idNwdXXde0EFHbDy8rk4mh1ChbedJJZ/rsLjOJeJJXY +UbBaq2Bf2DtzkLS/d1DMkYKcjoMLTXnm8HPTRZWzzhR8uVbS2zzWHLKrzOvo +rhS0TnaXLzMxB/bp1pV6Twr6HHnqcLhmJ9TaT/j0h1IwZmA0faHGDEwUSLt5 +symYypZ3ZLLPBEqnXm88kkPBWQEr2/BaE1BgBMxX5FLw9VB/q/pDE1ht0XzX +s4CCC2vyeRd9TKDGN/pnbSkFLXM0oklsJkCvnE0LeUvBbBFS+cktO4Bi+3Hw +2yQFf90kC8UmGUOu1HkG/Qeh/4DEfp4zxiA6rJJwfYaCSQ3PxPJdjWE2OFZn ++zwF837yehmpG0NxJsTeWaGgF6+kWGOzEaiPPVG1E9LFCxdc3lLEjGBLxOUz +Nbq6uH1mp8dGX4AqgwdrLKm6uCbgXuZ5IwDrhZcpbYa6qKr88IikCMAZn7nH +o0a66He+JnJ1BR3qXNwG+Cx1cYjxyvA+Fx089SkW+910UTpR8cX7Z4aQ93NA +ajZWF+s+nVL7t40K9MKlR+HxuvjIzGyn52oqfPISp3Am6qLRNd14zl59+NNv +aS15TRehUiB5IFkfLJoZFzFTF/lVlN4t/dWD8YIrUwlFuihHfWuY0akL2zz0 +Xyp26eIgNXO+makDVzdZ/bnwRRcn2suGAzN0YLbPXWewVxdX/tP6jGE68MI5 +oeDOkC6uXvuedzfqgK11X5r4FLHeY8+4ZgMZzhpc8uNm08Ohxa3za4e1oU7w +48YpRT201b78oURHC1Sbh112bdHDhrXsJsNSWpCS8Cctb5semqyAvx67Frhw +KvAdVdfDvPMZttubNeHHUtCfXj09nLviNjlyXBPERqVbPuzSQyW3PxnbH2mA +xwvPi6X+esjlGP0oLVANvp8cDzYJ1EO1bI7NaiZqcEbG+0R7kB4KLNd94RJT +g8thvra/Q/VQIuNVfBxTFZ5Rg+QMo/VwVU+4SyGbKiyVX6iqzdDD+c6rZGqm +MqQ8vTP7qVYPL+w1GBFcsxWkXeVGD78h/JX+a7vcswUe8GV3z9bp4ev4H/do +5VuAefJBjViTHu5U3Hdrj+cW6FF+nOTcoYdNOro10s2bYcsjlsrgJOHn0Tl/ +yYdK8DKr9ciMqD6+ElgMyzunAP2WG12DSPrIeyI92POgArAtnnT6K6mPl871 +3bCnK4CxDafVGjl9FG7P2flyWR7erKLqSmzTx+NvWp9URspDo/tdbiO6PhZJ +5wkpJ22CLoXjhUlH9VFm8tlRs/dy8PdD+SNRL33MnaipCyqWA+lwjvsZJ/SR +qXqGrSlNDg603U7L8dPHMZly0i93Oei/1BzBDNFHa9eNCgrzG+DbCHlvf6I+ +ug2l7x4/Iguzj1YW1Bn6KJ82r9t5RgpG7E2z4lj6eHSwOtN1jxR0rL6yc6hS +HzVFfU/IKUlBpZvkzRvV+uhpLi9o3SoJUSQd6r964v3j2P2u2pIgEHs8rOGL +PvYc8C/695cEKsfa2DzYqZhgrZO7s0wMZEWl816spmJNVv7upBQxEKh1tyFx +UtH2UEoyt58Y/JKdvvduHRVdc3aMX1UWg4p2nu1aolT0U6z88DVHFHaa4qWV +zVTMcX4xF5wlAocVC7gzdlNxRuBGxw2WEIS8PnhcyZqKNhtHCrdmCEGSh9C7 +Ylsqui9v+jYVIgRVD84mvHOg4tSFS67cNCEQUdrJ/+8QFcNXaZRcrBWEN0rD +Im5BVBwVL1Wx7hSAbVs2yCndpeJy9Pu695Z8QDRyRPE9KsqxidvvkOADe8/o +AXoOFUvuZcrwjvDChUdT2Q55VLynXhl0LYIXvmypUowroaKazID2UdZ6SNzq +pDz5loqvdfh+V+mvg5lt1yjF08R6/lVGpFNc0NGIJsK/qLgYv+5XtQUXVPt8 +3xs4R0XfhW75B/JckFhs7k/5Q8VO0uVS2XZO2EZle1zBYYCrRVwS3tM4wd38 +5MZaMQMMez9NaxFfC63HzNa3Ghpgx7VFpsssB1Ryz0nqgAG63nrt3d3CAdkF +2VtvGBlge/ngfHwJB/j9+GfqaGqAJV5upyIDOIA3uDTyyx4DZBx66lg+xw6m +0RsXvrob4Bv/gsx1HOzAzPk7MBdrgA9an05dAzagbA9csIg3QBfXuBVrRTYo +G5hcn3XFAHOFT4lQ1rFBsWyvrkWKAbr1U+q/F67QH6dXX7lzywB7DNbMZQ0t +07MSLumbFRrgzLo1aY77/9HjAvmT01sMcDbqS51a5B86l3Bs7lSbAW5UEwjq +sPtDjy5iqzLuMMCMygCu19v+0C9+nxmZ/GKAB9nr9nu0LdLPebYaGo0YoDq3 +tQ1TdZF+yuXm6NhvA/wxKM+wG1+gO++QRwNZQ+T3VLBaTJqj/2vl4quVM8TH +jx4rmB+fo2d5fO+2kDdEw+Lw9K7tc/SRaFaw8xZD/D1lwqxemKWfqt/z9KyW +ITq2Jt1KdJ+lX7YKk2WaEiw2N9Ox/Re9wrFtiexriLJBOT6XtGboB8YqGqr8 +DZE4eQ5aCM/Q2UKy0ncEGuL9HFs2k9lpuumtE+R9Zw1xR/gqjq7yafqnnlXe +ARcMMRpS88/Sp+nj7mrdRWmGeP2heGNC4Xe61MkYllq1IcY9CrR+5zRBT1w5 +qhNfQ+w3r27Qt22Czp5iWvTtlSGuOz8YDEvj9PHyNXlZ9YZ4Ve266NDdcXoF +28V0oRZDdHs6YpE/PkZ3To0Inh82xGy2Q7NtV0bp6ZVndV6so+GJm5kCTzhH +6OutnIok+WhIsinwPj0wTI/o11MNFqDhjaoMZljlMN1zzW8FDVEaJvqUZ5j6 +DdN19wSJZMvScNfPGLbnX77S2wdP/bqkScNHR752DlQP0UV5vIt2O9AwhkMR +rpUQrbQ9PGTaiYY+/rajU0kDdK3wxO3XXGgYsLB3TZzPAN1q+llbxyEaxm19 ++PnctgF6dPvc4mFvGo5MHn/q8qCf/jv7vHFIJA2HjSIFVu/uo3cZXGvJLaDh +bWuRJwYPu+mep3NumxfS8JmS3vdTft30+cIyj8lnNDxU/yxEkNpNF9rUsaBZ +TkMYi0iLbOqi7+KSkX5eTUP5FSkByaVOelVr7pGWNhpumO02T/bqoFvwMVWD +Omg4g4/vj+l10DvM6udJ3TRUGy21v8PVQZ+tmIg92E/Dc09VtSXzPtNV72k8 +GRsn1gNtyvx7O72qyygoYYqG/F45GgHV7XQLkb2gPk3DzIIrL36ltNOPxpz+ +GDhHw5C7saa/9drps9XRGeK/aVhnd447dH07PepP2uGKPzQ0WVX5yLa/jS5A +zlM58I+GXQGG8edK2+h3TlbMrawQfg+zSyzHttH/B3NuE+w= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8le8bx0VllL2OmTIaNsfB4ZzrohBJKDNFSlEyIsooVEYkpEgpSQql +zHMOKl8aSFRGRnZkFmWkxO/5/fW83q/nfp7787nWfW9097X1YGdjY/uwio3t +/8/53vpXCvE5dJugnCGOIBt66x3SWaOOKAjuK4t3W60BKNrsTupIAaFcG1Hq +aoQg6/zPHB3ZMP2EPUhytTUIfhdPWfxcDLZuV8U6Odygr8rKd/ZzDcimpqn/ +ZPcDU4XxnpnPn6CbrFHcuHweFj/rXp/+PAijId+/JQxehdrtD3M+Zv+Cnp6x +ndP7s0C6jzXirvIP/PM8rqSzHoKIt2s+53YOHAm7FKhgUwjbOO+/sXbgQG2R +C1vkvAsBs0cGb57gQPtnTSK8MYXg3XFSSiWVA8fn2j0rqgrh1Y6wBOthDiw+ +9a/m0OanEChz0+dmzGq8KzoR17n4FFqaPmkpN65B7/D/pJPrn0GKpmmllR0X +1pb3SAdaFIN6t5MZzZMLHb6/01axK4bGiydblEO50M6Vs/6LazGs7Uid4LrH +hbcnpA5tPl0MoeeGpGonuTBTv3Xi0N1iOPIuIkz3IjfGcsplev0sBopHJU2u +hAc1D3msK0wpgRa+5nq+NzwofTKwx/d2CfgxB+3+dfDgcROn91tzSyB/HY9P +1zIPMpt+/r3EKoENxY53Ui3W4VWlIou+vhLgWplb5hpchzcDOE8JK5dCZ7pG +9YwAL95XoUv5V5ZCRksBf5AiL3Kv1JCmXpWCM99m1z/6vNiorxPq2lQKXy7I +LLMf5sUQSt6RzQOl0O/DYyhSxosLVr0Xtq8tg9EdXxkUJz7c5Cj5Jd+qDH5P +pz0NvcePEmMmlUodZcBSFl5ZKePH03lc34/3l0HI0USriw38yDnwx+jBaBks +dV+cSvjFjyVdg6ZLv8sgYogp2rxJACW4ktK1JcrhYtODvf2BArjh6YjgG4dy +iM8538wuIYiPKx4k+b8vBwuyl5CovCDuTTK5Yd9aDlyvbO02qwqilvexX5rd +xPdDit27jAQxes+ponej5RC2qXEk1UsQOc4MbYvnYIBPFmlZqUIQx1SEb+nr +MsDmdpHKrv1CyHxutd42jQECKrd8D3gIYfO388qrMhnQVHmx2NdXCEfvfk3P +zWaARbeDXuoFIfy46vPB1icMMJZc3t5TIIQF2wpvV9YygJxusd93SQg7e2o3 +sKYYIJ46FHctUxg1XosnBVCZQFIuu/g7Vxjl7OYis+hMkKyJPn/gmTCWVrQK +vTZmguz01tOba4VxHfO2yJwFExQt/dwqR4WR9NyvcNqZCdqr/1GGtEUwqvrg +X/uzTCDfatLcSRNBfm1Po+UwJlC0slSemIpguNptcmYEE6hu2zcFO4ngwZJC +pZoYJhhVxfGuOy+CIvceOTy6zoQ9gWJftRpEcL+MwNTIUyZYrxvtTWsRwT53 ++QTuEibYZrM6l76IYBWKT8iXM8H+g0vzmx8i+FZtfAqqmHBA5X6Fs6goFmSS +VUXrmHDiq3pylJso7hPw+qDTywTv0FUJ37xEMUhHWbStnwk+Qi3RlgGiyMaY +1PAeYsIpDAoTixbFX6KNvyJHmXD2dtWx/AJRJNuGt+76yYSYfeb0T/OiSL8W +Guq8mgWSpU2S7KvEcOtYtNmDtSwoFN63oLlODKWa7twa4WJB+6eDz5I3iCFP +s9ewJS8LFGwCN9nsFMMJkV7jR6IsYD5bXI6wFcPvd9JSHoqzwFLgfPczFzFs +du8Kz5RgQUBzXKqAvxhahsprnpRhQc3uu2s/3BTDRHe+vbcVWGD/RGFo5b4Y +NnrrvLVWYsH4+vyX6oViePVW7cTfzSwQbCw9c7WG0HdwwpqizAI3i4Zxqwkx +9O852WGgyYLZvD1vz82JoUPWE+lcLRbEcLfdL1wRw+d88Zs5yYSfuj4XPhFx +rLp+5/YTCgv+mc41vTcUx6yn9XYJBixIyg0p+GcqjkzHALknhoS/tWyxqjbi +SPqB9a9ohJ/XPEZXPMRxhOn9XwewoF8hSea5rziKc4+LtSHh76Lon8mz4vgp +qN6+zogFGdvlSiwTxXHFRSH72nYWqN1/cDUsXRz5tL6VnNhB+GdX9n6cLY7X +WzOqqCYsGPtPR3E9QxwZwzdfPjdlQdjGylWG/4ljjfO+an8zFghEYu+Jd+J4 +K6vnlfROFujhrrR3feLYeMlvxMGcBY13PwT8HRPH+zQBnlGC3VbsrJVnxbFw +Kp/ua0HE52C3yv5lYr+itJgpgmNeuHHHc5HQwFdr1H0XkX/ZkeEKIRKyf+o+ +3ExwYfiJmnFpEn4zWfynZckC457pO5KbSVj4c5Z1heB2w6BQC00S/iyn3eoj ++Pjtvw4hBiR0kzd7sGU3Ed+/EeR8ExJWn47r9iQ4af9awa49JBRLjTTKIlih +Mn6K25mEFZxFXU0EMyUFG/SPkND9d2b+LMGWITdyvXxIaLi5pVTQioh3p9SF +m2dIyDXet6RIcID+Pdf6KBLyKDlGaxJskcU3uyuBhJ6/7I6TCd7EGRbbdJ2E +T994l6kTvHhyTNrmLgkbQpOOyxP8odW+qOURCZvtmQn8BD8yeGViX0zCOLY+ +2f/vfz5bs6ujkoQtUewKHwm2577rs/81CRVMFO7mEqzmt56jt4mEfVzm1wIJ +XvP5bJpbBwnbhs9wGBD8hfZNeWiAhHmmL38uEvEpzdlX7TFBQuPhbUeKCI5f +V7NvdJaEW9++dz5EsPsp9bHjyyT8pf+8k5tgauft8ClOCXzcLPg1n8jHaG5w +7k9JCSyadHnYTuTvJe8w9bSCBDa8Tz16iOAbgbbNC6oSSD1X+vwrkX8TY9Xf +SyiBA9ttsI2oF+m8jITzFhJ4z2TrKWOCZ/m5NrLvk8Bzo3d2PiLqK7tn0Jzz +mAT6XzGYPkDU39kd1r1xfhIondH+9glRn9YFz0+tD5HAHLsF63miflfOpN8S +vCKBstMtF/2J+nYRsZqSKpFAeduJJgGiH7RDKyPvVElg2duriUpEv/AMbhHb ++EYCg/llJHXoLGA95QClTglivrlkGxL9JraLlaSxIoFOM//a5nRZMFWkpFjC +JYk89u57PxH9+oqUytIRksT3iR8YD3WI/I/4DFIVJbHlefJ2mjaRz0gFssku +SUz/yHgrrMaCh6PJdW/3SWJR7LFehgoLzu1ZcbE4KIkpYb8X9hHzQ1Wm69Ie +f0k02NdrFLKFBZeZVz87pUnimyKtVP9NLNjx40+Iz5AkZiiGOYgR8+3sztRt +/01KougLwQN2wkR/3FPtEp6XxBqTO4NXBFlA2uemz+KSwkhGTOgEMR8nma8X +ONSkkLsqwdSJmKfXopICb56RwqV9eo7s80yo696qMBkphdbF4Rzdv5iwRK5t +ocdLYYnf8WNPZphw9Nuc1tdMKVS8UHQMpojzxnL/jFqtFG4JfPKU9JUJg6JK +Pq94pfGVU1ny/Q9MEPd9KSMuLo23ebPDJZqYYFnn+N5Ljnj/Yskl7h0TykPi +Vfi1pfGC38xqhzdMuNw3Pe7kKI0vYmbd8yuZoJVXeexHtjRe8tiWS37AhEhD +m0OSejLYlnJW4mcAE3YevPNT11gGU8tfhhz1YwJfxMQFO0sZnE+Vsmr1ZsLt +2ku5SW4y+KLC0PW2BxOYFhUTa+Nk0KE1n9lrz4RpR/mgX50yuPfGlQoNPSYc +PD13uTFUFvlvfx1VnWeAYpqx9PglWRT+ePFU1wyDiN/VJ5xJsphQ1iIUSZz3 +IUtbPxjnyOKa5ODHVV8ZcP3CQVFWoyxaz861T31iQGPy27sPZDagZu+bB4aF +DKAW3iw993ID1vwOtCxyY8COz03/vtdtQJVcka2rXBhgxbbazPXTBnTOfh1g +6cCAw7Y+nTC8AVXz3h9p280A09CN5yPWyOF5pSL1IioD/DbM3zdSlsMhI3nD +VGEGvDp2d6o2SA5tnof0KtWUg/fvmYg63o34iH44IFC4HBaVBXpV7TbhWpOO +1JITpWBY8Djrxg151FLDS2vvFcOMkIWbfY0C/nn1KuJo/zP4muBmf4pTCffJ +aPS8/vYEzH8Emw9TNqPpta2+7a75MHmYK6D0/BY8YKl28kZZLnHfF2ePqdmK +193eXO93vA9C75USn/3Yhg1cRxg5wcT9PvapNYWigoMaTywP7rkF6cr6AsLH +VJH/un7Rhvwb0CBppPMrWQ1LtLhVqE9SgCpdk6Tero7/rfspv3ryCgzKK/SO +damjWb0v741PVyBOOVo5p08dLdpeRumxrkAH1eINaUwdnba2/S2MvgLBTp/+ +rlpSx8jxd9cObboCzrv8tccFNNApd/PjDpcEuBFLjAOKBsbxuSqP9lwGPo7s +wENRGmgqXm60mz8W1i6+3DtzUQN7qOsceX7HwPL3Hq3IGA00/Dah1tkfAz+6 +JGayEjQwyoxnpaA4Bj4UJ5/sv6GByWL8uxUdYiDFPfKoa4EG/jV6znC9Hw1i +NW6OB1o1cH9QVF/lzksgG7nB0ElJE0kTosnmr6OgMIBrU88WTfz4yedgUnEU +0I/OcB5S1sTLd6xsRu5GwYFdtS2eGpq4aVVPzMuQKLgteuzEGaomBvSkEL+J +Aon8wow0K02E4d1pL7IiQaSFttgWpIm9nNWpA5cjgFvRpdz2rSYe3PVWz10o +HI5LgEVBvSaqj8YP882HQQPvpl6ORk00fWYd8KkzDBLmv60p+6CJ2bd4ljPv +hQFfXYCdeJcmbg6t9zDRCgOhE/Gz3ZOaaOUWrdbgEArSRRVaHkJauOyl6G1T +chbUaBJPgw9o4dwnf9/LeUFQIu/1l91NC412FU7cTAoCPR6WWaK7FvoGDSVW +BweB8WfH/pxjWsjUucez1zQI7P3TBT/5a+HKiqJU/NfTcP6BeKBKtBbW8Tq/ +01c8DR94xfQHCrXw/RQrU54RAKd6hWot2LRxj7lhbb2EP9S9cXmez66NPFK2 +6kGc/iD7NJfBs0YbJSq3+GvP+UHDeerjBm5tjLtqZtr/wQ82bXS/biGsjR3/ +Lo2uivODj4eLjlkoaSNzbJtz2W9f0Bjbs97CUhu5c07T5XpPQvTHm2vzrbTR +4ZNQV8Tzk/CFNcTGY6ONsalLZLbMkxB7OXiu3k4b0xuS3zu7nIR+5bu95q7a +eMOojTf8izck+Xx/Zn6K0PPCg8d98AT8+JVgZ56ujbwmKaOCq4/Dl4579pkZ +2vit2j//2TcvaHhe7jBzWxsrnMd3H3/nBTkx/U437xF6wpxGVa95gbMU+eBY +vjZueytKnpX3gtfG3Ufjnmvjn+23E05YeMKt5K1n6ge1kbSU6xiSfxRig+hn +ZYa1sbrvwy2r5KMQtH9viP83bbRTnTEzOHMUrBXDwyQmtXGjx9nEA6ZHYS3r +Q4TXnDa6zIa/qB3yAP/+4DhuLjLO6QSQ1sp7gJn6mwxzVTKSr83I9BcfBse1 +O/d9UCfjUmHaRlbGYTjeU8/roEXGM4YUxcdRhyEx/n3EEV0ybv74+EOf7WFo +/9Z69LwRGU+33dcPnXWHI1lDWmV2ZNxxbEOcj6E7RAmueid3joxhjMrEgl43 +SB2NuvgwgoxblnduvlnvBrkvV9PVLpBxxYZvKbPUDRpOchUZxJJR+r7tmqnL +biDYwJ9mn0JGlTcaZnf03CArSvZwQi4Zs7nX+AVpuMKLXwZ/F5rIuNrEU/ZO +swvca2S47/1I6Ne4ZXDiiQtcfKDdUNhCRqXSby4u8S5g7qB806ODjPeHy1Xy +zVygtUJSt2WAjMe2/I2f/m8/jEcuniqcJWPlracD6587g5gAY/yIpA6K7HvX ++LjRERZHtWyrpXVwls/R+UWhI3z5r5AltUEHDwilSEwnOcK9gNzYT/I6mB+x +wCixcwSVz9eVUFUH2XMMTJj9DmB8J9BdCnVwUvTjscwle/BR0er66KGDe34N +sQntsoPTC5J/XD11MGMg5/F/anYQVsMh+f24Dqq4k3muCdlBvGObE4+fDnJv +WGOb0bUPHl0802kcooMyByUP6Hrvg8EvLzpKEnUwvuXS0pXre8H+yq7P1xkE +/5tLertiAwccyQvyFToYoHdz68lvNnBEXka8uEoH57reu2o020AA67t903+E +nsPiW/nv2kDScHL72kYdLLPt+7gNbaCB1tEW3E/oS58YehljDbTvR1qduCm4 +xzGvdJODFYhVmmVXraPgz/Xn7OU1rOB7zDa/DXwUdCAnattwW8GdjdPrhoUo +eKwza0y7ajcs7wvd7idNwdXXde0EFHbDy8rk4mh1ChbedJJZ/rsLjOJeJJXY +UbBaq2Bf2DtzkLS/d1DMkYKcjoMLTXnm8HPTRZWzzhR8uVbS2zzWHLKrzOvo +rhS0TnaXLzMxB/bp1pV6Twr6HHnqcLhmJ9TaT/j0h1IwZmA0faHGDEwUSLt5 +symYypZ3ZLLPBEqnXm88kkPBWQEr2/BaE1BgBMxX5FLw9VB/q/pDE1ht0XzX +s4CCC2vyeRd9TKDGN/pnbSkFLXM0oklsJkCvnE0LeUvBbBFS+cktO4Bi+3Hw +2yQFf90kC8UmGUOu1HkG/Qeh/4DEfp4zxiA6rJJwfYaCSQ3PxPJdjWE2OFZn ++zwF837yehmpG0NxJsTeWaGgF6+kWGOzEaiPPVG1E9LFCxdc3lLEjGBLxOUz +Nbq6uH1mp8dGX4AqgwdrLKm6uCbgXuZ5IwDrhZcpbYa6qKr88IikCMAZn7nH +o0a66He+JnJ1BR3qXNwG+Cx1cYjxyvA+Fx089SkW+910UTpR8cX7Z4aQ93NA +ajZWF+s+nVL7t40K9MKlR+HxuvjIzGyn52oqfPISp3Am6qLRNd14zl59+NNv +aS15TRehUiB5IFkfLJoZFzFTF/lVlN4t/dWD8YIrUwlFuihHfWuY0akL2zz0 +Xyp26eIgNXO+makDVzdZ/bnwRRcn2suGAzN0YLbPXWewVxdX/tP6jGE68MI5 +oeDOkC6uXvuedzfqgK11X5r4FLHeY8+4ZgMZzhpc8uNm08Ohxa3za4e1oU7w +48YpRT201b78oURHC1Sbh112bdHDhrXsJsNSWpCS8Cctb5semqyAvx67Frhw +KvAdVdfDvPMZttubNeHHUtCfXj09nLviNjlyXBPERqVbPuzSQyW3PxnbH2mA +xwvPi6X+esjlGP0oLVANvp8cDzYJ1EO1bI7NaiZqcEbG+0R7kB4KLNd94RJT +g8thvra/Q/VQIuNVfBxTFZ5Rg+QMo/VwVU+4SyGbKiyVX6iqzdDD+c6rZGqm +MqQ8vTP7qVYPL+w1GBFcsxWkXeVGD78h/JX+a7vcswUe8GV3z9bp4ev4H/do +5VuAefJBjViTHu5U3Hdrj+cW6FF+nOTcoYdNOro10s2bYcsjlsrgJOHn0Tl/ +yYdK8DKr9ciMqD6+ElgMyzunAP2WG12DSPrIeyI92POgArAtnnT6K6mPl871 +3bCnK4CxDafVGjl9FG7P2flyWR7erKLqSmzTx+NvWp9URspDo/tdbiO6PhZJ +5wkpJ22CLoXjhUlH9VFm8tlRs/dy8PdD+SNRL33MnaipCyqWA+lwjvsZJ/SR +qXqGrSlNDg603U7L8dPHMZly0i93Oei/1BzBDNFHa9eNCgrzG+DbCHlvf6I+ +ug2l7x4/Iguzj1YW1Bn6KJ82r9t5RgpG7E2z4lj6eHSwOtN1jxR0rL6yc6hS +HzVFfU/IKUlBpZvkzRvV+uhpLi9o3SoJUSQd6r964v3j2P2u2pIgEHs8rOGL +PvYc8C/695cEKsfa2DzYqZhgrZO7s0wMZEWl816spmJNVv7upBQxEKh1tyFx +UtH2UEoyt58Y/JKdvvduHRVdc3aMX1UWg4p2nu1aolT0U6z88DVHFHaa4qWV +zVTMcX4xF5wlAocVC7gzdlNxRuBGxw2WEIS8PnhcyZqKNhtHCrdmCEGSh9C7 +Ylsqui9v+jYVIgRVD84mvHOg4tSFS67cNCEQUdrJ/+8QFcNXaZRcrBWEN0rD +Im5BVBwVL1Wx7hSAbVs2yCndpeJy9Pu695Z8QDRyRPE9KsqxidvvkOADe8/o +AXoOFUvuZcrwjvDChUdT2Q55VLynXhl0LYIXvmypUowroaKazID2UdZ6SNzq +pDz5loqvdfh+V+mvg5lt1yjF08R6/lVGpFNc0NGIJsK/qLgYv+5XtQUXVPt8 +3xs4R0XfhW75B/JckFhs7k/5Q8VO0uVS2XZO2EZle1zBYYCrRVwS3tM4wd38 +5MZaMQMMez9NaxFfC63HzNa3Ghpgx7VFpsssB1Ryz0nqgAG63nrt3d3CAdkF +2VtvGBlge/ngfHwJB/j9+GfqaGqAJV5upyIDOIA3uDTyyx4DZBx66lg+xw6m +0RsXvrob4Bv/gsx1HOzAzPk7MBdrgA9an05dAzagbA9csIg3QBfXuBVrRTYo +G5hcn3XFAHOFT4lQ1rFBsWyvrkWKAbr1U+q/F67QH6dXX7lzywB7DNbMZQ0t +07MSLumbFRrgzLo1aY77/9HjAvmT01sMcDbqS51a5B86l3Bs7lSbAW5UEwjq +sPtDjy5iqzLuMMCMygCu19v+0C9+nxmZ/GKAB9nr9nu0LdLPebYaGo0YoDq3 +tQ1TdZF+yuXm6NhvA/wxKM+wG1+gO++QRwNZQ+T3VLBaTJqj/2vl4quVM8TH +jx4rmB+fo2d5fO+2kDdEw+Lw9K7tc/SRaFaw8xZD/D1lwqxemKWfqt/z9KyW +ITq2Jt1KdJ+lX7YKk2WaEiw2N9Ox/Re9wrFtiexriLJBOT6XtGboB8YqGqr8 +DZE4eQ5aCM/Q2UKy0ncEGuL9HFs2k9lpuumtE+R9Zw1xR/gqjq7yafqnnlXe +ARcMMRpS88/Sp+nj7mrdRWmGeP2heGNC4Xe61MkYllq1IcY9CrR+5zRBT1w5 +qhNfQ+w3r27Qt22Czp5iWvTtlSGuOz8YDEvj9PHyNXlZ9YZ4Ve266NDdcXoF +28V0oRZDdHs6YpE/PkZ3To0Inh82xGy2Q7NtV0bp6ZVndV6so+GJm5kCTzhH +6OutnIok+WhIsinwPj0wTI/o11MNFqDhjaoMZljlMN1zzW8FDVEaJvqUZ5j6 +DdN19wSJZMvScNfPGLbnX77S2wdP/bqkScNHR752DlQP0UV5vIt2O9AwhkMR +rpUQrbQ9PGTaiYY+/rajU0kDdK3wxO3XXGgYsLB3TZzPAN1q+llbxyEaxm19 ++PnctgF6dPvc4mFvGo5MHn/q8qCf/jv7vHFIJA2HjSIFVu/uo3cZXGvJLaDh +bWuRJwYPu+mep3NumxfS8JmS3vdTft30+cIyj8lnNDxU/yxEkNpNF9rUsaBZ +TkMYi0iLbOqi7+KSkX5eTUP5FSkByaVOelVr7pGWNhpumO02T/bqoFvwMVWD +Omg4g4/vj+l10DvM6udJ3TRUGy21v8PVQZ+tmIg92E/Dc09VtSXzPtNV72k8 +GRsn1gNtyvx7O72qyygoYYqG/F45GgHV7XQLkb2gPk3DzIIrL36ltNOPxpz+ +GDhHw5C7saa/9drps9XRGeK/aVhnd447dH07PepP2uGKPzQ0WVX5yLa/jS5A +zlM58I+GXQGG8edK2+h3TlbMrawQfg+zSyzHttH/B3NuE+w= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09884955974662335}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.09884955974662335}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVlnc8le8bx0VllL2OmTIaNsfB4ZzrohBJKDNFSlEyIsooVEYkpEgpSQql +zHMOKl8aSFRGRnZkFmWkxO/5/fW83q/nfp7787nWfW9097X1YGdjY/uwio3t +/8/53vpXCvE5dJugnCGOIBt66x3SWaOOKAjuK4t3W60BKNrsTupIAaFcG1Hq +aoQg6/zPHB3ZMP2EPUhytTUIfhdPWfxcDLZuV8U6Odygr8rKd/ZzDcimpqn/ +ZPcDU4XxnpnPn6CbrFHcuHweFj/rXp/+PAijId+/JQxehdrtD3M+Zv+Cnp6x +ndP7s0C6jzXirvIP/PM8rqSzHoKIt2s+53YOHAm7FKhgUwjbOO+/sXbgQG2R +C1vkvAsBs0cGb57gQPtnTSK8MYXg3XFSSiWVA8fn2j0rqgrh1Y6wBOthDiw+ +9a/m0OanEChz0+dmzGq8KzoR17n4FFqaPmkpN65B7/D/pJPrn0GKpmmllR0X +1pb3SAdaFIN6t5MZzZMLHb6/01axK4bGiydblEO50M6Vs/6LazGs7Uid4LrH +hbcnpA5tPl0MoeeGpGonuTBTv3Xi0N1iOPIuIkz3IjfGcsplev0sBopHJU2u +hAc1D3msK0wpgRa+5nq+NzwofTKwx/d2CfgxB+3+dfDgcROn91tzSyB/HY9P +1zIPMpt+/r3EKoENxY53Ui3W4VWlIou+vhLgWplb5hpchzcDOE8JK5dCZ7pG +9YwAL95XoUv5V5ZCRksBf5AiL3Kv1JCmXpWCM99m1z/6vNiorxPq2lQKXy7I +LLMf5sUQSt6RzQOl0O/DYyhSxosLVr0Xtq8tg9EdXxkUJz7c5Cj5Jd+qDH5P +pz0NvcePEmMmlUodZcBSFl5ZKePH03lc34/3l0HI0USriw38yDnwx+jBaBks +dV+cSvjFjyVdg6ZLv8sgYogp2rxJACW4ktK1JcrhYtODvf2BArjh6YjgG4dy +iM8538wuIYiPKx4k+b8vBwuyl5CovCDuTTK5Yd9aDlyvbO02qwqilvexX5rd +xPdDit27jAQxes+ponej5RC2qXEk1UsQOc4MbYvnYIBPFmlZqUIQx1SEb+nr +MsDmdpHKrv1CyHxutd42jQECKrd8D3gIYfO388qrMhnQVHmx2NdXCEfvfk3P +zWaARbeDXuoFIfy46vPB1icMMJZc3t5TIIQF2wpvV9YygJxusd93SQg7e2o3 +sKYYIJ46FHctUxg1XosnBVCZQFIuu/g7Vxjl7OYis+hMkKyJPn/gmTCWVrQK +vTZmguz01tOba4VxHfO2yJwFExQt/dwqR4WR9NyvcNqZCdqr/1GGtEUwqvrg +X/uzTCDfatLcSRNBfm1Po+UwJlC0slSemIpguNptcmYEE6hu2zcFO4ngwZJC +pZoYJhhVxfGuOy+CIvceOTy6zoQ9gWJftRpEcL+MwNTIUyZYrxvtTWsRwT53 ++QTuEibYZrM6l76IYBWKT8iXM8H+g0vzmx8i+FZtfAqqmHBA5X6Fs6goFmSS +VUXrmHDiq3pylJso7hPw+qDTywTv0FUJ37xEMUhHWbStnwk+Qi3RlgGiyMaY +1PAeYsIpDAoTixbFX6KNvyJHmXD2dtWx/AJRJNuGt+76yYSYfeb0T/OiSL8W +Guq8mgWSpU2S7KvEcOtYtNmDtSwoFN63oLlODKWa7twa4WJB+6eDz5I3iCFP +s9ewJS8LFGwCN9nsFMMJkV7jR6IsYD5bXI6wFcPvd9JSHoqzwFLgfPczFzFs +du8Kz5RgQUBzXKqAvxhahsprnpRhQc3uu2s/3BTDRHe+vbcVWGD/RGFo5b4Y +NnrrvLVWYsH4+vyX6oViePVW7cTfzSwQbCw9c7WG0HdwwpqizAI3i4Zxqwkx +9O852WGgyYLZvD1vz82JoUPWE+lcLRbEcLfdL1wRw+d88Zs5yYSfuj4XPhFx +rLp+5/YTCgv+mc41vTcUx6yn9XYJBixIyg0p+GcqjkzHALknhoS/tWyxqjbi +SPqB9a9ohJ/XPEZXPMRxhOn9XwewoF8hSea5rziKc4+LtSHh76Lon8mz4vgp +qN6+zogFGdvlSiwTxXHFRSH72nYWqN1/cDUsXRz5tL6VnNhB+GdX9n6cLY7X +WzOqqCYsGPtPR3E9QxwZwzdfPjdlQdjGylWG/4ljjfO+an8zFghEYu+Jd+J4 +K6vnlfROFujhrrR3feLYeMlvxMGcBY13PwT8HRPH+zQBnlGC3VbsrJVnxbFw +Kp/ua0HE52C3yv5lYr+itJgpgmNeuHHHc5HQwFdr1H0XkX/ZkeEKIRKyf+o+ +3ExwYfiJmnFpEn4zWfynZckC457pO5KbSVj4c5Z1heB2w6BQC00S/iyn3eoj ++Pjtvw4hBiR0kzd7sGU3Ed+/EeR8ExJWn47r9iQ4af9awa49JBRLjTTKIlih +Mn6K25mEFZxFXU0EMyUFG/SPkND9d2b+LMGWITdyvXxIaLi5pVTQioh3p9SF +m2dIyDXet6RIcID+Pdf6KBLyKDlGaxJskcU3uyuBhJ6/7I6TCd7EGRbbdJ2E +T994l6kTvHhyTNrmLgkbQpOOyxP8odW+qOURCZvtmQn8BD8yeGViX0zCOLY+ +2f/vfz5bs6ujkoQtUewKHwm2577rs/81CRVMFO7mEqzmt56jt4mEfVzm1wIJ +XvP5bJpbBwnbhs9wGBD8hfZNeWiAhHmmL38uEvEpzdlX7TFBQuPhbUeKCI5f +V7NvdJaEW9++dz5EsPsp9bHjyyT8pf+8k5tgauft8ClOCXzcLPg1n8jHaG5w +7k9JCSyadHnYTuTvJe8w9bSCBDa8Tz16iOAbgbbNC6oSSD1X+vwrkX8TY9Xf +SyiBA9ttsI2oF+m8jITzFhJ4z2TrKWOCZ/m5NrLvk8Bzo3d2PiLqK7tn0Jzz +mAT6XzGYPkDU39kd1r1xfhIondH+9glRn9YFz0+tD5HAHLsF63miflfOpN8S +vCKBstMtF/2J+nYRsZqSKpFAeduJJgGiH7RDKyPvVElg2duriUpEv/AMbhHb ++EYCg/llJHXoLGA95QClTglivrlkGxL9JraLlaSxIoFOM//a5nRZMFWkpFjC +JYk89u57PxH9+oqUytIRksT3iR8YD3WI/I/4DFIVJbHlefJ2mjaRz0gFssku +SUz/yHgrrMaCh6PJdW/3SWJR7LFehgoLzu1ZcbE4KIkpYb8X9hHzQ1Wm69Ie +f0k02NdrFLKFBZeZVz87pUnimyKtVP9NLNjx40+Iz5AkZiiGOYgR8+3sztRt +/01KougLwQN2wkR/3FPtEp6XxBqTO4NXBFlA2uemz+KSwkhGTOgEMR8nma8X +ONSkkLsqwdSJmKfXopICb56RwqV9eo7s80yo696qMBkphdbF4Rzdv5iwRK5t +ocdLYYnf8WNPZphw9Nuc1tdMKVS8UHQMpojzxnL/jFqtFG4JfPKU9JUJg6JK +Pq94pfGVU1ny/Q9MEPd9KSMuLo23ebPDJZqYYFnn+N5Ljnj/Yskl7h0TykPi +Vfi1pfGC38xqhzdMuNw3Pe7kKI0vYmbd8yuZoJVXeexHtjRe8tiWS37AhEhD +m0OSejLYlnJW4mcAE3YevPNT11gGU8tfhhz1YwJfxMQFO0sZnE+Vsmr1ZsLt +2ku5SW4y+KLC0PW2BxOYFhUTa+Nk0KE1n9lrz4RpR/mgX50yuPfGlQoNPSYc +PD13uTFUFvlvfx1VnWeAYpqx9PglWRT+ePFU1wyDiN/VJ5xJsphQ1iIUSZz3 +IUtbPxjnyOKa5ODHVV8ZcP3CQVFWoyxaz861T31iQGPy27sPZDagZu+bB4aF +DKAW3iw993ID1vwOtCxyY8COz03/vtdtQJVcka2rXBhgxbbazPXTBnTOfh1g +6cCAw7Y+nTC8AVXz3h9p280A09CN5yPWyOF5pSL1IioD/DbM3zdSlsMhI3nD +VGEGvDp2d6o2SA5tnof0KtWUg/fvmYg63o34iH44IFC4HBaVBXpV7TbhWpOO +1JITpWBY8Djrxg151FLDS2vvFcOMkIWbfY0C/nn1KuJo/zP4muBmf4pTCffJ +aPS8/vYEzH8Emw9TNqPpta2+7a75MHmYK6D0/BY8YKl28kZZLnHfF2ePqdmK +193eXO93vA9C75USn/3Yhg1cRxg5wcT9PvapNYWigoMaTywP7rkF6cr6AsLH +VJH/un7Rhvwb0CBppPMrWQ1LtLhVqE9SgCpdk6Tero7/rfspv3ryCgzKK/SO +damjWb0v741PVyBOOVo5p08dLdpeRumxrkAH1eINaUwdnba2/S2MvgLBTp/+ +rlpSx8jxd9cObboCzrv8tccFNNApd/PjDpcEuBFLjAOKBsbxuSqP9lwGPo7s +wENRGmgqXm60mz8W1i6+3DtzUQN7qOsceX7HwPL3Hq3IGA00/Dah1tkfAz+6 +JGayEjQwyoxnpaA4Bj4UJ5/sv6GByWL8uxUdYiDFPfKoa4EG/jV6znC9Hw1i +NW6OB1o1cH9QVF/lzksgG7nB0ElJE0kTosnmr6OgMIBrU88WTfz4yedgUnEU +0I/OcB5S1sTLd6xsRu5GwYFdtS2eGpq4aVVPzMuQKLgteuzEGaomBvSkEL+J +Aon8wow0K02E4d1pL7IiQaSFttgWpIm9nNWpA5cjgFvRpdz2rSYe3PVWz10o +HI5LgEVBvSaqj8YP882HQQPvpl6ORk00fWYd8KkzDBLmv60p+6CJ2bd4ljPv +hQFfXYCdeJcmbg6t9zDRCgOhE/Gz3ZOaaOUWrdbgEArSRRVaHkJauOyl6G1T +chbUaBJPgw9o4dwnf9/LeUFQIu/1l91NC412FU7cTAoCPR6WWaK7FvoGDSVW +BweB8WfH/pxjWsjUucez1zQI7P3TBT/5a+HKiqJU/NfTcP6BeKBKtBbW8Tq/ +01c8DR94xfQHCrXw/RQrU54RAKd6hWot2LRxj7lhbb2EP9S9cXmez66NPFK2 +6kGc/iD7NJfBs0YbJSq3+GvP+UHDeerjBm5tjLtqZtr/wQ82bXS/biGsjR3/ +Lo2uivODj4eLjlkoaSNzbJtz2W9f0Bjbs97CUhu5c07T5XpPQvTHm2vzrbTR +4ZNQV8Tzk/CFNcTGY6ONsalLZLbMkxB7OXiu3k4b0xuS3zu7nIR+5bu95q7a +eMOojTf8izck+Xx/Zn6K0PPCg8d98AT8+JVgZ56ujbwmKaOCq4/Dl4579pkZ +2vit2j//2TcvaHhe7jBzWxsrnMd3H3/nBTkx/U437xF6wpxGVa95gbMU+eBY +vjZueytKnpX3gtfG3Ufjnmvjn+23E05YeMKt5K1n6ge1kbSU6xiSfxRig+hn +ZYa1sbrvwy2r5KMQtH9viP83bbRTnTEzOHMUrBXDwyQmtXGjx9nEA6ZHYS3r +Q4TXnDa6zIa/qB3yAP/+4DhuLjLO6QSQ1sp7gJn6mwxzVTKSr83I9BcfBse1 +O/d9UCfjUmHaRlbGYTjeU8/roEXGM4YUxcdRhyEx/n3EEV0ybv74+EOf7WFo +/9Z69LwRGU+33dcPnXWHI1lDWmV2ZNxxbEOcj6E7RAmueid3joxhjMrEgl43 +SB2NuvgwgoxblnduvlnvBrkvV9PVLpBxxYZvKbPUDRpOchUZxJJR+r7tmqnL +biDYwJ9mn0JGlTcaZnf03CArSvZwQi4Zs7nX+AVpuMKLXwZ/F5rIuNrEU/ZO +swvca2S47/1I6Ne4ZXDiiQtcfKDdUNhCRqXSby4u8S5g7qB806ODjPeHy1Xy +zVygtUJSt2WAjMe2/I2f/m8/jEcuniqcJWPlracD6587g5gAY/yIpA6K7HvX ++LjRERZHtWyrpXVwls/R+UWhI3z5r5AltUEHDwilSEwnOcK9gNzYT/I6mB+x +wCixcwSVz9eVUFUH2XMMTJj9DmB8J9BdCnVwUvTjscwle/BR0er66KGDe34N +sQntsoPTC5J/XD11MGMg5/F/anYQVsMh+f24Dqq4k3muCdlBvGObE4+fDnJv +WGOb0bUPHl0802kcooMyByUP6Hrvg8EvLzpKEnUwvuXS0pXre8H+yq7P1xkE +/5tLertiAwccyQvyFToYoHdz68lvNnBEXka8uEoH57reu2o020AA67t903+E +nsPiW/nv2kDScHL72kYdLLPt+7gNbaCB1tEW3E/oS58YehljDbTvR1qduCm4 +xzGvdJODFYhVmmVXraPgz/Xn7OU1rOB7zDa/DXwUdCAnattwW8GdjdPrhoUo +eKwza0y7ajcs7wvd7idNwdXXde0EFHbDy8rk4mh1ChbedJJZ/rsLjOJeJJXY +UbBaq2Bf2DtzkLS/d1DMkYKcjoMLTXnm8HPTRZWzzhR8uVbS2zzWHLKrzOvo +rhS0TnaXLzMxB/bp1pV6Twr6HHnqcLhmJ9TaT/j0h1IwZmA0faHGDEwUSLt5 +symYypZ3ZLLPBEqnXm88kkPBWQEr2/BaE1BgBMxX5FLw9VB/q/pDE1ht0XzX +s4CCC2vyeRd9TKDGN/pnbSkFLXM0oklsJkCvnE0LeUvBbBFS+cktO4Bi+3Hw +2yQFf90kC8UmGUOu1HkG/Qeh/4DEfp4zxiA6rJJwfYaCSQ3PxPJdjWE2OFZn ++zwF837yehmpG0NxJsTeWaGgF6+kWGOzEaiPPVG1E9LFCxdc3lLEjGBLxOUz +Nbq6uH1mp8dGX4AqgwdrLKm6uCbgXuZ5IwDrhZcpbYa6qKr88IikCMAZn7nH +o0a66He+JnJ1BR3qXNwG+Cx1cYjxyvA+Fx089SkW+910UTpR8cX7Z4aQ93NA +ajZWF+s+nVL7t40K9MKlR+HxuvjIzGyn52oqfPISp3Am6qLRNd14zl59+NNv +aS15TRehUiB5IFkfLJoZFzFTF/lVlN4t/dWD8YIrUwlFuihHfWuY0akL2zz0 +Xyp26eIgNXO+makDVzdZ/bnwRRcn2suGAzN0YLbPXWewVxdX/tP6jGE68MI5 +oeDOkC6uXvuedzfqgK11X5r4FLHeY8+4ZgMZzhpc8uNm08Ohxa3za4e1oU7w +48YpRT201b78oURHC1Sbh112bdHDhrXsJsNSWpCS8Cctb5semqyAvx67Frhw +KvAdVdfDvPMZttubNeHHUtCfXj09nLviNjlyXBPERqVbPuzSQyW3PxnbH2mA +xwvPi6X+esjlGP0oLVANvp8cDzYJ1EO1bI7NaiZqcEbG+0R7kB4KLNd94RJT +g8thvra/Q/VQIuNVfBxTFZ5Rg+QMo/VwVU+4SyGbKiyVX6iqzdDD+c6rZGqm +MqQ8vTP7qVYPL+w1GBFcsxWkXeVGD78h/JX+a7vcswUe8GV3z9bp4ev4H/do +5VuAefJBjViTHu5U3Hdrj+cW6FF+nOTcoYdNOro10s2bYcsjlsrgJOHn0Tl/ +yYdK8DKr9ciMqD6+ElgMyzunAP2WG12DSPrIeyI92POgArAtnnT6K6mPl871 +3bCnK4CxDafVGjl9FG7P2flyWR7erKLqSmzTx+NvWp9URspDo/tdbiO6PhZJ +5wkpJ22CLoXjhUlH9VFm8tlRs/dy8PdD+SNRL33MnaipCyqWA+lwjvsZJ/SR +qXqGrSlNDg603U7L8dPHMZly0i93Oei/1BzBDNFHa9eNCgrzG+DbCHlvf6I+ +ug2l7x4/Iguzj1YW1Bn6KJ82r9t5RgpG7E2z4lj6eHSwOtN1jxR0rL6yc6hS +HzVFfU/IKUlBpZvkzRvV+uhpLi9o3SoJUSQd6r964v3j2P2u2pIgEHs8rOGL +PvYc8C/695cEKsfa2DzYqZhgrZO7s0wMZEWl816spmJNVv7upBQxEKh1tyFx +UtH2UEoyt58Y/JKdvvduHRVdc3aMX1UWg4p2nu1aolT0U6z88DVHFHaa4qWV +zVTMcX4xF5wlAocVC7gzdlNxRuBGxw2WEIS8PnhcyZqKNhtHCrdmCEGSh9C7 +Ylsqui9v+jYVIgRVD84mvHOg4tSFS67cNCEQUdrJ/+8QFcNXaZRcrBWEN0rD +Im5BVBwVL1Wx7hSAbVs2yCndpeJy9Pu695Z8QDRyRPE9KsqxidvvkOADe8/o +AXoOFUvuZcrwjvDChUdT2Q55VLynXhl0LYIXvmypUowroaKazID2UdZ6SNzq +pDz5loqvdfh+V+mvg5lt1yjF08R6/lVGpFNc0NGIJsK/qLgYv+5XtQUXVPt8 +3xs4R0XfhW75B/JckFhs7k/5Q8VO0uVS2XZO2EZle1zBYYCrRVwS3tM4wd38 +5MZaMQMMez9NaxFfC63HzNa3Ghpgx7VFpsssB1Ryz0nqgAG63nrt3d3CAdkF +2VtvGBlge/ngfHwJB/j9+GfqaGqAJV5upyIDOIA3uDTyyx4DZBx66lg+xw6m +0RsXvrob4Bv/gsx1HOzAzPk7MBdrgA9an05dAzagbA9csIg3QBfXuBVrRTYo +G5hcn3XFAHOFT4lQ1rFBsWyvrkWKAbr1U+q/F67QH6dXX7lzywB7DNbMZQ0t +07MSLumbFRrgzLo1aY77/9HjAvmT01sMcDbqS51a5B86l3Bs7lSbAW5UEwjq +sPtDjy5iqzLuMMCMygCu19v+0C9+nxmZ/GKAB9nr9nu0LdLPebYaGo0YoDq3 +tQ1TdZF+yuXm6NhvA/wxKM+wG1+gO++QRwNZQ+T3VLBaTJqj/2vl4quVM8TH +jx4rmB+fo2d5fO+2kDdEw+Lw9K7tc/SRaFaw8xZD/D1lwqxemKWfqt/z9KyW +ITq2Jt1KdJ+lX7YKk2WaEiw2N9Ox/Re9wrFtiexriLJBOT6XtGboB8YqGqr8 +DZE4eQ5aCM/Q2UKy0ncEGuL9HFs2k9lpuumtE+R9Zw1xR/gqjq7yafqnnlXe +ARcMMRpS88/Sp+nj7mrdRWmGeP2heGNC4Xe61MkYllq1IcY9CrR+5zRBT1w5 +qhNfQ+w3r27Qt22Czp5iWvTtlSGuOz8YDEvj9PHyNXlZ9YZ4Ve266NDdcXoF +28V0oRZDdHs6YpE/PkZ3To0Inh82xGy2Q7NtV0bp6ZVndV6so+GJm5kCTzhH +6OutnIok+WhIsinwPj0wTI/o11MNFqDhjaoMZljlMN1zzW8FDVEaJvqUZ5j6 +DdN19wSJZMvScNfPGLbnX77S2wdP/bqkScNHR752DlQP0UV5vIt2O9AwhkMR +rpUQrbQ9PGTaiYY+/rajU0kDdK3wxO3XXGgYsLB3TZzPAN1q+llbxyEaxm19 ++PnctgF6dPvc4mFvGo5MHn/q8qCf/jv7vHFIJA2HjSIFVu/uo3cZXGvJLaDh +bWuRJwYPu+mep3NumxfS8JmS3vdTft30+cIyj8lnNDxU/yxEkNpNF9rUsaBZ +TkMYi0iLbOqi7+KSkX5eTUP5FSkByaVOelVr7pGWNhpumO02T/bqoFvwMVWD +Omg4g4/vj+l10DvM6udJ3TRUGy21v8PVQZ+tmIg92E/Dc09VtSXzPtNV72k8 +GRsn1gNtyvx7O72qyygoYYqG/F45GgHV7XQLkb2gPk3DzIIrL36ltNOPxpz+ +GDhHw5C7saa/9drps9XRGeK/aVhnd447dH07PepP2uGKPzQ0WVX5yLa/jS5A +zlM58I+GXQGG8edK2+h3TlbMrawQfg+zSyzHttH/B3NuE+w= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.09884955974662335}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09884955974662335}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938507239870977`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"1fd28a89-e382-4ea8-94dd-213a706c5e66"] +}, Open ]], Cell[CellGroupData[{ @@ -2863,14 +8276,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ -3438788b15d6"], + CellChangeTimes->{3.9918488983507824`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913294794877434`*^9}, - CellLabel-> - "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +Cell[BoxData["8.27899588463242`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.993850724023389*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"456827da-4d36-469b-9550-ae03604b08b8"] }, Open ]], Cell[CellGroupData[{ @@ -2884,7 +8295,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -2903,8 +8316,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -2926,177 +8338,224 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ -0e75880d5d98"], + CellChangeTimes->{3.9918488997875195`*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 125, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294796838703`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.495984044999624`*^-253\\\", \ +RowBox[{\\\"7035907963854588237468924\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2161719910400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 21, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993850724114245*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +In[99]:=",ExpressionUUID->"d0129c66-57df-49ef-a076-6021d67209f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 126, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479692892*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.59016371708571`*^-262\\\", \ +RowBox[{\\\"6761507553264259296207636\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7412833894400000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 22, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993850724121724*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +In[99]:=",ExpressionUUID->"0f62b391-9c5c-45cd-9d2f-fe60a3a71803"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ -\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 172, 127, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294797011433`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.08892136839798`*^-270\\\", \ +RowBox[{\\\"6923783734542601519316619\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"21\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0741907865600000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 99, 23, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993850724129382*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +In[99]:=",ExpressionUUID->"2fe37dfc-b5f5-40c1-94af-7c52ef83a9e7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479709572*^9}, +during this calculation.\"", 2, 99, 24, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.9938507241359253`*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +In[99]:=",ExpressionUUID->"7570a584-f45d-4e1a-ac34-fb891ea18e38"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VP8XB3ARIWTJNvYlESrbGDNmzkFZI9m3kLKmUJYshUKKFFq0yV4i +WWeyhKi+SBKKIomShChKlvzm99c8r+dz595z7pz3eUbOK8jGm5WFheXBOhaW +/3/+Hm5/qphSQJNPZC0tkLOi9WWLRRoMnAaHAjnRtnxVQOFXXmIDGTCa6ZSW +lE+BcOv7/WwDeSDDO+1gm28BAjOiGX/7K8FTbOXHjzxX+NhgFTTf3wJnaz6I +X8s9DMaKkx/m+nvgII3nidWtaPjbr3tltn8U6nYlZu06mwKtRncLXuf9guqT +a08arG6B5MfacS+1VTj1yi3HMKsANgd63N9gxIY3xb2vZwTdhwwN43ore070 +uzeyq4OnHHYMOptQ/TjRbvSXU7ZIOXQmHOlVjebEnLF1pYGy5cAxcPk7Zy4n +nn3dxraoVQ7Rp8YkWqc4kS1rSLXdpRwOvYiL0U3gQupz/UWbu+VA9K6nylZx +I9c3C66flAp4l7WzeY6fFwML1vrf2FTCjd6STeFbeLHQw+tsv2sluPBt9VjS +48UfQ+ufvD5UCUNnpP6xHuTFdm1S+8PwShg5yq2/uYYXWV/UfxO4UQkTuz4z +iM58mPZkyD3wYyUszl57GJ27CU3YlJsDDlVBrarQ2lrNJuw/U24fGVgFUT5p +Vgkdm3B6PnNnXGgVrAwmTKf+2oRx7AoPwxOqIG7skfAreX508z19m6OgChK6 +Cm1HQvkxNfNfc/mnKkgpiH3FKi6AxwnLFAXHajDX9hcUVhBAe2xzFXGvBs6n +NvZb1QWQzlH8bp13NSSMbRm0MBDAgjzl70+OVUOMfOf4ZX8BvGjRaDx+oRqO +5oj9U6oTwFL+eyuNLdWw71aFmoWrIPqGqVHvK9UAv9rNoP3eghhY125xV60G +uuoTKoOCBNG+/OztW5o1YD7oSLp8RhD7dyFnMK0GDAn/jD6UCKJxW+5UrX0N +aGeZuwatCKLte7z07nQNiF4eO5d5Wwj7WuzVjftrQEy1JmGxSAhDUh/3zA/W +AKElKXZ/uRDiT5OaWyM1ID2rEra1VQj54kc0Br7VwJY9wZ71E0JovZzH/W+5 +BrTWrxLHtDajQnP+PnYZOuwNFfms2bEZH4xDDpsnHaw3Tgxf692ME2K+uu8P +0sEmr/bdytBmbIpbFbzvSweHbrdXz38wrw/A6zpBdNivll/nIiyMCPt+LJ+k +w+HPO9JPewpj5qsxHeMbdDhrZ0br+S2Mdr6OJ968pAOhuovAuk4Eo2ndJJHX +dCgTsvujsVEEsx2alPb20eFtj3t5uowITmTaXCx+TwfFfaHy+0xFsOXyyUqW +r3RosbzD0X1dBB1o3qZ6/5j1PFAcW8sXQc/njwNWWRgwyXO/aUeZCJZntr6s +ZWOAQGf1iYstInhRhOQqwcUAT/OOSavvzO/ft6uLF2LAqvFC10t9UbT7tv/F +kBIDLhVFlawai2JkZljeFhUGKHKwJKvvE8VNbTdf+6gyYM8zboML3qK4mxRF +69nBgBtGslV70kRxS45qnCWJAdvzCy/GZImiwYjJbmcyA1pYVQNL80RRc7ko +aL8+A7490dnCwxDFc5xCy1bIABJaXHvxURQzw1uk+k0Y0Hmn+/jyN1GsnvxL +LTJj1rtmb606L4oTWwteH7FgwNlGT64UTjF0jq90GbdiwFv98GhzDTF0uq2r +fNKeAcf1cj3aT4th2JDbAaMDDDDP4Zu3SBVDDcVk7gQvBshviEnuuiKGWgvn +yY0HGdDd51DRe08MTXLf68j4MOsP5mEb7hJDuStX2jMDGMDeH3nNc0AMF9bt +f5dzmAFD1K+qY5/EkNzScfJuIANSNrbYTcyL4d/26pTcowyYKIoo+kkQR4ci +iRnTYwxo4v1CDlMUx0CS6xv54wy4Gmrz6o+6OCqcaPT4zfRuQ/XFFRTHiawD +3ufDGCBZfCM11lwcu8Y9P5uHM2B+E6ccq504PmCw8rFHMCDvw6jZBl9xPEVv +9/M5wYDIXdbD54LFscG59TZvJAOsSx4f44kSRy0fzsQyptdOZN0UuCCO7wzI +xz5EMd/XR/adl68yz835Yw5HM6DM+PhTkRxxbFVZj7+YdttsNS1RJY5h0tr/ +fsQwQCu6Pj67QRz9vh9ZOXSSAdyjyiJyz8VxZam5oZfpUdOr9/NfiSMtVtNA +/xQDah+ygdI7cVTd0ZGSzfQlkZDee6PiGLMrI3uJab+Tw76qU+J4LPJatHUs +A0Qsai/tXBPHAzlZt74xPV2htKWKk4CZYXWf1eIY8FTscq2OIAFpat5r/kzf +il1n9UiCgCsfK2ZymD4+fnSUvIWA12Uaql8zbW45FP54OwHfT+barjAtX222 +EUkEpJSfeSkbz4C/BMadFgMCNpgnKALT3fGK2rstCHh1rc3Fkem7E+lt/9kR +cDk68pg/06f2rrmZuxNwtKfpSBjTDvTAuU5fAj6IarOKZlpd6n3i3hACbrBo +Ef2/1yeYEHqiCBgRNdwRyvTQZHWZXQIB9W5ZB/gxXbVP3qj/AgEXb1st2jN9 +/tHFfudrBAx4xh9BZfqAzOrhoRwCypS9npBmmpQUwOJxn4BUk669S8x++Kf7 +L3+qIqDg691lr5j+artb5dBjAm4cjOS4w3RjXeXj8ecEFDIoc/Fj+qqcrI1/ +NwGTVFQeqDJ9JPnC+Pd3BGxl1WL5//ve9WMp6ugYASfjRBxymI40vbztyRQB +q2p/WNgyXZar/l7oN7Pfn00JLEyL2Xnq1XJKYCuDrc2M+XtaPvg7sVFQgpmX +wbdfmPNwmiMzy11CAsf5j2vEMD316Nkftu0S6MfZ3HONOU9ygh53HXQlcKfK +pJQU0w6HFx2KUQJ3bX/8+BZz/pqlVOlWthL43G7/+hTmvGaevhR6/YQEVtye +m1JgznvboIriVLwEpu9tloxh5mFFu7WXliKB280CqrqYefH5uqD5+TbzeafS +pA8y80Te4zq3vVUCs26T1M2YeQwqnM+J75TAxsvzfaEhDCj4d8G6740ECgST +f98IZgBfRfPDyAkJ5Bb6WPaWmedRYaWjT3kl8WyrDYWHmX/RoCYpUVFJ/OQr ++nMjcz/saXN66S8riZOhqToc/gygR6WobdKSRO4qauAkc5+c/zg76ewkiWmW +hA8hzP3TRDp/o/SAJNoIVlGNmftpPl3BfC1AEpVtrtKEPRngvsuhuOCkJBbe +3aaav58BmsX1vj/yJDGfHrRwyokBvqz2ooalzHMVnWxlR2YeXGeeX66RRFN7 +q+VO5v7j4JNTIrdJYmZ8zhC7LQPeH0v6nDAtiZ3mcmdIlgyI1993gECSQt6B +7jv5zP1r6p79U9dQCgXM7fe9oTH7j/t+xn6PFG7q7PjDQmXevzWx6JKnFEbz +rtMw1mPAI/O67xznpFCaw6kqWYMBs04K4b/eSeFKlP38rCwDGFHBGwQ+S2GP +NF5olWbm59bjrO0zUri3d2LfJUkG8Iw41vuzSuP+4sBAMTEGbPVNZRnZJo1S +q8GmY3zM/sMWzndGS+MVdZ5qn2U6bLlmKDmZKI2xl1seflikM+fp4oMNl6Tx +lvHUpr2/6RC1otJtWCCNOsHreeTm6HDljLtwbac0bkxNdzo9TofO9P/uFErJ +YApb6zFqNx3IZderTzXJ4EBqY+TDO3TY1d+1OtMmg/W2o/oVt+hgxbLexKNH +Bvfk/Egou06HgzZH38EXGdzFI1J+M5MOxtFysXHssljF/bMNz9IhWOZ3voGq +LD61mah7dIQOT33vTLeGy+La1Q0nw3TpELg4F9fGK4flR0X7extrgBziIzIu +KIc8yrqCkXU1wDn5voRNTA4Nv1gsitNroHCw9S1NXg49IwbfWD2ogeHGK2o1 +RDm8ft3TPPFmDexN1BvI9ZBDjun5R8oRNaApGL8jukIOM+PmmnxUa+CvKv+w +ur08tj9hvLqXXA36JaU5V68q4L/sDaKXFKtgTtDc06FFEXvEQqtkHlXA51RP +h2MblFBo8kplrWg5mP2IMPtC3IqPk36dMxZ5AFMHOY9XxypjocSzSyxPipn/ +50VZz7aooLBpuLr3lSIQfKmUVv5jGxaztVOfPMsHyeSH1kSiGp7750Ganc6B +LFU9fiFfdfy9z5X9xeot6CAY6PxK347XOluviNzPArJky6Udb3dgssP+bKvo +y8DHlhd64PROjHp6YvsgbzpIx8voOytp4MncxBihBynAtcWNbvOfBv7xq2PN +t0qCAHEwL2nXwMIiKoupfhJ08MoPs3VqYPby0rdFlSRI/f2VvaZbA7X4DINP +sScBX9txe9H3GmjMFtYh+jgRBA+nzA9OaWDTzPXW2O2JIFlRp+ktqIm2Zj8n +1hMSYDtV/GHEfk0sn7+dNSJ4GqoU/JdZPTVReS4ujZf1NJC4a03SvDQx2NZS +zWQuHgz7nUYKfDWR6GhuMvIqHhxCsgR6QjSxNZdkXXwhHmILRUPVkjSxhVPK +IX1jPHTziuh9KtPEA6bue9L44+DYsGCrOYsWThZVKz6PjoG2526P77NqYZDK +G4vJAzEg/bCIwc2uhQa+v3rlTGOgI5Zc2sGlhSNEto8dm2NAXs7rirmQFg6b +nfqP7WE0vD5Y4WuupIWmEjMSnF+jYOe3vTzme7TQJ1Dn6WbvSPjxK9XeLEsL +972wuMx/LRyGBnIdbt/QwmkW13qV0+HQ8ZjuOHdLC+9qa8nYHgmHgrMjztdz +tdCrK+jEW6NwcJHQdv92XwuzTr0Iyp4Lg2eGgz7nHmvhRqm1QFXrMLiZrnKi +fVQLM6zl+/6KhYLJjuc3zNS1MTsrQju4PwScOEztundoIyNm7ePQ0xAI+NDO +66ipjc8Epta7VIZAWsrLuEO62lgIiWmJF0Lg7dc+n1gDbVT5fSwgZ1cIHMoZ +06yx10bu2+7ZgzXBcFpg3QvZU9rYKij/k2gaBI2/KMt/urRxsKPveI/LYcjt +ZHjZvtbG+WpGEAkOQ0KhVkdZrzY2nKiNoCscBjNH1eveA9p4NlgiYGkqAPrq +CLq9n7TRUrRjY05cAEzG/z1WNq+Ny/Z2v2xL/UGEnzF5iKCDdxybtk1v9oO/ +E5o2zZI6aLN5XE1nxReGnpTVSsjo4LW6VN3MMV/IPV6U3KOggw5j2VvTK31B +rf+KEqrr4OVvGo8z9vmCYXaolwTqoDrr+q13Mn3gqJrm+9feOmj9biknZKs3 +hP0hLHn46WA4wTfj9CZviGlhI8wE6ODmX4eUS/4cghSnN87cwTr40ir5t2Hb +IbiXcOKdYZQOBjre50kJOASjQ40DVWk6yPmltT2w6iA4XLDov8LQwZLBpc4F +ey/Y76T9R6FOB7OTBI72oxccUpASrWzQQbfNlf5dql5wvHbGoeuJDhbOvlNZ +WecFl76kv+Xo1EHB7PERu4cHoIM68CZihNlPIs/Yd94DQJ051OfMRcT7puvZ +gqs9QKTeJK9hIxF5VJQf1Kd7wMzZbcEyfEQc2cE/pBzkAdlysxu/CBJxdnze +zXebB/yzizYKliQiL+eLtZA8d2iqT69M2kFEJyFaTlHWfjA413ipyp6IxuF8 +PP23XIHgkOsu4kTEnlTiCdlTrvBTPkEt0oWIQ4plqskerpDXYNZG8yCid2DD ++kp5V2Cd7Vtr9yPiuYVP/wXed4FWh+9HR6KJGNvzk8O/yRl2K4pZ8uYR8WDO +Mb7ef45QPf1M7lABEUu+DU9TPzuCIuP477oiIp50j2FrbXeE9eav7viVEHFZ +VDJK4oojtAQl/WytJuLl/AwdNnVHoNXPX4v6j4h3ZeVEbh5wAKLN69GvU0Qc +VXte5/TBDookYhm0H0SM63KQ/fTMDoS/qKVemSOil+GwRHyZHcxHJOsY/SYi +3xQpYUOcHVTehuTsNSKW6j6fUFW0gx3fHqjbC+piYeB0zpNgW1COO3+iRVcX +ufjLArMINtBAKWTfQ9bFdUbC1tvX24D1n6aMN/q6qNH8VfTD9D44cXShdMJA +FzdtlP2d8GQftLl5fuLbo4uPv484L/vvAz89ormrpy5+dTf0ONpkDcU/P0nM +J+tiSdrflzf/WAGtbOXeyRRd1HnreuputxX0+IsSN6TpYsPhDsuPxVawNLLH +mpCpi8E+nrd73KzA/BUjAW/r4nPlqr2tTy1hsuTCdGqFLjKuds7cvbUHtnnr +NW15r4ucHc073A6bw0V5q6UzQ8z6mw+0vrMwh/mPXjqjw7r44cDRPZFq5tDo +klqSPaaLQxLFTVIzZmBj/fGa6LQuHrH7VrN4zAwiKYnBXCwkfLVEODd42hTa +BF7LTW8hoWcU66tTdcag/uqLm4UyCd89biGuZRtDRurSteJtJBTn2f/f7TPG +4LZBkc9nBwnbDVN+aFsaw4+V8KVhEgl/ZeTrtn3aDSITkr3dFiQkyQR2+fPv +Bu9Gv4TqEBJmWMW8eXvaCGaOTEbsDiXhuZLtQeN+RnBCKvDw23ASbuhKOCS8 +1wjOxwTZLEaTMOHR1FC3hBGUk8Nl9ZNIuP9ipU8d3RBW6GcaWm+Q0Ggmew/l +pwFkPMye72kl4dW5/kLhWARJD9mJg89JeCei36LHD6GQL29wvo2ESXs5Xe7b +IDw6Utgi0kVCqmunbqkSwgfV0ksuA8xz62cnvt4BUL5XqzY6RcKLk7V1s1Y0 +aMrpOzQnrIesePmvXC8FRvbIeYSL6eFU9UMFxgMKsPw94rxM0EOlwPMOUckU +MNy3wYpdVg8fznnynqdR4Pk6sq74Nj3cyTpo1l5Khk6vO1wGND08n8U7fjNd +D94rBpRd8tHDI/fuyhlG68JyN/2esL8e9vT0WpNddUHyJFv+jcN6eMA/8YoL +RRf2v7l1rSBYD5cq4koFV4gwkvgq7lGUHrresdRxiyXC13Ft25E0PfSi+3ts +v6AD8/fW/uxg6OF0DfdcwVMtGHcwzjlXq4dzFbF75Uq0YGD9BdOxej0MUZBd +rE/XgnpPwvWrzXpo28x+18JDC06L6ZBX2/WQK7duuXtZE/iTA2I6hvSw07Zk +1JGsCWq+b1i8WcloadmQFtu5E6SFJYsb15NxNt95PJm+E/hbvfaJbSDj8J0b +jNKcnfBLejb3xUYymjcT7YzCdkLdW24jTWEyUqVWHYtldoKpMSaubSVjHOf0 +WOzP7XBwSwnXDUsy+vgfFyw/qQZRz9wDlKzJeJzDpa7dTg0ueQu+qLQh4ztZ +y3xxNTVoKIxMfeFIxjN3wrVdB1Vhs5LpptUDTHcfNHHXV4XnSl82e4aTUXz2 +dZEa5zbYpiwjq3SHjLXPLh6mPNsK2NYTV5lLRjXpbo2CvK3g4Jf0iVZARg9K +9VVK3FY4c286z7GYjMdSc5wWKFthSLlhy7kqMtKSBi6m1ShBmoqz6tR/ZJQU +n1baWrEF5rZlEitnyejiI/o+ok0BBjpxt9Av5vOfWRjoPVCA5qMztqELZEzg +Wo2SylCAtEqzEOISGdfrD7ZauinANjJLaR0bBf+4lxmb/ZQHL7Mjcq0iFJx3 +7w06pygPfb4mPH36FNxGaYuWy5WFeq4Fgg5QcIvLPcbcOVnIK8lTuWpAwcUH +Iawjx2Qh+MeqsZMxBZM7fYkiu2WBN6I6fmgvBYULFCM63siAcZLcn89eFBze +LpM7HCENjwqWPy0kU9AsOMH54hcJIBqF/jFPoSD/VcP7840SUPNpiifnAgVH +BWNrU7IkoFJ6WNc8g4LrD7soW+2RgNKs5gvZNynIctz6qxSdADmpiXomZRR0 ++htaRs8Qh3Ohm9Kzeim4c5h8z+SoKHAKJRdNv6HgW40dthGWopBUwdJgOEDB +g3Xv+l6riULCzNz41BAFPwuapXFMicApvz59g3EKPnxpbuQfKALH3K5PfFuk +IOXdTPXXUGFw2aWAFGl9TLAzSTyeLwSrfZx8rbL6KJ/48ZphohDkeM8Mmivo +o2dq5IK+rxCMJ9VGuCjr4+RoT0mlqhAca9/7MFJTHxttazpu0gXhvFWM9CNj +fZT6ZD6g1ScAdU5vVrSD9NFCgLuORZ0f9n+r62gI0cfSZ69Lu4T4gSUqJ2tX +qD7eOTR29PTCJjC+eVjbLlIfWYLhllLGJuj5sC7w+Bl9fP/hk3FnFx9Mem0f +rLimjyNNAbEke16QOHK2dnuzPv6s0GLhuswNaWs+Oikt+ngEZt9/DOQG1gzj +iq9P9fHoLtaAqd3cMElnL85p18fmwLBLhYtcUMeSkCXYy6xnB0fsJU8ucLkc +F/H7iz5mNO4d5yVzQlZ9pE7jRioqxXy+OSzAATxWzhUEPiqGV62UfJ9lh7gR +knoEPxUrrN3dlLrZwY99UXGnMBX7obRM4SI76O4N35wnTcXM58m3dTexw9vR +Y78SNaj4c/DL3XTR9SDMHVhh6UjFWpu9fgkmrFBgdDJq1pmKwmMf+XOVWUHz +ZJpRphsVWX+wDU1zsYLVbPmbgQNUdFY5VS/ych0kvV34ezCQilyaGcO37dfB +Yl6sYVQ8FfVn27/uCmKB95TM3qISKqZf5dDZnbRK8wsruGVWRsVc8SdHY21X +ab/LarynyqmYOtPswyW3ShOUH/ijQafi7bfKD7kfr9AsOKUkHzdTMd/9/pWa +xWVaQ1/Rod43VNwiQ44xPrVEM+d7pB4+QEUX6y+Hd1sv0QZM2n+LDVKRqho2 +mCq/RJuv+57sPsK8v9LHuF///aWp5+588G2SikP7ixeERP7SGt4bhKdOU3HB +emLWfHKRZr7ZFnbMUrGKTuL6r3GR5nM27HXoAhWPxKl+T/VbpM03J90QXWTW +b+o69oa6SDu9dO1g3RIVN7DS7b2EFmn82sVq+1epmM33773Gtz+07CN1C2tr +zPOzqTy7mv7Q/gee7AgT "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3110,136 +8569,174 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK +1:eJwV1nk4VP8XB3ARIWTJNvYlESrbGDNmzkFZI9m3kLKmUJYshUKKFFq0yV4i +WWeyhKi+SBKKIomShChKlvzm99c8r+dz595z7pz3eUbOK8jGm5WFheXBOhaW +/3/+Hm5/qphSQJNPZC0tkLOi9WWLRRoMnAaHAjnRtnxVQOFXXmIDGTCa6ZSW +lE+BcOv7/WwDeSDDO+1gm28BAjOiGX/7K8FTbOXHjzxX+NhgFTTf3wJnaz6I +X8s9DMaKkx/m+nvgII3nidWtaPjbr3tltn8U6nYlZu06mwKtRncLXuf9guqT +a08arG6B5MfacS+1VTj1yi3HMKsANgd63N9gxIY3xb2vZwTdhwwN43ore070 +uzeyq4OnHHYMOptQ/TjRbvSXU7ZIOXQmHOlVjebEnLF1pYGy5cAxcPk7Zy4n +nn3dxraoVQ7Rp8YkWqc4kS1rSLXdpRwOvYiL0U3gQupz/UWbu+VA9K6nylZx +I9c3C66flAp4l7WzeY6fFwML1vrf2FTCjd6STeFbeLHQw+tsv2sluPBt9VjS +48UfQ+ufvD5UCUNnpP6xHuTFdm1S+8PwShg5yq2/uYYXWV/UfxO4UQkTuz4z +iM58mPZkyD3wYyUszl57GJ27CU3YlJsDDlVBrarQ2lrNJuw/U24fGVgFUT5p +Vgkdm3B6PnNnXGgVrAwmTKf+2oRx7AoPwxOqIG7skfAreX508z19m6OgChK6 +Cm1HQvkxNfNfc/mnKkgpiH3FKi6AxwnLFAXHajDX9hcUVhBAe2xzFXGvBs6n +NvZb1QWQzlH8bp13NSSMbRm0MBDAgjzl70+OVUOMfOf4ZX8BvGjRaDx+oRqO +5oj9U6oTwFL+eyuNLdWw71aFmoWrIPqGqVHvK9UAv9rNoP3eghhY125xV60G +uuoTKoOCBNG+/OztW5o1YD7oSLp8RhD7dyFnMK0GDAn/jD6UCKJxW+5UrX0N +aGeZuwatCKLte7z07nQNiF4eO5d5Wwj7WuzVjftrQEy1JmGxSAhDUh/3zA/W +AKElKXZ/uRDiT5OaWyM1ID2rEra1VQj54kc0Br7VwJY9wZ71E0JovZzH/W+5 +BrTWrxLHtDajQnP+PnYZOuwNFfms2bEZH4xDDpsnHaw3Tgxf692ME2K+uu8P +0sEmr/bdytBmbIpbFbzvSweHbrdXz38wrw/A6zpBdNivll/nIiyMCPt+LJ+k +w+HPO9JPewpj5qsxHeMbdDhrZ0br+S2Mdr6OJ968pAOhuovAuk4Eo2ndJJHX +dCgTsvujsVEEsx2alPb20eFtj3t5uowITmTaXCx+TwfFfaHy+0xFsOXyyUqW +r3RosbzD0X1dBB1o3qZ6/5j1PFAcW8sXQc/njwNWWRgwyXO/aUeZCJZntr6s +ZWOAQGf1iYstInhRhOQqwcUAT/OOSavvzO/ft6uLF2LAqvFC10t9UbT7tv/F +kBIDLhVFlawai2JkZljeFhUGKHKwJKvvE8VNbTdf+6gyYM8zboML3qK4mxRF +69nBgBtGslV70kRxS45qnCWJAdvzCy/GZImiwYjJbmcyA1pYVQNL80RRc7ko +aL8+A7490dnCwxDFc5xCy1bIABJaXHvxURQzw1uk+k0Y0Hmn+/jyN1GsnvxL +LTJj1rtmb606L4oTWwteH7FgwNlGT64UTjF0jq90GbdiwFv98GhzDTF0uq2r +fNKeAcf1cj3aT4th2JDbAaMDDDDP4Zu3SBVDDcVk7gQvBshviEnuuiKGWgvn +yY0HGdDd51DRe08MTXLf68j4MOsP5mEb7hJDuStX2jMDGMDeH3nNc0AMF9bt +f5dzmAFD1K+qY5/EkNzScfJuIANSNrbYTcyL4d/26pTcowyYKIoo+kkQR4ci +iRnTYwxo4v1CDlMUx0CS6xv54wy4Gmrz6o+6OCqcaPT4zfRuQ/XFFRTHiawD +3ufDGCBZfCM11lwcu8Y9P5uHM2B+E6ccq504PmCw8rFHMCDvw6jZBl9xPEVv +9/M5wYDIXdbD54LFscG59TZvJAOsSx4f44kSRy0fzsQyptdOZN0UuCCO7wzI +xz5EMd/XR/adl68yz835Yw5HM6DM+PhTkRxxbFVZj7+YdttsNS1RJY5h0tr/ +fsQwQCu6Pj67QRz9vh9ZOXSSAdyjyiJyz8VxZam5oZfpUdOr9/NfiSMtVtNA +/xQDah+ygdI7cVTd0ZGSzfQlkZDee6PiGLMrI3uJab+Tw76qU+J4LPJatHUs +A0Qsai/tXBPHAzlZt74xPV2htKWKk4CZYXWf1eIY8FTscq2OIAFpat5r/kzf +il1n9UiCgCsfK2ZymD4+fnSUvIWA12Uaql8zbW45FP54OwHfT+barjAtX222 +EUkEpJSfeSkbz4C/BMadFgMCNpgnKALT3fGK2rstCHh1rc3Fkem7E+lt/9kR +cDk68pg/06f2rrmZuxNwtKfpSBjTDvTAuU5fAj6IarOKZlpd6n3i3hACbrBo +Ef2/1yeYEHqiCBgRNdwRyvTQZHWZXQIB9W5ZB/gxXbVP3qj/AgEXb1st2jN9 +/tHFfudrBAx4xh9BZfqAzOrhoRwCypS9npBmmpQUwOJxn4BUk669S8x++Kf7 +L3+qIqDg691lr5j+artb5dBjAm4cjOS4w3RjXeXj8ecEFDIoc/Fj+qqcrI1/ +NwGTVFQeqDJ9JPnC+Pd3BGxl1WL5//ve9WMp6ugYASfjRBxymI40vbztyRQB +q2p/WNgyXZar/l7oN7Pfn00JLEyL2Xnq1XJKYCuDrc2M+XtaPvg7sVFQgpmX +wbdfmPNwmiMzy11CAsf5j2vEMD316Nkftu0S6MfZ3HONOU9ygh53HXQlcKfK +pJQU0w6HFx2KUQJ3bX/8+BZz/pqlVOlWthL43G7/+hTmvGaevhR6/YQEVtye +m1JgznvboIriVLwEpu9tloxh5mFFu7WXliKB280CqrqYefH5uqD5+TbzeafS +pA8y80Te4zq3vVUCs26T1M2YeQwqnM+J75TAxsvzfaEhDCj4d8G6740ECgST +f98IZgBfRfPDyAkJ5Bb6WPaWmedRYaWjT3kl8WyrDYWHmX/RoCYpUVFJ/OQr ++nMjcz/saXN66S8riZOhqToc/gygR6WobdKSRO4qauAkc5+c/zg76ewkiWmW +hA8hzP3TRDp/o/SAJNoIVlGNmftpPl3BfC1AEpVtrtKEPRngvsuhuOCkJBbe +3aaav58BmsX1vj/yJDGfHrRwyokBvqz2ooalzHMVnWxlR2YeXGeeX66RRFN7 +q+VO5v7j4JNTIrdJYmZ8zhC7LQPeH0v6nDAtiZ3mcmdIlgyI1993gECSQt6B +7jv5zP1r6p79U9dQCgXM7fe9oTH7j/t+xn6PFG7q7PjDQmXevzWx6JKnFEbz +rtMw1mPAI/O67xznpFCaw6kqWYMBs04K4b/eSeFKlP38rCwDGFHBGwQ+S2GP +NF5olWbm59bjrO0zUri3d2LfJUkG8Iw41vuzSuP+4sBAMTEGbPVNZRnZJo1S +q8GmY3zM/sMWzndGS+MVdZ5qn2U6bLlmKDmZKI2xl1seflikM+fp4oMNl6Tx +lvHUpr2/6RC1otJtWCCNOsHreeTm6HDljLtwbac0bkxNdzo9TofO9P/uFErJ +YApb6zFqNx3IZderTzXJ4EBqY+TDO3TY1d+1OtMmg/W2o/oVt+hgxbLexKNH +Bvfk/Egou06HgzZH38EXGdzFI1J+M5MOxtFysXHssljF/bMNz9IhWOZ3voGq +LD61mah7dIQOT33vTLeGy+La1Q0nw3TpELg4F9fGK4flR0X7extrgBziIzIu +KIc8yrqCkXU1wDn5voRNTA4Nv1gsitNroHCw9S1NXg49IwbfWD2ogeHGK2o1 +RDm8ft3TPPFmDexN1BvI9ZBDjun5R8oRNaApGL8jukIOM+PmmnxUa+CvKv+w +ur08tj9hvLqXXA36JaU5V68q4L/sDaKXFKtgTtDc06FFEXvEQqtkHlXA51RP +h2MblFBo8kplrWg5mP2IMPtC3IqPk36dMxZ5AFMHOY9XxypjocSzSyxPipn/ +50VZz7aooLBpuLr3lSIQfKmUVv5jGxaztVOfPMsHyeSH1kSiGp7750Ganc6B +LFU9fiFfdfy9z5X9xeot6CAY6PxK347XOluviNzPArJky6Udb3dgssP+bKvo +y8DHlhd64PROjHp6YvsgbzpIx8voOytp4MncxBihBynAtcWNbvOfBv7xq2PN +t0qCAHEwL2nXwMIiKoupfhJ08MoPs3VqYPby0rdFlSRI/f2VvaZbA7X4DINP +sScBX9txe9H3GmjMFtYh+jgRBA+nzA9OaWDTzPXW2O2JIFlRp+ktqIm2Zj8n +1hMSYDtV/GHEfk0sn7+dNSJ4GqoU/JdZPTVReS4ujZf1NJC4a03SvDQx2NZS +zWQuHgz7nUYKfDWR6GhuMvIqHhxCsgR6QjSxNZdkXXwhHmILRUPVkjSxhVPK +IX1jPHTziuh9KtPEA6bue9L44+DYsGCrOYsWThZVKz6PjoG2526P77NqYZDK +G4vJAzEg/bCIwc2uhQa+v3rlTGOgI5Zc2sGlhSNEto8dm2NAXs7rirmQFg6b +nfqP7WE0vD5Y4WuupIWmEjMSnF+jYOe3vTzme7TQJ1Dn6WbvSPjxK9XeLEsL +972wuMx/LRyGBnIdbt/QwmkW13qV0+HQ8ZjuOHdLC+9qa8nYHgmHgrMjztdz +tdCrK+jEW6NwcJHQdv92XwuzTr0Iyp4Lg2eGgz7nHmvhRqm1QFXrMLiZrnKi +fVQLM6zl+/6KhYLJjuc3zNS1MTsrQju4PwScOEztundoIyNm7ePQ0xAI+NDO +66ipjc8Epta7VIZAWsrLuEO62lgIiWmJF0Lg7dc+n1gDbVT5fSwgZ1cIHMoZ +06yx10bu2+7ZgzXBcFpg3QvZU9rYKij/k2gaBI2/KMt/urRxsKPveI/LYcjt +ZHjZvtbG+WpGEAkOQ0KhVkdZrzY2nKiNoCscBjNH1eveA9p4NlgiYGkqAPrq +CLq9n7TRUrRjY05cAEzG/z1WNq+Ny/Z2v2xL/UGEnzF5iKCDdxybtk1v9oO/ +E5o2zZI6aLN5XE1nxReGnpTVSsjo4LW6VN3MMV/IPV6U3KOggw5j2VvTK31B +rf+KEqrr4OVvGo8z9vmCYXaolwTqoDrr+q13Mn3gqJrm+9feOmj9biknZKs3 +hP0hLHn46WA4wTfj9CZviGlhI8wE6ODmX4eUS/4cghSnN87cwTr40ir5t2Hb +IbiXcOKdYZQOBjre50kJOASjQ40DVWk6yPmltT2w6iA4XLDov8LQwZLBpc4F +ey/Y76T9R6FOB7OTBI72oxccUpASrWzQQbfNlf5dql5wvHbGoeuJDhbOvlNZ +WecFl76kv+Xo1EHB7PERu4cHoIM68CZihNlPIs/Yd94DQJ051OfMRcT7puvZ +gqs9QKTeJK9hIxF5VJQf1Kd7wMzZbcEyfEQc2cE/pBzkAdlysxu/CBJxdnze +zXebB/yzizYKliQiL+eLtZA8d2iqT69M2kFEJyFaTlHWfjA413ipyp6IxuF8 +PP23XIHgkOsu4kTEnlTiCdlTrvBTPkEt0oWIQ4plqskerpDXYNZG8yCid2DD ++kp5V2Cd7Vtr9yPiuYVP/wXed4FWh+9HR6KJGNvzk8O/yRl2K4pZ8uYR8WDO +Mb7ef45QPf1M7lABEUu+DU9TPzuCIuP477oiIp50j2FrbXeE9eav7viVEHFZ +VDJK4oojtAQl/WytJuLl/AwdNnVHoNXPX4v6j4h3ZeVEbh5wAKLN69GvU0Qc +VXte5/TBDookYhm0H0SM63KQ/fTMDoS/qKVemSOil+GwRHyZHcxHJOsY/SYi +3xQpYUOcHVTehuTsNSKW6j6fUFW0gx3fHqjbC+piYeB0zpNgW1COO3+iRVcX +ufjLArMINtBAKWTfQ9bFdUbC1tvX24D1n6aMN/q6qNH8VfTD9D44cXShdMJA +FzdtlP2d8GQftLl5fuLbo4uPv484L/vvAz89ormrpy5+dTf0ONpkDcU/P0nM +J+tiSdrflzf/WAGtbOXeyRRd1HnreuputxX0+IsSN6TpYsPhDsuPxVawNLLH +mpCpi8E+nrd73KzA/BUjAW/r4nPlqr2tTy1hsuTCdGqFLjKuds7cvbUHtnnr +NW15r4ucHc073A6bw0V5q6UzQ8z6mw+0vrMwh/mPXjqjw7r44cDRPZFq5tDo +klqSPaaLQxLFTVIzZmBj/fGa6LQuHrH7VrN4zAwiKYnBXCwkfLVEODd42hTa +BF7LTW8hoWcU66tTdcag/uqLm4UyCd89biGuZRtDRurSteJtJBTn2f/f7TPG +4LZBkc9nBwnbDVN+aFsaw4+V8KVhEgl/ZeTrtn3aDSITkr3dFiQkyQR2+fPv +Bu9Gv4TqEBJmWMW8eXvaCGaOTEbsDiXhuZLtQeN+RnBCKvDw23ASbuhKOCS8 +1wjOxwTZLEaTMOHR1FC3hBGUk8Nl9ZNIuP9ipU8d3RBW6GcaWm+Q0Ggmew/l +pwFkPMye72kl4dW5/kLhWARJD9mJg89JeCei36LHD6GQL29wvo2ESXs5Xe7b +IDw6Utgi0kVCqmunbqkSwgfV0ksuA8xz62cnvt4BUL5XqzY6RcKLk7V1s1Y0 +aMrpOzQnrIesePmvXC8FRvbIeYSL6eFU9UMFxgMKsPw94rxM0EOlwPMOUckU +MNy3wYpdVg8fznnynqdR4Pk6sq74Nj3cyTpo1l5Khk6vO1wGND08n8U7fjNd +D94rBpRd8tHDI/fuyhlG68JyN/2esL8e9vT0WpNddUHyJFv+jcN6eMA/8YoL +RRf2v7l1rSBYD5cq4koFV4gwkvgq7lGUHrresdRxiyXC13Ft25E0PfSi+3ts +v6AD8/fW/uxg6OF0DfdcwVMtGHcwzjlXq4dzFbF75Uq0YGD9BdOxej0MUZBd +rE/XgnpPwvWrzXpo28x+18JDC06L6ZBX2/WQK7duuXtZE/iTA2I6hvSw07Zk +1JGsCWq+b1i8WcloadmQFtu5E6SFJYsb15NxNt95PJm+E/hbvfaJbSDj8J0b +jNKcnfBLejb3xUYymjcT7YzCdkLdW24jTWEyUqVWHYtldoKpMSaubSVjHOf0 +WOzP7XBwSwnXDUsy+vgfFyw/qQZRz9wDlKzJeJzDpa7dTg0ueQu+qLQh4ztZ +y3xxNTVoKIxMfeFIxjN3wrVdB1Vhs5LpptUDTHcfNHHXV4XnSl82e4aTUXz2 +dZEa5zbYpiwjq3SHjLXPLh6mPNsK2NYTV5lLRjXpbo2CvK3g4Jf0iVZARg9K +9VVK3FY4c286z7GYjMdSc5wWKFthSLlhy7kqMtKSBi6m1ShBmoqz6tR/ZJQU +n1baWrEF5rZlEitnyejiI/o+ok0BBjpxt9Av5vOfWRjoPVCA5qMztqELZEzg +Wo2SylCAtEqzEOISGdfrD7ZauinANjJLaR0bBf+4lxmb/ZQHL7Mjcq0iFJx3 +7w06pygPfb4mPH36FNxGaYuWy5WFeq4Fgg5QcIvLPcbcOVnIK8lTuWpAwcUH +Iawjx2Qh+MeqsZMxBZM7fYkiu2WBN6I6fmgvBYULFCM63siAcZLcn89eFBze +LpM7HCENjwqWPy0kU9AsOMH54hcJIBqF/jFPoSD/VcP7840SUPNpiifnAgVH +BWNrU7IkoFJ6WNc8g4LrD7soW+2RgNKs5gvZNynIctz6qxSdADmpiXomZRR0 ++htaRs8Qh3Ohm9Kzeim4c5h8z+SoKHAKJRdNv6HgW40dthGWopBUwdJgOEDB +g3Xv+l6riULCzNz41BAFPwuapXFMicApvz59g3EKPnxpbuQfKALH3K5PfFuk +IOXdTPXXUGFw2aWAFGl9TLAzSTyeLwSrfZx8rbL6KJ/48ZphohDkeM8Mmivo +o2dq5IK+rxCMJ9VGuCjr4+RoT0mlqhAca9/7MFJTHxttazpu0gXhvFWM9CNj +fZT6ZD6g1ScAdU5vVrSD9NFCgLuORZ0f9n+r62gI0cfSZ69Lu4T4gSUqJ2tX +qD7eOTR29PTCJjC+eVjbLlIfWYLhllLGJuj5sC7w+Bl9fP/hk3FnFx9Mem0f +rLimjyNNAbEke16QOHK2dnuzPv6s0GLhuswNaWs+Oikt+ngEZt9/DOQG1gzj +iq9P9fHoLtaAqd3cMElnL85p18fmwLBLhYtcUMeSkCXYy6xnB0fsJU8ucLkc +F/H7iz5mNO4d5yVzQlZ9pE7jRioqxXy+OSzAATxWzhUEPiqGV62UfJ9lh7gR +knoEPxUrrN3dlLrZwY99UXGnMBX7obRM4SI76O4N35wnTcXM58m3dTexw9vR +Y78SNaj4c/DL3XTR9SDMHVhh6UjFWpu9fgkmrFBgdDJq1pmKwmMf+XOVWUHz +ZJpRphsVWX+wDU1zsYLVbPmbgQNUdFY5VS/ych0kvV34ezCQilyaGcO37dfB +Yl6sYVQ8FfVn27/uCmKB95TM3qISKqZf5dDZnbRK8wsruGVWRsVc8SdHY21X +ab/LarynyqmYOtPswyW3ShOUH/ijQafi7bfKD7kfr9AsOKUkHzdTMd/9/pWa +xWVaQ1/Rod43VNwiQ44xPrVEM+d7pB4+QEUX6y+Hd1sv0QZM2n+LDVKRqho2 +mCq/RJuv+57sPsK8v9LHuF///aWp5+588G2SikP7ixeERP7SGt4bhKdOU3HB +emLWfHKRZr7ZFnbMUrGKTuL6r3GR5nM27HXoAhWPxKl+T/VbpM03J90QXWTW +b+o69oa6SDu9dO1g3RIVN7DS7b2EFmn82sVq+1epmM33773Gtz+07CN1C2tr +zPOzqTy7mv7Q/gee7AgT "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.09181948350349485}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -3251,19 +8748,19 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.09181948350349485}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3277,135 +8774,173 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK +1:eJwV1nk4VP8XB3ARIWTJNvYlESrbGDNmzkFZI9m3kLKmUJYshUKKFFq0yV4i +WWeyhKi+SBKKIomShChKlvzm99c8r+dz595z7pz3eUbOK8jGm5WFheXBOhaW +/3/+Hm5/qphSQJNPZC0tkLOi9WWLRRoMnAaHAjnRtnxVQOFXXmIDGTCa6ZSW +lE+BcOv7/WwDeSDDO+1gm28BAjOiGX/7K8FTbOXHjzxX+NhgFTTf3wJnaz6I +X8s9DMaKkx/m+nvgII3nidWtaPjbr3tltn8U6nYlZu06mwKtRncLXuf9guqT +a08arG6B5MfacS+1VTj1yi3HMKsANgd63N9gxIY3xb2vZwTdhwwN43ore070 +uzeyq4OnHHYMOptQ/TjRbvSXU7ZIOXQmHOlVjebEnLF1pYGy5cAxcPk7Zy4n +nn3dxraoVQ7Rp8YkWqc4kS1rSLXdpRwOvYiL0U3gQupz/UWbu+VA9K6nylZx +I9c3C66flAp4l7WzeY6fFwML1vrf2FTCjd6STeFbeLHQw+tsv2sluPBt9VjS +48UfQ+ufvD5UCUNnpP6xHuTFdm1S+8PwShg5yq2/uYYXWV/UfxO4UQkTuz4z +iM58mPZkyD3wYyUszl57GJ27CU3YlJsDDlVBrarQ2lrNJuw/U24fGVgFUT5p +Vgkdm3B6PnNnXGgVrAwmTKf+2oRx7AoPwxOqIG7skfAreX508z19m6OgChK6 +Cm1HQvkxNfNfc/mnKkgpiH3FKi6AxwnLFAXHajDX9hcUVhBAe2xzFXGvBs6n +NvZb1QWQzlH8bp13NSSMbRm0MBDAgjzl70+OVUOMfOf4ZX8BvGjRaDx+oRqO +5oj9U6oTwFL+eyuNLdWw71aFmoWrIPqGqVHvK9UAv9rNoP3eghhY125xV60G +uuoTKoOCBNG+/OztW5o1YD7oSLp8RhD7dyFnMK0GDAn/jD6UCKJxW+5UrX0N +aGeZuwatCKLte7z07nQNiF4eO5d5Wwj7WuzVjftrQEy1JmGxSAhDUh/3zA/W +AKElKXZ/uRDiT5OaWyM1ID2rEra1VQj54kc0Br7VwJY9wZ71E0JovZzH/W+5 +BrTWrxLHtDajQnP+PnYZOuwNFfms2bEZH4xDDpsnHaw3Tgxf692ME2K+uu8P +0sEmr/bdytBmbIpbFbzvSweHbrdXz38wrw/A6zpBdNivll/nIiyMCPt+LJ+k +w+HPO9JPewpj5qsxHeMbdDhrZ0br+S2Mdr6OJ968pAOhuovAuk4Eo2ndJJHX +dCgTsvujsVEEsx2alPb20eFtj3t5uowITmTaXCx+TwfFfaHy+0xFsOXyyUqW +r3RosbzD0X1dBB1o3qZ6/5j1PFAcW8sXQc/njwNWWRgwyXO/aUeZCJZntr6s +ZWOAQGf1iYstInhRhOQqwcUAT/OOSavvzO/ft6uLF2LAqvFC10t9UbT7tv/F +kBIDLhVFlawai2JkZljeFhUGKHKwJKvvE8VNbTdf+6gyYM8zboML3qK4mxRF +69nBgBtGslV70kRxS45qnCWJAdvzCy/GZImiwYjJbmcyA1pYVQNL80RRc7ko +aL8+A7490dnCwxDFc5xCy1bIABJaXHvxURQzw1uk+k0Y0Hmn+/jyN1GsnvxL +LTJj1rtmb606L4oTWwteH7FgwNlGT64UTjF0jq90GbdiwFv98GhzDTF0uq2r +fNKeAcf1cj3aT4th2JDbAaMDDDDP4Zu3SBVDDcVk7gQvBshviEnuuiKGWgvn +yY0HGdDd51DRe08MTXLf68j4MOsP5mEb7hJDuStX2jMDGMDeH3nNc0AMF9bt +f5dzmAFD1K+qY5/EkNzScfJuIANSNrbYTcyL4d/26pTcowyYKIoo+kkQR4ci +iRnTYwxo4v1CDlMUx0CS6xv54wy4Gmrz6o+6OCqcaPT4zfRuQ/XFFRTHiawD +3ufDGCBZfCM11lwcu8Y9P5uHM2B+E6ccq504PmCw8rFHMCDvw6jZBl9xPEVv +9/M5wYDIXdbD54LFscG59TZvJAOsSx4f44kSRy0fzsQyptdOZN0UuCCO7wzI +xz5EMd/XR/adl68yz835Yw5HM6DM+PhTkRxxbFVZj7+YdttsNS1RJY5h0tr/ +fsQwQCu6Pj67QRz9vh9ZOXSSAdyjyiJyz8VxZam5oZfpUdOr9/NfiSMtVtNA +/xQDah+ygdI7cVTd0ZGSzfQlkZDee6PiGLMrI3uJab+Tw76qU+J4LPJatHUs +A0Qsai/tXBPHAzlZt74xPV2htKWKk4CZYXWf1eIY8FTscq2OIAFpat5r/kzf +il1n9UiCgCsfK2ZymD4+fnSUvIWA12Uaql8zbW45FP54OwHfT+barjAtX222 +EUkEpJSfeSkbz4C/BMadFgMCNpgnKALT3fGK2rstCHh1rc3Fkem7E+lt/9kR +cDk68pg/06f2rrmZuxNwtKfpSBjTDvTAuU5fAj6IarOKZlpd6n3i3hACbrBo +Ef2/1yeYEHqiCBgRNdwRyvTQZHWZXQIB9W5ZB/gxXbVP3qj/AgEXb1st2jN9 +/tHFfudrBAx4xh9BZfqAzOrhoRwCypS9npBmmpQUwOJxn4BUk669S8x++Kf7 +L3+qIqDg691lr5j+artb5dBjAm4cjOS4w3RjXeXj8ecEFDIoc/Fj+qqcrI1/ +NwGTVFQeqDJ9JPnC+Pd3BGxl1WL5//ve9WMp6ugYASfjRBxymI40vbztyRQB +q2p/WNgyXZar/l7oN7Pfn00JLEyL2Xnq1XJKYCuDrc2M+XtaPvg7sVFQgpmX +wbdfmPNwmiMzy11CAsf5j2vEMD316Nkftu0S6MfZ3HONOU9ygh53HXQlcKfK +pJQU0w6HFx2KUQJ3bX/8+BZz/pqlVOlWthL43G7/+hTmvGaevhR6/YQEVtye +m1JgznvboIriVLwEpu9tloxh5mFFu7WXliKB280CqrqYefH5uqD5+TbzeafS +pA8y80Te4zq3vVUCs26T1M2YeQwqnM+J75TAxsvzfaEhDCj4d8G6740ECgST +f98IZgBfRfPDyAkJ5Bb6WPaWmedRYaWjT3kl8WyrDYWHmX/RoCYpUVFJ/OQr ++nMjcz/saXN66S8riZOhqToc/gygR6WobdKSRO4qauAkc5+c/zg76ewkiWmW +hA8hzP3TRDp/o/SAJNoIVlGNmftpPl3BfC1AEpVtrtKEPRngvsuhuOCkJBbe +3aaav58BmsX1vj/yJDGfHrRwyokBvqz2ooalzHMVnWxlR2YeXGeeX66RRFN7 +q+VO5v7j4JNTIrdJYmZ8zhC7LQPeH0v6nDAtiZ3mcmdIlgyI1993gECSQt6B +7jv5zP1r6p79U9dQCgXM7fe9oTH7j/t+xn6PFG7q7PjDQmXevzWx6JKnFEbz +rtMw1mPAI/O67xznpFCaw6kqWYMBs04K4b/eSeFKlP38rCwDGFHBGwQ+S2GP +NF5olWbm59bjrO0zUri3d2LfJUkG8Iw41vuzSuP+4sBAMTEGbPVNZRnZJo1S +q8GmY3zM/sMWzndGS+MVdZ5qn2U6bLlmKDmZKI2xl1seflikM+fp4oMNl6Tx +lvHUpr2/6RC1otJtWCCNOsHreeTm6HDljLtwbac0bkxNdzo9TofO9P/uFErJ +YApb6zFqNx3IZderTzXJ4EBqY+TDO3TY1d+1OtMmg/W2o/oVt+hgxbLexKNH +Bvfk/Egou06HgzZH38EXGdzFI1J+M5MOxtFysXHssljF/bMNz9IhWOZ3voGq +LD61mah7dIQOT33vTLeGy+La1Q0nw3TpELg4F9fGK4flR0X7extrgBziIzIu +KIc8yrqCkXU1wDn5voRNTA4Nv1gsitNroHCw9S1NXg49IwbfWD2ogeHGK2o1 +RDm8ft3TPPFmDexN1BvI9ZBDjun5R8oRNaApGL8jukIOM+PmmnxUa+CvKv+w +ur08tj9hvLqXXA36JaU5V68q4L/sDaKXFKtgTtDc06FFEXvEQqtkHlXA51RP +h2MblFBo8kplrWg5mP2IMPtC3IqPk36dMxZ5AFMHOY9XxypjocSzSyxPipn/ +50VZz7aooLBpuLr3lSIQfKmUVv5jGxaztVOfPMsHyeSH1kSiGp7750Ganc6B +LFU9fiFfdfy9z5X9xeot6CAY6PxK347XOluviNzPArJky6Udb3dgssP+bKvo +y8DHlhd64PROjHp6YvsgbzpIx8voOytp4MncxBihBynAtcWNbvOfBv7xq2PN +t0qCAHEwL2nXwMIiKoupfhJ08MoPs3VqYPby0rdFlSRI/f2VvaZbA7X4DINP +sScBX9txe9H3GmjMFtYh+jgRBA+nzA9OaWDTzPXW2O2JIFlRp+ktqIm2Zj8n +1hMSYDtV/GHEfk0sn7+dNSJ4GqoU/JdZPTVReS4ujZf1NJC4a03SvDQx2NZS +zWQuHgz7nUYKfDWR6GhuMvIqHhxCsgR6QjSxNZdkXXwhHmILRUPVkjSxhVPK +IX1jPHTziuh9KtPEA6bue9L44+DYsGCrOYsWThZVKz6PjoG2526P77NqYZDK +G4vJAzEg/bCIwc2uhQa+v3rlTGOgI5Zc2sGlhSNEto8dm2NAXs7rirmQFg6b +nfqP7WE0vD5Y4WuupIWmEjMSnF+jYOe3vTzme7TQJ1Dn6WbvSPjxK9XeLEsL +972wuMx/LRyGBnIdbt/QwmkW13qV0+HQ8ZjuOHdLC+9qa8nYHgmHgrMjztdz +tdCrK+jEW6NwcJHQdv92XwuzTr0Iyp4Lg2eGgz7nHmvhRqm1QFXrMLiZrnKi +fVQLM6zl+/6KhYLJjuc3zNS1MTsrQju4PwScOEztundoIyNm7ePQ0xAI+NDO +66ipjc8Epta7VIZAWsrLuEO62lgIiWmJF0Lg7dc+n1gDbVT5fSwgZ1cIHMoZ +06yx10bu2+7ZgzXBcFpg3QvZU9rYKij/k2gaBI2/KMt/urRxsKPveI/LYcjt +ZHjZvtbG+WpGEAkOQ0KhVkdZrzY2nKiNoCscBjNH1eveA9p4NlgiYGkqAPrq +CLq9n7TRUrRjY05cAEzG/z1WNq+Ny/Z2v2xL/UGEnzF5iKCDdxybtk1v9oO/ +E5o2zZI6aLN5XE1nxReGnpTVSsjo4LW6VN3MMV/IPV6U3KOggw5j2VvTK31B +rf+KEqrr4OVvGo8z9vmCYXaolwTqoDrr+q13Mn3gqJrm+9feOmj9biknZKs3 +hP0hLHn46WA4wTfj9CZviGlhI8wE6ODmX4eUS/4cghSnN87cwTr40ir5t2Hb +IbiXcOKdYZQOBjre50kJOASjQ40DVWk6yPmltT2w6iA4XLDov8LQwZLBpc4F +ey/Y76T9R6FOB7OTBI72oxccUpASrWzQQbfNlf5dql5wvHbGoeuJDhbOvlNZ +WecFl76kv+Xo1EHB7PERu4cHoIM68CZihNlPIs/Yd94DQJ051OfMRcT7puvZ +gqs9QKTeJK9hIxF5VJQf1Kd7wMzZbcEyfEQc2cE/pBzkAdlysxu/CBJxdnze +zXebB/yzizYKliQiL+eLtZA8d2iqT69M2kFEJyFaTlHWfjA413ipyp6IxuF8 +PP23XIHgkOsu4kTEnlTiCdlTrvBTPkEt0oWIQ4plqskerpDXYNZG8yCid2DD ++kp5V2Cd7Vtr9yPiuYVP/wXed4FWh+9HR6KJGNvzk8O/yRl2K4pZ8uYR8WDO +Mb7ef45QPf1M7lABEUu+DU9TPzuCIuP477oiIp50j2FrbXeE9eav7viVEHFZ +VDJK4oojtAQl/WytJuLl/AwdNnVHoNXPX4v6j4h3ZeVEbh5wAKLN69GvU0Qc +VXte5/TBDookYhm0H0SM63KQ/fTMDoS/qKVemSOil+GwRHyZHcxHJOsY/SYi +3xQpYUOcHVTehuTsNSKW6j6fUFW0gx3fHqjbC+piYeB0zpNgW1COO3+iRVcX +ufjLArMINtBAKWTfQ9bFdUbC1tvX24D1n6aMN/q6qNH8VfTD9D44cXShdMJA +FzdtlP2d8GQftLl5fuLbo4uPv484L/vvAz89ormrpy5+dTf0ONpkDcU/P0nM +J+tiSdrflzf/WAGtbOXeyRRd1HnreuputxX0+IsSN6TpYsPhDsuPxVawNLLH +mpCpi8E+nrd73KzA/BUjAW/r4nPlqr2tTy1hsuTCdGqFLjKuds7cvbUHtnnr +NW15r4ucHc073A6bw0V5q6UzQ8z6mw+0vrMwh/mPXjqjw7r44cDRPZFq5tDo +klqSPaaLQxLFTVIzZmBj/fGa6LQuHrH7VrN4zAwiKYnBXCwkfLVEODd42hTa +BF7LTW8hoWcU66tTdcag/uqLm4UyCd89biGuZRtDRurSteJtJBTn2f/f7TPG +4LZBkc9nBwnbDVN+aFsaw4+V8KVhEgl/ZeTrtn3aDSITkr3dFiQkyQR2+fPv +Bu9Gv4TqEBJmWMW8eXvaCGaOTEbsDiXhuZLtQeN+RnBCKvDw23ASbuhKOCS8 +1wjOxwTZLEaTMOHR1FC3hBGUk8Nl9ZNIuP9ipU8d3RBW6GcaWm+Q0Ggmew/l +pwFkPMye72kl4dW5/kLhWARJD9mJg89JeCei36LHD6GQL29wvo2ESXs5Xe7b +IDw6Utgi0kVCqmunbqkSwgfV0ksuA8xz62cnvt4BUL5XqzY6RcKLk7V1s1Y0 +aMrpOzQnrIesePmvXC8FRvbIeYSL6eFU9UMFxgMKsPw94rxM0EOlwPMOUckU +MNy3wYpdVg8fznnynqdR4Pk6sq74Nj3cyTpo1l5Khk6vO1wGND08n8U7fjNd +D94rBpRd8tHDI/fuyhlG68JyN/2esL8e9vT0WpNddUHyJFv+jcN6eMA/8YoL +RRf2v7l1rSBYD5cq4koFV4gwkvgq7lGUHrresdRxiyXC13Ft25E0PfSi+3ts +v6AD8/fW/uxg6OF0DfdcwVMtGHcwzjlXq4dzFbF75Uq0YGD9BdOxej0MUZBd +rE/XgnpPwvWrzXpo28x+18JDC06L6ZBX2/WQK7duuXtZE/iTA2I6hvSw07Zk +1JGsCWq+b1i8WcloadmQFtu5E6SFJYsb15NxNt95PJm+E/hbvfaJbSDj8J0b +jNKcnfBLejb3xUYymjcT7YzCdkLdW24jTWEyUqVWHYtldoKpMSaubSVjHOf0 +WOzP7XBwSwnXDUsy+vgfFyw/qQZRz9wDlKzJeJzDpa7dTg0ueQu+qLQh4ztZ +y3xxNTVoKIxMfeFIxjN3wrVdB1Vhs5LpptUDTHcfNHHXV4XnSl82e4aTUXz2 +dZEa5zbYpiwjq3SHjLXPLh6mPNsK2NYTV5lLRjXpbo2CvK3g4Jf0iVZARg9K +9VVK3FY4c286z7GYjMdSc5wWKFthSLlhy7kqMtKSBi6m1ShBmoqz6tR/ZJQU +n1baWrEF5rZlEitnyejiI/o+ok0BBjpxt9Av5vOfWRjoPVCA5qMztqELZEzg +Wo2SylCAtEqzEOISGdfrD7ZauinANjJLaR0bBf+4lxmb/ZQHL7Mjcq0iFJx3 +7w06pygPfb4mPH36FNxGaYuWy5WFeq4Fgg5QcIvLPcbcOVnIK8lTuWpAwcUH +Iawjx2Qh+MeqsZMxBZM7fYkiu2WBN6I6fmgvBYULFCM63siAcZLcn89eFBze +LpM7HCENjwqWPy0kU9AsOMH54hcJIBqF/jFPoSD/VcP7840SUPNpiifnAgVH +BWNrU7IkoFJ6WNc8g4LrD7soW+2RgNKs5gvZNynIctz6qxSdADmpiXomZRR0 ++htaRs8Qh3Ohm9Kzeim4c5h8z+SoKHAKJRdNv6HgW40dthGWopBUwdJgOEDB +g3Xv+l6riULCzNz41BAFPwuapXFMicApvz59g3EKPnxpbuQfKALH3K5PfFuk +IOXdTPXXUGFw2aWAFGl9TLAzSTyeLwSrfZx8rbL6KJ/48ZphohDkeM8Mmivo +o2dq5IK+rxCMJ9VGuCjr4+RoT0mlqhAca9/7MFJTHxttazpu0gXhvFWM9CNj +fZT6ZD6g1ScAdU5vVrSD9NFCgLuORZ0f9n+r62gI0cfSZ69Lu4T4gSUqJ2tX +qD7eOTR29PTCJjC+eVjbLlIfWYLhllLGJuj5sC7w+Bl9fP/hk3FnFx9Mem0f +rLimjyNNAbEke16QOHK2dnuzPv6s0GLhuswNaWs+Oikt+ngEZt9/DOQG1gzj +iq9P9fHoLtaAqd3cMElnL85p18fmwLBLhYtcUMeSkCXYy6xnB0fsJU8ucLkc +F/H7iz5mNO4d5yVzQlZ9pE7jRioqxXy+OSzAATxWzhUEPiqGV62UfJ9lh7gR +knoEPxUrrN3dlLrZwY99UXGnMBX7obRM4SI76O4N35wnTcXM58m3dTexw9vR +Y78SNaj4c/DL3XTR9SDMHVhh6UjFWpu9fgkmrFBgdDJq1pmKwmMf+XOVWUHz +ZJpRphsVWX+wDU1zsYLVbPmbgQNUdFY5VS/ych0kvV34ezCQilyaGcO37dfB +Yl6sYVQ8FfVn27/uCmKB95TM3qISKqZf5dDZnbRK8wsruGVWRsVc8SdHY21X +ab/LarynyqmYOtPswyW3ShOUH/ijQafi7bfKD7kfr9AsOKUkHzdTMd/9/pWa +xWVaQ1/Rod43VNwiQ44xPrVEM+d7pB4+QEUX6y+Hd1sv0QZM2n+LDVKRqho2 +mCq/RJuv+57sPsK8v9LHuF///aWp5+588G2SikP7ixeERP7SGt4bhKdOU3HB +emLWfHKRZr7ZFnbMUrGKTuL6r3GR5nM27HXoAhWPxKl+T/VbpM03J90QXWTW +b+o69oa6SDu9dO1g3RIVN7DS7b2EFmn82sVq+1epmM33773Gtz+07CN1C2tr +zPOzqTy7mv7Q/gee7AgT "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.09181948350349485}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3416,6 +8951,7 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3443,7 +8979,8 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.09181948350349485}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3451,9 +8988,8 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913298974454536`*^9}, - CellLabel-> - "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] + CellChangeTimes->{3.9913298974454536`*^9, 3.993851632397201*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"ea4d35d6-381a-419c-b439-d59dd3029774"] }, Open ]], Cell[CellGroupData[{ @@ -3465,7 +9001,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -3483,8 +9021,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -3506,66 +9044,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + "In[100]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 173, 129, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298974999084`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.171978322139785`*^-131\\\", \ +RowBox[{\\\"680237402890783289504507\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"133\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 25, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993851632484768*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +In[100]:=",ExpressionUUID->"149cf2fe-eae2-4801-bcb3-b2eb45e699ca"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 130, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897510906*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.135395156665936`*^-133\\\", \ +RowBox[{\\\"296311412699225200908163\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"137\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 26, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993851632493431*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +In[100]:=",ExpressionUUID->"54f01d22-5503-4f4a-bace-b9276352856c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 131, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298975189075`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.098998596328906`*^-135\\\", \ +RowBox[{\\\"133014193160682192687674\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"141\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 100, 27, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.9938516325022306`*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +In[100]:=",ExpressionUUID->"34d0331f-a4b5-42a8-97c0-03ba1e27ea02"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897526905*^9}, +during this calculation.\"", 2, 100, 28, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993851632509767*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +In[100]:=",ExpressionUUID->"fa3fc096-6b9f-4dc0-b009-fe8caf39f3f3"], -Cell[BoxData["9.77956849963325`"], "Output", - CellChangeTimes->{3.991329904262455*^9}, +Cell[BoxData["8.27200183656922`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.993851695622013*^9}, CellLabel-> - "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] + "Out[100]=",ExpressionUUID->"84f424d8-3388-4850-be3b-8bad84df02fd"] }, Open ]], Cell[CellGroupData[{ @@ -3632,68 +9177,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489049186344`*^9, - 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ -a57fd4094f56"], + CellChangeTimes->{{3.9918489049186344`*^9, 3.991848908595253*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904300501*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.664873378603957`*^-223\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 29, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.9938516956942167`*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +In[101]:=",ExpressionUUID->"75732900-be50-4397-9314-c35dd5c4c08d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 134, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904310505*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.57687906617643`*^-229\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 30, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993851695702705*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +In[101]:=",ExpressionUUID->"bea9f9c1-1ae0-4b90-9eb6-358c2dabd7b0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 135, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043185062`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.27256427784428`*^-235\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 31, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993851695710178*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +In[101]:=",ExpressionUUID->"7845a033-725f-4145-918f-19194cda65aa"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043256874`*^9}, +during this calculation.\"", 2, 101, 32, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993851695716691*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +In[101]:=",ExpressionUUID->"e13c5120-a3f7-446e-b288-bedcba2f9cee"], -Cell[BoxData["0.1491428555515254`"], "Output", - CellChangeTimes->{3.9913299110465336`*^9}, +Cell[BoxData["0.00584320957135874`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.993851701862406*^9}, CellLabel-> - "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] + "Out[101]=",ExpressionUUID->"af2d64e6-b498-465b-88fa-0769dd4fb197"] }, Open ]], Cell[CellGroupData[{ @@ -3714,8 +9266,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3760,68 +9311,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489121661835`*^9, - 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ -47c1a485c608"], + CellChangeTimes->{{3.9918489121661835`*^9, 3.9918489145264854`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911081766*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.664873378603957`*^-223\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 33, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993851701901208*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +In[102]:=",ExpressionUUID->"3b671672-9c71-48df-96ed-1993eaa5e841"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 138, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911090769*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.57687906617643`*^-229\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 34, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993851701909793*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +In[102]:=",ExpressionUUID->"61b24462-84d3-4337-b3cb-12f49e64e086"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 139, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911098768*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.27256427784428`*^-235\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 35, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993851701917913*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +In[102]:=",ExpressionUUID->"2603617b-c09f-495b-8dcc-96f372b8d7b4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299111067944`*^9}, +during this calculation.\"", 2, 102, 36, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993851701926236*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +In[102]:=",ExpressionUUID->"de0c0512-25a0-4be4-9c6f-cecd358be684"], -Cell[BoxData["6.5928699937564845`"], "Output", - CellChangeTimes->{3.9913299163114815`*^9}, +Cell[BoxData["16.15918454566396`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.993851707800179*^9}, CellLabel-> - "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] + "Out[102]=",ExpressionUUID->"598bc3e5-6c95-4f53-a016-719e7cd009a4"] }, Open ]], Cell[CellGroupData[{ @@ -3842,8 +9400,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3888,68 +9445,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489192162857`*^9, - 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ -0d79e6ed8953"], + CellChangeTimes->{{3.9918489192162857`*^9, 3.991848922582632*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163444805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.664873378603957`*^-223\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 37, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993851707846187*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +In[103]:=",ExpressionUUID->"9a3ab11b-07d3-445f-b979-ea717b0ebbd7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 142, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916354479*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.57687906617643`*^-229\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 38, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993851707855258*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +In[103]:=",ExpressionUUID->"3c906438-8a12-409d-90eb-3ec1461b9dd1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 143, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163634796`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.27256427784428`*^-235\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 39, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.9938517078636017`*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +In[103]:=",ExpressionUUID->"df88fb94-68ae-4c8a-af3d-32473d4f425f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916371479*^9}, +during this calculation.\"", 2, 103, 40, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993851707871689*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +In[103]:=",ExpressionUUID->"e5e26c7c-9bd8-48ab-801d-8ae9b7e53098"], -Cell[BoxData["16.916908616104454`"], "Output", - CellChangeTimes->{3.9913299193276234`*^9}, +Cell[BoxData["2.1797786950852003`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.993851711576948*^9}, CellLabel-> - "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] + "Out[103]=",ExpressionUUID->"d3ac165f-f98d-489b-9b40-7010af0c1519"] }, Open ]], Cell[CellGroupData[{ @@ -3958,22 +9522,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991848926103155*^9, - 3.9918489295815735`*^9}},ExpressionUUID->"8c5df121-e0b9-a146-bc34-\ -b231aa8028b9"], - -Cell[BoxData["0.01412227604937243`"], "Output", - CellChangeTimes->{3.99132991935894*^9}, + CellChangeTimes->{{3.991848926103155*^9, 3.9918489295815735`*^9}}, CellLabel-> - "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] + "In[104]:=",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], + +Cell[BoxData["0.0009845449314684824`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.993851711607944*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"3e4de11d-7baa-480d-938d-33fccfb1ef05"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9}, - 3.991924914130762*^9},ExpressionUUID->"831a27fc-89ff-e041-97f1-\ -0ec5d19a7879"], + 3.991924914130762*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ @@ -3996,12 +9561,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + "In[106]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.9913299193849545`*^9}, +Cell[BoxData["8.248858237621514`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.993851711619609*^9}, CellLabel-> - "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] + "Out[106]=",ExpressionUUID->"f8cea9ed-6fe3-4b4d-915b-a91c4120aeba"] }, Open ]], Cell[CellGroupData[{ @@ -4011,12 +9576,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + "In[107]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913299194207077`*^9}, +Cell[BoxData["0.7657486652755594`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.993851711627015*^9}, CellLabel-> - "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] + "Out[107]=",ExpressionUUID->"ae9a539c-2c59-4afc-b4c2-10f7b7d2085e"] }, Open ]], Cell[CellGroupData[{ @@ -4026,12 +9591,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + "In[108]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.9913299194738407`*^9}, +Cell[BoxData["6.316552185505977`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.9938517116343727`*^9}, CellLabel-> - "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] + "Out[108]=",ExpressionUUID->"2ba59552-19c9-4d71-8d23-36001991e5cb"] }, Open ]], Cell[CellGroupData[{ @@ -4221,12 +9786,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + "In[109]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[BoxData["0.04472011299838893`"], "Output", - CellChangeTimes->{3.991329919501911*^9}, +Cell[BoxData["0.013724860724591748`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.993851711644678*^9}, CellLabel-> - "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] + "Out[109]=",ExpressionUUID->"4436ba06-f2da-426b-b674-ab23ffde3599"] }, Open ]], Cell[CellGroupData[{ @@ -4240,12 +9805,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + "In[110]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329919596855*^9}, +Cell[BoxData["7.5646870781955755`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.993851711743431*^9}, CellLabel-> - "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] + "Out[110]=",ExpressionUUID->"4bcb1c3a-418d-441c-9294-5a249a10edce"] }, Open ]], Cell[CellGroupData[{ @@ -4437,12 +10002,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + "In[111]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[BoxData["0.014190600885170185`"], "Output", - CellChangeTimes->{3.9913299196126003`*^9}, +Cell[BoxData["0.1295444906954249`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.9938517117574577`*^9}, CellLabel-> - "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] + "Out[111]=",ExpressionUUID->"0ed310bb-5230-45d6-b729-49c6a9f821ec"] }, Open ]], Cell[CellGroupData[{ @@ -4456,12 +10021,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + "In[112]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[BoxData["7.439513700547701`"], "Output", - CellChangeTimes->{3.9913299197036095`*^9}, +Cell[BoxData["2.4622688263683012`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.993851711847207*^9}, CellLabel-> - "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] + "Out[112]=",ExpressionUUID->"c76ce415-9dcd-4b6b-b238-b831a3535f3c"] }, Open ]], Cell[CellGroupData[{ @@ -4554,12 +10119,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + "In[113]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913299197165985`*^9}, +Cell[BoxData["0.12678436313657984`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.99385171185849*^9}, CellLabel-> - "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] + "Out[113]=",ExpressionUUID->"dd605966-8f18-4378-a98d-901b992a3325"] }, Open ]], Cell[CellGroupData[{ @@ -4649,12 +10214,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + "In[114]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991329919739599*^9}, +Cell[BoxData["0.8732156368634202`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.9938517118692217`*^9}, CellLabel-> - "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] + "Out[114]=",ExpressionUUID->"aad12a79-3359-44f0-b587-cd1f4f57228e"] }, Open ]], Cell[CellGroupData[{ @@ -4777,12 +10342,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + "In[115]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913299197646008`*^9}, +Cell[BoxData["0.1107100884006317`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.99385171188113*^9}, CellLabel-> - "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] + "Out[115]=",ExpressionUUID->"01746ed0-13d5-45cd-8f0c-177eecac67db"] }, Open ]], Cell[CellGroupData[{ @@ -4797,7 +10362,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -4819,8 +10386,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4844,68 +10410,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848964116934*^9},ExpressionUUID->"220bdeed-2e17-e94c-a7b0-\ -3e066daf15d7"], + CellChangeTimes->{3.991848964116934*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 145, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919788595*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.992580916349877`*^-200\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 41, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993851711896328*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +In[116]:=",ExpressionUUID->"1c93c37c-17b0-469c-bbc2-b1502fbcf5b9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 146, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299197985992`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1019966023201163`*^-204\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 42, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993851711902438*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +In[116]:=",ExpressionUUID->"6a81252a-1044-4f80-9f24-da9b07f8cce2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 192, 147, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299198065968`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.0580239781997585`*^-209\\\", \ +RowBox[{\\\"668859810497440244092067\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"70\\\", \\\"\[RightSkeleton]\\\"}], \\\"4374400000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 43, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993851711908064*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +In[116]:=",ExpressionUUID->"f5555881-ecbb-4adf-aa61-b7edb46fa63f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919814598*^9}, +during this calculation.\"", 2, 116, 44, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993851711915484*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +In[116]:=",ExpressionUUID->"4a3a18ec-204f-45b5-9cee-ad5d7d4f13e8"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329923627493*^9}, +Cell[BoxData["7.5646870781955835`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.993851715893755*^9}, CellLabel-> - "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] + "Out[116]=",ExpressionUUID->"77602545-9d22-4f23-b6d5-0130738661e7"] }, Open ]], Cell[CellGroupData[{ @@ -4920,7 +10490,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -4942,8 +10514,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -4967,68 +10538,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918489685110855`*^9},ExpressionUUID->"b8791a07-33fe-8c4f-9c59-\ -dd23af9a4471"], + CellChangeTimes->{3.9918489685110855`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 149, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236609*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.992580916349877`*^-200\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 45, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.993851715937365*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +In[117]:=",ExpressionUUID->"d9f6774b-3c83-463d-8b73-506f953adc45"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 150, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329923669897*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1019966023201163`*^-204\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 46, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9938517159442663`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +In[117]:=",ExpressionUUID->"151557d5-70f6-4b64-81ea-903ddeb4b099"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 193, 151, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236779003`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.0580239781997585`*^-209\\\", \ +RowBox[{\\\"668859810497440244092067\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"70\\\", \\\"\[RightSkeleton]\\\"}], \\\"4374400000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 117, 47, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.993851715951089*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +In[117]:=",ExpressionUUID->"e2b3e5ea-6efb-4f86-b495-c07f9ce7aa94"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236858997`*^9}, +during this calculation.\"", 2, 117, 48, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9938517159580383`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +In[117]:=",ExpressionUUID->"f0b1d619-072d-4041-b5bd-2e7d9ee4b32c"], -Cell[BoxData["7.439513700547696`"], "Output", - CellChangeTimes->{3.9913299274564743`*^9}, +Cell[BoxData["2.4622688263683026`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.993851719769225*^9}, CellLabel-> - "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] + "Out[117]=",ExpressionUUID->"e2dfdfbf-ba48-4fe5-a293-1bae857001db"] }, Open ]], Cell[CellGroupData[{ @@ -5086,93 +10661,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848973885317*^9},ExpressionUUID->"3fe6e7f1-b44a-234f-af77-\ -3cf1fdaf28d9"], + CellChangeTimes->{3.991848973885317*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VdsbB/CTpDKUochUcgyZIsecWq85ZYjbgEqGc3blypyEaKJbhtD8 +i46E0EGUeSiX0sWNkCsRGY72MZ8jUspv+WM/+/k8a+13f9e7nrW2evk7M/go +FMpX/Cy/A99tVy1re7dbs6NG03qUh3ZPZup7WbKQAm+Ef9kDTINbSpbVyGO9 +Z4IV9n76vwLCtNfIxkj7jSV2UVh0/SrLFqRybX+hBfa1N5teRee9RzrbXu8x +x65oC3y4qPsBXbdOSAFsTk9T5LmqbmSikBu/G1tmhHpkzqIXocVNhqbY+6Yi +jYNb+tFZzb5kY+zaRY5QWN4XVCgyl2qA3XVRKqLUbwgxV9NdaNiTApacWd0R +NBKv2qCNLRAf4EqbZyMxWbMBDezNYmlvA6u+ojsmRSxVbAfZuexJi3EkF3v3 +0GZsIl1RUmvNJLq3sE5PGjta2THmz5YpxEjor5PA7pbq3BGSN4N+y92YXI1N +d/M5dTOei+LL/BNWYE+nUh4V+/HQYiGr9webh9YoaonO6H5DfAEofhz7Fr3e +RnTjHMrQujs+jK3wxDVae34O6eo7/urFNtKMnTxd9R1tjR3WbsE+adDfwrFY +RPn2rz9mY8+GneEXVPmFRjWhJhX7QpWQqdqa3+hPY2WnFOx7YPT0RMsSEntA +ux6JTc96axmUtwLMVePN7LHz3twcuCjLB1rNl3IAe3rUPTI5ng9ajKZf0rAj +1b89f+a3EqQTDSjSy3kLt1KndFfBcbusN/0jPNTTNl77+/Eq2CkfW9SGrcAt +c1u3UQDshSfs6rBZeg4pWvMCUFtz8PYj7IaK8BW+VWvAV6bN1x37W31H/1cL +YRArPWf0zzAPidsJi0bUCoOgS8K559g6nZYgYiwCFEQcS8P2GS5J37F9HUwq +hooEYAfwtejsEhaF52fPrBfDHlEsmImZEwOPsaMPzYZwf4imta00cegUTRJR +weZ7yt66KVAcylzebhHEVqBtcc4bE4dxRzet94M85GaRVPxuQAIM5WIm3LBb +vYOCpZo3Quo7HYFjX3jo85PEOI81ktDcNv1kJ/b4WN7jXCtJYLH4J6SxBUOG +Ona+kgRm5i7PDwM8ZHnlgJ5HiRTQXtzg2mBXZhp8y2FKw8u4mhrZfh7KHPkR +ahIiD7YX4rZG9fLQnoNXPwfny8PTHCGDA9jjDRLW+Wx5uCDt/0MNWy9Tc6OC +62Yg/5xP6fyE++nl/nzV7i1w9HjJShVs7tTA2a+XFWCux5qs+MhDEqctXzy3 +V4TKQAo3q4uH2JmCJ/f7KIJRvfL6IOzy3jbZiVhFqB5b6t2FfdTu2GWVV4og +1zR1vfMDzqcR6nxflwrzjnE6vzvx/zlPpqOklODlHrNc8w4eOnBCSGvvF2U4 +tXToalIrD6HQg7qHfymD7XQV5QC2egzTkC6tAmfYvdulsCmPaeZRTirANQ3O +TX3HQ/mfjxwurlMBe5WuTZn/4vN5iHVRJkMVurdUjGY243yW9l0cLzWwKxa6 +5NfIQ7KKN6LjhjVBzz0zh1rLQ9XXZ9UW+LRA0vdF/781OD/PtZPYqgV8AhOv +zmI/bFBSM3fXgu1bRS41VfOQ4onK9u//aYFezAWKbxXOxxpRJpq3w45d0j8e +lvOQvOxmQsFVB7o5dWavi3lIMytE+CfShYx2IRfJbB7yol/+puWgC8yFVfnF +Wfh8UVM+exzVhfiU4EoH7JUZhc/ehOnC9XWff8dk4vPxkHMgpUgXqNV07ZkM +fP/d80hTo9LAyXTBpJKJ9yPObruLgB6cZP84InWfhx4FKe0vadEHz0/wmRLH +Q22hyPBKljF8fXvRofckD211/+BwzHcXuAMltdmchxhLpQXy5wDEZIrmYmV5 +SGqsfLWUlzlkSfb8tWOCi0Jopr0p6pZwx0tYvK6Wi7wmFt9KcKwgIJJdnpLI +RfnmwauZrTZg06oxUHyYizJnfepYt2zhiqNG7ilFLvputunfhuh9YKHmr9vI +nkF9lJUzXzztYfdU0/EqfO/5yfknXaQ6Qk6E2XBV4AwqOPX21e2Y/eBWZEnV +ps2gcJ70vMYpJwjvt13y+z6Nvu21PtR43BmiPximl5RPI+MjyWYjTn+AXbVq +CRE+jdql03waaAdgh8v49QaYRjLZl6tzth2E23K7DkuunEblA+p2DiKHoF35 +9f/mbk2hzZ3TJ0InDsF4baa/3rYpRLudzHo8cBjK1g11yJRMojR+3vaUehf4 +TEoXVtlNolIz7Z6YCleQlvtj0qx/At0zvC62mOcGaRVyVvVnJ1Drp6xYWvwR +WLg9WcYvO4FK7FOVAi4chWory49NleNo5vQfFD/6MVDUNZEyYYyjb9ZqJyct +3MGwc3IhfOM4ypn4+D3Y4DioFNYplNaPIZdHWd7HhD3ANfIKYyliDD0v3nd8 +5VUPOHeuUcGVNoaMZdsXri14wE1XgzT3WQ6iDpzoeX/KE06FeibuquKgYaE/ +HVOHPMHhy4bR85c4qC3RwdvmoBckni/556wzB90KYwqdafOCM/I+z7qpHFRd +u7TgbesN2/Pa7e78JNH6o3CVVukN6Yl3QxZ6SKSwobFVrtobNJW64kOxdVrs +NwnUeoP23Y1LvI8kcjY9kttd5w0XM/83M9VNoltyoc3n//EGe0rXuvEuEsn0 +PV3/ttsbhtQ61L+1k0jJXere0XlvmIoqn9zbTCJjj8mcGD06COaaveevIVH2 +/elgBwM6nD3wiMmsJtGGDu5uKSM6oPq0ahPsSav5zpyddHj6028wsIrE9w1l +RYs5HZaoF/uGKki0bl7MVdyJDptjOpO7Skk0nKC/lnmaDj6ld+bmnpHIqdGw +84Q/HQp3Xrr/ALuWYsLUCaTDmUbpOMC+H7xb/+8QOiQ/c3CLKySRg6uN50gE +Hfg+fcpRKiBRhZJrhcZ1OiyoDwoQT0mUWBV5qjybDjMyZ/6hZpPotO5d47Ac +OjAbjXo7skhkl1u01iiPDuqVmSZXsAXvsnPL8umw4X1oz0gmiWKC9nNKX9Dh +nq1INusxiSLVlP4s+ZsOwZP2p/c8IpHP3Wbf4s90SDnpWlueSiLbdWzToAE6 +1O5stA7C3hZDEdEdxPYdldHEZgfp5xeN0CFaGLLTH5DI04E58WycDmvU3WwT +/kcil1XBfoU/cL1c/7qQeySyCZYJYEkyIEH4e3jkLRL9zYzdm7KJAbMMOUcT +bNMWrlKYDAN0hBmR32/i/Vdu/mixmQEigfTBM9jS/0VYfFJmQFIPtTckhURj +Jn2SgvoMUKSPxF5OItENvvSaE38wgDntWjUUj9evLXzP/iADjlNTXrCwrxwJ +C6IdZkC73rxAKHbYi/2qS24MkBrZU7YW25NYkXzHiwEwL2qtH0ciWpMX/XUg +A36aEHJp10j0X7KyEDUJ5/nNzC+MJVEBEjn5NZkB3bFmFbHYVyZmG/JvMmBD +QqK4O7aubUOU0V0GyD/RKBDBTqR4c+0fMsBfIvRaQAyJrP3TP4axGJDZ7tNm +eYVE8vJ/GewuYEAI/4dSBezZJv+bK58xwGdonLN4mUQZKsg+8TkDqOoqpqXY +v/r6Xj2uZADX8e9Lmtgv7GRz3r1lwOGnVemql0gU94Nv1a0mBjRorvdag+2V +w/F0bWGAsql4IHmRRKL8lbLDrQw4HaQaxsL2rXK5sdDFAAfNZHUDbKr6nVCl +EQZ8PxKm4HKBRD/+O99BsvH4Ylv1Luy2GIZO4VcGJL/syaZiR33R4xiPM2CN +IB99OppEPfc6jjnycL/kMy4lYKesFrMKX0HAYJ2JU1cUiaq5fUdCVhJg0fbQ +rhZ7tC8vyG8VAVf6OnOysU1fWKZ7rSVgm1vZ5TBstkfYz71iBOjHu9QrYIva +WYlbSRCgYen4Wgh7p6G4GtpIgFXVpm3z50mUJMI6RJMmYHK3kmgr9s7K/iLZ +rQT8NbHF5zI2kcV6u5FKQBm3IChweX7Suf71ygScOirWexybTUiI8KsRMPdk +//tdy+MSNifHdXB+iSqr35EkqvwtEc3WJWCWNnpgCnuEHLg9oEeAqcVowwC2 +yavw+k4jAqxPezc2YA/7FmyuAQIWY+0PJWOvc4nQLzMnQK9axjcG29hij12R +JV6fU/XgOexE6cFzWXsIsG+O5Hpjl/MXJjH3EpDZ+CDOFXtoKuLJfTvcP+cb +MY7YRm82fkjYT0CO6ewDU2yvosGxq84EBD5jlNOwE1IL+S4dICCh56m+BvZg +kK1OqAsBrDOlzrLYIu6SNgFuBBDz4VyJ5Xq2Q8d8jhKg5rSBJ7z8/Zbzce4e +BIzmvpakLOcR3Jvh4oXnl/YZ/4jA9b5JVjjTCdhS2lQziy3yZajVjiCgqyA+ +YwrbqOUZ2/okATNZ1K8cbK+y87/AhwDb9BuJbOyEjL0bdvoS8CKj7fYgdnmC +lIa+H+5nEfvX5+X6YcNm2gEEFLS+f/MJW5he5KIWREDUipTpbmxDxyh/aghe +v61qRNdyfZN9sfKhBBTmJROd2PHKm9KkwgjoV3lf3I5dKjryXCycgOmXI8ff +Y3/5WdQkFEmA89nW023L9UejvqyKImClQ2JvK7ZB+77vS9EEMC0VWcv+P4IS +H7o= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5186,105 +10762,106 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - +1:eJwV1Hk4VdsbB/CTpDKUochUcgyZIsecWq85ZYjbgEqGc3blypyEaKJbhtD8 +i46E0EGUeSiX0sWNkCsRGY72MZ8jUspv+WM/+/k8a+13f9e7nrW2evk7M/go +FMpX/Cy/A99tVy1re7dbs6NG03qUh3ZPZup7WbKQAm+Ef9kDTINbSpbVyGO9 +Z4IV9n76vwLCtNfIxkj7jSV2UVh0/SrLFqRybX+hBfa1N5teRee9RzrbXu8x +x65oC3y4qPsBXbdOSAFsTk9T5LmqbmSikBu/G1tmhHpkzqIXocVNhqbY+6Yi +jYNb+tFZzb5kY+zaRY5QWN4XVCgyl2qA3XVRKqLUbwgxV9NdaNiTApacWd0R +NBKv2qCNLRAf4EqbZyMxWbMBDezNYmlvA6u+ojsmRSxVbAfZuexJi3EkF3v3 +0GZsIl1RUmvNJLq3sE5PGjta2THmz5YpxEjor5PA7pbq3BGSN4N+y92YXI1N +d/M5dTOei+LL/BNWYE+nUh4V+/HQYiGr9webh9YoaonO6H5DfAEofhz7Fr3e +RnTjHMrQujs+jK3wxDVae34O6eo7/urFNtKMnTxd9R1tjR3WbsE+adDfwrFY +RPn2rz9mY8+GneEXVPmFRjWhJhX7QpWQqdqa3+hPY2WnFOx7YPT0RMsSEntA +ux6JTc96axmUtwLMVePN7LHz3twcuCjLB1rNl3IAe3rUPTI5ng9ajKZf0rAj +1b89f+a3EqQTDSjSy3kLt1KndFfBcbusN/0jPNTTNl77+/Eq2CkfW9SGrcAt +c1u3UQDshSfs6rBZeg4pWvMCUFtz8PYj7IaK8BW+VWvAV6bN1x37W31H/1cL +YRArPWf0zzAPidsJi0bUCoOgS8K559g6nZYgYiwCFEQcS8P2GS5J37F9HUwq +hooEYAfwtejsEhaF52fPrBfDHlEsmImZEwOPsaMPzYZwf4imta00cegUTRJR +weZ7yt66KVAcylzebhHEVqBtcc4bE4dxRzet94M85GaRVPxuQAIM5WIm3LBb +vYOCpZo3Quo7HYFjX3jo85PEOI81ktDcNv1kJ/b4WN7jXCtJYLH4J6SxBUOG +Ona+kgRm5i7PDwM8ZHnlgJ5HiRTQXtzg2mBXZhp8y2FKw8u4mhrZfh7KHPkR +ahIiD7YX4rZG9fLQnoNXPwfny8PTHCGDA9jjDRLW+Wx5uCDt/0MNWy9Tc6OC +62Yg/5xP6fyE++nl/nzV7i1w9HjJShVs7tTA2a+XFWCux5qs+MhDEqctXzy3 +V4TKQAo3q4uH2JmCJ/f7KIJRvfL6IOzy3jbZiVhFqB5b6t2FfdTu2GWVV4og +1zR1vfMDzqcR6nxflwrzjnE6vzvx/zlPpqOklODlHrNc8w4eOnBCSGvvF2U4 +tXToalIrD6HQg7qHfymD7XQV5QC2egzTkC6tAmfYvdulsCmPaeZRTirANQ3O +TX3HQ/mfjxwurlMBe5WuTZn/4vN5iHVRJkMVurdUjGY243yW9l0cLzWwKxa6 +5NfIQ7KKN6LjhjVBzz0zh1rLQ9XXZ9UW+LRA0vdF/781OD/PtZPYqgV8AhOv +zmI/bFBSM3fXgu1bRS41VfOQ4onK9u//aYFezAWKbxXOxxpRJpq3w45d0j8e +lvOQvOxmQsFVB7o5dWavi3lIMytE+CfShYx2IRfJbB7yol/+puWgC8yFVfnF +Wfh8UVM+exzVhfiU4EoH7JUZhc/ehOnC9XWff8dk4vPxkHMgpUgXqNV07ZkM +fP/d80hTo9LAyXTBpJKJ9yPObruLgB6cZP84InWfhx4FKe0vadEHz0/wmRLH +Q22hyPBKljF8fXvRofckD211/+BwzHcXuAMltdmchxhLpQXy5wDEZIrmYmV5 +SGqsfLWUlzlkSfb8tWOCi0Jopr0p6pZwx0tYvK6Wi7wmFt9KcKwgIJJdnpLI +RfnmwauZrTZg06oxUHyYizJnfepYt2zhiqNG7ilFLvputunfhuh9YKHmr9vI +nkF9lJUzXzztYfdU0/EqfO/5yfknXaQ6Qk6E2XBV4AwqOPX21e2Y/eBWZEnV +ps2gcJ70vMYpJwjvt13y+z6Nvu21PtR43BmiPximl5RPI+MjyWYjTn+AXbVq +CRE+jdql03waaAdgh8v49QaYRjLZl6tzth2E23K7DkuunEblA+p2DiKHoF35 +9f/mbk2hzZ3TJ0InDsF4baa/3rYpRLudzHo8cBjK1g11yJRMojR+3vaUehf4 +TEoXVtlNolIz7Z6YCleQlvtj0qx/At0zvC62mOcGaRVyVvVnJ1Drp6xYWvwR +WLg9WcYvO4FK7FOVAi4chWory49NleNo5vQfFD/6MVDUNZEyYYyjb9ZqJyct +3MGwc3IhfOM4ypn4+D3Y4DioFNYplNaPIZdHWd7HhD3ANfIKYyliDD0v3nd8 +5VUPOHeuUcGVNoaMZdsXri14wE1XgzT3WQ6iDpzoeX/KE06FeibuquKgYaE/ +HVOHPMHhy4bR85c4qC3RwdvmoBckni/556wzB90KYwqdafOCM/I+z7qpHFRd +u7TgbesN2/Pa7e78JNH6o3CVVukN6Yl3QxZ6SKSwobFVrtobNJW64kOxdVrs +NwnUeoP23Y1LvI8kcjY9kttd5w0XM/83M9VNoltyoc3n//EGe0rXuvEuEsn0 +PV3/ttsbhtQ61L+1k0jJXere0XlvmIoqn9zbTCJjj8mcGD06COaaveevIVH2 +/elgBwM6nD3wiMmsJtGGDu5uKSM6oPq0ahPsSav5zpyddHj6028wsIrE9w1l +RYs5HZaoF/uGKki0bl7MVdyJDptjOpO7Skk0nKC/lnmaDj6ld+bmnpHIqdGw +84Q/HQp3Xrr/ALuWYsLUCaTDmUbpOMC+H7xb/+8QOiQ/c3CLKySRg6uN50gE +Hfg+fcpRKiBRhZJrhcZ1OiyoDwoQT0mUWBV5qjybDjMyZ/6hZpPotO5d47Ac +OjAbjXo7skhkl1u01iiPDuqVmSZXsAXvsnPL8umw4X1oz0gmiWKC9nNKX9Dh +nq1INusxiSLVlP4s+ZsOwZP2p/c8IpHP3Wbf4s90SDnpWlueSiLbdWzToAE6 +1O5stA7C3hZDEdEdxPYdldHEZgfp5xeN0CFaGLLTH5DI04E58WycDmvU3WwT +/kcil1XBfoU/cL1c/7qQeySyCZYJYEkyIEH4e3jkLRL9zYzdm7KJAbMMOUcT +bNMWrlKYDAN0hBmR32/i/Vdu/mixmQEigfTBM9jS/0VYfFJmQFIPtTckhURj +Jn2SgvoMUKSPxF5OItENvvSaE38wgDntWjUUj9evLXzP/iADjlNTXrCwrxwJ +C6IdZkC73rxAKHbYi/2qS24MkBrZU7YW25NYkXzHiwEwL2qtH0ciWpMX/XUg +A36aEHJp10j0X7KyEDUJ5/nNzC+MJVEBEjn5NZkB3bFmFbHYVyZmG/JvMmBD +QqK4O7aubUOU0V0GyD/RKBDBTqR4c+0fMsBfIvRaQAyJrP3TP4axGJDZ7tNm +eYVE8vJ/GewuYEAI/4dSBezZJv+bK58xwGdonLN4mUQZKsg+8TkDqOoqpqXY +v/r6Xj2uZADX8e9Lmtgv7GRz3r1lwOGnVemql0gU94Nv1a0mBjRorvdag+2V +w/F0bWGAsql4IHmRRKL8lbLDrQw4HaQaxsL2rXK5sdDFAAfNZHUDbKr6nVCl +EQZ8PxKm4HKBRD/+O99BsvH4Ylv1Luy2GIZO4VcGJL/syaZiR33R4xiPM2CN +IB99OppEPfc6jjnycL/kMy4lYKesFrMKX0HAYJ2JU1cUiaq5fUdCVhJg0fbQ +rhZ7tC8vyG8VAVf6OnOysU1fWKZ7rSVgm1vZ5TBstkfYz71iBOjHu9QrYIva +WYlbSRCgYen4Wgh7p6G4GtpIgFXVpm3z50mUJMI6RJMmYHK3kmgr9s7K/iLZ +rQT8NbHF5zI2kcV6u5FKQBm3IChweX7Suf71ygScOirWexybTUiI8KsRMPdk +//tdy+MSNifHdXB+iSqr35EkqvwtEc3WJWCWNnpgCnuEHLg9oEeAqcVowwC2 +yavw+k4jAqxPezc2YA/7FmyuAQIWY+0PJWOvc4nQLzMnQK9axjcG29hij12R +JV6fU/XgOexE6cFzWXsIsG+O5Hpjl/MXJjH3EpDZ+CDOFXtoKuLJfTvcP+cb +MY7YRm82fkjYT0CO6ewDU2yvosGxq84EBD5jlNOwE1IL+S4dICCh56m+BvZg +kK1OqAsBrDOlzrLYIu6SNgFuBBDz4VyJ5Xq2Q8d8jhKg5rSBJ7z8/Zbzce4e +BIzmvpakLOcR3Jvh4oXnl/YZ/4jA9b5JVjjTCdhS2lQziy3yZajVjiCgqyA+ +YwrbqOUZ2/okATNZ1K8cbK+y87/AhwDb9BuJbOyEjL0bdvoS8CKj7fYgdnmC +lIa+H+5nEfvX5+X6YcNm2gEEFLS+f/MJW5he5KIWREDUipTpbmxDxyh/aghe +v61qRNdyfZN9sfKhBBTmJROd2PHKm9KkwgjoV3lf3I5dKjryXCycgOmXI8ff +Y3/5WdQkFEmA89nW023L9UejvqyKImClQ2JvK7ZB+77vS9EEMC0VWcv+P4IS +H7o= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.7963636743535466, + 1.2439634082522373`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.7963636743535484}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5296,21 +10873,21 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.7963636743535466, + 1.2439634082522373`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.7963636743535484}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5324,103 +10901,104 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - +1:eJwV1Hk4VdsbB/CTpDKUochUcgyZIsecWq85ZYjbgEqGc3blypyEaKJbhtD8 +i46E0EGUeSiX0sWNkCsRGY72MZ8jUspv+WM/+/k8a+13f9e7nrW2evk7M/go +FMpX/Cy/A99tVy1re7dbs6NG03qUh3ZPZup7WbKQAm+Ef9kDTINbSpbVyGO9 +Z4IV9n76vwLCtNfIxkj7jSV2UVh0/SrLFqRybX+hBfa1N5teRee9RzrbXu8x +x65oC3y4qPsBXbdOSAFsTk9T5LmqbmSikBu/G1tmhHpkzqIXocVNhqbY+6Yi +jYNb+tFZzb5kY+zaRY5QWN4XVCgyl2qA3XVRKqLUbwgxV9NdaNiTApacWd0R +NBKv2qCNLRAf4EqbZyMxWbMBDezNYmlvA6u+ojsmRSxVbAfZuexJi3EkF3v3 +0GZsIl1RUmvNJLq3sE5PGjta2THmz5YpxEjor5PA7pbq3BGSN4N+y92YXI1N +d/M5dTOei+LL/BNWYE+nUh4V+/HQYiGr9webh9YoaonO6H5DfAEofhz7Fr3e +RnTjHMrQujs+jK3wxDVae34O6eo7/urFNtKMnTxd9R1tjR3WbsE+adDfwrFY +RPn2rz9mY8+GneEXVPmFRjWhJhX7QpWQqdqa3+hPY2WnFOx7YPT0RMsSEntA +ux6JTc96axmUtwLMVePN7LHz3twcuCjLB1rNl3IAe3rUPTI5ng9ajKZf0rAj +1b89f+a3EqQTDSjSy3kLt1KndFfBcbusN/0jPNTTNl77+/Eq2CkfW9SGrcAt +c1u3UQDshSfs6rBZeg4pWvMCUFtz8PYj7IaK8BW+VWvAV6bN1x37W31H/1cL +YRArPWf0zzAPidsJi0bUCoOgS8K559g6nZYgYiwCFEQcS8P2GS5J37F9HUwq +hooEYAfwtejsEhaF52fPrBfDHlEsmImZEwOPsaMPzYZwf4imta00cegUTRJR +weZ7yt66KVAcylzebhHEVqBtcc4bE4dxRzet94M85GaRVPxuQAIM5WIm3LBb +vYOCpZo3Quo7HYFjX3jo85PEOI81ktDcNv1kJ/b4WN7jXCtJYLH4J6SxBUOG +Ona+kgRm5i7PDwM8ZHnlgJ5HiRTQXtzg2mBXZhp8y2FKw8u4mhrZfh7KHPkR +ahIiD7YX4rZG9fLQnoNXPwfny8PTHCGDA9jjDRLW+Wx5uCDt/0MNWy9Tc6OC +62Yg/5xP6fyE++nl/nzV7i1w9HjJShVs7tTA2a+XFWCux5qs+MhDEqctXzy3 +V4TKQAo3q4uH2JmCJ/f7KIJRvfL6IOzy3jbZiVhFqB5b6t2FfdTu2GWVV4og +1zR1vfMDzqcR6nxflwrzjnE6vzvx/zlPpqOklODlHrNc8w4eOnBCSGvvF2U4 +tXToalIrD6HQg7qHfymD7XQV5QC2egzTkC6tAmfYvdulsCmPaeZRTirANQ3O +TX3HQ/mfjxwurlMBe5WuTZn/4vN5iHVRJkMVurdUjGY243yW9l0cLzWwKxa6 +5NfIQ7KKN6LjhjVBzz0zh1rLQ9XXZ9UW+LRA0vdF/781OD/PtZPYqgV8AhOv +zmI/bFBSM3fXgu1bRS41VfOQ4onK9u//aYFezAWKbxXOxxpRJpq3w45d0j8e +lvOQvOxmQsFVB7o5dWavi3lIMytE+CfShYx2IRfJbB7yol/+puWgC8yFVfnF +Wfh8UVM+exzVhfiU4EoH7JUZhc/ehOnC9XWff8dk4vPxkHMgpUgXqNV07ZkM +fP/d80hTo9LAyXTBpJKJ9yPObruLgB6cZP84InWfhx4FKe0vadEHz0/wmRLH +Q22hyPBKljF8fXvRofckD211/+BwzHcXuAMltdmchxhLpQXy5wDEZIrmYmV5 +SGqsfLWUlzlkSfb8tWOCi0Jopr0p6pZwx0tYvK6Wi7wmFt9KcKwgIJJdnpLI +RfnmwauZrTZg06oxUHyYizJnfepYt2zhiqNG7ilFLvputunfhuh9YKHmr9vI +nkF9lJUzXzztYfdU0/EqfO/5yfknXaQ6Qk6E2XBV4AwqOPX21e2Y/eBWZEnV +ps2gcJ70vMYpJwjvt13y+z6Nvu21PtR43BmiPximl5RPI+MjyWYjTn+AXbVq +CRE+jdql03waaAdgh8v49QaYRjLZl6tzth2E23K7DkuunEblA+p2DiKHoF35 +9f/mbk2hzZ3TJ0InDsF4baa/3rYpRLudzHo8cBjK1g11yJRMojR+3vaUehf4 +TEoXVtlNolIz7Z6YCleQlvtj0qx/At0zvC62mOcGaRVyVvVnJ1Drp6xYWvwR +WLg9WcYvO4FK7FOVAi4chWory49NleNo5vQfFD/6MVDUNZEyYYyjb9ZqJyct +3MGwc3IhfOM4ypn4+D3Y4DioFNYplNaPIZdHWd7HhD3ANfIKYyliDD0v3nd8 +5VUPOHeuUcGVNoaMZdsXri14wE1XgzT3WQ6iDpzoeX/KE06FeibuquKgYaE/ +HVOHPMHhy4bR85c4qC3RwdvmoBckni/556wzB90KYwqdafOCM/I+z7qpHFRd +u7TgbesN2/Pa7e78JNH6o3CVVukN6Yl3QxZ6SKSwobFVrtobNJW64kOxdVrs +NwnUeoP23Y1LvI8kcjY9kttd5w0XM/83M9VNoltyoc3n//EGe0rXuvEuEsn0 +PV3/ttsbhtQ61L+1k0jJXere0XlvmIoqn9zbTCJjj8mcGD06COaaveevIVH2 +/elgBwM6nD3wiMmsJtGGDu5uKSM6oPq0ahPsSav5zpyddHj6028wsIrE9w1l +RYs5HZaoF/uGKki0bl7MVdyJDptjOpO7Skk0nKC/lnmaDj6ld+bmnpHIqdGw +84Q/HQp3Xrr/ALuWYsLUCaTDmUbpOMC+H7xb/+8QOiQ/c3CLKySRg6uN50gE +Hfg+fcpRKiBRhZJrhcZ1OiyoDwoQT0mUWBV5qjybDjMyZ/6hZpPotO5d47Ac +OjAbjXo7skhkl1u01iiPDuqVmSZXsAXvsnPL8umw4X1oz0gmiWKC9nNKX9Dh +nq1INusxiSLVlP4s+ZsOwZP2p/c8IpHP3Wbf4s90SDnpWlueSiLbdWzToAE6 +1O5stA7C3hZDEdEdxPYdldHEZgfp5xeN0CFaGLLTH5DI04E58WycDmvU3WwT +/kcil1XBfoU/cL1c/7qQeySyCZYJYEkyIEH4e3jkLRL9zYzdm7KJAbMMOUcT +bNMWrlKYDAN0hBmR32/i/Vdu/mixmQEigfTBM9jS/0VYfFJmQFIPtTckhURj +Jn2SgvoMUKSPxF5OItENvvSaE38wgDntWjUUj9evLXzP/iADjlNTXrCwrxwJ +C6IdZkC73rxAKHbYi/2qS24MkBrZU7YW25NYkXzHiwEwL2qtH0ciWpMX/XUg +A36aEHJp10j0X7KyEDUJ5/nNzC+MJVEBEjn5NZkB3bFmFbHYVyZmG/JvMmBD +QqK4O7aubUOU0V0GyD/RKBDBTqR4c+0fMsBfIvRaQAyJrP3TP4axGJDZ7tNm +eYVE8vJ/GewuYEAI/4dSBezZJv+bK58xwGdonLN4mUQZKsg+8TkDqOoqpqXY +v/r6Xj2uZADX8e9Lmtgv7GRz3r1lwOGnVemql0gU94Nv1a0mBjRorvdag+2V +w/F0bWGAsql4IHmRRKL8lbLDrQw4HaQaxsL2rXK5sdDFAAfNZHUDbKr6nVCl +EQZ8PxKm4HKBRD/+O99BsvH4Ylv1Luy2GIZO4VcGJL/syaZiR33R4xiPM2CN +IB99OppEPfc6jjnycL/kMy4lYKesFrMKX0HAYJ2JU1cUiaq5fUdCVhJg0fbQ +rhZ7tC8vyG8VAVf6OnOysU1fWKZ7rSVgm1vZ5TBstkfYz71iBOjHu9QrYIva +WYlbSRCgYen4Wgh7p6G4GtpIgFXVpm3z50mUJMI6RJMmYHK3kmgr9s7K/iLZ +rQT8NbHF5zI2kcV6u5FKQBm3IChweX7Suf71ygScOirWexybTUiI8KsRMPdk +//tdy+MSNifHdXB+iSqr35EkqvwtEc3WJWCWNnpgCnuEHLg9oEeAqcVowwC2 +yavw+k4jAqxPezc2YA/7FmyuAQIWY+0PJWOvc4nQLzMnQK9axjcG29hij12R +JV6fU/XgOexE6cFzWXsIsG+O5Hpjl/MXJjH3EpDZ+CDOFXtoKuLJfTvcP+cb +MY7YRm82fkjYT0CO6ewDU2yvosGxq84EBD5jlNOwE1IL+S4dICCh56m+BvZg +kK1OqAsBrDOlzrLYIu6SNgFuBBDz4VyJ5Xq2Q8d8jhKg5rSBJ7z8/Zbzce4e +BIzmvpakLOcR3Jvh4oXnl/YZ/4jA9b5JVjjTCdhS2lQziy3yZajVjiCgqyA+ +YwrbqOUZ2/okATNZ1K8cbK+y87/AhwDb9BuJbOyEjL0bdvoS8CKj7fYgdnmC +lIa+H+5nEfvX5+X6YcNm2gEEFLS+f/MJW5he5KIWREDUipTpbmxDxyh/aghe +v61qRNdyfZN9sfKhBBTmJROd2PHKm9KkwgjoV3lf3I5dKjryXCycgOmXI8ff +Y3/5WdQkFEmA89nW023L9UejvqyKImClQ2JvK7ZB+77vS9EEMC0VWcv+P4IS +H7o= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.7963636743535466, 1.2439634082522373`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.7963636743535484}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5430,7 +11008,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5311368545847414}, + AxesOrigin->{0, 0.7963636743535484}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5458,7 +11037,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7963636743535466, 1.2439634082522373`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5466,9 +11046,9 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913301734961166`*^9}, + CellChangeTimes->{3.9913301734961166`*^9, 3.9938519815597477`*^9}, CellLabel-> - "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] + "Out[118]=",ExpressionUUID->"94fd7d53-52b6-4a93-b021-c96438a34f6b"] }, Open ]], Cell[CellGroupData[{ @@ -5483,7 +11063,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -5505,8 +11087,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -5531,213 +11112,237 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991848978152012*^9, - 3.99184898469532*^9}},ExpressionUUID->"ab29778f-f183-804b-b871-\ -4070462057d7"], + CellChangeTimes->{{3.991848978152012*^9, 3.99184898469532*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.4014225547244587`*^-261\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 195, - 153, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913301737143345`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 49, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993851981708178*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +In[119]:=",ExpressionUUID->"0f24b1c4-11d2-4a44-b2b3-a54fc70c1625"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.321402001468515`*^-272\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 195, 154, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173723337*^9}, + 119, 50, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993851981716468*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +In[119]:=",ExpressionUUID->"d1f5c629-adc0-446a-8db7-1701e5427b8c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.593823454208725`*^-283\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 195, 155, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173731432*^9}, + 2, 119, 51, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.9938519817248163`*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +In[119]:=",ExpressionUUID->"3d61f780-bab2-4c3c-b366-46fcf29faea1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173739336*^9}, +during this calculation.\"", 2, 119, 52, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993851981733506*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +In[119]:=",ExpressionUUID->"233134ea-f3a1-4add-b4da-672be7266963"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVl3k41N8Xx6kUKTsz9jWVfRkzY5jPOVSyVSpEFF8iCpV9K5I1KpQkJSQl +ZQ9jKdFCC7JESKIiRQlFWX7z++vzvJ57P8895322e+Vdju1xW8HBwfGRk4Pj +/9/fgy1PlBLzCP4fSzVpvHuIrixyiFFvFJDPWq+/dE4LULTNhdybCuZ0eQ2v +cwiBVnd7VvbmQlNh2gqLc1YgOElKne8pA8uSRye5zjnDh7qdx2Z6GsG7sGsN +f9JxMFEafz/V0wEuY/4x2+IjYb6HlvazZxg0KDWcWiHJ0LTldt6b3GlYUPO7 +oPY5G6Q+sL64qC1Ckv6ox/mwOyDi5XR3zZaVaOsEArpYDCprbj6z2rcSNX7P +Dfc4FAPmfhnOOLoSVZTcl7yCisGr11tS7dJKrJTM/HC4qBiebA1Psvq8Ek8J +cUe2rS8Bf+kMn4y4VbhZa3BrdEgJdLZ26Ki+4kKvgIGV9ealkKptUrvThhst +fSxktneWgWa//XamBzc+Gh46oTVYBq+ivTtVw7hR+umNNsGvZbC699I37hxu +FEsayqxbKoOwUyOSTd+5UZx6mVy2uRwOvYwMp0XzoP+OkIfip8qB6lbLlCtf +i5UBIY+fylVAJ19bC9+ztaiUXy9zV6UCjlcP2yz2rsWCHXKKsZQKuMu71qdv +aS0OFTuKbTCtANkyu6xL5rz48k6Fw5JPBXAvzy5xD/NiwNIbKanaCnh3Rath +SmA9nlYtOzVt+QCudhbyB25Yjz2hrg3Rtg9gP99Gp7/669Hi2NM+XucHMHBG +emmF63rky/C58M/3AQz5rDUUebAesXGgzPnKAxjb+qmKas+HnTpX2+HjA5j7 +mV4clsOPD4JbThkfrQSWqvDy8gN+PMoajTjrVwmh7ud3Rr/gx8dFSaTmsEpY +6I+eSJrmx/HVhquUkiohcqRatE1BAH068wsO3quE6NZbe4f8BfBLnNev9+OV +kJgX0bZCXBBneIUTFpyqwJziKSSqKIjfwvdGdLlXAfeTPTYb1QWxmdvKIte7 +CqJHNvRbGAmigu8BF9mwKghXePXlkqcg+tBPRdxIqwKfbPKSco0gmpDkFKua +q2D3tVI1Cwch1D/2dcp4YzUIqGUeO+AmhA4fW2S71aqhtTa67NgxIbTfyCt3 +QKcazPv30S+dEUIOd5mMncxqMJZY2vK+UAgT2gVCqvZUA+WKucOxBSEM8Nzo +mhNWDaRLIwkXrwujnRNzqO9pNZBVH0TP5QvjgYbuzsGWapBojI04UCKMJSGJ +nH2vq0Hm5+aAjU3CqJ9H46/sroYNlseda8eE8YPoGgGuz9Wgu2qROqIrggmb +j2Yuc7KAktmqbcoUQaaze0kQFwuoOtlq901EMOw/Z8FRbhYwnLcoBNmLYPFD +/7pCfhYY1SWs541g78/YPPBKigW7/MU+6bwQwe7agZBjeiyw4h0bTO8UwRda +v3450lmwJ5f1bmFABDN6GluNDFhg2+7Y9uyHCKq0jFdMIQsOqN2s2S8qiv4i +RR7jFiw4+kkzJcpZFO8ZLY6iMwu8wjiTRj1F0eChvfUtFxb4CHXGWvqJYpDV +IMHpxgJfDAwXixVFvca+tBueLAi5Vnf4bqEomsTNRwb6siDO2ozo+C2K6wM0 +uC5EsUCiolViBacYKuXFS1+KZkGRsPUfbV4xdCp7v/9CLAvedhwsSZEVwzPi +3rs8zrJAabe/wm5TMbygIuOTl8KC6pL5pcg9YqgfprCw/yILLAUi+kscxVDi +ad7TNWks8GtLuCRwQgzFaV1iW6+woHHHjdXtGWL4XXZ+lWkW2//7SiPLN8Vw +zfDg45IbLBhfd/eRZpEYZuxhdPDnsEDwVUXwhUYx1LlSM19ykwV5qgybR6/E +cF2FPGk6jwX0xEfaP96K4R/OM5dU81ngbP5ifOc3MTRy+V0bcYcFMwW7np+a +FcMbfkFemQVs/3m6bxYti+HI3faE+3fZ/jZ/cOQTIWGUuTL5wT0WGG9y0ydk +SOj2vP7C3fts/+PGRX02kXA23vX05SIWLJrMtr42JGHJsMXQ7hIWJOeHFi6a +kPAgh421fClbn9Uc8eq7SbjDdX7XKJstn641OudGQvHl/m+25SwYUkqWrj9G +wuU43oscFWx9okX/fg8hYf236rZsNl/dIldueZ6EwnMFpKcPWKBx89aF8Csk +XCvMo2JWydZvharXvVz2/8NSQ01stnUpMR24R0If+UimXhULvj7W27CuioTn +Szu2XWdzuHwtp+FjEn6/ylr4x2aB0zh49CUJyas+uO2uZus59LQms5uETPVf +0dfZTEeL9JcfSFh75PaBITa/utHu9+8r2z7Z6mlxFlvfZRsr1RkSdlUPm5uz +eeZgv5rDEglj8sfdT7A57qEzTyI3Gfv2XbG4wGYJmS+fa4TIOEZhLdxkc9HJ +o43jUmR0zJA9Vcxm4/c/syQ2knG+NbezlM1vDQPDzLXJuIlblrOQzUeu/dsX +akBGv/0BazPZvPgvknJ3Gxl/VSdOn2ZzssNqwb5dZHw7adngxGal2sQJnv1k +HM24409hc7WE4Av9Q+x1pYsiHGy2DL2c7+lDxt7HXHmNbP+G3kmeyQgm4+yh +JeVwNvvp5zi1RJEx8WFEjhqbzbP5ZiySyDgsqWTUx9ZPYU14fGsaGal/aNyR +bJ73/iq1+wYZy6p4/kqzub3LtrTzDhlbLb+JV7Djc8fgyTbbMjIeVtE5aszm +iFztvt5aMt7bSptq/n98j69bOdhKxk7PqTsP2fHn6glJd+4lY0uN50d1Ng8w +R1VHPpLx6itlxzR2/iTyNlqPzZBRNkpSeUcZC1x8Nb8eWSKjcKt2+HV2vjHe +XTs5sUYcTRTNFb6w83MsPyj/l4Q4brFw9XIuZsGj9Z8ZAUriuP72AVIqO58v +++9p+6MujuOiO+Tq2Pm+zVh9bgHFMfi6wv75Qhbkvh82W3NYHPfprXxDZtdT +yFarwYTj4hjT/7V1/W12fyus910XKo57+0y3/7vFguXgK5mC58Tx+8HJB4/Y +9eoosnNCslwcnRIXfk6y6103rPZ0Vp04tpZXbLpznQVrhzeJyT8TRz8D3Tn7 +ayxgFa8E5XfieLLjkPftDBaIWbCStZbFcfd/XuLj7P4yUaq8oZxbAo1dRII9 +UlnwhHyJpSckgbVbLiZ9SGbH74vPMGODBMr22HypOseOx2klyjYLCRxLsWoW +jGPB7bGU5ufWEvj72CLaxrDg1K5lR/ODEijTaXH+4hkWqEv3xew6IYHd3w5X +zkWw4Gz1hR77dAlMOuJ71zuYBVt//A31GZFAn8QdGVwebD1ML6k8/i6BED9F +/8Tuv0U56n3CvyVwBl5q17mygGztrM/ilsQToycIOycWfK9++melhiQ2XDTX +NLJlwcWoZP+MYEmsEQnpemfMgub+zUrfT0uip1VDzy72PFigNHUSiZLYfCze +9xGTBe6jszqfrkuibWjIqUT2PGFYOkxpNEniK49DTj3qLBgWVfZ5sl4Kqb2S +zUYkFpCOPZImkaSwv/um4l4Rdv432732lJNCKVi376AgCypDE9X4daXwltg7 +Gxdetr8ffo7b20nhjv+2KMsvV4NOQe3hH7lS2LNLqfgke16eNtz9nwRdGsd3 +9ma13a8G04NZv2jG0ljMGhrqLKgGvshvZ2wspfFz/c3Tb25Vw7WmmPxkZ2kU +TzCarb5eDdXmNd9WJ0ijRNxVQv9cNfy0UwycfieN7RLh6quOVsPBgNmzr8Jk +8HLEX59x+WpgFGVUnHokiz/mD8ZQTlXB1p7WxclmWXSIqvhPIqQKdnKs2u7U +IYuSw9fL/vlVgesen3fwWRYvqI49KfGsApMw+YhILjn8s5Ci8dm6Co7L/r5p +pCqHUnVjWmEqVfDk8I2JpkA5zDWseBPeUQlec1ORzevlMd8g9ep7sUqYVxUY +VLdRwP3nTj24YV0BhoX3si9fVsQ3JV8kJnzLYErI3Nm2UQnNMtNvMbNL4FOS +s63vGmV2PZ4PKTG9D2Y/gsw+Uzfi00b5C1vuFcB3V26/iohNSPO7b5w6c4t9 +fyetiGvcjBIpLLue1FwQeq18vuSHCm77oDd33f0GSMUXW1GpauhnzNv1oTsD +rqjqCwgfVse99iUzm7enwQsJI73pFA1cr5IfM+WWAu0yxcqr0jXweSZDzcE2 +Bd4qSJNFr2lgwcvIbW0mKfBRZf4vNV8D7zmcffJ2YwrMMUobQms08Hh1eK7L +eDIoO8hbrhjRQO32NDh6IhmiMjldBSmaeID2MdCa7wIwpBqTNd9qomAL5x7z +nEQYVlQa/NqniaXfnvCPxCdCgmqsat4HTazlXpOYdDwRehnmz8hfNbEw4WaO +ICZCkH3HP84FTTz2L+fmyIezsN/ihO64gBZ+u+iYkqNwFi7Hs9sDVQt3uW5b +Z18RD3wrc/3/i9LCHnHqS4s1sbB6/tHeqWgt/Gil4aY2FQNLk+91Tsdp4bkU +wQaZ/hj40Sc+lZ2khXufd6TRi2OgvSzFe+iyFtIj8DXYxUCqy2l3p0It1AjK +b7p0PxrEGp3tDnRp4dzXDLKk2xmQOS1raK+sjRuO/liRz3Uaivy4Fd5v0sZX +3LbDq2YigXCfWvOfqjY617hV+w5HwgGLpk4PLW08lbBFOexRJFwTPXw0mKGN +70y3ihOhkSB+t+hq+k5t/PDsSR3P5wgQ6WTOdwdq4+NG7uny/pPAs8Gxcs9z +bfztcngqXjIUjoiDeWGLNh4psFBQ4AyFF+sVBle+0safm1cVvPkSAkm/R7ke +tGujeciR035lIcDX7GdD6tNGTvnOoQbzEBA6mjjT/51t/8HmoMCIYJAqrdFx +E9LBmxG6AZNzgRB+6/qzehEdvH9/QpH+MRDeZ0TuFyPp4GzAZPDllkDIijKJ +ei6pgzNxZ4eSrwaCnHXHm80bdDDr9XadMGYgbPjz9fgkTQcb/vJYSMQFgAZT +vDjogA6269bbKW/2h3JFz38rnHXwx50RBXkhf6CvZW0/76KDB4W3bNf55wfG +PXZDeYd1sMt/0TH9tR/Ynrgi2HFCB8/K1U0d8fODiFskf7VYHbwt3hu+uckX +2teL6X8s0sG3nhpyF31PgM2MW4xXqQ4226U+1z94Avr6Hrz5U84+PwOezZid +gE+3bY7wsXTw9dL1s7flT8CcUVqmQZMOhtb2Bi+9OQ7ygSJLaT06WC7DZ3GI +ehx8B4WazDl0ceGpmIKppA80P3Osv7tCF69880pqn/cGmeL8qrVcuqj3Ilok +pNcbXkQw7r3gYfPCLymVy96gIO+SZi6sizkXez15hL3hjWvpYXNlXYy9tWny +tpAXaH3dtc7cUhdfvqBkPNx0BGLfZKy+u1MXF09PRkrxHoEB1gjH2t26yJyT +T02f8IT4s0GzLTa6uKWG1v2pzBOGVG8Mmjnp4sW1FgffEZ6Q7DNZYuariwXt +Vjlijh7wYzrJxuyKLhqXK+/bVugOA705ttev6uKIaoB3doo7vKiv3Dd1TRe5 +im3eiwS7Q17ckH1Gji5e0EkLNtvmDvslKQe/3mW//H3a3D8MucFT4373hHpd +jHH3S70n5QaZKZuDW4Z1UbfUoNUo3xXiA4kQ6c+6WLqKiMm54AqBDntDT4yy +9TvJLUcOcQWrDSfDxb/rYuqtxQozS1dYzWqP9JzVRTrXD/O6aRc4MRSUwMNN +wSVyV32riQts13x21UydgievJ+ZuXHQGu9Wm1u2aFPSbVBW/MOoMR963rN+n +Q8G/hvWv+Tqc4Xzi68hDNAqWNXhftr3tDG9Hu9wjjChYXrNPm2uvMxzKHtF5 +YENB+o03mpcPOEGUIOdLuVMU1FmCuceTjnBpLCr6diQFKd/jSRYtjpD/aBWh +cYaCD1PETZZvOsILb+5Sg3gKCv+SVB2zdwTBF/zptqkU9OgzTKl67gDZUTKu +SfkULK4yF9xcuB8eThv8+9NKwY+HVQaJZDvIeVXlsvcNBe1uH+zk8rWD6Fu6 +L4o6Kdj/N+PXxF47MNunmuHWS0GjLV915cl20FUjQev8SMHOwG+HBXL3wfjp +ed+iGfb6bQbvn1pbEBOoGj8koYcNuaMousYG5sd09jRI6SHHQoLN8+/WMPC4 +iCUpq4fdA2eHL3dYQ45ffnyHoh4aXR+bOZdlDWo9acqoroezorbjvTRrMM7y +d5FEPdSYoHS3HNsLPmo6fW/c9DCc4+VD+5ndEPBH4q+Thx5a+HayMvt3Q3jj +SonJI3roP/L6wELjbki067Zfe1wPhbT7pMVTd8Od6OB3xqF6ePMez1Sd9m4Y +HnjYW35eD30WxTpSAq3A9pxFT1qVHqbw9nSrqO6EA3aUP4o1emhCDbMZ5NgJ +hxSlSWV1eqhrNOr8/O0O8GNN2rY+1kOyKY+W/pkdkPw55e3qV3pYstl0R9qg +Jbxg9nYHDenh5yk98cUsC2BOHuqy56Hi7YTzPzm3mYFY7fbcOl4q7t5Es9iv +aAaTcSrHZfmoGPNWals/pxlkyf/k/SxERZa9+1HbR6awZB225bgUFes19/er +GZrCo9qUslhNKgak1pzVY24Ho4SHyeU2VEwUikxId9gGErY5B8XsqCin+Cmq +nNgGvxSi1UL2U1G7potrWn4b5NaZNRNOVKSNPucbGNsKK352Lbd4UBE2OXDu +Cd4KTbbffIbCqPhs52LovetbYJsSecf6XCr7viUnK8lpDBUTT+UP5VExLJ2k +NjBmBEpVfr9r8ql4niS6orbdCFaZt93wKKRip+NA3JtsI2g8FvurqYKK8os8 +wQeNjYConUkPfU7FXUPzlIGzCNQ9b4ZHv1MxKqn1rMx/BORLRlQRP6hYXKQ+ +kkEjQPSzWlLaFBW9Ui9sMOMjYCYoXm/LbypaeLw9bVzHhLLrEJ+1TMUba+Ns +r0owQfPrfXUbIRq2OhXw3x8ygE2RZ4MbaTRUk+cNGEzWhzqDW1yWDBrGGb8s +9zqiD1Z/HqV2G9JQobxiUXOrPgT7zN4bM6Lh3OTgfes5OjQ7On/ks6Sh/n3f +I/yudPDQp5o7ONMwN4QVL2RMg4JfHyVn4mlYxhOWkKWkB0TRwp2TiTT8EDqX +ab1KDzo8SdQ152nYnHyFj/6JAn+HLK0kLtLwZMINzdg8Cpi3VUXjdRr+HuhR +199IgfHCcxNJpTScZe6xaKHogoqb/qMNfTTc+nD+JemYNlxQ2Pn3zAANh6uk +x/tttGHmg4ve8CANN5w8X/vYUBse7k8qzBqhYXWQ4duptdqwx+pDOmmChufM +TWI+3NGCEIOY4zwcdEzInLC81q0JzYJv5Cc20FGbN/VoD686qLd9drTYREdJ +l7oYvY9qkJr0N71AhY4u4WciX1eqgeMaJT53TTpu0Hz1r8BFDX4sBP4dpNNR +LEHMZn29KoiNSXW2W9BxDse/YLgKuD30iK44QcezDpm0GIVNMOk9HrTNn47v +duuZXfu3EYKlvY6+DaRjP2/+mYmujXA2/NieuTA6KoUl05jxG6GEEShnGEvH +g5a5/AlTyrBQeaau6SodW8wGrC60boDU4qyZjiY6qjz3kt5VoghSTnJjrs/o +eGdFGE08WRFu8eX2zzTTsZH61lzkuCJUe99qFGulo/wydec1LUV4r3oveX8v +HQcjBI99L1eATXdYasPf6aiWleG8t0keHmV3HZoS1cdfsZfTTq2UgyFLeadA +sj5OayfKvuqQBY55b/t/Evoo9/mv5XiWLBjvXrOTS04fvygFZwrRZeEZJ4Mm +rqKPmq/tZNf4yMArlxs8RgR7v2ingcKYFPQpHSlKdtfHk01FzF1CEvCvvfKO +qKc+8meFyDBGxUHq5MqbV4/q44rmQb/DdeJwoPtaet5xfcyaiV8Vf1gchmLa +IqtD9ZEmUH/hbQMZRr9Q9g6d18ckZy1n+wgSzNxZ/qNZpY/qyQG95zaLwhdb +k+wElj4yqp5dDOEWhd5V50xHavXxoepYYdqoCNQ6S2RcbtDH+hWRkwfyRSCK +rMdYbNFHUzuX0o3KIiAQfyT8xYA+Lqy81eqhIQxqh7s53FYw0HNXzciskyDI +iEoVPFzFwJ9eZ977bxUEgSaX3eQ1DPyyY9NNqc2CMC3zM+clLwNXvWgv+/xL +AGrert2iI8rAcqZu7754ATA1wZjljQyktBaHiwfwg+uGQp6rOxi4vTeBnhaw +DkKfHjyibMXAE5pKEQpb10Gym9DLsj0MdBl4eJRDeB3U3QpJermPgSqRqVb3 +SnlBRNmUf/E/BmYvGMpV/VoLz5Q/izgHMvDzs5BC7TM8oLJJVk75BgO/ary7 +lNO3GrC5I7Ish4HtIg4fXctWg61H7Ecij4Hq2YFtHmdXw5k7E7n7ChioZuT7 +h26wGgY21W1IKGegsflh99EbXHB+s73q9+cMVHjxnFc5YBVMqVyklv1kYObJ +wJpkyxXQ+wq3CU8zMO/0t3MiGiugwWdyr/8sA6cCVOjN/CvgfJnZCepfBj5q +WZ6v7+QEFQbHvZqVBnjUUy6//wAnuJh5yzeJGeDuvWmH8kI5oOvw9nVdhgb4 +bzXe2F6wSNTyzErogQFix5OpLUGLRG5h7ubLRgZILjfourBtkTj+Y9HEzsQA +Y4aSToiMLBDrgypOD+wyQM/yKMsn8guESaz8n08uBlhLeXRy//2/RHXev4+z +8Qa4T9Txu9PfPwR1i/8f80QDnFx3JN244w/x4OP3ddnnDLD+4727h+7+Icpk +BmnmqQb47fiDi24Of4h7VxrOZWUaYMrLOiurht9EdlKM/vYiA5SW6BILTZsl +Evz5U650GqCgrF9e3ZFpgls4Pn+i2wDLC1U1h8ymidhSjjrjXgN8nK9rR988 +TURPTn35PmCAawkx85ixX8Qpjy5Doy8GOPFSZmOC5y/C1zFj7OucAQZe9p+Z +9Z8i9m9VRAMZQ7wIJOmnB38Qi13cfE1yhvjYy8M0VukHke022W+uaIjl1Oyv +98cniS+xrKD9mwxxW37IuHrwJOHbsqs4RMcQgwrG8wfTJ4izO8Nlqk0Msbnx +yU7/r9+IGrvuBcoxQ1TX+hum9maMOPC15kXdCUMknKmX43LHCI7Q7Ctb/Q3R +tuvOez3/McIk8yjFOsQQT5p6PU8gjxEd7zm9/M4YoqGIxsLyoVFi3EWjvzTd +EFeW8u8qWfeFkPSOY2k0GKLpCBRfvzhCnF9210tsZJ+vKBfff3yEWJFqUjr6 +xBAfWi5xWu8cIcYruQqyWwzxRlLzoWmeEaKGI/qKUKchfsvmfffxzDCx/1Jk +0O/PhrjkpNuiEfWRuFIboveQl4mbhNIeOVh+INbttC+V4GNi/RfJMRWRD0Tk +EF09SICJIcvDq/YPDBIeXHNKWqLs/a9mSru9BwnarkCRXBkmkkk/VHXS3hNv +h32nY7SZWFXvK7o400+IrvUq3bGPiS+lOI5Mz/QSeVtOhv60Z+JC66kZ98Ze +Qufk+S0XHZkoma66bJDcS+z8WdLd+x8TX4xfb1uj3kvEvp2dd/Vi4rv8GLrw +0R5iLjfCOPQ0Ezdy6re6znUTsQPJvNLRTDTNM7ye9bKbEBHL7XoUy8S04fsO +Wje6Ca2EJ+5cSUw8DZGbbbd3E57HeBKTLzOxKHl1T0ZmF9FncLEzv5CJb9be +tQ3b20l4BORdMytiYiYrLH1AtZP4XfTA7XsJEw2X+s0TV3USQgq9f7Qr2fYu +MV+3VnYQFtzSUvUNTLyvotYxKNNB1HXlH+rsZuLk45KouwvthDlftXpgLxMj +Bb++y3nXTvRub/lN7mci5/GrcoOV7cRMzbf4g0NM3HYrMEzRt51Qz9G6/3Wc +iU0NIQq3e9qIuj6jwKQJJh447CTQktZGmIvsBc2fTIwqO7Ta27qNcI8LeOM/ +y8RRi1KgdbYSMw2xV0lzTLxbn5LjcLGViPqb7lrzl4lxrIemS3tbCQFKgdqB +RSby22Sbyoi2ElneNbPLy+zzAonKmrevif8BeQClhQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5751,172 +11356,192 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwVl3k41N8Xx6kUKTsz9jWVfRkzY5jPOVSyVSpEFF8iCpV9K5I1KpQkJSQl +ZQ9jKdFCC7JESKIiRQlFWX7z++vzvJ57P8895322e+Vdju1xW8HBwfGRk4Pj +/9/fgy1PlBLzCP4fSzVpvHuIrixyiFFvFJDPWq+/dE4LULTNhdybCuZ0eQ2v +cwiBVnd7VvbmQlNh2gqLc1YgOElKne8pA8uSRye5zjnDh7qdx2Z6GsG7sGsN +f9JxMFEafz/V0wEuY/4x2+IjYb6HlvazZxg0KDWcWiHJ0LTldt6b3GlYUPO7 +oPY5G6Q+sL64qC1Ckv6ox/mwOyDi5XR3zZaVaOsEArpYDCprbj6z2rcSNX7P +Dfc4FAPmfhnOOLoSVZTcl7yCisGr11tS7dJKrJTM/HC4qBiebA1Psvq8Ek8J +cUe2rS8Bf+kMn4y4VbhZa3BrdEgJdLZ26Ki+4kKvgIGV9ealkKptUrvThhst +fSxktneWgWa//XamBzc+Gh46oTVYBq+ivTtVw7hR+umNNsGvZbC699I37hxu +FEsayqxbKoOwUyOSTd+5UZx6mVy2uRwOvYwMp0XzoP+OkIfip8qB6lbLlCtf +i5UBIY+fylVAJ19bC9+ztaiUXy9zV6UCjlcP2yz2rsWCHXKKsZQKuMu71qdv +aS0OFTuKbTCtANkyu6xL5rz48k6Fw5JPBXAvzy5xD/NiwNIbKanaCnh3Rath +SmA9nlYtOzVt+QCudhbyB25Yjz2hrg3Rtg9gP99Gp7/669Hi2NM+XucHMHBG +emmF63rky/C58M/3AQz5rDUUebAesXGgzPnKAxjb+qmKas+HnTpX2+HjA5j7 +mV4clsOPD4JbThkfrQSWqvDy8gN+PMoajTjrVwmh7ud3Rr/gx8dFSaTmsEpY +6I+eSJrmx/HVhquUkiohcqRatE1BAH068wsO3quE6NZbe4f8BfBLnNev9+OV +kJgX0bZCXBBneIUTFpyqwJziKSSqKIjfwvdGdLlXAfeTPTYb1QWxmdvKIte7 +CqJHNvRbGAmigu8BF9mwKghXePXlkqcg+tBPRdxIqwKfbPKSco0gmpDkFKua +q2D3tVI1Cwch1D/2dcp4YzUIqGUeO+AmhA4fW2S71aqhtTa67NgxIbTfyCt3 +QKcazPv30S+dEUIOd5mMncxqMJZY2vK+UAgT2gVCqvZUA+WKucOxBSEM8Nzo +mhNWDaRLIwkXrwujnRNzqO9pNZBVH0TP5QvjgYbuzsGWapBojI04UCKMJSGJ +nH2vq0Hm5+aAjU3CqJ9H46/sroYNlseda8eE8YPoGgGuz9Wgu2qROqIrggmb +j2Yuc7KAktmqbcoUQaaze0kQFwuoOtlq901EMOw/Z8FRbhYwnLcoBNmLYPFD +/7pCfhYY1SWs541g78/YPPBKigW7/MU+6bwQwe7agZBjeiyw4h0bTO8UwRda +v3450lmwJ5f1bmFABDN6GluNDFhg2+7Y9uyHCKq0jFdMIQsOqN2s2S8qiv4i +RR7jFiw4+kkzJcpZFO8ZLY6iMwu8wjiTRj1F0eChvfUtFxb4CHXGWvqJYpDV +IMHpxgJfDAwXixVFvca+tBueLAi5Vnf4bqEomsTNRwb6siDO2ozo+C2K6wM0 +uC5EsUCiolViBacYKuXFS1+KZkGRsPUfbV4xdCp7v/9CLAvedhwsSZEVwzPi +3rs8zrJAabe/wm5TMbygIuOTl8KC6pL5pcg9YqgfprCw/yILLAUi+kscxVDi +ad7TNWks8GtLuCRwQgzFaV1iW6+woHHHjdXtGWL4XXZ+lWkW2//7SiPLN8Vw +zfDg45IbLBhfd/eRZpEYZuxhdPDnsEDwVUXwhUYx1LlSM19ykwV5qgybR6/E +cF2FPGk6jwX0xEfaP96K4R/OM5dU81ngbP5ifOc3MTRy+V0bcYcFMwW7np+a +FcMbfkFemQVs/3m6bxYti+HI3faE+3fZ/jZ/cOQTIWGUuTL5wT0WGG9y0ydk +SOj2vP7C3fts/+PGRX02kXA23vX05SIWLJrMtr42JGHJsMXQ7hIWJOeHFi6a +kPAgh421fClbn9Uc8eq7SbjDdX7XKJstn641OudGQvHl/m+25SwYUkqWrj9G +wuU43oscFWx9okX/fg8hYf236rZsNl/dIldueZ6EwnMFpKcPWKBx89aF8Csk +XCvMo2JWydZvharXvVz2/8NSQ01stnUpMR24R0If+UimXhULvj7W27CuioTn +Szu2XWdzuHwtp+FjEn6/ylr4x2aB0zh49CUJyas+uO2uZus59LQms5uETPVf +0dfZTEeL9JcfSFh75PaBITa/utHu9+8r2z7Z6mlxFlvfZRsr1RkSdlUPm5uz +eeZgv5rDEglj8sfdT7A57qEzTyI3Gfv2XbG4wGYJmS+fa4TIOEZhLdxkc9HJ +o43jUmR0zJA9Vcxm4/c/syQ2knG+NbezlM1vDQPDzLXJuIlblrOQzUeu/dsX +akBGv/0BazPZvPgvknJ3Gxl/VSdOn2ZzssNqwb5dZHw7adngxGal2sQJnv1k +HM24409hc7WE4Av9Q+x1pYsiHGy2DL2c7+lDxt7HXHmNbP+G3kmeyQgm4+yh +JeVwNvvp5zi1RJEx8WFEjhqbzbP5ZiySyDgsqWTUx9ZPYU14fGsaGal/aNyR +bJ73/iq1+wYZy6p4/kqzub3LtrTzDhlbLb+JV7Djc8fgyTbbMjIeVtE5aszm +iFztvt5aMt7bSptq/n98j69bOdhKxk7PqTsP2fHn6glJd+4lY0uN50d1Ng8w +R1VHPpLx6itlxzR2/iTyNlqPzZBRNkpSeUcZC1x8Nb8eWSKjcKt2+HV2vjHe +XTs5sUYcTRTNFb6w83MsPyj/l4Q4brFw9XIuZsGj9Z8ZAUriuP72AVIqO58v +++9p+6MujuOiO+Tq2Pm+zVh9bgHFMfi6wv75Qhbkvh82W3NYHPfprXxDZtdT +yFarwYTj4hjT/7V1/W12fyus910XKo57+0y3/7vFguXgK5mC58Tx+8HJB4/Y +9eoosnNCslwcnRIXfk6y6103rPZ0Vp04tpZXbLpznQVrhzeJyT8TRz8D3Tn7 +ayxgFa8E5XfieLLjkPftDBaIWbCStZbFcfd/XuLj7P4yUaq8oZxbAo1dRII9 +UlnwhHyJpSckgbVbLiZ9SGbH74vPMGODBMr22HypOseOx2klyjYLCRxLsWoW +jGPB7bGU5ufWEvj72CLaxrDg1K5lR/ODEijTaXH+4hkWqEv3xew6IYHd3w5X +zkWw4Gz1hR77dAlMOuJ71zuYBVt//A31GZFAn8QdGVwebD1ML6k8/i6BED9F +/8Tuv0U56n3CvyVwBl5q17mygGztrM/ilsQToycIOycWfK9++melhiQ2XDTX +NLJlwcWoZP+MYEmsEQnpemfMgub+zUrfT0uip1VDzy72PFigNHUSiZLYfCze +9xGTBe6jszqfrkuibWjIqUT2PGFYOkxpNEniK49DTj3qLBgWVfZ5sl4Kqb2S +zUYkFpCOPZImkaSwv/um4l4Rdv432732lJNCKVi376AgCypDE9X4daXwltg7 +Gxdetr8ffo7b20nhjv+2KMsvV4NOQe3hH7lS2LNLqfgke16eNtz9nwRdGsd3 +9ma13a8G04NZv2jG0ljMGhrqLKgGvshvZ2wspfFz/c3Tb25Vw7WmmPxkZ2kU +TzCarb5eDdXmNd9WJ0ijRNxVQv9cNfy0UwycfieN7RLh6quOVsPBgNmzr8Jk +8HLEX59x+WpgFGVUnHokiz/mD8ZQTlXB1p7WxclmWXSIqvhPIqQKdnKs2u7U +IYuSw9fL/vlVgesen3fwWRYvqI49KfGsApMw+YhILjn8s5Ci8dm6Co7L/r5p +pCqHUnVjWmEqVfDk8I2JpkA5zDWseBPeUQlec1ORzevlMd8g9ep7sUqYVxUY +VLdRwP3nTj24YV0BhoX3si9fVsQ3JV8kJnzLYErI3Nm2UQnNMtNvMbNL4FOS +s63vGmV2PZ4PKTG9D2Y/gsw+Uzfi00b5C1vuFcB3V26/iohNSPO7b5w6c4t9 +fyetiGvcjBIpLLue1FwQeq18vuSHCm77oDd33f0GSMUXW1GpauhnzNv1oTsD +rqjqCwgfVse99iUzm7enwQsJI73pFA1cr5IfM+WWAu0yxcqr0jXweSZDzcE2 +Bd4qSJNFr2lgwcvIbW0mKfBRZf4vNV8D7zmcffJ2YwrMMUobQms08Hh1eK7L +eDIoO8hbrhjRQO32NDh6IhmiMjldBSmaeID2MdCa7wIwpBqTNd9qomAL5x7z +nEQYVlQa/NqniaXfnvCPxCdCgmqsat4HTazlXpOYdDwRehnmz8hfNbEw4WaO +ICZCkH3HP84FTTz2L+fmyIezsN/ihO64gBZ+u+iYkqNwFi7Hs9sDVQt3uW5b +Z18RD3wrc/3/i9LCHnHqS4s1sbB6/tHeqWgt/Gil4aY2FQNLk+91Tsdp4bkU +wQaZ/hj40Sc+lZ2khXufd6TRi2OgvSzFe+iyFtIj8DXYxUCqy2l3p0It1AjK +b7p0PxrEGp3tDnRp4dzXDLKk2xmQOS1raK+sjRuO/liRz3Uaivy4Fd5v0sZX +3LbDq2YigXCfWvOfqjY617hV+w5HwgGLpk4PLW08lbBFOexRJFwTPXw0mKGN +70y3ihOhkSB+t+hq+k5t/PDsSR3P5wgQ6WTOdwdq4+NG7uny/pPAs8Gxcs9z +bfztcngqXjIUjoiDeWGLNh4psFBQ4AyFF+sVBle+0safm1cVvPkSAkm/R7ke +tGujeciR035lIcDX7GdD6tNGTvnOoQbzEBA6mjjT/51t/8HmoMCIYJAqrdFx +E9LBmxG6AZNzgRB+6/qzehEdvH9/QpH+MRDeZ0TuFyPp4GzAZPDllkDIijKJ +ei6pgzNxZ4eSrwaCnHXHm80bdDDr9XadMGYgbPjz9fgkTQcb/vJYSMQFgAZT +vDjogA6269bbKW/2h3JFz38rnHXwx50RBXkhf6CvZW0/76KDB4W3bNf55wfG +PXZDeYd1sMt/0TH9tR/Ynrgi2HFCB8/K1U0d8fODiFskf7VYHbwt3hu+uckX +2teL6X8s0sG3nhpyF31PgM2MW4xXqQ4226U+1z94Avr6Hrz5U84+PwOezZid +gE+3bY7wsXTw9dL1s7flT8CcUVqmQZMOhtb2Bi+9OQ7ygSJLaT06WC7DZ3GI +ehx8B4WazDl0ceGpmIKppA80P3Osv7tCF69880pqn/cGmeL8qrVcuqj3Ilok +pNcbXkQw7r3gYfPCLymVy96gIO+SZi6sizkXez15hL3hjWvpYXNlXYy9tWny +tpAXaH3dtc7cUhdfvqBkPNx0BGLfZKy+u1MXF09PRkrxHoEB1gjH2t26yJyT +T02f8IT4s0GzLTa6uKWG1v2pzBOGVG8Mmjnp4sW1FgffEZ6Q7DNZYuariwXt +Vjlijh7wYzrJxuyKLhqXK+/bVugOA705ttev6uKIaoB3doo7vKiv3Dd1TRe5 +im3eiwS7Q17ckH1Gji5e0EkLNtvmDvslKQe/3mW//H3a3D8MucFT4373hHpd +jHH3S70n5QaZKZuDW4Z1UbfUoNUo3xXiA4kQ6c+6WLqKiMm54AqBDntDT4yy +9TvJLUcOcQWrDSfDxb/rYuqtxQozS1dYzWqP9JzVRTrXD/O6aRc4MRSUwMNN +wSVyV32riQts13x21UydgievJ+ZuXHQGu9Wm1u2aFPSbVBW/MOoMR963rN+n +Q8G/hvWv+Tqc4Xzi68hDNAqWNXhftr3tDG9Hu9wjjChYXrNPm2uvMxzKHtF5 +YENB+o03mpcPOEGUIOdLuVMU1FmCuceTjnBpLCr6diQFKd/jSRYtjpD/aBWh +cYaCD1PETZZvOsILb+5Sg3gKCv+SVB2zdwTBF/zptqkU9OgzTKl67gDZUTKu +SfkULK4yF9xcuB8eThv8+9NKwY+HVQaJZDvIeVXlsvcNBe1uH+zk8rWD6Fu6 +L4o6Kdj/N+PXxF47MNunmuHWS0GjLV915cl20FUjQev8SMHOwG+HBXL3wfjp +ed+iGfb6bQbvn1pbEBOoGj8koYcNuaMousYG5sd09jRI6SHHQoLN8+/WMPC4 +iCUpq4fdA2eHL3dYQ45ffnyHoh4aXR+bOZdlDWo9acqoroezorbjvTRrMM7y +d5FEPdSYoHS3HNsLPmo6fW/c9DCc4+VD+5ndEPBH4q+Thx5a+HayMvt3Q3jj +SonJI3roP/L6wELjbki067Zfe1wPhbT7pMVTd8Od6OB3xqF6ePMez1Sd9m4Y +HnjYW35eD30WxTpSAq3A9pxFT1qVHqbw9nSrqO6EA3aUP4o1emhCDbMZ5NgJ +hxSlSWV1eqhrNOr8/O0O8GNN2rY+1kOyKY+W/pkdkPw55e3qV3pYstl0R9qg +Jbxg9nYHDenh5yk98cUsC2BOHuqy56Hi7YTzPzm3mYFY7fbcOl4q7t5Es9iv +aAaTcSrHZfmoGPNWals/pxlkyf/k/SxERZa9+1HbR6awZB225bgUFes19/er +GZrCo9qUslhNKgak1pzVY24Ho4SHyeU2VEwUikxId9gGErY5B8XsqCin+Cmq +nNgGvxSi1UL2U1G7potrWn4b5NaZNRNOVKSNPucbGNsKK352Lbd4UBE2OXDu +Cd4KTbbffIbCqPhs52LovetbYJsSecf6XCr7viUnK8lpDBUTT+UP5VExLJ2k +NjBmBEpVfr9r8ql4niS6orbdCFaZt93wKKRip+NA3JtsI2g8FvurqYKK8os8 +wQeNjYConUkPfU7FXUPzlIGzCNQ9b4ZHv1MxKqn1rMx/BORLRlQRP6hYXKQ+ +kkEjQPSzWlLaFBW9Ui9sMOMjYCYoXm/LbypaeLw9bVzHhLLrEJ+1TMUba+Ns +r0owQfPrfXUbIRq2OhXw3x8ygE2RZ4MbaTRUk+cNGEzWhzqDW1yWDBrGGb8s +9zqiD1Z/HqV2G9JQobxiUXOrPgT7zN4bM6Lh3OTgfes5OjQ7On/ks6Sh/n3f +I/yudPDQp5o7ONMwN4QVL2RMg4JfHyVn4mlYxhOWkKWkB0TRwp2TiTT8EDqX +ab1KDzo8SdQ152nYnHyFj/6JAn+HLK0kLtLwZMINzdg8Cpi3VUXjdRr+HuhR +199IgfHCcxNJpTScZe6xaKHogoqb/qMNfTTc+nD+JemYNlxQ2Pn3zAANh6uk +x/tttGHmg4ve8CANN5w8X/vYUBse7k8qzBqhYXWQ4duptdqwx+pDOmmChufM +TWI+3NGCEIOY4zwcdEzInLC81q0JzYJv5Cc20FGbN/VoD686qLd9drTYREdJ +l7oYvY9qkJr0N71AhY4u4WciX1eqgeMaJT53TTpu0Hz1r8BFDX4sBP4dpNNR +LEHMZn29KoiNSXW2W9BxDse/YLgKuD30iK44QcezDpm0GIVNMOk9HrTNn47v +duuZXfu3EYKlvY6+DaRjP2/+mYmujXA2/NieuTA6KoUl05jxG6GEEShnGEvH +g5a5/AlTyrBQeaau6SodW8wGrC60boDU4qyZjiY6qjz3kt5VoghSTnJjrs/o +eGdFGE08WRFu8eX2zzTTsZH61lzkuCJUe99qFGulo/wydec1LUV4r3oveX8v +HQcjBI99L1eATXdYasPf6aiWleG8t0keHmV3HZoS1cdfsZfTTq2UgyFLeadA +sj5OayfKvuqQBY55b/t/Evoo9/mv5XiWLBjvXrOTS04fvygFZwrRZeEZJ4Mm +rqKPmq/tZNf4yMArlxs8RgR7v2ingcKYFPQpHSlKdtfHk01FzF1CEvCvvfKO +qKc+8meFyDBGxUHq5MqbV4/q44rmQb/DdeJwoPtaet5xfcyaiV8Vf1gchmLa +IqtD9ZEmUH/hbQMZRr9Q9g6d18ckZy1n+wgSzNxZ/qNZpY/qyQG95zaLwhdb +k+wElj4yqp5dDOEWhd5V50xHavXxoepYYdqoCNQ6S2RcbtDH+hWRkwfyRSCK +rMdYbNFHUzuX0o3KIiAQfyT8xYA+Lqy81eqhIQxqh7s53FYw0HNXzciskyDI +iEoVPFzFwJ9eZ977bxUEgSaX3eQ1DPyyY9NNqc2CMC3zM+clLwNXvWgv+/xL +AGrert2iI8rAcqZu7754ATA1wZjljQyktBaHiwfwg+uGQp6rOxi4vTeBnhaw +DkKfHjyibMXAE5pKEQpb10Gym9DLsj0MdBl4eJRDeB3U3QpJermPgSqRqVb3 +SnlBRNmUf/E/BmYvGMpV/VoLz5Q/izgHMvDzs5BC7TM8oLJJVk75BgO/ary7 +lNO3GrC5I7Ish4HtIg4fXctWg61H7Ecij4Hq2YFtHmdXw5k7E7n7ChioZuT7 +h26wGgY21W1IKGegsflh99EbXHB+s73q9+cMVHjxnFc5YBVMqVyklv1kYObJ +wJpkyxXQ+wq3CU8zMO/0t3MiGiugwWdyr/8sA6cCVOjN/CvgfJnZCepfBj5q +WZ6v7+QEFQbHvZqVBnjUUy6//wAnuJh5yzeJGeDuvWmH8kI5oOvw9nVdhgb4 +bzXe2F6wSNTyzErogQFix5OpLUGLRG5h7ubLRgZILjfourBtkTj+Y9HEzsQA +Y4aSToiMLBDrgypOD+wyQM/yKMsn8guESaz8n08uBlhLeXRy//2/RHXev4+z +8Qa4T9Txu9PfPwR1i/8f80QDnFx3JN244w/x4OP3ddnnDLD+4727h+7+Icpk +BmnmqQb47fiDi24Of4h7VxrOZWUaYMrLOiurht9EdlKM/vYiA5SW6BILTZsl +Evz5U650GqCgrF9e3ZFpgls4Pn+i2wDLC1U1h8ymidhSjjrjXgN8nK9rR988 +TURPTn35PmCAawkx85ixX8Qpjy5Doy8GOPFSZmOC5y/C1zFj7OucAQZe9p+Z +9Z8i9m9VRAMZQ7wIJOmnB38Qi13cfE1yhvjYy8M0VukHke022W+uaIjl1Oyv +98cniS+xrKD9mwxxW37IuHrwJOHbsqs4RMcQgwrG8wfTJ4izO8Nlqk0Msbnx +yU7/r9+IGrvuBcoxQ1TX+hum9maMOPC15kXdCUMknKmX43LHCI7Q7Ctb/Q3R +tuvOez3/McIk8yjFOsQQT5p6PU8gjxEd7zm9/M4YoqGIxsLyoVFi3EWjvzTd +EFeW8u8qWfeFkPSOY2k0GKLpCBRfvzhCnF9210tsZJ+vKBfff3yEWJFqUjr6 +xBAfWi5xWu8cIcYruQqyWwzxRlLzoWmeEaKGI/qKUKchfsvmfffxzDCx/1Jk +0O/PhrjkpNuiEfWRuFIboveQl4mbhNIeOVh+INbttC+V4GNi/RfJMRWRD0Tk +EF09SICJIcvDq/YPDBIeXHNKWqLs/a9mSru9BwnarkCRXBkmkkk/VHXS3hNv +h32nY7SZWFXvK7o400+IrvUq3bGPiS+lOI5Mz/QSeVtOhv60Z+JC66kZ98Ze +Qufk+S0XHZkoma66bJDcS+z8WdLd+x8TX4xfb1uj3kvEvp2dd/Vi4rv8GLrw +0R5iLjfCOPQ0Ezdy6re6znUTsQPJvNLRTDTNM7ye9bKbEBHL7XoUy8S04fsO +Wje6Ca2EJ+5cSUw8DZGbbbd3E57HeBKTLzOxKHl1T0ZmF9FncLEzv5CJb9be +tQ3b20l4BORdMytiYiYrLH1AtZP4XfTA7XsJEw2X+s0TV3USQgq9f7Qr2fYu +MV+3VnYQFtzSUvUNTLyvotYxKNNB1HXlH+rsZuLk45KouwvthDlftXpgLxMj +Bb++y3nXTvRub/lN7mci5/GrcoOV7cRMzbf4g0NM3HYrMEzRt51Qz9G6/3Wc +iU0NIQq3e9qIuj6jwKQJJh447CTQktZGmIvsBc2fTIwqO7Ta27qNcI8LeOM/ +y8RRi1KgdbYSMw2xV0lzTLxbn5LjcLGViPqb7lrzl4lxrIemS3tbCQFKgdqB +RSby22Sbyoi2ElneNbPLy+zzAonKmrevif8BeQClhQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.10048972527402701`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5928,19 +11553,19 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.10048972527402701`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5954,171 +11579,191 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwVl3k41N8Xx6kUKTsz9jWVfRkzY5jPOVSyVSpEFF8iCpV9K5I1KpQkJSQl +ZQ9jKdFCC7JESKIiRQlFWX7z++vzvJ57P8895322e+Vdju1xW8HBwfGRk4Pj +/9/fgy1PlBLzCP4fSzVpvHuIrixyiFFvFJDPWq+/dE4LULTNhdybCuZ0eQ2v +cwiBVnd7VvbmQlNh2gqLc1YgOElKne8pA8uSRye5zjnDh7qdx2Z6GsG7sGsN +f9JxMFEafz/V0wEuY/4x2+IjYb6HlvazZxg0KDWcWiHJ0LTldt6b3GlYUPO7 +oPY5G6Q+sL64qC1Ckv6ox/mwOyDi5XR3zZaVaOsEArpYDCprbj6z2rcSNX7P +Dfc4FAPmfhnOOLoSVZTcl7yCisGr11tS7dJKrJTM/HC4qBiebA1Psvq8Ek8J +cUe2rS8Bf+kMn4y4VbhZa3BrdEgJdLZ26Ki+4kKvgIGV9ealkKptUrvThhst +fSxktneWgWa//XamBzc+Gh46oTVYBq+ivTtVw7hR+umNNsGvZbC699I37hxu +FEsayqxbKoOwUyOSTd+5UZx6mVy2uRwOvYwMp0XzoP+OkIfip8qB6lbLlCtf +i5UBIY+fylVAJ19bC9+ztaiUXy9zV6UCjlcP2yz2rsWCHXKKsZQKuMu71qdv +aS0OFTuKbTCtANkyu6xL5rz48k6Fw5JPBXAvzy5xD/NiwNIbKanaCnh3Rath +SmA9nlYtOzVt+QCudhbyB25Yjz2hrg3Rtg9gP99Gp7/669Hi2NM+XucHMHBG +emmF63rky/C58M/3AQz5rDUUebAesXGgzPnKAxjb+qmKas+HnTpX2+HjA5j7 +mV4clsOPD4JbThkfrQSWqvDy8gN+PMoajTjrVwmh7ud3Rr/gx8dFSaTmsEpY +6I+eSJrmx/HVhquUkiohcqRatE1BAH068wsO3quE6NZbe4f8BfBLnNev9+OV +kJgX0bZCXBBneIUTFpyqwJziKSSqKIjfwvdGdLlXAfeTPTYb1QWxmdvKIte7 +CqJHNvRbGAmigu8BF9mwKghXePXlkqcg+tBPRdxIqwKfbPKSco0gmpDkFKua +q2D3tVI1Cwch1D/2dcp4YzUIqGUeO+AmhA4fW2S71aqhtTa67NgxIbTfyCt3 +QKcazPv30S+dEUIOd5mMncxqMJZY2vK+UAgT2gVCqvZUA+WKucOxBSEM8Nzo +mhNWDaRLIwkXrwujnRNzqO9pNZBVH0TP5QvjgYbuzsGWapBojI04UCKMJSGJ +nH2vq0Hm5+aAjU3CqJ9H46/sroYNlseda8eE8YPoGgGuz9Wgu2qROqIrggmb +j2Yuc7KAktmqbcoUQaaze0kQFwuoOtlq901EMOw/Z8FRbhYwnLcoBNmLYPFD +/7pCfhYY1SWs541g78/YPPBKigW7/MU+6bwQwe7agZBjeiyw4h0bTO8UwRda +v3450lmwJ5f1bmFABDN6GluNDFhg2+7Y9uyHCKq0jFdMIQsOqN2s2S8qiv4i +RR7jFiw4+kkzJcpZFO8ZLY6iMwu8wjiTRj1F0eChvfUtFxb4CHXGWvqJYpDV +IMHpxgJfDAwXixVFvca+tBueLAi5Vnf4bqEomsTNRwb6siDO2ozo+C2K6wM0 +uC5EsUCiolViBacYKuXFS1+KZkGRsPUfbV4xdCp7v/9CLAvedhwsSZEVwzPi +3rs8zrJAabe/wm5TMbygIuOTl8KC6pL5pcg9YqgfprCw/yILLAUi+kscxVDi +ad7TNWks8GtLuCRwQgzFaV1iW6+woHHHjdXtGWL4XXZ+lWkW2//7SiPLN8Vw +zfDg45IbLBhfd/eRZpEYZuxhdPDnsEDwVUXwhUYx1LlSM19ykwV5qgybR6/E +cF2FPGk6jwX0xEfaP96K4R/OM5dU81ngbP5ifOc3MTRy+V0bcYcFMwW7np+a +FcMbfkFemQVs/3m6bxYti+HI3faE+3fZ/jZ/cOQTIWGUuTL5wT0WGG9y0ydk +SOj2vP7C3fts/+PGRX02kXA23vX05SIWLJrMtr42JGHJsMXQ7hIWJOeHFi6a +kPAgh421fClbn9Uc8eq7SbjDdX7XKJstn641OudGQvHl/m+25SwYUkqWrj9G +wuU43oscFWx9okX/fg8hYf236rZsNl/dIldueZ6EwnMFpKcPWKBx89aF8Csk +XCvMo2JWydZvharXvVz2/8NSQ01stnUpMR24R0If+UimXhULvj7W27CuioTn +Szu2XWdzuHwtp+FjEn6/ylr4x2aB0zh49CUJyas+uO2uZus59LQms5uETPVf +0dfZTEeL9JcfSFh75PaBITa/utHu9+8r2z7Z6mlxFlvfZRsr1RkSdlUPm5uz +eeZgv5rDEglj8sfdT7A57qEzTyI3Gfv2XbG4wGYJmS+fa4TIOEZhLdxkc9HJ +o43jUmR0zJA9Vcxm4/c/syQ2knG+NbezlM1vDQPDzLXJuIlblrOQzUeu/dsX +akBGv/0BazPZvPgvknJ3Gxl/VSdOn2ZzssNqwb5dZHw7adngxGal2sQJnv1k +HM24409hc7WE4Av9Q+x1pYsiHGy2DL2c7+lDxt7HXHmNbP+G3kmeyQgm4+yh +JeVwNvvp5zi1RJEx8WFEjhqbzbP5ZiySyDgsqWTUx9ZPYU14fGsaGal/aNyR +bJ73/iq1+wYZy6p4/kqzub3LtrTzDhlbLb+JV7Djc8fgyTbbMjIeVtE5aszm +iFztvt5aMt7bSptq/n98j69bOdhKxk7PqTsP2fHn6glJd+4lY0uN50d1Ng8w +R1VHPpLx6itlxzR2/iTyNlqPzZBRNkpSeUcZC1x8Nb8eWSKjcKt2+HV2vjHe +XTs5sUYcTRTNFb6w83MsPyj/l4Q4brFw9XIuZsGj9Z8ZAUriuP72AVIqO58v +++9p+6MujuOiO+Tq2Pm+zVh9bgHFMfi6wv75Qhbkvh82W3NYHPfprXxDZtdT +yFarwYTj4hjT/7V1/W12fyus910XKo57+0y3/7vFguXgK5mC58Tx+8HJB4/Y +9eoosnNCslwcnRIXfk6y6103rPZ0Vp04tpZXbLpznQVrhzeJyT8TRz8D3Tn7 +ayxgFa8E5XfieLLjkPftDBaIWbCStZbFcfd/XuLj7P4yUaq8oZxbAo1dRII9 +UlnwhHyJpSckgbVbLiZ9SGbH74vPMGODBMr22HypOseOx2klyjYLCRxLsWoW +jGPB7bGU5ufWEvj72CLaxrDg1K5lR/ODEijTaXH+4hkWqEv3xew6IYHd3w5X +zkWw4Gz1hR77dAlMOuJ71zuYBVt//A31GZFAn8QdGVwebD1ML6k8/i6BED9F +/8Tuv0U56n3CvyVwBl5q17mygGztrM/ilsQToycIOycWfK9++melhiQ2XDTX +NLJlwcWoZP+MYEmsEQnpemfMgub+zUrfT0uip1VDzy72PFigNHUSiZLYfCze +9xGTBe6jszqfrkuibWjIqUT2PGFYOkxpNEniK49DTj3qLBgWVfZ5sl4Kqb2S +zUYkFpCOPZImkaSwv/um4l4Rdv432732lJNCKVi376AgCypDE9X4daXwltg7 +Gxdetr8ffo7b20nhjv+2KMsvV4NOQe3hH7lS2LNLqfgke16eNtz9nwRdGsd3 +9ma13a8G04NZv2jG0ljMGhrqLKgGvshvZ2wspfFz/c3Tb25Vw7WmmPxkZ2kU +TzCarb5eDdXmNd9WJ0ijRNxVQv9cNfy0UwycfieN7RLh6quOVsPBgNmzr8Jk +8HLEX59x+WpgFGVUnHokiz/mD8ZQTlXB1p7WxclmWXSIqvhPIqQKdnKs2u7U +IYuSw9fL/vlVgesen3fwWRYvqI49KfGsApMw+YhILjn8s5Ci8dm6Co7L/r5p +pCqHUnVjWmEqVfDk8I2JpkA5zDWseBPeUQlec1ORzevlMd8g9ep7sUqYVxUY +VLdRwP3nTj24YV0BhoX3si9fVsQ3JV8kJnzLYErI3Nm2UQnNMtNvMbNL4FOS +s63vGmV2PZ4PKTG9D2Y/gsw+Uzfi00b5C1vuFcB3V26/iohNSPO7b5w6c4t9 +fyetiGvcjBIpLLue1FwQeq18vuSHCm77oDd33f0GSMUXW1GpauhnzNv1oTsD +rqjqCwgfVse99iUzm7enwQsJI73pFA1cr5IfM+WWAu0yxcqr0jXweSZDzcE2 +Bd4qSJNFr2lgwcvIbW0mKfBRZf4vNV8D7zmcffJ2YwrMMUobQms08Hh1eK7L +eDIoO8hbrhjRQO32NDh6IhmiMjldBSmaeID2MdCa7wIwpBqTNd9qomAL5x7z +nEQYVlQa/NqniaXfnvCPxCdCgmqsat4HTazlXpOYdDwRehnmz8hfNbEw4WaO +ICZCkH3HP84FTTz2L+fmyIezsN/ihO64gBZ+u+iYkqNwFi7Hs9sDVQt3uW5b +Z18RD3wrc/3/i9LCHnHqS4s1sbB6/tHeqWgt/Gil4aY2FQNLk+91Tsdp4bkU +wQaZ/hj40Sc+lZ2khXufd6TRi2OgvSzFe+iyFtIj8DXYxUCqy2l3p0It1AjK +b7p0PxrEGp3tDnRp4dzXDLKk2xmQOS1raK+sjRuO/liRz3Uaivy4Fd5v0sZX +3LbDq2YigXCfWvOfqjY617hV+w5HwgGLpk4PLW08lbBFOexRJFwTPXw0mKGN +70y3ihOhkSB+t+hq+k5t/PDsSR3P5wgQ6WTOdwdq4+NG7uny/pPAs8Gxcs9z +bfztcngqXjIUjoiDeWGLNh4psFBQ4AyFF+sVBle+0safm1cVvPkSAkm/R7ke +tGujeciR035lIcDX7GdD6tNGTvnOoQbzEBA6mjjT/51t/8HmoMCIYJAqrdFx +E9LBmxG6AZNzgRB+6/qzehEdvH9/QpH+MRDeZ0TuFyPp4GzAZPDllkDIijKJ +ei6pgzNxZ4eSrwaCnHXHm80bdDDr9XadMGYgbPjz9fgkTQcb/vJYSMQFgAZT +vDjogA6269bbKW/2h3JFz38rnHXwx50RBXkhf6CvZW0/76KDB4W3bNf55wfG +PXZDeYd1sMt/0TH9tR/Ynrgi2HFCB8/K1U0d8fODiFskf7VYHbwt3hu+uckX +2teL6X8s0sG3nhpyF31PgM2MW4xXqQ4226U+1z94Avr6Hrz5U84+PwOezZid +gE+3bY7wsXTw9dL1s7flT8CcUVqmQZMOhtb2Bi+9OQ7ygSJLaT06WC7DZ3GI +ehx8B4WazDl0ceGpmIKppA80P3Osv7tCF69880pqn/cGmeL8qrVcuqj3Ilok +pNcbXkQw7r3gYfPCLymVy96gIO+SZi6sizkXez15hL3hjWvpYXNlXYy9tWny +tpAXaH3dtc7cUhdfvqBkPNx0BGLfZKy+u1MXF09PRkrxHoEB1gjH2t26yJyT +T02f8IT4s0GzLTa6uKWG1v2pzBOGVG8Mmjnp4sW1FgffEZ6Q7DNZYuariwXt +Vjlijh7wYzrJxuyKLhqXK+/bVugOA705ttev6uKIaoB3doo7vKiv3Dd1TRe5 +im3eiwS7Q17ckH1Gji5e0EkLNtvmDvslKQe/3mW//H3a3D8MucFT4373hHpd +jHH3S70n5QaZKZuDW4Z1UbfUoNUo3xXiA4kQ6c+6WLqKiMm54AqBDntDT4yy +9TvJLUcOcQWrDSfDxb/rYuqtxQozS1dYzWqP9JzVRTrXD/O6aRc4MRSUwMNN +wSVyV32riQts13x21UydgievJ+ZuXHQGu9Wm1u2aFPSbVBW/MOoMR963rN+n +Q8G/hvWv+Tqc4Xzi68hDNAqWNXhftr3tDG9Hu9wjjChYXrNPm2uvMxzKHtF5 +YENB+o03mpcPOEGUIOdLuVMU1FmCuceTjnBpLCr6diQFKd/jSRYtjpD/aBWh +cYaCD1PETZZvOsILb+5Sg3gKCv+SVB2zdwTBF/zptqkU9OgzTKl67gDZUTKu +SfkULK4yF9xcuB8eThv8+9NKwY+HVQaJZDvIeVXlsvcNBe1uH+zk8rWD6Fu6 +L4o6Kdj/N+PXxF47MNunmuHWS0GjLV915cl20FUjQev8SMHOwG+HBXL3wfjp +ed+iGfb6bQbvn1pbEBOoGj8koYcNuaMousYG5sd09jRI6SHHQoLN8+/WMPC4 +iCUpq4fdA2eHL3dYQ45ffnyHoh4aXR+bOZdlDWo9acqoroezorbjvTRrMM7y +d5FEPdSYoHS3HNsLPmo6fW/c9DCc4+VD+5ndEPBH4q+Thx5a+HayMvt3Q3jj +SonJI3roP/L6wELjbki067Zfe1wPhbT7pMVTd8Od6OB3xqF6ePMez1Sd9m4Y +HnjYW35eD30WxTpSAq3A9pxFT1qVHqbw9nSrqO6EA3aUP4o1emhCDbMZ5NgJ +hxSlSWV1eqhrNOr8/O0O8GNN2rY+1kOyKY+W/pkdkPw55e3qV3pYstl0R9qg +Jbxg9nYHDenh5yk98cUsC2BOHuqy56Hi7YTzPzm3mYFY7fbcOl4q7t5Es9iv +aAaTcSrHZfmoGPNWals/pxlkyf/k/SxERZa9+1HbR6awZB225bgUFes19/er +GZrCo9qUslhNKgak1pzVY24Ho4SHyeU2VEwUikxId9gGErY5B8XsqCin+Cmq +nNgGvxSi1UL2U1G7potrWn4b5NaZNRNOVKSNPucbGNsKK352Lbd4UBE2OXDu +Cd4KTbbffIbCqPhs52LovetbYJsSecf6XCr7viUnK8lpDBUTT+UP5VExLJ2k +NjBmBEpVfr9r8ql4niS6orbdCFaZt93wKKRip+NA3JtsI2g8FvurqYKK8os8 +wQeNjYConUkPfU7FXUPzlIGzCNQ9b4ZHv1MxKqn1rMx/BORLRlQRP6hYXKQ+ +kkEjQPSzWlLaFBW9Ui9sMOMjYCYoXm/LbypaeLw9bVzHhLLrEJ+1TMUba+Ns +r0owQfPrfXUbIRq2OhXw3x8ygE2RZ4MbaTRUk+cNGEzWhzqDW1yWDBrGGb8s +9zqiD1Z/HqV2G9JQobxiUXOrPgT7zN4bM6Lh3OTgfes5OjQ7On/ks6Sh/n3f +I/yudPDQp5o7ONMwN4QVL2RMg4JfHyVn4mlYxhOWkKWkB0TRwp2TiTT8EDqX +ab1KDzo8SdQ152nYnHyFj/6JAn+HLK0kLtLwZMINzdg8Cpi3VUXjdRr+HuhR +199IgfHCcxNJpTScZe6xaKHogoqb/qMNfTTc+nD+JemYNlxQ2Pn3zAANh6uk +x/tttGHmg4ve8CANN5w8X/vYUBse7k8qzBqhYXWQ4duptdqwx+pDOmmChufM +TWI+3NGCEIOY4zwcdEzInLC81q0JzYJv5Cc20FGbN/VoD686qLd9drTYREdJ +l7oYvY9qkJr0N71AhY4u4WciX1eqgeMaJT53TTpu0Hz1r8BFDX4sBP4dpNNR +LEHMZn29KoiNSXW2W9BxDse/YLgKuD30iK44QcezDpm0GIVNMOk9HrTNn47v +duuZXfu3EYKlvY6+DaRjP2/+mYmujXA2/NieuTA6KoUl05jxG6GEEShnGEvH +g5a5/AlTyrBQeaau6SodW8wGrC60boDU4qyZjiY6qjz3kt5VoghSTnJjrs/o +eGdFGE08WRFu8eX2zzTTsZH61lzkuCJUe99qFGulo/wydec1LUV4r3oveX8v +HQcjBI99L1eATXdYasPf6aiWleG8t0keHmV3HZoS1cdfsZfTTq2UgyFLeadA +sj5OayfKvuqQBY55b/t/Evoo9/mv5XiWLBjvXrOTS04fvygFZwrRZeEZJ4Mm +rqKPmq/tZNf4yMArlxs8RgR7v2ingcKYFPQpHSlKdtfHk01FzF1CEvCvvfKO +qKc+8meFyDBGxUHq5MqbV4/q44rmQb/DdeJwoPtaet5xfcyaiV8Vf1gchmLa +IqtD9ZEmUH/hbQMZRr9Q9g6d18ckZy1n+wgSzNxZ/qNZpY/qyQG95zaLwhdb +k+wElj4yqp5dDOEWhd5V50xHavXxoepYYdqoCNQ6S2RcbtDH+hWRkwfyRSCK +rMdYbNFHUzuX0o3KIiAQfyT8xYA+Lqy81eqhIQxqh7s53FYw0HNXzciskyDI +iEoVPFzFwJ9eZ977bxUEgSaX3eQ1DPyyY9NNqc2CMC3zM+clLwNXvWgv+/xL +AGrert2iI8rAcqZu7754ATA1wZjljQyktBaHiwfwg+uGQp6rOxi4vTeBnhaw +DkKfHjyibMXAE5pKEQpb10Gym9DLsj0MdBl4eJRDeB3U3QpJermPgSqRqVb3 +SnlBRNmUf/E/BmYvGMpV/VoLz5Q/izgHMvDzs5BC7TM8oLJJVk75BgO/ary7 +lNO3GrC5I7Ish4HtIg4fXctWg61H7Ecij4Hq2YFtHmdXw5k7E7n7ChioZuT7 +h26wGgY21W1IKGegsflh99EbXHB+s73q9+cMVHjxnFc5YBVMqVyklv1kYObJ +wJpkyxXQ+wq3CU8zMO/0t3MiGiugwWdyr/8sA6cCVOjN/CvgfJnZCepfBj5q +WZ6v7+QEFQbHvZqVBnjUUy6//wAnuJh5yzeJGeDuvWmH8kI5oOvw9nVdhgb4 +bzXe2F6wSNTyzErogQFix5OpLUGLRG5h7ubLRgZILjfourBtkTj+Y9HEzsQA +Y4aSToiMLBDrgypOD+wyQM/yKMsn8guESaz8n08uBlhLeXRy//2/RHXev4+z +8Qa4T9Txu9PfPwR1i/8f80QDnFx3JN244w/x4OP3ddnnDLD+4727h+7+Icpk +BmnmqQb47fiDi24Of4h7VxrOZWUaYMrLOiurht9EdlKM/vYiA5SW6BILTZsl +Evz5U650GqCgrF9e3ZFpgls4Pn+i2wDLC1U1h8ymidhSjjrjXgN8nK9rR988 +TURPTn35PmCAawkx85ixX8Qpjy5Doy8GOPFSZmOC5y/C1zFj7OucAQZe9p+Z +9Z8i9m9VRAMZQ7wIJOmnB38Qi13cfE1yhvjYy8M0VukHke022W+uaIjl1Oyv +98cniS+xrKD9mwxxW37IuHrwJOHbsqs4RMcQgwrG8wfTJ4izO8Nlqk0Msbnx +yU7/r9+IGrvuBcoxQ1TX+hum9maMOPC15kXdCUMknKmX43LHCI7Q7Ctb/Q3R +tuvOez3/McIk8yjFOsQQT5p6PU8gjxEd7zm9/M4YoqGIxsLyoVFi3EWjvzTd +EFeW8u8qWfeFkPSOY2k0GKLpCBRfvzhCnF9210tsZJ+vKBfff3yEWJFqUjr6 +xBAfWi5xWu8cIcYruQqyWwzxRlLzoWmeEaKGI/qKUKchfsvmfffxzDCx/1Jk +0O/PhrjkpNuiEfWRuFIboveQl4mbhNIeOVh+INbttC+V4GNi/RfJMRWRD0Tk +EF09SICJIcvDq/YPDBIeXHNKWqLs/a9mSru9BwnarkCRXBkmkkk/VHXS3hNv +h32nY7SZWFXvK7o400+IrvUq3bGPiS+lOI5Mz/QSeVtOhv60Z+JC66kZ98Ze +Qufk+S0XHZkoma66bJDcS+z8WdLd+x8TX4xfb1uj3kvEvp2dd/Vi4rv8GLrw +0R5iLjfCOPQ0Ezdy6re6znUTsQPJvNLRTDTNM7ye9bKbEBHL7XoUy8S04fsO +Wje6Ca2EJ+5cSUw8DZGbbbd3E57HeBKTLzOxKHl1T0ZmF9FncLEzv5CJb9be +tQ3b20l4BORdMytiYiYrLH1AtZP4XfTA7XsJEw2X+s0TV3USQgq9f7Qr2fYu +MV+3VnYQFtzSUvUNTLyvotYxKNNB1HXlH+rsZuLk45KouwvthDlftXpgLxMj +Bb++y3nXTvRub/lN7mci5/GrcoOV7cRMzbf4g0NM3HYrMEzRt51Qz9G6/3Wc +iU0NIQq3e9qIuj6jwKQJJh447CTQktZGmIvsBc2fTIwqO7Ta27qNcI8LeOM/ +y8RRi1KgdbYSMw2xV0lzTLxbn5LjcLGViPqb7lrzl4lxrIemS3tbCQFKgdqB +RSby22Sbyoi2ElneNbPLy+zzAonKmrevif8BeQClhQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.10048972527402701`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6129,6 +11774,7 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6156,7 +11802,8 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.10048972527402701`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6164,17 +11811,796 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913306567510605`*^9}, + CellChangeTimes->{3.9913306567510605`*^9, 3.993852643624535*^9}, CellLabel-> - "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] + "Out[119]=",ExpressionUUID->"94b24fba-8134-40ee-9066-2665fbb20ed1"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ -6bd251746ea6"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwVl3k41N8Xx6kUKTsz9jWVfRkzY5jPOVSyVSpEFF8iCpV9K5I1KpQkJSQl +ZQ9jKdFCC7JESKIiRQlFWX7z++vzvJ57P8895322e+Vdju1xW8HBwfGRk4Pj +/9/fgy1PlBLzCP4fSzVpvHuIrixyiFFvFJDPWq+/dE4LULTNhdybCuZ0eQ2v +cwiBVnd7VvbmQlNh2gqLc1YgOElKne8pA8uSRye5zjnDh7qdx2Z6GsG7sGsN +f9JxMFEafz/V0wEuY/4x2+IjYb6HlvazZxg0KDWcWiHJ0LTldt6b3GlYUPO7 +oPY5G6Q+sL64qC1Ckv6ox/mwOyDi5XR3zZaVaOsEArpYDCprbj6z2rcSNX7P +Dfc4FAPmfhnOOLoSVZTcl7yCisGr11tS7dJKrJTM/HC4qBiebA1Psvq8Ek8J +cUe2rS8Bf+kMn4y4VbhZa3BrdEgJdLZ26Ki+4kKvgIGV9ealkKptUrvThhst +fSxktneWgWa//XamBzc+Gh46oTVYBq+ivTtVw7hR+umNNsGvZbC699I37hxu +FEsayqxbKoOwUyOSTd+5UZx6mVy2uRwOvYwMp0XzoP+OkIfip8qB6lbLlCtf +i5UBIY+fylVAJ19bC9+ztaiUXy9zV6UCjlcP2yz2rsWCHXKKsZQKuMu71qdv +aS0OFTuKbTCtANkyu6xL5rz48k6Fw5JPBXAvzy5xD/NiwNIbKanaCnh3Rath +SmA9nlYtOzVt+QCudhbyB25Yjz2hrg3Rtg9gP99Gp7/669Hi2NM+XucHMHBG +emmF63rky/C58M/3AQz5rDUUebAesXGgzPnKAxjb+qmKas+HnTpX2+HjA5j7 +mV4clsOPD4JbThkfrQSWqvDy8gN+PMoajTjrVwmh7ud3Rr/gx8dFSaTmsEpY +6I+eSJrmx/HVhquUkiohcqRatE1BAH068wsO3quE6NZbe4f8BfBLnNev9+OV +kJgX0bZCXBBneIUTFpyqwJziKSSqKIjfwvdGdLlXAfeTPTYb1QWxmdvKIte7 +CqJHNvRbGAmigu8BF9mwKghXePXlkqcg+tBPRdxIqwKfbPKSco0gmpDkFKua +q2D3tVI1Cwch1D/2dcp4YzUIqGUeO+AmhA4fW2S71aqhtTa67NgxIbTfyCt3 +QKcazPv30S+dEUIOd5mMncxqMJZY2vK+UAgT2gVCqvZUA+WKucOxBSEM8Nzo +mhNWDaRLIwkXrwujnRNzqO9pNZBVH0TP5QvjgYbuzsGWapBojI04UCKMJSGJ +nH2vq0Hm5+aAjU3CqJ9H46/sroYNlseda8eE8YPoGgGuz9Wgu2qROqIrggmb +j2Yuc7KAktmqbcoUQaaze0kQFwuoOtlq901EMOw/Z8FRbhYwnLcoBNmLYPFD +/7pCfhYY1SWs541g78/YPPBKigW7/MU+6bwQwe7agZBjeiyw4h0bTO8UwRda +v3450lmwJ5f1bmFABDN6GluNDFhg2+7Y9uyHCKq0jFdMIQsOqN2s2S8qiv4i +RR7jFiw4+kkzJcpZFO8ZLY6iMwu8wjiTRj1F0eChvfUtFxb4CHXGWvqJYpDV +IMHpxgJfDAwXixVFvca+tBueLAi5Vnf4bqEomsTNRwb6siDO2ozo+C2K6wM0 +uC5EsUCiolViBacYKuXFS1+KZkGRsPUfbV4xdCp7v/9CLAvedhwsSZEVwzPi +3rs8zrJAabe/wm5TMbygIuOTl8KC6pL5pcg9YqgfprCw/yILLAUi+kscxVDi +ad7TNWks8GtLuCRwQgzFaV1iW6+woHHHjdXtGWL4XXZ+lWkW2//7SiPLN8Vw +zfDg45IbLBhfd/eRZpEYZuxhdPDnsEDwVUXwhUYx1LlSM19ykwV5qgybR6/E +cF2FPGk6jwX0xEfaP96K4R/OM5dU81ngbP5ifOc3MTRy+V0bcYcFMwW7np+a +FcMbfkFemQVs/3m6bxYti+HI3faE+3fZ/jZ/cOQTIWGUuTL5wT0WGG9y0ydk +SOj2vP7C3fts/+PGRX02kXA23vX05SIWLJrMtr42JGHJsMXQ7hIWJOeHFi6a +kPAgh421fClbn9Uc8eq7SbjDdX7XKJstn641OudGQvHl/m+25SwYUkqWrj9G +wuU43oscFWx9okX/fg8hYf236rZsNl/dIldueZ6EwnMFpKcPWKBx89aF8Csk +XCvMo2JWydZvharXvVz2/8NSQ01stnUpMR24R0If+UimXhULvj7W27CuioTn +Szu2XWdzuHwtp+FjEn6/ylr4x2aB0zh49CUJyas+uO2uZus59LQms5uETPVf +0dfZTEeL9JcfSFh75PaBITa/utHu9+8r2z7Z6mlxFlvfZRsr1RkSdlUPm5uz +eeZgv5rDEglj8sfdT7A57qEzTyI3Gfv2XbG4wGYJmS+fa4TIOEZhLdxkc9HJ +o43jUmR0zJA9Vcxm4/c/syQ2knG+NbezlM1vDQPDzLXJuIlblrOQzUeu/dsX +akBGv/0BazPZvPgvknJ3Gxl/VSdOn2ZzssNqwb5dZHw7adngxGal2sQJnv1k +HM24409hc7WE4Av9Q+x1pYsiHGy2DL2c7+lDxt7HXHmNbP+G3kmeyQgm4+yh +JeVwNvvp5zi1RJEx8WFEjhqbzbP5ZiySyDgsqWTUx9ZPYU14fGsaGal/aNyR +bJ73/iq1+wYZy6p4/kqzub3LtrTzDhlbLb+JV7Djc8fgyTbbMjIeVtE5aszm +iFztvt5aMt7bSptq/n98j69bOdhKxk7PqTsP2fHn6glJd+4lY0uN50d1Ng8w +R1VHPpLx6itlxzR2/iTyNlqPzZBRNkpSeUcZC1x8Nb8eWSKjcKt2+HV2vjHe +XTs5sUYcTRTNFb6w83MsPyj/l4Q4brFw9XIuZsGj9Z8ZAUriuP72AVIqO58v +++9p+6MujuOiO+Tq2Pm+zVh9bgHFMfi6wv75Qhbkvh82W3NYHPfprXxDZtdT +yFarwYTj4hjT/7V1/W12fyus910XKo57+0y3/7vFguXgK5mC58Tx+8HJB4/Y +9eoosnNCslwcnRIXfk6y6103rPZ0Vp04tpZXbLpznQVrhzeJyT8TRz8D3Tn7 +ayxgFa8E5XfieLLjkPftDBaIWbCStZbFcfd/XuLj7P4yUaq8oZxbAo1dRII9 +UlnwhHyJpSckgbVbLiZ9SGbH74vPMGODBMr22HypOseOx2klyjYLCRxLsWoW +jGPB7bGU5ufWEvj72CLaxrDg1K5lR/ODEijTaXH+4hkWqEv3xew6IYHd3w5X +zkWw4Gz1hR77dAlMOuJ71zuYBVt//A31GZFAn8QdGVwebD1ML6k8/i6BED9F +/8Tuv0U56n3CvyVwBl5q17mygGztrM/ilsQToycIOycWfK9++melhiQ2XDTX +NLJlwcWoZP+MYEmsEQnpemfMgub+zUrfT0uip1VDzy72PFigNHUSiZLYfCze +9xGTBe6jszqfrkuibWjIqUT2PGFYOkxpNEniK49DTj3qLBgWVfZ5sl4Kqb2S +zUYkFpCOPZImkaSwv/um4l4Rdv432732lJNCKVi376AgCypDE9X4daXwltg7 +Gxdetr8ffo7b20nhjv+2KMsvV4NOQe3hH7lS2LNLqfgke16eNtz9nwRdGsd3 +9ma13a8G04NZv2jG0ljMGhrqLKgGvshvZ2wspfFz/c3Tb25Vw7WmmPxkZ2kU +TzCarb5eDdXmNd9WJ0ijRNxVQv9cNfy0UwycfieN7RLh6quOVsPBgNmzr8Jk +8HLEX59x+WpgFGVUnHokiz/mD8ZQTlXB1p7WxclmWXSIqvhPIqQKdnKs2u7U +IYuSw9fL/vlVgesen3fwWRYvqI49KfGsApMw+YhILjn8s5Ci8dm6Co7L/r5p +pCqHUnVjWmEqVfDk8I2JpkA5zDWseBPeUQlec1ORzevlMd8g9ep7sUqYVxUY +VLdRwP3nTj24YV0BhoX3si9fVsQ3JV8kJnzLYErI3Nm2UQnNMtNvMbNL4FOS +s63vGmV2PZ4PKTG9D2Y/gsw+Uzfi00b5C1vuFcB3V26/iohNSPO7b5w6c4t9 +fyetiGvcjBIpLLue1FwQeq18vuSHCm77oDd33f0GSMUXW1GpauhnzNv1oTsD +rqjqCwgfVse99iUzm7enwQsJI73pFA1cr5IfM+WWAu0yxcqr0jXweSZDzcE2 +Bd4qSJNFr2lgwcvIbW0mKfBRZf4vNV8D7zmcffJ2YwrMMUobQms08Hh1eK7L +eDIoO8hbrhjRQO32NDh6IhmiMjldBSmaeID2MdCa7wIwpBqTNd9qomAL5x7z +nEQYVlQa/NqniaXfnvCPxCdCgmqsat4HTazlXpOYdDwRehnmz8hfNbEw4WaO +ICZCkH3HP84FTTz2L+fmyIezsN/ihO64gBZ+u+iYkqNwFi7Hs9sDVQt3uW5b +Z18RD3wrc/3/i9LCHnHqS4s1sbB6/tHeqWgt/Gil4aY2FQNLk+91Tsdp4bkU +wQaZ/hj40Sc+lZ2khXufd6TRi2OgvSzFe+iyFtIj8DXYxUCqy2l3p0It1AjK +b7p0PxrEGp3tDnRp4dzXDLKk2xmQOS1raK+sjRuO/liRz3Uaivy4Fd5v0sZX +3LbDq2YigXCfWvOfqjY617hV+w5HwgGLpk4PLW08lbBFOexRJFwTPXw0mKGN +70y3ihOhkSB+t+hq+k5t/PDsSR3P5wgQ6WTOdwdq4+NG7uny/pPAs8Gxcs9z +bfztcngqXjIUjoiDeWGLNh4psFBQ4AyFF+sVBle+0safm1cVvPkSAkm/R7ke +tGujeciR035lIcDX7GdD6tNGTvnOoQbzEBA6mjjT/51t/8HmoMCIYJAqrdFx +E9LBmxG6AZNzgRB+6/qzehEdvH9/QpH+MRDeZ0TuFyPp4GzAZPDllkDIijKJ +ei6pgzNxZ4eSrwaCnHXHm80bdDDr9XadMGYgbPjz9fgkTQcb/vJYSMQFgAZT +vDjogA6269bbKW/2h3JFz38rnHXwx50RBXkhf6CvZW0/76KDB4W3bNf55wfG +PXZDeYd1sMt/0TH9tR/Ynrgi2HFCB8/K1U0d8fODiFskf7VYHbwt3hu+uckX +2teL6X8s0sG3nhpyF31PgM2MW4xXqQ4226U+1z94Avr6Hrz5U84+PwOezZid +gE+3bY7wsXTw9dL1s7flT8CcUVqmQZMOhtb2Bi+9OQ7ygSJLaT06WC7DZ3GI +ehx8B4WazDl0ceGpmIKppA80P3Osv7tCF69880pqn/cGmeL8qrVcuqj3Ilok +pNcbXkQw7r3gYfPCLymVy96gIO+SZi6sizkXez15hL3hjWvpYXNlXYy9tWny +tpAXaH3dtc7cUhdfvqBkPNx0BGLfZKy+u1MXF09PRkrxHoEB1gjH2t26yJyT +T02f8IT4s0GzLTa6uKWG1v2pzBOGVG8Mmjnp4sW1FgffEZ6Q7DNZYuariwXt +Vjlijh7wYzrJxuyKLhqXK+/bVugOA705ttev6uKIaoB3doo7vKiv3Dd1TRe5 +im3eiwS7Q17ckH1Gji5e0EkLNtvmDvslKQe/3mW//H3a3D8MucFT4373hHpd +jHH3S70n5QaZKZuDW4Z1UbfUoNUo3xXiA4kQ6c+6WLqKiMm54AqBDntDT4yy +9TvJLUcOcQWrDSfDxb/rYuqtxQozS1dYzWqP9JzVRTrXD/O6aRc4MRSUwMNN +wSVyV32riQts13x21UydgievJ+ZuXHQGu9Wm1u2aFPSbVBW/MOoMR963rN+n +Q8G/hvWv+Tqc4Xzi68hDNAqWNXhftr3tDG9Hu9wjjChYXrNPm2uvMxzKHtF5 +YENB+o03mpcPOEGUIOdLuVMU1FmCuceTjnBpLCr6diQFKd/jSRYtjpD/aBWh +cYaCD1PETZZvOsILb+5Sg3gKCv+SVB2zdwTBF/zptqkU9OgzTKl67gDZUTKu +SfkULK4yF9xcuB8eThv8+9NKwY+HVQaJZDvIeVXlsvcNBe1uH+zk8rWD6Fu6 +L4o6Kdj/N+PXxF47MNunmuHWS0GjLV915cl20FUjQev8SMHOwG+HBXL3wfjp +ed+iGfb6bQbvn1pbEBOoGj8koYcNuaMousYG5sd09jRI6SHHQoLN8+/WMPC4 +iCUpq4fdA2eHL3dYQ45ffnyHoh4aXR+bOZdlDWo9acqoroezorbjvTRrMM7y +d5FEPdSYoHS3HNsLPmo6fW/c9DCc4+VD+5ndEPBH4q+Thx5a+HayMvt3Q3jj +SonJI3roP/L6wELjbki067Zfe1wPhbT7pMVTd8Od6OB3xqF6ePMez1Sd9m4Y +HnjYW35eD30WxTpSAq3A9pxFT1qVHqbw9nSrqO6EA3aUP4o1emhCDbMZ5NgJ +hxSlSWV1eqhrNOr8/O0O8GNN2rY+1kOyKY+W/pkdkPw55e3qV3pYstl0R9qg +Jbxg9nYHDenh5yk98cUsC2BOHuqy56Hi7YTzPzm3mYFY7fbcOl4q7t5Es9iv +aAaTcSrHZfmoGPNWals/pxlkyf/k/SxERZa9+1HbR6awZB225bgUFes19/er +GZrCo9qUslhNKgak1pzVY24Ho4SHyeU2VEwUikxId9gGErY5B8XsqCin+Cmq +nNgGvxSi1UL2U1G7potrWn4b5NaZNRNOVKSNPucbGNsKK352Lbd4UBE2OXDu +Cd4KTbbffIbCqPhs52LovetbYJsSecf6XCr7viUnK8lpDBUTT+UP5VExLJ2k +NjBmBEpVfr9r8ql4niS6orbdCFaZt93wKKRip+NA3JtsI2g8FvurqYKK8os8 +wQeNjYConUkPfU7FXUPzlIGzCNQ9b4ZHv1MxKqn1rMx/BORLRlQRP6hYXKQ+ +kkEjQPSzWlLaFBW9Ui9sMOMjYCYoXm/LbypaeLw9bVzHhLLrEJ+1TMUba+Ns +r0owQfPrfXUbIRq2OhXw3x8ygE2RZ4MbaTRUk+cNGEzWhzqDW1yWDBrGGb8s +9zqiD1Z/HqV2G9JQobxiUXOrPgT7zN4bM6Lh3OTgfes5OjQ7On/ks6Sh/n3f +I/yudPDQp5o7ONMwN4QVL2RMg4JfHyVn4mlYxhOWkKWkB0TRwp2TiTT8EDqX +ab1KDzo8SdQ152nYnHyFj/6JAn+HLK0kLtLwZMINzdg8Cpi3VUXjdRr+HuhR +199IgfHCcxNJpTScZe6xaKHogoqb/qMNfTTc+nD+JemYNlxQ2Pn3zAANh6uk +x/tttGHmg4ve8CANN5w8X/vYUBse7k8qzBqhYXWQ4duptdqwx+pDOmmChufM +TWI+3NGCEIOY4zwcdEzInLC81q0JzYJv5Cc20FGbN/VoD686qLd9drTYREdJ +l7oYvY9qkJr0N71AhY4u4WciX1eqgeMaJT53TTpu0Hz1r8BFDX4sBP4dpNNR +LEHMZn29KoiNSXW2W9BxDse/YLgKuD30iK44QcezDpm0GIVNMOk9HrTNn47v +duuZXfu3EYKlvY6+DaRjP2/+mYmujXA2/NieuTA6KoUl05jxG6GEEShnGEvH +g5a5/AlTyrBQeaau6SodW8wGrC60boDU4qyZjiY6qjz3kt5VoghSTnJjrs/o +eGdFGE08WRFu8eX2zzTTsZH61lzkuCJUe99qFGulo/wydec1LUV4r3oveX8v +HQcjBI99L1eATXdYasPf6aiWleG8t0keHmV3HZoS1cdfsZfTTq2UgyFLeadA +sj5OayfKvuqQBY55b/t/Evoo9/mv5XiWLBjvXrOTS04fvygFZwrRZeEZJ4Mm +rqKPmq/tZNf4yMArlxs8RgR7v2ingcKYFPQpHSlKdtfHk01FzF1CEvCvvfKO +qKc+8meFyDBGxUHq5MqbV4/q44rmQb/DdeJwoPtaet5xfcyaiV8Vf1gchmLa +IqtD9ZEmUH/hbQMZRr9Q9g6d18ckZy1n+wgSzNxZ/qNZpY/qyQG95zaLwhdb +k+wElj4yqp5dDOEWhd5V50xHavXxoepYYdqoCNQ6S2RcbtDH+hWRkwfyRSCK +rMdYbNFHUzuX0o3KIiAQfyT8xYA+Lqy81eqhIQxqh7s53FYw0HNXzciskyDI +iEoVPFzFwJ9eZ977bxUEgSaX3eQ1DPyyY9NNqc2CMC3zM+clLwNXvWgv+/xL +AGrert2iI8rAcqZu7754ATA1wZjljQyktBaHiwfwg+uGQp6rOxi4vTeBnhaw +DkKfHjyibMXAE5pKEQpb10Gym9DLsj0MdBl4eJRDeB3U3QpJermPgSqRqVb3 +SnlBRNmUf/E/BmYvGMpV/VoLz5Q/izgHMvDzs5BC7TM8oLJJVk75BgO/ary7 +lNO3GrC5I7Ish4HtIg4fXctWg61H7Ecij4Hq2YFtHmdXw5k7E7n7ChioZuT7 +h26wGgY21W1IKGegsflh99EbXHB+s73q9+cMVHjxnFc5YBVMqVyklv1kYObJ +wJpkyxXQ+wq3CU8zMO/0t3MiGiugwWdyr/8sA6cCVOjN/CvgfJnZCepfBj5q +WZ6v7+QEFQbHvZqVBnjUUy6//wAnuJh5yzeJGeDuvWmH8kI5oOvw9nVdhgb4 +bzXe2F6wSNTyzErogQFix5OpLUGLRG5h7ubLRgZILjfourBtkTj+Y9HEzsQA +Y4aSToiMLBDrgypOD+wyQM/yKMsn8guESaz8n08uBlhLeXRy//2/RHXev4+z +8Qa4T9Txu9PfPwR1i/8f80QDnFx3JN244w/x4OP3ddnnDLD+4727h+7+Icpk +BmnmqQb47fiDi24Of4h7VxrOZWUaYMrLOiurht9EdlKM/vYiA5SW6BILTZsl +Evz5U650GqCgrF9e3ZFpgls4Pn+i2wDLC1U1h8ymidhSjjrjXgN8nK9rR988 +TURPTn35PmCAawkx85ixX8Qpjy5Doy8GOPFSZmOC5y/C1zFj7OucAQZe9p+Z +9Z8i9m9VRAMZQ7wIJOmnB38Qi13cfE1yhvjYy8M0VukHke022W+uaIjl1Oyv +98cniS+xrKD9mwxxW37IuHrwJOHbsqs4RMcQgwrG8wfTJ4izO8Nlqk0Msbnx +yU7/r9+IGrvuBcoxQ1TX+hum9maMOPC15kXdCUMknKmX43LHCI7Q7Ctb/Q3R +tuvOez3/McIk8yjFOsQQT5p6PU8gjxEd7zm9/M4YoqGIxsLyoVFi3EWjvzTd +EFeW8u8qWfeFkPSOY2k0GKLpCBRfvzhCnF9210tsZJ+vKBfff3yEWJFqUjr6 +xBAfWi5xWu8cIcYruQqyWwzxRlLzoWmeEaKGI/qKUKchfsvmfffxzDCx/1Jk +0O/PhrjkpNuiEfWRuFIboveQl4mbhNIeOVh+INbttC+V4GNi/RfJMRWRD0Tk +EF09SICJIcvDq/YPDBIeXHNKWqLs/a9mSru9BwnarkCRXBkmkkk/VHXS3hNv +h32nY7SZWFXvK7o400+IrvUq3bGPiS+lOI5Mz/QSeVtOhv60Z+JC66kZ98Ze +Qufk+S0XHZkoma66bJDcS+z8WdLd+x8TX4xfb1uj3kvEvp2dd/Vi4rv8GLrw +0R5iLjfCOPQ0Ezdy6re6znUTsQPJvNLRTDTNM7ye9bKbEBHL7XoUy8S04fsO +Wje6Ca2EJ+5cSUw8DZGbbbd3E57HeBKTLzOxKHl1T0ZmF9FncLEzv5CJb9be +tQ3b20l4BORdMytiYiYrLH1AtZP4XfTA7XsJEw2X+s0TV3USQgq9f7Qr2fYu +MV+3VnYQFtzSUvUNTLyvotYxKNNB1HXlH+rsZuLk45KouwvthDlftXpgLxMj +Bb++y3nXTvRub/lN7mci5/GrcoOV7cRMzbf4g0NM3HYrMEzRt51Qz9G6/3Wc +iU0NIQq3e9qIuj6jwKQJJh447CTQktZGmIvsBc2fTIwqO7Ta27qNcI8LeOM/ +y8RRi1KgdbYSMw2xV0lzTLxbn5LjcLGViPqb7lrzl4lxrIemS3tbCQFKgdqB +RSby22Sbyoi2ElneNbPLy+zzAonKmrevif8BeQClhQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k41N8Xx6kUKTsz9jWVfRkzY5jPOVSyVSpEFF8iCpV9K5I1KpQkJSQl +ZQ9jKdFCC7JESKIiRQlFWX7z++vzvJ57P8895322e+Vdju1xW8HBwfGRk4Pj +/9/fgy1PlBLzCP4fSzVpvHuIrixyiFFvFJDPWq+/dE4LULTNhdybCuZ0eQ2v +cwiBVnd7VvbmQlNh2gqLc1YgOElKne8pA8uSRye5zjnDh7qdx2Z6GsG7sGsN +f9JxMFEafz/V0wEuY/4x2+IjYb6HlvazZxg0KDWcWiHJ0LTldt6b3GlYUPO7 +oPY5G6Q+sL64qC1Ckv6ox/mwOyDi5XR3zZaVaOsEArpYDCprbj6z2rcSNX7P +Dfc4FAPmfhnOOLoSVZTcl7yCisGr11tS7dJKrJTM/HC4qBiebA1Psvq8Ek8J +cUe2rS8Bf+kMn4y4VbhZa3BrdEgJdLZ26Ki+4kKvgIGV9ealkKptUrvThhst +fSxktneWgWa//XamBzc+Gh46oTVYBq+ivTtVw7hR+umNNsGvZbC699I37hxu +FEsayqxbKoOwUyOSTd+5UZx6mVy2uRwOvYwMp0XzoP+OkIfip8qB6lbLlCtf +i5UBIY+fylVAJ19bC9+ztaiUXy9zV6UCjlcP2yz2rsWCHXKKsZQKuMu71qdv +aS0OFTuKbTCtANkyu6xL5rz48k6Fw5JPBXAvzy5xD/NiwNIbKanaCnh3Rath +SmA9nlYtOzVt+QCudhbyB25Yjz2hrg3Rtg9gP99Gp7/669Hi2NM+XucHMHBG +emmF63rky/C58M/3AQz5rDUUebAesXGgzPnKAxjb+qmKas+HnTpX2+HjA5j7 +mV4clsOPD4JbThkfrQSWqvDy8gN+PMoajTjrVwmh7ud3Rr/gx8dFSaTmsEpY +6I+eSJrmx/HVhquUkiohcqRatE1BAH068wsO3quE6NZbe4f8BfBLnNev9+OV +kJgX0bZCXBBneIUTFpyqwJziKSSqKIjfwvdGdLlXAfeTPTYb1QWxmdvKIte7 +CqJHNvRbGAmigu8BF9mwKghXePXlkqcg+tBPRdxIqwKfbPKSco0gmpDkFKua +q2D3tVI1Cwch1D/2dcp4YzUIqGUeO+AmhA4fW2S71aqhtTa67NgxIbTfyCt3 +QKcazPv30S+dEUIOd5mMncxqMJZY2vK+UAgT2gVCqvZUA+WKucOxBSEM8Nzo +mhNWDaRLIwkXrwujnRNzqO9pNZBVH0TP5QvjgYbuzsGWapBojI04UCKMJSGJ +nH2vq0Hm5+aAjU3CqJ9H46/sroYNlseda8eE8YPoGgGuz9Wgu2qROqIrggmb +j2Yuc7KAktmqbcoUQaaze0kQFwuoOtlq901EMOw/Z8FRbhYwnLcoBNmLYPFD +/7pCfhYY1SWs541g78/YPPBKigW7/MU+6bwQwe7agZBjeiyw4h0bTO8UwRda +v3450lmwJ5f1bmFABDN6GluNDFhg2+7Y9uyHCKq0jFdMIQsOqN2s2S8qiv4i +RR7jFiw4+kkzJcpZFO8ZLY6iMwu8wjiTRj1F0eChvfUtFxb4CHXGWvqJYpDV +IMHpxgJfDAwXixVFvca+tBueLAi5Vnf4bqEomsTNRwb6siDO2ozo+C2K6wM0 +uC5EsUCiolViBacYKuXFS1+KZkGRsPUfbV4xdCp7v/9CLAvedhwsSZEVwzPi +3rs8zrJAabe/wm5TMbygIuOTl8KC6pL5pcg9YqgfprCw/yILLAUi+kscxVDi +ad7TNWks8GtLuCRwQgzFaV1iW6+woHHHjdXtGWL4XXZ+lWkW2//7SiPLN8Vw +zfDg45IbLBhfd/eRZpEYZuxhdPDnsEDwVUXwhUYx1LlSM19ykwV5qgybR6/E +cF2FPGk6jwX0xEfaP96K4R/OM5dU81ngbP5ifOc3MTRy+V0bcYcFMwW7np+a +FcMbfkFemQVs/3m6bxYti+HI3faE+3fZ/jZ/cOQTIWGUuTL5wT0WGG9y0ydk +SOj2vP7C3fts/+PGRX02kXA23vX05SIWLJrMtr42JGHJsMXQ7hIWJOeHFi6a +kPAgh421fClbn9Uc8eq7SbjDdX7XKJstn641OudGQvHl/m+25SwYUkqWrj9G +wuU43oscFWx9okX/fg8hYf236rZsNl/dIldueZ6EwnMFpKcPWKBx89aF8Csk +XCvMo2JWydZvharXvVz2/8NSQ01stnUpMR24R0If+UimXhULvj7W27CuioTn +Szu2XWdzuHwtp+FjEn6/ylr4x2aB0zh49CUJyas+uO2uZus59LQms5uETPVf +0dfZTEeL9JcfSFh75PaBITa/utHu9+8r2z7Z6mlxFlvfZRsr1RkSdlUPm5uz +eeZgv5rDEglj8sfdT7A57qEzTyI3Gfv2XbG4wGYJmS+fa4TIOEZhLdxkc9HJ +o43jUmR0zJA9Vcxm4/c/syQ2knG+NbezlM1vDQPDzLXJuIlblrOQzUeu/dsX +akBGv/0BazPZvPgvknJ3Gxl/VSdOn2ZzssNqwb5dZHw7adngxGal2sQJnv1k +HM24409hc7WE4Av9Q+x1pYsiHGy2DL2c7+lDxt7HXHmNbP+G3kmeyQgm4+yh +JeVwNvvp5zi1RJEx8WFEjhqbzbP5ZiySyDgsqWTUx9ZPYU14fGsaGal/aNyR +bJ73/iq1+wYZy6p4/kqzub3LtrTzDhlbLb+JV7Djc8fgyTbbMjIeVtE5aszm +iFztvt5aMt7bSptq/n98j69bOdhKxk7PqTsP2fHn6glJd+4lY0uN50d1Ng8w +R1VHPpLx6itlxzR2/iTyNlqPzZBRNkpSeUcZC1x8Nb8eWSKjcKt2+HV2vjHe +XTs5sUYcTRTNFb6w83MsPyj/l4Q4brFw9XIuZsGj9Z8ZAUriuP72AVIqO58v +++9p+6MujuOiO+Tq2Pm+zVh9bgHFMfi6wv75Qhbkvh82W3NYHPfprXxDZtdT +yFarwYTj4hjT/7V1/W12fyus910XKo57+0y3/7vFguXgK5mC58Tx+8HJB4/Y +9eoosnNCslwcnRIXfk6y6103rPZ0Vp04tpZXbLpznQVrhzeJyT8TRz8D3Tn7 +ayxgFa8E5XfieLLjkPftDBaIWbCStZbFcfd/XuLj7P4yUaq8oZxbAo1dRII9 +UlnwhHyJpSckgbVbLiZ9SGbH74vPMGODBMr22HypOseOx2klyjYLCRxLsWoW +jGPB7bGU5ufWEvj72CLaxrDg1K5lR/ODEijTaXH+4hkWqEv3xew6IYHd3w5X +zkWw4Gz1hR77dAlMOuJ71zuYBVt//A31GZFAn8QdGVwebD1ML6k8/i6BED9F +/8Tuv0U56n3CvyVwBl5q17mygGztrM/ilsQToycIOycWfK9++melhiQ2XDTX +NLJlwcWoZP+MYEmsEQnpemfMgub+zUrfT0uip1VDzy72PFigNHUSiZLYfCze +9xGTBe6jszqfrkuibWjIqUT2PGFYOkxpNEniK49DTj3qLBgWVfZ5sl4Kqb2S +zUYkFpCOPZImkaSwv/um4l4Rdv432732lJNCKVi376AgCypDE9X4daXwltg7 +Gxdetr8ffo7b20nhjv+2KMsvV4NOQe3hH7lS2LNLqfgke16eNtz9nwRdGsd3 +9ma13a8G04NZv2jG0ljMGhrqLKgGvshvZ2wspfFz/c3Tb25Vw7WmmPxkZ2kU +TzCarb5eDdXmNd9WJ0ijRNxVQv9cNfy0UwycfieN7RLh6quOVsPBgNmzr8Jk +8HLEX59x+WpgFGVUnHokiz/mD8ZQTlXB1p7WxclmWXSIqvhPIqQKdnKs2u7U +IYuSw9fL/vlVgesen3fwWRYvqI49KfGsApMw+YhILjn8s5Ci8dm6Co7L/r5p +pCqHUnVjWmEqVfDk8I2JpkA5zDWseBPeUQlec1ORzevlMd8g9ep7sUqYVxUY +VLdRwP3nTj24YV0BhoX3si9fVsQ3JV8kJnzLYErI3Nm2UQnNMtNvMbNL4FOS +s63vGmV2PZ4PKTG9D2Y/gsw+Uzfi00b5C1vuFcB3V26/iohNSPO7b5w6c4t9 +fyetiGvcjBIpLLue1FwQeq18vuSHCm77oDd33f0GSMUXW1GpauhnzNv1oTsD +rqjqCwgfVse99iUzm7enwQsJI73pFA1cr5IfM+WWAu0yxcqr0jXweSZDzcE2 +Bd4qSJNFr2lgwcvIbW0mKfBRZf4vNV8D7zmcffJ2YwrMMUobQms08Hh1eK7L +eDIoO8hbrhjRQO32NDh6IhmiMjldBSmaeID2MdCa7wIwpBqTNd9qomAL5x7z +nEQYVlQa/NqniaXfnvCPxCdCgmqsat4HTazlXpOYdDwRehnmz8hfNbEw4WaO +ICZCkH3HP84FTTz2L+fmyIezsN/ihO64gBZ+u+iYkqNwFi7Hs9sDVQt3uW5b +Z18RD3wrc/3/i9LCHnHqS4s1sbB6/tHeqWgt/Gil4aY2FQNLk+91Tsdp4bkU +wQaZ/hj40Sc+lZ2khXufd6TRi2OgvSzFe+iyFtIj8DXYxUCqy2l3p0It1AjK +b7p0PxrEGp3tDnRp4dzXDLKk2xmQOS1raK+sjRuO/liRz3Uaivy4Fd5v0sZX +3LbDq2YigXCfWvOfqjY617hV+w5HwgGLpk4PLW08lbBFOexRJFwTPXw0mKGN +70y3ihOhkSB+t+hq+k5t/PDsSR3P5wgQ6WTOdwdq4+NG7uny/pPAs8Gxcs9z +bfztcngqXjIUjoiDeWGLNh4psFBQ4AyFF+sVBle+0safm1cVvPkSAkm/R7ke +tGujeciR035lIcDX7GdD6tNGTvnOoQbzEBA6mjjT/51t/8HmoMCIYJAqrdFx +E9LBmxG6AZNzgRB+6/qzehEdvH9/QpH+MRDeZ0TuFyPp4GzAZPDllkDIijKJ +ei6pgzNxZ4eSrwaCnHXHm80bdDDr9XadMGYgbPjz9fgkTQcb/vJYSMQFgAZT +vDjogA6269bbKW/2h3JFz38rnHXwx50RBXkhf6CvZW0/76KDB4W3bNf55wfG +PXZDeYd1sMt/0TH9tR/Ynrgi2HFCB8/K1U0d8fODiFskf7VYHbwt3hu+uckX +2teL6X8s0sG3nhpyF31PgM2MW4xXqQ4226U+1z94Avr6Hrz5U84+PwOezZid +gE+3bY7wsXTw9dL1s7flT8CcUVqmQZMOhtb2Bi+9OQ7ygSJLaT06WC7DZ3GI +ehx8B4WazDl0ceGpmIKppA80P3Osv7tCF69880pqn/cGmeL8qrVcuqj3Ilok +pNcbXkQw7r3gYfPCLymVy96gIO+SZi6sizkXez15hL3hjWvpYXNlXYy9tWny +tpAXaH3dtc7cUhdfvqBkPNx0BGLfZKy+u1MXF09PRkrxHoEB1gjH2t26yJyT +T02f8IT4s0GzLTa6uKWG1v2pzBOGVG8Mmjnp4sW1FgffEZ6Q7DNZYuariwXt +Vjlijh7wYzrJxuyKLhqXK+/bVugOA705ttev6uKIaoB3doo7vKiv3Dd1TRe5 +im3eiwS7Q17ckH1Gji5e0EkLNtvmDvslKQe/3mW//H3a3D8MucFT4373hHpd +jHH3S70n5QaZKZuDW4Z1UbfUoNUo3xXiA4kQ6c+6WLqKiMm54AqBDntDT4yy +9TvJLUcOcQWrDSfDxb/rYuqtxQozS1dYzWqP9JzVRTrXD/O6aRc4MRSUwMNN +wSVyV32riQts13x21UydgievJ+ZuXHQGu9Wm1u2aFPSbVBW/MOoMR963rN+n +Q8G/hvWv+Tqc4Xzi68hDNAqWNXhftr3tDG9Hu9wjjChYXrNPm2uvMxzKHtF5 +YENB+o03mpcPOEGUIOdLuVMU1FmCuceTjnBpLCr6diQFKd/jSRYtjpD/aBWh +cYaCD1PETZZvOsILb+5Sg3gKCv+SVB2zdwTBF/zptqkU9OgzTKl67gDZUTKu +SfkULK4yF9xcuB8eThv8+9NKwY+HVQaJZDvIeVXlsvcNBe1uH+zk8rWD6Fu6 +L4o6Kdj/N+PXxF47MNunmuHWS0GjLV915cl20FUjQev8SMHOwG+HBXL3wfjp +ed+iGfb6bQbvn1pbEBOoGj8koYcNuaMousYG5sd09jRI6SHHQoLN8+/WMPC4 +iCUpq4fdA2eHL3dYQ45ffnyHoh4aXR+bOZdlDWo9acqoroezorbjvTRrMM7y +d5FEPdSYoHS3HNsLPmo6fW/c9DCc4+VD+5ndEPBH4q+Thx5a+HayMvt3Q3jj +SonJI3roP/L6wELjbki067Zfe1wPhbT7pMVTd8Od6OB3xqF6ePMez1Sd9m4Y +HnjYW35eD30WxTpSAq3A9pxFT1qVHqbw9nSrqO6EA3aUP4o1emhCDbMZ5NgJ +hxSlSWV1eqhrNOr8/O0O8GNN2rY+1kOyKY+W/pkdkPw55e3qV3pYstl0R9qg +Jbxg9nYHDenh5yk98cUsC2BOHuqy56Hi7YTzPzm3mYFY7fbcOl4q7t5Es9iv +aAaTcSrHZfmoGPNWals/pxlkyf/k/SxERZa9+1HbR6awZB225bgUFes19/er +GZrCo9qUslhNKgak1pzVY24Ho4SHyeU2VEwUikxId9gGErY5B8XsqCin+Cmq +nNgGvxSi1UL2U1G7potrWn4b5NaZNRNOVKSNPucbGNsKK352Lbd4UBE2OXDu +Cd4KTbbffIbCqPhs52LovetbYJsSecf6XCr7viUnK8lpDBUTT+UP5VExLJ2k +NjBmBEpVfr9r8ql4niS6orbdCFaZt93wKKRip+NA3JtsI2g8FvurqYKK8os8 +wQeNjYConUkPfU7FXUPzlIGzCNQ9b4ZHv1MxKqn1rMx/BORLRlQRP6hYXKQ+ +kkEjQPSzWlLaFBW9Ui9sMOMjYCYoXm/LbypaeLw9bVzHhLLrEJ+1TMUba+Ns +r0owQfPrfXUbIRq2OhXw3x8ygE2RZ4MbaTRUk+cNGEzWhzqDW1yWDBrGGb8s +9zqiD1Z/HqV2G9JQobxiUXOrPgT7zN4bM6Lh3OTgfes5OjQ7On/ks6Sh/n3f +I/yudPDQp5o7ONMwN4QVL2RMg4JfHyVn4mlYxhOWkKWkB0TRwp2TiTT8EDqX +ab1KDzo8SdQ152nYnHyFj/6JAn+HLK0kLtLwZMINzdg8Cpi3VUXjdRr+HuhR +199IgfHCcxNJpTScZe6xaKHogoqb/qMNfTTc+nD+JemYNlxQ2Pn3zAANh6uk +x/tttGHmg4ve8CANN5w8X/vYUBse7k8qzBqhYXWQ4duptdqwx+pDOmmChufM +TWI+3NGCEIOY4zwcdEzInLC81q0JzYJv5Cc20FGbN/VoD686qLd9drTYREdJ +l7oYvY9qkJr0N71AhY4u4WciX1eqgeMaJT53TTpu0Hz1r8BFDX4sBP4dpNNR +LEHMZn29KoiNSXW2W9BxDse/YLgKuD30iK44QcezDpm0GIVNMOk9HrTNn47v +duuZXfu3EYKlvY6+DaRjP2/+mYmujXA2/NieuTA6KoUl05jxG6GEEShnGEvH +g5a5/AlTyrBQeaau6SodW8wGrC60boDU4qyZjiY6qjz3kt5VoghSTnJjrs/o +eGdFGE08WRFu8eX2zzTTsZH61lzkuCJUe99qFGulo/wydec1LUV4r3oveX8v +HQcjBI99L1eATXdYasPf6aiWleG8t0keHmV3HZoS1cdfsZfTTq2UgyFLeadA +sj5OayfKvuqQBY55b/t/Evoo9/mv5XiWLBjvXrOTS04fvygFZwrRZeEZJ4Mm +rqKPmq/tZNf4yMArlxs8RgR7v2ingcKYFPQpHSlKdtfHk01FzF1CEvCvvfKO +qKc+8meFyDBGxUHq5MqbV4/q44rmQb/DdeJwoPtaet5xfcyaiV8Vf1gchmLa +IqtD9ZEmUH/hbQMZRr9Q9g6d18ckZy1n+wgSzNxZ/qNZpY/qyQG95zaLwhdb +k+wElj4yqp5dDOEWhd5V50xHavXxoepYYdqoCNQ6S2RcbtDH+hWRkwfyRSCK +rMdYbNFHUzuX0o3KIiAQfyT8xYA+Lqy81eqhIQxqh7s53FYw0HNXzciskyDI +iEoVPFzFwJ9eZ977bxUEgSaX3eQ1DPyyY9NNqc2CMC3zM+clLwNXvWgv+/xL +AGrert2iI8rAcqZu7754ATA1wZjljQyktBaHiwfwg+uGQp6rOxi4vTeBnhaw +DkKfHjyibMXAE5pKEQpb10Gym9DLsj0MdBl4eJRDeB3U3QpJermPgSqRqVb3 +SnlBRNmUf/E/BmYvGMpV/VoLz5Q/izgHMvDzs5BC7TM8oLJJVk75BgO/ary7 +lNO3GrC5I7Ish4HtIg4fXctWg61H7Ecij4Hq2YFtHmdXw5k7E7n7ChioZuT7 +h26wGgY21W1IKGegsflh99EbXHB+s73q9+cMVHjxnFc5YBVMqVyklv1kYObJ +wJpkyxXQ+wq3CU8zMO/0t3MiGiugwWdyr/8sA6cCVOjN/CvgfJnZCepfBj5q +WZ6v7+QEFQbHvZqVBnjUUy6//wAnuJh5yzeJGeDuvWmH8kI5oOvw9nVdhgb4 +bzXe2F6wSNTyzErogQFix5OpLUGLRG5h7ubLRgZILjfourBtkTj+Y9HEzsQA +Y4aSToiMLBDrgypOD+wyQM/yKMsn8guESaz8n08uBlhLeXRy//2/RHXev4+z +8Qa4T9Txu9PfPwR1i/8f80QDnFx3JN244w/x4OP3ddnnDLD+4727h+7+Icpk +BmnmqQb47fiDi24Of4h7VxrOZWUaYMrLOiurht9EdlKM/vYiA5SW6BILTZsl +Evz5U650GqCgrF9e3ZFpgls4Pn+i2wDLC1U1h8ymidhSjjrjXgN8nK9rR988 +TURPTn35PmCAawkx85ixX8Qpjy5Doy8GOPFSZmOC5y/C1zFj7OucAQZe9p+Z +9Z8i9m9VRAMZQ7wIJOmnB38Qi13cfE1yhvjYy8M0VukHke022W+uaIjl1Oyv +98cniS+xrKD9mwxxW37IuHrwJOHbsqs4RMcQgwrG8wfTJ4izO8Nlqk0Msbnx +yU7/r9+IGrvuBcoxQ1TX+hum9maMOPC15kXdCUMknKmX43LHCI7Q7Ctb/Q3R +tuvOez3/McIk8yjFOsQQT5p6PU8gjxEd7zm9/M4YoqGIxsLyoVFi3EWjvzTd +EFeW8u8qWfeFkPSOY2k0GKLpCBRfvzhCnF9210tsZJ+vKBfff3yEWJFqUjr6 +xBAfWi5xWu8cIcYruQqyWwzxRlLzoWmeEaKGI/qKUKchfsvmfffxzDCx/1Jk +0O/PhrjkpNuiEfWRuFIboveQl4mbhNIeOVh+INbttC+V4GNi/RfJMRWRD0Tk +EF09SICJIcvDq/YPDBIeXHNKWqLs/a9mSru9BwnarkCRXBkmkkk/VHXS3hNv +h32nY7SZWFXvK7o400+IrvUq3bGPiS+lOI5Mz/QSeVtOhv60Z+JC66kZ98Ze +Qufk+S0XHZkoma66bJDcS+z8WdLd+x8TX4xfb1uj3kvEvp2dd/Vi4rv8GLrw +0R5iLjfCOPQ0Ezdy6re6znUTsQPJvNLRTDTNM7ye9bKbEBHL7XoUy8S04fsO +Wje6Ca2EJ+5cSUw8DZGbbbd3E57HeBKTLzOxKHl1T0ZmF9FncLEzv5CJb9be +tQ3b20l4BORdMytiYiYrLH1AtZP4XfTA7XsJEw2X+s0TV3USQgq9f7Qr2fYu +MV+3VnYQFtzSUvUNTLyvotYxKNNB1HXlH+rsZuLk45KouwvthDlftXpgLxMj +Bb++y3nXTvRub/lN7mci5/GrcoOV7cRMzbf4g0NM3HYrMEzRt51Qz9G6/3Wc +iU0NIQq3e9qIuj6jwKQJJh447CTQktZGmIvsBc2fTIwqO7Ta27qNcI8LeOM/ +y8RRi1KgdbYSMw2xV0lzTLxbn5LjcLGViPqb7lrzl4lxrIemS3tbCQFKgdqB +RSby22Sbyoi2ElneNbPLy+zzAonKmrevif8BeQClhQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.10048972527402701`}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.10048972527402701`}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3k41N8Xx6kUKTsz9jWVfRkzY5jPOVSyVSpEFF8iCpV9K5I1KpQkJSQl +ZQ9jKdFCC7JESKIiRQlFWX7z++vzvJ57P8895322e+Vdju1xW8HBwfGRk4Pj +/9/fgy1PlBLzCP4fSzVpvHuIrixyiFFvFJDPWq+/dE4LULTNhdybCuZ0eQ2v +cwiBVnd7VvbmQlNh2gqLc1YgOElKne8pA8uSRye5zjnDh7qdx2Z6GsG7sGsN +f9JxMFEafz/V0wEuY/4x2+IjYb6HlvazZxg0KDWcWiHJ0LTldt6b3GlYUPO7 +oPY5G6Q+sL64qC1Ckv6ox/mwOyDi5XR3zZaVaOsEArpYDCprbj6z2rcSNX7P +Dfc4FAPmfhnOOLoSVZTcl7yCisGr11tS7dJKrJTM/HC4qBiebA1Psvq8Ek8J +cUe2rS8Bf+kMn4y4VbhZa3BrdEgJdLZ26Ki+4kKvgIGV9ealkKptUrvThhst +fSxktneWgWa//XamBzc+Gh46oTVYBq+ivTtVw7hR+umNNsGvZbC699I37hxu +FEsayqxbKoOwUyOSTd+5UZx6mVy2uRwOvYwMp0XzoP+OkIfip8qB6lbLlCtf +i5UBIY+fylVAJ19bC9+ztaiUXy9zV6UCjlcP2yz2rsWCHXKKsZQKuMu71qdv +aS0OFTuKbTCtANkyu6xL5rz48k6Fw5JPBXAvzy5xD/NiwNIbKanaCnh3Rath +SmA9nlYtOzVt+QCudhbyB25Yjz2hrg3Rtg9gP99Gp7/669Hi2NM+XucHMHBG +emmF63rky/C58M/3AQz5rDUUebAesXGgzPnKAxjb+qmKas+HnTpX2+HjA5j7 +mV4clsOPD4JbThkfrQSWqvDy8gN+PMoajTjrVwmh7ud3Rr/gx8dFSaTmsEpY +6I+eSJrmx/HVhquUkiohcqRatE1BAH068wsO3quE6NZbe4f8BfBLnNev9+OV +kJgX0bZCXBBneIUTFpyqwJziKSSqKIjfwvdGdLlXAfeTPTYb1QWxmdvKIte7 +CqJHNvRbGAmigu8BF9mwKghXePXlkqcg+tBPRdxIqwKfbPKSco0gmpDkFKua +q2D3tVI1Cwch1D/2dcp4YzUIqGUeO+AmhA4fW2S71aqhtTa67NgxIbTfyCt3 +QKcazPv30S+dEUIOd5mMncxqMJZY2vK+UAgT2gVCqvZUA+WKucOxBSEM8Nzo +mhNWDaRLIwkXrwujnRNzqO9pNZBVH0TP5QvjgYbuzsGWapBojI04UCKMJSGJ +nH2vq0Hm5+aAjU3CqJ9H46/sroYNlseda8eE8YPoGgGuz9Wgu2qROqIrggmb +j2Yuc7KAktmqbcoUQaaze0kQFwuoOtlq901EMOw/Z8FRbhYwnLcoBNmLYPFD +/7pCfhYY1SWs541g78/YPPBKigW7/MU+6bwQwe7agZBjeiyw4h0bTO8UwRda +v3450lmwJ5f1bmFABDN6GluNDFhg2+7Y9uyHCKq0jFdMIQsOqN2s2S8qiv4i +RR7jFiw4+kkzJcpZFO8ZLY6iMwu8wjiTRj1F0eChvfUtFxb4CHXGWvqJYpDV +IMHpxgJfDAwXixVFvca+tBueLAi5Vnf4bqEomsTNRwb6siDO2ozo+C2K6wM0 +uC5EsUCiolViBacYKuXFS1+KZkGRsPUfbV4xdCp7v/9CLAvedhwsSZEVwzPi +3rs8zrJAabe/wm5TMbygIuOTl8KC6pL5pcg9YqgfprCw/yILLAUi+kscxVDi +ad7TNWks8GtLuCRwQgzFaV1iW6+woHHHjdXtGWL4XXZ+lWkW2//7SiPLN8Vw +zfDg45IbLBhfd/eRZpEYZuxhdPDnsEDwVUXwhUYx1LlSM19ykwV5qgybR6/E +cF2FPGk6jwX0xEfaP96K4R/OM5dU81ngbP5ifOc3MTRy+V0bcYcFMwW7np+a +FcMbfkFemQVs/3m6bxYti+HI3faE+3fZ/jZ/cOQTIWGUuTL5wT0WGG9y0ydk +SOj2vP7C3fts/+PGRX02kXA23vX05SIWLJrMtr42JGHJsMXQ7hIWJOeHFi6a +kPAgh421fClbn9Uc8eq7SbjDdX7XKJstn641OudGQvHl/m+25SwYUkqWrj9G +wuU43oscFWx9okX/fg8hYf236rZsNl/dIldueZ6EwnMFpKcPWKBx89aF8Csk +XCvMo2JWydZvharXvVz2/8NSQ01stnUpMR24R0If+UimXhULvj7W27CuioTn +Szu2XWdzuHwtp+FjEn6/ylr4x2aB0zh49CUJyas+uO2uZus59LQms5uETPVf +0dfZTEeL9JcfSFh75PaBITa/utHu9+8r2z7Z6mlxFlvfZRsr1RkSdlUPm5uz +eeZgv5rDEglj8sfdT7A57qEzTyI3Gfv2XbG4wGYJmS+fa4TIOEZhLdxkc9HJ +o43jUmR0zJA9Vcxm4/c/syQ2knG+NbezlM1vDQPDzLXJuIlblrOQzUeu/dsX +akBGv/0BazPZvPgvknJ3Gxl/VSdOn2ZzssNqwb5dZHw7adngxGal2sQJnv1k +HM24409hc7WE4Av9Q+x1pYsiHGy2DL2c7+lDxt7HXHmNbP+G3kmeyQgm4+yh +JeVwNvvp5zi1RJEx8WFEjhqbzbP5ZiySyDgsqWTUx9ZPYU14fGsaGal/aNyR +bJ73/iq1+wYZy6p4/kqzub3LtrTzDhlbLb+JV7Djc8fgyTbbMjIeVtE5aszm +iFztvt5aMt7bSptq/n98j69bOdhKxk7PqTsP2fHn6glJd+4lY0uN50d1Ng8w +R1VHPpLx6itlxzR2/iTyNlqPzZBRNkpSeUcZC1x8Nb8eWSKjcKt2+HV2vjHe +XTs5sUYcTRTNFb6w83MsPyj/l4Q4brFw9XIuZsGj9Z8ZAUriuP72AVIqO58v +++9p+6MujuOiO+Tq2Pm+zVh9bgHFMfi6wv75Qhbkvh82W3NYHPfprXxDZtdT +yFarwYTj4hjT/7V1/W12fyus910XKo57+0y3/7vFguXgK5mC58Tx+8HJB4/Y +9eoosnNCslwcnRIXfk6y6103rPZ0Vp04tpZXbLpznQVrhzeJyT8TRz8D3Tn7 +ayxgFa8E5XfieLLjkPftDBaIWbCStZbFcfd/XuLj7P4yUaq8oZxbAo1dRII9 +UlnwhHyJpSckgbVbLiZ9SGbH74vPMGODBMr22HypOseOx2klyjYLCRxLsWoW +jGPB7bGU5ufWEvj72CLaxrDg1K5lR/ODEijTaXH+4hkWqEv3xew6IYHd3w5X +zkWw4Gz1hR77dAlMOuJ71zuYBVt//A31GZFAn8QdGVwebD1ML6k8/i6BED9F +/8Tuv0U56n3CvyVwBl5q17mygGztrM/ilsQToycIOycWfK9++melhiQ2XDTX +NLJlwcWoZP+MYEmsEQnpemfMgub+zUrfT0uip1VDzy72PFigNHUSiZLYfCze +9xGTBe6jszqfrkuibWjIqUT2PGFYOkxpNEniK49DTj3qLBgWVfZ5sl4Kqb2S +zUYkFpCOPZImkaSwv/um4l4Rdv432732lJNCKVi376AgCypDE9X4daXwltg7 +Gxdetr8ffo7b20nhjv+2KMsvV4NOQe3hH7lS2LNLqfgke16eNtz9nwRdGsd3 +9ma13a8G04NZv2jG0ljMGhrqLKgGvshvZ2wspfFz/c3Tb25Vw7WmmPxkZ2kU +TzCarb5eDdXmNd9WJ0ijRNxVQv9cNfy0UwycfieN7RLh6quOVsPBgNmzr8Jk +8HLEX59x+WpgFGVUnHokiz/mD8ZQTlXB1p7WxclmWXSIqvhPIqQKdnKs2u7U +IYuSw9fL/vlVgesen3fwWRYvqI49KfGsApMw+YhILjn8s5Ci8dm6Co7L/r5p +pCqHUnVjWmEqVfDk8I2JpkA5zDWseBPeUQlec1ORzevlMd8g9ep7sUqYVxUY +VLdRwP3nTj24YV0BhoX3si9fVsQ3JV8kJnzLYErI3Nm2UQnNMtNvMbNL4FOS +s63vGmV2PZ4PKTG9D2Y/gsw+Uzfi00b5C1vuFcB3V26/iohNSPO7b5w6c4t9 +fyetiGvcjBIpLLue1FwQeq18vuSHCm77oDd33f0GSMUXW1GpauhnzNv1oTsD +rqjqCwgfVse99iUzm7enwQsJI73pFA1cr5IfM+WWAu0yxcqr0jXweSZDzcE2 +Bd4qSJNFr2lgwcvIbW0mKfBRZf4vNV8D7zmcffJ2YwrMMUobQms08Hh1eK7L +eDIoO8hbrhjRQO32NDh6IhmiMjldBSmaeID2MdCa7wIwpBqTNd9qomAL5x7z +nEQYVlQa/NqniaXfnvCPxCdCgmqsat4HTazlXpOYdDwRehnmz8hfNbEw4WaO +ICZCkH3HP84FTTz2L+fmyIezsN/ihO64gBZ+u+iYkqNwFi7Hs9sDVQt3uW5b +Z18RD3wrc/3/i9LCHnHqS4s1sbB6/tHeqWgt/Gil4aY2FQNLk+91Tsdp4bkU +wQaZ/hj40Sc+lZ2khXufd6TRi2OgvSzFe+iyFtIj8DXYxUCqy2l3p0It1AjK +b7p0PxrEGp3tDnRp4dzXDLKk2xmQOS1raK+sjRuO/liRz3Uaivy4Fd5v0sZX +3LbDq2YigXCfWvOfqjY617hV+w5HwgGLpk4PLW08lbBFOexRJFwTPXw0mKGN +70y3ihOhkSB+t+hq+k5t/PDsSR3P5wgQ6WTOdwdq4+NG7uny/pPAs8Gxcs9z +bfztcngqXjIUjoiDeWGLNh4psFBQ4AyFF+sVBle+0safm1cVvPkSAkm/R7ke +tGujeciR035lIcDX7GdD6tNGTvnOoQbzEBA6mjjT/51t/8HmoMCIYJAqrdFx +E9LBmxG6AZNzgRB+6/qzehEdvH9/QpH+MRDeZ0TuFyPp4GzAZPDllkDIijKJ +ei6pgzNxZ4eSrwaCnHXHm80bdDDr9XadMGYgbPjz9fgkTQcb/vJYSMQFgAZT +vDjogA6269bbKW/2h3JFz38rnHXwx50RBXkhf6CvZW0/76KDB4W3bNf55wfG +PXZDeYd1sMt/0TH9tR/Ynrgi2HFCB8/K1U0d8fODiFskf7VYHbwt3hu+uckX +2teL6X8s0sG3nhpyF31PgM2MW4xXqQ4226U+1z94Avr6Hrz5U84+PwOezZid +gE+3bY7wsXTw9dL1s7flT8CcUVqmQZMOhtb2Bi+9OQ7ygSJLaT06WC7DZ3GI +ehx8B4WazDl0ceGpmIKppA80P3Osv7tCF69880pqn/cGmeL8qrVcuqj3Ilok +pNcbXkQw7r3gYfPCLymVy96gIO+SZi6sizkXez15hL3hjWvpYXNlXYy9tWny +tpAXaH3dtc7cUhdfvqBkPNx0BGLfZKy+u1MXF09PRkrxHoEB1gjH2t26yJyT +T02f8IT4s0GzLTa6uKWG1v2pzBOGVG8Mmjnp4sW1FgffEZ6Q7DNZYuariwXt +Vjlijh7wYzrJxuyKLhqXK+/bVugOA705ttev6uKIaoB3doo7vKiv3Dd1TRe5 +im3eiwS7Q17ckH1Gji5e0EkLNtvmDvslKQe/3mW//H3a3D8MucFT4373hHpd +jHH3S70n5QaZKZuDW4Z1UbfUoNUo3xXiA4kQ6c+6WLqKiMm54AqBDntDT4yy +9TvJLUcOcQWrDSfDxb/rYuqtxQozS1dYzWqP9JzVRTrXD/O6aRc4MRSUwMNN +wSVyV32riQts13x21UydgievJ+ZuXHQGu9Wm1u2aFPSbVBW/MOoMR963rN+n +Q8G/hvWv+Tqc4Xzi68hDNAqWNXhftr3tDG9Hu9wjjChYXrNPm2uvMxzKHtF5 +YENB+o03mpcPOEGUIOdLuVMU1FmCuceTjnBpLCr6diQFKd/jSRYtjpD/aBWh +cYaCD1PETZZvOsILb+5Sg3gKCv+SVB2zdwTBF/zptqkU9OgzTKl67gDZUTKu +SfkULK4yF9xcuB8eThv8+9NKwY+HVQaJZDvIeVXlsvcNBe1uH+zk8rWD6Fu6 +L4o6Kdj/N+PXxF47MNunmuHWS0GjLV915cl20FUjQev8SMHOwG+HBXL3wfjp +ed+iGfb6bQbvn1pbEBOoGj8koYcNuaMousYG5sd09jRI6SHHQoLN8+/WMPC4 +iCUpq4fdA2eHL3dYQ45ffnyHoh4aXR+bOZdlDWo9acqoroezorbjvTRrMM7y +d5FEPdSYoHS3HNsLPmo6fW/c9DCc4+VD+5ndEPBH4q+Thx5a+HayMvt3Q3jj +SonJI3roP/L6wELjbki067Zfe1wPhbT7pMVTd8Od6OB3xqF6ePMez1Sd9m4Y +HnjYW35eD30WxTpSAq3A9pxFT1qVHqbw9nSrqO6EA3aUP4o1emhCDbMZ5NgJ +hxSlSWV1eqhrNOr8/O0O8GNN2rY+1kOyKY+W/pkdkPw55e3qV3pYstl0R9qg +Jbxg9nYHDenh5yk98cUsC2BOHuqy56Hi7YTzPzm3mYFY7fbcOl4q7t5Es9iv +aAaTcSrHZfmoGPNWals/pxlkyf/k/SxERZa9+1HbR6awZB225bgUFes19/er +GZrCo9qUslhNKgak1pzVY24Ho4SHyeU2VEwUikxId9gGErY5B8XsqCin+Cmq +nNgGvxSi1UL2U1G7potrWn4b5NaZNRNOVKSNPucbGNsKK352Lbd4UBE2OXDu +Cd4KTbbffIbCqPhs52LovetbYJsSecf6XCr7viUnK8lpDBUTT+UP5VExLJ2k +NjBmBEpVfr9r8ql4niS6orbdCFaZt93wKKRip+NA3JtsI2g8FvurqYKK8os8 +wQeNjYConUkPfU7FXUPzlIGzCNQ9b4ZHv1MxKqn1rMx/BORLRlQRP6hYXKQ+ +kkEjQPSzWlLaFBW9Ui9sMOMjYCYoXm/LbypaeLw9bVzHhLLrEJ+1TMUba+Ns +r0owQfPrfXUbIRq2OhXw3x8ygE2RZ4MbaTRUk+cNGEzWhzqDW1yWDBrGGb8s +9zqiD1Z/HqV2G9JQobxiUXOrPgT7zN4bM6Lh3OTgfes5OjQ7On/ks6Sh/n3f +I/yudPDQp5o7ONMwN4QVL2RMg4JfHyVn4mlYxhOWkKWkB0TRwp2TiTT8EDqX +ab1KDzo8SdQ152nYnHyFj/6JAn+HLK0kLtLwZMINzdg8Cpi3VUXjdRr+HuhR +199IgfHCcxNJpTScZe6xaKHogoqb/qMNfTTc+nD+JemYNlxQ2Pn3zAANh6uk +x/tttGHmg4ve8CANN5w8X/vYUBse7k8qzBqhYXWQ4duptdqwx+pDOmmChufM +TWI+3NGCEIOY4zwcdEzInLC81q0JzYJv5Cc20FGbN/VoD686qLd9drTYREdJ +l7oYvY9qkJr0N71AhY4u4WciX1eqgeMaJT53TTpu0Hz1r8BFDX4sBP4dpNNR +LEHMZn29KoiNSXW2W9BxDse/YLgKuD30iK44QcezDpm0GIVNMOk9HrTNn47v +duuZXfu3EYKlvY6+DaRjP2/+mYmujXA2/NieuTA6KoUl05jxG6GEEShnGEvH +g5a5/AlTyrBQeaau6SodW8wGrC60boDU4qyZjiY6qjz3kt5VoghSTnJjrs/o +eGdFGE08WRFu8eX2zzTTsZH61lzkuCJUe99qFGulo/wydec1LUV4r3oveX8v +HQcjBI99L1eATXdYasPf6aiWleG8t0keHmV3HZoS1cdfsZfTTq2UgyFLeadA +sj5OayfKvuqQBY55b/t/Evoo9/mv5XiWLBjvXrOTS04fvygFZwrRZeEZJ4Mm +rqKPmq/tZNf4yMArlxs8RgR7v2ingcKYFPQpHSlKdtfHk01FzF1CEvCvvfKO +qKc+8meFyDBGxUHq5MqbV4/q44rmQb/DdeJwoPtaet5xfcyaiV8Vf1gchmLa +IqtD9ZEmUH/hbQMZRr9Q9g6d18ckZy1n+wgSzNxZ/qNZpY/qyQG95zaLwhdb +k+wElj4yqp5dDOEWhd5V50xHavXxoepYYdqoCNQ6S2RcbtDH+hWRkwfyRSCK +rMdYbNFHUzuX0o3KIiAQfyT8xYA+Lqy81eqhIQxqh7s53FYw0HNXzciskyDI +iEoVPFzFwJ9eZ977bxUEgSaX3eQ1DPyyY9NNqc2CMC3zM+clLwNXvWgv+/xL +AGrert2iI8rAcqZu7754ATA1wZjljQyktBaHiwfwg+uGQp6rOxi4vTeBnhaw +DkKfHjyibMXAE5pKEQpb10Gym9DLsj0MdBl4eJRDeB3U3QpJermPgSqRqVb3 +SnlBRNmUf/E/BmYvGMpV/VoLz5Q/izgHMvDzs5BC7TM8oLJJVk75BgO/ary7 +lNO3GrC5I7Ish4HtIg4fXctWg61H7Ecij4Hq2YFtHmdXw5k7E7n7ChioZuT7 +h26wGgY21W1IKGegsflh99EbXHB+s73q9+cMVHjxnFc5YBVMqVyklv1kYObJ +wJpkyxXQ+wq3CU8zMO/0t3MiGiugwWdyr/8sA6cCVOjN/CvgfJnZCepfBj5q +WZ6v7+QEFQbHvZqVBnjUUy6//wAnuJh5yzeJGeDuvWmH8kI5oOvw9nVdhgb4 +bzXe2F6wSNTyzErogQFix5OpLUGLRG5h7ubLRgZILjfourBtkTj+Y9HEzsQA +Y4aSToiMLBDrgypOD+wyQM/yKMsn8guESaz8n08uBlhLeXRy//2/RHXev4+z +8Qa4T9Txu9PfPwR1i/8f80QDnFx3JN244w/x4OP3ddnnDLD+4727h+7+Icpk +BmnmqQb47fiDi24Of4h7VxrOZWUaYMrLOiurht9EdlKM/vYiA5SW6BILTZsl +Evz5U650GqCgrF9e3ZFpgls4Pn+i2wDLC1U1h8ymidhSjjrjXgN8nK9rR988 +TURPTn35PmCAawkx85ixX8Qpjy5Doy8GOPFSZmOC5y/C1zFj7OucAQZe9p+Z +9Z8i9m9VRAMZQ7wIJOmnB38Qi13cfE1yhvjYy8M0VukHke022W+uaIjl1Oyv +98cniS+xrKD9mwxxW37IuHrwJOHbsqs4RMcQgwrG8wfTJ4izO8Nlqk0Msbnx +yU7/r9+IGrvuBcoxQ1TX+hum9maMOPC15kXdCUMknKmX43LHCI7Q7Ctb/Q3R +tuvOez3/McIk8yjFOsQQT5p6PU8gjxEd7zm9/M4YoqGIxsLyoVFi3EWjvzTd +EFeW8u8qWfeFkPSOY2k0GKLpCBRfvzhCnF9210tsZJ+vKBfff3yEWJFqUjr6 +xBAfWi5xWu8cIcYruQqyWwzxRlLzoWmeEaKGI/qKUKchfsvmfffxzDCx/1Jk +0O/PhrjkpNuiEfWRuFIboveQl4mbhNIeOVh+INbttC+V4GNi/RfJMRWRD0Tk +EF09SICJIcvDq/YPDBIeXHNKWqLs/a9mSru9BwnarkCRXBkmkkk/VHXS3hNv +h32nY7SZWFXvK7o400+IrvUq3bGPiS+lOI5Mz/QSeVtOhv60Z+JC66kZ98Ze +Qufk+S0XHZkoma66bJDcS+z8WdLd+x8TX4xfb1uj3kvEvp2dd/Vi4rv8GLrw +0R5iLjfCOPQ0Ezdy6re6znUTsQPJvNLRTDTNM7ye9bKbEBHL7XoUy8S04fsO +Wje6Ca2EJ+5cSUw8DZGbbbd3E57HeBKTLzOxKHl1T0ZmF9FncLEzv5CJb9be +tQ3b20l4BORdMytiYiYrLH1AtZP4XfTA7XsJEw2X+s0TV3USQgq9f7Qr2fYu +MV+3VnYQFtzSUvUNTLyvotYxKNNB1HXlH+rsZuLk45KouwvthDlftXpgLxMj +Bb++y3nXTvRub/lN7mci5/GrcoOV7cRMzbf4g0NM3HYrMEzRt51Qz9G6/3Wc +iU0NIQq3e9qIuj6jwKQJJh447CTQktZGmIvsBc2fTIwqO7Ta27qNcI8LeOM/ +y8RRi1KgdbYSMw2xV0lzTLxbn5LjcLGViPqb7lrzl4lxrIemS3tbCQFKgdqB +RSby22Sbyoi2ElneNbPLy+zzAonKmrevif8BeQClhQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.10048972527402701`}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.10048972527402701`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993852643679288*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"e1747a3c-c10f-4bd5-85fa-4f32c2160bd0"] +}, Open ]], Cell[CellGroupData[{ @@ -6185,7 +12611,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -6203,8 +12631,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6226,66 +12654,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + "In[121]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752212366*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3403941468924261`*^-117\\\", \ +RowBox[{\\\"615057629174994458987807\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"144\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 53, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993852643717471*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +In[121]:=",ExpressionUUID->"8a6b17b2-e269-4c03-959a-d4e65f846bf1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133175222237*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.561623825548579`*^-119\\\", \ +RowBox[{\\\"292828937250214861924095\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"148\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 54, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993852643726737*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +In[121]:=",ExpressionUUID->"fddca872-7342-4c0d-ace1-c32064bd50ff"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ -\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ -2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317522303677`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.8955127406601295`*^-121\\\", \ +RowBox[{\\\"143486179252605282342806\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"152\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 121, 55, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993852643736248*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +In[121]:=",ExpressionUUID->"7302e3db-f664-4dbb-9ff3-596f0321d6c9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752237467*^9}, +during this calculation.\"", 2, 121, 56, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993852643744912*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +In[121]:=",ExpressionUUID->"dc8d6c34-6d6a-432e-94c9-e8f4ffe36e2a"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.991331759108553*^9}, +Cell[BoxData["8.239179962592821`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.993852714463029*^9}, CellLabel-> - "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] + "Out[121]=",ExpressionUUID->"ee545a25-dba9-4cec-ac19-760052188531"] }, Open ]], Cell[CellGroupData[{ @@ -6352,68 +12787,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849016830597*^9, - 3.991849020984995*^9}},ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-\ -7a397847208f"], + CellChangeTimes->{{3.991849016830597*^9, 3.991849020984995*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 169, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591425533`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.992580916349877`*^-200\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 57, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.9938527145392523`*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +In[122]:=",ExpressionUUID->"e74f8212-2ea3-40c6-840f-a06771f7d2a2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 170, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591525517`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1019966023201163`*^-204\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 58, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.993852714552969*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +In[122]:=",ExpressionUUID->"7e9832e1-cf80-425c-a18e-284930297b0b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 200, 171, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331759160553*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.0580239781997585`*^-209\\\", \ +RowBox[{\\\"668859810497440244092067\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"70\\\", \\\"\[RightSkeleton]\\\"}], \\\"4374400000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 122, 59, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.993852714559911*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +In[122]:=",ExpressionUUID->"48d5be5d-91a1-4888-bcf3-281feae3746c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591685543`*^9}, +during this calculation.\"", 2, 122, 60, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.99385271456691*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +In[122]:=",ExpressionUUID->"22849bb8-172f-4f43-a9ff-60c8c07813ef"], -Cell[BoxData["1.044718879268698`"], "Output", - CellChangeTimes->{3.991331766558941*^9}, +Cell[BoxData["0.09276009147812382`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.993852721831903*^9}, CellLabel-> - "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] + "Out[122]=",ExpressionUUID->"5bda6911-2a92-4898-91a2-116c1593d864"] }, Open ]], Cell[CellGroupData[{ @@ -6434,8 +12873,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6480,68 +12918,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849024657757*^9, - 3.991849027138817*^9}},ExpressionUUID->"22b50200-0b82-dc47-9932-\ -f1f0210d6caf"], + CellChangeTimes->{{3.991849024657757*^9, 3.991849027138817*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 173, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317665951805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.992580916349877`*^-200\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 61, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.9938527218770533`*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +In[123]:=",ExpressionUUID->"c98e9da2-eaaf-4716-b1fd-27e34a3d32f9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 174, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666041794`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1019966023201163`*^-204\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 62, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.9938527218860607`*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +In[123]:=",ExpressionUUID->"b02a2412-fea1-45f6-a47e-888c8e0010c9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 201, 175, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666131783`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.0580239781997585`*^-209\\\", \ +RowBox[{\\\"668859810497440244092067\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"70\\\", \\\"\[RightSkeleton]\\\"}], \\\"4374400000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 123, 63, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.99385272189361*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +In[123]:=",ExpressionUUID->"ee657858-00a2-494f-b3af-8b1d295f15fe"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666211815`*^9}, +during this calculation.\"", 2, 123, 64, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.993852721900652*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +In[123]:=",ExpressionUUID->"1cc5cb7b-6fa8-4167-bc0c-b8e23d2ba5c1"], -Cell[BoxData["4.7987767072565894`"], "Output", - CellChangeTimes->{3.991331773590704*^9}, +Cell[BoxData["15.635993756791661`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.993852729287323*^9}, CellLabel-> - "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] + "Out[123]=",ExpressionUUID->"71ebf804-f841-42b6-bc6f-391c99daa9f7"] }, Open ]], Cell[CellGroupData[{ @@ -6562,8 +13004,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6608,68 +13049,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849031047804*^9, - 3.9918490341764317`*^9}},ExpressionUUID->"8a5105db-666c-444e-9451-\ -d3e8d1574bcd"], + CellChangeTimes->{{3.991849031047804*^9, 3.9918490341764317`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 177, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736257057`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.992580916349877`*^-200\\\", \ +RowBox[{\\\"143094757247897252281238\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"64\\\", \\\"\[RightSkeleton]\\\"}], \\\"3737600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 65, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993852729347728*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +In[124]:=",ExpressionUUID->"80cf1c35-30a0-45eb-a028-4c408e3e2eee"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 178, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736361847`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1019966023201163`*^-204\\\", \ +RowBox[{\\\"302788506336550585827101\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"67\\\", \\\"\[RightSkeleton]\\\"}], \\\"8761600000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 66, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993852729364609*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +In[124]:=",ExpressionUUID->"6a309c50-4dcf-43d0-8fe6-9778e0646660"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 202, 179, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773644182*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.0580239781997585`*^-209\\\", \ +RowBox[{\\\"668859810497440244092067\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"70\\\", \\\"\[RightSkeleton]\\\"}], \\\"4374400000000000000000000\\\"}]]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 124, 67, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993852729372851*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +In[124]:=",ExpressionUUID->"0aac13fb-8eae-4548-8d95-1407d351b917"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773653183*^9}, +during this calculation.\"", 2, 124, 68, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.99385272938107*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +In[124]:=",ExpressionUUID->"c199e395-1112-46cd-9173-a1734123a76b"], -Cell[BoxData["15.12281532960454`"], "Output", - CellChangeTimes->{3.991331777337887*^9}, +Cell[BoxData["1.6565879062129127`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.993852733741211*^9}, CellLabel-> - "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] + "Out[124]=",ExpressionUUID->"185b6c1d-d059-41f6-bf84-02eadc550586"] }, Open ]], Cell[CellGroupData[{ @@ -6678,22 +13123,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918490375675926`*^9, - 3.991849040901537*^9}},ExpressionUUID->"d0efa798-230b-fa46-b413-\ -76bfd8e40ccb"], - -Cell[BoxData["0.12263596348954131`"], "Output", - CellChangeTimes->{3.9913317773679104`*^9}, + CellChangeTimes->{{3.9918490375675926`*^9, 3.991849040901537*^9}}, CellLabel-> - "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] + "In[125]:=",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], + +Cell[BoxData["0.018225992231642667`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.993852733820698*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"61c33b65-f219-4a5f-9008-4dcc66227d07"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9}, - 3.9919249287922287`*^9},ExpressionUUID->"f842f74e-f562-934a-9011-\ -6604b8708636"], + 3.9919249287922287`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ @@ -6716,12 +13162,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + "In[127]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.9913317774008274`*^9}, +Cell[BoxData["15.659856323347766`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.9938527338355837`*^9}, CellLabel-> - "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] + "Out[127]=",ExpressionUUID->"2a510138-478a-4cfc-b0fa-64c35abc2578"] }, Open ]], Cell[CellGroupData[{ @@ -6731,12 +13177,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + "In[128]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.9913317774358253`*^9}, +Cell[BoxData["0.5557625543228705`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.993852733843916*^9}, CellLabel-> - "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] + "Out[128]=",ExpressionUUID->"32211c56-07b8-449e-92e2-d5e2810e3e88"] }, Open ]], Cell[CellGroupData[{ @@ -6746,12 +13192,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + "In[129]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.991331777510603*^9}, +Cell[BoxData["8.70316175059291`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.9938527338521147`*^9}, CellLabel-> - "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] + "Out[129]=",ExpressionUUID->"e2947b84-403e-43b6-b494-2afde14a2b98"] }, Open ]], Cell[CellGroupData[{ @@ -6941,12 +13387,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + "In[130]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[BoxData["0.041096786108657246`"], "Output", - CellChangeTimes->{3.991331777537592*^9}, +Cell[BoxData["0.013289549775271721`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.993852733863261*^9}, CellLabel-> - "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] + "Out[130]=",ExpressionUUID->"1205fbcb-9453-4ebc-a1ae-12f91518578b"] }, Open ]], Cell[CellGroupData[{ @@ -6960,12 +13406,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + "In[131]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[BoxData["4.371605972693579`"], "Output", - CellChangeTimes->{3.9913317776362495`*^9}, +Cell[BoxData["7.68758280346854`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.993852733955694*^9}, CellLabel-> - "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] + "Out[131]=",ExpressionUUID->"cdbabaee-beaf-44ec-8401-3a08f0272b49"] }, Open ]], Cell[CellGroupData[{ @@ -7157,12 +13603,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + "In[132]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[BoxData["0.013804398425195999`"], "Output", - CellChangeTimes->{3.9913317776511555`*^9}, +Cell[BoxData["0.0989514584501313`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.993852733968711*^9}, CellLabel-> - "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] + "Out[132]=",ExpressionUUID->"88d1dfe5-8b42-4f66-8e78-003d2d2d4b31"] }, Open ]], Cell[CellGroupData[{ @@ -7176,12 +13622,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + "In[133]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[BoxData["7.5428626210616345`"], "Output", - CellChangeTimes->{3.991331777742655*^9}, +Cell[BoxData["2.8173048366251003`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.993852734078817*^9}, CellLabel-> - "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] + "Out[133]=",ExpressionUUID->"127515a1-0a6c-492e-8465-d5dc8e1dd2f8"] }, Open ]], Cell[CellGroupData[{ @@ -7274,12 +13720,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + "In[134]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913317777546787`*^9}, +Cell[BoxData["0.12678436313657984`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.993852734088132*^9}, CellLabel-> - "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] + "Out[134]=",ExpressionUUID->"23282a2a-66c0-406d-a26a-e319ca5793d6"] }, Open ]], Cell[CellGroupData[{ @@ -7369,12 +13815,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + "In[135]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991331777779663*^9}, +Cell[BoxData["0.8732156368634202`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.993852734100367*^9}, CellLabel-> - "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] + "Out[135]=",ExpressionUUID->"ef1a1253-d8d6-4706-b6ea-9c492a0e836c"] }, Open ]], Cell[CellGroupData[{ @@ -7497,12 +13943,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + "In[136]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913317778036633`*^9}, +Cell[BoxData["0.1107100884006317`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.993852734112564*^9}, CellLabel-> - "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] + "Out[136]=",ExpressionUUID->"0f6cb79d-9daa-4b12-9da1-8df693b57ec5"] }, Open ]], Cell[CellGroupData[{ @@ -7517,7 +13963,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -7539,8 +13987,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7564,68 +14011,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918490946810665`*^9},ExpressionUUID->"1dec41a6-6752-2041-9d38-\ -804123b5ccd0"], + CellChangeTimes->{3.9918490946810665`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 218, 181, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778296604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.790700278816429`*^-221\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 69, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.9938527341290903`*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +In[137]:=",ExpressionUUID->"70c6e2c4-10dd-4e5f-b3fc-e8dd92bb5cbb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 182, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777838663*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.629828287227413`*^-227\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 70, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993852734138076*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +In[137]:=",ExpressionUUID->"484b9cff-c7ac-4218-9707-889817dba814"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 183, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778466587`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2151517795840429`*^-232\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 71, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993852734145773*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +In[137]:=",ExpressionUUID->"cd1532af-e4ec-4bf1-860b-0dcad3728459"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777854885*^9}, +during this calculation.\"", 2, 137, 72, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993852734154229*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +In[137]:=",ExpressionUUID->"f28361d6-563e-40e6-b752-913a9d98f728"], -Cell[BoxData["4.37160597269358`"], "Output", - CellChangeTimes->{3.991331781456501*^9}, +Cell[BoxData["7.687582803468531`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.993852737561245*^9}, CellLabel-> - "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] + "Out[137]=",ExpressionUUID->"8ce6af73-c3e2-4f08-a905-495aeaacb507"] }, Open ]], Cell[CellGroupData[{ @@ -7640,7 +14094,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -7662,8 +14118,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -7687,67 +14142,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99184909912471*^9},ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], + CellChangeTimes->{3.99184909912471*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 219, 185, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331781491499*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.790700278816429`*^-221\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 73, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993852737602421*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +In[138]:=",ExpressionUUID->"4957d853-1c9b-44a0-b99e-b63b87c26ab7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 186, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815004997`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.629828287227413`*^-227\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 74, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993852737609806*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +In[138]:=",ExpressionUUID->"deec0a99-3876-4546-b2e3-09211d227309"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 187, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815094967`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2151517795840429`*^-232\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 75, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993852737616254*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +In[138]:=",ExpressionUUID->"7f6ba3ed-3abe-4ec5-85f5-662f6cd1fcbb"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815164986`*^9}, +during this calculation.\"", 2, 138, 76, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993852737623386*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +In[138]:=",ExpressionUUID->"ec2782ee-dfb3-4dcc-929a-a2d3480250c2"], -Cell[BoxData["7.54286262106163`"], "Output", - CellChangeTimes->{3.9913317851500416`*^9}, +Cell[BoxData["2.8173048366251003`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.993852740856613*^9}, CellLabel-> - "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] + "Out[138]=",ExpressionUUID->"ce110386-346d-42a8-bf44-94e3428d9e8a"] }, Open ]], Cell[CellGroupData[{ @@ -7805,93 +14268,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918491043389053`*^9},ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-\ -b799ae260294"], + CellChangeTimes->{3.9918491043389053`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk4VdsbB3BJZc5QhkQy1DVUOodQst4yXXOEDBk6zt6EzIkSuaFCMl1D +N8mQKUQkU34plUolhIQoVIbtGCKV+q3zx37283nWXt/9rrXXXmsrw8+a4OTg +4JjGF/se8Grn9nsdr3TrX/vN14+ykC5VoMHQL0OpGzim2B7O2ZOmoN+EvIiq +t2wfYr5cy09/jBYfna9kuyo08tEa/Xa0mX4qnO1LTyQeRJa+QaO18dps13cE +XP9Fe4v+sWn5XIc90f88PKyxD5mISFxge9OYvNOi3gBqXroizrbpTLh2UPsH +FCOglHUPu/nXBF9o6Qjydv7Ex3ZPlPiZWt9PyGOu2a8Wm1qrP7FAG0MZfY2t +d7HXJvg70JfG0T7pfl62ZYSz2wIav6CHryQP1mBbSC0WUnpTaPzeyvk72OQN +ObEd3BSSEclLrMKOVLSM8W6fQb4ynnGV2H3i3buDS2eRVo6DbQU209HreGrC +HLqIYhTKsVnXOHLv+M6j9K+do7ewueV2CM3SviHr/3VrlWCnMR8ZCW1cRHyy +l9qLsGWLHCJ3LS2iGwuuVoXYWqqx1InG72iX/8md+dieez60T+j9QpSa3p5r +2AuhJ7l4t62gjGLBw1exzzXy6Shx/0ZlOStumdiZoHXLo/0Pel5keCiNXd/N +Nv3A0lWwNu9SeDx26ZPU4SgpTtC9clLuErvezy7hyQmcoG4VWx+LHa78rbrS +dzW8FxVvjGLXe3ur/AxtDThI/OQ7hd3fMdX8O38N5G8X3RfMrn/unqPgxrVQ +UWrlFIBdpm6RsmNpLZCzB/28sVvrT6/yaeSGS+tWRl2wvz3q+vBFjx+4LdZx +62GLmPELnWnmh+XjDt91sdW69UFAWwDKSJ3evdheo3dv7N4pCKYxtW40bH/O +drX9/EKQpx+bJ4s9JlcxG7MoDGPHWSPLn/D8kM95XtNFQIUW1biAzXlrfKtE +gAh0XC85P4MtS99iXTopAv+ZP/owiu2ol3Tn1bAoeNdsf/oK+7V7YJD4i40Q +ELD9cA72UFFivBu3GNiu8hPLwp6aLM0vMRCDxES7thRs3uBPXfseiEEcte57 +DLZ+tI26211xmNrHdcEbu6Fgz7fiHEkomJt0p2MXjP0I2RssDc+qhGVqP7LQ +37YXhoLKpcEvudKgAnuqVdSwfBy3C+q4FGKrF6hulHWQgZeEFCMdu5XhUr1G +dwuEuAjcPYk9NzN86st5WRBTtbq4G1v0hH5NtbkcFEmrfs0eYaHxAl7PQ15y +wFdXtisNu26gQ2o6Vg6izNU84rCPmjmf3/ZADiqi9UpCsAtUQqyzaPIwJ1cZ +ZoGtPlHEihBXgNsLtmY/h1nIxoNvh8mIInDaVDYbY6MQW9qRFUXwsPvnmC62 +ckyOJlNyG6SSaxdp2Bz59IMRVtugU/mvBSns8iGnI3datkFP34T+9Af8f9qV +RW3K2w4GnBral7Hr9M17JhhK8CfXLujhEAvlH854vxShBCzOnRZ3sRMZI8Nc +/ylBldXbTcXYzHMnJ2W6lECnKePSZWzhpmyOw3rKELSJ+/4RbC86pdworwLl +MmfDvw6ykJTclcj4UVX4tSxLcGI3xS0oLXPugCXylebcAJ6PeYducusOUIe5 +5RHs660KSgdddkA0V75ZC7acR0Pn994dsL/ljUoktnLZmCL5YidI7q7sXHrP +QtJSMqSsgxpI90u/HOhnIdWbwfw/EQ0ceXpfnexjIQbz/LcdFjSIK906zsDO +lE8ZcjtKgyNerjOW2Kvzblc+CaVBp0JDrxJ2//UJm5QqGsS+28gx2Iv300y3 +bCV5Okw51lQC9ni82U77teowX6NxbeUtC+UGKhy6264BDr8XFsy7WKgjBGlG +39QGY1euXS3tLLTV5a2Fs89+sHxeHcd4zELEn9oK6TCAKA9FquY+C4lP1q0T +ZxyEPu2ayfgaFgqm6wykKOtDuDif2IFbuP7pX22iEwbAbSRkEJGLv+fBoHU5 +r41g1kXAUjsdr58Fr5ayNGOYCbdU2RLPQt8PSLxsjTQFB52F4qgIFhrkWD07 +cswcbG63BWcGsJDvZr+kKHlLuFRfLKlAsFDF8bYH/8YcAilug9O6R1jo9Lzk +kspxKyhySPVcMsb7h4mh3VNXa9DuPl5tuY+FtJ2SD4xZHYYEoUDxOlUW6pTM +9mql24ALQW/5KYPPk8LzTcV/2cITBdX0NUJ4fQ0rm1kI2MHikcn3fJz4POhm +eYRM24FmkI7dsy8ziP5vcln+8BEQvSB+0f3FDMrmmt+Z8sgeuiIETAwrZ1Dt +gV39MfUOwHO1I9cxdQZlasYJ/yp1hDtBhs4Jp2bQ6/c3Y+kJTtAhttlfx2UG +3TW/puB/7ij8V7F4JVlvBs2eOMzhy3QG2niP4DmVGfTNUMmT0nMBv/C4jIcb +ZlDx9LvvQXtc4cKiQIzsCoXsc2+6O/O7QYR5rP/WLxSqvmPquvqCG+zf7bE+ +q5NC2lKdy5eW3eC0BnGr9n8Ukh/26H9z/Bhsoc1e96ig0Cift+W1T8eA6np0 +iDebQh2JFu5Gtgww9Z3q1EikUFpoDt/JDgZUPZpwrYqkUFPzn2V3Y3do++Vs +vT6IQuuPwgV6gzvM2n2NfOhJIdkNT19vbnIHOa1k7ixstXZzibXN7mBKtJb5 +YVvrOJX0tbiDW/pbI2nstM0hL84+cwfp3JG2MA8KbRq8tb6tD+cXXP6uSVJI +wUU88+iSO5CL5tLP3PF43KjiGHUmVBWIs3RdKVSYxQqy2MOE03s21Mpgb+ia +0xXXYkLes+i03y4UogyWuov3MYHx/enVZuwCFY5V7QeZ0GzD8RJhCy4JO4hY +MSGTN/qZoTOej8saPDknmFBxblbVw4lCVk81uz38mCDJf5DLBLuZY2+OWgAT +PM+oL6hiZwXpajwMZoJiEJfMvCOFLByMjo2dYYJeVEjWOex6BYd6lTgmNPK9 +VLvhQKHExvDjdYVMuBlnOzF7hEInaBnaocVMyOh3d+rDNiup4tEqZcK8hOFo +MzZvxnjJvXImwEzc/gTsmMBDE7U1TPAu1xD8CztcScH77kMmyO3mUWLaUcgr +44XPnSH8/gP7zSgbChkLjusEDjPh6cLX+l7sv2I4BGgfmVC7nIBasMcDNcqr +xpiw/2d9Shr2MYuc6copJlyuf2Gvg22/Jsj39g8mRPmUMJMOU8goaJN/mRgB +f6apKBNrCj3MiTVJkSDgXXmHkQa2TvucQugmAhTzeZVlsdUUX7zTkyGg4r94 +vUUrCkn2ntF7r0hAkP/w83zsyb2DYrwaBBSJPFHhwr7CeeO+x2EC9OLv7u+3 +xOPfxZ9pbkvA45LCpDbsaKfQQPoRArIThDjuYYfWHNr+x5EAYzNr9TTsY+Sq +5HQGATJSRXOW2PTnDObjAALv10eftltQqDdZkU8+iQATzr6e9+YUqkACnl+S +CXDfpn3rFXb09EJreSoB6SNnMluwacatEVoZBERGFN8vwk7kcJ8zv06ATl0F +7SS2od+Nd6FlBBhco55uwJaWvrhHt4KAXWoVyjzYC8/9UldXEuDqaF+4Ykah +vG3IPLGagFOXfL+MY68MDj7IbyCgq74yowG7xkyq+FUbARs//swjseN/cK5J +e04AmOamHcVmFE8cc2gngHebdo41thBXg9Toazz/fw780cX2abS/stxDQE9Z +64QEtrxyeojCGAHcYdN+b0wp9KP3bNfXcQIYn6ZZbdgdMYTa7S8EeJ/6HPcA +O2JEfUJ7igDRvKc8ldj9mV3OlvMExJ4wpCdhp6wTNji9igT9sMsatthNc4NO +watJWG4PDjPH/jxYGui7hoT011EDBtg6Nfo3GDwkzGcJcmhij7uF/jQRJiH1 +8++mTdhCZgYiBqIk3GZu+SGKvU9TRAltJOF9p6edAHaSQJkdXZKEn6tCfTjY +7Q0fqqS2krClNVnwiwmFyJtlbRvlSQiYWW3wETspKezDekUSBgZyrw5gj5Oi +AlxKJOTqM/LfsNtFjTyn1HD/nhXl+9gNv0Ujx2kkJN7qcazDHvs6/O+wOgm8 ++YMl1dh7H5x+1K1FgvDaUzdLsUd9KmTuAwkL2UMiV7EF7c9o3DtIQnXSLp10 +bG29v82q9EmgpVVGp2AnSn4Mu/k3CXN5ekHx2HVct5NyTEio2GAneRH708yZ +oiwzEjSZWUPR2FpPNr69fIiECNvqJxHYjKqPkxesSei2jPt6Bvvytduc/9iQ +cKIvRSUM+2OgsVqIPQk8NG2BYGwBFzEjf0cSTM17ywLYecafnL2OkqAUX+Tt +x+6/5Wy8ixsJXqwhQ292PbwmefYMEjoPG7ofZ+d9E6u3ZpIgbT183YOdN/Lp +tRlJwgeu8mWCnddeOW7oScK26LIgJru+e2dXwIuEj2ND/O7s/DyTDft8SGDo +6j8+xs6/LK6i4UuC1Y2Ba27s/NDRA7v8SQjbXJzqis3PrLJXCiThekthiQu2 +pmWEn3wwfj67b8iZnb/XNFY6hITRhv10thMUJbLFQ0nYpNBTeBS7VmisWvg0 +CYPDudpsj/yses4XToLP0o1JJ3b+54iRNREkbPXpamJ7T6fp9z+RJDw+oF3O +9v8BU7I06A== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7905,105 +14369,105 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV1Xk4VdsbB3BJZc5QhkQy1DVUOodQst4yXXOEDBk6zt6EzIkSuaFCMl1D +N8mQKUQkU34plUolhIQoVIbtGCKV+q3zx37283nWXt/9rrXXXmsrw8+a4OTg +4JjGF/se8Grn9nsdr3TrX/vN14+ykC5VoMHQL0OpGzim2B7O2ZOmoN+EvIiq +t2wfYr5cy09/jBYfna9kuyo08tEa/Xa0mX4qnO1LTyQeRJa+QaO18dps13cE +XP9Fe4v+sWn5XIc90f88PKyxD5mISFxge9OYvNOi3gBqXroizrbpTLh2UPsH +FCOglHUPu/nXBF9o6Qjydv7Ex3ZPlPiZWt9PyGOu2a8Wm1qrP7FAG0MZfY2t +d7HXJvg70JfG0T7pfl62ZYSz2wIav6CHryQP1mBbSC0WUnpTaPzeyvk72OQN +ObEd3BSSEclLrMKOVLSM8W6fQb4ynnGV2H3i3buDS2eRVo6DbQU209HreGrC +HLqIYhTKsVnXOHLv+M6j9K+do7ewueV2CM3SviHr/3VrlWCnMR8ZCW1cRHyy +l9qLsGWLHCJ3LS2iGwuuVoXYWqqx1InG72iX/8md+dieez60T+j9QpSa3p5r +2AuhJ7l4t62gjGLBw1exzzXy6Shx/0ZlOStumdiZoHXLo/0Pel5keCiNXd/N +Nv3A0lWwNu9SeDx26ZPU4SgpTtC9clLuErvezy7hyQmcoG4VWx+LHa78rbrS +dzW8FxVvjGLXe3ur/AxtDThI/OQ7hd3fMdX8O38N5G8X3RfMrn/unqPgxrVQ +UWrlFIBdpm6RsmNpLZCzB/28sVvrT6/yaeSGS+tWRl2wvz3q+vBFjx+4LdZx +62GLmPELnWnmh+XjDt91sdW69UFAWwDKSJ3evdheo3dv7N4pCKYxtW40bH/O +drX9/EKQpx+bJ4s9JlcxG7MoDGPHWSPLn/D8kM95XtNFQIUW1biAzXlrfKtE +gAh0XC85P4MtS99iXTopAv+ZP/owiu2ol3Tn1bAoeNdsf/oK+7V7YJD4i40Q +ELD9cA72UFFivBu3GNiu8hPLwp6aLM0vMRCDxES7thRs3uBPXfseiEEcte57 +DLZ+tI26211xmNrHdcEbu6Fgz7fiHEkomJt0p2MXjP0I2RssDc+qhGVqP7LQ +37YXhoLKpcEvudKgAnuqVdSwfBy3C+q4FGKrF6hulHWQgZeEFCMdu5XhUr1G +dwuEuAjcPYk9NzN86st5WRBTtbq4G1v0hH5NtbkcFEmrfs0eYaHxAl7PQ15y +wFdXtisNu26gQ2o6Vg6izNU84rCPmjmf3/ZADiqi9UpCsAtUQqyzaPIwJ1cZ +ZoGtPlHEihBXgNsLtmY/h1nIxoNvh8mIInDaVDYbY6MQW9qRFUXwsPvnmC62 +ckyOJlNyG6SSaxdp2Bz59IMRVtugU/mvBSns8iGnI3datkFP34T+9Af8f9qV +RW3K2w4GnBral7Hr9M17JhhK8CfXLujhEAvlH854vxShBCzOnRZ3sRMZI8Nc +/ylBldXbTcXYzHMnJ2W6lECnKePSZWzhpmyOw3rKELSJ+/4RbC86pdworwLl +MmfDvw6ykJTclcj4UVX4tSxLcGI3xS0oLXPugCXylebcAJ6PeYducusOUIe5 +5RHs660KSgdddkA0V75ZC7acR0Pn994dsL/ljUoktnLZmCL5YidI7q7sXHrP +QtJSMqSsgxpI90u/HOhnIdWbwfw/EQ0ceXpfnexjIQbz/LcdFjSIK906zsDO +lE8ZcjtKgyNerjOW2Kvzblc+CaVBp0JDrxJ2//UJm5QqGsS+28gx2Iv300y3 +bCV5Okw51lQC9ni82U77teowX6NxbeUtC+UGKhy6264BDr8XFsy7WKgjBGlG +39QGY1euXS3tLLTV5a2Fs89+sHxeHcd4zELEn9oK6TCAKA9FquY+C4lP1q0T +ZxyEPu2ayfgaFgqm6wykKOtDuDif2IFbuP7pX22iEwbAbSRkEJGLv+fBoHU5 +r41g1kXAUjsdr58Fr5ayNGOYCbdU2RLPQt8PSLxsjTQFB52F4qgIFhrkWD07 +cswcbG63BWcGsJDvZr+kKHlLuFRfLKlAsFDF8bYH/8YcAilug9O6R1jo9Lzk +kspxKyhySPVcMsb7h4mh3VNXa9DuPl5tuY+FtJ2SD4xZHYYEoUDxOlUW6pTM +9mql24ALQW/5KYPPk8LzTcV/2cITBdX0NUJ4fQ0rm1kI2MHikcn3fJz4POhm +eYRM24FmkI7dsy8ziP5vcln+8BEQvSB+0f3FDMrmmt+Z8sgeuiIETAwrZ1Dt +gV39MfUOwHO1I9cxdQZlasYJ/yp1hDtBhs4Jp2bQ6/c3Y+kJTtAhttlfx2UG +3TW/puB/7ij8V7F4JVlvBs2eOMzhy3QG2niP4DmVGfTNUMmT0nMBv/C4jIcb +ZlDx9LvvQXtc4cKiQIzsCoXsc2+6O/O7QYR5rP/WLxSqvmPquvqCG+zf7bE+ +q5NC2lKdy5eW3eC0BnGr9n8Ukh/26H9z/Bhsoc1e96ig0Cift+W1T8eA6np0 +iDebQh2JFu5Gtgww9Z3q1EikUFpoDt/JDgZUPZpwrYqkUFPzn2V3Y3do++Vs +vT6IQuuPwgV6gzvM2n2NfOhJIdkNT19vbnIHOa1k7ixstXZzibXN7mBKtJb5 +YVvrOJX0tbiDW/pbI2nstM0hL84+cwfp3JG2MA8KbRq8tb6tD+cXXP6uSVJI +wUU88+iSO5CL5tLP3PF43KjiGHUmVBWIs3RdKVSYxQqy2MOE03s21Mpgb+ia +0xXXYkLes+i03y4UogyWuov3MYHx/enVZuwCFY5V7QeZ0GzD8RJhCy4JO4hY +MSGTN/qZoTOej8saPDknmFBxblbVw4lCVk81uz38mCDJf5DLBLuZY2+OWgAT +PM+oL6hiZwXpajwMZoJiEJfMvCOFLByMjo2dYYJeVEjWOex6BYd6lTgmNPK9 +VLvhQKHExvDjdYVMuBlnOzF7hEInaBnaocVMyOh3d+rDNiup4tEqZcK8hOFo +MzZvxnjJvXImwEzc/gTsmMBDE7U1TPAu1xD8CztcScH77kMmyO3mUWLaUcgr +44XPnSH8/gP7zSgbChkLjusEDjPh6cLX+l7sv2I4BGgfmVC7nIBasMcDNcqr +xpiw/2d9Shr2MYuc6copJlyuf2Gvg22/Jsj39g8mRPmUMJMOU8goaJN/mRgB +f6apKBNrCj3MiTVJkSDgXXmHkQa2TvucQugmAhTzeZVlsdUUX7zTkyGg4r94 +vUUrCkn2ntF7r0hAkP/w83zsyb2DYrwaBBSJPFHhwr7CeeO+x2EC9OLv7u+3 +xOPfxZ9pbkvA45LCpDbsaKfQQPoRArIThDjuYYfWHNr+x5EAYzNr9TTsY+Sq +5HQGATJSRXOW2PTnDObjAALv10eftltQqDdZkU8+iQATzr6e9+YUqkACnl+S +CXDfpn3rFXb09EJreSoB6SNnMluwacatEVoZBERGFN8vwk7kcJ8zv06ATl0F +7SS2od+Nd6FlBBhco55uwJaWvrhHt4KAXWoVyjzYC8/9UldXEuDqaF+4Ykah +vG3IPLGagFOXfL+MY68MDj7IbyCgq74yowG7xkyq+FUbARs//swjseN/cK5J +e04AmOamHcVmFE8cc2gngHebdo41thBXg9Toazz/fw780cX2abS/stxDQE9Z +64QEtrxyeojCGAHcYdN+b0wp9KP3bNfXcQIYn6ZZbdgdMYTa7S8EeJ/6HPcA +O2JEfUJ7igDRvKc8ldj9mV3OlvMExJ4wpCdhp6wTNji9igT9sMsatthNc4NO +watJWG4PDjPH/jxYGui7hoT011EDBtg6Nfo3GDwkzGcJcmhij7uF/jQRJiH1 +8++mTdhCZgYiBqIk3GZu+SGKvU9TRAltJOF9p6edAHaSQJkdXZKEn6tCfTjY +7Q0fqqS2krClNVnwiwmFyJtlbRvlSQiYWW3wETspKezDekUSBgZyrw5gj5Oi +AlxKJOTqM/LfsNtFjTyn1HD/nhXl+9gNv0Ujx2kkJN7qcazDHvs6/O+wOgm8 ++YMl1dh7H5x+1K1FgvDaUzdLsUd9KmTuAwkL2UMiV7EF7c9o3DtIQnXSLp10 +bG29v82q9EmgpVVGp2AnSn4Mu/k3CXN5ekHx2HVct5NyTEio2GAneRH708yZ +oiwzEjSZWUPR2FpPNr69fIiECNvqJxHYjKqPkxesSei2jPt6Bvvytduc/9iQ +cKIvRSUM+2OgsVqIPQk8NG2BYGwBFzEjf0cSTM17ywLYecafnL2OkqAUX+Tt +x+6/5Wy8ixsJXqwhQ292PbwmefYMEjoPG7ofZ+d9E6u3ZpIgbT183YOdN/Lp +tRlJwgeu8mWCnddeOW7oScK26LIgJru+e2dXwIuEj2ND/O7s/DyTDft8SGDo +6j8+xs6/LK6i4UuC1Y2Ba27s/NDRA7v8SQjbXJzqis3PrLJXCiThekthiQu2 +pmWEn3wwfj67b8iZnb/XNFY6hITRhv10thMUJbLFQ0nYpNBTeBS7VmisWvg0 +CYPDudpsj/yses4XToLP0o1JJ3b+54iRNREkbPXpamJ7T6fp9z+RJDw+oF3O +9v8BU7I06A== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "PlotRange" -> {{0, 180}, {0.9465769179606062, 1.055841399121148}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9465769179606083}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8015,21 +14479,20 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.9465769179606062, 1.055841399121148}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.9465769179606083}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8043,103 +14506,104 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV1Xk4VdsbB3BJZc5QhkQy1DVUOodQst4yXXOEDBk6zt6EzIkSuaFCMl1D +N8mQKUQkU34plUolhIQoVIbtGCKV+q3zx37283nWXt/9rrXXXmsrw8+a4OTg +4JjGF/se8Grn9nsdr3TrX/vN14+ykC5VoMHQL0OpGzim2B7O2ZOmoN+EvIiq +t2wfYr5cy09/jBYfna9kuyo08tEa/Xa0mX4qnO1LTyQeRJa+QaO18dps13cE +XP9Fe4v+sWn5XIc90f88PKyxD5mISFxge9OYvNOi3gBqXroizrbpTLh2UPsH +FCOglHUPu/nXBF9o6Qjydv7Ex3ZPlPiZWt9PyGOu2a8Wm1qrP7FAG0MZfY2t +d7HXJvg70JfG0T7pfl62ZYSz2wIav6CHryQP1mBbSC0WUnpTaPzeyvk72OQN +ObEd3BSSEclLrMKOVLSM8W6fQb4ynnGV2H3i3buDS2eRVo6DbQU209HreGrC +HLqIYhTKsVnXOHLv+M6j9K+do7ewueV2CM3SviHr/3VrlWCnMR8ZCW1cRHyy +l9qLsGWLHCJ3LS2iGwuuVoXYWqqx1InG72iX/8md+dieez60T+j9QpSa3p5r +2AuhJ7l4t62gjGLBw1exzzXy6Shx/0ZlOStumdiZoHXLo/0Pel5keCiNXd/N +Nv3A0lWwNu9SeDx26ZPU4SgpTtC9clLuErvezy7hyQmcoG4VWx+LHa78rbrS +dzW8FxVvjGLXe3ur/AxtDThI/OQ7hd3fMdX8O38N5G8X3RfMrn/unqPgxrVQ +UWrlFIBdpm6RsmNpLZCzB/28sVvrT6/yaeSGS+tWRl2wvz3q+vBFjx+4LdZx +62GLmPELnWnmh+XjDt91sdW69UFAWwDKSJ3evdheo3dv7N4pCKYxtW40bH/O +drX9/EKQpx+bJ4s9JlcxG7MoDGPHWSPLn/D8kM95XtNFQIUW1biAzXlrfKtE +gAh0XC85P4MtS99iXTopAv+ZP/owiu2ol3Tn1bAoeNdsf/oK+7V7YJD4i40Q +ELD9cA72UFFivBu3GNiu8hPLwp6aLM0vMRCDxES7thRs3uBPXfseiEEcte57 +DLZ+tI26211xmNrHdcEbu6Fgz7fiHEkomJt0p2MXjP0I2RssDc+qhGVqP7LQ +37YXhoLKpcEvudKgAnuqVdSwfBy3C+q4FGKrF6hulHWQgZeEFCMdu5XhUr1G +dwuEuAjcPYk9NzN86st5WRBTtbq4G1v0hH5NtbkcFEmrfs0eYaHxAl7PQ15y +wFdXtisNu26gQ2o6Vg6izNU84rCPmjmf3/ZADiqi9UpCsAtUQqyzaPIwJ1cZ +ZoGtPlHEihBXgNsLtmY/h1nIxoNvh8mIInDaVDYbY6MQW9qRFUXwsPvnmC62 +ckyOJlNyG6SSaxdp2Bz59IMRVtugU/mvBSns8iGnI3datkFP34T+9Af8f9qV +RW3K2w4GnBral7Hr9M17JhhK8CfXLujhEAvlH854vxShBCzOnRZ3sRMZI8Nc +/ylBldXbTcXYzHMnJ2W6lECnKePSZWzhpmyOw3rKELSJ+/4RbC86pdworwLl +MmfDvw6ykJTclcj4UVX4tSxLcGI3xS0oLXPugCXylebcAJ6PeYducusOUIe5 +5RHs660KSgdddkA0V75ZC7acR0Pn994dsL/ljUoktnLZmCL5YidI7q7sXHrP +QtJSMqSsgxpI90u/HOhnIdWbwfw/EQ0ceXpfnexjIQbz/LcdFjSIK906zsDO +lE8ZcjtKgyNerjOW2Kvzblc+CaVBp0JDrxJ2//UJm5QqGsS+28gx2Iv300y3 +bCV5Okw51lQC9ni82U77teowX6NxbeUtC+UGKhy6264BDr8XFsy7WKgjBGlG +39QGY1euXS3tLLTV5a2Fs89+sHxeHcd4zELEn9oK6TCAKA9FquY+C4lP1q0T +ZxyEPu2ayfgaFgqm6wykKOtDuDif2IFbuP7pX22iEwbAbSRkEJGLv+fBoHU5 +r41g1kXAUjsdr58Fr5ayNGOYCbdU2RLPQt8PSLxsjTQFB52F4qgIFhrkWD07 +cswcbG63BWcGsJDvZr+kKHlLuFRfLKlAsFDF8bYH/8YcAilug9O6R1jo9Lzk +kspxKyhySPVcMsb7h4mh3VNXa9DuPl5tuY+FtJ2SD4xZHYYEoUDxOlUW6pTM +9mql24ALQW/5KYPPk8LzTcV/2cITBdX0NUJ4fQ0rm1kI2MHikcn3fJz4POhm +eYRM24FmkI7dsy8ziP5vcln+8BEQvSB+0f3FDMrmmt+Z8sgeuiIETAwrZ1Dt +gV39MfUOwHO1I9cxdQZlasYJ/yp1hDtBhs4Jp2bQ6/c3Y+kJTtAhttlfx2UG +3TW/puB/7ij8V7F4JVlvBs2eOMzhy3QG2niP4DmVGfTNUMmT0nMBv/C4jIcb +ZlDx9LvvQXtc4cKiQIzsCoXsc2+6O/O7QYR5rP/WLxSqvmPquvqCG+zf7bE+ +q5NC2lKdy5eW3eC0BnGr9n8Ukh/26H9z/Bhsoc1e96ig0Cift+W1T8eA6np0 +iDebQh2JFu5Gtgww9Z3q1EikUFpoDt/JDgZUPZpwrYqkUFPzn2V3Y3do++Vs +vT6IQuuPwgV6gzvM2n2NfOhJIdkNT19vbnIHOa1k7ixstXZzibXN7mBKtJb5 +YVvrOJX0tbiDW/pbI2nstM0hL84+cwfp3JG2MA8KbRq8tb6tD+cXXP6uSVJI +wUU88+iSO5CL5tLP3PF43KjiGHUmVBWIs3RdKVSYxQqy2MOE03s21Mpgb+ia +0xXXYkLes+i03y4UogyWuov3MYHx/enVZuwCFY5V7QeZ0GzD8RJhCy4JO4hY +MSGTN/qZoTOej8saPDknmFBxblbVw4lCVk81uz38mCDJf5DLBLuZY2+OWgAT +PM+oL6hiZwXpajwMZoJiEJfMvCOFLByMjo2dYYJeVEjWOex6BYd6lTgmNPK9 +VLvhQKHExvDjdYVMuBlnOzF7hEInaBnaocVMyOh3d+rDNiup4tEqZcK8hOFo +MzZvxnjJvXImwEzc/gTsmMBDE7U1TPAu1xD8CztcScH77kMmyO3mUWLaUcgr +44XPnSH8/gP7zSgbChkLjusEDjPh6cLX+l7sv2I4BGgfmVC7nIBasMcDNcqr +xpiw/2d9Shr2MYuc6copJlyuf2Gvg22/Jsj39g8mRPmUMJMOU8goaJN/mRgB +f6apKBNrCj3MiTVJkSDgXXmHkQa2TvucQugmAhTzeZVlsdUUX7zTkyGg4r94 +vUUrCkn2ntF7r0hAkP/w83zsyb2DYrwaBBSJPFHhwr7CeeO+x2EC9OLv7u+3 +xOPfxZ9pbkvA45LCpDbsaKfQQPoRArIThDjuYYfWHNr+x5EAYzNr9TTsY+Sq +5HQGATJSRXOW2PTnDObjAALv10eftltQqDdZkU8+iQATzr6e9+YUqkACnl+S +CXDfpn3rFXb09EJreSoB6SNnMluwacatEVoZBERGFN8vwk7kcJ8zv06ATl0F +7SS2od+Nd6FlBBhco55uwJaWvrhHt4KAXWoVyjzYC8/9UldXEuDqaF+4Ykah +vG3IPLGagFOXfL+MY68MDj7IbyCgq74yowG7xkyq+FUbARs//swjseN/cK5J +e04AmOamHcVmFE8cc2gngHebdo41thBXg9Toazz/fw780cX2abS/stxDQE9Z +64QEtrxyeojCGAHcYdN+b0wp9KP3bNfXcQIYn6ZZbdgdMYTa7S8EeJ/6HPcA +O2JEfUJ7igDRvKc8ldj9mV3OlvMExJ4wpCdhp6wTNji9igT9sMsatthNc4NO +watJWG4PDjPH/jxYGui7hoT011EDBtg6Nfo3GDwkzGcJcmhij7uF/jQRJiH1 +8++mTdhCZgYiBqIk3GZu+SGKvU9TRAltJOF9p6edAHaSQJkdXZKEn6tCfTjY +7Q0fqqS2krClNVnwiwmFyJtlbRvlSQiYWW3wETspKezDekUSBgZyrw5gj5Oi +AlxKJOTqM/LfsNtFjTyn1HD/nhXl+9gNv0Ujx2kkJN7qcazDHvs6/O+wOgm8 ++YMl1dh7H5x+1K1FgvDaUzdLsUd9KmTuAwkL2UMiV7EF7c9o3DtIQnXSLp10 +bG29v82q9EmgpVVGp2AnSn4Mu/k3CXN5ekHx2HVct5NyTEio2GAneRH708yZ +oiwzEjSZWUPR2FpPNr69fIiECNvqJxHYjKqPkxesSei2jPt6Bvvytduc/9iQ +cKIvRSUM+2OgsVqIPQk8NG2BYGwBFzEjf0cSTM17ywLYecafnL2OkqAUX+Tt +x+6/5Wy8ixsJXqwhQ292PbwmefYMEjoPG7ofZ+d9E6u3ZpIgbT183YOdN/Lp +tRlJwgeu8mWCnddeOW7oScK26LIgJru+e2dXwIuEj2ND/O7s/DyTDft8SGDo +6j8+xs6/LK6i4UuC1Y2Ba27s/NDRA7v8SQjbXJzqis3PrLJXCiThekthiQu2 +pmWEn3wwfj67b8iZnb/XNFY6hITRhv10thMUJbLFQ0nYpNBTeBS7VmisWvg0 +CYPDudpsj/yses4XToLP0o1JJ3b+54iRNREkbPXpamJ7T6fp9z+RJDw+oF3O +9v8BU7I06A== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.9465769179606062, 1.055841399121148}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.9465769179606083}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8149,7 +14613,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6044061540843444}, + AxesOrigin->{0, 0.9465769179606083}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8177,7 +14642,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9465769179606062, 1.055841399121148}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8185,9 +14651,9 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913320330871353`*^9}, + CellChangeTimes->{3.9913320330871353`*^9, 3.99385301494697*^9}, CellLabel-> - "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] + "Out[139]=",ExpressionUUID->"4f681a7e-a8e3-4a5f-b8f4-9fc54d92dd57"] }, Open ]], Cell[CellGroupData[{ @@ -8202,7 +14668,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -8224,8 +14692,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -8250,205 +14717,231 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918491076725483`*^9, - 3.9918491120260525`*^9}},ExpressionUUID->"cbec275e-4d01-7747-9ece-\ -7fa9a2a651b1"], + CellChangeTimes->{{3.9918491076725483`*^9, 3.9918491120260525`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.2312716656536628`*^-269\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 77, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993853015085857*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"5ec6f569-b9d5-4a87-bb56-54c83bf0a939"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.365261197199821`*^-282\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 78, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993853015093913*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"92d85066-22d9-46c7-8cb4-31ef9110ee9b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.405776078196232`*^-294\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 221, - 189, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033325203*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 79, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.9938530151006527`*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 221, 190, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913320333342056`*^9}, - CellLabel-> - "During evaluation of \ -In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 221, 191, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033342205*^9}, - CellLabel-> - "During evaluation of \ -In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +In[140]:=",ExpressionUUID->"284963fd-a7b1-4bd0-bfaf-d65ca18fefb4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033351204*^9}, +during this calculation.\"", 2, 140, 80, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993853015109436*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +In[140]:=",ExpressionUUID->"c93382fb-7e73-4302-8d0b-a669b2737f7e"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VO8XAHBR1ij7WLLTgmxjMMycg1SGLIUQJWVLtsgua1KWEKEFSSpK +djOUihbki8jSZo0QRbZ2v/n9dZ/Pc+99n3POe857r6yr3343VhYWlu51LCz/ +v64MtT1TSC6mzpWd7NocZk19k08IMxyMA7/hinEVDnVA4S5XwmAmaLOtuLFz +IARblQ6wDRaB0rrbTZPsVsD/VTTz50AVWEqOmt5id4HhhxZ+SwPNkNj3U6Bp +gz/sVpj5uDDQA4zau2vqrDHwc0Ane35gDCSGPR0IUxehxfh28euiReCnEfc+ +OlwIksOMSVeVv0Ax1GhKe3QbhE4eKeUwZsOjxu1jHHblsIPj5gurg2zoHnNY +kCOgHLBocizPmw2Jz31CVpPL4eSgj4RKFhtyxYXeK3taDs92RaZYTbCh6RVq +movKAwjakuebd249zu51DP3+7wH0dvZoKndsQJeyqj7tjgrI1NjdaGHLic3P +xjIN91WB2nuHPRRPTuwTVa/8dbAKOhJ8epUjODGr9pTZPdcqYB/M+sJ5gxPP +hCVP/gipgogz4xIts5x4cEjwkE5RFRx/FROpk8CFiW9u++5ergKSWyNFppob +e+smB3Oyq6GXr6uN7wU3rv1zdXcsqAZ/+pjt30FutOKz3CR8txpKebh93/3j +xuQ3LXdOPawG6Sr7/CwaDzaeOV7ROVYNnGvL/zjHeNDv2u8+jp018DZX/cnC +Zl6cfJ90z6epBq70lm0KVuTFvKgI2ZmXNeDIt/XILz1epMmf/eH0ugY+xG/5 +x3qMF88OFzcrfqqBEV9uA6Fa5v0gpVhjrlqY2vWpnuTAh5nPP128b10LP+Zz +HkTc2ITZHnyPVN7XAkNZcG2tdhPyFTRsDBivhXD3NIuE9k0Y9uJFeNmXWvjz +PmEuZXETzjWcLmP9Uwsx43ThLrnNWNPFpUWWrIOEzlsHRoI246g3S2aHYx0k +F0d3sYrx44qd08vT3XVAI3oJCMvzo4akdKbjQB1wPttvu1WVH3fyPa3UHmK+ +P6743syQH5euTM52fqmDSLmOySwvflyd2GiYyl4PvoWEf0oN/Hi623lal1wP +1tcqVcwOCWBbKssH0yv1sFnlqp+zmwA+u1Hs86OgHjobE6r8/ATw7YsV2vVb +9UB7f1A3K14AbT/pTLdV1IOR+D/jj2UCmMxylVH+oh6IubRDfn8E8CctbqZk +vh5Es8bPX7ouiNVxH0ZtKHQgKNcm/CgRxND4G+yxhnQQb06Mdq4QxCPD9q3F +JnSQmt9+emuLILL1lSj27qODorm/S+OUIPbW/HN+5UwHrfV/SeNaQojOA4k7 +IulAvNqpsZcihNJBjsPd0XQgaRaq3N8thO938Yz7xtOB7GIsF+IghKEzivMZ +F+hg+PA8L0+0EMrFpEBQLh0sg0Q+abYLYfAx+5rSKjpY8UwN5fQKoZZ6+e6O +WjrsL2K8/fNBCEkb/lyeoNPBrtup68U3IYw93Rm81kQHZ5WbDY7Cwsji4e3Q +3U4H709qGXEuwmiw8mT68wgdTkasS/nsJYxXsj6yJY7TwVegN9E8UBgZNUqL +EpN0OIXBkSKJwph6uOig2hc6hF176FFaJozl66bclpbocM7GlNqzwrTfY4Gf +7AwQr+kUZ10ngi66yxFGXAwoF7RZ1eARwdxhVe84Hgb09xyuyJAWwY8TChMT +mxigYB0kZ71XBAVyui/oExhAr/j5L2a/CB45es1DT5wB5puj31c4iWDR+tWP +qpIMCOw6n7U5QAQbopNu/JJmQPO+AvbuPBF8FXu9Q34rA+zuK4yv3RTBH9Hk +pv5tDJjZWPpYrVwEfVYPHI7ZwQD+jprQi80iWGX4rqZelQEutPYZiy8iyNIS +wFmvxYClu5YvzyyLoJkad6O0NgPOcfXdLF8TwbJKN81oEjOf1mEnPiFRNHsx +Fy6nx4C/u5c7/zMQxR0zks9/URiQXhJe9ne3KH4fiv8mBsz82FmSVK1F0fDq +rhU1ZObznNsw1U0Um9NZbqERA0YU0rc88hPFNAHpA/rGzPwShH/Nhoniw/GP +0yq7GHDFWKbaPE0UvyQ3fFwyYcDOm7cuRuaKos+yvOGr3cz8WZVP3isSRbb2 +Z3m5exgw/VRbcWO9KNIywnUIpgyIlG1cZ/BUFFnbWePbmd4ci0Per0Rxz/yd +7kAaA3TRLOfVsCjmhnpHl5kxoKOgO/D3tCiyGMh91jNn1mfN1kp5SRQlS5QP +P2Z66fB7lUP/RLHl58hn/X3M+jS5cCVzEpBqUnjuAdPiUpMTDQIEtHXuQHEL +Zr2ivJtnJAmYMdghEsm00cf5fPGtBNTh5uPtY7rfIDiCpkHArL8sWxUtGXDi +2u+D4foE/O4v4XmS6b+/Y4ilJgTs7B7oLWU6/RA7/ztLAg5p1vqMMK3QmDzH +5UhAJWsdPV4rZv+I87frHScg4eykngbT5uGXS7x8CXix2TLQnOmRtxLxeaEE +HM1cP32Y6UC9G0fa4gi4tOlqvifTtEK+JbMUAna7nuzwYlqOIzKpM5uAw8jm +cozpnz7TktYFzHgP2DrZMt39xq6y9w4Bd98/9AyYvqP/zMSuioC3nwtclWM6 +ukjj3WAjAVWDw8f/MuO14yrwPfScgHEr2YWvmd7pv5FtqJOAi4PefdeZ3jAQ +luMySMCP7OxnXZn+QPmsPD5KQL5HAVXSTNcU2zxx+0JAUtJjl//XL5mn2WZq +iYAWhmyX4pl2PaU2feIfAWe5bMx3ME1+ey1qjkMMH+3tuNjG3J+pkpCS7+Ji +qMFx/+kCcz8f806QTyuIYUeKY10405eD9netqorh/lSG4R9mP5gYqf74g2Lo +YaO3fZrZL5J3r6RE08RQjE5PtmF6aROnLKuNGFa1lWTQmf1V9HHMlMNDDM++ +Lc86sZcBYbushs77i6FoDubSmf1pVfbo1MZwMXwXpm6+xuzftdDcq/ypYthM +NOgJZva3k5DFnES1GJ422l7Nx5wPrYjG2PyHYiin/zBbzpAB3GPbRGRfiOF2 +d2nj/88T4wEbKL0Vw9v2rTxaVAaImDHS1dfEMMPXo/oTcz7nKpUUqznFMXlg +u9ljXQY8I2QxtAXE0ShstjVTh7n/k75jZEVx9NEwTFBgznt3rALRxEwc7Tl8 +Dy2qMeD2VEbrSxtxTKQfS8jeyYAzlmtOtMPiOK6ID9SZ54fqlndnLQPEsWxd +H2E/83y5QL844JAjjrcfSxYYKjBg17df4b7j4lhca5bfL8Ksx96sHU9nmfHM +uVUKCjPn44bqO8EVcbRLuGlME2QAwcZFj8EpgRcyIxZvMs/HWfrzVbadEhhK +aB7j4mTApbj0oLxQCZS5IUS4uUqH1vfbFWZjJZDfKupZ2DId/hBbeqnJErju +cv822iId3D8va366zlwv5e3Wwa/M7435oYWdLRJYucbtdneCDmPCSr7PeCXx +8DSHgEIPHUT9Hm8RFZVEgmH8Uk4XHcxb7f/zkpHE71k9bRv+o0NdeLLKJi1J +1KNPH+p6SYcLw/MzDvaS2HV37znxR3TQvNvo8a1IEsP75c2ySugQa2B9VFx3 +C6b9XD2mfpoOew/nf9cx2oKCFNszRQF04Iv5Em9rvgUrne24+XzpcK3lbEm6 +yxbsDTmd/NqdDnRawxf281swyWH2Mbc9Hebt5YMX325B9jAed5oeHQ6fXr7Q +ESGFb4rlbsmt1oNijpHkzFkpvM219LHjez2zfhfvc6RL4ay3qWrA13oI/7O9 +26hYClkm4hTuTNRDdvxhYUaHFD79nMzZ3VsPHRkvC25tkUaP170mGx/UA7k8 +r+bMY2mkBs88P3S0HnYNdP792iqNtDTz0LtO9WDBsn7PkR5pXF7oy/1+sB6O +7fd9CxPSeCBoQDvEoh52R8hGx2yQQWuPNQeafj34S6/cNFSWQW/RGmlJoXp4 +5lEw1xIsg24dnx1Tmuvg5I+FmFZeWSTUHBW8LFgHP5U3D6nayuFO3tJgU+8a +MCi7V3j5sjwaLxznlCusggUBmotdswKyRhooyQ5XwKcUF7tTHEqY9vi0dNan ++2D6LcR0grQVX15OsdZyKoXZY5yBNdHbsGspX6WksoT5vy/Keq55O5bXB5d1 +2dwEgf+U0iq+7UA10TRaTiDz/z7pgRWJpILKrflvk/ZchVxlvc2CHqp40fpe +E73oMrSLG2ovZuzEQ5etGg+XZAJZsjldrV8NlQ/eItwdToUxeYWh6XdquOPj +Rkt8kQrnlROVi4fVUGxHosDUvVQYJNNeEKbVcNDuirJXeCqEOPT8XvdHDRXM +m/k1RFLB0SxAa2azOrbe8PrdY5UCl5OYxwFJHbWED/bo9lwAPraioKNx6vjh +b3mc+fokYP/5+MBCgjpqlz8/v2nuHPz7+lEz9pw6+j27bf2p7xx8eye2UJii +jlZ5p9e33D4H3VUZPiOX1XFUhFPcxvwcZLrGuh8pU8chRhShKTcRRJpd7J3f +qGP3s1+OYdSzIBUrbeCgpIFvDMJlnzXGQXkgp9zHbRqY5HWvcvPdOKC6L3Ac +VdZAIvGG+8nLceBs1tLrqa6B4dvWpKwD4uCasId3KFkDL6qkzHRujQOx0vIr +ORYauE1uYSErJxaEeik/+4I1kHXt8DOBuBjgUnSq2/9SA7eMilVsY42CE2JA +K2vTwLjVgkvDE5HQzis3xNahgT3f0mzvt0VCysrnDbXdzHhWXmJqRiTwtQba +ir7TwHuez02d5SJBwDt56f2sBkYMPu7R3BsBkpUNmm4CmrgUwuHnUBwGOyli +D0KcNfHKXMbSy6vBUC3v9ZvVRROX00KqR+OCQZebsSfNVROVUp2yBU4Eg9GA +/UixhyZ+j4qNY+gGg11ALn9PgCbusbpuIj5wGqJviQapJGpiqV1qjhjhNHTz +iuiNlmsildM75UZpIJwaEmihsWjhxoIP34L5AqD1hdOjUlYt/HWh/5vyH3+Q +elBSz71BC58IXHu6MO0P7dHke+1cWlhyvKb0wXN/kJN1zaYJamGHF9FkMcof +Xh+r9KApaaHwJanTUuN+oD5tuZFmroWa6rH86W0+kPg6j73UQgvrPO71stz1 +gQ+McRZuay3MfvfPPD3JB5IuhCy32Wrhb+o8F89eHxhRLhgyPaKFz6eW1H1a +T0K679cK01NaKHpA81R3pzd8W0yxNc3VwqZtxIrgBS/4MHjD7voVLWQ5NmSi +0OcF7Y/qDi5c08L2vcTaWboXFJ8bcci7wfTRrK7/YrzAUYJ4eLpUC1mT1z/s +5PeC50bv3c8/0sKz0oJvGbqecDVje2jbmBYqVTwil+a5Q1IwNWzLhBZ+ZHw4 +kBLjDsGHDoQHfNZCP2/2zkQPd7BSjIoUm9XCLbPDuc+03YGd0R3jtayFAY/S +Th3tdYOAkZDzXJxErJ4LLt4k6AZ71F5cMVUlYsMJn4DGm8fAnn2vTbcaEVuv ++LgXJR+DEx/beA9qEjGkWG3/zcBjkJb8X8xxHSIe5bWs+m58DPo/v3GPNiTi +XfG9Is8nXOF44bhmrS0RTZQnbyrsdIU4/nWvZM4QcXrdqf1ar10gayou4XYM +Ed9dbaCrPnSBksfrqTvjiSjYStkPt12g3YezUj+JiFXsfO23o1yAv31Tjl0m +EamTcVHJyi5QGCd1LKWEiCu//tBERY9A06L+79VOIson8OY21TvBjY561wOv +mc4cPn8j2wkSbmm1l/cS8VLFff87gU5gelA5z22QiPGZevmy6k7wpkFcp3eU +iLdnndY3lR6Cmdifp8qXiGhcH5YXX+IIIpvrZ46LayO/9OcvJ+rt4eeU5v4n +ktqYuPFyYHqePXx4Ws6QkNbGiCZ/qf4Ie7gRWJLUI6+NYYu3PZ+iPagMZCuh +qjY2SLgVCnUcBKP8IFcJ1MYqtgWPrCk78FXRfPfaTRvr+LwqtXRt4fSq+K8j +ntoo4MkgrErYQmQzm/jXE9ooYXxN9sOaDSTb9zlw+2uj0Iaoi9ytNnAnIfSt +Ubg28ultVVx2sIGxD02D1WnaePPClnfj8QfALtVsILteG1+Inek2/GYNzvbE +VfkGbVTZ0qP8s98ajstvEa16qI3u2/yFO5usIZDx1a7zqTYy1vpEu9OsIX0i +o5+9g7le/LtIDXVraKcM9oWMaKPXohfJMtQKKF+Pv3HgIuEtr9aRfWQLEGnc +U/SQh4Q1/Jnkk4IW8PXcDn9pPhIqX6+uq5/dB/my8zwTAiSUHA106SvYB/9s +Ioz9JUkY6sGZrMS5Dx43ZlQlqpGwKyVA/+eIGRieb0qvtiWhofN3mlqVKYjb +3TgsYk/CQx+f3ryWbgrf5RJUwhxJyGd5uE7DzxSKHpq2Uo+QkLHA49ajYgqs +82/W2jxJ2NbPGzR9dy+02H3xHYkgobuNsZJZ2R4wUSDs4y0i4RuBKNn2NhOo +mXsue7yYhJtF+mNO3TcBhfrAlYYSElZ1BbgYZJjAelpXgWcZCStbzggTHUyg +2S/xe0sNCS/+aUh/MLMLqI1LOeEvSfjSZOEnXXAXkPa/Hvs8S8JCK5sFlSgj +KJGIrqd+I+GVfgO1Z8eNQHhCJSV7gYT2r1o6Qs2NYCkkSdt4hYSK9ct39SSN +oOo6JOWvkTArfey8yCNDUJu+r2oroIODPI9l5NYbwraYC6HNOjq4tP/7IZd9 +AA/1b20wJ+sgF72Y/7M0gNXq48w+Ax1scn+lUvqdCqG+y/emDHWwRPl38Kdc +KrQ6uYzymetgoO/7ItkpCnjqkWiHXHRwI5kzMjbDAO5+H5VYStJBQ1NB83+8 +ZKCW/7kTlayDj68r/Ej5rAc9XqIkjjQdvCaycNvyqR78GjG3Er+kg7qDg6L+ +p/WA1lWfgNd18KLbvRMiI7owU5Y6l1Kpg3YpHuSWJh3Y4ab3WPGdDp79bKPx +t0AbLspZ/Ir/wIz32gPVx7HasDTsqj02pIO/dfg33TmmDU2OKWX54zp44Srj +v7mt2rDfajhHdE4HVWcXnXdVESFM/6w/F4suxp3sCVz9Twta+V/LzinqYmJv +cbKZjCaodk04mW3Txft5/1Ivs2tCZsqvnLs7dLGsNVuVbU4DnDgU+NzVdDHS +1aUEGzTg25/gX0O6uji31ZW4104DRKYke7vNdPHEl0+LHlnq4NbkmVAToIuq +ita8Ly13wlefmRCTIF0cqbYRSZPZCaFbTnr3B+vi1z3ZUnkLqnAh0m//jwhd +NB3XeRWWpQoV5GAZg0RdrLtQt3boowr8qYt/2HJFFyujg3ztI5Qh80H+Uk+L +Lk7RquemJ7aB5BGZqWMvdPEc31hbStM2uMVX9H6pVRfNvc9ZeeVsA7rPrWaR +Tl2sOTuzo9N0G3xUvpfuOKiLBc/9XlIrt8K2OwyVsVlddF5xdQy/oASPC98c +XxDWQw4ct3M9rgAj5rJHggl6mC5wuWHXLgVg+enj8FtcDyPyCwl2CgpgZM1h +sUFGD01jb7Wtn5CHF+vIOmI79DC+okM32VMeOlwLuAypemh75BEbR6gcvFM4 +UZ7urodP3oqcl6qXgd/ddXeEvfTQJK3B4eQ1GZCMYrt5xVsPLYyb3o3GyoBz +37WcYn895DL2EjHeJwMjZ7ti6OF6WJovYVD5Sho+TxIPjKTpYRrRT3KXgRQs +3VlbVavXQ1KBekDuAQmYtNtdeJ6hhxs2KgVb7pCAwfWpe8cb/7++bCmuk4BG +F/G8y0/0sGeq/lT3A3GII2iT/7bpIblJ1fX6JnHYnHQisv2DHv5o315x7y0B +VDz6WNxYydiq59xemS0CUsKSd5vWk/FM4fwR+UAR2Nziak3gIKPP5qEjL6xE +YFFq/sYrHjKW2MhcLdgoAg393MaawmSUtD+6kpMoDHt349m1rWQ0//zxm2e8 +EBxTLOO6so+MRcXtMSP5AhD+/PAJJSsyflZ4deJKtACkuwm8qtpPxjgZ3viz +LgLw8FZYyquDZJxsPy77VU4AhJT2bvp7lIwjUYJH1pXywwulCSGXYDJOH391 +cPHJZtixTVpGqYCMt2xeJ7vL8AG29sRU3WA+jxZa0nO8YOeZOEotJqP0bF3j +9gZeiL8zV3TwLhkZ3LQUTVte+LDtoeL5ajKq6VwSZ7+4EdK2OyjPviRju7Tm +cQt+HljYcYlUNU/G4wXzrJb7OGGwA00EF8moc+84Q1mJE574fj0QtEzGf1Z5 +ZcZrHJBWZRpA+kXG3Da1VfkqDthBZrnXwKaPLn8zVK+Lc4CrqY9si4g+Rrsc +iVFe2QBvPPZsfGOgj4EJk605fWzQyLUsrg36OHUmsdyolg2Kyoq2XzbUx7dr +PurS2Wzg/+3vbvvd+mhCD/jqbcsGvCE1sR8s9THi6qd75oOssDtRdvWTqz7y +Nppt+za5DujFv0eXk/TRdry1aVqRBUjGQau0ZH3s+OYc/4qHBWpHZzcWpuoj +jj/RLh1fo1ZJDenQMvXRgXjq6aPINeq93Cep+Vf1sfIYn01q1T9qYcpZvT3l ++igaJHXcV+Uv9XzQpozcXn08f9p32MbuF5VTMKlkrk8fl78GNhoo/6ImVrI8 +NBrUx9S6W9s9WH5RE74uTM5+0MdHRwmUuLKf1DOebwwMJ/Xx6K3bwy/W/6Se +csqbmv6hj+Uqcbd1W1apjrvkUV/KAPXYX9eY+SxT/77h5GuRMUD5fVln3+xe +pha6fX1PkzfAp3vuF+TLLFMnExkhjtsMkLEyxb/8Zol6qs3yQZimAWaK1T8q +wCXqBYtIKfpuA3SI8crMkl+kNtj3/SH6GaCAoG++k/AC1Xm6of1hgAF+fis9 +aLUyT2UJL8zdFWSA/cS4qPCBeeruq95EmzAD3H4Dqk9emaf2fFx3MjDeAJ2f +9Ee1yM1TZ1x3vq/MMUDR0Dfnx8O+UiV8zjF2PjFATeuhQ3t2fKGmrblrJzcb +oKD9IVrx7xkqa+buys/PDPDWHrrcvv9mqDN1G+4WthngUZespzEBM9QGloRc +gV4D5JiWVzv2aJrqmBUTsjJhgJTXBZeqXKeouY1h2k08FLT1zWg9PzJB3Wjh +UCnOR8G/tc7SFxsmqDEjuqohmykoeLCCtzdrguq54YeCujAFj/buVxWmTVB1 +LIOFiqQoSOns/xtS/4naP3Zq8awGBbvY0zvdro9ThblPVu47SMH2habSk5eY +o2QcFT7vQMHaNY9/a/6jVM2oNONLThTk2tvh2WsxSrWYr+gbPEpBp5y2J7o8 +o9TE/uWfx05SUPpB9uGFxBHqj6Joo/BYCrpkraOFCA5T3+lf6i0poyB7/45X +zwLfUz1PF18zLaeg1x5xKXvKe+pKea3bbAUFsxaC5fZzvKcKyA2uatRRkDuc +0y3k2juqGecWyUdPKEjvyhYPfPWW+vBNyfHePgoOaGg7ZesPUml8dNXgQQrK +fHXLRp5B6uCethXCe+Z9OcK1Pe8HqEsNX5IOj1DwNsjGuEcOUFVvqN+fnqHg +uR+Vo33N/dSH7wyDU+Yo2OdKatqX3U+lCR0AtXkKXoxSdpH07Ke6nzv9OmiZ +gti6O6GRr5+69CTxiugPClblzXZfGOujxv3KOdbwi4LCWmsh5XV91M3EuyrO +fylY5L5nVDG5j5rv07C8tkbBF/+lnZ4/0kf9H35BFTY= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8462,164 +14955,186 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV1nk4VO8XAHBR1ij7WLLTgmxjMMycg1SGLIUQJWVLtsgua1KWEKEFSSpK +djOUihbki8jSZo0QRbZ2v/n9dZ/Pc+99n3POe857r6yr3343VhYWlu51LCz/ +v64MtT1TSC6mzpWd7NocZk19k08IMxyMA7/hinEVDnVA4S5XwmAmaLOtuLFz +IARblQ6wDRaB0rrbTZPsVsD/VTTz50AVWEqOmt5id4HhhxZ+SwPNkNj3U6Bp +gz/sVpj5uDDQA4zau2vqrDHwc0Ane35gDCSGPR0IUxehxfh28euiReCnEfc+ +OlwIksOMSVeVv0Ax1GhKe3QbhE4eKeUwZsOjxu1jHHblsIPj5gurg2zoHnNY +kCOgHLBocizPmw2Jz31CVpPL4eSgj4RKFhtyxYXeK3taDs92RaZYTbCh6RVq +movKAwjakuebd249zu51DP3+7wH0dvZoKndsQJeyqj7tjgrI1NjdaGHLic3P +xjIN91WB2nuHPRRPTuwTVa/8dbAKOhJ8epUjODGr9pTZPdcqYB/M+sJ5gxPP +hCVP/gipgogz4xIts5x4cEjwkE5RFRx/FROpk8CFiW9u++5ergKSWyNFppob +e+smB3Oyq6GXr6uN7wU3rv1zdXcsqAZ/+pjt30FutOKz3CR8txpKebh93/3j +xuQ3LXdOPawG6Sr7/CwaDzaeOV7ROVYNnGvL/zjHeNDv2u8+jp018DZX/cnC +Zl6cfJ90z6epBq70lm0KVuTFvKgI2ZmXNeDIt/XILz1epMmf/eH0ugY+xG/5 +x3qMF88OFzcrfqqBEV9uA6Fa5v0gpVhjrlqY2vWpnuTAh5nPP128b10LP+Zz +HkTc2ITZHnyPVN7XAkNZcG2tdhPyFTRsDBivhXD3NIuE9k0Y9uJFeNmXWvjz +PmEuZXETzjWcLmP9Uwsx43ThLrnNWNPFpUWWrIOEzlsHRoI246g3S2aHYx0k +F0d3sYrx44qd08vT3XVAI3oJCMvzo4akdKbjQB1wPttvu1WVH3fyPa3UHmK+ +P6743syQH5euTM52fqmDSLmOySwvflyd2GiYyl4PvoWEf0oN/Hi623lal1wP +1tcqVcwOCWBbKssH0yv1sFnlqp+zmwA+u1Hs86OgHjobE6r8/ATw7YsV2vVb +9UB7f1A3K14AbT/pTLdV1IOR+D/jj2UCmMxylVH+oh6IubRDfn8E8CctbqZk +vh5Es8bPX7ouiNVxH0ZtKHQgKNcm/CgRxND4G+yxhnQQb06Mdq4QxCPD9q3F +JnSQmt9+emuLILL1lSj27qODorm/S+OUIPbW/HN+5UwHrfV/SeNaQojOA4k7 +IulAvNqpsZcihNJBjsPd0XQgaRaq3N8thO938Yz7xtOB7GIsF+IghKEzivMZ +F+hg+PA8L0+0EMrFpEBQLh0sg0Q+abYLYfAx+5rSKjpY8UwN5fQKoZZ6+e6O +WjrsL2K8/fNBCEkb/lyeoNPBrtup68U3IYw93Rm81kQHZ5WbDY7Cwsji4e3Q +3U4H709qGXEuwmiw8mT68wgdTkasS/nsJYxXsj6yJY7TwVegN9E8UBgZNUqL +EpN0OIXBkSKJwph6uOig2hc6hF176FFaJozl66bclpbocM7GlNqzwrTfY4Gf +7AwQr+kUZ10ngi66yxFGXAwoF7RZ1eARwdxhVe84Hgb09xyuyJAWwY8TChMT +mxigYB0kZ71XBAVyui/oExhAr/j5L2a/CB45es1DT5wB5puj31c4iWDR+tWP +qpIMCOw6n7U5QAQbopNu/JJmQPO+AvbuPBF8FXu9Q34rA+zuK4yv3RTBH9Hk +pv5tDJjZWPpYrVwEfVYPHI7ZwQD+jprQi80iWGX4rqZelQEutPYZiy8iyNIS +wFmvxYClu5YvzyyLoJkad6O0NgPOcfXdLF8TwbJKN81oEjOf1mEnPiFRNHsx +Fy6nx4C/u5c7/zMQxR0zks9/URiQXhJe9ne3KH4fiv8mBsz82FmSVK1F0fDq +rhU1ZObznNsw1U0Um9NZbqERA0YU0rc88hPFNAHpA/rGzPwShH/Nhoniw/GP +0yq7GHDFWKbaPE0UvyQ3fFwyYcDOm7cuRuaKos+yvOGr3cz8WZVP3isSRbb2 +Z3m5exgw/VRbcWO9KNIywnUIpgyIlG1cZ/BUFFnbWePbmd4ci0Per0Rxz/yd +7kAaA3TRLOfVsCjmhnpHl5kxoKOgO/D3tCiyGMh91jNn1mfN1kp5SRQlS5QP +P2Z66fB7lUP/RLHl58hn/X3M+jS5cCVzEpBqUnjuAdPiUpMTDQIEtHXuQHEL +Zr2ivJtnJAmYMdghEsm00cf5fPGtBNTh5uPtY7rfIDiCpkHArL8sWxUtGXDi +2u+D4foE/O4v4XmS6b+/Y4ilJgTs7B7oLWU6/RA7/ztLAg5p1vqMMK3QmDzH +5UhAJWsdPV4rZv+I87frHScg4eykngbT5uGXS7x8CXix2TLQnOmRtxLxeaEE +HM1cP32Y6UC9G0fa4gi4tOlqvifTtEK+JbMUAna7nuzwYlqOIzKpM5uAw8jm +cozpnz7TktYFzHgP2DrZMt39xq6y9w4Bd98/9AyYvqP/zMSuioC3nwtclWM6 +ukjj3WAjAVWDw8f/MuO14yrwPfScgHEr2YWvmd7pv5FtqJOAi4PefdeZ3jAQ +luMySMCP7OxnXZn+QPmsPD5KQL5HAVXSTNcU2zxx+0JAUtJjl//XL5mn2WZq +iYAWhmyX4pl2PaU2feIfAWe5bMx3ME1+ey1qjkMMH+3tuNjG3J+pkpCS7+Ji +qMFx/+kCcz8f806QTyuIYUeKY10405eD9netqorh/lSG4R9mP5gYqf74g2Lo +YaO3fZrZL5J3r6RE08RQjE5PtmF6aROnLKuNGFa1lWTQmf1V9HHMlMNDDM++ +Lc86sZcBYbushs77i6FoDubSmf1pVfbo1MZwMXwXpm6+xuzftdDcq/ypYthM +NOgJZva3k5DFnES1GJ422l7Nx5wPrYjG2PyHYiin/zBbzpAB3GPbRGRfiOF2 +d2nj/88T4wEbKL0Vw9v2rTxaVAaImDHS1dfEMMPXo/oTcz7nKpUUqznFMXlg +u9ljXQY8I2QxtAXE0ShstjVTh7n/k75jZEVx9NEwTFBgznt3rALRxEwc7Tl8 +Dy2qMeD2VEbrSxtxTKQfS8jeyYAzlmtOtMPiOK6ID9SZ54fqlndnLQPEsWxd +H2E/83y5QL844JAjjrcfSxYYKjBg17df4b7j4lhca5bfL8Ksx96sHU9nmfHM +uVUKCjPn44bqO8EVcbRLuGlME2QAwcZFj8EpgRcyIxZvMs/HWfrzVbadEhhK +aB7j4mTApbj0oLxQCZS5IUS4uUqH1vfbFWZjJZDfKupZ2DId/hBbeqnJErju +cv822iId3D8va366zlwv5e3Wwa/M7435oYWdLRJYucbtdneCDmPCSr7PeCXx +8DSHgEIPHUT9Hm8RFZVEgmH8Uk4XHcxb7f/zkpHE71k9bRv+o0NdeLLKJi1J +1KNPH+p6SYcLw/MzDvaS2HV37znxR3TQvNvo8a1IEsP75c2ySugQa2B9VFx3 +C6b9XD2mfpoOew/nf9cx2oKCFNszRQF04Iv5Em9rvgUrne24+XzpcK3lbEm6 +yxbsDTmd/NqdDnRawxf281swyWH2Mbc9Hebt5YMX325B9jAed5oeHQ6fXr7Q +ESGFb4rlbsmt1oNijpHkzFkpvM219LHjez2zfhfvc6RL4ay3qWrA13oI/7O9 +26hYClkm4hTuTNRDdvxhYUaHFD79nMzZ3VsPHRkvC25tkUaP170mGx/UA7k8 +r+bMY2mkBs88P3S0HnYNdP792iqNtDTz0LtO9WDBsn7PkR5pXF7oy/1+sB6O +7fd9CxPSeCBoQDvEoh52R8hGx2yQQWuPNQeafj34S6/cNFSWQW/RGmlJoXp4 +5lEw1xIsg24dnx1Tmuvg5I+FmFZeWSTUHBW8LFgHP5U3D6nayuFO3tJgU+8a +MCi7V3j5sjwaLxznlCusggUBmotdswKyRhooyQ5XwKcUF7tTHEqY9vi0dNan ++2D6LcR0grQVX15OsdZyKoXZY5yBNdHbsGspX6WksoT5vy/Keq55O5bXB5d1 +2dwEgf+U0iq+7UA10TRaTiDz/z7pgRWJpILKrflvk/ZchVxlvc2CHqp40fpe +E73oMrSLG2ovZuzEQ5etGg+XZAJZsjldrV8NlQ/eItwdToUxeYWh6XdquOPj +Rkt8kQrnlROVi4fVUGxHosDUvVQYJNNeEKbVcNDuirJXeCqEOPT8XvdHDRXM +m/k1RFLB0SxAa2azOrbe8PrdY5UCl5OYxwFJHbWED/bo9lwAPraioKNx6vjh +b3mc+fokYP/5+MBCgjpqlz8/v2nuHPz7+lEz9pw6+j27bf2p7xx8eye2UJii +jlZ5p9e33D4H3VUZPiOX1XFUhFPcxvwcZLrGuh8pU8chRhShKTcRRJpd7J3f +qGP3s1+OYdSzIBUrbeCgpIFvDMJlnzXGQXkgp9zHbRqY5HWvcvPdOKC6L3Ac +VdZAIvGG+8nLceBs1tLrqa6B4dvWpKwD4uCasId3KFkDL6qkzHRujQOx0vIr +ORYauE1uYSErJxaEeik/+4I1kHXt8DOBuBjgUnSq2/9SA7eMilVsY42CE2JA +K2vTwLjVgkvDE5HQzis3xNahgT3f0mzvt0VCysrnDbXdzHhWXmJqRiTwtQba +ir7TwHuez02d5SJBwDt56f2sBkYMPu7R3BsBkpUNmm4CmrgUwuHnUBwGOyli +D0KcNfHKXMbSy6vBUC3v9ZvVRROX00KqR+OCQZebsSfNVROVUp2yBU4Eg9GA +/UixhyZ+j4qNY+gGg11ALn9PgCbusbpuIj5wGqJviQapJGpiqV1qjhjhNHTz +iuiNlmsildM75UZpIJwaEmihsWjhxoIP34L5AqD1hdOjUlYt/HWh/5vyH3+Q +elBSz71BC58IXHu6MO0P7dHke+1cWlhyvKb0wXN/kJN1zaYJamGHF9FkMcof +Xh+r9KApaaHwJanTUuN+oD5tuZFmroWa6rH86W0+kPg6j73UQgvrPO71stz1 +gQ+McRZuay3MfvfPPD3JB5IuhCy32Wrhb+o8F89eHxhRLhgyPaKFz6eW1H1a +T0K679cK01NaKHpA81R3pzd8W0yxNc3VwqZtxIrgBS/4MHjD7voVLWQ5NmSi +0OcF7Y/qDi5c08L2vcTaWboXFJ8bcci7wfTRrK7/YrzAUYJ4eLpUC1mT1z/s +5PeC50bv3c8/0sKz0oJvGbqecDVje2jbmBYqVTwil+a5Q1IwNWzLhBZ+ZHw4 +kBLjDsGHDoQHfNZCP2/2zkQPd7BSjIoUm9XCLbPDuc+03YGd0R3jtayFAY/S +Th3tdYOAkZDzXJxErJ4LLt4k6AZ71F5cMVUlYsMJn4DGm8fAnn2vTbcaEVuv ++LgXJR+DEx/beA9qEjGkWG3/zcBjkJb8X8xxHSIe5bWs+m58DPo/v3GPNiTi +XfG9Is8nXOF44bhmrS0RTZQnbyrsdIU4/nWvZM4QcXrdqf1ar10gayou4XYM +Ed9dbaCrPnSBksfrqTvjiSjYStkPt12g3YezUj+JiFXsfO23o1yAv31Tjl0m +EamTcVHJyi5QGCd1LKWEiCu//tBERY9A06L+79VOIson8OY21TvBjY561wOv +mc4cPn8j2wkSbmm1l/cS8VLFff87gU5gelA5z22QiPGZevmy6k7wpkFcp3eU +iLdnndY3lR6Cmdifp8qXiGhcH5YXX+IIIpvrZ46LayO/9OcvJ+rt4eeU5v4n +ktqYuPFyYHqePXx4Ws6QkNbGiCZ/qf4Ie7gRWJLUI6+NYYu3PZ+iPagMZCuh +qjY2SLgVCnUcBKP8IFcJ1MYqtgWPrCk78FXRfPfaTRvr+LwqtXRt4fSq+K8j +ntoo4MkgrErYQmQzm/jXE9ooYXxN9sOaDSTb9zlw+2uj0Iaoi9ytNnAnIfSt +Ubg28ultVVx2sIGxD02D1WnaePPClnfj8QfALtVsILteG1+Inek2/GYNzvbE +VfkGbVTZ0qP8s98ajstvEa16qI3u2/yFO5usIZDx1a7zqTYy1vpEu9OsIX0i +o5+9g7le/LtIDXVraKcM9oWMaKPXohfJMtQKKF+Pv3HgIuEtr9aRfWQLEGnc +U/SQh4Q1/Jnkk4IW8PXcDn9pPhIqX6+uq5/dB/my8zwTAiSUHA106SvYB/9s +Ioz9JUkY6sGZrMS5Dx43ZlQlqpGwKyVA/+eIGRieb0qvtiWhofN3mlqVKYjb +3TgsYk/CQx+f3ryWbgrf5RJUwhxJyGd5uE7DzxSKHpq2Uo+QkLHA49ajYgqs +82/W2jxJ2NbPGzR9dy+02H3xHYkgobuNsZJZ2R4wUSDs4y0i4RuBKNn2NhOo +mXsue7yYhJtF+mNO3TcBhfrAlYYSElZ1BbgYZJjAelpXgWcZCStbzggTHUyg +2S/xe0sNCS/+aUh/MLMLqI1LOeEvSfjSZOEnXXAXkPa/Hvs8S8JCK5sFlSgj +KJGIrqd+I+GVfgO1Z8eNQHhCJSV7gYT2r1o6Qs2NYCkkSdt4hYSK9ct39SSN +oOo6JOWvkTArfey8yCNDUJu+r2oroIODPI9l5NYbwraYC6HNOjq4tP/7IZd9 +AA/1b20wJ+sgF72Y/7M0gNXq48w+Ax1scn+lUvqdCqG+y/emDHWwRPl38Kdc +KrQ6uYzymetgoO/7ItkpCnjqkWiHXHRwI5kzMjbDAO5+H5VYStJBQ1NB83+8 +ZKCW/7kTlayDj68r/Ej5rAc9XqIkjjQdvCaycNvyqR78GjG3Er+kg7qDg6L+ +p/WA1lWfgNd18KLbvRMiI7owU5Y6l1Kpg3YpHuSWJh3Y4ab3WPGdDp79bKPx +t0AbLspZ/Ir/wIz32gPVx7HasDTsqj02pIO/dfg33TmmDU2OKWX54zp44Srj +v7mt2rDfajhHdE4HVWcXnXdVESFM/6w/F4suxp3sCVz9Twta+V/LzinqYmJv +cbKZjCaodk04mW3Txft5/1Ivs2tCZsqvnLs7dLGsNVuVbU4DnDgU+NzVdDHS +1aUEGzTg25/gX0O6uji31ZW4104DRKYke7vNdPHEl0+LHlnq4NbkmVAToIuq +ita8Ly13wlefmRCTIF0cqbYRSZPZCaFbTnr3B+vi1z3ZUnkLqnAh0m//jwhd +NB3XeRWWpQoV5GAZg0RdrLtQt3boowr8qYt/2HJFFyujg3ztI5Qh80H+Uk+L +Lk7RquemJ7aB5BGZqWMvdPEc31hbStM2uMVX9H6pVRfNvc9ZeeVsA7rPrWaR +Tl2sOTuzo9N0G3xUvpfuOKiLBc/9XlIrt8K2OwyVsVlddF5xdQy/oASPC98c +XxDWQw4ct3M9rgAj5rJHggl6mC5wuWHXLgVg+enj8FtcDyPyCwl2CgpgZM1h +sUFGD01jb7Wtn5CHF+vIOmI79DC+okM32VMeOlwLuAypemh75BEbR6gcvFM4 +UZ7urodP3oqcl6qXgd/ddXeEvfTQJK3B4eQ1GZCMYrt5xVsPLYyb3o3GyoBz +37WcYn895DL2EjHeJwMjZ7ti6OF6WJovYVD5Sho+TxIPjKTpYRrRT3KXgRQs +3VlbVavXQ1KBekDuAQmYtNtdeJ6hhxs2KgVb7pCAwfWpe8cb/7++bCmuk4BG +F/G8y0/0sGeq/lT3A3GII2iT/7bpIblJ1fX6JnHYnHQisv2DHv5o315x7y0B +VDz6WNxYydiq59xemS0CUsKSd5vWk/FM4fwR+UAR2Nziak3gIKPP5qEjL6xE +YFFq/sYrHjKW2MhcLdgoAg393MaawmSUtD+6kpMoDHt349m1rWQ0//zxm2e8 +EBxTLOO6so+MRcXtMSP5AhD+/PAJJSsyflZ4deJKtACkuwm8qtpPxjgZ3viz +LgLw8FZYyquDZJxsPy77VU4AhJT2bvp7lIwjUYJH1pXywwulCSGXYDJOH391 +cPHJZtixTVpGqYCMt2xeJ7vL8AG29sRU3WA+jxZa0nO8YOeZOEotJqP0bF3j +9gZeiL8zV3TwLhkZ3LQUTVte+LDtoeL5ajKq6VwSZ7+4EdK2OyjPviRju7Tm +cQt+HljYcYlUNU/G4wXzrJb7OGGwA00EF8moc+84Q1mJE574fj0QtEzGf1Z5 +ZcZrHJBWZRpA+kXG3Da1VfkqDthBZrnXwKaPLn8zVK+Lc4CrqY9si4g+Rrsc +iVFe2QBvPPZsfGOgj4EJk605fWzQyLUsrg36OHUmsdyolg2Kyoq2XzbUx7dr +PurS2Wzg/+3vbvvd+mhCD/jqbcsGvCE1sR8s9THi6qd75oOssDtRdvWTqz7y +Nppt+za5DujFv0eXk/TRdry1aVqRBUjGQau0ZH3s+OYc/4qHBWpHZzcWpuoj +jj/RLh1fo1ZJDenQMvXRgXjq6aPINeq93Cep+Vf1sfIYn01q1T9qYcpZvT3l ++igaJHXcV+Uv9XzQpozcXn08f9p32MbuF5VTMKlkrk8fl78GNhoo/6ImVrI8 +NBrUx9S6W9s9WH5RE74uTM5+0MdHRwmUuLKf1DOebwwMJ/Xx6K3bwy/W/6Se +csqbmv6hj+Uqcbd1W1apjrvkUV/KAPXYX9eY+SxT/77h5GuRMUD5fVln3+xe +pha6fX1PkzfAp3vuF+TLLFMnExkhjtsMkLEyxb/8Zol6qs3yQZimAWaK1T8q +wCXqBYtIKfpuA3SI8crMkl+kNtj3/SH6GaCAoG++k/AC1Xm6of1hgAF+fis9 +aLUyT2UJL8zdFWSA/cS4qPCBeeruq95EmzAD3H4Dqk9emaf2fFx3MjDeAJ2f +9Ee1yM1TZ1x3vq/MMUDR0Dfnx8O+UiV8zjF2PjFATeuhQ3t2fKGmrblrJzcb +oKD9IVrx7xkqa+buys/PDPDWHrrcvv9mqDN1G+4WthngUZespzEBM9QGloRc +gV4D5JiWVzv2aJrqmBUTsjJhgJTXBZeqXKeouY1h2k08FLT1zWg9PzJB3Wjh +UCnOR8G/tc7SFxsmqDEjuqohmykoeLCCtzdrguq54YeCujAFj/buVxWmTVB1 +LIOFiqQoSOns/xtS/4naP3Zq8awGBbvY0zvdro9ThblPVu47SMH2habSk5eY +o2QcFT7vQMHaNY9/a/6jVM2oNONLThTk2tvh2WsxSrWYr+gbPEpBp5y2J7o8 +o9TE/uWfx05SUPpB9uGFxBHqj6Joo/BYCrpkraOFCA5T3+lf6i0poyB7/45X +zwLfUz1PF18zLaeg1x5xKXvKe+pKea3bbAUFsxaC5fZzvKcKyA2uatRRkDuc +0y3k2juqGecWyUdPKEjvyhYPfPWW+vBNyfHePgoOaGg7ZesPUml8dNXgQQrK +fHXLRp5B6uCethXCe+Z9OcK1Pe8HqEsNX5IOj1DwNsjGuEcOUFVvqN+fnqHg +uR+Vo33N/dSH7wyDU+Yo2OdKatqX3U+lCR0AtXkKXoxSdpH07Ke6nzv9OmiZ +gti6O6GRr5+69CTxiugPClblzXZfGOujxv3KOdbwi4LCWmsh5XV91M3EuyrO +fylY5L5nVDG5j5rv07C8tkbBF/+lnZ4/0kf9H35BFTY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.0988832592087292}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8631,19 +15146,19 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.0988832592087292}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8657,163 +15172,185 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV1nk4VO8XAHBR1ij7WLLTgmxjMMycg1SGLIUQJWVLtsgua1KWEKEFSSpK +djOUihbki8jSZo0QRbZ2v/n9dZ/Pc+99n3POe857r6yr3343VhYWlu51LCz/ +v64MtT1TSC6mzpWd7NocZk19k08IMxyMA7/hinEVDnVA4S5XwmAmaLOtuLFz +IARblQ6wDRaB0rrbTZPsVsD/VTTz50AVWEqOmt5id4HhhxZ+SwPNkNj3U6Bp +gz/sVpj5uDDQA4zau2vqrDHwc0Ane35gDCSGPR0IUxehxfh28euiReCnEfc+ +OlwIksOMSVeVv0Ax1GhKe3QbhE4eKeUwZsOjxu1jHHblsIPj5gurg2zoHnNY +kCOgHLBocizPmw2Jz31CVpPL4eSgj4RKFhtyxYXeK3taDs92RaZYTbCh6RVq +movKAwjakuebd249zu51DP3+7wH0dvZoKndsQJeyqj7tjgrI1NjdaGHLic3P +xjIN91WB2nuHPRRPTuwTVa/8dbAKOhJ8epUjODGr9pTZPdcqYB/M+sJ5gxPP +hCVP/gipgogz4xIts5x4cEjwkE5RFRx/FROpk8CFiW9u++5ergKSWyNFppob +e+smB3Oyq6GXr6uN7wU3rv1zdXcsqAZ/+pjt30FutOKz3CR8txpKebh93/3j +xuQ3LXdOPawG6Sr7/CwaDzaeOV7ROVYNnGvL/zjHeNDv2u8+jp018DZX/cnC +Zl6cfJ90z6epBq70lm0KVuTFvKgI2ZmXNeDIt/XILz1epMmf/eH0ugY+xG/5 +x3qMF88OFzcrfqqBEV9uA6Fa5v0gpVhjrlqY2vWpnuTAh5nPP128b10LP+Zz +HkTc2ITZHnyPVN7XAkNZcG2tdhPyFTRsDBivhXD3NIuE9k0Y9uJFeNmXWvjz +PmEuZXETzjWcLmP9Uwsx43ThLrnNWNPFpUWWrIOEzlsHRoI246g3S2aHYx0k +F0d3sYrx44qd08vT3XVAI3oJCMvzo4akdKbjQB1wPttvu1WVH3fyPa3UHmK+ +P6743syQH5euTM52fqmDSLmOySwvflyd2GiYyl4PvoWEf0oN/Hi623lal1wP +1tcqVcwOCWBbKssH0yv1sFnlqp+zmwA+u1Hs86OgHjobE6r8/ATw7YsV2vVb +9UB7f1A3K14AbT/pTLdV1IOR+D/jj2UCmMxylVH+oh6IubRDfn8E8CctbqZk +vh5Es8bPX7ouiNVxH0ZtKHQgKNcm/CgRxND4G+yxhnQQb06Mdq4QxCPD9q3F +JnSQmt9+emuLILL1lSj27qODorm/S+OUIPbW/HN+5UwHrfV/SeNaQojOA4k7 +IulAvNqpsZcihNJBjsPd0XQgaRaq3N8thO938Yz7xtOB7GIsF+IghKEzivMZ +F+hg+PA8L0+0EMrFpEBQLh0sg0Q+abYLYfAx+5rSKjpY8UwN5fQKoZZ6+e6O +WjrsL2K8/fNBCEkb/lyeoNPBrtup68U3IYw93Rm81kQHZ5WbDY7Cwsji4e3Q +3U4H709qGXEuwmiw8mT68wgdTkasS/nsJYxXsj6yJY7TwVegN9E8UBgZNUqL +EpN0OIXBkSKJwph6uOig2hc6hF176FFaJozl66bclpbocM7GlNqzwrTfY4Gf +7AwQr+kUZ10ngi66yxFGXAwoF7RZ1eARwdxhVe84Hgb09xyuyJAWwY8TChMT +mxigYB0kZ71XBAVyui/oExhAr/j5L2a/CB45es1DT5wB5puj31c4iWDR+tWP +qpIMCOw6n7U5QAQbopNu/JJmQPO+AvbuPBF8FXu9Q34rA+zuK4yv3RTBH9Hk +pv5tDJjZWPpYrVwEfVYPHI7ZwQD+jprQi80iWGX4rqZelQEutPYZiy8iyNIS +wFmvxYClu5YvzyyLoJkad6O0NgPOcfXdLF8TwbJKN81oEjOf1mEnPiFRNHsx +Fy6nx4C/u5c7/zMQxR0zks9/URiQXhJe9ne3KH4fiv8mBsz82FmSVK1F0fDq +rhU1ZObznNsw1U0Um9NZbqERA0YU0rc88hPFNAHpA/rGzPwShH/Nhoniw/GP +0yq7GHDFWKbaPE0UvyQ3fFwyYcDOm7cuRuaKos+yvOGr3cz8WZVP3isSRbb2 +Z3m5exgw/VRbcWO9KNIywnUIpgyIlG1cZ/BUFFnbWePbmd4ci0Per0Rxz/yd +7kAaA3TRLOfVsCjmhnpHl5kxoKOgO/D3tCiyGMh91jNn1mfN1kp5SRQlS5QP +P2Z66fB7lUP/RLHl58hn/X3M+jS5cCVzEpBqUnjuAdPiUpMTDQIEtHXuQHEL +Zr2ivJtnJAmYMdghEsm00cf5fPGtBNTh5uPtY7rfIDiCpkHArL8sWxUtGXDi +2u+D4foE/O4v4XmS6b+/Y4ilJgTs7B7oLWU6/RA7/ztLAg5p1vqMMK3QmDzH +5UhAJWsdPV4rZv+I87frHScg4eykngbT5uGXS7x8CXix2TLQnOmRtxLxeaEE +HM1cP32Y6UC9G0fa4gi4tOlqvifTtEK+JbMUAna7nuzwYlqOIzKpM5uAw8jm +cozpnz7TktYFzHgP2DrZMt39xq6y9w4Bd98/9AyYvqP/zMSuioC3nwtclWM6 +ukjj3WAjAVWDw8f/MuO14yrwPfScgHEr2YWvmd7pv5FtqJOAi4PefdeZ3jAQ +luMySMCP7OxnXZn+QPmsPD5KQL5HAVXSTNcU2zxx+0JAUtJjl//XL5mn2WZq +iYAWhmyX4pl2PaU2feIfAWe5bMx3ME1+ey1qjkMMH+3tuNjG3J+pkpCS7+Ji +qMFx/+kCcz8f806QTyuIYUeKY10405eD9netqorh/lSG4R9mP5gYqf74g2Lo +YaO3fZrZL5J3r6RE08RQjE5PtmF6aROnLKuNGFa1lWTQmf1V9HHMlMNDDM++ +Lc86sZcBYbushs77i6FoDubSmf1pVfbo1MZwMXwXpm6+xuzftdDcq/ypYthM +NOgJZva3k5DFnES1GJ422l7Nx5wPrYjG2PyHYiin/zBbzpAB3GPbRGRfiOF2 +d2nj/88T4wEbKL0Vw9v2rTxaVAaImDHS1dfEMMPXo/oTcz7nKpUUqznFMXlg +u9ljXQY8I2QxtAXE0ShstjVTh7n/k75jZEVx9NEwTFBgznt3rALRxEwc7Tl8 +Dy2qMeD2VEbrSxtxTKQfS8jeyYAzlmtOtMPiOK6ID9SZ54fqlndnLQPEsWxd +H2E/83y5QL844JAjjrcfSxYYKjBg17df4b7j4lhca5bfL8Ksx96sHU9nmfHM +uVUKCjPn44bqO8EVcbRLuGlME2QAwcZFj8EpgRcyIxZvMs/HWfrzVbadEhhK +aB7j4mTApbj0oLxQCZS5IUS4uUqH1vfbFWZjJZDfKupZ2DId/hBbeqnJErju +cv822iId3D8va366zlwv5e3Wwa/M7435oYWdLRJYucbtdneCDmPCSr7PeCXx +8DSHgEIPHUT9Hm8RFZVEgmH8Uk4XHcxb7f/zkpHE71k9bRv+o0NdeLLKJi1J +1KNPH+p6SYcLw/MzDvaS2HV37znxR3TQvNvo8a1IEsP75c2ySugQa2B9VFx3 +C6b9XD2mfpoOew/nf9cx2oKCFNszRQF04Iv5Em9rvgUrne24+XzpcK3lbEm6 +yxbsDTmd/NqdDnRawxf281swyWH2Mbc9Hebt5YMX325B9jAed5oeHQ6fXr7Q +ESGFb4rlbsmt1oNijpHkzFkpvM219LHjez2zfhfvc6RL4ay3qWrA13oI/7O9 +26hYClkm4hTuTNRDdvxhYUaHFD79nMzZ3VsPHRkvC25tkUaP170mGx/UA7k8 +r+bMY2mkBs88P3S0HnYNdP792iqNtDTz0LtO9WDBsn7PkR5pXF7oy/1+sB6O +7fd9CxPSeCBoQDvEoh52R8hGx2yQQWuPNQeafj34S6/cNFSWQW/RGmlJoXp4 +5lEw1xIsg24dnx1Tmuvg5I+FmFZeWSTUHBW8LFgHP5U3D6nayuFO3tJgU+8a +MCi7V3j5sjwaLxznlCusggUBmotdswKyRhooyQ5XwKcUF7tTHEqY9vi0dNan ++2D6LcR0grQVX15OsdZyKoXZY5yBNdHbsGspX6WksoT5vy/Keq55O5bXB5d1 +2dwEgf+U0iq+7UA10TRaTiDz/z7pgRWJpILKrflvk/ZchVxlvc2CHqp40fpe +E73oMrSLG2ovZuzEQ5etGg+XZAJZsjldrV8NlQ/eItwdToUxeYWh6XdquOPj +Rkt8kQrnlROVi4fVUGxHosDUvVQYJNNeEKbVcNDuirJXeCqEOPT8XvdHDRXM +m/k1RFLB0SxAa2azOrbe8PrdY5UCl5OYxwFJHbWED/bo9lwAPraioKNx6vjh +b3mc+fokYP/5+MBCgjpqlz8/v2nuHPz7+lEz9pw6+j27bf2p7xx8eye2UJii +jlZ5p9e33D4H3VUZPiOX1XFUhFPcxvwcZLrGuh8pU8chRhShKTcRRJpd7J3f +qGP3s1+OYdSzIBUrbeCgpIFvDMJlnzXGQXkgp9zHbRqY5HWvcvPdOKC6L3Ac +VdZAIvGG+8nLceBs1tLrqa6B4dvWpKwD4uCasId3KFkDL6qkzHRujQOx0vIr +ORYauE1uYSErJxaEeik/+4I1kHXt8DOBuBjgUnSq2/9SA7eMilVsY42CE2JA +K2vTwLjVgkvDE5HQzis3xNahgT3f0mzvt0VCysrnDbXdzHhWXmJqRiTwtQba +ir7TwHuez02d5SJBwDt56f2sBkYMPu7R3BsBkpUNmm4CmrgUwuHnUBwGOyli +D0KcNfHKXMbSy6vBUC3v9ZvVRROX00KqR+OCQZebsSfNVROVUp2yBU4Eg9GA +/UixhyZ+j4qNY+gGg11ALn9PgCbusbpuIj5wGqJviQapJGpiqV1qjhjhNHTz +iuiNlmsildM75UZpIJwaEmihsWjhxoIP34L5AqD1hdOjUlYt/HWh/5vyH3+Q +elBSz71BC58IXHu6MO0P7dHke+1cWlhyvKb0wXN/kJN1zaYJamGHF9FkMcof +Xh+r9KApaaHwJanTUuN+oD5tuZFmroWa6rH86W0+kPg6j73UQgvrPO71stz1 +gQ+McRZuay3MfvfPPD3JB5IuhCy32Wrhb+o8F89eHxhRLhgyPaKFz6eW1H1a +T0K679cK01NaKHpA81R3pzd8W0yxNc3VwqZtxIrgBS/4MHjD7voVLWQ5NmSi +0OcF7Y/qDi5c08L2vcTaWboXFJ8bcci7wfTRrK7/YrzAUYJ4eLpUC1mT1z/s +5PeC50bv3c8/0sKz0oJvGbqecDVje2jbmBYqVTwil+a5Q1IwNWzLhBZ+ZHw4 +kBLjDsGHDoQHfNZCP2/2zkQPd7BSjIoUm9XCLbPDuc+03YGd0R3jtayFAY/S +Th3tdYOAkZDzXJxErJ4LLt4k6AZ71F5cMVUlYsMJn4DGm8fAnn2vTbcaEVuv ++LgXJR+DEx/beA9qEjGkWG3/zcBjkJb8X8xxHSIe5bWs+m58DPo/v3GPNiTi +XfG9Is8nXOF44bhmrS0RTZQnbyrsdIU4/nWvZM4QcXrdqf1ar10gayou4XYM +Ed9dbaCrPnSBksfrqTvjiSjYStkPt12g3YezUj+JiFXsfO23o1yAv31Tjl0m +EamTcVHJyi5QGCd1LKWEiCu//tBERY9A06L+79VOIson8OY21TvBjY561wOv +mc4cPn8j2wkSbmm1l/cS8VLFff87gU5gelA5z22QiPGZevmy6k7wpkFcp3eU +iLdnndY3lR6Cmdifp8qXiGhcH5YXX+IIIpvrZ46LayO/9OcvJ+rt4eeU5v4n +ktqYuPFyYHqePXx4Ws6QkNbGiCZ/qf4Ie7gRWJLUI6+NYYu3PZ+iPagMZCuh +qjY2SLgVCnUcBKP8IFcJ1MYqtgWPrCk78FXRfPfaTRvr+LwqtXRt4fSq+K8j +ntoo4MkgrErYQmQzm/jXE9ooYXxN9sOaDSTb9zlw+2uj0Iaoi9ytNnAnIfSt +Ubg28ultVVx2sIGxD02D1WnaePPClnfj8QfALtVsILteG1+Inek2/GYNzvbE +VfkGbVTZ0qP8s98ajstvEa16qI3u2/yFO5usIZDx1a7zqTYy1vpEu9OsIX0i +o5+9g7le/LtIDXVraKcM9oWMaKPXohfJMtQKKF+Pv3HgIuEtr9aRfWQLEGnc +U/SQh4Q1/Jnkk4IW8PXcDn9pPhIqX6+uq5/dB/my8zwTAiSUHA106SvYB/9s +Ioz9JUkY6sGZrMS5Dx43ZlQlqpGwKyVA/+eIGRieb0qvtiWhofN3mlqVKYjb +3TgsYk/CQx+f3ryWbgrf5RJUwhxJyGd5uE7DzxSKHpq2Uo+QkLHA49ajYgqs +82/W2jxJ2NbPGzR9dy+02H3xHYkgobuNsZJZ2R4wUSDs4y0i4RuBKNn2NhOo +mXsue7yYhJtF+mNO3TcBhfrAlYYSElZ1BbgYZJjAelpXgWcZCStbzggTHUyg +2S/xe0sNCS/+aUh/MLMLqI1LOeEvSfjSZOEnXXAXkPa/Hvs8S8JCK5sFlSgj +KJGIrqd+I+GVfgO1Z8eNQHhCJSV7gYT2r1o6Qs2NYCkkSdt4hYSK9ct39SSN +oOo6JOWvkTArfey8yCNDUJu+r2oroIODPI9l5NYbwraYC6HNOjq4tP/7IZd9 +AA/1b20wJ+sgF72Y/7M0gNXq48w+Ax1scn+lUvqdCqG+y/emDHWwRPl38Kdc +KrQ6uYzymetgoO/7ItkpCnjqkWiHXHRwI5kzMjbDAO5+H5VYStJBQ1NB83+8 +ZKCW/7kTlayDj68r/Ej5rAc9XqIkjjQdvCaycNvyqR78GjG3Er+kg7qDg6L+ +p/WA1lWfgNd18KLbvRMiI7owU5Y6l1Kpg3YpHuSWJh3Y4ab3WPGdDp79bKPx +t0AbLspZ/Ir/wIz32gPVx7HasDTsqj02pIO/dfg33TmmDU2OKWX54zp44Srj +v7mt2rDfajhHdE4HVWcXnXdVESFM/6w/F4suxp3sCVz9Twta+V/LzinqYmJv +cbKZjCaodk04mW3Txft5/1Ivs2tCZsqvnLs7dLGsNVuVbU4DnDgU+NzVdDHS +1aUEGzTg25/gX0O6uji31ZW4104DRKYke7vNdPHEl0+LHlnq4NbkmVAToIuq +ita8Ly13wlefmRCTIF0cqbYRSZPZCaFbTnr3B+vi1z3ZUnkLqnAh0m//jwhd +NB3XeRWWpQoV5GAZg0RdrLtQt3boowr8qYt/2HJFFyujg3ztI5Qh80H+Uk+L +Lk7RquemJ7aB5BGZqWMvdPEc31hbStM2uMVX9H6pVRfNvc9ZeeVsA7rPrWaR +Tl2sOTuzo9N0G3xUvpfuOKiLBc/9XlIrt8K2OwyVsVlddF5xdQy/oASPC98c +XxDWQw4ct3M9rgAj5rJHggl6mC5wuWHXLgVg+enj8FtcDyPyCwl2CgpgZM1h +sUFGD01jb7Wtn5CHF+vIOmI79DC+okM32VMeOlwLuAypemh75BEbR6gcvFM4 +UZ7urodP3oqcl6qXgd/ddXeEvfTQJK3B4eQ1GZCMYrt5xVsPLYyb3o3GyoBz +37WcYn895DL2EjHeJwMjZ7ti6OF6WJovYVD5Sho+TxIPjKTpYRrRT3KXgRQs +3VlbVavXQ1KBekDuAQmYtNtdeJ6hhxs2KgVb7pCAwfWpe8cb/7++bCmuk4BG +F/G8y0/0sGeq/lT3A3GII2iT/7bpIblJ1fX6JnHYnHQisv2DHv5o315x7y0B +VDz6WNxYydiq59xemS0CUsKSd5vWk/FM4fwR+UAR2Nziak3gIKPP5qEjL6xE +YFFq/sYrHjKW2MhcLdgoAg393MaawmSUtD+6kpMoDHt349m1rWQ0//zxm2e8 +EBxTLOO6so+MRcXtMSP5AhD+/PAJJSsyflZ4deJKtACkuwm8qtpPxjgZ3viz +LgLw8FZYyquDZJxsPy77VU4AhJT2bvp7lIwjUYJH1pXywwulCSGXYDJOH391 +cPHJZtixTVpGqYCMt2xeJ7vL8AG29sRU3WA+jxZa0nO8YOeZOEotJqP0bF3j +9gZeiL8zV3TwLhkZ3LQUTVte+LDtoeL5ajKq6VwSZ7+4EdK2OyjPviRju7Tm +cQt+HljYcYlUNU/G4wXzrJb7OGGwA00EF8moc+84Q1mJE574fj0QtEzGf1Z5 +ZcZrHJBWZRpA+kXG3Da1VfkqDthBZrnXwKaPLn8zVK+Lc4CrqY9si4g+Rrsc +iVFe2QBvPPZsfGOgj4EJk605fWzQyLUsrg36OHUmsdyolg2Kyoq2XzbUx7dr +PurS2Wzg/+3vbvvd+mhCD/jqbcsGvCE1sR8s9THi6qd75oOssDtRdvWTqz7y +Nppt+za5DujFv0eXk/TRdry1aVqRBUjGQau0ZH3s+OYc/4qHBWpHZzcWpuoj +jj/RLh1fo1ZJDenQMvXRgXjq6aPINeq93Cep+Vf1sfIYn01q1T9qYcpZvT3l ++igaJHXcV+Uv9XzQpozcXn08f9p32MbuF5VTMKlkrk8fl78GNhoo/6ImVrI8 +NBrUx9S6W9s9WH5RE74uTM5+0MdHRwmUuLKf1DOebwwMJ/Xx6K3bwy/W/6Se +csqbmv6hj+Uqcbd1W1apjrvkUV/KAPXYX9eY+SxT/77h5GuRMUD5fVln3+xe +pha6fX1PkzfAp3vuF+TLLFMnExkhjtsMkLEyxb/8Zol6qs3yQZimAWaK1T8q +wCXqBYtIKfpuA3SI8crMkl+kNtj3/SH6GaCAoG++k/AC1Xm6of1hgAF+fis9 +aLUyT2UJL8zdFWSA/cS4qPCBeeruq95EmzAD3H4Dqk9emaf2fFx3MjDeAJ2f +9Ee1yM1TZ1x3vq/MMUDR0Dfnx8O+UiV8zjF2PjFATeuhQ3t2fKGmrblrJzcb +oKD9IVrx7xkqa+buys/PDPDWHrrcvv9mqDN1G+4WthngUZespzEBM9QGloRc +gV4D5JiWVzv2aJrqmBUTsjJhgJTXBZeqXKeouY1h2k08FLT1zWg9PzJB3Wjh +UCnOR8G/tc7SFxsmqDEjuqohmykoeLCCtzdrguq54YeCujAFj/buVxWmTVB1 +LIOFiqQoSOns/xtS/4naP3Zq8awGBbvY0zvdro9ThblPVu47SMH2habSk5eY +o2QcFT7vQMHaNY9/a/6jVM2oNONLThTk2tvh2WsxSrWYr+gbPEpBp5y2J7o8 +o9TE/uWfx05SUPpB9uGFxBHqj6Joo/BYCrpkraOFCA5T3+lf6i0poyB7/45X +zwLfUz1PF18zLaeg1x5xKXvKe+pKea3bbAUFsxaC5fZzvKcKyA2uatRRkDuc +0y3k2juqGecWyUdPKEjvyhYPfPWW+vBNyfHePgoOaGg7ZesPUml8dNXgQQrK +fHXLRp5B6uCethXCe+Z9OcK1Pe8HqEsNX5IOj1DwNsjGuEcOUFVvqN+fnqHg +uR+Vo33N/dSH7wyDU+Yo2OdKatqX3U+lCR0AtXkKXoxSdpH07Ke6nzv9OmiZ +gti6O6GRr5+69CTxiugPClblzXZfGOujxv3KOdbwi4LCWmsh5XV91M3EuyrO +fylY5L5nVDG5j5rv07C8tkbBF/+lnZ4/0kf9H35BFTY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.0988832592087292}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8824,6 +15361,7 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8851,7 +15389,8 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0988832592087292}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8859,17 +15398,778 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913324679337597`*^9}, + CellChangeTimes->{3.9913324679337597`*^9, 3.99385346092446*^9}, CellLabel-> - "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] + "Out[140]=",ExpressionUUID->"2aea4bb5-2da9-4975-84ad-fd2ec5413213"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ -b989835aa113"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VO8XAHBR1ij7WLLTgmxjMMycg1SGLIUQJWVLtsgua1KWEKEFSSpK +djOUihbki8jSZo0QRbZ2v/n9dZ/Pc+99n3POe857r6yr3343VhYWlu51LCz/ +v64MtT1TSC6mzpWd7NocZk19k08IMxyMA7/hinEVDnVA4S5XwmAmaLOtuLFz +IARblQ6wDRaB0rrbTZPsVsD/VTTz50AVWEqOmt5id4HhhxZ+SwPNkNj3U6Bp +gz/sVpj5uDDQA4zau2vqrDHwc0Ane35gDCSGPR0IUxehxfh28euiReCnEfc+ +OlwIksOMSVeVv0Ax1GhKe3QbhE4eKeUwZsOjxu1jHHblsIPj5gurg2zoHnNY +kCOgHLBocizPmw2Jz31CVpPL4eSgj4RKFhtyxYXeK3taDs92RaZYTbCh6RVq +movKAwjakuebd249zu51DP3+7wH0dvZoKndsQJeyqj7tjgrI1NjdaGHLic3P +xjIN91WB2nuHPRRPTuwTVa/8dbAKOhJ8epUjODGr9pTZPdcqYB/M+sJ5gxPP +hCVP/gipgogz4xIts5x4cEjwkE5RFRx/FROpk8CFiW9u++5ergKSWyNFppob +e+smB3Oyq6GXr6uN7wU3rv1zdXcsqAZ/+pjt30FutOKz3CR8txpKebh93/3j +xuQ3LXdOPawG6Sr7/CwaDzaeOV7ROVYNnGvL/zjHeNDv2u8+jp018DZX/cnC +Zl6cfJ90z6epBq70lm0KVuTFvKgI2ZmXNeDIt/XILz1epMmf/eH0ugY+xG/5 +x3qMF88OFzcrfqqBEV9uA6Fa5v0gpVhjrlqY2vWpnuTAh5nPP128b10LP+Zz +HkTc2ITZHnyPVN7XAkNZcG2tdhPyFTRsDBivhXD3NIuE9k0Y9uJFeNmXWvjz +PmEuZXETzjWcLmP9Uwsx43ThLrnNWNPFpUWWrIOEzlsHRoI246g3S2aHYx0k +F0d3sYrx44qd08vT3XVAI3oJCMvzo4akdKbjQB1wPttvu1WVH3fyPa3UHmK+ +P6743syQH5euTM52fqmDSLmOySwvflyd2GiYyl4PvoWEf0oN/Hi623lal1wP +1tcqVcwOCWBbKssH0yv1sFnlqp+zmwA+u1Hs86OgHjobE6r8/ATw7YsV2vVb +9UB7f1A3K14AbT/pTLdV1IOR+D/jj2UCmMxylVH+oh6IubRDfn8E8CctbqZk +vh5Es8bPX7ouiNVxH0ZtKHQgKNcm/CgRxND4G+yxhnQQb06Mdq4QxCPD9q3F +JnSQmt9+emuLILL1lSj27qODorm/S+OUIPbW/HN+5UwHrfV/SeNaQojOA4k7 +IulAvNqpsZcihNJBjsPd0XQgaRaq3N8thO938Yz7xtOB7GIsF+IghKEzivMZ +F+hg+PA8L0+0EMrFpEBQLh0sg0Q+abYLYfAx+5rSKjpY8UwN5fQKoZZ6+e6O +WjrsL2K8/fNBCEkb/lyeoNPBrtup68U3IYw93Rm81kQHZ5WbDY7Cwsji4e3Q +3U4H709qGXEuwmiw8mT68wgdTkasS/nsJYxXsj6yJY7TwVegN9E8UBgZNUqL +EpN0OIXBkSKJwph6uOig2hc6hF176FFaJozl66bclpbocM7GlNqzwrTfY4Gf +7AwQr+kUZ10ngi66yxFGXAwoF7RZ1eARwdxhVe84Hgb09xyuyJAWwY8TChMT +mxigYB0kZ71XBAVyui/oExhAr/j5L2a/CB45es1DT5wB5puj31c4iWDR+tWP +qpIMCOw6n7U5QAQbopNu/JJmQPO+AvbuPBF8FXu9Q34rA+zuK4yv3RTBH9Hk +pv5tDJjZWPpYrVwEfVYPHI7ZwQD+jprQi80iWGX4rqZelQEutPYZiy8iyNIS +wFmvxYClu5YvzyyLoJkad6O0NgPOcfXdLF8TwbJKN81oEjOf1mEnPiFRNHsx +Fy6nx4C/u5c7/zMQxR0zks9/URiQXhJe9ne3KH4fiv8mBsz82FmSVK1F0fDq +rhU1ZObznNsw1U0Um9NZbqERA0YU0rc88hPFNAHpA/rGzPwShH/Nhoniw/GP +0yq7GHDFWKbaPE0UvyQ3fFwyYcDOm7cuRuaKos+yvOGr3cz8WZVP3isSRbb2 +Z3m5exgw/VRbcWO9KNIywnUIpgyIlG1cZ/BUFFnbWePbmd4ci0Per0Rxz/yd +7kAaA3TRLOfVsCjmhnpHl5kxoKOgO/D3tCiyGMh91jNn1mfN1kp5SRQlS5QP +P2Z66fB7lUP/RLHl58hn/X3M+jS5cCVzEpBqUnjuAdPiUpMTDQIEtHXuQHEL +Zr2ivJtnJAmYMdghEsm00cf5fPGtBNTh5uPtY7rfIDiCpkHArL8sWxUtGXDi +2u+D4foE/O4v4XmS6b+/Y4ilJgTs7B7oLWU6/RA7/ztLAg5p1vqMMK3QmDzH +5UhAJWsdPV4rZv+I87frHScg4eykngbT5uGXS7x8CXix2TLQnOmRtxLxeaEE +HM1cP32Y6UC9G0fa4gi4tOlqvifTtEK+JbMUAna7nuzwYlqOIzKpM5uAw8jm +cozpnz7TktYFzHgP2DrZMt39xq6y9w4Bd98/9AyYvqP/zMSuioC3nwtclWM6 +ukjj3WAjAVWDw8f/MuO14yrwPfScgHEr2YWvmd7pv5FtqJOAi4PefdeZ3jAQ +luMySMCP7OxnXZn+QPmsPD5KQL5HAVXSTNcU2zxx+0JAUtJjl//XL5mn2WZq +iYAWhmyX4pl2PaU2feIfAWe5bMx3ME1+ey1qjkMMH+3tuNjG3J+pkpCS7+Ji +qMFx/+kCcz8f806QTyuIYUeKY10405eD9netqorh/lSG4R9mP5gYqf74g2Lo +YaO3fZrZL5J3r6RE08RQjE5PtmF6aROnLKuNGFa1lWTQmf1V9HHMlMNDDM++ +Lc86sZcBYbushs77i6FoDubSmf1pVfbo1MZwMXwXpm6+xuzftdDcq/ypYthM +NOgJZva3k5DFnES1GJ422l7Nx5wPrYjG2PyHYiin/zBbzpAB3GPbRGRfiOF2 +d2nj/88T4wEbKL0Vw9v2rTxaVAaImDHS1dfEMMPXo/oTcz7nKpUUqznFMXlg +u9ljXQY8I2QxtAXE0ShstjVTh7n/k75jZEVx9NEwTFBgznt3rALRxEwc7Tl8 +Dy2qMeD2VEbrSxtxTKQfS8jeyYAzlmtOtMPiOK6ID9SZ54fqlndnLQPEsWxd +H2E/83y5QL844JAjjrcfSxYYKjBg17df4b7j4lhca5bfL8Ksx96sHU9nmfHM +uVUKCjPn44bqO8EVcbRLuGlME2QAwcZFj8EpgRcyIxZvMs/HWfrzVbadEhhK +aB7j4mTApbj0oLxQCZS5IUS4uUqH1vfbFWZjJZDfKupZ2DId/hBbeqnJErju +cv822iId3D8va366zlwv5e3Wwa/M7435oYWdLRJYucbtdneCDmPCSr7PeCXx +8DSHgEIPHUT9Hm8RFZVEgmH8Uk4XHcxb7f/zkpHE71k9bRv+o0NdeLLKJi1J +1KNPH+p6SYcLw/MzDvaS2HV37znxR3TQvNvo8a1IEsP75c2ySugQa2B9VFx3 +C6b9XD2mfpoOew/nf9cx2oKCFNszRQF04Iv5Em9rvgUrne24+XzpcK3lbEm6 +yxbsDTmd/NqdDnRawxf281swyWH2Mbc9Hebt5YMX325B9jAed5oeHQ6fXr7Q +ESGFb4rlbsmt1oNijpHkzFkpvM219LHjez2zfhfvc6RL4ay3qWrA13oI/7O9 +26hYClkm4hTuTNRDdvxhYUaHFD79nMzZ3VsPHRkvC25tkUaP170mGx/UA7k8 +r+bMY2mkBs88P3S0HnYNdP792iqNtDTz0LtO9WDBsn7PkR5pXF7oy/1+sB6O +7fd9CxPSeCBoQDvEoh52R8hGx2yQQWuPNQeafj34S6/cNFSWQW/RGmlJoXp4 +5lEw1xIsg24dnx1Tmuvg5I+FmFZeWSTUHBW8LFgHP5U3D6nayuFO3tJgU+8a +MCi7V3j5sjwaLxznlCusggUBmotdswKyRhooyQ5XwKcUF7tTHEqY9vi0dNan ++2D6LcR0grQVX15OsdZyKoXZY5yBNdHbsGspX6WksoT5vy/Keq55O5bXB5d1 +2dwEgf+U0iq+7UA10TRaTiDz/z7pgRWJpILKrflvk/ZchVxlvc2CHqp40fpe +E73oMrSLG2ovZuzEQ5etGg+XZAJZsjldrV8NlQ/eItwdToUxeYWh6XdquOPj +Rkt8kQrnlROVi4fVUGxHosDUvVQYJNNeEKbVcNDuirJXeCqEOPT8XvdHDRXM +m/k1RFLB0SxAa2azOrbe8PrdY5UCl5OYxwFJHbWED/bo9lwAPraioKNx6vjh +b3mc+fokYP/5+MBCgjpqlz8/v2nuHPz7+lEz9pw6+j27bf2p7xx8eye2UJii +jlZ5p9e33D4H3VUZPiOX1XFUhFPcxvwcZLrGuh8pU8chRhShKTcRRJpd7J3f +qGP3s1+OYdSzIBUrbeCgpIFvDMJlnzXGQXkgp9zHbRqY5HWvcvPdOKC6L3Ac +VdZAIvGG+8nLceBs1tLrqa6B4dvWpKwD4uCasId3KFkDL6qkzHRujQOx0vIr +ORYauE1uYSErJxaEeik/+4I1kHXt8DOBuBjgUnSq2/9SA7eMilVsY42CE2JA +K2vTwLjVgkvDE5HQzis3xNahgT3f0mzvt0VCysrnDbXdzHhWXmJqRiTwtQba +ir7TwHuez02d5SJBwDt56f2sBkYMPu7R3BsBkpUNmm4CmrgUwuHnUBwGOyli +D0KcNfHKXMbSy6vBUC3v9ZvVRROX00KqR+OCQZebsSfNVROVUp2yBU4Eg9GA +/UixhyZ+j4qNY+gGg11ALn9PgCbusbpuIj5wGqJviQapJGpiqV1qjhjhNHTz +iuiNlmsildM75UZpIJwaEmihsWjhxoIP34L5AqD1hdOjUlYt/HWh/5vyH3+Q +elBSz71BC58IXHu6MO0P7dHke+1cWlhyvKb0wXN/kJN1zaYJamGHF9FkMcof +Xh+r9KApaaHwJanTUuN+oD5tuZFmroWa6rH86W0+kPg6j73UQgvrPO71stz1 +gQ+McRZuay3MfvfPPD3JB5IuhCy32Wrhb+o8F89eHxhRLhgyPaKFz6eW1H1a +T0K679cK01NaKHpA81R3pzd8W0yxNc3VwqZtxIrgBS/4MHjD7voVLWQ5NmSi +0OcF7Y/qDi5c08L2vcTaWboXFJ8bcci7wfTRrK7/YrzAUYJ4eLpUC1mT1z/s +5PeC50bv3c8/0sKz0oJvGbqecDVje2jbmBYqVTwil+a5Q1IwNWzLhBZ+ZHw4 +kBLjDsGHDoQHfNZCP2/2zkQPd7BSjIoUm9XCLbPDuc+03YGd0R3jtayFAY/S +Th3tdYOAkZDzXJxErJ4LLt4k6AZ71F5cMVUlYsMJn4DGm8fAnn2vTbcaEVuv ++LgXJR+DEx/beA9qEjGkWG3/zcBjkJb8X8xxHSIe5bWs+m58DPo/v3GPNiTi +XfG9Is8nXOF44bhmrS0RTZQnbyrsdIU4/nWvZM4QcXrdqf1ar10gayou4XYM +Ed9dbaCrPnSBksfrqTvjiSjYStkPt12g3YezUj+JiFXsfO23o1yAv31Tjl0m +EamTcVHJyi5QGCd1LKWEiCu//tBERY9A06L+79VOIson8OY21TvBjY561wOv +mc4cPn8j2wkSbmm1l/cS8VLFff87gU5gelA5z22QiPGZevmy6k7wpkFcp3eU +iLdnndY3lR6Cmdifp8qXiGhcH5YXX+IIIpvrZ46LayO/9OcvJ+rt4eeU5v4n +ktqYuPFyYHqePXx4Ws6QkNbGiCZ/qf4Ie7gRWJLUI6+NYYu3PZ+iPagMZCuh +qjY2SLgVCnUcBKP8IFcJ1MYqtgWPrCk78FXRfPfaTRvr+LwqtXRt4fSq+K8j +ntoo4MkgrErYQmQzm/jXE9ooYXxN9sOaDSTb9zlw+2uj0Iaoi9ytNnAnIfSt +Ubg28ultVVx2sIGxD02D1WnaePPClnfj8QfALtVsILteG1+Inek2/GYNzvbE +VfkGbVTZ0qP8s98ajstvEa16qI3u2/yFO5usIZDx1a7zqTYy1vpEu9OsIX0i +o5+9g7le/LtIDXVraKcM9oWMaKPXohfJMtQKKF+Pv3HgIuEtr9aRfWQLEGnc +U/SQh4Q1/Jnkk4IW8PXcDn9pPhIqX6+uq5/dB/my8zwTAiSUHA106SvYB/9s +Ioz9JUkY6sGZrMS5Dx43ZlQlqpGwKyVA/+eIGRieb0qvtiWhofN3mlqVKYjb +3TgsYk/CQx+f3ryWbgrf5RJUwhxJyGd5uE7DzxSKHpq2Uo+QkLHA49ajYgqs +82/W2jxJ2NbPGzR9dy+02H3xHYkgobuNsZJZ2R4wUSDs4y0i4RuBKNn2NhOo +mXsue7yYhJtF+mNO3TcBhfrAlYYSElZ1BbgYZJjAelpXgWcZCStbzggTHUyg +2S/xe0sNCS/+aUh/MLMLqI1LOeEvSfjSZOEnXXAXkPa/Hvs8S8JCK5sFlSgj +KJGIrqd+I+GVfgO1Z8eNQHhCJSV7gYT2r1o6Qs2NYCkkSdt4hYSK9ct39SSN +oOo6JOWvkTArfey8yCNDUJu+r2oroIODPI9l5NYbwraYC6HNOjq4tP/7IZd9 +AA/1b20wJ+sgF72Y/7M0gNXq48w+Ax1scn+lUvqdCqG+y/emDHWwRPl38Kdc +KrQ6uYzymetgoO/7ItkpCnjqkWiHXHRwI5kzMjbDAO5+H5VYStJBQ1NB83+8 +ZKCW/7kTlayDj68r/Ej5rAc9XqIkjjQdvCaycNvyqR78GjG3Er+kg7qDg6L+ +p/WA1lWfgNd18KLbvRMiI7owU5Y6l1Kpg3YpHuSWJh3Y4ab3WPGdDp79bKPx +t0AbLspZ/Ir/wIz32gPVx7HasDTsqj02pIO/dfg33TmmDU2OKWX54zp44Srj +v7mt2rDfajhHdE4HVWcXnXdVESFM/6w/F4suxp3sCVz9Twta+V/LzinqYmJv +cbKZjCaodk04mW3Txft5/1Ivs2tCZsqvnLs7dLGsNVuVbU4DnDgU+NzVdDHS +1aUEGzTg25/gX0O6uji31ZW4104DRKYke7vNdPHEl0+LHlnq4NbkmVAToIuq +ita8Ly13wlefmRCTIF0cqbYRSZPZCaFbTnr3B+vi1z3ZUnkLqnAh0m//jwhd +NB3XeRWWpQoV5GAZg0RdrLtQt3boowr8qYt/2HJFFyujg3ztI5Qh80H+Uk+L +Lk7RquemJ7aB5BGZqWMvdPEc31hbStM2uMVX9H6pVRfNvc9ZeeVsA7rPrWaR +Tl2sOTuzo9N0G3xUvpfuOKiLBc/9XlIrt8K2OwyVsVlddF5xdQy/oASPC98c +XxDWQw4ct3M9rgAj5rJHggl6mC5wuWHXLgVg+enj8FtcDyPyCwl2CgpgZM1h +sUFGD01jb7Wtn5CHF+vIOmI79DC+okM32VMeOlwLuAypemh75BEbR6gcvFM4 +UZ7urodP3oqcl6qXgd/ddXeEvfTQJK3B4eQ1GZCMYrt5xVsPLYyb3o3GyoBz +37WcYn895DL2EjHeJwMjZ7ti6OF6WJovYVD5Sho+TxIPjKTpYRrRT3KXgRQs +3VlbVavXQ1KBekDuAQmYtNtdeJ6hhxs2KgVb7pCAwfWpe8cb/7++bCmuk4BG +F/G8y0/0sGeq/lT3A3GII2iT/7bpIblJ1fX6JnHYnHQisv2DHv5o315x7y0B +VDz6WNxYydiq59xemS0CUsKSd5vWk/FM4fwR+UAR2Nziak3gIKPP5qEjL6xE +YFFq/sYrHjKW2MhcLdgoAg393MaawmSUtD+6kpMoDHt349m1rWQ0//zxm2e8 +EBxTLOO6so+MRcXtMSP5AhD+/PAJJSsyflZ4deJKtACkuwm8qtpPxjgZ3viz +LgLw8FZYyquDZJxsPy77VU4AhJT2bvp7lIwjUYJH1pXywwulCSGXYDJOH391 +cPHJZtixTVpGqYCMt2xeJ7vL8AG29sRU3WA+jxZa0nO8YOeZOEotJqP0bF3j +9gZeiL8zV3TwLhkZ3LQUTVte+LDtoeL5ajKq6VwSZ7+4EdK2OyjPviRju7Tm +cQt+HljYcYlUNU/G4wXzrJb7OGGwA00EF8moc+84Q1mJE574fj0QtEzGf1Z5 +ZcZrHJBWZRpA+kXG3Da1VfkqDthBZrnXwKaPLn8zVK+Lc4CrqY9si4g+Rrsc +iVFe2QBvPPZsfGOgj4EJk605fWzQyLUsrg36OHUmsdyolg2Kyoq2XzbUx7dr +PurS2Wzg/+3vbvvd+mhCD/jqbcsGvCE1sR8s9THi6qd75oOssDtRdvWTqz7y +Nppt+za5DujFv0eXk/TRdry1aVqRBUjGQau0ZH3s+OYc/4qHBWpHZzcWpuoj +jj/RLh1fo1ZJDenQMvXRgXjq6aPINeq93Cep+Vf1sfIYn01q1T9qYcpZvT3l ++igaJHXcV+Uv9XzQpozcXn08f9p32MbuF5VTMKlkrk8fl78GNhoo/6ImVrI8 +NBrUx9S6W9s9WH5RE74uTM5+0MdHRwmUuLKf1DOebwwMJ/Xx6K3bwy/W/6Se +csqbmv6hj+Uqcbd1W1apjrvkUV/KAPXYX9eY+SxT/77h5GuRMUD5fVln3+xe +pha6fX1PkzfAp3vuF+TLLFMnExkhjtsMkLEyxb/8Zol6qs3yQZimAWaK1T8q +wCXqBYtIKfpuA3SI8crMkl+kNtj3/SH6GaCAoG++k/AC1Xm6of1hgAF+fis9 +aLUyT2UJL8zdFWSA/cS4qPCBeeruq95EmzAD3H4Dqk9emaf2fFx3MjDeAJ2f +9Ee1yM1TZ1x3vq/MMUDR0Dfnx8O+UiV8zjF2PjFATeuhQ3t2fKGmrblrJzcb +oKD9IVrx7xkqa+buys/PDPDWHrrcvv9mqDN1G+4WthngUZespzEBM9QGloRc +gV4D5JiWVzv2aJrqmBUTsjJhgJTXBZeqXKeouY1h2k08FLT1zWg9PzJB3Wjh +UCnOR8G/tc7SFxsmqDEjuqohmykoeLCCtzdrguq54YeCujAFj/buVxWmTVB1 +LIOFiqQoSOns/xtS/4naP3Zq8awGBbvY0zvdro9ThblPVu47SMH2habSk5eY +o2QcFT7vQMHaNY9/a/6jVM2oNONLThTk2tvh2WsxSrWYr+gbPEpBp5y2J7o8 +o9TE/uWfx05SUPpB9uGFxBHqj6Joo/BYCrpkraOFCA5T3+lf6i0poyB7/45X +zwLfUz1PF18zLaeg1x5xKXvKe+pKea3bbAUFsxaC5fZzvKcKyA2uatRRkDuc +0y3k2juqGecWyUdPKEjvyhYPfPWW+vBNyfHePgoOaGg7ZesPUml8dNXgQQrK +fHXLRp5B6uCethXCe+Z9OcK1Pe8HqEsNX5IOj1DwNsjGuEcOUFVvqN+fnqHg +uR+Vo33N/dSH7wyDU+Yo2OdKatqX3U+lCR0AtXkKXoxSdpH07Ke6nzv9OmiZ +gti6O6GRr5+69CTxiugPClblzXZfGOujxv3KOdbwi4LCWmsh5XV91M3EuyrO +fylY5L5nVDG5j5rv07C8tkbBF/+lnZ4/0kf9H35BFTY= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VO8XAHBR1ij7WLLTgmxjMMycg1SGLIUQJWVLtsgua1KWEKEFSSpK +djOUihbki8jSZo0QRbZ2v/n9dZ/Pc+99n3POe857r6yr3343VhYWlu51LCz/ +v64MtT1TSC6mzpWd7NocZk19k08IMxyMA7/hinEVDnVA4S5XwmAmaLOtuLFz +IARblQ6wDRaB0rrbTZPsVsD/VTTz50AVWEqOmt5id4HhhxZ+SwPNkNj3U6Bp +gz/sVpj5uDDQA4zau2vqrDHwc0Ane35gDCSGPR0IUxehxfh28euiReCnEfc+ +OlwIksOMSVeVv0Ax1GhKe3QbhE4eKeUwZsOjxu1jHHblsIPj5gurg2zoHnNY +kCOgHLBocizPmw2Jz31CVpPL4eSgj4RKFhtyxYXeK3taDs92RaZYTbCh6RVq +movKAwjakuebd249zu51DP3+7wH0dvZoKndsQJeyqj7tjgrI1NjdaGHLic3P +xjIN91WB2nuHPRRPTuwTVa/8dbAKOhJ8epUjODGr9pTZPdcqYB/M+sJ5gxPP +hCVP/gipgogz4xIts5x4cEjwkE5RFRx/FROpk8CFiW9u++5ergKSWyNFppob +e+smB3Oyq6GXr6uN7wU3rv1zdXcsqAZ/+pjt30FutOKz3CR8txpKebh93/3j +xuQ3LXdOPawG6Sr7/CwaDzaeOV7ROVYNnGvL/zjHeNDv2u8+jp018DZX/cnC +Zl6cfJ90z6epBq70lm0KVuTFvKgI2ZmXNeDIt/XILz1epMmf/eH0ugY+xG/5 +x3qMF88OFzcrfqqBEV9uA6Fa5v0gpVhjrlqY2vWpnuTAh5nPP128b10LP+Zz +HkTc2ITZHnyPVN7XAkNZcG2tdhPyFTRsDBivhXD3NIuE9k0Y9uJFeNmXWvjz +PmEuZXETzjWcLmP9Uwsx43ThLrnNWNPFpUWWrIOEzlsHRoI246g3S2aHYx0k +F0d3sYrx44qd08vT3XVAI3oJCMvzo4akdKbjQB1wPttvu1WVH3fyPa3UHmK+ +P6743syQH5euTM52fqmDSLmOySwvflyd2GiYyl4PvoWEf0oN/Hi623lal1wP +1tcqVcwOCWBbKssH0yv1sFnlqp+zmwA+u1Hs86OgHjobE6r8/ATw7YsV2vVb +9UB7f1A3K14AbT/pTLdV1IOR+D/jj2UCmMxylVH+oh6IubRDfn8E8CctbqZk +vh5Es8bPX7ouiNVxH0ZtKHQgKNcm/CgRxND4G+yxhnQQb06Mdq4QxCPD9q3F +JnSQmt9+emuLILL1lSj27qODorm/S+OUIPbW/HN+5UwHrfV/SeNaQojOA4k7 +IulAvNqpsZcihNJBjsPd0XQgaRaq3N8thO938Yz7xtOB7GIsF+IghKEzivMZ +F+hg+PA8L0+0EMrFpEBQLh0sg0Q+abYLYfAx+5rSKjpY8UwN5fQKoZZ6+e6O +WjrsL2K8/fNBCEkb/lyeoNPBrtup68U3IYw93Rm81kQHZ5WbDY7Cwsji4e3Q +3U4H709qGXEuwmiw8mT68wgdTkasS/nsJYxXsj6yJY7TwVegN9E8UBgZNUqL +EpN0OIXBkSKJwph6uOig2hc6hF176FFaJozl66bclpbocM7GlNqzwrTfY4Gf +7AwQr+kUZ10ngi66yxFGXAwoF7RZ1eARwdxhVe84Hgb09xyuyJAWwY8TChMT +mxigYB0kZ71XBAVyui/oExhAr/j5L2a/CB45es1DT5wB5puj31c4iWDR+tWP +qpIMCOw6n7U5QAQbopNu/JJmQPO+AvbuPBF8FXu9Q34rA+zuK4yv3RTBH9Hk +pv5tDJjZWPpYrVwEfVYPHI7ZwQD+jprQi80iWGX4rqZelQEutPYZiy8iyNIS +wFmvxYClu5YvzyyLoJkad6O0NgPOcfXdLF8TwbJKN81oEjOf1mEnPiFRNHsx +Fy6nx4C/u5c7/zMQxR0zks9/URiQXhJe9ne3KH4fiv8mBsz82FmSVK1F0fDq +rhU1ZObznNsw1U0Um9NZbqERA0YU0rc88hPFNAHpA/rGzPwShH/Nhoniw/GP +0yq7GHDFWKbaPE0UvyQ3fFwyYcDOm7cuRuaKos+yvOGr3cz8WZVP3isSRbb2 +Z3m5exgw/VRbcWO9KNIywnUIpgyIlG1cZ/BUFFnbWePbmd4ci0Per0Rxz/yd +7kAaA3TRLOfVsCjmhnpHl5kxoKOgO/D3tCiyGMh91jNn1mfN1kp5SRQlS5QP +P2Z66fB7lUP/RLHl58hn/X3M+jS5cCVzEpBqUnjuAdPiUpMTDQIEtHXuQHEL +Zr2ivJtnJAmYMdghEsm00cf5fPGtBNTh5uPtY7rfIDiCpkHArL8sWxUtGXDi +2u+D4foE/O4v4XmS6b+/Y4ilJgTs7B7oLWU6/RA7/ztLAg5p1vqMMK3QmDzH +5UhAJWsdPV4rZv+I87frHScg4eykngbT5uGXS7x8CXix2TLQnOmRtxLxeaEE +HM1cP32Y6UC9G0fa4gi4tOlqvifTtEK+JbMUAna7nuzwYlqOIzKpM5uAw8jm +cozpnz7TktYFzHgP2DrZMt39xq6y9w4Bd98/9AyYvqP/zMSuioC3nwtclWM6 +ukjj3WAjAVWDw8f/MuO14yrwPfScgHEr2YWvmd7pv5FtqJOAi4PefdeZ3jAQ +luMySMCP7OxnXZn+QPmsPD5KQL5HAVXSTNcU2zxx+0JAUtJjl//XL5mn2WZq +iYAWhmyX4pl2PaU2feIfAWe5bMx3ME1+ey1qjkMMH+3tuNjG3J+pkpCS7+Ji +qMFx/+kCcz8f806QTyuIYUeKY10405eD9netqorh/lSG4R9mP5gYqf74g2Lo +YaO3fZrZL5J3r6RE08RQjE5PtmF6aROnLKuNGFa1lWTQmf1V9HHMlMNDDM++ +Lc86sZcBYbushs77i6FoDubSmf1pVfbo1MZwMXwXpm6+xuzftdDcq/ypYthM +NOgJZva3k5DFnES1GJ422l7Nx5wPrYjG2PyHYiin/zBbzpAB3GPbRGRfiOF2 +d2nj/88T4wEbKL0Vw9v2rTxaVAaImDHS1dfEMMPXo/oTcz7nKpUUqznFMXlg +u9ljXQY8I2QxtAXE0ShstjVTh7n/k75jZEVx9NEwTFBgznt3rALRxEwc7Tl8 +Dy2qMeD2VEbrSxtxTKQfS8jeyYAzlmtOtMPiOK6ID9SZ54fqlndnLQPEsWxd +H2E/83y5QL844JAjjrcfSxYYKjBg17df4b7j4lhca5bfL8Ksx96sHU9nmfHM +uVUKCjPn44bqO8EVcbRLuGlME2QAwcZFj8EpgRcyIxZvMs/HWfrzVbadEhhK +aB7j4mTApbj0oLxQCZS5IUS4uUqH1vfbFWZjJZDfKupZ2DId/hBbeqnJErju +cv822iId3D8va366zlwv5e3Wwa/M7435oYWdLRJYucbtdneCDmPCSr7PeCXx +8DSHgEIPHUT9Hm8RFZVEgmH8Uk4XHcxb7f/zkpHE71k9bRv+o0NdeLLKJi1J +1KNPH+p6SYcLw/MzDvaS2HV37znxR3TQvNvo8a1IEsP75c2ySugQa2B9VFx3 +C6b9XD2mfpoOew/nf9cx2oKCFNszRQF04Iv5Em9rvgUrne24+XzpcK3lbEm6 +yxbsDTmd/NqdDnRawxf281swyWH2Mbc9Hebt5YMX325B9jAed5oeHQ6fXr7Q +ESGFb4rlbsmt1oNijpHkzFkpvM219LHjez2zfhfvc6RL4ay3qWrA13oI/7O9 +26hYClkm4hTuTNRDdvxhYUaHFD79nMzZ3VsPHRkvC25tkUaP170mGx/UA7k8 +r+bMY2mkBs88P3S0HnYNdP792iqNtDTz0LtO9WDBsn7PkR5pXF7oy/1+sB6O +7fd9CxPSeCBoQDvEoh52R8hGx2yQQWuPNQeafj34S6/cNFSWQW/RGmlJoXp4 +5lEw1xIsg24dnx1Tmuvg5I+FmFZeWSTUHBW8LFgHP5U3D6nayuFO3tJgU+8a +MCi7V3j5sjwaLxznlCusggUBmotdswKyRhooyQ5XwKcUF7tTHEqY9vi0dNan ++2D6LcR0grQVX15OsdZyKoXZY5yBNdHbsGspX6WksoT5vy/Keq55O5bXB5d1 +2dwEgf+U0iq+7UA10TRaTiDz/z7pgRWJpILKrflvk/ZchVxlvc2CHqp40fpe +E73oMrSLG2ovZuzEQ5etGg+XZAJZsjldrV8NlQ/eItwdToUxeYWh6XdquOPj +Rkt8kQrnlROVi4fVUGxHosDUvVQYJNNeEKbVcNDuirJXeCqEOPT8XvdHDRXM +m/k1RFLB0SxAa2azOrbe8PrdY5UCl5OYxwFJHbWED/bo9lwAPraioKNx6vjh +b3mc+fokYP/5+MBCgjpqlz8/v2nuHPz7+lEz9pw6+j27bf2p7xx8eye2UJii +jlZ5p9e33D4H3VUZPiOX1XFUhFPcxvwcZLrGuh8pU8chRhShKTcRRJpd7J3f +qGP3s1+OYdSzIBUrbeCgpIFvDMJlnzXGQXkgp9zHbRqY5HWvcvPdOKC6L3Ac +VdZAIvGG+8nLceBs1tLrqa6B4dvWpKwD4uCasId3KFkDL6qkzHRujQOx0vIr +ORYauE1uYSErJxaEeik/+4I1kHXt8DOBuBjgUnSq2/9SA7eMilVsY42CE2JA +K2vTwLjVgkvDE5HQzis3xNahgT3f0mzvt0VCysrnDbXdzHhWXmJqRiTwtQba +ir7TwHuez02d5SJBwDt56f2sBkYMPu7R3BsBkpUNmm4CmrgUwuHnUBwGOyli +D0KcNfHKXMbSy6vBUC3v9ZvVRROX00KqR+OCQZebsSfNVROVUp2yBU4Eg9GA +/UixhyZ+j4qNY+gGg11ALn9PgCbusbpuIj5wGqJviQapJGpiqV1qjhjhNHTz +iuiNlmsildM75UZpIJwaEmihsWjhxoIP34L5AqD1hdOjUlYt/HWh/5vyH3+Q +elBSz71BC58IXHu6MO0P7dHke+1cWlhyvKb0wXN/kJN1zaYJamGHF9FkMcof +Xh+r9KApaaHwJanTUuN+oD5tuZFmroWa6rH86W0+kPg6j73UQgvrPO71stz1 +gQ+McRZuay3MfvfPPD3JB5IuhCy32Wrhb+o8F89eHxhRLhgyPaKFz6eW1H1a +T0K679cK01NaKHpA81R3pzd8W0yxNc3VwqZtxIrgBS/4MHjD7voVLWQ5NmSi +0OcF7Y/qDi5c08L2vcTaWboXFJ8bcci7wfTRrK7/YrzAUYJ4eLpUC1mT1z/s +5PeC50bv3c8/0sKz0oJvGbqecDVje2jbmBYqVTwil+a5Q1IwNWzLhBZ+ZHw4 +kBLjDsGHDoQHfNZCP2/2zkQPd7BSjIoUm9XCLbPDuc+03YGd0R3jtayFAY/S +Th3tdYOAkZDzXJxErJ4LLt4k6AZ71F5cMVUlYsMJn4DGm8fAnn2vTbcaEVuv ++LgXJR+DEx/beA9qEjGkWG3/zcBjkJb8X8xxHSIe5bWs+m58DPo/v3GPNiTi +XfG9Is8nXOF44bhmrS0RTZQnbyrsdIU4/nWvZM4QcXrdqf1ar10gayou4XYM +Ed9dbaCrPnSBksfrqTvjiSjYStkPt12g3YezUj+JiFXsfO23o1yAv31Tjl0m +EamTcVHJyi5QGCd1LKWEiCu//tBERY9A06L+79VOIson8OY21TvBjY561wOv +mc4cPn8j2wkSbmm1l/cS8VLFff87gU5gelA5z22QiPGZevmy6k7wpkFcp3eU +iLdnndY3lR6Cmdifp8qXiGhcH5YXX+IIIpvrZ46LayO/9OcvJ+rt4eeU5v4n +ktqYuPFyYHqePXx4Ws6QkNbGiCZ/qf4Ie7gRWJLUI6+NYYu3PZ+iPagMZCuh +qjY2SLgVCnUcBKP8IFcJ1MYqtgWPrCk78FXRfPfaTRvr+LwqtXRt4fSq+K8j +ntoo4MkgrErYQmQzm/jXE9ooYXxN9sOaDSTb9zlw+2uj0Iaoi9ytNnAnIfSt +Ubg28ultVVx2sIGxD02D1WnaePPClnfj8QfALtVsILteG1+Inek2/GYNzvbE +VfkGbVTZ0qP8s98ajstvEa16qI3u2/yFO5usIZDx1a7zqTYy1vpEu9OsIX0i +o5+9g7le/LtIDXVraKcM9oWMaKPXohfJMtQKKF+Pv3HgIuEtr9aRfWQLEGnc +U/SQh4Q1/Jnkk4IW8PXcDn9pPhIqX6+uq5/dB/my8zwTAiSUHA106SvYB/9s +Ioz9JUkY6sGZrMS5Dx43ZlQlqpGwKyVA/+eIGRieb0qvtiWhofN3mlqVKYjb +3TgsYk/CQx+f3ryWbgrf5RJUwhxJyGd5uE7DzxSKHpq2Uo+QkLHA49ajYgqs +82/W2jxJ2NbPGzR9dy+02H3xHYkgobuNsZJZ2R4wUSDs4y0i4RuBKNn2NhOo +mXsue7yYhJtF+mNO3TcBhfrAlYYSElZ1BbgYZJjAelpXgWcZCStbzggTHUyg +2S/xe0sNCS/+aUh/MLMLqI1LOeEvSfjSZOEnXXAXkPa/Hvs8S8JCK5sFlSgj +KJGIrqd+I+GVfgO1Z8eNQHhCJSV7gYT2r1o6Qs2NYCkkSdt4hYSK9ct39SSN +oOo6JOWvkTArfey8yCNDUJu+r2oroIODPI9l5NYbwraYC6HNOjq4tP/7IZd9 +AA/1b20wJ+sgF72Y/7M0gNXq48w+Ax1scn+lUvqdCqG+y/emDHWwRPl38Kdc +KrQ6uYzymetgoO/7ItkpCnjqkWiHXHRwI5kzMjbDAO5+H5VYStJBQ1NB83+8 +ZKCW/7kTlayDj68r/Ej5rAc9XqIkjjQdvCaycNvyqR78GjG3Er+kg7qDg6L+ +p/WA1lWfgNd18KLbvRMiI7owU5Y6l1Kpg3YpHuSWJh3Y4ab3WPGdDp79bKPx +t0AbLspZ/Ir/wIz32gPVx7HasDTsqj02pIO/dfg33TmmDU2OKWX54zp44Srj +v7mt2rDfajhHdE4HVWcXnXdVESFM/6w/F4suxp3sCVz9Twta+V/LzinqYmJv +cbKZjCaodk04mW3Txft5/1Ivs2tCZsqvnLs7dLGsNVuVbU4DnDgU+NzVdDHS +1aUEGzTg25/gX0O6uji31ZW4104DRKYke7vNdPHEl0+LHlnq4NbkmVAToIuq +ita8Ly13wlefmRCTIF0cqbYRSZPZCaFbTnr3B+vi1z3ZUnkLqnAh0m//jwhd +NB3XeRWWpQoV5GAZg0RdrLtQt3boowr8qYt/2HJFFyujg3ztI5Qh80H+Uk+L +Lk7RquemJ7aB5BGZqWMvdPEc31hbStM2uMVX9H6pVRfNvc9ZeeVsA7rPrWaR +Tl2sOTuzo9N0G3xUvpfuOKiLBc/9XlIrt8K2OwyVsVlddF5xdQy/oASPC98c +XxDWQw4ct3M9rgAj5rJHggl6mC5wuWHXLgVg+enj8FtcDyPyCwl2CgpgZM1h +sUFGD01jb7Wtn5CHF+vIOmI79DC+okM32VMeOlwLuAypemh75BEbR6gcvFM4 +UZ7urodP3oqcl6qXgd/ddXeEvfTQJK3B4eQ1GZCMYrt5xVsPLYyb3o3GyoBz +37WcYn895DL2EjHeJwMjZ7ti6OF6WJovYVD5Sho+TxIPjKTpYRrRT3KXgRQs +3VlbVavXQ1KBekDuAQmYtNtdeJ6hhxs2KgVb7pCAwfWpe8cb/7++bCmuk4BG +F/G8y0/0sGeq/lT3A3GII2iT/7bpIblJ1fX6JnHYnHQisv2DHv5o315x7y0B +VDz6WNxYydiq59xemS0CUsKSd5vWk/FM4fwR+UAR2Nziak3gIKPP5qEjL6xE +YFFq/sYrHjKW2MhcLdgoAg393MaawmSUtD+6kpMoDHt349m1rWQ0//zxm2e8 +EBxTLOO6so+MRcXtMSP5AhD+/PAJJSsyflZ4deJKtACkuwm8qtpPxjgZ3viz +LgLw8FZYyquDZJxsPy77VU4AhJT2bvp7lIwjUYJH1pXywwulCSGXYDJOH391 +cPHJZtixTVpGqYCMt2xeJ7vL8AG29sRU3WA+jxZa0nO8YOeZOEotJqP0bF3j +9gZeiL8zV3TwLhkZ3LQUTVte+LDtoeL5ajKq6VwSZ7+4EdK2OyjPviRju7Tm +cQt+HljYcYlUNU/G4wXzrJb7OGGwA00EF8moc+84Q1mJE574fj0QtEzGf1Z5 +ZcZrHJBWZRpA+kXG3Da1VfkqDthBZrnXwKaPLn8zVK+Lc4CrqY9si4g+Rrsc +iVFe2QBvPPZsfGOgj4EJk605fWzQyLUsrg36OHUmsdyolg2Kyoq2XzbUx7dr +PurS2Wzg/+3vbvvd+mhCD/jqbcsGvCE1sR8s9THi6qd75oOssDtRdvWTqz7y +Nppt+za5DujFv0eXk/TRdry1aVqRBUjGQau0ZH3s+OYc/4qHBWpHZzcWpuoj +jj/RLh1fo1ZJDenQMvXRgXjq6aPINeq93Cep+Vf1sfIYn01q1T9qYcpZvT3l ++igaJHXcV+Uv9XzQpozcXn08f9p32MbuF5VTMKlkrk8fl78GNhoo/6ImVrI8 +NBrUx9S6W9s9WH5RE74uTM5+0MdHRwmUuLKf1DOebwwMJ/Xx6K3bwy/W/6Se +csqbmv6hj+Uqcbd1W1apjrvkUV/KAPXYX9eY+SxT/77h5GuRMUD5fVln3+xe +pha6fX1PkzfAp3vuF+TLLFMnExkhjtsMkLEyxb/8Zol6qs3yQZimAWaK1T8q +wCXqBYtIKfpuA3SI8crMkl+kNtj3/SH6GaCAoG++k/AC1Xm6of1hgAF+fis9 +aLUyT2UJL8zdFWSA/cS4qPCBeeruq95EmzAD3H4Dqk9emaf2fFx3MjDeAJ2f +9Ee1yM1TZ1x3vq/MMUDR0Dfnx8O+UiV8zjF2PjFATeuhQ3t2fKGmrblrJzcb +oKD9IVrx7xkqa+buys/PDPDWHrrcvv9mqDN1G+4WthngUZespzEBM9QGloRc +gV4D5JiWVzv2aJrqmBUTsjJhgJTXBZeqXKeouY1h2k08FLT1zWg9PzJB3Wjh +UCnOR8G/tc7SFxsmqDEjuqohmykoeLCCtzdrguq54YeCujAFj/buVxWmTVB1 +LIOFiqQoSOns/xtS/4naP3Zq8awGBbvY0zvdro9ThblPVu47SMH2habSk5eY +o2QcFT7vQMHaNY9/a/6jVM2oNONLThTk2tvh2WsxSrWYr+gbPEpBp5y2J7o8 +o9TE/uWfx05SUPpB9uGFxBHqj6Joo/BYCrpkraOFCA5T3+lf6i0poyB7/45X +zwLfUz1PF18zLaeg1x5xKXvKe+pKea3bbAUFsxaC5fZzvKcKyA2uatRRkDuc +0y3k2juqGecWyUdPKEjvyhYPfPWW+vBNyfHePgoOaGg7ZesPUml8dNXgQQrK +fHXLRp5B6uCethXCe+Z9OcK1Pe8HqEsNX5IOj1DwNsjGuEcOUFVvqN+fnqHg +uR+Vo33N/dSH7wyDU+Yo2OdKatqX3U+lCR0AtXkKXoxSdpH07Ke6nzv9OmiZ +gti6O6GRr5+69CTxiugPClblzXZfGOujxv3KOdbwi4LCWmsh5XV91M3EuyrO +fylY5L5nVDG5j5rv07C8tkbBF/+lnZ4/0kf9H35BFTY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0988832592087292}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.0988832592087292}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VO8XAHBR1ij7WLLTgmxjMMycg1SGLIUQJWVLtsgua1KWEKEFSSpK +djOUihbki8jSZo0QRbZ2v/n9dZ/Pc+99n3POe857r6yr3343VhYWlu51LCz/ +v64MtT1TSC6mzpWd7NocZk19k08IMxyMA7/hinEVDnVA4S5XwmAmaLOtuLFz +IARblQ6wDRaB0rrbTZPsVsD/VTTz50AVWEqOmt5id4HhhxZ+SwPNkNj3U6Bp +gz/sVpj5uDDQA4zau2vqrDHwc0Ane35gDCSGPR0IUxehxfh28euiReCnEfc+ +OlwIksOMSVeVv0Ax1GhKe3QbhE4eKeUwZsOjxu1jHHblsIPj5gurg2zoHnNY +kCOgHLBocizPmw2Jz31CVpPL4eSgj4RKFhtyxYXeK3taDs92RaZYTbCh6RVq +movKAwjakuebd249zu51DP3+7wH0dvZoKndsQJeyqj7tjgrI1NjdaGHLic3P +xjIN91WB2nuHPRRPTuwTVa/8dbAKOhJ8epUjODGr9pTZPdcqYB/M+sJ5gxPP +hCVP/gipgogz4xIts5x4cEjwkE5RFRx/FROpk8CFiW9u++5ergKSWyNFppob +e+smB3Oyq6GXr6uN7wU3rv1zdXcsqAZ/+pjt30FutOKz3CR8txpKebh93/3j +xuQ3LXdOPawG6Sr7/CwaDzaeOV7ROVYNnGvL/zjHeNDv2u8+jp018DZX/cnC +Zl6cfJ90z6epBq70lm0KVuTFvKgI2ZmXNeDIt/XILz1epMmf/eH0ugY+xG/5 +x3qMF88OFzcrfqqBEV9uA6Fa5v0gpVhjrlqY2vWpnuTAh5nPP128b10LP+Zz +HkTc2ITZHnyPVN7XAkNZcG2tdhPyFTRsDBivhXD3NIuE9k0Y9uJFeNmXWvjz +PmEuZXETzjWcLmP9Uwsx43ThLrnNWNPFpUWWrIOEzlsHRoI246g3S2aHYx0k +F0d3sYrx44qd08vT3XVAI3oJCMvzo4akdKbjQB1wPttvu1WVH3fyPa3UHmK+ +P6743syQH5euTM52fqmDSLmOySwvflyd2GiYyl4PvoWEf0oN/Hi623lal1wP +1tcqVcwOCWBbKssH0yv1sFnlqp+zmwA+u1Hs86OgHjobE6r8/ATw7YsV2vVb +9UB7f1A3K14AbT/pTLdV1IOR+D/jj2UCmMxylVH+oh6IubRDfn8E8CctbqZk +vh5Es8bPX7ouiNVxH0ZtKHQgKNcm/CgRxND4G+yxhnQQb06Mdq4QxCPD9q3F +JnSQmt9+emuLILL1lSj27qODorm/S+OUIPbW/HN+5UwHrfV/SeNaQojOA4k7 +IulAvNqpsZcihNJBjsPd0XQgaRaq3N8thO938Yz7xtOB7GIsF+IghKEzivMZ +F+hg+PA8L0+0EMrFpEBQLh0sg0Q+abYLYfAx+5rSKjpY8UwN5fQKoZZ6+e6O +WjrsL2K8/fNBCEkb/lyeoNPBrtup68U3IYw93Rm81kQHZ5WbDY7Cwsji4e3Q +3U4H709qGXEuwmiw8mT68wgdTkasS/nsJYxXsj6yJY7TwVegN9E8UBgZNUqL +EpN0OIXBkSKJwph6uOig2hc6hF176FFaJozl66bclpbocM7GlNqzwrTfY4Gf +7AwQr+kUZ10ngi66yxFGXAwoF7RZ1eARwdxhVe84Hgb09xyuyJAWwY8TChMT +mxigYB0kZ71XBAVyui/oExhAr/j5L2a/CB45es1DT5wB5puj31c4iWDR+tWP +qpIMCOw6n7U5QAQbopNu/JJmQPO+AvbuPBF8FXu9Q34rA+zuK4yv3RTBH9Hk +pv5tDJjZWPpYrVwEfVYPHI7ZwQD+jprQi80iWGX4rqZelQEutPYZiy8iyNIS +wFmvxYClu5YvzyyLoJkad6O0NgPOcfXdLF8TwbJKN81oEjOf1mEnPiFRNHsx +Fy6nx4C/u5c7/zMQxR0zks9/URiQXhJe9ne3KH4fiv8mBsz82FmSVK1F0fDq +rhU1ZObznNsw1U0Um9NZbqERA0YU0rc88hPFNAHpA/rGzPwShH/Nhoniw/GP +0yq7GHDFWKbaPE0UvyQ3fFwyYcDOm7cuRuaKos+yvOGr3cz8WZVP3isSRbb2 +Z3m5exgw/VRbcWO9KNIywnUIpgyIlG1cZ/BUFFnbWePbmd4ci0Per0Rxz/yd +7kAaA3TRLOfVsCjmhnpHl5kxoKOgO/D3tCiyGMh91jNn1mfN1kp5SRQlS5QP +P2Z66fB7lUP/RLHl58hn/X3M+jS5cCVzEpBqUnjuAdPiUpMTDQIEtHXuQHEL +Zr2ivJtnJAmYMdghEsm00cf5fPGtBNTh5uPtY7rfIDiCpkHArL8sWxUtGXDi +2u+D4foE/O4v4XmS6b+/Y4ilJgTs7B7oLWU6/RA7/ztLAg5p1vqMMK3QmDzH +5UhAJWsdPV4rZv+I87frHScg4eykngbT5uGXS7x8CXix2TLQnOmRtxLxeaEE +HM1cP32Y6UC9G0fa4gi4tOlqvifTtEK+JbMUAna7nuzwYlqOIzKpM5uAw8jm +cozpnz7TktYFzHgP2DrZMt39xq6y9w4Bd98/9AyYvqP/zMSuioC3nwtclWM6 +ukjj3WAjAVWDw8f/MuO14yrwPfScgHEr2YWvmd7pv5FtqJOAi4PefdeZ3jAQ +luMySMCP7OxnXZn+QPmsPD5KQL5HAVXSTNcU2zxx+0JAUtJjl//XL5mn2WZq +iYAWhmyX4pl2PaU2feIfAWe5bMx3ME1+ey1qjkMMH+3tuNjG3J+pkpCS7+Ji +qMFx/+kCcz8f806QTyuIYUeKY10405eD9netqorh/lSG4R9mP5gYqf74g2Lo +YaO3fZrZL5J3r6RE08RQjE5PtmF6aROnLKuNGFa1lWTQmf1V9HHMlMNDDM++ +Lc86sZcBYbushs77i6FoDubSmf1pVfbo1MZwMXwXpm6+xuzftdDcq/ypYthM +NOgJZva3k5DFnES1GJ422l7Nx5wPrYjG2PyHYiin/zBbzpAB3GPbRGRfiOF2 +d2nj/88T4wEbKL0Vw9v2rTxaVAaImDHS1dfEMMPXo/oTcz7nKpUUqznFMXlg +u9ljXQY8I2QxtAXE0ShstjVTh7n/k75jZEVx9NEwTFBgznt3rALRxEwc7Tl8 +Dy2qMeD2VEbrSxtxTKQfS8jeyYAzlmtOtMPiOK6ID9SZ54fqlndnLQPEsWxd +H2E/83y5QL844JAjjrcfSxYYKjBg17df4b7j4lhca5bfL8Ksx96sHU9nmfHM +uVUKCjPn44bqO8EVcbRLuGlME2QAwcZFj8EpgRcyIxZvMs/HWfrzVbadEhhK +aB7j4mTApbj0oLxQCZS5IUS4uUqH1vfbFWZjJZDfKupZ2DId/hBbeqnJErju +cv822iId3D8va366zlwv5e3Wwa/M7435oYWdLRJYucbtdneCDmPCSr7PeCXx +8DSHgEIPHUT9Hm8RFZVEgmH8Uk4XHcxb7f/zkpHE71k9bRv+o0NdeLLKJi1J +1KNPH+p6SYcLw/MzDvaS2HV37znxR3TQvNvo8a1IEsP75c2ySugQa2B9VFx3 +C6b9XD2mfpoOew/nf9cx2oKCFNszRQF04Iv5Em9rvgUrne24+XzpcK3lbEm6 +yxbsDTmd/NqdDnRawxf281swyWH2Mbc9Hebt5YMX325B9jAed5oeHQ6fXr7Q +ESGFb4rlbsmt1oNijpHkzFkpvM219LHjez2zfhfvc6RL4ay3qWrA13oI/7O9 +26hYClkm4hTuTNRDdvxhYUaHFD79nMzZ3VsPHRkvC25tkUaP170mGx/UA7k8 +r+bMY2mkBs88P3S0HnYNdP792iqNtDTz0LtO9WDBsn7PkR5pXF7oy/1+sB6O +7fd9CxPSeCBoQDvEoh52R8hGx2yQQWuPNQeafj34S6/cNFSWQW/RGmlJoXp4 +5lEw1xIsg24dnx1Tmuvg5I+FmFZeWSTUHBW8LFgHP5U3D6nayuFO3tJgU+8a +MCi7V3j5sjwaLxznlCusggUBmotdswKyRhooyQ5XwKcUF7tTHEqY9vi0dNan ++2D6LcR0grQVX15OsdZyKoXZY5yBNdHbsGspX6WksoT5vy/Keq55O5bXB5d1 +2dwEgf+U0iq+7UA10TRaTiDz/z7pgRWJpILKrflvk/ZchVxlvc2CHqp40fpe +E73oMrSLG2ovZuzEQ5etGg+XZAJZsjldrV8NlQ/eItwdToUxeYWh6XdquOPj +Rkt8kQrnlROVi4fVUGxHosDUvVQYJNNeEKbVcNDuirJXeCqEOPT8XvdHDRXM +m/k1RFLB0SxAa2azOrbe8PrdY5UCl5OYxwFJHbWED/bo9lwAPraioKNx6vjh +b3mc+fokYP/5+MBCgjpqlz8/v2nuHPz7+lEz9pw6+j27bf2p7xx8eye2UJii +jlZ5p9e33D4H3VUZPiOX1XFUhFPcxvwcZLrGuh8pU8chRhShKTcRRJpd7J3f +qGP3s1+OYdSzIBUrbeCgpIFvDMJlnzXGQXkgp9zHbRqY5HWvcvPdOKC6L3Ac +VdZAIvGG+8nLceBs1tLrqa6B4dvWpKwD4uCasId3KFkDL6qkzHRujQOx0vIr +ORYauE1uYSErJxaEeik/+4I1kHXt8DOBuBjgUnSq2/9SA7eMilVsY42CE2JA +K2vTwLjVgkvDE5HQzis3xNahgT3f0mzvt0VCysrnDbXdzHhWXmJqRiTwtQba +ir7TwHuez02d5SJBwDt56f2sBkYMPu7R3BsBkpUNmm4CmrgUwuHnUBwGOyli +D0KcNfHKXMbSy6vBUC3v9ZvVRROX00KqR+OCQZebsSfNVROVUp2yBU4Eg9GA +/UixhyZ+j4qNY+gGg11ALn9PgCbusbpuIj5wGqJviQapJGpiqV1qjhjhNHTz +iuiNlmsildM75UZpIJwaEmihsWjhxoIP34L5AqD1hdOjUlYt/HWh/5vyH3+Q +elBSz71BC58IXHu6MO0P7dHke+1cWlhyvKb0wXN/kJN1zaYJamGHF9FkMcof +Xh+r9KApaaHwJanTUuN+oD5tuZFmroWa6rH86W0+kPg6j73UQgvrPO71stz1 +gQ+McRZuay3MfvfPPD3JB5IuhCy32Wrhb+o8F89eHxhRLhgyPaKFz6eW1H1a +T0K679cK01NaKHpA81R3pzd8W0yxNc3VwqZtxIrgBS/4MHjD7voVLWQ5NmSi +0OcF7Y/qDi5c08L2vcTaWboXFJ8bcci7wfTRrK7/YrzAUYJ4eLpUC1mT1z/s +5PeC50bv3c8/0sKz0oJvGbqecDVje2jbmBYqVTwil+a5Q1IwNWzLhBZ+ZHw4 +kBLjDsGHDoQHfNZCP2/2zkQPd7BSjIoUm9XCLbPDuc+03YGd0R3jtayFAY/S +Th3tdYOAkZDzXJxErJ4LLt4k6AZ71F5cMVUlYsMJn4DGm8fAnn2vTbcaEVuv ++LgXJR+DEx/beA9qEjGkWG3/zcBjkJb8X8xxHSIe5bWs+m58DPo/v3GPNiTi +XfG9Is8nXOF44bhmrS0RTZQnbyrsdIU4/nWvZM4QcXrdqf1ar10gayou4XYM +Ed9dbaCrPnSBksfrqTvjiSjYStkPt12g3YezUj+JiFXsfO23o1yAv31Tjl0m +EamTcVHJyi5QGCd1LKWEiCu//tBERY9A06L+79VOIson8OY21TvBjY561wOv +mc4cPn8j2wkSbmm1l/cS8VLFff87gU5gelA5z22QiPGZevmy6k7wpkFcp3eU +iLdnndY3lR6Cmdifp8qXiGhcH5YXX+IIIpvrZ46LayO/9OcvJ+rt4eeU5v4n +ktqYuPFyYHqePXx4Ws6QkNbGiCZ/qf4Ie7gRWJLUI6+NYYu3PZ+iPagMZCuh +qjY2SLgVCnUcBKP8IFcJ1MYqtgWPrCk78FXRfPfaTRvr+LwqtXRt4fSq+K8j +ntoo4MkgrErYQmQzm/jXE9ooYXxN9sOaDSTb9zlw+2uj0Iaoi9ytNnAnIfSt +Ubg28ultVVx2sIGxD02D1WnaePPClnfj8QfALtVsILteG1+Inek2/GYNzvbE +VfkGbVTZ0qP8s98ajstvEa16qI3u2/yFO5usIZDx1a7zqTYy1vpEu9OsIX0i +o5+9g7le/LtIDXVraKcM9oWMaKPXohfJMtQKKF+Pv3HgIuEtr9aRfWQLEGnc +U/SQh4Q1/Jnkk4IW8PXcDn9pPhIqX6+uq5/dB/my8zwTAiSUHA106SvYB/9s +Ioz9JUkY6sGZrMS5Dx43ZlQlqpGwKyVA/+eIGRieb0qvtiWhofN3mlqVKYjb +3TgsYk/CQx+f3ryWbgrf5RJUwhxJyGd5uE7DzxSKHpq2Uo+QkLHA49ajYgqs +82/W2jxJ2NbPGzR9dy+02H3xHYkgobuNsZJZ2R4wUSDs4y0i4RuBKNn2NhOo +mXsue7yYhJtF+mNO3TcBhfrAlYYSElZ1BbgYZJjAelpXgWcZCStbzggTHUyg +2S/xe0sNCS/+aUh/MLMLqI1LOeEvSfjSZOEnXXAXkPa/Hvs8S8JCK5sFlSgj +KJGIrqd+I+GVfgO1Z8eNQHhCJSV7gYT2r1o6Qs2NYCkkSdt4hYSK9ct39SSN +oOo6JOWvkTArfey8yCNDUJu+r2oroIODPI9l5NYbwraYC6HNOjq4tP/7IZd9 +AA/1b20wJ+sgF72Y/7M0gNXq48w+Ax1scn+lUvqdCqG+y/emDHWwRPl38Kdc +KrQ6uYzymetgoO/7ItkpCnjqkWiHXHRwI5kzMjbDAO5+H5VYStJBQ1NB83+8 +ZKCW/7kTlayDj68r/Ej5rAc9XqIkjjQdvCaycNvyqR78GjG3Er+kg7qDg6L+ +p/WA1lWfgNd18KLbvRMiI7owU5Y6l1Kpg3YpHuSWJh3Y4ab3WPGdDp79bKPx +t0AbLspZ/Ir/wIz32gPVx7HasDTsqj02pIO/dfg33TmmDU2OKWX54zp44Srj +v7mt2rDfajhHdE4HVWcXnXdVESFM/6w/F4suxp3sCVz9Twta+V/LzinqYmJv +cbKZjCaodk04mW3Txft5/1Ivs2tCZsqvnLs7dLGsNVuVbU4DnDgU+NzVdDHS +1aUEGzTg25/gX0O6uji31ZW4104DRKYke7vNdPHEl0+LHlnq4NbkmVAToIuq +ita8Ly13wlefmRCTIF0cqbYRSZPZCaFbTnr3B+vi1z3ZUnkLqnAh0m//jwhd +NB3XeRWWpQoV5GAZg0RdrLtQt3boowr8qYt/2HJFFyujg3ztI5Qh80H+Uk+L +Lk7RquemJ7aB5BGZqWMvdPEc31hbStM2uMVX9H6pVRfNvc9ZeeVsA7rPrWaR +Tl2sOTuzo9N0G3xUvpfuOKiLBc/9XlIrt8K2OwyVsVlddF5xdQy/oASPC98c +XxDWQw4ct3M9rgAj5rJHggl6mC5wuWHXLgVg+enj8FtcDyPyCwl2CgpgZM1h +sUFGD01jb7Wtn5CHF+vIOmI79DC+okM32VMeOlwLuAypemh75BEbR6gcvFM4 +UZ7urodP3oqcl6qXgd/ddXeEvfTQJK3B4eQ1GZCMYrt5xVsPLYyb3o3GyoBz +37WcYn895DL2EjHeJwMjZ7ti6OF6WJovYVD5Sho+TxIPjKTpYRrRT3KXgRQs +3VlbVavXQ1KBekDuAQmYtNtdeJ6hhxs2KgVb7pCAwfWpe8cb/7++bCmuk4BG +F/G8y0/0sGeq/lT3A3GII2iT/7bpIblJ1fX6JnHYnHQisv2DHv5o315x7y0B +VDz6WNxYydiq59xemS0CUsKSd5vWk/FM4fwR+UAR2Nziak3gIKPP5qEjL6xE +YFFq/sYrHjKW2MhcLdgoAg393MaawmSUtD+6kpMoDHt349m1rWQ0//zxm2e8 +EBxTLOO6so+MRcXtMSP5AhD+/PAJJSsyflZ4deJKtACkuwm8qtpPxjgZ3viz +LgLw8FZYyquDZJxsPy77VU4AhJT2bvp7lIwjUYJH1pXywwulCSGXYDJOH391 +cPHJZtixTVpGqYCMt2xeJ7vL8AG29sRU3WA+jxZa0nO8YOeZOEotJqP0bF3j +9gZeiL8zV3TwLhkZ3LQUTVte+LDtoeL5ajKq6VwSZ7+4EdK2OyjPviRju7Tm +cQt+HljYcYlUNU/G4wXzrJb7OGGwA00EF8moc+84Q1mJE574fj0QtEzGf1Z5 +ZcZrHJBWZRpA+kXG3Da1VfkqDthBZrnXwKaPLn8zVK+Lc4CrqY9si4g+Rrsc +iVFe2QBvPPZsfGOgj4EJk605fWzQyLUsrg36OHUmsdyolg2Kyoq2XzbUx7dr +PurS2Wzg/+3vbvvd+mhCD/jqbcsGvCE1sR8s9THi6qd75oOssDtRdvWTqz7y +Nppt+za5DujFv0eXk/TRdry1aVqRBUjGQau0ZH3s+OYc/4qHBWpHZzcWpuoj +jj/RLh1fo1ZJDenQMvXRgXjq6aPINeq93Cep+Vf1sfIYn01q1T9qYcpZvT3l ++igaJHXcV+Uv9XzQpozcXn08f9p32MbuF5VTMKlkrk8fl78GNhoo/6ImVrI8 +NBrUx9S6W9s9WH5RE74uTM5+0MdHRwmUuLKf1DOebwwMJ/Xx6K3bwy/W/6Se +csqbmv6hj+Uqcbd1W1apjrvkUV/KAPXYX9eY+SxT/77h5GuRMUD5fVln3+xe +pha6fX1PkzfAp3vuF+TLLFMnExkhjtsMkLEyxb/8Zol6qs3yQZimAWaK1T8q +wCXqBYtIKfpuA3SI8crMkl+kNtj3/SH6GaCAoG++k/AC1Xm6of1hgAF+fis9 +aLUyT2UJL8zdFWSA/cS4qPCBeeruq95EmzAD3H4Dqk9emaf2fFx3MjDeAJ2f +9Ee1yM1TZ1x3vq/MMUDR0Dfnx8O+UiV8zjF2PjFATeuhQ3t2fKGmrblrJzcb +oKD9IVrx7xkqa+buys/PDPDWHrrcvv9mqDN1G+4WthngUZespzEBM9QGloRc +gV4D5JiWVzv2aJrqmBUTsjJhgJTXBZeqXKeouY1h2k08FLT1zWg9PzJB3Wjh +UCnOR8G/tc7SFxsmqDEjuqohmykoeLCCtzdrguq54YeCujAFj/buVxWmTVB1 +LIOFiqQoSOns/xtS/4naP3Zq8awGBbvY0zvdro9ThblPVu47SMH2habSk5eY +o2QcFT7vQMHaNY9/a/6jVM2oNONLThTk2tvh2WsxSrWYr+gbPEpBp5y2J7o8 +o9TE/uWfx05SUPpB9uGFxBHqj6Joo/BYCrpkraOFCA5T3+lf6i0poyB7/45X +zwLfUz1PF18zLaeg1x5xKXvKe+pKea3bbAUFsxaC5fZzvKcKyA2uatRRkDuc +0y3k2juqGecWyUdPKEjvyhYPfPWW+vBNyfHePgoOaGg7ZesPUml8dNXgQQrK +fHXLRp5B6uCethXCe+Z9OcK1Pe8HqEsNX5IOj1DwNsjGuEcOUFVvqN+fnqHg +uR+Vo33N/dSH7wyDU+Yo2OdKatqX3U+lCR0AtXkKXoxSdpH07Ke6nzv9OmiZ +gti6O6GRr5+69CTxiugPClblzXZfGOujxv3KOdbwi4LCWmsh5XV91M3EuyrO +fylY5L5nVDG5j5rv07C8tkbBF/+lnZ4/0kf9H35BFTY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0988832592087292}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQOJdyvKU9a02UN4H+zND5r7zpddAOUzOOyUzDvw +vH0llM/h0LXGdMqt7g1QvoBD0/Ht5by/NkH5Ig71P1OOFpRugfIlHLbN3ebG +8hjGl3GQ2Sg2nykBxldweH+s6dACn81QvpJDKlA3w5GNUL6KQ+2GHt67b9ZD ++WoOLoutO+ZqroHyNRxyatR+P89cAeVrOaRfWvZK7uYSKF/H4cXdiACJKQuh +fD0HJ0UmvoVec6F8AwfroNrn4qozoHxDhz/m+n41WydD+UYOj1dtet/1oB/K +N3Zok4k+L9DXCeWbOEQER4qUBbZA+aYOgsd37ehla4DyzRx6vvL65IlUQvnm +DiJ20ezs1cVQvoWDxf7ERY5ceVC+pcP3yNRlW/6lQflWDu4Tt7YFVSdC+dYO +VeZiImypUVC+jYPtvGnyO04FQ/m2DpNO13vsr/WF8u0cvjPcnW5829UeAOhB +gVg= + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.081589}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0988832592087292}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938534610101147`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"d11caf7f-c873-4743-8043-ba6043bac15d"] +}, Open ]], Cell[CellGroupData[{ @@ -8880,7 +16180,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "*", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -8898,8 +16200,8 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{"(", FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -8921,66 +16223,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + "In[142]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 225, 201, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512859148*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5409139068924253`*^-130\\\", \ +RowBox[{\\\"680237402890783289504507\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"133\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 81, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.99385346104562*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +In[142]:=",ExpressionUUID->"7e47253a-98ce-4ae6-89f9-3d27f5912950"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512868147*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5511981310088803`*^-132\\\", \ +RowBox[{\\\"296311412699225200908163\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"137\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 82, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.99385346105501*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +In[142]:=",ExpressionUUID->"29938d81-df57-4bfc-ba54-96ee570140aa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335128761463`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5615509931363275`*^-134\\\", \ +RowBox[{\\\"133014193160682192687674\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"141\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0000000000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 142, 83, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993853461061418*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +In[142]:=",ExpressionUUID->"23ce0115-15cf-4d0c-b960-f5f6b607fea0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512885145*^9}, +during this calculation.\"", 2, 142, 84, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.9938534610664597`*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +In[142]:=",ExpressionUUID->"ec0091be-cbd9-4a45-9bbd-df000270de17"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913335200445786`*^9}, +Cell[BoxData["8.271691567010231`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.993853504489913*^9}, CellLabel-> - "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] + "Out[142]=",ExpressionUUID->"008990f0-5044-4161-a23b-4b1734f37105"] }, Open ]], Cell[CellGroupData[{ @@ -9047,68 +16356,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491385551624`*^9, - 3.991849142620474*^9}},ExpressionUUID->"f2835c98-560f-8e47-bdab-\ -0d2700971836"], + CellChangeTimes->{{3.9918491385551624`*^9, 3.991849142620474*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 226, 205, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200775414`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.790700278816429`*^-221\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 85, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.993853504515884*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +In[143]:=",ExpressionUUID->"97a9ef19-dbdc-46da-9eff-0211c575ae68"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 206, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200875454`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.629828287227413`*^-227\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 86, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.9938535045208063`*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +In[143]:=",ExpressionUUID->"c305fb92-0c69-45ae-bbcc-80ee993f2341"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 207, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200945435`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2151517795840429`*^-232\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 87, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.993853504525567*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +In[143]:=",ExpressionUUID->"d1d93b97-975e-4fa7-80c0-0e41645afce4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335201035423`*^9}, +during this calculation.\"", 2, 143, 88, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.993853504530006*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +In[143]:=",ExpressionUUID->"a9595755-c436-4e28-9686-b6dc6ee666e6"], -Cell[BoxData["0.7348275136088338`"], "Output", - CellChangeTimes->{3.9913335271231823`*^9}, +Cell[BoxData["0.006542288691138115`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.993853508176906*^9}, CellLabel-> - "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] + "Out[143]=",ExpressionUUID->"072086eb-97bd-4bf9-a342-1efdbe55cf09"] }, Open ]], Cell[CellGroupData[{ @@ -9129,8 +16445,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9175,68 +16490,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849146408966*^9, - 3.9918491485488663`*^9}},ExpressionUUID->"ca837916-250f-4d4e-8368-\ -5a08f479e656"], + CellChangeTimes->{{3.991849146408966*^9, 3.9918491485488663`*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 227, 209, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271591835`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.790700278816429`*^-221\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 89, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.9938535082018557`*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +In[144]:=",ExpressionUUID->"1d39418e-9218-4c2f-96a9-60bc7f379b01"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 210, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271681843`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.629828287227413`*^-227\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 90, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.993853508206397*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +In[144]:=",ExpressionUUID->"b4bc300f-fdcb-49f9-8d93-37793b275f71"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 211, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527176182*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2151517795840429`*^-232\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 91, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.9938535082112713`*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +In[144]:=",ExpressionUUID->"ecad8081-0e69-40f2-9323-022af8d36673"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527184183*^9}, +during this calculation.\"", 2, 144, 92, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.9938535082162123`*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +In[144]:=",ExpressionUUID->"e1d2742b-e691-4304-b7fb-549653a8cead"], -Cell[BoxData["5.221864211842707`"], "Output", - CellChangeTimes->{3.9913335331581306`*^9}, +Cell[BoxData["16.14816455271257`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.993853511748288*^9}, CellLabel-> - "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] + "Out[144]=",ExpressionUUID->"887887a6-8ab0-48fd-b0df-c300671910ea"] }, Open ]], Cell[CellGroupData[{ @@ -9257,8 +16579,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9303,68 +16624,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491518098984`*^9, - 3.9918491543107758`*^9}},ExpressionUUID->"b579991f-985b-234a-94aa-\ -ed18c097f8c0"], + CellChangeTimes->{{3.9918491518098984`*^9, 3.9918491543107758`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 228, 213, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335331923027`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.790700278816429`*^-221\\\", \ +RowBox[{\\\"2735526583816145583533735\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"9182397440000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 93, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.993853511774502*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +In[145]:=",ExpressionUUID->"3abe1f19-becb-4406-946c-a5f6c3e4dc4a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 214, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533202278*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.629828287227413`*^-227\\\", \ +RowBox[{\\\"4160735933984357432554811\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"43\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"6426506240000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 94, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9938535117799053`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +In[145]:=",ExpressionUUID->"0ba6fe13-1f2c-474b-8489-fde34b9c6f65"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 215, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335332102795`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2151517795840429`*^-232\\\", \ +RowBox[{\\\"6657177494374971892087697\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"2409984000000000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 95, + 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.993853511784536*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +In[145]:=",ExpressionUUID->"801fae76-b844-4312-8095-e324e5d679db"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533218281*^9}, +during this calculation.\"", 2, 145, 96, 31384988445678039704, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9938535117891293`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +In[145]:=",ExpressionUUID->"6c86100a-2a39-44b3-a1d3-d4730a640bdf"], -Cell[BoxData["15.545902834190647`"], "Output", - CellChangeTimes->{3.9913335366055527`*^9}, +Cell[BoxData["2.1687587021337813`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.993853514015479*^9}, CellLabel-> - "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] + "Out[145]=",ExpressionUUID->"94fbfed1-808d-4199-b310-daeea7634e38"] }, Open ]], Cell[CellGroupData[{ @@ -9373,21 +16701,26 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918491594691143`*^9, - 3.9918491632611027`*^9}},ExpressionUUID->"afb7855c-8700-d444-926c-\ -6d96abe14e67"], - -Cell[BoxData["0.08155763943441016`"], "Output", - CellChangeTimes->{3.9913335366395893`*^9}, + CellChangeTimes->{{3.9918491594691143`*^9, 3.9918491632611027`*^9}}, CellLabel-> - "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] + "In[146]:=",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], + +Cell[BoxData["0.0011055095631561328`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.993853514036149*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"604a6d97-2ed4-4fd0-ae4a-2b21a5f3cbc6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"0f378273-e27a-4a0e-9a96-0ad7c402fa4e"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +WindowSize->{714, 288}, +WindowMargins->{{-3, Automatic}, {3, Automatic}}, CellContext->Notebook, -Magnification:>0.8 Inherited, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +Magnification:>1.6 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" ] @@ -9402,368 +16735,641 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 22, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], -Cell[706, 26, 154, 3, 22, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], -Cell[863, 31, 149, 4, 22, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], -Cell[1015, 37, 154, 3, 22, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ -Cell[1194, 44, 1301, 43, 39, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[2498, 89, 178, 3, 25, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[576, 22, 300, 5, 47, "Input",ExpressionUUID->"eb4f7d99-077a-4902-9ca7-72107ce875c7"], +Cell[879, 29, 268, 4, 53, "Output",ExpressionUUID->"94bf6b8f-0d4b-4fc3-9ae4-8179dfb6bd5c"] }, Open ]], Cell[CellGroupData[{ -Cell[2713, 97, 910, 31, 46, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[3626, 130, 175, 3, 25, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[1184, 38, 247, 4, 47, "Input",ExpressionUUID->"9c0bcff3-0649-4637-a6ef-3bc8c746899d"], +Cell[1434, 44, 273, 4, 53, "Output",ExpressionUUID->"af1fde50-0702-48e3-88b5-8e8cd8454560"] }, Open ]], Cell[CellGroupData[{ -Cell[3838, 138, 887, 30, 46, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[4728, 170, 176, 3, 25, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +Cell[1744, 53, 228, 4, 47, "Input",ExpressionUUID->"8d217eb7-ac45-4636-b319-d70a33b883c0"], +Cell[1975, 59, 271, 4, 53, "Output",ExpressionUUID->"6ee7ed3d-dbfd-4afa-88eb-5a9ae9199fb6"] }, Open ]], Cell[CellGroupData[{ -Cell[4941, 178, 558, 19, 42, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[5502, 199, 172, 3, 25, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +Cell[2283, 68, 175, 3, 47, "Input",ExpressionUUID->"eb5a2db4-dc4c-4b8e-b39a-194b6f817c20"], +Cell[2461, 73, 273, 4, 53, "Output",ExpressionUUID->"347e146d-81d5-489b-a73f-1aa4160de046"] }, Open ]], Cell[CellGroupData[{ -Cell[5711, 207, 623, 21, 42, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[6337, 230, 172, 3, 25, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +Cell[2771, 82, 257, 7, 68, "Input",ExpressionUUID->"6c3344af-cb78-428c-a28a-b63d1d5ce44c"], +Cell[3031, 91, 287, 4, 53, "Output",ExpressionUUID->"3fd90194-6863-46dc-bc20-99cc805acb7a"] }, Open ]], Cell[CellGroupData[{ -Cell[6546, 238, 170, 5, 46, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[6719, 245, 172, 3, 25, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +Cell[3355, 100, 131, 2, 47, "Input",ExpressionUUID->"a20675c7-af4a-43da-a7c2-a3d3d5dbbab8"], +Cell[3489, 104, 272, 4, 53, "Output",ExpressionUUID->"47c5968a-b90e-432b-995e-59cbcd06660c"] }, Open ]], Cell[CellGroupData[{ -Cell[6928, 253, 170, 5, 45, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[7101, 260, 171, 3, 25, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +Cell[3798, 113, 276, 6, 47, "Input",ExpressionUUID->"484f9ade-7b2d-41d0-94e4-d617de45f1d2"], +Cell[4077, 121, 290, 4, 53, "Output",ExpressionUUID->"24eb5386-c0e9-4559-b3de-c31fe7acad73"] }, Open ]], Cell[CellGroupData[{ -Cell[7309, 268, 181, 5, 35, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[7493, 275, 170, 3, 25, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +Cell[4404, 130, 257, 7, 47, "Input",ExpressionUUID->"7838c061-b103-4808-be9b-1acd5ec8c6c9"], +Cell[4664, 139, 285, 4, 53, "Output",ExpressionUUID->"47874651-48ec-4093-8b54-8ea327b8ce27"] }, Open ]], Cell[CellGroupData[{ -Cell[7700, 283, 181, 5, 35, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[7884, 290, 172, 3, 25, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +Cell[4986, 148, 224, 4, 47, "Input",ExpressionUUID->"67a1a5e5-d039-4bd2-a35a-93258c60dff4"], +Cell[5213, 154, 253, 4, 53, "Output",ExpressionUUID->"8e067677-f339-4a52-85c6-b9fa5ba8fe60"] }, Open ]], Cell[CellGroupData[{ -Cell[8093, 298, 6055, 185, 310, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[14151, 485, 172, 3, 25, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +Cell[5503, 163, 226, 4, 47, "Input",ExpressionUUID->"6d2dfa28-9b9d-41d3-af97-310da614dca8"], +Cell[5732, 169, 254, 4, 53, "Output",ExpressionUUID->"cefa81b3-6d1b-43d5-b5b1-3269f65142ce"] }, Open ]], Cell[CellGroupData[{ -Cell[14360, 493, 368, 9, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[14731, 504, 171, 3, 25, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +Cell[6023, 178, 129, 2, 47, "Input",ExpressionUUID->"97dc0520-9918-4eac-988f-ef1f76a98302"], +Cell[6155, 182, 269, 4, 53, "Output",ExpressionUUID->"80d5be71-0acf-437d-8d8e-00e16396aba9"] }, Open ]], Cell[CellGroupData[{ -Cell[14939, 512, 6122, 187, 353, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[21064, 701, 173, 3, 25, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +Cell[6461, 191, 129, 2, 47, "Input",ExpressionUUID->"542ed6e2-8c21-43f0-9cd1-ea382a386f30"], +Cell[6593, 195, 270, 4, 53, "Output",ExpressionUUID->"930f3ed5-f9c3-4943-bacf-3a539080a260"] }, Open ]], Cell[CellGroupData[{ -Cell[21274, 709, 368, 9, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[21645, 720, 170, 3, 25, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +Cell[6900, 204, 557, 19, 126, "Input",ExpressionUUID->"b6df73ac-d8a7-4e4e-825f-4bf3e0ce9c0e"], +Cell[7460, 225, 295, 4, 53, "Output",ExpressionUUID->"14e47b66-4ad8-4561-824e-c30bc7f05619"] }, Open ]], Cell[CellGroupData[{ -Cell[21852, 728, 2663, 88, 135, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[24518, 818, 171, 3, 25, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +Cell[7792, 234, 557, 19, 126, "Input",ExpressionUUID->"4112b189-3d5e-4450-adff-3c506eb31fe9"], +Cell[8352, 255, 290, 4, 53, "Output",ExpressionUUID->"612d9caa-c70a-4ac7-876d-db84e62950c5"] }, Open ]], Cell[CellGroupData[{ -Cell[24726, 826, 2603, 85, 135, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[27332, 913, 173, 3, 25, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +Cell[8679, 264, 1588, 50, 506, "Input",ExpressionUUID->"7c203fc0-11b1-41d6-b52e-d2c5fc74a0f1"], +Cell[10270, 316, 285, 4, 53, "Output",ExpressionUUID->"624248a6-2f31-476f-a010-036151757a0f"] }, Open ]], Cell[CellGroupData[{ -Cell[27542, 921, 3712, 118, 197, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[31257, 1041, 174, 3, 25, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] -}, Open ]], -Cell[31446, 1047, 138, 3, 34, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], -Cell[CellGroupData[{ -Cell[31609, 1054, 2054, 59, 92, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], -Cell[33666, 1115, 557, 12, 50, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], -Cell[34226, 1129, 559, 12, 50, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], -Cell[34788, 1143, 561, 12, 50, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], -Cell[35352, 1157, 458, 10, 20, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], -Cell[35813, 1169, 172, 3, 25, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[10592, 325, 1422, 46, 389, "Input",ExpressionUUID->"b4a15a68-fdc1-4f4d-993c-7d9414ba1f1c"], +Cell[12017, 373, 308, 5, 53, "Output",ExpressionUUID->"f93dd6ca-1c76-4903-8b7c-a9b76d619cc5"] }, Open ]], Cell[CellGroupData[{ -Cell[36022, 1177, 2052, 59, 92, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], -Cell[38077, 1238, 555, 12, 50, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], -Cell[38635, 1252, 559, 12, 50, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], -Cell[39197, 1266, 561, 12, 50, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], -Cell[39761, 1280, 458, 10, 20, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], -Cell[40222, 1292, 172, 3, 25, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[12362, 383, 1422, 46, 389, "Input",ExpressionUUID->"8ad661c8-00a1-439f-b4c4-45aecdb593f0"], +Cell[13787, 431, 306, 5, 53, "Output",ExpressionUUID->"c3f3f1d4-68d2-46cf-a046-7c8052acbf33"] }, Open ]], Cell[CellGroupData[{ -Cell[40431, 1300, 1936, 53, 69, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], -Cell[42370, 1355, 20440, 382, 190, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +Cell[14130, 441, 1588, 50, 506, "Input",ExpressionUUID->"bbce03cb-2b22-494d-8f4a-ff1f35ed3ac9"], +Cell[15721, 493, 285, 4, 53, "Output",ExpressionUUID->"5363130f-6555-49dc-989e-a9ffa6a2479a"] }, Open ]], Cell[CellGroupData[{ -Cell[62847, 1742, 2094, 60, 56, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], -Cell[64944, 1804, 500, 11, 56, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], -Cell[65447, 1817, 503, 11, 33, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], -Cell[65953, 1830, 506, 11, 33, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], -Cell[66462, 1843, 455, 10, 20, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], -Cell[66920, 1855, 57321, 985, 187, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] -}, Open ]], -Cell[124256, 2843, 232, 6, 34, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], -Cell[124491, 2851, 209, 5, 34, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], -Cell[CellGroupData[{ -Cell[124725, 2860, 217, 7, 39, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], -Cell[124945, 2869, 172, 3, 25, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +Cell[16043, 502, 131, 2, 47, "Input",ExpressionUUID->"2c5d8b0c-3b8f-4d36-b625-5b11244cad01"], +Cell[16177, 506, 272, 4, 53, "Output",ExpressionUUID->"bf838381-d60c-45c5-9b60-d1a7f5df2f5b"] }, Open ]], Cell[CellGroupData[{ -Cell[125154, 2877, 1816, 53, 92, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], -Cell[126973, 2932, 508, 11, 50, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], -Cell[127484, 2945, 508, 11, 50, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], -Cell[127995, 2958, 511, 11, 50, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], -Cell[128509, 2971, 456, 10, 20, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], -Cell[128968, 2983, 26000, 472, 187, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +Cell[16486, 515, 133, 2, 47, "Input",ExpressionUUID->"a5dce572-bde7-49eb-9844-8a75a3a84993"], +Cell[16622, 519, 273, 4, 53, "Output",ExpressionUUID->"2bb0059c-6d82-45f8-8152-af481be22ce4"] }, Open ]], Cell[CellGroupData[{ -Cell[155005, 3460, 1616, 48, 69, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], -Cell[156624, 3510, 584, 12, 53, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], -Cell[157211, 3524, 588, 12, 53, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], -Cell[157802, 3538, 592, 12, 53, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], -Cell[158397, 3552, 456, 10, 20, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], -Cell[158856, 3564, 169, 3, 25, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +Cell[16932, 528, 134, 2, 47, "Input",ExpressionUUID->"4753cc77-a569-4a33-905b-626d222329ce"], +Cell[17069, 532, 276, 4, 53, "Output",ExpressionUUID->"b2a30292-ef9d-4c0d-b4b4-d5b0f6b3b532"] }, Open ]], Cell[CellGroupData[{ -Cell[159062, 3572, 2249, 64, 131, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], -Cell[161314, 3638, 555, 12, 50, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], -Cell[161872, 3652, 557, 12, 56, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], -Cell[162432, 3666, 563, 12, 56, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], -Cell[162998, 3680, 458, 10, 56, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], -Cell[163459, 3692, 173, 3, 56, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +Cell[17382, 541, 219, 4, 47, "Input",ExpressionUUID->"90c42c00-7e8a-452f-8867-3f960d6636af"], +Cell[17604, 547, 286, 5, 53, "Output",ExpressionUUID->"de7efc3d-5845-4d9a-825a-71614b44347f"] }, Open ]], Cell[CellGroupData[{ -Cell[163669, 3700, 2223, 64, 56, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], -Cell[165895, 3766, 555, 12, 56, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], -Cell[166453, 3780, 557, 12, 56, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], -Cell[167013, 3794, 561, 12, 56, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], -Cell[167577, 3808, 458, 10, 56, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], -Cell[168038, 3820, 173, 3, 56, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +Cell[17927, 557, 134, 2, 47, "Input",ExpressionUUID->"f65683b6-ec6f-4ee8-95de-aab34fe7b69f"], +Cell[18064, 561, 277, 4, 53, "Output",ExpressionUUID->"42039b3e-847e-47ad-bcb4-a1d99727dade"] }, Open ]], Cell[CellGroupData[{ -Cell[168248, 3828, 2221, 64, 56, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], -Cell[170472, 3894, 557, 12, 56, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], -Cell[171032, 3908, 557, 12, 56, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], -Cell[171592, 3922, 563, 12, 56, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], -Cell[172158, 3936, 456, 10, 56, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], -Cell[172617, 3948, 173, 3, 56, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +Cell[18378, 570, 328, 5, 47, "Input",ExpressionUUID->"23f5a493-0f81-438e-969e-89e922218514"], +Cell[18709, 577, 275, 4, 53, "Output",ExpressionUUID->"b77bdd59-7885-426a-82af-3d435d258665"] }, Open ]], Cell[CellGroupData[{ -Cell[172827, 3956, 213, 6, 56, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], -Cell[173043, 3964, 171, 3, 56, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] -}, Open ]], -Cell[173229, 3970, 245, 5, 56, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], -Cell[CellGroupData[{ -Cell[173499, 3979, 558, 19, 56, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[174060, 4000, 172, 3, 56, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +Cell[19021, 586, 298, 5, 47, "Input",ExpressionUUID->"b63f0be8-e35e-4f59-b736-bce49f5c0ae3"], +Cell[19322, 593, 273, 4, 53, "Output",ExpressionUUID->"89b8acae-240c-4abe-ba80-8696b076a64b"] }, Open ]], Cell[CellGroupData[{ -Cell[174269, 4008, 170, 5, 56, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[174442, 4015, 173, 3, 56, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +Cell[19632, 602, 219, 4, 47, "Input",ExpressionUUID->"5ab34d1d-36a0-430f-8bb2-2b3487a39fcf"], +Cell[19854, 608, 273, 4, 53, "Output",ExpressionUUID->"6a223440-544c-4404-8f7a-679fc1b81dab"] }, Open ]], Cell[CellGroupData[{ -Cell[174652, 4023, 181, 5, 56, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[174836, 4030, 173, 3, 56, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +Cell[20164, 617, 350, 10, 68, "Input",ExpressionUUID->"45126320-2e02-4a73-b101-178d00fee0fa"], +Cell[20517, 629, 297, 4, 53, "Output",ExpressionUUID->"57d1e3e4-5ba8-4815-a501-1e5e60ab3868"] }, Open ]], Cell[CellGroupData[{ -Cell[175046, 4038, 6055, 185, 56, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[181104, 4225, 172, 3, 56, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +Cell[20851, 638, 350, 10, 68, "Input",ExpressionUUID->"07de4134-43e6-4c83-8c96-c65ba9b7fd3e"], +Cell[21204, 650, 304, 5, 53, "Output",ExpressionUUID->"bc6c462f-88b1-45e7-8daa-f9608c7cb8a6"] }, Open ]], Cell[CellGroupData[{ -Cell[181313, 4233, 368, 9, 56, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[181684, 4244, 170, 3, 56, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +Cell[21545, 660, 994, 26, 351, "Input",ExpressionUUID->"8d6d55b3-3670-403c-b697-764556447cc1"], +Cell[22542, 688, 291, 4, 53, "Output",ExpressionUUID->"62487f90-eeed-4a46-9441-1c88632d67c0"] }, Open ]], Cell[CellGroupData[{ -Cell[181891, 4252, 6122, 187, 56, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[188016, 4441, 175, 3, 56, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +Cell[22870, 697, 199, 3, 47, "Input",ExpressionUUID->"f19f6695-a07a-45ef-900f-e7b82828e855"], +Cell[23072, 702, 272, 4, 53, "Output",ExpressionUUID->"8689b7a1-736a-40c5-8bfb-c09da5673fd7"] }, Open ]], Cell[CellGroupData[{ -Cell[188228, 4449, 368, 9, 56, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[188599, 4460, 172, 3, 56, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +Cell[23381, 711, 326, 5, 47, "Input",ExpressionUUID->"1bf516a3-2139-4d2d-9028-88263663d3c7"], +Cell[23710, 718, 252, 4, 53, "Output",ExpressionUUID->"4d49801e-768e-48ed-a052-65792579e107"] +}, Open ]], +Cell[23977, 725, 173, 2, 47, "Input",ExpressionUUID->"343acee6-8e3f-4465-bd8e-f56c48c7ecec"], +Cell[CellGroupData[{ +Cell[24175, 731, 327, 5, 47, "Input",ExpressionUUID->"081a7602-9229-4cd7-a575-94f5e9f4b486"], +Cell[24505, 738, 255, 4, 53, "Output",ExpressionUUID->"2612478f-11cf-4663-b259-647123531a49"] +}, Open ]], +Cell[24775, 745, 173, 2, 47, "Input",ExpressionUUID->"d58dd9d8-133e-4352-ae0c-f1de0439ef48"], +Cell[CellGroupData[{ +Cell[24973, 751, 329, 5, 47, "Input",ExpressionUUID->"5620897e-38c5-4d83-a798-5c19f6da0ac9"], +Cell[25305, 758, 252, 4, 53, "Output",ExpressionUUID->"f0cf599a-d7c3-447b-9314-c04f22334493"] +}, Open ]], +Cell[25572, 765, 173, 2, 47, "Input",ExpressionUUID->"8f81fcc5-e6e4-4dbd-abd2-ef1ce5affa08"], +Cell[CellGroupData[{ +Cell[25770, 771, 354, 5, 47, "Input",ExpressionUUID->"80c78cff-e4c1-470f-a2c6-edd80549da35"], +Cell[26127, 778, 254, 4, 53, "Output",ExpressionUUID->"39325cc3-3a90-4e99-a699-bd801326c9db"] +}, Open ]], +Cell[26396, 785, 171, 2, 47, "Input",ExpressionUUID->"094434b5-8bdf-49ba-971d-e012404fbb8d"], +Cell[CellGroupData[{ +Cell[26592, 791, 299, 5, 47, "Input",ExpressionUUID->"a7a6a600-9d32-4e87-94fa-56d58d3ad4d6"], +Cell[26894, 798, 253, 4, 53, "Output",ExpressionUUID->"34752093-37d0-469b-a617-a7dcae5c2697"] +}, Open ]], +Cell[27162, 805, 171, 2, 47, "Input",ExpressionUUID->"bb1c58bc-93f3-425a-b1f1-1ed7515cd10f"], +Cell[CellGroupData[{ +Cell[27358, 811, 303, 5, 47, "Input",ExpressionUUID->"a63d606c-675a-4f8d-ac87-050553c3b3c8"], +Cell[27664, 818, 253, 4, 53, "Output",ExpressionUUID->"aa77f987-0e3b-4cf3-9e10-d01325849ddd"] +}, Open ]], +Cell[27932, 825, 173, 2, 47, "Input",ExpressionUUID->"9bd428bb-e30a-4a00-960d-a31d62f46510"], +Cell[CellGroupData[{ +Cell[28130, 831, 306, 5, 47, "Input",ExpressionUUID->"11d67302-0208-4493-bc7c-d6fb2e2655d7"], +Cell[28439, 838, 252, 4, 53, "Output",ExpressionUUID->"858120e2-0ed7-4c35-8ac3-cee8e78c61d0"] +}, Open ]], +Cell[28706, 845, 172, 2, 47, "Input",ExpressionUUID->"8f80f979-0706-4bb9-9232-98d9e906f2fb"], +Cell[CellGroupData[{ +Cell[28903, 851, 275, 4, 47, "Input",ExpressionUUID->"0f4ade84-10d4-40a9-abaf-34c44a88f145"], +Cell[29181, 857, 250, 4, 53, "Output",ExpressionUUID->"705fbc80-1d21-43fd-8804-0cf81a4f53fa"] +}, Open ]], +Cell[29446, 864, 175, 2, 47, "Input",ExpressionUUID->"0ab65f9c-e8ee-47de-859e-c53618b93a33"], +Cell[CellGroupData[{ +Cell[29646, 870, 19809, 485, 4727, "Input",ExpressionUUID->"0fe4ec56-07ec-4c0d-9884-a9780cdd6770"], +Cell[49458, 1357, 289, 4, 53, "Output",ExpressionUUID->"f72c366a-1652-4dcc-b854-d1981d9c5e8e"] }, Open ]], Cell[CellGroupData[{ -Cell[188808, 4468, 2663, 88, 56, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[191474, 4558, 173, 3, 56, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +Cell[49784, 1366, 19748, 489, 4727, "Input",ExpressionUUID->"750a3b3a-997b-4223-98a2-6d8afd5c94cd"], +Cell[69535, 1857, 290, 4, 53, "Output",ExpressionUUID->"d8108b48-e9b0-4d19-85c6-5060754897f8"] }, Open ]], Cell[CellGroupData[{ -Cell[191684, 4566, 2603, 85, 56, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[194290, 4653, 171, 3, 56, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +Cell[69862, 1866, 19748, 483, 4726, "Input",ExpressionUUID->"accd8c37-cae6-41a5-bb27-f544a81f806d"], +Cell[89613, 2351, 304, 5, 53, "Output",ExpressionUUID->"1b17f8f1-2653-4a78-b12c-edc1968a49c5"] }, Open ]], Cell[CellGroupData[{ -Cell[194498, 4661, 3712, 118, 56, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[198213, 4781, 174, 3, 56, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +Cell[89954, 2361, 22534, 553, 5401, "Input",ExpressionUUID->"5ac56d7e-dff0-46ab-9c03-43b0bdb382bf"], +Cell[112491, 2916, 307, 5, 53, "Output",ExpressionUUID->"ab752417-e5b7-463d-909a-b9f9a03775b5"] }, Open ]], Cell[CellGroupData[{ -Cell[198424, 4789, 2052, 59, 56, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], -Cell[200479, 4850, 578, 12, 56, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], -Cell[201060, 4864, 583, 12, 56, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], -Cell[201646, 4878, 586, 12, 56, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], -Cell[202235, 4892, 456, 10, 56, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], -Cell[202694, 4904, 170, 3, 56, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +Cell[112835, 2926, 22535, 553, 5401, "Input",ExpressionUUID->"d7dbb1a2-15a0-40da-8140-b88a8b689577"], +Cell[135373, 3481, 312, 5, 53, "Output",ExpressionUUID->"00ac287b-74ce-466b-bb0c-1730eca6208c"] }, Open ]], Cell[CellGroupData[{ -Cell[202901, 4912, 2054, 59, 56, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], -Cell[204958, 4973, 576, 12, 56, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], -Cell[205537, 4987, 581, 12, 56, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], -Cell[206121, 5001, 586, 12, 56, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], -Cell[206710, 5015, 458, 10, 56, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], -Cell[207171, 5027, 172, 3, 56, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +Cell[135722, 3491, 25491, 626, 6076, "Input",ExpressionUUID->"9186500d-969f-48fd-9744-3f8ef80e0707"], +Cell[161216, 4119, 302, 5, 53, "Output",ExpressionUUID->"6a6eb2fe-4e6a-4447-bd0e-2eb24d7fa84d"] }, Open ]], Cell[CellGroupData[{ -Cell[207380, 5035, 2028, 55, 56, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], -Cell[209411, 5092, 20011, 378, 56, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +Cell[161555, 4129, 130, 2, 47, "Input",ExpressionUUID->"d75a144f-3b8e-426f-8221-8b442bb77687"], +Cell[161688, 4133, 271, 4, 53, "Output",ExpressionUUID->"46218e79-ac9f-46bc-a959-3f52c0d6dfd5"] }, Open ]], Cell[CellGroupData[{ -Cell[229459, 5475, 2115, 60, 56, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], -Cell[231577, 5537, 501, 11, 56, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], -Cell[232081, 5550, 503, 11, 56, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], -Cell[232587, 5563, 505, 11, 56, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], -Cell[233095, 5576, 456, 10, 56, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], -Cell[233554, 5588, 32548, 580, 56, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] -}, Open ]], -Cell[266117, 6171, 209, 5, 56, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], -Cell[CellGroupData[{ -Cell[266351, 6180, 1616, 48, 56, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], -Cell[267970, 6230, 596, 12, 56, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], -Cell[268569, 6244, 599, 12, 56, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], -Cell[269171, 6258, 605, 12, 56, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], -Cell[269779, 6272, 456, 10, 56, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], -Cell[270238, 6284, 170, 3, 56, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +Cell[161996, 4142, 130, 2, 47, "Input",ExpressionUUID->"d0ada450-6f2a-4b02-a2a4-a82f47c31fe2"], +Cell[162129, 4146, 272, 4, 53, "Output",ExpressionUUID->"d0e18549-8335-4675-9334-ae8e5c3d0857"] }, Open ]], Cell[CellGroupData[{ -Cell[270445, 6292, 2247, 64, 56, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], -Cell[272695, 6358, 580, 12, 56, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], -Cell[273278, 6372, 583, 12, 56, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], -Cell[273864, 6386, 584, 12, 56, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], -Cell[274451, 6400, 458, 10, 56, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], -Cell[274912, 6412, 170, 3, 56, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +Cell[162438, 4155, 1144, 39, 446, "Input",ExpressionUUID->"4d09932b-2ea3-40f8-bc1b-64de13ac12a4"], +Cell[163585, 4196, 285, 4, 53, "Output",ExpressionUUID->"661eb652-11f7-495d-bde3-4cd9cbe0791d"] }, Open ]], Cell[CellGroupData[{ -Cell[275119, 6420, 2219, 64, 56, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], -Cell[277341, 6486, 580, 12, 56, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], -Cell[277924, 6500, 583, 12, 56, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], -Cell[278510, 6514, 586, 12, 56, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], -Cell[279099, 6528, 458, 10, 56, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], -Cell[279560, 6540, 171, 3, 56, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +Cell[163907, 4205, 1041, 35, 443, "Input",ExpressionUUID->"a33136c3-0760-46e1-99db-887f5795815e"], +Cell[164951, 4242, 308, 5, 53, "Output",ExpressionUUID->"f5b6fae3-a84f-4a0f-93f2-a064dc9e5cad"] }, Open ]], Cell[CellGroupData[{ -Cell[279768, 6548, 2221, 64, 56, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], -Cell[281992, 6614, 580, 12, 56, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], -Cell[282575, 6628, 583, 12, 56, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], -Cell[283161, 6642, 584, 12, 56, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], -Cell[283748, 6656, 456, 10, 56, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], -Cell[284207, 6668, 170, 3, 56, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +Cell[165296, 4252, 1144, 39, 446, "Input",ExpressionUUID->"f3c4a9a0-eac9-49b8-bac5-9a02ca104c94"], +Cell[166443, 4293, 288, 4, 53, "Output",ExpressionUUID->"ce18778d-0d81-4bb0-9370-2acb65be70e2"] }, Open ]], Cell[CellGroupData[{ -Cell[284414, 6676, 213, 6, 56, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], -Cell[284630, 6684, 174, 3, 56, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] -}, Open ]], -Cell[284819, 6690, 247, 5, 56, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], -Cell[CellGroupData[{ -Cell[285091, 6699, 558, 19, 56, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[285652, 6720, 173, 3, 56, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +Cell[166768, 4302, 108, 1, 47, "Input",ExpressionUUID->"f5b81e76-a3d7-411b-87d0-b3f7fb9c036c"], +Cell[166879, 4305, 286, 4, 53, "Output",ExpressionUUID->"86cb7835-8352-4316-9a43-7965860ce3c8"] }, Open ]], Cell[CellGroupData[{ -Cell[285862, 6728, 170, 5, 56, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[286035, 6735, 173, 3, 56, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +Cell[167202, 4314, 108, 1, 47, "Input",ExpressionUUID->"25c342b6-83e7-4e8d-903a-782228cc4357"], +Cell[167313, 4317, 308, 5, 53, "Output",ExpressionUUID->"9d4a2c9e-912e-45ca-9e78-a783b4d744cc"] }, Open ]], Cell[CellGroupData[{ -Cell[286245, 6743, 181, 5, 56, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[286429, 6750, 171, 3, 56, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +Cell[167658, 4327, 108, 1, 47, "Input",ExpressionUUID->"4fff5c93-3e96-44e6-a383-732e326cb801"], +Cell[167769, 4330, 305, 5, 53, "Output",ExpressionUUID->"670a65b2-c3a5-4b0e-bb6e-40f6fe87c5bb"] }, Open ]], Cell[CellGroupData[{ -Cell[286637, 6758, 6055, 185, 56, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[292695, 6945, 173, 3, 56, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +Cell[168111, 4340, 108, 1, 47, "Input",ExpressionUUID->"7a704ace-32d6-470a-b159-d208a661399c"], +Cell[168222, 4343, 290, 4, 53, "Output",ExpressionUUID->"63ae4c8e-681a-4a73-b420-7c5595257cc4"] }, Open ]], Cell[CellGroupData[{ -Cell[292905, 6953, 368, 9, 56, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[293276, 6964, 172, 3, 56, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +Cell[168549, 4352, 107, 1, 47, "Input",ExpressionUUID->"5e4bc2d5-ed0a-4c4c-9c08-0e7517c4ba1b"], +Cell[168659, 4355, 292, 4, 53, "Output",ExpressionUUID->"3eab826b-f9a8-46b0-80cb-1322e34568d7"] }, Open ]], Cell[CellGroupData[{ -Cell[293485, 6972, 6122, 187, 56, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[299610, 7161, 175, 3, 56, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +Cell[168988, 4364, 107, 1, 47, "Input",ExpressionUUID->"64c7b3ce-74e8-474d-91c7-ee904b39fffc"], +Cell[169098, 4367, 288, 4, 53, "Output",ExpressionUUID->"18216dbc-3d54-44b0-9795-6de66fc850ce"] }, Open ]], Cell[CellGroupData[{ -Cell[299822, 7169, 368, 9, 56, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[300193, 7180, 171, 3, 56, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +Cell[169423, 4376, 497, 16, 155, "Input",ExpressionUUID->"e0e44bfe-5df9-440d-a35a-a71505e5a2bf"], +Cell[169923, 4394, 308, 5, 53, "Output",ExpressionUUID->"738bc0ca-3840-4b3c-a767-0863a848fe17"] }, Open ]], Cell[CellGroupData[{ -Cell[300401, 7188, 2663, 88, 56, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[303067, 7278, 173, 3, 56, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +Cell[170268, 4404, 497, 16, 155, "Input",ExpressionUUID->"c5768973-1a8b-40ea-b47c-48ab268b62c5"], +Cell[170768, 4422, 301, 5, 53, "Output",ExpressionUUID->"22751f4c-7b69-4f5b-ab03-33964f6e12e2"] }, Open ]], Cell[CellGroupData[{ -Cell[303277, 7286, 2603, 85, 56, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[305883, 7373, 171, 3, 56, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +Cell[171106, 4432, 1788, 60, 777, "Input",ExpressionUUID->"0c2eccbc-0130-41fa-9009-3595b42d5b97"], +Cell[172897, 4494, 289, 4, 53, "Output",ExpressionUUID->"37693d5c-4ad1-4ec2-b208-596fed5664bb"] }, Open ]], Cell[CellGroupData[{ -Cell[306091, 7381, 3712, 118, 56, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[309806, 7501, 174, 3, 56, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +Cell[173223, 4503, 1101, 36, 563, "Input",ExpressionUUID->"79940cdf-f1d9-4abf-a911-a81951a58577"], +Cell[174327, 4541, 308, 5, 53, "Output",ExpressionUUID->"a8b07cd8-7718-440d-b8a4-f0352ac0e688"] }, Open ]], Cell[CellGroupData[{ -Cell[310017, 7509, 2054, 59, 56, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], -Cell[312074, 7570, 572, 12, 56, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], -Cell[312649, 7584, 573, 12, 56, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], -Cell[313225, 7598, 579, 12, 56, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], -Cell[313807, 7612, 456, 10, 56, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], -Cell[314266, 7624, 169, 3, 56, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +Cell[174672, 4551, 1818, 61, 777, "Input",ExpressionUUID->"57d5a495-c009-4620-8dcd-049d6a4e5013"], +Cell[176493, 4614, 282, 4, 53, "Output",ExpressionUUID->"d49411a0-d875-425f-8a2f-c776c8a76824"] }, Open ]], Cell[CellGroupData[{ -Cell[314472, 7632, 2049, 58, 56, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], -Cell[316524, 7692, 570, 12, 56, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], -Cell[317097, 7706, 575, 12, 56, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], -Cell[317675, 7720, 579, 12, 56, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], -Cell[318257, 7734, 458, 10, 56, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], -Cell[318718, 7746, 171, 3, 56, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +Cell[176812, 4623, 1631, 53, 341, "Input",ExpressionUUID->"838d90f3-e46b-41e8-9387-90e66b4daaac"], +Cell[178446, 4678, 289, 4, 53, "Output",ExpressionUUID->"f37685cc-ff51-4eaf-9290-ddc9baeb0fe5"] }, Open ]], Cell[CellGroupData[{ -Cell[318926, 7754, 2030, 55, 56, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], -Cell[320959, 7811, 20011, 378, 56, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +Cell[178772, 4687, 1631, 53, 341, "Input",ExpressionUUID->"b58daacb-44d4-4717-8a79-a37368bbc038"], +Cell[180406, 4742, 290, 4, 53, "Output",ExpressionUUID->"97412eba-ea6f-4f3e-859f-281e726da988"] }, Open ]], Cell[CellGroupData[{ -Cell[341007, 8194, 2120, 60, 56, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], -Cell[343130, 8256, 501, 11, 56, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], -Cell[343634, 8269, 505, 11, 56, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], -Cell[344142, 8282, 506, 11, 56, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], -Cell[344651, 8295, 456, 10, 56, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], -Cell[345110, 8307, 31008, 556, 56, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +Cell[180733, 4751, 230, 4, 47, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[180966, 4757, 156, 2, 53, "Output",ExpressionUUID->"ce4df800-b078-4290-bee5-072efa0272b6"] }, Open ]], -Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[181137, 4762, 173, 2, 47, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], Cell[CellGroupData[{ -Cell[376367, 8875, 1616, 48, 56, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], -Cell[377986, 8925, 593, 12, 56, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], -Cell[378582, 8939, 595, 12, 56, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], -Cell[379180, 8953, 602, 12, 56, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], -Cell[379785, 8967, 456, 10, 56, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], -Cell[380244, 8979, 172, 3, 56, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +Cell[181335, 4768, 228, 4, 47, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[181566, 4774, 158, 2, 53, "Output",ExpressionUUID->"f0e93a99-8bff-4ce9-bb75-be6e5648b214"] +}, Open ]], +Cell[181739, 4779, 173, 2, 47, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[181937, 4785, 1297, 42, 221, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[183237, 4829, 195, 2, 53, "Output",ExpressionUUID->"8330addc-0032-4d58-a670-b9d9463f269e"] }, Open ]], Cell[CellGroupData[{ -Cell[380453, 8987, 2249, 64, 56, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], -Cell[382705, 9053, 572, 12, 56, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], -Cell[383280, 9067, 575, 12, 56, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], -Cell[383858, 9081, 579, 12, 56, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], -Cell[384440, 9095, 458, 10, 56, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], -Cell[384901, 9107, 173, 3, 56, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +Cell[183469, 4836, 929, 30, 221, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[184401, 4868, 194, 2, 53, "Output",ExpressionUUID->"8d67947a-76f9-4ce7-acf5-5ee1824a0491"] }, Open ]], Cell[CellGroupData[{ -Cell[385111, 9115, 2221, 64, 56, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], -Cell[387335, 9181, 572, 12, 56, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], -Cell[387910, 9195, 575, 12, 56, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], -Cell[388488, 9209, 577, 12, 56, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], -Cell[389068, 9223, 456, 10, 56, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], -Cell[389527, 9235, 172, 3, 56, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +Cell[184632, 4875, 906, 29, 221, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[185541, 4906, 194, 2, 53, "Output",ExpressionUUID->"f1db2812-9928-47ff-afa8-f385ad0c4ed5"] }, Open ]], Cell[CellGroupData[{ -Cell[389736, 9243, 2223, 64, 56, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], -Cell[391962, 9309, 572, 12, 56, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], -Cell[392537, 9323, 573, 12, 56, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], -Cell[393113, 9337, 579, 12, 56, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], -Cell[393695, 9351, 456, 10, 56, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], -Cell[394154, 9363, 173, 3, 56, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +Cell[185772, 4913, 554, 18, 85, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[186329, 4933, 191, 2, 53, "Output",ExpressionUUID->"e2100f16-e390-48aa-b570-c6a70273cec8"] }, Open ]], Cell[CellGroupData[{ -Cell[394364, 9371, 215, 6, 56, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], -Cell[394582, 9379, 174, 3, 56, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] +Cell[186557, 4940, 619, 20, 85, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[187179, 4962, 191, 2, 53, "Output",ExpressionUUID->"9f4f98d6-5fe9-4a8c-806f-e8c5ff70ef7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187407, 4969, 166, 4, 90, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[187576, 4975, 191, 2, 53, "Output",ExpressionUUID->"a1ee1c40-79aa-42cf-b7b7-8285fa23b6ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187804, 4982, 166, 4, 88, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[187973, 4988, 189, 2, 53, "Output",ExpressionUUID->"800c8a1b-fff8-4cbb-8974-c33a790e5bab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188199, 4995, 177, 4, 70, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[188379, 5001, 187, 2, 53, "Output",ExpressionUUID->"2e748499-7ad1-4230-88b2-f7102af952ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188603, 5008, 177, 4, 70, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[188783, 5014, 190, 2, 53, "Output",ExpressionUUID->"1d566a1d-e3bd-42b0-9e0b-3da9d5baf4a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189010, 5021, 6051, 184, 1466, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[195064, 5207, 193, 2, 53, "Output",ExpressionUUID->"f462ec7e-b133-4608-b44e-800cab2fe68f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195294, 5214, 364, 8, 67, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[195661, 5224, 193, 2, 53, "Output",ExpressionUUID->"8658b733-4c9b-471c-9408-ab983aa120ee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195891, 5231, 6118, 186, 1466, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[202012, 5419, 190, 2, 53, "Output",ExpressionUUID->"44f0f84b-9ccb-420a-a3cc-9a0dbcecef78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202239, 5426, 364, 8, 67, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[202606, 5436, 189, 2, 53, "Output",ExpressionUUID->"5a6e604b-7467-48f8-a93c-361d1f01749d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202832, 5443, 2659, 87, 669, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[205494, 5532, 190, 2, 53, "Output",ExpressionUUID->"0a798654-c4f0-42e2-b310-b19fce396732"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205721, 5539, 2599, 84, 601, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[208323, 5625, 191, 2, 53, "Output",ExpressionUUID->"ae36430d-785c-4adc-b5d2-92002f42ea3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208551, 5632, 3708, 117, 841, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[212262, 5751, 193, 2, 53, "Output",ExpressionUUID->"f20c4546-f533-4d89-8441-f3ebb6ebb6a0"] +}, Open ]], +Cell[212470, 5756, 160, 3, 47, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[212655, 5763, 2099, 59, 436, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[214757, 5824, 637, 14, 151, "Message",ExpressionUUID->"10373825-d124-457b-90fd-8fbf6935f19f"], +Cell[215397, 5840, 635, 14, 151, "Message",ExpressionUUID->"638ec23a-9efb-49d8-aee1-973c64cda5e1"], +Cell[216035, 5856, 634, 14, 151, "Message",ExpressionUUID->"1e3561a1-1ea5-4dfc-9b68-86d642e57998"], +Cell[216672, 5872, 493, 11, 68, "Message",ExpressionUUID->"cb430389-2a06-461c-8342-1cc3c5e30f8f"], +Cell[217168, 5885, 193, 2, 53, "Output",ExpressionUUID->"5b4b5545-fc2c-4a6b-8456-c9082f837960"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217398, 5892, 2097, 59, 436, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[219498, 5953, 634, 14, 151, "Message",ExpressionUUID->"2e4bc722-b0c6-40fa-b95d-22d6eb699e6b"], +Cell[220135, 5969, 633, 14, 151, "Message",ExpressionUUID->"c3b84d40-5c10-4bb6-ab4b-5ea646f6b376"], +Cell[220771, 5985, 633, 14, 151, "Message",ExpressionUUID->"1341aa78-7dac-4aae-9e51-6923273e6612"], +Cell[221407, 6001, 491, 11, 68, "Message",ExpressionUUID->"ef10122f-82ed-4164-81ed-b611121a75e6"], +Cell[221901, 6014, 191, 2, 53, "Output",ExpressionUUID->"bb06f1e0-73f2-491c-b75c-8da74247089c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[222129, 6021, 2047, 54, 360, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[224179, 6077, 20271, 382, 326, "Output",ExpressionUUID->"3710a03f-be0e-43d1-a1dd-2ccda952c7c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[244487, 6464, 2140, 60, 481, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[246630, 6526, 534, 12, 117, "Message",ExpressionUUID->"b4cc2311-f162-4275-9a52-5333111f364d"], +Cell[247167, 6540, 534, 12, 117, "Message",ExpressionUUID->"91f1e559-76d1-4a4b-a857-79a70ffb523e"], +Cell[247704, 6554, 538, 12, 155, "Message",ExpressionUUID->"15815263-6fd1-4c97-8c0b-15ab676bd833"], +Cell[248245, 6568, 493, 11, 68, "Message",ExpressionUUID->"df55c314-012f-4bae-b70e-a029b32b9a4c"], +Cell[248741, 6581, 35205, 623, 326, "Output",ExpressionUUID->"807985f8-a22f-48cd-b50f-2140bc12a200"] +}, Open ]], +Cell[CellGroupData[{ +Cell[283983, 7209, 2475, 69, 542, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[286461, 7280, 9494, 222, 335, "Output",ExpressionUUID->"e6b472ef-6a56-4614-aff2-a0eb43db2ff5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[295992, 7507, 228, 4, 47, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[296223, 7513, 41565, 755, 326, "Output",ExpressionUUID->"1fd28a89-e382-4ea8-94dd-213a706c5e66"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337825, 8273, 236, 6, 77, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[338064, 8281, 189, 2, 53, "Output",ExpressionUUID->"456827da-4d36-469b-9550-ae03604b08b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[338290, 8288, 1861, 53, 514, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[340154, 8343, 636, 14, 151, "Message",ExpressionUUID->"d0129c66-57df-49ef-a076-6021d67209f0"], +Cell[340793, 8359, 635, 14, 151, "Message",ExpressionUUID->"0f62b391-9c5c-45cd-9d2f-fe60a3a71803"], +Cell[341431, 8375, 635, 14, 151, "Message",ExpressionUUID->"2fe37dfc-b5f5-40c1-94af-7c52ef83a9e7"], +Cell[342069, 8391, 495, 11, 68, "Message",ExpressionUUID->"7570a584-f45d-4e1a-ac34-fb891ea18e38"], +Cell[342567, 8404, 32923, 587, 326, "Output",ExpressionUUID->"ea4d35d6-381a-419c-b439-d59dd3029774"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375527, 8996, 1648, 50, 223, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[377178, 9048, 638, 14, 151, "Message",ExpressionUUID->"149cf2fe-eae2-4801-bcb3-b2eb45e699ca"], +Cell[377819, 9064, 638, 14, 120, "Message",ExpressionUUID->"54f01d22-5503-4f4a-bace-b9276352856c"], +Cell[378460, 9080, 640, 14, 120, "Message",ExpressionUUID->"34d0331f-a4b5-42a8-97c0-03ba1e27ea02"], +Cell[379103, 9096, 495, 11, 68, "Message",ExpressionUUID->"fa3fc096-6b9f-4dc0-b009-fe8caf39f3f3"], +Cell[379601, 9109, 191, 3, 53, "Output",ExpressionUUID->"84f424d8-3388-4850-be3b-8bad84df02fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379829, 9117, 2272, 64, 574, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[382104, 9183, 638, 14, 151, "Message",ExpressionUUID->"75732900-be50-4397-9314-c35dd5c4c08d"], +Cell[382745, 9199, 635, 14, 151, "Message",ExpressionUUID->"bea9f9c1-1ae0-4b90-9eb6-358c2dabd7b0"], +Cell[383383, 9215, 635, 14, 151, "Message",ExpressionUUID->"7845a033-725f-4145-918f-19194cda65aa"], +Cell[384021, 9231, 493, 11, 68, "Message",ExpressionUUID->"e13c5120-a3f7-446e-b288-bedcba2f9cee"], +Cell[384517, 9244, 196, 3, 53, "Output",ExpressionUUID->"af2d64e6-b498-465b-88fa-0769dd4fb197"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384750, 9252, 2235, 63, 574, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[386988, 9317, 636, 14, 151, "Message",ExpressionUUID->"3b671672-9c71-48df-96ed-1993eaa5e841"], +Cell[387627, 9333, 635, 14, 151, "Message",ExpressionUUID->"61b24462-84d3-4337-b3cb-12f49e64e086"], +Cell[388265, 9349, 635, 14, 151, "Message",ExpressionUUID->"2603617b-c09f-495b-8dcc-96f372b8d7b4"], +Cell[388903, 9365, 493, 11, 68, "Message",ExpressionUUID->"de0c0512-25a0-4be4-9c6f-cecd358be684"], +Cell[389399, 9378, 194, 3, 53, "Output",ExpressionUUID->"598bc3e5-6c95-4f53-a016-719e7cd009a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389630, 9386, 2233, 63, 574, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[391866, 9451, 638, 14, 151, "Message",ExpressionUUID->"9a3ab11b-07d3-445f-b979-ea717b0ebbd7"], +Cell[392507, 9467, 637, 14, 151, "Message",ExpressionUUID->"3c906438-8a12-409d-90eb-3ec1461b9dd1"], +Cell[393147, 9483, 639, 14, 151, "Message",ExpressionUUID->"df88fb94-68ae-4c8a-af3d-32473d4f425f"], +Cell[393789, 9499, 495, 11, 68, "Message",ExpressionUUID->"e5e26c7c-9bd8-48ab-801d-8ae9b7e53098"], +Cell[394287, 9512, 195, 3, 53, "Output",ExpressionUUID->"d3ac165f-f98d-489b-9b40-7010af0c1519"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394519, 9520, 236, 6, 76, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[394758, 9528, 195, 3, 53, "Output",ExpressionUUID->"3e4de11d-7baa-480d-938d-33fccfb1ef05"] +}, Open ]], +Cell[394968, 9534, 271, 6, 47, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[395264, 9544, 558, 19, 85, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[395825, 9565, 194, 3, 53, "Output",ExpressionUUID->"f8cea9ed-6fe3-4b4d-915b-a91c4120aeba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396056, 9573, 170, 5, 90, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[396229, 9580, 195, 3, 53, "Output",ExpressionUUID->"ae9a539c-2c59-4afc-b4c2-10f7b7d2085e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396461, 9588, 181, 5, 70, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[396645, 9595, 196, 3, 53, "Output",ExpressionUUID->"2ba59552-19c9-4d71-8d23-36001991e5cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396878, 9603, 6055, 185, 1466, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[402936, 9790, 195, 3, 53, "Output",ExpressionUUID->"4436ba06-f2da-426b-b674-ab23ffde3599"] +}, Open ]], +Cell[CellGroupData[{ +Cell[403168, 9798, 368, 9, 67, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[403539, 9809, 193, 3, 53, "Output",ExpressionUUID->"4bcb1c3a-418d-441c-9294-5a249a10edce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[403769, 9817, 6122, 187, 1466, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[409894, 10006, 197, 3, 53, "Output",ExpressionUUID->"0ed310bb-5230-45d6-b729-49c6a9f821ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[410128, 10014, 368, 9, 67, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[410499, 10025, 195, 3, 53, "Output",ExpressionUUID->"c76ce415-9dcd-4b6b-b238-b831a3535f3c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[410731, 10033, 2663, 88, 669, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[413397, 10123, 195, 3, 53, "Output",ExpressionUUID->"dd605966-8f18-4378-a98d-901b992a3325"] +}, Open ]], +Cell[CellGroupData[{ +Cell[413629, 10131, 2603, 85, 601, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[416235, 10218, 195, 3, 53, "Output",ExpressionUUID->"aad12a79-3359-44f0-b587-cd1f4f57228e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[416467, 10226, 3712, 118, 841, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[420182, 10346, 194, 3, 53, "Output",ExpressionUUID->"01746ed0-13d5-45cd-8f0c-177eecac67db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[420413, 10354, 2101, 60, 436, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[422517, 10416, 631, 13, 120, "Message",ExpressionUUID->"1c93c37c-17b0-469c-bbc2-b1502fbcf5b9"], +Cell[423151, 10431, 632, 13, 120, "Message",ExpressionUUID->"6a81252a-1044-4f80-9f24-da9b07f8cce2"], +Cell[423786, 10446, 632, 13, 120, "Message",ExpressionUUID->"f5555881-ecbb-4adf-aa61-b7edb46fa63f"], +Cell[424421, 10461, 493, 11, 68, "Message",ExpressionUUID->"4a3a18ec-204f-45b5-9cee-ad5d7d4f13e8"], +Cell[424917, 10474, 193, 3, 53, "Output",ExpressionUUID->"77602545-9d22-4f23-b6d5-0130738661e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[425147, 10482, 2103, 60, 436, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[427253, 10544, 629, 13, 120, "Message",ExpressionUUID->"d9f6774b-3c83-463d-8b73-506f953adc45"], +Cell[427885, 10559, 632, 13, 120, "Message",ExpressionUUID->"151557d5-70f6-4b64-81ea-903ddeb4b099"], +Cell[428520, 10574, 630, 13, 120, "Message",ExpressionUUID->"e2b3e5ea-6efb-4f86-b495-c07f9ce7aa94"], +Cell[429153, 10589, 493, 11, 68, "Message",ExpressionUUID->"f0b1d619-072d-4041-b5bd-2e7d9ee4b32c"], +Cell[429649, 10602, 195, 3, 53, "Output",ExpressionUUID->"e2dfdfbf-ba48-4fe5-a293-1bae857001db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[429881, 10610, 2051, 55, 360, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[431935, 10667, 20265, 383, 332, "Output",ExpressionUUID->"94fd7d53-52b6-4a93-b021-c96438a34f6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452237, 11055, 2165, 61, 481, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[454405, 11118, 540, 12, 155, "Message",ExpressionUUID->"0f24b1c4-11d2-4a44-b2b3-a54fc70c1625"], +Cell[454948, 11132, 542, 12, 155, "Message",ExpressionUUID->"d1f5c629-adc0-446a-8db7-1701e5427b8c"], +Cell[455493, 11146, 547, 12, 125, "Message",ExpressionUUID->"3d61f780-bab2-4c3c-b366-46fcf29faea1"], +Cell[456043, 11160, 495, 11, 68, "Message",ExpressionUUID->"233134ea-f3a1-4add-b4da-672be7266963"], +Cell[456541, 11173, 36297, 642, 326, "Output",ExpressionUUID->"94b24fba-8134-40ee-9066-2665fbb20ed1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492875, 11820, 232, 5, 47, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[493110, 11827, 42657, 774, 326, "Output",ExpressionUUID->"e1747a3c-c10f-4bd5-85fa-4f32c2160bd0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[535804, 12606, 1648, 50, 223, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[537455, 12658, 637, 14, 151, "Message",ExpressionUUID->"8a6b17b2-e269-4c03-959a-d4e65f846bf1"], +Cell[538095, 12674, 636, 14, 151, "Message",ExpressionUUID->"fddca872-7342-4c0d-ace1-c32064bd50ff"], +Cell[538734, 12690, 637, 14, 151, "Message",ExpressionUUID->"7302e3db-f664-4dbb-9ff3-596f0321d6c9"], +Cell[539374, 12706, 493, 11, 68, "Message",ExpressionUUID->"dc8d6c34-6d6a-432e-94c9-e8f4ffe36e2a"], +Cell[539870, 12719, 192, 3, 53, "Output",ExpressionUUID->"ee545a25-dba9-4cec-ac19-760052188531"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540099, 12727, 2270, 64, 574, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[542372, 12793, 635, 13, 120, "Message",ExpressionUUID->"e74f8212-2ea3-40c6-840f-a06771f7d2a2"], +Cell[543010, 12808, 634, 13, 120, "Message",ExpressionUUID->"7e9832e1-cf80-425c-a18e-284930297b0b"], +Cell[543647, 12823, 634, 13, 120, "Message",ExpressionUUID->"48d5be5d-91a1-4888-bcf3-281feae3746c"], +Cell[544284, 12838, 494, 11, 68, "Message",ExpressionUUID->"22849bb8-172f-4f43-a9ff-60c8c07813ef"], +Cell[544781, 12851, 194, 3, 53, "Output",ExpressionUUID->"5bda6911-2a92-4898-91a2-116c1593d864"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545012, 12859, 2231, 63, 574, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[547246, 12924, 635, 13, 120, "Message",ExpressionUUID->"c98e9da2-eaaf-4716-b1fd-27e34a3d32f9"], +Cell[547884, 12939, 636, 13, 120, "Message",ExpressionUUID->"b02a2412-fea1-45f6-a47e-888c8e0010c9"], +Cell[548523, 12954, 633, 13, 120, "Message",ExpressionUUID->"ee657858-00a2-494f-b3af-8b1d295f15fe"], +Cell[549159, 12969, 495, 11, 68, "Message",ExpressionUUID->"1cc5cb7b-6fa8-4167-bc0c-b8e23d2ba5c1"], +Cell[549657, 12982, 193, 3, 53, "Output",ExpressionUUID->"71ebf804-f841-42b6-bc6f-391c99daa9f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549887, 12990, 2233, 63, 574, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[552123, 13055, 633, 13, 120, "Message",ExpressionUUID->"80cf1c35-30a0-45eb-a028-4c408e3e2eee"], +Cell[552759, 13070, 634, 13, 120, "Message",ExpressionUUID->"6a309c50-4dcf-43d0-8fe6-9778e0646660"], +Cell[553396, 13085, 634, 13, 120, "Message",ExpressionUUID->"0aac13fb-8eae-4548-8d95-1407d351b917"], +Cell[554033, 13100, 494, 11, 68, "Message",ExpressionUUID->"c199e395-1112-46cd-9173-a1734123a76b"], +Cell[554530, 13113, 193, 3, 53, "Output",ExpressionUUID->"185b6c1d-d059-41f6-bf84-02eadc550586"] +}, Open ]], +Cell[CellGroupData[{ +Cell[554760, 13121, 236, 6, 76, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[554999, 13129, 197, 3, 53, "Output",ExpressionUUID->"61c33b65-f219-4a5f-9008-4dcc66227d07"] +}, Open ]], +Cell[555211, 13135, 273, 6, 47, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[555509, 13145, 558, 19, 85, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[556070, 13166, 197, 3, 53, "Output",ExpressionUUID->"2a510138-478a-4cfc-b0fa-64c35abc2578"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556304, 13174, 170, 5, 90, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[556477, 13181, 195, 3, 53, "Output",ExpressionUUID->"32211c56-07b8-449e-92e2-d5e2810e3e88"] +}, Open ]], +Cell[CellGroupData[{ +Cell[556709, 13189, 181, 5, 70, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[556893, 13196, 193, 3, 53, "Output",ExpressionUUID->"e2947b84-403e-43b6-b494-2afde14a2b98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[557123, 13204, 6055, 185, 1466, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[563181, 13391, 195, 3, 53, "Output",ExpressionUUID->"1205fbcb-9453-4ebc-a1ae-12f91518578b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[563413, 13399, 368, 9, 67, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[563784, 13410, 193, 3, 53, "Output",ExpressionUUID->"cdbabaee-beaf-44ec-8401-3a08f0272b49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564014, 13418, 6122, 187, 1466, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[570139, 13607, 195, 3, 53, "Output",ExpressionUUID->"88d1dfe5-8b42-4f66-8e78-003d2d2d4b31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[570371, 13615, 368, 9, 67, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[570742, 13626, 193, 3, 53, "Output",ExpressionUUID->"127515a1-0a6c-492e-8465-d5dc8e1dd2f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[570972, 13634, 2663, 88, 669, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[573638, 13724, 196, 3, 53, "Output",ExpressionUUID->"23282a2a-66c0-406d-a26a-e319ca5793d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[573871, 13732, 2603, 85, 601, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[576477, 13819, 193, 3, 53, "Output",ExpressionUUID->"ef1a1253-d8d6-4706-b6ea-9c492a0e836c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[576707, 13827, 3712, 118, 841, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[580422, 13947, 195, 3, 53, "Output",ExpressionUUID->"0f6cb79d-9daa-4b12-9da1-8df693b57ec5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[580654, 13955, 2103, 60, 436, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[582760, 14017, 640, 14, 120, "Message",ExpressionUUID->"70c6e2c4-10dd-4e5f-b3fc-e8dd92bb5cbb"], +Cell[583403, 14033, 638, 14, 151, "Message",ExpressionUUID->"484b9cff-c7ac-4218-9707-889817dba814"], +Cell[584044, 14049, 639, 14, 151, "Message",ExpressionUUID->"cd1532af-e4ec-4bf1-860b-0dcad3728459"], +Cell[584686, 14065, 495, 11, 68, "Message",ExpressionUUID->"f28361d6-563e-40e6-b752-913a9d98f728"], +Cell[585184, 14078, 192, 3, 53, "Output",ExpressionUUID->"8ce6af73-c3e2-4f08-a905-495aeaacb507"] +}, Open ]], +Cell[CellGroupData[{ +Cell[585413, 14086, 2100, 60, 436, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[587516, 14148, 636, 14, 120, "Message",ExpressionUUID->"4957d853-1c9b-44a0-b99e-b63b87c26ab7"], +Cell[588155, 14164, 636, 14, 151, "Message",ExpressionUUID->"deec0a99-3876-4546-b2e3-09211d227309"], +Cell[588794, 14180, 637, 14, 151, "Message",ExpressionUUID->"7f6ba3ed-3abe-4ec5-85f5-662f6cd1fcbb"], +Cell[589434, 14196, 493, 11, 68, "Message",ExpressionUUID->"ec2782ee-dfb3-4dcc-929a-a2d3480250c2"], +Cell[589930, 14209, 195, 3, 53, "Output",ExpressionUUID->"ce110386-346d-42a8-bf44-94e3428d9e8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[590162, 14217, 2053, 55, 360, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[592218, 14274, 20251, 381, 330, "Output",ExpressionUUID->"4f681a7e-a8e3-4a5f-b8f4-9fc54d92dd57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[612506, 14660, 2170, 61, 481, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[614679, 14723, 533, 12, 117, "Message",ExpressionUUID->"5ec6f569-b9d5-4a87-bb56-54c83bf0a939"], +Cell[615215, 14737, 534, 12, 117, "Message",ExpressionUUID->"92d85066-22d9-46c7-8cb4-31ef9110ee9b"], +Cell[615752, 14751, 539, 12, 155, "Message",ExpressionUUID->"284963fd-a7b1-4bd0-bfaf-d65ca18fefb4"], +Cell[616294, 14765, 493, 11, 68, "Message",ExpressionUUID->"c93382fb-7e73-4302-8d0b-a669b2737f7e"], +Cell[616790, 14778, 35190, 624, 326, "Output",ExpressionUUID->"2aea4bb5-2da9-4975-84ad-fd2ec5413213"] +}, Open ]], +Cell[CellGroupData[{ +Cell[652017, 15407, 232, 5, 47, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[652252, 15414, 41553, 756, 326, "Output",ExpressionUUID->"d11caf7f-c873-4743-8043-ba6043bac15d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[693842, 16175, 1648, 50, 223, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[695493, 16227, 636, 14, 151, "Message",ExpressionUUID->"7e47253a-98ce-4ae6-89f9-3d27f5912950"], +Cell[696132, 16243, 636, 14, 120, "Message",ExpressionUUID->"29938d81-df57-4bfc-ba54-96ee570140aa"], +Cell[696771, 16259, 637, 14, 151, "Message",ExpressionUUID->"23ce0115-15cf-4d0c-b960-f5f6b607fea0"], +Cell[697411, 16275, 495, 11, 68, "Message",ExpressionUUID->"ec0091be-cbd9-4a45-9bbd-df000270de17"], +Cell[697909, 16288, 194, 3, 53, "Output",ExpressionUUID->"008990f0-5044-4161-a23b-4b1734f37105"] +}, Open ]], +Cell[CellGroupData[{ +Cell[698140, 16296, 2272, 64, 574, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[700415, 16362, 638, 14, 120, "Message",ExpressionUUID->"97a9ef19-dbdc-46da-9eff-0211c575ae68"], +Cell[701056, 16378, 640, 14, 151, "Message",ExpressionUUID->"c305fb92-0c69-45ae-bbcc-80ee993f2341"], +Cell[701699, 16394, 639, 14, 151, "Message",ExpressionUUID->"d1d93b97-975e-4fa7-80c0-0e41645afce4"], +Cell[702341, 16410, 495, 11, 68, "Message",ExpressionUUID->"a9595755-c436-4e28-9686-b6dc6ee666e6"], +Cell[702839, 16423, 197, 3, 53, "Output",ExpressionUUID->"072086eb-97bd-4bf9-a342-1efdbe55cf09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[703073, 16431, 2233, 63, 574, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[705309, 16496, 640, 14, 120, "Message",ExpressionUUID->"1d39418e-9218-4c2f-96a9-60bc7f379b01"], +Cell[705952, 16512, 638, 14, 151, "Message",ExpressionUUID->"b4bc300f-fdcb-49f9-8d93-37793b275f71"], +Cell[706593, 16528, 641, 14, 151, "Message",ExpressionUUID->"ecad8081-0e69-40f2-9323-022af8d36673"], +Cell[707237, 16544, 497, 11, 68, "Message",ExpressionUUID->"e1d2742b-e691-4304-b7fb-549653a8cead"], +Cell[707737, 16557, 194, 3, 53, "Output",ExpressionUUID->"887887a6-8ab0-48fd-b0df-c300671910ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[707968, 16565, 2235, 63, 574, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[710206, 16630, 638, 14, 120, "Message",ExpressionUUID->"3abe1f19-becb-4406-946c-a5f6c3e4dc4a"], +Cell[710847, 16646, 640, 14, 151, "Message",ExpressionUUID->"0ba6fe13-1f2c-474b-8489-fde34b9c6f65"], +Cell[711490, 16662, 639, 14, 151, "Message",ExpressionUUID->"801fae76-b844-4312-8095-e324e5d679db"], +Cell[712132, 16678, 497, 11, 68, "Message",ExpressionUUID->"6c86100a-2a39-44b3-a1d3-d4730a640bdf"], +Cell[712632, 16691, 195, 3, 53, "Output",ExpressionUUID->"94fbfed1-808d-4199-b310-daeea7634e38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[712864, 16699, 238, 6, 76, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[713105, 16707, 198, 3, 53, "Output",ExpressionUUID->"604a6d97-2ed4-4fd0-ae4a-2b21a5f3cbc6"] +}, Open ]], +Cell[713318, 16713, 143, 3, 47, "Input",ExpressionUUID->"0f378273-e27a-4a0e-9a96-0ad7c402fa4e"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw2.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw2.nb index 1226680..e455cd2 100644 --- a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw2.nb @@ -3,42 +3,4786 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 407368, 9500] -NotebookOptionsPosition[ 383518, 9136] -NotebookOutlinePosition[ 383944, 9153] -CellTagsIndexPosition[ 383901, 9150] +NotebookDataLength[ 634769, 15170] +NotebookOptionsPosition[ 595524, 14542] +NotebookOutlinePosition[ 595987, 14561] +CellTagsIndexPosition[ 595944, 14558] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918501413985214`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ -299085c765cc"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501359768734`*^9, - 3.991850137465685*^9}},ExpressionUUID->"5965eb10-01f8-5545-9b6f-\ -8fab318cd4b7"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "4.2"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993804130253289*^9, 3.9938041708483353`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"8e5d3540-6ffc-411c-96eb-dadf9a7438ec"], + +Cell[BoxData["4.2`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99380408955241*^9, {3.993804138192917*^9, + 3.993804174131279*^9}, 3.993848807080508*^9, 3.993850014886361*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"f3563bd7-af39-4b63-9eb3-1a10e7541960"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.99384955061726*^9, 3.993849552454216*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"abbbc09c-d92f-4931-8344-3a8133c0d4e0"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ -092c5143dcf0"], + 3.9913196497381973`*^9, 3.993804089814312*^9, {3.993804138273077*^9, + 3.993804174168432*^9}, 3.993848807152666*^9, 3.993850014997057*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"326aff7f-2fea-41a5-be13-ddd445eab4e0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "154"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.993803793560568*^9, 3.9938037958215322`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"adaa1e5b-d09b-4e11-855c-9c30ebedd0a7"], + +Cell[BoxData["154"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993804089831574*^9, {3.993804138291234*^9, + 3.993804174184713*^9}, 3.993848807170314*^9, 3.99385001501414*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"2891c05b-7bf2-47a9-80d8-8c378e6748ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"aa27695c-3499-4e54-a940-a0723424ec35"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993804089848836*^9, {3.993804138308714*^9, + 3.9938041741991873`*^9}, 3.993848807187145*^9, 3.993850015029634*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"fc34fd03-4a55-4cf3-ad3b-848224b5213b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"6dde0841-46eb-46e4-9e28-ba13f2552a0e"], + +Cell[BoxData["0.5457500000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.993804089866067*^9, {3.993804138325652*^9, + 3.993804174213254*^9}, 3.993848807191246*^9, 3.993850015045536*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"3554a330-5391-4d9c-a154-30b98f84b573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"3d46be30-e088-47d4-b9c4-fca73f603d34"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9938040898834*^9, {3.993804138342436*^9, + 3.993804174228182*^9}, 3.9938488072167788`*^9, 3.9938500150617867`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"0d7eca86-e8a0-404f-a50c-84315f736b8c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"6eae20c3-99e3-4523-a8cb-2691b914ae6d"], + +Cell[BoxData["6.21772575671982`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.99380408990067*^9, {3.9938041383460903`*^9, + 3.9938041742424393`*^9}, 3.993848807233614*^9, 3.993850015079445*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"199abe01-34a0-41e2-a37f-b58d2a1b6624"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"7ddbaf61-f950-4acd-a96d-a80764bc9971"], + +Cell[BoxData["5.12024575643284`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993804089917811*^9, {3.993804138377798*^9, + 3.993804174256633*^9}, 3.993848807250407*^9, 3.9938500151003723`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"b5582a08-4023-408c-a924-a3f240af55df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "1.0205"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993803860237813*^9, 3.993803866623828*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"5c04ac5a-097d-486a-8642-e32e3fc4f07d"], + +Cell[BoxData["1.0205`"], "Output", + CellChangeTimes->{ + 3.993804089951392*^9, {3.993804138395643*^9, 3.993804174270754*^9}, + 3.993848807267117*^9, 3.99385001512027*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"e0d1d1ba-c5fb-4817-a0ca-96b5a7ec8bdf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4896"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.99380387128193*^9, 3.9938038777202883`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"107444a4-71f5-4e3e-af34-133b3ef874bb"], + +Cell[BoxData["0.4896`"], "Output", + CellChangeTimes->{ + 3.9938040899683237`*^9, {3.993804138413007*^9, 3.993804174284833*^9}, + 3.993848807283663*^9, 3.9938500151378098`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"d39d1c0b-af89-447a-a8e5-8c35e6437216"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"6a35c8ff-e15e-410b-8c5b-22387fa5399d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993804090003015*^9, {3.993804138429922*^9, + 3.993804174299185*^9}, 3.993848807299727*^9, 3.99385001515484*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"c5bde84d-2703-457d-9097-aa902836ab96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"ef652dfc-7a22-4879-a526-499b5cf48896"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993804090019147*^9, {3.993804138446356*^9, + 3.993804174313979*^9}, 3.993848807315777*^9, 3.993850015170484*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"b8f5fee9-c6c1-42fe-8d8c-7e32b9ea8d72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"f6c104af-2858-4534-80cb-b52c7666273b"], + +Cell[BoxData["2.622074662477555`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.993804090035692*^9, {3.9938041384628077`*^9, + 3.9938041743173933`*^9}, 3.9938488073318787`*^9, 3.993850015186336*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"48e33ba1-cf69-46ca-855e-fb9af129fec4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"9372372d-b6eb-4c05-b96e-50136663406f"], + +Cell[BoxData["1.560486547241578`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993804090054099*^9, {3.993804138479048*^9, + 3.9938041743344707`*^9}, 3.99384880734788*^9, 3.993850015201384*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"86ef11bf-adf7-4235-bbb2-3d7918124d23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"bdf46e79-f9f0-48e5-adad-d3b12a2bd932"], + +Cell[BoxData["0.2903701468853932`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.993804090071563*^9, {3.993804138496574*^9, + 3.99380417434737*^9}, 3.993848807363336*^9, 3.993850015215604*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"15d72347-a19d-4cc5-a7ff-b399d509b59a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"ec3af131-da22-40e1-80e7-ad28458c8ace"], + +Cell[BoxData[ + RowBox[{"-", "0.06800962519581188`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9938040900903397`*^9, {3.993804138513081*^9, + 3.993804174360331*^9}, 3.9938488073821497`*^9, 3.993850015233636*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"992554df-c8b9-4758-9a90-cacea04f536f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"9080adde-f95a-4035-81fb-15e78ad0678d"], + +Cell[BoxData[ + RowBox[{"-", "0.40916894338639737`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9938040901078167`*^9, {3.993804138530313*^9, + 3.993804174375409*^9}, 3.9938488073997*^9, 3.993850015252336*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"f67a0899-9ea3-4a7a-83f3-38f269cd12ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"607b6ab3-f4e5-43f4-99a6-9a136d58f8ab"], + +Cell[BoxData["0.6026750051187908`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.9938040901250677`*^9, {3.993804138546773*^9, + 3.993804174388777*^9}, 3.99384880741957*^9, 3.993850015290463*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"6f85cf2a-3631-454f-af43-dc6b727f47c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"3ca6077f-e524-45f5-8fcc-52627deb04a0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993804090141823*^9, {3.9938041385623407`*^9, + 3.993804174402438*^9}, 3.993848807437189*^9, 3.993850015315119*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"da6c54cd-ef7f-49b4-8dfe-efbc1933ab0a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"c4f248a8-5df7-4a03-bbb4-b01f8d03c604"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.993804090158958*^9, {3.993804138578629*^9, + 3.99380417441667*^9}, 3.9938488074549294`*^9, 3.993850015328617*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"89391acf-6cd4-4ee0-81d2-3a91d5782fea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"f750652d-a6d6-46d1-b907-c2e8b1cf40f9"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993804090177505*^9, {3.993804138595006*^9, + 3.993804174430525*^9}, 3.9938488074728813`*^9, 3.993850015343734*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"99f511cc-8a95-431b-9c1f-ceafdceb17fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"720d5765-8263-44e5-9989-fd40b9f718d8"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993804090194539*^9, {3.993804138611753*^9, + 3.993804174445389*^9}, 3.993848807490819*^9, 3.993850015359054*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"e468c1d1-d37a-406c-a570-d975a8693fc3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"2b91139f-4f4e-4dea-a68b-5e49638605cb"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.9938040902126007`*^9, {3.99380413862824*^9, + 3.9938041744613132`*^9}, 3.993848807508507*^9, 3.9938500153719788`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"e4a0e6a0-3e0d-4645-9a1e-1a6537417ec1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", " ", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.993803911062066*^9, 3.993803911474206*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"4bc5dd5d-22ca-4118-a8d0-e9664ed01a31"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993804090230994*^9, {3.9938041386443443`*^9, + 3.993804174475325*^9}, 3.993848807527059*^9, 3.9938500153861322`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"83bd7b71-fb1f-4bc0-b01c-76a22698f557"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993849563960414*^9, 3.99384956406236*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"270d3ddc-eaae-4c2a-9364-dd051a2d494c"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993804090250367*^9, {3.993804138660377*^9, + 3.993804174489229*^9}, 3.9938488075448914`*^9, 3.993850015401675*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"bf4e7aec-93a1-4d41-8dee-b7602c0247cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"2654dd54-41ad-4515-baeb-2df460340c19"], + +Cell[BoxData["86"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993804090267005*^9, {3.9938041386777277`*^9, + 3.993804174504216*^9}, 3.9938488075630293`*^9, 3.993850015416362*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"9f2a2e41-77e4-40c9-95fa-6b28f952c064"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"135d7813-d47a-423e-a6ad-8d1cbf7124ea"], + +Cell[BoxData["0.11093023255813952`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9938040902837143`*^9, {3.9938041386945467`*^9, + 3.9938041745182133`*^9}, 3.9938488075813007`*^9, 3.9938500154318733`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"4d89a307-fce4-48be-8285-a9c7c9ce2360"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"0da75f14-aa91-42a8-82cd-d8bcad1418c0"], + +Cell[BoxData[ + RowBox[{"-", "2.5630897009966778`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993804090300918*^9, {3.993804138711464*^9, + 3.99380417453297*^9}, 3.993848807599778*^9, 3.9938500154470463`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"d5d7e83b-00ce-4523-bf11-20a782c1cfda"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"f71a4039-8bb2-40ac-9ec6-edf953190386"], + +Cell[BoxData["20.50874671482353`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993804090321062*^9, {3.9938041387284813`*^9, + 3.993804174547089*^9}, 3.993848807619718*^9, 3.993850015463646*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"987d16a5-125d-420a-88d8-52e2829fc176"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"626823f4-43a5-45b5-98ea-61aa026fafe0"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9938040903372*^9, {3.9938041387455187`*^9, + 3.993804174560532*^9}, 3.9938488076417303`*^9, 3.99385001547721*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"80022cdf-b28d-43b5-8c1b-f42b64e684b2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993803941161499*^9, 3.993803942967257*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"18219664-2cbd-4501-8696-958e5d97cefd"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804090368265*^9, {3.993804138763773*^9, 3.993804174574923*^9}, + 3.993848807660918*^9, 3.993850015490944*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"65c3c7c9-1acb-41c4-b7aa-28442266c944"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501388085117`*^9, - 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ -a3c857e6ae57"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"8bcf809d-290e-4c39-b997-cf964d793a91"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.845"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993803949861635*^9, 3.993803952475243*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"6e3cdb74-df73-4a1d-8e82-88437d1ea616"], + +Cell[BoxData["0.845`"], "Output", + CellChangeTimes->{ + 3.993804090400498*^9, {3.9938041388176193`*^9, 3.9938041746000147`*^9}, + 3.993848807703788*^9, 3.9938500155144253`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"8c1c74b2-34df-46b1-8998-59d05f5928c3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"8249f1f4-164b-4115-8fed-cfd1a77085cf"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.34"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.993803955445758*^9, 3.9938039566555567`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"a48c6937-60f6-4a07-8710-d09b65f7f005"], + +Cell[BoxData["2.34`"], "Output", + CellChangeTimes->{ + 3.993804090432963*^9, {3.993804138872542*^9, 3.9938041746232433`*^9}, + 3.993848807741784*^9, 3.993850015538205*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"f696af0e-7376-4e24-ae0f-0b33366beb4a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"b72af8de-1c16-46ab-bf24-d89fae50cf56"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.235"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993803960293667*^9, 3.9938039628886843`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"3fb5f3d6-cd7b-499f-8b07-0e9e7b090cbc"], + +Cell[BoxData["1.235`"], "Output", + CellChangeTimes->{ + 3.99380409046647*^9, {3.9938041389300737`*^9, 3.993804174645626*^9}, + 3.993848807767399*^9, 3.9938500197905807`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"822198f2-7d3e-4942-b28e-26bd1a6ad4bb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"8a7aefe7-d390-4b34-a849-2e82e2ed0427"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "2.157"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993803966354662*^9, + 3.993803967807385*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"02a146ce-363f-45f5-98f7-684b8f667119"], + +Cell[BoxData["2.157`"], "Output", + CellChangeTimes->{ + 3.993804090500058*^9, {3.993804138981492*^9, 3.993804174669353*^9}, + 3.993848807792426*^9, 3.993850020182446*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"d03d3926-2b96-423e-a160-479212485ea1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"3239a0a2-8ec7-496c-80ff-bb069dff505c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.647"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993803975246106*^9, + 3.993803976677384*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"96dc1617-59e7-4180-bb85-3e84d4bdcf0b"], + +Cell[BoxData["0.647`"], "Output", + CellChangeTimes->{ + 3.993804090532151*^9, {3.993804139031171*^9, 3.993804174692378*^9}, + 3.9938488078179283`*^9, 3.9938500202294903`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"6e7ff47c-ca8d-4d20-b867-4cf5ac8afe5f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"1be7c961-ef24-4960-8009-5777bbc8bd23"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.76"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.99380398019634*^9, + 3.9938039813095837`*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"e0843e12-3c2d-4570-8e50-ecd458dccecd"], + +Cell[BoxData["1.76`"], "Output", + CellChangeTimes->{ + 3.993804090566051*^9, {3.993804139085739*^9, 3.9938041747149076`*^9}, + 3.993848807844983*^9, 3.9938500202522993`*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"9ff93c4e-23c1-49cf-b3b9-aa7bd2be95b2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"d0d4ff4e-97a6-4f9b-9b63-4f397ecd400c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.075"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993803983729498*^9, 3.993803986997629*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"156386f5-75f5-4bc1-a4f7-35f549004207"], + +Cell[BoxData["1.075`"], "Output", + CellChangeTimes->{ + 3.993804090634049*^9, {3.993804139137789*^9, 3.99380417473573*^9}, + 3.993848807872305*^9, 3.9938500203036222`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"e5534b50-a36d-4716-b90e-9d1bc207ccc3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"ebfa35bf-a356-4939-bd96-1a9ec65af390"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"098dbe47-bb3c-4cce-86ac-cfadf9737172"], + +Cell[BoxData["0.01224942383714716`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993804090716114*^9, {3.993804139208848*^9, + 3.993804174782381*^9}, 3.9938488102384644`*^9, 3.993850020432776*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"3a18a05a-7d36-4f65-a8c2-5b86e5955cb9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"42c026af-e9df-43c0-8953-cf50f4b1a6ed"], + +Cell[BoxData["0.5889492852231504`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9938040907433662`*^9, {3.9938041392562933`*^9, + 3.99380417480917*^9}, 3.9938488104573317`*^9, 3.9938500205801888`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"fbdb1562-eb20-42de-af62-1003404da298"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"892e3d7a-c8a1-4996-941c-b985032d768e"], + +Cell[BoxData[ + RowBox[{"-", "12.704649244928842`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993804090767948*^9, {3.993804139281644*^9, + 3.99380417483276*^9}, 3.993848810481243*^9, 3.993850020641766*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"2fc4431c-8e5b-4259-8436-f9bd7e780897"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"b9566d6c-2b1e-4439-8079-565ed9af2d35"], + +Cell[BoxData[ + RowBox[{"-", "15.223385141555047`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993804090797073*^9, {3.993804139310915*^9, + 3.993804174861484*^9}, 3.9938488105114737`*^9, 3.993850020696823*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"e299d0d0-3001-4a95-9311-637a7a6eb28c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"be089085-39e9-4150-a0a4-ba60ce1d7fb1"], + +Cell[BoxData[ + RowBox[{"-", "39.03111013094529`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993804090827354*^9, {3.9938041393422422`*^9, + 3.9938041748908043`*^9}, 3.9938488105468807`*^9, 3.993850020762871*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"f906fa8a-fc1f-4b22-841c-fd4c739d1553"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"ee51dfad-ab97-4672-b8bb-6dfb7ad4fa09"], + +Cell[BoxData[ + RowBox[{"-", "94.34556705329022`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993804090863044*^9, {3.993804139389662*^9, + 3.993804174924636*^9}, 3.993848810587708*^9, 3.993850020833549*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"c40f6db5-e25e-4c0c-bd4e-6478d62ecba7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"6bd3f940-bb94-434b-855b-2e9c4e9b76bd"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.993804090879141*^9, {3.9938041394058332`*^9, + 3.993804174941469*^9}, 3.99384881061217*^9, 3.993850020897704*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"df6d9ecc-0801-4375-8b35-37d27df296b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"42096a87-6a2b-46d6-be4c-8374fbc3912e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993804090895958*^9, {3.9938041394218063`*^9, + 3.993804174954442*^9}, 3.993848810635922*^9, 3.993850020915135*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"2f2952fc-54a0-4378-9556-9a82df82dedc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"5b897118-7053-4da0-83c6-ee759993d8ae"], + +Cell[BoxData["40.9342324933027`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993804090912829*^9, {3.99380413943988*^9, + 3.9938041749678583`*^9}, 3.993848810656166*^9, 3.99385002093215*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"b9faac28-29de-4d9d-a2e9-24bb071b5403"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"bfaf0e40-1db9-4406-8fb4-119adbb43a55"], + +Cell[BoxData[ + RowBox[{"-", "42.16041879106114`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993804090929619*^9, {3.993804139457325*^9, + 3.9938041749824657`*^9}, 3.9938488106762447`*^9, 3.993850020950242*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"8f265979-08bb-46d9-996e-46373b9ca35c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"f816aee8-0ea6-4571-8219-cae0761d601c"], + +Cell[BoxData["57.85215050076255`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.993804090946455*^9, {3.9938041394733677`*^9, + 3.993804174995661*^9}, 3.99384881069589*^9, 3.993850020969178*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"fd430dce-d127-4df7-8d18-ada9b1f42400"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"3c600905-d23c-4f5b-9236-c67229e17070"], + +Cell[BoxData["0.2903701468853932`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993804090963214*^9, {3.99380413948948*^9, + 3.993804175008822*^9}, 3.99384881071603*^9, 3.993850020983549*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"7e665a03-e5dd-4d1b-b3c7-d12c8aabdb47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"aab7b393-bb56-42d8-8c37-1178b6ec3d13"], + +Cell[BoxData[ + RowBox[{"-", "0.06800962519581188`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9938040909800377`*^9, {3.993804139506342*^9, + 3.993804175022502*^9}, 3.993848810736079*^9, 3.993850020999296*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"3c53c2fa-10e8-49dc-bf07-639b76e8e996"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"3e5c6b15-0b6e-4230-b57b-8757eeafc2e3"], + +Cell[BoxData[ + RowBox[{"-", "0.40916894338639737`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9938040909970512`*^9, {3.993804139523937*^9, + 3.99380417503624*^9}, 3.993848810755718*^9, 3.993850021015654*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"db7aac0b-4d27-4cb2-a868-cf2b3017df41"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"e0809b5b-01ee-44eb-9bcf-dbb5c6c1e7dd"], + +Cell[BoxData["0.6026750051187908`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.9938040910160313`*^9, {3.993804139541357*^9, + 3.9938041750504208`*^9}, 3.993848810776074*^9, 3.993850021037685*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"c4fa88e5-dcd6-4f89-aadb-8b6fe0170664"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"86240aba-5dcd-48e6-88b9-f87b96559ecf"], + +Cell[BoxData["2.622074662477555`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9938040910322237`*^9, {3.993804139560528*^9, + 3.99380417506885*^9}, 3.9938488107953978`*^9, 3.9938500210559673`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"4d05cf70-54d2-4fd4-835e-ecffb1194531"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"0d7172e5-955a-450d-b837-2c9cd9d2056b"], + +Cell[BoxData["1.560486547241578`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.9938040910476837`*^9, {3.99380413957936*^9, + 3.993804175086857*^9}, 3.993848810814839*^9, 3.993850021077848*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"046dd38a-0f3c-4ff2-ace3-d1b7172fbf23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"ecbfd6e9-056f-4a02-8d38-ab9aecb9e8a8"], + +Cell[BoxData[ + RowBox[{"-", "23.985225206889808`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.9938040910636168`*^9, {3.993804139598442*^9, + 3.993804175099869*^9}, 3.99384881083464*^9, 3.993850021096923*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"0b9c76b1-2ef6-45e5-b0d2-7aa689b6906b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"4d41eb40-b04a-4065-a59b-b513404e5be9"], + +Cell[BoxData[ + RowBox[{"-", "6.082813498068469`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.993804091079459*^9, {3.99380413961532*^9, + 3.993804175113451*^9}, 3.993848810854089*^9, 3.9938500211150293`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"4ba94c8b-1edc-4ad6-b2de-26b1710ab941"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"009fdf0b-21d4-4bb5-8cee-4e5437ff741f"], + +Cell[BoxData["16.949007286412893`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993804091095646*^9, {3.9938041396344*^9, + 3.99380417512825*^9}, 3.9938488108741703`*^9, 3.993850021132896*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"c254c0c7-fd30-4db3-be7e-c4f4456d3c64"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"76c2f253-1be6-4c66-9710-57d486131ca1"], + +Cell[BoxData[ + RowBox[{"-", "42.16041879106114`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.9938040911120157`*^9, {3.993804139651782*^9, + 3.9938041751438704`*^9}, 3.993848810893611*^9, 3.993850021146674*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"1ce0a5ee-d6cb-4072-9d62-f34f70b317f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"8226ff0a-a57a-4a3b-855f-d15f3ea97af5"], + +Cell[BoxData["51.76933700269408`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993804091132085*^9, {3.993804139668528*^9, + 3.993804175187551*^9}, 3.993848810913933*^9, 3.993850021161421*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"20f05eb1-acf3-4f8d-90e5-9623763d342c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}], ")"}]}], + ")"}], "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"28f4804a-f01b-4247-9d09-85cb978be55a"], + +Cell[BoxData["4.836891405194621`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993804091148937*^9, {3.9938041396855717`*^9, + 3.993804175204822*^9}, 3.993848810933175*^9, 3.9938500211811733`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"ba616d5b-5ceb-4f2e-a7cf-330b106c3d4d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"db7056d3-bb58-471a-b774-b87da1b63e78"], + +Cell[BoxData["252.66846904104736`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993804091165813*^9, {3.993804139705405*^9, + 3.993804175222055*^9}, 3.9938488109528217`*^9, 3.9938500212041197`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"dad1fb57-eb9a-41a0-a6c6-df4a30dbb003"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.47855"}]], "Input", + CellChangeTimes->{3.9918501413985214`*^9, 3.993849737188274*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], + +Cell[BoxData["0.47855`"], "Output", + CellChangeTimes->{3.993850021223638*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3cdd4ecc-0254-4edc-825b-cc30af281abe"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501359768734`*^9, 3.991850137465685*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", + RowBox[{"0.23891", "s"}]}]], "Input", + CellChangeTimes->{3.9918501402114105`*^9, 3.9938497464692574`*^9, + 3.9938498763235598`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], + +Cell[BoxData[ + RowBox[{"0.23891`", " ", "s"}]], "Output", + CellChangeTimes->{3.993850021247918*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"61cfed40-e997-47a8-8f8b-543cc5e1fedf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, 3.991850138811516*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ @@ -84,13 +4828,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[399]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], + CellLabel->"In[75]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913437871842365`*^9}, - CellLabel-> - "Out[399]=",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[BoxData["2.401224501209607`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.9938500212781267`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"a6766189-32c2-4eb6-ad1b-e2a63cd87dc7"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4866,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ -301cf9f22a61"], + CellChangeTimes->{3.991557655438551*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.9913437872132397`*^9}, - CellLabel-> - "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[BoxData["1.1298344621202283`*^-54"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.993850021301969*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"508d530f-05d1-449d-af8f-cc04be47f8c7"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4904,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915576595317745`*^9, - 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ -fda42549e334"], + CellChangeTimes->{{3.9915576595317745`*^9, 3.9915576617156334`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.9913437872412376`*^9}, - CellLabel-> - "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[BoxData[ + RowBox[{"1.14384340371805`*^-54", " ", "s"}]], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.9938500213235407`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"82f493a3-1030-43eb-beef-23f47d30fc0e"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4933,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + CellLabel->"In[78]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913437872672386`*^9}, - CellLabel-> - "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[BoxData[ + FractionBox[ + RowBox[{"3.986031465294909`*^-52", " ", "s"}], + RowBox[{"2.401224501209607`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}]]], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.993850021341467*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"452ab8f1-139e-467e-b1c2-23a3efc605dc"] }, Open ]], Cell[CellGroupData[{ @@ -226,13 +4967,18 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", - CellLabel-> - "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + CellLabel->"In[79]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[BoxData["47.62007062351`"], "Output", - CellChangeTimes->{3.991343787279253*^9}, - CellLabel-> - "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[BoxData[ + RowBox[{"6.04377959995752`*^107", " ", + RowBox[{"(", + RowBox[{"1.1298344621202283`*^-54", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"2.5142079474216295`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}]}]], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.993850021359563*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"62f358d6-3654-4015-8c3e-6608f325c5c7"] }, Open ]], Cell[CellGroupData[{ @@ -241,13 +4987,16 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + CellLabel->"In[80]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913437873062572`*^9}, - CellLabel-> - "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[BoxData[ + RowBox[{"1.1015717939774447`*^26", " ", + SqrtBox[ + FractionBox[ + RowBox[{"2.401224501209607`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], "s"]]}]], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.993850021378891*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"f9031242-0a9e-43e5-b3b6-acf3f7e37dfb"] }, Open ]], Cell[CellGroupData[{ @@ -256,13 +5005,24 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + CellLabel->"In[81]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[BoxData["2.8712430196956706`"], "Output", - CellChangeTimes->{3.9913437873353844`*^9}, - CellLabel-> - "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[BoxData[ + RowBox[{"2.04466053829128`*^-53", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"1.1298344621202283`*^-54", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"2.5142079474216295`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}]}], ")"}]}], + ")"}]}]}]], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.993850021426485*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"490578d9-e33d-40f1-a4be-419dc40fa4c6"] }, Open ]], Cell[CellGroupData[{ @@ -271,13 +5031,30 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + CellLabel->"In[82]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[BoxData["136.72879537516795`"], "Output", - CellChangeTimes->{3.991343787361582*^9}, - CellLabel-> - "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[BoxData[ + RowBox[{"1.2357477650162998`*^55", " ", + RowBox[{"(", + RowBox[{"1.1298344621202283`*^-54", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"1.1298344621202283`*^-54", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"2.5142079474216295`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}]}], ")"}]}], + ")"}]}], " ", + RowBox[{"(", + RowBox[{"2.5142079474216295`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}]}]], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.9938500214523*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"3e705fd2-b9a4-42f4-8102-0d64ff5cbe1e"] }, Open ]], Cell[CellGroupData[{ @@ -286,13 +5063,19 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + CellLabel->"In[83]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913437873734856`*^9}, - CellLabel-> - "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[BoxData[ + FractionBox[ + RowBox[{"4.3908998320754557`*^-26", " ", + SqrtBox[ + FractionBox[ + RowBox[{"2.401224501209607`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], "s"]], " ", "s"}], + RowBox[{"2.401224501209607`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}]]], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.993850021476367*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"b6c6e5a8-2be5-46ed-972f-e7921d6f7da2"] }, Open ]], Cell[CellGroupData[{ @@ -481,13 +5264,56 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + CellLabel->"In[84]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[BoxData["0.03116264120310575`"], "Output", - CellChangeTimes->{3.9913437874002857`*^9}, - CellLabel-> - "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[BoxData[ + RowBox[{ + RowBox[{"(", + RowBox[{"2.1061183354672167`*^110", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"3.747048601832261`*^-54", "+", + RowBox[{"5.4404336176520004`*^-55", " ", "s"}]}], ")"}], "2"]}], ")"}], + "/", + RowBox[{"(", + RowBox[{ + RowBox[{"3.654191096947039`*^58", " ", + RowBox[{"(", + RowBox[{"1.1298344621202283`*^-54", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"1.1298344621202283`*^-54", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"2.5142079474216295`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}]}], ")"}]}], + ")"}]}], " ", + RowBox[{"(", + RowBox[{"2.5142079474216295`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{"9.24775464553404`*^84", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"3.747048601832261`*^-54", "+", + RowBox[{"5.4404336176520004`*^-55", " ", "s"}]}], ")"}], "2"], " ", + SqrtBox[ + FractionBox[ + RowBox[{"2.401224501209607`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], "s"]], " ", "s"}], + ")"}], "/", + RowBox[{"(", + RowBox[{"2.401224501209607`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}]}]}], + ")"}]}]], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.9938500215066137`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"e0312a76-7bba-4a5b-a8b5-1e07a2a24b2b"] }, Open ]], Cell[CellGroupData[{ @@ -500,13 +5326,256 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + CellLabel->"In[85]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[BoxData["5.020278507983894`"], "Output", - CellChangeTimes->{3.9913437875033875`*^9}, - CellLabel-> - "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[BoxData[ + TemplateBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"3.79230282449538`*^107", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"3.747048601832261`*^-54", "+", + RowBox[{"5.4404336176520004`*^-55", " ", "s"}]}], ")"}], "2"]}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"9.24775464553404`*^84", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1.14384340371805`*^-54", "+", + FractionBox["2.401224501209607`*^-53", "s"]}], ")"}]}], + " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"3.747048601832261`*^-54", "+", + RowBox[{"5.4404336176520004`*^-55", " ", "s"}]}], ")"}], + "2"], " ", "s"}], ")"}], "/", + RowBox[{"(", + RowBox[{"2.401224501209607`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}]}], + "+", + RowBox[{"3.654191096947039`*^58", " ", + RowBox[{"(", + RowBox[{"1.1298344621202283`*^-54", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"2.5142079474216295`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"2.84063878393352`*^-107", "+", + RowBox[{"3.005095545912684`*^-107", " ", "s"}], "+", + RowBox[{"1.3083777322292941`*^-108", " ", + SuperscriptBox["s", "2"]}]}], ")"}]}], ")"}]}]}]}], ")"}], + " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"1.1390541939552816`*^-51", "+", + RowBox[{"3.850240573554612`*^-52", " ", "s"}], "+", + RowBox[{"3.976847742971191`*^-53", " ", + SuperscriptBox["s", "2"]}], "+", + RowBox[{"1.14384340371805`*^-54", " ", + SuperscriptBox["s", "3"]}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"2.4925279302047645`*^-101", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"2.84063878393352`*^-107", "+", + RowBox[{"3.005095545912684`*^-107", " ", "s"}], "+", + RowBox[{"1.3083777322292941`*^-108", " ", + SuperscriptBox["s", "2"]}]}], ")"}]}], ")"}]}]}], "+", + RowBox[{ + SuperscriptBox["s", "3"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"2.7371798230433217`*^-24", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1.14384340371805`*^-54", "+", + FractionBox["2.401224501209607`*^-53", "s"]}], ")"}]}]}], + "+", + RowBox[{"5.46878652950234`*^-104", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"2.84063878393352`*^-107", "+", + RowBox[{"3.005095545912684`*^-107", " ", "s"}], "+", + RowBox[{"1.3083777322292941`*^-108", " ", + SuperscriptBox["s", "2"]}]}], ")"}]}], ")"}]}]}]}], + ")"}]}], "+", + RowBox[{ + SuperscriptBox["s", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"3.7704148417950625`*^-23", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1.14384340371805`*^-54", "+", + FractionBox["2.401224501209607`*^-53", "s"]}], ")"}]}]}], + "+", + RowBox[{"2.4041169465215256`*^-102", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"2.84063878393352`*^-107", "+", + RowBox[{"3.005095545912684`*^-107", " ", "s"}], "+", + RowBox[{"1.3083777322292941`*^-108", " ", + SuperscriptBox["s", "2"]}]}], ")"}]}], ")"}]}]}]}], + ")"}]}], "+", + RowBox[{"s", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"1.2984192671183783`*^-22", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1.14384340371805`*^-54", "+", + FractionBox["2.401224501209607`*^-53", "s"]}], ")"}]}]}], + "+", + RowBox[{"2.755564717590059`*^-101", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"2.84063878393352`*^-107", "+", + RowBox[{"3.005095545912684`*^-107", " ", "s"}], "+", + RowBox[{"1.3083777322292941`*^-108", " ", + SuperscriptBox["s", "2"]}]}], ")"}]}], ")"}]}]}]}], + ")"}]}]}], ")"}]}], ")"}], + RowBox[{"3", "/", "2"}]]}], ")"}]}], + InterpretationBox[ + DynamicModuleBox[{Typeset`open = False}, + TemplateBox[{"Expression", + StyleBox[ + TagBox[ + TooltipBox["\"condition\"", + TagBox[ + RowBox[{ + RowBox[{"Re", "[", + FractionBox[ + RowBox[{"7.10058593063731`*^-50", "+", + RowBox[{ + RowBox[{"\[LeftSkeleton]", "22", "\[RightSkeleton]"}], + " ", "s"}], "+", + RowBox[{ + RowBox[{"\[LeftSkeleton]", "24", "\[RightSkeleton]"}], + " ", + SuperscriptBox["s", "2"]}], "+", + RowBox[{"7.130440695793217`*^-53", " ", + SuperscriptBox["s", "3"]}]}], + RowBox[{ + RowBox[{"2.4925279302047645`*^-101", " ", + SqrtBox[ + FractionBox["1", + RowBox[{ + RowBox[{"\[LeftSkeleton]", "23", "\[RightSkeleton]"}], + "+", + RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+", + RowBox[{ + RowBox[{"\[LeftSkeleton]", "25", "\[RightSkeleton]"}], + " ", + + RowBox[{ + "\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]}]]]}], "+", + RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], + RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], + RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], "+", + RowBox[{"s", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"\[LeftSkeleton]", "24", "\[RightSkeleton]"}], + " ", + SqrtBox[ + RowBox[{ + RowBox[{"\[LeftSkeleton]", "22", "\[RightSkeleton]"}], + "+", + RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}]]}], + "+", + RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], + ")"}]}]}]], "]"}], ">", "0"}], Short[#, 7]& ]], + Annotation[#, + Short[ + Re[(7.10058593063731*^-50 + 2.40014603266753*^-50 $CellContext`s + + 2.4790698530307665`*^-51 $CellContext`s^2 + + 7.130440695793217*^-53 $CellContext`s^3)/( + 2.4925279302047645`*^-101 ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^ + Rational[1, 2] + $CellContext`s^3 ( + 2.7371798230433217`*^-24 (1.14384340371805*^-54 + + 2.401224501209607*^-53/$CellContext`s)^Rational[1, 2] + + 5.46878652950234*^-104 ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^ + Rational[1, 2]) + $CellContext`s^2 ( + 3.7704148417950625`*^-23 (1.14384340371805*^-54 + + 2.401224501209607*^-53/$CellContext`s)^Rational[1, 2] + + 2.4041169465215256`*^-102 ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^ + Rational[1, 2]) + $CellContext`s ( + 1.2984192671183783`*^-22 (1.14384340371805*^-54 + + 2.401224501209607*^-53/$CellContext`s)^Rational[1, 2] + + 2.755564717590059*^-101 ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^ + Rational[1, 2]))] > 0, 7], "Tooltip"]& ], + "IconizedCustomName", StripOnInput -> False], + GridBox[{{ + RowBox[{ + TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", + TagBox["Greater", "IconizedItem"]}]}, { + RowBox[{ + TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", + TagBox["4656", "IconizedItem"]}]}}, + GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> + "Column", + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], + Dynamic[Typeset`open]}, "IconizedObject"]], + Re[(7.10058593063731*^-50 + 2.40014603266753*^-50 $CellContext`s + + 2.4790698530307665`*^-51 $CellContext`s^2 + + 7.130440695793217*^-53 $CellContext`s^3)/( + 2.4925279302047645`*^-101 ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^ + Rational[1, 2] + $CellContext`s^3 ( + 2.7371798230433217`*^-24 (1.14384340371805*^-54 + + 2.401224501209607*^-53/$CellContext`s)^Rational[1, 2] + + 5.46878652950234*^-104 ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^ + Rational[1, 2]) + $CellContext`s^2 ( + 3.7704148417950625`*^-23 (1.14384340371805*^-54 + + 2.401224501209607*^-53/$CellContext`s)^Rational[1, 2] + + 2.4041169465215256`*^-102 ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^ + Rational[1, 2]) + $CellContext`s ( + 1.2984192671183783`*^-22 (1.14384340371805*^-54 + + 2.401224501209607*^-53/$CellContext`s)^Rational[1, 2] + + 2.755564717590059*^-101 ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^ + Rational[1, 2]))] > 0, SelectWithContents -> True, Selectable -> + False]}, + "ConditionalExpression"]], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.9938500423476353`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"3784ccc0-8df8-40b4-868c-96283e8eed01"] }, Open ]], Cell[CellGroupData[{ @@ -697,13 +5766,56 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + CellLabel->"In[86]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[BoxData["0.011613560908040731`"], "Output", - CellChangeTimes->{3.9913437875342865`*^9}, - CellLabel-> - "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[BoxData[ + RowBox[{ + RowBox[{"(", + RowBox[{"2.1061183354672167`*^110", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"3.747048601832261`*^-54", "+", + RowBox[{"5.4404336176520004`*^-55", " ", "s"}]}], ")"}], "2"]}], ")"}], + "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"9.24775464553404`*^84", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"3.747048601832261`*^-54", "+", + RowBox[{"5.4404336176520004`*^-55", " ", "s"}]}], ")"}], "2"], " ", + SqrtBox[ + FractionBox[ + RowBox[{"2.401224501209607`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], "s"]], " ", "s"}], + ")"}], "/", + RowBox[{"(", + RowBox[{"2.401224501209607`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}]}], "+", + RowBox[{"7.703350060651919`*^56", " ", + RowBox[{"(", + RowBox[{"1.1298344621202283`*^-54", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"1.1298344621202283`*^-54", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"2.5142079474216295`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}]}], ")"}]}], + ")"}]}], " ", + RowBox[{"(", + RowBox[{"2.5142079474216295`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + SuperscriptBox["s", "2"]}]}], ")"}]}]], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.993850042532795*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"06044e5d-7ba0-4a8b-bf9d-300a60982fdc"] }, Open ]], Cell[CellGroupData[{ @@ -716,13 +5828,235 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + CellLabel->"In[87]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[BoxData["8.223604958038852`"], "Output", - CellChangeTimes->{3.9913437876352882`*^9}, - CellLabel-> - "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[BoxData[ + TemplateBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"1.8664987770807917`*^110", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"3.747048601832261`*^-54", "+", + RowBox[{"5.4404336176520004`*^-55", " ", "s"}]}], ")"}], "2"]}], + ")"}], "/", + RowBox[{"(", + RowBox[{"s", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"9.24775464553404`*^84", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1.14384340371805`*^-54", "+", + FractionBox["2.401224501209607`*^-53", "s"]}], ")"}]}], + " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"3.747048601832261`*^-54", "+", + RowBox[{"5.4404336176520004`*^-55", " ", "s"}]}], ")"}], + "2"]}], ")"}], "/", + RowBox[{"(", + RowBox[{"2.401224501209607`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}]}], + "+", + RowBox[{"7.703350060651919`*^56", " ", + RowBox[{"(", + RowBox[{"1.1298344621202283`*^-54", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{"2.5142079474216295`*^-53", "+", + RowBox[{"1.14384340371805`*^-54", " ", "s"}]}], ")"}], " ", + "s", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"2.84063878393352`*^-107", "+", + RowBox[{"3.005095545912684`*^-107", " ", "s"}], "+", + RowBox[{"1.3083777322292941`*^-108", " ", + SuperscriptBox["s", "2"]}]}], ")"}]}], ")"}]}]}]}], ")"}], + " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"7.100585930637311`*^-50", "+", + RowBox[{"2.40014603266753`*^-50", " ", "s"}], "+", + RowBox[{"2.4790698530307668`*^-51", " ", + SuperscriptBox["s", "2"]}], "+", + RowBox[{"7.130440695793217`*^-53", " ", + SuperscriptBox["s", "3"]}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"s", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"1.2984192671183783`*^-22", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1.14384340371805`*^-54", "+", + FractionBox["2.401224501209607`*^-53", "s"]}], ")"}]}]}], + "+", + RowBox[{"3.7704148417950625`*^-23", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1.14384340371805`*^-54", "+", + FractionBox["2.401224501209607`*^-53", "s"]}], ")"}]}], + " ", "s"}], "+", + RowBox[{"2.7371798230433217`*^-24", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1.14384340371805`*^-54", "+", + FractionBox["2.401224501209607`*^-53", "s"]}], ")"}]}], + " ", + SuperscriptBox["s", "2"]}], "+", + RowBox[{"5.254463894447432`*^-103", " ", "s", " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"2.84063878393352`*^-107", "+", + RowBox[{"3.005095545912684`*^-107", " ", "s"}], "+", + RowBox[{"1.3083777322292941`*^-108", " ", + SuperscriptBox["s", "2"]}]}], ")"}]}], ")"}]}]}], "+", + RowBox[{"5.808968133087572`*^-103", " ", + SuperscriptBox["s", "2"], " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"2.84063878393352`*^-107", "+", + RowBox[{"3.005095545912684`*^-107", " ", "s"}], "+", + RowBox[{"1.3083777322292941`*^-108", " ", + SuperscriptBox["s", "2"]}]}], ")"}]}], ")"}]}]}], "+", + RowBox[{"5.0680859140819334`*^-104", " ", + SuperscriptBox["s", "3"], " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"2.84063878393352`*^-107", "+", + RowBox[{"3.005095545912684`*^-107", " ", "s"}], "+", + RowBox[{"1.3083777322292941`*^-108", " ", + SuperscriptBox["s", "2"]}]}], ")"}]}], ")"}]}]}], "+", + RowBox[{"1.152867376830151`*^-105", " ", + SuperscriptBox["s", "4"], " ", + RowBox[{"\[Sqrt]", + RowBox[{"(", + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{"2.84063878393352`*^-107", "+", + RowBox[{"3.005095545912684`*^-107", " ", "s"}], "+", + RowBox[{"1.3083777322292941`*^-108", " ", + SuperscriptBox["s", "2"]}]}], ")"}]}], ")"}]}]}]}], + ")"}]}], ")"}]}], ")"}], + RowBox[{"3", "/", "2"}]]}], ")"}]}], + InterpretationBox[ + DynamicModuleBox[{Typeset`open = False}, + TemplateBox[{"Expression", + StyleBox[ + TagBox[ + TooltipBox["\"condition\"", + TagBox[ + RowBox[{ + RowBox[{"Re", "[", + FractionBox[ + RowBox[{"7.100585930637311`*^-50", "+", + RowBox[{ + RowBox[{"\[LeftSkeleton]", "22", "\[RightSkeleton]"}], + " ", "s"}], "+", + RowBox[{ + RowBox[{"\[LeftSkeleton]", "24", "\[RightSkeleton]"}], + " ", + SuperscriptBox["s", "2"]}], "+", + RowBox[{"7.130440695793217`*^-53", " ", + SuperscriptBox["s", "3"]}]}], + RowBox[{"s", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"1.2984192671183783`*^-22", " ", + SqrtBox[ + RowBox[{"1.14384340371805`*^-54", "+", + FractionBox[ + RowBox[{"\[LeftSkeleton]", "23", "\[RightSkeleton]"}], + "s"]}]]}], "+", + RowBox[{"\[LeftSkeleton]", "5", "\[RightSkeleton]"}], "+", + RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}]}], + ")"}]}]], "]"}], ">", "0"}], Short[#, 7]& ]], + Annotation[#, + Short[ + Re[$CellContext`s^(-1) (7.100585930637311*^-50 + + 2.40014603266753*^-50 $CellContext`s + + 2.4790698530307668`*^-51 $CellContext`s^2 + + 7.130440695793217*^-53 $CellContext`s^3)/( + 1.2984192671183783`*^-22 (1.14384340371805*^-54 + + 2.401224501209607*^-53/$CellContext`s)^Rational[1, 2] + + 3.7704148417950625`*^-23 (1.14384340371805*^-54 + + 2.401224501209607*^-53/$CellContext`s)^ + Rational[1, 2] $CellContext`s + + 2.7371798230433217`*^-24 (1.14384340371805*^-54 + + 2.401224501209607*^-53/$CellContext`s)^ + Rational[1, 2] $CellContext`s^2 + + 5.254463894447432*^-103 $CellContext`s ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^ + Rational[1, 2] + + 5.808968133087572*^-103 $CellContext`s^2 (( + 2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^ + Rational[1, 2] + + 5.0680859140819334`*^-104 $CellContext`s^3 (( + 2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^ + Rational[1, 2] + + 1.152867376830151*^-105 $CellContext`s^4 (( + 2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^ + Rational[1, 2])] > 0, 7], "Tooltip"]& ], "IconizedCustomName", + StripOnInput -> False], + GridBox[{{ + RowBox[{ + TagBox["\"Head: \"", "IconizedLabel"], "\[InvisibleSpace]", + TagBox["Greater", "IconizedItem"]}]}, { + RowBox[{ + TagBox["\"Byte count: \"", "IconizedLabel"], "\[InvisibleSpace]", + TagBox["4616", "IconizedItem"]}]}}, + GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> + "Column", + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], + Dynamic[Typeset`open]}, "IconizedObject"]], + Re[$CellContext`s^(-1) (7.100585930637311*^-50 + + 2.40014603266753*^-50 $CellContext`s + + 2.4790698530307668`*^-51 $CellContext`s^2 + + 7.130440695793217*^-53 $CellContext`s^3)/( + 1.2984192671183783`*^-22 (1.14384340371805*^-54 + + 2.401224501209607*^-53/$CellContext`s)^Rational[1, 2] + + 3.7704148417950625`*^-23 (1.14384340371805*^-54 + + 2.401224501209607*^-53/$CellContext`s)^Rational[1, 2] $CellContext`s + + 2.7371798230433217`*^-24 (1.14384340371805*^-54 + + 2.401224501209607*^-53/$CellContext`s)^ + Rational[1, 2] $CellContext`s^2 + + 5.254463894447432*^-103 $CellContext`s ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^Rational[1, 2] + + 5.808968133087572*^-103 $CellContext`s^2 ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^Rational[1, 2] + + 5.0680859140819334`*^-104 $CellContext`s^3 ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^Rational[1, 2] + + 1.152867376830151*^-105 $CellContext`s^4 ((2.84063878393352*^-107 + + 3.005095545912684*^-107 $CellContext`s + + 1.3083777322292941`*^-108 $CellContext`s^2)^(-1))^Rational[1, 2])] > + 0, SelectWithContents -> True, Selectable -> False]}, + "ConditionalExpression"]], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.993850060686965*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"6537e137-20f7-4823-beab-2cbc71db42ac"] }, Open ]], Cell[CellGroupData[{ @@ -814,13 +6148,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + CellLabel->"In[88]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991343787650694*^9}, - CellLabel-> - "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[BoxData[ + FractionBox[ + RowBox[{"5.4404336176520004`*^-55", " ", "s"}], + RowBox[{"3.747048601832261`*^-54", "+", + RowBox[{"5.4404336176520004`*^-55", " ", "s"}]}]]], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.993850060738029*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"059ce4e7-8334-4422-a214-5ec1836337ea"] }, Open ]], Cell[CellGroupData[{ @@ -909,13 +6245,14 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + CellLabel->"In[89]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913437876776943`*^9}, - CellLabel-> - "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[BoxData[ + FractionBox["3.747048601832261`*^-54", + RowBox[{"3.747048601832261`*^-54", "+", + RowBox[{"5.4404336176520004`*^-55", " ", "s"}]}]]], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.993850060751561*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"6606a7bb-8510-4ab0-81dc-b22e9f063ef3"] }, Open ]], Cell[CellGroupData[{ @@ -1037,19 +6374,23 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + CellLabel->"In[90]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913437877049465`*^9}, - CellLabel-> - "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +Cell[BoxData[ + FractionBox[ + RowBox[{"2.0385569180384156`*^-108", " ", "s"}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"3.747048601832261`*^-54", "+", + RowBox[{"5.4404336176520004`*^-55", " ", "s"}]}], ")"}], "2"]]], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.993850060767543*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"520a62d6-80de-4c85-91e6-40ee9a38270e"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ -ad40-9440-412e77bed40d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ @@ -1063,30 +6404,33 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", + RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}], ")"}]}], ")"}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -1110,9 +6454,8 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ -1f4f66f53217"], + CellChangeTimes->{3.9918501532204666`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], Cell[BoxData[ TemplateBox[{ @@ -2818,9 +8161,72 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.011071"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.031476"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.049865"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.064634"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.074128"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.079917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.081589"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.07959"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.075388"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.069397"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.062354"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.055005"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.047683"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.040719"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.034333"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.028605"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.023579"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.019247"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.015565"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.012478"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.009921"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.007825"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.006123"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.004756"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.003667"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.002807"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.002134"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.001611"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.001208"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.0009"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.000667"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9938499103562326`*^9},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ b938908ab9a4"], Cell[BoxData[ @@ -9134,10 +14540,12 @@ d2cfa007cfcf"], Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +Evaluator->"kernel 3", +WindowSize->{714, 288}, +WindowMargins->{{Automatic, 3}, {3, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +Magnification:>1.8 Inherited, +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" ] @@ -9152,359 +14560,619 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], -Cell[706, 26, 154, 3, 28, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], -Cell[863, 31, 149, 4, 28, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], -Cell[1015, 37, 154, 3, 28, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ -Cell[1194, 44, 1301, 43, 113, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[2498, 89, 178, 3, 32, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[576, 22, 300, 5, 52, "Input",ExpressionUUID->"8e5d3540-6ffc-411c-96eb-dadf9a7438ec"], +Cell[879, 29, 269, 4, 59, "Output",ExpressionUUID->"f3563bd7-af39-4b63-9eb3-1a10e7541960"] }, Open ]], Cell[CellGroupData[{ -Cell[2713, 97, 908, 31, 56, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[3624, 130, 177, 3, 32, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[1185, 38, 245, 4, 52, "Input",ExpressionUUID->"abbbc09c-d92f-4931-8344-3a8133c0d4e0"], +Cell[1433, 44, 271, 4, 59, "Output",ExpressionUUID->"326aff7f-2fea-41a5-be13-ddd445eab4e0"] }, Open ]], Cell[CellGroupData[{ -Cell[3838, 138, 889, 30, 56, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[4730, 170, 178, 3, 32, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[1741, 53, 228, 4, 52, "Input",ExpressionUUID->"adaa1e5b-d09b-4e11-855c-9c30ebedd0a7"], +Cell[1972, 59, 270, 4, 59, "Output",ExpressionUUID->"2891c05b-7bf2-47a9-80d8-8c378e6748ae"] }, Open ]], Cell[CellGroupData[{ -Cell[4945, 178, 558, 19, 52, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[5506, 199, 172, 3, 32, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[2279, 68, 175, 3, 52, "Input",ExpressionUUID->"aa27695c-3499-4e54-a940-a0723424ec35"], +Cell[2457, 73, 273, 4, 59, "Output",ExpressionUUID->"fc34fd03-4a55-4cf3-ad3b-848224b5213b"] }, Open ]], Cell[CellGroupData[{ -Cell[5715, 207, 651, 22, 52, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[6369, 231, 167, 3, 32, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[2767, 82, 257, 7, 75, "Input",ExpressionUUID->"6dde0841-46eb-46e4-9e28-ba13f2552a0e"], +Cell[3027, 91, 287, 4, 59, "Output",ExpressionUUID->"3554a330-5391-4d9c-a154-30b98f84b573"] }, Open ]], Cell[CellGroupData[{ -Cell[6573, 239, 170, 5, 56, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[6746, 246, 172, 3, 32, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[3351, 100, 131, 2, 52, "Input",ExpressionUUID->"3d46be30-e088-47d4-b9c4-fca73f603d34"], +Cell[3485, 104, 275, 4, 59, "Output",ExpressionUUID->"0d7eca86-e8a0-404f-a50c-84315f736b8c"] }, Open ]], Cell[CellGroupData[{ -Cell[6955, 254, 170, 5, 55, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[7128, 261, 173, 3, 70, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[3797, 113, 276, 6, 52, "Input",ExpressionUUID->"6eae20c3-99e3-4523-a8cb-2691b914ae6d"], +Cell[4076, 121, 288, 4, 59, "Output",ExpressionUUID->"199abe01-34a0-41e2-a37f-b58d2a1b6624"] }, Open ]], Cell[CellGroupData[{ -Cell[7338, 269, 181, 5, 70, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[7522, 276, 171, 3, 70, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[4401, 130, 257, 7, 52, "Input",ExpressionUUID->"7ddbaf61-f950-4acd-a96d-a80764bc9971"], +Cell[4661, 139, 287, 4, 59, "Output",ExpressionUUID->"b5582a08-4023-408c-a924-a3f240af55df"] }, Open ]], Cell[CellGroupData[{ -Cell[7730, 284, 181, 5, 70, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[7914, 291, 172, 3, 70, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[4985, 148, 224, 4, 52, "Input",ExpressionUUID->"5c04ac5a-097d-486a-8642-e32e3fc4f07d"], +Cell[5212, 154, 250, 4, 59, "Output",ExpressionUUID->"e0d1d1ba-c5fb-4817-a0ca-96b5a7ec8bdf"] }, Open ]], Cell[CellGroupData[{ -Cell[8123, 299, 6055, 185, 70, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[14181, 486, 174, 3, 70, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[5499, 163, 226, 4, 52, "Input",ExpressionUUID->"107444a4-71f5-4e3e-af34-133b3ef874bb"], +Cell[5728, 169, 256, 4, 59, "Output",ExpressionUUID->"d39d1c0b-af89-447a-a8e5-8c35e6437216"] }, Open ]], Cell[CellGroupData[{ -Cell[14392, 494, 368, 9, 70, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[14763, 505, 172, 3, 70, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[6021, 178, 129, 2, 52, "Input",ExpressionUUID->"6a35c8ff-e15e-410b-8c5b-22387fa5399d"], +Cell[6153, 182, 269, 4, 59, "Output",ExpressionUUID->"c5bde84d-2703-457d-9097-aa902836ab96"] }, Open ]], Cell[CellGroupData[{ -Cell[14972, 513, 6122, 187, 70, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[21097, 702, 175, 3, 70, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[6459, 191, 129, 2, 52, "Input",ExpressionUUID->"ef652dfc-7a22-4879-a526-499b5cf48896"], +Cell[6591, 195, 270, 4, 59, "Output",ExpressionUUID->"b8f5fee9-c6c1-42fe-8d8c-7e32b9ea8d72"] }, Open ]], Cell[CellGroupData[{ -Cell[21309, 710, 368, 9, 70, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[21680, 721, 172, 3, 70, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[6898, 204, 557, 19, 141, "Input",ExpressionUUID->"f6c104af-2858-4534-80cb-b52c7666273b"], +Cell[7458, 225, 293, 4, 59, "Output",ExpressionUUID->"48e33ba1-cf69-46ca-855e-fb9af129fec4"] }, Open ]], Cell[CellGroupData[{ -Cell[21889, 729, 2663, 88, 70, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[24555, 819, 171, 3, 70, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[7788, 234, 557, 19, 141, "Input",ExpressionUUID->"9372372d-b6eb-4c05-b96e-50136663406f"], +Cell[8348, 255, 288, 4, 59, "Output",ExpressionUUID->"86ef11bf-adf7-4235-bbb2-3d7918124d23"] }, Open ]], Cell[CellGroupData[{ -Cell[24763, 827, 2603, 85, 70, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[27369, 914, 173, 3, 70, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[8673, 264, 1588, 50, 555, "Input",ExpressionUUID->"bdf46e79-f9f0-48e5-adad-d3b12a2bd932"], +Cell[10264, 316, 285, 4, 59, "Output",ExpressionUUID->"15d72347-a19d-4cc5-a7ff-b399d509b59a"] }, Open ]], Cell[CellGroupData[{ -Cell[27579, 922, 3712, 118, 70, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[31294, 1042, 174, 3, 70, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] -}, Open ]], -Cell[31483, 1048, 138, 3, 70, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], -Cell[CellGroupData[{ -Cell[31646, 1055, 2054, 59, 70, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], -Cell[33703, 1116, 559, 12, 70, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], -Cell[34265, 1130, 560, 12, 70, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], -Cell[34828, 1144, 565, 12, 70, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], -Cell[35396, 1158, 456, 10, 70, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], -Cell[35855, 1170, 170, 3, 70, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[10586, 325, 1422, 46, 518, "Input",ExpressionUUID->"ec3af131-da22-40e1-80e7-ad28458c8ace"], +Cell[12011, 373, 308, 5, 59, "Output",ExpressionUUID->"992554df-c8b9-4758-9a90-cacea04f536f"] }, Open ]], Cell[CellGroupData[{ -Cell[36062, 1178, 2054, 59, 70, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], -Cell[38119, 1239, 559, 12, 70, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], -Cell[38681, 1253, 559, 12, 70, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], -Cell[39243, 1267, 565, 12, 70, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], -Cell[39811, 1281, 458, 10, 70, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], -Cell[40272, 1293, 170, 3, 70, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[12356, 383, 1422, 46, 518, "Input",ExpressionUUID->"9080adde-f95a-4035-81fb-15e78ad0678d"], +Cell[13781, 431, 306, 5, 59, "Output",ExpressionUUID->"f67a0899-9ea3-4a7a-83f3-38f269cd12ba"] }, Open ]], Cell[CellGroupData[{ -Cell[40479, 1301, 1938, 53, 70, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], -Cell[42420, 1356, 20196, 379, 70, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +Cell[14124, 441, 1588, 50, 555, "Input",ExpressionUUID->"607b6ab3-f4e5-43f4-99a6-9a136d58f8ab"], +Cell[15715, 493, 285, 4, 59, "Output",ExpressionUUID->"6f85cf2a-3631-454f-af43-dc6b727f47c6"] }, Open ]], Cell[CellGroupData[{ -Cell[62653, 1740, 2094, 60, 70, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], -Cell[64750, 1802, 503, 11, 70, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], -Cell[65256, 1815, 505, 11, 70, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], -Cell[65764, 1828, 506, 11, 70, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], -Cell[66273, 1841, 455, 10, 70, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], -Cell[66731, 1853, 55770, 961, 70, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] -}, Open ]], -Cell[122516, 2817, 232, 6, 70, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], -Cell[122751, 2825, 209, 5, 70, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], -Cell[CellGroupData[{ -Cell[122985, 2834, 217, 7, 70, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[123205, 2843, 173, 3, 70, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +Cell[16037, 502, 131, 2, 52, "Input",ExpressionUUID->"3ca6077f-e524-45f5-8fcc-52627deb04a0"], +Cell[16171, 506, 272, 4, 59, "Output",ExpressionUUID->"da6c54cd-ef7f-49b4-8dfe-efbc1933ab0a"] }, Open ]], Cell[CellGroupData[{ -Cell[123415, 2851, 1814, 53, 70, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], -Cell[125232, 2906, 506, 11, 70, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], -Cell[125741, 2919, 508, 11, 70, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], -Cell[126252, 2932, 509, 11, 70, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], -Cell[126764, 2945, 458, 10, 70, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], -Cell[127225, 2957, 24818, 454, 70, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +Cell[16480, 515, 133, 2, 52, "Input",ExpressionUUID->"c4f248a8-5df7-4a03-bbb4-b01f8d03c604"], +Cell[16616, 519, 273, 4, 59, "Output",ExpressionUUID->"89391acf-6cd4-4ee0-81d2-3a91d5782fea"] }, Open ]], Cell[CellGroupData[{ -Cell[152080, 3416, 1616, 48, 70, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], -Cell[153699, 3466, 582, 12, 70, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], -Cell[154284, 3480, 588, 12, 70, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], -Cell[154875, 3494, 590, 12, 70, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], -Cell[155468, 3508, 458, 10, 70, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], -Cell[155929, 3520, 171, 3, 70, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +Cell[16926, 528, 134, 2, 52, "Input",ExpressionUUID->"f750652d-a6d6-46d1-b907-c2e8b1cf40f9"], +Cell[17063, 532, 276, 4, 59, "Output",ExpressionUUID->"99f511cc-8a95-431b-9c1f-ceafdceb17fc"] }, Open ]], Cell[CellGroupData[{ -Cell[156137, 3528, 2251, 64, 70, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], -Cell[158391, 3594, 557, 12, 70, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], -Cell[158951, 3608, 560, 12, 70, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], -Cell[159514, 3622, 565, 12, 70, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], -Cell[160082, 3636, 458, 10, 70, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], -Cell[160543, 3648, 172, 3, 70, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +Cell[17376, 541, 219, 4, 52, "Input",ExpressionUUID->"720d5765-8263-44e5-9989-fd40b9f718d8"], +Cell[17598, 547, 287, 5, 59, "Output",ExpressionUUID->"e468c1d1-d37a-406c-a570-d975a8693fc3"] }, Open ]], Cell[CellGroupData[{ -Cell[160752, 3656, 2218, 64, 70, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], -Cell[162973, 3722, 559, 12, 70, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], -Cell[163535, 3736, 562, 12, 70, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], -Cell[164100, 3750, 563, 12, 70, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], -Cell[164666, 3764, 458, 10, 70, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], -Cell[165127, 3776, 170, 3, 70, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +Cell[17922, 557, 134, 2, 52, "Input",ExpressionUUID->"2b91139f-4f4e-4dea-a68b-5e49638605cb"], +Cell[18059, 561, 279, 4, 59, "Output",ExpressionUUID->"e4a0e6a0-3e0d-4645-9a1e-1a6537417ec1"] }, Open ]], Cell[CellGroupData[{ -Cell[165334, 3784, 2221, 64, 70, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], -Cell[167558, 3850, 559, 12, 70, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], -Cell[168120, 3864, 562, 12, 70, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], -Cell[168685, 3878, 563, 12, 70, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], -Cell[169251, 3892, 458, 10, 70, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], -Cell[169712, 3904, 171, 3, 70, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +Cell[18375, 570, 328, 5, 52, "Input",ExpressionUUID->"4bc5dd5d-22ca-4118-a8d0-e9664ed01a31"], +Cell[18706, 577, 275, 4, 59, "Output",ExpressionUUID->"83bd7b71-fb1f-4bc0-b01c-76a22698f557"] }, Open ]], Cell[CellGroupData[{ -Cell[169920, 3912, 213, 6, 70, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], -Cell[170136, 3920, 173, 3, 70, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] -}, Open ]], -Cell[170324, 3926, 245, 5, 70, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], -Cell[CellGroupData[{ -Cell[170594, 3935, 558, 19, 70, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[171155, 3956, 170, 3, 70, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +Cell[19018, 586, 295, 5, 52, "Input",ExpressionUUID->"270d3ddc-eaae-4c2a-9364-dd051a2d494c"], +Cell[19316, 593, 273, 4, 59, "Output",ExpressionUUID->"bf4e7aec-93a1-4d41-8dee-b7602c0247cd"] }, Open ]], Cell[CellGroupData[{ -Cell[171362, 3964, 170, 5, 70, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[171535, 3971, 173, 3, 70, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +Cell[19626, 602, 219, 4, 52, "Input",ExpressionUUID->"2654dd54-41ad-4515-baeb-2df460340c19"], +Cell[19848, 608, 273, 4, 59, "Output",ExpressionUUID->"9f2a2e41-77e4-40c9-95fa-6b28f952c064"] }, Open ]], Cell[CellGroupData[{ -Cell[171745, 3979, 181, 5, 70, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[171929, 3986, 171, 3, 70, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +Cell[20158, 617, 350, 10, 75, "Input",ExpressionUUID->"135d7813-d47a-423e-a6ad-8d1cbf7124ea"], +Cell[20511, 629, 299, 4, 59, "Output",ExpressionUUID->"4d89a307-fce4-48be-8285-a9c7c9ce2360"] }, Open ]], Cell[CellGroupData[{ -Cell[172137, 3994, 6055, 185, 70, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[178195, 4181, 172, 3, 70, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +Cell[20847, 638, 350, 10, 75, "Input",ExpressionUUID->"0da75f14-aa91-42a8-82cd-d8bcad1418c0"], +Cell[21200, 650, 306, 5, 59, "Output",ExpressionUUID->"d5d7e83b-00ce-4523-bf11-20a782c1cfda"] }, Open ]], Cell[CellGroupData[{ -Cell[178404, 4189, 368, 9, 70, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[178775, 4200, 172, 3, 70, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +Cell[21543, 660, 994, 26, 459, "Input",ExpressionUUID->"f71a4039-8bb2-40ac-9ec6-edf953190386"], +Cell[22540, 688, 289, 4, 59, "Output",ExpressionUUID->"987d16a5-125d-420a-88d8-52e2829fc176"] }, Open ]], Cell[CellGroupData[{ -Cell[178984, 4208, 6122, 187, 70, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[185109, 4397, 173, 3, 70, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +Cell[22866, 697, 199, 3, 52, "Input",ExpressionUUID->"626823f4-43a5-45b5-98ea-61aa026fafe0"], +Cell[23068, 702, 271, 4, 59, "Output",ExpressionUUID->"80022cdf-b28d-43b5-8c1b-f42b64e684b2"] }, Open ]], Cell[CellGroupData[{ -Cell[185319, 4405, 368, 9, 70, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[185690, 4416, 170, 3, 70, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +Cell[23376, 711, 326, 5, 52, "Input",ExpressionUUID->"18219664-2cbd-4501-8696-958e5d97cefd"], +Cell[23705, 718, 250, 4, 59, "Output",ExpressionUUID->"65c3c7c9-1acb-41c4-b7aa-28442266c944"] +}, Open ]], +Cell[23970, 725, 173, 2, 73, "Input",ExpressionUUID->"8bcf809d-290e-4c39-b997-cf964d793a91"], +Cell[CellGroupData[{ +Cell[24168, 731, 327, 5, 52, "Input",ExpressionUUID->"6e3cdb74-df73-4a1d-8e82-88437d1ea616"], +Cell[24498, 738, 257, 4, 59, "Output",ExpressionUUID->"8c1c74b2-34df-46b1-8998-59d05f5928c3"] +}, Open ]], +Cell[24770, 745, 173, 2, 73, "Input",ExpressionUUID->"8249f1f4-164b-4115-8fed-cfd1a77085cf"], +Cell[CellGroupData[{ +Cell[24968, 751, 329, 5, 52, "Input",ExpressionUUID->"a48c6937-60f6-4a07-8710-d09b65f7f005"], +Cell[25300, 758, 252, 4, 59, "Output",ExpressionUUID->"f696af0e-7376-4e24-ae0f-0b33366beb4a"] +}, Open ]], +Cell[25567, 765, 173, 2, 73, "Input",ExpressionUUID->"b72af8de-1c16-46ab-bf24-d89fae50cf56"], +Cell[CellGroupData[{ +Cell[25765, 771, 354, 5, 52, "Input",ExpressionUUID->"3fb5f3d6-cd7b-499f-8b07-0e9e7b090cbc"], +Cell[26122, 778, 254, 4, 59, "Output",ExpressionUUID->"822198f2-7d3e-4942-b28e-26bd1a6ad4bb"] +}, Open ]], +Cell[26391, 785, 171, 2, 73, "Input",ExpressionUUID->"8a7aefe7-d390-4b34-a849-2e82e2ed0427"], +Cell[CellGroupData[{ +Cell[26587, 791, 299, 5, 52, "Input",ExpressionUUID->"02a146ce-363f-45f5-98f7-684b8f667119"], +Cell[26889, 798, 251, 4, 59, "Output",ExpressionUUID->"d03d3926-2b96-423e-a160-479212485ea1"] +}, Open ]], +Cell[27155, 805, 171, 2, 73, "Input",ExpressionUUID->"3239a0a2-8ec7-496c-80ff-bb069dff505c"], +Cell[CellGroupData[{ +Cell[27351, 811, 303, 5, 52, "Input",ExpressionUUID->"96dc1617-59e7-4180-bb85-3e84d4bdcf0b"], +Cell[27657, 818, 255, 4, 59, "Output",ExpressionUUID->"6e7ff47c-ca8d-4d20-b867-4cf5ac8afe5f"] +}, Open ]], +Cell[27927, 825, 173, 2, 73, "Input",ExpressionUUID->"1be7c961-ef24-4960-8009-5777bbc8bd23"], +Cell[CellGroupData[{ +Cell[28125, 831, 306, 5, 52, "Input",ExpressionUUID->"e0843e12-3c2d-4570-8e50-ecd458dccecd"], +Cell[28434, 838, 254, 4, 59, "Output",ExpressionUUID->"9ff93c4e-23c1-49cf-b3b9-aa7bd2be95b2"] +}, Open ]], +Cell[28703, 845, 172, 2, 73, "Input",ExpressionUUID->"d0d4ff4e-97a6-4f9b-9b63-4f397ecd400c"], +Cell[CellGroupData[{ +Cell[28900, 851, 275, 4, 52, "Input",ExpressionUUID->"156386f5-75f5-4bc1-a4f7-35f549004207"], +Cell[29178, 857, 252, 4, 59, "Output",ExpressionUUID->"e5534b50-a36d-4716-b90e-9d1bc207ccc3"] +}, Open ]], +Cell[29445, 864, 175, 2, 73, "Input",ExpressionUUID->"ebfa35bf-a356-4939-bd96-1a9ec65af390"], +Cell[CellGroupData[{ +Cell[29645, 870, 19809, 485, 6103, "Input",ExpressionUUID->"098dbe47-bb3c-4cce-86ac-cfadf9737172"], +Cell[49457, 1357, 289, 4, 59, "Output",ExpressionUUID->"3a18a05a-7d36-4f65-a8c2-5b86e5955cb9"] }, Open ]], Cell[CellGroupData[{ -Cell[185897, 4424, 2663, 88, 70, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[188563, 4514, 171, 3, 70, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +Cell[49783, 1366, 19748, 489, 6152, "Input",ExpressionUUID->"42c026af-e9df-43c0-8953-cf50f4b1a6ed"], +Cell[69534, 1857, 293, 4, 59, "Output",ExpressionUUID->"fbdb1562-eb20-42de-af62-1003404da298"] }, Open ]], Cell[CellGroupData[{ -Cell[188771, 4522, 2603, 85, 70, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[191377, 4609, 173, 3, 70, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +Cell[69864, 1866, 19748, 483, 6126, "Input",ExpressionUUID->"892e3d7a-c8a1-4996-941c-b985032d768e"], +Cell[89615, 2351, 302, 5, 59, "Output",ExpressionUUID->"2fc4431c-8e5b-4259-8436-f9bd7e780897"] }, Open ]], Cell[CellGroupData[{ -Cell[191587, 4617, 3712, 118, 70, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[195302, 4737, 174, 3, 70, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +Cell[89954, 2361, 22534, 553, 6975, "Input",ExpressionUUID->"b9566d6c-2b1e-4439-8079-565ed9af2d35"], +Cell[112491, 2916, 305, 5, 59, "Output",ExpressionUUID->"e299d0d0-3001-4a95-9311-637a7a6eb28c"] }, Open ]], Cell[CellGroupData[{ -Cell[195513, 4745, 2049, 58, 70, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], -Cell[197565, 4805, 579, 12, 70, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], -Cell[198147, 4819, 582, 12, 70, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], -Cell[198732, 4833, 584, 12, 70, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], -Cell[199319, 4847, 458, 10, 70, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], -Cell[199780, 4859, 172, 3, 70, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +Cell[112833, 2926, 22535, 553, 7037, "Input",ExpressionUUID->"be089085-39e9-4150-a0a4-ba60ce1d7fb1"], +Cell[135371, 3481, 310, 5, 59, "Output",ExpressionUUID->"f906fa8a-fc1f-4b22-841c-fd4c739d1553"] }, Open ]], Cell[CellGroupData[{ -Cell[199989, 4867, 2054, 59, 70, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], -Cell[202046, 4928, 577, 12, 70, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], -Cell[202626, 4942, 580, 12, 70, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], -Cell[203209, 4956, 583, 12, 70, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], -Cell[203795, 4970, 456, 10, 70, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], -Cell[204254, 4982, 171, 3, 70, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +Cell[135718, 3491, 25491, 626, 7925, "Input",ExpressionUUID->"ee51dfad-ab97-4672-b8bb-6dfb7ad4fa09"], +Cell[161212, 4119, 302, 5, 59, "Output",ExpressionUUID->"c40f6db5-e25e-4c0c-bd4e-6478d62ecba7"] }, Open ]], Cell[CellGroupData[{ -Cell[204462, 4990, 2030, 55, 70, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], -Cell[206495, 5047, 20493, 384, 70, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +Cell[161551, 4129, 130, 2, 52, "Input",ExpressionUUID->"6bd3f940-bb94-434b-855b-2e9c4e9b76bd"], +Cell[161684, 4133, 271, 4, 59, "Output",ExpressionUUID->"df6d9ecc-0801-4375-8b35-37d27df296b0"] }, Open ]], Cell[CellGroupData[{ -Cell[227025, 5436, 2120, 60, 70, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], -Cell[229148, 5498, 501, 11, 70, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], -Cell[229652, 5511, 504, 11, 70, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], -Cell[230159, 5524, 508, 11, 70, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], -Cell[230670, 5537, 456, 10, 70, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], -Cell[231129, 5549, 31462, 562, 70, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] -}, Open ]], -Cell[262606, 6114, 209, 5, 70, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], -Cell[CellGroupData[{ -Cell[262840, 6123, 1616, 48, 70, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], -Cell[264459, 6173, 596, 12, 70, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], -Cell[265058, 6187, 602, 12, 70, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], -Cell[265663, 6201, 605, 12, 70, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], -Cell[266271, 6215, 458, 10, 70, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], -Cell[266732, 6227, 171, 3, 70, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +Cell[161992, 4142, 130, 2, 52, "Input",ExpressionUUID->"42096a87-6a2b-46d6-be4c-8374fbc3912e"], +Cell[162125, 4146, 272, 4, 59, "Output",ExpressionUUID->"2f2952fc-54a0-4378-9556-9a82df82dedc"] }, Open ]], Cell[CellGroupData[{ -Cell[266940, 6235, 2251, 64, 70, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], -Cell[269194, 6301, 577, 12, 70, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], -Cell[269774, 6315, 580, 12, 70, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], -Cell[270357, 6329, 586, 12, 70, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], -Cell[270946, 6343, 458, 10, 70, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], -Cell[271407, 6355, 173, 3, 70, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +Cell[162434, 4155, 1144, 39, 581, "Input",ExpressionUUID->"5b897118-7053-4da0-83c6-ee759993d8ae"], +Cell[163581, 4196, 284, 4, 59, "Output",ExpressionUUID->"b9faac28-29de-4d9d-a2e9-24bb071b5403"] }, Open ]], Cell[CellGroupData[{ -Cell[271617, 6363, 2219, 64, 70, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], -Cell[273839, 6429, 579, 12, 70, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], -Cell[274421, 6443, 580, 12, 70, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], -Cell[275004, 6457, 586, 12, 70, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], -Cell[275593, 6471, 458, 10, 70, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], -Cell[276054, 6483, 171, 3, 70, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +Cell[163902, 4205, 1041, 35, 578, "Input",ExpressionUUID->"bfaf0e40-1db9-4406-8fb4-119adbb43a55"], +Cell[164946, 4242, 306, 5, 59, "Output",ExpressionUUID->"8f265979-08bb-46d9-996e-46373b9ca35c"] }, Open ]], Cell[CellGroupData[{ -Cell[276262, 6491, 2219, 64, 70, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], -Cell[278484, 6557, 576, 12, 70, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], -Cell[279063, 6571, 580, 12, 70, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], -Cell[279646, 6585, 584, 12, 70, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], -Cell[280233, 6599, 458, 10, 70, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], -Cell[280694, 6611, 173, 3, 70, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +Cell[165289, 4252, 1144, 39, 581, "Input",ExpressionUUID->"f816aee8-0ea6-4571-8219-cae0761d601c"], +Cell[166436, 4293, 288, 4, 59, "Output",ExpressionUUID->"fd430dce-d127-4df7-8d18-ada9b1f42400"] }, Open ]], Cell[CellGroupData[{ -Cell[280904, 6619, 212, 6, 70, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], -Cell[281119, 6627, 172, 3, 70, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] -}, Open ]], -Cell[281306, 6633, 244, 5, 70, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], -Cell[CellGroupData[{ -Cell[281575, 6642, 558, 19, 70, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[282136, 6663, 171, 3, 70, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +Cell[166761, 4302, 108, 1, 52, "Input",ExpressionUUID->"3c600905-d23c-4f5b-9236-c67229e17070"], +Cell[166872, 4305, 286, 4, 59, "Output",ExpressionUUID->"7e665a03-e5dd-4d1b-b3c7-d12c8aabdb47"] }, Open ]], Cell[CellGroupData[{ -Cell[282344, 6671, 170, 5, 70, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[282517, 6678, 171, 3, 70, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +Cell[167195, 4314, 108, 1, 52, "Input",ExpressionUUID->"aab7b393-bb56-42d8-8c37-1178b6ec3d13"], +Cell[167306, 4317, 308, 5, 59, "Output",ExpressionUUID->"3c53c2fa-10e8-49dc-bf07-639b76e8e996"] }, Open ]], Cell[CellGroupData[{ -Cell[282725, 6686, 181, 5, 70, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[282909, 6693, 173, 3, 70, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +Cell[167651, 4327, 108, 1, 52, "Input",ExpressionUUID->"3e5c6b15-0b6e-4230-b57b-8757eeafc2e3"], +Cell[167762, 4330, 305, 5, 59, "Output",ExpressionUUID->"db7aac0b-4d27-4cb2-a868-cf2b3017df41"] }, Open ]], Cell[CellGroupData[{ -Cell[283119, 6701, 6055, 185, 70, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[289177, 6888, 173, 3, 70, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +Cell[168104, 4340, 108, 1, 52, "Input",ExpressionUUID->"e0809b5b-01ee-44eb-9bcf-dbb5c6c1e7dd"], +Cell[168215, 4343, 290, 4, 59, "Output",ExpressionUUID->"c4fa88e5-dcd6-4f89-aadb-8b6fe0170664"] }, Open ]], Cell[CellGroupData[{ -Cell[289387, 6896, 368, 9, 70, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[289758, 6907, 172, 3, 70, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +Cell[168542, 4352, 107, 1, 52, "Input",ExpressionUUID->"86240aba-5dcd-48e6-88b9-f87b96559ecf"], +Cell[168652, 4355, 292, 4, 59, "Output",ExpressionUUID->"4d05cf70-54d2-4fd4-835e-ecffb1194531"] }, Open ]], Cell[CellGroupData[{ -Cell[289967, 6915, 6122, 187, 70, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[296092, 7104, 173, 3, 70, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +Cell[168981, 4364, 107, 1, 52, "Input",ExpressionUUID->"0d7172e5-955a-450d-b837-2c9cd9d2056b"], +Cell[169091, 4367, 288, 4, 59, "Output",ExpressionUUID->"046dd38a-0f3c-4ff2-ace3-d1b7172fbf23"] }, Open ]], Cell[CellGroupData[{ -Cell[296302, 7112, 368, 9, 70, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[296673, 7123, 172, 3, 70, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +Cell[169416, 4376, 497, 16, 170, "Input",ExpressionUUID->"ecbfd6e9-056f-4a02-8d38-ab9aecb9e8a8"], +Cell[169916, 4394, 306, 5, 59, "Output",ExpressionUUID->"0b9c76b1-2ef6-45e5-b0d2-7aa689b6906b"] }, Open ]], Cell[CellGroupData[{ -Cell[296882, 7131, 2663, 88, 70, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[299548, 7221, 173, 3, 70, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +Cell[170259, 4404, 497, 16, 170, "Input",ExpressionUUID->"4d41eb40-b04a-4065-a59b-b513404e5be9"], +Cell[170759, 4422, 303, 5, 59, "Output",ExpressionUUID->"4ba94c8b-1edc-4ad6-b2de-26b1710ab941"] }, Open ]], Cell[CellGroupData[{ -Cell[299758, 7229, 2603, 85, 70, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[302364, 7316, 171, 3, 70, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +Cell[171099, 4432, 1788, 60, 850, "Input",ExpressionUUID->"009fdf0b-21d4-4bb5-8cee-4e5437ff741f"], +Cell[172890, 4494, 287, 4, 59, "Output",ExpressionUUID->"c254c0c7-fd30-4db3-be7e-c4f4456d3c64"] }, Open ]], Cell[CellGroupData[{ -Cell[302572, 7324, 3712, 118, 70, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[306287, 7444, 174, 3, 70, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +Cell[173214, 4503, 1101, 36, 617, "Input",ExpressionUUID->"76c2f253-1be6-4c66-9710-57d486131ca1"], +Cell[174318, 4541, 308, 5, 59, "Output",ExpressionUUID->"1ce0a5ee-d6cb-4072-9d62-f34f70b317f6"] }, Open ]], Cell[CellGroupData[{ -Cell[306498, 7452, 2054, 59, 70, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], -Cell[308555, 7513, 574, 12, 70, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], -Cell[309132, 7527, 580, 12, 70, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], -Cell[309715, 7541, 580, 12, 70, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], -Cell[310298, 7555, 456, 10, 70, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], -Cell[310757, 7567, 172, 3, 70, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +Cell[174663, 4551, 1818, 61, 850, "Input",ExpressionUUID->"8226ff0a-a57a-4a3b-855f-d15f3ea97af5"], +Cell[176484, 4614, 285, 4, 59, "Output",ExpressionUUID->"20f05eb1-acf3-4f8d-90e5-9623763d342c"] }, Open ]], Cell[CellGroupData[{ -Cell[310966, 7575, 2054, 59, 70, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], -Cell[313023, 7636, 576, 12, 70, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], -Cell[313602, 7650, 577, 12, 70, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], -Cell[314182, 7664, 582, 12, 70, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], -Cell[314767, 7678, 458, 10, 70, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], -Cell[315228, 7690, 172, 3, 70, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +Cell[176806, 4623, 1710, 55, 597, "Input",ExpressionUUID->"28f4804a-f01b-4247-9d09-85cb978be55a"], +Cell[178519, 4680, 291, 4, 59, "Output",ExpressionUUID->"ba616d5b-5ceb-4f2e-a7cf-330b106c3d4d"] }, Open ]], Cell[CellGroupData[{ -Cell[315437, 7698, 2028, 55, 70, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], -Cell[317468, 7755, 20021, 378, 70, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +Cell[178847, 4689, 1631, 53, 464, "Input",ExpressionUUID->"db7056d3-bb58-471a-b774-b87da1b63e78"], +Cell[180481, 4744, 290, 4, 59, "Output",ExpressionUUID->"dad1fb57-eb9a-41a0-a6c6-df4a30dbb003"] }, Open ]], Cell[CellGroupData[{ -Cell[337526, 8138, 2146, 61, 70, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], -Cell[339675, 8201, 502, 11, 70, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], -Cell[340180, 8214, 506, 11, 70, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], -Cell[340689, 8227, 508, 11, 70, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], -Cell[341200, 8240, 456, 10, 70, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], -Cell[341659, 8252, 30015, 538, 70, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +Cell[180808, 4753, 201, 3, 52, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[181012, 4758, 156, 2, 59, "Output",ExpressionUUID->"3cdd4ecc-0254-4edc-825b-cc30af281abe"] }, Open ]], -Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[181183, 4763, 173, 2, 52, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], Cell[CellGroupData[{ -Cell[371923, 8802, 1590, 47, 70, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], -Cell[373516, 8851, 342, 6, 70, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], -Cell[373861, 8859, 101, 0, 70, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[181381, 4769, 248, 5, 52, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[181632, 4776, 178, 3, 59, "Output",ExpressionUUID->"61cfed40-e997-47a8-8f8b-543cc5e1fedf"] +}, Open ]], +Cell[181825, 4782, 173, 2, 52, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[182023, 4788, 1297, 42, 244, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[183323, 4832, 197, 2, 59, "Output",ExpressionUUID->"a6766189-32c2-4eb6-ad1b-e2a63cd87dc7"] }, Open ]], Cell[CellGroupData[{ -Cell[373999, 8864, 2249, 64, 70, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], -Cell[376251, 8930, 342, 6, 70, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], -Cell[376596, 8938, 342, 6, 70, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], -Cell[376941, 8946, 101, 0, 70, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[183557, 4839, 927, 30, 241, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[184487, 4871, 196, 2, 59, "Output",ExpressionUUID->"508d530f-05d1-449d-af8f-cc04be47f8c7"] }, Open ]], Cell[CellGroupData[{ -Cell[377079, 8951, 2221, 64, 70, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], -Cell[379303, 9017, 342, 6, 70, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], -Cell[379648, 9025, 342, 6, 70, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], -Cell[379993, 9033, 100, 0, 70, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[184720, 4878, 908, 29, 241, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[185631, 4909, 218, 3, 59, "Output",ExpressionUUID->"82f493a3-1030-43eb-beef-23f47d30fc0e"] }, Open ]], Cell[CellGroupData[{ -Cell[380130, 9038, 2223, 64, 70, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], -Cell[382356, 9104, 342, 6, 70, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], -Cell[382701, 9112, 342, 6, 70, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], -Cell[383046, 9120, 101, 0, 70, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[185886, 4917, 554, 18, 93, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[186443, 4937, 328, 6, 82, "Output",ExpressionUUID->"452ab8f1-139e-467e-b1c2-23a3efc605dc"] }, Open ]], Cell[CellGroupData[{ -Cell[383184, 9125, 213, 6, 70, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[383400, 9133, 102, 0, 70, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +Cell[186808, 4948, 647, 21, 163, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[187458, 4971, 456, 9, 140, "Output",ExpressionUUID->"62f358d6-3654-4015-8c3e-6608f325c5c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187951, 4985, 166, 4, 98, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[188120, 4991, 345, 7, 133, "Output",ExpressionUUID->"f9031242-0a9e-43e5-b3b6-acf3f7e37dfb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188502, 5003, 166, 4, 97, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[188671, 5009, 609, 15, 181, "Output",ExpressionUUID->"490578d9-e33d-40f1-a4be-419dc40fa4c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[189317, 5029, 177, 4, 77, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[189497, 5035, 858, 21, 262, "Output",ExpressionUUID->"3e705fd2-b9a4-42f4-8102-0d64ff5cbe1e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[190392, 5061, 177, 4, 77, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[190572, 5067, 471, 10, 107, "Output",ExpressionUUID->"b6c6e5a8-2be5-46ed-972f-e7921d6f7da2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[191080, 5082, 6051, 184, 1957, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[197134, 5268, 1779, 47, 796, "Output",ExpressionUUID->"e0312a76-7bba-4a5b-a8b5-1e07a2a24b2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198950, 5320, 364, 8, 75, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[199317, 5330, 12070, 247, 2783, "Output",ExpressionUUID->"3784ccc0-8df8-40b4-868c-96283e8eed01"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211424, 5582, 6118, 186, 1865, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[217545, 5770, 1810, 47, 784, "Output",ExpressionUUID->"06044e5d-7ba0-4a8b-bf9d-300a60982fdc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219392, 5822, 364, 8, 75, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[219759, 5832, 11209, 226, 2566, "Output",ExpressionUUID->"6537e137-20f7-4823-beab-2cbc71db42ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[231005, 6063, 2659, 87, 804, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[233667, 6152, 329, 6, 82, "Output",ExpressionUUID->"059ce4e7-8334-4422-a214-5ec1836337ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[234033, 6163, 2599, 84, 804, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[236635, 6249, 307, 5, 82, "Output",ExpressionUUID->"6606a7bb-8510-4ab0-81dc-b22e9f063ef3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[236979, 6259, 3708, 117, 1253, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[240690, 6378, 384, 8, 92, "Output",ExpressionUUID->"520a62d6-80de-4c85-91e6-40ee9a38270e"] +}, Open ]], +Cell[241089, 6389, 160, 3, 126, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[241274, 6396, 2209, 61, 594, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[243486, 6459, 559, 12, 206, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +Cell[244048, 6473, 560, 12, 206, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +Cell[244611, 6487, 565, 12, 206, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +Cell[245179, 6501, 456, 10, 77, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +Cell[245638, 6513, 170, 3, 59, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[245845, 6521, 2054, 59, 594, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[247902, 6582, 559, 12, 126, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +Cell[248464, 6596, 559, 12, 126, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +Cell[249026, 6610, 565, 12, 126, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +Cell[249594, 6624, 458, 10, 126, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +Cell[250055, 6636, 170, 3, 126, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[250262, 6644, 1938, 53, 126, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[252203, 6699, 20196, 379, 126, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[272436, 7083, 2094, 60, 698, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[274533, 7145, 503, 11, 176, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +Cell[275039, 7158, 505, 11, 176, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +Cell[275547, 7171, 506, 11, 176, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +Cell[276056, 7184, 455, 10, 77, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +Cell[276514, 7196, 55770, 961, 320, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], +Cell[332299, 8160, 2455, 69, 637, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[334757, 8231, 209, 5, 52, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[CellGroupData[{ +Cell[334991, 8240, 217, 7, 85, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[335211, 8249, 173, 3, 59, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335421, 8257, 1814, 53, 643, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[337238, 8312, 506, 11, 126, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +Cell[337747, 8325, 508, 11, 126, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +Cell[338258, 8338, 509, 11, 126, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +Cell[338770, 8351, 458, 10, 126, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +Cell[339231, 8363, 24818, 454, 126, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364086, 8822, 1616, 48, 126, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[365705, 8872, 582, 12, 126, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +Cell[366290, 8886, 588, 12, 126, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +Cell[366881, 8900, 590, 12, 126, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +Cell[367474, 8914, 458, 10, 126, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +Cell[367935, 8926, 171, 3, 126, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368143, 8934, 2251, 64, 126, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[370397, 9000, 557, 12, 126, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +Cell[370957, 9014, 560, 12, 126, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +Cell[371520, 9028, 565, 12, 126, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +Cell[372088, 9042, 458, 10, 126, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +Cell[372549, 9054, 172, 3, 126, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372758, 9062, 2218, 64, 126, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[374979, 9128, 559, 12, 126, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +Cell[375541, 9142, 562, 12, 126, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +Cell[376106, 9156, 563, 12, 126, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +Cell[376672, 9170, 458, 10, 126, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +Cell[377133, 9182, 170, 3, 126, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377340, 9190, 2221, 64, 126, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[379564, 9256, 559, 12, 126, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +Cell[380126, 9270, 562, 12, 126, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +Cell[380691, 9284, 563, 12, 126, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +Cell[381257, 9298, 458, 10, 126, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +Cell[381718, 9310, 171, 3, 126, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381926, 9318, 213, 6, 126, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[382142, 9326, 173, 3, 126, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, Open ]], +Cell[382330, 9332, 245, 5, 126, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[382600, 9341, 558, 19, 126, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[383161, 9362, 170, 3, 126, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383368, 9370, 170, 5, 126, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[383541, 9377, 173, 3, 126, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383751, 9385, 181, 5, 126, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[383935, 9392, 171, 3, 126, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384143, 9400, 6055, 185, 126, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[390201, 9587, 172, 3, 126, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390410, 9595, 368, 9, 126, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[390781, 9606, 172, 3, 126, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390990, 9614, 6122, 187, 126, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[397115, 9803, 173, 3, 126, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397325, 9811, 368, 9, 126, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[397696, 9822, 170, 3, 126, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397903, 9830, 2663, 88, 126, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[400569, 9920, 171, 3, 126, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[400777, 9928, 2603, 85, 126, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[403383, 10015, 173, 3, 126, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[403593, 10023, 3712, 118, 126, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[407308, 10143, 174, 3, 126, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[407519, 10151, 2049, 58, 126, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[409571, 10211, 579, 12, 126, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +Cell[410153, 10225, 582, 12, 126, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +Cell[410738, 10239, 584, 12, 126, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +Cell[411325, 10253, 458, 10, 126, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +Cell[411786, 10265, 172, 3, 126, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411995, 10273, 2054, 59, 126, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[414052, 10334, 577, 12, 126, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +Cell[414632, 10348, 580, 12, 126, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +Cell[415215, 10362, 583, 12, 126, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +Cell[415801, 10376, 456, 10, 126, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +Cell[416260, 10388, 171, 3, 126, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[416468, 10396, 2030, 55, 126, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[418501, 10453, 20493, 384, 126, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439031, 10842, 2120, 60, 126, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[441154, 10904, 501, 11, 126, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +Cell[441658, 10917, 504, 11, 126, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], +Cell[442165, 10930, 508, 11, 126, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +Cell[442676, 10943, 456, 10, 126, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +Cell[443135, 10955, 31462, 562, 126, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], +Cell[474612, 11520, 209, 5, 126, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[CellGroupData[{ +Cell[474846, 11529, 1616, 48, 126, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[476465, 11579, 596, 12, 126, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +Cell[477064, 11593, 602, 12, 126, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +Cell[477669, 11607, 605, 12, 126, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +Cell[478277, 11621, 458, 10, 126, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +Cell[478738, 11633, 171, 3, 126, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478946, 11641, 2251, 64, 126, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[481200, 11707, 577, 12, 126, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +Cell[481780, 11721, 580, 12, 126, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +Cell[482363, 11735, 586, 12, 126, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +Cell[482952, 11749, 458, 10, 126, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +Cell[483413, 11761, 173, 3, 126, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483623, 11769, 2219, 64, 126, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[485845, 11835, 579, 12, 126, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +Cell[486427, 11849, 580, 12, 126, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +Cell[487010, 11863, 586, 12, 126, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +Cell[487599, 11877, 458, 10, 126, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +Cell[488060, 11889, 171, 3, 126, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488268, 11897, 2219, 64, 126, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[490490, 11963, 576, 12, 126, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +Cell[491069, 11977, 580, 12, 126, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +Cell[491652, 11991, 584, 12, 126, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +Cell[492239, 12005, 458, 10, 126, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +Cell[492700, 12017, 173, 3, 126, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492910, 12025, 212, 6, 126, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[493125, 12033, 172, 3, 126, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, Open ]], +Cell[493312, 12039, 244, 5, 126, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[493581, 12048, 558, 19, 126, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[494142, 12069, 171, 3, 126, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494350, 12077, 170, 5, 126, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[494523, 12084, 171, 3, 126, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494731, 12092, 181, 5, 126, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[494915, 12099, 173, 3, 126, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495125, 12107, 6055, 185, 126, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[501183, 12294, 173, 3, 126, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501393, 12302, 368, 9, 126, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[501764, 12313, 172, 3, 126, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], +Cell[CellGroupData[{ +Cell[501973, 12321, 6122, 187, 126, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[508098, 12510, 173, 3, 126, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508308, 12518, 368, 9, 126, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[508679, 12529, 172, 3, 126, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508888, 12537, 2663, 88, 126, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[511554, 12627, 173, 3, 126, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511764, 12635, 2603, 85, 126, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[514370, 12722, 171, 3, 126, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514578, 12730, 3712, 118, 126, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[518293, 12850, 174, 3, 126, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518504, 12858, 2054, 59, 126, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[520561, 12919, 574, 12, 126, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +Cell[521138, 12933, 580, 12, 126, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +Cell[521721, 12947, 580, 12, 126, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +Cell[522304, 12961, 456, 10, 126, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +Cell[522763, 12973, 172, 3, 126, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522972, 12981, 2054, 59, 126, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[525029, 13042, 576, 12, 126, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +Cell[525608, 13056, 577, 12, 126, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +Cell[526188, 13070, 582, 12, 126, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +Cell[526773, 13084, 458, 10, 126, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +Cell[527234, 13096, 172, 3, 126, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527443, 13104, 2028, 55, 126, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[529474, 13161, 20021, 378, 126, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[549532, 13544, 2146, 61, 126, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[551681, 13607, 502, 11, 126, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +Cell[552186, 13620, 506, 11, 126, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +Cell[552695, 13633, 508, 11, 126, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +Cell[553206, 13646, 456, 10, 126, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +Cell[553665, 13658, 30015, 538, 126, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], +Cell[583695, 14199, 209, 5, 126, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[CellGroupData[{ +Cell[583929, 14208, 1590, 47, 126, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[585522, 14257, 342, 6, 126, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], +Cell[585867, 14265, 101, 0, 126, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], +Cell[CellGroupData[{ +Cell[586005, 14270, 2249, 64, 126, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[588257, 14336, 342, 6, 126, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], +Cell[588602, 14344, 342, 6, 126, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], +Cell[588947, 14352, 101, 0, 126, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[589085, 14357, 2221, 64, 126, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[591309, 14423, 342, 6, 126, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], +Cell[591654, 14431, 342, 6, 126, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], +Cell[591999, 14439, 100, 0, 126, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[592136, 14444, 2223, 64, 126, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[594362, 14510, 342, 6, 126, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], +Cell[594707, 14518, 342, 6, 126, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], +Cell[595052, 14526, 101, 0, 126, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[595190, 14531, 213, 6, 126, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[595406, 14539, 102, 0, 126, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] }, Open ]] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw1.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw1.nb index 78f75b1..843eeb7 100644 --- a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw1.nb @@ -3,42 +3,5045 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 399390, 9355] -NotebookOptionsPosition[ 375168, 8989] -NotebookOutlinePosition[ 375597, 9006] -CellTagsIndexPosition[ 375554, 9003] +NotebookDataLength[ 675560, 16235] +NotebookOptionsPosition[ 634890, 15586] +NotebookOutlinePosition[ 635303, 15603] +CellTagsIndexPosition[ 635260, 15600] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.991849227197853*^9},ExpressionUUID->"c5bb4ac7-6666-c043-9d96-\ -2dda1d801f63"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849227899128*^9, - 3.9918492279041367`*^9}},ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-\ -14a272e65d1f"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "6.05"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9938046575111637`*^9, 3.993804701607058*^9}, + 3.993804733204545*^9, {3.993909737291142*^9, 3.993909742224861*^9}, { + 3.993909952221772*^9, 3.993909984030127*^9}}, + CellLabel-> + "In[375]:=",ExpressionUUID->"e2613019-1cd1-4448-b93f-d9e947ba1863"], + +Cell[BoxData["6.05`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.993804549577532*^9, 3.993804625944013*^9, { + 3.993804662482604*^9, 3.993804748770383*^9}, 3.9939096014243507`*^9, + 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993909908282672*^9, { + 3.9939099553998528`*^9, 3.993909989690781*^9}, 3.993911037635344*^9}, + CellLabel-> + "Out[375]=",ExpressionUUID->"d4fd105c-488d-48db-b763-a57b5c481649"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993909136325391*^9, 3.993909137492978*^9}}, + CellLabel-> + "In[376]:=",ExpressionUUID->"443e9bcf-7ea8-4c60-b9dd-9b2a8fb814b9"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ -fc37192f9bb8"], + 3.9913196497381973`*^9, 3.9938045496655397`*^9, 3.9938046259897127`*^9, { + 3.9938046625249434`*^9, 3.9938047488188868`*^9}, 3.993909601730575*^9, + 3.993909669289562*^9, 3.99390975259161*^9, 3.993909908569488*^9, { + 3.993909955491517*^9, 3.9939099897296047`*^9}, 3.993911037690444*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"1a9ea5cd-87c2-40b2-9c38-7bc78fd2c0c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "156"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.99380431527282*^9, 3.993804315993903*^9}}, + CellLabel-> + "In[377]:=",ExpressionUUID->"0440c475-241f-431d-a534-e7681d26cb0a"], + +Cell[BoxData["156"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993804317319977*^9, 3.9938045496866302`*^9, + 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}, + 3.9939096017486753`*^9, 3.9939096693086853`*^9, 3.9939097526160994`*^9, + 3.993909908588579*^9, {3.993909955509431*^9, 3.9939099897457*^9}, + 3.993911037703473*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"f72af903-72ad-49f7-b876-be07a6a28860"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[378]:=",ExpressionUUID->"ef1d6164-8176-48b6-850c-9d997dda1516"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993804549706154*^9, 3.9938046260288763`*^9, { + 3.993804662560594*^9, 3.993804748856688*^9}, 3.9939096017670803`*^9, + 3.9939096693268347`*^9, 3.993909752633919*^9, 3.993909908607675*^9, { + 3.993909955527431*^9, 3.993909989761148*^9}, 3.9939110377145157`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"5f815c8b-ff3b-435d-97be-e18947ab8f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"41f05153-1908-4f00-a841-ae32c5084d77"], + +Cell[BoxData["0.5455000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.99380454972574*^9, 3.993804626048635*^9, { + 3.9938046625774603`*^9, 3.993804748860417*^9}, 3.993909601785378*^9, + 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993909908626553*^9, { + 3.9939099555442657`*^9, 3.993909989776597*^9}, 3.9939110377283*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"7a9c001c-3924-42d7-bc5a-54b5337189c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"41549578-bfdd-4c63-919a-ca83e6cfaefc"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.993804549747018*^9, 3.993804626052534*^9, { + 3.9938046625812197`*^9, 3.9938047488891172`*^9}, 3.9939096018028593`*^9, + 3.993909669362465*^9, 3.993909752666353*^9, 3.99390990864529*^9, { + 3.9939099555482264`*^9, 3.993909989792164*^9}, 3.9939110377422857`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"bafbd14c-ca5e-4a37-a07c-0553e416ccb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel-> + "In[381]:=",ExpressionUUID->"5709b6e1-d7b3-4886-a917-560d39a0bd84"], + +Cell[BoxData["6.244526630021248`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993804549770184*^9, 3.993804626085994*^9, { + 3.9938046626047153`*^9, 3.993804748905245*^9}, 3.993909601820876*^9, + 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993909908664627*^9, { + 3.993909955570965*^9, 3.993909989807292*^9}, 3.99391103775216*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"60667043-fdb9-4519-afb3-9c89e6ca31e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"a0107a62-7ec2-409a-b807-ea94b3cf0630"], + +Cell[BoxData["5.08024220226995`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9938045497749643`*^9, 3.993804626103525*^9, { + 3.993804662619735*^9, 3.993804748921926*^9}, 3.993909601824861*^9, + 3.99390966939812*^9, 3.993909752692038*^9, 3.993909908682929*^9, { + 3.993909955589458*^9, 3.993909989822392*^9}, 3.99391103776814*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"51e3025d-5121-4acc-a584-c09be5affe5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9831"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9938043369460163`*^9, 3.993804343883932*^9}}, + CellLabel-> + "In[383]:=",ExpressionUUID->"636ac2f6-3024-432d-b163-bcf5b0a8ed7a"], + +Cell[BoxData["0.9831`"], "Output", + CellChangeTimes->{ + 3.993804549811586*^9, 3.993804626121752*^9, {3.993804662635777*^9, + 3.9938047489393063`*^9}, 3.993909601854841*^9, 3.993909669421215*^9, + 3.9939097527133102`*^9, 3.99390990870128*^9, {3.993909955606114*^9, + 3.9939099898261213`*^9}, 3.9939110377823877`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"61bb687b-7628-47f0-ba8d-cc0dcb08bdec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.463"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.9938043632365713`*^9, 3.993804381532929*^9}}, + CellLabel-> + "In[384]:=",ExpressionUUID->"7b7fb43d-a28c-43a3-b61a-23f6168edf15"], + +Cell[BoxData["0.463`"], "Output", + CellChangeTimes->{ + 3.993804549830037*^9, 3.993804626139834*^9, {3.993804662651184*^9, + 3.993804748955449*^9}, 3.993909601874164*^9, 3.993909669438889*^9, + 3.99390975272956*^9, 3.9939099087196302`*^9, {3.99390995562206*^9, + 3.993909989846019*^9}, 3.993911037796595*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"6a8cd77a-0723-4fdd-befb-25887a9176ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[385]:=",ExpressionUUID->"b9037d32-08c5-4b43-b77b-c223e453cddb"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9938045498689833`*^9, 3.993804626160439*^9, { + 3.993804662666739*^9, 3.9938047489718924`*^9}, 3.993909601896028*^9, + 3.993909669457499*^9, 3.993909752744871*^9, 3.9939099087374763`*^9, { + 3.993909955638915*^9, 3.993909989862071*^9}, 3.993911037811788*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"88526cba-413c-4e8f-a247-63b7aaaa582a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[386]:=",ExpressionUUID->"fcbeb936-c4b5-4282-b9a2-fe0786c368b1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.9938045498874207`*^9, 3.9938046261797523`*^9, { + 3.993804662682715*^9, 3.993804748988103*^9}, 3.993909601914316*^9, + 3.993909669475305*^9, 3.993909752760817*^9, 3.993909908755747*^9, { + 3.993909955656601*^9, 3.993909989865912*^9}, 3.9939110378223057`*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"2b687b6b-552c-4a6b-ad1e-afbd230ca4ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[387]:=",ExpressionUUID->"417e4130-f2b1-4e39-b540-9674d94f7503"], + +Cell[BoxData["2.5173601133375656`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9938045499058733`*^9, 3.993804626198407*^9, { + 3.9938046626977053`*^9, 3.993804749004431*^9}, 3.9939096019331207`*^9, + 3.993909669493326*^9, 3.993909752780408*^9, 3.993909908773466*^9, { + 3.993909955671833*^9, 3.993909989883627*^9}, 3.993911037838347*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"32b8ffec-a4e8-45a2-a216-40ca76ffe4be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[388]:=",ExpressionUUID->"b4aa75b6-ed33-41c9-b0cd-b743a5f94ef8"], + +Cell[BoxData["1.5234450434796134`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993804549925211*^9, 3.993804626217005*^9, { + 3.993804662711796*^9, 3.99380474902066*^9}, 3.993909601952641*^9, + 3.9939096695112753`*^9, 3.993909752793829*^9, 3.9939099087914257`*^9, { + 3.993909955686531*^9, 3.993909989897831*^9}, 3.993911037853894*^9}, + CellLabel-> + "Out[388]=",ExpressionUUID->"179ec3e0-52a4-4463-92d2-a771f3308974"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[389]:=",ExpressionUUID->"df14f441-4a87-4295-a720-81ccd5a32dae"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { + 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, + 3.993909669529284*^9, 3.993909752809037*^9, 3.9939099088105917`*^9, { + 3.993909955701372*^9, 3.993909989911367*^9}, 3.993911037869225*^9}, + CellLabel-> + "Out[389]=",ExpressionUUID->"5ec68db5-7cae-42cb-a223-7b33cf0f9825"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[390]:=",ExpressionUUID->"fb1bf839-fed5-405c-bd20-b6c9348412b6"], + +Cell[BoxData[ + RowBox[{"-", "0.056142152983087`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993804549962688*^9, 3.993804626257918*^9, { + 3.993804662739541*^9, 3.993804749053331*^9}, 3.9939096019922533`*^9, + 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993909908814773*^9, { + 3.993909955715828*^9, 3.993909989925456*^9}, 3.993911037882963*^9}, + CellLabel-> + "Out[390]=",ExpressionUUID->"fce84782-b694-483c-8ffe-91cb0ed7b14f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"8373afe2-afec-489f-8564-39b14c4e3251"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { + 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, + 3.993909669564651*^9, 3.993909752838642*^9, 3.9939099088478737`*^9, { + 3.993909955730867*^9, 3.993909989940257*^9}, 3.9939110378987722`*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"03369303-0f9a-496b-b644-da890b74728b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[392]:=",ExpressionUUID->"ecd52cbc-ac4b-46c8-9f6d-5b532e60bc36"], + +Cell[BoxData["0.5841645161809887`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.99380455000006*^9, 3.993804626300075*^9, { + 3.993804662773251*^9, 3.993804749085907*^9}, 3.993909602031176*^9, + 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993909908866128*^9, { + 3.99390995574667*^9, 3.993909989956238*^9}, 3.9939110379104853`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"8295c406-bcd4-426c-8f3a-94863916736a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[393]:=",ExpressionUUID->"f9e1f2f8-62ca-48cc-a15b-da24067d61ee"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993804550019484*^9, 3.993804626319972*^9, { + 3.993804662777142*^9, 3.9938047491020308`*^9}, 3.99390960204895*^9, + 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939099088839207`*^9, { + 3.993909955761622*^9, 3.993909989971353*^9}, 3.993911037920701*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"6f3c7896-8947-4195-a0f4-f721808fb326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[394]:=",ExpressionUUID->"e24330f7-97a2-461b-a8b4-b8973bc9a75a"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9938045500378237`*^9, 3.993804626339315*^9, { + 3.993804662793344*^9, 3.99380474911817*^9}, 3.993909602068466*^9, + 3.9939096696185913`*^9, 3.993909752884066*^9, 3.993909908903553*^9, { + 3.9939099557765713`*^9, 3.993909989986253*^9}, 3.993911037933847*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"6d31738c-f199-4c93-9a6a-236c16f13995"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[395]:=",ExpressionUUID->"011c1e33-c606-4918-88c9-27d634a13cba"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9938045500560837`*^9, 3.9938046263600817`*^9, { + 3.99380466280895*^9, 3.993804749134166*^9}, 3.993909602086402*^9, + 3.9939096696362677`*^9, 3.99390975290001*^9, 3.9939099089231663`*^9, { + 3.9939099557917356`*^9, 3.9939099900012712`*^9}, 3.99391103794767*^9}, + CellLabel-> + "Out[395]=",ExpressionUUID->"9c81f793-174e-4d73-894f-eabad6bf8aa6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[396]:=",ExpressionUUID->"6be913a8-c54f-488d-8d90-c7271ff8c2de"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993804550075344*^9, 3.993804626383381*^9, { + 3.99380466282749*^9, 3.993804749150152*^9}, 3.993909602104745*^9, + 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993909908940823*^9, { + 3.993909955808311*^9, 3.993909990017736*^9}, 3.993911037961752*^9}, + CellLabel-> + "Out[396]=",ExpressionUUID->"420596df-c0fc-4bd7-9d6f-bc679216ad2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[397]:=",ExpressionUUID->"add03edc-2776-45d5-a58f-7187a239bb40"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993804550093996*^9, 3.99380462640412*^9, { + 3.9938046628451138`*^9, 3.993804749168808*^9}, 3.993909602124238*^9, + 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993909908959701*^9, { + 3.99390995582368*^9, 3.9939099900328217`*^9}, 3.993911037972886*^9}, + CellLabel-> + "Out[397]=",ExpressionUUID->"bd6ff632-d188-49b1-89b5-efeb048893f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.9938046144530077`*^9, 3.9938046145855627`*^9}}, + CellLabel-> + "In[398]:=",ExpressionUUID->"2fbd90d7-193f-4d04-8180-1206116ebdb2"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993804626423663*^9, {3.993804662861299*^9, + 3.99380474918727*^9}, 3.993909602142963*^9, 3.99390966968908*^9, + 3.993909752947946*^9, 3.993909908977618*^9, {3.993909955827662*^9, + 3.993909990050256*^9}, 3.993911037994136*^9}, + CellLabel-> + "Out[398]=",ExpressionUUID->"e5e42f13-5ce8-4763-bb85-89c27bbf3fd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.99380461799697*^9, 3.993804618062627*^9}}, + CellLabel-> + "In[399]:=",ExpressionUUID->"fc4235bf-fadc-4690-8f0d-18f3b2200088"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9938045501483994`*^9, 3.993804626442574*^9, { + 3.993804662877561*^9, 3.9938047492047462`*^9}, 3.993909602161409*^9, + 3.993909669707423*^9, 3.993909752964058*^9, 3.9939099089960423`*^9, { + 3.993909955845819*^9, 3.993909990065692*^9}, 3.993911038007214*^9}, + CellLabel-> + "Out[399]=",ExpressionUUID->"24dbef3c-4ae3-41d7-9b31-769355b412ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[400]:=",ExpressionUUID->"5f74ce5d-7cfb-4ba8-aaf8-5d83cab854b9"], + +Cell[BoxData["84"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993804550167096*^9, 3.993804626459854*^9, { + 3.993804662896564*^9, 3.9938047492214317`*^9}, 3.993909602179817*^9, + 3.993909669724697*^9, 3.993909752980503*^9, 3.9939099090164824`*^9, { + 3.993909955861395*^9, 3.9939099900817633`*^9}, 3.993911038026639*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"10cff456-b828-4002-9096-a1ef2322e773"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[401]:=",ExpressionUUID->"9fa1cd0a-4306-4258-afa3-6065345a4359"], + +Cell[BoxData["0.11153846153846153`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9938045501856823`*^9, 3.993804626476894*^9, { + 3.993804662912559*^9, 3.993804749238111*^9}, 3.993909602199831*^9, + 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993909909035789*^9, { + 3.993909955876047*^9, 3.9939099900975027`*^9}, 3.9939110380410423`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"33004a9b-800c-4fff-bb82-fb359bbd1c9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"09c01555-6043-4676-bd39-e31b19457e4b"], + +Cell[BoxData[ + RowBox[{"-", "2.562307692307692`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993804550204549*^9, 3.9938046264931793`*^9, { + 3.993804662930933*^9, 3.993804749256987*^9}, 3.993909602217969*^9, + 3.993909669760494*^9, 3.99390975301192*^9, 3.993909909054161*^9, { + 3.99390995589108*^9, 3.993909990112661*^9}, 3.993911038085093*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"9b490649-9d84-4d5b-8157-f49fff47fe6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[403]:=",ExpressionUUID->"69f69ce7-bfb8-4f66-ba9e-f95a6d86dc06"], + +Cell[BoxData["22.163907548137733`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993804550224925*^9, 3.993804626512244*^9, { + 3.993804662948985*^9, 3.993804749273611*^9}, 3.993909602237144*^9, + 3.99390966977844*^9, 3.993909753027061*^9, 3.993909909073007*^9, { + 3.9939099559075603`*^9, 3.993909990129081*^9}, 3.993911038106782*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"a263013c-a933-46e6-89ad-22e7826fe2e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[404]:=",ExpressionUUID->"2ba5902a-1951-4847-91cb-b0923cd2fa14"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.993804550242552*^9, 3.993804626529005*^9, { + 3.993804662966734*^9, 3.9938047492900057`*^9}, 3.993909602255596*^9, + 3.993909669800799*^9, 3.993909753041724*^9, 3.993909909091654*^9, { + 3.9939099559230347`*^9, 3.993909990146391*^9}, 3.9939110381243277`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"b109a9cd-f642-4657-b4fc-b30b971cac78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.653"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9938043992805843`*^9, 3.993804401771452*^9}}, + CellLabel-> + "In[405]:=",ExpressionUUID->"db3c1156-4ab5-445a-93e3-5e6eb64b0af5"], + +Cell[BoxData["1.653`"], "Output", + CellChangeTimes->{ + 3.993804550280451*^9, 3.993804626545594*^9, {3.993804662983712*^9, + 3.9938047493074627`*^9}, 3.9939096022742043`*^9, 3.99390966981877*^9, + 3.9939097530579777`*^9, 3.993909909111307*^9, {3.993909955941221*^9, + 3.993909990162526*^9}, 3.993911038139822*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"b2fbf44f-506d-44e8-9544-1867ac6550b2"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849229804535*^9, - 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ -3056e2e0b957"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[406]:=",ExpressionUUID->"5931bbf5-181e-415f-82d2-c1c2cb0e608a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.855"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.9938044044051847`*^9, 3.993804405718573*^9}}, + CellLabel-> + "In[407]:=",ExpressionUUID->"bd268473-bc46-4773-9997-e67daff24693"], + +Cell[BoxData["0.855`"], "Output", + CellChangeTimes->{ + 3.9938045503168097`*^9, 3.993804626574059*^9, {3.993804663013727*^9, + 3.993804749370492*^9}, 3.993909602333745*^9, 3.99390966987148*^9, + 3.9939097530831842`*^9, 3.993909909145574*^9, {3.993909955961776*^9, + 3.993909990180032*^9}, 3.993911038176929*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"f891d17f-6856-46a0-b060-d5a4704e4ab2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[408]:=",ExpressionUUID->"972ec9a7-2100-480e-904a-88a4be38cc23"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.405"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9938044089096622`*^9, 3.993804410585486*^9}}, + CellLabel-> + "In[409]:=",ExpressionUUID->"aa1e39a9-2135-47d8-a0b5-63b872d3c5ae"], + +Cell[BoxData["2.405`"], "Output", + CellChangeTimes->{ + 3.993804550350713*^9, 3.993804626598034*^9, {3.993804663037463*^9, + 3.993804749435276*^9}, 3.9939096023888474`*^9, 3.993909669925479*^9, + 3.9939097531059*^9, 3.993909909180294*^9, {3.9939099559820957`*^9, + 3.993909990196824*^9}, 3.993911038201398*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"69bb5a1b-11ec-44f4-bd72-b6479f6f28cb"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[410]:=",ExpressionUUID->"9f0b83ba-fe4d-4494-b58a-252ef815fdf2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.225"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993804414830567*^9, 3.993804416147113*^9}}, + CellLabel-> + "In[411]:=",ExpressionUUID->"d7bec374-17fb-47a0-a3a1-78c5a8fef486"], + +Cell[BoxData["1.225`"], "Output", + CellChangeTimes->{ + 3.993804550383745*^9, 3.993804626621963*^9, {3.993804663060033*^9, + 3.9938047494929237`*^9}, 3.9939096024465313`*^9, 3.993909669980788*^9, + 3.993909753130068*^9, 3.993909909216509*^9, {3.993909956000244*^9, + 3.993909990213717*^9}, 3.993911038229026*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"2d4fc780-da15-4d36-985b-a37e7dd5f0b3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[412]:=",ExpressionUUID->"337543ae-832b-4d9b-bfc6-7bcb457ba7e6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.63"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993804418872067*^9, + 3.9938044202542753`*^9}}, + CellLabel-> + "In[413]:=",ExpressionUUID->"0a708962-e9f1-4707-b1f9-836dce9e0193"], + +Cell[BoxData["1.63`"], "Output", + CellChangeTimes->{ + 3.993804550416999*^9, 3.993804626645709*^9, {3.9938046630845337`*^9, + 3.993804749547261*^9}, 3.993909602527773*^9, 3.993909670035091*^9, + 3.993909753153574*^9, 3.993909909250422*^9, {3.993909956017232*^9, + 3.993909990230207*^9}, 3.99391103825677*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"b81f3211-78b6-4bd3-9a2e-9e7fb7aa0b0d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[414]:=",ExpressionUUID->"969e4461-b550-4fcd-9506-8fa9ab11c4a4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.5571"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993804423858293*^9, + 3.993804426562767*^9}}, + CellLabel-> + "In[415]:=",ExpressionUUID->"8a5a4a0c-3c8d-43f6-bc79-b05e89692fa2"], + +Cell[BoxData["0.5571`"], "Output", + CellChangeTimes->{ + 3.993804550449337*^9, 3.993804626671207*^9, {3.993804663115242*^9, + 3.993804749603999*^9}, 3.993909602589055*^9, 3.9939096700891027`*^9, + 3.993909753176607*^9, 3.993909909285474*^9, {3.9939099560344143`*^9, + 3.9939099902470818`*^9}, 3.9939110382835693`*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"22972986-ffaf-43d9-8331-1203e6e77faa"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[416]:=",ExpressionUUID->"d562173a-f871-47b4-b1cc-e4805c0d6d5a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938044301504927`*^9, + 3.993804433535384*^9}}, + CellLabel-> + "In[417]:=",ExpressionUUID->"f93cc465-f599-4745-bcbf-a8a51fd7a1a9"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804550483719*^9, 3.993804626698537*^9, {3.993804663139299*^9, + 3.993804749658854*^9}, 3.993909602653262*^9, 3.993909670143072*^9, + 3.993909753199719*^9, 3.993909909346984*^9, {3.993909956051777*^9, + 3.9939099902633963`*^9}, 3.99391103830669*^9}, + CellLabel-> + "Out[417]=",ExpressionUUID->"9c6e512b-4de4-46ef-8ab2-e0215070a0c1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[418]:=",ExpressionUUID->"c7af8400-6139-42fe-a5e8-672bdba2cdf2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993804436228294*^9, 3.993804438250544*^9}}, + CellLabel-> + "In[419]:=",ExpressionUUID->"89009734-4da1-455a-b750-75ef5b7b38c4"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804550516501*^9, 3.993804626722493*^9, {3.9938046631629744`*^9, + 3.993804749712779*^9}, 3.9939096027072487`*^9, 3.993909670196845*^9, + 3.9939097532228928`*^9, 3.993909909381329*^9, {3.993909956068966*^9, + 3.993909990279929*^9}, 3.9939110383309317`*^9}, + CellLabel-> + "Out[419]=",ExpressionUUID->"63f4dbf2-0f15-4a23-8838-ba96610c34f3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[420]:=",ExpressionUUID->"6e419f8d-b777-4b6c-8b26-1bc47e16689c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel-> + "In[421]:=",ExpressionUUID->"59c6a01e-7abe-4a0d-b5ab-eddbba5a8883"], + +Cell[BoxData[ + RowBox[{"-", "0.04675250913077061`"}]], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993804550599751*^9, 3.993804626769621*^9, { + 3.99380466321212*^9, 3.993804749779405*^9}, 3.993909602821623*^9, + 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993909909468431*^9, { + 3.9939099561101503`*^9, 3.993909990324842*^9}, 3.99391103841514*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"74b5eeb9-8895-4640-9e7f-b97f932738de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[422]:=",ExpressionUUID->"9fe9fa3a-9aad-4efe-9673-a425841a5d45"], + +Cell[BoxData["0.08542989528290149`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9938045506724253`*^9, 3.993804626799774*^9, { + 3.993804663242297*^9, 3.993804749831417*^9}, 3.993909602850985*^9, + 3.993909670308428*^9, 3.99390975330634*^9, 3.993909909504902*^9, { + 3.993909956139316*^9, 3.993909990356688*^9}, 3.9939110384758997`*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"225c2c94-b8fe-47b2-aa85-cd1a95a70080"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[423]:=",ExpressionUUID->"ef1feabe-3968-464c-844d-1e5d155c2fa3"], + +Cell[BoxData[ + RowBox[{"-", "92.97992176536582`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9938045506993027`*^9, 3.993804626828765*^9, { + 3.99380466327107*^9, 3.99380474985798*^9}, 3.993909602878909*^9, + 3.9939096703348618`*^9, 3.993909753333283*^9, 3.993909909537113*^9, { + 3.993909956164773*^9, 3.993909990381176*^9}, 3.993911038526807*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"3fe860d3-0a7c-452c-94a8-90d5b40fe390"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[424]:=",ExpressionUUID->"1e581ee0-054b-46d2-8c5a-9bb5982d598c"], + +Cell[BoxData[ + RowBox[{"-", "58.84836946427625`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993804550730234*^9, 3.993804626860573*^9, { + 3.99380466335039*^9, 3.993804749888824*^9}, 3.9939096029089117`*^9, + 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939099095691557`*^9, { + 3.9939099561943274`*^9, 3.9939099904093027`*^9}, 3.9939110385884027`*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"6a9faec9-eed0-4e11-a587-a6ac3ae026a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[425]:=",ExpressionUUID->"5583bf70-cddf-4d50-81b6-7778328ce6a0"], + +Cell[BoxData[ + RowBox[{"-", "175.78557664639112`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993804550761911*^9, 3.993804626893774*^9, { + 3.993804663389638*^9, 3.993804749919907*^9}, 3.9939096029398603`*^9, + 3.993909670396442*^9, 3.993909753395891*^9, 3.9939099096076517`*^9, { + 3.9939099562247763`*^9, 3.9939099904381638`*^9}, 3.993911038653371*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"14eff3a8-4161-422c-a3a6-8c988877b3f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[426]:=",ExpressionUUID->"d4a9e022-861f-44b4-abb0-cf2c42b811ab"], + +Cell[BoxData[ + RowBox[{"-", "221.57551938396955`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993804550797638*^9, 3.993804626930235*^9, { + 3.993804663472403*^9, 3.993804749955412*^9}, 3.993909602975071*^9, + 3.9939096704323187`*^9, 3.993909753433277*^9, 3.99390990964828*^9, { + 3.9939099562605953`*^9, 3.993909990472554*^9}, 3.993911038752912*^9}, + CellLabel-> + "Out[426]=",ExpressionUUID->"c6577197-bfa6-42df-a82d-96a935534840"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[427]:=",ExpressionUUID->"07a57a47-78cf-4e94-a219-34714ea7078f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9938045508194923`*^9, 3.993804626946419*^9, { + 3.993804663488306*^9, 3.993804749974567*^9}, 3.9939096029931*^9, + 3.993909670451165*^9, 3.9939097534481*^9, 3.993909909666844*^9, { + 3.993909956278285*^9, 3.9939099904879293`*^9}, 3.9939110387674847`*^9}, + CellLabel-> + "Out[427]=",ExpressionUUID->"4eb78385-cbe7-4eaf-8a71-e49e4baf4bd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"9f52ceaf-b908-44ad-953a-e2910cf1edf0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993804550838839*^9, 3.99380462696198*^9, { + 3.993804663542288*^9, 3.993804749990815*^9}, 3.9939096030110683`*^9, + 3.993909670469376*^9, 3.993909753462414*^9, 3.9939099096844893`*^9, { + 3.993909956293055*^9, 3.993909990503254*^9}, 3.993911038779873*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"6e664c6f-c830-44a4-a8b7-065ffaffac3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[429]:=",ExpressionUUID->"b3b33961-ae3b-4338-9b97-8b1c115e81a8"], + +Cell[BoxData["111.7060296377673`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9938045508585377`*^9, 3.993804626991984*^9, { + 3.993804663557494*^9, 3.9938047500074787`*^9}, 3.99390960303067*^9, + 3.993909670487976*^9, 3.993909753477995*^9, 3.9939099097033167`*^9, { + 3.993909956309827*^9, 3.993909990518099*^9}, 3.993911038792316*^9}, + CellLabel-> + "Out[429]=",ExpressionUUID->"56155f4f-e685-4a1a-b21c-af1796a094e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"cb9e573b-77e1-4f2c-a160-b65bdb479ee7"], + +Cell[BoxData[ + RowBox[{"-", "116.92037152462031`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993804550878648*^9, 3.993804627006651*^9, { + 3.99380466357337*^9, 3.993804750023952*^9}, 3.993909603048832*^9, + 3.993909670506846*^9, 3.99390975349363*^9, 3.993909909722876*^9, { + 3.9939099563244467`*^9, 3.993909990532846*^9}, 3.993911038807075*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"380594f3-4c91-4919-9dbd-d6d3ca4a3c8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[431]:=",ExpressionUUID->"70992e07-ab8c-4ce5-b358-14db4a13dc00"], + +Cell[BoxData["187.12903971509587`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9938045509027987`*^9, 3.993804627020084*^9, { + 3.993804663589897*^9, 3.993804750040456*^9}, 3.9939096030676117`*^9, + 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993909909741909*^9, { + 3.993909956339319*^9, 3.9939099905477867`*^9}, 3.993911038823534*^9}, + CellLabel-> + "Out[431]=",ExpressionUUID->"08b93e62-8b44-4cac-9f59-63efe672ea9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[432]:=",ExpressionUUID->"384b135b-4522-4b24-9059-13c7f46e631d"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9938045509220467`*^9, 3.993804627033495*^9, { + 3.993804663606344*^9, 3.9938047500576067`*^9}, 3.993909603085306*^9, + 3.993909670543174*^9, 3.993909753523663*^9, 3.9939099097598248`*^9, { + 3.993909956353833*^9, 3.993909990562546*^9}, 3.99391103883325*^9}, + CellLabel-> + "Out[432]=",ExpressionUUID->"705d0161-5a4c-4fef-9632-b8a55b372fc2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"a05eb3c9-d58f-40f8-a39c-a1ab424f5b02"], + +Cell[BoxData[ + RowBox[{"-", "0.056142152983087`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993804550940889*^9, 3.993804627047104*^9, { + 3.99380466362283*^9, 3.993804750074596*^9}, 3.993909603103224*^9, + 3.993909670561534*^9, 3.993909753539481*^9, 3.993909909777351*^9, { + 3.9939099563684807`*^9, 3.993909990577075*^9}, 3.9939110388486443`*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"8c2e52eb-a0b0-4b53-a18c-61cefd6622ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"c36cbbf2-2585-4db0-b38c-380a55b33acc"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.99380455096201*^9, 3.993804627060543*^9, { + 3.9938046636401176`*^9, 3.9938047500897923`*^9}, 3.993909603121352*^9, + 3.993909670579809*^9, 3.993909753557192*^9, 3.9939099097958403`*^9, { + 3.99390995638293*^9, 3.9939099905920963`*^9}, 3.993911038864317*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"875db7a7-09e3-4adb-bc2b-b845448d0299"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"dbe59e5f-37d6-4087-ab77-dc1c6394dac8"], + +Cell[BoxData["0.5841645161809887`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.993804550980524*^9, 3.9938046270751667`*^9, { + 3.993804663656624*^9, 3.993804750107565*^9}, 3.993909603139456*^9, + 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993909909812099*^9, { + 3.993909956397331*^9, 3.9939099906069927`*^9}, 3.993911038878274*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"7752c35a-9089-4894-bdb4-2a40f08fb54a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"f0adf480-5480-4750-98be-1b6f2161d1de"], + +Cell[BoxData["2.5173601133375656`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993804550999857*^9, 3.993804627093104*^9, { + 3.993804663673789*^9, 3.993804750123993*^9}, 3.993909603159047*^9, + 3.9939096706237583`*^9, 3.993909753618161*^9, 3.993909909815946*^9, { + 3.993909956411661*^9, 3.993909990622797*^9}, 3.9939110388909483`*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"2d5f30a1-d71c-470a-8f0e-35635667a39a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"8936e7fb-c178-4ca6-9a68-4e0919efc614"], + +Cell[BoxData["1.5234450434796134`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993804551018916*^9, 3.993804627108033*^9, { + 3.993804663692298*^9, 3.993804750140585*^9}, 3.99390960317778*^9, + 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993909909844212*^9, { + 3.993909956428871*^9, 3.993909990639729*^9}, 3.9939110389058247`*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"8fc2108c-3aeb-4560-a70c-5f732167be56"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2e930878-5f0e-46e2-bb48-74486ca20414"], + +Cell[BoxData[ + RowBox[{"-", "18.177896388526342`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993804551037992*^9, 3.993804627123701*^9, { + 3.993804663711438*^9, 3.993804750156764*^9}, 3.993909603196027*^9, + 3.993909670663684*^9, 3.99390975365348*^9, 3.993909909862356*^9, { + 3.993909956443829*^9, 3.993909990654669*^9}, 3.99391103891957*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"917126ff-22c4-48e1-bf6b-9ceb1cb0d366"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"2b862371-4e0b-462d-995c-2f10996cce70"], + +Cell[BoxData[ + RowBox[{"-", "4.422931821128753`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.99380455105733*^9, 3.993804627139119*^9, { + 3.993804663729148*^9, 3.993804750173326*^9}, 3.993909603216249*^9, + 3.993909670683181*^9, 3.993909753671298*^9, 3.993909909877062*^9, { + 3.993909956460279*^9, 3.993909990669105*^9}, 3.993911038933881*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"9395d7ee-33ea-4256-8021-ac9b1d7dadbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"7b4a10f4-9a7e-4b72-a748-57082eabd0e7"], + +Cell[BoxData["93.52813324924097`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.9938045510774317`*^9, 3.993804627154879*^9, { + 3.993804663746785*^9, 3.993804750189831*^9}, 3.993909603237997*^9, + 3.99390967070298*^9, 3.993909753690928*^9, 3.993909909892799*^9, { + 3.9939099564827127`*^9, 3.993909990683666*^9}, 3.99391103894681*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"b43b4cc0-44e4-459a-9dc5-9836ed23d803"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[441]:=",ExpressionUUID->"08e21e0d-42c2-40a7-be13-a153ded206f8"], + +Cell[BoxData[ + RowBox[{"-", "116.92037152462031`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993804551098919*^9, 3.99380462716993*^9, { + 3.99380466376478*^9, 3.993804750205999*^9}, 3.9939096032579308`*^9, + 3.99390967072291*^9, 3.993909753708663*^9, 3.993909909912747*^9, { + 3.9939099564995337`*^9, 3.993909990698875*^9}, 3.993911038962907*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"0701c1de-d94d-434a-aa79-e2329a461e2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[442]:=",ExpressionUUID->"9a2d7b0b-790a-4058-b496-aa10960c048a"], + +Cell[BoxData["182.70610789396713`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993804551121139*^9, 3.993804627185237*^9, { + 3.9938046637699213`*^9, 3.993804750221984*^9}, 3.993909603279203*^9, + 3.993909670743991*^9, 3.993909753728705*^9, 3.993909909930686*^9, { + 3.993909956518093*^9, 3.9939099907215357`*^9}, 3.993911038974886*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"d11cc552-4d80-42b6-bca4-296644cafc73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[443]:=",ExpressionUUID->"29897a30-ec4c-4955-8c6b-9ba83d18963b"], + +Cell[BoxData["150.0362849602646`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9938045511434107`*^9, 3.993804627199387*^9, { + 3.9938046637889233`*^9, 3.993804750238797*^9}, 3.993909603297597*^9, + 3.993909670763399*^9, 3.993909753746546*^9, 3.993909909946938*^9, { + 3.99390995653423*^9, 3.993909990735869*^9}, 3.9939110389925137`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"5c2d0a94-4c49-43d5-b908-41b61b4a1d78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[444]:=",ExpressionUUID->"fbb25ab1-9afb-43d7-a82a-6f344966c492"], + +Cell[BoxData["845.8339546196385`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993804551165799*^9, 3.993804627215629*^9, { + 3.9938046638111277`*^9, 3.993804750255252*^9}, 3.993909603318231*^9, + 3.993909670782775*^9, 3.993909753763286*^9, 3.993909909962928*^9, { + 3.9939099565492992`*^9, 3.993909990750906*^9}, 3.993911039004581*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"91f58316-1aa1-4662-98b2-782aed6190e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.48021"}]], "Input", + CellChangeTimes->{ + 3.991849227197853*^9, {3.993909865529995*^9, 3.993909874184963*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData["0.48021`"], "Output", + CellChangeTimes->{ + 3.99390990997964*^9, {3.993909956564432*^9, 3.9939099907651367`*^9}, + 3.9939110390211773`*^9}, + CellLabel-> + "Out[445]=",ExpressionUUID->"8907ee7e-d5d0-402d-b24f-0805f550a387"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849227899128*^9, 3.9918492279041367`*^9}}, + CellLabel-> + "In[446]:=",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.1536"}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9, {3.9939098793789873`*^9, 3.993909884506517*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[BoxData["0.1536`"], "Output", + CellChangeTimes->{ + 3.993909910010264*^9, {3.9939099565917253`*^9, 3.993909990782136*^9}, + 3.993911039046362*^9}, + CellLabel-> + "Out[447]=",ExpressionUUID->"42a92faf-9c62-4d94-bf9a-37a8880cef45"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, 3.991849229809536*^9}}, + CellLabel-> + "In[448]:=",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ @@ -85,12 +5088,14 @@ Cell[BoxData[ RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> - "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + "In[449]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913335367025833`*^9}, +Cell[BoxData["3.0421649672677`*^-53"], "Output", + CellChangeTimes->{ + 3.9913335367025833`*^9, 3.993909910040695*^9, {3.993909956616023*^9, + 3.993909990798419*^9}, 3.9939110390738792`*^9}, CellLabel-> - "Out[233]=",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] + "Out[449]=",ExpressionUUID->"86afbdc5-4961-4d4c-a1a2-307ff9ba0073"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +5129,16 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ -fcd932c3b663"], - -Cell[BoxData["5.020725113795862`*^-55"], "Output", - CellChangeTimes->{3.991333536726557*^9}, + CellChangeTimes->{3.9915575926932735`*^9}, CellLabel-> - "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] + "In[450]:=",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], + +Cell[BoxData["1.0691663512142516`*^-54"], "Output", + CellChangeTimes->{ + 3.991333536726557*^9, 3.993909910056779*^9, {3.993909956630228*^9, + 3.993909990812478*^9}, 3.993911039089611*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"744b8b7e-dede-44bd-ab11-9b675b375848"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +5171,16 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557595005127*^9, - 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ -23b66397f1fd"], - -Cell[BoxData["1.871372642785671`*^-54"], "Output", - CellChangeTimes->{3.9913335367515736`*^9}, + CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}}, CellLabel-> - "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] + "In[451]:=",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], + +Cell[BoxData["7.422938590368768`*^-55"], "Output", + CellChangeTimes->{ + 3.9913335367515736`*^9, 3.993909910073305*^9, {3.9939099566443453`*^9, + 3.9939099908166847`*^9}, 3.9939110391039343`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"41b86a86-0ea6-421b-9c59-c2b49b287042"] }, Open ]], Cell[CellGroupData[{ @@ -195,12 +5204,14 @@ Cell[BoxData[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + "In[452]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[BoxData["25.178011816139865`"], "Output", - CellChangeTimes->{3.9913335367605553`*^9}, +Cell[BoxData["10.515928007617523`"], "Output", + CellChangeTimes->{ + 3.9913335367605553`*^9, 3.993909910089398*^9, {3.9939099566583242`*^9, + 3.993909990831061*^9}, 3.993911039117671*^9}, CellLabel-> - "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] + "Out[452]=",ExpressionUUID->"a3edd8e1-9378-47d9-a8e7-5c608ced1558"] }, Open ]], Cell[CellGroupData[{ @@ -226,12 +5237,14 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellLabel-> - "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + "In[453]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[BoxData["31.32034821453639`"], "Output", - CellChangeTimes->{3.991333536783556*^9}, +Cell[BoxData["24.81136944974492`"], "Output", + CellChangeTimes->{ + 3.991333536783556*^9, 3.9939099101055737`*^9, {3.993909956672185*^9, + 3.993909990845847*^9}, 3.9939110391350203`*^9}, CellLabel-> - "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] + "Out[453]=",ExpressionUUID->"85912d8c-219e-4780-9dda-21fec721e177"] }, Open ]], Cell[CellGroupData[{ @@ -241,12 +5254,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> - "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + "In[454]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[BoxData["0.7475613664925793`"], "Output", - CellChangeTimes->{3.9913335367915726`*^9}, +Cell[BoxData["3.777237989202462`"], "Output", + CellChangeTimes->{ + 3.9913335367915726`*^9, 3.99390991012142*^9, {3.9939099566854477`*^9, + 3.993909990861813*^9}, 3.9939110391511*^9}, CellLabel-> - "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] + "Out[454]=",ExpressionUUID->"e4f48cd1-7fe3-4fdb-afda-d6e0640adf89"] }, Open ]], Cell[CellGroupData[{ @@ -256,12 +5271,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> - "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + "In[455]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[BoxData["3.5403946764909393`"], "Output", - CellChangeTimes->{3.99133353681583*^9}, +Cell[BoxData["5.838713828670062`"], "Output", + CellChangeTimes->{ + 3.99133353681583*^9, 3.993909910137066*^9, {3.993909956698565*^9, + 3.993909990865922*^9}, 3.993911039165859*^9}, CellLabel-> - "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] + "Out[455]=",ExpressionUUID->"9e2bce8d-f46b-4c70-af11-d313cc4659e2"] }, Open ]], Cell[CellGroupData[{ @@ -271,12 +5288,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> - "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + "In[456]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[BoxData["110.88639408458714`"], "Output", - CellChangeTimes->{3.991333536826782*^9}, +Cell[BoxData["144.86648591446757`"], "Output", + CellChangeTimes->{ + 3.991333536826782*^9, 3.993909910152853*^9, {3.993909956711982*^9, + 3.99390999088028*^9}, 3.993911039183076*^9}, CellLabel-> - "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] + "Out[456]=",ExpressionUUID->"a011ca80-5ac6-459d-b1c5-2215e8b8746b"] }, Open ]], Cell[CellGroupData[{ @@ -286,12 +5305,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + "In[457]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[BoxData["18.822108918839827`"], "Output", - CellChangeTimes->{3.9913335368508377`*^9}, +Cell[BoxData["39.72116276209107`"], "Output", + CellChangeTimes->{ + 3.9913335368508377`*^9, 3.993909910168515*^9, {3.993909956725478*^9, + 3.9939099908939743`*^9}, 3.993911039194149*^9}, CellLabel-> - "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] + "Out[457]=",ExpressionUUID->"917c2e23-2ba6-4cca-968f-ad1b099c6b04"] }, Open ]], Cell[CellGroupData[{ @@ -481,12 +5502,14 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + "In[458]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[BoxData["0.042044960793272385`"], "Output", - CellChangeTimes->{3.9913335368758316`*^9}, +Cell[BoxData["0.006170548043396606`"], "Output", + CellChangeTimes->{ + 3.9913335368758316`*^9, 3.993909910184186*^9, {3.993909956739429*^9, + 3.9939099909078827`*^9}, 3.993911039206811*^9}, CellLabel-> - "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] + "Out[458]=",ExpressionUUID->"1111cc34-f2ab-4265-9748-78c2ecc3044d"] }, Open ]], Cell[CellGroupData[{ @@ -499,13 +5522,17 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + Background->RGBColor[0.4, 0.6, 1, 0.33], CellLabel-> - "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + "In[459]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[BoxData["4.322031867849089`"], "Output", - CellChangeTimes->{3.991333536973074*^9}, +Cell[BoxData["11.281921450556462`"], "Output", + CellChangeTimes->{ + 3.991333536973074*^9, 3.993909910327243*^9, {3.9939099567897167`*^9, + 3.993909990956339*^9}, 3.993911039303739*^9}, + Background->RGBColor[0.14, 0.8, 0.14, 0.33], CellLabel-> - "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] + "Out[459]=",ExpressionUUID->"6cc60b67-f232-4393-bbdb-adcb27d9062f"] }, Open ]], Cell[CellGroupData[{ @@ -697,12 +5724,14 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + "In[460]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[BoxData["0.011395075201487413`"], "Output", - CellChangeTimes->{3.9913335369870644`*^9}, +Cell[BoxData["0.024586651057114623`"], "Output", + CellChangeTimes->{ + 3.9913335369870644`*^9, 3.993909910427017*^9, {3.9939099568040457`*^9, + 3.993909990971386*^9}, 3.9939110393208857`*^9}, CellLabel-> - "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] + "Out[460]=",ExpressionUUID->"fecff830-c8c8-4e89-88c4-afe64d8252ec"] }, Open ]], Cell[CellGroupData[{ @@ -716,12 +5745,14 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + "In[461]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[BoxData["8.302069082299768`"], "Output", - CellChangeTimes->{3.9913335370800858`*^9}, +Cell[BoxData["5.651910185815362`"], "Output", + CellChangeTimes->{ + 3.9913335370800858`*^9, 3.993909910470825*^9, {3.993909956869781*^9, + 3.993909991019307*^9}, 3.99391103942657*^9}, CellLabel-> - "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] + "Out[461]=",ExpressionUUID->"7a0e6e54-9e42-481f-85f9-c5788122f126"] }, Open ]], Cell[CellGroupData[{ @@ -814,12 +5845,14 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + "In[462]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913335370930634`*^9}, +Cell[BoxData["0.08103600808733596`"], "Output", + CellChangeTimes->{ + 3.9913335370930634`*^9, 3.993909910485589*^9, {3.993909956886765*^9, + 3.993909991034367*^9}, 3.993911039454029*^9}, CellLabel-> - "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] + "Out[462]=",ExpressionUUID->"dac4f234-2dbc-4f2a-b799-949302976f29"] }, Open ]], Cell[CellGroupData[{ @@ -909,12 +5942,14 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + "In[463]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991333537118065*^9}, +Cell[BoxData["0.9189639919126641`"], "Output", + CellChangeTimes->{ + 3.991333537118065*^9, 3.99390991050031*^9, {3.9939099569002743`*^9, + 3.993909991048984*^9}, 3.9939110394837112`*^9}, CellLabel-> - "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] + "Out[463]=",ExpressionUUID->"302fc248-a86d-48cb-9b5f-539d065c4e5c"] }, Open ]], Cell[CellGroupData[{ @@ -1037,18 +6072,21 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + "In[464]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913335371420746`*^9}, +Cell[BoxData["0.0744691734806052`"], "Output", + CellChangeTimes->{ + 3.9913335371420746`*^9, 3.993909910517559*^9, {3.993909956914535*^9, + 3.993909991063764*^9}, 3.993911039508452*^9}, CellLabel-> - "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] + "Out[464]=",ExpressionUUID->"9eb7ae23-6a3a-4f35-8f86-8380d70bd085"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ -5e47-a896-3a959bbbf44d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ @@ -1109,65 +6147,82 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991849241512779*^9}, + CellLabel-> + "In[466]:=",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.291943993898594`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 466, 30, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.991849241512779*^9},ExpressionUUID->"738a48f3-b38c-f441-aec4-\ -53babaa73a14"], + 3.9913335371540604`*^9, 3.99390991054712*^9, {3.993909956944457*^9, + 3.993909991081581*^9}, 3.993911039545395*^9}, + CellLabel-> + "During evaluation of \ +In[466]:=",ExpressionUUID->"f0bb1dad-445b-4475-a3a8-befa0d983aa9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371540604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3379031508727371`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 466, 31, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913335371540604`*^9, 3.99390991054712*^9, {3.993909956944457*^9, + 3.993909991081581*^9}, 3.993911039553008*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +In[466]:=",ExpressionUUID->"cd2b4475-19fa-42b1-977e-6337c3f6fb23"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371630745`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3824712490891436`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 466, 32, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913335371540604`*^9, 3.99390991054712*^9, {3.993909956944457*^9, + 3.993909991081581*^9}, 3.993911039561417*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371710587`*^9}, - CellLabel-> - "During evaluation of \ -In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +In[466]:=",ExpressionUUID->"86717bb6-fa86-4853-98f1-6b7918532c06"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133353717906*^9}, +during this calculation.\"", 2, 466, 33, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913335371540604`*^9, 3.99390991054712*^9, {3.993909956944457*^9, + 3.993909991081581*^9}, 3.9939110395716267`*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +In[466]:=",ExpressionUUID->"2858be08-b268-4bc6-9336-c1e615d5226f"], -Cell[BoxData["4.322031867849086`"], "Output", - CellChangeTimes->{3.9913335399194164`*^9}, +Cell[BoxData["11.281921450556474`"], "Output", + CellChangeTimes->{ + 3.9913335399194164`*^9, 3.993909911925639*^9, {3.99390995881207*^9, + 3.993909991386777*^9}, 3.993911043187406*^9}, CellLabel-> - "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] + "Out[466]=",ExpressionUUID->"cd95d79e-fbb1-4fec-9587-bb0989fa8824"] }, Open ]], Cell[CellGroupData[{ @@ -1229,65 +6284,82 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.9918492463930817`*^9}, + CellLabel-> + "In[467]:=",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.291943993898594`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 467, 34, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9918492463930817`*^9},ExpressionUUID->"86c33485-ed26-8f49-b3d0-\ -7d040d3b48f0"], + 3.9913335399544125`*^9, 3.993909911987515*^9, {3.99390995886233*^9, + 3.9939099715229683`*^9}, 3.99391104324146*^9}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"6150d9fb-4b61-4cc0-837f-09ecd19c3538"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399544125`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3379031508727371`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 467, 35, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913335399544125`*^9, 3.993909911987515*^9, {3.99390995886233*^9, + 3.9939099715229683`*^9}, 3.9939110432517633`*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +In[467]:=",ExpressionUUID->"eb02c601-a6dc-43b2-842d-2075e177e786"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399644184`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3824712490891436`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 467, 36, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913335399544125`*^9, 3.993909911987515*^9, {3.99390995886233*^9, + 3.9939099715229683`*^9}, 3.993911043262134*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539972414*^9}, - CellLabel-> - "During evaluation of \ -In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +In[467]:=",ExpressionUUID->"1540a7ef-14ae-420c-ade1-18a60e1ca0a8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539979416*^9}, +during this calculation.\"", 2, 467, 37, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913335399544125`*^9, 3.993909911987515*^9, {3.99390995886233*^9, + 3.9939099715229683`*^9}, 3.993911043271591*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +In[467]:=",ExpressionUUID->"be9e2673-20b2-41d4-a00e-ca02eaf03c21"], -Cell[BoxData["8.302069082299772`"], "Output", - CellChangeTimes->{3.991333542631773*^9}, +Cell[BoxData["5.6519101858153675`"], "Output", + CellChangeTimes->{ + 3.991333542631773*^9, 3.993909913332692*^9, {3.993909960604814*^9, + 3.9939099735141*^9}, 3.993911047805615*^9}, CellLabel-> - "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] + "Out[467]=",ExpressionUUID->"b29b41f9-2a88-46b5-b13a-0a779e1d636b"] }, Open ]], Cell[CellGroupData[{ @@ -1343,92 +6415,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492535482903`*^9},ExpressionUUID->"f373fe4f-940c-0842-9236-\ -63ec36d318ad"], + CellChangeTimes->{3.9918492535482903`*^9}, + CellLabel-> + "In[468]:=",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0Vd8XAHCEjPXwjZB5KIp8PUManG0uHiGJkuF595KEkK8iUkmlhBQp +ZB4iRClSivopikqDQq6pMmbKcBt+pz/uOuuzzlr77nP23keJHehI8HBxcX3F +39/14Evt1TXtL403rr5dEmlJIePxPH22eSk6m3Oj7697swxSVM3vI66t8WeP +YttzXvCLMJ+gTiWnnCjsyvDoRj7zVhRkwq95DPvM05UN0SWvENfDbKXj2Pfa +D2b+1H2L0u6pnzmJPfzxeeThug9Ie9clzzhsmUGVPT/MulBL01jhWWybiUij +kNbPSM9AxyMB+8HPYeHwEgqtH3I7lYz9LkYq4k5AP/KTDJVLxR7nNx+e0R1E +IcvDVK9h858LcmXODaFmRe+r2djyYhnNB+u+og/XNx0vxLaT/VEwbjaKrPdV +ZFVjk9eVJbUExhFXjO27Ouxote2x+1snkHbB+8hG7A9SHf+GlkyizCW3pTuw +Obv99l08N4VSTQUZ3djfr3Fl3wqYRvbXWGFD2ALKWoxJ3VkUvJCTvIidwmm0 +Yqz4gTo21mzls6KQYqFr9Pq5H4gWrw9gYG9Yd2r8QN082rb9utAabF+Dz63D +Zj+R43RnjBv2TPghXiH1X2i0+kKNH/axOuHNGgK/0ZT9lr2HsdNgww2f1j+I +qD8xn4rNyW82Dy7hBp3ADwEfsUueXuyNkeWBZZ98VEexv39xj0w6xwMRCnPb +fmNHas5WVQQsAYNq6UGVrTjfciWVCV0+eKaUuCcU+2P76IPfuXxwUh8lncFW +nKrZvWwFP/h8nDPIwi7Vs0vWmuMHc8P41y3YTfeOcPvXCYCQu5e15jYKzTa+ ++fzVTAR0V8oa/8QWZ4kwIh6IwH3tB50y1hTS6TAHUSNRqPixdsEI22/g9vV/ +tZdBSWlQ42HsIJ5WnS0iDCiy6I39gz2ofHMy9ocYFGiebFJh4fshnwu2McUh +0uhHhjU2z40hpZUHxaHn0h76ILYiU8GxZEQcEkuFTR9j7zZLvPWyVwJisnb8 +8bWlUJt3cIhUywp4ztHb3GZHoZ7ChHhPAUlo7bR0/o09OlKSW2whCTNPo2a0 +tlNIKLT/zaYGSeDt969PwDY/6aTneVsKLmvmxzjbU6g2z2C2KEsaPqbVv/vt +QKG8wcWwjaFysFzepO3WTgpt3RnXE1ImBz5Bp43GsUebJCzLhuRAzz1MStOZ +Qnp561YouspDGHOndi52E9u9is9YAQQCzzan76LQ1ETvf19PKEKe29ZbWa4U +kjhgXl1lqwzn64zCudwpNJQn5Gvvpwwii3oe1th3u9plx04pQ/XY3toUbDfW +3hPqDcoQ/9DmhaYHzm9tmOMVXRUw111Funni/w8Xfo+SUoXL7Fc+b9kUcvIR +1rKm1ODntESbvC+FUNhO3V2/1GCVxPLTh7A1Y7MMOdLq8NTcsbIVmyuXaRrl +oA6jPE+dIvdRqKxnz65bj9Shy23+c68fnk/n0hiZnNUwwbQWeXgA52du+26Y +rQHpVWIDbSEUyt2R+mkuSgPqClsq9EIplMCmenmvakB37onxK9icY4dG5N9o +QKIBfz1xiEJi9zO4dphpguIrnkKe/3D/MMc161TWQrCrS7XDEQrJKl+Ijh9Y +By28LZR5DIXun53RWODRAmmFuMxH2G7Trh2kkhakc6+njI9TKLNJVcPUXQuW +3SfmN56gkLJP7ev591pwx90v0CgWn7d0UI1s0YbCZ8/itp+hkJysPKnoqgOM +X6m5vUkUWpcfKkIjXXAToarS8ijE5pyY1bLThWebDbLW5eN5VUnu8XTThR1e +HtyPsJfklFc8DdcFCQlHzZECPG+Zw07JlbqgGFW73KIYv6dpnhkaKkzonbyn +s/wmrm88S9uFXw803v8U/VVDoexgVfvbrfqQZGXkZfKCQrd6GuJXdulDjvS3 +DTwvKfTYeu//Ikb0ofPLyqxG7AHly8amQgagKK4jtbWdQupvlmq1WRnAg+nG +ml1v8DwzRwS/PTYA9Y6up0mduD4zlY2r7hnC0oGymINDFGoPQ4Yn843gle+n +ij7uPqTk/tZur/8W+KcCgoON+xDx585NucMALYLTFbLRfUhq5O5SKbYpxCf6 +MPa/7EOhzM1dyZrm8G0jwc1W6kfssZ/NEsMWYMN7hN8roh+VmYYszWqzgqRf +Ry2kvvSjvBm/R6Up2yD3WkCN784BNG+y8kVTtA3ctP2gofRhAHVzLZmkvGyB +ytyvw+QMooBVgYkxKtuhU0Ig9OHkILq5r7nhUqw9OCW8P3wjdQgdmZaeW7vP +AZpTbf/NMf6CZq0tnf/n4Qib0hZeGnN/RUZ7kkwGHXZAuj7JKH35Fb2WzvBr +YjrBPa6g04lXvyGZghP3i9bsBD5/4vDF08Pobq8my07UGdYY1parh44g+Y7v +PmFjzsA6flvqnu8oYl5KKs3t3QUDuYRISMwYyuCd1k5udIEAmYnEgUvj6I7J ++o+x91zhiwS/l9yrCZRmeFbsZ8lu+LgqPfLX2e+o7VP+Kea5PdA8lu0goTGJ +btteUw065gZd/wqqGH6aRJMHdnAFcPbCaz1JPb24KTRrqeE7buYOfpU7R/br +TaOisc75EAMPkOermTg9M41csvO994p4AvOuhvypkhlUdcvGY0mcJ/CWC9Am +B2eRkezrhTMLnpCzkPr2tOYPpNLr8/HVPi/I77tdqtbzAw0I799+rd8LxixP +L4u9NofaE+y8rXaywcr1v6AXVvMoJTxL+FA7G7L353O3zc2j+w/+LHhv84bl +xyMklNMW0HI3iGPWekOdlJK8pOIiMvIcL4rV48DltQ/eMXIWUcGV7yF2Bhwo +Mg/LaM9dRP+8mTKW2sCBVc6rzC7kL6Jxi7mOok0ccMnT0RAsXsTvFxd3qykH +pMeOOE6UL6Jlc2Ku4g4c2LTFp+Rk/SIaOK8vmHWAA6YshSXt7xdRQl3kvrsF +HPDSNmt/KUCjA7qpRuFFHLh6SGLzJiEasYorBTeUcCBOdN2hAmEaCaUOFdeU +cQAGL9oeXkaj2GD74TvVHJix7Yln/EOjSA3V/bcfc+BT8o4BXgUa+aW2+N/q +4cC7ryLmPHo02rZsaHNwLwe61bsuWunTaE0sl6huHwceHw/Oizeg0VCwflnl +IAd0xQ7zM4xo5GWXNVYxyoFfnzMbBY1p5MIXElC+yIEA+y/tDVY0sgqRCSqV +JMBKKrp+424aPc46ZZ28koDNHR0pgXtotLl1SjVchoCHV9S/5LjRSEetpdNM +ngBrLwbN60Ej6fcRZp/UCIiddu64402jkY3dkkL6BAh1yky2+9PoAs/1ep8d +BDiFfWZ0HcXnXy+SZruTgHFm67HPUTQ6uSc8mLmLgKTfhh5UNI3Cq+1X/9lN +gDJTgeyNwfmT3EmX2QR8KLNObomlEfM5m/PkIAEc7ieSzudp9D5JTVglkYBO +10cxRldpdBOJ+n5NIsD5mYPeT+yTYzNNZRcJKDbbcqz+Gn5JtzVFbUgl4Pp6 +vf5NmTRK4PKess0kYKmnUtvqbBpZBl7vDC8loOOpi8j9AhrJyZ02ML5JQDXL +0Mi3kEYzzwMvLqkgoI3spsWLaJSjjmwTqghoDCgx4RTT6Fd3d0NuLQEeaaee +zd6gUTVLtuhlMwGtmcUZHRU0il/k4Ut5TkDBybfL/CppxC4a9nJtJUChKFf8 +NzaDt1Z2oI0A+XT/V0pVNPKvc7mw8I6AyINV6i63aaSieTlMdZCAJax0wWP3 +aLT4/uibb0MExPvwJ/7Gbo8ldMq/EmD+xqMgopZGUZTesNEoAUHfNx8/WEej +j2lv9m6fJkCieN+UTT2NkpeKWRzhJqH5qkNKXQON7k917wldQoLYlPC89iMa +fekuCQ7gI6HdyTLhOvbmavPrbEESIs6fdoh6jPvNM5y2FiOh1T9OW7UJ58+y +ELeQIEH2U4zSGexNhuIaaAUJarbFFqPYiaKlzkxpEn5p9CuWPcH7tZ8rZZVI +UBUYkpf+H43I/NLmFSokKPWqpwZiJyYe/rxcjYQLjEDUhD1ESojyapDwdW2i +gm8z3pew8h3VISFdIU0m/RmNan9LRA/pkrAmKWl5H/bgt95LvXok3LFPZ655 +TqONDUcaOzaQwLLdL1COPeB/U74eSGAGaPcVtNBomUuEfo0pCZejGli92EZm +W1mV5iSElKYOSrXifpHuO5y/lYSyifrsGOy7vOWJWdYkqEj3N1Vh909EFF5h +kXDq9MKKAewNT1e8PW9PQr7tTRP0Ate7sm8kzpEEmYg1q/ywz18r5znuRMJ8 +ho3qRey+4G06YS4kFLJZ9Z+xRd0lrYJ2k/AhW9huyUscb1v/Xj83EvTEDEXU +sM8rHI1398T1KstgeGPfFbLOcWGTYG3c4ByN3Tcrec+RQ4LlM7nnV7BFqf42 +FkmCSNsNv1t/47VWDFn6ktB2xnPDM2x2zdFf4EfCxKgus+dv/Bzrfzb5k/A7 +T2bP5N/456XW6gfgfpBiVPC04fjhAybrg0gI5YjoimOLcCpdNILx/XoLUgrY +htujAlVCSRAq4K5fi83eaHNKLoyE8v++P9HHPqe2MkMqnISsrlf0Fuw7jMEq +sSMkpCTnuJtjU3Tlc+FIEqoZnuNb/8b/EkXxRZEQHCdwwwbb4LXN/J9oEup6 +01NY2P8HfUnmQg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1442,104 +6517,107 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= +1:eJwV1Hk0Vd8XAHCEjPXwjZB5KIp8PUManG0uHiGJkuF595KEkK8iUkmlhBQp +ZB4iRClSivopikqDQq6pMmbKcBt+pz/uOuuzzlr77nP23keJHehI8HBxcX3F +39/14Evt1TXtL403rr5dEmlJIePxPH22eSk6m3Oj7697swxSVM3vI66t8WeP +YttzXvCLMJ+gTiWnnCjsyvDoRj7zVhRkwq95DPvM05UN0SWvENfDbKXj2Pfa +D2b+1H2L0u6pnzmJPfzxeeThug9Ie9clzzhsmUGVPT/MulBL01jhWWybiUij +kNbPSM9AxyMB+8HPYeHwEgqtH3I7lYz9LkYq4k5AP/KTDJVLxR7nNx+e0R1E +IcvDVK9h858LcmXODaFmRe+r2djyYhnNB+u+og/XNx0vxLaT/VEwbjaKrPdV +ZFVjk9eVJbUExhFXjO27Ouxote2x+1snkHbB+8hG7A9SHf+GlkyizCW3pTuw +Obv99l08N4VSTQUZ3djfr3Fl3wqYRvbXWGFD2ALKWoxJ3VkUvJCTvIidwmm0 +Yqz4gTo21mzls6KQYqFr9Pq5H4gWrw9gYG9Yd2r8QN082rb9utAabF+Dz63D +Zj+R43RnjBv2TPghXiH1X2i0+kKNH/axOuHNGgK/0ZT9lr2HsdNgww2f1j+I +qD8xn4rNyW82Dy7hBp3ADwEfsUueXuyNkeWBZZ98VEexv39xj0w6xwMRCnPb +fmNHas5WVQQsAYNq6UGVrTjfciWVCV0+eKaUuCcU+2P76IPfuXxwUh8lncFW +nKrZvWwFP/h8nDPIwi7Vs0vWmuMHc8P41y3YTfeOcPvXCYCQu5e15jYKzTa+ ++fzVTAR0V8oa/8QWZ4kwIh6IwH3tB50y1hTS6TAHUSNRqPixdsEI22/g9vV/ +tZdBSWlQ42HsIJ5WnS0iDCiy6I39gz2ofHMy9ocYFGiebFJh4fshnwu2McUh +0uhHhjU2z40hpZUHxaHn0h76ILYiU8GxZEQcEkuFTR9j7zZLvPWyVwJisnb8 +8bWlUJt3cIhUywp4ztHb3GZHoZ7ChHhPAUlo7bR0/o09OlKSW2whCTNPo2a0 +tlNIKLT/zaYGSeDt969PwDY/6aTneVsKLmvmxzjbU6g2z2C2KEsaPqbVv/vt +QKG8wcWwjaFysFzepO3WTgpt3RnXE1ImBz5Bp43GsUebJCzLhuRAzz1MStOZ +Qnp561YouspDGHOndi52E9u9is9YAQQCzzan76LQ1ETvf19PKEKe29ZbWa4U +kjhgXl1lqwzn64zCudwpNJQn5Gvvpwwii3oe1th3u9plx04pQ/XY3toUbDfW +3hPqDcoQ/9DmhaYHzm9tmOMVXRUw111Funni/w8Xfo+SUoXL7Fc+b9kUcvIR +1rKm1ODntESbvC+FUNhO3V2/1GCVxPLTh7A1Y7MMOdLq8NTcsbIVmyuXaRrl +oA6jPE+dIvdRqKxnz65bj9Shy23+c68fnk/n0hiZnNUwwbQWeXgA52du+26Y +rQHpVWIDbSEUyt2R+mkuSgPqClsq9EIplMCmenmvakB37onxK9icY4dG5N9o +QKIBfz1xiEJi9zO4dphpguIrnkKe/3D/MMc161TWQrCrS7XDEQrJKl+Ijh9Y +By28LZR5DIXun53RWODRAmmFuMxH2G7Trh2kkhakc6+njI9TKLNJVcPUXQuW +3SfmN56gkLJP7ev591pwx90v0CgWn7d0UI1s0YbCZ8/itp+hkJysPKnoqgOM +X6m5vUkUWpcfKkIjXXAToarS8ijE5pyY1bLThWebDbLW5eN5VUnu8XTThR1e +HtyPsJfklFc8DdcFCQlHzZECPG+Zw07JlbqgGFW73KIYv6dpnhkaKkzonbyn +s/wmrm88S9uFXw803v8U/VVDoexgVfvbrfqQZGXkZfKCQrd6GuJXdulDjvS3 +DTwvKfTYeu//Ikb0ofPLyqxG7AHly8amQgagKK4jtbWdQupvlmq1WRnAg+nG +ml1v8DwzRwS/PTYA9Y6up0mduD4zlY2r7hnC0oGymINDFGoPQ4Yn843gle+n +ij7uPqTk/tZur/8W+KcCgoON+xDx585NucMALYLTFbLRfUhq5O5SKbYpxCf6 +MPa/7EOhzM1dyZrm8G0jwc1W6kfssZ/NEsMWYMN7hN8roh+VmYYszWqzgqRf +Ry2kvvSjvBm/R6Up2yD3WkCN784BNG+y8kVTtA3ctP2gofRhAHVzLZmkvGyB +ytyvw+QMooBVgYkxKtuhU0Ig9OHkILq5r7nhUqw9OCW8P3wjdQgdmZaeW7vP +AZpTbf/NMf6CZq0tnf/n4Qib0hZeGnN/RUZ7kkwGHXZAuj7JKH35Fb2WzvBr +YjrBPa6g04lXvyGZghP3i9bsBD5/4vDF08Pobq8my07UGdYY1parh44g+Y7v +PmFjzsA6flvqnu8oYl5KKs3t3QUDuYRISMwYyuCd1k5udIEAmYnEgUvj6I7J ++o+x91zhiwS/l9yrCZRmeFbsZ8lu+LgqPfLX2e+o7VP+Kea5PdA8lu0goTGJ +btteUw065gZd/wqqGH6aRJMHdnAFcPbCaz1JPb24KTRrqeE7buYOfpU7R/br +TaOisc75EAMPkOermTg9M41csvO994p4AvOuhvypkhlUdcvGY0mcJ/CWC9Am +B2eRkezrhTMLnpCzkPr2tOYPpNLr8/HVPi/I77tdqtbzAw0I799+rd8LxixP +L4u9NofaE+y8rXaywcr1v6AXVvMoJTxL+FA7G7L353O3zc2j+w/+LHhv84bl +xyMklNMW0HI3iGPWekOdlJK8pOIiMvIcL4rV48DltQ/eMXIWUcGV7yF2Bhwo +Mg/LaM9dRP+8mTKW2sCBVc6rzC7kL6Jxi7mOok0ccMnT0RAsXsTvFxd3qykH +pMeOOE6UL6Jlc2Ku4g4c2LTFp+Rk/SIaOK8vmHWAA6YshSXt7xdRQl3kvrsF +HPDSNmt/KUCjA7qpRuFFHLh6SGLzJiEasYorBTeUcCBOdN2hAmEaCaUOFdeU +cQAGL9oeXkaj2GD74TvVHJix7Yln/EOjSA3V/bcfc+BT8o4BXgUa+aW2+N/q +4cC7ryLmPHo02rZsaHNwLwe61bsuWunTaE0sl6huHwceHw/Oizeg0VCwflnl +IAd0xQ7zM4xo5GWXNVYxyoFfnzMbBY1p5MIXElC+yIEA+y/tDVY0sgqRCSqV +JMBKKrp+424aPc46ZZ28koDNHR0pgXtotLl1SjVchoCHV9S/5LjRSEetpdNM +ngBrLwbN60Ej6fcRZp/UCIiddu64402jkY3dkkL6BAh1yky2+9PoAs/1ep8d +BDiFfWZ0HcXnXy+SZruTgHFm67HPUTQ6uSc8mLmLgKTfhh5UNI3Cq+1X/9lN +gDJTgeyNwfmT3EmX2QR8KLNObomlEfM5m/PkIAEc7ieSzudp9D5JTVglkYBO +10cxRldpdBOJ+n5NIsD5mYPeT+yTYzNNZRcJKDbbcqz+Gn5JtzVFbUgl4Pp6 +vf5NmTRK4PKess0kYKmnUtvqbBpZBl7vDC8loOOpi8j9AhrJyZ02ML5JQDXL +0Mi3kEYzzwMvLqkgoI3spsWLaJSjjmwTqghoDCgx4RTT6Fd3d0NuLQEeaaee +zd6gUTVLtuhlMwGtmcUZHRU0il/k4Ut5TkDBybfL/CppxC4a9nJtJUChKFf8 +NzaDt1Z2oI0A+XT/V0pVNPKvc7mw8I6AyINV6i63aaSieTlMdZCAJax0wWP3 +aLT4/uibb0MExPvwJ/7Gbo8ldMq/EmD+xqMgopZGUZTesNEoAUHfNx8/WEej +j2lv9m6fJkCieN+UTT2NkpeKWRzhJqH5qkNKXQON7k917wldQoLYlPC89iMa +fekuCQ7gI6HdyTLhOvbmavPrbEESIs6fdoh6jPvNM5y2FiOh1T9OW7UJ58+y +ELeQIEH2U4zSGexNhuIaaAUJarbFFqPYiaKlzkxpEn5p9CuWPcH7tZ8rZZVI +UBUYkpf+H43I/NLmFSokKPWqpwZiJyYe/rxcjYQLjEDUhD1ESojyapDwdW2i +gm8z3pew8h3VISFdIU0m/RmNan9LRA/pkrAmKWl5H/bgt95LvXok3LFPZ655 +TqONDUcaOzaQwLLdL1COPeB/U74eSGAGaPcVtNBomUuEfo0pCZejGli92EZm +W1mV5iSElKYOSrXifpHuO5y/lYSyifrsGOy7vOWJWdYkqEj3N1Vh909EFF5h +kXDq9MKKAewNT1e8PW9PQr7tTRP0Ate7sm8kzpEEmYg1q/ywz18r5znuRMJ8 +ho3qRey+4G06YS4kFLJZ9Z+xRd0lrYJ2k/AhW9huyUscb1v/Xj83EvTEDEXU +sM8rHI1398T1KstgeGPfFbLOcWGTYG3c4ByN3Tcrec+RQ4LlM7nnV7BFqf42 +FkmCSNsNv1t/47VWDFn6ktB2xnPDM2x2zdFf4EfCxKgus+dv/Bzrfzb5k/A7 +T2bP5N/456XW6gfgfpBiVPC04fjhAybrg0gI5YjoimOLcCpdNILx/XoLUgrY +htujAlVCSRAq4K5fi83eaHNKLoyE8v++P9HHPqe2MkMqnISsrlf0Fuw7jMEq +sSMkpCTnuJtjU3Tlc+FIEqoZnuNb/8b/EkXxRZEQHCdwwwbb4LXN/J9oEup6 +01NY2P8HfUnmQg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.5398543676503558, + 1.7381101422197804`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.539854367650357}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1551,130 +6629,133 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.5398543676503558, + 1.7381101422197804`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.539854367650357}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{120.79808473007536`, - 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= +1:eJwV1Hk0Vd8XAHCEjPXwjZB5KIp8PUManG0uHiGJkuF595KEkK8iUkmlhBQp +ZB4iRClSivopikqDQq6pMmbKcBt+pz/uOuuzzlr77nP23keJHehI8HBxcX3F +39/14Evt1TXtL403rr5dEmlJIePxPH22eSk6m3Oj7697swxSVM3vI66t8WeP +YttzXvCLMJ+gTiWnnCjsyvDoRj7zVhRkwq95DPvM05UN0SWvENfDbKXj2Pfa +D2b+1H2L0u6pnzmJPfzxeeThug9Ie9clzzhsmUGVPT/MulBL01jhWWybiUij +kNbPSM9AxyMB+8HPYeHwEgqtH3I7lYz9LkYq4k5AP/KTDJVLxR7nNx+e0R1E +IcvDVK9h858LcmXODaFmRe+r2djyYhnNB+u+og/XNx0vxLaT/VEwbjaKrPdV +ZFVjk9eVJbUExhFXjO27Ouxote2x+1snkHbB+8hG7A9SHf+GlkyizCW3pTuw +Obv99l08N4VSTQUZ3djfr3Fl3wqYRvbXWGFD2ALKWoxJ3VkUvJCTvIidwmm0 +Yqz4gTo21mzls6KQYqFr9Pq5H4gWrw9gYG9Yd2r8QN082rb9utAabF+Dz63D +Zj+R43RnjBv2TPghXiH1X2i0+kKNH/axOuHNGgK/0ZT9lr2HsdNgww2f1j+I +qD8xn4rNyW82Dy7hBp3ADwEfsUueXuyNkeWBZZ98VEexv39xj0w6xwMRCnPb +fmNHas5WVQQsAYNq6UGVrTjfciWVCV0+eKaUuCcU+2P76IPfuXxwUh8lncFW +nKrZvWwFP/h8nDPIwi7Vs0vWmuMHc8P41y3YTfeOcPvXCYCQu5e15jYKzTa+ ++fzVTAR0V8oa/8QWZ4kwIh6IwH3tB50y1hTS6TAHUSNRqPixdsEI22/g9vV/ +tZdBSWlQ42HsIJ5WnS0iDCiy6I39gz2ofHMy9ocYFGiebFJh4fshnwu2McUh +0uhHhjU2z40hpZUHxaHn0h76ILYiU8GxZEQcEkuFTR9j7zZLvPWyVwJisnb8 +8bWlUJt3cIhUywp4ztHb3GZHoZ7ChHhPAUlo7bR0/o09OlKSW2whCTNPo2a0 +tlNIKLT/zaYGSeDt969PwDY/6aTneVsKLmvmxzjbU6g2z2C2KEsaPqbVv/vt +QKG8wcWwjaFysFzepO3WTgpt3RnXE1ImBz5Bp43GsUebJCzLhuRAzz1MStOZ +Qnp561YouspDGHOndi52E9u9is9YAQQCzzan76LQ1ETvf19PKEKe29ZbWa4U +kjhgXl1lqwzn64zCudwpNJQn5Gvvpwwii3oe1th3u9plx04pQ/XY3toUbDfW +3hPqDcoQ/9DmhaYHzm9tmOMVXRUw111Funni/w8Xfo+SUoXL7Fc+b9kUcvIR +1rKm1ODntESbvC+FUNhO3V2/1GCVxPLTh7A1Y7MMOdLq8NTcsbIVmyuXaRrl +oA6jPE+dIvdRqKxnz65bj9Shy23+c68fnk/n0hiZnNUwwbQWeXgA52du+26Y +rQHpVWIDbSEUyt2R+mkuSgPqClsq9EIplMCmenmvakB37onxK9icY4dG5N9o +QKIBfz1xiEJi9zO4dphpguIrnkKe/3D/MMc161TWQrCrS7XDEQrJKl+Ijh9Y +By28LZR5DIXun53RWODRAmmFuMxH2G7Trh2kkhakc6+njI9TKLNJVcPUXQuW +3SfmN56gkLJP7ev591pwx90v0CgWn7d0UI1s0YbCZ8/itp+hkJysPKnoqgOM +X6m5vUkUWpcfKkIjXXAToarS8ijE5pyY1bLThWebDbLW5eN5VUnu8XTThR1e +HtyPsJfklFc8DdcFCQlHzZECPG+Zw07JlbqgGFW73KIYv6dpnhkaKkzonbyn +s/wmrm88S9uFXw803v8U/VVDoexgVfvbrfqQZGXkZfKCQrd6GuJXdulDjvS3 +DTwvKfTYeu//Ikb0ofPLyqxG7AHly8amQgagKK4jtbWdQupvlmq1WRnAg+nG +ml1v8DwzRwS/PTYA9Y6up0mduD4zlY2r7hnC0oGymINDFGoPQ4Yn843gle+n +ij7uPqTk/tZur/8W+KcCgoON+xDx585NucMALYLTFbLRfUhq5O5SKbYpxCf6 +MPa/7EOhzM1dyZrm8G0jwc1W6kfssZ/NEsMWYMN7hN8roh+VmYYszWqzgqRf +Ry2kvvSjvBm/R6Up2yD3WkCN784BNG+y8kVTtA3ctP2gofRhAHVzLZmkvGyB +ytyvw+QMooBVgYkxKtuhU0Ig9OHkILq5r7nhUqw9OCW8P3wjdQgdmZaeW7vP +AZpTbf/NMf6CZq0tnf/n4Qib0hZeGnN/RUZ7kkwGHXZAuj7JKH35Fb2WzvBr +YjrBPa6g04lXvyGZghP3i9bsBD5/4vDF08Pobq8my07UGdYY1parh44g+Y7v +PmFjzsA6flvqnu8oYl5KKs3t3QUDuYRISMwYyuCd1k5udIEAmYnEgUvj6I7J ++o+x91zhiwS/l9yrCZRmeFbsZ8lu+LgqPfLX2e+o7VP+Kea5PdA8lu0goTGJ +btteUw065gZd/wqqGH6aRJMHdnAFcPbCaz1JPb24KTRrqeE7buYOfpU7R/br +TaOisc75EAMPkOermTg9M41csvO994p4AvOuhvypkhlUdcvGY0mcJ/CWC9Am +B2eRkezrhTMLnpCzkPr2tOYPpNLr8/HVPi/I77tdqtbzAw0I799+rd8LxixP +L4u9NofaE+y8rXaywcr1v6AXVvMoJTxL+FA7G7L353O3zc2j+w/+LHhv84bl +xyMklNMW0HI3iGPWekOdlJK8pOIiMvIcL4rV48DltQ/eMXIWUcGV7yF2Bhwo +Mg/LaM9dRP+8mTKW2sCBVc6rzC7kL6Jxi7mOok0ccMnT0RAsXsTvFxd3qykH +pMeOOE6UL6Jlc2Ku4g4c2LTFp+Rk/SIaOK8vmHWAA6YshSXt7xdRQl3kvrsF +HPDSNmt/KUCjA7qpRuFFHLh6SGLzJiEasYorBTeUcCBOdN2hAmEaCaUOFdeU +cQAGL9oeXkaj2GD74TvVHJix7Yln/EOjSA3V/bcfc+BT8o4BXgUa+aW2+N/q +4cC7ryLmPHo02rZsaHNwLwe61bsuWunTaE0sl6huHwceHw/Oizeg0VCwflnl +IAd0xQ7zM4xo5GWXNVYxyoFfnzMbBY1p5MIXElC+yIEA+y/tDVY0sgqRCSqV +JMBKKrp+424aPc46ZZ28koDNHR0pgXtotLl1SjVchoCHV9S/5LjRSEetpdNM +ngBrLwbN60Ej6fcRZp/UCIiddu64402jkY3dkkL6BAh1yky2+9PoAs/1ep8d +BDiFfWZ0HcXnXy+SZruTgHFm67HPUTQ6uSc8mLmLgKTfhh5UNI3Cq+1X/9lN +gDJTgeyNwfmT3EmX2QR8KLNObomlEfM5m/PkIAEc7ieSzudp9D5JTVglkYBO +10cxRldpdBOJ+n5NIsD5mYPeT+yTYzNNZRcJKDbbcqz+Gn5JtzVFbUgl4Pp6 +vf5NmTRK4PKess0kYKmnUtvqbBpZBl7vDC8loOOpi8j9AhrJyZ02ML5JQDXL +0Mi3kEYzzwMvLqkgoI3spsWLaJSjjmwTqghoDCgx4RTT6Fd3d0NuLQEeaaee +zd6gUTVLtuhlMwGtmcUZHRU0il/k4Ut5TkDBybfL/CppxC4a9nJtJUChKFf8 +NzaDt1Z2oI0A+XT/V0pVNPKvc7mw8I6AyINV6i63aaSieTlMdZCAJax0wWP3 +aLT4/uibb0MExPvwJ/7Gbo8ldMq/EmD+xqMgopZGUZTesNEoAUHfNx8/WEej +j2lv9m6fJkCieN+UTT2NkpeKWRzhJqH5qkNKXQON7k917wldQoLYlPC89iMa +fekuCQ7gI6HdyTLhOvbmavPrbEESIs6fdoh6jPvNM5y2FiOh1T9OW7UJ58+y +ELeQIEH2U4zSGexNhuIaaAUJarbFFqPYiaKlzkxpEn5p9CuWPcH7tZ8rZZVI +UBUYkpf+H43I/NLmFSokKPWqpwZiJyYe/rxcjYQLjEDUhD1ESojyapDwdW2i +gm8z3pew8h3VISFdIU0m/RmNan9LRA/pkrAmKWl5H/bgt95LvXok3LFPZ655 +TqONDUcaOzaQwLLdL1COPeB/U74eSGAGaPcVtNBomUuEfo0pCZejGli92EZm +W1mV5iSElKYOSrXifpHuO5y/lYSyifrsGOy7vOWJWdYkqEj3N1Vh909EFF5h +kXDq9MKKAewNT1e8PW9PQr7tTRP0Ate7sm8kzpEEmYg1q/ywz18r5znuRMJ8 +ho3qRey+4G06YS4kFLJZ9Z+xRd0lrYJ2k/AhW9huyUscb1v/Xj83EvTEDEXU +sM8rHI1398T1KstgeGPfFbLOcWGTYG3c4ByN3Tcrec+RQ4LlM7nnV7BFqf42 +FkmCSNsNv1t/47VWDFn6ktB2xnPDM2x2zdFf4EfCxKgus+dv/Bzrfzb5k/A7 +T2bP5N/456XW6gfgfpBiVPC04fjhAybrg0gI5YjoimOLcCpdNILx/XoLUgrY +htujAlVCSRAq4K5fi83eaHNKLoyE8v++P9HHPqe2MkMqnISsrlf0Fuw7jMEq +sSMkpCTnuJtjU3Tlc+FIEqoZnuNb/8b/EkXxRZEQHCdwwwbb4LXN/J9oEup6 +01NY2P8HfUnmQg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.5398543676503558, 1.7381101422197804`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.539854367650357}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1684,7 +6765,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.9887929549829141}, + AxesOrigin->{0, 0.539854367650357}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1712,7 +6794,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5398543676503558, 1.7381101422197804`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1720,9 +6803,11 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991333813212965*^9}, + CellChangeTimes->{ + 3.991333813212965*^9, {3.9939099475743103`*^9, 3.993909988137138*^9}, + 3.993911340131598*^9}, CellLabel-> - "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] + "Out[468]=",ExpressionUUID->"8248db6d-f345-4e71-b8bb-108b0f1831cc"] }, Open ]], Cell[CellGroupData[{ @@ -1785,372 +6870,162 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849261714945*^9},ExpressionUUID->"24fa5db0-1063-354a-bd60-\ -c117a27ff3e1"], + CellChangeTimes->{3.991849261714945*^9}, + CellLabel-> + "In[469]:=",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ -\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 252, 225, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813432829*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.888488204170118`*^-265\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 469, + 38, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993911340472556*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +In[469]:=",ExpressionUUID->"7411883c-b85a-4f53-a4e5-41252b857684"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ -\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 252, - 226, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813442087*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.742827783043374`*^-276\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 469, 39, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993911340479508*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +In[469]:=",ExpressionUUID->"03115f23-fa88-4de7-abae-4a3b5911aae6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ -\\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 252, - 227, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813450123*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6045127124194262`*^-287\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 469, 40, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993911340486128*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +In[469]:=",ExpressionUUID->"fa604317-63f1-41c2-9609-279e74d4e1ad"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813469118*^9}, +during this calculation.\"", 2, 469, 41, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993911340492495*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +In[469]:=",ExpressionUUID->"ecd63d0e-215c-4a48-b28d-0eaa5e34de40"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VesXB3CRqJDMs3P2OY7KFBkyHGtFqUiDFBlCJZRUpjKEdE2JkFSS +yhTC2buB0C3FRZJcCSFD808RmaLit+9f+/k8z37ed+93r/Vdz2buO2rnyc/H +xye0gI/vv+tU37M6dmKeOdHRE9dujObt2XIh67qiQcB7+aGyOmVA6Zf75LrS +QP2MROChOi0I3l7cKdCVA8c12v/h1nFh+Yhs2kznHRCVksj5XWsL/Q+3Hp3o +fAqRM/MDq2tdwYo99Hassw3ig2cDVWqOwEyn0cXRzncQlaOn9OnuKai1vJX3 +b844uHeHlRlUJ4NSf+WnfZp/oO3j/V+zaRkg5etWLGQpgNPd51Nzna9Bmq5V +9dZdwngpfuFVafUceHN5dc2YuCiOWmpxHFbmQ2Je5Et++eUo4X4qfSGzEGTT +3ydcuCaJ25tndU6WF0Oc/Wbztilp3Lla3tSspQQU7rUo8C+QQf8NkhVZHSVQ +Jmk/rbtUBpvMJ4npvhLoaNtLpqrKIKPsev2V7yXA3hFI7Ngkg3J6W1gZ4qXw +1Pb6otYrMih9qefgoR2l8MdqsuWFmSw2xehohrWUQoDxTbdn0XI4pTG3Trq8 +DKxviE3YnJPDKxkth088LANCKDy+5aIcEgpinPanZdDavpt6VSiHFrUB1qde +loH2MRGBvhY5bArYvzn5Sxl8KThR8ENBHo0/b3tTLM8DF6mtw4p35XE4tNmt ++QQP1oRVn85+KI+agbFCUad4sOTdChlmvTxWNYUYaZ/hQSVPADhv5JFZ5KcT +mswDGZvKlNXz8ig7kBHWmseD1tNs/Q02CmgSqnYouJUH67/Phvq9V8Dv2pVJ +r5aTELIpfdWTbwq47myv7mYpEspuanVLTilgc91h/YcyJMjZuxtXCitit+qA +faYiCd8e/DMtoK2IEbwGASM1Ei5EpwReOamIKt9kmT+MSHgnzfGrE1VCMU5g +1VFnEmSPPlaWlVXCz85KFqmuJGxpdHzhw1BCDxeZVaQbCeWhiZrL1iihaMkh +xU/7STjbPzq0x1EJ9Y1vxer5kqBXVO31PUcJ2daYaRtOwmmzHR4Ka5XRrus9 +LymThE17s38YWSjjrSdR+dFZJIhFfT2za4sygl5PQmA2CVm1MQUp7sroE/BY +dVsOCQ+sq74uSlDGVYvXxvUXkTDqyAoef6OMvKyTkUcekFARekxo+QdlfA3V +kbpVJERk/X1Ze0QZwxrm/X9UkyAy4FDtw6+CH1Uerzn8mAR1r3N8A6tU0FT+ +GmdtPQl7gybPNoepoJrRmBy+IkHtkoXSUIwKzpr2+L1q/+/8zpcKpajgsN/o +w/0dJIT+XtlqkaeCGeGClmFvSLh4Zq90ZbMK7qkf4ovtJ6E5teF6vrIqcozm +MpZ8JcGk7Mq9iMeq+CJVZ6JtnoT1nS1/RhpVUWqi+soYHwVb+RZudGtTxZuJ +QrdE+SnYb+f3Bj6qomj9nlnuQgqswpiRUYIMjHIJS44UpuCY6lTuOg0Gyi/d +UBsrTsHk3ZTGGR0Ghrg8kQhfTkHoJo1hSp+BN7NNWv0kKIg57m5ImDPw+HBj +xhYpCjJrmxr5dzBwb9yM6/9kKajzuj5cG8xAj7rmNYUqFGz+bSwRHsbAufel +FwNVKWhJaTfUj2Jg3WtPX3MGBW8qF0flJTBwMkUttIlJwcjSQImYLAa+XH6R +VcemIOCGmBH3JgNHN75ZG65GwU/9IufJfAY+cM2s1+VQILC3L8+Tx8DXW47b +XlSnQI7cZGT1lIGHK/KlzVdRcG39e+e5egb+Y8f3e5A28eZUVPlzBtaycvee +0aBAi//uM85rBl5acCfzkSYFFvbKLkJfGJjdV/hLRocC359jUY2iTOx9ebJ1 +2xoKTI4flPkkwcSurz/5OmgLD3XfFpBj4lhohtUefQrye2o7zAkmxt9rlXQw +oKDv0UXN+4ZMPBn6q1HHiIISoyVP20yZmFuheD+bdigZ4TCKTCzPrapespYC +mRyvaA0bJlYEr1Hspr0txrjrphu9v02A4W4TClTmSo88PsDEvAWfFpfR/hZM +CLz1YWJBhvcfflMK4r2XassFMjHxT8DGPNq7ByNrDUKYaDruc32UNttpwnFn +BBMfiVkrmJhRUGPz9kxyPBMd+G6H1dFOrtshX5LERJOm7P2CXApcuPVlz9KY +mHpj33FL2jPavDcLrzFRwmrTggrajbdYR4kcJm589u6vb7QzGJcX4i0mLq8x +11U1p0BP4rROGMXEJCt9oXDafImTdZfLmcgz2aJXQLtF4JBTeTUT7Q4RCS9o +Z4X3fX9Vw8SXTSdEftA+PGkXM/YPE8UExf6WBPr8/RoUlj1nokjQrat6tIU/ +m5KarUzcsVKoaCvtDjdyg/VrJnq+G/3oRTuvi93j1c1Eb4mVOyNo+++4ciym +n4nRvYFjqbSxSXRR7gcmekhlPsmhLWYZfbXmf0ys5LrVkbTfVk+t7hthYl1i +4mw17RL9w/W/xplYO/DpQB3t0NJ+Z/kZJga9MF7YRHsTx37McI6Jl1Js3zTT +lrneGGsvQKCHzLcP//mDLFfJX5hA0Z/96v/dfyeFos6LErg+bCLnv/WiFnM2 +lkoQmJM6ufsh7W3Rmb1NsgRyu3jrKdoqv8T8vygRKHxp1DeX9reAM0KLCAL9 +amJa02hXfZvOYqkT+GSUeyySdrynr946TQLzj3zZ4kN7d99Aw15dAovUdnlt +p8122OUabkjgPZ59jT7tHy+f/bhiSmCk9QNHGdo1m8zjK5BA2d4dupP090h+ +ckf59QYCt46NW/9L28VE/e4PawIt/z5eUEx7RkO8T2sXgarR2zm7aE9dUzi9 +xonA4bhxLXXaE8vU2MZuBO7+Syp9iq6XkXHjQ+t9CAx2/x2RRPur53pRaz8C +naucBHfR/tK5ldwWQKDpnOewPO131funnE4ROFX24ONVul77tfyuuEcTOGaV +Ne1Iu/f6SbODcQSuVfH0k6TdcSYp+ngqgREWH5Oi6PpvsqkQi88nkJUdfNuU +7p+Gv59QScUEDjg7/HpvTOeXTrP9BR6Bm8qKyhNoP5IczMyuJHD5ogn/F3Q/ +3ulZon7/BYEnUoLkDen+5dlKN1W1EfhaxKD3mSFdH49Vj9R0EngrXma5M+2C +XP27zwcJPKaf0x5E50Hm4b3wbpLAPx2l3efo/Lj01vvd51l6/xFrKxHa6dsC +YobnCWQkvV2VoEef95r45z8Xs1B7t8O+MF0Kon9RDstUWHg27VPOOjqfDicK +HjOzYmHDn2Dt3XS+ef9ZJmlhw8KaNvm00pUUHDyqUL5xOwtdch6F89N236nz +286JhXuNcofy6Ly0V9wT7+PHQgMbIYtmOm/NbpfcyMhgYSdjR3E+nd89jNvX +N1xl4e+3zLn3ynS9ZxRlT1xnoeqteSMG7YrTBVl2RSzsN3zvnqZI97vjjcti +D1l4S+RAlqscBSsF01NiB1nYPgwHUuh50hiadt7gEwvbku4FlNLz5uBoSvKH +IRZaCe8LalxG92tP0jmLCRbW+UXY/RSlgHEnLn5uERszao4mwBK6n9zCooI1 +2Zi+5O1lX3q+3W8PiVTTZaPfbdOVPgvo97E+GdFuwEbBaPsH++l5mGYQFK4H +bCy1HXhtN0eCqMjRkyM72HhVPoctP0vCwsp9xw6eYGOmWm+t1RgJYxLW7ruf +slGsQ4XS6COhy5doPdTARmq7hl1LLwk19bMQ2cxGvpL5+349JKSE3lYt7GBj +eYlJU2EXCavfifTPDLFxYV+hBT89//2ol67XJNVwybKl+2waSBjatsv5wwE1 +bPXVfMctI6GtSOv5Tx81lLdc9z2zhIQqgUWmokfVUKn76uBkMQkJFeUKhiFq +OFUcF5p/i4QVqnLdcUlqqM8Wz/p6gwSvkW5HjXI1zBBMvCh1gYQP59x3+wtx +8A6MaQ0G0fsPaRKrRTjY8WCDs3IgCdMbZ4aHxTkoEmrb5uBPwhKBtBgfBQ7W +p6vdbPCjnz+k9p67FgcrzJ71pHmRcMqTI7ltJwdddKYudDmSIGP+7aXGdQ5+ +38pIVTchYfP3E5s/GqqjkbpstPgoD5R0VWKFzdQxL4pb7PaVByP+dU811qmj +bfw+p9ufeJA+JW7mb6OOElUuLmvf8qDvT5H2vJs6jsgu1VjZxAN/kV5J+QR1 +DOx9Kemdy4PMldi3pUcdr07+j+G7kwff9gsH3ItcgZZsWVGZ4jL6f0SWP+7p +Srzs4PRyD7cUJF5wksnvq3Def7jK4dltUIrnbTc01MRUz4E5CaViuKxhLC7p +pYXnD58NTA8thCaFdQbjqdqYuj3kX4euAjBRepqi06GDz2P6VkQsywcxgZxA +j+jVeOIY0SHsnQsqp1XN9nB0kRgQUR/PvwmL1VzK7Rp0sUFdif/X+HXQ5srz +TrjqITc9dLBxMgv8+yRqrfnWoLuQujQOXIHv4+d2bb68BlVNmgZCVl2CjTr1 +mZu19LHwgtv65tJ0eDRu+mu6RR+nE9PvnNdKAz9Nve5/PQ0Qj1gFJwinAHfk +QPuexYa4wDmS2/8qETaw5WxFcwxx+nvpjC/Ew4qosyefGhnhwbs1SY1SMbDK +0/ixWrcR/nYOJxwEosHzkfdf946vRWHBA7E9PyLg8Y32A2PSxgg/zbsUFUNh +onB+WqfCGKNMZE96TwfBfrXbizNtTfBSXsUhy6v+MLbqguGdURNMZiQ8Thry +gwd5vwYn403xRf3m+179PuC0noWmKmbYar1FacsNT1A8ElepXUN75/PKD/c9 +IHn+oEHiUzMcu+H8NbbQA/jTrKjPdWZ4N+pTn+5VDxgqFyy68cwMxfUzZ25G +eUAV31+XJV6Z4XK3pFNDNh7glB51YuqjGd5Y/KtO7oM7XK4OMXi0lIubC3iN +TQruIL3El7J14OLxJikbhXWukGd5KnR0DxdXqvrmdqm7gt6pZMsLLlz0vrlQ +vFjMFbaOkq+7PLi4015pOqbXBWI7Jmf2+3Jx6dHB+4wQF/iZE2kRepqLkpyh +5s77ztBteuFVwW0uGto8X/bbzAm8g/KyNpdxUcUp9eIijhNMld33/EZy8dqy +rCfEMieQILqmdcu5uN5utv/84B6wEVZW+ruGi2ckzOdN4/bAw/aCA69ec7H4 +UxDR9toRrMUeaAV3cfGzQmnf2GNH6Nr4bEquh4uLhg1TiWJHmKj6Gr93gIuM +waHS8ghH0Lq5uvR/Q1wcdzlxqXCFIzzsXhd8bpiLXm3/dG6VpNeT2gk6o1y0 +Oa73QHDOAQ7GBf0bOMlFs+R87fxXDjBRE5sp+5OLG+MdeEmPHCB69tL+qlku +NuVG5McWOYC4fpGm6x8uWvuEL0pJd4DsI1WT8/NczJSraCiKdID/A3SwXww= + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2164,331 +7039,117 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== +1:eJwV13k4VesXB3CRqJDMs3P2OY7KFBkyHGtFqUiDFBlCJZRUpjKEdE2JkFSS +yhTC2buB0C3FRZJcCSFD808RmaLit+9f+/k8z37ed+93r/Vdz2buO2rnyc/H +xye0gI/vv+tU37M6dmKeOdHRE9dujObt2XIh67qiQcB7+aGyOmVA6Zf75LrS +QP2MROChOi0I3l7cKdCVA8c12v/h1nFh+Yhs2kznHRCVksj5XWsL/Q+3Hp3o +fAqRM/MDq2tdwYo99Hassw3ig2cDVWqOwEyn0cXRzncQlaOn9OnuKai1vJX3 +b844uHeHlRlUJ4NSf+WnfZp/oO3j/V+zaRkg5etWLGQpgNPd51Nzna9Bmq5V +9dZdwngpfuFVafUceHN5dc2YuCiOWmpxHFbmQ2Je5Et++eUo4X4qfSGzEGTT +3ydcuCaJ25tndU6WF0Oc/Wbztilp3Lla3tSspQQU7rUo8C+QQf8NkhVZHSVQ +Jmk/rbtUBpvMJ4npvhLoaNtLpqrKIKPsev2V7yXA3hFI7Ngkg3J6W1gZ4qXw +1Pb6otYrMih9qefgoR2l8MdqsuWFmSw2xehohrWUQoDxTbdn0XI4pTG3Trq8 +DKxviE3YnJPDKxkth088LANCKDy+5aIcEgpinPanZdDavpt6VSiHFrUB1qde +loH2MRGBvhY5bArYvzn5Sxl8KThR8ENBHo0/b3tTLM8DF6mtw4p35XE4tNmt ++QQP1oRVn85+KI+agbFCUad4sOTdChlmvTxWNYUYaZ/hQSVPADhv5JFZ5KcT +mswDGZvKlNXz8ig7kBHWmseD1tNs/Q02CmgSqnYouJUH67/Phvq9V8Dv2pVJ +r5aTELIpfdWTbwq47myv7mYpEspuanVLTilgc91h/YcyJMjZuxtXCitit+qA +faYiCd8e/DMtoK2IEbwGASM1Ei5EpwReOamIKt9kmT+MSHgnzfGrE1VCMU5g +1VFnEmSPPlaWlVXCz85KFqmuJGxpdHzhw1BCDxeZVaQbCeWhiZrL1iihaMkh +xU/7STjbPzq0x1EJ9Y1vxer5kqBXVO31PUcJ2daYaRtOwmmzHR4Ka5XRrus9 +LymThE17s38YWSjjrSdR+dFZJIhFfT2za4sygl5PQmA2CVm1MQUp7sroE/BY +dVsOCQ+sq74uSlDGVYvXxvUXkTDqyAoef6OMvKyTkUcekFARekxo+QdlfA3V +kbpVJERk/X1Ze0QZwxrm/X9UkyAy4FDtw6+CH1Uerzn8mAR1r3N8A6tU0FT+ +GmdtPQl7gybPNoepoJrRmBy+IkHtkoXSUIwKzpr2+L1q/+/8zpcKpajgsN/o +w/0dJIT+XtlqkaeCGeGClmFvSLh4Zq90ZbMK7qkf4ovtJ6E5teF6vrIqcozm +MpZ8JcGk7Mq9iMeq+CJVZ6JtnoT1nS1/RhpVUWqi+soYHwVb+RZudGtTxZuJ +QrdE+SnYb+f3Bj6qomj9nlnuQgqswpiRUYIMjHIJS44UpuCY6lTuOg0Gyi/d +UBsrTsHk3ZTGGR0Ghrg8kQhfTkHoJo1hSp+BN7NNWv0kKIg57m5ImDPw+HBj +xhYpCjJrmxr5dzBwb9yM6/9kKajzuj5cG8xAj7rmNYUqFGz+bSwRHsbAufel +FwNVKWhJaTfUj2Jg3WtPX3MGBW8qF0flJTBwMkUttIlJwcjSQImYLAa+XH6R +VcemIOCGmBH3JgNHN75ZG65GwU/9IufJfAY+cM2s1+VQILC3L8+Tx8DXW47b +XlSnQI7cZGT1lIGHK/KlzVdRcG39e+e5egb+Y8f3e5A28eZUVPlzBtaycvee +0aBAi//uM85rBl5acCfzkSYFFvbKLkJfGJjdV/hLRocC359jUY2iTOx9ebJ1 +2xoKTI4flPkkwcSurz/5OmgLD3XfFpBj4lhohtUefQrye2o7zAkmxt9rlXQw +oKDv0UXN+4ZMPBn6q1HHiIISoyVP20yZmFuheD+bdigZ4TCKTCzPrapespYC +mRyvaA0bJlYEr1Hspr0txrjrphu9v02A4W4TClTmSo88PsDEvAWfFpfR/hZM +CLz1YWJBhvcfflMK4r2XassFMjHxT8DGPNq7ByNrDUKYaDruc32UNttpwnFn +BBMfiVkrmJhRUGPz9kxyPBMd+G6H1dFOrtshX5LERJOm7P2CXApcuPVlz9KY +mHpj33FL2jPavDcLrzFRwmrTggrajbdYR4kcJm589u6vb7QzGJcX4i0mLq8x +11U1p0BP4rROGMXEJCt9oXDafImTdZfLmcgz2aJXQLtF4JBTeTUT7Q4RCS9o +Z4X3fX9Vw8SXTSdEftA+PGkXM/YPE8UExf6WBPr8/RoUlj1nokjQrat6tIU/ +m5KarUzcsVKoaCvtDjdyg/VrJnq+G/3oRTuvi93j1c1Eb4mVOyNo+++4ciym +n4nRvYFjqbSxSXRR7gcmekhlPsmhLWYZfbXmf0ys5LrVkbTfVk+t7hthYl1i +4mw17RL9w/W/xplYO/DpQB3t0NJ+Z/kZJga9MF7YRHsTx37McI6Jl1Js3zTT +lrneGGsvQKCHzLcP//mDLFfJX5hA0Z/96v/dfyeFos6LErg+bCLnv/WiFnM2 +lkoQmJM6ufsh7W3Rmb1NsgRyu3jrKdoqv8T8vygRKHxp1DeX9reAM0KLCAL9 +amJa02hXfZvOYqkT+GSUeyySdrynr946TQLzj3zZ4kN7d99Aw15dAovUdnlt +p8122OUabkjgPZ59jT7tHy+f/bhiSmCk9QNHGdo1m8zjK5BA2d4dupP090h+ +ckf59QYCt46NW/9L28VE/e4PawIt/z5eUEx7RkO8T2sXgarR2zm7aE9dUzi9 +xonA4bhxLXXaE8vU2MZuBO7+Syp9iq6XkXHjQ+t9CAx2/x2RRPur53pRaz8C +naucBHfR/tK5ldwWQKDpnOewPO131funnE4ROFX24ONVul77tfyuuEcTOGaV +Ne1Iu/f6SbODcQSuVfH0k6TdcSYp+ngqgREWH5Oi6PpvsqkQi88nkJUdfNuU +7p+Gv59QScUEDjg7/HpvTOeXTrP9BR6Bm8qKyhNoP5IczMyuJHD5ogn/F3Q/ +3ulZon7/BYEnUoLkDen+5dlKN1W1EfhaxKD3mSFdH49Vj9R0EngrXma5M+2C +XP27zwcJPKaf0x5E50Hm4b3wbpLAPx2l3efo/Lj01vvd51l6/xFrKxHa6dsC +YobnCWQkvV2VoEef95r45z8Xs1B7t8O+MF0Kon9RDstUWHg27VPOOjqfDicK +HjOzYmHDn2Dt3XS+ef9ZJmlhw8KaNvm00pUUHDyqUL5xOwtdch6F89N236nz +286JhXuNcofy6Ly0V9wT7+PHQgMbIYtmOm/NbpfcyMhgYSdjR3E+nd89jNvX +N1xl4e+3zLn3ynS9ZxRlT1xnoeqteSMG7YrTBVl2RSzsN3zvnqZI97vjjcti +D1l4S+RAlqscBSsF01NiB1nYPgwHUuh50hiadt7gEwvbku4FlNLz5uBoSvKH +IRZaCe8LalxG92tP0jmLCRbW+UXY/RSlgHEnLn5uERszao4mwBK6n9zCooI1 +2Zi+5O1lX3q+3W8PiVTTZaPfbdOVPgvo97E+GdFuwEbBaPsH++l5mGYQFK4H +bCy1HXhtN0eCqMjRkyM72HhVPoctP0vCwsp9xw6eYGOmWm+t1RgJYxLW7ruf +slGsQ4XS6COhy5doPdTARmq7hl1LLwk19bMQ2cxGvpL5+349JKSE3lYt7GBj +eYlJU2EXCavfifTPDLFxYV+hBT89//2ol67XJNVwybKl+2waSBjatsv5wwE1 +bPXVfMctI6GtSOv5Tx81lLdc9z2zhIQqgUWmokfVUKn76uBkMQkJFeUKhiFq +OFUcF5p/i4QVqnLdcUlqqM8Wz/p6gwSvkW5HjXI1zBBMvCh1gYQP59x3+wtx +8A6MaQ0G0fsPaRKrRTjY8WCDs3IgCdMbZ4aHxTkoEmrb5uBPwhKBtBgfBQ7W +p6vdbPCjnz+k9p67FgcrzJ71pHmRcMqTI7ltJwdddKYudDmSIGP+7aXGdQ5+ +38pIVTchYfP3E5s/GqqjkbpstPgoD5R0VWKFzdQxL4pb7PaVByP+dU811qmj +bfw+p9ufeJA+JW7mb6OOElUuLmvf8qDvT5H2vJs6jsgu1VjZxAN/kV5J+QR1 +DOx9Kemdy4PMldi3pUcdr07+j+G7kwff9gsH3ItcgZZsWVGZ4jL6f0SWP+7p +Srzs4PRyD7cUJF5wksnvq3Def7jK4dltUIrnbTc01MRUz4E5CaViuKxhLC7p +pYXnD58NTA8thCaFdQbjqdqYuj3kX4euAjBRepqi06GDz2P6VkQsywcxgZxA +j+jVeOIY0SHsnQsqp1XN9nB0kRgQUR/PvwmL1VzK7Rp0sUFdif/X+HXQ5srz +TrjqITc9dLBxMgv8+yRqrfnWoLuQujQOXIHv4+d2bb68BlVNmgZCVl2CjTr1 +mZu19LHwgtv65tJ0eDRu+mu6RR+nE9PvnNdKAz9Nve5/PQ0Qj1gFJwinAHfk +QPuexYa4wDmS2/8qETaw5WxFcwxx+nvpjC/Ew4qosyefGhnhwbs1SY1SMbDK +0/ixWrcR/nYOJxwEosHzkfdf946vRWHBA7E9PyLg8Y32A2PSxgg/zbsUFUNh +onB+WqfCGKNMZE96TwfBfrXbizNtTfBSXsUhy6v+MLbqguGdURNMZiQ8Thry +gwd5vwYn403xRf3m+179PuC0noWmKmbYar1FacsNT1A8ElepXUN75/PKD/c9 +IHn+oEHiUzMcu+H8NbbQA/jTrKjPdWZ4N+pTn+5VDxgqFyy68cwMxfUzZ25G +eUAV31+XJV6Z4XK3pFNDNh7glB51YuqjGd5Y/KtO7oM7XK4OMXi0lIubC3iN +TQruIL3El7J14OLxJikbhXWukGd5KnR0DxdXqvrmdqm7gt6pZMsLLlz0vrlQ +vFjMFbaOkq+7PLi4015pOqbXBWI7Jmf2+3Jx6dHB+4wQF/iZE2kRepqLkpyh +5s77ztBteuFVwW0uGto8X/bbzAm8g/KyNpdxUcUp9eIijhNMld33/EZy8dqy +rCfEMieQILqmdcu5uN5utv/84B6wEVZW+ruGi2ckzOdN4/bAw/aCA69ec7H4 +UxDR9toRrMUeaAV3cfGzQmnf2GNH6Nr4bEquh4uLhg1TiWJHmKj6Gr93gIuM +waHS8ghH0Lq5uvR/Q1wcdzlxqXCFIzzsXhd8bpiLXm3/dG6VpNeT2gk6o1y0 +Oa73QHDOAQ7GBf0bOMlFs+R87fxXDjBRE5sp+5OLG+MdeEmPHCB69tL+qlku +NuVG5McWOYC4fpGm6x8uWvuEL0pJd4DsI1WT8/NczJSraCiKdID/A3SwXww= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.06737976635857869}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2500,19 +7161,19 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.06737976635857869}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2526,330 +7187,116 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== +1:eJwV13k4VesXB3CRqJDMs3P2OY7KFBkyHGtFqUiDFBlCJZRUpjKEdE2JkFSS +yhTC2buB0C3FRZJcCSFD808RmaLit+9f+/k8z37ed+93r/Vdz2buO2rnyc/H +xye0gI/vv+tU37M6dmKeOdHRE9dujObt2XIh67qiQcB7+aGyOmVA6Zf75LrS +QP2MROChOi0I3l7cKdCVA8c12v/h1nFh+Yhs2kznHRCVksj5XWsL/Q+3Hp3o +fAqRM/MDq2tdwYo99Hassw3ig2cDVWqOwEyn0cXRzncQlaOn9OnuKai1vJX3 +b844uHeHlRlUJ4NSf+WnfZp/oO3j/V+zaRkg5etWLGQpgNPd51Nzna9Bmq5V +9dZdwngpfuFVafUceHN5dc2YuCiOWmpxHFbmQ2Je5Et++eUo4X4qfSGzEGTT +3ydcuCaJ25tndU6WF0Oc/Wbztilp3Lla3tSspQQU7rUo8C+QQf8NkhVZHSVQ +Jmk/rbtUBpvMJ4npvhLoaNtLpqrKIKPsev2V7yXA3hFI7Ngkg3J6W1gZ4qXw +1Pb6otYrMih9qefgoR2l8MdqsuWFmSw2xehohrWUQoDxTbdn0XI4pTG3Trq8 +DKxviE3YnJPDKxkth088LANCKDy+5aIcEgpinPanZdDavpt6VSiHFrUB1qde +loH2MRGBvhY5bArYvzn5Sxl8KThR8ENBHo0/b3tTLM8DF6mtw4p35XE4tNmt ++QQP1oRVn85+KI+agbFCUad4sOTdChlmvTxWNYUYaZ/hQSVPADhv5JFZ5KcT +mswDGZvKlNXz8ig7kBHWmseD1tNs/Q02CmgSqnYouJUH67/Phvq9V8Dv2pVJ +r5aTELIpfdWTbwq47myv7mYpEspuanVLTilgc91h/YcyJMjZuxtXCitit+qA +faYiCd8e/DMtoK2IEbwGASM1Ei5EpwReOamIKt9kmT+MSHgnzfGrE1VCMU5g +1VFnEmSPPlaWlVXCz85KFqmuJGxpdHzhw1BCDxeZVaQbCeWhiZrL1iihaMkh +xU/7STjbPzq0x1EJ9Y1vxer5kqBXVO31PUcJ2daYaRtOwmmzHR4Ka5XRrus9 +LymThE17s38YWSjjrSdR+dFZJIhFfT2za4sygl5PQmA2CVm1MQUp7sroE/BY +dVsOCQ+sq74uSlDGVYvXxvUXkTDqyAoef6OMvKyTkUcekFARekxo+QdlfA3V +kbpVJERk/X1Ze0QZwxrm/X9UkyAy4FDtw6+CH1Uerzn8mAR1r3N8A6tU0FT+ +GmdtPQl7gybPNoepoJrRmBy+IkHtkoXSUIwKzpr2+L1q/+/8zpcKpajgsN/o +w/0dJIT+XtlqkaeCGeGClmFvSLh4Zq90ZbMK7qkf4ovtJ6E5teF6vrIqcozm +MpZ8JcGk7Mq9iMeq+CJVZ6JtnoT1nS1/RhpVUWqi+soYHwVb+RZudGtTxZuJ +QrdE+SnYb+f3Bj6qomj9nlnuQgqswpiRUYIMjHIJS44UpuCY6lTuOg0Gyi/d +UBsrTsHk3ZTGGR0Ghrg8kQhfTkHoJo1hSp+BN7NNWv0kKIg57m5ImDPw+HBj +xhYpCjJrmxr5dzBwb9yM6/9kKajzuj5cG8xAj7rmNYUqFGz+bSwRHsbAufel +FwNVKWhJaTfUj2Jg3WtPX3MGBW8qF0flJTBwMkUttIlJwcjSQImYLAa+XH6R +VcemIOCGmBH3JgNHN75ZG65GwU/9IufJfAY+cM2s1+VQILC3L8+Tx8DXW47b +XlSnQI7cZGT1lIGHK/KlzVdRcG39e+e5egb+Y8f3e5A28eZUVPlzBtaycvee +0aBAi//uM85rBl5acCfzkSYFFvbKLkJfGJjdV/hLRocC359jUY2iTOx9ebJ1 +2xoKTI4flPkkwcSurz/5OmgLD3XfFpBj4lhohtUefQrye2o7zAkmxt9rlXQw +oKDv0UXN+4ZMPBn6q1HHiIISoyVP20yZmFuheD+bdigZ4TCKTCzPrapespYC +mRyvaA0bJlYEr1Hspr0txrjrphu9v02A4W4TClTmSo88PsDEvAWfFpfR/hZM +CLz1YWJBhvcfflMK4r2XassFMjHxT8DGPNq7ByNrDUKYaDruc32UNttpwnFn +BBMfiVkrmJhRUGPz9kxyPBMd+G6H1dFOrtshX5LERJOm7P2CXApcuPVlz9KY +mHpj33FL2jPavDcLrzFRwmrTggrajbdYR4kcJm589u6vb7QzGJcX4i0mLq8x +11U1p0BP4rROGMXEJCt9oXDafImTdZfLmcgz2aJXQLtF4JBTeTUT7Q4RCS9o +Z4X3fX9Vw8SXTSdEftA+PGkXM/YPE8UExf6WBPr8/RoUlj1nokjQrat6tIU/ +m5KarUzcsVKoaCvtDjdyg/VrJnq+G/3oRTuvi93j1c1Eb4mVOyNo+++4ciym +n4nRvYFjqbSxSXRR7gcmekhlPsmhLWYZfbXmf0ys5LrVkbTfVk+t7hthYl1i +4mw17RL9w/W/xplYO/DpQB3t0NJ+Z/kZJga9MF7YRHsTx37McI6Jl1Js3zTT +lrneGGsvQKCHzLcP//mDLFfJX5hA0Z/96v/dfyeFos6LErg+bCLnv/WiFnM2 +lkoQmJM6ufsh7W3Rmb1NsgRyu3jrKdoqv8T8vygRKHxp1DeX9reAM0KLCAL9 +amJa02hXfZvOYqkT+GSUeyySdrynr946TQLzj3zZ4kN7d99Aw15dAovUdnlt +p8122OUabkjgPZ59jT7tHy+f/bhiSmCk9QNHGdo1m8zjK5BA2d4dupP090h+ +ckf59QYCt46NW/9L28VE/e4PawIt/z5eUEx7RkO8T2sXgarR2zm7aE9dUzi9 +xonA4bhxLXXaE8vU2MZuBO7+Syp9iq6XkXHjQ+t9CAx2/x2RRPur53pRaz8C +naucBHfR/tK5ldwWQKDpnOewPO131funnE4ROFX24ONVul77tfyuuEcTOGaV +Ne1Iu/f6SbODcQSuVfH0k6TdcSYp+ngqgREWH5Oi6PpvsqkQi88nkJUdfNuU +7p+Gv59QScUEDjg7/HpvTOeXTrP9BR6Bm8qKyhNoP5IczMyuJHD5ogn/F3Q/ +3ulZon7/BYEnUoLkDen+5dlKN1W1EfhaxKD3mSFdH49Vj9R0EngrXma5M+2C +XP27zwcJPKaf0x5E50Hm4b3wbpLAPx2l3efo/Lj01vvd51l6/xFrKxHa6dsC +YobnCWQkvV2VoEef95r45z8Xs1B7t8O+MF0Kon9RDstUWHg27VPOOjqfDicK +HjOzYmHDn2Dt3XS+ef9ZJmlhw8KaNvm00pUUHDyqUL5xOwtdch6F89N236nz +286JhXuNcofy6Ly0V9wT7+PHQgMbIYtmOm/NbpfcyMhgYSdjR3E+nd89jNvX +N1xl4e+3zLn3ynS9ZxRlT1xnoeqteSMG7YrTBVl2RSzsN3zvnqZI97vjjcti +D1l4S+RAlqscBSsF01NiB1nYPgwHUuh50hiadt7gEwvbku4FlNLz5uBoSvKH +IRZaCe8LalxG92tP0jmLCRbW+UXY/RSlgHEnLn5uERszao4mwBK6n9zCooI1 +2Zi+5O1lX3q+3W8PiVTTZaPfbdOVPgvo97E+GdFuwEbBaPsH++l5mGYQFK4H +bCy1HXhtN0eCqMjRkyM72HhVPoctP0vCwsp9xw6eYGOmWm+t1RgJYxLW7ruf +slGsQ4XS6COhy5doPdTARmq7hl1LLwk19bMQ2cxGvpL5+349JKSE3lYt7GBj +eYlJU2EXCavfifTPDLFxYV+hBT89//2ol67XJNVwybKl+2waSBjatsv5wwE1 +bPXVfMctI6GtSOv5Tx81lLdc9z2zhIQqgUWmokfVUKn76uBkMQkJFeUKhiFq +OFUcF5p/i4QVqnLdcUlqqM8Wz/p6gwSvkW5HjXI1zBBMvCh1gYQP59x3+wtx +8A6MaQ0G0fsPaRKrRTjY8WCDs3IgCdMbZ4aHxTkoEmrb5uBPwhKBtBgfBQ7W +p6vdbPCjnz+k9p67FgcrzJ71pHmRcMqTI7ltJwdddKYudDmSIGP+7aXGdQ5+ +38pIVTchYfP3E5s/GqqjkbpstPgoD5R0VWKFzdQxL4pb7PaVByP+dU811qmj +bfw+p9ufeJA+JW7mb6OOElUuLmvf8qDvT5H2vJs6jsgu1VjZxAN/kV5J+QR1 +DOx9Kemdy4PMldi3pUcdr07+j+G7kwff9gsH3ItcgZZsWVGZ4jL6f0SWP+7p +Srzs4PRyD7cUJF5wksnvq3Def7jK4dltUIrnbTc01MRUz4E5CaViuKxhLC7p +pYXnD58NTA8thCaFdQbjqdqYuj3kX4euAjBRepqi06GDz2P6VkQsywcxgZxA +j+jVeOIY0SHsnQsqp1XN9nB0kRgQUR/PvwmL1VzK7Rp0sUFdif/X+HXQ5srz +TrjqITc9dLBxMgv8+yRqrfnWoLuQujQOXIHv4+d2bb68BlVNmgZCVl2CjTr1 +mZu19LHwgtv65tJ0eDRu+mu6RR+nE9PvnNdKAz9Nve5/PQ0Qj1gFJwinAHfk +QPuexYa4wDmS2/8qETaw5WxFcwxx+nvpjC/Ew4qosyefGhnhwbs1SY1SMbDK +0/ixWrcR/nYOJxwEosHzkfdf946vRWHBA7E9PyLg8Y32A2PSxgg/zbsUFUNh +onB+WqfCGKNMZE96TwfBfrXbizNtTfBSXsUhy6v+MLbqguGdURNMZiQ8Thry +gwd5vwYn403xRf3m+179PuC0noWmKmbYar1FacsNT1A8ElepXUN75/PKD/c9 +IHn+oEHiUzMcu+H8NbbQA/jTrKjPdWZ4N+pTn+5VDxgqFyy68cwMxfUzZ25G +eUAV31+XJV6Z4XK3pFNDNh7glB51YuqjGd5Y/KtO7oM7XK4OMXi0lIubC3iN +TQruIL3El7J14OLxJikbhXWukGd5KnR0DxdXqvrmdqm7gt6pZMsLLlz0vrlQ +vFjMFbaOkq+7PLi4015pOqbXBWI7Jmf2+3Jx6dHB+4wQF/iZE2kRepqLkpyh +5s77ztBteuFVwW0uGto8X/bbzAm8g/KyNpdxUcUp9eIijhNMld33/EZy8dqy +rCfEMieQILqmdcu5uN5utv/84B6wEVZW+ruGi2ckzOdN4/bAw/aCA69ec7H4 +UxDR9toRrMUeaAV3cfGzQmnf2GNH6Nr4bEquh4uLhg1TiWJHmKj6Gr93gIuM +waHS8ghH0Lq5uvR/Q1wcdzlxqXCFIzzsXhd8bpiLXm3/dG6VpNeT2gk6o1y0 +Oa73QHDOAQ7GBf0bOMlFs+R87fxXDjBRE5sp+5OLG+MdeEmPHCB69tL+qlku +NuVG5McWOYC4fpGm6x8uWvuEL0pJd4DsI1WT8/NczJSraCiKdID/A3SwXww= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.06737976635857869}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2860,6 +7307,7 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2887,7 +7335,8 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06737976635857869}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2895,25 +7344,871 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991334471589432*^9}, + CellChangeTimes->{3.991334471589432*^9, 3.993911699601275*^9}, CellLabel-> - "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] + "Out[469]=",ExpressionUUID->"089a698f-7b8d-4b27-94ed-4ef88eb53843"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ -a8e133e7a081"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.007417"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.021549"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.034628"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.045917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.054602"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.061093"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.06517"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.066873"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.066776"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.065063"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.062072"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058207"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.053722"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.048873"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.043893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.038938"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.034149"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.029622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.025427"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021604"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018178"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.015148"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.012507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.010233"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.008299"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.006672"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.00532"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.004206"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.003299"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.002567"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.001983"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993910327600246*^9}, + CellLabel-> + "In[470]:=",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.066873}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993911699754704*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"b0d8f2c3-9630-462c-ab11-388fe567dc23"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ -f16397f0b922"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[471]:=",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VesXB3CRqJDMs3P2OY7KFBkyHGtFqUiDFBlCJZRUpjKEdE2JkFSS +yhTC2buB0C3FRZJcCSFD808RmaLit+9f+/k8z37ed+93r/Vdz2buO2rnyc/H +xye0gI/vv+tU37M6dmKeOdHRE9dujObt2XIh67qiQcB7+aGyOmVA6Zf75LrS +QP2MROChOi0I3l7cKdCVA8c12v/h1nFh+Yhs2kznHRCVksj5XWsL/Q+3Hp3o +fAqRM/MDq2tdwYo99Hassw3ig2cDVWqOwEyn0cXRzncQlaOn9OnuKai1vJX3 +b844uHeHlRlUJ4NSf+WnfZp/oO3j/V+zaRkg5etWLGQpgNPd51Nzna9Bmq5V +9dZdwngpfuFVafUceHN5dc2YuCiOWmpxHFbmQ2Je5Et++eUo4X4qfSGzEGTT +3ydcuCaJ25tndU6WF0Oc/Wbztilp3Lla3tSspQQU7rUo8C+QQf8NkhVZHSVQ +Jmk/rbtUBpvMJ4npvhLoaNtLpqrKIKPsev2V7yXA3hFI7Ngkg3J6W1gZ4qXw +1Pb6otYrMih9qefgoR2l8MdqsuWFmSw2xehohrWUQoDxTbdn0XI4pTG3Trq8 +DKxviE3YnJPDKxkth088LANCKDy+5aIcEgpinPanZdDavpt6VSiHFrUB1qde +loH2MRGBvhY5bArYvzn5Sxl8KThR8ENBHo0/b3tTLM8DF6mtw4p35XE4tNmt ++QQP1oRVn85+KI+agbFCUad4sOTdChlmvTxWNYUYaZ/hQSVPADhv5JFZ5KcT +mswDGZvKlNXz8ig7kBHWmseD1tNs/Q02CmgSqnYouJUH67/Phvq9V8Dv2pVJ +r5aTELIpfdWTbwq47myv7mYpEspuanVLTilgc91h/YcyJMjZuxtXCitit+qA +faYiCd8e/DMtoK2IEbwGASM1Ei5EpwReOamIKt9kmT+MSHgnzfGrE1VCMU5g +1VFnEmSPPlaWlVXCz85KFqmuJGxpdHzhw1BCDxeZVaQbCeWhiZrL1iihaMkh +xU/7STjbPzq0x1EJ9Y1vxer5kqBXVO31PUcJ2daYaRtOwmmzHR4Ka5XRrus9 +LymThE17s38YWSjjrSdR+dFZJIhFfT2za4sygl5PQmA2CVm1MQUp7sroE/BY +dVsOCQ+sq74uSlDGVYvXxvUXkTDqyAoef6OMvKyTkUcekFARekxo+QdlfA3V +kbpVJERk/X1Ze0QZwxrm/X9UkyAy4FDtw6+CH1Uerzn8mAR1r3N8A6tU0FT+ +GmdtPQl7gybPNoepoJrRmBy+IkHtkoXSUIwKzpr2+L1q/+/8zpcKpajgsN/o +w/0dJIT+XtlqkaeCGeGClmFvSLh4Zq90ZbMK7qkf4ovtJ6E5teF6vrIqcozm +MpZ8JcGk7Mq9iMeq+CJVZ6JtnoT1nS1/RhpVUWqi+soYHwVb+RZudGtTxZuJ +QrdE+SnYb+f3Bj6qomj9nlnuQgqswpiRUYIMjHIJS44UpuCY6lTuOg0Gyi/d +UBsrTsHk3ZTGGR0Ghrg8kQhfTkHoJo1hSp+BN7NNWv0kKIg57m5ImDPw+HBj +xhYpCjJrmxr5dzBwb9yM6/9kKajzuj5cG8xAj7rmNYUqFGz+bSwRHsbAufel +FwNVKWhJaTfUj2Jg3WtPX3MGBW8qF0flJTBwMkUttIlJwcjSQImYLAa+XH6R +VcemIOCGmBH3JgNHN75ZG65GwU/9IufJfAY+cM2s1+VQILC3L8+Tx8DXW47b +XlSnQI7cZGT1lIGHK/KlzVdRcG39e+e5egb+Y8f3e5A28eZUVPlzBtaycvee +0aBAi//uM85rBl5acCfzkSYFFvbKLkJfGJjdV/hLRocC359jUY2iTOx9ebJ1 +2xoKTI4flPkkwcSurz/5OmgLD3XfFpBj4lhohtUefQrye2o7zAkmxt9rlXQw +oKDv0UXN+4ZMPBn6q1HHiIISoyVP20yZmFuheD+bdigZ4TCKTCzPrapespYC +mRyvaA0bJlYEr1Hspr0txrjrphu9v02A4W4TClTmSo88PsDEvAWfFpfR/hZM +CLz1YWJBhvcfflMK4r2XassFMjHxT8DGPNq7ByNrDUKYaDruc32UNttpwnFn +BBMfiVkrmJhRUGPz9kxyPBMd+G6H1dFOrtshX5LERJOm7P2CXApcuPVlz9KY +mHpj33FL2jPavDcLrzFRwmrTggrajbdYR4kcJm589u6vb7QzGJcX4i0mLq8x +11U1p0BP4rROGMXEJCt9oXDafImTdZfLmcgz2aJXQLtF4JBTeTUT7Q4RCS9o +Z4X3fX9Vw8SXTSdEftA+PGkXM/YPE8UExf6WBPr8/RoUlj1nokjQrat6tIU/ +m5KarUzcsVKoaCvtDjdyg/VrJnq+G/3oRTuvi93j1c1Eb4mVOyNo+++4ciym +n4nRvYFjqbSxSXRR7gcmekhlPsmhLWYZfbXmf0ys5LrVkbTfVk+t7hthYl1i +4mw17RL9w/W/xplYO/DpQB3t0NJ+Z/kZJga9MF7YRHsTx37McI6Jl1Js3zTT +lrneGGsvQKCHzLcP//mDLFfJX5hA0Z/96v/dfyeFos6LErg+bCLnv/WiFnM2 +lkoQmJM6ufsh7W3Rmb1NsgRyu3jrKdoqv8T8vygRKHxp1DeX9reAM0KLCAL9 +amJa02hXfZvOYqkT+GSUeyySdrynr946TQLzj3zZ4kN7d99Aw15dAovUdnlt +p8122OUabkjgPZ59jT7tHy+f/bhiSmCk9QNHGdo1m8zjK5BA2d4dupP090h+ +ckf59QYCt46NW/9L28VE/e4PawIt/z5eUEx7RkO8T2sXgarR2zm7aE9dUzi9 +xonA4bhxLXXaE8vU2MZuBO7+Syp9iq6XkXHjQ+t9CAx2/x2RRPur53pRaz8C +naucBHfR/tK5ldwWQKDpnOewPO131funnE4ROFX24ONVul77tfyuuEcTOGaV +Ne1Iu/f6SbODcQSuVfH0k6TdcSYp+ngqgREWH5Oi6PpvsqkQi88nkJUdfNuU +7p+Gv59QScUEDjg7/HpvTOeXTrP9BR6Bm8qKyhNoP5IczMyuJHD5ogn/F3Q/ +3ulZon7/BYEnUoLkDen+5dlKN1W1EfhaxKD3mSFdH49Vj9R0EngrXma5M+2C +XP27zwcJPKaf0x5E50Hm4b3wbpLAPx2l3efo/Lj01vvd51l6/xFrKxHa6dsC +YobnCWQkvV2VoEef95r45z8Xs1B7t8O+MF0Kon9RDstUWHg27VPOOjqfDicK +HjOzYmHDn2Dt3XS+ef9ZJmlhw8KaNvm00pUUHDyqUL5xOwtdch6F89N236nz +286JhXuNcofy6Ly0V9wT7+PHQgMbIYtmOm/NbpfcyMhgYSdjR3E+nd89jNvX +N1xl4e+3zLn3ynS9ZxRlT1xnoeqteSMG7YrTBVl2RSzsN3zvnqZI97vjjcti +D1l4S+RAlqscBSsF01NiB1nYPgwHUuh50hiadt7gEwvbku4FlNLz5uBoSvKH +IRZaCe8LalxG92tP0jmLCRbW+UXY/RSlgHEnLn5uERszao4mwBK6n9zCooI1 +2Zi+5O1lX3q+3W8PiVTTZaPfbdOVPgvo97E+GdFuwEbBaPsH++l5mGYQFK4H +bCy1HXhtN0eCqMjRkyM72HhVPoctP0vCwsp9xw6eYGOmWm+t1RgJYxLW7ruf +slGsQ4XS6COhy5doPdTARmq7hl1LLwk19bMQ2cxGvpL5+349JKSE3lYt7GBj +eYlJU2EXCavfifTPDLFxYV+hBT89//2ol67XJNVwybKl+2waSBjatsv5wwE1 +bPXVfMctI6GtSOv5Tx81lLdc9z2zhIQqgUWmokfVUKn76uBkMQkJFeUKhiFq +OFUcF5p/i4QVqnLdcUlqqM8Wz/p6gwSvkW5HjXI1zBBMvCh1gYQP59x3+wtx +8A6MaQ0G0fsPaRKrRTjY8WCDs3IgCdMbZ4aHxTkoEmrb5uBPwhKBtBgfBQ7W +p6vdbPCjnz+k9p67FgcrzJ71pHmRcMqTI7ltJwdddKYudDmSIGP+7aXGdQ5+ +38pIVTchYfP3E5s/GqqjkbpstPgoD5R0VWKFzdQxL4pb7PaVByP+dU811qmj +bfw+p9ufeJA+JW7mb6OOElUuLmvf8qDvT5H2vJs6jsgu1VjZxAN/kV5J+QR1 +DOx9Kemdy4PMldi3pUcdr07+j+G7kwff9gsH3ItcgZZsWVGZ4jL6f0SWP+7p +Srzs4PRyD7cUJF5wksnvq3Def7jK4dltUIrnbTc01MRUz4E5CaViuKxhLC7p +pYXnD58NTA8thCaFdQbjqdqYuj3kX4euAjBRepqi06GDz2P6VkQsywcxgZxA +j+jVeOIY0SHsnQsqp1XN9nB0kRgQUR/PvwmL1VzK7Rp0sUFdif/X+HXQ5srz +TrjqITc9dLBxMgv8+yRqrfnWoLuQujQOXIHv4+d2bb68BlVNmgZCVl2CjTr1 +mZu19LHwgtv65tJ0eDRu+mu6RR+nE9PvnNdKAz9Nve5/PQ0Qj1gFJwinAHfk +QPuexYa4wDmS2/8qETaw5WxFcwxx+nvpjC/Ew4qosyefGhnhwbs1SY1SMbDK +0/ixWrcR/nYOJxwEosHzkfdf946vRWHBA7E9PyLg8Y32A2PSxgg/zbsUFUNh +onB+WqfCGKNMZE96TwfBfrXbizNtTfBSXsUhy6v+MLbqguGdURNMZiQ8Thry +gwd5vwYn403xRf3m+179PuC0noWmKmbYar1FacsNT1A8ElepXUN75/PKD/c9 +IHn+oEHiUzMcu+H8NbbQA/jTrKjPdWZ4N+pTn+5VDxgqFyy68cwMxfUzZ25G +eUAV31+XJV6Z4XK3pFNDNh7glB51YuqjGd5Y/KtO7oM7XK4OMXi0lIubC3iN +TQruIL3El7J14OLxJikbhXWukGd5KnR0DxdXqvrmdqm7gt6pZMsLLlz0vrlQ +vFjMFbaOkq+7PLi4015pOqbXBWI7Jmf2+3Jx6dHB+4wQF/iZE2kRepqLkpyh +5s77ztBteuFVwW0uGto8X/bbzAm8g/KyNpdxUcUp9eIijhNMld33/EZy8dqy +rCfEMieQILqmdcu5uN5utv/84B6wEVZW+ruGi2ckzOdN4/bAw/aCA69ec7H4 +UxDR9toRrMUeaAV3cfGzQmnf2GNH6Nr4bEquh4uLhg1TiWJHmKj6Gr93gIuM +waHS8ghH0Lq5uvR/Q1wcdzlxqXCFIzzsXhd8bpiLXm3/dG6VpNeT2gk6o1y0 +Oa73QHDOAQ7GBf0bOMlFs+R87fxXDjBRE5sp+5OLG+MdeEmPHCB69tL+qlku +NuVG5McWOYC4fpGm6x8uWvuEL0pJd4DsI1WT8/NczJSraCiKdID/A3SwXww= + + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VesXB3CRqJDMs3P2OY7KFBkyHGtFqUiDFBlCJZRUpjKEdE2JkFSS +yhTC2buB0C3FRZJcCSFD808RmaLit+9f+/k8z37ed+93r/Vdz2buO2rnyc/H +xye0gI/vv+tU37M6dmKeOdHRE9dujObt2XIh67qiQcB7+aGyOmVA6Zf75LrS +QP2MROChOi0I3l7cKdCVA8c12v/h1nFh+Yhs2kznHRCVksj5XWsL/Q+3Hp3o +fAqRM/MDq2tdwYo99Hassw3ig2cDVWqOwEyn0cXRzncQlaOn9OnuKai1vJX3 +b844uHeHlRlUJ4NSf+WnfZp/oO3j/V+zaRkg5etWLGQpgNPd51Nzna9Bmq5V +9dZdwngpfuFVafUceHN5dc2YuCiOWmpxHFbmQ2Je5Et++eUo4X4qfSGzEGTT +3ydcuCaJ25tndU6WF0Oc/Wbztilp3Lla3tSspQQU7rUo8C+QQf8NkhVZHSVQ +Jmk/rbtUBpvMJ4npvhLoaNtLpqrKIKPsev2V7yXA3hFI7Ngkg3J6W1gZ4qXw +1Pb6otYrMih9qefgoR2l8MdqsuWFmSw2xehohrWUQoDxTbdn0XI4pTG3Trq8 +DKxviE3YnJPDKxkth088LANCKDy+5aIcEgpinPanZdDavpt6VSiHFrUB1qde +loH2MRGBvhY5bArYvzn5Sxl8KThR8ENBHo0/b3tTLM8DF6mtw4p35XE4tNmt ++QQP1oRVn85+KI+agbFCUad4sOTdChlmvTxWNYUYaZ/hQSVPADhv5JFZ5KcT +mswDGZvKlNXz8ig7kBHWmseD1tNs/Q02CmgSqnYouJUH67/Phvq9V8Dv2pVJ +r5aTELIpfdWTbwq47myv7mYpEspuanVLTilgc91h/YcyJMjZuxtXCitit+qA +faYiCd8e/DMtoK2IEbwGASM1Ei5EpwReOamIKt9kmT+MSHgnzfGrE1VCMU5g +1VFnEmSPPlaWlVXCz85KFqmuJGxpdHzhw1BCDxeZVaQbCeWhiZrL1iihaMkh +xU/7STjbPzq0x1EJ9Y1vxer5kqBXVO31PUcJ2daYaRtOwmmzHR4Ka5XRrus9 +LymThE17s38YWSjjrSdR+dFZJIhFfT2za4sygl5PQmA2CVm1MQUp7sroE/BY +dVsOCQ+sq74uSlDGVYvXxvUXkTDqyAoef6OMvKyTkUcekFARekxo+QdlfA3V +kbpVJERk/X1Ze0QZwxrm/X9UkyAy4FDtw6+CH1Uerzn8mAR1r3N8A6tU0FT+ +GmdtPQl7gybPNoepoJrRmBy+IkHtkoXSUIwKzpr2+L1q/+/8zpcKpajgsN/o +w/0dJIT+XtlqkaeCGeGClmFvSLh4Zq90ZbMK7qkf4ovtJ6E5teF6vrIqcozm +MpZ8JcGk7Mq9iMeq+CJVZ6JtnoT1nS1/RhpVUWqi+soYHwVb+RZudGtTxZuJ +QrdE+SnYb+f3Bj6qomj9nlnuQgqswpiRUYIMjHIJS44UpuCY6lTuOg0Gyi/d +UBsrTsHk3ZTGGR0Ghrg8kQhfTkHoJo1hSp+BN7NNWv0kKIg57m5ImDPw+HBj +xhYpCjJrmxr5dzBwb9yM6/9kKajzuj5cG8xAj7rmNYUqFGz+bSwRHsbAufel +FwNVKWhJaTfUj2Jg3WtPX3MGBW8qF0flJTBwMkUttIlJwcjSQImYLAa+XH6R +VcemIOCGmBH3JgNHN75ZG65GwU/9IufJfAY+cM2s1+VQILC3L8+Tx8DXW47b +XlSnQI7cZGT1lIGHK/KlzVdRcG39e+e5egb+Y8f3e5A28eZUVPlzBtaycvee +0aBAi//uM85rBl5acCfzkSYFFvbKLkJfGJjdV/hLRocC359jUY2iTOx9ebJ1 +2xoKTI4flPkkwcSurz/5OmgLD3XfFpBj4lhohtUefQrye2o7zAkmxt9rlXQw +oKDv0UXN+4ZMPBn6q1HHiIISoyVP20yZmFuheD+bdigZ4TCKTCzPrapespYC +mRyvaA0bJlYEr1Hspr0txrjrphu9v02A4W4TClTmSo88PsDEvAWfFpfR/hZM +CLz1YWJBhvcfflMK4r2XassFMjHxT8DGPNq7ByNrDUKYaDruc32UNttpwnFn +BBMfiVkrmJhRUGPz9kxyPBMd+G6H1dFOrtshX5LERJOm7P2CXApcuPVlz9KY +mHpj33FL2jPavDcLrzFRwmrTggrajbdYR4kcJm589u6vb7QzGJcX4i0mLq8x +11U1p0BP4rROGMXEJCt9oXDafImTdZfLmcgz2aJXQLtF4JBTeTUT7Q4RCS9o +Z4X3fX9Vw8SXTSdEftA+PGkXM/YPE8UExf6WBPr8/RoUlj1nokjQrat6tIU/ +m5KarUzcsVKoaCvtDjdyg/VrJnq+G/3oRTuvi93j1c1Eb4mVOyNo+++4ciym +n4nRvYFjqbSxSXRR7gcmekhlPsmhLWYZfbXmf0ys5LrVkbTfVk+t7hthYl1i +4mw17RL9w/W/xplYO/DpQB3t0NJ+Z/kZJga9MF7YRHsTx37McI6Jl1Js3zTT +lrneGGsvQKCHzLcP//mDLFfJX5hA0Z/96v/dfyeFos6LErg+bCLnv/WiFnM2 +lkoQmJM6ufsh7W3Rmb1NsgRyu3jrKdoqv8T8vygRKHxp1DeX9reAM0KLCAL9 +amJa02hXfZvOYqkT+GSUeyySdrynr946TQLzj3zZ4kN7d99Aw15dAovUdnlt +p8122OUabkjgPZ59jT7tHy+f/bhiSmCk9QNHGdo1m8zjK5BA2d4dupP090h+ +ckf59QYCt46NW/9L28VE/e4PawIt/z5eUEx7RkO8T2sXgarR2zm7aE9dUzi9 +xonA4bhxLXXaE8vU2MZuBO7+Syp9iq6XkXHjQ+t9CAx2/x2RRPur53pRaz8C +naucBHfR/tK5ldwWQKDpnOewPO131funnE4ROFX24ONVul77tfyuuEcTOGaV +Ne1Iu/f6SbODcQSuVfH0k6TdcSYp+ngqgREWH5Oi6PpvsqkQi88nkJUdfNuU +7p+Gv59QScUEDjg7/HpvTOeXTrP9BR6Bm8qKyhNoP5IczMyuJHD5ogn/F3Q/ +3ulZon7/BYEnUoLkDen+5dlKN1W1EfhaxKD3mSFdH49Vj9R0EngrXma5M+2C +XP27zwcJPKaf0x5E50Hm4b3wbpLAPx2l3efo/Lj01vvd51l6/xFrKxHa6dsC +YobnCWQkvV2VoEef95r45z8Xs1B7t8O+MF0Kon9RDstUWHg27VPOOjqfDicK +HjOzYmHDn2Dt3XS+ef9ZJmlhw8KaNvm00pUUHDyqUL5xOwtdch6F89N236nz +286JhXuNcofy6Ly0V9wT7+PHQgMbIYtmOm/NbpfcyMhgYSdjR3E+nd89jNvX +N1xl4e+3zLn3ynS9ZxRlT1xnoeqteSMG7YrTBVl2RSzsN3zvnqZI97vjjcti +D1l4S+RAlqscBSsF01NiB1nYPgwHUuh50hiadt7gEwvbku4FlNLz5uBoSvKH +IRZaCe8LalxG92tP0jmLCRbW+UXY/RSlgHEnLn5uERszao4mwBK6n9zCooI1 +2Zi+5O1lX3q+3W8PiVTTZaPfbdOVPgvo97E+GdFuwEbBaPsH++l5mGYQFK4H +bCy1HXhtN0eCqMjRkyM72HhVPoctP0vCwsp9xw6eYGOmWm+t1RgJYxLW7ruf +slGsQ4XS6COhy5doPdTARmq7hl1LLwk19bMQ2cxGvpL5+349JKSE3lYt7GBj +eYlJU2EXCavfifTPDLFxYV+hBT89//2ol67XJNVwybKl+2waSBjatsv5wwE1 +bPXVfMctI6GtSOv5Tx81lLdc9z2zhIQqgUWmokfVUKn76uBkMQkJFeUKhiFq +OFUcF5p/i4QVqnLdcUlqqM8Wz/p6gwSvkW5HjXI1zBBMvCh1gYQP59x3+wtx +8A6MaQ0G0fsPaRKrRTjY8WCDs3IgCdMbZ4aHxTkoEmrb5uBPwhKBtBgfBQ7W +p6vdbPCjnz+k9p67FgcrzJ71pHmRcMqTI7ltJwdddKYudDmSIGP+7aXGdQ5+ +38pIVTchYfP3E5s/GqqjkbpstPgoD5R0VWKFzdQxL4pb7PaVByP+dU811qmj +bfw+p9ufeJA+JW7mb6OOElUuLmvf8qDvT5H2vJs6jsgu1VjZxAN/kV5J+QR1 +DOx9Kemdy4PMldi3pUcdr07+j+G7kwff9gsH3ItcgZZsWVGZ4jL6f0SWP+7p +Srzs4PRyD7cUJF5wksnvq3Def7jK4dltUIrnbTc01MRUz4E5CaViuKxhLC7p +pYXnD58NTA8thCaFdQbjqdqYuj3kX4euAjBRepqi06GDz2P6VkQsywcxgZxA +j+jVeOIY0SHsnQsqp1XN9nB0kRgQUR/PvwmL1VzK7Rp0sUFdif/X+HXQ5srz +TrjqITc9dLBxMgv8+yRqrfnWoLuQujQOXIHv4+d2bb68BlVNmgZCVl2CjTr1 +mZu19LHwgtv65tJ0eDRu+mu6RR+nE9PvnNdKAz9Nve5/PQ0Qj1gFJwinAHfk +QPuexYa4wDmS2/8qETaw5WxFcwxx+nvpjC/Ew4qosyefGhnhwbs1SY1SMbDK +0/ixWrcR/nYOJxwEosHzkfdf946vRWHBA7E9PyLg8Y32A2PSxgg/zbsUFUNh +onB+WqfCGKNMZE96TwfBfrXbizNtTfBSXsUhy6v+MLbqguGdURNMZiQ8Thry +gwd5vwYn403xRf3m+179PuC0noWmKmbYar1FacsNT1A8ElepXUN75/PKD/c9 +IHn+oEHiUzMcu+H8NbbQA/jTrKjPdWZ4N+pTn+5VDxgqFyy68cwMxfUzZ25G +eUAV31+XJV6Z4XK3pFNDNh7glB51YuqjGd5Y/KtO7oM7XK4OMXi0lIubC3iN +TQruIL3El7J14OLxJikbhXWukGd5KnR0DxdXqvrmdqm7gt6pZMsLLlz0vrlQ +vFjMFbaOkq+7PLi4015pOqbXBWI7Jmf2+3Jx6dHB+4wQF/iZE2kRepqLkpyh +5s77ztBteuFVwW0uGto8X/bbzAm8g/KyNpdxUcUp9eIijhNMld33/EZy8dqy +rCfEMieQILqmdcu5uN5utv/84B6wEVZW+ruGi2ckzOdN4/bAw/aCA69ec7H4 +UxDR9toRrMUeaAV3cfGzQmnf2GNH6Nr4bEquh4uLhg1TiWJHmKj6Gr93gIuM +waHS8ghH0Lq5uvR/Q1wcdzlxqXCFIzzsXhd8bpiLXm3/dG6VpNeT2gk6o1y0 +Oa73QHDOAQ7GBf0bOMlFs+R87fxXDjBRE5sp+5OLG+MdeEmPHCB69tL+qlku +NuVG5McWOYC4fpGm6x8uWvuEL0pJd4DsI1WT8/NczJSraCiKdID/A3SwXww= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06737976635857869}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06737976635857869}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VesXB3CRqJDMs3P2OY7KFBkyHGtFqUiDFBlCJZRUpjKEdE2JkFSS +yhTC2buB0C3FRZJcCSFD808RmaLit+9f+/k8z37ed+93r/Vdz2buO2rnyc/H +xye0gI/vv+tU37M6dmKeOdHRE9dujObt2XIh67qiQcB7+aGyOmVA6Zf75LrS +QP2MROChOi0I3l7cKdCVA8c12v/h1nFh+Yhs2kznHRCVksj5XWsL/Q+3Hp3o +fAqRM/MDq2tdwYo99Hassw3ig2cDVWqOwEyn0cXRzncQlaOn9OnuKai1vJX3 +b844uHeHlRlUJ4NSf+WnfZp/oO3j/V+zaRkg5etWLGQpgNPd51Nzna9Bmq5V +9dZdwngpfuFVafUceHN5dc2YuCiOWmpxHFbmQ2Je5Et++eUo4X4qfSGzEGTT +3ydcuCaJ25tndU6WF0Oc/Wbztilp3Lla3tSspQQU7rUo8C+QQf8NkhVZHSVQ +Jmk/rbtUBpvMJ4npvhLoaNtLpqrKIKPsev2V7yXA3hFI7Ngkg3J6W1gZ4qXw +1Pb6otYrMih9qefgoR2l8MdqsuWFmSw2xehohrWUQoDxTbdn0XI4pTG3Trq8 +DKxviE3YnJPDKxkth088LANCKDy+5aIcEgpinPanZdDavpt6VSiHFrUB1qde +loH2MRGBvhY5bArYvzn5Sxl8KThR8ENBHo0/b3tTLM8DF6mtw4p35XE4tNmt ++QQP1oRVn85+KI+agbFCUad4sOTdChlmvTxWNYUYaZ/hQSVPADhv5JFZ5KcT +mswDGZvKlNXz8ig7kBHWmseD1tNs/Q02CmgSqnYouJUH67/Phvq9V8Dv2pVJ +r5aTELIpfdWTbwq47myv7mYpEspuanVLTilgc91h/YcyJMjZuxtXCitit+qA +faYiCd8e/DMtoK2IEbwGASM1Ei5EpwReOamIKt9kmT+MSHgnzfGrE1VCMU5g +1VFnEmSPPlaWlVXCz85KFqmuJGxpdHzhw1BCDxeZVaQbCeWhiZrL1iihaMkh +xU/7STjbPzq0x1EJ9Y1vxer5kqBXVO31PUcJ2daYaRtOwmmzHR4Ka5XRrus9 +LymThE17s38YWSjjrSdR+dFZJIhFfT2za4sygl5PQmA2CVm1MQUp7sroE/BY +dVsOCQ+sq74uSlDGVYvXxvUXkTDqyAoef6OMvKyTkUcekFARekxo+QdlfA3V +kbpVJERk/X1Ze0QZwxrm/X9UkyAy4FDtw6+CH1Uerzn8mAR1r3N8A6tU0FT+ +GmdtPQl7gybPNoepoJrRmBy+IkHtkoXSUIwKzpr2+L1q/+/8zpcKpajgsN/o +w/0dJIT+XtlqkaeCGeGClmFvSLh4Zq90ZbMK7qkf4ovtJ6E5teF6vrIqcozm +MpZ8JcGk7Mq9iMeq+CJVZ6JtnoT1nS1/RhpVUWqi+soYHwVb+RZudGtTxZuJ +QrdE+SnYb+f3Bj6qomj9nlnuQgqswpiRUYIMjHIJS44UpuCY6lTuOg0Gyi/d +UBsrTsHk3ZTGGR0Ghrg8kQhfTkHoJo1hSp+BN7NNWv0kKIg57m5ImDPw+HBj +xhYpCjJrmxr5dzBwb9yM6/9kKajzuj5cG8xAj7rmNYUqFGz+bSwRHsbAufel +FwNVKWhJaTfUj2Jg3WtPX3MGBW8qF0flJTBwMkUttIlJwcjSQImYLAa+XH6R +VcemIOCGmBH3JgNHN75ZG65GwU/9IufJfAY+cM2s1+VQILC3L8+Tx8DXW47b +XlSnQI7cZGT1lIGHK/KlzVdRcG39e+e5egb+Y8f3e5A28eZUVPlzBtaycvee +0aBAi//uM85rBl5acCfzkSYFFvbKLkJfGJjdV/hLRocC359jUY2iTOx9ebJ1 +2xoKTI4flPkkwcSurz/5OmgLD3XfFpBj4lhohtUefQrye2o7zAkmxt9rlXQw +oKDv0UXN+4ZMPBn6q1HHiIISoyVP20yZmFuheD+bdigZ4TCKTCzPrapespYC +mRyvaA0bJlYEr1Hspr0txrjrphu9v02A4W4TClTmSo88PsDEvAWfFpfR/hZM +CLz1YWJBhvcfflMK4r2XassFMjHxT8DGPNq7ByNrDUKYaDruc32UNttpwnFn +BBMfiVkrmJhRUGPz9kxyPBMd+G6H1dFOrtshX5LERJOm7P2CXApcuPVlz9KY +mHpj33FL2jPavDcLrzFRwmrTggrajbdYR4kcJm589u6vb7QzGJcX4i0mLq8x +11U1p0BP4rROGMXEJCt9oXDafImTdZfLmcgz2aJXQLtF4JBTeTUT7Q4RCS9o +Z4X3fX9Vw8SXTSdEftA+PGkXM/YPE8UExf6WBPr8/RoUlj1nokjQrat6tIU/ +m5KarUzcsVKoaCvtDjdyg/VrJnq+G/3oRTuvi93j1c1Eb4mVOyNo+++4ciym +n4nRvYFjqbSxSXRR7gcmekhlPsmhLWYZfbXmf0ys5LrVkbTfVk+t7hthYl1i +4mw17RL9w/W/xplYO/DpQB3t0NJ+Z/kZJga9MF7YRHsTx37McI6Jl1Js3zTT +lrneGGsvQKCHzLcP//mDLFfJX5hA0Z/96v/dfyeFos6LErg+bCLnv/WiFnM2 +lkoQmJM6ufsh7W3Rmb1NsgRyu3jrKdoqv8T8vygRKHxp1DeX9reAM0KLCAL9 +amJa02hXfZvOYqkT+GSUeyySdrynr946TQLzj3zZ4kN7d99Aw15dAovUdnlt +p8122OUabkjgPZ59jT7tHy+f/bhiSmCk9QNHGdo1m8zjK5BA2d4dupP090h+ +ckf59QYCt46NW/9L28VE/e4PawIt/z5eUEx7RkO8T2sXgarR2zm7aE9dUzi9 +xonA4bhxLXXaE8vU2MZuBO7+Syp9iq6XkXHjQ+t9CAx2/x2RRPur53pRaz8C +naucBHfR/tK5ldwWQKDpnOewPO131funnE4ROFX24ONVul77tfyuuEcTOGaV +Ne1Iu/f6SbODcQSuVfH0k6TdcSYp+ngqgREWH5Oi6PpvsqkQi88nkJUdfNuU +7p+Gv59QScUEDjg7/HpvTOeXTrP9BR6Bm8qKyhNoP5IczMyuJHD5ogn/F3Q/ +3ulZon7/BYEnUoLkDen+5dlKN1W1EfhaxKD3mSFdH49Vj9R0EngrXma5M+2C +XP27zwcJPKaf0x5E50Hm4b3wbpLAPx2l3efo/Lj01vvd51l6/xFrKxHa6dsC +YobnCWQkvV2VoEef95r45z8Xs1B7t8O+MF0Kon9RDstUWHg27VPOOjqfDicK +HjOzYmHDn2Dt3XS+ef9ZJmlhw8KaNvm00pUUHDyqUL5xOwtdch6F89N236nz +286JhXuNcofy6Ly0V9wT7+PHQgMbIYtmOm/NbpfcyMhgYSdjR3E+nd89jNvX +N1xl4e+3zLn3ynS9ZxRlT1xnoeqteSMG7YrTBVl2RSzsN3zvnqZI97vjjcti +D1l4S+RAlqscBSsF01NiB1nYPgwHUuh50hiadt7gEwvbku4FlNLz5uBoSvKH +IRZaCe8LalxG92tP0jmLCRbW+UXY/RSlgHEnLn5uERszao4mwBK6n9zCooI1 +2Zi+5O1lX3q+3W8PiVTTZaPfbdOVPgvo97E+GdFuwEbBaPsH++l5mGYQFK4H +bCy1HXhtN0eCqMjRkyM72HhVPoctP0vCwsp9xw6eYGOmWm+t1RgJYxLW7ruf +slGsQ4XS6COhy5doPdTARmq7hl1LLwk19bMQ2cxGvpL5+349JKSE3lYt7GBj +eYlJU2EXCavfifTPDLFxYV+hBT89//2ol67XJNVwybKl+2waSBjatsv5wwE1 +bPXVfMctI6GtSOv5Tx81lLdc9z2zhIQqgUWmokfVUKn76uBkMQkJFeUKhiFq +OFUcF5p/i4QVqnLdcUlqqM8Wz/p6gwSvkW5HjXI1zBBMvCh1gYQP59x3+wtx +8A6MaQ0G0fsPaRKrRTjY8WCDs3IgCdMbZ4aHxTkoEmrb5uBPwhKBtBgfBQ7W +p6vdbPCjnz+k9p67FgcrzJ71pHmRcMqTI7ltJwdddKYudDmSIGP+7aXGdQ5+ +38pIVTchYfP3E5s/GqqjkbpstPgoD5R0VWKFzdQxL4pb7PaVByP+dU811qmj +bfw+p9ufeJA+JW7mb6OOElUuLmvf8qDvT5H2vJs6jsgu1VjZxAN/kV5J+QR1 +DOx9Kemdy4PMldi3pUcdr07+j+G7kwff9gsH3ItcgZZsWVGZ4jL6f0SWP+7p +Srzs4PRyD7cUJF5wksnvq3Def7jK4dltUIrnbTc01MRUz4E5CaViuKxhLC7p +pYXnD58NTA8thCaFdQbjqdqYuj3kX4euAjBRepqi06GDz2P6VkQsywcxgZxA +j+jVeOIY0SHsnQsqp1XN9nB0kRgQUR/PvwmL1VzK7Rp0sUFdif/X+HXQ5srz +TrjqITc9dLBxMgv8+yRqrfnWoLuQujQOXIHv4+d2bb68BlVNmgZCVl2CjTr1 +mZu19LHwgtv65tJ0eDRu+mu6RR+nE9PvnNdKAz9Nve5/PQ0Qj1gFJwinAHfk +QPuexYa4wDmS2/8qETaw5WxFcwxx+nvpjC/Ew4qosyefGhnhwbs1SY1SMbDK +0/ixWrcR/nYOJxwEosHzkfdf946vRWHBA7E9PyLg8Y32A2PSxgg/zbsUFUNh +onB+WqfCGKNMZE96TwfBfrXbizNtTfBSXsUhy6v+MLbqguGdURNMZiQ8Thry +gwd5vwYn403xRf3m+179PuC0noWmKmbYar1FacsNT1A8ElepXUN75/PKD/c9 +IHn+oEHiUzMcu+H8NbbQA/jTrKjPdWZ4N+pTn+5VDxgqFyy68cwMxfUzZ25G +eUAV31+XJV6Z4XK3pFNDNh7glB51YuqjGd5Y/KtO7oM7XK4OMXi0lIubC3iN +TQruIL3El7J14OLxJikbhXWukGd5KnR0DxdXqvrmdqm7gt6pZMsLLlz0vrlQ +vFjMFbaOkq+7PLi4015pOqbXBWI7Jmf2+3Jx6dHB+4wQF/iZE2kRepqLkpyh +5s77ztBteuFVwW0uGto8X/bbzAm8g/KyNpdxUcUp9eIijhNMld33/EZy8dqy +rCfEMieQILqmdcu5uN5utv/84B6wEVZW+ruGi2ckzOdN4/bAw/aCA69ec7H4 +UxDR9toRrMUeaAV3cfGzQmnf2GNH6Nr4bEquh4uLhg1TiWJHmKj6Gr93gIuM +waHS8ghH0Lq5uvR/Q1wcdzlxqXCFIzzsXhd8bpiLXm3/dG6VpNeT2gk6o1y0 +Oa73QHDOAQ7GBf0bOMlFs+R87fxXDjBRE5sp+5OLG+MdeEmPHCB69tL+qlku +NuVG5McWOYC4fpGm6x8uWvuEL0pJd4DsI1WT8/NczJSraCiKdID/A3SwXww= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06737976635857869}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06737976635857869}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939116997824*^9}, + CellLabel-> + "Out[471]=",ExpressionUUID->"fe2a41bb-d389-4b2c-b608-6544584a8168"] +}, Open ]], Cell[CellGroupData[{ @@ -2922,14 +8217,14 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918492800964603`*^9},ExpressionUUID->"9051a5e3-bb9f-d941-bcca-\ -598d0b6835be"], - -Cell[BoxData["9.33220071900516`"], "Output", - CellChangeTimes->{3.991334803166374*^9}, + CellChangeTimes->{3.9918492800964603`*^9}, CellLabel-> - "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] + "In[472]:=",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], + +Cell[BoxData["10.666671082163598`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.993911699813674*^9}, + CellLabel-> + "Out[472]=",ExpressionUUID->"e1c84f90-e51e-4ff9-b91e-1ddfe0b28fbf"] }, Open ]], Cell[CellGroupData[{ @@ -2985,191 +8280,169 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ -4a8a16073236"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 255, 233, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133480336051*^9}, + CellChangeTimes->{3.9918492818821335`*^9}, CellLabel-> - "During evaluation of \ -In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + "In[473]:=",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 234, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803369583*^9}, - CellLabel-> - "During evaluation of \ -In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.542882507705326`*^-262\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 235, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803378134*^9}, + 2, 473, 42, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.9939116999045753`*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +In[473]:=",ExpressionUUID->"844dccdc-feaa-494f-ba5f-7f3b18313545"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.101733227858878`*^-272\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 473, 43, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.993911699911441*^9}, + CellLabel-> + "During evaluation of \ +In[473]:=",ExpressionUUID->"f2658ebb-6507-43b6-84af-2f915b6910f7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.235568145180698`*^-282\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 473, 44, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.993911699918083*^9}, + CellLabel-> + "During evaluation of \ +In[473]:=",ExpressionUUID->"0578e9ed-b2ca-4182-be7a-2018ae49e135"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803386196*^9}, +during this calculation.\"", 2, 473, 45, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.993911699924427*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +In[473]:=",ExpressionUUID->"6336bbf2-045b-43d3-876c-876c98bf72c6"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0VVscB3Chh5KEuGS49xozD5nv9fuRkCnjU8iQqVJIUjSgl6HIWKhk +iisV7rmVEq88SobQoAxJxl5PEYlKyTv9ddZnrbPWPvu39/e396HtCncJ4ubi +4tqwgovr93NhqO2hQmqZWQmflvVLJQuznkJKjHnfSWBVzgfnsKiA67t3Ufqy +4fVCmtZ+ljZEO13r5ekrhc7lZ/6uLIR10xLZ33s5EKa4/qYaywneNjiGf+lt +AhnXtPs3yv3ASmHyzWzvcxDVWve58UoEfO81PD/TOwoRDMb4hoJ4aN5cUfas +dA6GLfX3FqplgfTbune71Jdgz+Hzyoo6F0Bsn+81vs08uFp47D9uz2LI1rGq +d3Tnxyc3G08kqZVBf75246zwGlzszEpZPlABqWVx3dyS69Av3yPSvvQaSJwb +O51zWRR9/2isSfOuAora7VPfWKLo99d/odNBVSDVlBS3ky2KhU9uadmGV4Hs +zMZDys2iaFka1fYpoQoU7SP86t+LImN2XGGOVQV6vEsGY3pieK/2+LH+T1Ww +LUp8XLddDG3KJ+VkjldDsttWs+cL67FosN/XNrEGpG51SXGvEMc1Ppt8u8/W +QLWo21ed1eJ4k69bxCG3Bl4992FnyYnjbJZjjm5FDSg4R9GdbcSxJvLVSHlr +DTQ5FP3x9II4yqTnxIuvZMOS1XxXJ0MCLTurZAY3syGTFXt9yUoCP3l8Vqi0 +ZoPCH1wpGs4SqNRAPxppxwb7R6vMzwZJoKYcU3TRhQ0XN1Nv2qdLoCrb98Og +PxuM0C6v460EnttA4Z89wYaDxiW+bScpOPh5VYlzLRtsi4W+2KVR0Peg66Hw +OjbQ+Y6ldJ2noEXcT8EzDWx42vMn8eIqBa97KCbdbmKDZoQgz1AXBRuZy5cn +utjwnnWY9VlKErnn8rZfe8cGbzHHqQ03JXHoxrueR6IE6B2tTyhskESJQSbv +MXECVo2qiNNaJPG8QMaCpiQBdTU8oNQvicaKfyqkyhIgbleXqb0sicmEJkt6 +IwFPExQ2bbGTwrEXfG5lTAIsPy3Gho1J4Y85czHrQAJibM6p/vNRCrN7RI3P +BBNQXaIxILoghcmCxZbtuwmguPkZ1/FvwL6yLGHz/QR8vPvoK4/mBkzdyYkX +iCYg52Rm1IUjG7Dp+aUPK5MJGF2vFPZwjTSuejwbUs0iQCL8gYyEhDSORuk8 +Tr9KgH3r9s49VGmcQTWxfdcIqI1NVV+rJ43pKSFHZKoJOPN2ZnLHdmlMVP1w +wOs2AbqV9SGfSqXR21sz1LKZgASGs7+UkQy+X0y7+WSQABufws+GFjL4oGOg +JXSIAKH4D3+528vgL4sBG75hAgqaE1mZfjL4vGj4ot4YAXdt733447QMeg9+ +OOX/HwEz2+Wj5/plsLbk1pjIPAF3YiP41o3LYMT0oGzMAgEnCv7O15yWwdCt +PM9efyVAcNijfg+3LJ43P1WQu0iAckga17CqLH6JVhseWSbA59D8mSdHZXFW +2rqgW4ADinkW0pOJsshjE5C2tIpD1i+jii9TFq8kjv9UFuRA7M+NTy3KZHG0 +7bx/pBAHzv/ls77uiSy6SO+zeyPCgSdZj4vKZeTwDENJV3ADB3Juiuk0K8th +fPzdQ9zSHPB86d80rCOHTfUqlvOk31N+jm+wksP8iaBTT2U5wFOsrZodJod6 +DsPlO+kcMKm+cOvEAzk85XRR8IUKByx7u5amW+WwNq2qJHEjBxy5eK19n8vh +cL24mb4qBwJcwvphQg6zj+3MSFXjgNVRWlz8SiouhfKXi2lyoGNtwxWjVVR0 +6V2XVEPaqezP1hkhKt7u2HPQWosDXp2p6/wpVBxpyTgUps2BCLmFK+ZqVOyu +ZG28oMuB+ZuZrd+1qGjasS5OWo+sh43aFLGJii1pcxMFpBMP+BnQzahoP9Ew +eW4TBy42t7dyO1PxiPHSqL8BB+S2B03dc6fipbTqV52kyz4urzvoSUUnA40R +A0MO1KzX9xoLoGJguh2Ty4gDD0OKppqjqTigslkxwpgDW38aixw7SsVI3qzR +h6S7MnsMNsVT0axCu0HchAP9dQLxZaep+Oj1pscEaR/HsjLvdPL7vnEvLpIe +HzVrE8shx/88b2duyoHp1VEiiQXkeAaKTo9IHywWMmSWUFE57ykPD4MD3zZV +es2XU/Hgirh+Jmken6GyoBoqyte0T10jnfL5SJvMLSrSkwY13pAWShadfnmX +iu/TBrIFmRygsG0MrZrI+Xekdu0ifdlyzOtXCxXreOtYp0nT+4/H13ZQsTe8 +hVVF+up+SnnYUyqqNUR2d5HW4L7ZpvSSigcsj9OmSHNyHaaH+qm4XYh1md+M +A0Zq70XyhqjI1V5lSSP994OThtvGqJj2zF3CkLSFm4w333sqZqr4iduSfvz+ +TvyDj1R8cDTDwpO0/XGX8sOzVLSjVhSEkH6+bqpNa4GKGaKhipGkPVjJ0/8u +UjFisehNDOlBE7po8TIVBWirW06Q3tXdYLidl4bCsZFv40n/G+DhLSxAw4OF +Baq/ve/bbHzrGhp2P3G6eoy0yYFg8XciNDzjr0QcIs0/OXCdh0JDsz/eRYSS +frVrmzlNhoaHhTLf7yRd/rr5lRmdhqM1ipIOpKPcjPZ5K9PQc0Ulj/Hv+XXe +WBGrTsNdi9KVv+cvbEXLy9OhoWNk4io+0kP3z6vfNqBhhty/Kv+R9bthuKrp +uSkNV+ZZr2wlHcs+4TGDNDSyqyq+Qtpm49zHNVY0rEiV+3mUtHhpyEk1OxoK +nWJRnEmPSw1KbHWiYamp3Vf67/XIcaoKdqeh7zmJC7Pk+m9LNO4r8aXhP59d +VBNJy/6q2v8gkIbXf/RvsCX9MZrO82YPDduv3e1Z/Xv/7F6tSYmiYdKW2uJE +cv/9ORLXrB9DQ8upudtM0gqeX7a7niDH57Tkfib3b6Pdm7/SU2j4UyPygQvp +9IfOkjfO0vCqRYTALzIP3syW6rZsGvZqOMqzSH/XrOnnvUxDvy1L7R/JPOmK +JGgdJWgYTynmdyPzxpU6/zC/loabm4VmJsg8dvHs9aytp6FNkyQ7inTovEvi +7CMaHtKOvJ+iT+a1T+F1yAANeSgeeqlk3iOdL0QkviXrvaHzFw9pbF/zx5Vx +Ggr803U9huwXb+oXtIemaXhn549qLx2ynkWtSW48dBTIeRazSPafcQmmdCQ/ +HT8vRB/wJM3JJIiMNXScudTqekeDrOfJi4PtEnQ8b7P2TYg6Wa+gfbrm6nTM +5rtGLyP733c14SENdzomhsTGn5HnwMJlqQQ9TzoGlIYn/032zy9rFRWMfen4 +4mFLxRSNzPuc8V7LPXR8YqZovIXKgdH6gAXP43TUO5t5/xnZj9vt7gillNOR +FVLq7r+ezMvf/xBnr9Hxcb3FsWAxsh9pPXHLqaGjSvjdrt2iHLgvOnKxsI6O +N2Jf/QhcR37/61XKtzvpKBYxnGe6hux/oT4wOk/Hhx0GI7t4OZD3Zvfov4t0 +7PVydTXl4cC5bQcTp5bpOPvYlXcdN7meeikd3wTkcf9Mr/It8nw6+YPwWCsr +j19bPuf2k+dXaOrKCIaVPNZx71YunSGAcf1GcW6uPOa8aGvQHSDgNfV60ZZL +8jizxlO/u4+A2NzKwi9F8pj+TD50Ty95XiawClwq5dHyaZJIXg95Xm8vzhdq +kEffw9n7e7sI2LjyXGbSiDza2tPNpprI+4nv0fhodQVMkHtcHlVJwO2emDhF +HQXMDhp40l5BgJvtkRM9+groxRl5LkveH7L1Dx3TBQU8d58S31hKwBrB8CPT +zgqYFrPt+OQlAnjrdkUEH1bA2mHe+f6zBMyK2Pr92aSAwr9WxGhGENC3j/50 +72MFTMmYG6OEEdDYsghxTxTwv+3jC1z7CMiMvS539ZUCXtu7V6o9hADtUcG3 +3ycV0EPwWhz6EhBGdO+8LKqI4dM8Kx44EDC5zd1rPFARB4yKhgTJ+9V4mt+f +kXxKuM1+oofRz4awSXW6tqASsvl0g9teseGr9fepKWElHJg0Zrr1sGEVT3bi +HiklXG6y+Cewmw3aMc23/DSUcEXxTYsDj9hwPEhJdJurEk7wGxsaE2wQN/vY +rVakhOIzQfZnk9mw9dPhrRMGyui+uyLxtBYbPgbwH7wVp4ISpbuDxuuryf8J +Ce7kpo14Piz3e8vXGyDSqZTO/qSKslWiKwnD6yCdUuNkYKCOc1qqRuFQCflq +xsKiIRrYZtllK+pXAe1S5vpzWZpYKGnDST9dDibSTZlar7Qwjs3/uSfrCgjx +lEb5n9TGnsffgnlaS0A2QY6xQ0kHS+U1LqS+LAIBRe9al8c6mHA47ukbrwLQ +ZErWHN6pi9rz5ronHC9A5JBIsy2XHnqxc29VG+XCp7k09635ejji53aMnpkD +1lotF7dqbMJ/Yl5WuJL/O/fnTH987dqEZ9XhRGDhWQhT1x14FqSPv2JcamQq +TgNzOrBnh4ABypvGqHo8TYQtChSHNaUGGHk6mDJ55SSoxJ850mRoiJu4HOVp +rXGgGmT8QHHAECUiPhhdyYqFoPu7T906YETm5Q1tbkc0PCjuCZxdb4y+4zci +s0Ij4cvV5a9ad4xRPjRZfcI6DAIUrwtcdDDB0EHlwldieyD2kc9eJScT/Kn5 +wkicaw9kBol0cFxMsJbBkxz4YTc0lMekdXiYoJXLCxmNpt0gpmSzdsnfBH3m ++932R+yGFqUJMb9oEzwf+fFjaXcIqKrIUZWKTJAb+nZezw+GWdUcA86MCd5q +Ts897hoIfU9wi+icCd4hltFlcyA0hk27Rs2boN5S72pdvUBI52w9YLBogotu +f02KiAaCqgnXjXs8pvjhQQZ9x4sA2LV1P61Z3BS93omafHYPgJ4Qa8EehinO +XFV20gjYBXfLfozMp5iiWOvLlrgCPzDYHPXVNtUU80ZGzHQz/OD2yEfB4rOm +eN8ygXs6wQ84skOGttmmKH/4hEdCiB/cyG88W3jJFF9z/ygX1/OD4rREY+tq +U3zu0Jo+necLp6PWZuW/MEW5tnT5fn4f8LSUR1NZBvoT2+ylZL1gqYdfqJnK +wLGT5lqzK72gOGj6ta08Azt/lCwPTHnCu6S6w54qDMw7PGP479+eENm2rSZG +l4GMwDucYR9POON4TPauFQOjwz6ZO5TtgHvbX/7cFM5AXtFDQXWM7bBhf3Kd +ZiMDY3aEUNxK3CF9OVg/tYmB87rnVwymuwN3thXx70MGfrcOHjtwzB0ma1dW +Frcx8P5oyf7HHu5wj+tUvsgLBk5Q1VmUte7geS7+8MIEA2XdVnLbx7tBfn2M +/v3VTJztWOC/t88V1q/aRzh4MDF3KHzPm1BnKNt8PHZmBxOr8hdTXns6g+7x +9M053kx0QE70+63O4DjDftnnz8QoQd4sTRVnSHo1/z1gHxPzk7iz9k44wbfS +OIvYBCZ5f092yt/lBAOmOS9Y15ko4n1BfUW3I+w+VFawtZqJ655ezkxmO8JC +9e2gj2wmpkl4TalkO4IIve+rTi0TB04UQ4O7I9jxy0j/3Ui+/8tSWH7IARp6 +WIEvXjJxb0dM99s5e7AVuqsR3cfEl1HDDoK99tBn3bZAec3E0ONNp1zu2cOX +ex9SfIaZ+HPF8U61BHvQKNGu+m+SieqXPlSsFbaHhgHz6LQpJt7K+dnC98UO +bMVcQWuGiSv567kl++wgOPnQs6h5Jkbo6P6VVGwHXxqTLkp8Y+Jr/fiS0VN2 +cHIxL+DeIhPPOLIyPPbYgfCmSvWdS0yknEg1mXCwg8L99+aXl5nYSqFnpOra +wf+aROkB "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3183,150 +8456,124 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe +1:eJwV13k0VVscB3Chh5KEuGS49xozD5nv9fuRkCnjU8iQqVJIUjSgl6HIWKhk +iisV7rmVEq88SobQoAxJxl5PEYlKyTv9ddZnrbPWPvu39/e396HtCncJ4ubi +4tqwgovr93NhqO2hQmqZWQmflvVLJQuznkJKjHnfSWBVzgfnsKiA67t3Ufqy +4fVCmtZ+ljZEO13r5ekrhc7lZ/6uLIR10xLZ33s5EKa4/qYaywneNjiGf+lt +AhnXtPs3yv3ASmHyzWzvcxDVWve58UoEfO81PD/TOwoRDMb4hoJ4aN5cUfas +dA6GLfX3FqplgfTbune71Jdgz+Hzyoo6F0Bsn+81vs08uFp47D9uz2LI1rGq +d3Tnxyc3G08kqZVBf75246zwGlzszEpZPlABqWVx3dyS69Av3yPSvvQaSJwb +O51zWRR9/2isSfOuAora7VPfWKLo99d/odNBVSDVlBS3ky2KhU9uadmGV4Hs +zMZDys2iaFka1fYpoQoU7SP86t+LImN2XGGOVQV6vEsGY3pieK/2+LH+T1Ww +LUp8XLddDG3KJ+VkjldDsttWs+cL67FosN/XNrEGpG51SXGvEMc1Ppt8u8/W +QLWo21ed1eJ4k69bxCG3Bl4992FnyYnjbJZjjm5FDSg4R9GdbcSxJvLVSHlr +DTQ5FP3x9II4yqTnxIuvZMOS1XxXJ0MCLTurZAY3syGTFXt9yUoCP3l8Vqi0 +ZoPCH1wpGs4SqNRAPxppxwb7R6vMzwZJoKYcU3TRhQ0XN1Nv2qdLoCrb98Og +PxuM0C6v460EnttA4Z89wYaDxiW+bScpOPh5VYlzLRtsi4W+2KVR0Peg66Hw +OjbQ+Y6ldJ2noEXcT8EzDWx42vMn8eIqBa97KCbdbmKDZoQgz1AXBRuZy5cn +utjwnnWY9VlKErnn8rZfe8cGbzHHqQ03JXHoxrueR6IE6B2tTyhskESJQSbv +MXECVo2qiNNaJPG8QMaCpiQBdTU8oNQvicaKfyqkyhIgbleXqb0sicmEJkt6 +IwFPExQ2bbGTwrEXfG5lTAIsPy3Gho1J4Y85czHrQAJibM6p/vNRCrN7RI3P +BBNQXaIxILoghcmCxZbtuwmguPkZ1/FvwL6yLGHz/QR8vPvoK4/mBkzdyYkX +iCYg52Rm1IUjG7Dp+aUPK5MJGF2vFPZwjTSuejwbUs0iQCL8gYyEhDSORuk8 +Tr9KgH3r9s49VGmcQTWxfdcIqI1NVV+rJ43pKSFHZKoJOPN2ZnLHdmlMVP1w +wOs2AbqV9SGfSqXR21sz1LKZgASGs7+UkQy+X0y7+WSQABufws+GFjL4oGOg +JXSIAKH4D3+528vgL4sBG75hAgqaE1mZfjL4vGj4ot4YAXdt733447QMeg9+ +OOX/HwEz2+Wj5/plsLbk1pjIPAF3YiP41o3LYMT0oGzMAgEnCv7O15yWwdCt +PM9efyVAcNijfg+3LJ43P1WQu0iAckga17CqLH6JVhseWSbA59D8mSdHZXFW +2rqgW4ADinkW0pOJsshjE5C2tIpD1i+jii9TFq8kjv9UFuRA7M+NTy3KZHG0 +7bx/pBAHzv/ls77uiSy6SO+zeyPCgSdZj4vKZeTwDENJV3ADB3Juiuk0K8th +fPzdQ9zSHPB86d80rCOHTfUqlvOk31N+jm+wksP8iaBTT2U5wFOsrZodJod6 +DsPlO+kcMKm+cOvEAzk85XRR8IUKByx7u5amW+WwNq2qJHEjBxy5eK19n8vh +cL24mb4qBwJcwvphQg6zj+3MSFXjgNVRWlz8SiouhfKXi2lyoGNtwxWjVVR0 +6V2XVEPaqezP1hkhKt7u2HPQWosDXp2p6/wpVBxpyTgUps2BCLmFK+ZqVOyu +ZG28oMuB+ZuZrd+1qGjasS5OWo+sh43aFLGJii1pcxMFpBMP+BnQzahoP9Ew +eW4TBy42t7dyO1PxiPHSqL8BB+S2B03dc6fipbTqV52kyz4urzvoSUUnA40R +A0MO1KzX9xoLoGJguh2Ty4gDD0OKppqjqTigslkxwpgDW38aixw7SsVI3qzR +h6S7MnsMNsVT0axCu0HchAP9dQLxZaep+Oj1pscEaR/HsjLvdPL7vnEvLpIe +HzVrE8shx/88b2duyoHp1VEiiQXkeAaKTo9IHywWMmSWUFE57ykPD4MD3zZV +es2XU/Hgirh+Jmken6GyoBoqyte0T10jnfL5SJvMLSrSkwY13pAWShadfnmX +iu/TBrIFmRygsG0MrZrI+Xekdu0ifdlyzOtXCxXreOtYp0nT+4/H13ZQsTe8 +hVVF+up+SnnYUyqqNUR2d5HW4L7ZpvSSigcsj9OmSHNyHaaH+qm4XYh1md+M +A0Zq70XyhqjI1V5lSSP994OThtvGqJj2zF3CkLSFm4w333sqZqr4iduSfvz+ +TvyDj1R8cDTDwpO0/XGX8sOzVLSjVhSEkH6+bqpNa4GKGaKhipGkPVjJ0/8u +UjFisehNDOlBE7po8TIVBWirW06Q3tXdYLidl4bCsZFv40n/G+DhLSxAw4OF +Baq/ve/bbHzrGhp2P3G6eoy0yYFg8XciNDzjr0QcIs0/OXCdh0JDsz/eRYSS +frVrmzlNhoaHhTLf7yRd/rr5lRmdhqM1ipIOpKPcjPZ5K9PQc0Ulj/Hv+XXe +WBGrTsNdi9KVv+cvbEXLy9OhoWNk4io+0kP3z6vfNqBhhty/Kv+R9bthuKrp +uSkNV+ZZr2wlHcs+4TGDNDSyqyq+Qtpm49zHNVY0rEiV+3mUtHhpyEk1OxoK +nWJRnEmPSw1KbHWiYamp3Vf67/XIcaoKdqeh7zmJC7Pk+m9LNO4r8aXhP59d +VBNJy/6q2v8gkIbXf/RvsCX9MZrO82YPDduv3e1Z/Xv/7F6tSYmiYdKW2uJE +cv/9ORLXrB9DQ8upudtM0gqeX7a7niDH57Tkfib3b6Pdm7/SU2j4UyPygQvp +9IfOkjfO0vCqRYTALzIP3syW6rZsGvZqOMqzSH/XrOnnvUxDvy1L7R/JPOmK +JGgdJWgYTynmdyPzxpU6/zC/loabm4VmJsg8dvHs9aytp6FNkyQ7inTovEvi +7CMaHtKOvJ+iT+a1T+F1yAANeSgeeqlk3iOdL0QkviXrvaHzFw9pbF/zx5Vx +Ggr803U9huwXb+oXtIemaXhn549qLx2ynkWtSW48dBTIeRazSPafcQmmdCQ/ +HT8vRB/wJM3JJIiMNXScudTqekeDrOfJi4PtEnQ8b7P2TYg6Wa+gfbrm6nTM +5rtGLyP733c14SENdzomhsTGn5HnwMJlqQQ9TzoGlIYn/032zy9rFRWMfen4 +4mFLxRSNzPuc8V7LPXR8YqZovIXKgdH6gAXP43TUO5t5/xnZj9vt7gillNOR +FVLq7r+ezMvf/xBnr9Hxcb3FsWAxsh9pPXHLqaGjSvjdrt2iHLgvOnKxsI6O +N2Jf/QhcR37/61XKtzvpKBYxnGe6hux/oT4wOk/Hhx0GI7t4OZD3Zvfov4t0 +7PVydTXl4cC5bQcTp5bpOPvYlXcdN7meeikd3wTkcf9Mr/It8nw6+YPwWCsr +j19bPuf2k+dXaOrKCIaVPNZx71YunSGAcf1GcW6uPOa8aGvQHSDgNfV60ZZL +8jizxlO/u4+A2NzKwi9F8pj+TD50Ty95XiawClwq5dHyaZJIXg95Xm8vzhdq +kEffw9n7e7sI2LjyXGbSiDza2tPNpprI+4nv0fhodQVMkHtcHlVJwO2emDhF +HQXMDhp40l5BgJvtkRM9+groxRl5LkveH7L1Dx3TBQU8d58S31hKwBrB8CPT +zgqYFrPt+OQlAnjrdkUEH1bA2mHe+f6zBMyK2Pr92aSAwr9WxGhGENC3j/50 +72MFTMmYG6OEEdDYsghxTxTwv+3jC1z7CMiMvS539ZUCXtu7V6o9hADtUcG3 +3ycV0EPwWhz6EhBGdO+8LKqI4dM8Kx44EDC5zd1rPFARB4yKhgTJ+9V4mt+f +kXxKuM1+oofRz4awSXW6tqASsvl0g9teseGr9fepKWElHJg0Zrr1sGEVT3bi +HiklXG6y+Cewmw3aMc23/DSUcEXxTYsDj9hwPEhJdJurEk7wGxsaE2wQN/vY +rVakhOIzQfZnk9mw9dPhrRMGyui+uyLxtBYbPgbwH7wVp4ISpbuDxuuryf8J +Ce7kpo14Piz3e8vXGyDSqZTO/qSKslWiKwnD6yCdUuNkYKCOc1qqRuFQCflq +xsKiIRrYZtllK+pXAe1S5vpzWZpYKGnDST9dDibSTZlar7Qwjs3/uSfrCgjx +lEb5n9TGnsffgnlaS0A2QY6xQ0kHS+U1LqS+LAIBRe9al8c6mHA47ukbrwLQ +ZErWHN6pi9rz5ronHC9A5JBIsy2XHnqxc29VG+XCp7k09635ejji53aMnpkD +1lotF7dqbMJ/Yl5WuJL/O/fnTH987dqEZ9XhRGDhWQhT1x14FqSPv2JcamQq +TgNzOrBnh4ABypvGqHo8TYQtChSHNaUGGHk6mDJ55SSoxJ850mRoiJu4HOVp +rXGgGmT8QHHAECUiPhhdyYqFoPu7T906YETm5Q1tbkc0PCjuCZxdb4y+4zci +s0Ij4cvV5a9ad4xRPjRZfcI6DAIUrwtcdDDB0EHlwldieyD2kc9eJScT/Kn5 +wkicaw9kBol0cFxMsJbBkxz4YTc0lMekdXiYoJXLCxmNpt0gpmSzdsnfBH3m ++932R+yGFqUJMb9oEzwf+fFjaXcIqKrIUZWKTJAb+nZezw+GWdUcA86MCd5q +Ts897hoIfU9wi+icCd4hltFlcyA0hk27Rs2boN5S72pdvUBI52w9YLBogotu +f02KiAaCqgnXjXs8pvjhQQZ9x4sA2LV1P61Z3BS93omafHYPgJ4Qa8EehinO +XFV20gjYBXfLfozMp5iiWOvLlrgCPzDYHPXVNtUU80ZGzHQz/OD2yEfB4rOm +eN8ygXs6wQ84skOGttmmKH/4hEdCiB/cyG88W3jJFF9z/ygX1/OD4rREY+tq +U3zu0Jo+necLp6PWZuW/MEW5tnT5fn4f8LSUR1NZBvoT2+ylZL1gqYdfqJnK +wLGT5lqzK72gOGj6ta08Azt/lCwPTHnCu6S6w54qDMw7PGP479+eENm2rSZG +l4GMwDucYR9POON4TPauFQOjwz6ZO5TtgHvbX/7cFM5AXtFDQXWM7bBhf3Kd +ZiMDY3aEUNxK3CF9OVg/tYmB87rnVwymuwN3thXx70MGfrcOHjtwzB0ma1dW +Frcx8P5oyf7HHu5wj+tUvsgLBk5Q1VmUte7geS7+8MIEA2XdVnLbx7tBfn2M +/v3VTJztWOC/t88V1q/aRzh4MDF3KHzPm1BnKNt8PHZmBxOr8hdTXns6g+7x +9M053kx0QE70+63O4DjDftnnz8QoQd4sTRVnSHo1/z1gHxPzk7iz9k44wbfS +OIvYBCZ5f092yt/lBAOmOS9Y15ko4n1BfUW3I+w+VFawtZqJ655ezkxmO8JC +9e2gj2wmpkl4TalkO4IIve+rTi0TB04UQ4O7I9jxy0j/3Ui+/8tSWH7IARp6 +WIEvXjJxb0dM99s5e7AVuqsR3cfEl1HDDoK99tBn3bZAec3E0ONNp1zu2cOX +ex9SfIaZ+HPF8U61BHvQKNGu+m+SieqXPlSsFbaHhgHz6LQpJt7K+dnC98UO +bMVcQWuGiSv567kl++wgOPnQs6h5Jkbo6P6VVGwHXxqTLkp8Y+Jr/fiS0VN2 +cHIxL+DeIhPPOLIyPPbYgfCmSvWdS0yknEg1mXCwg8L99+aXl5nYSqFnpOra +wf+aROkB "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07126622634175583}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -3338,19 +8585,19 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07126622634175583}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3364,149 +8611,123 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe +1:eJwV13k0VVscB3Chh5KEuGS49xozD5nv9fuRkCnjU8iQqVJIUjSgl6HIWKhk +iisV7rmVEq88SobQoAxJxl5PEYlKyTv9ddZnrbPWPvu39/e396HtCncJ4ubi +4tqwgovr93NhqO2hQmqZWQmflvVLJQuznkJKjHnfSWBVzgfnsKiA67t3Ufqy +4fVCmtZ+ljZEO13r5ekrhc7lZ/6uLIR10xLZ33s5EKa4/qYaywneNjiGf+lt +AhnXtPs3yv3ASmHyzWzvcxDVWve58UoEfO81PD/TOwoRDMb4hoJ4aN5cUfas +dA6GLfX3FqplgfTbune71Jdgz+Hzyoo6F0Bsn+81vs08uFp47D9uz2LI1rGq +d3Tnxyc3G08kqZVBf75246zwGlzszEpZPlABqWVx3dyS69Av3yPSvvQaSJwb +O51zWRR9/2isSfOuAora7VPfWKLo99d/odNBVSDVlBS3ky2KhU9uadmGV4Hs +zMZDys2iaFka1fYpoQoU7SP86t+LImN2XGGOVQV6vEsGY3pieK/2+LH+T1Ww +LUp8XLddDG3KJ+VkjldDsttWs+cL67FosN/XNrEGpG51SXGvEMc1Ppt8u8/W +QLWo21ed1eJ4k69bxCG3Bl4992FnyYnjbJZjjm5FDSg4R9GdbcSxJvLVSHlr +DTQ5FP3x9II4yqTnxIuvZMOS1XxXJ0MCLTurZAY3syGTFXt9yUoCP3l8Vqi0 +ZoPCH1wpGs4SqNRAPxppxwb7R6vMzwZJoKYcU3TRhQ0XN1Nv2qdLoCrb98Og +PxuM0C6v460EnttA4Z89wYaDxiW+bScpOPh5VYlzLRtsi4W+2KVR0Peg66Hw +OjbQ+Y6ldJ2noEXcT8EzDWx42vMn8eIqBa97KCbdbmKDZoQgz1AXBRuZy5cn +utjwnnWY9VlKErnn8rZfe8cGbzHHqQ03JXHoxrueR6IE6B2tTyhskESJQSbv +MXECVo2qiNNaJPG8QMaCpiQBdTU8oNQvicaKfyqkyhIgbleXqb0sicmEJkt6 +IwFPExQ2bbGTwrEXfG5lTAIsPy3Gho1J4Y85czHrQAJibM6p/vNRCrN7RI3P +BBNQXaIxILoghcmCxZbtuwmguPkZ1/FvwL6yLGHz/QR8vPvoK4/mBkzdyYkX +iCYg52Rm1IUjG7Dp+aUPK5MJGF2vFPZwjTSuejwbUs0iQCL8gYyEhDSORuk8 +Tr9KgH3r9s49VGmcQTWxfdcIqI1NVV+rJ43pKSFHZKoJOPN2ZnLHdmlMVP1w +wOs2AbqV9SGfSqXR21sz1LKZgASGs7+UkQy+X0y7+WSQABufws+GFjL4oGOg +JXSIAKH4D3+528vgL4sBG75hAgqaE1mZfjL4vGj4ot4YAXdt733447QMeg9+ +OOX/HwEz2+Wj5/plsLbk1pjIPAF3YiP41o3LYMT0oGzMAgEnCv7O15yWwdCt +PM9efyVAcNijfg+3LJ43P1WQu0iAckga17CqLH6JVhseWSbA59D8mSdHZXFW +2rqgW4ADinkW0pOJsshjE5C2tIpD1i+jii9TFq8kjv9UFuRA7M+NTy3KZHG0 +7bx/pBAHzv/ls77uiSy6SO+zeyPCgSdZj4vKZeTwDENJV3ADB3Juiuk0K8th +fPzdQ9zSHPB86d80rCOHTfUqlvOk31N+jm+wksP8iaBTT2U5wFOsrZodJod6 +DsPlO+kcMKm+cOvEAzk85XRR8IUKByx7u5amW+WwNq2qJHEjBxy5eK19n8vh +cL24mb4qBwJcwvphQg6zj+3MSFXjgNVRWlz8SiouhfKXi2lyoGNtwxWjVVR0 +6V2XVEPaqezP1hkhKt7u2HPQWosDXp2p6/wpVBxpyTgUps2BCLmFK+ZqVOyu +ZG28oMuB+ZuZrd+1qGjasS5OWo+sh43aFLGJii1pcxMFpBMP+BnQzahoP9Ew +eW4TBy42t7dyO1PxiPHSqL8BB+S2B03dc6fipbTqV52kyz4urzvoSUUnA40R +A0MO1KzX9xoLoGJguh2Ty4gDD0OKppqjqTigslkxwpgDW38aixw7SsVI3qzR +h6S7MnsMNsVT0axCu0HchAP9dQLxZaep+Oj1pscEaR/HsjLvdPL7vnEvLpIe +HzVrE8shx/88b2duyoHp1VEiiQXkeAaKTo9IHywWMmSWUFE57ykPD4MD3zZV +es2XU/Hgirh+Jmken6GyoBoqyte0T10jnfL5SJvMLSrSkwY13pAWShadfnmX +iu/TBrIFmRygsG0MrZrI+Xekdu0ifdlyzOtXCxXreOtYp0nT+4/H13ZQsTe8 +hVVF+up+SnnYUyqqNUR2d5HW4L7ZpvSSigcsj9OmSHNyHaaH+qm4XYh1md+M +A0Zq70XyhqjI1V5lSSP994OThtvGqJj2zF3CkLSFm4w333sqZqr4iduSfvz+ +TvyDj1R8cDTDwpO0/XGX8sOzVLSjVhSEkH6+bqpNa4GKGaKhipGkPVjJ0/8u +UjFisehNDOlBE7po8TIVBWirW06Q3tXdYLidl4bCsZFv40n/G+DhLSxAw4OF +Baq/ve/bbHzrGhp2P3G6eoy0yYFg8XciNDzjr0QcIs0/OXCdh0JDsz/eRYSS +frVrmzlNhoaHhTLf7yRd/rr5lRmdhqM1ipIOpKPcjPZ5K9PQc0Ulj/Hv+XXe +WBGrTsNdi9KVv+cvbEXLy9OhoWNk4io+0kP3z6vfNqBhhty/Kv+R9bthuKrp +uSkNV+ZZr2wlHcs+4TGDNDSyqyq+Qtpm49zHNVY0rEiV+3mUtHhpyEk1OxoK +nWJRnEmPSw1KbHWiYamp3Vf67/XIcaoKdqeh7zmJC7Pk+m9LNO4r8aXhP59d +VBNJy/6q2v8gkIbXf/RvsCX9MZrO82YPDduv3e1Z/Xv/7F6tSYmiYdKW2uJE +cv/9ORLXrB9DQ8upudtM0gqeX7a7niDH57Tkfib3b6Pdm7/SU2j4UyPygQvp +9IfOkjfO0vCqRYTALzIP3syW6rZsGvZqOMqzSH/XrOnnvUxDvy1L7R/JPOmK +JGgdJWgYTynmdyPzxpU6/zC/loabm4VmJsg8dvHs9aytp6FNkyQ7inTovEvi +7CMaHtKOvJ+iT+a1T+F1yAANeSgeeqlk3iOdL0QkviXrvaHzFw9pbF/zx5Vx +Ggr803U9huwXb+oXtIemaXhn549qLx2ynkWtSW48dBTIeRazSPafcQmmdCQ/ +HT8vRB/wJM3JJIiMNXScudTqekeDrOfJi4PtEnQ8b7P2TYg6Wa+gfbrm6nTM +5rtGLyP733c14SENdzomhsTGn5HnwMJlqQQ9TzoGlIYn/032zy9rFRWMfen4 +4mFLxRSNzPuc8V7LPXR8YqZovIXKgdH6gAXP43TUO5t5/xnZj9vt7gillNOR +FVLq7r+ezMvf/xBnr9Hxcb3FsWAxsh9pPXHLqaGjSvjdrt2iHLgvOnKxsI6O +N2Jf/QhcR37/61XKtzvpKBYxnGe6hux/oT4wOk/Hhx0GI7t4OZD3Zvfov4t0 +7PVydTXl4cC5bQcTp5bpOPvYlXcdN7meeikd3wTkcf9Mr/It8nw6+YPwWCsr +j19bPuf2k+dXaOrKCIaVPNZx71YunSGAcf1GcW6uPOa8aGvQHSDgNfV60ZZL +8jizxlO/u4+A2NzKwi9F8pj+TD50Ty95XiawClwq5dHyaZJIXg95Xm8vzhdq +kEffw9n7e7sI2LjyXGbSiDza2tPNpprI+4nv0fhodQVMkHtcHlVJwO2emDhF +HQXMDhp40l5BgJvtkRM9+groxRl5LkveH7L1Dx3TBQU8d58S31hKwBrB8CPT +zgqYFrPt+OQlAnjrdkUEH1bA2mHe+f6zBMyK2Pr92aSAwr9WxGhGENC3j/50 +72MFTMmYG6OEEdDYsghxTxTwv+3jC1z7CMiMvS539ZUCXtu7V6o9hADtUcG3 +3ycV0EPwWhz6EhBGdO+8LKqI4dM8Kx44EDC5zd1rPFARB4yKhgTJ+9V4mt+f +kXxKuM1+oofRz4awSXW6tqASsvl0g9teseGr9fepKWElHJg0Zrr1sGEVT3bi +HiklXG6y+Cewmw3aMc23/DSUcEXxTYsDj9hwPEhJdJurEk7wGxsaE2wQN/vY +rVakhOIzQfZnk9mw9dPhrRMGyui+uyLxtBYbPgbwH7wVp4ISpbuDxuuryf8J +Ce7kpo14Piz3e8vXGyDSqZTO/qSKslWiKwnD6yCdUuNkYKCOc1qqRuFQCflq +xsKiIRrYZtllK+pXAe1S5vpzWZpYKGnDST9dDibSTZlar7Qwjs3/uSfrCgjx +lEb5n9TGnsffgnlaS0A2QY6xQ0kHS+U1LqS+LAIBRe9al8c6mHA47ukbrwLQ +ZErWHN6pi9rz5ronHC9A5JBIsy2XHnqxc29VG+XCp7k09635ejji53aMnpkD +1lotF7dqbMJ/Yl5WuJL/O/fnTH987dqEZ9XhRGDhWQhT1x14FqSPv2JcamQq +TgNzOrBnh4ABypvGqHo8TYQtChSHNaUGGHk6mDJ55SSoxJ850mRoiJu4HOVp +rXGgGmT8QHHAECUiPhhdyYqFoPu7T906YETm5Q1tbkc0PCjuCZxdb4y+4zci +s0Ij4cvV5a9ad4xRPjRZfcI6DAIUrwtcdDDB0EHlwldieyD2kc9eJScT/Kn5 +wkicaw9kBol0cFxMsJbBkxz4YTc0lMekdXiYoJXLCxmNpt0gpmSzdsnfBH3m ++932R+yGFqUJMb9oEzwf+fFjaXcIqKrIUZWKTJAb+nZezw+GWdUcA86MCd5q +Ts897hoIfU9wi+icCd4hltFlcyA0hk27Rs2boN5S72pdvUBI52w9YLBogotu +f02KiAaCqgnXjXs8pvjhQQZ9x4sA2LV1P61Z3BS93omafHYPgJ4Qa8EehinO +XFV20gjYBXfLfozMp5iiWOvLlrgCPzDYHPXVNtUU80ZGzHQz/OD2yEfB4rOm +eN8ygXs6wQ84skOGttmmKH/4hEdCiB/cyG88W3jJFF9z/ygX1/OD4rREY+tq +U3zu0Jo+necLp6PWZuW/MEW5tnT5fn4f8LSUR1NZBvoT2+ylZL1gqYdfqJnK +wLGT5lqzK72gOGj6ta08Azt/lCwPTHnCu6S6w54qDMw7PGP479+eENm2rSZG +l4GMwDucYR9POON4TPauFQOjwz6ZO5TtgHvbX/7cFM5AXtFDQXWM7bBhf3Kd +ZiMDY3aEUNxK3CF9OVg/tYmB87rnVwymuwN3thXx70MGfrcOHjtwzB0ma1dW +Frcx8P5oyf7HHu5wj+tUvsgLBk5Q1VmUte7geS7+8MIEA2XdVnLbx7tBfn2M +/v3VTJztWOC/t88V1q/aRzh4MDF3KHzPm1BnKNt8PHZmBxOr8hdTXns6g+7x +9M053kx0QE70+63O4DjDftnnz8QoQd4sTRVnSHo1/z1gHxPzk7iz9k44wbfS +OIvYBCZ5f092yt/lBAOmOS9Y15ko4n1BfUW3I+w+VFawtZqJ655ezkxmO8JC +9e2gj2wmpkl4TalkO4IIve+rTi0TB04UQ4O7I9jxy0j/3Ui+/8tSWH7IARp6 +WIEvXjJxb0dM99s5e7AVuqsR3cfEl1HDDoK99tBn3bZAec3E0ONNp1zu2cOX +ex9SfIaZ+HPF8U61BHvQKNGu+m+SieqXPlSsFbaHhgHz6LQpJt7K+dnC98UO +bMVcQWuGiSv567kl++wgOPnQs6h5Jkbo6P6VVGwHXxqTLkp8Y+Jr/fiS0VN2 +cHIxL+DeIhPPOLIyPPbYgfCmSvWdS0yknEg1mXCwg8L99+aXl5nYSqFnpOra +wf+aROkB "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07126622634175583}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3517,6 +8738,7 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3544,7 +8766,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07126622634175583}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3552,9 +8775,9 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991335257344549*^9}, + CellChangeTimes->{3.991335257344549*^9, 3.993912170444468*^9}, CellLabel-> - "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] + "Out[473]=",ExpressionUUID->"1350bc78-9228-4346-af21-2a2e9461692c"] }, Open ]], Cell[CellGroupData[{ @@ -3607,66 +8830,72 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + "In[474]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 256, - 237, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257395241*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1050021912675125`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 474, 46, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.993912170579567*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +In[474]:=",ExpressionUUID->"7952c96c-44fa-45e4-93b4-7775eb6d6e73"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 256, - 238, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574052296`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.197184244705837`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 474, 47, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9939121705908527`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +In[474]:=",ExpressionUUID->"299d58b3-1f7c-4da1-b159-0e9853eeb412"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 256, 239, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257413231*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1760331371937522`*^-180\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 474, 48, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.993912170599731*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +In[474]:=",ExpressionUUID->"e049cc58-007c-4ba1-97ab-dba1578f3ff5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574212303`*^9}, +during this calculation.\"", 2, 474, 49, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9939121706068153`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +In[474]:=",ExpressionUUID->"c390de56-6572-4cc5-87f9-842e36d21290"], -Cell[BoxData["9.332200719005158`"], "Output", - CellChangeTimes->{3.991335263670042*^9}, +Cell[BoxData["10.666662393407478`"], "Output", + CellChangeTimes->{3.991335263670042*^9, 3.993912215481307*^9}, CellLabel-> - "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] + "Out[474]=",ExpressionUUID->"05d65de7-84cd-4aa5-a191-6b5cf83eae5f"] }, Open ]], Cell[CellGroupData[{ @@ -3733,65 +8962,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849285445259*^9, - 3.991849289419262*^9}},ExpressionUUID->"6f0ad284-4db3-da47-b8dc-\ -45830eedfe9c"], + CellChangeTimes->{{3.991849285445259*^9, 3.991849289419262*^9}}, + CellLabel-> + "In[475]:=",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263710146*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.291943993898594`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 475, 50, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.993912215544017*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +In[475]:=",ExpressionUUID->"d3b01940-ab9c-4ed2-848b-683f61a906d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637201557`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3379031508727371`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 475, 51, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.993912215553561*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +In[475]:=",ExpressionUUID->"2f81a440-4221-42e4-8bab-588e17fab627"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263728153*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3824712490891436`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 475, 52, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.993912215561042*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +In[475]:=",ExpressionUUID->"e979a177-f304-4d92-9604-76529c6cff95"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637361546`*^9}, +during this calculation.\"", 2, 475, 53, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.99391221556734*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +In[475]:=",ExpressionUUID->"6f0137ba-021d-4bad-9d82-2672c3de3660"], -Cell[BoxData["0.00046079539931050297`"], "Output", - CellChangeTimes->{3.991335268779545*^9}, +Cell[BoxData["2.0411674680987097`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.9939122229819107`*^9}, CellLabel-> - "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] + "Out[475]=",ExpressionUUID->"cc20d487-dc53-4dcc-bcec-ed99ba962734"] }, Open ]], Cell[CellGroupData[{ @@ -3812,8 +9048,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3858,65 +9093,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849293744112*^9, - 3.9918492959939384`*^9}},ExpressionUUID->"b2dda819-6f34-5c49-bc62-\ -303d815946e5"], + CellChangeTimes->{{3.991849293744112*^9, 3.9918492959939384`*^9}}, + CellLabel-> + "In[476]:=",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268812542*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.291943993898594`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 476, 54, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.9939122230239983`*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +In[476]:=",ExpressionUUID->"f6c08f42-2b99-4625-8ff6-e8e9d1a52f3d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268822542*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3379031508727371`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 476, 55, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.9939122230331383`*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +In[476]:=",ExpressionUUID->"976c08a1-7dab-401f-bb01-884da17100f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268831545*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3824712490891436`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 476, 56, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.993912223041781*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +In[476]:=",ExpressionUUID->"1877cd5c-9bca-4499-9ac1-964f124021e6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352688395576`*^9}, +during this calculation.\"", 2, 476, 57, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.9939122230505657`*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +In[476]:=",ExpressionUUID->"caab4845-2726-4a85-8ab3-9e0b2213b0e2"], -Cell[BoxData["5.104103620353258`"], "Output", - CellChangeTimes->{3.991335272704685*^9}, +Cell[BoxData["34.77840786479368`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.99391223073044*^9}, CellLabel-> - "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] + "Out[476]=",ExpressionUUID->"97cb6798-3276-4c36-b268-5fb451a16899"] }, Open ]], Cell[CellGroupData[{ @@ -3937,8 +9179,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3983,65 +9224,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918492993108063`*^9, - 3.991849303274454*^9}},ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-\ -1a175f609f7d"], + CellChangeTimes->{{3.9918492993108063`*^9, 3.991849303274454*^9}}, + CellLabel-> + "In[477]:=",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727386665`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.291943993898594`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 477, 58, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.9939122308010178`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +In[477]:=",ExpressionUUID->"a13979e8-90b6-470c-afff-aff034754570"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727476673`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3379031508727371`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 477, 59, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.9939122308081923`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +In[477]:=",ExpressionUUID->"61f0836c-d380-4f5a-b684-d557ef29df64"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727556705`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3824712490891436`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 477, 60, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.9939122308169203`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +In[477]:=",ExpressionUUID->"f98e1c3b-5732-4f1a-bdc3-42b1fc3a81a6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727636833`*^9}, +during this calculation.\"", 2, 477, 61, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.9939122308248568`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +In[477]:=",ExpressionUUID->"647fc013-07e6-4cbd-a64b-f0062c6007bb"], -Cell[BoxData["18.832858301324727`"], "Output", - CellChangeTimes->{3.991335275154251*^9}, +Cell[BoxData["8.728388266626204`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.993912235200356*^9}, CellLabel-> - "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] + "Out[477]=",ExpressionUUID->"39a28402-2b45-4a3b-8238-c4f91fac58d7"] }, Open ]], Cell[CellGroupData[{ @@ -4050,22 +9298,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918493065908413`*^9, - 3.9918493103344364`*^9}},ExpressionUUID->"69dd09d9-152e-3e4d-9517-\ -4de4791db2f4"], - -Cell[BoxData["0.00004699917922538678`"], "Output", - CellChangeTimes->{3.991335275186266*^9}, + CellChangeTimes->{{3.9918493065908413`*^9, 3.9918493103344364`*^9}}, CellLabel-> - "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] + "In[478]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], + +Cell[BoxData["0.11715390289798881`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.993912235237718*^9}, + CellLabel-> + "Out[478]=",ExpressionUUID->"5faf956e-3cfa-4714-815b-e2b4997e7019"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, - 3.991924798063732*^9},ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-\ -749729cd7104"], + 3.991924798063732*^9}, + CellLabel-> + "In[479]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ @@ -4088,12 +9337,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + "In[480]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[BoxData["5.744985073726737`"], "Output", - CellChangeTimes->{3.9913352752142563`*^9}, +Cell[BoxData["6.358193422202221`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.993912235255887*^9}, CellLabel-> - "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] + "Out[480]=",ExpressionUUID->"417f9f58-9b55-4de0-b368-9b80141fbd93"] }, Open ]], Cell[CellGroupData[{ @@ -4103,12 +9352,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + "In[481]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[BoxData["1.564995573098557`"], "Output", - CellChangeTimes->{3.9913352752482567`*^9}, +Cell[BoxData["4.857706633096519`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.993912235265938*^9}, CellLabel-> - "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] + "Out[481]=",ExpressionUUID->"013a28d7-8b09-4b6d-8cef-4d6efbc406fd"] }, Open ]], Cell[CellGroupData[{ @@ -4118,12 +9367,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + "In[482]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[BoxData["8.990876207899632`"], "Output", - CellChangeTimes->{3.9913352753089123`*^9}, +Cell[BoxData["30.886238361542382`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.993912235275639*^9}, CellLabel-> - "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] + "Out[482]=",ExpressionUUID->"941c95c5-c5f0-4ae6-af4b-90d6aafe0756"] }, Open ]], Cell[CellGroupData[{ @@ -4313,12 +9562,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + "In[483]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[BoxData["0.07167004636648908`"], "Output", - CellChangeTimes->{3.9913352753341656`*^9}, +Cell[BoxData["0.006526340125847156`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.993912235289304*^9}, CellLabel-> - "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] + "Out[483]=",ExpressionUUID->"0a366f1b-b00d-43a6-9d75-02b40151783c"] }, Open ]], Cell[CellGroupData[{ @@ -4332,12 +9581,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + "In[484]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[BoxData["3.3103666491187544`"], "Output", - CellChangeTimes->{3.9913352754296722`*^9}, +Cell[BoxData["10.970087429851233`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.9939122354027367`*^9}, CellLabel-> - "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] + "Out[484]=",ExpressionUUID->"b08cd80f-0acf-4296-a902-63c4118487e9"] }, Open ]], Cell[CellGroupData[{ @@ -4529,12 +9778,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + "In[485]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[BoxData["0.012832691268660865`"], "Output", - CellChangeTimes->{3.9913352754426765`*^9}, +Cell[BoxData["0.03140944946696032`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.993912235416356*^9}, CellLabel-> - "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] + "Out[485]=",ExpressionUUID->"cce731a5-adc5-4bf6-a28e-3d39df4e4ef8"] }, Open ]], Cell[CellGroupData[{ @@ -4548,12 +9797,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + "In[486]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[BoxData["7.823229443917166`"], "Output", - CellChangeTimes->{3.991335275540678*^9}, +Cell[BoxData["5.000515508482822`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.993912235523343*^9}, CellLabel-> - "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] + "Out[486]=",ExpressionUUID->"b45619fa-4281-469b-a0f1-854bc0f57876"] }, Open ]], Cell[CellGroupData[{ @@ -4646,12 +9895,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + "In[487]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913352755566807`*^9}, +Cell[BoxData["0.08103600808733596`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.9939122355347*^9}, CellLabel-> - "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] + "Out[487]=",ExpressionUUID->"af33a0b4-81b3-4032-9e64-4b9a84f86afb"] }, Open ]], Cell[CellGroupData[{ @@ -4741,12 +9990,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + "In[488]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991335275581682*^9}, +Cell[BoxData["0.9189639919126641`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.993912235546877*^9}, CellLabel-> - "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] + "Out[488]=",ExpressionUUID->"3c511603-5b75-4506-b90e-7d9353897a40"] }, Open ]], Cell[CellGroupData[{ @@ -4869,12 +10118,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + "In[489]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913352756087036`*^9}, +Cell[BoxData["0.0744691734806052`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.9939122355576143`*^9}, CellLabel-> - "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] + "Out[489]=",ExpressionUUID->"277cd595-dc78-4e20-92e4-776669eebf9e"] }, Open ]], Cell[CellGroupData[{ @@ -4936,68 +10185,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849332835844*^9},ExpressionUUID->"d6aa822f-4140-174a-8e29-\ -c889dba5c0d8"], + CellChangeTimes->{3.991849332835844*^9}, + CellLabel-> + "In[490]:=",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 253, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275636673*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.589631272917083`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 490, 62, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.993912235572054*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +In[490]:=",ExpressionUUID->"19b7419b-99f7-44a1-a9bf-807d2bf86f0c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 254, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756456738`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.22497537122702`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 490, 63, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9939122355814*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +In[490]:=",ExpressionUUID->"34681da4-23b8-4b45-b82b-8454e951e66e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 255, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756546745`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0542183327581043`*^-216\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 490, 64, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9939122355890913`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +In[490]:=",ExpressionUUID->"0f7a6ad9-5d9d-4cac-9ce6-2cd44f0fe3de"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275662676*^9}, +during this calculation.\"", 2, 490, 65, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.993912235596463*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +In[490]:=",ExpressionUUID->"3032e88f-6f76-4eff-91bc-158dd0b626c1"], -Cell[BoxData["3.3103666491187513`"], "Output", - CellChangeTimes->{3.991335279487499*^9}, +Cell[BoxData["10.970087429851223`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.99391223957386*^9}, CellLabel-> - "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] + "Out[490]=",ExpressionUUID->"4b75a10a-90e7-437d-a4f8-e9c64eed0379"] }, Open ]], Cell[CellGroupData[{ @@ -5059,68 +10312,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918493361354027`*^9},ExpressionUUID->"46f3f057-22eb-c143-af7a-\ -23ddab00799c"], + CellChangeTimes->{3.9918493361354027`*^9}, + CellLabel-> + "In[491]:=",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 257, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279522499*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.589631272917083`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 491, 66, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.993912239614373*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +In[491]:=",ExpressionUUID->"e6f9da1d-19b9-4d17-bc7e-4c8bbdbe5c5d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 258, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279532501*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.22497537122702`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 491, 67, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.9939122396216908`*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +In[491]:=",ExpressionUUID->"55a37460-04b6-4566-9e9b-6d8218cd8fab"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 259, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795405006`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0542183327581043`*^-216\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 491, 68, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.993912239628738*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +In[491]:=",ExpressionUUID->"6a397a08-4cbd-4258-ae6f-00d0e14f8b9a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795487957`*^9}, +during this calculation.\"", 2, 491, 69, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.993912239636507*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +In[491]:=",ExpressionUUID->"7197816a-c743-4c17-802f-838b8993968c"], -Cell[BoxData["7.82322944391716`"], "Output", - CellChangeTimes->{3.991335283631424*^9}, +Cell[BoxData["5.000515508482825`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.993912243503162*^9}, CellLabel-> - "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] + "Out[491]=",ExpressionUUID->"3db605fb-cac7-4bbe-9ecd-24e13dd2109b"] }, Open ]], Cell[CellGroupData[{ @@ -5178,94 +10435,92 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918494105860615`*^9},ExpressionUUID->"0137ed47-cd78-284a-910a-\ -31d165f1571c"], + CellChangeTimes->{3.9918494105860615`*^9}, + CellLabel-> + "In[492]:=",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk8VdsXAHAJz5gpU1IZy5iIKM9eRYqQlKIBXfceQ5EhEkKvaFBCkvql +WygylJmQ50W9XsZQShTOdc1c8yHy2/44n/P5ftZnr73W2udsRdo5ewY3FxdX +L35W3n6NOptLmxtNs11T7sgWkch0LN2AZp6Dklxb3624m2mYqGJeiSTy/Tzk +sO3oDXzC+u+QqVPwhXXY+cERNbzm9aid3j8pj33jvWx1RNYntJ9V1aGA/brZ +7/Gi3mfUPPJbZxP2UMfHsIsVX5Facsa4Eva6PuUTs2adaJbn9Xo17APjYcYB +9T/R2aP6JerYVYtDQsFZPSimSLpSG/vLZZnQEh8ScQ646ehhj/GZD03r9aEZ +GzmRHdh8t3yd9OfYqIBj5GiCvUE85YNfxQDq8nkrugfbVn72+ZjZCFpalqy1 +xSaeKElr84+hZWZntQN2hOrBqDP148jXQEzjFPZXmbZt57MmkH/s693e2PTj +Xp53b02imzy6nEBsziOupwU+U8j+s4RQBDa/krbYhN4MKt+4MToBO5Fes09M +ahZd97NkP8LelOEUsXVuFtEbewoysI20ose8Kyh0+LZzfBW2h+HP+iGzRVTi +luQ2gT0dHMgjqLaEmLpo8zJ2ZIWQiTr/bzRjdfyYSDGJksEo271+GfH3Di5q +YNOffTD3z1oFGguRp85gZ72/231ZnhsE/BqvhmFz+p3D4m9xg236XdlY7DCN +mcI8n9VAt7seVYCd+EpReVyPF1x3bQvkKiFRR/NI1e80Xlgct+eSwt40WXp8 +jRQf+C5Ozqlj52y3TdCe44P3NflaDti1r0NWna3gB+l085w87Jma1p8DZsIQ +2JjGE1ZKIglrYbHQKmGwKLv84gG2bps5iBiLQGX5bEMpther+Mk2nTWgr59z +bwbbl7te909hMZgM99t0oYxEfUovJ6JmxWFhy0+VhNd4PsRHgSZ9CUjuma4p +xebOZivK+knA8L43vV3Ym/Q32mcNS4BDnzdTs5xEx83iChq7JaHWLFqqAbvJ +zT9Apk4KHjS4z26uJNGPjNgYV35p6NVmxjtgjwxnpb3YKw08ltk5V7AFz5Ot +u6qlIVjqAK0H2/zqke2uxTIwbzhSl/qGROXphjOZTDkYPkA+/PNvEqX3LQTt +PK8AWzrO7mx9S6L9Dtd+BOQqwDekWylcg/PXSlrkshUgmlOQa4G9PV1LapPT +BvAM4uquwK6lORfymm4Ekd88f2XXkmhyvPvCwJVNcNNeqIr5nkSS3uZFhTZK +sGvqX/XOjyRipwt62HkpwSDzv0zlOhKVdTbLj0YrQR4X+/4Z7JPWp66oVSuB +TkLo+0XsdM0g+wd6yoBGAxgqDXj/oQxOuIwKhO26mHu9iURH3IW0rXpU4WlW +y6VnbSRCQQ56x5ZUoWZRzHEeWyOKuYMupwa+Ty4+tvlMIq40/T3hh9Rg5/qv +5+awc3+cOFbwjxoUp+io2rXj//NozuV1qZuhSDOoS6oD12du82WIpg4FWxcf +T/4kUdrh+9/nwtXBuuJv3iPdJIql9XTz/E8dciW2fCvGpkcGDm9oVYdLKXPv +QnpIJF6ZwnXYTAOY7nxlAiT+fvTHNCqUNWHE/+4qEzaJ5JXuRMSwtOCjwdf9 +kyMkqrw5rT7PrQ0WdgfLvUbxPKac2ghFbUhXMMshsR/XqqjvcdaG2Kwy8fYx +Eim5l7dQ7drg33KFrOHgfnP6VIk6HRD05GQUT5NIQX4DsclJF4ISxLrnF0mk +9ey88C+kBwUCDyP5RFmIRr8yo22rB8mFMmvuYScrJ/xwPakHqaZTwipiLLQ6 +9VXe+2A9WN7R6WwmzkIdj4eOJOTrwQvfTUeuSbLQjWTXFHVlfdDw+XJDRZaF +2DHWOo5822HAhc+2SJGFnvqr2BXXG4CJ6LlMDUMWag5CO64+MwbV/cNEkQcL +KTp/tj119k84oSiU8TKVhRjLJS8VLgJM/puU69rNQjLDZX/I0PaAktbh6bea +fei8vklngoY5fCJ5nPeH9CHa6OIHyaG9kF9QskGyqQ/l7gn4g9m0D5ICbm8W +3M5G6dNe/+QkWsL8QXnOj4dsRO2WbaiNOABpsaHL85L9qItr9UTPaRto63BM +6krsRz7rz8VdVj4Itcn8OgbSA+il54fqe1F2kFS9zeNVzgAKmZKb0/Q8BE78 +4RzWnkF8z1kc/dfFHnpK6isvcgaR8Yn43X2HDkMo318ZS8+GUItcilet/hE4 +njttcdhpGK17fqUyc4sDaGjKFhWojaCybg1rW5GjIPU6779czgja0MZxDxo9 +ClHiH7w0q0eR/r34nLTuY/Dnxsm/0rPHUArPlE5CjSPcpHby1cWNo5LdWzui +XjuBVaxNv68lByXvuCm+mHUcslhOdwrrOajp+7No/VsnYHe/gUGz1QQqtnmk +4ht5ElqvVtmLtE+gCe/DXD70UyBOWqo/OTmJZizUPcbMnGG3tEse0TOJMke/ +UQGGLjDc2COV7T+FHJ8+czsl7AqCWk+dPRamUGHBAZfV11yhXW1hL/PWNDKW +b5m/Me8KPsVT8XKSM0i5273jk+dp4DWmMVrvziCW0JmDj8jTUPnfwvitdbOo +OdbWbZ8DDTxFWpesE2ZRYjBTKLCZBnrtfWaTQnOosmp53s3SDTID5sRjLs4h +0ZNwTb/cDbKK2rKTP88hY9exzKjtdFDeanGjU4tCzx9wAmwN6SC/LDH4hw6F +1rZOmsoY0SF6RDtCbyuFxvbOtWXuokOo3k6bqG0Uvl+4VtXvoQNnjbqnoiGF +1syJO0kcooPN3Wq6PqIQ67aBANObDiK1b+5V2lEotiLMs+w5HbYZvXvt4Ech +b737xsGZdDhX+rlhnz+FrF/kCxhl0eFXVYaYcQCFBO+zX5Tm0iFyf6GiXCCF +ovzthkqK6FD2lHGmKZhCYeoqZ4rf0uGOe6732kgKed2vO1vwgw4yEzblv29T +yHIN28S/mw57JB+Zfoml0JYoLhG9Xjosflo7nHOHQmx/g9z8PjoYt1dVHIun +0Glb5mjeCB0cm2MM0xIp5Mgb4PNqgQ5LSkfdxf9HoX0B63xzpBnw0jfR0zKD +Qm+Z0VYJsgzw8569JpVJIZP6SZXgdQz4SR572o2tq1r3zWwDAzrqjGoDsigk +1x5q9l2VAWxl59rbuRQa3tklLWjAgM5ffuFxhRS6w/3kjfthBhiHpns2VeH+ +twon2zgw4FXR3siQvyl09USwv/4xBkR6MmJUqikUXGS3efk4A8a9aeGB/+D6 +iVXxSTQGDD7c1iJYSyH9jzT6Oz8GkOm8Aqv/o1B7vKqQchwDrOLcL29podBL +JOIxEM8A4V982ZnYV0ena3Pv4nixQP/mVgrpWdaGG91nAOFWeU+5DZ8fl9uk +zWMGCK4L+Sj6hUIW5558C85hQLyR9oWKbxRSULhuaPqSASVrO8q0Oig0/fHc +3dV5DLhkJC6Ugp2qhmxiC3H9g6+6Q75TaKmrqzqtHM8vocRGs4tCRdbymY0f +GOD5i5Rx6aZQzAI3b+JHBiBU6fAPNi1z6LRTPQOkj0SkKvVQSIynXJ7VxAA1 +AcKjF/tsheOd+S8MGFmvnHaUpJCyRlKQSh8DHJjXq8XZFFpov9Q6yGZAIs2q +l47dHMXQfTXAgKTFePFS7PCe7UPGIwywuXE62bGfQh3JracOTjHArOWLedwA +hRL+EN8bsoqA35+u8LcMUahysuvE+dUEiG141KwwTKH+rix/H14CyhukPT2w +TYrMn9AECOD4tQsuYLNdg39ZiRPwYlBaVHQU12+9V2KvJAEtvc3HDmHv2iGh +jqQIuD9q6puAHSeSc1RfjoCS32xR8TEcL/+ZL69IQOCSJT/XOIWIZzkfpJQJ +mOq9Wm+EHRd38aeoKgHmo50uvthsQlKER52AwQnm1PeVuOQ+jxFdAqI7nzek +cyhU/lsygq1HQNOFJf427L7B7nvd2wnQqJuQ4J6g0M7qkJo2IwIae0MSjmOz +zr7c8AYIeBuaZLqEvcYx1KB0DwGbB11GlSYpZGy23zrfHPdn5OK1DztWrvfi +s/0ECCa3NN7CLuN5Fce0IiBVcVtJLjY5HprxwJqAvsiHZxqwjd5Lfb5tR4DC +ewIEpvB55/cOX7MnYFG+1EUV+/ajV9x/HSGAtnnUGrB7/S11gxxx/NBgnD+2 +iLP0Pt/jBMh+ZfbfwDayJE95nSQgvme98JOV9RsvxTi7EvDd9WDVB+wyQatU +RxoBZgbUge8r+WakX9vTsa1sM0ZW8vWQTdYEAYUm1s2LK/nq89gWHgRc4B99 +LzSN6yu9tAReeJ78WjFy2LdTrdbuOkvAwCyPghp22W0ZTQMfAqpGAsK2YfcG +s3Zv9SXAhBb4Yhe2MD3fUd2fgFIdvnRz7B0Hw88pnyfg6XXls9Yr+XceiFYI +IuAGb92qw9i3VGVTZIIJ2PJwge6IXSLWVygeQoDtw7x7J7F7fuV/FAojYK5s ++K7LSv7+8B7ecLwff7bLaWzDlgPUcgQBPvOj1Ir/D+qCAmA= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5279,106 +10534,104 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= +1:eJwV1Hk8VdsXAHAJz5gpU1IZy5iIKM9eRYqQlKIBXfceQ5EhEkKvaFBCkvql +WygylJmQ50W9XsZQShTOdc1c8yHy2/44n/P5ftZnr73W2udsRdo5ewY3FxdX +L35W3n6NOptLmxtNs11T7sgWkch0LN2AZp6Dklxb3624m2mYqGJeiSTy/Tzk +sO3oDXzC+u+QqVPwhXXY+cERNbzm9aid3j8pj33jvWx1RNYntJ9V1aGA/brZ +7/Gi3mfUPPJbZxP2UMfHsIsVX5Facsa4Eva6PuUTs2adaJbn9Xo17APjYcYB +9T/R2aP6JerYVYtDQsFZPSimSLpSG/vLZZnQEh8ScQ646ehhj/GZD03r9aEZ +GzmRHdh8t3yd9OfYqIBj5GiCvUE85YNfxQDq8nkrugfbVn72+ZjZCFpalqy1 +xSaeKElr84+hZWZntQN2hOrBqDP148jXQEzjFPZXmbZt57MmkH/s693e2PTj +Xp53b02imzy6nEBsziOupwU+U8j+s4RQBDa/krbYhN4MKt+4MToBO5Fes09M +ahZd97NkP8LelOEUsXVuFtEbewoysI20ose8Kyh0+LZzfBW2h+HP+iGzRVTi +luQ2gT0dHMgjqLaEmLpo8zJ2ZIWQiTr/bzRjdfyYSDGJksEo271+GfH3Di5q +YNOffTD3z1oFGguRp85gZ72/231ZnhsE/BqvhmFz+p3D4m9xg236XdlY7DCN +mcI8n9VAt7seVYCd+EpReVyPF1x3bQvkKiFRR/NI1e80Xlgct+eSwt40WXp8 +jRQf+C5Ozqlj52y3TdCe44P3NflaDti1r0NWna3gB+l085w87Jma1p8DZsIQ +2JjGE1ZKIglrYbHQKmGwKLv84gG2bps5iBiLQGX5bEMpther+Mk2nTWgr59z +bwbbl7te909hMZgM99t0oYxEfUovJ6JmxWFhy0+VhNd4PsRHgSZ9CUjuma4p +xebOZivK+knA8L43vV3Ym/Q32mcNS4BDnzdTs5xEx83iChq7JaHWLFqqAbvJ +zT9Apk4KHjS4z26uJNGPjNgYV35p6NVmxjtgjwxnpb3YKw08ltk5V7AFz5Ot +u6qlIVjqAK0H2/zqke2uxTIwbzhSl/qGROXphjOZTDkYPkA+/PNvEqX3LQTt +PK8AWzrO7mx9S6L9Dtd+BOQqwDekWylcg/PXSlrkshUgmlOQa4G9PV1LapPT +BvAM4uquwK6lORfymm4Ekd88f2XXkmhyvPvCwJVNcNNeqIr5nkSS3uZFhTZK +sGvqX/XOjyRipwt62HkpwSDzv0zlOhKVdTbLj0YrQR4X+/4Z7JPWp66oVSuB +TkLo+0XsdM0g+wd6yoBGAxgqDXj/oQxOuIwKhO26mHu9iURH3IW0rXpU4WlW +y6VnbSRCQQ56x5ZUoWZRzHEeWyOKuYMupwa+Ty4+tvlMIq40/T3hh9Rg5/qv +5+awc3+cOFbwjxoUp+io2rXj//NozuV1qZuhSDOoS6oD12du82WIpg4FWxcf +T/4kUdrh+9/nwtXBuuJv3iPdJIql9XTz/E8dciW2fCvGpkcGDm9oVYdLKXPv +QnpIJF6ZwnXYTAOY7nxlAiT+fvTHNCqUNWHE/+4qEzaJ5JXuRMSwtOCjwdf9 +kyMkqrw5rT7PrQ0WdgfLvUbxPKac2ghFbUhXMMshsR/XqqjvcdaG2Kwy8fYx +Eim5l7dQ7drg33KFrOHgfnP6VIk6HRD05GQUT5NIQX4DsclJF4ISxLrnF0mk +9ey88C+kBwUCDyP5RFmIRr8yo22rB8mFMmvuYScrJ/xwPakHqaZTwipiLLQ6 +9VXe+2A9WN7R6WwmzkIdj4eOJOTrwQvfTUeuSbLQjWTXFHVlfdDw+XJDRZaF +2DHWOo5822HAhc+2SJGFnvqr2BXXG4CJ6LlMDUMWag5CO64+MwbV/cNEkQcL +KTp/tj119k84oSiU8TKVhRjLJS8VLgJM/puU69rNQjLDZX/I0PaAktbh6bea +fei8vklngoY5fCJ5nPeH9CHa6OIHyaG9kF9QskGyqQ/l7gn4g9m0D5ICbm8W +3M5G6dNe/+QkWsL8QXnOj4dsRO2WbaiNOABpsaHL85L9qItr9UTPaRto63BM +6krsRz7rz8VdVj4Itcn8OgbSA+il54fqe1F2kFS9zeNVzgAKmZKb0/Q8BE78 +4RzWnkF8z1kc/dfFHnpK6isvcgaR8Yn43X2HDkMo318ZS8+GUItcilet/hE4 +njttcdhpGK17fqUyc4sDaGjKFhWojaCybg1rW5GjIPU6779czgja0MZxDxo9 +ClHiH7w0q0eR/r34nLTuY/Dnxsm/0rPHUArPlE5CjSPcpHby1cWNo5LdWzui +XjuBVaxNv68lByXvuCm+mHUcslhOdwrrOajp+7No/VsnYHe/gUGz1QQqtnmk +4ht5ElqvVtmLtE+gCe/DXD70UyBOWqo/OTmJZizUPcbMnGG3tEse0TOJMke/ +UQGGLjDc2COV7T+FHJ8+czsl7AqCWk+dPRamUGHBAZfV11yhXW1hL/PWNDKW +b5m/Me8KPsVT8XKSM0i5273jk+dp4DWmMVrvziCW0JmDj8jTUPnfwvitdbOo +OdbWbZ8DDTxFWpesE2ZRYjBTKLCZBnrtfWaTQnOosmp53s3SDTID5sRjLs4h +0ZNwTb/cDbKK2rKTP88hY9exzKjtdFDeanGjU4tCzx9wAmwN6SC/LDH4hw6F +1rZOmsoY0SF6RDtCbyuFxvbOtWXuokOo3k6bqG0Uvl+4VtXvoQNnjbqnoiGF +1syJO0kcooPN3Wq6PqIQ67aBANObDiK1b+5V2lEotiLMs+w5HbYZvXvt4Ech +b737xsGZdDhX+rlhnz+FrF/kCxhl0eFXVYaYcQCFBO+zX5Tm0iFyf6GiXCCF +ovzthkqK6FD2lHGmKZhCYeoqZ4rf0uGOe6732kgKed2vO1vwgw4yEzblv29T +yHIN28S/mw57JB+Zfoml0JYoLhG9Xjosflo7nHOHQmx/g9z8PjoYt1dVHIun +0Glb5mjeCB0cm2MM0xIp5Mgb4PNqgQ5LSkfdxf9HoX0B63xzpBnw0jfR0zKD +Qm+Z0VYJsgzw8569JpVJIZP6SZXgdQz4SR572o2tq1r3zWwDAzrqjGoDsigk +1x5q9l2VAWxl59rbuRQa3tklLWjAgM5ffuFxhRS6w/3kjfthBhiHpns2VeH+ +twon2zgw4FXR3siQvyl09USwv/4xBkR6MmJUqikUXGS3efk4A8a9aeGB/+D6 +iVXxSTQGDD7c1iJYSyH9jzT6Oz8GkOm8Aqv/o1B7vKqQchwDrOLcL29podBL +JOIxEM8A4V982ZnYV0ena3Pv4nixQP/mVgrpWdaGG91nAOFWeU+5DZ8fl9uk +zWMGCK4L+Sj6hUIW5558C85hQLyR9oWKbxRSULhuaPqSASVrO8q0Oig0/fHc +3dV5DLhkJC6Ugp2qhmxiC3H9g6+6Q75TaKmrqzqtHM8vocRGs4tCRdbymY0f +GOD5i5Rx6aZQzAI3b+JHBiBU6fAPNi1z6LRTPQOkj0SkKvVQSIynXJ7VxAA1 +AcKjF/tsheOd+S8MGFmvnHaUpJCyRlKQSh8DHJjXq8XZFFpov9Q6yGZAIs2q +l47dHMXQfTXAgKTFePFS7PCe7UPGIwywuXE62bGfQh3JracOTjHArOWLedwA +hRL+EN8bsoqA35+u8LcMUahysuvE+dUEiG141KwwTKH+rix/H14CyhukPT2w +TYrMn9AECOD4tQsuYLNdg39ZiRPwYlBaVHQU12+9V2KvJAEtvc3HDmHv2iGh +jqQIuD9q6puAHSeSc1RfjoCS32xR8TEcL/+ZL69IQOCSJT/XOIWIZzkfpJQJ +mOq9Wm+EHRd38aeoKgHmo50uvthsQlKER52AwQnm1PeVuOQ+jxFdAqI7nzek +cyhU/lsygq1HQNOFJf427L7B7nvd2wnQqJuQ4J6g0M7qkJo2IwIae0MSjmOz +zr7c8AYIeBuaZLqEvcYx1KB0DwGbB11GlSYpZGy23zrfHPdn5OK1DztWrvfi +s/0ECCa3NN7CLuN5Fce0IiBVcVtJLjY5HprxwJqAvsiHZxqwjd5Lfb5tR4DC +ewIEpvB55/cOX7MnYFG+1EUV+/ajV9x/HSGAtnnUGrB7/S11gxxx/NBgnD+2 +iLP0Pt/jBMh+ZfbfwDayJE95nSQgvme98JOV9RsvxTi7EvDd9WDVB+wyQatU +RxoBZgbUge8r+WakX9vTsa1sM0ZW8vWQTdYEAYUm1s2LK/nq89gWHgRc4B99 +LzSN6yu9tAReeJ78WjFy2LdTrdbuOkvAwCyPghp22W0ZTQMfAqpGAsK2YfcG +s3Zv9SXAhBb4Yhe2MD3fUd2fgFIdvnRz7B0Hw88pnyfg6XXls9Yr+XceiFYI +IuAGb92qw9i3VGVTZIIJ2PJwge6IXSLWVygeQoDtw7x7J7F7fuV/FAojYK5s ++K7LSv7+8B7ecLwff7bLaWzDlgPUcgQBPvOj1Ir/D+qCAmA= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.615734367845126, + 1.5596637462436678`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.6157343678451274}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5390,21 +10643,20 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "PlotRange" -> {{0, 180}, {0.615734367845126, 1.5596637462436678`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6157343678451274}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5418,104 +10670,102 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= +1:eJwV1Hk8VdsXAHAJz5gpU1IZy5iIKM9eRYqQlKIBXfceQ5EhEkKvaFBCkvql +WygylJmQ50W9XsZQShTOdc1c8yHy2/44n/P5ftZnr73W2udsRdo5ewY3FxdX +L35W3n6NOptLmxtNs11T7sgWkch0LN2AZp6Dklxb3624m2mYqGJeiSTy/Tzk +sO3oDXzC+u+QqVPwhXXY+cERNbzm9aid3j8pj33jvWx1RNYntJ9V1aGA/brZ +7/Gi3mfUPPJbZxP2UMfHsIsVX5Facsa4Eva6PuUTs2adaJbn9Xo17APjYcYB +9T/R2aP6JerYVYtDQsFZPSimSLpSG/vLZZnQEh8ScQ646ehhj/GZD03r9aEZ +GzmRHdh8t3yd9OfYqIBj5GiCvUE85YNfxQDq8nkrugfbVn72+ZjZCFpalqy1 +xSaeKElr84+hZWZntQN2hOrBqDP148jXQEzjFPZXmbZt57MmkH/s693e2PTj +Xp53b02imzy6nEBsziOupwU+U8j+s4RQBDa/krbYhN4MKt+4MToBO5Fes09M +ahZd97NkP8LelOEUsXVuFtEbewoysI20ose8Kyh0+LZzfBW2h+HP+iGzRVTi +luQ2gT0dHMgjqLaEmLpo8zJ2ZIWQiTr/bzRjdfyYSDGJksEo271+GfH3Di5q +YNOffTD3z1oFGguRp85gZ72/231ZnhsE/BqvhmFz+p3D4m9xg236XdlY7DCN +mcI8n9VAt7seVYCd+EpReVyPF1x3bQvkKiFRR/NI1e80Xlgct+eSwt40WXp8 +jRQf+C5Ozqlj52y3TdCe44P3NflaDti1r0NWna3gB+l085w87Jma1p8DZsIQ +2JjGE1ZKIglrYbHQKmGwKLv84gG2bps5iBiLQGX5bEMpther+Mk2nTWgr59z +bwbbl7te909hMZgM99t0oYxEfUovJ6JmxWFhy0+VhNd4PsRHgSZ9CUjuma4p +xebOZivK+knA8L43vV3Ym/Q32mcNS4BDnzdTs5xEx83iChq7JaHWLFqqAbvJ +zT9Apk4KHjS4z26uJNGPjNgYV35p6NVmxjtgjwxnpb3YKw08ltk5V7AFz5Ot +u6qlIVjqAK0H2/zqke2uxTIwbzhSl/qGROXphjOZTDkYPkA+/PNvEqX3LQTt +PK8AWzrO7mx9S6L9Dtd+BOQqwDekWylcg/PXSlrkshUgmlOQa4G9PV1LapPT +BvAM4uquwK6lORfymm4Ekd88f2XXkmhyvPvCwJVNcNNeqIr5nkSS3uZFhTZK +sGvqX/XOjyRipwt62HkpwSDzv0zlOhKVdTbLj0YrQR4X+/4Z7JPWp66oVSuB +TkLo+0XsdM0g+wd6yoBGAxgqDXj/oQxOuIwKhO26mHu9iURH3IW0rXpU4WlW +y6VnbSRCQQ56x5ZUoWZRzHEeWyOKuYMupwa+Ty4+tvlMIq40/T3hh9Rg5/qv +5+awc3+cOFbwjxoUp+io2rXj//NozuV1qZuhSDOoS6oD12du82WIpg4FWxcf +T/4kUdrh+9/nwtXBuuJv3iPdJIql9XTz/E8dciW2fCvGpkcGDm9oVYdLKXPv +QnpIJF6ZwnXYTAOY7nxlAiT+fvTHNCqUNWHE/+4qEzaJ5JXuRMSwtOCjwdf9 +kyMkqrw5rT7PrQ0WdgfLvUbxPKac2ghFbUhXMMshsR/XqqjvcdaG2Kwy8fYx +Eim5l7dQ7drg33KFrOHgfnP6VIk6HRD05GQUT5NIQX4DsclJF4ISxLrnF0mk +9ey88C+kBwUCDyP5RFmIRr8yo22rB8mFMmvuYScrJ/xwPakHqaZTwipiLLQ6 +9VXe+2A9WN7R6WwmzkIdj4eOJOTrwQvfTUeuSbLQjWTXFHVlfdDw+XJDRZaF +2DHWOo5822HAhc+2SJGFnvqr2BXXG4CJ6LlMDUMWag5CO64+MwbV/cNEkQcL +KTp/tj119k84oSiU8TKVhRjLJS8VLgJM/puU69rNQjLDZX/I0PaAktbh6bea +fei8vklngoY5fCJ5nPeH9CHa6OIHyaG9kF9QskGyqQ/l7gn4g9m0D5ICbm8W +3M5G6dNe/+QkWsL8QXnOj4dsRO2WbaiNOABpsaHL85L9qItr9UTPaRto63BM +6krsRz7rz8VdVj4Itcn8OgbSA+il54fqe1F2kFS9zeNVzgAKmZKb0/Q8BE78 +4RzWnkF8z1kc/dfFHnpK6isvcgaR8Yn43X2HDkMo318ZS8+GUItcilet/hE4 +njttcdhpGK17fqUyc4sDaGjKFhWojaCybg1rW5GjIPU6779czgja0MZxDxo9 +ClHiH7w0q0eR/r34nLTuY/Dnxsm/0rPHUArPlE5CjSPcpHby1cWNo5LdWzui +XjuBVaxNv68lByXvuCm+mHUcslhOdwrrOajp+7No/VsnYHe/gUGz1QQqtnmk +4ht5ElqvVtmLtE+gCe/DXD70UyBOWqo/OTmJZizUPcbMnGG3tEse0TOJMke/ +UQGGLjDc2COV7T+FHJ8+czsl7AqCWk+dPRamUGHBAZfV11yhXW1hL/PWNDKW +b5m/Me8KPsVT8XKSM0i5273jk+dp4DWmMVrvziCW0JmDj8jTUPnfwvitdbOo +OdbWbZ8DDTxFWpesE2ZRYjBTKLCZBnrtfWaTQnOosmp53s3SDTID5sRjLs4h +0ZNwTb/cDbKK2rKTP88hY9exzKjtdFDeanGjU4tCzx9wAmwN6SC/LDH4hw6F +1rZOmsoY0SF6RDtCbyuFxvbOtWXuokOo3k6bqG0Uvl+4VtXvoQNnjbqnoiGF +1syJO0kcooPN3Wq6PqIQ67aBANObDiK1b+5V2lEotiLMs+w5HbYZvXvt4Ech +b737xsGZdDhX+rlhnz+FrF/kCxhl0eFXVYaYcQCFBO+zX5Tm0iFyf6GiXCCF +ovzthkqK6FD2lHGmKZhCYeoqZ4rf0uGOe6732kgKed2vO1vwgw4yEzblv29T +yHIN28S/mw57JB+Zfoml0JYoLhG9Xjosflo7nHOHQmx/g9z8PjoYt1dVHIun +0Glb5mjeCB0cm2MM0xIp5Mgb4PNqgQ5LSkfdxf9HoX0B63xzpBnw0jfR0zKD +Qm+Z0VYJsgzw8569JpVJIZP6SZXgdQz4SR572o2tq1r3zWwDAzrqjGoDsigk +1x5q9l2VAWxl59rbuRQa3tklLWjAgM5ffuFxhRS6w/3kjfthBhiHpns2VeH+ +twon2zgw4FXR3siQvyl09USwv/4xBkR6MmJUqikUXGS3efk4A8a9aeGB/+D6 +iVXxSTQGDD7c1iJYSyH9jzT6Oz8GkOm8Aqv/o1B7vKqQchwDrOLcL29podBL +JOIxEM8A4V982ZnYV0ena3Pv4nixQP/mVgrpWdaGG91nAOFWeU+5DZ8fl9uk +zWMGCK4L+Sj6hUIW5558C85hQLyR9oWKbxRSULhuaPqSASVrO8q0Oig0/fHc +3dV5DLhkJC6Ugp2qhmxiC3H9g6+6Q75TaKmrqzqtHM8vocRGs4tCRdbymY0f +GOD5i5Rx6aZQzAI3b+JHBiBU6fAPNi1z6LRTPQOkj0SkKvVQSIynXJ7VxAA1 +AcKjF/tsheOd+S8MGFmvnHaUpJCyRlKQSh8DHJjXq8XZFFpov9Q6yGZAIs2q +l47dHMXQfTXAgKTFePFS7PCe7UPGIwywuXE62bGfQh3JracOTjHArOWLedwA +hRL+EN8bsoqA35+u8LcMUahysuvE+dUEiG141KwwTKH+rix/H14CyhukPT2w +TYrMn9AECOD4tQsuYLNdg39ZiRPwYlBaVHQU12+9V2KvJAEtvc3HDmHv2iGh +jqQIuD9q6puAHSeSc1RfjoCS32xR8TEcL/+ZL69IQOCSJT/XOIWIZzkfpJQJ +mOq9Wm+EHRd38aeoKgHmo50uvthsQlKER52AwQnm1PeVuOQ+jxFdAqI7nzek +cyhU/lsygq1HQNOFJf427L7B7nvd2wnQqJuQ4J6g0M7qkJo2IwIae0MSjmOz +zr7c8AYIeBuaZLqEvcYx1KB0DwGbB11GlSYpZGy23zrfHPdn5OK1DztWrvfi +s/0ECCa3NN7CLuN5Fce0IiBVcVtJLjY5HprxwJqAvsiHZxqwjd5Lfb5tR4DC +ewIEpvB55/cOX7MnYFG+1EUV+/ajV9x/HSGAtnnUGrB7/S11gxxx/NBgnD+2 +iLP0Pt/jBMh+ZfbfwDayJE95nSQgvme98JOV9RsvxTi7EvDd9WDVB+wyQatU +RxoBZgbUge8r+WakX9vTsa1sM0ZW8vWQTdYEAYUm1s2LK/nq89gWHgRc4B99 +LzSN6yu9tAReeJ78WjFy2LdTrdbuOkvAwCyPghp22W0ZTQMfAqpGAsK2YfcG +s3Zv9SXAhBb4Yhe2MD3fUd2fgFIdvnRz7B0Hw88pnyfg6XXls9Yr+XceiFYI +IuAGb92qw9i3VGVTZIIJ2PJwge6IXSLWVygeQoDtw7x7J7F7fuV/FAojYK5s ++K7LSv7+8B7ecLwff7bLaWzDlgPUcgQBPvOj1Ir/D+qCAmA= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.615734367845126, 1.5596637462436678`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.6157343678451274}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5525,7 +10775,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6152015704378887}, + AxesOrigin->{0, 0.6157343678451274}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5553,7 +10804,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.615734367845126, 1.5596637462436678`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5561,11 +10813,13 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913355426284504`*^9}, + CellChangeTimes->{3.9913355426284504`*^9, 3.993912514653851*^9}, CellLabel-> - "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] + "Out[492]=",ExpressionUUID->"c4d6604f-f587-4b79-ba77-30c9888516b6"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", @@ -5625,14 +10879,1044 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918494141657047`*^9, {3.991849451432905*^9, - 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ -d4884962c12d"], + 3.9918494141657047`*^9, {3.991849451432905*^9, 3.991849451715925*^9}}, + CellLabel-> + "In[493]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2869323053586765`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 493, + 70, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939125147835217`*^9}, + CellLabel-> + "During evaluation of \ +In[493]:=",ExpressionUUID->"78c4bd2c-59d4-4bf9-8c2b-1b30e1319482"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.75260251002106`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 493, 71, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912514791078*^9}, + CellLabel-> + "During evaluation of \ +In[493]:=",ExpressionUUID->"7d0e1633-09cf-4b93-9a06-986f6e7ef2e1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.390696101296517`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 493, 72, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912514798457*^9}, + CellLabel-> + "During evaluation of \ +In[493]:=",ExpressionUUID->"d8f781ba-8564-4bc3-856a-bff5a22f6b5d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 493, 73, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912514805155*^9}, + CellLabel-> + "During evaluation of \ +In[493]:=",ExpressionUUID->"648644b2-ba9d-4391-a8ed-82111accb84c"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV12k4lV0XB3DRgJDIPJ37OMg8hegca5klJWNCoUKeCpUIlaFEmqSBypSk +lDi3QmgQRVQaqFARqbweGTIl4t3Pp/v6fdn72nuv9d/7praEugTw8vDwCMzj +4fnvO9HZ+IR1PN+81O/UYw91C/PWbOkoi7YE0N2R4i95QAlQ4tUW6bY0iDxe +sL45Rhci1t/8wNeWB5T2pFN2DMDSQam0qQ+loCcpGuoR4wRd99eFjn2ohaYr +zjx7o33BltX/eeTDW1iZJJjCFxkKUx9Mzg9/6AE584W7PINjoc7qev6bvFFY +u2/nY13zVJDvqvy+ResvTGk/pH63pcOynb43F1nxocKNNo3MmWxI07etXufO +jxUzUN/NvArtGXo1I6LCuHe8/GeHbQEcz499xSuzFE8tujPc7lUIUue+Hjub +JY6BHVrmanxFIK1ZduR3gTjyMaPHPIWKQLb2aOwmrjjuKX9gnihRBIrD6vvU +6sTRbTY+5aVaEag4hvlV94mj48iHTnnHIjCc/9f4q+EynI0wji07WwRO4ZK9 +Bk3L0H+/jmKD4m1Icltt/nZCAuNMBE8asYpB9m6zLO88SXRuiThepFUMxeJu +k/qLJdEl3qVH3qgY3r/dzD2jJInu3gXn/2dTDCzncKazvSQuL9ozZRBUDLVr +cxa+viiJk3Eqo0duFMNf2/Hml2wpdGtiyzJUSyC1IPrWX1sp7A26nVKjXQKs +hTzJ2s5SWCqbb+ZlVAKOTwUtTgZI4T3/Gx5R1iVwyYpxx/GUFHJyDUMCt5TA +SlyT/rxLCjfJ7M6cziyBvaZXfBsTpFHfg2WetJALDrkiY2tOSGP9BUtfWoAL +zEUHkpvPS6PbXGJymxAXXrd60C03pPFBz/gvBXEu6IQJ8XU2S+Oei3PKiUpc +6CuILPglK4OBSz9+fmLCBZ9l637K3ZHBBRcqpQUCuWAYUx2ffV8Geyw8RFq3 +c0GwZ7kkVS+DrJmLApk7uFBZwgeq7TI4upt3qfJuLkiuqUzVm5PB7ivTW4QP +kPnjWSts1shik8Q5cdczXLAe+hMd8lUWF8+LeZdXyYUo+3MajwdkUWnIbhPv +fS4UX9HuEJ+QxTaJEAHfh1yQdvMzreSXw4UL5F8tqePCwL2nk3w6cshOPSLm +9IILZxNSwy/ul8PFks6p1p1c6JFQDXkiLI/G6W52Qjw0SIU+UpCSkseElS/S +RHlpcHzm+TKYIY/Ck88Xis2noTz6uNYSQ3ksLlIIFuKnIaVruH+jpzya8DnI +dy2hwaCwOmgoTx4VUu2CZxRpiGc7+8uuVMDUkVx16VU02G/O/mViqYCFObmz +39g0iMT9e9jdUQEf/Nt4mGtOQ2ZdYkGqnwKeWMubu8qShnsOVf8uPKaAsy8o +DY3VNAx7KkeMtivg6xzN9u0eNFREhy1a2quAQjMan+d50nAo80GGzqACarN2 +padvpEHoy4bqYF5FtLHdqlfpQ4Na0AmeLxqKeDhkeK51Cw2b942nvIhRROeq +jMjQEBpU0i3l+xMVsenlLfHWUJrs3+nbi1IV8W2LzC6j3TREz6i/tsxXROvJ +wY2De2k4f3izROULRWwOEVY3jaLhxZmGnGsKSvjLqkbI8DANZ+8s069TU8Lm +0xWVW4/Q4PXOv/aLvhLeE5LVOpNIQ5/0TK+crRJ6fLPZ2pNEA1+unkZaiBJm +5uzR2HyCBrPii3cPPVJCAd7pjOpzNFh/aP47+EwJ54ZbFtw4T8M6nvl2vm+V +0L3tzc0zF2jY6hLSDt+UsOeYRo5PBg22MVRs3AIG/m2dNH9zmYYwpYmrFpoM +fOJ4uMkoj4bxO6nPpnQZmDsxNTZOHG2v+ZNewUD+ikzfO1dpSNztZ8w0Z6B6 +X+ykyjUaLtU1PeN1ZmC38znsv07Dk6Ccn3URDAw0+sgdKqJh9Yyp2IEYBmZz +dikeuU1Dc2qr8Yo4Bt6+87lVopiG9kqBuPxjDFTxzlLUL6FhcHG4WGImA5Wq +zxrZ0TTszRUx4VxhoMhL0T9PiX+vKPQev8ZAny4+IctSsj+bO/MDShgYMHBV +1uAODdJcexPbWgYWe3mMjtylIcv6q/dsPQNdiwVWeJfRwGw/GFf+nIG/9Ufr +HxNr895pVH3HwKGnrd+OltNQemHtYGc7A9v85+/9RrxSs08svZOBOtbtbhYV +NFi6Kfgs6mOg4KM+6RHihr6KuEcDDNz91nfG+h7pj4Mu1yJHGGhNjRtfIN5Q +kDT44w8DG6g/d/Qqadj5eyTumTCFM8eFu2yqyHnuDpT8LkZh+uqL9DFi/v6O +W3zSFB6Mpv5pIr72se69OZPCebMhqZbVNIS7rdzpo0ahj1XHXBSx5cuiedFa +FG74ctKzmLjz4XmtMmMKF/ArNwrfp6HIRLD27SoKqSV0z0riaO6hDcNIYUzA +lz4/Ynv10QFhWwovOB37lEgsmReUoLmGQu0vRx5eJ+6V/SS1ej2FxZNFp+uJ +S8+uvx3oTuEZq0/re4jjhJ5aHvGisIEzyDtN7JRo2nbFl0I1rUcFog9oUJy9 +vevRNgqfKGlxlIkHIph8n4Mp3Dom1mBAXDV0IeNPCIWfnFxsgDh5+2Id6XAK +46803rMn9uiOrTOKojCO2sh0ImZ5jXm6HqLQ83V3ggvxr7fbB8MOU7g8wubj +f65Z8/nwqWQKmXmBWuuJTz1xlik6SeF44fJIB2IfTn1xYxrZj8LQ+xbEGuVm +1j/SKdwZx/hrRDylU9I+P4tCi3cMMzXiZ9eVQ5l5FIou3RAuQXyBkTEfr1NY +4XeziId420WhS5uKKPx6h7e3j6zfQCxeN4amMPq+vVwzMc/x8ScZ5RT+/hng +yiVu5vvHq7yawrcHrE+eJs480DnUUkPWv+lV4w7iHeMuiSNPKbxp80vAhtgs +pEF2yXMKR69fXCdHzP9jFVfrNYXT5aUZg+S889tYH4M6KGRs/IUniPc4XwxL +7KKwhW8y14MYm4QXXu2lkHVMXVCR+HP1hF7nIIUd2z5NXyX1VbRiR/30KIWO +xXh0C3H07S5vmSkKdSsuKSgSS+Y8O+rGx0Tj3rmIE6R+e6U48nv4mThbO2YG +xKWpNH1amInwrnTJEKl3p4RLn5qkmNjdGzBkQ5wcsNPAQouJWcnNea9JP3l0 +fmnYrM/Em+06/DuJWRvcNx0wZuKUK3V0PnGNvXlyBTIRjxS/0iL9OaUp2qnt +zsSxy1plXqS/J7Jk4w29mDix+4Z1N+n/sSUqLFNfJpYvXLckgHhw1PQf62Am +vnD/vnEbyYue6q0TXgeZ+IGr0GVB8qVLO+SiXwITk83LtpSS/PmUs58dmMTE +/jBVdQbx+8MnE3afYaKLZ1TCKMmvpjUVIsnXyHrmsROibpJ+f/CYPnmTidM4 +adJaSPJO94Xb2RImfv+xZaUW8UPx7kvZlUyMlbJUaCV5WPpRUK3sJRPzfefS ++P7Lyx2boWeciSdd3Zf0ZNOQ/nl7z48/TAx4qt+3lPic097En3NMNBL6JAdZ +pH4Nk5//FlDGbI2y9DMkrxOm6Q1LFJVR+ZX7rCTJ8x3HF4SxbZWxbO9kaH4q +DexbRbkXLihjcMAxmzexNHxk3MqxuayMUksXaNUeIud7oTB7LEcZk19193AP +kvsyviDTpVAZv2vaP02KIfXrmZshcl8Zr87l7JOLpEF9wbnUo93K6Kji7/hx +F6kH35i4CC0WSqo7KNeR+7SsNSpWRZ+FpsasllBy37o57D/UasTCmQbXMNkN +NKQZ7TtgACw8+yIoItiNBmGh0P2DzixM4W55PriOhvmVW8ICI1n4RfBScLoV +DSNiDn4etSy83jogHKRJQ9tO5ut/GljIn/FtkqtO6qP+D8S+YGFFgsn532o0 +pEbfUrrxnoWBZc2DcSwa9HqEuqb6WWjgaYQRCjSE0K82ZYmr4LUZj7AxERr6 +ndy9e7epYEVWSpXdMBd6T/h57Fmkiq4irLTUIi6E9Gsx9YRUsfF5RVrkTS5M +2k39/CmqigM7mtt8bpD3G19aYrCsKs7OrzJl5nNBL6rurp+2KqqcEtyZcZkL +BwNUxZ1cVVG6fkGsYQp5z5kPvNLMUcV5718/0yTvwdVDkau/Gath467Zi34y +5D22lX/v3djlmK7oYiL9qJj8T0jxJtWq49WCcE19tdsg9lL1FHdIAx8tvzlr +f/IWyCeXrDc21kL1Zefq1lYVQoamqah4kDa6DInf95y6Dk2yFkajZ3TwpZ3Z +aS12AZjJ16bqvtfFb+FJ4bVe+SDClxfun6CHj8a1b3Xm5oFivBJ7o6o+KnVZ +tnBf5YKAik+5S4M+lnSZ5wcaZoMOR6YkcpMBhrnkrUrTuAx7OsXqHHgMUXRe +h1f20gwYGj3hvjrDEFn29ax43/Ngp1t/abX2CrSPei8rOJAGD0dXTU82r0Dr +91Li6jGpEKJl0PEmwAjFdBzXrXhzAjiD21o3Chij5XgNV6IuGWxY0muF84xx +t4P432jfRFgel7K/1sQEo1Kllz0LSgCNANNHKh0m+M0macG0YiwEPNx+5O7u +lRhu37DmU0Q0PMpt3TYiYYpZ3mtS48QiYOzG3KRuhSlebo3vK/fZA1tVbglc +WmuGjwPYGnZPQ2BE46xx6bAZJmaZRX62CIZ7+dPd48mrcPyxePKib9vAy1oZ +VymykUezZrDWyh/+tvKL1DHYKPQux3CtkT/kBgx+dFBm4y5LZ94eVX/4frQy +0ms5GzfXx7M0Bf1hT6NTSZQBGz3n5l6ZvfGDlHUHFO/ZstFt5mewg78fVHm+ +m1kRysasOvVrPGK+ILcrqVKnho2sy6ZWk/3ecGou0Oh4LRtp+qboyVZv4E2z +pX88YWN6d/QNg4fe0F++oDC3kYyf81bs9hlvqOI5kiHWwkarYc/WTabe4HUu +LnLiGxv5WVMq1497QUZ1lNHDxRz0LnE/d2nVRpAQ3Emv3cDBwKTWDPkGD8i3 +Ohg9vJGDfEHmCQalHmBw8JTVWR8O5uxatG1jlgesG+a+a/Pn4OjSsZ72vR5w +9P341NadHCy6JnY6n/KA33mxltHxHLSV/XPPI84dOladbSm4xcHzoocMv6x2 +g+378jNXF3NwWXb4tjljN5goLgsY4HIwz++vug7LDcSYbZP65RycXHfXrmrW +FdbwK8g/qOHgc50dV47fdYX7rQXbWt5xkCOlfFBA2RUcRO5pR7Rx0HXtmgn5 +pa7QZtc4If2Rgwe/annBnAuMVf2bvPkLmf+M3z3uRxfQvqJ3+3/9HHyslHbL ++rwL3O+wiDjxk4POFts3NB92AYdlrqA7zEE4LXg5cI8LBCbtexM+zsGTzVdq +ap3IeDVHL0n95mAjv9ypo+YukPAnfWvVHw4mz21v8tR2AdEVhVqb/nJwrbD3 +DlN5F8jeVTU+N8fBgZangcsXu8D/ASOGfVo= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12k4lV0XB3DRgJDIPJ37OMg8hegca5klJWNCoUKeCpUIlaFEmqSBypSk +lDi3QmgQRVQaqFARqbweGTIl4t3Pp/v6fdn72nuv9d/7praEugTw8vDwCMzj +4fnvO9HZ+IR1PN+81O/UYw91C/PWbOkoi7YE0N2R4i95QAlQ4tUW6bY0iDxe +sL45Rhci1t/8wNeWB5T2pFN2DMDSQam0qQ+loCcpGuoR4wRd99eFjn2ohaYr +zjx7o33BltX/eeTDW1iZJJjCFxkKUx9Mzg9/6AE584W7PINjoc7qev6bvFFY +u2/nY13zVJDvqvy+ResvTGk/pH63pcOynb43F1nxocKNNo3MmWxI07etXufO +jxUzUN/NvArtGXo1I6LCuHe8/GeHbQEcz499xSuzFE8tujPc7lUIUue+Hjub +JY6BHVrmanxFIK1ZduR3gTjyMaPHPIWKQLb2aOwmrjjuKX9gnihRBIrD6vvU +6sTRbTY+5aVaEag4hvlV94mj48iHTnnHIjCc/9f4q+EynI0wji07WwRO4ZK9 +Bk3L0H+/jmKD4m1Icltt/nZCAuNMBE8asYpB9m6zLO88SXRuiThepFUMxeJu +k/qLJdEl3qVH3qgY3r/dzD2jJInu3gXn/2dTDCzncKazvSQuL9ozZRBUDLVr +cxa+viiJk3Eqo0duFMNf2/Hml2wpdGtiyzJUSyC1IPrWX1sp7A26nVKjXQKs +hTzJ2s5SWCqbb+ZlVAKOTwUtTgZI4T3/Gx5R1iVwyYpxx/GUFHJyDUMCt5TA +SlyT/rxLCjfJ7M6cziyBvaZXfBsTpFHfg2WetJALDrkiY2tOSGP9BUtfWoAL +zEUHkpvPS6PbXGJymxAXXrd60C03pPFBz/gvBXEu6IQJ8XU2S+Oei3PKiUpc +6CuILPglK4OBSz9+fmLCBZ9l637K3ZHBBRcqpQUCuWAYUx2ffV8Geyw8RFq3 +c0GwZ7kkVS+DrJmLApk7uFBZwgeq7TI4upt3qfJuLkiuqUzVm5PB7ivTW4QP +kPnjWSts1shik8Q5cdczXLAe+hMd8lUWF8+LeZdXyYUo+3MajwdkUWnIbhPv +fS4UX9HuEJ+QxTaJEAHfh1yQdvMzreSXw4UL5F8tqePCwL2nk3w6cshOPSLm +9IILZxNSwy/ul8PFks6p1p1c6JFQDXkiLI/G6W52Qjw0SIU+UpCSkseElS/S +RHlpcHzm+TKYIY/Ck88Xis2noTz6uNYSQ3ksLlIIFuKnIaVruH+jpzya8DnI +dy2hwaCwOmgoTx4VUu2CZxRpiGc7+8uuVMDUkVx16VU02G/O/mViqYCFObmz +39g0iMT9e9jdUQEf/Nt4mGtOQ2ZdYkGqnwKeWMubu8qShnsOVf8uPKaAsy8o +DY3VNAx7KkeMtivg6xzN9u0eNFREhy1a2quAQjMan+d50nAo80GGzqACarN2 +padvpEHoy4bqYF5FtLHdqlfpQ4Na0AmeLxqKeDhkeK51Cw2b942nvIhRROeq +jMjQEBpU0i3l+xMVsenlLfHWUJrs3+nbi1IV8W2LzC6j3TREz6i/tsxXROvJ +wY2De2k4f3izROULRWwOEVY3jaLhxZmGnGsKSvjLqkbI8DANZ+8s069TU8Lm +0xWVW4/Q4PXOv/aLvhLeE5LVOpNIQ5/0TK+crRJ6fLPZ2pNEA1+unkZaiBJm +5uzR2HyCBrPii3cPPVJCAd7pjOpzNFh/aP47+EwJ54ZbFtw4T8M6nvl2vm+V +0L3tzc0zF2jY6hLSDt+UsOeYRo5PBg22MVRs3AIG/m2dNH9zmYYwpYmrFpoM +fOJ4uMkoj4bxO6nPpnQZmDsxNTZOHG2v+ZNewUD+ikzfO1dpSNztZ8w0Z6B6 +X+ykyjUaLtU1PeN1ZmC38znsv07Dk6Ccn3URDAw0+sgdKqJh9Yyp2IEYBmZz +dikeuU1Dc2qr8Yo4Bt6+87lVopiG9kqBuPxjDFTxzlLUL6FhcHG4WGImA5Wq +zxrZ0TTszRUx4VxhoMhL0T9PiX+vKPQev8ZAny4+IctSsj+bO/MDShgYMHBV +1uAODdJcexPbWgYWe3mMjtylIcv6q/dsPQNdiwVWeJfRwGw/GFf+nIG/9Ufr +HxNr895pVH3HwKGnrd+OltNQemHtYGc7A9v85+/9RrxSs08svZOBOtbtbhYV +NFi6Kfgs6mOg4KM+6RHihr6KuEcDDNz91nfG+h7pj4Mu1yJHGGhNjRtfIN5Q +kDT44w8DG6g/d/Qqadj5eyTumTCFM8eFu2yqyHnuDpT8LkZh+uqL9DFi/v6O +W3zSFB6Mpv5pIr72se69OZPCebMhqZbVNIS7rdzpo0ahj1XHXBSx5cuiedFa +FG74ctKzmLjz4XmtMmMKF/ArNwrfp6HIRLD27SoKqSV0z0riaO6hDcNIYUzA +lz4/Ynv10QFhWwovOB37lEgsmReUoLmGQu0vRx5eJ+6V/SS1ej2FxZNFp+uJ +S8+uvx3oTuEZq0/re4jjhJ5aHvGisIEzyDtN7JRo2nbFl0I1rUcFog9oUJy9 +vevRNgqfKGlxlIkHIph8n4Mp3Dom1mBAXDV0IeNPCIWfnFxsgDh5+2Id6XAK +46803rMn9uiOrTOKojCO2sh0ImZ5jXm6HqLQ83V3ggvxr7fbB8MOU7g8wubj +f65Z8/nwqWQKmXmBWuuJTz1xlik6SeF44fJIB2IfTn1xYxrZj8LQ+xbEGuVm +1j/SKdwZx/hrRDylU9I+P4tCi3cMMzXiZ9eVQ5l5FIou3RAuQXyBkTEfr1NY +4XeziId420WhS5uKKPx6h7e3j6zfQCxeN4amMPq+vVwzMc/x8ScZ5RT+/hng +yiVu5vvHq7yawrcHrE+eJs480DnUUkPWv+lV4w7iHeMuiSNPKbxp80vAhtgs +pEF2yXMKR69fXCdHzP9jFVfrNYXT5aUZg+S889tYH4M6KGRs/IUniPc4XwxL +7KKwhW8y14MYm4QXXu2lkHVMXVCR+HP1hF7nIIUd2z5NXyX1VbRiR/30KIWO +xXh0C3H07S5vmSkKdSsuKSgSS+Y8O+rGx0Tj3rmIE6R+e6U48nv4mThbO2YG +xKWpNH1amInwrnTJEKl3p4RLn5qkmNjdGzBkQ5wcsNPAQouJWcnNea9JP3l0 +fmnYrM/Em+06/DuJWRvcNx0wZuKUK3V0PnGNvXlyBTIRjxS/0iL9OaUp2qnt +zsSxy1plXqS/J7Jk4w29mDix+4Z1N+n/sSUqLFNfJpYvXLckgHhw1PQf62Am +vnD/vnEbyYue6q0TXgeZ+IGr0GVB8qVLO+SiXwITk83LtpSS/PmUs58dmMTE +/jBVdQbx+8MnE3afYaKLZ1TCKMmvpjUVIsnXyHrmsROibpJ+f/CYPnmTidM4 +adJaSPJO94Xb2RImfv+xZaUW8UPx7kvZlUyMlbJUaCV5WPpRUK3sJRPzfefS ++P7Lyx2boWeciSdd3Zf0ZNOQ/nl7z48/TAx4qt+3lPic097En3NMNBL6JAdZ +pH4Nk5//FlDGbI2y9DMkrxOm6Q1LFJVR+ZX7rCTJ8x3HF4SxbZWxbO9kaH4q +DexbRbkXLihjcMAxmzexNHxk3MqxuayMUksXaNUeIud7oTB7LEcZk19193AP +kvsyviDTpVAZv2vaP02KIfXrmZshcl8Zr87l7JOLpEF9wbnUo93K6Kji7/hx +F6kH35i4CC0WSqo7KNeR+7SsNSpWRZ+FpsasllBy37o57D/UasTCmQbXMNkN +NKQZ7TtgACw8+yIoItiNBmGh0P2DzixM4W55PriOhvmVW8ICI1n4RfBScLoV +DSNiDn4etSy83jogHKRJQ9tO5ut/GljIn/FtkqtO6qP+D8S+YGFFgsn532o0 +pEbfUrrxnoWBZc2DcSwa9HqEuqb6WWjgaYQRCjSE0K82ZYmr4LUZj7AxERr6 +ndy9e7epYEVWSpXdMBd6T/h57Fmkiq4irLTUIi6E9Gsx9YRUsfF5RVrkTS5M +2k39/CmqigM7mtt8bpD3G19aYrCsKs7OrzJl5nNBL6rurp+2KqqcEtyZcZkL +BwNUxZ1cVVG6fkGsYQp5z5kPvNLMUcV5718/0yTvwdVDkau/Gath467Zi34y +5D22lX/v3djlmK7oYiL9qJj8T0jxJtWq49WCcE19tdsg9lL1FHdIAx8tvzlr +f/IWyCeXrDc21kL1Zefq1lYVQoamqah4kDa6DInf95y6Dk2yFkajZ3TwpZ3Z +aS12AZjJ16bqvtfFb+FJ4bVe+SDClxfun6CHj8a1b3Xm5oFivBJ7o6o+KnVZ +tnBf5YKAik+5S4M+lnSZ5wcaZoMOR6YkcpMBhrnkrUrTuAx7OsXqHHgMUXRe +h1f20gwYGj3hvjrDEFn29ax43/Ngp1t/abX2CrSPei8rOJAGD0dXTU82r0Dr +91Li6jGpEKJl0PEmwAjFdBzXrXhzAjiD21o3Chij5XgNV6IuGWxY0muF84xx +t4P432jfRFgel7K/1sQEo1Kllz0LSgCNANNHKh0m+M0macG0YiwEPNx+5O7u +lRhu37DmU0Q0PMpt3TYiYYpZ3mtS48QiYOzG3KRuhSlebo3vK/fZA1tVbglc +WmuGjwPYGnZPQ2BE46xx6bAZJmaZRX62CIZ7+dPd48mrcPyxePKib9vAy1oZ +VymykUezZrDWyh/+tvKL1DHYKPQux3CtkT/kBgx+dFBm4y5LZ94eVX/4frQy +0ms5GzfXx7M0Bf1hT6NTSZQBGz3n5l6ZvfGDlHUHFO/ZstFt5mewg78fVHm+ +m1kRysasOvVrPGK+ILcrqVKnho2sy6ZWk/3ecGou0Oh4LRtp+qboyVZv4E2z +pX88YWN6d/QNg4fe0F++oDC3kYyf81bs9hlvqOI5kiHWwkarYc/WTabe4HUu +LnLiGxv5WVMq1497QUZ1lNHDxRz0LnE/d2nVRpAQ3Emv3cDBwKTWDPkGD8i3 +Ohg9vJGDfEHmCQalHmBw8JTVWR8O5uxatG1jlgesG+a+a/Pn4OjSsZ72vR5w +9P341NadHCy6JnY6n/KA33mxltHxHLSV/XPPI84dOladbSm4xcHzoocMv6x2 +g+378jNXF3NwWXb4tjljN5goLgsY4HIwz++vug7LDcSYbZP65RycXHfXrmrW +FdbwK8g/qOHgc50dV47fdYX7rQXbWt5xkCOlfFBA2RUcRO5pR7Rx0HXtmgn5 +pa7QZtc4If2Rgwe/annBnAuMVf2bvPkLmf+M3z3uRxfQvqJ3+3/9HHyslHbL ++rwL3O+wiDjxk4POFts3NB92AYdlrqA7zEE4LXg5cI8LBCbtexM+zsGTzVdq +ap3IeDVHL0n95mAjv9ypo+YukPAnfWvVHw4mz21v8tR2AdEVhVqb/nJwrbD3 +DlN5F8jeVTU+N8fBgZangcsXu8D/ASOGfVo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06929509976676995}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06929509976676995}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12k4lV0XB3DRgJDIPJ37OMg8hegca5klJWNCoUKeCpUIlaFEmqSBypSk +lDi3QmgQRVQaqFARqbweGTIl4t3Pp/v6fdn72nuv9d/7praEugTw8vDwCMzj +4fnvO9HZ+IR1PN+81O/UYw91C/PWbOkoi7YE0N2R4i95QAlQ4tUW6bY0iDxe +sL45Rhci1t/8wNeWB5T2pFN2DMDSQam0qQ+loCcpGuoR4wRd99eFjn2ohaYr +zjx7o33BltX/eeTDW1iZJJjCFxkKUx9Mzg9/6AE584W7PINjoc7qev6bvFFY +u2/nY13zVJDvqvy+ResvTGk/pH63pcOynb43F1nxocKNNo3MmWxI07etXufO +jxUzUN/NvArtGXo1I6LCuHe8/GeHbQEcz499xSuzFE8tujPc7lUIUue+Hjub +JY6BHVrmanxFIK1ZduR3gTjyMaPHPIWKQLb2aOwmrjjuKX9gnihRBIrD6vvU +6sTRbTY+5aVaEag4hvlV94mj48iHTnnHIjCc/9f4q+EynI0wji07WwRO4ZK9 +Bk3L0H+/jmKD4m1Icltt/nZCAuNMBE8asYpB9m6zLO88SXRuiThepFUMxeJu +k/qLJdEl3qVH3qgY3r/dzD2jJInu3gXn/2dTDCzncKazvSQuL9ozZRBUDLVr +cxa+viiJk3Eqo0duFMNf2/Hml2wpdGtiyzJUSyC1IPrWX1sp7A26nVKjXQKs +hTzJ2s5SWCqbb+ZlVAKOTwUtTgZI4T3/Gx5R1iVwyYpxx/GUFHJyDUMCt5TA +SlyT/rxLCjfJ7M6cziyBvaZXfBsTpFHfg2WetJALDrkiY2tOSGP9BUtfWoAL +zEUHkpvPS6PbXGJymxAXXrd60C03pPFBz/gvBXEu6IQJ8XU2S+Oei3PKiUpc +6CuILPglK4OBSz9+fmLCBZ9l637K3ZHBBRcqpQUCuWAYUx2ffV8Geyw8RFq3 +c0GwZ7kkVS+DrJmLApk7uFBZwgeq7TI4upt3qfJuLkiuqUzVm5PB7ivTW4QP +kPnjWSts1shik8Q5cdczXLAe+hMd8lUWF8+LeZdXyYUo+3MajwdkUWnIbhPv +fS4UX9HuEJ+QxTaJEAHfh1yQdvMzreSXw4UL5F8tqePCwL2nk3w6cshOPSLm +9IILZxNSwy/ul8PFks6p1p1c6JFQDXkiLI/G6W52Qjw0SIU+UpCSkseElS/S +RHlpcHzm+TKYIY/Ck88Xis2noTz6uNYSQ3ksLlIIFuKnIaVruH+jpzya8DnI +dy2hwaCwOmgoTx4VUu2CZxRpiGc7+8uuVMDUkVx16VU02G/O/mViqYCFObmz +39g0iMT9e9jdUQEf/Nt4mGtOQ2ZdYkGqnwKeWMubu8qShnsOVf8uPKaAsy8o +DY3VNAx7KkeMtivg6xzN9u0eNFREhy1a2quAQjMan+d50nAo80GGzqACarN2 +padvpEHoy4bqYF5FtLHdqlfpQ4Na0AmeLxqKeDhkeK51Cw2b942nvIhRROeq +jMjQEBpU0i3l+xMVsenlLfHWUJrs3+nbi1IV8W2LzC6j3TREz6i/tsxXROvJ +wY2De2k4f3izROULRWwOEVY3jaLhxZmGnGsKSvjLqkbI8DANZ+8s069TU8Lm +0xWVW4/Q4PXOv/aLvhLeE5LVOpNIQ5/0TK+crRJ6fLPZ2pNEA1+unkZaiBJm +5uzR2HyCBrPii3cPPVJCAd7pjOpzNFh/aP47+EwJ54ZbFtw4T8M6nvl2vm+V +0L3tzc0zF2jY6hLSDt+UsOeYRo5PBg22MVRs3AIG/m2dNH9zmYYwpYmrFpoM +fOJ4uMkoj4bxO6nPpnQZmDsxNTZOHG2v+ZNewUD+ikzfO1dpSNztZ8w0Z6B6 +X+ykyjUaLtU1PeN1ZmC38znsv07Dk6Ccn3URDAw0+sgdKqJh9Yyp2IEYBmZz +dikeuU1Dc2qr8Yo4Bt6+87lVopiG9kqBuPxjDFTxzlLUL6FhcHG4WGImA5Wq +zxrZ0TTszRUx4VxhoMhL0T9PiX+vKPQev8ZAny4+IctSsj+bO/MDShgYMHBV +1uAODdJcexPbWgYWe3mMjtylIcv6q/dsPQNdiwVWeJfRwGw/GFf+nIG/9Ufr +HxNr895pVH3HwKGnrd+OltNQemHtYGc7A9v85+/9RrxSs08svZOBOtbtbhYV +NFi6Kfgs6mOg4KM+6RHihr6KuEcDDNz91nfG+h7pj4Mu1yJHGGhNjRtfIN5Q +kDT44w8DG6g/d/Qqadj5eyTumTCFM8eFu2yqyHnuDpT8LkZh+uqL9DFi/v6O +W3zSFB6Mpv5pIr72se69OZPCebMhqZbVNIS7rdzpo0ahj1XHXBSx5cuiedFa +FG74ctKzmLjz4XmtMmMKF/ArNwrfp6HIRLD27SoKqSV0z0riaO6hDcNIYUzA +lz4/Ynv10QFhWwovOB37lEgsmReUoLmGQu0vRx5eJ+6V/SS1ej2FxZNFp+uJ +S8+uvx3oTuEZq0/re4jjhJ5aHvGisIEzyDtN7JRo2nbFl0I1rUcFog9oUJy9 +vevRNgqfKGlxlIkHIph8n4Mp3Dom1mBAXDV0IeNPCIWfnFxsgDh5+2Id6XAK +46803rMn9uiOrTOKojCO2sh0ImZ5jXm6HqLQ83V3ggvxr7fbB8MOU7g8wubj +f65Z8/nwqWQKmXmBWuuJTz1xlik6SeF44fJIB2IfTn1xYxrZj8LQ+xbEGuVm +1j/SKdwZx/hrRDylU9I+P4tCi3cMMzXiZ9eVQ5l5FIou3RAuQXyBkTEfr1NY +4XeziId420WhS5uKKPx6h7e3j6zfQCxeN4amMPq+vVwzMc/x8ScZ5RT+/hng +yiVu5vvHq7yawrcHrE+eJs480DnUUkPWv+lV4w7iHeMuiSNPKbxp80vAhtgs +pEF2yXMKR69fXCdHzP9jFVfrNYXT5aUZg+S889tYH4M6KGRs/IUniPc4XwxL +7KKwhW8y14MYm4QXXu2lkHVMXVCR+HP1hF7nIIUd2z5NXyX1VbRiR/30KIWO +xXh0C3H07S5vmSkKdSsuKSgSS+Y8O+rGx0Tj3rmIE6R+e6U48nv4mThbO2YG +xKWpNH1amInwrnTJEKl3p4RLn5qkmNjdGzBkQ5wcsNPAQouJWcnNea9JP3l0 +fmnYrM/Em+06/DuJWRvcNx0wZuKUK3V0PnGNvXlyBTIRjxS/0iL9OaUp2qnt +zsSxy1plXqS/J7Jk4w29mDix+4Z1N+n/sSUqLFNfJpYvXLckgHhw1PQf62Am +vnD/vnEbyYue6q0TXgeZ+IGr0GVB8qVLO+SiXwITk83LtpSS/PmUs58dmMTE +/jBVdQbx+8MnE3afYaKLZ1TCKMmvpjUVIsnXyHrmsROibpJ+f/CYPnmTidM4 +adJaSPJO94Xb2RImfv+xZaUW8UPx7kvZlUyMlbJUaCV5WPpRUK3sJRPzfefS ++P7Lyx2boWeciSdd3Zf0ZNOQ/nl7z48/TAx4qt+3lPic097En3NMNBL6JAdZ +pH4Nk5//FlDGbI2y9DMkrxOm6Q1LFJVR+ZX7rCTJ8x3HF4SxbZWxbO9kaH4q +DexbRbkXLihjcMAxmzexNHxk3MqxuayMUksXaNUeIud7oTB7LEcZk19193AP +kvsyviDTpVAZv2vaP02KIfXrmZshcl8Zr87l7JOLpEF9wbnUo93K6Kji7/hx +F6kH35i4CC0WSqo7KNeR+7SsNSpWRZ+FpsasllBy37o57D/UasTCmQbXMNkN +NKQZ7TtgACw8+yIoItiNBmGh0P2DzixM4W55PriOhvmVW8ICI1n4RfBScLoV +DSNiDn4etSy83jogHKRJQ9tO5ut/GljIn/FtkqtO6qP+D8S+YGFFgsn532o0 +pEbfUrrxnoWBZc2DcSwa9HqEuqb6WWjgaYQRCjSE0K82ZYmr4LUZj7AxERr6 +ndy9e7epYEVWSpXdMBd6T/h57Fmkiq4irLTUIi6E9Gsx9YRUsfF5RVrkTS5M +2k39/CmqigM7mtt8bpD3G19aYrCsKs7OrzJl5nNBL6rurp+2KqqcEtyZcZkL +BwNUxZ1cVVG6fkGsYQp5z5kPvNLMUcV5718/0yTvwdVDkau/Gath467Zi34y +5D22lX/v3djlmK7oYiL9qJj8T0jxJtWq49WCcE19tdsg9lL1FHdIAx8tvzlr +f/IWyCeXrDc21kL1Zefq1lYVQoamqah4kDa6DInf95y6Dk2yFkajZ3TwpZ3Z +aS12AZjJ16bqvtfFb+FJ4bVe+SDClxfun6CHj8a1b3Xm5oFivBJ7o6o+KnVZ +tnBf5YKAik+5S4M+lnSZ5wcaZoMOR6YkcpMBhrnkrUrTuAx7OsXqHHgMUXRe +h1f20gwYGj3hvjrDEFn29ax43/Ngp1t/abX2CrSPei8rOJAGD0dXTU82r0Dr +91Li6jGpEKJl0PEmwAjFdBzXrXhzAjiD21o3Chij5XgNV6IuGWxY0muF84xx +t4P432jfRFgel7K/1sQEo1Kllz0LSgCNANNHKh0m+M0macG0YiwEPNx+5O7u +lRhu37DmU0Q0PMpt3TYiYYpZ3mtS48QiYOzG3KRuhSlebo3vK/fZA1tVbglc +WmuGjwPYGnZPQ2BE46xx6bAZJmaZRX62CIZ7+dPd48mrcPyxePKib9vAy1oZ +VymykUezZrDWyh/+tvKL1DHYKPQux3CtkT/kBgx+dFBm4y5LZ94eVX/4frQy +0ms5GzfXx7M0Bf1hT6NTSZQBGz3n5l6ZvfGDlHUHFO/ZstFt5mewg78fVHm+ +m1kRysasOvVrPGK+ILcrqVKnho2sy6ZWk/3ecGou0Oh4LRtp+qboyVZv4E2z +pX88YWN6d/QNg4fe0F++oDC3kYyf81bs9hlvqOI5kiHWwkarYc/WTabe4HUu +LnLiGxv5WVMq1497QUZ1lNHDxRz0LnE/d2nVRpAQ3Emv3cDBwKTWDPkGD8i3 +Ohg9vJGDfEHmCQalHmBw8JTVWR8O5uxatG1jlgesG+a+a/Pn4OjSsZ72vR5w +9P341NadHCy6JnY6n/KA33mxltHxHLSV/XPPI84dOladbSm4xcHzoocMv6x2 +g+378jNXF3NwWXb4tjljN5goLgsY4HIwz++vug7LDcSYbZP65RycXHfXrmrW +FdbwK8g/qOHgc50dV47fdYX7rQXbWt5xkCOlfFBA2RUcRO5pR7Rx0HXtmgn5 +pa7QZtc4If2Rgwe/annBnAuMVf2bvPkLmf+M3z3uRxfQvqJ3+3/9HHyslHbL ++rwL3O+wiDjxk4POFts3NB92AYdlrqA7zEE4LXg5cI8LBCbtexM+zsGTzVdq +ap3IeDVHL0n95mAjv9ypo+YukPAnfWvVHw4mz21v8tR2AdEVhVqb/nJwrbD3 +DlN5F8jeVTU+N8fBgZangcsXu8D/ASOGfVo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06929509976676995}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06929509976676995}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993912871634519*^9}, + CellLabel-> + "Out[493]=",ExpressionUUID->"68b840fc-72a0-420c-af81-4afa3a3ac549"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ -ef47-aa8c-99f282e3d6d3"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[494]:=",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV12k4lV0XB3DRgJDIPJ37OMg8hegca5klJWNCoUKeCpUIlaFEmqSBypSk +lDi3QmgQRVQaqFARqbweGTIl4t3Pp/v6fdn72nuv9d/7praEugTw8vDwCMzj +4fnvO9HZ+IR1PN+81O/UYw91C/PWbOkoi7YE0N2R4i95QAlQ4tUW6bY0iDxe +sL45Rhci1t/8wNeWB5T2pFN2DMDSQam0qQ+loCcpGuoR4wRd99eFjn2ohaYr +zjx7o33BltX/eeTDW1iZJJjCFxkKUx9Mzg9/6AE584W7PINjoc7qev6bvFFY +u2/nY13zVJDvqvy+ResvTGk/pH63pcOynb43F1nxocKNNo3MmWxI07etXufO +jxUzUN/NvArtGXo1I6LCuHe8/GeHbQEcz499xSuzFE8tujPc7lUIUue+Hjub +JY6BHVrmanxFIK1ZduR3gTjyMaPHPIWKQLb2aOwmrjjuKX9gnihRBIrD6vvU +6sTRbTY+5aVaEag4hvlV94mj48iHTnnHIjCc/9f4q+EynI0wji07WwRO4ZK9 +Bk3L0H+/jmKD4m1Icltt/nZCAuNMBE8asYpB9m6zLO88SXRuiThepFUMxeJu +k/qLJdEl3qVH3qgY3r/dzD2jJInu3gXn/2dTDCzncKazvSQuL9ozZRBUDLVr +cxa+viiJk3Eqo0duFMNf2/Hml2wpdGtiyzJUSyC1IPrWX1sp7A26nVKjXQKs +hTzJ2s5SWCqbb+ZlVAKOTwUtTgZI4T3/Gx5R1iVwyYpxx/GUFHJyDUMCt5TA +SlyT/rxLCjfJ7M6cziyBvaZXfBsTpFHfg2WetJALDrkiY2tOSGP9BUtfWoAL +zEUHkpvPS6PbXGJymxAXXrd60C03pPFBz/gvBXEu6IQJ8XU2S+Oei3PKiUpc +6CuILPglK4OBSz9+fmLCBZ9l637K3ZHBBRcqpQUCuWAYUx2ffV8Geyw8RFq3 +c0GwZ7kkVS+DrJmLApk7uFBZwgeq7TI4upt3qfJuLkiuqUzVm5PB7ivTW4QP +kPnjWSts1shik8Q5cdczXLAe+hMd8lUWF8+LeZdXyYUo+3MajwdkUWnIbhPv +fS4UX9HuEJ+QxTaJEAHfh1yQdvMzreSXw4UL5F8tqePCwL2nk3w6cshOPSLm +9IILZxNSwy/ul8PFks6p1p1c6JFQDXkiLI/G6W52Qjw0SIU+UpCSkseElS/S +RHlpcHzm+TKYIY/Ck88Xis2noTz6uNYSQ3ksLlIIFuKnIaVruH+jpzya8DnI +dy2hwaCwOmgoTx4VUu2CZxRpiGc7+8uuVMDUkVx16VU02G/O/mViqYCFObmz +39g0iMT9e9jdUQEf/Nt4mGtOQ2ZdYkGqnwKeWMubu8qShnsOVf8uPKaAsy8o +DY3VNAx7KkeMtivg6xzN9u0eNFREhy1a2quAQjMan+d50nAo80GGzqACarN2 +padvpEHoy4bqYF5FtLHdqlfpQ4Na0AmeLxqKeDhkeK51Cw2b942nvIhRROeq +jMjQEBpU0i3l+xMVsenlLfHWUJrs3+nbi1IV8W2LzC6j3TREz6i/tsxXROvJ +wY2De2k4f3izROULRWwOEVY3jaLhxZmGnGsKSvjLqkbI8DANZ+8s069TU8Lm +0xWVW4/Q4PXOv/aLvhLeE5LVOpNIQ5/0TK+crRJ6fLPZ2pNEA1+unkZaiBJm +5uzR2HyCBrPii3cPPVJCAd7pjOpzNFh/aP47+EwJ54ZbFtw4T8M6nvl2vm+V +0L3tzc0zF2jY6hLSDt+UsOeYRo5PBg22MVRs3AIG/m2dNH9zmYYwpYmrFpoM +fOJ4uMkoj4bxO6nPpnQZmDsxNTZOHG2v+ZNewUD+ikzfO1dpSNztZ8w0Z6B6 +X+ykyjUaLtU1PeN1ZmC38znsv07Dk6Ccn3URDAw0+sgdKqJh9Yyp2IEYBmZz +dikeuU1Dc2qr8Yo4Bt6+87lVopiG9kqBuPxjDFTxzlLUL6FhcHG4WGImA5Wq +zxrZ0TTszRUx4VxhoMhL0T9PiX+vKPQev8ZAny4+IctSsj+bO/MDShgYMHBV +1uAODdJcexPbWgYWe3mMjtylIcv6q/dsPQNdiwVWeJfRwGw/GFf+nIG/9Ufr +HxNr895pVH3HwKGnrd+OltNQemHtYGc7A9v85+/9RrxSs08svZOBOtbtbhYV +NFi6Kfgs6mOg4KM+6RHihr6KuEcDDNz91nfG+h7pj4Mu1yJHGGhNjRtfIN5Q +kDT44w8DG6g/d/Qqadj5eyTumTCFM8eFu2yqyHnuDpT8LkZh+uqL9DFi/v6O +W3zSFB6Mpv5pIr72se69OZPCebMhqZbVNIS7rdzpo0ahj1XHXBSx5cuiedFa +FG74ctKzmLjz4XmtMmMKF/ArNwrfp6HIRLD27SoKqSV0z0riaO6hDcNIYUzA +lz4/Ynv10QFhWwovOB37lEgsmReUoLmGQu0vRx5eJ+6V/SS1ej2FxZNFp+uJ +S8+uvx3oTuEZq0/re4jjhJ5aHvGisIEzyDtN7JRo2nbFl0I1rUcFog9oUJy9 +vevRNgqfKGlxlIkHIph8n4Mp3Dom1mBAXDV0IeNPCIWfnFxsgDh5+2Id6XAK +46803rMn9uiOrTOKojCO2sh0ImZ5jXm6HqLQ83V3ggvxr7fbB8MOU7g8wubj +f65Z8/nwqWQKmXmBWuuJTz1xlik6SeF44fJIB2IfTn1xYxrZj8LQ+xbEGuVm +1j/SKdwZx/hrRDylU9I+P4tCi3cMMzXiZ9eVQ5l5FIou3RAuQXyBkTEfr1NY +4XeziId420WhS5uKKPx6h7e3j6zfQCxeN4amMPq+vVwzMc/x8ScZ5RT+/hng +yiVu5vvHq7yawrcHrE+eJs480DnUUkPWv+lV4w7iHeMuiSNPKbxp80vAhtgs +pEF2yXMKR69fXCdHzP9jFVfrNYXT5aUZg+S889tYH4M6KGRs/IUniPc4XwxL +7KKwhW8y14MYm4QXXu2lkHVMXVCR+HP1hF7nIIUd2z5NXyX1VbRiR/30KIWO +xXh0C3H07S5vmSkKdSsuKSgSS+Y8O+rGx0Tj3rmIE6R+e6U48nv4mThbO2YG +xKWpNH1amInwrnTJEKl3p4RLn5qkmNjdGzBkQ5wcsNPAQouJWcnNea9JP3l0 +fmnYrM/Em+06/DuJWRvcNx0wZuKUK3V0PnGNvXlyBTIRjxS/0iL9OaUp2qnt +zsSxy1plXqS/J7Jk4w29mDix+4Z1N+n/sSUqLFNfJpYvXLckgHhw1PQf62Am +vnD/vnEbyYue6q0TXgeZ+IGr0GVB8qVLO+SiXwITk83LtpSS/PmUs58dmMTE +/jBVdQbx+8MnE3afYaKLZ1TCKMmvpjUVIsnXyHrmsROibpJ+f/CYPnmTidM4 +adJaSPJO94Xb2RImfv+xZaUW8UPx7kvZlUyMlbJUaCV5WPpRUK3sJRPzfefS ++P7Lyx2boWeciSdd3Zf0ZNOQ/nl7z48/TAx4qt+3lPic097En3NMNBL6JAdZ +pH4Nk5//FlDGbI2y9DMkrxOm6Q1LFJVR+ZX7rCTJ8x3HF4SxbZWxbO9kaH4q +DexbRbkXLihjcMAxmzexNHxk3MqxuayMUksXaNUeIud7oTB7LEcZk19193AP +kvsyviDTpVAZv2vaP02KIfXrmZshcl8Zr87l7JOLpEF9wbnUo93K6Kji7/hx +F6kH35i4CC0WSqo7KNeR+7SsNSpWRZ+FpsasllBy37o57D/UasTCmQbXMNkN +NKQZ7TtgACw8+yIoItiNBmGh0P2DzixM4W55PriOhvmVW8ICI1n4RfBScLoV +DSNiDn4etSy83jogHKRJQ9tO5ut/GljIn/FtkqtO6qP+D8S+YGFFgsn532o0 +pEbfUrrxnoWBZc2DcSwa9HqEuqb6WWjgaYQRCjSE0K82ZYmr4LUZj7AxERr6 +ndy9e7epYEVWSpXdMBd6T/h57Fmkiq4irLTUIi6E9Gsx9YRUsfF5RVrkTS5M +2k39/CmqigM7mtt8bpD3G19aYrCsKs7OrzJl5nNBL6rurp+2KqqcEtyZcZkL +BwNUxZ1cVVG6fkGsYQp5z5kPvNLMUcV5718/0yTvwdVDkau/Gath467Zi34y +5D22lX/v3djlmK7oYiL9qJj8T0jxJtWq49WCcE19tdsg9lL1FHdIAx8tvzlr +f/IWyCeXrDc21kL1Zefq1lYVQoamqah4kDa6DInf95y6Dk2yFkajZ3TwpZ3Z +aS12AZjJ16bqvtfFb+FJ4bVe+SDClxfun6CHj8a1b3Xm5oFivBJ7o6o+KnVZ +tnBf5YKAik+5S4M+lnSZ5wcaZoMOR6YkcpMBhrnkrUrTuAx7OsXqHHgMUXRe +h1f20gwYGj3hvjrDEFn29ax43/Ngp1t/abX2CrSPei8rOJAGD0dXTU82r0Dr +91Li6jGpEKJl0PEmwAjFdBzXrXhzAjiD21o3Chij5XgNV6IuGWxY0muF84xx +t4P432jfRFgel7K/1sQEo1Kllz0LSgCNANNHKh0m+M0macG0YiwEPNx+5O7u +lRhu37DmU0Q0PMpt3TYiYYpZ3mtS48QiYOzG3KRuhSlebo3vK/fZA1tVbglc +WmuGjwPYGnZPQ2BE46xx6bAZJmaZRX62CIZ7+dPd48mrcPyxePKib9vAy1oZ +VymykUezZrDWyh/+tvKL1DHYKPQux3CtkT/kBgx+dFBm4y5LZ94eVX/4frQy +0ms5GzfXx7M0Bf1hT6NTSZQBGz3n5l6ZvfGDlHUHFO/ZstFt5mewg78fVHm+ +m1kRysasOvVrPGK+ILcrqVKnho2sy6ZWk/3ecGou0Oh4LRtp+qboyVZv4E2z +pX88YWN6d/QNg4fe0F++oDC3kYyf81bs9hlvqOI5kiHWwkarYc/WTabe4HUu +LnLiGxv5WVMq1497QUZ1lNHDxRz0LnE/d2nVRpAQ3Emv3cDBwKTWDPkGD8i3 +Ohg9vJGDfEHmCQalHmBw8JTVWR8O5uxatG1jlgesG+a+a/Pn4OjSsZ72vR5w +9P341NadHCy6JnY6n/KA33mxltHxHLSV/XPPI84dOladbSm4xcHzoocMv6x2 +g+378jNXF3NwWXb4tjljN5goLgsY4HIwz++vug7LDcSYbZP65RycXHfXrmrW +FdbwK8g/qOHgc50dV47fdYX7rQXbWt5xkCOlfFBA2RUcRO5pR7Rx0HXtmgn5 +pa7QZtc4If2Rgwe/annBnAuMVf2bvPkLmf+M3z3uRxfQvqJ3+3/9HHyslHbL ++rwL3O+wiDjxk4POFts3NB92AYdlrqA7zEE4LXg5cI8LBCbtexM+zsGTzVdq +ap3IeDVHL0n95mAjv9ypo+YukPAnfWvVHw4mz21v8tR2AdEVhVqb/nJwrbD3 +DlN5F8jeVTU+N8fBgZangcsXu8D/ASOGfVo= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12k4lV0XB3DRgJDIPJ37OMg8hegca5klJWNCoUKeCpUIlaFEmqSBypSk +lDi3QmgQRVQaqFARqbweGTIl4t3Pp/v6fdn72nuv9d/7praEugTw8vDwCMzj +4fnvO9HZ+IR1PN+81O/UYw91C/PWbOkoi7YE0N2R4i95QAlQ4tUW6bY0iDxe +sL45Rhci1t/8wNeWB5T2pFN2DMDSQam0qQ+loCcpGuoR4wRd99eFjn2ohaYr +zjx7o33BltX/eeTDW1iZJJjCFxkKUx9Mzg9/6AE584W7PINjoc7qev6bvFFY +u2/nY13zVJDvqvy+ResvTGk/pH63pcOynb43F1nxocKNNo3MmWxI07etXufO +jxUzUN/NvArtGXo1I6LCuHe8/GeHbQEcz499xSuzFE8tujPc7lUIUue+Hjub +JY6BHVrmanxFIK1ZduR3gTjyMaPHPIWKQLb2aOwmrjjuKX9gnihRBIrD6vvU +6sTRbTY+5aVaEag4hvlV94mj48iHTnnHIjCc/9f4q+EynI0wji07WwRO4ZK9 +Bk3L0H+/jmKD4m1Icltt/nZCAuNMBE8asYpB9m6zLO88SXRuiThepFUMxeJu +k/qLJdEl3qVH3qgY3r/dzD2jJInu3gXn/2dTDCzncKazvSQuL9ozZRBUDLVr +cxa+viiJk3Eqo0duFMNf2/Hml2wpdGtiyzJUSyC1IPrWX1sp7A26nVKjXQKs +hTzJ2s5SWCqbb+ZlVAKOTwUtTgZI4T3/Gx5R1iVwyYpxx/GUFHJyDUMCt5TA +SlyT/rxLCjfJ7M6cziyBvaZXfBsTpFHfg2WetJALDrkiY2tOSGP9BUtfWoAL +zEUHkpvPS6PbXGJymxAXXrd60C03pPFBz/gvBXEu6IQJ8XU2S+Oei3PKiUpc +6CuILPglK4OBSz9+fmLCBZ9l637K3ZHBBRcqpQUCuWAYUx2ffV8Geyw8RFq3 +c0GwZ7kkVS+DrJmLApk7uFBZwgeq7TI4upt3qfJuLkiuqUzVm5PB7ivTW4QP +kPnjWSts1shik8Q5cdczXLAe+hMd8lUWF8+LeZdXyYUo+3MajwdkUWnIbhPv +fS4UX9HuEJ+QxTaJEAHfh1yQdvMzreSXw4UL5F8tqePCwL2nk3w6cshOPSLm +9IILZxNSwy/ul8PFks6p1p1c6JFQDXkiLI/G6W52Qjw0SIU+UpCSkseElS/S +RHlpcHzm+TKYIY/Ck88Xis2noTz6uNYSQ3ksLlIIFuKnIaVruH+jpzya8DnI +dy2hwaCwOmgoTx4VUu2CZxRpiGc7+8uuVMDUkVx16VU02G/O/mViqYCFObmz +39g0iMT9e9jdUQEf/Nt4mGtOQ2ZdYkGqnwKeWMubu8qShnsOVf8uPKaAsy8o +DY3VNAx7KkeMtivg6xzN9u0eNFREhy1a2quAQjMan+d50nAo80GGzqACarN2 +padvpEHoy4bqYF5FtLHdqlfpQ4Na0AmeLxqKeDhkeK51Cw2b942nvIhRROeq +jMjQEBpU0i3l+xMVsenlLfHWUJrs3+nbi1IV8W2LzC6j3TREz6i/tsxXROvJ +wY2De2k4f3izROULRWwOEVY3jaLhxZmGnGsKSvjLqkbI8DANZ+8s069TU8Lm +0xWVW4/Q4PXOv/aLvhLeE5LVOpNIQ5/0TK+crRJ6fLPZ2pNEA1+unkZaiBJm +5uzR2HyCBrPii3cPPVJCAd7pjOpzNFh/aP47+EwJ54ZbFtw4T8M6nvl2vm+V +0L3tzc0zF2jY6hLSDt+UsOeYRo5PBg22MVRs3AIG/m2dNH9zmYYwpYmrFpoM +fOJ4uMkoj4bxO6nPpnQZmDsxNTZOHG2v+ZNewUD+ikzfO1dpSNztZ8w0Z6B6 +X+ykyjUaLtU1PeN1ZmC38znsv07Dk6Ccn3URDAw0+sgdKqJh9Yyp2IEYBmZz +dikeuU1Dc2qr8Yo4Bt6+87lVopiG9kqBuPxjDFTxzlLUL6FhcHG4WGImA5Wq +zxrZ0TTszRUx4VxhoMhL0T9PiX+vKPQev8ZAny4+IctSsj+bO/MDShgYMHBV +1uAODdJcexPbWgYWe3mMjtylIcv6q/dsPQNdiwVWeJfRwGw/GFf+nIG/9Ufr +HxNr895pVH3HwKGnrd+OltNQemHtYGc7A9v85+/9RrxSs08svZOBOtbtbhYV +NFi6Kfgs6mOg4KM+6RHihr6KuEcDDNz91nfG+h7pj4Mu1yJHGGhNjRtfIN5Q +kDT44w8DG6g/d/Qqadj5eyTumTCFM8eFu2yqyHnuDpT8LkZh+uqL9DFi/v6O +W3zSFB6Mpv5pIr72se69OZPCebMhqZbVNIS7rdzpo0ahj1XHXBSx5cuiedFa +FG74ctKzmLjz4XmtMmMKF/ArNwrfp6HIRLD27SoKqSV0z0riaO6hDcNIYUzA +lz4/Ynv10QFhWwovOB37lEgsmReUoLmGQu0vRx5eJ+6V/SS1ej2FxZNFp+uJ +S8+uvx3oTuEZq0/re4jjhJ5aHvGisIEzyDtN7JRo2nbFl0I1rUcFog9oUJy9 +vevRNgqfKGlxlIkHIph8n4Mp3Dom1mBAXDV0IeNPCIWfnFxsgDh5+2Id6XAK +46803rMn9uiOrTOKojCO2sh0ImZ5jXm6HqLQ83V3ggvxr7fbB8MOU7g8wubj +f65Z8/nwqWQKmXmBWuuJTz1xlik6SeF44fJIB2IfTn1xYxrZj8LQ+xbEGuVm +1j/SKdwZx/hrRDylU9I+P4tCi3cMMzXiZ9eVQ5l5FIou3RAuQXyBkTEfr1NY +4XeziId420WhS5uKKPx6h7e3j6zfQCxeN4amMPq+vVwzMc/x8ScZ5RT+/hng +yiVu5vvHq7yawrcHrE+eJs480DnUUkPWv+lV4w7iHeMuiSNPKbxp80vAhtgs +pEF2yXMKR69fXCdHzP9jFVfrNYXT5aUZg+S889tYH4M6KGRs/IUniPc4XwxL +7KKwhW8y14MYm4QXXu2lkHVMXVCR+HP1hF7nIIUd2z5NXyX1VbRiR/30KIWO +xXh0C3H07S5vmSkKdSsuKSgSS+Y8O+rGx0Tj3rmIE6R+e6U48nv4mThbO2YG +xKWpNH1amInwrnTJEKl3p4RLn5qkmNjdGzBkQ5wcsNPAQouJWcnNea9JP3l0 +fmnYrM/Em+06/DuJWRvcNx0wZuKUK3V0PnGNvXlyBTIRjxS/0iL9OaUp2qnt +zsSxy1plXqS/J7Jk4w29mDix+4Z1N+n/sSUqLFNfJpYvXLckgHhw1PQf62Am +vnD/vnEbyYue6q0TXgeZ+IGr0GVB8qVLO+SiXwITk83LtpSS/PmUs58dmMTE +/jBVdQbx+8MnE3afYaKLZ1TCKMmvpjUVIsnXyHrmsROibpJ+f/CYPnmTidM4 +adJaSPJO94Xb2RImfv+xZaUW8UPx7kvZlUyMlbJUaCV5WPpRUK3sJRPzfefS ++P7Lyx2boWeciSdd3Zf0ZNOQ/nl7z48/TAx4qt+3lPic097En3NMNBL6JAdZ +pH4Nk5//FlDGbI2y9DMkrxOm6Q1LFJVR+ZX7rCTJ8x3HF4SxbZWxbO9kaH4q +DexbRbkXLihjcMAxmzexNHxk3MqxuayMUksXaNUeIud7oTB7LEcZk19193AP +kvsyviDTpVAZv2vaP02KIfXrmZshcl8Zr87l7JOLpEF9wbnUo93K6Kji7/hx +F6kH35i4CC0WSqo7KNeR+7SsNSpWRZ+FpsasllBy37o57D/UasTCmQbXMNkN +NKQZ7TtgACw8+yIoItiNBmGh0P2DzixM4W55PriOhvmVW8ICI1n4RfBScLoV +DSNiDn4etSy83jogHKRJQ9tO5ut/GljIn/FtkqtO6qP+D8S+YGFFgsn532o0 +pEbfUrrxnoWBZc2DcSwa9HqEuqb6WWjgaYQRCjSE0K82ZYmr4LUZj7AxERr6 +ndy9e7epYEVWSpXdMBd6T/h57Fmkiq4irLTUIi6E9Gsx9YRUsfF5RVrkTS5M +2k39/CmqigM7mtt8bpD3G19aYrCsKs7OrzJl5nNBL6rurp+2KqqcEtyZcZkL +BwNUxZ1cVVG6fkGsYQp5z5kPvNLMUcV5718/0yTvwdVDkau/Gath467Zi34y +5D22lX/v3djlmK7oYiL9qJj8T0jxJtWq49WCcE19tdsg9lL1FHdIAx8tvzlr +f/IWyCeXrDc21kL1Zefq1lYVQoamqah4kDa6DInf95y6Dk2yFkajZ3TwpZ3Z +aS12AZjJ16bqvtfFb+FJ4bVe+SDClxfun6CHj8a1b3Xm5oFivBJ7o6o+KnVZ +tnBf5YKAik+5S4M+lnSZ5wcaZoMOR6YkcpMBhrnkrUrTuAx7OsXqHHgMUXRe +h1f20gwYGj3hvjrDEFn29ax43/Ngp1t/abX2CrSPei8rOJAGD0dXTU82r0Dr +91Li6jGpEKJl0PEmwAjFdBzXrXhzAjiD21o3Chij5XgNV6IuGWxY0muF84xx +t4P432jfRFgel7K/1sQEo1Kllz0LSgCNANNHKh0m+M0macG0YiwEPNx+5O7u +lRhu37DmU0Q0PMpt3TYiYYpZ3mtS48QiYOzG3KRuhSlebo3vK/fZA1tVbglc +WmuGjwPYGnZPQ2BE46xx6bAZJmaZRX62CIZ7+dPd48mrcPyxePKib9vAy1oZ +VymykUezZrDWyh/+tvKL1DHYKPQux3CtkT/kBgx+dFBm4y5LZ94eVX/4frQy +0ms5GzfXx7M0Bf1hT6NTSZQBGz3n5l6ZvfGDlHUHFO/ZstFt5mewg78fVHm+ +m1kRysasOvVrPGK+ILcrqVKnho2sy6ZWk/3ecGou0Oh4LRtp+qboyVZv4E2z +pX88YWN6d/QNg4fe0F++oDC3kYyf81bs9hlvqOI5kiHWwkarYc/WTabe4HUu +LnLiGxv5WVMq1497QUZ1lNHDxRz0LnE/d2nVRpAQ3Emv3cDBwKTWDPkGD8i3 +Ohg9vJGDfEHmCQalHmBw8JTVWR8O5uxatG1jlgesG+a+a/Pn4OjSsZ72vR5w +9P341NadHCy6JnY6n/KA33mxltHxHLSV/XPPI84dOladbSm4xcHzoocMv6x2 +g+378jNXF3NwWXb4tjljN5goLgsY4HIwz++vug7LDcSYbZP65RycXHfXrmrW +FdbwK8g/qOHgc50dV47fdYX7rQXbWt5xkCOlfFBA2RUcRO5pR7Rx0HXtmgn5 +pa7QZtc4If2Rgwe/annBnAuMVf2bvPkLmf+M3z3uRxfQvqJ3+3/9HHyslHbL ++rwL3O+wiDjxk4POFts3NB92AYdlrqA7zEE4LXg5cI8LBCbtexM+zsGTzVdq +ap3IeDVHL0n95mAjv9ypo+YukPAnfWvVHw4mz21v8tR2AdEVhVqb/nJwrbD3 +DlN5F8jeVTU+N8fBgZangcsXu8D/ASOGfVo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06929509976676995}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06929509976676995}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12k4lV0XB3DRgJDIPJ37OMg8hegca5klJWNCoUKeCpUIlaFEmqSBypSk +lDi3QmgQRVQaqFARqbweGTIl4t3Pp/v6fdn72nuv9d/7praEugTw8vDwCMzj +4fnvO9HZ+IR1PN+81O/UYw91C/PWbOkoi7YE0N2R4i95QAlQ4tUW6bY0iDxe +sL45Rhci1t/8wNeWB5T2pFN2DMDSQam0qQ+loCcpGuoR4wRd99eFjn2ohaYr +zjx7o33BltX/eeTDW1iZJJjCFxkKUx9Mzg9/6AE584W7PINjoc7qev6bvFFY +u2/nY13zVJDvqvy+ResvTGk/pH63pcOynb43F1nxocKNNo3MmWxI07etXufO +jxUzUN/NvArtGXo1I6LCuHe8/GeHbQEcz499xSuzFE8tujPc7lUIUue+Hjub +JY6BHVrmanxFIK1ZduR3gTjyMaPHPIWKQLb2aOwmrjjuKX9gnihRBIrD6vvU +6sTRbTY+5aVaEag4hvlV94mj48iHTnnHIjCc/9f4q+EynI0wji07WwRO4ZK9 +Bk3L0H+/jmKD4m1Icltt/nZCAuNMBE8asYpB9m6zLO88SXRuiThepFUMxeJu +k/qLJdEl3qVH3qgY3r/dzD2jJInu3gXn/2dTDCzncKazvSQuL9ozZRBUDLVr +cxa+viiJk3Eqo0duFMNf2/Hml2wpdGtiyzJUSyC1IPrWX1sp7A26nVKjXQKs +hTzJ2s5SWCqbb+ZlVAKOTwUtTgZI4T3/Gx5R1iVwyYpxx/GUFHJyDUMCt5TA +SlyT/rxLCjfJ7M6cziyBvaZXfBsTpFHfg2WetJALDrkiY2tOSGP9BUtfWoAL +zEUHkpvPS6PbXGJymxAXXrd60C03pPFBz/gvBXEu6IQJ8XU2S+Oei3PKiUpc +6CuILPglK4OBSz9+fmLCBZ9l637K3ZHBBRcqpQUCuWAYUx2ffV8Geyw8RFq3 +c0GwZ7kkVS+DrJmLApk7uFBZwgeq7TI4upt3qfJuLkiuqUzVm5PB7ivTW4QP +kPnjWSts1shik8Q5cdczXLAe+hMd8lUWF8+LeZdXyYUo+3MajwdkUWnIbhPv +fS4UX9HuEJ+QxTaJEAHfh1yQdvMzreSXw4UL5F8tqePCwL2nk3w6cshOPSLm +9IILZxNSwy/ul8PFks6p1p1c6JFQDXkiLI/G6W52Qjw0SIU+UpCSkseElS/S +RHlpcHzm+TKYIY/Ck88Xis2noTz6uNYSQ3ksLlIIFuKnIaVruH+jpzya8DnI +dy2hwaCwOmgoTx4VUu2CZxRpiGc7+8uuVMDUkVx16VU02G/O/mViqYCFObmz +39g0iMT9e9jdUQEf/Nt4mGtOQ2ZdYkGqnwKeWMubu8qShnsOVf8uPKaAsy8o +DY3VNAx7KkeMtivg6xzN9u0eNFREhy1a2quAQjMan+d50nAo80GGzqACarN2 +padvpEHoy4bqYF5FtLHdqlfpQ4Na0AmeLxqKeDhkeK51Cw2b942nvIhRROeq +jMjQEBpU0i3l+xMVsenlLfHWUJrs3+nbi1IV8W2LzC6j3TREz6i/tsxXROvJ +wY2De2k4f3izROULRWwOEVY3jaLhxZmGnGsKSvjLqkbI8DANZ+8s069TU8Lm +0xWVW4/Q4PXOv/aLvhLeE5LVOpNIQ5/0TK+crRJ6fLPZ2pNEA1+unkZaiBJm +5uzR2HyCBrPii3cPPVJCAd7pjOpzNFh/aP47+EwJ54ZbFtw4T8M6nvl2vm+V +0L3tzc0zF2jY6hLSDt+UsOeYRo5PBg22MVRs3AIG/m2dNH9zmYYwpYmrFpoM +fOJ4uMkoj4bxO6nPpnQZmDsxNTZOHG2v+ZNewUD+ikzfO1dpSNztZ8w0Z6B6 +X+ykyjUaLtU1PeN1ZmC38znsv07Dk6Ccn3URDAw0+sgdKqJh9Yyp2IEYBmZz +dikeuU1Dc2qr8Yo4Bt6+87lVopiG9kqBuPxjDFTxzlLUL6FhcHG4WGImA5Wq +zxrZ0TTszRUx4VxhoMhL0T9PiX+vKPQev8ZAny4+IctSsj+bO/MDShgYMHBV +1uAODdJcexPbWgYWe3mMjtylIcv6q/dsPQNdiwVWeJfRwGw/GFf+nIG/9Ufr +HxNr895pVH3HwKGnrd+OltNQemHtYGc7A9v85+/9RrxSs08svZOBOtbtbhYV +NFi6Kfgs6mOg4KM+6RHihr6KuEcDDNz91nfG+h7pj4Mu1yJHGGhNjRtfIN5Q +kDT44w8DG6g/d/Qqadj5eyTumTCFM8eFu2yqyHnuDpT8LkZh+uqL9DFi/v6O +W3zSFB6Mpv5pIr72se69OZPCebMhqZbVNIS7rdzpo0ahj1XHXBSx5cuiedFa +FG74ctKzmLjz4XmtMmMKF/ArNwrfp6HIRLD27SoKqSV0z0riaO6hDcNIYUzA +lz4/Ynv10QFhWwovOB37lEgsmReUoLmGQu0vRx5eJ+6V/SS1ej2FxZNFp+uJ +S8+uvx3oTuEZq0/re4jjhJ5aHvGisIEzyDtN7JRo2nbFl0I1rUcFog9oUJy9 +vevRNgqfKGlxlIkHIph8n4Mp3Dom1mBAXDV0IeNPCIWfnFxsgDh5+2Id6XAK +46803rMn9uiOrTOKojCO2sh0ImZ5jXm6HqLQ83V3ggvxr7fbB8MOU7g8wubj +f65Z8/nwqWQKmXmBWuuJTz1xlik6SeF44fJIB2IfTn1xYxrZj8LQ+xbEGuVm +1j/SKdwZx/hrRDylU9I+P4tCi3cMMzXiZ9eVQ5l5FIou3RAuQXyBkTEfr1NY +4XeziId420WhS5uKKPx6h7e3j6zfQCxeN4amMPq+vVwzMc/x8ScZ5RT+/hng +yiVu5vvHq7yawrcHrE+eJs480DnUUkPWv+lV4w7iHeMuiSNPKbxp80vAhtgs +pEF2yXMKR69fXCdHzP9jFVfrNYXT5aUZg+S889tYH4M6KGRs/IUniPc4XwxL +7KKwhW8y14MYm4QXXu2lkHVMXVCR+HP1hF7nIIUd2z5NXyX1VbRiR/30KIWO +xXh0C3H07S5vmSkKdSsuKSgSS+Y8O+rGx0Tj3rmIE6R+e6U48nv4mThbO2YG +xKWpNH1amInwrnTJEKl3p4RLn5qkmNjdGzBkQ5wcsNPAQouJWcnNea9JP3l0 +fmnYrM/Em+06/DuJWRvcNx0wZuKUK3V0PnGNvXlyBTIRjxS/0iL9OaUp2qnt +zsSxy1plXqS/J7Jk4w29mDix+4Z1N+n/sSUqLFNfJpYvXLckgHhw1PQf62Am +vnD/vnEbyYue6q0TXgeZ+IGr0GVB8qVLO+SiXwITk83LtpSS/PmUs58dmMTE +/jBVdQbx+8MnE3afYaKLZ1TCKMmvpjUVIsnXyHrmsROibpJ+f/CYPnmTidM4 +adJaSPJO94Xb2RImfv+xZaUW8UPx7kvZlUyMlbJUaCV5WPpRUK3sJRPzfefS ++P7Lyx2boWeciSdd3Zf0ZNOQ/nl7z48/TAx4qt+3lPic097En3NMNBL6JAdZ +pH4Nk5//FlDGbI2y9DMkrxOm6Q1LFJVR+ZX7rCTJ8x3HF4SxbZWxbO9kaH4q +DexbRbkXLihjcMAxmzexNHxk3MqxuayMUksXaNUeIud7oTB7LEcZk19193AP +kvsyviDTpVAZv2vaP02KIfXrmZshcl8Zr87l7JOLpEF9wbnUo93K6Kji7/hx +F6kH35i4CC0WSqo7KNeR+7SsNSpWRZ+FpsasllBy37o57D/UasTCmQbXMNkN +NKQZ7TtgACw8+yIoItiNBmGh0P2DzixM4W55PriOhvmVW8ICI1n4RfBScLoV +DSNiDn4etSy83jogHKRJQ9tO5ut/GljIn/FtkqtO6qP+D8S+YGFFgsn532o0 +pEbfUrrxnoWBZc2DcSwa9HqEuqb6WWjgaYQRCjSE0K82ZYmr4LUZj7AxERr6 +ndy9e7epYEVWSpXdMBd6T/h57Fmkiq4irLTUIi6E9Gsx9YRUsfF5RVrkTS5M +2k39/CmqigM7mtt8bpD3G19aYrCsKs7OrzJl5nNBL6rurp+2KqqcEtyZcZkL +BwNUxZ1cVVG6fkGsYQp5z5kPvNLMUcV5718/0yTvwdVDkau/Gath467Zi34y +5D22lX/v3djlmK7oYiL9qJj8T0jxJtWq49WCcE19tdsg9lL1FHdIAx8tvzlr +f/IWyCeXrDc21kL1Zefq1lYVQoamqah4kDa6DInf95y6Dk2yFkajZ3TwpZ3Z +aS12AZjJ16bqvtfFb+FJ4bVe+SDClxfun6CHj8a1b3Xm5oFivBJ7o6o+KnVZ +tnBf5YKAik+5S4M+lnSZ5wcaZoMOR6YkcpMBhrnkrUrTuAx7OsXqHHgMUXRe +h1f20gwYGj3hvjrDEFn29ax43/Ngp1t/abX2CrSPei8rOJAGD0dXTU82r0Dr +91Li6jGpEKJl0PEmwAjFdBzXrXhzAjiD21o3Chij5XgNV6IuGWxY0muF84xx +t4P432jfRFgel7K/1sQEo1Kllz0LSgCNANNHKh0m+M0macG0YiwEPNx+5O7u +lRhu37DmU0Q0PMpt3TYiYYpZ3mtS48QiYOzG3KRuhSlebo3vK/fZA1tVbglc +WmuGjwPYGnZPQ2BE46xx6bAZJmaZRX62CIZ7+dPd48mrcPyxePKib9vAy1oZ +VymykUezZrDWyh/+tvKL1DHYKPQux3CtkT/kBgx+dFBm4y5LZ94eVX/4frQy +0ms5GzfXx7M0Bf1hT6NTSZQBGz3n5l6ZvfGDlHUHFO/ZstFt5mewg78fVHm+ +m1kRysasOvVrPGK+ILcrqVKnho2sy6ZWk/3ecGou0Oh4LRtp+qboyVZv4E2z +pX88YWN6d/QNg4fe0F++oDC3kYyf81bs9hlvqOI5kiHWwkarYc/WTabe4HUu +LnLiGxv5WVMq1497QUZ1lNHDxRz0LnE/d2nVRpAQ3Emv3cDBwKTWDPkGD8i3 +Ohg9vJGDfEHmCQalHmBw8JTVWR8O5uxatG1jlgesG+a+a/Pn4OjSsZ72vR5w +9P341NadHCy6JnY6n/KA33mxltHxHLSV/XPPI84dOladbSm4xcHzoocMv6x2 +g+378jNXF3NwWXb4tjljN5goLgsY4HIwz++vug7LDcSYbZP65RycXHfXrmrW +FdbwK8g/qOHgc50dV47fdYX7rQXbWt5xkCOlfFBA2RUcRO5pR7Rx0HXtmgn5 +pa7QZtc4If2Rgwe/annBnAuMVf2bvPkLmf+M3z3uRxfQvqJ3+3/9HHyslHbL ++rwL3O+wiDjxk4POFts3NB92AYdlrqA7zEE4LXg5cI8LBCbtexM+zsGTzVdq +ap3IeDVHL0n95mAjv9ypo+YukPAnfWvVHw4mz21v8tR2AdEVhVqb/nJwrbD3 +DlN5F8jeVTU+N8fBgZangcsXu8D/ASOGfVo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06929509976676995}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06929509976676995}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993912871715796*^9}, + CellLabel-> + "Out[494]=",ExpressionUUID->"833d0481-fbaa-439a-9e62-d3f29c06f0ff"] +}, Open ]], Cell[CellGroupData[{ @@ -5684,66 +11968,76 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + "In[495]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 282, 273, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269930374*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2265417749209915`*^-168\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 495, 74, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.9939128717566557`*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +In[495]:=",ExpressionUUID->"16310b94-0d43-431a-ac4c-a56fdb4d58f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372699413757`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.085798647111027`*^-171\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 495, 75, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.993912871763949*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +In[495]:=",ExpressionUUID->"caab0c1a-7cea-4cb6-a50a-a4f7282092b5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269949375*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.612055016585798`*^-175\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 495, 76, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.993912871771645*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +In[495]:=",ExpressionUUID->"5b25ad31-1c01-4c69-802f-1526bf225ea4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372699573765`*^9}, +during this calculation.\"", 2, 495, 77, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.993912871780343*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +In[495]:=",ExpressionUUID->"35cde4ca-5a35-47f9-b289-f9fbcf61119e"], -Cell[BoxData["9.332200719005147`"], "Output", - CellChangeTimes->{3.9913372766841774`*^9}, +Cell[BoxData["10.666530087208022`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9, 3.993912920805209*^9}, CellLabel-> - "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] + "Out[495]=",ExpressionUUID->"09f8f960-c354-46a7-bbcf-f36d1bb76257"] }, Open ]], Cell[CellGroupData[{ @@ -5810,68 +12104,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494640512295`*^9, - 3.991849468375696*^9}},ExpressionUUID->"53e25fab-b431-cc42-a467-\ -e4dea0353ed0"], + CellChangeTimes->{{3.9918494640512295`*^9, 3.991849468375696*^9}}, + CellLabel-> + "In[496]:=",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 277, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767181473`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.589631272917083`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 496, 78, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.993912920858247*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +In[496]:=",ExpressionUUID->"4a34e78a-febf-4749-9df0-8525daf268da"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 278, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767281475`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.22497537122702`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 496, 79, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.993912920868288*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +In[496]:=",ExpressionUUID->"af10cc09-45c5-4f71-aceb-6f3b9d1b7088"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 279, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767351475`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0542183327581043`*^-216\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 496, 80, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.993912920875654*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +In[496]:=",ExpressionUUID->"2634b813-43a4-4f96-91e9-1f9775e13b7a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337276743145*^9}, +during this calculation.\"", 2, 496, 81, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.9939129208824453`*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +In[496]:=",ExpressionUUID->"fb0c5fd5-f417-4fab-9d12-e1f786eede7a"], -Cell[BoxData["0.5406905105605413`"], "Output", - CellChangeTimes->{3.991337284091696*^9}, +Cell[BoxData["1.14155461116925`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.993912928487941*^9}, CellLabel-> - "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] + "Out[496]=",ExpressionUUID->"f0bdb151-f39b-43c7-abbf-24dacdad6ba7"] }, Open ]], Cell[CellGroupData[{ @@ -5892,8 +12190,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5938,68 +12235,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494737320137`*^9, - 3.9918494774550457`*^9}},ExpressionUUID->"b18c819e-620a-d449-97d6-\ -547e3a6fa152"], + CellChangeTimes->{{3.9918494737320137`*^9, 3.9918494774550457`*^9}}, + CellLabel-> + "In[497]:=",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 281, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284131695*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.589631272917083`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 497, 82, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.9939129285331793`*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +In[497]:=",ExpressionUUID->"47f96900-0e63-42d2-bc59-8c419c52efca"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 282, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284142767*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.22497537122702`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 497, 83, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.993912928539587*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +In[497]:=",ExpressionUUID->"15153692-68b1-4f41-b260-1aff11fc6783"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 283, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284150778*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0542183327581043`*^-216\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 497, 84, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.993912928548094*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +In[497]:=",ExpressionUUID->"e42851c2-8a5f-4fe7-9125-20e6101a0067"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372841597614`*^9}, +during this calculation.\"", 2, 497, 85, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.993912928556826*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +In[497]:=",ExpressionUUID->"c59d4cd2-3d9d-4d62-9749-3dfb5e4fa1d0"], -Cell[BoxData["2.9943030245183917`"], "Output", - CellChangeTimes->{3.9913372907074146`*^9}, +Cell[BoxData["32.882416862191306`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.993912935551147*^9}, CellLabel-> - "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] + "Out[497]=",ExpressionUUID->"210467ae-044a-4b24-b088-766846f21d9d"] }, Open ]], Cell[CellGroupData[{ @@ -6020,8 +12321,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6066,68 +12366,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849482271084*^9, - 3.9918494852683945`*^9}},ExpressionUUID->"22ab74c7-5916-9440-9d7d-\ -c3e0f6ab8836"], + CellChangeTimes->{{3.991849482271084*^9, 3.9918494852683945`*^9}}, + CellLabel-> + "In[498]:=",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 285, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337290744484*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.589631272917083`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 498, 86, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993912935589964*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +In[498]:=",ExpressionUUID->"5201aa3b-46a6-4570-86f0-98ee412ed122"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 286, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337290753483*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.22497537122702`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 498, 87, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.9939129355974417`*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +In[498]:=",ExpressionUUID->"fd0107d4-074b-4515-9655-e1cc1cfc3830"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 287, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372907615204`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0542183327581043`*^-216\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 498, 88, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993912935605248*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +In[498]:=",ExpressionUUID->"de71bb8e-0d20-4b54-8182-c7150fc47e23"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133729076952*^9}, +during this calculation.\"", 2, 498, 89, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993912935612504*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +In[498]:=",ExpressionUUID->"7dbe95b4-cd7e-40bd-bc91-22274f86b146"], -Cell[BoxData["16.72305770548981`"], "Output", - CellChangeTimes->{3.991337294569908*^9}, +Cell[BoxData["6.8323972640237365`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.9939129399807577`*^9}, CellLabel-> - "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] + "Out[498]=",ExpressionUUID->"292fbc4d-bb9e-4eeb-97c5-94bda23f124d"] }, Open ]], Cell[CellGroupData[{ @@ -6136,22 +12440,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918494889040737`*^9, - 3.9918494971484394`*^9}},ExpressionUUID->"f9c66987-c237-7a40-a006-\ -e20e260dbdcb"], - -Cell[BoxData["0.07640873836855284`"], "Output", - CellChangeTimes->{3.9913372946009064`*^9}, + CellChangeTimes->{{3.9918494889040737`*^9, 3.9918494971484394`*^9}}, CellLabel-> - "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] + "In[499]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], + +Cell[BoxData["0.0761602344393777`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.993912940024393*^9}, + CellLabel-> + "Out[499]=",ExpressionUUID->"311074a0-6d40-415d-8d38-eb65ba5bc784"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, - 3.9919248636163254`*^9},ExpressionUUID->"770a9ed7-7938-9e48-be64-\ -c31719ef3a6b"], + 3.9919248636163254`*^9}, + CellLabel-> + "In[500]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ @@ -6174,12 +12479,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + "In[501]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[BoxData["7.13574266196526`"], "Output", - CellChangeTimes->{3.991337294629921*^9}, +Cell[BoxData["14.989443615829972`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.993912940038625*^9}, CellLabel-> - "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] + "Out[501]=",ExpressionUUID->"f7febed8-a808-4167-8f50-fc87f53c3334"] }, Open ]], Cell[CellGroupData[{ @@ -6189,12 +12494,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + "In[502]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[BoxData["1.4042291233212119`"], "Output", - CellChangeTimes->{3.9913372946629753`*^9}, +Cell[BoxData["3.163773577018768`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.993912940047989*^9}, CellLabel-> - "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] + "Out[502]=",ExpressionUUID->"675e8a82-b266-45d9-b6cd-bfb1ae85c458"] }, Open ]], Cell[CellGroupData[{ @@ -6204,12 +12509,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + "In[503]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[BoxData["10.020217662457247`"], "Output", - CellChangeTimes->{3.9913372947367725`*^9}, +Cell[BoxData["47.42320564597552`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.993912940058085*^9}, CellLabel-> - "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] + "Out[503]=",ExpressionUUID->"245285a3-b6e2-4ddb-97bd-b7018e2544c5"] }, Open ]], Cell[CellGroupData[{ @@ -6399,12 +12704,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + "In[504]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[BoxData["0.06674599726273667`"], "Output", - CellChangeTimes->{3.9913372947513313`*^9}, +Cell[BoxData["0.005890592758974288`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.993912940074173*^9}, CellLabel-> - "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] + "Out[504]=",ExpressionUUID->"77790059-a780-48e6-8fd1-74072e1c4d96"] }, Open ]], Cell[CellGroupData[{ @@ -6418,12 +12723,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + "In[505]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[BoxData["3.430301770911147`"], "Output", - CellChangeTimes->{3.9913372948636913`*^9}, +Cell[BoxData["11.546900967443046`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.993912940201436*^9}, CellLabel-> - "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] + "Out[505]=",ExpressionUUID->"16ebeef3-4712-4837-a286-30bfe11d9842"] }, Open ]], Cell[CellGroupData[{ @@ -6615,12 +12920,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + "In[506]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[BoxData["0.01266539131451536`"], "Output", - CellChangeTimes->{3.991337294877693*^9}, +Cell[BoxData["0.020672039786382806`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.993912940214161*^9}, CellLabel-> - "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] + "Out[506]=",ExpressionUUID->"d850c476-2e41-4d3b-ba86-823e0f6a27bd"] }, Open ]], Cell[CellGroupData[{ @@ -6634,12 +12939,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + "In[507]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[BoxData["7.874729317258519`"], "Output", - CellChangeTimes->{3.991337294976324*^9}, +Cell[BoxData["6.163867218227099`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.993912940324975*^9}, CellLabel-> - "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] + "Out[507]=",ExpressionUUID->"0c508fa5-35b2-4332-9a14-285e8fcd3707"] }, Open ]], Cell[CellGroupData[{ @@ -6732,12 +13037,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + "In[508]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913372950022793`*^9}, +Cell[BoxData["0.08103600808733596`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.993912940336294*^9}, CellLabel-> - "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] + "Out[508]=",ExpressionUUID->"236b5d65-bca9-4fe1-8432-f7c6cd9e598a"] }, Open ]], Cell[CellGroupData[{ @@ -6827,12 +13132,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + "In[509]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991337295013279*^9}, +Cell[BoxData["0.9189639919126641`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.993912940349085*^9}, CellLabel-> - "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] + "Out[509]=",ExpressionUUID->"c2defeb3-aea8-4766-a6e5-12fd4a147709"] }, Open ]], Cell[CellGroupData[{ @@ -6955,12 +13260,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + "In[510]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.991337295041279*^9}, +Cell[BoxData["0.0744691734806052`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.993912940361722*^9}, CellLabel-> - "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] + "Out[510]=",ExpressionUUID->"7cde91a8-9447-4c67-96b6-bf04332b4217"] }, Open ]], Cell[CellGroupData[{ @@ -7022,68 +13327,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849517192892*^9},ExpressionUUID->"55d51961-97f2-ed4d-8bf8-\ -8a461d652ab4"], + CellChangeTimes->{3.991849517192892*^9}, + CellLabel-> + "In[511]:=",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.345686913949945`*^-201\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 511, 90, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.993912940377315*^9}, + CellLabel-> + "During evaluation of \ +In[511]:=",ExpressionUUID->"c592a299-a715-44b1-817a-f595f93cd648"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.657594741078021`*^-205\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 511, 91, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.99391294038652*^9}, + CellLabel-> + "During evaluation of \ +In[511]:=",ExpressionUUID->"9290345e-cd0f-43e9-86b6-f5f871526043"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.557293404793143`*^-210\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 301, 289, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950662746`*^9}, +as a normalized machine number; precision may be lost.\"", 2, 511, 92, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.993912940394623*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 290, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337295076277*^9}, - CellLabel-> - "During evaluation of \ -In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 291, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950842743`*^9}, - CellLabel-> - "During evaluation of \ -In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +In[511]:=",ExpressionUUID->"64e545e3-cbf2-4c14-b441-2a81d9d6ac86"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950922775`*^9}, +during this calculation.\"", 2, 511, 93, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.9939129404029083`*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +In[511]:=",ExpressionUUID->"f31ac590-a185-4463-a267-b47d118d54e8"], -Cell[BoxData["3.430301770911144`"], "Output", - CellChangeTimes->{3.991337298790371*^9}, +Cell[BoxData["11.546900967443065`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.993912944572825*^9}, CellLabel-> - "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] + "Out[511]=",ExpressionUUID->"ad2a8669-1187-4a70-aeda-9bdf508d7c2c"] }, Open ]], Cell[CellGroupData[{ @@ -7145,68 +13454,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849520751028*^9},ExpressionUUID->"9704b9d3-b449-2144-9970-\ -6a7de047241d"], + CellChangeTimes->{3.991849520751028*^9}, + CellLabel-> + "In[512]:=",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.345686913949945`*^-201\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 512, 94, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.9939129446173487`*^9}, + CellLabel-> + "During evaluation of \ +In[512]:=",ExpressionUUID->"8fd52e31-c61c-443d-9d37-15df9b0dbf9f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.657594741078021`*^-205\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 512, 95, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.993912944625301*^9}, + CellLabel-> + "During evaluation of \ +In[512]:=",ExpressionUUID->"cde6b196-21dc-4b0d-804b-c9e2ba1613aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.557293404793143`*^-210\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 302, 293, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988243732`*^9}, +as a normalized machine number; precision may be lost.\"", 2, 512, 96, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.9939129446336603`*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 294, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988343716`*^9}, - CellLabel-> - "During evaluation of \ -In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 295, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988425922`*^9}, - CellLabel-> - "During evaluation of \ -In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +In[512]:=",ExpressionUUID->"854ab2a4-4c0e-43ae-ab2a-f72184c2a693"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988505898`*^9}, +during this calculation.\"", 2, 512, 97, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.993912944641671*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +In[512]:=",ExpressionUUID->"99e4370d-af87-405f-9603-f51132b04493"], -Cell[BoxData["7.87472931725852`"], "Output", - CellChangeTimes->{3.991337302457178*^9}, +Cell[BoxData["6.163867218227105`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.9939129485991793`*^9}, CellLabel-> - "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] + "Out[512]=",ExpressionUUID->"e8d96523-813b-4f98-956d-8d0da0546228"] }, Open ]], Cell[CellGroupData[{ @@ -7264,94 +13577,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849523511486*^9},ExpressionUUID->"0fd90636-7592-fc40-bf9d-\ -ae1cb915c656"], + CellChangeTimes->{3.991849523511486*^9}, + CellLabel-> + "In[513]:=",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0VV0UAHBz5gwhyZCpiJJnbLC3oZSQNCGk571LJQlJJZpoUKY0+Cpk +SjKkhKg+zT4Ulea4z1iZxxQu3+mPu876rbPWvvvsve9Zdx57jytXgI+P7wd5 +/q57Xy+aX9bw2mog8Zlu9mYarPqyTNl2+dAioHLxr3lpZsnadg9AqVqxPYfY +hfNKRJL1HNTHy2RuEheHRz0VtquD94+nVPKJT7+YXRWV9wYK3LqFbxPfb9ib +Omn8HjaJRr4uIe76UhNxoPITvNQv21dBPKdDa+sv22+Qpn9poop4bX+EZUgd +DTnH1HyqiR9NdkmE57WA7COnzAbiD0eVDpUGtsHRcJ3nn4n7ROy6Row74LNX +zvM2YpGzQe6ssU5I1n+T1UesJnutem/lD3C+lcMeJ3ZW+ZXTZ9sDI06bDs7a +QgOVrqloKNoHBluNGjWJo3TWRe+q64elw/cljYk/KTUuCc0bhDrnJuUNxByP +nTvOnx2CrCMH+jjEA1f5rt8JHIalc/67vp9YVNNQZtB4FHYpnMpKI07mPLWX +UfgFkf7jwyXEGjfcoxaP/QIbEV3NWmILg5i+3ZW/4WF50ZxxYn8zuq7LdhLe +FD+KYLvRMBK+T0hcl4HBVIMnkcRHKiWW64lOgWoRu/MK8WW0uOVXNw3dXxfX +fiLmZFfbBefx4559cSJe7jTkvTjPO6oigOKKh22OEA98945IPCuAuTWrvLKI +I/RH794OFERrjbDF/cTJRfO0+o2F0a41aVW8Bw1fGnoeTWUK43XF3AP3iTWG +yjykFURw1Y6i2HbifBPnJMMxEfylc91xxVYant0/yB9QKYq5lbtt/hCPPn1H +/7CVxB9zX/Jd8aJBzlFS5tAjSYx4k//9I7FRox1KWUphmSDdqOBNw872e+lL +Fknjle1WT5KJgwTqjFZIyuBAxImfqdto6NAsHIz+JYvTfhv3tG8n9aFqxOpZ +cmgxfu/hEjYNArc6583eK4dqG57JHSHWYKm75nXLoX60wBt1Xxo8bBPuvObJ +Y4JSdeouDg31vsEhSrUK+KT1a7SJHw3NN+JifUQVcaecv00ScU93XubNlYqo +IDRbZJBYPLTt3bIqRUycIZRZ7E+D3YmNJj73lLDr8BgLdtJQkWU2mpumjLus +++7H7qYhq2M8bGmoKkbe/HCpK5SG1ZtONocUqKKDcOs3n30k/jP5VQWdqvhd +zVf0E7FJloGChrsaysd0yf0XRurJ9r4rbKWOCTVSY/fCaRjq5+3/cVwD+Zy/ +CVZG0CC/267krpMmSih+CQ2OpqEzS9zfZacmWse6XhGOoaH8W4NKb4wm1hce +vZlC7OnodVy3ShMj840OPztJ8lsY5ppirIUb+KUFdc6Q93fdGIhU0kYG2pJk +42nY6Cdh6NCig56Z+5RSUmiAsE3GWxgd/Kn+T+PKf2jQj04z5yjr4nvVnr3D +xHyZLJvI9bq4r9fBaf1VGgqat26581gXORe2nFJKI9/n5vyjczLmY9LA9JzX +WSQ/O6cPXWw9pBX3y7TfpiFzw6WvY5F6eDb0W09+MQ1x7Bae0BU9VCjXuBV2 +h8z3kX3dau/0MMrryCvJEhpkH1zj22Crj+p5Frdsy8j8sPr0K7UWoiT/jY9f +H9KgohkfFdtugP4p6T6ltTQ8ODOi90fAEN9cWi5dRO4Zz2H3RmqeIfYM9LzM +fUVD6jNtPRtvQ3z/kN6WVk+Dpl/F298fDdFVjNJOeUfOm9+hQ9UuwkllAfl/ +v9KgqqJGabgb4beHJ7Xe99BgkB0qOQHGGJ6ZkKEkxgM25/ioobMxSprdt71F +fFkrqdnH0xj/WWblCeI8EMwouv0i3BhF958e9pfgwZfUro1JxcaYH+H+4LEU +D05f9rmmp8XC2z0ZVafleNAZ67jITcQEf2g/bguZy4Prwdou9+pM0WLKwuju +Eh7caa6Knf3NFOeGQG+IMQ+eOHi9PNRtiqXNU5amLB60a160shE3w5ob3cfu +m/BA990Mw3p7MxSQ29RYbc6DfFa32M8nZiii4XJCwIoH5SPFT+feN8civ5Kk +VgceNISB+YlsSzT6tMjHneLBPO/3zl4BK9AxMtpcKpMH3OnSQtUDiG+1Hnfx +tfNAqbt8hhLbBkOcBRY2s1oglLX8W5K+HXp8lJ3OOtkC7N7JavmulWgY/3tu +TWsLFNiEzEirt0cJ1Bpc4dIKWSM7H+cnr8G49vqFj6ta4bf17FfPotbin+kY +5uqqNmjiExxs2e6E1tb07OIPbRA4d0/CUa112O+2iTvm3w6FO6qrLkS7YK22 +wR0HhQ44OKw8tnDHemwUrWnJeNoBow6rNr/c5ortrIlU0YROsNyaaN2xfgMG +Hm8q19/xHd4qX9v5jLURJbY012nZ/oA5Occf5C7YhIoLbo2IWP+Ecp6+o7PU +ZgwLtH5iCV2g1jjgF9a7GdtmftedtaYbWBcS8zN5W7DM8VzLrYgeuCY0vCjp +qRuavd1ooVrYC6XWi79E33fH9MyP5gel+uGy+RnZyTwPLPP5p+joigGo/5od +wzq7FbM3rMiRHByAe05XtYOOeGLzvaYLmx8OwuDuDXyBHC9MfTMWcO7EEIyu +0vPvs/VG3exzOgvWDUNu7+ffIWbbMPtj3nwD4xFwu57t6yXpg9rp2uX7JUbh +7p212wRP+mBpf2oNToyCpcrbP6f/+KBq9KO985t+gRbP78ubHduRM+w317Vi +DNoldq272rYdy9+2J8rf+A0Ncc6+9pvYyG9349T8yD+QHJ4msa+BjYr8vQkm +XuPw4NH0H981vmhxx/aUkf4EzPTEk6wKXwx2Muf3/jwBlj59udEmHHx0JVRG +8Ngk5KQMhDibcXAy01/U4cQkzHo3ZKVkwcEF48cuxMdMQt/KscbcZRxM9NEJ +UIydJPcXH3+dDQdbTaR/ySVPgvSYrLvceg6eVm1vfJE9Ce3nTMXSdnPwvUfO ++VnVkxBXGbGjPIeDxSJSXeqiDOw2vmQZnkv2Yx+2TYox4HizWMwij4M1Gb0b +P0kwIH6p82ZZAQeVK5yvnJnJQHSwS1dpCQdlpipyvikyEKGnveveEw76H3q1 +yEyHgZ2XagPuNHMw5xL9uoLcomukO5cH8ziY5Rkfy7VhYEE0n5RxKwe7htPz +pe0Y6Aw2LSju4GB4baaypz0D253Tem/3cHCgyD2+zYkBN+GQwKJxDrq5pgdk +eTBgHzInKF+Riyv5X2l0BTPwJC3GIWk2Fx3/nTvzSCgDy+uGtMPncDFw9Wmh +WWEMGOnUfrZV42LVJU0BswMMKH88ZPtVh/i8rxk7ioHupU2K4qZcrEnrG/WI +ZSBeIP2h3wYuGonkxf13nZx/seRlp01c/OLzxFA9k4ETW8ODWVu46FN6uyo4 +i4HwEpf50x5cxFef/5W/QfKn+BMvsrnozZWftSKfAVYNm/N8L5f0L+iqQSkD +HxN1JLQSuGhu+zrlUDUDhSDl/yORi3H1lGfEfyR+78izgvNc9Ko6v/pQDQPG +a55FWlziosc2k6shdQzE8fkOOaVyUaZov65zAwOr9qR/Ds/nYtSa7eF5HxlQ +VT1lZlXIxZktpTfPfWJgpGbPecHbXLyZKDcd+JmBDF1wirvLxbs58bMMvjLA +NDVVZVZwMaCwoCW+mYESR5Xc19VcfBkm9y/TzkDsuIBwcs3fei6ReNrBADu3 +a7t7HRdz3PeGxXQyICNUodJez8WSy6ybM34wEFDpFv/nAxezTSb2D3cxoKV/ +MUy7g4sDVnmRQQMMjH88/O5nJxcTGjddVRpkoCGaa1T0g4sZ+7obHxBHtph0 +WfaQfujSF/iHGfhy+Z3XumHSD9ziEjrKQNIM2ZUH+SksjFi7b+oPAw+GmraG +ClJ4Xd2s5+I4A9+b8oIDhSksXrhMwHCCzEOJXTpbjMKD1YfFXSfJvPmETzjI +UqgedfxE1BTJ33Gl3Ep5Cm0XfeoRmmZgmbmcHihQ+IZjNnSSOEEqfzNLmcKM +FpV3MXxTsKyCLlaZR+GpdRrf/QSmgMrOr1bQolCj3HnJF+KEhAP0TB0Kdbwf +KDoITkEnJS8lpEchOEff0RQi+/L2/j1GFBYd3rqgTHgKKqbkozqNKXSvFbNX +FJmCjp+8CzwTCis1QqeDiZdWHXzaaEFh/IGG5TozpqA9oFDtIVKYcmNxRwD5 +D5Z2O2RaZkOhk67Vq3JiS9vVjsV2FNaP1DkJiE1BnHLrgezVFDoOtSrFEZcL +FSWkOVB4NnfB9gbitv5DN1IcKUx4uMtGRnwKLF4ovD/nQuHqoJC6U8Ts4tbu +k64U7k6eDn1MfO5qkcCxjRQGac++N0bcGrzGKMyNQqvfpyc8JaZAylvRPsiD +wpDnd/nPElusafPa6UlhnKxEWjnxOfXDsd4+FFpf708VlyT5iDtkuLEpPBa6 +md+IuHVU8b4rh0LNzmvjrsRSLW31jhSFyQn3zoQQW9Td7lzlT+IvjitOJGaX +HWZwJ4X5acp7CojPZTjMWhZAoR/t8PTF3/jnlBaaBlJoLK1Y2PQ3fni79eIg +CscDghYPEUtyit30gik08HaxF5KaAvN1kXu0Qiks5xaMyhOzl66NUQ2jUF7v +yNJ5xGd1Zl9TCqfQdM8TBQPiUpmOu7IHKazT2HPShLhlorhGIoLCKftj8UuJ +Jb9HtghHUlgi88fQitjs7drf01GkftVv2ED8P43M5L8= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7365,106 +13679,107 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc +1:eJwV1nk0VV0UAHBz5gwhyZCpiJJnbLC3oZSQNCGk571LJQlJJZpoUKY0+Cpk +SjKkhKg+zT4Ulea4z1iZxxQu3+mPu876rbPWvvvsve9Zdx57jytXgI+P7wd5 +/q57Xy+aX9bw2mog8Zlu9mYarPqyTNl2+dAioHLxr3lpZsnadg9AqVqxPYfY +hfNKRJL1HNTHy2RuEheHRz0VtquD94+nVPKJT7+YXRWV9wYK3LqFbxPfb9ib +Omn8HjaJRr4uIe76UhNxoPITvNQv21dBPKdDa+sv22+Qpn9poop4bX+EZUgd +DTnH1HyqiR9NdkmE57WA7COnzAbiD0eVDpUGtsHRcJ3nn4n7ROy6Row74LNX +zvM2YpGzQe6ssU5I1n+T1UesJnutem/lD3C+lcMeJ3ZW+ZXTZ9sDI06bDs7a +QgOVrqloKNoHBluNGjWJo3TWRe+q64elw/cljYk/KTUuCc0bhDrnJuUNxByP +nTvOnx2CrCMH+jjEA1f5rt8JHIalc/67vp9YVNNQZtB4FHYpnMpKI07mPLWX +UfgFkf7jwyXEGjfcoxaP/QIbEV3NWmILg5i+3ZW/4WF50ZxxYn8zuq7LdhLe +FD+KYLvRMBK+T0hcl4HBVIMnkcRHKiWW64lOgWoRu/MK8WW0uOVXNw3dXxfX +fiLmZFfbBefx4559cSJe7jTkvTjPO6oigOKKh22OEA98945IPCuAuTWrvLKI +I/RH794OFERrjbDF/cTJRfO0+o2F0a41aVW8Bw1fGnoeTWUK43XF3AP3iTWG +yjykFURw1Y6i2HbifBPnJMMxEfylc91xxVYant0/yB9QKYq5lbtt/hCPPn1H +/7CVxB9zX/Jd8aJBzlFS5tAjSYx4k//9I7FRox1KWUphmSDdqOBNw872e+lL +Fknjle1WT5KJgwTqjFZIyuBAxImfqdto6NAsHIz+JYvTfhv3tG8n9aFqxOpZ +cmgxfu/hEjYNArc6583eK4dqG57JHSHWYKm75nXLoX60wBt1Xxo8bBPuvObJ +Y4JSdeouDg31vsEhSrUK+KT1a7SJHw3NN+JifUQVcaecv00ScU93XubNlYqo +IDRbZJBYPLTt3bIqRUycIZRZ7E+D3YmNJj73lLDr8BgLdtJQkWU2mpumjLus +++7H7qYhq2M8bGmoKkbe/HCpK5SG1ZtONocUqKKDcOs3n30k/jP5VQWdqvhd +zVf0E7FJloGChrsaysd0yf0XRurJ9r4rbKWOCTVSY/fCaRjq5+3/cVwD+Zy/ +CVZG0CC/267krpMmSih+CQ2OpqEzS9zfZacmWse6XhGOoaH8W4NKb4wm1hce +vZlC7OnodVy3ShMj840OPztJ8lsY5ppirIUb+KUFdc6Q93fdGIhU0kYG2pJk +42nY6Cdh6NCig56Z+5RSUmiAsE3GWxgd/Kn+T+PKf2jQj04z5yjr4nvVnr3D +xHyZLJvI9bq4r9fBaf1VGgqat26581gXORe2nFJKI9/n5vyjczLmY9LA9JzX +WSQ/O6cPXWw9pBX3y7TfpiFzw6WvY5F6eDb0W09+MQ1x7Bae0BU9VCjXuBV2 +h8z3kX3dau/0MMrryCvJEhpkH1zj22Crj+p5Frdsy8j8sPr0K7UWoiT/jY9f +H9KgohkfFdtugP4p6T6ltTQ8ODOi90fAEN9cWi5dRO4Zz2H3RmqeIfYM9LzM +fUVD6jNtPRtvQ3z/kN6WVk+Dpl/F298fDdFVjNJOeUfOm9+hQ9UuwkllAfl/ +v9KgqqJGabgb4beHJ7Xe99BgkB0qOQHGGJ6ZkKEkxgM25/ioobMxSprdt71F +fFkrqdnH0xj/WWblCeI8EMwouv0i3BhF958e9pfgwZfUro1JxcaYH+H+4LEU +D05f9rmmp8XC2z0ZVafleNAZ67jITcQEf2g/bguZy4Prwdou9+pM0WLKwuju +Eh7caa6Knf3NFOeGQG+IMQ+eOHi9PNRtiqXNU5amLB60a160shE3w5ob3cfu +m/BA990Mw3p7MxSQ29RYbc6DfFa32M8nZiii4XJCwIoH5SPFT+feN8civ5Kk +VgceNISB+YlsSzT6tMjHneLBPO/3zl4BK9AxMtpcKpMH3OnSQtUDiG+1Hnfx +tfNAqbt8hhLbBkOcBRY2s1oglLX8W5K+HXp8lJ3OOtkC7N7JavmulWgY/3tu +TWsLFNiEzEirt0cJ1Bpc4dIKWSM7H+cnr8G49vqFj6ta4bf17FfPotbin+kY +5uqqNmjiExxs2e6E1tb07OIPbRA4d0/CUa112O+2iTvm3w6FO6qrLkS7YK22 +wR0HhQ44OKw8tnDHemwUrWnJeNoBow6rNr/c5ortrIlU0YROsNyaaN2xfgMG +Hm8q19/xHd4qX9v5jLURJbY012nZ/oA5Occf5C7YhIoLbo2IWP+Ecp6+o7PU +ZgwLtH5iCV2g1jjgF9a7GdtmftedtaYbWBcS8zN5W7DM8VzLrYgeuCY0vCjp +qRuavd1ooVrYC6XWi79E33fH9MyP5gel+uGy+RnZyTwPLPP5p+joigGo/5od +wzq7FbM3rMiRHByAe05XtYOOeGLzvaYLmx8OwuDuDXyBHC9MfTMWcO7EEIyu +0vPvs/VG3exzOgvWDUNu7+ffIWbbMPtj3nwD4xFwu57t6yXpg9rp2uX7JUbh +7p212wRP+mBpf2oNToyCpcrbP6f/+KBq9KO985t+gRbP78ubHduRM+w317Vi +DNoldq272rYdy9+2J8rf+A0Ncc6+9pvYyG9349T8yD+QHJ4msa+BjYr8vQkm +XuPw4NH0H981vmhxx/aUkf4EzPTEk6wKXwx2Muf3/jwBlj59udEmHHx0JVRG +8Ngk5KQMhDibcXAy01/U4cQkzHo3ZKVkwcEF48cuxMdMQt/KscbcZRxM9NEJ +UIydJPcXH3+dDQdbTaR/ySVPgvSYrLvceg6eVm1vfJE9Ce3nTMXSdnPwvUfO ++VnVkxBXGbGjPIeDxSJSXeqiDOw2vmQZnkv2Yx+2TYox4HizWMwij4M1Gb0b +P0kwIH6p82ZZAQeVK5yvnJnJQHSwS1dpCQdlpipyvikyEKGnveveEw76H3q1 +yEyHgZ2XagPuNHMw5xL9uoLcomukO5cH8ziY5Rkfy7VhYEE0n5RxKwe7htPz +pe0Y6Aw2LSju4GB4baaypz0D253Tem/3cHCgyD2+zYkBN+GQwKJxDrq5pgdk +eTBgHzInKF+Riyv5X2l0BTPwJC3GIWk2Fx3/nTvzSCgDy+uGtMPncDFw9Wmh +WWEMGOnUfrZV42LVJU0BswMMKH88ZPtVh/i8rxk7ioHupU2K4qZcrEnrG/WI +ZSBeIP2h3wYuGonkxf13nZx/seRlp01c/OLzxFA9k4ETW8ODWVu46FN6uyo4 +i4HwEpf50x5cxFef/5W/QfKn+BMvsrnozZWftSKfAVYNm/N8L5f0L+iqQSkD +HxN1JLQSuGhu+zrlUDUDhSDl/yORi3H1lGfEfyR+78izgvNc9Ko6v/pQDQPG +a55FWlziosc2k6shdQzE8fkOOaVyUaZov65zAwOr9qR/Ds/nYtSa7eF5HxlQ +VT1lZlXIxZktpTfPfWJgpGbPecHbXLyZKDcd+JmBDF1wirvLxbs58bMMvjLA +NDVVZVZwMaCwoCW+mYESR5Xc19VcfBkm9y/TzkDsuIBwcs3fei6ReNrBADu3 +a7t7HRdz3PeGxXQyICNUodJez8WSy6ybM34wEFDpFv/nAxezTSb2D3cxoKV/ +MUy7g4sDVnmRQQMMjH88/O5nJxcTGjddVRpkoCGaa1T0g4sZ+7obHxBHtph0 +WfaQfujSF/iHGfhy+Z3XumHSD9ziEjrKQNIM2ZUH+SksjFi7b+oPAw+GmraG +ClJ4Xd2s5+I4A9+b8oIDhSksXrhMwHCCzEOJXTpbjMKD1YfFXSfJvPmETzjI +UqgedfxE1BTJ33Gl3Ep5Cm0XfeoRmmZgmbmcHihQ+IZjNnSSOEEqfzNLmcKM +FpV3MXxTsKyCLlaZR+GpdRrf/QSmgMrOr1bQolCj3HnJF+KEhAP0TB0Kdbwf +KDoITkEnJS8lpEchOEff0RQi+/L2/j1GFBYd3rqgTHgKKqbkozqNKXSvFbNX +FJmCjp+8CzwTCis1QqeDiZdWHXzaaEFh/IGG5TozpqA9oFDtIVKYcmNxRwD5 +D5Z2O2RaZkOhk67Vq3JiS9vVjsV2FNaP1DkJiE1BnHLrgezVFDoOtSrFEZcL +FSWkOVB4NnfB9gbitv5DN1IcKUx4uMtGRnwKLF4ovD/nQuHqoJC6U8Ts4tbu +k64U7k6eDn1MfO5qkcCxjRQGac++N0bcGrzGKMyNQqvfpyc8JaZAylvRPsiD +wpDnd/nPElusafPa6UlhnKxEWjnxOfXDsd4+FFpf708VlyT5iDtkuLEpPBa6 +md+IuHVU8b4rh0LNzmvjrsRSLW31jhSFyQn3zoQQW9Td7lzlT+IvjitOJGaX +HWZwJ4X5acp7CojPZTjMWhZAoR/t8PTF3/jnlBaaBlJoLK1Y2PQ3fni79eIg +CscDghYPEUtyit30gik08HaxF5KaAvN1kXu0Qiks5xaMyhOzl66NUQ2jUF7v +yNJ5xGd1Zl9TCqfQdM8TBQPiUpmOu7IHKazT2HPShLhlorhGIoLCKftj8UuJ +Jb9HtghHUlgi88fQitjs7drf01GkftVv2ED8P43M5L8= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.48966339860842734`, + 1.8782342777381267`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.48966339860842845`}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7476,21 +13791,21 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.48966339860842734`, + 1.8782342777381267`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.48966339860842845`}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7504,104 +13819,105 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc +1:eJwV1nk0VV0UAHBz5gwhyZCpiJJnbLC3oZSQNCGk571LJQlJJZpoUKY0+Cpk +SjKkhKg+zT4Ulea4z1iZxxQu3+mPu876rbPWvvvsve9Zdx57jytXgI+P7wd5 +/q57Xy+aX9bw2mog8Zlu9mYarPqyTNl2+dAioHLxr3lpZsnadg9AqVqxPYfY +hfNKRJL1HNTHy2RuEheHRz0VtquD94+nVPKJT7+YXRWV9wYK3LqFbxPfb9ib +Omn8HjaJRr4uIe76UhNxoPITvNQv21dBPKdDa+sv22+Qpn9poop4bX+EZUgd +DTnH1HyqiR9NdkmE57WA7COnzAbiD0eVDpUGtsHRcJ3nn4n7ROy6Row74LNX +zvM2YpGzQe6ssU5I1n+T1UesJnutem/lD3C+lcMeJ3ZW+ZXTZ9sDI06bDs7a +QgOVrqloKNoHBluNGjWJo3TWRe+q64elw/cljYk/KTUuCc0bhDrnJuUNxByP +nTvOnx2CrCMH+jjEA1f5rt8JHIalc/67vp9YVNNQZtB4FHYpnMpKI07mPLWX +UfgFkf7jwyXEGjfcoxaP/QIbEV3NWmILg5i+3ZW/4WF50ZxxYn8zuq7LdhLe +FD+KYLvRMBK+T0hcl4HBVIMnkcRHKiWW64lOgWoRu/MK8WW0uOVXNw3dXxfX +fiLmZFfbBefx4559cSJe7jTkvTjPO6oigOKKh22OEA98945IPCuAuTWrvLKI +I/RH794OFERrjbDF/cTJRfO0+o2F0a41aVW8Bw1fGnoeTWUK43XF3AP3iTWG +yjykFURw1Y6i2HbifBPnJMMxEfylc91xxVYant0/yB9QKYq5lbtt/hCPPn1H +/7CVxB9zX/Jd8aJBzlFS5tAjSYx4k//9I7FRox1KWUphmSDdqOBNw872e+lL +Fknjle1WT5KJgwTqjFZIyuBAxImfqdto6NAsHIz+JYvTfhv3tG8n9aFqxOpZ +cmgxfu/hEjYNArc6583eK4dqG57JHSHWYKm75nXLoX60wBt1Xxo8bBPuvObJ +Y4JSdeouDg31vsEhSrUK+KT1a7SJHw3NN+JifUQVcaecv00ScU93XubNlYqo +IDRbZJBYPLTt3bIqRUycIZRZ7E+D3YmNJj73lLDr8BgLdtJQkWU2mpumjLus +++7H7qYhq2M8bGmoKkbe/HCpK5SG1ZtONocUqKKDcOs3n30k/jP5VQWdqvhd +zVf0E7FJloGChrsaysd0yf0XRurJ9r4rbKWOCTVSY/fCaRjq5+3/cVwD+Zy/ +CVZG0CC/267krpMmSih+CQ2OpqEzS9zfZacmWse6XhGOoaH8W4NKb4wm1hce +vZlC7OnodVy3ShMj840OPztJ8lsY5ppirIUb+KUFdc6Q93fdGIhU0kYG2pJk +42nY6Cdh6NCig56Z+5RSUmiAsE3GWxgd/Kn+T+PKf2jQj04z5yjr4nvVnr3D +xHyZLJvI9bq4r9fBaf1VGgqat26581gXORe2nFJKI9/n5vyjczLmY9LA9JzX +WSQ/O6cPXWw9pBX3y7TfpiFzw6WvY5F6eDb0W09+MQ1x7Bae0BU9VCjXuBV2 +h8z3kX3dau/0MMrryCvJEhpkH1zj22Crj+p5Frdsy8j8sPr0K7UWoiT/jY9f +H9KgohkfFdtugP4p6T6ltTQ8ODOi90fAEN9cWi5dRO4Zz2H3RmqeIfYM9LzM +fUVD6jNtPRtvQ3z/kN6WVk+Dpl/F298fDdFVjNJOeUfOm9+hQ9UuwkllAfl/ +v9KgqqJGabgb4beHJ7Xe99BgkB0qOQHGGJ6ZkKEkxgM25/ioobMxSprdt71F +fFkrqdnH0xj/WWblCeI8EMwouv0i3BhF958e9pfgwZfUro1JxcaYH+H+4LEU +D05f9rmmp8XC2z0ZVafleNAZ67jITcQEf2g/bguZy4Prwdou9+pM0WLKwuju +Eh7caa6Knf3NFOeGQG+IMQ+eOHi9PNRtiqXNU5amLB60a160shE3w5ob3cfu +m/BA990Mw3p7MxSQ29RYbc6DfFa32M8nZiii4XJCwIoH5SPFT+feN8civ5Kk +VgceNISB+YlsSzT6tMjHneLBPO/3zl4BK9AxMtpcKpMH3OnSQtUDiG+1Hnfx +tfNAqbt8hhLbBkOcBRY2s1oglLX8W5K+HXp8lJ3OOtkC7N7JavmulWgY/3tu +TWsLFNiEzEirt0cJ1Bpc4dIKWSM7H+cnr8G49vqFj6ta4bf17FfPotbin+kY +5uqqNmjiExxs2e6E1tb07OIPbRA4d0/CUa112O+2iTvm3w6FO6qrLkS7YK22 +wR0HhQ44OKw8tnDHemwUrWnJeNoBow6rNr/c5ortrIlU0YROsNyaaN2xfgMG +Hm8q19/xHd4qX9v5jLURJbY012nZ/oA5Occf5C7YhIoLbo2IWP+Ecp6+o7PU +ZgwLtH5iCV2g1jjgF9a7GdtmftedtaYbWBcS8zN5W7DM8VzLrYgeuCY0vCjp +qRuavd1ooVrYC6XWi79E33fH9MyP5gel+uGy+RnZyTwPLPP5p+joigGo/5od +wzq7FbM3rMiRHByAe05XtYOOeGLzvaYLmx8OwuDuDXyBHC9MfTMWcO7EEIyu +0vPvs/VG3exzOgvWDUNu7+ffIWbbMPtj3nwD4xFwu57t6yXpg9rp2uX7JUbh +7p212wRP+mBpf2oNToyCpcrbP6f/+KBq9KO985t+gRbP78ubHduRM+w317Vi +DNoldq272rYdy9+2J8rf+A0Ncc6+9pvYyG9349T8yD+QHJ4msa+BjYr8vQkm +XuPw4NH0H981vmhxx/aUkf4EzPTEk6wKXwx2Muf3/jwBlj59udEmHHx0JVRG +8Ngk5KQMhDibcXAy01/U4cQkzHo3ZKVkwcEF48cuxMdMQt/KscbcZRxM9NEJ +UIydJPcXH3+dDQdbTaR/ySVPgvSYrLvceg6eVm1vfJE9Ce3nTMXSdnPwvUfO ++VnVkxBXGbGjPIeDxSJSXeqiDOw2vmQZnkv2Yx+2TYox4HizWMwij4M1Gb0b +P0kwIH6p82ZZAQeVK5yvnJnJQHSwS1dpCQdlpipyvikyEKGnveveEw76H3q1 +yEyHgZ2XagPuNHMw5xL9uoLcomukO5cH8ziY5Rkfy7VhYEE0n5RxKwe7htPz +pe0Y6Aw2LSju4GB4baaypz0D253Tem/3cHCgyD2+zYkBN+GQwKJxDrq5pgdk +eTBgHzInKF+Riyv5X2l0BTPwJC3GIWk2Fx3/nTvzSCgDy+uGtMPncDFw9Wmh +WWEMGOnUfrZV42LVJU0BswMMKH88ZPtVh/i8rxk7ioHupU2K4qZcrEnrG/WI +ZSBeIP2h3wYuGonkxf13nZx/seRlp01c/OLzxFA9k4ETW8ODWVu46FN6uyo4 +i4HwEpf50x5cxFef/5W/QfKn+BMvsrnozZWftSKfAVYNm/N8L5f0L+iqQSkD +HxN1JLQSuGhu+zrlUDUDhSDl/yORi3H1lGfEfyR+78izgvNc9Ko6v/pQDQPG +a55FWlziosc2k6shdQzE8fkOOaVyUaZov65zAwOr9qR/Ds/nYtSa7eF5HxlQ +VT1lZlXIxZktpTfPfWJgpGbPecHbXLyZKDcd+JmBDF1wirvLxbs58bMMvjLA +NDVVZVZwMaCwoCW+mYESR5Xc19VcfBkm9y/TzkDsuIBwcs3fei6ReNrBADu3 +a7t7HRdz3PeGxXQyICNUodJez8WSy6ybM34wEFDpFv/nAxezTSb2D3cxoKV/ +MUy7g4sDVnmRQQMMjH88/O5nJxcTGjddVRpkoCGaa1T0g4sZ+7obHxBHtph0 +WfaQfujSF/iHGfhy+Z3XumHSD9ziEjrKQNIM2ZUH+SksjFi7b+oPAw+GmraG +ClJ4Xd2s5+I4A9+b8oIDhSksXrhMwHCCzEOJXTpbjMKD1YfFXSfJvPmETzjI +UqgedfxE1BTJ33Gl3Ep5Cm0XfeoRmmZgmbmcHihQ+IZjNnSSOEEqfzNLmcKM +FpV3MXxTsKyCLlaZR+GpdRrf/QSmgMrOr1bQolCj3HnJF+KEhAP0TB0Kdbwf +KDoITkEnJS8lpEchOEff0RQi+/L2/j1GFBYd3rqgTHgKKqbkozqNKXSvFbNX +FJmCjp+8CzwTCis1QqeDiZdWHXzaaEFh/IGG5TozpqA9oFDtIVKYcmNxRwD5 +D5Z2O2RaZkOhk67Vq3JiS9vVjsV2FNaP1DkJiE1BnHLrgezVFDoOtSrFEZcL +FSWkOVB4NnfB9gbitv5DN1IcKUx4uMtGRnwKLF4ovD/nQuHqoJC6U8Ts4tbu +k64U7k6eDn1MfO5qkcCxjRQGac++N0bcGrzGKMyNQqvfpyc8JaZAylvRPsiD +wpDnd/nPElusafPa6UlhnKxEWjnxOfXDsd4+FFpf708VlyT5iDtkuLEpPBa6 +md+IuHVU8b4rh0LNzmvjrsRSLW31jhSFyQn3zoQQW9Td7lzlT+IvjitOJGaX +HWZwJ4X5acp7CojPZTjMWhZAoR/t8PTF3/jnlBaaBlJoLK1Y2PQ3fni79eIg +CscDghYPEUtyit30gik08HaxF5KaAvN1kXu0Qiks5xaMyhOzl66NUQ2jUF7v +yNJ5xGd1Zl9TCqfQdM8TBQPiUpmOu7IHKazT2HPShLhlorhGIoLCKftj8UuJ +Jb9HtghHUlgi88fQitjs7drf01GkftVv2ED8P43M5L8= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "PlotRange" -> {{0, 180}, {0.48966339860842734`, 1.8782342777381267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.48966339860842845`}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7611,7 +13927,8 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.663943982390173}, + AxesOrigin->{0, 0.48966339860842845`}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7639,7 +13956,8 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.48966339860842734`, 1.8782342777381267`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7647,9 +13965,9 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991337564416748*^9}, + CellChangeTimes->{3.991337564416748*^9, 3.993913230631196*^9}, CellLabel-> - "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] + "Out[513]=",ExpressionUUID->"ef742225-0fa9-47ae-9d3d-5eacf17fd391"] }, Open ]], Cell[CellGroupData[{ @@ -7713,252 +14031,158 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918495265156612`*^9, {3.991849580574194*^9, - 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ -ac84cb8f4d66"], + 3.9918495265156612`*^9, {3.991849580574194*^9, 3.9918495807911797`*^9}}, + CellLabel-> + "In[514]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.85629179545352`*^-264\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 304, - 297, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337564646551*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 514, + 98, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.99391323077468*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +In[514]:=",ExpressionUUID->"c416f788-665b-489a-835b-7501acbda8a7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.186815573391955`*^-275\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 304, 298, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646565304`*^9}, + 514, 99, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.9939132307829237`*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +In[514]:=",ExpressionUUID->"0b2a0805-5c4d-4244-acba-e2a4003687fd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.539835109901768`*^-286\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 304, 299, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646656475`*^9}, + 2, 514, 100, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.99391323079139*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +In[514]:=",ExpressionUUID->"4c281454-3b5f-4ff1-97fd-1a6536ffc961"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646736584`*^9}, +during this calculation.\"", 2, 514, 101, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993913230798911*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +In[514]:=",ExpressionUUID->"1c40d75f-53d0-4ed6-b7fc-7bbdaadef31a"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13lYTd33AHCvDOlboTRquPfcuqFRKKnbWoVG8kZRmuVKSSUJKSrSQIlC +kyah3Lr3NIgkjSpDSdJkiHgNoYEGUfrt3x/nOc/nec6zh3X2Xmtv5i7/rdzZ +s2bN+kue/3+Pv3nYoHImz7hzk13D/d/Gxh2ZskdNuiOhbm318iEfBUCpp7tk +uy9As/e0D99HA4L/vdkl1J0LYskW1qd8jGDxoMyFya4SaDHYv87CZxP03bPx +H+2qgyrZAZ0Eb2cwUxl4PdLVDjkv7myt3eMLk136F4e7+sE6q52V6RQK9etv +5D3L/QlzQ+0/H3CMB4W+io+7NKaheomWz/fzF2GJr9vN+euF0Dj4bdoWiQy4 +sNKs0sZeGCcN+U01bjnQk6JTM7JIDKOt1eLKzPLgTN6Jp7PlFuOXuXy52Wo3 +QCb5fWzSFUlsM6NwS2EBRNtZGrePS2GL5+/WHZU8kC9rlZ/9jzR2OtSKZdfz +gC9pN7Hyf9K4b6iL7n/Mg852V/q8sjRKfZZh7HjFAxXbIMrWQhqX2ZnHTE3x +oG5z1ry2VGnUqimi13IKYdpsrLXFSAaFvnvaBFQUwkGDHLeHkbJ47qKPdUl2 +EVhli49an5VFs0aNB7I3ioCaHxrTelEWt8bydEOKiqCtY3vx83xZ7DfAT5p3 +i0ArQFToTassVl2p5jk8L4LP1w9f/yEvh+wXJ20q5/DBeYnN96Wlcph/Iz6/ +xJMPq45VRmTek8PIxKqvwd58EOlfJs1slEP3SK6snj8fKgRCwO6Rw9jfuprX +QvggbV2RqDMjh1V3843NzvOhLUJl9UZreSxUKO9IquLDhqHfIX7v5dH3yGSp +k4QAjlokr6j9Jo+38sLnecoIgJ+j2Ss5Lo9Oz+4HcBUEIGvnblAhvBQjZ5af +dWIL4NudBxNCWkvR0zb6teg6ASRFJgalHlmKxey+DyfdBdAvxfZrEFNA36D5 +GfUFApDxr1aUkVHANMk//Zp8AWxqdmjxZiigU6qjaVKJAMpDzmgsXKWANx1r +rbZUCiCub3jA0UEBg9v3RJ19IgDdgkqvoVwFZKX7Vi8dFECEka2H/FpFlI9/ +vbZJmgYL18wf+qaK+DyMvblLlgbx8K8n7TcpYrtFecQHeRoy6qOuJ7or4oul +WzeNK9Fwx+ru13mxinj5o7HvBJuGYQdW8M8eRfzEbZjx16PB9dBY3JNjSqhm +tuGT4TYaVC+bKgxEKeGTDHXusB1N5n+uaH6iEk5y1URyt9MQMrW8zTRPCTP1 +fR9NOdJw8aSrVMUTJTxe16ie6E7Dk/NNWdcUlTEobG2x1n4a1vFTy45XK6OZ +guS3Tado2NDVOj3YrIy+F12enouiwWbWHHO3dmW0Ol6Gbadp8Nzq1wP/KWMC +51arZSwNZseYJ8LnMrDjj0e2cgINAcrjV03UGXjmxEa37ZdpGCtNbJ7UZuA6 +nT7zwBQyPgv178WrGaincLz+TCoNUQfc9ShjBtbRiodup9OQVv+oebYtA0+F +mTweyaKhwSvre30wA4duvz734wYNllMGEqHHGFjvlPjsUz4NrYkdeqvDGRg5 +/xmvt4CGnooF4XmxDHSaPqBewaNh8H9BElEZDAzJivZwFNAgS1vom9Ux0Hb/ +wWl2OQ1XNrx3+tvIwNubvo2OEVM9YeHljxk4piF8pu42DZqzSx+yXzDw8kRN +sl0FDaZ2is7zPzNQLDV0ufM9Gnx/jYQ3izExTTC3bLKWxPPAHumPEkxsHtrx +mq6jQXiglycky0SdnWGm3Hoarr2s7zSmmHh5d1DdgwYa3ty/qHFLj4k+Qpn5 +3CYaCvVF6toNmWhvtbBmXjOJF318xzAyUeLsY5lrxNK5XpHq1kyMX+8X1/OQ +hi1RBt05bkxMdzp1lvmEBqW/RfurdzPxlndAeSHxt2BK6LU3E1ct2KS6poWG +mL3/05INYmIBd2UHp5WGGuvXJxNimKhbExyt1UZDQoOtXGE8E1eUZny5SuzM +aeQ/vMDEXw2RF6Wf0TCpJeiZc4WJ1/fNaflJrCsRoX2smInJu/WfxD+nYdaZ +sYaUcibe1C2N/07cKuSzs7ySiUHPBq5YddCwb2xr1MgDJpb+limaIl7n1yS/ +8DETY73simxfkHh9MqQ12pg4x7v371XivG6Vl169TExRcUjBThoCbVMDovqY +6Ded/i6OGB+Jzbv6gYkJN2qPtxO/rhzXeTPIxN1ttrcdu0g8V+9r/POTiTkZ +YnapxCFFfU5yk0y06ths3kksndV82k6IwsCVc1dbdNPwQYajEChM4ckH7Vph +xCWJxcXnxCi0y3kWKSAOX8A2L5KgcHESX6ePeEtk2qtHMhR+FJExEO0h8f8j +HvhZgcJY+YoMPeJvB0/On0dR2Bq03tmVOIbrq2uiQeGxidaRa8Tb37xtcl1J +oc4NnYcPiFV22LuE6lFoIjCc6Sf+8fThj1RDCuPe5SRPE9dYGMfcRgr38KXi +pHrJ/6otUXyxkUJjFau3K4id16mV/rCiUGHox2UO8YrSdItF/1Ko59BQvJl4 +Un3RG017CsM3HtRyIh6/Ih+xaieFx70eveMSjy5UVTFwozCzLHWxH/FIhHaT +8W4K/xNJuH+QePCngc8Gbwptuu2+BBN/5W4Qs/Kj0FU+48Jh4s9dNvSWg2S+ +LhKVh4j/s3TcZn+EQqH7ezwPEPdXeo7vDKPw8QeLsz7EfZp+qe6RFLYv8Nbz +IH6VdcRoTzSFO34c3mVP3LP4ZN++sxSWDLMXmxN3noyPPHCewqH3auv1iJ+P +XVY9fIlCL33NSYq4zSu3OTSdQqf+L6vEiFt6CvdFZlMY7bV4dJTE75H1bfGY +axTe6tixrpe4qaq2OP4m+b7uwPwq4gbtJ3ZJAgq1ty1xvkJcm9M5kVJGYe2q +sbXHiO9LvkvLrKBwftqjzO3ElVFfOXn3KZy10TpBm/jOxNjbgnoKN4RqCc8j +LnkponarhcL47VNXeGS9CDZLPbrbTqGwjkNlCHFhtfL+mi4Kv/wzyTUnvn51 +denjdxQebBzh9pD1mbbPFfrHKORc1lN9S9b35dd7+z/9ppBnrlmbTpy85WDU +9xkKHT+ZDdsRJ6yKefxrAQuvVr0UqSH7J/JP8Y6FSizMenjI7CjZbyf23/u9 +hMXCk64+iUzi0L7GK/LLWBhwLfxgE9mvwfUv36vqsrB07VJhUeJ9Z+YGGJmx +cH/jrvAjZL/vnV4oaWrNwuOVlflixHv85cvN/2Vhi5x9QDbJF+7btKe27mSh +WaXH2/tPabBb6hjj7cfCAYObjn0k/xjxCrMvXWLhUq9GdwHJXy8ZvKyN6Sy0 +zpDjLSMOuVSQOZrFQv+CvsEsku9uR1zP2FrAQssEN24MyY+6Dtkp4vdY6FkQ +zjB5QMPyucmJp9+x0Eny166tNTQ0h1w4t+YjC1dPuSXxqsn4hhMTPgyw8Izl +06bZxHkv48+ajrJQ9lMQ8KpoYJREx/ydp4JmGxtCP9wl+cDtWHiwhgrOfKxr ++lVGw62OoydUV6qgm/3cOF1iO6sjxzvWqKBGo76TTykNF9YcCtUFFUx5tVKz +o5gGMVH/I4O2pD2L4dxEPg1zKnYF7DmsggE9EFhE6teIhJX79joVDG3/lXyM +1MNuX6rNp0kF0xXqLuwi9bKm8TeceKKC70yzdplfoiExhKec36mCsx02h4ok +06DTL9o3OaCC5x9fKg4+R4Nf8VOXK5KqGCE6e/wTqdcDW+ydPuxWxVL/3tjV +B2hoL9B8/MtbFducFDO7/Gm4KzTPUMxfFf10+nOP+NEQe7tcXu+oKvLpFxFl ++2hYpizbGx2vin3WJbTkHhq8Bnsd1MtVMSW8rChgJ8mPZ923B85n4+nw/oWF +JqT/AQ1KR5SN4oraghVIw4T55Pfvi9hocyk084YxDSJCF6K85dmone4RkGFI +xn+0vsxdk4260tt+HVhDQxiXLbllGxu7Rn1sW5aR+Bt/e6qexUZ0Thu3Eif1 +fuiw5X96avhq6+ZFFDm/KaxUOi1spIZiop+GZl8TwGBgQ526iRqGNRzf8TZb +AMnji4wCrdVQ/ItnU2KKAN5MF2jNuKnh+Rl9r+ZoAQSKvpKUi1VDn7Tk88lc +AaQtxzebXqphtlb+T4ESOU96Ch8sO7EMS9iMKr9oPrlfyMyOrluOrtWcj/6c +IpBoYSfQQysw+7nI752feaAQI/hXT08D1fRbMh123oQUdYNFkl6aKN53zHfv +83x4JG+y5ud5Lfz4d0TVw+IGrFOoS9Tu1MYqPVMD04vXQFwoN8gjUgcTBFPX ++X+vglKEspEjeyXm2S4VZ1rnwgJV5/KtTSvxSeVEI68gG7Q4coLDLrrIeX/B +2XRXJgS+kai3mrUKtbgKSjZ26TD086y9ZcoqNPkhtP9tVgqYazemWWquRosv +0fYlypfg/k/DPxOtqzFHftGKoUtJ4Keh2/uMuwZnve3R1tpzHjiDuzscF+ih +0pbK6zN+CbBRRXazWK4erlFJYZ+7HQfLwuOO1Onro6716UB1r2hYwTWoVu3V +x3u+seU6K04B9/7eU2UH1mJ9sk2kRXAEVGd37B6RMsAY0WzZsTthMJo/M6F9 +2wB3zbqWtNDoKHiq8hakbV6HheMsqYmEQzCyIkmvZHgd3mrQV325JBDu5P15 +NxZjiEvCDc+LxPnBzg0sNFQywpv98heO13nD0v3RFVo1Rviq2UJm+RYuSIn4 +Fm/ewcFWT9/q9w0ekLc+LGTYkYMXT19582+5B+iGJaxPcuaguqKzU/MND7AZ +pl90e3DwcoLw9s44DzjdOTbp6cvBqS9GhfttPeBX7gnTkAgOssNP1J966w69 +hknPr/M4+E50oYnGPHfYeygvw5LPwaro7cWlI24wzr/F/UZzsKWtQJ3qcgMJ +qntiZTkHd/QUdazNdQNrYUWFqhoOvrb0vm9t4Ab3Oq7vfv6CgzO7f2r/9XEF +K/E7msHdHAzb3tQRY+sK3eYPx2VfcrCpr1aCvdYVRu9+jXF9y8GHAiOtlLmu +oJmjU/RlgPQ/VEg75rjAvV6T4LPfOWiZOvX1cIwLWC3ZBtrDHHyU/o93vr8L +7Ik+9CxojIODxrVTYOwCozWn02R+kfZ/tU1fV3WByN+XPe/+5qAJuZkzxFxg +0eoCDZdpDjqMrF/LG3WGzP13x2ZmSHwXSjlbvHKG/wMZz2Js "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7972,211 +14196,113 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi +1:eJwV13lYTd33AHCvDOlboTRquPfcuqFRKKnbWoVG8kZRmuVKSSUJKSrSQIlC +kyah3Lr3NIgkjSpDSdJkiHgNoYEGUfrt3x/nOc/nec6zh3X2Xmtv5i7/rdzZ +s2bN+kue/3+Pv3nYoHImz7hzk13D/d/Gxh2ZskdNuiOhbm318iEfBUCpp7tk +uy9As/e0D99HA4L/vdkl1J0LYskW1qd8jGDxoMyFya4SaDHYv87CZxP03bPx +H+2qgyrZAZ0Eb2cwUxl4PdLVDjkv7myt3eMLk136F4e7+sE6q52V6RQK9etv +5D3L/QlzQ+0/H3CMB4W+io+7NKaheomWz/fzF2GJr9vN+euF0Dj4bdoWiQy4 +sNKs0sZeGCcN+U01bjnQk6JTM7JIDKOt1eLKzPLgTN6Jp7PlFuOXuXy52Wo3 +QCb5fWzSFUlsM6NwS2EBRNtZGrePS2GL5+/WHZU8kC9rlZ/9jzR2OtSKZdfz +gC9pN7Hyf9K4b6iL7n/Mg852V/q8sjRKfZZh7HjFAxXbIMrWQhqX2ZnHTE3x +oG5z1ry2VGnUqimi13IKYdpsrLXFSAaFvnvaBFQUwkGDHLeHkbJ47qKPdUl2 +EVhli49an5VFs0aNB7I3ioCaHxrTelEWt8bydEOKiqCtY3vx83xZ7DfAT5p3 +i0ArQFToTassVl2p5jk8L4LP1w9f/yEvh+wXJ20q5/DBeYnN96Wlcph/Iz6/ +xJMPq45VRmTek8PIxKqvwd58EOlfJs1slEP3SK6snj8fKgRCwO6Rw9jfuprX +QvggbV2RqDMjh1V3843NzvOhLUJl9UZreSxUKO9IquLDhqHfIX7v5dH3yGSp +k4QAjlokr6j9Jo+38sLnecoIgJ+j2Ss5Lo9Oz+4HcBUEIGvnblAhvBQjZ5af +dWIL4NudBxNCWkvR0zb6teg6ASRFJgalHlmKxey+DyfdBdAvxfZrEFNA36D5 +GfUFApDxr1aUkVHANMk//Zp8AWxqdmjxZiigU6qjaVKJAMpDzmgsXKWANx1r +rbZUCiCub3jA0UEBg9v3RJ19IgDdgkqvoVwFZKX7Vi8dFECEka2H/FpFlI9/ +vbZJmgYL18wf+qaK+DyMvblLlgbx8K8n7TcpYrtFecQHeRoy6qOuJ7or4oul +WzeNK9Fwx+ru13mxinj5o7HvBJuGYQdW8M8eRfzEbZjx16PB9dBY3JNjSqhm +tuGT4TYaVC+bKgxEKeGTDHXusB1N5n+uaH6iEk5y1URyt9MQMrW8zTRPCTP1 +fR9NOdJw8aSrVMUTJTxe16ie6E7Dk/NNWdcUlTEobG2x1n4a1vFTy45XK6OZ +guS3Tado2NDVOj3YrIy+F12enouiwWbWHHO3dmW0Ol6Gbadp8Nzq1wP/KWMC +51arZSwNZseYJ8LnMrDjj0e2cgINAcrjV03UGXjmxEa37ZdpGCtNbJ7UZuA6 +nT7zwBQyPgv178WrGaincLz+TCoNUQfc9ShjBtbRiodup9OQVv+oebYtA0+F +mTweyaKhwSvre30wA4duvz734wYNllMGEqHHGFjvlPjsUz4NrYkdeqvDGRg5 +/xmvt4CGnooF4XmxDHSaPqBewaNh8H9BElEZDAzJivZwFNAgS1vom9Ux0Hb/ +wWl2OQ1XNrx3+tvIwNubvo2OEVM9YeHljxk4piF8pu42DZqzSx+yXzDw8kRN +sl0FDaZ2is7zPzNQLDV0ufM9Gnx/jYQ3izExTTC3bLKWxPPAHumPEkxsHtrx +mq6jQXiglycky0SdnWGm3Hoarr2s7zSmmHh5d1DdgwYa3ty/qHFLj4k+Qpn5 +3CYaCvVF6toNmWhvtbBmXjOJF318xzAyUeLsY5lrxNK5XpHq1kyMX+8X1/OQ +hi1RBt05bkxMdzp1lvmEBqW/RfurdzPxlndAeSHxt2BK6LU3E1ct2KS6poWG +mL3/05INYmIBd2UHp5WGGuvXJxNimKhbExyt1UZDQoOtXGE8E1eUZny5SuzM +aeQ/vMDEXw2RF6Wf0TCpJeiZc4WJ1/fNaflJrCsRoX2smInJu/WfxD+nYdaZ +sYaUcibe1C2N/07cKuSzs7ySiUHPBq5YddCwb2xr1MgDJpb+limaIl7n1yS/ +8DETY73simxfkHh9MqQ12pg4x7v371XivG6Vl169TExRcUjBThoCbVMDovqY +6Ded/i6OGB+Jzbv6gYkJN2qPtxO/rhzXeTPIxN1ttrcdu0g8V+9r/POTiTkZ +YnapxCFFfU5yk0y06ths3kksndV82k6IwsCVc1dbdNPwQYajEChM4ckH7Vph +xCWJxcXnxCi0y3kWKSAOX8A2L5KgcHESX6ePeEtk2qtHMhR+FJExEO0h8f8j +HvhZgcJY+YoMPeJvB0/On0dR2Bq03tmVOIbrq2uiQeGxidaRa8Tb37xtcl1J +oc4NnYcPiFV22LuE6lFoIjCc6Sf+8fThj1RDCuPe5SRPE9dYGMfcRgr38KXi +pHrJ/6otUXyxkUJjFau3K4id16mV/rCiUGHox2UO8YrSdItF/1Ko59BQvJl4 +Un3RG017CsM3HtRyIh6/Ih+xaieFx70eveMSjy5UVTFwozCzLHWxH/FIhHaT +8W4K/xNJuH+QePCngc8Gbwptuu2+BBN/5W4Qs/Kj0FU+48Jh4s9dNvSWg2S+ +LhKVh4j/s3TcZn+EQqH7ezwPEPdXeo7vDKPw8QeLsz7EfZp+qe6RFLYv8Nbz +IH6VdcRoTzSFO34c3mVP3LP4ZN++sxSWDLMXmxN3noyPPHCewqH3auv1iJ+P +XVY9fIlCL33NSYq4zSu3OTSdQqf+L6vEiFt6CvdFZlMY7bV4dJTE75H1bfGY +axTe6tixrpe4qaq2OP4m+b7uwPwq4gbtJ3ZJAgq1ty1xvkJcm9M5kVJGYe2q +sbXHiO9LvkvLrKBwftqjzO3ElVFfOXn3KZy10TpBm/jOxNjbgnoKN4RqCc8j +LnkponarhcL47VNXeGS9CDZLPbrbTqGwjkNlCHFhtfL+mi4Kv/wzyTUnvn51 +denjdxQebBzh9pD1mbbPFfrHKORc1lN9S9b35dd7+z/9ppBnrlmbTpy85WDU +9xkKHT+ZDdsRJ6yKefxrAQuvVr0UqSH7J/JP8Y6FSizMenjI7CjZbyf23/u9 +hMXCk64+iUzi0L7GK/LLWBhwLfxgE9mvwfUv36vqsrB07VJhUeJ9Z+YGGJmx +cH/jrvAjZL/vnV4oaWrNwuOVlflixHv85cvN/2Vhi5x9QDbJF+7btKe27mSh +WaXH2/tPabBb6hjj7cfCAYObjn0k/xjxCrMvXWLhUq9GdwHJXy8ZvKyN6Sy0 +zpDjLSMOuVSQOZrFQv+CvsEsku9uR1zP2FrAQssEN24MyY+6Dtkp4vdY6FkQ +zjB5QMPyucmJp9+x0Eny166tNTQ0h1w4t+YjC1dPuSXxqsn4hhMTPgyw8Izl +06bZxHkv48+ajrJQ9lMQ8KpoYJREx/ydp4JmGxtCP9wl+cDtWHiwhgrOfKxr ++lVGw62OoydUV6qgm/3cOF1iO6sjxzvWqKBGo76TTykNF9YcCtUFFUx5tVKz +o5gGMVH/I4O2pD2L4dxEPg1zKnYF7DmsggE9EFhE6teIhJX79joVDG3/lXyM +1MNuX6rNp0kF0xXqLuwi9bKm8TeceKKC70yzdplfoiExhKec36mCsx02h4ok +06DTL9o3OaCC5x9fKg4+R4Nf8VOXK5KqGCE6e/wTqdcDW+ydPuxWxVL/3tjV +B2hoL9B8/MtbFducFDO7/Gm4KzTPUMxfFf10+nOP+NEQe7tcXu+oKvLpFxFl ++2hYpizbGx2vin3WJbTkHhq8Bnsd1MtVMSW8rChgJ8mPZ923B85n4+nw/oWF +JqT/AQ1KR5SN4oraghVIw4T55Pfvi9hocyk084YxDSJCF6K85dmone4RkGFI +xn+0vsxdk4260tt+HVhDQxiXLbllGxu7Rn1sW5aR+Bt/e6qexUZ0Thu3Eif1 +fuiw5X96avhq6+ZFFDm/KaxUOi1spIZiop+GZl8TwGBgQ526iRqGNRzf8TZb +AMnji4wCrdVQ/ItnU2KKAN5MF2jNuKnh+Rl9r+ZoAQSKvpKUi1VDn7Tk88lc +AaQtxzebXqphtlb+T4ESOU96Ch8sO7EMS9iMKr9oPrlfyMyOrluOrtWcj/6c +IpBoYSfQQysw+7nI752feaAQI/hXT08D1fRbMh123oQUdYNFkl6aKN53zHfv +83x4JG+y5ud5Lfz4d0TVw+IGrFOoS9Tu1MYqPVMD04vXQFwoN8gjUgcTBFPX ++X+vglKEspEjeyXm2S4VZ1rnwgJV5/KtTSvxSeVEI68gG7Q4coLDLrrIeX/B +2XRXJgS+kai3mrUKtbgKSjZ26TD086y9ZcoqNPkhtP9tVgqYazemWWquRosv +0fYlypfg/k/DPxOtqzFHftGKoUtJ4Keh2/uMuwZnve3R1tpzHjiDuzscF+ih +0pbK6zN+CbBRRXazWK4erlFJYZ+7HQfLwuOO1Onro6716UB1r2hYwTWoVu3V +x3u+seU6K04B9/7eU2UH1mJ9sk2kRXAEVGd37B6RMsAY0WzZsTthMJo/M6F9 +2wB3zbqWtNDoKHiq8hakbV6HheMsqYmEQzCyIkmvZHgd3mrQV325JBDu5P15 +NxZjiEvCDc+LxPnBzg0sNFQywpv98heO13nD0v3RFVo1Rviq2UJm+RYuSIn4 +Fm/ewcFWT9/q9w0ekLc+LGTYkYMXT19582+5B+iGJaxPcuaguqKzU/MND7AZ +pl90e3DwcoLw9s44DzjdOTbp6cvBqS9GhfttPeBX7gnTkAgOssNP1J966w69 +hknPr/M4+E50oYnGPHfYeygvw5LPwaro7cWlI24wzr/F/UZzsKWtQJ3qcgMJ +qntiZTkHd/QUdazNdQNrYUWFqhoOvrb0vm9t4Ab3Oq7vfv6CgzO7f2r/9XEF +K/E7msHdHAzb3tQRY+sK3eYPx2VfcrCpr1aCvdYVRu9+jXF9y8GHAiOtlLmu +oJmjU/RlgPQ/VEg75rjAvV6T4LPfOWiZOvX1cIwLWC3ZBtrDHHyU/o93vr8L +7Ik+9CxojIODxrVTYOwCozWn02R+kfZ/tU1fV3WByN+XPe/+5qAJuZkzxFxg +0eoCDZdpDjqMrF/LG3WGzP13x2ZmSHwXSjlbvHKG/wMZz2Js "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.0658335431036021}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8188,19 +14314,19 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.0658335431036021}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8214,210 +14340,112 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi +1:eJwV13lYTd33AHCvDOlboTRquPfcuqFRKKnbWoVG8kZRmuVKSSUJKSrSQIlC +kyah3Lr3NIgkjSpDSdJkiHgNoYEGUfrt3x/nOc/nec6zh3X2Xmtv5i7/rdzZ +s2bN+kue/3+Pv3nYoHImz7hzk13D/d/Gxh2ZskdNuiOhbm318iEfBUCpp7tk +uy9As/e0D99HA4L/vdkl1J0LYskW1qd8jGDxoMyFya4SaDHYv87CZxP03bPx +H+2qgyrZAZ0Eb2cwUxl4PdLVDjkv7myt3eMLk136F4e7+sE6q52V6RQK9etv +5D3L/QlzQ+0/H3CMB4W+io+7NKaheomWz/fzF2GJr9vN+euF0Dj4bdoWiQy4 +sNKs0sZeGCcN+U01bjnQk6JTM7JIDKOt1eLKzPLgTN6Jp7PlFuOXuXy52Wo3 +QCb5fWzSFUlsM6NwS2EBRNtZGrePS2GL5+/WHZU8kC9rlZ/9jzR2OtSKZdfz +gC9pN7Hyf9K4b6iL7n/Mg852V/q8sjRKfZZh7HjFAxXbIMrWQhqX2ZnHTE3x +oG5z1ry2VGnUqimi13IKYdpsrLXFSAaFvnvaBFQUwkGDHLeHkbJ47qKPdUl2 +EVhli49an5VFs0aNB7I3ioCaHxrTelEWt8bydEOKiqCtY3vx83xZ7DfAT5p3 +i0ArQFToTassVl2p5jk8L4LP1w9f/yEvh+wXJ20q5/DBeYnN96Wlcph/Iz6/ +xJMPq45VRmTek8PIxKqvwd58EOlfJs1slEP3SK6snj8fKgRCwO6Rw9jfuprX +QvggbV2RqDMjh1V3843NzvOhLUJl9UZreSxUKO9IquLDhqHfIX7v5dH3yGSp +k4QAjlokr6j9Jo+38sLnecoIgJ+j2Ss5Lo9Oz+4HcBUEIGvnblAhvBQjZ5af +dWIL4NudBxNCWkvR0zb6teg6ASRFJgalHlmKxey+DyfdBdAvxfZrEFNA36D5 +GfUFApDxr1aUkVHANMk//Zp8AWxqdmjxZiigU6qjaVKJAMpDzmgsXKWANx1r +rbZUCiCub3jA0UEBg9v3RJ19IgDdgkqvoVwFZKX7Vi8dFECEka2H/FpFlI9/ +vbZJmgYL18wf+qaK+DyMvblLlgbx8K8n7TcpYrtFecQHeRoy6qOuJ7or4oul +WzeNK9Fwx+ru13mxinj5o7HvBJuGYQdW8M8eRfzEbZjx16PB9dBY3JNjSqhm +tuGT4TYaVC+bKgxEKeGTDHXusB1N5n+uaH6iEk5y1URyt9MQMrW8zTRPCTP1 +fR9NOdJw8aSrVMUTJTxe16ie6E7Dk/NNWdcUlTEobG2x1n4a1vFTy45XK6OZ +guS3Tado2NDVOj3YrIy+F12enouiwWbWHHO3dmW0Ol6Gbadp8Nzq1wP/KWMC +51arZSwNZseYJ8LnMrDjj0e2cgINAcrjV03UGXjmxEa37ZdpGCtNbJ7UZuA6 +nT7zwBQyPgv178WrGaincLz+TCoNUQfc9ShjBtbRiodup9OQVv+oebYtA0+F +mTweyaKhwSvre30wA4duvz734wYNllMGEqHHGFjvlPjsUz4NrYkdeqvDGRg5 +/xmvt4CGnooF4XmxDHSaPqBewaNh8H9BElEZDAzJivZwFNAgS1vom9Ux0Hb/ +wWl2OQ1XNrx3+tvIwNubvo2OEVM9YeHljxk4piF8pu42DZqzSx+yXzDw8kRN +sl0FDaZ2is7zPzNQLDV0ufM9Gnx/jYQ3izExTTC3bLKWxPPAHumPEkxsHtrx +mq6jQXiglycky0SdnWGm3Hoarr2s7zSmmHh5d1DdgwYa3ty/qHFLj4k+Qpn5 +3CYaCvVF6toNmWhvtbBmXjOJF318xzAyUeLsY5lrxNK5XpHq1kyMX+8X1/OQ +hi1RBt05bkxMdzp1lvmEBqW/RfurdzPxlndAeSHxt2BK6LU3E1ct2KS6poWG +mL3/05INYmIBd2UHp5WGGuvXJxNimKhbExyt1UZDQoOtXGE8E1eUZny5SuzM +aeQ/vMDEXw2RF6Wf0TCpJeiZc4WJ1/fNaflJrCsRoX2smInJu/WfxD+nYdaZ +sYaUcibe1C2N/07cKuSzs7ySiUHPBq5YddCwb2xr1MgDJpb+limaIl7n1yS/ +8DETY73simxfkHh9MqQ12pg4x7v371XivG6Vl169TExRcUjBThoCbVMDovqY +6Ded/i6OGB+Jzbv6gYkJN2qPtxO/rhzXeTPIxN1ttrcdu0g8V+9r/POTiTkZ +YnapxCFFfU5yk0y06ths3kksndV82k6IwsCVc1dbdNPwQYajEChM4ckH7Vph +xCWJxcXnxCi0y3kWKSAOX8A2L5KgcHESX6ePeEtk2qtHMhR+FJExEO0h8f8j +HvhZgcJY+YoMPeJvB0/On0dR2Bq03tmVOIbrq2uiQeGxidaRa8Tb37xtcl1J +oc4NnYcPiFV22LuE6lFoIjCc6Sf+8fThj1RDCuPe5SRPE9dYGMfcRgr38KXi +pHrJ/6otUXyxkUJjFau3K4id16mV/rCiUGHox2UO8YrSdItF/1Ko59BQvJl4 +Un3RG017CsM3HtRyIh6/Ih+xaieFx70eveMSjy5UVTFwozCzLHWxH/FIhHaT +8W4K/xNJuH+QePCngc8Gbwptuu2+BBN/5W4Qs/Kj0FU+48Jh4s9dNvSWg2S+ +LhKVh4j/s3TcZn+EQqH7ezwPEPdXeo7vDKPw8QeLsz7EfZp+qe6RFLYv8Nbz +IH6VdcRoTzSFO34c3mVP3LP4ZN++sxSWDLMXmxN3noyPPHCewqH3auv1iJ+P +XVY9fIlCL33NSYq4zSu3OTSdQqf+L6vEiFt6CvdFZlMY7bV4dJTE75H1bfGY +axTe6tixrpe4qaq2OP4m+b7uwPwq4gbtJ3ZJAgq1ty1xvkJcm9M5kVJGYe2q +sbXHiO9LvkvLrKBwftqjzO3ElVFfOXn3KZy10TpBm/jOxNjbgnoKN4RqCc8j +LnkponarhcL47VNXeGS9CDZLPbrbTqGwjkNlCHFhtfL+mi4Kv/wzyTUnvn51 +denjdxQebBzh9pD1mbbPFfrHKORc1lN9S9b35dd7+z/9ppBnrlmbTpy85WDU +9xkKHT+ZDdsRJ6yKefxrAQuvVr0UqSH7J/JP8Y6FSizMenjI7CjZbyf23/u9 +hMXCk64+iUzi0L7GK/LLWBhwLfxgE9mvwfUv36vqsrB07VJhUeJ9Z+YGGJmx +cH/jrvAjZL/vnV4oaWrNwuOVlflixHv85cvN/2Vhi5x9QDbJF+7btKe27mSh +WaXH2/tPabBb6hjj7cfCAYObjn0k/xjxCrMvXWLhUq9GdwHJXy8ZvKyN6Sy0 +zpDjLSMOuVSQOZrFQv+CvsEsku9uR1zP2FrAQssEN24MyY+6Dtkp4vdY6FkQ +zjB5QMPyucmJp9+x0Eny166tNTQ0h1w4t+YjC1dPuSXxqsn4hhMTPgyw8Izl +06bZxHkv48+ajrJQ9lMQ8KpoYJREx/ydp4JmGxtCP9wl+cDtWHiwhgrOfKxr ++lVGw62OoydUV6qgm/3cOF1iO6sjxzvWqKBGo76TTykNF9YcCtUFFUx5tVKz +o5gGMVH/I4O2pD2L4dxEPg1zKnYF7DmsggE9EFhE6teIhJX79joVDG3/lXyM +1MNuX6rNp0kF0xXqLuwi9bKm8TeceKKC70yzdplfoiExhKec36mCsx02h4ok +06DTL9o3OaCC5x9fKg4+R4Nf8VOXK5KqGCE6e/wTqdcDW+ydPuxWxVL/3tjV +B2hoL9B8/MtbFducFDO7/Gm4KzTPUMxfFf10+nOP+NEQe7tcXu+oKvLpFxFl ++2hYpizbGx2vin3WJbTkHhq8Bnsd1MtVMSW8rChgJ8mPZ923B85n4+nw/oWF +JqT/AQ1KR5SN4oraghVIw4T55Pfvi9hocyk084YxDSJCF6K85dmone4RkGFI +xn+0vsxdk4260tt+HVhDQxiXLbllGxu7Rn1sW5aR+Bt/e6qexUZ0Thu3Eif1 +fuiw5X96avhq6+ZFFDm/KaxUOi1spIZiop+GZl8TwGBgQ526iRqGNRzf8TZb +AMnji4wCrdVQ/ItnU2KKAN5MF2jNuKnh+Rl9r+ZoAQSKvpKUi1VDn7Tk88lc +AaQtxzebXqphtlb+T4ESOU96Ch8sO7EMS9iMKr9oPrlfyMyOrluOrtWcj/6c +IpBoYSfQQysw+7nI752feaAQI/hXT08D1fRbMh123oQUdYNFkl6aKN53zHfv +83x4JG+y5ud5Lfz4d0TVw+IGrFOoS9Tu1MYqPVMD04vXQFwoN8gjUgcTBFPX ++X+vglKEspEjeyXm2S4VZ1rnwgJV5/KtTSvxSeVEI68gG7Q4coLDLrrIeX/B +2XRXJgS+kai3mrUKtbgKSjZ26TD086y9ZcoqNPkhtP9tVgqYazemWWquRosv +0fYlypfg/k/DPxOtqzFHftGKoUtJ4Keh2/uMuwZnve3R1tpzHjiDuzscF+ih +0pbK6zN+CbBRRXazWK4erlFJYZ+7HQfLwuOO1Onro6716UB1r2hYwTWoVu3V +x3u+seU6K04B9/7eU2UH1mJ9sk2kRXAEVGd37B6RMsAY0WzZsTthMJo/M6F9 +2wB3zbqWtNDoKHiq8hakbV6HheMsqYmEQzCyIkmvZHgd3mrQV325JBDu5P15 +NxZjiEvCDc+LxPnBzg0sNFQywpv98heO13nD0v3RFVo1Rviq2UJm+RYuSIn4 +Fm/ewcFWT9/q9w0ekLc+LGTYkYMXT19582+5B+iGJaxPcuaguqKzU/MND7AZ +pl90e3DwcoLw9s44DzjdOTbp6cvBqS9GhfttPeBX7gnTkAgOssNP1J966w69 +hknPr/M4+E50oYnGPHfYeygvw5LPwaro7cWlI24wzr/F/UZzsKWtQJ3qcgMJ +qntiZTkHd/QUdazNdQNrYUWFqhoOvrb0vm9t4Ab3Oq7vfv6CgzO7f2r/9XEF +K/E7msHdHAzb3tQRY+sK3eYPx2VfcrCpr1aCvdYVRu9+jXF9y8GHAiOtlLmu +oJmjU/RlgPQ/VEg75rjAvV6T4LPfOWiZOvX1cIwLWC3ZBtrDHHyU/o93vr8L +7Ik+9CxojIODxrVTYOwCozWn02R+kfZ/tU1fV3WByN+XPe/+5qAJuZkzxFxg +0eoCDZdpDjqMrF/LG3WGzP13x2ZmSHwXSjlbvHKG/wMZz2Js "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.0658335431036021}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8428,6 +14456,7 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8455,7 +14484,8 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0658335431036021}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8463,17 +14493,559 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913381496467495`*^9}, + CellChangeTimes->{3.9913381496467495`*^9, 3.99391353472058*^9}, CellLabel-> - "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] + "Out[514]=",ExpressionUUID->"b5aa5ebb-ff7d-4a21-8ae0-4ba228b583a5"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ -5c3b93725916"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[515]:=",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13lYTd33AHCvDOlboTRquPfcuqFRKKnbWoVG8kZRmuVKSSUJKSrSQIlC +kyah3Lr3NIgkjSpDSdJkiHgNoYEGUfrt3x/nOc/nec6zh3X2Xmtv5i7/rdzZ +s2bN+kue/3+Pv3nYoHImz7hzk13D/d/Gxh2ZskdNuiOhbm318iEfBUCpp7tk +uy9As/e0D99HA4L/vdkl1J0LYskW1qd8jGDxoMyFya4SaDHYv87CZxP03bPx +H+2qgyrZAZ0Eb2cwUxl4PdLVDjkv7myt3eMLk136F4e7+sE6q52V6RQK9etv +5D3L/QlzQ+0/H3CMB4W+io+7NKaheomWz/fzF2GJr9vN+euF0Dj4bdoWiQy4 +sNKs0sZeGCcN+U01bjnQk6JTM7JIDKOt1eLKzPLgTN6Jp7PlFuOXuXy52Wo3 +QCb5fWzSFUlsM6NwS2EBRNtZGrePS2GL5+/WHZU8kC9rlZ/9jzR2OtSKZdfz +gC9pN7Hyf9K4b6iL7n/Mg852V/q8sjRKfZZh7HjFAxXbIMrWQhqX2ZnHTE3x +oG5z1ry2VGnUqimi13IKYdpsrLXFSAaFvnvaBFQUwkGDHLeHkbJ47qKPdUl2 +EVhli49an5VFs0aNB7I3ioCaHxrTelEWt8bydEOKiqCtY3vx83xZ7DfAT5p3 +i0ArQFToTassVl2p5jk8L4LP1w9f/yEvh+wXJ20q5/DBeYnN96Wlcph/Iz6/ +xJMPq45VRmTek8PIxKqvwd58EOlfJs1slEP3SK6snj8fKgRCwO6Rw9jfuprX +QvggbV2RqDMjh1V3843NzvOhLUJl9UZreSxUKO9IquLDhqHfIX7v5dH3yGSp +k4QAjlokr6j9Jo+38sLnecoIgJ+j2Ss5Lo9Oz+4HcBUEIGvnblAhvBQjZ5af +dWIL4NudBxNCWkvR0zb6teg6ASRFJgalHlmKxey+DyfdBdAvxfZrEFNA36D5 +GfUFApDxr1aUkVHANMk//Zp8AWxqdmjxZiigU6qjaVKJAMpDzmgsXKWANx1r +rbZUCiCub3jA0UEBg9v3RJ19IgDdgkqvoVwFZKX7Vi8dFECEka2H/FpFlI9/ +vbZJmgYL18wf+qaK+DyMvblLlgbx8K8n7TcpYrtFecQHeRoy6qOuJ7or4oul +WzeNK9Fwx+ru13mxinj5o7HvBJuGYQdW8M8eRfzEbZjx16PB9dBY3JNjSqhm +tuGT4TYaVC+bKgxEKeGTDHXusB1N5n+uaH6iEk5y1URyt9MQMrW8zTRPCTP1 +fR9NOdJw8aSrVMUTJTxe16ie6E7Dk/NNWdcUlTEobG2x1n4a1vFTy45XK6OZ +guS3Tado2NDVOj3YrIy+F12enouiwWbWHHO3dmW0Ol6Gbadp8Nzq1wP/KWMC +51arZSwNZseYJ8LnMrDjj0e2cgINAcrjV03UGXjmxEa37ZdpGCtNbJ7UZuA6 +nT7zwBQyPgv178WrGaincLz+TCoNUQfc9ShjBtbRiodup9OQVv+oebYtA0+F +mTweyaKhwSvre30wA4duvz734wYNllMGEqHHGFjvlPjsUz4NrYkdeqvDGRg5 +/xmvt4CGnooF4XmxDHSaPqBewaNh8H9BElEZDAzJivZwFNAgS1vom9Ux0Hb/ +wWl2OQ1XNrx3+tvIwNubvo2OEVM9YeHljxk4piF8pu42DZqzSx+yXzDw8kRN +sl0FDaZ2is7zPzNQLDV0ufM9Gnx/jYQ3izExTTC3bLKWxPPAHumPEkxsHtrx +mq6jQXiglycky0SdnWGm3Hoarr2s7zSmmHh5d1DdgwYa3ty/qHFLj4k+Qpn5 +3CYaCvVF6toNmWhvtbBmXjOJF318xzAyUeLsY5lrxNK5XpHq1kyMX+8X1/OQ +hi1RBt05bkxMdzp1lvmEBqW/RfurdzPxlndAeSHxt2BK6LU3E1ct2KS6poWG +mL3/05INYmIBd2UHp5WGGuvXJxNimKhbExyt1UZDQoOtXGE8E1eUZny5SuzM +aeQ/vMDEXw2RF6Wf0TCpJeiZc4WJ1/fNaflJrCsRoX2smInJu/WfxD+nYdaZ +sYaUcibe1C2N/07cKuSzs7ySiUHPBq5YddCwb2xr1MgDJpb+limaIl7n1yS/ +8DETY73simxfkHh9MqQ12pg4x7v371XivG6Vl169TExRcUjBThoCbVMDovqY +6Ded/i6OGB+Jzbv6gYkJN2qPtxO/rhzXeTPIxN1ttrcdu0g8V+9r/POTiTkZ +YnapxCFFfU5yk0y06ths3kksndV82k6IwsCVc1dbdNPwQYajEChM4ckH7Vph +xCWJxcXnxCi0y3kWKSAOX8A2L5KgcHESX6ePeEtk2qtHMhR+FJExEO0h8f8j +HvhZgcJY+YoMPeJvB0/On0dR2Bq03tmVOIbrq2uiQeGxidaRa8Tb37xtcl1J +oc4NnYcPiFV22LuE6lFoIjCc6Sf+8fThj1RDCuPe5SRPE9dYGMfcRgr38KXi +pHrJ/6otUXyxkUJjFau3K4id16mV/rCiUGHox2UO8YrSdItF/1Ko59BQvJl4 +Un3RG017CsM3HtRyIh6/Ih+xaieFx70eveMSjy5UVTFwozCzLHWxH/FIhHaT +8W4K/xNJuH+QePCngc8Gbwptuu2+BBN/5W4Qs/Kj0FU+48Jh4s9dNvSWg2S+ +LhKVh4j/s3TcZn+EQqH7ezwPEPdXeo7vDKPw8QeLsz7EfZp+qe6RFLYv8Nbz +IH6VdcRoTzSFO34c3mVP3LP4ZN++sxSWDLMXmxN3noyPPHCewqH3auv1iJ+P +XVY9fIlCL33NSYq4zSu3OTSdQqf+L6vEiFt6CvdFZlMY7bV4dJTE75H1bfGY +axTe6tixrpe4qaq2OP4m+b7uwPwq4gbtJ3ZJAgq1ty1xvkJcm9M5kVJGYe2q +sbXHiO9LvkvLrKBwftqjzO3ElVFfOXn3KZy10TpBm/jOxNjbgnoKN4RqCc8j +LnkponarhcL47VNXeGS9CDZLPbrbTqGwjkNlCHFhtfL+mi4Kv/wzyTUnvn51 +denjdxQebBzh9pD1mbbPFfrHKORc1lN9S9b35dd7+z/9ppBnrlmbTpy85WDU +9xkKHT+ZDdsRJ6yKefxrAQuvVr0UqSH7J/JP8Y6FSizMenjI7CjZbyf23/u9 +hMXCk64+iUzi0L7GK/LLWBhwLfxgE9mvwfUv36vqsrB07VJhUeJ9Z+YGGJmx +cH/jrvAjZL/vnV4oaWrNwuOVlflixHv85cvN/2Vhi5x9QDbJF+7btKe27mSh +WaXH2/tPabBb6hjj7cfCAYObjn0k/xjxCrMvXWLhUq9GdwHJXy8ZvKyN6Sy0 +zpDjLSMOuVSQOZrFQv+CvsEsku9uR1zP2FrAQssEN24MyY+6Dtkp4vdY6FkQ +zjB5QMPyucmJp9+x0Eny166tNTQ0h1w4t+YjC1dPuSXxqsn4hhMTPgyw8Izl +06bZxHkv48+ajrJQ9lMQ8KpoYJREx/ydp4JmGxtCP9wl+cDtWHiwhgrOfKxr ++lVGw62OoydUV6qgm/3cOF1iO6sjxzvWqKBGo76TTykNF9YcCtUFFUx5tVKz +o5gGMVH/I4O2pD2L4dxEPg1zKnYF7DmsggE9EFhE6teIhJX79joVDG3/lXyM +1MNuX6rNp0kF0xXqLuwi9bKm8TeceKKC70yzdplfoiExhKec36mCsx02h4ok +06DTL9o3OaCC5x9fKg4+R4Nf8VOXK5KqGCE6e/wTqdcDW+ydPuxWxVL/3tjV +B2hoL9B8/MtbFducFDO7/Gm4KzTPUMxfFf10+nOP+NEQe7tcXu+oKvLpFxFl ++2hYpizbGx2vin3WJbTkHhq8Bnsd1MtVMSW8rChgJ8mPZ923B85n4+nw/oWF +JqT/AQ1KR5SN4oraghVIw4T55Pfvi9hocyk084YxDSJCF6K85dmone4RkGFI +xn+0vsxdk4260tt+HVhDQxiXLbllGxu7Rn1sW5aR+Bt/e6qexUZ0Thu3Eif1 +fuiw5X96avhq6+ZFFDm/KaxUOi1spIZiop+GZl8TwGBgQ526iRqGNRzf8TZb +AMnji4wCrdVQ/ItnU2KKAN5MF2jNuKnh+Rl9r+ZoAQSKvpKUi1VDn7Tk88lc +AaQtxzebXqphtlb+T4ESOU96Ch8sO7EMS9iMKr9oPrlfyMyOrluOrtWcj/6c +IpBoYSfQQysw+7nI752feaAQI/hXT08D1fRbMh123oQUdYNFkl6aKN53zHfv +83x4JG+y5ud5Lfz4d0TVw+IGrFOoS9Tu1MYqPVMD04vXQFwoN8gjUgcTBFPX ++X+vglKEspEjeyXm2S4VZ1rnwgJV5/KtTSvxSeVEI68gG7Q4coLDLrrIeX/B +2XRXJgS+kai3mrUKtbgKSjZ26TD086y9ZcoqNPkhtP9tVgqYazemWWquRosv +0fYlypfg/k/DPxOtqzFHftGKoUtJ4Keh2/uMuwZnve3R1tpzHjiDuzscF+ih +0pbK6zN+CbBRRXazWK4erlFJYZ+7HQfLwuOO1Onro6716UB1r2hYwTWoVu3V +x3u+seU6K04B9/7eU2UH1mJ9sk2kRXAEVGd37B6RMsAY0WzZsTthMJo/M6F9 +2wB3zbqWtNDoKHiq8hakbV6HheMsqYmEQzCyIkmvZHgd3mrQV325JBDu5P15 +NxZjiEvCDc+LxPnBzg0sNFQywpv98heO13nD0v3RFVo1Rviq2UJm+RYuSIn4 +Fm/ewcFWT9/q9w0ekLc+LGTYkYMXT19582+5B+iGJaxPcuaguqKzU/MND7AZ +pl90e3DwcoLw9s44DzjdOTbp6cvBqS9GhfttPeBX7gnTkAgOssNP1J966w69 +hknPr/M4+E50oYnGPHfYeygvw5LPwaro7cWlI24wzr/F/UZzsKWtQJ3qcgMJ +qntiZTkHd/QUdazNdQNrYUWFqhoOvrb0vm9t4Ab3Oq7vfv6CgzO7f2r/9XEF +K/E7msHdHAzb3tQRY+sK3eYPx2VfcrCpr1aCvdYVRu9+jXF9y8GHAiOtlLmu +oJmjU/RlgPQ/VEg75rjAvV6T4LPfOWiZOvX1cIwLWC3ZBtrDHHyU/o93vr8L +7Ik+9CxojIODxrVTYOwCozWn02R+kfZ/tU1fV3WByN+XPe/+5qAJuZkzxFxg +0eoCDZdpDjqMrF/LG3WGzP13x2ZmSHwXSjlbvHKG/wMZz2Js + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13lYTd33AHCvDOlboTRquPfcuqFRKKnbWoVG8kZRmuVKSSUJKSrSQIlC +kyah3Lr3NIgkjSpDSdJkiHgNoYEGUfrt3x/nOc/nec6zh3X2Xmtv5i7/rdzZ +s2bN+kue/3+Pv3nYoHImz7hzk13D/d/Gxh2ZskdNuiOhbm318iEfBUCpp7tk +uy9As/e0D99HA4L/vdkl1J0LYskW1qd8jGDxoMyFya4SaDHYv87CZxP03bPx +H+2qgyrZAZ0Eb2cwUxl4PdLVDjkv7myt3eMLk136F4e7+sE6q52V6RQK9etv +5D3L/QlzQ+0/H3CMB4W+io+7NKaheomWz/fzF2GJr9vN+euF0Dj4bdoWiQy4 +sNKs0sZeGCcN+U01bjnQk6JTM7JIDKOt1eLKzPLgTN6Jp7PlFuOXuXy52Wo3 +QCb5fWzSFUlsM6NwS2EBRNtZGrePS2GL5+/WHZU8kC9rlZ/9jzR2OtSKZdfz +gC9pN7Hyf9K4b6iL7n/Mg852V/q8sjRKfZZh7HjFAxXbIMrWQhqX2ZnHTE3x +oG5z1ry2VGnUqimi13IKYdpsrLXFSAaFvnvaBFQUwkGDHLeHkbJ47qKPdUl2 +EVhli49an5VFs0aNB7I3ioCaHxrTelEWt8bydEOKiqCtY3vx83xZ7DfAT5p3 +i0ArQFToTassVl2p5jk8L4LP1w9f/yEvh+wXJ20q5/DBeYnN96Wlcph/Iz6/ +xJMPq45VRmTek8PIxKqvwd58EOlfJs1slEP3SK6snj8fKgRCwO6Rw9jfuprX +QvggbV2RqDMjh1V3843NzvOhLUJl9UZreSxUKO9IquLDhqHfIX7v5dH3yGSp +k4QAjlokr6j9Jo+38sLnecoIgJ+j2Ss5Lo9Oz+4HcBUEIGvnblAhvBQjZ5af +dWIL4NudBxNCWkvR0zb6teg6ASRFJgalHlmKxey+DyfdBdAvxfZrEFNA36D5 +GfUFApDxr1aUkVHANMk//Zp8AWxqdmjxZiigU6qjaVKJAMpDzmgsXKWANx1r +rbZUCiCub3jA0UEBg9v3RJ19IgDdgkqvoVwFZKX7Vi8dFECEka2H/FpFlI9/ +vbZJmgYL18wf+qaK+DyMvblLlgbx8K8n7TcpYrtFecQHeRoy6qOuJ7or4oul +WzeNK9Fwx+ru13mxinj5o7HvBJuGYQdW8M8eRfzEbZjx16PB9dBY3JNjSqhm +tuGT4TYaVC+bKgxEKeGTDHXusB1N5n+uaH6iEk5y1URyt9MQMrW8zTRPCTP1 +fR9NOdJw8aSrVMUTJTxe16ie6E7Dk/NNWdcUlTEobG2x1n4a1vFTy45XK6OZ +guS3Tado2NDVOj3YrIy+F12enouiwWbWHHO3dmW0Ol6Gbadp8Nzq1wP/KWMC +51arZSwNZseYJ8LnMrDjj0e2cgINAcrjV03UGXjmxEa37ZdpGCtNbJ7UZuA6 +nT7zwBQyPgv178WrGaincLz+TCoNUQfc9ShjBtbRiodup9OQVv+oebYtA0+F +mTweyaKhwSvre30wA4duvz734wYNllMGEqHHGFjvlPjsUz4NrYkdeqvDGRg5 +/xmvt4CGnooF4XmxDHSaPqBewaNh8H9BElEZDAzJivZwFNAgS1vom9Ux0Hb/ +wWl2OQ1XNrx3+tvIwNubvo2OEVM9YeHljxk4piF8pu42DZqzSx+yXzDw8kRN +sl0FDaZ2is7zPzNQLDV0ufM9Gnx/jYQ3izExTTC3bLKWxPPAHumPEkxsHtrx +mq6jQXiglycky0SdnWGm3Hoarr2s7zSmmHh5d1DdgwYa3ty/qHFLj4k+Qpn5 +3CYaCvVF6toNmWhvtbBmXjOJF318xzAyUeLsY5lrxNK5XpHq1kyMX+8X1/OQ +hi1RBt05bkxMdzp1lvmEBqW/RfurdzPxlndAeSHxt2BK6LU3E1ct2KS6poWG +mL3/05INYmIBd2UHp5WGGuvXJxNimKhbExyt1UZDQoOtXGE8E1eUZny5SuzM +aeQ/vMDEXw2RF6Wf0TCpJeiZc4WJ1/fNaflJrCsRoX2smInJu/WfxD+nYdaZ +sYaUcibe1C2N/07cKuSzs7ySiUHPBq5YddCwb2xr1MgDJpb+limaIl7n1yS/ +8DETY73simxfkHh9MqQ12pg4x7v371XivG6Vl169TExRcUjBThoCbVMDovqY +6Ded/i6OGB+Jzbv6gYkJN2qPtxO/rhzXeTPIxN1ttrcdu0g8V+9r/POTiTkZ +YnapxCFFfU5yk0y06ths3kksndV82k6IwsCVc1dbdNPwQYajEChM4ckH7Vph +xCWJxcXnxCi0y3kWKSAOX8A2L5KgcHESX6ePeEtk2qtHMhR+FJExEO0h8f8j +HvhZgcJY+YoMPeJvB0/On0dR2Bq03tmVOIbrq2uiQeGxidaRa8Tb37xtcl1J +oc4NnYcPiFV22LuE6lFoIjCc6Sf+8fThj1RDCuPe5SRPE9dYGMfcRgr38KXi +pHrJ/6otUXyxkUJjFau3K4id16mV/rCiUGHox2UO8YrSdItF/1Ko59BQvJl4 +Un3RG017CsM3HtRyIh6/Ih+xaieFx70eveMSjy5UVTFwozCzLHWxH/FIhHaT +8W4K/xNJuH+QePCngc8Gbwptuu2+BBN/5W4Qs/Kj0FU+48Jh4s9dNvSWg2S+ +LhKVh4j/s3TcZn+EQqH7ezwPEPdXeo7vDKPw8QeLsz7EfZp+qe6RFLYv8Nbz +IH6VdcRoTzSFO34c3mVP3LP4ZN++sxSWDLMXmxN3noyPPHCewqH3auv1iJ+P +XVY9fIlCL33NSYq4zSu3OTSdQqf+L6vEiFt6CvdFZlMY7bV4dJTE75H1bfGY +axTe6tixrpe4qaq2OP4m+b7uwPwq4gbtJ3ZJAgq1ty1xvkJcm9M5kVJGYe2q +sbXHiO9LvkvLrKBwftqjzO3ElVFfOXn3KZy10TpBm/jOxNjbgnoKN4RqCc8j +LnkponarhcL47VNXeGS9CDZLPbrbTqGwjkNlCHFhtfL+mi4Kv/wzyTUnvn51 +denjdxQebBzh9pD1mbbPFfrHKORc1lN9S9b35dd7+z/9ppBnrlmbTpy85WDU +9xkKHT+ZDdsRJ6yKefxrAQuvVr0UqSH7J/JP8Y6FSizMenjI7CjZbyf23/u9 +hMXCk64+iUzi0L7GK/LLWBhwLfxgE9mvwfUv36vqsrB07VJhUeJ9Z+YGGJmx +cH/jrvAjZL/vnV4oaWrNwuOVlflixHv85cvN/2Vhi5x9QDbJF+7btKe27mSh +WaXH2/tPabBb6hjj7cfCAYObjn0k/xjxCrMvXWLhUq9GdwHJXy8ZvKyN6Sy0 +zpDjLSMOuVSQOZrFQv+CvsEsku9uR1zP2FrAQssEN24MyY+6Dtkp4vdY6FkQ +zjB5QMPyucmJp9+x0Eny166tNTQ0h1w4t+YjC1dPuSXxqsn4hhMTPgyw8Izl +06bZxHkv48+ajrJQ9lMQ8KpoYJREx/ydp4JmGxtCP9wl+cDtWHiwhgrOfKxr ++lVGw62OoydUV6qgm/3cOF1iO6sjxzvWqKBGo76TTykNF9YcCtUFFUx5tVKz +o5gGMVH/I4O2pD2L4dxEPg1zKnYF7DmsggE9EFhE6teIhJX79joVDG3/lXyM +1MNuX6rNp0kF0xXqLuwi9bKm8TeceKKC70yzdplfoiExhKec36mCsx02h4ok +06DTL9o3OaCC5x9fKg4+R4Nf8VOXK5KqGCE6e/wTqdcDW+ydPuxWxVL/3tjV +B2hoL9B8/MtbFducFDO7/Gm4KzTPUMxfFf10+nOP+NEQe7tcXu+oKvLpFxFl ++2hYpizbGx2vin3WJbTkHhq8Bnsd1MtVMSW8rChgJ8mPZ923B85n4+nw/oWF +JqT/AQ1KR5SN4oraghVIw4T55Pfvi9hocyk084YxDSJCF6K85dmone4RkGFI +xn+0vsxdk4260tt+HVhDQxiXLbllGxu7Rn1sW5aR+Bt/e6qexUZ0Thu3Eif1 +fuiw5X96avhq6+ZFFDm/KaxUOi1spIZiop+GZl8TwGBgQ526iRqGNRzf8TZb +AMnji4wCrdVQ/ItnU2KKAN5MF2jNuKnh+Rl9r+ZoAQSKvpKUi1VDn7Tk88lc +AaQtxzebXqphtlb+T4ESOU96Ch8sO7EMS9iMKr9oPrlfyMyOrluOrtWcj/6c +IpBoYSfQQysw+7nI752feaAQI/hXT08D1fRbMh123oQUdYNFkl6aKN53zHfv +83x4JG+y5ud5Lfz4d0TVw+IGrFOoS9Tu1MYqPVMD04vXQFwoN8gjUgcTBFPX ++X+vglKEspEjeyXm2S4VZ1rnwgJV5/KtTSvxSeVEI68gG7Q4coLDLrrIeX/B +2XRXJgS+kai3mrUKtbgKSjZ26TD086y9ZcoqNPkhtP9tVgqYazemWWquRosv +0fYlypfg/k/DPxOtqzFHftGKoUtJ4Keh2/uMuwZnve3R1tpzHjiDuzscF+ih +0pbK6zN+CbBRRXazWK4erlFJYZ+7HQfLwuOO1Onro6716UB1r2hYwTWoVu3V +x3u+seU6K04B9/7eU2UH1mJ9sk2kRXAEVGd37B6RMsAY0WzZsTthMJo/M6F9 +2wB3zbqWtNDoKHiq8hakbV6HheMsqYmEQzCyIkmvZHgd3mrQV325JBDu5P15 +NxZjiEvCDc+LxPnBzg0sNFQywpv98heO13nD0v3RFVo1Rviq2UJm+RYuSIn4 +Fm/ewcFWT9/q9w0ekLc+LGTYkYMXT19582+5B+iGJaxPcuaguqKzU/MND7AZ +pl90e3DwcoLw9s44DzjdOTbp6cvBqS9GhfttPeBX7gnTkAgOssNP1J966w69 +hknPr/M4+E50oYnGPHfYeygvw5LPwaro7cWlI24wzr/F/UZzsKWtQJ3qcgMJ +qntiZTkHd/QUdazNdQNrYUWFqhoOvrb0vm9t4Ab3Oq7vfv6CgzO7f2r/9XEF +K/E7msHdHAzb3tQRY+sK3eYPx2VfcrCpr1aCvdYVRu9+jXF9y8GHAiOtlLmu +oJmjU/RlgPQ/VEg75rjAvV6T4LPfOWiZOvX1cIwLWC3ZBtrDHHyU/o93vr8L +7Ik+9CxojIODxrVTYOwCozWn02R+kfZ/tU1fV3WByN+XPe/+5qAJuZkzxFxg +0eoCDZdpDjqMrF/LG3WGzP13x2ZmSHwXSjlbvHKG/wMZz2Js + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0658335431036021}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.0658335431036021}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13lYTd33AHCvDOlboTRquPfcuqFRKKnbWoVG8kZRmuVKSSUJKSrSQIlC +kyah3Lr3NIgkjSpDSdJkiHgNoYEGUfrt3x/nOc/nec6zh3X2Xmtv5i7/rdzZ +s2bN+kue/3+Pv3nYoHImz7hzk13D/d/Gxh2ZskdNuiOhbm318iEfBUCpp7tk +uy9As/e0D99HA4L/vdkl1J0LYskW1qd8jGDxoMyFya4SaDHYv87CZxP03bPx +H+2qgyrZAZ0Eb2cwUxl4PdLVDjkv7myt3eMLk136F4e7+sE6q52V6RQK9etv +5D3L/QlzQ+0/H3CMB4W+io+7NKaheomWz/fzF2GJr9vN+euF0Dj4bdoWiQy4 +sNKs0sZeGCcN+U01bjnQk6JTM7JIDKOt1eLKzPLgTN6Jp7PlFuOXuXy52Wo3 +QCb5fWzSFUlsM6NwS2EBRNtZGrePS2GL5+/WHZU8kC9rlZ/9jzR2OtSKZdfz +gC9pN7Hyf9K4b6iL7n/Mg852V/q8sjRKfZZh7HjFAxXbIMrWQhqX2ZnHTE3x +oG5z1ry2VGnUqimi13IKYdpsrLXFSAaFvnvaBFQUwkGDHLeHkbJ47qKPdUl2 +EVhli49an5VFs0aNB7I3ioCaHxrTelEWt8bydEOKiqCtY3vx83xZ7DfAT5p3 +i0ArQFToTassVl2p5jk8L4LP1w9f/yEvh+wXJ20q5/DBeYnN96Wlcph/Iz6/ +xJMPq45VRmTek8PIxKqvwd58EOlfJs1slEP3SK6snj8fKgRCwO6Rw9jfuprX +QvggbV2RqDMjh1V3843NzvOhLUJl9UZreSxUKO9IquLDhqHfIX7v5dH3yGSp +k4QAjlokr6j9Jo+38sLnecoIgJ+j2Ss5Lo9Oz+4HcBUEIGvnblAhvBQjZ5af +dWIL4NudBxNCWkvR0zb6teg6ASRFJgalHlmKxey+DyfdBdAvxfZrEFNA36D5 +GfUFApDxr1aUkVHANMk//Zp8AWxqdmjxZiigU6qjaVKJAMpDzmgsXKWANx1r +rbZUCiCub3jA0UEBg9v3RJ19IgDdgkqvoVwFZKX7Vi8dFECEka2H/FpFlI9/ +vbZJmgYL18wf+qaK+DyMvblLlgbx8K8n7TcpYrtFecQHeRoy6qOuJ7or4oul +WzeNK9Fwx+ru13mxinj5o7HvBJuGYQdW8M8eRfzEbZjx16PB9dBY3JNjSqhm +tuGT4TYaVC+bKgxEKeGTDHXusB1N5n+uaH6iEk5y1URyt9MQMrW8zTRPCTP1 +fR9NOdJw8aSrVMUTJTxe16ie6E7Dk/NNWdcUlTEobG2x1n4a1vFTy45XK6OZ +guS3Tado2NDVOj3YrIy+F12enouiwWbWHHO3dmW0Ol6Gbadp8Nzq1wP/KWMC +51arZSwNZseYJ8LnMrDjj0e2cgINAcrjV03UGXjmxEa37ZdpGCtNbJ7UZuA6 +nT7zwBQyPgv178WrGaincLz+TCoNUQfc9ShjBtbRiodup9OQVv+oebYtA0+F +mTweyaKhwSvre30wA4duvz734wYNllMGEqHHGFjvlPjsUz4NrYkdeqvDGRg5 +/xmvt4CGnooF4XmxDHSaPqBewaNh8H9BElEZDAzJivZwFNAgS1vom9Ux0Hb/ +wWl2OQ1XNrx3+tvIwNubvo2OEVM9YeHljxk4piF8pu42DZqzSx+yXzDw8kRN +sl0FDaZ2is7zPzNQLDV0ufM9Gnx/jYQ3izExTTC3bLKWxPPAHumPEkxsHtrx +mq6jQXiglycky0SdnWGm3Hoarr2s7zSmmHh5d1DdgwYa3ty/qHFLj4k+Qpn5 +3CYaCvVF6toNmWhvtbBmXjOJF318xzAyUeLsY5lrxNK5XpHq1kyMX+8X1/OQ +hi1RBt05bkxMdzp1lvmEBqW/RfurdzPxlndAeSHxt2BK6LU3E1ct2KS6poWG +mL3/05INYmIBd2UHp5WGGuvXJxNimKhbExyt1UZDQoOtXGE8E1eUZny5SuzM +aeQ/vMDEXw2RF6Wf0TCpJeiZc4WJ1/fNaflJrCsRoX2smInJu/WfxD+nYdaZ +sYaUcibe1C2N/07cKuSzs7ySiUHPBq5YddCwb2xr1MgDJpb+limaIl7n1yS/ +8DETY73simxfkHh9MqQ12pg4x7v371XivG6Vl169TExRcUjBThoCbVMDovqY +6Ded/i6OGB+Jzbv6gYkJN2qPtxO/rhzXeTPIxN1ttrcdu0g8V+9r/POTiTkZ +YnapxCFFfU5yk0y06ths3kksndV82k6IwsCVc1dbdNPwQYajEChM4ckH7Vph +xCWJxcXnxCi0y3kWKSAOX8A2L5KgcHESX6ePeEtk2qtHMhR+FJExEO0h8f8j +HvhZgcJY+YoMPeJvB0/On0dR2Bq03tmVOIbrq2uiQeGxidaRa8Tb37xtcl1J +oc4NnYcPiFV22LuE6lFoIjCc6Sf+8fThj1RDCuPe5SRPE9dYGMfcRgr38KXi +pHrJ/6otUXyxkUJjFau3K4id16mV/rCiUGHox2UO8YrSdItF/1Ko59BQvJl4 +Un3RG017CsM3HtRyIh6/Ih+xaieFx70eveMSjy5UVTFwozCzLHWxH/FIhHaT +8W4K/xNJuH+QePCngc8Gbwptuu2+BBN/5W4Qs/Kj0FU+48Jh4s9dNvSWg2S+ +LhKVh4j/s3TcZn+EQqH7ezwPEPdXeo7vDKPw8QeLsz7EfZp+qe6RFLYv8Nbz +IH6VdcRoTzSFO34c3mVP3LP4ZN++sxSWDLMXmxN3noyPPHCewqH3auv1iJ+P +XVY9fIlCL33NSYq4zSu3OTSdQqf+L6vEiFt6CvdFZlMY7bV4dJTE75H1bfGY +axTe6tixrpe4qaq2OP4m+b7uwPwq4gbtJ3ZJAgq1ty1xvkJcm9M5kVJGYe2q +sbXHiO9LvkvLrKBwftqjzO3ElVFfOXn3KZy10TpBm/jOxNjbgnoKN4RqCc8j +LnkponarhcL47VNXeGS9CDZLPbrbTqGwjkNlCHFhtfL+mi4Kv/wzyTUnvn51 +denjdxQebBzh9pD1mbbPFfrHKORc1lN9S9b35dd7+z/9ppBnrlmbTpy85WDU +9xkKHT+ZDdsRJ6yKefxrAQuvVr0UqSH7J/JP8Y6FSizMenjI7CjZbyf23/u9 +hMXCk64+iUzi0L7GK/LLWBhwLfxgE9mvwfUv36vqsrB07VJhUeJ9Z+YGGJmx +cH/jrvAjZL/vnV4oaWrNwuOVlflixHv85cvN/2Vhi5x9QDbJF+7btKe27mSh +WaXH2/tPabBb6hjj7cfCAYObjn0k/xjxCrMvXWLhUq9GdwHJXy8ZvKyN6Sy0 +zpDjLSMOuVSQOZrFQv+CvsEsku9uR1zP2FrAQssEN24MyY+6Dtkp4vdY6FkQ +zjB5QMPyucmJp9+x0Eny166tNTQ0h1w4t+YjC1dPuSXxqsn4hhMTPgyw8Izl +06bZxHkv48+ajrJQ9lMQ8KpoYJREx/ydp4JmGxtCP9wl+cDtWHiwhgrOfKxr ++lVGw62OoydUV6qgm/3cOF1iO6sjxzvWqKBGo76TTykNF9YcCtUFFUx5tVKz +o5gGMVH/I4O2pD2L4dxEPg1zKnYF7DmsggE9EFhE6teIhJX79joVDG3/lXyM +1MNuX6rNp0kF0xXqLuwi9bKm8TeceKKC70yzdplfoiExhKec36mCsx02h4ok +06DTL9o3OaCC5x9fKg4+R4Nf8VOXK5KqGCE6e/wTqdcDW+ydPuxWxVL/3tjV +B2hoL9B8/MtbFducFDO7/Gm4KzTPUMxfFf10+nOP+NEQe7tcXu+oKvLpFxFl ++2hYpizbGx2vin3WJbTkHhq8Bnsd1MtVMSW8rChgJ8mPZ923B85n4+nw/oWF +JqT/AQ1KR5SN4oraghVIw4T55Pfvi9hocyk084YxDSJCF6K85dmone4RkGFI +xn+0vsxdk4260tt+HVhDQxiXLbllGxu7Rn1sW5aR+Bt/e6qexUZ0Thu3Eif1 +fuiw5X96avhq6+ZFFDm/KaxUOi1spIZiop+GZl8TwGBgQ526iRqGNRzf8TZb +AMnji4wCrdVQ/ItnU2KKAN5MF2jNuKnh+Rl9r+ZoAQSKvpKUi1VDn7Tk88lc +AaQtxzebXqphtlb+T4ESOU96Ch8sO7EMS9iMKr9oPrlfyMyOrluOrtWcj/6c +IpBoYSfQQysw+7nI752feaAQI/hXT08D1fRbMh123oQUdYNFkl6aKN53zHfv +83x4JG+y5ud5Lfz4d0TVw+IGrFOoS9Tu1MYqPVMD04vXQFwoN8gjUgcTBFPX ++X+vglKEspEjeyXm2S4VZ1rnwgJV5/KtTSvxSeVEI68gG7Q4coLDLrrIeX/B +2XRXJgS+kai3mrUKtbgKSjZ26TD086y9ZcoqNPkhtP9tVgqYazemWWquRosv +0fYlypfg/k/DPxOtqzFHftGKoUtJ4Keh2/uMuwZnve3R1tpzHjiDuzscF+ih +0pbK6zN+CbBRRXazWK4erlFJYZ+7HQfLwuOO1Onro6716UB1r2hYwTWoVu3V +x3u+seU6K04B9/7eU2UH1mJ9sk2kRXAEVGd37B6RMsAY0WzZsTthMJo/M6F9 +2wB3zbqWtNDoKHiq8hakbV6HheMsqYmEQzCyIkmvZHgd3mrQV325JBDu5P15 +NxZjiEvCDc+LxPnBzg0sNFQywpv98heO13nD0v3RFVo1Rviq2UJm+RYuSIn4 +Fm/ewcFWT9/q9w0ekLc+LGTYkYMXT19582+5B+iGJaxPcuaguqKzU/MND7AZ +pl90e3DwcoLw9s44DzjdOTbp6cvBqS9GhfttPeBX7gnTkAgOssNP1J966w69 +hknPr/M4+E50oYnGPHfYeygvw5LPwaro7cWlI24wzr/F/UZzsKWtQJ3qcgMJ +qntiZTkHd/QUdazNdQNrYUWFqhoOvrb0vm9t4Ab3Oq7vfv6CgzO7f2r/9XEF +K/E7msHdHAzb3tQRY+sK3eYPx2VfcrCpr1aCvdYVRu9+jXF9y8GHAiOtlLmu +oJmjU/RlgPQ/VEg75rjAvV6T4LPfOWiZOvX1cIwLWC3ZBtrDHHyU/o93vr8L +7Ik+9CxojIODxrVTYOwCozWn02R+kfZ/tU1fV3WByN+XPe/+5qAJuZkzxFxg +0eoCDZdpDjqMrF/LG3WGzP13x2ZmSHwXSjlbvHKG/wMZz2Js + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0658335431036021}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0658335431036021}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939135347707443`*^9}, + CellLabel-> + "Out[515]=",ExpressionUUID->"032ba1c8-501c-48ab-9ad4-acceacd8e23e"] +}, Open ]], Cell[CellGroupData[{ @@ -8525,66 +15097,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + "In[516]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.585584738321876`*^-179\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 308, 309, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133920579224*^9}, + 2, 516, 102, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993913534802758*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +In[516]:=",ExpressionUUID->"86d8baa0-151e-476a-a7bd-9c16dcbf214b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.8484213906936793`*^-182\\\", \ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 308, 310, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058022385`*^9}, +\"", 2, 516, 103, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993913534808783*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +In[516]:=",ExpressionUUID->"cec531fe-0f88-406b-bbbf-4fc393aa669b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.069595120066673`*^-185\\\", \ \\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ 116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339205811241*^9}, +lost.\"", 2, 516, 104, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.9939135348145227`*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +In[516]:=",ExpressionUUID->"b375bd9d-c9da-4b50-96d4-82f9708f963d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058197193`*^9}, +during this calculation.\"", 2, 516, 105, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993913534819974*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +In[516]:=",ExpressionUUID->"4b957ac8-0279-49fa-b6e4-d193ae74d62c"], -Cell[BoxData["9.33220071900515`"], "Output", - CellChangeTimes->{3.9913392124888554`*^9}, +Cell[BoxData["10.666669707657078`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9, 3.9939135608060837`*^9}, CellLabel-> - "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] + "Out[516]=",ExpressionUUID->"55be23de-81d7-4a44-9656-d2f488b2e57a"] }, Open ]], Cell[CellGroupData[{ @@ -8651,68 +15227,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849547748472*^9, - 3.9918495528702526`*^9}},ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-\ -0895c02ffd8f"], + CellChangeTimes->{{3.991849547748472*^9, 3.9918495528702526`*^9}}, + CellLabel-> + "In[517]:=",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.345686913949945`*^-201\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 517, 106, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993913560833766*^9}, + CellLabel-> + "During evaluation of \ +In[517]:=",ExpressionUUID->"f28cff40-afc3-4eca-8604-710d1b2c383a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.657594741078021`*^-205\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 517, 107, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993913560838673*^9}, + CellLabel-> + "During evaluation of \ +In[517]:=",ExpressionUUID->"11c14f54-407e-43dd-891a-f6d8da44c40e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.557293404793143`*^-210\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 309, 313, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125258827`*^9}, +as a normalized machine number; precision may be lost.\"", 2, 517, 108, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993913560844852*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 314, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339212535879*^9}, - CellLabel-> - "During evaluation of \ -In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 315, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125438805`*^9}, - CellLabel-> - "During evaluation of \ -In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +In[517]:=",ExpressionUUID->"c0b245b9-83bd-477e-98d6-cb8ceedcadba"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125518837`*^9}, +during this calculation.\"", 2, 517, 109, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993913560849484*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +In[517]:=",ExpressionUUID->"10923acd-f8bf-46c7-9300-c03695fe61ec"], -Cell[BoxData["0.41157157699018565`"], "Output", - CellChangeTimes->{3.9913392196090164`*^9}, +Cell[BoxData["2.9390142535411505`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.9939135650610123`*^9}, CellLabel-> - "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] + "Out[517]=",ExpressionUUID->"7f6cea85-4ce2-4464-9f71-1f4043c26abb"] }, Open ]], Cell[CellGroupData[{ @@ -8733,8 +15313,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8779,68 +15358,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918495568340263`*^9, - 3.991849559359928*^9}},ExpressionUUID->"57976ffc-56f1-604b-8519-\ -bead95265db8"], + CellChangeTimes->{{3.9918495568340263`*^9, 3.991849559359928*^9}}, + CellLabel-> + "In[518]:=",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.345686913949945`*^-201\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 518, 110, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993913565088787*^9}, + CellLabel-> + "During evaluation of \ +In[518]:=",ExpressionUUID->"e7264742-ef3c-4ffd-b52f-87edb23d4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.657594741078021`*^-205\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 518, 111, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9939135650942*^9}, + CellLabel-> + "During evaluation of \ +In[518]:=",ExpressionUUID->"367f54aa-a5fc-4cfd-9fdd-b5515c573124"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.557293404793143`*^-210\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 310, 317, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196440163`*^9}, +as a normalized machine number; precision may be lost.\"", 2, 518, 112, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993913565099669*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 318, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196535416`*^9}, - CellLabel-> - "During evaluation of \ -In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 319, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219661541*^9}, - CellLabel-> - "During evaluation of \ -In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +In[518]:=",ExpressionUUID->"6bb271b8-5d82-4b54-a6bc-58dd3e907aa2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219670542*^9}, +during this calculation.\"", 2, 518, 113, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9939135651043997`*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +In[518]:=",ExpressionUUID->"0ca56dfc-fe35-4d8e-bac0-61d481a6c12c"], -Cell[BoxData["3.215201591157595`"], "Output", - CellChangeTimes->{3.9913392268711624`*^9}, +Cell[BoxData["36.4312804132669`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.993913569114086*^9}, CellLabel-> - "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] + "Out[518]=",ExpressionUUID->"95a59442-e242-4e4e-bc84-4e2cdf058208"] }, Open ]], Cell[CellGroupData[{ @@ -8861,8 +15444,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8907,68 +15489,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849563755764*^9, - 3.991849566543682*^9}},ExpressionUUID->"cfa37210-3ae7-3f49-b290-\ -f19508c6d2f1"], + CellChangeTimes->{{3.991849563755764*^9, 3.991849566543682*^9}}, + CellLabel-> + "In[519]:=",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.345686913949945`*^-201\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 519, 114, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.9939135691427097`*^9}, + CellLabel-> + "During evaluation of \ +In[519]:=",ExpressionUUID->"3c01985b-faf5-4433-a20d-d1d76dc89ebd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.657594741078021`*^-205\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 519, 115, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993913569147913*^9}, + CellLabel-> + "During evaluation of \ +In[519]:=",ExpressionUUID->"af49d828-af1a-4fcc-80e2-8daa7889a08c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.557293404793143`*^-210\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 311, 321, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226907137*^9}, +as a normalized machine number; precision may be lost.\"", 2, 519, 116, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993913569153154*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 322, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226917137*^9}, - CellLabel-> - "During evaluation of \ -In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 323, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269251385`*^9}, - CellLabel-> - "During evaluation of \ -In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +In[519]:=",ExpressionUUID->"bfd21384-0028-46f2-abef-2712e0b8f274"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269341373`*^9}, +during this calculation.\"", 2, 519, 117, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.9939135691578627`*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +In[519]:=",ExpressionUUID->"7fcdce36-ce4b-46a6-8735-976f92d7f9a4"], -Cell[BoxData["16.94395627212904`"], "Output", - CellChangeTimes->{3.9913392304284153`*^9}, +Cell[BoxData["10.381260815099393`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.993913571550861*^9}, CellLabel-> - "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] + "Out[519]=",ExpressionUUID->"4cd9d0e7-d572-4982-9cab-af05f067659e"] }, Open ]], Cell[CellGroupData[{ @@ -8977,20 +15563,31 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849569404436*^9, - 3.991849573855135*^9}},ExpressionUUID->"7457b456-6d32-5b44-9679-\ -346c5f5ac532"], - -Cell[BoxData["0.05576142449710889`"], "Output", - CellChangeTimes->{3.9913392304624157`*^9}, + CellChangeTimes->{{3.991849569404436*^9, 3.991849573855135*^9}}, CellLabel-> - "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] + "In[520]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], + +Cell[BoxData["0.15112608211445294`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.993913571578285*^9}, + CellLabel-> + "Out[520]=",ExpressionUUID->"cac57ee5-82d9-4d9b-ab5f-6695c1ebcc51"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.993910336648575*^9, 3.993910341149803*^9}}, + CellLabel-> + "In[521]:=",ExpressionUUID->"4a456bb3-2fb7-49dd-88c6-de6421feddfc"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.993911136039036*^9, + 3.993911156903111*^9}},ExpressionUUID->"931707c2-fff5-48e5-9290-\ +a58fa50890b4"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +WindowSize->{714, 288}, +WindowMargins->{{-3, Automatic}, {297, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" ] @@ -9005,361 +15602,642 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 147, 4, 28, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[704, 26, 154, 3, 28, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], -Cell[861, 31, 149, 4, 28, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], -Cell[1013, 37, 152, 3, 28, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ -Cell[1190, 44, 1301, 43, 113, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[2494, 89, 178, 3, 32, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[576, 22, 428, 8, 29, "Input",ExpressionUUID->"e2613019-1cd1-4448-b93f-d9e947ba1863"], +Cell[1007, 32, 424, 7, 33, "Output",ExpressionUUID->"d4fd105c-488d-48db-b763-a57b5c481649"] }, Open ]], Cell[CellGroupData[{ -Cell[2709, 97, 910, 31, 56, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[3622, 130, 175, 3, 32, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[1468, 44, 251, 5, 29, "Input",ExpressionUUID->"443e9bcf-7ea8-4c60-b9dd-9b2a8fb814b9"], +Cell[1722, 51, 427, 7, 33, "Output",ExpressionUUID->"1a9ea5cd-87c2-40b2-9c38-7bc78fd2c0c5"] }, Open ]], Cell[CellGroupData[{ -Cell[3834, 138, 885, 30, 56, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[2186, 63, 225, 5, 29, "Input",ExpressionUUID->"0440c475-241f-431d-a534-e7681d26cb0a"], +Cell[2414, 70, 450, 8, 33, "Output",ExpressionUUID->"f72af903-72ad-49f7-b876-be07a6a28860"] }, Open ]], Cell[CellGroupData[{ -Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[5497, 199, 173, 3, 32, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[2901, 83, 180, 4, 29, "Input",ExpressionUUID->"ef1d6164-8176-48b6-850c-9d997dda1516"], +Cell[3084, 89, 426, 7, 33, "Output",ExpressionUUID->"5f815c8b-ff3b-435d-97be-e18947ab8f10"] }, Open ]], Cell[CellGroupData[{ -Cell[5707, 207, 623, 21, 52, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[6333, 230, 170, 3, 32, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[3547, 101, 262, 8, 42, "Input",ExpressionUUID->"41f05153-1908-4f00-a841-ae32c5084d77"], +Cell[3812, 111, 437, 7, 33, "Output",ExpressionUUID->"7a9c001c-3924-42d7-bc5a-54b5337189c1"] }, Open ]], Cell[CellGroupData[{ -Cell[6540, 238, 170, 5, 56, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[6713, 245, 173, 3, 32, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[4286, 123, 136, 3, 29, "Input",ExpressionUUID->"41549578-bfdd-4c63-919a-ca83e6cfaefc"], +Cell[4425, 128, 429, 7, 33, "Output",ExpressionUUID->"bafbd14c-ca5e-4a37-a07c-0553e416ccb2"] }, Open ]], Cell[CellGroupData[{ -Cell[6923, 253, 170, 5, 55, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[7096, 260, 170, 3, 70, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[4891, 140, 281, 7, 29, "Input",ExpressionUUID->"5709b6e1-d7b3-4886-a917-560d39a0bd84"], +Cell[5175, 149, 436, 7, 33, "Output",ExpressionUUID->"60667043-fdb9-4519-afb3-9c89e6ca31e3"] }, Open ]], Cell[CellGroupData[{ -Cell[7303, 268, 181, 5, 70, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[7487, 275, 171, 3, 70, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[5648, 161, 262, 8, 29, "Input",ExpressionUUID->"a0107a62-7ec2-409a-b807-ea94b3cf0630"], +Cell[5913, 171, 432, 7, 33, "Output",ExpressionUUID->"51e3025d-5121-4acc-a584-c09be5affe5d"] }, Open ]], Cell[CellGroupData[{ -Cell[7695, 283, 181, 5, 70, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[7879, 290, 173, 3, 70, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[6382, 183, 231, 5, 29, "Input",ExpressionUUID->"636ac2f6-3024-432d-b163-bcf5b0a8ed7a"], +Cell[6616, 190, 405, 7, 33, "Output",ExpressionUUID->"61bb687b-7628-47f0-ba8d-cc0dcb08bdec"] }, Open ]], Cell[CellGroupData[{ -Cell[8089, 298, 6055, 185, 70, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[14147, 485, 175, 3, 70, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[7058, 202, 230, 5, 29, "Input",ExpressionUUID->"7b7fb43d-a28c-43a3-b61a-23f6168edf15"], +Cell[7291, 209, 397, 7, 33, "Output",ExpressionUUID->"6a8cd77a-0723-4fdd-befb-25887a9176ff"] }, Open ]], Cell[CellGroupData[{ -Cell[14359, 493, 368, 9, 70, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[14730, 504, 170, 3, 70, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[7725, 221, 133, 3, 29, "Input",ExpressionUUID->"b9037d32-08c5-4b43-b77b-c223e453cddb"], +Cell[7861, 226, 422, 7, 33, "Output",ExpressionUUID->"88526cba-413c-4e8f-a247-63b7aaaa582a"] }, Open ]], Cell[CellGroupData[{ -Cell[14937, 512, 6122, 187, 70, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[21062, 701, 175, 3, 70, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[8320, 238, 133, 3, 29, "Input",ExpressionUUID->"fcbeb936-c4b5-4282-b9a2-fe0786c368b1"], +Cell[8456, 243, 422, 7, 33, "Output",ExpressionUUID->"2b687b6b-552c-4a6b-ad1e-afbd230ca4ed"] }, Open ]], Cell[CellGroupData[{ -Cell[21274, 709, 368, 9, 70, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[21645, 720, 172, 3, 70, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[8915, 255, 561, 20, 79, "Input",ExpressionUUID->"417e4130-f2b1-4e39-b540-9674d94f7503"], +Cell[9479, 277, 440, 7, 33, "Output",ExpressionUUID->"32b8ffec-a4e8-45a2-a216-40ca76ffe4be"] }, Open ]], Cell[CellGroupData[{ -Cell[21854, 728, 2663, 88, 70, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[24520, 818, 173, 3, 70, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[9956, 289, 561, 20, 79, "Input",ExpressionUUID->"b4aa75b6-ed33-41c9-b0cd-b743a5f94ef8"], +Cell[10520, 311, 437, 7, 33, "Output",ExpressionUUID->"179ec3e0-52a4-4463-92d2-a771f3308974"] }, Open ]], Cell[CellGroupData[{ -Cell[24730, 826, 2603, 85, 70, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[27336, 913, 172, 3, 70, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[10994, 323, 1496, 49, 79, "Input",ExpressionUUID->"df14f441-4a87-4295-a720-81ccd5a32dae"], +Cell[12493, 374, 436, 7, 33, "Output",ExpressionUUID->"5ec68db5-7cae-42cb-a223-7b33cf0f9825"] }, Open ]], Cell[CellGroupData[{ -Cell[27545, 921, 3712, 118, 70, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[31260, 1041, 174, 3, 70, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] -}, Open ]], -Cell[31449, 1047, 138, 3, 70, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], -Cell[CellGroupData[{ -Cell[31612, 1054, 2052, 59, 70, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[33667, 1115, 524, 11, 70, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], -Cell[34194, 1128, 526, 11, 70, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], -Cell[34723, 1141, 530, 11, 70, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], -Cell[35256, 1154, 455, 10, 70, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], -Cell[35714, 1166, 172, 3, 70, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[12966, 386, 1335, 45, 79, "Input",ExpressionUUID->"fb1bf839-fed5-405c-bd20-b6c9348412b6"], +Cell[14304, 433, 452, 8, 33, "Output",ExpressionUUID->"fce84782-b694-483c-8ffe-91cb0ed7b14f"] }, Open ]], Cell[CellGroupData[{ -Cell[35923, 1174, 2054, 59, 70, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[37980, 1235, 524, 11, 70, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], -Cell[38507, 1248, 526, 11, 70, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], -Cell[39036, 1261, 528, 11, 70, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], -Cell[39567, 1274, 456, 10, 70, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], -Cell[40026, 1286, 170, 3, 70, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[14793, 446, 1335, 45, 79, "Input",ExpressionUUID->"8373afe2-afec-489f-8564-39b14c4e3251"], +Cell[16131, 493, 457, 8, 33, "Output",ExpressionUUID->"03369303-0f9a-496b-b644-da890b74728b"] }, Open ]], Cell[CellGroupData[{ -Cell[40233, 1294, 1938, 53, 70, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[42174, 1349, 19981, 375, 70, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +Cell[16625, 506, 1496, 49, 79, "Input",ExpressionUUID->"ecd52cbc-ac4b-46c8-9f6d-5b532e60bc36"], +Cell[18124, 557, 432, 7, 33, "Output",ExpressionUUID->"8295c406-bcd4-426c-8f3a-94863916736a"] }, Open ]], Cell[CellGroupData[{ -Cell[62192, 1729, 2092, 60, 70, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[64287, 1791, 490, 11, 70, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], -Cell[64780, 1804, 493, 11, 70, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], -Cell[65276, 1817, 508, 11, 70, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], -Cell[65787, 1830, 456, 10, 70, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], -Cell[66246, 1842, 61603, 1057, 70, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] -}, Open ]], -Cell[127864, 2902, 232, 6, 70, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[128099, 2910, 209, 5, 70, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], -Cell[CellGroupData[{ -Cell[128333, 2919, 217, 7, 70, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[128553, 2928, 169, 3, 70, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[18593, 569, 135, 3, 29, "Input",ExpressionUUID->"f9e1f2f8-62ca-48cc-a15b-da24067d61ee"], +Cell[18731, 574, 423, 7, 33, "Output",ExpressionUUID->"6f3c7896-8947-4195-a0f4-f721808fb326"] }, Open ]], Cell[CellGroupData[{ -Cell[128759, 2936, 1816, 53, 70, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[130578, 2991, 502, 11, 70, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], -Cell[131083, 3004, 506, 11, 70, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], -Cell[131592, 3017, 509, 11, 70, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], -Cell[132104, 3030, 456, 10, 70, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], -Cell[132563, 3042, 28560, 514, 70, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +Cell[19191, 586, 137, 3, 29, "Input",ExpressionUUID->"e24330f7-97a2-461b-a8b4-b8973bc9a75a"], +Cell[19331, 591, 423, 7, 33, "Output",ExpressionUUID->"6d31738c-f199-4c93-9a6a-236c16f13995"] }, Open ]], Cell[CellGroupData[{ -Cell[161160, 3561, 1616, 48, 70, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[162779, 3611, 576, 12, 70, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], -Cell[163358, 3625, 582, 12, 70, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], -Cell[163943, 3639, 584, 12, 70, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], -Cell[164530, 3653, 458, 10, 70, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], -Cell[164991, 3665, 170, 3, 70, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[19791, 603, 138, 3, 29, "Input",ExpressionUUID->"011c1e33-c606-4918-88c9-27d634a13cba"], +Cell[19932, 608, 429, 7, 33, "Output",ExpressionUUID->"9c81f793-174e-4d73-894f-eabad6bf8aa6"] }, Open ]], Cell[CellGroupData[{ -Cell[165198, 3673, 2247, 64, 70, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[167448, 3739, 522, 11, 70, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], -Cell[167973, 3752, 526, 11, 70, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], -Cell[168502, 3765, 528, 11, 70, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], -Cell[169033, 3778, 458, 10, 70, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], -Cell[169494, 3790, 175, 3, 70, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[20398, 620, 223, 5, 29, "Input",ExpressionUUID->"6be913a8-c54f-488d-8d90-c7271ff8c2de"], +Cell[20624, 627, 434, 8, 33, "Output",ExpressionUUID->"420596df-c0fc-4bd7-9d6f-bc679216ad2c"] }, Open ]], Cell[CellGroupData[{ -Cell[169706, 3798, 2221, 64, 70, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[171930, 3864, 522, 11, 70, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], -Cell[172455, 3877, 524, 11, 70, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], -Cell[172982, 3890, 528, 11, 70, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], -Cell[173513, 3903, 458, 10, 70, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], -Cell[173974, 3915, 170, 3, 70, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +Cell[21095, 640, 138, 3, 29, "Input",ExpressionUUID->"add03edc-2776-45d5-a58f-7187a239bb40"], +Cell[21236, 645, 424, 7, 33, "Output",ExpressionUUID->"bd6ff632-d188-49b1-89b5-efeb048893f6"] }, Open ]], Cell[CellGroupData[{ -Cell[174181, 3923, 2221, 64, 70, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[176405, 3989, 524, 11, 70, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], -Cell[176932, 4002, 526, 11, 70, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], -Cell[177461, 4015, 530, 11, 70, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], -Cell[177994, 4028, 458, 10, 70, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], -Cell[178455, 4040, 171, 3, 70, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +Cell[21697, 657, 330, 6, 29, "Input",ExpressionUUID->"2fbd90d7-193f-4d04-8180-1206116ebdb2"], +Cell[22030, 665, 393, 7, 33, "Output",ExpressionUUID->"e5e42f13-5ce8-4763-bb85-89c27bbf3fd8"] }, Open ]], Cell[CellGroupData[{ -Cell[178663, 4048, 215, 6, 70, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[178881, 4056, 175, 3, 70, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] -}, Open ]], -Cell[179071, 4062, 245, 5, 70, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], -Cell[CellGroupData[{ -Cell[179341, 4071, 558, 19, 70, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[179902, 4092, 172, 3, 70, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +Cell[22460, 677, 299, 6, 29, "Input",ExpressionUUID->"fc4235bf-fadc-4690-8f0d-18f3b2200088"], +Cell[22762, 685, 423, 7, 33, "Output",ExpressionUUID->"24dbef3c-4ae3-41d7-9b31-769355b412ff"] }, Open ]], Cell[CellGroupData[{ -Cell[180111, 4100, 170, 5, 70, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[180284, 4107, 172, 3, 70, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +Cell[23222, 697, 223, 5, 29, "Input",ExpressionUUID->"5f74ce5d-7cfb-4ba8-aaf8-5d83cab854b9"], +Cell[23448, 704, 421, 7, 33, "Output",ExpressionUUID->"10cff456-b828-4002-9096-a1ef2322e773"] }, Open ]], Cell[CellGroupData[{ -Cell[180493, 4115, 181, 5, 70, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[180677, 4122, 172, 3, 70, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +Cell[23906, 716, 354, 11, 42, "Input",ExpressionUUID->"9fa1cd0a-4306-4258-afa3-6065345a4359"], +Cell[24263, 729, 443, 7, 33, "Output",ExpressionUUID->"33004a9b-800c-4fff-bb82-fb359bbd1c9b"] }, Open ]], Cell[CellGroupData[{ -Cell[180886, 4130, 6055, 185, 70, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[186944, 4317, 174, 3, 70, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +Cell[24743, 741, 354, 11, 42, "Input",ExpressionUUID->"09c01555-6043-4676-bd39-e31b19457e4b"], +Cell[25100, 754, 450, 8, 33, "Output",ExpressionUUID->"9b490649-9d84-4d5b-8157-f49fff47fe6d"] }, Open ]], Cell[CellGroupData[{ -Cell[187155, 4325, 368, 9, 70, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[187526, 4336, 173, 3, 70, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +Cell[25587, 767, 998, 27, 81, "Input",ExpressionUUID->"69f69ce7-bfb8-4f66-ba9e-f95a6d86dc06"], +Cell[26588, 796, 435, 7, 33, "Output",ExpressionUUID->"a263013c-a933-46e6-89ad-22e7826fe2e3"] }, Open ]], Cell[CellGroupData[{ -Cell[187736, 4344, 6122, 187, 70, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[193861, 4533, 175, 3, 70, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +Cell[27060, 808, 203, 4, 29, "Input",ExpressionUUID->"2ba5902a-1951-4847-91cb-b0923cd2fa14"], +Cell[27266, 814, 422, 7, 33, "Output",ExpressionUUID->"b109a9cd-f642-4657-b4fc-b30b971cac78"] }, Open ]], Cell[CellGroupData[{ -Cell[194073, 4541, 368, 9, 70, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[194444, 4552, 170, 3, 70, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +Cell[27725, 826, 333, 6, 29, "Input",ExpressionUUID->"db3c1156-4ab5-445a-93e3-5e6eb64b0af5"], +Cell[28061, 834, 402, 7, 33, "Output",ExpressionUUID->"b2fbf44f-506d-44e8-9544-1867ac6550b2"] +}, Open ]], +Cell[28478, 844, 177, 3, 29, "Input",ExpressionUUID->"5931bbf5-181e-415f-82d2-c1c2cb0e608a"], +Cell[CellGroupData[{ +Cell[28680, 851, 333, 6, 29, "Input",ExpressionUUID->"bd268473-bc46-4773-9997-e67daff24693"], +Cell[29016, 859, 400, 7, 33, "Output",ExpressionUUID->"f891d17f-6856-46a0-b060-d5a4704e4ab2"] +}, Open ]], +Cell[29431, 869, 177, 3, 29, "Input",ExpressionUUID->"972ec9a7-2100-480e-904a-88a4be38cc23"], +Cell[CellGroupData[{ +Cell[29633, 876, 334, 6, 29, "Input",ExpressionUUID->"aa1e39a9-2135-47d8-a0b5-63b872d3c5ae"], +Cell[29970, 884, 399, 7, 33, "Output",ExpressionUUID->"69bb5a1b-11ec-44f4-bd72-b6479f6f28cb"] +}, Open ]], +Cell[30384, 894, 177, 3, 29, "Input",ExpressionUUID->"9f0b83ba-fe4d-4494-b58a-252ef815fdf2"], +Cell[CellGroupData[{ +Cell[30586, 901, 356, 6, 29, "Input",ExpressionUUID->"d7bec374-17fb-47a0-a3a1-78c5a8fef486"], +Cell[30945, 909, 401, 7, 33, "Output",ExpressionUUID->"2d4fc780-da15-4d36-985b-a37e7dd5f0b3"] +}, Open ]], +Cell[31361, 919, 175, 3, 29, "Input",ExpressionUUID->"337543ae-832b-4d9b-bfc6-7bcb457ba7e6"], +Cell[CellGroupData[{ +Cell[31561, 926, 304, 6, 29, "Input",ExpressionUUID->"0a708962-e9f1-4707-b1f9-836dce9e0193"], +Cell[31868, 934, 397, 7, 33, "Output",ExpressionUUID->"b81f3211-78b6-4bd3-9a2e-9e7fb7aa0b0d"] +}, Open ]], +Cell[32280, 944, 175, 3, 29, "Input",ExpressionUUID->"969e4461-b550-4fcd-9506-8fa9ab11c4a4"], +Cell[CellGroupData[{ +Cell[32480, 951, 308, 6, 29, "Input",ExpressionUUID->"8a5a4a0c-3c8d-43f6-bc79-b05e89692fa2"], +Cell[32791, 959, 406, 7, 33, "Output",ExpressionUUID->"22972986-ffaf-43d9-8331-1203e6e77faa"] +}, Open ]], +Cell[33212, 969, 177, 3, 29, "Input",ExpressionUUID->"d562173a-f871-47b4-b1cc-e4805c0d6d5a"], +Cell[CellGroupData[{ +Cell[33414, 976, 311, 6, 29, "Input",ExpressionUUID->"f93cc465-f599-4745-bcbf-a8a51fd7a1a9"], +Cell[33728, 984, 397, 7, 33, "Output",ExpressionUUID->"9c6e512b-4de4-46ef-8ab2-e0215070a0c1"] +}, Open ]], +Cell[34140, 994, 176, 3, 29, "Input",ExpressionUUID->"c7af8400-6139-42fe-a5e8-672bdba2cdf2"], +Cell[CellGroupData[{ +Cell[34341, 1001, 278, 5, 29, "Input",ExpressionUUID->"89009734-4da1-455a-b750-75ef5b7b38c4"], +Cell[34622, 1008, 404, 7, 33, "Output",ExpressionUUID->"63f4dbf2-0f15-4a23-8838-ba96610c34f3"] +}, Open ]], +Cell[35041, 1018, 179, 3, 29, "Input",ExpressionUUID->"6e419f8d-b777-4b6c-8b26-1bc47e16689c"], +Cell[CellGroupData[{ +Cell[35245, 1025, 19813, 486, 1844, "Input",ExpressionUUID->"59c6a01e-7abe-4a0d-b5ab-eddbba5a8883"], +Cell[55061, 1513, 452, 8, 33, "Output",ExpressionUUID->"74b5eeb9-8895-4640-9e7f-b97f932738de"] }, Open ]], Cell[CellGroupData[{ -Cell[194651, 4560, 2663, 88, 70, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[197317, 4650, 173, 3, 70, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +Cell[55550, 1526, 19752, 490, 1981, "Input",ExpressionUUID->"9fe9fa3a-9aad-4efe-9673-a425841a5d45"], +Cell[75305, 2018, 436, 7, 33, "Output",ExpressionUUID->"225c2c94-b8fe-47b2-aa85-cd1a95a70080"] }, Open ]], Cell[CellGroupData[{ -Cell[197527, 4658, 2603, 85, 70, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[200133, 4745, 172, 3, 70, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +Cell[75778, 2030, 19752, 484, 1970, "Input",ExpressionUUID->"ef1feabe-3968-464c-844d-1e5d155c2fa3"], +Cell[95533, 2516, 450, 8, 33, "Output",ExpressionUUID->"3fe860d3-0a7c-452c-94a8-90d5b40fe390"] }, Open ]], Cell[CellGroupData[{ -Cell[200342, 4753, 3712, 118, 70, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[204057, 4873, 174, 3, 70, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +Cell[96020, 2529, 22538, 554, 2217, "Input",ExpressionUUID->"1e581ee0-054b-46d2-8c5a-9bb5982d598c"], +Cell[118561, 3085, 459, 8, 33, "Output",ExpressionUUID->"6a9faec9-eed0-4e11-a587-a6ac3ae026a8"] }, Open ]], Cell[CellGroupData[{ -Cell[204268, 4881, 2052, 59, 70, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[206323, 4942, 574, 12, 70, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], -Cell[206900, 4956, 580, 12, 70, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], -Cell[207483, 4970, 582, 12, 70, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], -Cell[208068, 4984, 456, 10, 70, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], -Cell[208527, 4996, 171, 3, 70, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +Cell[119057, 3098, 22539, 554, 2254, "Input",ExpressionUUID->"5583bf70-cddf-4d50-81b6-7778328ce6a0"], +Cell[141599, 3654, 459, 8, 33, "Output",ExpressionUUID->"14eff3a8-4161-422c-a3a6-8c988877b3f4"] }, Open ]], Cell[CellGroupData[{ -Cell[208735, 5004, 2054, 59, 70, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[210792, 5065, 574, 12, 70, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], -Cell[211369, 5079, 578, 12, 70, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], -Cell[211950, 5093, 582, 12, 70, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], -Cell[212535, 5107, 458, 10, 70, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], -Cell[212996, 5119, 169, 3, 70, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +Cell[142095, 3667, 25495, 627, 2501, "Input",ExpressionUUID->"d4a9e022-861f-44b4-abb0-cf2c42b811ab"], +Cell[167593, 4296, 452, 8, 33, "Output",ExpressionUUID->"c6577197-bfa6-42df-a82d-96a935534840"] }, Open ]], Cell[CellGroupData[{ -Cell[213202, 5127, 2030, 55, 70, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[215235, 5184, 20326, 381, 70, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] -}, Open ]], -Cell[235576, 5568, 2144, 61, 70, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[237723, 5631, 138, 3, 70, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], -Cell[CellGroupData[{ -Cell[237886, 5638, 1616, 48, 70, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[239505, 5688, 592, 12, 70, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], -Cell[240100, 5702, 597, 12, 70, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], -Cell[240700, 5716, 599, 12, 70, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], -Cell[241302, 5730, 458, 10, 70, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], -Cell[241763, 5742, 172, 3, 70, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +Cell[168082, 4309, 134, 3, 29, "Input",ExpressionUUID->"07a57a47-78cf-4e94-a219-34714ea7078f"], +Cell[168219, 4314, 418, 7, 33, "Output",ExpressionUUID->"4eb78385-cbe7-4eaf-8a71-e49e4baf4bd4"] }, Open ]], Cell[CellGroupData[{ -Cell[241972, 5750, 2249, 64, 70, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[244224, 5816, 576, 12, 70, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], -Cell[244803, 5830, 580, 12, 70, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], -Cell[245386, 5844, 582, 12, 70, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], -Cell[245971, 5858, 456, 10, 70, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], -Cell[246430, 5870, 171, 3, 70, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +Cell[168674, 4326, 134, 3, 29, "Input",ExpressionUUID->"9f52ceaf-b908-44ad-953a-e2910cf1edf0"], +Cell[168811, 4331, 419, 7, 33, "Output",ExpressionUUID->"6e664c6f-c830-44a4-a8b7-065ffaffac3f"] }, Open ]], Cell[CellGroupData[{ -Cell[246638, 5878, 2223, 64, 70, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[248864, 5944, 574, 12, 70, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], -Cell[249441, 5958, 578, 12, 70, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], -Cell[250022, 5972, 580, 12, 70, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], -Cell[250605, 5986, 458, 10, 70, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], -Cell[251066, 5998, 173, 3, 70, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +Cell[169267, 4343, 1148, 40, 107, "Input",ExpressionUUID->"b3b33961-ae3b-4338-9b97-8b1c115e81a8"], +Cell[170418, 4385, 436, 7, 33, "Output",ExpressionUUID->"56155f4f-e685-4a1a-b21c-af1796a094e1"] }, Open ]], Cell[CellGroupData[{ -Cell[251276, 6006, 2221, 64, 70, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[253500, 6072, 574, 12, 70, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], -Cell[254077, 6086, 578, 12, 70, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], -Cell[254658, 6100, 582, 12, 70, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], -Cell[255243, 6114, 455, 10, 70, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], -Cell[255701, 6126, 170, 3, 70, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +Cell[170891, 4397, 1045, 36, 107, "Input",ExpressionUUID->"cb9e573b-77e1-4f2c-a160-b65bdb479ee7"], +Cell[171939, 4435, 449, 8, 33, "Output",ExpressionUUID->"380594f3-4c91-4919-9dbd-d6d3ca4a3c8e"] }, Open ]], Cell[CellGroupData[{ -Cell[255908, 6134, 215, 6, 70, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[256126, 6142, 174, 3, 70, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] -}, Open ]], -Cell[256315, 6148, 249, 5, 70, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], -Cell[CellGroupData[{ -Cell[256589, 6157, 558, 19, 70, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[257150, 6178, 169, 3, 70, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +Cell[172425, 4448, 1148, 40, 107, "Input",ExpressionUUID->"70992e07-ab8c-4ce5-b358-14db4a13dc00"], +Cell[173576, 4490, 442, 7, 33, "Output",ExpressionUUID->"08b93e62-8b44-4cac-9f59-63efe672ea9a"] }, Open ]], Cell[CellGroupData[{ -Cell[257356, 6186, 170, 5, 70, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[257529, 6193, 173, 3, 70, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +Cell[174055, 4502, 112, 2, 29, "Input",ExpressionUUID->"384b135b-4522-4b24-9059-13c7f46e631d"], +Cell[174170, 4506, 439, 7, 33, "Output",ExpressionUUID->"705d0161-5a4c-4fef-9632-b8a55b372fc2"] }, Open ]], Cell[CellGroupData[{ -Cell[257739, 6201, 181, 5, 70, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[257923, 6208, 173, 3, 70, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +Cell[174646, 4518, 112, 2, 29, "Input",ExpressionUUID->"a05eb3c9-d58f-40f8-a39c-a1ab424f5b02"], +Cell[174761, 4522, 453, 8, 33, "Output",ExpressionUUID->"8c2e52eb-a0b0-4b53-a18c-61cefd6622ff"] }, Open ]], Cell[CellGroupData[{ -Cell[258133, 6216, 6055, 185, 70, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[264191, 6403, 174, 3, 70, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +Cell[175251, 4535, 112, 2, 29, "Input",ExpressionUUID->"c36cbbf2-2585-4db0-b38c-380a55b33acc"], +Cell[175366, 4539, 455, 8, 33, "Output",ExpressionUUID->"875db7a7-09e3-4adb-bc2b-b845448d0299"] }, Open ]], Cell[CellGroupData[{ -Cell[264402, 6411, 368, 9, 70, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[264773, 6422, 172, 3, 70, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +Cell[175858, 4552, 112, 2, 29, "Input",ExpressionUUID->"dbe59e5f-37d6-4087-ab77-dc1c6394dac8"], +Cell[175973, 4556, 438, 7, 33, "Output",ExpressionUUID->"7752c35a-9089-4894-bdb4-2a40f08fb54a"] }, Open ]], Cell[CellGroupData[{ -Cell[264982, 6430, 6122, 187, 70, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[271107, 6619, 172, 3, 70, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +Cell[176448, 4568, 111, 2, 29, "Input",ExpressionUUID->"f0adf480-5480-4750-98be-1b6f2161d1de"], +Cell[176562, 4572, 438, 7, 33, "Output",ExpressionUUID->"2d5f30a1-d71c-470a-8f0e-35635667a39a"] }, Open ]], Cell[CellGroupData[{ -Cell[271316, 6627, 368, 9, 70, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[271687, 6638, 170, 3, 70, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +Cell[177037, 4584, 111, 2, 29, "Input",ExpressionUUID->"8936e7fb-c178-4ca6-9a68-4e0919efc614"], +Cell[177151, 4588, 437, 7, 33, "Output",ExpressionUUID->"8fc2108c-3aeb-4560-a70c-5f732167be56"] }, Open ]], Cell[CellGroupData[{ -Cell[271894, 6646, 2663, 88, 70, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[274560, 6736, 173, 3, 70, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +Cell[177625, 4600, 501, 17, 55, "Input",ExpressionUUID->"2e930878-5f0e-46e2-bb48-74486ca20414"], +Cell[178129, 4619, 449, 8, 33, "Output",ExpressionUUID->"917126ff-22c4-48e1-bf6b-9ceb1cb0d366"] }, Open ]], Cell[CellGroupData[{ -Cell[274770, 6744, 2603, 85, 70, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[277376, 6831, 172, 3, 70, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +Cell[178615, 4632, 501, 17, 55, "Input",ExpressionUUID->"2b862371-4e0b-462d-995c-2f10996cce70"], +Cell[179119, 4651, 447, 8, 33, "Output",ExpressionUUID->"9395d7ee-33ea-4256-8021-ac9b1d7dadbb"] }, Open ]], Cell[CellGroupData[{ -Cell[277585, 6839, 3712, 118, 70, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[281300, 6959, 172, 3, 70, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +Cell[179603, 4664, 1792, 61, 183, "Input",ExpressionUUID->"7b4a10f4-9a7e-4b72-a748-57082eabd0e7"], +Cell[181398, 4727, 435, 7, 33, "Output",ExpressionUUID->"b43b4cc0-44e4-459a-9dc5-9836ed23d803"] }, Open ]], Cell[CellGroupData[{ -Cell[281509, 6967, 2052, 59, 70, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[283564, 7028, 573, 12, 70, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], -Cell[284140, 7042, 573, 12, 70, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], -Cell[284716, 7056, 579, 12, 70, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], -Cell[285298, 7070, 458, 10, 70, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], -Cell[285759, 7082, 170, 3, 70, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +Cell[181870, 4739, 1105, 37, 131, "Input",ExpressionUUID->"08e21e0d-42c2-40a7-be13-a153ded206f8"], +Cell[182978, 4778, 452, 8, 33, "Output",ExpressionUUID->"0701c1de-d94d-434a-aa79-e2329a461e2c"] }, Open ]], Cell[CellGroupData[{ -Cell[285966, 7090, 2052, 59, 70, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[288021, 7151, 573, 12, 70, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], -Cell[288597, 7165, 575, 12, 70, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], -Cell[289175, 7179, 579, 12, 70, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], -Cell[289757, 7193, 458, 10, 70, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], -Cell[290218, 7205, 169, 3, 70, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +Cell[183467, 4791, 1822, 62, 160, "Input",ExpressionUUID->"9a2d7b0b-790a-4058-b496-aa10960c048a"], +Cell[185292, 4855, 436, 7, 33, "Output",ExpressionUUID->"d11cc552-4d80-42b6-bca4-296644cafc73"] }, Open ]], Cell[CellGroupData[{ -Cell[290424, 7213, 2028, 55, 70, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[292455, 7270, 20296, 381, 70, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +Cell[185765, 4867, 1635, 54, 162, "Input",ExpressionUUID->"29897a30-ec4c-4955-8c6b-9ba83d18963b"], +Cell[187403, 4923, 438, 7, 33, "Output",ExpressionUUID->"5c2d0a94-4c49-43d5-b908-41b61b4a1d78"] }, Open ]], Cell[CellGroupData[{ -Cell[312788, 7656, 2146, 61, 70, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[314937, 7719, 500, 11, 70, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], -Cell[315440, 7732, 505, 11, 70, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], -Cell[315948, 7745, 509, 11, 70, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], -Cell[316460, 7758, 458, 10, 70, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], -Cell[316921, 7770, 39609, 697, 70, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] -}, Open ]], -Cell[356545, 8470, 209, 5, 70, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], -Cell[CellGroupData[{ -Cell[356779, 8479, 1616, 48, 70, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[358398, 8529, 589, 12, 70, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], -Cell[358990, 8543, 595, 12, 70, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], -Cell[359588, 8557, 596, 12, 70, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], -Cell[360187, 8571, 458, 10, 70, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], -Cell[360648, 8583, 171, 3, 70, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +Cell[187878, 4935, 1635, 54, 162, "Input",ExpressionUUID->"fbb25ab1-9afb-43d7-a82a-6f344966c492"], +Cell[189516, 4991, 435, 7, 33, "Output",ExpressionUUID->"91f58316-1aa1-4662-98b2-782aed6190e3"] }, Open ]], Cell[CellGroupData[{ -Cell[360856, 8591, 2249, 64, 70, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[363108, 8657, 573, 12, 70, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], -Cell[363684, 8671, 573, 12, 70, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], -Cell[364260, 8685, 579, 12, 70, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], -Cell[364842, 8699, 458, 10, 70, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], -Cell[365303, 8711, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +Cell[189988, 5003, 230, 5, 29, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[190221, 5010, 238, 5, 33, "Output",ExpressionUUID->"8907ee7e-d5d0-402d-b24f-0805f550a387"] +}, Open ]], +Cell[190474, 5018, 177, 3, 29, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], +Cell[CellGroupData[{ +Cell[190676, 5025, 233, 5, 29, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[190912, 5032, 236, 5, 33, "Output",ExpressionUUID->"42a92faf-9c62-4d94-bf9a-37a8880cef45"] +}, Open ]], +Cell[191163, 5040, 175, 3, 29, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], +Cell[CellGroupData[{ +Cell[191363, 5047, 1301, 43, 111, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[192667, 5092, 274, 5, 33, "Output",ExpressionUUID->"86afbdc5-4961-4d4c-a1a2-307ff9ba0073"] }, Open ]], Cell[CellGroupData[{ -Cell[365514, 8719, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[367738, 8785, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], -Cell[368314, 8799, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], -Cell[368892, 8813, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], -Cell[369472, 8827, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], -Cell[369931, 8839, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +Cell[192978, 5102, 933, 31, 96, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[193914, 5135, 273, 5, 33, "Output",ExpressionUUID->"744b8b7e-dede-44bd-ab11-9b675b375848"] }, Open ]], Cell[CellGroupData[{ -Cell[370140, 8847, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[372362, 8913, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], -Cell[372936, 8927, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], -Cell[373512, 8941, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], -Cell[374094, 8955, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], -Cell[374555, 8967, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +Cell[194224, 5145, 908, 30, 55, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[195135, 5177, 280, 5, 33, "Output",ExpressionUUID->"41b86a86-0ea6-421b-9c59-c2b49b287042"] }, Open ]], Cell[CellGroupData[{ -Cell[374764, 8975, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[374978, 8983, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +Cell[195452, 5187, 558, 19, 51, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[196013, 5208, 272, 5, 33, "Output",ExpressionUUID->"a3edd8e1-9378-47d9-a8e7-5c608ced1558"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196322, 5218, 623, 21, 51, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[196948, 5241, 271, 5, 33, "Output",ExpressionUUID->"85912d8c-219e-4780-9dda-21fec721e177"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197256, 5251, 170, 5, 55, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[197429, 5258, 268, 5, 33, "Output",ExpressionUUID->"e4f48cd1-7fe3-4fdb-afda-d6e0640adf89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197734, 5268, 170, 5, 54, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[197907, 5275, 266, 5, 33, "Output",ExpressionUUID->"9e2bce8d-f46b-4c70-af11-d313cc4659e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198210, 5285, 181, 5, 43, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[198394, 5292, 267, 5, 33, "Output",ExpressionUUID->"a011ca80-5ac6-459d-b1c5-2215e8b8746b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198698, 5302, 181, 5, 43, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[198882, 5309, 271, 5, 33, "Output",ExpressionUUID->"917c2e23-2ba6-4cca-968f-ad1b099c6b04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199190, 5319, 6055, 185, 474, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[205248, 5506, 274, 5, 33, "Output",ExpressionUUID->"1111cc34-f2ab-4265-9748-78c2ecc3044d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205559, 5516, 410, 10, 57, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[205972, 5528, 316, 6, 49, "Output",ExpressionUUID->"6cc60b67-f232-4393-bbdb-adcb27d9062f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206325, 5539, 6122, 187, 474, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[212450, 5728, 276, 5, 33, "Output",ExpressionUUID->"fecff830-c8c8-4e89-88c4-afe64d8252ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212763, 5738, 368, 9, 41, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[213134, 5749, 268, 5, 33, "Output",ExpressionUUID->"7a0e6e54-9e42-481f-85f9-c5788122f126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213439, 5759, 2663, 88, 285, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[216105, 5849, 271, 5, 33, "Output",ExpressionUUID->"dac4f234-2dbc-4f2a-b799-949302976f29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216413, 5859, 2603, 85, 211, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[219019, 5946, 271, 5, 33, "Output",ExpressionUUID->"302fc248-a86d-48cb-9b5f-539d065c4e5c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[219327, 5956, 3712, 118, 327, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[223042, 6076, 270, 5, 33, "Output",ExpressionUUID->"9eb7ae23-6a3a-4f35-8f86-8380d70bd085"] +}, Open ]], +Cell[223327, 6084, 164, 4, 29, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[223516, 6092, 2075, 59, 234, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[225594, 6153, 676, 15, 80, "Message",ExpressionUUID->"f0bb1dad-445b-4475-a3a8-befa0d983aa9"], +Cell[226273, 6170, 681, 15, 80, "Message",ExpressionUUID->"cd2b4475-19fa-42b1-977e-6337c3f6fb23"], +Cell[226957, 6187, 684, 15, 80, "Message",ExpressionUUID->"86717bb6-fa86-4853-98f1-6b7918532c06"], +Cell[227644, 6204, 571, 13, 26, "Message",ExpressionUUID->"2858be08-b268-4bc6-9336-c1e615d5226f"], +Cell[228218, 6219, 269, 5, 33, "Output",ExpressionUUID->"cd95d79e-fbb1-4fec-9587-bb0989fa8824"] +}, Open ]], +Cell[CellGroupData[{ +Cell[228524, 6229, 2077, 59, 234, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[230604, 6290, 677, 15, 80, "Message",ExpressionUUID->"6150d9fb-4b61-4cc0-837f-09ecd19c3538"], +Cell[231284, 6307, 685, 15, 80, "Message",ExpressionUUID->"eb02c601-a6dc-43b2-842d-2075e177e786"], +Cell[231972, 6324, 686, 15, 80, "Message",ExpressionUUID->"1540a7ef-14ae-420c-ade1-18a60e1ca0a8"], +Cell[232661, 6341, 571, 13, 26, "Message",ExpressionUUID->"be9e2673-20b2-41d4-a00e-ca02eaf03c21"], +Cell[233235, 6356, 266, 5, 33, "Output",ExpressionUUID->"b29b41f9-2a88-46b5-b13a-0a779e1d636b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[233538, 6366, 1961, 53, 102, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[235502, 6421, 20531, 388, 240, "Output",ExpressionUUID->"8248db6d-f345-4e71-b8bb-108b0f1831cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[256070, 6814, 2115, 60, 261, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[258188, 6876, 537, 12, 59, "Message",ExpressionUUID->"7411883c-b85a-4f53-a4e5-41252b857684"], +Cell[258728, 6890, 540, 12, 59, "Message",ExpressionUUID->"03115f23-fa88-4de7-abae-4a3b5911aae6"], +Cell[259271, 6904, 544, 12, 59, "Message",ExpressionUUID->"fa604317-63f1-41c2-9609-279e74d4e1ad"], +Cell[259818, 6918, 493, 11, 26, "Message",ExpressionUUID->"ecd63d0e-215c-4a48-b28d-0eaa5e34de40"], +Cell[260314, 6931, 22434, 417, 234, "Output",ExpressionUUID->"089a698f-7b8d-4b27-94ed-4ef88eb53843"] +}, Open ]], +Cell[CellGroupData[{ +Cell[282785, 7353, 2480, 70, 169, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[285268, 7425, 9496, 223, 242, "Output",ExpressionUUID->"b0d8f2c3-9630-462c-ab11-388fe567dc23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[294801, 7653, 232, 5, 29, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[295036, 7660, 28794, 549, 234, "Output",ExpressionUUID->"fe2a41bb-d389-4b2c-b608-6544584a8168"] +}, Open ]], +Cell[CellGroupData[{ +Cell[323867, 8214, 240, 7, 47, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[324110, 8223, 193, 3, 33, "Output",ExpressionUUID->"e1c84f90-e51e-4ff9-b91e-1ddfe0b28fbf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[324340, 8231, 1839, 53, 190, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[326182, 8286, 547, 12, 59, "Message",ExpressionUUID->"844dccdc-feaa-494f-ba5f-7f3b18313545"], +Cell[326732, 8300, 545, 12, 59, "Message",ExpressionUUID->"f2658ebb-6507-43b6-84af-2f915b6910f7"], +Cell[327280, 8314, 548, 12, 59, "Message",ExpressionUUID->"0578e9ed-b2ca-4182-be7a-2018ae49e135"], +Cell[327831, 8328, 492, 11, 26, "Message",ExpressionUUID->"6336bbf2-045b-43d3-876c-876c98bf72c6"], +Cell[328326, 8341, 23739, 438, 232, "Output",ExpressionUUID->"1350bc78-9228-4346-af21-2a2e9461692c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352102, 8784, 1616, 48, 104, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[353721, 8834, 630, 13, 80, "Message",ExpressionUUID->"7952c96c-44fa-45e4-93b4-7775eb6d6e73"], +Cell[354354, 8849, 634, 13, 80, "Message",ExpressionUUID->"299d58b3-1f7c-4da1-b159-0e9853eeb412"], +Cell[354991, 8864, 725, 15, 80, "Message",ExpressionUUID->"e049cc58-007c-4ba1-97ab-dba1578f3ff5"], +Cell[355719, 8881, 495, 11, 26, "Message",ExpressionUUID->"c390de56-6572-4cc5-87f9-842e36d21290"], +Cell[356217, 8894, 193, 3, 33, "Output",ExpressionUUID->"05d65de7-84cd-4aa5-a191-6b5cf83eae5f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356447, 8902, 2270, 64, 212, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[358720, 8968, 600, 13, 80, "Message",ExpressionUUID->"d3b01940-ab9c-4ed2-848b-683f61a906d2"], +Cell[359323, 8983, 605, 13, 80, "Message",ExpressionUUID->"2f81a440-4221-42e4-8bab-588e17fab627"], +Cell[359931, 8998, 608, 13, 80, "Message",ExpressionUUID->"e979a177-f304-4d92-9604-76529c6cff95"], +Cell[360542, 9013, 492, 11, 26, "Message",ExpressionUUID->"6f0137ba-021d-4bad-9d82-2672c3de3660"], +Cell[361037, 9026, 195, 3, 33, "Output",ExpressionUUID->"cc20d487-dc53-4dcc-bcec-ed99ba962734"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361269, 9034, 2233, 63, 212, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[363505, 9099, 602, 13, 80, "Message",ExpressionUUID->"f6c08f42-2b99-4625-8ff6-e8e9d1a52f3d"], +Cell[364110, 9114, 607, 13, 80, "Message",ExpressionUUID->"976c08a1-7dab-401f-bb01-884da17100f0"], +Cell[364720, 9129, 608, 13, 80, "Message",ExpressionUUID->"1877cd5c-9bca-4499-9ac1-964f124021e6"], +Cell[365331, 9144, 495, 11, 26, "Message",ExpressionUUID->"caab4845-2726-4a85-8ab3-9e0b2213b0e2"], +Cell[365829, 9157, 191, 3, 33, "Output",ExpressionUUID->"97cb6798-3276-4c36-b268-5fb451a16899"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366057, 9165, 2233, 63, 212, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[368293, 9230, 604, 13, 80, "Message",ExpressionUUID->"a13979e8-90b6-470c-afff-aff034754570"], +Cell[368900, 9245, 609, 13, 80, "Message",ExpressionUUID->"61f0836c-d380-4f5a-b684-d557ef29df64"], +Cell[369512, 9260, 612, 13, 80, "Message",ExpressionUUID->"f98e1c3b-5732-4f1a-bdc3-42b1fc3a81a6"], +Cell[370127, 9275, 497, 11, 26, "Message",ExpressionUUID->"647fc013-07e6-4cbd-a64b-f0062c6007bb"], +Cell[370627, 9288, 192, 3, 33, "Output",ExpressionUUID->"39a28402-2b45-4a3b-8238-c4f91fac58d7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370856, 9296, 238, 6, 46, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[371097, 9304, 194, 3, 33, "Output",ExpressionUUID->"5faf956e-3cfa-4714-815b-e2b4997e7019"] +}, Open ]], +Cell[371306, 9310, 271, 6, 29, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[371602, 9320, 558, 19, 51, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[372163, 9341, 194, 3, 33, "Output",ExpressionUUID->"417f9f58-9b55-4de0-b368-9b80141fbd93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372394, 9349, 170, 5, 55, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[372567, 9356, 194, 3, 33, "Output",ExpressionUUID->"013a28d7-8b09-4b6d-8cef-4d6efbc406fd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372798, 9364, 181, 5, 43, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[372982, 9371, 195, 3, 33, "Output",ExpressionUUID->"941c95c5-c5f0-4ae6-af4b-90d6aafe0756"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373214, 9379, 6055, 185, 474, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[379272, 9566, 197, 3, 33, "Output",ExpressionUUID->"0a366f1b-b00d-43a6-9d75-02b40151783c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379506, 9574, 368, 9, 41, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[379877, 9585, 197, 3, 33, "Output",ExpressionUUID->"b08cd80f-0acf-4296-a902-63c4118487e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380111, 9593, 6122, 187, 474, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[386236, 9782, 196, 3, 33, "Output",ExpressionUUID->"cce731a5-adc5-4bf6-a28e-3d39df4e4ef8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386469, 9790, 368, 9, 41, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[386840, 9801, 192, 3, 33, "Output",ExpressionUUID->"b45619fa-4281-469b-a0f1-854bc0f57876"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387069, 9809, 2663, 88, 285, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[389735, 9899, 194, 3, 33, "Output",ExpressionUUID->"af33a0b4-81b3-4032-9e64-4b9a84f86afb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389966, 9907, 2603, 85, 211, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[392572, 9994, 193, 3, 33, "Output",ExpressionUUID->"3c511603-5b75-4506-b90e-7d9353897a40"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392802, 10002, 3712, 118, 327, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[396517, 10122, 197, 3, 33, "Output",ExpressionUUID->"277cd595-dc78-4e20-92e4-776669eebf9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396751, 10130, 2075, 59, 234, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[398829, 10191, 600, 13, 80, "Message",ExpressionUUID->"19b7419b-99f7-44a1-a9bf-807d2bf86f0c"], +Cell[399432, 10206, 601, 13, 80, "Message",ExpressionUUID->"34681da4-23b8-4b45-b82b-8454e951e66e"], +Cell[400036, 10221, 610, 13, 80, "Message",ExpressionUUID->"0f7a6ad9-5d9d-4cac-9ce6-2cd44f0fe3de"], +Cell[400649, 10236, 493, 11, 26, "Message",ExpressionUUID->"3032e88f-6f76-4eff-91bc-158dd0b626c1"], +Cell[401145, 10249, 192, 3, 33, "Output",ExpressionUUID->"4b75a10a-90e7-437d-a4f8-e9c64eed0379"] +}, Open ]], +Cell[CellGroupData[{ +Cell[401374, 10257, 2077, 59, 234, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[403454, 10318, 600, 13, 80, "Message",ExpressionUUID->"e6f9da1d-19b9-4d17-bc7e-4c8bbdbe5c5d"], +Cell[404057, 10333, 605, 13, 80, "Message",ExpressionUUID->"55a37460-04b6-4566-9e9b-6d8218cd8fab"], +Cell[404665, 10348, 608, 13, 80, "Message",ExpressionUUID->"6a397a08-4cbd-4258-ae6f-00d0e14f8b9a"], +Cell[405276, 10363, 493, 11, 26, "Message",ExpressionUUID->"7197816a-c743-4c17-802f-838b8993968c"], +Cell[405772, 10376, 192, 3, 33, "Output",ExpressionUUID->"3db605fb-cac7-4bbe-9ecd-24e13dd2109b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[406001, 10384, 2053, 55, 151, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[408057, 10441, 20012, 376, 239, "Output",ExpressionUUID->"c4d6604f-f587-4b79-ba77-30c9888516b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[428106, 10822, 2166, 61, 261, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[430275, 10885, 518, 12, 59, "Message",ExpressionUUID->"78c4bd2c-59d4-4bf9-8c2b-1b30e1319482"], +Cell[430796, 10899, 517, 12, 59, "Message",ExpressionUUID->"7d0e1633-09cf-4b93-9a06-986f6e7ef2e1"], +Cell[431316, 10913, 521, 12, 59, "Message",ExpressionUUID->"d8f781ba-8564-4bc3-856a-bff5a22f6b5d"], +Cell[431840, 10927, 471, 11, 26, "Message",ExpressionUUID->"648644b2-ba9d-4391-a8ed-82111accb84c"], +Cell[432314, 10940, 22520, 417, 232, "Output",ExpressionUUID->"68b840fc-72a0-420c-af81-4afa3a3ac549"] +}, Open ]], +Cell[CellGroupData[{ +Cell[454871, 11362, 164, 4, 29, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[455038, 11368, 28904, 549, 232, "Output",ExpressionUUID->"833d0481-fbaa-439a-9e62-d3f29c06f0ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483979, 11922, 1616, 48, 104, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[485598, 11972, 727, 15, 80, "Message",ExpressionUUID->"16310b94-0d43-431a-ac4c-a56fdb4d58f8"], +Cell[486328, 11989, 725, 15, 80, "Message",ExpressionUUID->"caab0c1a-7cea-4cb6-a50a-a4f7282092b5"], +Cell[487056, 12006, 725, 15, 80, "Message",ExpressionUUID->"5b25ad31-1c01-4c69-802f-1526bf225ea4"], +Cell[487784, 12023, 493, 11, 26, "Message",ExpressionUUID->"35cde4ca-5a35-47f9-b289-f9fbcf61119e"], +Cell[488280, 12036, 195, 3, 33, "Output",ExpressionUUID->"09f8f960-c354-46a7-bbcf-f36d1bb76257"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488512, 12044, 2272, 64, 212, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[490787, 12110, 602, 13, 80, "Message",ExpressionUUID->"4a34e78a-febf-4749-9df0-8525daf268da"], +Cell[491392, 12125, 605, 13, 80, "Message",ExpressionUUID->"af10cc09-45c5-4f71-aceb-6f3b9d1b7088"], +Cell[492000, 12140, 610, 13, 80, "Message",ExpressionUUID->"2634b813-43a4-4f96-91e9-1f9775e13b7a"], +Cell[492613, 12155, 497, 11, 26, "Message",ExpressionUUID->"fb0c5fd5-f417-4fab-9d12-e1f786eede7a"], +Cell[493113, 12168, 191, 3, 33, "Output",ExpressionUUID->"f0bdb151-f39b-43c7-abbf-24dacdad6ba7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493341, 12176, 2235, 63, 212, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[495579, 12241, 602, 13, 80, "Message",ExpressionUUID->"47f96900-0e63-42d2-bc59-8c419c52efca"], +Cell[496184, 12256, 603, 13, 80, "Message",ExpressionUUID->"15153692-68b1-4f41-b260-1aff11fc6783"], +Cell[496790, 12271, 608, 13, 80, "Message",ExpressionUUID->"e42851c2-8a5f-4fe7-9125-20e6101a0067"], +Cell[497401, 12286, 493, 11, 26, "Message",ExpressionUUID->"c59d4cd2-3d9d-4d62-9749-3dfb5e4fa1d0"], +Cell[497897, 12299, 195, 3, 33, "Output",ExpressionUUID->"210467ae-044a-4b24-b088-766846f21d9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498129, 12307, 2233, 63, 212, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[500365, 12372, 600, 13, 80, "Message",ExpressionUUID->"5201aa3b-46a6-4570-86f0-98ee412ed122"], +Cell[500968, 12387, 605, 13, 80, "Message",ExpressionUUID->"fd0107d4-074b-4515-9655-e1cc1cfc3830"], +Cell[501576, 12402, 608, 13, 80, "Message",ExpressionUUID->"de71bb8e-0d20-4b54-8182-c7150fc47e23"], +Cell[502187, 12417, 493, 11, 26, "Message",ExpressionUUID->"7dbe95b4-cd7e-40bd-bc91-22274f86b146"], +Cell[502683, 12430, 195, 3, 33, "Output",ExpressionUUID->"292fbc4d-bb9e-4eeb-97c5-94bda23f124d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502915, 12438, 238, 6, 46, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[503156, 12446, 195, 3, 33, "Output",ExpressionUUID->"311074a0-6d40-415d-8d38-eb65ba5bc784"] +}, Open ]], +Cell[503366, 12452, 275, 6, 29, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[503666, 12462, 558, 19, 51, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[504227, 12483, 193, 3, 33, "Output",ExpressionUUID->"f7febed8-a808-4167-8f50-fc87f53c3334"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504457, 12491, 170, 5, 55, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[504630, 12498, 194, 3, 33, "Output",ExpressionUUID->"675e8a82-b266-45d9-b6cd-bfb1ae85c458"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504861, 12506, 181, 5, 43, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[505045, 12513, 194, 3, 33, "Output",ExpressionUUID->"245285a3-b6e2-4ddb-97bd-b7018e2544c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[505276, 12521, 6055, 185, 474, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[511334, 12708, 197, 3, 33, "Output",ExpressionUUID->"77790059-a780-48e6-8fd1-74072e1c4d96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511568, 12716, 368, 9, 41, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[511939, 12727, 195, 3, 33, "Output",ExpressionUUID->"16ebeef3-4712-4837-a286-30bfe11d9842"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512171, 12735, 6122, 187, 474, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[518296, 12924, 195, 3, 33, "Output",ExpressionUUID->"d850c476-2e41-4d3b-ba86-823e0f6a27bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518528, 12932, 368, 9, 41, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[518899, 12943, 192, 3, 33, "Output",ExpressionUUID->"0c508fa5-35b2-4332-9a14-285e8fcd3707"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519128, 12951, 2663, 88, 285, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[521794, 13041, 196, 3, 33, "Output",ExpressionUUID->"236b5d65-bca9-4fe1-8432-f7c6cd9e598a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522027, 13049, 2603, 85, 211, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[524633, 13136, 193, 3, 33, "Output",ExpressionUUID->"c2defeb3-aea8-4766-a6e5-12fd4a147709"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524863, 13144, 3712, 118, 327, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[528578, 13264, 193, 3, 33, "Output",ExpressionUUID->"7cde91a8-9447-4c67-96b6-bf04332b4217"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528808, 13272, 2075, 59, 234, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[530886, 13333, 602, 13, 80, "Message",ExpressionUUID->"c592a299-a715-44b1-817a-f595f93cd648"], +Cell[531491, 13348, 605, 13, 80, "Message",ExpressionUUID->"9290345e-cd0f-43e9-86b6-f5f871526043"], +Cell[532099, 13363, 609, 13, 80, "Message",ExpressionUUID->"64e545e3-cbf2-4c14-b441-2a81d9d6ac86"], +Cell[532711, 13378, 497, 11, 26, "Message",ExpressionUUID->"f31ac590-a185-4463-a267-b47d118d54e8"], +Cell[533211, 13391, 193, 3, 33, "Output",ExpressionUUID->"ad2a8669-1187-4a70-aeda-9bdf508d7c2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[533441, 13399, 2075, 59, 234, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[535519, 13460, 604, 13, 80, "Message",ExpressionUUID->"8fd52e31-c61c-443d-9d37-15df9b0dbf9f"], +Cell[536126, 13475, 606, 13, 80, "Message",ExpressionUUID->"cde6b196-21dc-4b0d-804b-c9e2ba1613aa"], +Cell[536735, 13490, 611, 13, 80, "Message",ExpressionUUID->"854ab2a4-4c0e-43ae-ab2a-f72184c2a693"], +Cell[537349, 13505, 495, 11, 26, "Message",ExpressionUUID->"99e4370d-af87-405f-9603-f51132b04493"], +Cell[537847, 13518, 194, 3, 33, "Output",ExpressionUUID->"e8d96523-813b-4f98-956d-8d0da0546228"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538078, 13526, 2051, 55, 151, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[540132, 13583, 20580, 386, 236, "Output",ExpressionUUID->"ef742225-0fa9-47ae-9d3d-5eacf17fd391"] +}, Open ]], +Cell[CellGroupData[{ +Cell[560749, 13974, 2168, 61, 261, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[562920, 14037, 535, 12, 59, "Message",ExpressionUUID->"c416f788-665b-489a-835b-7501acbda8a7"], +Cell[563458, 14051, 542, 12, 59, "Message",ExpressionUUID->"0b2a0805-5c4d-4244-acba-e2a4003687fd"], +Cell[564003, 14065, 543, 12, 59, "Message",ExpressionUUID->"4c281454-3b5f-4ff1-97fd-1a6536ffc961"], +Cell[564549, 14079, 494, 11, 26, "Message",ExpressionUUID->"1c40d75f-53d0-4ed6-b7fc-7bbdaadef31a"], +Cell[565046, 14092, 21843, 405, 232, "Output",ExpressionUUID->"b5aa5ebb-ff7d-4a21-8ae0-4ba228b583a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[586926, 14502, 232, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[587161, 14509, 28206, 537, 232, "Output",ExpressionUUID->"032ba1c8-501c-48ab-9ad4-acceacd8e23e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615404, 15051, 1616, 48, 104, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[617023, 15101, 627, 13, 80, "Message",ExpressionUUID->"86d8baa0-151e-476a-a7bd-9c16dcbf214b"], +Cell[617653, 15116, 630, 13, 80, "Message",ExpressionUUID->"cec531fe-0f88-406b-bbbf-4fc393aa669b"], +Cell[618286, 15131, 634, 13, 80, "Message",ExpressionUUID->"b375bd9d-c9da-4b50-96d4-82f9708f963d"], +Cell[618923, 15146, 493, 11, 26, "Message",ExpressionUUID->"4b957ac8-0279-49fa-b6e4-d193ae74d62c"], +Cell[619419, 15159, 197, 3, 33, "Output",ExpressionUUID->"55be23de-81d7-4a44-9656-d2f488b2e57a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[619653, 15167, 2272, 64, 212, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[621928, 15233, 603, 13, 80, "Message",ExpressionUUID->"f28cff40-afc3-4eca-8604-710d1b2c383a"], +Cell[622534, 15248, 607, 13, 80, "Message",ExpressionUUID->"11c14f54-407e-43dd-891a-f6d8da44c40e"], +Cell[623144, 15263, 610, 13, 80, "Message",ExpressionUUID->"c0b245b9-83bd-477e-98d6-cb8ceedcadba"], +Cell[623757, 15278, 496, 11, 26, "Message",ExpressionUUID->"10923acd-f8bf-46c7-9300-c03695fe61ec"], +Cell[624256, 15291, 197, 3, 33, "Output",ExpressionUUID->"7f6cea85-4ce2-4464-9f71-1f4043c26abb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624490, 15299, 2233, 63, 212, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[626726, 15364, 603, 13, 80, "Message",ExpressionUUID->"e7264742-ef3c-4ffd-b52f-87edb23d4d66"], +Cell[627332, 15379, 605, 13, 80, "Message",ExpressionUUID->"367f54aa-a5fc-4cfd-9fdd-b5515c573124"], +Cell[627940, 15394, 610, 13, 80, "Message",ExpressionUUID->"6bb271b8-5d82-4b54-a6bc-58dd3e907aa2"], +Cell[628553, 15409, 498, 11, 26, "Message",ExpressionUUID->"0ca56dfc-fe35-4d8e-bac0-61d481a6c12c"], +Cell[629054, 15422, 193, 3, 33, "Output",ExpressionUUID->"95a59442-e242-4e4e-bc84-4e2cdf058208"] +}, Open ]], +Cell[CellGroupData[{ +Cell[629284, 15430, 2231, 63, 212, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[631518, 15495, 603, 13, 80, "Message",ExpressionUUID->"3c01985b-faf5-4433-a20d-d1d76dc89ebd"], +Cell[632124, 15510, 605, 13, 80, "Message",ExpressionUUID->"af49d828-af1a-4fcc-80e2-8daa7889a08c"], +Cell[632732, 15525, 608, 13, 80, "Message",ExpressionUUID->"bfd21384-0028-46f2-abef-2712e0b8f274"], +Cell[633343, 15540, 496, 11, 26, "Message",ExpressionUUID->"7fcdce36-ce4b-46a6-8735-976f92d7f9a4"], +Cell[633842, 15553, 195, 3, 33, "Output",ExpressionUUID->"4cd9d0e7-d572-4982-9cab-af05f067659e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[634074, 15561, 234, 6, 46, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[634311, 15569, 196, 3, 33, "Output",ExpressionUUID->"cac57ee5-82d9-4d9b-ab5f-6695c1ebcc51"] +}, Open ]], +Cell[634522, 15575, 209, 4, 29, "Input",ExpressionUUID->"4a456bb3-2fb7-49dd-88c6-de6421feddfc"], +Cell[634734, 15581, 152, 3, 29, "Input",ExpressionUUID->"931707c2-fff5-48e5-9290-a58fa50890b4"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw2.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw2.nb index 1f902d9..fb9f537 100644 --- a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw2.nb @@ -3,42 +3,4903 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 243505, 7911] -NotebookOptionsPosition[ 219988, 7552] -NotebookOutlinePosition[ 220412, 7569] -CellTagsIndexPosition[ 220369, 7566] +NotebookDataLength[ 664851, 15916] +NotebookOptionsPosition[ 624176, 15266] +NotebookOutlinePosition[ 624611, 15284] +CellTagsIndexPosition[ 624568, 15281] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ -5e950c758893"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991850549355442*^9, - 3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\ -e7a6896afd10"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "6.05"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9938046575111637`*^9, 3.993804701607058*^9}, + 3.993804733204545*^9, {3.993909737291142*^9, 3.993909742224861*^9}, { + 3.993909952221772*^9, 3.993909984030127*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"05abdda5-6716-4539-b9fb-ae2303dccf46"], + +Cell[BoxData["6.05`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.993804549577532*^9, 3.993804625944013*^9, { + 3.993804662482604*^9, 3.993804748770383*^9}, 3.9939096014243507`*^9, + 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993909908282672*^9, { + 3.9939099553998528`*^9, 3.993909989690781*^9}, 3.993911033388156*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"9cd80fad-0394-47c1-a772-56d3714afda6"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993909136325391*^9, 3.993909137492978*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"cd5cd0d6-a8ba-4b3f-8592-3df67108385a"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ -5e27a96171a9"], + 3.9913196497381973`*^9, 3.9938045496655397`*^9, 3.9938046259897127`*^9, { + 3.9938046625249434`*^9, 3.9938047488188868`*^9}, 3.993909601730575*^9, + 3.993909669289562*^9, 3.99390975259161*^9, 3.993909908569488*^9, { + 3.993909955491517*^9, 3.9939099897296047`*^9}, 3.993911033834392*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"c0a788f1-57ef-4e02-adf3-b04fe76ad3d9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "156"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.99380431527282*^9, 3.993804315993903*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"558420ee-02da-499e-bd2a-f2a43ca12933"], + +Cell[BoxData["156"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993804317319977*^9, 3.9938045496866302`*^9, + 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}, + 3.9939096017486753`*^9, 3.9939096693086853`*^9, 3.9939097526160994`*^9, + 3.993909908588579*^9, {3.993909955509431*^9, 3.9939099897457*^9}, + 3.993911033845459*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"ddeec9b0-5b90-42c2-9388-644aaf5668ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"d3bc849a-5e55-432a-b28b-594968228043"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993804549706154*^9, 3.9938046260288763`*^9, { + 3.993804662560594*^9, 3.993804748856688*^9}, 3.9939096017670803`*^9, + 3.9939096693268347`*^9, 3.993909752633919*^9, 3.993909908607675*^9, { + 3.993909955527431*^9, 3.993909989761148*^9}, 3.993911033854707*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"e1eb2a14-cf38-4c11-9fca-f61c89510188"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"10870501-ce8c-4871-ad24-0c2548183c2c"], + +Cell[BoxData["0.5455000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.99380454972574*^9, 3.993804626048635*^9, { + 3.9938046625774603`*^9, 3.993804748860417*^9}, 3.993909601785378*^9, + 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993909908626553*^9, { + 3.9939099555442657`*^9, 3.993909989776597*^9}, 3.993911033863673*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"11a8f3fa-0d8c-42ea-9bcf-e05ba723ad90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"0ef67241-c95f-4056-8a4b-a6169ada793e"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.993804549747018*^9, 3.993804626052534*^9, { + 3.9938046625812197`*^9, 3.9938047488891172`*^9}, 3.9939096018028593`*^9, + 3.993909669362465*^9, 3.993909752666353*^9, 3.99390990864529*^9, { + 3.9939099555482264`*^9, 3.993909989792164*^9}, 3.9939110338727818`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"06df9a5b-7d37-45d4-865d-868f50964049"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"33a752f8-2310-43ff-9eef-7b0ab1b04094"], + +Cell[BoxData["6.244526630021248`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993804549770184*^9, 3.993804626085994*^9, { + 3.9938046626047153`*^9, 3.993804748905245*^9}, 3.993909601820876*^9, + 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993909908664627*^9, { + 3.993909955570965*^9, 3.993909989807292*^9}, 3.993911033881481*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"e0cad35c-8020-493f-b199-0e7136d6e7a8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"82b66ab5-7d1a-4258-b326-7a3555e2ea3b"], + +Cell[BoxData["5.08024220226995`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9938045497749643`*^9, 3.993804626103525*^9, { + 3.993804662619735*^9, 3.993804748921926*^9}, 3.993909601824861*^9, + 3.99390966939812*^9, 3.993909752692038*^9, 3.993909908682929*^9, { + 3.993909955589458*^9, 3.993909989822392*^9}, 3.9939110338902884`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"1f727c2f-3764-46d3-9b3a-1c6724532477"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9831"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9938043369460163`*^9, 3.993804343883932*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"92bc2628-c51f-4379-9a35-5375e7b9e02c"], + +Cell[BoxData["0.9831`"], "Output", + CellChangeTimes->{ + 3.993804549811586*^9, 3.993804626121752*^9, {3.993804662635777*^9, + 3.9938047489393063`*^9}, 3.993909601854841*^9, 3.993909669421215*^9, + 3.9939097527133102`*^9, 3.99390990870128*^9, {3.993909955606114*^9, + 3.9939099898261213`*^9}, 3.993911033898979*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"f0a7413b-dfde-44f5-b2ec-5d8f88ebef26"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.463"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.9938043632365713`*^9, 3.993804381532929*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"42d59920-a751-4232-8dde-77286251eab3"], + +Cell[BoxData["0.463`"], "Output", + CellChangeTimes->{ + 3.993804549830037*^9, 3.993804626139834*^9, {3.993804662651184*^9, + 3.993804748955449*^9}, 3.993909601874164*^9, 3.993909669438889*^9, + 3.99390975272956*^9, 3.9939099087196302`*^9, {3.99390995562206*^9, + 3.993909989846019*^9}, 3.993911033907504*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"a97bcfc2-d77e-454e-b40f-d835655ffecf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"72e621b3-c03d-497f-91a7-65c9d0ef6588"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9938045498689833`*^9, 3.993804626160439*^9, { + 3.993804662666739*^9, 3.9938047489718924`*^9}, 3.993909601896028*^9, + 3.993909669457499*^9, 3.993909752744871*^9, 3.9939099087374763`*^9, { + 3.993909955638915*^9, 3.993909989862071*^9}, 3.993911033916355*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"576644a1-efb9-41e7-88cc-80f962284c93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"f5e5c926-defc-4793-b5c2-2f5d7194b52e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.9938045498874207`*^9, 3.9938046261797523`*^9, { + 3.993804662682715*^9, 3.993804748988103*^9}, 3.993909601914316*^9, + 3.993909669475305*^9, 3.993909752760817*^9, 3.993909908755747*^9, { + 3.993909955656601*^9, 3.993909989865912*^9}, 3.99391103392523*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"b2b1e75c-60e4-4b9a-b950-c90996c641e7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"e20340b0-09dd-4d7b-9833-df972bfbc8d2"], + +Cell[BoxData["2.5173601133375656`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9938045499058733`*^9, 3.993804626198407*^9, { + 3.9938046626977053`*^9, 3.993804749004431*^9}, 3.9939096019331207`*^9, + 3.993909669493326*^9, 3.993909752780408*^9, 3.993909908773466*^9, { + 3.993909955671833*^9, 3.993909989883627*^9}, 3.993911033934623*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"563cdf2b-f221-4e5e-bf07-e3b9276f05c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"17a1420c-668f-48bf-a33a-0377c4d53583"], + +Cell[BoxData["1.5234450434796134`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993804549925211*^9, 3.993804626217005*^9, { + 3.993804662711796*^9, 3.99380474902066*^9}, 3.993909601952641*^9, + 3.9939096695112753`*^9, 3.993909752793829*^9, 3.9939099087914257`*^9, { + 3.993909955686531*^9, 3.993909989897831*^9}, 3.993911033943578*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"b4d79cd8-d126-4891-96e3-222141efb8f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"7f898a1c-4149-4e48-8d5a-787d921cc6c3"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { + 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, + 3.993909669529284*^9, 3.993909752809037*^9, 3.9939099088105917`*^9, { + 3.993909955701372*^9, 3.993909989911367*^9}, 3.993911033954171*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"124437ae-44e8-485f-88b0-b1f928125941"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"72e232d5-d2ad-47f0-b0a4-21bb92079088"], + +Cell[BoxData[ + RowBox[{"-", "0.056142152983087`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993804549962688*^9, 3.993804626257918*^9, { + 3.993804662739541*^9, 3.993804749053331*^9}, 3.9939096019922533`*^9, + 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993909908814773*^9, { + 3.993909955715828*^9, 3.993909989925456*^9}, 3.993911033963623*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"4df238bf-c3aa-46d1-a1c1-7e9ce4f55397"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"1edc2047-e88e-44db-b381-c35783007001"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { + 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, + 3.993909669564651*^9, 3.993909752838642*^9, 3.9939099088478737`*^9, { + 3.993909955730867*^9, 3.993909989940257*^9}, 3.993911033973342*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"1045f8fe-474d-4bf7-a620-469cddacd665"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"04417b41-b14e-436c-a276-ea3a355e9acc"], + +Cell[BoxData["0.5841645161809887`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.99380455000006*^9, 3.993804626300075*^9, { + 3.993804662773251*^9, 3.993804749085907*^9}, 3.993909602031176*^9, + 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993909908866128*^9, { + 3.99390995574667*^9, 3.993909989956238*^9}, 3.993911033982602*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"ec9ac0ee-284b-4242-b736-2d738a5010e0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"8f8c8b1b-c2cb-4da4-9c56-95ef83789e37"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993804550019484*^9, 3.993804626319972*^9, { + 3.993804662777142*^9, 3.9938047491020308`*^9}, 3.99390960204895*^9, + 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939099088839207`*^9, { + 3.993909955761622*^9, 3.993909989971353*^9}, 3.993911033991098*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"09550345-34b0-4743-babb-3cf20c848efc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"7693177e-ecb2-4da0-bc0a-b9033a60d4f0"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9938045500378237`*^9, 3.993804626339315*^9, { + 3.993804662793344*^9, 3.99380474911817*^9}, 3.993909602068466*^9, + 3.9939096696185913`*^9, 3.993909752884066*^9, 3.993909908903553*^9, { + 3.9939099557765713`*^9, 3.993909989986253*^9}, 3.993911033999634*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"6d691808-d9a9-454f-a9c8-f572113e3d08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"6808aeac-f9b2-4faf-bde7-44c8de39439e"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9938045500560837`*^9, 3.9938046263600817`*^9, { + 3.99380466280895*^9, 3.993804749134166*^9}, 3.993909602086402*^9, + 3.9939096696362677`*^9, 3.99390975290001*^9, 3.9939099089231663`*^9, { + 3.9939099557917356`*^9, 3.9939099900012712`*^9}, 3.99391103401083*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"737986ef-b081-49e5-9a7f-9313ff1c2a05"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"186179cf-5a57-4152-8f66-7c83b2b41e48"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993804550075344*^9, 3.993804626383381*^9, { + 3.99380466282749*^9, 3.993804749150152*^9}, 3.993909602104745*^9, + 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993909908940823*^9, { + 3.993909955808311*^9, 3.993909990017736*^9}, 3.993911034021475*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"09ea48e6-54b2-420b-af99-09f13f32b1ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"f2a55312-8300-4d64-9ce8-444dc4c38322"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993804550093996*^9, 3.99380462640412*^9, { + 3.9938046628451138`*^9, 3.993804749168808*^9}, 3.993909602124238*^9, + 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993909908959701*^9, { + 3.99390995582368*^9, 3.9939099900328217`*^9}, 3.9939110340312433`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"befefff8-3e5d-4451-b845-8a63866b9ce1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.9938046144530077`*^9, 3.9938046145855627`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"fc2af8cf-abc8-4dda-b610-b1c1e330aa26"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993804626423663*^9, {3.993804662861299*^9, + 3.99380474918727*^9}, 3.993909602142963*^9, 3.99390966968908*^9, + 3.993909752947946*^9, 3.993909908977618*^9, {3.993909955827662*^9, + 3.993909990050256*^9}, 3.993911034042344*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"d299ee21-b5ee-414b-99a0-626114de4639"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.99380461799697*^9, 3.993804618062627*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"b4fd75a1-1277-4d8e-afcf-b5c1e085cc8d"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9938045501483994`*^9, 3.993804626442574*^9, { + 3.993804662877561*^9, 3.9938047492047462`*^9}, 3.993909602161409*^9, + 3.993909669707423*^9, 3.993909752964058*^9, 3.9939099089960423`*^9, { + 3.993909955845819*^9, 3.993909990065692*^9}, 3.99391103405342*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"fd32912c-6c0d-476f-96f9-f0fc2bf45bf5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"937e4c68-ef50-442e-a1b8-6cf6d5ebdf9b"], + +Cell[BoxData["84"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993804550167096*^9, 3.993804626459854*^9, { + 3.993804662896564*^9, 3.9938047492214317`*^9}, 3.993909602179817*^9, + 3.993909669724697*^9, 3.993909752980503*^9, 3.9939099090164824`*^9, { + 3.993909955861395*^9, 3.9939099900817633`*^9}, 3.993911034063702*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"a67695ab-1992-4986-b6aa-d5a4db8c4ba3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"186e50f2-533a-4462-83c1-3a8606e72d3c"], + +Cell[BoxData["0.11153846153846153`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9938045501856823`*^9, 3.993804626476894*^9, { + 3.993804662912559*^9, 3.993804749238111*^9}, 3.993909602199831*^9, + 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993909909035789*^9, { + 3.993909955876047*^9, 3.9939099900975027`*^9}, 3.993911034073077*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"9f023df7-a829-4121-8206-d244cb5df56e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"25a285b0-ec3f-43c3-a83a-cd4d0155f067"], + +Cell[BoxData[ + RowBox[{"-", "2.562307692307692`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993804550204549*^9, 3.9938046264931793`*^9, { + 3.993804662930933*^9, 3.993804749256987*^9}, 3.993909602217969*^9, + 3.993909669760494*^9, 3.99390975301192*^9, 3.993909909054161*^9, { + 3.99390995589108*^9, 3.993909990112661*^9}, 3.993911034083007*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"c6b3c0ca-8755-49f5-a6e3-4997555f18ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8ea24ad9-55bc-4de3-965b-ee41fab25800"], + +Cell[BoxData["22.163907548137733`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993804550224925*^9, 3.993804626512244*^9, { + 3.993804662948985*^9, 3.993804749273611*^9}, 3.993909602237144*^9, + 3.99390966977844*^9, 3.993909753027061*^9, 3.993909909073007*^9, { + 3.9939099559075603`*^9, 3.993909990129081*^9}, 3.993911034092557*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"af06bbb8-ca79-494e-b3f5-0f33c49d39c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"74df187a-f55e-4b88-9fba-1a5175b29724"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.993804550242552*^9, 3.993804626529005*^9, { + 3.993804662966734*^9, 3.9938047492900057`*^9}, 3.993909602255596*^9, + 3.993909669800799*^9, 3.993909753041724*^9, 3.993909909091654*^9, { + 3.9939099559230347`*^9, 3.993909990146391*^9}, 3.993911034103644*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"37f1a30f-6527-4405-bb27-9ddb88b73d47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.653"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9938043992805843`*^9, 3.993804401771452*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"d913bdd6-a3a1-43c7-ac19-d684a159bfc6"], + +Cell[BoxData["1.653`"], "Output", + CellChangeTimes->{ + 3.993804550280451*^9, 3.993804626545594*^9, {3.993804662983712*^9, + 3.9938047493074627`*^9}, 3.9939096022742043`*^9, 3.99390966981877*^9, + 3.9939097530579777`*^9, 3.993909909111307*^9, {3.993909955941221*^9, + 3.993909990162526*^9}, 3.993911034113253*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"aa02bdb6-79eb-4e23-bb2a-6ddf9b0c63a7"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918505524437046`*^9, - 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ -8c5c5be10fe8"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"b1558e11-859d-4482-ae4e-2562a7adf0c7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.855"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.9938044044051847`*^9, 3.993804405718573*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"ee1dc828-900d-4de6-bfdb-75e795d36647"], + +Cell[BoxData["0.855`"], "Output", + CellChangeTimes->{ + 3.9938045503168097`*^9, 3.993804626574059*^9, {3.993804663013727*^9, + 3.993804749370492*^9}, 3.993909602333745*^9, 3.99390966987148*^9, + 3.9939097530831842`*^9, 3.993909909145574*^9, {3.993909955961776*^9, + 3.993909990180032*^9}, 3.9939110341311607`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"c42c820c-2557-43ec-8e9e-909319e1f11b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"1d74df8c-8bc6-4bdd-bd10-bdb0da1d82d6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.405"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9938044089096622`*^9, 3.993804410585486*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"85f84184-364d-4549-99ff-a8c6f3627bcd"], + +Cell[BoxData["2.405`"], "Output", + CellChangeTimes->{ + 3.993804550350713*^9, 3.993804626598034*^9, {3.993804663037463*^9, + 3.993804749435276*^9}, 3.9939096023888474`*^9, 3.993909669925479*^9, + 3.9939097531059*^9, 3.993909909180294*^9, {3.9939099559820957`*^9, + 3.993909990196824*^9}, 3.993911034153755*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"932beb2e-cd63-4ad5-90c1-cb994051fa0d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"93bf7275-b2a2-4844-aefa-329ad7dd8d1c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.225"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993804414830567*^9, 3.993804416147113*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"25a7455e-f586-40db-8572-97868cac8d7b"], + +Cell[BoxData["1.225`"], "Output", + CellChangeTimes->{ + 3.993804550383745*^9, 3.993804626621963*^9, {3.993804663060033*^9, + 3.9938047494929237`*^9}, 3.9939096024465313`*^9, 3.993909669980788*^9, + 3.993909753130068*^9, 3.993909909216509*^9, {3.993909956000244*^9, + 3.993909990213717*^9}, 3.993911034169413*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"0677c22f-5c0c-4671-aae2-32348d3e4ad5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"d4b494dc-3fee-4052-bad3-da47199989d9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.63"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993804418872067*^9, + 3.9938044202542753`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"c7984566-1545-41fc-9c2d-b070605a5ca9"], + +Cell[BoxData["1.63`"], "Output", + CellChangeTimes->{ + 3.993804550416999*^9, 3.993804626645709*^9, {3.9938046630845337`*^9, + 3.993804749547261*^9}, 3.993909602527773*^9, 3.993909670035091*^9, + 3.993909753153574*^9, 3.993909909250422*^9, {3.993909956017232*^9, + 3.993909990230207*^9}, 3.993911034184588*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"f66d1160-9b25-4292-ac3d-518524ca2416"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"8a42e36f-e396-4225-9930-d0d21c3932fc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.5571"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993804423858293*^9, + 3.993804426562767*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"e8f187a9-e088-414b-b8e6-ebbcd4d0f062"], + +Cell[BoxData["0.5571`"], "Output", + CellChangeTimes->{ + 3.993804550449337*^9, 3.993804626671207*^9, {3.993804663115242*^9, + 3.993804749603999*^9}, 3.993909602589055*^9, 3.9939096700891027`*^9, + 3.993909753176607*^9, 3.993909909285474*^9, {3.9939099560344143`*^9, + 3.9939099902470818`*^9}, 3.9939110342005444`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"bb68c6a8-c2c0-4fc1-9486-4f8396c77e09"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"82a00277-6c85-4885-b85c-aea6d3d5d9b5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938044301504927`*^9, + 3.993804433535384*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"3f6fe4fe-4159-475c-89c9-410172843033"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804550483719*^9, 3.993804626698537*^9, {3.993804663139299*^9, + 3.993804749658854*^9}, 3.993909602653262*^9, 3.993909670143072*^9, + 3.993909753199719*^9, 3.993909909346984*^9, {3.993909956051777*^9, + 3.9939099902633963`*^9}, 3.993911034215588*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"0d7f5595-231f-4951-9c0b-60278ef692ea"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"0a5ae49b-10ea-497f-91f8-3f37c2afa7b1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993804436228294*^9, 3.993804438250544*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"1c92dc8b-757f-4fc9-90ec-abc4570e0bd8"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804550516501*^9, 3.993804626722493*^9, {3.9938046631629744`*^9, + 3.993804749712779*^9}, 3.9939096027072487`*^9, 3.993909670196845*^9, + 3.9939097532228928`*^9, 3.993909909381329*^9, {3.993909956068966*^9, + 3.993909990279929*^9}, 3.993911034230833*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"3cbc56fc-28b1-4775-90df-d2c0221cf591"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"dec96f57-2838-48a0-9627-70aa1644373b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"5ca15ec4-6408-49fe-b395-a4e052e91af1"], + +Cell[BoxData[ + RowBox[{"-", "0.04675250913077061`"}]], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993804550599751*^9, 3.993804626769621*^9, { + 3.99380466321212*^9, 3.993804749779405*^9}, 3.993909602821623*^9, + 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993909909468431*^9, { + 3.9939099561101503`*^9, 3.993909990324842*^9}, 3.993911034348117*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"8d5b16b7-0c4a-4508-a171-63903f0595c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"986730cf-3b5a-4b20-a53f-73c1f6b8fffa"], + +Cell[BoxData["0.08542989528290149`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9938045506724253`*^9, 3.993804626799774*^9, { + 3.993804663242297*^9, 3.993804749831417*^9}, 3.993909602850985*^9, + 3.993909670308428*^9, 3.99390975330634*^9, 3.993909909504902*^9, { + 3.993909956139316*^9, 3.993909990356688*^9}, 3.993911034394799*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"7bf29fea-4a60-4fad-8edb-0c074061dd58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"4c7ea369-2f93-4d75-ab60-40f8c1be17a8"], + +Cell[BoxData[ + RowBox[{"-", "92.97992176536582`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9938045506993027`*^9, 3.993804626828765*^9, { + 3.99380466327107*^9, 3.99380474985798*^9}, 3.993909602878909*^9, + 3.9939096703348618`*^9, 3.993909753333283*^9, 3.993909909537113*^9, { + 3.993909956164773*^9, 3.993909990381176*^9}, 3.9939110344479017`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"c3781f07-39c9-4fcc-9508-14e03be7b8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"71d5510b-2fc3-4844-8f19-3a934937c2a2"], + +Cell[BoxData[ + RowBox[{"-", "58.84836946427625`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993804550730234*^9, 3.993804626860573*^9, { + 3.99380466335039*^9, 3.993804749888824*^9}, 3.9939096029089117`*^9, + 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939099095691557`*^9, { + 3.9939099561943274`*^9, 3.9939099904093027`*^9}, 3.993911034552497*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"97d44045-4e8b-4b1f-9269-9788c7923def"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"39bd1344-a585-43ff-a24a-768f42be19bc"], + +Cell[BoxData[ + RowBox[{"-", "175.78557664639112`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993804550761911*^9, 3.993804626893774*^9, { + 3.993804663389638*^9, 3.993804749919907*^9}, 3.9939096029398603`*^9, + 3.993909670396442*^9, 3.993909753395891*^9, 3.9939099096076517`*^9, { + 3.9939099562247763`*^9, 3.9939099904381638`*^9}, 3.9939110346173267`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"7babe93f-2ac3-4541-8f18-ca71f9c82328"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"1632b7ba-8a7e-43c4-aff2-299d9306e274"], + +Cell[BoxData[ + RowBox[{"-", "221.57551938396955`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993804550797638*^9, 3.993804626930235*^9, { + 3.993804663472403*^9, 3.993804749955412*^9}, 3.993909602975071*^9, + 3.9939096704323187`*^9, 3.993909753433277*^9, 3.99390990964828*^9, { + 3.9939099562605953`*^9, 3.993909990472554*^9}, 3.993911034680691*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"102edbab-a4ee-4f64-babc-d2fd1df5bfb4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"649ab9a2-d5aa-4194-a3f4-b50041602aa6"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9938045508194923`*^9, 3.993804626946419*^9, { + 3.993804663488306*^9, 3.993804749974567*^9}, 3.9939096029931*^9, + 3.993909670451165*^9, 3.9939097534481*^9, 3.993909909666844*^9, { + 3.993909956278285*^9, 3.9939099904879293`*^9}, 3.993911034695373*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"20701862-87a8-4810-b849-d3e3dc75cd57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"9651659e-9cea-434d-ace1-9dd53c96bf1d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993804550838839*^9, 3.99380462696198*^9, { + 3.993804663542288*^9, 3.993804749990815*^9}, 3.9939096030110683`*^9, + 3.993909670469376*^9, 3.993909753462414*^9, 3.9939099096844893`*^9, { + 3.993909956293055*^9, 3.993909990503254*^9}, 3.99391103470693*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"e75f4ae3-238f-4428-8e03-1cd272b7939e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"ca4ef058-d31b-4e94-a2b6-761c4aa344b1"], + +Cell[BoxData["111.7060296377673`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9938045508585377`*^9, 3.993804626991984*^9, { + 3.993804663557494*^9, 3.9938047500074787`*^9}, 3.99390960303067*^9, + 3.993909670487976*^9, 3.993909753477995*^9, 3.9939099097033167`*^9, { + 3.993909956309827*^9, 3.993909990518099*^9}, 3.993911034719248*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"19224885-ec48-488b-970c-5184f8048c37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"31ef0128-f086-4a45-a7d7-05ffc22a54b4"], + +Cell[BoxData[ + RowBox[{"-", "116.92037152462031`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993804550878648*^9, 3.993804627006651*^9, { + 3.99380466357337*^9, 3.993804750023952*^9}, 3.993909603048832*^9, + 3.993909670506846*^9, 3.99390975349363*^9, 3.993909909722876*^9, { + 3.9939099563244467`*^9, 3.993909990532846*^9}, 3.99391103473282*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"80007b65-16ce-40fe-b2b5-e2288fbca6df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"32fe3744-59e1-4e3d-a676-f45d43cfd134"], + +Cell[BoxData["187.12903971509587`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9938045509027987`*^9, 3.993804627020084*^9, { + 3.993804663589897*^9, 3.993804750040456*^9}, 3.9939096030676117`*^9, + 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993909909741909*^9, { + 3.993909956339319*^9, 3.9939099905477867`*^9}, 3.993911034743794*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"cfb1464b-231b-4265-8091-491847f649c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"bcbf4997-4378-403d-a89e-315e5e0a5745"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9938045509220467`*^9, 3.993804627033495*^9, { + 3.993804663606344*^9, 3.9938047500576067`*^9}, 3.993909603085306*^9, + 3.993909670543174*^9, 3.993909753523663*^9, 3.9939099097598248`*^9, { + 3.993909956353833*^9, 3.993909990562546*^9}, 3.993911034754279*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"0871b351-8d33-4e83-b874-814334d08350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"25e9b5ad-faec-4249-89c7-9166f84d8240"], + +Cell[BoxData[ + RowBox[{"-", "0.056142152983087`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993804550940889*^9, 3.993804627047104*^9, { + 3.99380466362283*^9, 3.993804750074596*^9}, 3.993909603103224*^9, + 3.993909670561534*^9, 3.993909753539481*^9, 3.993909909777351*^9, { + 3.9939099563684807`*^9, 3.993909990577075*^9}, 3.9939110347651653`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"2eab2ac1-41a5-47db-a4ff-8fdd57873bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"88471f90-3b32-47ad-b6b9-27fdcd64c8d2"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.99380455096201*^9, 3.993804627060543*^9, { + 3.9938046636401176`*^9, 3.9938047500897923`*^9}, 3.993909603121352*^9, + 3.993909670579809*^9, 3.993909753557192*^9, 3.9939099097958403`*^9, { + 3.99390995638293*^9, 3.9939099905920963`*^9}, 3.993911034776531*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"fa3e3b99-8de5-4837-ab78-37a5a29009da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"71048c3b-fc34-420a-8d33-525edb786da6"], + +Cell[BoxData["0.5841645161809887`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.993804550980524*^9, 3.9938046270751667`*^9, { + 3.993804663656624*^9, 3.993804750107565*^9}, 3.993909603139456*^9, + 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993909909812099*^9, { + 3.993909956397331*^9, 3.9939099906069927`*^9}, 3.993911034794191*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"db564248-b10c-446b-92f7-9c843da073ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"b3df5512-074c-45eb-81ee-574ba143c4ae"], + +Cell[BoxData["2.5173601133375656`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993804550999857*^9, 3.993804627093104*^9, { + 3.993804663673789*^9, 3.993804750123993*^9}, 3.993909603159047*^9, + 3.9939096706237583`*^9, 3.993909753618161*^9, 3.993909909815946*^9, { + 3.993909956411661*^9, 3.993909990622797*^9}, 3.99391103480459*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"b8f95172-ee8e-4963-a53e-3b4d838130b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"526e2f3d-6c90-485b-bbb5-57012dbb3629"], + +Cell[BoxData["1.5234450434796134`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993804551018916*^9, 3.993804627108033*^9, { + 3.993804663692298*^9, 3.993804750140585*^9}, 3.99390960317778*^9, + 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993909909844212*^9, { + 3.993909956428871*^9, 3.993909990639729*^9}, 3.993911034814896*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"5d51effe-6d68-458f-b2be-f21d376c7e99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"f5de3681-9534-4a07-8295-77494612ddd1"], + +Cell[BoxData[ + RowBox[{"-", "18.177896388526342`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993804551037992*^9, 3.993804627123701*^9, { + 3.993804663711438*^9, 3.993804750156764*^9}, 3.993909603196027*^9, + 3.993909670663684*^9, 3.99390975365348*^9, 3.993909909862356*^9, { + 3.993909956443829*^9, 3.993909990654669*^9}, 3.993911034824026*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"4fe53d58-bfec-495e-96f6-700f97e196ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"96dfab3e-18da-46e1-8c7a-ec9f10735340"], + +Cell[BoxData[ + RowBox[{"-", "4.422931821128753`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.99380455105733*^9, 3.993804627139119*^9, { + 3.993804663729148*^9, 3.993804750173326*^9}, 3.993909603216249*^9, + 3.993909670683181*^9, 3.993909753671298*^9, 3.993909909877062*^9, { + 3.993909956460279*^9, 3.993909990669105*^9}, 3.993911034839003*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"de31ab36-80e6-45af-b867-10b11405c579"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"ad8b653e-a8e7-4eea-9e7e-5e6e636bf2b4"], + +Cell[BoxData["93.52813324924097`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.9938045510774317`*^9, 3.993804627154879*^9, { + 3.993804663746785*^9, 3.993804750189831*^9}, 3.993909603237997*^9, + 3.99390967070298*^9, 3.993909753690928*^9, 3.993909909892799*^9, { + 3.9939099564827127`*^9, 3.993909990683666*^9}, 3.9939110348899097`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"f76a45a3-6f9b-4aef-9b49-5526eb3da2c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"309cf18d-407a-484c-a467-47fb3e43c8f2"], + +Cell[BoxData[ + RowBox[{"-", "116.92037152462031`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993804551098919*^9, 3.99380462716993*^9, { + 3.99380466376478*^9, 3.993804750205999*^9}, 3.9939096032579308`*^9, + 3.99390967072291*^9, 3.993909753708663*^9, 3.993909909912747*^9, { + 3.9939099564995337`*^9, 3.993909990698875*^9}, 3.993911034925613*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"3f7e629a-01ea-48a8-b03c-d42d08d9f0e0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"4924cb23-8e53-44c0-8c1c-7b26c4a9e860"], + +Cell[BoxData["182.70610789396713`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993804551121139*^9, 3.993804627185237*^9, { + 3.9938046637699213`*^9, 3.993804750221984*^9}, 3.993909603279203*^9, + 3.993909670743991*^9, 3.993909753728705*^9, 3.993909909930686*^9, { + 3.993909956518093*^9, 3.9939099907215357`*^9}, 3.993911034943129*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"87712a6d-2470-432b-a42a-4a20fb1c7ca3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"86689354-b148-490b-a239-2684716fc337"], + +Cell[BoxData["150.0362849602646`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9938045511434107`*^9, 3.993804627199387*^9, { + 3.9938046637889233`*^9, 3.993804750238797*^9}, 3.993909603297597*^9, + 3.993909670763399*^9, 3.993909753746546*^9, 3.993909909946938*^9, { + 3.99390995653423*^9, 3.993909990735869*^9}, 3.993911034960313*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"df20681e-2b90-4fe2-a4ba-757176d5fc85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"5addcb8e-59cb-4e6f-8e41-b962a7995d11"], + +Cell[BoxData["845.8339546196385`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993804551165799*^9, 3.993804627215629*^9, { + 3.9938046638111277`*^9, 3.993804750255252*^9}, 3.993909603318231*^9, + 3.993909670782775*^9, 3.993909753763286*^9, 3.993909909962928*^9, { + 3.9939099565492992`*^9, 3.993909990750906*^9}, 3.993911034975246*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"feaed377-3abe-47bc-a612-d0a1a348fb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4802"}]], "Input", + CellChangeTimes->{ + 3.9918505481678543`*^9, {3.993910798778878*^9, 3.993910803484598*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], + +Cell[BoxData["0.4802`"], "Output", + CellChangeTimes->{3.993911034984426*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"6a954de7-2249-4ed8-a35a-566ea49821cc"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991850549355442*^9, 3.991850549360302*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.1536"}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9, {3.993910808429381*^9, 3.993910817357833*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], + +Cell[BoxData["0.1536`"], "Output", + CellChangeTimes->{3.993911035009091*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"f380d2da-7a0b-40f9-9609-3ac9ca84acd5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, 3.991850552447544*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ @@ -83,9 +4944,12 @@ Cell[BoxData[ RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], - ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + ")"}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[BoxData["3.0421649672677`*^-53"], "Output", + CellChangeTimes->{3.993911035029347*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"a3b94cd8-d8c6-4b5f-ab0f-90973d81e8c8"] }, Open ]], Cell[CellGroupData[{ @@ -119,11 +4983,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ -a9b137c5e3b6"], + CellChangeTimes->{3.9915577064670105`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[BoxData["1.0691440866560123`*^-54"], "Output", + CellChangeTimes->{3.993911035042004*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"8d301370-8f2d-4db3-a406-a360a46fa3a3"] }, Open ]], Cell[CellGroupData[{ @@ -156,11 +5021,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557709328657*^9, - 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ -8010347227f7"], + CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[BoxData["7.422938590368768`*^-55"], "Output", + CellChangeTimes->{3.993911035052928*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"2052b6db-c975-497a-9f41-732dfb1b0283"] }, Open ]], Cell[CellGroupData[{ @@ -182,10 +5048,12 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ih", "*", "Ir"}], - RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ -e247-a132-b43b2736212a"], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[BoxData["10.515928007617523`"], "Output", + CellChangeTimes->{3.99391103506326*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"bd7c1cdb-3305-43d6-b68d-078b019d5a48"] }, Open ]], Cell[CellGroupData[{ @@ -210,10 +5078,12 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", - RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ -ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[BoxData["27.853770534110033`"], "Output", + CellChangeTimes->{3.993911035073667*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"07d22a82-a752-48e8-a7fc-c24969d30846"] }, Open ]], Cell[CellGroupData[{ @@ -221,10 +5091,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ -88a4-7c75445a4f32"], + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[BoxData["3.777237989202462`"], "Output", + CellChangeTimes->{3.993911035086005*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"cb0a70f6-faaa-4cd5-b6e1-28adf1d82357"] }, Open ]], Cell[CellGroupData[{ @@ -232,10 +5104,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ - FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ -a9f8-bc957ede9a68"], + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[BoxData["5.510621228139882`"], "Output", + CellChangeTimes->{3.993911035098166*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"8043cc17-a1b1-4c9b-8724-d6759020ee09"] }, Open ]], Cell[CellGroupData[{ @@ -243,10 +5117,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ - RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ -eb8f-4944-8d03-7bcd77a7b4b4"], + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[BoxData["153.4915791890039`"], "Output", + CellChangeTimes->{3.993911035108863*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"36b108df-9bc7-4523-b286-3988613b6e45"] }, Open ]], Cell[CellGroupData[{ @@ -254,10 +5130,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ -08dc-e64f-8823-2a55ad6b8ca8"], + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[BoxData["39.72116276209107`"], "Output", + CellChangeTimes->{3.9939110351208353`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"79fd0f54-f6da-4209-96e7-d477beeadefc"] }, Open ]], Cell[CellGroupData[{ @@ -445,10 +5323,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ -bf8f-1350d0b8a0bb"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[BoxData["0.005905154877936506`"], "Output", + CellChangeTimes->{3.993911035132434*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"5b9b0a5d-3c66-4fca-acee-286f224dea41"] }, Open ]], Cell[CellGroupData[{ @@ -460,18 +5340,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"65edd566-\ -4493-2440-9c51-9fca28ce324b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], - -Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[BoxData["11.532654843512946`"], "Output", + CellChangeTimes->{3.9939110353459*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"815a97fb-0451-453b-af48-45b0f998c371"] }, Open ]], Cell[CellGroupData[{ @@ -661,10 +5535,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ -afec-31463f4946cd"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[BoxData["0.02455243660694453`"], "Output", + CellChangeTimes->{3.9939110353608713`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"65fb6428-b20e-4241-ad27-a27409e6adf0"] }, Open ]], Cell[CellGroupData[{ @@ -676,18 +5552,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"56b1717f-\ -bc75-4047-98f0-7a0dede3f8a9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], - -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[BoxData["5.655846855736567`"], "Output", + CellChangeTimes->{3.993911035439249*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"6859bb29-936a-4b0f-86d0-dc38bb823711"] }, Open ]], Cell[CellGroupData[{ @@ -778,10 +5648,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ -f74418e31aeb"], + ")"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[BoxData["0.08103755887966854`"], "Output", + CellChangeTimes->{3.9939110354499683`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"7763f4b4-5b70-41da-9114-5a2c2d898287"] }, Open ]], Cell[CellGroupData[{ @@ -869,10 +5741,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ -91d5391478d5"], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[BoxData["0.9189624411203314`"], "Output", + CellChangeTimes->{3.993911035463278*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"f8e0fa58-e025-44ec-bed6-cba17ae90f72"] }, Open ]], Cell[CellGroupData[{ @@ -993,16 +5867,18 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ -ef4e-9454-9d4e027f5fa2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +Cell[BoxData["0.0744704729304928`"], "Output", + CellChangeTimes->{3.993911035569129*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"b2ac48b3-5443-4e52-a6ad-226cd7860013"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ -2048-8697-fe84d79611fa"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ @@ -1063,27 +5939,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\ -3d78ebb0f21b"], + CellChangeTimes->{3.9918505674491863`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5195979912698294`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 1, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939110356029377`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"dab50db0-f409-4890-afe1-0f1299e3d612"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"42c1a263-2456-664a-bb33-c5fe841cb412"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.731286460672993`*^-211\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993911035619616*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"1fc074c1-01a3-4902-9928-abdbf57cbd5e"], -Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0952734372083204`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939110356273623`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"121cb2f6-2328-4dce-803e-1799db8f011c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 4, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993911035633706*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"e92d163c-93b8-4361-a28f-1c4b99d7c24f"], + +Cell[BoxData["11.532654843512939`"], "Output", + CellChangeTimes->{3.993911037979106*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"cdfcc8fd-f0ac-448c-a1fd-cd6d5c4cdc88"] }, Open ]], Cell[CellGroupData[{ @@ -1145,26 +6064,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], + CellChangeTimes->{3.99185057022003*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"be4d7bfb-c18e-564a-93ce-3f42607886e7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5195979912698294`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 5, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939110380464563`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"0eac5177-ca8b-4ec7-8239-15e804334158"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.731286460672993`*^-211\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939110380526123`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"0f50415b-f925-4b90-8799-8a868403a763"], -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0952734372083204`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939110380581903`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"44d3dea8-0ac3-428a-a2e4-8d66d2e4d378"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 8, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939110380662003`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"0509b959-f641-41d7-a564-76231fc7ad70"], + +Cell[BoxData["5.655846855736566`"], "Output", + CellChangeTimes->{3.9939110404928207`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"10ed92d5-6ea7-4111-858c-0c6735bf6ff7"] }, Open ]], Cell[CellGroupData[{ @@ -1220,415 +6183,393 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\ -12d8b19f0936"], + CellChangeTimes->{3.9918505747312756`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d3cb6fbc-3803-0541-80d1-8cab47341c44"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d8687e0f-2f42-0543-a749-78a1ff3c9572"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -2.67879 2.97603 [ -[.15608 .28474 -6 -9 ] -[.15608 .28474 6 0 ] -[.28836 .28474 -6 -9 ] -[.28836 .28474 6 0 ] -[.42063 .28474 -6 -9 ] -[.42063 .28474 6 0 ] -[.55291 .28474 -9 -9 ] -[.55291 .28474 9 0 ] -[.68519 .28474 -9 -9 ] -[.68519 .28474 9 0 ] -[.81746 .28474 -9 -9 ] -[.81746 .28474 9 0 ] -[.94974 .28474 -9 -9 ] -[.94974 .28474 9 0 ] -[.01131 .14844 -24 -4.5 ] -[.01131 .14844 0 4.5 ] -[.01131 .44604 -24 -4.5 ] -[.01131 .44604 0 4.5 ] -[.01131 .59484 -18 -4.5 ] -[.01131 .59484 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .29724 m -.15608 .30349 L -s -[(25)] .15608 .28474 0 1 Mshowa -.28836 .29724 m -.28836 .30349 L -s -[(50)] .28836 .28474 0 1 Mshowa -.42063 .29724 m -.42063 .30349 L -s -[(75)] .42063 .28474 0 1 Mshowa -.55291 .29724 m -.55291 .30349 L -s -[(100)] .55291 .28474 0 1 Mshowa -.68519 .29724 m -.68519 .30349 L -s -[(125)] .68519 .28474 0 1 Mshowa -.81746 .29724 m -.81746 .30349 L -s -[(150)] .81746 .28474 0 1 Mshowa -.94974 .29724 m -.94974 .30349 L -s -[(175)] .94974 .28474 0 1 Mshowa -.125 Mabswid -.05026 .29724 m -.05026 .30099 L -s -.07672 .29724 m -.07672 .30099 L -s -.10317 .29724 m -.10317 .30099 L -s -.12963 .29724 m -.12963 .30099 L -s -.18254 .29724 m -.18254 .30099 L -s -.20899 .29724 m -.20899 .30099 L -s -.23545 .29724 m -.23545 .30099 L -s -.2619 .29724 m -.2619 .30099 L -s -.31481 .29724 m -.31481 .30099 L -s -.34127 .29724 m -.34127 .30099 L -s -.36772 .29724 m -.36772 .30099 L -s -.39418 .29724 m -.39418 .30099 L -s -.44709 .29724 m -.44709 .30099 L -s -.47354 .29724 m -.47354 .30099 L -s -.5 .29724 m -.5 .30099 L -s -.52646 .29724 m -.52646 .30099 L -s -.57937 .29724 m -.57937 .30099 L -s -.60582 .29724 m -.60582 .30099 L -s -.63228 .29724 m -.63228 .30099 L -s -.65873 .29724 m -.65873 .30099 L -s -.71164 .29724 m -.71164 .30099 L -s -.7381 .29724 m -.7381 .30099 L -s -.76455 .29724 m -.76455 .30099 L -s -.79101 .29724 m -.79101 .30099 L -s -.84392 .29724 m -.84392 .30099 L -s -.87037 .29724 m -.87037 .30099 L -s -.89683 .29724 m -.89683 .30099 L -s -.92328 .29724 m -.92328 .30099 L -s -.97619 .29724 m -.97619 .30099 L -s -.25 Mabswid -0 .29724 m -1 .29724 L -s -.02381 .14844 m -.03006 .14844 L -s -[(0.95)] .01131 .14844 1 0 Mshowa -.02381 .44604 m -.03006 .44604 L -s -[(1.05)] .01131 .44604 1 0 Mshowa -.02381 .59484 m -.03006 .59484 L -s -[(1.1)] .01131 .59484 1 0 Mshowa -.125 Mabswid -.02381 .02939 m -.02756 .02939 L -s -.02381 .05915 m -.02756 .05915 L -s -.02381 .08892 m -.02756 .08892 L -s -.02381 .11868 m -.02756 .11868 L -s -.02381 .1782 m -.02756 .1782 L -s -.02381 .20796 m -.02756 .20796 L -s -.02381 .23772 m -.02756 .23772 L -s -.02381 .26748 m -.02756 .26748 L -s -.02381 .327 m -.02756 .327 L -s -.02381 .35676 m -.02756 .35676 L -s -.02381 .38652 m -.02756 .38652 L -s -.02381 .41628 m -.02756 .41628 L -s -.02381 .4758 m -.02756 .4758 L -s -.02381 .50556 m -.02756 .50556 L -s -.02381 .53532 m -.02756 .53532 L -s -.02381 .56508 m -.02756 .56508 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.02499 .01472 L -.02605 .01472 L -.02729 .01473 L -.02846 .01474 L -.03053 .01478 L -.03279 .01482 L -.03527 .01489 L -.0379 .01499 L -.04262 .0152 L -.04749 .01548 L -.05205 .0158 L -.06244 .01675 L -.07305 .01801 L -.08274 .01944 L -.10458 .02358 L -.12357 .02821 L -.14429 .03435 L -.18493 .04963 L -.22406 .06826 L -.26565 .09204 L -.30571 .11858 L -.34426 .14717 L -.38527 .1805 L -.42475 .215 L -.46273 .24996 L -.50315 .28853 L -.54206 .3264 L -.58342 .36674 L -.62326 .40497 L -.66159 .44044 L -.70238 .47601 L -.74164 .50741 L -.77939 .53432 L -.8196 .55879 L -.85828 .57771 L -.87793 .58543 L -.89942 .59234 L -.91995 .59741 L -.92911 .59917 L -.93905 .60073 L -.94426 .60141 L -.94906 .60194 L -.95356 .60236 L -.95851 .60273 L -.96295 .60299 L -.9671 .60316 L -.96939 .60323 L -.97148 .60328 L -.97264 .6033 L -Mistroke -.9739 .60331 L -.97509 .60332 L -.97619 .60332 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo -jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq -so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp -0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq -747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr -D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41 -yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3 -k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA -s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr -8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC -HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB -K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho -Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi -Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7 -0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk -R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO -nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX -zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM -oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw -QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8 -cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha -oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj -I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB -MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk -hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh -jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr -BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA -JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV -ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l -jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl -hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR -iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj -/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev -9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr -wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c -vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc -Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05 -x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN -QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C -aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2 -JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+ -Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff -A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt -TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6 -JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I -buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr -sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO -yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu -TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx -uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx -1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST -SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy -lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X -pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm -Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y -TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9 -YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-19.394, 0.892147, 0.709611, \ -0.0012616}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\ -c578eb57eb6a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk4Vd0XB3BzMpQhQ6ZkKkJeN6JkrcyhQjIUEvceUpQhryaa6JUhpFSm +0kB+KGWoqBSVpChEotxrSKZkSM5V/XZ/nOc8n2c/Z+3v2eucvZf67XVh8fHw +8AyS6+899I3+ssrmN+ZpoTcCwt6ywXzsmpGfVRHo20Xk/nVPrnG6hlU1jPB2 +2oQTOzFfC4kxngGzoN07grg0KqZW0KoR6hyC+/YTxz+Xr4kpfAs5fJmd/xLf +bw7NmTNsg66vvniQeKiz4fCBqg7gaDyWOUKs0K++/YdlF+R0l287Suzw7bBp +eONncLOyXniS+NHckGhUIRsazgQz/iN+f0zuUEVIL6j80n+RSDwmZDU0ZdgP +c03xDanEQon7PBkzA3DAJXpdBrGKZHZ9aNUgSLSJqWYTb1L8cWPMcgSumM0y +Compy2qyesJj8JXjzioljtHcHLu78RvkiboI3SfukGv9J6LwO7wrVsh4Sczc +FrTrbOIECCkNxb0jHs/iuXInZBK0frgNfCQWVtOT+G44DaEqolPfiNOZtbYS +Mj+gN31LHk2smu8Zs3LmBzx9sbZG8B0bTHTjxoKrfoIWPWqvTBxo/LlxyHIO +xJRHM52Jp6L2C4ho/YJHbTYvdhAfrRI10xb+DUOqNn4hxBfQ5H8BjX/ArNXk +SyIx83q9VVghLyp1z9NrIi58frbnmCIfWq/Ib+shHv/iczg1kQ/toidHJ4gP +60zfvR3Cj0JURrB8C8l7a6n6N0NB7BZfcTOQuLN55NHvq4K4Rsu56Qix6kTl +tgUyQtjsrMc6S1y0alOa3owQrugT63lMXHf/IO+eKmG03pUkpdLKhunals+D +lmKYXta4+xuxlKOYxKFHYvhQ6/O4eBsbDFqtUNxUHE1WeMzqEgf1lV/+R38B +evrEpe8h3sfXaLBOTALLT0hMfSfuVyv5HvtDEsXusj1l2sn6UA3zmxhS2K0f +LGtGzPe/gaXyoVLYKhHr5k+syljiUjgshafvMnfeJd5mmXLnTY80VioZ5Hl2 +sKHJPyxc7pUM5k0cePfoAxs+5Scn+ArL4nCwystR4pHhwqs3rWUxWTjaUrmT +DSIRvS1ra2Rx7Nih2iPEViddV/mWy6Hg41fjVh/Z8OCa8XRB7mJ0Ydbwj3Sx +4Vo/HbkmQhldY55pZPewwW7rqU/hxcooPCu3s4N4pE7apnhAGTGrSGIRmw2r +runKqHqqYMHBwpeJxHV+PncFzZfgphavqyc4bJj41vPv4AlV3P6n5WdcHxuk +g63K7m5Uw+jClbZ9g2wYuCYS6BSkhouClCb1vrLhXlez4micGiZKv5SKIvZy +9D6hVaOGClfCi8WHSL4VkS4XDdUxIineyXyYzD+UPx4tp4HlC0qcy0fZ4Bog +qmfP1sSON1986Qk2QORWQ/dfmtgVwH7rNMkGndjc1czFWmiZUnInn5jnKsMi +2lkL3U3aa92m2FD8abv7nSdamNM/ovFgmvyfbkXHFPKWoa7B+YFzP0k+q43v +h/y00W9tYuKV32y4uiXj40y0Nm5/Mckr9IcNyX7sHoFMbYyU6fgSRMw8un9Y +pUUbH9boCRrzcECyOptni6UO8uiXxL3l5UAQY0ynSn0F2t1RKVQW5ICi2pmY +hD5drP6vJ0tEjAPVp6e0Z/n0kD3ffzCO2GvSs5Vaqocxz5fd5xfnQE6dhraF +jx6unXdx6DexWsCDdz/b9fCtqkAydyEHdIr6NalX+jj+nvlJfBEHlBVVKFVP +AxyscuOcV+KA7vUIMS4Y4tu4Y4fMVnLAj3liWm+TIf76faa5ifiCetonXy9D +bEyuyPQ34AB/3q3bz6MM8daH4PTEfzjQmTPkmlZqiPr14RJ9DA7EX/DN1lZn +4IK2gDU3TTgwkOCo7yG0ChNass8mWnDgSpiGU3mjERpHSfrcd+fAnU81CfJd +RjgW3+t5wIMDT+29XxwaNsL1J5b2mnpyoE/tvLmFiDHyX16UU72NA1otZJ+w +NcaJnPWV9d4cKGIMz//61BiZvzWOc/05cG+qtFbp/mqMiPZsf7WPA82RsPrk +dVMc8BY9pZDIgaU+bZu896zD69SUnFs9B1h/KkqUDyAWZRpaXxTuBbnhe/Pk +/CxQfKe4/zb3XohgmHWl6VhhU/+f+IKbveA3OlcvPWSN7zuPJ3zg64Nii/B5 +uU22eHGvitrB4D64NhX0pCh9A/K9XhuY2NkHP9fLv66LcUD3Yf747O390M3D +/529cyMmFkablfX3Q4jS3pRj6ptRY4ktr3DoAJTsqq85F+uEHRHTEtKLvsDB +ycUzK3Y546n1c1YdlV9g2t7G7cUOFyxbs1fXO3IQTLenru933oIZSrudReEr +vFucHVTHcMUpZef6Z0JDoHDjRHXB8q1Yd/ThfrvRIbjXo+O4SdwN01eKG3S8 +HQaV1vGAyFE35MfmjjOPRoBxLrXoao87lt1+dSHl9ShkC0zqp9V6YKxp6OOy +9jGoWL+yM/a+J17RD/Zfzj8OF1aflpwr3IZH7K6p5eSMQ9PH63GMxO2o73I5 +M9LoO5RvzNLYd9QLd9czDIc/fYfvwVt4QpjeeDz9xX2e4xMwbaMdOGbpg7Ml +fG8eaU5CweiHn+HGO9BAy6avtnMSPK5c9/cW88VFTXXKt2On4O4dhx38p8jZ +HKud+gCmwVTx3Wz8rC9GywjyZo1Mg3pPQOfbXTvxfuWT4dKzP6BPdPfmrF5i +CzM9tJqB5uRN/rZb/fAf/+ADeZwZSI/KFd3f7IfBTYvixk7+hOpHf2b9N/ij +WXz5/h3ys7DQC08xHvijXOy5acVzs2DqO1YQu4qJjcrP25XFaLhxcTx8kzET +5TSOU5XiNCxqmTCXM2GilxDf0OaFNIxZz7QWrGViMSfp9REpmuxfPLyNFkxc +cfg63ShPw4IZSU8pZybyJggmmmjS0JdkND83mIndlQ9T1q+jIbnq8K57N5gY +X/NeQiCIhmDDDNOoAiaK2yd3Ou2mwfFm6XyTQiae+ON0OmsPDSIZAzcri5kY +wpt0yWAvDbFhTkMVZUwU1eWNcIig4bC2xu7yp0yUv1dT7RBNQ1DGqz13PjGR +m5JpEZFKw4YFA2ZhPUxsnd+hlp1Gw/JYHnFDDhPtPOw+1Z2lYSDMqLi0n4nv +Kg71S5ynYeem3NHbI0zMnAPdzEs0eAiGh9yimTjbU+MadZUG23CFfUWyLLQx +6hhxKaPhaW6cfZo8C99MNlzaU06DWeOERpQCCy/8m9V3soIGA81XHyxVWGg8 +G2Bfeo+Gxe2HLD9qstChKsl1tpqG4TXdsiJGLGzgYUvbPKPhDN/lhwFbWNhv +WPexqZW8/0qxCxu3srAoO9Wzuo2Gk9ujwhjuLNRXDQvMf09DVJnTsj/bWHjy +hoHJgQ6Sn+JNPe/HwsEXChmiXTQwGvyYz0JZuMS9a+Ewh4b2VE1R9RQWSurq +f0v7RkMJiAcOprLQXVtuq9U4qT86VVd8loVOCnfDp4gNN9RFm2SwULyK0ek0 +QfrH4z+xMYeFddeqbOgpGmz2Xv4QVcTCirzVYQtpGpSV/zM2L2Eh9bjEoYh4 +qmHvWf7bLAybftppy6UhTws2Jt9lobm2yOJDczT86u6uufqAhTtmlCTf/aah +zFGx4E09C1tNP9Sv5+dCAs0nmN5A1qvN7stLYr+CoZ2ejSw8MJtzz0mACxIC +DxT7mlj4MdgnfJsgF/ZUeZyZfc/C/5y7rHzmcUFd53ykRj8L9/LlGy8T5QLd +fqTl6wALjwccDr1E3BzLMrg1SPIPc7zEyMkRzV41ZDrCQq3Aj1YjxJ0XWrw3 +T5LxyI6tWQu4kDZP0vogL4VyT9b4PpTkQvVE9/YIfgqdm/vCtaS48KW7MCxE +kMInJ5b0JhGblVld9ptPYVt7UYu7NBcGfKO49pIUBjpKz7YvIvkdraWspSkc +c9XpZ8hwYe1qKW2QofBaR/GKZOIU8SI3xmLitvAX62TJ+IPPpYpLKXx7ep9x +vBwXqOtF9TLqFHaIeE20E6ekHPi8UJPCVXMV8zTlyXyUtLiANoXn3e3MHxCn +SNsGjhhQyAlob29ezIUHv6VjBgwprM0y8ZJS4EL/155zPasoND3DMHUhXlNz +sLbVhELJhIy5RuK+PSUqD5HCiuTLN0oUubDA45BRpQWF2QtcRznEppZ2jqVW +FHYpTSbIKHEheTHnwHU7ChtSCpr3E98TuJWSa09h7IdLkVeJe78dyr/oSOHn +SIOIJmKT5zJtSU4UWm0QiFRTJv0u5QyfciHzeagf3ECclHWL77grcWh+Wwgx +J2yDQaQHhdYO+WllxOI+srb7tlFo81l4qpXYZEOvd5AXha/UM4sm/z6/5EiC +jy+Fu9dpqOuqkDwi9nkefhSG9wiyrYk507L3XZgUsptGp72Jxdm9TY4Uqc/b +sjOC2KTx9oBNIIUZ84s14on9Ko/8wiAKKeUI8yzipDz7RWv3kP5LLL1V/Ld+ +ktwKoxAKzdyLIx/+rR/Vt37lPgqVBKTPvSIWY5Z6aIdRuLzBUaSDePXm6L3q +EaSf3K3vOX/rr3GIU46k0DxBZ3aYOFFTPlsuikIFkRdhk8QVEv13JQ9S2Hxz +ueUsMZtb2iB6mMKItRuDfv2t/yWaLRhN4euVjME/xMbvHH7+iSHfa8aHap4l +XPg/6gcDOg== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4Vd0XB3BzMpQhQ6ZkKkJeN6JkrcyhQjIUEvceUpQhryaa6JUhpFSm +0kB+KGWoqBSVpChEotxrSKZkSM5V/XZ/nOc8n2c/Z+3v2eucvZf67XVh8fHw +8AyS6+899I3+ssrmN+ZpoTcCwt6ywXzsmpGfVRHo20Xk/nVPrnG6hlU1jPB2 +2oQTOzFfC4kxngGzoN07grg0KqZW0KoR6hyC+/YTxz+Xr4kpfAs5fJmd/xLf +bw7NmTNsg66vvniQeKiz4fCBqg7gaDyWOUKs0K++/YdlF+R0l287Suzw7bBp +eONncLOyXniS+NHckGhUIRsazgQz/iN+f0zuUEVIL6j80n+RSDwmZDU0ZdgP +c03xDanEQon7PBkzA3DAJXpdBrGKZHZ9aNUgSLSJqWYTb1L8cWPMcgSumM0y +Compy2qyesJj8JXjzioljtHcHLu78RvkiboI3SfukGv9J6LwO7wrVsh4Sczc +FrTrbOIECCkNxb0jHs/iuXInZBK0frgNfCQWVtOT+G44DaEqolPfiNOZtbYS +Mj+gN31LHk2smu8Zs3LmBzx9sbZG8B0bTHTjxoKrfoIWPWqvTBxo/LlxyHIO +xJRHM52Jp6L2C4ho/YJHbTYvdhAfrRI10xb+DUOqNn4hxBfQ5H8BjX/ArNXk +SyIx83q9VVghLyp1z9NrIi58frbnmCIfWq/Ib+shHv/iczg1kQ/toidHJ4gP +60zfvR3Cj0JURrB8C8l7a6n6N0NB7BZfcTOQuLN55NHvq4K4Rsu56Qix6kTl +tgUyQtjsrMc6S1y0alOa3owQrugT63lMXHf/IO+eKmG03pUkpdLKhunals+D +lmKYXta4+xuxlKOYxKFHYvhQ6/O4eBsbDFqtUNxUHE1WeMzqEgf1lV/+R38B +evrEpe8h3sfXaLBOTALLT0hMfSfuVyv5HvtDEsXusj1l2sn6UA3zmxhS2K0f +LGtGzPe/gaXyoVLYKhHr5k+syljiUjgshafvMnfeJd5mmXLnTY80VioZ5Hl2 +sKHJPyxc7pUM5k0cePfoAxs+5Scn+ArL4nCwystR4pHhwqs3rWUxWTjaUrmT +DSIRvS1ra2Rx7Nih2iPEViddV/mWy6Hg41fjVh/Z8OCa8XRB7mJ0Ydbwj3Sx +4Vo/HbkmQhldY55pZPewwW7rqU/hxcooPCu3s4N4pE7apnhAGTGrSGIRmw2r +runKqHqqYMHBwpeJxHV+PncFzZfgphavqyc4bJj41vPv4AlV3P6n5WdcHxuk +g63K7m5Uw+jClbZ9g2wYuCYS6BSkhouClCb1vrLhXlez4micGiZKv5SKIvZy +9D6hVaOGClfCi8WHSL4VkS4XDdUxIineyXyYzD+UPx4tp4HlC0qcy0fZ4Bog +qmfP1sSON1986Qk2QORWQ/dfmtgVwH7rNMkGndjc1czFWmiZUnInn5jnKsMi +2lkL3U3aa92m2FD8abv7nSdamNM/ovFgmvyfbkXHFPKWoa7B+YFzP0k+q43v +h/y00W9tYuKV32y4uiXj40y0Nm5/Mckr9IcNyX7sHoFMbYyU6fgSRMw8un9Y +pUUbH9boCRrzcECyOptni6UO8uiXxL3l5UAQY0ynSn0F2t1RKVQW5ICi2pmY +hD5drP6vJ0tEjAPVp6e0Z/n0kD3ffzCO2GvSs5Vaqocxz5fd5xfnQE6dhraF +jx6unXdx6DexWsCDdz/b9fCtqkAydyEHdIr6NalX+jj+nvlJfBEHlBVVKFVP +AxyscuOcV+KA7vUIMS4Y4tu4Y4fMVnLAj3liWm+TIf76faa5ifiCetonXy9D +bEyuyPQ34AB/3q3bz6MM8daH4PTEfzjQmTPkmlZqiPr14RJ9DA7EX/DN1lZn +4IK2gDU3TTgwkOCo7yG0ChNass8mWnDgSpiGU3mjERpHSfrcd+fAnU81CfJd +RjgW3+t5wIMDT+29XxwaNsL1J5b2mnpyoE/tvLmFiDHyX16UU72NA1otZJ+w +NcaJnPWV9d4cKGIMz//61BiZvzWOc/05cG+qtFbp/mqMiPZsf7WPA82RsPrk +dVMc8BY9pZDIgaU+bZu896zD69SUnFs9B1h/KkqUDyAWZRpaXxTuBbnhe/Pk +/CxQfKe4/zb3XohgmHWl6VhhU/+f+IKbveA3OlcvPWSN7zuPJ3zg64Nii/B5 +uU22eHGvitrB4D64NhX0pCh9A/K9XhuY2NkHP9fLv66LcUD3Yf747O390M3D +/529cyMmFkablfX3Q4jS3pRj6ptRY4ktr3DoAJTsqq85F+uEHRHTEtKLvsDB +ycUzK3Y546n1c1YdlV9g2t7G7cUOFyxbs1fXO3IQTLenru933oIZSrudReEr +vFucHVTHcMUpZef6Z0JDoHDjRHXB8q1Yd/ThfrvRIbjXo+O4SdwN01eKG3S8 +HQaV1vGAyFE35MfmjjOPRoBxLrXoao87lt1+dSHl9ShkC0zqp9V6YKxp6OOy +9jGoWL+yM/a+J17RD/Zfzj8OF1aflpwr3IZH7K6p5eSMQ9PH63GMxO2o73I5 +M9LoO5RvzNLYd9QLd9czDIc/fYfvwVt4QpjeeDz9xX2e4xMwbaMdOGbpg7Ml +fG8eaU5CweiHn+HGO9BAy6avtnMSPK5c9/cW88VFTXXKt2On4O4dhx38p8jZ +HKud+gCmwVTx3Wz8rC9GywjyZo1Mg3pPQOfbXTvxfuWT4dKzP6BPdPfmrF5i +CzM9tJqB5uRN/rZb/fAf/+ADeZwZSI/KFd3f7IfBTYvixk7+hOpHf2b9N/ij +WXz5/h3ys7DQC08xHvijXOy5acVzs2DqO1YQu4qJjcrP25XFaLhxcTx8kzET +5TSOU5XiNCxqmTCXM2GilxDf0OaFNIxZz7QWrGViMSfp9REpmuxfPLyNFkxc +cfg63ShPw4IZSU8pZybyJggmmmjS0JdkND83mIndlQ9T1q+jIbnq8K57N5gY +X/NeQiCIhmDDDNOoAiaK2yd3Ou2mwfFm6XyTQiae+ON0OmsPDSIZAzcri5kY +wpt0yWAvDbFhTkMVZUwU1eWNcIig4bC2xu7yp0yUv1dT7RBNQ1DGqz13PjGR +m5JpEZFKw4YFA2ZhPUxsnd+hlp1Gw/JYHnFDDhPtPOw+1Z2lYSDMqLi0n4nv +Kg71S5ynYeem3NHbI0zMnAPdzEs0eAiGh9yimTjbU+MadZUG23CFfUWyLLQx +6hhxKaPhaW6cfZo8C99MNlzaU06DWeOERpQCCy/8m9V3soIGA81XHyxVWGg8 +G2Bfeo+Gxe2HLD9qstChKsl1tpqG4TXdsiJGLGzgYUvbPKPhDN/lhwFbWNhv +WPexqZW8/0qxCxu3srAoO9Wzuo2Gk9ujwhjuLNRXDQvMf09DVJnTsj/bWHjy +hoHJgQ6Sn+JNPe/HwsEXChmiXTQwGvyYz0JZuMS9a+Ewh4b2VE1R9RQWSurq +f0v7RkMJiAcOprLQXVtuq9U4qT86VVd8loVOCnfDp4gNN9RFm2SwULyK0ek0 +QfrH4z+xMYeFddeqbOgpGmz2Xv4QVcTCirzVYQtpGpSV/zM2L2Eh9bjEoYh4 +qmHvWf7bLAybftppy6UhTws2Jt9lobm2yOJDczT86u6uufqAhTtmlCTf/aah +zFGx4E09C1tNP9Sv5+dCAs0nmN5A1qvN7stLYr+CoZ2ejSw8MJtzz0mACxIC +DxT7mlj4MdgnfJsgF/ZUeZyZfc/C/5y7rHzmcUFd53ykRj8L9/LlGy8T5QLd +fqTl6wALjwccDr1E3BzLMrg1SPIPc7zEyMkRzV41ZDrCQq3Aj1YjxJ0XWrw3 +T5LxyI6tWQu4kDZP0vogL4VyT9b4PpTkQvVE9/YIfgqdm/vCtaS48KW7MCxE +kMInJ5b0JhGblVld9ptPYVt7UYu7NBcGfKO49pIUBjpKz7YvIvkdraWspSkc +c9XpZ8hwYe1qKW2QofBaR/GKZOIU8SI3xmLitvAX62TJ+IPPpYpLKXx7ep9x +vBwXqOtF9TLqFHaIeE20E6ekHPi8UJPCVXMV8zTlyXyUtLiANoXn3e3MHxCn +SNsGjhhQyAlob29ezIUHv6VjBgwprM0y8ZJS4EL/155zPasoND3DMHUhXlNz +sLbVhELJhIy5RuK+PSUqD5HCiuTLN0oUubDA45BRpQWF2QtcRznEppZ2jqVW +FHYpTSbIKHEheTHnwHU7ChtSCpr3E98TuJWSa09h7IdLkVeJe78dyr/oSOHn +SIOIJmKT5zJtSU4UWm0QiFRTJv0u5QyfciHzeagf3ECclHWL77grcWh+Wwgx +J2yDQaQHhdYO+WllxOI+srb7tlFo81l4qpXYZEOvd5AXha/UM4sm/z6/5EiC +jy+Fu9dpqOuqkDwi9nkefhSG9wiyrYk507L3XZgUsptGp72Jxdm9TY4Uqc/b +sjOC2KTx9oBNIIUZ84s14on9Ko/8wiAKKeUI8yzipDz7RWv3kP5LLL1V/Ld+ +ktwKoxAKzdyLIx/+rR/Vt37lPgqVBKTPvSIWY5Z6aIdRuLzBUaSDePXm6L3q +EaSf3K3vOX/rr3GIU46k0DxBZ3aYOFFTPlsuikIFkRdhk8QVEv13JQ9S2Hxz +ueUsMZtb2iB6mMKItRuDfv2t/yWaLRhN4euVjME/xMbvHH7+iSHfa8aHap4l +XPg/6gcDOg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5568172478120224, 1.695069062895943}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5568172478120236}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.5568172478120224, 1.695069062895943}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5568172478120236}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk4Vd0XB3BzMpQhQ6ZkKkJeN6JkrcyhQjIUEvceUpQhryaa6JUhpFSm +0kB+KGWoqBSVpChEotxrSKZkSM5V/XZ/nOc8n2c/Z+3v2eucvZf67XVh8fHw +8AyS6+899I3+ssrmN+ZpoTcCwt6ywXzsmpGfVRHo20Xk/nVPrnG6hlU1jPB2 +2oQTOzFfC4kxngGzoN07grg0KqZW0KoR6hyC+/YTxz+Xr4kpfAs5fJmd/xLf +bw7NmTNsg66vvniQeKiz4fCBqg7gaDyWOUKs0K++/YdlF+R0l287Suzw7bBp +eONncLOyXniS+NHckGhUIRsazgQz/iN+f0zuUEVIL6j80n+RSDwmZDU0ZdgP +c03xDanEQon7PBkzA3DAJXpdBrGKZHZ9aNUgSLSJqWYTb1L8cWPMcgSumM0y +Compy2qyesJj8JXjzioljtHcHLu78RvkiboI3SfukGv9J6LwO7wrVsh4Sczc +FrTrbOIECCkNxb0jHs/iuXInZBK0frgNfCQWVtOT+G44DaEqolPfiNOZtbYS +Mj+gN31LHk2smu8Zs3LmBzx9sbZG8B0bTHTjxoKrfoIWPWqvTBxo/LlxyHIO +xJRHM52Jp6L2C4ho/YJHbTYvdhAfrRI10xb+DUOqNn4hxBfQ5H8BjX/ArNXk +SyIx83q9VVghLyp1z9NrIi58frbnmCIfWq/Ib+shHv/iczg1kQ/toidHJ4gP +60zfvR3Cj0JURrB8C8l7a6n6N0NB7BZfcTOQuLN55NHvq4K4Rsu56Qix6kTl +tgUyQtjsrMc6S1y0alOa3owQrugT63lMXHf/IO+eKmG03pUkpdLKhunals+D +lmKYXta4+xuxlKOYxKFHYvhQ6/O4eBsbDFqtUNxUHE1WeMzqEgf1lV/+R38B +evrEpe8h3sfXaLBOTALLT0hMfSfuVyv5HvtDEsXusj1l2sn6UA3zmxhS2K0f +LGtGzPe/gaXyoVLYKhHr5k+syljiUjgshafvMnfeJd5mmXLnTY80VioZ5Hl2 +sKHJPyxc7pUM5k0cePfoAxs+5Scn+ArL4nCwystR4pHhwqs3rWUxWTjaUrmT +DSIRvS1ra2Rx7Nih2iPEViddV/mWy6Hg41fjVh/Z8OCa8XRB7mJ0Ydbwj3Sx +4Vo/HbkmQhldY55pZPewwW7rqU/hxcooPCu3s4N4pE7apnhAGTGrSGIRmw2r +runKqHqqYMHBwpeJxHV+PncFzZfgphavqyc4bJj41vPv4AlV3P6n5WdcHxuk +g63K7m5Uw+jClbZ9g2wYuCYS6BSkhouClCb1vrLhXlez4micGiZKv5SKIvZy +9D6hVaOGClfCi8WHSL4VkS4XDdUxIineyXyYzD+UPx4tp4HlC0qcy0fZ4Bog +qmfP1sSON1986Qk2QORWQ/dfmtgVwH7rNMkGndjc1czFWmiZUnInn5jnKsMi +2lkL3U3aa92m2FD8abv7nSdamNM/ovFgmvyfbkXHFPKWoa7B+YFzP0k+q43v +h/y00W9tYuKV32y4uiXj40y0Nm5/Mckr9IcNyX7sHoFMbYyU6fgSRMw8un9Y +pUUbH9boCRrzcECyOptni6UO8uiXxL3l5UAQY0ynSn0F2t1RKVQW5ICi2pmY +hD5drP6vJ0tEjAPVp6e0Z/n0kD3ffzCO2GvSs5Vaqocxz5fd5xfnQE6dhraF +jx6unXdx6DexWsCDdz/b9fCtqkAydyEHdIr6NalX+jj+nvlJfBEHlBVVKFVP +AxyscuOcV+KA7vUIMS4Y4tu4Y4fMVnLAj3liWm+TIf76faa5ifiCetonXy9D +bEyuyPQ34AB/3q3bz6MM8daH4PTEfzjQmTPkmlZqiPr14RJ9DA7EX/DN1lZn +4IK2gDU3TTgwkOCo7yG0ChNass8mWnDgSpiGU3mjERpHSfrcd+fAnU81CfJd +RjgW3+t5wIMDT+29XxwaNsL1J5b2mnpyoE/tvLmFiDHyX16UU72NA1otZJ+w +NcaJnPWV9d4cKGIMz//61BiZvzWOc/05cG+qtFbp/mqMiPZsf7WPA82RsPrk +dVMc8BY9pZDIgaU+bZu896zD69SUnFs9B1h/KkqUDyAWZRpaXxTuBbnhe/Pk +/CxQfKe4/zb3XohgmHWl6VhhU/+f+IKbveA3OlcvPWSN7zuPJ3zg64Nii/B5 +uU22eHGvitrB4D64NhX0pCh9A/K9XhuY2NkHP9fLv66LcUD3Yf747O390M3D +/529cyMmFkablfX3Q4jS3pRj6ptRY4ktr3DoAJTsqq85F+uEHRHTEtKLvsDB +ycUzK3Y546n1c1YdlV9g2t7G7cUOFyxbs1fXO3IQTLenru933oIZSrudReEr +vFucHVTHcMUpZef6Z0JDoHDjRHXB8q1Yd/ThfrvRIbjXo+O4SdwN01eKG3S8 +HQaV1vGAyFE35MfmjjOPRoBxLrXoao87lt1+dSHl9ShkC0zqp9V6YKxp6OOy +9jGoWL+yM/a+J17RD/Zfzj8OF1aflpwr3IZH7K6p5eSMQ9PH63GMxO2o73I5 +M9LoO5RvzNLYd9QLd9czDIc/fYfvwVt4QpjeeDz9xX2e4xMwbaMdOGbpg7Ml +fG8eaU5CweiHn+HGO9BAy6avtnMSPK5c9/cW88VFTXXKt2On4O4dhx38p8jZ +HKud+gCmwVTx3Wz8rC9GywjyZo1Mg3pPQOfbXTvxfuWT4dKzP6BPdPfmrF5i +CzM9tJqB5uRN/rZb/fAf/+ADeZwZSI/KFd3f7IfBTYvixk7+hOpHf2b9N/ij +WXz5/h3ys7DQC08xHvijXOy5acVzs2DqO1YQu4qJjcrP25XFaLhxcTx8kzET +5TSOU5XiNCxqmTCXM2GilxDf0OaFNIxZz7QWrGViMSfp9REpmuxfPLyNFkxc +cfg63ShPw4IZSU8pZybyJggmmmjS0JdkND83mIndlQ9T1q+jIbnq8K57N5gY +X/NeQiCIhmDDDNOoAiaK2yd3Ou2mwfFm6XyTQiae+ON0OmsPDSIZAzcri5kY +wpt0yWAvDbFhTkMVZUwU1eWNcIig4bC2xu7yp0yUv1dT7RBNQ1DGqz13PjGR +m5JpEZFKw4YFA2ZhPUxsnd+hlp1Gw/JYHnFDDhPtPOw+1Z2lYSDMqLi0n4nv +Kg71S5ynYeem3NHbI0zMnAPdzEs0eAiGh9yimTjbU+MadZUG23CFfUWyLLQx +6hhxKaPhaW6cfZo8C99MNlzaU06DWeOERpQCCy/8m9V3soIGA81XHyxVWGg8 +G2Bfeo+Gxe2HLD9qstChKsl1tpqG4TXdsiJGLGzgYUvbPKPhDN/lhwFbWNhv +WPexqZW8/0qxCxu3srAoO9Wzuo2Gk9ujwhjuLNRXDQvMf09DVJnTsj/bWHjy +hoHJgQ6Sn+JNPe/HwsEXChmiXTQwGvyYz0JZuMS9a+Ewh4b2VE1R9RQWSurq +f0v7RkMJiAcOprLQXVtuq9U4qT86VVd8loVOCnfDp4gNN9RFm2SwULyK0ek0 +QfrH4z+xMYeFddeqbOgpGmz2Xv4QVcTCirzVYQtpGpSV/zM2L2Eh9bjEoYh4 +qmHvWf7bLAybftppy6UhTws2Jt9lobm2yOJDczT86u6uufqAhTtmlCTf/aah +zFGx4E09C1tNP9Sv5+dCAs0nmN5A1qvN7stLYr+CoZ2ejSw8MJtzz0mACxIC +DxT7mlj4MdgnfJsgF/ZUeZyZfc/C/5y7rHzmcUFd53ykRj8L9/LlGy8T5QLd +fqTl6wALjwccDr1E3BzLMrg1SPIPc7zEyMkRzV41ZDrCQq3Aj1YjxJ0XWrw3 +T5LxyI6tWQu4kDZP0vogL4VyT9b4PpTkQvVE9/YIfgqdm/vCtaS48KW7MCxE +kMInJ5b0JhGblVld9ptPYVt7UYu7NBcGfKO49pIUBjpKz7YvIvkdraWspSkc +c9XpZ8hwYe1qKW2QofBaR/GKZOIU8SI3xmLitvAX62TJ+IPPpYpLKXx7ep9x +vBwXqOtF9TLqFHaIeE20E6ekHPi8UJPCVXMV8zTlyXyUtLiANoXn3e3MHxCn +SNsGjhhQyAlob29ezIUHv6VjBgwprM0y8ZJS4EL/155zPasoND3DMHUhXlNz +sLbVhELJhIy5RuK+PSUqD5HCiuTLN0oUubDA45BRpQWF2QtcRznEppZ2jqVW +FHYpTSbIKHEheTHnwHU7ChtSCpr3E98TuJWSa09h7IdLkVeJe78dyr/oSOHn +SIOIJmKT5zJtSU4UWm0QiFRTJv0u5QyfciHzeagf3ECclHWL77grcWh+Wwgx +J2yDQaQHhdYO+WllxOI+srb7tlFo81l4qpXYZEOvd5AXha/UM4sm/z6/5EiC +jy+Fu9dpqOuqkDwi9nkefhSG9wiyrYk507L3XZgUsptGp72Jxdm9TY4Uqc/b +sjOC2KTx9oBNIIUZ84s14on9Ko/8wiAKKeUI8yzipDz7RWv3kP5LLL1V/Ld+ +ktwKoxAKzdyLIx/+rR/Vt37lPgqVBKTPvSIWY5Z6aIdRuLzBUaSDePXm6L3q +EaSf3K3vOX/rr3GIU46k0DxBZ3aYOFFTPlsuikIFkRdhk8QVEv13JQ9S2Hxz +ueUsMZtb2iB6mMKItRuDfv2t/yWaLRhN4euVjME/xMbvHH7+iSHfa8aHap4l +XPg/6gcDOg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5568172478120224, 1.695069062895943}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5568172478120236}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.5568172478120236}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5568172478120224, 1.695069062895943}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993911330038269*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"8e8d9c77-9b05-4c8c-96ca-b110d799d4f8"] }, Open ]], Cell[CellGroupData[{ @@ -1691,420 +6632,1315 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\ -562f8b3faecd"], + CellChangeTimes->{3.9918505781608486`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.122586195676297`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993911330411903*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"014468fb-20de-4035-9bc9-a87c10893be7"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"a2ecd22c-b766-5347-9e03-9d459620be75"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.951352687616217`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993911330419085*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"ee2d94c1-9597-481d-be45-2ef0e1b38372"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.0041728533731696`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993911330425972*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"b6befc36-6ffe-4e62-a2fa-881e22567876"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 6.72103 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .14914 -24 -4.5 ] -[.01131 .14914 0 4.5 ] -[.01131 .28356 -24 -4.5 ] -[.01131 .28356 0 4.5 ] -[.01131 .41798 -24 -4.5 ] -[.01131 .41798 0 4.5 ] -[.01131 .5524 -24 -4.5 ] -[.01131 .5524 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .14914 m -.03006 .14914 L -s -[(0.02)] .01131 .14914 1 0 Mshowa -.02381 .28356 m -.03006 .28356 L -s -[(0.04)] .01131 .28356 1 0 Mshowa -.02381 .41798 m -.03006 .41798 L -s -[(0.06)] .01131 .41798 1 0 Mshowa -.02381 .5524 m -.03006 .5524 L -s -[(0.08)] .01131 .5524 1 0 Mshowa -.125 Mabswid -.02381 .04832 m -.02756 .04832 L -s -.02381 .08193 m -.02756 .08193 L -s -.02381 .11553 m -.02756 .11553 L -s -.02381 .18274 m -.02756 .18274 L -s -.02381 .21635 m -.02756 .21635 L -s -.02381 .24995 m -.02756 .24995 L -s -.02381 .31716 m -.02756 .31716 L -s -.02381 .35077 m -.02756 .35077 L -s -.02381 .38437 m -.02756 .38437 L -s -.02381 .45158 m -.02756 .45158 L -s -.02381 .48519 m -.02756 .48519 L -s -.02381 .51879 m -.02756 .51879 L -s -.02381 .586 m -.02756 .586 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .18263 L -.10458 .34796 L -.12507 .41668 L -.14415 .47199 L -.16371 .51906 L -.18221 .55405 L -.192 .56876 L -.20263 .58172 L -.21228 .59082 L -.2212 .59698 L -.22586 .59936 L -.22843 .60043 L -.23087 .60129 L -.23313 .60195 L -.2356 .60252 L -.23669 .60272 L -.23784 .6029 L -.23886 .60304 L -.23993 .60315 L -.24059 .6032 L -.24132 .60325 L -.2426 .60331 L -.24332 .60332 L -.2441 .60332 L -.24483 .6033 L -.2455 .60328 L -.24679 .6032 L -.24752 .60314 L -.24819 .60307 L -.25074 .60272 L -.253 .60228 L -.2555 .60165 L -.26055 .59995 L -.26547 .59774 L -.27064 .59486 L -.2799 .58832 L -.30075 .56765 L -.3205 .54159 L -.33886 .51282 L -.37791 .44198 L -.41941 .36071 L -.45939 .28487 L -.49785 .21945 L -.53877 .16105 L -.57818 .1166 L -.61606 .08416 L -.63714 .07001 L -.6564 .05921 L -.69523 .04269 L -Mistroke -.71425 .03672 L -.73499 .0315 L -.7547 .02757 L -.77569 .0243 L -.79714 .02174 L -.81732 .01991 L -.83744 .01853 L -.85592 .01756 L -.87479 .01681 L -.89546 .0162 L -.91501 .01578 L -.93594 .01545 L -.95662 .01522 L -.97619 .01507 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL -SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870 -7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7 -7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN -39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ -15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ -G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/ -Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY -xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj -jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt -rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM -S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd -UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31 -EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW -Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ -stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav -AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5 -z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0 -PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J -2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M -llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ -bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk -VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ -uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47 -6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL -8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ -M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC -vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q -4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL -kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY -ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp -htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE -ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y -LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S -7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC -o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1 -9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8 -f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu -gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf -Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg -vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl -XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN -fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq -F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G -9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K -p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB -PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7 -gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl -swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd -c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe -6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm -6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V -+koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg -kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj -lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV -nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm -sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9 -Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm -Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-3.23234, -0.00806918, 0.118269, \ -0.000558628}},ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 95, 12, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993911330434367*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"016fceff-5ab8-4dc2-ad00-99d38decb03f"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ -04dec8739bf5"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc8Vf8fB/BKSUOJcMm6595Lw4hE5Hq/o7LKSoPMSiWjSFLISpQRpUFD +SUrGPWQkDSErK8ksfkolsrKi0u/z/eM8zuP5OH+8z/mc9/v1+TD3HbV0njNr +1qy/5PrvPtFZVcaOTNEN9tz0xnoJ6DbdZpza1BoCIqKo0O8vBShav4/Regkk +zIu5j/wVwcf8UQtfazJUTpj/CfTXgWWD4pemWnJAr2B1mr7/Nuh6Znp0rKUE +FH83PInws4Wt7L6PIy2NcEfolfkTXzeYatG8MtzyCXimCgLh7v5Qqv8g5W3y +KBjsTY5ud40Gqa7Cr/sU/8LhB9EHzZKuwHI3h0fz9fkwe59+00nWTbikurXI +dKcArvL2q+UcuQtt19cWjwgJYrNawcnzlikQmRJYP0diGcobmx9erv4AxOM/ +n798SwR7y1zn49M0CLcy0m2cEEW+wfSvZVXpIJlbJzlnthiuz1wZvaQxHbJE +rCZVF4nhmNdknGV7OjQ32tNxsmJoqMPLqepLB7aFN2VhKIarLw2u916UASXb +k/gbEsTwZbnIiUKTDPi7dbyuVkcc+dtNy2YqMuC41l2HqhAGLvoQbWzMywTj +O0vGTKIYeJv/Bk3nZQI13z+i7goDP/3Snyf8LBMamnZlv3vIQBms9X1dmQnK +xxbzddYxMH1HVcBQdyb0pp5M/SkpgY/neWaYiWSB7XLTgRWPJTDAUNtM1ysL +1vkVBd9+JoFO9fM+zPbNgoWfVooxyyUwaN+m7cUBWVDI4wP5Ngn8VsP8oHQ+ +C8RMCmPX/pPAX0rn7r9JyoKGYLb6FhNJVD50pGhZTRZsHpo+7fFZEgccnbrL +5XhwyjB+9asfkihltO5LDYcHWXeV2kUmJFGcyf+ndjUPGFaOWoUCK9Cm2X/f +K3Ue/HjyepJPeQUOLEpY5m7Ig8shsd4JviuwImDxWIsHDz6JynuUCUqhs6l6 +7+8CHogffSktLi6F9SUjJgee8WBb5Z5aFzkprDhzobSimAf5pyMVl66TwmGh +54OBVTy40DXcZ71HCqVHfTbktfNALa3o0FCyFC5Mqy9Y94cHwToWTpIbpNGo ++lZtsTQNhva3f2rqSaPv9I/oelkalgT1h+7cJo0JxwZdO5g03CwNS411lEaD +l4+D+zg0PDF+2s9/XhpjzipIfFWiYXgPy2e0TRqP/3Fh7uDSYH9i/EKNnwz2 +rjMT4rehgXNNT6ovTAYfit35/mQvTb7/Yub8WBlcNhz37bAdDaf/rGrQS5FB +32Y3y2JHGq6E2osW1shgzJGn/dsO0VATV5F0X1oWTzutcv94nAbtrITcMy9l +0absSOvHCzRsbqn7O1gpi3P+qf+QiaLBdNZcA4dGWfSNXhBlF03DfkuPNvgi +i0NafJ7vLtKw1Y8ZGDRPDj035LbejafhmOzEvU1r5JAeqD5QdYuG8cexlVMq +chhZq23/+TZ5P8M1A9nqcrh/+HnvdBINYZ6OGpSuHOqvssqhkmlILK2unGMh +hw4SG5k7U2koO5Q0UOojh0zhpKItWTQY/dES9veTw167sKENPBrqYps01IPk +MD6Q8XQVTUNb4YKglPNyuFT45fK5OTQMLvIWDrtJ6r8K6ruRRwODNtTcWiKH +hm7a7nue0XBr8+e9M+VyGLtrpxbnOQ1UW0BQ/hs5POGhnzxErDTncZX8ezk0 +Tly/LeAlDXpW0rbze+Xw0vvmRf4lNLj9GgmqFGTiu5Lhq/MryXp6HhT7KsxE +uQ87DJ4RC/S1p/MxmLjJ/IyqRxUN9ztKm3UpJv6sccqrqqah88UVxTwNJq6J +EYt0qKUhQ3NhSeNGJoYM75OYIT5Nn9k9jEz0WT39JaGOBrHkQyFrTJhYb7JH +p6qeBrMwrda7Dkyc8mUP8jfSIDOT6f7yABM9u0QCLxL/8KH4Prow8VHkjKXo +OxoiDi9SZngzcURsTTmjiYZik4+hMRFMFBSu7Zt5T0NMmYVERjQTzb4HpHg2 +02DLLc+qusTEinj+1G7iKWVe29xbTNx8QzK0sIUGNeFgFb9sJm478zbfsI2G +WZHjZdfzmdhjVlx8n7iO74hNfhETJ+tjxGe10+A6bhk28pqJ1733ZmUQa3tU +SC59w8SCqHtDM8QC3zbSig1MTNByCDLtoCGlld1xqJ2Jc0/UXPpC7GWRcCys +i4kCG2pFlT7QgNWC/Pd6SL3Jrj5P4o9FE2s7B5l4ZlZ39Chxhrpr+e9RJnbT +LLu1H8l6ZnbtlZhiYpwiM/gIsVhS5TkrPgovuP6paibuEedKeQlQ2F60blig +k4ac2Ozsi4IU3h5udd9AHLRA3iBTmMLYw4n6zsRmIYkfqsUp7GEreF0klvm9 +xKtXisLOSuXpfOIfx0Pn81MUHkhw+tBBHOHsprZJkULJqcU50l007Or8X4W9 +KoU6Gt9TtYnZu3fa+WtQ+HW64JcV8c/6qp8JGykMzVR86EZcbKgbUYAUntzx +Oy+YOOZVjvT7LRRmxbZS8cS22gqPfxpTqPbg1NA94tWPbxgKmVOY7hMvlU08 +tUaoU2knhTN+XY+KiCduSQavs6HQ0b7fr5R4bCmHreVA4f38popK4pFglQrd +AxSyvhhdfEM8OKp1ZLMLhXHtU43/ud95s6CxB4VJ4vGXq4h7W0xps+MURmZU +vi0j/mJkvWOnL4XFGwxjnhN/Kto/YRNA6vWVVj0m7lLySHAMobA3YODsA+IP +Sb46B8MpLOOeLL5O3LYstMs1isLm2csDwombQ6NDPOMoVFQ5WXSc+N34Nc7J +qxSeKLDytyNuOJRc6X+DQprhVLyZuLYtwzXkDoU5thYRq4irTQqWRNynsJrR +0bSIuOL5q+zoRxRud89N7Sf/p0ylxuoyj0LlefEzlcQvRLoTbxdSeMROX9+f +uCisn5vygsIFnFBVS+Ink+P/SyulsICb9pDzX790LFTIqyXrYxGj/pr0E2+7 +aPXTRgotrr8yjiPOeCnrXtxC4eHy0h82xKn31B+/6aZQQ5fV8pX0a6KrPXwa +p7Ahd9i6m/T7tY+HP32bprDphtbnBOJ4s+NhA/8odH69ccaMOGZdxJtfC1gY +1n3kRy6Zn5Df2buXyrDQu+P8Cycyf4Huz6aXs1go35bVx0/s31V+S3IlC7Wt +rmeltdLgU9rxmaPGQr3Rilm9ZJ5dI+cd09nKwsF/sj0GZN4P/10qomfCwpmL +/Z/bSD4cPCqZb2DOwnOdqcEuxI47VP5Y2rBwKG1RYjDJE6sV1hEuHix8nxts +dYXkj056xp2rV1kYpGp214TkV4dcetKWGyy0as74+uq/fLuadnssiYXWTh5s +DeKC4NSblmksfBb3PJJRQ/Jlz53rS56x0CZmjtRrkp+r5sXHnutm4YusyZbn +ZTRUnr50cf1XFlIXREdFiA8Ox8b09LGQ9sNlh0tJfnRER+mNsfDWvePWC0le +y+WER8zwszHbfq+iJslzMQe/IB9FNvasTj6hVkhDXtOpQI4qG5nScSIuT8j3 +GPueaVrPxrfBF17eKqDh0voT/mrAxt1zDm2enU+D4OKjvoMWbBThOYpmk/1m +buG+YwdPsnH+c5ZXbjqZH2Fjx10lbFSrerfc7CYNrW5Uw5EKUt+3IVrtBpnn +8mkIrGHjK9G5rSKJNMSeTpd92MzG4ZG6z/XXaFj7aXHXVB8bWz7AqNJlGjyy +6+1uiXDQPoPzOuQ8DX1mO/f2HOAgx1W354o3DY1pSm9+uXAweIHp3vVkf3/K +x79R8CgHrXmaJY2eNJwvyJfUOMVB3erQ/fOP0rBSltEeHs3BFzl+S/e40HBo +sH3PmnwObpSp+36NnCd6ohx3ec2Xx6f9obevbyb1+xSptYvlsSHwYa2IPg2T +BlMDA0LymGDjsi16Ew0L+S6FuUjK45aMxTp+uuT9T5XmOirJY8zQ32m9DTQE +OMuLmO2Qx335Rtkha8j66/6oX5Mkj6fMeporhcj+PnTS6IuGAjpa68brZvJA +SlXmnICOAnJ0NP4nnsaDQa+ykjWbFDClb07uQAoP4ieEdLxMFDBc/fPvmJs8 +6PybpvzPQQEzhbcZP4zkgdfiDyIS5xWwYES0XtOFB4mrsHNbhwJuHFceaWOS +8+N+geO5gStR2f3z8gfkvLqVLT4nvGQVTl70EWjmZoJwrXwMPbQaE+ca5st+ +SwepCJ65hoYi/gr/U+29+xFcX6MlJHJICZtLLm2XqH8I1ZKb1o/GKeOI3L7J +t3oPQFuqJFalWQUNPtrano25D0v4kr2dQtZi4fKLiXMm74FMsKyOtbwqan41 +dUzRS4YFHNt8ywpin8p18XfugDJXgnfSTg1D7Ys7DM1ug1encKnxrHVo6SmQ +24g3YGg0aqfR9XXoHvOLpxV1HQxUyhONlNSR63NkF2vxVXgxuvH3ZJ06qoav +jSwKvQweimrtb53Xo2v1n69nd8QBd/BAk/UCDTRqWKWqZRIDW9iM7YLJGmi+ +IW926JULsDLogm+JpiY2pN59PNcgHFY7a73ktGuiQsCB45sWnwXnF4fP5npu +wPMlJ1+F2ATDyztNB0ZEtVDyXFKvyrkAGHv4b1KlQAsXjJ9PnBQ8Bfs56QsS +t2vjEPt7H8f5BIysvqyRM6yNteJh5aFDnvAk5Xf3eMRGFFqpEWJu4AE2m1mk +F3VQsL2RLRvuAivcwwuVi3XwlJ/TO40VziC60C17+24uGloyeiyvOUGKfsDp +YWsuXnS7s6UjwgnUAmL0L9ty0aCrZcr9tBOYDtPvW524qFDXppdj5wTnmsen +9rtx0Wy2zuM8thP8Sg7UOx3MRe+x+LHkXEdo33j5XWo6Fye+BGp+LHCAwydS +bhplcXHpiQo1t1sOMJGV5/yD5uKkz779S0IdQJhqnVTN5+L3T3c0o0wdwERA +Wup5MRfDGOFebl/t4VlT6oF377noPpnlmSdhD8ZLnij5tHJxuMbinNcse2g1 +qJpgdHCRQ9vK6H2zg7Gn/RH2/+MiY3FxBiPPDpTurs383sfFwRFtoWQLO3jW +vsknaoCLddKBgj832IHx8h2gMsxF8/5XGlZydnAw/MRb73HimI/dpkO2MFZ8 +LlH8Fxdvtguafmu2hZDpa/ufTpPnBf1P417YgpB6mqLdXy5mGGRKm6bawm33 +p+P//nFxS1uUq1SMLfwf0flrGw== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB/BKSUOJcMm6595Lw4hE5Hq/o7LKSoPMSiWjSFLISpQRpUFD +SUrGPWQkDSErK8ksfkolsrKi0u/z/eM8zuP5OH+8z/mc9/v1+TD3HbV0njNr +1qy/5PrvPtFZVcaOTNEN9tz0xnoJ6DbdZpza1BoCIqKo0O8vBShav4/Regkk +zIu5j/wVwcf8UQtfazJUTpj/CfTXgWWD4pemWnJAr2B1mr7/Nuh6Znp0rKUE +FH83PInws4Wt7L6PIy2NcEfolfkTXzeYatG8MtzyCXimCgLh7v5Qqv8g5W3y +KBjsTY5ud40Gqa7Cr/sU/8LhB9EHzZKuwHI3h0fz9fkwe59+00nWTbikurXI +dKcArvL2q+UcuQtt19cWjwgJYrNawcnzlikQmRJYP0diGcobmx9erv4AxOM/ +n798SwR7y1zn49M0CLcy0m2cEEW+wfSvZVXpIJlbJzlnthiuz1wZvaQxHbJE +rCZVF4nhmNdknGV7OjQ32tNxsmJoqMPLqepLB7aFN2VhKIarLw2u916UASXb +k/gbEsTwZbnIiUKTDPi7dbyuVkcc+dtNy2YqMuC41l2HqhAGLvoQbWzMywTj +O0vGTKIYeJv/Bk3nZQI13z+i7goDP/3Snyf8LBMamnZlv3vIQBms9X1dmQnK +xxbzddYxMH1HVcBQdyb0pp5M/SkpgY/neWaYiWSB7XLTgRWPJTDAUNtM1ysL +1vkVBd9+JoFO9fM+zPbNgoWfVooxyyUwaN+m7cUBWVDI4wP5Ngn8VsP8oHQ+ +C8RMCmPX/pPAX0rn7r9JyoKGYLb6FhNJVD50pGhZTRZsHpo+7fFZEgccnbrL +5XhwyjB+9asfkihltO5LDYcHWXeV2kUmJFGcyf+ndjUPGFaOWoUCK9Cm2X/f +K3Ue/HjyepJPeQUOLEpY5m7Ig8shsd4JviuwImDxWIsHDz6JynuUCUqhs6l6 +7+8CHogffSktLi6F9SUjJgee8WBb5Z5aFzkprDhzobSimAf5pyMVl66TwmGh +54OBVTy40DXcZ71HCqVHfTbktfNALa3o0FCyFC5Mqy9Y94cHwToWTpIbpNGo ++lZtsTQNhva3f2rqSaPv9I/oelkalgT1h+7cJo0JxwZdO5g03CwNS411lEaD +l4+D+zg0PDF+2s9/XhpjzipIfFWiYXgPy2e0TRqP/3Fh7uDSYH9i/EKNnwz2 +rjMT4rehgXNNT6ovTAYfit35/mQvTb7/Yub8WBlcNhz37bAdDaf/rGrQS5FB +32Y3y2JHGq6E2osW1shgzJGn/dsO0VATV5F0X1oWTzutcv94nAbtrITcMy9l +0absSOvHCzRsbqn7O1gpi3P+qf+QiaLBdNZcA4dGWfSNXhBlF03DfkuPNvgi +i0NafJ7vLtKw1Y8ZGDRPDj035LbejafhmOzEvU1r5JAeqD5QdYuG8cexlVMq +chhZq23/+TZ5P8M1A9nqcrh/+HnvdBINYZ6OGpSuHOqvssqhkmlILK2unGMh +hw4SG5k7U2koO5Q0UOojh0zhpKItWTQY/dES9veTw167sKENPBrqYps01IPk +MD6Q8XQVTUNb4YKglPNyuFT45fK5OTQMLvIWDrtJ6r8K6ruRRwODNtTcWiKH +hm7a7nue0XBr8+e9M+VyGLtrpxbnOQ1UW0BQ/hs5POGhnzxErDTncZX8ezk0 +Tly/LeAlDXpW0rbze+Xw0vvmRf4lNLj9GgmqFGTiu5Lhq/MryXp6HhT7KsxE +uQ87DJ4RC/S1p/MxmLjJ/IyqRxUN9ztKm3UpJv6sccqrqqah88UVxTwNJq6J +EYt0qKUhQ3NhSeNGJoYM75OYIT5Nn9k9jEz0WT39JaGOBrHkQyFrTJhYb7JH +p6qeBrMwrda7Dkyc8mUP8jfSIDOT6f7yABM9u0QCLxL/8KH4Prow8VHkjKXo +OxoiDi9SZngzcURsTTmjiYZik4+hMRFMFBSu7Zt5T0NMmYVERjQTzb4HpHg2 +02DLLc+qusTEinj+1G7iKWVe29xbTNx8QzK0sIUGNeFgFb9sJm478zbfsI2G +WZHjZdfzmdhjVlx8n7iO74hNfhETJ+tjxGe10+A6bhk28pqJ1733ZmUQa3tU +SC59w8SCqHtDM8QC3zbSig1MTNByCDLtoCGlld1xqJ2Jc0/UXPpC7GWRcCys +i4kCG2pFlT7QgNWC/Pd6SL3Jrj5P4o9FE2s7B5l4ZlZ39Chxhrpr+e9RJnbT +LLu1H8l6ZnbtlZhiYpwiM/gIsVhS5TkrPgovuP6paibuEedKeQlQ2F60blig +k4ac2Ozsi4IU3h5udd9AHLRA3iBTmMLYw4n6zsRmIYkfqsUp7GEreF0klvm9 +xKtXisLOSuXpfOIfx0Pn81MUHkhw+tBBHOHsprZJkULJqcU50l007Or8X4W9 +KoU6Gt9TtYnZu3fa+WtQ+HW64JcV8c/6qp8JGykMzVR86EZcbKgbUYAUntzx +Oy+YOOZVjvT7LRRmxbZS8cS22gqPfxpTqPbg1NA94tWPbxgKmVOY7hMvlU08 +tUaoU2knhTN+XY+KiCduSQavs6HQ0b7fr5R4bCmHreVA4f38popK4pFglQrd +AxSyvhhdfEM8OKp1ZLMLhXHtU43/ud95s6CxB4VJ4vGXq4h7W0xps+MURmZU +vi0j/mJkvWOnL4XFGwxjnhN/Kto/YRNA6vWVVj0m7lLySHAMobA3YODsA+IP +Sb46B8MpLOOeLL5O3LYstMs1isLm2csDwombQ6NDPOMoVFQ5WXSc+N34Nc7J +qxSeKLDytyNuOJRc6X+DQprhVLyZuLYtwzXkDoU5thYRq4irTQqWRNynsJrR +0bSIuOL5q+zoRxRud89N7Sf/p0ylxuoyj0LlefEzlcQvRLoTbxdSeMROX9+f +uCisn5vygsIFnFBVS+Ink+P/SyulsICb9pDzX790LFTIqyXrYxGj/pr0E2+7 +aPXTRgotrr8yjiPOeCnrXtxC4eHy0h82xKn31B+/6aZQQ5fV8pX0a6KrPXwa +p7Ahd9i6m/T7tY+HP32bprDphtbnBOJ4s+NhA/8odH69ccaMOGZdxJtfC1gY +1n3kRy6Zn5Df2buXyrDQu+P8Cycyf4Huz6aXs1go35bVx0/s31V+S3IlC7Wt +rmeltdLgU9rxmaPGQr3Rilm9ZJ5dI+cd09nKwsF/sj0GZN4P/10qomfCwpmL +/Z/bSD4cPCqZb2DOwnOdqcEuxI47VP5Y2rBwKG1RYjDJE6sV1hEuHix8nxts +dYXkj056xp2rV1kYpGp214TkV4dcetKWGyy0as74+uq/fLuadnssiYXWTh5s +DeKC4NSblmksfBb3PJJRQ/Jlz53rS56x0CZmjtRrkp+r5sXHnutm4YusyZbn +ZTRUnr50cf1XFlIXREdFiA8Ox8b09LGQ9sNlh0tJfnRER+mNsfDWvePWC0le +y+WER8zwszHbfq+iJslzMQe/IB9FNvasTj6hVkhDXtOpQI4qG5nScSIuT8j3 +GPueaVrPxrfBF17eKqDh0voT/mrAxt1zDm2enU+D4OKjvoMWbBThOYpmk/1m +buG+YwdPsnH+c5ZXbjqZH2Fjx10lbFSrerfc7CYNrW5Uw5EKUt+3IVrtBpnn +8mkIrGHjK9G5rSKJNMSeTpd92MzG4ZG6z/XXaFj7aXHXVB8bWz7AqNJlGjyy +6+1uiXDQPoPzOuQ8DX1mO/f2HOAgx1W354o3DY1pSm9+uXAweIHp3vVkf3/K +x79R8CgHrXmaJY2eNJwvyJfUOMVB3erQ/fOP0rBSltEeHs3BFzl+S/e40HBo +sH3PmnwObpSp+36NnCd6ohx3ec2Xx6f9obevbyb1+xSptYvlsSHwYa2IPg2T +BlMDA0LymGDjsi16Ew0L+S6FuUjK45aMxTp+uuT9T5XmOirJY8zQ32m9DTQE +OMuLmO2Qx335Rtkha8j66/6oX5Mkj6fMeporhcj+PnTS6IuGAjpa68brZvJA +SlXmnICOAnJ0NP4nnsaDQa+ykjWbFDClb07uQAoP4ieEdLxMFDBc/fPvmJs8 +6PybpvzPQQEzhbcZP4zkgdfiDyIS5xWwYES0XtOFB4mrsHNbhwJuHFceaWOS +8+N+geO5gStR2f3z8gfkvLqVLT4nvGQVTl70EWjmZoJwrXwMPbQaE+ca5st+ +SwepCJ65hoYi/gr/U+29+xFcX6MlJHJICZtLLm2XqH8I1ZKb1o/GKeOI3L7J +t3oPQFuqJFalWQUNPtrano25D0v4kr2dQtZi4fKLiXMm74FMsKyOtbwqan41 +dUzRS4YFHNt8ywpin8p18XfugDJXgnfSTg1D7Ys7DM1ug1encKnxrHVo6SmQ +24g3YGg0aqfR9XXoHvOLpxV1HQxUyhONlNSR63NkF2vxVXgxuvH3ZJ06qoav +jSwKvQweimrtb53Xo2v1n69nd8QBd/BAk/UCDTRqWKWqZRIDW9iM7YLJGmi+ +IW926JULsDLogm+JpiY2pN59PNcgHFY7a73ktGuiQsCB45sWnwXnF4fP5npu +wPMlJ1+F2ATDyztNB0ZEtVDyXFKvyrkAGHv4b1KlQAsXjJ9PnBQ8Bfs56QsS +t2vjEPt7H8f5BIysvqyRM6yNteJh5aFDnvAk5Xf3eMRGFFqpEWJu4AE2m1mk +F3VQsL2RLRvuAivcwwuVi3XwlJ/TO40VziC60C17+24uGloyeiyvOUGKfsDp +YWsuXnS7s6UjwgnUAmL0L9ty0aCrZcr9tBOYDtPvW524qFDXppdj5wTnmsen +9rtx0Wy2zuM8thP8Sg7UOx3MRe+x+LHkXEdo33j5XWo6Fye+BGp+LHCAwydS +bhplcXHpiQo1t1sOMJGV5/yD5uKkz779S0IdQJhqnVTN5+L3T3c0o0wdwERA +Wup5MRfDGOFebl/t4VlT6oF377noPpnlmSdhD8ZLnij5tHJxuMbinNcse2g1 +qJpgdHCRQ9vK6H2zg7Gn/RH2/+MiY3FxBiPPDpTurs383sfFwRFtoWQLO3jW +vsknaoCLddKBgj832IHx8h2gMsxF8/5XGlZydnAw/MRb73HimI/dpkO2MFZ8 +LlH8Fxdvtguafmu2hZDpa/ufTpPnBf1P417YgpB6mqLdXy5mGGRKm6bawm33 +p+P//nFxS1uUq1SMLfwf0flrGw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06591485882550276}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06591485882550276}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB/BKSUOJcMm6595Lw4hE5Hq/o7LKSoPMSiWjSFLISpQRpUFD +SUrGPWQkDSErK8ksfkolsrKi0u/z/eM8zuP5OH+8z/mc9/v1+TD3HbV0njNr +1qy/5PrvPtFZVcaOTNEN9tz0xnoJ6DbdZpza1BoCIqKo0O8vBShav4/Regkk +zIu5j/wVwcf8UQtfazJUTpj/CfTXgWWD4pemWnJAr2B1mr7/Nuh6Znp0rKUE +FH83PInws4Wt7L6PIy2NcEfolfkTXzeYatG8MtzyCXimCgLh7v5Qqv8g5W3y +KBjsTY5ud40Gqa7Cr/sU/8LhB9EHzZKuwHI3h0fz9fkwe59+00nWTbikurXI +dKcArvL2q+UcuQtt19cWjwgJYrNawcnzlikQmRJYP0diGcobmx9erv4AxOM/ +n798SwR7y1zn49M0CLcy0m2cEEW+wfSvZVXpIJlbJzlnthiuz1wZvaQxHbJE +rCZVF4nhmNdknGV7OjQ32tNxsmJoqMPLqepLB7aFN2VhKIarLw2u916UASXb +k/gbEsTwZbnIiUKTDPi7dbyuVkcc+dtNy2YqMuC41l2HqhAGLvoQbWzMywTj +O0vGTKIYeJv/Bk3nZQI13z+i7goDP/3Snyf8LBMamnZlv3vIQBms9X1dmQnK +xxbzddYxMH1HVcBQdyb0pp5M/SkpgY/neWaYiWSB7XLTgRWPJTDAUNtM1ysL +1vkVBd9+JoFO9fM+zPbNgoWfVooxyyUwaN+m7cUBWVDI4wP5Ngn8VsP8oHQ+ +C8RMCmPX/pPAX0rn7r9JyoKGYLb6FhNJVD50pGhZTRZsHpo+7fFZEgccnbrL +5XhwyjB+9asfkihltO5LDYcHWXeV2kUmJFGcyf+ndjUPGFaOWoUCK9Cm2X/f +K3Ue/HjyepJPeQUOLEpY5m7Ig8shsd4JviuwImDxWIsHDz6JynuUCUqhs6l6 +7+8CHogffSktLi6F9SUjJgee8WBb5Z5aFzkprDhzobSimAf5pyMVl66TwmGh +54OBVTy40DXcZ71HCqVHfTbktfNALa3o0FCyFC5Mqy9Y94cHwToWTpIbpNGo ++lZtsTQNhva3f2rqSaPv9I/oelkalgT1h+7cJo0JxwZdO5g03CwNS411lEaD +l4+D+zg0PDF+2s9/XhpjzipIfFWiYXgPy2e0TRqP/3Fh7uDSYH9i/EKNnwz2 +rjMT4rehgXNNT6ovTAYfit35/mQvTb7/Yub8WBlcNhz37bAdDaf/rGrQS5FB +32Y3y2JHGq6E2osW1shgzJGn/dsO0VATV5F0X1oWTzutcv94nAbtrITcMy9l +0absSOvHCzRsbqn7O1gpi3P+qf+QiaLBdNZcA4dGWfSNXhBlF03DfkuPNvgi +i0NafJ7vLtKw1Y8ZGDRPDj035LbejafhmOzEvU1r5JAeqD5QdYuG8cexlVMq +chhZq23/+TZ5P8M1A9nqcrh/+HnvdBINYZ6OGpSuHOqvssqhkmlILK2unGMh +hw4SG5k7U2koO5Q0UOojh0zhpKItWTQY/dES9veTw167sKENPBrqYps01IPk +MD6Q8XQVTUNb4YKglPNyuFT45fK5OTQMLvIWDrtJ6r8K6ruRRwODNtTcWiKH +hm7a7nue0XBr8+e9M+VyGLtrpxbnOQ1UW0BQ/hs5POGhnzxErDTncZX8ezk0 +Tly/LeAlDXpW0rbze+Xw0vvmRf4lNLj9GgmqFGTiu5Lhq/MryXp6HhT7KsxE +uQ87DJ4RC/S1p/MxmLjJ/IyqRxUN9ztKm3UpJv6sccqrqqah88UVxTwNJq6J +EYt0qKUhQ3NhSeNGJoYM75OYIT5Nn9k9jEz0WT39JaGOBrHkQyFrTJhYb7JH +p6qeBrMwrda7Dkyc8mUP8jfSIDOT6f7yABM9u0QCLxL/8KH4Prow8VHkjKXo +OxoiDi9SZngzcURsTTmjiYZik4+hMRFMFBSu7Zt5T0NMmYVERjQTzb4HpHg2 +02DLLc+qusTEinj+1G7iKWVe29xbTNx8QzK0sIUGNeFgFb9sJm478zbfsI2G +WZHjZdfzmdhjVlx8n7iO74hNfhETJ+tjxGe10+A6bhk28pqJ1733ZmUQa3tU +SC59w8SCqHtDM8QC3zbSig1MTNByCDLtoCGlld1xqJ2Jc0/UXPpC7GWRcCys +i4kCG2pFlT7QgNWC/Pd6SL3Jrj5P4o9FE2s7B5l4ZlZ39Chxhrpr+e9RJnbT +LLu1H8l6ZnbtlZhiYpwiM/gIsVhS5TkrPgovuP6paibuEedKeQlQ2F60blig +k4ac2Ozsi4IU3h5udd9AHLRA3iBTmMLYw4n6zsRmIYkfqsUp7GEreF0klvm9 +xKtXisLOSuXpfOIfx0Pn81MUHkhw+tBBHOHsprZJkULJqcU50l007Or8X4W9 +KoU6Gt9TtYnZu3fa+WtQ+HW64JcV8c/6qp8JGykMzVR86EZcbKgbUYAUntzx +Oy+YOOZVjvT7LRRmxbZS8cS22gqPfxpTqPbg1NA94tWPbxgKmVOY7hMvlU08 +tUaoU2knhTN+XY+KiCduSQavs6HQ0b7fr5R4bCmHreVA4f38popK4pFglQrd +AxSyvhhdfEM8OKp1ZLMLhXHtU43/ud95s6CxB4VJ4vGXq4h7W0xps+MURmZU +vi0j/mJkvWOnL4XFGwxjnhN/Kto/YRNA6vWVVj0m7lLySHAMobA3YODsA+IP +Sb46B8MpLOOeLL5O3LYstMs1isLm2csDwombQ6NDPOMoVFQ5WXSc+N34Nc7J +qxSeKLDytyNuOJRc6X+DQprhVLyZuLYtwzXkDoU5thYRq4irTQqWRNynsJrR +0bSIuOL5q+zoRxRud89N7Sf/p0ylxuoyj0LlefEzlcQvRLoTbxdSeMROX9+f +uCisn5vygsIFnFBVS+Ink+P/SyulsICb9pDzX790LFTIqyXrYxGj/pr0E2+7 +aPXTRgotrr8yjiPOeCnrXtxC4eHy0h82xKn31B+/6aZQQ5fV8pX0a6KrPXwa +p7Ahd9i6m/T7tY+HP32bprDphtbnBOJ4s+NhA/8odH69ccaMOGZdxJtfC1gY +1n3kRy6Zn5Df2buXyrDQu+P8Cycyf4Huz6aXs1go35bVx0/s31V+S3IlC7Wt +rmeltdLgU9rxmaPGQr3Rilm9ZJ5dI+cd09nKwsF/sj0GZN4P/10qomfCwpmL +/Z/bSD4cPCqZb2DOwnOdqcEuxI47VP5Y2rBwKG1RYjDJE6sV1hEuHix8nxts +dYXkj056xp2rV1kYpGp214TkV4dcetKWGyy0as74+uq/fLuadnssiYXWTh5s +DeKC4NSblmksfBb3PJJRQ/Jlz53rS56x0CZmjtRrkp+r5sXHnutm4YusyZbn +ZTRUnr50cf1XFlIXREdFiA8Ox8b09LGQ9sNlh0tJfnRER+mNsfDWvePWC0le +y+WER8zwszHbfq+iJslzMQe/IB9FNvasTj6hVkhDXtOpQI4qG5nScSIuT8j3 +GPueaVrPxrfBF17eKqDh0voT/mrAxt1zDm2enU+D4OKjvoMWbBThOYpmk/1m +buG+YwdPsnH+c5ZXbjqZH2Fjx10lbFSrerfc7CYNrW5Uw5EKUt+3IVrtBpnn +8mkIrGHjK9G5rSKJNMSeTpd92MzG4ZG6z/XXaFj7aXHXVB8bWz7AqNJlGjyy +6+1uiXDQPoPzOuQ8DX1mO/f2HOAgx1W354o3DY1pSm9+uXAweIHp3vVkf3/K +x79R8CgHrXmaJY2eNJwvyJfUOMVB3erQ/fOP0rBSltEeHs3BFzl+S/e40HBo +sH3PmnwObpSp+36NnCd6ohx3ec2Xx6f9obevbyb1+xSptYvlsSHwYa2IPg2T +BlMDA0LymGDjsi16Ew0L+S6FuUjK45aMxTp+uuT9T5XmOirJY8zQ32m9DTQE +OMuLmO2Qx335Rtkha8j66/6oX5Mkj6fMeporhcj+PnTS6IuGAjpa68brZvJA +SlXmnICOAnJ0NP4nnsaDQa+ykjWbFDClb07uQAoP4ieEdLxMFDBc/fPvmJs8 +6PybpvzPQQEzhbcZP4zkgdfiDyIS5xWwYES0XtOFB4mrsHNbhwJuHFceaWOS +8+N+geO5gStR2f3z8gfkvLqVLT4nvGQVTl70EWjmZoJwrXwMPbQaE+ca5st+ +SwepCJ65hoYi/gr/U+29+xFcX6MlJHJICZtLLm2XqH8I1ZKb1o/GKeOI3L7J +t3oPQFuqJFalWQUNPtrano25D0v4kr2dQtZi4fKLiXMm74FMsKyOtbwqan41 +dUzRS4YFHNt8ywpin8p18XfugDJXgnfSTg1D7Ys7DM1ug1encKnxrHVo6SmQ +24g3YGg0aqfR9XXoHvOLpxV1HQxUyhONlNSR63NkF2vxVXgxuvH3ZJ06qoav +jSwKvQweimrtb53Xo2v1n69nd8QBd/BAk/UCDTRqWKWqZRIDW9iM7YLJGmi+ +IW926JULsDLogm+JpiY2pN59PNcgHFY7a73ktGuiQsCB45sWnwXnF4fP5npu +wPMlJ1+F2ATDyztNB0ZEtVDyXFKvyrkAGHv4b1KlQAsXjJ9PnBQ8Bfs56QsS +t2vjEPt7H8f5BIysvqyRM6yNteJh5aFDnvAk5Xf3eMRGFFqpEWJu4AE2m1mk +F3VQsL2RLRvuAivcwwuVi3XwlJ/TO40VziC60C17+24uGloyeiyvOUGKfsDp +YWsuXnS7s6UjwgnUAmL0L9ty0aCrZcr9tBOYDtPvW524qFDXppdj5wTnmsen +9rtx0Wy2zuM8thP8Sg7UOx3MRe+x+LHkXEdo33j5XWo6Fye+BGp+LHCAwydS +bhplcXHpiQo1t1sOMJGV5/yD5uKkz779S0IdQJhqnVTN5+L3T3c0o0wdwERA +Wup5MRfDGOFebl/t4VlT6oF377noPpnlmSdhD8ZLnij5tHJxuMbinNcse2g1 +qJpgdHCRQ9vK6H2zg7Gn/RH2/+MiY3FxBiPPDpTurs383sfFwRFtoWQLO3jW +vsknaoCLddKBgj832IHx8h2gMsxF8/5XGlZydnAw/MRb73HimI/dpkO2MFZ8 +LlH8Fxdvtguafmu2hZDpa/ufTpPnBf1P417YgpB6mqLdXy5mGGRKm6bawm33 +p+P//nFxS1uUq1SMLfwf0flrGw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06591485882550276}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06591485882550276}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939116789530497`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"8a202dbb-e994-4e8b-945b-c6d702039506"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ -5e6c7b4b5678"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.007417"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.021549"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.034628"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.045917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.054602"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.061093"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.06517"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.066873"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.066776"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.065063"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.062072"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058207"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.053722"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.048873"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.043893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.038938"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.034149"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.029622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.025427"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021604"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018178"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.015148"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.012507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.010233"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.008299"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.006672"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.00532"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.004206"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.003299"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.002567"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.001983"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993910437717677*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.066873}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993911679147246*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"ef62d7eb-c542-4030-afa8-088323f54e54"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ -3f60fcfd9a79"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc8Vf8fB/BKSUOJcMm6595Lw4hE5Hq/o7LKSoPMSiWjSFLISpQRpUFD +SUrGPWQkDSErK8ksfkolsrKi0u/z/eM8zuP5OH+8z/mc9/v1+TD3HbV0njNr +1qy/5PrvPtFZVcaOTNEN9tz0xnoJ6DbdZpza1BoCIqKo0O8vBShav4/Regkk +zIu5j/wVwcf8UQtfazJUTpj/CfTXgWWD4pemWnJAr2B1mr7/Nuh6Znp0rKUE +FH83PInws4Wt7L6PIy2NcEfolfkTXzeYatG8MtzyCXimCgLh7v5Qqv8g5W3y +KBjsTY5ud40Gqa7Cr/sU/8LhB9EHzZKuwHI3h0fz9fkwe59+00nWTbikurXI +dKcArvL2q+UcuQtt19cWjwgJYrNawcnzlikQmRJYP0diGcobmx9erv4AxOM/ +n798SwR7y1zn49M0CLcy0m2cEEW+wfSvZVXpIJlbJzlnthiuz1wZvaQxHbJE +rCZVF4nhmNdknGV7OjQ32tNxsmJoqMPLqepLB7aFN2VhKIarLw2u916UASXb +k/gbEsTwZbnIiUKTDPi7dbyuVkcc+dtNy2YqMuC41l2HqhAGLvoQbWzMywTj +O0vGTKIYeJv/Bk3nZQI13z+i7goDP/3Snyf8LBMamnZlv3vIQBms9X1dmQnK +xxbzddYxMH1HVcBQdyb0pp5M/SkpgY/neWaYiWSB7XLTgRWPJTDAUNtM1ysL +1vkVBd9+JoFO9fM+zPbNgoWfVooxyyUwaN+m7cUBWVDI4wP5Ngn8VsP8oHQ+ +C8RMCmPX/pPAX0rn7r9JyoKGYLb6FhNJVD50pGhZTRZsHpo+7fFZEgccnbrL +5XhwyjB+9asfkihltO5LDYcHWXeV2kUmJFGcyf+ndjUPGFaOWoUCK9Cm2X/f +K3Ue/HjyepJPeQUOLEpY5m7Ig8shsd4JviuwImDxWIsHDz6JynuUCUqhs6l6 +7+8CHogffSktLi6F9SUjJgee8WBb5Z5aFzkprDhzobSimAf5pyMVl66TwmGh +54OBVTy40DXcZ71HCqVHfTbktfNALa3o0FCyFC5Mqy9Y94cHwToWTpIbpNGo ++lZtsTQNhva3f2rqSaPv9I/oelkalgT1h+7cJo0JxwZdO5g03CwNS411lEaD +l4+D+zg0PDF+2s9/XhpjzipIfFWiYXgPy2e0TRqP/3Fh7uDSYH9i/EKNnwz2 +rjMT4rehgXNNT6ovTAYfit35/mQvTb7/Yub8WBlcNhz37bAdDaf/rGrQS5FB +32Y3y2JHGq6E2osW1shgzJGn/dsO0VATV5F0X1oWTzutcv94nAbtrITcMy9l +0absSOvHCzRsbqn7O1gpi3P+qf+QiaLBdNZcA4dGWfSNXhBlF03DfkuPNvgi +i0NafJ7vLtKw1Y8ZGDRPDj035LbejafhmOzEvU1r5JAeqD5QdYuG8cexlVMq +chhZq23/+TZ5P8M1A9nqcrh/+HnvdBINYZ6OGpSuHOqvssqhkmlILK2unGMh +hw4SG5k7U2koO5Q0UOojh0zhpKItWTQY/dES9veTw167sKENPBrqYps01IPk +MD6Q8XQVTUNb4YKglPNyuFT45fK5OTQMLvIWDrtJ6r8K6ruRRwODNtTcWiKH +hm7a7nue0XBr8+e9M+VyGLtrpxbnOQ1UW0BQ/hs5POGhnzxErDTncZX8ezk0 +Tly/LeAlDXpW0rbze+Xw0vvmRf4lNLj9GgmqFGTiu5Lhq/MryXp6HhT7KsxE +uQ87DJ4RC/S1p/MxmLjJ/IyqRxUN9ztKm3UpJv6sccqrqqah88UVxTwNJq6J +EYt0qKUhQ3NhSeNGJoYM75OYIT5Nn9k9jEz0WT39JaGOBrHkQyFrTJhYb7JH +p6qeBrMwrda7Dkyc8mUP8jfSIDOT6f7yABM9u0QCLxL/8KH4Prow8VHkjKXo +OxoiDi9SZngzcURsTTmjiYZik4+hMRFMFBSu7Zt5T0NMmYVERjQTzb4HpHg2 +02DLLc+qusTEinj+1G7iKWVe29xbTNx8QzK0sIUGNeFgFb9sJm478zbfsI2G +WZHjZdfzmdhjVlx8n7iO74hNfhETJ+tjxGe10+A6bhk28pqJ1733ZmUQa3tU +SC59w8SCqHtDM8QC3zbSig1MTNByCDLtoCGlld1xqJ2Jc0/UXPpC7GWRcCys +i4kCG2pFlT7QgNWC/Pd6SL3Jrj5P4o9FE2s7B5l4ZlZ39Chxhrpr+e9RJnbT +LLu1H8l6ZnbtlZhiYpwiM/gIsVhS5TkrPgovuP6paibuEedKeQlQ2F60blig +k4ac2Ozsi4IU3h5udd9AHLRA3iBTmMLYw4n6zsRmIYkfqsUp7GEreF0klvm9 +xKtXisLOSuXpfOIfx0Pn81MUHkhw+tBBHOHsprZJkULJqcU50l007Or8X4W9 +KoU6Gt9TtYnZu3fa+WtQ+HW64JcV8c/6qp8JGykMzVR86EZcbKgbUYAUntzx +Oy+YOOZVjvT7LRRmxbZS8cS22gqPfxpTqPbg1NA94tWPbxgKmVOY7hMvlU08 +tUaoU2knhTN+XY+KiCduSQavs6HQ0b7fr5R4bCmHreVA4f38popK4pFglQrd +AxSyvhhdfEM8OKp1ZLMLhXHtU43/ud95s6CxB4VJ4vGXq4h7W0xps+MURmZU +vi0j/mJkvWOnL4XFGwxjnhN/Kto/YRNA6vWVVj0m7lLySHAMobA3YODsA+IP +Sb46B8MpLOOeLL5O3LYstMs1isLm2csDwombQ6NDPOMoVFQ5WXSc+N34Nc7J +qxSeKLDytyNuOJRc6X+DQprhVLyZuLYtwzXkDoU5thYRq4irTQqWRNynsJrR +0bSIuOL5q+zoRxRud89N7Sf/p0ylxuoyj0LlefEzlcQvRLoTbxdSeMROX9+f +uCisn5vygsIFnFBVS+Ink+P/SyulsICb9pDzX790LFTIqyXrYxGj/pr0E2+7 +aPXTRgotrr8yjiPOeCnrXtxC4eHy0h82xKn31B+/6aZQQ5fV8pX0a6KrPXwa +p7Ahd9i6m/T7tY+HP32bprDphtbnBOJ4s+NhA/8odH69ccaMOGZdxJtfC1gY +1n3kRy6Zn5Df2buXyrDQu+P8Cycyf4Huz6aXs1go35bVx0/s31V+S3IlC7Wt +rmeltdLgU9rxmaPGQr3Rilm9ZJ5dI+cd09nKwsF/sj0GZN4P/10qomfCwpmL +/Z/bSD4cPCqZb2DOwnOdqcEuxI47VP5Y2rBwKG1RYjDJE6sV1hEuHix8nxts +dYXkj056xp2rV1kYpGp214TkV4dcetKWGyy0as74+uq/fLuadnssiYXWTh5s +DeKC4NSblmksfBb3PJJRQ/Jlz53rS56x0CZmjtRrkp+r5sXHnutm4YusyZbn +ZTRUnr50cf1XFlIXREdFiA8Ox8b09LGQ9sNlh0tJfnRER+mNsfDWvePWC0le +y+WER8zwszHbfq+iJslzMQe/IB9FNvasTj6hVkhDXtOpQI4qG5nScSIuT8j3 +GPueaVrPxrfBF17eKqDh0voT/mrAxt1zDm2enU+D4OKjvoMWbBThOYpmk/1m +buG+YwdPsnH+c5ZXbjqZH2Fjx10lbFSrerfc7CYNrW5Uw5EKUt+3IVrtBpnn +8mkIrGHjK9G5rSKJNMSeTpd92MzG4ZG6z/XXaFj7aXHXVB8bWz7AqNJlGjyy +6+1uiXDQPoPzOuQ8DX1mO/f2HOAgx1W354o3DY1pSm9+uXAweIHp3vVkf3/K +x79R8CgHrXmaJY2eNJwvyJfUOMVB3erQ/fOP0rBSltEeHs3BFzl+S/e40HBo +sH3PmnwObpSp+36NnCd6ohx3ec2Xx6f9obevbyb1+xSptYvlsSHwYa2IPg2T +BlMDA0LymGDjsi16Ew0L+S6FuUjK45aMxTp+uuT9T5XmOirJY8zQ32m9DTQE +OMuLmO2Qx335Rtkha8j66/6oX5Mkj6fMeporhcj+PnTS6IuGAjpa68brZvJA +SlXmnICOAnJ0NP4nnsaDQa+ykjWbFDClb07uQAoP4ieEdLxMFDBc/fPvmJs8 +6PybpvzPQQEzhbcZP4zkgdfiDyIS5xWwYES0XtOFB4mrsHNbhwJuHFceaWOS +8+N+geO5gStR2f3z8gfkvLqVLT4nvGQVTl70EWjmZoJwrXwMPbQaE+ca5st+ +SwepCJ65hoYi/gr/U+29+xFcX6MlJHJICZtLLm2XqH8I1ZKb1o/GKeOI3L7J +t3oPQFuqJFalWQUNPtrano25D0v4kr2dQtZi4fKLiXMm74FMsKyOtbwqan41 +dUzRS4YFHNt8ywpin8p18XfugDJXgnfSTg1D7Ys7DM1ug1encKnxrHVo6SmQ +24g3YGg0aqfR9XXoHvOLpxV1HQxUyhONlNSR63NkF2vxVXgxuvH3ZJ06qoav +jSwKvQweimrtb53Xo2v1n69nd8QBd/BAk/UCDTRqWKWqZRIDW9iM7YLJGmi+ +IW926JULsDLogm+JpiY2pN59PNcgHFY7a73ktGuiQsCB45sWnwXnF4fP5npu +wPMlJ1+F2ATDyztNB0ZEtVDyXFKvyrkAGHv4b1KlQAsXjJ9PnBQ8Bfs56QsS +t2vjEPt7H8f5BIysvqyRM6yNteJh5aFDnvAk5Xf3eMRGFFqpEWJu4AE2m1mk +F3VQsL2RLRvuAivcwwuVi3XwlJ/TO40VziC60C17+24uGloyeiyvOUGKfsDp +YWsuXnS7s6UjwgnUAmL0L9ty0aCrZcr9tBOYDtPvW524qFDXppdj5wTnmsen +9rtx0Wy2zuM8thP8Sg7UOx3MRe+x+LHkXEdo33j5XWo6Fye+BGp+LHCAwydS +bhplcXHpiQo1t1sOMJGV5/yD5uKkz779S0IdQJhqnVTN5+L3T3c0o0wdwERA +Wup5MRfDGOFebl/t4VlT6oF377noPpnlmSdhD8ZLnij5tHJxuMbinNcse2g1 +qJpgdHCRQ9vK6H2zg7Gn/RH2/+MiY3FxBiPPDpTurs383sfFwRFtoWQLO3jW +vsknaoCLddKBgj832IHx8h2gMsxF8/5XGlZydnAw/MRb73HimI/dpkO2MFZ8 +LlH8Fxdvtguafmu2hZDpa/ufTpPnBf1P417YgpB6mqLdXy5mGGRKm6bawm33 +p+P//nFxS1uUq1SMLfwf0flrGw== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB/BKSUOJcMm6595Lw4hE5Hq/o7LKSoPMSiWjSFLISpQRpUFD +SUrGPWQkDSErK8ksfkolsrKi0u/z/eM8zuP5OH+8z/mc9/v1+TD3HbV0njNr +1qy/5PrvPtFZVcaOTNEN9tz0xnoJ6DbdZpza1BoCIqKo0O8vBShav4/Regkk +zIu5j/wVwcf8UQtfazJUTpj/CfTXgWWD4pemWnJAr2B1mr7/Nuh6Znp0rKUE +FH83PInws4Wt7L6PIy2NcEfolfkTXzeYatG8MtzyCXimCgLh7v5Qqv8g5W3y +KBjsTY5ud40Gqa7Cr/sU/8LhB9EHzZKuwHI3h0fz9fkwe59+00nWTbikurXI +dKcArvL2q+UcuQtt19cWjwgJYrNawcnzlikQmRJYP0diGcobmx9erv4AxOM/ +n798SwR7y1zn49M0CLcy0m2cEEW+wfSvZVXpIJlbJzlnthiuz1wZvaQxHbJE +rCZVF4nhmNdknGV7OjQ32tNxsmJoqMPLqepLB7aFN2VhKIarLw2u916UASXb +k/gbEsTwZbnIiUKTDPi7dbyuVkcc+dtNy2YqMuC41l2HqhAGLvoQbWzMywTj +O0vGTKIYeJv/Bk3nZQI13z+i7goDP/3Snyf8LBMamnZlv3vIQBms9X1dmQnK +xxbzddYxMH1HVcBQdyb0pp5M/SkpgY/neWaYiWSB7XLTgRWPJTDAUNtM1ysL +1vkVBd9+JoFO9fM+zPbNgoWfVooxyyUwaN+m7cUBWVDI4wP5Ngn8VsP8oHQ+ +C8RMCmPX/pPAX0rn7r9JyoKGYLb6FhNJVD50pGhZTRZsHpo+7fFZEgccnbrL +5XhwyjB+9asfkihltO5LDYcHWXeV2kUmJFGcyf+ndjUPGFaOWoUCK9Cm2X/f +K3Ue/HjyepJPeQUOLEpY5m7Ig8shsd4JviuwImDxWIsHDz6JynuUCUqhs6l6 +7+8CHogffSktLi6F9SUjJgee8WBb5Z5aFzkprDhzobSimAf5pyMVl66TwmGh +54OBVTy40DXcZ71HCqVHfTbktfNALa3o0FCyFC5Mqy9Y94cHwToWTpIbpNGo ++lZtsTQNhva3f2rqSaPv9I/oelkalgT1h+7cJo0JxwZdO5g03CwNS411lEaD +l4+D+zg0PDF+2s9/XhpjzipIfFWiYXgPy2e0TRqP/3Fh7uDSYH9i/EKNnwz2 +rjMT4rehgXNNT6ovTAYfit35/mQvTb7/Yub8WBlcNhz37bAdDaf/rGrQS5FB +32Y3y2JHGq6E2osW1shgzJGn/dsO0VATV5F0X1oWTzutcv94nAbtrITcMy9l +0absSOvHCzRsbqn7O1gpi3P+qf+QiaLBdNZcA4dGWfSNXhBlF03DfkuPNvgi +i0NafJ7vLtKw1Y8ZGDRPDj035LbejafhmOzEvU1r5JAeqD5QdYuG8cexlVMq +chhZq23/+TZ5P8M1A9nqcrh/+HnvdBINYZ6OGpSuHOqvssqhkmlILK2unGMh +hw4SG5k7U2koO5Q0UOojh0zhpKItWTQY/dES9veTw167sKENPBrqYps01IPk +MD6Q8XQVTUNb4YKglPNyuFT45fK5OTQMLvIWDrtJ6r8K6ruRRwODNtTcWiKH +hm7a7nue0XBr8+e9M+VyGLtrpxbnOQ1UW0BQ/hs5POGhnzxErDTncZX8ezk0 +Tly/LeAlDXpW0rbze+Xw0vvmRf4lNLj9GgmqFGTiu5Lhq/MryXp6HhT7KsxE +uQ87DJ4RC/S1p/MxmLjJ/IyqRxUN9ztKm3UpJv6sccqrqqah88UVxTwNJq6J +EYt0qKUhQ3NhSeNGJoYM75OYIT5Nn9k9jEz0WT39JaGOBrHkQyFrTJhYb7JH +p6qeBrMwrda7Dkyc8mUP8jfSIDOT6f7yABM9u0QCLxL/8KH4Prow8VHkjKXo +OxoiDi9SZngzcURsTTmjiYZik4+hMRFMFBSu7Zt5T0NMmYVERjQTzb4HpHg2 +02DLLc+qusTEinj+1G7iKWVe29xbTNx8QzK0sIUGNeFgFb9sJm478zbfsI2G +WZHjZdfzmdhjVlx8n7iO74hNfhETJ+tjxGe10+A6bhk28pqJ1733ZmUQa3tU +SC59w8SCqHtDM8QC3zbSig1MTNByCDLtoCGlld1xqJ2Jc0/UXPpC7GWRcCys +i4kCG2pFlT7QgNWC/Pd6SL3Jrj5P4o9FE2s7B5l4ZlZ39Chxhrpr+e9RJnbT +LLu1H8l6ZnbtlZhiYpwiM/gIsVhS5TkrPgovuP6paibuEedKeQlQ2F60blig +k4ac2Ozsi4IU3h5udd9AHLRA3iBTmMLYw4n6zsRmIYkfqsUp7GEreF0klvm9 +xKtXisLOSuXpfOIfx0Pn81MUHkhw+tBBHOHsprZJkULJqcU50l007Or8X4W9 +KoU6Gt9TtYnZu3fa+WtQ+HW64JcV8c/6qp8JGykMzVR86EZcbKgbUYAUntzx +Oy+YOOZVjvT7LRRmxbZS8cS22gqPfxpTqPbg1NA94tWPbxgKmVOY7hMvlU08 +tUaoU2knhTN+XY+KiCduSQavs6HQ0b7fr5R4bCmHreVA4f38popK4pFglQrd +AxSyvhhdfEM8OKp1ZLMLhXHtU43/ud95s6CxB4VJ4vGXq4h7W0xps+MURmZU +vi0j/mJkvWOnL4XFGwxjnhN/Kto/YRNA6vWVVj0m7lLySHAMobA3YODsA+IP +Sb46B8MpLOOeLL5O3LYstMs1isLm2csDwombQ6NDPOMoVFQ5WXSc+N34Nc7J +qxSeKLDytyNuOJRc6X+DQprhVLyZuLYtwzXkDoU5thYRq4irTQqWRNynsJrR +0bSIuOL5q+zoRxRud89N7Sf/p0ylxuoyj0LlefEzlcQvRLoTbxdSeMROX9+f +uCisn5vygsIFnFBVS+Ink+P/SyulsICb9pDzX790LFTIqyXrYxGj/pr0E2+7 +aPXTRgotrr8yjiPOeCnrXtxC4eHy0h82xKn31B+/6aZQQ5fV8pX0a6KrPXwa +p7Ahd9i6m/T7tY+HP32bprDphtbnBOJ4s+NhA/8odH69ccaMOGZdxJtfC1gY +1n3kRy6Zn5Df2buXyrDQu+P8Cycyf4Huz6aXs1go35bVx0/s31V+S3IlC7Wt +rmeltdLgU9rxmaPGQr3Rilm9ZJ5dI+cd09nKwsF/sj0GZN4P/10qomfCwpmL +/Z/bSD4cPCqZb2DOwnOdqcEuxI47VP5Y2rBwKG1RYjDJE6sV1hEuHix8nxts +dYXkj056xp2rV1kYpGp214TkV4dcetKWGyy0as74+uq/fLuadnssiYXWTh5s +DeKC4NSblmksfBb3PJJRQ/Jlz53rS56x0CZmjtRrkp+r5sXHnutm4YusyZbn +ZTRUnr50cf1XFlIXREdFiA8Ox8b09LGQ9sNlh0tJfnRER+mNsfDWvePWC0le +y+WER8zwszHbfq+iJslzMQe/IB9FNvasTj6hVkhDXtOpQI4qG5nScSIuT8j3 +GPueaVrPxrfBF17eKqDh0voT/mrAxt1zDm2enU+D4OKjvoMWbBThOYpmk/1m +buG+YwdPsnH+c5ZXbjqZH2Fjx10lbFSrerfc7CYNrW5Uw5EKUt+3IVrtBpnn +8mkIrGHjK9G5rSKJNMSeTpd92MzG4ZG6z/XXaFj7aXHXVB8bWz7AqNJlGjyy +6+1uiXDQPoPzOuQ8DX1mO/f2HOAgx1W354o3DY1pSm9+uXAweIHp3vVkf3/K +x79R8CgHrXmaJY2eNJwvyJfUOMVB3erQ/fOP0rBSltEeHs3BFzl+S/e40HBo +sH3PmnwObpSp+36NnCd6ohx3ec2Xx6f9obevbyb1+xSptYvlsSHwYa2IPg2T +BlMDA0LymGDjsi16Ew0L+S6FuUjK45aMxTp+uuT9T5XmOirJY8zQ32m9DTQE +OMuLmO2Qx335Rtkha8j66/6oX5Mkj6fMeporhcj+PnTS6IuGAjpa68brZvJA +SlXmnICOAnJ0NP4nnsaDQa+ykjWbFDClb07uQAoP4ieEdLxMFDBc/fPvmJs8 +6PybpvzPQQEzhbcZP4zkgdfiDyIS5xWwYES0XtOFB4mrsHNbhwJuHFceaWOS +8+N+geO5gStR2f3z8gfkvLqVLT4nvGQVTl70EWjmZoJwrXwMPbQaE+ca5st+ +SwepCJ65hoYi/gr/U+29+xFcX6MlJHJICZtLLm2XqH8I1ZKb1o/GKeOI3L7J +t3oPQFuqJFalWQUNPtrano25D0v4kr2dQtZi4fKLiXMm74FMsKyOtbwqan41 +dUzRS4YFHNt8ywpin8p18XfugDJXgnfSTg1D7Ys7DM1ug1encKnxrHVo6SmQ +24g3YGg0aqfR9XXoHvOLpxV1HQxUyhONlNSR63NkF2vxVXgxuvH3ZJ06qoav +jSwKvQweimrtb53Xo2v1n69nd8QBd/BAk/UCDTRqWKWqZRIDW9iM7YLJGmi+ +IW926JULsDLogm+JpiY2pN59PNcgHFY7a73ktGuiQsCB45sWnwXnF4fP5npu +wPMlJ1+F2ATDyztNB0ZEtVDyXFKvyrkAGHv4b1KlQAsXjJ9PnBQ8Bfs56QsS +t2vjEPt7H8f5BIysvqyRM6yNteJh5aFDnvAk5Xf3eMRGFFqpEWJu4AE2m1mk +F3VQsL2RLRvuAivcwwuVi3XwlJ/TO40VziC60C17+24uGloyeiyvOUGKfsDp +YWsuXnS7s6UjwgnUAmL0L9ty0aCrZcr9tBOYDtPvW524qFDXppdj5wTnmsen +9rtx0Wy2zuM8thP8Sg7UOx3MRe+x+LHkXEdo33j5XWo6Fye+BGp+LHCAwydS +bhplcXHpiQo1t1sOMJGV5/yD5uKkz779S0IdQJhqnVTN5+L3T3c0o0wdwERA +Wup5MRfDGOFebl/t4VlT6oF377noPpnlmSdhD8ZLnij5tHJxuMbinNcse2g1 +qJpgdHCRQ9vK6H2zg7Gn/RH2/+MiY3FxBiPPDpTurs383sfFwRFtoWQLO3jW +vsknaoCLddKBgj832IHx8h2gMsxF8/5XGlZydnAw/MRb73HimI/dpkO2MFZ8 +LlH8Fxdvtguafmu2hZDpa/ufTpPnBf1P417YgpB6mqLdXy5mGGRKm6bawm33 +p+P//nFxS1uUq1SMLfwf0flrGw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06591485882550276}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06591485882550276}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB/BKSUOJcMm6595Lw4hE5Hq/o7LKSoPMSiWjSFLISpQRpUFD +SUrGPWQkDSErK8ksfkolsrKi0u/z/eM8zuP5OH+8z/mc9/v1+TD3HbV0njNr +1qy/5PrvPtFZVcaOTNEN9tz0xnoJ6DbdZpza1BoCIqKo0O8vBShav4/Regkk +zIu5j/wVwcf8UQtfazJUTpj/CfTXgWWD4pemWnJAr2B1mr7/Nuh6Znp0rKUE +FH83PInws4Wt7L6PIy2NcEfolfkTXzeYatG8MtzyCXimCgLh7v5Qqv8g5W3y +KBjsTY5ud40Gqa7Cr/sU/8LhB9EHzZKuwHI3h0fz9fkwe59+00nWTbikurXI +dKcArvL2q+UcuQtt19cWjwgJYrNawcnzlikQmRJYP0diGcobmx9erv4AxOM/ +n798SwR7y1zn49M0CLcy0m2cEEW+wfSvZVXpIJlbJzlnthiuz1wZvaQxHbJE +rCZVF4nhmNdknGV7OjQ32tNxsmJoqMPLqepLB7aFN2VhKIarLw2u916UASXb +k/gbEsTwZbnIiUKTDPi7dbyuVkcc+dtNy2YqMuC41l2HqhAGLvoQbWzMywTj +O0vGTKIYeJv/Bk3nZQI13z+i7goDP/3Snyf8LBMamnZlv3vIQBms9X1dmQnK +xxbzddYxMH1HVcBQdyb0pp5M/SkpgY/neWaYiWSB7XLTgRWPJTDAUNtM1ysL +1vkVBd9+JoFO9fM+zPbNgoWfVooxyyUwaN+m7cUBWVDI4wP5Ngn8VsP8oHQ+ +C8RMCmPX/pPAX0rn7r9JyoKGYLb6FhNJVD50pGhZTRZsHpo+7fFZEgccnbrL +5XhwyjB+9asfkihltO5LDYcHWXeV2kUmJFGcyf+ndjUPGFaOWoUCK9Cm2X/f +K3Ue/HjyepJPeQUOLEpY5m7Ig8shsd4JviuwImDxWIsHDz6JynuUCUqhs6l6 +7+8CHogffSktLi6F9SUjJgee8WBb5Z5aFzkprDhzobSimAf5pyMVl66TwmGh +54OBVTy40DXcZ71HCqVHfTbktfNALa3o0FCyFC5Mqy9Y94cHwToWTpIbpNGo ++lZtsTQNhva3f2rqSaPv9I/oelkalgT1h+7cJo0JxwZdO5g03CwNS411lEaD +l4+D+zg0PDF+2s9/XhpjzipIfFWiYXgPy2e0TRqP/3Fh7uDSYH9i/EKNnwz2 +rjMT4rehgXNNT6ovTAYfit35/mQvTb7/Yub8WBlcNhz37bAdDaf/rGrQS5FB +32Y3y2JHGq6E2osW1shgzJGn/dsO0VATV5F0X1oWTzutcv94nAbtrITcMy9l +0absSOvHCzRsbqn7O1gpi3P+qf+QiaLBdNZcA4dGWfSNXhBlF03DfkuPNvgi +i0NafJ7vLtKw1Y8ZGDRPDj035LbejafhmOzEvU1r5JAeqD5QdYuG8cexlVMq +chhZq23/+TZ5P8M1A9nqcrh/+HnvdBINYZ6OGpSuHOqvssqhkmlILK2unGMh +hw4SG5k7U2koO5Q0UOojh0zhpKItWTQY/dES9veTw167sKENPBrqYps01IPk +MD6Q8XQVTUNb4YKglPNyuFT45fK5OTQMLvIWDrtJ6r8K6ruRRwODNtTcWiKH +hm7a7nue0XBr8+e9M+VyGLtrpxbnOQ1UW0BQ/hs5POGhnzxErDTncZX8ezk0 +Tly/LeAlDXpW0rbze+Xw0vvmRf4lNLj9GgmqFGTiu5Lhq/MryXp6HhT7KsxE +uQ87DJ4RC/S1p/MxmLjJ/IyqRxUN9ztKm3UpJv6sccqrqqah88UVxTwNJq6J +EYt0qKUhQ3NhSeNGJoYM75OYIT5Nn9k9jEz0WT39JaGOBrHkQyFrTJhYb7JH +p6qeBrMwrda7Dkyc8mUP8jfSIDOT6f7yABM9u0QCLxL/8KH4Prow8VHkjKXo +OxoiDi9SZngzcURsTTmjiYZik4+hMRFMFBSu7Zt5T0NMmYVERjQTzb4HpHg2 +02DLLc+qusTEinj+1G7iKWVe29xbTNx8QzK0sIUGNeFgFb9sJm478zbfsI2G +WZHjZdfzmdhjVlx8n7iO74hNfhETJ+tjxGe10+A6bhk28pqJ1733ZmUQa3tU +SC59w8SCqHtDM8QC3zbSig1MTNByCDLtoCGlld1xqJ2Jc0/UXPpC7GWRcCys +i4kCG2pFlT7QgNWC/Pd6SL3Jrj5P4o9FE2s7B5l4ZlZ39Chxhrpr+e9RJnbT +LLu1H8l6ZnbtlZhiYpwiM/gIsVhS5TkrPgovuP6paibuEedKeQlQ2F60blig +k4ac2Ozsi4IU3h5udd9AHLRA3iBTmMLYw4n6zsRmIYkfqsUp7GEreF0klvm9 +xKtXisLOSuXpfOIfx0Pn81MUHkhw+tBBHOHsprZJkULJqcU50l007Or8X4W9 +KoU6Gt9TtYnZu3fa+WtQ+HW64JcV8c/6qp8JGykMzVR86EZcbKgbUYAUntzx +Oy+YOOZVjvT7LRRmxbZS8cS22gqPfxpTqPbg1NA94tWPbxgKmVOY7hMvlU08 +tUaoU2knhTN+XY+KiCduSQavs6HQ0b7fr5R4bCmHreVA4f38popK4pFglQrd +AxSyvhhdfEM8OKp1ZLMLhXHtU43/ud95s6CxB4VJ4vGXq4h7W0xps+MURmZU +vi0j/mJkvWOnL4XFGwxjnhN/Kto/YRNA6vWVVj0m7lLySHAMobA3YODsA+IP +Sb46B8MpLOOeLL5O3LYstMs1isLm2csDwombQ6NDPOMoVFQ5WXSc+N34Nc7J +qxSeKLDytyNuOJRc6X+DQprhVLyZuLYtwzXkDoU5thYRq4irTQqWRNynsJrR +0bSIuOL5q+zoRxRud89N7Sf/p0ylxuoyj0LlefEzlcQvRLoTbxdSeMROX9+f +uCisn5vygsIFnFBVS+Ink+P/SyulsICb9pDzX790LFTIqyXrYxGj/pr0E2+7 +aPXTRgotrr8yjiPOeCnrXtxC4eHy0h82xKn31B+/6aZQQ5fV8pX0a6KrPXwa +p7Ahd9i6m/T7tY+HP32bprDphtbnBOJ4s+NhA/8odH69ccaMOGZdxJtfC1gY +1n3kRy6Zn5Df2buXyrDQu+P8Cycyf4Huz6aXs1go35bVx0/s31V+S3IlC7Wt +rmeltdLgU9rxmaPGQr3Rilm9ZJ5dI+cd09nKwsF/sj0GZN4P/10qomfCwpmL +/Z/bSD4cPCqZb2DOwnOdqcEuxI47VP5Y2rBwKG1RYjDJE6sV1hEuHix8nxts +dYXkj056xp2rV1kYpGp214TkV4dcetKWGyy0as74+uq/fLuadnssiYXWTh5s +DeKC4NSblmksfBb3PJJRQ/Jlz53rS56x0CZmjtRrkp+r5sXHnutm4YusyZbn +ZTRUnr50cf1XFlIXREdFiA8Ox8b09LGQ9sNlh0tJfnRER+mNsfDWvePWC0le +y+WER8zwszHbfq+iJslzMQe/IB9FNvasTj6hVkhDXtOpQI4qG5nScSIuT8j3 +GPueaVrPxrfBF17eKqDh0voT/mrAxt1zDm2enU+D4OKjvoMWbBThOYpmk/1m +buG+YwdPsnH+c5ZXbjqZH2Fjx10lbFSrerfc7CYNrW5Uw5EKUt+3IVrtBpnn +8mkIrGHjK9G5rSKJNMSeTpd92MzG4ZG6z/XXaFj7aXHXVB8bWz7AqNJlGjyy +6+1uiXDQPoPzOuQ8DX1mO/f2HOAgx1W354o3DY1pSm9+uXAweIHp3vVkf3/K +x79R8CgHrXmaJY2eNJwvyJfUOMVB3erQ/fOP0rBSltEeHs3BFzl+S/e40HBo +sH3PmnwObpSp+36NnCd6ohx3ec2Xx6f9obevbyb1+xSptYvlsSHwYa2IPg2T +BlMDA0LymGDjsi16Ew0L+S6FuUjK45aMxTp+uuT9T5XmOirJY8zQ32m9DTQE +OMuLmO2Qx335Rtkha8j66/6oX5Mkj6fMeporhcj+PnTS6IuGAjpa68brZvJA +SlXmnICOAnJ0NP4nnsaDQa+ykjWbFDClb07uQAoP4ieEdLxMFDBc/fPvmJs8 +6PybpvzPQQEzhbcZP4zkgdfiDyIS5xWwYES0XtOFB4mrsHNbhwJuHFceaWOS +8+N+geO5gStR2f3z8gfkvLqVLT4nvGQVTl70EWjmZoJwrXwMPbQaE+ca5st+ +SwepCJ65hoYi/gr/U+29+xFcX6MlJHJICZtLLm2XqH8I1ZKb1o/GKeOI3L7J +t3oPQFuqJFalWQUNPtrano25D0v4kr2dQtZi4fKLiXMm74FMsKyOtbwqan41 +dUzRS4YFHNt8ywpin8p18XfugDJXgnfSTg1D7Ys7DM1ug1encKnxrHVo6SmQ +24g3YGg0aqfR9XXoHvOLpxV1HQxUyhONlNSR63NkF2vxVXgxuvH3ZJ06qoav +jSwKvQweimrtb53Xo2v1n69nd8QBd/BAk/UCDTRqWKWqZRIDW9iM7YLJGmi+ +IW926JULsDLogm+JpiY2pN59PNcgHFY7a73ktGuiQsCB45sWnwXnF4fP5npu +wPMlJ1+F2ATDyztNB0ZEtVDyXFKvyrkAGHv4b1KlQAsXjJ9PnBQ8Bfs56QsS +t2vjEPt7H8f5BIysvqyRM6yNteJh5aFDnvAk5Xf3eMRGFFqpEWJu4AE2m1mk +F3VQsL2RLRvuAivcwwuVi3XwlJ/TO40VziC60C17+24uGloyeiyvOUGKfsDp +YWsuXnS7s6UjwgnUAmL0L9ty0aCrZcr9tBOYDtPvW524qFDXppdj5wTnmsen +9rtx0Wy2zuM8thP8Sg7UOx3MRe+x+LHkXEdo33j5XWo6Fye+BGp+LHCAwydS +bhplcXHpiQo1t1sOMJGV5/yD5uKkz779S0IdQJhqnVTN5+L3T3c0o0wdwERA +Wup5MRfDGOFebl/t4VlT6oF377noPpnlmSdhD8ZLnij5tHJxuMbinNcse2g1 +qJpgdHCRQ9vK6H2zg7Gn/RH2/+MiY3FxBiPPDpTurs383sfFwRFtoWQLO3jW +vsknaoCLddKBgj832IHx8h2gMsxF8/5XGlZydnAw/MRb73HimI/dpkO2MFZ8 +LlH8Fxdvtguafmu2hZDpa/ufTpPnBf1P417YgpB6mqLdXy5mGGRKm6bawm33 +p+P//nFxS1uUq1SMLfwf0flrGw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06591485882550276}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06591485882550276}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993911679177208*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"ed023269-e904-46dc-820e-8d16fc85827c"] +}, Open ]], Cell[CellGroupData[{ @@ -2113,11 +7949,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ -fe19384187c3"], + CellChangeTimes->{3.991850610344879*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[BoxData["10.979617679683463`"], "Output", + CellChangeTimes->{3.9939116792071943`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"1a3c3c49-4adc-48c2-a220-2ae30e724fde"] }, Open ]], Cell[CellGroupData[{ @@ -2173,416 +8010,481 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\ -77ebd1a3e048"], + CellChangeTimes->{3.991850612616415*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.542741915143631`*^-262\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 99, 13, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993911679290359*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"375811db-567e-4bb0-b879-1e8138d9297b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"05911c33-7605-8b49-a7ba-7fc8c8f30741"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.10144011999818`*^-272\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 14, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993911679299211*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"d94926b5-c4d3-42b2-8353-a0e33e227806"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.234957852324122`*^-282\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 15, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993911679305687*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"f2161049-08e8-4e07-8226-1b8db003c6d8"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 12.2218 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .13693 -24 -4.5 ] -[.01131 .13693 0 4.5 ] -[.01131 .25915 -24 -4.5 ] -[.01131 .25915 0 4.5 ] -[.01131 .38137 -24 -4.5 ] -[.01131 .38137 0 4.5 ] -[.01131 .50359 -24 -4.5 ] -[.01131 .50359 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .13693 m -.03006 .13693 L -s -[(0.01)] .01131 .13693 1 0 Mshowa -.02381 .25915 m -.03006 .25915 L -s -[(0.02)] .01131 .25915 1 0 Mshowa -.02381 .38137 m -.03006 .38137 L -s -[(0.03)] .01131 .38137 1 0 Mshowa -.02381 .50359 m -.03006 .50359 L -s -[(0.04)] .01131 .50359 1 0 Mshowa -.125 Mabswid -.02381 .03916 m -.02756 .03916 L -s -.02381 .0636 m -.02756 .0636 L -s -.02381 .08805 m -.02756 .08805 L -s -.02381 .11249 m -.02756 .11249 L -s -.02381 .16138 m -.02756 .16138 L -s -.02381 .18582 m -.02756 .18582 L -s -.02381 .21026 m -.02756 .21026 L -s -.02381 .23471 m -.02756 .23471 L -s -.02381 .2836 m -.02756 .2836 L -s -.02381 .30804 m -.02756 .30804 L -s -.02381 .33248 m -.02756 .33248 L -s -.02381 .35693 m -.02756 .35693 L -s -.02381 .40581 m -.02756 .40581 L -s -.02381 .43026 m -.02756 .43026 L -s -.02381 .4547 m -.02756 .4547 L -s -.02381 .47914 m -.02756 .47914 L -s -.02381 .52803 m -.02756 .52803 L -s -.02381 .55248 m -.02756 .55248 L -s -.02381 .57692 m -.02756 .57692 L -s -.02381 .60136 m -.02756 .60136 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .10806 L -.10458 .20681 L -.14415 .29388 L -.18221 .37017 L -.22272 .44131 L -.26171 .49847 L -.30316 .54591 L -.32392 .56431 L -.34309 .5781 L -.36173 .58858 L -.37125 .59283 L -.3815 .59658 L -.3917 .59947 L -.40103 .60141 L -.40552 .6021 L -.40789 .6024 L -.41042 .60267 L -.41284 .60289 L -.41504 .60305 L -.41725 .60317 L -.41834 .60322 L -.41933 .60325 L -.4205 .60328 L -.42174 .60331 L -.4229 .60332 L -.42399 .60332 L -.42526 .60331 L -.42644 .60329 L -.42773 .60326 L -.4291 .60321 L -.43163 .60308 L -.434 .60293 L -.43941 .60241 L -.44405 .60181 L -.4483 .60112 L -.45788 .59913 L -.46769 .59645 L -.47681 .59341 L -.49751 .58461 L -.53655 .56157 L -.57805 .52937 L -.61803 .49268 L -.6565 .45377 L -.69742 .4102 L -.73682 .36757 L -.77471 .32713 L -.81505 .2857 L -.85387 .24819 L -.89515 .21147 L -Mistroke -.93491 .17954 L -.97316 .15219 L -.97619 .15016 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf -ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v -9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ -9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg -5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv -X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql -oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD -HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV -i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 -Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy -oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE -PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl -aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o -znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj -k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD -PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF -lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR -ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD -JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U -OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 -hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC -LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN -LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr -hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM -l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 -AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 -poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 -EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F -gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn -eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo -AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka -21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U -uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 -W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn -yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH -bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S -mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO -jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP -4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl -sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS -NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq -i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ -B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz -wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA -LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw -S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo -YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs -QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH -sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE -BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn -2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp -F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE -di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC -z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk -BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA -Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN -CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ -XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 -ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI -3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 -Ww==\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-3.23234, -0.00443741, 0.118269, \ -0.000307202}},ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 16, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939116793138733`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"d453062d-42e8-46bf-b611-2bc017614ac6"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ -baecb9a57d9b"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4lF0bAHBrC1ERxj7PGMqSQnbTfUupEBEqu1CU7ZVsKUuJNiZapEKS +fZmnIiJ5KQrtCBUVb4uQshRt3/n+mut3PeeamXOfezkPtSPEwU+Aj49vPj8f +3/8/p/sf3GUfz19t2ayjepMyX92ZzYg270mEHftiR2WDlQGlHu9g9KTDcQPm +n6dBKyBic8kLwZ480KzsZOQFASwek0mfeXEN0tSVQ12C7GCg3jZk8kUTrPkV +1hoZ6AmW7OHXX188g0sdD11FA0Jg5oXhmfEX70DR64Z7oGscNFsU5j/Nm4D3 +59pviRhyQWGg9v0Ord+QsaPsc9ajc7Ak0LNkroUgah03CXH/kg3pOpZ1tk7z +kG/E6u6Q3BXozVzZ+HWRGIqNsQ8+5hTA8fy4xwKyi1G2d/fz0c3FIHN68GjG +JUm8vNyqq+hHKTA0qw7/KJDEDSKKMz38ZSDXdCTOnSeJv3aIVQmKloHSuPq+ +pc2S+Lrw8vgGxTJQtQn1qvsoifyWkc7p5mWgJ/TbYFBvCd53jH2rfLQM7MKl +h3TblqDgHON9SkvKIdlx4+pn01LYovbceq9sBcjdeCQnwC+NDNWO6k9UBVRI +On7XEZVGi8VScds1KqD7mQfvlLI0Xr44pKJqWgFs+3CW/QZpfPKbdTXQrQKa +NuXMeXJeGluarZrrLlXAb8upRw/NZLCwVr/bUb4SuAUxpb8tZfBqa5jtFKsS +2HP4Upbby2DT0zmiaRqVYHNPxPyknwyKPa6yrTCuhCwL5nWbVBk8ZWvx5cLW +SjBC63PtAzI4PXxGSi+9EvYaX/Z8kMjAbz+V69X4eWCVKz5pfYKBIi/EltkL +8YA1Nzbl0RkGfr6unR01lwdPOp3p50UMvBieUNQgxgPt0AWC/Y8YWO38n85S +OR58LIgs+CYni5pd/n8CdHngtsR2VP66LCZlrRus8uKB3v66hOx6WUz794xv +gg8PRN4tk6ZaZPG6zYnRjTt5UFspCGq9svhxm7P0sz08kLau5a78K4uqfyea +GiLI7yewV62zlsNan8Hk+Sd4sPbLbEzwoBxqLmkb9r3Bg+gNpzX+HZHDgU+q +xveqeVBxeXmf5LQcWi2uKmfV8oDh6GVcO08e4340zu+6zYORmnvfBbXlMaVT +iCvTyoOMRG74+Sh5DDCJ+yzZy4N3UmrBd8UUsIe7o3Z4lgcyIXcUZWQU0BMP +CI//4oHN/W0PA5gKWCX7fv+3PzyojjmutVBPAR9Fbf84JkDDsYHx4e3bFLBt +bOLuPREadIvrdn3JU0BJbn/NZ1kaEszsveWMFLF50kNCzoCGDR7Z3wzXKKLR +UQGTT4Y0iMd/PuRkQ55vaJesMqbhYnNSAddLETe56Ays4dBQY3Xr85yjimgq +ZTNgsJaG8W0qERO9injlztiLeHsabsaEzl08pIj3v3Vukt9Cw8GLtzO1xxQx +NPfT/muONCx4s7UuQEAJV9y1EHixlYalu07wvdFQwuE5Uc0/3Gnw2Dd1rGO/ +Eu5WEojOCaBB9dwaheEkJZRqNrkqvIcm8Usrn8tVwninYq5/IA0xv9SfrMlX +wlSTBYXsEBrOHPKQqu1QQjeey8C+cBo6TrXmXFVURqOS9pHYgzRkXF+i07xU +GceUpNdXxtHg0uXd9EZHGevXnvHvj6fhI+PXkLylMgZFOAjqHaJBMHelRnqw +Mgode1dQlUyDScX5GwfvKGOtoQGL4tKw9sWj32P3lVGp4YHxwlM02PIJrfd8 +poziLXzHZ4l9HIJ74T9l5KRavLqfQYPlfiouXpiJT7qK1689R0Oo8vQVc00m +Dpbm86ov0TB1nXt/ZgUTs81tLkVlk/1t0BylVzHRRjWt3TCHhqR/vAxYq5n4 +3v3XWHkuDVnNbfcF7JmYErPSK/oKDXd35Yw2RzBRunue78kiGjb+MpaI3c9E +DNxYolJMwyNup8GqeOLXrSY3iXtr58fnH2Vi9J3bZt0lNIyJhkskXWTi4YSg +zokyGvbmihtyLjPxhF9UbHg5DT9WFbtOXWViSeHmvd+IBT368/0qmdijeNvu +fQUNDN4GQ8smJpbxTT4v59Fwae2g658WJjIyngvI0jSweg/EV7czMfWoUVIC +8XKB6w/Uupj4NnH2iNU1Gq6d3TTW38tEXYGTc0uJjTQ/SpzrZ2Lh64X9867T +sMZR0W3uRyb6BGxLqydu/Xgz/s4IE+0Tt+2RuEGDzQGHq5Ffmfiz9XaOH/HW +guSxD7MkPt56S4SqaAj88TX+vhiFkzGbOFQ1Oc9/dkq/l6BQb+W/nF3E84b7 +SgUZFAqcLlQtIb76srl7NYvC3Z3ilWo3aQh3NAp0W0qh5pSugxfxmodl/DFa +FJZaL3pzlri/4YxWlQGFEUqWd2aJywxFmp6ZUtjuu0FiWQ05T97BreNIYc/e +rVsciDeoT4yIWVLYom91KJpYOm9XoqY1hZk7fuRdIh6SeyWzcTOFCXEm1xuI +r2VsLt/pRKFt/6cbr4jjF9xbc9iFwlcX3xR9J7ZLMu657Enh3vyZtIW1NCj9 +KQ+640uhUfGiPWzikQiW4OsACk+oC5gaEN/6cjZzNpjCfUGlfOuIU/xFtRnh +FAoeGa7fTOz8Nq5ZP5rCZpvs0O3EbJfJbVsOUkj5FCh4En975j8WeojCRp3B +f72JG61fH0pNoXDig773/51611627CRZvz/+pzuxG6el4kE6hQoFV09tJdao +Nln74RzZ78cUti3xjHZlr9AlCpOPiFeZE98vVAlh5VF4MFl+rS7xWWamEBZS +qFx95pkyse/5BVnuZRTG5fh4ixDrSiSs2E9TmJQe+PUriQff8am7mdUUWuVk +HuomfiS426W6jsIzZ58waogvxvZ/ed5Iocz8P/RZ4j1TDklf71H43VJ0cxix +SXCr3MJ2CpmegxNWxPM+mPK0nlBYqBSWzSTO72G/3NVH4db9O0WbyXmH2Z8P +TRqgUMi38HEaMbaJzbkyROHLo07Z24lf102v7B+j8JBujccQya+yVXtafk5Q +eKV3k8NV4pjyAVfZGQpdhSUdfYilc+4fcRRkYYzadFI3yd8hGY5C2DwWrhf+ +efM48TUuTaeJsVDb5PdPDrFdYtarNhkWKtk/vn2e5H+KX6CuuRYLn/9TbKFN +6sW5/02rhw4L/TGD2UHqi73VyT3WgIWn5hrJ7CJu3LA65SayMJyb7XSa1OeM +5qL+5U4s3HMgRrejkobpS3IJei4s/N43ZOBEPLlQlW3sycKkRSciX5L6H5sw +3r02gIXZh13pAdIf3tX5TLscYOHUkxKqtZSGgeXB570SWbi9/QrLhPhVTpTZ +zmQWHiw/uKuE9J/uQycT/znFwmTbmsZE0p/arG+Kp1xloUVjSIdEIan32//S +J0tYqB5WNDe0gPS7FR2OGZUslBpJTW27SkOD5Nus7FqyvyDnQ5H5JD4vRZZW +PWSh3sMUNn2Z9Ms9HvBuiqzfvUw1/wIN5177v/swy8LFdjfSu7NoOG23N2n0 +LwvjD0+5ziFO1Utp/zFfBWvDy4U9MmlI/ElvXaikgoGM4mejp0m+HBcONbNU +wTPKa0y4J2kwKy3LPXtWBcX52ec+xNLwklmas+6CCkadXfOnbz8537PF2ZM5 +ZL29n0FHDJmXCQUXHYpVMNbPTLEoiuTvttxM8XoV/GD56fU6Mr/UhU9zj7xV +wcRVy77Jkvkn7bk/PkKLjceEjlRqkPlZ1Rkdp6rDxjhdk2+9TjQ4WkUd7NRn +I1urmZVM5m26/r5YXWAjw1PQ/iWZz2ILQqLG7NnoMaDwa7cNDUK1O0J3RrKx +p4/ntsychq8SVl7OTWwcygjrptRp6AlkPdndysaFR7+dD15K8qNlFuI62Pgh +3HBxrSoN3JhS5aJuNjZEfFNez6Jh5bsFAzPDbAw8GfpmvTwNwfRj90uSqhil +0cL3egENw3ZOrkO+qmgfXRngMcaDoRNezmFz1XDHa66GUCkPgoe1WCsXqKFG +neDgaBEPvq+fGR1dpIazt0TedhWQ+5tgelKAnBq+i5pzLTePByujm294LVfD +xMPS96gsHhzwU5O026KGXlXyF56lkPvc6pHHmjlqWEQVBkz78mDjl8iN/xks +xefOTKFEBrmP+czbeyNuGeYsbKrsaKgg7xMyAslN6ni48bEvLisHiYdqqbwv +GuhfRtseSSsFhZTKzQYGWvj1S/n8qtvFkKlpvEhy13I80K7DX/27ENrkzPUn +TmnjyNJ977abF4CJQhN3RfcKzEClxBKvfBAXzAv3TlyJ0ab/3bMrzAOlBGWz +7Wo6ONbiuje1Oxfmq7pVO7TqoP6eh+uLzbNBmyNbGemuiwzhejsJ4wsQ1i/R +bMWnh3c/KJUxmZnwZeKE08ZMPWQaJvU9DjoD61e0ZG1cvgpD9XOaZmfSoWHC +9Of3R6vQY1Xl5LEULgRr6fY99dPH3jRtNm/4BHDGfDu3zzfAyPwms599KbCO +zdgklmeAh8qLuM37kmBZ/LGoJkNDZMnvCfCPTQQNP+M7qn2GmFb2WJG7Ng78 +GvwP3/jHCAdj3svMOR8Dd3I7fb9KGeNNz2MaIjoRMFn09/uKm8ZokL5rqjMy +DHxUS+dnbTLBvcfdUiKmguGrRobBtXETHDl2J3F4TwDU5P98O5ViisW+dT/a +5vuBy1oVNFUywyhjSrbFxxt+d84Tb2aaYUq9epWZkzfk+o29tFIxw1kd48Hb +lt7w/khtpMsyM6Qi7r0aUPeGsAd2ldG6ZnhAOub85XEvOGYbq1RjaYauGfcG +pOO94Na2rl+rQsywq6Y4zWyTJ8gHJddqN5oh8N8wKqHcIPXvTv3jTWaYn92o +qizqBgLplvSHu2YY/tn685VJVxiuFi7OfUC+L2jvy1etrnCL73CmxHMzHP7S +ay8a4goup+Mjp/8zw81lArRDowtk1kXrN4hycJFXX4NN8HaQEgmkN23lYLHp +A57wtDPkWxyIGd/OwWtO4W2zb5xB90CqRYYbB/V3JI/ydTiD7Tivq8ebg5fK +pFiY5wxHuqdmfAI5yLDeInzUzhl+5MWtiUngYIQ7f5tJuRP0mWY8Lyglzw9+ +l3wS7gj++/IvbqzgoJdRddoTb0eYrqjyG+FxMJU/l/fG1hEkWD3fdao5eNqm +s3qFuiNYz1NUuN3IQbXQuUXJ/VugvrPA93kX+b+yDg+kbLaAlXjN8ogeDsZd +/n1a1GQL9Kx/MM14yUG9oHrXRcu2wOStzykebzhY86aQZym0BZZfXln+aZiD +/ubtjn63HaC+zzzixCgHpZ/Gdz0tdQCrJVtgxTgHi3xN/9hkOcDO5H1Pw6c4 +aDB0USkk0gEmG49kyfzgYGTBHX7pnQ6QOHvO59YsiYfMgE+7owMsWlWs5f6b +gxl2LSZpFg6QHXRr6u9fDjoWr4v11nWA/wFiV4dP + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4lF0bAHBrC1ERxj7PGMqSQnbTfUupEBEqu1CU7ZVsKUuJNiZapEKS +fZmnIiJ5KQrtCBUVb4uQshRt3/n+mut3PeeamXOfezkPtSPEwU+Aj49vPj8f +3/8/p/sf3GUfz19t2ayjepMyX92ZzYg270mEHftiR2WDlQGlHu9g9KTDcQPm +n6dBKyBic8kLwZ480KzsZOQFASwek0mfeXEN0tSVQ12C7GCg3jZk8kUTrPkV +1hoZ6AmW7OHXX188g0sdD11FA0Jg5oXhmfEX70DR64Z7oGscNFsU5j/Nm4D3 +59pviRhyQWGg9v0Ord+QsaPsc9ajc7Ak0LNkroUgah03CXH/kg3pOpZ1tk7z +kG/E6u6Q3BXozVzZ+HWRGIqNsQ8+5hTA8fy4xwKyi1G2d/fz0c3FIHN68GjG +JUm8vNyqq+hHKTA0qw7/KJDEDSKKMz38ZSDXdCTOnSeJv3aIVQmKloHSuPq+ +pc2S+Lrw8vgGxTJQtQn1qvsoifyWkc7p5mWgJ/TbYFBvCd53jH2rfLQM7MKl +h3TblqDgHON9SkvKIdlx4+pn01LYovbceq9sBcjdeCQnwC+NDNWO6k9UBVRI +On7XEZVGi8VScds1KqD7mQfvlLI0Xr44pKJqWgFs+3CW/QZpfPKbdTXQrQKa +NuXMeXJeGluarZrrLlXAb8upRw/NZLCwVr/bUb4SuAUxpb8tZfBqa5jtFKsS +2HP4Upbby2DT0zmiaRqVYHNPxPyknwyKPa6yrTCuhCwL5nWbVBk8ZWvx5cLW +SjBC63PtAzI4PXxGSi+9EvYaX/Z8kMjAbz+V69X4eWCVKz5pfYKBIi/EltkL +8YA1Nzbl0RkGfr6unR01lwdPOp3p50UMvBieUNQgxgPt0AWC/Y8YWO38n85S +OR58LIgs+CYni5pd/n8CdHngtsR2VP66LCZlrRus8uKB3v66hOx6WUz794xv +gg8PRN4tk6ZaZPG6zYnRjTt5UFspCGq9svhxm7P0sz08kLau5a78K4uqfyea +GiLI7yewV62zlsNan8Hk+Sd4sPbLbEzwoBxqLmkb9r3Bg+gNpzX+HZHDgU+q +xveqeVBxeXmf5LQcWi2uKmfV8oDh6GVcO08e4340zu+6zYORmnvfBbXlMaVT +iCvTyoOMRG74+Sh5DDCJ+yzZy4N3UmrBd8UUsIe7o3Z4lgcyIXcUZWQU0BMP +CI//4oHN/W0PA5gKWCX7fv+3PzyojjmutVBPAR9Fbf84JkDDsYHx4e3bFLBt +bOLuPREadIvrdn3JU0BJbn/NZ1kaEszsveWMFLF50kNCzoCGDR7Z3wzXKKLR +UQGTT4Y0iMd/PuRkQ55vaJesMqbhYnNSAddLETe56Ays4dBQY3Xr85yjimgq +ZTNgsJaG8W0qERO9injlztiLeHsabsaEzl08pIj3v3Vukt9Cw8GLtzO1xxQx +NPfT/muONCx4s7UuQEAJV9y1EHixlYalu07wvdFQwuE5Uc0/3Gnw2Dd1rGO/ +Eu5WEojOCaBB9dwaheEkJZRqNrkqvIcm8Usrn8tVwninYq5/IA0xv9SfrMlX +wlSTBYXsEBrOHPKQqu1QQjeey8C+cBo6TrXmXFVURqOS9pHYgzRkXF+i07xU +GceUpNdXxtHg0uXd9EZHGevXnvHvj6fhI+PXkLylMgZFOAjqHaJBMHelRnqw +Mgode1dQlUyDScX5GwfvKGOtoQGL4tKw9sWj32P3lVGp4YHxwlM02PIJrfd8 +poziLXzHZ4l9HIJ74T9l5KRavLqfQYPlfiouXpiJT7qK1689R0Oo8vQVc00m +Dpbm86ov0TB1nXt/ZgUTs81tLkVlk/1t0BylVzHRRjWt3TCHhqR/vAxYq5n4 +3v3XWHkuDVnNbfcF7JmYErPSK/oKDXd35Yw2RzBRunue78kiGjb+MpaI3c9E +DNxYolJMwyNup8GqeOLXrSY3iXtr58fnH2Vi9J3bZt0lNIyJhkskXWTi4YSg +zokyGvbmihtyLjPxhF9UbHg5DT9WFbtOXWViSeHmvd+IBT368/0qmdijeNvu +fQUNDN4GQ8smJpbxTT4v59Fwae2g658WJjIyngvI0jSweg/EV7czMfWoUVIC +8XKB6w/Uupj4NnH2iNU1Gq6d3TTW38tEXYGTc0uJjTQ/SpzrZ2Lh64X9867T +sMZR0W3uRyb6BGxLqydu/Xgz/s4IE+0Tt+2RuEGDzQGHq5Ffmfiz9XaOH/HW +guSxD7MkPt56S4SqaAj88TX+vhiFkzGbOFQ1Oc9/dkq/l6BQb+W/nF3E84b7 +SgUZFAqcLlQtIb76srl7NYvC3Z3ilWo3aQh3NAp0W0qh5pSugxfxmodl/DFa +FJZaL3pzlri/4YxWlQGFEUqWd2aJywxFmp6ZUtjuu0FiWQ05T97BreNIYc/e +rVsciDeoT4yIWVLYom91KJpYOm9XoqY1hZk7fuRdIh6SeyWzcTOFCXEm1xuI +r2VsLt/pRKFt/6cbr4jjF9xbc9iFwlcX3xR9J7ZLMu657Enh3vyZtIW1NCj9 +KQ+640uhUfGiPWzikQiW4OsACk+oC5gaEN/6cjZzNpjCfUGlfOuIU/xFtRnh +FAoeGa7fTOz8Nq5ZP5rCZpvs0O3EbJfJbVsOUkj5FCh4En975j8WeojCRp3B +f72JG61fH0pNoXDig773/51611627CRZvz/+pzuxG6el4kE6hQoFV09tJdao +Nln74RzZ78cUti3xjHZlr9AlCpOPiFeZE98vVAlh5VF4MFl+rS7xWWamEBZS +qFx95pkyse/5BVnuZRTG5fh4ixDrSiSs2E9TmJQe+PUriQff8am7mdUUWuVk +HuomfiS426W6jsIzZ58waogvxvZ/ed5Iocz8P/RZ4j1TDklf71H43VJ0cxix +SXCr3MJ2CpmegxNWxPM+mPK0nlBYqBSWzSTO72G/3NVH4db9O0WbyXmH2Z8P +TRqgUMi38HEaMbaJzbkyROHLo07Z24lf102v7B+j8JBujccQya+yVXtafk5Q +eKV3k8NV4pjyAVfZGQpdhSUdfYilc+4fcRRkYYzadFI3yd8hGY5C2DwWrhf+ +efM48TUuTaeJsVDb5PdPDrFdYtarNhkWKtk/vn2e5H+KX6CuuRYLn/9TbKFN +6sW5/02rhw4L/TGD2UHqi73VyT3WgIWn5hrJ7CJu3LA65SayMJyb7XSa1OeM +5qL+5U4s3HMgRrejkobpS3IJei4s/N43ZOBEPLlQlW3sycKkRSciX5L6H5sw +3r02gIXZh13pAdIf3tX5TLscYOHUkxKqtZSGgeXB570SWbi9/QrLhPhVTpTZ +zmQWHiw/uKuE9J/uQycT/znFwmTbmsZE0p/arG+Kp1xloUVjSIdEIan32//S +J0tYqB5WNDe0gPS7FR2OGZUslBpJTW27SkOD5Nus7FqyvyDnQ5H5JD4vRZZW +PWSh3sMUNn2Z9Ms9HvBuiqzfvUw1/wIN5177v/swy8LFdjfSu7NoOG23N2n0 +LwvjD0+5ziFO1Utp/zFfBWvDy4U9MmlI/ElvXaikgoGM4mejp0m+HBcONbNU +wTPKa0y4J2kwKy3LPXtWBcX52ec+xNLwklmas+6CCkadXfOnbz8537PF2ZM5 +ZL29n0FHDJmXCQUXHYpVMNbPTLEoiuTvttxM8XoV/GD56fU6Mr/UhU9zj7xV +wcRVy77Jkvkn7bk/PkKLjceEjlRqkPlZ1Rkdp6rDxjhdk2+9TjQ4WkUd7NRn +I1urmZVM5m26/r5YXWAjw1PQ/iWZz2ILQqLG7NnoMaDwa7cNDUK1O0J3RrKx +p4/ntsychq8SVl7OTWwcygjrptRp6AlkPdndysaFR7+dD15K8qNlFuI62Pgh +3HBxrSoN3JhS5aJuNjZEfFNez6Jh5bsFAzPDbAw8GfpmvTwNwfRj90uSqhil +0cL3egENw3ZOrkO+qmgfXRngMcaDoRNezmFz1XDHa66GUCkPgoe1WCsXqKFG +neDgaBEPvq+fGR1dpIazt0TedhWQ+5tgelKAnBq+i5pzLTePByujm294LVfD +xMPS96gsHhzwU5O026KGXlXyF56lkPvc6pHHmjlqWEQVBkz78mDjl8iN/xks +xefOTKFEBrmP+czbeyNuGeYsbKrsaKgg7xMyAslN6ni48bEvLisHiYdqqbwv +GuhfRtseSSsFhZTKzQYGWvj1S/n8qtvFkKlpvEhy13I80K7DX/27ENrkzPUn +TmnjyNJ977abF4CJQhN3RfcKzEClxBKvfBAXzAv3TlyJ0ab/3bMrzAOlBGWz +7Wo6ONbiuje1Oxfmq7pVO7TqoP6eh+uLzbNBmyNbGemuiwzhejsJ4wsQ1i/R +bMWnh3c/KJUxmZnwZeKE08ZMPWQaJvU9DjoD61e0ZG1cvgpD9XOaZmfSoWHC +9Of3R6vQY1Xl5LEULgRr6fY99dPH3jRtNm/4BHDGfDu3zzfAyPwms599KbCO +zdgklmeAh8qLuM37kmBZ/LGoJkNDZMnvCfCPTQQNP+M7qn2GmFb2WJG7Ng78 +GvwP3/jHCAdj3svMOR8Dd3I7fb9KGeNNz2MaIjoRMFn09/uKm8ZokL5rqjMy +DHxUS+dnbTLBvcfdUiKmguGrRobBtXETHDl2J3F4TwDU5P98O5ViisW+dT/a +5vuBy1oVNFUywyhjSrbFxxt+d84Tb2aaYUq9epWZkzfk+o29tFIxw1kd48Hb +lt7w/khtpMsyM6Qi7r0aUPeGsAd2ldG6ZnhAOub85XEvOGYbq1RjaYauGfcG +pOO94Na2rl+rQsywq6Y4zWyTJ8gHJddqN5oh8N8wKqHcIPXvTv3jTWaYn92o +qizqBgLplvSHu2YY/tn685VJVxiuFi7OfUC+L2jvy1etrnCL73CmxHMzHP7S +ay8a4goup+Mjp/8zw81lArRDowtk1kXrN4hycJFXX4NN8HaQEgmkN23lYLHp +A57wtDPkWxyIGd/OwWtO4W2zb5xB90CqRYYbB/V3JI/ydTiD7Tivq8ebg5fK +pFiY5wxHuqdmfAI5yLDeInzUzhl+5MWtiUngYIQ7f5tJuRP0mWY8Lyglzw9+ +l3wS7gj++/IvbqzgoJdRddoTb0eYrqjyG+FxMJU/l/fG1hEkWD3fdao5eNqm +s3qFuiNYz1NUuN3IQbXQuUXJ/VugvrPA93kX+b+yDg+kbLaAlXjN8ogeDsZd +/n1a1GQL9Kx/MM14yUG9oHrXRcu2wOStzykebzhY86aQZym0BZZfXln+aZiD +/ubtjn63HaC+zzzixCgHpZ/Gdz0tdQCrJVtgxTgHi3xN/9hkOcDO5H1Pw6c4 +aDB0USkk0gEmG49kyfzgYGTBHX7pnQ6QOHvO59YsiYfMgE+7owMsWlWs5f6b +gxl2LSZpFg6QHXRr6u9fDjoWr4v11nWA/wFiV4dP + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06923495277005198}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06923495277005198}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4lF0bAHBrC1ERxj7PGMqSQnbTfUupEBEqu1CU7ZVsKUuJNiZapEKS +fZmnIiJ5KQrtCBUVb4uQshRt3/n+mut3PeeamXOfezkPtSPEwU+Aj49vPj8f +3/8/p/sf3GUfz19t2ayjepMyX92ZzYg270mEHftiR2WDlQGlHu9g9KTDcQPm +n6dBKyBic8kLwZ480KzsZOQFASwek0mfeXEN0tSVQ12C7GCg3jZk8kUTrPkV +1hoZ6AmW7OHXX188g0sdD11FA0Jg5oXhmfEX70DR64Z7oGscNFsU5j/Nm4D3 +59pviRhyQWGg9v0Ord+QsaPsc9ajc7Ak0LNkroUgah03CXH/kg3pOpZ1tk7z +kG/E6u6Q3BXozVzZ+HWRGIqNsQ8+5hTA8fy4xwKyi1G2d/fz0c3FIHN68GjG +JUm8vNyqq+hHKTA0qw7/KJDEDSKKMz38ZSDXdCTOnSeJv3aIVQmKloHSuPq+ +pc2S+Lrw8vgGxTJQtQn1qvsoifyWkc7p5mWgJ/TbYFBvCd53jH2rfLQM7MKl +h3TblqDgHON9SkvKIdlx4+pn01LYovbceq9sBcjdeCQnwC+NDNWO6k9UBVRI +On7XEZVGi8VScds1KqD7mQfvlLI0Xr44pKJqWgFs+3CW/QZpfPKbdTXQrQKa +NuXMeXJeGluarZrrLlXAb8upRw/NZLCwVr/bUb4SuAUxpb8tZfBqa5jtFKsS +2HP4Upbby2DT0zmiaRqVYHNPxPyknwyKPa6yrTCuhCwL5nWbVBk8ZWvx5cLW +SjBC63PtAzI4PXxGSi+9EvYaX/Z8kMjAbz+V69X4eWCVKz5pfYKBIi/EltkL +8YA1Nzbl0RkGfr6unR01lwdPOp3p50UMvBieUNQgxgPt0AWC/Y8YWO38n85S +OR58LIgs+CYni5pd/n8CdHngtsR2VP66LCZlrRus8uKB3v66hOx6WUz794xv +gg8PRN4tk6ZaZPG6zYnRjTt5UFspCGq9svhxm7P0sz08kLau5a78K4uqfyea +GiLI7yewV62zlsNan8Hk+Sd4sPbLbEzwoBxqLmkb9r3Bg+gNpzX+HZHDgU+q +xveqeVBxeXmf5LQcWi2uKmfV8oDh6GVcO08e4340zu+6zYORmnvfBbXlMaVT +iCvTyoOMRG74+Sh5DDCJ+yzZy4N3UmrBd8UUsIe7o3Z4lgcyIXcUZWQU0BMP +CI//4oHN/W0PA5gKWCX7fv+3PzyojjmutVBPAR9Fbf84JkDDsYHx4e3bFLBt +bOLuPREadIvrdn3JU0BJbn/NZ1kaEszsveWMFLF50kNCzoCGDR7Z3wzXKKLR +UQGTT4Y0iMd/PuRkQ55vaJesMqbhYnNSAddLETe56Ays4dBQY3Xr85yjimgq +ZTNgsJaG8W0qERO9injlztiLeHsabsaEzl08pIj3v3Vukt9Cw8GLtzO1xxQx +NPfT/muONCx4s7UuQEAJV9y1EHixlYalu07wvdFQwuE5Uc0/3Gnw2Dd1rGO/ +Eu5WEojOCaBB9dwaheEkJZRqNrkqvIcm8Usrn8tVwninYq5/IA0xv9SfrMlX +wlSTBYXsEBrOHPKQqu1QQjeey8C+cBo6TrXmXFVURqOS9pHYgzRkXF+i07xU +GceUpNdXxtHg0uXd9EZHGevXnvHvj6fhI+PXkLylMgZFOAjqHaJBMHelRnqw +Mgode1dQlUyDScX5GwfvKGOtoQGL4tKw9sWj32P3lVGp4YHxwlM02PIJrfd8 +poziLXzHZ4l9HIJ74T9l5KRavLqfQYPlfiouXpiJT7qK1689R0Oo8vQVc00m +Dpbm86ov0TB1nXt/ZgUTs81tLkVlk/1t0BylVzHRRjWt3TCHhqR/vAxYq5n4 +3v3XWHkuDVnNbfcF7JmYErPSK/oKDXd35Yw2RzBRunue78kiGjb+MpaI3c9E +DNxYolJMwyNup8GqeOLXrSY3iXtr58fnH2Vi9J3bZt0lNIyJhkskXWTi4YSg +zokyGvbmihtyLjPxhF9UbHg5DT9WFbtOXWViSeHmvd+IBT368/0qmdijeNvu +fQUNDN4GQ8smJpbxTT4v59Fwae2g658WJjIyngvI0jSweg/EV7czMfWoUVIC +8XKB6w/Uupj4NnH2iNU1Gq6d3TTW38tEXYGTc0uJjTQ/SpzrZ2Lh64X9867T +sMZR0W3uRyb6BGxLqydu/Xgz/s4IE+0Tt+2RuEGDzQGHq5Ffmfiz9XaOH/HW +guSxD7MkPt56S4SqaAj88TX+vhiFkzGbOFQ1Oc9/dkq/l6BQb+W/nF3E84b7 +SgUZFAqcLlQtIb76srl7NYvC3Z3ilWo3aQh3NAp0W0qh5pSugxfxmodl/DFa +FJZaL3pzlri/4YxWlQGFEUqWd2aJywxFmp6ZUtjuu0FiWQ05T97BreNIYc/e +rVsciDeoT4yIWVLYom91KJpYOm9XoqY1hZk7fuRdIh6SeyWzcTOFCXEm1xuI +r2VsLt/pRKFt/6cbr4jjF9xbc9iFwlcX3xR9J7ZLMu657Enh3vyZtIW1NCj9 +KQ+640uhUfGiPWzikQiW4OsACk+oC5gaEN/6cjZzNpjCfUGlfOuIU/xFtRnh +FAoeGa7fTOz8Nq5ZP5rCZpvs0O3EbJfJbVsOUkj5FCh4En975j8WeojCRp3B +f72JG61fH0pNoXDig773/51611627CRZvz/+pzuxG6el4kE6hQoFV09tJdao +Nln74RzZ78cUti3xjHZlr9AlCpOPiFeZE98vVAlh5VF4MFl+rS7xWWamEBZS +qFx95pkyse/5BVnuZRTG5fh4ixDrSiSs2E9TmJQe+PUriQff8am7mdUUWuVk +HuomfiS426W6jsIzZ58waogvxvZ/ed5Iocz8P/RZ4j1TDklf71H43VJ0cxix +SXCr3MJ2CpmegxNWxPM+mPK0nlBYqBSWzSTO72G/3NVH4db9O0WbyXmH2Z8P +TRqgUMi38HEaMbaJzbkyROHLo07Z24lf102v7B+j8JBujccQya+yVXtafk5Q +eKV3k8NV4pjyAVfZGQpdhSUdfYilc+4fcRRkYYzadFI3yd8hGY5C2DwWrhf+ +efM48TUuTaeJsVDb5PdPDrFdYtarNhkWKtk/vn2e5H+KX6CuuRYLn/9TbKFN +6sW5/02rhw4L/TGD2UHqi73VyT3WgIWn5hrJ7CJu3LA65SayMJyb7XSa1OeM +5qL+5U4s3HMgRrejkobpS3IJei4s/N43ZOBEPLlQlW3sycKkRSciX5L6H5sw +3r02gIXZh13pAdIf3tX5TLscYOHUkxKqtZSGgeXB570SWbi9/QrLhPhVTpTZ +zmQWHiw/uKuE9J/uQycT/znFwmTbmsZE0p/arG+Kp1xloUVjSIdEIan32//S +J0tYqB5WNDe0gPS7FR2OGZUslBpJTW27SkOD5Nus7FqyvyDnQ5H5JD4vRZZW +PWSh3sMUNn2Z9Ms9HvBuiqzfvUw1/wIN5177v/swy8LFdjfSu7NoOG23N2n0 +LwvjD0+5ziFO1Utp/zFfBWvDy4U9MmlI/ElvXaikgoGM4mejp0m+HBcONbNU +wTPKa0y4J2kwKy3LPXtWBcX52ec+xNLwklmas+6CCkadXfOnbz8537PF2ZM5 +ZL29n0FHDJmXCQUXHYpVMNbPTLEoiuTvttxM8XoV/GD56fU6Mr/UhU9zj7xV +wcRVy77Jkvkn7bk/PkKLjceEjlRqkPlZ1Rkdp6rDxjhdk2+9TjQ4WkUd7NRn +I1urmZVM5m26/r5YXWAjw1PQ/iWZz2ILQqLG7NnoMaDwa7cNDUK1O0J3RrKx +p4/ntsychq8SVl7OTWwcygjrptRp6AlkPdndysaFR7+dD15K8qNlFuI62Pgh +3HBxrSoN3JhS5aJuNjZEfFNez6Jh5bsFAzPDbAw8GfpmvTwNwfRj90uSqhil +0cL3egENw3ZOrkO+qmgfXRngMcaDoRNezmFz1XDHa66GUCkPgoe1WCsXqKFG +neDgaBEPvq+fGR1dpIazt0TedhWQ+5tgelKAnBq+i5pzLTePByujm294LVfD +xMPS96gsHhzwU5O026KGXlXyF56lkPvc6pHHmjlqWEQVBkz78mDjl8iN/xks +xefOTKFEBrmP+czbeyNuGeYsbKrsaKgg7xMyAslN6ni48bEvLisHiYdqqbwv +GuhfRtseSSsFhZTKzQYGWvj1S/n8qtvFkKlpvEhy13I80K7DX/27ENrkzPUn +TmnjyNJ977abF4CJQhN3RfcKzEClxBKvfBAXzAv3TlyJ0ab/3bMrzAOlBGWz +7Wo6ONbiuje1Oxfmq7pVO7TqoP6eh+uLzbNBmyNbGemuiwzhejsJ4wsQ1i/R +bMWnh3c/KJUxmZnwZeKE08ZMPWQaJvU9DjoD61e0ZG1cvgpD9XOaZmfSoWHC +9Of3R6vQY1Xl5LEULgRr6fY99dPH3jRtNm/4BHDGfDu3zzfAyPwms599KbCO +zdgklmeAh8qLuM37kmBZ/LGoJkNDZMnvCfCPTQQNP+M7qn2GmFb2WJG7Ng78 +GvwP3/jHCAdj3svMOR8Dd3I7fb9KGeNNz2MaIjoRMFn09/uKm8ZokL5rqjMy +DHxUS+dnbTLBvcfdUiKmguGrRobBtXETHDl2J3F4TwDU5P98O5ViisW+dT/a +5vuBy1oVNFUywyhjSrbFxxt+d84Tb2aaYUq9epWZkzfk+o29tFIxw1kd48Hb +lt7w/khtpMsyM6Qi7r0aUPeGsAd2ldG6ZnhAOub85XEvOGYbq1RjaYauGfcG +pOO94Na2rl+rQsywq6Y4zWyTJ8gHJddqN5oh8N8wKqHcIPXvTv3jTWaYn92o +qizqBgLplvSHu2YY/tn685VJVxiuFi7OfUC+L2jvy1etrnCL73CmxHMzHP7S +ay8a4goup+Mjp/8zw81lArRDowtk1kXrN4hycJFXX4NN8HaQEgmkN23lYLHp +A57wtDPkWxyIGd/OwWtO4W2zb5xB90CqRYYbB/V3JI/ydTiD7Tivq8ebg5fK +pFiY5wxHuqdmfAI5yLDeInzUzhl+5MWtiUngYIQ7f5tJuRP0mWY8Lyglzw9+ +l3wS7gj++/IvbqzgoJdRddoTb0eYrqjyG+FxMJU/l/fG1hEkWD3fdao5eNqm +s3qFuiNYz1NUuN3IQbXQuUXJ/VugvrPA93kX+b+yDg+kbLaAlXjN8ogeDsZd +/n1a1GQL9Kx/MM14yUG9oHrXRcu2wOStzykebzhY86aQZym0BZZfXln+aZiD +/ubtjn63HaC+zzzixCgHpZ/Gdz0tdQCrJVtgxTgHi3xN/9hkOcDO5H1Pw6c4 +aDB0USkk0gEmG49kyfzgYGTBHX7pnQ6QOHvO59YsiYfMgE+7owMsWlWs5f6b +gxl2LSZpFg6QHXRr6u9fDjoWr4v11nWA/wFiV4dP + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06923495277005198}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06923495277005198}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993912125220696*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"fce2c1bd-d896-4e50-8ac6-d5507d17c5c6"] }, Open ]], Cell[CellGroupData[{ @@ -2633,18 +8535,74 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[100]:=",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.104267954830591`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 100, 17, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912125369446*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"8d9a7d00-4a94-4a42-b1e9-637b4fd4e6e8"], -Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1967838335460947`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 18, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912125379724*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"3c2a0164-d99f-4fc1-8df9-4079609610b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1758148504045883`*^-180\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 19, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99391212538778*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"aa122981-2730-4744-8795-783430bb8808"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 20, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912125398168*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"628a34be-4321-4911-ba71-881f979117bd"], + +Cell[BoxData["10.979598202076147`"], "Output", + CellChangeTimes->{3.9939121708500023`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"51b3b13c-cad6-45b4-9ec2-f6cf766d50bd"] }, Open ]], Cell[CellGroupData[{ @@ -2711,27 +8669,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850595832054*^9, - 3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\ -8e83e9537fdc"], + CellChangeTimes->{{3.991850595832054*^9, 3.991850600247154*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56921c73-2b67-0e4a-9808-5f61de992c7e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5195979912698294`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 21, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912170911006*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"0b51cbc8-9a5b-43f6-915b-9902d4ed0122"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.731286460672993`*^-211\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 101, 22, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912170919773*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"a039d0b4-3244-4c01-a17a-e11421091895"], -Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0952734372083204`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 101, 23, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912170929099*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"a808f436-4e0d-4417-95d4-f874c9e2cd32"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 24, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99391217093633*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"553ab2ae-b145-4334-b526-d5a4424fb3d5"], + +Cell[BoxData["1.9063811470323075`"], "Output", + CellChangeTimes->{3.9939121785753593`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"2279ce9e-c04e-483f-b575-43cfacde2cf2"] }, Open ]], Cell[CellGroupData[{ @@ -2752,8 +8755,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -2798,27 +8800,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850617546938*^9, - 3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\ -3471356a3614"], + CellChangeTimes->{{3.991850617546938*^9, 3.991850621692934*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"1795c3b9-0182-224c-b986-6414d6712c04"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5195979912698294`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 25, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912178615615*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"4a90d760-ffbd-46fc-a464-42599917e02f"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c3b31753-a67f-9b45-b822-068e1df11f68"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.731286460672993`*^-211\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 102, 26, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912178623043*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f550f6dc-7898-4712-8f8f-3ce2c7bf3694"], -Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0952734372083204`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 102, 27, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912178631598*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"d8a59fa8-d191-4616-aaad-2288166d40ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 28, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912178640584*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"f19420be-7f9b-4489-b887-9a9ebbd2eaf2"], + +Cell[BoxData["36.34144083237693`"], "Output", + CellChangeTimes->{3.993912186212517*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"f301ef49-6d4d-420e-badd-7c188a498e3f"] }, Open ]], Cell[CellGroupData[{ @@ -2839,8 +8886,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -2885,27 +8931,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918506254460773`*^9, - 3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\ -286954db37c5"], + CellChangeTimes->{{3.9918506254460773`*^9, 3.991850628958872*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.5195979912698294`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 29, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912186292371*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"318424f3-f627-4479-b7a0-8828712d6e01"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4e2b22f2-1724-7649-93fc-33cd27bb415e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.731286460672993`*^-211\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 103, 30, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939121863027487`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"c2babbe8-8b90-4c2e-afdb-5b9e1af34dc4"], -Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0952734372083204`*^-215\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 103, 31, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912186312422*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"16099efc-28d7-4f43-b64d-1d912a76fe22"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 32, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912186320245*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"d09f10c7-7bca-46cc-a45c-0a0d42b08c31"], + +Cell[BoxData["8.740551499554746`"], "Output", + CellChangeTimes->{3.993912190695375*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"ebc4cbe7-a4b1-4dcc-9dcb-16015542edea"] }, Open ]], Cell[CellGroupData[{ @@ -2914,19 +9005,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918506775260105`*^9, - 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ -20e078d734cd"], + CellChangeTimes->{{3.9918506775260105`*^9, 3.9918506840946693`*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +Cell[BoxData["0.10696439658067683`"], "Output", + CellChangeTimes->{3.993912190729889*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"cc0ea0f7-85aa-4c5e-a057-385dc2d43ddb"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9}, - 3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\ -dd2997d3499c"], + 3.9919245116307106`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ @@ -2947,10 +9042,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], - RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ -ae4b-824f-5eb2b3081f6d"], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[BoxData["6.358139165306476`"], "Output", + CellChangeTimes->{3.99391219074686*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"6a067ff2-58d4-4baa-a580-fee567def8dc"] }, Open ]], Cell[CellGroupData[{ @@ -2958,10 +9057,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ -89cd-559587f30b91"], + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[BoxData["4.857727359563275`"], "Output", + CellChangeTimes->{3.99391219075723*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"e5560b94-2240-4c66-a063-8f75ee3a7c02"] }, Open ]], Cell[CellGroupData[{ @@ -2969,10 +9072,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ -afc4-be40-8f37-0116656ecd38"], + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[BoxData["30.88610657922007`"], "Output", + CellChangeTimes->{3.993912190766885*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"767d9100-a80e-4dfc-a830-ddc309d4eaa3"] }, Open ]], Cell[CellGroupData[{ @@ -3160,10 +9267,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ -82a6-7cf06f61e28f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[BoxData["0.0062301991658596685`"], "Output", + CellChangeTimes->{3.993912190780223*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"d91e43f4-0a3e-46e1-8b78-86b367284b4c"] }, Open ]], Cell[CellGroupData[{ @@ -3175,18 +9286,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"b88b1a94-\ -22d7-2843-88e3-f607b95c8af9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"def6b331-c871-b04d-a16e-4fc00b03d009"], - -Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[BoxData["11.227782097995243`"], "Output", + CellChangeTimes->{3.993912190904725*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"e788925a-f0df-4ddf-9917-460f0ee5c1af"] }, Open ]], Cell[CellGroupData[{ @@ -3376,10 +9483,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ -9b53-9472e00c4d82"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[BoxData["0.03135376236433975`"], "Output", + CellChangeTimes->{3.993912190917932*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"566c5ad9-2b02-4274-844d-61475381cadf"] }, Open ]], Cell[CellGroupData[{ @@ -3391,18 +9502,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"47e2a8e8-\ -6af3-374f-9eea-9c2b6faaaf4a"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c6c8676e-4601-144e-b83c-769e22949175"], - -Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[BoxData["5.0049542211697675`"], "Output", + CellChangeTimes->{3.9939121910233507`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"0fbbc8ac-bae2-497f-ac4b-97573d4c9bb5"] }, Open ]], Cell[CellGroupData[{ @@ -3493,10 +9600,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ -6b0985b9b3bc"], + ")"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[BoxData["0.08103755887966854`"], "Output", + CellChangeTimes->{3.9939121910341187`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"ba6d2d55-3d9f-4dfa-8ee7-d54d3c1a58e0"] }, Open ]], Cell[CellGroupData[{ @@ -3584,10 +9695,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ -4868d83e9702"], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[BoxData["0.9189624411203314`"], "Output", + CellChangeTimes->{3.993912191045905*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"b6d10118-25ec-45e4-9537-2227b360c9ab"] }, Open ]], Cell[CellGroupData[{ @@ -3708,10 +9823,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ -9940-98cd-9460e2c074b2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[BoxData["0.0744704729304928`"], "Output", + CellChangeTimes->{3.9939121910586767`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"1068be5c-92ce-4eb2-a1fe-a9a904e8a12f"] }, Open ]], Cell[CellGroupData[{ @@ -3773,27 +9892,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\ -05d6af1a6e52"], + CellChangeTimes->{3.991850710120125*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7fd60dea-f794-4744-8801-bfb1a50a0e07"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.429665248484887`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 33, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939121910734463`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"46048712-d464-40a2-8631-ec42479332ae"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0b8c0718-41d2-4542-8afe-212a15805650"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.144566578191715`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 34, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912191081813*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"8ff994af-0f0b-4fb0-826e-9a82a834f73f"], -Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5401151650429164`*^-215\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 116, 35, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912191089266*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"ccd16639-35c0-43c8-8109-bfdaaccfc4e2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 36, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939121910963573`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"e67948a9-2d87-49bc-b52a-e3aeea75d3cc"], + +Cell[BoxData["11.227782097995235`"], "Output", + CellChangeTimes->{3.9939121951727953`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"79177fab-0b45-41ca-8b4f-a759090a74f8"] }, Open ]], Cell[CellGroupData[{ @@ -3855,27 +10019,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\ -f69c33a31448"], + CellChangeTimes->{3.9918507152152424`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b6f0ccc2-ff83-124b-a341-e143319c7670"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.429665248484887`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 37, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939121952126827`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"eda322f2-b79a-4cc3-bdc0-3909cd4f44be"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.144566578191715`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 38, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912195222185*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"a9c9e3d0-1672-4ac6-b7c9-37b3ac4a24aa"], -Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5401151650429164`*^-215\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 117, 39, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912195231875*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"993d3064-65f5-4f71-9811-16022945d60a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 40, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912195240323*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"6840efd2-6580-4db8-b1de-ac6282c30f3d"], + +Cell[BoxData["5.004954221169768`"], "Output", + CellChangeTimes->{3.993912199285849*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"b33344e1-d5e2-423c-94c3-033ceb9b470b"] }, Open ]], Cell[CellGroupData[{ @@ -3933,489 +10142,388 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\ -194fae57c34e"], + CellChangeTimes->{3.9918507183992805`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7797a546-4085-124a-83da-5f3c472cdc4c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"ca7472ca-7b27-a54a-84a1-e603fa592207"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC -MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 -5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX -nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v -yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi -sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG -tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W -tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw -WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq -Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz -IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A -nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc -Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td -rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 -63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp -CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el -jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD -f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA -eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb -uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa -UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au -6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 -BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ -5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX -XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 -jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO -JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme -IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG -gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ -9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ -ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL -bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD -pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN -ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 -ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j -6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE -iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k -d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz -+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ -6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C -2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K -wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 -xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 -9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 -OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm -yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj -GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz -mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W -ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 -pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu -KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH -65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD -bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ -LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW -2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx -bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU -E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 -7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 -5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 -brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT -OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o -Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL -hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl -D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm -v/odiPr3KLwBMhrzH2bRmaY=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-14.8518, 0.65382, 0.693802, \ -0.00448812}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\ -49e8ffb5e8c8"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4Fd8fB3CRslbIHuKiKKV7s5U6H3u2m33Let2ZZE++EkWbdoUW1S9p +IyElRKgUlUootChlGUu2EN0h8jv+mGee13Nm3vM5n5lznlHlRDgR/Hx8fJ34 +mDvvrF+zorSxfvNQstDhYGsKbR6+pccxz0cxz4Mfzbk9U/+cunklUn+a7BmC +7cB9t0CM9QIJn9jJDcUujE2sFjSvQxd0ZFrDsI+/lKtKzH2POGXx5RHYjxp3 +Xp1mtqA/xjcEo7D7W9/s3VPxGWl/OF4Rja3Qzdj2x+wbmkxjftuNbftrr9Gu +uh8o6OqV7fHYT6b7RWNzO1CNbK1PIvbHA7LxD8O7UKhmyZND2MMLzPvHmd3o +00TgiWPYC05FerJ4PehJSXNVMrayREbtzoo+NHlpIecsNlvxT/aw2SCyLSqm +MrHJa2oyOkLDqJ679mU2dqLG1qSQul+IzQqTLMD+LNu8Ljp3FOXaswYeY3O9 +gnecPTWGhA0qd7/EHrnCd/1B+G8UFysc0YAtpKazZJQ5gaRDxzI6sc9xq62W +SP9BQ99OtwxiL7/tmbiW9wcZM0Z387ANVx8ZDqug0adWoRlxGwoF6f+o6zeb +Rv0nUoUAezz2v/kimjPITXnHBXvs/RWixlpC/1DVFpEz27AvgmHe9rpZNJKa +VxWLzc2qNY/KnQeLtOM0yrBzX55tP6DID8mnCoRfY4/0+u5NPcUPeQ6FHq3Y +e7Uniu6HC8D9QnWDf9jn7qkyfjEFYXPexwkbWwq1Ng4++XdTEM69T9X1w14+ +Vuq1SHoBGOmoftyFnb+enabDWwAfK58GXMWueRQ3L7RCCFTuS8XT2BPVTT/6 +zMRgSqL9YZUdhSTtxJbEPxGDpDupvW3Yus3mIG4kDiaru87/xQ6mSq6tW7MI +GgJCQgztKRTJX6e7SWwJMFsMpkqxu9UKRpP+SEDze/GcejbuD/lGuIElCdl9 +oUW/sfnzelTldkrC642HjeW34npZKk65A5JQENX5isD2Mkt5UN8uBarE6er5 +DhRqCIzaJftWGl4rmDh4OVLo++3TJ/2FZODaoRmDo9iDA7k371jIwMHVKRnF +2CLRXU0bq2Qg9wh0LnGikPlhl/X+JbKw76yQUwN2+S39iZxMefAJUnsX6EKh +W91TMRuilcAwX9h0wJ1CW1yPft91VwnMIxntDA+cXyNlebdHCbiB+oPe2Otv +rZZe7qkMrA4HdiN2Dce3SHCzCjhEX9xQ6UmhsV/tu/sOLQe5lgMlOdsoJBVm +XlxkrwZJ7kqWzX4U6rklEuQQrAa5/ItzFPwpVPatUXHoiBp0etnEBmB72/kc +0qxSg2NwJ3AE+9aqGKdLTAZ4SLqTUhz8/P7bIwmy6kA4TymFcynksl1Ux6ZD +A8gTcSExOyiEYlyZ7jMaUD94aLwWWzsp04ArrwnG7QO9isEU4rvJMk1w1IS+ +eZR4Nfbd79vcHzzTBIMX79xkQvH6dMs/oHBjBXws8vjRGI7rM7f/2M/RAk7K +zc7z0RS66Zz+lZegBctTWh9PYJ/mdLTP/58W8N5+FXD7D3/f+/8bUG7SguJI +20bZGApJVGbwOZtpg+R5i5Bru/H3wxrWrmCsAuHlXfkv4iikqHYm8SS1Gorz +4vf4H6BQ5YlxrUl+HbhCuk9/xPb+7dlMqurAKdOwGfuDFLpao65l6qsDT2y9 +4zYdopDa9vIP9Ccd+Mz+6qeWhOeb361Bvl0DgcWi3wWOU0hJUZlc7qkLW9Y8 +eaeRSqHVWdFifxET5D8/f9pzg0Ic7qEJHTYTFkz1jkXdxOuVkfbd35sJU+Pm +52exBW7cu/8ylgl1dytWKGTh9Xa13yWtkAkJx9YddrmN99OL/hlaDBbkhf5R ++Z6H3+9JuzUeC9aDmF6wsEUJha5HqTuU1OnB9bZ0ivOaQo0xyOBwlhGofT/Y +KvqXQqq+LWyf0E2wrjcwYJLVjYjZhwVKewDiVlKv9kd2I9mBsoWyHFNwHkg5 +yS3vRtEs429p2uaQMFYrbLWwB3GGpmul+i2A1mbJ63v1oLumuxZmNljBQNMW +n0+VPejWePCz/HPWMMLOvLBStRfRJnLvahJtYcpxYqVqei9q4xMY7QiwB8tx +JRS3tA+FL4tIOcDYCi1Ni9wWpfWhgh21VeeTHIBtVJlAMX6iuN/yvFU7HEEa +vf6mW/ITTdhYur3yc4I003j2M+9+ZLQt1aTb0RkuTU+ZpIsOoA/yGcE1LBdY +JRWsPFo6gBSyD1XmrHQFxsbU0ta9g6isXduOLe4Gl6u7poQ3DyHl5pHtMUNu +cCfjrxP//GHEOp+af7PdHdKvmlrIUsMoY/7vNWnVHnD1w+X6lMe/0EOTta1J +jzwhzG/jzT6PEXTR4ITEdK4XZKdlpVU3j6CGr1lHWKe2wdrrz6uCbUdRif0V +9cj93nDSsP06XT+KRsOc+cK5PqD5K/FEt+0YmrDUCho28wUJA7Hk0ldjKGfo +C71L3w/yzBQDa9m/kcf1rEAfMX/odE3Tyqj7jYoe2PoJHPUHwSoTq2fO48hI +8cPk8Ul/8O0/9OhewzhitG9vfb8jADa9slGdtZhAlGjI1itdAQD9Ngr7nk2g +xtPsQCtXDlwNoldPrvmDzsVmiv7XyAHnmG+bBzP+oMons5OB1oEgZyO58/Y8 +HlrsDUdZ5YEgNl6ha+LKQ0b+wzlJ67kAZQJM31s8lH1pZBdbnwsvVMt8w7J4 +aGnT2GZZQy68K1nRFJ/NQ8MWvOacjVxY7WKbdiGHh/cXvnl1plw45aobWJ3P +Q4t4Ep6SjlwwStq0bKqYh6hkPeHMMC6o+ZR4tNbw0OmKvTvKsrmQEyL2xbOT +h8KY6UaxOVxI1jRqWd/FQ3Z3CoUNc7kg+09WajHFQyLpPXdK73JhtGCN87Nu +HkqKcuh/WMwFxdrLP5b95KG9WuohJc+50LGqku/+Lx4KTn8b+uA7Fx5NIE2L +aR6yXtRjHNXOhRKfstmFMzy0MolPnNnJhYhwJP0GuydK725hNxdWqDT8tp3l +oQB25tD9QS6oBLnEWfLTyENwV/i9KS7UF/x3TEaIRla7FCLzZQg4xzNJVpWi +0fPMIzZpcgRwfqbNa8U2rhtTj1UgQKRg6/HUpTTS1Xj7xUyZgAI++w8z0jSS +/xRv9lWDgNlcDYu3cjQa2NAmI6JHQMrGpCQjZRqd4b/2eLszAUkt1fqclTQS +WSt20d6VgGkj4app7MPbYqNY7gQcNNBxv6BFo9hihxWzXgRkC0cUvNSmUQA5 +L/UCh4DJp3umFXVoxHrD4b7YSYBhZ9T4xXX4PyRVQ5SRQoBvcx/7qxGNCpB4 +UF8qAdJLXRZu3YDzh8Zr7p4lwO3BQN8zbKZ1TYJhOgFvn+qtyNpIo9N8gWP2 +VwnoyndPDthEI8uIa19i8wmQaTnysxBopKR0TH9zAQE7mm6vlDOh0fibiLMC +9wlQkuSc2Yd9QxPZny4iQHSDeZOFKY1m2tqqbpYT8NfbgFlnRqNiO8Wc+loC +okONje5b0ujkFL/guTcEsMUde4WsaMTJ6Q/wrCMgfOZKhT/2kvnlilQDAZ0K +xz+Kb6FRaIXHmcmPBIyQB5p8rGnE0L4Qo96N+5ez+EuzLY2mPu1r+tmD+7sl +vEPFjkaNSYTuvT4CCtc2LwrGTuhY3280SIDUw8jPf7FbLzb5bP1NQEOblIY0 +m0ZpCyUs4uaR0DXQeV7ZgUaVY23bogVIaN7jNMXB7m3LjQoXJEHbN9suG9u4 +2PwaR5iEmsH8ci1HGvX4x/61kSDhTYtaOcMJ129nIWkhRcL7zGsn/bA3Gkhq +IWkSrniE21zGThHPd2PJk5BiW3JGzBmPl/8oVFQlYVOmugGFTWbl10ozSFBQ +cN4p64KvT9nzY7EGCSoijhetsXtIKfH5WiQsn96fnzs3LmUVNKhLwnCq9qCf +K43K/0kl9jBJiPple/IEdvfP9vPt60kYtG2UKcbeUBVX3WxIQmbF+zEBNxpR +oQXKj4EEMcbuxxewF3nE65WaknBpLOxJGbaR2Ra7QnMSjvlH5H3BPi3fuSdr +CwlSHSHWcu40Kpt/LyXThgT6usuUHnbXr/jbl+xIaPNhpDthG76Ubkl2ICH2 +suO5Y9icws6Bo04kNLCvj1/HTr5yj/+gCwkJRCmUY3dGWevGeJDgcUnhSi+2 +uK+MVaQXCSsjvfKm5/Ksu3yCvUkoWmaZvcQD36+y76SvPwmbu4T99LDLRGxu +eHBIiNv0aZkldueEzCMnLgn/hja8dMUW7+hqsCPxfP10t3GxDevu91gG4Xpt +i77uxOaU7puBYBKSq55aJczl37BZujGUhKUKTpnH5/KTZVfphZNALtjeeXYu +P5YyWRtJQuDhv0sysMW4hR5aUSS0domtysI22JoQwYgm4fCLi7r5c/kbbI8o +xZCwTDFD9QH2KQ25DNlYEuxWyP17iP1wSXeRRBwJhfuEXpZjd/wtfCO6l4Q+ +/rA9j+fyexM6BBNI2DdoLvcUW/+DLT2biPtfdebGnP8PPQG6Nw== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Fd8fB3CRslbIHuKiKKV7s5U6H3u2m33Let2ZZE++EkWbdoUW1S9p +IyElRKgUlUootChlGUu2EN0h8jv+mGee13Nm3vM5n5lznlHlRDgR/Hx8fJ34 +mDvvrF+zorSxfvNQstDhYGsKbR6+pccxz0cxz4Mfzbk9U/+cunklUn+a7BmC +7cB9t0CM9QIJn9jJDcUujE2sFjSvQxd0ZFrDsI+/lKtKzH2POGXx5RHYjxp3 +Xp1mtqA/xjcEo7D7W9/s3VPxGWl/OF4Rja3Qzdj2x+wbmkxjftuNbftrr9Gu +uh8o6OqV7fHYT6b7RWNzO1CNbK1PIvbHA7LxD8O7UKhmyZND2MMLzPvHmd3o +00TgiWPYC05FerJ4PehJSXNVMrayREbtzoo+NHlpIecsNlvxT/aw2SCyLSqm +MrHJa2oyOkLDqJ679mU2dqLG1qSQul+IzQqTLMD+LNu8Ljp3FOXaswYeY3O9 +gnecPTWGhA0qd7/EHrnCd/1B+G8UFysc0YAtpKazZJQ5gaRDxzI6sc9xq62W +SP9BQ99OtwxiL7/tmbiW9wcZM0Z387ANVx8ZDqug0adWoRlxGwoF6f+o6zeb +Rv0nUoUAezz2v/kimjPITXnHBXvs/RWixlpC/1DVFpEz27AvgmHe9rpZNJKa +VxWLzc2qNY/KnQeLtOM0yrBzX55tP6DID8mnCoRfY4/0+u5NPcUPeQ6FHq3Y +e7Uniu6HC8D9QnWDf9jn7qkyfjEFYXPexwkbWwq1Ng4++XdTEM69T9X1w14+ +Vuq1SHoBGOmoftyFnb+enabDWwAfK58GXMWueRQ3L7RCCFTuS8XT2BPVTT/6 +zMRgSqL9YZUdhSTtxJbEPxGDpDupvW3Yus3mIG4kDiaru87/xQ6mSq6tW7MI +GgJCQgztKRTJX6e7SWwJMFsMpkqxu9UKRpP+SEDze/GcejbuD/lGuIElCdl9 +oUW/sfnzelTldkrC642HjeW34npZKk65A5JQENX5isD2Mkt5UN8uBarE6er5 +DhRqCIzaJftWGl4rmDh4OVLo++3TJ/2FZODaoRmDo9iDA7k371jIwMHVKRnF +2CLRXU0bq2Qg9wh0LnGikPlhl/X+JbKw76yQUwN2+S39iZxMefAJUnsX6EKh +W91TMRuilcAwX9h0wJ1CW1yPft91VwnMIxntDA+cXyNlebdHCbiB+oPe2Otv +rZZe7qkMrA4HdiN2Dce3SHCzCjhEX9xQ6UmhsV/tu/sOLQe5lgMlOdsoJBVm +XlxkrwZJ7kqWzX4U6rklEuQQrAa5/ItzFPwpVPatUXHoiBp0etnEBmB72/kc +0qxSg2NwJ3AE+9aqGKdLTAZ4SLqTUhz8/P7bIwmy6kA4TymFcynksl1Ux6ZD +A8gTcSExOyiEYlyZ7jMaUD94aLwWWzsp04ArrwnG7QO9isEU4rvJMk1w1IS+ +eZR4Nfbd79vcHzzTBIMX79xkQvH6dMs/oHBjBXws8vjRGI7rM7f/2M/RAk7K +zc7z0RS66Zz+lZegBctTWh9PYJ/mdLTP/58W8N5+FXD7D3/f+/8bUG7SguJI +20bZGApJVGbwOZtpg+R5i5Bru/H3wxrWrmCsAuHlXfkv4iikqHYm8SS1Gorz +4vf4H6BQ5YlxrUl+HbhCuk9/xPb+7dlMqurAKdOwGfuDFLpao65l6qsDT2y9 +4zYdopDa9vIP9Ccd+Mz+6qeWhOeb361Bvl0DgcWi3wWOU0hJUZlc7qkLW9Y8 +eaeRSqHVWdFifxET5D8/f9pzg0Ic7qEJHTYTFkz1jkXdxOuVkfbd35sJU+Pm +52exBW7cu/8ylgl1dytWKGTh9Xa13yWtkAkJx9YddrmN99OL/hlaDBbkhf5R ++Z6H3+9JuzUeC9aDmF6wsEUJha5HqTuU1OnB9bZ0ivOaQo0xyOBwlhGofT/Y +KvqXQqq+LWyf0E2wrjcwYJLVjYjZhwVKewDiVlKv9kd2I9mBsoWyHFNwHkg5 +yS3vRtEs429p2uaQMFYrbLWwB3GGpmul+i2A1mbJ63v1oLumuxZmNljBQNMW +n0+VPejWePCz/HPWMMLOvLBStRfRJnLvahJtYcpxYqVqei9q4xMY7QiwB8tx +JRS3tA+FL4tIOcDYCi1Ni9wWpfWhgh21VeeTHIBtVJlAMX6iuN/yvFU7HEEa +vf6mW/ITTdhYur3yc4I003j2M+9+ZLQt1aTb0RkuTU+ZpIsOoA/yGcE1LBdY +JRWsPFo6gBSyD1XmrHQFxsbU0ta9g6isXduOLe4Gl6u7poQ3DyHl5pHtMUNu +cCfjrxP//GHEOp+af7PdHdKvmlrIUsMoY/7vNWnVHnD1w+X6lMe/0EOTta1J +jzwhzG/jzT6PEXTR4ITEdK4XZKdlpVU3j6CGr1lHWKe2wdrrz6uCbUdRif0V +9cj93nDSsP06XT+KRsOc+cK5PqD5K/FEt+0YmrDUCho28wUJA7Hk0ldjKGfo +C71L3w/yzBQDa9m/kcf1rEAfMX/odE3Tyqj7jYoe2PoJHPUHwSoTq2fO48hI +8cPk8Ul/8O0/9OhewzhitG9vfb8jADa9slGdtZhAlGjI1itdAQD9Ngr7nk2g +xtPsQCtXDlwNoldPrvmDzsVmiv7XyAHnmG+bBzP+oMons5OB1oEgZyO58/Y8 +HlrsDUdZ5YEgNl6ha+LKQ0b+wzlJ67kAZQJM31s8lH1pZBdbnwsvVMt8w7J4 +aGnT2GZZQy68K1nRFJ/NQ8MWvOacjVxY7WKbdiGHh/cXvnl1plw45aobWJ3P +Q4t4Ep6SjlwwStq0bKqYh6hkPeHMMC6o+ZR4tNbw0OmKvTvKsrmQEyL2xbOT +h8KY6UaxOVxI1jRqWd/FQ3Z3CoUNc7kg+09WajHFQyLpPXdK73JhtGCN87Nu +HkqKcuh/WMwFxdrLP5b95KG9WuohJc+50LGqku/+Lx4KTn8b+uA7Fx5NIE2L +aR6yXtRjHNXOhRKfstmFMzy0MolPnNnJhYhwJP0GuydK725hNxdWqDT8tp3l +oQB25tD9QS6oBLnEWfLTyENwV/i9KS7UF/x3TEaIRla7FCLzZQg4xzNJVpWi +0fPMIzZpcgRwfqbNa8U2rhtTj1UgQKRg6/HUpTTS1Xj7xUyZgAI++w8z0jSS +/xRv9lWDgNlcDYu3cjQa2NAmI6JHQMrGpCQjZRqd4b/2eLszAUkt1fqclTQS +WSt20d6VgGkj4app7MPbYqNY7gQcNNBxv6BFo9hihxWzXgRkC0cUvNSmUQA5 +L/UCh4DJp3umFXVoxHrD4b7YSYBhZ9T4xXX4PyRVQ5SRQoBvcx/7qxGNCpB4 +UF8qAdJLXRZu3YDzh8Zr7p4lwO3BQN8zbKZ1TYJhOgFvn+qtyNpIo9N8gWP2 +VwnoyndPDthEI8uIa19i8wmQaTnysxBopKR0TH9zAQE7mm6vlDOh0fibiLMC +9wlQkuSc2Yd9QxPZny4iQHSDeZOFKY1m2tqqbpYT8NfbgFlnRqNiO8Wc+loC +okONje5b0ujkFL/guTcEsMUde4WsaMTJ6Q/wrCMgfOZKhT/2kvnlilQDAZ0K +xz+Kb6FRaIXHmcmPBIyQB5p8rGnE0L4Qo96N+5ez+EuzLY2mPu1r+tmD+7sl +vEPFjkaNSYTuvT4CCtc2LwrGTuhY3280SIDUw8jPf7FbLzb5bP1NQEOblIY0 +m0ZpCyUs4uaR0DXQeV7ZgUaVY23bogVIaN7jNMXB7m3LjQoXJEHbN9suG9u4 +2PwaR5iEmsH8ci1HGvX4x/61kSDhTYtaOcMJ129nIWkhRcL7zGsn/bA3Gkhq +IWkSrniE21zGThHPd2PJk5BiW3JGzBmPl/8oVFQlYVOmugGFTWbl10ozSFBQ +cN4p64KvT9nzY7EGCSoijhetsXtIKfH5WiQsn96fnzs3LmUVNKhLwnCq9qCf +K43K/0kl9jBJiPple/IEdvfP9vPt60kYtG2UKcbeUBVX3WxIQmbF+zEBNxpR +oQXKj4EEMcbuxxewF3nE65WaknBpLOxJGbaR2Ra7QnMSjvlH5H3BPi3fuSdr +CwlSHSHWcu40Kpt/LyXThgT6usuUHnbXr/jbl+xIaPNhpDthG76Ubkl2ICH2 +suO5Y9icws6Bo04kNLCvj1/HTr5yj/+gCwkJRCmUY3dGWevGeJDgcUnhSi+2 +uK+MVaQXCSsjvfKm5/Ksu3yCvUkoWmaZvcQD36+y76SvPwmbu4T99LDLRGxu +eHBIiNv0aZkldueEzCMnLgn/hja8dMUW7+hqsCPxfP10t3GxDevu91gG4Xpt +i77uxOaU7puBYBKSq55aJczl37BZujGUhKUKTpnH5/KTZVfphZNALtjeeXYu +P5YyWRtJQuDhv0sysMW4hR5aUSS0domtysI22JoQwYgm4fCLi7r5c/kbbI8o +xZCwTDFD9QH2KQ25DNlYEuxWyP17iP1wSXeRRBwJhfuEXpZjd/wtfCO6l4Q+ +/rA9j+fyexM6BBNI2DdoLvcUW/+DLT2biPtfdebGnP8PPQG6Nw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6339619234826707, + 1.5216671323833548`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6339619234826721}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.6339619234826707, + 1.5216671323833548`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6339619234826721}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4Fd8fB3CRslbIHuKiKKV7s5U6H3u2m33Let2ZZE++EkWbdoUW1S9p +IyElRKgUlUootChlGUu2EN0h8jv+mGee13Nm3vM5n5lznlHlRDgR/Hx8fJ34 +mDvvrF+zorSxfvNQstDhYGsKbR6+pccxz0cxz4Mfzbk9U/+cunklUn+a7BmC +7cB9t0CM9QIJn9jJDcUujE2sFjSvQxd0ZFrDsI+/lKtKzH2POGXx5RHYjxp3 +Xp1mtqA/xjcEo7D7W9/s3VPxGWl/OF4Rja3Qzdj2x+wbmkxjftuNbftrr9Gu +uh8o6OqV7fHYT6b7RWNzO1CNbK1PIvbHA7LxD8O7UKhmyZND2MMLzPvHmd3o +00TgiWPYC05FerJ4PehJSXNVMrayREbtzoo+NHlpIecsNlvxT/aw2SCyLSqm +MrHJa2oyOkLDqJ679mU2dqLG1qSQul+IzQqTLMD+LNu8Ljp3FOXaswYeY3O9 +gnecPTWGhA0qd7/EHrnCd/1B+G8UFysc0YAtpKazZJQ5gaRDxzI6sc9xq62W +SP9BQ99OtwxiL7/tmbiW9wcZM0Z387ANVx8ZDqug0adWoRlxGwoF6f+o6zeb +Rv0nUoUAezz2v/kimjPITXnHBXvs/RWixlpC/1DVFpEz27AvgmHe9rpZNJKa +VxWLzc2qNY/KnQeLtOM0yrBzX55tP6DID8mnCoRfY4/0+u5NPcUPeQ6FHq3Y +e7Uniu6HC8D9QnWDf9jn7qkyfjEFYXPexwkbWwq1Ng4++XdTEM69T9X1w14+ +Vuq1SHoBGOmoftyFnb+enabDWwAfK58GXMWueRQ3L7RCCFTuS8XT2BPVTT/6 +zMRgSqL9YZUdhSTtxJbEPxGDpDupvW3Yus3mIG4kDiaru87/xQ6mSq6tW7MI +GgJCQgztKRTJX6e7SWwJMFsMpkqxu9UKRpP+SEDze/GcejbuD/lGuIElCdl9 +oUW/sfnzelTldkrC642HjeW34npZKk65A5JQENX5isD2Mkt5UN8uBarE6er5 +DhRqCIzaJftWGl4rmDh4OVLo++3TJ/2FZODaoRmDo9iDA7k371jIwMHVKRnF +2CLRXU0bq2Qg9wh0LnGikPlhl/X+JbKw76yQUwN2+S39iZxMefAJUnsX6EKh +W91TMRuilcAwX9h0wJ1CW1yPft91VwnMIxntDA+cXyNlebdHCbiB+oPe2Otv +rZZe7qkMrA4HdiN2Dce3SHCzCjhEX9xQ6UmhsV/tu/sOLQe5lgMlOdsoJBVm +XlxkrwZJ7kqWzX4U6rklEuQQrAa5/ItzFPwpVPatUXHoiBp0etnEBmB72/kc +0qxSg2NwJ3AE+9aqGKdLTAZ4SLqTUhz8/P7bIwmy6kA4TymFcynksl1Ux6ZD +A8gTcSExOyiEYlyZ7jMaUD94aLwWWzsp04ArrwnG7QO9isEU4rvJMk1w1IS+ +eZR4Nfbd79vcHzzTBIMX79xkQvH6dMs/oHBjBXws8vjRGI7rM7f/2M/RAk7K +zc7z0RS66Zz+lZegBctTWh9PYJ/mdLTP/58W8N5+FXD7D3/f+/8bUG7SguJI +20bZGApJVGbwOZtpg+R5i5Bru/H3wxrWrmCsAuHlXfkv4iikqHYm8SS1Gorz +4vf4H6BQ5YlxrUl+HbhCuk9/xPb+7dlMqurAKdOwGfuDFLpao65l6qsDT2y9 +4zYdopDa9vIP9Ccd+Mz+6qeWhOeb361Bvl0DgcWi3wWOU0hJUZlc7qkLW9Y8 +eaeRSqHVWdFifxET5D8/f9pzg0Ic7qEJHTYTFkz1jkXdxOuVkfbd35sJU+Pm +52exBW7cu/8ylgl1dytWKGTh9Xa13yWtkAkJx9YddrmN99OL/hlaDBbkhf5R ++Z6H3+9JuzUeC9aDmF6wsEUJha5HqTuU1OnB9bZ0ivOaQo0xyOBwlhGofT/Y +KvqXQqq+LWyf0E2wrjcwYJLVjYjZhwVKewDiVlKv9kd2I9mBsoWyHFNwHkg5 +yS3vRtEs429p2uaQMFYrbLWwB3GGpmul+i2A1mbJ63v1oLumuxZmNljBQNMW +n0+VPejWePCz/HPWMMLOvLBStRfRJnLvahJtYcpxYqVqei9q4xMY7QiwB8tx +JRS3tA+FL4tIOcDYCi1Ni9wWpfWhgh21VeeTHIBtVJlAMX6iuN/yvFU7HEEa +vf6mW/ITTdhYur3yc4I003j2M+9+ZLQt1aTb0RkuTU+ZpIsOoA/yGcE1LBdY +JRWsPFo6gBSyD1XmrHQFxsbU0ta9g6isXduOLe4Gl6u7poQ3DyHl5pHtMUNu +cCfjrxP//GHEOp+af7PdHdKvmlrIUsMoY/7vNWnVHnD1w+X6lMe/0EOTta1J +jzwhzG/jzT6PEXTR4ITEdK4XZKdlpVU3j6CGr1lHWKe2wdrrz6uCbUdRif0V +9cj93nDSsP06XT+KRsOc+cK5PqD5K/FEt+0YmrDUCho28wUJA7Hk0ldjKGfo +C71L3w/yzBQDa9m/kcf1rEAfMX/odE3Tyqj7jYoe2PoJHPUHwSoTq2fO48hI +8cPk8Ul/8O0/9OhewzhitG9vfb8jADa9slGdtZhAlGjI1itdAQD9Ngr7nk2g +xtPsQCtXDlwNoldPrvmDzsVmiv7XyAHnmG+bBzP+oMons5OB1oEgZyO58/Y8 +HlrsDUdZ5YEgNl6ha+LKQ0b+wzlJ67kAZQJM31s8lH1pZBdbnwsvVMt8w7J4 +aGnT2GZZQy68K1nRFJ/NQ8MWvOacjVxY7WKbdiGHh/cXvnl1plw45aobWJ3P +Q4t4Ep6SjlwwStq0bKqYh6hkPeHMMC6o+ZR4tNbw0OmKvTvKsrmQEyL2xbOT +h8KY6UaxOVxI1jRqWd/FQ3Z3CoUNc7kg+09WajHFQyLpPXdK73JhtGCN87Nu +HkqKcuh/WMwFxdrLP5b95KG9WuohJc+50LGqku/+Lx4KTn8b+uA7Fx5NIE2L +aR6yXtRjHNXOhRKfstmFMzy0MolPnNnJhYhwJP0GuydK725hNxdWqDT8tp3l +oQB25tD9QS6oBLnEWfLTyENwV/i9KS7UF/x3TEaIRla7FCLzZQg4xzNJVpWi +0fPMIzZpcgRwfqbNa8U2rhtTj1UgQKRg6/HUpTTS1Xj7xUyZgAI++w8z0jSS +/xRv9lWDgNlcDYu3cjQa2NAmI6JHQMrGpCQjZRqd4b/2eLszAUkt1fqclTQS +WSt20d6VgGkj4app7MPbYqNY7gQcNNBxv6BFo9hihxWzXgRkC0cUvNSmUQA5 +L/UCh4DJp3umFXVoxHrD4b7YSYBhZ9T4xXX4PyRVQ5SRQoBvcx/7qxGNCpB4 +UF8qAdJLXRZu3YDzh8Zr7p4lwO3BQN8zbKZ1TYJhOgFvn+qtyNpIo9N8gWP2 +VwnoyndPDthEI8uIa19i8wmQaTnysxBopKR0TH9zAQE7mm6vlDOh0fibiLMC +9wlQkuSc2Yd9QxPZny4iQHSDeZOFKY1m2tqqbpYT8NfbgFlnRqNiO8Wc+loC +okONje5b0ujkFL/guTcEsMUde4WsaMTJ6Q/wrCMgfOZKhT/2kvnlilQDAZ0K +xz+Kb6FRaIXHmcmPBIyQB5p8rGnE0L4Qo96N+5ez+EuzLY2mPu1r+tmD+7sl +vEPFjkaNSYTuvT4CCtc2LwrGTuhY3280SIDUw8jPf7FbLzb5bP1NQEOblIY0 +m0ZpCyUs4uaR0DXQeV7ZgUaVY23bogVIaN7jNMXB7m3LjQoXJEHbN9suG9u4 +2PwaR5iEmsH8ci1HGvX4x/61kSDhTYtaOcMJ129nIWkhRcL7zGsn/bA3Gkhq +IWkSrniE21zGThHPd2PJk5BiW3JGzBmPl/8oVFQlYVOmugGFTWbl10ozSFBQ +cN4p64KvT9nzY7EGCSoijhetsXtIKfH5WiQsn96fnzs3LmUVNKhLwnCq9qCf +K43K/0kl9jBJiPple/IEdvfP9vPt60kYtG2UKcbeUBVX3WxIQmbF+zEBNxpR +oQXKj4EEMcbuxxewF3nE65WaknBpLOxJGbaR2Ra7QnMSjvlH5H3BPi3fuSdr +CwlSHSHWcu40Kpt/LyXThgT6usuUHnbXr/jbl+xIaPNhpDthG76Ubkl2ICH2 +suO5Y9icws6Bo04kNLCvj1/HTr5yj/+gCwkJRCmUY3dGWevGeJDgcUnhSi+2 +uK+MVaQXCSsjvfKm5/Ksu3yCvUkoWmaZvcQD36+y76SvPwmbu4T99LDLRGxu +eHBIiNv0aZkldueEzCMnLgn/hja8dMUW7+hqsCPxfP10t3GxDevu91gG4Xpt +i77uxOaU7puBYBKSq55aJczl37BZujGUhKUKTpnH5/KTZVfphZNALtjeeXYu +P5YyWRtJQuDhv0sysMW4hR5aUSS0domtysI22JoQwYgm4fCLi7r5c/kbbI8o +xZCwTDFD9QH2KQ25DNlYEuxWyP17iP1wSXeRRBwJhfuEXpZjd/wtfCO6l4Q+ +/rA9j+fyexM6BBNI2DdoLvcUW/+DLT2biPtfdebGnP8PPQG6Nw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6339619234826707, 1.5216671323833548`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6339619234826721}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.6339619234826721}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6339619234826707, 1.5216671323833548`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993912477035983*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"b715365e-c726-41e3-b15d-157d9d96ed07"] }, Open ]], Cell[CellGroupData[{ @@ -4478,427 +10586,1027 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918507211663303`*^9, - 3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\ -494cdae35e56"], + CellChangeTimes->{{3.9918507211663303`*^9, 3.991850725479061*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b9265795-17b8-4e47-bd29-fee31586537e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6850229074983955`*^-269\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939124771663847`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"21afb119-cb89-4b56-b4b2-b8c1a44ce2dc"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"072fb53f-7116-0f41-a298-6891351a3192"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0658949013053117`*^-280\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 119, 42, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912477175112*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"b42d551f-89e8-4546-9e39-2a775c67d791"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.742531128644266`*^-292\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 119, 43, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912477183807*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"9e2c1b4d-1379-4aad-9442-be51efeb0a84"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ -GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM -b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ -1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 -9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX -KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 -1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu -UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV -Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX -r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO -rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q -pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq -b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk -+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj -oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi -z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp -jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd -dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw -cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 -Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe -TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj -UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE -/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM -opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 -RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ -u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y -XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV -nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi -T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 -OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U -ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY -E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S -Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT -vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ -zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO -nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm -oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU -fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd -G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han -eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao -n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv -6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 -gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF -hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 -d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS -0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 -bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 -wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF -7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 -ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe -37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg -X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu -TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 -CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 -FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX -A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs -LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr -AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo -2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr -rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 -1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 -dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO -endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 -mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK -Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-1.61617, -0.0100934, 0.0591342, \ -0.000698765}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 44, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939124771913567`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"b73bb783-4d98-433c-bd34-afa78bf687f7"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ -87bc9c72594a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Fl0bAHARka0oW5ZnxoPsW5Hlcd9UhEpkzZpQWqQkkb1EqSgqlUjJ +W9aZsmQpQpa0qCQqtCheWb+yVfLN+9dcv+s6c+accy8zQ/jud/Dn5uLiWrCA +i+u/61RvayM7OdcsqVRh85/taNaRJRVu3hUPqtuTO91E5AGXv/CV6joPky33 +dZaLaMHhLflvebpuwANJt8kBYTNYOip5fvbtXZhNVCu/JbwZ+mo27//5th7s +PQWXdQp5gSV7qGfi7SvgvE7bUyoQBLNvDS+Mv/0M2p8pd5iLgoa1/+S+vPED +ggM6E0/zpYBsX+U3X4058Ijz30+1XoRle73zF63lwS1Ryf4FOdfgvK5l9WYn +fjxU9cZrj/0N6M7QqZtYIow89YN5O91uQXJuzAtu6aUYS95XHHe6DZLpX06m +XRPHNflXxYpH80FKvez4TJ44xuie0SydzgeZ+hMxnpQ41h8psyrjKgD5cdVQ +lQZxzOWwQm+LFYDSxmCf6kFx9Ls5mu5gUAD6C+cMvugvQ+uKvxOlkQVgd0ii +X+/JMmw7dLE2n7cQEh2tzV5NLUdfv6QiNn8RyJQ+l+FeIIH6MV1pJ5cUQbG4 +47SuoARyhY5tGZQqgs5XXtQ5BQmcK8+1TVMtArb9IdJ+gwT+28Ovmm1TBPWb +svnaL0tgmFlJ5ZnkIpiznHz+zFQSszojttbxF0OIUY53a7wUNojPx28dLwab +6yI/bU9LYe0/1n/vTRUDuSgy6fkFKZTLLPgpMlcM7R3O9OvbUrgu1cO+VKAE +tIKFeHqfS+GxJM9HNWQJDOaF5f1PRhq9BaLXNG4tAY9lm0dW3JNG2q+2poAu +Af2j1XFZNdK4eg9HzL2iBBZ/XilBNEmjidKK9wsflEBlCQ8od0vj6FBgk1VL +CUjYVqbqzEvjnM77+VO9JdAex1613lYG136oDOHhpWDd2K+IoC8yqEe2iu/W +oiB8Q7rao2EZzI/ycPmgQ0FxjuY78SkZ5AnMHbPVp0DK0ceokn8FejYFySuu +oWD4/uNpHq0VSF3tC6XNKUiLTz10+cgKrO6VltjsSMHn5cpBjcKyGLsvLjUx +jALJ/bVykpKy6BS07ERuOAUbW1yfBbJk0fvstVcPj1JQHpGsIaovi10JAge+ +x1Bwqm98yM1VFldW3W1iJ1Ggd6d659gNWdxQ/+V/khkUxJnab5dZI4cnL97z +XlBOwQavrP8ZWshhUzkQ4xUUiMR+P+a0UQ5rOdzN7yspyGxIyEv1kUN5D/26 +Ow8ouG9T9Z3vJDP+e0Uw6zEF466Kh390y6GVcj9/+GsKKiKCFy3tl8ODwW1a +Bm8oiM58kKE1Kofp7WGc8U4KhD66VAdyy2NK5g4J93cUqOw8zfVRTR5fPkmv +FfxEgVfo5KmnR+WxwK/OuHuEAqVLFrJDCfIokvJkmf/Yf+eXUrQoVR7jG5f2 +jIxTEPFHtd0iVx6dCjqMpn5QcOGY1/LKp/Ioc6pN6/MsBU/PNWffklPAqEh3 +LxVeGoyLL5dG1yrgwb0tdYHSNKx7+3xutEUBvYt7bGNlaNjMtdDK+5UCyglc +N0hfQcMOh6Bu+KqAdqHVGqVyNFgeJWJieVnIW+2R10HQEKwwddNcnYU85V2q +Gao0TN5LbZnVZqFhW0/fcTUaIjaoj9CrWJg0KvEnSJ2GhAM+BqQZCwsX9Owy +0aThSsOTFm57Ft7x+ahQpkND487skYbDLPScWLRTw5AG6z9GYpFHWejTKlU2 +xvh5aofBqlgWum47FkytoaG7UiA29yQLG+3W6aoZ0zAqeEgsIZOFXYVFA39N +aQi5LmLIyWGhpVFdURGHhplVd9wnb7GQy3W2382MBh6v3lz/EhaWcb+8nQ80 +SFEbDC3rWRjK9zpN04KGa+u+uP9tYqH1zKvxZsZkd1RseRsLfXWG673X0qDJ +fa9V+Q0LAweCWhLX0WDhKOexaJCFtwQnAyotaWgerIitHWbht7JfEWBFw8Yo +h1thEyy8nabL38DYJS9xdOAXC/tarVPrN9Cwd2YitkWYwFesfv+bNky8DgRI +fBMjUL6afixvSwP/0LsCHikC1edO6V1ifOt9Q6cZSWCaJmEQs5GGQ45r9nqo +EFjph89HGVs8K1wQoUGgUYf2YfdNNPQ+vKBRZkDgzPaNM+qbaSg0XFz/yoTA +vcOfXqcwjqCiXcaRwOwTUvXjjCVu7IxXtyWQh7DovmNHg12CUVeON4G1D3L4 +ZrfQIP+3aF+tH4FXzZ2S19vTMHyY5OkJJHBV9/6VKYyTdglqSR0icFdkW7G0 +Aw3On2IaVocT+ODvicvbGLO3/XTdGk2gXlxWdgbjOtueY2eTCBxM6eUS2krD +2UZ76cIzBEodTvQ0Z+zBaSpuPU+gieiZrhDGauXG6wYuEbjanT54k/GsVkn3 +wmsEPhav0Ghn3PKP4n7yBrPfgu2LfjG+yMpYiP8QeN8ulIdwpMHvstAVz0IC +Db+UE+sZ64nFaR+lCTzAPewbwJgrebIxo5zAIq73zccZP+fZva28msDRARv7 +64wzI3vHXtcRGH2Eh6uS8Z5Jh4SJxwQ6rnzW8ZyxcVCzjGgbgTfJA+2fGPMP +mFAa7QTaWFX+mGDc6U2tt3lDoJ1aMMwzzu1iv9/5jkB38e2lAk40HLS/HJzQ +x+x3zmXrUsb4RJjvZj+BGy8QchKMRdbGX637l8AFJsliUox7qqd0ekcJdJr3 +XSXJuHDVnqbfPwjckBt2TJxxRFGfu/QsgZ6ZGVzCjDcoO04Y/CWQd/HFQh7G +EtktJxx5SFSqxaRpZj39khzZg/wknjHdnT7I+G4qTacIk7iL7n/ZyThWQNmq +SIzEul/x5vWM7eKvfHgiSeLgDan+fMbyv0UODsqSKPApvCqV8XDIsUV8JInR +GUcfhzCuGp7OVFRh5nP9wevIOMl/r565Bomi7hWRuoydez82e+mSGJiQpSbE +mO3i5BlpQGJCQOySfiaedRvMkiqQxJtdFxKT/8uXR3fl3qwnMfXNURn3//LF +WOXe/2xI/O39aFDlv/xQX9Kr6UTiP2pvjSuZfJu6JhOnv41EI3WyJ5rxT1El +tpE3icKCTW/NGY/+MNq9LpDETm7v7lomn7/7rxO2CSJx4beZTxGMB99upuxC +SJzirLbUZ/y5esfUtigSJQO/sjOZ+ujTDLrsE0/ilwbunI2MP2QfMQ1IJJHK +WR75i6mnzmNn4g+cI3FlQKjDZsZPbCtEkm6ReHQpdamTqdfmB4/oM/kk0rv4 +FQ8ybtR+6phWwpyHjdQyQcYPxT9dyaokcVvaE7XVTL3ffb9YpewZid/Ypy12 +M/3jyh4v+DxJ4qsbYz2uTD+61LPr88AvJj7OZzXa1tOQbheSMDLPxOdFx6gx +47P6SW0zAop4wGTwpRjTz+J/0y6i8opop62rnmvO5Hcyb7CppSJy1lv93MT0 +111zouIWtoo43m7+7yUTGgL2y5RbbVHE0A5Pnz6mH/ts1f7jsE0RDUrzuwKM +aHBc4ZYUGKSIhX9PCLoa0GBaUHj94kVF1IvytW3UpuE9qyB7/VXm/rRbrya1 +mHy9eCfrZ7YiXhCQNFViXBGXl+lwRxE/Wmfej9Jg6tX1eoZIjSJmBH7bt5x5 +/6jypqee+KSI0/32Rz4y7ycJ76OxhzXYuO/amgtDS2ko6wiPUdJl4+RTocHu +Jcx6bI5Ed6xmY3jzfoNmURrOrw6N1AM2hgiwW68K0yAstP/IqD0bRePYPRoC +NCys9A0OCGOj0POIsLF5CibEbHyc69n45c2ddX++U9C1l2zf3czGjFlhldQh +CuqafkHMUzb+2+HQSvxLQWpEgcLtTjYGdb+xN/tGgc5nob7ZITYORBqe8/hI +QRD9wvOauBKq61k91OqgYMjOyb3fTwltfONP6VZR0H/ax/ngImWkZRqqx5jv +naAhDVJHSBkHToYVykVTMG01OzKyRBktZnq/WkdSsJjnfEKgjDJ+HEs2uHaE +eV54Q6mPpjIOF7QFah+gIMpfWdxuqzJ2fev6zu1LgYTZ8Av1bGVsWCXDt8+C +AuuxMOuvBir4O6DpDN9cCQzv4A8pjVmJl6raWW4lxcz/giR3Yr0qHtzv/trG +pAjEnimfpcbU8ENVYHF7XQHIJpVsMTDQwEjVdz2iwvmQoW60RHynJh4deREq +G3AbnsiYr/5xTgvjehbprKzNA2PZ+lTtTm08YhFu/mMiF0R4bhzaHq+D55G7 +T83qJsjHKZi6KeviclGNPpv4HBBQ8ih3aNZF48nasrbb2aDFkS4J89RDa5QS +9LidCQd7xRpsuPSRUt70qOXcZRj7cdrJOkMfLbd0LTb6cBGstJuuWGuuwnmn +nuoan3R4+MPk9/TzVbimL6nm4edzEKSh9+6l/2pUPNv+Rz4uBTijfh1uAgbY +LLpngY9tMqxnS20SvmGA5XfTc18+TISVsaeO1BsaYt3N3fEnMo+Dmr9RrdI7 +QzRbXvgiJT0O/B/uOl56YA0mH0cHN5VoqL3e4Tex3AiPcLXqye0Ih5+356e1 +K4ww+dMlYVWHUNihVCBwZZMxiuyMe9zLdxAm1NIM7o4bo/rX+6cj+/fB/dzf +nyaTTFAzVPpS5fQu2LZOEU3kTVHQdmWRXYcfrNiXWKlVZ4phtSGdEbzb4ex8 +wOrkelPceWrh7+gZH+A+b0kPNJqij01fTfJ3Hxgq571zvdUUr6+X56t96QNV +XMczxF6bolxvk9bpLB/Ylh4bNvXVFAnyRU+NkQ9kVIevfijIweG2T1upYS9Y +vngvvcmFg+3SXK5/RTwgd21UxLgbB8djVAbip9xBL+rs2jQPDmb61GjL9LrD +5nHqTdd2Du5LDHoYW+QOJzonZ3fs5WDWSF2yxiZ3mLkRYxERx0EhFcvGnynb +4J1J2uu8Ag6KEbVXpkk32BWam2ldzMGY7J3CD4TcYKq4zH+YYsYH33maNuUK +YmTXtG45B/2zchaGPnEFW3452Qd1HHz4TESJN8QVajry/F6/4WBAsOAZh2YX +sBG5r3m4i4P9AoI5KnddoMuqdUrqPQdv3TvsIHzNBX5WfU/y+shB1b/7fReH +uIBmjk7Rv0McDHYVWPxEwQVq3pkfPj3CwZDkgA+kIDPfsq2gPc7B6ZFdU8lT +zhCQGPry0CQHt6a86Tz7zBl+1p24IjnDwTV8/EkrK50h/telHVW/OBgpG+z8 +KtcZlqy6o+E5x5zH3yjD06nOkLWvanJ+noPKhXks50hn+D8GiTbX + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fl0bAHARka0oW5ZnxoPsW5Hlcd9UhEpkzZpQWqQkkb1EqSgqlUjJ +W9aZsmQpQpa0qCQqtCheWb+yVfLN+9dcv+s6c+accy8zQ/jud/Dn5uLiWrCA +i+u/61RvayM7OdcsqVRh85/taNaRJRVu3hUPqtuTO91E5AGXv/CV6joPky33 +dZaLaMHhLflvebpuwANJt8kBYTNYOip5fvbtXZhNVCu/JbwZ+mo27//5th7s +PQWXdQp5gSV7qGfi7SvgvE7bUyoQBLNvDS+Mv/0M2p8pd5iLgoa1/+S+vPED +ggM6E0/zpYBsX+U3X4058Ijz30+1XoRle73zF63lwS1Ryf4FOdfgvK5l9WYn +fjxU9cZrj/0N6M7QqZtYIow89YN5O91uQXJuzAtu6aUYS95XHHe6DZLpX06m +XRPHNflXxYpH80FKvez4TJ44xuie0SydzgeZ+hMxnpQ41h8psyrjKgD5cdVQ +lQZxzOWwQm+LFYDSxmCf6kFx9Ls5mu5gUAD6C+cMvugvQ+uKvxOlkQVgd0ii +X+/JMmw7dLE2n7cQEh2tzV5NLUdfv6QiNn8RyJQ+l+FeIIH6MV1pJ5cUQbG4 +47SuoARyhY5tGZQqgs5XXtQ5BQmcK8+1TVMtArb9IdJ+gwT+28Ovmm1TBPWb +svnaL0tgmFlJ5ZnkIpiznHz+zFQSszojttbxF0OIUY53a7wUNojPx28dLwab +6yI/bU9LYe0/1n/vTRUDuSgy6fkFKZTLLPgpMlcM7R3O9OvbUrgu1cO+VKAE +tIKFeHqfS+GxJM9HNWQJDOaF5f1PRhq9BaLXNG4tAY9lm0dW3JNG2q+2poAu +Af2j1XFZNdK4eg9HzL2iBBZ/XilBNEmjidKK9wsflEBlCQ8od0vj6FBgk1VL +CUjYVqbqzEvjnM77+VO9JdAex1613lYG136oDOHhpWDd2K+IoC8yqEe2iu/W +oiB8Q7rao2EZzI/ycPmgQ0FxjuY78SkZ5AnMHbPVp0DK0ceokn8FejYFySuu +oWD4/uNpHq0VSF3tC6XNKUiLTz10+cgKrO6VltjsSMHn5cpBjcKyGLsvLjUx +jALJ/bVykpKy6BS07ERuOAUbW1yfBbJk0fvstVcPj1JQHpGsIaovi10JAge+ +x1Bwqm98yM1VFldW3W1iJ1Ggd6d659gNWdxQ/+V/khkUxJnab5dZI4cnL97z +XlBOwQavrP8ZWshhUzkQ4xUUiMR+P+a0UQ5rOdzN7yspyGxIyEv1kUN5D/26 +Ow8ouG9T9Z3vJDP+e0Uw6zEF466Kh390y6GVcj9/+GsKKiKCFy3tl8ODwW1a +Bm8oiM58kKE1Kofp7WGc8U4KhD66VAdyy2NK5g4J93cUqOw8zfVRTR5fPkmv +FfxEgVfo5KmnR+WxwK/OuHuEAqVLFrJDCfIokvJkmf/Yf+eXUrQoVR7jG5f2 +jIxTEPFHtd0iVx6dCjqMpn5QcOGY1/LKp/Ioc6pN6/MsBU/PNWffklPAqEh3 +LxVeGoyLL5dG1yrgwb0tdYHSNKx7+3xutEUBvYt7bGNlaNjMtdDK+5UCyglc +N0hfQcMOh6Bu+KqAdqHVGqVyNFgeJWJieVnIW+2R10HQEKwwddNcnYU85V2q +Gao0TN5LbZnVZqFhW0/fcTUaIjaoj9CrWJg0KvEnSJ2GhAM+BqQZCwsX9Owy +0aThSsOTFm57Ft7x+ahQpkND487skYbDLPScWLRTw5AG6z9GYpFHWejTKlU2 +xvh5aofBqlgWum47FkytoaG7UiA29yQLG+3W6aoZ0zAqeEgsIZOFXYVFA39N +aQi5LmLIyWGhpVFdURGHhplVd9wnb7GQy3W2382MBh6v3lz/EhaWcb+8nQ80 +SFEbDC3rWRjK9zpN04KGa+u+uP9tYqH1zKvxZsZkd1RseRsLfXWG673X0qDJ +fa9V+Q0LAweCWhLX0WDhKOexaJCFtwQnAyotaWgerIitHWbht7JfEWBFw8Yo +h1thEyy8nabL38DYJS9xdOAXC/tarVPrN9Cwd2YitkWYwFesfv+bNky8DgRI +fBMjUL6afixvSwP/0LsCHikC1edO6V1ifOt9Q6cZSWCaJmEQs5GGQ45r9nqo +EFjph89HGVs8K1wQoUGgUYf2YfdNNPQ+vKBRZkDgzPaNM+qbaSg0XFz/yoTA +vcOfXqcwjqCiXcaRwOwTUvXjjCVu7IxXtyWQh7DovmNHg12CUVeON4G1D3L4 +ZrfQIP+3aF+tH4FXzZ2S19vTMHyY5OkJJHBV9/6VKYyTdglqSR0icFdkW7G0 +Aw3On2IaVocT+ODvicvbGLO3/XTdGk2gXlxWdgbjOtueY2eTCBxM6eUS2krD +2UZ76cIzBEodTvQ0Z+zBaSpuPU+gieiZrhDGauXG6wYuEbjanT54k/GsVkn3 +wmsEPhav0Ghn3PKP4n7yBrPfgu2LfjG+yMpYiP8QeN8ulIdwpMHvstAVz0IC +Db+UE+sZ64nFaR+lCTzAPewbwJgrebIxo5zAIq73zccZP+fZva28msDRARv7 +64wzI3vHXtcRGH2Eh6uS8Z5Jh4SJxwQ6rnzW8ZyxcVCzjGgbgTfJA+2fGPMP +mFAa7QTaWFX+mGDc6U2tt3lDoJ1aMMwzzu1iv9/5jkB38e2lAk40HLS/HJzQ +x+x3zmXrUsb4RJjvZj+BGy8QchKMRdbGX637l8AFJsliUox7qqd0ekcJdJr3 +XSXJuHDVnqbfPwjckBt2TJxxRFGfu/QsgZ6ZGVzCjDcoO04Y/CWQd/HFQh7G +EtktJxx5SFSqxaRpZj39khzZg/wknjHdnT7I+G4qTacIk7iL7n/ZyThWQNmq +SIzEul/x5vWM7eKvfHgiSeLgDan+fMbyv0UODsqSKPApvCqV8XDIsUV8JInR +GUcfhzCuGp7OVFRh5nP9wevIOMl/r565Bomi7hWRuoydez82e+mSGJiQpSbE +mO3i5BlpQGJCQOySfiaedRvMkiqQxJtdFxKT/8uXR3fl3qwnMfXNURn3//LF +WOXe/2xI/O39aFDlv/xQX9Kr6UTiP2pvjSuZfJu6JhOnv41EI3WyJ5rxT1El +tpE3icKCTW/NGY/+MNq9LpDETm7v7lomn7/7rxO2CSJx4beZTxGMB99upuxC +SJzirLbUZ/y5esfUtigSJQO/sjOZ+ujTDLrsE0/ilwbunI2MP2QfMQ1IJJHK +WR75i6mnzmNn4g+cI3FlQKjDZsZPbCtEkm6ReHQpdamTqdfmB4/oM/kk0rv4 +FQ8ybtR+6phWwpyHjdQyQcYPxT9dyaokcVvaE7XVTL3ffb9YpewZid/Ypy12 +M/3jyh4v+DxJ4qsbYz2uTD+61LPr88AvJj7OZzXa1tOQbheSMDLPxOdFx6gx +47P6SW0zAop4wGTwpRjTz+J/0y6i8opop62rnmvO5Hcyb7CppSJy1lv93MT0 +111zouIWtoo43m7+7yUTGgL2y5RbbVHE0A5Pnz6mH/ts1f7jsE0RDUrzuwKM +aHBc4ZYUGKSIhX9PCLoa0GBaUHj94kVF1IvytW3UpuE9qyB7/VXm/rRbrya1 +mHy9eCfrZ7YiXhCQNFViXBGXl+lwRxE/Wmfej9Jg6tX1eoZIjSJmBH7bt5x5 +/6jypqee+KSI0/32Rz4y7ycJ76OxhzXYuO/amgtDS2ko6wiPUdJl4+RTocHu +Jcx6bI5Ed6xmY3jzfoNmURrOrw6N1AM2hgiwW68K0yAstP/IqD0bRePYPRoC +NCys9A0OCGOj0POIsLF5CibEbHyc69n45c2ddX++U9C1l2zf3czGjFlhldQh +CuqafkHMUzb+2+HQSvxLQWpEgcLtTjYGdb+xN/tGgc5nob7ZITYORBqe8/hI +QRD9wvOauBKq61k91OqgYMjOyb3fTwltfONP6VZR0H/ax/ngImWkZRqqx5jv +naAhDVJHSBkHToYVykVTMG01OzKyRBktZnq/WkdSsJjnfEKgjDJ+HEs2uHaE +eV54Q6mPpjIOF7QFah+gIMpfWdxuqzJ2fev6zu1LgYTZ8Av1bGVsWCXDt8+C +AuuxMOuvBir4O6DpDN9cCQzv4A8pjVmJl6raWW4lxcz/giR3Yr0qHtzv/trG +pAjEnimfpcbU8ENVYHF7XQHIJpVsMTDQwEjVdz2iwvmQoW60RHynJh4deREq +G3AbnsiYr/5xTgvjehbprKzNA2PZ+lTtTm08YhFu/mMiF0R4bhzaHq+D55G7 +T83qJsjHKZi6KeviclGNPpv4HBBQ8ih3aNZF48nasrbb2aDFkS4J89RDa5QS +9LidCQd7xRpsuPSRUt70qOXcZRj7cdrJOkMfLbd0LTb6cBGstJuuWGuuwnmn +nuoan3R4+MPk9/TzVbimL6nm4edzEKSh9+6l/2pUPNv+Rz4uBTijfh1uAgbY +LLpngY9tMqxnS20SvmGA5XfTc18+TISVsaeO1BsaYt3N3fEnMo+Dmr9RrdI7 +QzRbXvgiJT0O/B/uOl56YA0mH0cHN5VoqL3e4Tex3AiPcLXqye0Ih5+356e1 +K4ww+dMlYVWHUNihVCBwZZMxiuyMe9zLdxAm1NIM7o4bo/rX+6cj+/fB/dzf +nyaTTFAzVPpS5fQu2LZOEU3kTVHQdmWRXYcfrNiXWKlVZ4phtSGdEbzb4ex8 +wOrkelPceWrh7+gZH+A+b0kPNJqij01fTfJ3Hxgq571zvdUUr6+X56t96QNV +XMczxF6bolxvk9bpLB/Ylh4bNvXVFAnyRU+NkQ9kVIevfijIweG2T1upYS9Y +vngvvcmFg+3SXK5/RTwgd21UxLgbB8djVAbip9xBL+rs2jQPDmb61GjL9LrD +5nHqTdd2Du5LDHoYW+QOJzonZ3fs5WDWSF2yxiZ3mLkRYxERx0EhFcvGnynb +4J1J2uu8Ag6KEbVXpkk32BWam2ldzMGY7J3CD4TcYKq4zH+YYsYH33maNuUK +YmTXtG45B/2zchaGPnEFW3452Qd1HHz4TESJN8QVajry/F6/4WBAsOAZh2YX +sBG5r3m4i4P9AoI5KnddoMuqdUrqPQdv3TvsIHzNBX5WfU/y+shB1b/7fReH +uIBmjk7Rv0McDHYVWPxEwQVq3pkfPj3CwZDkgA+kIDPfsq2gPc7B6ZFdU8lT +zhCQGPry0CQHt6a86Tz7zBl+1p24IjnDwTV8/EkrK50h/telHVW/OBgpG+z8 +KtcZlqy6o+E5x5zH3yjD06nOkLWvanJ+noPKhXks50hn+D8GiTbX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06770468189936808}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06770468189936808}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fl0bAHARka0oW5ZnxoPsW5Hlcd9UhEpkzZpQWqQkkb1EqSgqlUjJ +W9aZsmQpQpa0qCQqtCheWb+yVfLN+9dcv+s6c+accy8zQ/jud/Dn5uLiWrCA +i+u/61RvayM7OdcsqVRh85/taNaRJRVu3hUPqtuTO91E5AGXv/CV6joPky33 +dZaLaMHhLflvebpuwANJt8kBYTNYOip5fvbtXZhNVCu/JbwZ+mo27//5th7s +PQWXdQp5gSV7qGfi7SvgvE7bUyoQBLNvDS+Mv/0M2p8pd5iLgoa1/+S+vPED +ggM6E0/zpYBsX+U3X4058Ijz30+1XoRle73zF63lwS1Ryf4FOdfgvK5l9WYn +fjxU9cZrj/0N6M7QqZtYIow89YN5O91uQXJuzAtu6aUYS95XHHe6DZLpX06m +XRPHNflXxYpH80FKvez4TJ44xuie0SydzgeZ+hMxnpQ41h8psyrjKgD5cdVQ +lQZxzOWwQm+LFYDSxmCf6kFx9Ls5mu5gUAD6C+cMvugvQ+uKvxOlkQVgd0ii +X+/JMmw7dLE2n7cQEh2tzV5NLUdfv6QiNn8RyJQ+l+FeIIH6MV1pJ5cUQbG4 +47SuoARyhY5tGZQqgs5XXtQ5BQmcK8+1TVMtArb9IdJ+gwT+28Ovmm1TBPWb +svnaL0tgmFlJ5ZnkIpiznHz+zFQSszojttbxF0OIUY53a7wUNojPx28dLwab +6yI/bU9LYe0/1n/vTRUDuSgy6fkFKZTLLPgpMlcM7R3O9OvbUrgu1cO+VKAE +tIKFeHqfS+GxJM9HNWQJDOaF5f1PRhq9BaLXNG4tAY9lm0dW3JNG2q+2poAu +Af2j1XFZNdK4eg9HzL2iBBZ/XilBNEmjidKK9wsflEBlCQ8od0vj6FBgk1VL +CUjYVqbqzEvjnM77+VO9JdAex1613lYG136oDOHhpWDd2K+IoC8yqEe2iu/W +oiB8Q7rao2EZzI/ycPmgQ0FxjuY78SkZ5AnMHbPVp0DK0ceokn8FejYFySuu +oWD4/uNpHq0VSF3tC6XNKUiLTz10+cgKrO6VltjsSMHn5cpBjcKyGLsvLjUx +jALJ/bVykpKy6BS07ERuOAUbW1yfBbJk0fvstVcPj1JQHpGsIaovi10JAge+ +x1Bwqm98yM1VFldW3W1iJ1Ggd6d659gNWdxQ/+V/khkUxJnab5dZI4cnL97z +XlBOwQavrP8ZWshhUzkQ4xUUiMR+P+a0UQ5rOdzN7yspyGxIyEv1kUN5D/26 +Ow8ouG9T9Z3vJDP+e0Uw6zEF466Kh390y6GVcj9/+GsKKiKCFy3tl8ODwW1a +Bm8oiM58kKE1Kofp7WGc8U4KhD66VAdyy2NK5g4J93cUqOw8zfVRTR5fPkmv +FfxEgVfo5KmnR+WxwK/OuHuEAqVLFrJDCfIokvJkmf/Yf+eXUrQoVR7jG5f2 +jIxTEPFHtd0iVx6dCjqMpn5QcOGY1/LKp/Ioc6pN6/MsBU/PNWffklPAqEh3 +LxVeGoyLL5dG1yrgwb0tdYHSNKx7+3xutEUBvYt7bGNlaNjMtdDK+5UCyglc +N0hfQcMOh6Bu+KqAdqHVGqVyNFgeJWJieVnIW+2R10HQEKwwddNcnYU85V2q +Gao0TN5LbZnVZqFhW0/fcTUaIjaoj9CrWJg0KvEnSJ2GhAM+BqQZCwsX9Owy +0aThSsOTFm57Ft7x+ahQpkND487skYbDLPScWLRTw5AG6z9GYpFHWejTKlU2 +xvh5aofBqlgWum47FkytoaG7UiA29yQLG+3W6aoZ0zAqeEgsIZOFXYVFA39N +aQi5LmLIyWGhpVFdURGHhplVd9wnb7GQy3W2382MBh6v3lz/EhaWcb+8nQ80 +SFEbDC3rWRjK9zpN04KGa+u+uP9tYqH1zKvxZsZkd1RseRsLfXWG673X0qDJ +fa9V+Q0LAweCWhLX0WDhKOexaJCFtwQnAyotaWgerIitHWbht7JfEWBFw8Yo +h1thEyy8nabL38DYJS9xdOAXC/tarVPrN9Cwd2YitkWYwFesfv+bNky8DgRI +fBMjUL6afixvSwP/0LsCHikC1edO6V1ifOt9Q6cZSWCaJmEQs5GGQ45r9nqo +EFjph89HGVs8K1wQoUGgUYf2YfdNNPQ+vKBRZkDgzPaNM+qbaSg0XFz/yoTA +vcOfXqcwjqCiXcaRwOwTUvXjjCVu7IxXtyWQh7DovmNHg12CUVeON4G1D3L4 +ZrfQIP+3aF+tH4FXzZ2S19vTMHyY5OkJJHBV9/6VKYyTdglqSR0icFdkW7G0 +Aw3On2IaVocT+ODvicvbGLO3/XTdGk2gXlxWdgbjOtueY2eTCBxM6eUS2krD +2UZ76cIzBEodTvQ0Z+zBaSpuPU+gieiZrhDGauXG6wYuEbjanT54k/GsVkn3 +wmsEPhav0Ghn3PKP4n7yBrPfgu2LfjG+yMpYiP8QeN8ulIdwpMHvstAVz0IC +Db+UE+sZ64nFaR+lCTzAPewbwJgrebIxo5zAIq73zccZP+fZva28msDRARv7 +64wzI3vHXtcRGH2Eh6uS8Z5Jh4SJxwQ6rnzW8ZyxcVCzjGgbgTfJA+2fGPMP +mFAa7QTaWFX+mGDc6U2tt3lDoJ1aMMwzzu1iv9/5jkB38e2lAk40HLS/HJzQ +x+x3zmXrUsb4RJjvZj+BGy8QchKMRdbGX637l8AFJsliUox7qqd0ekcJdJr3 +XSXJuHDVnqbfPwjckBt2TJxxRFGfu/QsgZ6ZGVzCjDcoO04Y/CWQd/HFQh7G +EtktJxx5SFSqxaRpZj39khzZg/wknjHdnT7I+G4qTacIk7iL7n/ZyThWQNmq +SIzEul/x5vWM7eKvfHgiSeLgDan+fMbyv0UODsqSKPApvCqV8XDIsUV8JInR +GUcfhzCuGp7OVFRh5nP9wevIOMl/r565Bomi7hWRuoydez82e+mSGJiQpSbE +mO3i5BlpQGJCQOySfiaedRvMkiqQxJtdFxKT/8uXR3fl3qwnMfXNURn3//LF +WOXe/2xI/O39aFDlv/xQX9Kr6UTiP2pvjSuZfJu6JhOnv41EI3WyJ5rxT1El +tpE3icKCTW/NGY/+MNq9LpDETm7v7lomn7/7rxO2CSJx4beZTxGMB99upuxC +SJzirLbUZ/y5esfUtigSJQO/sjOZ+ujTDLrsE0/ilwbunI2MP2QfMQ1IJJHK +WR75i6mnzmNn4g+cI3FlQKjDZsZPbCtEkm6ReHQpdamTqdfmB4/oM/kk0rv4 +FQ8ybtR+6phWwpyHjdQyQcYPxT9dyaokcVvaE7XVTL3ffb9YpewZid/Ypy12 +M/3jyh4v+DxJ4qsbYz2uTD+61LPr88AvJj7OZzXa1tOQbheSMDLPxOdFx6gx +47P6SW0zAop4wGTwpRjTz+J/0y6i8opop62rnmvO5Hcyb7CppSJy1lv93MT0 +111zouIWtoo43m7+7yUTGgL2y5RbbVHE0A5Pnz6mH/ts1f7jsE0RDUrzuwKM +aHBc4ZYUGKSIhX9PCLoa0GBaUHj94kVF1IvytW3UpuE9qyB7/VXm/rRbrya1 +mHy9eCfrZ7YiXhCQNFViXBGXl+lwRxE/Wmfej9Jg6tX1eoZIjSJmBH7bt5x5 +/6jypqee+KSI0/32Rz4y7ycJ76OxhzXYuO/amgtDS2ko6wiPUdJl4+RTocHu +Jcx6bI5Ed6xmY3jzfoNmURrOrw6N1AM2hgiwW68K0yAstP/IqD0bRePYPRoC +NCys9A0OCGOj0POIsLF5CibEbHyc69n45c2ddX++U9C1l2zf3czGjFlhldQh +CuqafkHMUzb+2+HQSvxLQWpEgcLtTjYGdb+xN/tGgc5nob7ZITYORBqe8/hI +QRD9wvOauBKq61k91OqgYMjOyb3fTwltfONP6VZR0H/ax/ngImWkZRqqx5jv +naAhDVJHSBkHToYVykVTMG01OzKyRBktZnq/WkdSsJjnfEKgjDJ+HEs2uHaE +eV54Q6mPpjIOF7QFah+gIMpfWdxuqzJ2fev6zu1LgYTZ8Av1bGVsWCXDt8+C +AuuxMOuvBir4O6DpDN9cCQzv4A8pjVmJl6raWW4lxcz/giR3Yr0qHtzv/trG +pAjEnimfpcbU8ENVYHF7XQHIJpVsMTDQwEjVdz2iwvmQoW60RHynJh4deREq +G3AbnsiYr/5xTgvjehbprKzNA2PZ+lTtTm08YhFu/mMiF0R4bhzaHq+D55G7 +T83qJsjHKZi6KeviclGNPpv4HBBQ8ih3aNZF48nasrbb2aDFkS4J89RDa5QS +9LidCQd7xRpsuPSRUt70qOXcZRj7cdrJOkMfLbd0LTb6cBGstJuuWGuuwnmn +nuoan3R4+MPk9/TzVbimL6nm4edzEKSh9+6l/2pUPNv+Rz4uBTijfh1uAgbY +LLpngY9tMqxnS20SvmGA5XfTc18+TISVsaeO1BsaYt3N3fEnMo+Dmr9RrdI7 +QzRbXvgiJT0O/B/uOl56YA0mH0cHN5VoqL3e4Tex3AiPcLXqye0Ih5+356e1 +K4ww+dMlYVWHUNihVCBwZZMxiuyMe9zLdxAm1NIM7o4bo/rX+6cj+/fB/dzf +nyaTTFAzVPpS5fQu2LZOEU3kTVHQdmWRXYcfrNiXWKlVZ4phtSGdEbzb4ex8 +wOrkelPceWrh7+gZH+A+b0kPNJqij01fTfJ3Hxgq571zvdUUr6+X56t96QNV +XMczxF6bolxvk9bpLB/Ylh4bNvXVFAnyRU+NkQ9kVIevfijIweG2T1upYS9Y +vngvvcmFg+3SXK5/RTwgd21UxLgbB8djVAbip9xBL+rs2jQPDmb61GjL9LrD +5nHqTdd2Du5LDHoYW+QOJzonZ3fs5WDWSF2yxiZ3mLkRYxERx0EhFcvGnynb +4J1J2uu8Ag6KEbVXpkk32BWam2ldzMGY7J3CD4TcYKq4zH+YYsYH33maNuUK +YmTXtG45B/2zchaGPnEFW3452Qd1HHz4TESJN8QVajry/F6/4WBAsOAZh2YX +sBG5r3m4i4P9AoI5KnddoMuqdUrqPQdv3TvsIHzNBX5WfU/y+shB1b/7fReH +uIBmjk7Rv0McDHYVWPxEwQVq3pkfPj3CwZDkgA+kIDPfsq2gPc7B6ZFdU8lT +zhCQGPry0CQHt6a86Tz7zBl+1p24IjnDwTV8/EkrK50h/telHVW/OBgpG+z8 +KtcZlqy6o+E5x5zH3yjD06nOkLWvanJ+noPKhXks50hn+D8GiTbX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06770468189936808}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06770468189936808}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993912823364873*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"a9d8f961-575d-44aa-86fe-b8e58def5ca5"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ -53b7ef04b97c"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Fl0bAHARka0oW5ZnxoPsW5Hlcd9UhEpkzZpQWqQkkb1EqSgqlUjJ +W9aZsmQpQpa0qCQqtCheWb+yVfLN+9dcv+s6c+accy8zQ/jud/Dn5uLiWrCA +i+u/61RvayM7OdcsqVRh85/taNaRJRVu3hUPqtuTO91E5AGXv/CV6joPky33 +dZaLaMHhLflvebpuwANJt8kBYTNYOip5fvbtXZhNVCu/JbwZ+mo27//5th7s +PQWXdQp5gSV7qGfi7SvgvE7bUyoQBLNvDS+Mv/0M2p8pd5iLgoa1/+S+vPED +ggM6E0/zpYBsX+U3X4058Ijz30+1XoRle73zF63lwS1Ryf4FOdfgvK5l9WYn +fjxU9cZrj/0N6M7QqZtYIow89YN5O91uQXJuzAtu6aUYS95XHHe6DZLpX06m +XRPHNflXxYpH80FKvez4TJ44xuie0SydzgeZ+hMxnpQ41h8psyrjKgD5cdVQ +lQZxzOWwQm+LFYDSxmCf6kFx9Ls5mu5gUAD6C+cMvugvQ+uKvxOlkQVgd0ii +X+/JMmw7dLE2n7cQEh2tzV5NLUdfv6QiNn8RyJQ+l+FeIIH6MV1pJ5cUQbG4 +47SuoARyhY5tGZQqgs5XXtQ5BQmcK8+1TVMtArb9IdJ+gwT+28Ovmm1TBPWb +svnaL0tgmFlJ5ZnkIpiznHz+zFQSszojttbxF0OIUY53a7wUNojPx28dLwab +6yI/bU9LYe0/1n/vTRUDuSgy6fkFKZTLLPgpMlcM7R3O9OvbUrgu1cO+VKAE +tIKFeHqfS+GxJM9HNWQJDOaF5f1PRhq9BaLXNG4tAY9lm0dW3JNG2q+2poAu +Af2j1XFZNdK4eg9HzL2iBBZ/XilBNEmjidKK9wsflEBlCQ8od0vj6FBgk1VL +CUjYVqbqzEvjnM77+VO9JdAex1613lYG136oDOHhpWDd2K+IoC8yqEe2iu/W +oiB8Q7rao2EZzI/ycPmgQ0FxjuY78SkZ5AnMHbPVp0DK0ceokn8FejYFySuu +oWD4/uNpHq0VSF3tC6XNKUiLTz10+cgKrO6VltjsSMHn5cpBjcKyGLsvLjUx +jALJ/bVykpKy6BS07ERuOAUbW1yfBbJk0fvstVcPj1JQHpGsIaovi10JAge+ +x1Bwqm98yM1VFldW3W1iJ1Ggd6d659gNWdxQ/+V/khkUxJnab5dZI4cnL97z +XlBOwQavrP8ZWshhUzkQ4xUUiMR+P+a0UQ5rOdzN7yspyGxIyEv1kUN5D/26 +Ow8ouG9T9Z3vJDP+e0Uw6zEF466Kh390y6GVcj9/+GsKKiKCFy3tl8ODwW1a +Bm8oiM58kKE1Kofp7WGc8U4KhD66VAdyy2NK5g4J93cUqOw8zfVRTR5fPkmv +FfxEgVfo5KmnR+WxwK/OuHuEAqVLFrJDCfIokvJkmf/Yf+eXUrQoVR7jG5f2 +jIxTEPFHtd0iVx6dCjqMpn5QcOGY1/LKp/Ioc6pN6/MsBU/PNWffklPAqEh3 +LxVeGoyLL5dG1yrgwb0tdYHSNKx7+3xutEUBvYt7bGNlaNjMtdDK+5UCyglc +N0hfQcMOh6Bu+KqAdqHVGqVyNFgeJWJieVnIW+2R10HQEKwwddNcnYU85V2q +Gao0TN5LbZnVZqFhW0/fcTUaIjaoj9CrWJg0KvEnSJ2GhAM+BqQZCwsX9Owy +0aThSsOTFm57Ft7x+ahQpkND487skYbDLPScWLRTw5AG6z9GYpFHWejTKlU2 +xvh5aofBqlgWum47FkytoaG7UiA29yQLG+3W6aoZ0zAqeEgsIZOFXYVFA39N +aQi5LmLIyWGhpVFdURGHhplVd9wnb7GQy3W2382MBh6v3lz/EhaWcb+8nQ80 +SFEbDC3rWRjK9zpN04KGa+u+uP9tYqH1zKvxZsZkd1RseRsLfXWG673X0qDJ +fa9V+Q0LAweCWhLX0WDhKOexaJCFtwQnAyotaWgerIitHWbht7JfEWBFw8Yo +h1thEyy8nabL38DYJS9xdOAXC/tarVPrN9Cwd2YitkWYwFesfv+bNky8DgRI +fBMjUL6afixvSwP/0LsCHikC1edO6V1ifOt9Q6cZSWCaJmEQs5GGQ45r9nqo +EFjph89HGVs8K1wQoUGgUYf2YfdNNPQ+vKBRZkDgzPaNM+qbaSg0XFz/yoTA +vcOfXqcwjqCiXcaRwOwTUvXjjCVu7IxXtyWQh7DovmNHg12CUVeON4G1D3L4 +ZrfQIP+3aF+tH4FXzZ2S19vTMHyY5OkJJHBV9/6VKYyTdglqSR0icFdkW7G0 +Aw3On2IaVocT+ODvicvbGLO3/XTdGk2gXlxWdgbjOtueY2eTCBxM6eUS2krD +2UZ76cIzBEodTvQ0Z+zBaSpuPU+gieiZrhDGauXG6wYuEbjanT54k/GsVkn3 +wmsEPhav0Ghn3PKP4n7yBrPfgu2LfjG+yMpYiP8QeN8ulIdwpMHvstAVz0IC +Db+UE+sZ64nFaR+lCTzAPewbwJgrebIxo5zAIq73zccZP+fZva28msDRARv7 +64wzI3vHXtcRGH2Eh6uS8Z5Jh4SJxwQ6rnzW8ZyxcVCzjGgbgTfJA+2fGPMP +mFAa7QTaWFX+mGDc6U2tt3lDoJ1aMMwzzu1iv9/5jkB38e2lAk40HLS/HJzQ +x+x3zmXrUsb4RJjvZj+BGy8QchKMRdbGX637l8AFJsliUox7qqd0ekcJdJr3 +XSXJuHDVnqbfPwjckBt2TJxxRFGfu/QsgZ6ZGVzCjDcoO04Y/CWQd/HFQh7G +EtktJxx5SFSqxaRpZj39khzZg/wknjHdnT7I+G4qTacIk7iL7n/ZyThWQNmq +SIzEul/x5vWM7eKvfHgiSeLgDan+fMbyv0UODsqSKPApvCqV8XDIsUV8JInR +GUcfhzCuGp7OVFRh5nP9wevIOMl/r565Bomi7hWRuoydez82e+mSGJiQpSbE +mO3i5BlpQGJCQOySfiaedRvMkiqQxJtdFxKT/8uXR3fl3qwnMfXNURn3//LF +WOXe/2xI/O39aFDlv/xQX9Kr6UTiP2pvjSuZfJu6JhOnv41EI3WyJ5rxT1El +tpE3icKCTW/NGY/+MNq9LpDETm7v7lomn7/7rxO2CSJx4beZTxGMB99upuxC +SJzirLbUZ/y5esfUtigSJQO/sjOZ+ujTDLrsE0/ilwbunI2MP2QfMQ1IJJHK +WR75i6mnzmNn4g+cI3FlQKjDZsZPbCtEkm6ReHQpdamTqdfmB4/oM/kk0rv4 +FQ8ybtR+6phWwpyHjdQyQcYPxT9dyaokcVvaE7XVTL3ffb9YpewZid/Ypy12 +M/3jyh4v+DxJ4qsbYz2uTD+61LPr88AvJj7OZzXa1tOQbheSMDLPxOdFx6gx +47P6SW0zAop4wGTwpRjTz+J/0y6i8opop62rnmvO5Hcyb7CppSJy1lv93MT0 +111zouIWtoo43m7+7yUTGgL2y5RbbVHE0A5Pnz6mH/ts1f7jsE0RDUrzuwKM +aHBc4ZYUGKSIhX9PCLoa0GBaUHj94kVF1IvytW3UpuE9qyB7/VXm/rRbrya1 +mHy9eCfrZ7YiXhCQNFViXBGXl+lwRxE/Wmfej9Jg6tX1eoZIjSJmBH7bt5x5 +/6jypqee+KSI0/32Rz4y7ycJ76OxhzXYuO/amgtDS2ko6wiPUdJl4+RTocHu +Jcx6bI5Ed6xmY3jzfoNmURrOrw6N1AM2hgiwW68K0yAstP/IqD0bRePYPRoC +NCys9A0OCGOj0POIsLF5CibEbHyc69n45c2ddX++U9C1l2zf3czGjFlhldQh +CuqafkHMUzb+2+HQSvxLQWpEgcLtTjYGdb+xN/tGgc5nob7ZITYORBqe8/hI +QRD9wvOauBKq61k91OqgYMjOyb3fTwltfONP6VZR0H/ax/ngImWkZRqqx5jv +naAhDVJHSBkHToYVykVTMG01OzKyRBktZnq/WkdSsJjnfEKgjDJ+HEs2uHaE +eV54Q6mPpjIOF7QFah+gIMpfWdxuqzJ2fev6zu1LgYTZ8Av1bGVsWCXDt8+C +AuuxMOuvBir4O6DpDN9cCQzv4A8pjVmJl6raWW4lxcz/giR3Yr0qHtzv/trG +pAjEnimfpcbU8ENVYHF7XQHIJpVsMTDQwEjVdz2iwvmQoW60RHynJh4deREq +G3AbnsiYr/5xTgvjehbprKzNA2PZ+lTtTm08YhFu/mMiF0R4bhzaHq+D55G7 +T83qJsjHKZi6KeviclGNPpv4HBBQ8ih3aNZF48nasrbb2aDFkS4J89RDa5QS +9LidCQd7xRpsuPSRUt70qOXcZRj7cdrJOkMfLbd0LTb6cBGstJuuWGuuwnmn +nuoan3R4+MPk9/TzVbimL6nm4edzEKSh9+6l/2pUPNv+Rz4uBTijfh1uAgbY +LLpngY9tMqxnS20SvmGA5XfTc18+TISVsaeO1BsaYt3N3fEnMo+Dmr9RrdI7 +QzRbXvgiJT0O/B/uOl56YA0mH0cHN5VoqL3e4Tex3AiPcLXqye0Ih5+356e1 +K4ww+dMlYVWHUNihVCBwZZMxiuyMe9zLdxAm1NIM7o4bo/rX+6cj+/fB/dzf +nyaTTFAzVPpS5fQu2LZOEU3kTVHQdmWRXYcfrNiXWKlVZ4phtSGdEbzb4ex8 +wOrkelPceWrh7+gZH+A+b0kPNJqij01fTfJ3Hxgq571zvdUUr6+X56t96QNV +XMczxF6bolxvk9bpLB/Ylh4bNvXVFAnyRU+NkQ9kVIevfijIweG2T1upYS9Y +vngvvcmFg+3SXK5/RTwgd21UxLgbB8djVAbip9xBL+rs2jQPDmb61GjL9LrD +5nHqTdd2Du5LDHoYW+QOJzonZ3fs5WDWSF2yxiZ3mLkRYxERx0EhFcvGnynb +4J1J2uu8Ag6KEbVXpkk32BWam2ldzMGY7J3CD4TcYKq4zH+YYsYH33maNuUK +YmTXtG45B/2zchaGPnEFW3452Qd1HHz4TESJN8QVajry/F6/4WBAsOAZh2YX +sBG5r3m4i4P9AoI5KnddoMuqdUrqPQdv3TvsIHzNBX5WfU/y+shB1b/7fReH +uIBmjk7Rv0McDHYVWPxEwQVq3pkfPj3CwZDkgA+kIDPfsq2gPc7B6ZFdU8lT +zhCQGPry0CQHt6a86Tz7zBl+1p24IjnDwTV8/EkrK50h/telHVW/OBgpG+z8 +KtcZlqy6o+E5x5zH3yjD06nOkLWvanJ+noPKhXks50hn+D8GiTbX + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fl0bAHARka0oW5ZnxoPsW5Hlcd9UhEpkzZpQWqQkkb1EqSgqlUjJ +W9aZsmQpQpa0qCQqtCheWb+yVfLN+9dcv+s6c+accy8zQ/jud/Dn5uLiWrCA +i+u/61RvayM7OdcsqVRh85/taNaRJRVu3hUPqtuTO91E5AGXv/CV6joPky33 +dZaLaMHhLflvebpuwANJt8kBYTNYOip5fvbtXZhNVCu/JbwZ+mo27//5th7s +PQWXdQp5gSV7qGfi7SvgvE7bUyoQBLNvDS+Mv/0M2p8pd5iLgoa1/+S+vPED +ggM6E0/zpYBsX+U3X4058Ijz30+1XoRle73zF63lwS1Ryf4FOdfgvK5l9WYn +fjxU9cZrj/0N6M7QqZtYIow89YN5O91uQXJuzAtu6aUYS95XHHe6DZLpX06m +XRPHNflXxYpH80FKvez4TJ44xuie0SydzgeZ+hMxnpQ41h8psyrjKgD5cdVQ +lQZxzOWwQm+LFYDSxmCf6kFx9Ls5mu5gUAD6C+cMvugvQ+uKvxOlkQVgd0ii +X+/JMmw7dLE2n7cQEh2tzV5NLUdfv6QiNn8RyJQ+l+FeIIH6MV1pJ5cUQbG4 +47SuoARyhY5tGZQqgs5XXtQ5BQmcK8+1TVMtArb9IdJ+gwT+28Ovmm1TBPWb +svnaL0tgmFlJ5ZnkIpiznHz+zFQSszojttbxF0OIUY53a7wUNojPx28dLwab +6yI/bU9LYe0/1n/vTRUDuSgy6fkFKZTLLPgpMlcM7R3O9OvbUrgu1cO+VKAE +tIKFeHqfS+GxJM9HNWQJDOaF5f1PRhq9BaLXNG4tAY9lm0dW3JNG2q+2poAu +Af2j1XFZNdK4eg9HzL2iBBZ/XilBNEmjidKK9wsflEBlCQ8od0vj6FBgk1VL +CUjYVqbqzEvjnM77+VO9JdAex1613lYG136oDOHhpWDd2K+IoC8yqEe2iu/W +oiB8Q7rao2EZzI/ycPmgQ0FxjuY78SkZ5AnMHbPVp0DK0ceokn8FejYFySuu +oWD4/uNpHq0VSF3tC6XNKUiLTz10+cgKrO6VltjsSMHn5cpBjcKyGLsvLjUx +jALJ/bVykpKy6BS07ERuOAUbW1yfBbJk0fvstVcPj1JQHpGsIaovi10JAge+ +x1Bwqm98yM1VFldW3W1iJ1Ggd6d659gNWdxQ/+V/khkUxJnab5dZI4cnL97z +XlBOwQavrP8ZWshhUzkQ4xUUiMR+P+a0UQ5rOdzN7yspyGxIyEv1kUN5D/26 +Ow8ouG9T9Z3vJDP+e0Uw6zEF466Kh390y6GVcj9/+GsKKiKCFy3tl8ODwW1a +Bm8oiM58kKE1Kofp7WGc8U4KhD66VAdyy2NK5g4J93cUqOw8zfVRTR5fPkmv +FfxEgVfo5KmnR+WxwK/OuHuEAqVLFrJDCfIokvJkmf/Yf+eXUrQoVR7jG5f2 +jIxTEPFHtd0iVx6dCjqMpn5QcOGY1/LKp/Ioc6pN6/MsBU/PNWffklPAqEh3 +LxVeGoyLL5dG1yrgwb0tdYHSNKx7+3xutEUBvYt7bGNlaNjMtdDK+5UCyglc +N0hfQcMOh6Bu+KqAdqHVGqVyNFgeJWJieVnIW+2R10HQEKwwddNcnYU85V2q +Gao0TN5LbZnVZqFhW0/fcTUaIjaoj9CrWJg0KvEnSJ2GhAM+BqQZCwsX9Owy +0aThSsOTFm57Ft7x+ahQpkND487skYbDLPScWLRTw5AG6z9GYpFHWejTKlU2 +xvh5aofBqlgWum47FkytoaG7UiA29yQLG+3W6aoZ0zAqeEgsIZOFXYVFA39N +aQi5LmLIyWGhpVFdURGHhplVd9wnb7GQy3W2382MBh6v3lz/EhaWcb+8nQ80 +SFEbDC3rWRjK9zpN04KGa+u+uP9tYqH1zKvxZsZkd1RseRsLfXWG673X0qDJ +fa9V+Q0LAweCWhLX0WDhKOexaJCFtwQnAyotaWgerIitHWbht7JfEWBFw8Yo +h1thEyy8nabL38DYJS9xdOAXC/tarVPrN9Cwd2YitkWYwFesfv+bNky8DgRI +fBMjUL6afixvSwP/0LsCHikC1edO6V1ifOt9Q6cZSWCaJmEQs5GGQ45r9nqo +EFjph89HGVs8K1wQoUGgUYf2YfdNNPQ+vKBRZkDgzPaNM+qbaSg0XFz/yoTA +vcOfXqcwjqCiXcaRwOwTUvXjjCVu7IxXtyWQh7DovmNHg12CUVeON4G1D3L4 +ZrfQIP+3aF+tH4FXzZ2S19vTMHyY5OkJJHBV9/6VKYyTdglqSR0icFdkW7G0 +Aw3On2IaVocT+ODvicvbGLO3/XTdGk2gXlxWdgbjOtueY2eTCBxM6eUS2krD +2UZ76cIzBEodTvQ0Z+zBaSpuPU+gieiZrhDGauXG6wYuEbjanT54k/GsVkn3 +wmsEPhav0Ghn3PKP4n7yBrPfgu2LfjG+yMpYiP8QeN8ulIdwpMHvstAVz0IC +Db+UE+sZ64nFaR+lCTzAPewbwJgrebIxo5zAIq73zccZP+fZva28msDRARv7 +64wzI3vHXtcRGH2Eh6uS8Z5Jh4SJxwQ6rnzW8ZyxcVCzjGgbgTfJA+2fGPMP +mFAa7QTaWFX+mGDc6U2tt3lDoJ1aMMwzzu1iv9/5jkB38e2lAk40HLS/HJzQ +x+x3zmXrUsb4RJjvZj+BGy8QchKMRdbGX637l8AFJsliUox7qqd0ekcJdJr3 +XSXJuHDVnqbfPwjckBt2TJxxRFGfu/QsgZ6ZGVzCjDcoO04Y/CWQd/HFQh7G +EtktJxx5SFSqxaRpZj39khzZg/wknjHdnT7I+G4qTacIk7iL7n/ZyThWQNmq +SIzEul/x5vWM7eKvfHgiSeLgDan+fMbyv0UODsqSKPApvCqV8XDIsUV8JInR +GUcfhzCuGp7OVFRh5nP9wevIOMl/r565Bomi7hWRuoydez82e+mSGJiQpSbE +mO3i5BlpQGJCQOySfiaedRvMkiqQxJtdFxKT/8uXR3fl3qwnMfXNURn3//LF +WOXe/2xI/O39aFDlv/xQX9Kr6UTiP2pvjSuZfJu6JhOnv41EI3WyJ5rxT1El +tpE3icKCTW/NGY/+MNq9LpDETm7v7lomn7/7rxO2CSJx4beZTxGMB99upuxC +SJzirLbUZ/y5esfUtigSJQO/sjOZ+ujTDLrsE0/ilwbunI2MP2QfMQ1IJJHK +WR75i6mnzmNn4g+cI3FlQKjDZsZPbCtEkm6ReHQpdamTqdfmB4/oM/kk0rv4 +FQ8ybtR+6phWwpyHjdQyQcYPxT9dyaokcVvaE7XVTL3ffb9YpewZid/Ypy12 +M/3jyh4v+DxJ4qsbYz2uTD+61LPr88AvJj7OZzXa1tOQbheSMDLPxOdFx6gx +47P6SW0zAop4wGTwpRjTz+J/0y6i8opop62rnmvO5Hcyb7CppSJy1lv93MT0 +111zouIWtoo43m7+7yUTGgL2y5RbbVHE0A5Pnz6mH/ts1f7jsE0RDUrzuwKM +aHBc4ZYUGKSIhX9PCLoa0GBaUHj94kVF1IvytW3UpuE9qyB7/VXm/rRbrya1 +mHy9eCfrZ7YiXhCQNFViXBGXl+lwRxE/Wmfej9Jg6tX1eoZIjSJmBH7bt5x5 +/6jypqee+KSI0/32Rz4y7ycJ76OxhzXYuO/amgtDS2ko6wiPUdJl4+RTocHu +Jcx6bI5Ed6xmY3jzfoNmURrOrw6N1AM2hgiwW68K0yAstP/IqD0bRePYPRoC +NCys9A0OCGOj0POIsLF5CibEbHyc69n45c2ddX++U9C1l2zf3czGjFlhldQh +CuqafkHMUzb+2+HQSvxLQWpEgcLtTjYGdb+xN/tGgc5nob7ZITYORBqe8/hI +QRD9wvOauBKq61k91OqgYMjOyb3fTwltfONP6VZR0H/ax/ngImWkZRqqx5jv +naAhDVJHSBkHToYVykVTMG01OzKyRBktZnq/WkdSsJjnfEKgjDJ+HEs2uHaE +eV54Q6mPpjIOF7QFah+gIMpfWdxuqzJ2fev6zu1LgYTZ8Av1bGVsWCXDt8+C +AuuxMOuvBir4O6DpDN9cCQzv4A8pjVmJl6raWW4lxcz/giR3Yr0qHtzv/trG +pAjEnimfpcbU8ENVYHF7XQHIJpVsMTDQwEjVdz2iwvmQoW60RHynJh4deREq +G3AbnsiYr/5xTgvjehbprKzNA2PZ+lTtTm08YhFu/mMiF0R4bhzaHq+D55G7 +T83qJsjHKZi6KeviclGNPpv4HBBQ8ih3aNZF48nasrbb2aDFkS4J89RDa5QS +9LidCQd7xRpsuPSRUt70qOXcZRj7cdrJOkMfLbd0LTb6cBGstJuuWGuuwnmn +nuoan3R4+MPk9/TzVbimL6nm4edzEKSh9+6l/2pUPNv+Rz4uBTijfh1uAgbY +LLpngY9tMqxnS20SvmGA5XfTc18+TISVsaeO1BsaYt3N3fEnMo+Dmr9RrdI7 +QzRbXvgiJT0O/B/uOl56YA0mH0cHN5VoqL3e4Tex3AiPcLXqye0Ih5+356e1 +K4ww+dMlYVWHUNihVCBwZZMxiuyMe9zLdxAm1NIM7o4bo/rX+6cj+/fB/dzf +nyaTTFAzVPpS5fQu2LZOEU3kTVHQdmWRXYcfrNiXWKlVZ4phtSGdEbzb4ex8 +wOrkelPceWrh7+gZH+A+b0kPNJqij01fTfJ3Hxgq571zvdUUr6+X56t96QNV +XMczxF6bolxvk9bpLB/Ylh4bNvXVFAnyRU+NkQ9kVIevfijIweG2T1upYS9Y +vngvvcmFg+3SXK5/RTwgd21UxLgbB8djVAbip9xBL+rs2jQPDmb61GjL9LrD +5nHqTdd2Du5LDHoYW+QOJzonZ3fs5WDWSF2yxiZ3mLkRYxERx0EhFcvGnynb +4J1J2uu8Ag6KEbVXpkk32BWam2ldzMGY7J3CD4TcYKq4zH+YYsYH33maNuUK +YmTXtG45B/2zchaGPnEFW3452Qd1HHz4TESJN8QVajry/F6/4WBAsOAZh2YX +sBG5r3m4i4P9AoI5KnddoMuqdUrqPQdv3TvsIHzNBX5WfU/y+shB1b/7fReH +uIBmjk7Rv0McDHYVWPxEwQVq3pkfPj3CwZDkgA+kIDPfsq2gPc7B6ZFdU8lT +zhCQGPry0CQHt6a86Tz7zBl+1p24IjnDwTV8/EkrK50h/telHVW/OBgpG+z8 +KtcZlqy6o+E5x5zH3yjD06nOkLWvanJ+noPKhXks50hn+D8GiTbX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06770468189936808}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06770468189936808}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fl0bAHARka0oW5ZnxoPsW5Hlcd9UhEpkzZpQWqQkkb1EqSgqlUjJ +W9aZsmQpQpa0qCQqtCheWb+yVfLN+9dcv+s6c+accy8zQ/jud/Dn5uLiWrCA +i+u/61RvayM7OdcsqVRh85/taNaRJRVu3hUPqtuTO91E5AGXv/CV6joPky33 +dZaLaMHhLflvebpuwANJt8kBYTNYOip5fvbtXZhNVCu/JbwZ+mo27//5th7s +PQWXdQp5gSV7qGfi7SvgvE7bUyoQBLNvDS+Mv/0M2p8pd5iLgoa1/+S+vPED +ggM6E0/zpYBsX+U3X4058Ijz30+1XoRle73zF63lwS1Ryf4FOdfgvK5l9WYn +fjxU9cZrj/0N6M7QqZtYIow89YN5O91uQXJuzAtu6aUYS95XHHe6DZLpX06m +XRPHNflXxYpH80FKvez4TJ44xuie0SydzgeZ+hMxnpQ41h8psyrjKgD5cdVQ +lQZxzOWwQm+LFYDSxmCf6kFx9Ls5mu5gUAD6C+cMvugvQ+uKvxOlkQVgd0ii +X+/JMmw7dLE2n7cQEh2tzV5NLUdfv6QiNn8RyJQ+l+FeIIH6MV1pJ5cUQbG4 +47SuoARyhY5tGZQqgs5XXtQ5BQmcK8+1TVMtArb9IdJ+gwT+28Ovmm1TBPWb +svnaL0tgmFlJ5ZnkIpiznHz+zFQSszojttbxF0OIUY53a7wUNojPx28dLwab +6yI/bU9LYe0/1n/vTRUDuSgy6fkFKZTLLPgpMlcM7R3O9OvbUrgu1cO+VKAE +tIKFeHqfS+GxJM9HNWQJDOaF5f1PRhq9BaLXNG4tAY9lm0dW3JNG2q+2poAu +Af2j1XFZNdK4eg9HzL2iBBZ/XilBNEmjidKK9wsflEBlCQ8od0vj6FBgk1VL +CUjYVqbqzEvjnM77+VO9JdAex1613lYG136oDOHhpWDd2K+IoC8yqEe2iu/W +oiB8Q7rao2EZzI/ycPmgQ0FxjuY78SkZ5AnMHbPVp0DK0ceokn8FejYFySuu +oWD4/uNpHq0VSF3tC6XNKUiLTz10+cgKrO6VltjsSMHn5cpBjcKyGLsvLjUx +jALJ/bVykpKy6BS07ERuOAUbW1yfBbJk0fvstVcPj1JQHpGsIaovi10JAge+ +x1Bwqm98yM1VFldW3W1iJ1Ggd6d659gNWdxQ/+V/khkUxJnab5dZI4cnL97z +XlBOwQavrP8ZWshhUzkQ4xUUiMR+P+a0UQ5rOdzN7yspyGxIyEv1kUN5D/26 +Ow8ouG9T9Z3vJDP+e0Uw6zEF466Kh390y6GVcj9/+GsKKiKCFy3tl8ODwW1a +Bm8oiM58kKE1Kofp7WGc8U4KhD66VAdyy2NK5g4J93cUqOw8zfVRTR5fPkmv +FfxEgVfo5KmnR+WxwK/OuHuEAqVLFrJDCfIokvJkmf/Yf+eXUrQoVR7jG5f2 +jIxTEPFHtd0iVx6dCjqMpn5QcOGY1/LKp/Ioc6pN6/MsBU/PNWffklPAqEh3 +LxVeGoyLL5dG1yrgwb0tdYHSNKx7+3xutEUBvYt7bGNlaNjMtdDK+5UCyglc +N0hfQcMOh6Bu+KqAdqHVGqVyNFgeJWJieVnIW+2R10HQEKwwddNcnYU85V2q +Gao0TN5LbZnVZqFhW0/fcTUaIjaoj9CrWJg0KvEnSJ2GhAM+BqQZCwsX9Owy +0aThSsOTFm57Ft7x+ahQpkND487skYbDLPScWLRTw5AG6z9GYpFHWejTKlU2 +xvh5aofBqlgWum47FkytoaG7UiA29yQLG+3W6aoZ0zAqeEgsIZOFXYVFA39N +aQi5LmLIyWGhpVFdURGHhplVd9wnb7GQy3W2382MBh6v3lz/EhaWcb+8nQ80 +SFEbDC3rWRjK9zpN04KGa+u+uP9tYqH1zKvxZsZkd1RseRsLfXWG673X0qDJ +fa9V+Q0LAweCWhLX0WDhKOexaJCFtwQnAyotaWgerIitHWbht7JfEWBFw8Yo +h1thEyy8nabL38DYJS9xdOAXC/tarVPrN9Cwd2YitkWYwFesfv+bNky8DgRI +fBMjUL6afixvSwP/0LsCHikC1edO6V1ifOt9Q6cZSWCaJmEQs5GGQ45r9nqo +EFjph89HGVs8K1wQoUGgUYf2YfdNNPQ+vKBRZkDgzPaNM+qbaSg0XFz/yoTA +vcOfXqcwjqCiXcaRwOwTUvXjjCVu7IxXtyWQh7DovmNHg12CUVeON4G1D3L4 +ZrfQIP+3aF+tH4FXzZ2S19vTMHyY5OkJJHBV9/6VKYyTdglqSR0icFdkW7G0 +Aw3On2IaVocT+ODvicvbGLO3/XTdGk2gXlxWdgbjOtueY2eTCBxM6eUS2krD +2UZ76cIzBEodTvQ0Z+zBaSpuPU+gieiZrhDGauXG6wYuEbjanT54k/GsVkn3 +wmsEPhav0Ghn3PKP4n7yBrPfgu2LfjG+yMpYiP8QeN8ulIdwpMHvstAVz0IC +Db+UE+sZ64nFaR+lCTzAPewbwJgrebIxo5zAIq73zccZP+fZva28msDRARv7 +64wzI3vHXtcRGH2Eh6uS8Z5Jh4SJxwQ6rnzW8ZyxcVCzjGgbgTfJA+2fGPMP +mFAa7QTaWFX+mGDc6U2tt3lDoJ1aMMwzzu1iv9/5jkB38e2lAk40HLS/HJzQ +x+x3zmXrUsb4RJjvZj+BGy8QchKMRdbGX637l8AFJsliUox7qqd0ekcJdJr3 +XSXJuHDVnqbfPwjckBt2TJxxRFGfu/QsgZ6ZGVzCjDcoO04Y/CWQd/HFQh7G +EtktJxx5SFSqxaRpZj39khzZg/wknjHdnT7I+G4qTacIk7iL7n/ZyThWQNmq +SIzEul/x5vWM7eKvfHgiSeLgDan+fMbyv0UODsqSKPApvCqV8XDIsUV8JInR +GUcfhzCuGp7OVFRh5nP9wevIOMl/r565Bomi7hWRuoydez82e+mSGJiQpSbE +mO3i5BlpQGJCQOySfiaedRvMkiqQxJtdFxKT/8uXR3fl3qwnMfXNURn3//LF +WOXe/2xI/O39aFDlv/xQX9Kr6UTiP2pvjSuZfJu6JhOnv41EI3WyJ5rxT1El +tpE3icKCTW/NGY/+MNq9LpDETm7v7lomn7/7rxO2CSJx4beZTxGMB99upuxC +SJzirLbUZ/y5esfUtigSJQO/sjOZ+ujTDLrsE0/ilwbunI2MP2QfMQ1IJJHK +WR75i6mnzmNn4g+cI3FlQKjDZsZPbCtEkm6ReHQpdamTqdfmB4/oM/kk0rv4 +FQ8ybtR+6phWwpyHjdQyQcYPxT9dyaokcVvaE7XVTL3ffb9YpewZid/Ypy12 +M/3jyh4v+DxJ4qsbYz2uTD+61LPr88AvJj7OZzXa1tOQbheSMDLPxOdFx6gx +47P6SW0zAop4wGTwpRjTz+J/0y6i8opop62rnmvO5Hcyb7CppSJy1lv93MT0 +111zouIWtoo43m7+7yUTGgL2y5RbbVHE0A5Pnz6mH/ts1f7jsE0RDUrzuwKM +aHBc4ZYUGKSIhX9PCLoa0GBaUHj94kVF1IvytW3UpuE9qyB7/VXm/rRbrya1 +mHy9eCfrZ7YiXhCQNFViXBGXl+lwRxE/Wmfej9Jg6tX1eoZIjSJmBH7bt5x5 +/6jypqee+KSI0/32Rz4y7ycJ76OxhzXYuO/amgtDS2ko6wiPUdJl4+RTocHu +Jcx6bI5Ed6xmY3jzfoNmURrOrw6N1AM2hgiwW68K0yAstP/IqD0bRePYPRoC +NCys9A0OCGOj0POIsLF5CibEbHyc69n45c2ddX++U9C1l2zf3czGjFlhldQh +CuqafkHMUzb+2+HQSvxLQWpEgcLtTjYGdb+xN/tGgc5nob7ZITYORBqe8/hI +QRD9wvOauBKq61k91OqgYMjOyb3fTwltfONP6VZR0H/ax/ngImWkZRqqx5jv +naAhDVJHSBkHToYVykVTMG01OzKyRBktZnq/WkdSsJjnfEKgjDJ+HEs2uHaE +eV54Q6mPpjIOF7QFah+gIMpfWdxuqzJ2fev6zu1LgYTZ8Av1bGVsWCXDt8+C +AuuxMOuvBir4O6DpDN9cCQzv4A8pjVmJl6raWW4lxcz/giR3Yr0qHtzv/trG +pAjEnimfpcbU8ENVYHF7XQHIJpVsMTDQwEjVdz2iwvmQoW60RHynJh4deREq +G3AbnsiYr/5xTgvjehbprKzNA2PZ+lTtTm08YhFu/mMiF0R4bhzaHq+D55G7 +T83qJsjHKZi6KeviclGNPpv4HBBQ8ih3aNZF48nasrbb2aDFkS4J89RDa5QS +9LidCQd7xRpsuPSRUt70qOXcZRj7cdrJOkMfLbd0LTb6cBGstJuuWGuuwnmn +nuoan3R4+MPk9/TzVbimL6nm4edzEKSh9+6l/2pUPNv+Rz4uBTijfh1uAgbY +LLpngY9tMqxnS20SvmGA5XfTc18+TISVsaeO1BsaYt3N3fEnMo+Dmr9RrdI7 +QzRbXvgiJT0O/B/uOl56YA0mH0cHN5VoqL3e4Tex3AiPcLXqye0Ih5+356e1 +K4ww+dMlYVWHUNihVCBwZZMxiuyMe9zLdxAm1NIM7o4bo/rX+6cj+/fB/dzf +nyaTTFAzVPpS5fQu2LZOEU3kTVHQdmWRXYcfrNiXWKlVZ4phtSGdEbzb4ex8 +wOrkelPceWrh7+gZH+A+b0kPNJqij01fTfJ3Hxgq571zvdUUr6+X56t96QNV +XMczxF6bolxvk9bpLB/Ylh4bNvXVFAnyRU+NkQ9kVIevfijIweG2T1upYS9Y +vngvvcmFg+3SXK5/RTwgd21UxLgbB8djVAbip9xBL+rs2jQPDmb61GjL9LrD +5nHqTdd2Du5LDHoYW+QOJzonZ3fs5WDWSF2yxiZ3mLkRYxERx0EhFcvGnynb +4J1J2uu8Ag6KEbVXpkk32BWam2ldzMGY7J3CD4TcYKq4zH+YYsYH33maNuUK +YmTXtG45B/2zchaGPnEFW3452Qd1HHz4TESJN8QVajry/F6/4WBAsOAZh2YX +sBG5r3m4i4P9AoI5KnddoMuqdUrqPQdv3TvsIHzNBX5WfU/y+shB1b/7fReH +uIBmjk7Rv0McDHYVWPxEwQVq3pkfPj3CwZDkgA+kIDPfsq2gPc7B6ZFdU8lT +zhCQGPry0CQHt6a86Tz7zBl+1p24IjnDwTV8/EkrK50h/telHVW/OBgpG+z8 +KtcZlqy6o+E5x5zH3yjD06nOkLWvanJ+noPKhXks50hn+D8GiTbX + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06770468189936808}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06770468189936808}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993912823429037*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2de50b0b-d1c8-4b50-a623-ffabc26252e7"] +}, Open ]], Cell[CellGroupData[{ @@ -4948,18 +11656,78 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"01995149-3665-fe4e-b326-b20429031afd"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"52cff8eb-0c77-c944-a54f-e282b00ce766"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2268898040234828`*^-168\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 45, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939128234707527`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"467b5ab0-df8b-4c77-96e3-3fbc41fbdb6e"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.086112343103793`*^-171\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 46, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939128234797*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"6d57dc7f-7e35-49f9-ade5-233200d34727"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.614881613441392`*^-175\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 47, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912823488049*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"36b49f2a-dd2e-4a6e-8689-a1c810e48d37"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 48, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912823497117*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"eef18186-40b7-4517-a6cf-66287c13278a"], + +Cell[BoxData["10.979348807435494`"], "Output", + CellChangeTimes->{3.9939128684524803`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"a72235ea-c278-4c4b-8a0d-5f5a0b03f884"] }, Open ]], Cell[CellGroupData[{ @@ -5026,27 +11794,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507468132763`*^9, - 3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\ -062a3c04ed96"], + CellChangeTimes->{{3.9918507468132763`*^9, 3.9918507511809216`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cb5a1193-7562-6446-a279-d9f6295d156e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.429665248484887`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 49, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99391286849113*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"cd4be699-835e-4fdf-aff1-bf73ba0ae72f"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566b0ad4-7f4e-b04f-8294-646ce1913fac"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.144566578191715`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 50, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912868500444*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"c8ff25c9-327c-4e1a-8066-aa12efab5a6c"], -Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5401151650429164`*^-215\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 122, 51, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912868509254*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"dc79b4c1-ba6d-40dd-927e-87ceb14d1143"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 52, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912868516724*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"f8a24eb2-35a5-4c6b-ac64-e0d06aae5ce5"], + +Cell[BoxData["1.043642076744126`"], "Output", + CellChangeTimes->{3.9939128763961153`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"e1e7f64d-1f35-46bf-b9e1-c8f758ec5dc9"] }, Open ]], Cell[CellGroupData[{ @@ -5067,8 +11880,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5113,27 +11925,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185075434021*^9, - 3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\ -3382e7679ba8"], + CellChangeTimes->{{3.99185075434021*^9, 3.9918507570104733`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4cd45900-7eb0-6b4b-830a-a339e8117392"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.429665248484887`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 53, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912876441674*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"727d1b51-a9ea-41ee-b982-ef9a220f49a4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.144566578191715`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 54, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912876449923*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"633d6728-2a59-4d8a-8332-eb304fc18479"], -Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5401151650429164`*^-215\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 123, 55, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912876458996*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"24b4adbe-8cc2-4221-9ebd-0aa560f47669"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 56, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912876466322*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"3477e4cf-50f0-464e-830c-2954d0b6526e"], + +Cell[BoxData["34.44542154904611`"], "Output", + CellChangeTimes->{3.993912883731399*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"4fbb24d6-9445-4935-beab-f3a1ccbf85b1"] }, Open ]], Cell[CellGroupData[{ @@ -5154,8 +12011,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5200,27 +12056,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507598219967`*^9, - 3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\ -2462b23d6249"], + CellChangeTimes->{{3.9918507598219967`*^9, 3.9918507622107697`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.429665248484887`*^-206\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 57, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939128837728567`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"4ac76e19-412e-4984-9ad7-1e72e97d133e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"61220452-df6a-154e-8b5c-fecd0ab287a1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.144566578191715`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 58, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912883779901*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"c623e4ca-e9bc-44dd-995b-396e83eb32c3"], -Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5401151650429164`*^-215\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 124, 59, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939128837869596`*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"2c582c68-12c0-4305-bd5a-5244bc00881f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 60, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912883793198*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"6ca61102-39be-470c-b1d5-8600f9ed1018"], + +Cell[BoxData["6.844532216223904`"], "Output", + CellChangeTimes->{3.9939128880536346`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"0fa7ae1c-1fb7-4d80-b3e3-f3af49744391"] }, Open ]], Cell[CellGroupData[{ @@ -5229,19 +12130,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918507652122154`*^9, - 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ -168ec8f367e1"], + CellChangeTimes->{{3.9918507652122154`*^9, 3.9918507685850487`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +Cell[BoxData["0.06796947920410033`"], "Output", + CellChangeTimes->{3.99391288810847*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"c97b39ed-67cf-465c-98ca-c17e9acf450a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9}, - 3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\ -e661a25a7ba1"], + 3.9919245563167305`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ @@ -5262,10 +12167,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ir", "*", "Il"}], - RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ -c74d-891b-10a6d009e34b"], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[BoxData["14.989142069903288`"], "Output", + CellChangeTimes->{3.993912888124988*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"3756d335-df57-4dc2-90b1-bf8a5d08f0f7"] }, Open ]], Cell[CellGroupData[{ @@ -5273,10 +12182,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ -bb01-e9142212274d"], + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[BoxData["3.1638054006625937`"], "Output", + CellChangeTimes->{3.993912888136283*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"b5ceb94d-52ba-4258-aa08-2c3a6e29fd25"] }, Open ]], Cell[CellGroupData[{ @@ -5284,10 +12197,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ -cb9a-bc4b-93f0-a7873f982a23"], + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[BoxData["47.42272863205891`"], "Output", + CellChangeTimes->{3.993912888147264*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"5f5f5ed9-9cdb-4b21-b891-7ba12e6269b2"] }, Open ]], Cell[CellGroupData[{ @@ -5475,10 +12392,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ -b13c-0185de64c37f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[BoxData["0.005648277221240992`"], "Output", + CellChangeTimes->{3.993912888162383*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"eb894338-cd7e-4cd3-9375-0729379d9f89"] }, Open ]], Cell[CellGroupData[{ @@ -5490,18 +12411,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"731f0e35-\ -7798-8b45-a769-075ac4b3983f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], - -Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[BoxData["11.791985559233005`"], "Output", + CellChangeTimes->{3.993912888278873*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"8feb67b6-ccd5-4179-802e-13ab55f4d62e"] }, Open ]], Cell[CellGroupData[{ @@ -5691,10 +12608,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ -9ccb-23aebae2e6d5"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[BoxData["0.02064805104764801`"], "Output", + CellChangeTimes->{3.993912888293233*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"2861d586-5c82-44c8-bc1c-6ccbb405c7c8"] }, Open ]], Cell[CellGroupData[{ @@ -5706,18 +12627,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"e11d7eb8-\ -00a8-f540-98a0-89164ac4bae9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], - -Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[BoxData["6.1674467444074805`"], "Output", + CellChangeTimes->{3.993912888411223*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"12da8605-732c-4503-819a-26d25a95ca80"] }, Open ]], Cell[CellGroupData[{ @@ -5808,10 +12725,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ -1ee89e798d8f"], + ")"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[BoxData["0.08103755887966854`"], "Output", + CellChangeTimes->{3.9939128884215717`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"802fe896-ba18-4dc2-bb3e-d4a93d048b6e"] }, Open ]], Cell[CellGroupData[{ @@ -5899,10 +12820,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ -f30d036fcdd2"], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[BoxData["0.9189624411203314`"], "Output", + CellChangeTimes->{3.993912888431797*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"29b81598-47fb-4ff8-b2f6-b33977e1a7a6"] }, Open ]], Cell[CellGroupData[{ @@ -6023,10 +12948,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ -7240-acd2-307af56b44db"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[BoxData["0.0744704729304928`"], "Output", + CellChangeTimes->{3.993912888444821*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"13f3204f-40c2-41f4-81a2-2894ff874891"] }, Open ]], Cell[CellGroupData[{ @@ -6088,27 +13017,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\ -af0307420662"], + CellChangeTimes->{3.9918507910247746`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b82c1933-5313-1d4c-a858-68be8f118333"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2134355719937444`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 61, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912888459671*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"c033335d-a63d-4764-af37-0e2c9653adca"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9668106511679415`*^-208\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 137, 62, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939128884671717`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"e252c9b9-9d21-4ad6-9bd2-afc38aaa5591"], -Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.253755900217599`*^-213\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 137, 63, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912888474519*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"450d629d-c8ab-450d-95f2-8b680d64b5e1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 64, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912888482201*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"55fba11a-16ee-41b6-b6c1-3dd2f22fef62"], + +Cell[BoxData["11.791985559233007`"], "Output", + CellChangeTimes->{3.993912892657148*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"4e1284f5-ca8b-4f4a-828e-42c8e6b5ad61"] }, Open ]], Cell[CellGroupData[{ @@ -6170,27 +13144,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\ -34313c6ec04d"], + CellChangeTimes->{3.9918507936164455`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2134355719937444`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 65, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912892699357*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"53367f91-0f4e-4b6f-bc17-4bd5d79a8240"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56712e4d-1aa7-524a-8254-bcfd8978eea0"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9668106511679415`*^-208\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 138, 66, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993912892709462*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"a25ecd0a-d4bc-4803-ada0-243bf05c502b"], -Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.253755900217599`*^-213\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 138, 67, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939128927167253`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"645c7b69-9588-4ce4-a9dc-16152940f7cd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 68, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939128927257643`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"346c8deb-0a1a-4358-a1bf-76bda3aef759"], + +Cell[BoxData["6.167446744407481`"], "Output", + CellChangeTimes->{3.993912896760435*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"7d30887b-3f99-486e-9c53-c64d503ba3ab"] }, Open ]], Cell[CellGroupData[{ @@ -6248,489 +13267,395 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\ -ad38cf07d634"], + CellChangeTimes->{3.9918507961174965`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9c6ce535-b42f-3c43-a89e-eda48c04121e"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC -MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 -5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX -nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v -yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi -sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG -tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W -tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw -WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq -Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz -IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A -nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc -Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td -rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 -63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp -CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el -jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD -f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA -eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb -uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa -UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au -6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 -BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ -5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX -XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 -jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO -JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme -IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG -gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ -9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ -ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL -bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD -pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN -ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 -ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j -6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE -iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k -d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz -+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ -6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C -2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K -wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 -xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 -9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 -OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm -yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj -GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz -mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W -ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 -pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu -KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH -65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD -bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ -LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW -2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx -bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU -E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 -7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 -5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 -brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT -OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o -Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL -hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl -D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm -v/odiPr3KLwBMhrzH2bRmaY=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-14.8518, 0.65382, 0.693802, \ -0.00448812}},ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\ -8b4ad9ffca61"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk01dsXAHAZGmSKTBnKGErpmiV7i1KmVBRCuu79KolCEqJ+RYNIUvIe +USHdREoS6pnyJEWF916v9DXPRGb35nfeH9/1XZ911tpn7332OSrMwD1sfj4+ +vj7y/fc/8WHD2hdNHyyUXqfbK26kwWIky5BpnQf88Wcv/Gc6wyhZ3boc6jdo +rFcidmK9Xyyi/wasCuKslIkLw6KrhawbgFYpql9NfLlWriKa8xGG796pVCF+ +2XTiDpfRAjf22GmpEw98qY88XfY3cLxKf2kSr+pWOzBl9RW4M4PWOsR2o5Gm +wQ3fgd+DntMlfs0dWB7GaQfx+pQ1DOLWc7IRxQGdYBsvWWxEPLLYemCC0Q1X +p53KNhMvvnrcTX+6B/KYe/UsiZVXpNedKOsDCb1V0jbEjgpTOSNWQyCfMaXr +TExlqsroLh2B1zqizAPE0Rq7Yo42jEL7UL+QD/Hfss2bQjhjkGgxkxZMzHL3 +O3Lj6jjkTOkkRhL/SOO7+zTgJxgZaf6MIV6qqisxxpiE5PGwpb8RJ7OqbSSk +p8Cl9WNpFvGaB27RG6enwE986msBscn62JFjZTNgnX3/+J/Eh42+NwxYcSFP +7FHLPPFE2ElBYU0eOEuHLhbWo+Fs2XJz7aW/IPe81AM54tto8si3YQEKit4a +GxOzsuusgziLMGDQMuU0Maf2Bn1OgR+/RLzeHkf8o9cr8vpVfqw6LUOlE0fq +TD57EiCAW1o8J6qIkwtU1EYZQrjGJ3CX1CYavjQNvf51Xwgrzg6d0SJeM/7C +XUx6MR4RclK0IM4zcEzSnV6MFc5NuX7ENS/DF/mXLcU+kw6+t8ST1Z+/91mJ +oKRKbf5vDBok7UUkIl6LYHnwbnxJrNdsjaKmopjffc7lb2K/rueZmzaIIc36 +KiynT8Nx/ga9LSIS6NRWeTeduFs1fyxmagVOJlf9r9KA9IeqX9aoL0ni9e/q +I+Z/1KMid0ISYx06M8UNSb76q/dwBiVRudPjw0Fid6vEpx9oKTS5UrN/sREN +jT5BwbLvpPHK9+Nr/Y1paHuQEOe9VAanljP1fyceGuTcf7hNBrW+eVXXEwuH +dH7eXCGDTyTjAteZ0GB9wdnA+7ksenOUZseJS7OMJnMz5PGS2Ifm38xoyOqe +CzULUcJfmrnvHSxo2OFysS34sRI6PcjUukw8VCO1/XGPEuq3GE/XEBtkrZde +46aMae57R7cA6SfT65mQxWoMqiixM0QaxkfpU33n12BOgcZL0600SB2zLnrm +oIrhEH0xdTsNPVnCh538VLHIyfBgJ3HJ1yaF4VhV/PRZ9ZGuDQ0e9p7nNStU +US7oZUY1cda60D2pDDXUyj/KndhB9h948CNKVh032hVdOmZHg7Pvcl3bdg0U +dBKWLnaiAUJdGPt5GqjjGVkpspsGnZgMY5a8JtZmOLf5EPPd198atVsTI4t2 +HZHaQ8PjtgP7n1Zq4oKz/JtTe8n93Jd3btW9tXjyqGeqyz6Sn7VD6wBTGwXt +ndvZHjTc35vy73SUNlZLFufUEycw22nB37VRS8/+20ZPMt9nTw4qf9ZGYeNN +d+aJV5Sn8+210sG0tHuBtw+S+dEf0SlTW4cqLp77e5k0KKhei47rWo8KvmnH +vhyhofzKhPYsvy4efB+/br8f6cdPt2ZKRRerJt8FNhPfqVHX3uqli/um98U1 +HaVB1bf008xfuujO/0a88RipN69bg3q3ATNTxPZ3n6BBSUGZWuOmh9yN09qn +wmlYnx0iMg8MjP500o0RTwOTdX5S15GBHV/WUbXEt9WS2rw9GBhXsW/APYEG +gXsFT2rDGHiiwsAt5hq5b3cGnJMKGfgr1+jT9+vkPb3tna6tpo9rOm+aPbpF +zjfOfoPrYgOM5FzXS8uk4W6QutPzBkP8Ea++rv85DU/bKuLkvhqicIaZF6eY +hipbzz8jBg0x+ub0Gv8XNHSp3rLYKmyEgq+yXcZKaND8vES30cYIX1glneEv +J/dZf3BZf5URMn0bWqCKnM9EYbXiS2O0tldXWNtIQ1MoGF/INsUHRx1LHw3Q +oOLV4ujpvwUDOk7Fh65tB/ZCcb7SacQk6pb3qcPtIDtYskSWuRWVHYsznUva +IUTf/GuSjjVep6vDlop0AHOYWyc1sA0vZl4RFvDtgMdbg5dkNNrg6VutPRrN +HZA14VeZl7wTQSscDaw7YcZS7n1NtB1aOMtIur3thG98AmPthxxwINXjVLBr +FwQoBiaeU9uFdAEuiunvgvwjdRU3Y5xwhJWzUjO5G8J/yk+vO7IbB/pe+odj +D0zabt/358E92DV/95OqcC+YHrhu2b17L0pkCIcMfu+FT/LpfjX6znhBs1JB +urgPVuWcL8/VckEHnnzZbH4/lNA69o6i+3AgKfvCzQcDoNz8wzd0eB+erUyL +m+EMgv7N63n36f0oUJe32rF1CNIFf25IqnbF4LfQXP5rGIotN36JeemGsYlz +/ZV7RuG28ZUVXI47HpevTnnm9gMa/82O1b96AF/5PxZjLh6D5w5p6sfPeqDv ++lStLfVjMHZsL18AyxPHcqMaUi+Nw+R27cMjVl7YYyA/dWPnT8gd/mcm2Ogg +Vn+cbpVUmQDXu9k+niLeuOrkQsTdkQl49tTuoMBFb/R3S5PJa5oEU4VPs5dn +vTE6UNKjPWsK1GjfLx+PHMIPUQ93TARPQ9fyo7vSOg9hTZk61eE0A00Jjj42 +Lky8zj/NGJWbheSwjOUnm5ioXFKeUNk7C+WvF2Z9dvogBPalW2bPgbgHXtQv +9cGaDInztdvnwdR7JDfGgIWZ2i13e9vnISf1R7CjEQtzPDmWC53zsPLzuIWs +CQuND3dek+6Zh5Ft0825m1m4Y/SLgcXAPHm/+BY1bGWhtz07IXp8HsSmV7hJ +7mbhfp+lw5X8XOiKN1yWcYyFdWUhH1GVCwllkUdKcljo+11IXNCTC8cYKaZh +uSz0L+eefenFBfuHhctMOCxcFqR76Zg3F4RTeh6+eMxCqXhx548+XIgJchoo +LmJhqFLhp4t+XIjUVj/6vIqF8xKnfhac4oJfyjv/p20svBUZLdufyIWdYj3m +QTQLNfJldI4ncUErhk+U0cHC2mazyskbXOgJMnxc2M3CydkNEdxbXDjkmDH8 +ZIiFQdl8EjNpXHAVCg4omGNhXuBppwe5XLAJXnU8T4aNqx88/drxmgtVGbG2 +SXJsNOcMpe+r4IJ5w7h62Co2en2oSqir5IKexrt/rJTZOOAlwMup4YL8XxFW +/2qw8XmICdehnguDZt9khA3ZyEm/L2zdwoVr/JmvfPeysTTH4VlDP6l/o8ht +Bxc2hhWbeAoNcuHCgbAg/f1sTDrE0zAf4kJYkdPaBXc2VplrSWaNkPypRddv +Mdk4/rrMxvMnF/Trmaw3J9j49UbHHyFcLvx1XWO5WiIbnzpw3hqI8iAfRA/3 +XWfjlaybD1eL8eDC8ETN4xtsBDPml6XiPGDsrIkySWFj6mZ33VYJHiTw+Yw7 +3GGjZiN/osdKHmwPzPwnLI+NVjfmBeQUeKCkdMnIIp+Nh09Lve8lnqgPvCHw +hI2xlWYdzxV5cE8THBKesTFRIGXUXpkHvG/fKu6XsjH9XHUCpcKDInuF3A91 +pN62V/ds1vIgbo5fKLme5PdmkwiXmJk7cMitgY1/PA59la/FAwnBUoWuRjZq ++YVNienwwL/M9dpsKxsTRDLKStfzQE3nVqh6NxvPR1/0+mMTD+b+OvO5v4fE +l/9Hy5XBg6YYtl5BHxt/t3I2HiWOajcYMB1iY6P7+Go5Ax58uf3Zc9dPNr5o +UVzlYsSDpCUrtoUvotBM/G5shBkPyse/HQgRoLB2kV7v4s086P3GCQoQotDq +e+uqRGLzIutM5jIKSzrD534350GPd9i87QoKx1e8SE61IPnbb5PcJkWhYknq +RSngwWZjSW2QpnCVYr1dHHGiaN4+fXkKu7QtbUKQrJd+L1RQIfu5zwqu38oD +KjuvTlqNwnLzoshk4sTE09/FNSh079pYM0fcQ0mJCmpTuNrueWWFFVmXsjk8 +pEfh3nYMYmzjQekvqegeBqknw8rnMnF3P32TNqDw65sXqm3EZhXh1c0mFIZx +vUTObedBl3++8iuk0E+pPjbPhgdirhGGL7ZSuNkvqHeM2NRqh32hNYUJReHS +hjvIvMh3nM7eQWHfgsE/RcQlggWJGbYUPnTMDxgj7hyNeJBqT+F9I5mP63by +wKRWuiXeicJ2NTtuKjGzsGPw4h4KKyx7a94Tx6cV8P/PmcKNOhLuC8QdQTv1 +Ql0pzNpe2H/AlgeiXjI2x91JPof4umKJTXZ2evp5UPiH1BVOAXH86jNxXt4U +rmwQSpsjLhG2vefKpHDD5dZaRTsSb1Lm5R4WhX/bZ7wyJxZt72y0pygM7dp9 +1p3YpOFJz/bDFDbKtouFEjNfnOGhH4WaD/HINeL4e7YrN/tT6OTCvpZDXBIv +u84wgMLfPlufK/svfliX5cbjFM60tFh8IBZhFbpqB1H4a6lEXRux8a6oQLUQ +Cn9IDSkO/xffzC5WKZTUf9tnyyzxVQ25dNkwCjUMTmgL2POgWKL72YpwChPP +SLQLE7fPF9Yvj6SQscSCJUEs0hvVLhRFoajX9FMpYqNPdjML0RR2LNv8fiXx +/wE92t09 + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk01dsXAHAZGmSKTBnKGErpmiV7i1KmVBRCuu79KolCEqJ+RYNIUvIe +USHdREoS6pnyJEWF916v9DXPRGb35nfeH9/1XZ911tpn7332OSrMwD1sfj4+ +vj7y/fc/8WHD2hdNHyyUXqfbK26kwWIky5BpnQf88Wcv/Gc6wyhZ3boc6jdo +rFcidmK9Xyyi/wasCuKslIkLw6KrhawbgFYpql9NfLlWriKa8xGG796pVCF+ +2XTiDpfRAjf22GmpEw98qY88XfY3cLxKf2kSr+pWOzBl9RW4M4PWOsR2o5Gm +wQ3fgd+DntMlfs0dWB7GaQfx+pQ1DOLWc7IRxQGdYBsvWWxEPLLYemCC0Q1X +p53KNhMvvnrcTX+6B/KYe/UsiZVXpNedKOsDCb1V0jbEjgpTOSNWQyCfMaXr +TExlqsroLh2B1zqizAPE0Rq7Yo42jEL7UL+QD/Hfss2bQjhjkGgxkxZMzHL3 +O3Lj6jjkTOkkRhL/SOO7+zTgJxgZaf6MIV6qqisxxpiE5PGwpb8RJ7OqbSSk +p8Cl9WNpFvGaB27RG6enwE986msBscn62JFjZTNgnX3/+J/Eh42+NwxYcSFP +7FHLPPFE2ElBYU0eOEuHLhbWo+Fs2XJz7aW/IPe81AM54tto8si3YQEKit4a +GxOzsuusgziLMGDQMuU0Maf2Bn1OgR+/RLzeHkf8o9cr8vpVfqw6LUOlE0fq +TD57EiCAW1o8J6qIkwtU1EYZQrjGJ3CX1CYavjQNvf51Xwgrzg6d0SJeM/7C +XUx6MR4RclK0IM4zcEzSnV6MFc5NuX7ENS/DF/mXLcU+kw6+t8ST1Z+/91mJ +oKRKbf5vDBok7UUkIl6LYHnwbnxJrNdsjaKmopjffc7lb2K/rueZmzaIIc36 +KiynT8Nx/ga9LSIS6NRWeTeduFs1fyxmagVOJlf9r9KA9IeqX9aoL0ni9e/q +I+Z/1KMid0ISYx06M8UNSb76q/dwBiVRudPjw0Fid6vEpx9oKTS5UrN/sREN +jT5BwbLvpPHK9+Nr/Y1paHuQEOe9VAanljP1fyceGuTcf7hNBrW+eVXXEwuH +dH7eXCGDTyTjAteZ0GB9wdnA+7ksenOUZseJS7OMJnMz5PGS2Ifm38xoyOqe +CzULUcJfmrnvHSxo2OFysS34sRI6PcjUukw8VCO1/XGPEuq3GE/XEBtkrZde +46aMae57R7cA6SfT65mQxWoMqiixM0QaxkfpU33n12BOgcZL0600SB2zLnrm +oIrhEH0xdTsNPVnCh538VLHIyfBgJ3HJ1yaF4VhV/PRZ9ZGuDQ0e9p7nNStU +US7oZUY1cda60D2pDDXUyj/KndhB9h948CNKVh032hVdOmZHg7Pvcl3bdg0U +dBKWLnaiAUJdGPt5GqjjGVkpspsGnZgMY5a8JtZmOLf5EPPd198atVsTI4t2 +HZHaQ8PjtgP7n1Zq4oKz/JtTe8n93Jd3btW9tXjyqGeqyz6Sn7VD6wBTGwXt +ndvZHjTc35vy73SUNlZLFufUEycw22nB37VRS8/+20ZPMt9nTw4qf9ZGYeNN +d+aJV5Sn8+210sG0tHuBtw+S+dEf0SlTW4cqLp77e5k0KKhei47rWo8KvmnH +vhyhofzKhPYsvy4efB+/br8f6cdPt2ZKRRerJt8FNhPfqVHX3uqli/um98U1 +HaVB1bf008xfuujO/0a88RipN69bg3q3ATNTxPZ3n6BBSUGZWuOmh9yN09qn +wmlYnx0iMg8MjP500o0RTwOTdX5S15GBHV/WUbXEt9WS2rw9GBhXsW/APYEG +gXsFT2rDGHiiwsAt5hq5b3cGnJMKGfgr1+jT9+vkPb3tna6tpo9rOm+aPbpF +zjfOfoPrYgOM5FzXS8uk4W6QutPzBkP8Ea++rv85DU/bKuLkvhqicIaZF6eY +hipbzz8jBg0x+ub0Gv8XNHSp3rLYKmyEgq+yXcZKaND8vES30cYIX1glneEv +J/dZf3BZf5URMn0bWqCKnM9EYbXiS2O0tldXWNtIQ1MoGF/INsUHRx1LHw3Q +oOLV4ujpvwUDOk7Fh65tB/ZCcb7SacQk6pb3qcPtIDtYskSWuRWVHYsznUva +IUTf/GuSjjVep6vDlop0AHOYWyc1sA0vZl4RFvDtgMdbg5dkNNrg6VutPRrN +HZA14VeZl7wTQSscDaw7YcZS7n1NtB1aOMtIur3thG98AmPthxxwINXjVLBr +FwQoBiaeU9uFdAEuiunvgvwjdRU3Y5xwhJWzUjO5G8J/yk+vO7IbB/pe+odj +D0zabt/358E92DV/95OqcC+YHrhu2b17L0pkCIcMfu+FT/LpfjX6znhBs1JB +urgPVuWcL8/VckEHnnzZbH4/lNA69o6i+3AgKfvCzQcDoNz8wzd0eB+erUyL +m+EMgv7N63n36f0oUJe32rF1CNIFf25IqnbF4LfQXP5rGIotN36JeemGsYlz +/ZV7RuG28ZUVXI47HpevTnnm9gMa/82O1b96AF/5PxZjLh6D5w5p6sfPeqDv ++lStLfVjMHZsL18AyxPHcqMaUi+Nw+R27cMjVl7YYyA/dWPnT8gd/mcm2Ogg +Vn+cbpVUmQDXu9k+niLeuOrkQsTdkQl49tTuoMBFb/R3S5PJa5oEU4VPs5dn +vTE6UNKjPWsK1GjfLx+PHMIPUQ93TARPQ9fyo7vSOg9hTZk61eE0A00Jjj42 +Lky8zj/NGJWbheSwjOUnm5ioXFKeUNk7C+WvF2Z9dvogBPalW2bPgbgHXtQv +9cGaDInztdvnwdR7JDfGgIWZ2i13e9vnISf1R7CjEQtzPDmWC53zsPLzuIWs +CQuND3dek+6Zh5Ft0825m1m4Y/SLgcXAPHm/+BY1bGWhtz07IXp8HsSmV7hJ +7mbhfp+lw5X8XOiKN1yWcYyFdWUhH1GVCwllkUdKcljo+11IXNCTC8cYKaZh +uSz0L+eefenFBfuHhctMOCxcFqR76Zg3F4RTeh6+eMxCqXhx548+XIgJchoo +LmJhqFLhp4t+XIjUVj/6vIqF8xKnfhac4oJfyjv/p20svBUZLdufyIWdYj3m +QTQLNfJldI4ncUErhk+U0cHC2mazyskbXOgJMnxc2M3CydkNEdxbXDjkmDH8 +ZIiFQdl8EjNpXHAVCg4omGNhXuBppwe5XLAJXnU8T4aNqx88/drxmgtVGbG2 +SXJsNOcMpe+r4IJ5w7h62Co2en2oSqir5IKexrt/rJTZOOAlwMup4YL8XxFW +/2qw8XmICdehnguDZt9khA3ZyEm/L2zdwoVr/JmvfPeysTTH4VlDP6l/o8ht +Bxc2hhWbeAoNcuHCgbAg/f1sTDrE0zAf4kJYkdPaBXc2VplrSWaNkPypRddv +Mdk4/rrMxvMnF/Trmaw3J9j49UbHHyFcLvx1XWO5WiIbnzpw3hqI8iAfRA/3 +XWfjlaybD1eL8eDC8ETN4xtsBDPml6XiPGDsrIkySWFj6mZ33VYJHiTw+Yw7 +3GGjZiN/osdKHmwPzPwnLI+NVjfmBeQUeKCkdMnIIp+Nh09Lve8lnqgPvCHw +hI2xlWYdzxV5cE8THBKesTFRIGXUXpkHvG/fKu6XsjH9XHUCpcKDInuF3A91 +pN62V/ds1vIgbo5fKLme5PdmkwiXmJk7cMitgY1/PA59la/FAwnBUoWuRjZq ++YVNienwwL/M9dpsKxsTRDLKStfzQE3nVqh6NxvPR1/0+mMTD+b+OvO5v4fE +l/9Hy5XBg6YYtl5BHxt/t3I2HiWOajcYMB1iY6P7+Go5Ax58uf3Zc9dPNr5o +UVzlYsSDpCUrtoUvotBM/G5shBkPyse/HQgRoLB2kV7v4s086P3GCQoQotDq +e+uqRGLzIutM5jIKSzrD534350GPd9i87QoKx1e8SE61IPnbb5PcJkWhYknq +RSngwWZjSW2QpnCVYr1dHHGiaN4+fXkKu7QtbUKQrJd+L1RQIfu5zwqu38oD +KjuvTlqNwnLzoshk4sTE09/FNSh079pYM0fcQ0mJCmpTuNrueWWFFVmXsjk8 +pEfh3nYMYmzjQekvqegeBqknw8rnMnF3P32TNqDw65sXqm3EZhXh1c0mFIZx +vUTObedBl3++8iuk0E+pPjbPhgdirhGGL7ZSuNkvqHeM2NRqh32hNYUJReHS +hjvIvMh3nM7eQWHfgsE/RcQlggWJGbYUPnTMDxgj7hyNeJBqT+F9I5mP63by +wKRWuiXeicJ2NTtuKjGzsGPw4h4KKyx7a94Tx6cV8P/PmcKNOhLuC8QdQTv1 +Ql0pzNpe2H/AlgeiXjI2x91JPof4umKJTXZ2evp5UPiH1BVOAXH86jNxXt4U +rmwQSpsjLhG2vefKpHDD5dZaRTsSb1Lm5R4WhX/bZ7wyJxZt72y0pygM7dp9 +1p3YpOFJz/bDFDbKtouFEjNfnOGhH4WaD/HINeL4e7YrN/tT6OTCvpZDXBIv +u84wgMLfPlufK/svfliX5cbjFM60tFh8IBZhFbpqB1H4a6lEXRux8a6oQLUQ +Cn9IDSkO/xffzC5WKZTUf9tnyyzxVQ25dNkwCjUMTmgL2POgWKL72YpwChPP +SLQLE7fPF9Yvj6SQscSCJUEs0hvVLhRFoajX9FMpYqNPdjML0RR2LNv8fiXx +/wE92t09 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5057507988366897, 1.831074525529964}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5057507988366908}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.5057507988366897, 1.831074525529964}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5057507988366908}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk01dsXAHAZGmSKTBnKGErpmiV7i1KmVBRCuu79KolCEqJ+RYNIUvIe +USHdREoS6pnyJEWF916v9DXPRGb35nfeH9/1XZ911tpn7332OSrMwD1sfj4+ +vj7y/fc/8WHD2hdNHyyUXqfbK26kwWIky5BpnQf88Wcv/Gc6wyhZ3boc6jdo +rFcidmK9Xyyi/wasCuKslIkLw6KrhawbgFYpql9NfLlWriKa8xGG796pVCF+ +2XTiDpfRAjf22GmpEw98qY88XfY3cLxKf2kSr+pWOzBl9RW4M4PWOsR2o5Gm +wQ3fgd+DntMlfs0dWB7GaQfx+pQ1DOLWc7IRxQGdYBsvWWxEPLLYemCC0Q1X +p53KNhMvvnrcTX+6B/KYe/UsiZVXpNedKOsDCb1V0jbEjgpTOSNWQyCfMaXr +TExlqsroLh2B1zqizAPE0Rq7Yo42jEL7UL+QD/Hfss2bQjhjkGgxkxZMzHL3 +O3Lj6jjkTOkkRhL/SOO7+zTgJxgZaf6MIV6qqisxxpiE5PGwpb8RJ7OqbSSk +p8Cl9WNpFvGaB27RG6enwE986msBscn62JFjZTNgnX3/+J/Eh42+NwxYcSFP +7FHLPPFE2ElBYU0eOEuHLhbWo+Fs2XJz7aW/IPe81AM54tto8si3YQEKit4a +GxOzsuusgziLMGDQMuU0Maf2Bn1OgR+/RLzeHkf8o9cr8vpVfqw6LUOlE0fq +TD57EiCAW1o8J6qIkwtU1EYZQrjGJ3CX1CYavjQNvf51Xwgrzg6d0SJeM/7C +XUx6MR4RclK0IM4zcEzSnV6MFc5NuX7ENS/DF/mXLcU+kw6+t8ST1Z+/91mJ +oKRKbf5vDBok7UUkIl6LYHnwbnxJrNdsjaKmopjffc7lb2K/rueZmzaIIc36 +KiynT8Nx/ga9LSIS6NRWeTeduFs1fyxmagVOJlf9r9KA9IeqX9aoL0ni9e/q +I+Z/1KMid0ISYx06M8UNSb76q/dwBiVRudPjw0Fid6vEpx9oKTS5UrN/sREN +jT5BwbLvpPHK9+Nr/Y1paHuQEOe9VAanljP1fyceGuTcf7hNBrW+eVXXEwuH +dH7eXCGDTyTjAteZ0GB9wdnA+7ksenOUZseJS7OMJnMz5PGS2Ifm38xoyOqe +CzULUcJfmrnvHSxo2OFysS34sRI6PcjUukw8VCO1/XGPEuq3GE/XEBtkrZde +46aMae57R7cA6SfT65mQxWoMqiixM0QaxkfpU33n12BOgcZL0600SB2zLnrm +oIrhEH0xdTsNPVnCh538VLHIyfBgJ3HJ1yaF4VhV/PRZ9ZGuDQ0e9p7nNStU +US7oZUY1cda60D2pDDXUyj/KndhB9h948CNKVh032hVdOmZHg7Pvcl3bdg0U +dBKWLnaiAUJdGPt5GqjjGVkpspsGnZgMY5a8JtZmOLf5EPPd198atVsTI4t2 +HZHaQ8PjtgP7n1Zq4oKz/JtTe8n93Jd3btW9tXjyqGeqyz6Sn7VD6wBTGwXt +ndvZHjTc35vy73SUNlZLFufUEycw22nB37VRS8/+20ZPMt9nTw4qf9ZGYeNN +d+aJV5Sn8+210sG0tHuBtw+S+dEf0SlTW4cqLp77e5k0KKhei47rWo8KvmnH +vhyhofzKhPYsvy4efB+/br8f6cdPt2ZKRRerJt8FNhPfqVHX3uqli/um98U1 +HaVB1bf008xfuujO/0a88RipN69bg3q3ATNTxPZ3n6BBSUGZWuOmh9yN09qn +wmlYnx0iMg8MjP500o0RTwOTdX5S15GBHV/WUbXEt9WS2rw9GBhXsW/APYEG +gXsFT2rDGHiiwsAt5hq5b3cGnJMKGfgr1+jT9+vkPb3tna6tpo9rOm+aPbpF +zjfOfoPrYgOM5FzXS8uk4W6QutPzBkP8Ea++rv85DU/bKuLkvhqicIaZF6eY +hipbzz8jBg0x+ub0Gv8XNHSp3rLYKmyEgq+yXcZKaND8vES30cYIX1glneEv +J/dZf3BZf5URMn0bWqCKnM9EYbXiS2O0tldXWNtIQ1MoGF/INsUHRx1LHw3Q +oOLV4ujpvwUDOk7Fh65tB/ZCcb7SacQk6pb3qcPtIDtYskSWuRWVHYsznUva +IUTf/GuSjjVep6vDlop0AHOYWyc1sA0vZl4RFvDtgMdbg5dkNNrg6VutPRrN +HZA14VeZl7wTQSscDaw7YcZS7n1NtB1aOMtIur3thG98AmPthxxwINXjVLBr +FwQoBiaeU9uFdAEuiunvgvwjdRU3Y5xwhJWzUjO5G8J/yk+vO7IbB/pe+odj +D0zabt/358E92DV/95OqcC+YHrhu2b17L0pkCIcMfu+FT/LpfjX6znhBs1JB +urgPVuWcL8/VckEHnnzZbH4/lNA69o6i+3AgKfvCzQcDoNz8wzd0eB+erUyL +m+EMgv7N63n36f0oUJe32rF1CNIFf25IqnbF4LfQXP5rGIotN36JeemGsYlz +/ZV7RuG28ZUVXI47HpevTnnm9gMa/82O1b96AF/5PxZjLh6D5w5p6sfPeqDv ++lStLfVjMHZsL18AyxPHcqMaUi+Nw+R27cMjVl7YYyA/dWPnT8gd/mcm2Ogg +Vn+cbpVUmQDXu9k+niLeuOrkQsTdkQl49tTuoMBFb/R3S5PJa5oEU4VPs5dn +vTE6UNKjPWsK1GjfLx+PHMIPUQ93TARPQ9fyo7vSOg9hTZk61eE0A00Jjj42 +Lky8zj/NGJWbheSwjOUnm5ioXFKeUNk7C+WvF2Z9dvogBPalW2bPgbgHXtQv +9cGaDInztdvnwdR7JDfGgIWZ2i13e9vnISf1R7CjEQtzPDmWC53zsPLzuIWs +CQuND3dek+6Zh5Ft0825m1m4Y/SLgcXAPHm/+BY1bGWhtz07IXp8HsSmV7hJ +7mbhfp+lw5X8XOiKN1yWcYyFdWUhH1GVCwllkUdKcljo+11IXNCTC8cYKaZh +uSz0L+eefenFBfuHhctMOCxcFqR76Zg3F4RTeh6+eMxCqXhx548+XIgJchoo +LmJhqFLhp4t+XIjUVj/6vIqF8xKnfhac4oJfyjv/p20svBUZLdufyIWdYj3m +QTQLNfJldI4ncUErhk+U0cHC2mazyskbXOgJMnxc2M3CydkNEdxbXDjkmDH8 +ZIiFQdl8EjNpXHAVCg4omGNhXuBppwe5XLAJXnU8T4aNqx88/drxmgtVGbG2 +SXJsNOcMpe+r4IJ5w7h62Co2en2oSqir5IKexrt/rJTZOOAlwMup4YL8XxFW +/2qw8XmICdehnguDZt9khA3ZyEm/L2zdwoVr/JmvfPeysTTH4VlDP6l/o8ht +Bxc2hhWbeAoNcuHCgbAg/f1sTDrE0zAf4kJYkdPaBXc2VplrSWaNkPypRddv +Mdk4/rrMxvMnF/Trmaw3J9j49UbHHyFcLvx1XWO5WiIbnzpw3hqI8iAfRA/3 +XWfjlaybD1eL8eDC8ETN4xtsBDPml6XiPGDsrIkySWFj6mZ33VYJHiTw+Yw7 +3GGjZiN/osdKHmwPzPwnLI+NVjfmBeQUeKCkdMnIIp+Nh09Lve8lnqgPvCHw +hI2xlWYdzxV5cE8THBKesTFRIGXUXpkHvG/fKu6XsjH9XHUCpcKDInuF3A91 +pN62V/ds1vIgbo5fKLme5PdmkwiXmJk7cMitgY1/PA59la/FAwnBUoWuRjZq ++YVNienwwL/M9dpsKxsTRDLKStfzQE3nVqh6NxvPR1/0+mMTD+b+OvO5v4fE +l/9Hy5XBg6YYtl5BHxt/t3I2HiWOajcYMB1iY6P7+Go5Ax58uf3Zc9dPNr5o +UVzlYsSDpCUrtoUvotBM/G5shBkPyse/HQgRoLB2kV7v4s086P3GCQoQotDq +e+uqRGLzIutM5jIKSzrD534350GPd9i87QoKx1e8SE61IPnbb5PcJkWhYknq +RSngwWZjSW2QpnCVYr1dHHGiaN4+fXkKu7QtbUKQrJd+L1RQIfu5zwqu38oD +KjuvTlqNwnLzoshk4sTE09/FNSh079pYM0fcQ0mJCmpTuNrueWWFFVmXsjk8 +pEfh3nYMYmzjQekvqegeBqknw8rnMnF3P32TNqDw65sXqm3EZhXh1c0mFIZx +vUTObedBl3++8iuk0E+pPjbPhgdirhGGL7ZSuNkvqHeM2NRqh32hNYUJReHS +hjvIvMh3nM7eQWHfgsE/RcQlggWJGbYUPnTMDxgj7hyNeJBqT+F9I5mP63by +wKRWuiXeicJ2NTtuKjGzsGPw4h4KKyx7a94Tx6cV8P/PmcKNOhLuC8QdQTv1 +Ql0pzNpe2H/AlgeiXjI2x91JPof4umKJTXZ2evp5UPiH1BVOAXH86jNxXt4U +rmwQSpsjLhG2vefKpHDD5dZaRTsSb1Lm5R4WhX/bZ7wyJxZt72y0pygM7dp9 +1p3YpOFJz/bDFDbKtouFEjNfnOGhH4WaD/HINeL4e7YrN/tT6OTCvpZDXBIv +u84wgMLfPlufK/svfliX5cbjFM60tFh8IBZhFbpqB1H4a6lEXRux8a6oQLUQ +Cn9IDSkO/xffzC5WKZTUf9tnyyzxVQ25dNkwCjUMTmgL2POgWKL72YpwChPP +SLQLE7fPF9Yvj6SQscSCJUEs0hvVLhRFoajX9FMpYqNPdjML0RR2LNv8fiXx +/wE92t09 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5057507988366897, 1.831074525529964}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5057507988366908}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.5057507988366908}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5057507988366897, 1.831074525529964}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939131846254787`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"f6ce29c8-5808-453a-ba7a-bbcc56732734"] }, Open ]], Cell[CellGroupData[{ @@ -6794,425 +13719,1014 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.99185079904813*^9, {3.9918508647235966`*^9, - 3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\ -6a3bc399953c"], + 3.99185079904813*^9, {3.9918508647235966`*^9, 3.991850864992861*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2935960474337234`*^-265\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913184805971*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"4cce50cb-a12a-47df-8116-1bf2f488ab01"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"71d4e039-c2b8-d74d-819a-80d2051e4273"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1879284721481199`*^-276\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 140, 70, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913184814623*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"7bf11d88-215f-41f3-a80d-9706bec675fe"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"63625e13-15ef-1f45-89dc-998a1b63a626"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0908923676287497`*^-287\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 140, 71, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913184823202*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"0285d95f-dba8-491d-a5e2-91ab0e257068"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ -GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM -b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ -1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 -9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX -KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 -1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu -UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV -Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX -r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO -rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q -pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq -b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk -+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj -oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi -z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp -jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd -dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw -cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 -Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe -TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj -UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE -/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM -opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 -RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ -u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y -XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV -nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi -T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 -OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U -ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY -E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S -Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT -vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ -zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO -nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm -oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU -fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd -G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han -eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao -n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv -6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 -gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF -hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 -d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS -0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 -bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 -wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF -7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 -ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe -37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg -X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu -TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 -CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 -FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX -A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs -LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr -AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo -2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr -rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 -1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 -dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO -endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 -mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK -Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-1.61617, -0.0100934, 0.0591342, \ -0.000698765}},ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 140, 72, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939131848309526`*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"24ba665e-ea74-4fc4-8fe6-1cd6aa431cf5"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ -1872f77ea023"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VesXB3CXJolEhozn7HNQhgyFlGMtQ0KDSAMVjnmekkpcc8iQZMpV +VFKic7YSlQYhKVFKMqWbhltKKGOT3/v7Yz/7+fyz97ued73ftTfTLdjeU1BA +QOAHuf5/nxx42MROKzVJfecRH1fNMek8LXvItDseFjyO0qgEeUCpJ26y3dkg +vZSvFwQaELH10kuh7rPwJlEeLGEdLPkqkz3z8grca37vIwYb4fWtLcHjLxug +yPyqmLvJbrBkD70ae/kM/rySaH2yzh9mXhrmjr4chHjdt+xs3cPQaH6htOPs +d5hmNHgIqKWDwusbH9w0f8P8dIaryNUcWBrgcmm+uRBG/qWWyx0vhGxdy7ot +2xeglde14j1XSqCnQKd+TFwUW8bs9jLizkFaacwTwWVL0EnIwMl3UxnI5LxN +PXFKEstzE78+aLgIyQ7WJs8mpfCNk+H9NQ8vgVx1u5zgX9I4W+Nq6d1xCXiS +DlO6ItJ4yyosM6vnEnQ9c6aPK0tjy5aw4OefLgHbLpyys5JGSsTMSW5hBTRs +Lp739KQ01salClVaV8Bvy4n2NmMZrPqcF9vdVAH7jM64PIyXxZxQKlO9ohJs +SsTGN6bL4lEx33fHqiqBmh+V0p4ri48cliWM1lbC084dVc8vyqKs6Lf8c02V +sDJkkdBAuyxqiPhJdryqhI9lB8q+yS1D/q3n41aLL8OepVuG5a8uQ25rxN3y +oMtgMfIjMuitHHroPMhQUubBIasc9Xtf5PBG4GGWEZsHvDNavZKTcsi4/lPJ +dgUPZB1cjW4skMf1FR8sA1fx4Mv1+1NCK+Uxc9xuZ9gGHpyIzwo/eVAea8+d +8SwO4sGglGpQk6gC6plubEu8wQOZ4LuKMjIKODqtNiVyhwebWna1+TIU0DRd +JymzgQc1kWmai1cpoP/2V21JrTw4+np0yHGXAooPp0twXvFAr7zOe+SsAiaG +a4e3z/IgztiOK7dGEUe0U9SjTflg5Xz6m6GZIj5MG2puXs8HsdjPCds3KaJT +1v2ZhTZ8KGpMKstyVcS6+XWsBHs+XLe5+XleqiKOv2nP1HPnw+guVsT3HkUs +mB2aykjgg/P+iaOPDyvhhsdeMkb1fFDJN1MYSlLCb6p353U18kn9xy7Pz1LC +vrhleYEP+BD5a8VTs1IlNBv2yUtv50NugrPUjcdKGJjxYvnRfj48Pv6g+Lyi +Mq672jyeMMWHtbyT1X/fVcaDFoI3by6lweJl+++vLcp4ucDmbzlpGrYIzNng +8kwZBcXNvx2QocHdPqgH3itjvv6qIQ05GiwPM2Ni5zLQqP4a46AyDSHKk+dM +NRgYHK/x+swKGiauZrXMaDPwydDRun51GiKtNIarVjPwueCJjVKaNCSFuhpQ +Jgz83HA5OWYlDYWNj1oE7Ri4hX36wJpVNDR5Fw83RjDQ8cWZcGNjGqx/GUlE +HSa+nVFpz6GhPavTYHUsA002lBR5mdDQc0M4tjSVgfxKv7JkpOGrSLhEUhED +QVrEl2dBgyxtZWjZwMAP3Z0jmZtoOGXxdvefZgaK6Pz1JHYzDVRPdGxNKwP9 +Njn4h2yhQUvw6kPVFwzkONb3W22lwcxBcc/8jww8IzyvcmAbDQHTY7Etokx0 +TMqzOu1Ew9pQL+kPEkxc3uRvF72bhgVDvRVCskxUe1R03XEPDef7GrtMKCbe +1vl4bqEzDQN3cjWvGTBx7XnWz01cGmyTjLrPuDAxXGqrtIM3DUp/Lgfe9WCi ++dNtHGEfGr5EUEKvfJloVbHzUR1xio/IStlwJrb84yK7zI+G+o2vEjJTmGhi +cSK7OoAGPYk47cNVTPTOrw0LDqVBIG2iqaCGiazxhYY/iduF/Jxq6pgoUHzB +NzGMBv8J+6Sx+0zU1Xgvf2wfDaXd7D7vXiZKDlxuTNpPQ5jdyZCk10z0XJwo +/JsYH4nOO/eOiQb6cxpCI2h4VTepM/CViTedTDK2HaBBurjliIMQhUW/XYqm +D9LwToajELaAwsDIDcm7D9FwJauq6pgohboXXD/VEdvGF/Y/kqFQxvWA1P5I +Uv9PsbCPChRqSJz+t434y76E+fMoCl3uWqmwD5P6PQP0TDUpbP83XvEh8Y6B +fx8461K4Zy0+k4migb1z+94oAwondr0S9CCutzJJqUUKN61Y1jtOPKMhPqC1 +ncK5Vd6h09E0TJ6Si1vlROHO3OXCen/TML5YhW3kQqHJk6Y1vsRfvxv5WfhS ++E5jkPuU+LOnhahNEIV9Mpl7BGJo+PhyC227j0L5z35jWsSDde6TTtFkvXyJ +L3HEr7WCTrrGUzh9ftG2i8T9xQeNvZLJejNzdzwm7lmS8No/nUK/dZZTw8Rd +CRnxoccpfDH3ur5oLA3PJ/JVDuRReLs1UUKd+Kn32Zaofyh0G7XMtCBu66n0 +jy+h8N7uk+V7iB9trBVLOU8hRsp4hhE/uH2vKuMShVuM995LIm7Sfuxwgk+h +iPT8u3nE9850TRVUUzj2p8r5PPEdyTeFp29QGBr6s6SKuC7pM6f0DoVlfnFH +6oivT038W95I4SffwcWNxNd8BRL5LRTGhdzmtBBf6Vuodq2NQuu/roi3EvM3 +Sz26+YzCzQzX1P+78q5yYP1LCvfb+1x8SFyuqy7e3E+h6in/oPvEZedWX219 +Q+HHJJH+O8TnpGBHxwcKhSWGxq4RlyRbz3R9ptCyuZy+RHxqZltR/yiFnmXD +sqeIC/2dYXCC7NdqR40M4vxXPoP//aAwLyzrYyRxju2+pOFZCq0GDO28iI/f +i17+fQ4LPcPHPW2JM1eltE4Ls7CQ569mQJx2PjvojxgLoxLM8+SIU2ROLZmz +lIVML+rqL7Jf8T+rdi5WYmFRxvGZG8Qxgbd+LGWxcCE7lJ1LHPW6+ZTcchZW ++03OBhJHNPa9VdFjofV4bqss8T79D0c0DFmY6Cx0e4j0V8iF0RW6xizsar7F +vUnsnzY3xNiShddk7z6wJ/b5vVjSbCMLs747H5Un9gqWq9mwlYUevGnBQdLP +rtu0f9k7sfBh+2NZH+K9942Kd7mwcOQtt1aN2MnQwszZg4XhhmVi78l5cJB3 +TPENYmGz+NSnXcR2Ge4awftIPdPc4MXEW2YD28MPslB9cA3dSM6b1dv4pbHx +LFx55IuXCrFxRWVJXh4LpYU76trIee5jVBSv/4eFb9tDAw8SR+aVnx4vZmFm +1H/qTOLauLIi+3IWbj12sjWA5IPerpICsVssnN3Iqv5C8qSj7XT+7XoWml/e +15lMHGJ+Ki/gPgu1SnTnMol5KwtzHrWz0OilVeFmkkcr5uZkHXnDQqGlRuf+ +n18tkdnH9D+wcLWJ1U55Yq/RrMx3QyxMPx/GOE/yrrQvI91snIURjIjxKyQP +GVeSU/7MY+Mvi86rtcEkv1wOx0ZosvELt0fKy5/0d+ehGBVdNvqrLXd/TvLW +webg3536bIz1UH9iQpytvz9KD9h4RvHmXHFfGkQXBR/8asdGVzutP/940TDn +hluI1wE2/vM9u8yJ5P2YhI3rjgY2vpNUMTiwnYbuAOqp3wM2znt/QaLAgeRV +8w+IecxG+fSKpzVk3mRFVihf7GLjTp+48WE7GnQGF72eGWIj3ynrmxmZV0FV +T/aeklTBp9+r41MsaRiy3b77nYcKntWP7knWp+FZuVbrtK8KptyqTfJaTcNN +oXnrRINVcJ5/7EpzMm9Ta2vkDA6p4K+Y1YcmdWhYrizbm5yhgg3LEkTWk3nt +/bV3l0aNCo68K/ovniJ5nu66I2y+Kp40vF6ZLEreP6RJ6SxSxTHNeAoW0TC1 +YWZ4WFwVZwzejIwvpGGhUHaSr5wqXrW0zdm9gKz/UGO1q5Yqpj1Lk5USoiHa +U1XSdpsq8mXcfPaN8kHa5MsTjWJVjD4t/rqogQ/WIwes3xuoYWnbx7SSvXxQ +0FU6ssBYDVnT0+tnHfnwNaypQcNUDdest81w2sGHnElx47CNajgWU9M6z5YP +A7/LV866qGH/l34TA+RD2KJ+yWWpanisR7ruG5MPhStwYFOfGr4orBAYHSTf +l+4L9lXHLEf74v2OAbt55P9ARjC5YQV6DyYt+ax9GSTaVDPpEXVEiYE+q8kK +UEjhbzUw0MQeG0vNvYmXoEDDSFzSWwtTvh23LZEqh0dypvrfj69Es9zh6qUl +F2CtQkOWdpc2vuo4evnAX2UgJnQ2nBuvgzKLNM3XHC4FpThlY0dVXUw9+n5U +t+ssCKvsqbF/oIs774f6P4AzsJKzjH9grx6efiY5FXKqGMIGJBptBFbhxO4C +XvfJIhj5nr7dumAV7up9MXfk00nYoN1caK21GhW2Rv9u8M2HO9/X/ZxqX41/ +dhvm5PbnQJCmXm+Hpz5GxdYLyZRmA+erR6ejsAF+eLhYivbNgvVs2c2iZw3Q +IUSyd0QgA5bHHj3YYGiIC00DJhyyU0Hd0+iuSq8hyiuCy9+6R8Dzjk9idega +zK9wBR2nBLhb0ukxJmWEqutTrn8oiIXxi7NT2rVG2PV9V26vVxS4q1QIF25e +i9vKuOs7Qg/CmPoJgyuja5Gf+exbf0U4XC/9+WYiZR3eyzHvUykIBScLFq5T +MsbYhNKj4UOBIB+YfGNlvTEunyNmc3/SB6QWBlRt3snBMZGPQSm/PaDUPDpy +1JGDVeODQnLDHqAXnWl+Yg8H9db6Xajp94Ato/SLbi4HlT+NCC655QFHuiZm +3AM4uFx01Nf6sAdMn40xi4zjIONCx3DjT3foXXfieVkFB0NTXJ/XznEHn/2l +RdY8DrYscFQqmXCDSd41zy80B9/kpt3L/uAGElT3lG4NB7N0LX7ktbjBxgWK +CrfrOZit87FALsMNbnWWeTx/wcFZ79t8YVk3sBG7rhXRzcEbXHybI+wG3Rse +Tsr2cZBr7yit/pML4zc/pzj/y0GJEFfPsAEuaJ3RufxpiIONiZWikee5cKvX +NCJ9mIOTM3WlDvlcsFm6DbRHOfgj4Npio1QueCXv7wif4KBZVtVG5UDyvPoj +hTLTHDy5YWAJ04UL8T/y3W/+4KDgIus8TTsuiK8u19z7m4M1VmnPTc25cDrw +5sTsLAf/08QmV30u/A+0CBdn + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VesXB3CXJolEhozn7HNQhgyFlGMtQ0KDSAMVjnmekkpcc8iQZMpV +VFKic7YSlQYhKVFKMqWbhltKKGOT3/v7Yz/7+fyz97ued73ftTfTLdjeU1BA +QOAHuf5/nxx42MROKzVJfecRH1fNMek8LXvItDseFjyO0qgEeUCpJ26y3dkg +vZSvFwQaELH10kuh7rPwJlEeLGEdLPkqkz3z8grca37vIwYb4fWtLcHjLxug +yPyqmLvJbrBkD70ae/kM/rySaH2yzh9mXhrmjr4chHjdt+xs3cPQaH6htOPs +d5hmNHgIqKWDwusbH9w0f8P8dIaryNUcWBrgcmm+uRBG/qWWyx0vhGxdy7ot +2xeglde14j1XSqCnQKd+TFwUW8bs9jLizkFaacwTwWVL0EnIwMl3UxnI5LxN +PXFKEstzE78+aLgIyQ7WJs8mpfCNk+H9NQ8vgVx1u5zgX9I4W+Nq6d1xCXiS +DlO6ItJ4yyosM6vnEnQ9c6aPK0tjy5aw4OefLgHbLpyys5JGSsTMSW5hBTRs +Lp739KQ01salClVaV8Bvy4n2NmMZrPqcF9vdVAH7jM64PIyXxZxQKlO9ohJs +SsTGN6bL4lEx33fHqiqBmh+V0p4ri48cliWM1lbC084dVc8vyqKs6Lf8c02V +sDJkkdBAuyxqiPhJdryqhI9lB8q+yS1D/q3n41aLL8OepVuG5a8uQ25rxN3y +oMtgMfIjMuitHHroPMhQUubBIasc9Xtf5PBG4GGWEZsHvDNavZKTcsi4/lPJ +dgUPZB1cjW4skMf1FR8sA1fx4Mv1+1NCK+Uxc9xuZ9gGHpyIzwo/eVAea8+d +8SwO4sGglGpQk6gC6plubEu8wQOZ4LuKMjIKODqtNiVyhwebWna1+TIU0DRd +JymzgQc1kWmai1cpoP/2V21JrTw4+np0yHGXAooPp0twXvFAr7zOe+SsAiaG +a4e3z/IgztiOK7dGEUe0U9SjTflg5Xz6m6GZIj5MG2puXs8HsdjPCds3KaJT +1v2ZhTZ8KGpMKstyVcS6+XWsBHs+XLe5+XleqiKOv2nP1HPnw+guVsT3HkUs +mB2aykjgg/P+iaOPDyvhhsdeMkb1fFDJN1MYSlLCb6p353U18kn9xy7Pz1LC +vrhleYEP+BD5a8VTs1IlNBv2yUtv50NugrPUjcdKGJjxYvnRfj48Pv6g+Lyi +Mq672jyeMMWHtbyT1X/fVcaDFoI3by6lweJl+++vLcp4ucDmbzlpGrYIzNng +8kwZBcXNvx2QocHdPqgH3itjvv6qIQ05GiwPM2Ni5zLQqP4a46AyDSHKk+dM +NRgYHK/x+swKGiauZrXMaDPwydDRun51GiKtNIarVjPwueCJjVKaNCSFuhpQ +Jgz83HA5OWYlDYWNj1oE7Ri4hX36wJpVNDR5Fw83RjDQ8cWZcGNjGqx/GUlE +HSa+nVFpz6GhPavTYHUsA002lBR5mdDQc0M4tjSVgfxKv7JkpOGrSLhEUhED +QVrEl2dBgyxtZWjZwMAP3Z0jmZtoOGXxdvefZgaK6Pz1JHYzDVRPdGxNKwP9 +Njn4h2yhQUvw6kPVFwzkONb3W22lwcxBcc/8jww8IzyvcmAbDQHTY7Etokx0 +TMqzOu1Ew9pQL+kPEkxc3uRvF72bhgVDvRVCskxUe1R03XEPDef7GrtMKCbe +1vl4bqEzDQN3cjWvGTBx7XnWz01cGmyTjLrPuDAxXGqrtIM3DUp/Lgfe9WCi ++dNtHGEfGr5EUEKvfJloVbHzUR1xio/IStlwJrb84yK7zI+G+o2vEjJTmGhi +cSK7OoAGPYk47cNVTPTOrw0LDqVBIG2iqaCGiazxhYY/iduF/Jxq6pgoUHzB +NzGMBv8J+6Sx+0zU1Xgvf2wfDaXd7D7vXiZKDlxuTNpPQ5jdyZCk10z0XJwo +/JsYH4nOO/eOiQb6cxpCI2h4VTepM/CViTedTDK2HaBBurjliIMQhUW/XYqm +D9LwToajELaAwsDIDcm7D9FwJauq6pgohboXXD/VEdvGF/Y/kqFQxvWA1P5I +Uv9PsbCPChRqSJz+t434y76E+fMoCl3uWqmwD5P6PQP0TDUpbP83XvEh8Y6B +fx8461K4Zy0+k4migb1z+94oAwondr0S9CCutzJJqUUKN61Y1jtOPKMhPqC1 +ncK5Vd6h09E0TJ6Si1vlROHO3OXCen/TML5YhW3kQqHJk6Y1vsRfvxv5WfhS ++E5jkPuU+LOnhahNEIV9Mpl7BGJo+PhyC227j0L5z35jWsSDde6TTtFkvXyJ +L3HEr7WCTrrGUzh9ftG2i8T9xQeNvZLJejNzdzwm7lmS8No/nUK/dZZTw8Rd +CRnxoccpfDH3ur5oLA3PJ/JVDuRReLs1UUKd+Kn32Zaofyh0G7XMtCBu66n0 +jy+h8N7uk+V7iB9trBVLOU8hRsp4hhE/uH2vKuMShVuM995LIm7Sfuxwgk+h +iPT8u3nE9850TRVUUzj2p8r5PPEdyTeFp29QGBr6s6SKuC7pM6f0DoVlfnFH +6oivT038W95I4SffwcWNxNd8BRL5LRTGhdzmtBBf6Vuodq2NQuu/roi3EvM3 +Sz26+YzCzQzX1P+78q5yYP1LCvfb+1x8SFyuqy7e3E+h6in/oPvEZedWX219 +Q+HHJJH+O8TnpGBHxwcKhSWGxq4RlyRbz3R9ptCyuZy+RHxqZltR/yiFnmXD +sqeIC/2dYXCC7NdqR40M4vxXPoP//aAwLyzrYyRxju2+pOFZCq0GDO28iI/f +i17+fQ4LPcPHPW2JM1eltE4Ls7CQ569mQJx2PjvojxgLoxLM8+SIU2ROLZmz +lIVML+rqL7Jf8T+rdi5WYmFRxvGZG8Qxgbd+LGWxcCE7lJ1LHPW6+ZTcchZW ++03OBhJHNPa9VdFjofV4bqss8T79D0c0DFmY6Cx0e4j0V8iF0RW6xizsar7F +vUnsnzY3xNiShddk7z6wJ/b5vVjSbCMLs747H5Un9gqWq9mwlYUevGnBQdLP +rtu0f9k7sfBh+2NZH+K9942Kd7mwcOQtt1aN2MnQwszZg4XhhmVi78l5cJB3 +TPENYmGz+NSnXcR2Ge4awftIPdPc4MXEW2YD28MPslB9cA3dSM6b1dv4pbHx +LFx55IuXCrFxRWVJXh4LpYU76trIee5jVBSv/4eFb9tDAw8SR+aVnx4vZmFm +1H/qTOLauLIi+3IWbj12sjWA5IPerpICsVssnN3Iqv5C8qSj7XT+7XoWml/e +15lMHGJ+Ki/gPgu1SnTnMol5KwtzHrWz0OilVeFmkkcr5uZkHXnDQqGlRuf+ +n18tkdnH9D+wcLWJ1U55Yq/RrMx3QyxMPx/GOE/yrrQvI91snIURjIjxKyQP +GVeSU/7MY+Mvi86rtcEkv1wOx0ZosvELt0fKy5/0d+ehGBVdNvqrLXd/TvLW +webg3536bIz1UH9iQpytvz9KD9h4RvHmXHFfGkQXBR/8asdGVzutP/940TDn +hluI1wE2/vM9u8yJ5P2YhI3rjgY2vpNUMTiwnYbuAOqp3wM2znt/QaLAgeRV +8w+IecxG+fSKpzVk3mRFVihf7GLjTp+48WE7GnQGF72eGWIj3ynrmxmZV0FV +T/aeklTBp9+r41MsaRiy3b77nYcKntWP7knWp+FZuVbrtK8KptyqTfJaTcNN +oXnrRINVcJ5/7EpzMm9Ta2vkDA6p4K+Y1YcmdWhYrizbm5yhgg3LEkTWk3nt +/bV3l0aNCo68K/ovniJ5nu66I2y+Kp40vF6ZLEreP6RJ6SxSxTHNeAoW0TC1 +YWZ4WFwVZwzejIwvpGGhUHaSr5wqXrW0zdm9gKz/UGO1q5Yqpj1Lk5USoiHa +U1XSdpsq8mXcfPaN8kHa5MsTjWJVjD4t/rqogQ/WIwes3xuoYWnbx7SSvXxQ +0FU6ssBYDVnT0+tnHfnwNaypQcNUDdest81w2sGHnElx47CNajgWU9M6z5YP +A7/LV866qGH/l34TA+RD2KJ+yWWpanisR7ruG5MPhStwYFOfGr4orBAYHSTf +l+4L9lXHLEf74v2OAbt55P9ARjC5YQV6DyYt+ax9GSTaVDPpEXVEiYE+q8kK +UEjhbzUw0MQeG0vNvYmXoEDDSFzSWwtTvh23LZEqh0dypvrfj69Es9zh6qUl +F2CtQkOWdpc2vuo4evnAX2UgJnQ2nBuvgzKLNM3XHC4FpThlY0dVXUw9+n5U +t+ssCKvsqbF/oIs774f6P4AzsJKzjH9grx6efiY5FXKqGMIGJBptBFbhxO4C +XvfJIhj5nr7dumAV7up9MXfk00nYoN1caK21GhW2Rv9u8M2HO9/X/ZxqX41/ +dhvm5PbnQJCmXm+Hpz5GxdYLyZRmA+erR6ejsAF+eLhYivbNgvVs2c2iZw3Q +IUSyd0QgA5bHHj3YYGiIC00DJhyyU0Hd0+iuSq8hyiuCy9+6R8Dzjk9idega +zK9wBR2nBLhb0ukxJmWEqutTrn8oiIXxi7NT2rVG2PV9V26vVxS4q1QIF25e +i9vKuOs7Qg/CmPoJgyuja5Gf+exbf0U4XC/9+WYiZR3eyzHvUykIBScLFq5T +MsbYhNKj4UOBIB+YfGNlvTEunyNmc3/SB6QWBlRt3snBMZGPQSm/PaDUPDpy +1JGDVeODQnLDHqAXnWl+Yg8H9db6Xajp94Ato/SLbi4HlT+NCC655QFHuiZm +3AM4uFx01Nf6sAdMn40xi4zjIONCx3DjT3foXXfieVkFB0NTXJ/XznEHn/2l +RdY8DrYscFQqmXCDSd41zy80B9/kpt3L/uAGElT3lG4NB7N0LX7ktbjBxgWK +CrfrOZit87FALsMNbnWWeTx/wcFZ79t8YVk3sBG7rhXRzcEbXHybI+wG3Rse +Tsr2cZBr7yit/pML4zc/pzj/y0GJEFfPsAEuaJ3RufxpiIONiZWikee5cKvX +NCJ9mIOTM3WlDvlcsFm6DbRHOfgj4Npio1QueCXv7wif4KBZVtVG5UDyvPoj +hTLTHDy5YWAJ04UL8T/y3W/+4KDgIus8TTsuiK8u19z7m4M1VmnPTc25cDrw +5sTsLAf/08QmV30u/A+0CBdn + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06446525672811383}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06446525672811383}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VesXB3CXJolEhozn7HNQhgyFlGMtQ0KDSAMVjnmekkpcc8iQZMpV +VFKic7YSlQYhKVFKMqWbhltKKGOT3/v7Yz/7+fyz97ued73ftTfTLdjeU1BA +QOAHuf5/nxx42MROKzVJfecRH1fNMek8LXvItDseFjyO0qgEeUCpJ26y3dkg +vZSvFwQaELH10kuh7rPwJlEeLGEdLPkqkz3z8grca37vIwYb4fWtLcHjLxug +yPyqmLvJbrBkD70ae/kM/rySaH2yzh9mXhrmjr4chHjdt+xs3cPQaH6htOPs +d5hmNHgIqKWDwusbH9w0f8P8dIaryNUcWBrgcmm+uRBG/qWWyx0vhGxdy7ot +2xeglde14j1XSqCnQKd+TFwUW8bs9jLizkFaacwTwWVL0EnIwMl3UxnI5LxN +PXFKEstzE78+aLgIyQ7WJs8mpfCNk+H9NQ8vgVx1u5zgX9I4W+Nq6d1xCXiS +DlO6ItJ4yyosM6vnEnQ9c6aPK0tjy5aw4OefLgHbLpyys5JGSsTMSW5hBTRs +Lp739KQ01salClVaV8Bvy4n2NmMZrPqcF9vdVAH7jM64PIyXxZxQKlO9ohJs +SsTGN6bL4lEx33fHqiqBmh+V0p4ri48cliWM1lbC084dVc8vyqKs6Lf8c02V +sDJkkdBAuyxqiPhJdryqhI9lB8q+yS1D/q3n41aLL8OepVuG5a8uQ25rxN3y +oMtgMfIjMuitHHroPMhQUubBIasc9Xtf5PBG4GGWEZsHvDNavZKTcsi4/lPJ +dgUPZB1cjW4skMf1FR8sA1fx4Mv1+1NCK+Uxc9xuZ9gGHpyIzwo/eVAea8+d +8SwO4sGglGpQk6gC6plubEu8wQOZ4LuKMjIKODqtNiVyhwebWna1+TIU0DRd +JymzgQc1kWmai1cpoP/2V21JrTw4+np0yHGXAooPp0twXvFAr7zOe+SsAiaG +a4e3z/IgztiOK7dGEUe0U9SjTflg5Xz6m6GZIj5MG2puXs8HsdjPCds3KaJT +1v2ZhTZ8KGpMKstyVcS6+XWsBHs+XLe5+XleqiKOv2nP1HPnw+guVsT3HkUs +mB2aykjgg/P+iaOPDyvhhsdeMkb1fFDJN1MYSlLCb6p353U18kn9xy7Pz1LC +vrhleYEP+BD5a8VTs1IlNBv2yUtv50NugrPUjcdKGJjxYvnRfj48Pv6g+Lyi +Mq672jyeMMWHtbyT1X/fVcaDFoI3by6lweJl+++vLcp4ucDmbzlpGrYIzNng +8kwZBcXNvx2QocHdPqgH3itjvv6qIQ05GiwPM2Ni5zLQqP4a46AyDSHKk+dM +NRgYHK/x+swKGiauZrXMaDPwydDRun51GiKtNIarVjPwueCJjVKaNCSFuhpQ +Jgz83HA5OWYlDYWNj1oE7Ri4hX36wJpVNDR5Fw83RjDQ8cWZcGNjGqx/GUlE +HSa+nVFpz6GhPavTYHUsA002lBR5mdDQc0M4tjSVgfxKv7JkpOGrSLhEUhED +QVrEl2dBgyxtZWjZwMAP3Z0jmZtoOGXxdvefZgaK6Pz1JHYzDVRPdGxNKwP9 +Njn4h2yhQUvw6kPVFwzkONb3W22lwcxBcc/8jww8IzyvcmAbDQHTY7Etokx0 +TMqzOu1Ew9pQL+kPEkxc3uRvF72bhgVDvRVCskxUe1R03XEPDef7GrtMKCbe +1vl4bqEzDQN3cjWvGTBx7XnWz01cGmyTjLrPuDAxXGqrtIM3DUp/Lgfe9WCi ++dNtHGEfGr5EUEKvfJloVbHzUR1xio/IStlwJrb84yK7zI+G+o2vEjJTmGhi +cSK7OoAGPYk47cNVTPTOrw0LDqVBIG2iqaCGiazxhYY/iduF/Jxq6pgoUHzB +NzGMBv8J+6Sx+0zU1Xgvf2wfDaXd7D7vXiZKDlxuTNpPQ5jdyZCk10z0XJwo +/JsYH4nOO/eOiQb6cxpCI2h4VTepM/CViTedTDK2HaBBurjliIMQhUW/XYqm +D9LwToajELaAwsDIDcm7D9FwJauq6pgohboXXD/VEdvGF/Y/kqFQxvWA1P5I +Uv9PsbCPChRqSJz+t434y76E+fMoCl3uWqmwD5P6PQP0TDUpbP83XvEh8Y6B +fx8461K4Zy0+k4migb1z+94oAwondr0S9CCutzJJqUUKN61Y1jtOPKMhPqC1 +ncK5Vd6h09E0TJ6Si1vlROHO3OXCen/TML5YhW3kQqHJk6Y1vsRfvxv5WfhS ++E5jkPuU+LOnhahNEIV9Mpl7BGJo+PhyC227j0L5z35jWsSDde6TTtFkvXyJ +L3HEr7WCTrrGUzh9ftG2i8T9xQeNvZLJejNzdzwm7lmS8No/nUK/dZZTw8Rd +CRnxoccpfDH3ur5oLA3PJ/JVDuRReLs1UUKd+Kn32Zaofyh0G7XMtCBu66n0 +jy+h8N7uk+V7iB9trBVLOU8hRsp4hhE/uH2vKuMShVuM995LIm7Sfuxwgk+h +iPT8u3nE9850TRVUUzj2p8r5PPEdyTeFp29QGBr6s6SKuC7pM6f0DoVlfnFH +6oivT038W95I4SffwcWNxNd8BRL5LRTGhdzmtBBf6Vuodq2NQuu/roi3EvM3 +Sz26+YzCzQzX1P+78q5yYP1LCvfb+1x8SFyuqy7e3E+h6in/oPvEZedWX219 +Q+HHJJH+O8TnpGBHxwcKhSWGxq4RlyRbz3R9ptCyuZy+RHxqZltR/yiFnmXD +sqeIC/2dYXCC7NdqR40M4vxXPoP//aAwLyzrYyRxju2+pOFZCq0GDO28iI/f +i17+fQ4LPcPHPW2JM1eltE4Ls7CQ569mQJx2PjvojxgLoxLM8+SIU2ROLZmz +lIVML+rqL7Jf8T+rdi5WYmFRxvGZG8Qxgbd+LGWxcCE7lJ1LHPW6+ZTcchZW ++03OBhJHNPa9VdFjofV4bqss8T79D0c0DFmY6Cx0e4j0V8iF0RW6xizsar7F +vUnsnzY3xNiShddk7z6wJ/b5vVjSbCMLs747H5Un9gqWq9mwlYUevGnBQdLP +rtu0f9k7sfBh+2NZH+K9942Kd7mwcOQtt1aN2MnQwszZg4XhhmVi78l5cJB3 +TPENYmGz+NSnXcR2Ge4awftIPdPc4MXEW2YD28MPslB9cA3dSM6b1dv4pbHx +LFx55IuXCrFxRWVJXh4LpYU76trIee5jVBSv/4eFb9tDAw8SR+aVnx4vZmFm +1H/qTOLauLIi+3IWbj12sjWA5IPerpICsVssnN3Iqv5C8qSj7XT+7XoWml/e +15lMHGJ+Ki/gPgu1SnTnMol5KwtzHrWz0OilVeFmkkcr5uZkHXnDQqGlRuf+ +n18tkdnH9D+wcLWJ1U55Yq/RrMx3QyxMPx/GOE/yrrQvI91snIURjIjxKyQP +GVeSU/7MY+Mvi86rtcEkv1wOx0ZosvELt0fKy5/0d+ehGBVdNvqrLXd/TvLW +webg3536bIz1UH9iQpytvz9KD9h4RvHmXHFfGkQXBR/8asdGVzutP/940TDn +hluI1wE2/vM9u8yJ5P2YhI3rjgY2vpNUMTiwnYbuAOqp3wM2znt/QaLAgeRV +8w+IecxG+fSKpzVk3mRFVihf7GLjTp+48WE7GnQGF72eGWIj3ynrmxmZV0FV +T/aeklTBp9+r41MsaRiy3b77nYcKntWP7knWp+FZuVbrtK8KptyqTfJaTcNN +oXnrRINVcJ5/7EpzMm9Ta2vkDA6p4K+Y1YcmdWhYrizbm5yhgg3LEkTWk3nt +/bV3l0aNCo68K/ovniJ5nu66I2y+Kp40vF6ZLEreP6RJ6SxSxTHNeAoW0TC1 +YWZ4WFwVZwzejIwvpGGhUHaSr5wqXrW0zdm9gKz/UGO1q5Yqpj1Lk5USoiHa +U1XSdpsq8mXcfPaN8kHa5MsTjWJVjD4t/rqogQ/WIwes3xuoYWnbx7SSvXxQ +0FU6ssBYDVnT0+tnHfnwNaypQcNUDdest81w2sGHnElx47CNajgWU9M6z5YP +A7/LV866qGH/l34TA+RD2KJ+yWWpanisR7ruG5MPhStwYFOfGr4orBAYHSTf +l+4L9lXHLEf74v2OAbt55P9ARjC5YQV6DyYt+ax9GSTaVDPpEXVEiYE+q8kK +UEjhbzUw0MQeG0vNvYmXoEDDSFzSWwtTvh23LZEqh0dypvrfj69Es9zh6qUl +F2CtQkOWdpc2vuo4evnAX2UgJnQ2nBuvgzKLNM3XHC4FpThlY0dVXUw9+n5U +t+ssCKvsqbF/oIs774f6P4AzsJKzjH9grx6efiY5FXKqGMIGJBptBFbhxO4C +XvfJIhj5nr7dumAV7up9MXfk00nYoN1caK21GhW2Rv9u8M2HO9/X/ZxqX41/ +dhvm5PbnQJCmXm+Hpz5GxdYLyZRmA+erR6ejsAF+eLhYivbNgvVs2c2iZw3Q +IUSyd0QgA5bHHj3YYGiIC00DJhyyU0Hd0+iuSq8hyiuCy9+6R8Dzjk9idega +zK9wBR2nBLhb0ukxJmWEqutTrn8oiIXxi7NT2rVG2PV9V26vVxS4q1QIF25e +i9vKuOs7Qg/CmPoJgyuja5Gf+exbf0U4XC/9+WYiZR3eyzHvUykIBScLFq5T +MsbYhNKj4UOBIB+YfGNlvTEunyNmc3/SB6QWBlRt3snBMZGPQSm/PaDUPDpy +1JGDVeODQnLDHqAXnWl+Yg8H9db6Xajp94Ato/SLbi4HlT+NCC655QFHuiZm +3AM4uFx01Nf6sAdMn40xi4zjIONCx3DjT3foXXfieVkFB0NTXJ/XznEHn/2l +RdY8DrYscFQqmXCDSd41zy80B9/kpt3L/uAGElT3lG4NB7N0LX7ktbjBxgWK +CrfrOZit87FALsMNbnWWeTx/wcFZ79t8YVk3sBG7rhXRzcEbXHybI+wG3Rse +Tsr2cZBr7yit/pML4zc/pzj/y0GJEFfPsAEuaJ3RufxpiIONiZWikee5cKvX +NCJ9mIOTM3WlDvlcsFm6DbRHOfgj4Npio1QueCXv7wif4KBZVtVG5UDyvPoj +hTLTHDy5YWAJ04UL8T/y3W/+4KDgIus8TTsuiK8u19z7m4M1VmnPTc25cDrw +5sTsLAf/08QmV30u/A+0CBdn + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06446525672811383}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06446525672811383}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993913500592657*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"c639cf35-a4d9-4ee0-ac1c-7e57ecf69932"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ -5240-aa41-ba7c8ff64fb9"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[141]:=",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VesXB3CXJolEhozn7HNQhgyFlGMtQ0KDSAMVjnmekkpcc8iQZMpV +VFKic7YSlQYhKVFKMqWbhltKKGOT3/v7Yz/7+fyz97ued73ftTfTLdjeU1BA +QOAHuf5/nxx42MROKzVJfecRH1fNMek8LXvItDseFjyO0qgEeUCpJ26y3dkg +vZSvFwQaELH10kuh7rPwJlEeLGEdLPkqkz3z8grca37vIwYb4fWtLcHjLxug +yPyqmLvJbrBkD70ae/kM/rySaH2yzh9mXhrmjr4chHjdt+xs3cPQaH6htOPs +d5hmNHgIqKWDwusbH9w0f8P8dIaryNUcWBrgcmm+uRBG/qWWyx0vhGxdy7ot +2xeglde14j1XSqCnQKd+TFwUW8bs9jLizkFaacwTwWVL0EnIwMl3UxnI5LxN +PXFKEstzE78+aLgIyQ7WJs8mpfCNk+H9NQ8vgVx1u5zgX9I4W+Nq6d1xCXiS +DlO6ItJ4yyosM6vnEnQ9c6aPK0tjy5aw4OefLgHbLpyys5JGSsTMSW5hBTRs +Lp739KQ01salClVaV8Bvy4n2NmMZrPqcF9vdVAH7jM64PIyXxZxQKlO9ohJs +SsTGN6bL4lEx33fHqiqBmh+V0p4ri48cliWM1lbC084dVc8vyqKs6Lf8c02V +sDJkkdBAuyxqiPhJdryqhI9lB8q+yS1D/q3n41aLL8OepVuG5a8uQ25rxN3y +oMtgMfIjMuitHHroPMhQUubBIasc9Xtf5PBG4GGWEZsHvDNavZKTcsi4/lPJ +dgUPZB1cjW4skMf1FR8sA1fx4Mv1+1NCK+Uxc9xuZ9gGHpyIzwo/eVAea8+d +8SwO4sGglGpQk6gC6plubEu8wQOZ4LuKMjIKODqtNiVyhwebWna1+TIU0DRd +JymzgQc1kWmai1cpoP/2V21JrTw4+np0yHGXAooPp0twXvFAr7zOe+SsAiaG +a4e3z/IgztiOK7dGEUe0U9SjTflg5Xz6m6GZIj5MG2puXs8HsdjPCds3KaJT +1v2ZhTZ8KGpMKstyVcS6+XWsBHs+XLe5+XleqiKOv2nP1HPnw+guVsT3HkUs +mB2aykjgg/P+iaOPDyvhhsdeMkb1fFDJN1MYSlLCb6p353U18kn9xy7Pz1LC +vrhleYEP+BD5a8VTs1IlNBv2yUtv50NugrPUjcdKGJjxYvnRfj48Pv6g+Lyi +Mq672jyeMMWHtbyT1X/fVcaDFoI3by6lweJl+++vLcp4ucDmbzlpGrYIzNng +8kwZBcXNvx2QocHdPqgH3itjvv6qIQ05GiwPM2Ni5zLQqP4a46AyDSHKk+dM +NRgYHK/x+swKGiauZrXMaDPwydDRun51GiKtNIarVjPwueCJjVKaNCSFuhpQ +Jgz83HA5OWYlDYWNj1oE7Ri4hX36wJpVNDR5Fw83RjDQ8cWZcGNjGqx/GUlE +HSa+nVFpz6GhPavTYHUsA002lBR5mdDQc0M4tjSVgfxKv7JkpOGrSLhEUhED +QVrEl2dBgyxtZWjZwMAP3Z0jmZtoOGXxdvefZgaK6Pz1JHYzDVRPdGxNKwP9 +Njn4h2yhQUvw6kPVFwzkONb3W22lwcxBcc/8jww8IzyvcmAbDQHTY7Etokx0 +TMqzOu1Ew9pQL+kPEkxc3uRvF72bhgVDvRVCskxUe1R03XEPDef7GrtMKCbe +1vl4bqEzDQN3cjWvGTBx7XnWz01cGmyTjLrPuDAxXGqrtIM3DUp/Lgfe9WCi ++dNtHGEfGr5EUEKvfJloVbHzUR1xio/IStlwJrb84yK7zI+G+o2vEjJTmGhi +cSK7OoAGPYk47cNVTPTOrw0LDqVBIG2iqaCGiazxhYY/iduF/Jxq6pgoUHzB +NzGMBv8J+6Sx+0zU1Xgvf2wfDaXd7D7vXiZKDlxuTNpPQ5jdyZCk10z0XJwo +/JsYH4nOO/eOiQb6cxpCI2h4VTepM/CViTedTDK2HaBBurjliIMQhUW/XYqm +D9LwToajELaAwsDIDcm7D9FwJauq6pgohboXXD/VEdvGF/Y/kqFQxvWA1P5I +Uv9PsbCPChRqSJz+t434y76E+fMoCl3uWqmwD5P6PQP0TDUpbP83XvEh8Y6B +fx8461K4Zy0+k4migb1z+94oAwondr0S9CCutzJJqUUKN61Y1jtOPKMhPqC1 +ncK5Vd6h09E0TJ6Si1vlROHO3OXCen/TML5YhW3kQqHJk6Y1vsRfvxv5WfhS ++E5jkPuU+LOnhahNEIV9Mpl7BGJo+PhyC227j0L5z35jWsSDde6TTtFkvXyJ +L3HEr7WCTrrGUzh9ftG2i8T9xQeNvZLJejNzdzwm7lmS8No/nUK/dZZTw8Rd +CRnxoccpfDH3ur5oLA3PJ/JVDuRReLs1UUKd+Kn32Zaofyh0G7XMtCBu66n0 +jy+h8N7uk+V7iB9trBVLOU8hRsp4hhE/uH2vKuMShVuM995LIm7Sfuxwgk+h +iPT8u3nE9850TRVUUzj2p8r5PPEdyTeFp29QGBr6s6SKuC7pM6f0DoVlfnFH +6oivT038W95I4SffwcWNxNd8BRL5LRTGhdzmtBBf6Vuodq2NQuu/roi3EvM3 +Sz26+YzCzQzX1P+78q5yYP1LCvfb+1x8SFyuqy7e3E+h6in/oPvEZedWX219 +Q+HHJJH+O8TnpGBHxwcKhSWGxq4RlyRbz3R9ptCyuZy+RHxqZltR/yiFnmXD +sqeIC/2dYXCC7NdqR40M4vxXPoP//aAwLyzrYyRxju2+pOFZCq0GDO28iI/f +i17+fQ4LPcPHPW2JM1eltE4Ls7CQ569mQJx2PjvojxgLoxLM8+SIU2ROLZmz +lIVML+rqL7Jf8T+rdi5WYmFRxvGZG8Qxgbd+LGWxcCE7lJ1LHPW6+ZTcchZW ++03OBhJHNPa9VdFjofV4bqss8T79D0c0DFmY6Cx0e4j0V8iF0RW6xizsar7F +vUnsnzY3xNiShddk7z6wJ/b5vVjSbCMLs747H5Un9gqWq9mwlYUevGnBQdLP +rtu0f9k7sfBh+2NZH+K9942Kd7mwcOQtt1aN2MnQwszZg4XhhmVi78l5cJB3 +TPENYmGz+NSnXcR2Ge4awftIPdPc4MXEW2YD28MPslB9cA3dSM6b1dv4pbHx +LFx55IuXCrFxRWVJXh4LpYU76trIee5jVBSv/4eFb9tDAw8SR+aVnx4vZmFm +1H/qTOLauLIi+3IWbj12sjWA5IPerpICsVssnN3Iqv5C8qSj7XT+7XoWml/e +15lMHGJ+Ki/gPgu1SnTnMol5KwtzHrWz0OilVeFmkkcr5uZkHXnDQqGlRuf+ +n18tkdnH9D+wcLWJ1U55Yq/RrMx3QyxMPx/GOE/yrrQvI91snIURjIjxKyQP +GVeSU/7MY+Mvi86rtcEkv1wOx0ZosvELt0fKy5/0d+ehGBVdNvqrLXd/TvLW +webg3536bIz1UH9iQpytvz9KD9h4RvHmXHFfGkQXBR/8asdGVzutP/940TDn +hluI1wE2/vM9u8yJ5P2YhI3rjgY2vpNUMTiwnYbuAOqp3wM2znt/QaLAgeRV +8w+IecxG+fSKpzVk3mRFVihf7GLjTp+48WE7GnQGF72eGWIj3ynrmxmZV0FV +T/aeklTBp9+r41MsaRiy3b77nYcKntWP7knWp+FZuVbrtK8KptyqTfJaTcNN +oXnrRINVcJ5/7EpzMm9Ta2vkDA6p4K+Y1YcmdWhYrizbm5yhgg3LEkTWk3nt +/bV3l0aNCo68K/ovniJ5nu66I2y+Kp40vF6ZLEreP6RJ6SxSxTHNeAoW0TC1 +YWZ4WFwVZwzejIwvpGGhUHaSr5wqXrW0zdm9gKz/UGO1q5Yqpj1Lk5USoiHa +U1XSdpsq8mXcfPaN8kHa5MsTjWJVjD4t/rqogQ/WIwes3xuoYWnbx7SSvXxQ +0FU6ssBYDVnT0+tnHfnwNaypQcNUDdest81w2sGHnElx47CNajgWU9M6z5YP +A7/LV866qGH/l34TA+RD2KJ+yWWpanisR7ruG5MPhStwYFOfGr4orBAYHSTf +l+4L9lXHLEf74v2OAbt55P9ARjC5YQV6DyYt+ax9GSTaVDPpEXVEiYE+q8kK +UEjhbzUw0MQeG0vNvYmXoEDDSFzSWwtTvh23LZEqh0dypvrfj69Es9zh6qUl +F2CtQkOWdpc2vuo4evnAX2UgJnQ2nBuvgzKLNM3XHC4FpThlY0dVXUw9+n5U +t+ssCKvsqbF/oIs774f6P4AzsJKzjH9grx6efiY5FXKqGMIGJBptBFbhxO4C +XvfJIhj5nr7dumAV7up9MXfk00nYoN1caK21GhW2Rv9u8M2HO9/X/ZxqX41/ +dhvm5PbnQJCmXm+Hpz5GxdYLyZRmA+erR6ejsAF+eLhYivbNgvVs2c2iZw3Q +IUSyd0QgA5bHHj3YYGiIC00DJhyyU0Hd0+iuSq8hyiuCy9+6R8Dzjk9idega +zK9wBR2nBLhb0ukxJmWEqutTrn8oiIXxi7NT2rVG2PV9V26vVxS4q1QIF25e +i9vKuOs7Qg/CmPoJgyuja5Gf+exbf0U4XC/9+WYiZR3eyzHvUykIBScLFq5T +MsbYhNKj4UOBIB+YfGNlvTEunyNmc3/SB6QWBlRt3snBMZGPQSm/PaDUPDpy +1JGDVeODQnLDHqAXnWl+Yg8H9db6Xajp94Ato/SLbi4HlT+NCC655QFHuiZm +3AM4uFx01Nf6sAdMn40xi4zjIONCx3DjT3foXXfieVkFB0NTXJ/XznEHn/2l +RdY8DrYscFQqmXCDSd41zy80B9/kpt3L/uAGElT3lG4NB7N0LX7ktbjBxgWK +CrfrOZit87FALsMNbnWWeTx/wcFZ79t8YVk3sBG7rhXRzcEbXHybI+wG3Rse +Tsr2cZBr7yit/pML4zc/pzj/y0GJEFfPsAEuaJ3RufxpiIONiZWikee5cKvX +NCJ9mIOTM3WlDvlcsFm6DbRHOfgj4Npio1QueCXv7wif4KBZVtVG5UDyvPoj +hTLTHDy5YWAJ04UL8T/y3W/+4KDgIus8TTsuiK8u19z7m4M1VmnPTc25cDrw +5sTsLAf/08QmV30u/A+0CBdn + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VesXB3CXJolEhozn7HNQhgyFlGMtQ0KDSAMVjnmekkpcc8iQZMpV +VFKic7YSlQYhKVFKMqWbhltKKGOT3/v7Yz/7+fyz97ued73ftTfTLdjeU1BA +QOAHuf5/nxx42MROKzVJfecRH1fNMek8LXvItDseFjyO0qgEeUCpJ26y3dkg +vZSvFwQaELH10kuh7rPwJlEeLGEdLPkqkz3z8grca37vIwYb4fWtLcHjLxug +yPyqmLvJbrBkD70ae/kM/rySaH2yzh9mXhrmjr4chHjdt+xs3cPQaH6htOPs +d5hmNHgIqKWDwusbH9w0f8P8dIaryNUcWBrgcmm+uRBG/qWWyx0vhGxdy7ot +2xeglde14j1XSqCnQKd+TFwUW8bs9jLizkFaacwTwWVL0EnIwMl3UxnI5LxN +PXFKEstzE78+aLgIyQ7WJs8mpfCNk+H9NQ8vgVx1u5zgX9I4W+Nq6d1xCXiS +DlO6ItJ4yyosM6vnEnQ9c6aPK0tjy5aw4OefLgHbLpyys5JGSsTMSW5hBTRs +Lp739KQ01salClVaV8Bvy4n2NmMZrPqcF9vdVAH7jM64PIyXxZxQKlO9ohJs +SsTGN6bL4lEx33fHqiqBmh+V0p4ri48cliWM1lbC084dVc8vyqKs6Lf8c02V +sDJkkdBAuyxqiPhJdryqhI9lB8q+yS1D/q3n41aLL8OepVuG5a8uQ25rxN3y +oMtgMfIjMuitHHroPMhQUubBIasc9Xtf5PBG4GGWEZsHvDNavZKTcsi4/lPJ +dgUPZB1cjW4skMf1FR8sA1fx4Mv1+1NCK+Uxc9xuZ9gGHpyIzwo/eVAea8+d +8SwO4sGglGpQk6gC6plubEu8wQOZ4LuKMjIKODqtNiVyhwebWna1+TIU0DRd +JymzgQc1kWmai1cpoP/2V21JrTw4+np0yHGXAooPp0twXvFAr7zOe+SsAiaG +a4e3z/IgztiOK7dGEUe0U9SjTflg5Xz6m6GZIj5MG2puXs8HsdjPCds3KaJT +1v2ZhTZ8KGpMKstyVcS6+XWsBHs+XLe5+XleqiKOv2nP1HPnw+guVsT3HkUs +mB2aykjgg/P+iaOPDyvhhsdeMkb1fFDJN1MYSlLCb6p353U18kn9xy7Pz1LC +vrhleYEP+BD5a8VTs1IlNBv2yUtv50NugrPUjcdKGJjxYvnRfj48Pv6g+Lyi +Mq672jyeMMWHtbyT1X/fVcaDFoI3by6lweJl+++vLcp4ucDmbzlpGrYIzNng +8kwZBcXNvx2QocHdPqgH3itjvv6qIQ05GiwPM2Ni5zLQqP4a46AyDSHKk+dM +NRgYHK/x+swKGiauZrXMaDPwydDRun51GiKtNIarVjPwueCJjVKaNCSFuhpQ +Jgz83HA5OWYlDYWNj1oE7Ri4hX36wJpVNDR5Fw83RjDQ8cWZcGNjGqx/GUlE +HSa+nVFpz6GhPavTYHUsA002lBR5mdDQc0M4tjSVgfxKv7JkpOGrSLhEUhED +QVrEl2dBgyxtZWjZwMAP3Z0jmZtoOGXxdvefZgaK6Pz1JHYzDVRPdGxNKwP9 +Njn4h2yhQUvw6kPVFwzkONb3W22lwcxBcc/8jww8IzyvcmAbDQHTY7Etokx0 +TMqzOu1Ew9pQL+kPEkxc3uRvF72bhgVDvRVCskxUe1R03XEPDef7GrtMKCbe +1vl4bqEzDQN3cjWvGTBx7XnWz01cGmyTjLrPuDAxXGqrtIM3DUp/Lgfe9WCi ++dNtHGEfGr5EUEKvfJloVbHzUR1xio/IStlwJrb84yK7zI+G+o2vEjJTmGhi +cSK7OoAGPYk47cNVTPTOrw0LDqVBIG2iqaCGiazxhYY/iduF/Jxq6pgoUHzB +NzGMBv8J+6Sx+0zU1Xgvf2wfDaXd7D7vXiZKDlxuTNpPQ5jdyZCk10z0XJwo +/JsYH4nOO/eOiQb6cxpCI2h4VTepM/CViTedTDK2HaBBurjliIMQhUW/XYqm +D9LwToajELaAwsDIDcm7D9FwJauq6pgohboXXD/VEdvGF/Y/kqFQxvWA1P5I +Uv9PsbCPChRqSJz+t434y76E+fMoCl3uWqmwD5P6PQP0TDUpbP83XvEh8Y6B +fx8461K4Zy0+k4migb1z+94oAwondr0S9CCutzJJqUUKN61Y1jtOPKMhPqC1 +ncK5Vd6h09E0TJ6Si1vlROHO3OXCen/TML5YhW3kQqHJk6Y1vsRfvxv5WfhS ++E5jkPuU+LOnhahNEIV9Mpl7BGJo+PhyC227j0L5z35jWsSDde6TTtFkvXyJ +L3HEr7WCTrrGUzh9ftG2i8T9xQeNvZLJejNzdzwm7lmS8No/nUK/dZZTw8Rd +CRnxoccpfDH3ur5oLA3PJ/JVDuRReLs1UUKd+Kn32Zaofyh0G7XMtCBu66n0 +jy+h8N7uk+V7iB9trBVLOU8hRsp4hhE/uH2vKuMShVuM995LIm7Sfuxwgk+h +iPT8u3nE9850TRVUUzj2p8r5PPEdyTeFp29QGBr6s6SKuC7pM6f0DoVlfnFH +6oivT038W95I4SffwcWNxNd8BRL5LRTGhdzmtBBf6Vuodq2NQuu/roi3EvM3 +Sz26+YzCzQzX1P+78q5yYP1LCvfb+1x8SFyuqy7e3E+h6in/oPvEZedWX219 +Q+HHJJH+O8TnpGBHxwcKhSWGxq4RlyRbz3R9ptCyuZy+RHxqZltR/yiFnmXD +sqeIC/2dYXCC7NdqR40M4vxXPoP//aAwLyzrYyRxju2+pOFZCq0GDO28iI/f +i17+fQ4LPcPHPW2JM1eltE4Ls7CQ569mQJx2PjvojxgLoxLM8+SIU2ROLZmz +lIVML+rqL7Jf8T+rdi5WYmFRxvGZG8Qxgbd+LGWxcCE7lJ1LHPW6+ZTcchZW ++03OBhJHNPa9VdFjofV4bqss8T79D0c0DFmY6Cx0e4j0V8iF0RW6xizsar7F +vUnsnzY3xNiShddk7z6wJ/b5vVjSbCMLs747H5Un9gqWq9mwlYUevGnBQdLP +rtu0f9k7sfBh+2NZH+K9942Kd7mwcOQtt1aN2MnQwszZg4XhhmVi78l5cJB3 +TPENYmGz+NSnXcR2Ge4awftIPdPc4MXEW2YD28MPslB9cA3dSM6b1dv4pbHx +LFx55IuXCrFxRWVJXh4LpYU76trIee5jVBSv/4eFb9tDAw8SR+aVnx4vZmFm +1H/qTOLauLIi+3IWbj12sjWA5IPerpICsVssnN3Iqv5C8qSj7XT+7XoWml/e +15lMHGJ+Ki/gPgu1SnTnMol5KwtzHrWz0OilVeFmkkcr5uZkHXnDQqGlRuf+ +n18tkdnH9D+wcLWJ1U55Yq/RrMx3QyxMPx/GOE/yrrQvI91snIURjIjxKyQP +GVeSU/7MY+Mvi86rtcEkv1wOx0ZosvELt0fKy5/0d+ehGBVdNvqrLXd/TvLW +webg3536bIz1UH9iQpytvz9KD9h4RvHmXHFfGkQXBR/8asdGVzutP/940TDn +hluI1wE2/vM9u8yJ5P2YhI3rjgY2vpNUMTiwnYbuAOqp3wM2znt/QaLAgeRV +8w+IecxG+fSKpzVk3mRFVihf7GLjTp+48WE7GnQGF72eGWIj3ynrmxmZV0FV +T/aeklTBp9+r41MsaRiy3b77nYcKntWP7knWp+FZuVbrtK8KptyqTfJaTcNN +oXnrRINVcJ5/7EpzMm9Ta2vkDA6p4K+Y1YcmdWhYrizbm5yhgg3LEkTWk3nt +/bV3l0aNCo68K/ovniJ5nu66I2y+Kp40vF6ZLEreP6RJ6SxSxTHNeAoW0TC1 +YWZ4WFwVZwzejIwvpGGhUHaSr5wqXrW0zdm9gKz/UGO1q5Yqpj1Lk5USoiHa +U1XSdpsq8mXcfPaN8kHa5MsTjWJVjD4t/rqogQ/WIwes3xuoYWnbx7SSvXxQ +0FU6ssBYDVnT0+tnHfnwNaypQcNUDdest81w2sGHnElx47CNajgWU9M6z5YP +A7/LV866qGH/l34TA+RD2KJ+yWWpanisR7ruG5MPhStwYFOfGr4orBAYHSTf +l+4L9lXHLEf74v2OAbt55P9ARjC5YQV6DyYt+ax9GSTaVDPpEXVEiYE+q8kK +UEjhbzUw0MQeG0vNvYmXoEDDSFzSWwtTvh23LZEqh0dypvrfj69Es9zh6qUl +F2CtQkOWdpc2vuo4evnAX2UgJnQ2nBuvgzKLNM3XHC4FpThlY0dVXUw9+n5U +t+ssCKvsqbF/oIs774f6P4AzsJKzjH9grx6efiY5FXKqGMIGJBptBFbhxO4C +XvfJIhj5nr7dumAV7up9MXfk00nYoN1caK21GhW2Rv9u8M2HO9/X/ZxqX41/ +dhvm5PbnQJCmXm+Hpz5GxdYLyZRmA+erR6ejsAF+eLhYivbNgvVs2c2iZw3Q +IUSyd0QgA5bHHj3YYGiIC00DJhyyU0Hd0+iuSq8hyiuCy9+6R8Dzjk9idega +zK9wBR2nBLhb0ukxJmWEqutTrn8oiIXxi7NT2rVG2PV9V26vVxS4q1QIF25e +i9vKuOs7Qg/CmPoJgyuja5Gf+exbf0U4XC/9+WYiZR3eyzHvUykIBScLFq5T +MsbYhNKj4UOBIB+YfGNlvTEunyNmc3/SB6QWBlRt3snBMZGPQSm/PaDUPDpy +1JGDVeODQnLDHqAXnWl+Yg8H9db6Xajp94Ato/SLbi4HlT+NCC655QFHuiZm +3AM4uFx01Nf6sAdMn40xi4zjIONCx3DjT3foXXfieVkFB0NTXJ/XznEHn/2l +RdY8DrYscFQqmXCDSd41zy80B9/kpt3L/uAGElT3lG4NB7N0LX7ktbjBxgWK +CrfrOZit87FALsMNbnWWeTx/wcFZ79t8YVk3sBG7rhXRzcEbXHybI+wG3Rse +Tsr2cZBr7yit/pML4zc/pzj/y0GJEFfPsAEuaJ3RufxpiIONiZWikee5cKvX +NCJ9mIOTM3WlDvlcsFm6DbRHOfgj4Npio1QueCXv7wif4KBZVtVG5UDyvPoj +hTLTHDy5YWAJ04UL8T/y3W/+4KDgIus8TTsuiK8u19z7m4M1VmnPTc25cDrw +5sTsLAf/08QmV30u/A+0CBdn + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06446525672811383}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06446525672811383}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VesXB3CXJolEhozn7HNQhgyFlGMtQ0KDSAMVjnmekkpcc8iQZMpV +VFKic7YSlQYhKVFKMqWbhltKKGOT3/v7Yz/7+fyz97ued73ftTfTLdjeU1BA +QOAHuf5/nxx42MROKzVJfecRH1fNMek8LXvItDseFjyO0qgEeUCpJ26y3dkg +vZSvFwQaELH10kuh7rPwJlEeLGEdLPkqkz3z8grca37vIwYb4fWtLcHjLxug +yPyqmLvJbrBkD70ae/kM/rySaH2yzh9mXhrmjr4chHjdt+xs3cPQaH6htOPs +d5hmNHgIqKWDwusbH9w0f8P8dIaryNUcWBrgcmm+uRBG/qWWyx0vhGxdy7ot +2xeglde14j1XSqCnQKd+TFwUW8bs9jLizkFaacwTwWVL0EnIwMl3UxnI5LxN +PXFKEstzE78+aLgIyQ7WJs8mpfCNk+H9NQ8vgVx1u5zgX9I4W+Nq6d1xCXiS +DlO6ItJ4yyosM6vnEnQ9c6aPK0tjy5aw4OefLgHbLpyys5JGSsTMSW5hBTRs +Lp739KQ01salClVaV8Bvy4n2NmMZrPqcF9vdVAH7jM64PIyXxZxQKlO9ohJs +SsTGN6bL4lEx33fHqiqBmh+V0p4ri48cliWM1lbC084dVc8vyqKs6Lf8c02V +sDJkkdBAuyxqiPhJdryqhI9lB8q+yS1D/q3n41aLL8OepVuG5a8uQ25rxN3y +oMtgMfIjMuitHHroPMhQUubBIasc9Xtf5PBG4GGWEZsHvDNavZKTcsi4/lPJ +dgUPZB1cjW4skMf1FR8sA1fx4Mv1+1NCK+Uxc9xuZ9gGHpyIzwo/eVAea8+d +8SwO4sGglGpQk6gC6plubEu8wQOZ4LuKMjIKODqtNiVyhwebWna1+TIU0DRd +JymzgQc1kWmai1cpoP/2V21JrTw4+np0yHGXAooPp0twXvFAr7zOe+SsAiaG +a4e3z/IgztiOK7dGEUe0U9SjTflg5Xz6m6GZIj5MG2puXs8HsdjPCds3KaJT +1v2ZhTZ8KGpMKstyVcS6+XWsBHs+XLe5+XleqiKOv2nP1HPnw+guVsT3HkUs +mB2aykjgg/P+iaOPDyvhhsdeMkb1fFDJN1MYSlLCb6p353U18kn9xy7Pz1LC +vrhleYEP+BD5a8VTs1IlNBv2yUtv50NugrPUjcdKGJjxYvnRfj48Pv6g+Lyi +Mq672jyeMMWHtbyT1X/fVcaDFoI3by6lweJl+++vLcp4ucDmbzlpGrYIzNng +8kwZBcXNvx2QocHdPqgH3itjvv6qIQ05GiwPM2Ni5zLQqP4a46AyDSHKk+dM +NRgYHK/x+swKGiauZrXMaDPwydDRun51GiKtNIarVjPwueCJjVKaNCSFuhpQ +Jgz83HA5OWYlDYWNj1oE7Ri4hX36wJpVNDR5Fw83RjDQ8cWZcGNjGqx/GUlE +HSa+nVFpz6GhPavTYHUsA002lBR5mdDQc0M4tjSVgfxKv7JkpOGrSLhEUhED +QVrEl2dBgyxtZWjZwMAP3Z0jmZtoOGXxdvefZgaK6Pz1JHYzDVRPdGxNKwP9 +Njn4h2yhQUvw6kPVFwzkONb3W22lwcxBcc/8jww8IzyvcmAbDQHTY7Etokx0 +TMqzOu1Ew9pQL+kPEkxc3uRvF72bhgVDvRVCskxUe1R03XEPDef7GrtMKCbe +1vl4bqEzDQN3cjWvGTBx7XnWz01cGmyTjLrPuDAxXGqrtIM3DUp/Lgfe9WCi ++dNtHGEfGr5EUEKvfJloVbHzUR1xio/IStlwJrb84yK7zI+G+o2vEjJTmGhi +cSK7OoAGPYk47cNVTPTOrw0LDqVBIG2iqaCGiazxhYY/iduF/Jxq6pgoUHzB +NzGMBv8J+6Sx+0zU1Xgvf2wfDaXd7D7vXiZKDlxuTNpPQ5jdyZCk10z0XJwo +/JsYH4nOO/eOiQb6cxpCI2h4VTepM/CViTedTDK2HaBBurjliIMQhUW/XYqm +D9LwToajELaAwsDIDcm7D9FwJauq6pgohboXXD/VEdvGF/Y/kqFQxvWA1P5I +Uv9PsbCPChRqSJz+t434y76E+fMoCl3uWqmwD5P6PQP0TDUpbP83XvEh8Y6B +fx8461K4Zy0+k4migb1z+94oAwondr0S9CCutzJJqUUKN61Y1jtOPKMhPqC1 +ncK5Vd6h09E0TJ6Si1vlROHO3OXCen/TML5YhW3kQqHJk6Y1vsRfvxv5WfhS ++E5jkPuU+LOnhahNEIV9Mpl7BGJo+PhyC227j0L5z35jWsSDde6TTtFkvXyJ +L3HEr7WCTrrGUzh9ftG2i8T9xQeNvZLJejNzdzwm7lmS8No/nUK/dZZTw8Rd +CRnxoccpfDH3ur5oLA3PJ/JVDuRReLs1UUKd+Kn32Zaofyh0G7XMtCBu66n0 +jy+h8N7uk+V7iB9trBVLOU8hRsp4hhE/uH2vKuMShVuM995LIm7Sfuxwgk+h +iPT8u3nE9850TRVUUzj2p8r5PPEdyTeFp29QGBr6s6SKuC7pM6f0DoVlfnFH +6oivT038W95I4SffwcWNxNd8BRL5LRTGhdzmtBBf6Vuodq2NQuu/roi3EvM3 +Sz26+YzCzQzX1P+78q5yYP1LCvfb+1x8SFyuqy7e3E+h6in/oPvEZedWX219 +Q+HHJJH+O8TnpGBHxwcKhSWGxq4RlyRbz3R9ptCyuZy+RHxqZltR/yiFnmXD +sqeIC/2dYXCC7NdqR40M4vxXPoP//aAwLyzrYyRxju2+pOFZCq0GDO28iI/f +i17+fQ4LPcPHPW2JM1eltE4Ls7CQ569mQJx2PjvojxgLoxLM8+SIU2ROLZmz +lIVML+rqL7Jf8T+rdi5WYmFRxvGZG8Qxgbd+LGWxcCE7lJ1LHPW6+ZTcchZW ++03OBhJHNPa9VdFjofV4bqss8T79D0c0DFmY6Cx0e4j0V8iF0RW6xizsar7F +vUnsnzY3xNiShddk7z6wJ/b5vVjSbCMLs747H5Un9gqWq9mwlYUevGnBQdLP +rtu0f9k7sfBh+2NZH+K9942Kd7mwcOQtt1aN2MnQwszZg4XhhmVi78l5cJB3 +TPENYmGz+NSnXcR2Ge4awftIPdPc4MXEW2YD28MPslB9cA3dSM6b1dv4pbHx +LFx55IuXCrFxRWVJXh4LpYU76trIee5jVBSv/4eFb9tDAw8SR+aVnx4vZmFm +1H/qTOLauLIi+3IWbj12sjWA5IPerpICsVssnN3Iqv5C8qSj7XT+7XoWml/e +15lMHGJ+Ki/gPgu1SnTnMol5KwtzHrWz0OilVeFmkkcr5uZkHXnDQqGlRuf+ +n18tkdnH9D+wcLWJ1U55Yq/RrMx3QyxMPx/GOE/yrrQvI91snIURjIjxKyQP +GVeSU/7MY+Mvi86rtcEkv1wOx0ZosvELt0fKy5/0d+ehGBVdNvqrLXd/TvLW +webg3536bIz1UH9iQpytvz9KD9h4RvHmXHFfGkQXBR/8asdGVzutP/940TDn +hluI1wE2/vM9u8yJ5P2YhI3rjgY2vpNUMTiwnYbuAOqp3wM2znt/QaLAgeRV +8w+IecxG+fSKpzVk3mRFVihf7GLjTp+48WE7GnQGF72eGWIj3ynrmxmZV0FV +T/aeklTBp9+r41MsaRiy3b77nYcKntWP7knWp+FZuVbrtK8KptyqTfJaTcNN +oXnrRINVcJ5/7EpzMm9Ta2vkDA6p4K+Y1YcmdWhYrizbm5yhgg3LEkTWk3nt +/bV3l0aNCo68K/ovniJ5nu66I2y+Kp40vF6ZLEreP6RJ6SxSxTHNeAoW0TC1 +YWZ4WFwVZwzejIwvpGGhUHaSr5wqXrW0zdm9gKz/UGO1q5Yqpj1Lk5USoiHa +U1XSdpsq8mXcfPaN8kHa5MsTjWJVjD4t/rqogQ/WIwes3xuoYWnbx7SSvXxQ +0FU6ssBYDVnT0+tnHfnwNaypQcNUDdest81w2sGHnElx47CNajgWU9M6z5YP +A7/LV866qGH/l34TA+RD2KJ+yWWpanisR7ruG5MPhStwYFOfGr4orBAYHSTf +l+4L9lXHLEf74v2OAbt55P9ARjC5YQV6DyYt+ax9GSTaVDPpEXVEiYE+q8kK +UEjhbzUw0MQeG0vNvYmXoEDDSFzSWwtTvh23LZEqh0dypvrfj69Es9zh6qUl +F2CtQkOWdpc2vuo4evnAX2UgJnQ2nBuvgzKLNM3XHC4FpThlY0dVXUw9+n5U +t+ssCKvsqbF/oIs774f6P4AzsJKzjH9grx6efiY5FXKqGMIGJBptBFbhxO4C +XvfJIhj5nr7dumAV7up9MXfk00nYoN1caK21GhW2Rv9u8M2HO9/X/ZxqX41/ +dhvm5PbnQJCmXm+Hpz5GxdYLyZRmA+erR6ejsAF+eLhYivbNgvVs2c2iZw3Q +IUSyd0QgA5bHHj3YYGiIC00DJhyyU0Hd0+iuSq8hyiuCy9+6R8Dzjk9idega +zK9wBR2nBLhb0ukxJmWEqutTrn8oiIXxi7NT2rVG2PV9V26vVxS4q1QIF25e +i9vKuOs7Qg/CmPoJgyuja5Gf+exbf0U4XC/9+WYiZR3eyzHvUykIBScLFq5T +MsbYhNKj4UOBIB+YfGNlvTEunyNmc3/SB6QWBlRt3snBMZGPQSm/PaDUPDpy +1JGDVeODQnLDHqAXnWl+Yg8H9db6Xajp94Ato/SLbi4HlT+NCC655QFHuiZm +3AM4uFx01Nf6sAdMn40xi4zjIONCx3DjT3foXXfieVkFB0NTXJ/XznEHn/2l +RdY8DrYscFQqmXCDSd41zy80B9/kpt3L/uAGElT3lG4NB7N0LX7ktbjBxgWK +CrfrOZit87FALsMNbnWWeTx/wcFZ79t8YVk3sBG7rhXRzcEbXHybI+wG3Rse +Tsr2cZBr7yit/pML4zc/pzj/y0GJEFfPsAEuaJ3RufxpiIONiZWikee5cKvX +NCJ9mIOTM3WlDvlcsFm6DbRHOfgj4Npio1QueCXv7wif4KBZVtVG5UDyvPoj +hTLTHDy5YWAJ04UL8T/y3W/+4KDgIus8TTsuiK8u19z7m4M1VmnPTc25cDrw +5sTsLAf/08QmV30u/A+0CBdn + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06446525672811383}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06446525672811383}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939135006383677`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"205fba32-9f9d-4b11-a5d1-95d9019915d0"] +}, Open ]], Cell[CellGroupData[{ @@ -7262,18 +14776,72 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.592191633001042`*^-179\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 73, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913500666773*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"35ac7f20-3b11-4d88-978d-7f32ad24ce93"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.8509500406875697`*^-182\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 142, 74, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913500676601*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"38041153-34b5-4fb9-8fc4-23236d0fdbb7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0705625631427394`*^-185\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 142, 75, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939135006820507`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"b7cde893-a778-4794-b3c9-aed1ff2d417c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939135006870604`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"651fb598-3c4a-451d-865b-11ff50e4bc28"], + +Cell[BoxData["10.979614470584425`"], "Output", + CellChangeTimes->{3.993913529547102*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"213cb7a6-2451-4e24-91f1-449f35b14a19"] }, Open ]], Cell[CellGroupData[{ @@ -7340,27 +14908,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850818889292*^9, - 3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\ -5dd8190b0268"], + CellChangeTimes->{{3.991850818889292*^9, 3.9918508230677433`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"905b237c-0e51-ab4b-895d-05994c6f1d5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2134355719937444`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 77, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913529581897*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"ce604b68-114a-4b33-9aea-865c1b87507b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ad8c79e-9570-a44d-b593-07aa87056e21"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9668106511679415`*^-208\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 143, 78, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913529588193*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"874ff68d-19ef-445e-878a-71c50fb3a18b"], -Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.253755900217599`*^-213\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 143, 79, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913529593472*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"782b1360-044e-43c4-aea0-39ccf16a83e3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913529599018*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"a91ba5e4-403c-42af-8eb0-95bcf0ab0eb6"], + +Cell[BoxData["2.773879147745742`"], "Output", + CellChangeTimes->{3.993913534469509*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"bb39e09c-deab-4308-98ce-715faee42368"] }, Open ]], Cell[CellGroupData[{ @@ -7381,8 +14994,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7427,27 +15039,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850826380268*^9, - 3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\ -98d71f8a8458"], + CellChangeTimes->{{3.991850826380268*^9, 3.991850829169306*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c516c31a-74b4-f24d-a16a-678221cde87e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2134355719937444`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 81, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913534496759*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"0c60132a-a10d-4f76-a708-24d4be75ff57"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"5c50b555-9ebe-f94d-801f-34634555f622"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9668106511679415`*^-208\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 144, 82, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913534502398*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"14e0a593-4ff1-466d-9f47-cde7571192f1"], -Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.253755900217599`*^-213\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 144, 83, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913534507841*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"ec5618c2-16b8-4f3f-b445-2c769ea7cba0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939135345134172`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"8060fbac-2786-4e43-8706-c957daf10c7a"], + +Cell[BoxData["37.99421101278763`"], "Output", + CellChangeTimes->{3.9939135394350843`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"2005050e-e01f-49ca-bb21-0a3924af24d1"] }, Open ]], Cell[CellGroupData[{ @@ -7468,8 +15125,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7514,27 +15170,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918508329145336`*^9, - 3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\ -57c1fe1d0585"], + CellChangeTimes->{{3.9918508329145336`*^9, 3.991850837197098*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ca591cf-a5ce-ce41-8101-8edfca50e890"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2134355719937444`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 85, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913539465149*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"99a069e4-d3ca-4512-b738-ebfc6e4e7060"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cbafd11a-4be0-b541-81e4-e62191ae7695"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9668106511679415`*^-208\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 145, 86, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913539470263*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"cabd1be7-8d6c-486e-9899-ee651b833771"], -Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.253755900217599`*^-213\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 145, 87, + 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913539475628*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"e2bae2d3-0c6f-4403-8ac3-647c035552c5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913539480692*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"ae0ead6e-71cc-44f1-9e5f-d6b75a022c26"], + +Cell[BoxData["10.393321679965391`"], "Output", + CellChangeTimes->{3.993913542509152*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"5d538ca9-5b3e-4837-88b8-1917f2562f50"] }, Open ]], Cell[CellGroupData[{ @@ -7543,17 +15244,31 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918508397421246`*^9, - 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ -1ca469b254bd"], + CellChangeTimes->{{3.9918508397421246`*^9, 3.9918508449867363`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] -}, Open ]] +Cell[BoxData["0.13958914142649398`"], "Output", + CellChangeTimes->{3.993913542536428*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"6bb6bf52-cfe5-4a57-b6d2-fe3e7c7debfe"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"94150439-83be-4890-9aea-082b5dc3e6e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9939111367098722`*^9, + 3.993911142432281*^9}},ExpressionUUID->"3d0ba265-1b31-40bb-9ba6-\ +b5d6b8ec0f46"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +Evaluator->"kernel 3", +WindowSize->{714, 288}, +WindowMargins->{{Automatic, 3}, {297, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" ] @@ -7568,354 +15283,642 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], -Cell[706, 26, 152, 3, 28, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], -Cell[861, 31, 147, 4, 28, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], -Cell[1011, 37, 154, 3, 28, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ -Cell[1190, 44, 1273, 41, 113, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[2466, 87, 106, 0, 32, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[576, 22, 423, 7, 29, "Input",ExpressionUUID->"05abdda5-6716-4539-b9fb-ae2303dccf46"], +Cell[1002, 31, 419, 6, 33, "Output",ExpressionUUID->"9cd80fad-0394-47c1-a772-56d3714afda6"] }, Open ]], Cell[CellGroupData[{ -Cell[2609, 92, 910, 31, 56, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[3522, 125, 106, 0, 32, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[1458, 42, 246, 4, 29, "Input",ExpressionUUID->"cd5cd0d6-a8ba-4b3f-8592-3df67108385a"], +Cell[1707, 48, 422, 6, 33, "Output",ExpressionUUID->"c0a788f1-57ef-4e02-adf3-b04fe76ad3d9"] }, Open ]], Cell[CellGroupData[{ -Cell[3665, 130, 885, 30, 56, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[4553, 162, 106, 0, 32, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[2166, 59, 220, 4, 29, "Input",ExpressionUUID->"558420ee-02da-499e-bd2a-f2a43ca12933"], +Cell[2389, 65, 445, 7, 33, "Output",ExpressionUUID->"ddeec9b0-5b90-42c2-9388-644aaf5668ed"] }, Open ]], Cell[CellGroupData[{ -Cell[4696, 167, 532, 18, 52, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[5231, 187, 101, 0, 32, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[2871, 77, 175, 3, 29, "Input",ExpressionUUID->"d3bc849a-5e55-432a-b28b-594968228043"], +Cell[3049, 82, 419, 6, 33, "Output",ExpressionUUID->"e1eb2a14-cf38-4c11-9fca-f61c89510188"] }, Open ]], Cell[CellGroupData[{ -Cell[5369, 192, 625, 21, 52, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[5997, 215, 100, 0, 32, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[3505, 93, 257, 7, 42, "Input",ExpressionUUID->"10870501-ce8c-4871-ad24-0c2548183c2c"], +Cell[3765, 102, 434, 6, 33, "Output",ExpressionUUID->"11a8f3fa-0d8c-42ea-9bcf-e05ba723ad90"] }, Open ]], Cell[CellGroupData[{ -Cell[6134, 220, 144, 4, 56, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[6281, 226, 101, 0, 32, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[4236, 113, 131, 2, 29, "Input",ExpressionUUID->"0ef67241-c95f-4056-8a4b-a6169ada793e"], +Cell[4370, 117, 424, 6, 33, "Output",ExpressionUUID->"06df9a5b-7d37-45d4-865d-868f50964049"] }, Open ]], Cell[CellGroupData[{ -Cell[6419, 231, 144, 4, 55, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[6566, 237, 100, 0, 70, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[4831, 128, 276, 6, 29, "Input",ExpressionUUID->"33a752f8-2310-43ff-9eef-7b0ab1b04094"], +Cell[5110, 136, 432, 6, 33, "Output",ExpressionUUID->"e0cad35c-8020-493f-b199-0e7136d6e7a8"] }, Open ]], Cell[CellGroupData[{ -Cell[6703, 242, 155, 4, 70, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[6861, 248, 101, 0, 70, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[5579, 147, 257, 7, 29, "Input",ExpressionUUID->"82b66ab5-7d1a-4258-b326-7a3555e2ea3b"], +Cell[5839, 156, 430, 6, 33, "Output",ExpressionUUID->"1f727c2f-3764-46d3-9b3a-1c6724532477"] }, Open ]], Cell[CellGroupData[{ -Cell[6999, 253, 155, 4, 70, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[7157, 259, 101, 0, 70, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[6306, 167, 226, 4, 29, "Input",ExpressionUUID->"92bc2628-c51f-4379-9a35-5375e7b9e02c"], +Cell[6535, 173, 398, 6, 33, "Output",ExpressionUUID->"f0a7413b-dfde-44f5-b2ec-5d8f88ebef26"] }, Open ]], Cell[CellGroupData[{ -Cell[7295, 264, 6029, 184, 70, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[13327, 450, 102, 0, 70, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[6970, 184, 226, 4, 29, "Input",ExpressionUUID->"42d59920-a751-4232-8dde-77286251eab3"], +Cell[7199, 190, 393, 6, 33, "Output",ExpressionUUID->"a97bcfc2-d77e-454e-b40f-d835655ffecf"] }, Open ]], Cell[CellGroupData[{ -Cell[13466, 455, 342, 8, 70, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[13811, 465, 342, 6, 70, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], -Cell[14156, 473, 100, 0, 70, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[7629, 201, 129, 2, 29, "Input",ExpressionUUID->"72e621b3-c03d-497f-91a7-65c9d0ef6588"], +Cell[7761, 205, 418, 6, 33, "Output",ExpressionUUID->"576644a1-efb9-41e7-88cc-80f962284c93"] }, Open ]], Cell[CellGroupData[{ -Cell[14293, 478, 6096, 186, 70, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[20392, 666, 103, 0, 70, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[8216, 216, 129, 2, 29, "Input",ExpressionUUID->"f5e5c926-defc-4793-b5c2-2f5d7194b52e"], +Cell[8348, 220, 415, 6, 33, "Output",ExpressionUUID->"b2b1e75c-60e4-4b9a-b950-c90996c641e7"] }, Open ]], Cell[CellGroupData[{ -Cell[20532, 671, 342, 8, 70, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[20877, 681, 342, 6, 70, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], -Cell[21222, 689, 100, 0, 70, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[8800, 231, 557, 19, 79, "Input",ExpressionUUID->"e20340b0-09dd-4d7b-9833-df972bfbc8d2"], +Cell[9360, 252, 436, 6, 33, "Output",ExpressionUUID->"563cdf2b-f221-4e5e-bf07-e3b9276f05c0"] }, Open ]], Cell[CellGroupData[{ -Cell[21359, 694, 2637, 87, 70, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[23999, 783, 101, 0, 70, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[9833, 263, 557, 19, 79, "Input",ExpressionUUID->"17a1420c-668f-48bf-a33a-0377c4d53583"], +Cell[10393, 284, 433, 6, 33, "Output",ExpressionUUID->"b4d79cd8-d126-4891-96e3-222141efb8f7"] }, Open ]], Cell[CellGroupData[{ -Cell[24137, 788, 2577, 84, 70, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[26717, 874, 102, 0, 70, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[10863, 295, 1492, 48, 79, "Input",ExpressionUUID->"7f898a1c-4149-4e48-8d5a-787d921cc6c3"], +Cell[12358, 345, 432, 6, 33, "Output",ExpressionUUID->"124437ae-44e8-485f-88b0-b1f928125941"] }, Open ]], Cell[CellGroupData[{ -Cell[26856, 879, 3686, 117, 70, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[30545, 998, 102, 0, 70, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] -}, Open ]], -Cell[30662, 1001, 138, 3, 70, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], -Cell[CellGroupData[{ -Cell[30825, 1008, 2054, 59, 70, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], -Cell[32882, 1069, 342, 6, 70, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], -Cell[33227, 1077, 342, 6, 70, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], -Cell[33572, 1085, 100, 0, 70, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[12827, 356, 1331, 44, 79, "Input",ExpressionUUID->"72e232d5-d2ad-47f0-b0a4-21bb92079088"], +Cell[14161, 402, 448, 7, 33, "Output",ExpressionUUID->"4df238bf-c3aa-46d1-a1c1-7e9ce4f55397"] }, Open ]], Cell[CellGroupData[{ -Cell[33709, 1090, 2049, 58, 70, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], -Cell[35761, 1150, 342, 6, 70, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], -Cell[36106, 1158, 342, 6, 70, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], -Cell[36451, 1166, 100, 0, 70, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[14646, 414, 1331, 44, 79, "Input",ExpressionUUID->"1edc2047-e88e-44db-b381-c35783007001"], +Cell[15980, 460, 451, 7, 33, "Output",ExpressionUUID->"1045f8fe-474d-4bf7-a620-469cddacd665"] }, Open ]], Cell[CellGroupData[{ -Cell[36588, 1171, 1938, 53, 70, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], -Cell[38529, 1226, 342, 6, 70, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], -Cell[38874, 1234, 342, 6, 70, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], -Cell[39219, 1242, 342, 6, 70, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], -Cell[39564, 1250, 407, 7, 70, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], -Cell[39974, 1259, 8018, 364, 70, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], -Cell[47995, 1625, 191, 5, 70, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +Cell[16468, 472, 1492, 48, 79, "Input",ExpressionUUID->"04417b41-b14e-436c-a276-ea3a355e9acc"], +Cell[17963, 522, 426, 6, 33, "Output",ExpressionUUID->"ec9ac0ee-284b-4242-b736-2d738a5010e0"] }, Open ]], Cell[CellGroupData[{ -Cell[48223, 1635, 2094, 60, 70, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], -Cell[50320, 1697, 342, 6, 70, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], -Cell[50665, 1705, 342, 6, 70, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], -Cell[51010, 1713, 342, 6, 70, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], -Cell[51355, 1721, 407, 7, 70, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], -Cell[51765, 1730, 8024, 353, 70, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], -Cell[59792, 2085, 191, 5, 70, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] -}, Open ]], -Cell[59998, 2093, 232, 6, 70, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], -Cell[60233, 2101, 209, 5, 70, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], -Cell[CellGroupData[{ -Cell[60467, 2110, 215, 7, 70, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[60685, 2119, 100, 0, 70, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[18426, 533, 131, 2, 29, "Input",ExpressionUUID->"8f8c8b1b-c2cb-4da4-9c56-95ef83789e37"], +Cell[18560, 537, 419, 6, 33, "Output",ExpressionUUID->"09550345-34b0-4743-babb-3cf20c848efc"] }, Open ]], Cell[CellGroupData[{ -Cell[60822, 2124, 1814, 53, 70, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], -Cell[62639, 2179, 342, 6, 70, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], -Cell[62984, 2187, 342, 6, 70, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], -Cell[63329, 2195, 342, 6, 70, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], -Cell[63674, 2203, 407, 7, 70, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], -Cell[64084, 2212, 8187, 365, 70, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], -Cell[72274, 2579, 191, 5, 70, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +Cell[19016, 548, 133, 2, 29, "Input",ExpressionUUID->"7693177e-ecb2-4da0-bc0a-b9033a60d4f0"], +Cell[19152, 552, 419, 6, 33, "Output",ExpressionUUID->"6d691808-d9a9-454f-a9c8-f572113e3d08"] }, Open ]], Cell[CellGroupData[{ -Cell[72502, 2589, 1590, 47, 70, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], -Cell[74095, 2638, 342, 6, 70, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], -Cell[74440, 2646, 101, 0, 70, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[19608, 563, 134, 2, 29, "Input",ExpressionUUID->"6808aeac-f9b2-4faf-bde7-44c8de39439e"], +Cell[19745, 567, 425, 6, 33, "Output",ExpressionUUID->"737986ef-b081-49e5-9a7f-9313ff1c2a05"] }, Open ]], Cell[CellGroupData[{ -Cell[74578, 2651, 2247, 64, 70, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], -Cell[76828, 2717, 342, 6, 70, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], -Cell[77173, 2725, 342, 6, 70, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], -Cell[77518, 2733, 103, 0, 70, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[20207, 578, 219, 4, 29, "Input",ExpressionUUID->"186179cf-5a57-4152-8f66-7c83b2b41e48"], +Cell[20429, 584, 430, 7, 33, "Output",ExpressionUUID->"09ea48e6-54b2-420b-af99-09f13f32b1ea"] }, Open ]], Cell[CellGroupData[{ -Cell[77658, 2738, 2219, 64, 70, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], -Cell[79880, 2804, 342, 6, 70, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], -Cell[80225, 2812, 342, 6, 70, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], -Cell[80570, 2820, 100, 0, 70, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[20896, 596, 134, 2, 29, "Input",ExpressionUUID->"f2a55312-8300-4d64-9ce8-444dc4c38322"], +Cell[21033, 600, 422, 6, 33, "Output",ExpressionUUID->"befefff8-3e5d-4451-b845-8a63866b9ce1"] }, Open ]], Cell[CellGroupData[{ -Cell[80707, 2825, 2221, 64, 70, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], -Cell[82931, 2891, 342, 6, 70, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], -Cell[83276, 2899, 342, 6, 70, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], -Cell[83621, 2907, 101, 0, 70, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[21492, 611, 326, 5, 29, "Input",ExpressionUUID->"fc2af8cf-abc8-4dda-b610-b1c1e330aa26"], +Cell[21821, 618, 389, 6, 33, "Output",ExpressionUUID->"d299ee21-b5ee-414b-99a0-626114de4639"] }, Open ]], Cell[CellGroupData[{ -Cell[83759, 2912, 215, 6, 70, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[83977, 2920, 104, 0, 70, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] -}, Open ]], -Cell[84096, 2923, 247, 5, 70, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], -Cell[CellGroupData[{ -Cell[84368, 2932, 532, 18, 70, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[84903, 2952, 100, 0, 70, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[22247, 629, 295, 5, 29, "Input",ExpressionUUID->"b4fd75a1-1277-4d8e-afcf-b5c1e085cc8d"], +Cell[22545, 636, 418, 6, 33, "Output",ExpressionUUID->"fd32912c-6c0d-476f-96f9-f0fc2bf45bf5"] }, Open ]], Cell[CellGroupData[{ -Cell[85040, 2957, 144, 4, 70, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[85187, 2963, 100, 0, 70, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[23000, 647, 219, 4, 29, "Input",ExpressionUUID->"937e4c68-ef50-442e-a1b8-6cf6d5ebdf9b"], +Cell[23222, 653, 417, 6, 33, "Output",ExpressionUUID->"a67695ab-1992-4986-b6aa-d5a4db8c4ba3"] }, Open ]], Cell[CellGroupData[{ -Cell[85324, 2968, 155, 4, 70, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[85482, 2974, 100, 0, 70, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[23676, 664, 350, 10, 42, "Input",ExpressionUUID->"186e50f2-533a-4462-83c1-3a8606e72d3c"], +Cell[24029, 676, 437, 6, 33, "Output",ExpressionUUID->"9f023df7-a829-4121-8206-d244cb5df56e"] }, Open ]], Cell[CellGroupData[{ -Cell[85619, 2979, 6029, 184, 70, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[91651, 3165, 102, 0, 70, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[24503, 687, 350, 10, 42, "Input",ExpressionUUID->"25a285b0-ec3f-43c3-a83a-cd4d0155f067"], +Cell[24856, 699, 446, 7, 33, "Output",ExpressionUUID->"c6b3c0ca-8755-49f5-a6e3-4997555f18ff"] }, Open ]], Cell[CellGroupData[{ -Cell[91790, 3170, 342, 8, 70, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[92135, 3180, 342, 6, 70, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], -Cell[92480, 3188, 99, 0, 70, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[25339, 711, 994, 26, 81, "Input",ExpressionUUID->"8ea24ad9-55bc-4de3-965b-ee41fab25800"], +Cell[26336, 739, 431, 6, 33, "Output",ExpressionUUID->"af06bbb8-ca79-494e-b3f5-0f33c49d39c4"] }, Open ]], Cell[CellGroupData[{ -Cell[92616, 3193, 6096, 186, 70, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[98715, 3381, 102, 0, 70, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[26804, 750, 199, 3, 29, "Input",ExpressionUUID->"74df187a-f55e-4b88-9fba-1a5175b29724"], +Cell[27006, 755, 416, 6, 33, "Output",ExpressionUUID->"37f1a30f-6527-4405-bb27-9ddb88b73d47"] }, Open ]], Cell[CellGroupData[{ -Cell[98854, 3386, 342, 8, 70, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[99199, 3396, 342, 6, 70, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], -Cell[99544, 3404, 100, 0, 70, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[27459, 766, 329, 5, 29, "Input",ExpressionUUID->"d913bdd6-a3a1-43c7-ac19-d684a159bfc6"], +Cell[27791, 773, 398, 6, 33, "Output",ExpressionUUID->"aa02bdb6-79eb-4e23-bb2a-6ddf9b0c63a7"] +}, Open ]], +Cell[28204, 782, 173, 2, 29, "Input",ExpressionUUID->"b1558e11-859d-4482-ae4e-2562a7adf0c7"], +Cell[CellGroupData[{ +Cell[28402, 788, 329, 5, 29, "Input",ExpressionUUID->"ee1dc828-900d-4de6-bfdb-75e795d36647"], +Cell[28734, 795, 398, 6, 33, "Output",ExpressionUUID->"c42c820c-2557-43ec-8e9e-909319e1f11b"] +}, Open ]], +Cell[29147, 804, 173, 2, 29, "Input",ExpressionUUID->"1d74df8c-8bc6-4bdd-bd10-bdb0da1d82d6"], +Cell[CellGroupData[{ +Cell[29345, 810, 330, 5, 29, "Input",ExpressionUUID->"85f84184-364d-4549-99ff-a8c6f3627bcd"], +Cell[29678, 817, 395, 6, 33, "Output",ExpressionUUID->"932beb2e-cd63-4ad5-90c1-cb994051fa0d"] +}, Open ]], +Cell[30088, 826, 173, 2, 29, "Input",ExpressionUUID->"93bf7275-b2a2-4844-aefa-329ad7dd8d1c"], +Cell[CellGroupData[{ +Cell[30286, 832, 352, 5, 29, "Input",ExpressionUUID->"25a7455e-f586-40db-8572-97868cac8d7b"], +Cell[30641, 839, 397, 6, 33, "Output",ExpressionUUID->"0677c22f-5c0c-4671-aae2-32348d3e4ad5"] +}, Open ]], +Cell[31053, 848, 171, 2, 29, "Input",ExpressionUUID->"d4b494dc-3fee-4052-bad3-da47199989d9"], +Cell[CellGroupData[{ +Cell[31249, 854, 300, 5, 29, "Input",ExpressionUUID->"c7984566-1545-41fc-9c2d-b070605a5ca9"], +Cell[31552, 861, 394, 6, 33, "Output",ExpressionUUID->"f66d1160-9b25-4292-ac3d-518524ca2416"] +}, Open ]], +Cell[31961, 870, 171, 2, 29, "Input",ExpressionUUID->"8a42e36f-e396-4225-9930-d0d21c3932fc"], +Cell[CellGroupData[{ +Cell[32157, 876, 304, 5, 29, "Input",ExpressionUUID->"e8f187a9-e088-414b-b8e6-ebbcd4d0f062"], +Cell[32464, 883, 402, 6, 33, "Output",ExpressionUUID->"bb68c6a8-c2c0-4fc1-9486-4f8396c77e09"] +}, Open ]], +Cell[32881, 892, 173, 2, 29, "Input",ExpressionUUID->"82a00277-6c85-4885-b85c-aea6d3d5d9b5"], +Cell[CellGroupData[{ +Cell[33079, 898, 307, 5, 29, "Input",ExpressionUUID->"3f6fe4fe-4159-475c-89c9-410172843033"], +Cell[33389, 905, 394, 6, 33, "Output",ExpressionUUID->"0d7f5595-231f-4951-9c0b-60278ef692ea"] +}, Open ]], +Cell[33798, 914, 172, 2, 29, "Input",ExpressionUUID->"0a5ae49b-10ea-497f-91f8-3f37c2afa7b1"], +Cell[CellGroupData[{ +Cell[33995, 920, 274, 4, 29, "Input",ExpressionUUID->"1c92dc8b-757f-4fc9-90ec-abc4570e0bd8"], +Cell[34272, 926, 398, 6, 33, "Output",ExpressionUUID->"3cbc56fc-28b1-4775-90df-d2c0221cf591"] +}, Open ]], +Cell[34685, 935, 175, 2, 29, "Input",ExpressionUUID->"dec96f57-2838-48a0-9627-70aa1644373b"], +Cell[CellGroupData[{ +Cell[34885, 941, 19809, 485, 1844, "Input",ExpressionUUID->"5ca15ec4-6408-49fe-b395-a4e052e91af1"], +Cell[54697, 1428, 449, 7, 33, "Output",ExpressionUUID->"8d5b16b7-0c4a-4508-a171-63903f0595c6"] }, Open ]], Cell[CellGroupData[{ -Cell[99681, 3409, 2637, 87, 70, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[102321, 3498, 101, 0, 70, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[55183, 1440, 19748, 489, 1981, "Input",ExpressionUUID->"986730cf-3b5a-4b20-a53f-73c1f6b8fffa"], +Cell[74934, 1931, 430, 6, 33, "Output",ExpressionUUID->"7bf29fea-4a60-4fad-8edb-0c074061dd58"] }, Open ]], Cell[CellGroupData[{ -Cell[102459, 3503, 2577, 84, 70, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[105039, 3589, 102, 0, 70, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[75401, 1942, 19748, 483, 1970, "Input",ExpressionUUID->"4c7ea369-2f93-4d75-ab60-40f8c1be17a8"], +Cell[95152, 2427, 448, 7, 33, "Output",ExpressionUUID->"c3781f07-39c9-4fcc-9508-14e03be7b8f6"] }, Open ]], Cell[CellGroupData[{ -Cell[105178, 3594, 3686, 117, 70, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[108867, 3713, 102, 0, 70, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[95637, 2439, 22534, 553, 2217, "Input",ExpressionUUID->"71d5510b-2fc3-4844-8f19-3a934937c2a2"], +Cell[118174, 2994, 453, 7, 33, "Output",ExpressionUUID->"97d44045-4e8b-4b1f-9269-9788c7923def"] }, Open ]], Cell[CellGroupData[{ -Cell[109006, 3718, 2052, 59, 70, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], -Cell[111061, 3779, 342, 6, 70, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], -Cell[111406, 3787, 342, 6, 70, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], -Cell[111751, 3795, 101, 0, 70, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[118664, 3006, 22535, 553, 2254, "Input",ExpressionUUID->"39bd1344-a585-43ff-a24a-768f42be19bc"], +Cell[141202, 3561, 457, 7, 33, "Output",ExpressionUUID->"7babe93f-2ac3-4541-8f18-ca71f9c82328"] }, Open ]], Cell[CellGroupData[{ -Cell[111889, 3800, 2054, 59, 70, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], -Cell[113946, 3861, 342, 6, 70, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], -Cell[114291, 3869, 342, 6, 70, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], -Cell[114636, 3877, 100, 0, 70, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[141696, 3573, 25491, 626, 2501, "Input",ExpressionUUID->"1632b7ba-8a7e-43c4-aff2-299d9306e274"], +Cell[167190, 4201, 448, 7, 33, "Output",ExpressionUUID->"102edbab-a4ee-4f64-babc-d2fd1df5bfb4"] }, Open ]], Cell[CellGroupData[{ -Cell[114773, 3882, 2030, 55, 70, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], -Cell[116806, 3939, 342, 6, 70, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], -Cell[117151, 3947, 342, 6, 70, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], -Cell[117496, 3955, 342, 6, 70, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], -Cell[117841, 3963, 407, 7, 70, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], -Cell[118251, 3972, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], -Cell[127686, 4412, 191, 5, 70, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +Cell[167675, 4213, 130, 2, 29, "Input",ExpressionUUID->"649ab9a2-d5aa-4194-a3f4-b50041602aa6"], +Cell[167808, 4217, 412, 6, 33, "Output",ExpressionUUID->"20701862-87a8-4810-b849-d3e3dc75cd57"] }, Open ]], Cell[CellGroupData[{ -Cell[127914, 4422, 2118, 60, 70, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], -Cell[130035, 4484, 342, 6, 70, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], -Cell[130380, 4492, 342, 6, 70, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], -Cell[130725, 4500, 342, 6, 70, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], -Cell[131070, 4508, 407, 7, 70, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], -Cell[131480, 4517, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], -Cell[140029, 4887, 191, 5, 70, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] -}, Open ]], -Cell[140235, 4895, 209, 5, 70, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], -Cell[CellGroupData[{ -Cell[140469, 4904, 1590, 47, 70, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], -Cell[142062, 4953, 342, 6, 70, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], -Cell[142407, 4961, 101, 0, 70, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[168257, 4228, 130, 2, 29, "Input",ExpressionUUID->"9651659e-9cea-434d-ace1-9dd53c96bf1d"], +Cell[168390, 4232, 414, 6, 33, "Output",ExpressionUUID->"e75f4ae3-238f-4428-8e03-1cd272b7939e"] }, Open ]], Cell[CellGroupData[{ -Cell[142545, 4966, 2251, 64, 70, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], -Cell[144799, 5032, 342, 6, 70, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], -Cell[145144, 5040, 342, 6, 70, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], -Cell[145489, 5048, 101, 0, 70, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[168841, 4243, 1144, 39, 107, "Input",ExpressionUUID->"ca4ef058-d31b-4e94-a2b6-761c4aa344b1"], +Cell[169988, 4284, 432, 6, 33, "Output",ExpressionUUID->"19224885-ec48-488b-970c-5184f8048c37"] }, Open ]], Cell[CellGroupData[{ -Cell[145627, 5053, 2220, 64, 70, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], -Cell[147850, 5119, 342, 6, 70, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], -Cell[148195, 5127, 342, 6, 70, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], -Cell[148540, 5135, 101, 0, 70, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[170457, 4295, 1041, 35, 107, "Input",ExpressionUUID->"31ef0128-f086-4a45-a7d7-05ffc22a54b4"], +Cell[171501, 4332, 444, 7, 33, "Output",ExpressionUUID->"80007b65-16ce-40fe-b2b5-e2288fbca6df"] }, Open ]], Cell[CellGroupData[{ -Cell[148678, 5140, 2223, 64, 70, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], -Cell[150904, 5206, 342, 6, 70, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], -Cell[151249, 5214, 342, 6, 70, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], -Cell[151594, 5222, 101, 0, 70, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[171982, 4344, 1144, 39, 107, "Input",ExpressionUUID->"32fe3744-59e1-4e3d-a676-f45d43cfd134"], +Cell[173129, 4385, 438, 6, 33, "Output",ExpressionUUID->"cfb1464b-231b-4265-8091-491847f649c3"] }, Open ]], Cell[CellGroupData[{ -Cell[151732, 5227, 215, 6, 70, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[151950, 5235, 102, 0, 70, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] -}, Open ]], -Cell[152067, 5238, 247, 5, 70, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], -Cell[CellGroupData[{ -Cell[152339, 5247, 532, 18, 70, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[152874, 5267, 101, 0, 70, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[173604, 4396, 108, 1, 29, "Input",ExpressionUUID->"bcbf4997-4378-403d-a89e-315e5e0a5745"], +Cell[173715, 4399, 436, 6, 33, "Output",ExpressionUUID->"0871b351-8d33-4e83-b874-814334d08350"] }, Open ]], Cell[CellGroupData[{ -Cell[153012, 5272, 144, 4, 70, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[153159, 5278, 101, 0, 70, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[174188, 4410, 108, 1, 29, "Input",ExpressionUUID->"25e9b5ad-faec-4249-89c7-9166f84d8240"], +Cell[174299, 4413, 449, 7, 33, "Output",ExpressionUUID->"2eab2ac1-41a5-47db-a4ff-8fdd57873bc5"] }, Open ]], Cell[CellGroupData[{ -Cell[153297, 5283, 155, 4, 70, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[153455, 5289, 100, 0, 70, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[174785, 4425, 108, 1, 29, "Input",ExpressionUUID->"88471f90-3b32-47ad-b6b9-27fdcd64c8d2"], +Cell[174896, 4428, 451, 7, 33, "Output",ExpressionUUID->"fa3e3b99-8de5-4837-ab78-37a5a29009da"] }, Open ]], Cell[CellGroupData[{ -Cell[153592, 5294, 6029, 184, 70, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[159624, 5480, 102, 0, 70, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[175384, 4440, 108, 1, 29, "Input",ExpressionUUID->"71048c3b-fc34-420a-8d33-525edb786da6"], +Cell[175495, 4443, 434, 6, 33, "Output",ExpressionUUID->"db564248-b10c-446b-92f7-9c843da073ff"] }, Open ]], Cell[CellGroupData[{ -Cell[159763, 5485, 342, 8, 70, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[160108, 5495, 342, 6, 70, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], -Cell[160453, 5503, 100, 0, 70, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[175966, 4454, 107, 1, 29, "Input",ExpressionUUID->"b3df5512-074c-45eb-81ee-574ba143c4ae"], +Cell[176076, 4457, 431, 6, 33, "Output",ExpressionUUID->"b8f95172-ee8e-4963-a53e-3b4d838130b0"] }, Open ]], Cell[CellGroupData[{ -Cell[160590, 5508, 6096, 186, 70, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[166689, 5696, 102, 0, 70, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[176544, 4468, 107, 1, 29, "Input",ExpressionUUID->"526e2f3d-6c90-485b-bbb5-57012dbb3629"], +Cell[176654, 4471, 431, 6, 33, "Output",ExpressionUUID->"5d51effe-6d68-458f-b2be-f21d376c7e99"] }, Open ]], Cell[CellGroupData[{ -Cell[166828, 5701, 342, 8, 70, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[167173, 5711, 342, 6, 70, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], -Cell[167518, 5719, 99, 0, 70, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[177122, 4482, 497, 16, 55, "Input",ExpressionUUID->"f5de3681-9534-4a07-8295-77494612ddd1"], +Cell[177622, 4500, 446, 7, 33, "Output",ExpressionUUID->"4fe53d58-bfec-495e-96f6-700f97e196ba"] }, Open ]], Cell[CellGroupData[{ -Cell[167654, 5724, 2637, 87, 70, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[170294, 5813, 101, 0, 70, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[178105, 4512, 497, 16, 55, "Input",ExpressionUUID->"96dfab3e-18da-46e1-8c7a-ec9f10735340"], +Cell[178605, 4530, 443, 7, 33, "Output",ExpressionUUID->"de31ab36-80e6-45af-b867-10b11405c579"] }, Open ]], Cell[CellGroupData[{ -Cell[170432, 5818, 2577, 84, 70, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[173012, 5904, 102, 0, 70, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[179085, 4542, 1788, 60, 183, "Input",ExpressionUUID->"ad8b653e-a8e7-4eea-9e7e-5e6e636bf2b4"], +Cell[180876, 4604, 434, 6, 33, "Output",ExpressionUUID->"f76a45a3-6f9b-4aef-9b49-5526eb3da2c8"] }, Open ]], Cell[CellGroupData[{ -Cell[173151, 5909, 3686, 117, 70, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[176840, 6028, 102, 0, 70, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[181347, 4615, 1101, 36, 131, "Input",ExpressionUUID->"309cf18d-407a-484c-a467-47fb3e43c8f2"], +Cell[182451, 4653, 448, 7, 33, "Output",ExpressionUUID->"3f7e629a-01ea-48a8-b03c-d42d08d9f0e0"] }, Open ]], Cell[CellGroupData[{ -Cell[176979, 6033, 2054, 59, 70, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], -Cell[179036, 6094, 342, 6, 70, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], -Cell[179381, 6102, 342, 6, 70, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], -Cell[179726, 6110, 100, 0, 70, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[182936, 4665, 1818, 61, 160, "Input",ExpressionUUID->"4924cb23-8e53-44c0-8c1c-7b26c4a9e860"], +Cell[184757, 4728, 432, 6, 33, "Output",ExpressionUUID->"87712a6d-2470-432b-a42a-4a20fb1c7ca3"] }, Open ]], Cell[CellGroupData[{ -Cell[179863, 6115, 2054, 59, 70, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], -Cell[181920, 6176, 342, 6, 70, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], -Cell[182265, 6184, 342, 6, 70, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], -Cell[182610, 6192, 100, 0, 70, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[185226, 4739, 1631, 53, 162, "Input",ExpressionUUID->"86689354-b148-490b-a239-2684716fc337"], +Cell[186860, 4794, 432, 6, 33, "Output",ExpressionUUID->"df20681e-2b90-4fe2-a4ba-757176d5fc85"] }, Open ]], Cell[CellGroupData[{ -Cell[182747, 6197, 2030, 55, 70, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], -Cell[184780, 6254, 342, 6, 70, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], -Cell[185125, 6262, 342, 6, 70, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], -Cell[185470, 6270, 342, 6, 70, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], -Cell[185815, 6278, 407, 7, 70, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], -Cell[186225, 6287, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], -Cell[195660, 6727, 191, 5, 70, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +Cell[187329, 4805, 1631, 53, 162, "Input",ExpressionUUID->"5addcb8e-59cb-4e6f-8e41-b962a7995d11"], +Cell[188963, 4860, 431, 6, 33, "Output",ExpressionUUID->"feaed377-3abe-47bc-a612-d0a1a348fb45"] }, Open ]], Cell[CellGroupData[{ -Cell[195888, 6737, 2143, 61, 70, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], -Cell[198034, 6800, 342, 6, 70, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], -Cell[198379, 6808, 342, 6, 70, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], -Cell[198724, 6816, 342, 6, 70, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], -Cell[199069, 6824, 407, 7, 70, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], -Cell[199479, 6833, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], -Cell[208028, 7203, 191, 5, 70, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +Cell[189431, 4871, 227, 4, 29, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[189661, 4877, 155, 2, 33, "Output",ExpressionUUID->"6a954de7-2249-4ed8-a35a-566ea49821cc"] }, Open ]], -Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[189831, 4882, 171, 2, 29, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], Cell[CellGroupData[{ -Cell[208397, 7218, 1590, 47, 70, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], -Cell[209990, 7267, 342, 6, 70, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], -Cell[210335, 7275, 101, 0, 70, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[190027, 4888, 225, 4, 29, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[190255, 4894, 155, 2, 33, "Output",ExpressionUUID->"f380d2da-7a0b-40f9-9609-3ac9ca84acd5"] +}, Open ]], +Cell[190425, 4899, 173, 2, 29, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[190623, 4905, 1297, 42, 47, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[191923, 4949, 169, 2, 33, "Output",ExpressionUUID->"a3b94cd8-d8c6-4b5f-ab0f-90973d81e8c8"] }, Open ]], Cell[CellGroupData[{ -Cell[210473, 7280, 2249, 64, 70, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], -Cell[212725, 7346, 342, 6, 70, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], -Cell[213070, 7354, 342, 6, 70, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], -Cell[213415, 7362, 100, 0, 70, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[192129, 4956, 929, 30, 55, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[193061, 4988, 172, 2, 33, "Output",ExpressionUUID->"8d301370-8f2d-4db3-a406-a360a46fa3a3"] }, Open ]], Cell[CellGroupData[{ -Cell[213552, 7367, 2219, 64, 70, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], -Cell[215774, 7433, 342, 6, 70, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], -Cell[216119, 7441, 342, 6, 70, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], -Cell[216464, 7449, 99, 0, 70, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[193270, 4995, 904, 29, 55, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[194177, 5026, 171, 2, 33, "Output",ExpressionUUID->"2052b6db-c975-497a-9f41-732dfb1b0283"] }, Open ]], Cell[CellGroupData[{ -Cell[216600, 7454, 2221, 64, 70, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], -Cell[218824, 7520, 342, 6, 70, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], -Cell[219169, 7528, 342, 6, 70, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], -Cell[219514, 7536, 101, 0, 70, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[194385, 5033, 554, 18, 51, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[194942, 5053, 166, 2, 33, "Output",ExpressionUUID->"bd7c1cdb-3305-43d6-b68d-078b019d5a48"] }, Open ]], Cell[CellGroupData[{ -Cell[219652, 7541, 215, 6, 70, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[219870, 7549, 102, 0, 70, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] -}, Open ]] +Cell[195145, 5060, 647, 21, 51, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[195795, 5083, 167, 2, 33, "Output",ExpressionUUID->"07d22a82-a752-48e8-a7fc-c24969d30846"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195999, 5090, 166, 4, 55, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[196168, 5096, 166, 2, 33, "Output",ExpressionUUID->"cb0a70f6-faaa-4cd5-b6e1-28adf1d82357"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196371, 5103, 166, 4, 54, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[196540, 5109, 166, 2, 33, "Output",ExpressionUUID->"8043cc17-a1b1-4c9b-8724-d6759020ee09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196743, 5116, 177, 4, 43, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[196923, 5122, 166, 2, 33, "Output",ExpressionUUID->"36b108df-9bc7-4523-b286-3988613b6e45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197126, 5129, 177, 4, 43, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[197306, 5135, 168, 2, 33, "Output",ExpressionUUID->"79fd0f54-f6da-4209-96e7-d477beeadefc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197511, 5142, 6051, 184, 183, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[203565, 5328, 169, 2, 33, "Output",ExpressionUUID->"5b9b0a5d-3c66-4fca-acee-286f224dea41"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203771, 5335, 364, 8, 41, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[204138, 5345, 165, 2, 33, "Output",ExpressionUUID->"815a97fb-0451-453b-af48-45b0f998c371"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204340, 5352, 6118, 186, 183, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[210461, 5540, 170, 2, 33, "Output",ExpressionUUID->"65fb6428-b20e-4241-ad27-a27409e6adf0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210668, 5547, 364, 8, 41, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[211035, 5557, 166, 2, 33, "Output",ExpressionUUID->"6859bb29-936a-4b0f-86d0-dc38bb823711"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211238, 5564, 2659, 87, 107, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[213900, 5653, 170, 2, 33, "Output",ExpressionUUID->"7763f4b4-5b70-41da-9114-5a2c2d898287"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214107, 5660, 2599, 84, 107, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[216709, 5746, 167, 2, 33, "Output",ExpressionUUID->"f8e0fa58-e025-44ec-bed6-cba17ae90f72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216913, 5753, 3708, 117, 160, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[220624, 5872, 167, 2, 33, "Output",ExpressionUUID->"b2ac48b3-5443-4e52-a6ad-226cd7860013"] +}, Open ]], +Cell[220806, 5877, 160, 3, 29, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[220991, 5884, 2073, 58, 99, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[223067, 5944, 578, 13, 26, "Message",ExpressionUUID->"dab50db0-f409-4890-afe1-0f1299e3d612"], +Cell[223648, 5959, 579, 13, 26, "Message",ExpressionUUID->"1fc074c1-01a3-4902-9928-abdbf57cbd5e"], +Cell[224230, 5974, 585, 13, 26, "Message",ExpressionUUID->"121cb2f6-2328-4dce-803e-1799db8f011c"], +Cell[224818, 5989, 468, 11, 26, "Message",ExpressionUUID->"e92d163c-93b8-4361-a28f-1c4b99d7c24f"], +Cell[225289, 6002, 167, 2, 33, "Output",ExpressionUUID->"cdfcc8fd-f0ac-448c-a1fd-cd6d5c4cdc88"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225493, 6009, 2070, 58, 234, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[227566, 6069, 578, 13, 81, "Message",ExpressionUUID->"0eac5177-ca8b-4ec7-8239-15e804334158"], +Cell[228147, 6084, 581, 13, 81, "Message",ExpressionUUID->"0f50415b-f925-4b90-8799-8a868403a763"], +Cell[228731, 6099, 585, 13, 81, "Message",ExpressionUUID->"44d3dea8-0ac3-428a-a2e4-8d66d2e4d378"], +Cell[229319, 6114, 470, 11, 26, "Message",ExpressionUUID->"0509b959-f641-41d7-a564-76231fc7ad70"], +Cell[229792, 6127, 168, 2, 33, "Output",ExpressionUUID->"10ed92d5-6ea7-4111-858c-0c6735bf6ff7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[229997, 6134, 1957, 52, 102, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[231957, 6188, 20407, 383, 236, "Output",ExpressionUUID->"8e8d9c77-9b05-4c8c-96ca-b110d799d4f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252401, 6576, 2113, 59, 261, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[254517, 6637, 512, 12, 59, "Message",ExpressionUUID->"014468fb-20de-4035-9bc9-a87c10893be7"], +Cell[255032, 6651, 516, 12, 59, "Message",ExpressionUUID->"ee2d94c1-9597-481d-be45-2ef0e1b38372"], +Cell[255551, 6665, 520, 12, 59, "Message",ExpressionUUID->"b6befc36-6ffe-4e62-a2fa-881e22567876"], +Cell[256074, 6679, 469, 11, 26, "Message",ExpressionUUID->"016fceff-5ab8-4dc2-ad00-99d38decb03f"], +Cell[256546, 6692, 21762, 404, 232, "Output",ExpressionUUID->"8a202dbb-e994-4e8b-945b-c6d702039506"] +}, Open ]], +Cell[CellGroupData[{ +Cell[278345, 7101, 2476, 69, 169, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[280824, 7172, 9492, 222, 242, "Output",ExpressionUUID->"ef62d7eb-c542-4030-afa8-088323f54e54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290353, 7399, 228, 4, 29, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[290584, 7405, 28144, 536, 232, "Output",ExpressionUUID->"ed023269-e904-46dc-820e-8d16fc85827c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318765, 7946, 234, 6, 47, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[319002, 7954, 169, 2, 33, "Output",ExpressionUUID->"1a3c3c49-4adc-48c2-a220-2ae30e724fde"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319208, 7961, 1833, 52, 190, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[321044, 8015, 522, 12, 59, "Message",ExpressionUUID->"375811db-567e-4bb0-b879-1e8138d9297b"], +Cell[321569, 8029, 521, 12, 59, "Message",ExpressionUUID->"d94926b5-c4d3-42b2-8353-a0e33e227806"], +Cell[322093, 8043, 525, 12, 59, "Message",ExpressionUUID->"f2161049-08e8-4e07-8226-1b8db003c6d8"], +Cell[322621, 8057, 471, 11, 26, "Message",ExpressionUUID->"d453062d-42e8-46bf-b611-2bc017614ac6"], +Cell[323095, 8070, 22528, 416, 232, "Output",ExpressionUUID->"fce2c1bd-d896-4e50-8ac6-d5507d17c5c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[345660, 8491, 1616, 48, 104, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[347279, 8541, 607, 13, 80, "Message",ExpressionUUID->"8d9a7d00-4a94-4a42-b1e9-637b4fd4e6e8"], +Cell[347889, 8556, 611, 13, 80, "Message",ExpressionUUID->"3c2a0164-d99f-4fc1-8df9-4079609610b7"], +Cell[348503, 8571, 702, 15, 80, "Message",ExpressionUUID->"aa122981-2730-4744-8795-783430bb8808"], +Cell[349208, 8588, 471, 11, 26, "Message",ExpressionUUID->"628a34be-4321-4911-ba71-881f979117bd"], +Cell[349682, 8601, 173, 3, 33, "Output",ExpressionUUID->"51b3b13c-cad6-45b4-9ec2-f6cf766d50bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349892, 8609, 2270, 64, 212, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[352165, 8675, 579, 13, 80, "Message",ExpressionUUID->"0b51cbc8-9a5b-43f6-915b-9902d4ed0122"], +Cell[352747, 8690, 582, 13, 80, "Message",ExpressionUUID->"a039d0b4-3244-4c01-a17a-e11421091895"], +Cell[353332, 8705, 586, 13, 80, "Message",ExpressionUUID->"a808f436-4e0d-4417-95d4-f874c9e2cd32"], +Cell[353921, 8720, 470, 11, 26, "Message",ExpressionUUID->"553ab2ae-b145-4334-b526-d5a4424fb3d5"], +Cell[354394, 8733, 173, 3, 33, "Output",ExpressionUUID->"2279ce9e-c04e-483f-b575-43cfacde2cf2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[354604, 8741, 2231, 63, 212, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[356838, 8806, 579, 13, 80, "Message",ExpressionUUID->"4a90d760-ffbd-46fc-a464-42599917e02f"], +Cell[357420, 8821, 582, 13, 80, "Message",ExpressionUUID->"f550f6dc-7898-4712-8f8f-3ce2c7bf3694"], +Cell[358005, 8836, 586, 13, 80, "Message",ExpressionUUID->"d8a59fa8-d191-4616-aaad-2288166d40ec"], +Cell[358594, 8851, 471, 11, 26, "Message",ExpressionUUID->"f19420be-7f9b-4489-b887-9a9ebbd2eaf2"], +Cell[359068, 8864, 170, 3, 33, "Output",ExpressionUUID->"f301ef49-6d4d-420e-badd-7c188a498e3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[359275, 8872, 2233, 63, 212, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[361511, 8937, 579, 13, 80, "Message",ExpressionUUID->"318424f3-f627-4479-b7a0-8828712d6e01"], +Cell[362093, 8952, 584, 13, 80, "Message",ExpressionUUID->"c2babbe8-8b90-4c2e-afdb-5b9e1af34dc4"], +Cell[362680, 8967, 586, 13, 80, "Message",ExpressionUUID->"16099efc-28d7-4f43-b64d-1d912a76fe22"], +Cell[363269, 8982, 471, 11, 26, "Message",ExpressionUUID->"d09f10c7-7bca-46cc-a45c-0a0d42b08c31"], +Cell[363743, 8995, 170, 3, 33, "Output",ExpressionUUID->"ebc4cbe7-a4b1-4dcc-9dcb-16015542edea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363950, 9003, 238, 6, 46, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[364191, 9011, 172, 3, 33, "Output",ExpressionUUID->"cc0ea0f7-85aa-4c5e-a057-385dc2d43ddb"] +}, Open ]], +Cell[364378, 9017, 273, 6, 29, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[364676, 9027, 558, 19, 51, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[365237, 9048, 169, 3, 33, "Output",ExpressionUUID->"6a067ff2-58d4-4baa-a580-fee567def8dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365443, 9056, 170, 5, 55, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[365616, 9063, 169, 3, 33, "Output",ExpressionUUID->"e5560b94-2240-4c66-a063-8f75ee3a7c02"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365822, 9071, 181, 5, 43, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[366006, 9078, 170, 3, 33, "Output",ExpressionUUID->"767d9100-a80e-4dfc-a830-ddc309d4eaa3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366213, 9086, 6055, 185, 474, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[372271, 9273, 174, 3, 33, "Output",ExpressionUUID->"d91e43f4-0a3e-46e1-8b78-86b367284b4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372482, 9281, 368, 9, 41, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[372853, 9292, 171, 3, 33, "Output",ExpressionUUID->"e788925a-f0df-4ddf-9917-460f0ee5c1af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[373061, 9300, 6122, 187, 474, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[379186, 9489, 172, 3, 33, "Output",ExpressionUUID->"566c5ad9-2b02-4274-844d-61475381cadf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379395, 9497, 368, 9, 41, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[379766, 9508, 173, 3, 33, "Output",ExpressionUUID->"0fbbc8ac-bae2-497f-ac4b-97573d4c9bb5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379976, 9516, 2663, 88, 285, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[382642, 9606, 174, 3, 33, "Output",ExpressionUUID->"ba6d2d55-3d9f-4dfa-8ee7-d54d3c1a58e0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382853, 9614, 2603, 85, 211, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[385459, 9701, 171, 3, 33, "Output",ExpressionUUID->"b6d10118-25ec-45e4-9537-2227b360c9ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385667, 9709, 3712, 118, 327, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[389382, 9829, 173, 3, 33, "Output",ExpressionUUID->"1068be5c-92ce-4eb2-a1fe-a9a904e8a12f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389592, 9837, 2075, 59, 234, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[391670, 9898, 577, 13, 80, "Message",ExpressionUUID->"46048712-d464-40a2-8631-ec42479332ae"], +Cell[392250, 9913, 578, 13, 80, "Message",ExpressionUUID->"8ff994af-0f0b-4fb0-826e-9a82a834f73f"], +Cell[392831, 9928, 583, 13, 80, "Message",ExpressionUUID->"ccd16639-35c0-43c8-8109-bfdaaccfc4e2"], +Cell[393417, 9943, 473, 11, 26, "Message",ExpressionUUID->"e67948a9-2d87-49bc-b52a-e3aeea75d3cc"], +Cell[393893, 9956, 173, 3, 33, "Output",ExpressionUUID->"79177fab-0b45-41ca-8b4f-a759090a74f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394103, 9964, 2077, 59, 234, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[396183, 10025, 577, 13, 80, "Message",ExpressionUUID->"eda322f2-b79a-4cc3-bdc0-3909cd4f44be"], +Cell[396763, 10040, 578, 13, 80, "Message",ExpressionUUID->"a9c9e3d0-1672-4ac6-b7c9-37b3ac4a24aa"], +Cell[397344, 10055, 583, 13, 80, "Message",ExpressionUUID->"993d3064-65f5-4f71-9811-16022945d60a"], +Cell[397930, 10070, 471, 11, 26, "Message",ExpressionUUID->"6840efd2-6580-4db8-b1de-ac6282c30f3d"], +Cell[398404, 10083, 170, 3, 33, "Output",ExpressionUUID->"b33344e1-d5e2-423c-94c3-033ceb9b470b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398611, 10091, 2053, 55, 151, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[400667, 10148, 20017, 377, 236, "Output",ExpressionUUID->"b715365e-c726-41e3-b15d-157d9d96ed07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[420721, 10530, 2141, 60, 261, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[422865, 10592, 518, 12, 59, "Message",ExpressionUUID->"21afb119-cb89-4b56-b4b2-b8c1a44ce2dc"], +Cell[423386, 10606, 519, 12, 59, "Message",ExpressionUUID->"b42d551f-89e8-4546-9e39-2a775c67d791"], +Cell[423908, 10620, 521, 12, 59, "Message",ExpressionUUID->"9e2c1b4d-1379-4aad-9442-be51efeb0a84"], +Cell[424432, 10634, 473, 11, 26, "Message",ExpressionUUID->"b73bb783-4d98-433c-bd34-afa78bf687f7"], +Cell[424908, 10647, 22019, 408, 233, "Output",ExpressionUUID->"a9d8f961-575d-44aa-86fe-b8e58def5ca5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446964, 11060, 232, 5, 29, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[447199, 11067, 28403, 540, 233, "Output",ExpressionUUID->"2de50b0b-d1c8-4b50-a623-ffabc26252e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475639, 11612, 1616, 48, 104, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[477258, 11662, 705, 15, 80, "Message",ExpressionUUID->"467b5ab0-df8b-4c77-96e3-3fbc41fbdb6e"], +Cell[477966, 11679, 701, 15, 80, "Message",ExpressionUUID->"6d57dc7f-7e35-49f9-ade5-233200d34727"], +Cell[478670, 11696, 703, 15, 80, "Message",ExpressionUUID->"36b49f2a-dd2e-4a6e-8689-a1c810e48d37"], +Cell[479376, 11713, 471, 11, 26, "Message",ExpressionUUID->"eef18186-40b7-4517-a6cf-66287c13278a"], +Cell[479850, 11726, 173, 3, 33, "Output",ExpressionUUID->"a72235ea-c278-4c4b-8a0d-5f5a0b03f884"] +}, Open ]], +Cell[CellGroupData[{ +Cell[480060, 11734, 2274, 64, 212, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[482337, 11800, 574, 13, 80, "Message",ExpressionUUID->"cd4be699-835e-4fdf-aff1-bf73ba0ae72f"], +Cell[482914, 11815, 578, 13, 80, "Message",ExpressionUUID->"c8ff25c9-327c-4e1a-8066-aa12efab5a6c"], +Cell[483495, 11830, 583, 13, 80, "Message",ExpressionUUID->"dc79b4c1-ba6d-40dd-927e-87ceb14d1143"], +Cell[484081, 11845, 471, 11, 26, "Message",ExpressionUUID->"f8a24eb2-35a5-4c6b-ac64-e0d06aae5ce5"], +Cell[484555, 11858, 172, 3, 33, "Output",ExpressionUUID->"e1e7f64d-1f35-46bf-b9e1-c8f758ec5dc9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484764, 11866, 2232, 63, 212, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[486999, 11931, 575, 13, 80, "Message",ExpressionUUID->"727d1b51-a9ea-41ee-b982-ef9a220f49a4"], +Cell[487577, 11946, 578, 13, 80, "Message",ExpressionUUID->"633d6728-2a59-4d8a-8332-eb304fc18479"], +Cell[488158, 11961, 583, 13, 80, "Message",ExpressionUUID->"24b4adbe-8cc2-4221-9ebd-0aa560f47669"], +Cell[488744, 11976, 471, 11, 26, "Message",ExpressionUUID->"3477e4cf-50f0-464e-830c-2954d0b6526e"], +Cell[489218, 11989, 170, 3, 33, "Output",ExpressionUUID->"4fbb24d6-9445-4935-beab-f3a1ccbf85b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489425, 11997, 2235, 63, 212, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[491663, 12062, 577, 13, 80, "Message",ExpressionUUID->"4ac76e19-412e-4984-9ad7-1e72e97d133e"], +Cell[492243, 12077, 578, 13, 80, "Message",ExpressionUUID->"c623e4ca-e9bc-44dd-995b-396e83eb32c3"], +Cell[492824, 12092, 585, 13, 80, "Message",ExpressionUUID->"2c582c68-12c0-4305-bd5a-5244bc00881f"], +Cell[493412, 12107, 471, 11, 26, "Message",ExpressionUUID->"6ca61102-39be-470c-b1d5-8600f9ed1018"], +Cell[493886, 12120, 172, 3, 33, "Output",ExpressionUUID->"0fa7ae1c-1fb7-4d80-b3e3-f3af49744391"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494095, 12128, 238, 6, 46, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[494336, 12136, 171, 3, 33, "Output",ExpressionUUID->"c97b39ed-67cf-465c-98ca-c17e9acf450a"] +}, Open ]], +Cell[494522, 12142, 273, 6, 29, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[494820, 12152, 558, 19, 51, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[495381, 12173, 171, 3, 33, "Output",ExpressionUUID->"3756d335-df57-4dc2-90b1-bf8a5d08f0f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495589, 12181, 170, 5, 55, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[495762, 12188, 171, 3, 33, "Output",ExpressionUUID->"b5ceb94d-52ba-4258-aa08-2c3a6e29fd25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495970, 12196, 181, 5, 43, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[496154, 12203, 170, 3, 33, "Output",ExpressionUUID->"5f5f5ed9-9cdb-4b21-b891-7ba12e6269b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496361, 12211, 6055, 185, 474, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[502419, 12398, 173, 3, 33, "Output",ExpressionUUID->"eb894338-cd7e-4cd3-9375-0729379d9f89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502629, 12406, 368, 9, 41, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[503000, 12417, 171, 3, 33, "Output",ExpressionUUID->"8feb67b6-ccd5-4179-802e-13ab55f4d62e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503208, 12425, 6122, 187, 474, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[509333, 12614, 172, 3, 33, "Output",ExpressionUUID->"2861d586-5c82-44c8-bc1c-6ccbb405c7c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509542, 12622, 368, 9, 41, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[509913, 12633, 171, 3, 33, "Output",ExpressionUUID->"12da8605-732c-4503-819a-26d25a95ca80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[510121, 12641, 2663, 88, 285, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[512787, 12731, 174, 3, 33, "Output",ExpressionUUID->"802fe896-ba18-4dc2-bb3e-d4a93d048b6e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512998, 12739, 2603, 85, 211, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[515604, 12826, 171, 3, 33, "Output",ExpressionUUID->"29b81598-47fb-4ff8-b2f6-b33977e1a7a6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515812, 12834, 3712, 118, 327, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[519527, 12954, 171, 3, 33, "Output",ExpressionUUID->"13f3204f-40c2-41f4-81a2-2894ff874891"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519735, 12962, 2077, 59, 234, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[521815, 13023, 579, 13, 80, "Message",ExpressionUUID->"c033335d-a63d-4764-af37-0e2c9653adca"], +Cell[522397, 13038, 585, 13, 80, "Message",ExpressionUUID->"e252c9b9-9d21-4ad6-9bd2-afc38aaa5591"], +Cell[522985, 13053, 585, 13, 80, "Message",ExpressionUUID->"450d629d-c8ab-450d-95f2-8b680d64b5e1"], +Cell[523573, 13068, 471, 11, 26, "Message",ExpressionUUID->"55fba11a-16ee-41b6-b6c1-3dd2f22fef62"], +Cell[524047, 13081, 171, 3, 33, "Output",ExpressionUUID->"4e1284f5-ca8b-4f4a-828e-42c8e6b5ad61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524255, 13089, 2077, 59, 234, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[526335, 13150, 579, 13, 80, "Message",ExpressionUUID->"53367f91-0f4e-4b6f-bc17-4bd5d79a8240"], +Cell[526917, 13165, 583, 13, 80, "Message",ExpressionUUID->"a25ecd0a-d4bc-4803-ada0-243bf05c502b"], +Cell[527503, 13180, 587, 13, 80, "Message",ExpressionUUID->"645c7b69-9588-4ce4-a9dc-16152940f7cd"], +Cell[528093, 13195, 473, 11, 26, "Message",ExpressionUUID->"346c8deb-0a1a-4358-a1bf-76bda3aef759"], +Cell[528569, 13208, 170, 3, 33, "Output",ExpressionUUID->"7d30887b-3f99-486e-9c53-c64d503ba3ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528776, 13216, 2053, 55, 151, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[530832, 13273, 20401, 384, 236, "Output",ExpressionUUID->"f6ce29c8-5808-453a-ba7a-bbcc56732734"] +}, Open ]], +Cell[CellGroupData[{ +Cell[551270, 13662, 2165, 61, 261, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[553438, 13725, 516, 12, 59, "Message",ExpressionUUID->"4cce50cb-a12a-47df-8116-1bf2f488ab01"], +Cell[553957, 13739, 519, 12, 59, "Message",ExpressionUUID->"7bf11d88-215f-41f3-a80d-9706bec675fe"], +Cell[554479, 13753, 522, 12, 59, "Message",ExpressionUUID->"0285d95f-dba8-491d-a5e2-91ab0e257068"], +Cell[555004, 13767, 473, 11, 26, "Message",ExpressionUUID->"24ba665e-ea74-4fc4-8fe6-1cd6aa431cf5"], +Cell[555480, 13780, 21569, 402, 232, "Output",ExpressionUUID->"c639cf35-a4d9-4ee0-ac1c-7e57ecf69932"] +}, Open ]], +Cell[CellGroupData[{ +Cell[577086, 14187, 164, 4, 29, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[577253, 14193, 27955, 534, 232, "Output",ExpressionUUID->"205fba32-9f9d-4b11-a5d1-95d9019915d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[605245, 14732, 1616, 48, 104, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[606864, 14782, 605, 13, 80, "Message",ExpressionUUID->"35ac7f20-3b11-4d88-978d-7f32ad24ce93"], +Cell[607472, 14797, 608, 13, 80, "Message",ExpressionUUID->"38041153-34b5-4fb9-8fc4-23236d0fdbb7"], +Cell[608083, 14812, 613, 13, 80, "Message",ExpressionUUID->"b7cde893-a778-4794-b3c9-aed1ff2d417c"], +Cell[608699, 14827, 473, 11, 26, "Message",ExpressionUUID->"651fb598-3c4a-451d-865b-11ff50e4bc28"], +Cell[609175, 14840, 171, 3, 33, "Output",ExpressionUUID->"213cb7a6-2451-4e24-91f1-449f35b14a19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[609383, 14848, 2272, 64, 212, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[611658, 14914, 579, 13, 80, "Message",ExpressionUUID->"ce604b68-114a-4b33-9aea-865c1b87507b"], +Cell[612240, 14929, 583, 13, 80, "Message",ExpressionUUID->"874ff68d-19ef-445e-878a-71c50fb3a18b"], +Cell[612826, 14944, 585, 13, 80, "Message",ExpressionUUID->"782b1360-044e-43c4-aea0-39ccf16a83e3"], +Cell[613414, 14959, 471, 11, 26, "Message",ExpressionUUID->"a91ba5e4-403c-42af-8eb0-95bcf0ab0eb6"], +Cell[613888, 14972, 170, 3, 33, "Output",ExpressionUUID->"bb39e09c-deab-4308-98ce-715faee42368"] +}, Open ]], +Cell[CellGroupData[{ +Cell[614095, 14980, 2231, 63, 212, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[616329, 15045, 579, 13, 80, "Message",ExpressionUUID->"0c60132a-a10d-4f76-a708-24d4be75ff57"], +Cell[616911, 15060, 583, 13, 80, "Message",ExpressionUUID->"14e0a593-4ff1-466d-9f47-cde7571192f1"], +Cell[617497, 15075, 585, 13, 80, "Message",ExpressionUUID->"ec5618c2-16b8-4f3f-b445-2c769ea7cba0"], +Cell[618085, 15090, 473, 11, 26, "Message",ExpressionUUID->"8060fbac-2786-4e43-8706-c957daf10c7a"], +Cell[618561, 15103, 172, 3, 33, "Output",ExpressionUUID->"2005050e-e01f-49ca-bb21-0a3924af24d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[618770, 15111, 2233, 63, 212, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[621006, 15176, 579, 13, 80, "Message",ExpressionUUID->"99a069e4-d3ca-4512-b738-ebfc6e4e7060"], +Cell[621588, 15191, 583, 13, 80, "Message",ExpressionUUID->"cabd1be7-8d6c-486e-9899-ee651b833771"], +Cell[622174, 15206, 585, 13, 80, "Message",ExpressionUUID->"e2bae2d3-0c6f-4403-8ac3-647c035552c5"], +Cell[622762, 15221, 471, 11, 26, "Message",ExpressionUUID->"ae0ead6e-71cc-44f1-9e5f-d6b75a022c26"], +Cell[623236, 15234, 171, 3, 33, "Output",ExpressionUUID->"5d538ca9-5b3e-4837-88b8-1917f2562f50"] +}, Open ]], +Cell[CellGroupData[{ +Cell[623444, 15242, 238, 6, 46, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[623685, 15250, 172, 3, 33, "Output",ExpressionUUID->"6bb6bf52-cfe5-4a57-b6d2-fe3e7c7debfe"] +}, Open ]], +Cell[623872, 15256, 143, 3, 29, "Input",ExpressionUUID->"94150439-83be-4890-9aea-082b5dc3e6e4"], +Cell[624018, 15261, 154, 3, 29, "Input",ExpressionUUID->"3d0ba265-1b31-40bb-9ba6-b5d6b8ec0f46"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw1.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw1.nb index ad23826..0dab95d 100644 --- a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 577101, 14426] -NotebookOptionsPosition[ 535095, 13755] -NotebookOutlinePosition[ 535535, 13773] -CellTagsIndexPosition[ 535492, 13770] +NotebookDataLength[ 690061, 16630] +NotebookOptionsPosition[ 647307, 15945] +NotebookOutlinePosition[ 647763, 15964] +CellTagsIndexPosition[ 647720, 15961] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -21,36 +21,40 @@ Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"d", "=", "4.98"}]], "Input", + RowBox[{"d", "=", "6.05"}]], "Input", CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9938046575111637`*^9, 3.993804701607058*^9}, - 3.993804733204545*^9}, + 3.993804733204545*^9, {3.993909737291142*^9, 3.993909742224861*^9}, { + 3.993910025500534*^9, 3.99391002667583*^9}}, CellLabel-> - "In[821]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], + "In[290]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[BoxData["4.98`"], "Output", +Cell[BoxData["6.05`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.993804549577532*^9, 3.993804625944013*^9, { - 3.993804662482604*^9, 3.993804748770383*^9}}, + 3.993804662482604*^9, 3.993804748770383*^9}, 3.9939096014243507`*^9, + 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993911040282156*^9}, CellLabel-> - "Out[821]=",ExpressionUUID->"ed0c2815-cc1a-4756-8d88-f5bb8caeb20b"] + "Out[290]=",ExpressionUUID->"bfe8a91a-961c-482d-97a2-a7c995ffe74f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"A", "=", "236"}]], "Input", - CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}}, + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993909136325391*^9, 3.993909137492978*^9}}, CellLabel-> - "In[822]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + "In[291]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[BoxData["236"], "Output", +Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.9938045496655397`*^9, 3.9938046259897127`*^9, { - 3.9938046625249434`*^9, 3.9938047488188868`*^9}}, + 3.9938046625249434`*^9, 3.9938047488188868`*^9}, 3.993909601730575*^9, + 3.993909669289562*^9, 3.99390975259161*^9, 3.993911040450327*^9}, CellLabel-> - "Out[822]=",ExpressionUUID->"ef9c60e3-1bdb-45d6-aac7-00dd70ac04ba"] + "Out[291]=",ExpressionUUID->"5a1c83b9-f479-4a9b-99f1-733098f74ca0"] }, Open ]], Cell[CellGroupData[{ @@ -60,14 +64,16 @@ Cell[BoxData[ CellChangeTimes->{ 3.991798961431202*^9, {3.99380431527282*^9, 3.993804315993903*^9}}, CellLabel-> - "In[823]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + "In[292]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], Cell[BoxData["156"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.993804317319977*^9, 3.9938045496866302`*^9, - 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}}, + 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}, + 3.9939096017486753`*^9, 3.9939096693086853`*^9, 3.9939097526160994`*^9, + 3.993911040468547*^9}, CellLabel-> - "Out[823]=",ExpressionUUID->"e8c83c95-2955-4170-af12-f0875fc6c4ff"] + "Out[292]=",ExpressionUUID->"e053eff7-fb3b-4463-b69a-2c6eae4b8a0f"] }, Open ]], Cell[CellGroupData[{ @@ -76,14 +82,15 @@ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, CellLabel-> - "In[824]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + "In[293]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.993804549706154*^9, 3.9938046260288763`*^9, { - 3.993804662560594*^9, 3.993804748856688*^9}}, + 3.993804662560594*^9, 3.993804748856688*^9}, 3.9939096017670803`*^9, + 3.9939096693268347`*^9, 3.993909752633919*^9, 3.9939110404863653`*^9}, CellLabel-> - "Out[824]=",ExpressionUUID->"58d48fbb-6f76-4eb4-979f-ed09e2af5758"] + "Out[293]=",ExpressionUUID->"9bfcf3e2-21bc-4d82-9c9b-62ec715a96eb"] }, Open ]], Cell[CellGroupData[{ @@ -96,14 +103,15 @@ Cell[BoxData[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", CellLabel-> - "In[825]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + "In[294]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[BoxData["0.5451694915254238`"], "Output", +Cell[BoxData["0.5455000000000001`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.99380454972574*^9, 3.993804626048635*^9, { - 3.9938046625774603`*^9, 3.993804748860417*^9}}, + 3.9938046625774603`*^9, 3.993804748860417*^9}, 3.993909601785378*^9, + 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993911040509864*^9}, CellLabel-> - "Out[825]=",ExpressionUUID->"dca1cae6-2ffa-4a80-9d6f-e2d10825e8a3"] + "Out[294]=",ExpressionUUID->"67e0d955-77d4-400b-a1d1-6c0d19563e43"] }, Open ]], Cell[CellGroupData[{ @@ -111,14 +119,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", CellLabel-> - "In[826]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + "In[295]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.993804549747018*^9, 3.993804626052534*^9, { - 3.9938046625812197`*^9, 3.9938047488891172`*^9}}, + 3.9938046625812197`*^9, 3.9938047488891172`*^9}, 3.9939096018028593`*^9, + 3.993909669362465*^9, 3.993909752666353*^9, 3.993911040522245*^9}, CellLabel-> - "Out[826]=",ExpressionUUID->"ac1fdb9d-fb8f-4506-b59e-629cb161fed4"] + "Out[295]=",ExpressionUUID->"3984b6eb-4d13-4dcb-829c-4fdb823c5845"] }, Open ]], Cell[CellGroupData[{ @@ -130,14 +139,15 @@ Cell[BoxData[ RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, CellLabel-> - "In[827]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + "In[296]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], Cell[BoxData["6.244526630021248`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.993804549770184*^9, 3.993804626085994*^9, { - 3.9938046626047153`*^9, 3.993804748905245*^9}}, + 3.9938046626047153`*^9, 3.993804748905245*^9}, 3.993909601820876*^9, + 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993911040543586*^9}, CellLabel-> - "Out[827]=",ExpressionUUID->"9d67cd3c-e445-4322-b965-05ff68cd7062"] + "Out[296]=",ExpressionUUID->"c3b970f2-4c56-4d38-b227-ae9a46a1b0d6"] }, Open ]], Cell[CellGroupData[{ @@ -150,14 +160,15 @@ Cell[BoxData[ RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", CellLabel-> - "In[828]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + "In[297]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[BoxData["4.9982884808739705`"], "Output", +Cell[BoxData["5.08024220226995`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.9938045497749643`*^9, 3.993804626103525*^9, { - 3.993804662619735*^9, 3.993804748921926*^9}}, + 3.993804662619735*^9, 3.993804748921926*^9}, 3.993909601824861*^9, + 3.99390966939812*^9, 3.993909752692038*^9, 3.99391104056579*^9}, CellLabel-> - "Out[828]=",ExpressionUUID->"45eaf109-a48e-44b4-941a-55ce331a2c0c"] + "Out[297]=",ExpressionUUID->"af49de57-e28e-47c9-b057-cdde5b162a5d"] }, Open ]], Cell[CellGroupData[{ @@ -167,14 +178,15 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799283179735*^9, {3.9938043369460163`*^9, 3.993804343883932*^9}}, CellLabel-> - "In[829]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + "In[298]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], Cell[BoxData["0.9831`"], "Output", CellChangeTimes->{ 3.993804549811586*^9, 3.993804626121752*^9, {3.993804662635777*^9, - 3.9938047489393063`*^9}}, + 3.9938047489393063`*^9}, 3.993909601854841*^9, 3.993909669421215*^9, + 3.9939097527133102`*^9, 3.99391104058123*^9}, CellLabel-> - "Out[829]=",ExpressionUUID->"78e256c2-f976-44ca-8542-94afc0fa7bb2"] + "Out[298]=",ExpressionUUID->"f696685c-de7a-4b34-a5f0-ee2d475fe22d"] }, Open ]], Cell[CellGroupData[{ @@ -184,14 +196,15 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799280663351*^9, {3.9938043632365713`*^9, 3.993804381532929*^9}}, CellLabel-> - "In[830]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + "In[299]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[BoxData["0.463`"], "Output", CellChangeTimes->{ 3.993804549830037*^9, 3.993804626139834*^9, {3.993804662651184*^9, - 3.993804748955449*^9}}, + 3.993804748955449*^9}, 3.993909601874164*^9, 3.993909669438889*^9, + 3.99390975272956*^9, 3.993911040594975*^9}, CellLabel-> - "Out[830]=",ExpressionUUID->"bc4252d2-1894-4de1-8095-d4f6472bc68a"] + "Out[299]=",ExpressionUUID->"9d41845c-7d14-41a1-8892-0ea2ee3b1256"] }, Open ]], Cell[CellGroupData[{ @@ -199,14 +212,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", CellLabel-> - "In[831]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + "In[300]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.9938045498689833`*^9, 3.993804626160439*^9, { - 3.993804662666739*^9, 3.9938047489718924`*^9}}, + 3.993804662666739*^9, 3.9938047489718924`*^9}, 3.993909601896028*^9, + 3.993909669457499*^9, 3.993909752744871*^9, 3.993911040607565*^9}, CellLabel-> - "Out[831]=",ExpressionUUID->"c5f39883-e5cd-43d4-bd93-6f9a5a135399"] + "Out[300]=",ExpressionUUID->"29508bda-bb73-4957-84cc-39a52ce48706"] }, Open ]], Cell[CellGroupData[{ @@ -214,14 +228,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", CellLabel-> - "In[832]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + "In[301]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.9938045498874207`*^9, 3.9938046261797523`*^9, { - 3.993804662682715*^9, 3.993804748988103*^9}}, + 3.993804662682715*^9, 3.993804748988103*^9}, 3.993909601914316*^9, + 3.993909669475305*^9, 3.993909752760817*^9, 3.993911040620604*^9}, CellLabel-> - "Out[832]=",ExpressionUUID->"93fcb263-22cb-4fc6-865c-2edb705f301e"] + "Out[301]=",ExpressionUUID->"29f8f643-604e-48c0-bf8f-65d048f231f1"] }, Open ]], Cell[CellGroupData[{ @@ -246,14 +261,15 @@ Cell[BoxData[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", CellLabel-> - "In[833]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + "In[302]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], Cell[BoxData["2.5173601133375656`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.9938045499058733`*^9, 3.993804626198407*^9, { - 3.9938046626977053`*^9, 3.993804749004431*^9}}, + 3.9938046626977053`*^9, 3.993804749004431*^9}, 3.9939096019331207`*^9, + 3.993909669493326*^9, 3.993909752780408*^9, 3.993911040633182*^9}, CellLabel-> - "Out[833]=",ExpressionUUID->"1d0e4f25-790d-4859-b373-c11f6533427f"] + "Out[302]=",ExpressionUUID->"5c404409-2eb4-4f60-a7f5-77ba61fccbae"] }, Open ]], Cell[CellGroupData[{ @@ -278,14 +294,15 @@ Cell[BoxData[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", CellLabel-> - "In[834]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + "In[303]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], Cell[BoxData["1.5234450434796134`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993804549925211*^9, 3.993804626217005*^9, { - 3.993804662711796*^9, 3.99380474902066*^9}}, + 3.993804662711796*^9, 3.99380474902066*^9}, 3.993909601952641*^9, + 3.9939096695112753`*^9, 3.993909752793829*^9, 3.993911040650964*^9}, CellLabel-> - "Out[834]=",ExpressionUUID->"0eb23c11-639c-4776-bb1e-c43de62f7477"] + "Out[303]=",ExpressionUUID->"ad3588ca-b01a-4a3b-8fe2-5dd386fab4c7"] }, Open ]], Cell[CellGroupData[{ @@ -293,25 +310,87 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c11", "=", RowBox[{"1", "-", - FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel-> + "In[304]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { + 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, + 3.993909669529284*^9, 3.993909752809037*^9, 3.9939110406687326`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"e81f064a-fccc-4129-9b3a-6e7a4c112343"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + RowBox[{ + RowBox[{"(", RowBox[{ RowBox[{"(", - RowBox[{ - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", RowBox[{"(", - RowBox[{ - SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", RowBox[{ RowBox[{"R01", "*", RowBox[{"(", @@ -337,83 +416,43 @@ Cell[BoxData[ SuperscriptBox["w1", "2"]}], "+", RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[835]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], - -Cell[BoxData["0.29630774006911487`"], "Output", - CellChangeTimes->{ - 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { - 3.993804662725235*^9, 3.993804749036929*^9}}, - CellLabel-> - "Out[835]=",ExpressionUUID->"eb5ca689-eb33-41b5-a928-18b2388707d8"] -}, Open ]], - -Cell[CellGroupData[{ + "In[305]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[BoxData[ - RowBox[{"c12", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w2", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[836]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], - -Cell[BoxData[ - RowBox[{"-", "0.0618973528729618`"}]], "Output", + RowBox[{"-", "0.056142152983087`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.993804549962688*^9, 3.993804626257918*^9, { - 3.993804662739541*^9, 3.993804749053331*^9}}, + 3.993804662739541*^9, 3.993804749053331*^9}, 3.9939096019922533`*^9, + 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993911040685882*^9}, CellLabel-> - "Out[836]=",ExpressionUUID->"95f6b77f-607b-4b35-b833-49a8fcb918d5"] + "Out[305]=",ExpressionUUID->"fda63efa-27c6-4deb-82e4-a5e379b7e85c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c21", "=", - FractionBox[ - RowBox[{ - RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ RowBox[{"R01", "*", RowBox[{"(", RowBox[{"1", "-", @@ -423,46 +462,33 @@ Cell[BoxData[ RowBox[{"b1", "*", SqrtBox[ FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{"1", "-", - SuperscriptBox["w1", "2"]}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]], "Input", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[837]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + "In[306]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ - RowBox[{"-", "0.3781886780011569`"}]], "Output", + RowBox[{"-", "0.3374911667667172`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { - 3.9938046627542543`*^9, 3.993804749069655*^9}}, + 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, + 3.993909669564651*^9, 3.993909752838642*^9, 3.993911040699798*^9}, CellLabel-> - "Out[837]=",ExpressionUUID->"7742fd24-05cc-4b48-98e4-cddfc4410969"] + "Out[306]=",ExpressionUUID->"d981f946-6e4a-4ba1-8088-61f809d5a0c4"] }, Open ]], Cell[CellGroupData[{ @@ -470,60 +496,63 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"c22", "=", RowBox[{"1", "-", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"R01", "*", - RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w1", "2"]}]}], ")"}], "*", - RowBox[{"(", - RowBox[{ - SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], - RowBox[{ - RowBox[{"R01", "*", + RowBox[{ + RowBox[{"(", + RowBox[{ RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b1", "*", "b1"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b1", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w2", "2"]}], "+", - RowBox[{"R02", "*", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", RowBox[{"(", - RowBox[{"1", "-", - FractionBox[ - RowBox[{"b2", "*", "b2"}], - RowBox[{"4", "\[Pi]"}]], "+", - RowBox[{"b2", "*", - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", - SuperscriptBox["w1", "2"]}], "+", - RowBox[{"d", "*", - SuperscriptBox["w2", "2"], "*", - SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[838]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + "In[307]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[BoxData["0.5998789059605238`"], "Output", +Cell[BoxData["0.5841645161809887`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.99380455000006*^9, 3.993804626300075*^9, { - 3.993804662773251*^9, 3.993804749085907*^9}}, + 3.993804662773251*^9, 3.993804749085907*^9}, 3.993909602031176*^9, + 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993911040717505*^9}, CellLabel-> - "Out[838]=",ExpressionUUID->"fdbb1356-e45b-4862-a24e-eaca088e8ad4"] + "Out[307]=",ExpressionUUID->"a97e9892-d696-4222-9eef-5e31516a2745"] }, Open ]], Cell[CellGroupData[{ @@ -531,14 +560,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellLabel-> - "In[839]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + "In[308]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.993804550019484*^9, 3.993804626319972*^9, { - 3.993804662777142*^9, 3.9938047491020308`*^9}}, + 3.993804662777142*^9, 3.9938047491020308`*^9}, 3.99390960204895*^9, + 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939110407302427`*^9}, CellLabel-> - "Out[839]=",ExpressionUUID->"0cc4bb0b-6373-42d0-9cf2-523e2a88c524"] + "Out[308]=",ExpressionUUID->"1e7eb844-a0bd-4fb6-9e4a-1ec18f4e8892"] }, Open ]], Cell[CellGroupData[{ @@ -546,14 +576,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", CellLabel-> - "In[840]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + "In[309]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.9938045500378237`*^9, 3.993804626339315*^9, { - 3.993804662793344*^9, 3.99380474911817*^9}}, + 3.993804662793344*^9, 3.99380474911817*^9}, 3.993909602068466*^9, + 3.9939096696185913`*^9, 3.993909752884066*^9, 3.9939110407465763`*^9}, CellLabel-> - "Out[840]=",ExpressionUUID->"c9e218e4-c235-4104-b198-69f1ea326388"] + "Out[309]=",ExpressionUUID->"cfdcfe7d-5525-4642-8873-7a956588d382"] }, Open ]], Cell[CellGroupData[{ @@ -561,14 +592,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", CellLabel-> - "In[841]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + "In[310]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.9938045500560837`*^9, 3.9938046263600817`*^9, { - 3.99380466280895*^9, 3.993804749134166*^9}}, + 3.99380466280895*^9, 3.993804749134166*^9}, 3.993909602086402*^9, + 3.9939096696362677`*^9, 3.99390975290001*^9, 3.993911040760674*^9}, CellLabel-> - "Out[841]=",ExpressionUUID->"0ed03adc-545f-4a6d-b441-0d38223055d3"] + "Out[310]=",ExpressionUUID->"cb2eca35-3747-48cb-b0ff-3555e17cd729"] }, Open ]], Cell[CellGroupData[{ @@ -578,15 +610,16 @@ Cell[BoxData[ RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, CellLabel-> - "In[842]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + "In[311]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.993804550075344*^9, 3.993804626383381*^9, { - 3.99380466282749*^9, 3.993804749150152*^9}}, + 3.99380466282749*^9, 3.993804749150152*^9}, 3.993909602104745*^9, + 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993911040772584*^9}, CellLabel-> - "Out[842]=",ExpressionUUID->"47ec7bff-21a0-4485-ab84-fbbbf1028d39"] + "Out[311]=",ExpressionUUID->"acce0cfc-40b0-46a7-a47f-63f0bbdd1c00"] }, Open ]], Cell[CellGroupData[{ @@ -594,14 +627,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", CellLabel-> - "In[843]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + "In[312]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.993804550093996*^9, 3.99380462640412*^9, { - 3.9938046628451138`*^9, 3.993804749168808*^9}}, + 3.9938046628451138`*^9, 3.993804749168808*^9}, 3.993909602124238*^9, + 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993911040786252*^9}, CellLabel-> - "Out[843]=",ExpressionUUID->"74f64109-a28d-49fa-b068-3b8029e7eecf"] + "Out[312]=",ExpressionUUID->"8b7164b7-c4e6-47e3-8b21-346aa5cb62db"] }, Open ]], Cell[CellGroupData[{ @@ -612,14 +646,15 @@ Cell[BoxData[ 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.9938046144530077`*^9, 3.9938046145855627`*^9}}, CellLabel-> - "In[844]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + "In[313]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.993804626423663*^9, {3.993804662861299*^9, - 3.99380474918727*^9}}, + 3.99380474918727*^9}, 3.993909602142963*^9, 3.99390966968908*^9, + 3.993909752947946*^9, 3.99391104079755*^9}, CellLabel-> - "Out[844]=",ExpressionUUID->"e8780e6a-9ec2-4323-89ad-edf2d348f47f"] + "Out[313]=",ExpressionUUID->"00c43026-2011-420a-9a45-ff2958d4751e"] }, Open ]], Cell[CellGroupData[{ @@ -630,14 +665,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.99380461799697*^9, 3.993804618062627*^9}}, CellLabel-> - "In[845]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + "In[314]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.9938045501483994`*^9, 3.993804626442574*^9, { - 3.993804662877561*^9, 3.9938047492047462`*^9}}, + 3.993804662877561*^9, 3.9938047492047462`*^9}, 3.993909602161409*^9, + 3.993909669707423*^9, 3.993909752964058*^9, 3.993911040808663*^9}, CellLabel-> - "Out[845]=",ExpressionUUID->"81f3a166-0da6-41a6-91c9-5aead39720e9"] + "Out[314]=",ExpressionUUID->"7927fe89-097d-476f-a75b-264cdb99e18c"] }, Open ]], Cell[CellGroupData[{ @@ -647,14 +683,15 @@ Cell[BoxData[ RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, CellLabel-> - "In[846]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + "In[315]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[BoxData["80"], "Output", +Cell[BoxData["84"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.993804550167096*^9, 3.993804626459854*^9, { - 3.993804662896564*^9, 3.9938047492214317`*^9}}, + 3.993804662896564*^9, 3.9938047492214317`*^9}, 3.993909602179817*^9, + 3.993909669724697*^9, 3.993909752980503*^9, 3.993911040820331*^9}, CellLabel-> - "Out[846]=",ExpressionUUID->"5b20a449-57bb-475e-9705-dde86ba51113"] + "Out[315]=",ExpressionUUID->"852532e5-89ce-4119-9e1c-f3de9400d6dd"] }, Open ]], Cell[CellGroupData[{ @@ -670,14 +707,15 @@ Cell[BoxData[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", CellLabel-> - "In[847]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + "In[316]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[BoxData["0.10938461538461539`"], "Output", +Cell[BoxData["0.11153846153846153`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.9938045501856823`*^9, 3.993804626476894*^9, { - 3.993804662912559*^9, 3.993804749238111*^9}}, + 3.993804662912559*^9, 3.993804749238111*^9}, 3.993909602199831*^9, + 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993911040829289*^9}, CellLabel-> - "Out[847]=",ExpressionUUID->"9995666b-fe9d-42b5-8232-f197ce6d61b5"] + "Out[316]=",ExpressionUUID->"a9a96088-ba6f-4e12-9a2a-82e9f806b5cc"] }, Open ]], Cell[CellGroupData[{ @@ -693,15 +731,16 @@ Cell[BoxData[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", CellLabel-> - "In[848]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + "In[317]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ - RowBox[{"-", "2.565076923076923`"}]], "Output", + RowBox[{"-", "2.562307692307692`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.993804550204549*^9, 3.9938046264931793`*^9, { - 3.993804662930933*^9, 3.993804749256987*^9}}, + 3.993804662930933*^9, 3.993804749256987*^9}, 3.993909602217969*^9, + 3.993909669760494*^9, 3.99390975301192*^9, 3.993911040848421*^9}, CellLabel-> - "Out[848]=",ExpressionUUID->"4bd1dbec-3147-446e-9cb6-86035a89a533"] + "Out[317]=",ExpressionUUID->"51d6a5d5-7e18-402f-97ca-ee722797b03d"] }, Open ]], Cell[CellGroupData[{ @@ -733,14 +772,15 @@ Cell[BoxData[ 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, CellLabel-> - "In[849]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + "In[318]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[BoxData["20.98941707405689`"], "Output", +Cell[BoxData["22.163907548137733`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.993804550224925*^9, 3.993804626512244*^9, { - 3.993804662948985*^9, 3.993804749273611*^9}}, + 3.993804662948985*^9, 3.993804749273611*^9}, 3.993909602237144*^9, + 3.99390966977844*^9, 3.993909753027061*^9, 3.993911040863247*^9}, CellLabel-> - "Out[849]=",ExpressionUUID->"123e0e2d-bbea-4bd3-8f7f-c7b399a5b6a8"] + "Out[318]=",ExpressionUUID->"7c73e795-6feb-48ad-ba7f-4b3ebf476314"] }, Open ]], Cell[CellGroupData[{ @@ -749,14 +789,15 @@ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, CellLabel-> - "In[850]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + "In[319]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.993804550242552*^9, 3.993804626529005*^9, { - 3.993804662966734*^9, 3.9938047492900057`*^9}}, + 3.993804662966734*^9, 3.9938047492900057`*^9}, 3.993909602255596*^9, + 3.993909669800799*^9, 3.993909753041724*^9, 3.9939110408795156`*^9}, CellLabel-> - "Out[850]=",ExpressionUUID->"a96faa50-6bdc-494c-b532-3ab859057a70"] + "Out[319]=",ExpressionUUID->"38deb10c-2d56-4d12-9e1d-e950eb2a7e36"] }, Open ]], Cell[CellGroupData[{ @@ -767,20 +808,21 @@ Cell[BoxData[ 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.9938043992805843`*^9, 3.993804401771452*^9}}, CellLabel-> - "In[851]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + "In[320]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], Cell[BoxData["1.653`"], "Output", CellChangeTimes->{ 3.993804550280451*^9, 3.993804626545594*^9, {3.993804662983712*^9, - 3.9938047493074627`*^9}}, + 3.9938047493074627`*^9}, 3.9939096022742043`*^9, 3.99390966981877*^9, + 3.9939097530579777`*^9, 3.993911040894527*^9}, CellLabel-> - "Out[851]=",ExpressionUUID->"33126a93-f99f-483d-aff7-55394bb8f08d"] + "Out[320]=",ExpressionUUID->"0f8c8b41-799e-46e0-b1a5-0c58fc695566"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, CellLabel-> - "In[852]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + "In[321]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ @@ -790,20 +832,21 @@ Cell[BoxData[ 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.9938044044051847`*^9, 3.993804405718573*^9}}, CellLabel-> - "In[853]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + "In[322]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], Cell[BoxData["0.855`"], "Output", CellChangeTimes->{ 3.9938045503168097`*^9, 3.993804626574059*^9, {3.993804663013727*^9, - 3.993804749370492*^9}}, + 3.993804749370492*^9}, 3.993909602333745*^9, 3.99390966987148*^9, + 3.9939097530831842`*^9, 3.993911040917564*^9}, CellLabel-> - "Out[853]=",ExpressionUUID->"41769073-9b62-41f1-a025-733acab1165a"] + "Out[322]=",ExpressionUUID->"be181857-1700-4f40-9804-fb3f38c7d9bd"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, CellLabel-> - "In[854]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + "In[323]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ @@ -813,20 +856,21 @@ Cell[BoxData[ 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.9938044089096622`*^9, 3.993804410585486*^9}}, CellLabel-> - "In[855]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + "In[324]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], Cell[BoxData["2.405`"], "Output", CellChangeTimes->{ 3.993804550350713*^9, 3.993804626598034*^9, {3.993804663037463*^9, - 3.993804749435276*^9}}, + 3.993804749435276*^9}, 3.9939096023888474`*^9, 3.993909669925479*^9, + 3.9939097531059*^9, 3.993911040939246*^9}, CellLabel-> - "Out[855]=",ExpressionUUID->"6856cf05-4d68-41e6-9de8-06e52af36743"] + "Out[324]=",ExpressionUUID->"0348e624-9ea7-4810-bd70-d987f1999199"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, CellLabel-> - "In[856]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + "In[325]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ @@ -836,20 +880,21 @@ Cell[BoxData[ 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.993804414830567*^9, 3.993804416147113*^9}}, CellLabel-> - "In[857]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + "In[326]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], Cell[BoxData["1.225`"], "Output", CellChangeTimes->{ 3.993804550383745*^9, 3.993804626621963*^9, {3.993804663060033*^9, - 3.9938047494929237`*^9}}, + 3.9938047494929237`*^9}, 3.9939096024465313`*^9, 3.993909669980788*^9, + 3.993909753130068*^9, 3.993911040961238*^9}, CellLabel-> - "Out[857]=",ExpressionUUID->"383f3643-42b2-4708-ab50-ae114e740627"] + "Out[326]=",ExpressionUUID->"9c230e8e-38a6-466b-8e11-40289f94ddbb"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, CellLabel-> - "In[858]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + "In[327]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ @@ -859,20 +904,21 @@ Cell[BoxData[ 3.991718016467348*^9, 3.991799361414671*^9, {3.993804418872067*^9, 3.9938044202542753`*^9}}, CellLabel-> - "In[859]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + "In[328]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], Cell[BoxData["1.63`"], "Output", CellChangeTimes->{ 3.993804550416999*^9, 3.993804626645709*^9, {3.9938046630845337`*^9, - 3.993804749547261*^9}}, + 3.993804749547261*^9}, 3.993909602527773*^9, 3.993909670035091*^9, + 3.993909753153574*^9, 3.99391104098392*^9}, CellLabel-> - "Out[859]=",ExpressionUUID->"25ed6acc-a97a-430a-be06-02ea35c426ce"] + "Out[328]=",ExpressionUUID->"3ad237c9-253f-4ed3-8cf7-28dc852b73e2"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, CellLabel-> - "In[860]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + "In[329]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ @@ -882,20 +928,21 @@ Cell[BoxData[ 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993804423858293*^9, 3.993804426562767*^9}}, CellLabel-> - "In[861]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + "In[330]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], Cell[BoxData["0.5571`"], "Output", CellChangeTimes->{ 3.993804550449337*^9, 3.993804626671207*^9, {3.993804663115242*^9, - 3.993804749603999*^9}}, + 3.993804749603999*^9}, 3.993909602589055*^9, 3.9939096700891027`*^9, + 3.993909753176607*^9, 3.9939110410128717`*^9}, CellLabel-> - "Out[861]=",ExpressionUUID->"501380b2-79ff-460c-b9d7-eea0a1c67904"] + "Out[330]=",ExpressionUUID->"13ac80b4-7bf6-458a-a983-fab5ead8ef5a"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, CellLabel-> - "In[862]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + "In[331]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ @@ -905,20 +952,21 @@ Cell[BoxData[ 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938044301504927`*^9, 3.993804433535384*^9}}, CellLabel-> - "In[863]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + "In[332]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], Cell[BoxData["1.82`"], "Output", CellChangeTimes->{ 3.993804550483719*^9, 3.993804626698537*^9, {3.993804663139299*^9, - 3.993804749658854*^9}}, + 3.993804749658854*^9}, 3.993909602653262*^9, 3.993909670143072*^9, + 3.993909753199719*^9, 3.993911041041524*^9}, CellLabel-> - "Out[863]=",ExpressionUUID->"079ab534-6674-442b-a298-2ad27736885d"] + "Out[332]=",ExpressionUUID->"47c1d714-42c6-4d5a-80d4-9bf1a6a91f34"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, CellLabel-> - "In[864]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + "In[333]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ @@ -927,20 +975,21 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993804436228294*^9, 3.993804438250544*^9}}, CellLabel-> - "In[865]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + "In[334]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], Cell[BoxData["1.82`"], "Output", CellChangeTimes->{ 3.993804550516501*^9, 3.993804626722493*^9, {3.9938046631629744`*^9, - 3.993804749712779*^9}}, + 3.993804749712779*^9}, 3.9939096027072487`*^9, 3.993909670196845*^9, + 3.9939097532228928`*^9, 3.9939110410620947`*^9}, CellLabel-> - "Out[865]=",ExpressionUUID->"2962e2be-5199-4737-9aa0-c7a25925e07e"] + "Out[334]=",ExpressionUUID->"cb183a1e-c97a-4273-9f61-ac82f5744288"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, CellLabel-> - "In[866]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], + "In[335]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1430,15 +1479,16 @@ Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], CellLabel-> - "In[867]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + "In[336]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], Cell[BoxData[ - RowBox[{"-", "0.1442299506949169`"}]], "Output", + RowBox[{"-", "0.04675250913077061`"}]], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.993804550599751*^9, 3.993804626769621*^9, { - 3.99380466321212*^9, 3.993804749779405*^9}}, + 3.99380466321212*^9, 3.993804749779405*^9}, 3.993909602821623*^9, + 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993911041160969*^9}, CellLabel-> - "Out[867]=",ExpressionUUID->"766992da-769c-4e32-8ee5-ec6a95178699"] + "Out[336]=",ExpressionUUID->"9fdeb3d6-6f8d-4813-9463-eb0b5bcf954f"] }, Open ]], Cell[CellGroupData[{ @@ -1933,14 +1983,15 @@ Cell[BoxData[ 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, CellLabel-> - "In[868]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + "In[337]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[BoxData["0.28752255373834495`"], "Output", +Cell[BoxData["0.08542989528290149`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.9938045506724253`*^9, 3.993804626799774*^9, { - 3.993804663242297*^9, 3.993804749831417*^9}}, + 3.993804663242297*^9, 3.993804749831417*^9}, 3.993909602850985*^9, + 3.993909670308428*^9, 3.99390975330634*^9, 3.993911041227948*^9}, CellLabel-> - "Out[868]=",ExpressionUUID->"4fc8db10-5a17-4088-b57f-0e3d3e9697dc"] + "Out[337]=",ExpressionUUID->"d4dfb4f1-df43-4c9a-8c38-be7975236feb"] }, Open ]], Cell[CellGroupData[{ @@ -2429,15 +2480,16 @@ Cell[BoxData[ 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, CellLabel-> - "In[869]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + "In[338]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ - RowBox[{"-", "162.27548311058885`"}]], "Output", + RowBox[{"-", "92.97992176536582`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.9938045506993027`*^9, 3.993804626828765*^9, { - 3.99380466327107*^9, 3.99380474985798*^9}}, + 3.99380466327107*^9, 3.99380474985798*^9}, 3.993909602878909*^9, + 3.9939096703348618`*^9, 3.993909753333283*^9, 3.99391104129389*^9}, CellLabel-> - "Out[869]=",ExpressionUUID->"0d754c99-0131-487f-8d67-385c1cdfc8c0"] + "Out[338]=",ExpressionUUID->"e8732f27-b3b9-4d8b-8ffb-d51402fa2408"] }, Open ]], Cell[CellGroupData[{ @@ -2996,15 +3048,16 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[870]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + "In[339]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ - RowBox[{"-", "100.53390398127617`"}]], "Output", + RowBox[{"-", "58.84836946427625`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.993804550730234*^9, 3.993804626860573*^9, { - 3.99380466335039*^9, 3.993804749888824*^9}}, + 3.99380466335039*^9, 3.993804749888824*^9}, 3.9939096029089117`*^9, + 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939110413816547`*^9}, CellLabel-> - "Out[870]=",ExpressionUUID->"c4364076-0cf2-4e86-bfbc-7c309f856874"] + "Out[339]=",ExpressionUUID->"e8ad7708-77f4-4fe2-b342-af8dbc55d0c3"] }, Open ]], Cell[CellGroupData[{ @@ -3563,15 +3616,16 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[871]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + "In[340]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ - RowBox[{"-", "303.56271225692495`"}]], "Output", + RowBox[{"-", "175.78557664639112`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.993804550761911*^9, 3.993804626893774*^9, { - 3.993804663389638*^9, 3.993804749919907*^9}}, + 3.993804663389638*^9, 3.993804749919907*^9}, 3.9939096029398603`*^9, + 3.993909670396442*^9, 3.993909753395891*^9, 3.993911041465062*^9}, CellLabel-> - "Out[871]=",ExpressionUUID->"501dbb3e-d0fc-4aed-b5e6-89ef1978ef04"] + "Out[340]=",ExpressionUUID->"52086ec7-64a7-4ef2-adb5-6f895c2cd88e"] }, Open ]], Cell[CellGroupData[{ @@ -4203,15 +4257,16 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[872]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + "In[341]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ - RowBox[{"-", "373.7689693889779`"}]], "Output", + RowBox[{"-", "221.57551938396955`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.993804550797638*^9, 3.993804626930235*^9, { - 3.993804663472403*^9, 3.993804749955412*^9}}, + 3.993804663472403*^9, 3.993804749955412*^9}, 3.993909602975071*^9, + 3.9939096704323187`*^9, 3.993909753433277*^9, 3.9939110415477953`*^9}, CellLabel-> - "Out[872]=",ExpressionUUID->"734938f7-5a3c-402d-a328-ffc882c3d9a0"] + "Out[341]=",ExpressionUUID->"51afe6c6-8696-49f6-81bc-dee7e3c3fa3d"] }, Open ]], Cell[CellGroupData[{ @@ -4219,14 +4274,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", CellLabel-> - "In[873]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + "In[342]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.9938045508194923`*^9, 3.993804626946419*^9, { - 3.993804663488306*^9, 3.993804749974567*^9}}, + 3.993804663488306*^9, 3.993804749974567*^9}, 3.9939096029931*^9, + 3.993909670451165*^9, 3.9939097534481*^9, 3.993911041562955*^9}, CellLabel-> - "Out[873]=",ExpressionUUID->"4371a39e-7768-48fc-a276-1a9ce8923ae1"] + "Out[342]=",ExpressionUUID->"c00e6e0e-cc43-4657-8b9b-2c6da5ad5a94"] }, Open ]], Cell[CellGroupData[{ @@ -4234,14 +4290,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", CellLabel-> - "In[874]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + "In[343]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.993804550838839*^9, 3.99380462696198*^9, { - 3.993804663542288*^9, 3.993804749990815*^9}}, + 3.993804663542288*^9, 3.993804749990815*^9}, 3.9939096030110683`*^9, + 3.993909670469376*^9, 3.993909753462414*^9, 3.993911041578163*^9}, CellLabel-> - "Out[874]=",ExpressionUUID->"fda2c4bd-ee2e-4eb6-a572-cd47f231a89f"] + "Out[343]=",ExpressionUUID->"d8321473-7421-4f13-8278-ddc47a846fe6"] }, Open ]], Cell[CellGroupData[{ @@ -4286,14 +4343,15 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[875]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + "In[344]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[BoxData["227.77716420966135`"], "Output", +Cell[BoxData["111.7060296377673`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.9938045508585377`*^9, 3.993804626991984*^9, { - 3.993804663557494*^9, 3.9938047500074787`*^9}}, + 3.993804663557494*^9, 3.9938047500074787`*^9}, 3.99390960303067*^9, + 3.993909670487976*^9, 3.993909753477995*^9, 3.993911041596219*^9}, CellLabel-> - "Out[875]=",ExpressionUUID->"1f6c7d5d-ca17-4134-a209-80febffc5163"] + "Out[344]=",ExpressionUUID->"323b0ebf-d356-4fe1-a9e8-da32d91118bc"] }, Open ]], Cell[CellGroupData[{ @@ -4334,15 +4392,16 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[876]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + "In[345]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ - RowBox[{"-", "230.59336999231016`"}]], "Output", + RowBox[{"-", "116.92037152462031`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.993804550878648*^9, 3.993804627006651*^9, { - 3.99380466357337*^9, 3.993804750023952*^9}}, + 3.99380466357337*^9, 3.993804750023952*^9}, 3.993909603048832*^9, + 3.993909670506846*^9, 3.99390975349363*^9, 3.993911041616233*^9}, CellLabel-> - "Out[876]=",ExpressionUUID->"12233c47-8e15-404f-912c-6d68a9d015e0"] + "Out[345]=",ExpressionUUID->"8cf89501-6bc0-4d5e-97f3-6244f92b8ab0"] }, Open ]], Cell[CellGroupData[{ @@ -4387,100 +4446,107 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[877]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + "In[346]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[BoxData["338.46122452699944`"], "Output", +Cell[BoxData["187.12903971509587`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9938045509027987`*^9, 3.993804627020084*^9, { - 3.993804663589897*^9, 3.993804750040456*^9}}, + 3.993804663589897*^9, 3.993804750040456*^9}, 3.9939096030676117`*^9, + 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993911041630309*^9}, CellLabel-> - "Out[877]=",ExpressionUUID->"47da3934-d9fd-437e-bfb3-b8dd5e136127"] + "Out[346]=",ExpressionUUID->"3d3703ac-6357-44ec-865c-c87d37909a26"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", CellLabel-> - "In[878]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + "In[347]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[BoxData["0.29630774006911487`"], "Output", +Cell[BoxData["0.2814027825454283`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.9938045509220467`*^9, 3.993804627033495*^9, { - 3.993804663606344*^9, 3.9938047500576067`*^9}}, + 3.993804663606344*^9, 3.9938047500576067`*^9}, 3.993909603085306*^9, + 3.993909670543174*^9, 3.993909753523663*^9, 3.993911041648457*^9}, CellLabel-> - "Out[878]=",ExpressionUUID->"7292bcec-c8ce-4d20-81f0-1b8d4cfe5722"] + "Out[347]=",ExpressionUUID->"f3f34492-b518-4fed-af47-4bc06ab7eb38"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", CellLabel-> - "In[879]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + "In[348]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ - RowBox[{"-", "0.0618973528729618`"}]], "Output", + RowBox[{"-", "0.056142152983087`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.993804550940889*^9, 3.993804627047104*^9, { - 3.99380466362283*^9, 3.993804750074596*^9}}, + 3.99380466362283*^9, 3.993804750074596*^9}, 3.993909603103224*^9, + 3.993909670561534*^9, 3.993909753539481*^9, 3.99391104166289*^9}, CellLabel-> - "Out[879]=",ExpressionUUID->"4bbcb49d-5069-419b-b0ca-ba004d12483e"] + "Out[348]=",ExpressionUUID->"35ca0862-e112-48d8-b6d4-fe2a52cf5875"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", CellLabel-> - "In[880]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + "In[349]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ - RowBox[{"-", "0.3781886780011569`"}]], "Output", + RowBox[{"-", "0.3374911667667172`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.99380455096201*^9, 3.993804627060543*^9, { - 3.9938046636401176`*^9, 3.9938047500897923`*^9}}, + 3.9938046636401176`*^9, 3.9938047500897923`*^9}, 3.993909603121352*^9, + 3.993909670579809*^9, 3.993909753557192*^9, 3.993911041676931*^9}, CellLabel-> - "Out[880]=",ExpressionUUID->"f1d2114e-7fe4-4293-924b-a2e2ed230d75"] + "Out[349]=",ExpressionUUID->"b391c8a9-a61c-4a3d-92df-47ac3772b7e2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", CellLabel-> - "In[881]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + "In[350]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[BoxData["0.5998789059605238`"], "Output", +Cell[BoxData["0.5841645161809887`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.993804550980524*^9, 3.9938046270751667`*^9, { - 3.993804663656624*^9, 3.993804750107565*^9}}, + 3.993804663656624*^9, 3.993804750107565*^9}, 3.993909603139456*^9, + 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993911041688751*^9}, CellLabel-> - "Out[881]=",ExpressionUUID->"c5cbb70a-2342-4b64-8ccf-279e0d59b587"] + "Out[350]=",ExpressionUUID->"3db68da0-548f-48c5-923b-9fde0e728483"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", CellLabel-> - "In[882]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + "In[351]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], Cell[BoxData["2.5173601133375656`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.993804550999857*^9, 3.993804627093104*^9, { - 3.993804663673789*^9, 3.993804750123993*^9}}, + 3.993804663673789*^9, 3.993804750123993*^9}, 3.993909603159047*^9, + 3.9939096706237583`*^9, 3.993909753618161*^9, 3.9939110417032013`*^9}, CellLabel-> - "Out[882]=",ExpressionUUID->"daf47fe9-d5c9-440e-96a7-f9be3aad4374"] + "Out[351]=",ExpressionUUID->"f4eb2573-5af2-4ee9-b3b7-4ddf5fed63d2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", CellLabel-> - "In[883]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + "In[352]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], Cell[BoxData["1.5234450434796134`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.993804551018916*^9, 3.993804627108033*^9, { - 3.993804663692298*^9, 3.993804750140585*^9}}, + 3.993804663692298*^9, 3.993804750140585*^9}, 3.99390960317778*^9, + 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993911041720379*^9}, CellLabel-> - "Out[883]=",ExpressionUUID->"0a16511f-7615-4a37-9cee-28d219b63d35"] + "Out[352]=",ExpressionUUID->"264a4a7e-61ea-4427-9ff1-93ff6733efe8"] }, Open ]], Cell[CellGroupData[{ @@ -4502,15 +4568,16 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", CellLabel-> - "In[884]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + "In[353]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ - RowBox[{"-", "21.403336594856793`"}]], "Output", + RowBox[{"-", "18.177896388526342`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.993804551037992*^9, 3.993804627123701*^9, { - 3.993804663711438*^9, 3.993804750156764*^9}}, + 3.993804663711438*^9, 3.993804750156764*^9}, 3.993909603196027*^9, + 3.993909670663684*^9, 3.99390975365348*^9, 3.9939110417352552`*^9}, CellLabel-> - "Out[884]=",ExpressionUUID->"b890d0eb-8eea-4cab-9ce4-0400c2063acd"] + "Out[353]=",ExpressionUUID->"0d90d79e-7718-44ef-8536-c8b70f3e3f93"] }, Open ]], Cell[CellGroupData[{ @@ -4532,15 +4599,16 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", CellLabel-> - "In[885]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + "In[354]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ - RowBox[{"-", "5.041060424821687`"}]], "Output", + RowBox[{"-", "4.422931821128753`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.99380455105733*^9, 3.993804627139119*^9, { - 3.993804663729148*^9, 3.993804750173326*^9}}, + 3.993804663729148*^9, 3.993804750173326*^9}, 3.993909603216249*^9, + 3.993909670683181*^9, 3.993909753671298*^9, 3.993911041748139*^9}, CellLabel-> - "Out[885]=",ExpressionUUID->"045f2fcb-a130-4f4e-938e-7a1aa7e93441"] + "Out[354]=",ExpressionUUID->"5899783c-02e0-476e-bb06-ab1ff1675256"] }, Open ]], Cell[CellGroupData[{ @@ -4606,14 +4674,15 @@ Cell[BoxData[ RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[886]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + "In[355]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[BoxData["206.37382761480455`"], "Output", +Cell[BoxData["93.52813324924097`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.9938045510774317`*^9, 3.993804627154879*^9, { - 3.993804663746785*^9, 3.993804750189831*^9}}, + 3.993804663746785*^9, 3.993804750189831*^9}, 3.993909603237997*^9, + 3.99390967070298*^9, 3.993909753690928*^9, 3.9939110417615643`*^9}, CellLabel-> - "Out[886]=",ExpressionUUID->"0fd8e53d-d39c-4394-b5a0-ca0e3bf5e7ef"] + "Out[355]=",ExpressionUUID->"4915d6ea-6e4d-4198-acb3-1942d38466f3"] }, Open ]], Cell[CellGroupData[{ @@ -4655,15 +4724,16 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[887]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + "In[356]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ - RowBox[{"-", "230.59336999231016`"}]], "Output", + RowBox[{"-", "116.92037152462031`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.993804551098919*^9, 3.99380462716993*^9, { - 3.99380466376478*^9, 3.993804750205999*^9}}, + 3.99380466376478*^9, 3.993804750205999*^9}, 3.9939096032579308`*^9, + 3.99390967072291*^9, 3.993909753708663*^9, 3.993911041777234*^9}, CellLabel-> - "Out[887]=",ExpressionUUID->"eb672da2-c3b4-4efd-8e1b-d5070a302f90"] + "Out[356]=",ExpressionUUID->"defcebc4-9f3c-45b6-8c27-fc291aebc3f5"] }, Open ]], Cell[CellGroupData[{ @@ -4730,14 +4800,15 @@ Cell[BoxData[ RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[888]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + "In[357]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[BoxData["333.42016410217775`"], "Output", +Cell[BoxData["182.70610789396713`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993804551121139*^9, 3.993804627185237*^9, { - 3.9938046637699213`*^9, 3.993804750221984*^9}}, + 3.9938046637699213`*^9, 3.993804750221984*^9}, 3.993909603279203*^9, + 3.993909670743991*^9, 3.993909753728705*^9, 3.9939110417957993`*^9}, CellLabel-> - "Out[888]=",ExpressionUUID->"fe8db029-97a6-464a-9f09-c661705abd25"] + "Out[357]=",ExpressionUUID->"a8fb87c6-4d4f-43d5-9023-2eddf26cf8cb"] }, Open ]], Cell[CellGroupData[{ @@ -4796,14 +4867,15 @@ Cell[BoxData[ "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", CellLabel-> - "In[889]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + "In[358]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[BoxData["271.38999230251227`"], "Output", +Cell[BoxData["150.0362849602646`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.9938045511434107`*^9, 3.993804627199387*^9, { - 3.9938046637889233`*^9, 3.993804750238797*^9}}, + 3.9938046637889233`*^9, 3.993804750238797*^9}, 3.993909603297597*^9, + 3.993909670763399*^9, 3.993909753746546*^9, 3.9939110418163233`*^9}, CellLabel-> - "Out[889]=",ExpressionUUID->"5302cfa4-efca-4df0-9778-f54b2673f220"] + "Out[358]=",ExpressionUUID->"4e2c9538-d90f-4a4f-8ef7-9ccd846e9fbf"] }, Open ]], Cell[CellGroupData[{ @@ -4862,14 +4934,15 @@ Cell[BoxData[ "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", CellLabel-> - "In[890]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + "In[359]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[BoxData["1666.1603186437328`"], "Output", +Cell[BoxData["845.8339546196385`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.993804551165799*^9, 3.993804627215629*^9, { - 3.9938046638111277`*^9, 3.993804750255252*^9}}, + 3.9938046638111277`*^9, 3.993804750255252*^9}, 3.993909603318231*^9, + 3.993909670782775*^9, 3.993909753763286*^9, 3.993911041829805*^9}, CellLabel-> - "Out[890]=",ExpressionUUID->"55575989-d18e-4c7a-a3dc-dadd3eca346b"] + "Out[359]=",ExpressionUUID->"7cec3038-b116-4b3b-b343-f6f62c2f4881"] }, Open ]], Cell[CellGroupData[{ @@ -4879,20 +4952,21 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799412462593*^9, {3.993804460588807*^9, 3.993804469981*^9}}, CellLabel-> - "In[891]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + "In[360]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], Cell[BoxData["0.87134`"], "Output", CellChangeTimes->{ 3.993804551189562*^9, 3.9938046272310677`*^9, {3.993804663828719*^9, - 3.993804750272208*^9}}, + 3.993804750272208*^9}, 3.9939096033412027`*^9, 3.993909670802791*^9, + 3.9939097537799053`*^9, 3.9939110418448963`*^9}, CellLabel-> - "Out[891]=",ExpressionUUID->"57e3c938-373e-4184-94a7-a0d01c72fb4f"] + "Out[360]=",ExpressionUUID->"4ce32cac-7bde-43b8-8882-12e68817bec6"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, CellLabel-> - "In[892]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + "In[361]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ @@ -4901,20 +4975,21 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799414288656*^9, {3.993804473278672*^9, 3.9938044778800373`*^9}}, CellLabel-> - "In[893]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + "In[362]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], Cell[BoxData["0.6073`"], "Output", CellChangeTimes->{ 3.9938045512098618`*^9, 3.9938046273151007`*^9, {3.993804663853574*^9, - 3.993804750319048*^9}}, + 3.993804750319048*^9}, 3.9939096034007072`*^9, 3.993909670898655*^9, + 3.9939097538056107`*^9, 3.993911041873698*^9}, CellLabel-> - "Out[893]=",ExpressionUUID->"5a7a163b-9e3b-4621-89ce-0f691a25c324"] + "Out[362]=",ExpressionUUID->"15f9aaa3-b324-4bdf-a9b7-b520c9b4007d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, CellLabel-> - "In[894]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], + "In[363]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4961,14 +5036,15 @@ Cell[BoxData[ RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> - "In[895]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + "In[364]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[BoxData["2.5366607197030867`*^-53"], "Output", +Cell[BoxData["3.0421649672677`*^-53"], "Output", CellChangeTimes->{ 3.99132042156752*^9, 3.993804551233213*^9, 3.9938046273973837`*^9, { - 3.993804663880035*^9, 3.99380475037041*^9}}, + 3.993804663880035*^9, 3.99380475037041*^9}, 3.993909603457355*^9, + 3.9939096710007544`*^9, 3.9939097538328047`*^9, 3.9939110419031353`*^9}, CellLabel-> - "Out[895]=",ExpressionUUID->"9e4da4e1-d663-4bfe-8072-c8fdbd3b5fa4"] + "Out[364]=",ExpressionUUID->"80bcd1fa-da2f-4290-b680-2fdbb65eee50"] }, Open ]], Cell[CellGroupData[{ @@ -5004,14 +5080,15 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.991557471461853*^9}, CellLabel-> - "In[896]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + "In[365]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[BoxData["1.7884888436660665`*^-54"], "Output", +Cell[BoxData["1.9400000176319233`*^-54"], "Output", CellChangeTimes->{ 3.99132042159643*^9, 3.9938045512511387`*^9, 3.99380462741365*^9, { - 3.9938046638995543`*^9, 3.993804750375908*^9}}, + 3.9938046638995543`*^9, 3.993804750375908*^9}, 3.993909603519093*^9, + 3.993909671019692*^9, 3.993909753848701*^9, 3.993911041917101*^9}, CellLabel-> - "Out[896]=",ExpressionUUID->"0c36613d-2c31-4f17-9f44-390fbc2ff7f9"] + "Out[365]=",ExpressionUUID->"a21bcf61-580d-4a62-8d19-dfad63e75fd3"] }, Open ]], Cell[CellGroupData[{ @@ -5046,14 +5123,15 @@ Cell[BoxData[ "f2"}]}]], "Input", CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, CellLabel-> - "In[897]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + "In[366]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[BoxData["2.9348636757362973`*^-54"], "Output", CellChangeTimes->{ 3.9913204216085243`*^9, 3.993804551271442*^9, 3.993804627429818*^9, { - 3.9938046639208717`*^9, 3.993804750405836*^9}}, + 3.9938046639208717`*^9, 3.993804750405836*^9}, 3.993909603537717*^9, + 3.993909671037129*^9, 3.993909753866908*^9, 3.993911041932159*^9}, CellLabel-> - "Out[897]=",ExpressionUUID->"60117839-aa88-4ccf-95ab-185bc94d917d"] + "Out[366]=",ExpressionUUID->"6abcaa94-9032-406e-bdb7-04b85c373673"] }, Open ]], Cell[CellGroupData[{ @@ -5077,9 +5155,9 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[898]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + "In[367]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[BoxData["16.127431035194935`"], "Output", +Cell[BoxData["16.949955979643292`"], "Output", CellChangeTimes->{ 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, @@ -5087,9 +5165,11 @@ Cell[BoxData["16.127431035194935`"], "Output", 3.99208680410137*^9}, 3.992091247458048*^9, {3.992091392660454*^9, 3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, { 3.9920915619364376`*^9, 3.9920915885645847`*^9}, 3.993804551291231*^9, - 3.993804627445462*^9, {3.9938046639400787`*^9, 3.993804750423704*^9}}, + 3.993804627445462*^9, {3.9938046639400787`*^9, 3.993804750423704*^9}, + 3.993909603556985*^9, 3.993909671054867*^9, 3.993909753883994*^9, + 3.993911041948142*^9}, CellLabel-> - "Out[898]=",ExpressionUUID->"03bbdf93-f23c-4968-83e7-d2b00976c665"] + "Out[367]=",ExpressionUUID->"c4af0c0d-0f83-4e82-8076-27a3646b87be"] }, Open ]], Cell[CellGroupData[{ @@ -5116,9 +5196,9 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, CellLabel-> - "In[899]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + "In[368]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[BoxData["57.78731574562429`"], "Output", +Cell[BoxData["60.97542202126651`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, @@ -5126,9 +5206,10 @@ Cell[BoxData["57.78731574562429`"], "Output", 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, 3.992091588571615*^9}, 3.993804551310236*^9, 3.993804627464243*^9, { - 3.99380466395988*^9, 3.993804750440651*^9}}, + 3.99380466395988*^9, 3.993804750440651*^9}, 3.993909603575082*^9, + 3.993909671072386*^9, 3.993909753901793*^9, 3.993911041965332*^9}, CellLabel-> - "Out[899]=",ExpressionUUID->"292e6061-a926-430d-99e6-2cba092de92a"] + "Out[368]=",ExpressionUUID->"b4f66e2f-cb0c-4224-8a07-7cedcf9eed4b"] }, Open ]], Cell[CellGroupData[{ @@ -5138,9 +5219,9 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[900]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + "In[369]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[BoxData["4.102176266488349`"], "Output", +Cell[BoxData["2.975184232328209`"], "Output", CellChangeTimes->{ 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, @@ -5148,9 +5229,11 @@ Cell[BoxData["4.102176266488349`"], "Output", 3.9920868041580334`*^9}, 3.9920912474925404`*^9, {3.9920913926935654`*^9, 3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, { 3.9920915619686337`*^9, 3.992091588596325*^9}, 3.9938045513291607`*^9, - 3.993804627480462*^9, {3.993804663978706*^9, 3.993804750457796*^9}}, + 3.993804627480462*^9, {3.993804663978706*^9, 3.993804750457796*^9}, + 3.993909603593001*^9, 3.99390967109*^9, 3.993909753922512*^9, + 3.993911041981628*^9}, CellLabel-> - "Out[900]=",ExpressionUUID->"eee7c556-792b-4a60-b8a6-d43ad387f9eb"] + "Out[369]=",ExpressionUUID->"02df6713-854c-4416-a21f-03250a1e4b9a"] }, Open ]], Cell[CellGroupData[{ @@ -5161,9 +5244,9 @@ Cell[BoxData[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, CellLabel-> - "In[901]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + "In[370]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[BoxData["5.369602446513784`"], "Output", +Cell[BoxData["3.7244757436078038`"], "Output", CellChangeTimes->{ 3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9, 3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, { @@ -5171,9 +5254,10 @@ Cell[BoxData["5.369602446513784`"], "Output", 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, 3.993804551352229*^9, 3.993804627495925*^9, {3.9938046639979277`*^9, - 3.9938047504752207`*^9}}, + 3.9938047504752207`*^9}, 3.993909603610806*^9, 3.9939096711075373`*^9, + 3.99390975393994*^9, 3.9939110419992867`*^9}, CellLabel-> - "Out[901]=",ExpressionUUID->"116166d2-5c15-4a1f-a40a-7a8d4c06b6ad"] + "Out[370]=",ExpressionUUID->"954646b8-0650-4cd9-9918-ea5626fc0d73"] }, Open ]], Cell[CellGroupData[{ @@ -5184,9 +5268,9 @@ Cell[BoxData[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, CellLabel-> - "In[902]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + "In[371]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[BoxData["310.29491200516867`"], "Output", +Cell[BoxData["227.10148027445624`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, @@ -5194,9 +5278,10 @@ Cell[BoxData["310.29491200516867`"], "Output", 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, 3.9920915886284447`*^9}, 3.993804551376326*^9, 3.9938046275117693`*^9, { - 3.993804664015345*^9, 3.9938047504918823`*^9}}, + 3.993804664015345*^9, 3.9938047504918823`*^9}, 3.9939096036289663`*^9, + 3.993909671124358*^9, 3.9939097539567833`*^9, 3.993911042016334*^9}, CellLabel-> - "Out[902]=",ExpressionUUID->"d790c654-8fc8-4fef-abfc-2251b313686d"] + "Out[371]=",ExpressionUUID->"686de71d-1e2e-408e-ac13-dc75205ede9b"] }, Open ]], Cell[CellGroupData[{ @@ -5206,9 +5291,9 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[903]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + "In[372]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[BoxData["66.15756483200428`"], "Output", +Cell[BoxData["50.42924176929196`"], "Output", CellChangeTimes->{ 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, @@ -5216,9 +5301,11 @@ Cell[BoxData["66.15756483200428`"], "Output", 3.992086804192051*^9}, 3.9920912475547256`*^9, {3.9920913927436028`*^9, 3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, { 3.992091562006651*^9, 3.992091588636162*^9}, 3.993804551399091*^9, - 3.993804627527876*^9, {3.9938046640338173`*^9, 3.9938047505087337`*^9}}, + 3.993804627527876*^9, {3.9938046640338173`*^9, 3.9938047505087337`*^9}, + 3.9939096036475058`*^9, 3.993909671141721*^9, 3.9939097539762583`*^9, + 3.993911042035324*^9}, CellLabel-> - "Out[903]=",ExpressionUUID->"34c0f45d-afe1-4322-a858-b2839b02fdf5"] + "Out[372]=",ExpressionUUID->"61ea77e9-fafc-4186-8626-e5e497ff3546"] }, Open ]], Cell[CellGroupData[{ @@ -5408,9 +5495,9 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[904]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + "In[373]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[BoxData["0.003447202929251433`"], "Output", +Cell[BoxData["0.004756853155766424`"], "Output", CellChangeTimes->{ 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, @@ -5418,9 +5505,10 @@ Cell[BoxData["0.003447202929251433`"], "Output", 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, 3.992091588657053*^9}, 3.9938045514242287`*^9, 3.9938046275456333`*^9, { - 3.993804664055047*^9, 3.993804750526937*^9}}, + 3.993804664055047*^9, 3.993804750526937*^9}, 3.9939096036668053`*^9, + 3.9939096711624947`*^9, 3.993909753995727*^9, 3.9939110420593557`*^9}, CellLabel-> - "Out[904]=",ExpressionUUID->"0875f832-df2a-4d44-ac65-c8fa2f4eef51"] + "Out[373]=",ExpressionUUID->"24b81928-f74d-473b-948c-3e47b8d81f5b"] }, Open ]], Cell[CellGroupData[{ @@ -5435,9 +5523,9 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->RGBColor[0.4, 0.6, 1, 0.33], CellLabel-> - "In[905]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + "In[374]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[BoxData["15.094249195839685`"], "Output", +Cell[BoxData["12.849465664032497`"], "Output", CellChangeTimes->{ 3.991323707203314*^9, 3.991708997556095*^9, 3.99208606078174*^9, 3.992086270465349*^9, 3.9920863122235165`*^9, 3.992086602309389*^9, { @@ -5445,10 +5533,11 @@ Cell[BoxData["15.094249195839685`"], "Output", 3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9, 3.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}, 3.993804558491816*^9, 3.993804627606395*^9, {3.993804664245903*^9, - 3.993804750584255*^9}}, + 3.993804750584255*^9}, 3.993909603817916*^9, 3.9939096712030077`*^9, + 3.9939097540483437`*^9, 3.9939110421734457`*^9}, Background->RGBColor[0.14, 0.8, 0.14, 0.33], CellLabel-> - "Out[905]=",ExpressionUUID->"c8a02c21-81ca-4862-9806-b19924fbf729"] + "Out[374]=",ExpressionUUID->"5dd8ddf4-a524-400d-aa99-a023faf3ab84"] }, Open ]], Cell[BoxData[ @@ -5461,7 +5550,7 @@ Cell[BoxData[ 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, CellLabel-> - "In[906]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + "In[375]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5484,14 +5573,15 @@ Cell[BoxData[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[907]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + "In[376]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[BoxData["38.17532072487343`"], "Output", +Cell[BoxData["38.84466939348111`"], "Output", CellChangeTimes->{ 3.991320421637537*^9, 3.993804558650564*^9, 3.993804627696252*^9, { - 3.993804664275373*^9, 3.9938047506253633`*^9}}, + 3.993804664275373*^9, 3.9938047506253633`*^9}, 3.993909671332471*^9, + 3.993909754075427*^9, 3.993911042207191*^9}, CellLabel-> - "Out[907]=",ExpressionUUID->"dbeb2f2d-b368-4ea1-8f45-2323ef830f8e"] + "Out[376]=",ExpressionUUID->"4af336c2-2169-4156-8f2f-9ab0a0c1ecf1"] }, Open ]], Cell[CellGroupData[{ @@ -5517,14 +5607,15 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellLabel-> - "In[908]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + "In[377]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[BoxData["57.78731574562429`"], "Output", +Cell[BoxData["60.97542202126651`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.993804558673142*^9, 3.9938046277129297`*^9, { - 3.993804664291841*^9, 3.9938047506431723`*^9}}, + 3.993804664291841*^9, 3.9938047506431723`*^9}, 3.9939096713510027`*^9, + 3.9939097540920687`*^9, 3.993911042222156*^9}, CellLabel-> - "Out[908]=",ExpressionUUID->"b32394f4-6d96-4321-958f-f21933222ca5"] + "Out[377]=",ExpressionUUID->"74532804-78ed-47c2-b79d-730d3a274cfe"] }, Open ]], Cell[CellGroupData[{ @@ -5534,14 +5625,15 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> - "In[909]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + "In[378]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[BoxData["2.6662788466631246`"], "Output", +Cell[BoxData["1.9653162101366086`"], "Output", CellChangeTimes->{ 3.991320421698473*^9, 3.993804558695623*^9, 3.993804627729672*^9, { - 3.9938046643086157`*^9, 3.9938047506600924`*^9}}, + 3.9938046643086157`*^9, 3.9938047506600924`*^9}, 3.993909671368396*^9, + 3.9939097541091003`*^9, 3.993911042236762*^9}, CellLabel-> - "Out[909]=",ExpressionUUID->"10d42588-fe3a-430b-967f-aac4b7e47a3f"] + "Out[378]=",ExpressionUUID->"43f74d68-2380-4fa5-a378-14f1da6e5d6e"] }, Open ]], Cell[CellGroupData[{ @@ -5551,14 +5643,15 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> - "In[910]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + "In[379]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[BoxData["5.369602446513784`"], "Output", +Cell[BoxData["3.7244757436078038`"], "Output", CellChangeTimes->{ 3.991320421726494*^9, 3.99380455870804*^9, 3.993804627746478*^9, { - 3.993804664327388*^9, 3.993804750676002*^9}}, + 3.993804664327388*^9, 3.993804750676002*^9}, 3.993909671384974*^9, + 3.993909754126589*^9, 3.9939110422501383`*^9}, CellLabel-> - "Out[910]=",ExpressionUUID->"78c5f0d4-a0b0-43ba-9f1f-571f8e7996de"] + "Out[379]=",ExpressionUUID->"eee2a58c-fdc8-417c-bb7d-28711aeba14f"] }, Open ]], Cell[CellGroupData[{ @@ -5568,14 +5661,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> - "In[911]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + "In[380]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[BoxData["310.29491200516867`"], "Output", +Cell[BoxData["227.10148027445624`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9938045587408037`*^9, 3.993804627762784*^9, { - 3.9938046643447866`*^9, 3.9938047506937304`*^9}}, + 3.9938046643447866`*^9, 3.9938047506937304`*^9}, 3.993909671401758*^9, + 3.993909754145002*^9, 3.993911042265048*^9}, CellLabel-> - "Out[911]=",ExpressionUUID->"be3ffaf1-896c-463e-a613-136cc336448c"] + "Out[380]=",ExpressionUUID->"71fcab11-d8c1-426f-ae59-d118fb9eb7c7"] }, Open ]], Cell[CellGroupData[{ @@ -5585,14 +5679,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[912]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + "In[381]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[BoxData["101.78605011331041`"], "Output", +Cell[BoxData["76.34205843640582`"], "Output", CellChangeTimes->{ 3.9913204217855225`*^9, 3.993804558766971*^9, 3.993804627766616*^9, { - 3.99380466436355*^9, 3.9938047507109013`*^9}}, + 3.99380466436355*^9, 3.9938047507109013`*^9}, 3.993909671416819*^9, + 3.993909754167406*^9, 3.993911042279223*^9}, CellLabel-> - "Out[912]=",ExpressionUUID->"f8c791ae-094b-4ea4-8015-93f3400f6712"] + "Out[381]=",ExpressionUUID->"c181fb4e-ede0-484e-8e9b-16f3dd7de7b6"] }, Open ]], Cell[CellGroupData[{ @@ -5782,14 +5877,15 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[913]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + "In[382]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[BoxData["0.003070133387041803`"], "Output", +Cell[BoxData["0.004234850780187917`"], "Output", CellChangeTimes->{ 3.9913204218154297`*^9, 3.993804558970088*^9, 3.993804627783367*^9, { - 3.993804664384842*^9, 3.993804750726766*^9}}, + 3.993804664384842*^9, 3.993804750726766*^9}, 3.993909671435361*^9, + 3.993909754186618*^9, 3.993911042294293*^9}, CellLabel-> - "Out[913]=",ExpressionUUID->"4ac7e2c7-d588-4f06-b993-fd67bba64a43"] + "Out[382]=",ExpressionUUID->"a4243a21-8d24-45a9-8e2c-7739a1ea1f9b"] }, Open ]], Cell[CellGroupData[{ @@ -5803,14 +5899,15 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[914]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + "In[383]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[BoxData["15.994339801651025`"], "Output", +Cell[BoxData["13.618393681706955`"], "Output", CellChangeTimes->{ 3.991320422776104*^9, 3.993804565932764*^9, 3.993804627825531*^9, { - 3.993804664534915*^9, 3.993804750782548*^9}}, + 3.993804664534915*^9, 3.993804750782548*^9}, 3.9939096714795732`*^9, + 3.993909754249015*^9, 3.99391104240521*^9}, CellLabel-> - "Out[914]=",ExpressionUUID->"e9298b8d-593f-473d-95ea-6420e40bb0a9"] + "Out[383]=",ExpressionUUID->"bfffaa2a-5691-4f0a-9c9d-142a862a6a3a"] }, Open ]], Cell[CellGroupData[{ @@ -6002,14 +6099,15 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[915]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + "In[384]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[BoxData["0.009190092092466564`"], "Output", +Cell[BoxData["0.0121592726191095`"], "Output", CellChangeTimes->{ 3.9913204229248886`*^9, 3.993804566036397*^9, 3.993804627844046*^9, { - 3.9938046646184893`*^9, 3.99380475080024*^9}}, + 3.9938046646184893`*^9, 3.99380475080024*^9}, 3.993909671497088*^9, + 3.9939097542679853`*^9, 3.993911042443592*^9}, CellLabel-> - "Out[915]=",ExpressionUUID->"abdb542f-1042-4b15-a9ba-e324ee6926f7"] + "Out[384]=",ExpressionUUID->"eaf78250-6361-4b32-82f4-c2b3be6fc0ca"] }, Open ]], Cell[CellGroupData[{ @@ -6023,14 +6121,15 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[916]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + "In[385]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[BoxData["9.244533679044478`"], "Output", +Cell[BoxData["8.036947711484437`"], "Output", CellChangeTimes->{ 3.9913204230053368`*^9, 3.993804572934832*^9, 3.99380462789159*^9, { - 3.9938046647644367`*^9, 3.993804750875383*^9}}, + 3.9938046647644367`*^9, 3.993804750875383*^9}, 3.9939096715391693`*^9, + 3.9939097543299227`*^9, 3.9939110425613413`*^9}, CellLabel-> - "Out[916]=",ExpressionUUID->"cd61fb1c-0a93-4db6-805e-b4bed4086176"] + "Out[385]=",ExpressionUUID->"da822dbd-79fb-4ca5-a70e-6d275dd0edfb"] }, Open ]], Cell[CellGroupData[{ @@ -6123,14 +6222,15 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[917]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + "In[386]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[BoxData["0.15048426376215387`"], "Output", +Cell[BoxData["0.16117775346672777`"], "Output", CellChangeTimes->{ 3.9913204230393543`*^9, 3.9938045729616632`*^9, 3.993804627909639*^9, { - 3.9938046647854*^9, 3.993804750894088*^9}}, + 3.9938046647854*^9, 3.993804750894088*^9}, 3.993909671568618*^9, + 3.993909754348627*^9, 3.993911042580553*^9}, CellLabel-> - "Out[917]=",ExpressionUUID->"ad8e9cd9-eb12-427d-9045-f089da9777b7"] + "Out[386]=",ExpressionUUID->"43890d40-4a13-4062-85f7-4045ba53a71f"] }, Open ]], Cell[CellGroupData[{ @@ -6220,14 +6320,15 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[918]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + "In[387]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[BoxData["0.8495157362378462`"], "Output", +Cell[BoxData["0.8388222465332723`"], "Output", CellChangeTimes->{ 3.9913204230728855`*^9, 3.993804572978097*^9, 3.9938046279280443`*^9, { - 3.993804664805017*^9, 3.993804750912019*^9}}, + 3.993804664805017*^9, 3.993804750912019*^9}, 3.9939096715856256`*^9, + 3.9939097543686132`*^9, 3.993911042595171*^9}, CellLabel-> - "Out[918]=",ExpressionUUID->"0ee5b7a3-8645-49b4-bab1-88f0bfbceb35"] + "Out[387]=",ExpressionUUID->"1b41b159-e335-46b4-8dab-dde4c0c328ec"] }, Open ]], Cell[CellGroupData[{ @@ -6350,21 +6451,22 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[919]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + "In[388]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[BoxData["0.12783875012211637`"], "Output", +Cell[BoxData["0.1351994852541465`"], "Output", CellChangeTimes->{ 3.9913204231038837`*^9, 3.9938045729952374`*^9, 3.993804627944169*^9, { - 3.993804664823594*^9, 3.993804750930588*^9}}, + 3.993804664823594*^9, 3.993804750930588*^9}, 3.9939096716056967`*^9, + 3.99390975438794*^9, 3.9939110426177177`*^9}, CellLabel-> - "Out[919]=",ExpressionUUID->"b8d00f90-26fb-47fe-8584-8838f8e3549d"] + "Out[388]=",ExpressionUUID->"95b67a85-e6ed-4aeb-85ac-f0bc84b392bf"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel-> - "In[920]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], + "In[389]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6378,7 +6480,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -6400,8 +6504,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6427,80 +6530,85 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799443370365*^9}, CellLabel-> - "In[921]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + "In[390]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1662997394378825`*^-217\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 921, 69, 31384696714327881332, - "Local"}, + "\"\\!\\(\\*FractionBox[\\\"2.938667696143313`*^-212\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 390, 13, 31385385712403366894, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993804589478944*^9, 3.993804628086953*^9, { - 3.99380466485177*^9, 3.9938047509601793`*^9}}, + 3.99380466485177*^9, 3.9938047509601793`*^9}, 3.993909671679077*^9, + 3.9939097544169483`*^9, 3.993911042658387*^9}, CellLabel-> "During evaluation of \ -In[921]:=",ExpressionUUID->"f73be6db-cf58-4dc2-8126-ccab46a518e7"], +In[390]:=",ExpressionUUID->"623f67bb-e287-4897-91a3-015f89d125bd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2248018278575818`*^-222\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 921, 70, 31384696714327881332, - "Local"}, + "\"\\!\\(\\*FractionBox[\\\"2.03627803197554`*^-217\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 390, 14, 31385385712403366894, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993804589478944*^9, 3.993804628086953*^9, { - 3.99380466485177*^9, 3.9938047509634733`*^9}}, + 3.99380466485177*^9, 3.9938047509601793`*^9}, 3.993909671679077*^9, + 3.9939097544169483`*^9, 3.993911042692605*^9}, CellLabel-> "During evaluation of \ -In[921]:=",ExpressionUUID->"ac054d1e-a674-4b37-a7d6-59a179d70f1c"], +In[390]:=",ExpressionUUID->"925a0cfa-4b19-44bc-8c3f-9a84279127fc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7378316677927513`*^-228\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 921, 71, - 31384696714327881332, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"1.4109891461861855`*^-222\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 390, 15, 31385385712403366894, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993804589478944*^9, 3.993804628086953*^9, { - 3.99380466485177*^9, 3.993804750966288*^9}}, + 3.99380466485177*^9, 3.9938047509601793`*^9}, 3.993909671679077*^9, + 3.9939097544169483`*^9, 3.993911042701233*^9}, CellLabel-> "During evaluation of \ -In[921]:=",ExpressionUUID->"88b2963d-6ad8-4463-8f40-767ce6e4ae7e"], +In[390]:=",ExpressionUUID->"08189eb4-63f2-4363-b5b9-c058f3e7b947"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 921, 72, 31384696714327881332, "Local"}, +during this calculation.\"", 2, 390, 16, 31385385712403366894, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993804589478944*^9, 3.993804628086953*^9, { - 3.99380466485177*^9, 3.993804750968646*^9}}, + 3.99380466485177*^9, 3.9938047509601793`*^9}, 3.993909671679077*^9, + 3.9939097544169483`*^9, 3.993911042710885*^9}, CellLabel-> "During evaluation of \ -In[921]:=",ExpressionUUID->"282f7ffb-1f94-44de-af83-15de8a233e87"], +In[390]:=",ExpressionUUID->"713426fb-75a0-4355-9a30-2b30346e063a"], -Cell[BoxData["15.994339801651003`"], "Output", +Cell[BoxData["13.61839368170694`"], "Output", CellChangeTimes->{ 3.9913204260017204`*^9, {3.9938046247879457`*^9, 3.9938046294793577`*^9}, { - 3.993804676572288*^9, 3.993804752876156*^9}}, + 3.993804676572288*^9, 3.993804752876156*^9}, 3.9939096728921347`*^9, + 3.9939097548110228`*^9, 3.9939110469001427`*^9}, CellLabel-> - "Out[921]=",ExpressionUUID->"c15b83e3-3028-438b-9c38-949341602e89"] + "Out[390]=",ExpressionUUID->"17816c1e-142c-4f9d-8c2a-627aab93860e"] }, Open ]], Cell[CellGroupData[{ @@ -6515,7 +6623,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -6537,8 +6647,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -6564,80 +6673,80 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9917994459475594`*^9}, CellLabel-> - "In[922]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], + "In[391]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1662997394378825`*^-217\\\", \ -\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ -9984000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 922, 73, 31384696714327881332, - "Local"}, + "\"\\!\\(\\*FractionBox[\\\"2.938667696143313`*^-212\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 391, 17, 31385385712403366894, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204262354183`*^9, 3.993804629509783*^9, {3.993804682056448*^9, - 3.993804752899742*^9}}, + 3.993804752899742*^9}, 3.993909672937112*^9, 3.993911046966124*^9}, CellLabel-> "During evaluation of \ -In[922]:=",ExpressionUUID->"8b83c5b0-6791-4422-8e40-f1d5ff8536b4"], +In[391]:=",ExpressionUUID->"6d850d59-5847-4df6-b782-5f12eba60362"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2248018278575818`*^-222\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 922, 74, 31384696714327881332, - "Local"}, + "\"\\!\\(\\*FractionBox[\\\"2.03627803197554`*^-217\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 391, 18, 31385385712403366894, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204262354183`*^9, 3.993804629509783*^9, {3.993804682056448*^9, - 3.9938047529031477`*^9}}, + 3.993804752899742*^9}, 3.993909672937112*^9, 3.993911046975861*^9}, CellLabel-> "During evaluation of \ -In[922]:=",ExpressionUUID->"ffed9ff0-a48c-4962-b1ef-de3ba868e9c2"], +In[391]:=",ExpressionUUID->"e490933d-3bda-4acb-b59b-de3a56bf008e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7378316677927513`*^-228\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 922, 75, - 31384696714327881332, "Local"}, + "\"\\!\\(\\*FractionBox[\\\"1.4109891461861855`*^-222\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 391, 19, 31385385712403366894, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204262354183`*^9, 3.993804629509783*^9, {3.993804682056448*^9, - 3.993804752906036*^9}}, + 3.993804752899742*^9}, 3.993909672937112*^9, 3.9939110469854603`*^9}, CellLabel-> "During evaluation of \ -In[922]:=",ExpressionUUID->"32f50ddf-3a3c-48c5-b175-07c7b6912324"], +In[391]:=",ExpressionUUID->"f04c7c57-aa7b-4321-aff4-381ec830e5cf"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 922, 76, 31384696714327881332, "Local"}, +during this calculation.\"", 2, 391, 20, 31385385712403366894, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204262354183`*^9, 3.993804629509783*^9, {3.993804682056448*^9, - 3.993804752908657*^9}}, + 3.993804752899742*^9}, 3.993909672937112*^9, 3.993911046995659*^9}, CellLabel-> "During evaluation of \ -In[922]:=",ExpressionUUID->"15af151b-395d-4abf-ac1c-1f2fca5e6a09"], +In[391]:=",ExpressionUUID->"a110e1f0-21f7-42a0-81ec-17dc53acff04"], -Cell[BoxData["9.244533679044473`"], "Output", +Cell[BoxData["8.03694771148443`"], "Output", CellChangeTimes->{ 3.991320428882721*^9, 3.9938046309154882`*^9, {3.9938046839032497`*^9, - 3.9938047546960163`*^9}}, + 3.9938047546960163`*^9}, 3.993909674130537*^9, 3.9939110507868*^9}, CellLabel-> - "Out[922]=",ExpressionUUID->"7209b8ff-d70b-406e-967d-1838b67dd0e5"] + "Out[391]=",ExpressionUUID->"a49119d9-6344-4483-9541-8ea343b0109b"] }, Open ]], Cell[CellGroupData[{ @@ -6647,392 +6756,143 @@ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ - FractionBox[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]"}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y", "*", + RowBox[{"Cos", "[", FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", + RowBox[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917994505623856`*^9}, CellLabel-> - "In[923]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{ - 3.9913206956809444`*^9, {3.9938046609604053`*^9, 3.993804747482561*^9}, - 3.993804789329523*^9}, - CellLabel-> - "Out[923]=",ExpressionUUID->"37bd0b84-2c78-406e-9f0a-86fcc466be88"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"x", "=", - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - RowBox[{"(", - RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ -9aed2c391662"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696298666*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 86, - 10, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696309664*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 86, 11, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696318653*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], - -Cell[BoxData[ - TemplateBox[{ - "General", "stop", - "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ -\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913206963286114`*^9}, - CellLabel-> - "During evaluation of \ -In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + "In[392]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4Fe8XAHD7TlHcJJJ9u5JdqvdkSZaQylZkuTMkVEhC1E+kLImKviVa +SLJkKUk7RSKKNslyccm+c0fL7+2Peeb5PDNz5rznPedd53PIieDi4OAYwte/ ++5H32qpVre+33AuoNAQrJtoyftvAx6IIadItg/+5J8fwopLFE3SuZGblVmxH +RjOfiN5rVLfwXMMMuywitpbXoglRtMJSc+yzb1a9iC38gByVym9ZYle3Hrn+ +S/cTem30lW879nBHY/Txmq8oP3TNNxvs1QOKe+fNO9GvPzGr7bFtJ6JNQpu6 +kRw/x7ud2M9+DQtHFPYi1ec5w3uwP5+iRT0M7kNHvDyPu2OP81kMz+oOIFON +Tcf2Y/MlH3bTW2ChPm+Tfga2nHh2w5GaIfTQyflFALa9zHz+uPko8rk3+foY +NpmrIEUXGEe0huCJGOxYZYf4g00TKItfLDEB+yutfUNY4RTiu1rGl4nNcA84 +kJE8jUTaH47mYE9e47hRHjyDRthdW+9iCyjQl0/pzqHOVf+ZPMW+yKi1Wi45 +j5RUtTvrseXvuMWuX5hHvXaDYx+xjbUSxoNqFlGo7TvPYWx/w+6mYfNfKMwr +MFxuOxPNRhzlEVL5jVxtTdO1sE/WCG9SF/iD2LX6sqbYWWB8z6/pL3JMLjzp +hs3Ia7AIKeQEhlD1iavYhW8yek7JcMGtxhmJYuzJQc/oC8lc8Gq5F+05drTG +XMX9YG4QkP0Q1I99sXSd4oQuL0iJ6u7Ut2aijtbRZ39u8QL9rqSXNbb8dJW7 +mCQftFnodXliF+nbp9MX+CBEY51aEnZddSRnYI0AhL77OT2EPVfb1j1kLgJO +K3YR1TZMJGEnsjzqmQic66ps+IKt024BoiaicLnwZ8k8dkD/g9wN2mLgQG/n +NrRlosNcTTqbRZYDi5/V8hh7QKFkKn5eHHZU9k532uH6kI2CLXoSwEsdOc29 +g4m47rHWrToiAZr5i1ka2PJ6a50KRyTgrPaMTSS2u3la+fueFTBX3f9xrT0T +tfiGhNLeSYJCh8TROAcm6rqTmuQlIAXv9m4zKsceHSm8dddSChKXrkb3YguF +9bWZvpACsfzqtK2OTGRxere+1wMadE2u7ObfyUSPbxvOFeRIA4yvohU7MdHt +ASp8Y5gsRPx3TMTdmYm27znTFVosC5IZF3gvYY/WrdhWzJKFgDTvI63Y+re1 +JOXd5EDjnc6N7S64nj6eFbxb1kLu35/eW1yZaHqi59hQnDzkSTQGIHcmWhFk +UVmxQwG0Wm5UZHoyEeu2kL9jgAKUv3cR6sV+1NkqM5agAAIHTdo19jPRPjuP +OJUXCtDedv7lc+zbmuFOV3QVIX3Tb64JL/z/4TuTMTQlkG9JUfL1ZaLdfsJ0 +m15lCFUJ5Lzpz0QofI+uy29lqFSRFVnE1ojPMWJIq4BJlmCC/QEm4rilZxaz +UwV6tO/U/8Iu7trrUv5SBcyWHfuf50E8n85Fp1bfVIXVX5M6DINxfhY7Pg/7 +qINaaZOhaRgT3dqV+X0hRh3+yINuDnaqT28Pz1V1OL4qJZv7KO7vk0dH5NrU +QaunobYZW/xJNscucw2YFPN08DuG+0dvXKNGURPivtb6lUYykYzC+dikfi1I +pX+qyzjFRE/OzaqzuejA6F12dNn/cD1m3NrJdXQgU5/eTcK+XqekbuZJh4YH +abnxcUyk4Pf44+IXOrirTtbFxuP1Fg0ok++0IcThxETyWSaSlZEj5d10QEKk +lkc4nYm08sJElpAumOx/L551m4l8GHFzdHtduJikf0MjD8+rYnqX1z5deL7v +e95TbO6bpfffROiCT5zQsoF8PG/Xh3enl+nCN7tmb5O7+DzN8spWV9SDrKmR +ZYvFeH+T7LRd+fQht4erobmKiW6EKDk+aDKANWa/EzqbmKi860XSqk4DMBAf +DbzazESvbDzqo0YMYG2RdLf7eybqV7i8xUzIEBbkvf2/tzCRShs/vcXKEMS+ +TC3r+4jnWW9E8OcrQ9g1XvNU5Bven9my2jXVRqB1onj47QATtYYjo9N5JtB+ +qMJ9nKMPrfP8ZO8RuBn0WRmDrzf1IeLvwxLZ4wAiMlHLL0b3IdrII36ajxkI +lka7VTX2oTC9TZ3pGhaw9Xr4fYc1/chn7FfDimFLqJ684l4Q1o+KzUL5c1qs +4D+rNBWtrn50ezbgZdFFa/AeD2L+th5Ai1tXNdfF2oL6ITVW0NsB9IODe6rX +eweE6lP+V3ayUPCaQ2mnFB0gVzuFr6WDhUoONLy4FO8If3jVppSiBlHkjPSC +5oGdUJ03PzItM4TmbLY51+93AkZzmubDz0PIZO+FrQM7d8Hz+6/2SV79iT5K +ZwfU6e2GtRxBRZqew2h1ftyTArU94MmpdqZ/ywh61KNhZy/qDDVxzSXmsqNI +rn3SL3zMGe6zhDlluMeQ3qULRbd6XCDN/HLdXcFxlM0zo51e6wpfLFQLR4Um +0MOt6zviq91gn264zH7aJMoyOif+q9AddK8+ax4qmkQt3/MS9JL3gs71op95 +m6fQgx3XlA6f3AeXxA7ktnVPoamgXRzBDA/gcnaMi42aRnPb1P3HzT3B9ei1 +cyRtBhWMfVsMNdwPVfV1Yna1M8j1Rp6vh4gX0AIHNmsRs6ii3HY/9xkvqBY/ +GTuwcg6ZyHxkn2V7wfbutP6XVXNIscev48MBb/A04xir2z2P+oUPOlzr84ZD +Hfk8ltQ8ak2197Xa4wOJp1Cdd+oCuhiRI3y01QfirvWfaFFeRE+e/WX7WvuC +QuKxOytLF9GyfXBG77Ev0DcO7v2jwEYmXuMF8foM0DU59oG4wEb5VyZD7Q0Z +oHU1Kqw3nY1Wtk1voRkzgP21SHbfRTYat1xoLzBlQPg0/yn7TDY+vzg4m8wY +APVvT6pms5HYgribxE4GHBgMECssYKP+FAPBnCAGePNufjL+jI1Sa6IPPMpn +QMJ1cZb3EBsF6WaaRBQwYAOv9tKln2xkd7dM0LiQAUff9gq+HWYjoUzW3api +BmTca5bQGmOj+BDH4YeVOL+QhbcDU2wUra508MErBnwMdk9UXWKjgMx3geVd +DCjt/KXKFKGQtRhrU0gPAzItM7/OilJILZ5DVJfJgJR12sf5llGIFWJQXDbA +AO512mdVxCnkbZ8zdn8Ur+fb+U43SQq58oYGl1IMqKeFSaTIUsgqdPXhIikC +/A9LfVKkU+hVToJN+ioCVDrKndW0KbSpaVopYjUBMlILKZrrKaSj/O6buRwB +GnTtNdobKCT9Jcr8uzIBzmLBJYoGFBrZ+ENKyICAHjs6o3UThc5z5T7120VA +yuydRbothYTWi2Tt2ENAtrVOpoAdhU7vjQjRcyFg8Oyn3l7siEpH1b/uBNi2 +749Ms8f5k5wXLvsQcID8ef/HTgrpNfowXh8h4GVU+6KRK4W+XFAWVkwjQED/ +6YZhXwqVIFH/oQsEGB9JkU9l4Phjs3XFGQTE+MT36BAU0rWuizHOJIBdot8W +QlIolcN3esd1AoLUs2OG/Cm07VDut4giArKMBOr/C6KQrGyi4ZYSAk5VR1Ro +BlNotvFQBvd9Au59dQmuwb6pgnakVhBwTva5/ZdDFPr948eLW48J4ExofcAR +QqFKO5mC9w0EfHMWXpIOp1ASxcV7sZEA6dscTzKxfQqGvd2aCBB89Xf7ymMU +Ws7zWKa/hYArwylvBCMoFFjjep79mYBoGTk71nEKKWpcDlcaIEC/vNGXOEEh +6suJtp8sAlhckZ9asFvjCZ3SIQJa9ZTETWIoFNOrP2wySkCy29QAfyyFOrLa +PBxm8HrfbuTKPEmhdH5xy0hOEgYZQmORcRR6Mv1jbxg3CSOJZ5e+Yw/+KAwJ +5iUBGabGm57G/VBpkesjSMJGRq7wPDbLK2LJRpyE9TccOl0TcP52lhKWK0gY +7vOsLcY2NZJQR5Ik7KFNK3GeoVCaaJGznjQJS8/oLrewTR93l8msI2GbS0fY +p0QKkXlFDZKKJNjnDGjJncXvpx3vXqZMwuirS54ENotcIcqjTkL93ljtiX/P +V1j5j+qQ8PTwhxOT5yj0+M+KWJYuCb5+bhz0JAoN/Oy51KNPwubPb5f8sDe+ +iKxtNybhGCz3+IbdH1gi9xRIcKnnq7+bTCEx1yiDKjNcD52bYh3YJubb7cos +SBBMTH4vkIL7RZp5PG87CXpXhKu8sR/xlKbl2OB8Y052J2H3TUTduWJHgtod +npOV2MZvJD+lOOL85TjVOVPxfpcxR844kXCP7bFBGTvlWinX/3aTwFqfUWaF +zQyx1gl3JUG9eY90Iraop5TVYXdcH4UmjnxsY+s+j4B9JHCUju5/9e/7tSeS +PL1I+LqLJ34e+5GQzU1XHxKIp0M2YudxvDmpaicGCac4nRKVsEV7+1rsSBJM +1Yw3m2AbN91nbfMnQfVNxgE7bJ+qE78hgIToXx6intgpN21WmgaSIHY8TS0Y ++1EKTdMgGO9nuHJN9L/4Ef1b1x8mIbyG9vostgijzFU9hAS45rPtEraRQ8wh +xTAcn82Jcv7F32ibIBtOgh+aLrmDnay8KpsWQcKEv87lEuyHywcqxCNJ2P+r +erYCu3eprFE4moQ1oimNVf/iD8b08saQYG5aQHuMbfjRdvFvLAlVFUKd//x/ +4kDhiw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7046,233 +6906,106 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV1Hk4Fe8XAHD7TlHcJJJ9u5JdqvdkSZaQylZkuTMkVEhC1E+kLImKviVa +SLJkKUk7RSKKNslyccm+c0fL7+2Peeb5PDNz5rznPedd53PIieDi4OAYwte/ ++5H32qpVre+33AuoNAQrJtoyftvAx6IIadItg/+5J8fwopLFE3SuZGblVmxH +RjOfiN5rVLfwXMMMuywitpbXoglRtMJSc+yzb1a9iC38gByVym9ZYle3Hrn+ +S/cTem30lW879nBHY/Txmq8oP3TNNxvs1QOKe+fNO9GvPzGr7bFtJ6JNQpu6 +kRw/x7ud2M9+DQtHFPYi1ec5w3uwP5+iRT0M7kNHvDyPu2OP81kMz+oOIFON +Tcf2Y/MlH3bTW2ChPm+Tfga2nHh2w5GaIfTQyflFALa9zHz+uPko8rk3+foY +NpmrIEUXGEe0huCJGOxYZYf4g00TKItfLDEB+yutfUNY4RTiu1rGl4nNcA84 +kJE8jUTaH47mYE9e47hRHjyDRthdW+9iCyjQl0/pzqHOVf+ZPMW+yKi1Wi45 +j5RUtTvrseXvuMWuX5hHvXaDYx+xjbUSxoNqFlGo7TvPYWx/w+6mYfNfKMwr +MFxuOxPNRhzlEVL5jVxtTdO1sE/WCG9SF/iD2LX6sqbYWWB8z6/pL3JMLjzp +hs3Ia7AIKeQEhlD1iavYhW8yek7JcMGtxhmJYuzJQc/oC8lc8Gq5F+05drTG +XMX9YG4QkP0Q1I99sXSd4oQuL0iJ6u7Ut2aijtbRZ39u8QL9rqSXNbb8dJW7 +mCQftFnodXliF+nbp9MX+CBEY51aEnZddSRnYI0AhL77OT2EPVfb1j1kLgJO +K3YR1TZMJGEnsjzqmQic66ps+IKt024BoiaicLnwZ8k8dkD/g9wN2mLgQG/n +NrRlosNcTTqbRZYDi5/V8hh7QKFkKn5eHHZU9k532uH6kI2CLXoSwEsdOc29 +g4m47rHWrToiAZr5i1ka2PJ6a50KRyTgrPaMTSS2u3la+fueFTBX3f9xrT0T +tfiGhNLeSYJCh8TROAcm6rqTmuQlIAXv9m4zKsceHSm8dddSChKXrkb3YguF +9bWZvpACsfzqtK2OTGRxere+1wMadE2u7ObfyUSPbxvOFeRIA4yvohU7MdHt +ASp8Y5gsRPx3TMTdmYm27znTFVosC5IZF3gvYY/WrdhWzJKFgDTvI63Y+re1 +JOXd5EDjnc6N7S64nj6eFbxb1kLu35/eW1yZaHqi59hQnDzkSTQGIHcmWhFk +UVmxQwG0Wm5UZHoyEeu2kL9jgAKUv3cR6sV+1NkqM5agAAIHTdo19jPRPjuP +OJUXCtDedv7lc+zbmuFOV3QVIX3Tb64JL/z/4TuTMTQlkG9JUfL1ZaLdfsJ0 +m15lCFUJ5Lzpz0QofI+uy29lqFSRFVnE1ojPMWJIq4BJlmCC/QEm4rilZxaz +UwV6tO/U/8Iu7trrUv5SBcyWHfuf50E8n85Fp1bfVIXVX5M6DINxfhY7Pg/7 +qINaaZOhaRgT3dqV+X0hRh3+yINuDnaqT28Pz1V1OL4qJZv7KO7vk0dH5NrU +QaunobYZW/xJNscucw2YFPN08DuG+0dvXKNGURPivtb6lUYykYzC+dikfi1I +pX+qyzjFRE/OzaqzuejA6F12dNn/cD1m3NrJdXQgU5/eTcK+XqekbuZJh4YH +abnxcUyk4Pf44+IXOrirTtbFxuP1Fg0ok++0IcThxETyWSaSlZEj5d10QEKk +lkc4nYm08sJElpAumOx/L551m4l8GHFzdHtduJikf0MjD8+rYnqX1z5deL7v +e95TbO6bpfffROiCT5zQsoF8PG/Xh3enl+nCN7tmb5O7+DzN8spWV9SDrKmR +ZYvFeH+T7LRd+fQht4erobmKiW6EKDk+aDKANWa/EzqbmKi860XSqk4DMBAf +DbzazESvbDzqo0YMYG2RdLf7eybqV7i8xUzIEBbkvf2/tzCRShs/vcXKEMS+ +TC3r+4jnWW9E8OcrQ9g1XvNU5Bven9my2jXVRqB1onj47QATtYYjo9N5JtB+ +qMJ9nKMPrfP8ZO8RuBn0WRmDrzf1IeLvwxLZ4wAiMlHLL0b3IdrII36ajxkI +lka7VTX2oTC9TZ3pGhaw9Xr4fYc1/chn7FfDimFLqJ684l4Q1o+KzUL5c1qs +4D+rNBWtrn50ezbgZdFFa/AeD2L+th5Ai1tXNdfF2oL6ITVW0NsB9IODe6rX +eweE6lP+V3ayUPCaQ2mnFB0gVzuFr6WDhUoONLy4FO8If3jVppSiBlHkjPSC +5oGdUJ03PzItM4TmbLY51+93AkZzmubDz0PIZO+FrQM7d8Hz+6/2SV79iT5K +ZwfU6e2GtRxBRZqew2h1ftyTArU94MmpdqZ/ywh61KNhZy/qDDVxzSXmsqNI +rn3SL3zMGe6zhDlluMeQ3qULRbd6XCDN/HLdXcFxlM0zo51e6wpfLFQLR4Um +0MOt6zviq91gn264zH7aJMoyOif+q9AddK8+ax4qmkQt3/MS9JL3gs71op95 +m6fQgx3XlA6f3AeXxA7ktnVPoamgXRzBDA/gcnaMi42aRnPb1P3HzT3B9ei1 +cyRtBhWMfVsMNdwPVfV1Yna1M8j1Rp6vh4gX0AIHNmsRs6ii3HY/9xkvqBY/ +GTuwcg6ZyHxkn2V7wfbutP6XVXNIscev48MBb/A04xir2z2P+oUPOlzr84ZD +Hfk8ltQ8ak2197Xa4wOJp1Cdd+oCuhiRI3y01QfirvWfaFFeRE+e/WX7WvuC +QuKxOytLF9GyfXBG77Ev0DcO7v2jwEYmXuMF8foM0DU59oG4wEb5VyZD7Q0Z +oHU1Kqw3nY1Wtk1voRkzgP21SHbfRTYat1xoLzBlQPg0/yn7TDY+vzg4m8wY +APVvT6pms5HYgribxE4GHBgMECssYKP+FAPBnCAGePNufjL+jI1Sa6IPPMpn +QMJ1cZb3EBsF6WaaRBQwYAOv9tKln2xkd7dM0LiQAUff9gq+HWYjoUzW3api +BmTca5bQGmOj+BDH4YeVOL+QhbcDU2wUra508MErBnwMdk9UXWKjgMx3geVd +DCjt/KXKFKGQtRhrU0gPAzItM7/OilJILZ5DVJfJgJR12sf5llGIFWJQXDbA +AO512mdVxCnkbZ8zdn8Ur+fb+U43SQq58oYGl1IMqKeFSaTIUsgqdPXhIikC +/A9LfVKkU+hVToJN+ioCVDrKndW0KbSpaVopYjUBMlILKZrrKaSj/O6buRwB +GnTtNdobKCT9Jcr8uzIBzmLBJYoGFBrZ+ENKyICAHjs6o3UThc5z5T7120VA +yuydRbothYTWi2Tt2ENAtrVOpoAdhU7vjQjRcyFg8Oyn3l7siEpH1b/uBNi2 +749Ms8f5k5wXLvsQcID8ef/HTgrpNfowXh8h4GVU+6KRK4W+XFAWVkwjQED/ +6YZhXwqVIFH/oQsEGB9JkU9l4Phjs3XFGQTE+MT36BAU0rWuizHOJIBdot8W +QlIolcN3esd1AoLUs2OG/Cm07VDut4giArKMBOr/C6KQrGyi4ZYSAk5VR1Ro +BlNotvFQBvd9Au59dQmuwb6pgnakVhBwTva5/ZdDFPr948eLW48J4ExofcAR +QqFKO5mC9w0EfHMWXpIOp1ASxcV7sZEA6dscTzKxfQqGvd2aCBB89Xf7ymMU +Ws7zWKa/hYArwylvBCMoFFjjep79mYBoGTk71nEKKWpcDlcaIEC/vNGXOEEh +6suJtp8sAlhckZ9asFvjCZ3SIQJa9ZTETWIoFNOrP2wySkCy29QAfyyFOrLa +PBxm8HrfbuTKPEmhdH5xy0hOEgYZQmORcRR6Mv1jbxg3CSOJZ5e+Yw/+KAwJ +5iUBGabGm57G/VBpkesjSMJGRq7wPDbLK2LJRpyE9TccOl0TcP52lhKWK0gY +7vOsLcY2NZJQR5Ik7KFNK3GeoVCaaJGznjQJS8/oLrewTR93l8msI2GbS0fY +p0QKkXlFDZKKJNjnDGjJncXvpx3vXqZMwuirS54ENotcIcqjTkL93ljtiX/P +V1j5j+qQ8PTwhxOT5yj0+M+KWJYuCb5+bhz0JAoN/Oy51KNPwubPb5f8sDe+ +iKxtNybhGCz3+IbdH1gi9xRIcKnnq7+bTCEx1yiDKjNcD52bYh3YJubb7cos +SBBMTH4vkIL7RZp5PG87CXpXhKu8sR/xlKbl2OB8Y052J2H3TUTduWJHgtod +npOV2MZvJD+lOOL85TjVOVPxfpcxR844kXCP7bFBGTvlWinX/3aTwFqfUWaF +zQyx1gl3JUG9eY90Iraop5TVYXdcH4UmjnxsY+s+j4B9JHCUju5/9e/7tSeS +PL1I+LqLJ34e+5GQzU1XHxKIp0M2YudxvDmpaicGCac4nRKVsEV7+1rsSBJM +1Yw3m2AbN91nbfMnQfVNxgE7bJ+qE78hgIToXx6intgpN21WmgaSIHY8TS0Y ++1EKTdMgGO9nuHJN9L/4Ef1b1x8mIbyG9vostgijzFU9hAS45rPtEraRQ8wh +xTAcn82Jcv7F32ibIBtOgh+aLrmDnay8KpsWQcKEv87lEuyHywcqxCNJ2P+r +erYCu3eprFE4moQ1oimNVf/iD8b08saQYG5aQHuMbfjRdvFvLAlVFUKd//x/ +4kDhiw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, - "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> - GoldenRatio^(-1), "DefaultStyle" -> { + "PlotRange" -> {{0, 180}, {0.5711976116611671, 1.660090312517452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5711976116611683}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7284,19 +7017,20 @@ HbLGog== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "PlotRange" -> {{0, 180}, {0.5711976116611671, 1.660090312517452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5711976116611683}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7310,232 +7044,105 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV1Hk4Fe8XAHD7TlHcJJJ9u5JdqvdkSZaQylZkuTMkVEhC1E+kLImKviVa +SLJkKUk7RSKKNslyccm+c0fL7+2Peeb5PDNz5rznPedd53PIieDi4OAYwte/ ++5H32qpVre+33AuoNAQrJtoyftvAx6IIadItg/+5J8fwopLFE3SuZGblVmxH +RjOfiN5rVLfwXMMMuywitpbXoglRtMJSc+yzb1a9iC38gByVym9ZYle3Hrn+ +S/cTem30lW879nBHY/Txmq8oP3TNNxvs1QOKe+fNO9GvPzGr7bFtJ6JNQpu6 +kRw/x7ud2M9+DQtHFPYi1ec5w3uwP5+iRT0M7kNHvDyPu2OP81kMz+oOIFON +Tcf2Y/MlH3bTW2ChPm+Tfga2nHh2w5GaIfTQyflFALa9zHz+uPko8rk3+foY +NpmrIEUXGEe0huCJGOxYZYf4g00TKItfLDEB+yutfUNY4RTiu1rGl4nNcA84 +kJE8jUTaH47mYE9e47hRHjyDRthdW+9iCyjQl0/pzqHOVf+ZPMW+yKi1Wi45 +j5RUtTvrseXvuMWuX5hHvXaDYx+xjbUSxoNqFlGo7TvPYWx/w+6mYfNfKMwr +MFxuOxPNRhzlEVL5jVxtTdO1sE/WCG9SF/iD2LX6sqbYWWB8z6/pL3JMLjzp +hs3Ia7AIKeQEhlD1iavYhW8yek7JcMGtxhmJYuzJQc/oC8lc8Gq5F+05drTG +XMX9YG4QkP0Q1I99sXSd4oQuL0iJ6u7Ut2aijtbRZ39u8QL9rqSXNbb8dJW7 +mCQftFnodXliF+nbp9MX+CBEY51aEnZddSRnYI0AhL77OT2EPVfb1j1kLgJO +K3YR1TZMJGEnsjzqmQic66ps+IKt024BoiaicLnwZ8k8dkD/g9wN2mLgQG/n +NrRlosNcTTqbRZYDi5/V8hh7QKFkKn5eHHZU9k532uH6kI2CLXoSwEsdOc29 +g4m47rHWrToiAZr5i1ka2PJ6a50KRyTgrPaMTSS2u3la+fueFTBX3f9xrT0T +tfiGhNLeSYJCh8TROAcm6rqTmuQlIAXv9m4zKsceHSm8dddSChKXrkb3YguF +9bWZvpACsfzqtK2OTGRxere+1wMadE2u7ObfyUSPbxvOFeRIA4yvohU7MdHt +ASp8Y5gsRPx3TMTdmYm27znTFVosC5IZF3gvYY/WrdhWzJKFgDTvI63Y+re1 +JOXd5EDjnc6N7S64nj6eFbxb1kLu35/eW1yZaHqi59hQnDzkSTQGIHcmWhFk +UVmxQwG0Wm5UZHoyEeu2kL9jgAKUv3cR6sV+1NkqM5agAAIHTdo19jPRPjuP +OJUXCtDedv7lc+zbmuFOV3QVIX3Tb64JL/z/4TuTMTQlkG9JUfL1ZaLdfsJ0 +m15lCFUJ5Lzpz0QofI+uy29lqFSRFVnE1ojPMWJIq4BJlmCC/QEm4rilZxaz +UwV6tO/U/8Iu7trrUv5SBcyWHfuf50E8n85Fp1bfVIXVX5M6DINxfhY7Pg/7 +qINaaZOhaRgT3dqV+X0hRh3+yINuDnaqT28Pz1V1OL4qJZv7KO7vk0dH5NrU +QaunobYZW/xJNscucw2YFPN08DuG+0dvXKNGURPivtb6lUYykYzC+dikfi1I +pX+qyzjFRE/OzaqzuejA6F12dNn/cD1m3NrJdXQgU5/eTcK+XqekbuZJh4YH +abnxcUyk4Pf44+IXOrirTtbFxuP1Fg0ok++0IcThxETyWSaSlZEj5d10QEKk +lkc4nYm08sJElpAumOx/L551m4l8GHFzdHtduJikf0MjD8+rYnqX1z5deL7v +e95TbO6bpfffROiCT5zQsoF8PG/Xh3enl+nCN7tmb5O7+DzN8spWV9SDrKmR +ZYvFeH+T7LRd+fQht4erobmKiW6EKDk+aDKANWa/EzqbmKi860XSqk4DMBAf +DbzazESvbDzqo0YMYG2RdLf7eybqV7i8xUzIEBbkvf2/tzCRShs/vcXKEMS+ +TC3r+4jnWW9E8OcrQ9g1XvNU5Bven9my2jXVRqB1onj47QATtYYjo9N5JtB+ +qMJ9nKMPrfP8ZO8RuBn0WRmDrzf1IeLvwxLZ4wAiMlHLL0b3IdrII36ajxkI +lka7VTX2oTC9TZ3pGhaw9Xr4fYc1/chn7FfDimFLqJ684l4Q1o+KzUL5c1qs +4D+rNBWtrn50ezbgZdFFa/AeD2L+th5Ai1tXNdfF2oL6ITVW0NsB9IODe6rX +eweE6lP+V3ayUPCaQ2mnFB0gVzuFr6WDhUoONLy4FO8If3jVppSiBlHkjPSC +5oGdUJ03PzItM4TmbLY51+93AkZzmubDz0PIZO+FrQM7d8Hz+6/2SV79iT5K +ZwfU6e2GtRxBRZqew2h1ftyTArU94MmpdqZ/ywh61KNhZy/qDDVxzSXmsqNI +rn3SL3zMGe6zhDlluMeQ3qULRbd6XCDN/HLdXcFxlM0zo51e6wpfLFQLR4Um +0MOt6zviq91gn264zH7aJMoyOif+q9AddK8+ax4qmkQt3/MS9JL3gs71op95 +m6fQgx3XlA6f3AeXxA7ktnVPoamgXRzBDA/gcnaMi42aRnPb1P3HzT3B9ei1 +cyRtBhWMfVsMNdwPVfV1Yna1M8j1Rp6vh4gX0AIHNmsRs6ii3HY/9xkvqBY/ +GTuwcg6ZyHxkn2V7wfbutP6XVXNIscev48MBb/A04xir2z2P+oUPOlzr84ZD +Hfk8ltQ8ak2197Xa4wOJp1Cdd+oCuhiRI3y01QfirvWfaFFeRE+e/WX7WvuC +QuKxOytLF9GyfXBG77Ev0DcO7v2jwEYmXuMF8foM0DU59oG4wEb5VyZD7Q0Z +oHU1Kqw3nY1Wtk1voRkzgP21SHbfRTYat1xoLzBlQPg0/yn7TDY+vzg4m8wY +APVvT6pms5HYgribxE4GHBgMECssYKP+FAPBnCAGePNufjL+jI1Sa6IPPMpn +QMJ1cZb3EBsF6WaaRBQwYAOv9tKln2xkd7dM0LiQAUff9gq+HWYjoUzW3api +BmTca5bQGmOj+BDH4YeVOL+QhbcDU2wUra508MErBnwMdk9UXWKjgMx3geVd +DCjt/KXKFKGQtRhrU0gPAzItM7/OilJILZ5DVJfJgJR12sf5llGIFWJQXDbA +AO512mdVxCnkbZ8zdn8Ur+fb+U43SQq58oYGl1IMqKeFSaTIUsgqdPXhIikC +/A9LfVKkU+hVToJN+ioCVDrKndW0KbSpaVopYjUBMlILKZrrKaSj/O6buRwB +GnTtNdobKCT9Jcr8uzIBzmLBJYoGFBrZ+ENKyICAHjs6o3UThc5z5T7120VA +yuydRbothYTWi2Tt2ENAtrVOpoAdhU7vjQjRcyFg8Oyn3l7siEpH1b/uBNi2 +749Ms8f5k5wXLvsQcID8ef/HTgrpNfowXh8h4GVU+6KRK4W+XFAWVkwjQED/ +6YZhXwqVIFH/oQsEGB9JkU9l4Phjs3XFGQTE+MT36BAU0rWuizHOJIBdot8W +QlIolcN3esd1AoLUs2OG/Cm07VDut4giArKMBOr/C6KQrGyi4ZYSAk5VR1Ro +BlNotvFQBvd9Au59dQmuwb6pgnakVhBwTva5/ZdDFPr948eLW48J4ExofcAR +QqFKO5mC9w0EfHMWXpIOp1ASxcV7sZEA6dscTzKxfQqGvd2aCBB89Xf7ymMU +Ws7zWKa/hYArwylvBCMoFFjjep79mYBoGTk71nEKKWpcDlcaIEC/vNGXOEEh +6suJtp8sAlhckZ9asFvjCZ3SIQJa9ZTETWIoFNOrP2wySkCy29QAfyyFOrLa +PBxm8HrfbuTKPEmhdH5xy0hOEgYZQmORcRR6Mv1jbxg3CSOJZ5e+Yw/+KAwJ +5iUBGabGm57G/VBpkesjSMJGRq7wPDbLK2LJRpyE9TccOl0TcP52lhKWK0gY +7vOsLcY2NZJQR5Ik7KFNK3GeoVCaaJGznjQJS8/oLrewTR93l8msI2GbS0fY +p0QKkXlFDZKKJNjnDGjJncXvpx3vXqZMwuirS54ENotcIcqjTkL93ljtiX/P +V1j5j+qQ8PTwhxOT5yj0+M+KWJYuCb5+bhz0JAoN/Oy51KNPwubPb5f8sDe+ +iKxtNybhGCz3+IbdH1gi9xRIcKnnq7+bTCEx1yiDKjNcD52bYh3YJubb7cos +SBBMTH4vkIL7RZp5PG87CXpXhKu8sR/xlKbl2OB8Y052J2H3TUTduWJHgtod +npOV2MZvJD+lOOL85TjVOVPxfpcxR844kXCP7bFBGTvlWinX/3aTwFqfUWaF +zQyx1gl3JUG9eY90Iraop5TVYXdcH4UmjnxsY+s+j4B9JHCUju5/9e/7tSeS +PL1I+LqLJ34e+5GQzU1XHxKIp0M2YudxvDmpaicGCac4nRKVsEV7+1rsSBJM +1Yw3m2AbN91nbfMnQfVNxgE7bJ+qE78hgIToXx6intgpN21WmgaSIHY8TS0Y ++1EKTdMgGO9nuHJN9L/4Ef1b1x8mIbyG9vostgijzFU9hAS45rPtEraRQ8wh +xTAcn82Jcv7F32ibIBtOgh+aLrmDnay8KpsWQcKEv87lEuyHywcqxCNJ2P+r +erYCu3eprFE4moQ1oimNVf/iD8b08saQYG5aQHuMbfjRdvFvLAlVFUKd//x/ +4kDhiw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, - "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "PlotRange" -> {{0, 180}, {0.5711976116611671, 1.660090312517452}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5711976116611683}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7545,7 +7152,8 @@ HbLGog== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0}, + AxesOrigin->{0, 0.5711976116611683}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7573,7 +7181,8 @@ HbLGog== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5711976116611671, 1.660090312517452}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7581,24 +7190,1413 @@ HbLGog== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913218813523655`*^9}, - CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] + CellChangeTimes->{ + 3.9913206956809444`*^9, {3.9938046609604053`*^9, 3.993804747482561*^9}, + 3.993804789329523*^9, 3.9939097507580233`*^9, 3.9939113377762127`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"fbb4aba8-c808-40be-aef7-03e689c9e112"] }, Open ]], +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}]}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.9917994543716736`*^9}, + CellLabel-> + "In[393]:=",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.5835818797021963`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 393, + 21, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993911338109069*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"0ccd3624-3a6c-4025-9d8e-876d0de34cab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.326580290176643`*^-279\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 393, + 22, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993911338119452*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"a66f833c-80e4-437b-8bf8-b4a950a1072e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.4273227968308645`*^-290\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 393, 23, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.9939113381285973`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"9e714659-a7c0-4ca1-8761-eacb6bd5a53a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 393, 24, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.9939113381372347`*^9}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"db56b3b4-c8b3-481a-94b0-2143419af947"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8VX8YB/CipJKskMzrnnvtlZFxPY9CUWjQtLIrVJJVCiV7hJZoCF33 +nAYNRUNGixTJpkR+pUJZofI7/XVe79d5ne95ne/3eT7P6yh57N3ozTdr1qx5 +s2fN+ncd735RzUzKN7cwO+meYmVo3nRBOtyiNQY61HwNJQIlAJe89pBuzYCZ +zkKT/gAmhKzntfC35oFHZ7reywB9EB2UyphsKQGbeQ1zuQGW8P6B/d7Rlkro +VX1sZx3gCNbMga4fLY0gHDY61bjHCyZbjE4Nt3yEs2RRkIhPMFStuprfkDcC +8prkoCA7FmTf3+/30PgDH7qi1gdpp4GEvxtv3ip+jFN4TOm6Z0GGrnW5vZMg +ckx6XdtdzkHbWZ2KHyKLMPe85ly7ulxIyj/6mm+pKBo2eLD/Y18GqazehMxc +cQwsz7bo0b8CcY425o3jS/DpqZtzZcfy4YDxZbcXMdLYb1P+KoFXCJZDUxGB +vTLonGAh+UKMC+FrstSefJPBMjdz7qAUF65f1mwXH5dB0fdVm0TluCDt6G58 +X3AZdifKj9uxufDtXs0Ev9YyvFGl5pZvyoXMmPTgc2HLkLhgGVnjyYWPS1iB +1YtksdnrZ2dzMReizTbslFkhhwrcs0VsqyJY43rhp9FKOezax938w6YIhKO+ +HnNaJ4fHm/NOlNoXQU5VbGG6uxxe+xMQaLy1CO7Zln0VSJBD1WL2FvE9RTC8 +VTlkpE0OW8NFXBXSi8D14Fhi3SF5/NPt/vN0SxGYXD93+8hjBczpJu1+7+CB +ZUv9n8HnCnjWwjAuz40H9rPmrHZrVMCCh003rDx54LkxsA0+KeCfJL36mN08 +sD6kdDRqriKmfmkwbw3jwT6F8SsW6ooosCjp21AWD6p9L36vClFE/puFRxtf +8sDmt7HY4UOK+Ebf+ZxkPQ/q05sM9aMU8V2JV96WBh603Z8flZ+giLG/c2Le +tPBgcGGwWGyOIq7xWByZ28cD6ZtrjKwrFVFJ869P/h8e+P/6EfV8kRJe0nyb +5aNJgsl+H8l+MSW0UnqbfkKHBMGBdpJfWgmvhDaN5S0noaCjqtmcoYQXbgVN +vzEmofvRKY07hkoYqes/OduaBIdY49bLbkpYobjuU6kLCXpi0dqHipUwo2l/ +XXAiCbOSxqrP3lXC19wdyEghoZ5/9/a75Uroqn9QuS6NhD1jG2N/1Cgh/xXt +FUtOkZDfyuzwbVfCz/W38w5fJEHy4vMTjvwMfB0w9+6lWyRMqot0azoxsHtp +RB20kTCeKxO9fDsDne6kwP4OEkYXE0xjNwYO3bq79mIXCYMjxrstdzGw7G+S +zo8eEj6We45vj2TghlFzA/8BEl6uLRWOL2Cg39za4MdTJDx7+KQ4hcfAkLr9 +l8p+k1CtXeeYeYOBn9hxu0v+kvBIvCf7wn0GjnTt7jjDR0FJxwL2nVcM/HLY +yMRkAQXZe1zh4xgDf34Uhi5pCs50+X38b4qBjWLVkXkyFGQ5HIj9PsPAFx// +c/eSpSB1eXztr/nKyNclKtmtQEHMdPGWxfLKuEJNZ3URi4I9SXP3mVkr46Rs +seLF5RSYkdSl06eVcV9KbMnCtRR0KJIXrc4r48HqNGGHdRREnC66MHpRGa/t +XZiUZkdBaXRhzsYiZQxX7+mft54Cva2Xzgo/UEa/pf36zY4UqM7NSj/Ro4xm +aW9jvrhQ8DwiI82gXxldG8WXzLhS4DOcnto3oIwe4Yx6UXcK8jtSkleOKqPP +9Ia7Wh4UKJbExf8VYGLRgvzd1j4USLodigrRYCJl1/HkewAFd5rCjxK6TAw9 +EjXyLpACR9uwI00GTNS6VrWxfC8FGQYHD+sBE/Md/jsfuZ+CRUJ7wwY3MPGq +iLj3h2AKqOiA0NzNTCxIkBApOUiB7cSekHU7mGj/3upbVAgF8R/9gnleTOyz +nG8iGUbBnPse+3xCmWg89dFI4RAFV7R27l1ymImGTjrh7bRX5rsFVkcx8dbY +9qGMwxQcTXP2ZyQyUf8t6/B0JAVT3pv9unOYOIXPmWQUBT/EbN03VzLxxaSQ +XGwsBa3+jDe7nzFR2FirTeEEBRVPp+BoHRPPyyg4ldJOjyAVuM1MfCk6ltoZ +R4HOR6H3kwNMPFlqKDsrkQJps0/2wsNMDBk+9TmK9qzTDx8xxpiYoNAd/pf2 +a5vAC2tnmLjqYcX3oSQKAotfu+SKE+hVI6pJpVCweSH3VbE0gQZpE3riqRSY +e0dxnsoRWHGMnz+U9qKlunJDbAJdhYzmGKRRMBo0P4Vfk0Aq7bZhGu3Oup7f +UnoEnl42x7CfNhWV0YlmBIJObW5iOl2f7bvXOVkQyD8vd14r7cP6qx7ssiaw +IXoMGScpWPt55HzGegJjx0eZ12jrraxbeNWJQIfMqTffacvk5B8q307gjqWW +DuoZFAw4OO3o8yJwpYhPTQ7txiLN2l+7CPwdePnRG9pl/AKmi/YSKJHRnzw7 +k4I8l26eUjCBvlafdbRpJ5TelTEMJ/Bc5zZyG+19ommJtkcI7NAb+h1Fe+se +3ynXYwQe5zmzCmhjDew+EE/gU40tKk9pqyhIt8el0OupZvH30RYJH7bJySDQ +4/SLe39p/2p8fv/mGQKvDl1bI5lFwQeNy6o1OQTeMfx1S4328xPh59ouE+jy +023alPbNDxvmDxYSuEsrV8GW9lkTtXA+ikCrQ35KTrSjsvi+SBYTeO97xGwX +2r6D7VvV7xIYL59asZO2/Zpbz6GcQGM1ZzdP2oZ5SSscKwgsuHmx+999+d+e +XL8aAsubxOHf8wKbzaQjXxKoaRYc/W/9wRsS8SdfEyi2OLLw3/ub53+fKGgi +MG9i4LoZ7UeeNb5lbQS2KR06r0678GFuS303gWqmX/2laKdKhazu7SVwedCk +8izaIfvtSyc+E7gtxOvJJ3o/XGtZbKFBApNCv1o9p21FzJxWHCGwi7AvuUpb +42iLgMEvAlcXr5t3nLZE240Qmz8E4ourVi60+5LdNwfNY+Gx1rBoAdqBAxoM +HSEWOhYU17bR5z2xevL7dxEWLl5Q6sujvYA/I3aXDAsVT+edWUU7y911A1uB +hX9UnmkI0ZZ7pCb3SZmFAWoGko10femEV91212ThhEfgZyfaZc1pUfJ6LOyb +imgUp71K33ldpyELT1ZuEn9N1+/modHeLcjCI+TweQ7tSG+WuMMmFhJvz7dP +0f0iUPWzW2grC59Y1yZfoZ2u+Jj30pmFLcNd2Tap//Juy0prHxb+tIZXKXT/ +vdyQsJ8TzsIVaQK543R/Ot5w4kxHstD06U5MpN0lxJh/P4aF9nr1lstoDz8r +u6SfzMIs97ADBnR/S5p/e61+kYUj5MEI23gKLp2/d/7LFRYq8cpXvKDzQnXy +uO9VLgv5nbe4WNE2uy03wyhhodj1FZ0GdL54qjloydSwUOjvpqqJY3Q9SpYk +C35l4b2pk69mjlBgEnxk69MhFroZ3rRwol3VYMs8PsrCRRWDLC6db83JveUz +f1joIp602prOv998S76Oi7Bx+e64Uc9wCmyGQm0+GbLx92DTWeIABbK68icE +zdjY/xpuYBBdf0HVleoWbJS//7FhK53XWeMiZkFr2dib6QdRdJ53/ynSmnFj +I1f0dhO5h4IgoU7xpQlsJDWv3QrxpMDSPma9WSob14ysmfKg54dUukqKWyYb +/9Rd27FuJwUPxA8KFOaycWdObJCkG30+y4Qn9UrYeP2C34L47fR8VcXudR1s +jExm3e6h55n/nn6ZfR/YmCWpKHXJgQK4lrwl8xMbP7zvvLLDnq5HnbY3bUNs +bE/yN39Jz0utFUFVPnNU8MP29IxYa3p/rPO5UZoq+GwoIeWgKQXfPAUP3D6q +ghtNn522UKa/94Llw8fHVTDt+8+060oUDLVFzatNUMHJ8QVfpRUp+Okweb4n +UwW71lW//ETP8wnTgWphrgoObK21dZekgE+iTnLXGxU0usVTahOkYGl1Wpmc +kip+aE7v/vCVBJmZ2jmqLFX05lMcnP5CgqyJoIO+uiqWrN9wROIzCfI3o3pt +DVTRZM9xpnkfCcyc/UJhNqpoEJZ35UAnCTrBm1wb96uiF8/exq+OpP8XpPji +KlXxcG828yiPhC8eq7mmz1TxZN2WhUFcEpIvh9oP16oic96qHo9CEt7Kt2Zv +e6eKg3bfXMzzSHBfem65xmdVtJ5OLO48R0K48DLvhkVqmMZKjyiNJ4H6Jf98 +2TY1HMjW3vnViwSxV6zUm0Nq2PM7LvCQFAl/h3QKXo6q4TrDvfX3JUgYEDN9 +0DephjUHhmbGREmo3OowID1HHTs3LO30FSLhQF+odbS0OvKN3TijO5uEpunn +fzdYqKNrwWZR1wEenFHbs3ckQx3HZ5c+YZTzQDb+xnpDQw18ULBM/txmHpxV +NxYR99VEb91h484TRfBSxsJg5KQW3uIktvTnc8FEtjJdu1kbxWyOSLZlXwVh +/rzgnTE66PlqfKoooxDkoxXMtrF08bpy5KCEbwHMJ5zvbnymiwfAaPqoUT5o +cZbeCHXRQ8iurNWXugJB3WJVtrOW49fzi502dl6GoZFkJ5uzy/G/aksFudJL +sFr7abaNpj5GKb4xSTS4CI9GTKcn6vUxX2LLDNGaA4Eaeu0N3gbortvcpV2S +DZxBr6Zt8w1xYdI75V/7z4IVU9puUZ4hDlVPpyYEnAaVqMSwSiMjjPb57F+U +kAVq3saPiXYj7LsuUFt5JgO8H/kdv71/BWo0bXa/0JMOjy81ef1YYoz+mleO +2dqkwih3ZkK71BifKN+xr5BNAk+CnJ9tZ4JNLn2CAS7x8EMt07Bk2ATV6mem +eLmxcC9/umcs3hSNBeY7UiuPwXZLZTSVN8NFFnZJp5jRsCwg7r5WhRmeSKgR +3ClzBJYs8C+228LBXrG2dYknIyB/VWTE8DYObqGadybERIBeZOqqTGcOpsRW +qKUdiAD74ZvvWndysHS2c8N1pwg40Tw26enPwZqwG2guEwG/8o6ujIjmoN5q +R/mc/HBoN818W0hyMElX4ODqR2HgdzA/x+Y6B3/cXp+79GYYjF+/4/3tJgeD +mjvx5+UwEGO0Tuje5WDsnOSfd2PDYK2gnOzDCg7i2I9XKXZh8KCp0OvtOw5K +yms27O0OBVvhe5ohrRzcd+fYO+6bUGhd/WJcuoODC4VhxefKUBgt+xrv+oGD +yYw80YiroaB5WefalwEO2j4y6/myLxQetFuEJH+nvam7wMmTXk9iE2gPc/Bq +1rayZ06h4BN3sCF4jIN8zhm1j0zo9SpOZEv94mBka1H1Ks1QiJk641k2xcGe +IXuB1wqhIKJfpOHyh4NHJq6luouFwoWAsrGZGQ7G8Y/s+DUnFP4H8sCO8Q== + + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8VX8YB/CipJKskMzrnnvtlZFxPY9CUWjQtLIrVJJVCiV7hJZoCF33 +nAYNRUNGixTJpkR+pUJZofI7/XVe79d5ne95ne/3eT7P6yh57N3ozTdr1qx5 +s2fN+ncd735RzUzKN7cwO+meYmVo3nRBOtyiNQY61HwNJQIlAJe89pBuzYCZ +zkKT/gAmhKzntfC35oFHZ7reywB9EB2UyphsKQGbeQ1zuQGW8P6B/d7Rlkro +VX1sZx3gCNbMga4fLY0gHDY61bjHCyZbjE4Nt3yEs2RRkIhPMFStuprfkDcC +8prkoCA7FmTf3+/30PgDH7qi1gdpp4GEvxtv3ip+jFN4TOm6Z0GGrnW5vZMg +ckx6XdtdzkHbWZ2KHyKLMPe85ly7ulxIyj/6mm+pKBo2eLD/Y18GqazehMxc +cQwsz7bo0b8CcY425o3jS/DpqZtzZcfy4YDxZbcXMdLYb1P+KoFXCJZDUxGB +vTLonGAh+UKMC+FrstSefJPBMjdz7qAUF65f1mwXH5dB0fdVm0TluCDt6G58 +X3AZdifKj9uxufDtXs0Ev9YyvFGl5pZvyoXMmPTgc2HLkLhgGVnjyYWPS1iB +1YtksdnrZ2dzMReizTbslFkhhwrcs0VsqyJY43rhp9FKOezax938w6YIhKO+ +HnNaJ4fHm/NOlNoXQU5VbGG6uxxe+xMQaLy1CO7Zln0VSJBD1WL2FvE9RTC8 +VTlkpE0OW8NFXBXSi8D14Fhi3SF5/NPt/vN0SxGYXD93+8hjBczpJu1+7+CB +ZUv9n8HnCnjWwjAuz40H9rPmrHZrVMCCh003rDx54LkxsA0+KeCfJL36mN08 +sD6kdDRqriKmfmkwbw3jwT6F8SsW6ooosCjp21AWD6p9L36vClFE/puFRxtf +8sDmt7HY4UOK+Ebf+ZxkPQ/q05sM9aMU8V2JV96WBh603Z8flZ+giLG/c2Le +tPBgcGGwWGyOIq7xWByZ28cD6ZtrjKwrFVFJ869P/h8e+P/6EfV8kRJe0nyb +5aNJgsl+H8l+MSW0UnqbfkKHBMGBdpJfWgmvhDaN5S0noaCjqtmcoYQXbgVN +vzEmofvRKY07hkoYqes/OduaBIdY49bLbkpYobjuU6kLCXpi0dqHipUwo2l/ +XXAiCbOSxqrP3lXC19wdyEghoZ5/9/a75Uroqn9QuS6NhD1jG2N/1Cgh/xXt +FUtOkZDfyuzwbVfCz/W38w5fJEHy4vMTjvwMfB0w9+6lWyRMqot0azoxsHtp +RB20kTCeKxO9fDsDne6kwP4OEkYXE0xjNwYO3bq79mIXCYMjxrstdzGw7G+S +zo8eEj6We45vj2TghlFzA/8BEl6uLRWOL2Cg39za4MdTJDx7+KQ4hcfAkLr9 +l8p+k1CtXeeYeYOBn9hxu0v+kvBIvCf7wn0GjnTt7jjDR0FJxwL2nVcM/HLY +yMRkAQXZe1zh4xgDf34Uhi5pCs50+X38b4qBjWLVkXkyFGQ5HIj9PsPAFx// +c/eSpSB1eXztr/nKyNclKtmtQEHMdPGWxfLKuEJNZ3URi4I9SXP3mVkr46Rs +seLF5RSYkdSl06eVcV9KbMnCtRR0KJIXrc4r48HqNGGHdRREnC66MHpRGa/t +XZiUZkdBaXRhzsYiZQxX7+mft54Cva2Xzgo/UEa/pf36zY4UqM7NSj/Ro4xm +aW9jvrhQ8DwiI82gXxldG8WXzLhS4DOcnto3oIwe4Yx6UXcK8jtSkleOKqPP +9Ia7Wh4UKJbExf8VYGLRgvzd1j4USLodigrRYCJl1/HkewAFd5rCjxK6TAw9 +EjXyLpACR9uwI00GTNS6VrWxfC8FGQYHD+sBE/Md/jsfuZ+CRUJ7wwY3MPGq +iLj3h2AKqOiA0NzNTCxIkBApOUiB7cSekHU7mGj/3upbVAgF8R/9gnleTOyz +nG8iGUbBnPse+3xCmWg89dFI4RAFV7R27l1ymImGTjrh7bRX5rsFVkcx8dbY +9qGMwxQcTXP2ZyQyUf8t6/B0JAVT3pv9unOYOIXPmWQUBT/EbN03VzLxxaSQ +XGwsBa3+jDe7nzFR2FirTeEEBRVPp+BoHRPPyyg4ldJOjyAVuM1MfCk6ltoZ +R4HOR6H3kwNMPFlqKDsrkQJps0/2wsNMDBk+9TmK9qzTDx8xxpiYoNAd/pf2 +a5vAC2tnmLjqYcX3oSQKAotfu+SKE+hVI6pJpVCweSH3VbE0gQZpE3riqRSY +e0dxnsoRWHGMnz+U9qKlunJDbAJdhYzmGKRRMBo0P4Vfk0Aq7bZhGu3Oup7f +UnoEnl42x7CfNhWV0YlmBIJObW5iOl2f7bvXOVkQyD8vd14r7cP6qx7ssiaw +IXoMGScpWPt55HzGegJjx0eZ12jrraxbeNWJQIfMqTffacvk5B8q307gjqWW +DuoZFAw4OO3o8yJwpYhPTQ7txiLN2l+7CPwdePnRG9pl/AKmi/YSKJHRnzw7 +k4I8l26eUjCBvlafdbRpJ5TelTEMJ/Bc5zZyG+19ommJtkcI7NAb+h1Fe+se +3ynXYwQe5zmzCmhjDew+EE/gU40tKk9pqyhIt8el0OupZvH30RYJH7bJySDQ +4/SLe39p/2p8fv/mGQKvDl1bI5lFwQeNy6o1OQTeMfx1S4328xPh59ouE+jy +023alPbNDxvmDxYSuEsrV8GW9lkTtXA+ikCrQ35KTrSjsvi+SBYTeO97xGwX +2r6D7VvV7xIYL59asZO2/Zpbz6GcQGM1ZzdP2oZ5SSscKwgsuHmx+999+d+e +XL8aAsubxOHf8wKbzaQjXxKoaRYc/W/9wRsS8SdfEyi2OLLw3/ub53+fKGgi +MG9i4LoZ7UeeNb5lbQS2KR06r0678GFuS303gWqmX/2laKdKhazu7SVwedCk +8izaIfvtSyc+E7gtxOvJJ3o/XGtZbKFBApNCv1o9p21FzJxWHCGwi7AvuUpb +42iLgMEvAlcXr5t3nLZE240Qmz8E4ourVi60+5LdNwfNY+Gx1rBoAdqBAxoM +HSEWOhYU17bR5z2xevL7dxEWLl5Q6sujvYA/I3aXDAsVT+edWUU7y911A1uB +hX9UnmkI0ZZ7pCb3SZmFAWoGko10femEV91212ThhEfgZyfaZc1pUfJ6LOyb +imgUp71K33ldpyELT1ZuEn9N1+/modHeLcjCI+TweQ7tSG+WuMMmFhJvz7dP +0f0iUPWzW2grC59Y1yZfoZ2u+Jj30pmFLcNd2Tap//Juy0prHxb+tIZXKXT/ +vdyQsJ8TzsIVaQK543R/Ot5w4kxHstD06U5MpN0lxJh/P4aF9nr1lstoDz8r +u6SfzMIs97ADBnR/S5p/e61+kYUj5MEI23gKLp2/d/7LFRYq8cpXvKDzQnXy +uO9VLgv5nbe4WNE2uy03wyhhodj1FZ0GdL54qjloydSwUOjvpqqJY3Q9SpYk +C35l4b2pk69mjlBgEnxk69MhFroZ3rRwol3VYMs8PsrCRRWDLC6db83JveUz +f1joIp602prOv998S76Oi7Bx+e64Uc9wCmyGQm0+GbLx92DTWeIABbK68icE +zdjY/xpuYBBdf0HVleoWbJS//7FhK53XWeMiZkFr2dib6QdRdJ53/ynSmnFj +I1f0dhO5h4IgoU7xpQlsJDWv3QrxpMDSPma9WSob14ysmfKg54dUukqKWyYb +/9Rd27FuJwUPxA8KFOaycWdObJCkG30+y4Qn9UrYeP2C34L47fR8VcXudR1s +jExm3e6h55n/nn6ZfR/YmCWpKHXJgQK4lrwl8xMbP7zvvLLDnq5HnbY3bUNs +bE/yN39Jz0utFUFVPnNU8MP29IxYa3p/rPO5UZoq+GwoIeWgKQXfPAUP3D6q +ghtNn522UKa/94Llw8fHVTDt+8+060oUDLVFzatNUMHJ8QVfpRUp+Okweb4n +UwW71lW//ETP8wnTgWphrgoObK21dZekgE+iTnLXGxU0usVTahOkYGl1Wpmc +kip+aE7v/vCVBJmZ2jmqLFX05lMcnP5CgqyJoIO+uiqWrN9wROIzCfI3o3pt +DVTRZM9xpnkfCcyc/UJhNqpoEJZ35UAnCTrBm1wb96uiF8/exq+OpP8XpPji +KlXxcG828yiPhC8eq7mmz1TxZN2WhUFcEpIvh9oP16oic96qHo9CEt7Kt2Zv +e6eKg3bfXMzzSHBfem65xmdVtJ5OLO48R0K48DLvhkVqmMZKjyiNJ4H6Jf98 +2TY1HMjW3vnViwSxV6zUm0Nq2PM7LvCQFAl/h3QKXo6q4TrDvfX3JUgYEDN9 +0DephjUHhmbGREmo3OowID1HHTs3LO30FSLhQF+odbS0OvKN3TijO5uEpunn +fzdYqKNrwWZR1wEenFHbs3ckQx3HZ5c+YZTzQDb+xnpDQw18ULBM/txmHpxV +NxYR99VEb91h484TRfBSxsJg5KQW3uIktvTnc8FEtjJdu1kbxWyOSLZlXwVh +/rzgnTE66PlqfKoooxDkoxXMtrF08bpy5KCEbwHMJ5zvbnymiwfAaPqoUT5o +cZbeCHXRQ8iurNWXugJB3WJVtrOW49fzi502dl6GoZFkJ5uzy/G/aksFudJL +sFr7abaNpj5GKb4xSTS4CI9GTKcn6vUxX2LLDNGaA4Eaeu0N3gbortvcpV2S +DZxBr6Zt8w1xYdI75V/7z4IVU9puUZ4hDlVPpyYEnAaVqMSwSiMjjPb57F+U +kAVq3saPiXYj7LsuUFt5JgO8H/kdv71/BWo0bXa/0JMOjy81ef1YYoz+mleO +2dqkwih3ZkK71BifKN+xr5BNAk+CnJ9tZ4JNLn2CAS7x8EMt07Bk2ATV6mem +eLmxcC9/umcs3hSNBeY7UiuPwXZLZTSVN8NFFnZJp5jRsCwg7r5WhRmeSKgR +3ClzBJYs8C+228LBXrG2dYknIyB/VWTE8DYObqGadybERIBeZOqqTGcOpsRW +qKUdiAD74ZvvWndysHS2c8N1pwg40Tw26enPwZqwG2guEwG/8o6ujIjmoN5q +R/mc/HBoN818W0hyMElX4ODqR2HgdzA/x+Y6B3/cXp+79GYYjF+/4/3tJgeD +mjvx5+UwEGO0Tuje5WDsnOSfd2PDYK2gnOzDCg7i2I9XKXZh8KCp0OvtOw5K +yms27O0OBVvhe5ohrRzcd+fYO+6bUGhd/WJcuoODC4VhxefKUBgt+xrv+oGD +yYw80YiroaB5WefalwEO2j4y6/myLxQetFuEJH+nvam7wMmTXk9iE2gPc/Bq +1rayZ06h4BN3sCF4jIN8zhm1j0zo9SpOZEv94mBka1H1Ks1QiJk641k2xcGe +IXuB1wqhIKJfpOHyh4NHJq6luouFwoWAsrGZGQ7G8Y/s+DUnFP4H8sCO8Q== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.055819611921908714`}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.055819611921908714`}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8VX8YB/CipJKskMzrnnvtlZFxPY9CUWjQtLIrVJJVCiV7hJZoCF33 +nAYNRUNGixTJpkR+pUJZofI7/XVe79d5ne95ne/3eT7P6yh57N3ozTdr1qx5 +s2fN+ncd735RzUzKN7cwO+meYmVo3nRBOtyiNQY61HwNJQIlAJe89pBuzYCZ +zkKT/gAmhKzntfC35oFHZ7reywB9EB2UyphsKQGbeQ1zuQGW8P6B/d7Rlkro +VX1sZx3gCNbMga4fLY0gHDY61bjHCyZbjE4Nt3yEs2RRkIhPMFStuprfkDcC +8prkoCA7FmTf3+/30PgDH7qi1gdpp4GEvxtv3ip+jFN4TOm6Z0GGrnW5vZMg +ckx6XdtdzkHbWZ2KHyKLMPe85ly7ulxIyj/6mm+pKBo2eLD/Y18GqazehMxc +cQwsz7bo0b8CcY425o3jS/DpqZtzZcfy4YDxZbcXMdLYb1P+KoFXCJZDUxGB +vTLonGAh+UKMC+FrstSefJPBMjdz7qAUF65f1mwXH5dB0fdVm0TluCDt6G58 +X3AZdifKj9uxufDtXs0Ev9YyvFGl5pZvyoXMmPTgc2HLkLhgGVnjyYWPS1iB +1YtksdnrZ2dzMReizTbslFkhhwrcs0VsqyJY43rhp9FKOezax938w6YIhKO+ +HnNaJ4fHm/NOlNoXQU5VbGG6uxxe+xMQaLy1CO7Zln0VSJBD1WL2FvE9RTC8 +VTlkpE0OW8NFXBXSi8D14Fhi3SF5/NPt/vN0SxGYXD93+8hjBczpJu1+7+CB +ZUv9n8HnCnjWwjAuz40H9rPmrHZrVMCCh003rDx54LkxsA0+KeCfJL36mN08 +sD6kdDRqriKmfmkwbw3jwT6F8SsW6ooosCjp21AWD6p9L36vClFE/puFRxtf +8sDmt7HY4UOK+Ebf+ZxkPQ/q05sM9aMU8V2JV96WBh603Z8flZ+giLG/c2Le +tPBgcGGwWGyOIq7xWByZ28cD6ZtrjKwrFVFJ869P/h8e+P/6EfV8kRJe0nyb +5aNJgsl+H8l+MSW0UnqbfkKHBMGBdpJfWgmvhDaN5S0noaCjqtmcoYQXbgVN +vzEmofvRKY07hkoYqes/OduaBIdY49bLbkpYobjuU6kLCXpi0dqHipUwo2l/ +XXAiCbOSxqrP3lXC19wdyEghoZ5/9/a75Uroqn9QuS6NhD1jG2N/1Cgh/xXt +FUtOkZDfyuzwbVfCz/W38w5fJEHy4vMTjvwMfB0w9+6lWyRMqot0azoxsHtp +RB20kTCeKxO9fDsDne6kwP4OEkYXE0xjNwYO3bq79mIXCYMjxrstdzGw7G+S +zo8eEj6We45vj2TghlFzA/8BEl6uLRWOL2Cg39za4MdTJDx7+KQ4hcfAkLr9 +l8p+k1CtXeeYeYOBn9hxu0v+kvBIvCf7wn0GjnTt7jjDR0FJxwL2nVcM/HLY +yMRkAQXZe1zh4xgDf34Uhi5pCs50+X38b4qBjWLVkXkyFGQ5HIj9PsPAFx// +c/eSpSB1eXztr/nKyNclKtmtQEHMdPGWxfLKuEJNZ3URi4I9SXP3mVkr46Rs +seLF5RSYkdSl06eVcV9KbMnCtRR0KJIXrc4r48HqNGGHdRREnC66MHpRGa/t +XZiUZkdBaXRhzsYiZQxX7+mft54Cva2Xzgo/UEa/pf36zY4UqM7NSj/Ro4xm +aW9jvrhQ8DwiI82gXxldG8WXzLhS4DOcnto3oIwe4Yx6UXcK8jtSkleOKqPP +9Ia7Wh4UKJbExf8VYGLRgvzd1j4USLodigrRYCJl1/HkewAFd5rCjxK6TAw9 +EjXyLpACR9uwI00GTNS6VrWxfC8FGQYHD+sBE/Md/jsfuZ+CRUJ7wwY3MPGq +iLj3h2AKqOiA0NzNTCxIkBApOUiB7cSekHU7mGj/3upbVAgF8R/9gnleTOyz +nG8iGUbBnPse+3xCmWg89dFI4RAFV7R27l1ymImGTjrh7bRX5rsFVkcx8dbY +9qGMwxQcTXP2ZyQyUf8t6/B0JAVT3pv9unOYOIXPmWQUBT/EbN03VzLxxaSQ +XGwsBa3+jDe7nzFR2FirTeEEBRVPp+BoHRPPyyg4ldJOjyAVuM1MfCk6ltoZ +R4HOR6H3kwNMPFlqKDsrkQJps0/2wsNMDBk+9TmK9qzTDx8xxpiYoNAd/pf2 +a5vAC2tnmLjqYcX3oSQKAotfu+SKE+hVI6pJpVCweSH3VbE0gQZpE3riqRSY +e0dxnsoRWHGMnz+U9qKlunJDbAJdhYzmGKRRMBo0P4Vfk0Aq7bZhGu3Oup7f +UnoEnl42x7CfNhWV0YlmBIJObW5iOl2f7bvXOVkQyD8vd14r7cP6qx7ssiaw +IXoMGScpWPt55HzGegJjx0eZ12jrraxbeNWJQIfMqTffacvk5B8q307gjqWW +DuoZFAw4OO3o8yJwpYhPTQ7txiLN2l+7CPwdePnRG9pl/AKmi/YSKJHRnzw7 +k4I8l26eUjCBvlafdbRpJ5TelTEMJ/Bc5zZyG+19ommJtkcI7NAb+h1Fe+se +3ynXYwQe5zmzCmhjDew+EE/gU40tKk9pqyhIt8el0OupZvH30RYJH7bJySDQ +4/SLe39p/2p8fv/mGQKvDl1bI5lFwQeNy6o1OQTeMfx1S4328xPh59ouE+jy +023alPbNDxvmDxYSuEsrV8GW9lkTtXA+ikCrQ35KTrSjsvi+SBYTeO97xGwX +2r6D7VvV7xIYL59asZO2/Zpbz6GcQGM1ZzdP2oZ5SSscKwgsuHmx+999+d+e +XL8aAsubxOHf8wKbzaQjXxKoaRYc/W/9wRsS8SdfEyi2OLLw3/ub53+fKGgi +MG9i4LoZ7UeeNb5lbQS2KR06r0678GFuS303gWqmX/2laKdKhazu7SVwedCk +8izaIfvtSyc+E7gtxOvJJ3o/XGtZbKFBApNCv1o9p21FzJxWHCGwi7AvuUpb +42iLgMEvAlcXr5t3nLZE240Qmz8E4ourVi60+5LdNwfNY+Gx1rBoAdqBAxoM +HSEWOhYU17bR5z2xevL7dxEWLl5Q6sujvYA/I3aXDAsVT+edWUU7y911A1uB +hX9UnmkI0ZZ7pCb3SZmFAWoGko10femEV91212ThhEfgZyfaZc1pUfJ6LOyb +imgUp71K33ldpyELT1ZuEn9N1+/modHeLcjCI+TweQ7tSG+WuMMmFhJvz7dP +0f0iUPWzW2grC59Y1yZfoZ2u+Jj30pmFLcNd2Tap//Juy0prHxb+tIZXKXT/ +vdyQsJ8TzsIVaQK543R/Ot5w4kxHstD06U5MpN0lxJh/P4aF9nr1lstoDz8r +u6SfzMIs97ADBnR/S5p/e61+kYUj5MEI23gKLp2/d/7LFRYq8cpXvKDzQnXy +uO9VLgv5nbe4WNE2uy03wyhhodj1FZ0GdL54qjloydSwUOjvpqqJY3Q9SpYk +C35l4b2pk69mjlBgEnxk69MhFroZ3rRwol3VYMs8PsrCRRWDLC6db83JveUz +f1joIp602prOv998S76Oi7Bx+e64Uc9wCmyGQm0+GbLx92DTWeIABbK68icE +zdjY/xpuYBBdf0HVleoWbJS//7FhK53XWeMiZkFr2dib6QdRdJ53/ynSmnFj +I1f0dhO5h4IgoU7xpQlsJDWv3QrxpMDSPma9WSob14ysmfKg54dUukqKWyYb +/9Rd27FuJwUPxA8KFOaycWdObJCkG30+y4Qn9UrYeP2C34L47fR8VcXudR1s +jExm3e6h55n/nn6ZfR/YmCWpKHXJgQK4lrwl8xMbP7zvvLLDnq5HnbY3bUNs +bE/yN39Jz0utFUFVPnNU8MP29IxYa3p/rPO5UZoq+GwoIeWgKQXfPAUP3D6q +ghtNn522UKa/94Llw8fHVTDt+8+060oUDLVFzatNUMHJ8QVfpRUp+Okweb4n +UwW71lW//ETP8wnTgWphrgoObK21dZekgE+iTnLXGxU0usVTahOkYGl1Wpmc +kip+aE7v/vCVBJmZ2jmqLFX05lMcnP5CgqyJoIO+uiqWrN9wROIzCfI3o3pt +DVTRZM9xpnkfCcyc/UJhNqpoEJZ35UAnCTrBm1wb96uiF8/exq+OpP8XpPji +KlXxcG828yiPhC8eq7mmz1TxZN2WhUFcEpIvh9oP16oic96qHo9CEt7Kt2Zv +e6eKg3bfXMzzSHBfem65xmdVtJ5OLO48R0K48DLvhkVqmMZKjyiNJ4H6Jf98 +2TY1HMjW3vnViwSxV6zUm0Nq2PM7LvCQFAl/h3QKXo6q4TrDvfX3JUgYEDN9 +0DephjUHhmbGREmo3OowID1HHTs3LO30FSLhQF+odbS0OvKN3TijO5uEpunn +fzdYqKNrwWZR1wEenFHbs3ckQx3HZ5c+YZTzQDb+xnpDQw18ULBM/txmHpxV +NxYR99VEb91h484TRfBSxsJg5KQW3uIktvTnc8FEtjJdu1kbxWyOSLZlXwVh +/rzgnTE66PlqfKoooxDkoxXMtrF08bpy5KCEbwHMJ5zvbnymiwfAaPqoUT5o +cZbeCHXRQ8iurNWXugJB3WJVtrOW49fzi502dl6GoZFkJ5uzy/G/aksFudJL +sFr7abaNpj5GKb4xSTS4CI9GTKcn6vUxX2LLDNGaA4Eaeu0N3gbortvcpV2S +DZxBr6Zt8w1xYdI75V/7z4IVU9puUZ4hDlVPpyYEnAaVqMSwSiMjjPb57F+U +kAVq3saPiXYj7LsuUFt5JgO8H/kdv71/BWo0bXa/0JMOjy81ef1YYoz+mleO +2dqkwih3ZkK71BifKN+xr5BNAk+CnJ9tZ4JNLn2CAS7x8EMt07Bk2ATV6mem +eLmxcC9/umcs3hSNBeY7UiuPwXZLZTSVN8NFFnZJp5jRsCwg7r5WhRmeSKgR +3ClzBJYs8C+228LBXrG2dYknIyB/VWTE8DYObqGadybERIBeZOqqTGcOpsRW +qKUdiAD74ZvvWndysHS2c8N1pwg40Tw26enPwZqwG2guEwG/8o6ujIjmoN5q +R/mc/HBoN818W0hyMElX4ODqR2HgdzA/x+Y6B3/cXp+79GYYjF+/4/3tJgeD +mjvx5+UwEGO0Tuje5WDsnOSfd2PDYK2gnOzDCg7i2I9XKXZh8KCp0OvtOw5K +yms27O0OBVvhe5ohrRzcd+fYO+6bUGhd/WJcuoODC4VhxefKUBgt+xrv+oGD +yYw80YiroaB5WefalwEO2j4y6/myLxQetFuEJH+nvam7wMmTXk9iE2gPc/Bq +1rayZ06h4BN3sCF4jIN8zhm1j0zo9SpOZEv94mBka1H1Ks1QiJk641k2xcGe +IXuB1wqhIKJfpOHyh4NHJq6luouFwoWAsrGZGQ7G8Y/s+DUnFP4H8sCO8Q== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.055819611921908714`}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.055819611921908714`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9, 3.9939116655857286`*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"da5b217a-ccfb-4e34-8495-636a03776350"] +}, Open ]], + +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ -9e93d345c648"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.007417"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.021549"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.034628"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.045917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.054602"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.061093"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.06517"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.066873"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.066776"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.065063"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.062072"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058207"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.053722"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.048873"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.043893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.038938"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.034149"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.029622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.025427"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021604"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018178"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.015148"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.012507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.010233"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.008299"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.006672"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.00532"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.004206"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.003299"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.002567"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.001983"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993910309762579*^9}, + CellLabel-> + "In[394]:=",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.066873}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993911665764442*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"2ffc8e42-75af-4f94-8c10-bfc4a0772457"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ -ec28b28907cc"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[395]:=",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8VX8YB/CipJKskMzrnnvtlZFxPY9CUWjQtLIrVJJVCiV7hJZoCF33 +nAYNRUNGixTJpkR+pUJZofI7/XVe79d5ne95ne/3eT7P6yh57N3ozTdr1qx5 +s2fN+ncd735RzUzKN7cwO+meYmVo3nRBOtyiNQY61HwNJQIlAJe89pBuzYCZ +zkKT/gAmhKzntfC35oFHZ7reywB9EB2UyphsKQGbeQ1zuQGW8P6B/d7Rlkro +VX1sZx3gCNbMga4fLY0gHDY61bjHCyZbjE4Nt3yEs2RRkIhPMFStuprfkDcC +8prkoCA7FmTf3+/30PgDH7qi1gdpp4GEvxtv3ip+jFN4TOm6Z0GGrnW5vZMg +ckx6XdtdzkHbWZ2KHyKLMPe85ly7ulxIyj/6mm+pKBo2eLD/Y18GqazehMxc +cQwsz7bo0b8CcY425o3jS/DpqZtzZcfy4YDxZbcXMdLYb1P+KoFXCJZDUxGB +vTLonGAh+UKMC+FrstSefJPBMjdz7qAUF65f1mwXH5dB0fdVm0TluCDt6G58 +X3AZdifKj9uxufDtXs0Ev9YyvFGl5pZvyoXMmPTgc2HLkLhgGVnjyYWPS1iB +1YtksdnrZ2dzMReizTbslFkhhwrcs0VsqyJY43rhp9FKOezax938w6YIhKO+ +HnNaJ4fHm/NOlNoXQU5VbGG6uxxe+xMQaLy1CO7Zln0VSJBD1WL2FvE9RTC8 +VTlkpE0OW8NFXBXSi8D14Fhi3SF5/NPt/vN0SxGYXD93+8hjBczpJu1+7+CB +ZUv9n8HnCnjWwjAuz40H9rPmrHZrVMCCh003rDx54LkxsA0+KeCfJL36mN08 +sD6kdDRqriKmfmkwbw3jwT6F8SsW6ooosCjp21AWD6p9L36vClFE/puFRxtf +8sDmt7HY4UOK+Ebf+ZxkPQ/q05sM9aMU8V2JV96WBh603Z8flZ+giLG/c2Le +tPBgcGGwWGyOIq7xWByZ28cD6ZtrjKwrFVFJ869P/h8e+P/6EfV8kRJe0nyb +5aNJgsl+H8l+MSW0UnqbfkKHBMGBdpJfWgmvhDaN5S0noaCjqtmcoYQXbgVN +vzEmofvRKY07hkoYqes/OduaBIdY49bLbkpYobjuU6kLCXpi0dqHipUwo2l/ +XXAiCbOSxqrP3lXC19wdyEghoZ5/9/a75Uroqn9QuS6NhD1jG2N/1Cgh/xXt +FUtOkZDfyuzwbVfCz/W38w5fJEHy4vMTjvwMfB0w9+6lWyRMqot0azoxsHtp +RB20kTCeKxO9fDsDne6kwP4OEkYXE0xjNwYO3bq79mIXCYMjxrstdzGw7G+S +zo8eEj6We45vj2TghlFzA/8BEl6uLRWOL2Cg39za4MdTJDx7+KQ4hcfAkLr9 +l8p+k1CtXeeYeYOBn9hxu0v+kvBIvCf7wn0GjnTt7jjDR0FJxwL2nVcM/HLY +yMRkAQXZe1zh4xgDf34Uhi5pCs50+X38b4qBjWLVkXkyFGQ5HIj9PsPAFx// +c/eSpSB1eXztr/nKyNclKtmtQEHMdPGWxfLKuEJNZ3URi4I9SXP3mVkr46Rs +seLF5RSYkdSl06eVcV9KbMnCtRR0KJIXrc4r48HqNGGHdRREnC66MHpRGa/t +XZiUZkdBaXRhzsYiZQxX7+mft54Cva2Xzgo/UEa/pf36zY4UqM7NSj/Ro4xm +aW9jvrhQ8DwiI82gXxldG8WXzLhS4DOcnto3oIwe4Yx6UXcK8jtSkleOKqPP +9Ia7Wh4UKJbExf8VYGLRgvzd1j4USLodigrRYCJl1/HkewAFd5rCjxK6TAw9 +EjXyLpACR9uwI00GTNS6VrWxfC8FGQYHD+sBE/Md/jsfuZ+CRUJ7wwY3MPGq +iLj3h2AKqOiA0NzNTCxIkBApOUiB7cSekHU7mGj/3upbVAgF8R/9gnleTOyz +nG8iGUbBnPse+3xCmWg89dFI4RAFV7R27l1ymImGTjrh7bRX5rsFVkcx8dbY +9qGMwxQcTXP2ZyQyUf8t6/B0JAVT3pv9unOYOIXPmWQUBT/EbN03VzLxxaSQ +XGwsBa3+jDe7nzFR2FirTeEEBRVPp+BoHRPPyyg4ldJOjyAVuM1MfCk6ltoZ +R4HOR6H3kwNMPFlqKDsrkQJps0/2wsNMDBk+9TmK9qzTDx8xxpiYoNAd/pf2 +a5vAC2tnmLjqYcX3oSQKAotfu+SKE+hVI6pJpVCweSH3VbE0gQZpE3riqRSY +e0dxnsoRWHGMnz+U9qKlunJDbAJdhYzmGKRRMBo0P4Vfk0Aq7bZhGu3Oup7f +UnoEnl42x7CfNhWV0YlmBIJObW5iOl2f7bvXOVkQyD8vd14r7cP6qx7ssiaw +IXoMGScpWPt55HzGegJjx0eZ12jrraxbeNWJQIfMqTffacvk5B8q307gjqWW +DuoZFAw4OO3o8yJwpYhPTQ7txiLN2l+7CPwdePnRG9pl/AKmi/YSKJHRnzw7 +k4I8l26eUjCBvlafdbRpJ5TelTEMJ/Bc5zZyG+19ommJtkcI7NAb+h1Fe+se +3ynXYwQe5zmzCmhjDew+EE/gU40tKk9pqyhIt8el0OupZvH30RYJH7bJySDQ +4/SLe39p/2p8fv/mGQKvDl1bI5lFwQeNy6o1OQTeMfx1S4328xPh59ouE+jy +023alPbNDxvmDxYSuEsrV8GW9lkTtXA+ikCrQ35KTrSjsvi+SBYTeO97xGwX +2r6D7VvV7xIYL59asZO2/Zpbz6GcQGM1ZzdP2oZ5SSscKwgsuHmx+999+d+e +XL8aAsubxOHf8wKbzaQjXxKoaRYc/W/9wRsS8SdfEyi2OLLw3/ub53+fKGgi +MG9i4LoZ7UeeNb5lbQS2KR06r0678GFuS303gWqmX/2laKdKhazu7SVwedCk +8izaIfvtSyc+E7gtxOvJJ3o/XGtZbKFBApNCv1o9p21FzJxWHCGwi7AvuUpb +42iLgMEvAlcXr5t3nLZE240Qmz8E4ourVi60+5LdNwfNY+Gx1rBoAdqBAxoM +HSEWOhYU17bR5z2xevL7dxEWLl5Q6sujvYA/I3aXDAsVT+edWUU7y911A1uB +hX9UnmkI0ZZ7pCb3SZmFAWoGko10femEV91212ThhEfgZyfaZc1pUfJ6LOyb +imgUp71K33ldpyELT1ZuEn9N1+/modHeLcjCI+TweQ7tSG+WuMMmFhJvz7dP +0f0iUPWzW2grC59Y1yZfoZ2u+Jj30pmFLcNd2Tap//Juy0prHxb+tIZXKXT/ +vdyQsJ8TzsIVaQK543R/Ot5w4kxHstD06U5MpN0lxJh/P4aF9nr1lstoDz8r +u6SfzMIs97ADBnR/S5p/e61+kYUj5MEI23gKLp2/d/7LFRYq8cpXvKDzQnXy +uO9VLgv5nbe4WNE2uy03wyhhodj1FZ0GdL54qjloydSwUOjvpqqJY3Q9SpYk +C35l4b2pk69mjlBgEnxk69MhFroZ3rRwol3VYMs8PsrCRRWDLC6db83JveUz +f1joIp602prOv998S76Oi7Bx+e64Uc9wCmyGQm0+GbLx92DTWeIABbK68icE +zdjY/xpuYBBdf0HVleoWbJS//7FhK53XWeMiZkFr2dib6QdRdJ53/ynSmnFj +I1f0dhO5h4IgoU7xpQlsJDWv3QrxpMDSPma9WSob14ysmfKg54dUukqKWyYb +/9Rd27FuJwUPxA8KFOaycWdObJCkG30+y4Qn9UrYeP2C34L47fR8VcXudR1s +jExm3e6h55n/nn6ZfR/YmCWpKHXJgQK4lrwl8xMbP7zvvLLDnq5HnbY3bUNs +bE/yN39Jz0utFUFVPnNU8MP29IxYa3p/rPO5UZoq+GwoIeWgKQXfPAUP3D6q +ghtNn522UKa/94Llw8fHVTDt+8+060oUDLVFzatNUMHJ8QVfpRUp+Okweb4n +UwW71lW//ETP8wnTgWphrgoObK21dZekgE+iTnLXGxU0usVTahOkYGl1Wpmc +kip+aE7v/vCVBJmZ2jmqLFX05lMcnP5CgqyJoIO+uiqWrN9wROIzCfI3o3pt +DVTRZM9xpnkfCcyc/UJhNqpoEJZ35UAnCTrBm1wb96uiF8/exq+OpP8XpPji +KlXxcG828yiPhC8eq7mmz1TxZN2WhUFcEpIvh9oP16oic96qHo9CEt7Kt2Zv +e6eKg3bfXMzzSHBfem65xmdVtJ5OLO48R0K48DLvhkVqmMZKjyiNJ4H6Jf98 +2TY1HMjW3vnViwSxV6zUm0Nq2PM7LvCQFAl/h3QKXo6q4TrDvfX3JUgYEDN9 +0DephjUHhmbGREmo3OowID1HHTs3LO30FSLhQF+odbS0OvKN3TijO5uEpunn +fzdYqKNrwWZR1wEenFHbs3ckQx3HZ5c+YZTzQDb+xnpDQw18ULBM/txmHpxV +NxYR99VEb91h484TRfBSxsJg5KQW3uIktvTnc8FEtjJdu1kbxWyOSLZlXwVh +/rzgnTE66PlqfKoooxDkoxXMtrF08bpy5KCEbwHMJ5zvbnymiwfAaPqoUT5o +cZbeCHXRQ8iurNWXugJB3WJVtrOW49fzi502dl6GoZFkJ5uzy/G/aksFudJL +sFr7abaNpj5GKb4xSTS4CI9GTKcn6vUxX2LLDNGaA4Eaeu0N3gbortvcpV2S +DZxBr6Zt8w1xYdI75V/7z4IVU9puUZ4hDlVPpyYEnAaVqMSwSiMjjPb57F+U +kAVq3saPiXYj7LsuUFt5JgO8H/kdv71/BWo0bXa/0JMOjy81ef1YYoz+mleO +2dqkwih3ZkK71BifKN+xr5BNAk+CnJ9tZ4JNLn2CAS7x8EMt07Bk2ATV6mem +eLmxcC9/umcs3hSNBeY7UiuPwXZLZTSVN8NFFnZJp5jRsCwg7r5WhRmeSKgR +3ClzBJYs8C+228LBXrG2dYknIyB/VWTE8DYObqGadybERIBeZOqqTGcOpsRW +qKUdiAD74ZvvWndysHS2c8N1pwg40Tw26enPwZqwG2guEwG/8o6ujIjmoN5q +R/mc/HBoN818W0hyMElX4ODqR2HgdzA/x+Y6B3/cXp+79GYYjF+/4/3tJgeD +mjvx5+UwEGO0Tuje5WDsnOSfd2PDYK2gnOzDCg7i2I9XKXZh8KCp0OvtOw5K +yms27O0OBVvhe5ohrRzcd+fYO+6bUGhd/WJcuoODC4VhxefKUBgt+xrv+oGD +yYw80YiroaB5WefalwEO2j4y6/myLxQetFuEJH+nvam7wMmTXk9iE2gPc/Bq +1rayZ06h4BN3sCF4jIN8zhm1j0zo9SpOZEv94mBka1H1Ks1QiJk641k2xcGe +IXuB1wqhIKJfpOHyh4NHJq6luouFwoWAsrGZGQ7G8Y/s+DUnFP4H8sCO8Q== + + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8VX8YB/CipJKskMzrnnvtlZFxPY9CUWjQtLIrVJJVCiV7hJZoCF33 +nAYNRUNGixTJpkR+pUJZofI7/XVe79d5ne95ne/3eT7P6yh57N3ozTdr1qx5 +s2fN+ncd735RzUzKN7cwO+meYmVo3nRBOtyiNQY61HwNJQIlAJe89pBuzYCZ +zkKT/gAmhKzntfC35oFHZ7reywB9EB2UyphsKQGbeQ1zuQGW8P6B/d7Rlkro +VX1sZx3gCNbMga4fLY0gHDY61bjHCyZbjE4Nt3yEs2RRkIhPMFStuprfkDcC +8prkoCA7FmTf3+/30PgDH7qi1gdpp4GEvxtv3ip+jFN4TOm6Z0GGrnW5vZMg +ckx6XdtdzkHbWZ2KHyKLMPe85ly7ulxIyj/6mm+pKBo2eLD/Y18GqazehMxc +cQwsz7bo0b8CcY425o3jS/DpqZtzZcfy4YDxZbcXMdLYb1P+KoFXCJZDUxGB +vTLonGAh+UKMC+FrstSefJPBMjdz7qAUF65f1mwXH5dB0fdVm0TluCDt6G58 +X3AZdifKj9uxufDtXs0Ev9YyvFGl5pZvyoXMmPTgc2HLkLhgGVnjyYWPS1iB +1YtksdnrZ2dzMReizTbslFkhhwrcs0VsqyJY43rhp9FKOezax938w6YIhKO+ +HnNaJ4fHm/NOlNoXQU5VbGG6uxxe+xMQaLy1CO7Zln0VSJBD1WL2FvE9RTC8 +VTlkpE0OW8NFXBXSi8D14Fhi3SF5/NPt/vN0SxGYXD93+8hjBczpJu1+7+CB +ZUv9n8HnCnjWwjAuz40H9rPmrHZrVMCCh003rDx54LkxsA0+KeCfJL36mN08 +sD6kdDRqriKmfmkwbw3jwT6F8SsW6ooosCjp21AWD6p9L36vClFE/puFRxtf +8sDmt7HY4UOK+Ebf+ZxkPQ/q05sM9aMU8V2JV96WBh603Z8flZ+giLG/c2Le +tPBgcGGwWGyOIq7xWByZ28cD6ZtrjKwrFVFJ869P/h8e+P/6EfV8kRJe0nyb +5aNJgsl+H8l+MSW0UnqbfkKHBMGBdpJfWgmvhDaN5S0noaCjqtmcoYQXbgVN +vzEmofvRKY07hkoYqes/OduaBIdY49bLbkpYobjuU6kLCXpi0dqHipUwo2l/ +XXAiCbOSxqrP3lXC19wdyEghoZ5/9/a75Uroqn9QuS6NhD1jG2N/1Cgh/xXt +FUtOkZDfyuzwbVfCz/W38w5fJEHy4vMTjvwMfB0w9+6lWyRMqot0azoxsHtp +RB20kTCeKxO9fDsDne6kwP4OEkYXE0xjNwYO3bq79mIXCYMjxrstdzGw7G+S +zo8eEj6We45vj2TghlFzA/8BEl6uLRWOL2Cg39za4MdTJDx7+KQ4hcfAkLr9 +l8p+k1CtXeeYeYOBn9hxu0v+kvBIvCf7wn0GjnTt7jjDR0FJxwL2nVcM/HLY +yMRkAQXZe1zh4xgDf34Uhi5pCs50+X38b4qBjWLVkXkyFGQ5HIj9PsPAFx// +c/eSpSB1eXztr/nKyNclKtmtQEHMdPGWxfLKuEJNZ3URi4I9SXP3mVkr46Rs +seLF5RSYkdSl06eVcV9KbMnCtRR0KJIXrc4r48HqNGGHdRREnC66MHpRGa/t +XZiUZkdBaXRhzsYiZQxX7+mft54Cva2Xzgo/UEa/pf36zY4UqM7NSj/Ro4xm +aW9jvrhQ8DwiI82gXxldG8WXzLhS4DOcnto3oIwe4Yx6UXcK8jtSkleOKqPP +9Ia7Wh4UKJbExf8VYGLRgvzd1j4USLodigrRYCJl1/HkewAFd5rCjxK6TAw9 +EjXyLpACR9uwI00GTNS6VrWxfC8FGQYHD+sBE/Md/jsfuZ+CRUJ7wwY3MPGq +iLj3h2AKqOiA0NzNTCxIkBApOUiB7cSekHU7mGj/3upbVAgF8R/9gnleTOyz +nG8iGUbBnPse+3xCmWg89dFI4RAFV7R27l1ymImGTjrh7bRX5rsFVkcx8dbY +9qGMwxQcTXP2ZyQyUf8t6/B0JAVT3pv9unOYOIXPmWQUBT/EbN03VzLxxaSQ +XGwsBa3+jDe7nzFR2FirTeEEBRVPp+BoHRPPyyg4ldJOjyAVuM1MfCk6ltoZ +R4HOR6H3kwNMPFlqKDsrkQJps0/2wsNMDBk+9TmK9qzTDx8xxpiYoNAd/pf2 +a5vAC2tnmLjqYcX3oSQKAotfu+SKE+hVI6pJpVCweSH3VbE0gQZpE3riqRSY +e0dxnsoRWHGMnz+U9qKlunJDbAJdhYzmGKRRMBo0P4Vfk0Aq7bZhGu3Oup7f +UnoEnl42x7CfNhWV0YlmBIJObW5iOl2f7bvXOVkQyD8vd14r7cP6qx7ssiaw +IXoMGScpWPt55HzGegJjx0eZ12jrraxbeNWJQIfMqTffacvk5B8q307gjqWW +DuoZFAw4OO3o8yJwpYhPTQ7txiLN2l+7CPwdePnRG9pl/AKmi/YSKJHRnzw7 +k4I8l26eUjCBvlafdbRpJ5TelTEMJ/Bc5zZyG+19ommJtkcI7NAb+h1Fe+se +3ynXYwQe5zmzCmhjDew+EE/gU40tKk9pqyhIt8el0OupZvH30RYJH7bJySDQ +4/SLe39p/2p8fv/mGQKvDl1bI5lFwQeNy6o1OQTeMfx1S4328xPh59ouE+jy +023alPbNDxvmDxYSuEsrV8GW9lkTtXA+ikCrQ35KTrSjsvi+SBYTeO97xGwX +2r6D7VvV7xIYL59asZO2/Zpbz6GcQGM1ZzdP2oZ5SSscKwgsuHmx+999+d+e +XL8aAsubxOHf8wKbzaQjXxKoaRYc/W/9wRsS8SdfEyi2OLLw3/ub53+fKGgi +MG9i4LoZ7UeeNb5lbQS2KR06r0678GFuS303gWqmX/2laKdKhazu7SVwedCk +8izaIfvtSyc+E7gtxOvJJ3o/XGtZbKFBApNCv1o9p21FzJxWHCGwi7AvuUpb +42iLgMEvAlcXr5t3nLZE240Qmz8E4ourVi60+5LdNwfNY+Gx1rBoAdqBAxoM +HSEWOhYU17bR5z2xevL7dxEWLl5Q6sujvYA/I3aXDAsVT+edWUU7y911A1uB +hX9UnmkI0ZZ7pCb3SZmFAWoGko10femEV91212ThhEfgZyfaZc1pUfJ6LOyb +imgUp71K33ldpyELT1ZuEn9N1+/modHeLcjCI+TweQ7tSG+WuMMmFhJvz7dP +0f0iUPWzW2grC59Y1yZfoZ2u+Jj30pmFLcNd2Tap//Juy0prHxb+tIZXKXT/ +vdyQsJ8TzsIVaQK543R/Ot5w4kxHstD06U5MpN0lxJh/P4aF9nr1lstoDz8r +u6SfzMIs97ADBnR/S5p/e61+kYUj5MEI23gKLp2/d/7LFRYq8cpXvKDzQnXy +uO9VLgv5nbe4WNE2uy03wyhhodj1FZ0GdL54qjloydSwUOjvpqqJY3Q9SpYk +C35l4b2pk69mjlBgEnxk69MhFroZ3rRwol3VYMs8PsrCRRWDLC6db83JveUz +f1joIp602prOv998S76Oi7Bx+e64Uc9wCmyGQm0+GbLx92DTWeIABbK68icE +zdjY/xpuYBBdf0HVleoWbJS//7FhK53XWeMiZkFr2dib6QdRdJ53/ynSmnFj +I1f0dhO5h4IgoU7xpQlsJDWv3QrxpMDSPma9WSob14ysmfKg54dUukqKWyYb +/9Rd27FuJwUPxA8KFOaycWdObJCkG30+y4Qn9UrYeP2C34L47fR8VcXudR1s +jExm3e6h55n/nn6ZfR/YmCWpKHXJgQK4lrwl8xMbP7zvvLLDnq5HnbY3bUNs +bE/yN39Jz0utFUFVPnNU8MP29IxYa3p/rPO5UZoq+GwoIeWgKQXfPAUP3D6q +ghtNn522UKa/94Llw8fHVTDt+8+060oUDLVFzatNUMHJ8QVfpRUp+Okweb4n +UwW71lW//ETP8wnTgWphrgoObK21dZekgE+iTnLXGxU0usVTahOkYGl1Wpmc +kip+aE7v/vCVBJmZ2jmqLFX05lMcnP5CgqyJoIO+uiqWrN9wROIzCfI3o3pt +DVTRZM9xpnkfCcyc/UJhNqpoEJZ35UAnCTrBm1wb96uiF8/exq+OpP8XpPji +KlXxcG828yiPhC8eq7mmz1TxZN2WhUFcEpIvh9oP16oic96qHo9CEt7Kt2Zv +e6eKg3bfXMzzSHBfem65xmdVtJ5OLO48R0K48DLvhkVqmMZKjyiNJ4H6Jf98 +2TY1HMjW3vnViwSxV6zUm0Nq2PM7LvCQFAl/h3QKXo6q4TrDvfX3JUgYEDN9 +0DephjUHhmbGREmo3OowID1HHTs3LO30FSLhQF+odbS0OvKN3TijO5uEpunn +fzdYqKNrwWZR1wEenFHbs3ckQx3HZ5c+YZTzQDb+xnpDQw18ULBM/txmHpxV +NxYR99VEb91h484TRfBSxsJg5KQW3uIktvTnc8FEtjJdu1kbxWyOSLZlXwVh +/rzgnTE66PlqfKoooxDkoxXMtrF08bpy5KCEbwHMJ5zvbnymiwfAaPqoUT5o +cZbeCHXRQ8iurNWXugJB3WJVtrOW49fzi502dl6GoZFkJ5uzy/G/aksFudJL +sFr7abaNpj5GKb4xSTS4CI9GTKcn6vUxX2LLDNGaA4Eaeu0N3gbortvcpV2S +DZxBr6Zt8w1xYdI75V/7z4IVU9puUZ4hDlVPpyYEnAaVqMSwSiMjjPb57F+U +kAVq3saPiXYj7LsuUFt5JgO8H/kdv71/BWo0bXa/0JMOjy81ef1YYoz+mleO +2dqkwih3ZkK71BifKN+xr5BNAk+CnJ9tZ4JNLn2CAS7x8EMt07Bk2ATV6mem +eLmxcC9/umcs3hSNBeY7UiuPwXZLZTSVN8NFFnZJp5jRsCwg7r5WhRmeSKgR +3ClzBJYs8C+228LBXrG2dYknIyB/VWTE8DYObqGadybERIBeZOqqTGcOpsRW +qKUdiAD74ZvvWndysHS2c8N1pwg40Tw26enPwZqwG2guEwG/8o6ujIjmoN5q +R/mc/HBoN818W0hyMElX4ODqR2HgdzA/x+Y6B3/cXp+79GYYjF+/4/3tJgeD +mjvx5+UwEGO0Tuje5WDsnOSfd2PDYK2gnOzDCg7i2I9XKXZh8KCp0OvtOw5K +yms27O0OBVvhe5ohrRzcd+fYO+6bUGhd/WJcuoODC4VhxefKUBgt+xrv+oGD +yYw80YiroaB5WefalwEO2j4y6/myLxQetFuEJH+nvam7wMmTXk9iE2gPc/Bq +1rayZ06h4BN3sCF4jIN8zhm1j0zo9SpOZEv94mBka1H1Ks1QiJk641k2xcGe +IXuB1wqhIKJfpOHyh4NHJq6luouFwoWAsrGZGQ7G8Y/s+DUnFP4H8sCO8Q== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.055819611921908714`}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.055819611921908714`}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8VX8YB/CipJKskMzrnnvtlZFxPY9CUWjQtLIrVJJVCiV7hJZoCF33 +nAYNRUNGixTJpkR+pUJZofI7/XVe79d5ne95ne/3eT7P6yh57N3ozTdr1qx5 +s2fN+ncd735RzUzKN7cwO+meYmVo3nRBOtyiNQY61HwNJQIlAJe89pBuzYCZ +zkKT/gAmhKzntfC35oFHZ7reywB9EB2UyphsKQGbeQ1zuQGW8P6B/d7Rlkro +VX1sZx3gCNbMga4fLY0gHDY61bjHCyZbjE4Nt3yEs2RRkIhPMFStuprfkDcC +8prkoCA7FmTf3+/30PgDH7qi1gdpp4GEvxtv3ip+jFN4TOm6Z0GGrnW5vZMg +ckx6XdtdzkHbWZ2KHyKLMPe85ly7ulxIyj/6mm+pKBo2eLD/Y18GqazehMxc +cQwsz7bo0b8CcY425o3jS/DpqZtzZcfy4YDxZbcXMdLYb1P+KoFXCJZDUxGB +vTLonGAh+UKMC+FrstSefJPBMjdz7qAUF65f1mwXH5dB0fdVm0TluCDt6G58 +X3AZdifKj9uxufDtXs0Ev9YyvFGl5pZvyoXMmPTgc2HLkLhgGVnjyYWPS1iB +1YtksdnrZ2dzMReizTbslFkhhwrcs0VsqyJY43rhp9FKOezax938w6YIhKO+ +HnNaJ4fHm/NOlNoXQU5VbGG6uxxe+xMQaLy1CO7Zln0VSJBD1WL2FvE9RTC8 +VTlkpE0OW8NFXBXSi8D14Fhi3SF5/NPt/vN0SxGYXD93+8hjBczpJu1+7+CB +ZUv9n8HnCnjWwjAuz40H9rPmrHZrVMCCh003rDx54LkxsA0+KeCfJL36mN08 +sD6kdDRqriKmfmkwbw3jwT6F8SsW6ooosCjp21AWD6p9L36vClFE/puFRxtf +8sDmt7HY4UOK+Ebf+ZxkPQ/q05sM9aMU8V2JV96WBh603Z8flZ+giLG/c2Le +tPBgcGGwWGyOIq7xWByZ28cD6ZtrjKwrFVFJ869P/h8e+P/6EfV8kRJe0nyb +5aNJgsl+H8l+MSW0UnqbfkKHBMGBdpJfWgmvhDaN5S0noaCjqtmcoYQXbgVN +vzEmofvRKY07hkoYqes/OduaBIdY49bLbkpYobjuU6kLCXpi0dqHipUwo2l/ +XXAiCbOSxqrP3lXC19wdyEghoZ5/9/a75Uroqn9QuS6NhD1jG2N/1Cgh/xXt +FUtOkZDfyuzwbVfCz/W38w5fJEHy4vMTjvwMfB0w9+6lWyRMqot0azoxsHtp +RB20kTCeKxO9fDsDne6kwP4OEkYXE0xjNwYO3bq79mIXCYMjxrstdzGw7G+S +zo8eEj6We45vj2TghlFzA/8BEl6uLRWOL2Cg39za4MdTJDx7+KQ4hcfAkLr9 +l8p+k1CtXeeYeYOBn9hxu0v+kvBIvCf7wn0GjnTt7jjDR0FJxwL2nVcM/HLY +yMRkAQXZe1zh4xgDf34Uhi5pCs50+X38b4qBjWLVkXkyFGQ5HIj9PsPAFx// +c/eSpSB1eXztr/nKyNclKtmtQEHMdPGWxfLKuEJNZ3URi4I9SXP3mVkr46Rs +seLF5RSYkdSl06eVcV9KbMnCtRR0KJIXrc4r48HqNGGHdRREnC66MHpRGa/t +XZiUZkdBaXRhzsYiZQxX7+mft54Cva2Xzgo/UEa/pf36zY4UqM7NSj/Ro4xm +aW9jvrhQ8DwiI82gXxldG8WXzLhS4DOcnto3oIwe4Yx6UXcK8jtSkleOKqPP +9Ia7Wh4UKJbExf8VYGLRgvzd1j4USLodigrRYCJl1/HkewAFd5rCjxK6TAw9 +EjXyLpACR9uwI00GTNS6VrWxfC8FGQYHD+sBE/Md/jsfuZ+CRUJ7wwY3MPGq +iLj3h2AKqOiA0NzNTCxIkBApOUiB7cSekHU7mGj/3upbVAgF8R/9gnleTOyz +nG8iGUbBnPse+3xCmWg89dFI4RAFV7R27l1ymImGTjrh7bRX5rsFVkcx8dbY +9qGMwxQcTXP2ZyQyUf8t6/B0JAVT3pv9unOYOIXPmWQUBT/EbN03VzLxxaSQ +XGwsBa3+jDe7nzFR2FirTeEEBRVPp+BoHRPPyyg4ldJOjyAVuM1MfCk6ltoZ +R4HOR6H3kwNMPFlqKDsrkQJps0/2wsNMDBk+9TmK9qzTDx8xxpiYoNAd/pf2 +a5vAC2tnmLjqYcX3oSQKAotfu+SKE+hVI6pJpVCweSH3VbE0gQZpE3riqRSY +e0dxnsoRWHGMnz+U9qKlunJDbAJdhYzmGKRRMBo0P4Vfk0Aq7bZhGu3Oup7f +UnoEnl42x7CfNhWV0YlmBIJObW5iOl2f7bvXOVkQyD8vd14r7cP6qx7ssiaw +IXoMGScpWPt55HzGegJjx0eZ12jrraxbeNWJQIfMqTffacvk5B8q307gjqWW +DuoZFAw4OO3o8yJwpYhPTQ7txiLN2l+7CPwdePnRG9pl/AKmi/YSKJHRnzw7 +k4I8l26eUjCBvlafdbRpJ5TelTEMJ/Bc5zZyG+19ommJtkcI7NAb+h1Fe+se +3ynXYwQe5zmzCmhjDew+EE/gU40tKk9pqyhIt8el0OupZvH30RYJH7bJySDQ +4/SLe39p/2p8fv/mGQKvDl1bI5lFwQeNy6o1OQTeMfx1S4328xPh59ouE+jy +023alPbNDxvmDxYSuEsrV8GW9lkTtXA+ikCrQ35KTrSjsvi+SBYTeO97xGwX +2r6D7VvV7xIYL59asZO2/Zpbz6GcQGM1ZzdP2oZ5SSscKwgsuHmx+999+d+e +XL8aAsubxOHf8wKbzaQjXxKoaRYc/W/9wRsS8SdfEyi2OLLw3/ub53+fKGgi +MG9i4LoZ7UeeNb5lbQS2KR06r0678GFuS303gWqmX/2laKdKhazu7SVwedCk +8izaIfvtSyc+E7gtxOvJJ3o/XGtZbKFBApNCv1o9p21FzJxWHCGwi7AvuUpb +42iLgMEvAlcXr5t3nLZE240Qmz8E4ourVi60+5LdNwfNY+Gx1rBoAdqBAxoM +HSEWOhYU17bR5z2xevL7dxEWLl5Q6sujvYA/I3aXDAsVT+edWUU7y911A1uB +hX9UnmkI0ZZ7pCb3SZmFAWoGko10femEV91212ThhEfgZyfaZc1pUfJ6LOyb +imgUp71K33ldpyELT1ZuEn9N1+/modHeLcjCI+TweQ7tSG+WuMMmFhJvz7dP +0f0iUPWzW2grC59Y1yZfoZ2u+Jj30pmFLcNd2Tap//Juy0prHxb+tIZXKXT/ +vdyQsJ8TzsIVaQK543R/Ot5w4kxHstD06U5MpN0lxJh/P4aF9nr1lstoDz8r +u6SfzMIs97ADBnR/S5p/e61+kYUj5MEI23gKLp2/d/7LFRYq8cpXvKDzQnXy +uO9VLgv5nbe4WNE2uy03wyhhodj1FZ0GdL54qjloydSwUOjvpqqJY3Q9SpYk +C35l4b2pk69mjlBgEnxk69MhFroZ3rRwol3VYMs8PsrCRRWDLC6db83JveUz +f1joIp602prOv998S76Oi7Bx+e64Uc9wCmyGQm0+GbLx92DTWeIABbK68icE +zdjY/xpuYBBdf0HVleoWbJS//7FhK53XWeMiZkFr2dib6QdRdJ53/ynSmnFj +I1f0dhO5h4IgoU7xpQlsJDWv3QrxpMDSPma9WSob14ysmfKg54dUukqKWyYb +/9Rd27FuJwUPxA8KFOaycWdObJCkG30+y4Qn9UrYeP2C34L47fR8VcXudR1s +jExm3e6h55n/nn6ZfR/YmCWpKHXJgQK4lrwl8xMbP7zvvLLDnq5HnbY3bUNs +bE/yN39Jz0utFUFVPnNU8MP29IxYa3p/rPO5UZoq+GwoIeWgKQXfPAUP3D6q +ghtNn522UKa/94Llw8fHVTDt+8+060oUDLVFzatNUMHJ8QVfpRUp+Okweb4n +UwW71lW//ETP8wnTgWphrgoObK21dZekgE+iTnLXGxU0usVTahOkYGl1Wpmc +kip+aE7v/vCVBJmZ2jmqLFX05lMcnP5CgqyJoIO+uiqWrN9wROIzCfI3o3pt +DVTRZM9xpnkfCcyc/UJhNqpoEJZ35UAnCTrBm1wb96uiF8/exq+OpP8XpPji +KlXxcG828yiPhC8eq7mmz1TxZN2WhUFcEpIvh9oP16oic96qHo9CEt7Kt2Zv +e6eKg3bfXMzzSHBfem65xmdVtJ5OLO48R0K48DLvhkVqmMZKjyiNJ4H6Jf98 +2TY1HMjW3vnViwSxV6zUm0Nq2PM7LvCQFAl/h3QKXo6q4TrDvfX3JUgYEDN9 +0DephjUHhmbGREmo3OowID1HHTs3LO30FSLhQF+odbS0OvKN3TijO5uEpunn +fzdYqKNrwWZR1wEenFHbs3ckQx3HZ5c+YZTzQDb+xnpDQw18ULBM/txmHpxV +NxYR99VEb91h484TRfBSxsJg5KQW3uIktvTnc8FEtjJdu1kbxWyOSLZlXwVh +/rzgnTE66PlqfKoooxDkoxXMtrF08bpy5KCEbwHMJ5zvbnymiwfAaPqoUT5o +cZbeCHXRQ8iurNWXugJB3WJVtrOW49fzi502dl6GoZFkJ5uzy/G/aksFudJL +sFr7abaNpj5GKb4xSTS4CI9GTKcn6vUxX2LLDNGaA4Eaeu0N3gbortvcpV2S +DZxBr6Zt8w1xYdI75V/7z4IVU9puUZ4hDlVPpyYEnAaVqMSwSiMjjPb57F+U +kAVq3saPiXYj7LsuUFt5JgO8H/kdv71/BWo0bXa/0JMOjy81ef1YYoz+mleO +2dqkwih3ZkK71BifKN+xr5BNAk+CnJ9tZ4JNLn2CAS7x8EMt07Bk2ATV6mem +eLmxcC9/umcs3hSNBeY7UiuPwXZLZTSVN8NFFnZJp5jRsCwg7r5WhRmeSKgR +3ClzBJYs8C+228LBXrG2dYknIyB/VWTE8DYObqGadybERIBeZOqqTGcOpsRW +qKUdiAD74ZvvWndysHS2c8N1pwg40Tw26enPwZqwG2guEwG/8o6ujIjmoN5q +R/mc/HBoN818W0hyMElX4ODqR2HgdzA/x+Y6B3/cXp+79GYYjF+/4/3tJgeD +mjvx5+UwEGO0Tuje5WDsnOSfd2PDYK2gnOzDCg7i2I9XKXZh8KCp0OvtOw5K +yms27O0OBVvhe5ohrRzcd+fYO+6bUGhd/WJcuoODC4VhxefKUBgt+xrv+oGD +yYw80YiroaB5WefalwEO2j4y6/myLxQetFuEJH+nvam7wMmTXk9iE2gPc/Bq +1rayZ06h4BN3sCF4jIN8zhm1j0zo9SpOZEv94mBka1H1Ks1QiJk641k2xcGe +IXuB1wqhIKJfpOHyh4NHJq6luouFwoWAsrGZGQ7G8Y/s+DUnFP4H8sCO8Q== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.055819611921908714`}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.055819611921908714`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99391166579453*^9}, + CellLabel-> + "Out[395]=",ExpressionUUID->"bff43359-539a-4d3e-8ae6-1c6cf8d45644"] +}, Open ]], Cell[CellGroupData[{ @@ -7607,12 +8605,14 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + CellChangeTimes->{3.99179966106703*^9}, + CellLabel-> + "In[396]:=",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[BoxData["11.27534350842078`"], "Output", - CellChangeTimes->{3.9913229040054893`*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[BoxData["13.355339213677793`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.993911665830122*^9}, + CellLabel-> + "Out[396]=",ExpressionUUID->"ae80cbb2-3d41-4950-803e-6fceadb0b0cb"] }, Open ]], Cell[CellGroupData[{ @@ -7668,158 +8668,162 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991799666995865*^9},ExpressionUUID->"7116d4f3-8ab8-b741-8264-\ -0a5eeac170a0"], + CellChangeTimes->{3.991799666995865*^9}, + CellLabel-> + "In[397]:=",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.5898005302150334`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 397, 25, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993911665908915*^9}, + CellLabel-> + "During evaluation of \ +In[397]:=",ExpressionUUID->"523bf3d7-4fef-4c86-be01-6f7f30712630"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1743484206908533`*^-269\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 17, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042538757`*^9}, + 2, 397, 26, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.9939116659172277`*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +In[397]:=",ExpressionUUID->"30a7366b-222b-4b26-a808-7ee63d33994a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 18, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042728806`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.325098196132481`*^-280\\\", \ +RowBox[{\\\"11856747790825406662563134\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"5\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"19254518349824000000000000\\\"}]]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 397, 27, + 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.99391166592393*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ -\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 89, 19, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042938766`*^9}, - CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +In[397]:=",ExpressionUUID->"7588215e-3eae-4afb-8dc8-129b29b669c7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 89, 20, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229043127804`*^9}, +during this calculation.\"", 2, 397, 28, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993911665933119*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +In[397]:=",ExpressionUUID->"9af0bc8d-ae70-48f8-a9b2-7db03a938698"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nlUTX0XB3BP0UCSZqXp3ntuczI0d+0tlJIyVEgqaa4nolFo0KySkpQ0 +0HzPRUmjIYrKk5BmZCgkGmiO9J73j7PO+qyzzlq/aX/3T8Hp2F4XriVLlnD9 +Qz3Ue7q/pZFxPn/zeCTZdFhJZ3NHtmTwlp4IKN/dK0/fLAYo9sJJsicFjpol +bZlgERCwu7Sbu+c6fLH/530nSwtWj0qkzHWXg7j1Vqcy1nZ4f8/i2GT3Y8i/ +aTpjwrIGY8bwu5/d7dDk6JRXaeACc906aePdn8A0WzX5tJY/NGwtyn91fQK8 +mVMNyxaiYO37mi9OagvQINDdsn5TMoh6O5TybuVGVopbr5tKGqSsN66zsObD +W1VOYWzrTOi9oln/U2glahl/qGYMZ8P5/NAXXGtWY+b74V1pzXkgcWkgLvWa +CJ5KFfvdNnADYqxMN7dPi2Go8LST8c0COKmX59ASIYlVaY9X7/Mqgm1j86d8 +BqTwr+pFG9vuYgjecUnl0Q8pzJj/axn7thhu5qn3iUxLoXh1wPo7H4tB0spR +r4ZPGhmwlb34vRh+VD+Z4daQxvwXN31PLimB1Ihkv4wgaXRl9PA8VSqBT2JM +n8aVa3GfI5+dWGAJhBvuOSKlK4Oer4uFLZeXwg777F86RjJ43MchUXRVKQiG +fT9nbS6DerGze7pESiGrIaow2VEGTUp4qy1kSqHarPY7T5wMPrLGX8KapTB+ +gB4w0SuDs7rKM0NWpWDvPxXfGiKLZz+Tms+ulgKRbrR2OEoW4d54mmRuKTXe +CxzeZFk0SHLHo/mlcOqP8kujfFlkzaY7j5ClkHbOXqymVRZfp+Z+7bhfCq0X +m3IKZOQwxzykeby/FPRvZlScfSiHjpsFbxySZcO27raF0WY5/M7LGB5XYIPF +kqUmDu1y+OxI13gEwYaje3164bMctpfJsK6pscE4RCE0bJk8RjRUvCrVZ8Nx +uekbW1Tl8fVy/p/KNmxodMsZaQiQx4qriQer49lg+kdP+HSIPN7V9Cj8nMiG +tuQO7U1h8jicf7pi1UU29Nbwh+XHyWN7TLGobTobRlf4CUdlyWPAmcavTTfY +IHl7h47xY3nMGr88znuPDd6zP8OaVyogc72Rh9QwG/R9XcW/CCtglWBFtPQI +G/iG+9jckgqozt3eIznOhoI3DV2baQrY5zQizTfNhv4HaWp3tRUwaKKNXvMP +CZZRej15Dgq4Oemwj4skCRuEw9eFlClgdMjX2iEjEpacn2q8UqmAvJr5X49v +J6GN29O2sk4Bu+OC9kyZkOA1tTfq5xMFvMUk3/0yJyG/h/HGrU8BVRtMPtbb +kCCe0xxtxU3D+mKtD8UeJMypCvWrW9PQ7M8dFjuBhOlrUuEbbWlI3zQtUZ5E +wuQqgqHnQEOhOx6H7yaTMDqh57nNg4YtOwJUyy6R8Knu6LTtGRpOEGbvz2SR +8GxnlWBsAQ15wq3+8WaT0HT/UVliKQ3vGuo91OOQ0Liu1Sr1Fg0Plw+Nct8i +4YHIx8zsGhrWdrgWJJaTUP5mueLd5zTk2oUhATUkZHrZw6cpGhoZlq/LfkpC ++jv3T1/naVi0WRw3NpNwyfJk1MgiDW1yLrY0tpCQtDH2v1l+OgbW1Zi+ayUh +4nfZ/lWydDy0xVlgsJ1an/PLjhsa07G6hGu5aT8J7gurRIx20lHuYueXgvck +uB6TqjTZTUf3A3XbFj+Q4Lhv3Z+9tnTc/akzqmiABCvpg7EePnT8Fsen1jZE +giGbzL18mY5qYVfD/H6R8EaenbP9Kh1bLAL5oidIOHW5JHsyh45Dp30TL02S +UBVemLW3hI71Gy4lF09T+3sg94rgPTr+mPGLJedJUF52KTn6Ix079+wsYnBx +oPlUygWtL3Q0LHmhy8PNAdfx5KTBYTryJc20DVLOf5OYYDRJR24ZxoqMZRyQ +L4+J/cvDwKN3Sl6+4+OAuENIWIAaA1OPP1jsEeTA3Y7gUGI9A1dkdoqfX8UB +K7Ogsx1aDHwYfEFfX4gDKVr+pzcAA+vP/i65sJoDKwWOBY3uYWCGK+hIiHKA +DP838JoNAz2fTTwqo2w24xVgfoiBygqBh03FOBD7yd2v1JmBD4L4W46Jc2Bp +jdNx10AGLszuCs+Q5MANjSPHxE4z0GbYLW/tGg4Y5Tv4NIYx8LFeZlcW5dAL +dt60eAY66flHXJLiwLyLjXt/FgPf37Edc1zLgYw3Vm6JeQzkd49vaqWsu2ef +q2EhAz/n6tZoyXAgwHC3c+YtBibQzL//pfxT2MzR5jE1nst8mT5yHOjxpr30 +bGKgiHiqzTPK9U/nIbSVgSZBS2/R5DmQfIotV9zFwMjtMdotlIM6zl2494aB +Jz6scpNQ4ICjht3iyw8MNLj/r7YTZc1PAu/nhhk4oJZdMUJZ0vCzheA4A5Uq +fjhr0Diw5PL9B7QpBh534avyojw0lqahM8/Ay3dvswsovzD1yd65yECj2wVb +31KuvGEs6LiUwPSZotBVdA5kL8ie9eMnsLshyBEo+5S9OHxNhMAr1YkiaZRt +VhQ/L5MkkI+1/2st5c0uYaynMgQmLcw5vaPMfHiA00cjsE5aP+YP5ZVr1suM +KRIov+utlSSDA5Mn+BO51Qkc7Sto1aT8tvXjH4kNBLLz7Ma2U25k1nqr6RD4 +SKjp/n7KZFjKWzQkUEeF1HWlfKnP09x6C4HmEa8dfSmf3rT1nocxgWKwTCeY +snOStNrZnQRulFx+7wzlnUMTV1N2E+hiwx4/S3mDUeuKImsCN78u7zxNWSor +P6TOlsC7s8NegZS5pk9/f+FAYH+9bIUP5WFL60ODzgRG311zy4lye4n6f7Me +BDaMFR3eR7mWm8dg5TECGyUu1yPl64f7SxX8CDRyLutRoRxXVSmlHUygZWZT +4WrKx1dfiDc7S2CfQJHqFLU+B7zc5u3PEXgkS9a9kzI+Ac+TsQRmVi7YlVNW +kpPsi0kkUNBGdEUCZaHgcdOsFGq9/tl40onybHtzze10AhNbVS5rUf6glqf8 +JIvAMOvnfssoN0cHZ/TmEVj19Meqdmq/b3/Ywz9aSKBT5yH3q5Sv6KsEc5EE +2j4aOXuEstto3wHVSgJPD7R8G6DOl8WOO81QR6DhzvuQS1n7+nldq3oCK34R ++w9S5rExlDzzjMBwk1vPH1Hnd/SWaOzFFwQOeJ/R8KXcxT8yU9BBoMcjaSsZ +yoX3r3W39RNoX6f804uqhySJAJOBAer8iOz0FKQc4GtRNTNEYMtiDpsjy4Ht +xOJl+QkC39zbFf+Jqq/BBEebE7xM9F1W+YKg6tFnWI2mKcDEjwJhZKU0B2ZM +5kZGhJioPhL/aBvl5dwpUR5STOQJ0E4/QNW3ZnBDhaM6Ey/O1C91oPKhtutC +mOwGJmod8qrqleDA1k125m+1mTgkylu8h7LN2OTAfmRixYpf2/WofDnjwhSx +3MdE6aqm2K8i1PwbfvULHGDi35eqYE45Wf5h6TM7Jg6vNNO7Kfz/vNxvZOzK +xDDf3N8eVL492xPnywpmYomo/vN6Kh/FN/94oZrDxMo/Z0x/UPmZe7X66rcb +TNz06n0qQVl5LtKtqJiJr9d1qNvxcsCwQmaRVs5Ee1bgvkdU/h5VsdSQesLE +QJ3np7yo/L4tXp7A952J4fPCg/CbBH2/sweejlHz7SmKsKDyvuGVGSNykolK +wVxnbOdI6EoYqFtcYOLzlwqxnjMk/OES+z4tpIgsy5aVXlQ/MR0LNP2srYhL +93ZFjQ6TsHa9bDSfoSIObsk7WfeN6s8nGh+rblHEd3MsmyiqP12aFjI8sVMR +lVxnF1Z9IaF/oURj0UER/+KbiSUfSTgh8FZkTZwifugVs9/bRfVbZew3f0P9 +3xDpXvuABG+vL1LHPyhiU/K2UcX7JAAnYX/qZ0U03cIVn1JHwqBm78veMUU8 +KFrN61BNgobuiQbXpUpYVjik11lGzc84vzhMnXJ6oIdOPgk/jvKdrAhVQlO9 +wri+aGq82dvuP4xUwqHlA0NTkSSM9Ybx/henhL//ns0UPEfCL8u5qx9TlTCQ +zTOnE0rCjMFwo2CxEh4Tbar3DCSBS7RV3OOlEvbMXHPb40bCmsYLtTIKylR/ +6ohWoe5HxgwJrpjHyhhjUZC+Y44N35xMig2alDFnGSvmB3X/SsgLtBj/Txk1 +EjztkybZ8Fq2J/NgpzKyU5hN/42xwXFNxka1IWW8cz72qvoXNgQLSru8WqmC +5BJSOqmdDeSsbLP0QRVUtN/3vrmEDcLPmUm3x1Qwu+SB1MG9bFgbe2u3trYa +9n9p21cZUgpXVPWERNzUqf0O+9yfXgLPpLZoTVzUwD8DBh/KrxeD/trHyeu6 +1iG3uk1wSWQRCHJf9zsSoYnPzXOHBjwLQTZczvAgcz3Gi60k89ULgJ+wq9zb +tB6D9sgEWo3eAA3WmluBhzeg/cNI9lj9dTjRL9xgtmQjvutOTy4JzoOxiQRr +0ysbEWp1NxWa5YLJuqeZpuqb0CJHK6PKPBseTBj8nmnbhGZv9UeffLwKPmob ++l65aOGuuMYD8eUZwBp17jjIr40jkTFGLV7psJ0huWvldW2c+W3iYeucBkph +8UGPdXTw3IoN5/TCUkHFRe8h0aeDRKxsf3PyRXB54B5Z4auLIXB+zP/BBXiY +2+H8U0wPh5/O87btTYDJ4sWZdVV6GFo9cIFXNw6OEmz+zF36qM41GM+TEA0/ +VVK1y8f1kbb9sF7GwDmozv/9cSrWAEXdHDeK5oaD7TY6Gsga4tdgSVuDTaEg +/W9MjUa9ITL42rwsDUJAbLl32a79LDQTql2w/hwI+VvPnBo/yMIV4OWo2x0I +G84kbU21Y6FvlICfQksgWIzf7uw5wsJ7o4aFvJxAiO6amjvqzcIUKdFFun8g +zF4PNToVzsJtt4ubMnkCoc8g9XUhm4Vj71RfnNAIAHf//CzTmyxUmZYNVlQI +gOmbd11+3GZhXOKxS59EAkCY1jOzvpKFklcUJbzn/GEnn8za+/Us9Bt6K9ra +6A/3OgqdX3eysFVgteYDO38wE6xWD+hh4eXBHYs9lv7QY9IyLfmGhTHsx3Lz +Rv4wWfs91v4DCwX2HTO3VPYH9TxNzrdhFoYN71y7fdoP7vVtCUgYYaHoho2s +lG9+YCa6D9aNs3CjCeR8fusHrjH+r/ymWPjnToVsToMfTNZHZ0rMsnBQUUx3 +WZUfRMynH62dZ+H2G7HxvqV+ILSpRO3wAjU+1+Wig9f8IPvf2qnFRep7Wlq7 +3UU/+B8jw1O4 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7833,117 +8837,115 @@ U0FU/w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== +1:eJwV1nlUTX0XB3BP0UCSZqXp3ntuczI0d+0tlJIyVEgqaa4nolFo0KySkpQ0 +0HzPRUmjIYrKk5BmZCgkGmiO9J73j7PO+qyzzlq/aX/3T8Hp2F4XriVLlnD9 +Qz3Ue7q/pZFxPn/zeCTZdFhJZ3NHtmTwlp4IKN/dK0/fLAYo9sJJsicFjpol +bZlgERCwu7Sbu+c6fLH/530nSwtWj0qkzHWXg7j1Vqcy1nZ4f8/i2GT3Y8i/ +aTpjwrIGY8bwu5/d7dDk6JRXaeACc906aePdn8A0WzX5tJY/NGwtyn91fQK8 +mVMNyxaiYO37mi9OagvQINDdsn5TMoh6O5TybuVGVopbr5tKGqSsN66zsObD +W1VOYWzrTOi9oln/U2glahl/qGYMZ8P5/NAXXGtWY+b74V1pzXkgcWkgLvWa +CJ5KFfvdNnADYqxMN7dPi2Go8LST8c0COKmX59ASIYlVaY9X7/Mqgm1j86d8 +BqTwr+pFG9vuYgjecUnl0Q8pzJj/axn7thhu5qn3iUxLoXh1wPo7H4tB0spR +r4ZPGhmwlb34vRh+VD+Z4daQxvwXN31PLimB1Ihkv4wgaXRl9PA8VSqBT2JM +n8aVa3GfI5+dWGAJhBvuOSKlK4Oer4uFLZeXwg777F86RjJ43MchUXRVKQiG +fT9nbS6DerGze7pESiGrIaow2VEGTUp4qy1kSqHarPY7T5wMPrLGX8KapTB+ +gB4w0SuDs7rKM0NWpWDvPxXfGiKLZz+Tms+ulgKRbrR2OEoW4d54mmRuKTXe +CxzeZFk0SHLHo/mlcOqP8kujfFlkzaY7j5ClkHbOXqymVRZfp+Z+7bhfCq0X +m3IKZOQwxzykeby/FPRvZlScfSiHjpsFbxySZcO27raF0WY5/M7LGB5XYIPF +kqUmDu1y+OxI13gEwYaje3164bMctpfJsK6pscE4RCE0bJk8RjRUvCrVZ8Nx +uekbW1Tl8fVy/p/KNmxodMsZaQiQx4qriQer49lg+kdP+HSIPN7V9Cj8nMiG +tuQO7U1h8jicf7pi1UU29Nbwh+XHyWN7TLGobTobRlf4CUdlyWPAmcavTTfY +IHl7h47xY3nMGr88znuPDd6zP8OaVyogc72Rh9QwG/R9XcW/CCtglWBFtPQI +G/iG+9jckgqozt3eIznOhoI3DV2baQrY5zQizTfNhv4HaWp3tRUwaKKNXvMP +CZZRej15Dgq4Oemwj4skCRuEw9eFlClgdMjX2iEjEpacn2q8UqmAvJr5X49v +J6GN29O2sk4Bu+OC9kyZkOA1tTfq5xMFvMUk3/0yJyG/h/HGrU8BVRtMPtbb +kCCe0xxtxU3D+mKtD8UeJMypCvWrW9PQ7M8dFjuBhOlrUuEbbWlI3zQtUZ5E +wuQqgqHnQEOhOx6H7yaTMDqh57nNg4YtOwJUyy6R8Knu6LTtGRpOEGbvz2SR +8GxnlWBsAQ15wq3+8WaT0HT/UVliKQ3vGuo91OOQ0Liu1Sr1Fg0Plw+Nct8i +4YHIx8zsGhrWdrgWJJaTUP5mueLd5zTk2oUhATUkZHrZw6cpGhoZlq/LfkpC ++jv3T1/naVi0WRw3NpNwyfJk1MgiDW1yLrY0tpCQtDH2v1l+OgbW1Zi+ayUh +4nfZ/lWydDy0xVlgsJ1an/PLjhsa07G6hGu5aT8J7gurRIx20lHuYueXgvck +uB6TqjTZTUf3A3XbFj+Q4Lhv3Z+9tnTc/akzqmiABCvpg7EePnT8Fsen1jZE +giGbzL18mY5qYVfD/H6R8EaenbP9Kh1bLAL5oidIOHW5JHsyh45Dp30TL02S +UBVemLW3hI71Gy4lF09T+3sg94rgPTr+mPGLJedJUF52KTn6Ix079+wsYnBx +oPlUygWtL3Q0LHmhy8PNAdfx5KTBYTryJc20DVLOf5OYYDRJR24ZxoqMZRyQ +L4+J/cvDwKN3Sl6+4+OAuENIWIAaA1OPP1jsEeTA3Y7gUGI9A1dkdoqfX8UB +K7Ogsx1aDHwYfEFfX4gDKVr+pzcAA+vP/i65sJoDKwWOBY3uYWCGK+hIiHKA +DP838JoNAz2fTTwqo2w24xVgfoiBygqBh03FOBD7yd2v1JmBD4L4W46Jc2Bp +jdNx10AGLszuCs+Q5MANjSPHxE4z0GbYLW/tGg4Y5Tv4NIYx8LFeZlcW5dAL +dt60eAY66flHXJLiwLyLjXt/FgPf37Edc1zLgYw3Vm6JeQzkd49vaqWsu2ef +q2EhAz/n6tZoyXAgwHC3c+YtBibQzL//pfxT2MzR5jE1nst8mT5yHOjxpr30 +bGKgiHiqzTPK9U/nIbSVgSZBS2/R5DmQfIotV9zFwMjtMdotlIM6zl2494aB +Jz6scpNQ4ICjht3iyw8MNLj/r7YTZc1PAu/nhhk4oJZdMUJZ0vCzheA4A5Uq +fjhr0Diw5PL9B7QpBh534avyojw0lqahM8/Ay3dvswsovzD1yd65yECj2wVb +31KuvGEs6LiUwPSZotBVdA5kL8ie9eMnsLshyBEo+5S9OHxNhMAr1YkiaZRt +VhQ/L5MkkI+1/2st5c0uYaynMgQmLcw5vaPMfHiA00cjsE5aP+YP5ZVr1suM +KRIov+utlSSDA5Mn+BO51Qkc7Sto1aT8tvXjH4kNBLLz7Ma2U25k1nqr6RD4 +SKjp/n7KZFjKWzQkUEeF1HWlfKnP09x6C4HmEa8dfSmf3rT1nocxgWKwTCeY +snOStNrZnQRulFx+7wzlnUMTV1N2E+hiwx4/S3mDUeuKImsCN78u7zxNWSor +P6TOlsC7s8NegZS5pk9/f+FAYH+9bIUP5WFL60ODzgRG311zy4lye4n6f7Me +BDaMFR3eR7mWm8dg5TECGyUu1yPl64f7SxX8CDRyLutRoRxXVSmlHUygZWZT +4WrKx1dfiDc7S2CfQJHqFLU+B7zc5u3PEXgkS9a9kzI+Ac+TsQRmVi7YlVNW +kpPsi0kkUNBGdEUCZaHgcdOsFGq9/tl40onybHtzze10AhNbVS5rUf6glqf8 +JIvAMOvnfssoN0cHZ/TmEVj19Meqdmq/b3/Ywz9aSKBT5yH3q5Sv6KsEc5EE +2j4aOXuEstto3wHVSgJPD7R8G6DOl8WOO81QR6DhzvuQS1n7+nldq3oCK34R ++w9S5rExlDzzjMBwk1vPH1Hnd/SWaOzFFwQOeJ/R8KXcxT8yU9BBoMcjaSsZ +yoX3r3W39RNoX6f804uqhySJAJOBAer8iOz0FKQc4GtRNTNEYMtiDpsjy4Ht +xOJl+QkC39zbFf+Jqq/BBEebE7xM9F1W+YKg6tFnWI2mKcDEjwJhZKU0B2ZM +5kZGhJioPhL/aBvl5dwpUR5STOQJ0E4/QNW3ZnBDhaM6Ey/O1C91oPKhtutC +mOwGJmod8qrqleDA1k125m+1mTgkylu8h7LN2OTAfmRixYpf2/WofDnjwhSx +3MdE6aqm2K8i1PwbfvULHGDi35eqYE45Wf5h6TM7Jg6vNNO7Kfz/vNxvZOzK +xDDf3N8eVL492xPnywpmYomo/vN6Kh/FN/94oZrDxMo/Z0x/UPmZe7X66rcb +TNz06n0qQVl5LtKtqJiJr9d1qNvxcsCwQmaRVs5Ee1bgvkdU/h5VsdSQesLE +QJ3np7yo/L4tXp7A952J4fPCg/CbBH2/sweejlHz7SmKsKDyvuGVGSNykolK +wVxnbOdI6EoYqFtcYOLzlwqxnjMk/OES+z4tpIgsy5aVXlQ/MR0LNP2srYhL +93ZFjQ6TsHa9bDSfoSIObsk7WfeN6s8nGh+rblHEd3MsmyiqP12aFjI8sVMR +lVxnF1Z9IaF/oURj0UER/+KbiSUfSTgh8FZkTZwifugVs9/bRfVbZew3f0P9 +3xDpXvuABG+vL1LHPyhiU/K2UcX7JAAnYX/qZ0U03cIVn1JHwqBm78veMUU8 +KFrN61BNgobuiQbXpUpYVjik11lGzc84vzhMnXJ6oIdOPgk/jvKdrAhVQlO9 +wri+aGq82dvuP4xUwqHlA0NTkSSM9Ybx/henhL//ns0UPEfCL8u5qx9TlTCQ +zTOnE0rCjMFwo2CxEh4Tbar3DCSBS7RV3OOlEvbMXHPb40bCmsYLtTIKylR/ +6ohWoe5HxgwJrpjHyhhjUZC+Y44N35xMig2alDFnGSvmB3X/SsgLtBj/Txk1 +EjztkybZ8Fq2J/NgpzKyU5hN/42xwXFNxka1IWW8cz72qvoXNgQLSru8WqmC +5BJSOqmdDeSsbLP0QRVUtN/3vrmEDcLPmUm3x1Qwu+SB1MG9bFgbe2u3trYa +9n9p21cZUgpXVPWERNzUqf0O+9yfXgLPpLZoTVzUwD8DBh/KrxeD/trHyeu6 +1iG3uk1wSWQRCHJf9zsSoYnPzXOHBjwLQTZczvAgcz3Gi60k89ULgJ+wq9zb +tB6D9sgEWo3eAA3WmluBhzeg/cNI9lj9dTjRL9xgtmQjvutOTy4JzoOxiQRr +0ysbEWp1NxWa5YLJuqeZpuqb0CJHK6PKPBseTBj8nmnbhGZv9UeffLwKPmob ++l65aOGuuMYD8eUZwBp17jjIr40jkTFGLV7psJ0huWvldW2c+W3iYeucBkph +8UGPdXTw3IoN5/TCUkHFRe8h0aeDRKxsf3PyRXB54B5Z4auLIXB+zP/BBXiY +2+H8U0wPh5/O87btTYDJ4sWZdVV6GFo9cIFXNw6OEmz+zF36qM41GM+TEA0/ +VVK1y8f1kbb9sF7GwDmozv/9cSrWAEXdHDeK5oaD7TY6Gsga4tdgSVuDTaEg +/W9MjUa9ITL42rwsDUJAbLl32a79LDQTql2w/hwI+VvPnBo/yMIV4OWo2x0I +G84kbU21Y6FvlICfQksgWIzf7uw5wsJ7o4aFvJxAiO6amjvqzcIUKdFFun8g +zF4PNToVzsJtt4ubMnkCoc8g9XUhm4Vj71RfnNAIAHf//CzTmyxUmZYNVlQI +gOmbd11+3GZhXOKxS59EAkCY1jOzvpKFklcUJbzn/GEnn8za+/Us9Bt6K9ra +6A/3OgqdX3eysFVgteYDO38wE6xWD+hh4eXBHYs9lv7QY9IyLfmGhTHsx3Lz +Rv4wWfs91v4DCwX2HTO3VPYH9TxNzrdhFoYN71y7fdoP7vVtCUgYYaHoho2s +lG9+YCa6D9aNs3CjCeR8fusHrjH+r/ymWPjnToVsToMfTNZHZ0rMsnBQUUx3 +WZUfRMynH62dZ+H2G7HxvqV+ILSpRO3wAjU+1+Wig9f8IPvf2qnFRep7Wlq7 +3UU/+B8jw1O4 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.05691906631333835}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7955,19 +8957,19 @@ U0FU/w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.05691906631333835}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7981,116 +8983,114 @@ U0FU/w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== +1:eJwV1nlUTX0XB3BP0UCSZqXp3ntuczI0d+0tlJIyVEgqaa4nolFo0KySkpQ0 +0HzPRUmjIYrKk5BmZCgkGmiO9J73j7PO+qyzzlq/aX/3T8Hp2F4XriVLlnD9 +Qz3Ue7q/pZFxPn/zeCTZdFhJZ3NHtmTwlp4IKN/dK0/fLAYo9sJJsicFjpol +bZlgERCwu7Sbu+c6fLH/530nSwtWj0qkzHWXg7j1Vqcy1nZ4f8/i2GT3Y8i/ +aTpjwrIGY8bwu5/d7dDk6JRXaeACc906aePdn8A0WzX5tJY/NGwtyn91fQK8 +mVMNyxaiYO37mi9OagvQINDdsn5TMoh6O5TybuVGVopbr5tKGqSsN66zsObD +W1VOYWzrTOi9oln/U2glahl/qGYMZ8P5/NAXXGtWY+b74V1pzXkgcWkgLvWa +CJ5KFfvdNnADYqxMN7dPi2Go8LST8c0COKmX59ASIYlVaY9X7/Mqgm1j86d8 +BqTwr+pFG9vuYgjecUnl0Q8pzJj/axn7thhu5qn3iUxLoXh1wPo7H4tB0spR +r4ZPGhmwlb34vRh+VD+Z4daQxvwXN31PLimB1Ihkv4wgaXRl9PA8VSqBT2JM +n8aVa3GfI5+dWGAJhBvuOSKlK4Oer4uFLZeXwg777F86RjJ43MchUXRVKQiG +fT9nbS6DerGze7pESiGrIaow2VEGTUp4qy1kSqHarPY7T5wMPrLGX8KapTB+ +gB4w0SuDs7rKM0NWpWDvPxXfGiKLZz+Tms+ulgKRbrR2OEoW4d54mmRuKTXe +CxzeZFk0SHLHo/mlcOqP8kujfFlkzaY7j5ClkHbOXqymVRZfp+Z+7bhfCq0X +m3IKZOQwxzykeby/FPRvZlScfSiHjpsFbxySZcO27raF0WY5/M7LGB5XYIPF +kqUmDu1y+OxI13gEwYaje3164bMctpfJsK6pscE4RCE0bJk8RjRUvCrVZ8Nx +uekbW1Tl8fVy/p/KNmxodMsZaQiQx4qriQer49lg+kdP+HSIPN7V9Cj8nMiG +tuQO7U1h8jicf7pi1UU29Nbwh+XHyWN7TLGobTobRlf4CUdlyWPAmcavTTfY +IHl7h47xY3nMGr88znuPDd6zP8OaVyogc72Rh9QwG/R9XcW/CCtglWBFtPQI +G/iG+9jckgqozt3eIznOhoI3DV2baQrY5zQizTfNhv4HaWp3tRUwaKKNXvMP +CZZRej15Dgq4Oemwj4skCRuEw9eFlClgdMjX2iEjEpacn2q8UqmAvJr5X49v +J6GN29O2sk4Bu+OC9kyZkOA1tTfq5xMFvMUk3/0yJyG/h/HGrU8BVRtMPtbb +kCCe0xxtxU3D+mKtD8UeJMypCvWrW9PQ7M8dFjuBhOlrUuEbbWlI3zQtUZ5E +wuQqgqHnQEOhOx6H7yaTMDqh57nNg4YtOwJUyy6R8Knu6LTtGRpOEGbvz2SR +8GxnlWBsAQ15wq3+8WaT0HT/UVliKQ3vGuo91OOQ0Liu1Sr1Fg0Plw+Nct8i +4YHIx8zsGhrWdrgWJJaTUP5mueLd5zTk2oUhATUkZHrZw6cpGhoZlq/LfkpC ++jv3T1/naVi0WRw3NpNwyfJk1MgiDW1yLrY0tpCQtDH2v1l+OgbW1Zi+ayUh +4nfZ/lWydDy0xVlgsJ1an/PLjhsa07G6hGu5aT8J7gurRIx20lHuYueXgvck +uB6TqjTZTUf3A3XbFj+Q4Lhv3Z+9tnTc/akzqmiABCvpg7EePnT8Fsen1jZE +giGbzL18mY5qYVfD/H6R8EaenbP9Kh1bLAL5oidIOHW5JHsyh45Dp30TL02S +UBVemLW3hI71Gy4lF09T+3sg94rgPTr+mPGLJedJUF52KTn6Ix079+wsYnBx +oPlUygWtL3Q0LHmhy8PNAdfx5KTBYTryJc20DVLOf5OYYDRJR24ZxoqMZRyQ +L4+J/cvDwKN3Sl6+4+OAuENIWIAaA1OPP1jsEeTA3Y7gUGI9A1dkdoqfX8UB +K7Ogsx1aDHwYfEFfX4gDKVr+pzcAA+vP/i65sJoDKwWOBY3uYWCGK+hIiHKA +DP838JoNAz2fTTwqo2w24xVgfoiBygqBh03FOBD7yd2v1JmBD4L4W46Jc2Bp +jdNx10AGLszuCs+Q5MANjSPHxE4z0GbYLW/tGg4Y5Tv4NIYx8LFeZlcW5dAL +dt60eAY66flHXJLiwLyLjXt/FgPf37Edc1zLgYw3Vm6JeQzkd49vaqWsu2ef +q2EhAz/n6tZoyXAgwHC3c+YtBibQzL//pfxT2MzR5jE1nst8mT5yHOjxpr30 +bGKgiHiqzTPK9U/nIbSVgSZBS2/R5DmQfIotV9zFwMjtMdotlIM6zl2494aB +Jz6scpNQ4ICjht3iyw8MNLj/r7YTZc1PAu/nhhk4oJZdMUJZ0vCzheA4A5Uq +fjhr0Diw5PL9B7QpBh534avyojw0lqahM8/Ay3dvswsovzD1yd65yECj2wVb +31KuvGEs6LiUwPSZotBVdA5kL8ie9eMnsLshyBEo+5S9OHxNhMAr1YkiaZRt +VhQ/L5MkkI+1/2st5c0uYaynMgQmLcw5vaPMfHiA00cjsE5aP+YP5ZVr1suM +KRIov+utlSSDA5Mn+BO51Qkc7Sto1aT8tvXjH4kNBLLz7Ma2U25k1nqr6RD4 +SKjp/n7KZFjKWzQkUEeF1HWlfKnP09x6C4HmEa8dfSmf3rT1nocxgWKwTCeY +snOStNrZnQRulFx+7wzlnUMTV1N2E+hiwx4/S3mDUeuKImsCN78u7zxNWSor +P6TOlsC7s8NegZS5pk9/f+FAYH+9bIUP5WFL60ODzgRG311zy4lye4n6f7Me +BDaMFR3eR7mWm8dg5TECGyUu1yPl64f7SxX8CDRyLutRoRxXVSmlHUygZWZT +4WrKx1dfiDc7S2CfQJHqFLU+B7zc5u3PEXgkS9a9kzI+Ac+TsQRmVi7YlVNW +kpPsi0kkUNBGdEUCZaHgcdOsFGq9/tl40onybHtzze10AhNbVS5rUf6glqf8 +JIvAMOvnfssoN0cHZ/TmEVj19Meqdmq/b3/Ywz9aSKBT5yH3q5Sv6KsEc5EE +2j4aOXuEstto3wHVSgJPD7R8G6DOl8WOO81QR6DhzvuQS1n7+nldq3oCK34R ++w9S5rExlDzzjMBwk1vPH1Hnd/SWaOzFFwQOeJ/R8KXcxT8yU9BBoMcjaSsZ +yoX3r3W39RNoX6f804uqhySJAJOBAer8iOz0FKQc4GtRNTNEYMtiDpsjy4Ht +xOJl+QkC39zbFf+Jqq/BBEebE7xM9F1W+YKg6tFnWI2mKcDEjwJhZKU0B2ZM +5kZGhJioPhL/aBvl5dwpUR5STOQJ0E4/QNW3ZnBDhaM6Ey/O1C91oPKhtutC +mOwGJmod8qrqleDA1k125m+1mTgkylu8h7LN2OTAfmRixYpf2/WofDnjwhSx +3MdE6aqm2K8i1PwbfvULHGDi35eqYE45Wf5h6TM7Jg6vNNO7Kfz/vNxvZOzK +xDDf3N8eVL492xPnywpmYomo/vN6Kh/FN/94oZrDxMo/Z0x/UPmZe7X66rcb +TNz06n0qQVl5LtKtqJiJr9d1qNvxcsCwQmaRVs5Ee1bgvkdU/h5VsdSQesLE +QJ3np7yo/L4tXp7A952J4fPCg/CbBH2/sweejlHz7SmKsKDyvuGVGSNykolK +wVxnbOdI6EoYqFtcYOLzlwqxnjMk/OES+z4tpIgsy5aVXlQ/MR0LNP2srYhL +93ZFjQ6TsHa9bDSfoSIObsk7WfeN6s8nGh+rblHEd3MsmyiqP12aFjI8sVMR +lVxnF1Z9IaF/oURj0UER/+KbiSUfSTgh8FZkTZwifugVs9/bRfVbZew3f0P9 +3xDpXvuABG+vL1LHPyhiU/K2UcX7JAAnYX/qZ0U03cIVn1JHwqBm78veMUU8 +KFrN61BNgobuiQbXpUpYVjik11lGzc84vzhMnXJ6oIdOPgk/jvKdrAhVQlO9 +wri+aGq82dvuP4xUwqHlA0NTkSSM9Ybx/henhL//ns0UPEfCL8u5qx9TlTCQ +zTOnE0rCjMFwo2CxEh4Tbar3DCSBS7RV3OOlEvbMXHPb40bCmsYLtTIKylR/ +6ohWoe5HxgwJrpjHyhhjUZC+Y44N35xMig2alDFnGSvmB3X/SsgLtBj/Txk1 +EjztkybZ8Fq2J/NgpzKyU5hN/42xwXFNxka1IWW8cz72qvoXNgQLSru8WqmC +5BJSOqmdDeSsbLP0QRVUtN/3vrmEDcLPmUm3x1Qwu+SB1MG9bFgbe2u3trYa +9n9p21cZUgpXVPWERNzUqf0O+9yfXgLPpLZoTVzUwD8DBh/KrxeD/trHyeu6 +1iG3uk1wSWQRCHJf9zsSoYnPzXOHBjwLQTZczvAgcz3Gi60k89ULgJ+wq9zb +tB6D9sgEWo3eAA3WmluBhzeg/cNI9lj9dTjRL9xgtmQjvutOTy4JzoOxiQRr +0ysbEWp1NxWa5YLJuqeZpuqb0CJHK6PKPBseTBj8nmnbhGZv9UeffLwKPmob ++l65aOGuuMYD8eUZwBp17jjIr40jkTFGLV7psJ0huWvldW2c+W3iYeucBkph +8UGPdXTw3IoN5/TCUkHFRe8h0aeDRKxsf3PyRXB54B5Z4auLIXB+zP/BBXiY +2+H8U0wPh5/O87btTYDJ4sWZdVV6GFo9cIFXNw6OEmz+zF36qM41GM+TEA0/ +VVK1y8f1kbb9sF7GwDmozv/9cSrWAEXdHDeK5oaD7TY6Gsga4tdgSVuDTaEg +/W9MjUa9ITL42rwsDUJAbLl32a79LDQTql2w/hwI+VvPnBo/yMIV4OWo2x0I +G84kbU21Y6FvlICfQksgWIzf7uw5wsJ7o4aFvJxAiO6amjvqzcIUKdFFun8g +zF4PNToVzsJtt4ubMnkCoc8g9XUhm4Vj71RfnNAIAHf//CzTmyxUmZYNVlQI +gOmbd11+3GZhXOKxS59EAkCY1jOzvpKFklcUJbzn/GEnn8za+/Us9Bt6K9ra +6A/3OgqdX3eysFVgteYDO38wE6xWD+hh4eXBHYs9lv7QY9IyLfmGhTHsx3Lz +Rv4wWfs91v4DCwX2HTO3VPYH9TxNzrdhFoYN71y7fdoP7vVtCUgYYaHoho2s +lG9+YCa6D9aNs3CjCeR8fusHrjH+r/ymWPjnToVsToMfTNZHZ0rMsnBQUUx3 +WZUfRMynH62dZ+H2G7HxvqV+ILSpRO3wAjU+1+Wig9f8IPvf2qnFRep7Wlq7 +3UU/+B8jw1O4 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.05691906631333835}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8101,6 +9101,7 @@ U0FU/w== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8128,7 +9129,8 @@ U0FU/w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05691906631333835}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8136,8 +9138,9 @@ U0FU/w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913236646248627`*^9}, - CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] + CellChangeTimes->{3.9913236646248627`*^9, 3.993912048943969*^9}, + CellLabel-> + "Out[397]=",ExpressionUUID->"46a4a630-7a13-46e2-97fd-6f99f1bf1e11"] }, Open ]], Cell[CellGroupData[{ @@ -8189,65 +9192,71 @@ Cell[BoxData[ FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", - CellLabel->"In[90]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], + CellLabel-> + "In[398]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 90, - 21, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323664732767*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.452459865398409`*^-189\\\", \ +RowBox[{\\\"1541053003386102322388122\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"72\\\", \\\"\[RightSkeleton]\\\"}], \\\"38617600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 398, 29, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.993912049060802*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +In[398]:=",ExpressionUUID->"cd830cde-30cd-4a13-bf04-b633de106129"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 22, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132366476486*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0204583074291615`*^-192\\\", \ +RowBox[{\\\"3700068261130031676053882\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"75\\\", \\\"\[RightSkeleton]\\\"}], \\\"20857600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 398, 30, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.9939120490679092`*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +In[398]:=",ExpressionUUID->"8c59ad0e-95f0-4862-8d26-7a6c32f100c2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 23, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236647877655`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2319906557191388`*^-196\\\", \ +RowBox[{\\\"9250170652825079190134707\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"78\\\", \\\"\[RightSkeleton]\\\"}], \\\"44000000000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 398, 31, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.993912049074239*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +In[398]:=",ExpressionUUID->"4c38b059-b1f8-42d1-9e6b-f8b1b0368b6d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 90, 24, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236648078594`*^9}, +during this calculation.\"", 2, 398, 32, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.993912049081277*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +In[398]:=",ExpressionUUID->"116a3492-777c-4452-b405-af3cbf9af57c"], -Cell[BoxData["11.275343508420768`"], "Output", - CellChangeTimes->{3.9913236764669056`*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[BoxData["13.355339007683929`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.993912088955201*^9}, + CellLabel-> + "Out[398]=",ExpressionUUID->"e686dcca-242b-4bb0-847f-b6eb51abf131"] }, Open ]], Cell[CellGroupData[{ @@ -8314,67 +9323,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917996753598194`*^9, - 3.991799698091812*^9}},ExpressionUUID->"18d0289f-01fd-a740-8fac-\ -540622282b2c"], + CellChangeTimes->{{3.9917996753598194`*^9, 3.991799698091812*^9}}, + CellLabel-> + "In[399]:=",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 25, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765399036`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.938667696143313`*^-212\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 399, 33, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993912089039199*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +In[399]:=",ExpressionUUID->"6f11f919-3f2c-42c5-a014-4b541822f38d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 26, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765679016`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.03627803197554`*^-217\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 399, 34, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993912089050189*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +In[399]:=",ExpressionUUID->"00d447eb-8191-4726-9d5c-8dd00ae2d659"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 27, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323676587904*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4109891461861855`*^-222\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 399, 35, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.9939120890591393`*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +In[399]:=",ExpressionUUID->"70b25088-aaa0-4381-8e5a-f56f590dea57"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 91, 28, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236766039066`*^9}, +during this calculation.\"", 2, 399, 36, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993912089068692*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +In[399]:=",ExpressionUUID->"f4123f41-f473-4795-aa18-a138851274b2"], -Cell[BoxData["0.5376063675902706`"], "Output", - CellChangeTimes->{3.9913236883162384`*^9}, - CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[BoxData["2.9548769180122063`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.993912096090868*^9}, + CellLabel-> + "Out[399]=",ExpressionUUID->"88a10dc8-1d55-4360-aadc-ded297b63e0a"] }, Open ]], Cell[CellGroupData[{ @@ -8395,8 +9409,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8441,67 +9454,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997261183853`*^9, - 3.991799730012718*^9}},ExpressionUUID->"33f25e29-8e2f-5249-9603-\ -4bb381db84df"], + CellChangeTimes->{{3.9917997261183853`*^9, 3.991799730012718*^9}}, + CellLabel-> + "In[400]:=",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 29, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132368839011*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.938667696143313`*^-212\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 400, 37, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.993912096135563*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +In[400]:=",ExpressionUUID->"6d4b62f5-bfdd-4304-89b3-a101a0c9b99b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 30, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884141064`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.03627803197554`*^-217\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 400, 38, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.99391209614445*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +In[400]:=",ExpressionUUID->"00239eef-53c8-49ea-ba28-968720ec27d5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 31, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323688443001*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4109891461861855`*^-222\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 400, 39, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.99391209615368*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +In[400]:=",ExpressionUUID->"e37ef50b-2d4f-4a58-8f0c-9f07760a85b9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 92, 32, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884570007`*^9}, +during this calculation.\"", 2, 400, 40, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.993912096160725*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +In[400]:=",ExpressionUUID->"515ee46f-9901-48e3-b92e-e7ac0235637d"], -Cell[BoxData["10.498798062085507`"], "Output", - CellChangeTimes->{3.9913236988049507`*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[BoxData["50.675182607739735`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.993912103041934*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"dbff754e-541c-4d15-9fa6-0b7533437680"] }, Open ]], Cell[CellGroupData[{ @@ -8522,8 +9540,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8568,67 +9585,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997336698074`*^9, - 3.9917997367747993`*^9}},ExpressionUUID->"88e14da9-8532-e842-b722-\ -1b0781de8eeb"], + CellChangeTimes->{{3.9917997336698074`*^9, 3.9917997367747993`*^9}}, + CellLabel-> + "In[401]:=",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 33, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698915848*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.938667696143313`*^-212\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 401, 41, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.9939121030903597`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +In[401]:=",ExpressionUUID->"18476870-01fe-4ced-8de1-ab3481dfd2bd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 34, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698943981*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.03627803197554`*^-217\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 401, 42, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993912103099188*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +In[401]:=",ExpressionUUID->"ac74d7aa-d890-46f4-86a5-2a1ce90bfb40"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 35, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698971981*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4109891461861855`*^-222\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 401, 43, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993912103106246*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +In[401]:=",ExpressionUUID->"4c2720e8-e70f-4d05-bb47-b74a7a4ae775"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 93, 36, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698986994*^9}, +during this calculation.\"", 2, 401, 44, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993912103112796*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +In[401]:=",ExpressionUUID->"5cdf37d9-cd3f-4578-8a46-00faed6545e2"], -Cell[BoxData["18.521732102530788`"], "Output", - CellChangeTimes->{3.991323706795576*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[BoxData["17.649233085314943`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.993912107358922*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"6a49af0a-886e-463a-8c6d-0cc39f501c4b"] }, Open ]], Cell[CellGroupData[{ @@ -8637,21 +9659,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991799742384985*^9, - 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ -e5f89f4ec38f"], + CellChangeTimes->{{3.991799742384985*^9, 3.9917997459840527`*^9}}, + CellLabel-> + "In[402]:=",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[BoxData["0.038552612544494616`"], "Output", - CellChangeTimes->{3.991323706858589*^9}, - CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[BoxData["0.09880497555489103`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.993912107400564*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"84984732-767e-4840-80da-d63b6f097d5e"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9}, - 3.9919243164025135`*^9},ExpressionUUID->"c771f2bd-f081-e54a-b4e5-\ -bf0dbc996ac3"], + 3.9919243164025135`*^9}, + CellLabel-> + "In[403]:=",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ @@ -8673,11 +9697,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + CellLabel-> + "In[404]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.991323706886154*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[BoxData["16.949955979643292`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.9939121074182367`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"a0973890-dd1e-41a9-be2a-80bd9f54cef5"] }, Open ]], Cell[CellGroupData[{ @@ -8686,11 +9712,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + CellLabel-> + "In[405]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.9913237069236546`*^9}, - CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[BoxData["2.975184232328209`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.993912107430176*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"6b2aaa76-5a5d-484a-85c8-c7115cfd59d9"] }, Open ]], Cell[CellGroupData[{ @@ -8700,12 +9728,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + "In[406]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913237069753113`*^9}, +Cell[BoxData["50.42924176929196`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.9939121074428062`*^9}, CellLabel-> - "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] + "Out[406]=",ExpressionUUID->"40ee655b-b49b-4737-afd2-d04cd053e244"] }, Open ]], Cell[CellGroupData[{ @@ -8895,12 +9923,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + "In[407]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[BoxData["0.02467166981689615`"], "Output", - CellChangeTimes->{3.991323707000412*^9}, +Cell[BoxData["0.004756853155766424`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.99391210745792*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] + "Out[407]=",ExpressionUUID->"b206bf11-fec3-4fa1-ac22-1e651888607a"] }, Open ]], Cell[CellGroupData[{ @@ -8914,12 +9942,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + "In[408]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[BoxData["5.642163519289108`"], "Output", - CellChangeTimes->{3.991323707203314*^9}, +Cell[BoxData["12.849465664032497`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.99391210757804*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] + "Out[408]=",ExpressionUUID->"d2fd175c-b6a7-4bfa-b44b-b7cb6dd25c9a"] }, Open ]], Cell[CellGroupData[{ @@ -9111,12 +10139,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + "In[409]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[BoxData["0.012834083028601704`"], "Output", - CellChangeTimes->{3.9913237072224197`*^9}, +Cell[BoxData["0.017752862247783458`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.993912107592163*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] + "Out[409]=",ExpressionUUID->"cd4f89d9-610b-47f6-8c25-21125d2b2684"] }, Open ]], Cell[CellGroupData[{ @@ -9130,12 +10158,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + "In[410]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[BoxData["7.82280524717004`"], "Output", - CellChangeTimes->{3.991323707432623*^9}, +Cell[BoxData["6.651364514017316`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.993912107712181*^9}, CellLabel-> - "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] + "Out[410]=",ExpressionUUID->"810d9fdd-098a-45e6-9e3b-c1b96d949ad6"] }, Open ]], Cell[CellGroupData[{ @@ -9228,12 +10256,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + "In[411]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913237074497375`*^9}, +Cell[BoxData["0.16117775346672777`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.993912107725873*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] + "Out[411]=",ExpressionUUID->"c96d800b-a62a-4ff9-a858-59e04645f870"] }, Open ]], Cell[CellGroupData[{ @@ -9323,12 +10351,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + "In[412]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991323707467621*^9}, +Cell[BoxData["0.8388222465332723`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.993912107738948*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] + "Out[412]=",ExpressionUUID->"72475dbf-09a4-4359-ac04-16d599315f3a"] }, Open ]], Cell[CellGroupData[{ @@ -9451,12 +10479,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + "In[413]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991323707488617*^9}, +Cell[BoxData["0.1351994852541465`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.9939121077517853`*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] + "Out[413]=",ExpressionUUID->"144f2c45-1a9e-4e46-a04a-dba09c69c10e"] }, Open ]], Cell[CellGroupData[{ @@ -9471,7 +10499,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -9493,8 +10523,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9518,68 +10547,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799766323864*^9},ExpressionUUID->"ee2d2671-1677-5943-bf7a-\ -6ffa36275fe8"], + CellChangeTimes->{3.991799766323864*^9}, + CellLabel-> + "In[414]:=",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 109, 37, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075117207`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6142620210258265`*^-216\\\", \ +RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 414, 45, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993912107770464*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +In[414]:=",ExpressionUUID->"97eaefb7-fbb6-487c-a554-1cecfa909e9b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 38, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323707545618*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.755125575464367`*^-222\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 414, 46, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993912107778652*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +In[414]:=",ExpressionUUID->"afa4e9ec-5c72-40bd-afa8-80abebe01c48"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 39, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075757256`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3005334663287504`*^-227\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 414, 47, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993912107786582*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +In[414]:=",ExpressionUUID->"961ee725-5ff5-4162-a7a8-67ae6254779e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 109, 40, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075926247`*^9}, +during this calculation.\"", 2, 414, 48, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993912107795618*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +In[414]:=",ExpressionUUID->"ae87376e-a859-42cd-84ba-de6f46e2e2ad"], -Cell[BoxData["5.642163519289105`"], "Output", - CellChangeTimes->{3.9913237161181736`*^9}, +Cell[BoxData["12.849465664032484`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.993912111736191*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] + "Out[414]=",ExpressionUUID->"e3de8c48-cfaf-4aa6-acaf-387fcdbba247"] }, Open ]], Cell[CellGroupData[{ @@ -9594,7 +10627,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -9616,8 +10651,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -9641,68 +10675,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917997699328365`*^9},ExpressionUUID->"b0b1035a-0fdf-b146-a71f-\ -1ab9142a9a90"], + CellChangeTimes->{3.9917997699328365`*^9}, + CellLabel-> + "In[415]:=",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 110, 41, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237161871567`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6142620210258265`*^-216\\\", \ +RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 415, 49, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993912111788364*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +In[415]:=",ExpressionUUID->"ae570001-9486-4742-ab72-3bfe981e7410"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 42, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162070637`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.755125575464367`*^-222\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 415, 50, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993912111797927*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +In[415]:=",ExpressionUUID->"97bf86aa-1936-4b37-b717-04c29f1b1f96"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 43, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323716227171*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3005334663287504`*^-227\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 415, 51, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.9939121118074427`*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +In[415]:=",ExpressionUUID->"1bf96efa-2a14-4101-81cc-09277784ffad"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 110, 44, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162481613`*^9}, +during this calculation.\"", 2, 415, 52, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993912111817912*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +In[415]:=",ExpressionUUID->"ffeaf6b0-92af-432b-9acc-7a06eefa6fa9"], -Cell[BoxData["7.822805247170038`"], "Output", - CellChangeTimes->{3.991323724852854*^9}, +Cell[BoxData["6.651364514017317`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.993912115626089*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] + "Out[415]=",ExpressionUUID->"49f94328-8713-479c-8267-ecb6a8c31755"] }, Open ]], Cell[CellGroupData[{ @@ -9760,95 +10798,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917997843341885`*^9},ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-\ -ff25938e6592"], + CellChangeTimes->{3.9917997843341885`*^9}, + CellLabel-> + "In[416]:=",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0VesbB3CEZMoQyswxZIpMUfI+oUmmpMziOGeTRCFJhhS5KUNS6Vfm +lGTIUJlSXd2uKyIiSTKf4xAO56Aiv9cfe+31Wc9e3/d5n/XuvbYSOdiRysXB +wUHH19r9zIdt6i86Pphv733l4d9OQ+bTD4zIViXow1T+1TUP5hhnqFg1IHPZ +gyInsB0obbyCBv+gn36Vs2uuiIht4rFqRYc7BzRPYl99t/l1bPFHVOT1oTEQ +u7bjTPayfjeyEY0rCcJm9LVEna/vRWdnFuZPY0uPkdwXLPvR8VXdW6HYh2ai +TENbvyPlA9pp4diNywyBiOIhNPdxcvQ8dk+c1IXnQSPoTWHQzWjsaV4rBkt/ +DNW3Vd+Lw+a9ftrVYHEcVTs1riRgy4tmNZ+pp6Oafddqk7DtZBYeTltOIbXc +YPNb2ESusqQO3zTSU0lcfw87VtU+4WTrDAq3IWvmYfdKfdoeVsxERJtvdBk2 +xS3gxM3rc4hsnVT6DHv2PkdeZdA84q0O2/ESm09ZR4Spz0YRubdc2rAzKE37 +RSQWkJx960w3tuIj11jdxQW01eLfwQFsE+0r06fql9CsM38HE9vf+Hsrw3IZ +Wak1j8h00BAr4iw3v9oKSukhHVTHvlgvYKbB9we5FlnxGWBngskTv9ZV5L+9 +5+YhbEphs1VIMSegdLPBi9jF724OxslwwRLnP+Kp2LM0r6gb17lAtlQ8Lws7 +SpNd9TRoHQw6cf9Xj51RrkSa0eeBpnM77Jax+zqmGv8U8IC79YK90Efc/9wL +N2EJXuAsj3oij11iaJeus8gLkZODwRbYb2sjOQPr+aAsXXBbCja7qes73VIQ +nOvlLxp30pCYjaDIhUZBuJd/c4M9tt4nKxAyFQLSrhvLftgBo89yt28TBu9G +dYV72Ke5WvV2C4rAVoH3x3i7aGhMuYyZsCAKn0eM02axWUTLhnYDMZj66lW5 +8RMNcT0ZV9p8RgzObZIw18VWNFBwLJ4Ug7TPOunB2G6WaZUfBsUhbFhGh43d +7hsSKvVeArqkD2zb1ENDA49SrnnzSYJaZcKEKfbUZHHB472SYOLtIuyNzR82 +0rXrtSQUDjdmlGJbxTsZej+TgvfzWRm2n2mo7oExuyhnC/itivvk9dLQg7Ff +4TvD5ODhu2y9zK80dOBo4kBoqRw00DQb/sWeeiu+r3RcDnYUdBUsYhs+0JZQ +dJWHQWZUoks/nifZq4rHXAF8PXfnyn+jobmZwXP0y4pwmDYp1TBAQ+KnrKqr +bJUhQn2EZDZMQ+MP+P0dApTBdmKj4Tnsmv4OmR9XlEHB6mRuJbaHjedltdfK +sBeeJmuO4P60wh3v6pPAbTS+Tn4Ur894NBsjpQJJFnTPzeM05OQnoGM9pAq6 +OajDgUFDKPyovvOKKvT8JnHfxtZMyNlB2aIGz748T/uKzVFgYBFzWA2iehhV +fpM0VDrg7lz5Rg0OaeYox0/h9/NYSZx0vjqcIXry2qZxf1a2PQyyBqxSU7UL +5mmo4Midr4sxGiCcW3huHjuFPDTIfQ+7LE7GioXP98Wzk/JdGnDFO+XUOLZo +QxbHEUtN6OIQ2aW7gM+PwbRmPUkLPl2kRn1coiEZ5dTYa6PacLB6fbbLHxpq +SGJp/OTSAXPJ2+/qsT3mXT8RSjpw/3WNs8IqDWW/VdGw8NKB5cOvqmjYyn51 +nUufdUDeadYxmpOONEvGVIn324BvQ/+2Bm46kpORJxRd9cBm4jPlLwE60i4M +E/yN9IF8gSHgLk1HZMplto6dPrBl5Lk6sDNJ6QPeHvqQGFt8ZK8MHa3LL3/6 +LkIfZho/8m2XpaO+bIZTeoU+nLp8rl5Qno6uZnpnaZAMYF2noGW3Eh2NX7PZ +5sJrCDOeX4eLNegoL0TF4VmrESwbWeb776SjjnC0I77QFDY+jD1335eOlLy6 +7TwDdwNri3FQbjodUVefl8mdB9hKFDl6vqUjqcma9VJkC7irrfu1nmMChRmY +9adrWsGwg56bGppA5B/LzeKMvRBQkRLNe2kClVqErs9p3w/Elz51dscEesAK +eFOScRD+/E5XuqXIQEt7Nre9jT0EwrMOnL7RDPSNYx1zyMcWku3jmLzfGShI +NjgtjmQPeXp8/gNoEpWdaH59K8EB6MFuqUrlkyhyfsui1onD8Dy1361Odgqx +rfcd+/e4I8SXK1P/d3cKmbrf2DN2+Ais9Fe2GUn/QJ1bsgLeGjjBlfwnmq53 +fiDph5cbirYehcUSFOmjMo1qBjVt7ISOQbHjX04tJdNI/tOsX/iPY2Bk3+qW +ZzyDDG7dKCkYdAYPRmigc8cMyuKe35be5AIK8h+v5myfRc/36PYl1LoCbSD1 +XtelWZS5I0l0udgNzvyx6e7qmkXtXwuvGFx3h4HBZ5V6ikz0zPa+yumLHlBT +vYsZFcpEzFNHOIIonhCse7LG5g0Tsfdp+E9beoFampe2qdAcKvrxZSnU+DjQ +ErhVar3mkEteoa+noDd4VzW5hD6eQ1WVh46vS/SGDv4+9bNLc8hUpvPn1Z/e +kBnU0/kBzSPSoF/fxxM+wL8uQH7x0jwaFThpf3/EBzQM9Kw2N8+jjhQ73/1H +yeAsEpZxk5uFMiJyBM52kIFrvG6d3B4Wamhc/el70Bf0WxJDx8JZaKMHJBrU ++cLcNYndiQUspLjp33bZBl/w77rrbfaAhfRabTfzNvqCQ4qfFBPb0cz9ce8b +X2B1Hzd3fYjzZcPfR//nC9ze1kEqj1lI+tuTjc29vqC6/szOh2UspOIllemx +6AvHUvOKj9WykKn3dFGCIQUi/Q8do7Sx0MO7s6F2xhToNqs3msfe1DVnLmVC +AQMFRnncBxaa3rv4qWgXBYo1tcKy2ln4+8XB2WpBgfs7m007PrKQ8KKoq9hh +CtBqBR4q97DQaLLRhpxTFJC3ux0QOcBCKfVRJ2oeUuCk0k8x5g8WOqV/xzSi +CK9fxFHuO81CNo8rNpgUU+D0vdej3dj8d8YfvyilALc2Sa52hoUSQhwYz6sp +0Luc+CqSyUJRGionn/1NgZTeonoGi4UC7rwPrBygwFiPlEz0bxY6KDxuFjJI +gb4DYm3D2FsTOIT0hykgW1kieWCZhcZDjEorxvB69pdOi66wkI9dzo+nUxT4 +fOSXWc4fFnLhCQ0q/0UB501ZWo842Wh/qPTpEkkqZJ/qW/Bbz0Z/51yxTt9M +hZeVLav/Ypu1zqlESFPhV0vpNXU+NtJTff/FUp4Kt+g82mPYWz5fsPyqSoXk +r5uS3fjZaHLnN0l+Iyr8bCh7oyPERqlcuS/9jlAhb3tY3FkxNuLXFcy0PUoF +Wr9J8z/Y8e4RIQbOVCCejqdKiOP/nGoH9VU3KsQn/Z1Xhe1DcN64TaZCp9ZQ +28QmNjJoIVP+OUOFQx3Gu8yl2OjzDVUBUhoVvv9m8CfKsFEZEvKn36DCoy9H +BJqw43+w3pbepMK8ePa9P9j6B9/GmNyhwuxo+ckwWTZK4fCds82mArX7ZbOb +HBvtC879ElFChfO9lCAxBTaSk/vL2LyMCg5csf77sVktwTfXPaWC7Hsa8wJ2 +vhqyTamigjnX5coR7JVv314X1OH5XGBNlCqyUbWNTNGHZiq4T+Rr6iiz0bVf +XDwZLfh5tRYJd2xyEcPHtZUKheRXqX9hi3DXyYy2U6Fdb0F3GDuw3iX1Zw8V +AuP/U0wjsRFJ83a4yhju9/D4yx4VNvr1ObprYpwKIuV301ewOxKoeuV0KnjX +lrBJqmwUM2TIMJ2iQkZTLxGM3ZfZ5Wk/TwXmviwWhxobpa8X3RvJScCty7U1 +wups1DD3zT1sHQHvSGlb9LFp34pDgngIeN3pPuWEbVZtlUveQMAl3ue0TOxx +74jf1qK4XvPMUHor7t9mr9hecQLmlkJVTLF37RDTQBIEGCUxE5yx04RKjhls +IWB0XDQ7fa1e971CRokAzQ5Q5tJgI6KwpFmCRMBjCcccWey0tPPfN6oSMKzF +SjbGHifEhbg1CKio6H7lv1YX3+8/pUdAZcfFs++w6/6Ix47rE5AVkxTTjz02 +MXhr0BD3+2pliYm983Vk0ycTArTjN1rIaLLRaGCZ/Esg4PzuQBU/bGGXC0Yv +LAjg67eticA2tTxgU2FFAF3y/Mur2Clbhs8XHiBgZ1q2TDF2DXd5Wo41AePb +0sNqsUdmLjy6a0OAj+bf5s3YJu8kupMdCHAyfa82ik2uGJ5MdCQg9Xa2FRM7 ++X451yUnAraO5netYA+HHNQLdyHAUtVwr4QWGwl5Se4/7UaAuU2DuiK2ycER +zwAPAhJaTl7QxE5WiL7m5U1AwFmT8N3YNfzW+S5kAhxeHZbbhz3Mlqx1pBAg +fy/JyG4tb2ik3YYg4Ib3UOPRtbzWp+P7/PG8451qPbDJL6JXIICAgrvDKr5r ++fnWm3YFEsBjn8R5Yi0/WUrLKIiAuDPW9kFr+RGje3RPE6AwqSQcii1IqXDR +CMH7adpofg57h31MMCmMACl58e+Ra/k7D12RCyegZrcWMxr7uurmLKkIAiTj +nMMuYj8XGasSjSQglnLH/xL20O+KFoEoAuLjGG2X1/JpMUM8MQT8TnF4EI9t +3HloaTWWAA6f/ybX/H/ftP54 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -9862,107 +10899,106 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1nk0VesbB3CEZMoQyswxZIpMUfI+oUmmpMziOGeTRCFJhhS5KUNS6Vfm +lGTIUJlSXd2uKyIiSTKf4xAO56Aiv9cfe+31Wc9e3/d5n/XuvbYSOdiRysXB +wUHH19r9zIdt6i86Pphv733l4d9OQ+bTD4zIViXow1T+1TUP5hhnqFg1IHPZ +gyInsB0obbyCBv+gn36Vs2uuiIht4rFqRYc7BzRPYl99t/l1bPFHVOT1oTEQ +u7bjTPayfjeyEY0rCcJm9LVEna/vRWdnFuZPY0uPkdwXLPvR8VXdW6HYh2ai +TENbvyPlA9pp4diNywyBiOIhNPdxcvQ8dk+c1IXnQSPoTWHQzWjsaV4rBkt/ +DNW3Vd+Lw+a9ftrVYHEcVTs1riRgy4tmNZ+pp6Oafddqk7DtZBYeTltOIbXc +YPNb2ESusqQO3zTSU0lcfw87VtU+4WTrDAq3IWvmYfdKfdoeVsxERJtvdBk2 +xS3gxM3rc4hsnVT6DHv2PkdeZdA84q0O2/ESm09ZR4Spz0YRubdc2rAzKE37 +RSQWkJx960w3tuIj11jdxQW01eLfwQFsE+0r06fql9CsM38HE9vf+Hsrw3IZ +Wak1j8h00BAr4iw3v9oKSukhHVTHvlgvYKbB9we5FlnxGWBngskTv9ZV5L+9 +5+YhbEphs1VIMSegdLPBi9jF724OxslwwRLnP+Kp2LM0r6gb17lAtlQ8Lws7 +SpNd9TRoHQw6cf9Xj51RrkSa0eeBpnM77Jax+zqmGv8U8IC79YK90Efc/9wL +N2EJXuAsj3oij11iaJeus8gLkZODwRbYb2sjOQPr+aAsXXBbCja7qes73VIQ +nOvlLxp30pCYjaDIhUZBuJd/c4M9tt4nKxAyFQLSrhvLftgBo89yt28TBu9G +dYV72Ke5WvV2C4rAVoH3x3i7aGhMuYyZsCAKn0eM02axWUTLhnYDMZj66lW5 +8RMNcT0ZV9p8RgzObZIw18VWNFBwLJ4Ug7TPOunB2G6WaZUfBsUhbFhGh43d +7hsSKvVeArqkD2zb1ENDA49SrnnzSYJaZcKEKfbUZHHB472SYOLtIuyNzR82 +0rXrtSQUDjdmlGJbxTsZej+TgvfzWRm2n2mo7oExuyhnC/itivvk9dLQg7Ff +4TvD5ODhu2y9zK80dOBo4kBoqRw00DQb/sWeeiu+r3RcDnYUdBUsYhs+0JZQ +dJWHQWZUoks/nifZq4rHXAF8PXfnyn+jobmZwXP0y4pwmDYp1TBAQ+KnrKqr +bJUhQn2EZDZMQ+MP+P0dApTBdmKj4Tnsmv4OmR9XlEHB6mRuJbaHjedltdfK +sBeeJmuO4P60wh3v6pPAbTS+Tn4Ur894NBsjpQJJFnTPzeM05OQnoGM9pAq6 +OajDgUFDKPyovvOKKvT8JnHfxtZMyNlB2aIGz748T/uKzVFgYBFzWA2iehhV +fpM0VDrg7lz5Rg0OaeYox0/h9/NYSZx0vjqcIXry2qZxf1a2PQyyBqxSU7UL +5mmo4Midr4sxGiCcW3huHjuFPDTIfQ+7LE7GioXP98Wzk/JdGnDFO+XUOLZo +QxbHEUtN6OIQ2aW7gM+PwbRmPUkLPl2kRn1coiEZ5dTYa6PacLB6fbbLHxpq +SGJp/OTSAXPJ2+/qsT3mXT8RSjpw/3WNs8IqDWW/VdGw8NKB5cOvqmjYyn51 +nUufdUDeadYxmpOONEvGVIn324BvQ/+2Bm46kpORJxRd9cBm4jPlLwE60i4M +E/yN9IF8gSHgLk1HZMplto6dPrBl5Lk6sDNJ6QPeHvqQGFt8ZK8MHa3LL3/6 +LkIfZho/8m2XpaO+bIZTeoU+nLp8rl5Qno6uZnpnaZAMYF2noGW3Eh2NX7PZ +5sJrCDOeX4eLNegoL0TF4VmrESwbWeb776SjjnC0I77QFDY+jD1335eOlLy6 +7TwDdwNri3FQbjodUVefl8mdB9hKFDl6vqUjqcma9VJkC7irrfu1nmMChRmY +9adrWsGwg56bGppA5B/LzeKMvRBQkRLNe2kClVqErs9p3w/Elz51dscEesAK +eFOScRD+/E5XuqXIQEt7Nre9jT0EwrMOnL7RDPSNYx1zyMcWku3jmLzfGShI +NjgtjmQPeXp8/gNoEpWdaH59K8EB6MFuqUrlkyhyfsui1onD8Dy1361Odgqx +rfcd+/e4I8SXK1P/d3cKmbrf2DN2+Ais9Fe2GUn/QJ1bsgLeGjjBlfwnmq53 +fiDph5cbirYehcUSFOmjMo1qBjVt7ISOQbHjX04tJdNI/tOsX/iPY2Bk3+qW +ZzyDDG7dKCkYdAYPRmigc8cMyuKe35be5AIK8h+v5myfRc/36PYl1LoCbSD1 +XtelWZS5I0l0udgNzvyx6e7qmkXtXwuvGFx3h4HBZ5V6ikz0zPa+yumLHlBT +vYsZFcpEzFNHOIIonhCse7LG5g0Tsfdp+E9beoFampe2qdAcKvrxZSnU+DjQ +ErhVar3mkEteoa+noDd4VzW5hD6eQ1WVh46vS/SGDv4+9bNLc8hUpvPn1Z/e +kBnU0/kBzSPSoF/fxxM+wL8uQH7x0jwaFThpf3/EBzQM9Kw2N8+jjhQ73/1H +yeAsEpZxk5uFMiJyBM52kIFrvG6d3B4Wamhc/el70Bf0WxJDx8JZaKMHJBrU ++cLcNYndiQUspLjp33bZBl/w77rrbfaAhfRabTfzNvqCQ4qfFBPb0cz9ce8b +X2B1Hzd3fYjzZcPfR//nC9ze1kEqj1lI+tuTjc29vqC6/szOh2UspOIllemx +6AvHUvOKj9WykKn3dFGCIQUi/Q8do7Sx0MO7s6F2xhToNqs3msfe1DVnLmVC +AQMFRnncBxaa3rv4qWgXBYo1tcKy2ln4+8XB2WpBgfs7m007PrKQ8KKoq9hh +CtBqBR4q97DQaLLRhpxTFJC3ux0QOcBCKfVRJ2oeUuCk0k8x5g8WOqV/xzSi +CK9fxFHuO81CNo8rNpgUU+D0vdej3dj8d8YfvyilALc2Sa52hoUSQhwYz6sp +0Luc+CqSyUJRGionn/1NgZTeonoGi4UC7rwPrBygwFiPlEz0bxY6KDxuFjJI +gb4DYm3D2FsTOIT0hykgW1kieWCZhcZDjEorxvB69pdOi66wkI9dzo+nUxT4 +fOSXWc4fFnLhCQ0q/0UB501ZWo842Wh/qPTpEkkqZJ/qW/Bbz0Z/51yxTt9M +hZeVLav/Ypu1zqlESFPhV0vpNXU+NtJTff/FUp4Kt+g82mPYWz5fsPyqSoXk +r5uS3fjZaHLnN0l+Iyr8bCh7oyPERqlcuS/9jlAhb3tY3FkxNuLXFcy0PUoF +Wr9J8z/Y8e4RIQbOVCCejqdKiOP/nGoH9VU3KsQn/Z1Xhe1DcN64TaZCp9ZQ +28QmNjJoIVP+OUOFQx3Gu8yl2OjzDVUBUhoVvv9m8CfKsFEZEvKn36DCoy9H +BJqw43+w3pbepMK8ePa9P9j6B9/GmNyhwuxo+ckwWTZK4fCds82mArX7ZbOb +HBvtC879ElFChfO9lCAxBTaSk/vL2LyMCg5csf77sVktwTfXPaWC7Hsa8wJ2 +vhqyTamigjnX5coR7JVv314X1OH5XGBNlCqyUbWNTNGHZiq4T+Rr6iiz0bVf +XDwZLfh5tRYJd2xyEcPHtZUKheRXqX9hi3DXyYy2U6Fdb0F3GDuw3iX1Zw8V +AuP/U0wjsRFJ83a4yhju9/D4yx4VNvr1ObprYpwKIuV301ewOxKoeuV0KnjX +lrBJqmwUM2TIMJ2iQkZTLxGM3ZfZ5Wk/TwXmviwWhxobpa8X3RvJScCty7U1 +wups1DD3zT1sHQHvSGlb9LFp34pDgngIeN3pPuWEbVZtlUveQMAl3ue0TOxx +74jf1qK4XvPMUHor7t9mr9hecQLmlkJVTLF37RDTQBIEGCUxE5yx04RKjhls +IWB0XDQ7fa1e971CRokAzQ5Q5tJgI6KwpFmCRMBjCcccWey0tPPfN6oSMKzF +SjbGHifEhbg1CKio6H7lv1YX3+8/pUdAZcfFs++w6/6Ix47rE5AVkxTTjz02 +MXhr0BD3+2pliYm983Vk0ycTArTjN1rIaLLRaGCZ/Esg4PzuQBU/bGGXC0Yv +LAjg67eticA2tTxgU2FFAF3y/Mur2Clbhs8XHiBgZ1q2TDF2DXd5Wo41AePb +0sNqsUdmLjy6a0OAj+bf5s3YJu8kupMdCHAyfa82ik2uGJ5MdCQg9Xa2FRM7 ++X451yUnAraO5netYA+HHNQLdyHAUtVwr4QWGwl5Se4/7UaAuU2DuiK2ycER +zwAPAhJaTl7QxE5WiL7m5U1AwFmT8N3YNfzW+S5kAhxeHZbbhz3Mlqx1pBAg +fy/JyG4tb2ik3YYg4Ib3UOPRtbzWp+P7/PG8451qPbDJL6JXIICAgrvDKr5r ++fnWm3YFEsBjn8R5Yi0/WUrLKIiAuDPW9kFr+RGje3RPE6AwqSQcii1IqXDR +CMH7adpofg57h31MMCmMACl58e+Ra/k7D12RCyegZrcWMxr7uurmLKkIAiTj +nMMuYj8XGasSjSQglnLH/xL20O+KFoEoAuLjGG2X1/JpMUM8MQT8TnF4EI9t +3HloaTWWAA6f/ybX/H/ftP54 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.7440683185111593, + 1.3231248102584345`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.744068318511161}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -9974,21 +11010,21 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.7440683185111593, + 1.3231248102584345`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.744068318511161}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10002,105 +11038,104 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1nk0VesbB3CEZMoQyswxZIpMUfI+oUmmpMziOGeTRCFJhhS5KUNS6Vfm +lGTIUJlSXd2uKyIiSTKf4xAO56Aiv9cfe+31Wc9e3/d5n/XuvbYSOdiRysXB +wUHH19r9zIdt6i86Pphv733l4d9OQ+bTD4zIViXow1T+1TUP5hhnqFg1IHPZ +gyInsB0obbyCBv+gn36Vs2uuiIht4rFqRYc7BzRPYl99t/l1bPFHVOT1oTEQ +u7bjTPayfjeyEY0rCcJm9LVEna/vRWdnFuZPY0uPkdwXLPvR8VXdW6HYh2ai +TENbvyPlA9pp4diNywyBiOIhNPdxcvQ8dk+c1IXnQSPoTWHQzWjsaV4rBkt/ +DNW3Vd+Lw+a9ftrVYHEcVTs1riRgy4tmNZ+pp6Oafddqk7DtZBYeTltOIbXc +YPNb2ESusqQO3zTSU0lcfw87VtU+4WTrDAq3IWvmYfdKfdoeVsxERJtvdBk2 +xS3gxM3rc4hsnVT6DHv2PkdeZdA84q0O2/ESm09ZR4Spz0YRubdc2rAzKE37 +RSQWkJx960w3tuIj11jdxQW01eLfwQFsE+0r06fql9CsM38HE9vf+Hsrw3IZ +Wak1j8h00BAr4iw3v9oKSukhHVTHvlgvYKbB9we5FlnxGWBngskTv9ZV5L+9 +5+YhbEphs1VIMSegdLPBi9jF724OxslwwRLnP+Kp2LM0r6gb17lAtlQ8Lws7 +SpNd9TRoHQw6cf9Xj51RrkSa0eeBpnM77Jax+zqmGv8U8IC79YK90Efc/9wL +N2EJXuAsj3oij11iaJeus8gLkZODwRbYb2sjOQPr+aAsXXBbCja7qes73VIQ +nOvlLxp30pCYjaDIhUZBuJd/c4M9tt4nKxAyFQLSrhvLftgBo89yt28TBu9G +dYV72Ke5WvV2C4rAVoH3x3i7aGhMuYyZsCAKn0eM02axWUTLhnYDMZj66lW5 +8RMNcT0ZV9p8RgzObZIw18VWNFBwLJ4Ug7TPOunB2G6WaZUfBsUhbFhGh43d +7hsSKvVeArqkD2zb1ENDA49SrnnzSYJaZcKEKfbUZHHB472SYOLtIuyNzR82 +0rXrtSQUDjdmlGJbxTsZej+TgvfzWRm2n2mo7oExuyhnC/itivvk9dLQg7Ff +4TvD5ODhu2y9zK80dOBo4kBoqRw00DQb/sWeeiu+r3RcDnYUdBUsYhs+0JZQ +dJWHQWZUoks/nifZq4rHXAF8PXfnyn+jobmZwXP0y4pwmDYp1TBAQ+KnrKqr +bJUhQn2EZDZMQ+MP+P0dApTBdmKj4Tnsmv4OmR9XlEHB6mRuJbaHjedltdfK +sBeeJmuO4P60wh3v6pPAbTS+Tn4Ur894NBsjpQJJFnTPzeM05OQnoGM9pAq6 +OajDgUFDKPyovvOKKvT8JnHfxtZMyNlB2aIGz748T/uKzVFgYBFzWA2iehhV +fpM0VDrg7lz5Rg0OaeYox0/h9/NYSZx0vjqcIXry2qZxf1a2PQyyBqxSU7UL +5mmo4Midr4sxGiCcW3huHjuFPDTIfQ+7LE7GioXP98Wzk/JdGnDFO+XUOLZo +QxbHEUtN6OIQ2aW7gM+PwbRmPUkLPl2kRn1coiEZ5dTYa6PacLB6fbbLHxpq +SGJp/OTSAXPJ2+/qsT3mXT8RSjpw/3WNs8IqDWW/VdGw8NKB5cOvqmjYyn51 +nUufdUDeadYxmpOONEvGVIn324BvQ/+2Bm46kpORJxRd9cBm4jPlLwE60i4M +E/yN9IF8gSHgLk1HZMplto6dPrBl5Lk6sDNJ6QPeHvqQGFt8ZK8MHa3LL3/6 +LkIfZho/8m2XpaO+bIZTeoU+nLp8rl5Qno6uZnpnaZAMYF2noGW3Eh2NX7PZ +5sJrCDOeX4eLNegoL0TF4VmrESwbWeb776SjjnC0I77QFDY+jD1335eOlLy6 +7TwDdwNri3FQbjodUVefl8mdB9hKFDl6vqUjqcma9VJkC7irrfu1nmMChRmY +9adrWsGwg56bGppA5B/LzeKMvRBQkRLNe2kClVqErs9p3w/Elz51dscEesAK +eFOScRD+/E5XuqXIQEt7Nre9jT0EwrMOnL7RDPSNYx1zyMcWku3jmLzfGShI +NjgtjmQPeXp8/gNoEpWdaH59K8EB6MFuqUrlkyhyfsui1onD8Dy1361Odgqx +rfcd+/e4I8SXK1P/d3cKmbrf2DN2+Ais9Fe2GUn/QJ1bsgLeGjjBlfwnmq53 +fiDph5cbirYehcUSFOmjMo1qBjVt7ISOQbHjX04tJdNI/tOsX/iPY2Bk3+qW +ZzyDDG7dKCkYdAYPRmigc8cMyuKe35be5AIK8h+v5myfRc/36PYl1LoCbSD1 +XtelWZS5I0l0udgNzvyx6e7qmkXtXwuvGFx3h4HBZ5V6ikz0zPa+yumLHlBT +vYsZFcpEzFNHOIIonhCse7LG5g0Tsfdp+E9beoFampe2qdAcKvrxZSnU+DjQ +ErhVar3mkEteoa+noDd4VzW5hD6eQ1WVh46vS/SGDv4+9bNLc8hUpvPn1Z/e +kBnU0/kBzSPSoF/fxxM+wL8uQH7x0jwaFThpf3/EBzQM9Kw2N8+jjhQ73/1H +yeAsEpZxk5uFMiJyBM52kIFrvG6d3B4Wamhc/el70Bf0WxJDx8JZaKMHJBrU ++cLcNYndiQUspLjp33bZBl/w77rrbfaAhfRabTfzNvqCQ4qfFBPb0cz9ce8b +X2B1Hzd3fYjzZcPfR//nC9ze1kEqj1lI+tuTjc29vqC6/szOh2UspOIllemx +6AvHUvOKj9WykKn3dFGCIQUi/Q8do7Sx0MO7s6F2xhToNqs3msfe1DVnLmVC +AQMFRnncBxaa3rv4qWgXBYo1tcKy2ln4+8XB2WpBgfs7m007PrKQ8KKoq9hh +CtBqBR4q97DQaLLRhpxTFJC3ux0QOcBCKfVRJ2oeUuCk0k8x5g8WOqV/xzSi +CK9fxFHuO81CNo8rNpgUU+D0vdej3dj8d8YfvyilALc2Sa52hoUSQhwYz6sp +0Luc+CqSyUJRGionn/1NgZTeonoGi4UC7rwPrBygwFiPlEz0bxY6KDxuFjJI +gb4DYm3D2FsTOIT0hykgW1kieWCZhcZDjEorxvB69pdOi66wkI9dzo+nUxT4 +fOSXWc4fFnLhCQ0q/0UB501ZWo842Wh/qPTpEkkqZJ/qW/Bbz0Z/51yxTt9M +hZeVLav/Ypu1zqlESFPhV0vpNXU+NtJTff/FUp4Kt+g82mPYWz5fsPyqSoXk +r5uS3fjZaHLnN0l+Iyr8bCh7oyPERqlcuS/9jlAhb3tY3FkxNuLXFcy0PUoF +Wr9J8z/Y8e4RIQbOVCCejqdKiOP/nGoH9VU3KsQn/Z1Xhe1DcN64TaZCp9ZQ +28QmNjJoIVP+OUOFQx3Gu8yl2OjzDVUBUhoVvv9m8CfKsFEZEvKn36DCoy9H +BJqw43+w3pbepMK8ePa9P9j6B9/GmNyhwuxo+ckwWTZK4fCds82mArX7ZbOb +HBvtC879ElFChfO9lCAxBTaSk/vL2LyMCg5csf77sVktwTfXPaWC7Hsa8wJ2 +vhqyTamigjnX5coR7JVv314X1OH5XGBNlCqyUbWNTNGHZiq4T+Rr6iiz0bVf +XDwZLfh5tRYJd2xyEcPHtZUKheRXqX9hi3DXyYy2U6Fdb0F3GDuw3iX1Zw8V +AuP/U0wjsRFJ83a4yhju9/D4yx4VNvr1ObprYpwKIuV301ewOxKoeuV0KnjX +lrBJqmwUM2TIMJ2iQkZTLxGM3ZfZ5Wk/TwXmviwWhxobpa8X3RvJScCty7U1 +wups1DD3zT1sHQHvSGlb9LFp34pDgngIeN3pPuWEbVZtlUveQMAl3ue0TOxx +74jf1qK4XvPMUHor7t9mr9hecQLmlkJVTLF37RDTQBIEGCUxE5yx04RKjhls +IWB0XDQ7fa1e971CRokAzQ5Q5tJgI6KwpFmCRMBjCcccWey0tPPfN6oSMKzF +SjbGHifEhbg1CKio6H7lv1YX3+8/pUdAZcfFs++w6/6Ix47rE5AVkxTTjz02 +MXhr0BD3+2pliYm983Vk0ycTArTjN1rIaLLRaGCZ/Esg4PzuQBU/bGGXC0Yv +LAjg67eticA2tTxgU2FFAF3y/Mur2Clbhs8XHiBgZ1q2TDF2DXd5Wo41AePb +0sNqsUdmLjy6a0OAj+bf5s3YJu8kupMdCHAyfa82ik2uGJ5MdCQg9Xa2FRM7 ++X451yUnAraO5netYA+HHNQLdyHAUtVwr4QWGwl5Se4/7UaAuU2DuiK2ycER +zwAPAhJaTl7QxE5WiL7m5U1AwFmT8N3YNfzW+S5kAhxeHZbbhz3Mlqx1pBAg +fy/JyG4tb2ik3YYg4Ib3UOPRtbzWp+P7/PG8451qPbDJL6JXIICAgrvDKr5r ++fnWm3YFEsBjn8R5Yi0/WUrLKIiAuDPW9kFr+RGje3RPE6AwqSQcii1IqXDR +CMH7adpofg57h31MMCmMACl58e+Ra/k7D12RCyegZrcWMxr7uurmLKkIAiTj +nMMuYj8XGasSjSQglnLH/xL20O+KFoEoAuLjGG2X1/JpMUM8MQT8TnF4EI9t +3HloaTWWAA6f/ybX/H/ftP54 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.7440683185111593, 1.3231248102584345`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.744068318511161}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10110,7 +11145,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5082122808512888}, + AxesOrigin->{0, 0.744068318511161}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10138,7 +11174,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7440683185111593, 1.3231248102584345`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10146,9 +11183,9 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913242457281837`*^9}, + CellChangeTimes->{3.9913242457281837`*^9, 3.993912402238702*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] + "Out[416]=",ExpressionUUID->"627a9fac-5273-4c5f-9972-fe0a019a7489"] }, Open ]], Cell[CellGroupData[{ @@ -10163,7 +11200,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -10185,8 +11224,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -10211,158 +11249,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9917997871187477`*^9, - 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ -d12d9d52c36b"], + CellChangeTimes->{{3.9917997871187477`*^9, 3.991799792469698*^9}}, + CellLabel-> + "In[417]:=",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 112, - 45, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246104725*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2023729013333779`*^-275\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 417, + 53, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993912402372052*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +In[417]:=",ExpressionUUID->"eed9319d-61c5-4cbc-8abb-ef5e730d3bd6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.3396686823383758`*^-287\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 417, + 54, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993912402379848*^9}, + CellLabel-> + "During evaluation of \ +In[417]:=",ExpressionUUID->"77944505-cc3c-4111-909f-e1d2d66779ac"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.492641905392233`*^-299\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 112, 46, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461217346`*^9}, + 417, 55, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993912402386743*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 112, 47, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461427383`*^9}, - CellLabel-> - "During evaluation of \ -In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +In[417]:=",ExpressionUUID->"3701580d-d694-4225-9e16-a3fb17132f5a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246159645*^9}, +during this calculation.\"", 2, 417, 56, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993912402392991*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +In[417]:=",ExpressionUUID->"c275d6ea-0331-485b-9d71-2a67e93f38ed"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VdsXAHAlRRmKkszuPfcaMkRF5FoLZWwUzaXIPBOFjCUqIUTmlGS4 +51ReiSSKol6jlOk9lYZXGsxj4bd/f53P93POPnvvs9daZ6k4+dm5zBYQEJgz +S0Dg/9fR7seN1Jkik4R5b9x2zjE0ac2XCTVtjwXta38V3B+UBlzywkmmPRXS +X354eHaQCyFbytoE2y9BTbB0hM+gPiz6tTR1oq0CMjUcvpkPWsC7u5v8htse +QNHmbOfHA9vBgur9d6CtBcKfTlmO9LnCRJvB+f62HvC08jC+8TUEGsyvFr26 +NAQfehcK19TGg/y76i9OmlNwycUi+nf4OVjs7Vg2z1wQNeOd3h5+lQGpuhY1 +mxyEcXrsvpfGnlzouLCifmChGKZfixF5n38RzhRFvZi9bBGKm7nO+ElfhqXp +H0+l5Umh52LNAbFNVyDe3tqkZXQJOu6PqrTTvApBhoWOj2NlUFi/1mj9WAms +65sM8/0oi06Z4boSHmUQapWucf+HLG6rbexd71sGTKFWp9SoLPLFb6mEBpWB +jP0Bw2phOUxQ85r3JqIMflQ9HBPUlkPhL0fKnFLLIC025XDWUTmUkv8p9eZO +GfQs4fo2ismjU9r6hsUi5RBjvPWg7BoFFN/rmjicXQ5W+/MHDcwUcPWTqllX +C8pBPPr7cYcNCuh4zsbSoagcchviilMOKOA9h1tmV+hyqLK5833uKQV8I3Zp +TLK+HPp3skOGOhTw4NtF6zmfymF/8Mjpp+GK+On61mlKnQ+cTDP53jhFXPD1 +jMNWLT5ZbzI9L0URHT9ZhIfq8iHsj/pLsyJF/G/JBr1aQz6cP75/SfVTRfxy +i7tZ0oYPT881FVxRUMI8VdENQx58MGKybkbWKeHypUubUor5sK7t+dSvZiWU +S9C9Ml7Kh00CcywdW5TQ6CfdvZfmg7Odbwd8VsK3xnBI9iYfLMJVoqKFlNEr +f2Gtx30++CuNXjZdroz1w1YPdnXxodGt4GdDiDI+uD6tFi1Kg/UfQ8lj4coo +8/FPVZAEDc9TWvVXRSujSNu+UmdJGjqqRaKLTikjO2EZf40MDb8WHJaMy1VG +ycg9cJtNg8x1KwOLB8ro4BL/fK4RDd7jA9HNYiroOXeL6YAzDUYBrtJfJFVQ +yHvkU7ErDcK9neWCMir41nzOlp0eNFzpanhrwlLBvILuCMaXhu575zVv6atg +xj0Tc7VQGjbHGbYXOpLx6fnPtp6lQXGa9qk7pIKJ7C/Sjck0/AhhCf7roYJe +ScLaeqk0JLgv0JY5rIJ9H3OaZmXSUG/77/GkBBUES+ebvhdp0JOM0Qm/oYKR +EQ87oypoEDgz0nihUgUlSJhcu0n2L+i5u7JGBfeNO3p2VtLgNWIXN/BQBYXj +R7ZQNTQUtVNdbp0qWGW5dOXJBhqkC5pP2guyUDIx817saxomli/s1nJgYS+b +X+vUT8NonmzMyt0snKfcIDh3kIZhCQ5l6MjC1b/4268Mke85ZOi5zoOFvOr1 +nPZRGnpqnEd3R7DQb6IlWHyKhie2t8UTrrAw1BQ97gkz0FR7/8bZMha2xek1 +sOYz0Kjz1D7tGgsP9CWsPL6AgXtSH7Lzq1no+qBn1xpxBiq65qveesZC+s/k +8yApBrK99kPPCAtFf3f16igwkPmve89/kyxUFH405qDIQPrmoLifMyxssQnk +HFViIGllwt/jImzsd2r8fF2FgdjfN3ZIKLJx1vP9YsMcBqJ87k4uZrOxTMhl +5W8uA8fePcqTVWNjsfvVqGlVBkIauj5y9NiYY8Y/O6HOgNcZIX9jCzbW/QhI +u6/FgPuUhJSZLRsXNUvMlGoz4OonW2m5hY2sW+kZSToMHNim88duNxuPpBts +2KDLgL3crgQPXzZqL7L4krWKAeNy/sWMDPJ8q3x4pBEDXcrlBetz2Jg81J+o +uJaBsIzS/OECNsZdLrCvIb4dU5xrV8rG8s/zhb8bM6C38+IF8btsDJopW8gG +Bl49y8+srSf7afnQU0Lsb56X4f2QjVtapvyWIwOMdnb6k+dk/j+Ha7mmDKgL +paec/MDGs7e9DEbNGGgOS01e/YWNft2vBw+ak/30pyR96iX3wzf5PiEu6jqb +aDZM1vtNruTcOgbMtyaeGRhn43RwvVs/cc+j06cvTrHRZEC213Y9A8oV8QnT +cynMm8o2nCCuUz0ZTy+gUDNOWtjWgoH9eSdO7l1IYeh/QzlZxDkJMSfuLKPQ +7FectJYlA0bTUcc9FCn8UZ0+HUDcHhQZK8OmUJ2pZv4ilnYMjw7RpPCdtICn +lhUDt1pDozi65PmOqBAXYnubo5GtqymUdmrZmE08VBcScdyIwhzlkv6/iVNX +Bx/TAwq58yscJ4l1y4PCP5hTmJJRmMOxZuClcmBYihWFCfVqVzYS+2b4h8JG +Cu2EJo8FEouJ+h39tZVCv0PN7HRifozPkbztFO51tMyuILYZ8wrZsIdCowmN +D8+Iv3l7Bv92pPBcperEZ+KEHvfDZYconMgd7JkkVt3pFrTLg8LHeqYFojYM +PHrmEijsS2F35GNtOWIX80MBtwMp1BM2S+USz6l28nc9QmHZm4NPtIkvax/0 +W3KMwhqf920ric2KHH0boylkvQ2uWU38ftl+n6A4CpPSOoNXEUcl7/VmnabQ +ubRp3gpiRaE9Xq+SKHTKGg1QI74btsszOo3s11nllgLxnv4dHjoXKHxxYnaL +BPGky3b37lwKv4zbP54m68/qsnc7W0hhg0FrTi/xmq3bXI2LKYzUN7Z5Tdz2 +aKvL9zIKr7tav6kiDjHecij7GoVYWcXLIV5SscnZ+iaFQ0mWJ8KIb6pudBqv +onDd279KtxMPSNoc2P6AwmlGMV2IuN2b9dKziUKdghCnVnJ+9Y8mIeophb3T +o3EFxClh5UolbynMdLV8qUF8tPV48t0uCimcM9FL4ueA9t6Zl+8pPLq8Iewq +8Yoe0XcTvRSqiqqdXUIsY/x5k3g/heML6pWaSHwKZNTeY42Q+NE1kQgmfmHt +m287Q+Eh5XbhRyS+fW+82JcnxUHDfxfHGpN82L6g5NkNGQ5eavVa+orkj4lL +NO+RAgerx5MXORGLLdNV6FPlYM1uWBNK8o8fnfoPGnPQs2K31zGSr+mdnhsc +TDmY9kzffJjk87FV5nc9LDhYEtkX705s+3UoJ3ULB8OV5++1MGGgd7PDnk+H +OLiPnWzbRupFS6nW3+MeZL7do8V6xHcE564V8+PgFcGAI6dJvTl1u1JWP5SD +FVlN4TqGDKgpyXTGn+Xgnu7lOpv1GVgY2m+dm8rBu/57tyStZmC8pbn6eiYH +RV9N/XpM6lfzydCsjkIO6nx8WqK/kgG3X507l1dycMbaTvMLqX+brP5qhhoO +Hlav2S5CrH/pzBr7eg4W1y+dp07q5dztxjIRTzgof2x8ap8mA8W1eW3PuzmY +UZ/klK/GwKfEA9sD53HxnHfOZKgy+b69mqwVolzM06NO/L++j1lO/Py5kIsx +mh5LDpP6P18wNc5Dlou3DBrsnOTJeYY23DygxUVOv7idnAwDES5cqc3buBhZ +IKkjIEHmbxjsFt3JRa0Rn8IXYiRelOvKnuzlopARSyNX9P/1boeZhSsXNfNt +YjXJ/+rJ1lMBvFAuWrVddtMQIvXH5MeL5QVcPFo1qz1nkoaLOVU53y5zsfjT +LyXeBA3qEyfcrpZwsS5y9dmuMRqMbyrMsCq4eHpNbpfECA3OGpu1ZR9yUeaf +aKftfTRcl65IFP7ORerT/r49H0l/03fE+rO+Ku7/du3Z5sc0yOsqnhQ2VsUx +pZJbgU3k/xvY+GC5qSr2/9zhnvqQhvTRhcaBtqoYOvFDr/k+6UemSrVnHFVR +BL2jxe7QECj6j9SyU6oYV6wuK1BGQ7Y6dm/oUkWf3To2SfGk//H6Iuv/XhUL +Z2+bszGOBqATd6R9VsXZKYEVwsdp+LSi42VHnyqOtn/tC4mkQXtNYIPrHDWs +rC1YrBNMQ4NFUUm0lhq+1u7SknAi/Y2zcNDNKDU8Mxg6lmlI1pu/rrbuhBpO +x/oJzzGgoa8jet7fp9Sw8Xmdnc8qGgY3T+R8SFPD4o7zFwx0aBhb29soXqKG +Jg81xcopGmYvfirt8VINZb7m1oiTfm9ZY/IdBRV1DGlIsmr5QPpHauns+Afq +KF7U8jQtig/fnCxL1jap446tQtIpx/iQWHhkU//f6hicKWxyOpQPrxXbs3e9 +UceZj93aR4P4cGBZ1krNr+p4NNm5wsiND6Hici6vxDRw9mkB/T2b+MAfV2yW +26WBsQfc3i2S44PkM27S9T4NbB6eSkljykE+4doWfX1NnNGH2lNlZXBhueFC +KTctDOoKmzTOK4Unsqarh85pI9fIYvpHdAkYyT9I0Xmrg+eW2dvXGF0FccFL +hw/GrsBXLzydONNXQDFGyXgXVxfpF8YBJ/OLQISzt9KuSRe73H7UGJheBm3e +smtH9umhyuvBPK/fhRDYLdlgI7ASo4rkLKvyLkLfUKKD9YWVOCS5Jku/Jh8s +dR5lW2utwpOM7nOjnblwb2jt77Hnq/Cc1MX1Lu1Z4Kup1/nKZTU+sXqoXpib +Cbxfh1p3iejjT1ul3S6bz8N6Smaj2CV99DTnNklYpYFa9OmjDwwMUPvi8E4T +j3Og4WJYx+k0wLprzRvCRJLB5Z77iZsBa9B9/sEo/YYzUHex9dDAEkOEcV/H +M5EJMFwyM6Zz2xDvTrPneKbEgTOnXCR7oxEKdVdtiJQ8DgMaafoV/UboP625 +IqMgGqqKfn8YSViL8yQKok8pR8DudWxcq2iMjgtmLbCICAU5n/hq7Xpj9Dl3 +uTh/NBiWzPe+sXEHD4u9u+Xd5gdBkXlEWP8uHgZOWTYoTAeCXkSSedpeHkrK +XurrHAiETf3X37Qf5KHd3Wsv3TsC4eTbkQlnbx6qHPwa0FISCOOXoszCYnjo +LlKq2GUVCJ1r014Xl/PQ6fe31BtnA8A9uCjXmuHhlNnYwVWxATDK3HL5cZ2H +jkO2XrUhASDJah/TreThwY497B7HALAVVpCvrefhh9Xi/wXrBcDd1uJDr9/w +UK77K7+x3R9sxKu0Qtp5WP3PeaGyZ/7Qbvl4VKaLh6zRjsDzD/xh+M73hP3v +edhpUR8TyfcHrcIV9LdeHrY/XauTFe0PdztNQxJ/8vDR7LZeJpi8b/E20Okn +88lAyRNPf3CND351eIRH4ldKabEDeV/9yeyl4zzs0Xv52tTGH2InM53vTPJQ +wHw8Ohj8YeGqUs19U2S8/Srq2ip/yPe5MzIzw8PkJs2aX+r+8D/GrFVv "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10376,117 +11416,115 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV1nk8VdsXAHAlRRmKkszuPfcaMkRF5FoLZWwUzaXIPBOFjCUqIUTmlGS4 +51ReiSSKol6jlOk9lYZXGsxj4bd/f53P93POPnvvs9daZ6k4+dm5zBYQEJgz +S0Dg/9fR7seN1Jkik4R5b9x2zjE0ac2XCTVtjwXta38V3B+UBlzywkmmPRXS +X354eHaQCyFbytoE2y9BTbB0hM+gPiz6tTR1oq0CMjUcvpkPWsC7u5v8htse +QNHmbOfHA9vBgur9d6CtBcKfTlmO9LnCRJvB+f62HvC08jC+8TUEGsyvFr26 +NAQfehcK19TGg/y76i9OmlNwycUi+nf4OVjs7Vg2z1wQNeOd3h5+lQGpuhY1 +mxyEcXrsvpfGnlzouLCifmChGKZfixF5n38RzhRFvZi9bBGKm7nO+ElfhqXp +H0+l5Umh52LNAbFNVyDe3tqkZXQJOu6PqrTTvApBhoWOj2NlUFi/1mj9WAms +65sM8/0oi06Z4boSHmUQapWucf+HLG6rbexd71sGTKFWp9SoLPLFb6mEBpWB +jP0Bw2phOUxQ85r3JqIMflQ9HBPUlkPhL0fKnFLLIC025XDWUTmUkv8p9eZO +GfQs4fo2ismjU9r6hsUi5RBjvPWg7BoFFN/rmjicXQ5W+/MHDcwUcPWTqllX +C8pBPPr7cYcNCuh4zsbSoagcchviilMOKOA9h1tmV+hyqLK5833uKQV8I3Zp +TLK+HPp3skOGOhTw4NtF6zmfymF/8Mjpp+GK+On61mlKnQ+cTDP53jhFXPD1 +jMNWLT5ZbzI9L0URHT9ZhIfq8iHsj/pLsyJF/G/JBr1aQz6cP75/SfVTRfxy +i7tZ0oYPT881FVxRUMI8VdENQx58MGKybkbWKeHypUubUor5sK7t+dSvZiWU +S9C9Ml7Kh00CcywdW5TQ6CfdvZfmg7Odbwd8VsK3xnBI9iYfLMJVoqKFlNEr +f2Gtx30++CuNXjZdroz1w1YPdnXxodGt4GdDiDI+uD6tFi1Kg/UfQ8lj4coo +8/FPVZAEDc9TWvVXRSujSNu+UmdJGjqqRaKLTikjO2EZf40MDb8WHJaMy1VG +ycg9cJtNg8x1KwOLB8ro4BL/fK4RDd7jA9HNYiroOXeL6YAzDUYBrtJfJFVQ +yHvkU7ErDcK9neWCMir41nzOlp0eNFzpanhrwlLBvILuCMaXhu575zVv6atg +xj0Tc7VQGjbHGbYXOpLx6fnPtp6lQXGa9qk7pIKJ7C/Sjck0/AhhCf7roYJe +ScLaeqk0JLgv0JY5rIJ9H3OaZmXSUG/77/GkBBUES+ebvhdp0JOM0Qm/oYKR +EQ87oypoEDgz0nihUgUlSJhcu0n2L+i5u7JGBfeNO3p2VtLgNWIXN/BQBYXj +R7ZQNTQUtVNdbp0qWGW5dOXJBhqkC5pP2guyUDIx817saxomli/s1nJgYS+b +X+vUT8NonmzMyt0snKfcIDh3kIZhCQ5l6MjC1b/4268Mke85ZOi5zoOFvOr1 +nPZRGnpqnEd3R7DQb6IlWHyKhie2t8UTrrAw1BQ97gkz0FR7/8bZMha2xek1 +sOYz0Kjz1D7tGgsP9CWsPL6AgXtSH7Lzq1no+qBn1xpxBiq65qveesZC+s/k +8yApBrK99kPPCAtFf3f16igwkPmve89/kyxUFH405qDIQPrmoLifMyxssQnk +HFViIGllwt/jImzsd2r8fF2FgdjfN3ZIKLJx1vP9YsMcBqJ87k4uZrOxTMhl +5W8uA8fePcqTVWNjsfvVqGlVBkIauj5y9NiYY8Y/O6HOgNcZIX9jCzbW/QhI +u6/FgPuUhJSZLRsXNUvMlGoz4OonW2m5hY2sW+kZSToMHNim88duNxuPpBts +2KDLgL3crgQPXzZqL7L4krWKAeNy/sWMDPJ8q3x4pBEDXcrlBetz2Jg81J+o +uJaBsIzS/OECNsZdLrCvIb4dU5xrV8rG8s/zhb8bM6C38+IF8btsDJopW8gG +Bl49y8+srSf7afnQU0Lsb56X4f2QjVtapvyWIwOMdnb6k+dk/j+Ha7mmDKgL +paec/MDGs7e9DEbNGGgOS01e/YWNft2vBw+ak/30pyR96iX3wzf5PiEu6jqb +aDZM1vtNruTcOgbMtyaeGRhn43RwvVs/cc+j06cvTrHRZEC213Y9A8oV8QnT +cynMm8o2nCCuUz0ZTy+gUDNOWtjWgoH9eSdO7l1IYeh/QzlZxDkJMSfuLKPQ +7FectJYlA0bTUcc9FCn8UZ0+HUDcHhQZK8OmUJ2pZv4ilnYMjw7RpPCdtICn +lhUDt1pDozi65PmOqBAXYnubo5GtqymUdmrZmE08VBcScdyIwhzlkv6/iVNX +Bx/TAwq58yscJ4l1y4PCP5hTmJJRmMOxZuClcmBYihWFCfVqVzYS+2b4h8JG +Cu2EJo8FEouJ+h39tZVCv0PN7HRifozPkbztFO51tMyuILYZ8wrZsIdCowmN +D8+Iv3l7Bv92pPBcperEZ+KEHvfDZYconMgd7JkkVt3pFrTLg8LHeqYFojYM +PHrmEijsS2F35GNtOWIX80MBtwMp1BM2S+USz6l28nc9QmHZm4NPtIkvax/0 +W3KMwhqf920ric2KHH0boylkvQ2uWU38ftl+n6A4CpPSOoNXEUcl7/VmnabQ +ubRp3gpiRaE9Xq+SKHTKGg1QI74btsszOo3s11nllgLxnv4dHjoXKHxxYnaL +BPGky3b37lwKv4zbP54m68/qsnc7W0hhg0FrTi/xmq3bXI2LKYzUN7Z5Tdz2 +aKvL9zIKr7tav6kiDjHecij7GoVYWcXLIV5SscnZ+iaFQ0mWJ8KIb6pudBqv +onDd279KtxMPSNoc2P6AwmlGMV2IuN2b9dKziUKdghCnVnJ+9Y8mIeophb3T +o3EFxClh5UolbynMdLV8qUF8tPV48t0uCimcM9FL4ueA9t6Zl+8pPLq8Iewq +8Yoe0XcTvRSqiqqdXUIsY/x5k3g/heML6pWaSHwKZNTeY42Q+NE1kQgmfmHt +m287Q+Eh5XbhRyS+fW+82JcnxUHDfxfHGpN82L6g5NkNGQ5eavVa+orkj4lL +NO+RAgerx5MXORGLLdNV6FPlYM1uWBNK8o8fnfoPGnPQs2K31zGSr+mdnhsc +TDmY9kzffJjk87FV5nc9LDhYEtkX705s+3UoJ3ULB8OV5++1MGGgd7PDnk+H +OLiPnWzbRupFS6nW3+MeZL7do8V6xHcE564V8+PgFcGAI6dJvTl1u1JWP5SD +FVlN4TqGDKgpyXTGn+Xgnu7lOpv1GVgY2m+dm8rBu/57tyStZmC8pbn6eiYH +RV9N/XpM6lfzydCsjkIO6nx8WqK/kgG3X507l1dycMbaTvMLqX+brP5qhhoO +Hlav2S5CrH/pzBr7eg4W1y+dp07q5dztxjIRTzgof2x8ap8mA8W1eW3PuzmY +UZ/klK/GwKfEA9sD53HxnHfOZKgy+b69mqwVolzM06NO/L++j1lO/Py5kIsx +mh5LDpP6P18wNc5Dlou3DBrsnOTJeYY23DygxUVOv7idnAwDES5cqc3buBhZ +IKkjIEHmbxjsFt3JRa0Rn8IXYiRelOvKnuzlopARSyNX9P/1boeZhSsXNfNt +YjXJ/+rJ1lMBvFAuWrVddtMQIvXH5MeL5QVcPFo1qz1nkoaLOVU53y5zsfjT +LyXeBA3qEyfcrpZwsS5y9dmuMRqMbyrMsCq4eHpNbpfECA3OGpu1ZR9yUeaf +aKftfTRcl65IFP7ORerT/r49H0l/03fE+rO+Ku7/du3Z5sc0yOsqnhQ2VsUx +pZJbgU3k/xvY+GC5qSr2/9zhnvqQhvTRhcaBtqoYOvFDr/k+6UemSrVnHFVR +BL2jxe7QECj6j9SyU6oYV6wuK1BGQ7Y6dm/oUkWf3To2SfGk//H6Iuv/XhUL +Z2+bszGOBqATd6R9VsXZKYEVwsdp+LSi42VHnyqOtn/tC4mkQXtNYIPrHDWs +rC1YrBNMQ4NFUUm0lhq+1u7SknAi/Y2zcNDNKDU8Mxg6lmlI1pu/rrbuhBpO +x/oJzzGgoa8jet7fp9Sw8Xmdnc8qGgY3T+R8SFPD4o7zFwx0aBhb29soXqKG +Jg81xcopGmYvfirt8VINZb7m1oiTfm9ZY/IdBRV1DGlIsmr5QPpHauns+Afq +KF7U8jQtig/fnCxL1jap446tQtIpx/iQWHhkU//f6hicKWxyOpQPrxXbs3e9 +UceZj93aR4P4cGBZ1krNr+p4NNm5wsiND6Hici6vxDRw9mkB/T2b+MAfV2yW +26WBsQfc3i2S44PkM27S9T4NbB6eSkljykE+4doWfX1NnNGH2lNlZXBhueFC +KTctDOoKmzTOK4Unsqarh85pI9fIYvpHdAkYyT9I0Xmrg+eW2dvXGF0FccFL +hw/GrsBXLzydONNXQDFGyXgXVxfpF8YBJ/OLQISzt9KuSRe73H7UGJheBm3e +smtH9umhyuvBPK/fhRDYLdlgI7ASo4rkLKvyLkLfUKKD9YWVOCS5Jku/Jh8s +dR5lW2utwpOM7nOjnblwb2jt77Hnq/Cc1MX1Lu1Z4Kup1/nKZTU+sXqoXpib +Cbxfh1p3iejjT1ul3S6bz8N6Smaj2CV99DTnNklYpYFa9OmjDwwMUPvi8E4T +j3Og4WJYx+k0wLprzRvCRJLB5Z77iZsBa9B9/sEo/YYzUHex9dDAEkOEcV/H +M5EJMFwyM6Zz2xDvTrPneKbEgTOnXCR7oxEKdVdtiJQ8DgMaafoV/UboP625 +IqMgGqqKfn8YSViL8yQKok8pR8DudWxcq2iMjgtmLbCICAU5n/hq7Xpj9Dl3 +uTh/NBiWzPe+sXEHD4u9u+Xd5gdBkXlEWP8uHgZOWTYoTAeCXkSSedpeHkrK +XurrHAiETf3X37Qf5KHd3Wsv3TsC4eTbkQlnbx6qHPwa0FISCOOXoszCYnjo +LlKq2GUVCJ1r014Xl/PQ6fe31BtnA8A9uCjXmuHhlNnYwVWxATDK3HL5cZ2H +jkO2XrUhASDJah/TreThwY497B7HALAVVpCvrefhh9Xi/wXrBcDd1uJDr9/w +UK77K7+x3R9sxKu0Qtp5WP3PeaGyZ/7Qbvl4VKaLh6zRjsDzD/xh+M73hP3v +edhpUR8TyfcHrcIV9LdeHrY/XauTFe0PdztNQxJ/8vDR7LZeJpi8b/E20Okn +88lAyRNPf3CND351eIRH4ldKabEDeV/9yeyl4zzs0Xv52tTGH2InM53vTPJQ +wHw8Ohj8YeGqUs19U2S8/Srq2ip/yPe5MzIzw8PkJs2aX+r+8D/GrFVv "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.059159926541650046`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10498,19 +11536,19 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.059159926541650046`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10524,116 +11562,114 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV1nk8VdsXAHAlRRmKkszuPfcaMkRF5FoLZWwUzaXIPBOFjCUqIUTmlGS4 +51ReiSSKol6jlOk9lYZXGsxj4bd/f53P93POPnvvs9daZ6k4+dm5zBYQEJgz +S0Dg/9fR7seN1Jkik4R5b9x2zjE0ac2XCTVtjwXta38V3B+UBlzywkmmPRXS +X354eHaQCyFbytoE2y9BTbB0hM+gPiz6tTR1oq0CMjUcvpkPWsC7u5v8htse +QNHmbOfHA9vBgur9d6CtBcKfTlmO9LnCRJvB+f62HvC08jC+8TUEGsyvFr26 +NAQfehcK19TGg/y76i9OmlNwycUi+nf4OVjs7Vg2z1wQNeOd3h5+lQGpuhY1 +mxyEcXrsvpfGnlzouLCifmChGKZfixF5n38RzhRFvZi9bBGKm7nO+ElfhqXp +H0+l5Umh52LNAbFNVyDe3tqkZXQJOu6PqrTTvApBhoWOj2NlUFi/1mj9WAms +65sM8/0oi06Z4boSHmUQapWucf+HLG6rbexd71sGTKFWp9SoLPLFb6mEBpWB +jP0Bw2phOUxQ85r3JqIMflQ9HBPUlkPhL0fKnFLLIC025XDWUTmUkv8p9eZO +GfQs4fo2ismjU9r6hsUi5RBjvPWg7BoFFN/rmjicXQ5W+/MHDcwUcPWTqllX +C8pBPPr7cYcNCuh4zsbSoagcchviilMOKOA9h1tmV+hyqLK5833uKQV8I3Zp +TLK+HPp3skOGOhTw4NtF6zmfymF/8Mjpp+GK+On61mlKnQ+cTDP53jhFXPD1 +jMNWLT5ZbzI9L0URHT9ZhIfq8iHsj/pLsyJF/G/JBr1aQz6cP75/SfVTRfxy +i7tZ0oYPT881FVxRUMI8VdENQx58MGKybkbWKeHypUubUor5sK7t+dSvZiWU +S9C9Ml7Kh00CcywdW5TQ6CfdvZfmg7Odbwd8VsK3xnBI9iYfLMJVoqKFlNEr +f2Gtx30++CuNXjZdroz1w1YPdnXxodGt4GdDiDI+uD6tFi1Kg/UfQ8lj4coo +8/FPVZAEDc9TWvVXRSujSNu+UmdJGjqqRaKLTikjO2EZf40MDb8WHJaMy1VG +ycg9cJtNg8x1KwOLB8ro4BL/fK4RDd7jA9HNYiroOXeL6YAzDUYBrtJfJFVQ +yHvkU7ErDcK9neWCMir41nzOlp0eNFzpanhrwlLBvILuCMaXhu575zVv6atg +xj0Tc7VQGjbHGbYXOpLx6fnPtp6lQXGa9qk7pIKJ7C/Sjck0/AhhCf7roYJe +ScLaeqk0JLgv0JY5rIJ9H3OaZmXSUG/77/GkBBUES+ebvhdp0JOM0Qm/oYKR +EQ87oypoEDgz0nihUgUlSJhcu0n2L+i5u7JGBfeNO3p2VtLgNWIXN/BQBYXj +R7ZQNTQUtVNdbp0qWGW5dOXJBhqkC5pP2guyUDIx817saxomli/s1nJgYS+b +X+vUT8NonmzMyt0snKfcIDh3kIZhCQ5l6MjC1b/4268Mke85ZOi5zoOFvOr1 +nPZRGnpqnEd3R7DQb6IlWHyKhie2t8UTrrAw1BQ97gkz0FR7/8bZMha2xek1 +sOYz0Kjz1D7tGgsP9CWsPL6AgXtSH7Lzq1no+qBn1xpxBiq65qveesZC+s/k +8yApBrK99kPPCAtFf3f16igwkPmve89/kyxUFH405qDIQPrmoLifMyxssQnk +HFViIGllwt/jImzsd2r8fF2FgdjfN3ZIKLJx1vP9YsMcBqJ87k4uZrOxTMhl +5W8uA8fePcqTVWNjsfvVqGlVBkIauj5y9NiYY8Y/O6HOgNcZIX9jCzbW/QhI +u6/FgPuUhJSZLRsXNUvMlGoz4OonW2m5hY2sW+kZSToMHNim88duNxuPpBts +2KDLgL3crgQPXzZqL7L4krWKAeNy/sWMDPJ8q3x4pBEDXcrlBetz2Jg81J+o +uJaBsIzS/OECNsZdLrCvIb4dU5xrV8rG8s/zhb8bM6C38+IF8btsDJopW8gG +Bl49y8+srSf7afnQU0Lsb56X4f2QjVtapvyWIwOMdnb6k+dk/j+Ha7mmDKgL +paec/MDGs7e9DEbNGGgOS01e/YWNft2vBw+ak/30pyR96iX3wzf5PiEu6jqb +aDZM1vtNruTcOgbMtyaeGRhn43RwvVs/cc+j06cvTrHRZEC213Y9A8oV8QnT +cynMm8o2nCCuUz0ZTy+gUDNOWtjWgoH9eSdO7l1IYeh/QzlZxDkJMSfuLKPQ +7FectJYlA0bTUcc9FCn8UZ0+HUDcHhQZK8OmUJ2pZv4ilnYMjw7RpPCdtICn +lhUDt1pDozi65PmOqBAXYnubo5GtqymUdmrZmE08VBcScdyIwhzlkv6/iVNX +Bx/TAwq58yscJ4l1y4PCP5hTmJJRmMOxZuClcmBYihWFCfVqVzYS+2b4h8JG +Cu2EJo8FEouJ+h39tZVCv0PN7HRifozPkbztFO51tMyuILYZ8wrZsIdCowmN +D8+Iv3l7Bv92pPBcperEZ+KEHvfDZYconMgd7JkkVt3pFrTLg8LHeqYFojYM +PHrmEijsS2F35GNtOWIX80MBtwMp1BM2S+USz6l28nc9QmHZm4NPtIkvax/0 +W3KMwhqf920ric2KHH0boylkvQ2uWU38ftl+n6A4CpPSOoNXEUcl7/VmnabQ +ubRp3gpiRaE9Xq+SKHTKGg1QI74btsszOo3s11nllgLxnv4dHjoXKHxxYnaL +BPGky3b37lwKv4zbP54m68/qsnc7W0hhg0FrTi/xmq3bXI2LKYzUN7Z5Tdz2 +aKvL9zIKr7tav6kiDjHecij7GoVYWcXLIV5SscnZ+iaFQ0mWJ8KIb6pudBqv +onDd279KtxMPSNoc2P6AwmlGMV2IuN2b9dKziUKdghCnVnJ+9Y8mIeophb3T +o3EFxClh5UolbynMdLV8qUF8tPV48t0uCimcM9FL4ueA9t6Zl+8pPLq8Iewq +8Yoe0XcTvRSqiqqdXUIsY/x5k3g/heML6pWaSHwKZNTeY42Q+NE1kQgmfmHt +m287Q+Eh5XbhRyS+fW+82JcnxUHDfxfHGpN82L6g5NkNGQ5eavVa+orkj4lL +NO+RAgerx5MXORGLLdNV6FPlYM1uWBNK8o8fnfoPGnPQs2K31zGSr+mdnhsc +TDmY9kzffJjk87FV5nc9LDhYEtkX705s+3UoJ3ULB8OV5++1MGGgd7PDnk+H +OLiPnWzbRupFS6nW3+MeZL7do8V6xHcE564V8+PgFcGAI6dJvTl1u1JWP5SD +FVlN4TqGDKgpyXTGn+Xgnu7lOpv1GVgY2m+dm8rBu/57tyStZmC8pbn6eiYH +RV9N/XpM6lfzydCsjkIO6nx8WqK/kgG3X507l1dycMbaTvMLqX+brP5qhhoO +Hlav2S5CrH/pzBr7eg4W1y+dp07q5dztxjIRTzgof2x8ap8mA8W1eW3PuzmY +UZ/klK/GwKfEA9sD53HxnHfOZKgy+b69mqwVolzM06NO/L++j1lO/Py5kIsx +mh5LDpP6P18wNc5Dlou3DBrsnOTJeYY23DygxUVOv7idnAwDES5cqc3buBhZ +IKkjIEHmbxjsFt3JRa0Rn8IXYiRelOvKnuzlopARSyNX9P/1boeZhSsXNfNt +YjXJ/+rJ1lMBvFAuWrVddtMQIvXH5MeL5QVcPFo1qz1nkoaLOVU53y5zsfjT +LyXeBA3qEyfcrpZwsS5y9dmuMRqMbyrMsCq4eHpNbpfECA3OGpu1ZR9yUeaf +aKftfTRcl65IFP7ORerT/r49H0l/03fE+rO+Ku7/du3Z5sc0yOsqnhQ2VsUx +pZJbgU3k/xvY+GC5qSr2/9zhnvqQhvTRhcaBtqoYOvFDr/k+6UemSrVnHFVR +BL2jxe7QECj6j9SyU6oYV6wuK1BGQ7Y6dm/oUkWf3To2SfGk//H6Iuv/XhUL +Z2+bszGOBqATd6R9VsXZKYEVwsdp+LSi42VHnyqOtn/tC4mkQXtNYIPrHDWs +rC1YrBNMQ4NFUUm0lhq+1u7SknAi/Y2zcNDNKDU8Mxg6lmlI1pu/rrbuhBpO +x/oJzzGgoa8jet7fp9Sw8Xmdnc8qGgY3T+R8SFPD4o7zFwx0aBhb29soXqKG +Jg81xcopGmYvfirt8VINZb7m1oiTfm9ZY/IdBRV1DGlIsmr5QPpHauns+Afq +KF7U8jQtig/fnCxL1jap446tQtIpx/iQWHhkU//f6hicKWxyOpQPrxXbs3e9 +UceZj93aR4P4cGBZ1krNr+p4NNm5wsiND6Hici6vxDRw9mkB/T2b+MAfV2yW +26WBsQfc3i2S44PkM27S9T4NbB6eSkljykE+4doWfX1NnNGH2lNlZXBhueFC +KTctDOoKmzTOK4Unsqarh85pI9fIYvpHdAkYyT9I0Xmrg+eW2dvXGF0FccFL +hw/GrsBXLzydONNXQDFGyXgXVxfpF8YBJ/OLQISzt9KuSRe73H7UGJheBm3e +smtH9umhyuvBPK/fhRDYLdlgI7ASo4rkLKvyLkLfUKKD9YWVOCS5Jku/Jh8s +dR5lW2utwpOM7nOjnblwb2jt77Hnq/Cc1MX1Lu1Z4Kup1/nKZTU+sXqoXpib +Cbxfh1p3iejjT1ul3S6bz8N6Smaj2CV99DTnNklYpYFa9OmjDwwMUPvi8E4T +j3Og4WJYx+k0wLprzRvCRJLB5Z77iZsBa9B9/sEo/YYzUHex9dDAEkOEcV/H +M5EJMFwyM6Zz2xDvTrPneKbEgTOnXCR7oxEKdVdtiJQ8DgMaafoV/UboP625 +IqMgGqqKfn8YSViL8yQKok8pR8DudWxcq2iMjgtmLbCICAU5n/hq7Xpj9Dl3 +uTh/NBiWzPe+sXEHD4u9u+Xd5gdBkXlEWP8uHgZOWTYoTAeCXkSSedpeHkrK +XurrHAiETf3X37Qf5KHd3Wsv3TsC4eTbkQlnbx6qHPwa0FISCOOXoszCYnjo +LlKq2GUVCJ1r014Xl/PQ6fe31BtnA8A9uCjXmuHhlNnYwVWxATDK3HL5cZ2H +jkO2XrUhASDJah/TreThwY497B7HALAVVpCvrefhh9Xi/wXrBcDd1uJDr9/w +UK77K7+x3R9sxKu0Qtp5WP3PeaGyZ/7Qbvl4VKaLh6zRjsDzD/xh+M73hP3v +edhpUR8TyfcHrcIV9LdeHrY/XauTFe0PdztNQxJ/8vDR7LZeJpi8b/E20Okn +88lAyRNPf3CND351eIRH4ldKabEDeV/9yeyl4zzs0Xv52tTGH2InM53vTPJQ +wHw8Ohj8YeGqUs19U2S8/Srq2ip/yPe5MzIzw8PkJs2aX+r+8D/GrFVv "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.059159926541650046`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10644,6 +11680,7 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10671,7 +11708,8 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.059159926541650046`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10679,22 +11717,571 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991324915847246*^9}, + CellChangeTimes->{3.991324915847246*^9, 3.993912712200996*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] + "Out[417]=",ExpressionUUID->"f67dacfc-21a3-4ab4-b77d-d83e95d54466"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, - 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ -4f98a6653ef7"], + 3.991924419552084*^9}, + CellLabel-> + "In[418]:=",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799819852022*^9, - 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ -6e6b94590d4b"], + CellChangeTimes->{{3.991799819852022*^9, 3.9917998213158054`*^9}}, + CellLabel-> + "In[419]:=",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VdsXAHAlRRmKkszuPfcaMkRF5FoLZWwUzaXIPBOFjCUqIUTmlGS4 +51ReiSSKol6jlOk9lYZXGsxj4bd/f53P93POPnvvs9daZ6k4+dm5zBYQEJgz +S0Dg/9fR7seN1Jkik4R5b9x2zjE0ac2XCTVtjwXta38V3B+UBlzywkmmPRXS +X354eHaQCyFbytoE2y9BTbB0hM+gPiz6tTR1oq0CMjUcvpkPWsC7u5v8htse +QNHmbOfHA9vBgur9d6CtBcKfTlmO9LnCRJvB+f62HvC08jC+8TUEGsyvFr26 +NAQfehcK19TGg/y76i9OmlNwycUi+nf4OVjs7Vg2z1wQNeOd3h5+lQGpuhY1 +mxyEcXrsvpfGnlzouLCifmChGKZfixF5n38RzhRFvZi9bBGKm7nO+ElfhqXp +H0+l5Umh52LNAbFNVyDe3tqkZXQJOu6PqrTTvApBhoWOj2NlUFi/1mj9WAms +65sM8/0oi06Z4boSHmUQapWucf+HLG6rbexd71sGTKFWp9SoLPLFb6mEBpWB +jP0Bw2phOUxQ85r3JqIMflQ9HBPUlkPhL0fKnFLLIC025XDWUTmUkv8p9eZO +GfQs4fo2ismjU9r6hsUi5RBjvPWg7BoFFN/rmjicXQ5W+/MHDcwUcPWTqllX +C8pBPPr7cYcNCuh4zsbSoagcchviilMOKOA9h1tmV+hyqLK5833uKQV8I3Zp +TLK+HPp3skOGOhTw4NtF6zmfymF/8Mjpp+GK+On61mlKnQ+cTDP53jhFXPD1 +jMNWLT5ZbzI9L0URHT9ZhIfq8iHsj/pLsyJF/G/JBr1aQz6cP75/SfVTRfxy +i7tZ0oYPT881FVxRUMI8VdENQx58MGKybkbWKeHypUubUor5sK7t+dSvZiWU +S9C9Ml7Kh00CcywdW5TQ6CfdvZfmg7Odbwd8VsK3xnBI9iYfLMJVoqKFlNEr +f2Gtx30++CuNXjZdroz1w1YPdnXxodGt4GdDiDI+uD6tFi1Kg/UfQ8lj4coo +8/FPVZAEDc9TWvVXRSujSNu+UmdJGjqqRaKLTikjO2EZf40MDb8WHJaMy1VG +ycg9cJtNg8x1KwOLB8ro4BL/fK4RDd7jA9HNYiroOXeL6YAzDUYBrtJfJFVQ +yHvkU7ErDcK9neWCMir41nzOlp0eNFzpanhrwlLBvILuCMaXhu575zVv6atg +xj0Tc7VQGjbHGbYXOpLx6fnPtp6lQXGa9qk7pIKJ7C/Sjck0/AhhCf7roYJe +ScLaeqk0JLgv0JY5rIJ9H3OaZmXSUG/77/GkBBUES+ebvhdp0JOM0Qm/oYKR +EQ87oypoEDgz0nihUgUlSJhcu0n2L+i5u7JGBfeNO3p2VtLgNWIXN/BQBYXj +R7ZQNTQUtVNdbp0qWGW5dOXJBhqkC5pP2guyUDIx817saxomli/s1nJgYS+b +X+vUT8NonmzMyt0snKfcIDh3kIZhCQ5l6MjC1b/4268Mke85ZOi5zoOFvOr1 +nPZRGnpqnEd3R7DQb6IlWHyKhie2t8UTrrAw1BQ97gkz0FR7/8bZMha2xek1 +sOYz0Kjz1D7tGgsP9CWsPL6AgXtSH7Lzq1no+qBn1xpxBiq65qveesZC+s/k +8yApBrK99kPPCAtFf3f16igwkPmve89/kyxUFH405qDIQPrmoLifMyxssQnk +HFViIGllwt/jImzsd2r8fF2FgdjfN3ZIKLJx1vP9YsMcBqJ87k4uZrOxTMhl +5W8uA8fePcqTVWNjsfvVqGlVBkIauj5y9NiYY8Y/O6HOgNcZIX9jCzbW/QhI +u6/FgPuUhJSZLRsXNUvMlGoz4OonW2m5hY2sW+kZSToMHNim88duNxuPpBts +2KDLgL3crgQPXzZqL7L4krWKAeNy/sWMDPJ8q3x4pBEDXcrlBetz2Jg81J+o +uJaBsIzS/OECNsZdLrCvIb4dU5xrV8rG8s/zhb8bM6C38+IF8btsDJopW8gG +Bl49y8+srSf7afnQU0Lsb56X4f2QjVtapvyWIwOMdnb6k+dk/j+Ha7mmDKgL +paec/MDGs7e9DEbNGGgOS01e/YWNft2vBw+ak/30pyR96iX3wzf5PiEu6jqb +aDZM1vtNruTcOgbMtyaeGRhn43RwvVs/cc+j06cvTrHRZEC213Y9A8oV8QnT +cynMm8o2nCCuUz0ZTy+gUDNOWtjWgoH9eSdO7l1IYeh/QzlZxDkJMSfuLKPQ +7FectJYlA0bTUcc9FCn8UZ0+HUDcHhQZK8OmUJ2pZv4ilnYMjw7RpPCdtICn +lhUDt1pDozi65PmOqBAXYnubo5GtqymUdmrZmE08VBcScdyIwhzlkv6/iVNX +Bx/TAwq58yscJ4l1y4PCP5hTmJJRmMOxZuClcmBYihWFCfVqVzYS+2b4h8JG +Cu2EJo8FEouJ+h39tZVCv0PN7HRifozPkbztFO51tMyuILYZ8wrZsIdCowmN +D8+Iv3l7Bv92pPBcperEZ+KEHvfDZYconMgd7JkkVt3pFrTLg8LHeqYFojYM +PHrmEijsS2F35GNtOWIX80MBtwMp1BM2S+USz6l28nc9QmHZm4NPtIkvax/0 +W3KMwhqf920ric2KHH0boylkvQ2uWU38ftl+n6A4CpPSOoNXEUcl7/VmnabQ +ubRp3gpiRaE9Xq+SKHTKGg1QI74btsszOo3s11nllgLxnv4dHjoXKHxxYnaL +BPGky3b37lwKv4zbP54m68/qsnc7W0hhg0FrTi/xmq3bXI2LKYzUN7Z5Tdz2 +aKvL9zIKr7tav6kiDjHecij7GoVYWcXLIV5SscnZ+iaFQ0mWJ8KIb6pudBqv +onDd279KtxMPSNoc2P6AwmlGMV2IuN2b9dKziUKdghCnVnJ+9Y8mIeophb3T +o3EFxClh5UolbynMdLV8qUF8tPV48t0uCimcM9FL4ueA9t6Zl+8pPLq8Iewq +8Yoe0XcTvRSqiqqdXUIsY/x5k3g/heML6pWaSHwKZNTeY42Q+NE1kQgmfmHt +m287Q+Eh5XbhRyS+fW+82JcnxUHDfxfHGpN82L6g5NkNGQ5eavVa+orkj4lL +NO+RAgerx5MXORGLLdNV6FPlYM1uWBNK8o8fnfoPGnPQs2K31zGSr+mdnhsc +TDmY9kzffJjk87FV5nc9LDhYEtkX705s+3UoJ3ULB8OV5++1MGGgd7PDnk+H +OLiPnWzbRupFS6nW3+MeZL7do8V6xHcE564V8+PgFcGAI6dJvTl1u1JWP5SD +FVlN4TqGDKgpyXTGn+Xgnu7lOpv1GVgY2m+dm8rBu/57tyStZmC8pbn6eiYH +RV9N/XpM6lfzydCsjkIO6nx8WqK/kgG3X507l1dycMbaTvMLqX+brP5qhhoO +Hlav2S5CrH/pzBr7eg4W1y+dp07q5dztxjIRTzgof2x8ap8mA8W1eW3PuzmY +UZ/klK/GwKfEA9sD53HxnHfOZKgy+b69mqwVolzM06NO/L++j1lO/Py5kIsx +mh5LDpP6P18wNc5Dlou3DBrsnOTJeYY23DygxUVOv7idnAwDES5cqc3buBhZ +IKkjIEHmbxjsFt3JRa0Rn8IXYiRelOvKnuzlopARSyNX9P/1boeZhSsXNfNt +YjXJ/+rJ1lMBvFAuWrVddtMQIvXH5MeL5QVcPFo1qz1nkoaLOVU53y5zsfjT +LyXeBA3qEyfcrpZwsS5y9dmuMRqMbyrMsCq4eHpNbpfECA3OGpu1ZR9yUeaf +aKftfTRcl65IFP7ORerT/r49H0l/03fE+rO+Ku7/du3Z5sc0yOsqnhQ2VsUx +pZJbgU3k/xvY+GC5qSr2/9zhnvqQhvTRhcaBtqoYOvFDr/k+6UemSrVnHFVR +BL2jxe7QECj6j9SyU6oYV6wuK1BGQ7Y6dm/oUkWf3To2SfGk//H6Iuv/XhUL +Z2+bszGOBqATd6R9VsXZKYEVwsdp+LSi42VHnyqOtn/tC4mkQXtNYIPrHDWs +rC1YrBNMQ4NFUUm0lhq+1u7SknAi/Y2zcNDNKDU8Mxg6lmlI1pu/rrbuhBpO +x/oJzzGgoa8jet7fp9Sw8Xmdnc8qGgY3T+R8SFPD4o7zFwx0aBhb29soXqKG +Jg81xcopGmYvfirt8VINZb7m1oiTfm9ZY/IdBRV1DGlIsmr5QPpHauns+Afq +KF7U8jQtig/fnCxL1jap446tQtIpx/iQWHhkU//f6hicKWxyOpQPrxXbs3e9 +UceZj93aR4P4cGBZ1krNr+p4NNm5wsiND6Hici6vxDRw9mkB/T2b+MAfV2yW +26WBsQfc3i2S44PkM27S9T4NbB6eSkljykE+4doWfX1NnNGH2lNlZXBhueFC +KTctDOoKmzTOK4Unsqarh85pI9fIYvpHdAkYyT9I0Xmrg+eW2dvXGF0FccFL +hw/GrsBXLzydONNXQDFGyXgXVxfpF8YBJ/OLQISzt9KuSRe73H7UGJheBm3e +smtH9umhyuvBPK/fhRDYLdlgI7ASo4rkLKvyLkLfUKKD9YWVOCS5Jku/Jh8s +dR5lW2utwpOM7nOjnblwb2jt77Hnq/Cc1MX1Lu1Z4Kup1/nKZTU+sXqoXpib +Cbxfh1p3iejjT1ul3S6bz8N6Smaj2CV99DTnNklYpYFa9OmjDwwMUPvi8E4T +j3Og4WJYx+k0wLprzRvCRJLB5Z77iZsBa9B9/sEo/YYzUHex9dDAEkOEcV/H +M5EJMFwyM6Zz2xDvTrPneKbEgTOnXCR7oxEKdVdtiJQ8DgMaafoV/UboP625 +IqMgGqqKfn8YSViL8yQKok8pR8DudWxcq2iMjgtmLbCICAU5n/hq7Xpj9Dl3 +uTh/NBiWzPe+sXEHD4u9u+Xd5gdBkXlEWP8uHgZOWTYoTAeCXkSSedpeHkrK +XurrHAiETf3X37Qf5KHd3Wsv3TsC4eTbkQlnbx6qHPwa0FISCOOXoszCYnjo +LlKq2GUVCJ1r014Xl/PQ6fe31BtnA8A9uCjXmuHhlNnYwVWxATDK3HL5cZ2H +jkO2XrUhASDJah/TreThwY497B7HALAVVpCvrefhh9Xi/wXrBcDd1uJDr9/w +UK77K7+x3R9sxKu0Qtp5WP3PeaGyZ/7Qbvl4VKaLh6zRjsDzD/xh+M73hP3v +edhpUR8TyfcHrcIV9LdeHrY/XauTFe0PdztNQxJ/8vDR7LZeJpi8b/E20Okn +88lAyRNPf3CND351eIRH4ldKabEDeV/9yeyl4zzs0Xv52tTGH2InM53vTPJQ +wHw8Ohj8YeGqUs19U2S8/Srq2ip/yPe5MzIzw8PkJs2aX+r+8D/GrFVv + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHAlRRmKkszuPfcaMkRF5FoLZWwUzaXIPBOFjCUqIUTmlGS4 +51ReiSSKol6jlOk9lYZXGsxj4bd/f53P93POPnvvs9daZ6k4+dm5zBYQEJgz +S0Dg/9fR7seN1Jkik4R5b9x2zjE0ac2XCTVtjwXta38V3B+UBlzywkmmPRXS +X354eHaQCyFbytoE2y9BTbB0hM+gPiz6tTR1oq0CMjUcvpkPWsC7u5v8htse +QNHmbOfHA9vBgur9d6CtBcKfTlmO9LnCRJvB+f62HvC08jC+8TUEGsyvFr26 +NAQfehcK19TGg/y76i9OmlNwycUi+nf4OVjs7Vg2z1wQNeOd3h5+lQGpuhY1 +mxyEcXrsvpfGnlzouLCifmChGKZfixF5n38RzhRFvZi9bBGKm7nO+ElfhqXp +H0+l5Umh52LNAbFNVyDe3tqkZXQJOu6PqrTTvApBhoWOj2NlUFi/1mj9WAms +65sM8/0oi06Z4boSHmUQapWucf+HLG6rbexd71sGTKFWp9SoLPLFb6mEBpWB +jP0Bw2phOUxQ85r3JqIMflQ9HBPUlkPhL0fKnFLLIC025XDWUTmUkv8p9eZO +GfQs4fo2ismjU9r6hsUi5RBjvPWg7BoFFN/rmjicXQ5W+/MHDcwUcPWTqllX +C8pBPPr7cYcNCuh4zsbSoagcchviilMOKOA9h1tmV+hyqLK5833uKQV8I3Zp +TLK+HPp3skOGOhTw4NtF6zmfymF/8Mjpp+GK+On61mlKnQ+cTDP53jhFXPD1 +jMNWLT5ZbzI9L0URHT9ZhIfq8iHsj/pLsyJF/G/JBr1aQz6cP75/SfVTRfxy +i7tZ0oYPT881FVxRUMI8VdENQx58MGKybkbWKeHypUubUor5sK7t+dSvZiWU +S9C9Ml7Kh00CcywdW5TQ6CfdvZfmg7Odbwd8VsK3xnBI9iYfLMJVoqKFlNEr +f2Gtx30++CuNXjZdroz1w1YPdnXxodGt4GdDiDI+uD6tFi1Kg/UfQ8lj4coo +8/FPVZAEDc9TWvVXRSujSNu+UmdJGjqqRaKLTikjO2EZf40MDb8WHJaMy1VG +ycg9cJtNg8x1KwOLB8ro4BL/fK4RDd7jA9HNYiroOXeL6YAzDUYBrtJfJFVQ +yHvkU7ErDcK9neWCMir41nzOlp0eNFzpanhrwlLBvILuCMaXhu575zVv6atg +xj0Tc7VQGjbHGbYXOpLx6fnPtp6lQXGa9qk7pIKJ7C/Sjck0/AhhCf7roYJe +ScLaeqk0JLgv0JY5rIJ9H3OaZmXSUG/77/GkBBUES+ebvhdp0JOM0Qm/oYKR +EQ87oypoEDgz0nihUgUlSJhcu0n2L+i5u7JGBfeNO3p2VtLgNWIXN/BQBYXj +R7ZQNTQUtVNdbp0qWGW5dOXJBhqkC5pP2guyUDIx817saxomli/s1nJgYS+b +X+vUT8NonmzMyt0snKfcIDh3kIZhCQ5l6MjC1b/4268Mke85ZOi5zoOFvOr1 +nPZRGnpqnEd3R7DQb6IlWHyKhie2t8UTrrAw1BQ97gkz0FR7/8bZMha2xek1 +sOYz0Kjz1D7tGgsP9CWsPL6AgXtSH7Lzq1no+qBn1xpxBiq65qveesZC+s/k +8yApBrK99kPPCAtFf3f16igwkPmve89/kyxUFH405qDIQPrmoLifMyxssQnk +HFViIGllwt/jImzsd2r8fF2FgdjfN3ZIKLJx1vP9YsMcBqJ87k4uZrOxTMhl +5W8uA8fePcqTVWNjsfvVqGlVBkIauj5y9NiYY8Y/O6HOgNcZIX9jCzbW/QhI +u6/FgPuUhJSZLRsXNUvMlGoz4OonW2m5hY2sW+kZSToMHNim88duNxuPpBts +2KDLgL3crgQPXzZqL7L4krWKAeNy/sWMDPJ8q3x4pBEDXcrlBetz2Jg81J+o +uJaBsIzS/OECNsZdLrCvIb4dU5xrV8rG8s/zhb8bM6C38+IF8btsDJopW8gG +Bl49y8+srSf7afnQU0Lsb56X4f2QjVtapvyWIwOMdnb6k+dk/j+Ha7mmDKgL +paec/MDGs7e9DEbNGGgOS01e/YWNft2vBw+ak/30pyR96iX3wzf5PiEu6jqb +aDZM1vtNruTcOgbMtyaeGRhn43RwvVs/cc+j06cvTrHRZEC213Y9A8oV8QnT +cynMm8o2nCCuUz0ZTy+gUDNOWtjWgoH9eSdO7l1IYeh/QzlZxDkJMSfuLKPQ +7FectJYlA0bTUcc9FCn8UZ0+HUDcHhQZK8OmUJ2pZv4ilnYMjw7RpPCdtICn +lhUDt1pDozi65PmOqBAXYnubo5GtqymUdmrZmE08VBcScdyIwhzlkv6/iVNX +Bx/TAwq58yscJ4l1y4PCP5hTmJJRmMOxZuClcmBYihWFCfVqVzYS+2b4h8JG +Cu2EJo8FEouJ+h39tZVCv0PN7HRifozPkbztFO51tMyuILYZ8wrZsIdCowmN +D8+Iv3l7Bv92pPBcperEZ+KEHvfDZYconMgd7JkkVt3pFrTLg8LHeqYFojYM +PHrmEijsS2F35GNtOWIX80MBtwMp1BM2S+USz6l28nc9QmHZm4NPtIkvax/0 +W3KMwhqf920ric2KHH0boylkvQ2uWU38ftl+n6A4CpPSOoNXEUcl7/VmnabQ +ubRp3gpiRaE9Xq+SKHTKGg1QI74btsszOo3s11nllgLxnv4dHjoXKHxxYnaL +BPGky3b37lwKv4zbP54m68/qsnc7W0hhg0FrTi/xmq3bXI2LKYzUN7Z5Tdz2 +aKvL9zIKr7tav6kiDjHecij7GoVYWcXLIV5SscnZ+iaFQ0mWJ8KIb6pudBqv +onDd279KtxMPSNoc2P6AwmlGMV2IuN2b9dKziUKdghCnVnJ+9Y8mIeophb3T +o3EFxClh5UolbynMdLV8qUF8tPV48t0uCimcM9FL4ueA9t6Zl+8pPLq8Iewq +8Yoe0XcTvRSqiqqdXUIsY/x5k3g/heML6pWaSHwKZNTeY42Q+NE1kQgmfmHt +m287Q+Eh5XbhRyS+fW+82JcnxUHDfxfHGpN82L6g5NkNGQ5eavVa+orkj4lL +NO+RAgerx5MXORGLLdNV6FPlYM1uWBNK8o8fnfoPGnPQs2K31zGSr+mdnhsc +TDmY9kzffJjk87FV5nc9LDhYEtkX705s+3UoJ3ULB8OV5++1MGGgd7PDnk+H +OLiPnWzbRupFS6nW3+MeZL7do8V6xHcE564V8+PgFcGAI6dJvTl1u1JWP5SD +FVlN4TqGDKgpyXTGn+Xgnu7lOpv1GVgY2m+dm8rBu/57tyStZmC8pbn6eiYH +RV9N/XpM6lfzydCsjkIO6nx8WqK/kgG3X507l1dycMbaTvMLqX+brP5qhhoO +Hlav2S5CrH/pzBr7eg4W1y+dp07q5dztxjIRTzgof2x8ap8mA8W1eW3PuzmY +UZ/klK/GwKfEA9sD53HxnHfOZKgy+b69mqwVolzM06NO/L++j1lO/Py5kIsx +mh5LDpP6P18wNc5Dlou3DBrsnOTJeYY23DygxUVOv7idnAwDES5cqc3buBhZ +IKkjIEHmbxjsFt3JRa0Rn8IXYiRelOvKnuzlopARSyNX9P/1boeZhSsXNfNt +YjXJ/+rJ1lMBvFAuWrVddtMQIvXH5MeL5QVcPFo1qz1nkoaLOVU53y5zsfjT +LyXeBA3qEyfcrpZwsS5y9dmuMRqMbyrMsCq4eHpNbpfECA3OGpu1ZR9yUeaf +aKftfTRcl65IFP7ORerT/r49H0l/03fE+rO+Ku7/du3Z5sc0yOsqnhQ2VsUx +pZJbgU3k/xvY+GC5qSr2/9zhnvqQhvTRhcaBtqoYOvFDr/k+6UemSrVnHFVR +BL2jxe7QECj6j9SyU6oYV6wuK1BGQ7Y6dm/oUkWf3To2SfGk//H6Iuv/XhUL +Z2+bszGOBqATd6R9VsXZKYEVwsdp+LSi42VHnyqOtn/tC4mkQXtNYIPrHDWs +rC1YrBNMQ4NFUUm0lhq+1u7SknAi/Y2zcNDNKDU8Mxg6lmlI1pu/rrbuhBpO +x/oJzzGgoa8jet7fp9Sw8Xmdnc8qGgY3T+R8SFPD4o7zFwx0aBhb29soXqKG +Jg81xcopGmYvfirt8VINZb7m1oiTfm9ZY/IdBRV1DGlIsmr5QPpHauns+Afq +KF7U8jQtig/fnCxL1jap446tQtIpx/iQWHhkU//f6hicKWxyOpQPrxXbs3e9 +UceZj93aR4P4cGBZ1krNr+p4NNm5wsiND6Hici6vxDRw9mkB/T2b+MAfV2yW +26WBsQfc3i2S44PkM27S9T4NbB6eSkljykE+4doWfX1NnNGH2lNlZXBhueFC +KTctDOoKmzTOK4Unsqarh85pI9fIYvpHdAkYyT9I0Xmrg+eW2dvXGF0FccFL +hw/GrsBXLzydONNXQDFGyXgXVxfpF8YBJ/OLQISzt9KuSRe73H7UGJheBm3e +smtH9umhyuvBPK/fhRDYLdlgI7ASo4rkLKvyLkLfUKKD9YWVOCS5Jku/Jh8s +dR5lW2utwpOM7nOjnblwb2jt77Hnq/Cc1MX1Lu1Z4Kup1/nKZTU+sXqoXpib +Cbxfh1p3iejjT1ul3S6bz8N6Smaj2CV99DTnNklYpYFa9OmjDwwMUPvi8E4T +j3Og4WJYx+k0wLprzRvCRJLB5Z77iZsBa9B9/sEo/YYzUHex9dDAEkOEcV/H +M5EJMFwyM6Zz2xDvTrPneKbEgTOnXCR7oxEKdVdtiJQ8DgMaafoV/UboP625 +IqMgGqqKfn8YSViL8yQKok8pR8DudWxcq2iMjgtmLbCICAU5n/hq7Xpj9Dl3 +uTh/NBiWzPe+sXEHD4u9u+Xd5gdBkXlEWP8uHgZOWTYoTAeCXkSSedpeHkrK +XurrHAiETf3X37Qf5KHd3Wsv3TsC4eTbkQlnbx6qHPwa0FISCOOXoszCYnjo +LlKq2GUVCJ1r014Xl/PQ6fe31BtnA8A9uCjXmuHhlNnYwVWxATDK3HL5cZ2H +jkO2XrUhASDJah/TreThwY497B7HALAVVpCvrefhh9Xi/wXrBcDd1uJDr9/w +UK77K7+x3R9sxKu0Qtp5WP3PeaGyZ/7Qbvl4VKaLh6zRjsDzD/xh+M73hP3v +edhpUR8TyfcHrcIV9LdeHrY/XauTFe0PdztNQxJ/8vDR7LZeJpi8b/E20Okn +88lAyRNPf3CND351eIRH4ldKabEDeV/9yeyl4zzs0Xv52tTGH2InM53vTPJQ +wHw8Ohj8YeGqUs19U2S8/Srq2ip/yPe5MzIzw8PkJs2aX+r+8D/GrFVv + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.059159926541650046`}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.059159926541650046`}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAHAlRRmKkszuPfcaMkRF5FoLZWwUzaXIPBOFjCUqIUTmlGS4 +51ReiSSKol6jlOk9lYZXGsxj4bd/f53P93POPnvvs9daZ6k4+dm5zBYQEJgz +S0Dg/9fR7seN1Jkik4R5b9x2zjE0ac2XCTVtjwXta38V3B+UBlzywkmmPRXS +X354eHaQCyFbytoE2y9BTbB0hM+gPiz6tTR1oq0CMjUcvpkPWsC7u5v8htse +QNHmbOfHA9vBgur9d6CtBcKfTlmO9LnCRJvB+f62HvC08jC+8TUEGsyvFr26 +NAQfehcK19TGg/y76i9OmlNwycUi+nf4OVjs7Vg2z1wQNeOd3h5+lQGpuhY1 +mxyEcXrsvpfGnlzouLCifmChGKZfixF5n38RzhRFvZi9bBGKm7nO+ElfhqXp +H0+l5Umh52LNAbFNVyDe3tqkZXQJOu6PqrTTvApBhoWOj2NlUFi/1mj9WAms +65sM8/0oi06Z4boSHmUQapWucf+HLG6rbexd71sGTKFWp9SoLPLFb6mEBpWB +jP0Bw2phOUxQ85r3JqIMflQ9HBPUlkPhL0fKnFLLIC025XDWUTmUkv8p9eZO +GfQs4fo2ismjU9r6hsUi5RBjvPWg7BoFFN/rmjicXQ5W+/MHDcwUcPWTqllX +C8pBPPr7cYcNCuh4zsbSoagcchviilMOKOA9h1tmV+hyqLK5833uKQV8I3Zp +TLK+HPp3skOGOhTw4NtF6zmfymF/8Mjpp+GK+On61mlKnQ+cTDP53jhFXPD1 +jMNWLT5ZbzI9L0URHT9ZhIfq8iHsj/pLsyJF/G/JBr1aQz6cP75/SfVTRfxy +i7tZ0oYPT881FVxRUMI8VdENQx58MGKybkbWKeHypUubUor5sK7t+dSvZiWU +S9C9Ml7Kh00CcywdW5TQ6CfdvZfmg7Odbwd8VsK3xnBI9iYfLMJVoqKFlNEr +f2Gtx30++CuNXjZdroz1w1YPdnXxodGt4GdDiDI+uD6tFi1Kg/UfQ8lj4coo +8/FPVZAEDc9TWvVXRSujSNu+UmdJGjqqRaKLTikjO2EZf40MDb8WHJaMy1VG +ycg9cJtNg8x1KwOLB8ro4BL/fK4RDd7jA9HNYiroOXeL6YAzDUYBrtJfJFVQ +yHvkU7ErDcK9neWCMir41nzOlp0eNFzpanhrwlLBvILuCMaXhu575zVv6atg +xj0Tc7VQGjbHGbYXOpLx6fnPtp6lQXGa9qk7pIKJ7C/Sjck0/AhhCf7roYJe +ScLaeqk0JLgv0JY5rIJ9H3OaZmXSUG/77/GkBBUES+ebvhdp0JOM0Qm/oYKR +EQ87oypoEDgz0nihUgUlSJhcu0n2L+i5u7JGBfeNO3p2VtLgNWIXN/BQBYXj +R7ZQNTQUtVNdbp0qWGW5dOXJBhqkC5pP2guyUDIx817saxomli/s1nJgYS+b +X+vUT8NonmzMyt0snKfcIDh3kIZhCQ5l6MjC1b/4268Mke85ZOi5zoOFvOr1 +nPZRGnpqnEd3R7DQb6IlWHyKhie2t8UTrrAw1BQ97gkz0FR7/8bZMha2xek1 +sOYz0Kjz1D7tGgsP9CWsPL6AgXtSH7Lzq1no+qBn1xpxBiq65qveesZC+s/k +8yApBrK99kPPCAtFf3f16igwkPmve89/kyxUFH405qDIQPrmoLifMyxssQnk +HFViIGllwt/jImzsd2r8fF2FgdjfN3ZIKLJx1vP9YsMcBqJ87k4uZrOxTMhl +5W8uA8fePcqTVWNjsfvVqGlVBkIauj5y9NiYY8Y/O6HOgNcZIX9jCzbW/QhI +u6/FgPuUhJSZLRsXNUvMlGoz4OonW2m5hY2sW+kZSToMHNim88duNxuPpBts +2KDLgL3crgQPXzZqL7L4krWKAeNy/sWMDPJ8q3x4pBEDXcrlBetz2Jg81J+o +uJaBsIzS/OECNsZdLrCvIb4dU5xrV8rG8s/zhb8bM6C38+IF8btsDJopW8gG +Bl49y8+srSf7afnQU0Lsb56X4f2QjVtapvyWIwOMdnb6k+dk/j+Ha7mmDKgL +paec/MDGs7e9DEbNGGgOS01e/YWNft2vBw+ak/30pyR96iX3wzf5PiEu6jqb +aDZM1vtNruTcOgbMtyaeGRhn43RwvVs/cc+j06cvTrHRZEC213Y9A8oV8QnT +cynMm8o2nCCuUz0ZTy+gUDNOWtjWgoH9eSdO7l1IYeh/QzlZxDkJMSfuLKPQ +7FectJYlA0bTUcc9FCn8UZ0+HUDcHhQZK8OmUJ2pZv4ilnYMjw7RpPCdtICn +lhUDt1pDozi65PmOqBAXYnubo5GtqymUdmrZmE08VBcScdyIwhzlkv6/iVNX +Bx/TAwq58yscJ4l1y4PCP5hTmJJRmMOxZuClcmBYihWFCfVqVzYS+2b4h8JG +Cu2EJo8FEouJ+h39tZVCv0PN7HRifozPkbztFO51tMyuILYZ8wrZsIdCowmN +D8+Iv3l7Bv92pPBcperEZ+KEHvfDZYconMgd7JkkVt3pFrTLg8LHeqYFojYM +PHrmEijsS2F35GNtOWIX80MBtwMp1BM2S+USz6l28nc9QmHZm4NPtIkvax/0 +W3KMwhqf920ric2KHH0boylkvQ2uWU38ftl+n6A4CpPSOoNXEUcl7/VmnabQ +ubRp3gpiRaE9Xq+SKHTKGg1QI74btsszOo3s11nllgLxnv4dHjoXKHxxYnaL +BPGky3b37lwKv4zbP54m68/qsnc7W0hhg0FrTi/xmq3bXI2LKYzUN7Z5Tdz2 +aKvL9zIKr7tav6kiDjHecij7GoVYWcXLIV5SscnZ+iaFQ0mWJ8KIb6pudBqv +onDd279KtxMPSNoc2P6AwmlGMV2IuN2b9dKziUKdghCnVnJ+9Y8mIeophb3T +o3EFxClh5UolbynMdLV8qUF8tPV48t0uCimcM9FL4ueA9t6Zl+8pPLq8Iewq +8Yoe0XcTvRSqiqqdXUIsY/x5k3g/heML6pWaSHwKZNTeY42Q+NE1kQgmfmHt +m287Q+Eh5XbhRyS+fW+82JcnxUHDfxfHGpN82L6g5NkNGQ5eavVa+orkj4lL +NO+RAgerx5MXORGLLdNV6FPlYM1uWBNK8o8fnfoPGnPQs2K31zGSr+mdnhsc +TDmY9kzffJjk87FV5nc9LDhYEtkX705s+3UoJ3ULB8OV5++1MGGgd7PDnk+H +OLiPnWzbRupFS6nW3+MeZL7do8V6xHcE564V8+PgFcGAI6dJvTl1u1JWP5SD +FVlN4TqGDKgpyXTGn+Xgnu7lOpv1GVgY2m+dm8rBu/57tyStZmC8pbn6eiYH +RV9N/XpM6lfzydCsjkIO6nx8WqK/kgG3X507l1dycMbaTvMLqX+brP5qhhoO +Hlav2S5CrH/pzBr7eg4W1y+dp07q5dztxjIRTzgof2x8ap8mA8W1eW3PuzmY +UZ/klK/GwKfEA9sD53HxnHfOZKgy+b69mqwVolzM06NO/L++j1lO/Py5kIsx +mh5LDpP6P18wNc5Dlou3DBrsnOTJeYY23DygxUVOv7idnAwDES5cqc3buBhZ +IKkjIEHmbxjsFt3JRa0Rn8IXYiRelOvKnuzlopARSyNX9P/1boeZhSsXNfNt +YjXJ/+rJ1lMBvFAuWrVddtMQIvXH5MeL5QVcPFo1qz1nkoaLOVU53y5zsfjT +LyXeBA3qEyfcrpZwsS5y9dmuMRqMbyrMsCq4eHpNbpfECA3OGpu1ZR9yUeaf +aKftfTRcl65IFP7ORerT/r49H0l/03fE+rO+Ku7/du3Z5sc0yOsqnhQ2VsUx +pZJbgU3k/xvY+GC5qSr2/9zhnvqQhvTRhcaBtqoYOvFDr/k+6UemSrVnHFVR +BL2jxe7QECj6j9SyU6oYV6wuK1BGQ7Y6dm/oUkWf3To2SfGk//H6Iuv/XhUL +Z2+bszGOBqATd6R9VsXZKYEVwsdp+LSi42VHnyqOtn/tC4mkQXtNYIPrHDWs +rC1YrBNMQ4NFUUm0lhq+1u7SknAi/Y2zcNDNKDU8Mxg6lmlI1pu/rrbuhBpO +x/oJzzGgoa8jet7fp9Sw8Xmdnc8qGgY3T+R8SFPD4o7zFwx0aBhb29soXqKG +Jg81xcopGmYvfirt8VINZb7m1oiTfm9ZY/IdBRV1DGlIsmr5QPpHauns+Afq +KF7U8jQtig/fnCxL1jap446tQtIpx/iQWHhkU//f6hicKWxyOpQPrxXbs3e9 +UceZj93aR4P4cGBZ1krNr+p4NNm5wsiND6Hici6vxDRw9mkB/T2b+MAfV2yW +26WBsQfc3i2S44PkM27S9T4NbB6eSkljykE+4doWfX1NnNGH2lNlZXBhueFC +KTctDOoKmzTOK4Unsqarh85pI9fIYvpHdAkYyT9I0Xmrg+eW2dvXGF0FccFL +hw/GrsBXLzydONNXQDFGyXgXVxfpF8YBJ/OLQISzt9KuSRe73H7UGJheBm3e +smtH9umhyuvBPK/fhRDYLdlgI7ASo4rkLKvyLkLfUKKD9YWVOCS5Jku/Jh8s +dR5lW2utwpOM7nOjnblwb2jt77Hnq/Cc1MX1Lu1Z4Kup1/nKZTU+sXqoXpib +Cbxfh1p3iejjT1ul3S6bz8N6Smaj2CV99DTnNklYpYFa9OmjDwwMUPvi8E4T +j3Og4WJYx+k0wLprzRvCRJLB5Z77iZsBa9B9/sEo/YYzUHex9dDAEkOEcV/H +M5EJMFwyM6Zz2xDvTrPneKbEgTOnXCR7oxEKdVdtiJQ8DgMaafoV/UboP625 +IqMgGqqKfn8YSViL8yQKok8pR8DudWxcq2iMjgtmLbCICAU5n/hq7Xpj9Dl3 +uTh/NBiWzPe+sXEHD4u9u+Xd5gdBkXlEWP8uHgZOWTYoTAeCXkSSedpeHkrK +XurrHAiETf3X37Qf5KHd3Wsv3TsC4eTbkQlnbx6qHPwa0FISCOOXoszCYnjo +LlKq2GUVCJ1r014Xl/PQ6fe31BtnA8A9uCjXmuHhlNnYwVWxATDK3HL5cZ2H +jkO2XrUhASDJah/TreThwY497B7HALAVVpCvrefhh9Xi/wXrBcDd1uJDr9/w +UK77K7+x3R9sxKu0Qtp5WP3PeaGyZ/7Qbvl4VKaLh6zRjsDzD/xh+M73hP3v +edhpUR8TyfcHrcIV9LdeHrY/XauTFe0PdztNQxJ/8vDR7LZeJpi8b/E20Okn +88lAyRNPf3CND351eIRH4ldKabEDeV/9yeyl4zzs0Xv52tTGH2InM53vTPJQ +wHw8Ohj8YeGqUs19U2S8/Srq2ip/yPe5MzIzw8PkJs2aX+r+8D/GrFVv + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.059159926541650046`}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.059159926541650046`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993912712275468*^9}, + CellLabel-> + "Out[419]=",ExpressionUUID->"457c8c45-f873-46bf-bf6b-3bd6aae99cc4"] +}, Open ]], Cell[CellGroupData[{ @@ -10746,66 +12333,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + "In[420]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 116, 57, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068365192`*^9}, - CellLabel-> - "During evaluation of \ -In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506846985*^9}, - CellLabel-> - "During evaluation of \ -In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ + "\"\\!\\(\\*FractionBox[\\\"3.473162962059499`*^-182\\\", \ +RowBox[{\\\"2405969386799803097354037\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"82\\\", \\\"\[RightSkeleton]\\\"}], \\\"44000000000000000000000000\\\"}]]\ \\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 116, 59, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506856045*^9}, +be lost.\"", 2, 420, 57, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.9939127123241777`*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +In[420]:=",ExpressionUUID->"971319c3-0053-4e5e-8034-1047fb97790b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.609486128487091`*^-186\\\", \ +RowBox[{\\\"6505741221906667575245316\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"85\\\", \\\"\[RightSkeleton]\\\"}], \\\"76000000000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 420, 58, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.993912712331689*^9}, + CellLabel-> + "During evaluation of \ +In[420]:=",ExpressionUUID->"09373d9b-464d-4cf1-859d-7e96037ead50"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6587357017889306`*^-189\\\", \ +RowBox[{\\\"1827462709233582921886409\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"89\\\", \\\"\[RightSkeleton]\\\"}], \\\"84000000000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 420, 59, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.993912712338233*^9}, + CellLabel-> + "During evaluation of \ +In[420]:=",ExpressionUUID->"0ac54353-e64c-4492-aa1c-6df9386ed2b0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 116, 60, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068640423`*^9}, +during this calculation.\"", 2, 420, 60, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.993912712346916*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +In[420]:=",ExpressionUUID->"b4a79e1c-1b97-4ac3-bc84-beffcf2c7bd2"], -Cell[BoxData["11.275343508404701`"], "Output", - CellChangeTimes->{3.991326513010317*^9}, +Cell[BoxData["13.355303943001811`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.993912754529977*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] + "Out[420]=",ExpressionUUID->"6922aa63-f744-4f85-9f67-b6d9e2babe8b"] }, Open ]], Cell[CellGroupData[{ @@ -10872,68 +12463,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998502248*^9, - 3.9917998584727135`*^9}},ExpressionUUID->"df92a918-12ed-ff47-a8a8-\ -122296a3d634"], + CellChangeTimes->{{3.9917998502248*^9, 3.9917998584727135`*^9}}, + CellLabel-> + "In[421]:=",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 117, 61, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130447063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6142620210258265`*^-216\\\", \ +RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 421, 61, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993912754575688*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +In[421]:=",ExpressionUUID->"b7477e27-823f-4151-9f0a-a4362dd5109f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 62, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513053705*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.755125575464367`*^-222\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 421, 62, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993912754585231*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +In[421]:=",ExpressionUUID->"0203a43e-977c-4b78-a3b8-358a05ca00d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 63, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130617065`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3005334663287504`*^-227\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 421, 63, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993912754594365*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +In[421]:=",ExpressionUUID->"25b614dd-4adc-4e6c-89df-1b7fd70fa139"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 117, 64, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513069849*^9}, +during this calculation.\"", 2, 421, 64, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993912754600709*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +In[421]:=",ExpressionUUID->"406e20aa-a59a-429c-a049-6a6bdcc41eb1"], -Cell[BoxData["1.662840304462236`"], "Output", - CellChangeTimes->{3.9913265201819115`*^9}, +Cell[BoxData["0.7035044261375052`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.993912761547427*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] + "Out[421]=",ExpressionUUID->"e379c77e-c71f-4ca3-ae18-348fe8ccc0e6"] }, Open ]], Cell[CellGroupData[{ @@ -10954,8 +12549,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11000,68 +12594,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998626681576`*^9, - 3.991799866004116*^9}},ExpressionUUID->"1990573a-00f1-b54c-9d39-\ -9c68738afe07"], + CellChangeTimes->{{3.9917998626681576`*^9, 3.991799866004116*^9}}, + CellLabel-> + "In[422]:=",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 118, 65, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520216116*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6142620210258265`*^-216\\\", \ +RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 422, 65, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993912761588828*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +In[422]:=",ExpressionUUID->"4ee63082-8ed4-46ef-b127-88703042a56f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 66, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520226103*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.755125575464367`*^-222\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 422, 66, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.9939127615971212`*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +In[422]:=",ExpressionUUID->"7814faba-a713-482b-9354-9113a9cb2dcd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 67, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265202341022`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3005334663287504`*^-227\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 422, 67, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993912761606213*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +In[422]:=",ExpressionUUID->"66e21697-54eb-4bab-9951-22a01afda078"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 118, 68, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520242243*^9}, +during this calculation.\"", 2, 422, 68, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993912761615622*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +In[422]:=",ExpressionUUID->"3c35abb4-8c30-47f7-b5bc-9527e2121518"], -Cell[BoxData["8.698310175000124`"], "Output", - CellChangeTimes->{3.9913265264075394`*^9}, +Cell[BoxData["45.114244559431675`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.993912768002111*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] + "Out[422]=",ExpressionUUID->"31549e16-ce64-4a48-af5e-4f44840b5999"] }, Open ]], Cell[CellGroupData[{ @@ -11082,8 +12680,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11128,68 +12725,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799871682028*^9, - 3.9917998792226925`*^9}},ExpressionUUID->"586f2005-dac7-8547-be11-\ -766f96e6af5d"], + CellChangeTimes->{{3.991799871682028*^9, 3.9917998792226925`*^9}}, + CellLabel-> + "In[423]:=",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 119, 69, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264435444`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6142620210258265`*^-216\\\", \ +RowBox[{\\\"41607359339843574325548110\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"41\\\", \\\"\[RightSkeleton]\\\"}], \\\"16426506240000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 423, 69, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993912768043344*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +In[423]:=",ExpressionUUID->"7b79ebea-6de7-4543-adf4-29203e02bf85"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 70, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264535427`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.755125575464367`*^-222\\\", \ +RowBox[{\\\"66571774943749718920876976\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"44\\\", \\\"\[RightSkeleton]\\\"}], \\\"82409984000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 423, 70, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993912768050789*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +In[423]:=",ExpressionUUID->"5e552997-1a98-42a0-bab8-7042b31b2fba"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 71, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264615555`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3005334663287504`*^-227\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 423, 71, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993912768059546*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +In[423]:=",ExpressionUUID->"7e11e881-3102-4e0d-b63b-2b37aa5ef979"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 119, 72, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326526468542*^9}, +during this calculation.\"", 2, 423, 72, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993912768068482*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +In[423]:=",ExpressionUUID->"3545068b-5da2-41d8-a24f-4dcc30c19490"], -Cell[BoxData["16.721244215445346`"], "Output", - CellChangeTimes->{3.9913265299431496`*^9}, +Cell[BoxData["12.088295037007164`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.993912771832384*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] + "Out[423]=",ExpressionUUID->"20029165-f1c4-4c30-8543-d84631697c54"] }, Open ]], Cell[CellGroupData[{ @@ -11198,22 +12799,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9917998836260815`*^9, - 3.991799887334032*^9}},ExpressionUUID->"363f609f-6fd9-cc4c-924f-\ -14ef82ef0962"], - -Cell[BoxData["0.13787921511838797`"], "Output", - CellChangeTimes->{3.991326529975149*^9}, + CellChangeTimes->{{3.9917998836260815`*^9, 3.991799887334032*^9}}, CellLabel-> - "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] + "In[424]:=",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], + +Cell[BoxData["0.030125028317611945`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.9939127718738317`*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"b545ecb4-0ca2-4015-aee4-b7625c8c7028"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9}, - 3.991924340381132*^9},ExpressionUUID->"32c57f0b-017d-d340-92c6-\ -0f56a212e9c3"], + 3.991924340381132*^9}, + CellLabel-> + "In[425]:=",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ @@ -11236,12 +12838,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + "In[426]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913265300040226`*^9}, +Cell[BoxData["26.466421626583998`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.993912771890111*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] + "Out[426]=",ExpressionUUID->"eb3107b4-91f3-4eb9-9905-886d4c1ef052"] }, Open ]], Cell[CellGroupData[{ @@ -11251,12 +12853,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + "In[427]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.991326530052025*^9}, +Cell[BoxData["2.3809514381765835`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.9939127719017773`*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] + "Out[427]=",ExpressionUUID->"fdf9e2db-b4e9-4a0c-a466-4c1ee8e0cc43"] }, Open ]], Cell[CellGroupData[{ @@ -11266,12 +12868,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + "In[428]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913265300922585`*^9}, +Cell[BoxData["63.015264635203`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.99391277191363*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] + "Out[428]=",ExpressionUUID->"14acd0c7-7060-40e2-8545-9dcfd5ed780a"] }, Open ]], Cell[CellGroupData[{ @@ -11461,12 +13063,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + "In[429]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[BoxData["0.022635100966331548`"], "Output", - CellChangeTimes->{3.9913265301172295`*^9}, +Cell[BoxData["0.004488148331862122`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.993912771927656*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] + "Out[429]=",ExpressionUUID->"ca40508f-744d-4f11-9faa-f1352dc7ba69"] }, Open ]], Cell[CellGroupData[{ @@ -11480,12 +13082,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + "In[430]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[BoxData["5.890521190513567`"], "Output", - CellChangeTimes->{3.991326530210228*^9}, +Cell[BoxData["13.228522483426284`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.993912772048314*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] + "Out[430]=",ExpressionUUID->"94302bed-41e6-4906-9080-95361c813892"] }, Open ]], Cell[CellGroupData[{ @@ -11677,12 +13279,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + "In[431]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[BoxData["0.012260254107801566`"], "Output", - CellChangeTimes->{3.9913265302252293`*^9}, +Cell[BoxData["0.014510635815488322`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.9939127720611897`*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] + "Out[431]=",ExpressionUUID->"99eaea07-31bd-4b93-929f-d2698fdc6e40"] }, Open ]], Cell[CellGroupData[{ @@ -11696,12 +13298,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + "In[432]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[BoxData["8.003781147223087`"], "Output", - CellChangeTimes->{3.9913265303172264`*^9}, +Cell[BoxData["7.357016320608085`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.993912772186018*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] + "Out[432]=",ExpressionUUID->"843893ab-8424-47e7-9025-95188c1c8ebc"] }, Open ]], Cell[CellGroupData[{ @@ -11794,12 +13396,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + "In[433]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913265303292294`*^9}, +Cell[BoxData["0.16117775346672777`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.993912772198105*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] + "Out[433]=",ExpressionUUID->"4f84924d-5589-453c-9fba-d0fbc96b8441"] }, Open ]], Cell[CellGroupData[{ @@ -11889,12 +13491,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + "In[434]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991326530340416*^9}, +Cell[BoxData["0.8388222465332723`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.993912772214373*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] + "Out[434]=",ExpressionUUID->"e9512e21-91c2-4378-8944-9ccc6e29bead"] }, Open ]], Cell[CellGroupData[{ @@ -12017,12 +13619,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + "In[435]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991326530367384*^9}, +Cell[BoxData["0.1351994852541465`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.9939127722284803`*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] + "Out[435]=",ExpressionUUID->"1102993f-0235-4dad-b940-e9dba848d008"] }, Open ]], Cell[CellGroupData[{ @@ -12037,7 +13639,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -12059,8 +13663,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12084,68 +13687,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799912745739*^9},ExpressionUUID->"c3883d3a-8a99-644a-9175-\ -a97b5c6c44f4"], + CellChangeTimes->{3.991799912745739*^9}, + CellLabel-> + "In[436]:=",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 135, 73, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265303923836`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0056133613610368`*^-217\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 436, 73, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9939127722469063`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +In[436]:=",ExpressionUUID->"908716b0-dd94-4bd7-9b80-375f76160171"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 135, 74, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304013824`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.12633993857545`*^-223\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 436, 74, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9939127722569723`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +In[436]:=",ExpressionUUID->"379cc3a6-f4e7-4926-9677-e72225d90d6e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 135, - 75, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304095325`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6132669051121417`*^-228\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 436, 75, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9939127722659693`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +In[436]:=",ExpressionUUID->"f756744c-125d-4ba7-9074-1ca729b9ed72"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 135, 76, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304175396`*^9}, +during this calculation.\"", 2, 436, 76, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9939127722745323`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +In[436]:=",ExpressionUUID->"a33bc922-5ecb-48ae-8cf9-1f456f118836"], -Cell[BoxData["5.890521190513565`"], "Output", - CellChangeTimes->{3.9913265339749985`*^9}, +Cell[BoxData["13.228522483426291`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.9939127759968*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] + "Out[436]=",ExpressionUUID->"abac4ef5-74c9-4d5b-8704-5e100aef2432"] }, Open ]], Cell[CellGroupData[{ @@ -12160,7 +13767,9 @@ Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -12182,8 +13791,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12207,68 +13815,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917999175346184`*^9},ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-\ -bed1f30b804b"], + CellChangeTimes->{3.9917999175346184`*^9}, + CellLabel-> + "In[437]:=",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 136, 77, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340092525`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0056133613610368`*^-217\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 437, 77, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9939127760497637`*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +In[437]:=",ExpressionUUID->"3d26a09a-94a6-4cd1-bb00-22ad19337da2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 136, 78, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340202503`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.12633993857545`*^-223\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 437, 78, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.993912776060192*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +In[437]:=",ExpressionUUID->"2d41734b-a27c-40ba-9783-663d685041a1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 136, - 79, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340282536`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6132669051121417`*^-228\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 437, 79, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.993912776068693*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +In[437]:=",ExpressionUUID->"09717490-405a-4c8b-b481-ea8aff1fc7a3"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 136, 80, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340354958`*^9}, +during this calculation.\"", 2, 437, 80, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.993912776077297*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +In[437]:=",ExpressionUUID->"4ca60dc3-a9a4-4a44-a4e3-278683f8ffc1"], -Cell[BoxData["8.00378114722308`"], "Output", - CellChangeTimes->{3.9913265375649567`*^9}, +Cell[BoxData["7.3570163206080865`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.993912779840969*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] + "Out[437]=",ExpressionUUID->"58954f68-cf53-461e-af51-ddda6e4e1531"] }, Open ]], Cell[CellGroupData[{ @@ -12326,92 +13938,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917999220519733`*^9},ExpressionUUID->"d5c5d0e8-862b-f245-8b21-\ -eac61b5b75d3"], + CellChangeTimes->{3.9917999220519733`*^9}, + CellLabel-> + "In[438]:=",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hdcje0bAPCiejU1tJW0qEROS0n3pUl70ZQ6nfMghCItMio/JBoqtLSl +oaE0eI2kt0KUUbTPOeW050Ok390fz+f5fD/Xc1/PdV/32Eg94URfxcHBMYKf +lfepd1s31bS/M9bLG6yXrGIg44lcXapZMWJbJE2tuD9TL0nZrAH9m5wXJ4Xt +QHvLI6D9Gl24K5EsjV0eEvmK26wN+XoO88hiX22Seh5Z9AElsSQH1mPXtp/K ++EP5hCZtCpU3YLO7WyJC67+iDTmpHzZiyzCVPBdMv6PTnD+GlbGtJyMMgtr6 +kHLUnUObsZ/9YfOHFA2gHqsihy3Yny9KhlcHDCH/UNkcLewJHjP2HIWJxPTH +vXWxeWJPumuTLLRYuiHKEFteJL35VP0IGlhbKQrYdrIL+ROmY0jfc+moDTaR +pSihuWYC8VVX6TljR6rYRx9tm0Rfu9/6e2B/lezcfrpoGqXFqq71x6Z5+B9J +jJ1BfQVEZCD2VBrH/YqAWSRTxOsejr1GUVN4mjKPjB6E7onDTqK9shQWX0BR +TpbeqdgKBe6R28gFdHZnaE829o4tMRPH63+iaDt+qVrsw3p9bWzTP0i1a/Yc +G3su5AwXn+oSevd6opfEvlDPb6S25i9KcXV8wP2YgVJhx8NDbcsomWYfpohN +y2s2CyzihB2tuwR9sYuaEvsvyq6CpeNRtaewp4a9I+JjV4Ewv/77S9gR6vOV +jwJWw0zeoF4+dlLZRqVJCjdMWNPJaezu9rFnf3O4ITdJbpK7Gtc/U+MhJM4D +fustHWSwi3XsEjRJHgj4OGVnht1YG8Z5rH4N2AtU7UrHnn/V0TdiKgAGqWUD +1BoGErUREA5/JgCpQonlkdhanWYgaCAIiYlBS2nY/ozHWdu3CsGLCi3eLuyT +q9q0dgkIQ3rzs6n9TxiIqVg6Hb0gAmscXTn9a3F/iBbe99qiEFbzID4Oe9VD +1kapU6LAtXltRiW2gvYGp6JRUSj0kNZYxvYwvVXxrl8M1GNdJdLqGOi9X2CQ +ZKs4pGlNUcbrGai3IO66zxoJWN+jHy3dwEBjo0U5D8wloKOqxNkCm+/0UMfO +5xKQ56tBv49tFuWi4/NYEnJ1cj0OPGWguly9+cJMaWgq3RM/9oyBcpmLwYan +5UBDy9Ho8EsG2rPvSm9QiRyYPuSWy8IeaxSzKGHJwdWNO/2/YuvkbhFXcJcH +Qn27ldUr3E+qdyW38QbwfXRZQbuRgWYm+8+OXFaAYrfMzdJNDCR23Kyq0lYR +wmSp1XotDMTK5Tvs4K8I3feDNCKwn3xvlx2PUYSETjvBl9heNgcuqz5XBBHX +Y5L2rbg+jWCnOxQl6LS7bh7Qhv/PLpg6L6kMv2/e53/xjoFcDvFrWg2ogKOO +kdOTDgZCwfsorksqIP446BVvJwOpR2fq06RVQeLmzXRPbI4cbZPzjqoQkB4Z +y/GJgUp6PV0rXqhCn0D8PvvP+HzuL74ok70JMn6vTuHowvWZ2X5mU9VA7KD+ +WHkvA+U4p3wjz6tBC1d1pHAfA8VRB/q57qnBd7mwiBPYtAtnRuU71EC+uq98 +az8DiTSkczibqkNqYoRAxQDeP9oT6vVKGpD7a+RyG4OBZBVvRl5nbAGt3KxE +h1EGarg2p/ZrlSZobjx67jW216x7J7FRE7SYKUOGYwyU0aisZuKtCTnrNVQ2 +jTOQ4qG6jz+/4Lj503Pck3i+xUwVonUrfPzvzf+6ZhhITlaeUHDXAuFoFbW+ +RQbaknda4DeigO9IXY2vABNRaZfnNe0oIBkytjiKnaqU0OvjRQGpdXcfBgsy +0ersskdNIRRouRCx74YQE3VnsF0Syinw04PR+q8wE11N9UlXU9KGTQ8iLA3E +mYh13WarG48O3OEj0s7LM9H9QGWHx226QIXW7874HmwPRvpReQbQZBKuZe7H +RBu9P9kdOLYLhmo6Y9zuMRF9ubpULhTgrY7B4sRnJpIcffKPJNUEfP+s25y1 +gYVOaxt9T1A3g0hRTy3doyxEHf/TLMY2h4dvghWLG1ioxCTon8z3lpB9eFIk +RG4Y5c75vyhO2gvPH5fGdUQOo5+7pd42RlpDkrUp03t2GPVwrJ4e8LWFHgUl +0+XjIyhg/YlbF5XsQV/E7nPlyAgqPdL8/Ha0A5jf3LeJ++wPFDYrTWoccYTW +N8X3MrjYaN7KYv+bg05gu5x4prSAjQw843czHZ0h1SjK74bjKPoone7fqO0C +glVWpc9+jiKZ/MsNhZv3gelbQcfAmjH0pF/dxk5wP3BfN4/VCxxH8p1Th4LH +94MS4VprsX0Cad+OL87pd4XPl1jHlHknUTrX7NaEV27wxudLsnH3JKreva07 +utYdamMYZQ7UKZSqf03kT5EHHMwKfTX6dQq9/5YXox3rCWxVotTBaho9tk1T +PnnBC+5xoPA3b6bR9HFnjgDaAbDN7+cpNp5B8xZqhydMvUH3xbunFlUzqHC8 +62eQ3kGwVqjosNaZRW738/wOCPjAZO7TLY4PZ1FlhfXB1Vd8QIZTk3tQfQ4Z +yH78dfWXDxxcDhu+nzmHlPoPdX844gs8l0YFBoTmEYP/qH3akC/YXDX+3Hxp +HrXH2flZ7qPCtcRPT71+zKOkkEz+M+1UuH9clU/ZcQE1PFv+5bfXDxyNGgst +SxfQWi+4ol3nB6zEsUr0ZwEprHvzfn2DH6SsKTtybmkBabXZSvE884PkexP+ +dX8XkJOR54OvL/yA9HpqR+EkUdL64NZz//lBc+XVRGkeEsn0PFzb/NUPzHma +PrxeSyJlb8lUL9IPrpC3VBMVSWTgM1EYrUMDBc4zb6fNSZR/ZyrITo8GIbHO +JhMWJFrXMWMsuYMGQ+L5fGxLEk2Yk52FO3G84mNS314S318cnG0mNNC6evHq +S1sSCZEi7qKONOC+4tJ0aB+JGDd0eTOP0yC8TVJlK41EcfURR57k0+Blr+7d +zEgSHaekGIQU0sB8JG/v0QsksnlQzrujiAadNgGWehdJxJfCelBTQoMfXd6a +LZdIFB3owK6uokGfvErGj2gSRagpH338kgaOJowJnlgS+ae0HqvopQGPKc/2 +uhQS7RViGQX20+B010/PE6kk2hzNIUgZpMHiHYN2pTskYgXqlpQzaeDuLph0 +7S6JfO0yxx+N0WD+7bco+3QSuXEHBZQt0qCREsquziaRZZDMyWIJOvz139W8 +WEyil5kxVglSdLh62NEwv4RERm0zyiEydOj5wt/uUEoiLZXWLlN5OoxNNtNz +ykgk/SXc9JsKHUKyXugaV5Bo1LBHgk+XDu4e5qZWNSS6uSrr6SFnOhTkb/1T +9xzPf5tAqu0+Otw2FE6yekGiKM+QQG1XOsTw5lp1YYdUOWxa9qDDyUFHsbmX +uH6CMz6ZSgcJkz6hDa9JpN1Cpb0+hb932XnL6j8SfYlX4Ve6RQdWzraOhXYS +lSLBwyPxuL5YthP1A84/PtdYkkgHTfow31tsyt7G8ztS6HBdcY9S1ke8fhx+ +M7YZdNi/WmrWqJNEFieyukKK6TATJvLb4QuJ5OT+p2dcSoemu+pzZdhzLScS +Vz+iQ4KbvLLQVxJlqyLbuEo6HOzYvbkZe6mn53lOHR18/fX/pXSTqMpGtvBd +Mx2mef0kBr+T6PriKu6kFjq4PCoJ0ukhEbWQ7eveRodv11J4YrCFuepkGe/p +QBfleKvaS6Jj9W43f32mQ3iBVrd3H4mU1JODlZl0OHOda7hwgESLX851/GDR +wcZRMnkCuz2arlU2QofUI3Wh2oMkOj+gwzYYo0PoUlBvHXZ3ascB+1k6XIpe +u/75EIkS/hExD+MkQHODs2cuk0QNMz2ep1cTIPAzp3cIe7inKDCAm4DjL139 +FFl4P1SZZVF5CXgSln0yDZvlE/LbSoSAXvmx1KhhXL+Nuai5GAH3DcNUGrB3 +6ouqIXECvkkOV8xg3xIs3q8tTUCxiUK71wiO1/WVy24kgF8uWFTlB4mIvOJm +cSUCvCW8c12wb90K7VurQgDhV6F3GZtFiAlyqREQyX/Mq2clLmZ5eEyLAPPq +N0XRbBLV/RWLZFEIiI2oMi7BZv7ov92vQ8DZpeKPHdiGz8Nede4gwGd78qLc +KD7Px0rlnwIBEzJb9uZjC7mF69aYEKAS7vr9NbaB6R6bcjMC5AfQCQZ2nPRg +aN4eAu5UqyTJj5HoCVfZrUwrAh58ElU1xB6aDC+4Y0NAvXtajQv2jibxTzcc +8HieQ10x2NTywdErTgR0rL97JAP7RlrZqksuBJicsf1VhT0YuFcr2A33v09W +sg9b0FvC8qQHAcryGnkzK/n2Dh3w98L9WMymcI/j8RvOXff2ISB5qcZ6E/YT +PqtsNyruZ4L1Fz3swXmJWicaAa0ZOlRzbMGBofc2BF4foRNjTtg72h6xLA4T +4L+OPHMQm1pzbgn8CeDT+O+v/0r+bKt1O48RECo+GHNmJf8NSQ3dALz+vcZC +kSv5Qxi7t50k4HvX96Qr2AK0cje1QAIEs2tlbmLr258/oXSagDiZjszbK/kN +rWPkggmoCNikfA87VkUqXTKEgDGRxwWZ2NXCzEqRMAKe/RumnoM98Lu8hT8C +1x9+tjhvJf/w+QHu8wS8iy/SLMDW+2j9czkSz+e2WOmK/w8ZrRZF "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12425,104 +14039,106 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1Hdcje0bAPCiejU1tJW0qEROS0n3pUl70ZQ6nfMghCItMio/JBoqtLSl +oaE0eI2kt0KUUbTPOeW050Ok390fz+f5fD/Xc1/PdV/32Eg94URfxcHBMYKf +lfepd1s31bS/M9bLG6yXrGIg44lcXapZMWJbJE2tuD9TL0nZrAH9m5wXJ4Xt +QHvLI6D9Gl24K5EsjV0eEvmK26wN+XoO88hiX22Seh5Z9AElsSQH1mPXtp/K ++EP5hCZtCpU3YLO7WyJC67+iDTmpHzZiyzCVPBdMv6PTnD+GlbGtJyMMgtr6 +kHLUnUObsZ/9YfOHFA2gHqsihy3Yny9KhlcHDCH/UNkcLewJHjP2HIWJxPTH +vXWxeWJPumuTLLRYuiHKEFteJL35VP0IGlhbKQrYdrIL+ROmY0jfc+moDTaR +pSihuWYC8VVX6TljR6rYRx9tm0Rfu9/6e2B/lezcfrpoGqXFqq71x6Z5+B9J +jJ1BfQVEZCD2VBrH/YqAWSRTxOsejr1GUVN4mjKPjB6E7onDTqK9shQWX0BR +TpbeqdgKBe6R28gFdHZnaE829o4tMRPH63+iaDt+qVrsw3p9bWzTP0i1a/Yc +G3su5AwXn+oSevd6opfEvlDPb6S25i9KcXV8wP2YgVJhx8NDbcsomWYfpohN +y2s2CyzihB2tuwR9sYuaEvsvyq6CpeNRtaewp4a9I+JjV4Ewv/77S9gR6vOV +jwJWw0zeoF4+dlLZRqVJCjdMWNPJaezu9rFnf3O4ITdJbpK7Gtc/U+MhJM4D +fustHWSwi3XsEjRJHgj4OGVnht1YG8Z5rH4N2AtU7UrHnn/V0TdiKgAGqWUD +1BoGErUREA5/JgCpQonlkdhanWYgaCAIiYlBS2nY/ozHWdu3CsGLCi3eLuyT +q9q0dgkIQ3rzs6n9TxiIqVg6Hb0gAmscXTn9a3F/iBbe99qiEFbzID4Oe9VD +1kapU6LAtXltRiW2gvYGp6JRUSj0kNZYxvYwvVXxrl8M1GNdJdLqGOi9X2CQ +ZKs4pGlNUcbrGai3IO66zxoJWN+jHy3dwEBjo0U5D8wloKOqxNkCm+/0UMfO +5xKQ56tBv49tFuWi4/NYEnJ1cj0OPGWguly9+cJMaWgq3RM/9oyBcpmLwYan +5UBDy9Ho8EsG2rPvSm9QiRyYPuSWy8IeaxSzKGHJwdWNO/2/YuvkbhFXcJcH +Qn27ldUr3E+qdyW38QbwfXRZQbuRgWYm+8+OXFaAYrfMzdJNDCR23Kyq0lYR +wmSp1XotDMTK5Tvs4K8I3feDNCKwn3xvlx2PUYSETjvBl9heNgcuqz5XBBHX +Y5L2rbg+jWCnOxQl6LS7bh7Qhv/PLpg6L6kMv2/e53/xjoFcDvFrWg2ogKOO +kdOTDgZCwfsorksqIP446BVvJwOpR2fq06RVQeLmzXRPbI4cbZPzjqoQkB4Z +y/GJgUp6PV0rXqhCn0D8PvvP+HzuL74ok70JMn6vTuHowvWZ2X5mU9VA7KD+ +WHkvA+U4p3wjz6tBC1d1pHAfA8VRB/q57qnBd7mwiBPYtAtnRuU71EC+uq98 +az8DiTSkczibqkNqYoRAxQDeP9oT6vVKGpD7a+RyG4OBZBVvRl5nbAGt3KxE +h1EGarg2p/ZrlSZobjx67jW216x7J7FRE7SYKUOGYwyU0aisZuKtCTnrNVQ2 +jTOQ4qG6jz+/4Lj503Pck3i+xUwVonUrfPzvzf+6ZhhITlaeUHDXAuFoFbW+ +RQbaknda4DeigO9IXY2vABNRaZfnNe0oIBkytjiKnaqU0OvjRQGpdXcfBgsy +0ersskdNIRRouRCx74YQE3VnsF0Syinw04PR+q8wE11N9UlXU9KGTQ8iLA3E +mYh13WarG48O3OEj0s7LM9H9QGWHx226QIXW7874HmwPRvpReQbQZBKuZe7H +RBu9P9kdOLYLhmo6Y9zuMRF9ubpULhTgrY7B4sRnJpIcffKPJNUEfP+s25y1 +gYVOaxt9T1A3g0hRTy3doyxEHf/TLMY2h4dvghWLG1ioxCTon8z3lpB9eFIk +RG4Y5c75vyhO2gvPH5fGdUQOo5+7pd42RlpDkrUp03t2GPVwrJ4e8LWFHgUl +0+XjIyhg/YlbF5XsQV/E7nPlyAgqPdL8/Ha0A5jf3LeJ++wPFDYrTWoccYTW +N8X3MrjYaN7KYv+bg05gu5x4prSAjQw843czHZ0h1SjK74bjKPoone7fqO0C +glVWpc9+jiKZ/MsNhZv3gelbQcfAmjH0pF/dxk5wP3BfN4/VCxxH8p1Th4LH +94MS4VprsX0Cad+OL87pd4XPl1jHlHknUTrX7NaEV27wxudLsnH3JKreva07 +utYdamMYZQ7UKZSqf03kT5EHHMwKfTX6dQq9/5YXox3rCWxVotTBaho9tk1T +PnnBC+5xoPA3b6bR9HFnjgDaAbDN7+cpNp5B8xZqhydMvUH3xbunFlUzqHC8 +62eQ3kGwVqjosNaZRW738/wOCPjAZO7TLY4PZ1FlhfXB1Vd8QIZTk3tQfQ4Z +yH78dfWXDxxcDhu+nzmHlPoPdX844gs8l0YFBoTmEYP/qH3akC/YXDX+3Hxp +HrXH2flZ7qPCtcRPT71+zKOkkEz+M+1UuH9clU/ZcQE1PFv+5bfXDxyNGgst +SxfQWi+4ol3nB6zEsUr0ZwEprHvzfn2DH6SsKTtybmkBabXZSvE884PkexP+ +dX8XkJOR54OvL/yA9HpqR+EkUdL64NZz//lBc+XVRGkeEsn0PFzb/NUPzHma +PrxeSyJlb8lUL9IPrpC3VBMVSWTgM1EYrUMDBc4zb6fNSZR/ZyrITo8GIbHO +JhMWJFrXMWMsuYMGQ+L5fGxLEk2Yk52FO3G84mNS314S318cnG0mNNC6evHq +S1sSCZEi7qKONOC+4tJ0aB+JGDd0eTOP0yC8TVJlK41EcfURR57k0+Blr+7d +zEgSHaekGIQU0sB8JG/v0QsksnlQzrujiAadNgGWehdJxJfCelBTQoMfXd6a +LZdIFB3owK6uokGfvErGj2gSRagpH338kgaOJowJnlgS+ae0HqvopQGPKc/2 +uhQS7RViGQX20+B010/PE6kk2hzNIUgZpMHiHYN2pTskYgXqlpQzaeDuLph0 +7S6JfO0yxx+N0WD+7bco+3QSuXEHBZQt0qCREsquziaRZZDMyWIJOvz139W8 +WEyil5kxVglSdLh62NEwv4RERm0zyiEydOj5wt/uUEoiLZXWLlN5OoxNNtNz +ykgk/SXc9JsKHUKyXugaV5Bo1LBHgk+XDu4e5qZWNSS6uSrr6SFnOhTkb/1T +9xzPf5tAqu0+Otw2FE6yekGiKM+QQG1XOsTw5lp1YYdUOWxa9qDDyUFHsbmX +uH6CMz6ZSgcJkz6hDa9JpN1Cpb0+hb932XnL6j8SfYlX4Ve6RQdWzraOhXYS +lSLBwyPxuL5YthP1A84/PtdYkkgHTfow31tsyt7G8ztS6HBdcY9S1ke8fhx+ +M7YZdNi/WmrWqJNEFieyukKK6TATJvLb4QuJ5OT+p2dcSoemu+pzZdhzLScS +Vz+iQ4KbvLLQVxJlqyLbuEo6HOzYvbkZe6mn53lOHR18/fX/pXSTqMpGtvBd +Mx2mef0kBr+T6PriKu6kFjq4PCoJ0ukhEbWQ7eveRodv11J4YrCFuepkGe/p +QBfleKvaS6Jj9W43f32mQ3iBVrd3H4mU1JODlZl0OHOda7hwgESLX851/GDR +wcZRMnkCuz2arlU2QofUI3Wh2oMkOj+gwzYYo0PoUlBvHXZ3ascB+1k6XIpe +u/75EIkS/hExD+MkQHODs2cuk0QNMz2ep1cTIPAzp3cIe7inKDCAm4DjL139 +FFl4P1SZZVF5CXgSln0yDZvlE/LbSoSAXvmx1KhhXL+Nuai5GAH3DcNUGrB3 +6ouqIXECvkkOV8xg3xIs3q8tTUCxiUK71wiO1/WVy24kgF8uWFTlB4mIvOJm +cSUCvCW8c12wb90K7VurQgDhV6F3GZtFiAlyqREQyX/Mq2clLmZ5eEyLAPPq +N0XRbBLV/RWLZFEIiI2oMi7BZv7ov92vQ8DZpeKPHdiGz8Nede4gwGd78qLc +KD7Px0rlnwIBEzJb9uZjC7mF69aYEKAS7vr9NbaB6R6bcjMC5AfQCQZ2nPRg +aN4eAu5UqyTJj5HoCVfZrUwrAh58ElU1xB6aDC+4Y0NAvXtajQv2jibxTzcc +8HieQ10x2NTywdErTgR0rL97JAP7RlrZqksuBJicsf1VhT0YuFcr2A33v09W +sg9b0FvC8qQHAcryGnkzK/n2Dh3w98L9WMymcI/j8RvOXff2ISB5qcZ6E/YT +PqtsNyruZ4L1Fz3swXmJWicaAa0ZOlRzbMGBofc2BF4foRNjTtg72h6xLA4T +4L+OPHMQm1pzbgn8CeDT+O+v/0r+bKt1O48RECo+GHNmJf8NSQ3dALz+vcZC +kSv5Qxi7t50k4HvX96Qr2AK0cje1QAIEs2tlbmLr258/oXSagDiZjszbK/kN +rWPkggmoCNikfA87VkUqXTKEgDGRxwWZ2NXCzEqRMAKe/RumnoM98Lu8hT8C +1x9+tjhvJf/w+QHu8wS8iy/SLMDW+2j9czkSz+e2WOmK/w8ZrRZF "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.6469839734683436, + 1.4955212402213436`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.646983973468345}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12534,21 +14150,21 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.6469839734683436, + 1.4955212402213436`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.646983973468345}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12562,102 +14178,104 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1Hdcje0bAPCiejU1tJW0qEROS0n3pUl70ZQ6nfMghCItMio/JBoqtLSl +oaE0eI2kt0KUUbTPOeW050Ok390fz+f5fD/Xc1/PdV/32Eg94URfxcHBMYKf +lfepd1s31bS/M9bLG6yXrGIg44lcXapZMWJbJE2tuD9TL0nZrAH9m5wXJ4Xt +QHvLI6D9Gl24K5EsjV0eEvmK26wN+XoO88hiX22Seh5Z9AElsSQH1mPXtp/K ++EP5hCZtCpU3YLO7WyJC67+iDTmpHzZiyzCVPBdMv6PTnD+GlbGtJyMMgtr6 +kHLUnUObsZ/9YfOHFA2gHqsihy3Yny9KhlcHDCH/UNkcLewJHjP2HIWJxPTH +vXWxeWJPumuTLLRYuiHKEFteJL35VP0IGlhbKQrYdrIL+ROmY0jfc+moDTaR +pSihuWYC8VVX6TljR6rYRx9tm0Rfu9/6e2B/lezcfrpoGqXFqq71x6Z5+B9J +jJ1BfQVEZCD2VBrH/YqAWSRTxOsejr1GUVN4mjKPjB6E7onDTqK9shQWX0BR +TpbeqdgKBe6R28gFdHZnaE829o4tMRPH63+iaDt+qVrsw3p9bWzTP0i1a/Yc +G3su5AwXn+oSevd6opfEvlDPb6S25i9KcXV8wP2YgVJhx8NDbcsomWYfpohN +y2s2CyzihB2tuwR9sYuaEvsvyq6CpeNRtaewp4a9I+JjV4Ewv/77S9gR6vOV +jwJWw0zeoF4+dlLZRqVJCjdMWNPJaezu9rFnf3O4ITdJbpK7Gtc/U+MhJM4D +fustHWSwi3XsEjRJHgj4OGVnht1YG8Z5rH4N2AtU7UrHnn/V0TdiKgAGqWUD +1BoGErUREA5/JgCpQonlkdhanWYgaCAIiYlBS2nY/ozHWdu3CsGLCi3eLuyT +q9q0dgkIQ3rzs6n9TxiIqVg6Hb0gAmscXTn9a3F/iBbe99qiEFbzID4Oe9VD +1kapU6LAtXltRiW2gvYGp6JRUSj0kNZYxvYwvVXxrl8M1GNdJdLqGOi9X2CQ +ZKs4pGlNUcbrGai3IO66zxoJWN+jHy3dwEBjo0U5D8wloKOqxNkCm+/0UMfO +5xKQ56tBv49tFuWi4/NYEnJ1cj0OPGWguly9+cJMaWgq3RM/9oyBcpmLwYan +5UBDy9Ho8EsG2rPvSm9QiRyYPuSWy8IeaxSzKGHJwdWNO/2/YuvkbhFXcJcH +Qn27ldUr3E+qdyW38QbwfXRZQbuRgWYm+8+OXFaAYrfMzdJNDCR23Kyq0lYR +wmSp1XotDMTK5Tvs4K8I3feDNCKwn3xvlx2PUYSETjvBl9heNgcuqz5XBBHX +Y5L2rbg+jWCnOxQl6LS7bh7Qhv/PLpg6L6kMv2/e53/xjoFcDvFrWg2ogKOO +kdOTDgZCwfsorksqIP446BVvJwOpR2fq06RVQeLmzXRPbI4cbZPzjqoQkB4Z +y/GJgUp6PV0rXqhCn0D8PvvP+HzuL74ok70JMn6vTuHowvWZ2X5mU9VA7KD+ +WHkvA+U4p3wjz6tBC1d1pHAfA8VRB/q57qnBd7mwiBPYtAtnRuU71EC+uq98 +az8DiTSkczibqkNqYoRAxQDeP9oT6vVKGpD7a+RyG4OBZBVvRl5nbAGt3KxE +h1EGarg2p/ZrlSZobjx67jW216x7J7FRE7SYKUOGYwyU0aisZuKtCTnrNVQ2 +jTOQ4qG6jz+/4Lj503Pck3i+xUwVonUrfPzvzf+6ZhhITlaeUHDXAuFoFbW+ +RQbaknda4DeigO9IXY2vABNRaZfnNe0oIBkytjiKnaqU0OvjRQGpdXcfBgsy +0ersskdNIRRouRCx74YQE3VnsF0Syinw04PR+q8wE11N9UlXU9KGTQ8iLA3E +mYh13WarG48O3OEj0s7LM9H9QGWHx226QIXW7874HmwPRvpReQbQZBKuZe7H +RBu9P9kdOLYLhmo6Y9zuMRF9ubpULhTgrY7B4sRnJpIcffKPJNUEfP+s25y1 +gYVOaxt9T1A3g0hRTy3doyxEHf/TLMY2h4dvghWLG1ioxCTon8z3lpB9eFIk +RG4Y5c75vyhO2gvPH5fGdUQOo5+7pd42RlpDkrUp03t2GPVwrJ4e8LWFHgUl +0+XjIyhg/YlbF5XsQV/E7nPlyAgqPdL8/Ha0A5jf3LeJ++wPFDYrTWoccYTW +N8X3MrjYaN7KYv+bg05gu5x4prSAjQw843czHZ0h1SjK74bjKPoone7fqO0C +glVWpc9+jiKZ/MsNhZv3gelbQcfAmjH0pF/dxk5wP3BfN4/VCxxH8p1Th4LH +94MS4VprsX0Cad+OL87pd4XPl1jHlHknUTrX7NaEV27wxudLsnH3JKreva07 +utYdamMYZQ7UKZSqf03kT5EHHMwKfTX6dQq9/5YXox3rCWxVotTBaho9tk1T +PnnBC+5xoPA3b6bR9HFnjgDaAbDN7+cpNp5B8xZqhydMvUH3xbunFlUzqHC8 +62eQ3kGwVqjosNaZRW738/wOCPjAZO7TLY4PZ1FlhfXB1Vd8QIZTk3tQfQ4Z +yH78dfWXDxxcDhu+nzmHlPoPdX844gs8l0YFBoTmEYP/qH3akC/YXDX+3Hxp +HrXH2flZ7qPCtcRPT71+zKOkkEz+M+1UuH9clU/ZcQE1PFv+5bfXDxyNGgst +SxfQWi+4ol3nB6zEsUr0ZwEprHvzfn2DH6SsKTtybmkBabXZSvE884PkexP+ +dX8XkJOR54OvL/yA9HpqR+EkUdL64NZz//lBc+XVRGkeEsn0PFzb/NUPzHma +PrxeSyJlb8lUL9IPrpC3VBMVSWTgM1EYrUMDBc4zb6fNSZR/ZyrITo8GIbHO +JhMWJFrXMWMsuYMGQ+L5fGxLEk2Yk52FO3G84mNS314S318cnG0mNNC6evHq +S1sSCZEi7qKONOC+4tJ0aB+JGDd0eTOP0yC8TVJlK41EcfURR57k0+Blr+7d +zEgSHaekGIQU0sB8JG/v0QsksnlQzrujiAadNgGWehdJxJfCelBTQoMfXd6a +LZdIFB3owK6uokGfvErGj2gSRagpH338kgaOJowJnlgS+ae0HqvopQGPKc/2 +uhQS7RViGQX20+B010/PE6kk2hzNIUgZpMHiHYN2pTskYgXqlpQzaeDuLph0 +7S6JfO0yxx+N0WD+7bco+3QSuXEHBZQt0qCREsquziaRZZDMyWIJOvz139W8 +WEyil5kxVglSdLh62NEwv4RERm0zyiEydOj5wt/uUEoiLZXWLlN5OoxNNtNz +ykgk/SXc9JsKHUKyXugaV5Bo1LBHgk+XDu4e5qZWNSS6uSrr6SFnOhTkb/1T +9xzPf5tAqu0+Otw2FE6yekGiKM+QQG1XOsTw5lp1YYdUOWxa9qDDyUFHsbmX +uH6CMz6ZSgcJkz6hDa9JpN1Cpb0+hb932XnL6j8SfYlX4Ve6RQdWzraOhXYS +lSLBwyPxuL5YthP1A84/PtdYkkgHTfow31tsyt7G8ztS6HBdcY9S1ke8fhx+ +M7YZdNi/WmrWqJNEFieyukKK6TATJvLb4QuJ5OT+p2dcSoemu+pzZdhzLScS +Vz+iQ4KbvLLQVxJlqyLbuEo6HOzYvbkZe6mn53lOHR18/fX/pXSTqMpGtvBd +Mx2mef0kBr+T6PriKu6kFjq4PCoJ0ukhEbWQ7eveRodv11J4YrCFuepkGe/p +QBfleKvaS6Jj9W43f32mQ3iBVrd3H4mU1JODlZl0OHOda7hwgESLX851/GDR +wcZRMnkCuz2arlU2QofUI3Wh2oMkOj+gwzYYo0PoUlBvHXZ3ascB+1k6XIpe +u/75EIkS/hExD+MkQHODs2cuk0QNMz2ep1cTIPAzp3cIe7inKDCAm4DjL139 +FFl4P1SZZVF5CXgSln0yDZvlE/LbSoSAXvmx1KhhXL+Nuai5GAH3DcNUGrB3 +6ouqIXECvkkOV8xg3xIs3q8tTUCxiUK71wiO1/WVy24kgF8uWFTlB4mIvOJm +cSUCvCW8c12wb90K7VurQgDhV6F3GZtFiAlyqREQyX/Mq2clLmZ5eEyLAPPq +N0XRbBLV/RWLZFEIiI2oMi7BZv7ov92vQ8DZpeKPHdiGz8Nede4gwGd78qLc +KD7Px0rlnwIBEzJb9uZjC7mF69aYEKAS7vr9NbaB6R6bcjMC5AfQCQZ2nPRg +aN4eAu5UqyTJj5HoCVfZrUwrAh58ElU1xB6aDC+4Y0NAvXtajQv2jibxTzcc +8HieQ10x2NTywdErTgR0rL97JAP7RlrZqksuBJicsf1VhT0YuFcr2A33v09W +sg9b0FvC8qQHAcryGnkzK/n2Dh3w98L9WMymcI/j8RvOXff2ISB5qcZ6E/YT +PqtsNyruZ4L1Fz3swXmJWicaAa0ZOlRzbMGBofc2BF4foRNjTtg72h6xLA4T +4L+OPHMQm1pzbgn8CeDT+O+v/0r+bKt1O48RECo+GHNmJf8NSQ3dALz+vcZC +kSv5Qxi7t50k4HvX96Qr2AK0cje1QAIEs2tlbmLr258/oXSagDiZjszbK/kN +rWPkggmoCNikfA87VkUqXTKEgDGRxwWZ2NXCzEqRMAKe/RumnoM98Lu8hT8C +1x9+tjhvJf/w+QHu8wS8iy/SLMDW+2j9czkSz+e2WOmK/w8ZrRZF "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.6469839734683436, 1.4955212402213436`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.646983973468345}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12667,7 +14285,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6007907022525477}, + AxesOrigin->{0, 0.646983973468345}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12695,7 +14314,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6469839734683436, 1.4955212402213436`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12703,9 +14323,9 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913267728125134`*^9}, + CellChangeTimes->{3.9913267728125134`*^9, 3.993913068921155*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] + "Out[438]=",ExpressionUUID->"cf873716-f744-419e-b53b-2721b5da28dd"] }, Open ]], Cell[CellGroupData[{ @@ -12720,7 +14340,9 @@ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ - FractionBox[ + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ @@ -12742,8 +14364,7 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + ")"}]}]}], "*", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", @@ -12768,154 +14389,158 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799933259697*^9, - 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ -c179c9adcae7"], + CellChangeTimes->{{3.991799933259697*^9, 3.9917999365172615`*^9}}, + CellLabel-> + "In[439]:=",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.0773864283400737`*^-270\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 81, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773051552*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 439, + 81, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.993913069072709*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +In[439]:=",ExpressionUUID->"103c4703-42b8-4e19-89c7-e15cda907818"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.892192204982692`*^-282\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 82, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730605392`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 439, + 82, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.993913069080847*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +In[439]:=",ExpressionUUID->"378289be-f5fd-421c-86f0-8094a95c0f95"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.1281628027191075`*^-293\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 138, 83, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730685368`*^9}, + 439, 83, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9939130690878353`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +In[439]:=",ExpressionUUID->"d5911927-b752-49df-805a-1edb8911e218"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773076536*^9}, +during this calculation.\"", 2, 439, 84, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.99391306909587*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +In[439]:=",ExpressionUUID->"ef588db9-db91-49da-a0a8-88995a271dc5"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc8Vf8fB/CitIyWke3ee66Rlcy43m8jJaNSSIuskCQrGlyKSEYhJSMj +4d5TSNqSUZJRKKs0KBIhM+Xrd35/nMd5PB+Pz3l8zvmc9+f1/sg5H7Nx41mw +YMEcdf3/PtXzqoYRm2c48k/jcVKajmFbpliIUUcEqOXb2PTnCwMKNzuLdVyG +k/HiYeX5BATtKGrn7ciB8Mxd3lfztWDVL9HLf9pLoSPYu8IvfzN8emJ9bKK9 +CoxkKu0W59uCGWPw41h7C5g+WuvvmucGf9p1Ukbbv4Kr6PzRoYxAqDa5lfc2 +Zxyq3XyfPvaIAslPD787K89Bv1bE6GBEIqz1dixaYsKLwhGPM9ckpsDlDWaP +rW2XYnJHZIRCSxp0XlWvHFspgP/+8gmnhGRBbF5YM8+6VbhTLmG3+LocEE3u +jUnKWIOiOWkRu/Tz4Pxuc8OWKWHUKVwhUbk8H/z1sh1fRYhh0r50ddfXt8B0 +ZPakT684fuf4Oq3SK4SQrclKz4fEcd5SPcbYsBBuZ6t0rZkSx3LBZ2xfk0IQ +2+2k93CpBJoFCHVXWRXC0IPaaV5VCbyZskTTyLkQkiISA64FS6Be+1etvAuF +8FWY6VMjIImjdzMSF3YWQrjBzkPiulJYZwsX+L2LYOvBzN86xlK4+I/U3Sbf +IhBk/zxraymF/kcHlsYFFkF6dWR+opMU1k6e3/RfaBE82PboJ1+MFPLFi5SU +XiqC0T30oPFOKbxakPTSpbwIDgZOXmg4JY0/lBKLvv0rAiLVWHIwUhrF3E4p +qCzkUO+bQC5JlMa+n6bNvos5cPKf4hvjPGks9lJJHRLgQMrZg8IPG6TR/78s +wXJpDjRcepl1U0oGJwrtLiUCBzbdvlYW+kwGxUz+q3AJ5YBpe9PcrzoZbOR7 +ZjMSzgHrBYu2OLbIYFGhdPyJSA642Ph0wjcZHKz6+PfMRQ6YnZILYy+WRYV3 +QWXOaRzwlZnKNVovi/Zykjdj73Gg5nDWcHWQLM4q//lv3w8OmP/TW336lCze +nRfNOz3EgabENm1NtizGeaqPXxvhQOfDZey8GFnUFqpNqJ/kwK8VAasj02Xx +EdFby8vDBbHirTpmVbLYe13f5P06LnjPjLHrBORwe6ZZ/D8zLmw67i7yfbUc +RlXc6xoy58LSwS4Or5gc/hWNMOq05MLN7ur3hjQ5pPlpOObbcKGnIkX5njY1 +fi3t66qDXNgeqdeR7SiHbzKTjFUDuKCxOlztVIkc3nB2PhOawYUFsZM1V8vl +sEzzTvbvLC408XrtLX8sh7Ftsz+cc7hwZNImcqxWDnN2/O3XucWFvA5G9+Eu +ObTIepV7t5gLIll1Ubt5aWgrnurzu4oLf9av7FGxpWFw9l+JxD4uTGWIh2/c +S8P9snst2N+5MCFEMPQcaXj0NE+z9wAXfo3reZl60rCnbKht0xAXvj52mdp7 +hobHRv37i8a5UG9xXzD6Jg2NWdIXuxeS8PLp85K4Ihre9cvXusRLQo1aw+6k +OzScCn66yWQxCRVrvqRlPqThy6cRDulLSSjtXi5/r5GGk/NzUzQhEtKOHISv +kzSkR5XIRkiQkPrR42v/LA0LCPmKOUkSkrf7Rw7P0zD8p+KzQGkS4jdGv55Z +RkcX95HhvXIkRPwtsReSpqNln6XALJOEI7GLfQ3M6PhCRbMhdgMJHnNCa4wt +6PhesulrowYJ7sfEy7fsoKO3XoEbvyYJTrvU/tnspeOBv4dKQ7VJ2C3hEO3p +Q8eO6YkTuvokGHC4N65coaO9ioz2QlMSumU5WZuv05FP5lHyDOWTVwozJ7Lo +OHdntmdoMwn3w/PTbQrpeKXZXbdhCwkae25cFXxCx3NCPfzuFiS8bcxMfVpJ +xxOnUt6bWpLga5JxxbuWjs9bxxNkrUi4rZqWXN9ERzWfO61N1iQoLk5OjPpC +x4pVkSSfDQl1Jy8naH2no5FSK08jZffRxPi+QTpW2f2wSNxFQl533EXjCTry +d59/LGBLgmzp+ej/+BjYHHJQps+eBBHHU+wgZQZq+Vw6Pr+fhHttIWHEBgaS +hd4mKQeo798WHNqmxcCb83dWKRwk4bJW4GkNYODRhls3TR1JEOA/FvxrJwPf +qi567HCIBG740RMZdgyUUKkNa6e8bfpIkOU+BmZpem+2cSYh+qtHQJErA/vM +yt4ZupCw6KGzr/sJBlYPs8QnXEnIVT10TPg0A8WcWVMObiQY5zn61LAZ+KGu +ov0J5bCE/d60CwwcVMkkQ9xJkF6878jbeAZ6lSrktlJ+ctLBi53EQCut+BtK +h0mYdbPz6ElnINti671myte6dx+Oy2aguEBjo5QHCbo7d7kb5DNwg2LcqAfl +IIMdrml3GBj6mmE/RVm41NrFvIyBIKuerutJQpm8lfPMAwYKe/cMn6A8tnqb +k10VA3eGJD4cptzhTXvj9ZKBz04b3lbwIqHyxSyENTCweMZYxYlygWzrnaS3 +DAxZ666TTDnxJEem4D0Du5J9G2soB7edTXjSTa1/9/rRMcpOqvvn33ym1rv/ +0A2JIyRsjdY89u0bAydtPvYYUVb/yv/pzyADl9h6cl0pixl8sxYcZeCCyrfL +zlFecOVpBW2SgW4Le6ezKA+MpKjqzDIwTs7rxAPKzeY+mRbzDDSv1oxppFye +aybotIjAAPoq1U+UM+ekQwOWEZgi1uQ+TDnKfno4WpDAmNX6mjOUfUqaD2Ss +IVBcXCF1nrLdioLGEjEC09+4JfJ6k2Doxma9kCIw+Vit7CLKzGd7yC4agbZ1 +YuYLKQus2yA1Ik/gJRON5X+p5yf8lsXxqhC4/Euf6xjlDw1f/olqEKius2hv +H+Ua5iNvZR0CS/xcB1spc9mXP6ABgVJ2XSKVlJO7vCxtjQiM1dP/XED5tKbJ +E08zArWWH9gST9k1XkI51ILAldtErHwpWwyMX7+8g0AfIcPf1pQ1jBtW3LIl +8Moiro4SZfH0vFOP9xLof1hXmofy4HbbfX2uBIZYrWy5Rf2flkKV1zOeBA4p +CWUHUn7Ey6cvcIzAHsWktUg55n65uHYIgS2RqUP1VH34rkq4sC2UwBP1zTax +lPccOTx78CyBAvP/nLZSVpAR6zofR+A2fW7wA6r+VoaMmqdfJpDNGTx7hPJM +S93D4lQC/3Rf2SRBuS4q5FpnNoGNx++TvlR9H/7VtWd9OYEvZEuqx6n9Yr31 +bh08pt5375jxRcraObG6uysJlEzlBMhR5rMzEDtTT+CnXOlxI2r/5T/NaG/q +IXC90qrAfdR+jRcN2tLbS2DgS7XsTmo/Bx23vj89QKBg1HTUbsqbifkrsuME +fqEzzqITCX0Xnez8ljDxye1T9mNUfvgMKtPU+Zl4nK+835Hy9JY/w8MrmfhZ +ZyD3NZU3y3kvR3qKM1E/Rys3bR9VzyHVZU4qTAweSG4RcSDhjBtzzfZdTGxI +vp0ZTeUZX/XvHv49TCRDDpnXU3mXKPusqH4/E1cqg/Iym//nnb2xmTsTd4ql +ZITuIKF+Z8xxVggTK3uDTLdSeSpiONS8PouJdhUFNvZmJNy4/uD6j1xqfouP +H72pvFb8c+7wrQImpkq8IcOoPDcok5qnlTJRg0mTyTAmwUVpu6p4LRN/6fcf +uG9IQrFI6cWlP6n5fl5d4EX1C/ORE+bftOWxaUXfpUY6CZIbpKOWGsijuwHb +1Y9Gwi+/mqr1RvLYqT4uu5bqV8lTKw38LOQx1fjmPmuqn/XMFarOO8rj0bfm +UxliJPjxf1izLkYe+TeGlxbxU/1REXssu+Uxptd1KPw3dR458l3c97M8ekq9 +XvtilAtAXrRP+iaPmz+LbFsywoU+9c43nSPy2K/44RP7JxdUdf2q3RcpoEpK +VvsOqv9Xm+UVsFUUsHD/nknXd1wYclnqXxamgOxfp/rd7lH9P9P06bNzCuhl +p15of5cLI53sJa9jFFDGcEe5WQkXfm//c/1LkgKeb2HdlyS5MK0/WCNYoICC +Bm/8CvK4wLO2QcTzjQLGbW15BUlcWFeT8EhKThHDT95vCvThUud9UZ7zVYqY +FlP1zlCKCz+ctxTov1TEHIfIx4/EuXAx+4T16GtFNOT/HKkpxoVW6Y40h3eK +yJ+p2CC3hgtO665tVB5QRJHfpF7vUi6ECEq4vRVQQv4tC314JjjAnZGuk3BQ +wqjFL0ce1HFgdSMzvnhECQndMx4G3hyQjL6zQ1tbGfu3tEcVXiiCq+v1Vq45 +rIKOXa8ta9MLoV7cSGv8kiqKfFAa5c8sgE2SVYlq79XwEh+OE0G3QJA3J+BQ +hDr29t9Mf74rH6TDZQwcmBswU3fJ/E+Bm7CM2F9u83IDtr5gDy59mQuqrHV3 +ThzQQP9/0uqHk3LAr2d19bYFG7G4nD1mbZYNI+MXbc2vbsTBjFz7mtU3YIva +izRzFU28Otdyv/ZdBlSM6/+dbtJEgzED437X6+CjrNH11k0Lv+TemmzbcA1Y +v1zbHJZpY+X2mrcFA1dgM0PMSiBHGz+NhYmGfk4GBfaF4CodHeTJls8d/3cZ +lNz0nhFdOqj9Uu5GkNAlcKvwOFd2XBf17G7vy3keD89utLmOCevh3fYAy+0H +Y2GiYH5a7b4e5tfbhHpbRYMLwVmWZrUJlcQTgj9xImFMKUm7dHQTckU9WpuE +zsKDvL9fJqP1seHknGFUBxv2mtJRX9oAo63CifGnZ0Di6PmHqpUGWNQy4HT0 +cwgIL/cusbJnIWuBp4NQXhDkmZw5OerAQrEyoWyXK0GgcSbeJGk/CzeUJCdV +RAeB9Wjxu45DLHwjOuQbfTQIot5P/nHxpsYH5Lcc0QmCmZww45PhLDyjZOF0 +rCEQuvSTWvM5LCyyS1i+728AeATmpZvfZqGmVl0e+1cATN2+5zZUzMJIptgt +7pcAWE3rmN5QzkLtH9e6ResCwGKplOTTSha+qnd/tSklAJ605bu2vmPhTGX7 +l2L1ANgm+EAlqIOF8xHZCw0YAdCx5dWUWDcL/awHDjeKBsDEo5/RBz+zME7r +7DzPvD+oZKuTPwZZGBi2WPZhoz886TIKujjMwgf7m3WDnvvDtrW7QG2UhWeb +8LzePX9wPx/4NmCShdzTt5+0pPvDRGVUmugMC++lB2QVJPpDxGyqy6NZFg6t +C7pz7pw/rNQsVD4wx0LnF6mD7sH+kHn00eT8PAs5HhXW27394X9uNzue "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12929,113 +14554,113 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV1nc8Vf8fB/CitIyWke3ee66Rlcy43m8jJaNSSIuskCQrGlyKSEYhJSMj +4d5TSNqSUZJRKKs0KBIhM+Xrd35/nMd5PB+Pz3l8zvmc9+f1/sg5H7Nx41mw +YMEcdf3/PtXzqoYRm2c48k/jcVKajmFbpliIUUcEqOXb2PTnCwMKNzuLdVyG +k/HiYeX5BATtKGrn7ciB8Mxd3lfztWDVL9HLf9pLoSPYu8IvfzN8emJ9bKK9 +CoxkKu0W59uCGWPw41h7C5g+WuvvmucGf9p1Ukbbv4Kr6PzRoYxAqDa5lfc2 +Zxyq3XyfPvaIAslPD787K89Bv1bE6GBEIqz1dixaYsKLwhGPM9ckpsDlDWaP +rW2XYnJHZIRCSxp0XlWvHFspgP/+8gmnhGRBbF5YM8+6VbhTLmG3+LocEE3u +jUnKWIOiOWkRu/Tz4Pxuc8OWKWHUKVwhUbk8H/z1sh1fRYhh0r50ddfXt8B0 +ZPakT684fuf4Oq3SK4SQrclKz4fEcd5SPcbYsBBuZ6t0rZkSx3LBZ2xfk0IQ +2+2k93CpBJoFCHVXWRXC0IPaaV5VCbyZskTTyLkQkiISA64FS6Be+1etvAuF +8FWY6VMjIImjdzMSF3YWQrjBzkPiulJYZwsX+L2LYOvBzN86xlK4+I/U3Sbf +IhBk/zxraymF/kcHlsYFFkF6dWR+opMU1k6e3/RfaBE82PboJ1+MFPLFi5SU +XiqC0T30oPFOKbxakPTSpbwIDgZOXmg4JY0/lBKLvv0rAiLVWHIwUhrF3E4p +qCzkUO+bQC5JlMa+n6bNvos5cPKf4hvjPGks9lJJHRLgQMrZg8IPG6TR/78s +wXJpDjRcepl1U0oGJwrtLiUCBzbdvlYW+kwGxUz+q3AJ5YBpe9PcrzoZbOR7 +ZjMSzgHrBYu2OLbIYFGhdPyJSA642Ph0wjcZHKz6+PfMRQ6YnZILYy+WRYV3 +QWXOaRzwlZnKNVovi/Zykjdj73Gg5nDWcHWQLM4q//lv3w8OmP/TW336lCze +nRfNOz3EgabENm1NtizGeaqPXxvhQOfDZey8GFnUFqpNqJ/kwK8VAasj02Xx +EdFby8vDBbHirTpmVbLYe13f5P06LnjPjLHrBORwe6ZZ/D8zLmw67i7yfbUc +RlXc6xoy58LSwS4Or5gc/hWNMOq05MLN7ur3hjQ5pPlpOObbcKGnIkX5njY1 +fi3t66qDXNgeqdeR7SiHbzKTjFUDuKCxOlztVIkc3nB2PhOawYUFsZM1V8vl +sEzzTvbvLC408XrtLX8sh7Ftsz+cc7hwZNImcqxWDnN2/O3XucWFvA5G9+Eu +ObTIepV7t5gLIll1Ubt5aWgrnurzu4oLf9av7FGxpWFw9l+JxD4uTGWIh2/c +S8P9snst2N+5MCFEMPQcaXj0NE+z9wAXfo3reZl60rCnbKht0xAXvj52mdp7 +hobHRv37i8a5UG9xXzD6Jg2NWdIXuxeS8PLp85K4Ihre9cvXusRLQo1aw+6k +OzScCn66yWQxCRVrvqRlPqThy6cRDulLSSjtXi5/r5GGk/NzUzQhEtKOHISv +kzSkR5XIRkiQkPrR42v/LA0LCPmKOUkSkrf7Rw7P0zD8p+KzQGkS4jdGv55Z +RkcX95HhvXIkRPwtsReSpqNln6XALJOEI7GLfQ3M6PhCRbMhdgMJHnNCa4wt +6PhesulrowYJ7sfEy7fsoKO3XoEbvyYJTrvU/tnspeOBv4dKQ7VJ2C3hEO3p +Q8eO6YkTuvokGHC4N65coaO9ioz2QlMSumU5WZuv05FP5lHyDOWTVwozJ7Lo +OHdntmdoMwn3w/PTbQrpeKXZXbdhCwkae25cFXxCx3NCPfzuFiS8bcxMfVpJ +xxOnUt6bWpLga5JxxbuWjs9bxxNkrUi4rZqWXN9ERzWfO61N1iQoLk5OjPpC +x4pVkSSfDQl1Jy8naH2no5FSK08jZffRxPi+QTpW2f2wSNxFQl533EXjCTry +d59/LGBLgmzp+ej/+BjYHHJQps+eBBHHU+wgZQZq+Vw6Pr+fhHttIWHEBgaS +hd4mKQeo798WHNqmxcCb83dWKRwk4bJW4GkNYODRhls3TR1JEOA/FvxrJwPf +qi567HCIBG740RMZdgyUUKkNa6e8bfpIkOU+BmZpem+2cSYh+qtHQJErA/vM +yt4ZupCw6KGzr/sJBlYPs8QnXEnIVT10TPg0A8WcWVMObiQY5zn61LAZ+KGu +ov0J5bCE/d60CwwcVMkkQ9xJkF6878jbeAZ6lSrktlJ+ctLBi53EQCut+BtK +h0mYdbPz6ElnINti671myte6dx+Oy2aguEBjo5QHCbo7d7kb5DNwg2LcqAfl +IIMdrml3GBj6mmE/RVm41NrFvIyBIKuerutJQpm8lfPMAwYKe/cMn6A8tnqb +k10VA3eGJD4cptzhTXvj9ZKBz04b3lbwIqHyxSyENTCweMZYxYlygWzrnaS3 +DAxZ666TTDnxJEem4D0Du5J9G2soB7edTXjSTa1/9/rRMcpOqvvn33ym1rv/ +0A2JIyRsjdY89u0bAydtPvYYUVb/yv/pzyADl9h6cl0pixl8sxYcZeCCyrfL +zlFecOVpBW2SgW4Le6ezKA+MpKjqzDIwTs7rxAPKzeY+mRbzDDSv1oxppFye +aybotIjAAPoq1U+UM+ekQwOWEZgi1uQ+TDnKfno4WpDAmNX6mjOUfUqaD2Ss +IVBcXCF1nrLdioLGEjEC09+4JfJ6k2Doxma9kCIw+Vit7CLKzGd7yC4agbZ1 +YuYLKQus2yA1Ik/gJRON5X+p5yf8lsXxqhC4/Euf6xjlDw1f/olqEKius2hv +H+Ua5iNvZR0CS/xcB1spc9mXP6ABgVJ2XSKVlJO7vCxtjQiM1dP/XED5tKbJ +E08zArWWH9gST9k1XkI51ILAldtErHwpWwyMX7+8g0AfIcPf1pQ1jBtW3LIl +8Moiro4SZfH0vFOP9xLof1hXmofy4HbbfX2uBIZYrWy5Rf2flkKV1zOeBA4p +CWUHUn7Ey6cvcIzAHsWktUg55n65uHYIgS2RqUP1VH34rkq4sC2UwBP1zTax +lPccOTx78CyBAvP/nLZSVpAR6zofR+A2fW7wA6r+VoaMmqdfJpDNGTx7hPJM +S93D4lQC/3Rf2SRBuS4q5FpnNoGNx++TvlR9H/7VtWd9OYEvZEuqx6n9Yr31 +bh08pt5375jxRcraObG6uysJlEzlBMhR5rMzEDtTT+CnXOlxI2r/5T/NaG/q +IXC90qrAfdR+jRcN2tLbS2DgS7XsTmo/Bx23vj89QKBg1HTUbsqbifkrsuME +fqEzzqITCX0Xnez8ljDxye1T9mNUfvgMKtPU+Zl4nK+835Hy9JY/w8MrmfhZ +ZyD3NZU3y3kvR3qKM1E/Rys3bR9VzyHVZU4qTAweSG4RcSDhjBtzzfZdTGxI +vp0ZTeUZX/XvHv49TCRDDpnXU3mXKPusqH4/E1cqg/Iym//nnb2xmTsTd4ql +ZITuIKF+Z8xxVggTK3uDTLdSeSpiONS8PouJdhUFNvZmJNy4/uD6j1xqfouP +H72pvFb8c+7wrQImpkq8IcOoPDcok5qnlTJRg0mTyTAmwUVpu6p4LRN/6fcf +uG9IQrFI6cWlP6n5fl5d4EX1C/ORE+bftOWxaUXfpUY6CZIbpKOWGsijuwHb +1Y9Gwi+/mqr1RvLYqT4uu5bqV8lTKw38LOQx1fjmPmuqn/XMFarOO8rj0bfm +UxliJPjxf1izLkYe+TeGlxbxU/1REXssu+Uxptd1KPw3dR458l3c97M8ekq9 +XvtilAtAXrRP+iaPmz+LbFsywoU+9c43nSPy2K/44RP7JxdUdf2q3RcpoEpK +VvsOqv9Xm+UVsFUUsHD/nknXd1wYclnqXxamgOxfp/rd7lH9P9P06bNzCuhl +p15of5cLI53sJa9jFFDGcEe5WQkXfm//c/1LkgKeb2HdlyS5MK0/WCNYoICC +Bm/8CvK4wLO2QcTzjQLGbW15BUlcWFeT8EhKThHDT95vCvThUud9UZ7zVYqY +FlP1zlCKCz+ctxTov1TEHIfIx4/EuXAx+4T16GtFNOT/HKkpxoVW6Y40h3eK +yJ+p2CC3hgtO665tVB5QRJHfpF7vUi6ECEq4vRVQQv4tC314JjjAnZGuk3BQ +wqjFL0ce1HFgdSMzvnhECQndMx4G3hyQjL6zQ1tbGfu3tEcVXiiCq+v1Vq45 +rIKOXa8ta9MLoV7cSGv8kiqKfFAa5c8sgE2SVYlq79XwEh+OE0G3QJA3J+BQ +hDr29t9Mf74rH6TDZQwcmBswU3fJ/E+Bm7CM2F9u83IDtr5gDy59mQuqrHV3 +ThzQQP9/0uqHk3LAr2d19bYFG7G4nD1mbZYNI+MXbc2vbsTBjFz7mtU3YIva +izRzFU28Otdyv/ZdBlSM6/+dbtJEgzED437X6+CjrNH11k0Lv+TemmzbcA1Y +v1zbHJZpY+X2mrcFA1dgM0PMSiBHGz+NhYmGfk4GBfaF4CodHeTJls8d/3cZ +lNz0nhFdOqj9Uu5GkNAlcKvwOFd2XBf17G7vy3keD89utLmOCevh3fYAy+0H +Y2GiYH5a7b4e5tfbhHpbRYMLwVmWZrUJlcQTgj9xImFMKUm7dHQTckU9WpuE +zsKDvL9fJqP1seHknGFUBxv2mtJRX9oAo63CifGnZ0Di6PmHqpUGWNQy4HT0 +cwgIL/cusbJnIWuBp4NQXhDkmZw5OerAQrEyoWyXK0GgcSbeJGk/CzeUJCdV +RAeB9Wjxu45DLHwjOuQbfTQIot5P/nHxpsYH5Lcc0QmCmZww45PhLDyjZOF0 +rCEQuvSTWvM5LCyyS1i+728AeATmpZvfZqGmVl0e+1cATN2+5zZUzMJIptgt +7pcAWE3rmN5QzkLtH9e6ResCwGKplOTTSha+qnd/tSklAJ605bu2vmPhTGX7 +l2L1ANgm+EAlqIOF8xHZCw0YAdCx5dWUWDcL/awHDjeKBsDEo5/RBz+zME7r +7DzPvD+oZKuTPwZZGBi2WPZhoz886TIKujjMwgf7m3WDnvvDtrW7QG2UhWeb +8LzePX9wPx/4NmCShdzTt5+0pPvDRGVUmugMC++lB2QVJPpDxGyqy6NZFg6t +C7pz7pw/rNQsVD4wx0LnF6mD7sH+kHn00eT8PAs5HhXW27394X9uNzue "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.05746472263373828}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13047,19 +14672,19 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.05746472263373828}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13073,112 +14698,112 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV1nc8Vf8fB/CitIyWke3ee66Rlcy43m8jJaNSSIuskCQrGlyKSEYhJSMj +4d5TSNqSUZJRKKs0KBIhM+Xrd35/nMd5PB+Pz3l8zvmc9+f1/sg5H7Nx41mw +YMEcdf3/PtXzqoYRm2c48k/jcVKajmFbpliIUUcEqOXb2PTnCwMKNzuLdVyG +k/HiYeX5BATtKGrn7ciB8Mxd3lfztWDVL9HLf9pLoSPYu8IvfzN8emJ9bKK9 +CoxkKu0W59uCGWPw41h7C5g+WuvvmucGf9p1Ukbbv4Kr6PzRoYxAqDa5lfc2 +Zxyq3XyfPvaIAslPD787K89Bv1bE6GBEIqz1dixaYsKLwhGPM9ckpsDlDWaP +rW2XYnJHZIRCSxp0XlWvHFspgP/+8gmnhGRBbF5YM8+6VbhTLmG3+LocEE3u +jUnKWIOiOWkRu/Tz4Pxuc8OWKWHUKVwhUbk8H/z1sh1fRYhh0r50ddfXt8B0 +ZPakT684fuf4Oq3SK4SQrclKz4fEcd5SPcbYsBBuZ6t0rZkSx3LBZ2xfk0IQ +2+2k93CpBJoFCHVXWRXC0IPaaV5VCbyZskTTyLkQkiISA64FS6Be+1etvAuF +8FWY6VMjIImjdzMSF3YWQrjBzkPiulJYZwsX+L2LYOvBzN86xlK4+I/U3Sbf +IhBk/zxraymF/kcHlsYFFkF6dWR+opMU1k6e3/RfaBE82PboJ1+MFPLFi5SU +XiqC0T30oPFOKbxakPTSpbwIDgZOXmg4JY0/lBKLvv0rAiLVWHIwUhrF3E4p +qCzkUO+bQC5JlMa+n6bNvos5cPKf4hvjPGks9lJJHRLgQMrZg8IPG6TR/78s +wXJpDjRcepl1U0oGJwrtLiUCBzbdvlYW+kwGxUz+q3AJ5YBpe9PcrzoZbOR7 +ZjMSzgHrBYu2OLbIYFGhdPyJSA642Ph0wjcZHKz6+PfMRQ6YnZILYy+WRYV3 +QWXOaRzwlZnKNVovi/Zykjdj73Gg5nDWcHWQLM4q//lv3w8OmP/TW336lCze +nRfNOz3EgabENm1NtizGeaqPXxvhQOfDZey8GFnUFqpNqJ/kwK8VAasj02Xx +EdFby8vDBbHirTpmVbLYe13f5P06LnjPjLHrBORwe6ZZ/D8zLmw67i7yfbUc +RlXc6xoy58LSwS4Or5gc/hWNMOq05MLN7ur3hjQ5pPlpOObbcKGnIkX5njY1 +fi3t66qDXNgeqdeR7SiHbzKTjFUDuKCxOlztVIkc3nB2PhOawYUFsZM1V8vl +sEzzTvbvLC408XrtLX8sh7Ftsz+cc7hwZNImcqxWDnN2/O3XucWFvA5G9+Eu +ObTIepV7t5gLIll1Ubt5aWgrnurzu4oLf9av7FGxpWFw9l+JxD4uTGWIh2/c +S8P9snst2N+5MCFEMPQcaXj0NE+z9wAXfo3reZl60rCnbKht0xAXvj52mdp7 +hobHRv37i8a5UG9xXzD6Jg2NWdIXuxeS8PLp85K4Ihre9cvXusRLQo1aw+6k +OzScCn66yWQxCRVrvqRlPqThy6cRDulLSSjtXi5/r5GGk/NzUzQhEtKOHISv +kzSkR5XIRkiQkPrR42v/LA0LCPmKOUkSkrf7Rw7P0zD8p+KzQGkS4jdGv55Z +RkcX95HhvXIkRPwtsReSpqNln6XALJOEI7GLfQ3M6PhCRbMhdgMJHnNCa4wt +6PhesulrowYJ7sfEy7fsoKO3XoEbvyYJTrvU/tnspeOBv4dKQ7VJ2C3hEO3p +Q8eO6YkTuvokGHC4N65coaO9ioz2QlMSumU5WZuv05FP5lHyDOWTVwozJ7Lo +OHdntmdoMwn3w/PTbQrpeKXZXbdhCwkae25cFXxCx3NCPfzuFiS8bcxMfVpJ +xxOnUt6bWpLga5JxxbuWjs9bxxNkrUi4rZqWXN9ERzWfO61N1iQoLk5OjPpC +x4pVkSSfDQl1Jy8naH2no5FSK08jZffRxPi+QTpW2f2wSNxFQl533EXjCTry +d59/LGBLgmzp+ej/+BjYHHJQps+eBBHHU+wgZQZq+Vw6Pr+fhHttIWHEBgaS +hd4mKQeo798WHNqmxcCb83dWKRwk4bJW4GkNYODRhls3TR1JEOA/FvxrJwPf +qi567HCIBG740RMZdgyUUKkNa6e8bfpIkOU+BmZpem+2cSYh+qtHQJErA/vM +yt4ZupCw6KGzr/sJBlYPs8QnXEnIVT10TPg0A8WcWVMObiQY5zn61LAZ+KGu +ov0J5bCE/d60CwwcVMkkQ9xJkF6878jbeAZ6lSrktlJ+ctLBi53EQCut+BtK +h0mYdbPz6ElnINti671myte6dx+Oy2aguEBjo5QHCbo7d7kb5DNwg2LcqAfl +IIMdrml3GBj6mmE/RVm41NrFvIyBIKuerutJQpm8lfPMAwYKe/cMn6A8tnqb +k10VA3eGJD4cptzhTXvj9ZKBz04b3lbwIqHyxSyENTCweMZYxYlygWzrnaS3 +DAxZ666TTDnxJEem4D0Du5J9G2soB7edTXjSTa1/9/rRMcpOqvvn33ym1rv/ +0A2JIyRsjdY89u0bAydtPvYYUVb/yv/pzyADl9h6cl0pixl8sxYcZeCCyrfL +zlFecOVpBW2SgW4Le6ezKA+MpKjqzDIwTs7rxAPKzeY+mRbzDDSv1oxppFye +aybotIjAAPoq1U+UM+ekQwOWEZgi1uQ+TDnKfno4WpDAmNX6mjOUfUqaD2Ss +IVBcXCF1nrLdioLGEjEC09+4JfJ6k2Doxma9kCIw+Vit7CLKzGd7yC4agbZ1 +YuYLKQus2yA1Ik/gJRON5X+p5yf8lsXxqhC4/Euf6xjlDw1f/olqEKius2hv +H+Ua5iNvZR0CS/xcB1spc9mXP6ABgVJ2XSKVlJO7vCxtjQiM1dP/XED5tKbJ +E08zArWWH9gST9k1XkI51ILAldtErHwpWwyMX7+8g0AfIcPf1pQ1jBtW3LIl +8Moiro4SZfH0vFOP9xLof1hXmofy4HbbfX2uBIZYrWy5Rf2flkKV1zOeBA4p +CWUHUn7Ey6cvcIzAHsWktUg55n65uHYIgS2RqUP1VH34rkq4sC2UwBP1zTax +lPccOTx78CyBAvP/nLZSVpAR6zofR+A2fW7wA6r+VoaMmqdfJpDNGTx7hPJM +S93D4lQC/3Rf2SRBuS4q5FpnNoGNx++TvlR9H/7VtWd9OYEvZEuqx6n9Yr31 +bh08pt5375jxRcraObG6uysJlEzlBMhR5rMzEDtTT+CnXOlxI2r/5T/NaG/q +IXC90qrAfdR+jRcN2tLbS2DgS7XsTmo/Bx23vj89QKBg1HTUbsqbifkrsuME +fqEzzqITCX0Xnez8ljDxye1T9mNUfvgMKtPU+Zl4nK+835Hy9JY/w8MrmfhZ +ZyD3NZU3y3kvR3qKM1E/Rys3bR9VzyHVZU4qTAweSG4RcSDhjBtzzfZdTGxI +vp0ZTeUZX/XvHv49TCRDDpnXU3mXKPusqH4/E1cqg/Iym//nnb2xmTsTd4ql +ZITuIKF+Z8xxVggTK3uDTLdSeSpiONS8PouJdhUFNvZmJNy4/uD6j1xqfouP +H72pvFb8c+7wrQImpkq8IcOoPDcok5qnlTJRg0mTyTAmwUVpu6p4LRN/6fcf +uG9IQrFI6cWlP6n5fl5d4EX1C/ORE+bftOWxaUXfpUY6CZIbpKOWGsijuwHb +1Y9Gwi+/mqr1RvLYqT4uu5bqV8lTKw38LOQx1fjmPmuqn/XMFarOO8rj0bfm +UxliJPjxf1izLkYe+TeGlxbxU/1REXssu+Uxptd1KPw3dR458l3c97M8ekq9 +XvtilAtAXrRP+iaPmz+LbFsywoU+9c43nSPy2K/44RP7JxdUdf2q3RcpoEpK +VvsOqv9Xm+UVsFUUsHD/nknXd1wYclnqXxamgOxfp/rd7lH9P9P06bNzCuhl +p15of5cLI53sJa9jFFDGcEe5WQkXfm//c/1LkgKeb2HdlyS5MK0/WCNYoICC +Bm/8CvK4wLO2QcTzjQLGbW15BUlcWFeT8EhKThHDT95vCvThUud9UZ7zVYqY +FlP1zlCKCz+ctxTov1TEHIfIx4/EuXAx+4T16GtFNOT/HKkpxoVW6Y40h3eK +yJ+p2CC3hgtO665tVB5QRJHfpF7vUi6ECEq4vRVQQv4tC314JjjAnZGuk3BQ +wqjFL0ce1HFgdSMzvnhECQndMx4G3hyQjL6zQ1tbGfu3tEcVXiiCq+v1Vq45 +rIKOXa8ta9MLoV7cSGv8kiqKfFAa5c8sgE2SVYlq79XwEh+OE0G3QJA3J+BQ +hDr29t9Mf74rH6TDZQwcmBswU3fJ/E+Bm7CM2F9u83IDtr5gDy59mQuqrHV3 +ThzQQP9/0uqHk3LAr2d19bYFG7G4nD1mbZYNI+MXbc2vbsTBjFz7mtU3YIva +izRzFU28Otdyv/ZdBlSM6/+dbtJEgzED437X6+CjrNH11k0Lv+TemmzbcA1Y +v1zbHJZpY+X2mrcFA1dgM0PMSiBHGz+NhYmGfk4GBfaF4CodHeTJls8d/3cZ +lNz0nhFdOqj9Uu5GkNAlcKvwOFd2XBf17G7vy3keD89utLmOCevh3fYAy+0H +Y2GiYH5a7b4e5tfbhHpbRYMLwVmWZrUJlcQTgj9xImFMKUm7dHQTckU9WpuE +zsKDvL9fJqP1seHknGFUBxv2mtJRX9oAo63CifGnZ0Di6PmHqpUGWNQy4HT0 +cwgIL/cusbJnIWuBp4NQXhDkmZw5OerAQrEyoWyXK0GgcSbeJGk/CzeUJCdV +RAeB9Wjxu45DLHwjOuQbfTQIot5P/nHxpsYH5Lcc0QmCmZww45PhLDyjZOF0 +rCEQuvSTWvM5LCyyS1i+728AeATmpZvfZqGmVl0e+1cATN2+5zZUzMJIptgt +7pcAWE3rmN5QzkLtH9e6ResCwGKplOTTSha+qnd/tSklAJ605bu2vmPhTGX7 +l2L1ANgm+EAlqIOF8xHZCw0YAdCx5dWUWDcL/awHDjeKBsDEo5/RBz+zME7r +7DzPvD+oZKuTPwZZGBi2WPZhoz886TIKujjMwgf7m3WDnvvDtrW7QG2UhWeb +8LzePX9wPx/4NmCShdzTt5+0pPvDRGVUmugMC++lB2QVJPpDxGyqy6NZFg6t +C7pz7pw/rNQsVD4wx0LnF6mD7sH+kHn00eT8PAs5HhXW27394X9uNzue "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.05746472263373828}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13189,6 +14814,7 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13216,7 +14842,8 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05746472263373828}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13224,22 +14851,565 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991327033758711*^9}, + CellChangeTimes->{3.991327033758711*^9, 3.9939133735510397`*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] + "Out[439]=",ExpressionUUID->"f62d5a83-23ae-4211-afa5-a6b95d786d46"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, - 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ -ea3fc2b4c4a8"], + 3.9919244033659534`*^9}, + CellLabel-> + "In[440]:=",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799951845436*^9, - 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ -85a3484011b6"], + CellChangeTimes->{{3.991799951845436*^9, 3.991799954096182*^9}}, + CellLabel-> + "In[441]:=",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc8Vf8fB/CitIyWke3ee66Rlcy43m8jJaNSSIuskCQrGlyKSEYhJSMj +4d5TSNqSUZJRKKs0KBIhM+Xrd35/nMd5PB+Pz3l8zvmc9+f1/sg5H7Nx41mw +YMEcdf3/PtXzqoYRm2c48k/jcVKajmFbpliIUUcEqOXb2PTnCwMKNzuLdVyG +k/HiYeX5BATtKGrn7ciB8Mxd3lfztWDVL9HLf9pLoSPYu8IvfzN8emJ9bKK9 +CoxkKu0W59uCGWPw41h7C5g+WuvvmucGf9p1Ukbbv4Kr6PzRoYxAqDa5lfc2 +Zxyq3XyfPvaIAslPD787K89Bv1bE6GBEIqz1dixaYsKLwhGPM9ckpsDlDWaP +rW2XYnJHZIRCSxp0XlWvHFspgP/+8gmnhGRBbF5YM8+6VbhTLmG3+LocEE3u +jUnKWIOiOWkRu/Tz4Pxuc8OWKWHUKVwhUbk8H/z1sh1fRYhh0r50ddfXt8B0 +ZPakT684fuf4Oq3SK4SQrclKz4fEcd5SPcbYsBBuZ6t0rZkSx3LBZ2xfk0IQ +2+2k93CpBJoFCHVXWRXC0IPaaV5VCbyZskTTyLkQkiISA64FS6Be+1etvAuF +8FWY6VMjIImjdzMSF3YWQrjBzkPiulJYZwsX+L2LYOvBzN86xlK4+I/U3Sbf +IhBk/zxraymF/kcHlsYFFkF6dWR+opMU1k6e3/RfaBE82PboJ1+MFPLFi5SU +XiqC0T30oPFOKbxakPTSpbwIDgZOXmg4JY0/lBKLvv0rAiLVWHIwUhrF3E4p +qCzkUO+bQC5JlMa+n6bNvos5cPKf4hvjPGks9lJJHRLgQMrZg8IPG6TR/78s +wXJpDjRcepl1U0oGJwrtLiUCBzbdvlYW+kwGxUz+q3AJ5YBpe9PcrzoZbOR7 +ZjMSzgHrBYu2OLbIYFGhdPyJSA642Ph0wjcZHKz6+PfMRQ6YnZILYy+WRYV3 +QWXOaRzwlZnKNVovi/Zykjdj73Gg5nDWcHWQLM4q//lv3w8OmP/TW336lCze +nRfNOz3EgabENm1NtizGeaqPXxvhQOfDZey8GFnUFqpNqJ/kwK8VAasj02Xx +EdFby8vDBbHirTpmVbLYe13f5P06LnjPjLHrBORwe6ZZ/D8zLmw67i7yfbUc +RlXc6xoy58LSwS4Or5gc/hWNMOq05MLN7ur3hjQ5pPlpOObbcKGnIkX5njY1 +fi3t66qDXNgeqdeR7SiHbzKTjFUDuKCxOlztVIkc3nB2PhOawYUFsZM1V8vl +sEzzTvbvLC408XrtLX8sh7Ftsz+cc7hwZNImcqxWDnN2/O3XucWFvA5G9+Eu +ObTIepV7t5gLIll1Ubt5aWgrnurzu4oLf9av7FGxpWFw9l+JxD4uTGWIh2/c +S8P9snst2N+5MCFEMPQcaXj0NE+z9wAXfo3reZl60rCnbKht0xAXvj52mdp7 +hobHRv37i8a5UG9xXzD6Jg2NWdIXuxeS8PLp85K4Ihre9cvXusRLQo1aw+6k +OzScCn66yWQxCRVrvqRlPqThy6cRDulLSSjtXi5/r5GGk/NzUzQhEtKOHISv +kzSkR5XIRkiQkPrR42v/LA0LCPmKOUkSkrf7Rw7P0zD8p+KzQGkS4jdGv55Z +RkcX95HhvXIkRPwtsReSpqNln6XALJOEI7GLfQ3M6PhCRbMhdgMJHnNCa4wt +6PhesulrowYJ7sfEy7fsoKO3XoEbvyYJTrvU/tnspeOBv4dKQ7VJ2C3hEO3p +Q8eO6YkTuvokGHC4N65coaO9ioz2QlMSumU5WZuv05FP5lHyDOWTVwozJ7Lo +OHdntmdoMwn3w/PTbQrpeKXZXbdhCwkae25cFXxCx3NCPfzuFiS8bcxMfVpJ +xxOnUt6bWpLga5JxxbuWjs9bxxNkrUi4rZqWXN9ERzWfO61N1iQoLk5OjPpC +x4pVkSSfDQl1Jy8naH2no5FSK08jZffRxPi+QTpW2f2wSNxFQl533EXjCTry +d59/LGBLgmzp+ej/+BjYHHJQps+eBBHHU+wgZQZq+Vw6Pr+fhHttIWHEBgaS +hd4mKQeo798WHNqmxcCb83dWKRwk4bJW4GkNYODRhls3TR1JEOA/FvxrJwPf +qi567HCIBG740RMZdgyUUKkNa6e8bfpIkOU+BmZpem+2cSYh+qtHQJErA/vM +yt4ZupCw6KGzr/sJBlYPs8QnXEnIVT10TPg0A8WcWVMObiQY5zn61LAZ+KGu +ov0J5bCE/d60CwwcVMkkQ9xJkF6878jbeAZ6lSrktlJ+ctLBi53EQCut+BtK +h0mYdbPz6ElnINti671myte6dx+Oy2aguEBjo5QHCbo7d7kb5DNwg2LcqAfl +IIMdrml3GBj6mmE/RVm41NrFvIyBIKuerutJQpm8lfPMAwYKe/cMn6A8tnqb +k10VA3eGJD4cptzhTXvj9ZKBz04b3lbwIqHyxSyENTCweMZYxYlygWzrnaS3 +DAxZ666TTDnxJEem4D0Du5J9G2soB7edTXjSTa1/9/rRMcpOqvvn33ym1rv/ +0A2JIyRsjdY89u0bAydtPvYYUVb/yv/pzyADl9h6cl0pixl8sxYcZeCCyrfL +zlFecOVpBW2SgW4Le6ezKA+MpKjqzDIwTs7rxAPKzeY+mRbzDDSv1oxppFye +aybotIjAAPoq1U+UM+ekQwOWEZgi1uQ+TDnKfno4WpDAmNX6mjOUfUqaD2Ss +IVBcXCF1nrLdioLGEjEC09+4JfJ6k2Doxma9kCIw+Vit7CLKzGd7yC4agbZ1 +YuYLKQus2yA1Ik/gJRON5X+p5yf8lsXxqhC4/Euf6xjlDw1f/olqEKius2hv +H+Ua5iNvZR0CS/xcB1spc9mXP6ABgVJ2XSKVlJO7vCxtjQiM1dP/XED5tKbJ +E08zArWWH9gST9k1XkI51ILAldtErHwpWwyMX7+8g0AfIcPf1pQ1jBtW3LIl +8Moiro4SZfH0vFOP9xLof1hXmofy4HbbfX2uBIZYrWy5Rf2flkKV1zOeBA4p +CWUHUn7Ey6cvcIzAHsWktUg55n65uHYIgS2RqUP1VH34rkq4sC2UwBP1zTax +lPccOTx78CyBAvP/nLZSVpAR6zofR+A2fW7wA6r+VoaMmqdfJpDNGTx7hPJM +S93D4lQC/3Rf2SRBuS4q5FpnNoGNx++TvlR9H/7VtWd9OYEvZEuqx6n9Yr31 +bh08pt5375jxRcraObG6uysJlEzlBMhR5rMzEDtTT+CnXOlxI2r/5T/NaG/q +IXC90qrAfdR+jRcN2tLbS2DgS7XsTmo/Bx23vj89QKBg1HTUbsqbifkrsuME +fqEzzqITCX0Xnez8ljDxye1T9mNUfvgMKtPU+Zl4nK+835Hy9JY/w8MrmfhZ +ZyD3NZU3y3kvR3qKM1E/Rys3bR9VzyHVZU4qTAweSG4RcSDhjBtzzfZdTGxI +vp0ZTeUZX/XvHv49TCRDDpnXU3mXKPusqH4/E1cqg/Iym//nnb2xmTsTd4ql +ZITuIKF+Z8xxVggTK3uDTLdSeSpiONS8PouJdhUFNvZmJNy4/uD6j1xqfouP +H72pvFb8c+7wrQImpkq8IcOoPDcok5qnlTJRg0mTyTAmwUVpu6p4LRN/6fcf +uG9IQrFI6cWlP6n5fl5d4EX1C/ORE+bftOWxaUXfpUY6CZIbpKOWGsijuwHb +1Y9Gwi+/mqr1RvLYqT4uu5bqV8lTKw38LOQx1fjmPmuqn/XMFarOO8rj0bfm +UxliJPjxf1izLkYe+TeGlxbxU/1REXssu+Uxptd1KPw3dR458l3c97M8ekq9 +XvtilAtAXrRP+iaPmz+LbFsywoU+9c43nSPy2K/44RP7JxdUdf2q3RcpoEpK +VvsOqv9Xm+UVsFUUsHD/nknXd1wYclnqXxamgOxfp/rd7lH9P9P06bNzCuhl +p15of5cLI53sJa9jFFDGcEe5WQkXfm//c/1LkgKeb2HdlyS5MK0/WCNYoICC +Bm/8CvK4wLO2QcTzjQLGbW15BUlcWFeT8EhKThHDT95vCvThUud9UZ7zVYqY +FlP1zlCKCz+ctxTov1TEHIfIx4/EuXAx+4T16GtFNOT/HKkpxoVW6Y40h3eK +yJ+p2CC3hgtO665tVB5QRJHfpF7vUi6ECEq4vRVQQv4tC314JjjAnZGuk3BQ +wqjFL0ce1HFgdSMzvnhECQndMx4G3hyQjL6zQ1tbGfu3tEcVXiiCq+v1Vq45 +rIKOXa8ta9MLoV7cSGv8kiqKfFAa5c8sgE2SVYlq79XwEh+OE0G3QJA3J+BQ +hDr29t9Mf74rH6TDZQwcmBswU3fJ/E+Bm7CM2F9u83IDtr5gDy59mQuqrHV3 +ThzQQP9/0uqHk3LAr2d19bYFG7G4nD1mbZYNI+MXbc2vbsTBjFz7mtU3YIva +izRzFU28Otdyv/ZdBlSM6/+dbtJEgzED437X6+CjrNH11k0Lv+TemmzbcA1Y +v1zbHJZpY+X2mrcFA1dgM0PMSiBHGz+NhYmGfk4GBfaF4CodHeTJls8d/3cZ +lNz0nhFdOqj9Uu5GkNAlcKvwOFd2XBf17G7vy3keD89utLmOCevh3fYAy+0H +Y2GiYH5a7b4e5tfbhHpbRYMLwVmWZrUJlcQTgj9xImFMKUm7dHQTckU9WpuE +zsKDvL9fJqP1seHknGFUBxv2mtJRX9oAo63CifGnZ0Di6PmHqpUGWNQy4HT0 +cwgIL/cusbJnIWuBp4NQXhDkmZw5OerAQrEyoWyXK0GgcSbeJGk/CzeUJCdV +RAeB9Wjxu45DLHwjOuQbfTQIot5P/nHxpsYH5Lcc0QmCmZww45PhLDyjZOF0 +rCEQuvSTWvM5LCyyS1i+728AeATmpZvfZqGmVl0e+1cATN2+5zZUzMJIptgt +7pcAWE3rmN5QzkLtH9e6ResCwGKplOTTSha+qnd/tSklAJ605bu2vmPhTGX7 +l2L1ANgm+EAlqIOF8xHZCw0YAdCx5dWUWDcL/awHDjeKBsDEo5/RBz+zME7r +7DzPvD+oZKuTPwZZGBi2WPZhoz886TIKujjMwgf7m3WDnvvDtrW7QG2UhWeb +8LzePX9wPx/4NmCShdzTt5+0pPvDRGVUmugMC++lB2QVJPpDxGyqy6NZFg6t +C7pz7pw/rNQsVD4wx0LnF6mD7sH+kHn00eT8PAs5HhXW27394X9uNzue + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB/CitIyWke3ee66Rlcy43m8jJaNSSIuskCQrGlyKSEYhJSMj +4d5TSNqSUZJRKKs0KBIhM+Xrd35/nMd5PB+Pz3l8zvmc9+f1/sg5H7Nx41mw +YMEcdf3/PtXzqoYRm2c48k/jcVKajmFbpliIUUcEqOXb2PTnCwMKNzuLdVyG +k/HiYeX5BATtKGrn7ciB8Mxd3lfztWDVL9HLf9pLoSPYu8IvfzN8emJ9bKK9 +CoxkKu0W59uCGWPw41h7C5g+WuvvmucGf9p1Ukbbv4Kr6PzRoYxAqDa5lfc2 +Zxyq3XyfPvaIAslPD787K89Bv1bE6GBEIqz1dixaYsKLwhGPM9ckpsDlDWaP +rW2XYnJHZIRCSxp0XlWvHFspgP/+8gmnhGRBbF5YM8+6VbhTLmG3+LocEE3u +jUnKWIOiOWkRu/Tz4Pxuc8OWKWHUKVwhUbk8H/z1sh1fRYhh0r50ddfXt8B0 +ZPakT684fuf4Oq3SK4SQrclKz4fEcd5SPcbYsBBuZ6t0rZkSx3LBZ2xfk0IQ +2+2k93CpBJoFCHVXWRXC0IPaaV5VCbyZskTTyLkQkiISA64FS6Be+1etvAuF +8FWY6VMjIImjdzMSF3YWQrjBzkPiulJYZwsX+L2LYOvBzN86xlK4+I/U3Sbf +IhBk/zxraymF/kcHlsYFFkF6dWR+opMU1k6e3/RfaBE82PboJ1+MFPLFi5SU +XiqC0T30oPFOKbxakPTSpbwIDgZOXmg4JY0/lBKLvv0rAiLVWHIwUhrF3E4p +qCzkUO+bQC5JlMa+n6bNvos5cPKf4hvjPGks9lJJHRLgQMrZg8IPG6TR/78s +wXJpDjRcepl1U0oGJwrtLiUCBzbdvlYW+kwGxUz+q3AJ5YBpe9PcrzoZbOR7 +ZjMSzgHrBYu2OLbIYFGhdPyJSA642Ph0wjcZHKz6+PfMRQ6YnZILYy+WRYV3 +QWXOaRzwlZnKNVovi/Zykjdj73Gg5nDWcHWQLM4q//lv3w8OmP/TW336lCze +nRfNOz3EgabENm1NtizGeaqPXxvhQOfDZey8GFnUFqpNqJ/kwK8VAasj02Xx +EdFby8vDBbHirTpmVbLYe13f5P06LnjPjLHrBORwe6ZZ/D8zLmw67i7yfbUc +RlXc6xoy58LSwS4Or5gc/hWNMOq05MLN7ur3hjQ5pPlpOObbcKGnIkX5njY1 +fi3t66qDXNgeqdeR7SiHbzKTjFUDuKCxOlztVIkc3nB2PhOawYUFsZM1V8vl +sEzzTvbvLC408XrtLX8sh7Ftsz+cc7hwZNImcqxWDnN2/O3XucWFvA5G9+Eu +ObTIepV7t5gLIll1Ubt5aWgrnurzu4oLf9av7FGxpWFw9l+JxD4uTGWIh2/c +S8P9snst2N+5MCFEMPQcaXj0NE+z9wAXfo3reZl60rCnbKht0xAXvj52mdp7 +hobHRv37i8a5UG9xXzD6Jg2NWdIXuxeS8PLp85K4Ihre9cvXusRLQo1aw+6k +OzScCn66yWQxCRVrvqRlPqThy6cRDulLSSjtXi5/r5GGk/NzUzQhEtKOHISv +kzSkR5XIRkiQkPrR42v/LA0LCPmKOUkSkrf7Rw7P0zD8p+KzQGkS4jdGv55Z +RkcX95HhvXIkRPwtsReSpqNln6XALJOEI7GLfQ3M6PhCRbMhdgMJHnNCa4wt +6PhesulrowYJ7sfEy7fsoKO3XoEbvyYJTrvU/tnspeOBv4dKQ7VJ2C3hEO3p +Q8eO6YkTuvokGHC4N65coaO9ioz2QlMSumU5WZuv05FP5lHyDOWTVwozJ7Lo +OHdntmdoMwn3w/PTbQrpeKXZXbdhCwkae25cFXxCx3NCPfzuFiS8bcxMfVpJ +xxOnUt6bWpLga5JxxbuWjs9bxxNkrUi4rZqWXN9ERzWfO61N1iQoLk5OjPpC +x4pVkSSfDQl1Jy8naH2no5FSK08jZffRxPi+QTpW2f2wSNxFQl533EXjCTry +d59/LGBLgmzp+ej/+BjYHHJQps+eBBHHU+wgZQZq+Vw6Pr+fhHttIWHEBgaS +hd4mKQeo798WHNqmxcCb83dWKRwk4bJW4GkNYODRhls3TR1JEOA/FvxrJwPf +qi567HCIBG740RMZdgyUUKkNa6e8bfpIkOU+BmZpem+2cSYh+qtHQJErA/vM +yt4ZupCw6KGzr/sJBlYPs8QnXEnIVT10TPg0A8WcWVMObiQY5zn61LAZ+KGu +ov0J5bCE/d60CwwcVMkkQ9xJkF6878jbeAZ6lSrktlJ+ctLBi53EQCut+BtK +h0mYdbPz6ElnINti671myte6dx+Oy2aguEBjo5QHCbo7d7kb5DNwg2LcqAfl +IIMdrml3GBj6mmE/RVm41NrFvIyBIKuerutJQpm8lfPMAwYKe/cMn6A8tnqb +k10VA3eGJD4cptzhTXvj9ZKBz04b3lbwIqHyxSyENTCweMZYxYlygWzrnaS3 +DAxZ666TTDnxJEem4D0Du5J9G2soB7edTXjSTa1/9/rRMcpOqvvn33ym1rv/ +0A2JIyRsjdY89u0bAydtPvYYUVb/yv/pzyADl9h6cl0pixl8sxYcZeCCyrfL +zlFecOVpBW2SgW4Le6ezKA+MpKjqzDIwTs7rxAPKzeY+mRbzDDSv1oxppFye +aybotIjAAPoq1U+UM+ekQwOWEZgi1uQ+TDnKfno4WpDAmNX6mjOUfUqaD2Ss +IVBcXCF1nrLdioLGEjEC09+4JfJ6k2Doxma9kCIw+Vit7CLKzGd7yC4agbZ1 +YuYLKQus2yA1Ik/gJRON5X+p5yf8lsXxqhC4/Euf6xjlDw1f/olqEKius2hv +H+Ua5iNvZR0CS/xcB1spc9mXP6ABgVJ2XSKVlJO7vCxtjQiM1dP/XED5tKbJ +E08zArWWH9gST9k1XkI51ILAldtErHwpWwyMX7+8g0AfIcPf1pQ1jBtW3LIl +8Moiro4SZfH0vFOP9xLof1hXmofy4HbbfX2uBIZYrWy5Rf2flkKV1zOeBA4p +CWUHUn7Ey6cvcIzAHsWktUg55n65uHYIgS2RqUP1VH34rkq4sC2UwBP1zTax +lPccOTx78CyBAvP/nLZSVpAR6zofR+A2fW7wA6r+VoaMmqdfJpDNGTx7hPJM +S93D4lQC/3Rf2SRBuS4q5FpnNoGNx++TvlR9H/7VtWd9OYEvZEuqx6n9Yr31 +bh08pt5375jxRcraObG6uysJlEzlBMhR5rMzEDtTT+CnXOlxI2r/5T/NaG/q +IXC90qrAfdR+jRcN2tLbS2DgS7XsTmo/Bx23vj89QKBg1HTUbsqbifkrsuME +fqEzzqITCX0Xnez8ljDxye1T9mNUfvgMKtPU+Zl4nK+835Hy9JY/w8MrmfhZ +ZyD3NZU3y3kvR3qKM1E/Rys3bR9VzyHVZU4qTAweSG4RcSDhjBtzzfZdTGxI +vp0ZTeUZX/XvHv49TCRDDpnXU3mXKPusqH4/E1cqg/Iym//nnb2xmTsTd4ql +ZITuIKF+Z8xxVggTK3uDTLdSeSpiONS8PouJdhUFNvZmJNy4/uD6j1xqfouP +H72pvFb8c+7wrQImpkq8IcOoPDcok5qnlTJRg0mTyTAmwUVpu6p4LRN/6fcf +uG9IQrFI6cWlP6n5fl5d4EX1C/ORE+bftOWxaUXfpUY6CZIbpKOWGsijuwHb +1Y9Gwi+/mqr1RvLYqT4uu5bqV8lTKw38LOQx1fjmPmuqn/XMFarOO8rj0bfm +UxliJPjxf1izLkYe+TeGlxbxU/1REXssu+Uxptd1KPw3dR458l3c97M8ekq9 +XvtilAtAXrRP+iaPmz+LbFsywoU+9c43nSPy2K/44RP7JxdUdf2q3RcpoEpK +VvsOqv9Xm+UVsFUUsHD/nknXd1wYclnqXxamgOxfp/rd7lH9P9P06bNzCuhl +p15of5cLI53sJa9jFFDGcEe5WQkXfm//c/1LkgKeb2HdlyS5MK0/WCNYoICC +Bm/8CvK4wLO2QcTzjQLGbW15BUlcWFeT8EhKThHDT95vCvThUud9UZ7zVYqY +FlP1zlCKCz+ctxTov1TEHIfIx4/EuXAx+4T16GtFNOT/HKkpxoVW6Y40h3eK +yJ+p2CC3hgtO665tVB5QRJHfpF7vUi6ECEq4vRVQQv4tC314JjjAnZGuk3BQ +wqjFL0ce1HFgdSMzvnhECQndMx4G3hyQjL6zQ1tbGfu3tEcVXiiCq+v1Vq45 +rIKOXa8ta9MLoV7cSGv8kiqKfFAa5c8sgE2SVYlq79XwEh+OE0G3QJA3J+BQ +hDr29t9Mf74rH6TDZQwcmBswU3fJ/E+Bm7CM2F9u83IDtr5gDy59mQuqrHV3 +ThzQQP9/0uqHk3LAr2d19bYFG7G4nD1mbZYNI+MXbc2vbsTBjFz7mtU3YIva +izRzFU28Otdyv/ZdBlSM6/+dbtJEgzED437X6+CjrNH11k0Lv+TemmzbcA1Y +v1zbHJZpY+X2mrcFA1dgM0PMSiBHGz+NhYmGfk4GBfaF4CodHeTJls8d/3cZ +lNz0nhFdOqj9Uu5GkNAlcKvwOFd2XBf17G7vy3keD89utLmOCevh3fYAy+0H +Y2GiYH5a7b4e5tfbhHpbRYMLwVmWZrUJlcQTgj9xImFMKUm7dHQTckU9WpuE +zsKDvL9fJqP1seHknGFUBxv2mtJRX9oAo63CifGnZ0Di6PmHqpUGWNQy4HT0 +cwgIL/cusbJnIWuBp4NQXhDkmZw5OerAQrEyoWyXK0GgcSbeJGk/CzeUJCdV +RAeB9Wjxu45DLHwjOuQbfTQIot5P/nHxpsYH5Lcc0QmCmZww45PhLDyjZOF0 +rCEQuvSTWvM5LCyyS1i+728AeATmpZvfZqGmVl0e+1cATN2+5zZUzMJIptgt +7pcAWE3rmN5QzkLtH9e6ResCwGKplOTTSha+qnd/tSklAJ605bu2vmPhTGX7 +l2L1ANgm+EAlqIOF8xHZCw0YAdCx5dWUWDcL/awHDjeKBsDEo5/RBz+zME7r +7DzPvD+oZKuTPwZZGBi2WPZhoz886TIKujjMwgf7m3WDnvvDtrW7QG2UhWeb +8LzePX9wPx/4NmCShdzTt5+0pPvDRGVUmugMC++lB2QVJPpDxGyqy6NZFg6t +C7pz7pw/rNQsVD4wx0LnF6mD7sH+kHn00eT8PAs5HhXW27394X9uNzue + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05746472263373828}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.05746472263373828}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc8Vf8fB/CitIyWke3ee66Rlcy43m8jJaNSSIuskCQrGlyKSEYhJSMj +4d5TSNqSUZJRKKs0KBIhM+Xrd35/nMd5PB+Pz3l8zvmc9+f1/sg5H7Nx41mw +YMEcdf3/PtXzqoYRm2c48k/jcVKajmFbpliIUUcEqOXb2PTnCwMKNzuLdVyG +k/HiYeX5BATtKGrn7ciB8Mxd3lfztWDVL9HLf9pLoSPYu8IvfzN8emJ9bKK9 +CoxkKu0W59uCGWPw41h7C5g+WuvvmucGf9p1Ukbbv4Kr6PzRoYxAqDa5lfc2 +Zxyq3XyfPvaIAslPD787K89Bv1bE6GBEIqz1dixaYsKLwhGPM9ckpsDlDWaP +rW2XYnJHZIRCSxp0XlWvHFspgP/+8gmnhGRBbF5YM8+6VbhTLmG3+LocEE3u +jUnKWIOiOWkRu/Tz4Pxuc8OWKWHUKVwhUbk8H/z1sh1fRYhh0r50ddfXt8B0 +ZPakT684fuf4Oq3SK4SQrclKz4fEcd5SPcbYsBBuZ6t0rZkSx3LBZ2xfk0IQ +2+2k93CpBJoFCHVXWRXC0IPaaV5VCbyZskTTyLkQkiISA64FS6Be+1etvAuF +8FWY6VMjIImjdzMSF3YWQrjBzkPiulJYZwsX+L2LYOvBzN86xlK4+I/U3Sbf +IhBk/zxraymF/kcHlsYFFkF6dWR+opMU1k6e3/RfaBE82PboJ1+MFPLFi5SU +XiqC0T30oPFOKbxakPTSpbwIDgZOXmg4JY0/lBKLvv0rAiLVWHIwUhrF3E4p +qCzkUO+bQC5JlMa+n6bNvos5cPKf4hvjPGks9lJJHRLgQMrZg8IPG6TR/78s +wXJpDjRcepl1U0oGJwrtLiUCBzbdvlYW+kwGxUz+q3AJ5YBpe9PcrzoZbOR7 +ZjMSzgHrBYu2OLbIYFGhdPyJSA642Ph0wjcZHKz6+PfMRQ6YnZILYy+WRYV3 +QWXOaRzwlZnKNVovi/Zykjdj73Gg5nDWcHWQLM4q//lv3w8OmP/TW336lCze +nRfNOz3EgabENm1NtizGeaqPXxvhQOfDZey8GFnUFqpNqJ/kwK8VAasj02Xx +EdFby8vDBbHirTpmVbLYe13f5P06LnjPjLHrBORwe6ZZ/D8zLmw67i7yfbUc +RlXc6xoy58LSwS4Or5gc/hWNMOq05MLN7ur3hjQ5pPlpOObbcKGnIkX5njY1 +fi3t66qDXNgeqdeR7SiHbzKTjFUDuKCxOlztVIkc3nB2PhOawYUFsZM1V8vl +sEzzTvbvLC408XrtLX8sh7Ftsz+cc7hwZNImcqxWDnN2/O3XucWFvA5G9+Eu +ObTIepV7t5gLIll1Ubt5aWgrnurzu4oLf9av7FGxpWFw9l+JxD4uTGWIh2/c +S8P9snst2N+5MCFEMPQcaXj0NE+z9wAXfo3reZl60rCnbKht0xAXvj52mdp7 +hobHRv37i8a5UG9xXzD6Jg2NWdIXuxeS8PLp85K4Ihre9cvXusRLQo1aw+6k +OzScCn66yWQxCRVrvqRlPqThy6cRDulLSSjtXi5/r5GGk/NzUzQhEtKOHISv +kzSkR5XIRkiQkPrR42v/LA0LCPmKOUkSkrf7Rw7P0zD8p+KzQGkS4jdGv55Z +RkcX95HhvXIkRPwtsReSpqNln6XALJOEI7GLfQ3M6PhCRbMhdgMJHnNCa4wt +6PhesulrowYJ7sfEy7fsoKO3XoEbvyYJTrvU/tnspeOBv4dKQ7VJ2C3hEO3p +Q8eO6YkTuvokGHC4N65coaO9ioz2QlMSumU5WZuv05FP5lHyDOWTVwozJ7Lo +OHdntmdoMwn3w/PTbQrpeKXZXbdhCwkae25cFXxCx3NCPfzuFiS8bcxMfVpJ +xxOnUt6bWpLga5JxxbuWjs9bxxNkrUi4rZqWXN9ERzWfO61N1iQoLk5OjPpC +x4pVkSSfDQl1Jy8naH2no5FSK08jZffRxPi+QTpW2f2wSNxFQl533EXjCTry +d59/LGBLgmzp+ej/+BjYHHJQps+eBBHHU+wgZQZq+Vw6Pr+fhHttIWHEBgaS +hd4mKQeo798WHNqmxcCb83dWKRwk4bJW4GkNYODRhls3TR1JEOA/FvxrJwPf +qi567HCIBG740RMZdgyUUKkNa6e8bfpIkOU+BmZpem+2cSYh+qtHQJErA/vM +yt4ZupCw6KGzr/sJBlYPs8QnXEnIVT10TPg0A8WcWVMObiQY5zn61LAZ+KGu +ov0J5bCE/d60CwwcVMkkQ9xJkF6878jbeAZ6lSrktlJ+ctLBi53EQCut+BtK +h0mYdbPz6ElnINti671myte6dx+Oy2aguEBjo5QHCbo7d7kb5DNwg2LcqAfl +IIMdrml3GBj6mmE/RVm41NrFvIyBIKuerutJQpm8lfPMAwYKe/cMn6A8tnqb +k10VA3eGJD4cptzhTXvj9ZKBz04b3lbwIqHyxSyENTCweMZYxYlygWzrnaS3 +DAxZ666TTDnxJEem4D0Du5J9G2soB7edTXjSTa1/9/rRMcpOqvvn33ym1rv/ +0A2JIyRsjdY89u0bAydtPvYYUVb/yv/pzyADl9h6cl0pixl8sxYcZeCCyrfL +zlFecOVpBW2SgW4Le6ezKA+MpKjqzDIwTs7rxAPKzeY+mRbzDDSv1oxppFye +aybotIjAAPoq1U+UM+ekQwOWEZgi1uQ+TDnKfno4WpDAmNX6mjOUfUqaD2Ss +IVBcXCF1nrLdioLGEjEC09+4JfJ6k2Doxma9kCIw+Vit7CLKzGd7yC4agbZ1 +YuYLKQus2yA1Ik/gJRON5X+p5yf8lsXxqhC4/Euf6xjlDw1f/olqEKius2hv +H+Ua5iNvZR0CS/xcB1spc9mXP6ABgVJ2XSKVlJO7vCxtjQiM1dP/XED5tKbJ +E08zArWWH9gST9k1XkI51ILAldtErHwpWwyMX7+8g0AfIcPf1pQ1jBtW3LIl +8Moiro4SZfH0vFOP9xLof1hXmofy4HbbfX2uBIZYrWy5Rf2flkKV1zOeBA4p +CWUHUn7Ey6cvcIzAHsWktUg55n65uHYIgS2RqUP1VH34rkq4sC2UwBP1zTax +lPccOTx78CyBAvP/nLZSVpAR6zofR+A2fW7wA6r+VoaMmqdfJpDNGTx7hPJM +S93D4lQC/3Rf2SRBuS4q5FpnNoGNx++TvlR9H/7VtWd9OYEvZEuqx6n9Yr31 +bh08pt5375jxRcraObG6uysJlEzlBMhR5rMzEDtTT+CnXOlxI2r/5T/NaG/q +IXC90qrAfdR+jRcN2tLbS2DgS7XsTmo/Bx23vj89QKBg1HTUbsqbifkrsuME +fqEzzqITCX0Xnez8ljDxye1T9mNUfvgMKtPU+Zl4nK+835Hy9JY/w8MrmfhZ +ZyD3NZU3y3kvR3qKM1E/Rys3bR9VzyHVZU4qTAweSG4RcSDhjBtzzfZdTGxI +vp0ZTeUZX/XvHv49TCRDDpnXU3mXKPusqH4/E1cqg/Iym//nnb2xmTsTd4ql +ZITuIKF+Z8xxVggTK3uDTLdSeSpiONS8PouJdhUFNvZmJNy4/uD6j1xqfouP +H72pvFb8c+7wrQImpkq8IcOoPDcok5qnlTJRg0mTyTAmwUVpu6p4LRN/6fcf +uG9IQrFI6cWlP6n5fl5d4EX1C/ORE+bftOWxaUXfpUY6CZIbpKOWGsijuwHb +1Y9Gwi+/mqr1RvLYqT4uu5bqV8lTKw38LOQx1fjmPmuqn/XMFarOO8rj0bfm +UxliJPjxf1izLkYe+TeGlxbxU/1REXssu+Uxptd1KPw3dR458l3c97M8ekq9 +XvtilAtAXrRP+iaPmz+LbFsywoU+9c43nSPy2K/44RP7JxdUdf2q3RcpoEpK +VvsOqv9Xm+UVsFUUsHD/nknXd1wYclnqXxamgOxfp/rd7lH9P9P06bNzCuhl +p15of5cLI53sJa9jFFDGcEe5WQkXfm//c/1LkgKeb2HdlyS5MK0/WCNYoICC +Bm/8CvK4wLO2QcTzjQLGbW15BUlcWFeT8EhKThHDT95vCvThUud9UZ7zVYqY +FlP1zlCKCz+ctxTov1TEHIfIx4/EuXAx+4T16GtFNOT/HKkpxoVW6Y40h3eK +yJ+p2CC3hgtO665tVB5QRJHfpF7vUi6ECEq4vRVQQv4tC314JjjAnZGuk3BQ +wqjFL0ce1HFgdSMzvnhECQndMx4G3hyQjL6zQ1tbGfu3tEcVXiiCq+v1Vq45 +rIKOXa8ta9MLoV7cSGv8kiqKfFAa5c8sgE2SVYlq79XwEh+OE0G3QJA3J+BQ +hDr29t9Mf74rH6TDZQwcmBswU3fJ/E+Bm7CM2F9u83IDtr5gDy59mQuqrHV3 +ThzQQP9/0uqHk3LAr2d19bYFG7G4nD1mbZYNI+MXbc2vbsTBjFz7mtU3YIva +izRzFU28Otdyv/ZdBlSM6/+dbtJEgzED437X6+CjrNH11k0Lv+TemmzbcA1Y +v1zbHJZpY+X2mrcFA1dgM0PMSiBHGz+NhYmGfk4GBfaF4CodHeTJls8d/3cZ +lNz0nhFdOqj9Uu5GkNAlcKvwOFd2XBf17G7vy3keD89utLmOCevh3fYAy+0H +Y2GiYH5a7b4e5tfbhHpbRYMLwVmWZrUJlcQTgj9xImFMKUm7dHQTckU9WpuE +zsKDvL9fJqP1seHknGFUBxv2mtJRX9oAo63CifGnZ0Di6PmHqpUGWNQy4HT0 +cwgIL/cusbJnIWuBp4NQXhDkmZw5OerAQrEyoWyXK0GgcSbeJGk/CzeUJCdV +RAeB9Wjxu45DLHwjOuQbfTQIot5P/nHxpsYH5Lcc0QmCmZww45PhLDyjZOF0 +rCEQuvSTWvM5LCyyS1i+728AeATmpZvfZqGmVl0e+1cATN2+5zZUzMJIptgt +7pcAWE3rmN5QzkLtH9e6ResCwGKplOTTSha+qnd/tSklAJ605bu2vmPhTGX7 +l2L1ANgm+EAlqIOF8xHZCw0YAdCx5dWUWDcL/awHDjeKBsDEo5/RBz+zME7r +7DzPvD+oZKuTPwZZGBi2WPZhoz886TIKujjMwgf7m3WDnvvDtrW7QG2UhWeb +8LzePX9wPx/4NmCShdzTt5+0pPvDRGVUmugMC++lB2QVJPpDxGyqy6NZFg6t +C7pz7pw/rNQsVD4wx0LnF6mD7sH+kHn00eT8PAs5HhXW27394X9uNzue + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05746472263373828}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05746472263373828}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939133736234922`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"8578460c-b5bf-4de8-9652-aa370e0eb0fc"] +}, Open ]], Cell[CellGroupData[{ @@ -13291,66 +15461,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + "In[442]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 93, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097599506`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.49268854196114`*^-184\\\", \ +RowBox[{\\\"3700068261130031676053882\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"75\\\", \\\"\[RightSkeleton]\\\"}], \\\"20857600000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 442, 85, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993913373667974*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +In[442]:=",ExpressionUUID->"d7a81420-7cb3-464a-a10e-a6f5b5944f65"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 94, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909769953*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6449505089848165`*^-188\\\", \ +RowBox[{\\\"9250170652825079190134707\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"78\\\", \\\"\[RightSkeleton]\\\"}], \\\"44000000000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 442, 86, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993913373676444*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +In[442]:=",ExpressionUUID->"6a1be0c6-6d06-47da-9c1f-90578c1b3b21"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 142, 95, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097784023`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.6866864709685456`*^-192\\\", \ +RowBox[{\\\"2405969386799803097354037\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"82\\\", \\\"\[RightSkeleton]\\\"}], \\\"44000000000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 442, 87, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993913373683167*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +In[442]:=",ExpressionUUID->"c60f9cf8-533e-4cf0-8bf5-b8c47b09d273"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 142, 96, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909786396*^9}, +during this calculation.\"", 2, 442, 88, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993913373690556*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +In[442]:=",ExpressionUUID->"c71a4e89-961c-4699-b77f-53ff737cb184"], -Cell[BoxData["11.275343508420296`"], "Output", - CellChangeTimes->{3.9913279159698696`*^9}, +Cell[BoxData["13.355336655118318`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.993913413625618*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] + "Out[442]=",ExpressionUUID->"03f393a8-4ffb-40a8-8a34-0251046f3f86"] }, Open ]], Cell[CellGroupData[{ @@ -13417,68 +15591,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99179998339209*^9, - 3.991799988637089*^9}},ExpressionUUID->"a5e0631c-6c6c-a045-8418-\ -22c641e38d86"], + CellChangeTimes->{{3.99179998339209*^9, 3.991799988637089*^9}}, + CellLabel-> + "In[443]:=",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 143, 97, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916008396*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0056133613610368`*^-217\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 443, 89, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993913413666*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +In[443]:=",ExpressionUUID->"2c7693da-11ac-41ba-8219-6a56657fcbca"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 143, 98, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916018362*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.12633993857545`*^-223\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 443, 90, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.9939134136736097`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +In[443]:=",ExpressionUUID->"df31daad-88e9-4bee-b2e3-abee5749b176"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 143, - 99, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279160263577`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6132669051121417`*^-228\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 443, 91, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993913413681617*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +In[443]:=",ExpressionUUID->"4c87c40e-c0f2-4a45-b389-fd2526c884ad"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 143, 100, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916034359*^9}, +during this calculation.\"", 2, 443, 92, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993913413688098*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +In[443]:=",ExpressionUUID->"b76e4f06-b87a-4a62-9a94-a174733b9a4e"], -Cell[BoxData["1.0734937398087425`"], "Output", - CellChangeTimes->{3.991327922931429*^9}, +Cell[BoxData["1.6614538130750567`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.99391342051232*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] + "Out[443]=",ExpressionUUID->"4e24c109-d40a-4d76-a484-3dd5c5f74e09"] }, Open ]], Cell[CellGroupData[{ @@ -13499,8 +15677,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13545,68 +15722,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799991275097*^9, - 3.9917999948700333`*^9}},ExpressionUUID->"4b6c44e4-d946-0c4d-9992-\ -4f0fc7048689"], + CellChangeTimes->{{3.991799991275097*^9, 3.9917999948700333`*^9}}, + CellLabel-> + "In[444]:=",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 144, 101, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229664307`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0056133613610368`*^-217\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 444, 93, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993913420556695*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +In[444]:=",ExpressionUUID->"79744f26-d760-4ab4-bad5-4f121ce68457"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 144, 102, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327922975607*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.12633993857545`*^-223\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 444, 94, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993913420565884*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +In[444]:=",ExpressionUUID->"65a9a6ba-5e8a-4ff4-b7b0-e6e81f2da5ec"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 144, - 103, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229836063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6132669051121417`*^-228\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 444, 95, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993913420573615*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +In[444]:=",ExpressionUUID->"c7b94a91-0eeb-48bc-b2ec-7f7bafd16278"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 144, 104, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229916077`*^9}, +during this calculation.\"", 2, 444, 96, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993913420580414*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +In[444]:=",ExpressionUUID->"1edc40e9-2377-4fc6-84e4-7c4c0ed522b9"], -Cell[BoxData["9.48093127226425`"], "Output", - CellChangeTimes->{3.9913279288200035`*^9}, +Cell[BoxData["47.81522818197809`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9, 3.993913426960677*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] + "Out[444]=",ExpressionUUID->"7d1192e4-ee11-41f1-9450-a8881861087c"] }, Open ]], Cell[CellGroupData[{ @@ -13627,8 +15808,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13673,68 +15853,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918000011431293`*^9, - 3.9918000068677616`*^9}},ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-\ -32244819d42b"], + CellChangeTimes->{{3.9918000011431293`*^9, 3.9918000068677616`*^9}}, + CellLabel-> + "In[445]:=",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 145, 105, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928854006*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0056133613610368`*^-217\\\", \ +RowBox[{\\\"1119071536804432775059941\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"31183104000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 445, 97, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993913427003449*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +In[445]:=",ExpressionUUID->"b5a95b1a-285f-4a3b-b783-b28610774b78"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 145, 106, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928864023*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.12633993857545`*^-223\\\", \ +RowBox[{\\\"1974042190923019415205737\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"52\\\", \\\"\[RightSkeleton]\\\"}], \\\"06995456000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 445, 98, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993913427012066*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +In[445]:=",ExpressionUUID->"40fe5da3-b9d8-4f49-812d-74a11ba3b6c6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 145, - 107, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928871004*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6132669051121417`*^-228\\\", \ +RowBox[{\\\"3650004011016662898715408\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"55\\\", \\\"\[RightSkeleton]\\\"}], \\\"34598144000000000000000000\\\"}]]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 445, 99, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993913427020748*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +In[445]:=",ExpressionUUID->"ed710ac6-ecf7-4bc0-b0f8-6c36b02ab7f7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 145, 108, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928878006*^9}, +during this calculation.\"", 2, 445, 100, 31385385712403366894, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993913427029614*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +In[445]:=",ExpressionUUID->"7358701c-89f2-47c6-b402-e2b4d2159c55"], -Cell[BoxData["17.503865312709518`"], "Output", - CellChangeTimes->{3.9913279320131683`*^9}, +Cell[BoxData["14.789278659553347`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.993913431040719*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] + "Out[445]=",ExpressionUUID->"eb0a318f-0640-4ada-8e30-48a097995ea0"] }, Open ]], Cell[CellGroupData[{ @@ -13743,20 +15927,27 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991800029528055*^9, - 3.991800041720209*^9}},ExpressionUUID->"99da2760-e71e-1246-8cc9-\ -f0a7464dc747"], - -Cell[BoxData["0.08333108480569339`"], "Output", - CellChangeTimes->{3.9913279320452003`*^9}, + CellChangeTimes->{{3.991800029528055*^9, 3.991800041720209*^9}}, CellLabel-> - "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] + "In[446]:=",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], + +Cell[BoxData["0.06247865337558097`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.993913431079196*^9}, + CellLabel-> + "Out[446]=",ExpressionUUID->"91d53714-6ad2-4a5f-b30e-2bced787e19f"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.993910127230443*^9, 3.993910134493907*^9}}, + CellLabel-> + "In[447]:=",ExpressionUUID->"f4cd9d51-1336-4e6c-a95b-a638dfdfe4e7"] }, -WindowSize->{714, 876}, -WindowMargins->{{Automatic, 3}, {3, Automatic}}, +Evaluator->"Local", +WindowSize->{714, 288}, +WindowMargins->{{-3, Automatic}, {591, 15}}, CellContext->Notebook, -Magnification:>0.8 Inherited, +Magnification:>1.5 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" @@ -13773,661 +15964,674 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 332, 7, 23, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[911, 31, 254, 5, 38, "Output",ExpressionUUID->"ed0c2815-cc1a-4756-8d88-f5bb8caeb20b"] +Cell[576, 22, 427, 8, 79, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[1006, 32, 350, 6, 50, "Output",ExpressionUUID->"bfe8a91a-961c-482d-97a2-a7c995ffe74f"] }, Open ]], Cell[CellGroupData[{ -Cell[1202, 41, 202, 4, 23, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1407, 47, 262, 5, 38, "Output",ExpressionUUID->"ef9c60e3-1bdb-45d6-aac7-00dd70ac04ba"] +Cell[1393, 43, 251, 5, 44, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1647, 50, 353, 6, 50, "Output",ExpressionUUID->"5a1c83b9-f479-4a9b-99f1-733098f74ca0"] }, Open ]], Cell[CellGroupData[{ -Cell[1706, 57, 225, 5, 23, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1934, 64, 278, 5, 38, "Output",ExpressionUUID->"e8c83c95-2955-4170-af12-f0875fc6c4ff"] +Cell[2037, 61, 225, 5, 44, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[2265, 68, 380, 7, 50, "Output",ExpressionUUID->"e053eff7-fb3b-4463-b69a-2c6eae4b8a0f"] }, Open ]], Cell[CellGroupData[{ -Cell[2249, 74, 180, 4, 23, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2432, 80, 256, 5, 38, "Output",ExpressionUUID->"58d48fbb-6f76-4eb4-979f-ed09e2af5758"] +Cell[2682, 80, 180, 4, 44, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2865, 86, 354, 6, 50, "Output",ExpressionUUID->"9bfcf3e2-21bc-4d82-9c9b-62ec715a96eb"] }, Open ]], Cell[CellGroupData[{ -Cell[2725, 90, 262, 8, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2990, 100, 271, 5, 38, "Output",ExpressionUUID->"dca1cae6-2ffa-4a80-9d6f-e2d10825e8a3"] +Cell[3256, 97, 262, 8, 64, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3521, 107, 365, 6, 50, "Output",ExpressionUUID->"67e0d955-77d4-400b-a1d1-6c0d19563e43"] }, Open ]], Cell[CellGroupData[{ -Cell[3298, 110, 136, 3, 23, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3437, 115, 260, 5, 38, "Output",ExpressionUUID->"ac1fdb9d-fb8f-4506-b59e-629cb161fed4"] +Cell[3923, 118, 136, 3, 44, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[4062, 123, 354, 6, 50, "Output",ExpressionUUID->"3984b6eb-4d13-4dcb-829c-4fdb823c5845"] }, Open ]], Cell[CellGroupData[{ -Cell[3734, 125, 281, 7, 23, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[4018, 134, 271, 5, 38, "Output",ExpressionUUID->"9d67cd3c-e445-4322-b965-05ff68cd7062"] +Cell[4453, 134, 281, 7, 44, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4737, 143, 365, 6, 50, "Output",ExpressionUUID->"c3b970f2-4c56-4d38-b227-ae9a46a1b0d6"] }, Open ]], Cell[CellGroupData[{ -Cell[4326, 144, 262, 8, 23, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4591, 154, 272, 5, 38, "Output",ExpressionUUID->"45eaf109-a48e-44b4-941a-55ce331a2c0c"] +Cell[5139, 154, 262, 8, 44, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[5404, 164, 360, 6, 50, "Output",ExpressionUUID->"af49de57-e28e-47c9-b057-cdde5b162a5d"] }, Open ]], Cell[CellGroupData[{ -Cell[4900, 164, 231, 5, 23, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[5134, 171, 236, 5, 38, "Output",ExpressionUUID->"78e256c2-f976-44ca-8542-94afc0fa7bb2"] +Cell[5801, 175, 231, 5, 44, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[6035, 182, 329, 6, 50, "Output",ExpressionUUID->"f696685c-de7a-4b34-a5f0-ee2d475fe22d"] }, Open ]], Cell[CellGroupData[{ -Cell[5407, 181, 230, 5, 23, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5640, 188, 233, 5, 38, "Output",ExpressionUUID->"bc4252d2-1894-4de1-8095-d4f6472bc68a"] +Cell[6401, 193, 230, 5, 44, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[6634, 200, 324, 6, 50, "Output",ExpressionUUID->"9d41845c-7d14-41a1-8892-0ea2ee3b1256"] }, Open ]], Cell[CellGroupData[{ -Cell[5910, 198, 133, 3, 23, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[6046, 203, 256, 5, 38, "Output",ExpressionUUID->"c5f39883-e5cd-43d4-bd93-6f9a5a135399"] +Cell[6995, 211, 133, 3, 44, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[7131, 216, 348, 6, 50, "Output",ExpressionUUID->"29508bda-bb73-4957-84cc-39a52ce48706"] }, Open ]], Cell[CellGroupData[{ -Cell[6339, 213, 133, 3, 23, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[6475, 218, 256, 5, 38, "Output",ExpressionUUID->"93fcb263-22cb-4fc6-865c-2edb705f301e"] +Cell[7516, 227, 133, 3, 44, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[7652, 232, 348, 6, 50, "Output",ExpressionUUID->"29f8f643-604e-48c0-bf8f-65d048f231f1"] }, Open ]], Cell[CellGroupData[{ -Cell[6768, 228, 561, 20, 67, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[7332, 250, 274, 5, 38, "Output",ExpressionUUID->"1d0e4f25-790d-4859-b373-c11f6533427f"] +Cell[8037, 243, 561, 20, 119, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[8601, 265, 368, 6, 50, "Output",ExpressionUUID->"5c404409-2eb4-4f60-a7f5-77ba61fccbae"] }, Open ]], Cell[CellGroupData[{ -Cell[7643, 260, 561, 20, 67, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[8207, 282, 269, 5, 38, "Output",ExpressionUUID->"0eb23c11-639c-4776-bb1e-c43de62f7477"] +Cell[9006, 276, 561, 20, 119, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[9570, 298, 363, 6, 50, "Output",ExpressionUUID->"ad3588ca-b01a-4a3b-8fe2-5dd386fab4c7"] }, Open ]], Cell[CellGroupData[{ -Cell[8513, 292, 1496, 49, 67, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[10012, 343, 271, 5, 38, "Output",ExpressionUUID->"eb5ca689-eb33-41b5-a928-18b2388707d8"] +Cell[9970, 309, 1592, 51, 471, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[11565, 362, 364, 6, 50, "Output",ExpressionUUID->"e81f064a-fccc-4129-9b3a-6e7a4c112343"] }, Open ]], Cell[CellGroupData[{ -Cell[10320, 353, 1335, 45, 67, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[11658, 400, 285, 6, 38, "Output",ExpressionUUID->"95f6b77f-607b-4b35-b833-49a8fcb918d5"] +Cell[11966, 373, 1426, 47, 247, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[13395, 422, 380, 7, 50, "Output",ExpressionUUID->"fda63efa-27c6-4deb-82e4-a5e379b7e85c"] }, Open ]], Cell[CellGroupData[{ -Cell[11980, 411, 1335, 45, 67, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[13318, 458, 289, 6, 38, "Output",ExpressionUUID->"7742fd24-05cc-4b48-98e4-cddfc4410969"] +Cell[13812, 434, 1426, 47, 247, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[15241, 483, 381, 7, 50, "Output",ExpressionUUID->"d981f946-6e4a-4ba1-8088-61f809d5a0c4"] }, Open ]], Cell[CellGroupData[{ -Cell[13644, 469, 1496, 49, 67, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[15143, 520, 265, 5, 38, "Output",ExpressionUUID->"fdbb1356-e45b-4862-a24e-eaca088e8ad4"] +Cell[15659, 495, 1592, 51, 471, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[17254, 548, 359, 6, 50, "Output",ExpressionUUID->"a97e9892-d696-4222-9eef-5e31516a2745"] }, Open ]], Cell[CellGroupData[{ -Cell[15445, 530, 135, 3, 23, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[15583, 535, 254, 5, 38, "Output",ExpressionUUID->"0cc4bb0b-6373-42d0-9cf2-523e2a88c524"] +Cell[17650, 559, 135, 3, 44, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[17788, 564, 351, 6, 50, "Output",ExpressionUUID->"1e7eb844-a0bd-4fb6-9e4a-1ec18f4e8892"] }, Open ]], Cell[CellGroupData[{ -Cell[15874, 545, 137, 3, 23, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[16014, 550, 255, 5, 38, "Output",ExpressionUUID->"c9e218e4-c235-4104-b198-69f1ea326388"] +Cell[18176, 575, 137, 3, 44, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[18316, 580, 351, 6, 50, "Output",ExpressionUUID->"cfdcfe7d-5525-4642-8873-7a956588d382"] }, Open ]], Cell[CellGroupData[{ -Cell[16306, 560, 138, 3, 23, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[16447, 565, 259, 5, 38, "Output",ExpressionUUID->"0ed03adc-545f-4a6d-b441-0d38223055d3"] +Cell[18704, 591, 138, 3, 44, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[18845, 596, 352, 6, 50, "Output",ExpressionUUID->"cb2eca35-3747-48cb-b0ff-3555e17cd729"] }, Open ]], Cell[CellGroupData[{ -Cell[16743, 575, 223, 5, 23, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[16969, 582, 268, 6, 38, "Output",ExpressionUUID->"47ec7bff-21a0-4485-ab84-fbbbf1028d39"] +Cell[19234, 607, 223, 5, 44, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[19460, 614, 362, 7, 50, "Output",ExpressionUUID->"acce0cfc-40b0-46a7-a47f-63f0bbdd1c00"] }, Open ]], Cell[CellGroupData[{ -Cell[17274, 593, 138, 3, 23, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[17415, 598, 257, 5, 38, "Output",ExpressionUUID->"74f64109-a28d-49fa-b068-3b8029e7eecf"] +Cell[19859, 626, 138, 3, 44, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[20000, 631, 351, 6, 50, "Output",ExpressionUUID->"8b7164b7-c4e6-47e3-8b21-346aa5cb62db"] }, Open ]], Cell[CellGroupData[{ -Cell[17709, 608, 330, 6, 23, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[18042, 616, 230, 5, 38, "Output",ExpressionUUID->"e8780e6a-9ec2-4323-89ad-edf2d348f47f"] +Cell[20388, 642, 330, 6, 44, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[20721, 650, 320, 6, 50, "Output",ExpressionUUID->"00c43026-2011-420a-9a45-ff2958d4751e"] }, Open ]], Cell[CellGroupData[{ -Cell[18309, 626, 299, 6, 23, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[18611, 634, 257, 5, 38, "Output",ExpressionUUID->"81f3a166-0da6-41a6-91c9-5aead39720e9"] +Cell[21078, 661, 299, 6, 44, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[21380, 669, 349, 6, 50, "Output",ExpressionUUID->"7927fe89-097d-476f-a75b-264cdb99e18c"] }, Open ]], Cell[CellGroupData[{ -Cell[18905, 644, 223, 5, 23, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[19131, 651, 253, 5, 38, "Output",ExpressionUUID->"5b20a449-57bb-475e-9705-dde86ba51113"] +Cell[21766, 680, 223, 5, 44, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[21992, 687, 345, 6, 50, "Output",ExpressionUUID->"852532e5-89ce-4119-9e1c-f3de9400d6dd"] }, Open ]], Cell[CellGroupData[{ -Cell[19421, 661, 354, 11, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[19778, 674, 273, 5, 38, "Output",ExpressionUUID->"9995666b-fe9d-42b5-8232-f197ce6d61b5"] +Cell[22374, 698, 354, 11, 64, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[22731, 711, 367, 6, 50, "Output",ExpressionUUID->"a9a96088-ba6f-4e12-9a2a-82e9f806b5cc"] }, Open ]], Cell[CellGroupData[{ -Cell[20088, 684, 354, 11, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[20445, 697, 288, 6, 38, "Output",ExpressionUUID->"4bd1dbec-3147-446e-9cb6-86035a89a533"] +Cell[23135, 722, 354, 11, 64, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[23492, 735, 379, 7, 50, "Output",ExpressionUUID->"51d6a5d5-7e18-402f-97ca-ee722797b03d"] }, Open ]], Cell[CellGroupData[{ -Cell[20770, 708, 998, 27, 72, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[21771, 737, 269, 5, 38, "Output",ExpressionUUID->"123e0e2d-bbea-4bd3-8f7f-c7b399a5b6a8"] +Cell[23908, 747, 998, 27, 327, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[24909, 776, 361, 6, 50, "Output",ExpressionUUID->"7c73e795-6feb-48ad-ba7f-4b3ebf476314"] }, Open ]], Cell[CellGroupData[{ -Cell[22077, 747, 203, 4, 23, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[22283, 753, 254, 5, 38, "Output",ExpressionUUID->"a96faa50-6bdc-494c-b532-3ab859057a70"] +Cell[25307, 787, 203, 4, 44, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[25513, 793, 348, 6, 50, "Output",ExpressionUUID->"38deb10c-2d56-4d12-9e1d-e950eb2a7e36"] }, Open ]], Cell[CellGroupData[{ -Cell[22574, 763, 333, 6, 23, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[22910, 771, 235, 5, 38, "Output",ExpressionUUID->"33126a93-f99f-483d-aff7-55394bb8f08d"] +Cell[25898, 804, 333, 6, 44, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[26234, 812, 330, 6, 50, "Output",ExpressionUUID->"0f8c8b41-799e-46e0-b1a5-0c58fc695566"] }, Open ]], -Cell[23160, 779, 177, 3, 23, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[26579, 821, 177, 3, 44, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[23362, 786, 333, 6, 23, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[23698, 794, 235, 5, 38, "Output",ExpressionUUID->"41769073-9b62-41f1-a025-733acab1165a"] +Cell[26781, 828, 333, 6, 44, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[27117, 836, 328, 6, 50, "Output",ExpressionUUID->"be181857-1700-4f40-9804-fb3f38c7d9bd"] }, Open ]], -Cell[23948, 802, 177, 3, 23, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[27460, 845, 177, 3, 44, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[24150, 809, 334, 6, 23, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[24487, 817, 233, 5, 38, "Output",ExpressionUUID->"6856cf05-4d68-41e6-9de8-06e52af36743"] +Cell[27662, 852, 334, 6, 44, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[27999, 860, 325, 6, 50, "Output",ExpressionUUID->"0348e624-9ea7-4810-bd70-d987f1999199"] }, Open ]], -Cell[24735, 825, 177, 3, 23, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[28339, 869, 177, 3, 44, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[24937, 832, 356, 6, 23, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[25296, 840, 235, 5, 38, "Output",ExpressionUUID->"383f3643-42b2-4708-ab50-ae114e740627"] +Cell[28541, 876, 356, 6, 44, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[28900, 884, 329, 6, 50, "Output",ExpressionUUID->"9c230e8e-38a6-466b-8e11-40289f94ddbb"] }, Open ]], -Cell[25546, 848, 175, 3, 23, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[29244, 893, 175, 3, 44, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[25746, 855, 304, 6, 23, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[26053, 863, 234, 5, 38, "Output",ExpressionUUID->"25ed6acc-a97a-430a-be06-02ea35c426ce"] +Cell[29444, 900, 304, 6, 44, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[29751, 908, 325, 6, 50, "Output",ExpressionUUID->"3ad237c9-253f-4ed3-8cf7-28dc852b73e2"] }, Open ]], -Cell[26302, 871, 175, 3, 23, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[30091, 917, 175, 3, 44, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[26502, 878, 308, 6, 23, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[26813, 886, 234, 5, 38, "Output",ExpressionUUID->"501380b2-79ff-460c-b9d7-eea0a1c67904"] +Cell[30291, 924, 308, 6, 44, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[30602, 932, 330, 6, 50, "Output",ExpressionUUID->"13ac80b4-7bf6-458a-a983-fab5ead8ef5a"] }, Open ]], -Cell[27062, 894, 177, 3, 23, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[30947, 941, 177, 3, 44, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[27264, 901, 311, 6, 23, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[27578, 909, 232, 5, 38, "Output",ExpressionUUID->"079ab534-6674-442b-a298-2ad27736885d"] +Cell[31149, 948, 311, 6, 44, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[31463, 956, 324, 6, 50, "Output",ExpressionUUID->"47c1d714-42c6-4d5a-80d4-9bf1a6a91f34"] }, Open ]], -Cell[27825, 917, 176, 3, 23, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[31802, 965, 176, 3, 44, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[28026, 924, 278, 5, 23, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[28307, 931, 234, 5, 38, "Output",ExpressionUUID->"2962e2be-5199-4737-9aa0-c7a25925e07e"] +Cell[32003, 972, 278, 5, 44, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[32284, 979, 332, 6, 50, "Output",ExpressionUUID->"cb183a1e-c97a-4273-9f61-ac82f5744288"] }, Open ]], -Cell[28556, 939, 179, 3, 23, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[32631, 988, 179, 3, 44, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[28760, 946, 19813, 486, 1218, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[48576, 1434, 284, 6, 38, "Output",ExpressionUUID->"766992da-769c-4e32-8ee5-ec6a95178699"] +Cell[32835, 995, 19813, 486, 3721, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[52651, 1483, 379, 7, 50, "Output",ExpressionUUID->"9fdeb3d6-6f8d-4813-9463-eb0b5bcf954f"] }, Open ]], Cell[CellGroupData[{ -Cell[48897, 1445, 19752, 490, 1218, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[68652, 1937, 271, 5, 38, "Output",ExpressionUUID->"4fc8db10-5a17-4088-b57f-0e3d3e9697dc"] +Cell[53067, 1495, 19752, 490, 3905, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[72822, 1987, 362, 6, 50, "Output",ExpressionUUID->"d4dfb4f1-df43-4c9a-8c38-be7975236feb"] }, Open ]], Cell[CellGroupData[{ -Cell[68960, 1947, 19752, 484, 1218, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[88715, 2433, 285, 6, 38, "Output",ExpressionUUID->"0d754c99-0131-487f-8d67-385c1cdfc8c0"] +Cell[73221, 1998, 19752, 484, 3803, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[92976, 2484, 377, 7, 50, "Output",ExpressionUUID->"e8732f27-b3b9-4d8b-8ffb-d51402fa2408"] }, Open ]], Cell[CellGroupData[{ -Cell[89037, 2444, 22538, 554, 1356, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[111578, 3000, 284, 6, 38, "Output",ExpressionUUID->"c4364076-0cf2-4e86-bfbc-7c309f856874"] +Cell[93390, 2496, 22538, 554, 4326, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[115931, 3052, 381, 7, 50, "Output",ExpressionUUID->"e8ad7708-77f4-4fe2-b342-af8dbc55d0c3"] }, Open ]], Cell[CellGroupData[{ -Cell[111899, 3011, 22539, 554, 1356, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[134441, 3567, 287, 6, 38, "Output",ExpressionUUID->"501dbb3e-d0fc-4aed-b5e6-89ef1978ef04"] +Cell[116349, 3064, 22539, 554, 4326, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[138891, 3620, 381, 7, 50, "Output",ExpressionUUID->"52086ec7-64a7-4ef2-adb5-6f895c2cd88e"] }, Open ]], Cell[CellGroupData[{ -Cell[134765, 3578, 25495, 627, 1512, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[160263, 4207, 284, 6, 38, "Output",ExpressionUUID->"734938f7-5a3c-402d-a328-ffc882c3d9a0"] +Cell[139309, 3632, 25495, 627, 4849, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[164807, 4261, 381, 7, 50, "Output",ExpressionUUID->"51afe6c6-8696-49f6-81bc-dee7e3c3fa3d"] }, Open ]], Cell[CellGroupData[{ -Cell[160584, 4218, 134, 3, 23, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[160721, 4223, 254, 5, 38, "Output",ExpressionUUID->"4371a39e-7768-48fc-a276-1a9ce8923ae1"] +Cell[165225, 4273, 134, 3, 44, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[165362, 4278, 342, 6, 50, "Output",ExpressionUUID->"c00e6e0e-cc43-4657-8b9b-2c6da5ad5a94"] }, Open ]], Cell[CellGroupData[{ -Cell[161012, 4233, 134, 3, 23, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[161149, 4238, 251, 5, 38, "Output",ExpressionUUID->"fda2c4bd-ee2e-4eb6-a572-cd47f231a89f"] +Cell[165741, 4289, 134, 3, 44, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[165878, 4294, 345, 6, 50, "Output",ExpressionUUID->"d8321473-7421-4f13-8278-ddc47a846fe6"] }, Open ]], Cell[CellGroupData[{ -Cell[161437, 4248, 1148, 40, 95, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[162588, 4290, 272, 5, 38, "Output",ExpressionUUID->"1f6c7d5d-ca17-4134-a209-80febffc5163"] +Cell[166260, 4305, 1148, 40, 336, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[167411, 4347, 362, 6, 50, "Output",ExpressionUUID->"323b0ebf-d356-4fe1-a9e8-da32d91118bc"] }, Open ]], Cell[CellGroupData[{ -Cell[162897, 4300, 1045, 36, 129, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[163945, 4338, 284, 6, 38, "Output",ExpressionUUID->"12233c47-8e15-404f-912c-6d68a9d015e0"] +Cell[167810, 4358, 1045, 36, 334, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[168858, 4396, 375, 7, 50, "Output",ExpressionUUID->"8cf89501-6bc0-4d5e-97f3-6244f92b8ab0"] }, Open ]], Cell[CellGroupData[{ -Cell[164266, 4349, 1148, 40, 95, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[165417, 4391, 272, 5, 38, "Output",ExpressionUUID->"47da3934-d9fd-437e-bfb3-b8dd5e136127"] +Cell[169270, 4408, 1148, 40, 336, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[170421, 4450, 368, 6, 50, "Output",ExpressionUUID->"3d3703ac-6357-44ec-865c-c87d37909a26"] }, Open ]], Cell[CellGroupData[{ -Cell[165726, 4401, 112, 2, 23, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[165841, 4405, 275, 5, 38, "Output",ExpressionUUID->"7292bcec-c8ce-4d20-81f0-1b8d4cfe5722"] +Cell[170826, 4461, 112, 2, 44, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[170941, 4465, 366, 6, 50, "Output",ExpressionUUID->"f3f34492-b518-4fed-af47-4bc06ab7eb38"] }, Open ]], Cell[CellGroupData[{ -Cell[166153, 4415, 112, 2, 23, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[166268, 4419, 286, 6, 38, "Output",ExpressionUUID->"4bbcb49d-5069-419b-b0ca-ba004d12483e"] +Cell[171344, 4476, 112, 2, 44, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[171459, 4480, 376, 7, 50, "Output",ExpressionUUID->"35ca0862-e112-48d8-b6d4-fe2a52cf5875"] }, Open ]], Cell[CellGroupData[{ -Cell[166591, 4430, 112, 2, 23, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[166706, 4434, 288, 6, 38, "Output",ExpressionUUID->"f1d2114e-7fe4-4293-924b-a2e2ed230d75"] +Cell[171872, 4492, 112, 2, 44, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[171987, 4496, 380, 7, 50, "Output",ExpressionUUID->"b391c8a9-a61c-4a3d-92df-47ac3772b7e2"] }, Open ]], Cell[CellGroupData[{ -Cell[167031, 4445, 112, 2, 23, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[167146, 4449, 270, 5, 38, "Output",ExpressionUUID->"c5cbb70a-2342-4b64-8ccf-279e0d59b587"] +Cell[172404, 4508, 112, 2, 44, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[172519, 4512, 364, 6, 50, "Output",ExpressionUUID->"3db68da0-548f-48c5-923b-9fde0e728483"] }, Open ]], Cell[CellGroupData[{ -Cell[167453, 4459, 111, 2, 23, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[167567, 4463, 270, 5, 38, "Output",ExpressionUUID->"daf47fe9-d5c9-440e-96a7-f9be3aad4374"] +Cell[172920, 4523, 111, 2, 44, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[173034, 4527, 366, 6, 50, "Output",ExpressionUUID->"f4eb2573-5af2-4ee9-b3b7-4ddf5fed63d2"] }, Open ]], Cell[CellGroupData[{ -Cell[167874, 4473, 111, 2, 23, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[167988, 4477, 270, 5, 38, "Output",ExpressionUUID->"0a16511f-7615-4a37-9cee-28d219b63d35"] +Cell[173437, 4538, 111, 2, 44, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[173551, 4542, 363, 6, 50, "Output",ExpressionUUID->"264a4a7e-61ea-4427-9ff1-93ff6733efe8"] }, Open ]], Cell[CellGroupData[{ -Cell[168295, 4487, 501, 17, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[168799, 4506, 287, 6, 38, "Output",ExpressionUUID->"b890d0eb-8eea-4cab-9ce4-0400c2063acd"] +Cell[173951, 4553, 501, 17, 84, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[174455, 4572, 380, 7, 50, "Output",ExpressionUUID->"0d90d79e-7718-44ef-8536-c8b70f3e3f93"] }, Open ]], Cell[CellGroupData[{ -Cell[169123, 4517, 501, 17, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[169627, 4536, 283, 6, 38, "Output",ExpressionUUID->"045f2fcb-a130-4f4e-938e-7a1aa7e93441"] +Cell[174872, 4584, 501, 17, 84, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[175376, 4603, 375, 7, 50, "Output",ExpressionUUID->"5899783c-02e0-476e-bb06-ab1ff1675256"] }, Open ]], Cell[CellGroupData[{ -Cell[169947, 4547, 1792, 61, 160, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[171742, 4610, 272, 5, 38, "Output",ExpressionUUID->"0fd8e53d-d39c-4394-b5a0-ca0e3bf5e7ef"] +Cell[175788, 4615, 1792, 61, 508, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[177583, 4678, 364, 6, 50, "Output",ExpressionUUID->"4915d6ea-6e4d-4198-acb3-1942d38466f3"] }, Open ]], Cell[CellGroupData[{ -Cell[172051, 4620, 1105, 37, 114, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[173159, 4659, 285, 6, 38, "Output",ExpressionUUID->"eb672da2-c3b4-4efd-8e1b-d5070a302f90"] +Cell[177984, 4689, 1105, 37, 367, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[179092, 4728, 378, 7, 50, "Output",ExpressionUUID->"defcebc4-9f3c-45b6-8c27-fc291aebc3f5"] }, Open ]], Cell[CellGroupData[{ -Cell[173481, 4670, 1822, 62, 95, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[175306, 4734, 270, 5, 38, "Output",ExpressionUUID->"fe8db029-97a6-464a-9f09-c661705abd25"] +Cell[179507, 4740, 1822, 62, 508, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[181332, 4804, 364, 6, 50, "Output",ExpressionUUID->"a8fb87c6-4d4f-43d5-9023-2eddf26cf8cb"] }, Open ]], Cell[CellGroupData[{ -Cell[175613, 4744, 1635, 54, 67, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[177251, 4800, 274, 5, 38, "Output",ExpressionUUID->"5302cfa4-efca-4df0-9778-f54b2673f220"] +Cell[181733, 4815, 1635, 54, 287, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[183371, 4871, 367, 6, 50, "Output",ExpressionUUID->"4e2c9538-d90f-4a4f-8ef7-9ccd846e9fbf"] }, Open ]], Cell[CellGroupData[{ -Cell[177562, 4810, 1635, 54, 67, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[179200, 4866, 270, 5, 38, "Output",ExpressionUUID->"55575989-d18e-4c7a-a3dc-dadd3eca346b"] +Cell[183775, 4882, 1635, 54, 287, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[185413, 4938, 361, 6, 50, "Output",ExpressionUUID->"7cec3038-b116-4b3b-b343-f6f62c2f4881"] }, Open ]], Cell[CellGroupData[{ -Cell[179507, 4876, 227, 5, 23, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[179737, 4883, 237, 5, 38, "Output",ExpressionUUID->"57e3c938-373e-4184-94a7-a0d01c72fb4f"] +Cell[185811, 4949, 227, 5, 44, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[186041, 4956, 335, 6, 50, "Output",ExpressionUUID->"4ce32cac-7bde-43b8-8882-12e68817bec6"] }, Open ]], -Cell[179989, 4891, 176, 3, 23, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[186391, 4965, 176, 3, 44, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[180190, 4898, 231, 5, 23, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[180424, 4905, 238, 5, 38, "Output",ExpressionUUID->"5a7a163b-9e3b-4621-89ce-0f691a25c324"] +Cell[186592, 4972, 231, 5, 44, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[186826, 4979, 334, 6, 50, "Output",ExpressionUUID->"15f9aaa3-b324-4bdf-a9b7-b520c9b4007d"] }, Open ]], -Cell[180677, 4913, 177, 3, 23, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[187175, 4988, 177, 3, 44, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[180879, 4920, 1301, 43, 59, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[182183, 4965, 273, 5, 38, "Output",ExpressionUUID->"9e4da4e1-d663-4bfe-8072-c8fdbd3b5fa4"] +Cell[187377, 4995, 1301, 43, 205, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[188681, 5040, 368, 6, 50, "Output",ExpressionUUID->"80bcd1fa-da2f-4290-b680-2fdbb65eee50"] }, Open ]], Cell[CellGroupData[{ -Cell[182493, 4975, 931, 31, 48, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[183427, 5008, 275, 5, 38, "Output",ExpressionUUID->"0c36613d-2c31-4f17-9f44-390fbc2ff7f9"] +Cell[189086, 5051, 931, 31, 205, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[190020, 5084, 367, 6, 50, "Output",ExpressionUUID->"a21bcf61-580d-4a62-8d19-dfad63e75fd3"] }, Open ]], Cell[CellGroupData[{ -Cell[183739, 5018, 907, 30, 48, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[184649, 5050, 277, 5, 38, "Output",ExpressionUUID->"60117839-aa88-4ccf-95ab-185bc94d917d"] +Cell[190424, 5095, 907, 30, 149, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[191334, 5127, 369, 6, 50, "Output",ExpressionUUID->"6abcaa94-9032-406e-bdb7-04b85c373673"] }, Open ]], Cell[CellGroupData[{ -Cell[184963, 5060, 558, 19, 43, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[185524, 5081, 663, 10, 38, "Output",ExpressionUUID->"03bbdf93-f23c-4968-83e7-d2b00976c665"] +Cell[191740, 5138, 558, 19, 79, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[192301, 5159, 759, 12, 50, "Output",ExpressionUUID->"c4af0c0d-0f83-4e82-8076-27a3646b87be"] }, Open ]], Cell[CellGroupData[{ -Cell[186224, 5096, 665, 22, 43, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[186892, 5120, 646, 10, 38, "Output",ExpressionUUID->"292e6061-a926-430d-99e6-2cba092de92a"] +Cell[193097, 5176, 665, 22, 79, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[193765, 5200, 738, 11, 50, "Output",ExpressionUUID->"b4f66e2f-cb0c-4224-8a07-7cedcf9eed4b"] }, Open ]], Cell[CellGroupData[{ -Cell[187575, 5135, 170, 5, 47, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[187748, 5142, 673, 10, 38, "Output",ExpressionUUID->"eee7c556-792b-4a60-b8a6-d43ad387f9eb"] +Cell[194540, 5216, 170, 5, 84, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[194713, 5223, 765, 12, 50, "Output",ExpressionUUID->"02df6713-854c-4416-a21f-03250a1e4b9a"] }, Open ]], Cell[CellGroupData[{ -Cell[188458, 5157, 236, 6, 46, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[188697, 5165, 617, 10, 38, "Output",ExpressionUUID->"116166d2-5c15-4a1f-a40a-7a8d4c06b6ad"] +Cell[195515, 5240, 236, 6, 83, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[195754, 5248, 713, 11, 50, "Output",ExpressionUUID->"954646b8-0650-4cd9-9918-ea5626fc0d73"] }, Open ]], Cell[CellGroupData[{ -Cell[189351, 5180, 223, 6, 36, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[189577, 5188, 648, 10, 38, "Output",ExpressionUUID->"d790c654-8fc8-4fef-abfc-2251b313686d"] +Cell[196504, 5264, 223, 6, 65, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[196730, 5272, 744, 11, 50, "Output",ExpressionUUID->"686de71d-1e2e-408e-ac13-dc75205ede9b"] }, Open ]], Cell[CellGroupData[{ -Cell[190262, 5203, 181, 5, 36, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[190446, 5210, 665, 10, 38, "Output",ExpressionUUID->"34c0f45d-afe1-4322-a858-b2839b02fdf5"] +Cell[197511, 5288, 181, 5, 65, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[197695, 5295, 765, 12, 50, "Output",ExpressionUUID->"61ea77e9-fafc-4186-8626-e5e497ff3546"] }, Open ]], Cell[CellGroupData[{ -Cell[191148, 5225, 6055, 185, 413, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[197206, 5412, 646, 10, 38, "Output",ExpressionUUID->"0875f832-df2a-4d44-ac65-c8fa2f4eef51"] +Cell[198497, 5312, 6055, 185, 1229, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[204555, 5499, 744, 11, 50, "Output",ExpressionUUID->"24b81928-f74d-473b-948c-3e47b8d81f5b"] }, Open ]], Cell[CellGroupData[{ -Cell[197889, 5427, 410, 10, 46, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[198302, 5439, 665, 11, 51, "Output",ExpressionUUID->"c8a02c21-81ca-4862-9806-b19924fbf729"] +Cell[205336, 5515, 410, 10, 87, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[205749, 5527, 763, 12, 74, "Output",ExpressionUUID->"5dd8ddf4-a524-400d-aa99-a023faf3ab84"] }, Open ]], -Cell[198982, 5453, 492, 10, 23, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[206527, 5542, 492, 10, 44, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[199499, 5467, 558, 19, 43, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[200060, 5488, 269, 5, 38, "Output",ExpressionUUID->"dbeb2f2d-b368-4ea1-8f45-2323ef830f8e"] +Cell[207044, 5556, 558, 19, 79, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[207605, 5577, 339, 6, 50, "Output",ExpressionUUID->"4af336c2-2169-4156-8f2f-9ab0a0c1ecf1"] }, Open ]], Cell[CellGroupData[{ -Cell[200366, 5498, 623, 21, 43, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[200992, 5521, 273, 5, 38, "Output",ExpressionUUID->"b32394f4-6d96-4321-958f-f21933222ca5"] +Cell[207981, 5588, 623, 21, 79, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[208607, 5611, 347, 6, 50, "Output",ExpressionUUID->"74532804-78ed-47c2-b79d-730d3a274cfe"] }, Open ]], Cell[CellGroupData[{ -Cell[201302, 5531, 170, 5, 47, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[201475, 5538, 272, 5, 38, "Output",ExpressionUUID->"10d42588-fe3a-430b-967f-aac4b7e47a3f"] +Cell[208991, 5622, 170, 5, 84, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[209164, 5629, 344, 6, 50, "Output",ExpressionUUID->"43f74d68-2380-4fa5-a378-14f1da6e5d6e"] }, Open ]], Cell[CellGroupData[{ -Cell[201784, 5548, 170, 5, 46, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[201957, 5555, 266, 5, 38, "Output",ExpressionUUID->"78c5f0d4-a0b0-43ba-9f1f-571f8e7996de"] +Cell[209545, 5640, 170, 5, 83, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[209718, 5647, 339, 6, 50, "Output",ExpressionUUID->"eee2a58c-fdc8-417c-bb7d-28711aeba14f"] }, Open ]], Cell[CellGroupData[{ -Cell[202260, 5565, 181, 5, 36, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[202444, 5572, 276, 5, 38, "Output",ExpressionUUID->"be3ffaf1-896c-463e-a613-136cc336448c"] +Cell[210094, 5658, 181, 5, 65, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[210278, 5665, 346, 6, 50, "Output",ExpressionUUID->"71fcab11-d8c1-426f-ae59-d118fb9eb7c7"] }, Open ]], Cell[CellGroupData[{ -Cell[202757, 5582, 181, 5, 36, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[202941, 5589, 271, 5, 38, "Output",ExpressionUUID->"f8c791ae-094b-4ea4-8015-93f3400f6712"] +Cell[210661, 5676, 181, 5, 65, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[210845, 5683, 340, 6, 50, "Output",ExpressionUUID->"c181fb4e-ede0-484e-8e9b-16f3dd7de7b6"] }, Open ]], Cell[CellGroupData[{ -Cell[203249, 5599, 6055, 185, 161, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[209307, 5786, 272, 5, 38, "Output",ExpressionUUID->"4ac7e2c7-d588-4f06-b993-fd67bba64a43"] +Cell[211222, 5694, 6055, 185, 497, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[217280, 5881, 342, 6, 50, "Output",ExpressionUUID->"a4243a21-8d24-45a9-8e2c-7739a1ea1f9b"] }, Open ]], Cell[CellGroupData[{ -Cell[209616, 5796, 368, 9, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[209987, 5807, 268, 5, 38, "Output",ExpressionUUID->"e9298b8d-593f-473d-95ea-6420e40bb0a9"] +Cell[217659, 5892, 368, 9, 63, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[218030, 5903, 339, 6, 50, "Output",ExpressionUUID->"bfffaa2a-5691-4f0a-9c9d-142a862a6a3a"] }, Open ]], Cell[CellGroupData[{ -Cell[210292, 5817, 6122, 187, 161, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[216417, 6006, 273, 5, 38, "Output",ExpressionUUID->"abdb542f-1042-4b15-a9ba-e324ee6926f7"] +Cell[218406, 5914, 6122, 187, 497, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[224531, 6103, 343, 6, 50, "Output",ExpressionUUID->"eaf78250-6361-4b32-82f4-c2b3be6fc0ca"] }, Open ]], Cell[CellGroupData[{ -Cell[216727, 6016, 368, 9, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[217098, 6027, 270, 5, 38, "Output",ExpressionUUID->"cd61fb1c-0a93-4db6-805e-b4bed4086176"] +Cell[224911, 6114, 368, 9, 63, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[225282, 6125, 346, 6, 50, "Output",ExpressionUUID->"da822dbd-79fb-4ca5-a70e-6d275dd0edfb"] }, Open ]], Cell[CellGroupData[{ -Cell[217405, 6037, 2663, 88, 95, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[220071, 6127, 271, 5, 38, "Output",ExpressionUUID->"ad8e9cd9-eb12-427d-9045-f089da9777b7"] +Cell[225665, 6136, 2663, 88, 247, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[228331, 6226, 341, 6, 50, "Output",ExpressionUUID->"43890d40-4a13-4062-85f7-4045ba53a71f"] }, Open ]], Cell[CellGroupData[{ -Cell[220379, 6137, 2603, 85, 95, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[222985, 6224, 272, 5, 38, "Output",ExpressionUUID->"0ee5b7a3-8645-49b4-bab1-88f0bfbceb35"] +Cell[228709, 6237, 2603, 85, 247, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[231315, 6324, 346, 6, 50, "Output",ExpressionUUID->"1b41b159-e335-46b4-8dab-dde4c0c328ec"] }, Open ]], Cell[CellGroupData[{ -Cell[223294, 6234, 3712, 118, 142, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[227009, 6354, 273, 5, 38, "Output",ExpressionUUID->"b8d00f90-26fb-47fe-8584-8838f8e3549d"] +Cell[231698, 6335, 3712, 118, 364, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[235413, 6455, 345, 6, 50, "Output",ExpressionUUID->"95b67a85-e6ed-4aeb-85ac-f0bc84b392bf"] }, Open ]], -Cell[227297, 6362, 164, 4, 23, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[235773, 6464, 164, 4, 44, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[227486, 6370, 2075, 59, 83, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[229564, 6431, 663, 15, 34, "Message",ExpressionUUID->"f73be6db-cf58-4dc2-8126-ccab46a518e7"], -Cell[230230, 6448, 667, 15, 34, "Message",ExpressionUUID->"ac054d1e-a674-4b37-a7d6-59a179d70f1c"], -Cell[230900, 6465, 668, 15, 34, "Message",ExpressionUUID->"88b2963d-6ad8-4463-8f40-767ce6e4ae7e"], -Cell[231571, 6482, 566, 13, 20, "Message",ExpressionUUID->"282f7ffb-1f94-44de-af83-15de8a233e87"], -Cell[232140, 6497, 276, 5, 26, "Output",ExpressionUUID->"c15b83e3-3028-438b-9c38-949341602e89"] +Cell[235962, 6472, 2101, 60, 132, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[238066, 6534, 780, 16, 64, "Message",ExpressionUUID->"623f67bb-e287-4897-91a3-015f89d125bd"], +Cell[238849, 6552, 779, 16, 64, "Message",ExpressionUUID->"925a0cfa-4b19-44bc-8c3f-9a84279127fc"], +Cell[239631, 6570, 781, 16, 64, "Message",ExpressionUUID->"08189eb4-63f2-4363-b5b9-c058f3e7b947"], +Cell[240415, 6588, 640, 14, 39, "Message",ExpressionUUID->"713426fb-75a0-4355-9a30-2b30346e063a"], +Cell[241058, 6604, 351, 6, 50, "Output",ExpressionUUID->"17816c1e-142c-4f9d-8c2a-627aab93860e"] }, Open ]], Cell[CellGroupData[{ -Cell[232453, 6507, 2077, 59, 83, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[234533, 6568, 640, 15, 34, "Message",ExpressionUUID->"8b83c5b0-6791-4422-8e40-f1d5ff8536b4"], -Cell[235176, 6585, 646, 15, 34, "Message",ExpressionUUID->"ffed9ff0-a48c-4962-b1ef-de3ba868e9c2"], -Cell[235825, 6602, 647, 15, 34, "Message",ExpressionUUID->"32f50ddf-3a3c-48c5-b175-07c7b6912324"], -Cell[236475, 6619, 545, 13, 20, "Message",ExpressionUUID->"15af151b-395d-4abf-ac1c-1f2fca5e6a09"], -Cell[237023, 6634, 251, 5, 26, "Output",ExpressionUUID->"7209b8ff-d70b-406e-967d-1838b67dd0e5"] +Cell[241446, 6615, 2103, 60, 132, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[243552, 6677, 729, 15, 64, "Message",ExpressionUUID->"6d850d59-5847-4df6-b782-5f12eba60362"], +Cell[244284, 6694, 728, 15, 64, "Message",ExpressionUUID->"e490933d-3bda-4acb-b59b-de3a56bf008e"], +Cell[245015, 6711, 732, 15, 89, "Message",ExpressionUUID->"f04c7c57-aa7b-4321-aff4-381ec830e5cf"], +Cell[245750, 6728, 589, 13, 65, "Message",ExpressionUUID->"a110e1f0-21f7-42a0-81ec-17dc53acff04"], +Cell[246342, 6743, 292, 5, 50, "Output",ExpressionUUID->"a49119d9-6344-4483-9541-8ea343b0109b"] }, Open ]], Cell[CellGroupData[{ -Cell[237311, 6644, 1961, 53, 61, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[239275, 6699, 239, 5, 38, "Output",ExpressionUUID->"37bd0b84-2c78-406e-9f0a-86fcc466be88"] +Cell[246671, 6753, 2053, 55, 317, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[248727, 6810, 20526, 386, 334, "Output",ExpressionUUID->"fbb4aba8-c808-40be-aef7-03e689c9e112"] }, Open ]], Cell[CellGroupData[{ -Cell[239551, 6709, 2094, 60, 83, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[241648, 6771, 497, 11, 34, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[242148, 6784, 501, 11, 34, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[242652, 6797, 503, 11, 34, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[243158, 6810, 455, 10, 20, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[243616, 6822, 43631, 762, 186, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[269290, 7201, 2144, 61, 450, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[271437, 7264, 532, 12, 111, "Message",ExpressionUUID->"0ccd3624-3a6c-4025-9d8e-876d0de34cab"], +Cell[271972, 7278, 534, 12, 111, "Message",ExpressionUUID->"a66f833c-80e4-437b-8bf8-b4a950a1072e"], +Cell[272509, 7292, 540, 12, 147, "Message",ExpressionUUID->"9e714659-a7c0-4ca1-8761-eacb6bd5a53a"], +Cell[273052, 7306, 492, 11, 64, "Message",ExpressionUUID->"db56b3b4-c8b3-481a-94b0-2143419af947"], +Cell[273547, 7319, 22446, 417, 329, "Output",ExpressionUUID->"da5b217a-ccfb-4e34-8495-636a03776350"] }, Open ]], -Cell[287262, 7587, 232, 6, 23, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[287497, 7595, 209, 5, 23, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[287731, 7604, 212, 6, 40, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[287946, 7612, 168, 2, 26, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[296030, 7741, 2480, 70, 350, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[298513, 7813, 9496, 223, 343, "Output",ExpressionUUID->"2ffc8e42-75af-4f94-8c10-bfc4a0772457"] }, Open ]], Cell[CellGroupData[{ -Cell[288151, 7619, 1814, 53, 83, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[289968, 7674, 505, 11, 34, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[290476, 7687, 509, 11, 34, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[290988, 7700, 508, 11, 34, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[291499, 7713, 455, 10, 20, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[291957, 7725, 22399, 414, 188, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[308046, 8041, 232, 5, 44, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[308281, 8048, 28803, 549, 329, "Output",ExpressionUUID->"bff43359-539a-4d3e-8ae6-1c6cf8d45644"] }, Open ]], Cell[CellGroupData[{ -Cell[314393, 8144, 1612, 47, 60, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[316008, 8193, 581, 12, 34, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[316592, 8207, 584, 12, 34, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[317179, 8221, 590, 12, 34, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[317772, 8235, 455, 10, 20, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[318230, 8247, 169, 2, 26, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[337121, 8602, 237, 7, 72, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[337361, 8611, 195, 3, 50, "Output",ExpressionUUID->"ae80cbb2-3d41-4950-803e-6fceadb0b0cb"] }, Open ]], Cell[CellGroupData[{ -Cell[318436, 8254, 2249, 64, 54, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[320688, 8320, 557, 12, 34, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[321248, 8334, 560, 12, 34, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[321811, 8348, 560, 12, 34, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[322374, 8362, 455, 10, 20, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[322832, 8374, 169, 2, 26, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[337593, 8619, 1837, 53, 367, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[339433, 8674, 540, 12, 147, "Message",ExpressionUUID->"523bf3d7-4fef-4c86-be01-6f7f30712630"], +Cell[339976, 8688, 545, 12, 147, "Message",ExpressionUUID->"30a7366b-222b-4b26-a808-7ee63d33994a"], +Cell[340524, 8702, 635, 14, 89, "Message",ExpressionUUID->"7588215e-3eae-4afb-8dc8-129b29b669c7"], +Cell[341162, 8718, 492, 11, 64, "Message",ExpressionUUID->"9af0bc8d-ae70-48f8-a9b2-7db03a938698"], +Cell[341657, 8731, 22106, 411, 336, "Output",ExpressionUUID->"46a4a630-7a13-46e2-97fd-6f99f1bf1e11"] }, Open ]], Cell[CellGroupData[{ -Cell[323038, 8381, 2221, 64, 54, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[325262, 8447, 554, 12, 34, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[325819, 8461, 560, 12, 34, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[326382, 8475, 560, 12, 34, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[326945, 8489, 455, 10, 20, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[327403, 8501, 169, 2, 26, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[363800, 9147, 1616, 48, 247, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[365419, 9197, 630, 13, 89, "Message",ExpressionUUID->"cd830cde-30cd-4a13-bf04-b633de106129"], +Cell[366052, 9212, 633, 13, 89, "Message",ExpressionUUID->"8c59ad0e-95f0-4862-8d26-7a6c32f100c2"], +Cell[366688, 9227, 631, 13, 89, "Message",ExpressionUUID->"4c38b059-b1f8-42d1-9e6b-f8b1b0368b6d"], +Cell[367322, 9242, 490, 11, 64, "Message",ExpressionUUID->"116a3492-777c-4452-b405-af3cbf9af57c"], +Cell[367815, 9255, 195, 3, 50, "Output",ExpressionUUID->"e686dcca-242b-4bb0-847f-b6eb51abf131"] }, Open ]], Cell[CellGroupData[{ -Cell[327609, 8508, 2223, 64, 54, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[329835, 8574, 555, 12, 34, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[330393, 8588, 558, 12, 34, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[330954, 8602, 560, 12, 34, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[331517, 8616, 453, 10, 20, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[331973, 8628, 167, 2, 26, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[368047, 9263, 2272, 64, 501, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[370322, 9329, 632, 13, 89, "Message",ExpressionUUID->"6f11f919-3f2c-42c5-a014-4b541822f38d"], +Cell[370957, 9344, 631, 13, 89, "Message",ExpressionUUID->"00d447eb-8191-4726-9d5c-8dd00ae2d659"], +Cell[371591, 9359, 635, 13, 89, "Message",ExpressionUUID->"70b25088-aaa0-4381-8e5a-f56f590dea57"], +Cell[372229, 9374, 492, 11, 64, "Message",ExpressionUUID->"f4123f41-f473-4795-aa18-a138851274b2"], +Cell[372724, 9387, 195, 3, 50, "Output",ExpressionUUID->"88a10dc8-1d55-4360-aadc-ded297b63e0a"] }, Open ]], Cell[CellGroupData[{ -Cell[332177, 8635, 213, 6, 39, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[332393, 8643, 169, 2, 26, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[372956, 9395, 2233, 63, 501, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[375192, 9460, 629, 13, 89, "Message",ExpressionUUID->"6d4b62f5-bfdd-4304-89b3-a101a0c9b99b"], +Cell[375824, 9475, 627, 13, 89, "Message",ExpressionUUID->"00239eef-53c8-49ea-ba28-968720ec27d5"], +Cell[376454, 9490, 629, 13, 89, "Message",ExpressionUUID->"e37ef50b-2d4f-4a58-8f0c-9f07760a85b9"], +Cell[377086, 9505, 489, 11, 64, "Message",ExpressionUUID->"515ee46f-9901-48e3-b92e-e7ac0235637d"], +Cell[377578, 9518, 195, 3, 50, "Output",ExpressionUUID->"dbff754e-541c-4d15-9fa6-0b7533437680"] }, Open ]], -Cell[332577, 8648, 247, 5, 23, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[332849, 8657, 554, 18, 43, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[333406, 8677, 167, 2, 26, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[377810, 9526, 2235, 63, 501, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[380048, 9591, 632, 13, 89, "Message",ExpressionUUID->"18476870-01fe-4ced-8de1-ab3481dfd2bd"], +Cell[380683, 9606, 629, 13, 89, "Message",ExpressionUUID->"ac74d7aa-d890-46f4-86a5-2a1ce90bfb40"], +Cell[381315, 9621, 631, 13, 89, "Message",ExpressionUUID->"4c2720e8-e70f-4d05-bb47-b74a7a4ae775"], +Cell[381949, 9636, 490, 11, 64, "Message",ExpressionUUID->"5cdf37d9-cd3f-4578-8a46-00faed6545e2"], +Cell[382442, 9649, 193, 3, 50, "Output",ExpressionUUID->"6a49af0a-886e-463a-8c6d-0cc39f501c4b"] }, Open ]], Cell[CellGroupData[{ -Cell[333610, 8684, 166, 4, 47, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[333779, 8690, 169, 2, 26, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[382672, 9657, 236, 6, 71, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[382911, 9665, 194, 3, 50, "Output",ExpressionUUID->"84984732-767e-4840-80da-d63b6f097d5e"] }, Open ]], +Cell[383120, 9671, 273, 6, 44, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[333985, 8697, 181, 5, 36, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[334169, 8704, 173, 3, 26, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[383418, 9681, 558, 19, 79, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[383979, 9702, 195, 3, 50, "Output",ExpressionUUID->"a0973890-dd1e-41a9-be2a-80bd9f54cef5"] }, Open ]], Cell[CellGroupData[{ -Cell[334379, 8712, 6055, 185, 161, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[340437, 8899, 172, 3, 26, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[384211, 9710, 170, 5, 84, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[384384, 9717, 194, 3, 50, "Output",ExpressionUUID->"6b2aaa76-5a5d-484a-85c8-c7115cfd59d9"] }, Open ]], Cell[CellGroupData[{ -Cell[340646, 8907, 368, 9, 33, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[341017, 8918, 170, 3, 26, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[384615, 9725, 181, 5, 65, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[384799, 9732, 196, 3, 50, "Output",ExpressionUUID->"40ee655b-b49b-4737-afd2-d04cd053e244"] }, Open ]], Cell[CellGroupData[{ -Cell[341224, 8926, 6122, 187, 161, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[347349, 9115, 175, 3, 26, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[385032, 9740, 6055, 185, 1229, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[391090, 9927, 194, 3, 50, "Output",ExpressionUUID->"b206bf11-fec3-4fa1-ac22-1e651888607a"] }, Open ]], Cell[CellGroupData[{ -Cell[347561, 9123, 368, 9, 33, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[347932, 9134, 169, 3, 26, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[391321, 9935, 368, 9, 63, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[391692, 9946, 192, 3, 50, "Output",ExpressionUUID->"d2fd175c-b6a7-4bfa-b44b-b7cb6dd25c9a"] }, Open ]], Cell[CellGroupData[{ -Cell[348138, 9142, 2663, 88, 95, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[350804, 9232, 173, 3, 26, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[391921, 9954, 6122, 187, 1292, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[398046, 10143, 197, 3, 50, "Output",ExpressionUUID->"cd4f89d9-610b-47f6-8c25-21125d2b2684"] }, Open ]], Cell[CellGroupData[{ -Cell[351014, 9240, 2603, 85, 95, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[353620, 9327, 171, 3, 26, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[398280, 10151, 368, 9, 63, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[398651, 10162, 192, 3, 50, "Output",ExpressionUUID->"810d9fdd-098a-45e6-9e3b-c1b96d949ad6"] }, Open ]], Cell[CellGroupData[{ -Cell[353828, 9335, 3712, 118, 142, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[357543, 9455, 171, 3, 26, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[398880, 10170, 2663, 88, 558, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[401546, 10260, 196, 3, 50, "Output",ExpressionUUID->"c96d800b-a62a-4ff9-a858-59e04645f870"] }, Open ]], Cell[CellGroupData[{ -Cell[357751, 9463, 2052, 59, 83, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[359806, 9524, 572, 12, 34, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[360381, 9538, 573, 12, 34, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[360957, 9552, 578, 12, 34, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[361538, 9566, 457, 10, 20, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[361998, 9578, 172, 3, 26, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[401779, 10268, 2603, 85, 558, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[404385, 10355, 193, 3, 50, "Output",ExpressionUUID->"72475dbf-09a4-4359-ac04-16d599315f3a"] }, Open ]], Cell[CellGroupData[{ -Cell[362207, 9586, 2054, 59, 83, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[364264, 9647, 572, 12, 34, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[364839, 9661, 575, 12, 34, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[365417, 9675, 576, 12, 34, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[365996, 9689, 457, 10, 20, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[366456, 9701, 170, 3, 26, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[404615, 10363, 3712, 118, 781, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[408330, 10483, 195, 3, 50, "Output",ExpressionUUID->"144f2c45-1a9e-4e46-a04a-dba09c69c10e"] }, Open ]], Cell[CellGroupData[{ -Cell[366663, 9709, 2030, 55, 45, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[368696, 9766, 20377, 384, 189, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[408562, 10491, 2101, 60, 409, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[410666, 10553, 634, 13, 89, "Message",ExpressionUUID->"97eaefb7-fbb6-487c-a554-1cecfa909e9b"], +Cell[411303, 10568, 633, 13, 89, "Message",ExpressionUUID->"afa4e9ec-5c72-40bd-afa8-80abebe01c48"], +Cell[411939, 10583, 633, 13, 89, "Message",ExpressionUUID->"961ee725-5ff5-4162-a7a8-67ae6254779e"], +Cell[412575, 10598, 492, 11, 64, "Message",ExpressionUUID->"ae87376e-a859-42cd-84ba-de6f46e2e2ad"], +Cell[413070, 10611, 195, 3, 50, "Output",ExpressionUUID->"e3de8c48-cfaf-4aa6-acaf-387fcdbba247"] }, Open ]], Cell[CellGroupData[{ -Cell[389110, 10155, 2118, 60, 83, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[391231, 10217, 499, 11, 34, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[391733, 10230, 504, 11, 34, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[392240, 10243, 507, 11, 34, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[392750, 10256, 455, 10, 20, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[393208, 10268, 22381, 415, 188, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[413302, 10619, 2103, 60, 409, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[415408, 10681, 634, 13, 89, "Message",ExpressionUUID->"ae570001-9486-4742-ab72-3bfe981e7410"], +Cell[416045, 10696, 633, 13, 89, "Message",ExpressionUUID->"97bf86aa-1936-4b37-b717-04c29f1b1f96"], +Cell[416681, 10711, 635, 13, 89, "Message",ExpressionUUID->"1bf96efa-2a14-4101-81cc-09277784ffad"], +Cell[417319, 10726, 492, 11, 64, "Message",ExpressionUUID->"ffeaf6b0-92af-432b-9acc-7a06eefa6fa9"], +Cell[417814, 10739, 192, 3, 50, "Output",ExpressionUUID->"49f94328-8713-479c-8267-ecb6a8c31755"] }, Open ]], -Cell[415604, 10686, 174, 3, 23, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[415781, 10691, 209, 5, 23, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[416015, 10700, 1616, 48, 60, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[417634, 10750, 594, 12, 34, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[418231, 10764, 594, 12, 34, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[418828, 10778, 598, 12, 34, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[419429, 10792, 457, 10, 20, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[419889, 10804, 171, 3, 26, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[418043, 10747, 2053, 55, 317, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[420099, 10804, 20319, 383, 334, "Output",ExpressionUUID->"627a9fac-5273-4c5f-9972-fe0a019a7489"] }, Open ]], Cell[CellGroupData[{ -Cell[420097, 10812, 2247, 64, 54, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[422347, 10878, 572, 12, 34, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[422922, 10892, 573, 12, 34, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[423498, 10906, 578, 12, 34, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[424079, 10920, 455, 10, 20, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[424537, 10932, 172, 3, 26, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[440455, 11192, 2168, 61, 450, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[442626, 11255, 532, 12, 111, "Message",ExpressionUUID->"eed9319d-61c5-4cbc-8abb-ef5e730d3bd6"], +Cell[443161, 11269, 535, 12, 111, "Message",ExpressionUUID->"77944505-cc3c-4111-909f-e1d2d66779ac"], +Cell[443699, 11283, 537, 12, 147, "Message",ExpressionUUID->"3701580d-d694-4225-9e16-a3fb17132f5a"], +Cell[444239, 11297, 490, 11, 64, "Message",ExpressionUUID->"c275d6ea-0331-485b-9d71-2a67e93f38ed"], +Cell[444732, 11310, 22244, 411, 329, "Output",ExpressionUUID->"f67dacfc-21a3-4ab4-b77d-d83e95d54466"] }, Open ]], +Cell[466991, 11724, 200, 4, 44, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[424746, 10940, 2221, 64, 54, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[426970, 11006, 570, 12, 34, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[427543, 11020, 573, 12, 34, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[428119, 11034, 578, 12, 34, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[428700, 11048, 455, 10, 20, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[429158, 11060, 172, 3, 26, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[467216, 11732, 232, 5, 44, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[467451, 11739, 28606, 543, 329, "Output",ExpressionUUID->"457c8c45-f873-46bf-bf6b-3bd6aae99cc4"] }, Open ]], Cell[CellGroupData[{ -Cell[429367, 11068, 2221, 64, 54, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[431591, 11134, 572, 12, 34, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[432166, 11148, 575, 12, 34, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[432744, 11162, 578, 12, 34, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[433325, 11176, 455, 10, 20, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[433783, 11188, 173, 3, 26, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[496094, 12287, 1616, 48, 247, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[497713, 12337, 634, 13, 89, "Message",ExpressionUUID->"971319c3-0053-4e5e-8034-1047fb97790b"], +Cell[498350, 12352, 632, 13, 89, "Message",ExpressionUUID->"09373d9b-464d-4cf1-859d-7e96037ead50"], +Cell[498985, 12367, 633, 13, 89, "Message",ExpressionUUID->"0ac54353-e64c-4492-aa1c-6df9386ed2b0"], +Cell[499621, 12382, 492, 11, 64, "Message",ExpressionUUID->"b4a79e1c-1b97-4ac3-bc84-beffcf2c7bd2"], +Cell[500116, 12395, 193, 3, 50, "Output",ExpressionUUID->"6922aa63-f744-4f85-9f67-b6d9e2babe8b"] }, Open ]], Cell[CellGroupData[{ -Cell[433993, 11196, 213, 6, 39, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[434209, 11204, 172, 3, 26, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[500346, 12403, 2270, 64, 501, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[502619, 12469, 634, 13, 89, "Message",ExpressionUUID->"b7477e27-823f-4151-9f0a-a4362dd5109f"], +Cell[503256, 12484, 633, 13, 89, "Message",ExpressionUUID->"0203a43e-977c-4b78-a3b8-358a05ca00d2"], +Cell[503892, 12499, 633, 13, 89, "Message",ExpressionUUID->"25b614dd-4adc-4e6c-89df-1b7fd70fa139"], +Cell[504528, 12514, 492, 11, 64, "Message",ExpressionUUID->"406e20aa-a59a-429c-a049-6a6bdcc41eb1"], +Cell[505023, 12527, 195, 3, 50, "Output",ExpressionUUID->"e379c77e-c71f-4ca3-ae18-348fe8ccc0e6"] }, Open ]], -Cell[434396, 11210, 245, 5, 23, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[434666, 11219, 558, 19, 43, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[435227, 11240, 173, 3, 26, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[505255, 12535, 2233, 63, 501, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[507491, 12600, 632, 13, 89, "Message",ExpressionUUID->"4ee63082-8ed4-46ef-b127-88703042a56f"], +Cell[508126, 12615, 633, 13, 89, "Message",ExpressionUUID->"7814faba-a713-482b-9354-9113a9cb2dcd"], +Cell[508762, 12630, 631, 13, 89, "Message",ExpressionUUID->"66e21697-54eb-4bab-9951-22a01afda078"], +Cell[509396, 12645, 490, 11, 64, "Message",ExpressionUUID->"3c35abb4-8c30-47f7-b5bc-9527e2121518"], +Cell[509889, 12658, 195, 3, 50, "Output",ExpressionUUID->"31549e16-ce64-4a48-af5e-4f44840b5999"] }, Open ]], Cell[CellGroupData[{ -Cell[435437, 11248, 170, 5, 47, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[435610, 11255, 171, 3, 26, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[510121, 12666, 2233, 63, 501, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[512357, 12731, 634, 13, 89, "Message",ExpressionUUID->"7b79ebea-6de7-4543-adf4-29203e02bf85"], +Cell[512994, 12746, 633, 13, 89, "Message",ExpressionUUID->"5e552997-1a98-42a0-bab8-7042b31b2fba"], +Cell[513630, 12761, 633, 13, 89, "Message",ExpressionUUID->"7e11e881-3102-4e0d-b63b-2b37aa5ef979"], +Cell[514266, 12776, 492, 11, 64, "Message",ExpressionUUID->"3545068b-5da2-41d8-a24f-4dcc30c19490"], +Cell[514761, 12789, 195, 3, 50, "Output",ExpressionUUID->"20029165-f1c4-4c30-8543-d84631697c54"] }, Open ]], Cell[CellGroupData[{ -Cell[435818, 11263, 181, 5, 36, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[436002, 11270, 173, 3, 26, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[514993, 12797, 236, 6, 71, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[515232, 12805, 197, 3, 50, "Output",ExpressionUUID->"b545ecb4-0ca2-4015-aee4-b7625c8c7028"] }, Open ]], +Cell[515444, 12811, 271, 6, 44, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[436212, 11278, 6055, 185, 161, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[442270, 11465, 175, 3, 26, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[515740, 12821, 558, 19, 79, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[516301, 12842, 195, 3, 50, "Output",ExpressionUUID->"eb3107b4-91f3-4eb9-9905-886d4c1ef052"] }, Open ]], Cell[CellGroupData[{ -Cell[442482, 11473, 368, 9, 33, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[442853, 11484, 170, 3, 26, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[516533, 12850, 170, 5, 84, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[516706, 12857, 195, 3, 50, "Output",ExpressionUUID->"fdf9e2db-b4e9-4a0c-a466-4c1ee8e0cc43"] }, Open ]], Cell[CellGroupData[{ -Cell[443060, 11492, 6122, 187, 161, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[449185, 11681, 175, 3, 26, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[516938, 12865, 181, 5, 65, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[517122, 12872, 191, 3, 50, "Output",ExpressionUUID->"14acd0c7-7060-40e2-8545-9dcfd5ed780a"] }, Open ]], Cell[CellGroupData[{ -Cell[449397, 11689, 368, 9, 33, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[449768, 11700, 172, 3, 26, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[517350, 12880, 6055, 185, 1229, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[523408, 13067, 197, 3, 50, "Output",ExpressionUUID->"ca40508f-744d-4f11-9faa-f1352dc7ba69"] }, Open ]], Cell[CellGroupData[{ -Cell[449977, 11708, 2663, 88, 95, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[452643, 11798, 173, 3, 26, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[523642, 13075, 368, 9, 63, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[524013, 13086, 193, 3, 50, "Output",ExpressionUUID->"94302bed-41e6-4906-9080-95361c813892"] }, Open ]], Cell[CellGroupData[{ -Cell[452853, 11806, 2603, 85, 95, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[455459, 11893, 171, 3, 26, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[524243, 13094, 6122, 187, 1292, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[530368, 13283, 199, 3, 50, "Output",ExpressionUUID->"99eaea07-31bd-4b93-929f-d2698fdc6e40"] }, Open ]], Cell[CellGroupData[{ -Cell[455667, 11901, 3712, 118, 142, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[459382, 12021, 171, 3, 26, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[530604, 13291, 368, 9, 63, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[530975, 13302, 194, 3, 50, "Output",ExpressionUUID->"843893ab-8424-47e7-9025-95188c1c8ebc"] }, Open ]], Cell[CellGroupData[{ -Cell[459590, 12029, 2052, 59, 83, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[461645, 12090, 568, 12, 34, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[462216, 12104, 572, 12, 34, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[462791, 12118, 574, 12, 34, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[463368, 12132, 457, 10, 20, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[463828, 12144, 172, 3, 26, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[531206, 13310, 2663, 88, 558, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[533872, 13400, 196, 3, 50, "Output",ExpressionUUID->"4f84924d-5589-453c-9fba-d0fbc96b8441"] }, Open ]], Cell[CellGroupData[{ -Cell[464037, 12152, 2054, 59, 83, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[466094, 12213, 568, 12, 34, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[466665, 12227, 572, 12, 34, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[467240, 12241, 574, 12, 34, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[467817, 12255, 457, 10, 20, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[468277, 12267, 171, 3, 26, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[534105, 13408, 2603, 85, 558, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[536711, 13495, 193, 3, 50, "Output",ExpressionUUID->"e9512e21-91c2-4378-8944-9ccc6e29bead"] }, Open ]], Cell[CellGroupData[{ -Cell[468485, 12275, 2030, 55, 45, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[470518, 12332, 19960, 375, 189, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[536941, 13503, 3712, 118, 781, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[540656, 13623, 195, 3, 50, "Output",ExpressionUUID->"1102993f-0235-4dad-b940-e9dba848d008"] }, Open ]], Cell[CellGroupData[{ -Cell[490515, 12712, 2118, 60, 83, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[492636, 12774, 496, 11, 34, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[493135, 12787, 501, 11, 34, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[493639, 12800, 505, 11, 34, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[494147, 12813, 455, 10, 20, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[494605, 12825, 21721, 403, 186, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[540888, 13631, 2101, 60, 409, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[542992, 13693, 635, 13, 89, "Message",ExpressionUUID->"908716b0-dd94-4bd7-9b80-375f76160171"], +Cell[543630, 13708, 633, 13, 89, "Message",ExpressionUUID->"379cc3a6-f4e7-4926-9677-e72225d90d6e"], +Cell[544266, 13723, 635, 13, 89, "Message",ExpressionUUID->"f756744c-125d-4ba7-9074-1ca729b9ed72"], +Cell[544904, 13738, 494, 11, 64, "Message",ExpressionUUID->"a33bc922-5ecb-48ae-8cf9-1f456f118836"], +Cell[545401, 13751, 193, 3, 50, "Output",ExpressionUUID->"abac4ef5-74c9-4d5b-8704-5e100aef2432"] }, Open ]], -Cell[516341, 13231, 181, 3, 23, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[516525, 13236, 207, 5, 23, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[516757, 13245, 1616, 48, 60, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[518376, 13295, 589, 12, 34, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[518968, 13309, 588, 12, 34, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[519559, 13323, 594, 12, 34, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[520156, 13337, 455, 10, 20, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[520614, 13349, 173, 3, 26, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[545631, 13759, 2103, 60, 409, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[547737, 13821, 635, 13, 89, "Message",ExpressionUUID->"3d26a09a-94a6-4cd1-bb00-22ad19337da2"], +Cell[548375, 13836, 631, 13, 89, "Message",ExpressionUUID->"2d41734b-a27c-40ba-9783-663d685041a1"], +Cell[549009, 13851, 633, 13, 89, "Message",ExpressionUUID->"09717490-405a-4c8b-b481-ea8aff1fc7a3"], +Cell[549645, 13866, 492, 11, 64, "Message",ExpressionUUID->"4ca60dc3-a9a4-4a44-a4e3-278683f8ffc1"], +Cell[550140, 13879, 195, 3, 50, "Output",ExpressionUUID->"58954f68-cf53-461e-af51-ddda6e4e1531"] }, Open ]], Cell[CellGroupData[{ -Cell[520824, 13357, 2246, 64, 54, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[523073, 13423, 566, 12, 34, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[523642, 13437, 570, 12, 34, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[524215, 13451, 574, 12, 34, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[524792, 13465, 456, 10, 20, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[525251, 13477, 171, 3, 26, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[550372, 13887, 2053, 55, 317, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[552428, 13944, 20403, 383, 336, "Output",ExpressionUUID->"cf873716-f744-419e-b53b-2721b5da28dd"] }, Open ]], Cell[CellGroupData[{ -Cell[525459, 13485, 2221, 64, 54, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[527683, 13551, 569, 12, 34, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[528255, 13565, 571, 12, 34, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[528829, 13579, 575, 12, 34, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[529407, 13593, 458, 10, 20, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[529868, 13605, 171, 3, 26, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[572868, 14332, 2168, 61, 450, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[575039, 14395, 532, 12, 111, "Message",ExpressionUUID->"103c4703-42b8-4e19-89c7-e15cda907818"], +Cell[575574, 14409, 534, 12, 111, "Message",ExpressionUUID->"378289be-f5fd-421c-86f0-8094a95c0f95"], +Cell[576111, 14423, 540, 12, 147, "Message",ExpressionUUID->"d5911927-b752-49df-805a-1edb8911e218"], +Cell[576654, 14437, 489, 11, 64, "Message",ExpressionUUID->"ef588db9-db91-49da-a0a8-88995a271dc5"], +Cell[577146, 14450, 21872, 405, 333, "Output",ExpressionUUID->"f62d5a83-23ae-4211-afa5-a6b95d786d46"] }, Open ]], +Cell[599033, 14858, 207, 4, 44, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[530076, 13613, 2223, 64, 54, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[532302, 13679, 567, 12, 34, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[532872, 13693, 571, 12, 34, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[533446, 13707, 573, 12, 34, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[534022, 13721, 456, 10, 20, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[534481, 13733, 173, 3, 26, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[599265, 14866, 230, 5, 44, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[599498, 14873, 28234, 537, 333, "Output",ExpressionUUID->"8578460c-b5bf-4de8-9652-aa370e0eb0fc"] }, Open ]], Cell[CellGroupData[{ -Cell[534691, 13741, 211, 6, 39, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[534905, 13749, 174, 3, 26, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +Cell[627769, 15415, 1616, 48, 247, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[629388, 15465, 631, 13, 89, "Message",ExpressionUUID->"d7a81420-7cb3-464a-a10e-a6f5b5944f65"], +Cell[630022, 15480, 633, 13, 89, "Message",ExpressionUUID->"6a1be0c6-6d06-47da-9c1f-90578c1b3b21"], +Cell[630658, 15495, 633, 13, 89, "Message",ExpressionUUID->"c60f9cf8-533e-4cf0-8bf5-b8c47b09d273"], +Cell[631294, 15510, 492, 11, 64, "Message",ExpressionUUID->"c71a4e89-961c-4699-b77f-53ff737cb184"], +Cell[631789, 15523, 195, 3, 50, "Output",ExpressionUUID->"03f393a8-4ffb-40a8-8a34-0251046f3f86"] +}, Open ]], +Cell[CellGroupData[{ +Cell[632021, 15531, 2269, 64, 501, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[634293, 15597, 628, 13, 89, "Message",ExpressionUUID->"2c7693da-11ac-41ba-8219-6a56657fcbca"], +Cell[634924, 15612, 631, 13, 89, "Message",ExpressionUUID->"df31daad-88e9-4bee-b2e3-abee5749b176"], +Cell[635558, 15627, 631, 13, 89, "Message",ExpressionUUID->"4c87c40e-c0f2-4a45-b389-fd2526c884ad"], +Cell[636192, 15642, 490, 11, 64, "Message",ExpressionUUID->"b76e4f06-b87a-4a62-9a94-a174733b9a4e"], +Cell[636685, 15655, 192, 3, 50, "Output",ExpressionUUID->"4e24c109-d40a-4d76-a484-3dd5c5f74e09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[636914, 15663, 2233, 63, 501, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[639150, 15728, 633, 13, 89, "Message",ExpressionUUID->"79744f26-d760-4ab4-bad5-4f121ce68457"], +Cell[639786, 15743, 631, 13, 89, "Message",ExpressionUUID->"65a9a6ba-5e8a-4ff4-b7b0-e6e81f2da5ec"], +Cell[640420, 15758, 633, 13, 89, "Message",ExpressionUUID->"c7b94a91-0eeb-48bc-b2ec-7f7bafd16278"], +Cell[641056, 15773, 492, 11, 64, "Message",ExpressionUUID->"1edc40e9-2377-4fc6-84e4-7c4c0ed522b9"], +Cell[641551, 15786, 194, 3, 50, "Output",ExpressionUUID->"7d1192e4-ee11-41f1-9450-a8881861087c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[641782, 15794, 2235, 63, 501, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[644020, 15859, 631, 13, 89, "Message",ExpressionUUID->"b5a95b1a-285f-4a3b-b783-b28610774b78"], +Cell[644654, 15874, 629, 13, 89, "Message",ExpressionUUID->"40fe5da3-b9d8-4f49-812d-74a11ba3b6c6"], +Cell[645286, 15889, 631, 13, 89, "Message",ExpressionUUID->"ed710ac6-ecf7-4bc0-b0f8-6c36b02ab7f7"], +Cell[645920, 15904, 491, 11, 64, "Message",ExpressionUUID->"7358701c-89f2-47c6-b402-e2b4d2159c55"], +Cell[646414, 15917, 195, 3, 50, "Output",ExpressionUUID->"eb0a318f-0640-4ada-8e30-48a097995ea0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[646646, 15925, 234, 6, 71, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[646883, 15933, 196, 3, 50, "Output",ExpressionUUID->"91d53714-6ad2-4a5f-b30e-2bced787e19f"] +}, Open ]], +Cell[647094, 15939, 209, 4, 44, "Input",ExpressionUUID->"f4cd9d51-1336-4e6c-a95b-a638dfdfe4e7"] } ] *) diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw2.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw2.nb index a320d64..3091358 100644 --- a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw2.nb @@ -3,42 +3,4903 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 381361, 9130] -NotebookOptionsPosition[ 356610, 8757] -NotebookOutlinePosition[ 357039, 8774] -CellTagsIndexPosition[ 356996, 8771] +NotebookDataLength[ 669989, 15953] +NotebookOptionsPosition[ 629411, 15304] +NotebookOutlinePosition[ 629845, 15322] +CellTagsIndexPosition[ 629802, 15319] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ -6f058773310c"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918496892276516`*^9, - 3.9918496892324924`*^9}},ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-\ -c82e80965ca9"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "6.05"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9938046575111637`*^9, 3.993804701607058*^9}, + 3.993804733204545*^9, {3.993909737291142*^9, 3.993909742224861*^9}, { + 3.993909952221772*^9, 3.993909984030127*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"6b501036-8f29-4af3-8808-d54f61f602ee"], + +Cell[BoxData["6.05`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.993804549577532*^9, 3.993804625944013*^9, { + 3.993804662482604*^9, 3.993804748770383*^9}, 3.9939096014243507`*^9, + 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993909908282672*^9, { + 3.9939099553998528`*^9, 3.993909989690781*^9}, 3.993911030709744*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"e877c62f-ce3c-471f-8ce5-b864bdebc2ce"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993909136325391*^9, 3.993909137492978*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"6f55d317-e35b-4b36-8052-dd31882b2754"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ -7dc8ec78e5b4"], + 3.9913196497381973`*^9, 3.9938045496655397`*^9, 3.9938046259897127`*^9, { + 3.9938046625249434`*^9, 3.9938047488188868`*^9}, 3.993909601730575*^9, + 3.993909669289562*^9, 3.99390975259161*^9, 3.993909908569488*^9, { + 3.993909955491517*^9, 3.9939099897296047`*^9}, 3.993911031048973*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"bd0e7061-afe1-4121-9d8b-cad6b43cc982"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "156"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.99380431527282*^9, 3.993804315993903*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"613c58a1-f24e-4443-bd3a-05aeeb43d655"], + +Cell[BoxData["156"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993804317319977*^9, 3.9938045496866302`*^9, + 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}, + 3.9939096017486753`*^9, 3.9939096693086853`*^9, 3.9939097526160994`*^9, + 3.993909908588579*^9, {3.993909955509431*^9, 3.9939099897457*^9}, + 3.9939110310578012`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"2879a66b-7c88-471a-8582-ea6a7e763056"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"fe14a0fb-0676-474f-bef9-40f721f2e0e6"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993804549706154*^9, 3.9938046260288763`*^9, { + 3.993804662560594*^9, 3.993804748856688*^9}, 3.9939096017670803`*^9, + 3.9939096693268347`*^9, 3.993909752633919*^9, 3.993909908607675*^9, { + 3.993909955527431*^9, 3.993909989761148*^9}, 3.993911031065084*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"a6880fec-55bf-464b-9712-5b33a8b3c0d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"793e325a-1f13-4c70-8218-b50b15fcbb1b"], + +Cell[BoxData["0.5455000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.99380454972574*^9, 3.993804626048635*^9, { + 3.9938046625774603`*^9, 3.993804748860417*^9}, 3.993909601785378*^9, + 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993909908626553*^9, { + 3.9939099555442657`*^9, 3.993909989776597*^9}, 3.993911031072727*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"bbc3d9ae-3f0c-47d9-ac55-2c8da1335787"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"e81ab4c8-ed5a-49e7-bdba-a15bcffea297"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.993804549747018*^9, 3.993804626052534*^9, { + 3.9938046625812197`*^9, 3.9938047488891172`*^9}, 3.9939096018028593`*^9, + 3.993909669362465*^9, 3.993909752666353*^9, 3.99390990864529*^9, { + 3.9939099555482264`*^9, 3.993909989792164*^9}, 3.993911031079833*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"586a0385-4468-4d23-8303-ad3d823df26e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"9bfe357a-88ce-4aae-aa98-2dde597bb0ab"], + +Cell[BoxData["6.244526630021248`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993804549770184*^9, 3.993804626085994*^9, { + 3.9938046626047153`*^9, 3.993804748905245*^9}, 3.993909601820876*^9, + 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993909908664627*^9, { + 3.993909955570965*^9, 3.993909989807292*^9}, 3.993911031086582*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"6641c3af-5a52-4502-b1a4-c031eda1819f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"9c1a304d-3b36-4569-b29f-3e6cdf49ccd8"], + +Cell[BoxData["5.08024220226995`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9938045497749643`*^9, 3.993804626103525*^9, { + 3.993804662619735*^9, 3.993804748921926*^9}, 3.993909601824861*^9, + 3.99390966939812*^9, 3.993909752692038*^9, 3.993909908682929*^9, { + 3.993909955589458*^9, 3.993909989822392*^9}, 3.993911031093058*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"47c600ae-b4c7-44c7-ae03-0c80c8974879"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9831"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9938043369460163`*^9, 3.993804343883932*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"fd690b76-be44-44e6-9974-d5e9217b7888"], + +Cell[BoxData["0.9831`"], "Output", + CellChangeTimes->{ + 3.993804549811586*^9, 3.993804626121752*^9, {3.993804662635777*^9, + 3.9938047489393063`*^9}, 3.993909601854841*^9, 3.993909669421215*^9, + 3.9939097527133102`*^9, 3.99390990870128*^9, {3.993909955606114*^9, + 3.9939099898261213`*^9}, 3.993911031099471*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"d8e61811-91d2-4e1e-98c5-3c578d2b47b1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.463"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.9938043632365713`*^9, 3.993804381532929*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"91c62644-a468-447f-b3ed-002992ea8feb"], + +Cell[BoxData["0.463`"], "Output", + CellChangeTimes->{ + 3.993804549830037*^9, 3.993804626139834*^9, {3.993804662651184*^9, + 3.993804748955449*^9}, 3.993909601874164*^9, 3.993909669438889*^9, + 3.99390975272956*^9, 3.9939099087196302`*^9, {3.99390995562206*^9, + 3.993909989846019*^9}, 3.993911031110158*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"4d82fac8-6f8e-4ae7-bfed-2f3dc1cb264d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"b5608e50-195e-43c0-8457-ad8bcfc10e2a"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9938045498689833`*^9, 3.993804626160439*^9, { + 3.993804662666739*^9, 3.9938047489718924`*^9}, 3.993909601896028*^9, + 3.993909669457499*^9, 3.993909752744871*^9, 3.9939099087374763`*^9, { + 3.993909955638915*^9, 3.993909989862071*^9}, 3.993911031118463*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"462528a7-1d77-4f5d-b892-bd183ddd7a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"149c2c16-5557-4b8b-a828-9e9beecd1f77"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.9938045498874207`*^9, 3.9938046261797523`*^9, { + 3.993804662682715*^9, 3.993804748988103*^9}, 3.993909601914316*^9, + 3.993909669475305*^9, 3.993909752760817*^9, 3.993909908755747*^9, { + 3.993909955656601*^9, 3.993909989865912*^9}, 3.993911031135495*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"94f3dcee-21fc-4566-9c75-0f572d1089cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"6d268c4a-2777-478a-92f7-b2646bc0a7e7"], + +Cell[BoxData["2.5173601133375656`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9938045499058733`*^9, 3.993804626198407*^9, { + 3.9938046626977053`*^9, 3.993804749004431*^9}, 3.9939096019331207`*^9, + 3.993909669493326*^9, 3.993909752780408*^9, 3.993909908773466*^9, { + 3.993909955671833*^9, 3.993909989883627*^9}, 3.9939110311516953`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"673621fd-9276-4add-803f-584542b7ff5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"f5f356d6-b75a-4b21-ba5f-490c723df621"], + +Cell[BoxData["1.5234450434796134`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993804549925211*^9, 3.993804626217005*^9, { + 3.993804662711796*^9, 3.99380474902066*^9}, 3.993909601952641*^9, + 3.9939096695112753`*^9, 3.993909752793829*^9, 3.9939099087914257`*^9, { + 3.993909955686531*^9, 3.993909989897831*^9}, 3.993911031159083*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"2a4cdcd1-4c75-4f42-b494-5ce9075e6fda"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"7c334f37-fb0f-4cc6-8cab-056596428d27"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { + 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, + 3.993909669529284*^9, 3.993909752809037*^9, 3.9939099088105917`*^9, { + 3.993909955701372*^9, 3.993909989911367*^9}, 3.9939110311672277`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"8c680847-79d9-4cbf-b486-3c549a943f7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"41ae5dc1-3cd9-4289-b2c9-74e90270ce4a"], + +Cell[BoxData[ + RowBox[{"-", "0.056142152983087`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993804549962688*^9, 3.993804626257918*^9, { + 3.993804662739541*^9, 3.993804749053331*^9}, 3.9939096019922533`*^9, + 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993909908814773*^9, { + 3.993909955715828*^9, 3.993909989925456*^9}, 3.9939110311732397`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"f4381b28-1304-4572-8967-8430f1adc990"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"e45a48f5-df3d-41f1-a7e8-6c67e9970db5"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { + 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, + 3.993909669564651*^9, 3.993909752838642*^9, 3.9939099088478737`*^9, { + 3.993909955730867*^9, 3.993909989940257*^9}, 3.993911031185944*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"5a1f9a44-f757-4d7d-ae1e-ed56eb6492ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"0747cd4c-0999-4626-9d29-27fa5749c8db"], + +Cell[BoxData["0.5841645161809887`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.99380455000006*^9, 3.993804626300075*^9, { + 3.993804662773251*^9, 3.993804749085907*^9}, 3.993909602031176*^9, + 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993909908866128*^9, { + 3.99390995574667*^9, 3.993909989956238*^9}, 3.9939110311980143`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"ce9b466e-8fa0-420e-91af-23055ed2d6de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"d2de6f42-7d89-4c21-83ca-c81e8066ac5f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993804550019484*^9, 3.993804626319972*^9, { + 3.993804662777142*^9, 3.9938047491020308`*^9}, 3.99390960204895*^9, + 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939099088839207`*^9, { + 3.993909955761622*^9, 3.993909989971353*^9}, 3.993911031203785*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"c7404771-739e-4085-8f3c-2d08c145269c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"8f030f71-6ffe-4421-9b26-750f4e195467"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9938045500378237`*^9, 3.993804626339315*^9, { + 3.993804662793344*^9, 3.99380474911817*^9}, 3.993909602068466*^9, + 3.9939096696185913`*^9, 3.993909752884066*^9, 3.993909908903553*^9, { + 3.9939099557765713`*^9, 3.993909989986253*^9}, 3.993911031215753*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"a771ef0c-db19-477a-a58e-70ad2f971c82"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"5e82ed62-d5eb-415f-bfa2-c9866086ecd1"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9938045500560837`*^9, 3.9938046263600817`*^9, { + 3.99380466280895*^9, 3.993804749134166*^9}, 3.993909602086402*^9, + 3.9939096696362677`*^9, 3.99390975290001*^9, 3.9939099089231663`*^9, { + 3.9939099557917356`*^9, 3.9939099900012712`*^9}, 3.993911031222721*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"d24b5044-6bc2-41ab-afee-616efd1d8f26"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"1462c24f-5b05-481b-b208-74a4724bc9e6"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993804550075344*^9, 3.993804626383381*^9, { + 3.99380466282749*^9, 3.993804749150152*^9}, 3.993909602104745*^9, + 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993909908940823*^9, { + 3.993909955808311*^9, 3.993909990017736*^9}, 3.993911031229842*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"59ccda33-5505-41b9-bd29-e71b02f6a15d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"876a3e8c-124c-4094-bcfd-1daf4cfeccf8"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993804550093996*^9, 3.99380462640412*^9, { + 3.9938046628451138`*^9, 3.993804749168808*^9}, 3.993909602124238*^9, + 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993909908959701*^9, { + 3.99390995582368*^9, 3.9939099900328217`*^9}, 3.9939110312418957`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"47f36aba-61d0-4222-b523-8735a9ee7405"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.9938046144530077`*^9, 3.9938046145855627`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"08c39aa4-3ecb-4d21-bb3a-55c80642492b"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993804626423663*^9, {3.993804662861299*^9, + 3.99380474918727*^9}, 3.993909602142963*^9, 3.99390966968908*^9, + 3.993909752947946*^9, 3.993909908977618*^9, {3.993909955827662*^9, + 3.993909990050256*^9}, 3.993911031248909*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"488dbf7d-24fa-4e61-98eb-1a5d326d1e59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.99380461799697*^9, 3.993804618062627*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"2f2e6bbb-7711-4b58-8d89-47b87eb8a141"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9938045501483994`*^9, 3.993804626442574*^9, { + 3.993804662877561*^9, 3.9938047492047462`*^9}, 3.993909602161409*^9, + 3.993909669707423*^9, 3.993909752964058*^9, 3.9939099089960423`*^9, { + 3.993909955845819*^9, 3.993909990065692*^9}, 3.9939110312560062`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"0492e1d1-793f-4e3a-8ecb-219f64f26d83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"8c91f5e4-77f6-4100-bd3f-16775b62af64"], + +Cell[BoxData["84"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993804550167096*^9, 3.993804626459854*^9, { + 3.993804662896564*^9, 3.9938047492214317`*^9}, 3.993909602179817*^9, + 3.993909669724697*^9, 3.993909752980503*^9, 3.9939099090164824`*^9, { + 3.993909955861395*^9, 3.9939099900817633`*^9}, 3.9939110312629232`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"3357e445-3eb7-4be5-b7aa-b8e6e2c1e201"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"116cf255-50a3-4c65-9c35-0ee339c8a0c8"], + +Cell[BoxData["0.11153846153846153`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9938045501856823`*^9, 3.993804626476894*^9, { + 3.993804662912559*^9, 3.993804749238111*^9}, 3.993909602199831*^9, + 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993909909035789*^9, { + 3.993909955876047*^9, 3.9939099900975027`*^9}, 3.993911031270207*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"c924c6e9-1e41-4a59-8122-b95ec0fa8eb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"009ab160-d29c-4fbb-af5c-5af2e3867793"], + +Cell[BoxData[ + RowBox[{"-", "2.562307692307692`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993804550204549*^9, 3.9938046264931793`*^9, { + 3.993804662930933*^9, 3.993804749256987*^9}, 3.993909602217969*^9, + 3.993909669760494*^9, 3.99390975301192*^9, 3.993909909054161*^9, { + 3.99390995589108*^9, 3.993909990112661*^9}, 3.993911031277113*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"fcac8916-733c-41df-9e81-29ed9a2fc3af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"888dec56-9b31-43b8-bca8-ca214c829694"], + +Cell[BoxData["22.163907548137733`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993804550224925*^9, 3.993804626512244*^9, { + 3.993804662948985*^9, 3.993804749273611*^9}, 3.993909602237144*^9, + 3.99390966977844*^9, 3.993909753027061*^9, 3.993909909073007*^9, { + 3.9939099559075603`*^9, 3.993909990129081*^9}, 3.9939110312846737`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"2d9267dc-d08e-4a30-9868-ffed9febf7d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"dfebb301-6500-4e99-95e2-5b9d7c963c54"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.993804550242552*^9, 3.993804626529005*^9, { + 3.993804662966734*^9, 3.9938047492900057`*^9}, 3.993909602255596*^9, + 3.993909669800799*^9, 3.993909753041724*^9, 3.993909909091654*^9, { + 3.9939099559230347`*^9, 3.993909990146391*^9}, 3.993911031291934*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"11c0a0db-8d27-45a5-85f5-084f07b53c86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.653"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9938043992805843`*^9, 3.993804401771452*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"6ef3347f-d9ed-4453-b6ed-f52620bee676"], + +Cell[BoxData["1.653`"], "Output", + CellChangeTimes->{ + 3.993804550280451*^9, 3.993804626545594*^9, {3.993804662983712*^9, + 3.9938047493074627`*^9}, 3.9939096022742043`*^9, 3.99390966981877*^9, + 3.9939097530579777`*^9, 3.993909909111307*^9, {3.993909955941221*^9, + 3.993909990162526*^9}, 3.993911031298897*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"ce8304ce-752f-4655-82ba-628be66336dc"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849693382303*^9, - 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ -623392314869"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"29a241b3-543a-4ce2-a1d5-c5a27fecc3d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.855"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.9938044044051847`*^9, 3.993804405718573*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"bf6c91d1-0857-4cd3-a7f5-e0c26ab369e0"], + +Cell[BoxData["0.855`"], "Output", + CellChangeTimes->{ + 3.9938045503168097`*^9, 3.993804626574059*^9, {3.993804663013727*^9, + 3.993804749370492*^9}, 3.993909602333745*^9, 3.99390966987148*^9, + 3.9939097530831842`*^9, 3.993909909145574*^9, {3.993909955961776*^9, + 3.993909990180032*^9}, 3.993911031310495*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"3368a452-0cbf-4cd3-9155-876d92048fb1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"5697acba-0abe-4b0d-8b77-b2eaeb0d5d6f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.405"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9938044089096622`*^9, 3.993804410585486*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"6f22bb89-400a-44cc-990c-65e396c729ea"], + +Cell[BoxData["2.405`"], "Output", + CellChangeTimes->{ + 3.993804550350713*^9, 3.993804626598034*^9, {3.993804663037463*^9, + 3.993804749435276*^9}, 3.9939096023888474`*^9, 3.993909669925479*^9, + 3.9939097531059*^9, 3.993909909180294*^9, {3.9939099559820957`*^9, + 3.993909990196824*^9}, 3.993911031322105*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"4354744f-841e-4026-bdb7-104877571ee8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"39e6ef81-22ed-44c4-aa01-7e70c91f4f85"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.225"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993804414830567*^9, 3.993804416147113*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"068f809b-7336-439b-b221-c3a3afbfb05d"], + +Cell[BoxData["1.225`"], "Output", + CellChangeTimes->{ + 3.993804550383745*^9, 3.993804626621963*^9, {3.993804663060033*^9, + 3.9938047494929237`*^9}, 3.9939096024465313`*^9, 3.993909669980788*^9, + 3.993909753130068*^9, 3.993909909216509*^9, {3.993909956000244*^9, + 3.993909990213717*^9}, 3.9939110313336363`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"040d236b-0ac7-4f58-ba6a-10f19acec332"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"b0f6dd5b-0244-47a1-8982-f2543f4c74ec"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.63"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993804418872067*^9, + 3.9938044202542753`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"e63605c8-7a9c-4932-95b9-feef287ea3f5"], + +Cell[BoxData["1.63`"], "Output", + CellChangeTimes->{ + 3.993804550416999*^9, 3.993804626645709*^9, {3.9938046630845337`*^9, + 3.993804749547261*^9}, 3.993909602527773*^9, 3.993909670035091*^9, + 3.993909753153574*^9, 3.993909909250422*^9, {3.993909956017232*^9, + 3.993909990230207*^9}, 3.993911031350232*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"26713d3b-a0e9-42de-bef9-58ec4bd0adfa"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"2279d2a9-7106-4486-8329-d4486c4031bf"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.5571"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993804423858293*^9, + 3.993804426562767*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"8affe3a5-e61f-4e0f-b83d-56cc0298873f"], + +Cell[BoxData["0.5571`"], "Output", + CellChangeTimes->{ + 3.993804550449337*^9, 3.993804626671207*^9, {3.993804663115242*^9, + 3.993804749603999*^9}, 3.993909602589055*^9, 3.9939096700891027`*^9, + 3.993909753176607*^9, 3.993909909285474*^9, {3.9939099560344143`*^9, + 3.9939099902470818`*^9}, 3.993911031362883*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ce2b0790-219f-4c1b-9502-307e2bb93a3d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"192a3951-bad0-42ff-9da6-642b4a96d515"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938044301504927`*^9, + 3.993804433535384*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"88119282-66a1-48ab-a086-91abcd1621a0"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804550483719*^9, 3.993804626698537*^9, {3.993804663139299*^9, + 3.993804749658854*^9}, 3.993909602653262*^9, 3.993909670143072*^9, + 3.993909753199719*^9, 3.993909909346984*^9, {3.993909956051777*^9, + 3.9939099902633963`*^9}, 3.993911031374729*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"1d491a14-7be3-4d40-a92b-8984dcfc7323"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"1b459555-77c0-4677-91d5-79c385886979"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993804436228294*^9, 3.993804438250544*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"1796dadd-e5e4-48b1-bdd8-70302c49317a"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804550516501*^9, 3.993804626722493*^9, {3.9938046631629744`*^9, + 3.993804749712779*^9}, 3.9939096027072487`*^9, 3.993909670196845*^9, + 3.9939097532228928`*^9, 3.993909909381329*^9, {3.993909956068966*^9, + 3.993909990279929*^9}, 3.9939110313868837`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"8f9d4760-ccd0-4b61-b1e8-a43e0a6ff455"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"99887852-5f5a-4745-a28c-a0a85d0e03db"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"483d00c9-bf98-4bea-8e42-85ae4b485727"], + +Cell[BoxData[ + RowBox[{"-", "0.04675250913077061`"}]], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993804550599751*^9, 3.993804626769621*^9, { + 3.99380466321212*^9, 3.993804749779405*^9}, 3.993909602821623*^9, + 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993909909468431*^9, { + 3.9939099561101503`*^9, 3.993909990324842*^9}, 3.993911031471344*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"ab5d8042-5d88-43e5-bd86-81d303a87e8c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"122ddae3-f1fa-4a98-aa28-17fd48d356e5"], + +Cell[BoxData["0.08542989528290149`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9938045506724253`*^9, 3.993804626799774*^9, { + 3.993804663242297*^9, 3.993804749831417*^9}, 3.993909602850985*^9, + 3.993909670308428*^9, 3.99390975330634*^9, 3.993909909504902*^9, { + 3.993909956139316*^9, 3.993909990356688*^9}, 3.993911031503196*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"36c8182c-1bce-4693-b2c6-6787564e8e52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"d44712dc-ab84-4e32-b399-b4b8618cf2a7"], + +Cell[BoxData[ + RowBox[{"-", "92.97992176536582`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9938045506993027`*^9, 3.993804626828765*^9, { + 3.99380466327107*^9, 3.99380474985798*^9}, 3.993909602878909*^9, + 3.9939096703348618`*^9, 3.993909753333283*^9, 3.993909909537113*^9, { + 3.993909956164773*^9, 3.993909990381176*^9}, 3.9939110315323467`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"d11d43cc-2894-4a3b-9498-f17a6afa1edc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"cd35407c-fd0b-4037-b740-c156926deb50"], + +Cell[BoxData[ + RowBox[{"-", "58.84836946427625`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993804550730234*^9, 3.993804626860573*^9, { + 3.99380466335039*^9, 3.993804749888824*^9}, 3.9939096029089117`*^9, + 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939099095691557`*^9, { + 3.9939099561943274`*^9, 3.9939099904093027`*^9}, 3.9939110315667753`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"a7eec9a5-189f-4a68-bcb8-c50d0ec62bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"61ac09ec-c758-46d7-b168-0363520aef58"], + +Cell[BoxData[ + RowBox[{"-", "175.78557664639112`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993804550761911*^9, 3.993804626893774*^9, { + 3.993804663389638*^9, 3.993804749919907*^9}, 3.9939096029398603`*^9, + 3.993909670396442*^9, 3.993909753395891*^9, 3.9939099096076517`*^9, { + 3.9939099562247763`*^9, 3.9939099904381638`*^9}, 3.993911031600851*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b99889ec-3840-4657-b9a1-46ebb0d77d57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"7c7f3958-a963-46b0-b1bd-061976e534ea"], + +Cell[BoxData[ + RowBox[{"-", "221.57551938396955`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993804550797638*^9, 3.993804626930235*^9, { + 3.993804663472403*^9, 3.993804749955412*^9}, 3.993909602975071*^9, + 3.9939096704323187`*^9, 3.993909753433277*^9, 3.99390990964828*^9, { + 3.9939099562605953`*^9, 3.993909990472554*^9}, 3.9939110316439943`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"f33fae5e-7947-4590-b890-ca4dfb1031b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"14fbcab0-420b-4414-b082-c9dd58e65050"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9938045508194923`*^9, 3.993804626946419*^9, { + 3.993804663488306*^9, 3.993804749974567*^9}, 3.9939096029931*^9, + 3.993909670451165*^9, 3.9939097534481*^9, 3.993909909666844*^9, { + 3.993909956278285*^9, 3.9939099904879293`*^9}, 3.9939110316529217`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"2f584606-6846-4a7e-b62e-a24b07545449"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"13f61e08-8407-44a3-bf8e-fb2a10ec2892"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993804550838839*^9, 3.99380462696198*^9, { + 3.993804663542288*^9, 3.993804749990815*^9}, 3.9939096030110683`*^9, + 3.993909670469376*^9, 3.993909753462414*^9, 3.9939099096844893`*^9, { + 3.993909956293055*^9, 3.993909990503254*^9}, 3.993911031661001*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"28b914c3-0d18-4f22-9e4d-95a37ade9253"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"e7d0ea19-0356-41c2-9c45-7330bb3d35f6"], + +Cell[BoxData["111.7060296377673`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9938045508585377`*^9, 3.993804626991984*^9, { + 3.993804663557494*^9, 3.9938047500074787`*^9}, 3.99390960303067*^9, + 3.993909670487976*^9, 3.993909753477995*^9, 3.9939099097033167`*^9, { + 3.993909956309827*^9, 3.993909990518099*^9}, 3.993911031669442*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"34671313-99de-4910-919b-26092aaa370b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"57f67f6f-6cce-454f-9651-289e457989a3"], + +Cell[BoxData[ + RowBox[{"-", "116.92037152462031`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993804550878648*^9, 3.993804627006651*^9, { + 3.99380466357337*^9, 3.993804750023952*^9}, 3.993909603048832*^9, + 3.993909670506846*^9, 3.99390975349363*^9, 3.993909909722876*^9, { + 3.9939099563244467`*^9, 3.993909990532846*^9}, 3.993911031677953*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"f109b3bb-dfe9-48fb-9aae-cc08ff63cf4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"c1320b1d-aab6-49e6-b5c5-502bf43ae668"], + +Cell[BoxData["187.12903971509587`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9938045509027987`*^9, 3.993804627020084*^9, { + 3.993804663589897*^9, 3.993804750040456*^9}, 3.9939096030676117`*^9, + 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993909909741909*^9, { + 3.993909956339319*^9, 3.9939099905477867`*^9}, 3.993911031687729*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"9ec1aab5-cc0f-4d93-8e96-c38c56f0b2b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"3f8f4d25-277c-499c-80ab-b6491f619ce8"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9938045509220467`*^9, 3.993804627033495*^9, { + 3.993804663606344*^9, 3.9938047500576067`*^9}, 3.993909603085306*^9, + 3.993909670543174*^9, 3.993909753523663*^9, 3.9939099097598248`*^9, { + 3.993909956353833*^9, 3.993909990562546*^9}, 3.993911031696395*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"7d503d63-4f13-4189-9364-9321a33b66a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"7722cfbf-7b9b-4ce4-89ca-6267a54323e1"], + +Cell[BoxData[ + RowBox[{"-", "0.056142152983087`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993804550940889*^9, 3.993804627047104*^9, { + 3.99380466362283*^9, 3.993804750074596*^9}, 3.993909603103224*^9, + 3.993909670561534*^9, 3.993909753539481*^9, 3.993909909777351*^9, { + 3.9939099563684807`*^9, 3.993909990577075*^9}, 3.993911031704919*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"732d0118-5f1d-486f-9e99-438ea637680a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"9de4afab-0f51-4b89-9e67-72254e39e308"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.99380455096201*^9, 3.993804627060543*^9, { + 3.9938046636401176`*^9, 3.9938047500897923`*^9}, 3.993909603121352*^9, + 3.993909670579809*^9, 3.993909753557192*^9, 3.9939099097958403`*^9, { + 3.99390995638293*^9, 3.9939099905920963`*^9}, 3.993911031713554*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"acd4211b-a1f2-47b3-ad7d-97be3addaa9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"1a3ccdfc-143c-4b78-b493-b61df2ba7fde"], + +Cell[BoxData["0.5841645161809887`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.993804550980524*^9, 3.9938046270751667`*^9, { + 3.993804663656624*^9, 3.993804750107565*^9}, 3.993909603139456*^9, + 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993909909812099*^9, { + 3.993909956397331*^9, 3.9939099906069927`*^9}, 3.993911031725177*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"c52b8b75-7951-46f5-8765-941a7861bf11"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"adb007b0-c990-4f41-9753-b89b742a90db"], + +Cell[BoxData["2.5173601133375656`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993804550999857*^9, 3.993804627093104*^9, { + 3.993804663673789*^9, 3.993804750123993*^9}, 3.993909603159047*^9, + 3.9939096706237583`*^9, 3.993909753618161*^9, 3.993909909815946*^9, { + 3.993909956411661*^9, 3.993909990622797*^9}, 3.993911031773446*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"f387fffa-3cf8-4e26-b094-9e5958637fc6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"54f40ed1-5e5e-47c7-9ee6-89992d3fa4b5"], + +Cell[BoxData["1.5234450434796134`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993804551018916*^9, 3.993804627108033*^9, { + 3.993804663692298*^9, 3.993804750140585*^9}, 3.99390960317778*^9, + 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993909909844212*^9, { + 3.993909956428871*^9, 3.993909990639729*^9}, 3.9939110317821712`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"4469fb05-39b5-4f59-9093-9e4cb5603ed9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"5bdf14d4-4304-4664-a202-29a4639e0b38"], + +Cell[BoxData[ + RowBox[{"-", "18.177896388526342`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993804551037992*^9, 3.993804627123701*^9, { + 3.993804663711438*^9, 3.993804750156764*^9}, 3.993909603196027*^9, + 3.993909670663684*^9, 3.99390975365348*^9, 3.993909909862356*^9, { + 3.993909956443829*^9, 3.993909990654669*^9}, 3.993911031791176*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"e132d07a-8582-431e-b733-47d9cec78c41"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"d217019b-f2f3-49ab-a82a-7502c0d0e474"], + +Cell[BoxData[ + RowBox[{"-", "4.422931821128753`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.99380455105733*^9, 3.993804627139119*^9, { + 3.993804663729148*^9, 3.993804750173326*^9}, 3.993909603216249*^9, + 3.993909670683181*^9, 3.993909753671298*^9, 3.993909909877062*^9, { + 3.993909956460279*^9, 3.993909990669105*^9}, 3.993911031803832*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"74d38fc5-9b71-4718-951c-fc969864de19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"92d76e6c-6ca4-4acd-834f-6566f79e20fb"], + +Cell[BoxData["93.52813324924097`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.9938045510774317`*^9, 3.993804627154879*^9, { + 3.993804663746785*^9, 3.993804750189831*^9}, 3.993909603237997*^9, + 3.99390967070298*^9, 3.993909753690928*^9, 3.993909909892799*^9, { + 3.9939099564827127`*^9, 3.993909990683666*^9}, 3.993911031816975*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"a0aa4d37-79ce-4975-bc44-4ba6ab20e053"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"c1e4f9d5-dc68-4b9c-b28e-dff39597c916"], + +Cell[BoxData[ + RowBox[{"-", "116.92037152462031`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993804551098919*^9, 3.99380462716993*^9, { + 3.99380466376478*^9, 3.993804750205999*^9}, 3.9939096032579308`*^9, + 3.99390967072291*^9, 3.993909753708663*^9, 3.993909909912747*^9, { + 3.9939099564995337`*^9, 3.993909990698875*^9}, 3.993911031823683*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"ff3c5de5-d973-4e0f-a53c-354395350994"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"6de00208-d600-4898-bb8c-41eef3f29edb"], + +Cell[BoxData["182.70610789396713`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993804551121139*^9, 3.993804627185237*^9, { + 3.9938046637699213`*^9, 3.993804750221984*^9}, 3.993909603279203*^9, + 3.993909670743991*^9, 3.993909753728705*^9, 3.993909909930686*^9, { + 3.993909956518093*^9, 3.9939099907215357`*^9}, 3.9939110318351507`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"426a8b66-365d-487d-81f1-4d86ed296c43"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"4c93efa1-fcb3-486b-8cef-3839dcac974a"], + +Cell[BoxData["150.0362849602646`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9938045511434107`*^9, 3.993804627199387*^9, { + 3.9938046637889233`*^9, 3.993804750238797*^9}, 3.993909603297597*^9, + 3.993909670763399*^9, 3.993909753746546*^9, 3.993909909946938*^9, { + 3.99390995653423*^9, 3.993909990735869*^9}, 3.99391103184453*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"ff345a12-90da-491a-81d0-17e27c667d40"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"ca5acf42-4edd-4671-8b25-b6e9bf7d3784"], + +Cell[BoxData["845.8339546196385`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993804551165799*^9, 3.993804627215629*^9, { + 3.9938046638111277`*^9, 3.993804750255252*^9}, 3.993909603318231*^9, + 3.993909670782775*^9, 3.993909753763286*^9, 3.993909909962928*^9, { + 3.9939099565492992`*^9, 3.993909990750906*^9}, 3.993911031853734*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"16a94dd1-f6c2-4e84-95af-3e7d21bb9a50"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.87134"}]], "Input", + CellChangeTimes->{ + 3.9918496921150837`*^9, {3.9939108321360188`*^9, 3.993910836720933*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], + +Cell[BoxData["0.87134`"], "Output", + CellChangeTimes->{3.9939110318625507`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"cdd551bb-2c4f-49a6-9880-15c68083b367"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918496892276516`*^9, 3.9918496892324924`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.60727"}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9, {3.9939108388269653`*^9, 3.993910845908474*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], + +Cell[BoxData["0.60727`"], "Output", + CellChangeTimes->{3.9939110318768597`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"e0472527-418d-49bf-8d31-0cfa8cd71397"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, 3.991849693386299*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ @@ -84,13 +4945,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[316]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], + CellLabel->"In[75]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.991339230528511*^9}, - CellLabel-> - "Out[316]=",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[BoxData["3.0421649672677`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.9939110318921013`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"8a6858ff-0606-4ff7-8486-e36c0e8eb411"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4983,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ -67189aa511ad"], + CellChangeTimes->{3.991557615205345*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[BoxData["2.192147584896785`*^-54"], "Output", - CellChangeTimes->{3.991339230554512*^9}, - CellLabel-> - "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[BoxData["1.9400000176319233`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.993911031900823*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"d814fe75-a09d-4e11-b179-483da2cfb214"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +5021,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557618917984*^9, - 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ -5f01117db38b"], + CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[BoxData["3.508823705223133`*^-54"], "Output", - CellChangeTimes->{3.9913392305796223`*^9}, - CellLabel-> - "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[BoxData["2.934718696466954`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.993911031911641*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"2e0fe99b-30a4-45f5-ba99-c99959c1c9c3"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +5049,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + CellLabel->"In[78]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[BoxData["44.37747929594205`"], "Output", - CellChangeTimes->{3.9913392305906105`*^9}, - CellLabel-> - "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[BoxData["38.8429193316109`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.9939110319211197`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"1cb41384-3006-4767-982d-ae8b89066976"] }, Open ]], Cell[CellGroupData[{ @@ -226,13 +5079,11 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", - CellLabel-> - "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + CellLabel->"In[79]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[BoxData["102.55835649176893`"], "Output", - CellChangeTimes->{3.99133923061561*^9}, - CellLabel-> - "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[BoxData["82.08016255509085`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.993911031929685*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"d78fdcee-2cfc-4303-8335-0fd2ef70bfc3"] }, Open ]], Cell[CellGroupData[{ @@ -241,13 +5092,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + CellLabel->"In[80]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[BoxData["0.5630879721742558`"], "Output", - CellChangeTimes->{3.9913392306426105`*^9}, - CellLabel-> - "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[BoxData["1.9653604831506049`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.993911031938208*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"b026cf38-b7b8-4501-ab7f-0dbd44353bfc"] }, Open ]], Cell[CellGroupData[{ @@ -256,13 +5105,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + CellLabel->"In[81]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[BoxData["1.956498159343112`"], "Output", - CellChangeTimes->{3.99133923065361*^9}, - CellLabel-> - "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[BoxData["3.2101361599425497`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.993911031946712*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"2e414c6a-9245-40d4-a9fe-84fe1e735db8"] }, Open ]], Cell[CellGroupData[{ @@ -271,13 +5118,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + CellLabel->"In[82]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[BoxData["200.65523570140064`"], "Output", - CellChangeTimes->{3.9913392306776104`*^9}, - CellLabel-> - "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[BoxData["263.4884978320596`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.9939110319553328`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"a0d75053-7572-41e2-8099-b89af26a78cf"] }, Open ]], Cell[CellGroupData[{ @@ -286,13 +5131,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + CellLabel->"In[83]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[BoxData["24.98842482695703`"], "Output", - CellChangeTimes->{3.991339230703802*^9}, - CellLabel-> - "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[BoxData["76.34033870455477`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.993911031963758*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"34c2203a-b771-478c-90b1-41187efe24c7"] }, Open ]], Cell[CellGroupData[{ @@ -481,13 +5324,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + CellLabel->"In[84]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[BoxData["0.01829601703069907`"], "Output", - CellChangeTimes->{3.9913392307297993`*^9}, - CellLabel-> - "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[BoxData["0.0038205883000502396`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.993911031974937*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"a0fcc521-fc43-40a6-8ed8-a424571dc745"] }, Open ]], Cell[CellGroupData[{ @@ -500,13 +5341,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + CellLabel->"In[85]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.991339230837267*^9}, - CellLabel-> - "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[BoxData["14.337710926184645`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.9939110321544647`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"b84483d3-a6ec-4d29-b5fb-bfdfc00451d1"] }, Open ]], Cell[CellGroupData[{ @@ -697,13 +5536,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + CellLabel->"In[86]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[BoxData["0.00990105610750653`"], "Output", - CellChangeTimes->{3.9913392308522797`*^9}, - CellLabel-> - "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[BoxData["0.0120214347505462`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.993911032167016*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"17b0830e-3630-4b7f-827c-903b94314390"] }, Open ]], Cell[CellGroupData[{ @@ -716,13 +5553,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + CellLabel->"In[87]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[BoxData["8.906440683949702`"], "Output", - CellChangeTimes->{3.991339230966341*^9}, - CellLabel-> - "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[BoxData["8.082892240661026`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.9939110322348948`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"2c60b766-e108-4710-b2a3-501f33940c81"] }, Open ]], Cell[CellGroupData[{ @@ -814,13 +5649,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + CellLabel->"In[88]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991339230988348*^9}, - CellLabel-> - "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[BoxData["0.16117107469700653`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.9939110322450323`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"fe12ee96-1c6c-4f48-93e5-eba776340c7d"] }, Open ]], Cell[CellGroupData[{ @@ -909,13 +5742,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + CellLabel->"In[89]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991339231030445*^9}, - CellLabel-> - "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[BoxData["0.8388289253029935`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.993911032254189*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"4ccba655-94e7-40ff-a960-16fbbdb6a445"] }, Open ]], Cell[CellGroupData[{ @@ -1037,19 +5868,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + CellLabel->"In[90]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991339231060343*^9}, - CellLabel-> - "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +Cell[BoxData["0.13519495937801848`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.993911032263377*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"a7d2f4bd-26bb-4ef0-b6c0-0f18a5fee25f"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ -e24d-bdc4-544ea2d2fbd9"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ @@ -1110,68 +5939,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918497046469917`*^9},ExpressionUUID->"574b810b-aa4a-d545-b080-\ -c44fbe83a713"], + CellChangeTimes->{3.9918497046469917`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 332, 325, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310873375`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1744920617229244`*^-216\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 92, 1, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.99391103228942*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +In[92]:=",ExpressionUUID->"2e480117-234a-4b0e-8bee-e846b19f11de"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 332, 326, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310973415`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3008166932115039`*^-221\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 92, 2, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.9939110322946663`*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +In[92]:=",ExpressionUUID->"acb9f11a-c207-47ea-b1fd-98d10322f481"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 332, 327, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339231105339*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.330377384592761`*^-227\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 3, + 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.9939110322995443`*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +In[92]:=",ExpressionUUID->"69fe479a-007e-4376-811c-dfeeba7a59ac"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392311143417`*^9}, +during this calculation.\"", 2, 92, 4, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.99391103230418*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +In[92]:=",ExpressionUUID->"5240c7a7-543f-4215-89f9-de3bbb27fdf3"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.9913392346332226`*^9}, - CellLabel-> - "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[BoxData["14.337710926184627`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.993911034781555*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"2d7832ef-5537-4cc5-9df1-57829e79d99d"] }, Open ]], Cell[CellGroupData[{ @@ -1233,68 +6064,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849710877041*^9},ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-\ -656c90598e75"], + CellChangeTimes->{3.991849710877041*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 333, 329, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234667631*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1744920617229244`*^-216\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 5, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.993911034903496*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +In[93]:=",ExpressionUUID->"80e8e632-6d0a-4b60-b703-740dbcb469d9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 333, 330, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234676628*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3008166932115039`*^-221\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 6, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.9939110349089823`*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +In[93]:=",ExpressionUUID->"a1e53603-b354-48da-bbbd-a04fe007ba5a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 333, 331, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234685627*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.330377384592761`*^-227\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 7, + 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.993911034914789*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +In[93]:=",ExpressionUUID->"815c6c78-ca11-4799-ba16-b16dd694af4b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133923469363*^9}, +during this calculation.\"", 2, 93, 8, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.993911034920588*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +In[93]:=",ExpressionUUID->"af2434fa-97e4-49b8-97b6-53d09085c311"], -Cell[BoxData["8.906440683949707`"], "Output", - CellChangeTimes->{3.99133923819088*^9}, - CellLabel-> - "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[BoxData["8.082892240661025`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.993911037528841*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"7fd2f7c1-5e15-41cc-a4e6-56d57ec5219b"] }, Open ]], Cell[CellGroupData[{ @@ -1350,92 +6183,91 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849713921898*^9},ExpressionUUID->"9c540ba7-8bb4-ef46-919c-\ -62296271f174"], + CellChangeTimes->{3.991849713921898*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0VVscB3BDJFKGongkY1cRrjnZP64kU4gyRLrDISFT3jVEZeiV8iQV +71VEIqEoDWikCUmkQY/QuabMQ/ck5W1/nHXWZ+2zvr89r3XWMg+4cYQEBAR6 +8bPwDm/W1brb0myZdf3MT101ElmOXjFi2pSie4v09Ddid+caZ6nb1CLGfsHW +BbuwX4supT9DubzFXXrYFdzEOhGbJnQsgeFhgH38+arHiSVvkfiW2yaG2Pdb +wi/NGbQjR0fvFGPsoY6G+Jiaj0iq1MjSDFuBp+bznfEfkj9sy7TAdhiLN4ts ++oLODZycQNgP54YkuCU9SFB8yTAD+/0R+bg7oV+RlGSNqx32qKjN0LQBDz1S +LlB1whY9GeZF5/eh4LAnfm7YytIXX4bXDKAKEzlRT2xnxe9XRxnDqECGfY6N +TeSpyumIjSKRIt/E/diJGttT9jeNIaPK9LYI7I/y7/SjSibQEd/sB0ex2d5B ++86cnEQxeeE70rDHLwhcrgydQip5Se5Z2GKqOlITBjMo2H5HdhF2Frtuq9TK +78i2WvpzBbZKkVfiRv53ZBIufrwW23RD6mhIDYX4IaWabdiBxl+ahhhzaKbw +UaCIOommuQcXiWv+Qll0XxFZ7MM1EhY0sd9oYMhUci12NpheD2iaRxary/ws +sdmFL20iSgThmkmOWAJ2yfMz3UcUhSDmrul8OvZ4v1/86ZNC0O6huDcPO157 +5tbNUGHIv19K1GNn3VirNmYgAm55K2KkNUjU0TL88HeBCAC355UGtsrkXe9l +K0Uh+SA/xRy71NA5U4cvCsOGQsDBrr8fKxhcIwY3xa7XPMKeqWv7MsBYCv2r +FFr/0iSRjONSqbiHSyGIUa56FVvvnQ1ImknCBWbwRB12EFmVp6+7DDqUgpcI +apEoTKhJb/NSKRCk5asdweaplk+kfJeGjDkQylmH54doWPKGLgONDJrxQ2yh +631rV4XLwKYi94Gv2Cr0NW4l32SA7Ih7oUcjkTcjo7K5WxbeDlqGt2C/YUVE +yjeuBHaudZTWehJ1FaWn+YvJAfPO5lPu2MPfSgqubZEDq+//qB/FFo/62rbp +sRwoHk1u7sK2SXY39K+ShxkJ1+WXNpCo+orxTHHuaohmvLY11CXRFd5stHmU +EqQGhV96pE8iO49jXZFlShAo/jOWwh6ul7Ut61OCaY3ZZ/oGJDK8smGlipcy +vNJmFhVi1zP9bolYroEXXYrZmXQSTY51/zmQpAJ9Sp70I0Ykkg2xuX3LSRXU +/UaZFWYk6rsiHugSpArIVFiWwr73X4viSKoqBH3s1kfmJNrt6Juk+VgVyuYE +a5uxr6yPdssxUIOqVzpCU5tw/aGi8QR5dYg/88rTxZJE7gESOvY9GjAsNmTj +xyARivYw2PVLA9pOuGlXYGun5JqwV2tCjuT52EU2JBIooFsnuGpC5rInPqXY +ZV0+uyqfaEJU+bSKoC0+nztLjyjka0EH7dn9h3a4fzZO74eYNOhqM9x8wplE +BTvOf+Yn0IBuWJk8hJ3O7Ole9C8NsiXiTBy24/19+OA35TYa3FH83SXpQiLp +2osCOxjaoJVCN852xfuHPqpdo7YelKvviD1xJ5Gi6t+JaeQGSJ1+5cXyIVHt +iWnaDyEd+GfLCKsDe/eU1ztirQ7kT/QPu+4m0aV6dZq1nw78IRYTZ+1LItWA +6lbqgw64qBSk0fbg8ZbyNIhGXaD+HI9fziKRkqIyoeKlByX5Xo3m+0m0oTBq +6U9kAE/3xgRKHSIRk500o+NsAEvaReEidrZaZpf/bgMY6PI/pp1AIuH8Gzef +cw3g6u0Mjm0iPm+XhtwzKwzAziLWP+kIvk+z/S/S1OjwMNHTQyYVr2+ao66n +qCEE+eizkv8m0eUIdZeqJiMIiWvyqS4gUUs0MkkuNIOR41ci89pJtNav3dk3 +eDOkvln3+f0yHuLM3ylXigG45v9C6IYDD8l/u7dYnmkNs+tS+36c5aEousV/ +mdo2MGao99PxKw8xR+Zeyg5tAY+U9MQa4z5UZh25OPfNViCC3ILncvrQlemg +J6VZ28DQ9ecv6ncfoqxWva5PdADRqPK05wf7UaeA8ETPXiewL1kUsXy6H4X+ +cSDjiNp2mObVFV2OGEDl+14+PpviApFJX01vigyi2KnV/PX7XKFD+rWebfYg +mrG33flijxsYmoQ77bMaQmY+p614rjvg+dvmibmJIdS6+mJQPd0dWl2exGvl +fUMKV5Nqi9d5gEVZYqJ1wDC6163t6Cy5EwwaHpB3tUeQ8rvxgOiRnWBtm3pP +fWoE0c+eLi3o3gXiEhaVWu9H0cVFU7qZdZ7QW7JTPK9yDN2x2tiRct8LhP8d +O2TkMY6yTU5Iz5V4w3ERntN06zh687kwlX7SB8Ksnt464jCBqpwuqIcd3g3c +h8neNm8n0ETIDoFQti/oayT7MF0m0YwtLXCU4Qd1yqw/uM2TqHjkExVpvAf+ +LVnxTdFzCnleLmT5LvWHriQx7wMfp9CtSoc9wsf8IZ9g1fowp5GZYuuP4z/8 +wd2rccNY9zRS6w7oeLtvL6xrPDf9yWsGkRL7t1/4uhc6Dt/00vw4g1rSnVlb +PZjwV9X2Ln277yiLmytxsIUJJ2ZFG5rvf0e1D+d/sLaxQNju9/SvNXy0fDcc +o1ez4FSxgHjFQT4y8x8tTjFkQ+p8SWnbcz66mjMe6WzMhrcSYh8GX/DRirZJ +S3lTNry/9cJm/iUfjW7hvyvexIYCX+6gViMf3y8Cgk3WbEjXHXQJe8NHy/jS +XjKubLBtf8Xs/MBH5CmjJbkhbGiIqhnTHOCj9Jr4ffeussGECFy+X5RCIQbn +zbjFbHAdH6tzWEwhx2sVS0xL2GBpE1W1XoxC4uf7rt0tY0O7Vbnz4BIKpUS4 +DN25zQbW1ZPuPpIUiqep7696yobH49lJCisoFHS+Mbiyiw2OctLqi9ZSaNuy +PouIbja48bMVm7DXpQhIGvSyoc8E2Z9RpVBfhFFZBY8NIaFGjmvUKbTXOXfk +5jAbEmr5nTpaFPIUiQy9MYvrj7fKaOhQaGukQlipHAc+Z7D+iTWl0NPcVPvM +VRxoUHg9bGJGIYumSXWuAgc23z3jOI2tp9H4iaHMgfi0MHrQJgqt/hDH+KzB +AbFUgRx7Swp9M++UEzfC7f/MZ3cyKPS3UN6DgB0cMHprquHgjMe/cWm2kwcH +BmplXwxiJ/twI+i7ODCclhR2bDuFuLddtOa9OZC+NubTIxfcf0Lw9DkmBy6Z +6Myr76AQvYHJfhbOgdJdstGPd1How2kNCbUMnL+qX3CTP4XKkWTgwGkOCFh7 +N1dgJ49M15ed4YB5lMdDrb0UMthWn2B6HtenHxSTZlIoXYA16XSJAwp8X+tP +LArZHsj7xC3lwD1WjhEEUEhJ6S9jy3IOBB3/qXMNe7rhwBnhmxxg3Laykw6k +UL4mckq/xQElqVW9Xdi/OjsfF1RzoOjjtuIDQRS67ahY3PySA9rebkEBIRRK +mxUSyWrggLBZ78Gn2Mziob1eTRw468y7/EcohaQWVSuSbzig+3vMuxk7uMbz +7x/vOVA40+ysFUYhNe1z0eo8Dsy+U9hwI4JCsx8OtQ32cSAj0sVoDrslhaN3 +YwCvX3Str10khRJ6DIfMhvF8FIxJdGF3ZLf5bp/iwBqy/fPvKAplLpbeEitI +QNTiIXO5PylUO9npEyVMwJMi48jd2P2dJRGhIgT09ihkXsa2uG2Tx1xCQH+O +Z9I6Lt5v/tyf9tIEFB44rE+Lwf133CKzRZaAFVN+FwjsTSYyNLSSAD/CfCQf +O0OydCd9NQHtY3mwKha3V3+pUFxLwGyqY+kMNlFY+nKlGgH5FnpbtOPw9xkx +X5ZrEBA3d6LOF7uPkJVcRCPA/ENg2JOFdtmtgcN6BCzm6R6Pi6dQ9W/ZxD4D +AhIy9B2LsHmD3We7DQlI3mQ+/Rbb/HFs3TtTAoJg/ZTaIQqRweXKD4CAs9qW +16uxl3nGGd21JuBDmcrZTmwzhp1jhQ0BMSvKWPPY6at7YwrtCJi8+285SqDw +f8eNjFx77P+GtP2wv47FFeU4EpBd9SAtDtv0+cr2Uy4EtI42zlZiMyt6vx1z +I0D543ex19inLtwQOuqO66cm/+Rh90Zs04v2JMCgt+TUikQKSfrJbQ3zJoC4 +b6SjjW267atv0G4CyGuLKyyxT605lObnT4DPq0AOG/ueuH2+J5MA+/rhswex +e2fk7ruxCYgIu1ySspDX8/WNI4HnR/RoQdZCXtPNPttAAriyJw7nYzPvHvoF +QQQUc6usbizk59uv2BRMwKP9Av3VC/mn5NcbhRJwMzog7NlCPpe02hhGQPef +/Z3N2EvZFZ60CAJE8g9t/IBtsj3hgFoUARvjtThdC/nmDqlK0QS09PQmkNgn +NVZdlOcS8FSoPH4Q+44U75Z0LAHAOuY3gt3zs6JBIp6A0c8h6uML+f0JPSIJ +BFTn+DdPYBu3OlDziQTIKe/ZPYn9P73HqE4= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1449,104 +6281,103 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV13k0VVscB3BDJFKGongkY1cRrjnZP64kU4gyRLrDISFT3jVEZeiV8iQV +71VEIqEoDWikCUmkQY/QuabMQ/ck5W1/nHXWZ+2zvr89r3XWMg+4cYQEBAR6 +8bPwDm/W1brb0myZdf3MT101ElmOXjFi2pSie4v09Ddid+caZ6nb1CLGfsHW +BbuwX4supT9DubzFXXrYFdzEOhGbJnQsgeFhgH38+arHiSVvkfiW2yaG2Pdb +wi/NGbQjR0fvFGPsoY6G+Jiaj0iq1MjSDFuBp+bznfEfkj9sy7TAdhiLN4ts ++oLODZycQNgP54YkuCU9SFB8yTAD+/0R+bg7oV+RlGSNqx32qKjN0LQBDz1S +LlB1whY9GeZF5/eh4LAnfm7YytIXX4bXDKAKEzlRT2xnxe9XRxnDqECGfY6N +TeSpyumIjSKRIt/E/diJGttT9jeNIaPK9LYI7I/y7/SjSibQEd/sB0ex2d5B ++86cnEQxeeE70rDHLwhcrgydQip5Se5Z2GKqOlITBjMo2H5HdhF2Frtuq9TK +78i2WvpzBbZKkVfiRv53ZBIufrwW23RD6mhIDYX4IaWabdiBxl+ahhhzaKbw +UaCIOommuQcXiWv+Qll0XxFZ7MM1EhY0sd9oYMhUci12NpheD2iaRxary/ws +sdmFL20iSgThmkmOWAJ2yfMz3UcUhSDmrul8OvZ4v1/86ZNC0O6huDcPO157 +5tbNUGHIv19K1GNn3VirNmYgAm55K2KkNUjU0TL88HeBCAC355UGtsrkXe9l +K0Uh+SA/xRy71NA5U4cvCsOGQsDBrr8fKxhcIwY3xa7XPMKeqWv7MsBYCv2r +FFr/0iSRjONSqbiHSyGIUa56FVvvnQ1ImknCBWbwRB12EFmVp6+7DDqUgpcI +apEoTKhJb/NSKRCk5asdweaplk+kfJeGjDkQylmH54doWPKGLgONDJrxQ2yh +631rV4XLwKYi94Gv2Cr0NW4l32SA7Ih7oUcjkTcjo7K5WxbeDlqGt2C/YUVE +yjeuBHaudZTWehJ1FaWn+YvJAfPO5lPu2MPfSgqubZEDq+//qB/FFo/62rbp +sRwoHk1u7sK2SXY39K+ShxkJ1+WXNpCo+orxTHHuaohmvLY11CXRFd5stHmU +EqQGhV96pE8iO49jXZFlShAo/jOWwh6ul7Ut61OCaY3ZZ/oGJDK8smGlipcy +vNJmFhVi1zP9bolYroEXXYrZmXQSTY51/zmQpAJ9Sp70I0Ykkg2xuX3LSRXU +/UaZFWYk6rsiHugSpArIVFiWwr73X4viSKoqBH3s1kfmJNrt6Juk+VgVyuYE +a5uxr6yPdssxUIOqVzpCU5tw/aGi8QR5dYg/88rTxZJE7gESOvY9GjAsNmTj +xyARivYw2PVLA9pOuGlXYGun5JqwV2tCjuT52EU2JBIooFsnuGpC5rInPqXY +ZV0+uyqfaEJU+bSKoC0+nztLjyjka0EH7dn9h3a4fzZO74eYNOhqM9x8wplE +BTvOf+Yn0IBuWJk8hJ3O7Ole9C8NsiXiTBy24/19+OA35TYa3FH83SXpQiLp +2osCOxjaoJVCN852xfuHPqpdo7YelKvviD1xJ5Gi6t+JaeQGSJ1+5cXyIVHt +iWnaDyEd+GfLCKsDe/eU1ztirQ7kT/QPu+4m0aV6dZq1nw78IRYTZ+1LItWA +6lbqgw64qBSk0fbg8ZbyNIhGXaD+HI9fziKRkqIyoeKlByX5Xo3m+0m0oTBq +6U9kAE/3xgRKHSIRk500o+NsAEvaReEidrZaZpf/bgMY6PI/pp1AIuH8Gzef +cw3g6u0Mjm0iPm+XhtwzKwzAziLWP+kIvk+z/S/S1OjwMNHTQyYVr2+ao66n +qCEE+eizkv8m0eUIdZeqJiMIiWvyqS4gUUs0MkkuNIOR41ci89pJtNav3dk3 +eDOkvln3+f0yHuLM3ylXigG45v9C6IYDD8l/u7dYnmkNs+tS+36c5aEousV/ +mdo2MGao99PxKw8xR+Zeyg5tAY+U9MQa4z5UZh25OPfNViCC3ILncvrQlemg +J6VZ28DQ9ecv6ncfoqxWva5PdADRqPK05wf7UaeA8ETPXiewL1kUsXy6H4X+ +cSDjiNp2mObVFV2OGEDl+14+PpviApFJX01vigyi2KnV/PX7XKFD+rWebfYg +mrG33flijxsYmoQ77bMaQmY+p614rjvg+dvmibmJIdS6+mJQPd0dWl2exGvl +fUMKV5Nqi9d5gEVZYqJ1wDC6163t6Cy5EwwaHpB3tUeQ8rvxgOiRnWBtm3pP +fWoE0c+eLi3o3gXiEhaVWu9H0cVFU7qZdZ7QW7JTPK9yDN2x2tiRct8LhP8d +O2TkMY6yTU5Iz5V4w3ERntN06zh687kwlX7SB8Ksnt464jCBqpwuqIcd3g3c +h8neNm8n0ETIDoFQti/oayT7MF0m0YwtLXCU4Qd1yqw/uM2TqHjkExVpvAf+ +LVnxTdFzCnleLmT5LvWHriQx7wMfp9CtSoc9wsf8IZ9g1fowp5GZYuuP4z/8 +wd2rccNY9zRS6w7oeLtvL6xrPDf9yWsGkRL7t1/4uhc6Dt/00vw4g1rSnVlb +PZjwV9X2Ln277yiLmytxsIUJJ2ZFG5rvf0e1D+d/sLaxQNju9/SvNXy0fDcc +o1ez4FSxgHjFQT4y8x8tTjFkQ+p8SWnbcz66mjMe6WzMhrcSYh8GX/DRirZJ +S3lTNry/9cJm/iUfjW7hvyvexIYCX+6gViMf3y8Cgk3WbEjXHXQJe8NHy/jS +XjKubLBtf8Xs/MBH5CmjJbkhbGiIqhnTHOCj9Jr4ffeussGECFy+X5RCIQbn +zbjFbHAdH6tzWEwhx2sVS0xL2GBpE1W1XoxC4uf7rt0tY0O7Vbnz4BIKpUS4 +DN25zQbW1ZPuPpIUiqep7696yobH49lJCisoFHS+Mbiyiw2OctLqi9ZSaNuy +PouIbja48bMVm7DXpQhIGvSyoc8E2Z9RpVBfhFFZBY8NIaFGjmvUKbTXOXfk +5jAbEmr5nTpaFPIUiQy9MYvrj7fKaOhQaGukQlipHAc+Z7D+iTWl0NPcVPvM +VRxoUHg9bGJGIYumSXWuAgc23z3jOI2tp9H4iaHMgfi0MHrQJgqt/hDH+KzB +AbFUgRx7Swp9M++UEzfC7f/MZ3cyKPS3UN6DgB0cMHprquHgjMe/cWm2kwcH +BmplXwxiJ/twI+i7ODCclhR2bDuFuLddtOa9OZC+NubTIxfcf0Lw9DkmBy6Z +6Myr76AQvYHJfhbOgdJdstGPd1How2kNCbUMnL+qX3CTP4XKkWTgwGkOCFh7 +N1dgJ49M15ed4YB5lMdDrb0UMthWn2B6HtenHxSTZlIoXYA16XSJAwp8X+tP +LArZHsj7xC3lwD1WjhEEUEhJ6S9jy3IOBB3/qXMNe7rhwBnhmxxg3Laykw6k +UL4mckq/xQElqVW9Xdi/OjsfF1RzoOjjtuIDQRS67ahY3PySA9rebkEBIRRK +mxUSyWrggLBZ78Gn2Mziob1eTRw468y7/EcohaQWVSuSbzig+3vMuxk7uMbz +7x/vOVA40+ysFUYhNe1z0eo8Dsy+U9hwI4JCsx8OtQ32cSAj0sVoDrslhaN3 +YwCvX3Str10khRJ6DIfMhvF8FIxJdGF3ZLf5bp/iwBqy/fPvKAplLpbeEitI +QNTiIXO5PylUO9npEyVMwJMi48jd2P2dJRGhIgT09ihkXsa2uG2Tx1xCQH+O +Z9I6Lt5v/tyf9tIEFB44rE+Lwf133CKzRZaAFVN+FwjsTSYyNLSSAD/CfCQf +O0OydCd9NQHtY3mwKha3V3+pUFxLwGyqY+kMNlFY+nKlGgH5FnpbtOPw9xkx +X5ZrEBA3d6LOF7uPkJVcRCPA/ENg2JOFdtmtgcN6BCzm6R6Pi6dQ9W/ZxD4D +AhIy9B2LsHmD3We7DQlI3mQ+/Rbb/HFs3TtTAoJg/ZTaIQqRweXKD4CAs9qW +16uxl3nGGd21JuBDmcrZTmwzhp1jhQ0BMSvKWPPY6at7YwrtCJi8+285SqDw +f8eNjFx77P+GtP2wv47FFeU4EpBd9SAtDtv0+cr2Uy4EtI42zlZiMyt6vx1z +I0D543ex19inLtwQOuqO66cm/+Rh90Zs04v2JMCgt+TUikQKSfrJbQ3zJoC4 +b6SjjW267atv0G4CyGuLKyyxT605lObnT4DPq0AOG/ueuH2+J5MA+/rhswex +e2fk7ruxCYgIu1ySspDX8/WNI4HnR/RoQdZCXtPNPttAAriyJw7nYzPvHvoF +QQQUc6usbizk59uv2BRMwKP9Av3VC/mn5NcbhRJwMzog7NlCPpe02hhGQPef +/Z3N2EvZFZ60CAJE8g9t/IBtsj3hgFoUARvjtThdC/nmDqlK0QS09PQmkNgn +NVZdlOcS8FSoPH4Q+44U75Z0LAHAOuY3gt3zs6JBIp6A0c8h6uML+f0JPSIJ +BFTn+DdPYBu3OlDziQTIKe/ZPYn9P73HqE4= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.6292948640451521, 1.53123699267042}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.6292948640451536}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1558,130 +6389,129 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.6292948640451521, 1.53123699267042}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.6292948640451536}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{115.12306105754327`, - 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV13k0VVscB3BDJFKGongkY1cRrjnZP64kU4gyRLrDISFT3jVEZeiV8iQV +71VEIqEoDWikCUmkQY/QuabMQ/ck5W1/nHXWZ+2zvr89r3XWMg+4cYQEBAR6 +8bPwDm/W1brb0myZdf3MT101ElmOXjFi2pSie4v09Ddid+caZ6nb1CLGfsHW +BbuwX4supT9DubzFXXrYFdzEOhGbJnQsgeFhgH38+arHiSVvkfiW2yaG2Pdb +wi/NGbQjR0fvFGPsoY6G+Jiaj0iq1MjSDFuBp+bznfEfkj9sy7TAdhiLN4ts ++oLODZycQNgP54YkuCU9SFB8yTAD+/0R+bg7oV+RlGSNqx32qKjN0LQBDz1S +LlB1whY9GeZF5/eh4LAnfm7YytIXX4bXDKAKEzlRT2xnxe9XRxnDqECGfY6N +TeSpyumIjSKRIt/E/diJGttT9jeNIaPK9LYI7I/y7/SjSibQEd/sB0ex2d5B ++86cnEQxeeE70rDHLwhcrgydQip5Se5Z2GKqOlITBjMo2H5HdhF2Frtuq9TK +78i2WvpzBbZKkVfiRv53ZBIufrwW23RD6mhIDYX4IaWabdiBxl+ahhhzaKbw +UaCIOommuQcXiWv+Qll0XxFZ7MM1EhY0sd9oYMhUci12NpheD2iaRxary/ws +sdmFL20iSgThmkmOWAJ2yfMz3UcUhSDmrul8OvZ4v1/86ZNC0O6huDcPO157 +5tbNUGHIv19K1GNn3VirNmYgAm55K2KkNUjU0TL88HeBCAC355UGtsrkXe9l +K0Uh+SA/xRy71NA5U4cvCsOGQsDBrr8fKxhcIwY3xa7XPMKeqWv7MsBYCv2r +FFr/0iSRjONSqbiHSyGIUa56FVvvnQ1ImknCBWbwRB12EFmVp6+7DDqUgpcI +apEoTKhJb/NSKRCk5asdweaplk+kfJeGjDkQylmH54doWPKGLgONDJrxQ2yh +631rV4XLwKYi94Gv2Cr0NW4l32SA7Ih7oUcjkTcjo7K5WxbeDlqGt2C/YUVE +yjeuBHaudZTWehJ1FaWn+YvJAfPO5lPu2MPfSgqubZEDq+//qB/FFo/62rbp +sRwoHk1u7sK2SXY39K+ShxkJ1+WXNpCo+orxTHHuaohmvLY11CXRFd5stHmU +EqQGhV96pE8iO49jXZFlShAo/jOWwh6ul7Ut61OCaY3ZZ/oGJDK8smGlipcy +vNJmFhVi1zP9bolYroEXXYrZmXQSTY51/zmQpAJ9Sp70I0Ykkg2xuX3LSRXU +/UaZFWYk6rsiHugSpArIVFiWwr73X4viSKoqBH3s1kfmJNrt6Juk+VgVyuYE +a5uxr6yPdssxUIOqVzpCU5tw/aGi8QR5dYg/88rTxZJE7gESOvY9GjAsNmTj +xyARivYw2PVLA9pOuGlXYGun5JqwV2tCjuT52EU2JBIooFsnuGpC5rInPqXY +ZV0+uyqfaEJU+bSKoC0+nztLjyjka0EH7dn9h3a4fzZO74eYNOhqM9x8wplE +BTvOf+Yn0IBuWJk8hJ3O7Ole9C8NsiXiTBy24/19+OA35TYa3FH83SXpQiLp +2osCOxjaoJVCN852xfuHPqpdo7YelKvviD1xJ5Gi6t+JaeQGSJ1+5cXyIVHt +iWnaDyEd+GfLCKsDe/eU1ztirQ7kT/QPu+4m0aV6dZq1nw78IRYTZ+1LItWA +6lbqgw64qBSk0fbg8ZbyNIhGXaD+HI9fziKRkqIyoeKlByX5Xo3m+0m0oTBq +6U9kAE/3xgRKHSIRk500o+NsAEvaReEidrZaZpf/bgMY6PI/pp1AIuH8Gzef +cw3g6u0Mjm0iPm+XhtwzKwzAziLWP+kIvk+z/S/S1OjwMNHTQyYVr2+ao66n +qCEE+eizkv8m0eUIdZeqJiMIiWvyqS4gUUs0MkkuNIOR41ci89pJtNav3dk3 +eDOkvln3+f0yHuLM3ylXigG45v9C6IYDD8l/u7dYnmkNs+tS+36c5aEousV/ +mdo2MGao99PxKw8xR+Zeyg5tAY+U9MQa4z5UZh25OPfNViCC3ILncvrQlemg +J6VZ28DQ9ecv6ncfoqxWva5PdADRqPK05wf7UaeA8ETPXiewL1kUsXy6H4X+ +cSDjiNp2mObVFV2OGEDl+14+PpviApFJX01vigyi2KnV/PX7XKFD+rWebfYg +mrG33flijxsYmoQ77bMaQmY+p614rjvg+dvmibmJIdS6+mJQPd0dWl2exGvl +fUMKV5Nqi9d5gEVZYqJ1wDC6163t6Cy5EwwaHpB3tUeQ8rvxgOiRnWBtm3pP +fWoE0c+eLi3o3gXiEhaVWu9H0cVFU7qZdZ7QW7JTPK9yDN2x2tiRct8LhP8d +O2TkMY6yTU5Iz5V4w3ERntN06zh687kwlX7SB8Ksnt464jCBqpwuqIcd3g3c +h8neNm8n0ETIDoFQti/oayT7MF0m0YwtLXCU4Qd1yqw/uM2TqHjkExVpvAf+ +LVnxTdFzCnleLmT5LvWHriQx7wMfp9CtSoc9wsf8IZ9g1fowp5GZYuuP4z/8 +wd2rccNY9zRS6w7oeLtvL6xrPDf9yWsGkRL7t1/4uhc6Dt/00vw4g1rSnVlb +PZjwV9X2Ln277yiLmytxsIUJJ2ZFG5rvf0e1D+d/sLaxQNju9/SvNXy0fDcc +o1ez4FSxgHjFQT4y8x8tTjFkQ+p8SWnbcz66mjMe6WzMhrcSYh8GX/DRirZJ +S3lTNry/9cJm/iUfjW7hvyvexIYCX+6gViMf3y8Cgk3WbEjXHXQJe8NHy/jS +XjKubLBtf8Xs/MBH5CmjJbkhbGiIqhnTHOCj9Jr4ffeussGECFy+X5RCIQbn +zbjFbHAdH6tzWEwhx2sVS0xL2GBpE1W1XoxC4uf7rt0tY0O7Vbnz4BIKpUS4 +DN25zQbW1ZPuPpIUiqep7696yobH49lJCisoFHS+Mbiyiw2OctLqi9ZSaNuy +PouIbja48bMVm7DXpQhIGvSyoc8E2Z9RpVBfhFFZBY8NIaFGjmvUKbTXOXfk +5jAbEmr5nTpaFPIUiQy9MYvrj7fKaOhQaGukQlipHAc+Z7D+iTWl0NPcVPvM +VRxoUHg9bGJGIYumSXWuAgc23z3jOI2tp9H4iaHMgfi0MHrQJgqt/hDH+KzB +AbFUgRx7Swp9M++UEzfC7f/MZ3cyKPS3UN6DgB0cMHprquHgjMe/cWm2kwcH +BmplXwxiJ/twI+i7ODCclhR2bDuFuLddtOa9OZC+NubTIxfcf0Lw9DkmBy6Z +6Myr76AQvYHJfhbOgdJdstGPd1How2kNCbUMnL+qX3CTP4XKkWTgwGkOCFh7 +N1dgJ49M15ed4YB5lMdDrb0UMthWn2B6HtenHxSTZlIoXYA16XSJAwp8X+tP +LArZHsj7xC3lwD1WjhEEUEhJ6S9jy3IOBB3/qXMNe7rhwBnhmxxg3Laykw6k +UL4mckq/xQElqVW9Xdi/OjsfF1RzoOjjtuIDQRS67ahY3PySA9rebkEBIRRK +mxUSyWrggLBZ78Gn2Mziob1eTRw468y7/EcohaQWVSuSbzig+3vMuxk7uMbz +7x/vOVA40+ysFUYhNe1z0eo8Dsy+U9hwI4JCsx8OtQ32cSAj0sVoDrslhaN3 +YwCvX3Str10khRJ6DIfMhvF8FIxJdGF3ZLf5bp/iwBqy/fPvKAplLpbeEitI +QNTiIXO5PylUO9npEyVMwJMi48jd2P2dJRGhIgT09ihkXsa2uG2Tx1xCQH+O +Z9I6Lt5v/tyf9tIEFB44rE+Lwf133CKzRZaAFVN+FwjsTSYyNLSSAD/CfCQf +O0OydCd9NQHtY3mwKha3V3+pUFxLwGyqY+kMNlFY+nKlGgH5FnpbtOPw9xkx +X5ZrEBA3d6LOF7uPkJVcRCPA/ENg2JOFdtmtgcN6BCzm6R6Pi6dQ9W/ZxD4D +AhIy9B2LsHmD3We7DQlI3mQ+/Rbb/HFs3TtTAoJg/ZTaIQqRweXKD4CAs9qW +16uxl3nGGd21JuBDmcrZTmwzhp1jhQ0BMSvKWPPY6at7YwrtCJi8+285SqDw +f8eNjFx77P+GtP2wv47FFeU4EpBd9SAtDtv0+cr2Uy4EtI42zlZiMyt6vx1z +I0D543ex19inLtwQOuqO66cm/+Rh90Zs04v2JMCgt+TUikQKSfrJbQ3zJoC4 +b6SjjW267atv0G4CyGuLKyyxT605lObnT4DPq0AOG/ueuH2+J5MA+/rhswex +e2fk7ruxCYgIu1ySspDX8/WNI4HnR/RoQdZCXtPNPttAAriyJw7nYzPvHvoF +QQQUc6usbizk59uv2BRMwKP9Av3VC/mn5NcbhRJwMzog7NlCPpe02hhGQPef +/Z3N2EvZFZ60CAJE8g9t/IBtsj3hgFoUARvjtThdC/nmDqlK0QS09PQmkNgn +NVZdlOcS8FSoPH4Q+44U75Z0LAHAOuY3gt3zs6JBIp6A0c8h6uML+f0JPSIJ +BFTn+DdPYBu3OlDziQTIKe/ZPYn9P73HqE4= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.6292948640451521, 1.53123699267042}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.6292948640451536}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1691,7 +6521,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5986424829233548}, + AxesOrigin->{0, 0.6292948640451536}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1719,7 +6550,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6292948640451521, 1.53123699267042}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1727,9 +6559,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991339493274267*^9}, - CellLabel-> - "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] + CellChangeTimes->{3.991339493274267*^9, 3.9939113213785458`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"cb1d4049-9151-4e29-80a9-34826b22cf33"] }, Open ]], Cell[CellGroupData[{ @@ -1792,262 +6623,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849724783457*^9},ExpressionUUID->"6e33cb28-ef1e-1547-b52d-\ -2171e7786920"], + CellChangeTimes->{3.991849724783457*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.0276280517056926`*^-272\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.9939113217050257`*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"6dbc284c-a974-464c-bb2c-8a8006d3e491"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.120675787707438`*^-284\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 335, - 333, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493498577*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993911321712061*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +In[95]:=",ExpressionUUID->"b15a4db0-d9c8-442e-8fea-82c09d63f7ba"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.802960465944963`*^-296\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 335, 334, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493508564*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 11, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993911321720475*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 335, 335, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493517563*^9}, - CellLabel-> - "During evaluation of \ -In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +In[95]:=",ExpressionUUID->"eb94f706-46c7-4bc6-8c54-fbe6413c36ee"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493525564*^9}, +during this calculation.\"", 2, 95, 12, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993911321728428*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +In[95]:=",ExpressionUUID->"b36bdf8d-97dc-4f47-9026-1be095d4fee5"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VfkbAHAh22Aa+8693HOvLfvuet9KREJE0qZCKUmmFE1cylIkKRJR +lnDPjVKiRAyNpI2yK01oQbaxhZbf+f11ns/zfZ6zvN/vuxza7kMeAfx8fHxC +y/j4/n+d63/6WCup0M42KHxTq7ypXXuuQsSq7ljQiNwgFR4iBSj7ardCdxok +dF2rdAmhQ7g72SXQnQ+LF4vGTUKM4Y9x+bSFrjtw9zcbunzIanhf43popqsB +VuvSlJ8c9AAHrZF3U12vARZfXMsM3g0LXRbpk10D4J9iZ/tlbxg0rikubMuf +hh1/pZ3fqXAKVN4/+LRb7weEGHxS2a+XDDLBO0nhNQJY4VjdDwfTIM3I4aGr +lwhq7JLwUV7IgJ5Mw/qpFRIoPqfs81o4G5IKo1/xK/6BN4ZmpBsNr4H8pcEz +F3OkcfTUmkE3Th4kbHKyez0ni1KtqeVqjAL40ypv59NYBQxbt7/z++NCsJ9Y +jAwZVEJPy+P23zWKIMZ24y4lS1WMUG5oanIthnU7cv+zWK2K0gc5D5I9i0GS +M3rKy0UV0V/1vptPMVxtjCtK9VPFurH2rue7iuG+c/Wo0BlV9C9IvFJwpBgm +fTTDp3tUsds9cqThSjHsODp79vkJNTSovSr05EMxWJddqYiqU8er1Q0uPftK +wL7r5Y/xZnU0zveKzg4uAVc+Qcedr9Ux1N1IZmtoCezxCOmBj+rol7PF//Wx +EnA4QYvmLNdAZ76i7Lz4EghVnytYpauBlz8e2thQUAKP914bawzXwNTLQ+vF +35ZA8LcpTrMEDYfvvU2qs+eC9eFAuU9SNMxuNdimso4LIiO9PAEFGlo5SsqF +r+fCjb7GTjs6DYPNTzhoeHCh/1G63j1zGraIXcly28kFtzir7rydNDxPF5ZT +iuCCsVSMwYlyGjbVviJ3kFzgS5p9nFlJQ+Gkt498SrnwUmC/b+VDGjrSJB+5 +3ebCgVmPuKl/aJgSbBNlWsmFwm6tvr29NPQI2y3S8zcX5K41x28SoGPzX998 +U7q5sKC7ol/fi46PXpu1kQIkzOUoxZj40rG35HGAuRAJM78ztKx20rFWenh5 +nQgJ49NW++2D6CireSHoiQQJAw/3zPmepGNKd1tDhTwJLeurJBNv0FH81PGB +ZbokZB3YAQOzdFT0zFbd60bC5Xf7Bj4v0lGU1XLi0kYSLrn9GTf2i46TNomj +jzxJSDFJfPZNVBOtBi/x/eZDQuxS+ebf1TTxeQcKc/xIOJC0PNTWQRM73qg9 +fBdKgi3v5vWMDE3UZghEBp0noU+Dd21ttiYmjZ/zVLpAQmQGN3fmmiY2hwUW +N6eRUBVTdNWDq4nku7FHqhkkGPtcz5Ss0cQ7s5/vcq+SoL38Umr8B03Mo3mP +ruOSILfzBCdcTwtVfV09iupJuNceEc0w0sI3H7MmhBpI2OR8PKrdTAvTX3j/ +HtBIQprZ0b+MQQuVOqy6FJtIkBA/dHx8oxYOrzmXGvCMBMEHu0MDj2khKXp9 +OK6DhCkpZz/vBi1sH2E4f/1MQncwvXX/Ey006ht6LjNMQn3TIkQ/18JF/5lg +6xESUiN56iWdWvj5G0/o5FcSDAfE3y+MaOFyQ+bN95MkhJS/2p4jzcBNKiZq +ygskeP9W8qJcgYElf50ukV0kwS6Aw25SZeAB9QVviSXq/RSNVCeYDFx99g/6 +zHcSbnLS3qItA/dNRZ28xseDETevrUP+1P1+dJQdFObBa67+s29BDNzOOVpu +LcKDagEhG4lDDORTOv1eUJQHZ6oqlcwjGLjwT1tdqhgPWOoKvQnnGDhOi86N +l+DBiohJp6tpDLyPQ6JsSR58e9384PZlBpo2nS2cpNwcH3GlJ4+Bd9rPBbmt +4MHe8V4f3UoGnlik4agUD1zX3W2Gh9TzldeaJEnzwDw/yXJTPQOjlzK3sGR4 +IORtq3CyhYEb9N6s8pXlQVFtTtfLfgaeyeelXJXnQYp8uOPgIAPdxw5oEwo8 +CD/sWjX/hYG1w/uWblJey/iVoTHNwLXeTMc7ijwYSvbzDhMmUIZmkpytzIOQ +ET26oTiB6w29vYRVeDDvuDA2toJAl8cq90IpiwmkxQUpEShYut7aVpUHhhGN +FX76BPJZr91bqUbFq/M8R82YwNc9GVOS6jxYY7rN5a05gdUD/HIBlL0nZgY3 +I4E3X42uFNPgwckAQtrNk0BG/I5SCxr1fY3/9Yv7EGh2pV/mJOVUjTqyZRuB +GXcFleopF/ZtXu0QSODbAclfdnQerLTSkhQ8QODZez3vIylXZUz2/H2IwBdi +Cn4VlFs2njnMjqDWTetRQ5MHm255sZdOEljmKp3vQfmdOF30QSyBW8NvFsZS +nnxSfd00mcD94/Hn+yhHMhKC/0slUFm44rigFg8ETnla3k4nsKD2p6AuZTm7 +r690rxF4mr9Z5DDl69n3s4cLCMzrNI1Jpay9cHpvcQmBrW+yc0sp3/HeaBJQ +SuC7gSO7minbVqj+ot8hMMTGsuVfyk1/jLT8W0ng+z07euYoux+qzMh9SKCs +kd95MQYPep/H7t5WT6BXU+VXZcp7dNxWKv1DoFJ635QO5a8JyotdTwn8sm3d +NQvK4R8//5P+kkBt3WOzqyjzram44PmGwHnfgRknymevc7b/0U3g0iXBXDfK +Mj9dtF+9JXDdK58pD8o5WxVnkz8QKL/Bd8KTMvHgY73zJwL/zj2d+f/123J3 +kkVGCYzM8xxzpWx9JMqnaYJAneg14+soN7Y5a52eIXBDWWs2UnYxkJ9ctUDg +o6ljc2aUO5MHH/76Qe2vT+VPFmW/kVsJtfxMnGeL3lOkPOz4l+cJYSYOrRtX +FKEcdmOdupU4EzWDB/VnqPh855cdnVvBxO8fA6feUY73+1BZIctEZZz3/4fy +749KY8OUmBjsJn2GpJypHOlqqM7EfhPrHeco0yMclMY1mejkMzp0kPLNTqlP +PBYTbcKKVF0om5u+Lw/SZ+LjmFERFmWniWNOH82Z2DQrs9BNnQ8VI7V4EVsm +xicPuZCUx8MeN+iuYqLvDf6J45Qvza2wDVvPRLxbqyFJOdCy6ni6OxO3u98o +b6fOp1Xk9nv3vZioVxd6MZNy/w/uyl87mShS6eKiQPk2uB+gBzCxVoyn1U6d +/1Mxc8Vr9zPxy9NE93OUWcvX0JKPMPFN0O4b81Q+hYm/lVY8w0QJMQHvm1S+ +2bvGutumMLGz7eVbD8ryqaxzOy8yUa51T80cla810keFinKYqJ+TnmhOWUhZ +csH4DhXv8YG9GVS+d2+rMPOuYuKgcf0TJmVerm9YRA0TLXub4yqpeuFOLx6t +a2Li5TMy6s+VeJCljf0ufUwcKLvb00XVm+ADn5RC/2Wi3V1hu02UoTR588WP +TJRhLBN6SdWrIcOe1p4JJq51K2l8IEfls2VYY6AgC/mXWYqGUfWu0aGwhKPP +woIpcd/A33mQkej8scCYhbcTQ1weUPV0X8sk7YkFC28Qt0pFKUu6srMlVrPQ +3bakLl+cBz5eneeyvFlol5loVknV7697RP6siGahYU6m2B4Bar9y7WvrTrPw +b5FTuhf4eTDRwxF+doaFB3WY/TXLePCf20L2h4sspHP9l8SpfjFvM/JYsoSF +d0LstFOpfsIv81wuqJWFLZPVE/RZqv+5iew60sHCpJlNHJ0ZEpaftedF97Kw +w+JrqcE0CSJ8tZAxxML652MDxlMkSH4t3df4jYVxt1yaVcZIUHx8vlqVpo1x +aZ9p0UMkKP16JqhNaONO9fxuv0ESVKxF3Ex1tXFD8hcLHCBB7TZn0NlMGz0u +Ck3PvydB6+ph8eNO2qhYLBu6vo/qn0c8d7w+rI3PWrt0TrWR1Lwtz5/QoI0J +3PI+6xoShnc7ltg80cbqF5+dRqtJSM475jr5TBurlhs1XnlAwhu17qwtHdr4 +wf94z2QlCX6KV0z0vmijhZljUUI5CRGSygFtEjqYpjfg4lNE9ddvas3KW3Rw +9+Y9FmdTSHCzcAtp3a6DWegFP5JJ+O9otEzcbh0suHA+MCSJBKvp937jB3TQ +o+CQ7PpEEprGri/UR+mgGHwSGo8h4f0AXTewUAdJ/RNPe4+QIPWCSLk9oYP+ +SwtbN20h4eeE4Y2WGR1kCQsqBG4mYUTKpmZoQQdd116oOupFQoOP24iCoC5W +RKYXplDz2J9DxxxiFHTx7r3JDcVOJLQvNf/cuEoXB+ems49YUfObzoFD02m6 ++DNXWD2OmvdUEm+5m5vrYZJIGL3sBRfIstLGBWs9NGvG/n3PuGDZwTOvBT2M +T6dN055yYRO9RMXeSQ+PLFvSOf+YC8k1179s3KaHBzztPns95MLS5AXOwVg9 +fFo0YJJewoXeLUduF77Uw3GHvUb/xnAhU9dqhfRefRzuK8hvNeBCi9Iqs+kL +K9Gtsd5ZN6oErFUaUg06DfBzZsZ3lWLq/0Ig/8iuWEOU6186nPS8CNRi1G23 +EEaYK/ivU/arGyDK2Fbp8cQIT96154a2FMJKtuKtY9uN8e2tlkbnlwUQ1i/V +6MxngpZEdFhSZT5MTCd7OWWaYNWl+ZXKZXngaNCU5aRvikElL0JXkNfh0bTN +0vxLU4ya6NQpoF+DED3j3rYAM8xTronwV80B9rh/+xZRc2Ta7Ux8N58Fa7UU +Nkjkm6PTTVfXQ4JXgMU5e7zBwgLzB67LmOhcBp0AqzpGrwXakqcXgm3SIeDR +vtMVhy0xkPfi82DMRai73u4/JWuFbRucvCUfXoCZkl/zBlVW6BR7UzZDNhX2 +MHiiWRuscX/ug/JFh3MwpXPR/M6kNW7MNFQJ2XwW7hcufZhNtMHdzIz6F08T +wNdeE23UbNHh17pT+UfjQPlgwoOV9bb4c9rXtFf9FMiKBZdv2MzGEfFKiQ61 +GChcczJycgsbyyK9N66WiwHjkylrLm5jo/w8f8cdiRhwnbzd0b2LjY5l9lk5 +3zkQ3zm7sCeYjYGiVeJZvRz4lh+9OjKGjQvLUqRWXuZAr83FN0U8Nm6m51x5 +JMWBfUcLrzqVsXFMcEdjmhgH5sruBXy9zcbc5cVK+/k5IEXvnjeqZGPniY5c ++6FoWC+iqlJbz8bk7+Uxhwuioaa9yP9NBxttajPDF+nR4Cx5Xz+8m427GpqG +haWjodvx6ZxCHxtjnRMLlQWiYaZ6NHHHv2zkZLWNeg1GgX6eYenwCBvPnyjL +lS2MgpreVeHJY2zcz1em63UpCpxlPMFgko1F3k5zWaejIDDhaNuRWTYu3nUB +q4AomKmPz5L/xsbmCYOHF7yiIHbx8p7qRTZW7b1xaHJtFKww5ept/8HGKLeg +rV7mUZB7sHr21y82XnGxOFlPRMH/ADw0WRM= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2061,221 +6790,116 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV13k4VfkbAHAh22Aa+8693HOvLfvuet9KREJE0qZCKUmmFE1cylIkKRJR +lnDPjVKiRAyNpI2yK01oQbaxhZbf+f11ns/zfZ6zvN/vuxza7kMeAfx8fHxC +y/j4/n+d63/6WCup0M42KHxTq7ypXXuuQsSq7ljQiNwgFR4iBSj7ardCdxok +dF2rdAmhQ7g72SXQnQ+LF4vGTUKM4Y9x+bSFrjtw9zcbunzIanhf43popqsB +VuvSlJ8c9AAHrZF3U12vARZfXMsM3g0LXRbpk10D4J9iZ/tlbxg0rikubMuf +hh1/pZ3fqXAKVN4/+LRb7weEGHxS2a+XDDLBO0nhNQJY4VjdDwfTIM3I4aGr +lwhq7JLwUV7IgJ5Mw/qpFRIoPqfs81o4G5IKo1/xK/6BN4ZmpBsNr4H8pcEz +F3OkcfTUmkE3Th4kbHKyez0ni1KtqeVqjAL40ypv59NYBQxbt7/z++NCsJ9Y +jAwZVEJPy+P23zWKIMZ24y4lS1WMUG5oanIthnU7cv+zWK2K0gc5D5I9i0GS +M3rKy0UV0V/1vptPMVxtjCtK9VPFurH2rue7iuG+c/Wo0BlV9C9IvFJwpBgm +fTTDp3tUsds9cqThSjHsODp79vkJNTSovSr05EMxWJddqYiqU8er1Q0uPftK +wL7r5Y/xZnU0zveKzg4uAVc+Qcedr9Ux1N1IZmtoCezxCOmBj+rol7PF//Wx +EnA4QYvmLNdAZ76i7Lz4EghVnytYpauBlz8e2thQUAKP914bawzXwNTLQ+vF +35ZA8LcpTrMEDYfvvU2qs+eC9eFAuU9SNMxuNdimso4LIiO9PAEFGlo5SsqF +r+fCjb7GTjs6DYPNTzhoeHCh/1G63j1zGraIXcly28kFtzir7rydNDxPF5ZT +iuCCsVSMwYlyGjbVviJ3kFzgS5p9nFlJQ+Gkt498SrnwUmC/b+VDGjrSJB+5 +3ebCgVmPuKl/aJgSbBNlWsmFwm6tvr29NPQI2y3S8zcX5K41x28SoGPzX998 +U7q5sKC7ol/fi46PXpu1kQIkzOUoxZj40rG35HGAuRAJM78ztKx20rFWenh5 +nQgJ49NW++2D6CireSHoiQQJAw/3zPmepGNKd1tDhTwJLeurJBNv0FH81PGB +ZbokZB3YAQOzdFT0zFbd60bC5Xf7Bj4v0lGU1XLi0kYSLrn9GTf2i46TNomj +jzxJSDFJfPZNVBOtBi/x/eZDQuxS+ebf1TTxeQcKc/xIOJC0PNTWQRM73qg9 +fBdKgi3v5vWMDE3UZghEBp0noU+Dd21ttiYmjZ/zVLpAQmQGN3fmmiY2hwUW +N6eRUBVTdNWDq4nku7FHqhkkGPtcz5Ss0cQ7s5/vcq+SoL38Umr8B03Mo3mP +ruOSILfzBCdcTwtVfV09iupJuNceEc0w0sI3H7MmhBpI2OR8PKrdTAvTX3j/ +HtBIQprZ0b+MQQuVOqy6FJtIkBA/dHx8oxYOrzmXGvCMBMEHu0MDj2khKXp9 +OK6DhCkpZz/vBi1sH2E4f/1MQncwvXX/Ey006ht6LjNMQn3TIkQ/18JF/5lg +6xESUiN56iWdWvj5G0/o5FcSDAfE3y+MaOFyQ+bN95MkhJS/2p4jzcBNKiZq +ygskeP9W8qJcgYElf50ukV0kwS6Aw25SZeAB9QVviSXq/RSNVCeYDFx99g/6 +zHcSbnLS3qItA/dNRZ28xseDETevrUP+1P1+dJQdFObBa67+s29BDNzOOVpu +LcKDagEhG4lDDORTOv1eUJQHZ6oqlcwjGLjwT1tdqhgPWOoKvQnnGDhOi86N +l+DBiohJp6tpDLyPQ6JsSR58e9384PZlBpo2nS2cpNwcH3GlJ4+Bd9rPBbmt +4MHe8V4f3UoGnlik4agUD1zX3W2Gh9TzldeaJEnzwDw/yXJTPQOjlzK3sGR4 +IORtq3CyhYEb9N6s8pXlQVFtTtfLfgaeyeelXJXnQYp8uOPgIAPdxw5oEwo8 +CD/sWjX/hYG1w/uWblJey/iVoTHNwLXeTMc7ijwYSvbzDhMmUIZmkpytzIOQ +ET26oTiB6w29vYRVeDDvuDA2toJAl8cq90IpiwmkxQUpEShYut7aVpUHhhGN +FX76BPJZr91bqUbFq/M8R82YwNc9GVOS6jxYY7rN5a05gdUD/HIBlL0nZgY3 +I4E3X42uFNPgwckAQtrNk0BG/I5SCxr1fY3/9Yv7EGh2pV/mJOVUjTqyZRuB +GXcFleopF/ZtXu0QSODbAclfdnQerLTSkhQ8QODZez3vIylXZUz2/H2IwBdi +Cn4VlFs2njnMjqDWTetRQ5MHm255sZdOEljmKp3vQfmdOF30QSyBW8NvFsZS +nnxSfd00mcD94/Hn+yhHMhKC/0slUFm44rigFg8ETnla3k4nsKD2p6AuZTm7 +r690rxF4mr9Z5DDl69n3s4cLCMzrNI1Jpay9cHpvcQmBrW+yc0sp3/HeaBJQ +SuC7gSO7minbVqj+ot8hMMTGsuVfyk1/jLT8W0ng+z07euYoux+qzMh9SKCs +kd95MQYPep/H7t5WT6BXU+VXZcp7dNxWKv1DoFJ635QO5a8JyotdTwn8sm3d +NQvK4R8//5P+kkBt3WOzqyjzram44PmGwHnfgRknymevc7b/0U3g0iXBXDfK +Mj9dtF+9JXDdK58pD8o5WxVnkz8QKL/Bd8KTMvHgY73zJwL/zj2d+f/123J3 +kkVGCYzM8xxzpWx9JMqnaYJAneg14+soN7Y5a52eIXBDWWs2UnYxkJ9ctUDg +o6ljc2aUO5MHH/76Qe2vT+VPFmW/kVsJtfxMnGeL3lOkPOz4l+cJYSYOrRtX +FKEcdmOdupU4EzWDB/VnqPh855cdnVvBxO8fA6feUY73+1BZIctEZZz3/4fy +749KY8OUmBjsJn2GpJypHOlqqM7EfhPrHeco0yMclMY1mejkMzp0kPLNTqlP +PBYTbcKKVF0om5u+Lw/SZ+LjmFERFmWniWNOH82Z2DQrs9BNnQ8VI7V4EVsm +xicPuZCUx8MeN+iuYqLvDf6J45Qvza2wDVvPRLxbqyFJOdCy6ni6OxO3u98o +b6fOp1Xk9nv3vZioVxd6MZNy/w/uyl87mShS6eKiQPk2uB+gBzCxVoyn1U6d +/1Mxc8Vr9zPxy9NE93OUWcvX0JKPMPFN0O4b81Q+hYm/lVY8w0QJMQHvm1S+ +2bvGutumMLGz7eVbD8ryqaxzOy8yUa51T80cla810keFinKYqJ+TnmhOWUhZ +csH4DhXv8YG9GVS+d2+rMPOuYuKgcf0TJmVerm9YRA0TLXub4yqpeuFOLx6t +a2Li5TMy6s+VeJCljf0ufUwcKLvb00XVm+ADn5RC/2Wi3V1hu02UoTR588WP +TJRhLBN6SdWrIcOe1p4JJq51K2l8IEfls2VYY6AgC/mXWYqGUfWu0aGwhKPP +woIpcd/A33mQkej8scCYhbcTQ1weUPV0X8sk7YkFC28Qt0pFKUu6srMlVrPQ +3bakLl+cBz5eneeyvFlol5loVknV7697RP6siGahYU6m2B4Bar9y7WvrTrPw +b5FTuhf4eTDRwxF+doaFB3WY/TXLePCf20L2h4sspHP9l8SpfjFvM/JYsoSF +d0LstFOpfsIv81wuqJWFLZPVE/RZqv+5iew60sHCpJlNHJ0ZEpaftedF97Kw +w+JrqcE0CSJ8tZAxxML652MDxlMkSH4t3df4jYVxt1yaVcZIUHx8vlqVpo1x +aZ9p0UMkKP16JqhNaONO9fxuv0ESVKxF3Ex1tXFD8hcLHCBB7TZn0NlMGz0u +Ck3PvydB6+ph8eNO2qhYLBu6vo/qn0c8d7w+rI3PWrt0TrWR1Lwtz5/QoI0J +3PI+6xoShnc7ltg80cbqF5+dRqtJSM475jr5TBurlhs1XnlAwhu17qwtHdr4 +wf94z2QlCX6KV0z0vmijhZljUUI5CRGSygFtEjqYpjfg4lNE9ddvas3KW3Rw +9+Y9FmdTSHCzcAtp3a6DWegFP5JJ+O9otEzcbh0suHA+MCSJBKvp937jB3TQ +o+CQ7PpEEprGri/UR+mgGHwSGo8h4f0AXTewUAdJ/RNPe4+QIPWCSLk9oYP+ +SwtbN20h4eeE4Y2WGR1kCQsqBG4mYUTKpmZoQQdd116oOupFQoOP24iCoC5W +RKYXplDz2J9DxxxiFHTx7r3JDcVOJLQvNf/cuEoXB+ems49YUfObzoFD02m6 ++DNXWD2OmvdUEm+5m5vrYZJIGL3sBRfIstLGBWs9NGvG/n3PuGDZwTOvBT2M +T6dN055yYRO9RMXeSQ+PLFvSOf+YC8k1179s3KaHBzztPns95MLS5AXOwVg9 +fFo0YJJewoXeLUduF77Uw3GHvUb/xnAhU9dqhfRefRzuK8hvNeBCi9Iqs+kL +K9Gtsd5ZN6oErFUaUg06DfBzZsZ3lWLq/0Ig/8iuWEOU6186nPS8CNRi1G23 +EEaYK/ivU/arGyDK2Fbp8cQIT96154a2FMJKtuKtY9uN8e2tlkbnlwUQ1i/V +6MxngpZEdFhSZT5MTCd7OWWaYNWl+ZXKZXngaNCU5aRvikElL0JXkNfh0bTN +0vxLU4ya6NQpoF+DED3j3rYAM8xTronwV80B9rh/+xZRc2Ta7Ux8N58Fa7UU +Nkjkm6PTTVfXQ4JXgMU5e7zBwgLzB67LmOhcBp0AqzpGrwXakqcXgm3SIeDR +vtMVhy0xkPfi82DMRai73u4/JWuFbRucvCUfXoCZkl/zBlVW6BR7UzZDNhX2 +MHiiWRuscX/ug/JFh3MwpXPR/M6kNW7MNFQJ2XwW7hcufZhNtMHdzIz6F08T +wNdeE23UbNHh17pT+UfjQPlgwoOV9bb4c9rXtFf9FMiKBZdv2MzGEfFKiQ61 +GChcczJycgsbyyK9N66WiwHjkylrLm5jo/w8f8cdiRhwnbzd0b2LjY5l9lk5 +3zkQ3zm7sCeYjYGiVeJZvRz4lh+9OjKGjQvLUqRWXuZAr83FN0U8Nm6m51x5 +JMWBfUcLrzqVsXFMcEdjmhgH5sruBXy9zcbc5cVK+/k5IEXvnjeqZGPniY5c ++6FoWC+iqlJbz8bk7+Uxhwuioaa9yP9NBxttajPDF+nR4Cx5Xz+8m427GpqG +haWjodvx6ZxCHxtjnRMLlQWiYaZ6NHHHv2zkZLWNeg1GgX6eYenwCBvPnyjL +lS2MgpreVeHJY2zcz1em63UpCpxlPMFgko1F3k5zWaejIDDhaNuRWTYu3nUB +q4AomKmPz5L/xsbmCYOHF7yiIHbx8p7qRTZW7b1xaHJtFKww5ept/8HGKLeg +rV7mUZB7sHr21y82XnGxOFlPRMH/ADw0WRM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.053019164054740546`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2287,19 +6911,19 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.053019164054740546`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2313,220 +6937,115 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV13k4VfkbAHAh22Aa+8693HOvLfvuet9KREJE0qZCKUmmFE1cylIkKRJR +lnDPjVKiRAyNpI2yK01oQbaxhZbf+f11ns/zfZ6zvN/vuxza7kMeAfx8fHxC +y/j4/n+d63/6WCup0M42KHxTq7ypXXuuQsSq7ljQiNwgFR4iBSj7ardCdxok +dF2rdAmhQ7g72SXQnQ+LF4vGTUKM4Y9x+bSFrjtw9zcbunzIanhf43popqsB +VuvSlJ8c9AAHrZF3U12vARZfXMsM3g0LXRbpk10D4J9iZ/tlbxg0rikubMuf +hh1/pZ3fqXAKVN4/+LRb7weEGHxS2a+XDDLBO0nhNQJY4VjdDwfTIM3I4aGr +lwhq7JLwUV7IgJ5Mw/qpFRIoPqfs81o4G5IKo1/xK/6BN4ZmpBsNr4H8pcEz +F3OkcfTUmkE3Th4kbHKyez0ni1KtqeVqjAL40ypv59NYBQxbt7/z++NCsJ9Y +jAwZVEJPy+P23zWKIMZ24y4lS1WMUG5oanIthnU7cv+zWK2K0gc5D5I9i0GS +M3rKy0UV0V/1vptPMVxtjCtK9VPFurH2rue7iuG+c/Wo0BlV9C9IvFJwpBgm +fTTDp3tUsds9cqThSjHsODp79vkJNTSovSr05EMxWJddqYiqU8er1Q0uPftK +wL7r5Y/xZnU0zveKzg4uAVc+Qcedr9Ux1N1IZmtoCezxCOmBj+rol7PF//Wx +EnA4QYvmLNdAZ76i7Lz4EghVnytYpauBlz8e2thQUAKP914bawzXwNTLQ+vF +35ZA8LcpTrMEDYfvvU2qs+eC9eFAuU9SNMxuNdimso4LIiO9PAEFGlo5SsqF +r+fCjb7GTjs6DYPNTzhoeHCh/1G63j1zGraIXcly28kFtzir7rydNDxPF5ZT +iuCCsVSMwYlyGjbVviJ3kFzgS5p9nFlJQ+Gkt498SrnwUmC/b+VDGjrSJB+5 +3ebCgVmPuKl/aJgSbBNlWsmFwm6tvr29NPQI2y3S8zcX5K41x28SoGPzX998 +U7q5sKC7ol/fi46PXpu1kQIkzOUoxZj40rG35HGAuRAJM78ztKx20rFWenh5 +nQgJ49NW++2D6CireSHoiQQJAw/3zPmepGNKd1tDhTwJLeurJBNv0FH81PGB +ZbokZB3YAQOzdFT0zFbd60bC5Xf7Bj4v0lGU1XLi0kYSLrn9GTf2i46TNomj +jzxJSDFJfPZNVBOtBi/x/eZDQuxS+ebf1TTxeQcKc/xIOJC0PNTWQRM73qg9 +fBdKgi3v5vWMDE3UZghEBp0noU+Dd21ttiYmjZ/zVLpAQmQGN3fmmiY2hwUW +N6eRUBVTdNWDq4nku7FHqhkkGPtcz5Ss0cQ7s5/vcq+SoL38Umr8B03Mo3mP +ruOSILfzBCdcTwtVfV09iupJuNceEc0w0sI3H7MmhBpI2OR8PKrdTAvTX3j/ +HtBIQprZ0b+MQQuVOqy6FJtIkBA/dHx8oxYOrzmXGvCMBMEHu0MDj2khKXp9 +OK6DhCkpZz/vBi1sH2E4f/1MQncwvXX/Ey006ht6LjNMQn3TIkQ/18JF/5lg +6xESUiN56iWdWvj5G0/o5FcSDAfE3y+MaOFyQ+bN95MkhJS/2p4jzcBNKiZq +ygskeP9W8qJcgYElf50ukV0kwS6Aw25SZeAB9QVviSXq/RSNVCeYDFx99g/6 +zHcSbnLS3qItA/dNRZ28xseDETevrUP+1P1+dJQdFObBa67+s29BDNzOOVpu +LcKDagEhG4lDDORTOv1eUJQHZ6oqlcwjGLjwT1tdqhgPWOoKvQnnGDhOi86N +l+DBiohJp6tpDLyPQ6JsSR58e9384PZlBpo2nS2cpNwcH3GlJ4+Bd9rPBbmt +4MHe8V4f3UoGnlik4agUD1zX3W2Gh9TzldeaJEnzwDw/yXJTPQOjlzK3sGR4 +IORtq3CyhYEb9N6s8pXlQVFtTtfLfgaeyeelXJXnQYp8uOPgIAPdxw5oEwo8 +CD/sWjX/hYG1w/uWblJey/iVoTHNwLXeTMc7ijwYSvbzDhMmUIZmkpytzIOQ +ET26oTiB6w29vYRVeDDvuDA2toJAl8cq90IpiwmkxQUpEShYut7aVpUHhhGN +FX76BPJZr91bqUbFq/M8R82YwNc9GVOS6jxYY7rN5a05gdUD/HIBlL0nZgY3 +I4E3X42uFNPgwckAQtrNk0BG/I5SCxr1fY3/9Yv7EGh2pV/mJOVUjTqyZRuB +GXcFleopF/ZtXu0QSODbAclfdnQerLTSkhQ8QODZez3vIylXZUz2/H2IwBdi +Cn4VlFs2njnMjqDWTetRQ5MHm255sZdOEljmKp3vQfmdOF30QSyBW8NvFsZS +nnxSfd00mcD94/Hn+yhHMhKC/0slUFm44rigFg8ETnla3k4nsKD2p6AuZTm7 +r690rxF4mr9Z5DDl69n3s4cLCMzrNI1Jpay9cHpvcQmBrW+yc0sp3/HeaBJQ +SuC7gSO7minbVqj+ot8hMMTGsuVfyk1/jLT8W0ng+z07euYoux+qzMh9SKCs +kd95MQYPep/H7t5WT6BXU+VXZcp7dNxWKv1DoFJ635QO5a8JyotdTwn8sm3d +NQvK4R8//5P+kkBt3WOzqyjzram44PmGwHnfgRknymevc7b/0U3g0iXBXDfK +Mj9dtF+9JXDdK58pD8o5WxVnkz8QKL/Bd8KTMvHgY73zJwL/zj2d+f/123J3 +kkVGCYzM8xxzpWx9JMqnaYJAneg14+soN7Y5a52eIXBDWWs2UnYxkJ9ctUDg +o6ljc2aUO5MHH/76Qe2vT+VPFmW/kVsJtfxMnGeL3lOkPOz4l+cJYSYOrRtX +FKEcdmOdupU4EzWDB/VnqPh855cdnVvBxO8fA6feUY73+1BZIctEZZz3/4fy +749KY8OUmBjsJn2GpJypHOlqqM7EfhPrHeco0yMclMY1mejkMzp0kPLNTqlP +PBYTbcKKVF0om5u+Lw/SZ+LjmFERFmWniWNOH82Z2DQrs9BNnQ8VI7V4EVsm +xicPuZCUx8MeN+iuYqLvDf6J45Qvza2wDVvPRLxbqyFJOdCy6ni6OxO3u98o +b6fOp1Xk9nv3vZioVxd6MZNy/w/uyl87mShS6eKiQPk2uB+gBzCxVoyn1U6d +/1Mxc8Vr9zPxy9NE93OUWcvX0JKPMPFN0O4b81Q+hYm/lVY8w0QJMQHvm1S+ +2bvGutumMLGz7eVbD8ryqaxzOy8yUa51T80cla810keFinKYqJ+TnmhOWUhZ +csH4DhXv8YG9GVS+d2+rMPOuYuKgcf0TJmVerm9YRA0TLXub4yqpeuFOLx6t +a2Li5TMy6s+VeJCljf0ufUwcKLvb00XVm+ADn5RC/2Wi3V1hu02UoTR588WP +TJRhLBN6SdWrIcOe1p4JJq51K2l8IEfls2VYY6AgC/mXWYqGUfWu0aGwhKPP +woIpcd/A33mQkej8scCYhbcTQ1weUPV0X8sk7YkFC28Qt0pFKUu6srMlVrPQ +3bakLl+cBz5eneeyvFlol5loVknV7697RP6siGahYU6m2B4Bar9y7WvrTrPw +b5FTuhf4eTDRwxF+doaFB3WY/TXLePCf20L2h4sspHP9l8SpfjFvM/JYsoSF +d0LstFOpfsIv81wuqJWFLZPVE/RZqv+5iew60sHCpJlNHJ0ZEpaftedF97Kw +w+JrqcE0CSJ8tZAxxML652MDxlMkSH4t3df4jYVxt1yaVcZIUHx8vlqVpo1x +aZ9p0UMkKP16JqhNaONO9fxuv0ESVKxF3Ex1tXFD8hcLHCBB7TZn0NlMGz0u +Ck3PvydB6+ph8eNO2qhYLBu6vo/qn0c8d7w+rI3PWrt0TrWR1Lwtz5/QoI0J +3PI+6xoShnc7ltg80cbqF5+dRqtJSM475jr5TBurlhs1XnlAwhu17qwtHdr4 +wf94z2QlCX6KV0z0vmijhZljUUI5CRGSygFtEjqYpjfg4lNE9ddvas3KW3Rw +9+Y9FmdTSHCzcAtp3a6DWegFP5JJ+O9otEzcbh0suHA+MCSJBKvp937jB3TQ +o+CQ7PpEEprGri/UR+mgGHwSGo8h4f0AXTewUAdJ/RNPe4+QIPWCSLk9oYP+ +SwtbN20h4eeE4Y2WGR1kCQsqBG4mYUTKpmZoQQdd116oOupFQoOP24iCoC5W +RKYXplDz2J9DxxxiFHTx7r3JDcVOJLQvNf/cuEoXB+ems49YUfObzoFD02m6 ++DNXWD2OmvdUEm+5m5vrYZJIGL3sBRfIstLGBWs9NGvG/n3PuGDZwTOvBT2M +T6dN055yYRO9RMXeSQ+PLFvSOf+YC8k1179s3KaHBzztPns95MLS5AXOwVg9 +fFo0YJJewoXeLUduF77Uw3GHvUb/xnAhU9dqhfRefRzuK8hvNeBCi9Iqs+kL +K9Gtsd5ZN6oErFUaUg06DfBzZsZ3lWLq/0Ig/8iuWEOU6186nPS8CNRi1G23 +EEaYK/ivU/arGyDK2Fbp8cQIT96154a2FMJKtuKtY9uN8e2tlkbnlwUQ1i/V +6MxngpZEdFhSZT5MTCd7OWWaYNWl+ZXKZXngaNCU5aRvikElL0JXkNfh0bTN +0vxLU4ya6NQpoF+DED3j3rYAM8xTronwV80B9rh/+xZRc2Ta7Ux8N58Fa7UU +Nkjkm6PTTVfXQ4JXgMU5e7zBwgLzB67LmOhcBp0AqzpGrwXakqcXgm3SIeDR +vtMVhy0xkPfi82DMRai73u4/JWuFbRucvCUfXoCZkl/zBlVW6BR7UzZDNhX2 +MHiiWRuscX/ug/JFh3MwpXPR/M6kNW7MNFQJ2XwW7hcufZhNtMHdzIz6F08T +wNdeE23UbNHh17pT+UfjQPlgwoOV9bb4c9rXtFf9FMiKBZdv2MzGEfFKiQ61 +GChcczJycgsbyyK9N66WiwHjkylrLm5jo/w8f8cdiRhwnbzd0b2LjY5l9lk5 +3zkQ3zm7sCeYjYGiVeJZvRz4lh+9OjKGjQvLUqRWXuZAr83FN0U8Nm6m51x5 +JMWBfUcLrzqVsXFMcEdjmhgH5sruBXy9zcbc5cVK+/k5IEXvnjeqZGPniY5c ++6FoWC+iqlJbz8bk7+Uxhwuioaa9yP9NBxttajPDF+nR4Cx5Xz+8m427GpqG +haWjodvx6ZxCHxtjnRMLlQWiYaZ6NHHHv2zkZLWNeg1GgX6eYenwCBvPnyjL +lS2MgpreVeHJY2zcz1em63UpCpxlPMFgko1F3k5zWaejIDDhaNuRWTYu3nUB +q4AomKmPz5L/xsbmCYOHF7yiIHbx8p7qRTZW7b1xaHJtFKww5ept/8HGKLeg +rV7mUZB7sHr21y82XnGxOFlPRMH/ADw0WRM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.053019164054740546`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2537,6 +7056,7 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2564,7 +7084,8 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.053019164054740546`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2572,25 +7093,863 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991340117671425*^9}, - CellLabel-> - "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] + CellChangeTimes->{3.991340117671425*^9, 3.993911644951833*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"23c18686-716c-4028-b535-b127b402214d"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ -2bd9764114a1"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.007417"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.021549"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.034628"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.045917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.054602"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.061093"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.06517"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.066873"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.066776"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.065063"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.062072"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058207"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.053722"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.048873"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.043893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.038938"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.034149"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.029622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.025427"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021604"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018178"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.015148"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.012507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.010233"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.008299"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.006672"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.00532"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.004206"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.003299"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.002567"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.001983"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9939107376152143`*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.066873}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99391164512409*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"68f57f30-6303-4e60-b241-07f8e0399f00"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ -0ac982b58a3a"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VfkbAHAh22Aa+8693HOvLfvuet9KREJE0qZCKUmmFE1cylIkKRJR +lnDPjVKiRAyNpI2yK01oQbaxhZbf+f11ns/zfZ6zvN/vuxza7kMeAfx8fHxC +y/j4/n+d63/6WCup0M42KHxTq7ypXXuuQsSq7ljQiNwgFR4iBSj7ardCdxok +dF2rdAmhQ7g72SXQnQ+LF4vGTUKM4Y9x+bSFrjtw9zcbunzIanhf43popqsB +VuvSlJ8c9AAHrZF3U12vARZfXMsM3g0LXRbpk10D4J9iZ/tlbxg0rikubMuf +hh1/pZ3fqXAKVN4/+LRb7weEGHxS2a+XDDLBO0nhNQJY4VjdDwfTIM3I4aGr +lwhq7JLwUV7IgJ5Mw/qpFRIoPqfs81o4G5IKo1/xK/6BN4ZmpBsNr4H8pcEz +F3OkcfTUmkE3Th4kbHKyez0ni1KtqeVqjAL40ypv59NYBQxbt7/z++NCsJ9Y +jAwZVEJPy+P23zWKIMZ24y4lS1WMUG5oanIthnU7cv+zWK2K0gc5D5I9i0GS +M3rKy0UV0V/1vptPMVxtjCtK9VPFurH2rue7iuG+c/Wo0BlV9C9IvFJwpBgm +fTTDp3tUsds9cqThSjHsODp79vkJNTSovSr05EMxWJddqYiqU8er1Q0uPftK +wL7r5Y/xZnU0zveKzg4uAVc+Qcedr9Ux1N1IZmtoCezxCOmBj+rol7PF//Wx +EnA4QYvmLNdAZ76i7Lz4EghVnytYpauBlz8e2thQUAKP914bawzXwNTLQ+vF +35ZA8LcpTrMEDYfvvU2qs+eC9eFAuU9SNMxuNdimso4LIiO9PAEFGlo5SsqF +r+fCjb7GTjs6DYPNTzhoeHCh/1G63j1zGraIXcly28kFtzir7rydNDxPF5ZT +iuCCsVSMwYlyGjbVviJ3kFzgS5p9nFlJQ+Gkt498SrnwUmC/b+VDGjrSJB+5 +3ebCgVmPuKl/aJgSbBNlWsmFwm6tvr29NPQI2y3S8zcX5K41x28SoGPzX998 +U7q5sKC7ol/fi46PXpu1kQIkzOUoxZj40rG35HGAuRAJM78ztKx20rFWenh5 +nQgJ49NW++2D6CireSHoiQQJAw/3zPmepGNKd1tDhTwJLeurJBNv0FH81PGB +ZbokZB3YAQOzdFT0zFbd60bC5Xf7Bj4v0lGU1XLi0kYSLrn9GTf2i46TNomj +jzxJSDFJfPZNVBOtBi/x/eZDQuxS+ebf1TTxeQcKc/xIOJC0PNTWQRM73qg9 +fBdKgi3v5vWMDE3UZghEBp0noU+Dd21ttiYmjZ/zVLpAQmQGN3fmmiY2hwUW +N6eRUBVTdNWDq4nku7FHqhkkGPtcz5Ss0cQ7s5/vcq+SoL38Umr8B03Mo3mP +ruOSILfzBCdcTwtVfV09iupJuNceEc0w0sI3H7MmhBpI2OR8PKrdTAvTX3j/ +HtBIQprZ0b+MQQuVOqy6FJtIkBA/dHx8oxYOrzmXGvCMBMEHu0MDj2khKXp9 +OK6DhCkpZz/vBi1sH2E4f/1MQncwvXX/Ey006ht6LjNMQn3TIkQ/18JF/5lg +6xESUiN56iWdWvj5G0/o5FcSDAfE3y+MaOFyQ+bN95MkhJS/2p4jzcBNKiZq +ygskeP9W8qJcgYElf50ukV0kwS6Aw25SZeAB9QVviSXq/RSNVCeYDFx99g/6 +zHcSbnLS3qItA/dNRZ28xseDETevrUP+1P1+dJQdFObBa67+s29BDNzOOVpu +LcKDagEhG4lDDORTOv1eUJQHZ6oqlcwjGLjwT1tdqhgPWOoKvQnnGDhOi86N +l+DBiohJp6tpDLyPQ6JsSR58e9384PZlBpo2nS2cpNwcH3GlJ4+Bd9rPBbmt +4MHe8V4f3UoGnlik4agUD1zX3W2Gh9TzldeaJEnzwDw/yXJTPQOjlzK3sGR4 +IORtq3CyhYEb9N6s8pXlQVFtTtfLfgaeyeelXJXnQYp8uOPgIAPdxw5oEwo8 +CD/sWjX/hYG1w/uWblJey/iVoTHNwLXeTMc7ijwYSvbzDhMmUIZmkpytzIOQ +ET26oTiB6w29vYRVeDDvuDA2toJAl8cq90IpiwmkxQUpEShYut7aVpUHhhGN +FX76BPJZr91bqUbFq/M8R82YwNc9GVOS6jxYY7rN5a05gdUD/HIBlL0nZgY3 +I4E3X42uFNPgwckAQtrNk0BG/I5SCxr1fY3/9Yv7EGh2pV/mJOVUjTqyZRuB +GXcFleopF/ZtXu0QSODbAclfdnQerLTSkhQ8QODZez3vIylXZUz2/H2IwBdi +Cn4VlFs2njnMjqDWTetRQ5MHm255sZdOEljmKp3vQfmdOF30QSyBW8NvFsZS +nnxSfd00mcD94/Hn+yhHMhKC/0slUFm44rigFg8ETnla3k4nsKD2p6AuZTm7 +r690rxF4mr9Z5DDl69n3s4cLCMzrNI1Jpay9cHpvcQmBrW+yc0sp3/HeaBJQ +SuC7gSO7minbVqj+ot8hMMTGsuVfyk1/jLT8W0ng+z07euYoux+qzMh9SKCs +kd95MQYPep/H7t5WT6BXU+VXZcp7dNxWKv1DoFJ635QO5a8JyotdTwn8sm3d +NQvK4R8//5P+kkBt3WOzqyjzram44PmGwHnfgRknymevc7b/0U3g0iXBXDfK +Mj9dtF+9JXDdK58pD8o5WxVnkz8QKL/Bd8KTMvHgY73zJwL/zj2d+f/123J3 +kkVGCYzM8xxzpWx9JMqnaYJAneg14+soN7Y5a52eIXBDWWs2UnYxkJ9ctUDg +o6ljc2aUO5MHH/76Qe2vT+VPFmW/kVsJtfxMnGeL3lOkPOz4l+cJYSYOrRtX +FKEcdmOdupU4EzWDB/VnqPh855cdnVvBxO8fA6feUY73+1BZIctEZZz3/4fy +749KY8OUmBjsJn2GpJypHOlqqM7EfhPrHeco0yMclMY1mejkMzp0kPLNTqlP +PBYTbcKKVF0om5u+Lw/SZ+LjmFERFmWniWNOH82Z2DQrs9BNnQ8VI7V4EVsm +xicPuZCUx8MeN+iuYqLvDf6J45Qvza2wDVvPRLxbqyFJOdCy6ni6OxO3u98o +b6fOp1Xk9nv3vZioVxd6MZNy/w/uyl87mShS6eKiQPk2uB+gBzCxVoyn1U6d +/1Mxc8Vr9zPxy9NE93OUWcvX0JKPMPFN0O4b81Q+hYm/lVY8w0QJMQHvm1S+ +2bvGutumMLGz7eVbD8ryqaxzOy8yUa51T80cla810keFinKYqJ+TnmhOWUhZ +csH4DhXv8YG9GVS+d2+rMPOuYuKgcf0TJmVerm9YRA0TLXub4yqpeuFOLx6t +a2Li5TMy6s+VeJCljf0ufUwcKLvb00XVm+ADn5RC/2Wi3V1hu02UoTR588WP +TJRhLBN6SdWrIcOe1p4JJq51K2l8IEfls2VYY6AgC/mXWYqGUfWu0aGwhKPP +woIpcd/A33mQkej8scCYhbcTQ1weUPV0X8sk7YkFC28Qt0pFKUu6srMlVrPQ +3bakLl+cBz5eneeyvFlol5loVknV7697RP6siGahYU6m2B4Bar9y7WvrTrPw +b5FTuhf4eTDRwxF+doaFB3WY/TXLePCf20L2h4sspHP9l8SpfjFvM/JYsoSF +d0LstFOpfsIv81wuqJWFLZPVE/RZqv+5iew60sHCpJlNHJ0ZEpaftedF97Kw +w+JrqcE0CSJ8tZAxxML652MDxlMkSH4t3df4jYVxt1yaVcZIUHx8vlqVpo1x +aZ9p0UMkKP16JqhNaONO9fxuv0ESVKxF3Ex1tXFD8hcLHCBB7TZn0NlMGz0u +Ck3PvydB6+ph8eNO2qhYLBu6vo/qn0c8d7w+rI3PWrt0TrWR1Lwtz5/QoI0J +3PI+6xoShnc7ltg80cbqF5+dRqtJSM475jr5TBurlhs1XnlAwhu17qwtHdr4 +wf94z2QlCX6KV0z0vmijhZljUUI5CRGSygFtEjqYpjfg4lNE9ddvas3KW3Rw +9+Y9FmdTSHCzcAtp3a6DWegFP5JJ+O9otEzcbh0suHA+MCSJBKvp937jB3TQ +o+CQ7PpEEprGri/UR+mgGHwSGo8h4f0AXTewUAdJ/RNPe4+QIPWCSLk9oYP+ +SwtbN20h4eeE4Y2WGR1kCQsqBG4mYUTKpmZoQQdd116oOupFQoOP24iCoC5W +RKYXplDz2J9DxxxiFHTx7r3JDcVOJLQvNf/cuEoXB+ems49YUfObzoFD02m6 ++DNXWD2OmvdUEm+5m5vrYZJIGL3sBRfIstLGBWs9NGvG/n3PuGDZwTOvBT2M +T6dN055yYRO9RMXeSQ+PLFvSOf+YC8k1179s3KaHBzztPns95MLS5AXOwVg9 +fFo0YJJewoXeLUduF77Uw3GHvUb/xnAhU9dqhfRefRzuK8hvNeBCi9Iqs+kL +K9Gtsd5ZN6oErFUaUg06DfBzZsZ3lWLq/0Ig/8iuWEOU6186nPS8CNRi1G23 +EEaYK/ivU/arGyDK2Fbp8cQIT96154a2FMJKtuKtY9uN8e2tlkbnlwUQ1i/V +6MxngpZEdFhSZT5MTCd7OWWaYNWl+ZXKZXngaNCU5aRvikElL0JXkNfh0bTN +0vxLU4ya6NQpoF+DED3j3rYAM8xTronwV80B9rh/+xZRc2Ta7Ux8N58Fa7UU +Nkjkm6PTTVfXQ4JXgMU5e7zBwgLzB67LmOhcBp0AqzpGrwXakqcXgm3SIeDR +vtMVhy0xkPfi82DMRai73u4/JWuFbRucvCUfXoCZkl/zBlVW6BR7UzZDNhX2 +MHiiWRuscX/ug/JFh3MwpXPR/M6kNW7MNFQJ2XwW7hcufZhNtMHdzIz6F08T +wNdeE23UbNHh17pT+UfjQPlgwoOV9bb4c9rXtFf9FMiKBZdv2MzGEfFKiQ61 +GChcczJycgsbyyK9N66WiwHjkylrLm5jo/w8f8cdiRhwnbzd0b2LjY5l9lk5 +3zkQ3zm7sCeYjYGiVeJZvRz4lh+9OjKGjQvLUqRWXuZAr83FN0U8Nm6m51x5 +JMWBfUcLrzqVsXFMcEdjmhgH5sruBXy9zcbc5cVK+/k5IEXvnjeqZGPniY5c ++6FoWC+iqlJbz8bk7+Uxhwuioaa9yP9NBxttajPDF+nR4Cx5Xz+8m427GpqG +haWjodvx6ZxCHxtjnRMLlQWiYaZ6NHHHv2zkZLWNeg1GgX6eYenwCBvPnyjL +lS2MgpreVeHJY2zcz1em63UpCpxlPMFgko1F3k5zWaejIDDhaNuRWTYu3nUB +q4AomKmPz5L/xsbmCYOHF7yiIHbx8p7qRTZW7b1xaHJtFKww5ept/8HGKLeg +rV7mUZB7sHr21y82XnGxOFlPRMH/ADw0WRM= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VfkbAHAh22Aa+8693HOvLfvuet9KREJE0qZCKUmmFE1cylIkKRJR +lnDPjVKiRAyNpI2yK01oQbaxhZbf+f11ns/zfZ6zvN/vuxza7kMeAfx8fHxC +y/j4/n+d63/6WCup0M42KHxTq7ypXXuuQsSq7ljQiNwgFR4iBSj7ardCdxok +dF2rdAmhQ7g72SXQnQ+LF4vGTUKM4Y9x+bSFrjtw9zcbunzIanhf43popqsB +VuvSlJ8c9AAHrZF3U12vARZfXMsM3g0LXRbpk10D4J9iZ/tlbxg0rikubMuf +hh1/pZ3fqXAKVN4/+LRb7weEGHxS2a+XDDLBO0nhNQJY4VjdDwfTIM3I4aGr +lwhq7JLwUV7IgJ5Mw/qpFRIoPqfs81o4G5IKo1/xK/6BN4ZmpBsNr4H8pcEz +F3OkcfTUmkE3Th4kbHKyez0ni1KtqeVqjAL40ypv59NYBQxbt7/z++NCsJ9Y +jAwZVEJPy+P23zWKIMZ24y4lS1WMUG5oanIthnU7cv+zWK2K0gc5D5I9i0GS +M3rKy0UV0V/1vptPMVxtjCtK9VPFurH2rue7iuG+c/Wo0BlV9C9IvFJwpBgm +fTTDp3tUsds9cqThSjHsODp79vkJNTSovSr05EMxWJddqYiqU8er1Q0uPftK +wL7r5Y/xZnU0zveKzg4uAVc+Qcedr9Ux1N1IZmtoCezxCOmBj+rol7PF//Wx +EnA4QYvmLNdAZ76i7Lz4EghVnytYpauBlz8e2thQUAKP914bawzXwNTLQ+vF +35ZA8LcpTrMEDYfvvU2qs+eC9eFAuU9SNMxuNdimso4LIiO9PAEFGlo5SsqF +r+fCjb7GTjs6DYPNTzhoeHCh/1G63j1zGraIXcly28kFtzir7rydNDxPF5ZT +iuCCsVSMwYlyGjbVviJ3kFzgS5p9nFlJQ+Gkt498SrnwUmC/b+VDGjrSJB+5 +3ebCgVmPuKl/aJgSbBNlWsmFwm6tvr29NPQI2y3S8zcX5K41x28SoGPzX998 +U7q5sKC7ol/fi46PXpu1kQIkzOUoxZj40rG35HGAuRAJM78ztKx20rFWenh5 +nQgJ49NW++2D6CireSHoiQQJAw/3zPmepGNKd1tDhTwJLeurJBNv0FH81PGB +ZbokZB3YAQOzdFT0zFbd60bC5Xf7Bj4v0lGU1XLi0kYSLrn9GTf2i46TNomj +jzxJSDFJfPZNVBOtBi/x/eZDQuxS+ebf1TTxeQcKc/xIOJC0PNTWQRM73qg9 +fBdKgi3v5vWMDE3UZghEBp0noU+Dd21ttiYmjZ/zVLpAQmQGN3fmmiY2hwUW +N6eRUBVTdNWDq4nku7FHqhkkGPtcz5Ss0cQ7s5/vcq+SoL38Umr8B03Mo3mP +ruOSILfzBCdcTwtVfV09iupJuNceEc0w0sI3H7MmhBpI2OR8PKrdTAvTX3j/ +HtBIQprZ0b+MQQuVOqy6FJtIkBA/dHx8oxYOrzmXGvCMBMEHu0MDj2khKXp9 +OK6DhCkpZz/vBi1sH2E4f/1MQncwvXX/Ey006ht6LjNMQn3TIkQ/18JF/5lg +6xESUiN56iWdWvj5G0/o5FcSDAfE3y+MaOFyQ+bN95MkhJS/2p4jzcBNKiZq +ygskeP9W8qJcgYElf50ukV0kwS6Aw25SZeAB9QVviSXq/RSNVCeYDFx99g/6 +zHcSbnLS3qItA/dNRZ28xseDETevrUP+1P1+dJQdFObBa67+s29BDNzOOVpu +LcKDagEhG4lDDORTOv1eUJQHZ6oqlcwjGLjwT1tdqhgPWOoKvQnnGDhOi86N +l+DBiohJp6tpDLyPQ6JsSR58e9384PZlBpo2nS2cpNwcH3GlJ4+Bd9rPBbmt +4MHe8V4f3UoGnlik4agUD1zX3W2Gh9TzldeaJEnzwDw/yXJTPQOjlzK3sGR4 +IORtq3CyhYEb9N6s8pXlQVFtTtfLfgaeyeelXJXnQYp8uOPgIAPdxw5oEwo8 +CD/sWjX/hYG1w/uWblJey/iVoTHNwLXeTMc7ijwYSvbzDhMmUIZmkpytzIOQ +ET26oTiB6w29vYRVeDDvuDA2toJAl8cq90IpiwmkxQUpEShYut7aVpUHhhGN +FX76BPJZr91bqUbFq/M8R82YwNc9GVOS6jxYY7rN5a05gdUD/HIBlL0nZgY3 +I4E3X42uFNPgwckAQtrNk0BG/I5SCxr1fY3/9Yv7EGh2pV/mJOVUjTqyZRuB +GXcFleopF/ZtXu0QSODbAclfdnQerLTSkhQ8QODZez3vIylXZUz2/H2IwBdi +Cn4VlFs2njnMjqDWTetRQ5MHm255sZdOEljmKp3vQfmdOF30QSyBW8NvFsZS +nnxSfd00mcD94/Hn+yhHMhKC/0slUFm44rigFg8ETnla3k4nsKD2p6AuZTm7 +r690rxF4mr9Z5DDl69n3s4cLCMzrNI1Jpay9cHpvcQmBrW+yc0sp3/HeaBJQ +SuC7gSO7minbVqj+ot8hMMTGsuVfyk1/jLT8W0ng+z07euYoux+qzMh9SKCs +kd95MQYPep/H7t5WT6BXU+VXZcp7dNxWKv1DoFJ635QO5a8JyotdTwn8sm3d +NQvK4R8//5P+kkBt3WOzqyjzram44PmGwHnfgRknymevc7b/0U3g0iXBXDfK +Mj9dtF+9JXDdK58pD8o5WxVnkz8QKL/Bd8KTMvHgY73zJwL/zj2d+f/123J3 +kkVGCYzM8xxzpWx9JMqnaYJAneg14+soN7Y5a52eIXBDWWs2UnYxkJ9ctUDg +o6ljc2aUO5MHH/76Qe2vT+VPFmW/kVsJtfxMnGeL3lOkPOz4l+cJYSYOrRtX +FKEcdmOdupU4EzWDB/VnqPh855cdnVvBxO8fA6feUY73+1BZIctEZZz3/4fy +749KY8OUmBjsJn2GpJypHOlqqM7EfhPrHeco0yMclMY1mejkMzp0kPLNTqlP +PBYTbcKKVF0om5u+Lw/SZ+LjmFERFmWniWNOH82Z2DQrs9BNnQ8VI7V4EVsm +xicPuZCUx8MeN+iuYqLvDf6J45Qvza2wDVvPRLxbqyFJOdCy6ni6OxO3u98o +b6fOp1Xk9nv3vZioVxd6MZNy/w/uyl87mShS6eKiQPk2uB+gBzCxVoyn1U6d +/1Mxc8Vr9zPxy9NE93OUWcvX0JKPMPFN0O4b81Q+hYm/lVY8w0QJMQHvm1S+ +2bvGutumMLGz7eVbD8ryqaxzOy8yUa51T80cla810keFinKYqJ+TnmhOWUhZ +csH4DhXv8YG9GVS+d2+rMPOuYuKgcf0TJmVerm9YRA0TLXub4yqpeuFOLx6t +a2Li5TMy6s+VeJCljf0ufUwcKLvb00XVm+ADn5RC/2Wi3V1hu02UoTR588WP +TJRhLBN6SdWrIcOe1p4JJq51K2l8IEfls2VYY6AgC/mXWYqGUfWu0aGwhKPP +woIpcd/A33mQkej8scCYhbcTQ1weUPV0X8sk7YkFC28Qt0pFKUu6srMlVrPQ +3bakLl+cBz5eneeyvFlol5loVknV7697RP6siGahYU6m2B4Bar9y7WvrTrPw +b5FTuhf4eTDRwxF+doaFB3WY/TXLePCf20L2h4sspHP9l8SpfjFvM/JYsoSF +d0LstFOpfsIv81wuqJWFLZPVE/RZqv+5iew60sHCpJlNHJ0ZEpaftedF97Kw +w+JrqcE0CSJ8tZAxxML652MDxlMkSH4t3df4jYVxt1yaVcZIUHx8vlqVpo1x +aZ9p0UMkKP16JqhNaONO9fxuv0ESVKxF3Ex1tXFD8hcLHCBB7TZn0NlMGz0u +Ck3PvydB6+ph8eNO2qhYLBu6vo/qn0c8d7w+rI3PWrt0TrWR1Lwtz5/QoI0J +3PI+6xoShnc7ltg80cbqF5+dRqtJSM475jr5TBurlhs1XnlAwhu17qwtHdr4 +wf94z2QlCX6KV0z0vmijhZljUUI5CRGSygFtEjqYpjfg4lNE9ddvas3KW3Rw +9+Y9FmdTSHCzcAtp3a6DWegFP5JJ+O9otEzcbh0suHA+MCSJBKvp937jB3TQ +o+CQ7PpEEprGri/UR+mgGHwSGo8h4f0AXTewUAdJ/RNPe4+QIPWCSLk9oYP+ +SwtbN20h4eeE4Y2WGR1kCQsqBG4mYUTKpmZoQQdd116oOupFQoOP24iCoC5W +RKYXplDz2J9DxxxiFHTx7r3JDcVOJLQvNf/cuEoXB+ems49YUfObzoFD02m6 ++DNXWD2OmvdUEm+5m5vrYZJIGL3sBRfIstLGBWs9NGvG/n3PuGDZwTOvBT2M +T6dN055yYRO9RMXeSQ+PLFvSOf+YC8k1179s3KaHBzztPns95MLS5AXOwVg9 +fFo0YJJewoXeLUduF77Uw3GHvUb/xnAhU9dqhfRefRzuK8hvNeBCi9Iqs+kL +K9Gtsd5ZN6oErFUaUg06DfBzZsZ3lWLq/0Ig/8iuWEOU6186nPS8CNRi1G23 +EEaYK/ivU/arGyDK2Fbp8cQIT96154a2FMJKtuKtY9uN8e2tlkbnlwUQ1i/V +6MxngpZEdFhSZT5MTCd7OWWaYNWl+ZXKZXngaNCU5aRvikElL0JXkNfh0bTN +0vxLU4ya6NQpoF+DED3j3rYAM8xTronwV80B9rh/+xZRc2Ta7Ux8N58Fa7UU +Nkjkm6PTTVfXQ4JXgMU5e7zBwgLzB67LmOhcBp0AqzpGrwXakqcXgm3SIeDR +vtMVhy0xkPfi82DMRai73u4/JWuFbRucvCUfXoCZkl/zBlVW6BR7UzZDNhX2 +MHiiWRuscX/ug/JFh3MwpXPR/M6kNW7MNFQJ2XwW7hcufZhNtMHdzIz6F08T +wNdeE23UbNHh17pT+UfjQPlgwoOV9bb4c9rXtFf9FMiKBZdv2MzGEfFKiQ61 +GChcczJycgsbyyK9N66WiwHjkylrLm5jo/w8f8cdiRhwnbzd0b2LjY5l9lk5 +3zkQ3zm7sCeYjYGiVeJZvRz4lh+9OjKGjQvLUqRWXuZAr83FN0U8Nm6m51x5 +JMWBfUcLrzqVsXFMcEdjmhgH5sruBXy9zcbc5cVK+/k5IEXvnjeqZGPniY5c ++6FoWC+iqlJbz8bk7+Uxhwuioaa9yP9NBxttajPDF+nR4Cx5Xz+8m427GpqG +haWjodvx6ZxCHxtjnRMLlQWiYaZ6NHHHv2zkZLWNeg1GgX6eYenwCBvPnyjL +lS2MgpreVeHJY2zcz1em63UpCpxlPMFgko1F3k5zWaejIDDhaNuRWTYu3nUB +q4AomKmPz5L/xsbmCYOHF7yiIHbx8p7qRTZW7b1xaHJtFKww5ept/8HGKLeg +rV7mUZB7sHr21y82XnGxOFlPRMH/ADw0WRM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.053019164054740546`}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.053019164054740546`}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VfkbAHAh22Aa+8693HOvLfvuet9KREJE0qZCKUmmFE1cylIkKRJR +lnDPjVKiRAyNpI2yK01oQbaxhZbf+f11ns/zfZ6zvN/vuxza7kMeAfx8fHxC +y/j4/n+d63/6WCup0M42KHxTq7ypXXuuQsSq7ljQiNwgFR4iBSj7ardCdxok +dF2rdAmhQ7g72SXQnQ+LF4vGTUKM4Y9x+bSFrjtw9zcbunzIanhf43popqsB +VuvSlJ8c9AAHrZF3U12vARZfXMsM3g0LXRbpk10D4J9iZ/tlbxg0rikubMuf +hh1/pZ3fqXAKVN4/+LRb7weEGHxS2a+XDDLBO0nhNQJY4VjdDwfTIM3I4aGr +lwhq7JLwUV7IgJ5Mw/qpFRIoPqfs81o4G5IKo1/xK/6BN4ZmpBsNr4H8pcEz +F3OkcfTUmkE3Th4kbHKyez0ni1KtqeVqjAL40ypv59NYBQxbt7/z++NCsJ9Y +jAwZVEJPy+P23zWKIMZ24y4lS1WMUG5oanIthnU7cv+zWK2K0gc5D5I9i0GS +M3rKy0UV0V/1vptPMVxtjCtK9VPFurH2rue7iuG+c/Wo0BlV9C9IvFJwpBgm +fTTDp3tUsds9cqThSjHsODp79vkJNTSovSr05EMxWJddqYiqU8er1Q0uPftK +wL7r5Y/xZnU0zveKzg4uAVc+Qcedr9Ux1N1IZmtoCezxCOmBj+rol7PF//Wx +EnA4QYvmLNdAZ76i7Lz4EghVnytYpauBlz8e2thQUAKP914bawzXwNTLQ+vF +35ZA8LcpTrMEDYfvvU2qs+eC9eFAuU9SNMxuNdimso4LIiO9PAEFGlo5SsqF +r+fCjb7GTjs6DYPNTzhoeHCh/1G63j1zGraIXcly28kFtzir7rydNDxPF5ZT +iuCCsVSMwYlyGjbVviJ3kFzgS5p9nFlJQ+Gkt498SrnwUmC/b+VDGjrSJB+5 +3ebCgVmPuKl/aJgSbBNlWsmFwm6tvr29NPQI2y3S8zcX5K41x28SoGPzX998 +U7q5sKC7ol/fi46PXpu1kQIkzOUoxZj40rG35HGAuRAJM78ztKx20rFWenh5 +nQgJ49NW++2D6CireSHoiQQJAw/3zPmepGNKd1tDhTwJLeurJBNv0FH81PGB +ZbokZB3YAQOzdFT0zFbd60bC5Xf7Bj4v0lGU1XLi0kYSLrn9GTf2i46TNomj +jzxJSDFJfPZNVBOtBi/x/eZDQuxS+ebf1TTxeQcKc/xIOJC0PNTWQRM73qg9 +fBdKgi3v5vWMDE3UZghEBp0noU+Dd21ttiYmjZ/zVLpAQmQGN3fmmiY2hwUW +N6eRUBVTdNWDq4nku7FHqhkkGPtcz5Ss0cQ7s5/vcq+SoL38Umr8B03Mo3mP +ruOSILfzBCdcTwtVfV09iupJuNceEc0w0sI3H7MmhBpI2OR8PKrdTAvTX3j/ +HtBIQprZ0b+MQQuVOqy6FJtIkBA/dHx8oxYOrzmXGvCMBMEHu0MDj2khKXp9 +OK6DhCkpZz/vBi1sH2E4f/1MQncwvXX/Ey006ht6LjNMQn3TIkQ/18JF/5lg +6xESUiN56iWdWvj5G0/o5FcSDAfE3y+MaOFyQ+bN95MkhJS/2p4jzcBNKiZq +ygskeP9W8qJcgYElf50ukV0kwS6Aw25SZeAB9QVviSXq/RSNVCeYDFx99g/6 +zHcSbnLS3qItA/dNRZ28xseDETevrUP+1P1+dJQdFObBa67+s29BDNzOOVpu +LcKDagEhG4lDDORTOv1eUJQHZ6oqlcwjGLjwT1tdqhgPWOoKvQnnGDhOi86N +l+DBiohJp6tpDLyPQ6JsSR58e9384PZlBpo2nS2cpNwcH3GlJ4+Bd9rPBbmt +4MHe8V4f3UoGnlik4agUD1zX3W2Gh9TzldeaJEnzwDw/yXJTPQOjlzK3sGR4 +IORtq3CyhYEb9N6s8pXlQVFtTtfLfgaeyeelXJXnQYp8uOPgIAPdxw5oEwo8 +CD/sWjX/hYG1w/uWblJey/iVoTHNwLXeTMc7ijwYSvbzDhMmUIZmkpytzIOQ +ET26oTiB6w29vYRVeDDvuDA2toJAl8cq90IpiwmkxQUpEShYut7aVpUHhhGN +FX76BPJZr91bqUbFq/M8R82YwNc9GVOS6jxYY7rN5a05gdUD/HIBlL0nZgY3 +I4E3X42uFNPgwckAQtrNk0BG/I5SCxr1fY3/9Yv7EGh2pV/mJOVUjTqyZRuB +GXcFleopF/ZtXu0QSODbAclfdnQerLTSkhQ8QODZez3vIylXZUz2/H2IwBdi +Cn4VlFs2njnMjqDWTetRQ5MHm255sZdOEljmKp3vQfmdOF30QSyBW8NvFsZS +nnxSfd00mcD94/Hn+yhHMhKC/0slUFm44rigFg8ETnla3k4nsKD2p6AuZTm7 +r690rxF4mr9Z5DDl69n3s4cLCMzrNI1Jpay9cHpvcQmBrW+yc0sp3/HeaBJQ +SuC7gSO7minbVqj+ot8hMMTGsuVfyk1/jLT8W0ng+z07euYoux+qzMh9SKCs +kd95MQYPep/H7t5WT6BXU+VXZcp7dNxWKv1DoFJ635QO5a8JyotdTwn8sm3d +NQvK4R8//5P+kkBt3WOzqyjzram44PmGwHnfgRknymevc7b/0U3g0iXBXDfK +Mj9dtF+9JXDdK58pD8o5WxVnkz8QKL/Bd8KTMvHgY73zJwL/zj2d+f/123J3 +kkVGCYzM8xxzpWx9JMqnaYJAneg14+soN7Y5a52eIXBDWWs2UnYxkJ9ctUDg +o6ljc2aUO5MHH/76Qe2vT+VPFmW/kVsJtfxMnGeL3lOkPOz4l+cJYSYOrRtX +FKEcdmOdupU4EzWDB/VnqPh855cdnVvBxO8fA6feUY73+1BZIctEZZz3/4fy +749KY8OUmBjsJn2GpJypHOlqqM7EfhPrHeco0yMclMY1mejkMzp0kPLNTqlP +PBYTbcKKVF0om5u+Lw/SZ+LjmFERFmWniWNOH82Z2DQrs9BNnQ8VI7V4EVsm +xicPuZCUx8MeN+iuYqLvDf6J45Qvza2wDVvPRLxbqyFJOdCy6ni6OxO3u98o +b6fOp1Xk9nv3vZioVxd6MZNy/w/uyl87mShS6eKiQPk2uB+gBzCxVoyn1U6d +/1Mxc8Vr9zPxy9NE93OUWcvX0JKPMPFN0O4b81Q+hYm/lVY8w0QJMQHvm1S+ +2bvGutumMLGz7eVbD8ryqaxzOy8yUa51T80cla810keFinKYqJ+TnmhOWUhZ +csH4DhXv8YG9GVS+d2+rMPOuYuKgcf0TJmVerm9YRA0TLXub4yqpeuFOLx6t +a2Li5TMy6s+VeJCljf0ufUwcKLvb00XVm+ADn5RC/2Wi3V1hu02UoTR588WP +TJRhLBN6SdWrIcOe1p4JJq51K2l8IEfls2VYY6AgC/mXWYqGUfWu0aGwhKPP +woIpcd/A33mQkej8scCYhbcTQ1weUPV0X8sk7YkFC28Qt0pFKUu6srMlVrPQ +3bakLl+cBz5eneeyvFlol5loVknV7697RP6siGahYU6m2B4Bar9y7WvrTrPw +b5FTuhf4eTDRwxF+doaFB3WY/TXLePCf20L2h4sspHP9l8SpfjFvM/JYsoSF +d0LstFOpfsIv81wuqJWFLZPVE/RZqv+5iew60sHCpJlNHJ0ZEpaftedF97Kw +w+JrqcE0CSJ8tZAxxML652MDxlMkSH4t3df4jYVxt1yaVcZIUHx8vlqVpo1x +aZ9p0UMkKP16JqhNaONO9fxuv0ESVKxF3Ex1tXFD8hcLHCBB7TZn0NlMGz0u +Ck3PvydB6+ph8eNO2qhYLBu6vo/qn0c8d7w+rI3PWrt0TrWR1Lwtz5/QoI0J +3PI+6xoShnc7ltg80cbqF5+dRqtJSM475jr5TBurlhs1XnlAwhu17qwtHdr4 +wf94z2QlCX6KV0z0vmijhZljUUI5CRGSygFtEjqYpjfg4lNE9ddvas3KW3Rw +9+Y9FmdTSHCzcAtp3a6DWegFP5JJ+O9otEzcbh0suHA+MCSJBKvp937jB3TQ +o+CQ7PpEEprGri/UR+mgGHwSGo8h4f0AXTewUAdJ/RNPe4+QIPWCSLk9oYP+ +SwtbN20h4eeE4Y2WGR1kCQsqBG4mYUTKpmZoQQdd116oOupFQoOP24iCoC5W +RKYXplDz2J9DxxxiFHTx7r3JDcVOJLQvNf/cuEoXB+ems49YUfObzoFD02m6 ++DNXWD2OmvdUEm+5m5vrYZJIGL3sBRfIstLGBWs9NGvG/n3PuGDZwTOvBT2M +T6dN055yYRO9RMXeSQ+PLFvSOf+YC8k1179s3KaHBzztPns95MLS5AXOwVg9 +fFo0YJJewoXeLUduF77Uw3GHvUb/xnAhU9dqhfRefRzuK8hvNeBCi9Iqs+kL +K9Gtsd5ZN6oErFUaUg06DfBzZsZ3lWLq/0Ig/8iuWEOU6186nPS8CNRi1G23 +EEaYK/ivU/arGyDK2Fbp8cQIT96154a2FMJKtuKtY9uN8e2tlkbnlwUQ1i/V +6MxngpZEdFhSZT5MTCd7OWWaYNWl+ZXKZXngaNCU5aRvikElL0JXkNfh0bTN +0vxLU4ya6NQpoF+DED3j3rYAM8xTronwV80B9rh/+xZRc2Ta7Ux8N58Fa7UU +Nkjkm6PTTVfXQ4JXgMU5e7zBwgLzB67LmOhcBp0AqzpGrwXakqcXgm3SIeDR +vtMVhy0xkPfi82DMRai73u4/JWuFbRucvCUfXoCZkl/zBlVW6BR7UzZDNhX2 +MHiiWRuscX/ug/JFh3MwpXPR/M6kNW7MNFQJ2XwW7hcufZhNtMHdzIz6F08T +wNdeE23UbNHh17pT+UfjQPlgwoOV9bb4c9rXtFf9FMiKBZdv2MzGEfFKiQ61 +GChcczJycgsbyyK9N66WiwHjkylrLm5jo/w8f8cdiRhwnbzd0b2LjY5l9lk5 +3zkQ3zm7sCeYjYGiVeJZvRz4lh+9OjKGjQvLUqRWXuZAr83FN0U8Nm6m51x5 +JMWBfUcLrzqVsXFMcEdjmhgH5sruBXy9zcbc5cVK+/k5IEXvnjeqZGPniY5c ++6FoWC+iqlJbz8bk7+Uxhwuioaa9yP9NBxttajPDF+nR4Cx5Xz+8m427GpqG +haWjodvx6ZxCHxtjnRMLlQWiYaZ6NHHHv2zkZLWNeg1GgX6eYenwCBvPnyjL +lS2MgpreVeHJY2zcz1em63UpCpxlPMFgko1F3k5zWaejIDDhaNuRWTYu3nUB +q4AomKmPz5L/xsbmCYOHF7yiIHbx8p7qRTZW7b1xaHJtFKww5ept/8HGKLeg +rV7mUZB7sHr21y82XnGxOFlPRMH/ADw0WRM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.053019164054740546`}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.053019164054740546`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939116451609497`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"7d86889d-1f9a-475e-afa8-b224803f2864"] +}, Open ]], Cell[CellGroupData[{ @@ -2599,14 +7958,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ -52adca93b0cf"], + CellChangeTimes->{3.9918497405884743`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[BoxData["12.55365498952246`"], "Output", - CellChangeTimes->{3.991340544411957*^9}, - CellLabel-> - "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[BoxData["14.385526833371523`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.993911645197796*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"9537a4dd-e65f-48b0-9fa4-97b40538d7bb"] }, Open ]], Cell[CellGroupData[{ @@ -2662,157 +8019,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ -d2b12a49fd20"], + CellChangeTimes->{3.991849742961588*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.5937515579389638`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 99, + 13, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.99391164528916*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"9954908a-b822-410e-80fe-d18b25bfdf72"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.176211740125045`*^-269\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 341, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544611845*^9}, + 2, 99, 14, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.993911645295361*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +In[99]:=",ExpressionUUID->"45d804dc-815e-404d-a1b9-be2566dc09f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.333872680956833`*^-280\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 342, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913405446218624`*^9}, + 2, 99, 15, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.9939116453023653`*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ -\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 338, 343, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544630844*^9}, - CellLabel-> - "During evaluation of \ -In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +In[99]:=",ExpressionUUID->"861092aa-55b3-4752-839a-a92568585ed4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544639845*^9}, +during this calculation.\"", 2, 99, 16, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.993911645309524*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +In[99]:=",ExpressionUUID->"65982ec0-9058-4cb4-a3c4-d012dc92e072"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Fe0bB3BRUuEVKWTJ4cw5trJnO+47pCh7SlKJaCGVVChZUikqUUKy +RJwzh0JSluJHipSSshYt2hB6s5b4Pe9fc32uuWaumWee+76/o+y139lHUEBA +QHiWgMB/x7HuhkeqsTnmDd4Gk/mjeuav02VCVrVHwVnJ6zuZDpKA0i+8ZNoT +wGDTcqcpewYccaTbhNpvwIUFxhWf7HVh4eCShMm2YnirvAOe2FtAT6X9/pG2 +GkiMbTEPtncGa9W+dz/bXkHTsitVdnZeMNm28spw20eQ+phlXLA2EGot83Ka +b/wCj7XZ+QoTUSDfU/bFS/MvcBIVm6m/sbDIfzs911IILRY4JGfZJ0CCjnWF +vasIUnnCBoEtSdCRrF39U0IMn4fG5um+TYXYnPAXgrIL8eodk66DM+mw5PKn +s4nXpZBNN9fZ+mTBmQ025q/GpFFo7vY+R5FsOGSctb0hSgaX7LczqsjNAauh +36EBn+TwyXD+n9ZZuRBp5rRDzkgBD/hqJumtyIO129L/XWmhgPO487Mn9PJA +PKL/pOt6BTxfN1VbbpQHabWncuM9FZAlMoWGFnlw37a8X/isAvJbcpTmu+bB +sJvKkV8dCmiz54IeMzQPth0ePffsmCJqpy8YpWrywORWSsmJKiW0lR59vd6G +C1ZtTX8H65UwMnqntIQdF+wFZq/Z/koJYy0lq146csHbOaADPith2vEKO1s3 +LlgfUw6PmLMMS+t2uCru4sIBpbHsVRrL8F6n54RNNBce7cr4UXtkGZ71HR6/ +VckF/4mfEfViynhZcnd+PpMHJgd9F3+RVEbL6MlQUTUeiPR18oVklPHb3n6T +PZo8uNlV22rOUMZj+8YvyOrxoPvhFc27hsqo9Y9gjCvywOGUcXvWdmX0yfar +MXHnga5k5IpjRcq4Ve1IWnksDwRiRx8llyqj7kTDzfsXeNAktNe9tEIZL6R2 +Zt25xAO/UedTP+uUUe7rqcDMqzzIaVft2tWpjM5pAcGu2TxYnFF/eoMQA5UG +nmholfNgUkOiW8uVgSfX+EwmfubB2HW5SD13Bq7XV9mi+o0HI/8wVY23M3Cd +/KkXRX08GPxlvNdqDwOtrjwdrh3iwccK7zH3MAaGLUmQrZvkwdN198RjbjKw +/28ky1SMhlS/bfBxlIF5c1T8x3VouPpu98evvxl4uqs/SF2fhssOh079mGHg +WIlIkrshDRf0Yhon5qnguZgljGITGqL+FG36R1EF10LSLnNLGvxi5xwws1ZB +9l/NzkYXGsz4+ZlJSSqYWmUxrzKQhq5l/IzV11SwIHBkODCIhtAkXvpIhgr6 +/o13Yx2h4V5kbpozTwUDVu/nxoTQoOuWmSxeqYJWexc7aUXQoDbncvzpDyoY +kzoxOR1Hw+LtxyKOaKqicttXj7ocGu6+Dgln6qiiZtyTe5q5NGywDT7x2kAV +zdbtS72UR0OCweHjuqCKOj8VJ1xoGsRE9wcPOqnioG+FfMVtGmaXeR3wPaqK +DDVRG6lyGn5K2npurFHFgr9+uj+e0dDuz3i594kqrh3wKlNooqH68W8If6aK +0+9TvNe9oCE+lK/EbVVFqbVeKunNNGh/FO2Z7FPF8y8Ltyi30hBQ9GLrdSkm +yjoeWpDRTcPGBdznRTJMTGRGjGf10GDuE8F5rMBEqn+f2I335PlkdRSGWExs +FL55P+UjDfkRCW/RjIkXerkyu77Q0OfguqV3JxM7HOt3hP6g4RVPq3FiDxPf +ikQucxykoVxI2FRsPxN3HNeTUBmi4ey9UjnDECZeerclunqYBraSTOeZ80w0 +6r/9rOMXDRIhwzZpCUx8cpu9LGWEholX9WWFV5n46rQL13WUhvrTISkdWUwU +VctxezxGw67BTjeNUiY6HY61Pj1Jg/3aO/VQwcTR7v71K37TYHgj1mhDNROD +D7TEviEW3mgmE/aUiSJzNe7KTtGQ++B6W1M3E9WTymojpmnojfPcGDiXwuOT +hfBUkA8BfZoMbVEKr4XueGEuxIfxNZM/fkhQ6JKh9buQeL5Qwqk9chTOkahj +XJjNB+2Q2hJPLQp7ve43agjzobz1YoSiLoWWcQvwPLGlvsf6t4YUvuN0OQ8Q +bxwa+bQJKTzQmOuaPZcPYT6UlIMLhTsPTXeNiPBBuPbfblE3CosjLR0t5/Eh +flkV/dSDwr+nQ30vEud0bbKw9qUw2yA8dNl8Piw3VhWf7UfhKpHlIT7E95KG +O/63n0IF1UtLucRPnc4e5IRQuHba2I5awIcNt105f8IoVNrt/W4H8TtRxryy +KAp/HRSRukY8/KQ8Uz+Owvdq8QeERfkQyjzj/288heUCm1OMiIVOuhgVXqHw +bv2ePbuJF5sPvNDIoPDtJ91Z/yPOvHb/2vdsCrvbWhq+E6tNRu/K41J4cPq8 +qYQYH4o3Oun5FFDI8W/dqE9sVqIwwyimcHk0Q34j8eOFfU/fl1JoMf419jCx +4/7SpPQKCp0epeUmEHc+i/LyqKZwZOU9/wJib3WH5XJ1FG4fKOiuIx44s/R3 +WwOFag3jU13ERz5/rbvSRKG6kGj9ELGAZckllxYKN8t74SxxPpzLjNi6sJ3C +y58O+koQL5per/biLYXhQXdMFIivb5EdjftAoefKjAcsYqrsc7XtFwq/vy8Y +WkFcuLg4TqSfwmWBbs0GxCZBJ9weD1EoYyTjbUxc22yrGj1CYV+j700T4vUr +lgyvmqQwWPJh8n/nW+M+Vcz8pdDaLJljSOzZd/vMA0EW2tTtv6xN/H3NcZdj +c1nYFlR1nU0ceHOtkrEoC7dtFXRXJJ4SlO4fk2Ch3ds7DQuJT3t+KC2RZmFH +isMPQeJ/HhZEBcqxcCLGqe4nef/kpaH22kosFPlq4NxNzAixlhtUYeEz05DL +9cT5rZJf+GwWUpuT4wqJDfV7ivZosXDIXcI0idhm6KjNZ0MWxg8IPHAnltdR +PC1ixkJH8y1FhsSDgY9qNFaxMPlDwMQ/xJfHJMwC17FQssA6spzsB1+je8FX +HFnYLGP/KJbYOHTr3fuuLEz3uOLhTtz9l7d8ZjsLKyHg4hDZj4Xg6MfwYWHi +KmuNUuKTkWN5q/eycLqnTzGUmD3HUjkuiIWzJtUlfpP9Hij6Vkr2LAuj7RM1 +O0m9WNlHOZpdYGGjTmdyLPGSePb57YkslLor62VCXCl1WDj3OguPtyuJx/9X +f0vFJ3WLWSjoTHcvJfXZ7lFisPEeC4vWS6++T+qXn+4eGFLJwhMqD8SciR0Z +ef1Vj1kYlexfHzaHD6lq2L2+i4Ue9MzoXdIv/P2+yB14z8LVY0KRHGIoiNuU ++JlcL5l1qIb0m17tjpcdQ+T9ctwTHs0i9WwUWOs7m42PqprreTM0CITKCJyb +x8ZnCZnZ8sQtFQ/NCsTZ+NvzWH8c6V/BsKD0lwwbZddL1/n8paHWOocbocXG +8nztOxOk/yXF2H7O1mXjYfU78zYR7346rPxkJRtDohpfFZP+KW7PuSZmwUZb +57NVXhM0uLm2nk/dyMa7Je8W55D+O+AtcqgknI37zqlvKSD9fDDd6kFVNBvT +NAs+fSH9fqgjYm7jWTb221nOUiT+12Hy2odENnbzvaejB2gYN+17JM5lY/yq +FCnD7zQILnq2eM9LNpbgpCWTzJfZDiI7gt6w0VlI+oDRBxrmnLPih3eysbLa +zsyGzCMRgQeQ1MtG/aGP97zJ/BIfKNhdO8FGnburHY530iD76GK5grIaBllr +XDd7RYPcTONsNUoNhbfcUlIn81DeRMRBX0MNw6tv2Em/pEGxMOKTrYEabgp8 +eKv3OQ2qaQdFg23I+bjvKbsayPwMctn26qAaJvrpl05X0SRvLxE8U6OGM2ef +MY/yafjutYZr+kQNK46N9uqSeR6XddR+uFENRwyciga45PsotqdufqOG+a0S +Qe4kD3jKpuhpflPDhImGYsUsGkLEl/o0i6mjRcmZdNskMl8nFOuXblbHN+XV +J/XDaXBY6RDwcqs6RjZ0yd0JI+t5OHzRKS913DlboGXFcRqMf/V4DvqpY822 +Pq4KySuPf2ROVp9QR8mwqakRknd6PjI0fHPUcfVlu9fmvjRIPqcuFA6pYzwv +v+zQOhqmh7RvPh1Rx4CyCv0EGzLPJU0reyfVMVN78PKtNTTUuDn0yczWwMxj +4iIfSL461HvUOlJGAxuzw19qmtHw+k/9tNMqDaw68z7HU5PkN3W//b8SNFDQ +w9MUFpD1jrntaGioiZ1VKkVza3lA3yqonTTRxI8drilN1TwwesM3fACaaDNl +2JX4kAcbGFx5KxtNzNB/GyBL8mdcZeY3Jw9NPKt86btEEQ/+DF+K2Belic/l +BhuL0nnQuTmoMKdJE/17qiyrg3mQrGEsIbVLi+SVOZZGbJI35VYZ/Lq0HOk0 +DsSHcMFEviZ+ResK7Pkqf6v4Jvm/ELoRtCNKG4fHhyxmN+WCYqSS2WZKB9+4 +TFxc+PomzGN6lDo/0cENRy4p85pzYDlH9vbRrbroPfXm2Je2bAjslqy1FdDD +QLUQxeiaGzD0K87VJlkP90QfaharzII1Kx6n2mjp43cnWrGsLBMe/jL9M96k +j+4ZU2eYqzMgQFO3s9nHALXS8nZ5WVwHzuDO15vnGSI9qGMlpHQNVqvK2Ind +MMTD+g93y2mlADviXHDNypUounO3S5/LVVD3Ma5idq7Eb2vmHW/yuQI+D3dH +lxw0Qo/E5MjQ/ESoyny986e0Mf5+n3Ix6PMlGOHOjK+4Z4yqg5XC/hAP3kz+ +vFQ7E5xjFfxnJvk8/FRPNCweNkG0q8hYkncO7uf8+TAaY4ryxSvnv1gcA+5W +KmiqaIaet85b3Ko6BUv3nSlbXm2GW+m5idt8T4L0fP8iu00cbAyI7GnZEQk5 +lmGhw5s52DSHJ6izORJ0wy5YJnpwMGvx/7wuOUaC/XDhm/YdHJwMS2vbApFw +unV00tufg8vb30cvUYiEiRvhFqGRHGRpBB1S64iATtPEllw+B5f2fqu84xIB +uw/npNnc4qBe/Df/o+siYOzWXZ+BQg5Wb/qzxtwyAiQZ7eM6pRxs+TI37I1u +BKwTUZB/UM3BxOq9r9QkI6Dyde7Oljcc5MYctmu5EQ624ve1jrRzMCPB9GRV +Qji0r2kYk+ni4PSbdVNFUeEwUt4fs+09B4u9TtzheYWDVpZ2wfc+Dpr6HVzU +ywiHys5VR+J+cLDHrcVCUIrcb5ELrBjmYAm/laaEwsH3zOHmoFEOvu/5wIj6 +dAJGqk+nLpng4NXjwdplLScg6vdV7/LfHOwYex44VnsCJPR5mlv/cvCaKfeb +cckJSN9XPjozw0HXm8/iT+acgP8DBAVnzg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2826,116 +8186,116 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV13k4Fe0bB3BRUuEVKWTJ4cw5trJnO+47pCh7SlKJaCGVVChZUikqUUKy +RJwzh0JSluJHipSSshYt2hB6s5b4Pe9fc32uuWaumWee+76/o+y139lHUEBA +QHiWgMB/x7HuhkeqsTnmDd4Gk/mjeuav02VCVrVHwVnJ6zuZDpKA0i+8ZNoT +wGDTcqcpewYccaTbhNpvwIUFxhWf7HVh4eCShMm2YnirvAOe2FtAT6X9/pG2 +GkiMbTEPtncGa9W+dz/bXkHTsitVdnZeMNm28spw20eQ+phlXLA2EGot83Ka +b/wCj7XZ+QoTUSDfU/bFS/MvcBIVm6m/sbDIfzs911IILRY4JGfZJ0CCjnWF +vasIUnnCBoEtSdCRrF39U0IMn4fG5um+TYXYnPAXgrIL8eodk66DM+mw5PKn +s4nXpZBNN9fZ+mTBmQ025q/GpFFo7vY+R5FsOGSctb0hSgaX7LczqsjNAauh +36EBn+TwyXD+n9ZZuRBp5rRDzkgBD/hqJumtyIO129L/XWmhgPO487Mn9PJA +PKL/pOt6BTxfN1VbbpQHabWncuM9FZAlMoWGFnlw37a8X/isAvJbcpTmu+bB +sJvKkV8dCmiz54IeMzQPth0ePffsmCJqpy8YpWrywORWSsmJKiW0lR59vd6G +C1ZtTX8H65UwMnqntIQdF+wFZq/Z/koJYy0lq146csHbOaADPith2vEKO1s3 +LlgfUw6PmLMMS+t2uCru4sIBpbHsVRrL8F6n54RNNBce7cr4UXtkGZ71HR6/ +VckF/4mfEfViynhZcnd+PpMHJgd9F3+RVEbL6MlQUTUeiPR18oVklPHb3n6T +PZo8uNlV22rOUMZj+8YvyOrxoPvhFc27hsqo9Y9gjCvywOGUcXvWdmX0yfar +MXHnga5k5IpjRcq4Ve1IWnksDwRiRx8llyqj7kTDzfsXeNAktNe9tEIZL6R2 +Zt25xAO/UedTP+uUUe7rqcDMqzzIaVft2tWpjM5pAcGu2TxYnFF/eoMQA5UG +nmholfNgUkOiW8uVgSfX+EwmfubB2HW5SD13Bq7XV9mi+o0HI/8wVY23M3Cd +/KkXRX08GPxlvNdqDwOtrjwdrh3iwccK7zH3MAaGLUmQrZvkwdN198RjbjKw +/28ky1SMhlS/bfBxlIF5c1T8x3VouPpu98evvxl4uqs/SF2fhssOh079mGHg +WIlIkrshDRf0Yhon5qnguZgljGITGqL+FG36R1EF10LSLnNLGvxi5xwws1ZB +9l/NzkYXGsz4+ZlJSSqYWmUxrzKQhq5l/IzV11SwIHBkODCIhtAkXvpIhgr6 +/o13Yx2h4V5kbpozTwUDVu/nxoTQoOuWmSxeqYJWexc7aUXQoDbncvzpDyoY +kzoxOR1Hw+LtxyKOaKqicttXj7ocGu6+Dgln6qiiZtyTe5q5NGywDT7x2kAV +zdbtS72UR0OCweHjuqCKOj8VJ1xoGsRE9wcPOqnioG+FfMVtGmaXeR3wPaqK +DDVRG6lyGn5K2npurFHFgr9+uj+e0dDuz3i594kqrh3wKlNooqH68W8If6aK +0+9TvNe9oCE+lK/EbVVFqbVeKunNNGh/FO2Z7FPF8y8Ltyi30hBQ9GLrdSkm +yjoeWpDRTcPGBdznRTJMTGRGjGf10GDuE8F5rMBEqn+f2I335PlkdRSGWExs +FL55P+UjDfkRCW/RjIkXerkyu77Q0OfguqV3JxM7HOt3hP6g4RVPq3FiDxPf +ikQucxykoVxI2FRsPxN3HNeTUBmi4ey9UjnDECZeerclunqYBraSTOeZ80w0 +6r/9rOMXDRIhwzZpCUx8cpu9LGWEholX9WWFV5n46rQL13WUhvrTISkdWUwU +VctxezxGw67BTjeNUiY6HY61Pj1Jg/3aO/VQwcTR7v71K37TYHgj1mhDNROD +D7TEviEW3mgmE/aUiSJzNe7KTtGQ++B6W1M3E9WTymojpmnojfPcGDiXwuOT +hfBUkA8BfZoMbVEKr4XueGEuxIfxNZM/fkhQ6JKh9buQeL5Qwqk9chTOkahj +XJjNB+2Q2hJPLQp7ve43agjzobz1YoSiLoWWcQvwPLGlvsf6t4YUvuN0OQ8Q +bxwa+bQJKTzQmOuaPZcPYT6UlIMLhTsPTXeNiPBBuPbfblE3CosjLR0t5/Eh +flkV/dSDwr+nQ30vEud0bbKw9qUw2yA8dNl8Piw3VhWf7UfhKpHlIT7E95KG +O/63n0IF1UtLucRPnc4e5IRQuHba2I5awIcNt105f8IoVNrt/W4H8TtRxryy +KAp/HRSRukY8/KQ8Uz+Owvdq8QeERfkQyjzj/288heUCm1OMiIVOuhgVXqHw +bv2ePbuJF5sPvNDIoPDtJ91Z/yPOvHb/2vdsCrvbWhq+E6tNRu/K41J4cPq8 +qYQYH4o3Oun5FFDI8W/dqE9sVqIwwyimcHk0Q34j8eOFfU/fl1JoMf419jCx +4/7SpPQKCp0epeUmEHc+i/LyqKZwZOU9/wJib3WH5XJ1FG4fKOiuIx44s/R3 +WwOFag3jU13ERz5/rbvSRKG6kGj9ELGAZckllxYKN8t74SxxPpzLjNi6sJ3C +y58O+koQL5per/biLYXhQXdMFIivb5EdjftAoefKjAcsYqrsc7XtFwq/vy8Y +WkFcuLg4TqSfwmWBbs0GxCZBJ9weD1EoYyTjbUxc22yrGj1CYV+j700T4vUr +lgyvmqQwWPJh8n/nW+M+Vcz8pdDaLJljSOzZd/vMA0EW2tTtv6xN/H3NcZdj +c1nYFlR1nU0ceHOtkrEoC7dtFXRXJJ4SlO4fk2Ch3ds7DQuJT3t+KC2RZmFH +isMPQeJ/HhZEBcqxcCLGqe4nef/kpaH22kosFPlq4NxNzAixlhtUYeEz05DL +9cT5rZJf+GwWUpuT4wqJDfV7ivZosXDIXcI0idhm6KjNZ0MWxg8IPHAnltdR +PC1ixkJH8y1FhsSDgY9qNFaxMPlDwMQ/xJfHJMwC17FQssA6spzsB1+je8FX +HFnYLGP/KJbYOHTr3fuuLEz3uOLhTtz9l7d8ZjsLKyHg4hDZj4Xg6MfwYWHi +KmuNUuKTkWN5q/eycLqnTzGUmD3HUjkuiIWzJtUlfpP9Hij6Vkr2LAuj7RM1 +O0m9WNlHOZpdYGGjTmdyLPGSePb57YkslLor62VCXCl1WDj3OguPtyuJx/9X +f0vFJ3WLWSjoTHcvJfXZ7lFisPEeC4vWS6++T+qXn+4eGFLJwhMqD8SciR0Z +ef1Vj1kYlexfHzaHD6lq2L2+i4Ue9MzoXdIv/P2+yB14z8LVY0KRHGIoiNuU ++JlcL5l1qIb0m17tjpcdQ+T9ctwTHs0i9WwUWOs7m42PqprreTM0CITKCJyb +x8ZnCZnZ8sQtFQ/NCsTZ+NvzWH8c6V/BsKD0lwwbZddL1/n8paHWOocbocXG +8nztOxOk/yXF2H7O1mXjYfU78zYR7346rPxkJRtDohpfFZP+KW7PuSZmwUZb +57NVXhM0uLm2nk/dyMa7Je8W55D+O+AtcqgknI37zqlvKSD9fDDd6kFVNBvT +NAs+fSH9fqgjYm7jWTb221nOUiT+12Hy2odENnbzvaejB2gYN+17JM5lY/yq +FCnD7zQILnq2eM9LNpbgpCWTzJfZDiI7gt6w0VlI+oDRBxrmnLPih3eysbLa +zsyGzCMRgQeQ1MtG/aGP97zJ/BIfKNhdO8FGnburHY530iD76GK5grIaBllr +XDd7RYPcTONsNUoNhbfcUlIn81DeRMRBX0MNw6tv2Em/pEGxMOKTrYEabgp8 +eKv3OQ2qaQdFg23I+bjvKbsayPwMctn26qAaJvrpl05X0SRvLxE8U6OGM2ef +MY/yafjutYZr+kQNK46N9uqSeR6XddR+uFENRwyciga45PsotqdufqOG+a0S +Qe4kD3jKpuhpflPDhImGYsUsGkLEl/o0i6mjRcmZdNskMl8nFOuXblbHN+XV +J/XDaXBY6RDwcqs6RjZ0yd0JI+t5OHzRKS913DlboGXFcRqMf/V4DvqpY822 +Pq4KySuPf2ROVp9QR8mwqakRknd6PjI0fHPUcfVlu9fmvjRIPqcuFA6pYzwv +v+zQOhqmh7RvPh1Rx4CyCv0EGzLPJU0reyfVMVN78PKtNTTUuDn0yczWwMxj +4iIfSL461HvUOlJGAxuzw19qmtHw+k/9tNMqDaw68z7HU5PkN3W//b8SNFDQ +w9MUFpD1jrntaGioiZ1VKkVza3lA3yqonTTRxI8drilN1TwwesM3fACaaDNl +2JX4kAcbGFx5KxtNzNB/GyBL8mdcZeY3Jw9NPKt86btEEQ/+DF+K2Belic/l +BhuL0nnQuTmoMKdJE/17qiyrg3mQrGEsIbVLi+SVOZZGbJI35VYZ/Lq0HOk0 +DsSHcMFEviZ+ResK7Pkqf6v4Jvm/ELoRtCNKG4fHhyxmN+WCYqSS2WZKB9+4 +TFxc+PomzGN6lDo/0cENRy4p85pzYDlH9vbRrbroPfXm2Je2bAjslqy1FdDD +QLUQxeiaGzD0K87VJlkP90QfaharzII1Kx6n2mjp43cnWrGsLBMe/jL9M96k +j+4ZU2eYqzMgQFO3s9nHALXS8nZ5WVwHzuDO15vnGSI9qGMlpHQNVqvK2Ind +MMTD+g93y2mlADviXHDNypUounO3S5/LVVD3Ma5idq7Eb2vmHW/yuQI+D3dH +lxw0Qo/E5MjQ/ESoyny986e0Mf5+n3Ix6PMlGOHOjK+4Z4yqg5XC/hAP3kz+ +vFQ7E5xjFfxnJvk8/FRPNCweNkG0q8hYkncO7uf8+TAaY4ryxSvnv1gcA+5W +KmiqaIaet85b3Ko6BUv3nSlbXm2GW+m5idt8T4L0fP8iu00cbAyI7GnZEQk5 +lmGhw5s52DSHJ6izORJ0wy5YJnpwMGvx/7wuOUaC/XDhm/YdHJwMS2vbApFw +unV00tufg8vb30cvUYiEiRvhFqGRHGRpBB1S64iATtPEllw+B5f2fqu84xIB +uw/npNnc4qBe/Df/o+siYOzWXZ+BQg5Wb/qzxtwyAiQZ7eM6pRxs+TI37I1u +BKwTUZB/UM3BxOq9r9QkI6Dyde7Oljcc5MYctmu5EQ624ve1jrRzMCPB9GRV +Qji0r2kYk+ni4PSbdVNFUeEwUt4fs+09B4u9TtzheYWDVpZ2wfc+Dpr6HVzU +ywiHys5VR+J+cLDHrcVCUIrcb5ELrBjmYAm/laaEwsH3zOHmoFEOvu/5wIj6 +dAJGqk+nLpng4NXjwdplLScg6vdV7/LfHOwYex44VnsCJPR5mlv/cvCaKfeb +cckJSN9XPjozw0HXm8/iT+acgP8DBAVnzg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05284293431341054}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2947,19 +8307,19 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05284293431341054}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2973,115 +8333,115 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV13k4Fe0bB3BRUuEVKWTJ4cw5trJnO+47pCh7SlKJaCGVVChZUikqUUKy +RJwzh0JSluJHipSSshYt2hB6s5b4Pe9fc32uuWaumWee+76/o+y139lHUEBA +QHiWgMB/x7HuhkeqsTnmDd4Gk/mjeuav02VCVrVHwVnJ6zuZDpKA0i+8ZNoT +wGDTcqcpewYccaTbhNpvwIUFxhWf7HVh4eCShMm2YnirvAOe2FtAT6X9/pG2 +GkiMbTEPtncGa9W+dz/bXkHTsitVdnZeMNm28spw20eQ+phlXLA2EGot83Ka +b/wCj7XZ+QoTUSDfU/bFS/MvcBIVm6m/sbDIfzs911IILRY4JGfZJ0CCjnWF +vasIUnnCBoEtSdCRrF39U0IMn4fG5um+TYXYnPAXgrIL8eodk66DM+mw5PKn +s4nXpZBNN9fZ+mTBmQ025q/GpFFo7vY+R5FsOGSctb0hSgaX7LczqsjNAauh +36EBn+TwyXD+n9ZZuRBp5rRDzkgBD/hqJumtyIO129L/XWmhgPO487Mn9PJA +PKL/pOt6BTxfN1VbbpQHabWncuM9FZAlMoWGFnlw37a8X/isAvJbcpTmu+bB +sJvKkV8dCmiz54IeMzQPth0ePffsmCJqpy8YpWrywORWSsmJKiW0lR59vd6G +C1ZtTX8H65UwMnqntIQdF+wFZq/Z/koJYy0lq146csHbOaADPith2vEKO1s3 +LlgfUw6PmLMMS+t2uCru4sIBpbHsVRrL8F6n54RNNBce7cr4UXtkGZ71HR6/ +VckF/4mfEfViynhZcnd+PpMHJgd9F3+RVEbL6MlQUTUeiPR18oVklPHb3n6T +PZo8uNlV22rOUMZj+8YvyOrxoPvhFc27hsqo9Y9gjCvywOGUcXvWdmX0yfar +MXHnga5k5IpjRcq4Ve1IWnksDwRiRx8llyqj7kTDzfsXeNAktNe9tEIZL6R2 +Zt25xAO/UedTP+uUUe7rqcDMqzzIaVft2tWpjM5pAcGu2TxYnFF/eoMQA5UG +nmholfNgUkOiW8uVgSfX+EwmfubB2HW5SD13Bq7XV9mi+o0HI/8wVY23M3Cd +/KkXRX08GPxlvNdqDwOtrjwdrh3iwccK7zH3MAaGLUmQrZvkwdN198RjbjKw +/28ky1SMhlS/bfBxlIF5c1T8x3VouPpu98evvxl4uqs/SF2fhssOh079mGHg +WIlIkrshDRf0Yhon5qnguZgljGITGqL+FG36R1EF10LSLnNLGvxi5xwws1ZB +9l/NzkYXGsz4+ZlJSSqYWmUxrzKQhq5l/IzV11SwIHBkODCIhtAkXvpIhgr6 +/o13Yx2h4V5kbpozTwUDVu/nxoTQoOuWmSxeqYJWexc7aUXQoDbncvzpDyoY +kzoxOR1Hw+LtxyKOaKqicttXj7ocGu6+Dgln6qiiZtyTe5q5NGywDT7x2kAV +zdbtS72UR0OCweHjuqCKOj8VJ1xoGsRE9wcPOqnioG+FfMVtGmaXeR3wPaqK +DDVRG6lyGn5K2npurFHFgr9+uj+e0dDuz3i594kqrh3wKlNooqH68W8If6aK +0+9TvNe9oCE+lK/EbVVFqbVeKunNNGh/FO2Z7FPF8y8Ltyi30hBQ9GLrdSkm +yjoeWpDRTcPGBdznRTJMTGRGjGf10GDuE8F5rMBEqn+f2I335PlkdRSGWExs +FL55P+UjDfkRCW/RjIkXerkyu77Q0OfguqV3JxM7HOt3hP6g4RVPq3FiDxPf +ikQucxykoVxI2FRsPxN3HNeTUBmi4ey9UjnDECZeerclunqYBraSTOeZ80w0 +6r/9rOMXDRIhwzZpCUx8cpu9LGWEholX9WWFV5n46rQL13WUhvrTISkdWUwU +VctxezxGw67BTjeNUiY6HY61Pj1Jg/3aO/VQwcTR7v71K37TYHgj1mhDNROD +D7TEviEW3mgmE/aUiSJzNe7KTtGQ++B6W1M3E9WTymojpmnojfPcGDiXwuOT +hfBUkA8BfZoMbVEKr4XueGEuxIfxNZM/fkhQ6JKh9buQeL5Qwqk9chTOkahj +XJjNB+2Q2hJPLQp7ve43agjzobz1YoSiLoWWcQvwPLGlvsf6t4YUvuN0OQ8Q +bxwa+bQJKTzQmOuaPZcPYT6UlIMLhTsPTXeNiPBBuPbfblE3CosjLR0t5/Eh +flkV/dSDwr+nQ30vEud0bbKw9qUw2yA8dNl8Piw3VhWf7UfhKpHlIT7E95KG +O/63n0IF1UtLucRPnc4e5IRQuHba2I5awIcNt105f8IoVNrt/W4H8TtRxryy +KAp/HRSRukY8/KQ8Uz+Owvdq8QeERfkQyjzj/288heUCm1OMiIVOuhgVXqHw +bv2ePbuJF5sPvNDIoPDtJ91Z/yPOvHb/2vdsCrvbWhq+E6tNRu/K41J4cPq8 +qYQYH4o3Oun5FFDI8W/dqE9sVqIwwyimcHk0Q34j8eOFfU/fl1JoMf419jCx +4/7SpPQKCp0epeUmEHc+i/LyqKZwZOU9/wJib3WH5XJ1FG4fKOiuIx44s/R3 +WwOFag3jU13ERz5/rbvSRKG6kGj9ELGAZckllxYKN8t74SxxPpzLjNi6sJ3C +y58O+koQL5per/biLYXhQXdMFIivb5EdjftAoefKjAcsYqrsc7XtFwq/vy8Y +WkFcuLg4TqSfwmWBbs0GxCZBJ9weD1EoYyTjbUxc22yrGj1CYV+j700T4vUr +lgyvmqQwWPJh8n/nW+M+Vcz8pdDaLJljSOzZd/vMA0EW2tTtv6xN/H3NcZdj +c1nYFlR1nU0ceHOtkrEoC7dtFXRXJJ4SlO4fk2Ch3ds7DQuJT3t+KC2RZmFH +isMPQeJ/HhZEBcqxcCLGqe4nef/kpaH22kosFPlq4NxNzAixlhtUYeEz05DL +9cT5rZJf+GwWUpuT4wqJDfV7ivZosXDIXcI0idhm6KjNZ0MWxg8IPHAnltdR +PC1ixkJH8y1FhsSDgY9qNFaxMPlDwMQ/xJfHJMwC17FQssA6spzsB1+je8FX +HFnYLGP/KJbYOHTr3fuuLEz3uOLhTtz9l7d8ZjsLKyHg4hDZj4Xg6MfwYWHi +KmuNUuKTkWN5q/eycLqnTzGUmD3HUjkuiIWzJtUlfpP9Hij6Vkr2LAuj7RM1 +O0m9WNlHOZpdYGGjTmdyLPGSePb57YkslLor62VCXCl1WDj3OguPtyuJx/9X +f0vFJ3WLWSjoTHcvJfXZ7lFisPEeC4vWS6++T+qXn+4eGFLJwhMqD8SciR0Z +ef1Vj1kYlexfHzaHD6lq2L2+i4Ue9MzoXdIv/P2+yB14z8LVY0KRHGIoiNuU ++JlcL5l1qIb0m17tjpcdQ+T9ctwTHs0i9WwUWOs7m42PqprreTM0CITKCJyb +x8ZnCZnZ8sQtFQ/NCsTZ+NvzWH8c6V/BsKD0lwwbZddL1/n8paHWOocbocXG +8nztOxOk/yXF2H7O1mXjYfU78zYR7346rPxkJRtDohpfFZP+KW7PuSZmwUZb +57NVXhM0uLm2nk/dyMa7Je8W55D+O+AtcqgknI37zqlvKSD9fDDd6kFVNBvT +NAs+fSH9fqgjYm7jWTb221nOUiT+12Hy2odENnbzvaejB2gYN+17JM5lY/yq +FCnD7zQILnq2eM9LNpbgpCWTzJfZDiI7gt6w0VlI+oDRBxrmnLPih3eysbLa +zsyGzCMRgQeQ1MtG/aGP97zJ/BIfKNhdO8FGnburHY530iD76GK5grIaBllr +XDd7RYPcTONsNUoNhbfcUlIn81DeRMRBX0MNw6tv2Em/pEGxMOKTrYEabgp8 +eKv3OQ2qaQdFg23I+bjvKbsayPwMctn26qAaJvrpl05X0SRvLxE8U6OGM2ef +MY/yafjutYZr+kQNK46N9uqSeR6XddR+uFENRwyciga45PsotqdufqOG+a0S +Qe4kD3jKpuhpflPDhImGYsUsGkLEl/o0i6mjRcmZdNskMl8nFOuXblbHN+XV +J/XDaXBY6RDwcqs6RjZ0yd0JI+t5OHzRKS913DlboGXFcRqMf/V4DvqpY822 +Pq4KySuPf2ROVp9QR8mwqakRknd6PjI0fHPUcfVlu9fmvjRIPqcuFA6pYzwv +v+zQOhqmh7RvPh1Rx4CyCv0EGzLPJU0reyfVMVN78PKtNTTUuDn0yczWwMxj +4iIfSL461HvUOlJGAxuzw19qmtHw+k/9tNMqDaw68z7HU5PkN3W//b8SNFDQ +w9MUFpD1jrntaGioiZ1VKkVza3lA3yqonTTRxI8drilN1TwwesM3fACaaDNl +2JX4kAcbGFx5KxtNzNB/GyBL8mdcZeY3Jw9NPKt86btEEQ/+DF+K2Belic/l +BhuL0nnQuTmoMKdJE/17qiyrg3mQrGEsIbVLi+SVOZZGbJI35VYZ/Lq0HOk0 +DsSHcMFEviZ+ResK7Pkqf6v4Jvm/ELoRtCNKG4fHhyxmN+WCYqSS2WZKB9+4 +TFxc+PomzGN6lDo/0cENRy4p85pzYDlH9vbRrbroPfXm2Je2bAjslqy1FdDD +QLUQxeiaGzD0K87VJlkP90QfaharzII1Kx6n2mjp43cnWrGsLBMe/jL9M96k +j+4ZU2eYqzMgQFO3s9nHALXS8nZ5WVwHzuDO15vnGSI9qGMlpHQNVqvK2Ind +MMTD+g93y2mlADviXHDNypUounO3S5/LVVD3Ma5idq7Eb2vmHW/yuQI+D3dH +lxw0Qo/E5MjQ/ESoyny986e0Mf5+n3Ix6PMlGOHOjK+4Z4yqg5XC/hAP3kz+ +vFQ7E5xjFfxnJvk8/FRPNCweNkG0q8hYkncO7uf8+TAaY4ryxSvnv1gcA+5W +KmiqaIaet85b3Ko6BUv3nSlbXm2GW+m5idt8T4L0fP8iu00cbAyI7GnZEQk5 +lmGhw5s52DSHJ6izORJ0wy5YJnpwMGvx/7wuOUaC/XDhm/YdHJwMS2vbApFw +unV00tufg8vb30cvUYiEiRvhFqGRHGRpBB1S64iATtPEllw+B5f2fqu84xIB +uw/npNnc4qBe/Df/o+siYOzWXZ+BQg5Wb/qzxtwyAiQZ7eM6pRxs+TI37I1u +BKwTUZB/UM3BxOq9r9QkI6Dyde7Oljcc5MYctmu5EQ624ve1jrRzMCPB9GRV +Qji0r2kYk+ni4PSbdVNFUeEwUt4fs+09B4u9TtzheYWDVpZ2wfc+Dpr6HVzU +ywiHys5VR+J+cLDHrcVCUIrcb5ELrBjmYAm/laaEwsH3zOHmoFEOvu/5wIj6 +dAJGqk+nLpng4NXjwdplLScg6vdV7/LfHOwYex44VnsCJPR5mlv/cvCaKfeb +cckJSN9XPjozw0HXm8/iT+acgP8DBAVnzg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05284293431341054}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3092,6 +8452,7 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3119,7 +8480,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05284293431341054}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3127,9 +8489,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913408819317417`*^9}, - CellLabel-> - "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] + CellChangeTimes->{3.9913408819317417`*^9, 3.993912048035161*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"256259b5-5b52-437f-bc79-1eaff9ea3105"] }, Open ]], Cell[CellGroupData[{ @@ -3182,66 +8543,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[339]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], + "In[100]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.47723595528574`*^-189\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 17, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9939120481515617`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"384c2d04-a69d-470b-98de-8c7ffc6a1ec3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0235119134736646`*^-192\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 18, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9939120481625347`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"8a0bc8b6-4d3f-41dc-9616-441d167dd7de"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2357525997248376`*^-196\\\", \ \\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ 7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 339, 345, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881982744*^9}, + 100, 19, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.993912048171548*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 346, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881991743*^9}, - CellLabel-> - "During evaluation of \ -In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 347, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882000746*^9}, - CellLabel-> - "During evaluation of \ -In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +In[100]:=",ExpressionUUID->"6d50805f-e9b8-4daa-a65d-61b200ab23b0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882008745*^9}, +during this calculation.\"", 2, 100, 20, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9939120481800213`*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +In[100]:=",ExpressionUUID->"ff786b4c-c07e-4a54-9312-a00361146ffc"], -Cell[BoxData["12.553654989521348`"], "Output", - CellChangeTimes->{3.9913408882266617`*^9}, +Cell[BoxData["14.385524753668907`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.993912088555481*^9}, CellLabel-> - "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] + "Out[100]=",ExpressionUUID->"27e2ce89-c5f8-479c-a94b-312ba4e9848a"] }, Open ]], Cell[CellGroupData[{ @@ -3309,68 +8674,72 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ - 3.9918497473740044`*^9, {3.99184977815234*^9, - 3.991849780845421*^9}},ExpressionUUID->"1d118f77-7d68-dd41-b0af-\ -09454f88e7f1"], + 3.9918497473740044`*^9, {3.99184977815234*^9, 3.991849780845421*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 340, 349, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882626343`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1744920617229244`*^-216\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 21, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993912088620454*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +In[101]:=",ExpressionUUID->"b00d1f6b-c0c3-4516-aaea-435b410752c8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 340, 350, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882726326`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3008166932115039`*^-221\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 22, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9939120886294727`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +In[101]:=",ExpressionUUID->"c11232f7-eb0d-4fe2-9e6f-8c815acc0ce3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 340, 351, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882816315`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.330377384592761`*^-227\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 23, + 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9939120886370993`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +In[101]:=",ExpressionUUID->"77fdc23a-05fb-44ef-9e84-f7676874d9db"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882906322`*^9}, +during this calculation.\"", 2, 101, 24, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993912088643907*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +In[101]:=",ExpressionUUID->"1f53acf0-b89f-40e1-a513-1696faed415a"], -Cell[BoxData["1.3456729512531673`"], "Output", - CellChangeTimes->{3.991340895263792*^9}, +Cell[BoxData["2.2169142577301115`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.993912095762067*^9}, CellLabel-> - "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] + "Out[101]=",ExpressionUUID->"f755b29c-da4e-4151-87e1-81f7e06e006e"] }, Open ]], Cell[CellGroupData[{ @@ -3391,8 +8760,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3437,68 +8805,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497892022038`*^9, - 3.991849792285101*^9}},ExpressionUUID->"c8039063-5f4d-134a-b6ba-\ -e19335f7a9f6"], + CellChangeTimes->{{3.9918497892022038`*^9, 3.991849792285101*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 341, 353, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895297941*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1744920617229244`*^-216\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 25, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.9939120958050137`*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +In[102]:=",ExpressionUUID->"ddf00b05-f2f2-4136-b45b-4e9311911a02"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 341, 354, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895308939*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3008166932115039`*^-221\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 26, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.9939120958124*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +In[102]:=",ExpressionUUID->"d620df1d-cbc3-4852-8f30-6876aab74fe6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 341, 355, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895316965*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.330377384592761`*^-227\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 27, + 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.9939120958221083`*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +In[102]:=",ExpressionUUID->"89aebe25-4b97-441f-b070-c09d264d8f1c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895324953*^9}, +during this calculation.\"", 2, 102, 28, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.993912095831461*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +In[102]:=",ExpressionUUID->"0e3568ce-21b7-4a48-8562-44aa662bf55b"], -Cell[BoxData["11.729429210875175`"], "Output", - CellChangeTimes->{3.9913409010488796`*^9}, +Cell[BoxData["56.16984080690669`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.993912102507875*^9}, CellLabel-> - "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] + "Out[102]=",ExpressionUUID->"096e9e11-faff-46a1-8918-2dbee145d05e"] }, Open ]], Cell[CellGroupData[{ @@ -3519,8 +8891,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3565,68 +8936,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497964884186`*^9, - 3.9918497998504505`*^9}},ExpressionUUID->"a474307a-af78-3040-90ec-\ -fb8d284b16bb"], + CellChangeTimes->{{3.9918497964884186`*^9, 3.9918497998504505`*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 342, 357, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010848827`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1744920617229244`*^-216\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 29, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993912102543964*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +In[103]:=",ExpressionUUID->"b71374cb-bf48-4731-994c-77badc302ac1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 342, 358, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010938797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3008166932115039`*^-221\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 30, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993912102550915*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +In[103]:=",ExpressionUUID->"b17ef004-d77b-4fe5-90bb-f4ccf207c41f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 342, 359, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340901101883*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.330377384592761`*^-227\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 31, + 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993912102557569*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +In[103]:=",ExpressionUUID->"8c38a2b5-45d2-4981-b553-9d9f444c4e18"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409011098804`*^9}, +during this calculation.\"", 2, 103, 32, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.9939121025651093`*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +In[103]:=",ExpressionUUID->"9181d198-d118-45ca-b234-b322e0d9ecff"], -Cell[BoxData["21.67464099510054`"], "Output", - CellChangeTimes->{3.991340904517517*^9}, +Cell[BoxData["17.851599335329013`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.9939121065293083`*^9}, CellLabel-> - "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] + "Out[103]=",ExpressionUUID->"b94c2691-c1e6-4104-af4c-c67fde932089"] }, Open ]], Cell[CellGroupData[{ @@ -3635,22 +9010,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849803549658*^9, - 3.9918498086143265`*^9}},ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-\ -f67bfdbd9bc7"], - -Cell[BoxData["0.0843966342510027`"], "Output", - CellChangeTimes->{3.991340904549515*^9}, + CellChangeTimes->{{3.991849803549658*^9, 3.9918498086143265`*^9}}, CellLabel-> - "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] + "In[104]:=",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], + +Cell[BoxData["0.07000978348403886`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.9939121065705557`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"c817ca5a-df17-43b4-bbc9-912ce11cb5ff"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918501018852215`*^9, 3.991850105557743*^9}, - 3.99192470649716*^9},ExpressionUUID->"d104d373-080a-854b-92ff-\ -e87abbd4c41c"], + 3.99192470649716*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ @@ -3673,12 +9049,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + "In[106]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.9913409045775146`*^9}, +Cell[BoxData["16.94962275376489`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.993912106586233*^9}, CellLabel-> - "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] + "Out[106]=",ExpressionUUID->"ee75bbc0-f5d2-491e-bb2b-cb01731265a7"] }, Open ]], Cell[CellGroupData[{ @@ -3688,12 +9064,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + "In[107]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.991340904625164*^9}, +Cell[BoxData["2.975213477920308`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.993912106598085*^9}, CellLabel-> - "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] + "Out[107]=",ExpressionUUID->"bbe162a2-1060-4605-a0ad-eb5227a98af3"] }, Open ]], Cell[CellGroupData[{ @@ -3703,12 +9079,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + "In[108]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913409046880226`*^9}, +Cell[BoxData["50.42874606266602`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.993912106608663*^9}, CellLabel-> - "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] + "Out[108]=",ExpressionUUID->"413a2a6a-0c59-4327-bcc0-3fccf5d5787a"] }, Open ]], Cell[CellGroupData[{ @@ -3898,12 +9274,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + "In[109]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[BoxData["0.021613768236132463`"], "Output", - CellChangeTimes->{3.9913409047132187`*^9}, +Cell[BoxData["0.0042403749350725176`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.993912106623413*^9}, CellLabel-> - "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] + "Out[109]=",ExpressionUUID->"b0294ce1-a456-4720-821b-9f05ab5b24b5"] }, Open ]], Cell[CellGroupData[{ @@ -3917,12 +9293,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + "In[110]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[BoxData["6.028089553291302`"], "Output", - CellChangeTimes->{3.9913409048112164`*^9}, +Cell[BoxData["13.609520099224378`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.993912106732172*^9}, CellLabel-> - "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] + "Out[110]=",ExpressionUUID->"3255e731-9f5b-431a-b9b5-328e97723b88"] }, Open ]], Cell[CellGroupData[{ @@ -4114,12 +9490,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + "In[111]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[BoxData["0.010798036798660033`"], "Output", - CellChangeTimes->{3.991340904825058*^9}, +Cell[BoxData["0.017460187469405666`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.9939121067466908`*^9}, CellLabel-> - "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] + "Out[111]=",ExpressionUUID->"cedc2bf1-8c94-4adf-b1ee-8d13d69fa332"] }, Open ]], Cell[CellGroupData[{ @@ -4133,12 +9509,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + "In[112]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[BoxData["8.5284977476633`"], "Output", - CellChangeTimes->{3.9913409049303207`*^9}, +Cell[BoxData["6.70687928193851`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.993912106853984*^9}, CellLabel-> - "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] + "Out[112]=",ExpressionUUID->"70afbde4-dbd4-4813-9d0e-fa107074905b"] }, Open ]], Cell[CellGroupData[{ @@ -4231,12 +9607,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + "In[113]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991340904948307*^9}, +Cell[BoxData["0.16117107469700653`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.993912106866806*^9}, CellLabel-> - "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] + "Out[113]=",ExpressionUUID->"27740d0e-6309-4ca3-acc9-2a2552f00d56"] }, Open ]], Cell[CellGroupData[{ @@ -4326,12 +9702,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + "In[114]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991340904981308*^9}, +Cell[BoxData["0.8388289253029935`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.993912106877474*^9}, CellLabel-> - "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] + "Out[114]=",ExpressionUUID->"b8f1ffe2-9b56-4cc8-9411-f4faa833acd1"] }, Open ]], Cell[CellGroupData[{ @@ -4454,12 +9830,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + "In[115]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.99134090500931*^9}, +Cell[BoxData["0.13519495937801848`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.993912106891643*^9}, CellLabel-> - "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] + "Out[115]=",ExpressionUUID->"11ea2195-77ce-40ce-8811-6922e74ef4a9"] }, Open ]], Cell[CellGroupData[{ @@ -4521,68 +9897,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849824909197*^9},ExpressionUUID->"486d514f-ec65-1e4e-b780-\ -7e9487f745c3"], + CellChangeTimes->{3.991849824909197*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 361, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905038307*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7393704151698523`*^-225\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 116, 33, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993912106907434*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +In[116]:=",ExpressionUUID->"acc2657f-b05a-4915-b775-05bd912b1707"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 362, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905047306*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.643222556435218`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 116, 34, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993912106917247*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +In[116]:=",ExpressionUUID->"fc94fe14-976c-4d72-9441-2fb377b4c354"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 363, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905056307*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.765546954408762`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 116, 35, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.99391210692492*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +In[116]:=",ExpressionUUID->"ea47a809-cf75-48da-8f3c-c08d2e09dc6d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905064308*^9}, +during this calculation.\"", 2, 116, 36, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993912106933236*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +In[116]:=",ExpressionUUID->"0555ae8b-c763-41dc-a845-0d000ca9f8f2"], -Cell[BoxData["6.028089553291301`"], "Output", - CellChangeTimes->{3.991340908920454*^9}, +Cell[BoxData["13.609520099224374`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.9939121106819696`*^9}, CellLabel-> - "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] + "Out[116]=",ExpressionUUID->"64b93019-d93d-4c56-926a-c6f145ac8a3b"] }, Open ]], Cell[CellGroupData[{ @@ -4644,68 +10024,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918498299076843`*^9},ExpressionUUID->"c7144ce5-8356-d548-8854-\ -18c538c3321c"], + CellChangeTimes->{3.9918498299076843`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 365, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908954941*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7393704151698523`*^-225\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 37, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993912110721792*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +In[117]:=",ExpressionUUID->"5609db64-4bc9-4fca-95dc-b85c83ff4a04"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 366, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908964924*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.643222556435218`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 38, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993912110729389*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +In[117]:=",ExpressionUUID->"6a64fa50-0a02-4c38-900c-48d270e3efdb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 367, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409089739246`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.765546954408762`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 117, 39, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993912110736484*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +In[117]:=",ExpressionUUID->"271ff691-986a-4617-99af-9512043f60c2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908981924*^9}, +during this calculation.\"", 2, 117, 40, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993912110743696*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +In[117]:=",ExpressionUUID->"bab3307a-d867-4080-974e-37041fda9aef"], -Cell[BoxData["8.528497747663296`"], "Output", - CellChangeTimes->{3.991340912767397*^9}, +Cell[BoxData["6.706879281938506`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.993912114336217*^9}, CellLabel-> - "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] + "Out[117]=",ExpressionUUID->"23ca59b0-2bc0-4fe2-9ec5-2906154386eb"] }, Open ]], Cell[CellGroupData[{ @@ -4763,95 +10147,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849833066021*^9},ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-\ -a45df2eabf0c"], + CellChangeTimes->{3.991849833066021*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4FWscB3DZslYIyb6lY+8cQrnen2zZFZU9jnNGqciShEillJIloRJl +SSJ7CnUrKuHiRrQJZamxG1F0677+mGeez/M+853fu84oMoN2sjk5ODgm8LV8 +D27XVqvtbDexNiLjLoiQyGQyX59pXoLObVtTuOyBnM2XVcwb0MnRWNGL2E6s +f3iFGM+RsZrRy2VXRMQ28pi3IXsO46Yk7HMv1j2JLf4X5R9O4E/GftgZfOMX +/Q06dkQuIwWbfN8Sfaz+LSoW/H0wDXv9sLLHvNlHZK2jlpiObTsVbRTa1o+a +P2TNZGA//kUKRhQPInmh3blXsXviJKPuB35BjXUeGdnYk7zm5Bx9GLkMFvfk +YvNeOOzGWBhB/MfMvPOx5USym4Prv6LASFXtImwH6fnCSbNxxM56XliOTeQq +SWjxTSLtglOONdixqo7xB9qmUP/8eajDfivZvSmseAYVmR5ZasJmuQfsT7sw +ixgqrs9bsKevc9ysDKSQi/zp3k5sPiWtNTP07+iqRm13H/ZlVqPVGvF55Kb4 ++O8hbIXbbrE6C/Po8w9hagzbUPPM5KH6H2hpdQJ9CXvf5v420uwXilk1tFZW +lERzEUe4BTb8h/ytdLdtwD5RL2hM4/uNinubanWwM8Hwrn/bHzRS+iLKDJtV +0GweUrwCkj+o+wdiF79IG4iT5gSPmNqeY9jTo97RKRc44dvLxKR47Gj171Xl +gVywbUygNxv7cpmi8hSdB35e8Wn9F/t95/jj33k8EJahdrwfW2G21n2VOC94 ++OsfncAu0XNI1VrghYbfKuYCYiRqehi54mA9H/AXOZlaYX9v7Or/aiYEhR0N +ze3YonZCa6IeC8GVGy7nP2PrdpuDsJEwdO/+mDuPHTBUk7tJexVsrKtrk19L +osOcbbp/Ca0BMrNUPhx7WOneTPy8CMR6b62ki+PxIVr4OxiikMB68MwWm/Pu +iOK6YFEIbFXcyMZWYMjvLB4ThW0ND2Yysd3NkivbB8RgbnEqlluCRB1+IaGS +reIwmG+VMIb96XZSog+fBKz+ETDKL0mi8bHivDsWEmBuHX5tI7ZA2JeurU8k +4Mw9M05/bPPTLno+NZLwqKu8ZRS7Ln/z96IcKTBVvGD5cx2J8ocXw7eEycI7 +vzejHtIk2r7r7KfQUllIDzxMO4k93iRmWToiC+QmvpoibL18TXEFNznIOadZ +PI/dxPSu4jGRhw8jJkJXZEg0OzVw9OspBbjru7XssyyJxA6ZV1fZK8HYr/lD +VQokGskX2OcUoASD3WGTn7EffOyUnjijBCbbvzwQVSSRp53XqQ1PlKDZPlkj +FDtfI3xnFl0ZDjyXSzBQwu8nb0/HSKqAb1KxbLsyiVz8BbVsBlWhiw61dDUS +ofBd9D3/qYLsdts9Adjq8TkGLKkNkPSXm8ktbI48xraYHRsg5E3UoOhGEpV+ +8thT+XQDPP/2T9QCNu/ukrj1t9TgeK8eR7s6rs/cvodk0qDwjq95uTaJ8pwz +PizE0MCD+apxGjuJOTjAfY0GoyuUz2/Swev7xJExuS4aOBfcGavCFmnI5nA2 +U4dxxbkVDbp4/TAm1euVNUA0+0fkOzqJpJUuxSYOaUJW38Gr1gYkajg/R/vJ +qQWP+Kc2ZWF7Um7dhKIW5DzqlvmGfaNJhbbNWwu0bF6OnzMkkZJ/3esfvVpQ +l657pMMI97dkWJVo1Yam7fZqAcYkkpWWIxTcdKHH2kTgkymJNAvChJYQHTL8 +CtL+ticRk3Xqu5YDHUro8ZayDni/Kqd+8vGkw86IdtMobK5bZeUvIugQcStL +xNAR77cbpEtqBR0M3i2I1zjh8zTTJ5umzADPjqXyBmc8v4l22q68eqC+V4vG +6U6imyEqTjVt+lASxBhl+5OoMxwZnC4wAu37kgrWCSRS9H7j4HXwL6i2Uxqp +LCUR+8/9e7LHAPaWP0tUfUMiybEHKyWZ28DmsV/KW+4xFMYw/piqbg7Bi5tf +zemPIebEr2Yx0gLmsgfNXQPGUOm20JU5HVZQofNnqv/2GMqfC3hactka1GTq +T2UPj6Efpuv+aYq1BQ7//jya1jjq4+CaGfS1h4wEuv7C0XEUKBOUHKfsCLts +Gw3Kno6je/ubn6THO0HDK8sf7eITKJKSWtDYvwOca6/Eie+bQN9tLHe/3LsT +ylWjaxSeTyAjjxTT4R3OEOelp6mjMoleS2UHNDFcYBH1i8zETqL1hacaijbu +AnbP8HzsyCR6MKBu5yC8GzYml3a92z6F5Lqn/cMndoOP9vFA/7tTiJGeUpI3 +sAeuFkie1hCaRtnclHZqoyvstl0Z8gxNo/umOu/jH7qB+NWyZouIaZRpcF7k +V7E77OoY85Ypn0YdHwrOMC54gFRh1YDF0DSqsb+ucviEJ1hWe0relplBM4ec +OQJZXhDU2nO3x2kGfbek7Zs084YzV3Pv7TiFvysT736Ebt4Lr06onOR7OINc +bxb4eQn5gBTX1NaP32ZQVaXtXq6zPrD43yivsOwsMpJ+/fPcTx9wfa10edRm +FikP+L//d78vqHS/NH58ZBYNCR5wvP7FF1J5dFbH35xFnUkOfla7mODZK9WR +9HIWXY7IETzSyQTNA96JfhOzqOHxn59+1n6w4uJSdNsqCq32hLOMOj8oKGfM ++qpTSGHtyw6ZBj+Qre6++S+2bpv9Ot7HftCm6CpkqkGhncYed94+9YPJ+Rci +8poUuiwT3nr8lR+sPJv4sVeLQuv77q5ufusHb5O4WcabKKTiLZnpueAHrsoq +HZ0GFDLymSyK12OBRu9sj7I5hQqzpkMdNrMg/1f4xSjstV2zJpKGLAi+mcDd +hT1psdBdtJUFg84b9eIsKHx+caxo28YCUb8Nme8tKbRqQcRNdAcLClOz98dZ +U2jooj5/ziEWzItwfr3hQKEdLw26/YNYQHb5X5vEfsyxJUc3mAVhWXyrTBwp +lBVqov8sjAUt717rfsR2cLPyHY5igc3Z4APiOyj0UMXtocZ5FtDyNEqinCmU +VB+9/0EhCyITWiUlXSl0iJ5hFFHEgsB9yNAL2+5OBb9hMQt65O2k8rAFMkbu +1JayIK9RWFbbjULxIU7k/WoWXDQzUzd1p1A0TeVAzTMW9GWtd/HwpFBARuvB +yk8siKDJlez1oZD1qhHjkAEWuMhc7cjG3hjPIUz/zIKA9OLKD9gjIfqlFcMs +GD8XULvbl0K+DjkT5eMsSNZPrbNmUsiVJzSwbJEFCRcWcpVZFLIKXX+4RIIN +0lNEfaE/hZ7lnLFJXceGkGeaewaxjdtmVSLWs2Gd4upC6X14/lVb35nJsUEu +eKXXJWyp3iizD6psyNj1Xjt0P4XGtvRJCOiz4elIm7vmAQpd4sx95O/MBqE6 +8+ss/J8koCOUab+LDa3c44np2Kc9IkIYe9jwwqNa6wV2RLWT2h93NpwoTDy7 +IQjXT6xIucJkw9UDl9K+YDNamKznwWzgiBzhdQymUG+KqqByMhsepv3UHAul +0D0kvO9rChsEQ3/Wrg7D+RNzTaVpbOh9evQ3A5tu3RRjmMGGC+J9j6Kwkzj8 +Zu1vsMFsRwsP3xEKWQblvosoYUPtWev7YuEUkpVN2Gxyjw22Z9YuMLDnWoLS +uMrx+05LUs7YtzYg+6QqNnRK1MikYf/X1/ckr44N/6T06a86SqFqO+mi9mbc +30cR0QvYiYucPJdb2FB44FugWASFmEWkr1sbG77vd5HRwV7DXSc91MGGtQqC +RWzsg/Wul372sEHgXdbJDmxl9SvhKsNsgEo70yvHKLTYe7zr2wgeP+WWwVLs +zni2btlXNritFP7rOXbMoB5pNM6G30q9yhT2+8wuL0eKDXtS1SttIymUulLE +InIFAYV33TumsBtm+zzCuAgg59pdeKIoNNpXHBLIQ0DZmZen1mMbV5vnMvkJ +uDBr8MkMe8QnYslGhICKpYenU7HX2FmIWogRIGU4t6sAe6uBKA2JE0Dnyuqs +xU4WLtnNkCJA+7DEsw/L7XX9FdKKBNS8T06Xj6YQUVDSLK5MQJ1PR4UOdnLy +sf7VqgRY6zGPIuwRQkyYm0ZA/t3I317L7WJW+8Z1CbhjzPh1Bbvut1jsCJ2A +19qdzHzs4W8D6QN6BIzevhdSgb3lSWRjtyEBqFstqQV76OA9uUdAwMOirqof +2Ktco/RrtxFwj8uCxXUcn09m2+0qzAkQvfb1kTB2ktTnYwXbCVD48vdBRewH +3GXJOTYEFO2bfqqO/WUq6naWHQFe3XZPGNiGL8TfXHQioOrmqQfm2MyKz2Nn +dxIwZ+VRaYd98XoZ50kXAnK83Ha5YH8OsdYNdyWAtth4hYkt7C1hddidgBB9 +bf39y3nWX7wCPAngtq6LDlp+Xv54orcPAWlLjJVRy/UI2NxyZRLQ+1je5sRy +3neJhztZBMzeom2OX84b/NJhRxCw+NGp9dxyXlv5iOU+AvjKL/MnLddXe/w/ +CCBA59DcdMpy/i2btVsPEpAYGhSXvpx/UVJDPxD3X5enPnM5P2LIVOcwAZxy +NdnXsIVYFa60EAK2voih3cA2cIwJUg7D9fzt6527nL/F9oxsOAH9ZV7Gt7Av +qK7LlowgwM06pDEP+/6a4SqRSDzf9jlUPvbgUkWLYDQB1eeH2gqW80djBnli +CLjxydSxEHvza9sff2IJ4NWrjVz2/zqk/to= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -4865,106 +10249,107 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwV1nk4FWscB3DZslYIyb6lY+8cQrnen2zZFZU9jnNGqciShEillJIloRJl +SSJ7CnUrKuHiRrQJZamxG1F0677+mGeez/M+853fu84oMoN2sjk5ODgm8LV8 +D27XVqvtbDexNiLjLoiQyGQyX59pXoLObVtTuOyBnM2XVcwb0MnRWNGL2E6s +f3iFGM+RsZrRy2VXRMQ28pi3IXsO46Yk7HMv1j2JLf4X5R9O4E/GftgZfOMX +/Q06dkQuIwWbfN8Sfaz+LSoW/H0wDXv9sLLHvNlHZK2jlpiObTsVbRTa1o+a +P2TNZGA//kUKRhQPInmh3blXsXviJKPuB35BjXUeGdnYk7zm5Bx9GLkMFvfk +YvNeOOzGWBhB/MfMvPOx5USym4Prv6LASFXtImwH6fnCSbNxxM56XliOTeQq +SWjxTSLtglOONdixqo7xB9qmUP/8eajDfivZvSmseAYVmR5ZasJmuQfsT7sw +ixgqrs9bsKevc9ysDKSQi/zp3k5sPiWtNTP07+iqRm13H/ZlVqPVGvF55Kb4 ++O8hbIXbbrE6C/Po8w9hagzbUPPM5KH6H2hpdQJ9CXvf5v420uwXilk1tFZW +lERzEUe4BTb8h/ytdLdtwD5RL2hM4/uNinubanWwM8Hwrn/bHzRS+iLKDJtV +0GweUrwCkj+o+wdiF79IG4iT5gSPmNqeY9jTo97RKRc44dvLxKR47Gj171Xl +gVywbUygNxv7cpmi8hSdB35e8Wn9F/t95/jj33k8EJahdrwfW2G21n2VOC94 ++OsfncAu0XNI1VrghYbfKuYCYiRqehi54mA9H/AXOZlaYX9v7Or/aiYEhR0N +ze3YonZCa6IeC8GVGy7nP2PrdpuDsJEwdO/+mDuPHTBUk7tJexVsrKtrk19L +osOcbbp/Ca0BMrNUPhx7WOneTPy8CMR6b62ki+PxIVr4OxiikMB68MwWm/Pu +iOK6YFEIbFXcyMZWYMjvLB4ThW0ND2Yysd3NkivbB8RgbnEqlluCRB1+IaGS +reIwmG+VMIb96XZSog+fBKz+ETDKL0mi8bHivDsWEmBuHX5tI7ZA2JeurU8k +4Mw9M05/bPPTLno+NZLwqKu8ZRS7Ln/z96IcKTBVvGD5cx2J8ocXw7eEycI7 +vzejHtIk2r7r7KfQUllIDzxMO4k93iRmWToiC+QmvpoibL18TXEFNznIOadZ +PI/dxPSu4jGRhw8jJkJXZEg0OzVw9OspBbjru7XssyyJxA6ZV1fZK8HYr/lD +VQokGskX2OcUoASD3WGTn7EffOyUnjijBCbbvzwQVSSRp53XqQ1PlKDZPlkj +FDtfI3xnFl0ZDjyXSzBQwu8nb0/HSKqAb1KxbLsyiVz8BbVsBlWhiw61dDUS +ofBd9D3/qYLsdts9Adjq8TkGLKkNkPSXm8ktbI48xraYHRsg5E3UoOhGEpV+ +8thT+XQDPP/2T9QCNu/ukrj1t9TgeK8eR7s6rs/cvodk0qDwjq95uTaJ8pwz +PizE0MCD+apxGjuJOTjAfY0GoyuUz2/Swev7xJExuS4aOBfcGavCFmnI5nA2 +U4dxxbkVDbp4/TAm1euVNUA0+0fkOzqJpJUuxSYOaUJW38Gr1gYkajg/R/vJ +qQWP+Kc2ZWF7Um7dhKIW5DzqlvmGfaNJhbbNWwu0bF6OnzMkkZJ/3esfvVpQ +l657pMMI97dkWJVo1Yam7fZqAcYkkpWWIxTcdKHH2kTgkymJNAvChJYQHTL8 +CtL+ticRk3Xqu5YDHUro8ZayDni/Kqd+8vGkw86IdtMobK5bZeUvIugQcStL +xNAR77cbpEtqBR0M3i2I1zjh8zTTJ5umzADPjqXyBmc8v4l22q68eqC+V4vG +6U6imyEqTjVt+lASxBhl+5OoMxwZnC4wAu37kgrWCSRS9H7j4HXwL6i2Uxqp +LCUR+8/9e7LHAPaWP0tUfUMiybEHKyWZ28DmsV/KW+4xFMYw/piqbg7Bi5tf +zemPIebEr2Yx0gLmsgfNXQPGUOm20JU5HVZQofNnqv/2GMqfC3hactka1GTq +T2UPj6Efpuv+aYq1BQ7//jya1jjq4+CaGfS1h4wEuv7C0XEUKBOUHKfsCLts +Gw3Kno6je/ubn6THO0HDK8sf7eITKJKSWtDYvwOca6/Eie+bQN9tLHe/3LsT +ylWjaxSeTyAjjxTT4R3OEOelp6mjMoleS2UHNDFcYBH1i8zETqL1hacaijbu +AnbP8HzsyCR6MKBu5yC8GzYml3a92z6F5Lqn/cMndoOP9vFA/7tTiJGeUpI3 +sAeuFkie1hCaRtnclHZqoyvstl0Z8gxNo/umOu/jH7qB+NWyZouIaZRpcF7k +V7E77OoY85Ypn0YdHwrOMC54gFRh1YDF0DSqsb+ucviEJ1hWe0relplBM4ec +OQJZXhDU2nO3x2kGfbek7Zs084YzV3Pv7TiFvysT736Ebt4Lr06onOR7OINc +bxb4eQn5gBTX1NaP32ZQVaXtXq6zPrD43yivsOwsMpJ+/fPcTx9wfa10edRm +FikP+L//d78vqHS/NH58ZBYNCR5wvP7FF1J5dFbH35xFnUkOfla7mODZK9WR +9HIWXY7IETzSyQTNA96JfhOzqOHxn59+1n6w4uJSdNsqCq32hLOMOj8oKGfM ++qpTSGHtyw6ZBj+Qre6++S+2bpv9Ot7HftCm6CpkqkGhncYed94+9YPJ+Rci +8poUuiwT3nr8lR+sPJv4sVeLQuv77q5ufusHb5O4WcabKKTiLZnpueAHrsoq +HZ0GFDLymSyK12OBRu9sj7I5hQqzpkMdNrMg/1f4xSjstV2zJpKGLAi+mcDd +hT1psdBdtJUFg84b9eIsKHx+caxo28YCUb8Nme8tKbRqQcRNdAcLClOz98dZ +U2jooj5/ziEWzItwfr3hQKEdLw26/YNYQHb5X5vEfsyxJUc3mAVhWXyrTBwp +lBVqov8sjAUt717rfsR2cLPyHY5igc3Z4APiOyj0UMXtocZ5FtDyNEqinCmU +VB+9/0EhCyITWiUlXSl0iJ5hFFHEgsB9yNAL2+5OBb9hMQt65O2k8rAFMkbu +1JayIK9RWFbbjULxIU7k/WoWXDQzUzd1p1A0TeVAzTMW9GWtd/HwpFBARuvB +yk8siKDJlez1oZD1qhHjkAEWuMhc7cjG3hjPIUz/zIKA9OLKD9gjIfqlFcMs +GD8XULvbl0K+DjkT5eMsSNZPrbNmUsiVJzSwbJEFCRcWcpVZFLIKXX+4RIIN +0lNEfaE/hZ7lnLFJXceGkGeaewaxjdtmVSLWs2Gd4upC6X14/lVb35nJsUEu +eKXXJWyp3iizD6psyNj1Xjt0P4XGtvRJCOiz4elIm7vmAQpd4sx95O/MBqE6 +8+ss/J8koCOUab+LDa3c44np2Kc9IkIYe9jwwqNa6wV2RLWT2h93NpwoTDy7 +IQjXT6xIucJkw9UDl9K+YDNamKznwWzgiBzhdQymUG+KqqByMhsepv3UHAul +0D0kvO9rChsEQ3/Wrg7D+RNzTaVpbOh9evQ3A5tu3RRjmMGGC+J9j6Kwkzj8 +Zu1vsMFsRwsP3xEKWQblvosoYUPtWev7YuEUkpVN2Gxyjw22Z9YuMLDnWoLS +uMrx+05LUs7YtzYg+6QqNnRK1MikYf/X1/ckr44N/6T06a86SqFqO+mi9mbc +30cR0QvYiYucPJdb2FB44FugWASFmEWkr1sbG77vd5HRwV7DXSc91MGGtQqC +RWzsg/Wul372sEHgXdbJDmxl9SvhKsNsgEo70yvHKLTYe7zr2wgeP+WWwVLs +zni2btlXNritFP7rOXbMoB5pNM6G30q9yhT2+8wuL0eKDXtS1SttIymUulLE +InIFAYV33TumsBtm+zzCuAgg59pdeKIoNNpXHBLIQ0DZmZen1mMbV5vnMvkJ +uDBr8MkMe8QnYslGhICKpYenU7HX2FmIWogRIGU4t6sAe6uBKA2JE0Dnyuqs +xU4WLtnNkCJA+7DEsw/L7XX9FdKKBNS8T06Xj6YQUVDSLK5MQJ1PR4UOdnLy +sf7VqgRY6zGPIuwRQkyYm0ZA/t3I317L7WJW+8Z1CbhjzPh1Bbvut1jsCJ2A +19qdzHzs4W8D6QN6BIzevhdSgb3lSWRjtyEBqFstqQV76OA9uUdAwMOirqof +2Ktco/RrtxFwj8uCxXUcn09m2+0qzAkQvfb1kTB2ktTnYwXbCVD48vdBRewH +3GXJOTYEFO2bfqqO/WUq6naWHQFe3XZPGNiGL8TfXHQioOrmqQfm2MyKz2Nn +dxIwZ+VRaYd98XoZ50kXAnK83Ha5YH8OsdYNdyWAtth4hYkt7C1hddidgBB9 +bf39y3nWX7wCPAngtq6LDlp+Xv54orcPAWlLjJVRy/UI2NxyZRLQ+1je5sRy +3neJhztZBMzeom2OX84b/NJhRxCw+NGp9dxyXlv5iOU+AvjKL/MnLddXe/w/ +CCBA59DcdMpy/i2btVsPEpAYGhSXvpx/UVJDPxD3X5enPnM5P2LIVOcwAZxy +NdnXsIVYFa60EAK2voih3cA2cIwJUg7D9fzt6527nL/F9oxsOAH9ZV7Gt7Av +qK7LlowgwM06pDEP+/6a4SqRSDzf9jlUPvbgUkWLYDQB1eeH2gqW80djBnli +CLjxydSxEHvza9sff2IJ4NWrjVz2/zqk/to= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "PlotRange" -> {{0, 180}, {0.8146421945000749, + 1.2181763452128975`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8146421945000767}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -4976,20 +10361,21 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.8146421945000749, + 1.2181763452128975`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.8146421945000767}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5003,105 +10389,105 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwV1nk4FWscB3DZslYIyb6lY+8cQrnen2zZFZU9jnNGqciShEillJIloRJl +SSJ7CnUrKuHiRrQJZamxG1F0677+mGeez/M+853fu84oMoN2sjk5ODgm8LV8 +D27XVqvtbDexNiLjLoiQyGQyX59pXoLObVtTuOyBnM2XVcwb0MnRWNGL2E6s +f3iFGM+RsZrRy2VXRMQ28pi3IXsO46Yk7HMv1j2JLf4X5R9O4E/GftgZfOMX +/Q06dkQuIwWbfN8Sfaz+LSoW/H0wDXv9sLLHvNlHZK2jlpiObTsVbRTa1o+a +P2TNZGA//kUKRhQPInmh3blXsXviJKPuB35BjXUeGdnYk7zm5Bx9GLkMFvfk +YvNeOOzGWBhB/MfMvPOx5USym4Prv6LASFXtImwH6fnCSbNxxM56XliOTeQq +SWjxTSLtglOONdixqo7xB9qmUP/8eajDfivZvSmseAYVmR5ZasJmuQfsT7sw +ixgqrs9bsKevc9ysDKSQi/zp3k5sPiWtNTP07+iqRm13H/ZlVqPVGvF55Kb4 ++O8hbIXbbrE6C/Po8w9hagzbUPPM5KH6H2hpdQJ9CXvf5v420uwXilk1tFZW +lERzEUe4BTb8h/ytdLdtwD5RL2hM4/uNinubanWwM8Hwrn/bHzRS+iLKDJtV +0GweUrwCkj+o+wdiF79IG4iT5gSPmNqeY9jTo97RKRc44dvLxKR47Gj171Xl +gVywbUygNxv7cpmi8hSdB35e8Wn9F/t95/jj33k8EJahdrwfW2G21n2VOC94 ++OsfncAu0XNI1VrghYbfKuYCYiRqehi54mA9H/AXOZlaYX9v7Or/aiYEhR0N +ze3YonZCa6IeC8GVGy7nP2PrdpuDsJEwdO/+mDuPHTBUk7tJexVsrKtrk19L +osOcbbp/Ca0BMrNUPhx7WOneTPy8CMR6b62ki+PxIVr4OxiikMB68MwWm/Pu +iOK6YFEIbFXcyMZWYMjvLB4ThW0ND2Yysd3NkivbB8RgbnEqlluCRB1+IaGS +reIwmG+VMIb96XZSog+fBKz+ETDKL0mi8bHivDsWEmBuHX5tI7ZA2JeurU8k +4Mw9M05/bPPTLno+NZLwqKu8ZRS7Ln/z96IcKTBVvGD5cx2J8ocXw7eEycI7 +vzejHtIk2r7r7KfQUllIDzxMO4k93iRmWToiC+QmvpoibL18TXEFNznIOadZ +PI/dxPSu4jGRhw8jJkJXZEg0OzVw9OspBbjru7XssyyJxA6ZV1fZK8HYr/lD +VQokGskX2OcUoASD3WGTn7EffOyUnjijBCbbvzwQVSSRp53XqQ1PlKDZPlkj +FDtfI3xnFl0ZDjyXSzBQwu8nb0/HSKqAb1KxbLsyiVz8BbVsBlWhiw61dDUS +ofBd9D3/qYLsdts9Adjq8TkGLKkNkPSXm8ktbI48xraYHRsg5E3UoOhGEpV+ +8thT+XQDPP/2T9QCNu/ukrj1t9TgeK8eR7s6rs/cvodk0qDwjq95uTaJ8pwz +PizE0MCD+apxGjuJOTjAfY0GoyuUz2/Swev7xJExuS4aOBfcGavCFmnI5nA2 +U4dxxbkVDbp4/TAm1euVNUA0+0fkOzqJpJUuxSYOaUJW38Gr1gYkajg/R/vJ +qQWP+Kc2ZWF7Um7dhKIW5DzqlvmGfaNJhbbNWwu0bF6OnzMkkZJ/3esfvVpQ +l657pMMI97dkWJVo1Yam7fZqAcYkkpWWIxTcdKHH2kTgkymJNAvChJYQHTL8 +CtL+ticRk3Xqu5YDHUro8ZayDni/Kqd+8vGkw86IdtMobK5bZeUvIugQcStL +xNAR77cbpEtqBR0M3i2I1zjh8zTTJ5umzADPjqXyBmc8v4l22q68eqC+V4vG +6U6imyEqTjVt+lASxBhl+5OoMxwZnC4wAu37kgrWCSRS9H7j4HXwL6i2Uxqp +LCUR+8/9e7LHAPaWP0tUfUMiybEHKyWZ28DmsV/KW+4xFMYw/piqbg7Bi5tf +zemPIebEr2Yx0gLmsgfNXQPGUOm20JU5HVZQofNnqv/2GMqfC3hactka1GTq +T2UPj6Efpuv+aYq1BQ7//jya1jjq4+CaGfS1h4wEuv7C0XEUKBOUHKfsCLts +Gw3Kno6je/ubn6THO0HDK8sf7eITKJKSWtDYvwOca6/Eie+bQN9tLHe/3LsT +ylWjaxSeTyAjjxTT4R3OEOelp6mjMoleS2UHNDFcYBH1i8zETqL1hacaijbu +AnbP8HzsyCR6MKBu5yC8GzYml3a92z6F5Lqn/cMndoOP9vFA/7tTiJGeUpI3 +sAeuFkie1hCaRtnclHZqoyvstl0Z8gxNo/umOu/jH7qB+NWyZouIaZRpcF7k +V7E77OoY85Ypn0YdHwrOMC54gFRh1YDF0DSqsb+ucviEJ1hWe0relplBM4ec +OQJZXhDU2nO3x2kGfbek7Zs084YzV3Pv7TiFvysT736Ebt4Lr06onOR7OINc +bxb4eQn5gBTX1NaP32ZQVaXtXq6zPrD43yivsOwsMpJ+/fPcTx9wfa10edRm +FikP+L//d78vqHS/NH58ZBYNCR5wvP7FF1J5dFbH35xFnUkOfla7mODZK9WR +9HIWXY7IETzSyQTNA96JfhOzqOHxn59+1n6w4uJSdNsqCq32hLOMOj8oKGfM ++qpTSGHtyw6ZBj+Qre6++S+2bpv9Ot7HftCm6CpkqkGhncYed94+9YPJ+Rci +8poUuiwT3nr8lR+sPJv4sVeLQuv77q5ufusHb5O4WcabKKTiLZnpueAHrsoq +HZ0GFDLymSyK12OBRu9sj7I5hQqzpkMdNrMg/1f4xSjstV2zJpKGLAi+mcDd +hT1psdBdtJUFg84b9eIsKHx+caxo28YCUb8Nme8tKbRqQcRNdAcLClOz98dZ +U2jooj5/ziEWzItwfr3hQKEdLw26/YNYQHb5X5vEfsyxJUc3mAVhWXyrTBwp +lBVqov8sjAUt717rfsR2cLPyHY5igc3Z4APiOyj0UMXtocZ5FtDyNEqinCmU +VB+9/0EhCyITWiUlXSl0iJ5hFFHEgsB9yNAL2+5OBb9hMQt65O2k8rAFMkbu +1JayIK9RWFbbjULxIU7k/WoWXDQzUzd1p1A0TeVAzTMW9GWtd/HwpFBARuvB +yk8siKDJlez1oZD1qhHjkAEWuMhc7cjG3hjPIUz/zIKA9OLKD9gjIfqlFcMs +GD8XULvbl0K+DjkT5eMsSNZPrbNmUsiVJzSwbJEFCRcWcpVZFLIKXX+4RIIN +0lNEfaE/hZ7lnLFJXceGkGeaewaxjdtmVSLWs2Gd4upC6X14/lVb35nJsUEu +eKXXJWyp3iizD6psyNj1Xjt0P4XGtvRJCOiz4elIm7vmAQpd4sx95O/MBqE6 +8+ss/J8koCOUab+LDa3c44np2Kc9IkIYe9jwwqNa6wV2RLWT2h93NpwoTDy7 +IQjXT6xIucJkw9UDl9K+YDNamKznwWzgiBzhdQymUG+KqqByMhsepv3UHAul +0D0kvO9rChsEQ3/Wrg7D+RNzTaVpbOh9evQ3A5tu3RRjmMGGC+J9j6Kwkzj8 +Zu1vsMFsRwsP3xEKWQblvosoYUPtWev7YuEUkpVN2Gxyjw22Z9YuMLDnWoLS +uMrx+05LUs7YtzYg+6QqNnRK1MikYf/X1/ckr44N/6T06a86SqFqO+mi9mbc +30cR0QvYiYucPJdb2FB44FugWASFmEWkr1sbG77vd5HRwV7DXSc91MGGtQqC +RWzsg/Wul372sEHgXdbJDmxl9SvhKsNsgEo70yvHKLTYe7zr2wgeP+WWwVLs +zni2btlXNritFP7rOXbMoB5pNM6G30q9yhT2+8wuL0eKDXtS1SttIymUulLE +InIFAYV33TumsBtm+zzCuAgg59pdeKIoNNpXHBLIQ0DZmZen1mMbV5vnMvkJ +uDBr8MkMe8QnYslGhICKpYenU7HX2FmIWogRIGU4t6sAe6uBKA2JE0Dnyuqs +xU4WLtnNkCJA+7DEsw/L7XX9FdKKBNS8T06Xj6YQUVDSLK5MQJ1PR4UOdnLy +sf7VqgRY6zGPIuwRQkyYm0ZA/t3I317L7WJW+8Z1CbhjzPh1Bbvut1jsCJ2A +19qdzHzs4W8D6QN6BIzevhdSgb3lSWRjtyEBqFstqQV76OA9uUdAwMOirqof +2Ktco/RrtxFwj8uCxXUcn09m2+0qzAkQvfb1kTB2ktTnYwXbCVD48vdBRewH +3GXJOTYEFO2bfqqO/WUq6naWHQFe3XZPGNiGL8TfXHQioOrmqQfm2MyKz2Nn +dxIwZ+VRaYd98XoZ50kXAnK83Ha5YH8OsdYNdyWAtth4hYkt7C1hddidgBB9 +bf39y3nWX7wCPAngtq6LDlp+Xv54orcPAWlLjJVRy/UI2NxyZRLQ+1je5sRy +3neJhztZBMzeom2OX84b/NJhRxCw+NGp9dxyXlv5iOU+AvjKL/MnLddXe/w/ +CCBA59DcdMpy/i2btVsPEpAYGhSXvpx/UVJDPxD3X5enPnM5P2LIVOcwAZxy +NdnXsIVYFa60EAK2voih3cA2cIwJUg7D9fzt6527nL/F9oxsOAH9ZV7Gt7Av +qK7LlowgwM06pDEP+/6a4SqRSDzf9jlUPvbgUkWLYDQB1eeH2gqW80djBnli +CLjxydSxEHvza9sff2IJ4NWrjVz2/zqk/to= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.8146421945000749, 1.2181763452128975`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.8146421945000767}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5111,7 +10497,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.42228371308737755`}, + AxesOrigin->{0, 0.8146421945000767}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5139,7 +10526,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8146421945000749, 1.2181763452128975`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5147,9 +10535,9 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913411752988663`*^9}, + CellChangeTimes->{3.9913411752988663`*^9, 3.993912410537126*^9}, CellLabel-> - "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] + "Out[118]=",ExpressionUUID->"373032e6-a28c-49d9-b73f-ee267fe015f8"] }, Open ]], Cell[CellGroupData[{ @@ -5212,157 +10600,162 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918498397477245`*^9, - 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ -70a15768b745"], + CellChangeTimes->{{3.9918498397477245`*^9, 3.9918498435341415`*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.1554832222991776`*^-272\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993912410709701*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"229491b9-d572-42e7-8b5d-0a96b9aef6e4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.404412045609285`*^-284\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993912410716975*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"f3b8e882-eb53-4b16-a144-bf798835878d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1213686546520867`*^-296\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 361, - 369, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755393047`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 43, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993912410726171*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 361, 370, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755492897`*^9}, - CellLabel-> - "During evaluation of \ -In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 361, 371, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991341175557289*^9}, - CellLabel-> - "During evaluation of \ -In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +In[119]:=",ExpressionUUID->"dd2c2aed-4395-48a9-adf4-4496916a500c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755664787`*^9}, +during this calculation.\"", 2, 119, 44, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993912410735224*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +In[119]:=",ExpressionUUID->"680aad12-30e2-408a-972d-76f4a5801e65"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VdsbB3ChopCrZMh4nH2OOfOU431TESkViQbzUFQKHUODkxBJCZkl +nMQ5W+GWkIZrKJWIlKGiNNybCkXG5Ld/f+3n8zz7Wc/aa73r+66t6h283U9Q +QEBg8QIBgf8/J/ofN9GTuFb2sdfd5hxMrLouy0au7YmBF2ef3/0ctgJQut1b +ticVLnw1r6oJowN7K69bqKcIYk/2Xc4LM4K/hmVSp7ur4G+BOfeosPUwUL8l +eLy7ATJzIgNkw5zBhj709kd3J3g5HFPkhvjCdLfppdHuQdj6+1r92wNh0Lju +GrejaAz8rFzLxXXjQGGg9rO39hwkv1xWU21+AVYc8OAtXieEXeK373f5p0Oq +vs2dLTtEcMxnV9+cXzb0Zuk9+CEpjl31rzorX+ZDEje6XVDuLxT+kauhp1MI +MukfEtPyl6NemN7DYotiOONsZ9U5IY1q5fNZJrNcCDUv9HgcI4vh1SaC/1aU +wPqRmahDH+Qx8/aTZxvlSiFyY7rmP9/k8cb28spDSqVwvVCnb/mEPP6dcLz8 +olopyDp7mteKrMKbNRlf23RK4VtN86SQ7ioMM+2KYFiXQlpMSlh2xCo8bKqZ +ahdYCoPSjENN4gr4s8/55t6aUjhluc1L3kwRH+THWd7YVAYb3S//NLVWxGmn +8BcRW8tAgvP19A4HRZysCf9qtaMM8hrjSlI8FVF3QX3+A/cyqLGv+7ooURHH +FdQW5hwpg1FXNfZYryLy15+t4GaUgfvRX2dbjylhqKiVtmx/GVhcz7558r4y +5s5XvAv25sH67ra54RZlVP9TkSXtz4MtAsK2Hp3KaNtoalWznwc+2w/1widl +9Aq8v238MA9sjqlGcxaqoI+HSo5tNA8OK08Ur9VSwYVSe8p35fKgKaDgeyNb +BcNN2z8ZdPDA7re51PFjKii/+acDu4sHbSldJkYcFXze+qmwupsHvbWiHG6i +CtLeH5TW7efB8NIwqbg8FZxde4Q+NcQD2YqNpjYNKki3yB2ZEuLDgakfnBZx +VdR5OddQbsgHiyP+Kz9LqWJswqPHrSZ8EBnq4wvJquLsstem/5nz4errxldW +NFVUVY60X4F86L93SfuWiSpuGBnevNaBD45x5j2FHqr4ysBwbNiHDwZSp1Yf +q1RF9Z9/L8lJ4YNA0q+mrGpVbCbjnGzS+NAmFLir+o4q1oe/Fx25xIegX9vj +fjSr4tV2/QfGuXzg9tBfB/Spot5q811ZV/mwsqAl3lmIhnNSwSeravkwrSXZ +r7ODhvSF8TGWA3yYyJc/ZbiLhg/m9uUfeM+H8WUE3dyDhrsZ/Y7ZH/gwPGYe +uH4/DdW5Tcf/+5cPg3d8JnadoCFz4Pz83lE+PNl0WyLhKg1NQsrGrgqQ8Oju +P5XJPBpme5neKBAkoWl1q3PaDRrebqpbnCFMwr3l73Mu19Jww52/LkaIkFD1 +egnz1jMabr1juExakoScIHcY/EVD4xQhcVKJhMy3+wb/naFh4rfdTcEqJKQ7 +hsZ9n6chx/qmkh6NhPOGCU+nRNXw5oI/d0sIEmJmK3cuU1LD1DN2VUHaJAQl +LTxsaaOGEWtC25zNSbDkk1cyMtSwLbLodclWEl6r8As25Kqhm4JZ4X/bSIjK +KLs8XqCGSRHL45lOJNw+VZK3vUwNl99m3sjbQYKB65UsiXo1PBFcnei7iwSN +hekp8e/V8N2Rg7WBPiS0RKVeMP6shpIHG4tO+pLgP5py/uOQGn483Fx5wY8E +7uvkc9bjamg3y7YuCyBBpepMwp9FdAxbvMmiLoiElR7HOGxtOh7dIPzBKZSE +W12R0YQ+HS02vnezCCPB2T7iZJcxHe2T1s0pHiUh1fjocQOgo1Dy3qdv2CSI +iwVHDG+jI0tg30WzKBLIUwfD813o+PTotwiRYyTYTwaxHXbT0XbkXMpLygmD ++8J4vnScSfi1LeAECcK13of9w+loWGyjuZ9DQrGuV7D0cconEwtop0iw5noc +auLQcbgmZ2Mv5egLew7QztLRMlPUzOo0CTN+Lvv68+joX+WW/TmOhB9S9p4u +DXQsnNLsqDxLQs8B2vPAR3TsMrdKsE8i4cHDGYhupWO38/DcAOWUKL5y6Ss6 +thaXMxckk6A3KDYwPUTHr1ti4xUukCBr+WmLxCgduYtc1udSFsi4e4/2i46H +gz82r0whod3u0OVN83ScnexYKXyRhEOV7XvzlxNIVNgJ1qSS4LK09FmlLOWn +LqMKaSRY+XFYDxUJvOfhe+0kZXE5fcURJoF3fHRCzdJJGA8RTRbSIdA1EBNT +KL9pff9bxoBAb1mhoE+USU7qG7SkfMUhPe4SVZ99gQ471hJoHbL67XPKx43W +1e+3IbCrL3JcNoOETf+N5aZuJdDdTehiAWUD69al13YQKH6vSKafsnwe99id +XQSauQQGy2WSMOS4Y/dHXwJX88wuxVPuLNN5OrWfwGMLuL41lOuEFq0RDyaw +sEFA5F/KRXv7eaphBL5NEeRIZZGQeLta3iSSwNDMvc8sKB/+68JZ+5MEeiU+ +HPWg7BoUMON+msCFhT+HTlHGZggMTSCwryCz/gpldWXZvjPJBK5sC/KvpywZ +OWqXl0rggRniSxflqc6W2opMAksjT2wYovxOu1CjOY/AIIbm8d+UW+Ijs3sL +Cez1/Ji8NJuEinfbRIdLCAQJv2MylLMsNCMFSQIfZfltUKHMSRf8srKSQMZI +wTeCcsBwn6tWNYH2sW1H1Clv2fh3C9whUNSRfMmkbFKUZOb8gMC2x+OydMpK +v31K9zVT7//0sVSkvMjFUvbEEwJl7KpxOeXhGysSLrYTyO4oZSyi/Er0++TV +LgJ/SE4P/6Lme8+nOaCul0CRZX45g5RL7uZ3t/UT+N2Zr9FK+bwM2/bDBwJp +38/mV1FmH9lye/I/qp58GicuUXZ/ymCKDROo1bjChE15AzGfoTJGYHM27HGi +rB3dvch4isDkMeFAHcorem+w7eYIfLGH4SlM+eM5T5eQxQysXRovUkbt56Eh +bZqeGANHVCt0oyhP2k5//y7JQCmnJ1c3Ul4ilBq3X56Bsp0OiW+p+kn3dN/G +VGbgmfHxiWLKivc0FT+pMTCgT6wmgLJeZONNTx0GvilfZvovVZ91ry5wlAwY +aOnPmiiivM5oj8MbEwZahHsu3UPZZWT8w05kYLW1pMVDqt5P+DGWOzox8Oim +4boo6rwsavzZL+bKwNYFeWtUKaeo3Oc92cNAx+bdMs2p/8+7ndY2/gyM5pcM +ClN+si3xCCuSgQejU/t8qfPqfGMHa/YEA/25ExsmqPP8VowmWhvDwN1nr/wV +R3n0Ud0Vo3MM/K7t35pznspHq2/tWgUMvHtEb7DkHAlXcmtyvxQzcN9TU281 +yhrTsQHXShnYrtJum0/lieVNxXlaFQMFQ9xsEqn88dF01JVvZmBHc6GadQJV +jyurzol8ZaCOq+2EKZVfFmEnXR+OMLD3napKUgwJjR329NhxBuqd9a57TeXd +q3Mf7szPMfB4VLf1USoffwtKf52QZKJU21B1IpWfdiPhdp9MmDg3XfDILJwE +BX2leBFLJr58GeOyjcrn4ZCmBq21TNzY+3zUn8rv9AlJy5BNTByftduUSOV9 +/1yZ7rwHE6WdllTygkkIEXuzXC6RiSGBE0u9qH6xfkvMVsvzTLRJ5d+z9ydB +JkU92SONiUueBSXpU/2lfvnRRSX5TAyVbmJPeFP7s0pi2qCKiS8WfLm+153q +rxrY7/CaicE359lFziQcCPosf/gdE3NiiyzcqX4H5ed2pn1iYmeMG1NmO1WP +er3Pe0eY2EzriuY4kqBrFtLoL6yOLw0bbPXtqfWx4ZZydNQxYffYEjEg4ZuP +SOjNaHXkeNXplDOo7728/u79WHUsTpHmyFD9eaSXs/hpojp+MO4wjFYj4afj +dO77NHU0J/Ubbaj+PrlmqEmiVB2dgpXzquVIEFzRunL/c3VsyR1fKi9GglzT +hTpFVQ00F8/Nnxjmg/z8U2ENhgY+nUufkPjOBwULEUcjLQ3Ui/2nnf6VD0oV +nA/2xhooN1qwyI66v9DzjohF2GlQ6y9QFErdf/TCnNw7j2igvHLZge3tfOp/ +QUbwTIMGvlMYsWOV8+GLt23pmkcaaLPZLl+Hz4dzheFbRp9qYAEjcWBVGR9e +KPXkuL3UwMozwkY/uXzwlMs21P5PA41v/TGMz+NDpMQqvw5xTWy4ZGLnkMQH +ckqpZZWbJm61kc91CeCD1DPG+YoRTTwxX/YjVY4Pf0b0rj4Z18TPDeMRbSv5 +MCS1pv7jtCauuH+7Y/EKPjS4Og7JCmvhBhOR36ESfAj9GG5zSlYLvw4kbDeg +7qddsy1/tq3Vwrunzedsv/EgUzMoeCxVCz23pQgO1PNAIeHGVhMTbRzoWCU8 +s5MHWVrmkssDdDDNvOpW2pkyeCK/1njsoi5OeaW1znJLwUKhIWX1q9WYujF9 +8/qcayAhVBTmFaOHXxKqFaMvloDSKWVLN4Y+Pr5kemG731UQJfZUb3+kjwp3 +0waMjbmgy5K7Eb7XAE+2Gn2OWFEMIf1SjfYChvjwVtGYRm8hjIyd22GXZYif +gs2ELv99BWxXP8yx0zHC2sh/SuZ0CuDe2JrZyTYj5O32faH4PA8OaRv0dfgZ +Y+mfZ/eel+UAa9i3y03UBIMPDR533Z8FG+iym8WLTDBJVWVZi28GqHPORjSY +mmJy/NuWt5x00PQzv0/0maKHye9/hC6kgt+9fbE3j5jhWYUk0fmeFLh/pcv3 +h7Q5tkml3WSbnYfx0vnJ1bfNUXvLeAZbLAl8CL5ozmYL/KJW+bl+cwL80Ewz +qRq1wPTEL2a3z8dBDXf2/a+ENdj9s8Izwug07FqvhmuULLFN52GiuswpWHXw +TK3uA0v0vh7yxGbBSZBecqBy804W7i1U6ZWLigLuuhNRo24sDLT/460SFAUG +J86vS9vDwsrJwSs6e6Jgy2jFyx4vFj5PqtffYxUF8a9+TfscYGG7ajhbVCgK +poqiraNOsdBc9oNAcXIk9K1Je1HCZ+H1TD6/+VoE7DvKzbO7zsLL18I2FmRH +wMT1W37fKlio5bTXMzopAqRoPZP61SzMRNeZ7cERsElEUeHuAxbGcw5ybU0j +oL6rxPfFSxa27Hqxxq8lHOwlanTYPSysK75RebUuHHpsH0/Ivmah6kxl3Dcy +HMbrvia4v2Oh4dAAJl8MB51CvfIvQyzsfN35XH53ONT3rWWf+85CgdwXwuc3 +U+OtcILVoywc9vdKWIzh4H/maEfYLxaKxnayxQlqvAfxOTJTLPRzF+vPlgmH +mJlMn7oZFtq6cZK1l4SDpFGZ9t45FuqvdDvd/JsNlw/W/ZqfZ2HGxIO7viNs ++B9oBoYo "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5376,116 +10769,117 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV13k4VdsbB3ChopCrZMh4nH2OOfOU431TESkViQbzUFQKHUODkxBJCZkl +nMQ5W+GWkIZrKJWIlKGiNNybCkXG5Ld/f+3n8zz7Wc/aa73r+66t6h283U9Q +QEBg8QIBgf8/J/ofN9GTuFb2sdfd5hxMrLouy0au7YmBF2ef3/0ctgJQut1b +ticVLnw1r6oJowN7K69bqKcIYk/2Xc4LM4K/hmVSp7ur4G+BOfeosPUwUL8l +eLy7ATJzIgNkw5zBhj709kd3J3g5HFPkhvjCdLfppdHuQdj6+1r92wNh0Lju +GrejaAz8rFzLxXXjQGGg9rO39hwkv1xWU21+AVYc8OAtXieEXeK373f5p0Oq +vs2dLTtEcMxnV9+cXzb0Zuk9+CEpjl31rzorX+ZDEje6XVDuLxT+kauhp1MI +MukfEtPyl6NemN7DYotiOONsZ9U5IY1q5fNZJrNcCDUv9HgcI4vh1SaC/1aU +wPqRmahDH+Qx8/aTZxvlSiFyY7rmP9/k8cb28spDSqVwvVCnb/mEPP6dcLz8 +olopyDp7mteKrMKbNRlf23RK4VtN86SQ7ioMM+2KYFiXQlpMSlh2xCo8bKqZ +ahdYCoPSjENN4gr4s8/55t6aUjhluc1L3kwRH+THWd7YVAYb3S//NLVWxGmn +8BcRW8tAgvP19A4HRZysCf9qtaMM8hrjSlI8FVF3QX3+A/cyqLGv+7ooURHH +FdQW5hwpg1FXNfZYryLy15+t4GaUgfvRX2dbjylhqKiVtmx/GVhcz7558r4y +5s5XvAv25sH67ra54RZlVP9TkSXtz4MtAsK2Hp3KaNtoalWznwc+2w/1widl +9Aq8v238MA9sjqlGcxaqoI+HSo5tNA8OK08Ur9VSwYVSe8p35fKgKaDgeyNb +BcNN2z8ZdPDA7re51PFjKii/+acDu4sHbSldJkYcFXze+qmwupsHvbWiHG6i +CtLeH5TW7efB8NIwqbg8FZxde4Q+NcQD2YqNpjYNKki3yB2ZEuLDgakfnBZx +VdR5OddQbsgHiyP+Kz9LqWJswqPHrSZ8EBnq4wvJquLsstem/5nz4errxldW +NFVUVY60X4F86L93SfuWiSpuGBnevNaBD45x5j2FHqr4ysBwbNiHDwZSp1Yf +q1RF9Z9/L8lJ4YNA0q+mrGpVbCbjnGzS+NAmFLir+o4q1oe/Fx25xIegX9vj +fjSr4tV2/QfGuXzg9tBfB/Spot5q811ZV/mwsqAl3lmIhnNSwSeravkwrSXZ +r7ODhvSF8TGWA3yYyJc/ZbiLhg/m9uUfeM+H8WUE3dyDhrsZ/Y7ZH/gwPGYe +uH4/DdW5Tcf/+5cPg3d8JnadoCFz4Pz83lE+PNl0WyLhKg1NQsrGrgqQ8Oju +P5XJPBpme5neKBAkoWl1q3PaDRrebqpbnCFMwr3l73Mu19Jww52/LkaIkFD1 +egnz1jMabr1juExakoScIHcY/EVD4xQhcVKJhMy3+wb/naFh4rfdTcEqJKQ7 +hsZ9n6chx/qmkh6NhPOGCU+nRNXw5oI/d0sIEmJmK3cuU1LD1DN2VUHaJAQl +LTxsaaOGEWtC25zNSbDkk1cyMtSwLbLodclWEl6r8As25Kqhm4JZ4X/bSIjK +KLs8XqCGSRHL45lOJNw+VZK3vUwNl99m3sjbQYKB65UsiXo1PBFcnei7iwSN +hekp8e/V8N2Rg7WBPiS0RKVeMP6shpIHG4tO+pLgP5py/uOQGn483Fx5wY8E +7uvkc9bjamg3y7YuCyBBpepMwp9FdAxbvMmiLoiElR7HOGxtOh7dIPzBKZSE +W12R0YQ+HS02vnezCCPB2T7iZJcxHe2T1s0pHiUh1fjocQOgo1Dy3qdv2CSI +iwVHDG+jI0tg30WzKBLIUwfD813o+PTotwiRYyTYTwaxHXbT0XbkXMpLygmD ++8J4vnScSfi1LeAECcK13of9w+loWGyjuZ9DQrGuV7D0cconEwtop0iw5noc +auLQcbgmZ2Mv5egLew7QztLRMlPUzOo0CTN+Lvv68+joX+WW/TmOhB9S9p4u +DXQsnNLsqDxLQs8B2vPAR3TsMrdKsE8i4cHDGYhupWO38/DcAOWUKL5y6Ss6 +thaXMxckk6A3KDYwPUTHr1ti4xUukCBr+WmLxCgduYtc1udSFsi4e4/2i46H +gz82r0whod3u0OVN83ScnexYKXyRhEOV7XvzlxNIVNgJ1qSS4LK09FmlLOWn +LqMKaSRY+XFYDxUJvOfhe+0kZXE5fcURJoF3fHRCzdJJGA8RTRbSIdA1EBNT +KL9pff9bxoBAb1mhoE+USU7qG7SkfMUhPe4SVZ99gQ471hJoHbL67XPKx43W +1e+3IbCrL3JcNoOETf+N5aZuJdDdTehiAWUD69al13YQKH6vSKafsnwe99id +XQSauQQGy2WSMOS4Y/dHXwJX88wuxVPuLNN5OrWfwGMLuL41lOuEFq0RDyaw +sEFA5F/KRXv7eaphBL5NEeRIZZGQeLta3iSSwNDMvc8sKB/+68JZ+5MEeiU+ +HPWg7BoUMON+msCFhT+HTlHGZggMTSCwryCz/gpldWXZvjPJBK5sC/KvpywZ +OWqXl0rggRniSxflqc6W2opMAksjT2wYovxOu1CjOY/AIIbm8d+UW+Ijs3sL +Cez1/Ji8NJuEinfbRIdLCAQJv2MylLMsNCMFSQIfZfltUKHMSRf8srKSQMZI +wTeCcsBwn6tWNYH2sW1H1Clv2fh3C9whUNSRfMmkbFKUZOb8gMC2x+OydMpK +v31K9zVT7//0sVSkvMjFUvbEEwJl7KpxOeXhGysSLrYTyO4oZSyi/Er0++TV +LgJ/SE4P/6Lme8+nOaCul0CRZX45g5RL7uZ3t/UT+N2Zr9FK+bwM2/bDBwJp +38/mV1FmH9lye/I/qp58GicuUXZ/ymCKDROo1bjChE15AzGfoTJGYHM27HGi +rB3dvch4isDkMeFAHcorem+w7eYIfLGH4SlM+eM5T5eQxQysXRovUkbt56Eh +bZqeGANHVCt0oyhP2k5//y7JQCmnJ1c3Ul4ilBq3X56Bsp0OiW+p+kn3dN/G +VGbgmfHxiWLKivc0FT+pMTCgT6wmgLJeZONNTx0GvilfZvovVZ91ry5wlAwY +aOnPmiiivM5oj8MbEwZahHsu3UPZZWT8w05kYLW1pMVDqt5P+DGWOzox8Oim +4boo6rwsavzZL+bKwNYFeWtUKaeo3Oc92cNAx+bdMs2p/8+7ndY2/gyM5pcM +ClN+si3xCCuSgQejU/t8qfPqfGMHa/YEA/25ExsmqPP8VowmWhvDwN1nr/wV +R3n0Ud0Vo3MM/K7t35pznspHq2/tWgUMvHtEb7DkHAlXcmtyvxQzcN9TU281 +yhrTsQHXShnYrtJum0/lieVNxXlaFQMFQ9xsEqn88dF01JVvZmBHc6GadQJV +jyurzol8ZaCOq+2EKZVfFmEnXR+OMLD3napKUgwJjR329NhxBuqd9a57TeXd +q3Mf7szPMfB4VLf1USoffwtKf52QZKJU21B1IpWfdiPhdp9MmDg3XfDILJwE +BX2leBFLJr58GeOyjcrn4ZCmBq21TNzY+3zUn8rv9AlJy5BNTByftduUSOV9 +/1yZ7rwHE6WdllTygkkIEXuzXC6RiSGBE0u9qH6xfkvMVsvzTLRJ5d+z9ydB +JkU92SONiUueBSXpU/2lfvnRRSX5TAyVbmJPeFP7s0pi2qCKiS8WfLm+153q +rxrY7/CaicE359lFziQcCPosf/gdE3NiiyzcqX4H5ed2pn1iYmeMG1NmO1WP +er3Pe0eY2EzriuY4kqBrFtLoL6yOLw0bbPXtqfWx4ZZydNQxYffYEjEg4ZuP +SOjNaHXkeNXplDOo7728/u79WHUsTpHmyFD9eaSXs/hpojp+MO4wjFYj4afj +dO77NHU0J/Ubbaj+PrlmqEmiVB2dgpXzquVIEFzRunL/c3VsyR1fKi9GglzT +hTpFVQ00F8/Nnxjmg/z8U2ENhgY+nUufkPjOBwULEUcjLQ3Ui/2nnf6VD0oV +nA/2xhooN1qwyI66v9DzjohF2GlQ6y9QFErdf/TCnNw7j2igvHLZge3tfOp/ +QUbwTIMGvlMYsWOV8+GLt23pmkcaaLPZLl+Hz4dzheFbRp9qYAEjcWBVGR9e +KPXkuL3UwMozwkY/uXzwlMs21P5PA41v/TGMz+NDpMQqvw5xTWy4ZGLnkMQH +ckqpZZWbJm61kc91CeCD1DPG+YoRTTwxX/YjVY4Pf0b0rj4Z18TPDeMRbSv5 +MCS1pv7jtCauuH+7Y/EKPjS4Og7JCmvhBhOR36ESfAj9GG5zSlYLvw4kbDeg +7qddsy1/tq3Vwrunzedsv/EgUzMoeCxVCz23pQgO1PNAIeHGVhMTbRzoWCU8 +s5MHWVrmkssDdDDNvOpW2pkyeCK/1njsoi5OeaW1znJLwUKhIWX1q9WYujF9 +8/qcayAhVBTmFaOHXxKqFaMvloDSKWVLN4Y+Pr5kemG731UQJfZUb3+kjwp3 +0waMjbmgy5K7Eb7XAE+2Gn2OWFEMIf1SjfYChvjwVtGYRm8hjIyd22GXZYif +gs2ELv99BWxXP8yx0zHC2sh/SuZ0CuDe2JrZyTYj5O32faH4PA8OaRv0dfgZ +Y+mfZ/eel+UAa9i3y03UBIMPDR533Z8FG+iym8WLTDBJVWVZi28GqHPORjSY +mmJy/NuWt5x00PQzv0/0maKHye9/hC6kgt+9fbE3j5jhWYUk0fmeFLh/pcv3 +h7Q5tkml3WSbnYfx0vnJ1bfNUXvLeAZbLAl8CL5ozmYL/KJW+bl+cwL80Ewz +qRq1wPTEL2a3z8dBDXf2/a+ENdj9s8Izwug07FqvhmuULLFN52GiuswpWHXw +TK3uA0v0vh7yxGbBSZBecqBy804W7i1U6ZWLigLuuhNRo24sDLT/460SFAUG +J86vS9vDwsrJwSs6e6Jgy2jFyx4vFj5PqtffYxUF8a9+TfscYGG7ajhbVCgK +poqiraNOsdBc9oNAcXIk9K1Je1HCZ+H1TD6/+VoE7DvKzbO7zsLL18I2FmRH +wMT1W37fKlio5bTXMzopAqRoPZP61SzMRNeZ7cERsElEUeHuAxbGcw5ybU0j +oL6rxPfFSxa27Hqxxq8lHOwlanTYPSysK75RebUuHHpsH0/Ivmah6kxl3Dcy +HMbrvia4v2Oh4dAAJl8MB51CvfIvQyzsfN35XH53ONT3rWWf+85CgdwXwuc3 +U+OtcILVoywc9vdKWIzh4H/maEfYLxaKxnayxQlqvAfxOTJTLPRzF+vPlgmH +mJlMn7oZFtq6cZK1l4SDpFGZ9t45FuqvdDvd/JsNlw/W/ZqfZ2HGxIO7viNs ++B9oBoYo "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05585600270502107}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5497,19 +10891,19 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05585600270502107}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5523,115 +10917,116 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV13k4VdsbB3ChopCrZMh4nH2OOfOU431TESkViQbzUFQKHUODkxBJCZkl +nMQ5W+GWkIZrKJWIlKGiNNybCkXG5Ld/f+3n8zz7Wc/aa73r+66t6h283U9Q +QEBg8QIBgf8/J/ofN9GTuFb2sdfd5hxMrLouy0au7YmBF2ef3/0ctgJQut1b +ticVLnw1r6oJowN7K69bqKcIYk/2Xc4LM4K/hmVSp7ur4G+BOfeosPUwUL8l +eLy7ATJzIgNkw5zBhj709kd3J3g5HFPkhvjCdLfppdHuQdj6+1r92wNh0Lju +GrejaAz8rFzLxXXjQGGg9rO39hwkv1xWU21+AVYc8OAtXieEXeK373f5p0Oq +vs2dLTtEcMxnV9+cXzb0Zuk9+CEpjl31rzorX+ZDEje6XVDuLxT+kauhp1MI +MukfEtPyl6NemN7DYotiOONsZ9U5IY1q5fNZJrNcCDUv9HgcI4vh1SaC/1aU +wPqRmahDH+Qx8/aTZxvlSiFyY7rmP9/k8cb28spDSqVwvVCnb/mEPP6dcLz8 +olopyDp7mteKrMKbNRlf23RK4VtN86SQ7ioMM+2KYFiXQlpMSlh2xCo8bKqZ +ahdYCoPSjENN4gr4s8/55t6aUjhluc1L3kwRH+THWd7YVAYb3S//NLVWxGmn +8BcRW8tAgvP19A4HRZysCf9qtaMM8hrjSlI8FVF3QX3+A/cyqLGv+7ooURHH +FdQW5hwpg1FXNfZYryLy15+t4GaUgfvRX2dbjylhqKiVtmx/GVhcz7558r4y +5s5XvAv25sH67ra54RZlVP9TkSXtz4MtAsK2Hp3KaNtoalWznwc+2w/1widl +9Aq8v238MA9sjqlGcxaqoI+HSo5tNA8OK08Ur9VSwYVSe8p35fKgKaDgeyNb +BcNN2z8ZdPDA7re51PFjKii/+acDu4sHbSldJkYcFXze+qmwupsHvbWiHG6i +CtLeH5TW7efB8NIwqbg8FZxde4Q+NcQD2YqNpjYNKki3yB2ZEuLDgakfnBZx +VdR5OddQbsgHiyP+Kz9LqWJswqPHrSZ8EBnq4wvJquLsstem/5nz4errxldW +NFVUVY60X4F86L93SfuWiSpuGBnevNaBD45x5j2FHqr4ysBwbNiHDwZSp1Yf +q1RF9Z9/L8lJ4YNA0q+mrGpVbCbjnGzS+NAmFLir+o4q1oe/Fx25xIegX9vj +fjSr4tV2/QfGuXzg9tBfB/Spot5q811ZV/mwsqAl3lmIhnNSwSeravkwrSXZ +r7ODhvSF8TGWA3yYyJc/ZbiLhg/m9uUfeM+H8WUE3dyDhrsZ/Y7ZH/gwPGYe +uH4/DdW5Tcf/+5cPg3d8JnadoCFz4Pz83lE+PNl0WyLhKg1NQsrGrgqQ8Oju +P5XJPBpme5neKBAkoWl1q3PaDRrebqpbnCFMwr3l73Mu19Jww52/LkaIkFD1 +egnz1jMabr1juExakoScIHcY/EVD4xQhcVKJhMy3+wb/naFh4rfdTcEqJKQ7 +hsZ9n6chx/qmkh6NhPOGCU+nRNXw5oI/d0sIEmJmK3cuU1LD1DN2VUHaJAQl +LTxsaaOGEWtC25zNSbDkk1cyMtSwLbLodclWEl6r8As25Kqhm4JZ4X/bSIjK +KLs8XqCGSRHL45lOJNw+VZK3vUwNl99m3sjbQYKB65UsiXo1PBFcnei7iwSN +hekp8e/V8N2Rg7WBPiS0RKVeMP6shpIHG4tO+pLgP5py/uOQGn483Fx5wY8E +7uvkc9bjamg3y7YuCyBBpepMwp9FdAxbvMmiLoiElR7HOGxtOh7dIPzBKZSE +W12R0YQ+HS02vnezCCPB2T7iZJcxHe2T1s0pHiUh1fjocQOgo1Dy3qdv2CSI +iwVHDG+jI0tg30WzKBLIUwfD813o+PTotwiRYyTYTwaxHXbT0XbkXMpLygmD ++8J4vnScSfi1LeAECcK13of9w+loWGyjuZ9DQrGuV7D0cconEwtop0iw5noc +auLQcbgmZ2Mv5egLew7QztLRMlPUzOo0CTN+Lvv68+joX+WW/TmOhB9S9p4u +DXQsnNLsqDxLQs8B2vPAR3TsMrdKsE8i4cHDGYhupWO38/DcAOWUKL5y6Ss6 +thaXMxckk6A3KDYwPUTHr1ti4xUukCBr+WmLxCgduYtc1udSFsi4e4/2i46H +gz82r0whod3u0OVN83ScnexYKXyRhEOV7XvzlxNIVNgJ1qSS4LK09FmlLOWn +LqMKaSRY+XFYDxUJvOfhe+0kZXE5fcURJoF3fHRCzdJJGA8RTRbSIdA1EBNT +KL9pff9bxoBAb1mhoE+USU7qG7SkfMUhPe4SVZ99gQ471hJoHbL67XPKx43W +1e+3IbCrL3JcNoOETf+N5aZuJdDdTehiAWUD69al13YQKH6vSKafsnwe99id +XQSauQQGy2WSMOS4Y/dHXwJX88wuxVPuLNN5OrWfwGMLuL41lOuEFq0RDyaw +sEFA5F/KRXv7eaphBL5NEeRIZZGQeLta3iSSwNDMvc8sKB/+68JZ+5MEeiU+ +HPWg7BoUMON+msCFhT+HTlHGZggMTSCwryCz/gpldWXZvjPJBK5sC/KvpywZ +OWqXl0rggRniSxflqc6W2opMAksjT2wYovxOu1CjOY/AIIbm8d+UW+Ijs3sL +Cez1/Ji8NJuEinfbRIdLCAQJv2MylLMsNCMFSQIfZfltUKHMSRf8srKSQMZI +wTeCcsBwn6tWNYH2sW1H1Clv2fh3C9whUNSRfMmkbFKUZOb8gMC2x+OydMpK +v31K9zVT7//0sVSkvMjFUvbEEwJl7KpxOeXhGysSLrYTyO4oZSyi/Er0++TV +LgJ/SE4P/6Lme8+nOaCul0CRZX45g5RL7uZ3t/UT+N2Zr9FK+bwM2/bDBwJp +38/mV1FmH9lye/I/qp58GicuUXZ/ymCKDROo1bjChE15AzGfoTJGYHM27HGi +rB3dvch4isDkMeFAHcorem+w7eYIfLGH4SlM+eM5T5eQxQysXRovUkbt56Eh +bZqeGANHVCt0oyhP2k5//y7JQCmnJ1c3Ul4ilBq3X56Bsp0OiW+p+kn3dN/G +VGbgmfHxiWLKivc0FT+pMTCgT6wmgLJeZONNTx0GvilfZvovVZ91ry5wlAwY +aOnPmiiivM5oj8MbEwZahHsu3UPZZWT8w05kYLW1pMVDqt5P+DGWOzox8Oim +4boo6rwsavzZL+bKwNYFeWtUKaeo3Oc92cNAx+bdMs2p/8+7ndY2/gyM5pcM +ClN+si3xCCuSgQejU/t8qfPqfGMHa/YEA/25ExsmqPP8VowmWhvDwN1nr/wV +R3n0Ud0Vo3MM/K7t35pznspHq2/tWgUMvHtEb7DkHAlXcmtyvxQzcN9TU281 +yhrTsQHXShnYrtJum0/lieVNxXlaFQMFQ9xsEqn88dF01JVvZmBHc6GadQJV +jyurzol8ZaCOq+2EKZVfFmEnXR+OMLD3napKUgwJjR329NhxBuqd9a57TeXd +q3Mf7szPMfB4VLf1USoffwtKf52QZKJU21B1IpWfdiPhdp9MmDg3XfDILJwE +BX2leBFLJr58GeOyjcrn4ZCmBq21TNzY+3zUn8rv9AlJy5BNTByftduUSOV9 +/1yZ7rwHE6WdllTygkkIEXuzXC6RiSGBE0u9qH6xfkvMVsvzTLRJ5d+z9ydB +JkU92SONiUueBSXpU/2lfvnRRSX5TAyVbmJPeFP7s0pi2qCKiS8WfLm+153q +rxrY7/CaicE359lFziQcCPosf/gdE3NiiyzcqX4H5ed2pn1iYmeMG1NmO1WP +er3Pe0eY2EzriuY4kqBrFtLoL6yOLw0bbPXtqfWx4ZZydNQxYffYEjEg4ZuP +SOjNaHXkeNXplDOo7728/u79WHUsTpHmyFD9eaSXs/hpojp+MO4wjFYj4afj +dO77NHU0J/Ubbaj+PrlmqEmiVB2dgpXzquVIEFzRunL/c3VsyR1fKi9GglzT +hTpFVQ00F8/Nnxjmg/z8U2ENhgY+nUufkPjOBwULEUcjLQ3Ui/2nnf6VD0oV +nA/2xhooN1qwyI66v9DzjohF2GlQ6y9QFErdf/TCnNw7j2igvHLZge3tfOp/ +QUbwTIMGvlMYsWOV8+GLt23pmkcaaLPZLl+Hz4dzheFbRp9qYAEjcWBVGR9e +KPXkuL3UwMozwkY/uXzwlMs21P5PA41v/TGMz+NDpMQqvw5xTWy4ZGLnkMQH +ckqpZZWbJm61kc91CeCD1DPG+YoRTTwxX/YjVY4Pf0b0rj4Z18TPDeMRbSv5 +MCS1pv7jtCauuH+7Y/EKPjS4Og7JCmvhBhOR36ESfAj9GG5zSlYLvw4kbDeg +7qddsy1/tq3Vwrunzedsv/EgUzMoeCxVCz23pQgO1PNAIeHGVhMTbRzoWCU8 +s5MHWVrmkssDdDDNvOpW2pkyeCK/1njsoi5OeaW1znJLwUKhIWX1q9WYujF9 +8/qcayAhVBTmFaOHXxKqFaMvloDSKWVLN4Y+Pr5kemG731UQJfZUb3+kjwp3 +0waMjbmgy5K7Eb7XAE+2Gn2OWFEMIf1SjfYChvjwVtGYRm8hjIyd22GXZYif +gs2ELv99BWxXP8yx0zHC2sh/SuZ0CuDe2JrZyTYj5O32faH4PA8OaRv0dfgZ +Y+mfZ/eel+UAa9i3y03UBIMPDR533Z8FG+iym8WLTDBJVWVZi28GqHPORjSY +mmJy/NuWt5x00PQzv0/0maKHye9/hC6kgt+9fbE3j5jhWYUk0fmeFLh/pcv3 +h7Q5tkml3WSbnYfx0vnJ1bfNUXvLeAZbLAl8CL5ozmYL/KJW+bl+cwL80Ewz +qRq1wPTEL2a3z8dBDXf2/a+ENdj9s8Izwug07FqvhmuULLFN52GiuswpWHXw +TK3uA0v0vh7yxGbBSZBecqBy804W7i1U6ZWLigLuuhNRo24sDLT/460SFAUG +J86vS9vDwsrJwSs6e6Jgy2jFyx4vFj5PqtffYxUF8a9+TfscYGG7ajhbVCgK +poqiraNOsdBc9oNAcXIk9K1Je1HCZ+H1TD6/+VoE7DvKzbO7zsLL18I2FmRH +wMT1W37fKlio5bTXMzopAqRoPZP61SzMRNeZ7cERsElEUeHuAxbGcw5ybU0j +oL6rxPfFSxa27Hqxxq8lHOwlanTYPSysK75RebUuHHpsH0/Ivmah6kxl3Dcy +HMbrvia4v2Oh4dAAJl8MB51CvfIvQyzsfN35XH53ONT3rWWf+85CgdwXwuc3 +U+OtcILVoywc9vdKWIzh4H/maEfYLxaKxnayxQlqvAfxOTJTLPRzF+vPlgmH +mJlMn7oZFtq6cZK1l4SDpFGZ9t45FuqvdDvd/JsNlw/W/ZqfZ2HGxIO7viNs ++B9oBoYo "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05585600270502107}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5642,6 +11037,7 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5669,7 +11065,8 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05585600270502107}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5677,17 +11074,571 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913414579436264`*^9}, + CellChangeTimes->{3.9913414579436264`*^9, 3.993912716210352*^9}, CellLabel-> - "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] + "Out[119]=",ExpressionUUID->"ab52bdca-383e-46fc-a617-412f999fef4b"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ -8e8787fb2589"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VdsbB3ChopCrZMh4nH2OOfOU431TESkViQbzUFQKHUODkxBJCZkl +nMQ5W+GWkIZrKJWIlKGiNNybCkXG5Ld/f+3n8zz7Wc/aa73r+66t6h283U9Q +QEBg8QIBgf8/J/ofN9GTuFb2sdfd5hxMrLouy0au7YmBF2ef3/0ctgJQut1b +ticVLnw1r6oJowN7K69bqKcIYk/2Xc4LM4K/hmVSp7ur4G+BOfeosPUwUL8l +eLy7ATJzIgNkw5zBhj709kd3J3g5HFPkhvjCdLfppdHuQdj6+1r92wNh0Lju +GrejaAz8rFzLxXXjQGGg9rO39hwkv1xWU21+AVYc8OAtXieEXeK373f5p0Oq +vs2dLTtEcMxnV9+cXzb0Zuk9+CEpjl31rzorX+ZDEje6XVDuLxT+kauhp1MI +MukfEtPyl6NemN7DYotiOONsZ9U5IY1q5fNZJrNcCDUv9HgcI4vh1SaC/1aU +wPqRmahDH+Qx8/aTZxvlSiFyY7rmP9/k8cb28spDSqVwvVCnb/mEPP6dcLz8 +olopyDp7mteKrMKbNRlf23RK4VtN86SQ7ioMM+2KYFiXQlpMSlh2xCo8bKqZ +ahdYCoPSjENN4gr4s8/55t6aUjhluc1L3kwRH+THWd7YVAYb3S//NLVWxGmn +8BcRW8tAgvP19A4HRZysCf9qtaMM8hrjSlI8FVF3QX3+A/cyqLGv+7ooURHH +FdQW5hwpg1FXNfZYryLy15+t4GaUgfvRX2dbjylhqKiVtmx/GVhcz7558r4y +5s5XvAv25sH67ra54RZlVP9TkSXtz4MtAsK2Hp3KaNtoalWznwc+2w/1widl +9Aq8v238MA9sjqlGcxaqoI+HSo5tNA8OK08Ur9VSwYVSe8p35fKgKaDgeyNb +BcNN2z8ZdPDA7re51PFjKii/+acDu4sHbSldJkYcFXze+qmwupsHvbWiHG6i +CtLeH5TW7efB8NIwqbg8FZxde4Q+NcQD2YqNpjYNKki3yB2ZEuLDgakfnBZx +VdR5OddQbsgHiyP+Kz9LqWJswqPHrSZ8EBnq4wvJquLsstem/5nz4errxldW +NFVUVY60X4F86L93SfuWiSpuGBnevNaBD45x5j2FHqr4ysBwbNiHDwZSp1Yf +q1RF9Z9/L8lJ4YNA0q+mrGpVbCbjnGzS+NAmFLir+o4q1oe/Fx25xIegX9vj +fjSr4tV2/QfGuXzg9tBfB/Spot5q811ZV/mwsqAl3lmIhnNSwSeravkwrSXZ +r7ODhvSF8TGWA3yYyJc/ZbiLhg/m9uUfeM+H8WUE3dyDhrsZ/Y7ZH/gwPGYe +uH4/DdW5Tcf/+5cPg3d8JnadoCFz4Pz83lE+PNl0WyLhKg1NQsrGrgqQ8Oju +P5XJPBpme5neKBAkoWl1q3PaDRrebqpbnCFMwr3l73Mu19Jww52/LkaIkFD1 +egnz1jMabr1juExakoScIHcY/EVD4xQhcVKJhMy3+wb/naFh4rfdTcEqJKQ7 +hsZ9n6chx/qmkh6NhPOGCU+nRNXw5oI/d0sIEmJmK3cuU1LD1DN2VUHaJAQl +LTxsaaOGEWtC25zNSbDkk1cyMtSwLbLodclWEl6r8As25Kqhm4JZ4X/bSIjK +KLs8XqCGSRHL45lOJNw+VZK3vUwNl99m3sjbQYKB65UsiXo1PBFcnei7iwSN +hekp8e/V8N2Rg7WBPiS0RKVeMP6shpIHG4tO+pLgP5py/uOQGn483Fx5wY8E +7uvkc9bjamg3y7YuCyBBpepMwp9FdAxbvMmiLoiElR7HOGxtOh7dIPzBKZSE +W12R0YQ+HS02vnezCCPB2T7iZJcxHe2T1s0pHiUh1fjocQOgo1Dy3qdv2CSI +iwVHDG+jI0tg30WzKBLIUwfD813o+PTotwiRYyTYTwaxHXbT0XbkXMpLygmD ++8J4vnScSfi1LeAECcK13of9w+loWGyjuZ9DQrGuV7D0cconEwtop0iw5noc +auLQcbgmZ2Mv5egLew7QztLRMlPUzOo0CTN+Lvv68+joX+WW/TmOhB9S9p4u +DXQsnNLsqDxLQs8B2vPAR3TsMrdKsE8i4cHDGYhupWO38/DcAOWUKL5y6Ss6 +thaXMxckk6A3KDYwPUTHr1ti4xUukCBr+WmLxCgduYtc1udSFsi4e4/2i46H +gz82r0whod3u0OVN83ScnexYKXyRhEOV7XvzlxNIVNgJ1qSS4LK09FmlLOWn +LqMKaSRY+XFYDxUJvOfhe+0kZXE5fcURJoF3fHRCzdJJGA8RTRbSIdA1EBNT +KL9pff9bxoBAb1mhoE+USU7qG7SkfMUhPe4SVZ99gQ471hJoHbL67XPKx43W +1e+3IbCrL3JcNoOETf+N5aZuJdDdTehiAWUD69al13YQKH6vSKafsnwe99id +XQSauQQGy2WSMOS4Y/dHXwJX88wuxVPuLNN5OrWfwGMLuL41lOuEFq0RDyaw +sEFA5F/KRXv7eaphBL5NEeRIZZGQeLta3iSSwNDMvc8sKB/+68JZ+5MEeiU+ +HPWg7BoUMON+msCFhT+HTlHGZggMTSCwryCz/gpldWXZvjPJBK5sC/KvpywZ +OWqXl0rggRniSxflqc6W2opMAksjT2wYovxOu1CjOY/AIIbm8d+UW+Ijs3sL +Cez1/Ji8NJuEinfbRIdLCAQJv2MylLMsNCMFSQIfZfltUKHMSRf8srKSQMZI +wTeCcsBwn6tWNYH2sW1H1Clv2fh3C9whUNSRfMmkbFKUZOb8gMC2x+OydMpK +v31K9zVT7//0sVSkvMjFUvbEEwJl7KpxOeXhGysSLrYTyO4oZSyi/Er0++TV +LgJ/SE4P/6Lme8+nOaCul0CRZX45g5RL7uZ3t/UT+N2Zr9FK+bwM2/bDBwJp +38/mV1FmH9lye/I/qp58GicuUXZ/ymCKDROo1bjChE15AzGfoTJGYHM27HGi +rB3dvch4isDkMeFAHcorem+w7eYIfLGH4SlM+eM5T5eQxQysXRovUkbt56Eh +bZqeGANHVCt0oyhP2k5//y7JQCmnJ1c3Ul4ilBq3X56Bsp0OiW+p+kn3dN/G +VGbgmfHxiWLKivc0FT+pMTCgT6wmgLJeZONNTx0GvilfZvovVZ91ry5wlAwY +aOnPmiiivM5oj8MbEwZahHsu3UPZZWT8w05kYLW1pMVDqt5P+DGWOzox8Oim +4boo6rwsavzZL+bKwNYFeWtUKaeo3Oc92cNAx+bdMs2p/8+7ndY2/gyM5pcM +ClN+si3xCCuSgQejU/t8qfPqfGMHa/YEA/25ExsmqPP8VowmWhvDwN1nr/wV +R3n0Ud0Vo3MM/K7t35pznspHq2/tWgUMvHtEb7DkHAlXcmtyvxQzcN9TU281 +yhrTsQHXShnYrtJum0/lieVNxXlaFQMFQ9xsEqn88dF01JVvZmBHc6GadQJV +jyurzol8ZaCOq+2EKZVfFmEnXR+OMLD3napKUgwJjR329NhxBuqd9a57TeXd +q3Mf7szPMfB4VLf1USoffwtKf52QZKJU21B1IpWfdiPhdp9MmDg3XfDILJwE +BX2leBFLJr58GeOyjcrn4ZCmBq21TNzY+3zUn8rv9AlJy5BNTByftduUSOV9 +/1yZ7rwHE6WdllTygkkIEXuzXC6RiSGBE0u9qH6xfkvMVsvzTLRJ5d+z9ydB +JkU92SONiUueBSXpU/2lfvnRRSX5TAyVbmJPeFP7s0pi2qCKiS8WfLm+153q +rxrY7/CaicE359lFziQcCPosf/gdE3NiiyzcqX4H5ed2pn1iYmeMG1NmO1WP +er3Pe0eY2EzriuY4kqBrFtLoL6yOLw0bbPXtqfWx4ZZydNQxYffYEjEg4ZuP +SOjNaHXkeNXplDOo7728/u79WHUsTpHmyFD9eaSXs/hpojp+MO4wjFYj4afj +dO77NHU0J/Ubbaj+PrlmqEmiVB2dgpXzquVIEFzRunL/c3VsyR1fKi9GglzT +hTpFVQ00F8/Nnxjmg/z8U2ENhgY+nUufkPjOBwULEUcjLQ3Ui/2nnf6VD0oV +nA/2xhooN1qwyI66v9DzjohF2GlQ6y9QFErdf/TCnNw7j2igvHLZge3tfOp/ +QUbwTIMGvlMYsWOV8+GLt23pmkcaaLPZLl+Hz4dzheFbRp9qYAEjcWBVGR9e +KPXkuL3UwMozwkY/uXzwlMs21P5PA41v/TGMz+NDpMQqvw5xTWy4ZGLnkMQH +ckqpZZWbJm61kc91CeCD1DPG+YoRTTwxX/YjVY4Pf0b0rj4Z18TPDeMRbSv5 +MCS1pv7jtCauuH+7Y/EKPjS4Og7JCmvhBhOR36ESfAj9GG5zSlYLvw4kbDeg +7qddsy1/tq3Vwrunzedsv/EgUzMoeCxVCz23pQgO1PNAIeHGVhMTbRzoWCU8 +s5MHWVrmkssDdDDNvOpW2pkyeCK/1njsoi5OeaW1znJLwUKhIWX1q9WYujF9 +8/qcayAhVBTmFaOHXxKqFaMvloDSKWVLN4Y+Pr5kemG731UQJfZUb3+kjwp3 +0waMjbmgy5K7Eb7XAE+2Gn2OWFEMIf1SjfYChvjwVtGYRm8hjIyd22GXZYif +gs2ELv99BWxXP8yx0zHC2sh/SuZ0CuDe2JrZyTYj5O32faH4PA8OaRv0dfgZ +Y+mfZ/eel+UAa9i3y03UBIMPDR533Z8FG+iym8WLTDBJVWVZi28GqHPORjSY +mmJy/NuWt5x00PQzv0/0maKHye9/hC6kgt+9fbE3j5jhWYUk0fmeFLh/pcv3 +h7Q5tkml3WSbnYfx0vnJ1bfNUXvLeAZbLAl8CL5ozmYL/KJW+bl+cwL80Ewz +qRq1wPTEL2a3z8dBDXf2/a+ENdj9s8Izwug07FqvhmuULLFN52GiuswpWHXw +TK3uA0v0vh7yxGbBSZBecqBy804W7i1U6ZWLigLuuhNRo24sDLT/460SFAUG +J86vS9vDwsrJwSs6e6Jgy2jFyx4vFj5PqtffYxUF8a9+TfscYGG7ajhbVCgK +poqiraNOsdBc9oNAcXIk9K1Je1HCZ+H1TD6/+VoE7DvKzbO7zsLL18I2FmRH +wMT1W37fKlio5bTXMzopAqRoPZP61SzMRNeZ7cERsElEUeHuAxbGcw5ybU0j +oL6rxPfFSxa27Hqxxq8lHOwlanTYPSysK75RebUuHHpsH0/Ivmah6kxl3Dcy +HMbrvia4v2Oh4dAAJl8MB51CvfIvQyzsfN35XH53ONT3rWWf+85CgdwXwuc3 +U+OtcILVoywc9vdKWIzh4H/maEfYLxaKxnayxQlqvAfxOTJTLPRzF+vPlgmH +mJlMn7oZFtq6cZK1l4SDpFGZ9t45FuqvdDvd/JsNlw/W/ZqfZ2HGxIO7viNs ++B9oBoYo + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3ChopCrZMh4nH2OOfOU431TESkViQbzUFQKHUODkxBJCZkl +nMQ5W+GWkIZrKJWIlKGiNNybCkXG5Ld/f+3n8zz7Wc/aa73r+66t6h283U9Q +QEBg8QIBgf8/J/ofN9GTuFb2sdfd5hxMrLouy0au7YmBF2ef3/0ctgJQut1b +ticVLnw1r6oJowN7K69bqKcIYk/2Xc4LM4K/hmVSp7ur4G+BOfeosPUwUL8l +eLy7ATJzIgNkw5zBhj709kd3J3g5HFPkhvjCdLfppdHuQdj6+1r92wNh0Lju +GrejaAz8rFzLxXXjQGGg9rO39hwkv1xWU21+AVYc8OAtXieEXeK373f5p0Oq +vs2dLTtEcMxnV9+cXzb0Zuk9+CEpjl31rzorX+ZDEje6XVDuLxT+kauhp1MI +MukfEtPyl6NemN7DYotiOONsZ9U5IY1q5fNZJrNcCDUv9HgcI4vh1SaC/1aU +wPqRmahDH+Qx8/aTZxvlSiFyY7rmP9/k8cb28spDSqVwvVCnb/mEPP6dcLz8 +olopyDp7mteKrMKbNRlf23RK4VtN86SQ7ioMM+2KYFiXQlpMSlh2xCo8bKqZ +ahdYCoPSjENN4gr4s8/55t6aUjhluc1L3kwRH+THWd7YVAYb3S//NLVWxGmn +8BcRW8tAgvP19A4HRZysCf9qtaMM8hrjSlI8FVF3QX3+A/cyqLGv+7ooURHH +FdQW5hwpg1FXNfZYryLy15+t4GaUgfvRX2dbjylhqKiVtmx/GVhcz7558r4y +5s5XvAv25sH67ra54RZlVP9TkSXtz4MtAsK2Hp3KaNtoalWznwc+2w/1widl +9Aq8v238MA9sjqlGcxaqoI+HSo5tNA8OK08Ur9VSwYVSe8p35fKgKaDgeyNb +BcNN2z8ZdPDA7re51PFjKii/+acDu4sHbSldJkYcFXze+qmwupsHvbWiHG6i +CtLeH5TW7efB8NIwqbg8FZxde4Q+NcQD2YqNpjYNKki3yB2ZEuLDgakfnBZx +VdR5OddQbsgHiyP+Kz9LqWJswqPHrSZ8EBnq4wvJquLsstem/5nz4errxldW +NFVUVY60X4F86L93SfuWiSpuGBnevNaBD45x5j2FHqr4ysBwbNiHDwZSp1Yf +q1RF9Z9/L8lJ4YNA0q+mrGpVbCbjnGzS+NAmFLir+o4q1oe/Fx25xIegX9vj +fjSr4tV2/QfGuXzg9tBfB/Spot5q811ZV/mwsqAl3lmIhnNSwSeravkwrSXZ +r7ODhvSF8TGWA3yYyJc/ZbiLhg/m9uUfeM+H8WUE3dyDhrsZ/Y7ZH/gwPGYe +uH4/DdW5Tcf/+5cPg3d8JnadoCFz4Pz83lE+PNl0WyLhKg1NQsrGrgqQ8Oju +P5XJPBpme5neKBAkoWl1q3PaDRrebqpbnCFMwr3l73Mu19Jww52/LkaIkFD1 +egnz1jMabr1juExakoScIHcY/EVD4xQhcVKJhMy3+wb/naFh4rfdTcEqJKQ7 +hsZ9n6chx/qmkh6NhPOGCU+nRNXw5oI/d0sIEmJmK3cuU1LD1DN2VUHaJAQl +LTxsaaOGEWtC25zNSbDkk1cyMtSwLbLodclWEl6r8As25Kqhm4JZ4X/bSIjK +KLs8XqCGSRHL45lOJNw+VZK3vUwNl99m3sjbQYKB65UsiXo1PBFcnei7iwSN +hekp8e/V8N2Rg7WBPiS0RKVeMP6shpIHG4tO+pLgP5py/uOQGn483Fx5wY8E +7uvkc9bjamg3y7YuCyBBpepMwp9FdAxbvMmiLoiElR7HOGxtOh7dIPzBKZSE +W12R0YQ+HS02vnezCCPB2T7iZJcxHe2T1s0pHiUh1fjocQOgo1Dy3qdv2CSI +iwVHDG+jI0tg30WzKBLIUwfD813o+PTotwiRYyTYTwaxHXbT0XbkXMpLygmD ++8J4vnScSfi1LeAECcK13of9w+loWGyjuZ9DQrGuV7D0cconEwtop0iw5noc +auLQcbgmZ2Mv5egLew7QztLRMlPUzOo0CTN+Lvv68+joX+WW/TmOhB9S9p4u +DXQsnNLsqDxLQs8B2vPAR3TsMrdKsE8i4cHDGYhupWO38/DcAOWUKL5y6Ss6 +thaXMxckk6A3KDYwPUTHr1ti4xUukCBr+WmLxCgduYtc1udSFsi4e4/2i46H +gz82r0whod3u0OVN83ScnexYKXyRhEOV7XvzlxNIVNgJ1qSS4LK09FmlLOWn +LqMKaSRY+XFYDxUJvOfhe+0kZXE5fcURJoF3fHRCzdJJGA8RTRbSIdA1EBNT +KL9pff9bxoBAb1mhoE+USU7qG7SkfMUhPe4SVZ99gQ471hJoHbL67XPKx43W +1e+3IbCrL3JcNoOETf+N5aZuJdDdTehiAWUD69al13YQKH6vSKafsnwe99id +XQSauQQGy2WSMOS4Y/dHXwJX88wuxVPuLNN5OrWfwGMLuL41lOuEFq0RDyaw +sEFA5F/KRXv7eaphBL5NEeRIZZGQeLta3iSSwNDMvc8sKB/+68JZ+5MEeiU+ +HPWg7BoUMON+msCFhT+HTlHGZggMTSCwryCz/gpldWXZvjPJBK5sC/KvpywZ +OWqXl0rggRniSxflqc6W2opMAksjT2wYovxOu1CjOY/AIIbm8d+UW+Ijs3sL +Cez1/Ji8NJuEinfbRIdLCAQJv2MylLMsNCMFSQIfZfltUKHMSRf8srKSQMZI +wTeCcsBwn6tWNYH2sW1H1Clv2fh3C9whUNSRfMmkbFKUZOb8gMC2x+OydMpK +v31K9zVT7//0sVSkvMjFUvbEEwJl7KpxOeXhGysSLrYTyO4oZSyi/Er0++TV +LgJ/SE4P/6Lme8+nOaCul0CRZX45g5RL7uZ3t/UT+N2Zr9FK+bwM2/bDBwJp +38/mV1FmH9lye/I/qp58GicuUXZ/ymCKDROo1bjChE15AzGfoTJGYHM27HGi +rB3dvch4isDkMeFAHcorem+w7eYIfLGH4SlM+eM5T5eQxQysXRovUkbt56Eh +bZqeGANHVCt0oyhP2k5//y7JQCmnJ1c3Ul4ilBq3X56Bsp0OiW+p+kn3dN/G +VGbgmfHxiWLKivc0FT+pMTCgT6wmgLJeZONNTx0GvilfZvovVZ91ry5wlAwY +aOnPmiiivM5oj8MbEwZahHsu3UPZZWT8w05kYLW1pMVDqt5P+DGWOzox8Oim +4boo6rwsavzZL+bKwNYFeWtUKaeo3Oc92cNAx+bdMs2p/8+7ndY2/gyM5pcM +ClN+si3xCCuSgQejU/t8qfPqfGMHa/YEA/25ExsmqPP8VowmWhvDwN1nr/wV +R3n0Ud0Vo3MM/K7t35pznspHq2/tWgUMvHtEb7DkHAlXcmtyvxQzcN9TU281 +yhrTsQHXShnYrtJum0/lieVNxXlaFQMFQ9xsEqn88dF01JVvZmBHc6GadQJV +jyurzol8ZaCOq+2EKZVfFmEnXR+OMLD3napKUgwJjR329NhxBuqd9a57TeXd +q3Mf7szPMfB4VLf1USoffwtKf52QZKJU21B1IpWfdiPhdp9MmDg3XfDILJwE +BX2leBFLJr58GeOyjcrn4ZCmBq21TNzY+3zUn8rv9AlJy5BNTByftduUSOV9 +/1yZ7rwHE6WdllTygkkIEXuzXC6RiSGBE0u9qH6xfkvMVsvzTLRJ5d+z9ydB +JkU92SONiUueBSXpU/2lfvnRRSX5TAyVbmJPeFP7s0pi2qCKiS8WfLm+153q +rxrY7/CaicE359lFziQcCPosf/gdE3NiiyzcqX4H5ed2pn1iYmeMG1NmO1WP +er3Pe0eY2EzriuY4kqBrFtLoL6yOLw0bbPXtqfWx4ZZydNQxYffYEjEg4ZuP +SOjNaHXkeNXplDOo7728/u79WHUsTpHmyFD9eaSXs/hpojp+MO4wjFYj4afj +dO77NHU0J/Ubbaj+PrlmqEmiVB2dgpXzquVIEFzRunL/c3VsyR1fKi9GglzT +hTpFVQ00F8/Nnxjmg/z8U2ENhgY+nUufkPjOBwULEUcjLQ3Ui/2nnf6VD0oV +nA/2xhooN1qwyI66v9DzjohF2GlQ6y9QFErdf/TCnNw7j2igvHLZge3tfOp/ +QUbwTIMGvlMYsWOV8+GLt23pmkcaaLPZLl+Hz4dzheFbRp9qYAEjcWBVGR9e +KPXkuL3UwMozwkY/uXzwlMs21P5PA41v/TGMz+NDpMQqvw5xTWy4ZGLnkMQH +ckqpZZWbJm61kc91CeCD1DPG+YoRTTwxX/YjVY4Pf0b0rj4Z18TPDeMRbSv5 +MCS1pv7jtCauuH+7Y/EKPjS4Og7JCmvhBhOR36ESfAj9GG5zSlYLvw4kbDeg +7qddsy1/tq3Vwrunzedsv/EgUzMoeCxVCz23pQgO1PNAIeHGVhMTbRzoWCU8 +s5MHWVrmkssDdDDNvOpW2pkyeCK/1njsoi5OeaW1znJLwUKhIWX1q9WYujF9 +8/qcayAhVBTmFaOHXxKqFaMvloDSKWVLN4Y+Pr5kemG731UQJfZUb3+kjwp3 +0waMjbmgy5K7Eb7XAE+2Gn2OWFEMIf1SjfYChvjwVtGYRm8hjIyd22GXZYif +gs2ELv99BWxXP8yx0zHC2sh/SuZ0CuDe2JrZyTYj5O32faH4PA8OaRv0dfgZ +Y+mfZ/eel+UAa9i3y03UBIMPDR533Z8FG+iym8WLTDBJVWVZi28GqHPORjSY +mmJy/NuWt5x00PQzv0/0maKHye9/hC6kgt+9fbE3j5jhWYUk0fmeFLh/pcv3 +h7Q5tkml3WSbnYfx0vnJ1bfNUXvLeAZbLAl8CL5ozmYL/KJW+bl+cwL80Ewz +qRq1wPTEL2a3z8dBDXf2/a+ENdj9s8Izwug07FqvhmuULLFN52GiuswpWHXw +TK3uA0v0vh7yxGbBSZBecqBy804W7i1U6ZWLigLuuhNRo24sDLT/460SFAUG +J86vS9vDwsrJwSs6e6Jgy2jFyx4vFj5PqtffYxUF8a9+TfscYGG7ajhbVCgK +poqiraNOsdBc9oNAcXIk9K1Je1HCZ+H1TD6/+VoE7DvKzbO7zsLL18I2FmRH +wMT1W37fKlio5bTXMzopAqRoPZP61SzMRNeZ7cERsElEUeHuAxbGcw5ybU0j +oL6rxPfFSxa27Hqxxq8lHOwlanTYPSysK75RebUuHHpsH0/Ivmah6kxl3Dcy +HMbrvia4v2Oh4dAAJl8MB51CvfIvQyzsfN35XH53ONT3rWWf+85CgdwXwuc3 +U+OtcILVoywc9vdKWIzh4H/maEfYLxaKxnayxQlqvAfxOTJTLPRzF+vPlgmH +mJlMn7oZFtq6cZK1l4SDpFGZ9t45FuqvdDvd/JsNlw/W/ZqfZ2HGxIO7viNs ++B9oBoYo + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05585600270502107}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.05585600270502107}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3ChopCrZMh4nH2OOfOU431TESkViQbzUFQKHUODkxBJCZkl +nMQ5W+GWkIZrKJWIlKGiNNybCkXG5Ld/f+3n8zz7Wc/aa73r+66t6h283U9Q +QEBg8QIBgf8/J/ofN9GTuFb2sdfd5hxMrLouy0au7YmBF2ef3/0ctgJQut1b +ticVLnw1r6oJowN7K69bqKcIYk/2Xc4LM4K/hmVSp7ur4G+BOfeosPUwUL8l +eLy7ATJzIgNkw5zBhj709kd3J3g5HFPkhvjCdLfppdHuQdj6+1r92wNh0Lju +GrejaAz8rFzLxXXjQGGg9rO39hwkv1xWU21+AVYc8OAtXieEXeK373f5p0Oq +vs2dLTtEcMxnV9+cXzb0Zuk9+CEpjl31rzorX+ZDEje6XVDuLxT+kauhp1MI +MukfEtPyl6NemN7DYotiOONsZ9U5IY1q5fNZJrNcCDUv9HgcI4vh1SaC/1aU +wPqRmahDH+Qx8/aTZxvlSiFyY7rmP9/k8cb28spDSqVwvVCnb/mEPP6dcLz8 +olopyDp7mteKrMKbNRlf23RK4VtN86SQ7ioMM+2KYFiXQlpMSlh2xCo8bKqZ +ahdYCoPSjENN4gr4s8/55t6aUjhluc1L3kwRH+THWd7YVAYb3S//NLVWxGmn +8BcRW8tAgvP19A4HRZysCf9qtaMM8hrjSlI8FVF3QX3+A/cyqLGv+7ooURHH +FdQW5hwpg1FXNfZYryLy15+t4GaUgfvRX2dbjylhqKiVtmx/GVhcz7558r4y +5s5XvAv25sH67ra54RZlVP9TkSXtz4MtAsK2Hp3KaNtoalWznwc+2w/1widl +9Aq8v238MA9sjqlGcxaqoI+HSo5tNA8OK08Ur9VSwYVSe8p35fKgKaDgeyNb +BcNN2z8ZdPDA7re51PFjKii/+acDu4sHbSldJkYcFXze+qmwupsHvbWiHG6i +CtLeH5TW7efB8NIwqbg8FZxde4Q+NcQD2YqNpjYNKki3yB2ZEuLDgakfnBZx +VdR5OddQbsgHiyP+Kz9LqWJswqPHrSZ8EBnq4wvJquLsstem/5nz4errxldW +NFVUVY60X4F86L93SfuWiSpuGBnevNaBD45x5j2FHqr4ysBwbNiHDwZSp1Yf +q1RF9Z9/L8lJ4YNA0q+mrGpVbCbjnGzS+NAmFLir+o4q1oe/Fx25xIegX9vj +fjSr4tV2/QfGuXzg9tBfB/Spot5q811ZV/mwsqAl3lmIhnNSwSeravkwrSXZ +r7ODhvSF8TGWA3yYyJc/ZbiLhg/m9uUfeM+H8WUE3dyDhrsZ/Y7ZH/gwPGYe +uH4/DdW5Tcf/+5cPg3d8JnadoCFz4Pz83lE+PNl0WyLhKg1NQsrGrgqQ8Oju +P5XJPBpme5neKBAkoWl1q3PaDRrebqpbnCFMwr3l73Mu19Jww52/LkaIkFD1 +egnz1jMabr1juExakoScIHcY/EVD4xQhcVKJhMy3+wb/naFh4rfdTcEqJKQ7 +hsZ9n6chx/qmkh6NhPOGCU+nRNXw5oI/d0sIEmJmK3cuU1LD1DN2VUHaJAQl +LTxsaaOGEWtC25zNSbDkk1cyMtSwLbLodclWEl6r8As25Kqhm4JZ4X/bSIjK +KLs8XqCGSRHL45lOJNw+VZK3vUwNl99m3sjbQYKB65UsiXo1PBFcnei7iwSN +hekp8e/V8N2Rg7WBPiS0RKVeMP6shpIHG4tO+pLgP5py/uOQGn483Fx5wY8E +7uvkc9bjamg3y7YuCyBBpepMwp9FdAxbvMmiLoiElR7HOGxtOh7dIPzBKZSE +W12R0YQ+HS02vnezCCPB2T7iZJcxHe2T1s0pHiUh1fjocQOgo1Dy3qdv2CSI +iwVHDG+jI0tg30WzKBLIUwfD813o+PTotwiRYyTYTwaxHXbT0XbkXMpLygmD ++8J4vnScSfi1LeAECcK13of9w+loWGyjuZ9DQrGuV7D0cconEwtop0iw5noc +auLQcbgmZ2Mv5egLew7QztLRMlPUzOo0CTN+Lvv68+joX+WW/TmOhB9S9p4u +DXQsnNLsqDxLQs8B2vPAR3TsMrdKsE8i4cHDGYhupWO38/DcAOWUKL5y6Ss6 +thaXMxckk6A3KDYwPUTHr1ti4xUukCBr+WmLxCgduYtc1udSFsi4e4/2i46H +gz82r0whod3u0OVN83ScnexYKXyRhEOV7XvzlxNIVNgJ1qSS4LK09FmlLOWn +LqMKaSRY+XFYDxUJvOfhe+0kZXE5fcURJoF3fHRCzdJJGA8RTRbSIdA1EBNT +KL9pff9bxoBAb1mhoE+USU7qG7SkfMUhPe4SVZ99gQ471hJoHbL67XPKx43W +1e+3IbCrL3JcNoOETf+N5aZuJdDdTehiAWUD69al13YQKH6vSKafsnwe99id +XQSauQQGy2WSMOS4Y/dHXwJX88wuxVPuLNN5OrWfwGMLuL41lOuEFq0RDyaw +sEFA5F/KRXv7eaphBL5NEeRIZZGQeLta3iSSwNDMvc8sKB/+68JZ+5MEeiU+ +HPWg7BoUMON+msCFhT+HTlHGZggMTSCwryCz/gpldWXZvjPJBK5sC/KvpywZ +OWqXl0rggRniSxflqc6W2opMAksjT2wYovxOu1CjOY/AIIbm8d+UW+Ijs3sL +Cez1/Ji8NJuEinfbRIdLCAQJv2MylLMsNCMFSQIfZfltUKHMSRf8srKSQMZI +wTeCcsBwn6tWNYH2sW1H1Clv2fh3C9whUNSRfMmkbFKUZOb8gMC2x+OydMpK +v31K9zVT7//0sVSkvMjFUvbEEwJl7KpxOeXhGysSLrYTyO4oZSyi/Er0++TV +LgJ/SE4P/6Lme8+nOaCul0CRZX45g5RL7uZ3t/UT+N2Zr9FK+bwM2/bDBwJp +38/mV1FmH9lye/I/qp58GicuUXZ/ymCKDROo1bjChE15AzGfoTJGYHM27HGi +rB3dvch4isDkMeFAHcorem+w7eYIfLGH4SlM+eM5T5eQxQysXRovUkbt56Eh +bZqeGANHVCt0oyhP2k5//y7JQCmnJ1c3Ul4ilBq3X56Bsp0OiW+p+kn3dN/G +VGbgmfHxiWLKivc0FT+pMTCgT6wmgLJeZONNTx0GvilfZvovVZ91ry5wlAwY +aOnPmiiivM5oj8MbEwZahHsu3UPZZWT8w05kYLW1pMVDqt5P+DGWOzox8Oim +4boo6rwsavzZL+bKwNYFeWtUKaeo3Oc92cNAx+bdMs2p/8+7ndY2/gyM5pcM +ClN+si3xCCuSgQejU/t8qfPqfGMHa/YEA/25ExsmqPP8VowmWhvDwN1nr/wV +R3n0Ud0Vo3MM/K7t35pznspHq2/tWgUMvHtEb7DkHAlXcmtyvxQzcN9TU281 +yhrTsQHXShnYrtJum0/lieVNxXlaFQMFQ9xsEqn88dF01JVvZmBHc6GadQJV +jyurzol8ZaCOq+2EKZVfFmEnXR+OMLD3napKUgwJjR329NhxBuqd9a57TeXd +q3Mf7szPMfB4VLf1USoffwtKf52QZKJU21B1IpWfdiPhdp9MmDg3XfDILJwE +BX2leBFLJr58GeOyjcrn4ZCmBq21TNzY+3zUn8rv9AlJy5BNTByftduUSOV9 +/1yZ7rwHE6WdllTygkkIEXuzXC6RiSGBE0u9qH6xfkvMVsvzTLRJ5d+z9ydB +JkU92SONiUueBSXpU/2lfvnRRSX5TAyVbmJPeFP7s0pi2qCKiS8WfLm+153q +rxrY7/CaicE359lFziQcCPosf/gdE3NiiyzcqX4H5ed2pn1iYmeMG1NmO1WP +er3Pe0eY2EzriuY4kqBrFtLoL6yOLw0bbPXtqfWx4ZZydNQxYffYEjEg4ZuP +SOjNaHXkeNXplDOo7728/u79WHUsTpHmyFD9eaSXs/hpojp+MO4wjFYj4afj +dO77NHU0J/Ubbaj+PrlmqEmiVB2dgpXzquVIEFzRunL/c3VsyR1fKi9GglzT +hTpFVQ00F8/Nnxjmg/z8U2ENhgY+nUufkPjOBwULEUcjLQ3Ui/2nnf6VD0oV +nA/2xhooN1qwyI66v9DzjohF2GlQ6y9QFErdf/TCnNw7j2igvHLZge3tfOp/ +QUbwTIMGvlMYsWOV8+GLt23pmkcaaLPZLl+Hz4dzheFbRp9qYAEjcWBVGR9e +KPXkuL3UwMozwkY/uXzwlMs21P5PA41v/TGMz+NDpMQqvw5xTWy4ZGLnkMQH +ckqpZZWbJm61kc91CeCD1DPG+YoRTTwxX/YjVY4Pf0b0rj4Z18TPDeMRbSv5 +MCS1pv7jtCauuH+7Y/EKPjS4Og7JCmvhBhOR36ESfAj9GG5zSlYLvw4kbDeg +7qddsy1/tq3Vwrunzedsv/EgUzMoeCxVCz23pQgO1PNAIeHGVhMTbRzoWCU8 +s5MHWVrmkssDdDDNvOpW2pkyeCK/1njsoi5OeaW1znJLwUKhIWX1q9WYujF9 +8/qcayAhVBTmFaOHXxKqFaMvloDSKWVLN4Y+Pr5kemG731UQJfZUb3+kjwp3 +0waMjbmgy5K7Eb7XAE+2Gn2OWFEMIf1SjfYChvjwVtGYRm8hjIyd22GXZYif +gs2ELv99BWxXP8yx0zHC2sh/SuZ0CuDe2JrZyTYj5O32faH4PA8OaRv0dfgZ +Y+mfZ/eel+UAa9i3y03UBIMPDR533Z8FG+iym8WLTDBJVWVZi28GqHPORjSY +mmJy/NuWt5x00PQzv0/0maKHye9/hC6kgt+9fbE3j5jhWYUk0fmeFLh/pcv3 +h7Q5tkml3WSbnYfx0vnJ1bfNUXvLeAZbLAl8CL5ozmYL/KJW+bl+cwL80Ewz +qRq1wPTEL2a3z8dBDXf2/a+ENdj9s8Izwug07FqvhmuULLFN52GiuswpWHXw +TK3uA0v0vh7yxGbBSZBecqBy804W7i1U6ZWLigLuuhNRo24sDLT/460SFAUG +J86vS9vDwsrJwSs6e6Jgy2jFyx4vFj5PqtffYxUF8a9+TfscYGG7ajhbVCgK +poqiraNOsdBc9oNAcXIk9K1Je1HCZ+H1TD6/+VoE7DvKzbO7zsLL18I2FmRH +wMT1W37fKlio5bTXMzopAqRoPZP61SzMRNeZ7cERsElEUeHuAxbGcw5ybU0j +oL6rxPfFSxa27Hqxxq8lHOwlanTYPSysK75RebUuHHpsH0/Ivmah6kxl3Dcy +HMbrvia4v2Oh4dAAJl8MB51CvfIvQyzsfN35XH53ONT3rWWf+85CgdwXwuc3 +U+OtcILVoywc9vdKWIzh4H/maEfYLxaKxnayxQlqvAfxOTJTLPRzF+vPlgmH +mJlMn7oZFtq6cZK1l4SDpFGZ9t45FuqvdDvd/JsNlw/W/ZqfZ2HGxIO7viNs ++B9oBoYo + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05585600270502107}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05585600270502107}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99391271628644*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"6d874a5f-3866-4845-bfd4-441b17aa13b8"] +}, Open ]], Cell[CellGroupData[{ @@ -5739,66 +11690,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + "In[121]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.4794716694365126`*^-182\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 121, 45, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993912716331231*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"cfce7262-7c7f-409f-bb54-d978dec4752e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.627283517099366`*^-186\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 121, 46, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993912716340466*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"648a4740-4a12-4ce8-813e-d41610c31ddd"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6637546364509728`*^-189\\\", \ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 365, 381, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423358439445`*^9}, +\"", 2, 121, 47, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.9939127163497066`*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335853943*^9}, - CellLabel-> - "During evaluation of \ -In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335861944*^9}, - CellLabel-> - "During evaluation of \ -In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +In[121]:=",ExpressionUUID->"399e01f3-0d98-4a3e-bae9-36fff93a732a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335870945*^9}, +during this calculation.\"", 2, 121, 48, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.99391271635874*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +In[121]:=",ExpressionUUID->"298a4869-e7b3-4753-86b4-507afe95fb1a"], -Cell[BoxData["12.5536549879565`"], "Output", - CellChangeTimes->{3.9913423425170345`*^9}, +Cell[BoxData["14.385319078275895`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.993912758400791*^9}, CellLabel-> - "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] + "Out[121]=",ExpressionUUID->"404a6740-64f1-4915-8722-d2366871ccec"] }, Open ]], Cell[CellGroupData[{ @@ -5865,68 +11820,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99184987967128*^9, - 3.9918498857615337`*^9}},ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-\ -30286a178ca1"], + CellChangeTimes->{{3.99184987967128*^9, 3.9918498857615337`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 385, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425545177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7393704151698523`*^-225\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 49, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.9939127584439993`*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +In[122]:=",ExpressionUUID->"08e13102-b647-4676-8d9c-2ff06de37db1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 386, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342342564516*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.643222556435218`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 50, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.9939127584524937`*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +In[122]:=",ExpressionUUID->"c1627039-52a2-48f5-92df-21a36bd5f3ee"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 387, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425725136`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.765546954408762`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 51, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993912758459437*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +In[122]:=",ExpressionUUID->"0bc75149-5217-4ee4-953e-abff7f8d9bf4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425815163`*^9}, +during this calculation.\"", 2, 122, 52, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993912758466427*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +In[122]:=",ExpressionUUID->"f4c743c9-2e71-4500-ba4e-eaaaeadb48ac"], -Cell[BoxData["2.904399821349581`"], "Output", - CellChangeTimes->{3.9913423499055786`*^9}, +Cell[BoxData["0.37076547999732745`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.993912765278905*^9}, CellLabel-> - "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] + "Out[122]=",ExpressionUUID->"5a7bbfe4-5710-4f45-b0da-cd2af6187550"] }, Open ]], Cell[CellGroupData[{ @@ -5947,8 +11906,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5993,67 +11951,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849890499424*^9, - 3.9918498944226*^9}},ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], + CellChangeTimes->{{3.991849890499424*^9, 3.9918498944226*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 389, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499435787`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7393704151698523`*^-225\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 53, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.9939127653187943`*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +In[123]:=",ExpressionUUID->"0322bb50-add5-4a7b-8406-de7d73619985"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 390, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342349953579*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.643222556435218`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 54, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993912765325923*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +In[123]:=",ExpressionUUID->"6f8d455e-9065-4a13-8830-444aef8f08ae"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 391, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499625797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.765546954408762`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 123, 55, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993912765334044*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +In[123]:=",ExpressionUUID->"81d831d1-b9f4-4476-b9f6-15cbc6f5cff8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499715805`*^9}, +during this calculation.\"", 2, 123, 56, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993912765342657*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +In[123]:=",ExpressionUUID->"84365a8b-8af6-4e8a-8b89-8020ce96f185"], -Cell[BoxData["9.928941323789857`"], "Output", - CellChangeTimes->{3.991342356382967*^9}, +Cell[BoxData["50.60916543665978`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.993912771610303*^9}, CellLabel-> - "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] + "Out[123]=",ExpressionUUID->"cba9e17d-9411-4ab4-afe0-ac9f29cd584b"] }, Open ]], Cell[CellGroupData[{ @@ -6074,8 +12037,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6120,68 +12082,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499002266407`*^9, - 3.9918499040814323`*^9}},ExpressionUUID->"935796a8-6280-564a-b4d0-\ -fc6fb6cd41f8"], + CellChangeTimes->{{3.9918499002266407`*^9, 3.9918499040814323`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 393, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356420965*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7393704151698523`*^-225\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 57, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993912771653872*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +In[124]:=",ExpressionUUID->"9c89276c-fa41-4c3e-b2d4-9977f1ba49d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 394, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356431965*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.643222556435218`*^-231\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 58, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993912771661523*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +In[124]:=",ExpressionUUID->"e5fbb5b0-06cb-48bd-98fc-9c85a6e511b0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 395, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356441965*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.765546954408762`*^-237\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 59, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993912771668881*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +In[124]:=",ExpressionUUID->"0a7b17e8-2ade-45f1-b57b-479f9735141c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356450968*^9}, +during this calculation.\"", 2, 124, 60, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993912771675825*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +In[124]:=",ExpressionUUID->"34fefe3f-c3df-4f59-a155-f5637c31b37b"], -Cell[BoxData["19.874153108015193`"], "Output", - CellChangeTimes->{3.9913423600715523`*^9}, +Cell[BoxData["12.290923965082513`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.993912775488983*^9}, CellLabel-> - "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] + "Out[124]=",ExpressionUUID->"cb63632a-af24-427f-bc6c-b14e18b51048"] }, Open ]], Cell[CellGroupData[{ @@ -6190,22 +12156,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849908545643*^9, - 3.9918499133398113`*^9}},ExpressionUUID->"ee52036b-90c5-e14a-aed9-\ -684ff23ed035"], - -Cell[BoxData["0.2067571864462191`"], "Output", - CellChangeTimes->{3.9913423601046352`*^9}, + CellChangeTimes->{{3.991849908545643*^9, 3.9918499133398113`*^9}}, CellLabel-> - "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] + "In[125]:=",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], + +Cell[BoxData["0.014865942157169803`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.993912775532261*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"10d078a8-e622-441e-bbf2-f64da6aa6256"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849916273302*^9, 3.9918499185334816`*^9}, - 3.9919247506818066`*^9},ExpressionUUID->"c6d4a146-4cca-7e4e-b483-\ -85227a6e6b51"], + 3.9919247506818066`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ @@ -6228,12 +12195,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + "In[127]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913423601345863`*^9}, +Cell[BoxData["26.466421626583998`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.993912775549241*^9}, CellLabel-> - "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] + "Out[127]=",ExpressionUUID->"98957ea6-cb79-49d7-8df0-1e2d27795ff1"] }, Open ]], Cell[CellGroupData[{ @@ -6243,12 +12210,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + "In[128]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.9913423601709976`*^9}, +Cell[BoxData["2.3809514381765835`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.993912775558277*^9}, CellLabel-> - "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] + "Out[128]=",ExpressionUUID->"e07fe9e3-1fe9-48d6-a230-2f4f9742927d"] }, Open ]], Cell[CellGroupData[{ @@ -6258,12 +12225,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + "In[129]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913423602320137`*^9}, +Cell[BoxData["63.015264635203`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.993912775567246*^9}, CellLabel-> - "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] + "Out[129]=",ExpressionUUID->"37258d1e-a81d-4816-8722-12ff0cecfa34"] }, Open ]], Cell[CellGroupData[{ @@ -6453,12 +12420,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + "In[130]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[BoxData["0.02003459702393596`"], "Output", - CellChangeTimes->{3.991342360260002*^9}, +Cell[BoxData["0.00402552632389992`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.993912775582375*^9}, CellLabel-> - "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] + "Out[130]=",ExpressionUUID->"f4e2634f-e356-4876-be2d-a5493db37b99"] }, Open ]], Cell[CellGroupData[{ @@ -6472,12 +12439,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + "In[131]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[BoxData["6.261157591052328`"], "Output", - CellChangeTimes->{3.9913423603598785`*^9}, +Cell[BoxData["13.967980022237668`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.9939127757079067`*^9}, CellLabel-> - "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] + "Out[131]=",ExpressionUUID->"948bc8f1-7908-4795-9185-1c020f3087b2"] }, Open ]], Cell[CellGroupData[{ @@ -6669,12 +12636,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + "In[132]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[BoxData["0.010388932679900494`"], "Output", - CellChangeTimes->{3.991342360375868*^9}, +Cell[BoxData["0.014314410130108944`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.993912775719242*^9}, CellLabel-> - "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] + "Out[132]=",ExpressionUUID->"2d760fb4-18c0-4989-9ceb-8a61e4109e39"] }, Open ]], Cell[CellGroupData[{ @@ -6688,12 +12655,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + "In[133]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[BoxData["8.694797556550151`"], "Output", - CellChangeTimes->{3.991342360471882*^9}, +Cell[BoxData["7.407270635864089`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.99391277582664*^9}, CellLabel-> - "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] + "Out[133]=",ExpressionUUID->"c1399915-4933-4213-aa79-c1165d03b33f"] }, Open ]], Cell[CellGroupData[{ @@ -6786,12 +12753,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + "In[134]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991342360486868*^9}, +Cell[BoxData["0.16117107469700653`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.993912775836749*^9}, CellLabel-> - "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] + "Out[134]=",ExpressionUUID->"9d6d77aa-89dd-4721-9b94-91e8f51afdef"] }, Open ]], Cell[CellGroupData[{ @@ -6881,12 +12848,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + "In[135]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.9913423605138645`*^9}, +Cell[BoxData["0.8388289253029935`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.9939127758475733`*^9}, CellLabel-> - "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] + "Out[135]=",ExpressionUUID->"75b5bbaf-5d27-4740-a454-4909289ef362"] }, Open ]], Cell[CellGroupData[{ @@ -7009,12 +12976,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + "In[136]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.9913423605448647`*^9}, +Cell[BoxData["0.13519495937801848`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.993912775858635*^9}, CellLabel-> - "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] + "Out[136]=",ExpressionUUID->"e312c472-4b6b-4aba-8d82-2f30cc9384f7"] }, Open ]], Cell[CellGroupData[{ @@ -7076,68 +13043,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849936863495*^9},ExpressionUUID->"6b25ec99-ae49-ec4d-9652-\ -65328572e509"], + CellChangeTimes->{3.991849936863495*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 384, 397, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342360571863*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.11265480661595`*^-218\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 137, 61, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993912775874619*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +In[137]:=",ExpressionUUID->"587d9919-fb91-44cf-8ae5-b37f8c1acd6e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 384, 398, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605818653`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.480319396051099`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 137, 62, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.99391277588249*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +In[137]:=",ExpressionUUID->"336087e0-c45f-4a04-991a-e587f0464e8a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 384, - 399, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605898647`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.751034069633404`*^-229\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 137, 63, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993912775889537*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +In[137]:=",ExpressionUUID->"084c5824-71b7-4e77-a5c0-6671342e04b4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605988636`*^9}, +during this calculation.\"", 2, 137, 64, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993912775896323*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +In[137]:=",ExpressionUUID->"f71589a5-118d-49c5-90d1-9abcf543e506"], -Cell[BoxData["6.261157591052324`"], "Output", - CellChangeTimes->{3.9913423642473736`*^9}, +Cell[BoxData["13.967980022237661`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.993912779666295*^9}, CellLabel-> - "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] + "Out[137]=",ExpressionUUID->"9bcf5af4-0d31-4fed-bd77-fed4551191d0"] }, Open ]], Cell[CellGroupData[{ @@ -7199,68 +13170,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849940282545*^9},ExpressionUUID->"3e2baf62-fab9-eb41-8de7-\ -aa229443ac14"], + CellChangeTimes->{3.991849940282545*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 385, 401, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364284378*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.11265480661595`*^-218\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 65, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.993912779706501*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +In[138]:=",ExpressionUUID->"8c8c5809-eb70-4da7-baa0-761124a426c8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 385, 402, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423642935734`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.480319396051099`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 138, 66, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.993912779717695*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +In[138]:=",ExpressionUUID->"49bc33d5-d0cb-47d1-a8f9-445a19777b30"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 385, - 403, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364302574*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.751034069633404`*^-229\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 138, 67, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.993912779725732*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +In[138]:=",ExpressionUUID->"bdd7c7ba-7511-45f1-8b73-d5b39787dfaa"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423643105717`*^9}, +during this calculation.\"", 2, 138, 68, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9939127797351627`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +In[138]:=",ExpressionUUID->"a1040f5d-c197-4141-893c-ca8e86dcadc5"], -Cell[BoxData["8.694797556550144`"], "Output", - CellChangeTimes->{3.9913423679416714`*^9}, +Cell[BoxData["7.407270635864098`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.993912783449691*^9}, CellLabel-> - "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] + "Out[138]=",ExpressionUUID->"af88e2c9-a79c-4b32-bb9f-e1b399ec900f"] }, Open ]], Cell[CellGroupData[{ @@ -7318,95 +13293,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849946138607*^9},ExpressionUUID->"725c3011-bda9-4c42-96ce-\ -9a77a5dc787c"], + CellChangeTimes->{3.991849946138607*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VdsbB/CTKZkyZI7MpSI5CKn1muchGkx1Oc7ZSUion1SGUEkJkbol +FYpjSoa6hiLqFooM3a6M4ZjH7KPE9Vv+2M9+Ps/a613f9e61tyLtlDODg0Kh +jOJr7X76k+bWF62f9rNkiJ9GNSy0fzpbl2ZWgDr0Y7ftw+7P1EtVMatGDnbf +Xq7Zif6RR4D6Fqm7nszbj10SFlnPbdaMfnrpLCHs+HdStZHMz8gnQC/fGPuv +1tMPlrU7UXbc6WpT7PGuxgvnqr6izWXDGhbYMsPKHmzTbtTMdWvVCtt25oJB +SHMfehV3brcd9qvlcf4w5gD6aHG33hH7S7Tk+YrAQZThNl/ugj3NYza+oD2M +6j7H8rpi81wPcqMuslBBg1OVJ7a8SMb701WjKMv68CdvbAdZ9pNp00mkECQk +HoBNPFSS0OCdRvet66xCsCNVHeNONs+g7ypF3eewv0p27A5lziEBhp7qVWy6 +u9+JW9fnUZ1w2783sWfvUx49D/yB+mxzp9OxeZU0hOe0SaQjym2Qh51Kr7cU +FmcjmR8Jgc+xFZ66Re5aZKMqIQeuamz9nZenA6p+ou/lsU6t2L56fc3jpsuo +1K/u5Ar2QtgZLj61FcRTtTVrwysWiqriN1Ln/Q+xyUZDCew7oJ9/vHkV6W/9 +cE0Lm57z3iyYuQ6WavILT2Az393qj5blgOoMykgY9uzIsQvJ1zmA42Zq1FXs +C9vJ0meBnCDRE96Ri51arKg8o80N9wRtVqewu1onX/2XxQ1vXR4aUl7j/PMv +3IXEeUDFWv+LKHaBjkOKxiIPPCjV1DTAbvgrfJ1/FS+8EATva9hkfXvfqKkA +jEs5duyvZSFROwHh868EYMk4XMkNW6vDDAQNBEGl8tNACLbfUPnD3ZpCkLie +XcrEDuJo1tonIAxdzx2fyNWx0LBS0VwcWwSi4hrqpd7g/hCNG1qoojC61KZi +iM2Rz1KUOi0KAjniix7YCtQtzswJUejLM5x5iO1umvT8U78YyMVIa2rVs1CL +T3CIZJM4LKsPsnwaWKj3aWKCF68EtNnc9riOPTnBzMozl4BIoQTjcmy+0MH2 +vbUSMLl7nzfvWxYyiz2o41UuCalevTOl2JXZemRupjQM2c3aKPzNQtnDS2cN +Q+UgWqJ81b6RhawOXekNKZSDB4/OLEdhTzaIWRSy5GCLs6hnGbZO9k5xBTd5 +uKE+ZLq5CfeTdqyUe/8W8DXnqZjFnp/p/99ojAJQpzVVCz6ykFiAWVmpvRL0 +JnzQC/jMQqxsPl8nPyXYO6mSXID9srtVduqyEnhpRjlMYnvaHY1Rq1WCFZu9 +8/5tON+Os853tZVBaZ7VE9yO1x9/OhshqQJCh7QtkztZ6OBxfg2bAVWgBU74 +SXWxEDp7SPvIiipsbY9m0rC3x2XuoUurAW3M17oQm5JFNYk4oAZOhZo5pt9Y +qLDX48jzOjUQjHvdEdqNv8/DBdEyj7fCJ0+q+Fgvzmdm/2Wcpg416x6qSg+x +UJZL+rfFCHV49lnC+RR2Im2gn+ueOqjFCPa+xaZHnZmQb1cHSnfUptBhFhLB +B9vFdDsEs/N/d7Dw+aFOb69S3gEykRfLcsdYSFbpZmTC0E7o0yn8lj7DQtXX +FtR/cWjA3qJ3ThyzuB8/3DoIRQ3QlIjUC8B+0KCibnJMA/hqO13M5lhI6Xhl +289/NOCSi/uXxXm834JhVaJJE8L43i2HsFlITlaeUHDTAqZibV/tCgvtzAkV ++I20YWfy3fhCwRFEo8eQGg7aEJS4rL9DaATdUU7p9fLUhs4EDts8bM7Hxc/e +hWkD30VK+pONI6jrwfjBlBJtMDbmbMkRGUHxd7wy1JWp0C2tWFchPoJYCXaa +rjw60P1tokZJfgQ9ClZxKm/WBc+r0ZnKWiOo9SzaE5tjAHxt/Ycueo4gxWOd +Dkf998GgW6/VjpsjiLFaUSR3DuBpsHZbT8MIkpx4uV6SZgLUS14K23hGUSjV +qDtluxlcvOQt0GQ9imhTy+/Fxs2hdb7c80TKKCo0CVmf2WIJmfkvVZxHR1H2 +gl9dQao1xFq5FFHRGPppLPWxIdIWxHI0qDXZY6iHwjk34G0PUX+GWQxuHEeB +m08lRSs7AgxUT54PH0dFJ97XpsU5wfsjFpzu5DgK/yG9uOPEAdhrlvesKXAC +kTYWh//+wxl2HjnIVfBrAhl4JBsPH3CBfAcYNI6fRG3SGX4N1IOg6FlzKUZ8 +Csk8ianO3XYIxOL95Q3LptDL/u12DoKHwZefnUZzmEbyHbPHz04dhoywafg0 +Po2oackFWf1H4JvyxD3KnzMog+uHZkq9K2yzSluVUpxFFca7uuL+coNLG77u +joyYRXf2XBNZZrrD+LOimM3ds6jlW85l6nUPCL1lEv1OZw6V299XCYryhM70 +o8tzaXNoLsCFEkg/ClLB5okqc3OItFD3nTY9BrekriVdtplHuVP//gzR+wOm +bL9pjjHnkeujHJ+jAl6w18rCrZjzByp9bvsH5xUv4J4R1SS9fyAD2bZf8b+8 +oLHaffjMix9Iuf941+cT3kDI8jONeRfQEP9Jx/uD3qD0XtzwtccCak108LE8 +RIOkrVdzN+YsoNSwTP4zrTRgRlA8SqYXUPWr1V8+1j6w+fHC+AEtEm30hCvU +Smz7V/7TBIkUNv3dsrnaB2otbrs2HyeRVrO9FM8rH0jVOV+X50siZyOPvK91 +PjB35fUGHz8SpW4+23Txgw/cLIk81RJAIpme/I3vv/qA8MgNv5uhJFI5JnnH +c9EH3mQ//smMJpGB13RunA4dTpc9jLf8k0RP7s6GOOjRoU4hbZmNval9fr+k +Ph36hNMXcu6RaNp8sSN3Lx1M9luHcGSQ+P9FWddsQoe7W8VyyzNJJLQo4iZ6 +gA4rzj0dXDkkGrqhuyEzgA4yobv8zYtJlFh14cTLJ3TQaplytX5DogDtdIOw +XDo0zkm6fsG2yyvZoM+kg+Qply5aPYn40ll5LwrpUMP14Hh4A4nigp3GK8ro +MFv6/XHWOxJdUFc5Wf6GDvfyQq70NpLIL73J/3kvHWyVpI6TbSSyFmIZBffT +IY+y815wO4m2xVEEtb/TQfxuiOMMNitYt7BkmA78aZb6Ix0k8nbInHo2SYey +60zez19I5ModEli8RAdBoi/5eheJLENkggokGJDqf7Li8QCJ3mRetkmRYoB2 +UxKP9HcSGTXPq4TJMEDX1LImEVtLtelfU3kGZL3hORY2SCLpf86bflNlgMeJ +3X5mwySaMOyR4NNlgG1D1p3XoyS6yfGw5rgLAyToxcXGM3j/uwTu2B9igNht +t5xs7FiPsGDqEQZo8Xz4j2eWRGFlTltX3Rkgafik+wO2N7Eu+TaNASIraiZW +8ySiNtLob08z4GiCSNZWkkT/JKvyKycxYOr6ZYOgJRIVIUHf0WQGDI96GlZi +x04tNBTeYkC+sXoJ528SaVs3ROinM0CTGUhJw06k+MzbP2CA6ZKRSskyiSxO +Pfw3rIAB+6JqzrT8RyI5uat6+4sYkKQx1iK8SqKFxlO3OJ/hPFzGmQewH6sh ++8RSBnRJW2R8xl7p6anNqmTAcqe3eBOFjcrsZHM/vWeAYIvwZBYHGyUscXCn +NuLnQ4pudWPTcse93ZoZEGz2d/EmTjYS5qqUHWphwPrbxuYx2P5Vrjd/fWFA +RwUMuXGxkfL222dVhhkgF/trbJKbjZb+udg+xmJA0KHyjs08bNQax9AqHmUA +M+Qg1Q47YkBn3GCSASc2ydjlYXfdaT/q+IMB7kNfxj3Xs1HKehHz8HUEOMvz +fcnjZaPq+R6PUE4C5qlhkZ3YIz3M4EBuAjqeF52jbGAjozKzh7QNBNwfsvc6 +iM3yCvttI0KAaKod+QNb2M5c1FwMj7stKMvwsdHePaLqSJyAkUsyWQg7SbDg +MFWagIj51ylX18Yr+0pkFQnIuhevJ8rPRkROwXtxZQJMX+0b1cZOSjrXt1GV +gGe6WuPO2CxCTJBLnYBE0dLepLVxMUvfSS2c73NAPJcAG1X+JxbJ0iagotWp +egv28Fh/Wr8OAfqbjJAhtmFteH2HPgHW7mK6AdhD/kXyNUDAU1Dtb8QWcj2v ++8KEAGDmpfRjG5ha2ZWYEcDpwJdGYidKfz+XY0VAu4F9vJwgG73kKk7KtCFg +j7faeS3swZnzT+/aERAZ/aHaBFv/nXjnDScCPqoe3cXAppV8n7jiTMBQo7nX +Gewb94s5Lh3E/csf7Y/F/h5srXXWlYBz0o6fH2ELHpOwDHInoIFPwLh4rZ71 +4FE/TwKsVs5Qqtfmb7mYcMyLgFXCPLB9LQ+fzWNXGp4fk7O5d60eKfGXM52A +gomnMqNr9QYGW+wIAmYP2/jOrdVrfsay8MXOvsa9tJbvxcUV8MPvr4eYXyeE +6z+22bTXnwCT3T2aG7Bf3pDcoRtIQOjPicqN2N/Dhox3BeH8Zcm3xbEF6CWu +6sEEuAh+rJPB3uMYcUo5lID6zvtGW7BphraX5c7ieusp65Wxr6tKZUiGEbBQ +TyqoYVcID5eKhBPge/jitW3YA79LGvkvEBCw+7bp9rX6IxED3BEEaMwiux3Y +em22P1cjCdA6HJ695v8Dhz7w2w== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7420,107 +13394,106 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwV1Hk4VdsbB/CTKZkyZI7MpSI5CKn1muchGkx1Oc7ZSUion1SGUEkJkbol +FYpjSoa6hiLqFooM3a6M4ZjH7KPE9Vv+2M9+Ps/a613f9e61tyLtlDODg0Kh +jOJr7X76k+bWF62f9rNkiJ9GNSy0fzpbl2ZWgDr0Y7ftw+7P1EtVMatGDnbf +Xq7Zif6RR4D6Fqm7nszbj10SFlnPbdaMfnrpLCHs+HdStZHMz8gnQC/fGPuv +1tMPlrU7UXbc6WpT7PGuxgvnqr6izWXDGhbYMsPKHmzTbtTMdWvVCtt25oJB +SHMfehV3brcd9qvlcf4w5gD6aHG33hH7S7Tk+YrAQZThNl/ugj3NYza+oD2M +6j7H8rpi81wPcqMuslBBg1OVJ7a8SMb701WjKMv68CdvbAdZ9pNp00mkECQk +HoBNPFSS0OCdRvet66xCsCNVHeNONs+g7ypF3eewv0p27A5lziEBhp7qVWy6 +u9+JW9fnUZ1w2783sWfvUx49D/yB+mxzp9OxeZU0hOe0SaQjym2Qh51Kr7cU +FmcjmR8Jgc+xFZ66Re5aZKMqIQeuamz9nZenA6p+ou/lsU6t2L56fc3jpsuo +1K/u5Ar2QtgZLj61FcRTtTVrwysWiqriN1Ln/Q+xyUZDCew7oJ9/vHkV6W/9 +cE0Lm57z3iyYuQ6WavILT2Az393qj5blgOoMykgY9uzIsQvJ1zmA42Zq1FXs +C9vJ0meBnCDRE96Ri51arKg8o80N9wRtVqewu1onX/2XxQ1vXR4aUl7j/PMv +3IXEeUDFWv+LKHaBjkOKxiIPPCjV1DTAbvgrfJ1/FS+8EATva9hkfXvfqKkA +jEs5duyvZSFROwHh868EYMk4XMkNW6vDDAQNBEGl8tNACLbfUPnD3ZpCkLie +XcrEDuJo1tonIAxdzx2fyNWx0LBS0VwcWwSi4hrqpd7g/hCNG1qoojC61KZi +iM2Rz1KUOi0KAjniix7YCtQtzswJUejLM5x5iO1umvT8U78YyMVIa2rVs1CL +T3CIZJM4LKsPsnwaWKj3aWKCF68EtNnc9riOPTnBzMozl4BIoQTjcmy+0MH2 +vbUSMLl7nzfvWxYyiz2o41UuCalevTOl2JXZemRupjQM2c3aKPzNQtnDS2cN +Q+UgWqJ81b6RhawOXekNKZSDB4/OLEdhTzaIWRSy5GCLs6hnGbZO9k5xBTd5 +uKE+ZLq5CfeTdqyUe/8W8DXnqZjFnp/p/99ojAJQpzVVCz6ykFiAWVmpvRL0 +JnzQC/jMQqxsPl8nPyXYO6mSXID9srtVduqyEnhpRjlMYnvaHY1Rq1WCFZu9 +8/5tON+Os853tZVBaZ7VE9yO1x9/OhshqQJCh7QtkztZ6OBxfg2bAVWgBU74 +SXWxEDp7SPvIiipsbY9m0rC3x2XuoUurAW3M17oQm5JFNYk4oAZOhZo5pt9Y +qLDX48jzOjUQjHvdEdqNv8/DBdEyj7fCJ0+q+Fgvzmdm/2Wcpg416x6qSg+x +UJZL+rfFCHV49lnC+RR2Im2gn+ueOqjFCPa+xaZHnZmQb1cHSnfUptBhFhLB +B9vFdDsEs/N/d7Dw+aFOb69S3gEykRfLcsdYSFbpZmTC0E7o0yn8lj7DQtXX +FtR/cWjA3qJ3ThyzuB8/3DoIRQ3QlIjUC8B+0KCibnJMA/hqO13M5lhI6Xhl +289/NOCSi/uXxXm834JhVaJJE8L43i2HsFlITlaeUHDTAqZibV/tCgvtzAkV ++I20YWfy3fhCwRFEo8eQGg7aEJS4rL9DaATdUU7p9fLUhs4EDts8bM7Hxc/e +hWkD30VK+pONI6jrwfjBlBJtMDbmbMkRGUHxd7wy1JWp0C2tWFchPoJYCXaa +rjw60P1tokZJfgQ9ClZxKm/WBc+r0ZnKWiOo9SzaE5tjAHxt/Ycueo4gxWOd +Dkf998GgW6/VjpsjiLFaUSR3DuBpsHZbT8MIkpx4uV6SZgLUS14K23hGUSjV +qDtluxlcvOQt0GQ9imhTy+/Fxs2hdb7c80TKKCo0CVmf2WIJmfkvVZxHR1H2 +gl9dQao1xFq5FFHRGPppLPWxIdIWxHI0qDXZY6iHwjk34G0PUX+GWQxuHEeB +m08lRSs7AgxUT54PH0dFJ97XpsU5wfsjFpzu5DgK/yG9uOPEAdhrlvesKXAC +kTYWh//+wxl2HjnIVfBrAhl4JBsPH3CBfAcYNI6fRG3SGX4N1IOg6FlzKUZ8 +Csk8ianO3XYIxOL95Q3LptDL/u12DoKHwZefnUZzmEbyHbPHz04dhoywafg0 +Po2oackFWf1H4JvyxD3KnzMog+uHZkq9K2yzSluVUpxFFca7uuL+coNLG77u +joyYRXf2XBNZZrrD+LOimM3ds6jlW85l6nUPCL1lEv1OZw6V299XCYryhM70 +o8tzaXNoLsCFEkg/ClLB5okqc3OItFD3nTY9BrekriVdtplHuVP//gzR+wOm +bL9pjjHnkeujHJ+jAl6w18rCrZjzByp9bvsH5xUv4J4R1SS9fyAD2bZf8b+8 +oLHaffjMix9Iuf941+cT3kDI8jONeRfQEP9Jx/uD3qD0XtzwtccCak108LE8 +RIOkrVdzN+YsoNSwTP4zrTRgRlA8SqYXUPWr1V8+1j6w+fHC+AEtEm30hCvU +Smz7V/7TBIkUNv3dsrnaB2otbrs2HyeRVrO9FM8rH0jVOV+X50siZyOPvK91 +PjB35fUGHz8SpW4+23Txgw/cLIk81RJAIpme/I3vv/qA8MgNv5uhJFI5JnnH +c9EH3mQ//smMJpGB13RunA4dTpc9jLf8k0RP7s6GOOjRoU4hbZmNval9fr+k +Ph36hNMXcu6RaNp8sSN3Lx1M9luHcGSQ+P9FWddsQoe7W8VyyzNJJLQo4iZ6 +gA4rzj0dXDkkGrqhuyEzgA4yobv8zYtJlFh14cTLJ3TQaplytX5DogDtdIOw +XDo0zkm6fsG2yyvZoM+kg+Qply5aPYn40ll5LwrpUMP14Hh4A4nigp3GK8ro +MFv6/XHWOxJdUFc5Wf6GDvfyQq70NpLIL73J/3kvHWyVpI6TbSSyFmIZBffT +IY+y815wO4m2xVEEtb/TQfxuiOMMNitYt7BkmA78aZb6Ix0k8nbInHo2SYey +60zez19I5ModEli8RAdBoi/5eheJLENkggokGJDqf7Li8QCJ3mRetkmRYoB2 +UxKP9HcSGTXPq4TJMEDX1LImEVtLtelfU3kGZL3hORY2SCLpf86bflNlgMeJ +3X5mwySaMOyR4NNlgG1D1p3XoyS6yfGw5rgLAyToxcXGM3j/uwTu2B9igNht +t5xs7FiPsGDqEQZo8Xz4j2eWRGFlTltX3Rkgafik+wO2N7Eu+TaNASIraiZW +8ySiNtLob08z4GiCSNZWkkT/JKvyKycxYOr6ZYOgJRIVIUHf0WQGDI96GlZi +x04tNBTeYkC+sXoJ528SaVs3ROinM0CTGUhJw06k+MzbP2CA6ZKRSskyiSxO +Pfw3rIAB+6JqzrT8RyI5uat6+4sYkKQx1iK8SqKFxlO3OJ/hPFzGmQewH6sh ++8RSBnRJW2R8xl7p6anNqmTAcqe3eBOFjcrsZHM/vWeAYIvwZBYHGyUscXCn +NuLnQ4pudWPTcse93ZoZEGz2d/EmTjYS5qqUHWphwPrbxuYx2P5Vrjd/fWFA +RwUMuXGxkfL222dVhhkgF/trbJKbjZb+udg+xmJA0KHyjs08bNQax9AqHmUA +M+Qg1Q47YkBn3GCSASc2ydjlYXfdaT/q+IMB7kNfxj3Xs1HKehHz8HUEOMvz +fcnjZaPq+R6PUE4C5qlhkZ3YIz3M4EBuAjqeF52jbGAjozKzh7QNBNwfsvc6 +iM3yCvttI0KAaKod+QNb2M5c1FwMj7stKMvwsdHePaLqSJyAkUsyWQg7SbDg +MFWagIj51ylX18Yr+0pkFQnIuhevJ8rPRkROwXtxZQJMX+0b1cZOSjrXt1GV +gGe6WuPO2CxCTJBLnYBE0dLepLVxMUvfSS2c73NAPJcAG1X+JxbJ0iagotWp +egv28Fh/Wr8OAfqbjJAhtmFteH2HPgHW7mK6AdhD/kXyNUDAU1Dtb8QWcj2v ++8KEAGDmpfRjG5ha2ZWYEcDpwJdGYidKfz+XY0VAu4F9vJwgG73kKk7KtCFg +j7faeS3swZnzT+/aERAZ/aHaBFv/nXjnDScCPqoe3cXAppV8n7jiTMBQo7nX +Gewb94s5Lh3E/csf7Y/F/h5srXXWlYBz0o6fH2ELHpOwDHInoIFPwLh4rZ71 +4FE/TwKsVs5Qqtfmb7mYcMyLgFXCPLB9LQ+fzWNXGp4fk7O5d60eKfGXM52A +gomnMqNr9QYGW+wIAmYP2/jOrdVrfsay8MXOvsa9tJbvxcUV8MPvr4eYXyeE +6z+22bTXnwCT3T2aG7Bf3pDcoRtIQOjPicqN2N/Dhox3BeH8Zcm3xbEF6CWu +6sEEuAh+rJPB3uMYcUo5lID6zvtGW7BphraX5c7ieusp65Wxr6tKZUiGEbBQ +TyqoYVcID5eKhBPge/jitW3YA79LGvkvEBCw+7bp9rX6IxED3BEEaMwiux3Y +em22P1cjCdA6HJ695v8Dhz7w2w== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.7106003619709014, + 1.3784595894734473`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.7106003619709029}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7532,21 +13505,21 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.7106003619709014, + 1.3784595894734473`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.7106003619709029}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7560,105 +13533,104 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwV1Hk4VdsbB/CTKZkyZI7MpSI5CKn1muchGkx1Oc7ZSUion1SGUEkJkbol +FYpjSoa6hiLqFooM3a6M4ZjH7KPE9Vv+2M9+Ps/a613f9e61tyLtlDODg0Kh +jOJr7X76k+bWF62f9rNkiJ9GNSy0fzpbl2ZWgDr0Y7ftw+7P1EtVMatGDnbf +Xq7Zif6RR4D6Fqm7nszbj10SFlnPbdaMfnrpLCHs+HdStZHMz8gnQC/fGPuv +1tMPlrU7UXbc6WpT7PGuxgvnqr6izWXDGhbYMsPKHmzTbtTMdWvVCtt25oJB +SHMfehV3brcd9qvlcf4w5gD6aHG33hH7S7Tk+YrAQZThNl/ugj3NYza+oD2M +6j7H8rpi81wPcqMuslBBg1OVJ7a8SMb701WjKMv68CdvbAdZ9pNp00mkECQk +HoBNPFSS0OCdRvet66xCsCNVHeNONs+g7ypF3eewv0p27A5lziEBhp7qVWy6 +u9+JW9fnUZ1w2783sWfvUx49D/yB+mxzp9OxeZU0hOe0SaQjym2Qh51Kr7cU +FmcjmR8Jgc+xFZ66Re5aZKMqIQeuamz9nZenA6p+ou/lsU6t2L56fc3jpsuo +1K/u5Ar2QtgZLj61FcRTtTVrwysWiqriN1Ln/Q+xyUZDCew7oJ9/vHkV6W/9 +cE0Lm57z3iyYuQ6WavILT2Az393qj5blgOoMykgY9uzIsQvJ1zmA42Zq1FXs +C9vJ0meBnCDRE96Ri51arKg8o80N9wRtVqewu1onX/2XxQ1vXR4aUl7j/PMv +3IXEeUDFWv+LKHaBjkOKxiIPPCjV1DTAbvgrfJ1/FS+8EATva9hkfXvfqKkA +jEs5duyvZSFROwHh868EYMk4XMkNW6vDDAQNBEGl8tNACLbfUPnD3ZpCkLie +XcrEDuJo1tonIAxdzx2fyNWx0LBS0VwcWwSi4hrqpd7g/hCNG1qoojC61KZi +iM2Rz1KUOi0KAjniix7YCtQtzswJUejLM5x5iO1umvT8U78YyMVIa2rVs1CL +T3CIZJM4LKsPsnwaWKj3aWKCF68EtNnc9riOPTnBzMozl4BIoQTjcmy+0MH2 +vbUSMLl7nzfvWxYyiz2o41UuCalevTOl2JXZemRupjQM2c3aKPzNQtnDS2cN +Q+UgWqJ81b6RhawOXekNKZSDB4/OLEdhTzaIWRSy5GCLs6hnGbZO9k5xBTd5 +uKE+ZLq5CfeTdqyUe/8W8DXnqZjFnp/p/99ojAJQpzVVCz6ykFiAWVmpvRL0 +JnzQC/jMQqxsPl8nPyXYO6mSXID9srtVduqyEnhpRjlMYnvaHY1Rq1WCFZu9 +8/5tON+Os853tZVBaZ7VE9yO1x9/OhshqQJCh7QtkztZ6OBxfg2bAVWgBU74 +SXWxEDp7SPvIiipsbY9m0rC3x2XuoUurAW3M17oQm5JFNYk4oAZOhZo5pt9Y +qLDX48jzOjUQjHvdEdqNv8/DBdEyj7fCJ0+q+Fgvzmdm/2Wcpg416x6qSg+x +UJZL+rfFCHV49lnC+RR2Im2gn+ueOqjFCPa+xaZHnZmQb1cHSnfUptBhFhLB +B9vFdDsEs/N/d7Dw+aFOb69S3gEykRfLcsdYSFbpZmTC0E7o0yn8lj7DQtXX +FtR/cWjA3qJ3ThyzuB8/3DoIRQ3QlIjUC8B+0KCibnJMA/hqO13M5lhI6Xhl +289/NOCSi/uXxXm834JhVaJJE8L43i2HsFlITlaeUHDTAqZibV/tCgvtzAkV ++I20YWfy3fhCwRFEo8eQGg7aEJS4rL9DaATdUU7p9fLUhs4EDts8bM7Hxc/e +hWkD30VK+pONI6jrwfjBlBJtMDbmbMkRGUHxd7wy1JWp0C2tWFchPoJYCXaa +rjw60P1tokZJfgQ9ClZxKm/WBc+r0ZnKWiOo9SzaE5tjAHxt/Ycueo4gxWOd +Dkf998GgW6/VjpsjiLFaUSR3DuBpsHZbT8MIkpx4uV6SZgLUS14K23hGUSjV +qDtluxlcvOQt0GQ9imhTy+/Fxs2hdb7c80TKKCo0CVmf2WIJmfkvVZxHR1H2 +gl9dQao1xFq5FFHRGPppLPWxIdIWxHI0qDXZY6iHwjk34G0PUX+GWQxuHEeB +m08lRSs7AgxUT54PH0dFJ97XpsU5wfsjFpzu5DgK/yG9uOPEAdhrlvesKXAC +kTYWh//+wxl2HjnIVfBrAhl4JBsPH3CBfAcYNI6fRG3SGX4N1IOg6FlzKUZ8 +Csk8ianO3XYIxOL95Q3LptDL/u12DoKHwZefnUZzmEbyHbPHz04dhoywafg0 +Po2oackFWf1H4JvyxD3KnzMog+uHZkq9K2yzSluVUpxFFca7uuL+coNLG77u +joyYRXf2XBNZZrrD+LOimM3ds6jlW85l6nUPCL1lEv1OZw6V299XCYryhM70 +o8tzaXNoLsCFEkg/ClLB5okqc3OItFD3nTY9BrekriVdtplHuVP//gzR+wOm +bL9pjjHnkeujHJ+jAl6w18rCrZjzByp9bvsH5xUv4J4R1SS9fyAD2bZf8b+8 +oLHaffjMix9Iuf941+cT3kDI8jONeRfQEP9Jx/uD3qD0XtzwtccCak108LE8 +RIOkrVdzN+YsoNSwTP4zrTRgRlA8SqYXUPWr1V8+1j6w+fHC+AEtEm30hCvU +Smz7V/7TBIkUNv3dsrnaB2otbrs2HyeRVrO9FM8rH0jVOV+X50siZyOPvK91 +PjB35fUGHz8SpW4+23Txgw/cLIk81RJAIpme/I3vv/qA8MgNv5uhJFI5JnnH +c9EH3mQ//smMJpGB13RunA4dTpc9jLf8k0RP7s6GOOjRoU4hbZmNval9fr+k +Ph36hNMXcu6RaNp8sSN3Lx1M9luHcGSQ+P9FWddsQoe7W8VyyzNJJLQo4iZ6 +gA4rzj0dXDkkGrqhuyEzgA4yobv8zYtJlFh14cTLJ3TQaplytX5DogDtdIOw +XDo0zkm6fsG2yyvZoM+kg+Qply5aPYn40ll5LwrpUMP14Hh4A4nigp3GK8ro +MFv6/XHWOxJdUFc5Wf6GDvfyQq70NpLIL73J/3kvHWyVpI6TbSSyFmIZBffT +IY+y815wO4m2xVEEtb/TQfxuiOMMNitYt7BkmA78aZb6Ix0k8nbInHo2SYey +60zez19I5ModEli8RAdBoi/5eheJLENkggokGJDqf7Li8QCJ3mRetkmRYoB2 +UxKP9HcSGTXPq4TJMEDX1LImEVtLtelfU3kGZL3hORY2SCLpf86bflNlgMeJ +3X5mwySaMOyR4NNlgG1D1p3XoyS6yfGw5rgLAyToxcXGM3j/uwTu2B9igNht +t5xs7FiPsGDqEQZo8Xz4j2eWRGFlTltX3Rkgafik+wO2N7Eu+TaNASIraiZW +8ySiNtLob08z4GiCSNZWkkT/JKvyKycxYOr6ZYOgJRIVIUHf0WQGDI96GlZi +x04tNBTeYkC+sXoJ528SaVs3ROinM0CTGUhJw06k+MzbP2CA6ZKRSskyiSxO +Pfw3rIAB+6JqzrT8RyI5uat6+4sYkKQx1iK8SqKFxlO3OJ/hPFzGmQewH6sh ++8RSBnRJW2R8xl7p6anNqmTAcqe3eBOFjcrsZHM/vWeAYIvwZBYHGyUscXCn +NuLnQ4pudWPTcse93ZoZEGz2d/EmTjYS5qqUHWphwPrbxuYx2P5Vrjd/fWFA +RwUMuXGxkfL222dVhhkgF/trbJKbjZb+udg+xmJA0KHyjs08bNQax9AqHmUA +M+Qg1Q47YkBn3GCSASc2ydjlYXfdaT/q+IMB7kNfxj3Xs1HKehHz8HUEOMvz +fcnjZaPq+R6PUE4C5qlhkZ3YIz3M4EBuAjqeF52jbGAjozKzh7QNBNwfsvc6 +iM3yCvttI0KAaKod+QNb2M5c1FwMj7stKMvwsdHePaLqSJyAkUsyWQg7SbDg +MFWagIj51ylX18Yr+0pkFQnIuhevJ8rPRkROwXtxZQJMX+0b1cZOSjrXt1GV +gGe6WuPO2CxCTJBLnYBE0dLepLVxMUvfSS2c73NAPJcAG1X+JxbJ0iagotWp +egv28Fh/Wr8OAfqbjJAhtmFteH2HPgHW7mK6AdhD/kXyNUDAU1Dtb8QWcj2v ++8KEAGDmpfRjG5ha2ZWYEcDpwJdGYidKfz+XY0VAu4F9vJwgG73kKk7KtCFg +j7faeS3swZnzT+/aERAZ/aHaBFv/nXjnDScCPqoe3cXAppV8n7jiTMBQo7nX +Gewb94s5Lh3E/csf7Y/F/h5srXXWlYBz0o6fH2ELHpOwDHInoIFPwLh4rZ71 +4FE/TwKsVs5Qqtfmb7mYcMyLgFXCPLB9LQ+fzWNXGp4fk7O5d60eKfGXM52A +gomnMqNr9QYGW+wIAmYP2/jOrdVrfsay8MXOvsa9tJbvxcUV8MPvr4eYXyeE +6z+22bTXnwCT3T2aG7Bf3pDcoRtIQOjPicqN2N/Dhox3BeH8Zcm3xbEF6CWu +6sEEuAh+rJPB3uMYcUo5lID6zvtGW7BphraX5c7ieusp65Wxr6tKZUiGEbBQ +TyqoYVcID5eKhBPge/jitW3YA79LGvkvEBCw+7bp9rX6IxED3BEEaMwiux3Y +em22P1cjCdA6HJ695v8Dhz7w2w== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.7106003619709014, 1.3784595894734473`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.7106003619709029}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7668,7 +13640,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5012481131960849}, + AxesOrigin->{0, 0.7106003619709029}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7696,7 +13669,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7106003619709014, 1.3784595894734473`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7704,9 +13678,9 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991342629715925*^9}, + CellChangeTimes->{3.991342629715925*^9, 3.993913074672179*^9}, CellLabel-> - "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] + "Out[139]=",ExpressionUUID->"78d6b1e4-782b-42e4-bbde-3a65a383ffb7"] }, Open ]], Cell[CellGroupData[{ @@ -7769,156 +13743,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991849950722357*^9, - 3.9918499540026855`*^9}},ExpressionUUID->"1ea503b1-33a1-2744-a92d-\ -2e1269faf5ed"], + CellChangeTimes->{{3.991849950722357*^9, 3.9918499540026855`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 387, - 405, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299467087`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6609917497192289`*^-276\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993913074818337*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], +In[140]:=",ExpressionUUID->"f3454c4a-6373-4e65-ae16-88e4016b94a6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.6980429454765773`*^-288\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 70, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.9939130748278112`*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"6018480f-ce5e-420b-bdab-c22d183e739c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7359206300513918`*^-300\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 387, 406, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629956772*^9}, + 140, 71, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993913074836919*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 387, 407, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629966284*^9}, - CellLabel-> - "During evaluation of \ -In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +In[140]:=",ExpressionUUID->"9510cf56-ef32-4d6d-974b-29bf848ef33f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299753895`*^9}, +during this calculation.\"", 2, 140, 72, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993913074845374*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +In[140]:=",ExpressionUUID->"9f7a357c-8e18-4d8c-bdad-8097983e73f3"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VWsXB3AXoa4kRSjTGfYxRzI7rSVTJFQIb1EhRShJ1xCHMhUyZSgh +Ic6uaDKrDJVSopShUKmuuKbMlevd96/9+X72/Dxr/Z5H4aD/Lk9eHh4e/j94 +eP47zvY/a2acL9zSKVk/VqOivaUzVzLYuDsKdGms2gs+awDFXx2U7E6FfVUZ +Eh4+dAiy43bxdReAR/vpCksfLVg9ti51oesO/JbcYavsYwIDdTb+012NUDsi +86jDezeYM4b7Jrtew/cnk+uijrjDQpfuxYmuz7BwTeHSDo8T0GRyvbCjYAo0 +3fPilzachQ0D1d8Oqi6CQFBDngw3EdYedeMKmvBhRP83hYMeaZCqaV5r4yCE +SY2CaW8Vs6AnS+PRpOhKTMpUd7HxyoHzhRGveKVW45mVe1a1u+bDuvTB+LQr +azBd8aKcn3MBxNpbbnk9K47n5kN4tYUL4YT+VbdnUZI4LGRaAJVFYDr+M8Rv +UBpftUYWv5O6DpFGOw9I68ngM2Fl4yCrEtjmmvtDd6sM7qwbzkTbEhDhjJxx +sJbBRiXfSkH7Eshpii5O3i+Dv4TLbBP2lUCVVc2IQLwMXute2+93rAQmnOhB +Uz0yWP6abpR9sQRcT86cexEqi0Mzff6RfSVgcCv7XvhDORRz2p520b0UTLva +Fsda5HDWesrX2qsUbHj4Ldxey2Gqo14Aj08puO/y64GvchgjtXvOLaAUzEMV +IjjL5NEo7ufkb04pHJObvWasIo88yeycW1dKodkrb7QpSB5HlksET3SWguVv +fbGwUHls/Xfez7q7FNqSO3U2c+TR+RomFr0vhZ7q5ZzCeHk03bOw1fZzKYz9 +GSgWnSOP9aHCaZzxUpAs36Zr3iiPgy1mT12Wc+Ho/CSnZaUChrvwXh814ILB +8UMS38QUsP6VDG3jFi4IDfeSfJIKKHrfzMLXmAtF75vebaEp4KFcweQBCy70 +P7ioel9HAWUZ6TI59lywjdbvvuqmgI6fxdgnfbmwSSxyY+htBbwdm7+7JIcL +POdnmrMqFDAoxn9rRB4X2vi8XSpqFZBn6d/+XQVc8JnZFT35WAFXbeGjTVzn +QmE3471XrwJ6Zhl38t7lgkReS4w9Hw2zcltF41u4sKAi2q/mQMN24yxz6Uku +zF6RjtRyoeHR5u8zoVNcmF7FZOi70TCjffJU7wwXxqb0vU2P0JDHXXQm8ScX +Pte6z7qcpuEKdfHeNj4Snm+vFIkroqHH44LoKnESLvm4wucZGu7o0tVW0yUh +s+/w579/0rAhz7NKSZ+EdNsT0aNLNBxwbpKgG5KQpBXXOr+cjo81zQ4JAwlR +v27vWSVLx7QmHudqcxJ8zi87ZmROR31f9c4wBxKMyBv5GRl0LJKgB904RsJ7 +eTLP7DJ1/d92KUoBJIRklOZO59HRKK9/4doJEioji3N2ldLx82G7e8lBJGxy +ys8SqaMjw4/eZRlGgtKy9OSYT3Q02ZMhbRhLQktI6gXtb3Q8c1VQMzGOhEMT +yUlfhulY9now+0M8CYXvExO2TtORpqTucSKBBPk7sXH/CjBw1MXlCyeFBAm3 +UE6QKgNvBX/tX3+ZhPudwRFMTQbWbXM3Nckhwd7qr/BObQaC7aM/Dl8hIVX7 +ZNgmYGCD8Zno0jwSVgr7/zW2k4GJ3zRrhQtJ4K8+eOzQKQa+PcbVsL9BwjX1 +A/7iYQxML+fAzpskbC1082vmMLDaefWN7bdIiLiw9yjtHAPz477l6ZWT8NPT +8XB/DgPzciUWf9wlYVLMar9jIwNdQmK+fK8hofsord37KQMtP3XUtNWS8OjJ +T4h4wcAVm+wiyutISA4h5UreMfCT6Uyn9wMSND4LDywMM1Aw+2hDTQMJkkZf +bUQmGFjE27UutpEEnoz6B7QZBtZ4Xd1v10TCK0u/3O1LDDybE9Ta00yC3+1X ++66sYeKq5XTxlqckOP5Z8vK2JBNvLMWvDGshYYsnh/1Ehon7nfJ+qz6jxkNK +U2acxcSXqgIN0c9JuMFJ/YBGTJwf0v0h9pKqp15vawdjJh7pjyy7RTlss0nd +EXMmbjj+3cuijYTtQ1OXU+2YOHBr1wv/VyQM2zr874sHE41DA07kdJDwulSt +df4IE30enpOSf01CDZ+A4Up/Jp5Ut3uYTzm+skJaJ5iJM6+0hLPfkKAoJ9kb +m8hE/ht3aj3fkiAaPGGZk8pEumO0fwfl+dct1eWZTPSNvccyeEfVU0xwds9V +JipHxV/n7SLBa6zXSaWCiW/U2mf8u0mw2Xa3BWqZODpv1tdEWafgvJ79IyZ2 +Tnx7ubaHBAFHI8nTz5kY8k365U3KY2Vr41JeMfGS498fZii/Wz46V9TJxKdd +O+cNekkorr/S1dbPxJuawfZ1lJPWBVkMDjLxivWJjHnKQcdtKueGmBj5O/qb +5nsSXFsJlvAYE81W7zQ7TNmMuZQhP8XEv94E3r1MWTWiS0B7nomr+VM1X1Be +21MWZLnIRIkPlo8WKH9J2O8YIEjg+XpRMesP1PwOq9I0hAksHskM8aM8Z7Ew +OipK4O17ZY5JlDlFj6tJcQJpK/uKScor+FKjj0gT6GdS5POEcvp+150sOQKf +LiUW9VOWeaAs85VO4KyJjMM05eL1c0MFigTSfXpCBPuoegxuurdfjXqfkuU6 +Sco17y5wZDcR+D5hSpmgbLJ5r/UHHQK//3Sr0KT8IkVR8pIhgRc2SdQYUHYc +nx7cgwT+tsrVMab80bqhTNyMwJy7HFUzyt7cxNA3lgS+0zLPMac8LehikWJD +4NzwqZj/zp/2JNbY7ibwi23eyH/3CzT96Bd2op6nYf7CkHKy/EPu873U99yd +VdSiLB1+PijuAIHqDoa8in3/5cmereaHCOQM5TpJU1bXZ4jw+xDIn3VDdQXl +yoyJngZ/any+jIfPUf+P03VFEYEE3imctv1M+fnO+OPsYOr7llnkP6dsX+bA +/nWawPZzJ46VU+4Tpi2vjiJQX1iwIY3yIe+xzqBYAjdXJaUGUp54WpO/OYFA +JbGsr7sohzBjj/5IJjD/R3mNOmW+M7v1yi8SyBvrJSZEWWLLP69U8ghMUxza +fpea//zLVZe/XyPQVbddPZqy0sJZr+slBA78Tsmwp2x0T2aJdofAx9s/z45Q +9fdk9fDzjxUESgelTNylbOdfkZFbS+D1rP8dD6bsrmyrLv2YOp8TvWKRqu9/ +Ytf/7HpG4GSFEKOWctDXvx9fbCMwlj36JIjyuXzOvtXdBHYmMMhvVP+US9xJ +EBohsFLSY7GE6jeDwHCnJ+MEBm4WCthNuanDinF2mkAhAW7gL6o/3yUM1i4t +EvhhxoAwpfybV3xkVpSFb1omrKo6SYjZ/6ninjgL/yczALaUVz24GRUgzcKL ++aFPB6k8oAWbS4/RWbhxj0zKMsqW46csv+qw0K76uqwqlS8bNGVjhIxY6Ovh +rFfUTvVvQHOjijELWzQ1wtdTTp8VNQrYzsKYZftSlqi86l8sVV9yY6FSov5I +0Qvqf8DOh+bJwgNOmaFClM9Ezl4382bhB67plsOtVB4tM1FICGTh3CB3nxyV +jwHCH9ZIxbPwlU2s9FEqX01touyMklhoKYe7q56QsC5ZMdEtjYWN0wnNf1Cu +W3NSoPgKC+fPCdsnUPkssF5kYdMdFj5K7zfiUPl+SQn7rd+zUK5/YmiQWi+O ++nyTPvaRhfVCBSv4KcPNhD1pX1mYtaLuuEI1lQcaPe094yz8F3zX2FdS9awX +0HSIXxEPGd6ozaLWnybzwhKOmiIqPV7jlE9S8+sudOJehCKGBfpl3sqmxifX +tP7hWUW8tCyCG55FwngPR7A1XhE7Jhe0rTNJ+GG7cPlTmiLWsY5VD6RT+WI4 +3CxSoogVt/Tihy6QwLv2hcSRdkU8W7OGPyqaBKnmCzUyCkr4VvO6dq8f1X9L +rfxKhBKeLPUdd/Gl5sdAyHazihJe+Whk1ONDgmw5Z9BKWwm39O9NbTtMAiPn +uPBflkoo2xW9LecglTeBu11fH1fCiY+ncpqp/Yg5Yx1vbKMS7ljTMGFjQML3 +gxYlhk+VsFl/d3aBHgkJV0/ZTLQqoQgnkT2tQ8Ib2e5Lzm+V0Opjd2iKFgn7 +pbK1VIeU0GTv8OBdVRKCRdZ7dqxUxgW983zZstR6Ny/bst5ZGZ2zUzO+85Ag +9pJIKh9XxuGdRmYvH3Lh33GNoufTymg3F7DqVD0XhsUM674sKONWP9M7srVc +aHSyHZbkV8Eablq0VwUXTnw5ZR4pqYJDMROnB25wofNXy787jVVwR39B0pFs +LmQq+/hPpaqgxtsPPKPHuLAhrsxOR0cVg7fnag1JcSFLRV90jZcaPiSyTRyo +/ftzaWPtqRR19PNd3lCQTe3vNzQmb3y3Edt3uSqvKr0OInwFgQeiNHCv3p8q +8ZXFIBspZ+RMaKLQnw0OvwqKYDlzb8Wup5pYv433uUZcIaizpcpO7duEtI7i +suDgaxDQL9ZkxaOFuv59+6JtC2B8KsHBMksLd/IvLPDrXQWLjU8uWaptxsYV +XhpSrHx4MGX4a65tMxry8dNXL8sFP9VNvR2e2ih9Iu5Sx+hlYI95dDov18H0 ++zaJctXZYMaQ3LGyQAcnR9cLhdVmgiLn3F+NuroY/dvK+2nvRVD21H/I7NXF +nAAVg/tDaeD54PDZe8f10KlygG6/MRUe5nd6TIrro1bfy119PskwXbI0t7FS +Hz05oeUbsxPBnUkuv7TDAK1aN3wSe3wOJpXTdO5MGGBYu4Sy2kgsVBX++jQT +Z4ip2Y1vxE5Gg4spHQ1ljfDxlysiIQZnYL1vbLX6IyM0bxmNyOWNBPEVR2/v +2MNG+qEjewS2hEOhyemQCWc2/hhMiPhHLRw2nU4ySdvLxszxu9Y9MuFgM1H+ +tvsAdf1ey/Yni6ch5t3MgvtRNgZFSdlP1p+G+YKIrSGRbDw2TgqdgdPQa5j2 +pphkIyvc6n2SRRgcPlmYY3mLjaVeF9vM9cJg9tZ9z3/K2ZhuX627TCkMxGjd +c5oVbJwiz3heXBEG24VkNtQ/YqPr4nN+vrZQqOss9njzlo2E1NvF1Y6hYCVS +pRbUzUbbfWVZGhah0G3xbFbyPRsNW4VSHPRCYbpmJM71IxsfeIul35EOBbWr +Gje/D7Mx765TVdVACNT1GgcljLKRx09w7YqOELBauxs2TrDRw+3DowONIXAo +9mRH4Awbvyo3CzKKQmD6UcyldfNsfJtRm5uUEQJRPzPda36y8btrAWcpNgRE +N5eq7ltk45aH38mg4BDI9a2ZWVpi47V4Xrlp7xD4P0L+io0= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7932,115 +13910,115 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV1nk8VWsXB3AXoa4kRSjTGfYxRzI7rSVTJFQIb1EhRShJ1xCHMhUyZSgh +Ic6uaDKrDJVSopShUKmuuKbMlevd96/9+X72/Dxr/Z5H4aD/Lk9eHh4e/j94 +eP47zvY/a2acL9zSKVk/VqOivaUzVzLYuDsKdGms2gs+awDFXx2U7E6FfVUZ +Eh4+dAiy43bxdReAR/vpCksfLVg9ti51oesO/JbcYavsYwIDdTb+012NUDsi +86jDezeYM4b7Jrtew/cnk+uijrjDQpfuxYmuz7BwTeHSDo8T0GRyvbCjYAo0 +3fPilzachQ0D1d8Oqi6CQFBDngw3EdYedeMKmvBhRP83hYMeaZCqaV5r4yCE +SY2CaW8Vs6AnS+PRpOhKTMpUd7HxyoHzhRGveKVW45mVe1a1u+bDuvTB+LQr +azBd8aKcn3MBxNpbbnk9K47n5kN4tYUL4YT+VbdnUZI4LGRaAJVFYDr+M8Rv +UBpftUYWv5O6DpFGOw9I68ngM2Fl4yCrEtjmmvtDd6sM7qwbzkTbEhDhjJxx +sJbBRiXfSkH7Eshpii5O3i+Dv4TLbBP2lUCVVc2IQLwMXute2+93rAQmnOhB +Uz0yWP6abpR9sQRcT86cexEqi0Mzff6RfSVgcCv7XvhDORRz2p520b0UTLva +Fsda5HDWesrX2qsUbHj4Ldxey2Gqo14Aj08puO/y64GvchgjtXvOLaAUzEMV +IjjL5NEo7ufkb04pHJObvWasIo88yeycW1dKodkrb7QpSB5HlksET3SWguVv +fbGwUHls/Xfez7q7FNqSO3U2c+TR+RomFr0vhZ7q5ZzCeHk03bOw1fZzKYz9 +GSgWnSOP9aHCaZzxUpAs36Zr3iiPgy1mT12Wc+Ho/CSnZaUChrvwXh814ILB +8UMS38QUsP6VDG3jFi4IDfeSfJIKKHrfzMLXmAtF75vebaEp4KFcweQBCy70 +P7ioel9HAWUZ6TI59lywjdbvvuqmgI6fxdgnfbmwSSxyY+htBbwdm7+7JIcL +POdnmrMqFDAoxn9rRB4X2vi8XSpqFZBn6d/+XQVc8JnZFT35WAFXbeGjTVzn +QmE3471XrwJ6Zhl38t7lgkReS4w9Hw2zcltF41u4sKAi2q/mQMN24yxz6Uku +zF6RjtRyoeHR5u8zoVNcmF7FZOi70TCjffJU7wwXxqb0vU2P0JDHXXQm8ScX +Pte6z7qcpuEKdfHeNj4Snm+vFIkroqHH44LoKnESLvm4wucZGu7o0tVW0yUh +s+/w579/0rAhz7NKSZ+EdNsT0aNLNBxwbpKgG5KQpBXXOr+cjo81zQ4JAwlR +v27vWSVLx7QmHudqcxJ8zi87ZmROR31f9c4wBxKMyBv5GRl0LJKgB904RsJ7 +eTLP7DJ1/d92KUoBJIRklOZO59HRKK9/4doJEioji3N2ldLx82G7e8lBJGxy +ys8SqaMjw4/eZRlGgtKy9OSYT3Q02ZMhbRhLQktI6gXtb3Q8c1VQMzGOhEMT +yUlfhulY9now+0M8CYXvExO2TtORpqTucSKBBPk7sXH/CjBw1MXlCyeFBAm3 +UE6QKgNvBX/tX3+ZhPudwRFMTQbWbXM3Nckhwd7qr/BObQaC7aM/Dl8hIVX7 +ZNgmYGCD8Zno0jwSVgr7/zW2k4GJ3zRrhQtJ4K8+eOzQKQa+PcbVsL9BwjX1 +A/7iYQxML+fAzpskbC1082vmMLDaefWN7bdIiLiw9yjtHAPz477l6ZWT8NPT +8XB/DgPzciUWf9wlYVLMar9jIwNdQmK+fK8hofsord37KQMtP3XUtNWS8OjJ +T4h4wcAVm+wiyutISA4h5UreMfCT6Uyn9wMSND4LDywMM1Aw+2hDTQMJkkZf +bUQmGFjE27UutpEEnoz6B7QZBtZ4Xd1v10TCK0u/3O1LDDybE9Ta00yC3+1X ++66sYeKq5XTxlqckOP5Z8vK2JBNvLMWvDGshYYsnh/1Ehon7nfJ+qz6jxkNK +U2acxcSXqgIN0c9JuMFJ/YBGTJwf0v0h9pKqp15vawdjJh7pjyy7RTlss0nd +EXMmbjj+3cuijYTtQ1OXU+2YOHBr1wv/VyQM2zr874sHE41DA07kdJDwulSt +df4IE30enpOSf01CDZ+A4Up/Jp5Ut3uYTzm+skJaJ5iJM6+0hLPfkKAoJ9kb +m8hE/ht3aj3fkiAaPGGZk8pEumO0fwfl+dct1eWZTPSNvccyeEfVU0xwds9V +JipHxV/n7SLBa6zXSaWCiW/U2mf8u0mw2Xa3BWqZODpv1tdEWafgvJ79IyZ2 +Tnx7ubaHBAFHI8nTz5kY8k365U3KY2Vr41JeMfGS498fZii/Wz46V9TJxKdd +O+cNekkorr/S1dbPxJuawfZ1lJPWBVkMDjLxivWJjHnKQcdtKueGmBj5O/qb +5nsSXFsJlvAYE81W7zQ7TNmMuZQhP8XEv94E3r1MWTWiS0B7nomr+VM1X1Be +21MWZLnIRIkPlo8WKH9J2O8YIEjg+XpRMesP1PwOq9I0hAksHskM8aM8Z7Ew +OipK4O17ZY5JlDlFj6tJcQJpK/uKScor+FKjj0gT6GdS5POEcvp+150sOQKf +LiUW9VOWeaAs85VO4KyJjMM05eL1c0MFigTSfXpCBPuoegxuurdfjXqfkuU6 +Sco17y5wZDcR+D5hSpmgbLJ5r/UHHQK//3Sr0KT8IkVR8pIhgRc2SdQYUHYc +nx7cgwT+tsrVMab80bqhTNyMwJy7HFUzyt7cxNA3lgS+0zLPMac8LehikWJD +4NzwqZj/zp/2JNbY7ibwi23eyH/3CzT96Bd2op6nYf7CkHKy/EPu873U99yd +VdSiLB1+PijuAIHqDoa8in3/5cmereaHCOQM5TpJU1bXZ4jw+xDIn3VDdQXl +yoyJngZ/any+jIfPUf+P03VFEYEE3imctv1M+fnO+OPsYOr7llnkP6dsX+bA +/nWawPZzJ46VU+4Tpi2vjiJQX1iwIY3yIe+xzqBYAjdXJaUGUp54WpO/OYFA +JbGsr7sohzBjj/5IJjD/R3mNOmW+M7v1yi8SyBvrJSZEWWLLP69U8ghMUxza +fpea//zLVZe/XyPQVbddPZqy0sJZr+slBA78Tsmwp2x0T2aJdofAx9s/z45Q +9fdk9fDzjxUESgelTNylbOdfkZFbS+D1rP8dD6bsrmyrLv2YOp8TvWKRqu9/ +Ytf/7HpG4GSFEKOWctDXvx9fbCMwlj36JIjyuXzOvtXdBHYmMMhvVP+US9xJ +EBohsFLSY7GE6jeDwHCnJ+MEBm4WCthNuanDinF2mkAhAW7gL6o/3yUM1i4t +EvhhxoAwpfybV3xkVpSFb1omrKo6SYjZ/6ninjgL/yczALaUVz24GRUgzcKL ++aFPB6k8oAWbS4/RWbhxj0zKMsqW46csv+qw0K76uqwqlS8bNGVjhIxY6Ovh +rFfUTvVvQHOjijELWzQ1wtdTTp8VNQrYzsKYZftSlqi86l8sVV9yY6FSov5I +0Qvqf8DOh+bJwgNOmaFClM9Ezl4382bhB67plsOtVB4tM1FICGTh3CB3nxyV +jwHCH9ZIxbPwlU2s9FEqX01touyMklhoKYe7q56QsC5ZMdEtjYWN0wnNf1Cu +W3NSoPgKC+fPCdsnUPkssF5kYdMdFj5K7zfiUPl+SQn7rd+zUK5/YmiQWi+O ++nyTPvaRhfVCBSv4KcPNhD1pX1mYtaLuuEI1lQcaPe094yz8F3zX2FdS9awX +0HSIXxEPGd6ozaLWnybzwhKOmiIqPV7jlE9S8+sudOJehCKGBfpl3sqmxifX +tP7hWUW8tCyCG55FwngPR7A1XhE7Jhe0rTNJ+GG7cPlTmiLWsY5VD6RT+WI4 +3CxSoogVt/Tihy6QwLv2hcSRdkU8W7OGPyqaBKnmCzUyCkr4VvO6dq8f1X9L +rfxKhBKeLPUdd/Gl5sdAyHazihJe+Whk1ONDgmw5Z9BKWwm39O9NbTtMAiPn +uPBflkoo2xW9LecglTeBu11fH1fCiY+ncpqp/Yg5Yx1vbKMS7ljTMGFjQML3 +gxYlhk+VsFl/d3aBHgkJV0/ZTLQqoQgnkT2tQ8Ib2e5Lzm+V0Opjd2iKFgn7 +pbK1VIeU0GTv8OBdVRKCRdZ7dqxUxgW983zZstR6Ny/bst5ZGZ2zUzO+85Ag +9pJIKh9XxuGdRmYvH3Lh33GNoufTymg3F7DqVD0XhsUM674sKONWP9M7srVc +aHSyHZbkV8Eablq0VwUXTnw5ZR4pqYJDMROnB25wofNXy787jVVwR39B0pFs +LmQq+/hPpaqgxtsPPKPHuLAhrsxOR0cVg7fnag1JcSFLRV90jZcaPiSyTRyo +/ftzaWPtqRR19PNd3lCQTe3vNzQmb3y3Edt3uSqvKr0OInwFgQeiNHCv3p8q +8ZXFIBspZ+RMaKLQnw0OvwqKYDlzb8Wup5pYv433uUZcIaizpcpO7duEtI7i +suDgaxDQL9ZkxaOFuv59+6JtC2B8KsHBMksLd/IvLPDrXQWLjU8uWaptxsYV +XhpSrHx4MGX4a65tMxry8dNXL8sFP9VNvR2e2ih9Iu5Sx+hlYI95dDov18H0 ++zaJctXZYMaQ3LGyQAcnR9cLhdVmgiLn3F+NuroY/dvK+2nvRVD21H/I7NXF +nAAVg/tDaeD54PDZe8f10KlygG6/MRUe5nd6TIrro1bfy119PskwXbI0t7FS +Hz05oeUbsxPBnUkuv7TDAK1aN3wSe3wOJpXTdO5MGGBYu4Sy2kgsVBX++jQT +Z4ip2Y1vxE5Gg4spHQ1ljfDxlysiIQZnYL1vbLX6IyM0bxmNyOWNBPEVR2/v +2MNG+qEjewS2hEOhyemQCWc2/hhMiPhHLRw2nU4ySdvLxszxu9Y9MuFgM1H+ +tvsAdf1ey/Yni6ch5t3MgvtRNgZFSdlP1p+G+YKIrSGRbDw2TgqdgdPQa5j2 +pphkIyvc6n2SRRgcPlmYY3mLjaVeF9vM9cJg9tZ9z3/K2ZhuX627TCkMxGjd +c5oVbJwiz3heXBEG24VkNtQ/YqPr4nN+vrZQqOss9njzlo2E1NvF1Y6hYCVS +pRbUzUbbfWVZGhah0G3xbFbyPRsNW4VSHPRCYbpmJM71IxsfeIul35EOBbWr +Gje/D7Mx765TVdVACNT1GgcljLKRx09w7YqOELBauxs2TrDRw+3DowONIXAo +9mRH4Awbvyo3CzKKQmD6UcyldfNsfJtRm5uUEQJRPzPda36y8btrAWcpNgRE +N5eq7ltk45aH38mg4BDI9a2ZWVpi47V4Xrlp7xD4P0L+io0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.05442257554668799}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8052,19 +14030,19 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.05442257554668799}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8078,114 +14056,114 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV1nk8VWsXB3AXoa4kRSjTGfYxRzI7rSVTJFQIb1EhRShJ1xCHMhUyZSgh +Ic6uaDKrDJVSopShUKmuuKbMlevd96/9+X72/Dxr/Z5H4aD/Lk9eHh4e/j94 +eP47zvY/a2acL9zSKVk/VqOivaUzVzLYuDsKdGms2gs+awDFXx2U7E6FfVUZ +Eh4+dAiy43bxdReAR/vpCksfLVg9ti51oesO/JbcYavsYwIDdTb+012NUDsi +86jDezeYM4b7Jrtew/cnk+uijrjDQpfuxYmuz7BwTeHSDo8T0GRyvbCjYAo0 +3fPilzachQ0D1d8Oqi6CQFBDngw3EdYedeMKmvBhRP83hYMeaZCqaV5r4yCE +SY2CaW8Vs6AnS+PRpOhKTMpUd7HxyoHzhRGveKVW45mVe1a1u+bDuvTB+LQr +azBd8aKcn3MBxNpbbnk9K47n5kN4tYUL4YT+VbdnUZI4LGRaAJVFYDr+M8Rv +UBpftUYWv5O6DpFGOw9I68ngM2Fl4yCrEtjmmvtDd6sM7qwbzkTbEhDhjJxx +sJbBRiXfSkH7Eshpii5O3i+Dv4TLbBP2lUCVVc2IQLwMXute2+93rAQmnOhB +Uz0yWP6abpR9sQRcT86cexEqi0Mzff6RfSVgcCv7XvhDORRz2p520b0UTLva +Fsda5HDWesrX2qsUbHj4Ldxey2Gqo14Aj08puO/y64GvchgjtXvOLaAUzEMV +IjjL5NEo7ufkb04pHJObvWasIo88yeycW1dKodkrb7QpSB5HlksET3SWguVv +fbGwUHls/Xfez7q7FNqSO3U2c+TR+RomFr0vhZ7q5ZzCeHk03bOw1fZzKYz9 +GSgWnSOP9aHCaZzxUpAs36Zr3iiPgy1mT12Wc+Ho/CSnZaUChrvwXh814ILB +8UMS38QUsP6VDG3jFi4IDfeSfJIKKHrfzMLXmAtF75vebaEp4KFcweQBCy70 +P7ioel9HAWUZ6TI59lywjdbvvuqmgI6fxdgnfbmwSSxyY+htBbwdm7+7JIcL +POdnmrMqFDAoxn9rRB4X2vi8XSpqFZBn6d/+XQVc8JnZFT35WAFXbeGjTVzn +QmE3471XrwJ6Zhl38t7lgkReS4w9Hw2zcltF41u4sKAi2q/mQMN24yxz6Uku +zF6RjtRyoeHR5u8zoVNcmF7FZOi70TCjffJU7wwXxqb0vU2P0JDHXXQm8ScX +Pte6z7qcpuEKdfHeNj4Snm+vFIkroqHH44LoKnESLvm4wucZGu7o0tVW0yUh +s+/w579/0rAhz7NKSZ+EdNsT0aNLNBxwbpKgG5KQpBXXOr+cjo81zQ4JAwlR +v27vWSVLx7QmHudqcxJ8zi87ZmROR31f9c4wBxKMyBv5GRl0LJKgB904RsJ7 +eTLP7DJ1/d92KUoBJIRklOZO59HRKK9/4doJEioji3N2ldLx82G7e8lBJGxy +ys8SqaMjw4/eZRlGgtKy9OSYT3Q02ZMhbRhLQktI6gXtb3Q8c1VQMzGOhEMT +yUlfhulY9now+0M8CYXvExO2TtORpqTucSKBBPk7sXH/CjBw1MXlCyeFBAm3 +UE6QKgNvBX/tX3+ZhPudwRFMTQbWbXM3Nckhwd7qr/BObQaC7aM/Dl8hIVX7 +ZNgmYGCD8Zno0jwSVgr7/zW2k4GJ3zRrhQtJ4K8+eOzQKQa+PcbVsL9BwjX1 +A/7iYQxML+fAzpskbC1082vmMLDaefWN7bdIiLiw9yjtHAPz477l6ZWT8NPT +8XB/DgPzciUWf9wlYVLMar9jIwNdQmK+fK8hofsord37KQMtP3XUtNWS8OjJ +T4h4wcAVm+wiyutISA4h5UreMfCT6Uyn9wMSND4LDywMM1Aw+2hDTQMJkkZf +bUQmGFjE27UutpEEnoz6B7QZBtZ4Xd1v10TCK0u/3O1LDDybE9Ta00yC3+1X ++66sYeKq5XTxlqckOP5Z8vK2JBNvLMWvDGshYYsnh/1Ehon7nfJ+qz6jxkNK +U2acxcSXqgIN0c9JuMFJ/YBGTJwf0v0h9pKqp15vawdjJh7pjyy7RTlss0nd +EXMmbjj+3cuijYTtQ1OXU+2YOHBr1wv/VyQM2zr874sHE41DA07kdJDwulSt +df4IE30enpOSf01CDZ+A4Up/Jp5Ut3uYTzm+skJaJ5iJM6+0hLPfkKAoJ9kb +m8hE/ht3aj3fkiAaPGGZk8pEumO0fwfl+dct1eWZTPSNvccyeEfVU0xwds9V +JipHxV/n7SLBa6zXSaWCiW/U2mf8u0mw2Xa3BWqZODpv1tdEWafgvJ79IyZ2 +Tnx7ubaHBAFHI8nTz5kY8k365U3KY2Vr41JeMfGS498fZii/Wz46V9TJxKdd +O+cNekkorr/S1dbPxJuawfZ1lJPWBVkMDjLxivWJjHnKQcdtKueGmBj5O/qb +5nsSXFsJlvAYE81W7zQ7TNmMuZQhP8XEv94E3r1MWTWiS0B7nomr+VM1X1Be +21MWZLnIRIkPlo8WKH9J2O8YIEjg+XpRMesP1PwOq9I0hAksHskM8aM8Z7Ew +OipK4O17ZY5JlDlFj6tJcQJpK/uKScor+FKjj0gT6GdS5POEcvp+150sOQKf +LiUW9VOWeaAs85VO4KyJjMM05eL1c0MFigTSfXpCBPuoegxuurdfjXqfkuU6 +Sco17y5wZDcR+D5hSpmgbLJ5r/UHHQK//3Sr0KT8IkVR8pIhgRc2SdQYUHYc +nx7cgwT+tsrVMab80bqhTNyMwJy7HFUzyt7cxNA3lgS+0zLPMac8LehikWJD +4NzwqZj/zp/2JNbY7ibwi23eyH/3CzT96Bd2op6nYf7CkHKy/EPu873U99yd +VdSiLB1+PijuAIHqDoa8in3/5cmereaHCOQM5TpJU1bXZ4jw+xDIn3VDdQXl +yoyJngZ/any+jIfPUf+P03VFEYEE3imctv1M+fnO+OPsYOr7llnkP6dsX+bA +/nWawPZzJ46VU+4Tpi2vjiJQX1iwIY3yIe+xzqBYAjdXJaUGUp54WpO/OYFA +JbGsr7sohzBjj/5IJjD/R3mNOmW+M7v1yi8SyBvrJSZEWWLLP69U8ghMUxza +fpea//zLVZe/XyPQVbddPZqy0sJZr+slBA78Tsmwp2x0T2aJdofAx9s/z45Q +9fdk9fDzjxUESgelTNylbOdfkZFbS+D1rP8dD6bsrmyrLv2YOp8TvWKRqu9/ +Ytf/7HpG4GSFEKOWctDXvx9fbCMwlj36JIjyuXzOvtXdBHYmMMhvVP+US9xJ +EBohsFLSY7GE6jeDwHCnJ+MEBm4WCthNuanDinF2mkAhAW7gL6o/3yUM1i4t +EvhhxoAwpfybV3xkVpSFb1omrKo6SYjZ/6ninjgL/yczALaUVz24GRUgzcKL ++aFPB6k8oAWbS4/RWbhxj0zKMsqW46csv+qw0K76uqwqlS8bNGVjhIxY6Ovh +rFfUTvVvQHOjijELWzQ1wtdTTp8VNQrYzsKYZftSlqi86l8sVV9yY6FSov5I +0Qvqf8DOh+bJwgNOmaFClM9Ezl4382bhB67plsOtVB4tM1FICGTh3CB3nxyV +jwHCH9ZIxbPwlU2s9FEqX01touyMklhoKYe7q56QsC5ZMdEtjYWN0wnNf1Cu +W3NSoPgKC+fPCdsnUPkssF5kYdMdFj5K7zfiUPl+SQn7rd+zUK5/YmiQWi+O ++nyTPvaRhfVCBSv4KcPNhD1pX1mYtaLuuEI1lQcaPe094yz8F3zX2FdS9awX +0HSIXxEPGd6ozaLWnybzwhKOmiIqPV7jlE9S8+sudOJehCKGBfpl3sqmxifX +tP7hWUW8tCyCG55FwngPR7A1XhE7Jhe0rTNJ+GG7cPlTmiLWsY5VD6RT+WI4 +3CxSoogVt/Tihy6QwLv2hcSRdkU8W7OGPyqaBKnmCzUyCkr4VvO6dq8f1X9L +rfxKhBKeLPUdd/Gl5sdAyHazihJe+Whk1ONDgmw5Z9BKWwm39O9NbTtMAiPn +uPBflkoo2xW9LecglTeBu11fH1fCiY+ncpqp/Yg5Yx1vbKMS7ljTMGFjQML3 +gxYlhk+VsFl/d3aBHgkJV0/ZTLQqoQgnkT2tQ8Ib2e5Lzm+V0Opjd2iKFgn7 +pbK1VIeU0GTv8OBdVRKCRdZ7dqxUxgW983zZstR6Ny/bst5ZGZ2zUzO+85Ag +9pJIKh9XxuGdRmYvH3Lh33GNoufTymg3F7DqVD0XhsUM674sKONWP9M7srVc +aHSyHZbkV8Eablq0VwUXTnw5ZR4pqYJDMROnB25wofNXy787jVVwR39B0pFs +LmQq+/hPpaqgxtsPPKPHuLAhrsxOR0cVg7fnag1JcSFLRV90jZcaPiSyTRyo +/ftzaWPtqRR19PNd3lCQTe3vNzQmb3y3Edt3uSqvKr0OInwFgQeiNHCv3p8q +8ZXFIBspZ+RMaKLQnw0OvwqKYDlzb8Wup5pYv433uUZcIaizpcpO7duEtI7i +suDgaxDQL9ZkxaOFuv59+6JtC2B8KsHBMksLd/IvLPDrXQWLjU8uWaptxsYV +XhpSrHx4MGX4a65tMxry8dNXL8sFP9VNvR2e2ih9Iu5Sx+hlYI95dDov18H0 ++zaJctXZYMaQ3LGyQAcnR9cLhdVmgiLn3F+NuroY/dvK+2nvRVD21H/I7NXF +nAAVg/tDaeD54PDZe8f10KlygG6/MRUe5nd6TIrro1bfy119PskwXbI0t7FS +Hz05oeUbsxPBnUkuv7TDAK1aN3wSe3wOJpXTdO5MGGBYu4Sy2kgsVBX++jQT +Z4ip2Y1vxE5Gg4spHQ1ljfDxlysiIQZnYL1vbLX6IyM0bxmNyOWNBPEVR2/v +2MNG+qEjewS2hEOhyemQCWc2/hhMiPhHLRw2nU4ySdvLxszxu9Y9MuFgM1H+ +tvsAdf1ey/Yni6ch5t3MgvtRNgZFSdlP1p+G+YKIrSGRbDw2TgqdgdPQa5j2 +pphkIyvc6n2SRRgcPlmYY3mLjaVeF9vM9cJg9tZ9z3/K2ZhuX627TCkMxGjd +c5oVbJwiz3heXBEG24VkNtQ/YqPr4nN+vrZQqOss9njzlo2E1NvF1Y6hYCVS +pRbUzUbbfWVZGhah0G3xbFbyPRsNW4VSHPRCYbpmJM71IxsfeIul35EOBbWr +Gje/D7Mx765TVdVACNT1GgcljLKRx09w7YqOELBauxs2TrDRw+3DowONIXAo +9mRH4Awbvyo3CzKKQmD6UcyldfNsfJtRm5uUEQJRPzPda36y8btrAWcpNgRE +N5eq7ltk45aH38mg4BDI9a2ZWVpi47V4Xrlp7xD4P0L+io0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.05442257554668799}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8196,6 +14174,7 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8223,7 +14202,8 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05442257554668799}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8231,17 +14211,565 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913429049348164`*^9}, + CellChangeTimes->{3.9913429049348164`*^9, 3.99391338310439*^9}, CellLabel-> - "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] + "Out[140]=",ExpressionUUID->"2338e335-369a-4cb4-ae1a-ebd00eec4ef3"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ -25a7a01bdd8f"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VWsXB3AXoa4kRSjTGfYxRzI7rSVTJFQIb1EhRShJ1xCHMhUyZSgh +Ic6uaDKrDJVSopShUKmuuKbMlevd96/9+X72/Dxr/Z5H4aD/Lk9eHh4e/j94 +eP47zvY/a2acL9zSKVk/VqOivaUzVzLYuDsKdGms2gs+awDFXx2U7E6FfVUZ +Eh4+dAiy43bxdReAR/vpCksfLVg9ti51oesO/JbcYavsYwIDdTb+012NUDsi +86jDezeYM4b7Jrtew/cnk+uijrjDQpfuxYmuz7BwTeHSDo8T0GRyvbCjYAo0 +3fPilzachQ0D1d8Oqi6CQFBDngw3EdYedeMKmvBhRP83hYMeaZCqaV5r4yCE +SY2CaW8Vs6AnS+PRpOhKTMpUd7HxyoHzhRGveKVW45mVe1a1u+bDuvTB+LQr +azBd8aKcn3MBxNpbbnk9K47n5kN4tYUL4YT+VbdnUZI4LGRaAJVFYDr+M8Rv +UBpftUYWv5O6DpFGOw9I68ngM2Fl4yCrEtjmmvtDd6sM7qwbzkTbEhDhjJxx +sJbBRiXfSkH7Eshpii5O3i+Dv4TLbBP2lUCVVc2IQLwMXute2+93rAQmnOhB +Uz0yWP6abpR9sQRcT86cexEqi0Mzff6RfSVgcCv7XvhDORRz2p520b0UTLva +Fsda5HDWesrX2qsUbHj4Ldxey2Gqo14Aj08puO/y64GvchgjtXvOLaAUzEMV +IjjL5NEo7ufkb04pHJObvWasIo88yeycW1dKodkrb7QpSB5HlksET3SWguVv +fbGwUHls/Xfez7q7FNqSO3U2c+TR+RomFr0vhZ7q5ZzCeHk03bOw1fZzKYz9 +GSgWnSOP9aHCaZzxUpAs36Zr3iiPgy1mT12Wc+Ho/CSnZaUChrvwXh814ILB +8UMS38QUsP6VDG3jFi4IDfeSfJIKKHrfzMLXmAtF75vebaEp4KFcweQBCy70 +P7ioel9HAWUZ6TI59lywjdbvvuqmgI6fxdgnfbmwSSxyY+htBbwdm7+7JIcL +POdnmrMqFDAoxn9rRB4X2vi8XSpqFZBn6d/+XQVc8JnZFT35WAFXbeGjTVzn +QmE3471XrwJ6Zhl38t7lgkReS4w9Hw2zcltF41u4sKAi2q/mQMN24yxz6Uku +zF6RjtRyoeHR5u8zoVNcmF7FZOi70TCjffJU7wwXxqb0vU2P0JDHXXQm8ScX +Pte6z7qcpuEKdfHeNj4Snm+vFIkroqHH44LoKnESLvm4wucZGu7o0tVW0yUh +s+/w579/0rAhz7NKSZ+EdNsT0aNLNBxwbpKgG5KQpBXXOr+cjo81zQ4JAwlR +v27vWSVLx7QmHudqcxJ8zi87ZmROR31f9c4wBxKMyBv5GRl0LJKgB904RsJ7 +eTLP7DJ1/d92KUoBJIRklOZO59HRKK9/4doJEioji3N2ldLx82G7e8lBJGxy +ys8SqaMjw4/eZRlGgtKy9OSYT3Q02ZMhbRhLQktI6gXtb3Q8c1VQMzGOhEMT +yUlfhulY9now+0M8CYXvExO2TtORpqTucSKBBPk7sXH/CjBw1MXlCyeFBAm3 +UE6QKgNvBX/tX3+ZhPudwRFMTQbWbXM3Nckhwd7qr/BObQaC7aM/Dl8hIVX7 +ZNgmYGCD8Zno0jwSVgr7/zW2k4GJ3zRrhQtJ4K8+eOzQKQa+PcbVsL9BwjX1 +A/7iYQxML+fAzpskbC1082vmMLDaefWN7bdIiLiw9yjtHAPz477l6ZWT8NPT +8XB/DgPzciUWf9wlYVLMar9jIwNdQmK+fK8hofsord37KQMtP3XUtNWS8OjJ +T4h4wcAVm+wiyutISA4h5UreMfCT6Uyn9wMSND4LDywMM1Aw+2hDTQMJkkZf +bUQmGFjE27UutpEEnoz6B7QZBtZ4Xd1v10TCK0u/3O1LDDybE9Ta00yC3+1X ++66sYeKq5XTxlqckOP5Z8vK2JBNvLMWvDGshYYsnh/1Ehon7nfJ+qz6jxkNK +U2acxcSXqgIN0c9JuMFJ/YBGTJwf0v0h9pKqp15vawdjJh7pjyy7RTlss0nd +EXMmbjj+3cuijYTtQ1OXU+2YOHBr1wv/VyQM2zr874sHE41DA07kdJDwulSt +df4IE30enpOSf01CDZ+A4Up/Jp5Ut3uYTzm+skJaJ5iJM6+0hLPfkKAoJ9kb +m8hE/ht3aj3fkiAaPGGZk8pEumO0fwfl+dct1eWZTPSNvccyeEfVU0xwds9V +JipHxV/n7SLBa6zXSaWCiW/U2mf8u0mw2Xa3BWqZODpv1tdEWafgvJ79IyZ2 +Tnx7ubaHBAFHI8nTz5kY8k365U3KY2Vr41JeMfGS498fZii/Wz46V9TJxKdd +O+cNekkorr/S1dbPxJuawfZ1lJPWBVkMDjLxivWJjHnKQcdtKueGmBj5O/qb +5nsSXFsJlvAYE81W7zQ7TNmMuZQhP8XEv94E3r1MWTWiS0B7nomr+VM1X1Be +21MWZLnIRIkPlo8WKH9J2O8YIEjg+XpRMesP1PwOq9I0hAksHskM8aM8Z7Ew +OipK4O17ZY5JlDlFj6tJcQJpK/uKScor+FKjj0gT6GdS5POEcvp+150sOQKf +LiUW9VOWeaAs85VO4KyJjMM05eL1c0MFigTSfXpCBPuoegxuurdfjXqfkuU6 +Sco17y5wZDcR+D5hSpmgbLJ5r/UHHQK//3Sr0KT8IkVR8pIhgRc2SdQYUHYc +nx7cgwT+tsrVMab80bqhTNyMwJy7HFUzyt7cxNA3lgS+0zLPMac8LehikWJD +4NzwqZj/zp/2JNbY7ibwi23eyH/3CzT96Bd2op6nYf7CkHKy/EPu873U99yd +VdSiLB1+PijuAIHqDoa8in3/5cmereaHCOQM5TpJU1bXZ4jw+xDIn3VDdQXl +yoyJngZ/any+jIfPUf+P03VFEYEE3imctv1M+fnO+OPsYOr7llnkP6dsX+bA +/nWawPZzJ46VU+4Tpi2vjiJQX1iwIY3yIe+xzqBYAjdXJaUGUp54WpO/OYFA +JbGsr7sohzBjj/5IJjD/R3mNOmW+M7v1yi8SyBvrJSZEWWLLP69U8ghMUxza +fpea//zLVZe/XyPQVbddPZqy0sJZr+slBA78Tsmwp2x0T2aJdofAx9s/z45Q +9fdk9fDzjxUESgelTNylbOdfkZFbS+D1rP8dD6bsrmyrLv2YOp8TvWKRqu9/ +Ytf/7HpG4GSFEKOWctDXvx9fbCMwlj36JIjyuXzOvtXdBHYmMMhvVP+US9xJ +EBohsFLSY7GE6jeDwHCnJ+MEBm4WCthNuanDinF2mkAhAW7gL6o/3yUM1i4t +EvhhxoAwpfybV3xkVpSFb1omrKo6SYjZ/6ninjgL/yczALaUVz24GRUgzcKL ++aFPB6k8oAWbS4/RWbhxj0zKMsqW46csv+qw0K76uqwqlS8bNGVjhIxY6Ovh +rFfUTvVvQHOjijELWzQ1wtdTTp8VNQrYzsKYZftSlqi86l8sVV9yY6FSov5I +0Qvqf8DOh+bJwgNOmaFClM9Ezl4382bhB67plsOtVB4tM1FICGTh3CB3nxyV +jwHCH9ZIxbPwlU2s9FEqX01touyMklhoKYe7q56QsC5ZMdEtjYWN0wnNf1Cu +W3NSoPgKC+fPCdsnUPkssF5kYdMdFj5K7zfiUPl+SQn7rd+zUK5/YmiQWi+O ++nyTPvaRhfVCBSv4KcPNhD1pX1mYtaLuuEI1lQcaPe094yz8F3zX2FdS9awX +0HSIXxEPGd6ozaLWnybzwhKOmiIqPV7jlE9S8+sudOJehCKGBfpl3sqmxifX +tP7hWUW8tCyCG55FwngPR7A1XhE7Jhe0rTNJ+GG7cPlTmiLWsY5VD6RT+WI4 +3CxSoogVt/Tihy6QwLv2hcSRdkU8W7OGPyqaBKnmCzUyCkr4VvO6dq8f1X9L +rfxKhBKeLPUdd/Gl5sdAyHazihJe+Whk1ONDgmw5Z9BKWwm39O9NbTtMAiPn +uPBflkoo2xW9LecglTeBu11fH1fCiY+ncpqp/Yg5Yx1vbKMS7ljTMGFjQML3 +gxYlhk+VsFl/d3aBHgkJV0/ZTLQqoQgnkT2tQ8Ib2e5Lzm+V0Opjd2iKFgn7 +pbK1VIeU0GTv8OBdVRKCRdZ7dqxUxgW983zZstR6Ny/bst5ZGZ2zUzO+85Ag +9pJIKh9XxuGdRmYvH3Lh33GNoufTymg3F7DqVD0XhsUM674sKONWP9M7srVc +aHSyHZbkV8Eablq0VwUXTnw5ZR4pqYJDMROnB25wofNXy787jVVwR39B0pFs +LmQq+/hPpaqgxtsPPKPHuLAhrsxOR0cVg7fnag1JcSFLRV90jZcaPiSyTRyo +/ftzaWPtqRR19PNd3lCQTe3vNzQmb3y3Edt3uSqvKr0OInwFgQeiNHCv3p8q +8ZXFIBspZ+RMaKLQnw0OvwqKYDlzb8Wup5pYv433uUZcIaizpcpO7duEtI7i +suDgaxDQL9ZkxaOFuv59+6JtC2B8KsHBMksLd/IvLPDrXQWLjU8uWaptxsYV +XhpSrHx4MGX4a65tMxry8dNXL8sFP9VNvR2e2ih9Iu5Sx+hlYI95dDov18H0 ++zaJctXZYMaQ3LGyQAcnR9cLhdVmgiLn3F+NuroY/dvK+2nvRVD21H/I7NXF +nAAVg/tDaeD54PDZe8f10KlygG6/MRUe5nd6TIrro1bfy119PskwXbI0t7FS +Hz05oeUbsxPBnUkuv7TDAK1aN3wSe3wOJpXTdO5MGGBYu4Sy2kgsVBX++jQT +Z4ip2Y1vxE5Gg4spHQ1ljfDxlysiIQZnYL1vbLX6IyM0bxmNyOWNBPEVR2/v +2MNG+qEjewS2hEOhyemQCWc2/hhMiPhHLRw2nU4ySdvLxszxu9Y9MuFgM1H+ +tvsAdf1ey/Yni6ch5t3MgvtRNgZFSdlP1p+G+YKIrSGRbDw2TgqdgdPQa5j2 +pphkIyvc6n2SRRgcPlmYY3mLjaVeF9vM9cJg9tZ9z3/K2ZhuX627TCkMxGjd +c5oVbJwiz3heXBEG24VkNtQ/YqPr4nN+vrZQqOss9njzlo2E1NvF1Y6hYCVS +pRbUzUbbfWVZGhah0G3xbFbyPRsNW4VSHPRCYbpmJM71IxsfeIul35EOBbWr +Gje/D7Mx765TVdVACNT1GgcljLKRx09w7YqOELBauxs2TrDRw+3DowONIXAo +9mRH4Awbvyo3CzKKQmD6UcyldfNsfJtRm5uUEQJRPzPda36y8btrAWcpNgRE +N5eq7ltk45aH38mg4BDI9a2ZWVpi47V4Xrlp7xD4P0L+io0= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VWsXB3AXoa4kRSjTGfYxRzI7rSVTJFQIb1EhRShJ1xCHMhUyZSgh +Ic6uaDKrDJVSopShUKmuuKbMlevd96/9+X72/Dxr/Z5H4aD/Lk9eHh4e/j94 +eP47zvY/a2acL9zSKVk/VqOivaUzVzLYuDsKdGms2gs+awDFXx2U7E6FfVUZ +Eh4+dAiy43bxdReAR/vpCksfLVg9ti51oesO/JbcYavsYwIDdTb+012NUDsi +86jDezeYM4b7Jrtew/cnk+uijrjDQpfuxYmuz7BwTeHSDo8T0GRyvbCjYAo0 +3fPilzachQ0D1d8Oqi6CQFBDngw3EdYedeMKmvBhRP83hYMeaZCqaV5r4yCE +SY2CaW8Vs6AnS+PRpOhKTMpUd7HxyoHzhRGveKVW45mVe1a1u+bDuvTB+LQr +azBd8aKcn3MBxNpbbnk9K47n5kN4tYUL4YT+VbdnUZI4LGRaAJVFYDr+M8Rv +UBpftUYWv5O6DpFGOw9I68ngM2Fl4yCrEtjmmvtDd6sM7qwbzkTbEhDhjJxx +sJbBRiXfSkH7Eshpii5O3i+Dv4TLbBP2lUCVVc2IQLwMXute2+93rAQmnOhB +Uz0yWP6abpR9sQRcT86cexEqi0Mzff6RfSVgcCv7XvhDORRz2p520b0UTLva +Fsda5HDWesrX2qsUbHj4Ldxey2Gqo14Aj08puO/y64GvchgjtXvOLaAUzEMV +IjjL5NEo7ufkb04pHJObvWasIo88yeycW1dKodkrb7QpSB5HlksET3SWguVv +fbGwUHls/Xfez7q7FNqSO3U2c+TR+RomFr0vhZ7q5ZzCeHk03bOw1fZzKYz9 +GSgWnSOP9aHCaZzxUpAs36Zr3iiPgy1mT12Wc+Ho/CSnZaUChrvwXh814ILB +8UMS38QUsP6VDG3jFi4IDfeSfJIKKHrfzMLXmAtF75vebaEp4KFcweQBCy70 +P7ioel9HAWUZ6TI59lywjdbvvuqmgI6fxdgnfbmwSSxyY+htBbwdm7+7JIcL +POdnmrMqFDAoxn9rRB4X2vi8XSpqFZBn6d/+XQVc8JnZFT35WAFXbeGjTVzn +QmE3471XrwJ6Zhl38t7lgkReS4w9Hw2zcltF41u4sKAi2q/mQMN24yxz6Uku +zF6RjtRyoeHR5u8zoVNcmF7FZOi70TCjffJU7wwXxqb0vU2P0JDHXXQm8ScX +Pte6z7qcpuEKdfHeNj4Snm+vFIkroqHH44LoKnESLvm4wucZGu7o0tVW0yUh +s+/w579/0rAhz7NKSZ+EdNsT0aNLNBxwbpKgG5KQpBXXOr+cjo81zQ4JAwlR +v27vWSVLx7QmHudqcxJ8zi87ZmROR31f9c4wBxKMyBv5GRl0LJKgB904RsJ7 +eTLP7DJ1/d92KUoBJIRklOZO59HRKK9/4doJEioji3N2ldLx82G7e8lBJGxy +ys8SqaMjw4/eZRlGgtKy9OSYT3Q02ZMhbRhLQktI6gXtb3Q8c1VQMzGOhEMT +yUlfhulY9now+0M8CYXvExO2TtORpqTucSKBBPk7sXH/CjBw1MXlCyeFBAm3 +UE6QKgNvBX/tX3+ZhPudwRFMTQbWbXM3Nckhwd7qr/BObQaC7aM/Dl8hIVX7 +ZNgmYGCD8Zno0jwSVgr7/zW2k4GJ3zRrhQtJ4K8+eOzQKQa+PcbVsL9BwjX1 +A/7iYQxML+fAzpskbC1082vmMLDaefWN7bdIiLiw9yjtHAPz477l6ZWT8NPT +8XB/DgPzciUWf9wlYVLMar9jIwNdQmK+fK8hofsord37KQMtP3XUtNWS8OjJ +T4h4wcAVm+wiyutISA4h5UreMfCT6Uyn9wMSND4LDywMM1Aw+2hDTQMJkkZf +bUQmGFjE27UutpEEnoz6B7QZBtZ4Xd1v10TCK0u/3O1LDDybE9Ta00yC3+1X ++66sYeKq5XTxlqckOP5Z8vK2JBNvLMWvDGshYYsnh/1Ehon7nfJ+qz6jxkNK +U2acxcSXqgIN0c9JuMFJ/YBGTJwf0v0h9pKqp15vawdjJh7pjyy7RTlss0nd +EXMmbjj+3cuijYTtQ1OXU+2YOHBr1wv/VyQM2zr874sHE41DA07kdJDwulSt +df4IE30enpOSf01CDZ+A4Up/Jp5Ut3uYTzm+skJaJ5iJM6+0hLPfkKAoJ9kb +m8hE/ht3aj3fkiAaPGGZk8pEumO0fwfl+dct1eWZTPSNvccyeEfVU0xwds9V +JipHxV/n7SLBa6zXSaWCiW/U2mf8u0mw2Xa3BWqZODpv1tdEWafgvJ79IyZ2 +Tnx7ubaHBAFHI8nTz5kY8k365U3KY2Vr41JeMfGS498fZii/Wz46V9TJxKdd +O+cNekkorr/S1dbPxJuawfZ1lJPWBVkMDjLxivWJjHnKQcdtKueGmBj5O/qb +5nsSXFsJlvAYE81W7zQ7TNmMuZQhP8XEv94E3r1MWTWiS0B7nomr+VM1X1Be +21MWZLnIRIkPlo8WKH9J2O8YIEjg+XpRMesP1PwOq9I0hAksHskM8aM8Z7Ew +OipK4O17ZY5JlDlFj6tJcQJpK/uKScor+FKjj0gT6GdS5POEcvp+150sOQKf +LiUW9VOWeaAs85VO4KyJjMM05eL1c0MFigTSfXpCBPuoegxuurdfjXqfkuU6 +Sco17y5wZDcR+D5hSpmgbLJ5r/UHHQK//3Sr0KT8IkVR8pIhgRc2SdQYUHYc +nx7cgwT+tsrVMab80bqhTNyMwJy7HFUzyt7cxNA3lgS+0zLPMac8LehikWJD +4NzwqZj/zp/2JNbY7ibwi23eyH/3CzT96Bd2op6nYf7CkHKy/EPu873U99yd +VdSiLB1+PijuAIHqDoa8in3/5cmereaHCOQM5TpJU1bXZ4jw+xDIn3VDdQXl +yoyJngZ/any+jIfPUf+P03VFEYEE3imctv1M+fnO+OPsYOr7llnkP6dsX+bA +/nWawPZzJ46VU+4Tpi2vjiJQX1iwIY3yIe+xzqBYAjdXJaUGUp54WpO/OYFA +JbGsr7sohzBjj/5IJjD/R3mNOmW+M7v1yi8SyBvrJSZEWWLLP69U8ghMUxza +fpea//zLVZe/XyPQVbddPZqy0sJZr+slBA78Tsmwp2x0T2aJdofAx9s/z45Q +9fdk9fDzjxUESgelTNylbOdfkZFbS+D1rP8dD6bsrmyrLv2YOp8TvWKRqu9/ +Ytf/7HpG4GSFEKOWctDXvx9fbCMwlj36JIjyuXzOvtXdBHYmMMhvVP+US9xJ +EBohsFLSY7GE6jeDwHCnJ+MEBm4WCthNuanDinF2mkAhAW7gL6o/3yUM1i4t +EvhhxoAwpfybV3xkVpSFb1omrKo6SYjZ/6ninjgL/yczALaUVz24GRUgzcKL ++aFPB6k8oAWbS4/RWbhxj0zKMsqW46csv+qw0K76uqwqlS8bNGVjhIxY6Ovh +rFfUTvVvQHOjijELWzQ1wtdTTp8VNQrYzsKYZftSlqi86l8sVV9yY6FSov5I +0Qvqf8DOh+bJwgNOmaFClM9Ezl4382bhB67plsOtVB4tM1FICGTh3CB3nxyV +jwHCH9ZIxbPwlU2s9FEqX01touyMklhoKYe7q56QsC5ZMdEtjYWN0wnNf1Cu +W3NSoPgKC+fPCdsnUPkssF5kYdMdFj5K7zfiUPl+SQn7rd+zUK5/YmiQWi+O ++nyTPvaRhfVCBSv4KcPNhD1pX1mYtaLuuEI1lQcaPe094yz8F3zX2FdS9awX +0HSIXxEPGd6ozaLWnybzwhKOmiIqPV7jlE9S8+sudOJehCKGBfpl3sqmxifX +tP7hWUW8tCyCG55FwngPR7A1XhE7Jhe0rTNJ+GG7cPlTmiLWsY5VD6RT+WI4 +3CxSoogVt/Tihy6QwLv2hcSRdkU8W7OGPyqaBKnmCzUyCkr4VvO6dq8f1X9L +rfxKhBKeLPUdd/Gl5sdAyHazihJe+Whk1ONDgmw5Z9BKWwm39O9NbTtMAiPn +uPBflkoo2xW9LecglTeBu11fH1fCiY+ncpqp/Yg5Yx1vbKMS7ljTMGFjQML3 +gxYlhk+VsFl/d3aBHgkJV0/ZTLQqoQgnkT2tQ8Ib2e5Lzm+V0Opjd2iKFgn7 +pbK1VIeU0GTv8OBdVRKCRdZ7dqxUxgW983zZstR6Ny/bst5ZGZ2zUzO+85Ag +9pJIKh9XxuGdRmYvH3Lh33GNoufTymg3F7DqVD0XhsUM674sKONWP9M7srVc +aHSyHZbkV8Eablq0VwUXTnw5ZR4pqYJDMROnB25wofNXy787jVVwR39B0pFs +LmQq+/hPpaqgxtsPPKPHuLAhrsxOR0cVg7fnag1JcSFLRV90jZcaPiSyTRyo +/ftzaWPtqRR19PNd3lCQTe3vNzQmb3y3Edt3uSqvKr0OInwFgQeiNHCv3p8q +8ZXFIBspZ+RMaKLQnw0OvwqKYDlzb8Wup5pYv433uUZcIaizpcpO7duEtI7i +suDgaxDQL9ZkxaOFuv59+6JtC2B8KsHBMksLd/IvLPDrXQWLjU8uWaptxsYV +XhpSrHx4MGX4a65tMxry8dNXL8sFP9VNvR2e2ih9Iu5Sx+hlYI95dDov18H0 ++zaJctXZYMaQ3LGyQAcnR9cLhdVmgiLn3F+NuroY/dvK+2nvRVD21H/I7NXF +nAAVg/tDaeD54PDZe8f10KlygG6/MRUe5nd6TIrro1bfy119PskwXbI0t7FS +Hz05oeUbsxPBnUkuv7TDAK1aN3wSe3wOJpXTdO5MGGBYu4Sy2kgsVBX++jQT +Z4ip2Y1vxE5Gg4spHQ1ljfDxlysiIQZnYL1vbLX6IyM0bxmNyOWNBPEVR2/v +2MNG+qEjewS2hEOhyemQCWc2/hhMiPhHLRw2nU4ySdvLxszxu9Y9MuFgM1H+ +tvsAdf1ey/Yni6ch5t3MgvtRNgZFSdlP1p+G+YKIrSGRbDw2TgqdgdPQa5j2 +pphkIyvc6n2SRRgcPlmYY3mLjaVeF9vM9cJg9tZ9z3/K2ZhuX627TCkMxGjd +c5oVbJwiz3heXBEG24VkNtQ/YqPr4nN+vrZQqOss9njzlo2E1NvF1Y6hYCVS +pRbUzUbbfWVZGhah0G3xbFbyPRsNW4VSHPRCYbpmJM71IxsfeIul35EOBbWr +Gje/D7Mx765TVdVACNT1GgcljLKRx09w7YqOELBauxs2TrDRw+3DowONIXAo +9mRH4Awbvyo3CzKKQmD6UcyldfNsfJtRm5uUEQJRPzPda36y8btrAWcpNgRE +N5eq7ltk45aH38mg4BDI9a2ZWVpi47V4Xrlp7xD4P0L+io0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05442257554668799}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.05442257554668799}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VWsXB3AXoa4kRSjTGfYxRzI7rSVTJFQIb1EhRShJ1xCHMhUyZSgh +Ic6uaDKrDJVSopShUKmuuKbMlevd96/9+X72/Dxr/Z5H4aD/Lk9eHh4e/j94 +eP47zvY/a2acL9zSKVk/VqOivaUzVzLYuDsKdGms2gs+awDFXx2U7E6FfVUZ +Eh4+dAiy43bxdReAR/vpCksfLVg9ti51oesO/JbcYavsYwIDdTb+012NUDsi +86jDezeYM4b7Jrtew/cnk+uijrjDQpfuxYmuz7BwTeHSDo8T0GRyvbCjYAo0 +3fPilzachQ0D1d8Oqi6CQFBDngw3EdYedeMKmvBhRP83hYMeaZCqaV5r4yCE +SY2CaW8Vs6AnS+PRpOhKTMpUd7HxyoHzhRGveKVW45mVe1a1u+bDuvTB+LQr +azBd8aKcn3MBxNpbbnk9K47n5kN4tYUL4YT+VbdnUZI4LGRaAJVFYDr+M8Rv +UBpftUYWv5O6DpFGOw9I68ngM2Fl4yCrEtjmmvtDd6sM7qwbzkTbEhDhjJxx +sJbBRiXfSkH7Eshpii5O3i+Dv4TLbBP2lUCVVc2IQLwMXute2+93rAQmnOhB +Uz0yWP6abpR9sQRcT86cexEqi0Mzff6RfSVgcCv7XvhDORRz2p520b0UTLva +Fsda5HDWesrX2qsUbHj4Ldxey2Gqo14Aj08puO/y64GvchgjtXvOLaAUzEMV +IjjL5NEo7ufkb04pHJObvWasIo88yeycW1dKodkrb7QpSB5HlksET3SWguVv +fbGwUHls/Xfez7q7FNqSO3U2c+TR+RomFr0vhZ7q5ZzCeHk03bOw1fZzKYz9 +GSgWnSOP9aHCaZzxUpAs36Zr3iiPgy1mT12Wc+Ho/CSnZaUChrvwXh814ILB +8UMS38QUsP6VDG3jFi4IDfeSfJIKKHrfzMLXmAtF75vebaEp4KFcweQBCy70 +P7ioel9HAWUZ6TI59lywjdbvvuqmgI6fxdgnfbmwSSxyY+htBbwdm7+7JIcL +POdnmrMqFDAoxn9rRB4X2vi8XSpqFZBn6d/+XQVc8JnZFT35WAFXbeGjTVzn +QmE3471XrwJ6Zhl38t7lgkReS4w9Hw2zcltF41u4sKAi2q/mQMN24yxz6Uku +zF6RjtRyoeHR5u8zoVNcmF7FZOi70TCjffJU7wwXxqb0vU2P0JDHXXQm8ScX +Pte6z7qcpuEKdfHeNj4Snm+vFIkroqHH44LoKnESLvm4wucZGu7o0tVW0yUh +s+/w579/0rAhz7NKSZ+EdNsT0aNLNBxwbpKgG5KQpBXXOr+cjo81zQ4JAwlR +v27vWSVLx7QmHudqcxJ8zi87ZmROR31f9c4wBxKMyBv5GRl0LJKgB904RsJ7 +eTLP7DJ1/d92KUoBJIRklOZO59HRKK9/4doJEioji3N2ldLx82G7e8lBJGxy +ys8SqaMjw4/eZRlGgtKy9OSYT3Q02ZMhbRhLQktI6gXtb3Q8c1VQMzGOhEMT +yUlfhulY9now+0M8CYXvExO2TtORpqTucSKBBPk7sXH/CjBw1MXlCyeFBAm3 +UE6QKgNvBX/tX3+ZhPudwRFMTQbWbXM3Nckhwd7qr/BObQaC7aM/Dl8hIVX7 +ZNgmYGCD8Zno0jwSVgr7/zW2k4GJ3zRrhQtJ4K8+eOzQKQa+PcbVsL9BwjX1 +A/7iYQxML+fAzpskbC1082vmMLDaefWN7bdIiLiw9yjtHAPz477l6ZWT8NPT +8XB/DgPzciUWf9wlYVLMar9jIwNdQmK+fK8hofsord37KQMtP3XUtNWS8OjJ +T4h4wcAVm+wiyutISA4h5UreMfCT6Uyn9wMSND4LDywMM1Aw+2hDTQMJkkZf +bUQmGFjE27UutpEEnoz6B7QZBtZ4Xd1v10TCK0u/3O1LDDybE9Ta00yC3+1X ++66sYeKq5XTxlqckOP5Z8vK2JBNvLMWvDGshYYsnh/1Ehon7nfJ+qz6jxkNK +U2acxcSXqgIN0c9JuMFJ/YBGTJwf0v0h9pKqp15vawdjJh7pjyy7RTlss0nd +EXMmbjj+3cuijYTtQ1OXU+2YOHBr1wv/VyQM2zr874sHE41DA07kdJDwulSt +df4IE30enpOSf01CDZ+A4Up/Jp5Ut3uYTzm+skJaJ5iJM6+0hLPfkKAoJ9kb +m8hE/ht3aj3fkiAaPGGZk8pEumO0fwfl+dct1eWZTPSNvccyeEfVU0xwds9V +JipHxV/n7SLBa6zXSaWCiW/U2mf8u0mw2Xa3BWqZODpv1tdEWafgvJ79IyZ2 +Tnx7ubaHBAFHI8nTz5kY8k365U3KY2Vr41JeMfGS498fZii/Wz46V9TJxKdd +O+cNekkorr/S1dbPxJuawfZ1lJPWBVkMDjLxivWJjHnKQcdtKueGmBj5O/qb +5nsSXFsJlvAYE81W7zQ7TNmMuZQhP8XEv94E3r1MWTWiS0B7nomr+VM1X1Be +21MWZLnIRIkPlo8WKH9J2O8YIEjg+XpRMesP1PwOq9I0hAksHskM8aM8Z7Ew +OipK4O17ZY5JlDlFj6tJcQJpK/uKScor+FKjj0gT6GdS5POEcvp+150sOQKf +LiUW9VOWeaAs85VO4KyJjMM05eL1c0MFigTSfXpCBPuoegxuurdfjXqfkuU6 +Sco17y5wZDcR+D5hSpmgbLJ5r/UHHQK//3Sr0KT8IkVR8pIhgRc2SdQYUHYc +nx7cgwT+tsrVMab80bqhTNyMwJy7HFUzyt7cxNA3lgS+0zLPMac8LehikWJD +4NzwqZj/zp/2JNbY7ibwi23eyH/3CzT96Bd2op6nYf7CkHKy/EPu873U99yd +VdSiLB1+PijuAIHqDoa8in3/5cmereaHCOQM5TpJU1bXZ4jw+xDIn3VDdQXl +yoyJngZ/any+jIfPUf+P03VFEYEE3imctv1M+fnO+OPsYOr7llnkP6dsX+bA +/nWawPZzJ46VU+4Tpi2vjiJQX1iwIY3yIe+xzqBYAjdXJaUGUp54WpO/OYFA +JbGsr7sohzBjj/5IJjD/R3mNOmW+M7v1yi8SyBvrJSZEWWLLP69U8ghMUxza +fpea//zLVZe/XyPQVbddPZqy0sJZr+slBA78Tsmwp2x0T2aJdofAx9s/z45Q +9fdk9fDzjxUESgelTNylbOdfkZFbS+D1rP8dD6bsrmyrLv2YOp8TvWKRqu9/ +Ytf/7HpG4GSFEKOWctDXvx9fbCMwlj36JIjyuXzOvtXdBHYmMMhvVP+US9xJ +EBohsFLSY7GE6jeDwHCnJ+MEBm4WCthNuanDinF2mkAhAW7gL6o/3yUM1i4t +EvhhxoAwpfybV3xkVpSFb1omrKo6SYjZ/6ninjgL/yczALaUVz24GRUgzcKL ++aFPB6k8oAWbS4/RWbhxj0zKMsqW46csv+qw0K76uqwqlS8bNGVjhIxY6Ovh +rFfUTvVvQHOjijELWzQ1wtdTTp8VNQrYzsKYZftSlqi86l8sVV9yY6FSov5I +0Qvqf8DOh+bJwgNOmaFClM9Ezl4382bhB67plsOtVB4tM1FICGTh3CB3nxyV +jwHCH9ZIxbPwlU2s9FEqX01touyMklhoKYe7q56QsC5ZMdEtjYWN0wnNf1Cu +W3NSoPgKC+fPCdsnUPkssF5kYdMdFj5K7zfiUPl+SQn7rd+zUK5/YmiQWi+O ++nyTPvaRhfVCBSv4KcPNhD1pX1mYtaLuuEI1lQcaPe094yz8F3zX2FdS9awX +0HSIXxEPGd6ozaLWnybzwhKOmiIqPV7jlE9S8+sudOJehCKGBfpl3sqmxifX +tP7hWUW8tCyCG55FwngPR7A1XhE7Jhe0rTNJ+GG7cPlTmiLWsY5VD6RT+WI4 +3CxSoogVt/Tihy6QwLv2hcSRdkU8W7OGPyqaBKnmCzUyCkr4VvO6dq8f1X9L +rfxKhBKeLPUdd/Gl5sdAyHazihJe+Whk1ONDgmw5Z9BKWwm39O9NbTtMAiPn +uPBflkoo2xW9LecglTeBu11fH1fCiY+ncpqp/Yg5Yx1vbKMS7ljTMGFjQML3 +gxYlhk+VsFl/d3aBHgkJV0/ZTLQqoQgnkT2tQ8Ib2e5Lzm+V0Opjd2iKFgn7 +pbK1VIeU0GTv8OBdVRKCRdZ7dqxUxgW983zZstR6Ny/bst5ZGZ2zUzO+85Ag +9pJIKh9XxuGdRmYvH3Lh33GNoufTymg3F7DqVD0XhsUM674sKONWP9M7srVc +aHSyHZbkV8Eablq0VwUXTnw5ZR4pqYJDMROnB25wofNXy787jVVwR39B0pFs +LmQq+/hPpaqgxtsPPKPHuLAhrsxOR0cVg7fnag1JcSFLRV90jZcaPiSyTRyo +/ftzaWPtqRR19PNd3lCQTe3vNzQmb3y3Edt3uSqvKr0OInwFgQeiNHCv3p8q +8ZXFIBspZ+RMaKLQnw0OvwqKYDlzb8Wup5pYv433uUZcIaizpcpO7duEtI7i +suDgaxDQL9ZkxaOFuv59+6JtC2B8KsHBMksLd/IvLPDrXQWLjU8uWaptxsYV +XhpSrHx4MGX4a65tMxry8dNXL8sFP9VNvR2e2ih9Iu5Sx+hlYI95dDov18H0 ++zaJctXZYMaQ3LGyQAcnR9cLhdVmgiLn3F+NuroY/dvK+2nvRVD21H/I7NXF +nAAVg/tDaeD54PDZe8f10KlygG6/MRUe5nd6TIrro1bfy119PskwXbI0t7FS +Hz05oeUbsxPBnUkuv7TDAK1aN3wSe3wOJpXTdO5MGGBYu4Sy2kgsVBX++jQT +Z4ip2Y1vxE5Gg4spHQ1ljfDxlysiIQZnYL1vbLX6IyM0bxmNyOWNBPEVR2/v +2MNG+qEjewS2hEOhyemQCWc2/hhMiPhHLRw2nU4ySdvLxszxu9Y9MuFgM1H+ +tvsAdf1ey/Yni6ch5t3MgvtRNgZFSdlP1p+G+YKIrSGRbDw2TgqdgdPQa5j2 +pphkIyvc6n2SRRgcPlmYY3mLjaVeF9vM9cJg9tZ9z3/K2ZhuX627TCkMxGjd +c5oVbJwiz3heXBEG24VkNtQ/YqPr4nN+vrZQqOss9njzlo2E1NvF1Y6hYCVS +pRbUzUbbfWVZGhah0G3xbFbyPRsNW4VSHPRCYbpmJM71IxsfeIul35EOBbWr +Gje/D7Mx765TVdVACNT1GgcljLKRx09w7YqOELBauxs2TrDRw+3DowONIXAo +9mRH4Awbvyo3CzKKQmD6UcyldfNsfJtRm5uUEQJRPzPda36y8btrAWcpNgRE +N5eq7ltk45aH38mg4BDI9a2ZWVpi47V4Xrlp7xD4P0L+io0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05442257554668799}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05442257554668799}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939133831812363`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"c8f5ccd8-cccc-4199-a9c4-f20a065fea70"] +}, Open ]], Cell[CellGroupData[{ @@ -8293,66 +14821,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + "In[142]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.4938537125733418`*^-184\\\", \ +\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ +6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 73, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.9939133832202377`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"5fca34ce-88c9-4fc3-94bb-f38cefe8cd5e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.647057269916087`*^-188\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 142, 74, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993913383230113*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"491ac93b-fe37-4706-9c76-b51c4fedb2ca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.6904942105377685`*^-192\\\", \ \\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ 35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 417, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437636167164`*^9}, + 2, 142, 75, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.9939133832389717`*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 418, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763625717*^9}, - CellLabel-> - "During evaluation of \ -In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 391, 419, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763634718*^9}, - CellLabel-> - "During evaluation of \ -In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +In[142]:=",ExpressionUUID->"8b844305-d7bf-4dad-aadc-af5bd7329332"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763643717*^9}, +during this calculation.\"", 2, 142, 76, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.9939133832474117`*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +In[142]:=",ExpressionUUID->"fb2cf1c5-80e4-4341-b36d-3243a8e357df"], -Cell[BoxData["12.55365498945131`"], "Output", - CellChangeTimes->{3.991343769962549*^9}, +Cell[BoxData["14.38550684381186`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.993913426026228*^9}, CellLabel-> - "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] + "Out[142]=",ExpressionUUID->"6fb9d638-9120-4308-97e1-0a229b400907"] }, Open ]], Cell[CellGroupData[{ @@ -8419,68 +14951,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499777649403`*^9, - 3.9918499820026073`*^9}},ExpressionUUID->"97b28b29-5d04-5c42-a0e8-\ -93b70f20e7f6"], + CellChangeTimes->{{3.9918499777649403`*^9, 3.9918499820026073`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 392, 421, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343769999645*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.11265480661595`*^-218\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 77, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.993913426066901*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +In[143]:=",ExpressionUUID->"5e368c30-bf63-4928-a2ea-dc6fd946e4bc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 392, 422, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700095463`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.480319396051099`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 78, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.993913426075159*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +In[143]:=",ExpressionUUID->"e1e81615-1120-4083-97d2-cc1835eb7ab0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 392, - 423, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343770018547*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.751034069633404`*^-229\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 79, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9939134260825768`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +In[143]:=",ExpressionUUID->"f59228e4-1609-4394-8545-e8f8d02d7550"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700265465`*^9}, +during this calculation.\"", 2, 143, 80, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9939134260894833`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +In[143]:=",ExpressionUUID->"c2dd0c9a-779f-47fa-8d86-acdbd387b6e4"], -Cell[BoxData["2.1234790234082306`"], "Output", - CellChangeTimes->{3.9913437771602173`*^9}, +Cell[BoxData["1.1214771568133792`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.993913432767161*^9}, CellLabel-> - "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] + "Out[143]=",ExpressionUUID->"4fa8391f-be3b-4db5-a992-acfc062c08f3"] }, Open ]], Cell[CellGroupData[{ @@ -8501,8 +15037,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8547,68 +15082,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499862910366`*^9, - 3.991849989300226*^9}},ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-\ -cdce838d9efe"], + CellChangeTimes->{{3.9918499862910366`*^9, 3.991849989300226*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 393, 425, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437771982174`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.11265480661595`*^-218\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 81, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993913432804264*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +In[144]:=",ExpressionUUID->"8b81eea7-9ad9-4757-a18c-a7f5723cf465"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 393, 426, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772082157`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.480319396051099`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 82, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993913432812743*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +In[144]:=",ExpressionUUID->"dcdec9d9-d61e-4367-8b95-fd6ae1b6de1b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 393, - 427, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134377721661*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.751034069633404`*^-229\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 83, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993913432821186*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +In[144]:=",ExpressionUUID->"fe1b332f-ab48-41a1-9df1-7cfd1e9fd471"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772256165`*^9}, +during this calculation.\"", 2, 144, 84, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993913432830039*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +In[144]:=",ExpressionUUID->"f0735fc9-cc33-491e-94cb-3f6c3250a277"], -Cell[BoxData["10.711562421053975`"], "Output", - CellChangeTimes->{3.991343783589731*^9}, +Cell[BoxData["53.31025543875894`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.9939134383357277`*^9}, CellLabel-> - "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] + "Out[144]=",ExpressionUUID->"4aba3c83-316b-4ce0-b911-ac1cd5b66103"] }, Open ]], Cell[CellGroupData[{ @@ -8629,8 +15168,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8675,68 +15213,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849992549782*^9, - 3.9918499952553864`*^9}},ExpressionUUID->"0794d062-69d5-0a45-936e-\ -533b19d33de6"], + CellChangeTimes->{{3.991849992549782*^9, 3.9918499952553864`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 394, 429, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836316223`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.11265480661595`*^-218\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 85, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.9939134383745203`*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +In[145]:=",ExpressionUUID->"307d352f-9024-4c6f-9b5d-8125fbf9abcb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 394, 430, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836416245`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.480319396051099`*^-223\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 86, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993913438380889*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +In[145]:=",ExpressionUUID->"a433575d-a202-4ca3-af43-b04992c7c8c1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 394, - 431, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343783649622*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.751034069633404`*^-229\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 87, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.9939134383869753`*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +In[145]:=",ExpressionUUID->"56f75dd2-de16-484c-8f11-0d00a58da556"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836576347`*^9}, +during this calculation.\"", 2, 145, 88, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.9939134383928223`*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +In[145]:=",ExpressionUUID->"1dc2cd06-5cd1-42d9-a656-b110960aede9"], -Cell[BoxData["20.656774205279326`"], "Output", - CellChangeTimes->{3.9913437870822353`*^9}, +Cell[BoxData["14.992013967181073`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.9939134418423634`*^9}, CellLabel-> - "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] + "Out[145]=",ExpressionUUID->"77f75f1d-09c9-4ec1-a613-164938ebabdd"] }, Open ]], Cell[CellGroupData[{ @@ -8745,20 +15287,26 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918500011025047`*^9, - 3.9918500053803673`*^9}},ExpressionUUID->"95c56266-e4d3-624e-89c1-\ -cedeeeb0247a"], - -Cell[BoxData["0.14275466609450368`"], "Output", - CellChangeTimes->{3.991343787117275*^9}, + CellChangeTimes->{{3.9918500011025047`*^9, 3.9918500053803673`*^9}}, CellLabel-> - "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] -}, Open ]] + "In[146]:=",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], + +Cell[BoxData["0.03966934787167059`"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.9939134418778267`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"59b78d0a-4a5a-4bce-a170-cf1dbfa9b7a3"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"bf9d1ff3-3014-4754-9c9c-98199fe3027d"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +Evaluator->"kernel 4", +WindowSize->{714, 288}, +WindowMargins->{{Automatic, 3}, {Automatic, 15}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" ] @@ -8773,368 +15321,641 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], -Cell[706, 26, 156, 3, 28, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], -Cell[865, 31, 147, 4, 28, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], -Cell[1015, 37, 152, 3, 28, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ -Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[2496, 89, 176, 3, 32, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[576, 22, 423, 7, 29, "Input",ExpressionUUID->"6b501036-8f29-4af3-8808-d54f61f602ee"], +Cell[1002, 31, 419, 6, 33, "Output",ExpressionUUID->"e877c62f-ce3c-471f-8ce5-b864bdebc2ce"] }, Open ]], Cell[CellGroupData[{ -Cell[2709, 97, 908, 31, 56, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[3620, 130, 175, 3, 32, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[1458, 42, 246, 4, 29, "Input",ExpressionUUID->"6f55d317-e35b-4b36-8052-dd31882b2754"], +Cell[1707, 48, 422, 6, 33, "Output",ExpressionUUID->"bd0e7061-afe1-4121-9d8b-cad6b43cc982"] }, Open ]], Cell[CellGroupData[{ -Cell[3832, 138, 887, 30, 56, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[2166, 59, 220, 4, 29, "Input",ExpressionUUID->"613c58a1-f24e-4443-bd3a-05aeeb43d655"], +Cell[2389, 65, 447, 7, 33, "Output",ExpressionUUID->"2879a66b-7c88-471a-8582-ea6a7e763056"] }, Open ]], Cell[CellGroupData[{ -Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[5497, 199, 172, 3, 32, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[2873, 77, 175, 3, 29, "Input",ExpressionUUID->"fe14a0fb-0676-474f-bef9-40f721f2e0e6"], +Cell[3051, 82, 419, 6, 33, "Output",ExpressionUUID->"a6880fec-55bf-464b-9712-5b33a8b3c0d8"] }, Open ]], Cell[CellGroupData[{ -Cell[5706, 207, 651, 22, 52, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[6360, 231, 170, 3, 32, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[3507, 93, 257, 7, 42, "Input",ExpressionUUID->"793e325a-1f13-4c70-8218-b50b15fcbb1b"], +Cell[3767, 102, 434, 6, 33, "Output",ExpressionUUID->"bbc3d9ae-3f0c-47d9-ac55-2c8da1335787"] }, Open ]], Cell[CellGroupData[{ -Cell[6567, 239, 170, 5, 56, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[6740, 246, 173, 3, 32, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[4238, 113, 131, 2, 29, "Input",ExpressionUUID->"e81ab4c8-ed5a-49e7-bdba-a15bcffea297"], +Cell[4372, 117, 422, 6, 33, "Output",ExpressionUUID->"586a0385-4468-4d23-8303-ad3d823df26e"] }, Open ]], Cell[CellGroupData[{ -Cell[6950, 254, 170, 5, 55, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[7123, 261, 169, 3, 70, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[4831, 128, 276, 6, 29, "Input",ExpressionUUID->"9bfe357a-88ce-4aae-aa98-2dde597bb0ab"], +Cell[5110, 136, 432, 6, 33, "Output",ExpressionUUID->"6641c3af-5a52-4502-b1a4-c031eda1819f"] }, Open ]], Cell[CellGroupData[{ -Cell[7329, 269, 181, 5, 70, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[7513, 276, 173, 3, 70, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[5579, 147, 257, 7, 29, "Input",ExpressionUUID->"9c1a304d-3b36-4569-b29f-3e6cdf49ccd8"], +Cell[5839, 156, 428, 6, 33, "Output",ExpressionUUID->"47c600ae-b4c7-44c7-ae03-0c80c8974879"] }, Open ]], Cell[CellGroupData[{ -Cell[7723, 284, 181, 5, 70, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[7907, 291, 170, 3, 70, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[6304, 167, 226, 4, 29, "Input",ExpressionUUID->"fd690b76-be44-44e6-9974-d5e9217b7888"], +Cell[6533, 173, 398, 6, 33, "Output",ExpressionUUID->"d8e61811-91d2-4e1e-98c5-3c578d2b47b1"] }, Open ]], Cell[CellGroupData[{ -Cell[8114, 299, 6055, 185, 70, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[14172, 486, 174, 3, 70, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[6968, 184, 226, 4, 29, "Input",ExpressionUUID->"91c62644-a468-447f-b3ed-002992ea8feb"], +Cell[7197, 190, 393, 6, 33, "Output",ExpressionUUID->"4d82fac8-6f8e-4ae7-bfed-2f3dc1cb264d"] }, Open ]], Cell[CellGroupData[{ -Cell[14383, 494, 368, 9, 70, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[14754, 505, 170, 3, 70, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[7627, 201, 129, 2, 29, "Input",ExpressionUUID->"b5608e50-195e-43c0-8457-ad8bcfc10e2a"], +Cell[7759, 205, 418, 6, 33, "Output",ExpressionUUID->"462528a7-1d77-4f5d-b892-bd183ddd7a3e"] }, Open ]], Cell[CellGroupData[{ -Cell[14961, 513, 6122, 187, 70, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[21086, 702, 174, 3, 70, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[8214, 216, 129, 2, 29, "Input",ExpressionUUID->"149c2c16-5557-4b8b-a828-9e9beecd1f77"], +Cell[8346, 220, 416, 6, 33, "Output",ExpressionUUID->"94f3dcee-21fc-4566-9c75-0f572d1089cc"] }, Open ]], Cell[CellGroupData[{ -Cell[21297, 710, 368, 9, 70, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[21668, 721, 170, 3, 70, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[8799, 231, 557, 19, 79, "Input",ExpressionUUID->"6d268c4a-2777-478a-92f7-b2646bc0a7e7"], +Cell[9359, 252, 438, 6, 33, "Output",ExpressionUUID->"673621fd-9276-4add-803f-584542b7ff5d"] }, Open ]], Cell[CellGroupData[{ -Cell[21875, 729, 2663, 88, 70, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[24541, 819, 171, 3, 70, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[9834, 263, 557, 19, 79, "Input",ExpressionUUID->"f5f356d6-b75a-4b21-ba5f-490c723df621"], +Cell[10394, 284, 433, 6, 33, "Output",ExpressionUUID->"2a4cdcd1-4c75-4f42-b494-5ce9075e6fda"] }, Open ]], Cell[CellGroupData[{ -Cell[24749, 827, 2603, 85, 70, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[27355, 914, 171, 3, 70, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[10864, 295, 1492, 48, 79, "Input",ExpressionUUID->"7c334f37-fb0f-4cc6-8cab-056596428d27"], +Cell[12359, 345, 434, 6, 33, "Output",ExpressionUUID->"8c680847-79d9-4cbf-b486-3c549a943f7e"] }, Open ]], Cell[CellGroupData[{ -Cell[27563, 922, 3712, 118, 70, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[31278, 1042, 171, 3, 70, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] -}, Open ]], -Cell[31464, 1048, 138, 3, 70, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], -Cell[CellGroupData[{ -Cell[31627, 1055, 2054, 59, 70, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], -Cell[33684, 1116, 566, 12, 70, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], -Cell[34253, 1130, 569, 12, 70, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], -Cell[34825, 1144, 570, 12, 70, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], -Cell[35398, 1158, 458, 10, 70, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], -Cell[35859, 1170, 172, 3, 70, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[12830, 356, 1331, 44, 79, "Input",ExpressionUUID->"41ae5dc1-3cd9-4289-b2c9-74e90270ce4a"], +Cell[14164, 402, 450, 7, 33, "Output",ExpressionUUID->"f4381b28-1304-4572-8967-8430f1adc990"] }, Open ]], Cell[CellGroupData[{ -Cell[36068, 1178, 2052, 59, 70, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], -Cell[38123, 1239, 564, 12, 70, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], -Cell[38690, 1253, 567, 12, 70, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], -Cell[39260, 1267, 570, 12, 70, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], -Cell[39833, 1281, 455, 10, 70, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], -Cell[40291, 1293, 169, 3, 70, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[14651, 414, 1331, 44, 79, "Input",ExpressionUUID->"e45a48f5-df3d-41f1-a7e8-6c67e9970db5"], +Cell[15985, 460, 451, 7, 33, "Output",ExpressionUUID->"5a1f9a44-f757-4d7d-ae1e-ed56eb6492ff"] }, Open ]], Cell[CellGroupData[{ -Cell[40497, 1301, 1936, 53, 70, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], -Cell[42436, 1356, 19983, 375, 70, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +Cell[16473, 472, 1492, 48, 79, "Input",ExpressionUUID->"0747cd4c-0999-4626-9d29-27fa5749c8db"], +Cell[17968, 522, 428, 6, 33, "Output",ExpressionUUID->"ce9b466e-8fa0-420e-91af-23055ed2d6de"] }, Open ]], Cell[CellGroupData[{ -Cell[62456, 1736, 2092, 60, 70, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], -Cell[64551, 1798, 501, 11, 70, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], -Cell[65055, 1811, 503, 11, 70, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], -Cell[65561, 1824, 506, 11, 70, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], -Cell[66070, 1837, 456, 10, 70, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], -Cell[66529, 1849, 41581, 727, 70, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] -}, Open ]], -Cell[108125, 2579, 232, 6, 70, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], -Cell[108360, 2587, 209, 5, 70, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], -Cell[CellGroupData[{ -Cell[108594, 2596, 217, 7, 70, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[108814, 2605, 170, 3, 70, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[18433, 533, 131, 2, 29, "Input",ExpressionUUID->"d2de6f42-7d89-4c21-83ca-c81e8066ac5f"], +Cell[18567, 537, 419, 6, 33, "Output",ExpressionUUID->"c7404771-739e-4085-8f3c-2d08c145269c"] }, Open ]], Cell[CellGroupData[{ -Cell[109021, 2613, 1814, 53, 70, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], -Cell[110838, 2668, 506, 11, 70, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], -Cell[111347, 2681, 512, 11, 70, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], -Cell[111862, 2694, 509, 11, 70, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], -Cell[112374, 2707, 456, 10, 70, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], -Cell[112833, 2719, 22336, 412, 70, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +Cell[19023, 548, 133, 2, 29, "Input",ExpressionUUID->"8f030f71-6ffe-4421-9b26-750f4e195467"], +Cell[19159, 552, 419, 6, 33, "Output",ExpressionUUID->"a771ef0c-db19-477a-a58e-70ad2f971c82"] }, Open ]], Cell[CellGroupData[{ -Cell[135206, 3136, 1616, 48, 70, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], -Cell[136825, 3186, 584, 12, 70, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], -Cell[137412, 3200, 588, 12, 70, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], -Cell[138003, 3214, 591, 12, 70, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], -Cell[138597, 3228, 456, 10, 70, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], -Cell[139056, 3240, 173, 3, 70, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +Cell[19615, 563, 134, 2, 29, "Input",ExpressionUUID->"5e82ed62-d5eb-415f-bfa2-c9866086ecd1"], +Cell[19752, 567, 426, 6, 33, "Output",ExpressionUUID->"d24b5044-6bc2-41ab-afee-616efd1d8f26"] }, Open ]], Cell[CellGroupData[{ -Cell[139266, 3248, 2274, 65, 70, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], -Cell[141543, 3315, 566, 12, 70, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], -Cell[142112, 3329, 569, 12, 70, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], -Cell[142684, 3343, 572, 12, 70, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], -Cell[143259, 3357, 458, 10, 70, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], -Cell[143720, 3369, 171, 3, 70, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +Cell[20215, 578, 219, 4, 29, "Input",ExpressionUUID->"1462c24f-5b05-481b-b208-74a4724bc9e6"], +Cell[20437, 584, 430, 7, 33, "Output",ExpressionUUID->"59ccda33-5505-41b9-bd29-e71b02f6a15d"] }, Open ]], Cell[CellGroupData[{ -Cell[143928, 3377, 2221, 64, 70, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], -Cell[146152, 3443, 564, 12, 70, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], -Cell[146719, 3457, 567, 12, 70, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], -Cell[147289, 3471, 570, 12, 70, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], -Cell[147862, 3485, 456, 10, 70, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], -Cell[148321, 3497, 173, 3, 70, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +Cell[20904, 596, 134, 2, 29, "Input",ExpressionUUID->"876a3e8c-124c-4094-bcfd-1daf4cfeccf8"], +Cell[21041, 600, 422, 6, 33, "Output",ExpressionUUID->"47f36aba-61d0-4222-b523-8735a9ee7405"] }, Open ]], Cell[CellGroupData[{ -Cell[148531, 3505, 2223, 64, 70, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], -Cell[150757, 3571, 566, 12, 70, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], -Cell[151326, 3585, 569, 12, 70, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], -Cell[151898, 3599, 570, 12, 70, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], -Cell[152471, 3613, 458, 10, 70, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], -Cell[152932, 3625, 170, 3, 70, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +Cell[21500, 611, 326, 5, 29, "Input",ExpressionUUID->"08c39aa4-3ecb-4d21-bb3a-55c80642492b"], +Cell[21829, 618, 389, 6, 33, "Output",ExpressionUUID->"488dbf7d-24fa-4e61-98eb-1a5d326d1e59"] }, Open ]], Cell[CellGroupData[{ -Cell[153139, 3633, 213, 6, 70, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], -Cell[153355, 3641, 171, 3, 70, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] -}, Open ]], -Cell[153541, 3647, 244, 5, 70, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], -Cell[CellGroupData[{ -Cell[153810, 3656, 558, 19, 70, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[154371, 3677, 173, 3, 70, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +Cell[22255, 629, 295, 5, 29, "Input",ExpressionUUID->"2f2e6bbb-7711-4b58-8d89-47b87eb8a141"], +Cell[22553, 636, 421, 6, 33, "Output",ExpressionUUID->"0492e1d1-793f-4e3a-8ecb-219f64f26d83"] }, Open ]], Cell[CellGroupData[{ -Cell[154581, 3685, 170, 5, 70, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[154754, 3692, 171, 3, 70, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +Cell[23011, 647, 219, 4, 29, "Input",ExpressionUUID->"8c91f5e4-77f6-4100-bd3f-16775b62af64"], +Cell[23233, 653, 419, 6, 33, "Output",ExpressionUUID->"3357e445-3eb7-4be5-b7aa-b8e6e2c1e201"] }, Open ]], Cell[CellGroupData[{ -Cell[154962, 3700, 181, 5, 70, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[155146, 3707, 173, 3, 70, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +Cell[23689, 664, 350, 10, 42, "Input",ExpressionUUID->"116cf255-50a3-4c65-9c35-0ee339c8a0c8"], +Cell[24042, 676, 437, 6, 33, "Output",ExpressionUUID->"c924c6e9-1e41-4a59-8122-b95ec0fa8eb2"] }, Open ]], Cell[CellGroupData[{ -Cell[155356, 3715, 6055, 185, 70, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[161414, 3902, 175, 3, 70, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +Cell[24516, 687, 350, 10, 42, "Input",ExpressionUUID->"009ab160-d29c-4fbb-af5c-5af2e3867793"], +Cell[24869, 699, 446, 7, 33, "Output",ExpressionUUID->"fcac8916-733c-41df-9e81-29ed9a2fc3af"] }, Open ]], Cell[CellGroupData[{ -Cell[161626, 3910, 368, 9, 70, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[161997, 3921, 172, 3, 70, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +Cell[25352, 711, 994, 26, 81, "Input",ExpressionUUID->"888dec56-9b31-43b8-bca8-ca214c829694"], +Cell[26349, 739, 433, 6, 33, "Output",ExpressionUUID->"2d9267dc-d08e-4a30-9868-ffed9febf7d8"] }, Open ]], Cell[CellGroupData[{ -Cell[162206, 3929, 6122, 187, 70, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[168331, 4118, 173, 3, 70, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +Cell[26819, 750, 199, 3, 29, "Input",ExpressionUUID->"dfebb301-6500-4e99-95e2-5b9d7c963c54"], +Cell[27021, 755, 416, 6, 33, "Output",ExpressionUUID->"11c0a0db-8d27-45a5-85f5-084f07b53c86"] }, Open ]], Cell[CellGroupData[{ -Cell[168541, 4126, 368, 9, 70, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[168912, 4137, 170, 3, 70, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +Cell[27474, 766, 329, 5, 29, "Input",ExpressionUUID->"6ef3347f-d9ed-4453-b6ed-f52620bee676"], +Cell[27806, 773, 398, 6, 33, "Output",ExpressionUUID->"ce8304ce-752f-4655-82ba-628be66336dc"] +}, Open ]], +Cell[28219, 782, 173, 2, 29, "Input",ExpressionUUID->"29a241b3-543a-4ce2-a1d5-c5a27fecc3d3"], +Cell[CellGroupData[{ +Cell[28417, 788, 329, 5, 29, "Input",ExpressionUUID->"bf6c91d1-0857-4cd3-a7f5-e0c26ab369e0"], +Cell[28749, 795, 396, 6, 33, "Output",ExpressionUUID->"3368a452-0cbf-4cd3-9155-876d92048fb1"] +}, Open ]], +Cell[29160, 804, 173, 2, 29, "Input",ExpressionUUID->"5697acba-0abe-4b0d-8b77-b2eaeb0d5d6f"], +Cell[CellGroupData[{ +Cell[29358, 810, 330, 5, 29, "Input",ExpressionUUID->"6f22bb89-400a-44cc-990c-65e396c729ea"], +Cell[29691, 817, 395, 6, 33, "Output",ExpressionUUID->"4354744f-841e-4026-bdb7-104877571ee8"] +}, Open ]], +Cell[30101, 826, 173, 2, 29, "Input",ExpressionUUID->"39e6ef81-22ed-44c4-aa01-7e70c91f4f85"], +Cell[CellGroupData[{ +Cell[30299, 832, 352, 5, 29, "Input",ExpressionUUID->"068f809b-7336-439b-b221-c3a3afbfb05d"], +Cell[30654, 839, 399, 6, 33, "Output",ExpressionUUID->"040d236b-0ac7-4f58-ba6a-10f19acec332"] +}, Open ]], +Cell[31068, 848, 171, 2, 29, "Input",ExpressionUUID->"b0f6dd5b-0244-47a1-8982-f2543f4c74ec"], +Cell[CellGroupData[{ +Cell[31264, 854, 300, 5, 29, "Input",ExpressionUUID->"e63605c8-7a9c-4932-95b9-feef287ea3f5"], +Cell[31567, 861, 394, 6, 33, "Output",ExpressionUUID->"26713d3b-a0e9-42de-bef9-58ec4bd0adfa"] +}, Open ]], +Cell[31976, 870, 171, 2, 29, "Input",ExpressionUUID->"2279d2a9-7106-4486-8329-d4486c4031bf"], +Cell[CellGroupData[{ +Cell[32172, 876, 304, 5, 29, "Input",ExpressionUUID->"8affe3a5-e61f-4e0f-b83d-56cc0298873f"], +Cell[32479, 883, 400, 6, 33, "Output",ExpressionUUID->"ce2b0790-219f-4c1b-9502-307e2bb93a3d"] +}, Open ]], +Cell[32894, 892, 173, 2, 29, "Input",ExpressionUUID->"192a3951-bad0-42ff-9da6-642b4a96d515"], +Cell[CellGroupData[{ +Cell[33092, 898, 307, 5, 29, "Input",ExpressionUUID->"88119282-66a1-48ab-a086-91abcd1621a0"], +Cell[33402, 905, 394, 6, 33, "Output",ExpressionUUID->"1d491a14-7be3-4d40-a92b-8984dcfc7323"] +}, Open ]], +Cell[33811, 914, 172, 2, 29, "Input",ExpressionUUID->"1b459555-77c0-4677-91d5-79c385886979"], +Cell[CellGroupData[{ +Cell[34008, 920, 274, 4, 29, "Input",ExpressionUUID->"1796dadd-e5e4-48b1-bdd8-70302c49317a"], +Cell[34285, 926, 400, 6, 33, "Output",ExpressionUUID->"8f9d4760-ccd0-4b61-b1e8-a43e0a6ff455"] +}, Open ]], +Cell[34700, 935, 175, 2, 29, "Input",ExpressionUUID->"99887852-5f5a-4745-a28c-a0a85d0e03db"], +Cell[CellGroupData[{ +Cell[34900, 941, 19809, 485, 1844, "Input",ExpressionUUID->"483d00c9-bf98-4bea-8e42-85ae4b485727"], +Cell[54712, 1428, 449, 7, 33, "Output",ExpressionUUID->"ab5d8042-5d88-43e5-bd86-81d303a87e8c"] }, Open ]], Cell[CellGroupData[{ -Cell[169119, 4145, 2663, 88, 70, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[171785, 4235, 171, 3, 70, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +Cell[55198, 1440, 19748, 489, 1981, "Input",ExpressionUUID->"122ddae3-f1fa-4a98-aa28-17fd48d356e5"], +Cell[74949, 1931, 430, 6, 33, "Output",ExpressionUUID->"36c8182c-1bce-4693-b2c6-6787564e8e52"] }, Open ]], Cell[CellGroupData[{ -Cell[171993, 4243, 2603, 85, 70, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[174599, 4330, 171, 3, 70, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +Cell[75416, 1942, 19748, 483, 1970, "Input",ExpressionUUID->"d44712dc-ab84-4e32-b399-b4b8618cf2a7"], +Cell[95167, 2427, 448, 7, 33, "Output",ExpressionUUID->"d11d43cc-2894-4a3b-9498-f17a6afa1edc"] }, Open ]], Cell[CellGroupData[{ -Cell[174807, 4338, 3712, 118, 70, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[178522, 4458, 170, 3, 70, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +Cell[95652, 2439, 22534, 553, 2217, "Input",ExpressionUUID->"cd35407c-fd0b-4037-b740-c156926deb50"], +Cell[118189, 2994, 455, 7, 33, "Output",ExpressionUUID->"a7eec9a5-189f-4a68-bcb8-c50d0ec62bc4"] }, Open ]], Cell[CellGroupData[{ -Cell[178729, 4466, 2052, 59, 70, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], -Cell[180784, 4527, 573, 12, 70, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], -Cell[181360, 4541, 577, 12, 70, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], -Cell[181940, 4555, 580, 12, 70, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], -Cell[182523, 4569, 456, 10, 70, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], -Cell[182982, 4581, 170, 3, 70, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +Cell[118681, 3006, 22535, 553, 2254, "Input",ExpressionUUID->"61ac09ec-c758-46d7-b168-0363520aef58"], +Cell[141219, 3561, 455, 7, 33, "Output",ExpressionUUID->"b99889ec-3840-4657-b9a1-46ebb0d77d57"] }, Open ]], Cell[CellGroupData[{ -Cell[183189, 4589, 2054, 59, 70, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], -Cell[185246, 4650, 573, 12, 70, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], -Cell[185822, 4664, 577, 12, 70, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], -Cell[186402, 4678, 582, 12, 70, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], -Cell[186987, 4692, 456, 10, 70, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], -Cell[187446, 4704, 170, 3, 70, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +Cell[141711, 3573, 25491, 626, 2501, "Input",ExpressionUUID->"7c7f3958-a963-46b0-b1bd-061976e534ea"], +Cell[167205, 4201, 450, 7, 33, "Output",ExpressionUUID->"f33fae5e-7947-4590-b890-ca4dfb1031b3"] }, Open ]], Cell[CellGroupData[{ -Cell[187653, 4712, 2028, 55, 70, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], -Cell[189684, 4769, 20422, 382, 70, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +Cell[167692, 4213, 130, 2, 29, "Input",ExpressionUUID->"14fbcab0-420b-4414-b082-c9dd58e65050"], +Cell[167825, 4217, 414, 6, 33, "Output",ExpressionUUID->"2f584606-6846-4a7e-b62e-a24b07545449"] }, Open ]], Cell[CellGroupData[{ -Cell[210143, 5156, 2120, 60, 70, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], -Cell[212266, 5218, 502, 11, 70, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], -Cell[212771, 5231, 506, 11, 70, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], -Cell[213280, 5244, 505, 11, 70, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], -Cell[213788, 5257, 458, 10, 70, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], -Cell[214249, 5269, 22288, 412, 70, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] -}, Open ]], -Cell[236552, 5684, 209, 5, 70, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], -Cell[CellGroupData[{ -Cell[236786, 5693, 1616, 48, 70, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], -Cell[238405, 5743, 595, 12, 70, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], -Cell[239003, 5757, 595, 12, 70, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], -Cell[239601, 5771, 599, 12, 70, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], -Cell[240203, 5785, 456, 10, 70, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], -Cell[240662, 5797, 171, 3, 70, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +Cell[168276, 4228, 130, 2, 29, "Input",ExpressionUUID->"13f61e08-8407-44a3-bf8e-fb2a10ec2892"], +Cell[168409, 4232, 415, 6, 33, "Output",ExpressionUUID->"28b914c3-0d18-4f22-9e4d-95a37ade9253"] }, Open ]], Cell[CellGroupData[{ -Cell[240870, 5805, 2248, 64, 70, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], -Cell[243121, 5871, 575, 12, 70, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], -Cell[243699, 5885, 577, 12, 70, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], -Cell[244279, 5899, 582, 12, 70, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], -Cell[244864, 5913, 458, 10, 70, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], -Cell[245325, 5925, 172, 3, 70, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +Cell[168861, 4243, 1144, 39, 107, "Input",ExpressionUUID->"e7d0ea19-0356-41c2-9c45-7330bb3d35f6"], +Cell[170008, 4284, 432, 6, 33, "Output",ExpressionUUID->"34671313-99de-4910-919b-26092aaa370b"] }, Open ]], Cell[CellGroupData[{ -Cell[245534, 5933, 2215, 63, 70, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], -Cell[247752, 5998, 575, 12, 70, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], -Cell[248330, 6012, 577, 12, 70, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], -Cell[248910, 6026, 582, 12, 70, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], -Cell[249495, 6040, 458, 10, 70, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], -Cell[249956, 6052, 170, 3, 70, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +Cell[170477, 4295, 1041, 35, 107, "Input",ExpressionUUID->"57f67f6f-6cce-454f-9651-289e457989a3"], +Cell[171521, 4332, 445, 7, 33, "Output",ExpressionUUID->"f109b3bb-dfe9-48fb-9aae-cc08ff63cf4a"] }, Open ]], Cell[CellGroupData[{ -Cell[250163, 6060, 2223, 64, 70, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], -Cell[252389, 6126, 573, 12, 70, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], -Cell[252965, 6140, 577, 12, 70, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], -Cell[253545, 6154, 580, 12, 70, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], -Cell[254128, 6168, 456, 10, 70, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], -Cell[254587, 6180, 173, 3, 70, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +Cell[172003, 4344, 1144, 39, 107, "Input",ExpressionUUID->"c1320b1d-aab6-49e6-b5c5-502bf43ae668"], +Cell[173150, 4385, 438, 6, 33, "Output",ExpressionUUID->"9ec1aab5-cc0f-4d93-8e96-c38c56f0b2b0"] }, Open ]], Cell[CellGroupData[{ -Cell[254797, 6188, 213, 6, 70, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], -Cell[255013, 6196, 173, 3, 70, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] -}, Open ]], -Cell[255201, 6202, 247, 5, 70, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], -Cell[CellGroupData[{ -Cell[255473, 6211, 558, 19, 70, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[256034, 6232, 173, 3, 70, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +Cell[173625, 4396, 108, 1, 29, "Input",ExpressionUUID->"3f8f4d25-277c-499c-80ab-b6491f619ce8"], +Cell[173736, 4399, 436, 6, 33, "Output",ExpressionUUID->"7d503d63-4f13-4189-9364-9321a33b66a0"] }, Open ]], Cell[CellGroupData[{ -Cell[256244, 6240, 170, 5, 70, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[256417, 6247, 173, 3, 70, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +Cell[174209, 4410, 108, 1, 29, "Input",ExpressionUUID->"7722cfbf-7b9b-4ce4-89ca-6267a54323e1"], +Cell[174320, 4413, 447, 7, 33, "Output",ExpressionUUID->"732d0118-5f1d-486f-9e99-438ea637680a"] }, Open ]], Cell[CellGroupData[{ -Cell[256627, 6255, 181, 5, 70, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[256811, 6262, 173, 3, 70, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +Cell[174804, 4425, 108, 1, 29, "Input",ExpressionUUID->"9de4afab-0f51-4b89-9e67-72254e39e308"], +Cell[174915, 4428, 451, 7, 33, "Output",ExpressionUUID->"acd4211b-a1f2-47b3-ad7d-97be3addaa9e"] }, Open ]], Cell[CellGroupData[{ -Cell[257021, 6270, 6055, 185, 70, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[263079, 6457, 172, 3, 70, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +Cell[175403, 4440, 108, 1, 29, "Input",ExpressionUUID->"1a3ccdfc-143c-4b78-b493-b61df2ba7fde"], +Cell[175514, 4443, 434, 6, 33, "Output",ExpressionUUID->"c52b8b75-7951-46f5-8765-941a7861bf11"] }, Open ]], Cell[CellGroupData[{ -Cell[263288, 6465, 368, 9, 70, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[263659, 6476, 172, 3, 70, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +Cell[175985, 4454, 107, 1, 29, "Input",ExpressionUUID->"adb007b0-c990-4f41-9753-b89b742a90db"], +Cell[176095, 4457, 432, 6, 33, "Output",ExpressionUUID->"f387fffa-3cf8-4e26-b094-9e5958637fc6"] }, Open ]], Cell[CellGroupData[{ -Cell[263868, 6484, 6122, 187, 70, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[269993, 6673, 173, 3, 70, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +Cell[176564, 4468, 107, 1, 29, "Input",ExpressionUUID->"54f40ed1-5e5e-47c7-9ee6-89992d3fa4b5"], +Cell[176674, 4471, 433, 6, 33, "Output",ExpressionUUID->"4469fb05-39b5-4f59-9093-9e4cb5603ed9"] }, Open ]], Cell[CellGroupData[{ -Cell[270203, 6681, 368, 9, 70, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[270574, 6692, 170, 3, 70, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +Cell[177144, 4482, 497, 16, 55, "Input",ExpressionUUID->"5bdf14d4-4304-4664-a202-29a4639e0b38"], +Cell[177644, 4500, 446, 7, 33, "Output",ExpressionUUID->"e132d07a-8582-431e-b733-47d9cec78c41"] }, Open ]], Cell[CellGroupData[{ -Cell[270781, 6700, 2663, 88, 70, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[273447, 6790, 171, 3, 70, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +Cell[178127, 4512, 497, 16, 55, "Input",ExpressionUUID->"d217019b-f2f3-49ab-a82a-7502c0d0e474"], +Cell[178627, 4530, 443, 7, 33, "Output",ExpressionUUID->"74d38fc5-9b71-4718-951c-fc969864de19"] }, Open ]], Cell[CellGroupData[{ -Cell[273655, 6798, 2603, 85, 70, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[276261, 6885, 173, 3, 70, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +Cell[179107, 4542, 1788, 60, 183, "Input",ExpressionUUID->"92d76e6c-6ca4-4acd-834f-6566f79e20fb"], +Cell[180898, 4604, 432, 6, 33, "Output",ExpressionUUID->"a0aa4d37-79ce-4975-bc44-4ba6ab20e053"] }, Open ]], Cell[CellGroupData[{ -Cell[276471, 6893, 3712, 118, 70, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[280186, 7013, 173, 3, 70, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +Cell[181367, 4615, 1101, 36, 131, "Input",ExpressionUUID->"c1e4f9d5-dc68-4b9c-b28e-dff39597c916"], +Cell[182471, 4653, 448, 7, 33, "Output",ExpressionUUID->"ff3c5de5-d973-4e0f-a53c-354395350994"] }, Open ]], Cell[CellGroupData[{ -Cell[280396, 7021, 2052, 59, 70, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], -Cell[282451, 7082, 568, 12, 70, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], -Cell[283022, 7096, 573, 12, 70, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], -Cell[283598, 7110, 576, 12, 70, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], -Cell[284177, 7124, 458, 10, 70, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], -Cell[284638, 7136, 172, 3, 70, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +Cell[182956, 4665, 1818, 61, 160, "Input",ExpressionUUID->"6de00208-d600-4898-bb8c-41eef3f29edb"], +Cell[184777, 4728, 434, 6, 33, "Output",ExpressionUUID->"426a8b66-365d-487d-81f1-4d86ed296c43"] }, Open ]], Cell[CellGroupData[{ -Cell[284847, 7144, 2052, 59, 70, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], -Cell[286902, 7205, 568, 12, 70, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], -Cell[287473, 7219, 573, 12, 70, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], -Cell[288049, 7233, 574, 12, 70, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], -Cell[288626, 7247, 458, 10, 70, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], -Cell[289087, 7259, 172, 3, 70, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +Cell[185248, 4739, 1631, 53, 162, "Input",ExpressionUUID->"4c93efa1-fcb3-486b-8cef-3839dcac974a"], +Cell[186882, 4794, 431, 6, 33, "Output",ExpressionUUID->"ff345a12-90da-491a-81d0-17e27c667d40"] }, Open ]], Cell[CellGroupData[{ -Cell[289296, 7267, 2028, 55, 70, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], -Cell[291327, 7324, 20375, 384, 70, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +Cell[187350, 4805, 1631, 53, 162, "Input",ExpressionUUID->"ca5acf42-4edd-4671-8b25-b6e9bf7d3784"], +Cell[188984, 4860, 431, 6, 33, "Output",ExpressionUUID->"16a94dd1-f6c2-4e84-95af-3e7d21bb9a50"] }, Open ]], Cell[CellGroupData[{ -Cell[311739, 7713, 2118, 60, 70, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], -Cell[313860, 7775, 501, 11, 70, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], -Cell[314364, 7788, 503, 11, 70, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], -Cell[314870, 7801, 506, 11, 70, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], -Cell[315379, 7814, 458, 10, 70, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], -Cell[315840, 7826, 22161, 409, 70, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +Cell[189452, 4871, 230, 4, 29, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[189685, 4877, 158, 2, 33, "Output",ExpressionUUID->"cdd551bb-2c4f-49a6-9880-15c68083b367"] }, Open ]], -Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[189858, 4882, 175, 2, 29, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], Cell[CellGroupData[{ -Cell[338250, 8247, 1616, 48, 70, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], -Cell[339869, 8297, 590, 12, 70, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], -Cell[340462, 8311, 589, 12, 70, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], -Cell[341054, 8325, 593, 12, 70, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], -Cell[341650, 8339, 456, 10, 70, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], -Cell[342109, 8351, 170, 3, 70, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +Cell[190058, 4888, 228, 4, 29, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[190289, 4894, 158, 2, 33, "Output",ExpressionUUID->"e0472527-418d-49bf-8d31-0cfa8cd71397"] +}, Open ]], +Cell[190462, 4899, 171, 2, 29, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[190658, 4905, 1297, 42, 111, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[191958, 4949, 193, 2, 33, "Output",ExpressionUUID->"8a6858ff-0606-4ff7-8486-e36c0e8eb411"] }, Open ]], Cell[CellGroupData[{ -Cell[342316, 8359, 2251, 64, 70, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], -Cell[344570, 8425, 568, 12, 70, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], -Cell[345141, 8439, 573, 12, 70, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], -Cell[345717, 8453, 574, 12, 70, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], -Cell[346294, 8467, 458, 10, 70, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], -Cell[346755, 8479, 173, 3, 70, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +Cell[192188, 4956, 927, 30, 96, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[193118, 4988, 194, 2, 33, "Output",ExpressionUUID->"d814fe75-a09d-4e11-b179-483da2cfb214"] }, Open ]], Cell[CellGroupData[{ -Cell[346965, 8487, 2221, 64, 70, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], -Cell[349189, 8553, 570, 12, 70, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], -Cell[349762, 8567, 573, 12, 70, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], -Cell[350338, 8581, 573, 12, 70, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], -Cell[350914, 8595, 458, 10, 70, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], -Cell[351375, 8607, 171, 3, 70, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +Cell[193349, 4995, 906, 29, 55, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[194258, 5026, 195, 2, 33, "Output",ExpressionUUID->"2e0fe99b-30a4-45f5-ba99-c99959c1c9c3"] }, Open ]], Cell[CellGroupData[{ -Cell[351583, 8615, 2221, 64, 70, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], -Cell[353807, 8681, 570, 12, 70, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], -Cell[354380, 8695, 573, 12, 70, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], -Cell[354956, 8709, 574, 12, 70, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], -Cell[355533, 8723, 458, 10, 70, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], -Cell[355994, 8735, 173, 3, 70, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +Cell[194490, 5033, 554, 18, 51, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[195047, 5053, 191, 2, 33, "Output",ExpressionUUID->"1cb41384-3006-4767-982d-ae8b89066976"] }, Open ]], Cell[CellGroupData[{ -Cell[356204, 8743, 215, 6, 70, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], -Cell[356422, 8751, 172, 3, 70, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] -}, Open ]] +Cell[195275, 5060, 647, 21, 51, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[195925, 5083, 187, 2, 33, "Output",ExpressionUUID->"d78fdcee-2cfc-4303-8335-0fd2ef70bfc3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196149, 5090, 166, 4, 55, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[196318, 5096, 191, 2, 33, "Output",ExpressionUUID->"b026cf38-b7b8-4501-ab7f-0dbd44353bfc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196546, 5103, 166, 4, 54, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[196715, 5109, 188, 2, 33, "Output",ExpressionUUID->"2e414c6a-9245-40d4-a9fe-84fe1e735db8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196940, 5116, 177, 4, 43, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[197120, 5122, 192, 2, 33, "Output",ExpressionUUID->"a0d75053-7572-41e2-8099-b89af26a78cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197349, 5129, 177, 4, 43, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[197529, 5135, 188, 2, 33, "Output",ExpressionUUID->"34c2203a-b771-478c-90b1-41187efe24c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197754, 5142, 6051, 184, 474, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[203808, 5328, 194, 2, 33, "Output",ExpressionUUID->"a0fcc521-fc43-40a6-8ed8-a424571dc745"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204039, 5335, 364, 8, 41, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[204406, 5345, 191, 2, 33, "Output",ExpressionUUID->"b84483d3-a6ec-4d29-b5fb-bfdfc00451d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204634, 5352, 6118, 186, 474, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[210755, 5540, 191, 2, 33, "Output",ExpressionUUID->"17b0830e-3630-4b7f-827c-903b94314390"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210983, 5547, 364, 8, 41, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[211350, 5557, 190, 2, 33, "Output",ExpressionUUID->"2c60b766-e108-4710-b2a3-501f33940c81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211577, 5564, 2659, 87, 107, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[214239, 5653, 192, 2, 33, "Output",ExpressionUUID->"fe12ee96-1c6c-4f48-93e5-eba776340c7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214468, 5660, 2599, 84, 107, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[217070, 5746, 189, 2, 33, "Output",ExpressionUUID->"4ccba655-94e7-40ff-a960-16fbbdb6a445"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217296, 5753, 3708, 117, 160, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[221007, 5872, 190, 2, 33, "Output",ExpressionUUID->"a7d2f4bd-26bb-4ef0-b6c0-0f18a5fee25f"] +}, Open ]], +Cell[221212, 5877, 160, 3, 29, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[221397, 5884, 2073, 58, 99, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[223473, 5944, 586, 13, 26, "Message",ExpressionUUID->"2e480117-234a-4b0e-8bee-e846b19f11de"], +Cell[224062, 5959, 593, 13, 26, "Message",ExpressionUUID->"acb9f11a-c207-47ea-b1fd-98d10322f481"], +Cell[224658, 5974, 595, 13, 26, "Message",ExpressionUUID->"69fe479a-007e-4376-811c-dfeeba7a59ac"], +Cell[225256, 5989, 491, 11, 26, "Message",ExpressionUUID->"5240c7a7-543f-4215-89f9-de3bbb27fdf3"], +Cell[225750, 6002, 191, 2, 33, "Output",ExpressionUUID->"2d7832ef-5537-4cc5-9df1-57829e79d99d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[225978, 6009, 2071, 58, 234, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[228052, 6069, 585, 13, 26, "Message",ExpressionUUID->"80e8e632-6d0a-4b60-b703-740dbcb469d9"], +Cell[228640, 6084, 591, 13, 26, "Message",ExpressionUUID->"a1e53603-b354-48da-bbbd-a04fe007ba5a"], +Cell[229234, 6099, 591, 13, 26, "Message",ExpressionUUID->"815c6c78-ca11-4799-ba16-b16dd694af4b"], +Cell[229828, 6114, 490, 11, 26, "Message",ExpressionUUID->"af2434fa-97e4-49b8-97b6-53d09085c311"], +Cell[230321, 6127, 187, 2, 33, "Output",ExpressionUUID->"7fd2f7c1-5e15-41cc-a4e6-56d57ec5219b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230545, 6134, 1955, 52, 102, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[232503, 6188, 19950, 374, 236, "Output",ExpressionUUID->"cb1d4049-9151-4e29-80a9-34826b22cf33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[252490, 6567, 2111, 59, 261, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[254604, 6628, 534, 12, 59, "Message",ExpressionUUID->"6dbc284c-a974-464c-bb2c-8a8006d3e491"], +Cell[255141, 6642, 535, 12, 59, "Message",ExpressionUUID->"b15a4db0-d9c8-442e-8fea-82c09d63f7ba"], +Cell[255679, 6656, 538, 12, 59, "Message",ExpressionUUID->"eb94f706-46c7-4bc6-8c54-fbe6413c36ee"], +Cell[256220, 6670, 491, 11, 26, "Message",ExpressionUUID->"b36bdf8d-97dc-4f47-9026-1be095d4fee5"], +Cell[256714, 6683, 22363, 413, 232, "Output",ExpressionUUID->"23c18686-716c-4028-b535-b127b402214d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[279114, 7101, 2478, 69, 169, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[281595, 7172, 9491, 222, 242, "Output",ExpressionUUID->"68f57f30-6303-4e60-b241-07f8e0399f00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[291123, 7399, 228, 4, 29, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[291354, 7405, 28727, 545, 232, "Output",ExpressionUUID->"7d86889d-1f9a-475e-afa8-b224803f2864"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320118, 7955, 236, 6, 47, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[320357, 7963, 189, 2, 33, "Output",ExpressionUUID->"9537a4dd-e65f-48b0-9fa4-97b40538d7bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320583, 7970, 1833, 52, 190, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[322419, 8024, 538, 12, 59, "Message",ExpressionUUID->"9954908a-b822-410e-80fe-d18b25bfdf72"], +Cell[322960, 8038, 541, 12, 59, "Message",ExpressionUUID->"45d804dc-815e-404d-a1b9-be2566dc09f1"], +Cell[323504, 8052, 546, 12, 59, "Message",ExpressionUUID->"861092aa-55b3-4752-839a-a92568585ed4"], +Cell[324053, 8066, 491, 11, 26, "Message",ExpressionUUID->"65982ec0-9058-4cb4-a3c4-d012dc92e072"], +Cell[324547, 8079, 22357, 413, 232, "Output",ExpressionUUID->"256259b5-5b52-437f-bc79-1eaff9ea3105"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346941, 8497, 1616, 48, 104, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[348560, 8547, 615, 13, 80, "Message",ExpressionUUID->"384c2d04-a69d-470b-98de-8c7ffc6a1ec3"], +Cell[349178, 8562, 620, 13, 80, "Message",ExpressionUUID->"8a0bc8b6-4d3f-41dc-9616-441d167dd7de"], +Cell[349801, 8577, 621, 13, 80, "Message",ExpressionUUID->"6d50805f-e9b8-4daa-a65d-61b200ab23b0"], +Cell[350425, 8592, 495, 11, 26, "Message",ExpressionUUID->"ff786b4c-c07e-4a54-9312-a00361146ffc"], +Cell[350923, 8605, 195, 3, 33, "Output",ExpressionUUID->"27e2ce89-c5f8-479c-a94b-312ba4e9848a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351155, 8613, 2296, 65, 212, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[353454, 8680, 590, 13, 80, "Message",ExpressionUUID->"b00d1f6b-c0c3-4516-aaea-435b410752c8"], +Cell[354047, 8695, 596, 13, 80, "Message",ExpressionUUID->"c11232f7-eb0d-4fe2-9e6f-8c815acc0ce3"], +Cell[354646, 8710, 598, 13, 80, "Message",ExpressionUUID->"77fdc23a-05fb-44ef-9e84-f7676874d9db"], +Cell[355247, 8725, 495, 11, 26, "Message",ExpressionUUID->"1f53acf0-b89f-40e1-a513-1696faed415a"], +Cell[355745, 8738, 193, 3, 33, "Output",ExpressionUUID->"f755b29c-da4e-4151-87e1-81f7e06e006e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355975, 8746, 2233, 63, 212, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[358211, 8811, 590, 13, 80, "Message",ExpressionUUID->"ddf00b05-f2f2-4136-b45b-4e9311911a02"], +Cell[358804, 8826, 590, 13, 80, "Message",ExpressionUUID->"d620df1d-cbc3-4852-8f30-6876aab74fe6"], +Cell[359397, 8841, 596, 13, 80, "Message",ExpressionUUID->"89aebe25-4b97-441f-b070-c09d264d8f1c"], +Cell[359996, 8856, 493, 11, 26, "Message",ExpressionUUID->"0e3568ce-21b7-4a48-8562-44aa662bf55b"], +Cell[360492, 8869, 194, 3, 33, "Output",ExpressionUUID->"096e9e11-faff-46a1-8918-2dbee145d05e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360723, 8877, 2235, 63, 212, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[362961, 8942, 590, 13, 80, "Message",ExpressionUUID->"b71374cb-bf48-4731-994c-77badc302ac1"], +Cell[363554, 8957, 594, 13, 80, "Message",ExpressionUUID->"b17ef004-d77b-4fe5-90bb-f4ccf207c41f"], +Cell[364151, 8972, 596, 13, 80, "Message",ExpressionUUID->"8c38a2b5-45d2-4981-b553-9d9f444c4e18"], +Cell[364750, 8987, 497, 11, 26, "Message",ExpressionUUID->"9181d198-d118-45ca-b234-b322e0d9ecff"], +Cell[365250, 9000, 195, 3, 33, "Output",ExpressionUUID->"b94c2691-c1e6-4104-af4c-c67fde932089"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365482, 9008, 236, 6, 46, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[365721, 9016, 196, 3, 33, "Output",ExpressionUUID->"c817ca5a-df17-43b4-bbc9-912ce11cb5ff"] +}, Open ]], +Cell[365932, 9022, 270, 6, 29, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[366227, 9032, 558, 19, 51, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[366788, 9053, 194, 3, 33, "Output",ExpressionUUID->"ee75bbc0-f5d2-491e-bb2b-cb01731265a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367019, 9061, 170, 5, 55, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[367192, 9068, 192, 3, 33, "Output",ExpressionUUID->"bbe162a2-1060-4605-a0ad-eb5227a98af3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367421, 9076, 181, 5, 43, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[367605, 9083, 194, 3, 33, "Output",ExpressionUUID->"413a2a6a-0c59-4327-bcc0-3fccf5d5787a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367836, 9091, 6055, 185, 474, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[373894, 9278, 198, 3, 33, "Output",ExpressionUUID->"b0294ce1-a456-4720-821b-9f05ab5b24b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374129, 9286, 368, 9, 41, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[374500, 9297, 195, 3, 33, "Output",ExpressionUUID->"3255e731-9f5b-431a-b9b5-328e97723b88"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374732, 9305, 6122, 187, 474, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[380857, 9494, 197, 3, 33, "Output",ExpressionUUID->"cedc2bf1-8c94-4adf-b1ee-8d13d69fa332"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381091, 9502, 368, 9, 41, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[381462, 9513, 193, 3, 33, "Output",ExpressionUUID->"70afbde4-dbd4-4813-9d0e-fa107074905b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381692, 9521, 2663, 88, 285, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[384358, 9611, 194, 3, 33, "Output",ExpressionUUID->"27740d0e-6309-4ca3-acc9-2a2552f00d56"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384589, 9619, 2603, 85, 211, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[387195, 9706, 193, 3, 33, "Output",ExpressionUUID->"b8f1ffe2-9b56-4cc8-9411-f4faa833acd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387425, 9714, 3712, 118, 327, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[391140, 9834, 193, 3, 33, "Output",ExpressionUUID->"11ea2195-77ce-40ce-8811-6922e74ef4a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391370, 9842, 2075, 59, 234, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[393448, 9903, 582, 13, 63, "Message",ExpressionUUID->"acc2657f-b05a-4915-b775-05bd912b1707"], +Cell[394033, 9918, 584, 13, 63, "Message",ExpressionUUID->"fc94fe14-976c-4d72-9441-2fb377b4c354"], +Cell[394620, 9933, 586, 13, 80, "Message",ExpressionUUID->"ea47a809-cf75-48da-8f3c-c08d2e09dc6d"], +Cell[395209, 9948, 493, 11, 26, "Message",ExpressionUUID->"0555ae8b-c763-41dc-a845-0d000ca9f8f2"], +Cell[395705, 9961, 195, 3, 33, "Output",ExpressionUUID->"64b93019-d93d-4c56-926a-c6f145ac8a3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395937, 9969, 2077, 59, 234, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[398017, 10030, 582, 13, 63, "Message",ExpressionUUID->"5609db64-4bc9-4fca-95dc-b85c83ff4a04"], +Cell[398602, 10045, 584, 13, 63, "Message",ExpressionUUID->"6a64fa50-0a02-4c38-900c-48d270e3efdb"], +Cell[399189, 10060, 587, 13, 80, "Message",ExpressionUUID->"271ff691-986a-4617-99af-9512043f60c2"], +Cell[399779, 10075, 493, 11, 26, "Message",ExpressionUUID->"bab3307a-d867-4080-974e-37041fda9aef"], +Cell[400275, 10088, 192, 3, 33, "Output",ExpressionUUID->"23ca59b0-2bc0-4fe2-9ec5-2906154386eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[400504, 10096, 2051, 55, 151, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[402558, 10153, 20542, 386, 236, "Output",ExpressionUUID->"373032e6-a28c-49d9-b73f-ee267fe015f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[423137, 10544, 2143, 60, 261, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[425283, 10606, 535, 12, 59, "Message",ExpressionUUID->"229491b9-d572-42e7-8b5d-0a96b9aef6e4"], +Cell[425821, 10620, 536, 12, 59, "Message",ExpressionUUID->"f3b8e882-eb53-4b16-a144-bf798835878d"], +Cell[426360, 10634, 540, 12, 59, "Message",ExpressionUUID->"dd2c2aed-4395-48a9-adf4-4496916a500c"], +Cell[426903, 10648, 495, 11, 26, "Message",ExpressionUUID->"680aad12-30e2-408a-972d-76f4a5801e65"], +Cell[427401, 10661, 22460, 417, 232, "Output",ExpressionUUID->"ab52bdca-383e-46fc-a617-412f999fef4b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[449898, 11083, 232, 5, 29, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[450133, 11090, 28819, 549, 232, "Output",ExpressionUUID->"6d874a5f-3866-4845-bfd4-441b17aa13b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478989, 11644, 1616, 48, 104, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[480608, 11694, 627, 13, 80, "Message",ExpressionUUID->"cfce7262-7c7f-409f-bb54-d978dec4752e"], +Cell[481238, 11709, 629, 13, 80, "Message",ExpressionUUID->"648a4740-4a12-4ce8-813e-d41610c31ddd"], +Cell[481870, 11724, 634, 13, 80, "Message",ExpressionUUID->"399e01f3-0d98-4a3e-bae9-36fff93a732a"], +Cell[482507, 11739, 494, 11, 26, "Message",ExpressionUUID->"298a4869-e7b3-4753-86b4-507afe95fb1a"], +Cell[483004, 11752, 195, 3, 33, "Output",ExpressionUUID->"404a6740-64f1-4915-8722-d2366871ccec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[483236, 11760, 2271, 64, 212, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[485510, 11826, 586, 13, 63, "Message",ExpressionUUID->"08e13102-b647-4676-8d9c-2ff06de37db1"], +Cell[486099, 11841, 588, 13, 63, "Message",ExpressionUUID->"c1627039-52a2-48f5-92df-21a36bd5f3ee"], +Cell[486690, 11856, 589, 13, 80, "Message",ExpressionUUID->"0bc75149-5217-4ee4-953e-abff7f8d9bf4"], +Cell[487282, 11871, 495, 11, 26, "Message",ExpressionUUID->"f4c743c9-2e71-4500-ba4e-eaaaeadb48ac"], +Cell[487780, 11884, 196, 3, 33, "Output",ExpressionUUID->"5a7bbfe4-5710-4f45-b0da-cd2af6187550"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488013, 11892, 2229, 63, 212, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[490245, 11957, 586, 13, 63, "Message",ExpressionUUID->"0322bb50-add5-4a7b-8406-de7d73619985"], +Cell[490834, 11972, 586, 13, 63, "Message",ExpressionUUID->"6f8d455e-9065-4a13-8830-444aef8f08ae"], +Cell[491423, 11987, 589, 13, 80, "Message",ExpressionUUID->"81d831d1-b9f4-4476-b9f6-15cbc6f5cff8"], +Cell[492015, 12002, 495, 11, 26, "Message",ExpressionUUID->"84365a8b-8af6-4e8a-8b89-8020ce96f185"], +Cell[492513, 12015, 192, 3, 33, "Output",ExpressionUUID->"cba9e17d-9411-4ab4-afe0-ac9f29cd584b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492742, 12023, 2235, 63, 212, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[494980, 12088, 582, 13, 63, "Message",ExpressionUUID->"9c89276c-fa41-4c3e-b2d4-9977f1ba49d8"], +Cell[495565, 12103, 584, 13, 63, "Message",ExpressionUUID->"e5fbb5b0-06cb-48bd-98fc-9c85a6e511b0"], +Cell[496152, 12118, 587, 13, 80, "Message",ExpressionUUID->"0a7b17e8-2ade-45f1-b57b-479f9735141c"], +Cell[496742, 12133, 493, 11, 26, "Message",ExpressionUUID->"34fefe3f-c3df-4f59-a155-f5637c31b37b"], +Cell[497238, 12146, 195, 3, 33, "Output",ExpressionUUID->"cb63632a-af24-427f-bc6c-b14e18b51048"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497470, 12154, 236, 6, 46, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[497709, 12162, 197, 3, 33, "Output",ExpressionUUID->"10d078a8-e622-441e-bbf2-f64da6aa6256"] +}, Open ]], +Cell[497921, 12168, 273, 6, 29, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[498219, 12178, 558, 19, 51, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[498780, 12199, 195, 3, 33, "Output",ExpressionUUID->"98957ea6-cb79-49d7-8df0-1e2d27795ff1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499012, 12207, 170, 5, 55, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[499185, 12214, 195, 3, 33, "Output",ExpressionUUID->"e07fe9e3-1fe9-48d6-a230-2f4f9742927d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499417, 12222, 181, 5, 43, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[499601, 12229, 192, 3, 33, "Output",ExpressionUUID->"37258d1e-a81d-4816-8722-12ff0cecfa34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499830, 12237, 6055, 185, 474, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[505888, 12424, 194, 3, 33, "Output",ExpressionUUID->"f4e2634f-e356-4876-be2d-a5493db37b99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[506119, 12432, 368, 9, 41, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[506490, 12443, 197, 3, 33, "Output",ExpressionUUID->"948bc8f1-7908-4795-9185-1c020f3087b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[506724, 12451, 6122, 187, 474, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[512849, 12640, 195, 3, 33, "Output",ExpressionUUID->"2d760fb4-18c0-4989-9ceb-8a61e4109e39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[513081, 12648, 368, 9, 41, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[513452, 12659, 191, 3, 33, "Output",ExpressionUUID->"c1399915-4933-4213-aa79-c1165d03b33f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[513680, 12667, 2663, 88, 285, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[516346, 12757, 194, 3, 33, "Output",ExpressionUUID->"9d6d77aa-89dd-4721-9b94-91e8f51afdef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[516577, 12765, 2603, 85, 211, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[519183, 12852, 197, 3, 33, "Output",ExpressionUUID->"75b5bbaf-5d27-4740-a454-4909289ef362"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519417, 12860, 3712, 118, 327, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[523132, 12980, 196, 3, 33, "Output",ExpressionUUID->"e312c472-4b6b-4aba-8d82-2f30cc9384f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[523365, 12988, 2075, 59, 234, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[525443, 13049, 583, 13, 63, "Message",ExpressionUUID->"587d9919-fb91-44cf-8ae5-b37f8c1acd6e"], +Cell[526029, 13064, 586, 13, 80, "Message",ExpressionUUID->"336087e0-c45f-4a04-991a-e587f0464e8a"], +Cell[526618, 13079, 591, 13, 80, "Message",ExpressionUUID->"084c5824-71b7-4e77-a5c0-6671342e04b4"], +Cell[527212, 13094, 493, 11, 26, "Message",ExpressionUUID->"f71589a5-118d-49c5-90d1-9abcf543e506"], +Cell[527708, 13107, 195, 3, 33, "Output",ExpressionUUID->"9bcf5af4-0d31-4fed-bd77-fed4551191d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527940, 13115, 2075, 59, 234, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[530018, 13176, 583, 13, 63, "Message",ExpressionUUID->"8c8c5809-eb70-4da7-baa0-761124a426c8"], +Cell[530604, 13191, 587, 13, 80, "Message",ExpressionUUID->"49bc33d5-d0cb-47d1-a8f9-445a19777b30"], +Cell[531194, 13206, 591, 13, 80, "Message",ExpressionUUID->"bdd7c7ba-7511-45f1-8b73-d5b39787dfaa"], +Cell[531788, 13221, 495, 11, 26, "Message",ExpressionUUID->"a1040f5d-c197-4141-893c-ca8e86dcadc5"], +Cell[532286, 13234, 194, 3, 33, "Output",ExpressionUUID->"af88e2c9-a79c-4b32-bb9f-e1b399ec900f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[532517, 13242, 2051, 55, 151, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[534571, 13299, 20333, 383, 237, "Output",ExpressionUUID->"78d6b1e4-782b-42e4-bbde-3a65a383ffb7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[554941, 13687, 2141, 60, 261, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[557085, 13749, 537, 12, 59, "Message",ExpressionUUID->"f3454c4a-6373-4e65-ae16-88e4016b94a6"], +Cell[557625, 13763, 542, 12, 59, "Message",ExpressionUUID->"6018480f-ce5e-420b-bdab-c22d183e739c"], +Cell[558170, 13777, 543, 12, 59, "Message",ExpressionUUID->"9510cf56-ef32-4d6d-974b-29bf848ef33f"], +Cell[558716, 13791, 495, 11, 26, "Message",ExpressionUUID->"9f7a357c-8e18-4d8c-bdad-8097983e73f3"], +Cell[559214, 13804, 22213, 411, 232, "Output",ExpressionUUID->"2338e335-369a-4cb4-ae1a-ebd00eec4ef3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[581464, 14220, 232, 5, 29, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[581699, 14227, 28576, 543, 232, "Output",ExpressionUUID->"c8f5ccd8-cccc-4199-a9c4-f20a065fea70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[610312, 14775, 1616, 48, 104, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[611931, 14825, 622, 13, 80, "Message",ExpressionUUID->"5fca34ce-88c9-4fc3-94bb-f38cefe8cd5e"], +Cell[612556, 14840, 622, 13, 80, "Message",ExpressionUUID->"491ac93b-fe37-4706-9c76-b51c4fedb2ca"], +Cell[613181, 14855, 629, 13, 80, "Message",ExpressionUUID->"8b844305-d7bf-4dad-aadc-af5bd7329332"], +Cell[613813, 14870, 497, 11, 26, "Message",ExpressionUUID->"fb2cf1c5-80e4-4341-b36d-3243a8e357df"], +Cell[614313, 14883, 192, 3, 33, "Output",ExpressionUUID->"6fb9d638-9120-4308-97e1-0a229b400907"] +}, Open ]], +Cell[CellGroupData[{ +Cell[614542, 14891, 2274, 64, 212, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[616819, 14957, 583, 13, 63, "Message",ExpressionUUID->"5e368c30-bf63-4928-a2ea-dc6fd946e4bc"], +Cell[617405, 14972, 587, 13, 80, "Message",ExpressionUUID->"e1e81615-1120-4083-97d2-cc1835eb7ab0"], +Cell[617995, 14987, 593, 13, 80, "Message",ExpressionUUID->"f59228e4-1609-4394-8545-e8f8d02d7550"], +Cell[618591, 15002, 495, 11, 26, "Message",ExpressionUUID->"c2dd0c9a-779f-47fa-8d86-acdbd387b6e4"], +Cell[619089, 15015, 195, 3, 33, "Output",ExpressionUUID->"4fa8391f-be3b-4db5-a992-acfc062c08f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[619321, 15023, 2233, 63, 212, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[621557, 15088, 585, 13, 63, "Message",ExpressionUUID->"8b81eea7-9ad9-4757-a18c-a7f5723cf465"], +Cell[622145, 15103, 589, 13, 80, "Message",ExpressionUUID->"dcdec9d9-d61e-4367-8b95-fd6ae1b6de1b"], +Cell[622737, 15118, 593, 13, 80, "Message",ExpressionUUID->"fe1b332f-ab48-41a1-9df1-7cfd1e9fd471"], +Cell[623333, 15133, 495, 11, 26, "Message",ExpressionUUID->"f0735fc9-cc33-491e-94cb-3f6c3250a277"], +Cell[623831, 15146, 194, 3, 33, "Output",ExpressionUUID->"4aba3c83-316b-4ce0-b911-ac1cd5b66103"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624062, 15154, 2233, 63, 212, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[626298, 15219, 587, 13, 63, "Message",ExpressionUUID->"307d352f-9024-4c6f-9b5d-8125fbf9abcb"], +Cell[626888, 15234, 589, 13, 80, "Message",ExpressionUUID->"a433575d-a202-4ca3-af43-b04992c7c8c1"], +Cell[627480, 15249, 595, 13, 80, "Message",ExpressionUUID->"56f75dd2-de16-484c-8f11-0d00a58da556"], +Cell[628078, 15264, 497, 11, 26, "Message",ExpressionUUID->"1dc2cd06-5cd1-42d9-a656-b110960aede9"], +Cell[628578, 15277, 197, 3, 33, "Output",ExpressionUUID->"77f75f1d-09c9-4ec1-a613-164938ebabdd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[628812, 15285, 238, 6, 46, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[629053, 15293, 196, 3, 33, "Output",ExpressionUUID->"59b78d0a-4a5a-4bce-a170-cf1dbfa9b7a3"] +}, Open ]], +Cell[629264, 15299, 143, 3, 29, "Input",ExpressionUUID->"bf9d1ff3-3014-4754-9c9c-98199fe3027d"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw1.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw1.nb index 14330be..9fb83d0 100644 --- a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw1.nb @@ -3,42 +3,4899 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 419556, 9759] -NotebookOptionsPosition[ 394772, 9385] -NotebookOutlinePosition[ 395226, 9403] -CellTagsIndexPosition[ 395183, 9400] +NotebookDataLength[ 667740, 15993] +NotebookOptionsPosition[ 627169, 15343] +NotebookOutlinePosition[ 627633, 15362] +CellTagsIndexPosition[ 627590, 15359] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ -406cf54e52d1"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848849725815*^9, - 3.9918488497328167`*^9}},ExpressionUUID->"a5161e25-7247-124f-8601-\ -7bcc4af89c62"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "6.05"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9938046575111637`*^9, 3.993804701607058*^9}, + 3.993804733204545*^9, {3.993909737291142*^9, 3.993909742224861*^9}, { + 3.993910025500534*^9, 3.99391002667583*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"26c26a16-1b0a-4efc-b3af-0175fe1cc140"], + +Cell[BoxData["6.05`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.993804549577532*^9, 3.993804625944013*^9, { + 3.993804662482604*^9, 3.993804748770383*^9}, 3.9939096014243507`*^9, + 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993911040282156*^9, + 3.993916101937477*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"324c79e0-21ce-486c-9be0-f0396d74f486"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993909136325391*^9, 3.993909137492978*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"204c7c50-46af-46fd-9729-d209fac3838b"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ -c079ad464f5d"], + 3.9913196497381973`*^9, 3.9938045496655397`*^9, 3.9938046259897127`*^9, { + 3.9938046625249434`*^9, 3.9938047488188868`*^9}, 3.993909601730575*^9, + 3.993909669289562*^9, 3.99390975259161*^9, 3.993911040450327*^9, + 3.9939161020181723`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"8800dc50-8cc7-42f7-b3fb-926889f403f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "156"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.99380431527282*^9, 3.993804315993903*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"5630bff6-90dd-4888-9621-cb7d97908b2d"], + +Cell[BoxData["156"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993804317319977*^9, 3.9938045496866302`*^9, + 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}, + 3.9939096017486753`*^9, 3.9939096693086853`*^9, 3.9939097526160994`*^9, + 3.993911040468547*^9, 3.993916102024556*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"2bca863f-a19e-4675-9bec-510b231b035f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[27]:=",ExpressionUUID->"0a30049e-799d-477e-9c67-6851d13c3ede"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993804549706154*^9, 3.9938046260288763`*^9, { + 3.993804662560594*^9, 3.993804748856688*^9}, 3.9939096017670803`*^9, + 3.9939096693268347`*^9, 3.993909752633919*^9, 3.9939110404863653`*^9, + 3.993916102062241*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"681e7615-4ca4-4b32-aea0-21378feed02a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"a2945748-6248-4753-ae17-ddecefca8204"], + +Cell[BoxData["0.5455000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.99380454972574*^9, 3.993804626048635*^9, { + 3.9938046625774603`*^9, 3.993804748860417*^9}, 3.993909601785378*^9, + 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993911040509864*^9, + 3.993916102082574*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"80f7aa0c-e9c4-41b7-bb20-6560a5936cda"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[29]:=",ExpressionUUID->"c14bc843-0583-4950-b06d-691f9c31cfa3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.993804549747018*^9, 3.993804626052534*^9, { + 3.9938046625812197`*^9, 3.9938047488891172`*^9}, 3.9939096018028593`*^9, + 3.993909669362465*^9, 3.993909752666353*^9, 3.993911040522245*^9, + 3.9939161021031322`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"9400df4d-21d8-453f-be12-855fdb2bc8fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"f5bce722-7b41-4db7-8d03-af0ac3d8c649"], + +Cell[BoxData["6.244526630021248`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993804549770184*^9, 3.993804626085994*^9, { + 3.9938046626047153`*^9, 3.993804748905245*^9}, 3.993909601820876*^9, + 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993911040543586*^9, + 3.993916102123417*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"96901039-df3a-4362-bc2f-95461d341aa8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"9b2bd9a9-1884-4226-b9bb-67f5800ec261"], + +Cell[BoxData["5.08024220226995`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9938045497749643`*^9, 3.993804626103525*^9, { + 3.993804662619735*^9, 3.993804748921926*^9}, 3.993909601824861*^9, + 3.99390966939812*^9, 3.993909752692038*^9, 3.99391104056579*^9, + 3.993916102146884*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1544885f-408d-4793-85b0-c307ab13ca7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9831"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9938043369460163`*^9, 3.993804343883932*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"fcbe6772-3784-47fa-98be-f2c7aa522a31"], + +Cell[BoxData["0.9831`"], "Output", + CellChangeTimes->{ + 3.993804549811586*^9, 3.993804626121752*^9, {3.993804662635777*^9, + 3.9938047489393063`*^9}, 3.993909601854841*^9, 3.993909669421215*^9, + 3.9939097527133102`*^9, 3.99391104058123*^9, 3.993916102169735*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"7ae56f43-44bf-41d3-ae4b-4ce8f9e486db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.463"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.9938043632365713`*^9, 3.993804381532929*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"3300daa7-8147-4c0e-ae9c-4e70de35396b"], + +Cell[BoxData["0.463`"], "Output", + CellChangeTimes->{ + 3.993804549830037*^9, 3.993804626139834*^9, {3.993804662651184*^9, + 3.993804748955449*^9}, 3.993909601874164*^9, 3.993909669438889*^9, + 3.99390975272956*^9, 3.993911040594975*^9, 3.9939161021911*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"5abb9d11-1c92-425e-90d2-542e1adfd6a6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[34]:=",ExpressionUUID->"e36edc2d-e5c6-4ad2-bc4e-97880bdc2118"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9938045498689833`*^9, 3.993804626160439*^9, { + 3.993804662666739*^9, 3.9938047489718924`*^9}, 3.993909601896028*^9, + 3.993909669457499*^9, 3.993909752744871*^9, 3.993911040607565*^9, + 3.9939161022119837`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"0b8ca2c2-02a1-40f5-9991-dc27751c7af8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[35]:=",ExpressionUUID->"d3e646b8-c13f-447f-acde-d73b321316bc"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.9938045498874207`*^9, 3.9938046261797523`*^9, { + 3.993804662682715*^9, 3.993804748988103*^9}, 3.993909601914316*^9, + 3.993909669475305*^9, 3.993909752760817*^9, 3.993911040620604*^9, + 3.993916102232278*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"c2a88142-b553-416c-95fd-02dbcf2dd626"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[36]:=",ExpressionUUID->"8b806b6f-2b74-4265-b7ef-cc6a19e7b208"], + +Cell[BoxData["2.5173601133375656`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9938045499058733`*^9, 3.993804626198407*^9, { + 3.9938046626977053`*^9, 3.993804749004431*^9}, 3.9939096019331207`*^9, + 3.993909669493326*^9, 3.993909752780408*^9, 3.993911040633182*^9, + 3.993916102252597*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"7195b0df-4fd7-4c8f-9b13-2a637150b70a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[37]:=",ExpressionUUID->"1224c2ae-ce5f-489c-8822-79cb715e44ea"], + +Cell[BoxData["1.5234450434796134`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993804549925211*^9, 3.993804626217005*^9, { + 3.993804662711796*^9, 3.99380474902066*^9}, 3.993909601952641*^9, + 3.9939096695112753`*^9, 3.993909752793829*^9, 3.993911040650964*^9, + 3.9939161022734747`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"c00e7a0a-2c20-4faf-881c-749b01df79b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[38]:=",ExpressionUUID->"c162e657-ef0e-48d0-beca-55f08ee56145"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { + 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, + 3.993909669529284*^9, 3.993909752809037*^9, 3.9939110406687326`*^9, + 3.993916102294325*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"f7ac154f-a600-4b9d-ae96-dc82d4cf521a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[39]:=",ExpressionUUID->"7cbda4ee-cf16-489b-983d-acac094768ea"], + +Cell[BoxData[ + RowBox[{"-", "0.056142152983087`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993804549962688*^9, 3.993804626257918*^9, { + 3.993804662739541*^9, 3.993804749053331*^9}, 3.9939096019922533`*^9, + 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993911040685882*^9, + 3.993916102316341*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"4dd23120-9e40-4c85-8d46-c8625e23f59d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]], "Input", + CellLabel->"In[40]:=",ExpressionUUID->"70a35548-a870-4493-8a84-845fe5b80060"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { + 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, + 3.993909669564651*^9, 3.993909752838642*^9, 3.993911040699798*^9, + 3.9939161023378563`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"b6a5cca7-3961-4b39-aaf2-b1dbef4d0bad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[41]:=",ExpressionUUID->"d9e748c8-26cf-4f2b-8f9b-4a4d0de5af12"], + +Cell[BoxData["0.5841645161809887`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.99380455000006*^9, 3.993804626300075*^9, { + 3.993804662773251*^9, 3.993804749085907*^9}, 3.993909602031176*^9, + 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993911040717505*^9, + 3.993916102361115*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"f9642f02-8bc2-41be-9dde-ded39477f174"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[42]:=",ExpressionUUID->"b2260ccb-3694-49f8-8ac2-40688beba51c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993804550019484*^9, 3.993804626319972*^9, { + 3.993804662777142*^9, 3.9938047491020308`*^9}, 3.99390960204895*^9, + 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939110407302427`*^9, + 3.993916102384768*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"56a6640f-5cf8-430b-ac0f-6cc86063094f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[43]:=",ExpressionUUID->"15f43abf-bad8-4a0b-98b6-f6bcf06ed5e6"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9938045500378237`*^9, 3.993804626339315*^9, { + 3.993804662793344*^9, 3.99380474911817*^9}, 3.993909602068466*^9, + 3.9939096696185913`*^9, 3.993909752884066*^9, 3.9939110407465763`*^9, + 3.993916102407332*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"3575f046-1315-4c55-b22d-cbbe607fc441"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[44]:=",ExpressionUUID->"b9b0f8d4-ba1b-4c1e-be99-579da2035883"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9938045500560837`*^9, 3.9938046263600817`*^9, { + 3.99380466280895*^9, 3.993804749134166*^9}, 3.993909602086402*^9, + 3.9939096696362677`*^9, 3.99390975290001*^9, 3.993911040760674*^9, + 3.993916102429802*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"fd5e9efc-ff30-46f4-99b1-9700d4665a53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"4b046839-52f5-44f5-bda7-9bfcf58e8125"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993804550075344*^9, 3.993804626383381*^9, { + 3.99380466282749*^9, 3.993804749150152*^9}, 3.993909602104745*^9, + 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993911040772584*^9, + 3.993916102451672*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"836e9233-2cd7-49e9-a337-df1dbfa57b4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"ba1fb4bf-cc83-4d32-82fe-79ef7850fd83"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993804550093996*^9, 3.99380462640412*^9, { + 3.9938046628451138`*^9, 3.993804749168808*^9}, 3.993909602124238*^9, + 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993911040786252*^9, + 3.993916102474003*^9}, + CellLabel->"Out[46]=",ExpressionUUID->"4eee233b-ec5e-485f-a411-e5544dfd0893"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.9938046144530077`*^9, 3.9938046145855627`*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"9fabfce7-52f3-434c-aa63-a4d3e3fb362e"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993804626423663*^9, {3.993804662861299*^9, + 3.99380474918727*^9}, 3.993909602142963*^9, 3.99390966968908*^9, + 3.993909752947946*^9, 3.99391104079755*^9, 3.993916102510561*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"2ec47ad5-fdcb-4bbd-8f73-cf46bf8d0394"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.99380461799697*^9, 3.993804618062627*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"61807d35-25ac-461b-b91a-947e991dfc57"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9938045501483994`*^9, 3.993804626442574*^9, { + 3.993804662877561*^9, 3.9938047492047462`*^9}, 3.993909602161409*^9, + 3.993909669707423*^9, 3.993909752964058*^9, 3.993911040808663*^9, + 3.993916102533925*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"ce85cc11-e318-4727-a1fa-22e547fe56aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"15af80e0-b761-490c-b743-13b939c2b301"], + +Cell[BoxData["84"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993804550167096*^9, 3.993804626459854*^9, { + 3.993804662896564*^9, 3.9938047492214317`*^9}, 3.993909602179817*^9, + 3.993909669724697*^9, 3.993909752980503*^9, 3.993911040820331*^9, + 3.9939161025578737`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"119db5f8-7da4-4568-9228-b4d760d98887"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"b4768c84-c996-418b-af48-594084c904f3"], + +Cell[BoxData["0.11153846153846153`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9938045501856823`*^9, 3.993804626476894*^9, { + 3.993804662912559*^9, 3.993804749238111*^9}, 3.993909602199831*^9, + 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993911040829289*^9, + 3.9939161025820713`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"2ed59f48-c2b2-4d19-bdbe-9ec67c31fc26"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"8776d600-3ed0-4b58-83de-1d9552233afa"], + +Cell[BoxData[ + RowBox[{"-", "2.562307692307692`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993804550204549*^9, 3.9938046264931793`*^9, { + 3.993804662930933*^9, 3.993804749256987*^9}, 3.993909602217969*^9, + 3.993909669760494*^9, 3.99390975301192*^9, 3.993911040848421*^9, + 3.993916102606736*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"3c45bef3-750e-4030-b887-c303a20895df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[52]:=",ExpressionUUID->"f1fb3388-4070-4f8c-afeb-ac5dade52d8b"], + +Cell[BoxData["22.163907548137733`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993804550224925*^9, 3.993804626512244*^9, { + 3.993804662948985*^9, 3.993804749273611*^9}, 3.993909602237144*^9, + 3.99390966977844*^9, 3.993909753027061*^9, 3.993911040863247*^9, + 3.9939161026312447`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"62c48184-1f48-45d5-8749-cc7b775ef8a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[53]:=",ExpressionUUID->"908ae3dc-d3ec-4128-9f2e-91d699c79e93"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.993804550242552*^9, 3.993804626529005*^9, { + 3.993804662966734*^9, 3.9938047492900057`*^9}, 3.993909602255596*^9, + 3.993909669800799*^9, 3.993909753041724*^9, 3.9939110408795156`*^9, + 3.993916102655189*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"398fcb47-c4de-4a4d-b9b0-3de2d683c0e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.653"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9938043992805843`*^9, 3.993804401771452*^9}}, + CellLabel->"In[54]:=",ExpressionUUID->"f7f4dd40-4e58-4807-a978-c3d03da81a45"], + +Cell[BoxData["1.653`"], "Output", + CellChangeTimes->{ + 3.993804550280451*^9, 3.993804626545594*^9, {3.993804662983712*^9, + 3.9938047493074627`*^9}, 3.9939096022742043`*^9, 3.99390966981877*^9, + 3.9939097530579777`*^9, 3.993911040894527*^9, 3.993916102679147*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"1e303c9d-60b3-4334-a19d-8cbd50435467"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848851636154*^9, - 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ -11f4dcb03e07"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[55]:=",ExpressionUUID->"8e6d7ba6-0413-43af-9a22-5a34da1efa50"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.855"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.9938044044051847`*^9, 3.993804405718573*^9}}, + CellLabel->"In[56]:=",ExpressionUUID->"19295610-ad81-4231-aa66-f8abe3286f0b"], + +Cell[BoxData["0.855`"], "Output", + CellChangeTimes->{ + 3.9938045503168097`*^9, 3.993804626574059*^9, {3.993804663013727*^9, + 3.993804749370492*^9}, 3.993909602333745*^9, 3.99390966987148*^9, + 3.9939097530831842`*^9, 3.993911040917564*^9, 3.9939161027523003`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"32b6da7a-74bd-4d29-89be-b7900a023ef5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[57]:=",ExpressionUUID->"32a0a2f2-0e41-4835-8fba-e0976c26533c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.405"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9938044089096622`*^9, 3.993804410585486*^9}}, + CellLabel->"In[58]:=",ExpressionUUID->"93ee30e3-15f6-47b1-8763-9a8046115de8"], + +Cell[BoxData["2.405`"], "Output", + CellChangeTimes->{ + 3.993804550350713*^9, 3.993804626598034*^9, {3.993804663037463*^9, + 3.993804749435276*^9}, 3.9939096023888474`*^9, 3.993909669925479*^9, + 3.9939097531059*^9, 3.993911040939246*^9, 3.993916102822095*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"9866a54c-0a5f-4e04-8049-f01ae8f90e70"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[59]:=",ExpressionUUID->"2162f6c0-569a-47d8-8ab6-d2949ab58d6a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.225"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993804414830567*^9, 3.993804416147113*^9}}, + CellLabel->"In[60]:=",ExpressionUUID->"d6a21a25-baf5-46fb-bd52-3457b819f6bf"], + +Cell[BoxData["1.225`"], "Output", + CellChangeTimes->{ + 3.993804550383745*^9, 3.993804626621963*^9, {3.993804663060033*^9, + 3.9938047494929237`*^9}, 3.9939096024465313`*^9, 3.993909669980788*^9, + 3.993909753130068*^9, 3.993911040961238*^9, 3.993916102886837*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"3a916d04-9275-4445-b3a1-662c71fe6092"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[61]:=",ExpressionUUID->"c22d8007-0161-4853-800e-7d221c2c2a97"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.63"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993804418872067*^9, + 3.9938044202542753`*^9}}, + CellLabel->"In[62]:=",ExpressionUUID->"7067a133-8a08-408d-a0fd-2285962d9ddb"], + +Cell[BoxData["1.63`"], "Output", + CellChangeTimes->{ + 3.993804550416999*^9, 3.993804626645709*^9, {3.9938046630845337`*^9, + 3.993804749547261*^9}, 3.993909602527773*^9, 3.993909670035091*^9, + 3.993909753153574*^9, 3.99391104098392*^9, 3.993916102954484*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"0a2640ac-f967-4e27-a135-8956668994ce"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[63]:=",ExpressionUUID->"18f7a9e7-c435-424e-bcab-15974da0a0fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.5571"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993804423858293*^9, + 3.993804426562767*^9}}, + CellLabel->"In[64]:=",ExpressionUUID->"d876ec95-206a-47d4-b9cc-e6bfb36fa873"], + +Cell[BoxData["0.5571`"], "Output", + CellChangeTimes->{ + 3.993804550449337*^9, 3.993804626671207*^9, {3.993804663115242*^9, + 3.993804749603999*^9}, 3.993909602589055*^9, 3.9939096700891027`*^9, + 3.993909753176607*^9, 3.9939110410128717`*^9, 3.993916103047998*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"1f6523e5-3b57-48aa-8f46-739e54e3a723"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[65]:=",ExpressionUUID->"77d49b93-d1f4-4f1a-86a0-63d44f33f0b4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938044301504927`*^9, + 3.993804433535384*^9}}, + CellLabel->"In[66]:=",ExpressionUUID->"9a43eab4-5a23-41ae-b946-b7cc2b87040b"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804550483719*^9, 3.993804626698537*^9, {3.993804663139299*^9, + 3.993804749658854*^9}, 3.993909602653262*^9, 3.993909670143072*^9, + 3.993909753199719*^9, 3.993911041041524*^9, 3.99391610312531*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"94d5998b-14d2-4cbc-8d47-172872b81bcf"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[67]:=",ExpressionUUID->"cf4376cf-9b14-4408-954a-4eec001b376c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993804436228294*^9, 3.993804438250544*^9}}, + CellLabel->"In[68]:=",ExpressionUUID->"347db530-8a18-4ad1-81da-abbcd8cda90b"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804550516501*^9, 3.993804626722493*^9, {3.9938046631629744`*^9, + 3.993804749712779*^9}, 3.9939096027072487`*^9, 3.993909670196845*^9, + 3.9939097532228928`*^9, 3.9939110410620947`*^9, 3.993916103196061*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"b9d6aa77-22e1-47b1-b17b-a1f2e89bf7b9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[69]:=",ExpressionUUID->"41dd2d37-97c7-4898-915a-4babc7938952"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[70]:=",ExpressionUUID->"4c7d71bc-6e10-498c-a94b-3de087525273"], + +Cell[BoxData[ + RowBox[{"-", "0.04675250913077061`"}]], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993804550599751*^9, 3.993804626769621*^9, { + 3.99380466321212*^9, 3.993804749779405*^9}, 3.993909602821623*^9, + 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993911041160969*^9, + 3.993916103324903*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"800dc3f8-06eb-46d7-955a-d34321a39f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"108df0b7-564a-41a9-9ca6-152638c913c3"], + +Cell[BoxData["0.08542989528290149`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9938045506724253`*^9, 3.993804626799774*^9, { + 3.993804663242297*^9, 3.993804749831417*^9}, 3.993909602850985*^9, + 3.993909670308428*^9, 3.99390975330634*^9, 3.993911041227948*^9, + 3.9939161033735113`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"bce4d0d7-3fe1-4ce7-b4e0-b252fbd631fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"4c9ead0c-9b76-4f34-8a3c-5b9e822883d4"], + +Cell[BoxData[ + RowBox[{"-", "92.97992176536582`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9938045506993027`*^9, 3.993804626828765*^9, { + 3.99380466327107*^9, 3.99380474985798*^9}, 3.993909602878909*^9, + 3.9939096703348618`*^9, 3.993909753333283*^9, 3.99391104129389*^9, + 3.993916103401421*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"508aaf49-7310-4c9e-a071-5e79e24d9088"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"a82a656f-2cd4-4e27-9402-5230d3595daa"], + +Cell[BoxData[ + RowBox[{"-", "58.84836946427625`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993804550730234*^9, 3.993804626860573*^9, { + 3.99380466335039*^9, 3.993804749888824*^9}, 3.9939096029089117`*^9, + 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939110413816547`*^9, + 3.993916103432529*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"895bfa96-e0e5-425a-8488-9475c78a85bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"09b7ccdc-5dd9-4d99-a3f4-2900ca2dcff3"], + +Cell[BoxData[ + RowBox[{"-", "175.78557664639112`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993804550761911*^9, 3.993804626893774*^9, { + 3.993804663389638*^9, 3.993804749919907*^9}, 3.9939096029398603`*^9, + 3.993909670396442*^9, 3.993909753395891*^9, 3.993911041465062*^9, + 3.993916103464077*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"1bed92a2-442a-4b69-8fae-201cfb56b1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"0b2e37a4-acc9-46a6-9d73-1c538dacc043"], + +Cell[BoxData[ + RowBox[{"-", "221.57551938396955`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993804550797638*^9, 3.993804626930235*^9, { + 3.993804663472403*^9, 3.993804749955412*^9}, 3.993909602975071*^9, + 3.9939096704323187`*^9, 3.993909753433277*^9, 3.9939110415477953`*^9, + 3.993916103501195*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"a2cdae11-2b54-425b-9e85-87cb4da63dfb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"ee8354dc-8984-466c-9640-9a634c4a928e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9938045508194923`*^9, 3.993804626946419*^9, { + 3.993804663488306*^9, 3.993804749974567*^9}, 3.9939096029931*^9, + 3.993909670451165*^9, 3.9939097534481*^9, 3.993911041562955*^9, + 3.993916103521495*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"7445555f-b735-4e19-a56b-a58b1311f4b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"fbb3dcc4-26fa-405a-8c82-5c30e23622cc"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993804550838839*^9, 3.99380462696198*^9, { + 3.993804663542288*^9, 3.993804749990815*^9}, 3.9939096030110683`*^9, + 3.993909670469376*^9, 3.993909753462414*^9, 3.993911041578163*^9, + 3.9939161035387506`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"eb619002-cc9a-4760-b17b-9deb9e3e8d8b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"9fdc753b-53da-4b56-b7f0-0395b984a145"], + +Cell[BoxData["111.7060296377673`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9938045508585377`*^9, 3.993804626991984*^9, { + 3.993804663557494*^9, 3.9938047500074787`*^9}, 3.99390960303067*^9, + 3.993909670487976*^9, 3.993909753477995*^9, 3.993911041596219*^9, + 3.99391610355659*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"391e759c-6e5f-4c46-a0e9-780a52d116e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"860b2353-fa6a-4d6a-a71a-9b8849a95763"], + +Cell[BoxData[ + RowBox[{"-", "116.92037152462031`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993804550878648*^9, 3.993804627006651*^9, { + 3.99380466357337*^9, 3.993804750023952*^9}, 3.993909603048832*^9, + 3.993909670506846*^9, 3.99390975349363*^9, 3.993911041616233*^9, + 3.993916103574683*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"0a57c1f8-be09-43ed-b92d-7e56fb4bde5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"761da832-b2e6-4758-85c3-936b749cb6a1"], + +Cell[BoxData["187.12903971509587`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9938045509027987`*^9, 3.993804627020084*^9, { + 3.993804663589897*^9, 3.993804750040456*^9}, 3.9939096030676117`*^9, + 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993911041630309*^9, + 3.993916103592448*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"505d3122-1122-478d-959f-5c8ee2c8a240"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"69b30e47-9252-4807-a709-fe211b498050"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9938045509220467`*^9, 3.993804627033495*^9, { + 3.993804663606344*^9, 3.9938047500576067`*^9}, 3.993909603085306*^9, + 3.993909670543174*^9, 3.993909753523663*^9, 3.993911041648457*^9, + 3.9939161036111803`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"50f2817f-c132-4251-8062-b1d2212a88df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"30a1015a-87a3-4d41-a8c2-e9121849176e"], + +Cell[BoxData[ + RowBox[{"-", "0.056142152983087`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993804550940889*^9, 3.993804627047104*^9, { + 3.99380466362283*^9, 3.993804750074596*^9}, 3.993909603103224*^9, + 3.993909670561534*^9, 3.993909753539481*^9, 3.99391104166289*^9, + 3.9939161036307487`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"4a154ccc-2208-4a1d-b7ba-5e936c5fd4e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"f0e44845-9986-4f32-a790-8440b2c439e9"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.99380455096201*^9, 3.993804627060543*^9, { + 3.9938046636401176`*^9, 3.9938047500897923`*^9}, 3.993909603121352*^9, + 3.993909670579809*^9, 3.993909753557192*^9, 3.993911041676931*^9, + 3.993916103655046*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"6bd86e57-7512-4058-b46c-b40e2738c915"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"5a605471-8c22-4380-b127-1f1dd47ed52a"], + +Cell[BoxData["0.5841645161809887`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.993804550980524*^9, 3.9938046270751667`*^9, { + 3.993804663656624*^9, 3.993804750107565*^9}, 3.993909603139456*^9, + 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993911041688751*^9, + 3.993916103675688*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"2ee0c54a-44c4-4f00-b43b-30f3dfcda055"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"f09aa527-60a2-4ef7-b8eb-c3c472d40523"], + +Cell[BoxData["2.5173601133375656`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993804550999857*^9, 3.993804627093104*^9, { + 3.993804663673789*^9, 3.993804750123993*^9}, 3.993909603159047*^9, + 3.9939096706237583`*^9, 3.993909753618161*^9, 3.9939110417032013`*^9, + 3.993916103695614*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"34dfdc3e-486b-47d4-838a-8e257d323658"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"9437c249-5d0f-4768-91cc-73b83b6fd2cb"], + +Cell[BoxData["1.5234450434796134`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993804551018916*^9, 3.993804627108033*^9, { + 3.993804663692298*^9, 3.993804750140585*^9}, 3.99390960317778*^9, + 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993911041720379*^9, + 3.99391610371972*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"fe3c488b-1b64-46c1-92d0-8b7e09bc757d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"e6b8b8d0-ae42-4d47-bdc8-16674ea04604"], + +Cell[BoxData[ + RowBox[{"-", "18.177896388526342`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993804551037992*^9, 3.993804627123701*^9, { + 3.993804663711438*^9, 3.993804750156764*^9}, 3.993909603196027*^9, + 3.993909670663684*^9, 3.99390975365348*^9, 3.9939110417352552`*^9, + 3.993916103740334*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"9ad5cbee-99f5-4f33-a8f5-ffb4cdb07d9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"31114cdb-8af1-4e3b-9bb4-51ee021a3bf0"], + +Cell[BoxData[ + RowBox[{"-", "4.422931821128753`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.99380455105733*^9, 3.993804627139119*^9, { + 3.993804663729148*^9, 3.993804750173326*^9}, 3.993909603216249*^9, + 3.993909670683181*^9, 3.993909753671298*^9, 3.993911041748139*^9, + 3.993916103761271*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"b365816f-d6b8-4d6e-a33b-2b0459ee443c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"25ac905b-3951-422a-93cf-d7e9937f463e"], + +Cell[BoxData["93.52813324924097`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.9938045510774317`*^9, 3.993804627154879*^9, { + 3.993804663746785*^9, 3.993804750189831*^9}, 3.993909603237997*^9, + 3.99390967070298*^9, 3.993909753690928*^9, 3.9939110417615643`*^9, + 3.9939161037827797`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"a27b13be-00a9-4e9f-8347-d7b7a372d18e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"7b6bb20d-afa7-442e-a5a2-898994a8b0c6"], + +Cell[BoxData[ + RowBox[{"-", "116.92037152462031`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993804551098919*^9, 3.99380462716993*^9, { + 3.99380466376478*^9, 3.993804750205999*^9}, 3.9939096032579308`*^9, + 3.99390967072291*^9, 3.993909753708663*^9, 3.993911041777234*^9, + 3.993916103803102*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"ed573209-1a78-40a2-878c-15e01e9973ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"80ac9d67-9237-443f-aa3f-2a8a5d0599da"], + +Cell[BoxData["182.70610789396713`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993804551121139*^9, 3.993804627185237*^9, { + 3.9938046637699213`*^9, 3.993804750221984*^9}, 3.993909603279203*^9, + 3.993909670743991*^9, 3.993909753728705*^9, 3.9939110417957993`*^9, + 3.993916103827013*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"086f8a1d-d230-4a5e-b310-cecd76a178c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[92]:=",ExpressionUUID->"5f11066c-d152-4873-bc9f-9b0f487e480f"], + +Cell[BoxData["150.0362849602646`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9938045511434107`*^9, 3.993804627199387*^9, { + 3.9938046637889233`*^9, 3.993804750238797*^9}, 3.993909603297597*^9, + 3.993909670763399*^9, 3.993909753746546*^9, 3.9939110418163233`*^9, + 3.993916103832526*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"40c906b1-bbb2-4223-8540-c554fc9d915d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[93]:=",ExpressionUUID->"22e78aba-149f-4af3-8ab2-92ac3a9c7b5f"], + +Cell[BoxData["845.8339546196385`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993804551165799*^9, 3.993804627215629*^9, { + 3.9938046638111277`*^9, 3.993804750255252*^9}, 3.993909603318231*^9, + 3.993909670782775*^9, 3.993909753763286*^9, 3.993911041829805*^9, + 3.993916103867443*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"a7cd83cc-a7a5-4b9a-ae59-7fb61447d511"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.47396"}]], "Input", + CellChangeTimes->{ + 3.9918488488187084`*^9, {3.993910166405199*^9, 3.9939101744811153`*^9}}, + CellLabel->"In[94]:=",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], + +Cell[BoxData["0.47396`"], "Output", + CellChangeTimes->{3.993911022772211*^9, 3.993916103888163*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"ae559e9e-25a3-477c-b42d-3dfa5da93e04"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848849725815*^9, 3.9918488497328167`*^9}}, + CellLabel->"In[95]:=",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.24466"}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9, {3.993910176900714*^9, 3.9939101817046003`*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], + +Cell[BoxData["0.24466`"], "Output", + CellChangeTimes->{3.993911022873777*^9, 3.993916103949174*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"956f9688-562a-432a-960e-7a3222cf3456"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, 3.9918488516427097`*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ @@ -84,13 +4941,12 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[150]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], + CellLabel->"In[98]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913279321052856`*^9}, - CellLabel-> - "Out[150]=",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[BoxData["3.0421649672677`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.993911022902009*^9, + 3.993916104061735*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"3a14f16d-6ec5-4f30-ad6d-d48c34fad803"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4980,13 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ -7221ff813b6d"], + CellChangeTimes->{3.9915575644922657`*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.991327932129387*^9}, - CellLabel-> - "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[BoxData["1.0552510023146262`*^-54"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.9939110229223003`*^9, + 3.993916104082437*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"3109b7b7-8982-41be-915a-1576b2d7da5c"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +5019,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915575683388195`*^9, - 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ -fa370a62ac27"], - -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.991327932138338*^9}, + CellChangeTimes->{{3.9915575683388195`*^9, 3.991557570173399*^9}}, CellLabel-> - "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] + "In[100]:=",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], + +Cell[BoxData["1.1823542679164208`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.993911022939782*^9, + 3.9939161041034*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"8e459cdd-c221-453e-926c-f8b4cf236fc3"] }, Open ]], Cell[CellGroupData[{ @@ -195,12 +5051,13 @@ Cell[BoxData[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + "In[101]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913279321616154`*^9}, +Cell[BoxData["16.516942672454782`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.99391102295513*^9, + 3.9939161041239557`*^9}, CellLabel-> - "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] + "Out[101]=",ExpressionUUID->"90121fa1-9b22-48aa-9130-d6c4f0fcb9b0"] }, Open ]], Cell[CellGroupData[{ @@ -226,12 +5083,13 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellLabel-> - "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + "In[102]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[BoxData["37.77192070584817`"], "Output", - CellChangeTimes->{3.9913279321696014`*^9}, +Cell[BoxData["30.248326256562038`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.9939110229746943`*^9, + 3.993916104144907*^9}, CellLabel-> - "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] + "Out[102]=",ExpressionUUID->"6915c995-1276-4c81-b200-7aeb228fb6e1"] }, Open ]], Cell[CellGroupData[{ @@ -241,12 +5099,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> - "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + "In[103]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913279321926613`*^9}, +Cell[BoxData["3.013931102943886`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.993911022991911*^9, + 3.9939161041660357`*^9}, CellLabel-> - "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] + "Out[103]=",ExpressionUUID->"d2fffa84-9057-404b-940d-f22e5285076c"] }, Open ]], Cell[CellGroupData[{ @@ -256,12 +5115,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> - "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + "In[104]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[BoxData["3.2238916343938024`"], "Output", - CellChangeTimes->{3.991327932200657*^9}, +Cell[BoxData["5.288005318472368`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.993911023015183*^9, + 3.993916104189761*^9}, CellLabel-> - "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] + "Out[104]=",ExpressionUUID->"e58e1cb1-3880-4621-9bb4-d5d3e9357bad"] }, Open ]], Cell[CellGroupData[{ @@ -271,12 +5131,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> - "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + "In[105]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[BoxData["121.77257917856996`"], "Output", - CellChangeTimes->{3.99132793222501*^9}, +Cell[BoxData["159.95331011958743`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.9939110230371733`*^9, + 3.993916104215991*^9}, CellLabel-> - "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] + "Out[105]=",ExpressionUUID->"59eaddb4-0983-40d2-84bc-56db9a8da55c"] }, Open ]], Cell[CellGroupData[{ @@ -286,12 +5147,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + "In[106]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913279322642612`*^9}, +Cell[BoxData["49.78092724605258`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.993911023059963*^9, + 3.993916104242375*^9}, CellLabel-> - "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] + "Out[106]=",ExpressionUUID->"ff1ee0e3-bb3e-4a93-a2a2-b5befaca724c"] }, Open ]], Cell[CellGroupData[{ @@ -481,12 +5343,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + "In[107]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[BoxData["0.032550594324745`"], "Output", - CellChangeTimes->{3.9913279322906475`*^9}, +Cell[BoxData["0.005801737962944015`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.9939110230806828`*^9, + 3.993916104269724*^9}, CellLabel-> - "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] + "Out[107]=",ExpressionUUID->"49c869fd-1d1f-4e84-96a8-d84f32ad6f76"] }, Open ]], Cell[CellGroupData[{ @@ -500,12 +5363,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + "In[108]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[BoxData["4.91208054446651`"], "Output", - CellChangeTimes->{3.9913279323826447`*^9}, +Cell[BoxData["11.634986554328606`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.993911386005465*^9, + 3.99391610433676*^9}, CellLabel-> - "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] + "Out[108]=",ExpressionUUID->"57dfa062-c928-4057-9b04-f8ef5b824e64"] }, Open ]], Cell[CellGroupData[{ @@ -697,12 +5561,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + "In[109]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[BoxData["0.012685641417856707`"], "Output", - CellChangeTimes->{3.991327932394655*^9}, +Cell[BoxData["0.019133804856087726`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.993911386764847*^9, + 3.993916104350358*^9}, CellLabel-> - "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] + "Out[109]=",ExpressionUUID->"30f08eaf-ce35-4c7c-bf11-c5d44673648d"] }, Open ]], Cell[CellGroupData[{ @@ -716,12 +5581,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + "In[110]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.991327932491659*^9}, +Cell[BoxData["6.406845785358704`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.993911757935813*^9, + 3.99391610439902*^9}, CellLabel-> - "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] + "Out[110]=",ExpressionUUID->"8150a992-a82b-4547-952b-a9a413f9ac87"] }, Open ]], Cell[CellGroupData[{ @@ -814,12 +5680,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + "In[111]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991327932509678*^9}, +Cell[BoxData["0.1245822467542299`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.9939117585106783`*^9, + 3.993916104408268*^9}, CellLabel-> - "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] + "Out[111]=",ExpressionUUID->"316b69bc-2f4b-4ba2-aae7-d9c6a06d84f0"] }, Open ]], Cell[CellGroupData[{ @@ -909,12 +5776,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + "In[112]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913279325457134`*^9}, +Cell[BoxData["0.8754177532457702`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.9939117585215683`*^9, + 3.993916104417687*^9}, CellLabel-> - "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] + "Out[112]=",ExpressionUUID->"8340be16-eca1-4edc-9ae2-f00769544489"] }, Open ]], Cell[CellGroupData[{ @@ -1037,18 +5905,20 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + "In[113]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913279325697117`*^9}, +Cell[BoxData["0.10906151054789807`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.993911758535819*^9, + 3.993916104427763*^9}, CellLabel-> - "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] + "Out[113]=",ExpressionUUID->"14c33eec-4071-4009-a8f6-79e712a61895"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ -eb45-a9e1-7a2f5d020eb1"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ @@ -1109,68 +5979,77 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ -c0135e32eaf8"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279325947113`*^9}, + CellChangeTimes->{3.9918488620812244`*^9}, CellLabel-> - "During evaluation of \ -In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + "In[115]:=",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 110, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326047096`*^9}, - CellLabel-> - "During evaluation of \ -In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.199845905076303`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 111, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327932612709*^9}, +normalized machine number; precision may be lost.\"", 2, 115, 5, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993911775515518*^9, + 3.9939161044547253`*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +In[115]:=",ExpressionUUID->"2333a104-e05f-4020-a2be-da41d2a04e13"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6279157807279646`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 115, 6, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993911775515518*^9, + 3.9939161044592857`*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"b8f00778-3341-4cca-907a-7573942df4b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.983043122103806`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 115, 7, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993911775515518*^9, + 3.99391610446381*^9}, + CellLabel-> + "During evaluation of \ +In[115]:=",ExpressionUUID->"6b851781-a5d1-4555-9570-dfd55758e291"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326207104`*^9}, +during this calculation.\"", 2, 115, 8, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993911775515518*^9, + 3.99391610446842*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +In[115]:=",ExpressionUUID->"82d1fafe-6d91-4a32-a2c3-c033e19d7471"], -Cell[BoxData["4.912080544466506`"], "Output", - CellChangeTimes->{3.9913279359974174`*^9}, +Cell[BoxData["11.6349865543286`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.993916058903899*^9, + 3.9939161061649723`*^9}, CellLabel-> - "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] + "Out[115]=",ExpressionUUID->"0dde49af-f93c-46e3-a01c-5b4b9d1b5b1d"] }, Open ]], Cell[CellGroupData[{ @@ -1232,68 +6111,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ -b0ab3cd09ac2"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936033827*^9}, + CellChangeTimes->{3.991848865140564*^9}, CellLabel-> - "During evaluation of \ -In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + "In[116]:=",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 114, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360428295`*^9}, - CellLabel-> - "During evaluation of \ -In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.199845905076303`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 115, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936050829*^9}, +normalized machine number; precision may be lost.\"", 2, 116, 9, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993916106223749*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +In[116]:=",ExpressionUUID->"620f953c-2e1f-4b9f-af61-f1dc3d74eaed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6279157807279646`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 10, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993916106228126*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"27a1eff1-2165-426c-a370-fd703a0d13ca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.983043122103806`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 116, 11, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.99391610623199*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"4dbe4979-effc-41de-8d32-77ea5fbd2a51"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360588284`*^9}, +during this calculation.\"", 2, 116, 12, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993916106235869*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +In[116]:=",ExpressionUUID->"fb234670-8ea1-4f24-8e72-07809c18a118"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.9913279393385086`*^9}, +Cell[BoxData["6.406845785358708`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.993916107843705*^9}, CellLabel-> - "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] + "Out[116]=",ExpressionUUID->"88bdcf8e-1d9a-427e-9d67-24dab5c8b6e3"] }, Open ]], Cell[CellGroupData[{ @@ -1349,95 +6232,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848869193308*^9},ExpressionUUID->"124cd7db-c537-8943-bef2-\ -1a154ab4a709"], + CellChangeTimes->{3.991848869193308*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk0VV8bB3BD5qHwM2RKplKJyJR4nhBlSqJIStx7KjIk+QmJ0CTNg94K +ZUjmIXN5VSqvlKJSUtzLlTlj6lzy7v44a6/P2mt997Ofvc85S32DXZl8PDw8 +/eT5Ox56s3pZ5ds3lgkmLid43rHAcjTTyNcmHxwtVGv+ujvN+KqmzSMITkjY +y0vswngtKG74HKrk4iP4iEsijj8TsGkG7QWK8/zEZ14o1B/PfQfufpunBYir +3x5KnTX4AEZbpbyEiQc7mqKP1n6CjeOH9MWIFTkaXj+tO8E1MOCIJLHDj2iz +w81dUDE9pyNNXDc7KBaRywKDJzrOcsQf4+SjKoJ6YFj8B0uReFTQZnDKgAPp +ys6cJcSC50I8DWf6wGWdnYcWsarUncZDtf1wuqJj3UpiZ6Wf2aPWw1C1qtXZ +lJhKV5fTFR4FkX7jWCA+rrUlMaD5BzglmCy1I/4k/35NWO44WOpIlu4gZuz0 +P3Dl3AQUa3Pu+hCP3ea5Wxo0CRWjnrz+xMLquovGDaahX3LJwhjiq4xndotk +f4LXhZDHp4nV7nse15v5CaIrfb9cITZddXI0sPYXBDksp/KI9xt3NQ9az8KD +x9squ4inIo4sENWeg8Z/q9kjxLG1Yut1hP9AjMbzY7PEKWiat695Ho6Vv+NT +aiX1ZTXahObyYtXkp03exLkvrnTHKfHhkMWp8SDise+7oy+d48OoYbZIHHH0 +iumy4iB+jM7NPpNNfLVoqcYPAwEsi455/pO44+1w3Z8MASy6UDEk1kbqn6jc +KSkriFzZrLilxPlrnS/rzgji6ZjcWSfihupI3oO1wuhgFKWXTzz9rK2r31oc +08UCzxx7zwJpR/FFUXXimHD+puRtYv33NihhJoF+crrytcT+veXpa1ZLYnXO +pVKaOISvWd9CfBHunUiWjv3AAo564XjiTyn8ruZ5NOMj6Q/VJNJiKI2Z/QLG +TcR8eX1LFQ5JY3QShI8Tqxkucc0dIvMLGXEb2lmw0/pi6ZtuGXxZV/f0O3GL +X+hh+VeyyHCzmHL8zIJv988n+QjLoWis6FAU8fBQbsaDjXI4ZnWFmUcsGtbT +Zl4vh/pHejliHSywSXBb61Muj7NNLJk24ppM4+mctMWoGWi3PLKTBZkcOnxd +mAqq2yY5ruxmwSb3U98OF6hgobL0GYp4uEHGtqBPBXOTvpjeI16buUpWzVMV +3bbYTCiySD99d5cJWC5BLHrXLMVmwcSP7n/749UwZNE/mrK9LJAJtHlY5qSO +/wncFR7az4K+TNH9Lv7qKNyZpP6IuKrzrdLISXWUy4uyEhxgwS5H73jtenUU +HCj4eos4c2W4600DDfzY+imueZCsP3h/LEZeE0V4LROtR1jgtk9M156lhf3j +7jdPT7AAwt0NdsxpYQJfumgX8YrENBPGYm3MVakbMppkAU+GoVXMVm30UD07 +10tc8M1rR+kTbYzdOrxn0zR5P7fnxyneW4ZNG2w1NX+R+mycPg766uAepz8t +en9YkLHtxpeZGB2M93yx8SrxeV9W94JbOnizQGzVb2JG7JEh1TYdFP6lad8w +zwKpR3d4tlmvQDXa4PUeXjb4G46uqNVYiU/dPk3mLWCDkvqF40m9q9DGKHAk +RYwNj85O6fzm08WTuwLMZMXZsGvS8z21VBdNAvJFLxOnNmjqWO3WxYTtChbJ +EmxQ31fT+qtdF0VGYtlnFrJhRT5Hi3q1GhvK54xvy7BBRUmVUvPUR2WRYmst +ZTasygoT54IBuguljjWtZoMvI35a19kAW8wdbXfrsSFF4/I3n10GuAZkpCeI ++e8VFb+IMEC8KSGutIYNHamDbpdLDPCr+72zoYZsOJPic0dHwxAzzNurTUzZ +0JfkuNpDcC3KDixRVbJiw91QTZfyZiOMb1Ll3bSDDaXf6pMUOo0w4eH7OSEP +Njy1934ZNWSE4UkzpxqJe9WvW1qJGmNReKWNw042aLcJ6bbYGaNixNm9O7zZ +kG84JDLw1BjlTIYNz/qxoWqq5JlytQmuXz6SsjOEDW/DwSQhywxX7sgLeJDE +hqW7Pzh7H7TATSEnXDgv2cCcryhUOYpY2ejMWi7cA/JDVULyvlZ4SUf/1OD2 +HggzXN95eYUN1lwtczR70AO+I7ONMoMb8X9uneIBfL1QYHVYKK3FDje7cNLF +A3shc8r/Sf7VzbjybKOgWkcv/Nqg8LrhuANaFMvcNfDiwFce/nHWXifMePTv +Pw4cDgQpB1+M09iCare6m9JD+qDwQGP9tUQXFFyUvrNQ5jtETi6eWXlgK7Y+ +ytwSXvkdpu1tt7/c44p3woqr/hzpBzOvSxs4W7dhdiT0F1sOQOviO/4Nhm5Y +sOFiXbDgIChmxz/KWe6OT6R/cGaGB6Gqe4Wjs8R2PDruFZf8bghU34/tCx/Z +jkLS66sc6obB8Nql/IzuHVg2dP2c2+sRuLNgcvXlZx7YtyDZLK59FCo26HUk +Vnui15rvrTL8Y5BiclZqNncnWjqiw4XUMWj5knXS8JwXrmipLwo0Godyp9ua +IbG7sEI5y3Pg2ziMB27jCWJ4Y6FYo5LgiQmYttXZP2q9G09Mpne80pqEnJHP +vw4b78HUCZGezx2T4HE3y89b3Ac7Um7ztiROQVmpwx7+Uz54bd+p9B6YBjOl +1t9nfvug1qG1M2+Gp0Gje1/HuwN7UT/bqXP0yk/oFQvYcrtnLyZ07ZQ/bTMD +b887+9m5++JK8zO3ptgzcDUiTezIW190Uio85pD4Cx7Vzf/22+yHzr3F114o +/IaFu/CUYY0fuodJDSRd+w1mPqM5iWsZePDhiQPXxWnIvjl22NmYgf3yFnL6 +kjT80zZhKW/KwPNCuZWNC2kY3TjzPsecgXGdXz7+lKbJ94uHt9mKgdPRgZG2 +i2mQnJHylN7KQOvxoOlSLRp6k41E0gIZaOzW+N/HFjScr40+UJXNwBNTM5fi +/WkINLhhFpHDQAXHyLC3ATQ4PigRMc1l4NPNU+uVA2kQvdH3oLKAgY5qjJji +YBoSQ10GKx4y8OG3bdWvwmiI1tEMKH/KQFe1rU+aY2jwv/HqYOk3BsKyyIqf +l2jYLNm3PrSbgScfz+YvuULD8kQeCQM2Axt2p8bYXaWhL9SooITDwO2d0yVX +rtOw1zltpHiYgWxTIRfVWzR4CBwOKqIZmOatqzGbQYPdYcWQfDkmLs+M5Pn0 +kIanaSftLyswUc615Nl4OQ3rmyc0IxSZeHcsX120kgZ9rVefrVWZWDUXU2pc +TcPi9ijrL1pM/MQ9uvD4YxqG1n2VEzViYl73+eDm5zRc4Et/vG8bE+9JiTB3 +fCD71xNPcXJnYo3nqynrjzQkeEWEGu5gotatRFm9dhoiHrosm9/JRAvVbGHe +z6R+ivfSdV8m8utJFFzppMGwyZfx/BATGSGZeYd7aGi/pCWmcZGJGjltccpj +NBSCxP7+S0w0F984/Zo4YWSqoeAKWf+jy9KYcRoMNjfEmN5g4qID++51TJDz +4/GbcEplYk78pFXCNA22wemfI/KZGNHa9u4mTYOKymljy0KSl2VXacylYaop ++Ap/MRMTMsG1lfieNjidL2PiUDJ/jsAcDXNfv9Zn1DCRru55vWuehoeOSjlv +GplY+jmxs5mfC0k0n8DVJiY6tvsIuC/ggm/O4F7PZibeUhZhfSFetKBGqbeF +ie9m1Yo5Alw4WOtx4fdHJkZ9WvJgQIgLGiuuh2tymBg6uZxTKsYFuv1Y20Af +E19Eti3XJn+Kt4lM/aJ+JhbfmFZOIY5hrR00G2aiZ4qCXIQEFzpS2ry3TDLR +/4zJpuULuXBZSGpjJC+Fn9MkLm6W5sKjia9eYfwUXhx/mVdK/P1rbmiQAIX1 +jRPqijJcWP/QJt1XhMKg6Xn1XuI+nwiuvRSF67p7mAxZUr/jRumNMhQ+Lhfx +rCc2N5HWAVkKlRuishXluHBRIn+74WIKF80/3tJEbF7TVaK0lEIZht4nWQUu +UFn5jbIaFDL1lv2HQXzx4tGuhVoUskWDykuI+ygZiQU6FE4Kh8/YLibzMnb7 +h/UpTF0XmO2tyIWaPzLH+wwonHNt10sj5gx0X+teS+HDghqpLuJ19ZHP3ptS +WDCb/M1TiQu9BwtVHyOFaowfN82VuSDpEWVUaUXhRNr93mBiM+tNjiU2FGZ8 +XnHqHvH5xeyjWZsoLBywbeNT4ULVgqKLafYUlqTWRusT9/yIun/TkUKBhWXH +dhGbvpD9kOxC4d6y/sQiYt8S9tApVwoF64SSPxIn3y7iO+FGoe2agCEuMTt0 +s364B4V1H14WbFDlgsRuObuQnRQat2dL+RKbbu7x9t9FIYt1rTmWOHnJsaTd +PhTiuXC7auIqUft7Hr4kb8ZVqI2YPS1X7cqg0JRPVnXobx6rp8WRojDmblkS +7xKS11zcZ7ufQskD2i5yxL6Vx+bQn8L4c8wAHeLke/b/mB+kULzrwNd1xFXJ +8iuNgsj5t63KtidmR/Ru0Auh0CQ657kHsTijxEMnlNyfpHZzJrHJlphgjTAK +N20rFw75m7/O4aRKOOnPc4tVR4nPaSnckY+gUDE0MDuWuGIRp0wqksLzSRv+ +PUnM4pY0iUVTaM6uTD37N/97DEsghsKcvjfKycTGrQ6/5o9TaPAgcfyv/w/t +EPLm "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1451,106 +6334,107 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Xk0VV8bB3BD5qHwM2RKplKJyJR4nhBlSqJIStx7KjIk+QmJ0CTNg94K +ZUjmIXN5VSqvlKJSUtzLlTlj6lzy7v44a6/P2mt997Ofvc85S32DXZl8PDw8 +/eT5Ox56s3pZ5ds3lgkmLid43rHAcjTTyNcmHxwtVGv+ujvN+KqmzSMITkjY +y0vswngtKG74HKrk4iP4iEsijj8TsGkG7QWK8/zEZ14o1B/PfQfufpunBYir +3x5KnTX4AEZbpbyEiQc7mqKP1n6CjeOH9MWIFTkaXj+tO8E1MOCIJLHDj2iz +w81dUDE9pyNNXDc7KBaRywKDJzrOcsQf4+SjKoJ6YFj8B0uReFTQZnDKgAPp +ys6cJcSC50I8DWf6wGWdnYcWsarUncZDtf1wuqJj3UpiZ6Wf2aPWw1C1qtXZ +lJhKV5fTFR4FkX7jWCA+rrUlMaD5BzglmCy1I/4k/35NWO44WOpIlu4gZuz0 +P3Dl3AQUa3Pu+hCP3ea5Wxo0CRWjnrz+xMLquovGDaahX3LJwhjiq4xndotk +f4LXhZDHp4nV7nse15v5CaIrfb9cITZddXI0sPYXBDksp/KI9xt3NQ9az8KD +x9squ4inIo4sENWeg8Z/q9kjxLG1Yut1hP9AjMbzY7PEKWiat695Ho6Vv+NT +aiX1ZTXahObyYtXkp03exLkvrnTHKfHhkMWp8SDise+7oy+d48OoYbZIHHH0 +iumy4iB+jM7NPpNNfLVoqcYPAwEsi455/pO44+1w3Z8MASy6UDEk1kbqn6jc +KSkriFzZrLilxPlrnS/rzgji6ZjcWSfihupI3oO1wuhgFKWXTzz9rK2r31oc +08UCzxx7zwJpR/FFUXXimHD+puRtYv33NihhJoF+crrytcT+veXpa1ZLYnXO +pVKaOISvWd9CfBHunUiWjv3AAo564XjiTyn8ruZ5NOMj6Q/VJNJiKI2Z/QLG +TcR8eX1LFQ5JY3QShI8Tqxkucc0dIvMLGXEb2lmw0/pi6ZtuGXxZV/f0O3GL +X+hh+VeyyHCzmHL8zIJv988n+QjLoWis6FAU8fBQbsaDjXI4ZnWFmUcsGtbT +Zl4vh/pHejliHSywSXBb61Muj7NNLJk24ppM4+mctMWoGWi3PLKTBZkcOnxd +mAqq2yY5ruxmwSb3U98OF6hgobL0GYp4uEHGtqBPBXOTvpjeI16buUpWzVMV +3bbYTCiySD99d5cJWC5BLHrXLMVmwcSP7n/749UwZNE/mrK9LJAJtHlY5qSO +/wncFR7az4K+TNH9Lv7qKNyZpP6IuKrzrdLISXWUy4uyEhxgwS5H73jtenUU +HCj4eos4c2W4600DDfzY+imueZCsP3h/LEZeE0V4LROtR1jgtk9M156lhf3j +7jdPT7AAwt0NdsxpYQJfumgX8YrENBPGYm3MVakbMppkAU+GoVXMVm30UD07 +10tc8M1rR+kTbYzdOrxn0zR5P7fnxyneW4ZNG2w1NX+R+mycPg766uAepz8t +en9YkLHtxpeZGB2M93yx8SrxeV9W94JbOnizQGzVb2JG7JEh1TYdFP6lad8w +zwKpR3d4tlmvQDXa4PUeXjb4G46uqNVYiU/dPk3mLWCDkvqF40m9q9DGKHAk +RYwNj85O6fzm08WTuwLMZMXZsGvS8z21VBdNAvJFLxOnNmjqWO3WxYTtChbJ +EmxQ31fT+qtdF0VGYtlnFrJhRT5Hi3q1GhvK54xvy7BBRUmVUvPUR2WRYmst +ZTasygoT54IBuguljjWtZoMvI35a19kAW8wdbXfrsSFF4/I3n10GuAZkpCeI ++e8VFb+IMEC8KSGutIYNHamDbpdLDPCr+72zoYZsOJPic0dHwxAzzNurTUzZ +0JfkuNpDcC3KDixRVbJiw91QTZfyZiOMb1Ll3bSDDaXf6pMUOo0w4eH7OSEP +Njy1934ZNWSE4UkzpxqJe9WvW1qJGmNReKWNw042aLcJ6bbYGaNixNm9O7zZ +kG84JDLw1BjlTIYNz/qxoWqq5JlytQmuXz6SsjOEDW/DwSQhywxX7sgLeJDE +hqW7Pzh7H7TATSEnXDgv2cCcryhUOYpY2ejMWi7cA/JDVULyvlZ4SUf/1OD2 +HggzXN95eYUN1lwtczR70AO+I7ONMoMb8X9uneIBfL1QYHVYKK3FDje7cNLF +A3shc8r/Sf7VzbjybKOgWkcv/Nqg8LrhuANaFMvcNfDiwFce/nHWXifMePTv +Pw4cDgQpB1+M09iCare6m9JD+qDwQGP9tUQXFFyUvrNQ5jtETi6eWXlgK7Y+ +ytwSXvkdpu1tt7/c44p3woqr/hzpBzOvSxs4W7dhdiT0F1sOQOviO/4Nhm5Y +sOFiXbDgIChmxz/KWe6OT6R/cGaGB6Gqe4Wjs8R2PDruFZf8bghU34/tCx/Z +jkLS66sc6obB8Nql/IzuHVg2dP2c2+sRuLNgcvXlZx7YtyDZLK59FCo26HUk +Vnui15rvrTL8Y5BiclZqNncnWjqiw4XUMWj5knXS8JwXrmipLwo0Godyp9ua +IbG7sEI5y3Pg2ziMB27jCWJ4Y6FYo5LgiQmYttXZP2q9G09Mpne80pqEnJHP +vw4b78HUCZGezx2T4HE3y89b3Ac7Um7ztiROQVmpwx7+Uz54bd+p9B6YBjOl +1t9nfvug1qG1M2+Gp0Gje1/HuwN7UT/bqXP0yk/oFQvYcrtnLyZ07ZQ/bTMD +b887+9m5++JK8zO3ptgzcDUiTezIW190Uio85pD4Cx7Vzf/22+yHzr3F114o +/IaFu/CUYY0fuodJDSRd+w1mPqM5iWsZePDhiQPXxWnIvjl22NmYgf3yFnL6 +kjT80zZhKW/KwPNCuZWNC2kY3TjzPsecgXGdXz7+lKbJ94uHt9mKgdPRgZG2 +i2mQnJHylN7KQOvxoOlSLRp6k41E0gIZaOzW+N/HFjScr40+UJXNwBNTM5fi +/WkINLhhFpHDQAXHyLC3ATQ4PigRMc1l4NPNU+uVA2kQvdH3oLKAgY5qjJji +YBoSQ10GKx4y8OG3bdWvwmiI1tEMKH/KQFe1rU+aY2jwv/HqYOk3BsKyyIqf +l2jYLNm3PrSbgScfz+YvuULD8kQeCQM2Axt2p8bYXaWhL9SooITDwO2d0yVX +rtOw1zltpHiYgWxTIRfVWzR4CBwOKqIZmOatqzGbQYPdYcWQfDkmLs+M5Pn0 +kIanaSftLyswUc615Nl4OQ3rmyc0IxSZeHcsX120kgZ9rVefrVWZWDUXU2pc +TcPi9ijrL1pM/MQ9uvD4YxqG1n2VEzViYl73+eDm5zRc4Et/vG8bE+9JiTB3 +fCD71xNPcXJnYo3nqynrjzQkeEWEGu5gotatRFm9dhoiHrosm9/JRAvVbGHe +z6R+ivfSdV8m8utJFFzppMGwyZfx/BATGSGZeYd7aGi/pCWmcZGJGjltccpj +NBSCxP7+S0w0F984/Zo4YWSqoeAKWf+jy9KYcRoMNjfEmN5g4qID++51TJDz +4/GbcEplYk78pFXCNA22wemfI/KZGNHa9u4mTYOKymljy0KSl2VXacylYaop ++Ap/MRMTMsG1lfieNjidL2PiUDJ/jsAcDXNfv9Zn1DCRru55vWuehoeOSjlv +GplY+jmxs5mfC0k0n8DVJiY6tvsIuC/ggm/O4F7PZibeUhZhfSFetKBGqbeF +ie9m1Yo5Alw4WOtx4fdHJkZ9WvJgQIgLGiuuh2tymBg6uZxTKsYFuv1Y20Af +E19Eti3XJn+Kt4lM/aJ+JhbfmFZOIY5hrR00G2aiZ4qCXIQEFzpS2ry3TDLR +/4zJpuULuXBZSGpjJC+Fn9MkLm6W5sKjia9eYfwUXhx/mVdK/P1rbmiQAIX1 +jRPqijJcWP/QJt1XhMKg6Xn1XuI+nwiuvRSF67p7mAxZUr/jRumNMhQ+Lhfx +rCc2N5HWAVkKlRuishXluHBRIn+74WIKF80/3tJEbF7TVaK0lEIZht4nWQUu +UFn5jbIaFDL1lv2HQXzx4tGuhVoUskWDykuI+ygZiQU6FE4Kh8/YLibzMnb7 +h/UpTF0XmO2tyIWaPzLH+wwonHNt10sj5gx0X+teS+HDghqpLuJ19ZHP3ptS +WDCb/M1TiQu9BwtVHyOFaowfN82VuSDpEWVUaUXhRNr93mBiM+tNjiU2FGZ8 +XnHqHvH5xeyjWZsoLBywbeNT4ULVgqKLafYUlqTWRusT9/yIun/TkUKBhWXH +dhGbvpD9kOxC4d6y/sQiYt8S9tApVwoF64SSPxIn3y7iO+FGoe2agCEuMTt0 +s364B4V1H14WbFDlgsRuObuQnRQat2dL+RKbbu7x9t9FIYt1rTmWOHnJsaTd +PhTiuXC7auIqUft7Hr4kb8ZVqI2YPS1X7cqg0JRPVnXobx6rp8WRojDmblkS +7xKS11zcZ7ufQskD2i5yxL6Vx+bQn8L4c8wAHeLke/b/mB+kULzrwNd1xFXJ +8iuNgsj5t63KtidmR/Ru0Auh0CQ657kHsTijxEMnlNyfpHZzJrHJlphgjTAK +N20rFw75m7/O4aRKOOnPc4tVR4nPaSnckY+gUDE0MDuWuGIRp0wqksLzSRv+ +PUnM4pY0iUVTaM6uTD37N/97DEsghsKcvjfKycTGrQ6/5o9TaPAgcfyv/w/t +EPLm "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "PlotRange" -> {{0, 180}, {0.5567629380400239, + 1.6952037271935976`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5567629380400251}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1562,132 +6446,133 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.5567629380400239, + 1.6952037271935976`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.5567629380400251}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{91.80048673422971, - 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Xk0VV8bB3BD5qHwM2RKplKJyJR4nhBlSqJIStx7KjIk+QmJ0CTNg94K +ZUjmIXN5VSqvlKJSUtzLlTlj6lzy7v44a6/P2mt997Ofvc85S32DXZl8PDw8 +/eT5Ox56s3pZ5ds3lgkmLid43rHAcjTTyNcmHxwtVGv+ujvN+KqmzSMITkjY +y0vswngtKG74HKrk4iP4iEsijj8TsGkG7QWK8/zEZ14o1B/PfQfufpunBYir +3x5KnTX4AEZbpbyEiQc7mqKP1n6CjeOH9MWIFTkaXj+tO8E1MOCIJLHDj2iz +w81dUDE9pyNNXDc7KBaRywKDJzrOcsQf4+SjKoJ6YFj8B0uReFTQZnDKgAPp +ys6cJcSC50I8DWf6wGWdnYcWsarUncZDtf1wuqJj3UpiZ6Wf2aPWw1C1qtXZ +lJhKV5fTFR4FkX7jWCA+rrUlMaD5BzglmCy1I/4k/35NWO44WOpIlu4gZuz0 +P3Dl3AQUa3Pu+hCP3ea5Wxo0CRWjnrz+xMLquovGDaahX3LJwhjiq4xndotk +f4LXhZDHp4nV7nse15v5CaIrfb9cITZddXI0sPYXBDksp/KI9xt3NQ9az8KD +x9squ4inIo4sENWeg8Z/q9kjxLG1Yut1hP9AjMbzY7PEKWiat695Ho6Vv+NT +aiX1ZTXahObyYtXkp03exLkvrnTHKfHhkMWp8SDise+7oy+d48OoYbZIHHH0 +iumy4iB+jM7NPpNNfLVoqcYPAwEsi455/pO44+1w3Z8MASy6UDEk1kbqn6jc +KSkriFzZrLilxPlrnS/rzgji6ZjcWSfihupI3oO1wuhgFKWXTzz9rK2r31oc +08UCzxx7zwJpR/FFUXXimHD+puRtYv33NihhJoF+crrytcT+veXpa1ZLYnXO +pVKaOISvWd9CfBHunUiWjv3AAo564XjiTyn8ruZ5NOMj6Q/VJNJiKI2Z/QLG +TcR8eX1LFQ5JY3QShI8Tqxkucc0dIvMLGXEb2lmw0/pi6ZtuGXxZV/f0O3GL +X+hh+VeyyHCzmHL8zIJv988n+QjLoWis6FAU8fBQbsaDjXI4ZnWFmUcsGtbT +Zl4vh/pHejliHSywSXBb61Muj7NNLJk24ppM4+mctMWoGWi3PLKTBZkcOnxd +mAqq2yY5ruxmwSb3U98OF6hgobL0GYp4uEHGtqBPBXOTvpjeI16buUpWzVMV +3bbYTCiySD99d5cJWC5BLHrXLMVmwcSP7n/749UwZNE/mrK9LJAJtHlY5qSO +/wncFR7az4K+TNH9Lv7qKNyZpP6IuKrzrdLISXWUy4uyEhxgwS5H73jtenUU +HCj4eos4c2W4600DDfzY+imueZCsP3h/LEZeE0V4LROtR1jgtk9M156lhf3j +7jdPT7AAwt0NdsxpYQJfumgX8YrENBPGYm3MVakbMppkAU+GoVXMVm30UD07 +10tc8M1rR+kTbYzdOrxn0zR5P7fnxyneW4ZNG2w1NX+R+mycPg766uAepz8t +en9YkLHtxpeZGB2M93yx8SrxeV9W94JbOnizQGzVb2JG7JEh1TYdFP6lad8w +zwKpR3d4tlmvQDXa4PUeXjb4G46uqNVYiU/dPk3mLWCDkvqF40m9q9DGKHAk +RYwNj85O6fzm08WTuwLMZMXZsGvS8z21VBdNAvJFLxOnNmjqWO3WxYTtChbJ +EmxQ31fT+qtdF0VGYtlnFrJhRT5Hi3q1GhvK54xvy7BBRUmVUvPUR2WRYmst +ZTasygoT54IBuguljjWtZoMvI35a19kAW8wdbXfrsSFF4/I3n10GuAZkpCeI ++e8VFb+IMEC8KSGutIYNHamDbpdLDPCr+72zoYZsOJPic0dHwxAzzNurTUzZ +0JfkuNpDcC3KDixRVbJiw91QTZfyZiOMb1Ll3bSDDaXf6pMUOo0w4eH7OSEP +Njy1934ZNWSE4UkzpxqJe9WvW1qJGmNReKWNw042aLcJ6bbYGaNixNm9O7zZ +kG84JDLw1BjlTIYNz/qxoWqq5JlytQmuXz6SsjOEDW/DwSQhywxX7sgLeJDE +hqW7Pzh7H7TATSEnXDgv2cCcryhUOYpY2ejMWi7cA/JDVULyvlZ4SUf/1OD2 +HggzXN95eYUN1lwtczR70AO+I7ONMoMb8X9uneIBfL1QYHVYKK3FDje7cNLF +A3shc8r/Sf7VzbjybKOgWkcv/Nqg8LrhuANaFMvcNfDiwFce/nHWXifMePTv +Pw4cDgQpB1+M09iCare6m9JD+qDwQGP9tUQXFFyUvrNQ5jtETi6eWXlgK7Y+ +ytwSXvkdpu1tt7/c44p3woqr/hzpBzOvSxs4W7dhdiT0F1sOQOviO/4Nhm5Y +sOFiXbDgIChmxz/KWe6OT6R/cGaGB6Gqe4Wjs8R2PDruFZf8bghU34/tCx/Z +jkLS66sc6obB8Nql/IzuHVg2dP2c2+sRuLNgcvXlZx7YtyDZLK59FCo26HUk +Vnui15rvrTL8Y5BiclZqNncnWjqiw4XUMWj5knXS8JwXrmipLwo0Godyp9ua +IbG7sEI5y3Pg2ziMB27jCWJ4Y6FYo5LgiQmYttXZP2q9G09Mpne80pqEnJHP +vw4b78HUCZGezx2T4HE3y89b3Ac7Um7ztiROQVmpwx7+Uz54bd+p9B6YBjOl +1t9nfvug1qG1M2+Gp0Gje1/HuwN7UT/bqXP0yk/oFQvYcrtnLyZ07ZQ/bTMD +b887+9m5++JK8zO3ptgzcDUiTezIW190Uio85pD4Cx7Vzf/22+yHzr3F114o +/IaFu/CUYY0fuodJDSRd+w1mPqM5iWsZePDhiQPXxWnIvjl22NmYgf3yFnL6 +kjT80zZhKW/KwPNCuZWNC2kY3TjzPsecgXGdXz7+lKbJ94uHt9mKgdPRgZG2 +i2mQnJHylN7KQOvxoOlSLRp6k41E0gIZaOzW+N/HFjScr40+UJXNwBNTM5fi +/WkINLhhFpHDQAXHyLC3ATQ4PigRMc1l4NPNU+uVA2kQvdH3oLKAgY5qjJji +YBoSQ10GKx4y8OG3bdWvwmiI1tEMKH/KQFe1rU+aY2jwv/HqYOk3BsKyyIqf +l2jYLNm3PrSbgScfz+YvuULD8kQeCQM2Axt2p8bYXaWhL9SooITDwO2d0yVX +rtOw1zltpHiYgWxTIRfVWzR4CBwOKqIZmOatqzGbQYPdYcWQfDkmLs+M5Pn0 +kIanaSftLyswUc615Nl4OQ3rmyc0IxSZeHcsX120kgZ9rVefrVWZWDUXU2pc +TcPi9ijrL1pM/MQ9uvD4YxqG1n2VEzViYl73+eDm5zRc4Et/vG8bE+9JiTB3 +fCD71xNPcXJnYo3nqynrjzQkeEWEGu5gotatRFm9dhoiHrosm9/JRAvVbGHe +z6R+ivfSdV8m8utJFFzppMGwyZfx/BATGSGZeYd7aGi/pCWmcZGJGjltccpj +NBSCxP7+S0w0F984/Zo4YWSqoeAKWf+jy9KYcRoMNjfEmN5g4qID++51TJDz +4/GbcEplYk78pFXCNA22wemfI/KZGNHa9u4mTYOKymljy0KSl2VXacylYaop ++Ap/MRMTMsG1lfieNjidL2PiUDJ/jsAcDXNfv9Zn1DCRru55vWuehoeOSjlv +GplY+jmxs5mfC0k0n8DVJiY6tvsIuC/ggm/O4F7PZibeUhZhfSFetKBGqbeF +ie9m1Yo5Alw4WOtx4fdHJkZ9WvJgQIgLGiuuh2tymBg6uZxTKsYFuv1Y20Af +E19Eti3XJn+Kt4lM/aJ+JhbfmFZOIY5hrR00G2aiZ4qCXIQEFzpS2ry3TDLR +/4zJpuULuXBZSGpjJC+Fn9MkLm6W5sKjia9eYfwUXhx/mVdK/P1rbmiQAIX1 +jRPqijJcWP/QJt1XhMKg6Xn1XuI+nwiuvRSF67p7mAxZUr/jRumNMhQ+Lhfx +rCc2N5HWAVkKlRuishXluHBRIn+74WIKF80/3tJEbF7TVaK0lEIZht4nWQUu +UFn5jbIaFDL1lv2HQXzx4tGuhVoUskWDykuI+ygZiQU6FE4Kh8/YLibzMnb7 +h/UpTF0XmO2tyIWaPzLH+wwonHNt10sj5gx0X+teS+HDghqpLuJ19ZHP3ptS +WDCb/M1TiQu9BwtVHyOFaowfN82VuSDpEWVUaUXhRNr93mBiM+tNjiU2FGZ8 +XnHqHvH5xeyjWZsoLBywbeNT4ULVgqKLafYUlqTWRusT9/yIun/TkUKBhWXH +dhGbvpD9kOxC4d6y/sQiYt8S9tApVwoF64SSPxIn3y7iO+FGoe2agCEuMTt0 +s364B4V1H14WbFDlgsRuObuQnRQat2dL+RKbbu7x9t9FIYt1rTmWOHnJsaTd +PhTiuXC7auIqUft7Hr4kb8ZVqI2YPS1X7cqg0JRPVnXobx6rp8WRojDmblkS +7xKS11zcZ7ufQskD2i5yxL6Vx+bQn8L4c8wAHeLke/b/mB+kULzrwNd1xFXJ +8iuNgsj5t63KtidmR/Ru0Auh0CQ657kHsTijxEMnlNyfpHZzJrHJlphgjTAK +N20rFw75m7/O4aRKOOnPc4tVR4nPaSnckY+gUDE0MDuWuGIRp0wqksLzSRv+ +PUnM4pY0iUVTaM6uTD37N/97DEsghsKcvjfKycTGrQ6/5o9TaPAgcfyv/w/t +EPLm "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.5567629380400239, 1.6952037271935976`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.5567629380400251}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1697,7 +6582,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.819001000320631}, + AxesOrigin->{0, 0.5567629380400251}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1725,7 +6611,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5567629380400239, 1.6952037271935976`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1733,9 +6620,9 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913281932019863`*^9}, + CellChangeTimes->{3.9913281932019863`*^9, 3.993916247083982*^9}, CellLabel-> - "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] + "Out[117]=",ExpressionUUID->"eeb53ca6-5a8d-4b45-aaa1-f33a1e966cf5"] }, Open ]], Cell[CellGroupData[{ @@ -1798,348 +6685,159 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ -bade8ae5c530"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ -\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 117, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934227676`*^9}, + CellChangeTimes->{3.9918488717861137`*^9}, CellLabel-> - "During evaluation of \ -In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + "In[118]:=",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0176596967145045`*^-269\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 118, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934317894`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 118, + 13, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.9939162472917356`*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +In[118]:=",ExpressionUUID->"9e048295-c9b4-4f1f-a0e1-f157142d3654"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.303561810592466`*^-281\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 169, 119, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934409904`*^9}, + 118, 14, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993916247295936*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +In[118]:=",ExpressionUUID->"bc3f7c38-0968-4796-b2f4-71f0debeefa4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.9045362244611963`*^-292\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 118, 15, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.9939162472991037`*^9}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fbfb12e-8696-4abd-b48c-222338d92a0d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132819344899*^9}, +during this calculation.\"", 2, 118, 16, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993916247301881*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +In[118]:=",ExpressionUUID->"c7a4aea9-54db-411d-a328-fdb956e8cf6b"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8Fd8bB3ClIqGibFnunWtJSGT5iut5KhWRIlokeyKFJGXJmqgUoUK2 +dFO2e4ekVFKUUEmWbEWLVKKUiGy/8/trXu/XzGvmzDPP+Zw5TBcf632z+fj4 +Zs3i4/v/cbS77oniWY5xU9/8OrkoY+OWTKnAte2RcCPpKkd7ahng0lcuUu2J +sLMxpP/3pBoEbMtv42/PgXrflst1k4aw+Idk4nhbCaRI+UvFT5pDzwNLnz9t +VbBSxzmqc2IPbFTsf/errQkycs2FWeNeMN6mf3Go7SOst9umbPsjGKrX3+C8 +zhkG9Yy8z9Lf4kC2p7zPRX0KZIe/n2PjRVhy0DFfYD0/htTUvz+fdwUStTbe +t7QVxMaSrqb1jKvQkbLq0a9FIphcEe/iMX0NznLCXs2WXoxxgVIPJNpyQTL5 +0+mkDHGsWqyaN2dnHsTYmBk3jS5F8ff57vyuBSBT2iAze5YELlR9Wb7OqwC4 +4jZ/tRZIYL0R52LIkQJ40+RAX1CQwOanSZ96ogpA0cqfsjKVQDevpgo3TgFU +bcma15gqgf6mZ9LdewtgauNIw0sjSTyUeuGLiVMhHDG46lgXKYV5Hb41uKkI +NmeL/jGPk8ITm2L23thSBJRASGzDRSkcDo4TmG9TBI0tO4qbb0phfuLtxAqn +IljpK8zf3SCFtzYsDPoeWARfc4/l/paRxmPOlbp2BUVgv8RycNktaYz/s+9n +uBAXVgffj8h8II2nugY0zBZxQejjcglmjTS6l8f5C0twoZzHD8od0rjcTlL6 +JJMLEublCatmpLGdc+2u/n9caIxQ1NlgLoORix0YtBsXTH7+C/L+JIPdqT8t +e8u5EGiavOLxgAwu5uoaDz/kAveqRqf4qAy61PQ5T1VzQcrGyaBccBle/Wiw +kb+BCwN3n/7lX7kM7+66E976gQtJkQn+qceXIZ9LYXGSIA8+LlX2fiIiixUV +Gl8DrHkg6VMpJykpi9LBs20HdvDAonbXS0+GLAoLio3a7+FBWdBZ9YWrZfHe +FvVWTTcenOkZ6t+9SxbjLlyZn36UB9p59/f/zJHF79kVzucv8yDCyMpZ5j85 +vF8z51FXGw9MHTJ/66+Tw1eNJWUL3vJANPx7lK2FHCr4eIvovedBenV0boKT +HH7x13wb+JUHdzff+z7vtBwO/pYWeDjGg6FdrIDhDjlc3jt4UFaYBoejI2de +BMsjzvYOP6FKg9LldbL90fKo5sh7bahGk/ePLxJIkMeGizO7/qrTEDSp2riO +I486ilVC7qtouBjlsLT8hTwGLymZRenT8OLCs6zrcgro8aE1YIkJDWu4qaWh +lQr4dXTC7/MeGkzaGqZ+1CpgsuLz1av30mDJN2eTY5MC4qmh86EONLhae3fA +ZwXMa9i+VNSZho3BzLDwuQzczdI9sMidBl+F0Wtr1RjY2zhxJMeHhpFbCbXj +mgxMaOubqPMl4zNVGyzWYWCbziPq52Eaog876VHGDNQxO2ap7U9DWnV97Wwr +BjKqcpXTj9PwZH/WYHUAA7NNrJnT4TSYTRqIhQQz8ETPv4qZCBoaElr0dMIZ +uEusbHo6koaO8vnhnNMMvMl8dGj0JA0/FviLRacz0OJN9YK6WBqkaFP9jVUM +1FDZcmkqnoYMk097pmsYuBQnMzoSaKA6ToSXPWegYvmBrbcu0KAx+1adcisD +/bbwFzsm0bDORs5e4CsZfzA3MP0SDQfHfoXXijBx09GxgNx0Us/D7hJ9YkwM +E5OIOZhBg2B/ZwG/FBMnWi72aGbScL2r+o0xxcSGgude3Cwauh9eVL+tx8T2 +hNyZMzk0FOoLVTUZMlHTw93Z8BqpFx26cwiZuFr23sJvxBI5+yPVzJnYx7fe +xug6DVujDdqvOjJRVEkoruoGDfLTRYcq3ZiYHZrkvPcm6Y8Aiv+dJxPlVURj +R4hjPRaslPJnoulPsXq5fBoemb+LOh9Lxp/E0LYspOH8EyvpwnNMhM8jmc3E +9uwabl0iE2WGTJx3FNEwvpLXMSeDicsms79u59KgLRahGVzMRG/jAjFNmga+ +syNPUsqYuEOQY5hF3MB/wK7sPhP3K9c9FC6mwWvEOvrXUyZyBKZbe4g57Ypd ++zuZ+GX+9C73WzT4WaX6RvcwccEldHtMjPUi8671MtEk8GyDdCkN7+6Prur+ +wcQpt9KqKmKJrNpTNvwUmgq/XDNym4ZeSbasnyCFglK1Ww3LaChJKC6OF6Gw +XaqxNpR4a2Ta23pJCh+pXvw2RSw/Ier3VZZCn+60RIM7pF5HogTmURSeaTTO +8SOO3XdQe606hfNDx/++Jd7R/f6ZgxaFTvV7QfQuDYo7bfeG6FGoeXTipxHx +71d1v1MNKYx4GSTkSfzI1Dj2DlL4tuJkfCLx+cclcq0bKGx5XhVWTmy/RuXW +780UciR7ut4Rj6st6tawpfDcwN5O+XIaRjNkIlbbUZhxe3BqDfGfhUqKBo4U +PjXovGFD/CtC85mxG4Vr1z5r9yL+MWxwwMSTwhzm7gvhxN/3mYhs9qbQr0Kn +KZH4a5slvfUIhZVRM1dyiD+b7d5ue5zCNh/Hnzzij/ddR+1OUFgnOPHiHnGP +hneqUySFks6ButXEb7OOG7nHULhJIlK1jrhjcVSPVxyFMdsq8l4Qv4k6F3n4 +AoUbq5rLXhI3j1xWOnaJwuYb3lb/P9+4P6c25AqFEzX6QbXELzsKvSKzKbzu +3aFVRVxvfkc09jqFHgHTx8uJn1U8Lj6XT+FqY+ttXOInmi9skngUfi4Kv5tN +/Pjqm78ppcQ6eiUJxA/FP6RllpP3q1MwDiW+H/2dzXlI4bNv/faexHf/jrzP +q6aQTtmw0Jr4tiffSV4thQynbtv/iEu6hFRuv6TQfqubliwxb8vS+ntNFLb+ +O5UzRb5PYaXCoUdtFL4OHs17S5yntWJRzVsKh3xcTf//PXOv6dx6/oHCvrHQ +0CTia0thx+s+Csfv/7PwIs6OMRt/853Cog+xpUic5uUAH0fI/U7esOol/XX5 +ncfHL/9IvXoyY0uIk7ceiR6cIf2zM2BPKPH51bHPx+azMLU/pU2U+Oz1RO9p +URa+GbCMbCb9HCuZsXjOEhbu7Lz3/CJx5ETxzoXyLFR5Gs8WJw479ODfEhYL +1W7s399A5ktIT02GzHIWSrCbtWOIA6q7Pilps9D9vmnxLzK/vM7O9TXayELp +L9NO+WQ+ekwtFF9nzkK79qoCa2J3H5myTdtY6Hp5MGOshAan7ZqT1nYsFFpz +IJhNbLNsd6ynNwvjPlRoFpA8sDrnquZzhIVQ4lePxJYzhxr8j7MwTSFcrIVH +g+mnyCXhkSz0v5lbNEzyxaigMPvSJRae3WmmJEnyp4tRkLXhCguTH1IVOSSf +gi7lZf7JYiGzcJatOvGdiNx06zwWPttmEWNQQPJpV3aK6AMW+tmdEzDKo0F1 +bnLCqQ8sLJXN4v/IoaE2KDFet4+FJxvEvmwhdh9KON/bT+4/ea3lDslbTte5 +uHV/WNjrTDdGk3xmlMTETs9TRN+QUAehbJI/jsHhAeqKeL1tn0tZGumnlsAw +JS1FlEs/oMtPbLP5eGiLriJaaI7JWqbSkKh7NEQbFLH09Hb17ss0iAj7HP9h +pYgL0zgOX5JpmFPu4ut+jFyfHXgj8zyZ32KbnXZUKaKSd2HMdbL+tR+kGg88 +U0TPL1Kfr4aRfKn5B2EvFFHt5VyZ9FAaEoIKFG6+UcSoniGRMyE0rPoo3DPe +r4gafYv0Lch66l38am+GuBJaLXm98wBZn/u32u7pdVPC5sn8VUvsaWjK03g+ +5qmEWepc45d2NNzjn2co4qOE28od1p7cTcPpO2UyeoFKuIf/5PKBHTQsV5Dq +jDmnhGF5S1OuWdGw/0fnLrUyJXw9KvSqeCPJ4zinHX4Cyvhl8bm11prk+f3q +1CphZXwRq9vwWYOGv5vGBwcXKWPFgoNFx8j/ixB/YrSnjDI2JeW7XyL/O6sC +q0udNJTxs2FcZyWLhhP7lMW3blfGA93HAqslSf2NB16pZSnjgPNVG+UpHpj9 +PGb2WU8FG71OavPH80BWS/6UoJEK/ifct1HsLA9++D2pUlurgpme13rlYniQ +PLrIyM9cBW0WZz1ZEcaD7qm8lTOOKpinV2i1zIcHfsJvxaVPq6D9zduBuy15 +kKaK3RZdKnioNvrdLiEeDLgKHikNW45ZHo7Xuo5zyX5EcnZMlSqWi1XOm7Wm +CMReKp+nf67AQ7sq7L7/KADZWN42PT11nHy69oyMVz6kqBksEt+vgUZPNkV8 +G7gJ9TJrdYcvrMRqOc7sDM8bsEa2KkHzjSYaS9efbam4DqL8Of7OkatQ73qf +uagGB+QjFIx2K2tho36HfGZoDsxXsi+zfqaF8aZ3I6bfZ8NKtjTv2F5tTL4g +u326NRP8usWqN/OtxhUYxzzw/Ar8HI6zNUtZjb389V/WS6XCJs2aNDMNHTzl +GGfz8PIleDhsOPG3QQcPNxlVzhVJBm917c7X+3RxxAijlDsuAPuHW8vu+Xoo +HWGh32weDxsUpbaI5OjhhQSNMYkzZ2F5+JnjVfr6eO7SogVWK2NhxT6DSqVO +fby1pzB0+NNJ2PfQ42Tp4f9wlreFwSAVCZXZLW6/lhrg/EqLY6ojofDn5sxf +zTsGaOJbwynaEwSuSgXz07aswYFkYQH75AD4tSJJr2RoDaaIZY2VT/vBXc7E +h5FYQyy1hSh7CV+wM2GhobwRet5XDyzT94Jlh2LKVz4yQv9+ap3dJXdYKnSw +eMtONqrbLAzz7XUBzvoTQUO72ehsUyGs0+oC2ifOr0+yZ+OkyguD2TUuYDlE +t7Y7szFU8rrdwxsucOrNyLjrQTbqpbeL3/ZygbGcsHVBEWws6R6zvDziDJ2G +Sc25BWSnqeuXNW+xM3gc5aSbcdl4MMKkT4zfGUa5t/cN0Gx8q1y/RHXECcSo +9r9aZWws1DsudqTDCcwF5WQrHrHxcXrMcEiOEzxoyXVrbmWjxeCsg656TrBZ +9K5GQDsb+bUEExaoOkH7prpRqS42zjtTva5imRP8ufc91uE9eV7UXmP2LCfQ +uLqq6Fs/GyWNt37bm+oIDzrXBsQNstFDhPNtQ5gjbF6yHTSH2Ni+tZ2H+xzB +Peboa/8RNvp/d3Xx1nKEP49OpUmOsfHoAQGDq5KOEPnvsuu9f2z8kkfl9005 +wCKdPPW9U2wMifmcb9zrAJmH7o3MzLDx94uoVXn1DvA/Pl9xGQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2153,307 +6851,114 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwV13k8Fd8bB3ClIqGibFnunWtJSGT5iut5KhWRIlokeyKFJGXJmqgUoUK2 +dFO2e4ekVFKUUEmWbEWLVKKUiGy/8/trXu/XzGvmzDPP+Zw5TBcf632z+fj4 +Zs3i4/v/cbS77oniWY5xU9/8OrkoY+OWTKnAte2RcCPpKkd7ahng0lcuUu2J +sLMxpP/3pBoEbMtv42/PgXrflst1k4aw+Idk4nhbCaRI+UvFT5pDzwNLnz9t +VbBSxzmqc2IPbFTsf/errQkycs2FWeNeMN6mf3Go7SOst9umbPsjGKrX3+C8 +zhkG9Yy8z9Lf4kC2p7zPRX0KZIe/n2PjRVhy0DFfYD0/htTUvz+fdwUStTbe +t7QVxMaSrqb1jKvQkbLq0a9FIphcEe/iMX0NznLCXs2WXoxxgVIPJNpyQTL5 +0+mkDHGsWqyaN2dnHsTYmBk3jS5F8ff57vyuBSBT2iAze5YELlR9Wb7OqwC4 +4jZ/tRZIYL0R52LIkQJ40+RAX1CQwOanSZ96ogpA0cqfsjKVQDevpgo3TgFU +bcma15gqgf6mZ9LdewtgauNIw0sjSTyUeuGLiVMhHDG46lgXKYV5Hb41uKkI +NmeL/jGPk8ITm2L23thSBJRASGzDRSkcDo4TmG9TBI0tO4qbb0phfuLtxAqn +IljpK8zf3SCFtzYsDPoeWARfc4/l/paRxmPOlbp2BUVgv8RycNktaYz/s+9n +uBAXVgffj8h8II2nugY0zBZxQejjcglmjTS6l8f5C0twoZzHD8od0rjcTlL6 +JJMLEublCatmpLGdc+2u/n9caIxQ1NlgLoORix0YtBsXTH7+C/L+JIPdqT8t +e8u5EGiavOLxgAwu5uoaDz/kAveqRqf4qAy61PQ5T1VzQcrGyaBccBle/Wiw +kb+BCwN3n/7lX7kM7+66E976gQtJkQn+qceXIZ9LYXGSIA8+LlX2fiIiixUV +Gl8DrHkg6VMpJykpi9LBs20HdvDAonbXS0+GLAoLio3a7+FBWdBZ9YWrZfHe +FvVWTTcenOkZ6t+9SxbjLlyZn36UB9p59/f/zJHF79kVzucv8yDCyMpZ5j85 +vF8z51FXGw9MHTJ/66+Tw1eNJWUL3vJANPx7lK2FHCr4eIvovedBenV0boKT +HH7x13wb+JUHdzff+z7vtBwO/pYWeDjGg6FdrIDhDjlc3jt4UFaYBoejI2de +BMsjzvYOP6FKg9LldbL90fKo5sh7bahGk/ePLxJIkMeGizO7/qrTEDSp2riO +I486ilVC7qtouBjlsLT8hTwGLymZRenT8OLCs6zrcgro8aE1YIkJDWu4qaWh +lQr4dXTC7/MeGkzaGqZ+1CpgsuLz1av30mDJN2eTY5MC4qmh86EONLhae3fA +ZwXMa9i+VNSZho3BzLDwuQzczdI9sMidBl+F0Wtr1RjY2zhxJMeHhpFbCbXj +mgxMaOubqPMl4zNVGyzWYWCbziPq52Eaog876VHGDNQxO2ap7U9DWnV97Wwr +BjKqcpXTj9PwZH/WYHUAA7NNrJnT4TSYTRqIhQQz8ETPv4qZCBoaElr0dMIZ +uEusbHo6koaO8vnhnNMMvMl8dGj0JA0/FviLRacz0OJN9YK6WBqkaFP9jVUM +1FDZcmkqnoYMk097pmsYuBQnMzoSaKA6ToSXPWegYvmBrbcu0KAx+1adcisD +/bbwFzsm0bDORs5e4CsZfzA3MP0SDQfHfoXXijBx09GxgNx0Us/D7hJ9YkwM +E5OIOZhBg2B/ZwG/FBMnWi72aGbScL2r+o0xxcSGgude3Cwauh9eVL+tx8T2 +hNyZMzk0FOoLVTUZMlHTw93Z8BqpFx26cwiZuFr23sJvxBI5+yPVzJnYx7fe +xug6DVujDdqvOjJRVEkoruoGDfLTRYcq3ZiYHZrkvPcm6Y8Aiv+dJxPlVURj +R4hjPRaslPJnoulPsXq5fBoemb+LOh9Lxp/E0LYspOH8EyvpwnNMhM8jmc3E +9uwabl0iE2WGTJx3FNEwvpLXMSeDicsms79u59KgLRahGVzMRG/jAjFNmga+ +syNPUsqYuEOQY5hF3MB/wK7sPhP3K9c9FC6mwWvEOvrXUyZyBKZbe4g57Ypd ++zuZ+GX+9C73WzT4WaX6RvcwccEldHtMjPUi8671MtEk8GyDdCkN7+6Prur+ +wcQpt9KqKmKJrNpTNvwUmgq/XDNym4ZeSbasnyCFglK1Ww3LaChJKC6OF6Gw +XaqxNpR4a2Ta23pJCh+pXvw2RSw/Ier3VZZCn+60RIM7pF5HogTmURSeaTTO +8SOO3XdQe606hfNDx/++Jd7R/f6ZgxaFTvV7QfQuDYo7bfeG6FGoeXTipxHx +71d1v1MNKYx4GSTkSfzI1Dj2DlL4tuJkfCLx+cclcq0bKGx5XhVWTmy/RuXW +780UciR7ut4Rj6st6tawpfDcwN5O+XIaRjNkIlbbUZhxe3BqDfGfhUqKBo4U +PjXovGFD/CtC85mxG4Vr1z5r9yL+MWxwwMSTwhzm7gvhxN/3mYhs9qbQr0Kn +KZH4a5slvfUIhZVRM1dyiD+b7d5ue5zCNh/Hnzzij/ddR+1OUFgnOPHiHnGP +hneqUySFks6ButXEb7OOG7nHULhJIlK1jrhjcVSPVxyFMdsq8l4Qv4k6F3n4 +AoUbq5rLXhI3j1xWOnaJwuYb3lb/P9+4P6c25AqFEzX6QbXELzsKvSKzKbzu +3aFVRVxvfkc09jqFHgHTx8uJn1U8Lj6XT+FqY+ttXOInmi9skngUfi4Kv5tN +/Pjqm78ppcQ6eiUJxA/FP6RllpP3q1MwDiW+H/2dzXlI4bNv/faexHf/jrzP +q6aQTtmw0Jr4tiffSV4thQynbtv/iEu6hFRuv6TQfqubliwxb8vS+ntNFLb+ +O5UzRb5PYaXCoUdtFL4OHs17S5yntWJRzVsKh3xcTf//PXOv6dx6/oHCvrHQ +0CTia0thx+s+Csfv/7PwIs6OMRt/853Cog+xpUic5uUAH0fI/U7esOol/XX5 +ncfHL/9IvXoyY0uIk7ceiR6cIf2zM2BPKPH51bHPx+azMLU/pU2U+Oz1RO9p +URa+GbCMbCb9HCuZsXjOEhbu7Lz3/CJx5ETxzoXyLFR5Gs8WJw479ODfEhYL +1W7s399A5ktIT02GzHIWSrCbtWOIA6q7Pilps9D9vmnxLzK/vM7O9TXayELp +L9NO+WQ+ekwtFF9nzkK79qoCa2J3H5myTdtY6Hp5MGOshAan7ZqT1nYsFFpz +IJhNbLNsd6ynNwvjPlRoFpA8sDrnquZzhIVQ4lePxJYzhxr8j7MwTSFcrIVH +g+mnyCXhkSz0v5lbNEzyxaigMPvSJRae3WmmJEnyp4tRkLXhCguTH1IVOSSf +gi7lZf7JYiGzcJatOvGdiNx06zwWPttmEWNQQPJpV3aK6AMW+tmdEzDKo0F1 +bnLCqQ8sLJXN4v/IoaE2KDFet4+FJxvEvmwhdh9KON/bT+4/ea3lDslbTte5 +uHV/WNjrTDdGk3xmlMTETs9TRN+QUAehbJI/jsHhAeqKeL1tn0tZGumnlsAw +JS1FlEs/oMtPbLP5eGiLriJaaI7JWqbSkKh7NEQbFLH09Hb17ss0iAj7HP9h +pYgL0zgOX5JpmFPu4ut+jFyfHXgj8zyZ32KbnXZUKaKSd2HMdbL+tR+kGg88 +U0TPL1Kfr4aRfKn5B2EvFFHt5VyZ9FAaEoIKFG6+UcSoniGRMyE0rPoo3DPe +r4gafYv0Lch66l38am+GuBJaLXm98wBZn/u32u7pdVPC5sn8VUvsaWjK03g+ +5qmEWepc45d2NNzjn2co4qOE28od1p7cTcPpO2UyeoFKuIf/5PKBHTQsV5Dq +jDmnhGF5S1OuWdGw/0fnLrUyJXw9KvSqeCPJ4zinHX4Cyvhl8bm11prk+f3q +1CphZXwRq9vwWYOGv5vGBwcXKWPFgoNFx8j/ixB/YrSnjDI2JeW7XyL/O6sC +q0udNJTxs2FcZyWLhhP7lMW3blfGA93HAqslSf2NB16pZSnjgPNVG+UpHpj9 +PGb2WU8FG71OavPH80BWS/6UoJEK/ifct1HsLA9++D2pUlurgpme13rlYniQ +PLrIyM9cBW0WZz1ZEcaD7qm8lTOOKpinV2i1zIcHfsJvxaVPq6D9zduBuy15 +kKaK3RZdKnioNvrdLiEeDLgKHikNW45ZHo7Xuo5zyX5EcnZMlSqWi1XOm7Wm +CMReKp+nf67AQ7sq7L7/KADZWN42PT11nHy69oyMVz6kqBksEt+vgUZPNkV8 +G7gJ9TJrdYcvrMRqOc7sDM8bsEa2KkHzjSYaS9efbam4DqL8Of7OkatQ73qf +uagGB+QjFIx2K2tho36HfGZoDsxXsi+zfqaF8aZ3I6bfZ8NKtjTv2F5tTL4g +u326NRP8usWqN/OtxhUYxzzw/Ar8HI6zNUtZjb389V/WS6XCJs2aNDMNHTzl +GGfz8PIleDhsOPG3QQcPNxlVzhVJBm917c7X+3RxxAijlDsuAPuHW8vu+Xoo +HWGh32weDxsUpbaI5OjhhQSNMYkzZ2F5+JnjVfr6eO7SogVWK2NhxT6DSqVO +fby1pzB0+NNJ2PfQ42Tp4f9wlreFwSAVCZXZLW6/lhrg/EqLY6ojofDn5sxf +zTsGaOJbwynaEwSuSgXz07aswYFkYQH75AD4tSJJr2RoDaaIZY2VT/vBXc7E +h5FYQyy1hSh7CV+wM2GhobwRet5XDyzT94Jlh2LKVz4yQv9+ap3dJXdYKnSw +eMtONqrbLAzz7XUBzvoTQUO72ehsUyGs0+oC2ifOr0+yZ+OkyguD2TUuYDlE +t7Y7szFU8rrdwxsucOrNyLjrQTbqpbeL3/ZygbGcsHVBEWws6R6zvDziDJ2G +Sc25BWSnqeuXNW+xM3gc5aSbcdl4MMKkT4zfGUa5t/cN0Gx8q1y/RHXECcSo +9r9aZWws1DsudqTDCcwF5WQrHrHxcXrMcEiOEzxoyXVrbmWjxeCsg656TrBZ +9K5GQDsb+bUEExaoOkH7prpRqS42zjtTva5imRP8ufc91uE9eV7UXmP2LCfQ +uLqq6Fs/GyWNt37bm+oIDzrXBsQNstFDhPNtQ5gjbF6yHTSH2Ni+tZ2H+xzB +Peboa/8RNvp/d3Xx1nKEP49OpUmOsfHoAQGDq5KOEPnvsuu9f2z8kkfl9005 +wCKdPPW9U2wMifmcb9zrAJmH7o3MzLDx94uoVXn1DvA/Pl9xGQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.06533513749651218}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2465,19 +6970,19 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.06533513749651218}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2491,306 +6996,113 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwV13k8Fd8bB3ClIqGibFnunWtJSGT5iut5KhWRIlokeyKFJGXJmqgUoUK2 +dFO2e4ekVFKUUEmWbEWLVKKUiGy/8/trXu/XzGvmzDPP+Zw5TBcf632z+fj4 +Zs3i4/v/cbS77oniWY5xU9/8OrkoY+OWTKnAte2RcCPpKkd7ahng0lcuUu2J +sLMxpP/3pBoEbMtv42/PgXrflst1k4aw+Idk4nhbCaRI+UvFT5pDzwNLnz9t +VbBSxzmqc2IPbFTsf/errQkycs2FWeNeMN6mf3Go7SOst9umbPsjGKrX3+C8 +zhkG9Yy8z9Lf4kC2p7zPRX0KZIe/n2PjRVhy0DFfYD0/htTUvz+fdwUStTbe +t7QVxMaSrqb1jKvQkbLq0a9FIphcEe/iMX0NznLCXs2WXoxxgVIPJNpyQTL5 +0+mkDHGsWqyaN2dnHsTYmBk3jS5F8ff57vyuBSBT2iAze5YELlR9Wb7OqwC4 +4jZ/tRZIYL0R52LIkQJ40+RAX1CQwOanSZ96ogpA0cqfsjKVQDevpgo3TgFU +bcma15gqgf6mZ9LdewtgauNIw0sjSTyUeuGLiVMhHDG46lgXKYV5Hb41uKkI +NmeL/jGPk8ITm2L23thSBJRASGzDRSkcDo4TmG9TBI0tO4qbb0phfuLtxAqn +IljpK8zf3SCFtzYsDPoeWARfc4/l/paRxmPOlbp2BUVgv8RycNktaYz/s+9n +uBAXVgffj8h8II2nugY0zBZxQejjcglmjTS6l8f5C0twoZzHD8od0rjcTlL6 +JJMLEublCatmpLGdc+2u/n9caIxQ1NlgLoORix0YtBsXTH7+C/L+JIPdqT8t +e8u5EGiavOLxgAwu5uoaDz/kAveqRqf4qAy61PQ5T1VzQcrGyaBccBle/Wiw +kb+BCwN3n/7lX7kM7+66E976gQtJkQn+qceXIZ9LYXGSIA8+LlX2fiIiixUV +Gl8DrHkg6VMpJykpi9LBs20HdvDAonbXS0+GLAoLio3a7+FBWdBZ9YWrZfHe +FvVWTTcenOkZ6t+9SxbjLlyZn36UB9p59/f/zJHF79kVzucv8yDCyMpZ5j85 +vF8z51FXGw9MHTJ/66+Tw1eNJWUL3vJANPx7lK2FHCr4eIvovedBenV0boKT +HH7x13wb+JUHdzff+z7vtBwO/pYWeDjGg6FdrIDhDjlc3jt4UFaYBoejI2de +BMsjzvYOP6FKg9LldbL90fKo5sh7bahGk/ePLxJIkMeGizO7/qrTEDSp2riO +I486ilVC7qtouBjlsLT8hTwGLymZRenT8OLCs6zrcgro8aE1YIkJDWu4qaWh +lQr4dXTC7/MeGkzaGqZ+1CpgsuLz1av30mDJN2eTY5MC4qmh86EONLhae3fA +ZwXMa9i+VNSZho3BzLDwuQzczdI9sMidBl+F0Wtr1RjY2zhxJMeHhpFbCbXj +mgxMaOubqPMl4zNVGyzWYWCbziPq52Eaog876VHGDNQxO2ap7U9DWnV97Wwr +BjKqcpXTj9PwZH/WYHUAA7NNrJnT4TSYTRqIhQQz8ETPv4qZCBoaElr0dMIZ +uEusbHo6koaO8vnhnNMMvMl8dGj0JA0/FviLRacz0OJN9YK6WBqkaFP9jVUM +1FDZcmkqnoYMk097pmsYuBQnMzoSaKA6ToSXPWegYvmBrbcu0KAx+1adcisD +/bbwFzsm0bDORs5e4CsZfzA3MP0SDQfHfoXXijBx09GxgNx0Us/D7hJ9YkwM +E5OIOZhBg2B/ZwG/FBMnWi72aGbScL2r+o0xxcSGgude3Cwauh9eVL+tx8T2 +hNyZMzk0FOoLVTUZMlHTw93Z8BqpFx26cwiZuFr23sJvxBI5+yPVzJnYx7fe +xug6DVujDdqvOjJRVEkoruoGDfLTRYcq3ZiYHZrkvPcm6Y8Aiv+dJxPlVURj +R4hjPRaslPJnoulPsXq5fBoemb+LOh9Lxp/E0LYspOH8EyvpwnNMhM8jmc3E +9uwabl0iE2WGTJx3FNEwvpLXMSeDicsms79u59KgLRahGVzMRG/jAjFNmga+ +syNPUsqYuEOQY5hF3MB/wK7sPhP3K9c9FC6mwWvEOvrXUyZyBKZbe4g57Ypd ++zuZ+GX+9C73WzT4WaX6RvcwccEldHtMjPUi8671MtEk8GyDdCkN7+6Prur+ +wcQpt9KqKmKJrNpTNvwUmgq/XDNym4ZeSbasnyCFglK1Ww3LaChJKC6OF6Gw +XaqxNpR4a2Ta23pJCh+pXvw2RSw/Ier3VZZCn+60RIM7pF5HogTmURSeaTTO +8SOO3XdQe606hfNDx/++Jd7R/f6ZgxaFTvV7QfQuDYo7bfeG6FGoeXTipxHx +71d1v1MNKYx4GSTkSfzI1Dj2DlL4tuJkfCLx+cclcq0bKGx5XhVWTmy/RuXW +780UciR7ut4Rj6st6tawpfDcwN5O+XIaRjNkIlbbUZhxe3BqDfGfhUqKBo4U +PjXovGFD/CtC85mxG4Vr1z5r9yL+MWxwwMSTwhzm7gvhxN/3mYhs9qbQr0Kn +KZH4a5slvfUIhZVRM1dyiD+b7d5ue5zCNh/Hnzzij/ddR+1OUFgnOPHiHnGP +hneqUySFks6ButXEb7OOG7nHULhJIlK1jrhjcVSPVxyFMdsq8l4Qv4k6F3n4 +AoUbq5rLXhI3j1xWOnaJwuYb3lb/P9+4P6c25AqFEzX6QbXELzsKvSKzKbzu +3aFVRVxvfkc09jqFHgHTx8uJn1U8Lj6XT+FqY+ttXOInmi9skngUfi4Kv5tN +/Pjqm78ppcQ6eiUJxA/FP6RllpP3q1MwDiW+H/2dzXlI4bNv/faexHf/jrzP +q6aQTtmw0Jr4tiffSV4thQynbtv/iEu6hFRuv6TQfqubliwxb8vS+ntNFLb+ +O5UzRb5PYaXCoUdtFL4OHs17S5yntWJRzVsKh3xcTf//PXOv6dx6/oHCvrHQ +0CTia0thx+s+Csfv/7PwIs6OMRt/853Cog+xpUic5uUAH0fI/U7esOol/XX5 +ncfHL/9IvXoyY0uIk7ceiR6cIf2zM2BPKPH51bHPx+azMLU/pU2U+Oz1RO9p +URa+GbCMbCb9HCuZsXjOEhbu7Lz3/CJx5ETxzoXyLFR5Gs8WJw479ODfEhYL +1W7s399A5ktIT02GzHIWSrCbtWOIA6q7Pilps9D9vmnxLzK/vM7O9TXayELp +L9NO+WQ+ekwtFF9nzkK79qoCa2J3H5myTdtY6Hp5MGOshAan7ZqT1nYsFFpz +IJhNbLNsd6ynNwvjPlRoFpA8sDrnquZzhIVQ4lePxJYzhxr8j7MwTSFcrIVH +g+mnyCXhkSz0v5lbNEzyxaigMPvSJRae3WmmJEnyp4tRkLXhCguTH1IVOSSf +gi7lZf7JYiGzcJatOvGdiNx06zwWPttmEWNQQPJpV3aK6AMW+tmdEzDKo0F1 +bnLCqQ8sLJXN4v/IoaE2KDFet4+FJxvEvmwhdh9KON/bT+4/ea3lDslbTte5 +uHV/WNjrTDdGk3xmlMTETs9TRN+QUAehbJI/jsHhAeqKeL1tn0tZGumnlsAw +JS1FlEs/oMtPbLP5eGiLriJaaI7JWqbSkKh7NEQbFLH09Hb17ss0iAj7HP9h +pYgL0zgOX5JpmFPu4ut+jFyfHXgj8zyZ32KbnXZUKaKSd2HMdbL+tR+kGg88 +U0TPL1Kfr4aRfKn5B2EvFFHt5VyZ9FAaEoIKFG6+UcSoniGRMyE0rPoo3DPe +r4gafYv0Lch66l38am+GuBJaLXm98wBZn/u32u7pdVPC5sn8VUvsaWjK03g+ +5qmEWepc45d2NNzjn2co4qOE28od1p7cTcPpO2UyeoFKuIf/5PKBHTQsV5Dq +jDmnhGF5S1OuWdGw/0fnLrUyJXw9KvSqeCPJ4zinHX4Cyvhl8bm11prk+f3q +1CphZXwRq9vwWYOGv5vGBwcXKWPFgoNFx8j/ixB/YrSnjDI2JeW7XyL/O6sC +q0udNJTxs2FcZyWLhhP7lMW3blfGA93HAqslSf2NB16pZSnjgPNVG+UpHpj9 +PGb2WU8FG71OavPH80BWS/6UoJEK/ifct1HsLA9++D2pUlurgpme13rlYniQ +PLrIyM9cBW0WZz1ZEcaD7qm8lTOOKpinV2i1zIcHfsJvxaVPq6D9zduBuy15 +kKaK3RZdKnioNvrdLiEeDLgKHikNW45ZHo7Xuo5zyX5EcnZMlSqWi1XOm7Wm +CMReKp+nf67AQ7sq7L7/KADZWN42PT11nHy69oyMVz6kqBksEt+vgUZPNkV8 +G7gJ9TJrdYcvrMRqOc7sDM8bsEa2KkHzjSYaS9efbam4DqL8Of7OkatQ73qf +uagGB+QjFIx2K2tho36HfGZoDsxXsi+zfqaF8aZ3I6bfZ8NKtjTv2F5tTL4g +u326NRP8usWqN/OtxhUYxzzw/Ar8HI6zNUtZjb389V/WS6XCJs2aNDMNHTzl +GGfz8PIleDhsOPG3QQcPNxlVzhVJBm917c7X+3RxxAijlDsuAPuHW8vu+Xoo +HWGh32weDxsUpbaI5OjhhQSNMYkzZ2F5+JnjVfr6eO7SogVWK2NhxT6DSqVO +fby1pzB0+NNJ2PfQ42Tp4f9wlreFwSAVCZXZLW6/lhrg/EqLY6ojofDn5sxf +zTsGaOJbwynaEwSuSgXz07aswYFkYQH75AD4tSJJr2RoDaaIZY2VT/vBXc7E +h5FYQyy1hSh7CV+wM2GhobwRet5XDyzT94Jlh2LKVz4yQv9+ap3dJXdYKnSw +eMtONqrbLAzz7XUBzvoTQUO72ehsUyGs0+oC2ifOr0+yZ+OkyguD2TUuYDlE +t7Y7szFU8rrdwxsucOrNyLjrQTbqpbeL3/ZygbGcsHVBEWws6R6zvDziDJ2G +Sc25BWSnqeuXNW+xM3gc5aSbcdl4MMKkT4zfGUa5t/cN0Gx8q1y/RHXECcSo +9r9aZWws1DsudqTDCcwF5WQrHrHxcXrMcEiOEzxoyXVrbmWjxeCsg656TrBZ +9K5GQDsb+bUEExaoOkH7prpRqS42zjtTva5imRP8ufc91uE9eV7UXmP2LCfQ +uLqq6Fs/GyWNt37bm+oIDzrXBsQNstFDhPNtQ5gjbF6yHTSH2Ni+tZ2H+xzB +Peboa/8RNvp/d3Xx1nKEP49OpUmOsfHoAQGDq5KOEPnvsuu9f2z8kkfl9005 +wCKdPPW9U2wMifmcb9zrAJmH7o3MzLDx94uoVXn1DvA/Pl9xGQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.06533513749651218}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2801,6 +7113,7 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2828,7 +7141,8 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06533513749651218}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2836,25 +7150,862 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913290128289948`*^9}, + CellChangeTimes->{3.9913290128289948`*^9, 3.993916418657477*^9}, CellLabel-> - "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] + "Out[118]=",ExpressionUUID->"a522b8bb-8c1e-4a6c-bf1b-492d7ec21c52"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ -511095eaf120"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.007417"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.021549"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.034628"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.045917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.054602"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.061093"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.06517"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.066873"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.066776"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.065063"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.062072"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058207"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.053722"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.048873"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.043893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.038938"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.034149"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.029622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.025427"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021604"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018178"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.015148"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.012507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.010233"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.008299"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.006672"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.00532"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.004206"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.003299"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.002567"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.001983"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9939103194128428`*^9}, + CellLabel-> + "In[119]:=",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.066873}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993916418763949*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"338ddb88-2617-42a9-a2f8-09bb9cccedfd"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ -89d3982ba28f"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8Fd8bB3ClIqGibFnunWtJSGT5iut5KhWRIlokeyKFJGXJmqgUoUK2 +dFO2e4ekVFKUUEmWbEWLVKKUiGy/8/trXu/XzGvmzDPP+Zw5TBcf632z+fj4 +Zs3i4/v/cbS77oniWY5xU9/8OrkoY+OWTKnAte2RcCPpKkd7ahng0lcuUu2J +sLMxpP/3pBoEbMtv42/PgXrflst1k4aw+Idk4nhbCaRI+UvFT5pDzwNLnz9t +VbBSxzmqc2IPbFTsf/errQkycs2FWeNeMN6mf3Go7SOst9umbPsjGKrX3+C8 +zhkG9Yy8z9Lf4kC2p7zPRX0KZIe/n2PjRVhy0DFfYD0/htTUvz+fdwUStTbe +t7QVxMaSrqb1jKvQkbLq0a9FIphcEe/iMX0NznLCXs2WXoxxgVIPJNpyQTL5 +0+mkDHGsWqyaN2dnHsTYmBk3jS5F8ff57vyuBSBT2iAze5YELlR9Wb7OqwC4 +4jZ/tRZIYL0R52LIkQJ40+RAX1CQwOanSZ96ogpA0cqfsjKVQDevpgo3TgFU +bcma15gqgf6mZ9LdewtgauNIw0sjSTyUeuGLiVMhHDG46lgXKYV5Hb41uKkI +NmeL/jGPk8ITm2L23thSBJRASGzDRSkcDo4TmG9TBI0tO4qbb0phfuLtxAqn +IljpK8zf3SCFtzYsDPoeWARfc4/l/paRxmPOlbp2BUVgv8RycNktaYz/s+9n +uBAXVgffj8h8II2nugY0zBZxQejjcglmjTS6l8f5C0twoZzHD8od0rjcTlL6 +JJMLEublCatmpLGdc+2u/n9caIxQ1NlgLoORix0YtBsXTH7+C/L+JIPdqT8t +e8u5EGiavOLxgAwu5uoaDz/kAveqRqf4qAy61PQ5T1VzQcrGyaBccBle/Wiw +kb+BCwN3n/7lX7kM7+66E976gQtJkQn+qceXIZ9LYXGSIA8+LlX2fiIiixUV +Gl8DrHkg6VMpJykpi9LBs20HdvDAonbXS0+GLAoLio3a7+FBWdBZ9YWrZfHe +FvVWTTcenOkZ6t+9SxbjLlyZn36UB9p59/f/zJHF79kVzucv8yDCyMpZ5j85 +vF8z51FXGw9MHTJ/66+Tw1eNJWUL3vJANPx7lK2FHCr4eIvovedBenV0boKT +HH7x13wb+JUHdzff+z7vtBwO/pYWeDjGg6FdrIDhDjlc3jt4UFaYBoejI2de +BMsjzvYOP6FKg9LldbL90fKo5sh7bahGk/ePLxJIkMeGizO7/qrTEDSp2riO +I486ilVC7qtouBjlsLT8hTwGLymZRenT8OLCs6zrcgro8aE1YIkJDWu4qaWh +lQr4dXTC7/MeGkzaGqZ+1CpgsuLz1av30mDJN2eTY5MC4qmh86EONLhae3fA +ZwXMa9i+VNSZho3BzLDwuQzczdI9sMidBl+F0Wtr1RjY2zhxJMeHhpFbCbXj +mgxMaOubqPMl4zNVGyzWYWCbziPq52Eaog876VHGDNQxO2ap7U9DWnV97Wwr +BjKqcpXTj9PwZH/WYHUAA7NNrJnT4TSYTRqIhQQz8ETPv4qZCBoaElr0dMIZ +uEusbHo6koaO8vnhnNMMvMl8dGj0JA0/FviLRacz0OJN9YK6WBqkaFP9jVUM +1FDZcmkqnoYMk097pmsYuBQnMzoSaKA6ToSXPWegYvmBrbcu0KAx+1adcisD +/bbwFzsm0bDORs5e4CsZfzA3MP0SDQfHfoXXijBx09GxgNx0Us/D7hJ9YkwM +E5OIOZhBg2B/ZwG/FBMnWi72aGbScL2r+o0xxcSGgude3Cwauh9eVL+tx8T2 +hNyZMzk0FOoLVTUZMlHTw93Z8BqpFx26cwiZuFr23sJvxBI5+yPVzJnYx7fe +xug6DVujDdqvOjJRVEkoruoGDfLTRYcq3ZiYHZrkvPcm6Y8Aiv+dJxPlVURj +R4hjPRaslPJnoulPsXq5fBoemb+LOh9Lxp/E0LYspOH8EyvpwnNMhM8jmc3E +9uwabl0iE2WGTJx3FNEwvpLXMSeDicsms79u59KgLRahGVzMRG/jAjFNmga+ +syNPUsqYuEOQY5hF3MB/wK7sPhP3K9c9FC6mwWvEOvrXUyZyBKZbe4g57Ypd ++zuZ+GX+9C73WzT4WaX6RvcwccEldHtMjPUi8671MtEk8GyDdCkN7+6Prur+ +wcQpt9KqKmKJrNpTNvwUmgq/XDNym4ZeSbasnyCFglK1Ww3LaChJKC6OF6Gw +XaqxNpR4a2Ta23pJCh+pXvw2RSw/Ier3VZZCn+60RIM7pF5HogTmURSeaTTO +8SOO3XdQe606hfNDx/++Jd7R/f6ZgxaFTvV7QfQuDYo7bfeG6FGoeXTipxHx +71d1v1MNKYx4GSTkSfzI1Dj2DlL4tuJkfCLx+cclcq0bKGx5XhVWTmy/RuXW +780UciR7ut4Rj6st6tawpfDcwN5O+XIaRjNkIlbbUZhxe3BqDfGfhUqKBo4U +PjXovGFD/CtC85mxG4Vr1z5r9yL+MWxwwMSTwhzm7gvhxN/3mYhs9qbQr0Kn +KZH4a5slvfUIhZVRM1dyiD+b7d5ue5zCNh/Hnzzij/ddR+1OUFgnOPHiHnGP +hneqUySFks6ButXEb7OOG7nHULhJIlK1jrhjcVSPVxyFMdsq8l4Qv4k6F3n4 +AoUbq5rLXhI3j1xWOnaJwuYb3lb/P9+4P6c25AqFEzX6QbXELzsKvSKzKbzu +3aFVRVxvfkc09jqFHgHTx8uJn1U8Lj6XT+FqY+ttXOInmi9skngUfi4Kv5tN +/Pjqm78ppcQ6eiUJxA/FP6RllpP3q1MwDiW+H/2dzXlI4bNv/faexHf/jrzP +q6aQTtmw0Jr4tiffSV4thQynbtv/iEu6hFRuv6TQfqubliwxb8vS+ntNFLb+ +O5UzRb5PYaXCoUdtFL4OHs17S5yntWJRzVsKh3xcTf//PXOv6dx6/oHCvrHQ +0CTia0thx+s+Csfv/7PwIs6OMRt/853Cog+xpUic5uUAH0fI/U7esOol/XX5 +ncfHL/9IvXoyY0uIk7ceiR6cIf2zM2BPKPH51bHPx+azMLU/pU2U+Oz1RO9p +URa+GbCMbCb9HCuZsXjOEhbu7Lz3/CJx5ETxzoXyLFR5Gs8WJw479ODfEhYL +1W7s399A5ktIT02GzHIWSrCbtWOIA6q7Pilps9D9vmnxLzK/vM7O9TXayELp +L9NO+WQ+ekwtFF9nzkK79qoCa2J3H5myTdtY6Hp5MGOshAan7ZqT1nYsFFpz +IJhNbLNsd6ynNwvjPlRoFpA8sDrnquZzhIVQ4lePxJYzhxr8j7MwTSFcrIVH +g+mnyCXhkSz0v5lbNEzyxaigMPvSJRae3WmmJEnyp4tRkLXhCguTH1IVOSSf +gi7lZf7JYiGzcJatOvGdiNx06zwWPttmEWNQQPJpV3aK6AMW+tmdEzDKo0F1 +bnLCqQ8sLJXN4v/IoaE2KDFet4+FJxvEvmwhdh9KON/bT+4/ea3lDslbTte5 +uHV/WNjrTDdGk3xmlMTETs9TRN+QUAehbJI/jsHhAeqKeL1tn0tZGumnlsAw +JS1FlEs/oMtPbLP5eGiLriJaaI7JWqbSkKh7NEQbFLH09Hb17ss0iAj7HP9h +pYgL0zgOX5JpmFPu4ut+jFyfHXgj8zyZ32KbnXZUKaKSd2HMdbL+tR+kGg88 +U0TPL1Kfr4aRfKn5B2EvFFHt5VyZ9FAaEoIKFG6+UcSoniGRMyE0rPoo3DPe +r4gafYv0Lch66l38am+GuBJaLXm98wBZn/u32u7pdVPC5sn8VUvsaWjK03g+ +5qmEWepc45d2NNzjn2co4qOE28od1p7cTcPpO2UyeoFKuIf/5PKBHTQsV5Dq +jDmnhGF5S1OuWdGw/0fnLrUyJXw9KvSqeCPJ4zinHX4Cyvhl8bm11prk+f3q +1CphZXwRq9vwWYOGv5vGBwcXKWPFgoNFx8j/ixB/YrSnjDI2JeW7XyL/O6sC +q0udNJTxs2FcZyWLhhP7lMW3blfGA93HAqslSf2NB16pZSnjgPNVG+UpHpj9 +PGb2WU8FG71OavPH80BWS/6UoJEK/ifct1HsLA9++D2pUlurgpme13rlYniQ +PLrIyM9cBW0WZz1ZEcaD7qm8lTOOKpinV2i1zIcHfsJvxaVPq6D9zduBuy15 +kKaK3RZdKnioNvrdLiEeDLgKHikNW45ZHo7Xuo5zyX5EcnZMlSqWi1XOm7Wm +CMReKp+nf67AQ7sq7L7/KADZWN42PT11nHy69oyMVz6kqBksEt+vgUZPNkV8 +G7gJ9TJrdYcvrMRqOc7sDM8bsEa2KkHzjSYaS9efbam4DqL8Of7OkatQ73qf +uagGB+QjFIx2K2tho36HfGZoDsxXsi+zfqaF8aZ3I6bfZ8NKtjTv2F5tTL4g +u326NRP8usWqN/OtxhUYxzzw/Ar8HI6zNUtZjb389V/WS6XCJs2aNDMNHTzl +GGfz8PIleDhsOPG3QQcPNxlVzhVJBm917c7X+3RxxAijlDsuAPuHW8vu+Xoo +HWGh32weDxsUpbaI5OjhhQSNMYkzZ2F5+JnjVfr6eO7SogVWK2NhxT6DSqVO +fby1pzB0+NNJ2PfQ42Tp4f9wlreFwSAVCZXZLW6/lhrg/EqLY6ojofDn5sxf +zTsGaOJbwynaEwSuSgXz07aswYFkYQH75AD4tSJJr2RoDaaIZY2VT/vBXc7E +h5FYQyy1hSh7CV+wM2GhobwRet5XDyzT94Jlh2LKVz4yQv9+ap3dJXdYKnSw +eMtONqrbLAzz7XUBzvoTQUO72ehsUyGs0+oC2ifOr0+yZ+OkyguD2TUuYDlE +t7Y7szFU8rrdwxsucOrNyLjrQTbqpbeL3/ZygbGcsHVBEWws6R6zvDziDJ2G +Sc25BWSnqeuXNW+xM3gc5aSbcdl4MMKkT4zfGUa5t/cN0Gx8q1y/RHXECcSo +9r9aZWws1DsudqTDCcwF5WQrHrHxcXrMcEiOEzxoyXVrbmWjxeCsg656TrBZ +9K5GQDsb+bUEExaoOkH7prpRqS42zjtTva5imRP8ufc91uE9eV7UXmP2LCfQ +uLqq6Fs/GyWNt37bm+oIDzrXBsQNstFDhPNtQ5gjbF6yHTSH2Ni+tZ2H+xzB +Peboa/8RNvp/d3Xx1nKEP49OpUmOsfHoAQGDq5KOEPnvsuu9f2z8kkfl9005 +wCKdPPW9U2wMifmcb9zrAJmH7o3MzLDx94uoVXn1DvA/Pl9xGQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8Fd8bB3ClIqGibFnunWtJSGT5iut5KhWRIlokeyKFJGXJmqgUoUK2 +dFO2e4ekVFKUUEmWbEWLVKKUiGy/8/trXu/XzGvmzDPP+Zw5TBcf632z+fj4 +Zs3i4/v/cbS77oniWY5xU9/8OrkoY+OWTKnAte2RcCPpKkd7ahng0lcuUu2J +sLMxpP/3pBoEbMtv42/PgXrflst1k4aw+Idk4nhbCaRI+UvFT5pDzwNLnz9t +VbBSxzmqc2IPbFTsf/errQkycs2FWeNeMN6mf3Go7SOst9umbPsjGKrX3+C8 +zhkG9Yy8z9Lf4kC2p7zPRX0KZIe/n2PjRVhy0DFfYD0/htTUvz+fdwUStTbe +t7QVxMaSrqb1jKvQkbLq0a9FIphcEe/iMX0NznLCXs2WXoxxgVIPJNpyQTL5 +0+mkDHGsWqyaN2dnHsTYmBk3jS5F8ff57vyuBSBT2iAze5YELlR9Wb7OqwC4 +4jZ/tRZIYL0R52LIkQJ40+RAX1CQwOanSZ96ogpA0cqfsjKVQDevpgo3TgFU +bcma15gqgf6mZ9LdewtgauNIw0sjSTyUeuGLiVMhHDG46lgXKYV5Hb41uKkI +NmeL/jGPk8ITm2L23thSBJRASGzDRSkcDo4TmG9TBI0tO4qbb0phfuLtxAqn +IljpK8zf3SCFtzYsDPoeWARfc4/l/paRxmPOlbp2BUVgv8RycNktaYz/s+9n +uBAXVgffj8h8II2nugY0zBZxQejjcglmjTS6l8f5C0twoZzHD8od0rjcTlL6 +JJMLEublCatmpLGdc+2u/n9caIxQ1NlgLoORix0YtBsXTH7+C/L+JIPdqT8t +e8u5EGiavOLxgAwu5uoaDz/kAveqRqf4qAy61PQ5T1VzQcrGyaBccBle/Wiw +kb+BCwN3n/7lX7kM7+66E976gQtJkQn+qceXIZ9LYXGSIA8+LlX2fiIiixUV +Gl8DrHkg6VMpJykpi9LBs20HdvDAonbXS0+GLAoLio3a7+FBWdBZ9YWrZfHe +FvVWTTcenOkZ6t+9SxbjLlyZn36UB9p59/f/zJHF79kVzucv8yDCyMpZ5j85 +vF8z51FXGw9MHTJ/66+Tw1eNJWUL3vJANPx7lK2FHCr4eIvovedBenV0boKT +HH7x13wb+JUHdzff+z7vtBwO/pYWeDjGg6FdrIDhDjlc3jt4UFaYBoejI2de +BMsjzvYOP6FKg9LldbL90fKo5sh7bahGk/ePLxJIkMeGizO7/qrTEDSp2riO +I486ilVC7qtouBjlsLT8hTwGLymZRenT8OLCs6zrcgro8aE1YIkJDWu4qaWh +lQr4dXTC7/MeGkzaGqZ+1CpgsuLz1av30mDJN2eTY5MC4qmh86EONLhae3fA +ZwXMa9i+VNSZho3BzLDwuQzczdI9sMidBl+F0Wtr1RjY2zhxJMeHhpFbCbXj +mgxMaOubqPMl4zNVGyzWYWCbziPq52Eaog876VHGDNQxO2ap7U9DWnV97Wwr +BjKqcpXTj9PwZH/WYHUAA7NNrJnT4TSYTRqIhQQz8ETPv4qZCBoaElr0dMIZ +uEusbHo6koaO8vnhnNMMvMl8dGj0JA0/FviLRacz0OJN9YK6WBqkaFP9jVUM +1FDZcmkqnoYMk097pmsYuBQnMzoSaKA6ToSXPWegYvmBrbcu0KAx+1adcisD +/bbwFzsm0bDORs5e4CsZfzA3MP0SDQfHfoXXijBx09GxgNx0Us/D7hJ9YkwM +E5OIOZhBg2B/ZwG/FBMnWi72aGbScL2r+o0xxcSGgude3Cwauh9eVL+tx8T2 +hNyZMzk0FOoLVTUZMlHTw93Z8BqpFx26cwiZuFr23sJvxBI5+yPVzJnYx7fe +xug6DVujDdqvOjJRVEkoruoGDfLTRYcq3ZiYHZrkvPcm6Y8Aiv+dJxPlVURj +R4hjPRaslPJnoulPsXq5fBoemb+LOh9Lxp/E0LYspOH8EyvpwnNMhM8jmc3E +9uwabl0iE2WGTJx3FNEwvpLXMSeDicsms79u59KgLRahGVzMRG/jAjFNmga+ +syNPUsqYuEOQY5hF3MB/wK7sPhP3K9c9FC6mwWvEOvrXUyZyBKZbe4g57Ypd ++zuZ+GX+9C73WzT4WaX6RvcwccEldHtMjPUi8671MtEk8GyDdCkN7+6Prur+ +wcQpt9KqKmKJrNpTNvwUmgq/XDNym4ZeSbasnyCFglK1Ww3LaChJKC6OF6Gw +XaqxNpR4a2Ta23pJCh+pXvw2RSw/Ier3VZZCn+60RIM7pF5HogTmURSeaTTO +8SOO3XdQe606hfNDx/++Jd7R/f6ZgxaFTvV7QfQuDYo7bfeG6FGoeXTipxHx +71d1v1MNKYx4GSTkSfzI1Dj2DlL4tuJkfCLx+cclcq0bKGx5XhVWTmy/RuXW +780UciR7ut4Rj6st6tawpfDcwN5O+XIaRjNkIlbbUZhxe3BqDfGfhUqKBo4U +PjXovGFD/CtC85mxG4Vr1z5r9yL+MWxwwMSTwhzm7gvhxN/3mYhs9qbQr0Kn +KZH4a5slvfUIhZVRM1dyiD+b7d5ue5zCNh/Hnzzij/ddR+1OUFgnOPHiHnGP +hneqUySFks6ButXEb7OOG7nHULhJIlK1jrhjcVSPVxyFMdsq8l4Qv4k6F3n4 +AoUbq5rLXhI3j1xWOnaJwuYb3lb/P9+4P6c25AqFEzX6QbXELzsKvSKzKbzu +3aFVRVxvfkc09jqFHgHTx8uJn1U8Lj6XT+FqY+ttXOInmi9skngUfi4Kv5tN +/Pjqm78ppcQ6eiUJxA/FP6RllpP3q1MwDiW+H/2dzXlI4bNv/faexHf/jrzP +q6aQTtmw0Jr4tiffSV4thQynbtv/iEu6hFRuv6TQfqubliwxb8vS+ntNFLb+ +O5UzRb5PYaXCoUdtFL4OHs17S5yntWJRzVsKh3xcTf//PXOv6dx6/oHCvrHQ +0CTia0thx+s+Csfv/7PwIs6OMRt/853Cog+xpUic5uUAH0fI/U7esOol/XX5 +ncfHL/9IvXoyY0uIk7ceiR6cIf2zM2BPKPH51bHPx+azMLU/pU2U+Oz1RO9p +URa+GbCMbCb9HCuZsXjOEhbu7Lz3/CJx5ETxzoXyLFR5Gs8WJw479ODfEhYL +1W7s399A5ktIT02GzHIWSrCbtWOIA6q7Pilps9D9vmnxLzK/vM7O9TXayELp +L9NO+WQ+ekwtFF9nzkK79qoCa2J3H5myTdtY6Hp5MGOshAan7ZqT1nYsFFpz +IJhNbLNsd6ynNwvjPlRoFpA8sDrnquZzhIVQ4lePxJYzhxr8j7MwTSFcrIVH +g+mnyCXhkSz0v5lbNEzyxaigMPvSJRae3WmmJEnyp4tRkLXhCguTH1IVOSSf +gi7lZf7JYiGzcJatOvGdiNx06zwWPttmEWNQQPJpV3aK6AMW+tmdEzDKo0F1 +bnLCqQ8sLJXN4v/IoaE2KDFet4+FJxvEvmwhdh9KON/bT+4/ea3lDslbTte5 +uHV/WNjrTDdGk3xmlMTETs9TRN+QUAehbJI/jsHhAeqKeL1tn0tZGumnlsAw +JS1FlEs/oMtPbLP5eGiLriJaaI7JWqbSkKh7NEQbFLH09Hb17ss0iAj7HP9h +pYgL0zgOX5JpmFPu4ut+jFyfHXgj8zyZ32KbnXZUKaKSd2HMdbL+tR+kGg88 +U0TPL1Kfr4aRfKn5B2EvFFHt5VyZ9FAaEoIKFG6+UcSoniGRMyE0rPoo3DPe +r4gafYv0Lch66l38am+GuBJaLXm98wBZn/u32u7pdVPC5sn8VUvsaWjK03g+ +5qmEWepc45d2NNzjn2co4qOE28od1p7cTcPpO2UyeoFKuIf/5PKBHTQsV5Dq +jDmnhGF5S1OuWdGw/0fnLrUyJXw9KvSqeCPJ4zinHX4Cyvhl8bm11prk+f3q +1CphZXwRq9vwWYOGv5vGBwcXKWPFgoNFx8j/ixB/YrSnjDI2JeW7XyL/O6sC +q0udNJTxs2FcZyWLhhP7lMW3blfGA93HAqslSf2NB16pZSnjgPNVG+UpHpj9 +PGb2WU8FG71OavPH80BWS/6UoJEK/ifct1HsLA9++D2pUlurgpme13rlYniQ +PLrIyM9cBW0WZz1ZEcaD7qm8lTOOKpinV2i1zIcHfsJvxaVPq6D9zduBuy15 +kKaK3RZdKnioNvrdLiEeDLgKHikNW45ZHo7Xuo5zyX5EcnZMlSqWi1XOm7Wm +CMReKp+nf67AQ7sq7L7/KADZWN42PT11nHy69oyMVz6kqBksEt+vgUZPNkV8 +G7gJ9TJrdYcvrMRqOc7sDM8bsEa2KkHzjSYaS9efbam4DqL8Of7OkatQ73qf +uagGB+QjFIx2K2tho36HfGZoDsxXsi+zfqaF8aZ3I6bfZ8NKtjTv2F5tTL4g +u326NRP8usWqN/OtxhUYxzzw/Ar8HI6zNUtZjb389V/WS6XCJs2aNDMNHTzl +GGfz8PIleDhsOPG3QQcPNxlVzhVJBm917c7X+3RxxAijlDsuAPuHW8vu+Xoo +HWGh32weDxsUpbaI5OjhhQSNMYkzZ2F5+JnjVfr6eO7SogVWK2NhxT6DSqVO +fby1pzB0+NNJ2PfQ42Tp4f9wlreFwSAVCZXZLW6/lhrg/EqLY6ojofDn5sxf +zTsGaOJbwynaEwSuSgXz07aswYFkYQH75AD4tSJJr2RoDaaIZY2VT/vBXc7E +h5FYQyy1hSh7CV+wM2GhobwRet5XDyzT94Jlh2LKVz4yQv9+ap3dJXdYKnSw +eMtONqrbLAzz7XUBzvoTQUO72ehsUyGs0+oC2ifOr0+yZ+OkyguD2TUuYDlE +t7Y7szFU8rrdwxsucOrNyLjrQTbqpbeL3/ZygbGcsHVBEWws6R6zvDziDJ2G +Sc25BWSnqeuXNW+xM3gc5aSbcdl4MMKkT4zfGUa5t/cN0Gx8q1y/RHXECcSo +9r9aZWws1DsudqTDCcwF5WQrHrHxcXrMcEiOEzxoyXVrbmWjxeCsg656TrBZ +9K5GQDsb+bUEExaoOkH7prpRqS42zjtTva5imRP8ufc91uE9eV7UXmP2LCfQ +uLqq6Fs/GyWNt37bm+oIDzrXBsQNstFDhPNtQ5gjbF6yHTSH2Ni+tZ2H+xzB +Peboa/8RNvp/d3Xx1nKEP49OpUmOsfHoAQGDq5KOEPnvsuu9f2z8kkfl9005 +wCKdPPW9U2wMifmcb9zrAJmH7o3MzLDx94uoVXn1DvA/Pl9xGQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06533513749651218}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06533513749651218}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8Fd8bB3ClIqGibFnunWtJSGT5iut5KhWRIlokeyKFJGXJmqgUoUK2 +dFO2e4ekVFKUUEmWbEWLVKKUiGy/8/trXu/XzGvmzDPP+Zw5TBcf632z+fj4 +Zs3i4/v/cbS77oniWY5xU9/8OrkoY+OWTKnAte2RcCPpKkd7ahng0lcuUu2J +sLMxpP/3pBoEbMtv42/PgXrflst1k4aw+Idk4nhbCaRI+UvFT5pDzwNLnz9t +VbBSxzmqc2IPbFTsf/errQkycs2FWeNeMN6mf3Go7SOst9umbPsjGKrX3+C8 +zhkG9Yy8z9Lf4kC2p7zPRX0KZIe/n2PjRVhy0DFfYD0/htTUvz+fdwUStTbe +t7QVxMaSrqb1jKvQkbLq0a9FIphcEe/iMX0NznLCXs2WXoxxgVIPJNpyQTL5 +0+mkDHGsWqyaN2dnHsTYmBk3jS5F8ff57vyuBSBT2iAze5YELlR9Wb7OqwC4 +4jZ/tRZIYL0R52LIkQJ40+RAX1CQwOanSZ96ogpA0cqfsjKVQDevpgo3TgFU +bcma15gqgf6mZ9LdewtgauNIw0sjSTyUeuGLiVMhHDG46lgXKYV5Hb41uKkI +NmeL/jGPk8ITm2L23thSBJRASGzDRSkcDo4TmG9TBI0tO4qbb0phfuLtxAqn +IljpK8zf3SCFtzYsDPoeWARfc4/l/paRxmPOlbp2BUVgv8RycNktaYz/s+9n +uBAXVgffj8h8II2nugY0zBZxQejjcglmjTS6l8f5C0twoZzHD8od0rjcTlL6 +JJMLEublCatmpLGdc+2u/n9caIxQ1NlgLoORix0YtBsXTH7+C/L+JIPdqT8t +e8u5EGiavOLxgAwu5uoaDz/kAveqRqf4qAy61PQ5T1VzQcrGyaBccBle/Wiw +kb+BCwN3n/7lX7kM7+66E976gQtJkQn+qceXIZ9LYXGSIA8+LlX2fiIiixUV +Gl8DrHkg6VMpJykpi9LBs20HdvDAonbXS0+GLAoLio3a7+FBWdBZ9YWrZfHe +FvVWTTcenOkZ6t+9SxbjLlyZn36UB9p59/f/zJHF79kVzucv8yDCyMpZ5j85 +vF8z51FXGw9MHTJ/66+Tw1eNJWUL3vJANPx7lK2FHCr4eIvovedBenV0boKT +HH7x13wb+JUHdzff+z7vtBwO/pYWeDjGg6FdrIDhDjlc3jt4UFaYBoejI2de +BMsjzvYOP6FKg9LldbL90fKo5sh7bahGk/ePLxJIkMeGizO7/qrTEDSp2riO +I486ilVC7qtouBjlsLT8hTwGLymZRenT8OLCs6zrcgro8aE1YIkJDWu4qaWh +lQr4dXTC7/MeGkzaGqZ+1CpgsuLz1av30mDJN2eTY5MC4qmh86EONLhae3fA +ZwXMa9i+VNSZho3BzLDwuQzczdI9sMidBl+F0Wtr1RjY2zhxJMeHhpFbCbXj +mgxMaOubqPMl4zNVGyzWYWCbziPq52Eaog876VHGDNQxO2ap7U9DWnV97Wwr +BjKqcpXTj9PwZH/WYHUAA7NNrJnT4TSYTRqIhQQz8ETPv4qZCBoaElr0dMIZ +uEusbHo6koaO8vnhnNMMvMl8dGj0JA0/FviLRacz0OJN9YK6WBqkaFP9jVUM +1FDZcmkqnoYMk097pmsYuBQnMzoSaKA6ToSXPWegYvmBrbcu0KAx+1adcisD +/bbwFzsm0bDORs5e4CsZfzA3MP0SDQfHfoXXijBx09GxgNx0Us/D7hJ9YkwM +E5OIOZhBg2B/ZwG/FBMnWi72aGbScL2r+o0xxcSGgude3Cwauh9eVL+tx8T2 +hNyZMzk0FOoLVTUZMlHTw93Z8BqpFx26cwiZuFr23sJvxBI5+yPVzJnYx7fe +xug6DVujDdqvOjJRVEkoruoGDfLTRYcq3ZiYHZrkvPcm6Y8Aiv+dJxPlVURj +R4hjPRaslPJnoulPsXq5fBoemb+LOh9Lxp/E0LYspOH8EyvpwnNMhM8jmc3E +9uwabl0iE2WGTJx3FNEwvpLXMSeDicsms79u59KgLRahGVzMRG/jAjFNmga+ +syNPUsqYuEOQY5hF3MB/wK7sPhP3K9c9FC6mwWvEOvrXUyZyBKZbe4g57Ypd ++zuZ+GX+9C73WzT4WaX6RvcwccEldHtMjPUi8671MtEk8GyDdCkN7+6Prur+ +wcQpt9KqKmKJrNpTNvwUmgq/XDNym4ZeSbasnyCFglK1Ww3LaChJKC6OF6Gw +XaqxNpR4a2Ta23pJCh+pXvw2RSw/Ier3VZZCn+60RIM7pF5HogTmURSeaTTO +8SOO3XdQe606hfNDx/++Jd7R/f6ZgxaFTvV7QfQuDYo7bfeG6FGoeXTipxHx +71d1v1MNKYx4GSTkSfzI1Dj2DlL4tuJkfCLx+cclcq0bKGx5XhVWTmy/RuXW +780UciR7ut4Rj6st6tawpfDcwN5O+XIaRjNkIlbbUZhxe3BqDfGfhUqKBo4U +PjXovGFD/CtC85mxG4Vr1z5r9yL+MWxwwMSTwhzm7gvhxN/3mYhs9qbQr0Kn +KZH4a5slvfUIhZVRM1dyiD+b7d5ue5zCNh/Hnzzij/ddR+1OUFgnOPHiHnGP +hneqUySFks6ButXEb7OOG7nHULhJIlK1jrhjcVSPVxyFMdsq8l4Qv4k6F3n4 +AoUbq5rLXhI3j1xWOnaJwuYb3lb/P9+4P6c25AqFEzX6QbXELzsKvSKzKbzu +3aFVRVxvfkc09jqFHgHTx8uJn1U8Lj6XT+FqY+ttXOInmi9skngUfi4Kv5tN +/Pjqm78ppcQ6eiUJxA/FP6RllpP3q1MwDiW+H/2dzXlI4bNv/faexHf/jrzP +q6aQTtmw0Jr4tiffSV4thQynbtv/iEu6hFRuv6TQfqubliwxb8vS+ntNFLb+ +O5UzRb5PYaXCoUdtFL4OHs17S5yntWJRzVsKh3xcTf//PXOv6dx6/oHCvrHQ +0CTia0thx+s+Csfv/7PwIs6OMRt/853Cog+xpUic5uUAH0fI/U7esOol/XX5 +ncfHL/9IvXoyY0uIk7ceiR6cIf2zM2BPKPH51bHPx+azMLU/pU2U+Oz1RO9p +URa+GbCMbCb9HCuZsXjOEhbu7Lz3/CJx5ETxzoXyLFR5Gs8WJw479ODfEhYL +1W7s399A5ktIT02GzHIWSrCbtWOIA6q7Pilps9D9vmnxLzK/vM7O9TXayELp +L9NO+WQ+ekwtFF9nzkK79qoCa2J3H5myTdtY6Hp5MGOshAan7ZqT1nYsFFpz +IJhNbLNsd6ynNwvjPlRoFpA8sDrnquZzhIVQ4lePxJYzhxr8j7MwTSFcrIVH +g+mnyCXhkSz0v5lbNEzyxaigMPvSJRae3WmmJEnyp4tRkLXhCguTH1IVOSSf +gi7lZf7JYiGzcJatOvGdiNx06zwWPttmEWNQQPJpV3aK6AMW+tmdEzDKo0F1 +bnLCqQ8sLJXN4v/IoaE2KDFet4+FJxvEvmwhdh9KON/bT+4/ea3lDslbTte5 +uHV/WNjrTDdGk3xmlMTETs9TRN+QUAehbJI/jsHhAeqKeL1tn0tZGumnlsAw +JS1FlEs/oMtPbLP5eGiLriJaaI7JWqbSkKh7NEQbFLH09Hb17ss0iAj7HP9h +pYgL0zgOX5JpmFPu4ut+jFyfHXgj8zyZ32KbnXZUKaKSd2HMdbL+tR+kGg88 +U0TPL1Kfr4aRfKn5B2EvFFHt5VyZ9FAaEoIKFG6+UcSoniGRMyE0rPoo3DPe +r4gafYv0Lch66l38am+GuBJaLXm98wBZn/u32u7pdVPC5sn8VUvsaWjK03g+ +5qmEWepc45d2NNzjn2co4qOE28od1p7cTcPpO2UyeoFKuIf/5PKBHTQsV5Dq +jDmnhGF5S1OuWdGw/0fnLrUyJXw9KvSqeCPJ4zinHX4Cyvhl8bm11prk+f3q +1CphZXwRq9vwWYOGv5vGBwcXKWPFgoNFx8j/ixB/YrSnjDI2JeW7XyL/O6sC +q0udNJTxs2FcZyWLhhP7lMW3blfGA93HAqslSf2NB16pZSnjgPNVG+UpHpj9 +PGb2WU8FG71OavPH80BWS/6UoJEK/ifct1HsLA9++D2pUlurgpme13rlYniQ +PLrIyM9cBW0WZz1ZEcaD7qm8lTOOKpinV2i1zIcHfsJvxaVPq6D9zduBuy15 +kKaK3RZdKnioNvrdLiEeDLgKHikNW45ZHo7Xuo5zyX5EcnZMlSqWi1XOm7Wm +CMReKp+nf67AQ7sq7L7/KADZWN42PT11nHy69oyMVz6kqBksEt+vgUZPNkV8 +G7gJ9TJrdYcvrMRqOc7sDM8bsEa2KkHzjSYaS9efbam4DqL8Of7OkatQ73qf +uagGB+QjFIx2K2tho36HfGZoDsxXsi+zfqaF8aZ3I6bfZ8NKtjTv2F5tTL4g +u326NRP8usWqN/OtxhUYxzzw/Ar8HI6zNUtZjb389V/WS6XCJs2aNDMNHTzl +GGfz8PIleDhsOPG3QQcPNxlVzhVJBm917c7X+3RxxAijlDsuAPuHW8vu+Xoo +HWGh32weDxsUpbaI5OjhhQSNMYkzZ2F5+JnjVfr6eO7SogVWK2NhxT6DSqVO +fby1pzB0+NNJ2PfQ42Tp4f9wlreFwSAVCZXZLW6/lhrg/EqLY6ojofDn5sxf +zTsGaOJbwynaEwSuSgXz07aswYFkYQH75AD4tSJJr2RoDaaIZY2VT/vBXc7E +h5FYQyy1hSh7CV+wM2GhobwRet5XDyzT94Jlh2LKVz4yQv9+ap3dJXdYKnSw +eMtONqrbLAzz7XUBzvoTQUO72ehsUyGs0+oC2ifOr0+yZ+OkyguD2TUuYDlE +t7Y7szFU8rrdwxsucOrNyLjrQTbqpbeL3/ZygbGcsHVBEWws6R6zvDziDJ2G +Sc25BWSnqeuXNW+xM3gc5aSbcdl4MMKkT4zfGUa5t/cN0Gx8q1y/RHXECcSo +9r9aZWws1DsudqTDCcwF5WQrHrHxcXrMcEiOEzxoyXVrbmWjxeCsg656TrBZ +9K5GQDsb+bUEExaoOkH7prpRqS42zjtTva5imRP8ufc91uE9eV7UXmP2LCfQ +uLqq6Fs/GyWNt37bm+oIDzrXBsQNstFDhPNtQ5gjbF6yHTSH2Ni+tZ2H+xzB +Peboa/8RNvp/d3Xx1nKEP49OpUmOsfHoAQGDq5KOEPnvsuu9f2z8kkfl9005 +wCKdPPW9U2wMifmcb9zrAJmH7o3MzLDx94uoVXn1DvA/Pl9xGQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06533513749651218}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06533513749651218}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993916418779551*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"aefde3ea-e3b9-43fc-aee5-0945507da6f1"] +}, Open ]], Cell[CellGroupData[{ @@ -2863,14 +8014,14 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ -3438788b15d6"], - -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913294794877434`*^9}, + CellChangeTimes->{3.9918488983507824`*^9}, CellLabel-> - "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] + "In[121]:=",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], + +Cell[BoxData["11.208346711146406`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.993916418795223*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"6a9d630e-de7f-455e-b3ab-d3c4fb71e067"] }, Open ]], Cell[CellGroupData[{ @@ -2926,177 +8077,159 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ -0e75880d5d98"], + CellChangeTimes->{3.9918488997875195`*^9}, + CellLabel-> + "In[122]:=",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.904607396701518`*^-259\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 125, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294796838703`*^9}, + 2, 122, 17, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.99391641883893*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +In[122]:=",ExpressionUUID->"2cc06502-13b7-4e75-a0c7-aa9b344beac4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.696754303754148`*^-269\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 126, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479692892*^9}, + 2, 122, 18, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.9939164188427343`*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +In[122]:=",ExpressionUUID->"c37eed34-4449-4909-bdfc-eff69365db11"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.616841466080842`*^-279\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 172, 127, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294797011433`*^9}, +\"", 2, 122, 19, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993916418845647*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +In[122]:=",ExpressionUUID->"5915a9c1-77ac-4a0d-87e7-82fb0e5fa6d4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479709572*^9}, +during this calculation.\"", 2, 122, 20, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993916418848744*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +In[122]:=",ExpressionUUID->"6ea9ae3f-15c4-46a9-962c-a49f33c48b00"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VV0bB+Ci0mAoZD6cs88h8xwpx/OkyFCkTBmPoighiSgZyhAl0SAp +Mr1J2DtFUpEh6ZWKEhUaFMmQjOlV3/72P/u6rz2ta61n/dbarJ2B23z45tHH +/Hnz/n+e6mlu4CTnm9gudOZLDkKTV1elwtd3xkKK7fp+YRV5wJXPd0p1pkFU ++D/znyprQujWG2/4O3PhZ99MWpayCawYkUz79eYWnMgJHdqhbAO9920CJ97U +QUT0wg+JqzzAnDPYPfamDRYUWl/34gTArzeG53+8+QRnrz8K6pA8BvUb/sl/ +mTsOVTcSyHesMyDXW/V1p/ocuIjL7T3RfQHE/T1vCGzgx5bdjCvLqq9Amo55 +tY3DYuSNeNs94uVCV4Z27dhyIVTVmuY931sAyflRz/mkV2BVMtZK+l0HyXOf +T6ZfEcNmc70qfv5ikFK7c2KmUAzbo5O0hQSLQaYuPsqdFMNES7fsFSuLQf6H +yqFV9WLI0/jssWxVMShuDuJVD4jhcNcfszqrYtBbMGfwWU8c+xRTHhifLQbb +EIk+3afiaDFveshN5iYk2FuatE2tRNUrcZvEGSUgc7tVhm++BMoVcCojFEug +VMx+WmeZBIb67Jl4q1ECHW0e5FkFCQzyE3yVaFICHLsQws5CAv/ruy+U6VkC +dVuyF724JIHCbxSunc0pgTnzydZnxpK4quzg/ueMUjhodM2zOVaKvl7+zX1h +GVjlCE9Yn5LCiId6dx8sKwNC4Ghi63kpfB26dFZStAxevHKk2q9L4b8Ovh3V +8mWgGSTI39MqhRu+TgzUGpbBQGFY4U8ZaZTdz9Sr9S0DN3GbYdlyafTnd88+ ++7gM9I5Ux1y9L41dcGsbtJTB0k/KEqzH0pid9PpA/8syqCrjB6UuaRxdN39c +qbsMJKyrUrX/SqOyZd7cznH6+zEcfTNrGdQdjT6zR4SEjaOzEQGfZdDH5/zV +6jUkhFucU300JIOjKmty1NeRUHpN463YlAyKKC0Zz+SSIGXPM6paLIsDxx1P +BZqSMHS3cZpfUxYXHLmZMmNNQnpsasilw7K40Fik+6QHCZ9WKgU0CMmhqvcF +uRsxJEgG1jAkJeXwPcPfq/E4CZufOD/zY8rh+oj2X91xJFREJKuL6MmhytJ2 +RYEkEpJ6fwzucJZDS2tmgFEaCbpF1XtGc+XQie9cDyOXhBhjOy+ZNQy8t9vW +ub+GBAuPqz8NTRn4+1H/i/ZHJAhHfz/usJmBNiZfVR7Uk5BVH1eYymNgnrzi +sfgmEu5a3fu+6CQDOXHWleOtJPxwZoeOdzEwuMnu5ppuEiojggRW9DEwU0hw +y3gPCceyHmRojjBwa2xH240PJAh+cKr245PH2RdfU5b3kbBqz6l5H1Tl8Za2 +flvFIAkehyaTWo7I4yDncFvANAmKF03lBuPk0epL99D0zP/770yJQKo8vqge +GIucJSHiP5UXpvny2BQW/CB6joTzxz1WVrXIo8Z9FR8vfgpazjZlFzAUULi0 +ZOsZYQrWll66faxGAXUz3NJyCAo2vmmdG3migCODqxRvsymwmbdgk2ebAoof +vSPeyKFg17aALviigG07S5b1KlFgfoQVFb2QiVmONt7jqhQEKUzlrVdj4tsX +rnJXdSmYLE998kuLiaNVOjcT9CiIsFAbpvSZOHZvX3aAPgVxB3gGhAkTZWOe +UvoGFGTWP33CZ8dErm1y2jUjChr2ZA/XhzJxXOPT9T9AgeV/RqJHjzCRGkjP +f4gUtKa+MtCPZqKP4felR9dT0FW1JDr/JBPdNwdJj5pSMLIsRDQui4kZGibW +FWYUHMwRNuReY+IVdmyRlzkFM/pFrpMFdPvqzEOXbqKA36Mn36eMiU0frdzt +LSiQIi0MzeuY+E1AM7DZioIrGz+7/nnMRO0TO2151hQQXZHRFf8yMbxVKneC +tgZfebPSayYWJUpcW7mFAlN7hpvAABNDbJrFjGwpaBqojK4ZYmLPu4gL1bQ3 +R24rCBtjYnnTqzPrtlLgVJgw0j/LxNnZ7AE9Owr8Z8ainwix8L9LCesXbafH +68Buia+iLEz/faAkkvbiwbfF/FIs9DGNYv+kXfCuvsOEYOHPyhbtNnsKQuzX ++LutYmHM+MFmrgPdnmc350eos3BCXTCwkHbPw/PqdwxYyKf79XOAIwU3DZfW +ta1jYerq87dbaUeQx5x+IAt/FIicV3OiQCJ3T6yaNQvrCiwT39O2jTPqvObJ +wj9p2ptld1Ag/6dkf403C8XEzpXtoj0USvB3+7Gw2DNLuYh2ou8yTakQFqo6 +XvBQc6HA8WNU/epwFoY4CzB8aXNcJpy3H2Ph3w7ZiWu0a627j6ckslBGwWBU +0JWClAY76Zun6efVHomb0HbjPi5tTmOhr+Gsgz9t1Yq1G/sv0vffKyi/SPuX +ZlnXgiss1OxL1Kyl/eQfdiCRy8L6HL+mL7QvMDMW4D8sTDsnHLXYjQLvS4KZ +7jdZGMYAR2XauqIxWkcoFvba1W8xoz0vebIho4KFNvO8d3vSbuXf61JRzcLX +pYM5obSzjvaMttey8Hgm608S7X2T2+LGGun+q2g/lkV7bUCTjMi/LMwraWEX +017cv45Uf8HCK92dwxW0OzxJM6vXLKx2aeyuoZ3fyXm35y0LLYc9JxppB9td +CorrZWHQijDdZtr4VGhRXh/9vqmujP9beEPs5dpvLFSMclZuot1dPaXdM8LC +SKj/+Ij2Tf19j3+Ps3Aw8ntjFe2Ikl5X6V+0dfJel9K2ULIfM/hD1xf/gxXX +aEtkP4m35ydQ1VrwSCrtPkmuXPBiAuOW+4hG0r6VSlFnhAhMXZrVuZt29BKl +TSWiBJZfjW/dQts2NvP9U0kCPT/MTujQlv8tHDwgR6Bf6vPNYrSHDh4XWEQQ +eFXufccYPR6JPv6669UJfN89d6KQtmPPhyYPHQIJq8YbR2lznBzcjxoQOPxX +edFW2rUWJomVSOCZpTpeI3S9pDy6xXhtRqD5wKmdVbTd1q4q/2lFIJs5kRVD ++5fa8h4NBwK1hlxql9CeuiITo+dC4JGX+7uf0vU5IaLIMfIkkNORv/Uk7ZFx +o70b/QjMS39u/MeZgu8+G4WsAggcnPKvvE174I0NaXuQwKBnMcm+tD9V75py +iSRQ7s6+DU/o+dGrEXCJF0sgU2dUOYT2++zDxrsTCBSaNN/HoN1x/HTsgbME +bs/pWOJLz7en1pXCiQUErtC2edxNz9+mB4+o0zcIFA/fdCOEdoNWi316GYHL +7gyOLab9UOxj5tUqAgUf55ep0PP/1rulq+48I7BzI8xZ0/mRuc8DPk0SqN2V +VyBO59HFbt9P/bME9gXoasRupuCc7cG44b8E9jbFKg3T+ZWil/jvzBI2Kn6d +H1xN513sb8pJRJ6NmVRTnBGdh/uSFwYZm7PRqPey/306X33nRMRMrdm4eYtd +5HzauwNlKjZtZaOIwl7hjXQe87Zr/bfNhY2Bu6LvPKLz2152R6JfABsPNoTo +ZBtTYFx8M+fCBTam3msq/7yagnfM4myzy2y8vcU2bTntiAtFVyey2dgsnG+3 +jl4vKmMKs7YVsZEIf3UoiV5fdJ1zMoTvs1HKD/eKaFGgsvBcavxHNgbL9pff +XkXXr+eR6FB1DoYoHvQKlqTgzqvwKEUdDqY7uH52k6DbY3X42KvVHJw7fcvT +bCUFaasPHdUFDq7Qm7FaLkaBkGDg4RE7Do44zfCl0OvlgqqdQbvDOBjwJPmW +ykIKxkSteI51HPReGzHc/4OETn/ixd4mDl5v+XAwdJSE2sezENXCwcdFRBXf +CAmpEcUK1zs4ONV66YT4dxK0Pwn2/hrkoGe7uAnjCwkB1HP3K2KKKOPF023o +JGHQ1sG1z1sRLXbafA98SELfKZ5jsIASmhVG/omk9z8Bg+qEtqASWrCTGgrp +/dH0pl/Dw8uV0HDbRNuzKBKW8qfF+cko4epFZS0SR+nvhdff5mko4aYF3jbn +QkiI9FESs92uhMvcE3kmPiRImAw9V8tWQq+fDw45mJFgORpm+cVgFTZ+jI5v +nEfvN3YtPng7ShljXorMilGl9P+BJF9CnQoy+ys28taWgOgzpRRyVBVrXg6c +S31QDHKJZVsNDNTx71Xr2XCBG5ChZrRcbI8Gjs7KP0j1uA5PZdavHj+riRpV +ROP3O4WwVq4uVatDCxvrH2Yo9+eDMH9uiFesNjKGkkiddXkgH6NgvENJBw+k +3NjvcOgaLFF0q9jWpIM7vi5qiT+dDZpc6bIwd11UyjzJ2X4qC4J7ROut5unh +hqg18fsOXYLR8VMOlhl6iGErlWdrLsAmrceZlhr66CeR/HVy4zl4OL7u93Sr +Pvqmloq9bDoLAeq6b1/6rEZ8+Kict+UMcEe8X+1YYoDxb6gGL5lkMONIbRHK +NUAseKFwNzUBlKOTDtcZGmJ87N5j4QdOgKqPUY3iW0Pskp0bmfSPAZ+Hvidu +H1iDudSM9K2eSKjJeeU9ttIIL4cFfotjhcPE9b/TWpVGeN3Pcr+j5CHYpVi8 +JHPLWtTWfZso33YAxlTTDW79WIvfFq7fF5awH+7m//44mbgOrVx1T10u8AWX +jWxcJ2+MMkmyZXKnvEF2f0KVZq0xhgoyBNlNPEj5u3t1cp0xXleyV7O6xwO+ +NHOqv8EY8zYdeRtewoPBioVFOc3GuE/SrONnOg/uzTuRIdpujIFP/q238uKB +y7nosKkvxvhBOWFa7rcnZFSHr364jIsqyUgmH/aAlUv9qS1OXLw7vJA5m+sK ++RsiI37s4OKnvSucG5NcQTcyZUO6GxeLnC8r5wW7gs0P8nWnFxe1P4V6XzB1 +hfiOyV+7/LnIqgme7/LZBWZyo0wjYriYKHSZslZ2gbfr0tsLi7m4X6vhZ2KN +M/geys+yLOViSOKO6dQiZ5gqveMzRHIx6rSY8o10ZxAlOqd1Krionkx+FPF1 +BuvFDLkHtVw0ramO/meFM9x/Vejd/pqLR0Sj38ztcQIr4bsaoZ1cvDzrcVhs +uxN0bmqeknrHxV3pxy8YmTjBxL3viR4fuGick6pQKe4EGte0S74NclHAO2BN +aJ0j3H+7PvTUMBcLxgUvCpc6gpX4dtD6wcVxLwdG5SVH2J1w6GXIJBfzAoND +1xxwhIna+EzJGS52xsror3B3hNjZi7vuzXIx0k1s9JeFIyzXL1J3n+OiTW9b +1k99R7i6/97k379c/P20Xfc30xH+B0ZcMKQ= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3110,136 +8243,114 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK +1:eJwV13k4VV0bB+Ci0mAoZD6cs88h8xwpx/OkyFCkTBmPoighiSgZyhAl0SAp +Mr1J2DtFUpEh6ZWKEhUaFMmQjOlV3/72P/u6rz2ta61n/dbarJ2B23z45tHH +/Hnz/n+e6mlu4CTnm9gudOZLDkKTV1elwtd3xkKK7fp+YRV5wJXPd0p1pkFU ++D/znyprQujWG2/4O3PhZ99MWpayCawYkUz79eYWnMgJHdqhbAO9920CJ97U +QUT0wg+JqzzAnDPYPfamDRYUWl/34gTArzeG53+8+QRnrz8K6pA8BvUb/sl/ +mTsOVTcSyHesMyDXW/V1p/ocuIjL7T3RfQHE/T1vCGzgx5bdjCvLqq9Amo55 +tY3DYuSNeNs94uVCV4Z27dhyIVTVmuY931sAyflRz/mkV2BVMtZK+l0HyXOf +T6ZfEcNmc70qfv5ikFK7c2KmUAzbo5O0hQSLQaYuPsqdFMNES7fsFSuLQf6H +yqFV9WLI0/jssWxVMShuDuJVD4jhcNcfszqrYtBbMGfwWU8c+xRTHhifLQbb +EIk+3afiaDFveshN5iYk2FuatE2tRNUrcZvEGSUgc7tVhm++BMoVcCojFEug +VMx+WmeZBIb67Jl4q1ECHW0e5FkFCQzyE3yVaFICHLsQws5CAv/ruy+U6VkC +dVuyF724JIHCbxSunc0pgTnzydZnxpK4quzg/ueMUjhodM2zOVaKvl7+zX1h +GVjlCE9Yn5LCiId6dx8sKwNC4Ghi63kpfB26dFZStAxevHKk2q9L4b8Ovh3V +8mWgGSTI39MqhRu+TgzUGpbBQGFY4U8ZaZTdz9Sr9S0DN3GbYdlyafTnd88+ ++7gM9I5Ux1y9L41dcGsbtJTB0k/KEqzH0pid9PpA/8syqCrjB6UuaRxdN39c +qbsMJKyrUrX/SqOyZd7cznH6+zEcfTNrGdQdjT6zR4SEjaOzEQGfZdDH5/zV +6jUkhFucU300JIOjKmty1NeRUHpN463YlAyKKC0Zz+SSIGXPM6paLIsDxx1P +BZqSMHS3cZpfUxYXHLmZMmNNQnpsasilw7K40Fik+6QHCZ9WKgU0CMmhqvcF +uRsxJEgG1jAkJeXwPcPfq/E4CZufOD/zY8rh+oj2X91xJFREJKuL6MmhytJ2 +RYEkEpJ6fwzucJZDS2tmgFEaCbpF1XtGc+XQie9cDyOXhBhjOy+ZNQy8t9vW +ub+GBAuPqz8NTRn4+1H/i/ZHJAhHfz/usJmBNiZfVR7Uk5BVH1eYymNgnrzi +sfgmEu5a3fu+6CQDOXHWleOtJPxwZoeOdzEwuMnu5ppuEiojggRW9DEwU0hw +y3gPCceyHmRojjBwa2xH240PJAh+cKr245PH2RdfU5b3kbBqz6l5H1Tl8Za2 +flvFIAkehyaTWo7I4yDncFvANAmKF03lBuPk0epL99D0zP/770yJQKo8vqge +GIucJSHiP5UXpvny2BQW/CB6joTzxz1WVrXIo8Z9FR8vfgpazjZlFzAUULi0 +ZOsZYQrWll66faxGAXUz3NJyCAo2vmmdG3migCODqxRvsymwmbdgk2ebAoof +vSPeyKFg17aALviigG07S5b1KlFgfoQVFb2QiVmONt7jqhQEKUzlrVdj4tsX +rnJXdSmYLE998kuLiaNVOjcT9CiIsFAbpvSZOHZvX3aAPgVxB3gGhAkTZWOe +UvoGFGTWP33CZ8dErm1y2jUjChr2ZA/XhzJxXOPT9T9AgeV/RqJHjzCRGkjP +f4gUtKa+MtCPZqKP4felR9dT0FW1JDr/JBPdNwdJj5pSMLIsRDQui4kZGibW +FWYUHMwRNuReY+IVdmyRlzkFM/pFrpMFdPvqzEOXbqKA36Mn36eMiU0frdzt +LSiQIi0MzeuY+E1AM7DZioIrGz+7/nnMRO0TO2151hQQXZHRFf8yMbxVKneC +tgZfebPSayYWJUpcW7mFAlN7hpvAABNDbJrFjGwpaBqojK4ZYmLPu4gL1bQ3 +R24rCBtjYnnTqzPrtlLgVJgw0j/LxNnZ7AE9Owr8Z8ainwix8L9LCesXbafH +68Buia+iLEz/faAkkvbiwbfF/FIs9DGNYv+kXfCuvsOEYOHPyhbtNnsKQuzX ++LutYmHM+MFmrgPdnmc350eos3BCXTCwkHbPw/PqdwxYyKf79XOAIwU3DZfW +ta1jYerq87dbaUeQx5x+IAt/FIicV3OiQCJ3T6yaNQvrCiwT39O2jTPqvObJ +wj9p2ptld1Ag/6dkf403C8XEzpXtoj0USvB3+7Gw2DNLuYh2ou8yTakQFqo6 +XvBQc6HA8WNU/epwFoY4CzB8aXNcJpy3H2Ph3w7ZiWu0a627j6ckslBGwWBU +0JWClAY76Zun6efVHomb0HbjPi5tTmOhr+Gsgz9t1Yq1G/sv0vffKyi/SPuX +ZlnXgiss1OxL1Kyl/eQfdiCRy8L6HL+mL7QvMDMW4D8sTDsnHLXYjQLvS4KZ +7jdZGMYAR2XauqIxWkcoFvba1W8xoz0vebIho4KFNvO8d3vSbuXf61JRzcLX +pYM5obSzjvaMttey8Hgm608S7X2T2+LGGun+q2g/lkV7bUCTjMi/LMwraWEX +017cv45Uf8HCK92dwxW0OzxJM6vXLKx2aeyuoZ3fyXm35y0LLYc9JxppB9td +CorrZWHQijDdZtr4VGhRXh/9vqmujP9beEPs5dpvLFSMclZuot1dPaXdM8LC +SKj/+Ij2Tf19j3+Ps3Aw8ntjFe2Ikl5X6V+0dfJel9K2ULIfM/hD1xf/gxXX +aEtkP4m35ydQ1VrwSCrtPkmuXPBiAuOW+4hG0r6VSlFnhAhMXZrVuZt29BKl +TSWiBJZfjW/dQts2NvP9U0kCPT/MTujQlv8tHDwgR6Bf6vPNYrSHDh4XWEQQ +eFXufccYPR6JPv6669UJfN89d6KQtmPPhyYPHQIJq8YbR2lznBzcjxoQOPxX +edFW2rUWJomVSOCZpTpeI3S9pDy6xXhtRqD5wKmdVbTd1q4q/2lFIJs5kRVD ++5fa8h4NBwK1hlxql9CeuiITo+dC4JGX+7uf0vU5IaLIMfIkkNORv/Uk7ZFx +o70b/QjMS39u/MeZgu8+G4WsAggcnPKvvE174I0NaXuQwKBnMcm+tD9V75py +iSRQ7s6+DU/o+dGrEXCJF0sgU2dUOYT2++zDxrsTCBSaNN/HoN1x/HTsgbME +bs/pWOJLz7en1pXCiQUErtC2edxNz9+mB4+o0zcIFA/fdCOEdoNWi316GYHL +7gyOLab9UOxj5tUqAgUf55ep0PP/1rulq+48I7BzI8xZ0/mRuc8DPk0SqN2V +VyBO59HFbt9P/bME9gXoasRupuCc7cG44b8E9jbFKg3T+ZWil/jvzBI2Kn6d +H1xN513sb8pJRJ6NmVRTnBGdh/uSFwYZm7PRqPey/306X33nRMRMrdm4eYtd +5HzauwNlKjZtZaOIwl7hjXQe87Zr/bfNhY2Bu6LvPKLz2152R6JfABsPNoTo +ZBtTYFx8M+fCBTam3msq/7yagnfM4myzy2y8vcU2bTntiAtFVyey2dgsnG+3 +jl4vKmMKs7YVsZEIf3UoiV5fdJ1zMoTvs1HKD/eKaFGgsvBcavxHNgbL9pff +XkXXr+eR6FB1DoYoHvQKlqTgzqvwKEUdDqY7uH52k6DbY3X42KvVHJw7fcvT +bCUFaasPHdUFDq7Qm7FaLkaBkGDg4RE7Do44zfCl0OvlgqqdQbvDOBjwJPmW +ykIKxkSteI51HPReGzHc/4OETn/ixd4mDl5v+XAwdJSE2sezENXCwcdFRBXf +CAmpEcUK1zs4ONV66YT4dxK0Pwn2/hrkoGe7uAnjCwkB1HP3K2KKKOPF023o +JGHQ1sG1z1sRLXbafA98SELfKZ5jsIASmhVG/omk9z8Bg+qEtqASWrCTGgrp +/dH0pl/Dw8uV0HDbRNuzKBKW8qfF+cko4epFZS0SR+nvhdff5mko4aYF3jbn +QkiI9FESs92uhMvcE3kmPiRImAw9V8tWQq+fDw45mJFgORpm+cVgFTZ+jI5v +nEfvN3YtPng7ShljXorMilGl9P+BJF9CnQoy+ys28taWgOgzpRRyVBVrXg6c +S31QDHKJZVsNDNTx71Xr2XCBG5ChZrRcbI8Gjs7KP0j1uA5PZdavHj+riRpV +ROP3O4WwVq4uVatDCxvrH2Yo9+eDMH9uiFesNjKGkkiddXkgH6NgvENJBw+k +3NjvcOgaLFF0q9jWpIM7vi5qiT+dDZpc6bIwd11UyjzJ2X4qC4J7ROut5unh +hqg18fsOXYLR8VMOlhl6iGErlWdrLsAmrceZlhr66CeR/HVy4zl4OL7u93Sr +Pvqmloq9bDoLAeq6b1/6rEZ8+Kict+UMcEe8X+1YYoDxb6gGL5lkMONIbRHK +NUAseKFwNzUBlKOTDtcZGmJ87N5j4QdOgKqPUY3iW0Pskp0bmfSPAZ+Hvidu +H1iDudSM9K2eSKjJeeU9ttIIL4cFfotjhcPE9b/TWpVGeN3Pcr+j5CHYpVi8 +JHPLWtTWfZso33YAxlTTDW79WIvfFq7fF5awH+7m//44mbgOrVx1T10u8AWX +jWxcJ2+MMkmyZXKnvEF2f0KVZq0xhgoyBNlNPEj5u3t1cp0xXleyV7O6xwO+ +NHOqv8EY8zYdeRtewoPBioVFOc3GuE/SrONnOg/uzTuRIdpujIFP/q238uKB +y7nosKkvxvhBOWFa7rcnZFSHr364jIsqyUgmH/aAlUv9qS1OXLw7vJA5m+sK ++RsiI37s4OKnvSucG5NcQTcyZUO6GxeLnC8r5wW7gs0P8nWnFxe1P4V6XzB1 +hfiOyV+7/LnIqgme7/LZBWZyo0wjYriYKHSZslZ2gbfr0tsLi7m4X6vhZ2KN +M/geys+yLOViSOKO6dQiZ5gqveMzRHIx6rSY8o10ZxAlOqd1Krionkx+FPF1 +BuvFDLkHtVw0ramO/meFM9x/Vejd/pqLR0Sj38ztcQIr4bsaoZ1cvDzrcVhs +uxN0bmqeknrHxV3pxy8YmTjBxL3viR4fuGick6pQKe4EGte0S74NclHAO2BN +aJ0j3H+7PvTUMBcLxgUvCpc6gpX4dtD6wcVxLwdG5SVH2J1w6GXIJBfzAoND +1xxwhIna+EzJGS52xsror3B3hNjZi7vuzXIx0k1s9JeFIyzXL1J3n+OiTW9b +1k99R7i6/97k379c/P20Xfc30xH+B0ZcMKQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.06782207471584427}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -3251,19 +8362,19 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.06782207471584427}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3277,135 +8388,113 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK +1:eJwV13k4VV0bB+Ci0mAoZD6cs88h8xwpx/OkyFCkTBmPoighiSgZyhAl0SAp +Mr1J2DtFUpEh6ZWKEhUaFMmQjOlV3/72P/u6rz2ta61n/dbarJ2B23z45tHH +/Hnz/n+e6mlu4CTnm9gudOZLDkKTV1elwtd3xkKK7fp+YRV5wJXPd0p1pkFU ++D/znyprQujWG2/4O3PhZ99MWpayCawYkUz79eYWnMgJHdqhbAO9920CJ97U +QUT0wg+JqzzAnDPYPfamDRYUWl/34gTArzeG53+8+QRnrz8K6pA8BvUb/sl/ +mTsOVTcSyHesMyDXW/V1p/ocuIjL7T3RfQHE/T1vCGzgx5bdjCvLqq9Amo55 +tY3DYuSNeNs94uVCV4Z27dhyIVTVmuY931sAyflRz/mkV2BVMtZK+l0HyXOf +T6ZfEcNmc70qfv5ikFK7c2KmUAzbo5O0hQSLQaYuPsqdFMNES7fsFSuLQf6H +yqFV9WLI0/jssWxVMShuDuJVD4jhcNcfszqrYtBbMGfwWU8c+xRTHhifLQbb +EIk+3afiaDFveshN5iYk2FuatE2tRNUrcZvEGSUgc7tVhm++BMoVcCojFEug +VMx+WmeZBIb67Jl4q1ECHW0e5FkFCQzyE3yVaFICHLsQws5CAv/ruy+U6VkC +dVuyF724JIHCbxSunc0pgTnzydZnxpK4quzg/ueMUjhodM2zOVaKvl7+zX1h +GVjlCE9Yn5LCiId6dx8sKwNC4Ghi63kpfB26dFZStAxevHKk2q9L4b8Ovh3V +8mWgGSTI39MqhRu+TgzUGpbBQGFY4U8ZaZTdz9Sr9S0DN3GbYdlyafTnd88+ ++7gM9I5Ux1y9L41dcGsbtJTB0k/KEqzH0pid9PpA/8syqCrjB6UuaRxdN39c +qbsMJKyrUrX/SqOyZd7cznH6+zEcfTNrGdQdjT6zR4SEjaOzEQGfZdDH5/zV +6jUkhFucU300JIOjKmty1NeRUHpN463YlAyKKC0Zz+SSIGXPM6paLIsDxx1P +BZqSMHS3cZpfUxYXHLmZMmNNQnpsasilw7K40Fik+6QHCZ9WKgU0CMmhqvcF +uRsxJEgG1jAkJeXwPcPfq/E4CZufOD/zY8rh+oj2X91xJFREJKuL6MmhytJ2 +RYEkEpJ6fwzucJZDS2tmgFEaCbpF1XtGc+XQie9cDyOXhBhjOy+ZNQy8t9vW +ub+GBAuPqz8NTRn4+1H/i/ZHJAhHfz/usJmBNiZfVR7Uk5BVH1eYymNgnrzi +sfgmEu5a3fu+6CQDOXHWleOtJPxwZoeOdzEwuMnu5ppuEiojggRW9DEwU0hw +y3gPCceyHmRojjBwa2xH240PJAh+cKr245PH2RdfU5b3kbBqz6l5H1Tl8Za2 +flvFIAkehyaTWo7I4yDncFvANAmKF03lBuPk0epL99D0zP/770yJQKo8vqge +GIucJSHiP5UXpvny2BQW/CB6joTzxz1WVrXIo8Z9FR8vfgpazjZlFzAUULi0 +ZOsZYQrWll66faxGAXUz3NJyCAo2vmmdG3migCODqxRvsymwmbdgk2ebAoof +vSPeyKFg17aALviigG07S5b1KlFgfoQVFb2QiVmONt7jqhQEKUzlrVdj4tsX +rnJXdSmYLE998kuLiaNVOjcT9CiIsFAbpvSZOHZvX3aAPgVxB3gGhAkTZWOe +UvoGFGTWP33CZ8dErm1y2jUjChr2ZA/XhzJxXOPT9T9AgeV/RqJHjzCRGkjP +f4gUtKa+MtCPZqKP4felR9dT0FW1JDr/JBPdNwdJj5pSMLIsRDQui4kZGibW +FWYUHMwRNuReY+IVdmyRlzkFM/pFrpMFdPvqzEOXbqKA36Mn36eMiU0frdzt +LSiQIi0MzeuY+E1AM7DZioIrGz+7/nnMRO0TO2151hQQXZHRFf8yMbxVKneC +tgZfebPSayYWJUpcW7mFAlN7hpvAABNDbJrFjGwpaBqojK4ZYmLPu4gL1bQ3 +R24rCBtjYnnTqzPrtlLgVJgw0j/LxNnZ7AE9Owr8Z8ainwix8L9LCesXbafH +68Buia+iLEz/faAkkvbiwbfF/FIs9DGNYv+kXfCuvsOEYOHPyhbtNnsKQuzX ++LutYmHM+MFmrgPdnmc350eos3BCXTCwkHbPw/PqdwxYyKf79XOAIwU3DZfW +ta1jYerq87dbaUeQx5x+IAt/FIicV3OiQCJ3T6yaNQvrCiwT39O2jTPqvObJ +wj9p2ptld1Ag/6dkf403C8XEzpXtoj0USvB3+7Gw2DNLuYh2ou8yTakQFqo6 +XvBQc6HA8WNU/epwFoY4CzB8aXNcJpy3H2Ph3w7ZiWu0a627j6ckslBGwWBU +0JWClAY76Zun6efVHomb0HbjPi5tTmOhr+Gsgz9t1Yq1G/sv0vffKyi/SPuX +ZlnXgiss1OxL1Kyl/eQfdiCRy8L6HL+mL7QvMDMW4D8sTDsnHLXYjQLvS4KZ +7jdZGMYAR2XauqIxWkcoFvba1W8xoz0vebIho4KFNvO8d3vSbuXf61JRzcLX +pYM5obSzjvaMttey8Hgm608S7X2T2+LGGun+q2g/lkV7bUCTjMi/LMwraWEX +017cv45Uf8HCK92dwxW0OzxJM6vXLKx2aeyuoZ3fyXm35y0LLYc9JxppB9td +CorrZWHQijDdZtr4VGhRXh/9vqmujP9beEPs5dpvLFSMclZuot1dPaXdM8LC +SKj/+Ij2Tf19j3+Ps3Aw8ntjFe2Ikl5X6V+0dfJel9K2ULIfM/hD1xf/gxXX +aEtkP4m35ydQ1VrwSCrtPkmuXPBiAuOW+4hG0r6VSlFnhAhMXZrVuZt29BKl +TSWiBJZfjW/dQts2NvP9U0kCPT/MTujQlv8tHDwgR6Bf6vPNYrSHDh4XWEQQ +eFXufccYPR6JPv6669UJfN89d6KQtmPPhyYPHQIJq8YbR2lznBzcjxoQOPxX +edFW2rUWJomVSOCZpTpeI3S9pDy6xXhtRqD5wKmdVbTd1q4q/2lFIJs5kRVD ++5fa8h4NBwK1hlxql9CeuiITo+dC4JGX+7uf0vU5IaLIMfIkkNORv/Uk7ZFx +o70b/QjMS39u/MeZgu8+G4WsAggcnPKvvE174I0NaXuQwKBnMcm+tD9V75py +iSRQ7s6+DU/o+dGrEXCJF0sgU2dUOYT2++zDxrsTCBSaNN/HoN1x/HTsgbME +bs/pWOJLz7en1pXCiQUErtC2edxNz9+mB4+o0zcIFA/fdCOEdoNWi316GYHL +7gyOLab9UOxj5tUqAgUf55ep0PP/1rulq+48I7BzI8xZ0/mRuc8DPk0SqN2V +VyBO59HFbt9P/bME9gXoasRupuCc7cG44b8E9jbFKg3T+ZWil/jvzBI2Kn6d +H1xN513sb8pJRJ6NmVRTnBGdh/uSFwYZm7PRqPey/306X33nRMRMrdm4eYtd +5HzauwNlKjZtZaOIwl7hjXQe87Zr/bfNhY2Bu6LvPKLz2152R6JfABsPNoTo +ZBtTYFx8M+fCBTam3msq/7yagnfM4myzy2y8vcU2bTntiAtFVyey2dgsnG+3 +jl4vKmMKs7YVsZEIf3UoiV5fdJ1zMoTvs1HKD/eKaFGgsvBcavxHNgbL9pff +XkXXr+eR6FB1DoYoHvQKlqTgzqvwKEUdDqY7uH52k6DbY3X42KvVHJw7fcvT +bCUFaasPHdUFDq7Qm7FaLkaBkGDg4RE7Do44zfCl0OvlgqqdQbvDOBjwJPmW +ykIKxkSteI51HPReGzHc/4OETn/ixd4mDl5v+XAwdJSE2sezENXCwcdFRBXf +CAmpEcUK1zs4ONV66YT4dxK0Pwn2/hrkoGe7uAnjCwkB1HP3K2KKKOPF023o +JGHQ1sG1z1sRLXbafA98SELfKZ5jsIASmhVG/omk9z8Bg+qEtqASWrCTGgrp +/dH0pl/Dw8uV0HDbRNuzKBKW8qfF+cko4epFZS0SR+nvhdff5mko4aYF3jbn +QkiI9FESs92uhMvcE3kmPiRImAw9V8tWQq+fDw45mJFgORpm+cVgFTZ+jI5v +nEfvN3YtPng7ShljXorMilGl9P+BJF9CnQoy+ys28taWgOgzpRRyVBVrXg6c +S31QDHKJZVsNDNTx71Xr2XCBG5ChZrRcbI8Gjs7KP0j1uA5PZdavHj+riRpV +ROP3O4WwVq4uVatDCxvrH2Yo9+eDMH9uiFesNjKGkkiddXkgH6NgvENJBw+k +3NjvcOgaLFF0q9jWpIM7vi5qiT+dDZpc6bIwd11UyjzJ2X4qC4J7ROut5unh +hqg18fsOXYLR8VMOlhl6iGErlWdrLsAmrceZlhr66CeR/HVy4zl4OL7u93Sr +Pvqmloq9bDoLAeq6b1/6rEZ8+Kict+UMcEe8X+1YYoDxb6gGL5lkMONIbRHK +NUAseKFwNzUBlKOTDtcZGmJ87N5j4QdOgKqPUY3iW0Pskp0bmfSPAZ+Hvidu +H1iDudSM9K2eSKjJeeU9ttIIL4cFfotjhcPE9b/TWpVGeN3Pcr+j5CHYpVi8 +JHPLWtTWfZso33YAxlTTDW79WIvfFq7fF5awH+7m//44mbgOrVx1T10u8AWX +jWxcJ2+MMkmyZXKnvEF2f0KVZq0xhgoyBNlNPEj5u3t1cp0xXleyV7O6xwO+ +NHOqv8EY8zYdeRtewoPBioVFOc3GuE/SrONnOg/uzTuRIdpujIFP/q238uKB +y7nosKkvxvhBOWFa7rcnZFSHr364jIsqyUgmH/aAlUv9qS1OXLw7vJA5m+sK ++RsiI37s4OKnvSucG5NcQTcyZUO6GxeLnC8r5wW7gs0P8nWnFxe1P4V6XzB1 +hfiOyV+7/LnIqgme7/LZBWZyo0wjYriYKHSZslZ2gbfr0tsLi7m4X6vhZ2KN +M/geys+yLOViSOKO6dQiZ5gqveMzRHIx6rSY8o10ZxAlOqd1Krionkx+FPF1 +BuvFDLkHtVw0ramO/meFM9x/Vejd/pqLR0Sj38ztcQIr4bsaoZ1cvDzrcVhs +uxN0bmqeknrHxV3pxy8YmTjBxL3viR4fuGick6pQKe4EGte0S74NclHAO2BN +aJ0j3H+7PvTUMBcLxgUvCpc6gpX4dtD6wcVxLwdG5SVH2J1w6GXIJBfzAoND +1xxwhIna+EzJGS52xsror3B3hNjZi7vuzXIx0k1s9JeFIyzXL1J3n+OiTW9b +1k99R7i6/97k379c/P20Xfc30xH+B0ZcMKQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.06782207471584427}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3416,6 +8505,7 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3443,7 +8533,8 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06782207471584427}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3451,9 +8542,9 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913298974454536`*^9}, + CellChangeTimes->{3.9913298974454536`*^9, 3.993916633069071*^9}, CellLabel-> - "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] + "Out[122]=",ExpressionUUID->"f6eaa482-07ad-4721-b5d3-1b302f15ecee"] }, Open ]], Cell[CellGroupData[{ @@ -3506,66 +8597,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + "In[123]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 173, 129, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298974999084`*^9}, - CellLabel-> - "During evaluation of \ -In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0128416120806113`*^-179\\\", \ \\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ 35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 130, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897510906*^9}, + 2, 123, 21, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993916633146426*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +In[123]:=",ExpressionUUID->"5e653149-a707-42c9-87c9-9c0e308505a7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.1321768243752935`*^-183\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 131, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298975189075`*^9}, + 2, 123, 22, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993916633151888*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +In[123]:=",ExpressionUUID->"6b114936-59e0-4932-ac1b-0c46175662b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.686145930557288`*^-187\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 123, 23, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993916633155921*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"5c396db3-99ce-4f9f-86f2-09273c5ffbab"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897526905*^9}, +during this calculation.\"", 2, 123, 24, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.9939166331593924`*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +In[123]:=",ExpressionUUID->"6aefbd2a-f241-446d-99ee-3243fcdf9847"], -Cell[BoxData["9.77956849963325`"], "Output", - CellChangeTimes->{3.991329904262455*^9}, +Cell[BoxData["11.208345983424353`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.993916653739958*^9}, CellLabel-> - "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] + "Out[123]=",ExpressionUUID->"9b204c4a-0dfa-4eac-a253-25278cf3a16a"] }, Open ]], Cell[CellGroupData[{ @@ -3632,68 +8727,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489049186344`*^9, - 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ -a57fd4094f56"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904300501*^9}, + CellChangeTimes->{{3.9918489049186344`*^9, 3.991848908595253*^9}}, CellLabel-> - "During evaluation of \ -In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + "In[124]:=",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 134, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904310505*^9}, - CellLabel-> - "During evaluation of \ -In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.199845905076303`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 135, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043185062`*^9}, +normalized machine number; precision may be lost.\"", 2, 124, 25, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993916653779312*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +In[124]:=",ExpressionUUID->"d6146c95-6efa-44d3-ad1a-20a081d0c27f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6279157807279646`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 26, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993916653784349*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"0ab68bc5-51c9-4732-a5ee-cd4c3274abec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.983043122103806`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 124, 27, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993916653787698*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"6c4920b6-6ea4-4444-97fb-e12823059251"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043256874`*^9}, +during this calculation.\"", 2, 124, 28, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993916653790637*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +In[124]:=",ExpressionUUID->"342f6334-90a8-4df8-bb2a-b778ba0184a5"], -Cell[BoxData["0.1491428555515254`"], "Output", - CellChangeTimes->{3.9913299110465336`*^9}, +Cell[BoxData["2.179321921577101`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.993916657187173*^9}, CellLabel-> - "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] + "Out[124]=",ExpressionUUID->"9a73a598-db22-4fc3-a96b-38f4e32ee3b3"] }, Open ]], Cell[CellGroupData[{ @@ -3714,8 +8813,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3760,68 +8858,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489121661835`*^9, - 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ -47c1a485c608"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911081766*^9}, + CellChangeTimes->{{3.9918489121661835`*^9, 3.9918489145264854`*^9}}, CellLabel-> - "During evaluation of \ -In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + "In[125]:=",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 138, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911090769*^9}, - CellLabel-> - "During evaluation of \ -In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.199845905076303`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 139, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911098768*^9}, +normalized machine number; precision may be lost.\"", 2, 125, 29, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.99391665721275*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +In[125]:=",ExpressionUUID->"bfefabc3-441e-444b-9165-4ef60016ab8e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6279157807279646`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 30, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.9939166572183743`*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"d8e25f17-cc50-4f00-9f82-1e8db6b31d90"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.983043122103806`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 125, 31, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993916657221971*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"e605f4c3-e0bc-4780-95b3-9f3c5529547e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299111067944`*^9}, +during this calculation.\"", 2, 125, 32, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993916657225102*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +In[125]:=",ExpressionUUID->"1e442ba8-4101-43eb-b83c-40e2dd105963"], -Cell[BoxData["6.5928699937564845`"], "Output", - CellChangeTimes->{3.9913299163114815`*^9}, +Cell[BoxData["36.989232876980005`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.99391666032447*^9}, CellLabel-> - "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] + "Out[125]=",ExpressionUUID->"28b1d449-25ff-4ebb-8ed5-a9450f5d8c81"] }, Open ]], Cell[CellGroupData[{ @@ -3842,8 +8944,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3888,68 +8989,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489192162857`*^9, - 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ -0d79e6ed8953"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163444805`*^9}, + CellChangeTimes->{{3.9918489192162857`*^9, 3.991848922582632*^9}}, CellLabel-> - "During evaluation of \ -In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + "In[126]:=",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 142, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916354479*^9}, - CellLabel-> - "During evaluation of \ -In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.199845905076303`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 143, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163634796`*^9}, +normalized machine number; precision may be lost.\"", 2, 126, 33, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993916660347633*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +In[126]:=",ExpressionUUID->"8ac562fb-0567-4f64-a208-65a0af86face"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.6279157807279646`*^-211\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 34, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993916660351494*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"90a4334a-3424-40fc-b143-a2d518d3bbc5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.983043122103806`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 126, 35, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993916660355626*^9}, + CellLabel-> + "During evaluation of \ +In[126]:=",ExpressionUUID->"a9061ca7-292a-4d10-9b33-c29bcbea7b28"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916371479*^9}, +during this calculation.\"", 2, 126, 36, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993916660358889*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +In[126]:=",ExpressionUUID->"73d71dd7-b4bf-4302-b3cc-803aee2e9bf2"], -Cell[BoxData["16.916908616104454`"], "Output", - CellChangeTimes->{3.9913299193276234`*^9}, +Cell[BoxData["11.215847460379678`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.99391666230492*^9}, CellLabel-> - "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] + "Out[126]=",ExpressionUUID->"885778f7-0f7e-40b6-89aa-ed494b43eb99"] }, Open ]], Cell[CellGroupData[{ @@ -3958,22 +9063,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991848926103155*^9, - 3.9918489295815735`*^9}},ExpressionUUID->"8c5df121-e0b9-a146-bc34-\ -b231aa8028b9"], - -Cell[BoxData["0.01412227604937243`"], "Output", - CellChangeTimes->{3.99132991935894*^9}, + CellChangeTimes->{{3.991848926103155*^9, 3.9918489295815735`*^9}}, CellLabel-> - "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] + "In[127]:=",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], + +Cell[BoxData["0.10699603350796649`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.993916662327908*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"0d8092ef-63cf-44b1-9e6c-c3045f2c3d07"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9}, - 3.991924914130762*^9},ExpressionUUID->"831a27fc-89ff-e041-97f1-\ -0ec5d19a7879"], + 3.991924914130762*^9}, + CellLabel-> + "In[128]:=",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ @@ -3996,12 +9102,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + "In[129]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.9913299193849545`*^9}, +Cell[BoxData["8.092101191336006`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.993916662335923*^9}, CellLabel-> - "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] + "Out[129]=",ExpressionUUID->"9ded835c-28eb-451d-9453-94098d00e2f7"] }, Open ]], Cell[CellGroupData[{ @@ -4011,12 +9117,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + "In[130]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913299194207077`*^9}, +Cell[BoxData["4.305935286383965`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.993916662340488*^9}, CellLabel-> - "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] + "Out[130]=",ExpressionUUID->"a2df90a1-42c5-44ca-98d8-a66ab68182d5"] }, Open ]], Cell[CellGroupData[{ @@ -4026,12 +9132,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + "In[131]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.9913299194738407`*^9}, +Cell[BoxData["34.84406406076343`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.99391666234486*^9}, CellLabel-> - "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] + "Out[131]=",ExpressionUUID->"c5d578c9-7406-46d6-b35f-ab3cc4d84476"] }, Open ]], Cell[CellGroupData[{ @@ -4221,12 +9327,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + "In[132]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[BoxData["0.04472011299838893`"], "Output", - CellChangeTimes->{3.991329919501911*^9}, +Cell[BoxData["0.006352219849921864`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.9939166623517733`*^9}, CellLabel-> - "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] + "Out[132]=",ExpressionUUID->"992caf2d-8085-4b21-8f50-e6cade28ad09"] }, Open ]], Cell[CellGroupData[{ @@ -4240,12 +9346,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + "In[133]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329919596855*^9}, +Cell[BoxData["11.1194211722896`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.993916662406274*^9}, CellLabel-> - "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] + "Out[133]=",ExpressionUUID->"dd9bbcd6-52a8-4f05-8592-85d1813b52c6"] }, Open ]], Cell[CellGroupData[{ @@ -4437,12 +9543,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + "In[134]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[BoxData["0.014190600885170185`"], "Output", - CellChangeTimes->{3.9913299196126003`*^9}, +Cell[BoxData["0.026790505103200715`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.993916662412593*^9}, CellLabel-> - "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] + "Out[134]=",ExpressionUUID->"bde5e0e1-628c-4b45-ad08-dd434d4c9a8a"] }, Open ]], Cell[CellGroupData[{ @@ -4456,12 +9562,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + "In[135]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[BoxData["7.439513700547701`"], "Output", - CellChangeTimes->{3.9913299197036095`*^9}, +Cell[BoxData["5.41445177323832`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.993916662466816*^9}, CellLabel-> - "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] + "Out[135]=",ExpressionUUID->"c2af8195-b87e-4ac3-9ce9-bd5bbe9cbf56"] }, Open ]], Cell[CellGroupData[{ @@ -4554,12 +9660,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + "In[136]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913299197165985`*^9}, +Cell[BoxData["0.1245822467542299`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.993916662472418*^9}, CellLabel-> - "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] + "Out[136]=",ExpressionUUID->"cd4f3f46-9f3c-43e3-8d87-0587e42732b0"] }, Open ]], Cell[CellGroupData[{ @@ -4649,12 +9755,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + "In[137]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991329919739599*^9}, +Cell[BoxData["0.8754177532457702`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.9939166624772797`*^9}, CellLabel-> - "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] + "Out[137]=",ExpressionUUID->"e92f0d0b-893f-4897-ad9a-a3ad0de7df50"] }, Open ]], Cell[CellGroupData[{ @@ -4777,12 +9883,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + "In[138]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913299197646008`*^9}, +Cell[BoxData["0.10906151054789807`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.993916662482142*^9}, CellLabel-> - "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] + "Out[138]=",ExpressionUUID->"87ea44b8-07bf-40fb-b0d2-5db9fddac08f"] }, Open ]], Cell[CellGroupData[{ @@ -4844,68 +9950,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848964116934*^9},ExpressionUUID->"220bdeed-2e17-e94c-a7b0-\ -3e066daf15d7"], + CellChangeTimes->{3.991848964116934*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 145, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919788595*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3919427471718177`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 139, 37, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.9939166624895973`*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +In[139]:=",ExpressionUUID->"87026cf3-8a25-4623-8999-d644ba14506c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 146, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299197985992`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3057401750999514`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 139, 38, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993916662493092*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +In[139]:=",ExpressionUUID->"5f9f4319-6c99-4d27-9882-3bb53d9120f5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 192, 147, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299198065968`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.221728348564105`*^-221\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 139, 39, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.9939166624965763`*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +In[139]:=",ExpressionUUID->"c551826e-8b91-4c0f-b749-a32595d9cf30"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919814598*^9}, +during this calculation.\"", 2, 139, 40, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993916662500149*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +In[139]:=",ExpressionUUID->"71ce08cc-4781-4a00-9062-233d22ad9146"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329923627493*^9}, +Cell[BoxData["11.119421172289591`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.993916664257629*^9}, CellLabel-> - "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] + "Out[139]=",ExpressionUUID->"a7a5f405-187c-448f-83bd-6b94db2cf868"] }, Open ]], Cell[CellGroupData[{ @@ -4967,68 +10077,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918489685110855`*^9},ExpressionUUID->"b8791a07-33fe-8c4f-9c59-\ -dd23af9a4471"], + CellChangeTimes->{3.9918489685110855`*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 149, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236609*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3919427471718177`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 140, 41, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.993916664282422*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +In[140]:=",ExpressionUUID->"18ec318a-b9c4-4292-b8be-595fcd9f862b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 150, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329923669897*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3057401750999514`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 140, 42, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.99391666428687*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +In[140]:=",ExpressionUUID->"baaf577f-ca86-46ca-ac3c-ec2d8438230f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 193, 151, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236779003`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.221728348564105`*^-221\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 140, 43, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.993916664290818*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +In[140]:=",ExpressionUUID->"bb404594-3f37-4a3f-80ba-f6edbed40461"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236858997`*^9}, +during this calculation.\"", 2, 140, 44, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9939166642939577`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +In[140]:=",ExpressionUUID->"ebb2637f-b34c-48a4-bceb-45d53f42503b"], -Cell[BoxData["7.439513700547696`"], "Output", - CellChangeTimes->{3.9913299274564743`*^9}, +Cell[BoxData["5.414451773238315`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.993916666029154*^9}, CellLabel-> - "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] + "Out[140]=",ExpressionUUID->"8a3b2297-8b4d-4645-ae34-42c10ba7937e"] }, Open ]], Cell[CellGroupData[{ @@ -5086,93 +10200,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848973885317*^9},ExpressionUUID->"3fe6e7f1-b44a-234f-af77-\ -3cf1fdaf28d9"], + CellChangeTimes->{3.991848973885317*^9}, + CellLabel-> + "In[141]:=",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk4F9sfB3DZIpQl+5K9FJGvPZxPlkR2CVniuwzZsuUKUaHlkoSSe4mk +kku2opAUbfJLSaWFSMa+xlgq/Y4/5pnn9cwz73nPmTPnKNAPO7PY2djYhvGx +eg5/tX1z3etXpnEOz9iVVgaR6WSxLt2iDO0y6dBZdV+BXrayRSOyLRhoW7Uj +83/c/LQniHmU84kydlVMYguXRTvqe7NDSRX77FOJ5sTSN6igKmhwM/b91+FX +fmm/Q4LK1XxbsUc/tcUfbehGOvpcl9SxpQaVPCnzL+jIT2ayJvbeqXjDyPav +aDbpzXtt7KZfo3wxpf1oE2lzTg/7/QnxuNrQAbTT6M1NI+xJbovROe1B9Okf +pirC5k4L86AtkEhRhYvXAltOKP95eMMwalusdrDGtpembkyajyM2Hn1eV2yi +UFFMg2cS/XNeIN4TO1HFISWofQoNLM4407G7xbt2RJXOoFzlQfVwbOaBwENZ +abMo2GpO8yj2dB7b1erQH6iGXzjnBDaPoobgjPY8KvSMvZCFnc1ssRIUpVCP +xxPlfGz5mx6JmgsUWhzYJHMT20D91GRIwyJyu8qp34gdoPe1fdT8F+KOzJYd +w56LOcK5TvU36gpnvFnAPt7AZ6zGs4K4rS1GOP8Mostg8J9/+x80/t7YUh6b +ef25RUTpGmj3FLntiV36NKvvhDQ7/EvFngzCnh7yib+Qxg5R7gv1cdjxW+dr +KkM5oFRCyz0fO7tCQWlKmwuyysrNB7E/vR5vWrnGBannnxksYsvP1h1YL8oN +69qWLvCxkahMxz5TY4Eb3ExvhdGwW+/Hrglu4IH2OLOvp7HnW95+HTbnhysu +H0+YryGRsC2/YFwTPxjVG3/xwdbqsgABQwGopzmUxWIHfr9buGP7elipSi6v +wQ5jb9cy4ReEul5rnW3sJBpUvD2TQgnBqTiefVocJJoj2ng7aMIwO/qM1wWb +/T9SQSJcGMatLXWjseVpm5xLx4QhbG3CxAPsA+YZ1a/6RICWwzXgzEmiDkZE +pPhLUfCUPjSQyUWi3pvpqb48YlDOSJtvxB4fK712y1IMPk4lHhvCXhc18HZn +sxg493+ZNOEmkUXyPh3fu+LwdW+m2zR2fbHefEmBJFwvFDcL4iFR8eBytFGU +LDjlXUu5z0eiPa6neyPLZeGLqcK5SezxVpHd5aQsuMgl/lTiJ5FOsbqovIcc +FIr282dgt9J9arhMN4HGbyZ7iACJZqf6/hpOkoeU0XJDow0kEgmxuFNjpwiR +Uu8GFERIRBavC3AMVIT8dN02Bva9L6+lJ04pwmfNm+I3sL1svZNUmxVBtaV1 +aNtG3G9btHOuthIcNZb0NhbFzx+9OZ0grgxi9pX5YeIk2ufPp2HTrwIZSvQk +VRkSoWhXbbffKtCZUvU4EntrSoE+U1IVSnusWY+w2a7RzBKcVIFi9+7yliVR +ea+nW/UjVVisNjvwrxyJuPeXnZAq2gyHyh9yqyngfhZ270fpasC2kjOdrkqi +ay45nxcS1MBkR0/eMHY6vb+P8181OONWVma2mUTM40fG5N6qQa7ODLWALdSY +z+ZivhXyq5z1/NXw/KFNbm1Q2gbeIgF0d3USSSueT0z9rg7+POOJKdokavx7 +Tm2JXQN4s2Ls57C9fnh0EQoasH0pPpNBI9GVVmU1Mx8NqBhYijXXweuIf33n +4gcNkLkp84pHD79v2aAK8XI7mEe8TbxlSCJZaTlC3kMLtrxYv8V8F4nUr0fx +/0TaMMdfZNftRCI6M2lew14bagvidDydSXRZKbPX10sbJL74n+zF5iiqqHwa +ow3xPckupAuJPl0Z3ZdZpQ2/7NReLruS6Oxl33w1JRo0CQ0K6x/A3zfVdrs7 +tw5sl++V+k0n0dUIZce77boQaqLx4uEREr2ORvrJ1w1hWfHpmZVrJFLweWfv +HWwCXWfcVga6ScT6U3tb9ijAJ48W4z+CQ0h87N5acboZ+G8erbF1HUJRNOMv +mVstIMnlp/TmvCFEn/j1XGTUEqxFPRiuw0Oo3CxybUGHFZiRPFv/MRtGxXOB +j8qyrYG3429FgSvDaHGXxP9aE/eCUM6AsQLvCOph45jp97ODwRCRx16xIyhU +5nDGCSUHYAjvBRgbQbcPPW++mOIIpWtffiwNGUWxPyQXth1yglNazVu+TY6i +eZvd+58ddAaLcJoVd9IYMvS8sGvQyQVMTBTd82TGUadkfmArbR+MnDQL568Z +R1I3khpLtrhCm9cCx1PvCXSvb6utvcB+yO/s2yfBOYnkuqb9oyf2g0x1kZZn ++SSiXbxQdq3PDX67qMScDppC+Zw/tme2uIPqER9ld6FpVLtL81PKfQ9YCk42 +Yf41jS7r/y30q/QAWPJcpa/tnUYdn6+foqV5Qrijd1EGmkF37fKUw457QXHM +iE8n3jdmQlzYQpneMJ2y1NG1YRbN71YLmDT3gczyx7GbI2dRycTHxUi9gxAn +IVCV3zuL3K9eZ3jz+wLX8F8BY7vwvlK99yDHaV8QlLDNrfvvBzKU7lw6u+QL +B5xSbZb55pBSn/+nN4f84O763jQd/zn0nS/IIW/AD/YtSok8fDKHXqfbM6xc +6aAiUtX4W2IeZccU8B15TYfiBxehI3geNTb9WWJYM6DTJl6jum4ebfCC07R6 +BpgdrNRVpuaR/MZnHTKNDOBU3a6ruDCPtNrtJLibGFDx7F7hpsV55Gzseav7 +EQNScxQaJJZxvkz0y2MvGGB05MQCx8o8kur5b8Pzbgagvue+TVwUUvYRv+y1 +wIDeK1NpjzZSyNB3siRFhwnVO209KS0K3cidjrTXY0KmZlnywx0U2vh21lTc +gAl+vXsUz2hTaNJyoatkJxNq5Yrui+tQeP1iW9NuxoT73xv3aelTaP2CkIew +ExN+DynKWJlQ6Ps5Xd6CECaEb+ye5rWmUHpD/KF7N5jw0dWcp8eHQiHaOYYx +JUwwMO4cSThIIdtbVbwGpUzIbqwzlvel0Loc8lZdOe5zZoOenx+FUiIcR2vv +MEE9sjbyC4NC8WrKQXcfM2EszWnNvQAKBea8DK7uZcLeQoMr7BEUsl5PGkf0 +MeHs0oOITOwtKWwC2t+Y4KUieFchkkJkhG551SDuo1950jSKQn72BROV4zi/ +ZMk0PJpC7lyRoRXLTLAy6lZuiKWQVaRUWJkYC447ms59PUmhxwWnbDIlWDBU +/3rKP4lCxu2zyjFSLDgYdnHnFLaWysuP5nIskNlg2vIzmUKSH+LMP6uwoCfs +1Xn+0xQaM+oRW6fLgmOyMZwCqRQ6z174wN+FBdpLKzlnMvH7a/JftnNlwaYH +RfRl7GTPmAiaGwt6q9ljg7IoFHPHcfOfAyx445eZvjcb9yfWXLhEZ8GdE/q2 +HJcoRGujM5+Es2BPoR2nUy6FPlxQ4VPKYAHPLecnzAIK3UYCAcMXWLDf6uPg +fezkibnW8iwWpPm2+68vpJC2dWuCQQ4LjrDVnr+Lnc7GmLW7woKJkx0hv65S +aPfhwo8xZSz454O5a3AxhWRlz+iZ3maBQcPGlDrsubbDWRyVeDw+uomyX6dQ +kSqyS69hgTJzef9F7N89Pc3X6lmQ+lTO+84NCt2xlS559ZwFl7LrA7pKKJS6 +zM6V3caC7CzxXNFbFKKXjPp5tLNgnSWf2n5sQc566e8dLFCSSvZ/hx3c4H5+ +6T0L2roPereXUkhp66Vo5UEWPI7co5hXRqHlD8fejpAsOPnOb/db7NcpLK2K +YRbQ41xf8JZTKKFfZ9RwnAXNzYVjUdifLr/1dvjBgmHHokLz2xTKXCtkGbuG +gA0zF1oeV1CocbbHM4qDgPqzrhzz2EM9pRGhXATM9iQfVa3E8+GORSGdlwBr +K4rnNDbpG/PTRoiA9Befq02rcH9bS2FLEQKkMmuKA7F36gurIVECfur8234R +O0OgbD9NkoDYlsNNI6vX679WSSsQ4DYqqHammkLE9bLnokoElAlbt5VjZ2Qc +/bpBhYCV87uudmKThIgApxoBWVEO05I1+LqIVcC4FgGHNSeECrDrV0QSSW0C +aJM6vk3YgyN9F/t0CDg+sDTwBduoObaly4AA9ayeVPE7+H8Ovi33AAjQfGfp +lYS93j1Ot86MgOD6Ctc8bEPzPbZVFgSIbfFNvoOdLvnt6PU9uN9i/Ilv2Pc4 +KzIKbAjw4O51WMQemIq7mWtLwMxMqIvAXQoZPBV9d86RgMQevmUdbHrVt7HT +zgTkiq/Pt8I+l1fBfnIfAdPX1I94YH+LsNaKdidA1668NRZbwEfMKuwAAbw6 +a43/Xs2zHvAO9CLgG1vI8OXV+zcdS/XxJeAYt31fDfa9dTZF7nQCtuQ+3ta8 +mjcvdt+ZSUDDE92yl6t5/QMdtgQBRrXFfu9X89oryd0BBNx/ym/bt9qv7thv +CCTAPSUoaGQ1v8hm485gAsyrmx7OrOafE9+mG0pAOeK0XlrNj/m+SzOMgO9O +RmvZainEz6xyV4sgAKGDy1zY+g4Jh5WiCNiWEa7Ih0032ntKNpoAuT+HEzdg +p6lI5IvHEFAZ4yEkgl0rOFgjFIvHS1qjWxS7/2dVG188AbsMRt+Kr+YPJfRz +JRDQ4pTBKYmt17l38U8iAUMymwJX/X94iu3h "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5186,105 +10301,105 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - +1:eJwV1Xk4F9sfB3DZIpQl+5K9FJGvPZxPlkR2CVniuwzZsuUKUaHlkoSSe4mk +kku2opAUbfJLSaWFSMa+xlgq/Y4/5pnn9cwz73nPmTPnKNAPO7PY2djYhvGx +eg5/tX1z3etXpnEOz9iVVgaR6WSxLt2iDO0y6dBZdV+BXrayRSOyLRhoW7Uj +83/c/LQniHmU84kydlVMYguXRTvqe7NDSRX77FOJ5sTSN6igKmhwM/b91+FX +fmm/Q4LK1XxbsUc/tcUfbehGOvpcl9SxpQaVPCnzL+jIT2ayJvbeqXjDyPav +aDbpzXtt7KZfo3wxpf1oE2lzTg/7/QnxuNrQAbTT6M1NI+xJbovROe1B9Okf +pirC5k4L86AtkEhRhYvXAltOKP95eMMwalusdrDGtpembkyajyM2Hn1eV2yi +UFFMg2cS/XNeIN4TO1HFISWofQoNLM4407G7xbt2RJXOoFzlQfVwbOaBwENZ +abMo2GpO8yj2dB7b1erQH6iGXzjnBDaPoobgjPY8KvSMvZCFnc1ssRIUpVCP +xxPlfGz5mx6JmgsUWhzYJHMT20D91GRIwyJyu8qp34gdoPe1fdT8F+KOzJYd +w56LOcK5TvU36gpnvFnAPt7AZ6zGs4K4rS1GOP8Mostg8J9/+x80/t7YUh6b +ef25RUTpGmj3FLntiV36NKvvhDQ7/EvFngzCnh7yib+Qxg5R7gv1cdjxW+dr +KkM5oFRCyz0fO7tCQWlKmwuyysrNB7E/vR5vWrnGBannnxksYsvP1h1YL8oN +69qWLvCxkahMxz5TY4Eb3ExvhdGwW+/Hrglu4IH2OLOvp7HnW95+HTbnhysu +H0+YryGRsC2/YFwTPxjVG3/xwdbqsgABQwGopzmUxWIHfr9buGP7elipSi6v +wQ5jb9cy4ReEul5rnW3sJBpUvD2TQgnBqTiefVocJJoj2ng7aMIwO/qM1wWb +/T9SQSJcGMatLXWjseVpm5xLx4QhbG3CxAPsA+YZ1a/6RICWwzXgzEmiDkZE +pPhLUfCUPjSQyUWi3pvpqb48YlDOSJtvxB4fK712y1IMPk4lHhvCXhc18HZn +sxg493+ZNOEmkUXyPh3fu+LwdW+m2zR2fbHefEmBJFwvFDcL4iFR8eBytFGU +LDjlXUu5z0eiPa6neyPLZeGLqcK5SezxVpHd5aQsuMgl/lTiJ5FOsbqovIcc +FIr282dgt9J9arhMN4HGbyZ7iACJZqf6/hpOkoeU0XJDow0kEgmxuFNjpwiR +Uu8GFERIRBavC3AMVIT8dN02Bva9L6+lJ04pwmfNm+I3sL1svZNUmxVBtaV1 +aNtG3G9btHOuthIcNZb0NhbFzx+9OZ0grgxi9pX5YeIk2ufPp2HTrwIZSvQk +VRkSoWhXbbffKtCZUvU4EntrSoE+U1IVSnusWY+w2a7RzBKcVIFi9+7yliVR +ea+nW/UjVVisNjvwrxyJuPeXnZAq2gyHyh9yqyngfhZ270fpasC2kjOdrkqi +ay45nxcS1MBkR0/eMHY6vb+P8181OONWVma2mUTM40fG5N6qQa7ODLWALdSY +z+ZivhXyq5z1/NXw/KFNbm1Q2gbeIgF0d3USSSueT0z9rg7+POOJKdokavx7 +Tm2JXQN4s2Ls57C9fnh0EQoasH0pPpNBI9GVVmU1Mx8NqBhYijXXweuIf33n +4gcNkLkp84pHD79v2aAK8XI7mEe8TbxlSCJZaTlC3kMLtrxYv8V8F4nUr0fx +/0TaMMdfZNftRCI6M2lew14bagvidDydSXRZKbPX10sbJL74n+zF5iiqqHwa +ow3xPckupAuJPl0Z3ZdZpQ2/7NReLruS6Oxl33w1JRo0CQ0K6x/A3zfVdrs7 +tw5sl++V+k0n0dUIZce77boQaqLx4uEREr2ORvrJ1w1hWfHpmZVrJFLweWfv +HWwCXWfcVga6ScT6U3tb9ijAJ48W4z+CQ0h87N5acboZ+G8erbF1HUJRNOMv +mVstIMnlp/TmvCFEn/j1XGTUEqxFPRiuw0Oo3CxybUGHFZiRPFv/MRtGxXOB +j8qyrYG3429FgSvDaHGXxP9aE/eCUM6AsQLvCOph45jp97ODwRCRx16xIyhU +5nDGCSUHYAjvBRgbQbcPPW++mOIIpWtffiwNGUWxPyQXth1yglNazVu+TY6i +eZvd+58ddAaLcJoVd9IYMvS8sGvQyQVMTBTd82TGUadkfmArbR+MnDQL568Z +R1I3khpLtrhCm9cCx1PvCXSvb6utvcB+yO/s2yfBOYnkuqb9oyf2g0x1kZZn ++SSiXbxQdq3PDX67qMScDppC+Zw/tme2uIPqER9ld6FpVLtL81PKfQ9YCk42 +Yf41jS7r/y30q/QAWPJcpa/tnUYdn6+foqV5Qrijd1EGmkF37fKUw457QXHM +iE8n3jdmQlzYQpneMJ2y1NG1YRbN71YLmDT3gczyx7GbI2dRycTHxUi9gxAn +IVCV3zuL3K9eZ3jz+wLX8F8BY7vwvlK99yDHaV8QlLDNrfvvBzKU7lw6u+QL +B5xSbZb55pBSn/+nN4f84O763jQd/zn0nS/IIW/AD/YtSok8fDKHXqfbM6xc +6aAiUtX4W2IeZccU8B15TYfiBxehI3geNTb9WWJYM6DTJl6jum4ebfCC07R6 +BpgdrNRVpuaR/MZnHTKNDOBU3a6ruDCPtNrtJLibGFDx7F7hpsV55Gzseav7 +EQNScxQaJJZxvkz0y2MvGGB05MQCx8o8kur5b8Pzbgagvue+TVwUUvYRv+y1 +wIDeK1NpjzZSyNB3siRFhwnVO209KS0K3cidjrTXY0KmZlnywx0U2vh21lTc +gAl+vXsUz2hTaNJyoatkJxNq5Yrui+tQeP1iW9NuxoT73xv3aelTaP2CkIew +ExN+DynKWJlQ6Ps5Xd6CECaEb+ye5rWmUHpD/KF7N5jw0dWcp8eHQiHaOYYx +JUwwMO4cSThIIdtbVbwGpUzIbqwzlvel0Loc8lZdOe5zZoOenx+FUiIcR2vv +MEE9sjbyC4NC8WrKQXcfM2EszWnNvQAKBea8DK7uZcLeQoMr7BEUsl5PGkf0 +MeHs0oOITOwtKWwC2t+Y4KUieFchkkJkhG551SDuo1950jSKQn72BROV4zi/ +ZMk0PJpC7lyRoRXLTLAy6lZuiKWQVaRUWJkYC447ms59PUmhxwWnbDIlWDBU +/3rKP4lCxu2zyjFSLDgYdnHnFLaWysuP5nIskNlg2vIzmUKSH+LMP6uwoCfs +1Xn+0xQaM+oRW6fLgmOyMZwCqRQ6z174wN+FBdpLKzlnMvH7a/JftnNlwaYH +RfRl7GTPmAiaGwt6q9ljg7IoFHPHcfOfAyx445eZvjcb9yfWXLhEZ8GdE/q2 +HJcoRGujM5+Es2BPoR2nUy6FPlxQ4VPKYAHPLecnzAIK3UYCAcMXWLDf6uPg +fezkibnW8iwWpPm2+68vpJC2dWuCQQ4LjrDVnr+Lnc7GmLW7woKJkx0hv65S +aPfhwo8xZSz454O5a3AxhWRlz+iZ3maBQcPGlDrsubbDWRyVeDw+uomyX6dQ +kSqyS69hgTJzef9F7N89Pc3X6lmQ+lTO+84NCt2xlS559ZwFl7LrA7pKKJS6 +zM6V3caC7CzxXNFbFKKXjPp5tLNgnSWf2n5sQc566e8dLFCSSvZ/hx3c4H5+ +6T0L2roPereXUkhp66Vo5UEWPI7co5hXRqHlD8fejpAsOPnOb/db7NcpLK2K +YRbQ41xf8JZTKKFfZ9RwnAXNzYVjUdifLr/1dvjBgmHHokLz2xTKXCtkGbuG +gA0zF1oeV1CocbbHM4qDgPqzrhzz2EM9pRGhXATM9iQfVa3E8+GORSGdlwBr +K4rnNDbpG/PTRoiA9Befq02rcH9bS2FLEQKkMmuKA7F36gurIVECfur8234R +O0OgbD9NkoDYlsNNI6vX679WSSsQ4DYqqHammkLE9bLnokoElAlbt5VjZ2Qc +/bpBhYCV87uudmKThIgApxoBWVEO05I1+LqIVcC4FgGHNSeECrDrV0QSSW0C +aJM6vk3YgyN9F/t0CDg+sDTwBduoObaly4AA9ayeVPE7+H8Ovi33AAjQfGfp +lYS93j1Ot86MgOD6Ctc8bEPzPbZVFgSIbfFNvoOdLvnt6PU9uN9i/Ilv2Pc4 +KzIKbAjw4O51WMQemIq7mWtLwMxMqIvAXQoZPBV9d86RgMQevmUdbHrVt7HT +zgTkiq/Pt8I+l1fBfnIfAdPX1I94YH+LsNaKdidA1668NRZbwEfMKuwAAbw6 +a43/Xs2zHvAO9CLgG1vI8OXV+zcdS/XxJeAYt31fDfa9dTZF7nQCtuQ+3ta8 +mjcvdt+ZSUDDE92yl6t5/QMdtgQBRrXFfu9X89oryd0BBNx/ym/bt9qv7thv +CCTAPSUoaGQ1v8hm485gAsyrmx7OrOafE9+mG0pAOeK0XlrNj/m+SzOMgO9O +RmvZainEz6xyV4sgAKGDy1zY+g4Jh5WiCNiWEa7Ih0032ntKNpoAuT+HEzdg +p6lI5IvHEFAZ4yEkgl0rOFgjFIvHS1qjWxS7/2dVG188AbsMRt+Kr+YPJfRz +JRDQ4pTBKYmt17l38U8iAUMymwJX/X94iu3h "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "PlotRange" -> {{0, 180}, {0.6872725538510019, 1.419457830941434}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6872725538510035}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5296,21 +10411,20 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.6872725538510019, 1.419457830941434}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.6872725538510035}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5324,103 +10438,104 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - +1:eJwV1Xk4F9sfB3DZIpQl+5K9FJGvPZxPlkR2CVniuwzZsuUKUaHlkoSSe4mk +kku2opAUbfJLSaWFSMa+xlgq/Y4/5pnn9cwz73nPmTPnKNAPO7PY2djYhvGx +eg5/tX1z3etXpnEOz9iVVgaR6WSxLt2iDO0y6dBZdV+BXrayRSOyLRhoW7Uj +83/c/LQniHmU84kydlVMYguXRTvqe7NDSRX77FOJ5sTSN6igKmhwM/b91+FX +fmm/Q4LK1XxbsUc/tcUfbehGOvpcl9SxpQaVPCnzL+jIT2ayJvbeqXjDyPav +aDbpzXtt7KZfo3wxpf1oE2lzTg/7/QnxuNrQAbTT6M1NI+xJbovROe1B9Okf +pirC5k4L86AtkEhRhYvXAltOKP95eMMwalusdrDGtpembkyajyM2Hn1eV2yi +UFFMg2cS/XNeIN4TO1HFISWofQoNLM4407G7xbt2RJXOoFzlQfVwbOaBwENZ +abMo2GpO8yj2dB7b1erQH6iGXzjnBDaPoobgjPY8KvSMvZCFnc1ssRIUpVCP +xxPlfGz5mx6JmgsUWhzYJHMT20D91GRIwyJyu8qp34gdoPe1fdT8F+KOzJYd +w56LOcK5TvU36gpnvFnAPt7AZ6zGs4K4rS1GOP8Mostg8J9/+x80/t7YUh6b +ef25RUTpGmj3FLntiV36NKvvhDQ7/EvFngzCnh7yib+Qxg5R7gv1cdjxW+dr +KkM5oFRCyz0fO7tCQWlKmwuyysrNB7E/vR5vWrnGBannnxksYsvP1h1YL8oN +69qWLvCxkahMxz5TY4Eb3ExvhdGwW+/Hrglu4IH2OLOvp7HnW95+HTbnhysu +H0+YryGRsC2/YFwTPxjVG3/xwdbqsgABQwGopzmUxWIHfr9buGP7elipSi6v +wQ5jb9cy4ReEul5rnW3sJBpUvD2TQgnBqTiefVocJJoj2ng7aMIwO/qM1wWb +/T9SQSJcGMatLXWjseVpm5xLx4QhbG3CxAPsA+YZ1a/6RICWwzXgzEmiDkZE +pPhLUfCUPjSQyUWi3pvpqb48YlDOSJtvxB4fK712y1IMPk4lHhvCXhc18HZn +sxg493+ZNOEmkUXyPh3fu+LwdW+m2zR2fbHefEmBJFwvFDcL4iFR8eBytFGU +LDjlXUu5z0eiPa6neyPLZeGLqcK5SezxVpHd5aQsuMgl/lTiJ5FOsbqovIcc +FIr282dgt9J9arhMN4HGbyZ7iACJZqf6/hpOkoeU0XJDow0kEgmxuFNjpwiR +Uu8GFERIRBavC3AMVIT8dN02Bva9L6+lJ04pwmfNm+I3sL1svZNUmxVBtaV1 +aNtG3G9btHOuthIcNZb0NhbFzx+9OZ0grgxi9pX5YeIk2ufPp2HTrwIZSvQk +VRkSoWhXbbffKtCZUvU4EntrSoE+U1IVSnusWY+w2a7RzBKcVIFi9+7yliVR +ea+nW/UjVVisNjvwrxyJuPeXnZAq2gyHyh9yqyngfhZ270fpasC2kjOdrkqi +ay45nxcS1MBkR0/eMHY6vb+P8181OONWVma2mUTM40fG5N6qQa7ODLWALdSY +z+ZivhXyq5z1/NXw/KFNbm1Q2gbeIgF0d3USSSueT0z9rg7+POOJKdokavx7 +Tm2JXQN4s2Ls57C9fnh0EQoasH0pPpNBI9GVVmU1Mx8NqBhYijXXweuIf33n +4gcNkLkp84pHD79v2aAK8XI7mEe8TbxlSCJZaTlC3kMLtrxYv8V8F4nUr0fx +/0TaMMdfZNftRCI6M2lew14bagvidDydSXRZKbPX10sbJL74n+zF5iiqqHwa +ow3xPckupAuJPl0Z3ZdZpQ2/7NReLruS6Oxl33w1JRo0CQ0K6x/A3zfVdrs7 +tw5sl++V+k0n0dUIZce77boQaqLx4uEREr2ORvrJ1w1hWfHpmZVrJFLweWfv +HWwCXWfcVga6ScT6U3tb9ijAJ48W4z+CQ0h87N5acboZ+G8erbF1HUJRNOMv +mVstIMnlp/TmvCFEn/j1XGTUEqxFPRiuw0Oo3CxybUGHFZiRPFv/MRtGxXOB +j8qyrYG3429FgSvDaHGXxP9aE/eCUM6AsQLvCOph45jp97ODwRCRx16xIyhU +5nDGCSUHYAjvBRgbQbcPPW++mOIIpWtffiwNGUWxPyQXth1yglNazVu+TY6i +eZvd+58ddAaLcJoVd9IYMvS8sGvQyQVMTBTd82TGUadkfmArbR+MnDQL568Z +R1I3khpLtrhCm9cCx1PvCXSvb6utvcB+yO/s2yfBOYnkuqb9oyf2g0x1kZZn ++SSiXbxQdq3PDX67qMScDppC+Zw/tme2uIPqER9ld6FpVLtL81PKfQ9YCk42 +Yf41jS7r/y30q/QAWPJcpa/tnUYdn6+foqV5Qrijd1EGmkF37fKUw457QXHM +iE8n3jdmQlzYQpneMJ2y1NG1YRbN71YLmDT3gczyx7GbI2dRycTHxUi9gxAn +IVCV3zuL3K9eZ3jz+wLX8F8BY7vwvlK99yDHaV8QlLDNrfvvBzKU7lw6u+QL +B5xSbZb55pBSn/+nN4f84O763jQd/zn0nS/IIW/AD/YtSok8fDKHXqfbM6xc +6aAiUtX4W2IeZccU8B15TYfiBxehI3geNTb9WWJYM6DTJl6jum4ebfCC07R6 +BpgdrNRVpuaR/MZnHTKNDOBU3a6ruDCPtNrtJLibGFDx7F7hpsV55Gzseav7 +EQNScxQaJJZxvkz0y2MvGGB05MQCx8o8kur5b8Pzbgagvue+TVwUUvYRv+y1 +wIDeK1NpjzZSyNB3siRFhwnVO209KS0K3cidjrTXY0KmZlnywx0U2vh21lTc +gAl+vXsUz2hTaNJyoatkJxNq5Yrui+tQeP1iW9NuxoT73xv3aelTaP2CkIew +ExN+DynKWJlQ6Ps5Xd6CECaEb+ye5rWmUHpD/KF7N5jw0dWcp8eHQiHaOYYx +JUwwMO4cSThIIdtbVbwGpUzIbqwzlvel0Loc8lZdOe5zZoOenx+FUiIcR2vv +MEE9sjbyC4NC8WrKQXcfM2EszWnNvQAKBea8DK7uZcLeQoMr7BEUsl5PGkf0 +MeHs0oOITOwtKWwC2t+Y4KUieFchkkJkhG551SDuo1950jSKQn72BROV4zi/ +ZMk0PJpC7lyRoRXLTLAy6lZuiKWQVaRUWJkYC447ms59PUmhxwWnbDIlWDBU +/3rKP4lCxu2zyjFSLDgYdnHnFLaWysuP5nIskNlg2vIzmUKSH+LMP6uwoCfs +1Xn+0xQaM+oRW6fLgmOyMZwCqRQ6z174wN+FBdpLKzlnMvH7a/JftnNlwaYH +RfRl7GTPmAiaGwt6q9ljg7IoFHPHcfOfAyx445eZvjcb9yfWXLhEZ8GdE/q2 +HJcoRGujM5+Es2BPoR2nUy6FPlxQ4VPKYAHPLecnzAIK3UYCAcMXWLDf6uPg +fezkibnW8iwWpPm2+68vpJC2dWuCQQ4LjrDVnr+Lnc7GmLW7woKJkx0hv65S +aPfhwo8xZSz454O5a3AxhWRlz+iZ3maBQcPGlDrsubbDWRyVeDw+uomyX6dQ +kSqyS69hgTJzef9F7N89Pc3X6lmQ+lTO+84NCt2xlS559ZwFl7LrA7pKKJS6 +zM6V3caC7CzxXNFbFKKXjPp5tLNgnSWf2n5sQc566e8dLFCSSvZ/hx3c4H5+ +6T0L2roPereXUkhp66Vo5UEWPI7co5hXRqHlD8fejpAsOPnOb/db7NcpLK2K +YRbQ41xf8JZTKKFfZ9RwnAXNzYVjUdifLr/1dvjBgmHHokLz2xTKXCtkGbuG +gA0zF1oeV1CocbbHM4qDgPqzrhzz2EM9pRGhXATM9iQfVa3E8+GORSGdlwBr +K4rnNDbpG/PTRoiA9Befq02rcH9bS2FLEQKkMmuKA7F36gurIVECfur8234R +O0OgbD9NkoDYlsNNI6vX679WSSsQ4DYqqHammkLE9bLnokoElAlbt5VjZ2Qc +/bpBhYCV87uudmKThIgApxoBWVEO05I1+LqIVcC4FgGHNSeECrDrV0QSSW0C +aJM6vk3YgyN9F/t0CDg+sDTwBduoObaly4AA9ayeVPE7+H8Ovi33AAjQfGfp +lYS93j1Ot86MgOD6Ctc8bEPzPbZVFgSIbfFNvoOdLvnt6PU9uN9i/Ilv2Pc4 +KzIKbAjw4O51WMQemIq7mWtLwMxMqIvAXQoZPBV9d86RgMQevmUdbHrVt7HT +zgTkiq/Pt8I+l1fBfnIfAdPX1I94YH+LsNaKdidA1668NRZbwEfMKuwAAbw6 +a43/Xs2zHvAO9CLgG1vI8OXV+zcdS/XxJeAYt31fDfa9dTZF7nQCtuQ+3ta8 +mjcvdt+ZSUDDE92yl6t5/QMdtgQBRrXFfu9X89oryd0BBNx/ym/bt9qv7thv +CCTAPSUoaGQ1v8hm485gAsyrmx7OrOafE9+mG0pAOeK0XlrNj/m+SzOMgO9O +RmvZainEz6xyV4sgAKGDy1zY+g4Jh5WiCNiWEa7Ih0032ntKNpoAuT+HEzdg +p6lI5IvHEFAZ4yEkgl0rOFgjFIvHS1qjWxS7/2dVG188AbsMRt+Kr+YPJfRz +JRDQ4pTBKYmt17l38U8iAUMymwJX/X94iu3h "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.6872725538510019, 1.419457830941434}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.6872725538510035}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5430,7 +10545,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5311368545847414}, + AxesOrigin->{0, 0.6872725538510035}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5458,7 +10574,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6872725538510019, 1.419457830941434}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5466,9 +10583,9 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913301734961166`*^9}, + CellChangeTimes->{3.9913301734961166`*^9, 3.9939168024265833`*^9}, CellLabel-> - "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] + "Out[141]=",ExpressionUUID->"81bfdc95-10e9-4fd8-852e-928339611873"] }, Open ]], Cell[CellGroupData[{ @@ -5531,213 +10648,162 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991848978152012*^9, - 3.99184898469532*^9}},ExpressionUUID->"ab29778f-f183-804b-b871-\ -4070462057d7"], + CellChangeTimes->{{3.991848978152012*^9, 3.99184898469532*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 195, - 153, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913301737143345`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.14935042893995`*^-264\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 45, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993916802500098*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +In[142]:=",ExpressionUUID->"4af5ddfc-9da4-4fd7-a581-324e6f3b3111"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.349106582727181`*^-275\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 46, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.9939168025034647`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"bbc924b2-09d9-4292-949e-4614e49e11d8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2259356540752922`*^-286\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 195, 154, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173723337*^9}, + 142, 47, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993916802506794*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 195, 155, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173731432*^9}, - CellLabel-> - "During evaluation of \ -In[195]:=",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +In[142]:=",ExpressionUUID->"81b6ef9c-c905-4765-a9ce-6b2970d7433e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173739336*^9}, +during this calculation.\"", 2, 142, 48, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993916802509869*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +In[142]:=",ExpressionUUID->"9d75b16d-36c8-4523-a51c-a55e798697bd"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3BflIYoMjPuufei7MyM6/0ulRkRQtlZJbuUkZUR5ac0UGYo +CedEdhEaVFpESyUtZRVKJb/TX/fxfDw+5/M49/N5vd+fzyE8g2y9ubm4uBb/ +x8X173dmsKuTnV5i9Pe/1m2MWjTqzRc/uH4gAbJDuBT4S2UARR54ig+cAE6C +gMStElXYv/VSP89AMXzgU2o+U2IEK8bETsz2X4GcpjH1bSVW8LrFKmiqvx0U +0y0Tos67wmb2yKvJ/sdgvKdcX78wEGb7dU9N9A/BxNY0BZOsQ9BhfKHkUfF3 +qMqLtssv/B9IvW784Kk8B+9ubJdJ1TsDKwPcLvEZ8yD/Y+drner5cGLt5mYr ++0WYe1gqaPBCMTzLVm+bXL4Mj3HP+kc2l0J6SewDbokVKHuxb7TnxkUQO/nu +SFaeMCoeLuCV8agAcaWrh3+WCSN/en2Dzu4KkGxPjnUhhfH6NhU0D6sAmYk1 ++xQ6hLGp/GynR1IFyFkGuzd/EkayqC3RtrwCNHnndN5prsTCvX5DehMVYB0u +OqzRvRJfWQaT4pGXIcXOzOjxjAiaXC31ehNTCZK1PZLc/4li38KFiVuSK6FK +2O7H2qWimN8buKk2oxKePnYlj8uK4vqzp6sDCyqBbRPOtDEVxddXfOZPt1VC ++5aChQ9zRDHxXd3N2v+qYG7zdM99QzG8f99zjWxsFWSWRVbMbRbDEQ9u7tbk +KmAv5EpVsRHD5UNvvBwzqsDy5pL1x7zFUGy4oS0irwpyjRk1lhlimPbqwz2/ +5ipYhxZn7r4Ww2Ze1QvCM1UQplfk1pUgjuUFvDmpPtVgXigwZXFUHBWCCh4N +B1QDky86teeUOHavjHQyCKuGh70O1JOL4jgZUGPfH1sNqsH8PIM94hh+b+pH +d3Y1fCqLKPsmKYEFLuoXCruqYedKq9FVNRIokblbKEGYBM2o5vj8FglcbqD/ +wU6UhCVDq0WJWxLoedZhkC1BQmM1D8g/k8ApaWODFhkSRC0aM9XnJTB9RWPZ +nTUkPIxna22ykMRrMcBxBBI2jv+KDHwniQmnNV1s/Ug4aHpS8cZXSeQy8t9y +bTcJVUUqz4VnJDFPIuCQ3F4SxO3c9RoXrcKaZ/znR0NI+Npw8weP6ir8a235 +c2cUCVkJmeE5B1ahcX3H2/pjJAyJyAd2LpPCFr54azeSBLGgVmkxMSmMYFjH +hV4hwfKO431/hhQKxYxPJdSSUBeZriyoKYXBd9ZdOttAQtrriREnRykMKRUy +u9xGgkZ5s+94sRRGkv5R5g9JiDe08ZBcJ41NMRFTUaMkmLrmf9PdII1pBdeP +u4yTIBD3JdHeUhpbiq7NGUyScK4jqSzTXRqvBgsZj0+R0GDe9GXhEWk0CD2T +rvaHhAlH1v7vz6QxPmzdDrElFNRHBvOtGJbG5LMJi28tpeDQuWvZqmPSGFRP +pocso4D/zfZmf24ZdFGSW9a6nAIF36NcbxRlcGlkroCWGAWu+6bT7kXJoHSP +vHsyiwK5MxukRpJkcOcx+4PcchS9fv+r5MuUwS3JyQFR8hRE/lnzcEOJDFrg +mSGvNRScSnQVabwngzeXooSgGgX3jt8uKJWWRa0ry4Ue6FGgX5VTe6hVFgNl +dQN+WlKwsb9nbuyOLN5+2fJnbgsFVly8Jm6PZbHF8MhLLmsKvGwDn8F7Wcw3 +qEj/u5WCzVFEbNwCBlb6q9Y+s6MgWHbm/HolBipwVh8X3EnBdE3mnVk1BkqZ +1piP0I40VRqltBgoKVDm3O5CQVKIuw7TiIHWZFHsbjcKcju673DbMFDYTOVL +ricFnb4Fox376fkWp9VG+1Fg9kdPKDqKgWqLuARU/CnoyezV0Ypj4LGO4pvP +aT9rXBxXcoSB8zn7bFT3UDC2NFwo6RwDtyeWfr66l4KwQgFdThEDjboebbAJ +pOCnVvmO6VIGLmWb/f1Mm8d1sMS7moGzHzTzhYMpECdNdTe3M7BxY3+mSSgF +eRvf7fh7i/6/x7SX9tBmPouJq7vLwOFN7K82YRSocNd0yfcxcB3j7TubcAo2 +2Env5PvEwB/nDZs09lNw+1N9XOtXBvLsOHSghLZljG1pxCQD3dVaioQjKNhe +ljL28RcDr63fqztCO+DnZNydZQQabT0We+AgvV8hPqIfhAhM3PDZ6RXtRSPP +K3jECTwvyLsWIikofdHx1IhJYLTD3oFZ2uF26wJ2KhC41lnvkm0U/T73L/8X +qUwgadEadZH24PVTyld1CCxr/sOwiKbgsu6S9scGBGYLrZs5QzuSPLR9AgnU +49PueUtbtNg3QcmCwAqhw0cCYigYlnwpZraVQC9wD6ykfSVra6WPPYGxWkJO +X2hbJ+kNFLkRqMteaex6iAKZv5V7W3cROOE+ZZxF++t+Js8rfwLXfO7ecpN2 +0/jp7F+BBAbe9vCYop3qt1RVPJxAia7EWEYsBQ5vYzu0DxLYFfPnohlttvOU +47ZDBL7SyR4Mov3tsd9YcCKBbxeyiSzabRavEjNSCZxr2xtSQzuj00bi8jEC +I34aP3xIeyfnVlXXCQJluPYbfaGtWKe/8eMZAps+P2nhjqNgVrX6GW8egSlJ +qpZitO9cYAUxiwks9dg+upr2aUY2L14gMLmLUaRLe1cOf67LZQJ9b7r4GdPW +EIpXi6IIvCExZGxJmyt9ujO7jsC6zQlatrR7eHY71zUTmJEibGBP+1z04PiT +NgJFHu9x/Oc907ZJkzcJlHvqcezfeP3A25KCdwnkmbv3/N98iz4akMoPCXzh +l7R+I+2nbuQm8z4C1ae82tfRLhlgv/B9TuCmtRtcFWmH2uQEJ72m99f/l4gE +bexetvD8MIGWeb4jvLQFjBPOtn0m8FSC98tRej1eNc+oD44RqJn08OsT2pe1 +9tz6/Z3A5zeTpOppR1a+3iExS6+HhFfAGdqiBXeS7XiYWPxoebA17WExjlTo +IiZ+ci+UU6B9JZOi/reMic6OT//+pvfXOiH3ZbcYE0WimmXz/uXjt0DoJykm +Trqo+fv/y0dYIt9CJhPnRZ880/iXB+8AjfXKTBxdaKB1jc6Xw+Cb265rmXg+ +qEv2EG32dnuXaB0mCqyQ0jGk3WZqlFqPTKzoLf9QTed3Vmn5oIo9E317HwTv +o/M/kycZr+nMRIdR9CJoTwnKsfXcmNjt01rUTdfP2He93Rv9mUjkey4UoT3U +7DXjHMPEJIH+5CMHKHitEpjjnsDE6YfG32Rpvyw4YOiTwsRvE11kDV2/TxOP +JYQcZ6JCeY3iE7reuy3qBVJLmdhUIqb0je4Pt6/doI5dYqLsI2/TMNqdavfs +sqqZeNdzvnWS7ifXhd/m5jcy8V5Xw40PdL+58mKJwtX7TAyzfruaovtT7h5X +GJpm4p7Cbrs7dL8788pv6OMvJirV6yTJ0j5pHZY0Ok97VZtM+G46/5qpd38u +ZuHZS98yReh+mfCb2i4ow8JJCDiq50PnLX1BsOFmFvY0rapb6E6B35yg8AYL +FoZpDY9o0f3ZJ0iyzmQrCy/IKWS7u1Lgvk3tj60zC8vGFriTdH+3W+WU6h/I +QqkvpW1rnSgwrLhcePo0C4X5Fp9vsaHgBaOiYNNZFnJ8nVuf0OdH5Ony/KkC +FiYuM6j7RJ8v9fFl52zLWZj5bFyH34quH8fCbIEWFr6QZ53VM6dgzYKTmclv +Wcg1evWC6gY6b25RcfuV2fghhqpIUafgau/BWLm1bAyN1avbQZ93duYHDvVq +s3FllFydiioFJ7T3RWsAG+X6c3LuKlGwjD/owJgNG63yxPnG6fOTt9Ez2CeC +jQNXMo36pCiYFDJ3d2hno57Ze5Djo2AggPlw9202HkwyvJ+7gM7XrV8Qe4+N +D6w+rxTgpSAzskL24lM2mpN9/aNcFKgP8b+eHWGjTBe/5YlfJARSD1zyhOVQ +17JmPIi+b4xY2+8Y3iWHoxBtnPyIhOGj7g6hfPJ4+DNTyiOLHj+izFTnl0dj +I+9XIcdJ+GEyOzq6XB5trKrex/2Pvr/xnEjyl5THqT6TBznpJKgf7Kh1V5HH +A/MmzPpEEmK85YWtt8mjQXlUaWEYfZ8z+vpAqUAeccROXMeWBLPxCLP3Ogo4 +8S60v3gJfR/zWhRWG7saC9yrLIbrq+jvCTHulPY1qHhRQntGqxKE7stnkOOK +qJYsnbursgKkUqu36ugoo4iYnXnW13LIVtJbLuyrghHyB7xJ/YvQLble+/tx +VUzTbrRzSCsDfan2TLWnaqixS7DocG0JCPAUh3skqGNKCNeMPs95kImXNXSS +X0uP//Jqdl0RLJbbWWd7ey1WbNvU/k6gAFQ5EtURLhrIDolmhC85B6GDQh3m +XJpYd5Pvq+O3bBj/ftTeLFsTdYw2RrZwToOJ2q1cMxUtLDQd4pa7mQXXvxv8 +/tGjhSZvAlnKlschUFnj+SNvbezZ3ZBu7J4BnLFdvU6LdbAHkpc46afBJrb4 +lmXFOlhh9lrS/noyrI5LO9Cuq4v5dx+89KhMBEVvvVa557qolH9Sd6YhDryv ++x2uDVmH+3wn3WRORUNrYe+uSRE97P7Ubl/4MwKmLs7/UKvXQwvbIfGyZeHg +JVexOHeLPlaN9ZQ7DAfDpGKWzpUJfezb/Ilb8v0eaCj5/XY61QCHXAaSBLR9 +wXkjCw1kDDFNs+dLm6kXzPUuEuhgGOIOhwzWSj0vKPQee2HOMsSg66aeoWu8 +4ENyY4TzakNstBZ7ab3EC0K7rKsPahhi59h+kYx7npBmFS3TsNkQbZcXmwpt +84Qmx74/WkGG+Lh3Ypegnwes2pvSqNpmiCYO3CmEhxtkzPtop7cbosqhNo1K +UzfgPrGZ+thpiFnvB+PN1N1gpG5BeWGXIXZI5b2vmXeFJq7D2UJPDLGgb3+H +VYErOJ+Mi5h5b4iRHYPvT751gezmg9rXl3LwXZP8ACt0J4gsCaC2bOdgZ/WC +IrcbTlBiHBM54cTBGSmt/N2XnEAjJsM4aycHPyrKnE3JcgKrCbJvwIODV1c3 +eP/wdoLkp9OzXgEcFEpk/7q81Al+FsduiIznYAqRusLH2RGeG2Q9KavgIKOe +60Qb73bw21dyzqyKgyXF+f7T4w4wU3XV+yvJQZMI/X79Fw4gxBz4sbaOg7md +KaY/KAewWCQtda2NgypPt9touztAS2/Zrid9HIwddItqabUHc4EGlf0DHAzi +Opc9XWEPAyZdM+IvOCh8LjPfKNseppq+pLq+4eDrLm59rhB7UClSr/w8wsFA +m/YkZNlDy/P1+4+O0s/rObT+EKTnW7kN1CY42P5k+Oj1P3bgk7LvUfg0BxfN +f2uMfGoHU23JuWI/OfjzVCxvcIcdJPw649X0i4MeI4zGcNIOlmuVK7vMcTBe +ePf91Dw7yN/bND0/z8G3at91LqfZwf8BFe1vgA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5751,172 +10817,117 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwV13c8Vf8fB3BflIYoMjPuufei7MyM6/0ulRkRQtlZJbuUkZUR5ac0UGYo +CedEdhEaVFpESyUtZRVKJb/TX/fxfDw+5/M49/N5vd+fzyE8g2y9ubm4uBb/ +x8X173dmsKuTnV5i9Pe/1m2MWjTqzRc/uH4gAbJDuBT4S2UARR54ig+cAE6C +gMStElXYv/VSP89AMXzgU2o+U2IEK8bETsz2X4GcpjH1bSVW8LrFKmiqvx0U +0y0Tos67wmb2yKvJ/sdgvKdcX78wEGb7dU9N9A/BxNY0BZOsQ9BhfKHkUfF3 +qMqLtssv/B9IvW784Kk8B+9ubJdJ1TsDKwPcLvEZ8yD/Y+drner5cGLt5mYr ++0WYe1gqaPBCMTzLVm+bXL4Mj3HP+kc2l0J6SewDbokVKHuxb7TnxkUQO/nu +SFaeMCoeLuCV8agAcaWrh3+WCSN/en2Dzu4KkGxPjnUhhfH6NhU0D6sAmYk1 ++xQ6hLGp/GynR1IFyFkGuzd/EkayqC3RtrwCNHnndN5prsTCvX5DehMVYB0u +OqzRvRJfWQaT4pGXIcXOzOjxjAiaXC31ehNTCZK1PZLc/4li38KFiVuSK6FK +2O7H2qWimN8buKk2oxKePnYlj8uK4vqzp6sDCyqBbRPOtDEVxddXfOZPt1VC ++5aChQ9zRDHxXd3N2v+qYG7zdM99QzG8f99zjWxsFWSWRVbMbRbDEQ9u7tbk +KmAv5EpVsRHD5UNvvBwzqsDy5pL1x7zFUGy4oS0irwpyjRk1lhlimPbqwz2/ +5ipYhxZn7r4Ww2Ze1QvCM1UQplfk1pUgjuUFvDmpPtVgXigwZXFUHBWCCh4N +B1QDky86teeUOHavjHQyCKuGh70O1JOL4jgZUGPfH1sNqsH8PIM94hh+b+pH +d3Y1fCqLKPsmKYEFLuoXCruqYedKq9FVNRIokblbKEGYBM2o5vj8FglcbqD/ +wU6UhCVDq0WJWxLoedZhkC1BQmM1D8g/k8ApaWODFhkSRC0aM9XnJTB9RWPZ +nTUkPIxna22ykMRrMcBxBBI2jv+KDHwniQmnNV1s/Ug4aHpS8cZXSeQy8t9y +bTcJVUUqz4VnJDFPIuCQ3F4SxO3c9RoXrcKaZ/znR0NI+Npw8weP6ir8a235 +c2cUCVkJmeE5B1ahcX3H2/pjJAyJyAd2LpPCFr54azeSBLGgVmkxMSmMYFjH +hV4hwfKO431/hhQKxYxPJdSSUBeZriyoKYXBd9ZdOttAQtrriREnRykMKRUy +u9xGgkZ5s+94sRRGkv5R5g9JiDe08ZBcJ41NMRFTUaMkmLrmf9PdII1pBdeP +u4yTIBD3JdHeUhpbiq7NGUyScK4jqSzTXRqvBgsZj0+R0GDe9GXhEWk0CD2T +rvaHhAlH1v7vz6QxPmzdDrElFNRHBvOtGJbG5LMJi28tpeDQuWvZqmPSGFRP +pocso4D/zfZmf24ZdFGSW9a6nAIF36NcbxRlcGlkroCWGAWu+6bT7kXJoHSP +vHsyiwK5MxukRpJkcOcx+4PcchS9fv+r5MuUwS3JyQFR8hRE/lnzcEOJDFrg +mSGvNRScSnQVabwngzeXooSgGgX3jt8uKJWWRa0ry4Ue6FGgX5VTe6hVFgNl +dQN+WlKwsb9nbuyOLN5+2fJnbgsFVly8Jm6PZbHF8MhLLmsKvGwDn8F7Wcw3 +qEj/u5WCzVFEbNwCBlb6q9Y+s6MgWHbm/HolBipwVh8X3EnBdE3mnVk1BkqZ +1piP0I40VRqltBgoKVDm3O5CQVKIuw7TiIHWZFHsbjcKcju673DbMFDYTOVL +ricFnb4Fox376fkWp9VG+1Fg9kdPKDqKgWqLuARU/CnoyezV0Ypj4LGO4pvP +aT9rXBxXcoSB8zn7bFT3UDC2NFwo6RwDtyeWfr66l4KwQgFdThEDjboebbAJ +pOCnVvmO6VIGLmWb/f1Mm8d1sMS7moGzHzTzhYMpECdNdTe3M7BxY3+mSSgF +eRvf7fh7i/6/x7SX9tBmPouJq7vLwOFN7K82YRSocNd0yfcxcB3j7TubcAo2 +2Env5PvEwB/nDZs09lNw+1N9XOtXBvLsOHSghLZljG1pxCQD3dVaioQjKNhe +ljL28RcDr63fqztCO+DnZNydZQQabT0We+AgvV8hPqIfhAhM3PDZ6RXtRSPP +K3jECTwvyLsWIikofdHx1IhJYLTD3oFZ2uF26wJ2KhC41lnvkm0U/T73L/8X +qUwgadEadZH24PVTyld1CCxr/sOwiKbgsu6S9scGBGYLrZs5QzuSPLR9AgnU +49PueUtbtNg3QcmCwAqhw0cCYigYlnwpZraVQC9wD6ykfSVra6WPPYGxWkJO +X2hbJ+kNFLkRqMteaex6iAKZv5V7W3cROOE+ZZxF++t+Js8rfwLXfO7ecpN2 +0/jp7F+BBAbe9vCYop3qt1RVPJxAia7EWEYsBQ5vYzu0DxLYFfPnohlttvOU +47ZDBL7SyR4Mov3tsd9YcCKBbxeyiSzabRavEjNSCZxr2xtSQzuj00bi8jEC +I34aP3xIeyfnVlXXCQJluPYbfaGtWKe/8eMZAps+P2nhjqNgVrX6GW8egSlJ +qpZitO9cYAUxiwks9dg+upr2aUY2L14gMLmLUaRLe1cOf67LZQJ9b7r4GdPW +EIpXi6IIvCExZGxJmyt9ujO7jsC6zQlatrR7eHY71zUTmJEibGBP+1z04PiT +NgJFHu9x/Oc907ZJkzcJlHvqcezfeP3A25KCdwnkmbv3/N98iz4akMoPCXzh +l7R+I+2nbuQm8z4C1ae82tfRLhlgv/B9TuCmtRtcFWmH2uQEJ72m99f/l4gE +bexetvD8MIGWeb4jvLQFjBPOtn0m8FSC98tRej1eNc+oD44RqJn08OsT2pe1 +9tz6/Z3A5zeTpOppR1a+3iExS6+HhFfAGdqiBXeS7XiYWPxoebA17WExjlTo +IiZ+ci+UU6B9JZOi/reMic6OT//+pvfXOiH3ZbcYE0WimmXz/uXjt0DoJykm +Trqo+fv/y0dYIt9CJhPnRZ880/iXB+8AjfXKTBxdaKB1jc6Xw+Cb265rmXg+ +qEv2EG32dnuXaB0mCqyQ0jGk3WZqlFqPTKzoLf9QTed3Vmn5oIo9E317HwTv +o/M/kycZr+nMRIdR9CJoTwnKsfXcmNjt01rUTdfP2He93Rv9mUjkey4UoT3U +7DXjHMPEJIH+5CMHKHitEpjjnsDE6YfG32Rpvyw4YOiTwsRvE11kDV2/TxOP +JYQcZ6JCeY3iE7reuy3qBVJLmdhUIqb0je4Pt6/doI5dYqLsI2/TMNqdavfs +sqqZeNdzvnWS7ifXhd/m5jcy8V5Xw40PdL+58mKJwtX7TAyzfruaovtT7h5X +GJpm4p7Cbrs7dL8788pv6OMvJirV6yTJ0j5pHZY0Ok97VZtM+G46/5qpd38u +ZuHZS98yReh+mfCb2i4ow8JJCDiq50PnLX1BsOFmFvY0rapb6E6B35yg8AYL +FoZpDY9o0f3ZJ0iyzmQrCy/IKWS7u1Lgvk3tj60zC8vGFriTdH+3W+WU6h/I +QqkvpW1rnSgwrLhcePo0C4X5Fp9vsaHgBaOiYNNZFnJ8nVuf0OdH5Ony/KkC +FiYuM6j7RJ8v9fFl52zLWZj5bFyH34quH8fCbIEWFr6QZ53VM6dgzYKTmclv +Wcg1evWC6gY6b25RcfuV2fghhqpIUafgau/BWLm1bAyN1avbQZ93duYHDvVq +s3FllFydiioFJ7T3RWsAG+X6c3LuKlGwjD/owJgNG63yxPnG6fOTt9Ez2CeC +jQNXMo36pCiYFDJ3d2hno57Ze5Djo2AggPlw9202HkwyvJ+7gM7XrV8Qe4+N +D6w+rxTgpSAzskL24lM2mpN9/aNcFKgP8b+eHWGjTBe/5YlfJARSD1zyhOVQ +17JmPIi+b4xY2+8Y3iWHoxBtnPyIhOGj7g6hfPJ4+DNTyiOLHj+izFTnl0dj +I+9XIcdJ+GEyOzq6XB5trKrex/2Pvr/xnEjyl5THqT6TBznpJKgf7Kh1V5HH +A/MmzPpEEmK85YWtt8mjQXlUaWEYfZ8z+vpAqUAeccROXMeWBLPxCLP3Ogo4 +8S60v3gJfR/zWhRWG7saC9yrLIbrq+jvCTHulPY1qHhRQntGqxKE7stnkOOK +qJYsnbursgKkUqu36ugoo4iYnXnW13LIVtJbLuyrghHyB7xJ/YvQLble+/tx +VUzTbrRzSCsDfan2TLWnaqixS7DocG0JCPAUh3skqGNKCNeMPs95kImXNXSS +X0uP//Jqdl0RLJbbWWd7ey1WbNvU/k6gAFQ5EtURLhrIDolmhC85B6GDQh3m +XJpYd5Pvq+O3bBj/ftTeLFsTdYw2RrZwToOJ2q1cMxUtLDQd4pa7mQXXvxv8 +/tGjhSZvAlnKlschUFnj+SNvbezZ3ZBu7J4BnLFdvU6LdbAHkpc46afBJrb4 +lmXFOlhh9lrS/noyrI5LO9Cuq4v5dx+89KhMBEVvvVa557qolH9Sd6YhDryv ++x2uDVmH+3wn3WRORUNrYe+uSRE97P7Ubl/4MwKmLs7/UKvXQwvbIfGyZeHg +JVexOHeLPlaN9ZQ7DAfDpGKWzpUJfezb/Ilb8v0eaCj5/XY61QCHXAaSBLR9 +wXkjCw1kDDFNs+dLm6kXzPUuEuhgGOIOhwzWSj0vKPQee2HOMsSg66aeoWu8 +4ENyY4TzakNstBZ7ab3EC0K7rKsPahhi59h+kYx7npBmFS3TsNkQbZcXmwpt +84Qmx74/WkGG+Lh3Ypegnwes2pvSqNpmiCYO3CmEhxtkzPtop7cbosqhNo1K +UzfgPrGZ+thpiFnvB+PN1N1gpG5BeWGXIXZI5b2vmXeFJq7D2UJPDLGgb3+H +VYErOJ+Mi5h5b4iRHYPvT751gezmg9rXl3LwXZP8ACt0J4gsCaC2bOdgZ/WC +IrcbTlBiHBM54cTBGSmt/N2XnEAjJsM4aycHPyrKnE3JcgKrCbJvwIODV1c3 +eP/wdoLkp9OzXgEcFEpk/7q81Al+FsduiIznYAqRusLH2RGeG2Q9KavgIKOe +60Qb73bw21dyzqyKgyXF+f7T4w4wU3XV+yvJQZMI/X79Fw4gxBz4sbaOg7md +KaY/KAewWCQtda2NgypPt9touztAS2/Zrid9HIwddItqabUHc4EGlf0DHAzi +Opc9XWEPAyZdM+IvOCh8LjPfKNseppq+pLq+4eDrLm59rhB7UClSr/w8wsFA +m/YkZNlDy/P1+4+O0s/rObT+EKTnW7kN1CY42P5k+Oj1P3bgk7LvUfg0BxfN +f2uMfGoHU23JuWI/OfjzVCxvcIcdJPw649X0i4MeI4zGcNIOlmuVK7vMcTBe +ePf91Dw7yN/bND0/z8G3at91LqfZwf8BFe1vgA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.06836446198196484}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5928,19 +10939,19 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.06836446198196484}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5954,171 +10965,116 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwV13c8Vf8fB3BflIYoMjPuufei7MyM6/0ulRkRQtlZJbuUkZUR5ac0UGYo +CedEdhEaVFpESyUtZRVKJb/TX/fxfDw+5/M49/N5vd+fzyE8g2y9ubm4uBb/ +x8X173dmsKuTnV5i9Pe/1m2MWjTqzRc/uH4gAbJDuBT4S2UARR54ig+cAE6C +gMStElXYv/VSP89AMXzgU2o+U2IEK8bETsz2X4GcpjH1bSVW8LrFKmiqvx0U +0y0Tos67wmb2yKvJ/sdgvKdcX78wEGb7dU9N9A/BxNY0BZOsQ9BhfKHkUfF3 +qMqLtssv/B9IvW784Kk8B+9ubJdJ1TsDKwPcLvEZ8yD/Y+drner5cGLt5mYr ++0WYe1gqaPBCMTzLVm+bXL4Mj3HP+kc2l0J6SewDbokVKHuxb7TnxkUQO/nu +SFaeMCoeLuCV8agAcaWrh3+WCSN/en2Dzu4KkGxPjnUhhfH6NhU0D6sAmYk1 ++xQ6hLGp/GynR1IFyFkGuzd/EkayqC3RtrwCNHnndN5prsTCvX5DehMVYB0u +OqzRvRJfWQaT4pGXIcXOzOjxjAiaXC31ehNTCZK1PZLc/4li38KFiVuSK6FK +2O7H2qWimN8buKk2oxKePnYlj8uK4vqzp6sDCyqBbRPOtDEVxddXfOZPt1VC ++5aChQ9zRDHxXd3N2v+qYG7zdM99QzG8f99zjWxsFWSWRVbMbRbDEQ9u7tbk +KmAv5EpVsRHD5UNvvBwzqsDy5pL1x7zFUGy4oS0irwpyjRk1lhlimPbqwz2/ +5ipYhxZn7r4Ww2Ze1QvCM1UQplfk1pUgjuUFvDmpPtVgXigwZXFUHBWCCh4N +B1QDky86teeUOHavjHQyCKuGh70O1JOL4jgZUGPfH1sNqsH8PIM94hh+b+pH +d3Y1fCqLKPsmKYEFLuoXCruqYedKq9FVNRIokblbKEGYBM2o5vj8FglcbqD/ +wU6UhCVDq0WJWxLoedZhkC1BQmM1D8g/k8ApaWODFhkSRC0aM9XnJTB9RWPZ +nTUkPIxna22ykMRrMcBxBBI2jv+KDHwniQmnNV1s/Ug4aHpS8cZXSeQy8t9y +bTcJVUUqz4VnJDFPIuCQ3F4SxO3c9RoXrcKaZ/znR0NI+Npw8weP6ir8a235 +c2cUCVkJmeE5B1ahcX3H2/pjJAyJyAd2LpPCFr54azeSBLGgVmkxMSmMYFjH +hV4hwfKO431/hhQKxYxPJdSSUBeZriyoKYXBd9ZdOttAQtrriREnRykMKRUy +u9xGgkZ5s+94sRRGkv5R5g9JiDe08ZBcJ41NMRFTUaMkmLrmf9PdII1pBdeP +u4yTIBD3JdHeUhpbiq7NGUyScK4jqSzTXRqvBgsZj0+R0GDe9GXhEWk0CD2T +rvaHhAlH1v7vz6QxPmzdDrElFNRHBvOtGJbG5LMJi28tpeDQuWvZqmPSGFRP +pocso4D/zfZmf24ZdFGSW9a6nAIF36NcbxRlcGlkroCWGAWu+6bT7kXJoHSP +vHsyiwK5MxukRpJkcOcx+4PcchS9fv+r5MuUwS3JyQFR8hRE/lnzcEOJDFrg +mSGvNRScSnQVabwngzeXooSgGgX3jt8uKJWWRa0ry4Ue6FGgX5VTe6hVFgNl +dQN+WlKwsb9nbuyOLN5+2fJnbgsFVly8Jm6PZbHF8MhLLmsKvGwDn8F7Wcw3 +qEj/u5WCzVFEbNwCBlb6q9Y+s6MgWHbm/HolBipwVh8X3EnBdE3mnVk1BkqZ +1piP0I40VRqltBgoKVDm3O5CQVKIuw7TiIHWZFHsbjcKcju673DbMFDYTOVL +ricFnb4Fox376fkWp9VG+1Fg9kdPKDqKgWqLuARU/CnoyezV0Ypj4LGO4pvP +aT9rXBxXcoSB8zn7bFT3UDC2NFwo6RwDtyeWfr66l4KwQgFdThEDjboebbAJ +pOCnVvmO6VIGLmWb/f1Mm8d1sMS7moGzHzTzhYMpECdNdTe3M7BxY3+mSSgF +eRvf7fh7i/6/x7SX9tBmPouJq7vLwOFN7K82YRSocNd0yfcxcB3j7TubcAo2 +2Env5PvEwB/nDZs09lNw+1N9XOtXBvLsOHSghLZljG1pxCQD3dVaioQjKNhe +ljL28RcDr63fqztCO+DnZNydZQQabT0We+AgvV8hPqIfhAhM3PDZ6RXtRSPP +K3jECTwvyLsWIikofdHx1IhJYLTD3oFZ2uF26wJ2KhC41lnvkm0U/T73L/8X +qUwgadEadZH24PVTyld1CCxr/sOwiKbgsu6S9scGBGYLrZs5QzuSPLR9AgnU +49PueUtbtNg3QcmCwAqhw0cCYigYlnwpZraVQC9wD6ykfSVra6WPPYGxWkJO +X2hbJ+kNFLkRqMteaex6iAKZv5V7W3cROOE+ZZxF++t+Js8rfwLXfO7ecpN2 +0/jp7F+BBAbe9vCYop3qt1RVPJxAia7EWEYsBQ5vYzu0DxLYFfPnohlttvOU +47ZDBL7SyR4Mov3tsd9YcCKBbxeyiSzabRavEjNSCZxr2xtSQzuj00bi8jEC +I34aP3xIeyfnVlXXCQJluPYbfaGtWKe/8eMZAps+P2nhjqNgVrX6GW8egSlJ +qpZitO9cYAUxiwks9dg+upr2aUY2L14gMLmLUaRLe1cOf67LZQJ9b7r4GdPW +EIpXi6IIvCExZGxJmyt9ujO7jsC6zQlatrR7eHY71zUTmJEibGBP+1z04PiT +NgJFHu9x/Oc907ZJkzcJlHvqcezfeP3A25KCdwnkmbv3/N98iz4akMoPCXzh +l7R+I+2nbuQm8z4C1ae82tfRLhlgv/B9TuCmtRtcFWmH2uQEJ72m99f/l4gE +bexetvD8MIGWeb4jvLQFjBPOtn0m8FSC98tRej1eNc+oD44RqJn08OsT2pe1 +9tz6/Z3A5zeTpOppR1a+3iExS6+HhFfAGdqiBXeS7XiYWPxoebA17WExjlTo +IiZ+ci+UU6B9JZOi/reMic6OT//+pvfXOiH3ZbcYE0WimmXz/uXjt0DoJykm +Trqo+fv/y0dYIt9CJhPnRZ880/iXB+8AjfXKTBxdaKB1jc6Xw+Cb265rmXg+ +qEv2EG32dnuXaB0mCqyQ0jGk3WZqlFqPTKzoLf9QTed3Vmn5oIo9E317HwTv +o/M/kycZr+nMRIdR9CJoTwnKsfXcmNjt01rUTdfP2He93Rv9mUjkey4UoT3U +7DXjHMPEJIH+5CMHKHitEpjjnsDE6YfG32Rpvyw4YOiTwsRvE11kDV2/TxOP +JYQcZ6JCeY3iE7reuy3qBVJLmdhUIqb0je4Pt6/doI5dYqLsI2/TMNqdavfs +sqqZeNdzvnWS7ifXhd/m5jcy8V5Xw40PdL+58mKJwtX7TAyzfruaovtT7h5X +GJpm4p7Cbrs7dL8788pv6OMvJirV6yTJ0j5pHZY0Ok97VZtM+G46/5qpd38u +ZuHZS98yReh+mfCb2i4ow8JJCDiq50PnLX1BsOFmFvY0rapb6E6B35yg8AYL +FoZpDY9o0f3ZJ0iyzmQrCy/IKWS7u1Lgvk3tj60zC8vGFriTdH+3W+WU6h/I +QqkvpW1rnSgwrLhcePo0C4X5Fp9vsaHgBaOiYNNZFnJ8nVuf0OdH5Ony/KkC +FiYuM6j7RJ8v9fFl52zLWZj5bFyH34quH8fCbIEWFr6QZ53VM6dgzYKTmclv +Wcg1evWC6gY6b25RcfuV2fghhqpIUafgau/BWLm1bAyN1avbQZ93duYHDvVq +s3FllFydiioFJ7T3RWsAG+X6c3LuKlGwjD/owJgNG63yxPnG6fOTt9Ez2CeC +jQNXMo36pCiYFDJ3d2hno57Ze5Djo2AggPlw9202HkwyvJ+7gM7XrV8Qe4+N +D6w+rxTgpSAzskL24lM2mpN9/aNcFKgP8b+eHWGjTBe/5YlfJARSD1zyhOVQ +17JmPIi+b4xY2+8Y3iWHoxBtnPyIhOGj7g6hfPJ4+DNTyiOLHj+izFTnl0dj +I+9XIcdJ+GEyOzq6XB5trKrex/2Pvr/xnEjyl5THqT6TBznpJKgf7Kh1V5HH +A/MmzPpEEmK85YWtt8mjQXlUaWEYfZ8z+vpAqUAeccROXMeWBLPxCLP3Ogo4 +8S60v3gJfR/zWhRWG7saC9yrLIbrq+jvCTHulPY1qHhRQntGqxKE7stnkOOK +qJYsnbursgKkUqu36ugoo4iYnXnW13LIVtJbLuyrghHyB7xJ/YvQLble+/tx +VUzTbrRzSCsDfan2TLWnaqixS7DocG0JCPAUh3skqGNKCNeMPs95kImXNXSS +X0uP//Jqdl0RLJbbWWd7ey1WbNvU/k6gAFQ5EtURLhrIDolmhC85B6GDQh3m +XJpYd5Pvq+O3bBj/ftTeLFsTdYw2RrZwToOJ2q1cMxUtLDQd4pa7mQXXvxv8 +/tGjhSZvAlnKlschUFnj+SNvbezZ3ZBu7J4BnLFdvU6LdbAHkpc46afBJrb4 +lmXFOlhh9lrS/noyrI5LO9Cuq4v5dx+89KhMBEVvvVa557qolH9Sd6YhDryv ++x2uDVmH+3wn3WRORUNrYe+uSRE97P7Ubl/4MwKmLs7/UKvXQwvbIfGyZeHg +JVexOHeLPlaN9ZQ7DAfDpGKWzpUJfezb/Ilb8v0eaCj5/XY61QCHXAaSBLR9 +wXkjCw1kDDFNs+dLm6kXzPUuEuhgGOIOhwzWSj0vKPQee2HOMsSg66aeoWu8 +4ENyY4TzakNstBZ7ab3EC0K7rKsPahhi59h+kYx7npBmFS3TsNkQbZcXmwpt +84Qmx74/WkGG+Lh3Ypegnwes2pvSqNpmiCYO3CmEhxtkzPtop7cbosqhNo1K +UzfgPrGZ+thpiFnvB+PN1N1gpG5BeWGXIXZI5b2vmXeFJq7D2UJPDLGgb3+H +VYErOJ+Mi5h5b4iRHYPvT751gezmg9rXl3LwXZP8ACt0J4gsCaC2bOdgZ/WC +IrcbTlBiHBM54cTBGSmt/N2XnEAjJsM4aycHPyrKnE3JcgKrCbJvwIODV1c3 +eP/wdoLkp9OzXgEcFEpk/7q81Al+FsduiIznYAqRusLH2RGeG2Q9KavgIKOe +60Qb73bw21dyzqyKgyXF+f7T4w4wU3XV+yvJQZMI/X79Fw4gxBz4sbaOg7md +KaY/KAewWCQtda2NgypPt9touztAS2/Zrid9HIwddItqabUHc4EGlf0DHAzi +Opc9XWEPAyZdM+IvOCh8LjPfKNseppq+pLq+4eDrLm59rhB7UClSr/w8wsFA +m/YkZNlDy/P1+4+O0s/rObT+EKTnW7kN1CY42P5k+Oj1P3bgk7LvUfg0BxfN +f2uMfGoHU23JuWI/OfjzVCxvcIcdJPw649X0i4MeI4zGcNIOlmuVK7vMcTBe +ePf91Dw7yN/bND0/z8G3at91LqfZwf8BFe1vgA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.06836446198196484}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6129,6 +11085,7 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6156,7 +11113,8 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06836446198196484}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6164,17 +11122,571 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913306567510605`*^9}, + CellChangeTimes->{3.9913306567510605`*^9, 3.993916977338089*^9}, CellLabel-> - "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] + "Out[142]=",ExpressionUUID->"e3c009db-6d41-4826-9099-17a0ea92d437"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ -6bd251746ea6"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3BflIYoMjPuufei7MyM6/0ulRkRQtlZJbuUkZUR5ac0UGYo +CedEdhEaVFpESyUtZRVKJb/TX/fxfDw+5/M49/N5vd+fzyE8g2y9ubm4uBb/ +x8X173dmsKuTnV5i9Pe/1m2MWjTqzRc/uH4gAbJDuBT4S2UARR54ig+cAE6C +gMStElXYv/VSP89AMXzgU2o+U2IEK8bETsz2X4GcpjH1bSVW8LrFKmiqvx0U +0y0Tos67wmb2yKvJ/sdgvKdcX78wEGb7dU9N9A/BxNY0BZOsQ9BhfKHkUfF3 +qMqLtssv/B9IvW784Kk8B+9ubJdJ1TsDKwPcLvEZ8yD/Y+drner5cGLt5mYr ++0WYe1gqaPBCMTzLVm+bXL4Mj3HP+kc2l0J6SewDbokVKHuxb7TnxkUQO/nu +SFaeMCoeLuCV8agAcaWrh3+WCSN/en2Dzu4KkGxPjnUhhfH6NhU0D6sAmYk1 ++xQ6hLGp/GynR1IFyFkGuzd/EkayqC3RtrwCNHnndN5prsTCvX5DehMVYB0u +OqzRvRJfWQaT4pGXIcXOzOjxjAiaXC31ehNTCZK1PZLc/4li38KFiVuSK6FK +2O7H2qWimN8buKk2oxKePnYlj8uK4vqzp6sDCyqBbRPOtDEVxddXfOZPt1VC ++5aChQ9zRDHxXd3N2v+qYG7zdM99QzG8f99zjWxsFWSWRVbMbRbDEQ9u7tbk +KmAv5EpVsRHD5UNvvBwzqsDy5pL1x7zFUGy4oS0irwpyjRk1lhlimPbqwz2/ +5ipYhxZn7r4Ww2Ze1QvCM1UQplfk1pUgjuUFvDmpPtVgXigwZXFUHBWCCh4N +B1QDky86teeUOHavjHQyCKuGh70O1JOL4jgZUGPfH1sNqsH8PIM94hh+b+pH +d3Y1fCqLKPsmKYEFLuoXCruqYedKq9FVNRIokblbKEGYBM2o5vj8FglcbqD/ +wU6UhCVDq0WJWxLoedZhkC1BQmM1D8g/k8ApaWODFhkSRC0aM9XnJTB9RWPZ +nTUkPIxna22ykMRrMcBxBBI2jv+KDHwniQmnNV1s/Ug4aHpS8cZXSeQy8t9y +bTcJVUUqz4VnJDFPIuCQ3F4SxO3c9RoXrcKaZ/znR0NI+Npw8weP6ir8a235 +c2cUCVkJmeE5B1ahcX3H2/pjJAyJyAd2LpPCFr54azeSBLGgVmkxMSmMYFjH +hV4hwfKO431/hhQKxYxPJdSSUBeZriyoKYXBd9ZdOttAQtrriREnRykMKRUy +u9xGgkZ5s+94sRRGkv5R5g9JiDe08ZBcJ41NMRFTUaMkmLrmf9PdII1pBdeP +u4yTIBD3JdHeUhpbiq7NGUyScK4jqSzTXRqvBgsZj0+R0GDe9GXhEWk0CD2T +rvaHhAlH1v7vz6QxPmzdDrElFNRHBvOtGJbG5LMJi28tpeDQuWvZqmPSGFRP +pocso4D/zfZmf24ZdFGSW9a6nAIF36NcbxRlcGlkroCWGAWu+6bT7kXJoHSP +vHsyiwK5MxukRpJkcOcx+4PcchS9fv+r5MuUwS3JyQFR8hRE/lnzcEOJDFrg +mSGvNRScSnQVabwngzeXooSgGgX3jt8uKJWWRa0ry4Ue6FGgX5VTe6hVFgNl +dQN+WlKwsb9nbuyOLN5+2fJnbgsFVly8Jm6PZbHF8MhLLmsKvGwDn8F7Wcw3 +qEj/u5WCzVFEbNwCBlb6q9Y+s6MgWHbm/HolBipwVh8X3EnBdE3mnVk1BkqZ +1piP0I40VRqltBgoKVDm3O5CQVKIuw7TiIHWZFHsbjcKcju673DbMFDYTOVL +ricFnb4Fox376fkWp9VG+1Fg9kdPKDqKgWqLuARU/CnoyezV0Ypj4LGO4pvP +aT9rXBxXcoSB8zn7bFT3UDC2NFwo6RwDtyeWfr66l4KwQgFdThEDjboebbAJ +pOCnVvmO6VIGLmWb/f1Mm8d1sMS7moGzHzTzhYMpECdNdTe3M7BxY3+mSSgF +eRvf7fh7i/6/x7SX9tBmPouJq7vLwOFN7K82YRSocNd0yfcxcB3j7TubcAo2 +2Env5PvEwB/nDZs09lNw+1N9XOtXBvLsOHSghLZljG1pxCQD3dVaioQjKNhe +ljL28RcDr63fqztCO+DnZNydZQQabT0We+AgvV8hPqIfhAhM3PDZ6RXtRSPP +K3jECTwvyLsWIikofdHx1IhJYLTD3oFZ2uF26wJ2KhC41lnvkm0U/T73L/8X +qUwgadEadZH24PVTyld1CCxr/sOwiKbgsu6S9scGBGYLrZs5QzuSPLR9AgnU +49PueUtbtNg3QcmCwAqhw0cCYigYlnwpZraVQC9wD6ykfSVra6WPPYGxWkJO +X2hbJ+kNFLkRqMteaex6iAKZv5V7W3cROOE+ZZxF++t+Js8rfwLXfO7ecpN2 +0/jp7F+BBAbe9vCYop3qt1RVPJxAia7EWEYsBQ5vYzu0DxLYFfPnohlttvOU +47ZDBL7SyR4Mov3tsd9YcCKBbxeyiSzabRavEjNSCZxr2xtSQzuj00bi8jEC +I34aP3xIeyfnVlXXCQJluPYbfaGtWKe/8eMZAps+P2nhjqNgVrX6GW8egSlJ +qpZitO9cYAUxiwks9dg+upr2aUY2L14gMLmLUaRLe1cOf67LZQJ9b7r4GdPW +EIpXi6IIvCExZGxJmyt9ujO7jsC6zQlatrR7eHY71zUTmJEibGBP+1z04PiT +NgJFHu9x/Oc907ZJkzcJlHvqcezfeP3A25KCdwnkmbv3/N98iz4akMoPCXzh +l7R+I+2nbuQm8z4C1ae82tfRLhlgv/B9TuCmtRtcFWmH2uQEJ72m99f/l4gE +bexetvD8MIGWeb4jvLQFjBPOtn0m8FSC98tRej1eNc+oD44RqJn08OsT2pe1 +9tz6/Z3A5zeTpOppR1a+3iExS6+HhFfAGdqiBXeS7XiYWPxoebA17WExjlTo +IiZ+ci+UU6B9JZOi/reMic6OT//+pvfXOiH3ZbcYE0WimmXz/uXjt0DoJykm +Trqo+fv/y0dYIt9CJhPnRZ880/iXB+8AjfXKTBxdaKB1jc6Xw+Cb265rmXg+ +qEv2EG32dnuXaB0mCqyQ0jGk3WZqlFqPTKzoLf9QTed3Vmn5oIo9E317HwTv +o/M/kycZr+nMRIdR9CJoTwnKsfXcmNjt01rUTdfP2He93Rv9mUjkey4UoT3U +7DXjHMPEJIH+5CMHKHitEpjjnsDE6YfG32Rpvyw4YOiTwsRvE11kDV2/TxOP +JYQcZ6JCeY3iE7reuy3qBVJLmdhUIqb0je4Pt6/doI5dYqLsI2/TMNqdavfs +sqqZeNdzvnWS7ifXhd/m5jcy8V5Xw40PdL+58mKJwtX7TAyzfruaovtT7h5X +GJpm4p7Cbrs7dL8788pv6OMvJirV6yTJ0j5pHZY0Ok97VZtM+G46/5qpd38u +ZuHZS98yReh+mfCb2i4ow8JJCDiq50PnLX1BsOFmFvY0rapb6E6B35yg8AYL +FoZpDY9o0f3ZJ0iyzmQrCy/IKWS7u1Lgvk3tj60zC8vGFriTdH+3W+WU6h/I +QqkvpW1rnSgwrLhcePo0C4X5Fp9vsaHgBaOiYNNZFnJ8nVuf0OdH5Ony/KkC +FiYuM6j7RJ8v9fFl52zLWZj5bFyH34quH8fCbIEWFr6QZ53VM6dgzYKTmclv +Wcg1evWC6gY6b25RcfuV2fghhqpIUafgau/BWLm1bAyN1avbQZ93duYHDvVq +s3FllFydiioFJ7T3RWsAG+X6c3LuKlGwjD/owJgNG63yxPnG6fOTt9Ez2CeC +jQNXMo36pCiYFDJ3d2hno57Ze5Djo2AggPlw9202HkwyvJ+7gM7XrV8Qe4+N +D6w+rxTgpSAzskL24lM2mpN9/aNcFKgP8b+eHWGjTBe/5YlfJARSD1zyhOVQ +17JmPIi+b4xY2+8Y3iWHoxBtnPyIhOGj7g6hfPJ4+DNTyiOLHj+izFTnl0dj +I+9XIcdJ+GEyOzq6XB5trKrex/2Pvr/xnEjyl5THqT6TBznpJKgf7Kh1V5HH +A/MmzPpEEmK85YWtt8mjQXlUaWEYfZ8z+vpAqUAeccROXMeWBLPxCLP3Ogo4 +8S60v3gJfR/zWhRWG7saC9yrLIbrq+jvCTHulPY1qHhRQntGqxKE7stnkOOK +qJYsnbursgKkUqu36ugoo4iYnXnW13LIVtJbLuyrghHyB7xJ/YvQLble+/tx +VUzTbrRzSCsDfan2TLWnaqixS7DocG0JCPAUh3skqGNKCNeMPs95kImXNXSS +X0uP//Jqdl0RLJbbWWd7ey1WbNvU/k6gAFQ5EtURLhrIDolmhC85B6GDQh3m +XJpYd5Pvq+O3bBj/ftTeLFsTdYw2RrZwToOJ2q1cMxUtLDQd4pa7mQXXvxv8 +/tGjhSZvAlnKlschUFnj+SNvbezZ3ZBu7J4BnLFdvU6LdbAHkpc46afBJrb4 +lmXFOlhh9lrS/noyrI5LO9Cuq4v5dx+89KhMBEVvvVa557qolH9Sd6YhDryv ++x2uDVmH+3wn3WRORUNrYe+uSRE97P7Ubl/4MwKmLs7/UKvXQwvbIfGyZeHg +JVexOHeLPlaN9ZQ7DAfDpGKWzpUJfezb/Ilb8v0eaCj5/XY61QCHXAaSBLR9 +wXkjCw1kDDFNs+dLm6kXzPUuEuhgGOIOhwzWSj0vKPQee2HOMsSg66aeoWu8 +4ENyY4TzakNstBZ7ab3EC0K7rKsPahhi59h+kYx7npBmFS3TsNkQbZcXmwpt +84Qmx74/WkGG+Lh3Ypegnwes2pvSqNpmiCYO3CmEhxtkzPtop7cbosqhNo1K +UzfgPrGZ+thpiFnvB+PN1N1gpG5BeWGXIXZI5b2vmXeFJq7D2UJPDLGgb3+H +VYErOJ+Mi5h5b4iRHYPvT751gezmg9rXl3LwXZP8ACt0J4gsCaC2bOdgZ/WC +IrcbTlBiHBM54cTBGSmt/N2XnEAjJsM4aycHPyrKnE3JcgKrCbJvwIODV1c3 +eP/wdoLkp9OzXgEcFEpk/7q81Al+FsduiIznYAqRusLH2RGeG2Q9KavgIKOe +60Qb73bw21dyzqyKgyXF+f7T4w4wU3XV+yvJQZMI/X79Fw4gxBz4sbaOg7md +KaY/KAewWCQtda2NgypPt9touztAS2/Zrid9HIwddItqabUHc4EGlf0DHAzi +Opc9XWEPAyZdM+IvOCh8LjPfKNseppq+pLq+4eDrLm59rhB7UClSr/w8wsFA +m/YkZNlDy/P1+4+O0s/rObT+EKTnW7kN1CY42P5k+Oj1P3bgk7LvUfg0BxfN +f2uMfGoHU23JuWI/OfjzVCxvcIcdJPw649X0i4MeI4zGcNIOlmuVK7vMcTBe +ePf91Dw7yN/bND0/z8G3at91LqfZwf8BFe1vgA== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3BflIYoMjPuufei7MyM6/0ulRkRQtlZJbuUkZUR5ac0UGYo +CedEdhEaVFpESyUtZRVKJb/TX/fxfDw+5/M49/N5vd+fzyE8g2y9ubm4uBb/ +x8X173dmsKuTnV5i9Pe/1m2MWjTqzRc/uH4gAbJDuBT4S2UARR54ig+cAE6C +gMStElXYv/VSP89AMXzgU2o+U2IEK8bETsz2X4GcpjH1bSVW8LrFKmiqvx0U +0y0Tos67wmb2yKvJ/sdgvKdcX78wEGb7dU9N9A/BxNY0BZOsQ9BhfKHkUfF3 +qMqLtssv/B9IvW784Kk8B+9ubJdJ1TsDKwPcLvEZ8yD/Y+drner5cGLt5mYr ++0WYe1gqaPBCMTzLVm+bXL4Mj3HP+kc2l0J6SewDbokVKHuxb7TnxkUQO/nu +SFaeMCoeLuCV8agAcaWrh3+WCSN/en2Dzu4KkGxPjnUhhfH6NhU0D6sAmYk1 ++xQ6hLGp/GynR1IFyFkGuzd/EkayqC3RtrwCNHnndN5prsTCvX5DehMVYB0u +OqzRvRJfWQaT4pGXIcXOzOjxjAiaXC31ehNTCZK1PZLc/4li38KFiVuSK6FK +2O7H2qWimN8buKk2oxKePnYlj8uK4vqzp6sDCyqBbRPOtDEVxddXfOZPt1VC ++5aChQ9zRDHxXd3N2v+qYG7zdM99QzG8f99zjWxsFWSWRVbMbRbDEQ9u7tbk +KmAv5EpVsRHD5UNvvBwzqsDy5pL1x7zFUGy4oS0irwpyjRk1lhlimPbqwz2/ +5ipYhxZn7r4Ww2Ze1QvCM1UQplfk1pUgjuUFvDmpPtVgXigwZXFUHBWCCh4N +B1QDky86teeUOHavjHQyCKuGh70O1JOL4jgZUGPfH1sNqsH8PIM94hh+b+pH +d3Y1fCqLKPsmKYEFLuoXCruqYedKq9FVNRIokblbKEGYBM2o5vj8FglcbqD/ +wU6UhCVDq0WJWxLoedZhkC1BQmM1D8g/k8ApaWODFhkSRC0aM9XnJTB9RWPZ +nTUkPIxna22ykMRrMcBxBBI2jv+KDHwniQmnNV1s/Ug4aHpS8cZXSeQy8t9y +bTcJVUUqz4VnJDFPIuCQ3F4SxO3c9RoXrcKaZ/znR0NI+Npw8weP6ir8a235 +c2cUCVkJmeE5B1ahcX3H2/pjJAyJyAd2LpPCFr54azeSBLGgVmkxMSmMYFjH +hV4hwfKO431/hhQKxYxPJdSSUBeZriyoKYXBd9ZdOttAQtrriREnRykMKRUy +u9xGgkZ5s+94sRRGkv5R5g9JiDe08ZBcJ41NMRFTUaMkmLrmf9PdII1pBdeP +u4yTIBD3JdHeUhpbiq7NGUyScK4jqSzTXRqvBgsZj0+R0GDe9GXhEWk0CD2T +rvaHhAlH1v7vz6QxPmzdDrElFNRHBvOtGJbG5LMJi28tpeDQuWvZqmPSGFRP +pocso4D/zfZmf24ZdFGSW9a6nAIF36NcbxRlcGlkroCWGAWu+6bT7kXJoHSP +vHsyiwK5MxukRpJkcOcx+4PcchS9fv+r5MuUwS3JyQFR8hRE/lnzcEOJDFrg +mSGvNRScSnQVabwngzeXooSgGgX3jt8uKJWWRa0ry4Ue6FGgX5VTe6hVFgNl +dQN+WlKwsb9nbuyOLN5+2fJnbgsFVly8Jm6PZbHF8MhLLmsKvGwDn8F7Wcw3 +qEj/u5WCzVFEbNwCBlb6q9Y+s6MgWHbm/HolBipwVh8X3EnBdE3mnVk1BkqZ +1piP0I40VRqltBgoKVDm3O5CQVKIuw7TiIHWZFHsbjcKcju673DbMFDYTOVL +ricFnb4Fox376fkWp9VG+1Fg9kdPKDqKgWqLuARU/CnoyezV0Ypj4LGO4pvP +aT9rXBxXcoSB8zn7bFT3UDC2NFwo6RwDtyeWfr66l4KwQgFdThEDjboebbAJ +pOCnVvmO6VIGLmWb/f1Mm8d1sMS7moGzHzTzhYMpECdNdTe3M7BxY3+mSSgF +eRvf7fh7i/6/x7SX9tBmPouJq7vLwOFN7K82YRSocNd0yfcxcB3j7TubcAo2 +2Env5PvEwB/nDZs09lNw+1N9XOtXBvLsOHSghLZljG1pxCQD3dVaioQjKNhe +ljL28RcDr63fqztCO+DnZNydZQQabT0We+AgvV8hPqIfhAhM3PDZ6RXtRSPP +K3jECTwvyLsWIikofdHx1IhJYLTD3oFZ2uF26wJ2KhC41lnvkm0U/T73L/8X +qUwgadEadZH24PVTyld1CCxr/sOwiKbgsu6S9scGBGYLrZs5QzuSPLR9AgnU +49PueUtbtNg3QcmCwAqhw0cCYigYlnwpZraVQC9wD6ykfSVra6WPPYGxWkJO +X2hbJ+kNFLkRqMteaex6iAKZv5V7W3cROOE+ZZxF++t+Js8rfwLXfO7ecpN2 +0/jp7F+BBAbe9vCYop3qt1RVPJxAia7EWEYsBQ5vYzu0DxLYFfPnohlttvOU +47ZDBL7SyR4Mov3tsd9YcCKBbxeyiSzabRavEjNSCZxr2xtSQzuj00bi8jEC +I34aP3xIeyfnVlXXCQJluPYbfaGtWKe/8eMZAps+P2nhjqNgVrX6GW8egSlJ +qpZitO9cYAUxiwks9dg+upr2aUY2L14gMLmLUaRLe1cOf67LZQJ9b7r4GdPW +EIpXi6IIvCExZGxJmyt9ujO7jsC6zQlatrR7eHY71zUTmJEibGBP+1z04PiT +NgJFHu9x/Oc907ZJkzcJlHvqcezfeP3A25KCdwnkmbv3/N98iz4akMoPCXzh +l7R+I+2nbuQm8z4C1ae82tfRLhlgv/B9TuCmtRtcFWmH2uQEJ72m99f/l4gE +bexetvD8MIGWeb4jvLQFjBPOtn0m8FSC98tRej1eNc+oD44RqJn08OsT2pe1 +9tz6/Z3A5zeTpOppR1a+3iExS6+HhFfAGdqiBXeS7XiYWPxoebA17WExjlTo +IiZ+ci+UU6B9JZOi/reMic6OT//+pvfXOiH3ZbcYE0WimmXz/uXjt0DoJykm +Trqo+fv/y0dYIt9CJhPnRZ880/iXB+8AjfXKTBxdaKB1jc6Xw+Cb265rmXg+ +qEv2EG32dnuXaB0mCqyQ0jGk3WZqlFqPTKzoLf9QTed3Vmn5oIo9E317HwTv +o/M/kycZr+nMRIdR9CJoTwnKsfXcmNjt01rUTdfP2He93Rv9mUjkey4UoT3U +7DXjHMPEJIH+5CMHKHitEpjjnsDE6YfG32Rpvyw4YOiTwsRvE11kDV2/TxOP +JYQcZ6JCeY3iE7reuy3qBVJLmdhUIqb0je4Pt6/doI5dYqLsI2/TMNqdavfs +sqqZeNdzvnWS7ifXhd/m5jcy8V5Xw40PdL+58mKJwtX7TAyzfruaovtT7h5X +GJpm4p7Cbrs7dL8788pv6OMvJirV6yTJ0j5pHZY0Ok97VZtM+G46/5qpd38u +ZuHZS98yReh+mfCb2i4ow8JJCDiq50PnLX1BsOFmFvY0rapb6E6B35yg8AYL +FoZpDY9o0f3ZJ0iyzmQrCy/IKWS7u1Lgvk3tj60zC8vGFriTdH+3W+WU6h/I +QqkvpW1rnSgwrLhcePo0C4X5Fp9vsaHgBaOiYNNZFnJ8nVuf0OdH5Ony/KkC +FiYuM6j7RJ8v9fFl52zLWZj5bFyH34quH8fCbIEWFr6QZ53VM6dgzYKTmclv +Wcg1evWC6gY6b25RcfuV2fghhqpIUafgau/BWLm1bAyN1avbQZ93duYHDvVq +s3FllFydiioFJ7T3RWsAG+X6c3LuKlGwjD/owJgNG63yxPnG6fOTt9Ez2CeC +jQNXMo36pCiYFDJ3d2hno57Ze5Djo2AggPlw9202HkwyvJ+7gM7XrV8Qe4+N +D6w+rxTgpSAzskL24lM2mpN9/aNcFKgP8b+eHWGjTBe/5YlfJARSD1zyhOVQ +17JmPIi+b4xY2+8Y3iWHoxBtnPyIhOGj7g6hfPJ4+DNTyiOLHj+izFTnl0dj +I+9XIcdJ+GEyOzq6XB5trKrex/2Pvr/xnEjyl5THqT6TBznpJKgf7Kh1V5HH +A/MmzPpEEmK85YWtt8mjQXlUaWEYfZ8z+vpAqUAeccROXMeWBLPxCLP3Ogo4 +8S60v3gJfR/zWhRWG7saC9yrLIbrq+jvCTHulPY1qHhRQntGqxKE7stnkOOK +qJYsnbursgKkUqu36ugoo4iYnXnW13LIVtJbLuyrghHyB7xJ/YvQLble+/tx +VUzTbrRzSCsDfan2TLWnaqixS7DocG0JCPAUh3skqGNKCNeMPs95kImXNXSS +X0uP//Jqdl0RLJbbWWd7ey1WbNvU/k6gAFQ5EtURLhrIDolmhC85B6GDQh3m +XJpYd5Pvq+O3bBj/ftTeLFsTdYw2RrZwToOJ2q1cMxUtLDQd4pa7mQXXvxv8 +/tGjhSZvAlnKlschUFnj+SNvbezZ3ZBu7J4BnLFdvU6LdbAHkpc46afBJrb4 +lmXFOlhh9lrS/noyrI5LO9Cuq4v5dx+89KhMBEVvvVa557qolH9Sd6YhDryv ++x2uDVmH+3wn3WRORUNrYe+uSRE97P7Ubl/4MwKmLs7/UKvXQwvbIfGyZeHg +JVexOHeLPlaN9ZQ7DAfDpGKWzpUJfezb/Ilb8v0eaCj5/XY61QCHXAaSBLR9 +wXkjCw1kDDFNs+dLm6kXzPUuEuhgGOIOhwzWSj0vKPQee2HOMsSg66aeoWu8 +4ENyY4TzakNstBZ7ab3EC0K7rKsPahhi59h+kYx7npBmFS3TsNkQbZcXmwpt +84Qmx74/WkGG+Lh3Ypegnwes2pvSqNpmiCYO3CmEhxtkzPtop7cbosqhNo1K +UzfgPrGZ+thpiFnvB+PN1N1gpG5BeWGXIXZI5b2vmXeFJq7D2UJPDLGgb3+H +VYErOJ+Mi5h5b4iRHYPvT751gezmg9rXl3LwXZP8ACt0J4gsCaC2bOdgZ/WC +IrcbTlBiHBM54cTBGSmt/N2XnEAjJsM4aycHPyrKnE3JcgKrCbJvwIODV1c3 +eP/wdoLkp9OzXgEcFEpk/7q81Al+FsduiIznYAqRusLH2RGeG2Q9KavgIKOe +60Qb73bw21dyzqyKgyXF+f7T4w4wU3XV+yvJQZMI/X79Fw4gxBz4sbaOg7md +KaY/KAewWCQtda2NgypPt9touztAS2/Zrid9HIwddItqabUHc4EGlf0DHAzi +Opc9XWEPAyZdM+IvOCh8LjPfKNseppq+pLq+4eDrLm59rhB7UClSr/w8wsFA +m/YkZNlDy/P1+4+O0s/rObT+EKTnW7kN1CY42P5k+Oj1P3bgk7LvUfg0BxfN +f2uMfGoHU23JuWI/OfjzVCxvcIcdJPw649X0i4MeI4zGcNIOlmuVK7vMcTBe +ePf91Dw7yN/bND0/z8G3at91LqfZwf8BFe1vgA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06836446198196484}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06836446198196484}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3BflIYoMjPuufei7MyM6/0ulRkRQtlZJbuUkZUR5ac0UGYo +CedEdhEaVFpESyUtZRVKJb/TX/fxfDw+5/M49/N5vd+fzyE8g2y9ubm4uBb/ +x8X173dmsKuTnV5i9Pe/1m2MWjTqzRc/uH4gAbJDuBT4S2UARR54ig+cAE6C +gMStElXYv/VSP89AMXzgU2o+U2IEK8bETsz2X4GcpjH1bSVW8LrFKmiqvx0U +0y0Tos67wmb2yKvJ/sdgvKdcX78wEGb7dU9N9A/BxNY0BZOsQ9BhfKHkUfF3 +qMqLtssv/B9IvW784Kk8B+9ubJdJ1TsDKwPcLvEZ8yD/Y+drner5cGLt5mYr ++0WYe1gqaPBCMTzLVm+bXL4Mj3HP+kc2l0J6SewDbokVKHuxb7TnxkUQO/nu +SFaeMCoeLuCV8agAcaWrh3+WCSN/en2Dzu4KkGxPjnUhhfH6NhU0D6sAmYk1 ++xQ6hLGp/GynR1IFyFkGuzd/EkayqC3RtrwCNHnndN5prsTCvX5DehMVYB0u +OqzRvRJfWQaT4pGXIcXOzOjxjAiaXC31ehNTCZK1PZLc/4li38KFiVuSK6FK +2O7H2qWimN8buKk2oxKePnYlj8uK4vqzp6sDCyqBbRPOtDEVxddXfOZPt1VC ++5aChQ9zRDHxXd3N2v+qYG7zdM99QzG8f99zjWxsFWSWRVbMbRbDEQ9u7tbk +KmAv5EpVsRHD5UNvvBwzqsDy5pL1x7zFUGy4oS0irwpyjRk1lhlimPbqwz2/ +5ipYhxZn7r4Ww2Ze1QvCM1UQplfk1pUgjuUFvDmpPtVgXigwZXFUHBWCCh4N +B1QDky86teeUOHavjHQyCKuGh70O1JOL4jgZUGPfH1sNqsH8PIM94hh+b+pH +d3Y1fCqLKPsmKYEFLuoXCruqYedKq9FVNRIokblbKEGYBM2o5vj8FglcbqD/ +wU6UhCVDq0WJWxLoedZhkC1BQmM1D8g/k8ApaWODFhkSRC0aM9XnJTB9RWPZ +nTUkPIxna22ykMRrMcBxBBI2jv+KDHwniQmnNV1s/Ug4aHpS8cZXSeQy8t9y +bTcJVUUqz4VnJDFPIuCQ3F4SxO3c9RoXrcKaZ/znR0NI+Npw8weP6ir8a235 +c2cUCVkJmeE5B1ahcX3H2/pjJAyJyAd2LpPCFr54azeSBLGgVmkxMSmMYFjH +hV4hwfKO431/hhQKxYxPJdSSUBeZriyoKYXBd9ZdOttAQtrriREnRykMKRUy +u9xGgkZ5s+94sRRGkv5R5g9JiDe08ZBcJ41NMRFTUaMkmLrmf9PdII1pBdeP +u4yTIBD3JdHeUhpbiq7NGUyScK4jqSzTXRqvBgsZj0+R0GDe9GXhEWk0CD2T +rvaHhAlH1v7vz6QxPmzdDrElFNRHBvOtGJbG5LMJi28tpeDQuWvZqmPSGFRP +pocso4D/zfZmf24ZdFGSW9a6nAIF36NcbxRlcGlkroCWGAWu+6bT7kXJoHSP +vHsyiwK5MxukRpJkcOcx+4PcchS9fv+r5MuUwS3JyQFR8hRE/lnzcEOJDFrg +mSGvNRScSnQVabwngzeXooSgGgX3jt8uKJWWRa0ry4Ue6FGgX5VTe6hVFgNl +dQN+WlKwsb9nbuyOLN5+2fJnbgsFVly8Jm6PZbHF8MhLLmsKvGwDn8F7Wcw3 +qEj/u5WCzVFEbNwCBlb6q9Y+s6MgWHbm/HolBipwVh8X3EnBdE3mnVk1BkqZ +1piP0I40VRqltBgoKVDm3O5CQVKIuw7TiIHWZFHsbjcKcju673DbMFDYTOVL +ricFnb4Fox376fkWp9VG+1Fg9kdPKDqKgWqLuARU/CnoyezV0Ypj4LGO4pvP +aT9rXBxXcoSB8zn7bFT3UDC2NFwo6RwDtyeWfr66l4KwQgFdThEDjboebbAJ +pOCnVvmO6VIGLmWb/f1Mm8d1sMS7moGzHzTzhYMpECdNdTe3M7BxY3+mSSgF +eRvf7fh7i/6/x7SX9tBmPouJq7vLwOFN7K82YRSocNd0yfcxcB3j7TubcAo2 +2Env5PvEwB/nDZs09lNw+1N9XOtXBvLsOHSghLZljG1pxCQD3dVaioQjKNhe +ljL28RcDr63fqztCO+DnZNydZQQabT0We+AgvV8hPqIfhAhM3PDZ6RXtRSPP +K3jECTwvyLsWIikofdHx1IhJYLTD3oFZ2uF26wJ2KhC41lnvkm0U/T73L/8X +qUwgadEadZH24PVTyld1CCxr/sOwiKbgsu6S9scGBGYLrZs5QzuSPLR9AgnU +49PueUtbtNg3QcmCwAqhw0cCYigYlnwpZraVQC9wD6ykfSVra6WPPYGxWkJO +X2hbJ+kNFLkRqMteaex6iAKZv5V7W3cROOE+ZZxF++t+Js8rfwLXfO7ecpN2 +0/jp7F+BBAbe9vCYop3qt1RVPJxAia7EWEYsBQ5vYzu0DxLYFfPnohlttvOU +47ZDBL7SyR4Mov3tsd9YcCKBbxeyiSzabRavEjNSCZxr2xtSQzuj00bi8jEC +I34aP3xIeyfnVlXXCQJluPYbfaGtWKe/8eMZAps+P2nhjqNgVrX6GW8egSlJ +qpZitO9cYAUxiwks9dg+upr2aUY2L14gMLmLUaRLe1cOf67LZQJ9b7r4GdPW +EIpXi6IIvCExZGxJmyt9ujO7jsC6zQlatrR7eHY71zUTmJEibGBP+1z04PiT +NgJFHu9x/Oc907ZJkzcJlHvqcezfeP3A25KCdwnkmbv3/N98iz4akMoPCXzh +l7R+I+2nbuQm8z4C1ae82tfRLhlgv/B9TuCmtRtcFWmH2uQEJ72m99f/l4gE +bexetvD8MIGWeb4jvLQFjBPOtn0m8FSC98tRej1eNc+oD44RqJn08OsT2pe1 +9tz6/Z3A5zeTpOppR1a+3iExS6+HhFfAGdqiBXeS7XiYWPxoebA17WExjlTo +IiZ+ci+UU6B9JZOi/reMic6OT//+pvfXOiH3ZbcYE0WimmXz/uXjt0DoJykm +Trqo+fv/y0dYIt9CJhPnRZ880/iXB+8AjfXKTBxdaKB1jc6Xw+Cb265rmXg+ +qEv2EG32dnuXaB0mCqyQ0jGk3WZqlFqPTKzoLf9QTed3Vmn5oIo9E317HwTv +o/M/kycZr+nMRIdR9CJoTwnKsfXcmNjt01rUTdfP2He93Rv9mUjkey4UoT3U +7DXjHMPEJIH+5CMHKHitEpjjnsDE6YfG32Rpvyw4YOiTwsRvE11kDV2/TxOP +JYQcZ6JCeY3iE7reuy3qBVJLmdhUIqb0je4Pt6/doI5dYqLsI2/TMNqdavfs +sqqZeNdzvnWS7ifXhd/m5jcy8V5Xw40PdL+58mKJwtX7TAyzfruaovtT7h5X +GJpm4p7Cbrs7dL8788pv6OMvJirV6yTJ0j5pHZY0Ok97VZtM+G46/5qpd38u +ZuHZS98yReh+mfCb2i4ow8JJCDiq50PnLX1BsOFmFvY0rapb6E6B35yg8AYL +FoZpDY9o0f3ZJ0iyzmQrCy/IKWS7u1Lgvk3tj60zC8vGFriTdH+3W+WU6h/I +QqkvpW1rnSgwrLhcePo0C4X5Fp9vsaHgBaOiYNNZFnJ8nVuf0OdH5Ony/KkC +FiYuM6j7RJ8v9fFl52zLWZj5bFyH34quH8fCbIEWFr6QZ53VM6dgzYKTmclv +Wcg1evWC6gY6b25RcfuV2fghhqpIUafgau/BWLm1bAyN1avbQZ93duYHDvVq +s3FllFydiioFJ7T3RWsAG+X6c3LuKlGwjD/owJgNG63yxPnG6fOTt9Ez2CeC +jQNXMo36pCiYFDJ3d2hno57Ze5Djo2AggPlw9202HkwyvJ+7gM7XrV8Qe4+N +D6w+rxTgpSAzskL24lM2mpN9/aNcFKgP8b+eHWGjTBe/5YlfJARSD1zyhOVQ +17JmPIi+b4xY2+8Y3iWHoxBtnPyIhOGj7g6hfPJ4+DNTyiOLHj+izFTnl0dj +I+9XIcdJ+GEyOzq6XB5trKrex/2Pvr/xnEjyl5THqT6TBznpJKgf7Kh1V5HH +A/MmzPpEEmK85YWtt8mjQXlUaWEYfZ8z+vpAqUAeccROXMeWBLPxCLP3Ogo4 +8S60v3gJfR/zWhRWG7saC9yrLIbrq+jvCTHulPY1qHhRQntGqxKE7stnkOOK +qJYsnbursgKkUqu36ugoo4iYnXnW13LIVtJbLuyrghHyB7xJ/YvQLble+/tx +VUzTbrRzSCsDfan2TLWnaqixS7DocG0JCPAUh3skqGNKCNeMPs95kImXNXSS +X0uP//Jqdl0RLJbbWWd7ey1WbNvU/k6gAFQ5EtURLhrIDolmhC85B6GDQh3m +XJpYd5Pvq+O3bBj/ftTeLFsTdYw2RrZwToOJ2q1cMxUtLDQd4pa7mQXXvxv8 +/tGjhSZvAlnKlschUFnj+SNvbezZ3ZBu7J4BnLFdvU6LdbAHkpc46afBJrb4 +lmXFOlhh9lrS/noyrI5LO9Cuq4v5dx+89KhMBEVvvVa557qolH9Sd6YhDryv ++x2uDVmH+3wn3WRORUNrYe+uSRE97P7Ubl/4MwKmLs7/UKvXQwvbIfGyZeHg +JVexOHeLPlaN9ZQ7DAfDpGKWzpUJfezb/Ilb8v0eaCj5/XY61QCHXAaSBLR9 +wXkjCw1kDDFNs+dLm6kXzPUuEuhgGOIOhwzWSj0vKPQee2HOMsSg66aeoWu8 +4ENyY4TzakNstBZ7ab3EC0K7rKsPahhi59h+kYx7npBmFS3TsNkQbZcXmwpt +84Qmx74/WkGG+Lh3Ypegnwes2pvSqNpmiCYO3CmEhxtkzPtop7cbosqhNo1K +UzfgPrGZ+thpiFnvB+PN1N1gpG5BeWGXIXZI5b2vmXeFJq7D2UJPDLGgb3+H +VYErOJ+Mi5h5b4iRHYPvT751gezmg9rXl3LwXZP8ACt0J4gsCaC2bOdgZ/WC +IrcbTlBiHBM54cTBGSmt/N2XnEAjJsM4aycHPyrKnE3JcgKrCbJvwIODV1c3 +eP/wdoLkp9OzXgEcFEpk/7q81Al+FsduiIznYAqRusLH2RGeG2Q9KavgIKOe +60Qb73bw21dyzqyKgyXF+f7T4w4wU3XV+yvJQZMI/X79Fw4gxBz4sbaOg7md +KaY/KAewWCQtda2NgypPt9touztAS2/Zrid9HIwddItqabUHc4EGlf0DHAzi +Opc9XWEPAyZdM+IvOCh8LjPfKNseppq+pLq+4eDrLm59rhB7UClSr/w8wsFA +m/YkZNlDy/P1+4+O0s/rObT+EKTnW7kN1CY42P5k+Oj1P3bgk7LvUfg0BxfN +f2uMfGoHU23JuWI/OfjzVCxvcIcdJPw649X0i4MeI4zGcNIOlmuVK7vMcTBe +ePf91Dw7yN/bND0/z8G3at91LqfZwf8BFe1vgA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06836446198196484}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06836446198196484}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993916977380677*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"d787f112-579b-4551-9bf9-060fc09f0e53"] +}, Open ]], Cell[CellGroupData[{ @@ -6226,66 +11738,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + "In[144]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.565511112911212`*^-170\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 144, 49, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993916977408078*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"62db389e-845b-4d30-b3aa-e876240e944b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6193733680639606`*^-173\\\", \ \\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ 116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752212366*^9}, +lost.\"", 2, 144, 50, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993916977411662*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +In[144]:=",ExpressionUUID->"9264ecb9-6a5a-4998-9527-a95dd93cf772"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0221628321925618`*^-176\\\", \ \\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ 2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ \\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133175222237*^9}, +be lost.\"", 2, 144, 51, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993916977415118*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ -\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ -2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317522303677`*^9}, - CellLabel-> - "During evaluation of \ -In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +In[144]:=",ExpressionUUID->"ac8299ec-f193-41da-9cdd-b034af7771b4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752237467*^9}, +during this calculation.\"", 2, 144, 52, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.9939169774185247`*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +In[144]:=",ExpressionUUID->"26510a91-0ead-4218-90df-77853d742e5a"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.991331759108553*^9}, +Cell[BoxData["11.208298302300756`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.993917000515568*^9}, CellLabel-> - "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] + "Out[144]=",ExpressionUUID->"6377a255-b8b6-4407-816a-cb4b575da237"] }, Open ]], Cell[CellGroupData[{ @@ -6352,68 +11868,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849016830597*^9, - 3.991849020984995*^9}},ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-\ -7a397847208f"], + CellChangeTimes->{{3.991849016830597*^9, 3.991849020984995*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 169, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591425533`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3919427471718177`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 53, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.9939170005390778`*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +In[145]:=",ExpressionUUID->"9124e467-4ae1-4021-a300-243dc94498eb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 170, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591525517`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3057401750999514`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 54, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.993917000543351*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +In[145]:=",ExpressionUUID->"c6549aa0-c62b-4513-ac6c-bd63e835fbea"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 200, 171, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331759160553*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.221728348564105`*^-221\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 55, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.9939170005473948`*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +In[145]:=",ExpressionUUID->"df2e08ef-c728-4d5e-862b-306fb2cf3581"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591685543`*^9}, +during this calculation.\"", 2, 145, 56, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.993917000551076*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +In[145]:=",ExpressionUUID->"9db75048-6c2e-4651-93e8-67308791c8ec"], -Cell[BoxData["1.044718879268698`"], "Output", - CellChangeTimes->{3.991331766558941*^9}, +Cell[BoxData["0.7779682329887233`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.993917004063346*^9}, CellLabel-> - "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] + "Out[145]=",ExpressionUUID->"c4b9e709-44c9-455e-8ef5-ac8f37fed655"] }, Open ]], Cell[CellGroupData[{ @@ -6434,8 +11954,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6480,68 +11999,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849024657757*^9, - 3.991849027138817*^9}},ExpressionUUID->"22b50200-0b82-dc47-9932-\ -f1f0210d6caf"], + CellChangeTimes->{{3.991849024657757*^9, 3.991849027138817*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 173, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317665951805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3919427471718177`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 146, 57, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.993917004093231*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +In[146]:=",ExpressionUUID->"21f560cb-17f9-4fd8-afd1-a3b49a847fb8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 174, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666041794`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3057401750999514`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 146, 58, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.993917004097135*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +In[146]:=",ExpressionUUID->"0398c7dd-c0ba-4977-94d8-7a46d9c3a000"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 201, 175, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666131783`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.221728348564105`*^-221\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 146, 59, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.9939170041006117`*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +In[146]:=",ExpressionUUID->"86d0d906-331c-483a-aec8-995cab84b519"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666211815`*^9}, +during this calculation.\"", 2, 146, 60, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.9939170041038094`*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +In[146]:=",ExpressionUUID->"b1e3ee7b-ff3f-4251-b481-4779b24e07fa"], -Cell[BoxData["4.7987767072565894`"], "Output", - CellChangeTimes->{3.991331773590704*^9}, +Cell[BoxData["33.783754604335904`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.993917007631269*^9}, CellLabel-> - "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] + "Out[146]=",ExpressionUUID->"da699e51-8337-4555-b0a9-38b354c425a2"] }, Open ]], Cell[CellGroupData[{ @@ -6562,8 +12085,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6608,68 +12130,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849031047804*^9, - 3.9918490341764317`*^9}},ExpressionUUID->"8a5105db-666c-444e-9451-\ -d3e8d1574bcd"], + CellChangeTimes->{{3.991849031047804*^9, 3.9918490341764317`*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 177, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736257057`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3919427471718177`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 61, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993917007655273*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +In[147]:=",ExpressionUUID->"e630d8e6-e72e-4896-8236-5e644436e26e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 178, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736361847`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3057401750999514`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 62, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993917007659178*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +In[147]:=",ExpressionUUID->"b945c7bd-5092-4b47-8a7f-06500796e5cb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 202, 179, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773644182*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.221728348564105`*^-221\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 63, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993917007663225*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +In[147]:=",ExpressionUUID->"32f9c9b5-dbf0-41ab-bf21-b30b40abbbda"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773653183*^9}, +during this calculation.\"", 2, 147, 64, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.99391700766682*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +In[147]:=",ExpressionUUID->"735d0623-9874-4e24-9679-1a0c84c47df2"], -Cell[BoxData["15.12281532960454`"], "Output", - CellChangeTimes->{3.991331777337887*^9}, +Cell[BoxData["8.010369187735604`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.993917009792976*^9}, CellLabel-> - "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] + "Out[147]=",ExpressionUUID->"cc9e248c-6f72-4e53-84f1-00dd2c592e80"] }, Open ]], Cell[CellGroupData[{ @@ -6678,22 +12204,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918490375675926`*^9, - 3.991849040901537*^9}},ExpressionUUID->"d0efa798-230b-fa46-b413-\ -76bfd8e40ccb"], - -Cell[BoxData["0.12263596348954131`"], "Output", - CellChangeTimes->{3.9913317773679104`*^9}, + CellChangeTimes->{{3.9918490375675926`*^9, 3.991849040901537*^9}}, CellLabel-> - "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] + "In[148]:=",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], + +Cell[BoxData["0.047291342234526065`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.9939170098266497`*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"0817375f-aeff-41fb-8606-644e37fa0523"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9}, - 3.9919249287922287`*^9},ExpressionUUID->"f842f74e-f562-934a-9011-\ -6604b8708636"], + 3.9919249287922287`*^9}, + CellLabel-> + "In[149]:=",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ @@ -6716,12 +12243,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + "In[150]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.9913317774008274`*^9}, +Cell[BoxData["14.800894227577137`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.993917009847465*^9}, CellLabel-> - "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] + "Out[150]=",ExpressionUUID->"301b0e39-9a24-4394-bf63-03810f39cc5a"] }, Open ]], Cell[CellGroupData[{ @@ -6731,12 +12258,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + "In[151]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.9913317774358253`*^9}, +Cell[BoxData["3.183861544998538`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.993917009853266*^9}, CellLabel-> - "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] + "Out[151]=",ExpressionUUID->"1e64545b-3fbb-43bb-b133-0e4e24a10b0a"] }, Open ]], Cell[CellGroupData[{ @@ -6746,12 +12273,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + "In[152]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.991331777510603*^9}, +Cell[BoxData["47.123997962773686`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.993917009859151*^9}, CellLabel-> - "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] + "Out[152]=",ExpressionUUID->"85b9b120-5774-4c1d-aae0-4002452ea138"] }, Open ]], Cell[CellGroupData[{ @@ -6941,12 +12468,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + "In[153]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[BoxData["0.041096786108657246`"], "Output", - CellChangeTimes->{3.991331777537592*^9}, +Cell[BoxData["0.00589257080754978`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.993917009873825*^9}, CellLabel-> - "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] + "Out[153]=",ExpressionUUID->"a3f9a3aa-3db1-4ff9-b0c5-fa511dabdc36"] }, Open ]], Cell[CellGroupData[{ @@ -6960,12 +12487,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + "In[154]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[BoxData["4.371605972693579`"], "Output", - CellChangeTimes->{3.9913317776362495`*^9}, +Cell[BoxData["11.544962743120607`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.993917009930911*^9}, CellLabel-> - "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] + "Out[154]=",ExpressionUUID->"fad05be1-e43f-4569-8022-151dff411c43"] }, Open ]], Cell[CellGroupData[{ @@ -7157,12 +12684,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + "In[155]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[BoxData["0.013804398425195999`"], "Output", - CellChangeTimes->{3.9913317776511555`*^9}, +Cell[BoxData["0.02015861154610742`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.993917009938689*^9}, CellLabel-> - "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] + "Out[155]=",ExpressionUUID->"28bf90b0-e653-41e2-b1a2-22737e26a3cf"] }, Open ]], Cell[CellGroupData[{ @@ -7176,12 +12703,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + "In[156]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[BoxData["7.5428626210616345`"], "Output", - CellChangeTimes->{3.991331777742655*^9}, +Cell[BoxData["6.241868753667001`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.993917009995133*^9}, CellLabel-> - "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] + "Out[156]=",ExpressionUUID->"4bc04271-3d15-4e8c-9e6b-f9fd1eddcce1"] }, Open ]], Cell[CellGroupData[{ @@ -7274,12 +12801,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + "In[157]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913317777546787`*^9}, +Cell[BoxData["0.1245822467542299`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.9939170100023518`*^9}, CellLabel-> - "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] + "Out[157]=",ExpressionUUID->"d315aca0-be57-4b4f-9915-8f3fd773a9b0"] }, Open ]], Cell[CellGroupData[{ @@ -7369,12 +12896,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + "In[158]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991331777779663*^9}, +Cell[BoxData["0.8754177532457702`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.993917010008869*^9}, CellLabel-> - "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] + "Out[158]=",ExpressionUUID->"9d8ee359-7b36-47db-9a60-d0fcb3e5fa9d"] }, Open ]], Cell[CellGroupData[{ @@ -7497,12 +13024,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + "In[159]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913317778036633`*^9}, +Cell[BoxData["0.10906151054789807`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.993917010015767*^9}, CellLabel-> - "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] + "Out[159]=",ExpressionUUID->"885a598b-0787-4be9-9681-34b663c0bcb0"] }, Open ]], Cell[CellGroupData[{ @@ -7564,68 +13091,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918490946810665`*^9},ExpressionUUID->"1dec41a6-6752-2041-9d38-\ -804123b5ccd0"], + CellChangeTimes->{3.9918490946810665`*^9}, + CellLabel-> + "In[160]:=",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 218, 181, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778296604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5442165814848647`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 160, 65, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.9939170100237007`*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +In[160]:=",ExpressionUUID->"0e166fd8-fdfa-42ea-aaff-4b8a51556756"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 182, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777838663*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3941055101368864`*^-212\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 160, 66, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993917010027108*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +In[160]:=",ExpressionUUID->"1ac17a09-c2e8-4ed8-9eb2-77f9d82791ff"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 183, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778466587`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7117469546638064`*^-217\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 160, 67, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993917010030801*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +In[160]:=",ExpressionUUID->"897c1490-3ca0-43ba-97f8-2191012b1bfa"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777854885*^9}, +during this calculation.\"", 2, 160, 68, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.99391701003437*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +In[160]:=",ExpressionUUID->"e5fd9e11-12e7-42a9-8b96-aeaf86a75e7c"], -Cell[BoxData["4.37160597269358`"], "Output", - CellChangeTimes->{3.991331781456501*^9}, +Cell[BoxData["11.54496274312061`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.993917011850012*^9}, CellLabel-> - "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] + "Out[160]=",ExpressionUUID->"12056439-fe3e-41c7-ab4e-ecb24bd10c01"] }, Open ]], Cell[CellGroupData[{ @@ -7687,67 +13218,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99184909912471*^9},ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], + CellChangeTimes->{3.99184909912471*^9}, + CellLabel-> + "In[161]:=",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 219, 185, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331781491499*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5442165814848647`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 161, 69, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993917011876803*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +In[161]:=",ExpressionUUID->"3a871784-3a01-4689-b345-2b1254bcee66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 186, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815004997`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3941055101368864`*^-212\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 161, 70, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993917011880612*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +In[161]:=",ExpressionUUID->"8cf7d6f7-dda1-488f-a681-e10231387598"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 187, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815094967`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7117469546638064`*^-217\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 161, 71, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.9939170118841753`*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +In[161]:=",ExpressionUUID->"eed56352-710b-40e8-b869-8d4c90957aa1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815164986`*^9}, +during this calculation.\"", 2, 161, 72, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993917011887439*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +In[161]:=",ExpressionUUID->"ea8f6b58-fd5a-4c7f-92ce-a4994f63598d"], -Cell[BoxData["7.54286262106163`"], "Output", - CellChangeTimes->{3.9913317851500416`*^9}, +Cell[BoxData["6.241868753667001`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.993917013802415*^9}, CellLabel-> - "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] + "Out[161]=",ExpressionUUID->"e736350e-0d04-433e-b0da-4312493f971d"] }, Open ]], Cell[CellGroupData[{ @@ -7805,93 +13341,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918491043389053`*^9},ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-\ -b799ae260294"], + CellChangeTimes->{3.9918491043389053`*^9}, + CellLabel-> + "In[162]:=",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk8VdsXAHCUyFCGkETGSkVyDRlqraJESEUZEq57TyUy5smYpF4lGRr0 +ypCIRIYmQ69fIklePOkpGji4yVRm96T8dn+cz/l8P2eftfdee62txvbfxRUS +EBDoI8/vd+Br3RWPml9v7CjlHTp7mIaNwzmGbMtCyCryuPHbnZlGFzUtH0PA +hzqrc8QOnH/mSbCeg7DVUvcE4tKwmBphy0YwnfHoOk98pm7x05iCf6FYKqX1 +AnFFc2DGjP5bGM4oM0oh7m9viDxW9Q6cX1SLXCJe0qvhNmnxAVxL/meVRrz9 +W6RJcONnWHeqcPIa8ZOZfvGwgi7oCf9zURbxf7EKEQ+PdEN23e4bOcTD8yz7 +x/V7AfMWpN8mnpcQ4MKa4kGOZ4VIMbGKdHp9YFUfnDB37LpPbK80eWvYYhAE +sty6qompLHV5HdFhuPWuXuQlcYzWjvjDjd8g/9KK9Gbidwqt60IKRuA6VC3q +Iua4+hxKTRiFhxIjk1+Jv18XuFF2ZAzCVJZsGyMWVdeRGtGfADHpbcYivjRc +5NRYSclNwkZB+7fSxKp5LjFrpyah1tGaXkq8fs2pYb+qadgar25tQHzQ6HNj +v8UMLBgLsDlIPB52dK7Y8p8QUMXyDCU+XiVuri36C07BSM9J4jRcf+dA4yzI +XPEwu0nMya23DCoQxLZU1aW9xAV1qZ2xSkKYrdp8e5L4+5f9kckJQihuFntL +1I+GyFUT90qOzMGokYFBHeKLxWoa3/SFcTB9tiiKuL158Mmvm8I4favtXgqx +6ugj1wVy87Dpz4qV+cSFBvYpOlPzsMQ306OVuLYiXNC3ShTr5OWE9I/QMFHz +5nOfhQSa7qtbIuRPg4ythFTEEwlUfy0VqEqs12qJkiaSeE95whqIfXoeZK3T +XYDNMqlx0cQBQo16GySkELfsk58TQEOv+t2R+ElpNJ73q0ozkOSHapjfxJLB +cZvP5tuJhe7w1BYHymCYVBQGEauylu0qGJDB4u6ppmpiV4ukstedshjerid1 +IIiGJu+gYIVXclhgNqPQEEzDp7zEc56i8qiZ0vF8mnhwoODm7S3y6KmXPbki +hAaxkO43Zk/l0UdmpPM0seVJRwPPBwpY2P71nd1RGipzjCbyMxUx5Iqwy2go +DTm9TKhpiDJezootTQ+nYZvT6U/BRcpY2Jud9I54sFZ2axFPGcNfWNKyETQY +5KyRU3VRQU0bhY/niGvZ++8Jb1yGW+fsXhcbScPot84/+uJUsdVSYW9sNA2y +fpb379mpY8rKvJK2EzTwcsQOOvioo5d/Mk81jobyD81KQ6fU0Xm//wUf4n22 +7nHLn6pjDEvedJY4Z3Xorqv6GigtETumE0/m78/7Hq2giRLmPkzWaRocD4jr +2HRpYZJTbejHBBog1El/708tZCVvcWWdp2FVfKYxR3E5fvnjZeEZYoGbrM3R +O5fjORjIME6koeiT296y6uUoWytXnnaB9Oeewtgl2SvQvkj6mX8KWZ+l3X/9 +bG18nLZiT2AaDTd3X+mYitZGTWUVjbfEieyuzrnXtHFpX6mHyVVS38ePDqi8 +0cYItboVc/6iQfpxusBui1XYIGkwfu0aqR/W8KoqjdWoV9t0gs6gQUn9Qsy5 +njVY0hqTXpNLw+Oz49p8IR38X/UHGbhF8jHm0kqp6WDjPC+JKuKMWk3tzft1 +kN/w89z9PBrUD1S2TLfp4PId7k+KbpP9FvZqUa90cSYxdLK8iAZlJRVK1UUP +BZOeDOg/pGFNbojED9DH7Kic6of1NLA5cRM69vrYWawgYv2S9KtGyifPffq4 +rSa6uoN4TnZxSV2YPoYdtrok9Ir0W0a/Y0qpPrYoXa9w+ofcp2me6doaLPwh +v25GuoWc7zlbXed5Bng/RPcG3UHDjSBNhweNhljj83Yj7zsNZZ+enlv8wRB5 +hmue5IzQ8MzG/UXEgCHmFDq/9B6loUf98sbNYkZY5uoV1z1Gw/I3IjpNVka4 +uiD89NdJ0s+sgflfnxnh5ne67Qt/kvMZL61ZWmGMM5T9r+fzu6E5FIxP5prg +5jkigh2a3aC2/629u+8GfKLz1D/Rsxu4sw/vKh9DPPs+tU8/qxsUBspFFNib +cVXdX2Uqw90QwjL/kLLKEjeEdff8AT3AHpqpl+3fgtTlCDh1pQeKNgeLZDZZ +4QnWRbwt0As54z7VhRetsfpl35KFvr0wvWnxP7Ux29H06ajgeH8vfBSYM9Ll +ZYdnXk8tiQriwZGl/kmxGjvQaWiiSeAHD+4eqn96Kd4Bp1a6dYX89QXCxxSn +Vh/aia9eRi+1M+2DCZute1547MI3DzLmdoz1gYlb8qbenbtxA/qdef/wK7Qo +pvvUshxRdp8cczSsH5bcinucv9IJN6w2/OmydwDKO1fZ2kvuwdybCZvqWIOg +0vr9QOjQHpzd3/vuqMIQsC4lF97s3Is1Sa4ibKVhSJ87pptS44yieS1ltOI3 +eLhpbXt8hQs6p4+06ip/hzTjs9IzBa5oIFR5orfkOzR15J5iJbjhj5NyA89g +BB7YXdcMOL4PfbyPmz36PAIjfrsFjnDcsX3pUSu1Y6MwsVX74LDFfjy8cq9d +nswY5A+9nw428kA7qZPZDVVj4Hwj19tdwhPXyVwe/+46DvfKtnvMOe2JpfhS +PFlkAkyUWvhn+J6YWZ+a65c3ARqdB9r/PeSF8ou0xfw3TUKP+OEd17u9cLu0 +zVRO9yQ0J9p7WzmxUXbi8sEHIVNwMSxT/GgzGy8rr84aEJ2Gx09m+d7W3ljQ +Xiaod2EaFu7D06xKb9TNctY7LsAHE8/h/HgDDh51u/jNw5cPt65+D7Y34uCy +rh8vWvz4sOjN6EaF9Rw0vlp1x9KfD8NbplrzzTj4trkmVSuIT+4vAcHGzRwM +tYzr6PiDDwumpF1kdnLwb/8nk4pxfOg5bzg/04+D4WGRr9+n8SGxKvJQ+S0O +Km7Is3Cs5oOf/hWTsHwOytaLKsY+44Pt7dL56ws4eE/xxVBhDR/ErvBuPyri +oJuE5kXBOj7EBzn0P7zPQYPIkVcZDXyI1NY8/OAZB/et1s7Nf8MHnyuvfMs+ +cdBqIHJ8qocP1gt45kGdHORsTdWYy+PDyngBSX2ag83Jz7ct/MIHXpBhUWkv +2V8WN0T9Kx+87DOHSgY5eLBucpv5EB+chYOPFDMcPHbY8s6GCT5YBS8JKJTn +4nWm7fjRuQw8yzxlk7KYi2cDGv4JFmbAvHFUM2wJF59N89sC5jGgp/XqvYUK +F1uy3qgfEGVAsS3CokOLi1MOH89YSjAwYPpRXsyQi0slP7k8k2XgglDW3wd2 +c/Hpxwf8F2oMiK2VSLNz4uImB55bujoDJ93Cglh7ubhwgWZQoAYDYfcdVsy6 +cvE1r7JCTosBL0ow+TKbi4tNFt21X8kAq4HNeR7IRdXK4tFYXQbakrXENZK4 +qHBhhemgCQN3QfJgXzIXK+zijRNMSfyh8dqiVC4aPzaSXG3GgL51bfT6K1yM +6u5GrjkDiQLeo3YZXLxC3ax9tZGBrf5Z78MKyfrsMxZ7WTCgrPyn0ca7XLwR +q3V6mHi8wT91TgkXEzO8XoVbMpC9HOwS73ExYMCt9cIWBn5+/Pj0ZiUXs3+o +9dyxYuC+rVL+63ou/rKzbr+znYFzjJDwxQYuuuj5piy3ZYCd3+/l0sjFrx6T +ylnEUnMrlXqauNgUVX73gh0DvlXOF/j/cTHnge09zx0MaKy6HKrZy8VdTefX +NOxigGmLevOVx8XAvA/i+rsZaI7n6hX3cdG57crjNOLoLoN+k0EuJgx/TmY7 +MtCe9sZ9xxgXdfWyRfucGEgRkd4SLkihoYf7wkpnBh6PfnQLmUPhcX5f7WIX +Br58LAg6IkzhTJzT7FFi8/uWWez5ZHyDvdAaVwZ4nmE/bKQpjCy23XDKjazf +dovMFlkKtWso+ffEZsYy2iBHoR5zKHjVPgaSJAv3sBQpbKmpKK8nNqv8XKqk +RmHesSi/MXcGqNzCejkNCunKDrbpfjI+6djnhVoUlpy27Ygh5lGyknO1Kcx1 +n+s0z4N8l7U6OKhHIdsXDwl6MlD5SzaGp0/h3rfZIebEvV87L3UaUPgthS0U +Smz6NLymdT2Fx7xu5/QQ9/jeVfkbKWyfNRcq8WJggXOE4aPNFIoo+Kt8Jjax +2GZbaknhzX99HkuwSb0o0sdyt1G4ZHdMlDdx+dzipEwbCv+MOJaVQNz9LSLv +qi2FBWICW+4Tr6+Te3vegUKb/nCZWWJ2KT1weheFf7Q4mql7M3D+erHQCUcK +3zqc6rUgpoOs9UKdKUwQr/77BLHkfnmrAFcKZRTuD2QSr7fudvfZR6Hu3pa/ +qn7/vyzq3H5PCtd0HYocJi4Xs8l2ZlPYpv/vXWEOiTchX7GLQ+HDemArEUt2 +dTfZUhSmTRddXku8vrGEt/UghUmZi2w3E7MfRf1EHwr/U/M7sZv4fLbNIjNf +Cn/6lJp4E5efV1hteITC50MdgYG/44f1bFobQKFLzpdV0cQSnFJn7SCSH6lm +zhli4x3R/hohFDaYJC9L/R3fdPsp5VAKo0tXuF0jTtBanK4QRvKVmKSQTfxQ +qveedDiFiwNeOuYRd/0obRCPpHAkolnmzu/4X6K7hKMpfOGRs7OI2Khl+/Rs +DKlXB0vpu8T/B40S9nU= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7905,105 +13443,106 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV1Hk8VdsXAHCUyFCGkETGSkVyDRlqraJESEUZEq57TyUy5smYpF4lGRr0 +ypCIRIYmQ69fIklePOkpGji4yVRm96T8dn+cz/l8P2eftfdee62txvbfxRUS +EBDoI8/vd+Br3RWPml9v7CjlHTp7mIaNwzmGbMtCyCryuPHbnZlGFzUtH0PA +hzqrc8QOnH/mSbCeg7DVUvcE4tKwmBphy0YwnfHoOk98pm7x05iCf6FYKqX1 +AnFFc2DGjP5bGM4oM0oh7m9viDxW9Q6cX1SLXCJe0qvhNmnxAVxL/meVRrz9 +W6RJcONnWHeqcPIa8ZOZfvGwgi7oCf9zURbxf7EKEQ+PdEN23e4bOcTD8yz7 +x/V7AfMWpN8mnpcQ4MKa4kGOZ4VIMbGKdHp9YFUfnDB37LpPbK80eWvYYhAE +sty6qompLHV5HdFhuPWuXuQlcYzWjvjDjd8g/9KK9Gbidwqt60IKRuA6VC3q +Iua4+hxKTRiFhxIjk1+Jv18XuFF2ZAzCVJZsGyMWVdeRGtGfADHpbcYivjRc +5NRYSclNwkZB+7fSxKp5LjFrpyah1tGaXkq8fs2pYb+qadgar25tQHzQ6HNj +v8UMLBgLsDlIPB52dK7Y8p8QUMXyDCU+XiVuri36C07BSM9J4jRcf+dA4yzI +XPEwu0nMya23DCoQxLZU1aW9xAV1qZ2xSkKYrdp8e5L4+5f9kckJQihuFntL +1I+GyFUT90qOzMGokYFBHeKLxWoa3/SFcTB9tiiKuL158Mmvm8I4favtXgqx +6ugj1wVy87Dpz4qV+cSFBvYpOlPzsMQ306OVuLYiXNC3ShTr5OWE9I/QMFHz +5nOfhQSa7qtbIuRPg4ythFTEEwlUfy0VqEqs12qJkiaSeE95whqIfXoeZK3T +XYDNMqlx0cQBQo16GySkELfsk58TQEOv+t2R+ElpNJ73q0ozkOSHapjfxJLB +cZvP5tuJhe7w1BYHymCYVBQGEauylu0qGJDB4u6ppmpiV4ukstedshjerid1 +IIiGJu+gYIVXclhgNqPQEEzDp7zEc56i8qiZ0vF8mnhwoODm7S3y6KmXPbki +hAaxkO43Zk/l0UdmpPM0seVJRwPPBwpY2P71nd1RGipzjCbyMxUx5Iqwy2go +DTm9TKhpiDJezootTQ+nYZvT6U/BRcpY2Jud9I54sFZ2axFPGcNfWNKyETQY +5KyRU3VRQU0bhY/niGvZ++8Jb1yGW+fsXhcbScPot84/+uJUsdVSYW9sNA2y +fpb379mpY8rKvJK2EzTwcsQOOvioo5d/Mk81jobyD81KQ6fU0Xm//wUf4n22 +7nHLn6pjDEvedJY4Z3Xorqv6GigtETumE0/m78/7Hq2giRLmPkzWaRocD4jr +2HRpYZJTbejHBBog1El/708tZCVvcWWdp2FVfKYxR3E5fvnjZeEZYoGbrM3R +O5fjORjIME6koeiT296y6uUoWytXnnaB9Oeewtgl2SvQvkj6mX8KWZ+l3X/9 +bG18nLZiT2AaDTd3X+mYitZGTWUVjbfEieyuzrnXtHFpX6mHyVVS38ePDqi8 +0cYItboVc/6iQfpxusBui1XYIGkwfu0aqR/W8KoqjdWoV9t0gs6gQUn9Qsy5 +njVY0hqTXpNLw+Oz49p8IR38X/UHGbhF8jHm0kqp6WDjPC+JKuKMWk3tzft1 +kN/w89z9PBrUD1S2TLfp4PId7k+KbpP9FvZqUa90cSYxdLK8iAZlJRVK1UUP +BZOeDOg/pGFNbojED9DH7Kic6of1NLA5cRM69vrYWawgYv2S9KtGyifPffq4 +rSa6uoN4TnZxSV2YPoYdtrok9Ir0W0a/Y0qpPrYoXa9w+ofcp2me6doaLPwh +v25GuoWc7zlbXed5Bng/RPcG3UHDjSBNhweNhljj83Yj7zsNZZ+enlv8wRB5 +hmue5IzQ8MzG/UXEgCHmFDq/9B6loUf98sbNYkZY5uoV1z1Gw/I3IjpNVka4 +uiD89NdJ0s+sgflfnxnh5ne67Qt/kvMZL61ZWmGMM5T9r+fzu6E5FIxP5prg +5jkigh2a3aC2/629u+8GfKLz1D/Rsxu4sw/vKh9DPPs+tU8/qxsUBspFFNib +cVXdX2Uqw90QwjL/kLLKEjeEdff8AT3AHpqpl+3fgtTlCDh1pQeKNgeLZDZZ +4QnWRbwt0As54z7VhRetsfpl35KFvr0wvWnxP7Ux29H06ajgeH8vfBSYM9Ll +ZYdnXk8tiQriwZGl/kmxGjvQaWiiSeAHD+4eqn96Kd4Bp1a6dYX89QXCxxSn +Vh/aia9eRi+1M+2DCZute1547MI3DzLmdoz1gYlb8qbenbtxA/qdef/wK7Qo +pvvUshxRdp8cczSsH5bcinucv9IJN6w2/OmydwDKO1fZ2kvuwdybCZvqWIOg +0vr9QOjQHpzd3/vuqMIQsC4lF97s3Is1Sa4ibKVhSJ87pptS44yieS1ltOI3 +eLhpbXt8hQs6p4+06ip/hzTjs9IzBa5oIFR5orfkOzR15J5iJbjhj5NyA89g +BB7YXdcMOL4PfbyPmz36PAIjfrsFjnDcsX3pUSu1Y6MwsVX74LDFfjy8cq9d +nswY5A+9nw428kA7qZPZDVVj4Hwj19tdwhPXyVwe/+46DvfKtnvMOe2JpfhS +PFlkAkyUWvhn+J6YWZ+a65c3ARqdB9r/PeSF8ou0xfw3TUKP+OEd17u9cLu0 +zVRO9yQ0J9p7WzmxUXbi8sEHIVNwMSxT/GgzGy8rr84aEJ2Gx09m+d7W3ljQ +Xiaod2EaFu7D06xKb9TNctY7LsAHE8/h/HgDDh51u/jNw5cPt65+D7Y34uCy +rh8vWvz4sOjN6EaF9Rw0vlp1x9KfD8NbplrzzTj4trkmVSuIT+4vAcHGzRwM +tYzr6PiDDwumpF1kdnLwb/8nk4pxfOg5bzg/04+D4WGRr9+n8SGxKvJQ+S0O +Km7Is3Cs5oOf/hWTsHwOytaLKsY+44Pt7dL56ws4eE/xxVBhDR/ErvBuPyri +oJuE5kXBOj7EBzn0P7zPQYPIkVcZDXyI1NY8/OAZB/et1s7Nf8MHnyuvfMs+ +cdBqIHJ8qocP1gt45kGdHORsTdWYy+PDyngBSX2ag83Jz7ct/MIHXpBhUWkv +2V8WN0T9Kx+87DOHSgY5eLBucpv5EB+chYOPFDMcPHbY8s6GCT5YBS8JKJTn +4nWm7fjRuQw8yzxlk7KYi2cDGv4JFmbAvHFUM2wJF59N89sC5jGgp/XqvYUK +F1uy3qgfEGVAsS3CokOLi1MOH89YSjAwYPpRXsyQi0slP7k8k2XgglDW3wd2 +c/Hpxwf8F2oMiK2VSLNz4uImB55bujoDJ93Cglh7ubhwgWZQoAYDYfcdVsy6 +cvE1r7JCTosBL0ow+TKbi4tNFt21X8kAq4HNeR7IRdXK4tFYXQbakrXENZK4 +qHBhhemgCQN3QfJgXzIXK+zijRNMSfyh8dqiVC4aPzaSXG3GgL51bfT6K1yM +6u5GrjkDiQLeo3YZXLxC3ax9tZGBrf5Z78MKyfrsMxZ7WTCgrPyn0ca7XLwR +q3V6mHi8wT91TgkXEzO8XoVbMpC9HOwS73ExYMCt9cIWBn5+/Pj0ZiUXs3+o +9dyxYuC+rVL+63ou/rKzbr+znYFzjJDwxQYuuuj5piy3ZYCd3+/l0sjFrx6T +ylnEUnMrlXqauNgUVX73gh0DvlXOF/j/cTHnge09zx0MaKy6HKrZy8VdTefX +NOxigGmLevOVx8XAvA/i+rsZaI7n6hX3cdG57crjNOLoLoN+k0EuJgx/TmY7 +MtCe9sZ9xxgXdfWyRfucGEgRkd4SLkihoYf7wkpnBh6PfnQLmUPhcX5f7WIX +Br58LAg6IkzhTJzT7FFi8/uWWez5ZHyDvdAaVwZ4nmE/bKQpjCy23XDKjazf +dovMFlkKtWso+ffEZsYy2iBHoR5zKHjVPgaSJAv3sBQpbKmpKK8nNqv8XKqk +RmHesSi/MXcGqNzCejkNCunKDrbpfjI+6djnhVoUlpy27Ygh5lGyknO1Kcx1 +n+s0z4N8l7U6OKhHIdsXDwl6MlD5SzaGp0/h3rfZIebEvV87L3UaUPgthS0U +Smz6NLymdT2Fx7xu5/QQ9/jeVfkbKWyfNRcq8WJggXOE4aPNFIoo+Kt8Jjax +2GZbaknhzX99HkuwSb0o0sdyt1G4ZHdMlDdx+dzipEwbCv+MOJaVQNz9LSLv +qi2FBWICW+4Tr6+Te3vegUKb/nCZWWJ2KT1weheFf7Q4mql7M3D+erHQCUcK +3zqc6rUgpoOs9UKdKUwQr/77BLHkfnmrAFcKZRTuD2QSr7fudvfZR6Hu3pa/ +qn7/vyzq3H5PCtd0HYocJi4Xs8l2ZlPYpv/vXWEOiTchX7GLQ+HDemArEUt2 +dTfZUhSmTRddXku8vrGEt/UghUmZi2w3E7MfRf1EHwr/U/M7sZv4fLbNIjNf +Cn/6lJp4E5efV1hteITC50MdgYG/44f1bFobQKFLzpdV0cQSnFJn7SCSH6lm +zhli4x3R/hohFDaYJC9L/R3fdPsp5VAKo0tXuF0jTtBanK4QRvKVmKSQTfxQ +qveedDiFiwNeOuYRd/0obRCPpHAkolnmzu/4X6K7hKMpfOGRs7OI2Khl+/Rs +DKlXB0vpu8T/B40S9nU= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "PlotRange" -> {{0, 180}, {0.5756275242215979, 1.649580066155096}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5756275242215992}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8015,21 +13554,20 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.5756275242215979, 1.649580066155096}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.5756275242215992}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8043,103 +13581,105 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV1Hk8VdsXAHCUyFCGkETGSkVyDRlqraJESEUZEq57TyUy5smYpF4lGRr0 +ypCIRIYmQ69fIklePOkpGji4yVRm96T8dn+cz/l8P2eftfdee62txvbfxRUS +EBDoI8/vd+Br3RWPml9v7CjlHTp7mIaNwzmGbMtCyCryuPHbnZlGFzUtH0PA +hzqrc8QOnH/mSbCeg7DVUvcE4tKwmBphy0YwnfHoOk98pm7x05iCf6FYKqX1 +AnFFc2DGjP5bGM4oM0oh7m9viDxW9Q6cX1SLXCJe0qvhNmnxAVxL/meVRrz9 +W6RJcONnWHeqcPIa8ZOZfvGwgi7oCf9zURbxf7EKEQ+PdEN23e4bOcTD8yz7 +x/V7AfMWpN8mnpcQ4MKa4kGOZ4VIMbGKdHp9YFUfnDB37LpPbK80eWvYYhAE +sty6qompLHV5HdFhuPWuXuQlcYzWjvjDjd8g/9KK9Gbidwqt60IKRuA6VC3q +Iua4+hxKTRiFhxIjk1+Jv18XuFF2ZAzCVJZsGyMWVdeRGtGfADHpbcYivjRc +5NRYSclNwkZB+7fSxKp5LjFrpyah1tGaXkq8fs2pYb+qadgar25tQHzQ6HNj +v8UMLBgLsDlIPB52dK7Y8p8QUMXyDCU+XiVuri36C07BSM9J4jRcf+dA4yzI +XPEwu0nMya23DCoQxLZU1aW9xAV1qZ2xSkKYrdp8e5L4+5f9kckJQihuFntL +1I+GyFUT90qOzMGokYFBHeKLxWoa3/SFcTB9tiiKuL158Mmvm8I4favtXgqx +6ugj1wVy87Dpz4qV+cSFBvYpOlPzsMQ306OVuLYiXNC3ShTr5OWE9I/QMFHz +5nOfhQSa7qtbIuRPg4ythFTEEwlUfy0VqEqs12qJkiaSeE95whqIfXoeZK3T +XYDNMqlx0cQBQo16GySkELfsk58TQEOv+t2R+ElpNJ73q0ozkOSHapjfxJLB +cZvP5tuJhe7w1BYHymCYVBQGEauylu0qGJDB4u6ppmpiV4ukstedshjerid1 +IIiGJu+gYIVXclhgNqPQEEzDp7zEc56i8qiZ0vF8mnhwoODm7S3y6KmXPbki +hAaxkO43Zk/l0UdmpPM0seVJRwPPBwpY2P71nd1RGipzjCbyMxUx5Iqwy2go +DTm9TKhpiDJezootTQ+nYZvT6U/BRcpY2Jud9I54sFZ2axFPGcNfWNKyETQY +5KyRU3VRQU0bhY/niGvZ++8Jb1yGW+fsXhcbScPot84/+uJUsdVSYW9sNA2y +fpb379mpY8rKvJK2EzTwcsQOOvioo5d/Mk81jobyD81KQ6fU0Xm//wUf4n22 +7nHLn6pjDEvedJY4Z3Xorqv6GigtETumE0/m78/7Hq2giRLmPkzWaRocD4jr +2HRpYZJTbejHBBog1El/708tZCVvcWWdp2FVfKYxR3E5fvnjZeEZYoGbrM3R +O5fjORjIME6koeiT296y6uUoWytXnnaB9Oeewtgl2SvQvkj6mX8KWZ+l3X/9 +bG18nLZiT2AaDTd3X+mYitZGTWUVjbfEieyuzrnXtHFpX6mHyVVS38ePDqi8 +0cYItboVc/6iQfpxusBui1XYIGkwfu0aqR/W8KoqjdWoV9t0gs6gQUn9Qsy5 +njVY0hqTXpNLw+Oz49p8IR38X/UHGbhF8jHm0kqp6WDjPC+JKuKMWk3tzft1 +kN/w89z9PBrUD1S2TLfp4PId7k+KbpP9FvZqUa90cSYxdLK8iAZlJRVK1UUP +BZOeDOg/pGFNbojED9DH7Kic6of1NLA5cRM69vrYWawgYv2S9KtGyifPffq4 +rSa6uoN4TnZxSV2YPoYdtrok9Ir0W0a/Y0qpPrYoXa9w+ofcp2me6doaLPwh +v25GuoWc7zlbXed5Bng/RPcG3UHDjSBNhweNhljj83Yj7zsNZZ+enlv8wRB5 +hmue5IzQ8MzG/UXEgCHmFDq/9B6loUf98sbNYkZY5uoV1z1Gw/I3IjpNVka4 +uiD89NdJ0s+sgflfnxnh5ne67Qt/kvMZL61ZWmGMM5T9r+fzu6E5FIxP5prg +5jkigh2a3aC2/629u+8GfKLz1D/Rsxu4sw/vKh9DPPs+tU8/qxsUBspFFNib +cVXdX2Uqw90QwjL/kLLKEjeEdff8AT3AHpqpl+3fgtTlCDh1pQeKNgeLZDZZ +4QnWRbwt0As54z7VhRetsfpl35KFvr0wvWnxP7Ux29H06ajgeH8vfBSYM9Ll +ZYdnXk8tiQriwZGl/kmxGjvQaWiiSeAHD+4eqn96Kd4Bp1a6dYX89QXCxxSn +Vh/aia9eRi+1M+2DCZute1547MI3DzLmdoz1gYlb8qbenbtxA/qdef/wK7Qo +pvvUshxRdp8cczSsH5bcinucv9IJN6w2/OmydwDKO1fZ2kvuwdybCZvqWIOg +0vr9QOjQHpzd3/vuqMIQsC4lF97s3Is1Sa4ibKVhSJ87pptS44yieS1ltOI3 +eLhpbXt8hQs6p4+06ip/hzTjs9IzBa5oIFR5orfkOzR15J5iJbjhj5NyA89g +BB7YXdcMOL4PfbyPmz36PAIjfrsFjnDcsX3pUSu1Y6MwsVX74LDFfjy8cq9d +nswY5A+9nw428kA7qZPZDVVj4Hwj19tdwhPXyVwe/+46DvfKtnvMOe2JpfhS +PFlkAkyUWvhn+J6YWZ+a65c3ARqdB9r/PeSF8ou0xfw3TUKP+OEd17u9cLu0 +zVRO9yQ0J9p7WzmxUXbi8sEHIVNwMSxT/GgzGy8rr84aEJ2Gx09m+d7W3ljQ +Xiaod2EaFu7D06xKb9TNctY7LsAHE8/h/HgDDh51u/jNw5cPt65+D7Y34uCy +rh8vWvz4sOjN6EaF9Rw0vlp1x9KfD8NbplrzzTj4trkmVSuIT+4vAcHGzRwM +tYzr6PiDDwumpF1kdnLwb/8nk4pxfOg5bzg/04+D4WGRr9+n8SGxKvJQ+S0O +Km7Is3Cs5oOf/hWTsHwOytaLKsY+44Pt7dL56ws4eE/xxVBhDR/ErvBuPyri +oJuE5kXBOj7EBzn0P7zPQYPIkVcZDXyI1NY8/OAZB/et1s7Nf8MHnyuvfMs+ +cdBqIHJ8qocP1gt45kGdHORsTdWYy+PDyngBSX2ag83Jz7ct/MIHXpBhUWkv +2V8WN0T9Kx+87DOHSgY5eLBucpv5EB+chYOPFDMcPHbY8s6GCT5YBS8JKJTn +4nWm7fjRuQw8yzxlk7KYi2cDGv4JFmbAvHFUM2wJF59N89sC5jGgp/XqvYUK +F1uy3qgfEGVAsS3CokOLi1MOH89YSjAwYPpRXsyQi0slP7k8k2XgglDW3wd2 +c/Hpxwf8F2oMiK2VSLNz4uImB55bujoDJ93Cglh7ubhwgWZQoAYDYfcdVsy6 +cvE1r7JCTosBL0ow+TKbi4tNFt21X8kAq4HNeR7IRdXK4tFYXQbakrXENZK4 +qHBhhemgCQN3QfJgXzIXK+zijRNMSfyh8dqiVC4aPzaSXG3GgL51bfT6K1yM +6u5GrjkDiQLeo3YZXLxC3ax9tZGBrf5Z78MKyfrsMxZ7WTCgrPyn0ca7XLwR +q3V6mHi8wT91TgkXEzO8XoVbMpC9HOwS73ExYMCt9cIWBn5+/Pj0ZiUXs3+o +9dyxYuC+rVL+63ou/rKzbr+znYFzjJDwxQYuuuj5piy3ZYCd3+/l0sjFrx6T +ylnEUnMrlXqauNgUVX73gh0DvlXOF/j/cTHnge09zx0MaKy6HKrZy8VdTefX +NOxigGmLevOVx8XAvA/i+rsZaI7n6hX3cdG57crjNOLoLoN+k0EuJgx/TmY7 +MtCe9sZ9xxgXdfWyRfucGEgRkd4SLkihoYf7wkpnBh6PfnQLmUPhcX5f7WIX +Br58LAg6IkzhTJzT7FFi8/uWWez5ZHyDvdAaVwZ4nmE/bKQpjCy23XDKjazf +dovMFlkKtWso+ffEZsYy2iBHoR5zKHjVPgaSJAv3sBQpbKmpKK8nNqv8XKqk +RmHesSi/MXcGqNzCejkNCunKDrbpfjI+6djnhVoUlpy27Ygh5lGyknO1Kcx1 +n+s0z4N8l7U6OKhHIdsXDwl6MlD5SzaGp0/h3rfZIebEvV87L3UaUPgthS0U +Smz6NLymdT2Fx7xu5/QQ9/jeVfkbKWyfNRcq8WJggXOE4aPNFIoo+Kt8Jjax +2GZbaknhzX99HkuwSb0o0sdyt1G4ZHdMlDdx+dzipEwbCv+MOJaVQNz9LSLv +qi2FBWICW+4Tr6+Te3vegUKb/nCZWWJ2KT1weheFf7Q4mql7M3D+erHQCUcK +3zqc6rUgpoOs9UKdKUwQr/77BLHkfnmrAFcKZRTuD2QSr7fudvfZR6Hu3pa/ +qn7/vyzq3H5PCtd0HYocJi4Xs8l2ZlPYpv/vXWEOiTchX7GLQ+HDemArEUt2 +dTfZUhSmTRddXku8vrGEt/UghUmZi2w3E7MfRf1EHwr/U/M7sZv4fLbNIjNf +Cn/6lJp4E5efV1hteITC50MdgYG/44f1bFobQKFLzpdV0cQSnFJn7SCSH6lm +zhli4x3R/hohFDaYJC9L/R3fdPsp5VAKo0tXuF0jTtBanK4QRvKVmKSQTfxQ +qveedDiFiwNeOuYRd/0obRCPpHAkolnmzu/4X6K7hKMpfOGRs7OI2Khl+/Rs +DKlXB0vpu8T/B40S9nU= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.5756275242215979, 1.649580066155096}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.5756275242215992}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8149,7 +13689,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6044061540843444}, + AxesOrigin->{0, 0.5756275242215992}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8177,7 +13718,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5756275242215979, 1.649580066155096}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8185,9 +13727,9 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913320330871353`*^9}, + CellChangeTimes->{3.9913320330871353`*^9, 3.993917153720121*^9}, CellLabel-> - "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] + "Out[162]=",ExpressionUUID->"2f05eba9-19e8-4dd3-953b-3f41773c53ce"] }, Open ]], Cell[CellGroupData[{ @@ -8250,205 +13792,158 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918491076725483`*^9, - 3.9918491120260525`*^9}},ExpressionUUID->"cbec275e-4d01-7747-9ece-\ -7fa9a2a651b1"], + CellChangeTimes->{{3.9918491076725483`*^9, 3.9918491120260525`*^9}}, + CellLabel-> + "In[163]:=",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.3103931946086534`*^-270\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 221, - 189, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033325203*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 163, + 73, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993917153797319*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +In[163]:=",ExpressionUUID->"e88330f7-6a4d-4b8a-8ecd-25061895359a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.3453629878567096`*^-281\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 221, 190, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913320333342056`*^9}, + 163, 74, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.9939171538026342`*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +In[163]:=",ExpressionUUID->"baf7453a-836e-4b1e-a391-6b37df72fc11"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.834171141597914`*^-293\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 221, 191, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033342205*^9}, + 2, 163, 75, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993917153806798*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +In[163]:=",ExpressionUUID->"5b6e49dc-d682-4e03-98aa-536569be85af"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033351204*^9}, +during this calculation.\"", 2, 163, 76, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993917153810686*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +In[163]:=",ExpressionUUID->"f6173936-13bd-4adc-b2eb-007a6646f35e"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4FW0bAPDelCjUS9kP58w5trKvKaf7TsrWgmiRtSzJUhRlqSwJbxIp +IQlRWc8QQpJQKIRkLe2lhShUSn3P98e55vpdM9eZee7nXmZYu/fbuM+dM2fO +H/L7/3F6uLWJcyp3jfkFoZi9s2vW9GRKBq/tj4TsOuF4F19ZwGWPdkv2n4Wg +xqPN8r6qEGRV0MfXnwND53SvTPkYwb9jEmd/9pWBxVL7uGqfjfC8dvP+yb4G +aNc54fLX2wE2cD4+m+jrBus3ngu0vXzgZ5/B+fG+V5CuUz4m5BQGjeuu5Xbl +fINrIswlX3edBtnn1e92q87CYqHO9rrk87DUx7lgwTo+zK+/aJK7NAPOam24 +tdlOAJeNFpktd82GgVTN+oklwugWd2+RlVkunMo9/miu1L9oxfh0t0X5Gkic +ex2XfEkMeyp7VXVL8iHG1nxN9/QyDBh6W7jpdiFIl3dIz/1HHDkV92VS7hVC +iZjtd61F4jg+o/ilv70Qerud6CR5cXSriavdNFwIHOtDlLWZOLZcN+r79qcQ +GjZd5u9ME0fWszyuFhTB7IapjnYjCfQ8En1r360iOGiY7dwaKYnSwh5CJTnF +YJElMmkZL4ms1uqopfnFQC0Ii+04L4ncJxJjgbxi6OzZVvr4uiS2FNimq9QW +g/oBIb7hDkncpdy+3vZJMYxcPXz1q7QUBo6sPl/JXwIOSzePytyQwtffdJqK +3EtAJ/RWRGatFKYLDo8d8C6Bha+UxVn3pXA7Ws/V9C+Bah4fKA5IIS2Q/yoz +rATELasTNf9KYTM/fxQkl0BnBEd3vaU0euwxF4+/UwImX2ZC/F5LY87e037W +S3kQbHZu+d3P0ujMGE7eIcWDkmy1QbFpafTiN+60l+OBpK2LYbWADMq/FE6w +UubB56p73/nUZfDbmWjZf4x4kByZeCjtiAyaZqceD9rNg1fLFP2ahGVRJdc/ +sKyQBxL77zAkJGSxypsvVJbmwcaWHe1eTFnkRLqmRpTzoDLklOpiHVn8azMq +zb3Ng/+ej3/cuUMWG8sOGgd38EA7/5bnlxxZzPBqXsk/zoMII2tX6ZUMTFC7 ++L1aggYzp8yvBsYMnLUZeNYqRYNI+Kcou40MbE+Z96ZXhoaMxuiriS4M9C95 +YDUiT0OVRc0n/jgGXpj/jB5RomF8Bzvo2wADTYYXlzsb0OAUOPVfW6gcmmf7 +GCrb0qBwwVj2Y7QcJhfaHXtqR5P1nylekCiHm0ZmP5zeTkPIb5VO41w5TArO +0B+xp+F8lNOy6jY5XChTVhTiSkNbUvPlPIY87g8ZtJTwo2FVSVr5sTvy6P5q +dZhWNA0mfR2zYy3ymNtGMw+dpGHznHmmzt3y2GXx2aY8hoY9Nn4D8FYea5a/ +dVX7j4YNoazj4fOZaNS6VnvuGRoOyE9fWbuCiaKLcl7qp9IwdSOx5acGE8uq +JWNs0sjzma0YLdVlYut3qzve6TRE+7voU2uYKF+740NKBg3pjQ9a5lozcfF8 +JbXOLBqaPC+PNgYx0XdPVn3HdRrMfxuKhoUycXQl/63GfBo6Env0dcOZeJ6u +2lRZQMNAtWB4bhwTd2YHc88V0TC26JBodAYTFw40WenQNEjSZgYbGpjIVRe7 ++KeShksmr3f9uc/Erf6rTNtv0kANHA2vfMhEk4J7SWlVNKjNvdGq+ISJtZlZ +fCtqaDC2ZTgsGGFiXmGZu9ZtGnx+TIS3CLPw9lub420NJJ7+HuLvRFkovazN +JqqRBoGPg4V8kixMXdXlatBEQ95QY+8aioXqI2W6F+7RMFx3XrVCn1wv4HZb +r4WGIoOFDd2rWbiT3RLWSxxCH9s+jiw8mK4VdqiVBvEcz8gVlizkK3LiXn9A +w5Zow/5sZxau69o8MNZGg9yfYt87bizM3cafH9xO8iOI4nvmxcJDXl63/+mg +IXbvInXJQywc2X+2UvARDfWWz6ISYlkoNmTw60cnDQlN1lJFp8n9e0T+8eui +wYF7v6T1LAs14vZYvSD+qc4bmHeJhV8Yv9tru2nQFo3QCC1loa+d+Ta7Hhrm +nJpqSq1koUjX3upy4g6+ffaVt1jIcOHz/vcJDd5TNtET91iYwq9X20C8yq9Z +evFDFg7tE3OU6CXxer+aVu1koWfor81exLn9nCHPQRYO+x9Tnt9HQ4B12oHo +5yy8+NL93y3E+ECY/8obFgYuGd+UQvzs1rTm8BgLtV/HN8n2k3jqet//9Y2F +ljjxdxdxSPHzXVI/WTi/42JSKrH45ZaTtnwUivz1rREcoOGNBFc2QIBC/aOf +bdYQlyWWlp4RpnDghZPJAeJwQUXTYlEKg9QDzlwm3hKZ/vSBBIVpQj26bcRy +v0QCRmQp9GnU1psm/nwwagE/RaG5ETeJMUji7+6jvVaVwi6jpc5uxNuGXzQ7 +aVG4vHptdxQxZ7udY5g+haIvnl7JIv76qPVr2moKV9Zc6KkhrjdbE3sTKfw0 +xnHvJk64W8Z4sp7C5EaDbe+JHVYp3fhqQaGJzInrP4mX37hotsSKwu1BdQ6C +Q2T/ViwZVrOj8PPExYPixNOXpCN07Cl8UnSvgUk8uViBY+hMYUClRoIy8USE +RvMaNwpVWDG9asRj3wz3mXhR6HUmOEOT+JO7ibCFH4XGOhUv/u+Rvs30loMU +fmkfuaJO/NZ851a7IxSG8hrfqRC/urVn2v4ohfaVU/kU8XM1vzSXSApnNmuM +SRI/vXzEyCOGwl0HWeVCxAP/Rj33jqewsODo71mynt6o05H+SRQOCkw3fyZ+ +PHVB4XAK2S91rsQAcadnTkvYRfJ/G/g/NRC3DxR5R2ZROLZwvkkB8QPLmyKx +eRRO1o5SZ4ibb98tPV1AYdHywFh/4iaNNttkHoW/C60CrYnvZvd+Ty2nsJjS +/6hOXCf2Mj2zmsJFM0PvBYlvRX/i5tZRuFfxp98rst9V36de5DdS2MhZH171 +//wZWqhU0U4hS9fCxJGYt2nZg5puCrPfHfqxgrjojrxvfR+FpsWlhj9IPl69 +onvj4UsKlaMtPOKI072d4NUUhRvmBYUlkPy+8Gzvq/czJH8sC4rNic9tORg9 ++pfC3I2d/nOJE3RiH/4QZOMqmU8VPqR+In+Vbl8sx8aRAUtjDqm34761M0vZ +bGyBGfk2Up9hz+9fklZmI687PcWfOKhx6LWCNhvFzWqtKx6Tej01/4DRBjYG +V7xYyiT1vnd2sZixJRsfrT/6qJz0A4/90pWmVmxs9FVVMSV22arx28aejYsF +nta6kX5iK7Mz1suPjS8FNodGkf5jVFiUlZLCxpR9ofOsSP8aYhZeXn+RjQt+ +vXnbQvpbSEp+5uRlNjIiMuqB+GbE1QybfDbm7UlyUyL9UHtHVqpILRu/x384 +Mkz6p8r8c4knX7JRJn655+d6GlpCzp7Re8fGtXn7VdcTe4wnJrz5yEZ74fSp +i3dIPxk6HW88ycborVYp6+poYJbFxP7h52BgjQYn9BbpB86h4UGqHMwu0VwY +X0FDRU/wcQUtDs4VMnG+V07WY3HkWI8eB6sVlRt/36DhrF5gmDZwUDtIuca9 +jAZhof1Hxqw5WNUfdYTJo2Fe9e4DHoc52P4l6LEhmV8TohYu2xo46Hpv5485 +ZB72+1Cd+5o5WF7UF/r+Aqnv+zNwvI2DjtaWXQ9TaEgMKZS/3svBwtG2qdPn +aNB8JfT850cOTo44wg8yb/1KHzleElPAt6lC19zJvP64xW7XGzcFFLrb6Vvg +T0N3vtrDH14K+Js6NG/TARpq+PhXC+9XwJKIyFOjZP7H3ayU1g9WQOeV9/yU +fWhQlpccjDmtgFsXG+RFe9DgOTa4Y0WlAraI+RcPk/eJN/Eu2wIWKGLV/ccS +osbk/h9VKU0hRbSsS4dEpOG76c/R0SWKeLDd9qYQ0LCQ72y0l7Qi1nt8TJtj +RJ4/uLHcRU0Re25cNu7Ro+Gou6LYlq2KOPlrYnCFCon/ms+PVlxWxLN9WdPZ +ImTefzls/lZfCXXyD9SV5vNAVkvupICREkpknE9JyuPBWEBTw4q1SmhfWjbt +m82Dc9NLjAIslbC18ux22TQeDM/mq/91VkLcpjKwJZYHAUJPxaTilPDuwsv3 +xTx4kK6CwxuHlDAyVo+Wkyfvk3sEDpYfV0ab4ZN5tTEl5PtCYm5MgwryxhwD +j3GLQbRdMYH+shzb9d60a44Ugmwsz0pfXxVD/ymrntxZAKkrDJeIeaphOCdL +7nH3dXggvVbvW5I6ymbZb8wyvQarZBsSNXo1MCzHWXXHuTwQ4cs55BqpidZ3 +tqrkzl4BuQh5o52KWpjh7c6cMc8BQQWHSptmLTS5UlWx/3oWqHOleIcdtbGj +sjmhxDkTAoZFGy3m6KCmRF3wdeuL8OVbvJ15qg5+iG+r0b2UCqYa99PN1XTR +h5lVIchIgbpvq39979DFcjurdptzyeCnqj3Y5a6HnTudj+XuSQLumFvPTkF9 +PO2oMsDalwDrOZKbhHP00d3bZ91o2X+gHP7fkQYDA+x4Vuz0cHcMLHc3vKMw +aIDGay5kMRRPgHvd3hPl/isxem/GmfCACLiT1eM2scwQ10re1l1UdhQmr//9 +rnHTEBV1N9u36AXDHoVCwfRNq7B6QVKBSVwgTCxP1i8bX4X8j/ZFNy0OgKrc +Xy+nYlfjNWaX3ddwP7A3YeNqOSPc1vI0xKPGC2R8Y6rV643w5OPS22Jm7rBs +oU/ppu1cXOXQ1lhU5wq5646GjO/kolI0O41Bu4L20YR1yQ5cPBGT8CA12xU2 +j9NP+l252FejuLzkhCuc7J36uceHi3FhYSttLV3hR85x45AILoadYATHDrrA +4Orkx1cLuTi/4JKa1xwX2BuYm2FewsVfbI1U3XfOMF1S4f6ZJucfmzEKHjqD +KNX/XauSi3I9M90dKc5gKcCQvV3PRWppatmsmjPU9lx1e/yEi6c6F0a+d3YC +C5EqtaB+Ltb1Wc0P3uAE/aat05JDXOw/0yrHUHOCyZpPsU4vuHgn2H0kY8YR +1LI1iz985KKnQcmV4BRHqB1cGxQ/ysXdS3ryMo86ku/mraAxzkUvh9p3T9wc +wSMmsOvQFBcfHt73M0THESbrT6ZL/ODiVEl0xYi0I0TOXNhTM8PFXhWR6L1z +HWGJbr6q4ywXMydWOs58cIBM35qpv3+56KENOpldDvA/il5b0w== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8462,164 +13957,113 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV13k4FW0bAPDelCjUS9kP58w5trKvKaf7TsrWgmiRtSzJUhRlqSwJbxIp +IQlRWc8QQpJQKIRkLe2lhShUSn3P98e55vpdM9eZee7nXmZYu/fbuM+dM2fO +H/L7/3F6uLWJcyp3jfkFoZi9s2vW9GRKBq/tj4TsOuF4F19ZwGWPdkv2n4Wg +xqPN8r6qEGRV0MfXnwND53SvTPkYwb9jEmd/9pWBxVL7uGqfjfC8dvP+yb4G +aNc54fLX2wE2cD4+m+jrBus3ngu0vXzgZ5/B+fG+V5CuUz4m5BQGjeuu5Xbl +fINrIswlX3edBtnn1e92q87CYqHO9rrk87DUx7lgwTo+zK+/aJK7NAPOam24 +tdlOAJeNFpktd82GgVTN+oklwugWd2+RlVkunMo9/miu1L9oxfh0t0X5Gkic +ex2XfEkMeyp7VXVL8iHG1nxN9/QyDBh6W7jpdiFIl3dIz/1HHDkV92VS7hVC +iZjtd61F4jg+o/ilv70Qerud6CR5cXSriavdNFwIHOtDlLWZOLZcN+r79qcQ +GjZd5u9ME0fWszyuFhTB7IapjnYjCfQ8En1r360iOGiY7dwaKYnSwh5CJTnF +YJElMmkZL4ms1uqopfnFQC0Ii+04L4ncJxJjgbxi6OzZVvr4uiS2FNimq9QW +g/oBIb7hDkncpdy+3vZJMYxcPXz1q7QUBo6sPl/JXwIOSzePytyQwtffdJqK +3EtAJ/RWRGatFKYLDo8d8C6Bha+UxVn3pXA7Ws/V9C+Bah4fKA5IIS2Q/yoz +rATELasTNf9KYTM/fxQkl0BnBEd3vaU0euwxF4+/UwImX2ZC/F5LY87e037W +S3kQbHZu+d3P0ujMGE7eIcWDkmy1QbFpafTiN+60l+OBpK2LYbWADMq/FE6w +UubB56p73/nUZfDbmWjZf4x4kByZeCjtiAyaZqceD9rNg1fLFP2ahGVRJdc/ +sKyQBxL77zAkJGSxypsvVJbmwcaWHe1eTFnkRLqmRpTzoDLklOpiHVn8azMq +zb3Ng/+ej3/cuUMWG8sOGgd38EA7/5bnlxxZzPBqXsk/zoMII2tX6ZUMTFC7 ++L1aggYzp8yvBsYMnLUZeNYqRYNI+Kcou40MbE+Z96ZXhoaMxuiriS4M9C95 +YDUiT0OVRc0n/jgGXpj/jB5RomF8Bzvo2wADTYYXlzsb0OAUOPVfW6gcmmf7 +GCrb0qBwwVj2Y7QcJhfaHXtqR5P1nylekCiHm0ZmP5zeTkPIb5VO41w5TArO +0B+xp+F8lNOy6jY5XChTVhTiSkNbUvPlPIY87g8ZtJTwo2FVSVr5sTvy6P5q +dZhWNA0mfR2zYy3ymNtGMw+dpGHznHmmzt3y2GXx2aY8hoY9Nn4D8FYea5a/ +dVX7j4YNoazj4fOZaNS6VnvuGRoOyE9fWbuCiaKLcl7qp9IwdSOx5acGE8uq +JWNs0sjzma0YLdVlYut3qzve6TRE+7voU2uYKF+740NKBg3pjQ9a5lozcfF8 +JbXOLBqaPC+PNgYx0XdPVn3HdRrMfxuKhoUycXQl/63GfBo6Env0dcOZeJ6u +2lRZQMNAtWB4bhwTd2YHc88V0TC26JBodAYTFw40WenQNEjSZgYbGpjIVRe7 ++KeShksmr3f9uc/Erf6rTNtv0kANHA2vfMhEk4J7SWlVNKjNvdGq+ISJtZlZ +fCtqaDC2ZTgsGGFiXmGZu9ZtGnx+TIS3CLPw9lub420NJJ7+HuLvRFkovazN +JqqRBoGPg4V8kixMXdXlatBEQ95QY+8aioXqI2W6F+7RMFx3XrVCn1wv4HZb +r4WGIoOFDd2rWbiT3RLWSxxCH9s+jiw8mK4VdqiVBvEcz8gVlizkK3LiXn9A +w5Zow/5sZxau69o8MNZGg9yfYt87bizM3cafH9xO8iOI4nvmxcJDXl63/+mg +IXbvInXJQywc2X+2UvARDfWWz6ISYlkoNmTw60cnDQlN1lJFp8n9e0T+8eui +wYF7v6T1LAs14vZYvSD+qc4bmHeJhV8Yv9tru2nQFo3QCC1loa+d+Ta7Hhrm +nJpqSq1koUjX3upy4g6+ffaVt1jIcOHz/vcJDd5TNtET91iYwq9X20C8yq9Z +evFDFg7tE3OU6CXxer+aVu1koWfor81exLn9nCHPQRYO+x9Tnt9HQ4B12oHo +5yy8+NL93y3E+ECY/8obFgYuGd+UQvzs1rTm8BgLtV/HN8n2k3jqet//9Y2F +ljjxdxdxSPHzXVI/WTi/42JSKrH45ZaTtnwUivz1rREcoOGNBFc2QIBC/aOf +bdYQlyWWlp4RpnDghZPJAeJwQUXTYlEKg9QDzlwm3hKZ/vSBBIVpQj26bcRy +v0QCRmQp9GnU1psm/nwwagE/RaG5ETeJMUji7+6jvVaVwi6jpc5uxNuGXzQ7 +aVG4vHptdxQxZ7udY5g+haIvnl7JIv76qPVr2moKV9Zc6KkhrjdbE3sTKfw0 +xnHvJk64W8Z4sp7C5EaDbe+JHVYp3fhqQaGJzInrP4mX37hotsSKwu1BdQ6C +Q2T/ViwZVrOj8PPExYPixNOXpCN07Cl8UnSvgUk8uViBY+hMYUClRoIy8USE +RvMaNwpVWDG9asRj3wz3mXhR6HUmOEOT+JO7ibCFH4XGOhUv/u+Rvs30loMU +fmkfuaJO/NZ851a7IxSG8hrfqRC/urVn2v4ohfaVU/kU8XM1vzSXSApnNmuM +SRI/vXzEyCOGwl0HWeVCxAP/Rj33jqewsODo71mynt6o05H+SRQOCkw3fyZ+ +PHVB4XAK2S91rsQAcadnTkvYRfJ/G/g/NRC3DxR5R2ZROLZwvkkB8QPLmyKx +eRRO1o5SZ4ibb98tPV1AYdHywFh/4iaNNttkHoW/C60CrYnvZvd+Ty2nsJjS +/6hOXCf2Mj2zmsJFM0PvBYlvRX/i5tZRuFfxp98rst9V36de5DdS2MhZH171 +//wZWqhU0U4hS9fCxJGYt2nZg5puCrPfHfqxgrjojrxvfR+FpsWlhj9IPl69 +onvj4UsKlaMtPOKI072d4NUUhRvmBYUlkPy+8Gzvq/czJH8sC4rNic9tORg9 ++pfC3I2d/nOJE3RiH/4QZOMqmU8VPqR+In+Vbl8sx8aRAUtjDqm34761M0vZ +bGyBGfk2Up9hz+9fklZmI687PcWfOKhx6LWCNhvFzWqtKx6Tej01/4DRBjYG +V7xYyiT1vnd2sZixJRsfrT/6qJz0A4/90pWmVmxs9FVVMSV22arx28aejYsF +nta6kX5iK7Mz1suPjS8FNodGkf5jVFiUlZLCxpR9ofOsSP8aYhZeXn+RjQt+ +vXnbQvpbSEp+5uRlNjIiMuqB+GbE1QybfDbm7UlyUyL9UHtHVqpILRu/x384 +Mkz6p8r8c4knX7JRJn655+d6GlpCzp7Re8fGtXn7VdcTe4wnJrz5yEZ74fSp +i3dIPxk6HW88ycborVYp6+poYJbFxP7h52BgjQYn9BbpB86h4UGqHMwu0VwY +X0FDRU/wcQUtDs4VMnG+V07WY3HkWI8eB6sVlRt/36DhrF5gmDZwUDtIuca9 +jAZhof1Hxqw5WNUfdYTJo2Fe9e4DHoc52P4l6LEhmV8TohYu2xo46Hpv5485 +ZB72+1Cd+5o5WF7UF/r+Aqnv+zNwvI2DjtaWXQ9TaEgMKZS/3svBwtG2qdPn +aNB8JfT850cOTo44wg8yb/1KHzleElPAt6lC19zJvP64xW7XGzcFFLrb6Vvg +T0N3vtrDH14K+Js6NG/TARpq+PhXC+9XwJKIyFOjZP7H3ayU1g9WQOeV9/yU +fWhQlpccjDmtgFsXG+RFe9DgOTa4Y0WlAraI+RcPk/eJN/Eu2wIWKGLV/ccS +osbk/h9VKU0hRbSsS4dEpOG76c/R0SWKeLDd9qYQ0LCQ72y0l7Qi1nt8TJtj +RJ4/uLHcRU0Re25cNu7Ro+Gou6LYlq2KOPlrYnCFCon/ms+PVlxWxLN9WdPZ +ImTefzls/lZfCXXyD9SV5vNAVkvupICREkpknE9JyuPBWEBTw4q1SmhfWjbt +m82Dc9NLjAIslbC18ux22TQeDM/mq/91VkLcpjKwJZYHAUJPxaTilPDuwsv3 +xTx4kK6CwxuHlDAyVo+Wkyfvk3sEDpYfV0ab4ZN5tTEl5PtCYm5MgwryxhwD +j3GLQbRdMYH+shzb9d60a44Ugmwsz0pfXxVD/ymrntxZAKkrDJeIeaphOCdL +7nH3dXggvVbvW5I6ymbZb8wyvQarZBsSNXo1MCzHWXXHuTwQ4cs55BqpidZ3 +tqrkzl4BuQh5o52KWpjh7c6cMc8BQQWHSptmLTS5UlWx/3oWqHOleIcdtbGj +sjmhxDkTAoZFGy3m6KCmRF3wdeuL8OVbvJ15qg5+iG+r0b2UCqYa99PN1XTR +h5lVIchIgbpvq39979DFcjurdptzyeCnqj3Y5a6HnTudj+XuSQLumFvPTkF9 +PO2oMsDalwDrOZKbhHP00d3bZ91o2X+gHP7fkQYDA+x4Vuz0cHcMLHc3vKMw +aIDGay5kMRRPgHvd3hPl/isxem/GmfCACLiT1eM2scwQ10re1l1UdhQmr//9 +rnHTEBV1N9u36AXDHoVCwfRNq7B6QVKBSVwgTCxP1i8bX4X8j/ZFNy0OgKrc +Xy+nYlfjNWaX3ddwP7A3YeNqOSPc1vI0xKPGC2R8Y6rV643w5OPS22Jm7rBs +oU/ppu1cXOXQ1lhU5wq5646GjO/kolI0O41Bu4L20YR1yQ5cPBGT8CA12xU2 +j9NP+l252FejuLzkhCuc7J36uceHi3FhYSttLV3hR85x45AILoadYATHDrrA +4Orkx1cLuTi/4JKa1xwX2BuYm2FewsVfbI1U3XfOMF1S4f6ZJucfmzEKHjqD +KNX/XauSi3I9M90dKc5gKcCQvV3PRWppatmsmjPU9lx1e/yEi6c6F0a+d3YC +C5EqtaB+Ltb1Wc0P3uAE/aat05JDXOw/0yrHUHOCyZpPsU4vuHgn2H0kY8YR +1LI1iz985KKnQcmV4BRHqB1cGxQ/ysXdS3ryMo86ku/mraAxzkUvh9p3T9wc +wSMmsOvQFBcfHt73M0THESbrT6ZL/ODiVEl0xYi0I0TOXNhTM8PFXhWR6L1z +HWGJbr6q4ywXMydWOs58cIBM35qpv3+56KENOpldDvA/il5b0w== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.06584458814650154}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8631,19 +14075,19 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.06584458814650154}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8657,163 +14101,112 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV13k4FW0bAPDelCjUS9kP58w5trKvKaf7TsrWgmiRtSzJUhRlqSwJbxIp +IQlRWc8QQpJQKIRkLe2lhShUSn3P98e55vpdM9eZee7nXmZYu/fbuM+dM2fO +H/L7/3F6uLWJcyp3jfkFoZi9s2vW9GRKBq/tj4TsOuF4F19ZwGWPdkv2n4Wg +xqPN8r6qEGRV0MfXnwND53SvTPkYwb9jEmd/9pWBxVL7uGqfjfC8dvP+yb4G +aNc54fLX2wE2cD4+m+jrBus3ngu0vXzgZ5/B+fG+V5CuUz4m5BQGjeuu5Xbl +fINrIswlX3edBtnn1e92q87CYqHO9rrk87DUx7lgwTo+zK+/aJK7NAPOam24 +tdlOAJeNFpktd82GgVTN+oklwugWd2+RlVkunMo9/miu1L9oxfh0t0X5Gkic +ex2XfEkMeyp7VXVL8iHG1nxN9/QyDBh6W7jpdiFIl3dIz/1HHDkV92VS7hVC +iZjtd61F4jg+o/ilv70Qerud6CR5cXSriavdNFwIHOtDlLWZOLZcN+r79qcQ +GjZd5u9ME0fWszyuFhTB7IapjnYjCfQ8En1r360iOGiY7dwaKYnSwh5CJTnF +YJElMmkZL4ms1uqopfnFQC0Ii+04L4ncJxJjgbxi6OzZVvr4uiS2FNimq9QW +g/oBIb7hDkncpdy+3vZJMYxcPXz1q7QUBo6sPl/JXwIOSzePytyQwtffdJqK +3EtAJ/RWRGatFKYLDo8d8C6Bha+UxVn3pXA7Ws/V9C+Bah4fKA5IIS2Q/yoz +rATELasTNf9KYTM/fxQkl0BnBEd3vaU0euwxF4+/UwImX2ZC/F5LY87e037W +S3kQbHZu+d3P0ujMGE7eIcWDkmy1QbFpafTiN+60l+OBpK2LYbWADMq/FE6w +UubB56p73/nUZfDbmWjZf4x4kByZeCjtiAyaZqceD9rNg1fLFP2ahGVRJdc/ +sKyQBxL77zAkJGSxypsvVJbmwcaWHe1eTFnkRLqmRpTzoDLklOpiHVn8azMq +zb3Ng/+ej3/cuUMWG8sOGgd38EA7/5bnlxxZzPBqXsk/zoMII2tX6ZUMTFC7 ++L1aggYzp8yvBsYMnLUZeNYqRYNI+Kcou40MbE+Z96ZXhoaMxuiriS4M9C95 +YDUiT0OVRc0n/jgGXpj/jB5RomF8Bzvo2wADTYYXlzsb0OAUOPVfW6gcmmf7 +GCrb0qBwwVj2Y7QcJhfaHXtqR5P1nylekCiHm0ZmP5zeTkPIb5VO41w5TArO +0B+xp+F8lNOy6jY5XChTVhTiSkNbUvPlPIY87g8ZtJTwo2FVSVr5sTvy6P5q +dZhWNA0mfR2zYy3ymNtGMw+dpGHznHmmzt3y2GXx2aY8hoY9Nn4D8FYea5a/ +dVX7j4YNoazj4fOZaNS6VnvuGRoOyE9fWbuCiaKLcl7qp9IwdSOx5acGE8uq +JWNs0sjzma0YLdVlYut3qzve6TRE+7voU2uYKF+740NKBg3pjQ9a5lozcfF8 +JbXOLBqaPC+PNgYx0XdPVn3HdRrMfxuKhoUycXQl/63GfBo6Env0dcOZeJ6u +2lRZQMNAtWB4bhwTd2YHc88V0TC26JBodAYTFw40WenQNEjSZgYbGpjIVRe7 ++KeShksmr3f9uc/Erf6rTNtv0kANHA2vfMhEk4J7SWlVNKjNvdGq+ISJtZlZ +fCtqaDC2ZTgsGGFiXmGZu9ZtGnx+TIS3CLPw9lub420NJJ7+HuLvRFkovazN +JqqRBoGPg4V8kixMXdXlatBEQ95QY+8aioXqI2W6F+7RMFx3XrVCn1wv4HZb +r4WGIoOFDd2rWbiT3RLWSxxCH9s+jiw8mK4VdqiVBvEcz8gVlizkK3LiXn9A +w5Zow/5sZxau69o8MNZGg9yfYt87bizM3cafH9xO8iOI4nvmxcJDXl63/+mg +IXbvInXJQywc2X+2UvARDfWWz6ISYlkoNmTw60cnDQlN1lJFp8n9e0T+8eui +wYF7v6T1LAs14vZYvSD+qc4bmHeJhV8Yv9tru2nQFo3QCC1loa+d+Ta7Hhrm +nJpqSq1koUjX3upy4g6+ffaVt1jIcOHz/vcJDd5TNtET91iYwq9X20C8yq9Z +evFDFg7tE3OU6CXxer+aVu1koWfor81exLn9nCHPQRYO+x9Tnt9HQ4B12oHo +5yy8+NL93y3E+ECY/8obFgYuGd+UQvzs1rTm8BgLtV/HN8n2k3jqet//9Y2F +ljjxdxdxSPHzXVI/WTi/42JSKrH45ZaTtnwUivz1rREcoOGNBFc2QIBC/aOf +bdYQlyWWlp4RpnDghZPJAeJwQUXTYlEKg9QDzlwm3hKZ/vSBBIVpQj26bcRy +v0QCRmQp9GnU1psm/nwwagE/RaG5ETeJMUji7+6jvVaVwi6jpc5uxNuGXzQ7 +aVG4vHptdxQxZ7udY5g+haIvnl7JIv76qPVr2moKV9Zc6KkhrjdbE3sTKfw0 +xnHvJk64W8Z4sp7C5EaDbe+JHVYp3fhqQaGJzInrP4mX37hotsSKwu1BdQ6C +Q2T/ViwZVrOj8PPExYPixNOXpCN07Cl8UnSvgUk8uViBY+hMYUClRoIy8USE +RvMaNwpVWDG9asRj3wz3mXhR6HUmOEOT+JO7ibCFH4XGOhUv/u+Rvs30loMU +fmkfuaJO/NZ851a7IxSG8hrfqRC/urVn2v4ohfaVU/kU8XM1vzSXSApnNmuM +SRI/vXzEyCOGwl0HWeVCxAP/Rj33jqewsODo71mynt6o05H+SRQOCkw3fyZ+ +PHVB4XAK2S91rsQAcadnTkvYRfJ/G/g/NRC3DxR5R2ZROLZwvkkB8QPLmyKx +eRRO1o5SZ4ibb98tPV1AYdHywFh/4iaNNttkHoW/C60CrYnvZvd+Ty2nsJjS +/6hOXCf2Mj2zmsJFM0PvBYlvRX/i5tZRuFfxp98rst9V36de5DdS2MhZH171 +//wZWqhU0U4hS9fCxJGYt2nZg5puCrPfHfqxgrjojrxvfR+FpsWlhj9IPl69 +onvj4UsKlaMtPOKI072d4NUUhRvmBYUlkPy+8Gzvq/czJH8sC4rNic9tORg9 ++pfC3I2d/nOJE3RiH/4QZOMqmU8VPqR+In+Vbl8sx8aRAUtjDqm34761M0vZ +bGyBGfk2Up9hz+9fklZmI687PcWfOKhx6LWCNhvFzWqtKx6Tej01/4DRBjYG +V7xYyiT1vnd2sZixJRsfrT/6qJz0A4/90pWmVmxs9FVVMSV22arx28aejYsF +nta6kX5iK7Mz1suPjS8FNodGkf5jVFiUlZLCxpR9ofOsSP8aYhZeXn+RjQt+ +vXnbQvpbSEp+5uRlNjIiMuqB+GbE1QybfDbm7UlyUyL9UHtHVqpILRu/x384 +Mkz6p8r8c4knX7JRJn655+d6GlpCzp7Re8fGtXn7VdcTe4wnJrz5yEZ74fSp +i3dIPxk6HW88ycborVYp6+poYJbFxP7h52BgjQYn9BbpB86h4UGqHMwu0VwY +X0FDRU/wcQUtDs4VMnG+V07WY3HkWI8eB6sVlRt/36DhrF5gmDZwUDtIuca9 +jAZhof1Hxqw5WNUfdYTJo2Fe9e4DHoc52P4l6LEhmV8TohYu2xo46Hpv5485 +ZB72+1Cd+5o5WF7UF/r+Aqnv+zNwvI2DjtaWXQ9TaEgMKZS/3svBwtG2qdPn +aNB8JfT850cOTo44wg8yb/1KHzleElPAt6lC19zJvP64xW7XGzcFFLrb6Vvg +T0N3vtrDH14K+Js6NG/TARpq+PhXC+9XwJKIyFOjZP7H3ayU1g9WQOeV9/yU +fWhQlpccjDmtgFsXG+RFe9DgOTa4Y0WlAraI+RcPk/eJN/Eu2wIWKGLV/ccS +osbk/h9VKU0hRbSsS4dEpOG76c/R0SWKeLDd9qYQ0LCQ72y0l7Qi1nt8TJtj +RJ4/uLHcRU0Re25cNu7Ro+Gou6LYlq2KOPlrYnCFCon/ms+PVlxWxLN9WdPZ +ImTefzls/lZfCXXyD9SV5vNAVkvupICREkpknE9JyuPBWEBTw4q1SmhfWjbt +m82Dc9NLjAIslbC18ux22TQeDM/mq/91VkLcpjKwJZYHAUJPxaTilPDuwsv3 +xTx4kK6CwxuHlDAyVo+Wkyfvk3sEDpYfV0ab4ZN5tTEl5PtCYm5MgwryxhwD +j3GLQbRdMYH+shzb9d60a44Ugmwsz0pfXxVD/ymrntxZAKkrDJeIeaphOCdL +7nH3dXggvVbvW5I6ymbZb8wyvQarZBsSNXo1MCzHWXXHuTwQ4cs55BqpidZ3 +tqrkzl4BuQh5o52KWpjh7c6cMc8BQQWHSptmLTS5UlWx/3oWqHOleIcdtbGj +sjmhxDkTAoZFGy3m6KCmRF3wdeuL8OVbvJ15qg5+iG+r0b2UCqYa99PN1XTR +h5lVIchIgbpvq39979DFcjurdptzyeCnqj3Y5a6HnTudj+XuSQLumFvPTkF9 +PO2oMsDalwDrOZKbhHP00d3bZ91o2X+gHP7fkQYDA+x4Vuz0cHcMLHc3vKMw +aIDGay5kMRRPgHvd3hPl/isxem/GmfCACLiT1eM2scwQ10re1l1UdhQmr//9 +rnHTEBV1N9u36AXDHoVCwfRNq7B6QVKBSVwgTCxP1i8bX4X8j/ZFNy0OgKrc +Xy+nYlfjNWaX3ddwP7A3YeNqOSPc1vI0xKPGC2R8Y6rV643w5OPS22Jm7rBs +oU/ppu1cXOXQ1lhU5wq5646GjO/kolI0O41Bu4L20YR1yQ5cPBGT8CA12xU2 +j9NP+l252FejuLzkhCuc7J36uceHi3FhYSttLV3hR85x45AILoadYATHDrrA +4Orkx1cLuTi/4JKa1xwX2BuYm2FewsVfbI1U3XfOMF1S4f6ZJucfmzEKHjqD +KNX/XauSi3I9M90dKc5gKcCQvV3PRWppatmsmjPU9lx1e/yEi6c6F0a+d3YC +C5EqtaB+Ltb1Wc0P3uAE/aat05JDXOw/0yrHUHOCyZpPsU4vuHgn2H0kY8YR +1LI1iz985KKnQcmV4BRHqB1cGxQ/ysXdS3ryMo86ku/mraAxzkUvh9p3T9wc +wSMmsOvQFBcfHt73M0THESbrT6ZL/ODiVEl0xYi0I0TOXNhTM8PFXhWR6L1z +HWGJbr6q4ywXMydWOs58cIBM35qpv3+56KENOpldDvA/il5b0w== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.06584458814650154}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8824,6 +14217,7 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8851,7 +14245,8 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06584458814650154}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8859,17 +14254,559 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913324679337597`*^9}, + CellChangeTimes->{3.9913324679337597`*^9, 3.993917491226137*^9}, CellLabel-> - "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] + "Out[163]=",ExpressionUUID->"ef5df887-51ea-4a4b-b0ce-bd2484cf3677"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ -b989835aa113"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[164]:=",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4FW0bAPDelCjUS9kP58w5trKvKaf7TsrWgmiRtSzJUhRlqSwJbxIp +IQlRWc8QQpJQKIRkLe2lhShUSn3P98e55vpdM9eZee7nXmZYu/fbuM+dM2fO +H/L7/3F6uLWJcyp3jfkFoZi9s2vW9GRKBq/tj4TsOuF4F19ZwGWPdkv2n4Wg +xqPN8r6qEGRV0MfXnwND53SvTPkYwb9jEmd/9pWBxVL7uGqfjfC8dvP+yb4G +aNc54fLX2wE2cD4+m+jrBus3ngu0vXzgZ5/B+fG+V5CuUz4m5BQGjeuu5Xbl +fINrIswlX3edBtnn1e92q87CYqHO9rrk87DUx7lgwTo+zK+/aJK7NAPOam24 +tdlOAJeNFpktd82GgVTN+oklwugWd2+RlVkunMo9/miu1L9oxfh0t0X5Gkic +ex2XfEkMeyp7VXVL8iHG1nxN9/QyDBh6W7jpdiFIl3dIz/1HHDkV92VS7hVC +iZjtd61F4jg+o/ilv70Qerud6CR5cXSriavdNFwIHOtDlLWZOLZcN+r79qcQ +GjZd5u9ME0fWszyuFhTB7IapjnYjCfQ8En1r360iOGiY7dwaKYnSwh5CJTnF +YJElMmkZL4ms1uqopfnFQC0Ii+04L4ncJxJjgbxi6OzZVvr4uiS2FNimq9QW +g/oBIb7hDkncpdy+3vZJMYxcPXz1q7QUBo6sPl/JXwIOSzePytyQwtffdJqK +3EtAJ/RWRGatFKYLDo8d8C6Bha+UxVn3pXA7Ws/V9C+Bah4fKA5IIS2Q/yoz +rATELasTNf9KYTM/fxQkl0BnBEd3vaU0euwxF4+/UwImX2ZC/F5LY87e037W +S3kQbHZu+d3P0ujMGE7eIcWDkmy1QbFpafTiN+60l+OBpK2LYbWADMq/FE6w +UubB56p73/nUZfDbmWjZf4x4kByZeCjtiAyaZqceD9rNg1fLFP2ahGVRJdc/ +sKyQBxL77zAkJGSxypsvVJbmwcaWHe1eTFnkRLqmRpTzoDLklOpiHVn8azMq +zb3Ng/+ej3/cuUMWG8sOGgd38EA7/5bnlxxZzPBqXsk/zoMII2tX6ZUMTFC7 ++L1aggYzp8yvBsYMnLUZeNYqRYNI+Kcou40MbE+Z96ZXhoaMxuiriS4M9C95 +YDUiT0OVRc0n/jgGXpj/jB5RomF8Bzvo2wADTYYXlzsb0OAUOPVfW6gcmmf7 +GCrb0qBwwVj2Y7QcJhfaHXtqR5P1nylekCiHm0ZmP5zeTkPIb5VO41w5TArO +0B+xp+F8lNOy6jY5XChTVhTiSkNbUvPlPIY87g8ZtJTwo2FVSVr5sTvy6P5q +dZhWNA0mfR2zYy3ymNtGMw+dpGHznHmmzt3y2GXx2aY8hoY9Nn4D8FYea5a/ +dVX7j4YNoazj4fOZaNS6VnvuGRoOyE9fWbuCiaKLcl7qp9IwdSOx5acGE8uq +JWNs0sjzma0YLdVlYut3qzve6TRE+7voU2uYKF+740NKBg3pjQ9a5lozcfF8 +JbXOLBqaPC+PNgYx0XdPVn3HdRrMfxuKhoUycXQl/63GfBo6Env0dcOZeJ6u +2lRZQMNAtWB4bhwTd2YHc88V0TC26JBodAYTFw40WenQNEjSZgYbGpjIVRe7 ++KeShksmr3f9uc/Erf6rTNtv0kANHA2vfMhEk4J7SWlVNKjNvdGq+ISJtZlZ +fCtqaDC2ZTgsGGFiXmGZu9ZtGnx+TIS3CLPw9lub420NJJ7+HuLvRFkovazN +JqqRBoGPg4V8kixMXdXlatBEQ95QY+8aioXqI2W6F+7RMFx3XrVCn1wv4HZb +r4WGIoOFDd2rWbiT3RLWSxxCH9s+jiw8mK4VdqiVBvEcz8gVlizkK3LiXn9A +w5Zow/5sZxau69o8MNZGg9yfYt87bizM3cafH9xO8iOI4nvmxcJDXl63/+mg +IXbvInXJQywc2X+2UvARDfWWz6ISYlkoNmTw60cnDQlN1lJFp8n9e0T+8eui +wYF7v6T1LAs14vZYvSD+qc4bmHeJhV8Yv9tru2nQFo3QCC1loa+d+Ta7Hhrm +nJpqSq1koUjX3upy4g6+ffaVt1jIcOHz/vcJDd5TNtET91iYwq9X20C8yq9Z +evFDFg7tE3OU6CXxer+aVu1koWfor81exLn9nCHPQRYO+x9Tnt9HQ4B12oHo +5yy8+NL93y3E+ECY/8obFgYuGd+UQvzs1rTm8BgLtV/HN8n2k3jqet//9Y2F +ljjxdxdxSPHzXVI/WTi/42JSKrH45ZaTtnwUivz1rREcoOGNBFc2QIBC/aOf +bdYQlyWWlp4RpnDghZPJAeJwQUXTYlEKg9QDzlwm3hKZ/vSBBIVpQj26bcRy +v0QCRmQp9GnU1psm/nwwagE/RaG5ETeJMUji7+6jvVaVwi6jpc5uxNuGXzQ7 +aVG4vHptdxQxZ7udY5g+haIvnl7JIv76qPVr2moKV9Zc6KkhrjdbE3sTKfw0 +xnHvJk64W8Z4sp7C5EaDbe+JHVYp3fhqQaGJzInrP4mX37hotsSKwu1BdQ6C +Q2T/ViwZVrOj8PPExYPixNOXpCN07Cl8UnSvgUk8uViBY+hMYUClRoIy8USE +RvMaNwpVWDG9asRj3wz3mXhR6HUmOEOT+JO7ibCFH4XGOhUv/u+Rvs30loMU +fmkfuaJO/NZ851a7IxSG8hrfqRC/urVn2v4ohfaVU/kU8XM1vzSXSApnNmuM +SRI/vXzEyCOGwl0HWeVCxAP/Rj33jqewsODo71mynt6o05H+SRQOCkw3fyZ+ +PHVB4XAK2S91rsQAcadnTkvYRfJ/G/g/NRC3DxR5R2ZROLZwvkkB8QPLmyKx +eRRO1o5SZ4ibb98tPV1AYdHywFh/4iaNNttkHoW/C60CrYnvZvd+Ty2nsJjS +/6hOXCf2Mj2zmsJFM0PvBYlvRX/i5tZRuFfxp98rst9V36de5DdS2MhZH171 +//wZWqhU0U4hS9fCxJGYt2nZg5puCrPfHfqxgrjojrxvfR+FpsWlhj9IPl69 +onvj4UsKlaMtPOKI072d4NUUhRvmBYUlkPy+8Gzvq/czJH8sC4rNic9tORg9 ++pfC3I2d/nOJE3RiH/4QZOMqmU8VPqR+In+Vbl8sx8aRAUtjDqm34761M0vZ +bGyBGfk2Up9hz+9fklZmI687PcWfOKhx6LWCNhvFzWqtKx6Tej01/4DRBjYG +V7xYyiT1vnd2sZixJRsfrT/6qJz0A4/90pWmVmxs9FVVMSV22arx28aejYsF +nta6kX5iK7Mz1suPjS8FNodGkf5jVFiUlZLCxpR9ofOsSP8aYhZeXn+RjQt+ +vXnbQvpbSEp+5uRlNjIiMuqB+GbE1QybfDbm7UlyUyL9UHtHVqpILRu/x384 +Mkz6p8r8c4knX7JRJn655+d6GlpCzp7Re8fGtXn7VdcTe4wnJrz5yEZ74fSp +i3dIPxk6HW88ycborVYp6+poYJbFxP7h52BgjQYn9BbpB86h4UGqHMwu0VwY +X0FDRU/wcQUtDs4VMnG+V07WY3HkWI8eB6sVlRt/36DhrF5gmDZwUDtIuca9 +jAZhof1Hxqw5WNUfdYTJo2Fe9e4DHoc52P4l6LEhmV8TohYu2xo46Hpv5485 +ZB72+1Cd+5o5WF7UF/r+Aqnv+zNwvI2DjtaWXQ9TaEgMKZS/3svBwtG2qdPn +aNB8JfT850cOTo44wg8yb/1KHzleElPAt6lC19zJvP64xW7XGzcFFLrb6Vvg +T0N3vtrDH14K+Js6NG/TARpq+PhXC+9XwJKIyFOjZP7H3ayU1g9WQOeV9/yU +fWhQlpccjDmtgFsXG+RFe9DgOTa4Y0WlAraI+RcPk/eJN/Eu2wIWKGLV/ccS +osbk/h9VKU0hRbSsS4dEpOG76c/R0SWKeLDd9qYQ0LCQ72y0l7Qi1nt8TJtj +RJ4/uLHcRU0Re25cNu7Ro+Gou6LYlq2KOPlrYnCFCon/ms+PVlxWxLN9WdPZ +ImTefzls/lZfCXXyD9SV5vNAVkvupICREkpknE9JyuPBWEBTw4q1SmhfWjbt +m82Dc9NLjAIslbC18ux22TQeDM/mq/91VkLcpjKwJZYHAUJPxaTilPDuwsv3 +xTx4kK6CwxuHlDAyVo+Wkyfvk3sEDpYfV0ab4ZN5tTEl5PtCYm5MgwryxhwD +j3GLQbRdMYH+shzb9d60a44Ugmwsz0pfXxVD/ymrntxZAKkrDJeIeaphOCdL +7nH3dXggvVbvW5I6ymbZb8wyvQarZBsSNXo1MCzHWXXHuTwQ4cs55BqpidZ3 +tqrkzl4BuQh5o52KWpjh7c6cMc8BQQWHSptmLTS5UlWx/3oWqHOleIcdtbGj +sjmhxDkTAoZFGy3m6KCmRF3wdeuL8OVbvJ15qg5+iG+r0b2UCqYa99PN1XTR +h5lVIchIgbpvq39979DFcjurdptzyeCnqj3Y5a6HnTudj+XuSQLumFvPTkF9 +PO2oMsDalwDrOZKbhHP00d3bZ91o2X+gHP7fkQYDA+x4Vuz0cHcMLHc3vKMw +aIDGay5kMRRPgHvd3hPl/isxem/GmfCACLiT1eM2scwQ10re1l1UdhQmr//9 +rnHTEBV1N9u36AXDHoVCwfRNq7B6QVKBSVwgTCxP1i8bX4X8j/ZFNy0OgKrc +Xy+nYlfjNWaX3ddwP7A3YeNqOSPc1vI0xKPGC2R8Y6rV643w5OPS22Jm7rBs +oU/ppu1cXOXQ1lhU5wq5646GjO/kolI0O41Bu4L20YR1yQ5cPBGT8CA12xU2 +j9NP+l252FejuLzkhCuc7J36uceHi3FhYSttLV3hR85x45AILoadYATHDrrA +4Orkx1cLuTi/4JKa1xwX2BuYm2FewsVfbI1U3XfOMF1S4f6ZJucfmzEKHjqD +KNX/XauSi3I9M90dKc5gKcCQvV3PRWppatmsmjPU9lx1e/yEi6c6F0a+d3YC +C5EqtaB+Ltb1Wc0P3uAE/aat05JDXOw/0yrHUHOCyZpPsU4vuHgn2H0kY8YR +1LI1iz985KKnQcmV4BRHqB1cGxQ/ysXdS3ryMo86ku/mraAxzkUvh9p3T9wc +wSMmsOvQFBcfHt73M0THESbrT6ZL/ODiVEl0xYi0I0TOXNhTM8PFXhWR6L1z +HWGJbr6q4ywXMydWOs58cIBM35qpv3+56KENOpldDvA/il5b0w== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FW0bAPDelCjUS9kP58w5trKvKaf7TsrWgmiRtSzJUhRlqSwJbxIp +IQlRWc8QQpJQKIRkLe2lhShUSn3P98e55vpdM9eZee7nXmZYu/fbuM+dM2fO +H/L7/3F6uLWJcyp3jfkFoZi9s2vW9GRKBq/tj4TsOuF4F19ZwGWPdkv2n4Wg +xqPN8r6qEGRV0MfXnwND53SvTPkYwb9jEmd/9pWBxVL7uGqfjfC8dvP+yb4G +aNc54fLX2wE2cD4+m+jrBus3ngu0vXzgZ5/B+fG+V5CuUz4m5BQGjeuu5Xbl +fINrIswlX3edBtnn1e92q87CYqHO9rrk87DUx7lgwTo+zK+/aJK7NAPOam24 +tdlOAJeNFpktd82GgVTN+oklwugWd2+RlVkunMo9/miu1L9oxfh0t0X5Gkic +ex2XfEkMeyp7VXVL8iHG1nxN9/QyDBh6W7jpdiFIl3dIz/1HHDkV92VS7hVC +iZjtd61F4jg+o/ilv70Qerud6CR5cXSriavdNFwIHOtDlLWZOLZcN+r79qcQ +GjZd5u9ME0fWszyuFhTB7IapjnYjCfQ8En1r360iOGiY7dwaKYnSwh5CJTnF +YJElMmkZL4ms1uqopfnFQC0Ii+04L4ncJxJjgbxi6OzZVvr4uiS2FNimq9QW +g/oBIb7hDkncpdy+3vZJMYxcPXz1q7QUBo6sPl/JXwIOSzePytyQwtffdJqK +3EtAJ/RWRGatFKYLDo8d8C6Bha+UxVn3pXA7Ws/V9C+Bah4fKA5IIS2Q/yoz +rATELasTNf9KYTM/fxQkl0BnBEd3vaU0euwxF4+/UwImX2ZC/F5LY87e037W +S3kQbHZu+d3P0ujMGE7eIcWDkmy1QbFpafTiN+60l+OBpK2LYbWADMq/FE6w +UubB56p73/nUZfDbmWjZf4x4kByZeCjtiAyaZqceD9rNg1fLFP2ahGVRJdc/ +sKyQBxL77zAkJGSxypsvVJbmwcaWHe1eTFnkRLqmRpTzoDLklOpiHVn8azMq +zb3Ng/+ej3/cuUMWG8sOGgd38EA7/5bnlxxZzPBqXsk/zoMII2tX6ZUMTFC7 ++L1aggYzp8yvBsYMnLUZeNYqRYNI+Kcou40MbE+Z96ZXhoaMxuiriS4M9C95 +YDUiT0OVRc0n/jgGXpj/jB5RomF8Bzvo2wADTYYXlzsb0OAUOPVfW6gcmmf7 +GCrb0qBwwVj2Y7QcJhfaHXtqR5P1nylekCiHm0ZmP5zeTkPIb5VO41w5TArO +0B+xp+F8lNOy6jY5XChTVhTiSkNbUvPlPIY87g8ZtJTwo2FVSVr5sTvy6P5q +dZhWNA0mfR2zYy3ymNtGMw+dpGHznHmmzt3y2GXx2aY8hoY9Nn4D8FYea5a/ +dVX7j4YNoazj4fOZaNS6VnvuGRoOyE9fWbuCiaKLcl7qp9IwdSOx5acGE8uq +JWNs0sjzma0YLdVlYut3qzve6TRE+7voU2uYKF+740NKBg3pjQ9a5lozcfF8 +JbXOLBqaPC+PNgYx0XdPVn3HdRrMfxuKhoUycXQl/63GfBo6Env0dcOZeJ6u +2lRZQMNAtWB4bhwTd2YHc88V0TC26JBodAYTFw40WenQNEjSZgYbGpjIVRe7 ++KeShksmr3f9uc/Erf6rTNtv0kANHA2vfMhEk4J7SWlVNKjNvdGq+ISJtZlZ +fCtqaDC2ZTgsGGFiXmGZu9ZtGnx+TIS3CLPw9lub420NJJ7+HuLvRFkovazN +JqqRBoGPg4V8kixMXdXlatBEQ95QY+8aioXqI2W6F+7RMFx3XrVCn1wv4HZb +r4WGIoOFDd2rWbiT3RLWSxxCH9s+jiw8mK4VdqiVBvEcz8gVlizkK3LiXn9A +w5Zow/5sZxau69o8MNZGg9yfYt87bizM3cafH9xO8iOI4nvmxcJDXl63/+mg +IXbvInXJQywc2X+2UvARDfWWz6ISYlkoNmTw60cnDQlN1lJFp8n9e0T+8eui +wYF7v6T1LAs14vZYvSD+qc4bmHeJhV8Yv9tru2nQFo3QCC1loa+d+Ta7Hhrm +nJpqSq1koUjX3upy4g6+ffaVt1jIcOHz/vcJDd5TNtET91iYwq9X20C8yq9Z +evFDFg7tE3OU6CXxer+aVu1koWfor81exLn9nCHPQRYO+x9Tnt9HQ4B12oHo +5yy8+NL93y3E+ECY/8obFgYuGd+UQvzs1rTm8BgLtV/HN8n2k3jqet//9Y2F +ljjxdxdxSPHzXVI/WTi/42JSKrH45ZaTtnwUivz1rREcoOGNBFc2QIBC/aOf +bdYQlyWWlp4RpnDghZPJAeJwQUXTYlEKg9QDzlwm3hKZ/vSBBIVpQj26bcRy +v0QCRmQp9GnU1psm/nwwagE/RaG5ETeJMUji7+6jvVaVwi6jpc5uxNuGXzQ7 +aVG4vHptdxQxZ7udY5g+haIvnl7JIv76qPVr2moKV9Zc6KkhrjdbE3sTKfw0 +xnHvJk64W8Z4sp7C5EaDbe+JHVYp3fhqQaGJzInrP4mX37hotsSKwu1BdQ6C +Q2T/ViwZVrOj8PPExYPixNOXpCN07Cl8UnSvgUk8uViBY+hMYUClRoIy8USE +RvMaNwpVWDG9asRj3wz3mXhR6HUmOEOT+JO7ibCFH4XGOhUv/u+Rvs30loMU +fmkfuaJO/NZ851a7IxSG8hrfqRC/urVn2v4ohfaVU/kU8XM1vzSXSApnNmuM +SRI/vXzEyCOGwl0HWeVCxAP/Rj33jqewsODo71mynt6o05H+SRQOCkw3fyZ+ +PHVB4XAK2S91rsQAcadnTkvYRfJ/G/g/NRC3DxR5R2ZROLZwvkkB8QPLmyKx +eRRO1o5SZ4ibb98tPV1AYdHywFh/4iaNNttkHoW/C60CrYnvZvd+Ty2nsJjS +/6hOXCf2Mj2zmsJFM0PvBYlvRX/i5tZRuFfxp98rst9V36de5DdS2MhZH171 +//wZWqhU0U4hS9fCxJGYt2nZg5puCrPfHfqxgrjojrxvfR+FpsWlhj9IPl69 +onvj4UsKlaMtPOKI072d4NUUhRvmBYUlkPy+8Gzvq/czJH8sC4rNic9tORg9 ++pfC3I2d/nOJE3RiH/4QZOMqmU8VPqR+In+Vbl8sx8aRAUtjDqm34761M0vZ +bGyBGfk2Up9hz+9fklZmI687PcWfOKhx6LWCNhvFzWqtKx6Tej01/4DRBjYG +V7xYyiT1vnd2sZixJRsfrT/6qJz0A4/90pWmVmxs9FVVMSV22arx28aejYsF +nta6kX5iK7Mz1suPjS8FNodGkf5jVFiUlZLCxpR9ofOsSP8aYhZeXn+RjQt+ +vXnbQvpbSEp+5uRlNjIiMuqB+GbE1QybfDbm7UlyUyL9UHtHVqpILRu/x384 +Mkz6p8r8c4knX7JRJn655+d6GlpCzp7Re8fGtXn7VdcTe4wnJrz5yEZ74fSp +i3dIPxk6HW88ycborVYp6+poYJbFxP7h52BgjQYn9BbpB86h4UGqHMwu0VwY +X0FDRU/wcQUtDs4VMnG+V07WY3HkWI8eB6sVlRt/36DhrF5gmDZwUDtIuca9 +jAZhof1Hxqw5WNUfdYTJo2Fe9e4DHoc52P4l6LEhmV8TohYu2xo46Hpv5485 +ZB72+1Cd+5o5WF7UF/r+Aqnv+zNwvI2DjtaWXQ9TaEgMKZS/3svBwtG2qdPn +aNB8JfT850cOTo44wg8yb/1KHzleElPAt6lC19zJvP64xW7XGzcFFLrb6Vvg +T0N3vtrDH14K+Js6NG/TARpq+PhXC+9XwJKIyFOjZP7H3ayU1g9WQOeV9/yU +fWhQlpccjDmtgFsXG+RFe9DgOTa4Y0WlAraI+RcPk/eJN/Eu2wIWKGLV/ccS +osbk/h9VKU0hRbSsS4dEpOG76c/R0SWKeLDd9qYQ0LCQ72y0l7Qi1nt8TJtj +RJ4/uLHcRU0Re25cNu7Ro+Gou6LYlq2KOPlrYnCFCon/ms+PVlxWxLN9WdPZ +ImTefzls/lZfCXXyD9SV5vNAVkvupICREkpknE9JyuPBWEBTw4q1SmhfWjbt +m82Dc9NLjAIslbC18ux22TQeDM/mq/91VkLcpjKwJZYHAUJPxaTilPDuwsv3 +xTx4kK6CwxuHlDAyVo+Wkyfvk3sEDpYfV0ab4ZN5tTEl5PtCYm5MgwryxhwD +j3GLQbRdMYH+shzb9d60a44Ugmwsz0pfXxVD/ymrntxZAKkrDJeIeaphOCdL +7nH3dXggvVbvW5I6ymbZb8wyvQarZBsSNXo1MCzHWXXHuTwQ4cs55BqpidZ3 +tqrkzl4BuQh5o52KWpjh7c6cMc8BQQWHSptmLTS5UlWx/3oWqHOleIcdtbGj +sjmhxDkTAoZFGy3m6KCmRF3wdeuL8OVbvJ15qg5+iG+r0b2UCqYa99PN1XTR +h5lVIchIgbpvq39979DFcjurdptzyeCnqj3Y5a6HnTudj+XuSQLumFvPTkF9 +PO2oMsDalwDrOZKbhHP00d3bZ91o2X+gHP7fkQYDA+x4Vuz0cHcMLHc3vKMw +aIDGay5kMRRPgHvd3hPl/isxem/GmfCACLiT1eM2scwQ10re1l1UdhQmr//9 +rnHTEBV1N9u36AXDHoVCwfRNq7B6QVKBSVwgTCxP1i8bX4X8j/ZFNy0OgKrc +Xy+nYlfjNWaX3ddwP7A3YeNqOSPc1vI0xKPGC2R8Y6rV643w5OPS22Jm7rBs +oU/ppu1cXOXQ1lhU5wq5646GjO/kolI0O41Bu4L20YR1yQ5cPBGT8CA12xU2 +j9NP+l252FejuLzkhCuc7J36uceHi3FhYSttLV3hR85x45AILoadYATHDrrA +4Orkx1cLuTi/4JKa1xwX2BuYm2FewsVfbI1U3XfOMF1S4f6ZJucfmzEKHjqD +KNX/XauSi3I9M90dKc5gKcCQvV3PRWppatmsmjPU9lx1e/yEi6c6F0a+d3YC +C5EqtaB+Ltb1Wc0P3uAE/aat05JDXOw/0yrHUHOCyZpPsU4vuHgn2H0kY8YR +1LI1iz985KKnQcmV4BRHqB1cGxQ/ysXdS3ryMo86ku/mraAxzkUvh9p3T9wc +wSMmsOvQFBcfHt73M0THESbrT6ZL/ODiVEl0xYi0I0TOXNhTM8PFXhWR6L1z +HWGJbr6q4ywXMydWOs58cIBM35qpv3+56KENOpldDvA/il5b0w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06584458814650154}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06584458814650154}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4FW0bAPDelCjUS9kP58w5trKvKaf7TsrWgmiRtSzJUhRlqSwJbxIp +IQlRWc8QQpJQKIRkLe2lhShUSn3P98e55vpdM9eZee7nXmZYu/fbuM+dM2fO +H/L7/3F6uLWJcyp3jfkFoZi9s2vW9GRKBq/tj4TsOuF4F19ZwGWPdkv2n4Wg +xqPN8r6qEGRV0MfXnwND53SvTPkYwb9jEmd/9pWBxVL7uGqfjfC8dvP+yb4G +aNc54fLX2wE2cD4+m+jrBus3ngu0vXzgZ5/B+fG+V5CuUz4m5BQGjeuu5Xbl +fINrIswlX3edBtnn1e92q87CYqHO9rrk87DUx7lgwTo+zK+/aJK7NAPOam24 +tdlOAJeNFpktd82GgVTN+oklwugWd2+RlVkunMo9/miu1L9oxfh0t0X5Gkic +ex2XfEkMeyp7VXVL8iHG1nxN9/QyDBh6W7jpdiFIl3dIz/1HHDkV92VS7hVC +iZjtd61F4jg+o/ilv70Qerud6CR5cXSriavdNFwIHOtDlLWZOLZcN+r79qcQ +GjZd5u9ME0fWszyuFhTB7IapjnYjCfQ8En1r360iOGiY7dwaKYnSwh5CJTnF +YJElMmkZL4ms1uqopfnFQC0Ii+04L4ncJxJjgbxi6OzZVvr4uiS2FNimq9QW +g/oBIb7hDkncpdy+3vZJMYxcPXz1q7QUBo6sPl/JXwIOSzePytyQwtffdJqK +3EtAJ/RWRGatFKYLDo8d8C6Bha+UxVn3pXA7Ws/V9C+Bah4fKA5IIS2Q/yoz +rATELasTNf9KYTM/fxQkl0BnBEd3vaU0euwxF4+/UwImX2ZC/F5LY87e037W +S3kQbHZu+d3P0ujMGE7eIcWDkmy1QbFpafTiN+60l+OBpK2LYbWADMq/FE6w +UubB56p73/nUZfDbmWjZf4x4kByZeCjtiAyaZqceD9rNg1fLFP2ahGVRJdc/ +sKyQBxL77zAkJGSxypsvVJbmwcaWHe1eTFnkRLqmRpTzoDLklOpiHVn8azMq +zb3Ng/+ej3/cuUMWG8sOGgd38EA7/5bnlxxZzPBqXsk/zoMII2tX6ZUMTFC7 ++L1aggYzp8yvBsYMnLUZeNYqRYNI+Kcou40MbE+Z96ZXhoaMxuiriS4M9C95 +YDUiT0OVRc0n/jgGXpj/jB5RomF8Bzvo2wADTYYXlzsb0OAUOPVfW6gcmmf7 +GCrb0qBwwVj2Y7QcJhfaHXtqR5P1nylekCiHm0ZmP5zeTkPIb5VO41w5TArO +0B+xp+F8lNOy6jY5XChTVhTiSkNbUvPlPIY87g8ZtJTwo2FVSVr5sTvy6P5q +dZhWNA0mfR2zYy3ymNtGMw+dpGHznHmmzt3y2GXx2aY8hoY9Nn4D8FYea5a/ +dVX7j4YNoazj4fOZaNS6VnvuGRoOyE9fWbuCiaKLcl7qp9IwdSOx5acGE8uq +JWNs0sjzma0YLdVlYut3qzve6TRE+7voU2uYKF+740NKBg3pjQ9a5lozcfF8 +JbXOLBqaPC+PNgYx0XdPVn3HdRrMfxuKhoUycXQl/63GfBo6Env0dcOZeJ6u +2lRZQMNAtWB4bhwTd2YHc88V0TC26JBodAYTFw40WenQNEjSZgYbGpjIVRe7 ++KeShksmr3f9uc/Erf6rTNtv0kANHA2vfMhEk4J7SWlVNKjNvdGq+ISJtZlZ +fCtqaDC2ZTgsGGFiXmGZu9ZtGnx+TIS3CLPw9lub420NJJ7+HuLvRFkovazN +JqqRBoGPg4V8kixMXdXlatBEQ95QY+8aioXqI2W6F+7RMFx3XrVCn1wv4HZb +r4WGIoOFDd2rWbiT3RLWSxxCH9s+jiw8mK4VdqiVBvEcz8gVlizkK3LiXn9A +w5Zow/5sZxau69o8MNZGg9yfYt87bizM3cafH9xO8iOI4nvmxcJDXl63/+mg +IXbvInXJQywc2X+2UvARDfWWz6ISYlkoNmTw60cnDQlN1lJFp8n9e0T+8eui +wYF7v6T1LAs14vZYvSD+qc4bmHeJhV8Yv9tru2nQFo3QCC1loa+d+Ta7Hhrm +nJpqSq1koUjX3upy4g6+ffaVt1jIcOHz/vcJDd5TNtET91iYwq9X20C8yq9Z +evFDFg7tE3OU6CXxer+aVu1koWfor81exLn9nCHPQRYO+x9Tnt9HQ4B12oHo +5yy8+NL93y3E+ECY/8obFgYuGd+UQvzs1rTm8BgLtV/HN8n2k3jqet//9Y2F +ljjxdxdxSPHzXVI/WTi/42JSKrH45ZaTtnwUivz1rREcoOGNBFc2QIBC/aOf +bdYQlyWWlp4RpnDghZPJAeJwQUXTYlEKg9QDzlwm3hKZ/vSBBIVpQj26bcRy +v0QCRmQp9GnU1psm/nwwagE/RaG5ETeJMUji7+6jvVaVwi6jpc5uxNuGXzQ7 +aVG4vHptdxQxZ7udY5g+haIvnl7JIv76qPVr2moKV9Zc6KkhrjdbE3sTKfw0 +xnHvJk64W8Z4sp7C5EaDbe+JHVYp3fhqQaGJzInrP4mX37hotsSKwu1BdQ6C +Q2T/ViwZVrOj8PPExYPixNOXpCN07Cl8UnSvgUk8uViBY+hMYUClRoIy8USE +RvMaNwpVWDG9asRj3wz3mXhR6HUmOEOT+JO7ibCFH4XGOhUv/u+Rvs30loMU +fmkfuaJO/NZ851a7IxSG8hrfqRC/urVn2v4ohfaVU/kU8XM1vzSXSApnNmuM +SRI/vXzEyCOGwl0HWeVCxAP/Rj33jqewsODo71mynt6o05H+SRQOCkw3fyZ+ +PHVB4XAK2S91rsQAcadnTkvYRfJ/G/g/NRC3DxR5R2ZROLZwvkkB8QPLmyKx +eRRO1o5SZ4ibb98tPV1AYdHywFh/4iaNNttkHoW/C60CrYnvZvd+Ty2nsJjS +/6hOXCf2Mj2zmsJFM0PvBYlvRX/i5tZRuFfxp98rst9V36de5DdS2MhZH171 +//wZWqhU0U4hS9fCxJGYt2nZg5puCrPfHfqxgrjojrxvfR+FpsWlhj9IPl69 +onvj4UsKlaMtPOKI072d4NUUhRvmBYUlkPy+8Gzvq/czJH8sC4rNic9tORg9 ++pfC3I2d/nOJE3RiH/4QZOMqmU8VPqR+In+Vbl8sx8aRAUtjDqm34761M0vZ +bGyBGfk2Up9hz+9fklZmI687PcWfOKhx6LWCNhvFzWqtKx6Tej01/4DRBjYG +V7xYyiT1vnd2sZixJRsfrT/6qJz0A4/90pWmVmxs9FVVMSV22arx28aejYsF +nta6kX5iK7Mz1suPjS8FNodGkf5jVFiUlZLCxpR9ofOsSP8aYhZeXn+RjQt+ +vXnbQvpbSEp+5uRlNjIiMuqB+GbE1QybfDbm7UlyUyL9UHtHVqpILRu/x384 +Mkz6p8r8c4knX7JRJn655+d6GlpCzp7Re8fGtXn7VdcTe4wnJrz5yEZ74fSp +i3dIPxk6HW88ycborVYp6+poYJbFxP7h52BgjQYn9BbpB86h4UGqHMwu0VwY +X0FDRU/wcQUtDs4VMnG+V07WY3HkWI8eB6sVlRt/36DhrF5gmDZwUDtIuca9 +jAZhof1Hxqw5WNUfdYTJo2Fe9e4DHoc52P4l6LEhmV8TohYu2xo46Hpv5485 +ZB72+1Cd+5o5WF7UF/r+Aqnv+zNwvI2DjtaWXQ9TaEgMKZS/3svBwtG2qdPn +aNB8JfT850cOTo44wg8yb/1KHzleElPAt6lC19zJvP64xW7XGzcFFLrb6Vvg +T0N3vtrDH14K+Js6NG/TARpq+PhXC+9XwJKIyFOjZP7H3ayU1g9WQOeV9/yU +fWhQlpccjDmtgFsXG+RFe9DgOTa4Y0WlAraI+RcPk/eJN/Eu2wIWKGLV/ccS +osbk/h9VKU0hRbSsS4dEpOG76c/R0SWKeLDd9qYQ0LCQ72y0l7Qi1nt8TJtj +RJ4/uLHcRU0Re25cNu7Ro+Gou6LYlq2KOPlrYnCFCon/ms+PVlxWxLN9WdPZ +ImTefzls/lZfCXXyD9SV5vNAVkvupICREkpknE9JyuPBWEBTw4q1SmhfWjbt +m82Dc9NLjAIslbC18ux22TQeDM/mq/91VkLcpjKwJZYHAUJPxaTilPDuwsv3 +xTx4kK6CwxuHlDAyVo+Wkyfvk3sEDpYfV0ab4ZN5tTEl5PtCYm5MgwryxhwD +j3GLQbRdMYH+shzb9d60a44Ugmwsz0pfXxVD/ymrntxZAKkrDJeIeaphOCdL +7nH3dXggvVbvW5I6ymbZb8wyvQarZBsSNXo1MCzHWXXHuTwQ4cs55BqpidZ3 +tqrkzl4BuQh5o52KWpjh7c6cMc8BQQWHSptmLTS5UlWx/3oWqHOleIcdtbGj +sjmhxDkTAoZFGy3m6KCmRF3wdeuL8OVbvJ15qg5+iG+r0b2UCqYa99PN1XTR +h5lVIchIgbpvq39979DFcjurdptzyeCnqj3Y5a6HnTudj+XuSQLumFvPTkF9 +PO2oMsDalwDrOZKbhHP00d3bZ91o2X+gHP7fkQYDA+x4Vuz0cHcMLHc3vKMw +aIDGay5kMRRPgHvd3hPl/isxem/GmfCACLiT1eM2scwQ10re1l1UdhQmr//9 +rnHTEBV1N9u36AXDHoVCwfRNq7B6QVKBSVwgTCxP1i8bX4X8j/ZFNy0OgKrc +Xy+nYlfjNWaX3ddwP7A3YeNqOSPc1vI0xKPGC2R8Y6rV643w5OPS22Jm7rBs +oU/ppu1cXOXQ1lhU5wq5646GjO/kolI0O41Bu4L20YR1yQ5cPBGT8CA12xU2 +j9NP+l252FejuLzkhCuc7J36uceHi3FhYSttLV3hR85x45AILoadYATHDrrA +4Orkx1cLuTi/4JKa1xwX2BuYm2FewsVfbI1U3XfOMF1S4f6ZJucfmzEKHjqD +KNX/XauSi3I9M90dKc5gKcCQvV3PRWppatmsmjPU9lx1e/yEi6c6F0a+d3YC +C5EqtaB+Ltb1Wc0P3uAE/aat05JDXOw/0yrHUHOCyZpPsU4vuHgn2H0kY8YR +1LI1iz985KKnQcmV4BRHqB1cGxQ/ysXdS3ryMo86ku/mraAxzkUvh9p3T9wc +wSMmsOvQFBcfHt73M0THESbrT6ZL/ODiVEl0xYi0I0TOXNhTM8PFXhWR6L1z +HWGJbr6q4ywXMydWOs58cIBM35qpv3+56KENOpldDvA/il5b0w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06584458814650154}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06584458814650154}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993917491318997*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"3bca3017-1b8d-49b1-b989-fa9add5d13cf"] +}, Open ]], Cell[CellGroupData[{ @@ -8921,66 +14858,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + "In[165]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.724385516074866`*^-177\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 165, 77, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993917491381341*^9}, + CellLabel-> + "During evaluation of \ +In[165]:=",ExpressionUUID->"9db42c85-d60a-4067-b6be-3b83cf6d6967"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.401886523348829`*^-181\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 165, 78, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993917491390511*^9}, + CellLabel-> + "During evaluation of \ +In[165]:=",ExpressionUUID->"87943419-9fcc-4e29-89a1-c0693108f99b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2446021195004494`*^-184\\\", \ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 225, 201, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512859148*^9}, +\"", 2, 165, 79, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993917491398369*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512868147*^9}, - CellLabel-> - "During evaluation of \ -In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335128761463`*^9}, - CellLabel-> - "During evaluation of \ -In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +In[165]:=",ExpressionUUID->"d9e0da2f-e13b-4271-bce7-3f50bac61baf"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512885145*^9}, +during this calculation.\"", 2, 165, 80, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.9939174914051323`*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +In[165]:=",ExpressionUUID->"236bdc43-a0c3-42a8-8d92-1c63357021f5"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913335200445786`*^9}, +Cell[BoxData["11.208345082980326`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.9939175416421967`*^9}, CellLabel-> - "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] + "Out[165]=",ExpressionUUID->"bde36af4-6809-4b41-8597-aeca2f08c977"] }, Open ]], Cell[CellGroupData[{ @@ -9047,68 +14988,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491385551624`*^9, - 3.991849142620474*^9}},ExpressionUUID->"f2835c98-560f-8e47-bdab-\ -0d2700971836"], + CellChangeTimes->{{3.9918491385551624`*^9, 3.991849142620474*^9}}, + CellLabel-> + "In[166]:=",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 226, 205, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200775414`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5442165814848647`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 81, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.993917541690359*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +In[166]:=",ExpressionUUID->"d62e7a13-83c7-4d0c-b356-61f4382a3c1e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 206, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200875454`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3941055101368864`*^-212\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 82, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.99391754169984*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +In[166]:=",ExpressionUUID->"5d37ff0a-231a-4619-86f1-9041e3f1991b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 207, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200945435`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7117469546638064`*^-217\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 166, 83, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.9939175417087603`*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +In[166]:=",ExpressionUUID->"bdf45c1f-bb12-40d7-a70d-b81061567e27"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335201035423`*^9}, +during this calculation.\"", 2, 166, 84, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.9939175417155323`*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +In[166]:=",ExpressionUUID->"83a3341c-dd1e-4d48-ac57-b28e9d615928"], -Cell[BoxData["0.7348275136088338`"], "Output", - CellChangeTimes->{3.9913335271231823`*^9}, +Cell[BoxData["1.8976942837928075`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.993917550279533*^9}, CellLabel-> - "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] + "Out[166]=",ExpressionUUID->"98d22a37-0602-44a0-90c8-d56d2df5b5c1"] }, Open ]], Cell[CellGroupData[{ @@ -9129,8 +15074,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9175,68 +15119,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849146408966*^9, - 3.9918491485488663`*^9}},ExpressionUUID->"ca837916-250f-4d4e-8368-\ -5a08f479e656"], + CellChangeTimes->{{3.991849146408966*^9, 3.9918491485488663`*^9}}, + CellLabel-> + "In[167]:=",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 227, 209, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271591835`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5442165814848647`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 85, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.99391755033747*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +In[167]:=",ExpressionUUID->"94fe5bdd-2473-4912-967a-7ceac35229af"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 210, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271681843`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3941055101368864`*^-212\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 86, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.993917550346005*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +In[167]:=",ExpressionUUID->"dfaa725f-1692-4c80-a699-96c5faddedaf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 211, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527176182*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7117469546638064`*^-217\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 167, 87, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.99391755035498*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +In[167]:=",ExpressionUUID->"7bf8b151-d80d-4880-a762-6d12d2da2ccd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527184183*^9}, +during this calculation.\"", 2, 167, 88, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.993917550362542*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +In[167]:=",ExpressionUUID->"367707d2-0b26-42c5-ac2f-244203cc7651"], -Cell[BoxData["5.221864211842707`"], "Output", - CellChangeTimes->{3.9913335331581306`*^9}, +Cell[BoxData["36.419050973065204`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.9939175585906277`*^9}, CellLabel-> - "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] + "Out[167]=",ExpressionUUID->"91c38b38-1d1d-46b1-9eed-8f4fcf34a0ab"] }, Open ]], Cell[CellGroupData[{ @@ -9257,8 +15205,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9303,68 +15250,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491518098984`*^9, - 3.9918491543107758`*^9}},ExpressionUUID->"b579991f-985b-234a-94aa-\ -ed18c097f8c0"], + CellChangeTimes->{{3.9918491518098984`*^9, 3.9918491543107758`*^9}}, + CellLabel-> + "In[168]:=",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 228, 213, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335331923027`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5442165814848647`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 168, 89, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.993917558655664*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +In[168]:=",ExpressionUUID->"166c6310-7eaf-4c5a-abfb-6237a6157663"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 214, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533202278*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3941055101368864`*^-212\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 168, 90, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.993917558663888*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +In[168]:=",ExpressionUUID->"936c7a26-b64d-470c-8f46-a2f718056856"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 215, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335332102795`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.7117469546638064`*^-217\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 168, 91, + 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.993917558671172*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +In[168]:=",ExpressionUUID->"f117f599-ae95-4efd-ab56-82e87f9417e6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533218281*^9}, +during this calculation.\"", 2, 168, 92, 31385386112227679733, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9939175586778393`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +In[168]:=",ExpressionUUID->"2d874001-5056-4b24-8fe2-7cbf07c101f2"], -Cell[BoxData["15.545902834190647`"], "Output", - CellChangeTimes->{3.9913335366055527`*^9}, +Cell[BoxData["10.645665556464941`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.993917564119417*^9}, CellLabel-> - "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] + "Out[168]=",ExpressionUUID->"d9bd3ee2-39e9-4e64-98ca-2afe5aa82626"] }, Open ]], Cell[CellGroupData[{ @@ -9373,21 +15324,29 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918491594691143`*^9, - 3.9918491632611027`*^9}},ExpressionUUID->"afb7855c-8700-d444-926c-\ -6d96abe14e67"], - -Cell[BoxData["0.08155763943441016`"], "Output", - CellChangeTimes->{3.9913335366395893`*^9}, + CellChangeTimes->{{3.9918491594691143`*^9, 3.9918491632611027`*^9}}, CellLabel-> - "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] + "In[169]:=",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], + +Cell[BoxData["0.09637747145160384`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.9939175641661463`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"de1a0023-c03a-4434-b9d0-2111687fc332"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"NotebookSave", "[", "]"}], "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.993910366766776*^9}, + CellLabel-> + "In[170]:=",ExpressionUUID->"50796e04-fb69-4bb8-8c2c-ce75e583bac0"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +Evaluator->"kernel 1", +WindowSize->{1440, 882}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, Magnification:>0.8 Inherited, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" ] @@ -9402,368 +15361,641 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 22, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], -Cell[706, 26, 154, 3, 22, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], -Cell[863, 31, 149, 4, 22, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], -Cell[1015, 37, 154, 3, 22, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ -Cell[1194, 44, 1301, 43, 39, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[2498, 89, 178, 3, 25, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[576, 22, 423, 7, 23, "Input",ExpressionUUID->"26c26a16-1b0a-4efc-b3af-0175fe1cc140"], +Cell[1002, 31, 372, 6, 26, "Output",ExpressionUUID->"324c79e0-21ce-486c-9be0-f0396d74f486"] }, Open ]], Cell[CellGroupData[{ -Cell[2713, 97, 910, 31, 46, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[3626, 130, 175, 3, 25, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[1411, 42, 247, 4, 23, "Input",ExpressionUUID->"204c7c50-46af-46fd-9729-d209fac3838b"], +Cell[1661, 48, 377, 6, 26, "Output",ExpressionUUID->"8800dc50-8cc7-42f7-b3fb-926889f403f2"] }, Open ]], Cell[CellGroupData[{ -Cell[3838, 138, 887, 30, 46, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[4728, 170, 176, 3, 25, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +Cell[2075, 59, 221, 4, 23, "Input",ExpressionUUID->"5630bff6-90dd-4888-9621-cb7d97908b2d"], +Cell[2299, 65, 398, 6, 26, "Output",ExpressionUUID->"2bca863f-a19e-4675-9bec-510b231b035f"] }, Open ]], Cell[CellGroupData[{ -Cell[4941, 178, 558, 19, 42, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[5502, 199, 172, 3, 25, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +Cell[2734, 76, 176, 3, 23, "Input",ExpressionUUID->"0a30049e-799d-477e-9c67-6851d13c3ede"], +Cell[2913, 81, 376, 6, 26, "Output",ExpressionUUID->"681e7615-4ca4-4b32-aea0-21378feed02a"] }, Open ]], Cell[CellGroupData[{ -Cell[5711, 207, 623, 21, 42, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[6337, 230, 172, 3, 25, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +Cell[3326, 92, 258, 7, 35, "Input",ExpressionUUID->"a2945748-6248-4753-ae17-ddecefca8204"], +Cell[3587, 101, 387, 6, 26, "Output",ExpressionUUID->"80f7aa0c-e9c4-41b7-bb20-6560a5936cda"] }, Open ]], Cell[CellGroupData[{ -Cell[6546, 238, 170, 5, 46, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[6719, 245, 172, 3, 25, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +Cell[4011, 112, 132, 2, 23, "Input",ExpressionUUID->"c14bc843-0583-4950-b06d-691f9c31cfa3"], +Cell[4146, 116, 378, 6, 26, "Output",ExpressionUUID->"9400df4d-21d8-453f-be12-855fdb2bc8fc"] }, Open ]], Cell[CellGroupData[{ -Cell[6928, 253, 170, 5, 45, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[7101, 260, 171, 3, 25, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +Cell[4561, 127, 277, 6, 23, "Input",ExpressionUUID->"f5bce722-7b41-4db7-8d03-af0ac3d8c649"], +Cell[4841, 135, 387, 6, 26, "Output",ExpressionUUID->"96901039-df3a-4362-bc2f-95461d341aa8"] }, Open ]], Cell[CellGroupData[{ -Cell[7309, 268, 181, 5, 35, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[7493, 275, 170, 3, 25, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +Cell[5265, 146, 258, 7, 23, "Input",ExpressionUUID->"9b2bd9a9-1884-4226-b9bb-67f5800ec261"], +Cell[5526, 155, 382, 6, 26, "Output",ExpressionUUID->"1544885f-408d-4793-85b0-c307ab13ca7e"] }, Open ]], Cell[CellGroupData[{ -Cell[7700, 283, 181, 5, 35, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[7884, 290, 172, 3, 25, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +Cell[5945, 166, 227, 4, 23, "Input",ExpressionUUID->"fcbe6772-3784-47fa-98be-f2c7aa522a31"], +Cell[6175, 172, 347, 5, 26, "Output",ExpressionUUID->"7ae56f43-44bf-41d3-ae4b-4ce8f9e486db"] }, Open ]], Cell[CellGroupData[{ -Cell[8093, 298, 6055, 185, 310, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[14151, 485, 172, 3, 25, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +Cell[6559, 182, 226, 4, 23, "Input",ExpressionUUID->"3300daa7-8147-4c0e-ae9c-4e70de35396b"], +Cell[6788, 188, 340, 5, 26, "Output",ExpressionUUID->"5abb9d11-1c92-425e-90d2-542e1adfd6a6"] }, Open ]], Cell[CellGroupData[{ -Cell[14360, 493, 368, 9, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[14731, 504, 171, 3, 25, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +Cell[7165, 198, 129, 2, 23, "Input",ExpressionUUID->"e36edc2d-e5c6-4ad2-bc4e-97880bdc2118"], +Cell[7297, 202, 372, 6, 26, "Output",ExpressionUUID->"0b8ca2c2-02a1-40f5-9991-dc27751c7af8"] }, Open ]], Cell[CellGroupData[{ -Cell[14939, 512, 6122, 187, 353, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[21064, 701, 173, 3, 25, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +Cell[7706, 213, 129, 2, 23, "Input",ExpressionUUID->"d3e646b8-c13f-447f-acde-d73b321316bc"], +Cell[7838, 217, 370, 6, 26, "Output",ExpressionUUID->"c2a88142-b553-416c-95fd-02dbcf2dd626"] }, Open ]], Cell[CellGroupData[{ -Cell[21274, 709, 368, 9, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[21645, 720, 170, 3, 25, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +Cell[8245, 228, 557, 19, 67, "Input",ExpressionUUID->"8b806b6f-2b74-4265-b7ef-cc6a19e7b208"], +Cell[8805, 249, 390, 6, 26, "Output",ExpressionUUID->"7195b0df-4fd7-4c8f-9b13-2a637150b70a"] }, Open ]], Cell[CellGroupData[{ -Cell[21852, 728, 2663, 88, 135, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[24518, 818, 171, 3, 25, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +Cell[9232, 260, 557, 19, 67, "Input",ExpressionUUID->"1224c2ae-ce5f-489c-8822-79cb715e44ea"], +Cell[9792, 281, 387, 6, 26, "Output",ExpressionUUID->"c00e7a0a-2c20-4faf-881c-749b01df79b5"] }, Open ]], Cell[CellGroupData[{ -Cell[24726, 826, 2603, 85, 135, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[27332, 913, 173, 3, 25, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +Cell[10216, 292, 1588, 50, 48, "Input",ExpressionUUID->"c162e657-ef0e-48d0-beca-55f08ee56145"], +Cell[11807, 344, 386, 6, 26, "Output",ExpressionUUID->"f7ac154f-a600-4b9d-ae96-dc82d4cf521a"] }, Open ]], Cell[CellGroupData[{ -Cell[27542, 921, 3712, 118, 197, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[31257, 1041, 174, 3, 25, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] -}, Open ]], -Cell[31446, 1047, 138, 3, 34, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], -Cell[CellGroupData[{ -Cell[31609, 1054, 2054, 59, 92, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], -Cell[33666, 1115, 557, 12, 50, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], -Cell[34226, 1129, 559, 12, 50, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], -Cell[34788, 1143, 561, 12, 50, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], -Cell[35352, 1157, 458, 10, 20, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], -Cell[35813, 1169, 172, 3, 25, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[12230, 355, 1422, 46, 48, "Input",ExpressionUUID->"7cbda4ee-cf16-489b-983d-acac094768ea"], +Cell[13655, 403, 402, 7, 26, "Output",ExpressionUUID->"4dd23120-9e40-4c85-8d46-c8625e23f59d"] }, Open ]], Cell[CellGroupData[{ -Cell[36022, 1177, 2052, 59, 92, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], -Cell[38077, 1238, 555, 12, 50, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], -Cell[38635, 1252, 559, 12, 50, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], -Cell[39197, 1266, 561, 12, 50, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], -Cell[39761, 1280, 458, 10, 20, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], -Cell[40222, 1292, 172, 3, 25, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[14094, 415, 1422, 46, 48, "Input",ExpressionUUID->"70a35548-a870-4493-8a84-845fe5b80060"], +Cell[15519, 463, 405, 7, 26, "Output",ExpressionUUID->"b6a5cca7-3961-4b39-aaf2-b1dbef4d0bad"] }, Open ]], Cell[CellGroupData[{ -Cell[40431, 1300, 1936, 53, 69, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], -Cell[42370, 1355, 20440, 382, 190, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +Cell[15961, 475, 1588, 50, 48, "Input",ExpressionUUID->"d9e748c8-26cf-4f2b-8f9b-4a4d0de5af12"], +Cell[17552, 527, 381, 6, 26, "Output",ExpressionUUID->"f9642f02-8bc2-41be-9dde-ded39477f174"] }, Open ]], Cell[CellGroupData[{ -Cell[62847, 1742, 2094, 60, 56, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], -Cell[64944, 1804, 500, 11, 56, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], -Cell[65447, 1817, 503, 11, 33, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], -Cell[65953, 1830, 506, 11, 33, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], -Cell[66462, 1843, 455, 10, 20, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], -Cell[66920, 1855, 57321, 985, 187, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] -}, Open ]], -Cell[124256, 2843, 232, 6, 34, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], -Cell[124491, 2851, 209, 5, 34, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], -Cell[CellGroupData[{ -Cell[124725, 2860, 217, 7, 39, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], -Cell[124945, 2869, 172, 3, 25, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +Cell[17970, 538, 131, 2, 23, "Input",ExpressionUUID->"b2260ccb-3694-49f8-8ac2-40688beba51c"], +Cell[18104, 542, 373, 6, 26, "Output",ExpressionUUID->"56a6640f-5cf8-430b-ac0f-6cc86063094f"] }, Open ]], Cell[CellGroupData[{ -Cell[125154, 2877, 1816, 53, 92, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], -Cell[126973, 2932, 508, 11, 50, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], -Cell[127484, 2945, 508, 11, 50, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], -Cell[127995, 2958, 511, 11, 50, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], -Cell[128509, 2971, 456, 10, 20, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], -Cell[128968, 2983, 26000, 472, 187, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +Cell[18514, 553, 133, 2, 23, "Input",ExpressionUUID->"15f43abf-bad8-4a0b-98b6-f6bcf06ed5e6"], +Cell[18650, 557, 373, 6, 26, "Output",ExpressionUUID->"3575f046-1315-4c55-b22d-cbbe607fc441"] }, Open ]], Cell[CellGroupData[{ -Cell[155005, 3460, 1616, 48, 69, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], -Cell[156624, 3510, 584, 12, 53, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], -Cell[157211, 3524, 588, 12, 53, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], -Cell[157802, 3538, 592, 12, 53, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], -Cell[158397, 3552, 456, 10, 20, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], -Cell[158856, 3564, 169, 3, 25, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +Cell[19060, 568, 134, 2, 23, "Input",ExpressionUUID->"b9b0f8d4-ba1b-4c1e-be99-579da2035883"], +Cell[19197, 572, 374, 6, 26, "Output",ExpressionUUID->"fd5e9efc-ff30-46f4-99b1-9700d4665a53"] }, Open ]], Cell[CellGroupData[{ -Cell[159062, 3572, 2249, 64, 131, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], -Cell[161314, 3638, 555, 12, 50, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], -Cell[161872, 3652, 557, 12, 56, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], -Cell[162432, 3666, 563, 12, 56, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], -Cell[162998, 3680, 458, 10, 56, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], -Cell[163459, 3692, 173, 3, 56, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +Cell[19608, 583, 219, 4, 23, "Input",ExpressionUUID->"4b046839-52f5-44f5-bda7-9bfcf58e8125"], +Cell[19830, 589, 384, 7, 26, "Output",ExpressionUUID->"836e9233-2cd7-49e9-a337-df1dbfa57b4e"] }, Open ]], Cell[CellGroupData[{ -Cell[163669, 3700, 2223, 64, 56, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], -Cell[165895, 3766, 555, 12, 56, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], -Cell[166453, 3780, 557, 12, 56, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], -Cell[167013, 3794, 561, 12, 56, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], -Cell[167577, 3808, 458, 10, 56, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], -Cell[168038, 3820, 173, 3, 56, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +Cell[20251, 601, 134, 2, 23, "Input",ExpressionUUID->"ba1fb4bf-cc83-4d32-82fe-79ef7850fd83"], +Cell[20388, 605, 373, 6, 26, "Output",ExpressionUUID->"4eee233b-ec5e-485f-a411-e5544dfd0893"] }, Open ]], Cell[CellGroupData[{ -Cell[168248, 3828, 2221, 64, 56, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], -Cell[170472, 3894, 557, 12, 56, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], -Cell[171032, 3908, 557, 12, 56, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], -Cell[171592, 3922, 563, 12, 56, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], -Cell[172158, 3936, 456, 10, 56, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], -Cell[172617, 3948, 173, 3, 56, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +Cell[20798, 616, 326, 5, 23, "Input",ExpressionUUID->"9fabfce7-52f3-434c-aa63-a4d3e3fb362e"], +Cell[21127, 623, 338, 5, 26, "Output",ExpressionUUID->"2ec47ad5-fdcb-4bbd-8f73-cf46bf8d0394"] }, Open ]], Cell[CellGroupData[{ -Cell[172827, 3956, 213, 6, 56, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], -Cell[173043, 3964, 171, 3, 56, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] -}, Open ]], -Cell[173229, 3970, 245, 5, 56, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], -Cell[CellGroupData[{ -Cell[173499, 3979, 558, 19, 56, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[174060, 4000, 172, 3, 56, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +Cell[21502, 633, 295, 5, 23, "Input",ExpressionUUID->"61807d35-25ac-461b-b91a-947e991dfc57"], +Cell[21800, 640, 371, 6, 26, "Output",ExpressionUUID->"ce85cc11-e318-4727-a1fa-22e547fe56aa"] }, Open ]], Cell[CellGroupData[{ -Cell[174269, 4008, 170, 5, 56, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[174442, 4015, 173, 3, 56, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +Cell[22208, 651, 219, 4, 23, "Input",ExpressionUUID->"15af80e0-b761-490c-b743-13b939c2b301"], +Cell[22430, 657, 369, 6, 26, "Output",ExpressionUUID->"119db5f8-7da4-4568-9228-b4d760d98887"] }, Open ]], Cell[CellGroupData[{ -Cell[174652, 4023, 181, 5, 56, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[174836, 4030, 173, 3, 56, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +Cell[22836, 668, 350, 10, 35, "Input",ExpressionUUID->"b4768c84-c996-418b-af48-594084c904f3"], +Cell[23189, 680, 391, 6, 26, "Output",ExpressionUUID->"2ed59f48-c2b2-4d19-bdbe-9ec67c31fc26"] }, Open ]], Cell[CellGroupData[{ -Cell[175046, 4038, 6055, 185, 56, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[181104, 4225, 172, 3, 56, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +Cell[23617, 691, 350, 10, 35, "Input",ExpressionUUID->"8776d600-3ed0-4b58-83de-1d9552233afa"], +Cell[23970, 703, 401, 7, 26, "Output",ExpressionUUID->"3c45bef3-750e-4030-b887-c303a20895df"] }, Open ]], Cell[CellGroupData[{ -Cell[181313, 4233, 368, 9, 56, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[181684, 4244, 170, 3, 56, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +Cell[24408, 715, 994, 26, 38, "Input",ExpressionUUID->"f1fb3388-4070-4f8c-afeb-ac5dade52d8b"], +Cell[25405, 743, 385, 6, 26, "Output",ExpressionUUID->"62c48184-1f48-45d5-8749-cc7b775ef8a0"] }, Open ]], Cell[CellGroupData[{ -Cell[181891, 4252, 6122, 187, 56, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[188016, 4441, 175, 3, 56, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +Cell[25827, 754, 199, 3, 23, "Input",ExpressionUUID->"908ae3dc-d3ec-4128-9f2e-91d699c79e93"], +Cell[26029, 759, 370, 6, 26, "Output",ExpressionUUID->"398fcb47-c4de-4a4d-b9b0-3de2d683c0e2"] }, Open ]], Cell[CellGroupData[{ -Cell[188228, 4449, 368, 9, 56, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[188599, 4460, 172, 3, 56, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +Cell[26436, 770, 329, 5, 23, "Input",ExpressionUUID->"f7f4dd40-4e58-4807-a978-c3d03da81a45"], +Cell[26768, 777, 348, 5, 26, "Output",ExpressionUUID->"1e303c9d-60b3-4334-a19d-8cbd50435467"] +}, Open ]], +Cell[27131, 785, 173, 2, 44, "Input",ExpressionUUID->"8e6d7ba6-0413-43af-9a22-5a34da1efa50"], +Cell[CellGroupData[{ +Cell[27329, 791, 329, 5, 23, "Input",ExpressionUUID->"19295610-ad81-4231-aa66-f8abe3286f0b"], +Cell[27661, 798, 348, 5, 26, "Output",ExpressionUUID->"32b6da7a-74bd-4d29-89be-b7900a023ef5"] +}, Open ]], +Cell[28024, 806, 173, 2, 44, "Input",ExpressionUUID->"32a0a2f2-0e41-4835-8fba-e0976c26533c"], +Cell[CellGroupData[{ +Cell[28222, 812, 330, 5, 23, "Input",ExpressionUUID->"93ee30e3-15f6-47b1-8763-9a8046115de8"], +Cell[28555, 819, 343, 5, 26, "Output",ExpressionUUID->"9866a54c-0a5f-4e04-8049-f01ae8f90e70"] +}, Open ]], +Cell[28913, 827, 173, 2, 44, "Input",ExpressionUUID->"2162f6c0-569a-47d8-8ab6-d2949ab58d6a"], +Cell[CellGroupData[{ +Cell[29111, 833, 352, 5, 23, "Input",ExpressionUUID->"d6a21a25-baf5-46fb-bd52-3457b819f6bf"], +Cell[29466, 840, 347, 5, 26, "Output",ExpressionUUID->"3a916d04-9275-4445-b3a1-662c71fe6092"] +}, Open ]], +Cell[29828, 848, 171, 2, 44, "Input",ExpressionUUID->"c22d8007-0161-4853-800e-7d221c2c2a97"], +Cell[CellGroupData[{ +Cell[30024, 854, 300, 5, 23, "Input",ExpressionUUID->"7067a133-8a08-408d-a0fd-2285962d9ddb"], +Cell[30327, 861, 343, 5, 26, "Output",ExpressionUUID->"0a2640ac-f967-4e27-a135-8956668994ce"] +}, Open ]], +Cell[30685, 869, 171, 2, 44, "Input",ExpressionUUID->"18f7a9e7-c435-424e-bcab-15974da0a0fa"], +Cell[CellGroupData[{ +Cell[30881, 875, 304, 5, 23, "Input",ExpressionUUID->"d876ec95-206a-47d4-b9cc-e6bfb36fa873"], +Cell[31188, 882, 348, 5, 26, "Output",ExpressionUUID->"1f6523e5-3b57-48aa-8f46-739e54e3a723"] +}, Open ]], +Cell[31551, 890, 173, 2, 44, "Input",ExpressionUUID->"77d49b93-d1f4-4f1a-86a0-63d44f33f0b4"], +Cell[CellGroupData[{ +Cell[31749, 896, 307, 5, 23, "Input",ExpressionUUID->"9a43eab4-5a23-41ae-b946-b7cc2b87040b"], +Cell[32059, 903, 341, 5, 26, "Output",ExpressionUUID->"94d5998b-14d2-4cbc-8d47-172872b81bcf"] +}, Open ]], +Cell[32415, 911, 172, 2, 44, "Input",ExpressionUUID->"cf4376cf-9b14-4408-954a-4eec001b376c"], +Cell[CellGroupData[{ +Cell[32612, 917, 274, 4, 23, "Input",ExpressionUUID->"347db530-8a18-4ad1-81da-abbcd8cda90b"], +Cell[32889, 923, 350, 5, 26, "Output",ExpressionUUID->"b9d6aa77-22e1-47b1-b17b-a1f2e89bf7b9"] +}, Open ]], +Cell[33254, 931, 175, 2, 44, "Input",ExpressionUUID->"41dd2d37-97c7-4898-915a-4babc7938952"], +Cell[CellGroupData[{ +Cell[33454, 937, 19809, 485, 680, "Input",ExpressionUUID->"4c7d71bc-6e10-498c-a94b-3de087525273"], +Cell[53266, 1424, 401, 7, 26, "Output",ExpressionUUID->"800dc3f8-06eb-46d7-955a-d34321a39f37"] }, Open ]], Cell[CellGroupData[{ -Cell[188808, 4468, 2663, 88, 56, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[191474, 4558, 173, 3, 56, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +Cell[53704, 1436, 19748, 489, 690, "Input",ExpressionUUID->"108df0b7-564a-41a9-9ca6-152638c913c3"], +Cell[73455, 1927, 386, 6, 26, "Output",ExpressionUUID->"bce4d0d7-3fe1-4ce7-b4e0-b252fbd631fb"] }, Open ]], Cell[CellGroupData[{ -Cell[191684, 4566, 2603, 85, 56, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[194290, 4653, 171, 3, 56, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +Cell[73878, 1938, 19748, 483, 689, "Input",ExpressionUUID->"4c9ead0c-9b76-4f34-8a3c-5b9e822883d4"], +Cell[93629, 2423, 399, 7, 26, "Output",ExpressionUUID->"508aaf49-7310-4c9e-a071-5e79e24d9088"] }, Open ]], Cell[CellGroupData[{ -Cell[194498, 4661, 3712, 118, 56, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[198213, 4781, 174, 3, 56, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +Cell[94065, 2435, 22534, 553, 761, "Input",ExpressionUUID->"a82a656f-2cd4-4e27-9402-5230d3595daa"], +Cell[116602, 2990, 403, 7, 26, "Output",ExpressionUUID->"895bfa96-e0e5-425a-8488-9475c78a85bb"] }, Open ]], Cell[CellGroupData[{ -Cell[198424, 4789, 2052, 59, 56, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], -Cell[200479, 4850, 578, 12, 56, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], -Cell[201060, 4864, 583, 12, 56, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], -Cell[201646, 4878, 586, 12, 56, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], -Cell[202235, 4892, 456, 10, 56, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], -Cell[202694, 4904, 170, 3, 56, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +Cell[117042, 3002, 22535, 553, 761, "Input",ExpressionUUID->"09b7ccdc-5dd9-4d99-a3f4-2900ca2dcff3"], +Cell[139580, 3557, 403, 7, 26, "Output",ExpressionUUID->"1bed92a2-442a-4b69-8fae-201cfb56b1de"] }, Open ]], Cell[CellGroupData[{ -Cell[202901, 4912, 2054, 59, 56, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], -Cell[204958, 4973, 576, 12, 56, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], -Cell[205537, 4987, 581, 12, 56, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], -Cell[206121, 5001, 586, 12, 56, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], -Cell[206710, 5015, 458, 10, 56, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], -Cell[207171, 5027, 172, 3, 56, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +Cell[140020, 3569, 25491, 626, 833, "Input",ExpressionUUID->"0b2e37a4-acc9-46a6-9d73-1c538dacc043"], +Cell[165514, 4197, 403, 7, 26, "Output",ExpressionUUID->"a2cdae11-2b54-425b-9e85-87cb4da63dfb"] }, Open ]], Cell[CellGroupData[{ -Cell[207380, 5035, 2028, 55, 56, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], -Cell[209411, 5092, 20011, 378, 56, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +Cell[165954, 4209, 130, 2, 23, "Input",ExpressionUUID->"ee8354dc-8984-466c-9640-9a634c4a928e"], +Cell[166087, 4213, 364, 6, 26, "Output",ExpressionUUID->"7445555f-b735-4e19-a56b-a58b1311f4b5"] }, Open ]], Cell[CellGroupData[{ -Cell[229459, 5475, 2115, 60, 56, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], -Cell[231577, 5537, 501, 11, 56, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], -Cell[232081, 5550, 503, 11, 56, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], -Cell[232587, 5563, 505, 11, 56, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], -Cell[233095, 5576, 456, 10, 56, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], -Cell[233554, 5588, 32548, 580, 56, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] -}, Open ]], -Cell[266117, 6171, 209, 5, 56, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], -Cell[CellGroupData[{ -Cell[266351, 6180, 1616, 48, 56, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], -Cell[267970, 6230, 596, 12, 56, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], -Cell[268569, 6244, 599, 12, 56, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], -Cell[269171, 6258, 605, 12, 56, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], -Cell[269779, 6272, 456, 10, 56, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], -Cell[270238, 6284, 170, 3, 56, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +Cell[166488, 4224, 130, 2, 23, "Input",ExpressionUUID->"fbb3dcc4-26fa-405a-8c82-5c30e23622cc"], +Cell[166621, 4228, 369, 6, 26, "Output",ExpressionUUID->"eb619002-cc9a-4760-b17b-9deb9e3e8d8b"] }, Open ]], Cell[CellGroupData[{ -Cell[270445, 6292, 2247, 64, 56, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], -Cell[272695, 6358, 580, 12, 56, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], -Cell[273278, 6372, 583, 12, 56, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], -Cell[273864, 6386, 584, 12, 56, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], -Cell[274451, 6400, 458, 10, 56, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], -Cell[274912, 6412, 170, 3, 56, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +Cell[167027, 4239, 1144, 39, 48, "Input",ExpressionUUID->"9fdc753b-53da-4b56-b7f0-0395b984a145"], +Cell[168174, 4280, 383, 6, 26, "Output",ExpressionUUID->"391e759c-6e5f-4c46-a0e9-780a52d116e4"] }, Open ]], Cell[CellGroupData[{ -Cell[275119, 6420, 2219, 64, 56, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], -Cell[277341, 6486, 580, 12, 56, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], -Cell[277924, 6500, 583, 12, 56, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], -Cell[278510, 6514, 586, 12, 56, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], -Cell[279099, 6528, 458, 10, 56, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], -Cell[279560, 6540, 171, 3, 56, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +Cell[168594, 4291, 1041, 35, 48, "Input",ExpressionUUID->"860b2353-fa6a-4d6a-a71a-9b8849a95763"], +Cell[169638, 4328, 397, 7, 26, "Output",ExpressionUUID->"0a57c1f8-be09-43ed-b92d-7e56fb4bde5d"] }, Open ]], Cell[CellGroupData[{ -Cell[279768, 6548, 2221, 64, 56, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], -Cell[281992, 6614, 580, 12, 56, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], -Cell[282575, 6628, 583, 12, 56, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], -Cell[283161, 6642, 584, 12, 56, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], -Cell[283748, 6656, 456, 10, 56, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], -Cell[284207, 6668, 170, 3, 56, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +Cell[170072, 4340, 1144, 39, 48, "Input",ExpressionUUID->"761da832-b2e6-4758-85c3-936b749cb6a1"], +Cell[171219, 4381, 390, 6, 26, "Output",ExpressionUUID->"505d3122-1122-478d-959f-5c8ee2c8a240"] }, Open ]], Cell[CellGroupData[{ -Cell[284414, 6676, 213, 6, 56, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], -Cell[284630, 6684, 174, 3, 56, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] -}, Open ]], -Cell[284819, 6690, 247, 5, 56, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], -Cell[CellGroupData[{ -Cell[285091, 6699, 558, 19, 56, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[285652, 6720, 173, 3, 56, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +Cell[171646, 4392, 108, 1, 23, "Input",ExpressionUUID->"69b30e47-9252-4807-a709-fe211b498050"], +Cell[171757, 4395, 390, 6, 26, "Output",ExpressionUUID->"50f2817f-c132-4251-8062-b1d2212a88df"] }, Open ]], Cell[CellGroupData[{ -Cell[285862, 6728, 170, 5, 56, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[286035, 6735, 173, 3, 56, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +Cell[172184, 4406, 108, 1, 23, "Input",ExpressionUUID->"30a1015a-87a3-4d41-a8c2-e9121849176e"], +Cell[172295, 4409, 400, 7, 26, "Output",ExpressionUUID->"4a154ccc-2208-4a1d-b7ba-5e936c5fd4e2"] }, Open ]], Cell[CellGroupData[{ -Cell[286245, 6743, 181, 5, 56, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[286429, 6750, 171, 3, 56, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +Cell[172732, 4421, 108, 1, 23, "Input",ExpressionUUID->"f0e44845-9986-4f32-a790-8440b2c439e9"], +Cell[172843, 4424, 402, 7, 26, "Output",ExpressionUUID->"6bd86e57-7512-4058-b46c-b40e2738c915"] }, Open ]], Cell[CellGroupData[{ -Cell[286637, 6758, 6055, 185, 56, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[292695, 6945, 173, 3, 56, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +Cell[173282, 4436, 108, 1, 23, "Input",ExpressionUUID->"5a605471-8c22-4380-b127-1f1dd47ed52a"], +Cell[173393, 4439, 386, 6, 26, "Output",ExpressionUUID->"2ee0c54a-44c4-4f00-b43b-30f3dfcda055"] }, Open ]], Cell[CellGroupData[{ -Cell[292905, 6953, 368, 9, 56, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[293276, 6964, 172, 3, 56, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +Cell[173816, 4450, 107, 1, 23, "Input",ExpressionUUID->"f09aa527-60a2-4ef7-b8eb-c3c472d40523"], +Cell[173926, 4453, 388, 6, 26, "Output",ExpressionUUID->"34dfdc3e-486b-47d4-838a-8e257d323658"] }, Open ]], Cell[CellGroupData[{ -Cell[293485, 6972, 6122, 187, 56, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[299610, 7161, 175, 3, 56, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +Cell[174351, 4464, 107, 1, 23, "Input",ExpressionUUID->"9437c249-5d0f-4768-91cc-73b83b6fd2cb"], +Cell[174461, 4467, 384, 6, 26, "Output",ExpressionUUID->"fe3c488b-1b64-46c1-92d0-8b7e09bc757d"] }, Open ]], Cell[CellGroupData[{ -Cell[299822, 7169, 368, 9, 56, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[300193, 7180, 171, 3, 56, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +Cell[174882, 4478, 497, 16, 46, "Input",ExpressionUUID->"e6b8b8d0-ae42-4d47-bdc8-16674ea04604"], +Cell[175382, 4496, 402, 7, 26, "Output",ExpressionUUID->"9ad5cbee-99f5-4f33-a8f5-ffb4cdb07d9d"] }, Open ]], Cell[CellGroupData[{ -Cell[300401, 7188, 2663, 88, 56, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[303067, 7278, 173, 3, 56, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +Cell[175821, 4508, 497, 16, 46, "Input",ExpressionUUID->"31114cdb-8af1-4e3b-9bb4-51ee021a3bf0"], +Cell[176321, 4526, 397, 7, 26, "Output",ExpressionUUID->"b365816f-d6b8-4d6e-a33b-2b0459ee443c"] }, Open ]], Cell[CellGroupData[{ -Cell[303277, 7286, 2603, 85, 56, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[305883, 7373, 171, 3, 56, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +Cell[176755, 4538, 1788, 60, 48, "Input",ExpressionUUID->"25ac905b-3951-422a-93cf-d7e9937f463e"], +Cell[178546, 4600, 388, 6, 26, "Output",ExpressionUUID->"a27b13be-00a9-4e9f-8347-d7b7a372d18e"] }, Open ]], Cell[CellGroupData[{ -Cell[306091, 7381, 3712, 118, 56, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[309806, 7501, 174, 3, 56, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +Cell[178971, 4611, 1101, 36, 48, "Input",ExpressionUUID->"7b6bb20d-afa7-442e-a5a2-898994a8b0c6"], +Cell[180075, 4649, 400, 7, 26, "Output",ExpressionUUID->"ed573209-1a78-40a2-878c-15e01e9973ad"] }, Open ]], Cell[CellGroupData[{ -Cell[310017, 7509, 2054, 59, 56, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], -Cell[312074, 7570, 572, 12, 56, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], -Cell[312649, 7584, 573, 12, 56, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], -Cell[313225, 7598, 579, 12, 56, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], -Cell[313807, 7612, 456, 10, 56, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], -Cell[314266, 7624, 169, 3, 56, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +Cell[180512, 4661, 1818, 61, 95, "Input",ExpressionUUID->"80ac9d67-9237-443f-aa3f-2a8a5d0599da"], +Cell[182333, 4724, 386, 6, 26, "Output",ExpressionUUID->"086f8a1d-d230-4a5e-b310-cecd76a178c8"] }, Open ]], Cell[CellGroupData[{ -Cell[314472, 7632, 2049, 58, 56, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], -Cell[316524, 7692, 570, 12, 56, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], -Cell[317097, 7706, 575, 12, 56, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], -Cell[317675, 7720, 579, 12, 56, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], -Cell[318257, 7734, 458, 10, 56, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], -Cell[318718, 7746, 171, 3, 56, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +Cell[182756, 4735, 1631, 53, 67, "Input",ExpressionUUID->"5f11066c-d152-4873-bc9f-9b0f487e480f"], +Cell[184390, 4790, 389, 6, 26, "Output",ExpressionUUID->"40c906b1-bbb2-4223-8540-c554fc9d915d"] }, Open ]], Cell[CellGroupData[{ -Cell[318926, 7754, 2030, 55, 56, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], -Cell[320959, 7811, 20011, 378, 56, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +Cell[184816, 4801, 1631, 53, 67, "Input",ExpressionUUID->"22e78aba-149f-4af3-8ab2-92ac3a9c7b5f"], +Cell[186450, 4856, 383, 6, 26, "Output",ExpressionUUID->"a7cd83cc-a7a5-4b9a-ae59-7fb61447d511"] }, Open ]], Cell[CellGroupData[{ -Cell[341007, 8194, 2120, 60, 56, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], -Cell[343130, 8256, 501, 11, 56, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], -Cell[343634, 8269, 505, 11, 56, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], -Cell[344142, 8282, 506, 11, 56, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], -Cell[344651, 8295, 456, 10, 56, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], -Cell[345110, 8307, 31008, 556, 56, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +Cell[186870, 4867, 230, 4, 23, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[187103, 4873, 178, 2, 26, "Output",ExpressionUUID->"ae559e9e-25a3-477c-b42d-3dfa5da93e04"] }, Open ]], -Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[187296, 4878, 173, 2, 23, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], Cell[CellGroupData[{ -Cell[376367, 8875, 1616, 48, 56, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], -Cell[377986, 8925, 593, 12, 56, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], -Cell[378582, 8939, 595, 12, 56, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], -Cell[379180, 8953, 602, 12, 56, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], -Cell[379785, 8967, 456, 10, 56, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], -Cell[380244, 8979, 172, 3, 56, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +Cell[187494, 4884, 230, 4, 23, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[187727, 4890, 178, 2, 26, "Output",ExpressionUUID->"956f9688-562a-432a-960e-7a3222cf3456"] +}, Open ]], +Cell[187920, 4895, 173, 2, 23, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[188118, 4901, 1297, 42, 40, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[189418, 4945, 218, 3, 26, "Output",ExpressionUUID->"3a14f16d-6ec5-4f30-ad6d-d48c34fad803"] }, Open ]], Cell[CellGroupData[{ -Cell[380453, 8987, 2249, 64, 56, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], -Cell[382705, 9053, 572, 12, 56, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], -Cell[383280, 9067, 575, 12, 56, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], -Cell[383858, 9081, 579, 12, 56, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], -Cell[384440, 9095, 458, 10, 56, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], -Cell[384901, 9107, 173, 3, 56, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +Cell[189673, 4953, 929, 30, 48, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[190605, 4985, 221, 3, 26, "Output",ExpressionUUID->"3109b7b7-8982-41be-915a-1576b2d7da5c"] }, Open ]], Cell[CellGroupData[{ -Cell[385111, 9115, 2221, 64, 56, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], -Cell[387335, 9181, 572, 12, 56, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], -Cell[387910, 9195, 575, 12, 56, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], -Cell[388488, 9209, 577, 12, 56, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], -Cell[389068, 9223, 456, 10, 56, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], -Cell[389527, 9235, 172, 3, 56, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +Cell[190863, 4993, 910, 30, 48, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[191776, 5025, 221, 4, 38, "Output",ExpressionUUID->"8e459cdd-c221-453e-926c-f8b4cf236fc3"] }, Open ]], Cell[CellGroupData[{ -Cell[389736, 9243, 2223, 64, 56, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], -Cell[391962, 9309, 572, 12, 56, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], -Cell[392537, 9323, 573, 12, 56, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], -Cell[393113, 9337, 579, 12, 56, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], -Cell[393695, 9351, 456, 10, 56, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], -Cell[394154, 9363, 173, 3, 56, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +Cell[192034, 5034, 558, 19, 43, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[192595, 5055, 221, 4, 38, "Output",ExpressionUUID->"90121fa1-9b22-48aa-9130-d6c4f0fcb9b0"] }, Open ]], Cell[CellGroupData[{ -Cell[394364, 9371, 215, 6, 56, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], -Cell[394582, 9379, 174, 3, 56, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] +Cell[192853, 5064, 623, 21, 43, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[193479, 5087, 222, 4, 38, "Output",ExpressionUUID->"6915c995-1276-4c81-b200-7aeb228fb6e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193738, 5096, 170, 5, 47, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[193911, 5103, 221, 4, 38, "Output",ExpressionUUID->"d2fffa84-9057-404b-940d-f22e5285076c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194169, 5112, 170, 5, 46, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[194342, 5119, 217, 4, 38, "Output",ExpressionUUID->"e58e1cb1-3880-4621-9bb4-d5d3e9357bad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194596, 5128, 181, 5, 36, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[194780, 5135, 219, 4, 38, "Output",ExpressionUUID->"59eaddb4-0983-40d2-84bc-56db9a8da55c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195036, 5144, 181, 5, 36, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[195220, 5151, 219, 4, 38, "Output",ExpressionUUID->"ff1ee0e3-bb3e-4a93-a2a2-b5befaca724c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195476, 5160, 6055, 185, 161, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[201534, 5347, 224, 4, 38, "Output",ExpressionUUID->"49c869fd-1d1f-4e84-96a8-d84f32ad6f76"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201795, 5356, 368, 9, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[202166, 5367, 219, 4, 38, "Output",ExpressionUUID->"57dfa062-c928-4057-9b04-f8ef5b824e64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202422, 5376, 6122, 187, 161, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[208547, 5565, 220, 4, 38, "Output",ExpressionUUID->"30f08eaf-ce35-4c7c-bf11-c5d44673648d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208804, 5574, 368, 9, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[209175, 5585, 216, 4, 38, "Output",ExpressionUUID->"8150a992-a82b-4547-952b-a9a413f9ac87"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209428, 5594, 2663, 88, 95, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[212094, 5684, 220, 4, 38, "Output",ExpressionUUID->"316b69bc-2f4b-4ba2-aae7-d9c6a06d84f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212351, 5693, 2603, 85, 95, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[214957, 5780, 222, 4, 38, "Output",ExpressionUUID->"8340be16-eca1-4edc-9ae2-f00769544489"] +}, Open ]], +Cell[CellGroupData[{ +Cell[215216, 5789, 3712, 118, 142, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[218931, 5909, 221, 4, 38, "Output",ExpressionUUID->"14c33eec-4071-4009-a8f6-79e712a61895"] +}, Open ]], +Cell[219167, 5916, 164, 4, 23, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[219356, 5924, 2077, 59, 83, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[221436, 5985, 625, 14, 34, "Message",ExpressionUUID->"2333a104-e05f-4020-a2be-da41d2a04e13"], +Cell[222064, 6001, 629, 14, 34, "Message",ExpressionUUID->"b8f00778-3341-4cca-907a-7573942df4b7"], +Cell[222696, 6017, 629, 14, 34, "Message",ExpressionUUID->"6b851781-a5d1-4555-9570-dfd55758e291"], +Cell[223328, 6033, 518, 12, 20, "Message",ExpressionUUID->"82d1fafe-6d91-4a32-a2c3-c033e19d7471"], +Cell[223849, 6047, 220, 4, 26, "Output",ExpressionUUID->"0dde49af-f93c-46e3-a01c-5b4b9d1b5b1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224106, 6056, 2075, 59, 83, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[226184, 6117, 596, 13, 34, "Message",ExpressionUUID->"620f953c-2e1f-4b9f-af61-f1dc3d74eaed"], +Cell[226783, 6132, 601, 13, 34, "Message",ExpressionUUID->"27a1eff1-2165-426c-a370-fd703a0d13ca"], +Cell[227387, 6147, 603, 13, 34, "Message",ExpressionUUID->"4dbe4979-effc-41de-8d32-77ea5fbd2a51"], +Cell[227993, 6162, 493, 11, 20, "Message",ExpressionUUID->"fb234670-8ea1-4f24-8e72-07809c18a118"], +Cell[228489, 6175, 194, 3, 26, "Output",ExpressionUUID->"88bdcf8e-1d9a-427e-9d67-24dab5c8b6e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[228720, 6183, 1959, 53, 61, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[230682, 6238, 20446, 386, 189, "Output",ExpressionUUID->"eeb53ca6-5a8d-4b45-aaa1-f33a1e966cf5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[251165, 6629, 2117, 60, 112, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[253285, 6691, 542, 12, 49, "Message",ExpressionUUID->"9e048295-c9b4-4f1f-a0e1-f157142d3654"], +Cell[253830, 6705, 542, 12, 49, "Message",ExpressionUUID->"bc3f7c38-0968-4796-b2f4-71f0debeefa4"], +Cell[254375, 6719, 548, 12, 49, "Message",ExpressionUUID->"8fbfb12e-8696-4abd-b48c-222338d92a0d"], +Cell[254926, 6733, 495, 11, 20, "Message",ExpressionUUID->"c7a4aea9-54db-411d-a328-fdb956e8cf6b"], +Cell[255424, 6746, 22043, 408, 186, "Output",ExpressionUUID->"a522b8bb-8c1e-4a6c-bf1b-492d7ec21c52"] +}, Open ]], +Cell[CellGroupData[{ +Cell[277504, 7159, 2482, 70, 107, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[279989, 7231, 9496, 223, 194, "Output",ExpressionUUID->"338ddb88-2617-42a9-a2f8-09bb9cccedfd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289522, 7459, 232, 5, 23, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[289757, 7466, 28403, 540, 186, "Output",ExpressionUUID->"aefde3ea-e3b9-43fc-aee5-0945507da6f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318197, 8011, 240, 7, 40, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[318440, 8020, 195, 3, 38, "Output",ExpressionUUID->"6a9d630e-de7f-455e-b3ab-d3c4fb71e067"] +}, Open ]], +Cell[CellGroupData[{ +Cell[318672, 8028, 1839, 53, 83, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[320514, 8083, 544, 12, 49, "Message",ExpressionUUID->"2cc06502-13b7-4e75-a0c7-aa9b344beac4"], +Cell[321061, 8097, 550, 12, 49, "Message",ExpressionUUID->"c37eed34-4449-4909-bdfc-eff69365db11"], +Cell[321614, 8111, 548, 12, 49, "Message",ExpressionUUID->"5915a9c1-77ac-4a0d-87e7-82fb0e5fa6d4"], +Cell[322165, 8125, 495, 11, 20, "Message",ExpressionUUID->"6ea9ae3f-15c4-46a9-962c-a49f33c48b00"], +Cell[322663, 8138, 21995, 408, 187, "Output",ExpressionUUID->"f6eaa482-07ad-4721-b5d3-1b302f15ecee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344695, 8551, 1616, 48, 60, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[346314, 8601, 627, 13, 51, "Message",ExpressionUUID->"5e653149-a707-42c9-87c9-9c0e308505a7"], +Cell[346944, 8616, 630, 13, 51, "Message",ExpressionUUID->"6b114936-59e0-4932-ac1b-0c46175662b3"], +Cell[347577, 8631, 631, 13, 51, "Message",ExpressionUUID->"5c396db3-99ce-4f9f-86f2-09273c5ffbab"], +Cell[348211, 8646, 497, 11, 20, "Message",ExpressionUUID->"6aefbd2a-f241-446d-99ee-3243fcdf9847"], +Cell[348711, 8659, 193, 3, 26, "Output",ExpressionUUID->"9b204c4a-0dfa-4eac-a253-25278cf3a16a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[348941, 8667, 2272, 64, 128, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[351216, 8733, 597, 13, 49, "Message",ExpressionUUID->"d6146c95-6efa-44d3-ad1a-20a081d0c27f"], +Cell[351816, 8748, 601, 13, 49, "Message",ExpressionUUID->"0ab68bc5-51c9-4732-a5ee-cd4c3274abec"], +Cell[352420, 8763, 604, 13, 69, "Message",ExpressionUUID->"6c4920b6-6ea4-4444-97fb-e12823059251"], +Cell[353027, 8778, 493, 11, 20, "Message",ExpressionUUID->"342f6334-90a8-4df8-bb2a-b778ba0184a5"], +Cell[353523, 8791, 194, 3, 26, "Output",ExpressionUUID->"9a73a598-db22-4fc3-a96b-38f4e32ee3b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353754, 8799, 2235, 63, 128, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[355992, 8864, 596, 13, 49, "Message",ExpressionUUID->"bfefabc3-441e-444b-9165-4ef60016ab8e"], +Cell[356591, 8879, 603, 13, 49, "Message",ExpressionUUID->"d8e25f17-cc50-4f00-9f82-1e8db6b31d90"], +Cell[357197, 8894, 604, 13, 69, "Message",ExpressionUUID->"e605f4c3-e0bc-4780-95b3-9f3c5529547e"], +Cell[357804, 8909, 493, 11, 20, "Message",ExpressionUUID->"1e442ba8-4101-43eb-b83c-40e2dd105963"], +Cell[358300, 8922, 194, 3, 26, "Output",ExpressionUUID->"28b1d449-25ff-4ebb-8ed5-a9450f5d8c81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358531, 8930, 2233, 63, 128, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[360767, 8995, 599, 13, 49, "Message",ExpressionUUID->"8ac562fb-0567-4f64-a208-65a0af86face"], +Cell[361369, 9010, 603, 13, 49, "Message",ExpressionUUID->"90a4334a-3424-40fc-b143-a2d518d3bbc5"], +Cell[361975, 9025, 606, 13, 69, "Message",ExpressionUUID->"a9061ca7-292a-4d10-9b33-c29bcbea7b28"], +Cell[362584, 9040, 495, 11, 20, "Message",ExpressionUUID->"73d71dd7-b4bf-4302-b3cc-803aee2e9bf2"], +Cell[363082, 9053, 194, 3, 26, "Output",ExpressionUUID->"885778f7-0f7e-40b6-89aa-ed494b43eb99"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363313, 9061, 236, 6, 39, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[363552, 9069, 193, 3, 38, "Output",ExpressionUUID->"0d8092ef-63cf-44b1-9e6c-c3045f2c3d07"] +}, Open ]], +Cell[363760, 9075, 271, 6, 23, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[364056, 9085, 558, 19, 43, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[364617, 9106, 194, 3, 38, "Output",ExpressionUUID->"9ded835c-28eb-451d-9453-94098d00e2f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364848, 9114, 170, 5, 47, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[365021, 9121, 194, 3, 38, "Output",ExpressionUUID->"a2df90a1-42c5-44ca-98d8-a66ab68182d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365252, 9129, 181, 5, 36, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[365436, 9136, 193, 3, 38, "Output",ExpressionUUID->"c5d578c9-7406-46d6-b35f-ab3cc4d84476"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365666, 9144, 6055, 185, 413, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[371724, 9331, 197, 3, 38, "Output",ExpressionUUID->"992caf2d-8085-4b21-8f50-e6cade28ad09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371958, 9339, 368, 9, 33, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[372329, 9350, 191, 3, 38, "Output",ExpressionUUID->"dd9bbcd6-52a8-4f05-8592-85d1813b52c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[372557, 9358, 6122, 187, 413, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[378682, 9547, 197, 3, 38, "Output",ExpressionUUID->"bde5e0e1-628c-4b45-ad08-dd434d4c9a8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378916, 9555, 368, 9, 33, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[379287, 9566, 193, 3, 38, "Output",ExpressionUUID->"c2af8195-b87e-4ac3-9ce9-bd5bbe9cbf56"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379517, 9574, 2663, 88, 142, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[382183, 9664, 195, 3, 38, "Output",ExpressionUUID->"cd4f3f46-9f3c-43e3-8d87-0587e42732b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382415, 9672, 2603, 85, 142, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[385021, 9759, 195, 3, 38, "Output",ExpressionUUID->"e92f0d0b-893f-4897-ad9a-a3ad0de7df50"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385253, 9767, 3712, 118, 208, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[388968, 9887, 196, 3, 38, "Output",ExpressionUUID->"87ea44b8-07bf-40fb-b0d2-5db9fddac08f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389201, 9895, 2075, 59, 83, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[391279, 9956, 597, 13, 49, "Message",ExpressionUUID->"87026cf3-8a25-4623-8999-d644ba14506c"], +Cell[391879, 9971, 598, 13, 49, "Message",ExpressionUUID->"5f9f4319-6c99-4d27-9882-3bb53d9120f5"], +Cell[392480, 9986, 602, 13, 34, "Message",ExpressionUUID->"c551826e-8b91-4c0f-b749-a32595d9cf30"], +Cell[393085, 10001, 493, 11, 20, "Message",ExpressionUUID->"71ce08cc-4781-4a00-9062-233d22ad9146"], +Cell[393581, 10014, 193, 3, 38, "Output",ExpressionUUID->"a7a5f405-187c-448f-83bd-6b94db2cf868"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393811, 10022, 2077, 59, 83, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[395891, 10083, 593, 13, 34, "Message",ExpressionUUID->"18ec318a-b9c4-4292-b8be-595fcd9f862b"], +Cell[396487, 10098, 595, 13, 34, "Message",ExpressionUUID->"baaf577f-ca86-46ca-ac3c-ec2d8438230f"], +Cell[397085, 10113, 598, 13, 34, "Message",ExpressionUUID->"bb404594-3f37-4a3f-80ba-f6edbed40461"], +Cell[397686, 10128, 493, 11, 20, "Message",ExpressionUUID->"ebb2637f-b34c-48a4-bceb-45d53f42503b"], +Cell[398182, 10141, 194, 3, 38, "Output",ExpressionUUID->"8a3b2297-8b4d-4645-ae34-42c10ba7937e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398413, 10149, 2051, 55, 45, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[400467, 10206, 20326, 381, 200, "Output",ExpressionUUID->"81bfdc95-10e9-4fd8-852e-928339611873"] +}, Open ]], +Cell[CellGroupData[{ +Cell[420830, 10592, 2138, 60, 83, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[422971, 10654, 535, 12, 34, "Message",ExpressionUUID->"4af5ddfc-9da4-4fd7-a581-324e6f3b3111"], +Cell[423509, 10668, 541, 12, 34, "Message",ExpressionUUID->"bbc924b2-09d9-4292-949e-4614e49e11d8"], +Cell[424053, 10682, 543, 12, 34, "Message",ExpressionUUID->"81b6ef9c-c905-4765-a9ce-6b2970d7433e"], +Cell[424599, 10696, 495, 11, 20, "Message",ExpressionUUID->"9d75b16d-36c8-4523-a51c-a55e798697bd"], +Cell[425097, 10709, 22556, 417, 197, "Output",ExpressionUUID->"e3c009db-6d41-4826-9099-17a0ea92d437"] +}, Open ]], +Cell[CellGroupData[{ +Cell[447690, 11131, 232, 5, 23, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[447925, 11138, 28916, 549, 197, "Output",ExpressionUUID->"d787f112-579b-4551-9bf9-060fc09f0e53"] +}, Open ]], +Cell[CellGroupData[{ +Cell[476878, 11692, 1616, 48, 60, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[478497, 11742, 629, 13, 34, "Message",ExpressionUUID->"62db389e-845b-4d30-b3aa-e876240e944b"], +Cell[479129, 11757, 633, 13, 34, "Message",ExpressionUUID->"9264ecb9-6a5a-4998-9527-a95dd93cf772"], +Cell[479765, 11772, 637, 13, 34, "Message",ExpressionUUID->"ac8299ec-f193-41da-9cdd-b034af7771b4"], +Cell[480405, 11787, 495, 11, 20, "Message",ExpressionUUID->"26510a91-0ead-4218-90df-77853d742e5a"], +Cell[480903, 11800, 193, 3, 38, "Output",ExpressionUUID->"6377a255-b8b6-4407-816a-cb4b575da237"] +}, Open ]], +Cell[CellGroupData[{ +Cell[481133, 11808, 2270, 64, 54, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[483406, 11874, 599, 13, 34, "Message",ExpressionUUID->"9124e467-4ae1-4021-a300-243dc94498eb"], +Cell[484008, 11889, 600, 13, 34, "Message",ExpressionUUID->"c6549aa0-c62b-4513-ac6c-bd63e835fbea"], +Cell[484611, 11904, 604, 13, 34, "Message",ExpressionUUID->"df2e08ef-c728-4d5e-862b-306fb2cf3581"], +Cell[485218, 11919, 495, 11, 20, "Message",ExpressionUUID->"9db75048-6c2e-4651-93e8-67308791c8ec"], +Cell[485716, 11932, 193, 3, 38, "Output",ExpressionUUID->"c4b9e709-44c9-455e-8ef5-ac8f37fed655"] +}, Open ]], +Cell[CellGroupData[{ +Cell[485946, 11940, 2231, 63, 54, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[488180, 12005, 597, 13, 34, "Message",ExpressionUUID->"21f560cb-17f9-4fd8-afd1-a3b49a847fb8"], +Cell[488780, 12020, 600, 13, 34, "Message",ExpressionUUID->"0398c7dd-c0ba-4977-94d8-7a46d9c3a000"], +Cell[489383, 12035, 604, 13, 34, "Message",ExpressionUUID->"86d0d906-331c-483a-aec8-995cab84b519"], +Cell[489990, 12050, 497, 11, 20, "Message",ExpressionUUID->"b1e3ee7b-ff3f-4251-b481-4779b24e07fa"], +Cell[490490, 12063, 193, 3, 38, "Output",ExpressionUUID->"da699e51-8337-4555-b0a9-38b354c425a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490720, 12071, 2233, 63, 54, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[492956, 12136, 597, 13, 34, "Message",ExpressionUUID->"e630d8e6-e72e-4896-8236-5e644436e26e"], +Cell[493556, 12151, 600, 13, 34, "Message",ExpressionUUID->"b945c7bd-5092-4b47-8a7f-06500796e5cb"], +Cell[494159, 12166, 602, 13, 34, "Message",ExpressionUUID->"32f9c9b5-dbf0-41ab-bf21-b30b40abbbda"], +Cell[494764, 12181, 494, 11, 20, "Message",ExpressionUUID->"735d0623-9874-4e24-9679-1a0c84c47df2"], +Cell[495261, 12194, 192, 3, 38, "Output",ExpressionUUID->"cc9e248c-6f72-4e53-84f1-00dd2c592e80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495490, 12202, 236, 6, 39, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[495729, 12210, 199, 3, 38, "Output",ExpressionUUID->"0817375f-aeff-41fb-8606-644e37fa0523"] +}, Open ]], +Cell[495943, 12216, 273, 6, 23, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[496241, 12226, 558, 19, 43, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[496802, 12247, 195, 3, 38, "Output",ExpressionUUID->"301b0e39-9a24-4394-bf63-03810f39cc5a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497034, 12255, 170, 5, 47, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[497207, 12262, 194, 3, 38, "Output",ExpressionUUID->"1e64545b-3fbb-43bb-b133-0e4e24a10b0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497438, 12270, 181, 5, 36, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[497622, 12277, 193, 3, 38, "Output",ExpressionUUID->"85b9b120-5774-4c1d-aae0-4002452ea138"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497852, 12285, 6055, 185, 161, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[503910, 12472, 194, 3, 38, "Output",ExpressionUUID->"a3f9a3aa-3db1-4ff9-b0c5-fa511dabdc36"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504141, 12480, 368, 9, 33, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[504512, 12491, 195, 3, 38, "Output",ExpressionUUID->"fad05be1-e43f-4569-8022-151dff411c43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504744, 12499, 6122, 187, 161, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[510869, 12688, 196, 3, 38, "Output",ExpressionUUID->"28bf90b0-e653-41e2-b1a2-22737e26a3cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511102, 12696, 368, 9, 33, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[511473, 12707, 192, 3, 38, "Output",ExpressionUUID->"4bc04271-3d15-4e8c-9e6b-f9fd1eddcce1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511702, 12715, 2663, 88, 95, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[514368, 12805, 197, 3, 38, "Output",ExpressionUUID->"d315aca0-be57-4b4f-9915-8f3fd773a9b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514602, 12813, 2603, 85, 95, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[517208, 12900, 193, 3, 38, "Output",ExpressionUUID->"9d8ee359-7b36-47db-9a60-d0fcb3e5fa9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517438, 12908, 3712, 118, 142, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[521153, 13028, 196, 3, 38, "Output",ExpressionUUID->"885a598b-0787-4be9-9681-34b663c0bcb0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[521386, 13036, 2077, 59, 83, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[523466, 13097, 602, 13, 34, "Message",ExpressionUUID->"0e166fd8-fdfa-42ea-aaff-4b8a51556756"], +Cell[524071, 13112, 603, 13, 34, "Message",ExpressionUUID->"1ac17a09-c2e8-4ed8-9eb2-77f9d82791ff"], +Cell[524677, 13127, 607, 13, 34, "Message",ExpressionUUID->"897c1490-3ca0-43ba-97f8-2191012b1bfa"], +Cell[525287, 13142, 494, 11, 20, "Message",ExpressionUUID->"e5fd9e11-12e7-42a9-8b96-aeaf86a75e7c"], +Cell[525784, 13155, 192, 3, 38, "Output",ExpressionUUID->"12056439-fe3e-41c7-ab4e-ecb24bd10c01"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526013, 13163, 2074, 59, 83, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[528090, 13224, 598, 13, 34, "Message",ExpressionUUID->"3a871784-3a01-4689-b345-2b1254bcee66"], +Cell[528691, 13239, 601, 13, 34, "Message",ExpressionUUID->"8cf7d6f7-dda1-488f-a681-e10231387598"], +Cell[529295, 13254, 607, 13, 34, "Message",ExpressionUUID->"eed56352-710b-40e8-b869-8d4c90957aa1"], +Cell[529905, 13269, 493, 11, 20, "Message",ExpressionUUID->"ea8f6b58-fd5a-4c7f-92ce-a4994f63598d"], +Cell[530401, 13282, 194, 3, 38, "Output",ExpressionUUID->"e736350e-0d04-433e-b0da-4312493f971d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[530632, 13290, 2053, 55, 45, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[532688, 13347, 20459, 384, 200, "Output",ExpressionUUID->"2f05eba9-19e8-4dd3-953b-3f41773c53ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553184, 13736, 2143, 60, 83, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[555330, 13798, 538, 12, 34, "Message",ExpressionUUID->"e88330f7-6a4d-4b8a-8ecd-25061895359a"], +Cell[555871, 13812, 543, 12, 34, "Message",ExpressionUUID->"baf7453a-836e-4b1e-a391-6b37df72fc11"], +Cell[556417, 13826, 543, 12, 34, "Message",ExpressionUUID->"5b6e49dc-d682-4e03-98aa-536569be85af"], +Cell[556963, 13840, 493, 11, 20, "Message",ExpressionUUID->"f6173936-13bd-4adc-b2eb-007a6646f35e"], +Cell[557459, 13853, 21860, 405, 197, "Output",ExpressionUUID->"ef5df887-51ea-4a4b-b0ce-bd2484cf3677"] +}, Open ]], +Cell[CellGroupData[{ +Cell[579356, 14263, 232, 5, 23, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[579591, 14270, 28220, 537, 197, "Output",ExpressionUUID->"3bca3017-1b8d-49b1-b989-fa9add5d13cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[607848, 14812, 1616, 48, 60, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[609467, 14862, 624, 13, 34, "Message",ExpressionUUID->"9db42c85-d60a-4067-b6be-3b83cf6d6967"], +Cell[610094, 14877, 627, 13, 34, "Message",ExpressionUUID->"87943419-9fcc-4e29-89a1-c0693108f99b"], +Cell[610724, 14892, 630, 13, 34, "Message",ExpressionUUID->"d9e0da2f-e13b-4271-bce7-3f50bac61baf"], +Cell[611357, 14907, 495, 11, 20, "Message",ExpressionUUID->"236bdc43-a0c3-42a8-8d92-1c63357021f5"], +Cell[611855, 14920, 197, 3, 38, "Output",ExpressionUUID->"bde36af4-6809-4b41-8597-aeca2f08c977"] +}, Open ]], +Cell[CellGroupData[{ +Cell[612089, 14928, 2272, 64, 54, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[614364, 14994, 600, 13, 34, "Message",ExpressionUUID->"d62e7a13-83c7-4d0c-b356-61f4382a3c1e"], +Cell[614967, 15009, 602, 13, 34, "Message",ExpressionUUID->"5d37ff0a-231a-4619-86f1-9041e3f1991b"], +Cell[615572, 15024, 609, 13, 34, "Message",ExpressionUUID->"bdf45c1f-bb12-40d7-a70d-b81061567e27"], +Cell[616184, 15039, 497, 11, 20, "Message",ExpressionUUID->"83a3341c-dd1e-4d48-ac57-b28e9d615928"], +Cell[616684, 15052, 195, 3, 38, "Output",ExpressionUUID->"98d22a37-0602-44a0-90c8-d56d2df5b5c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[616916, 15060, 2233, 63, 54, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[619152, 15125, 599, 13, 34, "Message",ExpressionUUID->"94fe5bdd-2473-4912-967a-7ceac35229af"], +Cell[619754, 15140, 603, 13, 34, "Message",ExpressionUUID->"dfaa725f-1692-4c80-a699-96c5faddedaf"], +Cell[620360, 15155, 606, 13, 34, "Message",ExpressionUUID->"7bf8b151-d80d-4880-a762-6d12d2da2ccd"], +Cell[620969, 15170, 495, 11, 20, "Message",ExpressionUUID->"367707d2-0b26-42c5-ac2f-244203cc7651"], +Cell[621467, 15183, 197, 3, 38, "Output",ExpressionUUID->"91c38b38-1d1d-46b1-9eed-8f4fcf34a0ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[621701, 15191, 2235, 63, 54, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[623939, 15256, 600, 13, 34, "Message",ExpressionUUID->"166c6310-7eaf-4c5a-abfb-6237a6157663"], +Cell[624542, 15271, 603, 13, 34, "Message",ExpressionUUID->"936c7a26-b64d-470c-8f46-a2f718056856"], +Cell[625148, 15286, 607, 13, 34, "Message",ExpressionUUID->"f117f599-ae95-4efd-ab56-82e87f9417e6"], +Cell[625758, 15301, 497, 11, 20, "Message",ExpressionUUID->"2d874001-5056-4b24-8fe2-7cbf07c101f2"], +Cell[626258, 15314, 195, 3, 38, "Output",ExpressionUUID->"d9bd3ee2-39e9-4e64-98ca-2afe5aa82626"] +}, Open ]], +Cell[CellGroupData[{ +Cell[626490, 15322, 238, 6, 39, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[626731, 15330, 198, 3, 38, "Output",ExpressionUUID->"de1a0023-c03a-4434-b9d0-2111687fc332"] +}, Open ]], +Cell[626944, 15336, 221, 5, 40, "Input",ExpressionUUID->"50796e04-fb69-4bb8-8c2c-ce75e583bac0"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw2.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw2.nb index 1226680..da4d7bc 100644 --- a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw2.nb @@ -3,42 +3,4903 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 407368, 9500] -NotebookOptionsPosition[ 383518, 9136] -NotebookOutlinePosition[ 383944, 9153] -CellTagsIndexPosition[ 383901, 9150] +NotebookDataLength[ 667825, 15928] +NotebookOptionsPosition[ 627248, 15279] +NotebookOutlinePosition[ 627681, 15297] +CellTagsIndexPosition[ 627638, 15294] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918501413985214`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ -299085c765cc"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501359768734`*^9, - 3.991850137465685*^9}},ExpressionUUID->"5965eb10-01f8-5545-9b6f-\ -8fab318cd4b7"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "6.05"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9938046575111637`*^9, 3.993804701607058*^9}, + 3.993804733204545*^9, {3.993909737291142*^9, 3.993909742224861*^9}, { + 3.993909952221772*^9, 3.993909984030127*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"5340c587-4281-4f64-8ac4-16edcffc7a6b"], + +Cell[BoxData["6.05`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.993804549577532*^9, 3.993804625944013*^9, { + 3.993804662482604*^9, 3.993804748770383*^9}, 3.9939096014243507`*^9, + 3.9939096691949368`*^9, 3.993909752549667*^9, 3.993909908282672*^9, { + 3.9939099553998528`*^9, 3.993909989690781*^9}, 3.993911025590871*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"2ff77687-126d-4521-80b2-40b16360f5c0"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993909136325391*^9, 3.993909137492978*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"d0e846b6-f624-4175-b323-d6355d021d29"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ -092c5143dcf0"], + 3.9913196497381973`*^9, 3.9938045496655397`*^9, 3.9938046259897127`*^9, { + 3.9938046625249434`*^9, 3.9938047488188868`*^9}, 3.993909601730575*^9, + 3.993909669289562*^9, 3.99390975259161*^9, 3.993909908569488*^9, { + 3.993909955491517*^9, 3.9939099897296047`*^9}, 3.993911025888445*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"f316f4c4-3808-4355-9650-eedc1ad43cad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "156"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.99380431527282*^9, 3.993804315993903*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"08c25d21-fb3b-4b50-ab9f-45ef4a0fb52e"], + +Cell[BoxData["156"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993804317319977*^9, 3.9938045496866302`*^9, + 3.9938046260086718`*^9, {3.99380466254038*^9, 3.99380474883888*^9}, + 3.9939096017486753`*^9, 3.9939096693086853`*^9, 3.9939097526160994`*^9, + 3.993909908588579*^9, {3.993909955509431*^9, 3.9939099897457*^9}, + 3.9939110258948603`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"5c9fd1de-a322-47ca-bb52-4264d504a153"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"39cc0c08-1617-4166-9ae0-4af40882f8ad"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993804549706154*^9, 3.9938046260288763`*^9, { + 3.993804662560594*^9, 3.993804748856688*^9}, 3.9939096017670803`*^9, + 3.9939096693268347`*^9, 3.993909752633919*^9, 3.993909908607675*^9, { + 3.993909955527431*^9, 3.993909989761148*^9}, 3.9939110259004602`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"7f38a228-cc1d-4643-a1b4-91201e39cdc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"060a7784-7710-4bff-a58c-e56e9bdc1822"], + +Cell[BoxData["0.5455000000000001`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.99380454972574*^9, 3.993804626048635*^9, { + 3.9938046625774603`*^9, 3.993804748860417*^9}, 3.993909601785378*^9, + 3.993909669330983*^9, 3.9939097526503696`*^9, 3.993909908626553*^9, { + 3.9939099555442657`*^9, 3.993909989776597*^9}, 3.993911025906686*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"8c68cfa5-c9bb-4650-b311-fada6f055089"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"a9c7fc5d-6fac-40d9-8508-88018afcc1bc"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.993804549747018*^9, 3.993804626052534*^9, { + 3.9938046625812197`*^9, 3.9938047488891172`*^9}, 3.9939096018028593`*^9, + 3.993909669362465*^9, 3.993909752666353*^9, 3.99390990864529*^9, { + 3.9939099555482264`*^9, 3.993909989792164*^9}, 3.993911025916129*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"3d9c7b67-f7a8-4890-8669-3cc7b5800a83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"130a537a-a89c-4ba1-8509-3ff94bb09943"], + +Cell[BoxData["6.244526630021248`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.993804549770184*^9, 3.993804626085994*^9, { + 3.9938046626047153`*^9, 3.993804748905245*^9}, 3.993909601820876*^9, + 3.9939096693803263`*^9, 3.993909752687901*^9, 3.993909908664627*^9, { + 3.993909955570965*^9, 3.993909989807292*^9}, 3.99391102592437*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"0b8f8115-f662-46ed-b466-cff706dad83b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"59c8805a-1cc3-4b74-a032-2a60d835e26e"], + +Cell[BoxData["5.08024220226995`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9938045497749643`*^9, 3.993804626103525*^9, { + 3.993804662619735*^9, 3.993804748921926*^9}, 3.993909601824861*^9, + 3.99390966939812*^9, 3.993909752692038*^9, 3.993909908682929*^9, { + 3.993909955589458*^9, 3.993909989822392*^9}, 3.993911025932238*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"62cb075f-9772-4640-860d-178966e8f448"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9831"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.9938043369460163`*^9, 3.993804343883932*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"a37b47c0-4433-4ca3-a9b3-3e037b74a968"], + +Cell[BoxData["0.9831`"], "Output", + CellChangeTimes->{ + 3.993804549811586*^9, 3.993804626121752*^9, {3.993804662635777*^9, + 3.9938047489393063`*^9}, 3.993909601854841*^9, 3.993909669421215*^9, + 3.9939097527133102`*^9, 3.99390990870128*^9, {3.993909955606114*^9, + 3.9939099898261213`*^9}, 3.993911025938468*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"62afb091-1196-4890-b9a5-0934ba660e50"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.463"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.9938043632365713`*^9, 3.993804381532929*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"192b8a46-ce9e-467d-b141-21a46d717371"], + +Cell[BoxData["0.463`"], "Output", + CellChangeTimes->{ + 3.993804549830037*^9, 3.993804626139834*^9, {3.993804662651184*^9, + 3.993804748955449*^9}, 3.993909601874164*^9, 3.993909669438889*^9, + 3.99390975272956*^9, 3.9939099087196302`*^9, {3.99390995562206*^9, + 3.993909989846019*^9}, 3.993911025944909*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"0d8d401f-aead-4e10-8b63-4c754ff33d00"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"7287cc68-46a7-4f33-8bd1-9e1836437c9d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9938045498689833`*^9, 3.993804626160439*^9, { + 3.993804662666739*^9, 3.9938047489718924`*^9}, 3.993909601896028*^9, + 3.993909669457499*^9, 3.993909752744871*^9, 3.9939099087374763`*^9, { + 3.993909955638915*^9, 3.993909989862071*^9}, 3.993911025952133*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"5584e9e1-dbf1-4433-ad3e-1e4ba4b567cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"a9d7f555-b670-49c2-baaa-bca7623d7031"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.9938045498874207`*^9, 3.9938046261797523`*^9, { + 3.993804662682715*^9, 3.993804748988103*^9}, 3.993909601914316*^9, + 3.993909669475305*^9, 3.993909752760817*^9, 3.993909908755747*^9, { + 3.993909955656601*^9, 3.993909989865912*^9}, 3.993911025959566*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"d7162ac2-53b5-4cce-8a6c-b442b4a422cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"11309400-bcac-470f-af41-a39c3a7614e0"], + +Cell[BoxData["2.5173601133375656`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9938045499058733`*^9, 3.993804626198407*^9, { + 3.9938046626977053`*^9, 3.993804749004431*^9}, 3.9939096019331207`*^9, + 3.993909669493326*^9, 3.993909752780408*^9, 3.993909908773466*^9, { + 3.993909955671833*^9, 3.993909989883627*^9}, 3.99391102596704*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"8fea9113-32dd-4c09-8982-391eee7fe789"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"3d54cba6-f8f1-4449-8119-70e4d6ce7801"], + +Cell[BoxData["1.5234450434796134`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993804549925211*^9, 3.993804626217005*^9, { + 3.993804662711796*^9, 3.99380474902066*^9}, 3.993909601952641*^9, + 3.9939096695112753`*^9, 3.993909752793829*^9, 3.9939099087914257`*^9, { + 3.993909955686531*^9, 3.993909989897831*^9}, 3.9939110259744253`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"8f92645b-c8b9-4710-8b36-6ee6c8115439"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"f6cb74cb-a087-4212-a782-4f230b89058c"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938045499441977`*^9, 3.993804626236014*^9, { + 3.993804662725235*^9, 3.993804749036929*^9}, 3.993909601972386*^9, + 3.993909669529284*^9, 3.993909752809037*^9, 3.9939099088105917`*^9, { + 3.993909955701372*^9, 3.993909989911367*^9}, 3.993911025980928*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"78b5cdd2-53ca-4e6a-b5e0-c8816f50ad42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"7d00126d-ffae-4c1b-be33-cd07ef70d489"], + +Cell[BoxData[ + RowBox[{"-", "0.056142152983087`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.993804549962688*^9, 3.993804626257918*^9, { + 3.993804662739541*^9, 3.993804749053331*^9}, 3.9939096019922533`*^9, + 3.9939096695470543`*^9, 3.993909752823636*^9, 3.993909908814773*^9, { + 3.993909955715828*^9, 3.993909989925456*^9}, 3.993911025987256*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"9cc60c8b-e4b6-4224-be6c-b8ab7fe1148a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"d9347f9e-d767-4990-98b7-c1f58c909844"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.993804549981371*^9, 3.993804626278822*^9, { + 3.9938046627542543`*^9, 3.993804749069655*^9}, 3.993909602011525*^9, + 3.993909669564651*^9, 3.993909752838642*^9, 3.9939099088478737`*^9, { + 3.993909955730867*^9, 3.993909989940257*^9}, 3.993911025993608*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"e2e69391-b57e-4534-b97d-86d86f800f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"0bea49d8-9dad-44de-926b-6b6e61f2f2ae"], + +Cell[BoxData["0.5841645161809887`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.99380455000006*^9, 3.993804626300075*^9, { + 3.993804662773251*^9, 3.993804749085907*^9}, 3.993909602031176*^9, + 3.9939096695825167`*^9, 3.993909752853649*^9, 3.993909908866128*^9, { + 3.99390995574667*^9, 3.993909989956238*^9}, 3.9939110259998426`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"d0dcb8c2-1317-4942-8551-818bda097161"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"721a9cb2-7d79-4947-845b-5db92e48f0eb"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993804550019484*^9, 3.993804626319972*^9, { + 3.993804662777142*^9, 3.9938047491020308`*^9}, 3.99390960204895*^9, + 3.9939096695998087`*^9, 3.9939097528680077`*^9, 3.9939099088839207`*^9, { + 3.993909955761622*^9, 3.993909989971353*^9}, 3.993911026006178*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"1978b12a-dcd4-4231-bed6-41d6e7fd155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"d7b5a0ec-27a4-44a4-8443-f624c1532842"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9938045500378237`*^9, 3.993804626339315*^9, { + 3.993804662793344*^9, 3.99380474911817*^9}, 3.993909602068466*^9, + 3.9939096696185913`*^9, 3.993909752884066*^9, 3.993909908903553*^9, { + 3.9939099557765713`*^9, 3.993909989986253*^9}, 3.993911026012556*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"e444f26b-8200-4cb4-9680-82fd188b97f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"7138210b-d879-4fbf-9273-3b3a2f3f864f"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.9938045500560837`*^9, 3.9938046263600817`*^9, { + 3.99380466280895*^9, 3.993804749134166*^9}, 3.993909602086402*^9, + 3.9939096696362677`*^9, 3.99390975290001*^9, 3.9939099089231663`*^9, { + 3.9939099557917356`*^9, 3.9939099900012712`*^9}, 3.993911026018854*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"6a9987c4-ad20-4a34-9f5d-b7f7dc0588f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"b7ce4ab0-32f1-4899-a6e1-2210f7465553"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.993804550075344*^9, 3.993804626383381*^9, { + 3.99380466282749*^9, 3.993804749150152*^9}, 3.993909602104745*^9, + 3.9939096696539907`*^9, 3.993909752916039*^9, 3.993909908940823*^9, { + 3.993909955808311*^9, 3.993909990017736*^9}, 3.993911026024897*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"b3fd51e8-9b66-40dc-a857-9d6018470b90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"16c419c7-db80-4aec-b764-93a2c8a0664d"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993804550093996*^9, 3.99380462640412*^9, { + 3.9938046628451138`*^9, 3.993804749168808*^9}, 3.993909602124238*^9, + 3.993909669671417*^9, 3.9939097529322453`*^9, 3.993909908959701*^9, { + 3.99390995582368*^9, 3.9939099900328217`*^9}, 3.993911026031644*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"a479a4fa-9749-4010-9d84-06b245fbcb96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.9938046144530077`*^9, 3.9938046145855627`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"c7054bce-197b-43ab-b438-c3dec534552d"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.993804626423663*^9, {3.993804662861299*^9, + 3.99380474918727*^9}, 3.993909602142963*^9, 3.99390966968908*^9, + 3.993909752947946*^9, 3.993909908977618*^9, {3.993909955827662*^9, + 3.993909990050256*^9}, 3.9939110260374327`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"dd6290e5-a9bd-479a-8a57-a03a852e3825"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.99380461799697*^9, 3.993804618062627*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"04d9f85b-535c-47e3-8d88-94ebde8d963d"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9938045501483994`*^9, 3.993804626442574*^9, { + 3.993804662877561*^9, 3.9938047492047462`*^9}, 3.993909602161409*^9, + 3.993909669707423*^9, 3.993909752964058*^9, 3.9939099089960423`*^9, { + 3.993909955845819*^9, 3.993909990065692*^9}, 3.993911026044561*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"fb4b803d-fdec-4be8-ab37-76e999ba03f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"1254b120-e55a-45ef-9884-b2831508b52e"], + +Cell[BoxData["84"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.993804550167096*^9, 3.993804626459854*^9, { + 3.993804662896564*^9, 3.9938047492214317`*^9}, 3.993909602179817*^9, + 3.993909669724697*^9, 3.993909752980503*^9, 3.9939099090164824`*^9, { + 3.993909955861395*^9, 3.9939099900817633`*^9}, 3.9939110260513973`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"18954e4f-8ebd-40e9-b0c6-f4e7389baae3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"3e0fdee8-7b0b-49db-b8d9-51923383814f"], + +Cell[BoxData["0.11153846153846153`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9938045501856823`*^9, 3.993804626476894*^9, { + 3.993804662912559*^9, 3.993804749238111*^9}, 3.993909602199831*^9, + 3.993909669742579*^9, 3.9939097529958878`*^9, 3.993909909035789*^9, { + 3.993909955876047*^9, 3.9939099900975027`*^9}, 3.993911026059709*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"ba3efe79-0215-4f83-aa02-94625f8226dd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"d87c0776-58cc-4eb2-b035-74f07a5a5065"], + +Cell[BoxData[ + RowBox[{"-", "2.562307692307692`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993804550204549*^9, 3.9938046264931793`*^9, { + 3.993804662930933*^9, 3.993804749256987*^9}, 3.993909602217969*^9, + 3.993909669760494*^9, 3.99390975301192*^9, 3.993909909054161*^9, { + 3.99390995589108*^9, 3.993909990112661*^9}, 3.993911026066537*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"7243a7f6-a15b-461c-ae4b-ec0b170641d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8296cca0-4151-4907-94af-7ec80bd030f4"], + +Cell[BoxData["22.163907548137733`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.993804550224925*^9, 3.993804626512244*^9, { + 3.993804662948985*^9, 3.993804749273611*^9}, 3.993909602237144*^9, + 3.99390966977844*^9, 3.993909753027061*^9, 3.993909909073007*^9, { + 3.9939099559075603`*^9, 3.993909990129081*^9}, 3.9939110260734663`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"b40fec3e-362d-4d7c-a829-2553b5dcfc39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"39168759-e064-4bd3-a5b1-205d78bd0fce"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.993804550242552*^9, 3.993804626529005*^9, { + 3.993804662966734*^9, 3.9938047492900057`*^9}, 3.993909602255596*^9, + 3.993909669800799*^9, 3.993909753041724*^9, 3.993909909091654*^9, { + 3.9939099559230347`*^9, 3.993909990146391*^9}, 3.9939110260797377`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"96022a23-09c0-41cc-b2b1-4121f2f04875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "1.653"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.9938043992805843`*^9, 3.993804401771452*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"69535cf0-f0f6-4bf3-84ca-1743cc4a4c8c"], + +Cell[BoxData["1.653`"], "Output", + CellChangeTimes->{ + 3.993804550280451*^9, 3.993804626545594*^9, {3.993804662983712*^9, + 3.9938047493074627`*^9}, 3.9939096022742043`*^9, 3.99390966981877*^9, + 3.9939097530579777`*^9, 3.993909909111307*^9, {3.993909955941221*^9, + 3.993909990162526*^9}, 3.993911026087088*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"feadcbdc-b88a-4dd3-a6fb-32cebc338291"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501388085117`*^9, - 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ -a3c857e6ae57"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"f48bc72c-4aeb-4787-9181-44df82eae805"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.855"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.9938044044051847`*^9, 3.993804405718573*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"0300626d-d331-48d3-ab83-79f6b6e24679"], + +Cell[BoxData["0.855`"], "Output", + CellChangeTimes->{ + 3.9938045503168097`*^9, 3.993804626574059*^9, {3.993804663013727*^9, + 3.993804749370492*^9}, 3.993909602333745*^9, 3.99390966987148*^9, + 3.9939097530831842`*^9, 3.993909909145574*^9, {3.993909955961776*^9, + 3.993909990180032*^9}, 3.9939110260975447`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"4917dc24-c690-4fbc-bb0d-e05a70c206d6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"6826f0d7-bcba-4732-a484-6f23902cf789"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.405"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9938044089096622`*^9, 3.993804410585486*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"77d50aa9-02a8-4129-8701-b552267d9f30"], + +Cell[BoxData["2.405`"], "Output", + CellChangeTimes->{ + 3.993804550350713*^9, 3.993804626598034*^9, {3.993804663037463*^9, + 3.993804749435276*^9}, 3.9939096023888474`*^9, 3.993909669925479*^9, + 3.9939097531059*^9, 3.993909909180294*^9, {3.9939099559820957`*^9, + 3.993909990196824*^9}, 3.993911026107259*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"2b502167-8bb4-423e-8d65-ae2ee1b6d043"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"26176309-4237-4dc0-80b7-b19713fab449"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.225"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.993804414830567*^9, 3.993804416147113*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"a1d095fc-a7ab-4b42-9466-8a83793015b2"], + +Cell[BoxData["1.225`"], "Output", + CellChangeTimes->{ + 3.993804550383745*^9, 3.993804626621963*^9, {3.993804663060033*^9, + 3.9938047494929237`*^9}, 3.9939096024465313`*^9, 3.993909669980788*^9, + 3.993909753130068*^9, 3.993909909216509*^9, {3.993909956000244*^9, + 3.993909990213717*^9}, 3.993911026117702*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"c19da86d-d6fe-4e93-aa04-cd748dc8b329"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"7b906e7f-cb0d-4509-9cf1-4550d1690bec"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.63"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993804418872067*^9, + 3.9938044202542753`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"a5c601e1-485e-4015-ad55-6d795586d5f3"], + +Cell[BoxData["1.63`"], "Output", + CellChangeTimes->{ + 3.993804550416999*^9, 3.993804626645709*^9, {3.9938046630845337`*^9, + 3.993804749547261*^9}, 3.993909602527773*^9, 3.993909670035091*^9, + 3.993909753153574*^9, 3.993909909250422*^9, {3.993909956017232*^9, + 3.993909990230207*^9}, 3.9939110261278677`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"793943a0-0373-4888-bb56-ff875a0c3776"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"cd52a4da-835d-459e-9425-d8083f200665"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.5571"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993804423858293*^9, + 3.993804426562767*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"e009ccc2-a0cc-4eb5-a091-f5ec24a4c522"], + +Cell[BoxData["0.5571`"], "Output", + CellChangeTimes->{ + 3.993804550449337*^9, 3.993804626671207*^9, {3.993804663115242*^9, + 3.993804749603999*^9}, 3.993909602589055*^9, 3.9939096700891027`*^9, + 3.993909753176607*^9, 3.993909909285474*^9, {3.9939099560344143`*^9, + 3.9939099902470818`*^9}, 3.993911026137753*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"f0307285-9395-47ec-a8cf-1cd3c87798b1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"d0da4006-9c85-453f-8b23-0f527d36b9a7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938044301504927`*^9, + 3.993804433535384*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"6ac172fd-98be-495c-985a-3f69083eb984"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804550483719*^9, 3.993804626698537*^9, {3.993804663139299*^9, + 3.993804749658854*^9}, 3.993909602653262*^9, 3.993909670143072*^9, + 3.993909753199719*^9, 3.993909909346984*^9, {3.993909956051777*^9, + 3.9939099902633963`*^9}, 3.993911026147756*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"cab174a2-a947-452f-9066-2a33a6bd277a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"cbd47d23-3d3b-40f7-87df-6ea6067ee442"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "1.82"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993804436228294*^9, 3.993804438250544*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"50e44c9c-f0e8-46fa-88c9-46db7a60db27"], + +Cell[BoxData["1.82`"], "Output", + CellChangeTimes->{ + 3.993804550516501*^9, 3.993804626722493*^9, {3.9938046631629744`*^9, + 3.993804749712779*^9}, 3.9939096027072487`*^9, 3.993909670196845*^9, + 3.9939097532228928`*^9, 3.993909909381329*^9, {3.993909956068966*^9, + 3.993909990279929*^9}, 3.993911026159191*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"9b2efd9e-d5b0-443e-8ee2-ecda317930d8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"3f8d9290-7219-491b-9983-c0ea5d20b6c1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"9111ddf9-f2a6-49e5-8c60-614d7057495a"], + +Cell[BoxData[ + RowBox[{"-", "0.04675250913077061`"}]], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993804550599751*^9, 3.993804626769621*^9, { + 3.99380466321212*^9, 3.993804749779405*^9}, 3.993909602821623*^9, + 3.9939096702786417`*^9, 3.993909753275091*^9, 3.993909909468431*^9, { + 3.9939099561101503`*^9, 3.993909990324842*^9}, 3.993911026234973*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"4ff8ba89-cf79-4188-a523-efcca094f28d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"644cfb19-2ac9-4724-86c5-9aa2ea38c02b"], + +Cell[BoxData["0.08542989528290149`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.9938045506724253`*^9, 3.993804626799774*^9, { + 3.993804663242297*^9, 3.993804749831417*^9}, 3.993909602850985*^9, + 3.993909670308428*^9, 3.99390975330634*^9, 3.993909909504902*^9, { + 3.993909956139316*^9, 3.993909990356688*^9}, 3.993911026268642*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"c872a6ca-b1d2-48fb-a63c-2599b3edd949"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"d18234de-a68e-4590-8566-b12ca9abced7"], + +Cell[BoxData[ + RowBox[{"-", "92.97992176536582`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.9938045506993027`*^9, 3.993804626828765*^9, { + 3.99380466327107*^9, 3.99380474985798*^9}, 3.993909602878909*^9, + 3.9939096703348618`*^9, 3.993909753333283*^9, 3.993909909537113*^9, { + 3.993909956164773*^9, 3.993909990381176*^9}, 3.9939110263003397`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"dacd1ee0-7e49-4ba3-8e78-d7c8493d27fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"145c01be-cc1a-43b6-be16-bced994a4bad"], + +Cell[BoxData[ + RowBox[{"-", "58.84836946427625`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993804550730234*^9, 3.993804626860573*^9, { + 3.99380466335039*^9, 3.993804749888824*^9}, 3.9939096029089117`*^9, + 3.9939096703655453`*^9, 3.993909753364204*^9, 3.9939099095691557`*^9, { + 3.9939099561943274`*^9, 3.9939099904093027`*^9}, 3.9939110263336477`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"e1af7bb9-4fac-4833-a665-bd876bf16cc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"e0affe0f-5046-4218-83b8-9755a2510908"], + +Cell[BoxData[ + RowBox[{"-", "175.78557664639112`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.993804550761911*^9, 3.993804626893774*^9, { + 3.993804663389638*^9, 3.993804749919907*^9}, 3.9939096029398603`*^9, + 3.993909670396442*^9, 3.993909753395891*^9, 3.9939099096076517`*^9, { + 3.9939099562247763`*^9, 3.9939099904381638`*^9}, 3.9939110263657703`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"1611397b-532a-42c7-94c5-0f354014ef75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"a706720d-ff09-4d2c-87be-8b25d85bd2a0"], + +Cell[BoxData[ + RowBox[{"-", "221.57551938396955`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.993804550797638*^9, 3.993804626930235*^9, { + 3.993804663472403*^9, 3.993804749955412*^9}, 3.993909602975071*^9, + 3.9939096704323187`*^9, 3.993909753433277*^9, 3.99390990964828*^9, { + 3.9939099562605953`*^9, 3.993909990472554*^9}, 3.993911026404107*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"dc8422cc-d5e9-4e9a-b593-3ae2a348f82b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"96aa1cf6-83c6-4b55-9959-d83a24ba74cc"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9938045508194923`*^9, 3.993804626946419*^9, { + 3.993804663488306*^9, 3.993804749974567*^9}, 3.9939096029931*^9, + 3.993909670451165*^9, 3.9939097534481*^9, 3.993909909666844*^9, { + 3.993909956278285*^9, 3.9939099904879293`*^9}, 3.993911026413846*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"2c4e478d-d257-4fc0-b91a-ef13142d306c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"2c4d9d2b-aed8-48d9-a787-eff93a54c3ca"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.993804550838839*^9, 3.99380462696198*^9, { + 3.993804663542288*^9, 3.993804749990815*^9}, 3.9939096030110683`*^9, + 3.993909670469376*^9, 3.993909753462414*^9, 3.9939099096844893`*^9, { + 3.993909956293055*^9, 3.993909990503254*^9}, 3.993911026422203*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"e0b3db66-f06b-4ee8-a5a4-ec30fcbc66d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"df85a411-6f10-4042-9ca8-4ca1eddad444"], + +Cell[BoxData["111.7060296377673`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.9938045508585377`*^9, 3.993804626991984*^9, { + 3.993804663557494*^9, 3.9938047500074787`*^9}, 3.99390960303067*^9, + 3.993909670487976*^9, 3.993909753477995*^9, 3.9939099097033167`*^9, { + 3.993909956309827*^9, 3.993909990518099*^9}, 3.993911026429702*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"b5d5d469-1c62-4a57-9b6b-0c60143d0d79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"0a73e903-1d5d-4e3d-93cc-297f73877f60"], + +Cell[BoxData[ + RowBox[{"-", "116.92037152462031`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993804550878648*^9, 3.993804627006651*^9, { + 3.99380466357337*^9, 3.993804750023952*^9}, 3.993909603048832*^9, + 3.993909670506846*^9, 3.99390975349363*^9, 3.993909909722876*^9, { + 3.9939099563244467`*^9, 3.993909990532846*^9}, 3.99391102643721*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"03bf60ea-c17a-44b7-91c9-a96c062d846f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"48895cbc-551f-4668-a114-4559d44de445"], + +Cell[BoxData["187.12903971509587`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9938045509027987`*^9, 3.993804627020084*^9, { + 3.993804663589897*^9, 3.993804750040456*^9}, 3.9939096030676117`*^9, + 3.9939096705252743`*^9, 3.993909753508572*^9, 3.993909909741909*^9, { + 3.993909956339319*^9, 3.9939099905477867`*^9}, 3.9939110264448433`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"86893a08-494d-49b6-936e-4ebf64bfa200"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"73cb464b-2ca0-4ca0-875b-09b11d3e412a"], + +Cell[BoxData["0.2814027825454283`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.9938045509220467`*^9, 3.993804627033495*^9, { + 3.993804663606344*^9, 3.9938047500576067`*^9}, 3.993909603085306*^9, + 3.993909670543174*^9, 3.993909753523663*^9, 3.9939099097598248`*^9, { + 3.993909956353833*^9, 3.993909990562546*^9}, 3.99391102645389*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"14c7f59d-350d-4ff2-8b6e-e79f6d2c4381"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"d5f885d9-7a84-40c6-8191-3198b8fa1a35"], + +Cell[BoxData[ + RowBox[{"-", "0.056142152983087`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993804550940889*^9, 3.993804627047104*^9, { + 3.99380466362283*^9, 3.993804750074596*^9}, 3.993909603103224*^9, + 3.993909670561534*^9, 3.993909753539481*^9, 3.993909909777351*^9, { + 3.9939099563684807`*^9, 3.993909990577075*^9}, 3.9939110264630623`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"a7e9c4b9-b7bb-4ca4-b089-e562a25ffefd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"5064c015-765e-47a7-9341-bf218f3be58a"], + +Cell[BoxData[ + RowBox[{"-", "0.3374911667667172`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.99380455096201*^9, 3.993804627060543*^9, { + 3.9938046636401176`*^9, 3.9938047500897923`*^9}, 3.993909603121352*^9, + 3.993909670579809*^9, 3.993909753557192*^9, 3.9939099097958403`*^9, { + 3.99390995638293*^9, 3.9939099905920963`*^9}, 3.9939110264700336`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"6a5edb87-6796-4994-90d8-5c61dd87722b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"7a4306c0-6e79-4ffd-aa2b-196d9d9aea0b"], + +Cell[BoxData["0.5841645161809887`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.993804550980524*^9, 3.9938046270751667`*^9, { + 3.993804663656624*^9, 3.993804750107565*^9}, 3.993909603139456*^9, + 3.993909670598647*^9, 3.9939097536021843`*^9, 3.993909909812099*^9, { + 3.993909956397331*^9, 3.9939099906069927`*^9}, 3.993911026475967*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"1745283d-7291-4687-b179-73118e532961"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"045d038a-0bc4-48dd-b8af-cf47a3cc1abe"], + +Cell[BoxData["2.5173601133375656`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993804550999857*^9, 3.993804627093104*^9, { + 3.993804663673789*^9, 3.993804750123993*^9}, 3.993909603159047*^9, + 3.9939096706237583`*^9, 3.993909753618161*^9, 3.993909909815946*^9, { + 3.993909956411661*^9, 3.993909990622797*^9}, 3.9939110264818974`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"248ba986-aaad-45d1-a498-0ba51f0dddc9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"567dfeaa-6c6d-4c8e-922d-e88f873917d2"], + +Cell[BoxData["1.5234450434796134`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993804551018916*^9, 3.993804627108033*^9, { + 3.993804663692298*^9, 3.993804750140585*^9}, 3.99390960317778*^9, + 3.993909670643187*^9, 3.9939097536363897`*^9, 3.993909909844212*^9, { + 3.993909956428871*^9, 3.993909990639729*^9}, 3.993911026487887*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"eee27ffd-1b64-4da9-8057-94ea600424af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"6a0ba710-6fc5-49fa-89ea-1aea56b36a3b"], + +Cell[BoxData[ + RowBox[{"-", "18.177896388526342`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993804551037992*^9, 3.993804627123701*^9, { + 3.993804663711438*^9, 3.993804750156764*^9}, 3.993909603196027*^9, + 3.993909670663684*^9, 3.99390975365348*^9, 3.993909909862356*^9, { + 3.993909956443829*^9, 3.993909990654669*^9}, 3.9939110264942513`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"53851cdf-cc95-4a81-9fac-1b691aa96f65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"94fafa2f-cb34-4110-9bcb-cad2e89ba091"], + +Cell[BoxData[ + RowBox[{"-", "4.422931821128753`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.99380455105733*^9, 3.993804627139119*^9, { + 3.993804663729148*^9, 3.993804750173326*^9}, 3.993909603216249*^9, + 3.993909670683181*^9, 3.993909753671298*^9, 3.993909909877062*^9, { + 3.993909956460279*^9, 3.993909990669105*^9}, 3.9939110265004187`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"bf1a0f1f-ecc7-42db-acca-9f31d559799f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"768f017f-12f6-4d51-9fa0-7726c4bcaa15"], + +Cell[BoxData["93.52813324924097`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.9938045510774317`*^9, 3.993804627154879*^9, { + 3.993804663746785*^9, 3.993804750189831*^9}, 3.993909603237997*^9, + 3.99390967070298*^9, 3.993909753690928*^9, 3.993909909892799*^9, { + 3.9939099564827127`*^9, 3.993909990683666*^9}, 3.993911026506887*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"0876a694-86ec-4c4e-962b-51412f329ea1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"f37944e3-e08e-42c3-93bb-55ba2aa65976"], + +Cell[BoxData[ + RowBox[{"-", "116.92037152462031`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993804551098919*^9, 3.99380462716993*^9, { + 3.99380466376478*^9, 3.993804750205999*^9}, 3.9939096032579308`*^9, + 3.99390967072291*^9, 3.993909753708663*^9, 3.993909909912747*^9, { + 3.9939099564995337`*^9, 3.993909990698875*^9}, 3.993911026514776*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"b7916e35-f77b-4846-a227-56723c75d258"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"fa1baf32-7832-4a1f-b77f-62d7239b3c3c"], + +Cell[BoxData["182.70610789396713`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993804551121139*^9, 3.993804627185237*^9, { + 3.9938046637699213`*^9, 3.993804750221984*^9}, 3.993909603279203*^9, + 3.993909670743991*^9, 3.993909753728705*^9, 3.993909909930686*^9, { + 3.993909956518093*^9, 3.9939099907215357`*^9}, 3.9939110265220127`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"8f995499-97da-474e-8d87-84d5591275b5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"d095eabe-1a14-42af-ac8c-650159f60880"], + +Cell[BoxData["150.0362849602646`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.9938045511434107`*^9, 3.993804627199387*^9, { + 3.9938046637889233`*^9, 3.993804750238797*^9}, 3.993909603297597*^9, + 3.993909670763399*^9, 3.993909753746546*^9, 3.993909909946938*^9, { + 3.99390995653423*^9, 3.993909990735869*^9}, 3.99391102652905*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"13722f58-d3d8-4fca-b758-a5cf2126b35a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"5931f665-0212-404b-a9fd-a1836443f4c7"], + +Cell[BoxData["845.8339546196385`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.993804551165799*^9, 3.993804627215629*^9, { + 3.9938046638111277`*^9, 3.993804750255252*^9}, 3.993909603318231*^9, + 3.993909670782775*^9, 3.993909753763286*^9, 3.993909909962928*^9, { + 3.9939099565492992`*^9, 3.993909990750906*^9}, 3.993911026536921*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"8742e682-ce45-4a66-aaa2-ee9c276ce0a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.47396"}]], "Input", + CellChangeTimes->{ + 3.9918501413985214`*^9, {3.9939108759868097`*^9, 3.993910881770998*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], + +Cell[BoxData["0.47396`"], "Output", + CellChangeTimes->{3.993911026543569*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"e3e4a6c4-a3b3-427c-9a50-d68e8a1f7c20"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501359768734`*^9, 3.991850137465685*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.24466"}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9, {3.993910885436049*^9, 3.993910907617139*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], + +Cell[BoxData["0.24466`"], "Output", + CellChangeTimes->{3.9939110265571623`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"8fcd0982-58af-41c6-9a1c-179b00570a3d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, 3.991850138811516*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ @@ -84,13 +4945,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[399]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], + CellLabel->"In[75]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913437871842365`*^9}, - CellLabel-> - "Out[399]=",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[BoxData["3.0421649672677`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.9939110265692263`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"e1888170-e28e-4003-b74c-8d497f9d1c16"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4983,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ -301cf9f22a61"], + CellChangeTimes->{3.991557655438551*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.9913437872132397`*^9}, - CellLabel-> - "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[BoxData["1.0552510023146262`*^-54"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.9939110265770597`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"78ee89a4-569b-4189-a96c-b57d8156a57f"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +5021,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915576595317745`*^9, - 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ -fda42549e334"], + CellChangeTimes->{{3.9915576595317745`*^9, 3.9915576617156334`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.9913437872412376`*^9}, - CellLabel-> - "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[BoxData["1.1823542679164208`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.99391102658421*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"7c141914-b00d-4538-b329-763a7da61522"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +5049,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + CellLabel->"In[78]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913437872672386`*^9}, - CellLabel-> - "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[BoxData["16.516942672454782`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.993911026593739*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"a9468761-a43c-4c9c-85e6-9751630c2760"] }, Open ]], Cell[CellGroupData[{ @@ -226,13 +5079,11 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", - CellLabel-> - "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + CellLabel->"In[79]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[BoxData["47.62007062351`"], "Output", - CellChangeTimes->{3.991343787279253*^9}, - CellLabel-> - "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[BoxData["34.86168487825869`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.9939110266013813`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9050ae96-7402-4e5f-bedc-f8add3abbc1a"] }, Open ]], Cell[CellGroupData[{ @@ -241,13 +5092,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + CellLabel->"In[80]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913437873062572`*^9}, - CellLabel-> - "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[BoxData["3.013931102943886`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.9939110266466103`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"e411e238-3a34-412e-8148-74adc1584ba6"] }, Open ]], Cell[CellGroupData[{ @@ -256,13 +5105,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + CellLabel->"In[81]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[BoxData["2.8712430196956706`"], "Output", - CellChangeTimes->{3.9913437873353844`*^9}, - CellLabel-> - "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[BoxData["4.925704690662333`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.993911026654891*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"d5908411-d1f1-4833-be44-5cc9a7b80907"] }, Open ]], Cell[CellGroupData[{ @@ -271,13 +5118,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + CellLabel->"In[82]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[BoxData["136.72879537516795`"], "Output", - CellChangeTimes->{3.991343787361582*^9}, - CellLabel-> - "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[BoxData["171.71836472923098`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.9939110266621637`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"13c529cb-6d29-4e8a-83d9-9b0aec974e9e"] }, Open ]], Cell[CellGroupData[{ @@ -286,13 +5131,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + CellLabel->"In[83]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913437873734856`*^9}, - CellLabel-> - "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[BoxData["49.78092724605258`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.993911026669231*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"3a303b3f-8765-46a5-be66-86e7dc0e589b"] }, Open ]], Cell[CellGroupData[{ @@ -481,13 +5324,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + CellLabel->"In[84]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[BoxData["0.03116264120310575`"], "Output", - CellChangeTimes->{3.9913437874002857`*^9}, - CellLabel-> - "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[BoxData["0.0055133366277036345`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.993911026676877*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"7bafc6ea-457b-4c21-85ab-1539fb266eef"] }, Open ]], Cell[CellGroupData[{ @@ -500,13 +5341,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + CellLabel->"In[85]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[BoxData["5.020278507983894`"], "Output", - CellChangeTimes->{3.9913437875033875`*^9}, - CellLabel-> - "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[BoxData["11.935419437135247`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.9939110268130608`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"818510c7-70d2-4476-8ab6-6e092ef30694"] }, Open ]], Cell[CellGroupData[{ @@ -697,13 +5536,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + CellLabel->"In[86]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[BoxData["0.011613560908040731`"], "Output", - CellChangeTimes->{3.9913437875342865`*^9}, - CellLabel-> - "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[BoxData["0.019067186452883994`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.993911026822516*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"00dabf05-a61f-4385-a1ba-cb9cc0184da4"] }, Open ]], Cell[CellGroupData[{ @@ -716,13 +5553,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + CellLabel->"In[87]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[BoxData["8.223604958038852`"], "Output", - CellChangeTimes->{3.9913437876352882`*^9}, - CellLabel-> - "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[BoxData["6.418028391611255`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.9939110268702173`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"026f6c10-de57-4902-ba20-9da41c4f2df8"] }, Open ]], Cell[CellGroupData[{ @@ -814,13 +5649,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + CellLabel->"In[88]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991343787650694*^9}, - CellLabel-> - "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[BoxData["0.1245822467542299`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.993911026877453*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"421371bc-b610-4de8-8cd4-4cda93366277"] }, Open ]], Cell[CellGroupData[{ @@ -909,13 +5742,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + CellLabel->"In[89]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913437876776943`*^9}, - CellLabel-> - "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[BoxData["0.8754177532457702`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.993911026883663*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"8635dd4c-9a2c-4de9-873a-e72bfa6d877a"] }, Open ]], Cell[CellGroupData[{ @@ -1037,19 +5868,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + CellLabel->"In[90]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913437877049465`*^9}, - CellLabel-> - "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +Cell[BoxData["0.10906151054789807`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.993911026891502*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"b4d6351a-1815-4d82-b166-22e6e6a2f795"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ -ad40-9440-412e77bed40d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ @@ -1110,68 +5939,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ -1f4f66f53217"], + CellChangeTimes->{3.9918501532204666`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 433, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437877189426`*^9}, - CellLabel-> - "During evaluation of \ -In[415]:=",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.5112134123227008`*^-210\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 434, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343787730139*^9}, +normalized machine number; precision may be lost.\"", 2, 92, 1, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.993911026910644*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +In[92]:=",ExpressionUUID->"296c0829-dbd3-4704-93b8-8265a14487d0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.9942299602432769`*^-215\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 435, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437877381363`*^9}, +normalized machine number; precision may be lost.\"", 2, 92, 2, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.993911026914609*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +In[92]:=",ExpressionUUID->"4213c482-804d-47eb-a01f-f662c6240e41"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6316290617216097`*^-220\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.993911026918077*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"a5fb6b58-c5c6-4772-b54f-32a14986f05a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343787747137*^9}, +during this calculation.\"", 2, 92, 4, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.9939110269218197`*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +In[92]:=",ExpressionUUID->"0487bdeb-6054-4bb2-b631-2f97464bff3b"], -Cell[BoxData["5.020278507983898`"], "Output", - CellChangeTimes->{3.991343791131052*^9}, - CellLabel-> - "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[BoxData["11.935419437135241`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.99391102846467*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"9c6cb9a4-43eb-44fa-9cbe-2371e1023a3d"] }, Open ]], Cell[CellGroupData[{ @@ -1233,68 +6064,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ -b62dad3009d2"], + CellChangeTimes->{3.9918501579408264`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 437, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911686516`*^9}, - CellLabel-> - "During evaluation of \ -In[416]:=",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.5112134123227008`*^-210\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 438, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134379117865*^9}, +normalized machine number; precision may be lost.\"", 2, 93, 5, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.993911028532855*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +In[93]:=",ExpressionUUID->"000bf45f-2856-4d01-b6b2-aa7c1c29711a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.9942299602432769`*^-215\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 439, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911866493`*^9}, +normalized machine number; precision may be lost.\"", 2, 93, 6, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9939110285371103`*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +In[93]:=",ExpressionUUID->"76a89296-9be8-449b-ba2f-f530cc351cf4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6316290617216097`*^-220\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.993911028541278*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"016a40ba-d463-488a-8313-66bc1e671eed"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911946507`*^9}, +during this calculation.\"", 2, 93, 8, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.993911028545239*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +In[93]:=",ExpressionUUID->"121a7e3e-35a8-48f2-ad97-66c07aa8c206"], -Cell[BoxData["8.223604958038848`"], "Output", - CellChangeTimes->{3.991343794599764*^9}, - CellLabel-> - "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[BoxData["6.4180283916112515`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.9939110300447493`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"9cb3e202-b1d4-409f-bdad-bf5af816582b"] }, Open ]], Cell[CellGroupData[{ @@ -1350,94 +6183,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918501631488323`*^9},ExpressionUUID->"46451e4d-f5ef-b246-91c6-\ -4265c9fafb97"], + CellChangeTimes->{3.9918501631488323`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0VW0XAHBDJEMZMkfmIoRrLG/PLjSYQ4WQuPcQQkQqURl6K2QqKZJ5 +yDwlyickbyQlSoPh4ibzzL3I9/THWWf91l7PPns/0zrSLj5WFBYmJqZR/Px9 +X+hQ3fW8s+OApLiUSEYyFR2YytJyMSxEXDcuWfz1QJp2opzhS+Q1c3nxry3J +79m5SW8Qs98uzizssqDQJjbDdjQjcD06G/t2i0hDaMFHRIyFheZiv+i88GRN +oxvJbSMN5GOPfXsXfLnuK2pIjy4pxBYbkT29ZPAD+b5NmCzBNpkO1vNv70f7 +nxk9qsCuXxvjCioYRMPXMqueY/fcEL5a7T2EegOK0EvsKXbDsQWNEeTwwVX3 +NTZ7lK8daZmG9Ntb0lqwJflSWy/UjaLDlT0B7djm4ks5UwYTaOP6n/O92MRT +GSEVjilUxiccO4AdKm8R4dk+jcJHfkqNYn8V/qx+sWAW3Zq8FLOCTbb3OJcQ +NYdSVk08mR9R0UwKU3q59zyKZeqs5sTmkFHhndVYRF8HfydLYieSm47wCi6h +H2+uqytiS+Xahe5dXkK7Sv/T0cTWVY6cOl+3ggxp/rEm2O7a/e1jBmtoK9rv +F4q9EBSwiVNhHe1I9A+Nxr5ex6WvyPEHpUu7rj7Gfgi6z9zaN1DjuAeqxSZn +txr6FTBDeC5pZRW7oCVh4IY4C1xk0b/K8xjX+8spOC6KBRq1Wc7vxA5WWqwo +9WaFb6NtKYbYiSXSstMabJAy6KOSiP2tc6L+TyYbsJjfVMjHlpp7br9VkB3u +ZdrH1GMXaprHqyyzw2DI2YIx7OYXV5i96jhgzn1U4GgKFS02dfWPGnCDquds +kXAqFfGbcvNereeG4/KvZ7Ww1T4bAo8eD3hrfHtug+0xXPVUXXUrPHs3/S4B +25elXe0fbl6QturnFnlCRSMyxbMRS3yQlZ/CrJeG54d4t+UDiR9YY+Y9zmCz +PKNJi1zghxs+VScjsaVIO60KxvnhTn5YVTe2vUFseceAAASqxcReeUpFH1z9 +/IXbBMFTM6n+RzoV9eXG3HXmEAKlfW0WXBlUNDFekJlvJAR7OhNc92FzXhzq +2t8gBJEKU/yPsA3DbTSdq4RB+LZo3JlMKqrN0l7MSxOF7muLPKzZVJQ1wgjc +d1EC3uZVSBXmUdHRE7f6/IskID4KvtOwJ5oFDhfRJOCjPiuHTD4VaWYpC0rZ +ScL2GO2aZOxmF6cKtgM74ahAsX9MARXNTQ9cGg2TgkSbV3bRhVQkcN6wssJM +BgQ6ghkDpVREy+J0t/SQgRquoyxKZVRU86NTfDJSBnL6aoL9sR1MHcMUGmRg +tOPRf5vLcX17Aq2SNWThzuz7Jq0K/P2x3JkQYTnoyA34J7eKimzcuFSMB+Wh +Xma360AtFaHAExqn1uVBojlnm3YdFSlFpOmQRRXgh0avUhQ2UybpUMhxBVid +9CjSe0lFRX2nT5W/VoAgw1dDya/w+TxZeEMsYxe0f+UU9WnA9Rma9Yy5KIKS +eE+LVwsVZVonfV8OUQR9u2dWndgxLoMDmx4rAnvsOzPNt3h/Xw8Yl+zCccnV +uHVsvpepTNYGSjDrWWF1/z+8f0hTSnWye2DUnKO2t52KxGXuhd4dVoaAqDSj +6i4qenlnQZHOogId3OXu6p/xfMzbfSakVcD6Y9i2IuwnzXKKh5xU4EDQzdHs +biqScav9tPJFBU5I1rWmfsH9Fo7IE22qMFeafzTnOxVJiEsSUnZqsDXk32Cx +YSpSzr7IvYo04KDdlWtxS1TkQg5bVDHXABstMQfZZXxeZeP7nB00YMnFqKQK +mzWjpLQlSAO+Z5+u+L6Cz9uTMZv4Mg0wKbInqazi+/Shc6qiLAnMr5mK0jbw ++t41VbVl1wT+V4EVJVuGULqfnGVVuxbYcqv/ypQcQuV9DXdFfmjBJtXcr2d3 +DqFGY8e3V8e14KAA5YSU1BAalnlw4BCnNvx7eWTmifQQUujarPLhiDZYPdYp +y5AbQoWk8S2/G7WhtkT9bLPSEKpZKGva8UIHxDISO311hlBnINIJz9aD4PHp +B75WQ0jaqdvc0esfIDX03Z6LHkKUjepiicsAnU8X9zm9H0LC4zWbhV0OAS+P +et8fsWF0kaT/I17JEK5XNm1m9RpGLpNrrQJjRjCocKezqGkYFR3y35z24Qjk +Ok83WiiPoKwFj9eFiccgvILJRyFpBK0cFHnfHGoCHd3WN6wFaegnE+vs4Fkz +YO7d6GNPoSHvHT6xN2QtYGLSwipd9hcqPtfacD/CEsR6VSynXv9CV+ZFl/ec +Ow5j9U0Rkc6jaNH48Mm3Z6wg5ElG702R30jvdNzBkePWAL0r4zW9v9En0VSP +ZpINtNy5k3U+eQyJ5YS9zNt9AnpK3u9YChhHNQNKpuY8J4F4O/920GICSX6e +cQucPAlcBVpxHWqTiHQ/rjBz4BSwa/PEOqhPodRN86rxTbZwfJtJuq3yNKo+ +uPdbxAs7aBckiRrLzaCHOnf41grsoesPW09J1Qz68D07khR1GsQi319QOTSL +qsxS5HyvO0DPokbj8f5ZNHvemsmb7AiPv03EUQPm0OJhRfcpAyd4sXbD5xz3 +PMqb7F3x1z4DT5l392wvn0e26dmujtzOcNPBw+CD2QKqKDc5w3rLGZQP8z6I +XlpAeuKf6LfpzrBji0N3fvwikh1w+/bx3FloSr3KM7Z7CQ1zeVqkDJ2Fg87L +n9jeLqHOGHPXIydcIK5DOtvYZhklBqVxBXS6AMX5wsfrw8voZf0G3fWYKwRH +aXhwuq2gbQ5wi1TrCgEirfNS3StIz3kqL0KTDNsFBMd//kNHOckz/ubaZEgl +n+43QnS0vWvugLAuGR4Je4wUAh1NGS1/ztuP40J+8kEGdHx/MTG3HyLD2X41 +T9ZjdLR1mc+O/zgZ7Pl2109Y09FwtNaWtPNkCKsf4eM4R0cxdcHnanLI8OXA +/iTzWDo6r5GkF5RHhsBqG3+/ODoyzS/boltAhuGqxRP34+mIM4mW/7yIDP3x +OSpfE+kows9yrLqSDM/SXkhaJdNRsKKcZ1UjGfbZc7QKZdCRR1KbV3kfGWzG ++o0Gy+no2Faavt8AGZ6WvXEbqaCj3RFMPBpUMqyNnrk1WklHND+torIRMgw4 +5NSPV9PRWfO0ydIJMpyx1mOn1dKRLZu/dwmDDNFWyg35jXR0xF/Mt1CIAgWi +3tJeH+moMS3SOF6EApXrnQ0un+j4v2dOLkiMAsGjPQq2XXSkJt/WayBJgUj+ +J0aom45Ev1w1+C5PAfPZiTd/vtLR+L6fQpxaFPjcaBp3aICO7rE8feVmTYGk +pWrX75O4/73cD81OUEBRf9WkYIqOwk8H+ZFOUcA4V3ru0jQdBVVa7tqwp4Cl +lOClbbO4foI57oELBVzbCh32LtAR6Z0L+c0FCqwTd5w1GHT0JU6eSzaWAnni +asUGbAxUjHjcR+Mo8EhUta0PO3xyobkogQKM5TP/BbEzkMax5hDdJAocXq92 +z9/MQDFMrnNmTyiwyzFPdX0LAx32edobVEgB9hDDSu+tDCQh8a/2gWIKbKy4 +flzGXnjnk8BaSoGAGN33odsYKEMBmcVUUODId0/nKF4GWv/5syGzlgIhlcsz +SfwMVGkqntfRSoG9CbcfBwkx0F0GC1viOwr0uUglTGO75I2dtWunwBvqPjeK +MAPxbqoVH/5AASGLy1lmIgzkVWd7j95DgXPp6T68Ygwkq/QgUG6EAh6an1TO +SDAQ48u1rt80Cjx4KNTfhN0ZQVErGaWAKcuaxy5JBgoZ1BzTm6DAaUl9/nHs +bw+7HC3mKeAemfGYLMVA8Zv5jK4wE9DK8TBMSpaBXs79PH2RlQA/U1mrYOxf +Pwv8vNkI6C+RLuvB1q80fOqyhQC1a6s7b8kxEM05aNWYj4B6y6+veuRx/aZG +/EYCBHw9WMy9S4GB9uvwKyJBAqy8ucYDsGN5Ck+SRAlIpU2d2LYLx2v7y8Sl +CVBmDxlU281ARHZhq6AsAW1bi/MDsGNjL/dvkyegmjuZ6QU2jRDg2aRIwHV1 +A/v9ijgucMR9Qo2AgMUrtapKDFT7RyCUpkFACBv/khv2yO+B+wOaBMzdff6/ +NOx9DVeaPusS8IA0uMa5h4GGvYolXwEBSZSyHZ3YW22vaj0/RMBD2bqWdWw9 +g6OmZYYEDDQe/qOojPeLKPVy9lECwr7lCIZg12wqiU0zxnEVp8Vs7KHpq7nJ +pgRUiji6tGPrtgh2R1sScHlybWi7Cl7vMur4LSsCyirDV7Sxo1NKWG7aEMDa +If3oFDbV75haoC0BXNo+4YnYPE5CR3ztCbhD4Xxfiq17bMjRwwHPT15sRtvf +8Tuv3XVyJgDK9RbWsGs4jTNsXQj44mjiK6CK8y0KvbAiE7DxS/7ybmyewaEP +pgQBPGyNW/WxddtLaYfdCRAeE1E3x3Z5fm0dPPD6mcoNOGFHZxhv3++F+3Pt +E/fGrokW3qPlTYAn7eDw1b/5g4YP7vUlIJ7bWO9fbG5yma2iHwGK9+bEErB1 +LEJ8ZC/i8bk6t1P+5t9nEikRSMAePqHwLOwoeZFU4SACXNnvcj3DruYdqeC7 +QkCBQeLOUuzB1bJ3XMEE/GFTa6j4m/9XyCBbCAEHuBwnq7C1P5msbIQSIBYv +lluN/X/6KvtW "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1451,105 +6284,107 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX +1:eJwV1nk0VW0XAHBDJEMZMkfmIoRrLG/PLjSYQ4WQuPcQQkQqURl6K2QqKZJ5 +yDwlyickbyQlSoPh4ibzzL3I9/THWWf91l7PPns/0zrSLj5WFBYmJqZR/Px9 +X+hQ3fW8s+OApLiUSEYyFR2YytJyMSxEXDcuWfz1QJp2opzhS+Q1c3nxry3J +79m5SW8Qs98uzizssqDQJjbDdjQjcD06G/t2i0hDaMFHRIyFheZiv+i88GRN +oxvJbSMN5GOPfXsXfLnuK2pIjy4pxBYbkT29ZPAD+b5NmCzBNpkO1vNv70f7 +nxk9qsCuXxvjCioYRMPXMqueY/fcEL5a7T2EegOK0EvsKXbDsQWNEeTwwVX3 +NTZ7lK8daZmG9Ntb0lqwJflSWy/UjaLDlT0B7djm4ks5UwYTaOP6n/O92MRT +GSEVjilUxiccO4AdKm8R4dk+jcJHfkqNYn8V/qx+sWAW3Zq8FLOCTbb3OJcQ +NYdSVk08mR9R0UwKU3q59zyKZeqs5sTmkFHhndVYRF8HfydLYieSm47wCi6h +H2+uqytiS+Xahe5dXkK7Sv/T0cTWVY6cOl+3ggxp/rEm2O7a/e1jBmtoK9rv +F4q9EBSwiVNhHe1I9A+Nxr5ex6WvyPEHpUu7rj7Gfgi6z9zaN1DjuAeqxSZn +txr6FTBDeC5pZRW7oCVh4IY4C1xk0b/K8xjX+8spOC6KBRq1Wc7vxA5WWqwo +9WaFb6NtKYbYiSXSstMabJAy6KOSiP2tc6L+TyYbsJjfVMjHlpp7br9VkB3u +ZdrH1GMXaprHqyyzw2DI2YIx7OYXV5i96jhgzn1U4GgKFS02dfWPGnCDquds +kXAqFfGbcvNereeG4/KvZ7Ww1T4bAo8eD3hrfHtug+0xXPVUXXUrPHs3/S4B +25elXe0fbl6QturnFnlCRSMyxbMRS3yQlZ/CrJeG54d4t+UDiR9YY+Y9zmCz +PKNJi1zghxs+VScjsaVIO60KxvnhTn5YVTe2vUFseceAAASqxcReeUpFH1z9 +/IXbBMFTM6n+RzoV9eXG3HXmEAKlfW0WXBlUNDFekJlvJAR7OhNc92FzXhzq +2t8gBJEKU/yPsA3DbTSdq4RB+LZo3JlMKqrN0l7MSxOF7muLPKzZVJQ1wgjc +d1EC3uZVSBXmUdHRE7f6/IskID4KvtOwJ5oFDhfRJOCjPiuHTD4VaWYpC0rZ +ScL2GO2aZOxmF6cKtgM74ahAsX9MARXNTQ9cGg2TgkSbV3bRhVQkcN6wssJM +BgQ6ghkDpVREy+J0t/SQgRquoyxKZVRU86NTfDJSBnL6aoL9sR1MHcMUGmRg +tOPRf5vLcX17Aq2SNWThzuz7Jq0K/P2x3JkQYTnoyA34J7eKimzcuFSMB+Wh +Xma360AtFaHAExqn1uVBojlnm3YdFSlFpOmQRRXgh0avUhQ2UybpUMhxBVid +9CjSe0lFRX2nT5W/VoAgw1dDya/w+TxZeEMsYxe0f+UU9WnA9Rma9Yy5KIKS +eE+LVwsVZVonfV8OUQR9u2dWndgxLoMDmx4rAnvsOzPNt3h/Xw8Yl+zCccnV +uHVsvpepTNYGSjDrWWF1/z+8f0hTSnWye2DUnKO2t52KxGXuhd4dVoaAqDSj +6i4qenlnQZHOogId3OXu6p/xfMzbfSakVcD6Y9i2IuwnzXKKh5xU4EDQzdHs +biqScav9tPJFBU5I1rWmfsH9Fo7IE22qMFeafzTnOxVJiEsSUnZqsDXk32Cx +YSpSzr7IvYo04KDdlWtxS1TkQg5bVDHXABstMQfZZXxeZeP7nB00YMnFqKQK +mzWjpLQlSAO+Z5+u+L6Cz9uTMZv4Mg0wKbInqazi+/Shc6qiLAnMr5mK0jbw ++t41VbVl1wT+V4EVJVuGULqfnGVVuxbYcqv/ypQcQuV9DXdFfmjBJtXcr2d3 +DqFGY8e3V8e14KAA5YSU1BAalnlw4BCnNvx7eWTmifQQUujarPLhiDZYPdYp +y5AbQoWk8S2/G7WhtkT9bLPSEKpZKGva8UIHxDISO311hlBnINIJz9aD4PHp +B75WQ0jaqdvc0esfIDX03Z6LHkKUjepiicsAnU8X9zm9H0LC4zWbhV0OAS+P +et8fsWF0kaT/I17JEK5XNm1m9RpGLpNrrQJjRjCocKezqGkYFR3y35z24Qjk +Ok83WiiPoKwFj9eFiccgvILJRyFpBK0cFHnfHGoCHd3WN6wFaegnE+vs4Fkz +YO7d6GNPoSHvHT6xN2QtYGLSwipd9hcqPtfacD/CEsR6VSynXv9CV+ZFl/ec +Ow5j9U0Rkc6jaNH48Mm3Z6wg5ElG702R30jvdNzBkePWAL0r4zW9v9En0VSP +ZpINtNy5k3U+eQyJ5YS9zNt9AnpK3u9YChhHNQNKpuY8J4F4O/920GICSX6e +cQucPAlcBVpxHWqTiHQ/rjBz4BSwa/PEOqhPodRN86rxTbZwfJtJuq3yNKo+ +uPdbxAs7aBckiRrLzaCHOnf41grsoesPW09J1Qz68D07khR1GsQi319QOTSL +qsxS5HyvO0DPokbj8f5ZNHvemsmb7AiPv03EUQPm0OJhRfcpAyd4sXbD5xz3 +PMqb7F3x1z4DT5l392wvn0e26dmujtzOcNPBw+CD2QKqKDc5w3rLGZQP8z6I +XlpAeuKf6LfpzrBji0N3fvwikh1w+/bx3FloSr3KM7Z7CQ1zeVqkDJ2Fg87L +n9jeLqHOGHPXIydcIK5DOtvYZhklBqVxBXS6AMX5wsfrw8voZf0G3fWYKwRH +aXhwuq2gbQ5wi1TrCgEirfNS3StIz3kqL0KTDNsFBMd//kNHOckz/ubaZEgl +n+43QnS0vWvugLAuGR4Je4wUAh1NGS1/ztuP40J+8kEGdHx/MTG3HyLD2X41 +T9ZjdLR1mc+O/zgZ7Pl2109Y09FwtNaWtPNkCKsf4eM4R0cxdcHnanLI8OXA +/iTzWDo6r5GkF5RHhsBqG3+/ODoyzS/boltAhuGqxRP34+mIM4mW/7yIDP3x +OSpfE+kows9yrLqSDM/SXkhaJdNRsKKcZ1UjGfbZc7QKZdCRR1KbV3kfGWzG ++o0Gy+no2Faavt8AGZ6WvXEbqaCj3RFMPBpUMqyNnrk1WklHND+torIRMgw4 +5NSPV9PRWfO0ydIJMpyx1mOn1dKRLZu/dwmDDNFWyg35jXR0xF/Mt1CIAgWi +3tJeH+moMS3SOF6EApXrnQ0un+j4v2dOLkiMAsGjPQq2XXSkJt/WayBJgUj+ +J0aom45Ev1w1+C5PAfPZiTd/vtLR+L6fQpxaFPjcaBp3aICO7rE8feVmTYGk +pWrX75O4/73cD81OUEBRf9WkYIqOwk8H+ZFOUcA4V3ru0jQdBVVa7tqwp4Cl +lOClbbO4foI57oELBVzbCh32LtAR6Z0L+c0FCqwTd5w1GHT0JU6eSzaWAnni +asUGbAxUjHjcR+Mo8EhUta0PO3xyobkogQKM5TP/BbEzkMax5hDdJAocXq92 +z9/MQDFMrnNmTyiwyzFPdX0LAx32edobVEgB9hDDSu+tDCQh8a/2gWIKbKy4 +flzGXnjnk8BaSoGAGN33odsYKEMBmcVUUODId0/nKF4GWv/5syGzlgIhlcsz +SfwMVGkqntfRSoG9CbcfBwkx0F0GC1viOwr0uUglTGO75I2dtWunwBvqPjeK +MAPxbqoVH/5AASGLy1lmIgzkVWd7j95DgXPp6T68Ygwkq/QgUG6EAh6an1TO +SDAQ48u1rt80Cjx4KNTfhN0ZQVErGaWAKcuaxy5JBgoZ1BzTm6DAaUl9/nHs +bw+7HC3mKeAemfGYLMVA8Zv5jK4wE9DK8TBMSpaBXs79PH2RlQA/U1mrYOxf +Pwv8vNkI6C+RLuvB1q80fOqyhQC1a6s7b8kxEM05aNWYj4B6y6+veuRx/aZG +/EYCBHw9WMy9S4GB9uvwKyJBAqy8ucYDsGN5Ck+SRAlIpU2d2LYLx2v7y8Sl +CVBmDxlU281ARHZhq6AsAW1bi/MDsGNjL/dvkyegmjuZ6QU2jRDg2aRIwHV1 +A/v9ijgucMR9Qo2AgMUrtapKDFT7RyCUpkFACBv/khv2yO+B+wOaBMzdff6/ +NOx9DVeaPusS8IA0uMa5h4GGvYolXwEBSZSyHZ3YW22vaj0/RMBD2bqWdWw9 +g6OmZYYEDDQe/qOojPeLKPVy9lECwr7lCIZg12wqiU0zxnEVp8Vs7KHpq7nJ +pgRUiji6tGPrtgh2R1sScHlybWi7Cl7vMur4LSsCyirDV7Sxo1NKWG7aEMDa +If3oFDbV75haoC0BXNo+4YnYPE5CR3ztCbhD4Xxfiq17bMjRwwHPT15sRtvf +8Tuv3XVyJgDK9RbWsGs4jTNsXQj44mjiK6CK8y0KvbAiE7DxS/7ybmyewaEP +pgQBPGyNW/WxddtLaYfdCRAeE1E3x3Z5fm0dPPD6mcoNOGFHZxhv3++F+3Pt +E/fGrokW3qPlTYAn7eDw1b/5g4YP7vUlIJ7bWO9fbG5yma2iHwGK9+bEErB1 +LEJ8ZC/i8bk6t1P+5t9nEikRSMAePqHwLOwoeZFU4SACXNnvcj3DruYdqeC7 +QkCBQeLOUuzB1bJ3XMEE/GFTa6j4m/9XyCBbCAEHuBwnq7C1P5msbIQSIBYv +lluN/X/6KvtW "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "PlotRange" -> {{0, 180}, {0.5812540503692138, + 1.6364046599857205`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5812540503692152}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1561,131 +6396,133 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.5812540503692138, + 1.6364046599857205`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.5812540503692152}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{115.12306105754324`, - 253.30690491292427`}, {-15.402138689748767`, 5.769736310251233}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX +1:eJwV1nk0VW0XAHBDJEMZMkfmIoRrLG/PLjSYQ4WQuPcQQkQqURl6K2QqKZJ5 +yDwlyickbyQlSoPh4ibzzL3I9/THWWf91l7PPns/0zrSLj5WFBYmJqZR/Px9 +X+hQ3fW8s+OApLiUSEYyFR2YytJyMSxEXDcuWfz1QJp2opzhS+Q1c3nxry3J +79m5SW8Qs98uzizssqDQJjbDdjQjcD06G/t2i0hDaMFHRIyFheZiv+i88GRN +oxvJbSMN5GOPfXsXfLnuK2pIjy4pxBYbkT29ZPAD+b5NmCzBNpkO1vNv70f7 +nxk9qsCuXxvjCioYRMPXMqueY/fcEL5a7T2EegOK0EvsKXbDsQWNEeTwwVX3 +NTZ7lK8daZmG9Ntb0lqwJflSWy/UjaLDlT0B7djm4ks5UwYTaOP6n/O92MRT +GSEVjilUxiccO4AdKm8R4dk+jcJHfkqNYn8V/qx+sWAW3Zq8FLOCTbb3OJcQ +NYdSVk08mR9R0UwKU3q59zyKZeqs5sTmkFHhndVYRF8HfydLYieSm47wCi6h +H2+uqytiS+Xahe5dXkK7Sv/T0cTWVY6cOl+3ggxp/rEm2O7a/e1jBmtoK9rv +F4q9EBSwiVNhHe1I9A+Nxr5ex6WvyPEHpUu7rj7Gfgi6z9zaN1DjuAeqxSZn +txr6FTBDeC5pZRW7oCVh4IY4C1xk0b/K8xjX+8spOC6KBRq1Wc7vxA5WWqwo +9WaFb6NtKYbYiSXSstMabJAy6KOSiP2tc6L+TyYbsJjfVMjHlpp7br9VkB3u +ZdrH1GMXaprHqyyzw2DI2YIx7OYXV5i96jhgzn1U4GgKFS02dfWPGnCDquds +kXAqFfGbcvNereeG4/KvZ7Ww1T4bAo8eD3hrfHtug+0xXPVUXXUrPHs3/S4B +25elXe0fbl6QturnFnlCRSMyxbMRS3yQlZ/CrJeG54d4t+UDiR9YY+Y9zmCz +PKNJi1zghxs+VScjsaVIO60KxvnhTn5YVTe2vUFseceAAASqxcReeUpFH1z9 +/IXbBMFTM6n+RzoV9eXG3HXmEAKlfW0WXBlUNDFekJlvJAR7OhNc92FzXhzq +2t8gBJEKU/yPsA3DbTSdq4RB+LZo3JlMKqrN0l7MSxOF7muLPKzZVJQ1wgjc +d1EC3uZVSBXmUdHRE7f6/IskID4KvtOwJ5oFDhfRJOCjPiuHTD4VaWYpC0rZ +ScL2GO2aZOxmF6cKtgM74ahAsX9MARXNTQ9cGg2TgkSbV3bRhVQkcN6wssJM +BgQ6ghkDpVREy+J0t/SQgRquoyxKZVRU86NTfDJSBnL6aoL9sR1MHcMUGmRg +tOPRf5vLcX17Aq2SNWThzuz7Jq0K/P2x3JkQYTnoyA34J7eKimzcuFSMB+Wh +Xma360AtFaHAExqn1uVBojlnm3YdFSlFpOmQRRXgh0avUhQ2UybpUMhxBVid +9CjSe0lFRX2nT5W/VoAgw1dDya/w+TxZeEMsYxe0f+UU9WnA9Rma9Yy5KIKS +eE+LVwsVZVonfV8OUQR9u2dWndgxLoMDmx4rAnvsOzPNt3h/Xw8Yl+zCccnV +uHVsvpepTNYGSjDrWWF1/z+8f0hTSnWye2DUnKO2t52KxGXuhd4dVoaAqDSj +6i4qenlnQZHOogId3OXu6p/xfMzbfSakVcD6Y9i2IuwnzXKKh5xU4EDQzdHs +biqScav9tPJFBU5I1rWmfsH9Fo7IE22qMFeafzTnOxVJiEsSUnZqsDXk32Cx +YSpSzr7IvYo04KDdlWtxS1TkQg5bVDHXABstMQfZZXxeZeP7nB00YMnFqKQK +mzWjpLQlSAO+Z5+u+L6Cz9uTMZv4Mg0wKbInqazi+/Shc6qiLAnMr5mK0jbw ++t41VbVl1wT+V4EVJVuGULqfnGVVuxbYcqv/ypQcQuV9DXdFfmjBJtXcr2d3 +DqFGY8e3V8e14KAA5YSU1BAalnlw4BCnNvx7eWTmifQQUujarPLhiDZYPdYp +y5AbQoWk8S2/G7WhtkT9bLPSEKpZKGva8UIHxDISO311hlBnINIJz9aD4PHp +B75WQ0jaqdvc0esfIDX03Z6LHkKUjepiicsAnU8X9zm9H0LC4zWbhV0OAS+P +et8fsWF0kaT/I17JEK5XNm1m9RpGLpNrrQJjRjCocKezqGkYFR3y35z24Qjk +Ok83WiiPoKwFj9eFiccgvILJRyFpBK0cFHnfHGoCHd3WN6wFaegnE+vs4Fkz +YO7d6GNPoSHvHT6xN2QtYGLSwipd9hcqPtfacD/CEsR6VSynXv9CV+ZFl/ec +Ow5j9U0Rkc6jaNH48Mm3Z6wg5ElG702R30jvdNzBkePWAL0r4zW9v9En0VSP +ZpINtNy5k3U+eQyJ5YS9zNt9AnpK3u9YChhHNQNKpuY8J4F4O/920GICSX6e +cQucPAlcBVpxHWqTiHQ/rjBz4BSwa/PEOqhPodRN86rxTbZwfJtJuq3yNKo+ +uPdbxAs7aBckiRrLzaCHOnf41grsoesPW09J1Qz68D07khR1GsQi319QOTSL +qsxS5HyvO0DPokbj8f5ZNHvemsmb7AiPv03EUQPm0OJhRfcpAyd4sXbD5xz3 +PMqb7F3x1z4DT5l392wvn0e26dmujtzOcNPBw+CD2QKqKDc5w3rLGZQP8z6I +XlpAeuKf6LfpzrBji0N3fvwikh1w+/bx3FloSr3KM7Z7CQ1zeVqkDJ2Fg87L +n9jeLqHOGHPXIydcIK5DOtvYZhklBqVxBXS6AMX5wsfrw8voZf0G3fWYKwRH +aXhwuq2gbQ5wi1TrCgEirfNS3StIz3kqL0KTDNsFBMd//kNHOckz/ubaZEgl +n+43QnS0vWvugLAuGR4Je4wUAh1NGS1/ztuP40J+8kEGdHx/MTG3HyLD2X41 +T9ZjdLR1mc+O/zgZ7Pl2109Y09FwtNaWtPNkCKsf4eM4R0cxdcHnanLI8OXA +/iTzWDo6r5GkF5RHhsBqG3+/ODoyzS/boltAhuGqxRP34+mIM4mW/7yIDP3x +OSpfE+kows9yrLqSDM/SXkhaJdNRsKKcZ1UjGfbZc7QKZdCRR1KbV3kfGWzG ++o0Gy+no2Faavt8AGZ6WvXEbqaCj3RFMPBpUMqyNnrk1WklHND+torIRMgw4 +5NSPV9PRWfO0ydIJMpyx1mOn1dKRLZu/dwmDDNFWyg35jXR0xF/Mt1CIAgWi +3tJeH+moMS3SOF6EApXrnQ0un+j4v2dOLkiMAsGjPQq2XXSkJt/WayBJgUj+ +J0aom45Ev1w1+C5PAfPZiTd/vtLR+L6fQpxaFPjcaBp3aICO7rE8feVmTYGk +pWrX75O4/73cD81OUEBRf9WkYIqOwk8H+ZFOUcA4V3ru0jQdBVVa7tqwp4Cl +lOClbbO4foI57oELBVzbCh32LtAR6Z0L+c0FCqwTd5w1GHT0JU6eSzaWAnni +asUGbAxUjHjcR+Mo8EhUta0PO3xyobkogQKM5TP/BbEzkMax5hDdJAocXq92 +z9/MQDFMrnNmTyiwyzFPdX0LAx32edobVEgB9hDDSu+tDCQh8a/2gWIKbKy4 +flzGXnjnk8BaSoGAGN33odsYKEMBmcVUUODId0/nKF4GWv/5syGzlgIhlcsz +SfwMVGkqntfRSoG9CbcfBwkx0F0GC1viOwr0uUglTGO75I2dtWunwBvqPjeK +MAPxbqoVH/5AASGLy1lmIgzkVWd7j95DgXPp6T68Ygwkq/QgUG6EAh6an1TO +SDAQ48u1rt80Cjx4KNTfhN0ZQVErGaWAKcuaxy5JBgoZ1BzTm6DAaUl9/nHs +bw+7HC3mKeAemfGYLMVA8Zv5jK4wE9DK8TBMSpaBXs79PH2RlQA/U1mrYOxf +Pwv8vNkI6C+RLuvB1q80fOqyhQC1a6s7b8kxEM05aNWYj4B6y6+veuRx/aZG +/EYCBHw9WMy9S4GB9uvwKyJBAqy8ucYDsGN5Ck+SRAlIpU2d2LYLx2v7y8Sl +CVBmDxlU281ARHZhq6AsAW1bi/MDsGNjL/dvkyegmjuZ6QU2jRDg2aRIwHV1 +A/v9ijgucMR9Qo2AgMUrtapKDFT7RyCUpkFACBv/khv2yO+B+wOaBMzdff6/ +NOx9DVeaPusS8IA0uMa5h4GGvYolXwEBSZSyHZ3YW22vaj0/RMBD2bqWdWw9 +g6OmZYYEDDQe/qOojPeLKPVy9lECwr7lCIZg12wqiU0zxnEVp8Vs7KHpq7nJ +pgRUiji6tGPrtgh2R1sScHlybWi7Cl7vMur4LSsCyirDV7Sxo1NKWG7aEMDa +If3oFDbV75haoC0BXNo+4YnYPE5CR3ztCbhD4Xxfiq17bMjRwwHPT15sRtvf +8Tuv3XVyJgDK9RbWsGs4jTNsXQj44mjiK6CK8y0KvbAiE7DxS/7ybmyewaEP +pgQBPGyNW/WxddtLaYfdCRAeE1E3x3Z5fm0dPPD6mcoNOGFHZxhv3++F+3Pt +E/fGrokW3qPlTYAn7eDw1b/5g4YP7vUlIJ7bWO9fbG5yma2iHwGK9+bEErB1 +LEJ8ZC/i8bk6t1P+5t9nEikRSMAePqHwLOwoeZFU4SACXNnvcj3DruYdqeC7 +QkCBQeLOUuzB1bJ3XMEE/GFTa6j4m/9XyCBbCAEHuBwnq7C1P5msbIQSIBYv +lluN/X/6KvtW "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.5812540503692138, 1.6364046599857205`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.5812540503692152}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1695,7 +6532,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.7504249066936067}, + AxesOrigin->{0, 0.5812540503692152}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1723,7 +6561,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5812540503692138, 1.6364046599857205`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1731,9 +6570,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913440619685707`*^9}, - CellLabel-> - "Out[417]=",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] + CellChangeTimes->{3.9913440619685707`*^9, 3.993911315265519*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"5ac2e6ff-e160-4f74-ae87-ee4fbb012d7e"] }, Open ]], Cell[CellGroupData[{ @@ -1796,340 +6634,161 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ -e1a61565f71e"], + CellChangeTimes->{3.9918501659425144`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.830928356369934`*^-272\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 418, - 441, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913440621885586`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.99391131562094*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +In[95]:=",ExpressionUUID->"c9a7e4d7-d037-448b-b83a-b387245fc0d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.3944101145426107`*^-283\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 418, 442, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913440621975574`*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.993911315632498*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +In[95]:=",ExpressionUUID->"7ac18c6d-5ea9-4bc1-b86e-acd7f4b02743"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.1867697828853772`*^-294\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 418, 443, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991344062205559*^9}, + 2, 95, 11, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.993911315641189*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +In[95]:=",ExpressionUUID->"a00d6dba-d985-411b-ab3f-e20ccfd84bae"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134406221356*^9}, +during this calculation.\"", 2, 95, 12, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.99391131564962*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +In[95]:=",ExpressionUUID->"4b0ec7c9-539c-464c-ae7d-cf14a96e932c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c4Vu0fAHAvLUnDTsbznGfYs2yP7zeV0BBJ8b6VMotkpTIiI6thlJUy +S9bzHCVKiZAktISICvUrK71WVPzO+9e5Pte5rvvc9/W9v+PQDx+3ceHn4+Nb +9hcf33/P6b5nDcz4fJO/olJ82+eNTdqvS53e2BUOO0cyVy9OlwYUf3FYqisJ +btLlc5vSlCFgV1GnQFcuNGet/JiTZghrxiSTZjtvQ2Qiv61nmiV8eLjz+GRn +HRSn7htsSnUAM+ZQ74/O17DvtGKh7ZWjMNupd2W8sx+MyyWKkuIDoX5TQf6r +3AkYjnwUicHxIPPh/pfDqn/AL6+1oEH3Moh5HixaukkABabJPS22GZCkZfZg +555l6D28dMLfOhvepWnW/lgtjJwUyT/nRPIgPj/0Bf/aNdi+PWHi2asbIHl5 +IDb5mij6nbD09IdbEG1rYfJ6WhxJn+g5HhaBdHmbNP9fEthsEKHdZl4EXFHb +GS0hCUy+cNjtf7uKoOP1ATJRXgL7hSbrlx8qAqa1P2FtLoF7Q9rVxM8WQd2O +rCUv0yVwp5nVlF5tEfwxm2prNZZE/dx0VZ5hMfgZ5Bx8Fi6FW4syTPRpJWCZ +vXJy23kpvLT3/HgGuwSIpcExbVek0PRF8NpZ1RJ42W5X9uaWFJ4ciWgrMCgB +de8VAn1tUmj3K+lem00JfL158ua/0mvx+92vKqaRJfCP2M7RdXfW4o1LOk0P +B0pg8/e5QK8Baax+LHR+7HIpnDa/rPx4RBpdK4Wa1mSUAjdHrVt0WhpFBpde +0cwqBSlbR4P7y9bhaLX9J8fCUhi592RGQH0d3nY8DOerSyE5PME//dQ61KJd +mhT+XAr94myvBmEZVKS7pT3U5ILk8RpZSUkZfDlvWm2tw4XtTftaj9BkUJpp +491vwIWKwHjVVetlcKfubNi0KRfiPowP2e+TQfcX6tu/2XJBu/CB2/dcGQxu +7YqfPcmFs8bWh6T1ZfGDzpvJhioumB+4/q+eqSw6bm5wYNRwYWXYcMSe7bJY +UsIfHVzPhcz6qJsJjrKYLLagLd/ChXuWVcNLYmXxTKNHL6uXC+P7GAET72Tx +165T+frzXDhwYiquJUgOJ64ExZ4w5gEr1VRmKEoOD/Euyaohjzr/pdKlCXLI +V+Ea+mETDwJ/K700zZfDlK9FpRu28eBKxAHx+y1yeC1qpjrbngctiU+zbsjK +46ndF/6EnuCBITe9/EyNPFpud6vdX8iDzZ1tf8aa5HFF0fV9RiU82Mm3aOvB +1/LYZ7VwQozHAycbr3fwWR6zaO823i/ngVkQPTRsMQ1TXLyVWmt44C0/nbdR +hYZNg3Gpcm95MHUnoWlWg4ajms/Lyzup/ZmrjJZtoKHIVZkDZt08iPJx1CVM +aKjf8cLunw88yKhvbuK3puHkp6pRm288aHDLGq0PoKFk7aycx28eWPw2EAkO +ouERMdSrmudBW0K77oYwGtKVa3zC+Uh4d18wLD+WhnI7FoIb+UkYE/IXicqk +objDIskNS0mQIs31zOpoqCyak3JjFQmeP3+ENQnTcXSHybMBORIMfVwlvojQ +0ei1xESnPAnLhrqLBaTo+OzY54vPaCTc6KnvMCHoWHdqudwNgoS+R1dU7+rS +0f2Q3E0OmwSrKIOunIN0ZDa1P5xUJUFuvvRYjTMdc4Se6NeqkTASQAj0HqEj +fSBOLVadhBh3IXUpfzp+WOkSIapJQu223oiLMXS8qCQxKrieBG2RsxpBZXTE +2kjaGX0S+OKnGtIq6MhW1zxENyChTeCoQ8UDOt5dr0HUUfaYson68YSO6pUy +Cr8NScjvYva4dVPfH4y2tOGQ4Gud7h31gY4XaNevfqKMzcJL8gbpqPGKz8fL +hITeB9OafWN0HODcKQoDEiSyms7ZChCY+o5wj95IwqAkR8Z3GYFf1b5/4zcl +4XZCWdklYQJFotmTQZStwjPeN0sSuClzPM91E3U+F0/tjaoECvY3h8ptIcGu +7+PTA1oENvbW7z5Hmbl3z/5gXQKfB3iUD1OuNTeJqUQCO1kTsjwzEmZVVvep +7SHwww3jHClzEqavSZ9d70BgYqygiwflyVUspsFBAgfFQ14+oDw2YXB08xEC +a+tOZu+xIGHYZbOwpReBxXOrlmRR/tq5k7TyI9Ba0Ef8C+X+B07TDiHU+9C7 +649ZkvBBzSvdMZzAN1LcTaWU32edMnaNJlBgOH1hiHJHxIVwn0QCPXSCQg5u +I+HNVCrrZAqB82OxmEL5pVtuU/BVArOdHpU1U27eVrky5gaBNXEvs1W3k/C0 ++nHZhSIC10c+l3eg3KDRYpvMI5CvkW0VRflxTsdMWjmBL7R9NbiUH4l+yrh+ +n0BHVZPH7ZQfRA1z8h8RaJi8bvEs5XszUx8L6wnc3nj1l/QOKh49yxXuthKo +EdHCv48yb4d4c9VrApUxV8yPckmN/LHaTgLFNVx64ikXaimvbnxPoCpRuDeX +8s28DXeefyJQy50/roJynjjYvfpCxa9lsV8T5exoi9mOYQKPXDYX7aJ8bXZ3 +5vtxAuMjHD0+U87wOAD9UwS2dQwEjVNO7XXv/98cgW5mR7bMUr5s5Rc1ukDg +6sUxTQuUEx+HKE4sYmBJTefiRTtJuLg+5vlPQQZOZY7/WUw5/kaS1/xKBqpz +PMr+c4zktTWLxBhYd/8jTYByVGxBueBaBk7nD22fp9YL/1W2d5UcA5MFGboz +lEOPPZwTYzDw4lFm7yjl4A+N16QVGVhVF2vaT/m09SukqTHQLXLMtZ1yQH3P +AEubgRLpY5YNlP10vpxT0WOgzCH29zLK3gXjSlrGDLS7o217jbLX2l8tuhsZ +2PieDDxH2SN+sbexGQMts02cjlF2/7NK1HQbAw10A1faUHY9Ll2xdRcDpbbz +h2yg7PSJab9jDwMNFwXwxCg77tb4bePAwBNT/jf/peK7/4lB1r6DDKxRzjrc +RtlBb7PpAWcGfiKuDBZQtl1nH3PEi4FPUt2NbSlbX3BSOe7HQBGbWFEFyjsX +jrX5n2JgtsXv2zPUfTQfCBcLC2egwh7nHUmUjYtLslNSGJjkxeL/77730Iqz +tlxloIeoY5Av5cCUwuuTWQz8U24hpEu58uzNTJtCBu6P3+JTSeWP9r7stJUP +GbiVecc5j8q/V63XU6trGZg+r5trT9l707UUzycM7IgrnBOmzFXPuNzc9l/8 +wua9t5KgtPhywrlPDGTvFz1Eo/K9KTDpks4XBkZ4s6OeUvXAdTzh4uAQAxNC +g5s8Kef3XDhvOsnAuAo6r2wzCbTb0THzS5hYKXhHiEXVG4mDQWEBqkyca1t2 +5jZVv+62nw5laTFxUOlylxFlW8tTZ9p1mGjRY/Z3PVXvknROBGsDE90mXXpa +qHoovOL4qTFrJt49c6LjmREJi+4f9nY9ycQ/B5j6nnpUPqgfOi4ezMTPv3n2 +XbokmOYf9GoIY+KWO8klppRDL/3jScQxMbDo/tc1OiTMudi592UycWjzcHOG +Ngk/RCwd7eqYOBul/MCO6gddnsTLo0+ZGM+h6aRS/aK2cQ5CW5h4yVww460K +CQmBxfK3OpgojE8VtiuToNm/4sPsEBM55yPdaQrU/St7sf+aKAtHtOpVXan+ +ZCd0q7VMioVk9NPbUVT/MnEJ4zTKsjCoQFMzj+pvwmu1ZL8rsNDmt71YlwxV +D8KS3qMxC31UDdKU1pIwZLXn70FnFjrPN6LnGhJeF6o9/3mEhSvEEjM9VpNQ +JbDESPg4C/sHY3+7U/0ztrJCWvc0C7FyS8t+YRIU5aW6oy+wMPtH4WMNQRLc +xrr3qVSw8PSE5YMTVH8ePO9o57uUjQfVjFzle3jgNaRKaK5gY2Nj5teWLh7M +bJ0dHV3NxrcqlsyTHTxYLpAUdUSajUElQq2PX/FA83R9uaMaGwvfdi7XbOJB +iAtb1Go3Gz0eOXj5UPOIhMnIC5UsNqr5Ps5KjONB9tV7V7/lsVH2QNV8VzQP +lGYj3QpusTHtUdcm2SgeNdfLLhC32TjVaHAuM5Sab5St1KWfsLHoQrxogD8P +SInb55cNs9GbLyQxZT81f3w/afFZVwEfDQtsSFXjgYyW3Lllxgq43+x8pZEy +D8Z8G+pUNipgpfax1vdsHlyeXm3su00B+yRKK8VoPOj7U6i+cFABc665V/0t +wgPfFe9F18YqYOArmoz5NBcylLBve48CxiuEhBQ84MKI0zK/8lBFFLMmmMPG +XBi7vrm6JlIRr+qXn+vQ58L3d2FLn8cq4vreq6trNnDhX6vZq5+SFXHN3KOc +aFUuzBgNNay8pYgfTbNHptdxgV+sReLIS0U0a7lTYzVXCmsbLlXJ0pWQM9Nq +MFNeSv3/SPJH1ymh+rYvLyKJUhBpZV8kvytjVVi/nPvPYpCJ4e3S1VVF40wB +/fCUIkhTMVgt6qaGn5Y4ranQKYRm6Y06E4nq6BA84FfSUgCGMnUJGh0aeGjG +/J2C4U1YKZDrfyhcE1ln+PPKqvNB7qy8sT1bCyXkboxfpOeBIOufCpunWvhR +wlNeOikH1DlreSf3a6NDDfnkJysbfPtE6i351uOV3fYrqq2uwfeJ83ss0tbj +R1nh1ua8DNiq0ZhhobYBe3sFdk0z0+DRhNGvmbYNqC09UFyQcgW8VLW7X7no +oAXnut+kQzJwxpzb7QV10dCr2GLVukTYwpTaIZyri7cMXIfB7iIohsWdqtPT +Q80t2RGiXXGg7GJQw+rWw+dPNnPMnaPB5ZF7ZLmPPrKCvjwfOB0JNdntzj/E +DfCn1bpL07lnYfLWwoxGpQEKpSbuumx1BpxYxYIZOwxxb83I2ArtQPihnKx7 +e9wQG1O7z45gANzL//VpKsYIqyLC1yot8QOHzQw0kjNGlkZ1W4KJN6w7Fn1f +vdYYc9z3+WuZeID4cs+yHXs5SJqUL1gIuEH+ppDAcXsOtg/8/bn2hytoh1zc +lPwPB3dcadTb9NEVdo6Tb7sOcVD/+pIVR6td4VzH1KyTJwfLw4+8hlOu8DM3 +1DTwLAd/uYn1Lhl3gW6j5Dc3izn4SjnKred/zuB+Ij/TgstBi3n/kfJOZ5jm +3nUZITmY2/ZNKf2pM4gQXTNaFRycOm1872yBM2xbJitTXcvBssyX0a/dnOFh ++03nN285GPZtnu415ASWK++pBXRxMLtuJH282wm6tj6blurhoGfgSd+Q504w +WTUcc+AjB5OWZ2lUlDiBWo5m6bchDs7IqJvmHXeCh90bA86PcvBiwnf2KUdq +PbHdoDHOwWW7RnGvtRO4Rp945T/FQQkRoYX166n1as9lSP7kYHeZS5oW0wnC +51KdquY4qPvOx9pA3AlWbyhU3f+Hg/D0JXPbEie4fqxqamGB2r8VS9ht5jD8 +Hx58blY= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2143,299 +6802,117 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== +1:eJwV13c4Vu0fAHAvLUnDTsbznGfYs2yP7zeV0BBJ8b6VMotkpTIiI6thlJUy +S9bzHCVKiZAktISICvUrK71WVPzO+9e5Pte5rvvc9/W9v+PQDx+3ceHn4+Nb +9hcf33/P6b5nDcz4fJO/olJ82+eNTdqvS53e2BUOO0cyVy9OlwYUf3FYqisJ +btLlc5vSlCFgV1GnQFcuNGet/JiTZghrxiSTZjtvQ2Qiv61nmiV8eLjz+GRn +HRSn7htsSnUAM+ZQ74/O17DvtGKh7ZWjMNupd2W8sx+MyyWKkuIDoX5TQf6r +3AkYjnwUicHxIPPh/pfDqn/AL6+1oEH3Moh5HixaukkABabJPS22GZCkZfZg +555l6D28dMLfOhvepWnW/lgtjJwUyT/nRPIgPj/0Bf/aNdi+PWHi2asbIHl5 +IDb5mij6nbD09IdbEG1rYfJ6WhxJn+g5HhaBdHmbNP9fEthsEKHdZl4EXFHb +GS0hCUy+cNjtf7uKoOP1ATJRXgL7hSbrlx8qAqa1P2FtLoF7Q9rVxM8WQd2O +rCUv0yVwp5nVlF5tEfwxm2prNZZE/dx0VZ5hMfgZ5Bx8Fi6FW4syTPRpJWCZ +vXJy23kpvLT3/HgGuwSIpcExbVek0PRF8NpZ1RJ42W5X9uaWFJ4ciWgrMCgB +de8VAn1tUmj3K+lem00JfL158ua/0mvx+92vKqaRJfCP2M7RdXfW4o1LOk0P +B0pg8/e5QK8Baax+LHR+7HIpnDa/rPx4RBpdK4Wa1mSUAjdHrVt0WhpFBpde +0cwqBSlbR4P7y9bhaLX9J8fCUhi592RGQH0d3nY8DOerSyE5PME//dQ61KJd +mhT+XAr94myvBmEZVKS7pT3U5ILk8RpZSUkZfDlvWm2tw4XtTftaj9BkUJpp +491vwIWKwHjVVetlcKfubNi0KRfiPowP2e+TQfcX6tu/2XJBu/CB2/dcGQxu +7YqfPcmFs8bWh6T1ZfGDzpvJhioumB+4/q+eqSw6bm5wYNRwYWXYcMSe7bJY +UsIfHVzPhcz6qJsJjrKYLLagLd/ChXuWVcNLYmXxTKNHL6uXC+P7GAET72Tx +165T+frzXDhwYiquJUgOJ64ExZ4w5gEr1VRmKEoOD/Euyaohjzr/pdKlCXLI +V+Ea+mETDwJ/K700zZfDlK9FpRu28eBKxAHx+y1yeC1qpjrbngctiU+zbsjK +46ndF/6EnuCBITe9/EyNPFpud6vdX8iDzZ1tf8aa5HFF0fV9RiU82Mm3aOvB +1/LYZ7VwQozHAycbr3fwWR6zaO823i/ngVkQPTRsMQ1TXLyVWmt44C0/nbdR +hYZNg3Gpcm95MHUnoWlWg4ajms/Lyzup/ZmrjJZtoKHIVZkDZt08iPJx1CVM +aKjf8cLunw88yKhvbuK3puHkp6pRm288aHDLGq0PoKFk7aycx28eWPw2EAkO +ouERMdSrmudBW0K77oYwGtKVa3zC+Uh4d18wLD+WhnI7FoIb+UkYE/IXicqk +objDIskNS0mQIs31zOpoqCyak3JjFQmeP3+ENQnTcXSHybMBORIMfVwlvojQ +0ei1xESnPAnLhrqLBaTo+OzY54vPaCTc6KnvMCHoWHdqudwNgoS+R1dU7+rS +0f2Q3E0OmwSrKIOunIN0ZDa1P5xUJUFuvvRYjTMdc4Se6NeqkTASQAj0HqEj +fSBOLVadhBh3IXUpfzp+WOkSIapJQu223oiLMXS8qCQxKrieBG2RsxpBZXTE +2kjaGX0S+OKnGtIq6MhW1zxENyChTeCoQ8UDOt5dr0HUUfaYson68YSO6pUy +Cr8NScjvYva4dVPfH4y2tOGQ4Gud7h31gY4XaNevfqKMzcJL8gbpqPGKz8fL +hITeB9OafWN0HODcKQoDEiSyms7ZChCY+o5wj95IwqAkR8Z3GYFf1b5/4zcl +4XZCWdklYQJFotmTQZStwjPeN0sSuClzPM91E3U+F0/tjaoECvY3h8ptIcGu +7+PTA1oENvbW7z5Hmbl3z/5gXQKfB3iUD1OuNTeJqUQCO1kTsjwzEmZVVvep +7SHwww3jHClzEqavSZ9d70BgYqygiwflyVUspsFBAgfFQ14+oDw2YXB08xEC +a+tOZu+xIGHYZbOwpReBxXOrlmRR/tq5k7TyI9Ba0Ef8C+X+B07TDiHU+9C7 +649ZkvBBzSvdMZzAN1LcTaWU32edMnaNJlBgOH1hiHJHxIVwn0QCPXSCQg5u +I+HNVCrrZAqB82OxmEL5pVtuU/BVArOdHpU1U27eVrky5gaBNXEvs1W3k/C0 ++nHZhSIC10c+l3eg3KDRYpvMI5CvkW0VRflxTsdMWjmBL7R9NbiUH4l+yrh+ +n0BHVZPH7ZQfRA1z8h8RaJi8bvEs5XszUx8L6wnc3nj1l/QOKh49yxXuthKo +EdHCv48yb4d4c9VrApUxV8yPckmN/LHaTgLFNVx64ikXaimvbnxPoCpRuDeX +8s28DXeefyJQy50/roJynjjYvfpCxa9lsV8T5exoi9mOYQKPXDYX7aJ8bXZ3 +5vtxAuMjHD0+U87wOAD9UwS2dQwEjVNO7XXv/98cgW5mR7bMUr5s5Rc1ukDg +6sUxTQuUEx+HKE4sYmBJTefiRTtJuLg+5vlPQQZOZY7/WUw5/kaS1/xKBqpz +PMr+c4zktTWLxBhYd/8jTYByVGxBueBaBk7nD22fp9YL/1W2d5UcA5MFGboz +lEOPPZwTYzDw4lFm7yjl4A+N16QVGVhVF2vaT/m09SukqTHQLXLMtZ1yQH3P +AEubgRLpY5YNlP10vpxT0WOgzCH29zLK3gXjSlrGDLS7o217jbLX2l8tuhsZ +2PieDDxH2SN+sbexGQMts02cjlF2/7NK1HQbAw10A1faUHY9Ll2xdRcDpbbz +h2yg7PSJab9jDwMNFwXwxCg77tb4bePAwBNT/jf/peK7/4lB1r6DDKxRzjrc +RtlBb7PpAWcGfiKuDBZQtl1nH3PEi4FPUt2NbSlbX3BSOe7HQBGbWFEFyjsX +jrX5n2JgtsXv2zPUfTQfCBcLC2egwh7nHUmUjYtLslNSGJjkxeL/77730Iqz +tlxloIeoY5Av5cCUwuuTWQz8U24hpEu58uzNTJtCBu6P3+JTSeWP9r7stJUP +GbiVecc5j8q/V63XU6trGZg+r5trT9l707UUzycM7IgrnBOmzFXPuNzc9l/8 +wua9t5KgtPhywrlPDGTvFz1Eo/K9KTDpks4XBkZ4s6OeUvXAdTzh4uAQAxNC +g5s8Kef3XDhvOsnAuAo6r2wzCbTb0THzS5hYKXhHiEXVG4mDQWEBqkyca1t2 +5jZVv+62nw5laTFxUOlylxFlW8tTZ9p1mGjRY/Z3PVXvknROBGsDE90mXXpa +qHoovOL4qTFrJt49c6LjmREJi+4f9nY9ycQ/B5j6nnpUPqgfOi4ezMTPv3n2 +XbokmOYf9GoIY+KWO8klppRDL/3jScQxMbDo/tc1OiTMudi592UycWjzcHOG +Ngk/RCwd7eqYOBul/MCO6gddnsTLo0+ZGM+h6aRS/aK2cQ5CW5h4yVww460K +CQmBxfK3OpgojE8VtiuToNm/4sPsEBM55yPdaQrU/St7sf+aKAtHtOpVXan+ +ZCd0q7VMioVk9NPbUVT/MnEJ4zTKsjCoQFMzj+pvwmu1ZL8rsNDmt71YlwxV +D8KS3qMxC31UDdKU1pIwZLXn70FnFjrPN6LnGhJeF6o9/3mEhSvEEjM9VpNQ +JbDESPg4C/sHY3+7U/0ztrJCWvc0C7FyS8t+YRIU5aW6oy+wMPtH4WMNQRLc +xrr3qVSw8PSE5YMTVH8ePO9o57uUjQfVjFzle3jgNaRKaK5gY2Nj5teWLh7M +bJ0dHV3NxrcqlsyTHTxYLpAUdUSajUElQq2PX/FA83R9uaMaGwvfdi7XbOJB +iAtb1Go3Gz0eOXj5UPOIhMnIC5UsNqr5Ps5KjONB9tV7V7/lsVH2QNV8VzQP +lGYj3QpusTHtUdcm2SgeNdfLLhC32TjVaHAuM5Sab5St1KWfsLHoQrxogD8P +SInb55cNs9GbLyQxZT81f3w/afFZVwEfDQtsSFXjgYyW3Lllxgq43+x8pZEy +D8Z8G+pUNipgpfax1vdsHlyeXm3su00B+yRKK8VoPOj7U6i+cFABc665V/0t +wgPfFe9F18YqYOArmoz5NBcylLBve48CxiuEhBQ84MKI0zK/8lBFFLMmmMPG +XBi7vrm6JlIRr+qXn+vQ58L3d2FLn8cq4vreq6trNnDhX6vZq5+SFXHN3KOc +aFUuzBgNNay8pYgfTbNHptdxgV+sReLIS0U0a7lTYzVXCmsbLlXJ0pWQM9Nq +MFNeSv3/SPJH1ymh+rYvLyKJUhBpZV8kvytjVVi/nPvPYpCJ4e3S1VVF40wB +/fCUIkhTMVgt6qaGn5Y4ranQKYRm6Y06E4nq6BA84FfSUgCGMnUJGh0aeGjG +/J2C4U1YKZDrfyhcE1ln+PPKqvNB7qy8sT1bCyXkboxfpOeBIOufCpunWvhR +wlNeOikH1DlreSf3a6NDDfnkJysbfPtE6i351uOV3fYrqq2uwfeJ83ss0tbj +R1nh1ua8DNiq0ZhhobYBe3sFdk0z0+DRhNGvmbYNqC09UFyQcgW8VLW7X7no +oAXnut+kQzJwxpzb7QV10dCr2GLVukTYwpTaIZyri7cMXIfB7iIohsWdqtPT +Q80t2RGiXXGg7GJQw+rWw+dPNnPMnaPB5ZF7ZLmPPrKCvjwfOB0JNdntzj/E +DfCn1bpL07lnYfLWwoxGpQEKpSbuumx1BpxYxYIZOwxxb83I2ArtQPihnKx7 +e9wQG1O7z45gANzL//VpKsYIqyLC1yot8QOHzQw0kjNGlkZ1W4KJN6w7Fn1f +vdYYc9z3+WuZeID4cs+yHXs5SJqUL1gIuEH+ppDAcXsOtg/8/bn2hytoh1zc +lPwPB3dcadTb9NEVdo6Tb7sOcVD/+pIVR6td4VzH1KyTJwfLw4+8hlOu8DM3 +1DTwLAd/uYn1Lhl3gW6j5Dc3izn4SjnKred/zuB+Ij/TgstBi3n/kfJOZ5jm +3nUZITmY2/ZNKf2pM4gQXTNaFRycOm1872yBM2xbJitTXcvBssyX0a/dnOFh ++03nN285GPZtnu415ASWK++pBXRxMLtuJH282wm6tj6blurhoGfgSd+Q504w +WTUcc+AjB5OWZ2lUlDiBWo5m6bchDs7IqJvmHXeCh90bA86PcvBiwnf2KUdq +PbHdoDHOwWW7RnGvtRO4Rp945T/FQQkRoYX166n1as9lSP7kYHeZS5oW0wnC +51KdquY4qPvOx9pA3AlWbyhU3f+Hg/D0JXPbEie4fqxqamGB2r8VS9ht5jD8 +Hx58blY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06369054269508807}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2447,19 +6924,19 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06369054269508807}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2473,298 +6950,116 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== +1:eJwV13c4Vu0fAHAvLUnDTsbznGfYs2yP7zeV0BBJ8b6VMotkpTIiI6thlJUy +S9bzHCVKiZAktISICvUrK71WVPzO+9e5Pte5rvvc9/W9v+PQDx+3ceHn4+Nb +9hcf33/P6b5nDcz4fJO/olJ82+eNTdqvS53e2BUOO0cyVy9OlwYUf3FYqisJ +btLlc5vSlCFgV1GnQFcuNGet/JiTZghrxiSTZjtvQ2Qiv61nmiV8eLjz+GRn +HRSn7htsSnUAM+ZQ74/O17DvtGKh7ZWjMNupd2W8sx+MyyWKkuIDoX5TQf6r +3AkYjnwUicHxIPPh/pfDqn/AL6+1oEH3Moh5HixaukkABabJPS22GZCkZfZg +555l6D28dMLfOhvepWnW/lgtjJwUyT/nRPIgPj/0Bf/aNdi+PWHi2asbIHl5 +IDb5mij6nbD09IdbEG1rYfJ6WhxJn+g5HhaBdHmbNP9fEthsEKHdZl4EXFHb +GS0hCUy+cNjtf7uKoOP1ATJRXgL7hSbrlx8qAqa1P2FtLoF7Q9rVxM8WQd2O +rCUv0yVwp5nVlF5tEfwxm2prNZZE/dx0VZ5hMfgZ5Bx8Fi6FW4syTPRpJWCZ +vXJy23kpvLT3/HgGuwSIpcExbVek0PRF8NpZ1RJ42W5X9uaWFJ4ciWgrMCgB +de8VAn1tUmj3K+lem00JfL158ua/0mvx+92vKqaRJfCP2M7RdXfW4o1LOk0P +B0pg8/e5QK8Baax+LHR+7HIpnDa/rPx4RBpdK4Wa1mSUAjdHrVt0WhpFBpde +0cwqBSlbR4P7y9bhaLX9J8fCUhi592RGQH0d3nY8DOerSyE5PME//dQ61KJd +mhT+XAr94myvBmEZVKS7pT3U5ILk8RpZSUkZfDlvWm2tw4XtTftaj9BkUJpp +491vwIWKwHjVVetlcKfubNi0KRfiPowP2e+TQfcX6tu/2XJBu/CB2/dcGQxu +7YqfPcmFs8bWh6T1ZfGDzpvJhioumB+4/q+eqSw6bm5wYNRwYWXYcMSe7bJY +UsIfHVzPhcz6qJsJjrKYLLagLd/ChXuWVcNLYmXxTKNHL6uXC+P7GAET72Tx +165T+frzXDhwYiquJUgOJ64ExZ4w5gEr1VRmKEoOD/Euyaohjzr/pdKlCXLI +V+Ea+mETDwJ/K700zZfDlK9FpRu28eBKxAHx+y1yeC1qpjrbngctiU+zbsjK +46ndF/6EnuCBITe9/EyNPFpud6vdX8iDzZ1tf8aa5HFF0fV9RiU82Mm3aOvB +1/LYZ7VwQozHAycbr3fwWR6zaO823i/ngVkQPTRsMQ1TXLyVWmt44C0/nbdR +hYZNg3Gpcm95MHUnoWlWg4ajms/Lyzup/ZmrjJZtoKHIVZkDZt08iPJx1CVM +aKjf8cLunw88yKhvbuK3puHkp6pRm288aHDLGq0PoKFk7aycx28eWPw2EAkO +ouERMdSrmudBW0K77oYwGtKVa3zC+Uh4d18wLD+WhnI7FoIb+UkYE/IXicqk +objDIskNS0mQIs31zOpoqCyak3JjFQmeP3+ENQnTcXSHybMBORIMfVwlvojQ +0ei1xESnPAnLhrqLBaTo+OzY54vPaCTc6KnvMCHoWHdqudwNgoS+R1dU7+rS +0f2Q3E0OmwSrKIOunIN0ZDa1P5xUJUFuvvRYjTMdc4Se6NeqkTASQAj0HqEj +fSBOLVadhBh3IXUpfzp+WOkSIapJQu223oiLMXS8qCQxKrieBG2RsxpBZXTE +2kjaGX0S+OKnGtIq6MhW1zxENyChTeCoQ8UDOt5dr0HUUfaYson68YSO6pUy +Cr8NScjvYva4dVPfH4y2tOGQ4Gud7h31gY4XaNevfqKMzcJL8gbpqPGKz8fL +hITeB9OafWN0HODcKQoDEiSyms7ZChCY+o5wj95IwqAkR8Z3GYFf1b5/4zcl +4XZCWdklYQJFotmTQZStwjPeN0sSuClzPM91E3U+F0/tjaoECvY3h8ptIcGu +7+PTA1oENvbW7z5Hmbl3z/5gXQKfB3iUD1OuNTeJqUQCO1kTsjwzEmZVVvep +7SHwww3jHClzEqavSZ9d70BgYqygiwflyVUspsFBAgfFQ14+oDw2YXB08xEC +a+tOZu+xIGHYZbOwpReBxXOrlmRR/tq5k7TyI9Ba0Ef8C+X+B07TDiHU+9C7 +649ZkvBBzSvdMZzAN1LcTaWU32edMnaNJlBgOH1hiHJHxIVwn0QCPXSCQg5u +I+HNVCrrZAqB82OxmEL5pVtuU/BVArOdHpU1U27eVrky5gaBNXEvs1W3k/C0 ++nHZhSIC10c+l3eg3KDRYpvMI5CvkW0VRflxTsdMWjmBL7R9NbiUH4l+yrh+ +n0BHVZPH7ZQfRA1z8h8RaJi8bvEs5XszUx8L6wnc3nj1l/QOKh49yxXuthKo +EdHCv48yb4d4c9VrApUxV8yPckmN/LHaTgLFNVx64ikXaimvbnxPoCpRuDeX +8s28DXeefyJQy50/roJynjjYvfpCxa9lsV8T5exoi9mOYQKPXDYX7aJ8bXZ3 +5vtxAuMjHD0+U87wOAD9UwS2dQwEjVNO7XXv/98cgW5mR7bMUr5s5Rc1ukDg +6sUxTQuUEx+HKE4sYmBJTefiRTtJuLg+5vlPQQZOZY7/WUw5/kaS1/xKBqpz +PMr+c4zktTWLxBhYd/8jTYByVGxBueBaBk7nD22fp9YL/1W2d5UcA5MFGboz +lEOPPZwTYzDw4lFm7yjl4A+N16QVGVhVF2vaT/m09SukqTHQLXLMtZ1yQH3P +AEubgRLpY5YNlP10vpxT0WOgzCH29zLK3gXjSlrGDLS7o217jbLX2l8tuhsZ +2PieDDxH2SN+sbexGQMts02cjlF2/7NK1HQbAw10A1faUHY9Ll2xdRcDpbbz +h2yg7PSJab9jDwMNFwXwxCg77tb4bePAwBNT/jf/peK7/4lB1r6DDKxRzjrc +RtlBb7PpAWcGfiKuDBZQtl1nH3PEi4FPUt2NbSlbX3BSOe7HQBGbWFEFyjsX +jrX5n2JgtsXv2zPUfTQfCBcLC2egwh7nHUmUjYtLslNSGJjkxeL/77730Iqz +tlxloIeoY5Av5cCUwuuTWQz8U24hpEu58uzNTJtCBu6P3+JTSeWP9r7stJUP +GbiVecc5j8q/V63XU6trGZg+r5trT9l707UUzycM7IgrnBOmzFXPuNzc9l/8 +wua9t5KgtPhywrlPDGTvFz1Eo/K9KTDpks4XBkZ4s6OeUvXAdTzh4uAQAxNC +g5s8Kef3XDhvOsnAuAo6r2wzCbTb0THzS5hYKXhHiEXVG4mDQWEBqkyca1t2 +5jZVv+62nw5laTFxUOlylxFlW8tTZ9p1mGjRY/Z3PVXvknROBGsDE90mXXpa +qHoovOL4qTFrJt49c6LjmREJi+4f9nY9ycQ/B5j6nnpUPqgfOi4ezMTPv3n2 +XbokmOYf9GoIY+KWO8klppRDL/3jScQxMbDo/tc1OiTMudi592UycWjzcHOG +Ngk/RCwd7eqYOBul/MCO6gddnsTLo0+ZGM+h6aRS/aK2cQ5CW5h4yVww460K +CQmBxfK3OpgojE8VtiuToNm/4sPsEBM55yPdaQrU/St7sf+aKAtHtOpVXan+ +ZCd0q7VMioVk9NPbUVT/MnEJ4zTKsjCoQFMzj+pvwmu1ZL8rsNDmt71YlwxV +D8KS3qMxC31UDdKU1pIwZLXn70FnFjrPN6LnGhJeF6o9/3mEhSvEEjM9VpNQ +JbDESPg4C/sHY3+7U/0ztrJCWvc0C7FyS8t+YRIU5aW6oy+wMPtH4WMNQRLc +xrr3qVSw8PSE5YMTVH8ePO9o57uUjQfVjFzle3jgNaRKaK5gY2Nj5teWLh7M +bJ0dHV3NxrcqlsyTHTxYLpAUdUSajUElQq2PX/FA83R9uaMaGwvfdi7XbOJB +iAtb1Go3Gz0eOXj5UPOIhMnIC5UsNqr5Ps5KjONB9tV7V7/lsVH2QNV8VzQP +lGYj3QpusTHtUdcm2SgeNdfLLhC32TjVaHAuM5Sab5St1KWfsLHoQrxogD8P +SInb55cNs9GbLyQxZT81f3w/afFZVwEfDQtsSFXjgYyW3Lllxgq43+x8pZEy +D8Z8G+pUNipgpfax1vdsHlyeXm3su00B+yRKK8VoPOj7U6i+cFABc665V/0t +wgPfFe9F18YqYOArmoz5NBcylLBve48CxiuEhBQ84MKI0zK/8lBFFLMmmMPG +XBi7vrm6JlIRr+qXn+vQ58L3d2FLn8cq4vreq6trNnDhX6vZq5+SFXHN3KOc +aFUuzBgNNay8pYgfTbNHptdxgV+sReLIS0U0a7lTYzVXCmsbLlXJ0pWQM9Nq +MFNeSv3/SPJH1ymh+rYvLyKJUhBpZV8kvytjVVi/nPvPYpCJ4e3S1VVF40wB +/fCUIkhTMVgt6qaGn5Y4ranQKYRm6Y06E4nq6BA84FfSUgCGMnUJGh0aeGjG +/J2C4U1YKZDrfyhcE1ln+PPKqvNB7qy8sT1bCyXkboxfpOeBIOufCpunWvhR +wlNeOikH1DlreSf3a6NDDfnkJysbfPtE6i351uOV3fYrqq2uwfeJ83ss0tbj +R1nh1ua8DNiq0ZhhobYBe3sFdk0z0+DRhNGvmbYNqC09UFyQcgW8VLW7X7no +oAXnut+kQzJwxpzb7QV10dCr2GLVukTYwpTaIZyri7cMXIfB7iIohsWdqtPT +Q80t2RGiXXGg7GJQw+rWw+dPNnPMnaPB5ZF7ZLmPPrKCvjwfOB0JNdntzj/E +DfCn1bpL07lnYfLWwoxGpQEKpSbuumx1BpxYxYIZOwxxb83I2ArtQPihnKx7 +e9wQG1O7z45gANzL//VpKsYIqyLC1yot8QOHzQw0kjNGlkZ1W4KJN6w7Fn1f +vdYYc9z3+WuZeID4cs+yHXs5SJqUL1gIuEH+ppDAcXsOtg/8/bn2hytoh1zc +lPwPB3dcadTb9NEVdo6Tb7sOcVD/+pIVR6td4VzH1KyTJwfLw4+8hlOu8DM3 +1DTwLAd/uYn1Lhl3gW6j5Dc3izn4SjnKred/zuB+Ij/TgstBi3n/kfJOZ5jm +3nUZITmY2/ZNKf2pM4gQXTNaFRycOm1872yBM2xbJitTXcvBssyX0a/dnOFh ++03nN285GPZtnu415ASWK++pBXRxMLtuJH282wm6tj6blurhoGfgSd+Q504w +WTUcc+AjB5OWZ2lUlDiBWo5m6bchDs7IqJvmHXeCh90bA86PcvBiwnf2KUdq +PbHdoDHOwWW7RnGvtRO4Rp945T/FQQkRoYX166n1as9lSP7kYHeZS5oW0wnC +51KdquY4qPvOx9pA3AlWbyhU3f+Hg/D0JXPbEie4fqxqamGB2r8VS9ht5jD8 +Hx58blY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06369054269508807}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2775,6 +7070,7 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2802,7 +7098,8 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06369054269508807}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2810,25 +7107,866 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.99134491550045*^9}, - CellLabel-> - "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] + CellChangeTimes->{3.99134491550045*^9, 3.993911657431486*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"9f4e2c34-4db8-4279-a995-fd58feb3c00e"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ -b938908ab9a4"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.007417"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.021549"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.034628"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.045917"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.054602"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.061093"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.06517"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.066873"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.066776"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.065063"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.062072"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058207"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.053722"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.048873"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.043893"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.038938"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.034149"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.029622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.025427"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.021604"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.018178"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.015148"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.012507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.010233"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.008299"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.006672"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.00532"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.004206"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.003299"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.002567"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.001983"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993910763606078*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.066873}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993911657596561*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"292f58bb-a964-46f8-a590-e5fa0410c9d4"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ -b6e82cb2e939"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c4Vu0fAHAvLUnDTsbznGfYs2yP7zeV0BBJ8b6VMotkpTIiI6thlJUy +S9bzHCVKiZAktISICvUrK71WVPzO+9e5Pte5rvvc9/W9v+PQDx+3ceHn4+Nb +9hcf33/P6b5nDcz4fJO/olJ82+eNTdqvS53e2BUOO0cyVy9OlwYUf3FYqisJ +btLlc5vSlCFgV1GnQFcuNGet/JiTZghrxiSTZjtvQ2Qiv61nmiV8eLjz+GRn +HRSn7htsSnUAM+ZQ74/O17DvtGKh7ZWjMNupd2W8sx+MyyWKkuIDoX5TQf6r +3AkYjnwUicHxIPPh/pfDqn/AL6+1oEH3Moh5HixaukkABabJPS22GZCkZfZg +555l6D28dMLfOhvepWnW/lgtjJwUyT/nRPIgPj/0Bf/aNdi+PWHi2asbIHl5 +IDb5mij6nbD09IdbEG1rYfJ6WhxJn+g5HhaBdHmbNP9fEthsEKHdZl4EXFHb +GS0hCUy+cNjtf7uKoOP1ATJRXgL7hSbrlx8qAqa1P2FtLoF7Q9rVxM8WQd2O +rCUv0yVwp5nVlF5tEfwxm2prNZZE/dx0VZ5hMfgZ5Bx8Fi6FW4syTPRpJWCZ +vXJy23kpvLT3/HgGuwSIpcExbVek0PRF8NpZ1RJ42W5X9uaWFJ4ciWgrMCgB +de8VAn1tUmj3K+lem00JfL158ua/0mvx+92vKqaRJfCP2M7RdXfW4o1LOk0P +B0pg8/e5QK8Baax+LHR+7HIpnDa/rPx4RBpdK4Wa1mSUAjdHrVt0WhpFBpde +0cwqBSlbR4P7y9bhaLX9J8fCUhi592RGQH0d3nY8DOerSyE5PME//dQ61KJd +mhT+XAr94myvBmEZVKS7pT3U5ILk8RpZSUkZfDlvWm2tw4XtTftaj9BkUJpp +491vwIWKwHjVVetlcKfubNi0KRfiPowP2e+TQfcX6tu/2XJBu/CB2/dcGQxu +7YqfPcmFs8bWh6T1ZfGDzpvJhioumB+4/q+eqSw6bm5wYNRwYWXYcMSe7bJY +UsIfHVzPhcz6qJsJjrKYLLagLd/ChXuWVcNLYmXxTKNHL6uXC+P7GAET72Tx +165T+frzXDhwYiquJUgOJ64ExZ4w5gEr1VRmKEoOD/Euyaohjzr/pdKlCXLI +V+Ea+mETDwJ/K700zZfDlK9FpRu28eBKxAHx+y1yeC1qpjrbngctiU+zbsjK +46ndF/6EnuCBITe9/EyNPFpud6vdX8iDzZ1tf8aa5HFF0fV9RiU82Mm3aOvB +1/LYZ7VwQozHAycbr3fwWR6zaO823i/ngVkQPTRsMQ1TXLyVWmt44C0/nbdR +hYZNg3Gpcm95MHUnoWlWg4ajms/Lyzup/ZmrjJZtoKHIVZkDZt08iPJx1CVM +aKjf8cLunw88yKhvbuK3puHkp6pRm288aHDLGq0PoKFk7aycx28eWPw2EAkO +ouERMdSrmudBW0K77oYwGtKVa3zC+Uh4d18wLD+WhnI7FoIb+UkYE/IXicqk +objDIskNS0mQIs31zOpoqCyak3JjFQmeP3+ENQnTcXSHybMBORIMfVwlvojQ +0ei1xESnPAnLhrqLBaTo+OzY54vPaCTc6KnvMCHoWHdqudwNgoS+R1dU7+rS +0f2Q3E0OmwSrKIOunIN0ZDa1P5xUJUFuvvRYjTMdc4Se6NeqkTASQAj0HqEj +fSBOLVadhBh3IXUpfzp+WOkSIapJQu223oiLMXS8qCQxKrieBG2RsxpBZXTE +2kjaGX0S+OKnGtIq6MhW1zxENyChTeCoQ8UDOt5dr0HUUfaYson68YSO6pUy +Cr8NScjvYva4dVPfH4y2tOGQ4Gud7h31gY4XaNevfqKMzcJL8gbpqPGKz8fL +hITeB9OafWN0HODcKQoDEiSyms7ZChCY+o5wj95IwqAkR8Z3GYFf1b5/4zcl +4XZCWdklYQJFotmTQZStwjPeN0sSuClzPM91E3U+F0/tjaoECvY3h8ptIcGu +7+PTA1oENvbW7z5Hmbl3z/5gXQKfB3iUD1OuNTeJqUQCO1kTsjwzEmZVVvep +7SHwww3jHClzEqavSZ9d70BgYqygiwflyVUspsFBAgfFQ14+oDw2YXB08xEC +a+tOZu+xIGHYZbOwpReBxXOrlmRR/tq5k7TyI9Ba0Ef8C+X+B07TDiHU+9C7 +649ZkvBBzSvdMZzAN1LcTaWU32edMnaNJlBgOH1hiHJHxIVwn0QCPXSCQg5u +I+HNVCrrZAqB82OxmEL5pVtuU/BVArOdHpU1U27eVrky5gaBNXEvs1W3k/C0 ++nHZhSIC10c+l3eg3KDRYpvMI5CvkW0VRflxTsdMWjmBL7R9NbiUH4l+yrh+ +n0BHVZPH7ZQfRA1z8h8RaJi8bvEs5XszUx8L6wnc3nj1l/QOKh49yxXuthKo +EdHCv48yb4d4c9VrApUxV8yPckmN/LHaTgLFNVx64ikXaimvbnxPoCpRuDeX +8s28DXeefyJQy50/roJynjjYvfpCxa9lsV8T5exoi9mOYQKPXDYX7aJ8bXZ3 +5vtxAuMjHD0+U87wOAD9UwS2dQwEjVNO7XXv/98cgW5mR7bMUr5s5Rc1ukDg +6sUxTQuUEx+HKE4sYmBJTefiRTtJuLg+5vlPQQZOZY7/WUw5/kaS1/xKBqpz +PMr+c4zktTWLxBhYd/8jTYByVGxBueBaBk7nD22fp9YL/1W2d5UcA5MFGboz +lEOPPZwTYzDw4lFm7yjl4A+N16QVGVhVF2vaT/m09SukqTHQLXLMtZ1yQH3P +AEubgRLpY5YNlP10vpxT0WOgzCH29zLK3gXjSlrGDLS7o217jbLX2l8tuhsZ +2PieDDxH2SN+sbexGQMts02cjlF2/7NK1HQbAw10A1faUHY9Ll2xdRcDpbbz +h2yg7PSJab9jDwMNFwXwxCg77tb4bePAwBNT/jf/peK7/4lB1r6DDKxRzjrc +RtlBb7PpAWcGfiKuDBZQtl1nH3PEi4FPUt2NbSlbX3BSOe7HQBGbWFEFyjsX +jrX5n2JgtsXv2zPUfTQfCBcLC2egwh7nHUmUjYtLslNSGJjkxeL/77730Iqz +tlxloIeoY5Av5cCUwuuTWQz8U24hpEu58uzNTJtCBu6P3+JTSeWP9r7stJUP +GbiVecc5j8q/V63XU6trGZg+r5trT9l707UUzycM7IgrnBOmzFXPuNzc9l/8 +wua9t5KgtPhywrlPDGTvFz1Eo/K9KTDpks4XBkZ4s6OeUvXAdTzh4uAQAxNC +g5s8Kef3XDhvOsnAuAo6r2wzCbTb0THzS5hYKXhHiEXVG4mDQWEBqkyca1t2 +5jZVv+62nw5laTFxUOlylxFlW8tTZ9p1mGjRY/Z3PVXvknROBGsDE90mXXpa +qHoovOL4qTFrJt49c6LjmREJi+4f9nY9ycQ/B5j6nnpUPqgfOi4ezMTPv3n2 +XbokmOYf9GoIY+KWO8klppRDL/3jScQxMbDo/tc1OiTMudi592UycWjzcHOG +Ngk/RCwd7eqYOBul/MCO6gddnsTLo0+ZGM+h6aRS/aK2cQ5CW5h4yVww460K +CQmBxfK3OpgojE8VtiuToNm/4sPsEBM55yPdaQrU/St7sf+aKAtHtOpVXan+ +ZCd0q7VMioVk9NPbUVT/MnEJ4zTKsjCoQFMzj+pvwmu1ZL8rsNDmt71YlwxV +D8KS3qMxC31UDdKU1pIwZLXn70FnFjrPN6LnGhJeF6o9/3mEhSvEEjM9VpNQ +JbDESPg4C/sHY3+7U/0ztrJCWvc0C7FyS8t+YRIU5aW6oy+wMPtH4WMNQRLc +xrr3qVSw8PSE5YMTVH8ePO9o57uUjQfVjFzle3jgNaRKaK5gY2Nj5teWLh7M +bJ0dHV3NxrcqlsyTHTxYLpAUdUSajUElQq2PX/FA83R9uaMaGwvfdi7XbOJB +iAtb1Go3Gz0eOXj5UPOIhMnIC5UsNqr5Ps5KjONB9tV7V7/lsVH2QNV8VzQP +lGYj3QpusTHtUdcm2SgeNdfLLhC32TjVaHAuM5Sab5St1KWfsLHoQrxogD8P +SInb55cNs9GbLyQxZT81f3w/afFZVwEfDQtsSFXjgYyW3Lllxgq43+x8pZEy +D8Z8G+pUNipgpfax1vdsHlyeXm3su00B+yRKK8VoPOj7U6i+cFABc665V/0t +wgPfFe9F18YqYOArmoz5NBcylLBve48CxiuEhBQ84MKI0zK/8lBFFLMmmMPG +XBi7vrm6JlIRr+qXn+vQ58L3d2FLn8cq4vreq6trNnDhX6vZq5+SFXHN3KOc +aFUuzBgNNay8pYgfTbNHptdxgV+sReLIS0U0a7lTYzVXCmsbLlXJ0pWQM9Nq +MFNeSv3/SPJH1ymh+rYvLyKJUhBpZV8kvytjVVi/nPvPYpCJ4e3S1VVF40wB +/fCUIkhTMVgt6qaGn5Y4ranQKYRm6Y06E4nq6BA84FfSUgCGMnUJGh0aeGjG +/J2C4U1YKZDrfyhcE1ln+PPKqvNB7qy8sT1bCyXkboxfpOeBIOufCpunWvhR +wlNeOikH1DlreSf3a6NDDfnkJysbfPtE6i351uOV3fYrqq2uwfeJ83ss0tbj +R1nh1ua8DNiq0ZhhobYBe3sFdk0z0+DRhNGvmbYNqC09UFyQcgW8VLW7X7no +oAXnut+kQzJwxpzb7QV10dCr2GLVukTYwpTaIZyri7cMXIfB7iIohsWdqtPT +Q80t2RGiXXGg7GJQw+rWw+dPNnPMnaPB5ZF7ZLmPPrKCvjwfOB0JNdntzj/E +DfCn1bpL07lnYfLWwoxGpQEKpSbuumx1BpxYxYIZOwxxb83I2ArtQPihnKx7 +e9wQG1O7z45gANzL//VpKsYIqyLC1yot8QOHzQw0kjNGlkZ1W4KJN6w7Fn1f +vdYYc9z3+WuZeID4cs+yHXs5SJqUL1gIuEH+ppDAcXsOtg/8/bn2hytoh1zc +lPwPB3dcadTb9NEVdo6Tb7sOcVD/+pIVR6td4VzH1KyTJwfLw4+8hlOu8DM3 +1DTwLAd/uYn1Lhl3gW6j5Dc3izn4SjnKred/zuB+Ij/TgstBi3n/kfJOZ5jm +3nUZITmY2/ZNKf2pM4gQXTNaFRycOm1872yBM2xbJitTXcvBssyX0a/dnOFh ++03nN285GPZtnu415ASWK++pBXRxMLtuJH282wm6tj6blurhoGfgSd+Q504w +WTUcc+AjB5OWZ2lUlDiBWo5m6bchDs7IqJvmHXeCh90bA86PcvBiwnf2KUdq +PbHdoDHOwWW7RnGvtRO4Rp945T/FQQkRoYX166n1as9lSP7kYHeZS5oW0wnC +51KdquY4qPvOx9pA3AlWbyhU3f+Hg/D0JXPbEie4fqxqamGB2r8VS9ht5jD8 +Hx58blY= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4Vu0fAHAvLUnDTsbznGfYs2yP7zeV0BBJ8b6VMotkpTIiI6thlJUy +S9bzHCVKiZAktISICvUrK71WVPzO+9e5Pte5rvvc9/W9v+PQDx+3ceHn4+Nb +9hcf33/P6b5nDcz4fJO/olJ82+eNTdqvS53e2BUOO0cyVy9OlwYUf3FYqisJ +btLlc5vSlCFgV1GnQFcuNGet/JiTZghrxiSTZjtvQ2Qiv61nmiV8eLjz+GRn +HRSn7htsSnUAM+ZQ74/O17DvtGKh7ZWjMNupd2W8sx+MyyWKkuIDoX5TQf6r +3AkYjnwUicHxIPPh/pfDqn/AL6+1oEH3Moh5HixaukkABabJPS22GZCkZfZg +555l6D28dMLfOhvepWnW/lgtjJwUyT/nRPIgPj/0Bf/aNdi+PWHi2asbIHl5 +IDb5mij6nbD09IdbEG1rYfJ6WhxJn+g5HhaBdHmbNP9fEthsEKHdZl4EXFHb +GS0hCUy+cNjtf7uKoOP1ATJRXgL7hSbrlx8qAqa1P2FtLoF7Q9rVxM8WQd2O +rCUv0yVwp5nVlF5tEfwxm2prNZZE/dx0VZ5hMfgZ5Bx8Fi6FW4syTPRpJWCZ +vXJy23kpvLT3/HgGuwSIpcExbVek0PRF8NpZ1RJ42W5X9uaWFJ4ciWgrMCgB +de8VAn1tUmj3K+lem00JfL158ua/0mvx+92vKqaRJfCP2M7RdXfW4o1LOk0P +B0pg8/e5QK8Baax+LHR+7HIpnDa/rPx4RBpdK4Wa1mSUAjdHrVt0WhpFBpde +0cwqBSlbR4P7y9bhaLX9J8fCUhi592RGQH0d3nY8DOerSyE5PME//dQ61KJd +mhT+XAr94myvBmEZVKS7pT3U5ILk8RpZSUkZfDlvWm2tw4XtTftaj9BkUJpp +491vwIWKwHjVVetlcKfubNi0KRfiPowP2e+TQfcX6tu/2XJBu/CB2/dcGQxu +7YqfPcmFs8bWh6T1ZfGDzpvJhioumB+4/q+eqSw6bm5wYNRwYWXYcMSe7bJY +UsIfHVzPhcz6qJsJjrKYLLagLd/ChXuWVcNLYmXxTKNHL6uXC+P7GAET72Tx +165T+frzXDhwYiquJUgOJ64ExZ4w5gEr1VRmKEoOD/Euyaohjzr/pdKlCXLI +V+Ea+mETDwJ/K700zZfDlK9FpRu28eBKxAHx+y1yeC1qpjrbngctiU+zbsjK +46ndF/6EnuCBITe9/EyNPFpud6vdX8iDzZ1tf8aa5HFF0fV9RiU82Mm3aOvB +1/LYZ7VwQozHAycbr3fwWR6zaO823i/ngVkQPTRsMQ1TXLyVWmt44C0/nbdR +hYZNg3Gpcm95MHUnoWlWg4ajms/Lyzup/ZmrjJZtoKHIVZkDZt08iPJx1CVM +aKjf8cLunw88yKhvbuK3puHkp6pRm288aHDLGq0PoKFk7aycx28eWPw2EAkO +ouERMdSrmudBW0K77oYwGtKVa3zC+Uh4d18wLD+WhnI7FoIb+UkYE/IXicqk +objDIskNS0mQIs31zOpoqCyak3JjFQmeP3+ENQnTcXSHybMBORIMfVwlvojQ +0ei1xESnPAnLhrqLBaTo+OzY54vPaCTc6KnvMCHoWHdqudwNgoS+R1dU7+rS +0f2Q3E0OmwSrKIOunIN0ZDa1P5xUJUFuvvRYjTMdc4Se6NeqkTASQAj0HqEj +fSBOLVadhBh3IXUpfzp+WOkSIapJQu223oiLMXS8qCQxKrieBG2RsxpBZXTE +2kjaGX0S+OKnGtIq6MhW1zxENyChTeCoQ8UDOt5dr0HUUfaYson68YSO6pUy +Cr8NScjvYva4dVPfH4y2tOGQ4Gud7h31gY4XaNevfqKMzcJL8gbpqPGKz8fL +hITeB9OafWN0HODcKQoDEiSyms7ZChCY+o5wj95IwqAkR8Z3GYFf1b5/4zcl +4XZCWdklYQJFotmTQZStwjPeN0sSuClzPM91E3U+F0/tjaoECvY3h8ptIcGu +7+PTA1oENvbW7z5Hmbl3z/5gXQKfB3iUD1OuNTeJqUQCO1kTsjwzEmZVVvep +7SHwww3jHClzEqavSZ9d70BgYqygiwflyVUspsFBAgfFQ14+oDw2YXB08xEC +a+tOZu+xIGHYZbOwpReBxXOrlmRR/tq5k7TyI9Ba0Ef8C+X+B07TDiHU+9C7 +649ZkvBBzSvdMZzAN1LcTaWU32edMnaNJlBgOH1hiHJHxIVwn0QCPXSCQg5u +I+HNVCrrZAqB82OxmEL5pVtuU/BVArOdHpU1U27eVrky5gaBNXEvs1W3k/C0 ++nHZhSIC10c+l3eg3KDRYpvMI5CvkW0VRflxTsdMWjmBL7R9NbiUH4l+yrh+ +n0BHVZPH7ZQfRA1z8h8RaJi8bvEs5XszUx8L6wnc3nj1l/QOKh49yxXuthKo +EdHCv48yb4d4c9VrApUxV8yPckmN/LHaTgLFNVx64ikXaimvbnxPoCpRuDeX +8s28DXeefyJQy50/roJynjjYvfpCxa9lsV8T5exoi9mOYQKPXDYX7aJ8bXZ3 +5vtxAuMjHD0+U87wOAD9UwS2dQwEjVNO7XXv/98cgW5mR7bMUr5s5Rc1ukDg +6sUxTQuUEx+HKE4sYmBJTefiRTtJuLg+5vlPQQZOZY7/WUw5/kaS1/xKBqpz +PMr+c4zktTWLxBhYd/8jTYByVGxBueBaBk7nD22fp9YL/1W2d5UcA5MFGboz +lEOPPZwTYzDw4lFm7yjl4A+N16QVGVhVF2vaT/m09SukqTHQLXLMtZ1yQH3P +AEubgRLpY5YNlP10vpxT0WOgzCH29zLK3gXjSlrGDLS7o217jbLX2l8tuhsZ +2PieDDxH2SN+sbexGQMts02cjlF2/7NK1HQbAw10A1faUHY9Ll2xdRcDpbbz +h2yg7PSJab9jDwMNFwXwxCg77tb4bePAwBNT/jf/peK7/4lB1r6DDKxRzjrc +RtlBb7PpAWcGfiKuDBZQtl1nH3PEi4FPUt2NbSlbX3BSOe7HQBGbWFEFyjsX +jrX5n2JgtsXv2zPUfTQfCBcLC2egwh7nHUmUjYtLslNSGJjkxeL/77730Iqz +tlxloIeoY5Av5cCUwuuTWQz8U24hpEu58uzNTJtCBu6P3+JTSeWP9r7stJUP +GbiVecc5j8q/V63XU6trGZg+r5trT9l707UUzycM7IgrnBOmzFXPuNzc9l/8 +wua9t5KgtPhywrlPDGTvFz1Eo/K9KTDpks4XBkZ4s6OeUvXAdTzh4uAQAxNC +g5s8Kef3XDhvOsnAuAo6r2wzCbTb0THzS5hYKXhHiEXVG4mDQWEBqkyca1t2 +5jZVv+62nw5laTFxUOlylxFlW8tTZ9p1mGjRY/Z3PVXvknROBGsDE90mXXpa +qHoovOL4qTFrJt49c6LjmREJi+4f9nY9ycQ/B5j6nnpUPqgfOi4ezMTPv3n2 +XbokmOYf9GoIY+KWO8klppRDL/3jScQxMbDo/tc1OiTMudi592UycWjzcHOG +Ngk/RCwd7eqYOBul/MCO6gddnsTLo0+ZGM+h6aRS/aK2cQ5CW5h4yVww460K +CQmBxfK3OpgojE8VtiuToNm/4sPsEBM55yPdaQrU/St7sf+aKAtHtOpVXan+ +ZCd0q7VMioVk9NPbUVT/MnEJ4zTKsjCoQFMzj+pvwmu1ZL8rsNDmt71YlwxV +D8KS3qMxC31UDdKU1pIwZLXn70FnFjrPN6LnGhJeF6o9/3mEhSvEEjM9VpNQ +JbDESPg4C/sHY3+7U/0ztrJCWvc0C7FyS8t+YRIU5aW6oy+wMPtH4WMNQRLc +xrr3qVSw8PSE5YMTVH8ePO9o57uUjQfVjFzle3jgNaRKaK5gY2Nj5teWLh7M +bJ0dHV3NxrcqlsyTHTxYLpAUdUSajUElQq2PX/FA83R9uaMaGwvfdi7XbOJB +iAtb1Go3Gz0eOXj5UPOIhMnIC5UsNqr5Ps5KjONB9tV7V7/lsVH2QNV8VzQP +lGYj3QpusTHtUdcm2SgeNdfLLhC32TjVaHAuM5Sab5St1KWfsLHoQrxogD8P +SInb55cNs9GbLyQxZT81f3w/afFZVwEfDQtsSFXjgYyW3Lllxgq43+x8pZEy +D8Z8G+pUNipgpfax1vdsHlyeXm3su00B+yRKK8VoPOj7U6i+cFABc665V/0t +wgPfFe9F18YqYOArmoz5NBcylLBve48CxiuEhBQ84MKI0zK/8lBFFLMmmMPG +XBi7vrm6JlIRr+qXn+vQ58L3d2FLn8cq4vreq6trNnDhX6vZq5+SFXHN3KOc +aFUuzBgNNay8pYgfTbNHptdxgV+sReLIS0U0a7lTYzVXCmsbLlXJ0pWQM9Nq +MFNeSv3/SPJH1ymh+rYvLyKJUhBpZV8kvytjVVi/nPvPYpCJ4e3S1VVF40wB +/fCUIkhTMVgt6qaGn5Y4ranQKYRm6Y06E4nq6BA84FfSUgCGMnUJGh0aeGjG +/J2C4U1YKZDrfyhcE1ln+PPKqvNB7qy8sT1bCyXkboxfpOeBIOufCpunWvhR +wlNeOikH1DlreSf3a6NDDfnkJysbfPtE6i351uOV3fYrqq2uwfeJ83ss0tbj +R1nh1ua8DNiq0ZhhobYBe3sFdk0z0+DRhNGvmbYNqC09UFyQcgW8VLW7X7no +oAXnut+kQzJwxpzb7QV10dCr2GLVukTYwpTaIZyri7cMXIfB7iIohsWdqtPT +Q80t2RGiXXGg7GJQw+rWw+dPNnPMnaPB5ZF7ZLmPPrKCvjwfOB0JNdntzj/E +DfCn1bpL07lnYfLWwoxGpQEKpSbuumx1BpxYxYIZOwxxb83I2ArtQPihnKx7 +e9wQG1O7z45gANzL//VpKsYIqyLC1yot8QOHzQw0kjNGlkZ1W4KJN6w7Fn1f +vdYYc9z3+WuZeID4cs+yHXs5SJqUL1gIuEH+ppDAcXsOtg/8/bn2hytoh1zc +lPwPB3dcadTb9NEVdo6Tb7sOcVD/+pIVR6td4VzH1KyTJwfLw4+8hlOu8DM3 +1DTwLAd/uYn1Lhl3gW6j5Dc3izn4SjnKred/zuB+Ij/TgstBi3n/kfJOZ5jm +3nUZITmY2/ZNKf2pM4gQXTNaFRycOm1872yBM2xbJitTXcvBssyX0a/dnOFh ++03nN285GPZtnu415ASWK++pBXRxMLtuJH282wm6tj6blurhoGfgSd+Q504w +WTUcc+AjB5OWZ2lUlDiBWo5m6bchDs7IqJvmHXeCh90bA86PcvBiwnf2KUdq +PbHdoDHOwWW7RnGvtRO4Rp945T/FQQkRoYX166n1as9lSP7kYHeZS5oW0wnC +51KdquY4qPvOx9pA3AlWbyhU3f+Hg/D0JXPbEie4fqxqamGB2r8VS9ht5jD8 +Hx58blY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06369054269508807}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06369054269508807}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4Vu0fAHAvLUnDTsbznGfYs2yP7zeV0BBJ8b6VMotkpTIiI6thlJUy +S9bzHCVKiZAktISICvUrK71WVPzO+9e5Pte5rvvc9/W9v+PQDx+3ceHn4+Nb +9hcf33/P6b5nDcz4fJO/olJ82+eNTdqvS53e2BUOO0cyVy9OlwYUf3FYqisJ +btLlc5vSlCFgV1GnQFcuNGet/JiTZghrxiSTZjtvQ2Qiv61nmiV8eLjz+GRn +HRSn7htsSnUAM+ZQ74/O17DvtGKh7ZWjMNupd2W8sx+MyyWKkuIDoX5TQf6r +3AkYjnwUicHxIPPh/pfDqn/AL6+1oEH3Moh5HixaukkABabJPS22GZCkZfZg +555l6D28dMLfOhvepWnW/lgtjJwUyT/nRPIgPj/0Bf/aNdi+PWHi2asbIHl5 +IDb5mij6nbD09IdbEG1rYfJ6WhxJn+g5HhaBdHmbNP9fEthsEKHdZl4EXFHb +GS0hCUy+cNjtf7uKoOP1ATJRXgL7hSbrlx8qAqa1P2FtLoF7Q9rVxM8WQd2O +rCUv0yVwp5nVlF5tEfwxm2prNZZE/dx0VZ5hMfgZ5Bx8Fi6FW4syTPRpJWCZ +vXJy23kpvLT3/HgGuwSIpcExbVek0PRF8NpZ1RJ42W5X9uaWFJ4ciWgrMCgB +de8VAn1tUmj3K+lem00JfL158ua/0mvx+92vKqaRJfCP2M7RdXfW4o1LOk0P +B0pg8/e5QK8Baax+LHR+7HIpnDa/rPx4RBpdK4Wa1mSUAjdHrVt0WhpFBpde +0cwqBSlbR4P7y9bhaLX9J8fCUhi592RGQH0d3nY8DOerSyE5PME//dQ61KJd +mhT+XAr94myvBmEZVKS7pT3U5ILk8RpZSUkZfDlvWm2tw4XtTftaj9BkUJpp +491vwIWKwHjVVetlcKfubNi0KRfiPowP2e+TQfcX6tu/2XJBu/CB2/dcGQxu +7YqfPcmFs8bWh6T1ZfGDzpvJhioumB+4/q+eqSw6bm5wYNRwYWXYcMSe7bJY +UsIfHVzPhcz6qJsJjrKYLLagLd/ChXuWVcNLYmXxTKNHL6uXC+P7GAET72Tx +165T+frzXDhwYiquJUgOJ64ExZ4w5gEr1VRmKEoOD/Euyaohjzr/pdKlCXLI +V+Ea+mETDwJ/K700zZfDlK9FpRu28eBKxAHx+y1yeC1qpjrbngctiU+zbsjK +46ndF/6EnuCBITe9/EyNPFpud6vdX8iDzZ1tf8aa5HFF0fV9RiU82Mm3aOvB +1/LYZ7VwQozHAycbr3fwWR6zaO823i/ngVkQPTRsMQ1TXLyVWmt44C0/nbdR +hYZNg3Gpcm95MHUnoWlWg4ajms/Lyzup/ZmrjJZtoKHIVZkDZt08iPJx1CVM +aKjf8cLunw88yKhvbuK3puHkp6pRm288aHDLGq0PoKFk7aycx28eWPw2EAkO +ouERMdSrmudBW0K77oYwGtKVa3zC+Uh4d18wLD+WhnI7FoIb+UkYE/IXicqk +objDIskNS0mQIs31zOpoqCyak3JjFQmeP3+ENQnTcXSHybMBORIMfVwlvojQ +0ei1xESnPAnLhrqLBaTo+OzY54vPaCTc6KnvMCHoWHdqudwNgoS+R1dU7+rS +0f2Q3E0OmwSrKIOunIN0ZDa1P5xUJUFuvvRYjTMdc4Se6NeqkTASQAj0HqEj +fSBOLVadhBh3IXUpfzp+WOkSIapJQu223oiLMXS8qCQxKrieBG2RsxpBZXTE +2kjaGX0S+OKnGtIq6MhW1zxENyChTeCoQ8UDOt5dr0HUUfaYson68YSO6pUy +Cr8NScjvYva4dVPfH4y2tOGQ4Gud7h31gY4XaNevfqKMzcJL8gbpqPGKz8fL +hITeB9OafWN0HODcKQoDEiSyms7ZChCY+o5wj95IwqAkR8Z3GYFf1b5/4zcl +4XZCWdklYQJFotmTQZStwjPeN0sSuClzPM91E3U+F0/tjaoECvY3h8ptIcGu +7+PTA1oENvbW7z5Hmbl3z/5gXQKfB3iUD1OuNTeJqUQCO1kTsjwzEmZVVvep +7SHwww3jHClzEqavSZ9d70BgYqygiwflyVUspsFBAgfFQ14+oDw2YXB08xEC +a+tOZu+xIGHYZbOwpReBxXOrlmRR/tq5k7TyI9Ba0Ef8C+X+B07TDiHU+9C7 +649ZkvBBzSvdMZzAN1LcTaWU32edMnaNJlBgOH1hiHJHxIVwn0QCPXSCQg5u +I+HNVCrrZAqB82OxmEL5pVtuU/BVArOdHpU1U27eVrky5gaBNXEvs1W3k/C0 ++nHZhSIC10c+l3eg3KDRYpvMI5CvkW0VRflxTsdMWjmBL7R9NbiUH4l+yrh+ +n0BHVZPH7ZQfRA1z8h8RaJi8bvEs5XszUx8L6wnc3nj1l/QOKh49yxXuthKo +EdHCv48yb4d4c9VrApUxV8yPckmN/LHaTgLFNVx64ikXaimvbnxPoCpRuDeX +8s28DXeefyJQy50/roJynjjYvfpCxa9lsV8T5exoi9mOYQKPXDYX7aJ8bXZ3 +5vtxAuMjHD0+U87wOAD9UwS2dQwEjVNO7XXv/98cgW5mR7bMUr5s5Rc1ukDg +6sUxTQuUEx+HKE4sYmBJTefiRTtJuLg+5vlPQQZOZY7/WUw5/kaS1/xKBqpz +PMr+c4zktTWLxBhYd/8jTYByVGxBueBaBk7nD22fp9YL/1W2d5UcA5MFGboz +lEOPPZwTYzDw4lFm7yjl4A+N16QVGVhVF2vaT/m09SukqTHQLXLMtZ1yQH3P +AEubgRLpY5YNlP10vpxT0WOgzCH29zLK3gXjSlrGDLS7o217jbLX2l8tuhsZ +2PieDDxH2SN+sbexGQMts02cjlF2/7NK1HQbAw10A1faUHY9Ll2xdRcDpbbz +h2yg7PSJab9jDwMNFwXwxCg77tb4bePAwBNT/jf/peK7/4lB1r6DDKxRzjrc +RtlBb7PpAWcGfiKuDBZQtl1nH3PEi4FPUt2NbSlbX3BSOe7HQBGbWFEFyjsX +jrX5n2JgtsXv2zPUfTQfCBcLC2egwh7nHUmUjYtLslNSGJjkxeL/77730Iqz +tlxloIeoY5Av5cCUwuuTWQz8U24hpEu58uzNTJtCBu6P3+JTSeWP9r7stJUP +GbiVecc5j8q/V63XU6trGZg+r5trT9l707UUzycM7IgrnBOmzFXPuNzc9l/8 +wua9t5KgtPhywrlPDGTvFz1Eo/K9KTDpks4XBkZ4s6OeUvXAdTzh4uAQAxNC +g5s8Kef3XDhvOsnAuAo6r2wzCbTb0THzS5hYKXhHiEXVG4mDQWEBqkyca1t2 +5jZVv+62nw5laTFxUOlylxFlW8tTZ9p1mGjRY/Z3PVXvknROBGsDE90mXXpa +qHoovOL4qTFrJt49c6LjmREJi+4f9nY9ycQ/B5j6nnpUPqgfOi4ezMTPv3n2 +XbokmOYf9GoIY+KWO8klppRDL/3jScQxMbDo/tc1OiTMudi592UycWjzcHOG +Ngk/RCwd7eqYOBul/MCO6gddnsTLo0+ZGM+h6aRS/aK2cQ5CW5h4yVww460K +CQmBxfK3OpgojE8VtiuToNm/4sPsEBM55yPdaQrU/St7sf+aKAtHtOpVXan+ +ZCd0q7VMioVk9NPbUVT/MnEJ4zTKsjCoQFMzj+pvwmu1ZL8rsNDmt71YlwxV +D8KS3qMxC31UDdKU1pIwZLXn70FnFjrPN6LnGhJeF6o9/3mEhSvEEjM9VpNQ +JbDESPg4C/sHY3+7U/0ztrJCWvc0C7FyS8t+YRIU5aW6oy+wMPtH4WMNQRLc +xrr3qVSw8PSE5YMTVH8ePO9o57uUjQfVjFzle3jgNaRKaK5gY2Nj5teWLh7M +bJ0dHV3NxrcqlsyTHTxYLpAUdUSajUElQq2PX/FA83R9uaMaGwvfdi7XbOJB +iAtb1Go3Gz0eOXj5UPOIhMnIC5UsNqr5Ps5KjONB9tV7V7/lsVH2QNV8VzQP +lGYj3QpusTHtUdcm2SgeNdfLLhC32TjVaHAuM5Sab5St1KWfsLHoQrxogD8P +SInb55cNs9GbLyQxZT81f3w/afFZVwEfDQtsSFXjgYyW3Lllxgq43+x8pZEy +D8Z8G+pUNipgpfax1vdsHlyeXm3su00B+yRKK8VoPOj7U6i+cFABc665V/0t +wgPfFe9F18YqYOArmoz5NBcylLBve48CxiuEhBQ84MKI0zK/8lBFFLMmmMPG +XBi7vrm6JlIRr+qXn+vQ58L3d2FLn8cq4vreq6trNnDhX6vZq5+SFXHN3KOc +aFUuzBgNNay8pYgfTbNHptdxgV+sReLIS0U0a7lTYzVXCmsbLlXJ0pWQM9Nq +MFNeSv3/SPJH1ymh+rYvLyKJUhBpZV8kvytjVVi/nPvPYpCJ4e3S1VVF40wB +/fCUIkhTMVgt6qaGn5Y4ranQKYRm6Y06E4nq6BA84FfSUgCGMnUJGh0aeGjG +/J2C4U1YKZDrfyhcE1ln+PPKqvNB7qy8sT1bCyXkboxfpOeBIOufCpunWvhR +wlNeOikH1DlreSf3a6NDDfnkJysbfPtE6i351uOV3fYrqq2uwfeJ83ss0tbj +R1nh1ua8DNiq0ZhhobYBe3sFdk0z0+DRhNGvmbYNqC09UFyQcgW8VLW7X7no +oAXnut+kQzJwxpzb7QV10dCr2GLVukTYwpTaIZyri7cMXIfB7iIohsWdqtPT +Q80t2RGiXXGg7GJQw+rWw+dPNnPMnaPB5ZF7ZLmPPrKCvjwfOB0JNdntzj/E +DfCn1bpL07lnYfLWwoxGpQEKpSbuumx1BpxYxYIZOwxxb83I2ArtQPihnKx7 +e9wQG1O7z45gANzL//VpKsYIqyLC1yot8QOHzQw0kjNGlkZ1W4KJN6w7Fn1f +vdYYc9z3+WuZeID4cs+yHXs5SJqUL1gIuEH+ppDAcXsOtg/8/bn2hytoh1zc +lPwPB3dcadTb9NEVdo6Tb7sOcVD/+pIVR6td4VzH1KyTJwfLw4+8hlOu8DM3 +1DTwLAd/uYn1Lhl3gW6j5Dc3izn4SjnKred/zuB+Ij/TgstBi3n/kfJOZ5jm +3nUZITmY2/ZNKf2pM4gQXTNaFRycOm1872yBM2xbJitTXcvBssyX0a/dnOFh ++03nN285GPZtnu415ASWK++pBXRxMLtuJH282wm6tj6blurhoGfgSd+Q504w +WTUcc+AjB5OWZ2lUlDiBWo5m6bchDs7IqJvmHXeCh90bA86PcvBiwnf2KUdq +PbHdoDHOwWW7RnGvtRO4Rp945T/FQQkRoYX166n1as9lSP7kYHeZS5oW0wnC +51KdquY4qPvOx9pA3AlWbyhU3f+Hg/D0JXPbEie4fqxqamGB2r8VS9ht5jD8 +Hx58blY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06369054269508807}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06369054269508807}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939116576326847`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"eaba24d7-620a-4380-9738-49541306e8d9"] +}, Open ]], Cell[CellGroupData[{ @@ -2837,14 +7975,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ -ac86e3a0e3fd"], + CellChangeTimes->{3.9918501819649506`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[BoxData["10.362747935330784`"], "Output", - CellChangeTimes->{3.9913453868532257`*^9}, - CellLabel-> - "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +Cell[BoxData["11.613237631253016`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9, 3.993911657669715*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"a351bf50-4c20-4251-82d4-a4ccf332deb2"] }, Open ]], Cell[CellGroupData[{ @@ -2900,171 +8036,158 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ -da901e49f6f1"], + CellChangeTimes->{3.991850184857586*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.904607396701518`*^-259\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 421, 449, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387062414*^9}, + 2, 99, 13, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.993911657786788*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], +In[99]:=",ExpressionUUID->"9d3dc5e4-443c-4d81-bc23-10ac0c3d65ea"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.696754303754148`*^-269\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 421, 450, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387076412*^9}, + 2, 99, 14, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.993911657794146*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +In[99]:=",ExpressionUUID->"9cefbd51-2850-4ea6-81aa-875466d3d63f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.616841466080842`*^-279\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 421, 451, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387088339*^9}, +\"", 2, 99, 15, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.9939116578017607`*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +In[99]:=",ExpressionUUID->"dca8c5b8-e941-486c-89c2-b98d8fa38644"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913453870973415`*^9}, +during this calculation.\"", 2, 99, 16, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.993911657810419*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +In[99]:=",ExpressionUUID->"e205f72e-044f-4d1e-8b54-b23d5e4150e4"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Fe0bB/AiUiEl+8E5cw4KZSsSx30nJbQibUJ2JaJS9i1RqSRtyJZE +ljPIWtlSiagka1Hq7e2VtSyl5Pf8/phrrs81c808c89zf58ZlqO3pQvfnDlz +Zsn2//1k7/N6zvlMo8/Bmy+4phkZtaVI+6/vjIAdqa6Bi6UZgBIvHaU74+HR +/eDwl1Lq4LfjXgd/ZwaUmNf9uSNlCEuGpeJ/dRRBo/lVucNSW6Dv4Tbv8Y46 ++Gt3XbtE0hY2cQbej3W0wnbvkaif4p7wq0Pv6mhHP6R8FOiVWBAEjzfczXyd +8QN8REY7E+ddAEZfxRdH9Rm4QR94yrW+Css87e/N38CPfh9b+XQfJ0G81qYH +23YJ4fmkkKlXGunQdUOzZkxMBJXCo/QVxTLhfGboSz6ZJVj/QfZ8/kAWSCV8 +OnvlljguU4PR4cM5EG1tZtQ6KYEKmS3KvFO5IHu/RZZvriTmDUmVjYblQoG4 +9ZTWIklMqdR5pn42F9pb7ejLipJY9VvAKeFmLnB2Hqd2bpbEhg9HvViVuVC3 +NVXw1U1J/JK/VkB7OhdmNk20NBtKYYuRgIyKXx4c00+3fx4hjdRosJDugXww +TxMdt4iVxpr8/qxkp3yg5gfFtFyVxoOK13f89ciHV202hW+ypVFHZGN9kV8+ +rDoqzN/bIo37bu9nfbiUD1+zTmZ9l5XBC5Wqtltq88F22bYhuWIZ/Cyz6JA7 +swB0Ah+EpzyUwUG9iUcaygWwsH+5JOupDMq3BS79rlYAFTx+UO6SwS/ZTg/d +9ApA0qIiTnNWBv1bRESkthXAq3DO6o0Wsii4pcYnKqAATEamA7w+yeK6SpPF +aS8LwH9zgmrtoCxqbPPUzG8rgIL0ld3ik7Ko9udXSElXAUhbO+hXCMnh7+qZ +22WfCmCw/MkU/yo5xMwviyKmCuBKRNzxm6fkUFxpo5mGAg/6JZS96kUYeFq6 +6tA3Nx5IeVfLS0kxkAxH3c6TB1sa9jR7MBnYWN4g++IoD0oDzqsv1mFgom9n +2E1/HpzrGx3Yu4eBNcXvfKbP8UA754HbSAYDe/oiZtvyeBBuuPOg7Fp5vCtg +3jA0yIPNdinf9YzlMZPxbVRmjAeiYd8id22Rxy9Bn3xwggfJj6Oy4hzk8fZ2 +wZCgGR6Um1d+Ezwrj8o6rU6dgjSM7mH7/eiSx6ID89dESdJgd2Li3ItABfxw +cqFpnQ4NSteNGQNRCpj/vGhtyBqaPP+l/PlxChh5sspWT4+GgD8rXhlnKmBA ++2/D9HU0XI20k6h4oYBVtfIuVutpeHH5WeodeUU8ash3SWsbDesKbt4PqVZE +Z/46sw4XGkw6WmaGGxRRfAHLg3KjYduceab2rYro096qeNidBidLry74RxED +Pc2tJw7RsCmQFRomwESt2EMfB71pOKo4eXu9GhPfR25tdvenYaI4ruGXBhM9 +k+H0hQAyvs1qQ4WrmVj1V6eDF0hDlI+DLmXExJBRR8uhYBoSHzc28O1kYl5A +cZZFBA31bqlDj/2YqNFWsfjaORrM/ugvDQpk4szXA/kJ52loiWvTXR3GxCXv +cDAuloauigVhmWeZaHpMaXvERRqGFx1fGpXMxJU/1xRvjqdBmt6st6mOiY96 +r5s436Thlsmn/X+fMvH3mzomN5EGqis4rLSJiSV3v98WT6JhJV/xc+W3TFTt +/JxWkUyDsbW87fyvTOz73RT6XyoNnj/HwhpEWOh9ibGi6w6pp4+r5JelLFRX +GU9MyqJBaKA7l1+ahZqjUpb779Jwp+dxuxHFwhE32/jWbBp6q66ql+iy0Gb5 +PY+0XBry9BbWtRqwsD2Zt2xrHqkXHbJ7FFm4dGLDgiliyQy3CDULFqY0mL42 +LqBhe5R+Z7o9C6uuqgxW0DQo/M0/Uu1Mrjey8MeOQjI//Cj+9x4szO75ZvoP +cYz7olXSx1mokj3wXqCYhhqL95EXY1j4yqavUbmEhov1O2XyLrDw8sv8ndnE +ttynBc/jWXirRlxNpZSGX6t4XfNusXDR3dkORhkN2kvDNQILWThVPqL6tZyG +Oecn6m+UsrA/TGS3dQV5P/yH9pU+YOFH8ejuR8SHJyyjxp6wsFrzz38xlaRe +Xs9kFzex0CxT8+QAsdC/BrT6Kxb6l2jbmT2gIbOT0+PWzcLWZGnDWWLfnTeP +RvWxsDdy3WqbhzRgo4jg7c/k/BVZMfeI3z+Y1OwdZuFA5/vNFo9IvVIbzljz +U7jQK2btkSoaPktxGb5CFC4+kc/hERfFFRZeEqFQa1bbd5h4e0Tiu0YpCktG +JnVcqkk9f4v6fmVQyHcxIieZePBY5HxBisLjCgsiXxPHuHhqr1enUMom21mn +hgab3g/P7LQorFMR93Ig5uzedSBIl8IykO89R/z95fPvNw0ozDDwKSkirtls +FFOGFJ7cVTneQXyxtkj+7UYKxx0zk6eJbdepFH83p1D3bU++bC0NqsVJm8V2 +UGhZLrJiLfEvNbHelbsoHC76V9SKePKWbLjOPgoNqjXGDxGPL1bi6NtTuMTF ++UAY8Vi4xjMjZwrnpqtZXCEe/qF/yMSDwmszalW3ib+5mIiYe5H7xwuXFRJ/ +7dhGbz9GYYDgCd1HxP+Y7bXadYpCq3Mi3KfE/Q+cJvcFU8h6H9L0grhvpddN +hwgKY8x8+18Rv0s9ZegaTWHHncsRrcRdSyL7DsdSmGQVnfeauD3yQoTPZQrN +4a9DC/GbietKJ69R2NiXntZA/MotoyEoiUKmroJnDXFzV97hiDQKf71QrC8h +brQoE425Q+H2cqucbOJnj2oLL9yjcNFVN8ZN4nqNF9ZXeBReiVmgEE1cm94+ +deM+hV74tcCXuEr8Y2JKBYVtY0Uv9xM/iPrGzayi0GavTLgxcfnUxIecxxT6 +VjY9ViYu6lmoUtJM4V2pztl/yfvhbZVorGylsEn/6nQ9cV614pGaDuI057Op +xFm3Vxc3faQwyljQdSvxbQmwef2FwueNUMIkTos2+9X+jUI17X1JY2Q+JR62 +g/4JCl9+ENCIJb7+3r3/32lSnzi+3l3ECduPRQ3NUhg0XKosT3xRJ6bp5wI2 +OsmzYzLJ/D1/J97rrygbGc7mGc7EMVK3lsxbxsZ3JkJ7KeKI34W7Fyuw8ZaJ +euo10h+hRx5OL2OzMaFbQHMrcVDf01uyy9lIT9k6zCX2e9zzSUmbjZEqRzMc +SX8dPi9w1HATG1cFP6wRIv3oPrNY3NiCjf4/xBzzSP+6esuWmu5gY7N7Q/ZW +YgcrjT+W+9h409h2xVnS/9Zye2M8vNj4SFpS+DPJD8PcvLRr19i4sMtyrup9 +GnqYuakbk9hYNavKLiT5FHAtJ2U8lY0H5N036BKXhWclW+awUWo2IXxdEcmf +PWk3RB+y0bvdVVCN5N8KgYS4Mx/ZWKN/rCaP5GlDQPylNV/YGHCuetkyYtfR +uIufB9gYKnbXx/8eyZeeC7HG42yUH/hgapRDA7MoOuavIAd71xqfokl+S9oH +hvmpc/Dv6Z5AvXQaStr8Q5W0OCj85FR2aBp5HvNTIW1rOLh3nsHXJ2Q9iF9z +IkgbOLjrW8/tLSk0iAh7nxreycGHDnYKG8h6Mq/C8ajrSQ56xPaUtSWQflxq +7mBTx8E7rV2ml87Q0OlJvTr0jIOqnP4jZ6JIPjydhtAXHHxzSexQ4Gka4gJy +FbPbOVgW6v/VjqyPmv3Cfb8GOLhF4ImkcAgNXoUvD9wSV8KFjOp5c07QMLB9 +1/7PzkqYP3Y/wfogDa05K5t+eijhmu1PTYQcaKjkFzQQ8VbCt19Ofa2wo+Fs +Wamsrr8SZtyKFpWypWG5onR39AUlPHbvyUi5DQ1uw9171EqVcP9oYk+SBcnT +WAcb3/nKOGA/KfoP+T7xGlCnNIWVMfzRnpBj2jRMmf4aGhJTxvg5t2GOFg0L ++eOjPGSV8bmHwoNlq8j4/R/fd1ipjIKygnkrltMQ7KIsvt1KGXPZn5fPY5D6 +Gw2+VEtVRoeydu1wPrL+j5w0+0dXBd0aTT3ir/KAoaVwRshQBXMnUOPaZR4M ++9bXqa1XQf00zZBrF3iQMClm6Guhgq/XHK+OjeJB70zOqll7FYy9wV604wQP +fIXficucVUHLiL5MHWseJK7A3i09KqgnkdsbvJgHg05Cx+6HLkeZfYry14MK +yP+GFF903QosfrGDM9cgH5Y2K1+kR1TxeoKkyMmhXGDE8Hbo6qqjr07FCY7b +Pbihpi8m7rYSGars2qYv2dAou37Nj8ur8KPF4WfXDt6FdYy6OI12DUyxsvCf +Kb4DovwZxw9GaOIbc9PYp6xMUAhXNNyrrIVSMnwLxXwzYIGSbanlMy08eLXB +IuBNGqziyvBOHtDGT9Ud6/IqUsC3d+lj8zk6eOS1pqx+QRKM/IjdZXZDB5er +hd8on74BphpPE81WrsbIPbZ6pLmg6ofB76mW1eidfm7Xz5Er4KWu3f3aZQ3q +PWuWffvwMnCHndv2LtDFMMvjQwckLsFGjvRWkQxd/PnzXBLD5jwsDzt3qk5P +Dx89e7lBeiYaVF30q5W69dCkeUPG75LT4FLlfvq+z1qM/G9GbvnPcKhOa3Me +k9DH1tLdax5khcB49uyURpk+erEdr+GyAHBSyl2QuHUdrkjebGBv5Qdjqld0 +i0bXYW5tpV9EvS+UZ/7+OBFjgLWxD+YerPeGfSZsNFAwxKi1jSbXuw+B3JHo +ilU1hvje1ls72cQVJBZ6Fm7dzcWhpVnRkcmOkLkhOGB0LxeH633lfC44gnbw +xQ1XbLm4/94NI48QR9g2Sr/tPMhFscBIOX8HRzjTPvHLyZOLK5o2xkoqOcLP +jFDjgHAuxjWr6mygD0K3wZU3WblcnJ+/3tSgxQHcT2QmmxVwcTpY/7J3jQNM +FpS4DNJc1JpfW5Rf5ABLqc4prVIudgUKuppedwALIXnGoxouqpmcGx1xcICH +bVnOb95y0TEux4M1aA/mouUr/Tq56By0s7j6tT10mj6flO4hx8ckp4+W2cN4 +5bcYuw9cFKX4rYQj7WFlumb+fwNc3CccMMuRs4eH3ev9Yoe42LxceHbvXHK9 +ZVagMcrFvZU6men/2oFr9InXxye4OGXZWOx+3w7Ga84kSv3kYmXzGaGviXYQ +MX3dqXKai5F3j3X4h9uB2Ooc9QMzXKw+Uyuh4G4HKUcqJ2ZnuXh40Z3ytm12 +8D/VeFOk "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3078,130 +8201,114 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= +1:eJwV13k4Fe0bB/AiUiEl+8E5cw4KZSsSx30nJbQibUJ2JaJS9i1RqSRtyJZE +ljPIWtlSiagka1Hq7e2VtSyl5Pf8/phrrs81c808c89zf58ZlqO3pQvfnDlz +Zsn2//1k7/N6zvlMo8/Bmy+4phkZtaVI+6/vjIAdqa6Bi6UZgBIvHaU74+HR +/eDwl1Lq4LfjXgd/ZwaUmNf9uSNlCEuGpeJ/dRRBo/lVucNSW6Dv4Tbv8Y46 ++Gt3XbtE0hY2cQbej3W0wnbvkaif4p7wq0Pv6mhHP6R8FOiVWBAEjzfczXyd +8QN8REY7E+ddAEZfxRdH9Rm4QR94yrW+Css87e/N38CPfh9b+XQfJ0G81qYH +23YJ4fmkkKlXGunQdUOzZkxMBJXCo/QVxTLhfGboSz6ZJVj/QfZ8/kAWSCV8 +OnvlljguU4PR4cM5EG1tZtQ6KYEKmS3KvFO5IHu/RZZvriTmDUmVjYblQoG4 +9ZTWIklMqdR5pn42F9pb7ejLipJY9VvAKeFmLnB2Hqd2bpbEhg9HvViVuVC3 +NVXw1U1J/JK/VkB7OhdmNk20NBtKYYuRgIyKXx4c00+3fx4hjdRosJDugXww +TxMdt4iVxpr8/qxkp3yg5gfFtFyVxoOK13f89ciHV202hW+ypVFHZGN9kV8+ +rDoqzN/bIo37bu9nfbiUD1+zTmZ9l5XBC5Wqtltq88F22bYhuWIZ/Cyz6JA7 +swB0Ah+EpzyUwUG9iUcaygWwsH+5JOupDMq3BS79rlYAFTx+UO6SwS/ZTg/d +9ApA0qIiTnNWBv1bRESkthXAq3DO6o0Wsii4pcYnKqAATEamA7w+yeK6SpPF +aS8LwH9zgmrtoCxqbPPUzG8rgIL0ld3ik7Ko9udXSElXAUhbO+hXCMnh7+qZ +22WfCmCw/MkU/yo5xMwviyKmCuBKRNzxm6fkUFxpo5mGAg/6JZS96kUYeFq6 +6tA3Nx5IeVfLS0kxkAxH3c6TB1sa9jR7MBnYWN4g++IoD0oDzqsv1mFgom9n +2E1/HpzrGx3Yu4eBNcXvfKbP8UA754HbSAYDe/oiZtvyeBBuuPOg7Fp5vCtg +3jA0yIPNdinf9YzlMZPxbVRmjAeiYd8id22Rxy9Bn3xwggfJj6Oy4hzk8fZ2 +wZCgGR6Um1d+Ezwrj8o6rU6dgjSM7mH7/eiSx6ID89dESdJgd2Li3ItABfxw +cqFpnQ4NSteNGQNRCpj/vGhtyBqaPP+l/PlxChh5sspWT4+GgD8rXhlnKmBA ++2/D9HU0XI20k6h4oYBVtfIuVutpeHH5WeodeUU8ash3SWsbDesKbt4PqVZE +Z/46sw4XGkw6WmaGGxRRfAHLg3KjYduceab2rYro096qeNidBidLry74RxED +Pc2tJw7RsCmQFRomwESt2EMfB71pOKo4eXu9GhPfR25tdvenYaI4ruGXBhM9 +k+H0hQAyvs1qQ4WrmVj1V6eDF0hDlI+DLmXExJBRR8uhYBoSHzc28O1kYl5A +cZZFBA31bqlDj/2YqNFWsfjaORrM/ugvDQpk4szXA/kJ52loiWvTXR3GxCXv +cDAuloauigVhmWeZaHpMaXvERRqGFx1fGpXMxJU/1xRvjqdBmt6st6mOiY96 +r5s436Thlsmn/X+fMvH3mzomN5EGqis4rLSJiSV3v98WT6JhJV/xc+W3TFTt +/JxWkUyDsbW87fyvTOz73RT6XyoNnj/HwhpEWOh9ibGi6w6pp4+r5JelLFRX +GU9MyqJBaKA7l1+ahZqjUpb779Jwp+dxuxHFwhE32/jWbBp6q66ql+iy0Gb5 +PY+0XBry9BbWtRqwsD2Zt2xrHqkXHbJ7FFm4dGLDgiliyQy3CDULFqY0mL42 +LqBhe5R+Z7o9C6uuqgxW0DQo/M0/Uu1Mrjey8MeOQjI//Cj+9x4szO75ZvoP +cYz7olXSx1mokj3wXqCYhhqL95EXY1j4yqavUbmEhov1O2XyLrDw8sv8ndnE +ttynBc/jWXirRlxNpZSGX6t4XfNusXDR3dkORhkN2kvDNQILWThVPqL6tZyG +Oecn6m+UsrA/TGS3dQV5P/yH9pU+YOFH8ejuR8SHJyyjxp6wsFrzz38xlaRe +Xs9kFzex0CxT8+QAsdC/BrT6Kxb6l2jbmT2gIbOT0+PWzcLWZGnDWWLfnTeP +RvWxsDdy3WqbhzRgo4jg7c/k/BVZMfeI3z+Y1OwdZuFA5/vNFo9IvVIbzljz +U7jQK2btkSoaPktxGb5CFC4+kc/hERfFFRZeEqFQa1bbd5h4e0Tiu0YpCktG +JnVcqkk9f4v6fmVQyHcxIieZePBY5HxBisLjCgsiXxPHuHhqr1enUMom21mn +hgab3g/P7LQorFMR93Ig5uzedSBIl8IykO89R/z95fPvNw0ozDDwKSkirtls +FFOGFJ7cVTneQXyxtkj+7UYKxx0zk6eJbdepFH83p1D3bU++bC0NqsVJm8V2 +UGhZLrJiLfEvNbHelbsoHC76V9SKePKWbLjOPgoNqjXGDxGPL1bi6NtTuMTF ++UAY8Vi4xjMjZwrnpqtZXCEe/qF/yMSDwmszalW3ib+5mIiYe5H7xwuXFRJ/ +7dhGbz9GYYDgCd1HxP+Y7bXadYpCq3Mi3KfE/Q+cJvcFU8h6H9L0grhvpddN +hwgKY8x8+18Rv0s9ZegaTWHHncsRrcRdSyL7DsdSmGQVnfeauD3yQoTPZQrN +4a9DC/GbietKJ69R2NiXntZA/MotoyEoiUKmroJnDXFzV97hiDQKf71QrC8h +brQoE425Q+H2cqucbOJnj2oLL9yjcNFVN8ZN4nqNF9ZXeBReiVmgEE1cm94+ +deM+hV74tcCXuEr8Y2JKBYVtY0Uv9xM/iPrGzayi0GavTLgxcfnUxIecxxT6 +VjY9ViYu6lmoUtJM4V2pztl/yfvhbZVorGylsEn/6nQ9cV614pGaDuI057Op +xFm3Vxc3faQwyljQdSvxbQmwef2FwueNUMIkTos2+9X+jUI17X1JY2Q+JR62 +g/4JCl9+ENCIJb7+3r3/32lSnzi+3l3ECduPRQ3NUhg0XKosT3xRJ6bp5wI2 +OsmzYzLJ/D1/J97rrygbGc7mGc7EMVK3lsxbxsZ3JkJ7KeKI34W7Fyuw8ZaJ +euo10h+hRx5OL2OzMaFbQHMrcVDf01uyy9lIT9k6zCX2e9zzSUmbjZEqRzMc +SX8dPi9w1HATG1cFP6wRIv3oPrNY3NiCjf4/xBzzSP+6esuWmu5gY7N7Q/ZW +YgcrjT+W+9h409h2xVnS/9Zye2M8vNj4SFpS+DPJD8PcvLRr19i4sMtyrup9 +GnqYuakbk9hYNavKLiT5FHAtJ2U8lY0H5N036BKXhWclW+awUWo2IXxdEcmf +PWk3RB+y0bvdVVCN5N8KgYS4Mx/ZWKN/rCaP5GlDQPylNV/YGHCuetkyYtfR +uIufB9gYKnbXx/8eyZeeC7HG42yUH/hgapRDA7MoOuavIAd71xqfokl+S9oH +hvmpc/Dv6Z5AvXQaStr8Q5W0OCj85FR2aBp5HvNTIW1rOLh3nsHXJ2Q9iF9z +IkgbOLjrW8/tLSk0iAh7nxreycGHDnYKG8h6Mq/C8ajrSQ56xPaUtSWQflxq +7mBTx8E7rV2ml87Q0OlJvTr0jIOqnP4jZ6JIPjydhtAXHHxzSexQ4Gka4gJy +FbPbOVgW6v/VjqyPmv3Cfb8GOLhF4ImkcAgNXoUvD9wSV8KFjOp5c07QMLB9 +1/7PzkqYP3Y/wfogDa05K5t+eijhmu1PTYQcaKjkFzQQ8VbCt19Ofa2wo+Fs +Wamsrr8SZtyKFpWypWG5onR39AUlPHbvyUi5DQ1uw9171EqVcP9oYk+SBcnT +WAcb3/nKOGA/KfoP+T7xGlCnNIWVMfzRnpBj2jRMmf4aGhJTxvg5t2GOFg0L ++eOjPGSV8bmHwoNlq8j4/R/fd1ipjIKygnkrltMQ7KIsvt1KGXPZn5fPY5D6 +Gw2+VEtVRoeydu1wPrL+j5w0+0dXBd0aTT3ir/KAoaVwRshQBXMnUOPaZR4M ++9bXqa1XQf00zZBrF3iQMClm6Guhgq/XHK+OjeJB70zOqll7FYy9wV604wQP +fIXficucVUHLiL5MHWseJK7A3i09KqgnkdsbvJgHg05Cx+6HLkeZfYry14MK +yP+GFF903QosfrGDM9cgH5Y2K1+kR1TxeoKkyMmhXGDE8Hbo6qqjr07FCY7b +Pbihpi8m7rYSGars2qYv2dAou37Nj8ur8KPF4WfXDt6FdYy6OI12DUyxsvCf +Kb4DovwZxw9GaOIbc9PYp6xMUAhXNNyrrIVSMnwLxXwzYIGSbanlMy08eLXB +IuBNGqziyvBOHtDGT9Ud6/IqUsC3d+lj8zk6eOS1pqx+QRKM/IjdZXZDB5er +hd8on74BphpPE81WrsbIPbZ6pLmg6ofB76mW1eidfm7Xz5Er4KWu3f3aZQ3q +PWuWffvwMnCHndv2LtDFMMvjQwckLsFGjvRWkQxd/PnzXBLD5jwsDzt3qk5P +Dx89e7lBeiYaVF30q5W69dCkeUPG75LT4FLlfvq+z1qM/G9GbvnPcKhOa3Me +k9DH1tLdax5khcB49uyURpk+erEdr+GyAHBSyl2QuHUdrkjebGBv5Qdjqld0 +i0bXYW5tpV9EvS+UZ/7+OBFjgLWxD+YerPeGfSZsNFAwxKi1jSbXuw+B3JHo +ilU1hvje1ls72cQVJBZ6Fm7dzcWhpVnRkcmOkLkhOGB0LxeH633lfC44gnbw +xQ1XbLm4/94NI48QR9g2Sr/tPMhFscBIOX8HRzjTPvHLyZOLK5o2xkoqOcLP +jFDjgHAuxjWr6mygD0K3wZU3WblcnJ+/3tSgxQHcT2QmmxVwcTpY/7J3jQNM +FpS4DNJc1JpfW5Rf5ABLqc4prVIudgUKuppedwALIXnGoxouqpmcGx1xcICH +bVnOb95y0TEux4M1aA/mouUr/Tq56By0s7j6tT10mj6flO4hx8ckp4+W2cN4 +5bcYuw9cFKX4rYQj7WFlumb+fwNc3CccMMuRs4eH3ev9Yoe42LxceHbvXHK9 +ZVagMcrFvZU6men/2oFr9InXxye4OGXZWOx+3w7Ga84kSv3kYmXzGaGviXYQ +MX3dqXKai5F3j3X4h9uB2Ooc9QMzXKw+Uyuh4G4HKUcqJ2ZnuXh40Z3ytm12 +8D/VeFOk "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06545749366491492}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -3213,19 +8320,19 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06545749366491492}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3239,129 +8346,113 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= +1:eJwV13k4Fe0bB/AiUiEl+8E5cw4KZSsSx30nJbQibUJ2JaJS9i1RqSRtyJZE +ljPIWtlSiagka1Hq7e2VtSyl5Pf8/phrrs81c808c89zf58ZlqO3pQvfnDlz +Zsn2//1k7/N6zvlMo8/Bmy+4phkZtaVI+6/vjIAdqa6Bi6UZgBIvHaU74+HR +/eDwl1Lq4LfjXgd/ZwaUmNf9uSNlCEuGpeJ/dRRBo/lVucNSW6Dv4Tbv8Y46 ++Gt3XbtE0hY2cQbej3W0wnbvkaif4p7wq0Pv6mhHP6R8FOiVWBAEjzfczXyd +8QN8REY7E+ddAEZfxRdH9Rm4QR94yrW+Css87e/N38CPfh9b+XQfJ0G81qYH +23YJ4fmkkKlXGunQdUOzZkxMBJXCo/QVxTLhfGboSz6ZJVj/QfZ8/kAWSCV8 +OnvlljguU4PR4cM5EG1tZtQ6KYEKmS3KvFO5IHu/RZZvriTmDUmVjYblQoG4 +9ZTWIklMqdR5pn42F9pb7ejLipJY9VvAKeFmLnB2Hqd2bpbEhg9HvViVuVC3 +NVXw1U1J/JK/VkB7OhdmNk20NBtKYYuRgIyKXx4c00+3fx4hjdRosJDugXww +TxMdt4iVxpr8/qxkp3yg5gfFtFyVxoOK13f89ciHV202hW+ypVFHZGN9kV8+ +rDoqzN/bIo37bu9nfbiUD1+zTmZ9l5XBC5Wqtltq88F22bYhuWIZ/Cyz6JA7 +swB0Ah+EpzyUwUG9iUcaygWwsH+5JOupDMq3BS79rlYAFTx+UO6SwS/ZTg/d +9ApA0qIiTnNWBv1bRESkthXAq3DO6o0Wsii4pcYnKqAATEamA7w+yeK6SpPF +aS8LwH9zgmrtoCxqbPPUzG8rgIL0ld3ik7Ko9udXSElXAUhbO+hXCMnh7+qZ +22WfCmCw/MkU/yo5xMwviyKmCuBKRNzxm6fkUFxpo5mGAg/6JZS96kUYeFq6 +6tA3Nx5IeVfLS0kxkAxH3c6TB1sa9jR7MBnYWN4g++IoD0oDzqsv1mFgom9n +2E1/HpzrGx3Yu4eBNcXvfKbP8UA754HbSAYDe/oiZtvyeBBuuPOg7Fp5vCtg +3jA0yIPNdinf9YzlMZPxbVRmjAeiYd8id22Rxy9Bn3xwggfJj6Oy4hzk8fZ2 +wZCgGR6Um1d+Ezwrj8o6rU6dgjSM7mH7/eiSx6ID89dESdJgd2Li3ItABfxw +cqFpnQ4NSteNGQNRCpj/vGhtyBqaPP+l/PlxChh5sspWT4+GgD8rXhlnKmBA ++2/D9HU0XI20k6h4oYBVtfIuVutpeHH5WeodeUU8ash3SWsbDesKbt4PqVZE +Z/46sw4XGkw6WmaGGxRRfAHLg3KjYduceab2rYro096qeNidBidLry74RxED +Pc2tJw7RsCmQFRomwESt2EMfB71pOKo4eXu9GhPfR25tdvenYaI4ruGXBhM9 +k+H0hQAyvs1qQ4WrmVj1V6eDF0hDlI+DLmXExJBRR8uhYBoSHzc28O1kYl5A +cZZFBA31bqlDj/2YqNFWsfjaORrM/ugvDQpk4szXA/kJ52loiWvTXR3GxCXv +cDAuloauigVhmWeZaHpMaXvERRqGFx1fGpXMxJU/1xRvjqdBmt6st6mOiY96 +r5s436Thlsmn/X+fMvH3mzomN5EGqis4rLSJiSV3v98WT6JhJV/xc+W3TFTt +/JxWkUyDsbW87fyvTOz73RT6XyoNnj/HwhpEWOh9ibGi6w6pp4+r5JelLFRX +GU9MyqJBaKA7l1+ahZqjUpb779Jwp+dxuxHFwhE32/jWbBp6q66ql+iy0Gb5 +PY+0XBry9BbWtRqwsD2Zt2xrHqkXHbJ7FFm4dGLDgiliyQy3CDULFqY0mL42 +LqBhe5R+Z7o9C6uuqgxW0DQo/M0/Uu1Mrjey8MeOQjI//Cj+9x4szO75ZvoP +cYz7olXSx1mokj3wXqCYhhqL95EXY1j4yqavUbmEhov1O2XyLrDw8sv8ndnE +ttynBc/jWXirRlxNpZSGX6t4XfNusXDR3dkORhkN2kvDNQILWThVPqL6tZyG +Oecn6m+UsrA/TGS3dQV5P/yH9pU+YOFH8ejuR8SHJyyjxp6wsFrzz38xlaRe +Xs9kFzex0CxT8+QAsdC/BrT6Kxb6l2jbmT2gIbOT0+PWzcLWZGnDWWLfnTeP +RvWxsDdy3WqbhzRgo4jg7c/k/BVZMfeI3z+Y1OwdZuFA5/vNFo9IvVIbzljz +U7jQK2btkSoaPktxGb5CFC4+kc/hERfFFRZeEqFQa1bbd5h4e0Tiu0YpCktG +JnVcqkk9f4v6fmVQyHcxIieZePBY5HxBisLjCgsiXxPHuHhqr1enUMom21mn +hgab3g/P7LQorFMR93Ig5uzedSBIl8IykO89R/z95fPvNw0ozDDwKSkirtls +FFOGFJ7cVTneQXyxtkj+7UYKxx0zk6eJbdepFH83p1D3bU++bC0NqsVJm8V2 +UGhZLrJiLfEvNbHelbsoHC76V9SKePKWbLjOPgoNqjXGDxGPL1bi6NtTuMTF ++UAY8Vi4xjMjZwrnpqtZXCEe/qF/yMSDwmszalW3ib+5mIiYe5H7xwuXFRJ/ +7dhGbz9GYYDgCd1HxP+Y7bXadYpCq3Mi3KfE/Q+cJvcFU8h6H9L0grhvpddN +hwgKY8x8+18Rv0s9ZegaTWHHncsRrcRdSyL7DsdSmGQVnfeauD3yQoTPZQrN +4a9DC/GbietKJ69R2NiXntZA/MotoyEoiUKmroJnDXFzV97hiDQKf71QrC8h +brQoE425Q+H2cqucbOJnj2oLL9yjcNFVN8ZN4nqNF9ZXeBReiVmgEE1cm94+ +deM+hV74tcCXuEr8Y2JKBYVtY0Uv9xM/iPrGzayi0GavTLgxcfnUxIecxxT6 +VjY9ViYu6lmoUtJM4V2pztl/yfvhbZVorGylsEn/6nQ9cV614pGaDuI057Op +xFm3Vxc3faQwyljQdSvxbQmwef2FwueNUMIkTos2+9X+jUI17X1JY2Q+JR62 +g/4JCl9+ENCIJb7+3r3/32lSnzi+3l3ECduPRQ3NUhg0XKosT3xRJ6bp5wI2 +OsmzYzLJ/D1/J97rrygbGc7mGc7EMVK3lsxbxsZ3JkJ7KeKI34W7Fyuw8ZaJ +euo10h+hRx5OL2OzMaFbQHMrcVDf01uyy9lIT9k6zCX2e9zzSUmbjZEqRzMc +SX8dPi9w1HATG1cFP6wRIv3oPrNY3NiCjf4/xBzzSP+6esuWmu5gY7N7Q/ZW +YgcrjT+W+9h409h2xVnS/9Zye2M8vNj4SFpS+DPJD8PcvLRr19i4sMtyrup9 +GnqYuakbk9hYNavKLiT5FHAtJ2U8lY0H5N036BKXhWclW+awUWo2IXxdEcmf +PWk3RB+y0bvdVVCN5N8KgYS4Mx/ZWKN/rCaP5GlDQPylNV/YGHCuetkyYtfR +uIufB9gYKnbXx/8eyZeeC7HG42yUH/hgapRDA7MoOuavIAd71xqfokl+S9oH +hvmpc/Dv6Z5AvXQaStr8Q5W0OCj85FR2aBp5HvNTIW1rOLh3nsHXJ2Q9iF9z +IkgbOLjrW8/tLSk0iAh7nxreycGHDnYKG8h6Mq/C8ajrSQ56xPaUtSWQflxq +7mBTx8E7rV2ml87Q0OlJvTr0jIOqnP4jZ6JIPjydhtAXHHxzSexQ4Gka4gJy +FbPbOVgW6v/VjqyPmv3Cfb8GOLhF4ImkcAgNXoUvD9wSV8KFjOp5c07QMLB9 +1/7PzkqYP3Y/wfogDa05K5t+eijhmu1PTYQcaKjkFzQQ8VbCt19Ofa2wo+Fs +Wamsrr8SZtyKFpWypWG5onR39AUlPHbvyUi5DQ1uw9171EqVcP9oYk+SBcnT +WAcb3/nKOGA/KfoP+T7xGlCnNIWVMfzRnpBj2jRMmf4aGhJTxvg5t2GOFg0L ++eOjPGSV8bmHwoNlq8j4/R/fd1ipjIKygnkrltMQ7KIsvt1KGXPZn5fPY5D6 +Gw2+VEtVRoeydu1wPrL+j5w0+0dXBd0aTT3ir/KAoaVwRshQBXMnUOPaZR4M ++9bXqa1XQf00zZBrF3iQMClm6Guhgq/XHK+OjeJB70zOqll7FYy9wV604wQP +fIXficucVUHLiL5MHWseJK7A3i09KqgnkdsbvJgHg05Cx+6HLkeZfYry14MK +yP+GFF903QosfrGDM9cgH5Y2K1+kR1TxeoKkyMmhXGDE8Hbo6qqjr07FCY7b +Pbihpi8m7rYSGars2qYv2dAou37Nj8ur8KPF4WfXDt6FdYy6OI12DUyxsvCf +Kb4DovwZxw9GaOIbc9PYp6xMUAhXNNyrrIVSMnwLxXwzYIGSbanlMy08eLXB +IuBNGqziyvBOHtDGT9Ud6/IqUsC3d+lj8zk6eOS1pqx+QRKM/IjdZXZDB5er +hd8on74BphpPE81WrsbIPbZ6pLmg6ofB76mW1eidfm7Xz5Er4KWu3f3aZQ3q +PWuWffvwMnCHndv2LtDFMMvjQwckLsFGjvRWkQxd/PnzXBLD5jwsDzt3qk5P +Dx89e7lBeiYaVF30q5W69dCkeUPG75LT4FLlfvq+z1qM/G9GbvnPcKhOa3Me +k9DH1tLdax5khcB49uyURpk+erEdr+GyAHBSyl2QuHUdrkjebGBv5Qdjqld0 +i0bXYW5tpV9EvS+UZ/7+OBFjgLWxD+YerPeGfSZsNFAwxKi1jSbXuw+B3JHo +ilU1hvje1ls72cQVJBZ6Fm7dzcWhpVnRkcmOkLkhOGB0LxeH633lfC44gnbw +xQ1XbLm4/94NI48QR9g2Sr/tPMhFscBIOX8HRzjTPvHLyZOLK5o2xkoqOcLP +jFDjgHAuxjWr6mygD0K3wZU3WblcnJ+/3tSgxQHcT2QmmxVwcTpY/7J3jQNM +FpS4DNJc1JpfW5Rf5ABLqc4prVIudgUKuppedwALIXnGoxouqpmcGx1xcICH +bVnOb95y0TEux4M1aA/mouUr/Tq56By0s7j6tT10mj6flO4hx8ckp4+W2cN4 +5bcYuw9cFKX4rYQj7WFlumb+fwNc3CccMMuRs4eH3ev9Yoe42LxceHbvXHK9 +ZVagMcrFvZU6men/2oFr9InXxye4OGXZWOx+3w7Ga84kSv3kYmXzGaGviXYQ +MX3dqXKai5F3j3X4h9uB2Ooc9QMzXKw+Uyuh4G4HKUcqJ2ZnuXh40Z3ytm12 +8D/VeFOk "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06545749366491492}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3372,6 +8463,7 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3399,7 +8491,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06545749366491492}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3407,9 +8500,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913457856953163`*^9}, - CellLabel-> - "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] + CellChangeTimes->{3.9913457856953163`*^9, 3.993912062338183*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"bb49d1a1-7eb5-4d6b-a436-f9f95b11eb94"] }, Open ]], Cell[CellGroupData[{ @@ -3462,66 +8554,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + "In[100]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 422, 453, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785749161*^9}, - CellLabel-> - "During evaluation of \ -In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0128416120806113`*^-179\\\", \ \\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ 35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 422, 454, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785759161*^9}, + 2, 100, 17, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.993912062467863*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +In[100]:=",ExpressionUUID->"2c94236a-5717-4dce-8696-3f984e8d8cec"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.1321768243752935`*^-183\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 422, 455, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785767502*^9}, + 2, 100, 18, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.993912062477399*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +In[100]:=",ExpressionUUID->"fd04b7a1-f9ae-44bd-ac15-8e0176699632"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.686145930557288`*^-187\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 100, 19, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.993912062486833*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"234252e5-9eb6-4e3e-a1ca-3244847369b5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457857765007`*^9}, +during this calculation.\"", 2, 100, 20, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.993912062495741*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +In[100]:=",ExpressionUUID->"4f8284a2-3caf-4d00-9aa3-1c4d5e1a3cb4"], -Cell[BoxData["10.362747935330768`"], "Output", - CellChangeTimes->{3.991345792196575*^9}, +Cell[BoxData["11.613235513929938`"], "Output", + CellChangeTimes->{3.991345792196575*^9, 3.993912106297695*^9}, CellLabel-> - "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] + "Out[100]=",ExpressionUUID->"dd95c4b4-9027-4cce-ae10-02c85448fcd9"] }, Open ]], Cell[CellGroupData[{ @@ -3588,68 +8684,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918501903071613`*^9, - 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ -96e59dd43e6a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 457, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345792232563*^9}, + CellChangeTimes->{{3.9918501903071613`*^9, 3.9918501951272774`*^9}}, CellLabel-> - "During evaluation of \ -In[423]:=",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], + "In[101]:=",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.5112134123227008`*^-210\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 458, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345792242544*^9}, +normalized machine number; precision may be lost.\"", 2, 101, 21, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.9939121063590193`*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +In[101]:=",ExpressionUUID->"3c1ff53b-02d7-4ddb-ba18-d22d155e0697"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.9942299602432769`*^-215\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 459, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457922505417`*^9}, +normalized machine number; precision may be lost.\"", 2, 101, 22, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.9939121063670807`*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +In[101]:=",ExpressionUUID->"4a3d79d7-d67e-41f1-bd12-e24a3dba5269"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6316290617216097`*^-220\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 101, 23, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.9939121063755827`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"7451c7ab-d2ff-4eb7-8c35-d6d706e29858"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457922595577`*^9}, +during this calculation.\"", 2, 101, 24, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.9939121063845987`*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +In[101]:=",ExpressionUUID->"f323dc1c-65c7-402c-9c27-2a290e3767eb"], -Cell[BoxData["0.32136877427435395`"], "Output", - CellChangeTimes->{3.991345799137081*^9}, +Cell[BoxData["1.9539091448891655`"], "Output", + CellChangeTimes->{3.991345799137081*^9, 3.99391211440012*^9}, CellLabel-> - "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] + "Out[101]=",ExpressionUUID->"76adc51e-2c5d-4752-8d8e-0bb42255cc60"] }, Open ]], Cell[CellGroupData[{ @@ -3670,8 +8770,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3716,68 +8815,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185020477277*^9, - 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ -d2e0cc5d1484"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 461, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457991730843`*^9}, + CellChangeTimes->{{3.99185020477277*^9, 3.991850207864538*^9}}, CellLabel-> - "During evaluation of \ -In[424]:=",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], + "In[102]:=",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.5112134123227008`*^-210\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 462, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457991830807`*^9}, +normalized machine number; precision may be lost.\"", 2, 102, 25, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.993912114439636*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +In[102]:=",ExpressionUUID->"c440f8da-7ec6-4083-9f74-1fad49a8395a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.9942299602432769`*^-215\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 463, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345799191578*^9}, +normalized machine number; precision may be lost.\"", 2, 102, 26, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.993912114448927*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +In[102]:=",ExpressionUUID->"2a7dd348-7e38-4658-9469-fbc2148530d6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6316290617216097`*^-220\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 102, 27, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.9939121144583883`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"6fb74aed-6310-41f2-accc-b249129e6d57"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457992005787`*^9}, +during this calculation.\"", 2, 102, 28, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.9939121144683313`*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +In[102]:=",ExpressionUUID->"fb9c6e40-c988-4905-b495-b64707ae6e3c"], -Cell[BoxData["6.886509882261309`"], "Output", - CellChangeTimes->{3.991345804559931*^9}, +Cell[BoxData["38.92413090182304`"], "Output", + CellChangeTimes->{3.991345804559931*^9, 3.993912121391386*^9}, CellLabel-> - "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] + "Out[102]=",ExpressionUUID->"56dddbdd-2c8b-4c4f-a86b-9995233e1e37"] }, Open ]], Cell[CellGroupData[{ @@ -3798,8 +8901,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3844,68 +8946,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918502122939777`*^9, - 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ -ca10003188eb"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 465, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046014442`*^9}, + CellChangeTimes->{{3.9918502122939777`*^9, 3.991850217343153*^9}}, CellLabel-> - "During evaluation of \ -In[425]:=",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], + "In[103]:=",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.5112134123227008`*^-210\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 466, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046114445`*^9}, +normalized machine number; precision may be lost.\"", 2, 103, 29, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.993912121436591*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +In[103]:=",ExpressionUUID->"e2a94797-360e-4638-8e95-9e3e2a59b6ff"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.9942299602432769`*^-215\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 467, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345804619444*^9}, +normalized machine number; precision may be lost.\"", 2, 103, 30, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.9939121214461813`*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +In[103]:=",ExpressionUUID->"5b9aeef1-b0fd-4856-b963-f84e2d75534a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6316290617216097`*^-220\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 103, 31, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.993912121455099*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"9f2f97bc-6dcc-4533-884a-07f2a62a3413"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046274433`*^9}, +during this calculation.\"", 2, 103, 32, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.993912121464821*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +In[103]:=",ExpressionUUID->"d1238310-cd30-453c-89ae-96210d33bb95"], -Cell[BoxData["18.478556086442907`"], "Output", - CellChangeTimes->{3.991345807954506*^9}, +Cell[BoxData["11.255034251269551`"], "Output", + CellChangeTimes->{3.991345807954506*^9, 3.993912125843746*^9}, CellLabel-> - "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] + "Out[103]=",ExpressionUUID->"b04dcc75-081a-43c3-9396-dea12245ed3f"] }, Open ]], Cell[CellGroupData[{ @@ -3914,22 +9020,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991850221900238*^9, - 3.9918502257325497`*^9}},ExpressionUUID->"350334c7-7c47-c24c-8adc-\ -781173809e57"], - -Cell[BoxData["0.028488532115740543`"], "Output", - CellChangeTimes->{3.991345807987507*^9}, + CellChangeTimes->{{3.991850221900238*^9, 3.9918502257325497`*^9}}, CellLabel-> - "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] + "In[104]:=",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], + +Cell[BoxData["0.09335154129461061`"], "Output", + CellChangeTimes->{3.991345807987507*^9, 3.993912125879113*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"37f96905-5d7f-4485-b34f-1b52a689658d"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991850228782873*^9, 3.991850231287325*^9}, - 3.9919246253575134`*^9},ExpressionUUID->"597921e5-69d3-564d-a8fa-\ -092e912c15e0"], + 3.9919246253575134`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ @@ -3952,12 +9059,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + "In[106]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.991345808020666*^9}, +Cell[BoxData["8.092101191336006`"], "Output", + CellChangeTimes->{3.991345808020666*^9, 3.9939121258947353`*^9}, CellLabel-> - "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] + "Out[106]=",ExpressionUUID->"41efecd1-d181-476a-a826-de428b9b21b9"] }, Open ]], Cell[CellGroupData[{ @@ -3967,12 +9074,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + "In[107]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913458080616665`*^9}, +Cell[BoxData["4.305935286383965`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9, 3.9939121259038687`*^9}, CellLabel-> - "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] + "Out[107]=",ExpressionUUID->"50fb6b7b-caf6-4187-a3be-35fef3f15152"] }, Open ]], Cell[CellGroupData[{ @@ -3982,12 +9089,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + "In[108]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.991345808188246*^9}, +Cell[BoxData["34.84406406076343`"], "Output", + CellChangeTimes->{3.991345808188246*^9, 3.993912125914444*^9}, CellLabel-> - "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] + "Out[108]=",ExpressionUUID->"3b5db344-f6b1-4c50-9219-4c5d47246062"] }, Open ]], Cell[CellGroupData[{ @@ -4177,12 +9284,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + "In[109]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[BoxData["0.04214145338799881`"], "Output", - CellChangeTimes->{3.991345808220566*^9}, +Cell[BoxData["0.0060081167907000315`"], "Output", + CellChangeTimes->{3.991345808220566*^9, 3.993912125928492*^9}, CellLabel-> - "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] + "Out[109]=",ExpressionUUID->"0a388bd3-e3b3-44ad-89cd-9a35ae3f00a7"] }, Open ]], Cell[CellGroupData[{ @@ -4196,12 +9303,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + "In[110]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[BoxData["4.317080886816563`"], "Output", - CellChangeTimes->{3.9913458083195686`*^9}, +Cell[BoxData["11.433409475204698`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9, 3.993912126029395*^9}, CellLabel-> - "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] + "Out[110]=",ExpressionUUID->"9c0056fe-1cf9-4835-abe3-5ae95d2fbc8b"] }, Open ]], Cell[CellGroupData[{ @@ -4393,12 +9500,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + "In[111]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[BoxData["0.012862376162526763`"], "Output", - CellChangeTimes->{3.991345808334568*^9}, +Cell[BoxData["0.026660083757712765`"], "Output", + CellChangeTimes->{3.991345808334568*^9, 3.993912126041555*^9}, CellLabel-> - "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] + "Out[111]=",ExpressionUUID->"d85677bd-5eeb-414b-ace2-4568091abc78"] }, Open ]], Cell[CellGroupData[{ @@ -4412,12 +9519,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + "In[112]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[BoxData["7.814196669618258`"], "Output", - CellChangeTimes->{3.991345808432392*^9}, +Cell[BoxData["5.427679386522664`"], "Output", + CellChangeTimes->{3.991345808432392*^9, 3.993912126143188*^9}, CellLabel-> - "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] + "Out[112]=",ExpressionUUID->"815e946b-b617-4736-8526-2babdc18933b"] }, Open ]], Cell[CellGroupData[{ @@ -4510,12 +9617,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + "In[113]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991345808448488*^9}, +Cell[BoxData["0.1245822467542299`"], "Output", + CellChangeTimes->{3.991345808448488*^9, 3.993912126156296*^9}, CellLabel-> - "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] + "Out[113]=",ExpressionUUID->"41835d90-2768-4a21-bdb1-c73f50a8269b"] }, Open ]], Cell[CellGroupData[{ @@ -4605,12 +9712,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + "In[114]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913458084773808`*^9}, +Cell[BoxData["0.8754177532457702`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9, 3.993912126169146*^9}, CellLabel-> - "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] + "Out[114]=",ExpressionUUID->"6e47e6ab-f315-4ff2-a6f3-78d2c786c9f4"] }, Open ]], Cell[CellGroupData[{ @@ -4733,12 +9840,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + "In[115]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913458085134735`*^9}, +Cell[BoxData["0.10906151054789807`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9, 3.993912126182828*^9}, CellLabel-> - "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] + "Out[115]=",ExpressionUUID->"4da321ea-57b6-40fe-a24f-c79310af2d7d"] }, Open ]], Cell[CellGroupData[{ @@ -4800,67 +9907,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185025346871*^9},ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], + CellChangeTimes->{3.99185025346871*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 441, - 469, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085463753`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9319765446670173`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 116, 33, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.993912126196825*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +In[116]:=",ExpressionUUID->"38c3f314-b476-41b7-9f1a-3709da467a52"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 441, - 470, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085563755`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4016385737384748`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 34, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.9939121262040873`*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +In[116]:=",ExpressionUUID->"a122c302-579b-47aa-8a29-f2f2fc5bf135"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 441, 471, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345808564377*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0168812332709919`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 35, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.993912126210516*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +In[116]:=",ExpressionUUID->"8bd92cec-29a1-4104-9fbc-c3c8a32dbdae"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085733776`*^9}, +during this calculation.\"", 2, 116, 36, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.993912126217923*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +In[116]:=",ExpressionUUID->"6de1f49f-d9a9-4e32-9a22-d75b73ac1f0b"], -Cell[BoxData["4.317080886816564`"], "Output", - CellChangeTimes->{3.9913458125059433`*^9}, +Cell[BoxData["11.433409475204714`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9, 3.993912130012845*^9}, CellLabel-> - "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] + "Out[116]=",ExpressionUUID->"d2c4a372-a2da-4fa7-bdc5-8f2a4f55cd38"] }, Open ]], Cell[CellGroupData[{ @@ -4922,68 +10034,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918502579298553`*^9},ExpressionUUID->"baacd3f7-96e4-2949-b9f9-\ -9afb90e551d9"], + CellChangeTimes->{3.9918502579298553`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 442, - 473, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812542961*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9319765446670173`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 117, 37, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.9939121300517607`*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +In[117]:=",ExpressionUUID->"89d75611-9fc4-4059-a126-9fb3fac98109"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 442, - 474, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812552984*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4016385737384748`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 38, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.9939121300586233`*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +In[117]:=",ExpressionUUID->"b021b16a-8d6e-4a17-9c30-6175e3521018"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 442, 475, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134581256196*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0168812332709919`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 39, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.993912130065094*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +In[117]:=",ExpressionUUID->"cf2d0a3f-ac82-4704-8c47-990bf7418bad"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812570959*^9}, +during this calculation.\"", 2, 117, 40, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.993912130071368*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +In[117]:=",ExpressionUUID->"560ea45b-729c-4981-80d6-253cc2469fbc"], -Cell[BoxData["7.8141966696182585`"], "Output", - CellChangeTimes->{3.991345816415531*^9}, +Cell[BoxData["5.427679386522668`"], "Output", + CellChangeTimes->{3.991345816415531*^9, 3.993912133907745*^9}, CellLabel-> - "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] + "Out[117]=",ExpressionUUID->"a2a1a422-17ff-491a-b0f8-7af604a4b71f"] }, Open ]], Cell[CellGroupData[{ @@ -5041,95 +10157,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918502605597496`*^9},ExpressionUUID->"ea08a5a9-d446-9147-ba82-\ -e3924f732df2"], + CellChangeTimes->{3.9918502605597496`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc4lX0YB3BZlVFkHBKvzCilYzf87oxsGRWyOechIaN0KqNCy17lrVBG +ZFTIllSK4kVpKoU4R8ceDyrV+/PHcz3X5/pdz/d33/czrmej11E7OicHB8cI +PpbPwZ1blWu6O/WXlIQfpQ4zkf5EvpaXUSmae980sez+HO10BaNGJFXaEpGG +bUP7j1dA4xmSvC3nn45dzoh6ymPUgTRefqjLwL70XKI5qvgVOiHDIq5i13UH +Zy9R36JrxVah/2Kze1+Gn2z4gFQZAl+vY68flneeN/yM9qXKF2djW0yG64V2 +fEU/edLe3MJuWmLzM4oH0JeBQ24F2O/OUk5XB35D5tqnTe5gT/Aaseeow+i4 +2FxSGTZvfJCTxgITbUh7plOBLSOc1RbcMILetkzq12BbS83fnjAcQ/p51kee +YBM35cTVVk2g+9HRyW3YUYr7Yo90TKKKKGGxLuwPlDfbjxVPo3gjvV192LRD +fofT4mfQrHXPlyHsqRsctyoCZ9H3hef9Y9ir5NSEpqkk8mho4PyDnU57aiIk +No+2Kj6UW8lkItlCp6htC/NIsEMiVwhbd8v5iYCGRdR+7muTArav9tcOtuES +Kum8F2SLPcc4zs2n9BsdtrkY54p9poF/l8qqP0gop5HHDzsTdEt8Ov6ia3F6 +EjHYtII2o5DiFbDLLa6qEbv4eVr/WSlOuLBg2t6OPcVyC0+J54REZxp8wg5X +JSvvB3JBRl6V6S/s9Hsb5SepPMAR9PIVYjFRb/dY0588HohIjhy0xZadqTm0 +RowXglipdjTsUk3rVLUFXghJ6rO5jN1Sd2qFf8MqqIvhft6LTT7t+TpiKAAf +4sZSE0aYaJ2lgNDpJgFYefhyXiG2+hsjENQTBDcOU4Un2H5DVTe3b10Dn7MV +whaxgzg71HcLCIErM9TZ7zsTDcvdnY6dF4anFXNbvNl4PsTL1V0a64CseIdi +sDlLmBslgtdB3LnBJwXYshr/2BWPrgMhn1OSbOxDhskVnf0iUFz6aBVjlIm6 +vENCKe1i8I7PYqpojIm+FCbGeawSB1ExBd5X2GOjxXl3jMVB1lkj/gc237Fv +PTubxcF95eKIxTgTGcXs1/SookDSIeowiV2fr00W5UjCYwft726TTJQ//DNs +xzFpsN5koxQ7w0SmBy58CS2TBmb91pIa7LEWkb1lTGkYWPsnhY2tmb9FTNZJ +BnzrQmJtZ/E8vdwqefT/Af/jnVwKc0w0M9l/YiRaFiQSNrl/IplIJMDoQaWV +HKgLX7qa9oOJmPl8vjZ+crCnMMDlNXbt526p8fNycIyXFi38k4lcLF2jlZrl +IL/i8kIydv7mMLt/qfLgIN/PSP+F92cXTkVSFIB7tLK/7DcT7ffhVzMfUATH +kmtWqpwshMIOUB1+K0I2h1VfKLZqbI4OTVIJErl92x9ic+RpGETaKoH2tr4n +dlwsVPbF2aHisRKcWzEic5abhXgPlp5dn6sMiZT8+EleFqo1snrH9lIBoWFl +UxEBFsqzv/ppIVIFRrZEF/piJ3oN9HNfVwGrshB6EzbtzPFRmR4VoGwW/e0n +yELCjVkc9oaqQNO4fL1tDQv5aUyoNshvhvKZpCsZwiwkJZcUFTe0BUQba5PC +KCzUeHlO5QenGsgICfH2Y7vMOr0hNqpBt8jYqJkEC2W3KKgYuKlB8NkdvP9I +spCcT/3rxfdq4PL0yPHO9bjf0mFFon0rtJ9dQgYyLCQtJUPIOqlD64x0RoQi +C20pOCbwC1Fhc17qI0MtFvKiRZNq1lSouTO/uxk7Uz71i4cLFSbzlqR3a7MQ +V+69+88ZVFgsm+fU1WGh3mz2/tRyKogvfPag6rHQpUyPLBV5DcinGQfq7WYh +ZpzlVkdeTRCdc/2SbMxCt0IUbKo6tECh2yqR7sBC3WFIJ6ZAD5wC6j/bRLPQ +Rre31q7+uyG1evxnRBUL0f9W35U+CeD3q4Odz2YhymjtSoqXAZwsjdDas3kE +HdPY9TlV1QhKbhZNqgaOIK/xpTYRtjEM3kOflqpGUJlB6MqcLhMw174TNMb3 +HeXP+T0uTTeD+N8yvS88vqPFPRL/tURZQED5W3HJZ99RHwfX9ICnFSw9HU1j +bWWjwA1Hk8/K74MrOhP2MplsdPdwW3NGrA1I8j3NPyA8ik7NSi5sPmwL7dT8 +MbFLo4g033uw1d0Ouq9zfp0VHkN6zil7hm3twWOfDo9nzhh6LZnl16KxHzzo +pl4hKuNo/e3oxqJNB4DkPjB95dk4qu1XtbQWPAjoVfySsusEknkz5RM2fhB8 +WyMMeucnkEZGSmlevwO823SmZTB3EmVxz25NfeoIC6dl1Rbkp1D1nm29sXVO +UN/xszUhagpl6lwWXio+BDuUCpPNPk2hrk8F5zXinUF/WyXfBuo0qrK6oRB0 +xgX4NUpKtqdMo+kAe45Amiv4D1UJubOnEblXxXfC0A2ez1Qq1+yZQUXjHxdD +td3hqqK9/7ucGeR4q8DbVcADeLNOjJ6Yn0GVFRbuXBc8wOG0gY+P3SzSk3r9 +49IPD6Ap8ic1FMwi+X6f3leHPcHW4JJLwNwsGuI/su/GN0+42KTfWWE8h7oT +rb1NDnhBgvuR7bwJcyidkcN/vNsLttd7y+a8mUONTX9/eJt5w3gQJc5HlERr +XeCCRr03ELn8wcfNSCQr2tq1odEb0gqIP5bmJFLvsJLgbcLrxTsFFCxIZLfL ++c6Hx97wovBuUbclidI3hLVHvPCGOl29fnkbEq3vK1nb9sEb/uxXVqo4SCIF +N0qmy4I36HrXzvp7k0jPY6IoVpMGb09lCNifJtHtf6dCrbVpoL84QfzGFu2Z +0afo0sDUsNKsMJxEE8YLb4p20iDYdmXRjwgSf784VnQY0EA0525L5hkSrVkQ +dlpnSwPtsEe05lgSDSVorc4JoMHa469PPkgiUWJD+OHa2zRgsRjcqrkkCqBe +1WMU0cBA6+xABbblnfLVusU0iKLLGe/MIxHfVeadmjIaOOj15Jjnkyg2xIZd +/YAGko4BN71vkyhcReFI1RMa1PdW10cWk8jvart/xRcajJYr1TlWkMhsDXNX +SD8N6pRX67/G3hTLIUgdpEGVeetei0oSMUO0ysqHaVC8Oubbzgck8rTOGb8/ +RoPpz49NKNUkcuQJDbz3E/fzOu9OdR2JTELXB5WK0yFD/4XZ1WYSPck5b54q +QYdEo2Ipvsck2tUxo8BYTwf/PfGO4djqiu0fDWXoIFQ5v879CYkk3582/KRI +h7bWoQvSLSQa3dEnzqdFh7VSUW6RrSRK4rz50MeeDm7Zwcpd/+H+twlkWh2g +w3WlV1u3dZIoxpkRouFAh/LW2OxEbMYDG+W/h+jgmnaz2qIL10+sSLniRQeu +zHOtTd0k/i/0oj0LpoOoQYLzxR4SvU9R5JdPpkP63mtdRR9IdBcJ+o6k0EFT +cDZrCjtmfK6lLI0OXY9smTofSUQ1a4nUvUqHmjUTQy3YiRzeM1bZdHCPNMz8 +0EuivUdvfmSU0sFZq7aD+ZlE0tIXtfXv0sGzt1hLqY9Ecy+PpnHdp0NH2SCF +jp2rhKwSK+kgMDZnMoD9u6+vOa+eDvnWgQd6vpDogaVUUWcbXpdy2JDdT6K4 +n5w86S/p8ML9kuhbbK8itqdTBx28uh1i+QdIJMRdLzXUheepl9sdhu3f4Jj0 +4x0dTJIGBEwGSSSveiVMYZgOKfuXRDq/kejn+4ie70w6fK1MSVnC7o6lq98b +oYP9TuoF1SESRQ5osvXG6HCyK7Q3Brs3s8d13ywdblRSZDWGSZS6Utj41AoC +xJyUN4YxSdQ40+d8jIsAyuPCiJvYrL7ikEAeAlSCFdVfYu96YHTTazUBKfTZ +K1Is/Lx5MH6ZCxNQKdznV40tZGm8zliEgDXy5mGfsHfqrFNBYgRwdQe8/4ud +LFh6UEOSgH5G7bW9I3i9/mu51EYCYpujFDqwiYLSNjF5AoLdnn0exU5OPvl1 +rSIBPEdj2Hzf8X6EiCC3CgEnN9nzmmAni5j4jqkTsHr9Sf0a7Po/IlFMKgG3 +3LtuvcIe/t6f0a9JgNKpI4dGsXc0n3r6RpeAFdpu7RvY+H32vyvzEAgw9swo +OYG9xvG0Vo0BAb96z9TGY+sZmlqWGxFQJH1x/S3sRMnBkwWmBLh3v+9rxa7l +vpecY07A9UsU1Iv9bfJ04b+WeF7ZnuQotu5zsbcJNgQMC/N4Co7i+10+OHrB +jgC/8YPi0tgJN+5xnttPwPyGfNkt2IMhZuphjgQEUOQ1TbEF3cRNgg4RIJJq +vfsAtq7ZN1c/FwL2NPte91y+/p+IODcPApJ2ux1kYNfymec6ehHAHaRZeW45 +jxSvs6MRULVhkha/nDfwrcuSIOCoWPyRjOW8jvvMvb4ExNmtbs1arq8m4jf4 +EdA9QztRsJyfay6605+AmJ1Z4aXL+QmUzVqBuP7M++8qlvMZQ3u2BRHw5HpW +bC22AK3cUSWEgH1/vC49xNbZF3lU/hgB5jl/Bx4v5++wOC8dRkBgTEjSM+x4 +RYksCoOAxY/1KW3Y1ULDlcKnCCiYeT/yEnvgV/lL/nAC7pm8SO9YzmdFDvBE +EvCekZjxH7b2a4vFv1EE2Fkqjy77f8vqMcA= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5143,107 +10258,106 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= +1:eJwV1nc4lX0YB3BZlVFkHBKvzCilYzf87oxsGRWyOechIaN0KqNCy17lrVBG +ZFTIllSK4kVpKoU4R8ceDyrV+/PHcz3X5/pdz/d33/czrmej11E7OicHB8cI +PpbPwZ1blWu6O/WXlIQfpQ4zkf5EvpaXUSmae980sez+HO10BaNGJFXaEpGG +bUP7j1dA4xmSvC3nn45dzoh6ymPUgTRefqjLwL70XKI5qvgVOiHDIq5i13UH +Zy9R36JrxVah/2Kze1+Gn2z4gFQZAl+vY68flneeN/yM9qXKF2djW0yG64V2 +fEU/edLe3MJuWmLzM4oH0JeBQ24F2O/OUk5XB35D5tqnTe5gT/Aaseeow+i4 +2FxSGTZvfJCTxgITbUh7plOBLSOc1RbcMILetkzq12BbS83fnjAcQ/p51kee +YBM35cTVVk2g+9HRyW3YUYr7Yo90TKKKKGGxLuwPlDfbjxVPo3gjvV192LRD +fofT4mfQrHXPlyHsqRsctyoCZ9H3hef9Y9ir5NSEpqkk8mho4PyDnU57aiIk +No+2Kj6UW8lkItlCp6htC/NIsEMiVwhbd8v5iYCGRdR+7muTArav9tcOtuES +Kum8F2SLPcc4zs2n9BsdtrkY54p9poF/l8qqP0gop5HHDzsTdEt8Ov6ia3F6 +EjHYtII2o5DiFbDLLa6qEbv4eVr/WSlOuLBg2t6OPcVyC0+J54REZxp8wg5X +JSvvB3JBRl6V6S/s9Hsb5SepPMAR9PIVYjFRb/dY0588HohIjhy0xZadqTm0 +RowXglipdjTsUk3rVLUFXghJ6rO5jN1Sd2qFf8MqqIvhft6LTT7t+TpiKAAf +4sZSE0aYaJ2lgNDpJgFYefhyXiG2+hsjENQTBDcOU4Un2H5DVTe3b10Dn7MV +whaxgzg71HcLCIErM9TZ7zsTDcvdnY6dF4anFXNbvNl4PsTL1V0a64CseIdi +sDlLmBslgtdB3LnBJwXYshr/2BWPrgMhn1OSbOxDhskVnf0iUFz6aBVjlIm6 +vENCKe1i8I7PYqpojIm+FCbGeawSB1ExBd5X2GOjxXl3jMVB1lkj/gc237Fv +PTubxcF95eKIxTgTGcXs1/SookDSIeowiV2fr00W5UjCYwft726TTJQ//DNs +xzFpsN5koxQ7w0SmBy58CS2TBmb91pIa7LEWkb1lTGkYWPsnhY2tmb9FTNZJ +BnzrQmJtZ/E8vdwqefT/Af/jnVwKc0w0M9l/YiRaFiQSNrl/IplIJMDoQaWV +HKgLX7qa9oOJmPl8vjZ+crCnMMDlNXbt526p8fNycIyXFi38k4lcLF2jlZrl +IL/i8kIydv7mMLt/qfLgIN/PSP+F92cXTkVSFIB7tLK/7DcT7ffhVzMfUATH +kmtWqpwshMIOUB1+K0I2h1VfKLZqbI4OTVIJErl92x9ic+RpGETaKoH2tr4n +dlwsVPbF2aHisRKcWzEic5abhXgPlp5dn6sMiZT8+EleFqo1snrH9lIBoWFl +UxEBFsqzv/ppIVIFRrZEF/piJ3oN9HNfVwGrshB6EzbtzPFRmR4VoGwW/e0n +yELCjVkc9oaqQNO4fL1tDQv5aUyoNshvhvKZpCsZwiwkJZcUFTe0BUQba5PC +KCzUeHlO5QenGsgICfH2Y7vMOr0hNqpBt8jYqJkEC2W3KKgYuKlB8NkdvP9I +spCcT/3rxfdq4PL0yPHO9bjf0mFFon0rtJ9dQgYyLCQtJUPIOqlD64x0RoQi +C20pOCbwC1Fhc17qI0MtFvKiRZNq1lSouTO/uxk7Uz71i4cLFSbzlqR3a7MQ +V+69+88ZVFgsm+fU1WGh3mz2/tRyKogvfPag6rHQpUyPLBV5DcinGQfq7WYh +ZpzlVkdeTRCdc/2SbMxCt0IUbKo6tECh2yqR7sBC3WFIJ6ZAD5wC6j/bRLPQ +Rre31q7+uyG1evxnRBUL0f9W35U+CeD3q4Odz2YhymjtSoqXAZwsjdDas3kE +HdPY9TlV1QhKbhZNqgaOIK/xpTYRtjEM3kOflqpGUJlB6MqcLhMw174TNMb3 +HeXP+T0uTTeD+N8yvS88vqPFPRL/tURZQED5W3HJZ99RHwfX9ICnFSw9HU1j +bWWjwA1Hk8/K74MrOhP2MplsdPdwW3NGrA1I8j3NPyA8ik7NSi5sPmwL7dT8 +MbFLo4g033uw1d0Ouq9zfp0VHkN6zil7hm3twWOfDo9nzhh6LZnl16KxHzzo +pl4hKuNo/e3oxqJNB4DkPjB95dk4qu1XtbQWPAjoVfySsusEknkz5RM2fhB8 +WyMMeucnkEZGSmlevwO823SmZTB3EmVxz25NfeoIC6dl1Rbkp1D1nm29sXVO +UN/xszUhagpl6lwWXio+BDuUCpPNPk2hrk8F5zXinUF/WyXfBuo0qrK6oRB0 +xgX4NUpKtqdMo+kAe45Amiv4D1UJubOnEblXxXfC0A2ez1Qq1+yZQUXjHxdD +td3hqqK9/7ucGeR4q8DbVcADeLNOjJ6Yn0GVFRbuXBc8wOG0gY+P3SzSk3r9 +49IPD6Ap8ic1FMwi+X6f3leHPcHW4JJLwNwsGuI/su/GN0+42KTfWWE8h7oT +rb1NDnhBgvuR7bwJcyidkcN/vNsLttd7y+a8mUONTX9/eJt5w3gQJc5HlERr +XeCCRr03ELn8wcfNSCQr2tq1odEb0gqIP5bmJFLvsJLgbcLrxTsFFCxIZLfL ++c6Hx97wovBuUbclidI3hLVHvPCGOl29fnkbEq3vK1nb9sEb/uxXVqo4SCIF +N0qmy4I36HrXzvp7k0jPY6IoVpMGb09lCNifJtHtf6dCrbVpoL84QfzGFu2Z +0afo0sDUsNKsMJxEE8YLb4p20iDYdmXRjwgSf784VnQY0EA0525L5hkSrVkQ +dlpnSwPtsEe05lgSDSVorc4JoMHa469PPkgiUWJD+OHa2zRgsRjcqrkkCqBe +1WMU0cBA6+xABbblnfLVusU0iKLLGe/MIxHfVeadmjIaOOj15Jjnkyg2xIZd +/YAGko4BN71vkyhcReFI1RMa1PdW10cWk8jvart/xRcajJYr1TlWkMhsDXNX +SD8N6pRX67/G3hTLIUgdpEGVeetei0oSMUO0ysqHaVC8Oubbzgck8rTOGb8/ +RoPpz49NKNUkcuQJDbz3E/fzOu9OdR2JTELXB5WK0yFD/4XZ1WYSPck5b54q +QYdEo2Ipvsck2tUxo8BYTwf/PfGO4djqiu0fDWXoIFQ5v879CYkk3582/KRI +h7bWoQvSLSQa3dEnzqdFh7VSUW6RrSRK4rz50MeeDm7Zwcpd/+H+twlkWh2g +w3WlV1u3dZIoxpkRouFAh/LW2OxEbMYDG+W/h+jgmnaz2qIL10+sSLniRQeu +zHOtTd0k/i/0oj0LpoOoQYLzxR4SvU9R5JdPpkP63mtdRR9IdBcJ+o6k0EFT +cDZrCjtmfK6lLI0OXY9smTofSUQ1a4nUvUqHmjUTQy3YiRzeM1bZdHCPNMz8 +0EuivUdvfmSU0sFZq7aD+ZlE0tIXtfXv0sGzt1hLqY9Ecy+PpnHdp0NH2SCF +jp2rhKwSK+kgMDZnMoD9u6+vOa+eDvnWgQd6vpDogaVUUWcbXpdy2JDdT6K4 +n5w86S/p8ML9kuhbbK8itqdTBx28uh1i+QdIJMRdLzXUheepl9sdhu3f4Jj0 +4x0dTJIGBEwGSSSveiVMYZgOKfuXRDq/kejn+4ie70w6fK1MSVnC7o6lq98b +oYP9TuoF1SESRQ5osvXG6HCyK7Q3Brs3s8d13ywdblRSZDWGSZS6Utj41AoC +xJyUN4YxSdQ40+d8jIsAyuPCiJvYrL7ikEAeAlSCFdVfYu96YHTTazUBKfTZ +K1Is/Lx5MH6ZCxNQKdznV40tZGm8zliEgDXy5mGfsHfqrFNBYgRwdQe8/4ud +LFh6UEOSgH5G7bW9I3i9/mu51EYCYpujFDqwiYLSNjF5AoLdnn0exU5OPvl1 +rSIBPEdj2Hzf8X6EiCC3CgEnN9nzmmAni5j4jqkTsHr9Sf0a7Po/IlFMKgG3 +3LtuvcIe/t6f0a9JgNKpI4dGsXc0n3r6RpeAFdpu7RvY+H32vyvzEAgw9swo +OYG9xvG0Vo0BAb96z9TGY+sZmlqWGxFQJH1x/S3sRMnBkwWmBLh3v+9rxa7l +vpecY07A9UsU1Iv9bfJ04b+WeF7ZnuQotu5zsbcJNgQMC/N4Co7i+10+OHrB +jgC/8YPi0tgJN+5xnttPwPyGfNkt2IMhZuphjgQEUOQ1TbEF3cRNgg4RIJJq +vfsAtq7ZN1c/FwL2NPte91y+/p+IODcPApJ2ux1kYNfymec6ehHAHaRZeW45 +jxSvs6MRULVhkha/nDfwrcuSIOCoWPyRjOW8jvvMvb4ExNmtbs1arq8m4jf4 +EdA9QztRsJyfay6605+AmJ1Z4aXL+QmUzVqBuP7M++8qlvMZQ3u2BRHw5HpW +bC22AK3cUSWEgH1/vC49xNbZF3lU/hgB5jl/Bx4v5++wOC8dRkBgTEjSM+x4 +RYksCoOAxY/1KW3Y1ULDlcKnCCiYeT/yEnvgV/lL/nAC7pm8SO9YzmdFDvBE +EvCekZjxH7b2a4vFv1EE2Fkqjy77f8vqMcA= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.7155240756776204, + 1.3700694261249464`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.715524075677622}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5255,21 +10369,21 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.7155240756776204, + 1.3700694261249464`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.715524075677622}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5283,105 +10397,104 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= +1:eJwV1nc4lX0YB3BZlVFkHBKvzCilYzf87oxsGRWyOechIaN0KqNCy17lrVBG +ZFTIllSK4kVpKoU4R8ceDyrV+/PHcz3X5/pdz/d33/czrmej11E7OicHB8cI +PpbPwZ1blWu6O/WXlIQfpQ4zkf5EvpaXUSmae980sez+HO10BaNGJFXaEpGG +bUP7j1dA4xmSvC3nn45dzoh6ymPUgTRefqjLwL70XKI5qvgVOiHDIq5i13UH +Zy9R36JrxVah/2Kze1+Gn2z4gFQZAl+vY68flneeN/yM9qXKF2djW0yG64V2 +fEU/edLe3MJuWmLzM4oH0JeBQ24F2O/OUk5XB35D5tqnTe5gT/Aaseeow+i4 +2FxSGTZvfJCTxgITbUh7plOBLSOc1RbcMILetkzq12BbS83fnjAcQ/p51kee +YBM35cTVVk2g+9HRyW3YUYr7Yo90TKKKKGGxLuwPlDfbjxVPo3gjvV192LRD +fofT4mfQrHXPlyHsqRsctyoCZ9H3hef9Y9ir5NSEpqkk8mho4PyDnU57aiIk +No+2Kj6UW8lkItlCp6htC/NIsEMiVwhbd8v5iYCGRdR+7muTArav9tcOtuES +Kum8F2SLPcc4zs2n9BsdtrkY54p9poF/l8qqP0gop5HHDzsTdEt8Ov6ia3F6 +EjHYtII2o5DiFbDLLa6qEbv4eVr/WSlOuLBg2t6OPcVyC0+J54REZxp8wg5X +JSvvB3JBRl6V6S/s9Hsb5SepPMAR9PIVYjFRb/dY0588HohIjhy0xZadqTm0 +RowXglipdjTsUk3rVLUFXghJ6rO5jN1Sd2qFf8MqqIvhft6LTT7t+TpiKAAf +4sZSE0aYaJ2lgNDpJgFYefhyXiG2+hsjENQTBDcOU4Un2H5DVTe3b10Dn7MV +whaxgzg71HcLCIErM9TZ7zsTDcvdnY6dF4anFXNbvNl4PsTL1V0a64CseIdi +sDlLmBslgtdB3LnBJwXYshr/2BWPrgMhn1OSbOxDhskVnf0iUFz6aBVjlIm6 +vENCKe1i8I7PYqpojIm+FCbGeawSB1ExBd5X2GOjxXl3jMVB1lkj/gc237Fv +PTubxcF95eKIxTgTGcXs1/SookDSIeowiV2fr00W5UjCYwft726TTJQ//DNs +xzFpsN5koxQ7w0SmBy58CS2TBmb91pIa7LEWkb1lTGkYWPsnhY2tmb9FTNZJ +BnzrQmJtZ/E8vdwqefT/Af/jnVwKc0w0M9l/YiRaFiQSNrl/IplIJMDoQaWV +HKgLX7qa9oOJmPl8vjZ+crCnMMDlNXbt526p8fNycIyXFi38k4lcLF2jlZrl +IL/i8kIydv7mMLt/qfLgIN/PSP+F92cXTkVSFIB7tLK/7DcT7ffhVzMfUATH +kmtWqpwshMIOUB1+K0I2h1VfKLZqbI4OTVIJErl92x9ic+RpGETaKoH2tr4n +dlwsVPbF2aHisRKcWzEic5abhXgPlp5dn6sMiZT8+EleFqo1snrH9lIBoWFl +UxEBFsqzv/ppIVIFRrZEF/piJ3oN9HNfVwGrshB6EzbtzPFRmR4VoGwW/e0n +yELCjVkc9oaqQNO4fL1tDQv5aUyoNshvhvKZpCsZwiwkJZcUFTe0BUQba5PC +KCzUeHlO5QenGsgICfH2Y7vMOr0hNqpBt8jYqJkEC2W3KKgYuKlB8NkdvP9I +spCcT/3rxfdq4PL0yPHO9bjf0mFFon0rtJ9dQgYyLCQtJUPIOqlD64x0RoQi +C20pOCbwC1Fhc17qI0MtFvKiRZNq1lSouTO/uxk7Uz71i4cLFSbzlqR3a7MQ +V+69+88ZVFgsm+fU1WGh3mz2/tRyKogvfPag6rHQpUyPLBV5DcinGQfq7WYh +ZpzlVkdeTRCdc/2SbMxCt0IUbKo6tECh2yqR7sBC3WFIJ6ZAD5wC6j/bRLPQ +Rre31q7+uyG1evxnRBUL0f9W35U+CeD3q4Odz2YhymjtSoqXAZwsjdDas3kE +HdPY9TlV1QhKbhZNqgaOIK/xpTYRtjEM3kOflqpGUJlB6MqcLhMw174TNMb3 +HeXP+T0uTTeD+N8yvS88vqPFPRL/tURZQED5W3HJZ99RHwfX9ICnFSw9HU1j +bWWjwA1Hk8/K74MrOhP2MplsdPdwW3NGrA1I8j3NPyA8ik7NSi5sPmwL7dT8 +MbFLo4g033uw1d0Ouq9zfp0VHkN6zil7hm3twWOfDo9nzhh6LZnl16KxHzzo +pl4hKuNo/e3oxqJNB4DkPjB95dk4qu1XtbQWPAjoVfySsusEknkz5RM2fhB8 +WyMMeucnkEZGSmlevwO823SmZTB3EmVxz25NfeoIC6dl1Rbkp1D1nm29sXVO +UN/xszUhagpl6lwWXio+BDuUCpPNPk2hrk8F5zXinUF/WyXfBuo0qrK6oRB0 +xgX4NUpKtqdMo+kAe45Amiv4D1UJubOnEblXxXfC0A2ez1Qq1+yZQUXjHxdD +td3hqqK9/7ucGeR4q8DbVcADeLNOjJ6Yn0GVFRbuXBc8wOG0gY+P3SzSk3r9 +49IPD6Ap8ic1FMwi+X6f3leHPcHW4JJLwNwsGuI/su/GN0+42KTfWWE8h7oT +rb1NDnhBgvuR7bwJcyidkcN/vNsLttd7y+a8mUONTX9/eJt5w3gQJc5HlERr +XeCCRr03ELn8wcfNSCQr2tq1odEb0gqIP5bmJFLvsJLgbcLrxTsFFCxIZLfL ++c6Hx97wovBuUbclidI3hLVHvPCGOl29fnkbEq3vK1nb9sEb/uxXVqo4SCIF +N0qmy4I36HrXzvp7k0jPY6IoVpMGb09lCNifJtHtf6dCrbVpoL84QfzGFu2Z +0afo0sDUsNKsMJxEE8YLb4p20iDYdmXRjwgSf784VnQY0EA0525L5hkSrVkQ +dlpnSwPtsEe05lgSDSVorc4JoMHa469PPkgiUWJD+OHa2zRgsRjcqrkkCqBe +1WMU0cBA6+xABbblnfLVusU0iKLLGe/MIxHfVeadmjIaOOj15Jjnkyg2xIZd +/YAGko4BN71vkyhcReFI1RMa1PdW10cWk8jvart/xRcajJYr1TlWkMhsDXNX +SD8N6pRX67/G3hTLIUgdpEGVeetei0oSMUO0ysqHaVC8Oubbzgck8rTOGb8/ +RoPpz49NKNUkcuQJDbz3E/fzOu9OdR2JTELXB5WK0yFD/4XZ1WYSPck5b54q +QYdEo2Ipvsck2tUxo8BYTwf/PfGO4djqiu0fDWXoIFQ5v879CYkk3582/KRI +h7bWoQvSLSQa3dEnzqdFh7VSUW6RrSRK4rz50MeeDm7Zwcpd/+H+twlkWh2g +w3WlV1u3dZIoxpkRouFAh/LW2OxEbMYDG+W/h+jgmnaz2qIL10+sSLniRQeu +zHOtTd0k/i/0oj0LpoOoQYLzxR4SvU9R5JdPpkP63mtdRR9IdBcJ+o6k0EFT +cDZrCjtmfK6lLI0OXY9smTofSUQ1a4nUvUqHmjUTQy3YiRzeM1bZdHCPNMz8 +0EuivUdvfmSU0sFZq7aD+ZlE0tIXtfXv0sGzt1hLqY9Ecy+PpnHdp0NH2SCF +jp2rhKwSK+kgMDZnMoD9u6+vOa+eDvnWgQd6vpDogaVUUWcbXpdy2JDdT6K4 +n5w86S/p8ML9kuhbbK8itqdTBx28uh1i+QdIJMRdLzXUheepl9sdhu3f4Jj0 +4x0dTJIGBEwGSSSveiVMYZgOKfuXRDq/kejn+4ie70w6fK1MSVnC7o6lq98b +oYP9TuoF1SESRQ5osvXG6HCyK7Q3Brs3s8d13ywdblRSZDWGSZS6Utj41AoC +xJyUN4YxSdQ40+d8jIsAyuPCiJvYrL7ikEAeAlSCFdVfYu96YHTTazUBKfTZ +K1Is/Lx5MH6ZCxNQKdznV40tZGm8zliEgDXy5mGfsHfqrFNBYgRwdQe8/4ud +LFh6UEOSgH5G7bW9I3i9/mu51EYCYpujFDqwiYLSNjF5AoLdnn0exU5OPvl1 +rSIBPEdj2Hzf8X6EiCC3CgEnN9nzmmAni5j4jqkTsHr9Sf0a7Po/IlFMKgG3 +3LtuvcIe/t6f0a9JgNKpI4dGsXc0n3r6RpeAFdpu7RvY+H32vyvzEAgw9swo +OYG9xvG0Vo0BAb96z9TGY+sZmlqWGxFQJH1x/S3sRMnBkwWmBLh3v+9rxa7l +vpecY07A9UsU1Iv9bfJ04b+WeF7ZnuQotu5zsbcJNgQMC/N4Co7i+10+OHrB +jgC/8YPi0tgJN+5xnttPwPyGfNkt2IMhZuphjgQEUOQ1TbEF3cRNgg4RIJJq +vfsAtq7ZN1c/FwL2NPte91y+/p+IODcPApJ2ux1kYNfymec6ehHAHaRZeW45 +jxSvs6MRULVhkha/nDfwrcuSIOCoWPyRjOW8jvvMvb4ExNmtbs1arq8m4jf4 +EdA9QztRsJyfay6605+AmJ1Z4aXL+QmUzVqBuP7M++8qlvMZQ3u2BRHw5HpW +bC22AK3cUSWEgH1/vC49xNbZF3lU/hgB5jl/Bx4v5++wOC8dRkBgTEjSM+x4 +RYksCoOAxY/1KW3Y1ULDlcKnCCiYeT/yEnvgV/lL/nAC7pm8SO9YzmdFDvBE +EvCekZjxH7b2a4vFv1EE2Fkqjy77f8vqMcA= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "PlotRange" -> {{0, 180}, {0.7155240756776204, 1.3700694261249464`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.715524075677622}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5391,7 +10504,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.4834141591801878}, + AxesOrigin->{0, 0.715524075677622}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5419,7 +10533,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7155240756776204, 1.3700694261249464`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5427,9 +10542,9 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913460797739086`*^9}, + CellChangeTimes->{3.9913460797739086`*^9, 3.993912422989008*^9}, CellLabel-> - "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] + "Out[118]=",ExpressionUUID->"eb9b911a-d33e-4829-9b37-e7bd4daefe37"] }, Open ]], Cell[CellGroupData[{ @@ -5492,207 +10607,159 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918502644064465`*^9, - 3.9918502684162617`*^9}},ExpressionUUID->"42ddbf41-0bd8-b749-bead-\ -56c89a9b7467"], + CellChangeTimes->{{3.9918502644064465`*^9, 3.9918502684162617`*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 444, - 477, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080016945*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0306518881693588`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993912423142127*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +In[119]:=",ExpressionUUID->"b0bae760-b88c-4a38-8296-48277e5d34cc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.80843708389008`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 42, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.9939124231495867`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"6720e511-51b0-4ddf-b972-504e34e9e13e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.652747687852641`*^-290\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 444, 478, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080026985*^9}, + 119, 43, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993912423156679*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 444, 479, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913460800358925`*^9}, - CellLabel-> - "During evaluation of \ -In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +In[119]:=",ExpressionUUID->"9c9abfcf-93ce-4891-8138-0f24cef88366"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080043894*^9}, +during this calculation.\"", 2, 119, 44, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993912423163945*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +In[119]:=",ExpressionUUID->"9cb52dc6-877c-45d9-9f43-5c4707a58a5c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf//APCiQmVERjfj3nOvURmJ+CrX64WGjIpoICkthaQiUlaKSJIK +KWWVeQ9KyKdEoYyUTRENklXZkt/798d5nMfzccbrPc779Xof1oETVof45syZ +M0uO/z+Pdbx5xQlLNvAa/j41EQMGDfdkvA1bAsFGZLpW4q8soOS7AzItUTBL +LXj6floVPLenN/O3JMJqP7lLqdP6sGRQOmqyORdWmBvbHp02h87irSdGmkvB +wrh1MnXKHjZx+j79av4ADqJrLP4bd4HJZt2bw83doPFtv7Vyvy+UGT9Mfp/4 +B0Yu2YbODFwF2c7C7wdUZ2BdRe3+bzM3YanLvnQBY34U1l6QlhMfD1Gam55t +tRHE2sGeO9fyHkBrzOqSX2LCWBWa+E8kNRnCkv3e8S1bgjI1ZqWmkQ9BOvpL +6I27Emgo80jyomw6XLbeYvBhTBLLx2PSHTQygfG4lsE3Vwp1t/6vOkc3E7Il +rMc1F0mh0c9Y1ixkQtMHB/q6ghTuHX7rFLI9EziWpylLEylcscFplc3JTCi1 +SFhQFyuFA+mfJptyMmFm02htjb40tl/7G3FGPQtO6T3Y9yZQBh96VvWOSGaD +6X2REbNwGZRclGduK5sNlIBvSO1NGZSOavQporKhrmFnTv0jGcQGI+3jGtmg +7r6Yv6NWBl0eWy+JMMmG3lSv1N+MZfhF6rtiq3c22C/dOrA8bxkWPKyJCmzJ +Bq1zzwLuFS/D6+/r72BHNizsVpFilS/DydT7hya/ZEMhjx+UWpehn3npOruh +bJAyK4xcPbsMfzC/fOucz4O6AI72RjMGBhpbMgY0ebBhaMrH7QsDZ80+y0ld +4oG3SfTKl/0MvMyQdRYP40H2A7U2iTEGhn6ZThGK5IGMtaNeoeByVE+5OdIb +y4P+gtfj/OrLMf3x7NdjWTy4ERh5Ovbscky56C7pW8+Dbkklt1fCsmhU2C3Q +J0yD9IkXctLSsthzsmubtBgN5pW7a5yZsmgWnLHESJyGfJ8wVVEtWTQO7OeL +lKLhSudw357dsii51fKesAINa9KeHRlKlMWbBtzqaxo0BOhb7mf8Tw6PSrSU +0ltpMHG491vXSA6tZr0/PtlOg4j/zyAbczm0Gbg+t8CKhviy4NRIRzl0vfbT +LW8nDQWmRT8XhMqhd3B/+yUHGoZ3sz3/tMphaqCqxn1XGhzOjF6pPiePzszM +I/dCaVC8bSTbFyyP9p4zjhvDaNL/a1kCkfJYYZnk+iOcBp+/K+qMkuVRpYpZ +qhJJw80gB8nCanlUP3fB8eItGqqvVySkyClgk/jOIl4iDeuyYx9feKGA3XL1 +W1oLaNjQXDszWKmAktv7dggX0bB1zrzN+z4ooOWSb+0Gz2hwsnJrhW8K2O5a +fzjuPxo2nWP5+c9nYrNay0mtUhrcFcaSDFcx8cV0zKOBtzSM5kVWTmowUV3J +onCyirTPZNVAjjYTHbcdsOCvoSH4pKMOZcBE5xD2XNF3NMSVva3ks2Silr/F +A8F6Gl4dSRgo82Ti57YgmeA2Grb81RP3PcfEw7Wi4c7tNNRGNuho+zPx6zbR +ULOPNLQWCvknhzJRP2EuS7CDhsFFp8WD45ko7j1b79RFgwxtoruplIkiV28n +pvTQcHfDF7t/5Uw0Zjh3HOilgWo9759fxcSDzyzT5X7QoMaX90apkYllQZyR +sD4ajKzl7AV6mRjVvtTebIAGl4lf/pXCLLzwVaTL5jcZz5OHpb6LszBTfHPr +BLFgX1sGvwwLd4T2/o35Q0NKe1mTAcVCzs03lXUjNHQ8v6n6RIeF3hMfg+TH +acjUXVj6YT0LbSW1etOJfegLu4aRhVUTb3y1J2iQSjwSuMqMhcxbWnowScO2 +YL2WB/tYuLHPXUxrmgb5f1muLw6ysKDfSDCNuN+T4v/kzELKxm6t7F8aQo4u +Upc5TZ5PG9KcIt7Z5Ve21puFDv5P+A7N0MCxHdm94wIL50XbLKohLjH7FBQR +wsLP/16UR/+jIeKV5bLMqyxsb2/1GSG255Znv4liYc+si7PlLA2T6rzWeXdJ +vOqUCb45ObBGPEDjXA4Lpzukfm+YmwNzwkZfxeSz8KF/RngEcS3/Mdv8Zyxk +p8kcaSQ+PmoV/Os1C4tV9Dps+XJgnVsFQ7SKhSIXzH1jiQV71tOqdSwstJmw +byRObuG0H2lj4YHhz70b+HPAwzLWPbiTxBcPunmWGN8KL0j6ysIyj5DLacQi +xoF3Sn6wcKVLyotm4k/PxlZ3DJL2zb1mwD8vBzK1j5dP/2Hh6q6pearEPlmd +dssmWXh7X4KEFbFUQuUla34Ka9rcFt8i/irNlfUQpNChSmgijzg3MifnmjCF +zwz/U39H7C+ktDlLnMJFrUY5PcTbAuM+vpWmMOyDtf8Msfy0iEevLIXSktnx +YvNzoP9UkMACisIk1YUCLOKi/vF4tjKFn7colqgThxxyWWOoSmGyYXGlHvHO +js8VDpoU3gwPZxkRc3bZ7PXVofDKJuuqzcS/3735HbuewrXqH8pNiUtMDEKe +IoWxya+XmhFHvMyVa9xIYWTm4BMTYvt1ynm/TSnc2yecYUy8Mu+Oidh2Clcl +fR1ZTzy5SqxDzYbEK9aO1iQeu8sI0LKl8MnSvmoO8YioIkdvH4UHw03OSBL/ +CtCoMDhIoeVuoQh+4sE/esc2OFPoht+lh0j/fx7aIGzqRmFoQqxEC3Fv81Z6 +2ykKmw90BDwn/rZlzw6bsxQGCLk7JRJ3P3Masz1PoVHywsIg4k41t1jHQAp7 +Go4FHSD+mHBW//BlCvtrLMoMiJuCrgaevE4hL+9G6hCZ7/rR24petyh80XDK +7BVx3ZHESt87FI4pvj96i/it2VORkBQKS77wi2kRV/z3MudqOoWuE7Z3Zsj3 +9kqj2voGj8xf+JrE18TPJbri7hVSqBrloriV+FnwT27ycwrdl9gkiRAXjI9+ +Tiuj8OXKtwnV5PvObV+o/KSGwrNGLtKGxDwLybdFH8j8p7Kjx8l6yXyh4FrS +TMbf1Tcqgzg1STuvqotClVZV6cXEcccdoHuUwqmG/Tt5ZP3d/nS0u2eKwlzD +yVFL4uhtp4IHZilch2fkfpP1G6EVUjUhxEalS5sEVhEHTufsEpVnY5dxvL0f +yQ9+rsVTS9lsVE1KtBQh9u0sv8tQYeN+5d8NcVM0eJa1f1Fcw0aZ+49CM0m+ +OR42311/ExsvxmqV5pL8dHRGVMLIjI1fGwHViQ+fYORv3s5GTxPGjodjNDju +0PhrZctGgergdVGjNFgv3xPi7MbGmITDymYkH+pnZN6/dYuN4w2O2qaDNLQz +MxI23mHj3wL9yXSSX31upd0bSWDjiIAKT4j4aUBqvFUaG3cxfw+X/CT1ePf9 +GJFiNjrYV3dKkXy9Yn505KUuNj79d05g/xcaKn2irq39zkbGa0rzQTdp33Bk +xNc+Nv6uldzVSepBcvvVcKMRNsbnPYuz+UwDM/dyyL8FHBzcLSW58hPJt/vO ++XuqcjDsdrTXqSYanjR4+ylqcrB5cmfxjUbSH9OzFxrWcrDafFwwt4GGqLVn +fNcAB/NMXhb3fqBBePGJs4OWHHzhJZNkQOrbvMID7oe9yHVOqdjVChp+iZs6 +7iwl8aT4eIX5NLS4UHXHKjgYVFWjfPEJyb/lU+BXzUH3+f3HzR/TEOmTofCo +iYO7rURsm3JoWN29uHOyj4MeY4E/3mXS4Jbzbu9dCUXcpkTl2ZL63rfNxu7r +QUVMDjP/00j2Cx/S1KomnBXxAnXtld0VGor4F6wXPqGIjZWGAZ0hNIQ+zWfo +eCtimcSSl5+DaVBRkGm7fFURw33kvN760XBksG33qnxFfOItk7z+FA1fwx13 +eggo4ZwUUdP43SR+nyq1erESPsqyYMyS/c345smBATElvNsWretoQ8NC/qhg +Z4YSHmPk2MuR/dBq77LHjmpK2NRj7hxkRsP5Q0oS23Yo4Z86ga2zXDL+Bv3v +ViUoobfTdodiFqn/Q15bvukoY23tkorJSh7IaspfEtRXRmZ507m7r3gw6PGq +dJWhMgaH1j7llvAgekxM38NMGe/P9ak99ZQHHTNp6rP7lPHdUGV+fgoPPBZ/ +lFgWqoyaHgdPxwbwIG4Fdpi3K2Oh4WRBtw7ZXzoJnnrsp4JVA8a582Oyyf+G +NN/l0hWYsvnN3H2QBeI1ShH00ErMcVNxW/MpA2RDeNt1dFQxyuuJVo9hOsSs +0hOTOKKGOz5rzn3AewRvGYZr/1xXx7Jp44lkxkNYJ1saqdGkgcOLggc5Dikg +wp94en/gatTdckxSryQJ5AMU9PcoaeLMfif7zQsSQUjRPt+qQhNbtMSvKzje +B3XuMp7X3jWo6LajnPnmLnh0iJeZztHCi8es9d2fxsHQn3CbLTFaqCaryTc2 +NwY2a5THbVHTxqPSu3vqAm/C8z/rp8drtfFUtFWYzkwUuKmuaXt/aC1WRGxv +W/Q+EriDBxv2COlglvAJ+r7lVdjIkbEQTtTBJMNb3088CgUV/ytnS3V1sRw9 +rW8cuQQrD+m9UGzTRZElrxNS9YPg0POjFx+f/B8eXWB5b1OcP7y433Dwl6Qe +uqsUSgYp+8LIo9lxjad62PUlXs+4zgucFDOE4izWYbSu663zG0/Dr5U3dHKH +1+GcTROjWkPuUJA83TUash7rNOZR3AsuYLuBjevl9bHe1y0Jfh2B5a6XC9VL +9FHKOGZlT4ETSC50ybHYxUWJ1Iy3q/c7QrLxeZ/hPVxUEpl4eGaHI6w5H2F8 +w56L6V53rrza6Ahbh+nGlv1cbHx52MR/pSNcahqddHLhYu7jefM6evfBRKKf +kU8AFzNfv3losnQftK2/UZ+awUXbp1Pq4d574eiZ5Pgt2VxsmvSv8nfcC2PZ +Tw7101x8nNjIF7J5L4hTLeOa+Vz8qyUqWSu5F8wE5WT/K+Ei//yiCN08eyhu +SD1Y38jFLLF+Wc9fdmAqUqDm2cJFL4VctWutdtCy+c2YTDsX176rVy56aQcj +RT9DHD5zMY11OHNjlB2oPVid9aOPix/kHV9rattBcZuhZ/gAFwOULgy1yJL3 +Ld0BGsNcFK7syrg+3w4OXz7z/vQoFxcsN6J1m21hpORSnPQEFyu/ZXVzSmwh +cOq2U9EUF2vOc33ZabYgpp2muneGi0HOWh5aUbZwz7VodHaW3H+jqdD6nC38 +H7wcRw0= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5706,166 +10773,114 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb +1:eJwV13c8Vf//APCiQmVERjfj3nOvURmJ+CrX64WGjIpoICkthaQiUlaKSJIK +KWWVeQ9KyKdEoYyUTRENklXZkt/798d5nMfzccbrPc779Xof1oETVof45syZ +M0uO/z+Pdbx5xQlLNvAa/j41EQMGDfdkvA1bAsFGZLpW4q8soOS7AzItUTBL +LXj6floVPLenN/O3JMJqP7lLqdP6sGRQOmqyORdWmBvbHp02h87irSdGmkvB +wrh1MnXKHjZx+j79av4ADqJrLP4bd4HJZt2bw83doPFtv7Vyvy+UGT9Mfp/4 +B0Yu2YbODFwF2c7C7wdUZ2BdRe3+bzM3YanLvnQBY34U1l6QlhMfD1Gam55t +tRHE2sGeO9fyHkBrzOqSX2LCWBWa+E8kNRnCkv3e8S1bgjI1ZqWmkQ9BOvpL +6I27Emgo80jyomw6XLbeYvBhTBLLx2PSHTQygfG4lsE3Vwp1t/6vOkc3E7Il +rMc1F0mh0c9Y1ixkQtMHB/q6ghTuHX7rFLI9EziWpylLEylcscFplc3JTCi1 +SFhQFyuFA+mfJptyMmFm02htjb40tl/7G3FGPQtO6T3Y9yZQBh96VvWOSGaD +6X2REbNwGZRclGduK5sNlIBvSO1NGZSOavQporKhrmFnTv0jGcQGI+3jGtmg +7r6Yv6NWBl0eWy+JMMmG3lSv1N+MZfhF6rtiq3c22C/dOrA8bxkWPKyJCmzJ +Bq1zzwLuFS/D6+/r72BHNizsVpFilS/DydT7hya/ZEMhjx+UWpehn3npOruh +bJAyK4xcPbsMfzC/fOucz4O6AI72RjMGBhpbMgY0ebBhaMrH7QsDZ80+y0ld +4oG3SfTKl/0MvMyQdRYP40H2A7U2iTEGhn6ZThGK5IGMtaNeoeByVE+5OdIb +y4P+gtfj/OrLMf3x7NdjWTy4ERh5Ovbscky56C7pW8+Dbkklt1fCsmhU2C3Q +J0yD9IkXctLSsthzsmubtBgN5pW7a5yZsmgWnLHESJyGfJ8wVVEtWTQO7OeL +lKLhSudw357dsii51fKesAINa9KeHRlKlMWbBtzqaxo0BOhb7mf8Tw6PSrSU +0ltpMHG491vXSA6tZr0/PtlOg4j/zyAbczm0Gbg+t8CKhviy4NRIRzl0vfbT +LW8nDQWmRT8XhMqhd3B/+yUHGoZ3sz3/tMphaqCqxn1XGhzOjF6pPiePzszM +I/dCaVC8bSTbFyyP9p4zjhvDaNL/a1kCkfJYYZnk+iOcBp+/K+qMkuVRpYpZ +qhJJw80gB8nCanlUP3fB8eItGqqvVySkyClgk/jOIl4iDeuyYx9feKGA3XL1 +W1oLaNjQXDszWKmAktv7dggX0bB1zrzN+z4ooOWSb+0Gz2hwsnJrhW8K2O5a +fzjuPxo2nWP5+c9nYrNay0mtUhrcFcaSDFcx8cV0zKOBtzSM5kVWTmowUV3J +onCyirTPZNVAjjYTHbcdsOCvoSH4pKMOZcBE5xD2XNF3NMSVva3ks2Silr/F +A8F6Gl4dSRgo82Ti57YgmeA2Grb81RP3PcfEw7Wi4c7tNNRGNuho+zPx6zbR +ULOPNLQWCvknhzJRP2EuS7CDhsFFp8WD45ko7j1b79RFgwxtoruplIkiV28n +pvTQcHfDF7t/5Uw0Zjh3HOilgWo9759fxcSDzyzT5X7QoMaX90apkYllQZyR +sD4ajKzl7AV6mRjVvtTebIAGl4lf/pXCLLzwVaTL5jcZz5OHpb6LszBTfHPr +BLFgX1sGvwwLd4T2/o35Q0NKe1mTAcVCzs03lXUjNHQ8v6n6RIeF3hMfg+TH +acjUXVj6YT0LbSW1etOJfegLu4aRhVUTb3y1J2iQSjwSuMqMhcxbWnowScO2 +YL2WB/tYuLHPXUxrmgb5f1muLw6ysKDfSDCNuN+T4v/kzELKxm6t7F8aQo4u +Upc5TZ5PG9KcIt7Z5Ve21puFDv5P+A7N0MCxHdm94wIL50XbLKohLjH7FBQR +wsLP/16UR/+jIeKV5bLMqyxsb2/1GSG255Znv4liYc+si7PlLA2T6rzWeXdJ +vOqUCb45ObBGPEDjXA4Lpzukfm+YmwNzwkZfxeSz8KF/RngEcS3/Mdv8Zyxk +p8kcaSQ+PmoV/Os1C4tV9Dps+XJgnVsFQ7SKhSIXzH1jiQV71tOqdSwstJmw +byRObuG0H2lj4YHhz70b+HPAwzLWPbiTxBcPunmWGN8KL0j6ysIyj5DLacQi +xoF3Sn6wcKVLyotm4k/PxlZ3DJL2zb1mwD8vBzK1j5dP/2Hh6q6pearEPlmd +dssmWXh7X4KEFbFUQuUla34Ka9rcFt8i/irNlfUQpNChSmgijzg3MifnmjCF +zwz/U39H7C+ktDlLnMJFrUY5PcTbAuM+vpWmMOyDtf8Msfy0iEevLIXSktnx +YvNzoP9UkMACisIk1YUCLOKi/vF4tjKFn7colqgThxxyWWOoSmGyYXGlHvHO +js8VDpoU3gwPZxkRc3bZ7PXVofDKJuuqzcS/3735HbuewrXqH8pNiUtMDEKe +IoWxya+XmhFHvMyVa9xIYWTm4BMTYvt1ynm/TSnc2yecYUy8Mu+Oidh2Clcl +fR1ZTzy5SqxDzYbEK9aO1iQeu8sI0LKl8MnSvmoO8YioIkdvH4UHw03OSBL/ +CtCoMDhIoeVuoQh+4sE/esc2OFPoht+lh0j/fx7aIGzqRmFoQqxEC3Fv81Z6 +2ykKmw90BDwn/rZlzw6bsxQGCLk7JRJ3P3Masz1PoVHywsIg4k41t1jHQAp7 +Go4FHSD+mHBW//BlCvtrLMoMiJuCrgaevE4hL+9G6hCZ7/rR24petyh80XDK +7BVx3ZHESt87FI4pvj96i/it2VORkBQKS77wi2kRV/z3MudqOoWuE7Z3Zsj3 +9kqj2voGj8xf+JrE18TPJbri7hVSqBrloriV+FnwT27ycwrdl9gkiRAXjI9+ +Tiuj8OXKtwnV5PvObV+o/KSGwrNGLtKGxDwLybdFH8j8p7Kjx8l6yXyh4FrS +TMbf1Tcqgzg1STuvqotClVZV6cXEcccdoHuUwqmG/Tt5ZP3d/nS0u2eKwlzD +yVFL4uhtp4IHZilch2fkfpP1G6EVUjUhxEalS5sEVhEHTufsEpVnY5dxvL0f +yQ9+rsVTS9lsVE1KtBQh9u0sv8tQYeN+5d8NcVM0eJa1f1Fcw0aZ+49CM0m+ +OR42311/ExsvxmqV5pL8dHRGVMLIjI1fGwHViQ+fYORv3s5GTxPGjodjNDju +0PhrZctGgergdVGjNFgv3xPi7MbGmITDymYkH+pnZN6/dYuN4w2O2qaDNLQz +MxI23mHj3wL9yXSSX31upd0bSWDjiIAKT4j4aUBqvFUaG3cxfw+X/CT1ePf9 +GJFiNjrYV3dKkXy9Yn505KUuNj79d05g/xcaKn2irq39zkbGa0rzQTdp33Bk +xNc+Nv6uldzVSepBcvvVcKMRNsbnPYuz+UwDM/dyyL8FHBzcLSW58hPJt/vO ++XuqcjDsdrTXqSYanjR4+ylqcrB5cmfxjUbSH9OzFxrWcrDafFwwt4GGqLVn +fNcAB/NMXhb3fqBBePGJs4OWHHzhJZNkQOrbvMID7oe9yHVOqdjVChp+iZs6 +7iwl8aT4eIX5NLS4UHXHKjgYVFWjfPEJyb/lU+BXzUH3+f3HzR/TEOmTofCo +iYO7rURsm3JoWN29uHOyj4MeY4E/3mXS4Jbzbu9dCUXcpkTl2ZL63rfNxu7r +QUVMDjP/00j2Cx/S1KomnBXxAnXtld0VGor4F6wXPqGIjZWGAZ0hNIQ+zWfo +eCtimcSSl5+DaVBRkGm7fFURw33kvN760XBksG33qnxFfOItk7z+FA1fwx13 +eggo4ZwUUdP43SR+nyq1erESPsqyYMyS/c345smBATElvNsWretoQ8NC/qhg +Z4YSHmPk2MuR/dBq77LHjmpK2NRj7hxkRsP5Q0oS23Yo4Z86ga2zXDL+Bv3v +ViUoobfTdodiFqn/Q15bvukoY23tkorJSh7IaspfEtRXRmZ507m7r3gw6PGq +dJWhMgaH1j7llvAgekxM38NMGe/P9ak99ZQHHTNp6rP7lPHdUGV+fgoPPBZ/ +lFgWqoyaHgdPxwbwIG4Fdpi3K2Oh4WRBtw7ZXzoJnnrsp4JVA8a582Oyyf+G +NN/l0hWYsvnN3H2QBeI1ShH00ErMcVNxW/MpA2RDeNt1dFQxyuuJVo9hOsSs +0hOTOKKGOz5rzn3AewRvGYZr/1xXx7Jp44lkxkNYJ1saqdGkgcOLggc5Dikg +wp94en/gatTdckxSryQJ5AMU9PcoaeLMfif7zQsSQUjRPt+qQhNbtMSvKzje +B3XuMp7X3jWo6LajnPnmLnh0iJeZztHCi8es9d2fxsHQn3CbLTFaqCaryTc2 +NwY2a5THbVHTxqPSu3vqAm/C8z/rp8drtfFUtFWYzkwUuKmuaXt/aC1WRGxv +W/Q+EriDBxv2COlglvAJ+r7lVdjIkbEQTtTBJMNb3088CgUV/ytnS3V1sRw9 +rW8cuQQrD+m9UGzTRZElrxNS9YPg0POjFx+f/B8eXWB5b1OcP7y433Dwl6Qe +uqsUSgYp+8LIo9lxjad62PUlXs+4zgucFDOE4izWYbSu663zG0/Dr5U3dHKH +1+GcTROjWkPuUJA83TUash7rNOZR3AsuYLuBjevl9bHe1y0Jfh2B5a6XC9VL +9FHKOGZlT4ETSC50ybHYxUWJ1Iy3q/c7QrLxeZ/hPVxUEpl4eGaHI6w5H2F8 +w56L6V53rrza6Ahbh+nGlv1cbHx52MR/pSNcahqddHLhYu7jefM6evfBRKKf +kU8AFzNfv3losnQftK2/UZ+awUXbp1Pq4d574eiZ5Pgt2VxsmvSv8nfcC2PZ +Tw7101x8nNjIF7J5L4hTLeOa+Vz8qyUqWSu5F8wE5WT/K+Ei//yiCN08eyhu +SD1Y38jFLLF+Wc9fdmAqUqDm2cJFL4VctWutdtCy+c2YTDsX176rVy56aQcj +RT9DHD5zMY11OHNjlB2oPVid9aOPix/kHV9rattBcZuhZ/gAFwOULgy1yJL3 +Ld0BGsNcFK7syrg+3w4OXz7z/vQoFxcsN6J1m21hpORSnPQEFyu/ZXVzSmwh +cOq2U9EUF2vOc33ZabYgpp2muneGi0HOWh5aUbZwz7VodHaW3H+jqdD6nC38 +H7wcRw0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.06648701913003875}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5877,19 +10892,19 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.06648701913003875}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5903,165 +10918,113 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb +1:eJwV13c8Vf//APCiQmVERjfj3nOvURmJ+CrX64WGjIpoICkthaQiUlaKSJIK +KWWVeQ9KyKdEoYyUTRENklXZkt/798d5nMfzccbrPc779Xof1oETVof45syZ +M0uO/z+Pdbx5xQlLNvAa/j41EQMGDfdkvA1bAsFGZLpW4q8soOS7AzItUTBL +LXj6floVPLenN/O3JMJqP7lLqdP6sGRQOmqyORdWmBvbHp02h87irSdGmkvB +wrh1MnXKHjZx+j79av4ADqJrLP4bd4HJZt2bw83doPFtv7Vyvy+UGT9Mfp/4 +B0Yu2YbODFwF2c7C7wdUZ2BdRe3+bzM3YanLvnQBY34U1l6QlhMfD1Gam55t +tRHE2sGeO9fyHkBrzOqSX2LCWBWa+E8kNRnCkv3e8S1bgjI1ZqWmkQ9BOvpL +6I27Emgo80jyomw6XLbeYvBhTBLLx2PSHTQygfG4lsE3Vwp1t/6vOkc3E7Il +rMc1F0mh0c9Y1ixkQtMHB/q6ghTuHX7rFLI9EziWpylLEylcscFplc3JTCi1 +SFhQFyuFA+mfJptyMmFm02htjb40tl/7G3FGPQtO6T3Y9yZQBh96VvWOSGaD +6X2REbNwGZRclGduK5sNlIBvSO1NGZSOavQporKhrmFnTv0jGcQGI+3jGtmg +7r6Yv6NWBl0eWy+JMMmG3lSv1N+MZfhF6rtiq3c22C/dOrA8bxkWPKyJCmzJ +Bq1zzwLuFS/D6+/r72BHNizsVpFilS/DydT7hya/ZEMhjx+UWpehn3npOruh +bJAyK4xcPbsMfzC/fOucz4O6AI72RjMGBhpbMgY0ebBhaMrH7QsDZ80+y0ld +4oG3SfTKl/0MvMyQdRYP40H2A7U2iTEGhn6ZThGK5IGMtaNeoeByVE+5OdIb +y4P+gtfj/OrLMf3x7NdjWTy4ERh5Ovbscky56C7pW8+Dbkklt1fCsmhU2C3Q +J0yD9IkXctLSsthzsmubtBgN5pW7a5yZsmgWnLHESJyGfJ8wVVEtWTQO7OeL +lKLhSudw357dsii51fKesAINa9KeHRlKlMWbBtzqaxo0BOhb7mf8Tw6PSrSU +0ltpMHG491vXSA6tZr0/PtlOg4j/zyAbczm0Gbg+t8CKhviy4NRIRzl0vfbT +LW8nDQWmRT8XhMqhd3B/+yUHGoZ3sz3/tMphaqCqxn1XGhzOjF6pPiePzszM +I/dCaVC8bSTbFyyP9p4zjhvDaNL/a1kCkfJYYZnk+iOcBp+/K+qMkuVRpYpZ +qhJJw80gB8nCanlUP3fB8eItGqqvVySkyClgk/jOIl4iDeuyYx9feKGA3XL1 +W1oLaNjQXDszWKmAktv7dggX0bB1zrzN+z4ooOWSb+0Gz2hwsnJrhW8K2O5a +fzjuPxo2nWP5+c9nYrNay0mtUhrcFcaSDFcx8cV0zKOBtzSM5kVWTmowUV3J +onCyirTPZNVAjjYTHbcdsOCvoSH4pKMOZcBE5xD2XNF3NMSVva3ks2Silr/F +A8F6Gl4dSRgo82Ti57YgmeA2Grb81RP3PcfEw7Wi4c7tNNRGNuho+zPx6zbR +ULOPNLQWCvknhzJRP2EuS7CDhsFFp8WD45ko7j1b79RFgwxtoruplIkiV28n +pvTQcHfDF7t/5Uw0Zjh3HOilgWo9759fxcSDzyzT5X7QoMaX90apkYllQZyR +sD4ajKzl7AV6mRjVvtTebIAGl4lf/pXCLLzwVaTL5jcZz5OHpb6LszBTfHPr +BLFgX1sGvwwLd4T2/o35Q0NKe1mTAcVCzs03lXUjNHQ8v6n6RIeF3hMfg+TH +acjUXVj6YT0LbSW1etOJfegLu4aRhVUTb3y1J2iQSjwSuMqMhcxbWnowScO2 +YL2WB/tYuLHPXUxrmgb5f1muLw6ysKDfSDCNuN+T4v/kzELKxm6t7F8aQo4u +Upc5TZ5PG9KcIt7Z5Ve21puFDv5P+A7N0MCxHdm94wIL50XbLKohLjH7FBQR +wsLP/16UR/+jIeKV5bLMqyxsb2/1GSG255Znv4liYc+si7PlLA2T6rzWeXdJ +vOqUCb45ObBGPEDjXA4Lpzukfm+YmwNzwkZfxeSz8KF/RngEcS3/Mdv8Zyxk +p8kcaSQ+PmoV/Os1C4tV9Dps+XJgnVsFQ7SKhSIXzH1jiQV71tOqdSwstJmw +byRObuG0H2lj4YHhz70b+HPAwzLWPbiTxBcPunmWGN8KL0j6ysIyj5DLacQi +xoF3Sn6wcKVLyotm4k/PxlZ3DJL2zb1mwD8vBzK1j5dP/2Hh6q6pearEPlmd +dssmWXh7X4KEFbFUQuUla34Ka9rcFt8i/irNlfUQpNChSmgijzg3MifnmjCF +zwz/U39H7C+ktDlLnMJFrUY5PcTbAuM+vpWmMOyDtf8Msfy0iEevLIXSktnx +YvNzoP9UkMACisIk1YUCLOKi/vF4tjKFn7colqgThxxyWWOoSmGyYXGlHvHO +js8VDpoU3gwPZxkRc3bZ7PXVofDKJuuqzcS/3735HbuewrXqH8pNiUtMDEKe +IoWxya+XmhFHvMyVa9xIYWTm4BMTYvt1ynm/TSnc2yecYUy8Mu+Oidh2Clcl +fR1ZTzy5SqxDzYbEK9aO1iQeu8sI0LKl8MnSvmoO8YioIkdvH4UHw03OSBL/ +CtCoMDhIoeVuoQh+4sE/esc2OFPoht+lh0j/fx7aIGzqRmFoQqxEC3Fv81Z6 +2ykKmw90BDwn/rZlzw6bsxQGCLk7JRJ3P3Masz1PoVHywsIg4k41t1jHQAp7 +Go4FHSD+mHBW//BlCvtrLMoMiJuCrgaevE4hL+9G6hCZ7/rR24petyh80XDK +7BVx3ZHESt87FI4pvj96i/it2VORkBQKS77wi2kRV/z3MudqOoWuE7Z3Zsj3 +9kqj2voGj8xf+JrE18TPJbri7hVSqBrloriV+FnwT27ycwrdl9gkiRAXjI9+ +Tiuj8OXKtwnV5PvObV+o/KSGwrNGLtKGxDwLybdFH8j8p7Kjx8l6yXyh4FrS +TMbf1Tcqgzg1STuvqotClVZV6cXEcccdoHuUwqmG/Tt5ZP3d/nS0u2eKwlzD +yVFL4uhtp4IHZilch2fkfpP1G6EVUjUhxEalS5sEVhEHTufsEpVnY5dxvL0f +yQ9+rsVTS9lsVE1KtBQh9u0sv8tQYeN+5d8NcVM0eJa1f1Fcw0aZ+49CM0m+ +OR42311/ExsvxmqV5pL8dHRGVMLIjI1fGwHViQ+fYORv3s5GTxPGjodjNDju +0PhrZctGgergdVGjNFgv3xPi7MbGmITDymYkH+pnZN6/dYuN4w2O2qaDNLQz +MxI23mHj3wL9yXSSX31upd0bSWDjiIAKT4j4aUBqvFUaG3cxfw+X/CT1ePf9 +GJFiNjrYV3dKkXy9Yn505KUuNj79d05g/xcaKn2irq39zkbGa0rzQTdp33Bk +xNc+Nv6uldzVSepBcvvVcKMRNsbnPYuz+UwDM/dyyL8FHBzcLSW58hPJt/vO ++XuqcjDsdrTXqSYanjR4+ylqcrB5cmfxjUbSH9OzFxrWcrDafFwwt4GGqLVn +fNcAB/NMXhb3fqBBePGJs4OWHHzhJZNkQOrbvMID7oe9yHVOqdjVChp+iZs6 +7iwl8aT4eIX5NLS4UHXHKjgYVFWjfPEJyb/lU+BXzUH3+f3HzR/TEOmTofCo +iYO7rURsm3JoWN29uHOyj4MeY4E/3mXS4Jbzbu9dCUXcpkTl2ZL63rfNxu7r +QUVMDjP/00j2Cx/S1KomnBXxAnXtld0VGor4F6wXPqGIjZWGAZ0hNIQ+zWfo +eCtimcSSl5+DaVBRkGm7fFURw33kvN760XBksG33qnxFfOItk7z+FA1fwx13 +eggo4ZwUUdP43SR+nyq1erESPsqyYMyS/c345smBATElvNsWretoQ8NC/qhg +Z4YSHmPk2MuR/dBq77LHjmpK2NRj7hxkRsP5Q0oS23Yo4Z86ga2zXDL+Bv3v +ViUoobfTdodiFqn/Q15bvukoY23tkorJSh7IaspfEtRXRmZ507m7r3gw6PGq +dJWhMgaH1j7llvAgekxM38NMGe/P9ak99ZQHHTNp6rP7lPHdUGV+fgoPPBZ/ +lFgWqoyaHgdPxwbwIG4Fdpi3K2Oh4WRBtw7ZXzoJnnrsp4JVA8a582Oyyf+G +NN/l0hWYsvnN3H2QBeI1ShH00ErMcVNxW/MpA2RDeNt1dFQxyuuJVo9hOsSs +0hOTOKKGOz5rzn3AewRvGYZr/1xXx7Jp44lkxkNYJ1saqdGkgcOLggc5Dikg +wp94en/gatTdckxSryQJ5AMU9PcoaeLMfif7zQsSQUjRPt+qQhNbtMSvKzje +B3XuMp7X3jWo6LajnPnmLnh0iJeZztHCi8es9d2fxsHQn3CbLTFaqCaryTc2 +NwY2a5THbVHTxqPSu3vqAm/C8z/rp8drtfFUtFWYzkwUuKmuaXt/aC1WRGxv +W/Q+EriDBxv2COlglvAJ+r7lVdjIkbEQTtTBJMNb3088CgUV/ytnS3V1sRw9 +rW8cuQQrD+m9UGzTRZElrxNS9YPg0POjFx+f/B8eXWB5b1OcP7y433Dwl6Qe +uqsUSgYp+8LIo9lxjad62PUlXs+4zgucFDOE4izWYbSu663zG0/Dr5U3dHKH +1+GcTROjWkPuUJA83TUash7rNOZR3AsuYLuBjevl9bHe1y0Jfh2B5a6XC9VL +9FHKOGZlT4ETSC50ybHYxUWJ1Iy3q/c7QrLxeZ/hPVxUEpl4eGaHI6w5H2F8 +w56L6V53rrza6Ahbh+nGlv1cbHx52MR/pSNcahqddHLhYu7jefM6evfBRKKf +kU8AFzNfv3losnQftK2/UZ+awUXbp1Pq4d574eiZ5Pgt2VxsmvSv8nfcC2PZ +Tw7101x8nNjIF7J5L4hTLeOa+Vz8qyUqWSu5F8wE5WT/K+Ei//yiCN08eyhu +SD1Y38jFLLF+Wc9fdmAqUqDm2cJFL4VctWutdtCy+c2YTDsX176rVy56aQcj +RT9DHD5zMY11OHNjlB2oPVid9aOPix/kHV9rattBcZuhZ/gAFwOULgy1yJL3 +Ld0BGsNcFK7syrg+3w4OXz7z/vQoFxcsN6J1m21hpORSnPQEFyu/ZXVzSmwh +cOq2U9EUF2vOc33ZabYgpp2muneGi0HOWh5aUbZwz7VodHaW3H+jqdD6nC38 +H7wcRw0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.06648701913003875}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6072,6 +11035,7 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6099,7 +11063,8 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06648701913003875}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6107,17 +11072,562 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913465524249306`*^9}, + CellChangeTimes->{3.9913465524249306`*^9, 3.993912746536599*^9}, CellLabel-> - "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] + "Out[119]=",ExpressionUUID->"b63494eb-b053-4ebe-b42d-fbac4fd6a86e"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ -ae60c73e9e82"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf//APCiQmVERjfj3nOvURmJ+CrX64WGjIpoICkthaQiUlaKSJIK +KWWVeQ9KyKdEoYyUTRENklXZkt/798d5nMfzccbrPc779Xof1oETVof45syZ +M0uO/z+Pdbx5xQlLNvAa/j41EQMGDfdkvA1bAsFGZLpW4q8soOS7AzItUTBL +LXj6floVPLenN/O3JMJqP7lLqdP6sGRQOmqyORdWmBvbHp02h87irSdGmkvB +wrh1MnXKHjZx+j79av4ADqJrLP4bd4HJZt2bw83doPFtv7Vyvy+UGT9Mfp/4 +B0Yu2YbODFwF2c7C7wdUZ2BdRe3+bzM3YanLvnQBY34U1l6QlhMfD1Gam55t +tRHE2sGeO9fyHkBrzOqSX2LCWBWa+E8kNRnCkv3e8S1bgjI1ZqWmkQ9BOvpL +6I27Emgo80jyomw6XLbeYvBhTBLLx2PSHTQygfG4lsE3Vwp1t/6vOkc3E7Il +rMc1F0mh0c9Y1ixkQtMHB/q6ghTuHX7rFLI9EziWpylLEylcscFplc3JTCi1 +SFhQFyuFA+mfJptyMmFm02htjb40tl/7G3FGPQtO6T3Y9yZQBh96VvWOSGaD +6X2REbNwGZRclGduK5sNlIBvSO1NGZSOavQporKhrmFnTv0jGcQGI+3jGtmg +7r6Yv6NWBl0eWy+JMMmG3lSv1N+MZfhF6rtiq3c22C/dOrA8bxkWPKyJCmzJ +Bq1zzwLuFS/D6+/r72BHNizsVpFilS/DydT7hya/ZEMhjx+UWpehn3npOruh +bJAyK4xcPbsMfzC/fOucz4O6AI72RjMGBhpbMgY0ebBhaMrH7QsDZ80+y0ld +4oG3SfTKl/0MvMyQdRYP40H2A7U2iTEGhn6ZThGK5IGMtaNeoeByVE+5OdIb +y4P+gtfj/OrLMf3x7NdjWTy4ERh5Ovbscky56C7pW8+Dbkklt1fCsmhU2C3Q +J0yD9IkXctLSsthzsmubtBgN5pW7a5yZsmgWnLHESJyGfJ8wVVEtWTQO7OeL +lKLhSudw357dsii51fKesAINa9KeHRlKlMWbBtzqaxo0BOhb7mf8Tw6PSrSU +0ltpMHG491vXSA6tZr0/PtlOg4j/zyAbczm0Gbg+t8CKhviy4NRIRzl0vfbT +LW8nDQWmRT8XhMqhd3B/+yUHGoZ3sz3/tMphaqCqxn1XGhzOjF6pPiePzszM +I/dCaVC8bSTbFyyP9p4zjhvDaNL/a1kCkfJYYZnk+iOcBp+/K+qMkuVRpYpZ +qhJJw80gB8nCanlUP3fB8eItGqqvVySkyClgk/jOIl4iDeuyYx9feKGA3XL1 +W1oLaNjQXDszWKmAktv7dggX0bB1zrzN+z4ooOWSb+0Gz2hwsnJrhW8K2O5a +fzjuPxo2nWP5+c9nYrNay0mtUhrcFcaSDFcx8cV0zKOBtzSM5kVWTmowUV3J +onCyirTPZNVAjjYTHbcdsOCvoSH4pKMOZcBE5xD2XNF3NMSVva3ks2Silr/F +A8F6Gl4dSRgo82Ti57YgmeA2Grb81RP3PcfEw7Wi4c7tNNRGNuho+zPx6zbR +ULOPNLQWCvknhzJRP2EuS7CDhsFFp8WD45ko7j1b79RFgwxtoruplIkiV28n +pvTQcHfDF7t/5Uw0Zjh3HOilgWo9759fxcSDzyzT5X7QoMaX90apkYllQZyR +sD4ajKzl7AV6mRjVvtTebIAGl4lf/pXCLLzwVaTL5jcZz5OHpb6LszBTfHPr +BLFgX1sGvwwLd4T2/o35Q0NKe1mTAcVCzs03lXUjNHQ8v6n6RIeF3hMfg+TH +acjUXVj6YT0LbSW1etOJfegLu4aRhVUTb3y1J2iQSjwSuMqMhcxbWnowScO2 +YL2WB/tYuLHPXUxrmgb5f1muLw6ysKDfSDCNuN+T4v/kzELKxm6t7F8aQo4u +Upc5TZ5PG9KcIt7Z5Ve21puFDv5P+A7N0MCxHdm94wIL50XbLKohLjH7FBQR +wsLP/16UR/+jIeKV5bLMqyxsb2/1GSG255Znv4liYc+si7PlLA2T6rzWeXdJ +vOqUCb45ObBGPEDjXA4Lpzukfm+YmwNzwkZfxeSz8KF/RngEcS3/Mdv8Zyxk +p8kcaSQ+PmoV/Os1C4tV9Dps+XJgnVsFQ7SKhSIXzH1jiQV71tOqdSwstJmw +byRObuG0H2lj4YHhz70b+HPAwzLWPbiTxBcPunmWGN8KL0j6ysIyj5DLacQi +xoF3Sn6wcKVLyotm4k/PxlZ3DJL2zb1mwD8vBzK1j5dP/2Hh6q6pearEPlmd +dssmWXh7X4KEFbFUQuUla34Ka9rcFt8i/irNlfUQpNChSmgijzg3MifnmjCF +zwz/U39H7C+ktDlLnMJFrUY5PcTbAuM+vpWmMOyDtf8Msfy0iEevLIXSktnx +YvNzoP9UkMACisIk1YUCLOKi/vF4tjKFn7colqgThxxyWWOoSmGyYXGlHvHO +js8VDpoU3gwPZxkRc3bZ7PXVofDKJuuqzcS/3735HbuewrXqH8pNiUtMDEKe +IoWxya+XmhFHvMyVa9xIYWTm4BMTYvt1ynm/TSnc2yecYUy8Mu+Oidh2Clcl +fR1ZTzy5SqxDzYbEK9aO1iQeu8sI0LKl8MnSvmoO8YioIkdvH4UHw03OSBL/ +CtCoMDhIoeVuoQh+4sE/esc2OFPoht+lh0j/fx7aIGzqRmFoQqxEC3Fv81Z6 +2ykKmw90BDwn/rZlzw6bsxQGCLk7JRJ3P3Masz1PoVHywsIg4k41t1jHQAp7 +Go4FHSD+mHBW//BlCvtrLMoMiJuCrgaevE4hL+9G6hCZ7/rR24petyh80XDK +7BVx3ZHESt87FI4pvj96i/it2VORkBQKS77wi2kRV/z3MudqOoWuE7Z3Zsj3 +9kqj2voGj8xf+JrE18TPJbri7hVSqBrloriV+FnwT27ycwrdl9gkiRAXjI9+ +Tiuj8OXKtwnV5PvObV+o/KSGwrNGLtKGxDwLybdFH8j8p7Kjx8l6yXyh4FrS +TMbf1Tcqgzg1STuvqotClVZV6cXEcccdoHuUwqmG/Tt5ZP3d/nS0u2eKwlzD +yVFL4uhtp4IHZilch2fkfpP1G6EVUjUhxEalS5sEVhEHTufsEpVnY5dxvL0f +yQ9+rsVTS9lsVE1KtBQh9u0sv8tQYeN+5d8NcVM0eJa1f1Fcw0aZ+49CM0m+ +OR42311/ExsvxmqV5pL8dHRGVMLIjI1fGwHViQ+fYORv3s5GTxPGjodjNDju +0PhrZctGgergdVGjNFgv3xPi7MbGmITDymYkH+pnZN6/dYuN4w2O2qaDNLQz +MxI23mHj3wL9yXSSX31upd0bSWDjiIAKT4j4aUBqvFUaG3cxfw+X/CT1ePf9 +GJFiNjrYV3dKkXy9Yn505KUuNj79d05g/xcaKn2irq39zkbGa0rzQTdp33Bk +xNc+Nv6uldzVSepBcvvVcKMRNsbnPYuz+UwDM/dyyL8FHBzcLSW58hPJt/vO ++XuqcjDsdrTXqSYanjR4+ylqcrB5cmfxjUbSH9OzFxrWcrDafFwwt4GGqLVn +fNcAB/NMXhb3fqBBePGJs4OWHHzhJZNkQOrbvMID7oe9yHVOqdjVChp+iZs6 +7iwl8aT4eIX5NLS4UHXHKjgYVFWjfPEJyb/lU+BXzUH3+f3HzR/TEOmTofCo +iYO7rURsm3JoWN29uHOyj4MeY4E/3mXS4Jbzbu9dCUXcpkTl2ZL63rfNxu7r +QUVMDjP/00j2Cx/S1KomnBXxAnXtld0VGor4F6wXPqGIjZWGAZ0hNIQ+zWfo +eCtimcSSl5+DaVBRkGm7fFURw33kvN760XBksG33qnxFfOItk7z+FA1fwx13 +eggo4ZwUUdP43SR+nyq1erESPsqyYMyS/c345smBATElvNsWretoQ8NC/qhg +Z4YSHmPk2MuR/dBq77LHjmpK2NRj7hxkRsP5Q0oS23Yo4Z86ga2zXDL+Bv3v +ViUoobfTdodiFqn/Q15bvukoY23tkorJSh7IaspfEtRXRmZ507m7r3gw6PGq +dJWhMgaH1j7llvAgekxM38NMGe/P9ak99ZQHHTNp6rP7lPHdUGV+fgoPPBZ/ +lFgWqoyaHgdPxwbwIG4Fdpi3K2Oh4WRBtw7ZXzoJnnrsp4JVA8a582Oyyf+G +NN/l0hWYsvnN3H2QBeI1ShH00ErMcVNxW/MpA2RDeNt1dFQxyuuJVo9hOsSs +0hOTOKKGOz5rzn3AewRvGYZr/1xXx7Jp44lkxkNYJ1saqdGkgcOLggc5Dikg +wp94en/gatTdckxSryQJ5AMU9PcoaeLMfif7zQsSQUjRPt+qQhNbtMSvKzje +B3XuMp7X3jWo6LajnPnmLnh0iJeZztHCi8es9d2fxsHQn3CbLTFaqCaryTc2 +NwY2a5THbVHTxqPSu3vqAm/C8z/rp8drtfFUtFWYzkwUuKmuaXt/aC1WRGxv +W/Q+EriDBxv2COlglvAJ+r7lVdjIkbEQTtTBJMNb3088CgUV/ytnS3V1sRw9 +rW8cuQQrD+m9UGzTRZElrxNS9YPg0POjFx+f/B8eXWB5b1OcP7y433Dwl6Qe +uqsUSgYp+8LIo9lxjad62PUlXs+4zgucFDOE4izWYbSu663zG0/Dr5U3dHKH +1+GcTROjWkPuUJA83TUash7rNOZR3AsuYLuBjevl9bHe1y0Jfh2B5a6XC9VL +9FHKOGZlT4ETSC50ybHYxUWJ1Iy3q/c7QrLxeZ/hPVxUEpl4eGaHI6w5H2F8 +w56L6V53rrza6Ahbh+nGlv1cbHx52MR/pSNcahqddHLhYu7jefM6evfBRKKf +kU8AFzNfv3losnQftK2/UZ+awUXbp1Pq4d574eiZ5Pgt2VxsmvSv8nfcC2PZ +Tw7101x8nNjIF7J5L4hTLeOa+Vz8qyUqWSu5F8wE5WT/K+Ei//yiCN08eyhu +SD1Y38jFLLF+Wc9fdmAqUqDm2cJFL4VctWutdtCy+c2YTDsX176rVy56aQcj +RT9DHD5zMY11OHNjlB2oPVid9aOPix/kHV9rattBcZuhZ/gAFwOULgy1yJL3 +Ld0BGsNcFK7syrg+3w4OXz7z/vQoFxcsN6J1m21hpORSnPQEFyu/ZXVzSmwh +cOq2U9EUF2vOc33ZabYgpp2muneGi0HOWh5aUbZwz7VodHaW3H+jqdD6nC38 +H7wcRw0= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf//APCiQmVERjfj3nOvURmJ+CrX64WGjIpoICkthaQiUlaKSJIK +KWWVeQ9KyKdEoYyUTRENklXZkt/798d5nMfzccbrPc779Xof1oETVof45syZ +M0uO/z+Pdbx5xQlLNvAa/j41EQMGDfdkvA1bAsFGZLpW4q8soOS7AzItUTBL +LXj6floVPLenN/O3JMJqP7lLqdP6sGRQOmqyORdWmBvbHp02h87irSdGmkvB +wrh1MnXKHjZx+j79av4ADqJrLP4bd4HJZt2bw83doPFtv7Vyvy+UGT9Mfp/4 +B0Yu2YbODFwF2c7C7wdUZ2BdRe3+bzM3YanLvnQBY34U1l6QlhMfD1Gam55t +tRHE2sGeO9fyHkBrzOqSX2LCWBWa+E8kNRnCkv3e8S1bgjI1ZqWmkQ9BOvpL +6I27Emgo80jyomw6XLbeYvBhTBLLx2PSHTQygfG4lsE3Vwp1t/6vOkc3E7Il +rMc1F0mh0c9Y1ixkQtMHB/q6ghTuHX7rFLI9EziWpylLEylcscFplc3JTCi1 +SFhQFyuFA+mfJptyMmFm02htjb40tl/7G3FGPQtO6T3Y9yZQBh96VvWOSGaD +6X2REbNwGZRclGduK5sNlIBvSO1NGZSOavQporKhrmFnTv0jGcQGI+3jGtmg +7r6Yv6NWBl0eWy+JMMmG3lSv1N+MZfhF6rtiq3c22C/dOrA8bxkWPKyJCmzJ +Bq1zzwLuFS/D6+/r72BHNizsVpFilS/DydT7hya/ZEMhjx+UWpehn3npOruh +bJAyK4xcPbsMfzC/fOucz4O6AI72RjMGBhpbMgY0ebBhaMrH7QsDZ80+y0ld +4oG3SfTKl/0MvMyQdRYP40H2A7U2iTEGhn6ZThGK5IGMtaNeoeByVE+5OdIb +y4P+gtfj/OrLMf3x7NdjWTy4ERh5Ovbscky56C7pW8+Dbkklt1fCsmhU2C3Q +J0yD9IkXctLSsthzsmubtBgN5pW7a5yZsmgWnLHESJyGfJ8wVVEtWTQO7OeL +lKLhSudw357dsii51fKesAINa9KeHRlKlMWbBtzqaxo0BOhb7mf8Tw6PSrSU +0ltpMHG491vXSA6tZr0/PtlOg4j/zyAbczm0Gbg+t8CKhviy4NRIRzl0vfbT +LW8nDQWmRT8XhMqhd3B/+yUHGoZ3sz3/tMphaqCqxn1XGhzOjF6pPiePzszM +I/dCaVC8bSTbFyyP9p4zjhvDaNL/a1kCkfJYYZnk+iOcBp+/K+qMkuVRpYpZ +qhJJw80gB8nCanlUP3fB8eItGqqvVySkyClgk/jOIl4iDeuyYx9feKGA3XL1 +W1oLaNjQXDszWKmAktv7dggX0bB1zrzN+z4ooOWSb+0Gz2hwsnJrhW8K2O5a +fzjuPxo2nWP5+c9nYrNay0mtUhrcFcaSDFcx8cV0zKOBtzSM5kVWTmowUV3J +onCyirTPZNVAjjYTHbcdsOCvoSH4pKMOZcBE5xD2XNF3NMSVva3ks2Silr/F +A8F6Gl4dSRgo82Ti57YgmeA2Grb81RP3PcfEw7Wi4c7tNNRGNuho+zPx6zbR +ULOPNLQWCvknhzJRP2EuS7CDhsFFp8WD45ko7j1b79RFgwxtoruplIkiV28n +pvTQcHfDF7t/5Uw0Zjh3HOilgWo9759fxcSDzyzT5X7QoMaX90apkYllQZyR +sD4ajKzl7AV6mRjVvtTebIAGl4lf/pXCLLzwVaTL5jcZz5OHpb6LszBTfHPr +BLFgX1sGvwwLd4T2/o35Q0NKe1mTAcVCzs03lXUjNHQ8v6n6RIeF3hMfg+TH +acjUXVj6YT0LbSW1etOJfegLu4aRhVUTb3y1J2iQSjwSuMqMhcxbWnowScO2 +YL2WB/tYuLHPXUxrmgb5f1muLw6ysKDfSDCNuN+T4v/kzELKxm6t7F8aQo4u +Upc5TZ5PG9KcIt7Z5Ve21puFDv5P+A7N0MCxHdm94wIL50XbLKohLjH7FBQR +wsLP/16UR/+jIeKV5bLMqyxsb2/1GSG255Znv4liYc+si7PlLA2T6rzWeXdJ +vOqUCb45ObBGPEDjXA4Lpzukfm+YmwNzwkZfxeSz8KF/RngEcS3/Mdv8Zyxk +p8kcaSQ+PmoV/Os1C4tV9Dps+XJgnVsFQ7SKhSIXzH1jiQV71tOqdSwstJmw +byRObuG0H2lj4YHhz70b+HPAwzLWPbiTxBcPunmWGN8KL0j6ysIyj5DLacQi +xoF3Sn6wcKVLyotm4k/PxlZ3DJL2zb1mwD8vBzK1j5dP/2Hh6q6pearEPlmd +dssmWXh7X4KEFbFUQuUla34Ka9rcFt8i/irNlfUQpNChSmgijzg3MifnmjCF +zwz/U39H7C+ktDlLnMJFrUY5PcTbAuM+vpWmMOyDtf8Msfy0iEevLIXSktnx +YvNzoP9UkMACisIk1YUCLOKi/vF4tjKFn7colqgThxxyWWOoSmGyYXGlHvHO +js8VDpoU3gwPZxkRc3bZ7PXVofDKJuuqzcS/3735HbuewrXqH8pNiUtMDEKe +IoWxya+XmhFHvMyVa9xIYWTm4BMTYvt1ynm/TSnc2yecYUy8Mu+Oidh2Clcl +fR1ZTzy5SqxDzYbEK9aO1iQeu8sI0LKl8MnSvmoO8YioIkdvH4UHw03OSBL/ +CtCoMDhIoeVuoQh+4sE/esc2OFPoht+lh0j/fx7aIGzqRmFoQqxEC3Fv81Z6 +2ykKmw90BDwn/rZlzw6bsxQGCLk7JRJ3P3Masz1PoVHywsIg4k41t1jHQAp7 +Go4FHSD+mHBW//BlCvtrLMoMiJuCrgaevE4hL+9G6hCZ7/rR24petyh80XDK +7BVx3ZHESt87FI4pvj96i/it2VORkBQKS77wi2kRV/z3MudqOoWuE7Z3Zsj3 +9kqj2voGj8xf+JrE18TPJbri7hVSqBrloriV+FnwT27ycwrdl9gkiRAXjI9+ +Tiuj8OXKtwnV5PvObV+o/KSGwrNGLtKGxDwLybdFH8j8p7Kjx8l6yXyh4FrS +TMbf1Tcqgzg1STuvqotClVZV6cXEcccdoHuUwqmG/Tt5ZP3d/nS0u2eKwlzD +yVFL4uhtp4IHZilch2fkfpP1G6EVUjUhxEalS5sEVhEHTufsEpVnY5dxvL0f +yQ9+rsVTS9lsVE1KtBQh9u0sv8tQYeN+5d8NcVM0eJa1f1Fcw0aZ+49CM0m+ +OR42311/ExsvxmqV5pL8dHRGVMLIjI1fGwHViQ+fYORv3s5GTxPGjodjNDju +0PhrZctGgergdVGjNFgv3xPi7MbGmITDymYkH+pnZN6/dYuN4w2O2qaDNLQz +MxI23mHj3wL9yXSSX31upd0bSWDjiIAKT4j4aUBqvFUaG3cxfw+X/CT1ePf9 +GJFiNjrYV3dKkXy9Yn505KUuNj79d05g/xcaKn2irq39zkbGa0rzQTdp33Bk +xNc+Nv6uldzVSepBcvvVcKMRNsbnPYuz+UwDM/dyyL8FHBzcLSW58hPJt/vO ++XuqcjDsdrTXqSYanjR4+ylqcrB5cmfxjUbSH9OzFxrWcrDafFwwt4GGqLVn +fNcAB/NMXhb3fqBBePGJs4OWHHzhJZNkQOrbvMID7oe9yHVOqdjVChp+iZs6 +7iwl8aT4eIX5NLS4UHXHKjgYVFWjfPEJyb/lU+BXzUH3+f3HzR/TEOmTofCo +iYO7rURsm3JoWN29uHOyj4MeY4E/3mXS4Jbzbu9dCUXcpkTl2ZL63rfNxu7r +QUVMDjP/00j2Cx/S1KomnBXxAnXtld0VGor4F6wXPqGIjZWGAZ0hNIQ+zWfo +eCtimcSSl5+DaVBRkGm7fFURw33kvN760XBksG33qnxFfOItk7z+FA1fwx13 +eggo4ZwUUdP43SR+nyq1erESPsqyYMyS/c345smBATElvNsWretoQ8NC/qhg +Z4YSHmPk2MuR/dBq77LHjmpK2NRj7hxkRsP5Q0oS23Yo4Z86ga2zXDL+Bv3v +ViUoobfTdodiFqn/Q15bvukoY23tkorJSh7IaspfEtRXRmZ507m7r3gw6PGq +dJWhMgaH1j7llvAgekxM38NMGe/P9ak99ZQHHTNp6rP7lPHdUGV+fgoPPBZ/ +lFgWqoyaHgdPxwbwIG4Fdpi3K2Oh4WRBtw7ZXzoJnnrsp4JVA8a582Oyyf+G +NN/l0hWYsvnN3H2QBeI1ShH00ErMcVNxW/MpA2RDeNt1dFQxyuuJVo9hOsSs +0hOTOKKGOz5rzn3AewRvGYZr/1xXx7Jp44lkxkNYJ1saqdGkgcOLggc5Dikg +wp94en/gatTdckxSryQJ5AMU9PcoaeLMfif7zQsSQUjRPt+qQhNbtMSvKzje +B3XuMp7X3jWo6LajnPnmLnh0iJeZztHCi8es9d2fxsHQn3CbLTFaqCaryTc2 +NwY2a5THbVHTxqPSu3vqAm/C8z/rp8drtfFUtFWYzkwUuKmuaXt/aC1WRGxv +W/Q+EriDBxv2COlglvAJ+r7lVdjIkbEQTtTBJMNb3088CgUV/ytnS3V1sRw9 +rW8cuQQrD+m9UGzTRZElrxNS9YPg0POjFx+f/B8eXWB5b1OcP7y433Dwl6Qe +uqsUSgYp+8LIo9lxjad62PUlXs+4zgucFDOE4izWYbSu663zG0/Dr5U3dHKH +1+GcTROjWkPuUJA83TUash7rNOZR3AsuYLuBjevl9bHe1y0Jfh2B5a6XC9VL +9FHKOGZlT4ETSC50ybHYxUWJ1Iy3q/c7QrLxeZ/hPVxUEpl4eGaHI6w5H2F8 +w56L6V53rrza6Ahbh+nGlv1cbHx52MR/pSNcahqddHLhYu7jefM6evfBRKKf +kU8AFzNfv3losnQftK2/UZ+awUXbp1Pq4d574eiZ5Pgt2VxsmvSv8nfcC2PZ +Tw7101x8nNjIF7J5L4hTLeOa+Vz8qyUqWSu5F8wE5WT/K+Ei//yiCN08eyhu +SD1Y38jFLLF+Wc9fdmAqUqDm2cJFL4VctWutdtCy+c2YTDsX176rVy56aQcj +RT9DHD5zMY11OHNjlB2oPVid9aOPix/kHV9rattBcZuhZ/gAFwOULgy1yJL3 +Ld0BGsNcFK7syrg+3w4OXz7z/vQoFxcsN6J1m21hpORSnPQEFyu/ZXVzSmwh +cOq2U9EUF2vOc33ZabYgpp2muneGi0HOWh5aUbZwz7VodHaW3H+jqdD6nC38 +H7wcRw0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06648701913003875}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06648701913003875}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf//APCiQmVERjfj3nOvURmJ+CrX64WGjIpoICkthaQiUlaKSJIK +KWWVeQ9KyKdEoYyUTRENklXZkt/798d5nMfzccbrPc779Xof1oETVof45syZ +M0uO/z+Pdbx5xQlLNvAa/j41EQMGDfdkvA1bAsFGZLpW4q8soOS7AzItUTBL +LXj6floVPLenN/O3JMJqP7lLqdP6sGRQOmqyORdWmBvbHp02h87irSdGmkvB +wrh1MnXKHjZx+j79av4ADqJrLP4bd4HJZt2bw83doPFtv7Vyvy+UGT9Mfp/4 +B0Yu2YbODFwF2c7C7wdUZ2BdRe3+bzM3YanLvnQBY34U1l6QlhMfD1Gam55t +tRHE2sGeO9fyHkBrzOqSX2LCWBWa+E8kNRnCkv3e8S1bgjI1ZqWmkQ9BOvpL +6I27Emgo80jyomw6XLbeYvBhTBLLx2PSHTQygfG4lsE3Vwp1t/6vOkc3E7Il +rMc1F0mh0c9Y1ixkQtMHB/q6ghTuHX7rFLI9EziWpylLEylcscFplc3JTCi1 +SFhQFyuFA+mfJptyMmFm02htjb40tl/7G3FGPQtO6T3Y9yZQBh96VvWOSGaD +6X2REbNwGZRclGduK5sNlIBvSO1NGZSOavQporKhrmFnTv0jGcQGI+3jGtmg +7r6Yv6NWBl0eWy+JMMmG3lSv1N+MZfhF6rtiq3c22C/dOrA8bxkWPKyJCmzJ +Bq1zzwLuFS/D6+/r72BHNizsVpFilS/DydT7hya/ZEMhjx+UWpehn3npOruh +bJAyK4xcPbsMfzC/fOucz4O6AI72RjMGBhpbMgY0ebBhaMrH7QsDZ80+y0ld +4oG3SfTKl/0MvMyQdRYP40H2A7U2iTEGhn6ZThGK5IGMtaNeoeByVE+5OdIb +y4P+gtfj/OrLMf3x7NdjWTy4ERh5Ovbscky56C7pW8+Dbkklt1fCsmhU2C3Q +J0yD9IkXctLSsthzsmubtBgN5pW7a5yZsmgWnLHESJyGfJ8wVVEtWTQO7OeL +lKLhSudw357dsii51fKesAINa9KeHRlKlMWbBtzqaxo0BOhb7mf8Tw6PSrSU +0ltpMHG491vXSA6tZr0/PtlOg4j/zyAbczm0Gbg+t8CKhviy4NRIRzl0vfbT +LW8nDQWmRT8XhMqhd3B/+yUHGoZ3sz3/tMphaqCqxn1XGhzOjF6pPiePzszM +I/dCaVC8bSTbFyyP9p4zjhvDaNL/a1kCkfJYYZnk+iOcBp+/K+qMkuVRpYpZ +qhJJw80gB8nCanlUP3fB8eItGqqvVySkyClgk/jOIl4iDeuyYx9feKGA3XL1 +W1oLaNjQXDszWKmAktv7dggX0bB1zrzN+z4ooOWSb+0Gz2hwsnJrhW8K2O5a +fzjuPxo2nWP5+c9nYrNay0mtUhrcFcaSDFcx8cV0zKOBtzSM5kVWTmowUV3J +onCyirTPZNVAjjYTHbcdsOCvoSH4pKMOZcBE5xD2XNF3NMSVva3ks2Silr/F +A8F6Gl4dSRgo82Ti57YgmeA2Grb81RP3PcfEw7Wi4c7tNNRGNuho+zPx6zbR +ULOPNLQWCvknhzJRP2EuS7CDhsFFp8WD45ko7j1b79RFgwxtoruplIkiV28n +pvTQcHfDF7t/5Uw0Zjh3HOilgWo9759fxcSDzyzT5X7QoMaX90apkYllQZyR +sD4ajKzl7AV6mRjVvtTebIAGl4lf/pXCLLzwVaTL5jcZz5OHpb6LszBTfHPr +BLFgX1sGvwwLd4T2/o35Q0NKe1mTAcVCzs03lXUjNHQ8v6n6RIeF3hMfg+TH +acjUXVj6YT0LbSW1etOJfegLu4aRhVUTb3y1J2iQSjwSuMqMhcxbWnowScO2 +YL2WB/tYuLHPXUxrmgb5f1muLw6ysKDfSDCNuN+T4v/kzELKxm6t7F8aQo4u +Upc5TZ5PG9KcIt7Z5Ve21puFDv5P+A7N0MCxHdm94wIL50XbLKohLjH7FBQR +wsLP/16UR/+jIeKV5bLMqyxsb2/1GSG255Znv4liYc+si7PlLA2T6rzWeXdJ +vOqUCb45ObBGPEDjXA4Lpzukfm+YmwNzwkZfxeSz8KF/RngEcS3/Mdv8Zyxk +p8kcaSQ+PmoV/Os1C4tV9Dps+XJgnVsFQ7SKhSIXzH1jiQV71tOqdSwstJmw +byRObuG0H2lj4YHhz70b+HPAwzLWPbiTxBcPunmWGN8KL0j6ysIyj5DLacQi +xoF3Sn6wcKVLyotm4k/PxlZ3DJL2zb1mwD8vBzK1j5dP/2Hh6q6pearEPlmd +dssmWXh7X4KEFbFUQuUla34Ka9rcFt8i/irNlfUQpNChSmgijzg3MifnmjCF +zwz/U39H7C+ktDlLnMJFrUY5PcTbAuM+vpWmMOyDtf8Msfy0iEevLIXSktnx +YvNzoP9UkMACisIk1YUCLOKi/vF4tjKFn7colqgThxxyWWOoSmGyYXGlHvHO +js8VDpoU3gwPZxkRc3bZ7PXVofDKJuuqzcS/3735HbuewrXqH8pNiUtMDEKe +IoWxya+XmhFHvMyVa9xIYWTm4BMTYvt1ynm/TSnc2yecYUy8Mu+Oidh2Clcl +fR1ZTzy5SqxDzYbEK9aO1iQeu8sI0LKl8MnSvmoO8YioIkdvH4UHw03OSBL/ +CtCoMDhIoeVuoQh+4sE/esc2OFPoht+lh0j/fx7aIGzqRmFoQqxEC3Fv81Z6 +2ykKmw90BDwn/rZlzw6bsxQGCLk7JRJ3P3Masz1PoVHywsIg4k41t1jHQAp7 +Go4FHSD+mHBW//BlCvtrLMoMiJuCrgaevE4hL+9G6hCZ7/rR24petyh80XDK +7BVx3ZHESt87FI4pvj96i/it2VORkBQKS77wi2kRV/z3MudqOoWuE7Z3Zsj3 +9kqj2voGj8xf+JrE18TPJbri7hVSqBrloriV+FnwT27ycwrdl9gkiRAXjI9+ +Tiuj8OXKtwnV5PvObV+o/KSGwrNGLtKGxDwLybdFH8j8p7Kjx8l6yXyh4FrS +TMbf1Tcqgzg1STuvqotClVZV6cXEcccdoHuUwqmG/Tt5ZP3d/nS0u2eKwlzD +yVFL4uhtp4IHZilch2fkfpP1G6EVUjUhxEalS5sEVhEHTufsEpVnY5dxvL0f +yQ9+rsVTS9lsVE1KtBQh9u0sv8tQYeN+5d8NcVM0eJa1f1Fcw0aZ+49CM0m+ +OR42311/ExsvxmqV5pL8dHRGVMLIjI1fGwHViQ+fYORv3s5GTxPGjodjNDju +0PhrZctGgergdVGjNFgv3xPi7MbGmITDymYkH+pnZN6/dYuN4w2O2qaDNLQz +MxI23mHj3wL9yXSSX31upd0bSWDjiIAKT4j4aUBqvFUaG3cxfw+X/CT1ePf9 +GJFiNjrYV3dKkXy9Yn505KUuNj79d05g/xcaKn2irq39zkbGa0rzQTdp33Bk +xNc+Nv6uldzVSepBcvvVcKMRNsbnPYuz+UwDM/dyyL8FHBzcLSW58hPJt/vO ++XuqcjDsdrTXqSYanjR4+ylqcrB5cmfxjUbSH9OzFxrWcrDafFwwt4GGqLVn +fNcAB/NMXhb3fqBBePGJs4OWHHzhJZNkQOrbvMID7oe9yHVOqdjVChp+iZs6 +7iwl8aT4eIX5NLS4UHXHKjgYVFWjfPEJyb/lU+BXzUH3+f3HzR/TEOmTofCo +iYO7rURsm3JoWN29uHOyj4MeY4E/3mXS4Jbzbu9dCUXcpkTl2ZL63rfNxu7r +QUVMDjP/00j2Cx/S1KomnBXxAnXtld0VGor4F6wXPqGIjZWGAZ0hNIQ+zWfo +eCtimcSSl5+DaVBRkGm7fFURw33kvN760XBksG33qnxFfOItk7z+FA1fwx13 +eggo4ZwUUdP43SR+nyq1erESPsqyYMyS/c345smBATElvNsWretoQ8NC/qhg +Z4YSHmPk2MuR/dBq77LHjmpK2NRj7hxkRsP5Q0oS23Yo4Z86ga2zXDL+Bv3v +ViUoobfTdodiFqn/Q15bvukoY23tkorJSh7IaspfEtRXRmZ507m7r3gw6PGq +dJWhMgaH1j7llvAgekxM38NMGe/P9ak99ZQHHTNp6rP7lPHdUGV+fgoPPBZ/ +lFgWqoyaHgdPxwbwIG4Fdpi3K2Oh4WRBtw7ZXzoJnnrsp4JVA8a582Oyyf+G +NN/l0hWYsvnN3H2QBeI1ShH00ErMcVNxW/MpA2RDeNt1dFQxyuuJVo9hOsSs +0hOTOKKGOz5rzn3AewRvGYZr/1xXx7Jp44lkxkNYJ1saqdGkgcOLggc5Dikg +wp94en/gatTdckxSryQJ5AMU9PcoaeLMfif7zQsSQUjRPt+qQhNbtMSvKzje +B3XuMp7X3jWo6LajnPnmLnh0iJeZztHCi8es9d2fxsHQn3CbLTFaqCaryTc2 +NwY2a5THbVHTxqPSu3vqAm/C8z/rp8drtfFUtFWYzkwUuKmuaXt/aC1WRGxv +W/Q+EriDBxv2COlglvAJ+r7lVdjIkbEQTtTBJMNb3088CgUV/ytnS3V1sRw9 +rW8cuQQrD+m9UGzTRZElrxNS9YPg0POjFx+f/B8eXWB5b1OcP7y433Dwl6Qe +uqsUSgYp+8LIo9lxjad62PUlXs+4zgucFDOE4izWYbSu663zG0/Dr5U3dHKH +1+GcTROjWkPuUJA83TUash7rNOZR3AsuYLuBjevl9bHe1y0Jfh2B5a6XC9VL +9FHKOGZlT4ETSC50ybHYxUWJ1Iy3q/c7QrLxeZ/hPVxUEpl4eGaHI6w5H2F8 +w56L6V53rrza6Ahbh+nGlv1cbHx52MR/pSNcahqddHLhYu7jefM6evfBRKKf +kU8AFzNfv3losnQftK2/UZ+awUXbp1Pq4d574eiZ5Pgt2VxsmvSv8nfcC2PZ +Tw7101x8nNjIF7J5L4hTLeOa+Vz8qyUqWSu5F8wE5WT/K+Ei//yiCN08eyhu +SD1Y38jFLLF+Wc9fdmAqUqDm2cJFL4VctWutdtCy+c2YTDsX176rVy56aQcj +RT9DHD5zMY11OHNjlB2oPVid9aOPix/kHV9rattBcZuhZ/gAFwOULgy1yJL3 +Ld0BGsNcFK7syrg+3w4OXz7z/vQoFxcsN6J1m21hpORSnPQEFyu/ZXVzSmwh +cOq2U9EUF2vOc33ZabYgpp2muneGi0HOWh5aUbZwz7VodHaW3H+jqdD6nC38 +H7wcRw0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06648701913003875}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06648701913003875}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993912746605508*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"49159025-1b5f-4d94-aecf-5b90803a2778"] +}, Open ]], Cell[CellGroupData[{ @@ -6169,66 +11679,72 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[448]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], + "In[121]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.565511112911212`*^-170\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 121, 45, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.993912746643322*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"132b0c32-1455-4397-8e22-cf607a602a4a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6193733680639606`*^-173\\\", \ \\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ 116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347571140808*^9}, +lost.\"", 2, 121, 46, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.993912746650316*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +In[121]:=",ExpressionUUID->"34f95bb6-6a7a-4a69-b914-e29d12a220fa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711508217`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0221628321925618`*^-176\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 47, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.993912746658025*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ -\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ -2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711592274`*^9}, - CellLabel-> - "During evaluation of \ -In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +In[121]:=",ExpressionUUID->"d8127e38-71f1-4d65-afa6-012ca7d6c046"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711683846`*^9}, +during this calculation.\"", 2, 121, 48, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.9939127466664333`*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +In[121]:=",ExpressionUUID->"d58e5dab-f4bd-4ec3-9ef3-cca0763a4156"], -Cell[BoxData["10.362747935330763`"], "Output", - CellChangeTimes->{3.991347578228073*^9}, +Cell[BoxData["11.613124349692924`"], "Output", + CellChangeTimes->{3.991347578228073*^9, 3.993912792475524*^9}, CellLabel-> - "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] + "Out[121]=",ExpressionUUID->"c6bf2441-13a4-4ac8-9002-6e2548a19353"] }, Open ]], Cell[CellGroupData[{ @@ -6295,68 +11811,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918503106317043`*^9, - 3.9918503148567924`*^9}},ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-\ -2a98ba29b602"], + CellChangeTimes->{{3.9918503106317043`*^9, 3.9918503148567924`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 449, - 493, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347578265545*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9319765446670173`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 49, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.993912792515255*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +In[122]:=",ExpressionUUID->"043e6756-c83a-4668-b8c3-8592bfe32ed0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 449, - 494, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347578275551*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4016385737384748`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 50, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.9939127925215797`*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +In[122]:=",ExpressionUUID->"22fb7af9-26f9-4182-b521-521b38d47868"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 449, 495, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475782835484`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0168812332709919`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 51, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.9939127925298634`*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +In[122]:=",ExpressionUUID->"204aa7d4-0538-442c-9979-c44e22f50a1a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475782930756`*^9}, +during this calculation.\"", 2, 122, 52, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.993912792539016*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +In[122]:=",ExpressionUUID->"706aa87b-d15a-4740-9be0-86cd70423c81"], -Cell[BoxData["1.4359199941844076`"], "Output", - CellChangeTimes->{3.9913475858902473`*^9}, +Cell[BoxData["0.6471348763547213`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9, 3.9939127994458838`*^9}, CellLabel-> - "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] + "Out[122]=",ExpressionUUID->"a0a2e845-20d5-41c7-b565-a848f7cb636c"] }, Open ]], Cell[CellGroupData[{ @@ -6377,8 +11897,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6423,68 +11942,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850318596199*^9, - 3.991850321359722*^9}},ExpressionUUID->"edfdd675-c60b-304e-9e16-\ -68452b971319"], + CellChangeTimes->{{3.991850318596199*^9, 3.991850321359722*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 450, - 497, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859272156`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9319765446670173`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 123, 53, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993912799489914*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +In[123]:=",ExpressionUUID->"e61fa373-fc5c-4a91-b44d-40199161404d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 450, - 498, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347585937319*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4016385737384748`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 54, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.9939127994977083`*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +In[123]:=",ExpressionUUID->"9b490e2d-e0ae-4cd6-860d-9d612b0f4654"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 450, 499, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859463177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0168812332709919`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 55, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993912799506274*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +In[123]:=",ExpressionUUID->"018f905a-f9ce-4250-aa53-7dd10c0e1c5c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859543304`*^9}, +during this calculation.\"", 2, 123, 56, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993912799514749*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +In[123]:=",ExpressionUUID->"8b09dd62-b798-4291-b6b8-2ff75fa6d99f"], -Cell[BoxData["5.09241659576143`"], "Output", - CellChangeTimes->{3.9913475931276417`*^9}, +Cell[BoxData["35.718652629178976`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9, 3.993912806179657*^9}, CellLabel-> - "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] + "Out[123]=",ExpressionUUID->"49f30771-bcfa-4bed-ac14-aca75b6bdd05"] }, Open ]], Cell[CellGroupData[{ @@ -6505,8 +12028,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6551,68 +12073,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850325611994*^9, - 3.991850328926569*^9}},ExpressionUUID->"d0469d46-2e74-494a-be85-\ -b41cb2f3fa92"], + CellChangeTimes->{{3.991850325611994*^9, 3.991850328926569*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 451, - 501, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134759316485*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.9319765446670173`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 57, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.993912806227763*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +In[124]:=",ExpressionUUID->"8d7c57db-8699-4c3f-ab8f-03344dd0b416"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 451, - 502, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347593173849*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4016385737384748`*^-216\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 58, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.993912806236999*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +In[124]:=",ExpressionUUID->"1c5d1c41-c3b2-45eb-a287-b161ba363198"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 451, 503, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347593182852*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0168812332709919`*^-221\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 59, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.993912806246114*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +In[124]:=",ExpressionUUID->"eb3b3cfa-6c2b-4b73-bd64-fb33e3d3a5be"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475931908703`*^9}, +during this calculation.\"", 2, 124, 60, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.993912806254579*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +In[124]:=",ExpressionUUID->"5810e70e-b4bc-4c10-ac25-c467e11802b9"], -Cell[BoxData["16.684462799943017`"], "Output", - CellChangeTimes->{3.9913475973006153`*^9}, +Cell[BoxData["8.049555978625436`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9, 3.99391281037628*^9}, CellLabel-> - "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] + "Out[124]=",ExpressionUUID->"f8f2d7ff-1134-49c2-a79b-566766302058"] }, Open ]], Cell[CellGroupData[{ @@ -6621,22 +12147,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.99185033265069*^9, - 3.9918503366548977`*^9}},ExpressionUUID->"58b5e243-0972-1946-bd17-\ -aca0f3e8a35b"], - -Cell[BoxData["0.15578016747845222`"], "Output", - CellChangeTimes->{3.991347597341627*^9}, + CellChangeTimes->{{3.99185033265069*^9, 3.9918503366548977`*^9}}, CellLabel-> - "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] + "In[125]:=",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], + +Cell[BoxData["0.038164652253163706`"], "Output", + CellChangeTimes->{3.991347597341627*^9, 3.9939128104130297`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"a535fd26-5aae-4766-b9ca-e0251a6993a1"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918503408077297`*^9, 3.99185034363356*^9}, - 3.991924645514969*^9},ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-\ -a3711ba632a4"], + 3.991924645514969*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ @@ -6659,12 +12186,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + "In[127]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.991347597372614*^9}, +Cell[BoxData["14.800894227577137`"], "Output", + CellChangeTimes->{3.991347597372614*^9, 3.993912810426075*^9}, CellLabel-> - "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] + "Out[127]=",ExpressionUUID->"6fba74b2-c671-4da2-be32-79399b7fb02a"] }, Open ]], Cell[CellGroupData[{ @@ -6674,12 +12201,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + "In[128]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.991347597428034*^9}, +Cell[BoxData["3.183861544998538`"], "Output", + CellChangeTimes->{3.991347597428034*^9, 3.99391281043487*^9}, CellLabel-> - "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] + "Out[128]=",ExpressionUUID->"64ada44e-bd34-4e31-917f-bd2aeed879ad"] }, Open ]], Cell[CellGroupData[{ @@ -6689,12 +12216,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + "In[129]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.9913475974971066`*^9}, +Cell[BoxData["47.123997962773686`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9, 3.993912810443791*^9}, CellLabel-> - "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] + "Out[129]=",ExpressionUUID->"71986d90-a855-40f3-aa28-9eb609ff7c96"] }, Open ]], Cell[CellGroupData[{ @@ -6884,12 +12411,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + "In[130]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[BoxData["0.038908834568544604`"], "Output", - CellChangeTimes->{3.991347597528105*^9}, +Cell[BoxData["0.00559529962910092`"], "Output", + CellChangeTimes->{3.991347597528105*^9, 3.9939128104576263`*^9}, CellLabel-> - "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] + "Out[130]=",ExpressionUUID->"205eb574-34aa-4f38-ad4e-8668009ac70e"] }, Open ]], Cell[CellGroupData[{ @@ -6903,12 +12430,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + "In[131]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[BoxData["4.492838724335521`"], "Output", - CellChangeTimes->{3.9913475976441536`*^9}, +Cell[BoxData["11.84767866550161`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9, 3.993912810575431*^9}, CellLabel-> - "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] + "Out[131]=",ExpressionUUID->"6563377c-e258-4297-b68b-3eb5dfbd125d"] }, Open ]], Cell[CellGroupData[{ @@ -7100,12 +12627,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + "In[132]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[BoxData["0.012544276227890849`"], "Output", - CellChangeTimes->{3.991347597671173*^9}, +Cell[BoxData["0.02008467965920747`"], "Output", + CellChangeTimes->{3.991347597671173*^9, 3.993912810589172*^9}, CellLabel-> - "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] + "Out[132]=",ExpressionUUID->"e4a52df2-0759-4a9b-a13c-948dbe430057"] }, Open ]], Cell[CellGroupData[{ @@ -7119,12 +12646,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + "In[133]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[BoxData["7.912653285153153`"], "Output", - CellChangeTimes->{3.9913475977705975`*^9}, +Cell[BoxData["6.253346388627769`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9, 3.993912810705927*^9}, CellLabel-> - "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] + "Out[133]=",ExpressionUUID->"3e8accd3-3add-4d38-b7fd-d88f99fc0054"] }, Open ]], Cell[CellGroupData[{ @@ -7217,12 +12744,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + "In[134]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913475977856007`*^9}, +Cell[BoxData["0.1245822467542299`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9, 3.993912810717637*^9}, CellLabel-> - "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] + "Out[134]=",ExpressionUUID->"2e14b754-f6a7-4f3a-86f4-eca67188ac7e"] }, Open ]], Cell[CellGroupData[{ @@ -7312,12 +12839,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + "In[135]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991347597813669*^9}, +Cell[BoxData["0.8754177532457702`"], "Output", + CellChangeTimes->{3.991347597813669*^9, 3.993912810729372*^9}, CellLabel-> - "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] + "Out[135]=",ExpressionUUID->"beb36398-9c74-42e5-a6be-49dc91d16b87"] }, Open ]], Cell[CellGroupData[{ @@ -7440,12 +12967,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + "In[136]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913475978426323`*^9}, +Cell[BoxData["0.10906151054789807`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9, 3.993912810741634*^9}, CellLabel-> - "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] + "Out[136]=",ExpressionUUID->"1395be38-1ed7-4ebf-853b-82dfcf37190d"] }, Open ]], Cell[CellGroupData[{ @@ -7507,68 +13034,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918503626529236`*^9},ExpressionUUID->"ba508068-6b78-254c-87d6-\ -cf1adc0753dd"], + CellChangeTimes->{3.9918503626529236`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 505, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597872814*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.263665538678529`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 61, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.9939128107603893`*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +In[137]:=",ExpressionUUID->"7f99686b-a126-4853-9d0d-1d36de4cf04c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 506, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475978828144`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.713104930266547`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 62, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.99391281076781*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +In[137]:=",ExpressionUUID->"9c78004b-d7b5-4a57-8600-f479793c1638"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 507, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597891815*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.497950888012037`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 63, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.99391281077451*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +In[137]:=",ExpressionUUID->"77301570-3c9c-4d23-afd2-098e4bb225a2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597900812*^9}, +during this calculation.\"", 2, 137, 64, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.993912810780875*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +In[137]:=",ExpressionUUID->"f3fc4ec8-c943-4c63-8f0d-3debd7c38024"], -Cell[BoxData["4.492838724335523`"], "Output", - CellChangeTimes->{3.9913476018505497`*^9}, +Cell[BoxData["11.847678665501597`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9, 3.993912814694392*^9}, CellLabel-> - "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] + "Out[137]=",ExpressionUUID->"ee64801c-3110-4b02-9a53-dde3e82ea000"] }, Open ]], Cell[CellGroupData[{ @@ -7630,68 +13161,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918503657638073`*^9},ExpressionUUID->"842e33e4-ae06-f746-ab8b-\ -97489285cc9c"], + CellChangeTimes->{3.9918503657638073`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 509, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476018885117`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.263665538678529`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 65, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.993912814733638*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +In[138]:=",ExpressionUUID->"8599e594-b085-4aac-b479-dddc9dfd8b4a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 510, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134760189851*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.713104930266547`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 66, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.993912814741329*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +In[138]:=",ExpressionUUID->"b992822f-3f72-4791-bdf5-65aa79bb011c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 511, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476019065113`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.497950888012037`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 67, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.9939128147502728`*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +In[138]:=",ExpressionUUID->"4406783d-65cd-406f-8709-a39de0044795"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476019158936`*^9}, +during this calculation.\"", 2, 138, 68, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.993912814759026*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +In[138]:=",ExpressionUUID->"dcaed24c-5dfd-401a-93a2-d08d6ff5995f"], -Cell[BoxData["7.912653285153152`"], "Output", - CellChangeTimes->{3.9913476058912296`*^9}, +Cell[BoxData["6.253346388627771`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9, 3.9939128186270723`*^9}, CellLabel-> - "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] + "Out[138]=",ExpressionUUID->"e3a124a5-3c19-4d61-85c6-7938d4b8f00e"] }, Open ]], Cell[CellGroupData[{ @@ -7749,93 +13284,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850369070572*^9},ExpressionUUID->"b2e314f8-a6f0-6942-a94c-\ -5ac1cacd7190"], + CellChangeTimes->{3.991850369070572*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VV0XAHARIUPIlJK5rjK8bmSqvTJmliSEdN17DEkZ8knirQy9SBSN +ypgkiUwZU1SSUDRIig43mdLNcE+lvt0f5znP79nPWmfts9fayoyDLixeHh6e +Mfz8fYd2aa+r7enaWlvJ/VxpSKKt04X6DItSJMNuVqzCHsoxyFSzaEQhbaKt +f+3MfC4gQn+ETriN9lVjV0TFtfJbdCKlm5autdj/PZZriSt5gSK6tLfVYdf1 +hF77pfcKZQzmXmnAHn/XEXOk4S3icK74NWOvGlXdM2/+Hv3SUbr0ANvua4xR +eOdH5N+gZfoIu/nX+PKokmEk+KDN/in26+OyR2tCSPQ2dLTjOfa0gMX4rN4o +muBLr3mJLZB6yIO+wEaFd9vE32IrSlxtD20YQx7NJ18PYjsqzBdNm0+iAMH8 +0nFsIldFRktwGkUNL2n8hh2n7pSwv/Mremk/ZUhhv5Xt+yei5BvK2R5wVMiI +REzPoMBzqRw0mc0FSeyZbJ68uyHf0YHlMhEK2IIqWiu+6c0h2wVKRQc7k9lq +vUJ6HnXve3DNCFvphkeczsI8am2RPWWBbbgxcfpAAxe9DQkv2IMdYPCxc9z8 +F9L4Z/5XGvZs1OGlwhqLyL3FYjQb+9+G5aY0wd+o/auGyS3si2B4y7/zD8r+ +XKzz9G9919stwkqWQA2j1kTYmEQlj88NHVfgBStuTboC9sxnn5iMVF4YV3Xe +qYUdozlXWR7CBw6XXZRdsDPvKKt+1eMH0dvlQ7nY73omm38X8IPmkaz8amwl +Tq2nmLQAvFul8LIDu3ST41mtBQG4NiQSPY/dVhe9JLhBEJh5N6ZcTEg019r7 +ccxcBB6ZVDGVTEkkaS+y4mizCOQp1rlvxdbtswBRI1EYOVj63As7aKQ69x9t +MfBVYhlfwT7E26m7RWQF6F9yWqu4hUSjKmXfEuYl4P2WG3KmW/H/ITqEuumS +kJgavJqBzXuLrSwXKgn7UrfmncJWoq91KZmQBEeahPYbbE/z9LtdQ1IQvK7M +NRqRqNsvLFz2mTRQi+1v3gKJPtxIS/EVlIHT2gFTAttINDlRUnDTUgaaDhjF +62MLR5C9Ji0yEOwfo5+JbRHvusm3WhbMl3YV7TYjUX2hwVxxjjzE8PM/mTcn +UeHoj0jjiDVwZ89eyfPWJNq+K+lD+O01cKj7qk4P9mSblNVt9hoQTultEt5O +ok2FG6WVPBQhRlFX6zh2G8Onkn/rWnj6cHF3uA2JOF+H/jd2UglWCh0bCrYj +kdQBi6pKBxV4f6/6ZZUTidiFwgHOQSqQ1Fe7chH73vsehalEFfh+Ubrd0plE +XvbeJzVaVMBfnHPiLXbhhkiXS3qq8Dsxw4bPBX9//MZMrKwaBL04uybElUSu +/su1bIfVoWkV9eOiB4lQ5C693YvqEFi4u3EKWzMhZzNTXgPs49ZOmHmSiKeA +bha7QwO6X/xIn8a+/WHP7rsPNKD/quNvWy88n26lx1flrwO1CzMMub24PguH +1+MMGrDNHUP5WSQq2HlhYCGWBtmdTz/7Y6cxhoeWXqFBiaN+Zwc289/DE4q9 +NIj2mv6QQZBIovEqz05zTbA5HrBRPQD3D31as0F1A+SKpO733U8iBZUzcSkj +G6EkRSibFkaixuRZGsWrBXKiaxkF2F7fPfoIZS2IS7YuWRNOomttajQzHy3g +q59okYogkYp//UvuGy0oXW8sKBCJ91s6qk4804ZK0+6lfNEkWqOgSCh56EJE +gDHb5wSJNl6PEPmJ9CA9RpDMySQRg3lyTstRD8QE5iR0s/C8qp794OulB8k7 +nlS2YPPl3yl/HKUHDdObncnzeN6ujbuerdCDwiv8U1qX8H160fcqTZUOdRzL +xrdX8fmm2Gu7C2yCaZEfw/E3SJQXpuZc3akPzuzDHw0bSXT3Q0uK3Ht9WEk7 +dnIW+6Gt95OjE/rgmna5vLyJRCMq57eaCRtAvAIUad4nkUbvMq1uawMoMHLh +UX+I55k+IfTloQEI7jwVRW/H5zNb0bq6bjPYtdk8rO0jUU8k2hx/3QhM8n3k +fb+SSNnnlaN38BbY8uSqnpzmCGL9qSlbcwTgVcyuxWsBI0h24t4yWYYZFClr +Ga2sHkERdNP3ZzUtwOOtRezTpaOIMfWrXWrcEkz0lW1nPEfRbbPwZTnd1qD+ +Wjk798EoKpwNelCaaQM5LpGVrppsxN0m97wtzg68jm+o6LjORoM8fN+G9zmA +aFPwPm/aZxSy+mD6cVUnyLMkbLNuf0Zlge0tWQnOsM6X91m+9RiK/i6/sCFw +B/Q8aYoqHh5Dc7ZWbk/2uoCrMpHGOfcFGe3J2Da6YycMxKu+qnccRy/lrwa1 +0V0h3mKdS/ayCbSq6GRj8fpdYG9SINkyMIHuDWnaO4q6gXX4yUc9pZNIsW/G +P3LKDQaO3VcTiJ9C9KyM0oKh3UAl89Z0RE2jq0u/a59tdYe4MenRJP+vqGab +zruEOg+g9cprJxnPoIubkyV+lXjCvyWr6jmtM6h74HoiPXUPiH3YbO+w/Ruq +dshWO/SvF7CtTi15N/ANfTuwkyeE6Q3vfqKE+wEcNGdFC5g294Fmd9cR9TkO +Kp7q54Yb7IWAJPElGme+I/e8637eIr4Qd5Y/MGjtLKq8a7eXL8kXomeMSP2G +WWSk8JL6j/KFOUm19gHbOaQ65P/uReA+CLWZ7Szrm0Mjy/c7ZZP7wNZPNNGc +NY960hz9rHcxAITK7MXZ8ygzKmf54R4GOHpZcDQDF1Bj8x/Kz8YPQq0T3RM/ +LiBxL0ii1/tBclx5qII5Fxn5ThcnbGKC5OUVwTfyuKjo0ky4owETcj3o/JP5 +XLSyl7NV1pAJzzfaPNIp5KJpy4W+YhMmCCVL11UVcfH9xbOk04wJiifLiKpb +XCS2IOEhuYMJV2i7zidXc9HIaX2hnANMaL/0gp7ezkVpDTGB94qYEJ36yGtm +gosO6F0wiipmwn2936oLk1xkf7NCyLCECcVW6kKLU1wkfIF9s/Y2E6zOmG8U +mOGihDDn8ZoqJnzvn+wSneWiGJra/uqHTJASnHHi/OSioAvPgu9+YMLFrPTL +YsspZCPGNg0bYkJp4pGbXOz1CTyiep+Y4NTY2zUsQiF2mP7tilEmvHGi9lSI +UWifY85U+SQTiLbhI5aSFHLnDw+584MJplHnz22Tp5B1+KpDpTIscAtuakvS +oNDDnETbs3IssFJ6ncxaRyHTTo5a1CoWdP+32sBsPYV01Z/1myuyIH9Rz4RL +o5D8m6PmA+osyEi+zHXTotCE8aCMsD4LOjNnhD7SKXSGN7fJfycLLu84ScoC +hYR1RC467GJBymfof4EdvycqjL6bBcmzraXJ2ygUVeW87o8nC1pVzCa5Zrh+ +YknGeQYLah2tnjyxpBC9g8F8FMqC4I9V97XtKPQmQ325ajoLOHzIW2kXhcqQ +aMBYBgucdrnU3MKOn5ptu32OBeUS7qIGbhTSs2mLNbzAAvXzpVXWuymUxuPH +cbjGAt/QwhEfDwpZHcztjyplweH33Fte3hRas+aUwdYyFoSGivW9wZ7tOHiO +rxzHf/+xsMOHQvkayCGtkgWCj9/pme+l0OLgYEtBPQt2bHcJld9HoSp7heKu +dhaEzw7OZzIplPKDlz+zgwXL7q/r+oPNKB7f59HJAtVjITmBLAqtWFqvMNLN +gmtEgo4xQaHgBvcz1GsWnEv5wtvtTyFVzfORaqMsCKuf2PskiEI/3hzr/cJm +wVRYY4fyfgr1JLB074yxoKmNo3UUO3Z407jRJAtuZNAHNYMp9O5ir7fTdxbY +b0x9f+wAhc4uk7CMXkLA/HiJHecghRo5g3si+AiwtLxYZ3GIQp8HS8JC+Alg +fNo7mIVtWmWRyxAi4PHvlVabQnG/+Ub9tJUgIPye06V9Ybh+e0tJSykcb2xZ +eRPbZLMkDUkTULzE8cQMdrpoqRtdngDfzi0oOhyv13+sUFAm4Hj+Rr3YCAoR +10vbpVUJ+FHjxGnATk8/8lFcnYChtn6Ci80mpESX0gjIvdwXfOAwXpeyDpjU +JaDOzmPcOpJC9b+l4th6BLR4Xrc7ij36ZShraBMBrLHHvrexjVuiW/sMCfBu +tikS/R+FRoLLFJuAAP783OxmbDH3o/q1ZgSoLBm7/BnbyHy7fYUFAVXOafbi +Ubhf5D8dub6dgJBjbU89se8tvZOeY0vA98cmWbHY5NejNy7ZE9DUPySVh234 +WPrVaWcCevuTND9hMyo+TSS5ELAiK+IhzxEKnc6+w3vClYAT1UxRRexPYTa6 +ke4EWATSGl2xRX1krA95ErBSa3JtCLahDekd5EXA+to0g8S/8WuPpfj4EnBr +nWvMXex7wrb57gwCFvMCbj3+m29Ops6FScBBYTjd/zffMNltTxCwybhPeeJv +vs5ytlUAPv/ItYE/sRm1xxYhiADB8NV+wtE4f77tSpNgAnQdHovLYd87LbtB +P4SAwXS5g2rYn6JGtukcImCZgfhxHWwRZoU7LYyA7XlFlkbYm51iD6pGENBV +MNC4DZthbJe4JhLXc/QWezt2qrrcVdkoAnJeSrU6YtesGK2UiCbAv0XSZSf2 +8M+KjuUxBGS0F51z+5v/c+wwfyzut4GuJHdsg5d23D9xBIi7JWt7YP8fpiXn +DQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7849,105 +13386,106 @@ wTw= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= +1:eJwV1Hk4VV0XAHARIUPIlJK5rjK8bmSqvTJmliSEdN17DEkZ8knirQy9SBSN +ypgkiUwZU1SSUDRIig43mdLNcE+lvt0f5znP79nPWmfts9fayoyDLixeHh6e +Mfz8fYd2aa+r7enaWlvJ/VxpSKKt04X6DItSJMNuVqzCHsoxyFSzaEQhbaKt +f+3MfC4gQn+ETriN9lVjV0TFtfJbdCKlm5autdj/PZZriSt5gSK6tLfVYdf1 +hF77pfcKZQzmXmnAHn/XEXOk4S3icK74NWOvGlXdM2/+Hv3SUbr0ANvua4xR +eOdH5N+gZfoIu/nX+PKokmEk+KDN/in26+OyR2tCSPQ2dLTjOfa0gMX4rN4o +muBLr3mJLZB6yIO+wEaFd9vE32IrSlxtD20YQx7NJ18PYjsqzBdNm0+iAMH8 +0nFsIldFRktwGkUNL2n8hh2n7pSwv/Mremk/ZUhhv5Xt+yei5BvK2R5wVMiI +REzPoMBzqRw0mc0FSeyZbJ68uyHf0YHlMhEK2IIqWiu+6c0h2wVKRQc7k9lq +vUJ6HnXve3DNCFvphkeczsI8am2RPWWBbbgxcfpAAxe9DQkv2IMdYPCxc9z8 +F9L4Z/5XGvZs1OGlwhqLyL3FYjQb+9+G5aY0wd+o/auGyS3si2B4y7/zD8r+ +XKzz9G9919stwkqWQA2j1kTYmEQlj88NHVfgBStuTboC9sxnn5iMVF4YV3Xe +qYUdozlXWR7CBw6XXZRdsDPvKKt+1eMH0dvlQ7nY73omm38X8IPmkaz8amwl +Tq2nmLQAvFul8LIDu3ST41mtBQG4NiQSPY/dVhe9JLhBEJh5N6ZcTEg019r7 +ccxcBB6ZVDGVTEkkaS+y4mizCOQp1rlvxdbtswBRI1EYOVj63As7aKQ69x9t +MfBVYhlfwT7E26m7RWQF6F9yWqu4hUSjKmXfEuYl4P2WG3KmW/H/ITqEuumS +kJgavJqBzXuLrSwXKgn7UrfmncJWoq91KZmQBEeahPYbbE/z9LtdQ1IQvK7M +NRqRqNsvLFz2mTRQi+1v3gKJPtxIS/EVlIHT2gFTAttINDlRUnDTUgaaDhjF +62MLR5C9Ji0yEOwfo5+JbRHvusm3WhbMl3YV7TYjUX2hwVxxjjzE8PM/mTcn +UeHoj0jjiDVwZ89eyfPWJNq+K+lD+O01cKj7qk4P9mSblNVt9hoQTultEt5O +ok2FG6WVPBQhRlFX6zh2G8Onkn/rWnj6cHF3uA2JOF+H/jd2UglWCh0bCrYj +kdQBi6pKBxV4f6/6ZZUTidiFwgHOQSqQ1Fe7chH73vsehalEFfh+Ubrd0plE +XvbeJzVaVMBfnHPiLXbhhkiXS3qq8Dsxw4bPBX9//MZMrKwaBL04uybElUSu +/su1bIfVoWkV9eOiB4lQ5C693YvqEFi4u3EKWzMhZzNTXgPs49ZOmHmSiKeA +bha7QwO6X/xIn8a+/WHP7rsPNKD/quNvWy88n26lx1flrwO1CzMMub24PguH +1+MMGrDNHUP5WSQq2HlhYCGWBtmdTz/7Y6cxhoeWXqFBiaN+Zwc289/DE4q9 +NIj2mv6QQZBIovEqz05zTbA5HrBRPQD3D31as0F1A+SKpO733U8iBZUzcSkj +G6EkRSibFkaixuRZGsWrBXKiaxkF2F7fPfoIZS2IS7YuWRNOomttajQzHy3g +q59okYogkYp//UvuGy0oXW8sKBCJ91s6qk4804ZK0+6lfNEkWqOgSCh56EJE +gDHb5wSJNl6PEPmJ9CA9RpDMySQRg3lyTstRD8QE5iR0s/C8qp794OulB8k7 +nlS2YPPl3yl/HKUHDdObncnzeN6ujbuerdCDwiv8U1qX8H160fcqTZUOdRzL +xrdX8fmm2Gu7C2yCaZEfw/E3SJQXpuZc3akPzuzDHw0bSXT3Q0uK3Ht9WEk7 +dnIW+6Gt95OjE/rgmna5vLyJRCMq57eaCRtAvAIUad4nkUbvMq1uawMoMHLh +UX+I55k+IfTloQEI7jwVRW/H5zNb0bq6bjPYtdk8rO0jUU8k2hx/3QhM8n3k +fb+SSNnnlaN38BbY8uSqnpzmCGL9qSlbcwTgVcyuxWsBI0h24t4yWYYZFClr +Ga2sHkERdNP3ZzUtwOOtRezTpaOIMfWrXWrcEkz0lW1nPEfRbbPwZTnd1qD+ +Wjk798EoKpwNelCaaQM5LpGVrppsxN0m97wtzg68jm+o6LjORoM8fN+G9zmA +aFPwPm/aZxSy+mD6cVUnyLMkbLNuf0Zlge0tWQnOsM6X91m+9RiK/i6/sCFw +B/Q8aYoqHh5Dc7ZWbk/2uoCrMpHGOfcFGe3J2Da6YycMxKu+qnccRy/lrwa1 +0V0h3mKdS/ayCbSq6GRj8fpdYG9SINkyMIHuDWnaO4q6gXX4yUc9pZNIsW/G +P3LKDQaO3VcTiJ9C9KyM0oKh3UAl89Z0RE2jq0u/a59tdYe4MenRJP+vqGab +zruEOg+g9cprJxnPoIubkyV+lXjCvyWr6jmtM6h74HoiPXUPiH3YbO+w/Ruq +dshWO/SvF7CtTi15N/ANfTuwkyeE6Q3vfqKE+wEcNGdFC5g294Fmd9cR9TkO +Kp7q54Yb7IWAJPElGme+I/e8637eIr4Qd5Y/MGjtLKq8a7eXL8kXomeMSP2G +WWSk8JL6j/KFOUm19gHbOaQ65P/uReA+CLWZ7Szrm0Mjy/c7ZZP7wNZPNNGc +NY960hz9rHcxAITK7MXZ8ygzKmf54R4GOHpZcDQDF1Bj8x/Kz8YPQq0T3RM/ +LiBxL0ii1/tBclx5qII5Fxn5ThcnbGKC5OUVwTfyuKjo0ky4owETcj3o/JP5 +XLSyl7NV1pAJzzfaPNIp5KJpy4W+YhMmCCVL11UVcfH9xbOk04wJiifLiKpb +XCS2IOEhuYMJV2i7zidXc9HIaX2hnANMaL/0gp7ezkVpDTGB94qYEJ36yGtm +gosO6F0wiipmwn2936oLk1xkf7NCyLCECcVW6kKLU1wkfIF9s/Y2E6zOmG8U +mOGihDDn8ZoqJnzvn+wSneWiGJra/uqHTJASnHHi/OSioAvPgu9+YMLFrPTL +YsspZCPGNg0bYkJp4pGbXOz1CTyiep+Y4NTY2zUsQiF2mP7tilEmvHGi9lSI +UWifY85U+SQTiLbhI5aSFHLnDw+584MJplHnz22Tp5B1+KpDpTIscAtuakvS +oNDDnETbs3IssFJ6ncxaRyHTTo5a1CoWdP+32sBsPYV01Z/1myuyIH9Rz4RL +o5D8m6PmA+osyEi+zHXTotCE8aCMsD4LOjNnhD7SKXSGN7fJfycLLu84ScoC +hYR1RC467GJBymfof4EdvycqjL6bBcmzraXJ2ygUVeW87o8nC1pVzCa5Zrh+ +YknGeQYLah2tnjyxpBC9g8F8FMqC4I9V97XtKPQmQ325ajoLOHzIW2kXhcqQ +aMBYBgucdrnU3MKOn5ptu32OBeUS7qIGbhTSs2mLNbzAAvXzpVXWuymUxuPH +cbjGAt/QwhEfDwpZHcztjyplweH33Fte3hRas+aUwdYyFoSGivW9wZ7tOHiO +rxzHf/+xsMOHQvkayCGtkgWCj9/pme+l0OLgYEtBPQt2bHcJld9HoSp7heKu +dhaEzw7OZzIplPKDlz+zgwXL7q/r+oPNKB7f59HJAtVjITmBLAqtWFqvMNLN +gmtEgo4xQaHgBvcz1GsWnEv5wtvtTyFVzfORaqMsCKuf2PskiEI/3hzr/cJm +wVRYY4fyfgr1JLB074yxoKmNo3UUO3Z407jRJAtuZNAHNYMp9O5ir7fTdxbY +b0x9f+wAhc4uk7CMXkLA/HiJHecghRo5g3si+AiwtLxYZ3GIQp8HS8JC+Alg +fNo7mIVtWmWRyxAi4PHvlVabQnG/+Ub9tJUgIPye06V9Ybh+e0tJSykcb2xZ +eRPbZLMkDUkTULzE8cQMdrpoqRtdngDfzi0oOhyv13+sUFAm4Hj+Rr3YCAoR +10vbpVUJ+FHjxGnATk8/8lFcnYChtn6Ci80mpESX0gjIvdwXfOAwXpeyDpjU +JaDOzmPcOpJC9b+l4th6BLR4Xrc7ij36ZShraBMBrLHHvrexjVuiW/sMCfBu +tikS/R+FRoLLFJuAAP783OxmbDH3o/q1ZgSoLBm7/BnbyHy7fYUFAVXOafbi +Ubhf5D8dub6dgJBjbU89se8tvZOeY0vA98cmWbHY5NejNy7ZE9DUPySVh234 +WPrVaWcCevuTND9hMyo+TSS5ELAiK+IhzxEKnc6+w3vClYAT1UxRRexPYTa6 +ke4EWATSGl2xRX1krA95ErBSa3JtCLahDekd5EXA+to0g8S/8WuPpfj4EnBr +nWvMXex7wrb57gwCFvMCbj3+m29Ops6FScBBYTjd/zffMNltTxCwybhPeeJv +vs5ytlUAPv/ItYE/sRm1xxYhiADB8NV+wtE4f77tSpNgAnQdHovLYd87LbtB +P4SAwXS5g2rYn6JGtukcImCZgfhxHWwRZoU7LYyA7XlFlkbYm51iD6pGENBV +MNC4DZthbJe4JhLXc/QWezt2qrrcVdkoAnJeSrU6YtesGK2UiCbAv0XSZSf2 +8M+KjuUxBGS0F51z+5v/c+wwfyzut4GuJHdsg5d23D9xBIi7JWt7YP8fpiXn +DQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.6006717234318931, 1.59237020664057}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.6006717234318945}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7959,21 +13497,20 @@ wTw= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.6006717234318931, 1.59237020664057}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.6006717234318945}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7987,103 +13524,105 @@ wTw= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= +1:eJwV1Hk4VV0XAHARIUPIlJK5rjK8bmSqvTJmliSEdN17DEkZ8knirQy9SBSN +ypgkiUwZU1SSUDRIig43mdLNcE+lvt0f5znP79nPWmfts9fayoyDLixeHh6e +Mfz8fYd2aa+r7enaWlvJ/VxpSKKt04X6DItSJMNuVqzCHsoxyFSzaEQhbaKt +f+3MfC4gQn+ETriN9lVjV0TFtfJbdCKlm5autdj/PZZriSt5gSK6tLfVYdf1 +hF77pfcKZQzmXmnAHn/XEXOk4S3icK74NWOvGlXdM2/+Hv3SUbr0ANvua4xR +eOdH5N+gZfoIu/nX+PKokmEk+KDN/in26+OyR2tCSPQ2dLTjOfa0gMX4rN4o +muBLr3mJLZB6yIO+wEaFd9vE32IrSlxtD20YQx7NJ18PYjsqzBdNm0+iAMH8 +0nFsIldFRktwGkUNL2n8hh2n7pSwv/Mremk/ZUhhv5Xt+yei5BvK2R5wVMiI +REzPoMBzqRw0mc0FSeyZbJ68uyHf0YHlMhEK2IIqWiu+6c0h2wVKRQc7k9lq +vUJ6HnXve3DNCFvphkeczsI8am2RPWWBbbgxcfpAAxe9DQkv2IMdYPCxc9z8 +F9L4Z/5XGvZs1OGlwhqLyL3FYjQb+9+G5aY0wd+o/auGyS3si2B4y7/zD8r+ +XKzz9G9919stwkqWQA2j1kTYmEQlj88NHVfgBStuTboC9sxnn5iMVF4YV3Xe +qYUdozlXWR7CBw6XXZRdsDPvKKt+1eMH0dvlQ7nY73omm38X8IPmkaz8amwl +Tq2nmLQAvFul8LIDu3ST41mtBQG4NiQSPY/dVhe9JLhBEJh5N6ZcTEg019r7 +ccxcBB6ZVDGVTEkkaS+y4mizCOQp1rlvxdbtswBRI1EYOVj63As7aKQ69x9t +MfBVYhlfwT7E26m7RWQF6F9yWqu4hUSjKmXfEuYl4P2WG3KmW/H/ITqEuumS +kJgavJqBzXuLrSwXKgn7UrfmncJWoq91KZmQBEeahPYbbE/z9LtdQ1IQvK7M +NRqRqNsvLFz2mTRQi+1v3gKJPtxIS/EVlIHT2gFTAttINDlRUnDTUgaaDhjF +62MLR5C9Ji0yEOwfo5+JbRHvusm3WhbMl3YV7TYjUX2hwVxxjjzE8PM/mTcn +UeHoj0jjiDVwZ89eyfPWJNq+K+lD+O01cKj7qk4P9mSblNVt9hoQTultEt5O +ok2FG6WVPBQhRlFX6zh2G8Onkn/rWnj6cHF3uA2JOF+H/jd2UglWCh0bCrYj +kdQBi6pKBxV4f6/6ZZUTidiFwgHOQSqQ1Fe7chH73vsehalEFfh+Ubrd0plE +XvbeJzVaVMBfnHPiLXbhhkiXS3qq8Dsxw4bPBX9//MZMrKwaBL04uybElUSu +/su1bIfVoWkV9eOiB4lQ5C693YvqEFi4u3EKWzMhZzNTXgPs49ZOmHmSiKeA +bha7QwO6X/xIn8a+/WHP7rsPNKD/quNvWy88n26lx1flrwO1CzMMub24PguH +1+MMGrDNHUP5WSQq2HlhYCGWBtmdTz/7Y6cxhoeWXqFBiaN+Zwc289/DE4q9 +NIj2mv6QQZBIovEqz05zTbA5HrBRPQD3D31as0F1A+SKpO733U8iBZUzcSkj +G6EkRSibFkaixuRZGsWrBXKiaxkF2F7fPfoIZS2IS7YuWRNOomttajQzHy3g +q59okYogkYp//UvuGy0oXW8sKBCJ91s6qk4804ZK0+6lfNEkWqOgSCh56EJE +gDHb5wSJNl6PEPmJ9CA9RpDMySQRg3lyTstRD8QE5iR0s/C8qp794OulB8k7 +nlS2YPPl3yl/HKUHDdObncnzeN6ujbuerdCDwiv8U1qX8H160fcqTZUOdRzL +xrdX8fmm2Gu7C2yCaZEfw/E3SJQXpuZc3akPzuzDHw0bSXT3Q0uK3Ht9WEk7 +dnIW+6Gt95OjE/rgmna5vLyJRCMq57eaCRtAvAIUad4nkUbvMq1uawMoMHLh +UX+I55k+IfTloQEI7jwVRW/H5zNb0bq6bjPYtdk8rO0jUU8k2hx/3QhM8n3k +fb+SSNnnlaN38BbY8uSqnpzmCGL9qSlbcwTgVcyuxWsBI0h24t4yWYYZFClr +Ga2sHkERdNP3ZzUtwOOtRezTpaOIMfWrXWrcEkz0lW1nPEfRbbPwZTnd1qD+ +Wjk798EoKpwNelCaaQM5LpGVrppsxN0m97wtzg68jm+o6LjORoM8fN+G9zmA +aFPwPm/aZxSy+mD6cVUnyLMkbLNuf0Zlge0tWQnOsM6X91m+9RiK/i6/sCFw +B/Q8aYoqHh5Dc7ZWbk/2uoCrMpHGOfcFGe3J2Da6YycMxKu+qnccRy/lrwa1 +0V0h3mKdS/ayCbSq6GRj8fpdYG9SINkyMIHuDWnaO4q6gXX4yUc9pZNIsW/G +P3LKDQaO3VcTiJ9C9KyM0oKh3UAl89Z0RE2jq0u/a59tdYe4MenRJP+vqGab +zruEOg+g9cprJxnPoIubkyV+lXjCvyWr6jmtM6h74HoiPXUPiH3YbO+w/Ruq +dshWO/SvF7CtTi15N/ANfTuwkyeE6Q3vfqKE+wEcNGdFC5g294Fmd9cR9TkO +Kp7q54Yb7IWAJPElGme+I/e8637eIr4Qd5Y/MGjtLKq8a7eXL8kXomeMSP2G +WWSk8JL6j/KFOUm19gHbOaQ65P/uReA+CLWZ7Szrm0Mjy/c7ZZP7wNZPNNGc +NY960hz9rHcxAITK7MXZ8ygzKmf54R4GOHpZcDQDF1Bj8x/Kz8YPQq0T3RM/ +LiBxL0ii1/tBclx5qII5Fxn5ThcnbGKC5OUVwTfyuKjo0ky4owETcj3o/JP5 +XLSyl7NV1pAJzzfaPNIp5KJpy4W+YhMmCCVL11UVcfH9xbOk04wJiifLiKpb +XCS2IOEhuYMJV2i7zidXc9HIaX2hnANMaL/0gp7ezkVpDTGB94qYEJ36yGtm +gosO6F0wiipmwn2936oLk1xkf7NCyLCECcVW6kKLU1wkfIF9s/Y2E6zOmG8U +mOGihDDn8ZoqJnzvn+wSneWiGJra/uqHTJASnHHi/OSioAvPgu9+YMLFrPTL +YsspZCPGNg0bYkJp4pGbXOz1CTyiep+Y4NTY2zUsQiF2mP7tilEmvHGi9lSI +UWifY85U+SQTiLbhI5aSFHLnDw+584MJplHnz22Tp5B1+KpDpTIscAtuakvS +oNDDnETbs3IssFJ6ncxaRyHTTo5a1CoWdP+32sBsPYV01Z/1myuyIH9Rz4RL +o5D8m6PmA+osyEi+zHXTotCE8aCMsD4LOjNnhD7SKXSGN7fJfycLLu84ScoC +hYR1RC467GJBymfof4EdvycqjL6bBcmzraXJ2ygUVeW87o8nC1pVzCa5Zrh+ +YknGeQYLah2tnjyxpBC9g8F8FMqC4I9V97XtKPQmQ325ajoLOHzIW2kXhcqQ +aMBYBgucdrnU3MKOn5ptu32OBeUS7qIGbhTSs2mLNbzAAvXzpVXWuymUxuPH +cbjGAt/QwhEfDwpZHcztjyplweH33Fte3hRas+aUwdYyFoSGivW9wZ7tOHiO +rxzHf/+xsMOHQvkayCGtkgWCj9/pme+l0OLgYEtBPQt2bHcJld9HoSp7heKu +dhaEzw7OZzIplPKDlz+zgwXL7q/r+oPNKB7f59HJAtVjITmBLAqtWFqvMNLN +gmtEgo4xQaHgBvcz1GsWnEv5wtvtTyFVzfORaqMsCKuf2PskiEI/3hzr/cJm +wVRYY4fyfgr1JLB074yxoKmNo3UUO3Z407jRJAtuZNAHNYMp9O5ir7fTdxbY +b0x9f+wAhc4uk7CMXkLA/HiJHecghRo5g3si+AiwtLxYZ3GIQp8HS8JC+Alg +fNo7mIVtWmWRyxAi4PHvlVabQnG/+Ub9tJUgIPye06V9Ybh+e0tJSykcb2xZ +eRPbZLMkDUkTULzE8cQMdrpoqRtdngDfzi0oOhyv13+sUFAm4Hj+Rr3YCAoR +10vbpVUJ+FHjxGnATk8/8lFcnYChtn6Ci80mpESX0gjIvdwXfOAwXpeyDpjU +JaDOzmPcOpJC9b+l4th6BLR4Xrc7ij36ZShraBMBrLHHvrexjVuiW/sMCfBu +tikS/R+FRoLLFJuAAP783OxmbDH3o/q1ZgSoLBm7/BnbyHy7fYUFAVXOafbi +Ubhf5D8dub6dgJBjbU89se8tvZOeY0vA98cmWbHY5NejNy7ZE9DUPySVh234 +WPrVaWcCevuTND9hMyo+TSS5ELAiK+IhzxEKnc6+w3vClYAT1UxRRexPYTa6 +ke4EWATSGl2xRX1krA95ErBSa3JtCLahDekd5EXA+to0g8S/8WuPpfj4EnBr +nWvMXex7wrb57gwCFvMCbj3+m29Ops6FScBBYTjd/zffMNltTxCwybhPeeJv +vs5ytlUAPv/ItYE/sRm1xxYhiADB8NV+wtE4f77tSpNgAnQdHovLYd87LbtB +P4SAwXS5g2rYn6JGtukcImCZgfhxHWwRZoU7LYyA7XlFlkbYm51iD6pGENBV +MNC4DZthbJe4JhLXc/QWezt2qrrcVdkoAnJeSrU6YtesGK2UiCbAv0XSZSf2 +8M+KjuUxBGS0F51z+5v/c+wwfyzut4GuJHdsg5d23D9xBIi7JWt7YP8fpiXn +DQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.6006717234318931, 1.59237020664057}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.6006717234318945}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8093,7 +13632,8 @@ wTw= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5511670383120088}, + AxesOrigin->{0, 0.6006717234318945}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8121,7 +13661,8 @@ wTw= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6006717234318931, 1.59237020664057}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8129,9 +13670,9 @@ wTw= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991347865018469*^9}, + CellChangeTimes->{3.991347865018469*^9, 3.993913108034637*^9}, CellLabel-> - "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] + "Out[139]=",ExpressionUUID->"41593627-78d9-424e-9d7f-2a6fb5060120"] }, Open ]], Cell[CellGroupData[{ @@ -8195,199 +13736,157 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918503718899097`*^9, {3.991850469268881*^9, - 3.9918504694651966`*^9}},ExpressionUUID->"497f9779-a3e4-c84e-a207-\ -0aac70483e3c"], + 3.9918503718899097`*^9, {3.991850469268881*^9, 3.9918504694651966`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.180375049446201`*^-273\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 470, - 513, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652482224`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.993913108191383*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +In[140]:=",ExpressionUUID->"ba4ec73c-b67b-4028-8cb2-4baa36b2e32f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.2459962698449713`*^-284\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 470, 514, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652572174`*^9}, + 140, 70, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.9939131082004547`*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +In[140]:=",ExpressionUUID->"d34dea44-aad8-4175-b3d8-584b74eb7d72"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.9638069497634476`*^-295\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 470, 515, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652662163`*^9}, + 2, 140, 71, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.9939131082080593`*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +In[140]:=",ExpressionUUID->"a7564265-0bef-4940-9e85-c87c13ab298b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347865275215*^9}, +during this calculation.\"", 2, 140, 72, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.9939131082144012`*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +In[140]:=",ExpressionUUID->"09d6750d-080c-4fd7-9cdf-8be9efe4d52e"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0Ve33APDeNKiQIRky3XMvKlMhRa69DSUUKUmTmUxRQhJfUyJzoUFE +iEz3HlIqJRlKXhERGdP4vonIFG/ye35/nHXWZ62znrX3OfvZ+zkMR599LosX +LVo0S67/v08PvKxnxeXp6e15tEb1BFuv46b4Wf3uCFga6FWo90cSULTVUbz7 +MuyXPW/215+NELC3qIunOwd8L7Ffv5vXAaFRscuzXeVgNJY2lDNvCoOPzX0m +u2rhn2WVd+Z+H4adrG/9413tsLv9c9HpOQ+Y7dqaNtb1ARrCE4Zdx4KgzrAg +ry1nAnYOaxjNfowDqcGHXxyV5+Gbl56dUUQqrPGyK1puyIOuE7x2tffS4fLm +nVXmB3ixbPZclU18Nry7tqlmXJAfJfsFBZ4dyIW4vNDWxRJCWJQxfMNGKh/E +Uj9eTMkUwd8nl0xbJd2BaCsTvfZpUQxfziisSykCyYoWycV/rcWvXafGhm8U +AUfEambzqrX4W2hcZHVeEbxtt6Uvya7F2/rZwzsqioBl6UdZ7lqLrjKsOv+O +Iqjdk7Xs9fW1OPNA17BfpBjmd061vNIVwzOuSx0bEovhtPYtu5cR4tge2X+g +xa8ETLMFJs3ixXH3+I8W9XMlQC0PjmlJE8fqr7U5l8NL4HWHddmbO+LoEDhg +Y5RYAqon+XgGWsRxifXNnz4FJfBP/pn8n5ISaFP3LeRrdwkcXWM+su6uBGo4 +nzQ4sK0UjH7MBXl/lMS1F1tXSf5bCmd3pW589l0Spew6NLeNlgLnlkqPyLQk +uv/K7rCcKAVxK3vth7zrMEdrZeCZ+VL4/qBhhkd1HeZuKTSNF+JASkSy3/XA +dXj1htLyvm0c+CCq4F3PL4VrNl23ETnPATGfp9JiYlKY/tVANTuGA7sbbV65 +y0lhc2VG4PoEDtwPilNerSGF55TcPJWucCB2cOzbIRspjHj/+uVcAQfUC6uO +/8iRQqkYiVNPmzgQrmvpILlNGlffCu97z8eFXbY3f241kEZhRVanuhAXBMKG +Iw/slsbr1cvPhIpyIaMuKj/ZXhqnG8wreWW48MD00fCyi9J4ZJmNWq8qF8Zs +mAET76TxQ6+IapgFF2z9p2Kbz8ngolZ/7eZ4LshfNZD6FiWDtlR02+lkLsk/ +qXR5sgzWzCesW5vKhaDfG14b5Mng+qDJ56Y3uJAWaSv6sFkGf+lWR/kVcqH5 +0ous29KyWJ9b//tlPRd0ONcr/vdUFmubFb6GznDBqKtlfrRRFvlejnuazXHB +fNESY7t2Wdx56rut8DwXnPZ5v4PPshiuk77L5C8adp5jhIYtlcOOF20SnGU0 +nJSdztVXkkOPv5d4rRSiYepucuOsmhyyq32rzIRpCNqlNFKmKYe0/OOGWBEa +ok7Za1F6chi+49OqxWtpSK9ralxsKYfLllW5dErSUH88a6QuQA4bDlXGrmbR +YPJbWzj4nBzKPTQoUJanoSW5Q0szTA7n9MYijBVoePdwRVjeRTnsW9UZGLCe +htFVfsJRGXIYX9Ht+lCZBnF619adtXL4WeuvxDeaNHj9Gg9r5GdglPBxzSOG +NOiccl37RZiBRw6NZRsY0cD7raeYR5yBeV9DTyvuoOF2b91bPYqBril+u//d +ScNAdZryPS0GtlUp9ewxpcEiSrv7lh0DfTw5Tel7aZD5U3riqTMDJwYaXtlY +0vA9gOLpd2dgeZq23pp9NMS4rVIV92OgWCXDPXI/DTVm/ZGJMQxcfSlu0sCa +BnXhcLVzZQzcPxu71/gIDYvipuqv3SfxqB5y7iNu4fE4fL+KxP9X8Ij3URo8 +p/ZFjTcw8MeONw7xx2jI62b1Hu9h4KUPfkN37Gjwtbx+MmqQgTv2JnM22NOA +TfzLcj8xUO7x1qkC4v6q6U0Doww0q7Ycz3CgYW1W4wUrHgr3W3y56+ZEwycx +tpQvL4UWBy8d7SQuTy4rS+Kn0MxEIRKcSf4R6X1NYhT6Ke3azedC8nPxUtdX +prAmkzUQ7UqD9cD7F7abKZw5/ybqPTHr4IFjwVoUhoiPcbWOk/x36cVUIoVX +tZ8m9BLPKgkOqBygcN5jLHS5Ow3TmZLhGocpPOb5j4AZ8eRqeZa2HYWbyj5u +jycendD2MHKnMDaF8l3uQcOwixG/qTeF0vUXgvWJ/+kypy1OU5jqoKZ4lvhD +ldP04RAKPVpS7YaIB1W8r9tHUDhuHzAq5ElDX1agrms0hQufSdETvxOKHPSM +p1Bl1ZlJT+K3kQkRpy6R/BdXe6URv5m6Kn/mCoVLwi0uPiZ+fTynMfgGhRdr +akyHiJvMKgViblNoM329mulFw4snz8oSiii8MqLqq09cr9ZslcKlsDd/vvko +8bNbb2euVVA4+DWz1Z+4WmQo/eZDCttnCoLiiauihtl51RTyZVW0ZBM/mJl6 +X1hHYanCseZy4nvui85zGyk0tdnuV0tc3rtS8d4rCpND/n3eSszdI9r0qJ3C +KbvFDT3EJU9lT9R0UXhgF8PnI3Hh5o2Cz/sozP0z1PAvcX6u5t2/hyiMefn+ +5QhxrihYt32hUMD70bkfxNnRJrNvh8n7UOPrGyXOnN2f0TdG4eKW08PDxOme +tvBhisK9MUlFX4iv9rt9+DpH4pP4IzFInGpxOmpkgULOA1udTuJLz0LWTyxh +YpSkJd9L4kSNmL9/rWDic2//5EfEcbcve/8RYOISB68XhcQxYplCS9YwcZV4 +V9kV4qiLBRUrJJiYvOXg3nDiiP/KDq6WYWJHZ2KuO3Hoicdza5hMNEySK7Eg +Dh58nim5nolMX66HBvFZyzaUU2HiFt7BwTXEAXW9H+XVmWhntZ9vknzP01u+ +XFDaykSzdnrsNfHJgrENm3WZKBCQkVBM7Bm39KTuThL/wYqJQ8Ru86tFDMyY +aN2hXK1C7Oojed94LxMvTv5tuEDqz36/2u99h5m49OG6yBvExxq0s2zsmJht +KaXnSnx4q5GBrTMT0/w/3lcltlp3KMbdm4lKVh6fHpD6t0xwUvI5zcTvJSHp +QcTmCyda/AKZmNj8R1CHeNfHiDVhEUycvjatX+5Gg25xSfaVK0yslY57Hk32 +W69ccdaOG0zMf3OCj00cdKXw5mQWE4VnDzuOkf1aGZ6fsa+QibKzsWhJrG6T +fU3gMRNH1No6/yP7v+3VzatPaphIeaUW3yI+aZh5xauBibYhXWk7iDmq6alN +LUyM5ZMpiib9Y8PS1OQLQ0zUD4kamiT9pjHoctKWL0wcr5T2jCN2HUtO/PSN +ifTSGn454rzehHiDSSaK8ntnG5J+JVceHfNnGQsze5NW+dmSfmV3LixAmYVS +zuNBQYdJ/XecDZXfzMLIJ9k9Pw+R92Ua+L+OLSzklS0+6k58eYt/sDqw0GtM +rWmvDQ38fD6Bo5YsLDDNPbKC9N8lDx1Pup5hocEF/wEG6d+5qg4+osEs3JmU +UhxM+rtBnp13fRgLzauL8jotSD0lHfWiYlkopKslHWFOw5yLtdtABgun9oxs +azCjYVzY1N66loU23szbk2SedHtRrz1esLAj33GWQVzzfA5Cm1no+6RBfQ+Z +P8lBxbJ33rJQJ1HZJtOAhk0f+AZnv7GwNnPJeRbQ4F3WeixTRB4l0s1FW7fS +8M3iwJFPzvIYeuJIX7oiDe2FKn//cpfHCvU49wtkPj7iWbad30ce499pTPuQ ++Xmx8r6k1ll5bFtiKcRm0rBeVrwnOkEeldT8XZ/K0HB8tMdG6b489tbombmI +kv4fb2/tu1wBswxTluqS+e/9TZnaxKeAkgZ56QsLXJgxnh0ZEVTAu1WM/khy +XljJcznKXVIBHbS6wyJ+cWHT2boKexUF5KdOetqMciHERUHEYr8CHvGMEHR7 +x4W1et9blbIUcMJkQ6NcKRdMfpwx+ayliKmfbGJNzbggtVnmAq+uIsrldZXX +G3Nh1Le+VklfEU1feHpsN+JC6rSgrq+ZIhrXJybKsLkwMF+oumCniKy+kfdV +5Hzly9cnInFRETk+JfZW5HyWvgEHdvcqIrPymu/KDg58d+I9XRG6Hs1lelbO +WnDI/4DY4ujaDTi1u+K2slIpCL9SSKR/bMSu1tSSzJlikIrh7tXSUkbXvGi3 +ybgiuKakLShyXAWzzvM25lOF0CSpv2Xikiq6/Iy5+qusAHSkapPV3qqhUdjt +q3zi+SDAk+PnELEJ543br6el5YFMuKzuIYXNeMMqWv6/iRxYIX/0/r4Xm1Fx +4Kq6jv0tUGVLcM8cU8cWG10jkQ9Z4DsgXGe6SAPli994sIcy4MdE/AGTaxpk +/bN3n6mng7Ha83QTFU0s/eyn+af8KlRPbP9vpkUTc3P1+lE+DbyV1XvaXLag +IMZmuQ5fBvaoc8ehFVr4YL1kyFNOMuxgie/hz9FC6+AtnTlRCbA+LDawdutW +rC3bONYsGAsbXbSfyvdsxXsn6tZ53bkALtVu5ytObUPGyR9Hk15GwtPsDudx +UW1MkNVveLwQBpN3FmbUKrWxJyNpNIAZAk7yxSvS9+ggI7bydoLMWRjfmKJV +PqaDU9L73SqN/eFB3n9DUzHb0bp13aV6li8cNmLidhldPDr3Zi/rqzesOxH9 +ULVGFy2k4jK037qD6Eqvsj0H2Ti8/iPG1LlAnmFI0NghNs5srzxWUu4C6iGJ +hilH2SidE8PpveUC5mN0Z7cDG2X3CnUeCXOBC2+nZp282GhSnpw6xHaBXzmh +BkHhbHyhs/jd/CNn6Nme8ia/mI0jdwQKLJ84gZt/XoYJh4065qMabaVOMM25 +5/KdZuPPLjU4ctMJhKnumc332XgrKOlRYqgTmPFKSz2pYaOZjFShr4ETPO7I +d37TycZDb7MSNjQ5gqnAA5WAbmLa67h5lSN0G7+cFu8lz2dqHg8pcYTJR8Mx +tu/ZuOJBZ+1soiOo3NpU+u83NgYmpFt6WjnC4x79gPgRNob8PlX7fgdZb81+ +UBtjo8gfror9VkdwjfZv85tio8bBe/3BkmS9mgvpYr/Y2F1RLCbJ5wgRc1ed +Hs2x8Ua5q9azeQcQ1CxUPjbPxmP8EZq+Pxzg5olHUwsLbGzUuMGnMuQA/wc/ +Uxp/ "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8401,158 +13900,112 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= +1:eJwV13k0Ve33APDeNKiQIRky3XMvKlMhRa69DSUUKUmTmUxRQhJfUyJzoUFE +iEz3HlIqJRlKXhERGdP4vonIFG/ye35/nHXWZ62znrX3OfvZ+zkMR599LosX +LVo0S67/v08PvKxnxeXp6e15tEb1BFuv46b4Wf3uCFga6FWo90cSULTVUbz7 +MuyXPW/215+NELC3qIunOwd8L7Ffv5vXAaFRscuzXeVgNJY2lDNvCoOPzX0m +u2rhn2WVd+Z+H4adrG/9413tsLv9c9HpOQ+Y7dqaNtb1ARrCE4Zdx4KgzrAg +ry1nAnYOaxjNfowDqcGHXxyV5+Gbl56dUUQqrPGyK1puyIOuE7x2tffS4fLm +nVXmB3ixbPZclU18Nry7tqlmXJAfJfsFBZ4dyIW4vNDWxRJCWJQxfMNGKh/E +Uj9eTMkUwd8nl0xbJd2BaCsTvfZpUQxfziisSykCyYoWycV/rcWvXafGhm8U +AUfEambzqrX4W2hcZHVeEbxtt6Uvya7F2/rZwzsqioBl6UdZ7lqLrjKsOv+O +Iqjdk7Xs9fW1OPNA17BfpBjmd061vNIVwzOuSx0bEovhtPYtu5cR4tge2X+g +xa8ETLMFJs3ixXH3+I8W9XMlQC0PjmlJE8fqr7U5l8NL4HWHddmbO+LoEDhg +Y5RYAqon+XgGWsRxifXNnz4FJfBP/pn8n5ISaFP3LeRrdwkcXWM+su6uBGo4 +nzQ4sK0UjH7MBXl/lMS1F1tXSf5bCmd3pW589l0Spew6NLeNlgLnlkqPyLQk +uv/K7rCcKAVxK3vth7zrMEdrZeCZ+VL4/qBhhkd1HeZuKTSNF+JASkSy3/XA +dXj1htLyvm0c+CCq4F3PL4VrNl23ETnPATGfp9JiYlKY/tVANTuGA7sbbV65 +y0lhc2VG4PoEDtwPilNerSGF55TcPJWucCB2cOzbIRspjHj/+uVcAQfUC6uO +/8iRQqkYiVNPmzgQrmvpILlNGlffCu97z8eFXbY3f241kEZhRVanuhAXBMKG +Iw/slsbr1cvPhIpyIaMuKj/ZXhqnG8wreWW48MD00fCyi9J4ZJmNWq8qF8Zs +mAET76TxQ6+IapgFF2z9p2Kbz8ngolZ/7eZ4LshfNZD6FiWDtlR02+lkLsk/ +qXR5sgzWzCesW5vKhaDfG14b5Mng+qDJ56Y3uJAWaSv6sFkGf+lWR/kVcqH5 +0ous29KyWJ9b//tlPRd0ONcr/vdUFmubFb6GznDBqKtlfrRRFvlejnuazXHB +fNESY7t2Wdx56rut8DwXnPZ5v4PPshiuk77L5C8adp5jhIYtlcOOF20SnGU0 +nJSdztVXkkOPv5d4rRSiYepucuOsmhyyq32rzIRpCNqlNFKmKYe0/OOGWBEa +ok7Za1F6chi+49OqxWtpSK9ralxsKYfLllW5dErSUH88a6QuQA4bDlXGrmbR +YPJbWzj4nBzKPTQoUJanoSW5Q0szTA7n9MYijBVoePdwRVjeRTnsW9UZGLCe +htFVfsJRGXIYX9Ht+lCZBnF619adtXL4WeuvxDeaNHj9Gg9r5GdglPBxzSOG +NOiccl37RZiBRw6NZRsY0cD7raeYR5yBeV9DTyvuoOF2b91bPYqBril+u//d +ScNAdZryPS0GtlUp9ewxpcEiSrv7lh0DfTw5Tel7aZD5U3riqTMDJwYaXtlY +0vA9gOLpd2dgeZq23pp9NMS4rVIV92OgWCXDPXI/DTVm/ZGJMQxcfSlu0sCa +BnXhcLVzZQzcPxu71/gIDYvipuqv3SfxqB5y7iNu4fE4fL+KxP9X8Ij3URo8 +p/ZFjTcw8MeONw7xx2jI62b1Hu9h4KUPfkN37Gjwtbx+MmqQgTv2JnM22NOA +TfzLcj8xUO7x1qkC4v6q6U0Doww0q7Ycz3CgYW1W4wUrHgr3W3y56+ZEwycx +tpQvL4UWBy8d7SQuTy4rS+Kn0MxEIRKcSf4R6X1NYhT6Ke3azedC8nPxUtdX +prAmkzUQ7UqD9cD7F7abKZw5/ybqPTHr4IFjwVoUhoiPcbWOk/x36cVUIoVX +tZ8m9BLPKgkOqBygcN5jLHS5Ow3TmZLhGocpPOb5j4AZ8eRqeZa2HYWbyj5u +jycendD2MHKnMDaF8l3uQcOwixG/qTeF0vUXgvWJ/+kypy1OU5jqoKZ4lvhD +ldP04RAKPVpS7YaIB1W8r9tHUDhuHzAq5ElDX1agrms0hQufSdETvxOKHPSM +p1Bl1ZlJT+K3kQkRpy6R/BdXe6URv5m6Kn/mCoVLwi0uPiZ+fTynMfgGhRdr +akyHiJvMKgViblNoM329mulFw4snz8oSiii8MqLqq09cr9ZslcKlsDd/vvko +8bNbb2euVVA4+DWz1Z+4WmQo/eZDCttnCoLiiauihtl51RTyZVW0ZBM/mJl6 +X1hHYanCseZy4nvui85zGyk0tdnuV0tc3rtS8d4rCpND/n3eSszdI9r0qJ3C +KbvFDT3EJU9lT9R0UXhgF8PnI3Hh5o2Cz/sozP0z1PAvcX6u5t2/hyiMefn+ +5QhxrihYt32hUMD70bkfxNnRJrNvh8n7UOPrGyXOnN2f0TdG4eKW08PDxOme +tvBhisK9MUlFX4iv9rt9+DpH4pP4IzFInGpxOmpkgULOA1udTuJLz0LWTyxh +YpSkJd9L4kSNmL9/rWDic2//5EfEcbcve/8RYOISB68XhcQxYplCS9YwcZV4 +V9kV4qiLBRUrJJiYvOXg3nDiiP/KDq6WYWJHZ2KuO3Hoicdza5hMNEySK7Eg +Dh58nim5nolMX66HBvFZyzaUU2HiFt7BwTXEAXW9H+XVmWhntZ9vknzP01u+ +XFDaykSzdnrsNfHJgrENm3WZKBCQkVBM7Bm39KTuThL/wYqJQ8Ru86tFDMyY +aN2hXK1C7Oojed94LxMvTv5tuEDqz36/2u99h5m49OG6yBvExxq0s2zsmJht +KaXnSnx4q5GBrTMT0/w/3lcltlp3KMbdm4lKVh6fHpD6t0xwUvI5zcTvJSHp +QcTmCyda/AKZmNj8R1CHeNfHiDVhEUycvjatX+5Gg25xSfaVK0yslY57Hk32 +W69ccdaOG0zMf3OCj00cdKXw5mQWE4VnDzuOkf1aGZ6fsa+QibKzsWhJrG6T +fU3gMRNH1No6/yP7v+3VzatPaphIeaUW3yI+aZh5xauBibYhXWk7iDmq6alN +LUyM5ZMpiib9Y8PS1OQLQ0zUD4kamiT9pjHoctKWL0wcr5T2jCN2HUtO/PSN +ifTSGn454rzehHiDSSaK8ntnG5J+JVceHfNnGQsze5NW+dmSfmV3LixAmYVS +zuNBQYdJ/XecDZXfzMLIJ9k9Pw+R92Ua+L+OLSzklS0+6k58eYt/sDqw0GtM +rWmvDQ38fD6Bo5YsLDDNPbKC9N8lDx1Pup5hocEF/wEG6d+5qg4+osEs3JmU +UhxM+rtBnp13fRgLzauL8jotSD0lHfWiYlkopKslHWFOw5yLtdtABgun9oxs +azCjYVzY1N66loU23szbk2SedHtRrz1esLAj33GWQVzzfA5Cm1no+6RBfQ+Z +P8lBxbJ33rJQJ1HZJtOAhk0f+AZnv7GwNnPJeRbQ4F3WeixTRB4l0s1FW7fS +8M3iwJFPzvIYeuJIX7oiDe2FKn//cpfHCvU49wtkPj7iWbad30ce499pTPuQ ++Xmx8r6k1ll5bFtiKcRm0rBeVrwnOkEeldT8XZ/K0HB8tMdG6b489tbombmI +kv4fb2/tu1wBswxTluqS+e/9TZnaxKeAkgZ56QsLXJgxnh0ZEVTAu1WM/khy +XljJcznKXVIBHbS6wyJ+cWHT2boKexUF5KdOetqMciHERUHEYr8CHvGMEHR7 +x4W1et9blbIUcMJkQ6NcKRdMfpwx+ayliKmfbGJNzbggtVnmAq+uIsrldZXX +G3Nh1Le+VklfEU1feHpsN+JC6rSgrq+ZIhrXJybKsLkwMF+oumCniKy+kfdV +5Hzly9cnInFRETk+JfZW5HyWvgEHdvcqIrPymu/KDg58d+I9XRG6Hs1lelbO +WnDI/4DY4ujaDTi1u+K2slIpCL9SSKR/bMSu1tSSzJlikIrh7tXSUkbXvGi3 +ybgiuKakLShyXAWzzvM25lOF0CSpv2Xikiq6/Iy5+qusAHSkapPV3qqhUdjt +q3zi+SDAk+PnELEJ543br6el5YFMuKzuIYXNeMMqWv6/iRxYIX/0/r4Xm1Fx +4Kq6jv0tUGVLcM8cU8cWG10jkQ9Z4DsgXGe6SAPli994sIcy4MdE/AGTaxpk +/bN3n6mng7Ha83QTFU0s/eyn+af8KlRPbP9vpkUTc3P1+lE+DbyV1XvaXLag +IMZmuQ5fBvaoc8ehFVr4YL1kyFNOMuxgie/hz9FC6+AtnTlRCbA+LDawdutW +rC3bONYsGAsbXbSfyvdsxXsn6tZ53bkALtVu5ytObUPGyR9Hk15GwtPsDudx +UW1MkNVveLwQBpN3FmbUKrWxJyNpNIAZAk7yxSvS9+ggI7bydoLMWRjfmKJV +PqaDU9L73SqN/eFB3n9DUzHb0bp13aV6li8cNmLidhldPDr3Zi/rqzesOxH9 +ULVGFy2k4jK037qD6Eqvsj0H2Ti8/iPG1LlAnmFI0NghNs5srzxWUu4C6iGJ +hilH2SidE8PpveUC5mN0Z7cDG2X3CnUeCXOBC2+nZp282GhSnpw6xHaBXzmh +BkHhbHyhs/jd/CNn6Nme8ia/mI0jdwQKLJ84gZt/XoYJh4065qMabaVOMM25 +5/KdZuPPLjU4ctMJhKnumc332XgrKOlRYqgTmPFKSz2pYaOZjFShr4ETPO7I +d37TycZDb7MSNjQ5gqnAA5WAbmLa67h5lSN0G7+cFu8lz2dqHg8pcYTJR8Mx +tu/ZuOJBZ+1soiOo3NpU+u83NgYmpFt6WjnC4x79gPgRNob8PlX7fgdZb81+ +UBtjo8gfror9VkdwjfZv85tio8bBe/3BkmS9mgvpYr/Y2F1RLCbJ5wgRc1ed +Hs2x8Ua5q9azeQcQ1CxUPjbPxmP8EZq+Pxzg5olHUwsLbGzUuMGnMuQA/wc/ +Uxp/ "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.0641622235365775}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8564,183 +14017,137 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.0641622235365775}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{117.9605728938093, - 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= +1:eJwV13k0Ve33APDeNKiQIRky3XMvKlMhRa69DSUUKUmTmUxRQhJfUyJzoUFE +iEz3HlIqJRlKXhERGdP4vonIFG/ye35/nHXWZ62znrX3OfvZ+zkMR599LosX +LVo0S67/v08PvKxnxeXp6e15tEb1BFuv46b4Wf3uCFga6FWo90cSULTVUbz7 +MuyXPW/215+NELC3qIunOwd8L7Ffv5vXAaFRscuzXeVgNJY2lDNvCoOPzX0m +u2rhn2WVd+Z+H4adrG/9413tsLv9c9HpOQ+Y7dqaNtb1ARrCE4Zdx4KgzrAg +ry1nAnYOaxjNfowDqcGHXxyV5+Gbl56dUUQqrPGyK1puyIOuE7x2tffS4fLm +nVXmB3ixbPZclU18Nry7tqlmXJAfJfsFBZ4dyIW4vNDWxRJCWJQxfMNGKh/E +Uj9eTMkUwd8nl0xbJd2BaCsTvfZpUQxfziisSykCyYoWycV/rcWvXafGhm8U +AUfEambzqrX4W2hcZHVeEbxtt6Uvya7F2/rZwzsqioBl6UdZ7lqLrjKsOv+O +Iqjdk7Xs9fW1OPNA17BfpBjmd061vNIVwzOuSx0bEovhtPYtu5cR4tge2X+g +xa8ETLMFJs3ixXH3+I8W9XMlQC0PjmlJE8fqr7U5l8NL4HWHddmbO+LoEDhg +Y5RYAqon+XgGWsRxifXNnz4FJfBP/pn8n5ISaFP3LeRrdwkcXWM+su6uBGo4 +nzQ4sK0UjH7MBXl/lMS1F1tXSf5bCmd3pW589l0Spew6NLeNlgLnlkqPyLQk +uv/K7rCcKAVxK3vth7zrMEdrZeCZ+VL4/qBhhkd1HeZuKTSNF+JASkSy3/XA +dXj1htLyvm0c+CCq4F3PL4VrNl23ETnPATGfp9JiYlKY/tVANTuGA7sbbV65 +y0lhc2VG4PoEDtwPilNerSGF55TcPJWucCB2cOzbIRspjHj/+uVcAQfUC6uO +/8iRQqkYiVNPmzgQrmvpILlNGlffCu97z8eFXbY3f241kEZhRVanuhAXBMKG +Iw/slsbr1cvPhIpyIaMuKj/ZXhqnG8wreWW48MD00fCyi9J4ZJmNWq8qF8Zs +mAET76TxQ6+IapgFF2z9p2Kbz8ngolZ/7eZ4LshfNZD6FiWDtlR02+lkLsk/ +qXR5sgzWzCesW5vKhaDfG14b5Mng+qDJ56Y3uJAWaSv6sFkGf+lWR/kVcqH5 +0ous29KyWJ9b//tlPRd0ONcr/vdUFmubFb6GznDBqKtlfrRRFvlejnuazXHB +fNESY7t2Wdx56rut8DwXnPZ5v4PPshiuk77L5C8adp5jhIYtlcOOF20SnGU0 +nJSdztVXkkOPv5d4rRSiYepucuOsmhyyq32rzIRpCNqlNFKmKYe0/OOGWBEa +ok7Za1F6chi+49OqxWtpSK9ralxsKYfLllW5dErSUH88a6QuQA4bDlXGrmbR +YPJbWzj4nBzKPTQoUJanoSW5Q0szTA7n9MYijBVoePdwRVjeRTnsW9UZGLCe +htFVfsJRGXIYX9Ht+lCZBnF619adtXL4WeuvxDeaNHj9Gg9r5GdglPBxzSOG +NOiccl37RZiBRw6NZRsY0cD7raeYR5yBeV9DTyvuoOF2b91bPYqBril+u//d +ScNAdZryPS0GtlUp9ewxpcEiSrv7lh0DfTw5Tel7aZD5U3riqTMDJwYaXtlY +0vA9gOLpd2dgeZq23pp9NMS4rVIV92OgWCXDPXI/DTVm/ZGJMQxcfSlu0sCa +BnXhcLVzZQzcPxu71/gIDYvipuqv3SfxqB5y7iNu4fE4fL+KxP9X8Ij3URo8 +p/ZFjTcw8MeONw7xx2jI62b1Hu9h4KUPfkN37Gjwtbx+MmqQgTv2JnM22NOA +TfzLcj8xUO7x1qkC4v6q6U0Doww0q7Ycz3CgYW1W4wUrHgr3W3y56+ZEwycx +tpQvL4UWBy8d7SQuTy4rS+Kn0MxEIRKcSf4R6X1NYhT6Ke3azedC8nPxUtdX +prAmkzUQ7UqD9cD7F7abKZw5/ybqPTHr4IFjwVoUhoiPcbWOk/x36cVUIoVX +tZ8m9BLPKgkOqBygcN5jLHS5Ow3TmZLhGocpPOb5j4AZ8eRqeZa2HYWbyj5u +jycendD2MHKnMDaF8l3uQcOwixG/qTeF0vUXgvWJ/+kypy1OU5jqoKZ4lvhD +ldP04RAKPVpS7YaIB1W8r9tHUDhuHzAq5ElDX1agrms0hQufSdETvxOKHPSM +p1Bl1ZlJT+K3kQkRpy6R/BdXe6URv5m6Kn/mCoVLwi0uPiZ+fTynMfgGhRdr +akyHiJvMKgViblNoM329mulFw4snz8oSiii8MqLqq09cr9ZslcKlsDd/vvko +8bNbb2euVVA4+DWz1Z+4WmQo/eZDCttnCoLiiauihtl51RTyZVW0ZBM/mJl6 +X1hHYanCseZy4nvui85zGyk0tdnuV0tc3rtS8d4rCpND/n3eSszdI9r0qJ3C +KbvFDT3EJU9lT9R0UXhgF8PnI3Hh5o2Cz/sozP0z1PAvcX6u5t2/hyiMefn+ +5QhxrihYt32hUMD70bkfxNnRJrNvh8n7UOPrGyXOnN2f0TdG4eKW08PDxOme +tvBhisK9MUlFX4iv9rt9+DpH4pP4IzFInGpxOmpkgULOA1udTuJLz0LWTyxh +YpSkJd9L4kSNmL9/rWDic2//5EfEcbcve/8RYOISB68XhcQxYplCS9YwcZV4 +V9kV4qiLBRUrJJiYvOXg3nDiiP/KDq6WYWJHZ2KuO3Hoicdza5hMNEySK7Eg +Dh58nim5nolMX66HBvFZyzaUU2HiFt7BwTXEAXW9H+XVmWhntZ9vknzP01u+ +XFDaykSzdnrsNfHJgrENm3WZKBCQkVBM7Bm39KTuThL/wYqJQ8Ru86tFDMyY +aN2hXK1C7Oojed94LxMvTv5tuEDqz36/2u99h5m49OG6yBvExxq0s2zsmJht +KaXnSnx4q5GBrTMT0/w/3lcltlp3KMbdm4lKVh6fHpD6t0xwUvI5zcTvJSHp +QcTmCyda/AKZmNj8R1CHeNfHiDVhEUycvjatX+5Gg25xSfaVK0yslY57Hk32 +W69ccdaOG0zMf3OCj00cdKXw5mQWE4VnDzuOkf1aGZ6fsa+QibKzsWhJrG6T +fU3gMRNH1No6/yP7v+3VzatPaphIeaUW3yI+aZh5xauBibYhXWk7iDmq6alN +LUyM5ZMpiib9Y8PS1OQLQ0zUD4kamiT9pjHoctKWL0wcr5T2jCN2HUtO/PSN +ifTSGn454rzehHiDSSaK8ntnG5J+JVceHfNnGQsze5NW+dmSfmV3LixAmYVS +zuNBQYdJ/XecDZXfzMLIJ9k9Pw+R92Ua+L+OLSzklS0+6k58eYt/sDqw0GtM +rWmvDQ38fD6Bo5YsLDDNPbKC9N8lDx1Pup5hocEF/wEG6d+5qg4+osEs3JmU +UhxM+rtBnp13fRgLzauL8jotSD0lHfWiYlkopKslHWFOw5yLtdtABgun9oxs +azCjYVzY1N66loU23szbk2SedHtRrz1esLAj33GWQVzzfA5Cm1no+6RBfQ+Z +P8lBxbJ33rJQJ1HZJtOAhk0f+AZnv7GwNnPJeRbQ4F3WeixTRB4l0s1FW7fS +8M3iwJFPzvIYeuJIX7oiDe2FKn//cpfHCvU49wtkPj7iWbad30ce499pTPuQ ++Xmx8r6k1ll5bFtiKcRm0rBeVrwnOkEeldT8XZ/K0HB8tMdG6b489tbombmI +kv4fb2/tu1wBswxTluqS+e/9TZnaxKeAkgZ56QsLXJgxnh0ZEVTAu1WM/khy +XljJcznKXVIBHbS6wyJ+cWHT2boKexUF5KdOetqMciHERUHEYr8CHvGMEHR7 +x4W1et9blbIUcMJkQ6NcKRdMfpwx+ayliKmfbGJNzbggtVnmAq+uIsrldZXX +G3Nh1Le+VklfEU1feHpsN+JC6rSgrq+ZIhrXJybKsLkwMF+oumCniKy+kfdV +5Hzly9cnInFRETk+JfZW5HyWvgEHdvcqIrPymu/KDg58d+I9XRG6Hs1lelbO +WnDI/4DY4ujaDTi1u+K2slIpCL9SSKR/bMSu1tSSzJlikIrh7tXSUkbXvGi3 +ybgiuKakLShyXAWzzvM25lOF0CSpv2Xikiq6/Iy5+qusAHSkapPV3qqhUdjt +q3zi+SDAk+PnELEJ543br6el5YFMuKzuIYXNeMMqWv6/iRxYIX/0/r4Xm1Fx +4Kq6jv0tUGVLcM8cU8cWG10jkQ9Z4DsgXGe6SAPli994sIcy4MdE/AGTaxpk +/bN3n6mng7Ha83QTFU0s/eyn+af8KlRPbP9vpkUTc3P1+lE+DbyV1XvaXLag +IMZmuQ5fBvaoc8ehFVr4YL1kyFNOMuxgie/hz9FC6+AtnTlRCbA+LDawdutW +rC3bONYsGAsbXbSfyvdsxXsn6tZ53bkALtVu5ytObUPGyR9Hk15GwtPsDudx +UW1MkNVveLwQBpN3FmbUKrWxJyNpNIAZAk7yxSvS9+ggI7bydoLMWRjfmKJV +PqaDU9L73SqN/eFB3n9DUzHb0bp13aV6li8cNmLidhldPDr3Zi/rqzesOxH9 +ULVGFy2k4jK037qD6Eqvsj0H2Ti8/iPG1LlAnmFI0NghNs5srzxWUu4C6iGJ +hilH2SidE8PpveUC5mN0Z7cDG2X3CnUeCXOBC2+nZp282GhSnpw6xHaBXzmh +BkHhbHyhs/jd/CNn6Nme8ia/mI0jdwQKLJ84gZt/XoYJh4065qMabaVOMM25 +5/KdZuPPLjU4ctMJhKnumc332XgrKOlRYqgTmPFKSz2pYaOZjFShr4ETPO7I +d37TycZDb7MSNjQ5gqnAA5WAbmLa67h5lSN0G7+cFu8lz2dqHg8pcYTJR8Mx +tu/ZuOJBZ+1soiOo3NpU+u83NgYmpFt6WjnC4x79gPgRNob8PlX7fgdZb81+ +UBtjo8gfror9VkdwjfZv85tio8bBe/3BkmS9mgvpYr/Y2F1RLCbJ5wgRc1ed +Hs2x8Ua5q9azeQcQ1CxUPjbPxmP8EZq+Pxzg5olHUwsLbGzUuMGnMuQA/wc/ +Uxp/ "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.0641622235365775}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8751,6 +14158,7 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8778,7 +14186,8 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0641622235365775}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8786,17 +14195,556 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913483238131485`*^9}, + CellChangeTimes->{3.9913483238131485`*^9, 3.9939134390113697`*^9}, CellLabel-> - "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] + "Out[140]=",ExpressionUUID->"fc750c36-d92c-4a34-a5cf-34beddb6e205"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ -76427bb63659"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0Ve33APDeNKiQIRky3XMvKlMhRa69DSUUKUmTmUxRQhJfUyJzoUFE +iEz3HlIqJRlKXhERGdP4vonIFG/ye35/nHXWZ62znrX3OfvZ+zkMR599LosX +LVo0S67/v08PvKxnxeXp6e15tEb1BFuv46b4Wf3uCFga6FWo90cSULTVUbz7 +MuyXPW/215+NELC3qIunOwd8L7Ffv5vXAaFRscuzXeVgNJY2lDNvCoOPzX0m +u2rhn2WVd+Z+H4adrG/9413tsLv9c9HpOQ+Y7dqaNtb1ARrCE4Zdx4KgzrAg +ry1nAnYOaxjNfowDqcGHXxyV5+Gbl56dUUQqrPGyK1puyIOuE7x2tffS4fLm +nVXmB3ixbPZclU18Nry7tqlmXJAfJfsFBZ4dyIW4vNDWxRJCWJQxfMNGKh/E +Uj9eTMkUwd8nl0xbJd2BaCsTvfZpUQxfziisSykCyYoWycV/rcWvXafGhm8U +AUfEambzqrX4W2hcZHVeEbxtt6Uvya7F2/rZwzsqioBl6UdZ7lqLrjKsOv+O +Iqjdk7Xs9fW1OPNA17BfpBjmd061vNIVwzOuSx0bEovhtPYtu5cR4tge2X+g +xa8ETLMFJs3ixXH3+I8W9XMlQC0PjmlJE8fqr7U5l8NL4HWHddmbO+LoEDhg +Y5RYAqon+XgGWsRxifXNnz4FJfBP/pn8n5ISaFP3LeRrdwkcXWM+su6uBGo4 +nzQ4sK0UjH7MBXl/lMS1F1tXSf5bCmd3pW589l0Spew6NLeNlgLnlkqPyLQk +uv/K7rCcKAVxK3vth7zrMEdrZeCZ+VL4/qBhhkd1HeZuKTSNF+JASkSy3/XA +dXj1htLyvm0c+CCq4F3PL4VrNl23ETnPATGfp9JiYlKY/tVANTuGA7sbbV65 +y0lhc2VG4PoEDtwPilNerSGF55TcPJWucCB2cOzbIRspjHj/+uVcAQfUC6uO +/8iRQqkYiVNPmzgQrmvpILlNGlffCu97z8eFXbY3f241kEZhRVanuhAXBMKG +Iw/slsbr1cvPhIpyIaMuKj/ZXhqnG8wreWW48MD00fCyi9J4ZJmNWq8qF8Zs +mAET76TxQ6+IapgFF2z9p2Kbz8ngolZ/7eZ4LshfNZD6FiWDtlR02+lkLsk/ +qXR5sgzWzCesW5vKhaDfG14b5Mng+qDJ56Y3uJAWaSv6sFkGf+lWR/kVcqH5 +0ous29KyWJ9b//tlPRd0ONcr/vdUFmubFb6GznDBqKtlfrRRFvlejnuazXHB +fNESY7t2Wdx56rut8DwXnPZ5v4PPshiuk77L5C8adp5jhIYtlcOOF20SnGU0 +nJSdztVXkkOPv5d4rRSiYepucuOsmhyyq32rzIRpCNqlNFKmKYe0/OOGWBEa +ok7Za1F6chi+49OqxWtpSK9ralxsKYfLllW5dErSUH88a6QuQA4bDlXGrmbR +YPJbWzj4nBzKPTQoUJanoSW5Q0szTA7n9MYijBVoePdwRVjeRTnsW9UZGLCe +htFVfsJRGXIYX9Ht+lCZBnF619adtXL4WeuvxDeaNHj9Gg9r5GdglPBxzSOG +NOiccl37RZiBRw6NZRsY0cD7raeYR5yBeV9DTyvuoOF2b91bPYqBril+u//d +ScNAdZryPS0GtlUp9ewxpcEiSrv7lh0DfTw5Tel7aZD5U3riqTMDJwYaXtlY +0vA9gOLpd2dgeZq23pp9NMS4rVIV92OgWCXDPXI/DTVm/ZGJMQxcfSlu0sCa +BnXhcLVzZQzcPxu71/gIDYvipuqv3SfxqB5y7iNu4fE4fL+KxP9X8Ij3URo8 +p/ZFjTcw8MeONw7xx2jI62b1Hu9h4KUPfkN37Gjwtbx+MmqQgTv2JnM22NOA +TfzLcj8xUO7x1qkC4v6q6U0Doww0q7Ycz3CgYW1W4wUrHgr3W3y56+ZEwycx +tpQvL4UWBy8d7SQuTy4rS+Kn0MxEIRKcSf4R6X1NYhT6Ke3azedC8nPxUtdX +prAmkzUQ7UqD9cD7F7abKZw5/ybqPTHr4IFjwVoUhoiPcbWOk/x36cVUIoVX +tZ8m9BLPKgkOqBygcN5jLHS5Ow3TmZLhGocpPOb5j4AZ8eRqeZa2HYWbyj5u +jycendD2MHKnMDaF8l3uQcOwixG/qTeF0vUXgvWJ/+kypy1OU5jqoKZ4lvhD +ldP04RAKPVpS7YaIB1W8r9tHUDhuHzAq5ElDX1agrms0hQufSdETvxOKHPSM +p1Bl1ZlJT+K3kQkRpy6R/BdXe6URv5m6Kn/mCoVLwi0uPiZ+fTynMfgGhRdr +akyHiJvMKgViblNoM329mulFw4snz8oSiii8MqLqq09cr9ZslcKlsDd/vvko +8bNbb2euVVA4+DWz1Z+4WmQo/eZDCttnCoLiiauihtl51RTyZVW0ZBM/mJl6 +X1hHYanCseZy4nvui85zGyk0tdnuV0tc3rtS8d4rCpND/n3eSszdI9r0qJ3C +KbvFDT3EJU9lT9R0UXhgF8PnI3Hh5o2Cz/sozP0z1PAvcX6u5t2/hyiMefn+ +5QhxrihYt32hUMD70bkfxNnRJrNvh8n7UOPrGyXOnN2f0TdG4eKW08PDxOme +tvBhisK9MUlFX4iv9rt9+DpH4pP4IzFInGpxOmpkgULOA1udTuJLz0LWTyxh +YpSkJd9L4kSNmL9/rWDic2//5EfEcbcve/8RYOISB68XhcQxYplCS9YwcZV4 +V9kV4qiLBRUrJJiYvOXg3nDiiP/KDq6WYWJHZ2KuO3Hoicdza5hMNEySK7Eg +Dh58nim5nolMX66HBvFZyzaUU2HiFt7BwTXEAXW9H+XVmWhntZ9vknzP01u+ +XFDaykSzdnrsNfHJgrENm3WZKBCQkVBM7Bm39KTuThL/wYqJQ8Ru86tFDMyY +aN2hXK1C7Oojed94LxMvTv5tuEDqz36/2u99h5m49OG6yBvExxq0s2zsmJht +KaXnSnx4q5GBrTMT0/w/3lcltlp3KMbdm4lKVh6fHpD6t0xwUvI5zcTvJSHp +QcTmCyda/AKZmNj8R1CHeNfHiDVhEUycvjatX+5Gg25xSfaVK0yslY57Hk32 +W69ccdaOG0zMf3OCj00cdKXw5mQWE4VnDzuOkf1aGZ6fsa+QibKzsWhJrG6T +fU3gMRNH1No6/yP7v+3VzatPaphIeaUW3yI+aZh5xauBibYhXWk7iDmq6alN +LUyM5ZMpiib9Y8PS1OQLQ0zUD4kamiT9pjHoctKWL0wcr5T2jCN2HUtO/PSN +ifTSGn454rzehHiDSSaK8ntnG5J+JVceHfNnGQsze5NW+dmSfmV3LixAmYVS +zuNBQYdJ/XecDZXfzMLIJ9k9Pw+R92Ua+L+OLSzklS0+6k58eYt/sDqw0GtM +rWmvDQ38fD6Bo5YsLDDNPbKC9N8lDx1Pup5hocEF/wEG6d+5qg4+osEs3JmU +UhxM+rtBnp13fRgLzauL8jotSD0lHfWiYlkopKslHWFOw5yLtdtABgun9oxs +azCjYVzY1N66loU23szbk2SedHtRrz1esLAj33GWQVzzfA5Cm1no+6RBfQ+Z +P8lBxbJ33rJQJ1HZJtOAhk0f+AZnv7GwNnPJeRbQ4F3WeixTRB4l0s1FW7fS +8M3iwJFPzvIYeuJIX7oiDe2FKn//cpfHCvU49wtkPj7iWbad30ce499pTPuQ ++Xmx8r6k1ll5bFtiKcRm0rBeVrwnOkEeldT8XZ/K0HB8tMdG6b489tbombmI +kv4fb2/tu1wBswxTluqS+e/9TZnaxKeAkgZ56QsLXJgxnh0ZEVTAu1WM/khy +XljJcznKXVIBHbS6wyJ+cWHT2boKexUF5KdOetqMciHERUHEYr8CHvGMEHR7 +x4W1et9blbIUcMJkQ6NcKRdMfpwx+ayliKmfbGJNzbggtVnmAq+uIsrldZXX +G3Nh1Le+VklfEU1feHpsN+JC6rSgrq+ZIhrXJybKsLkwMF+oumCniKy+kfdV +5Hzly9cnInFRETk+JfZW5HyWvgEHdvcqIrPymu/KDg58d+I9XRG6Hs1lelbO +WnDI/4DY4ujaDTi1u+K2slIpCL9SSKR/bMSu1tSSzJlikIrh7tXSUkbXvGi3 +ybgiuKakLShyXAWzzvM25lOF0CSpv2Xikiq6/Iy5+qusAHSkapPV3qqhUdjt +q3zi+SDAk+PnELEJ543br6el5YFMuKzuIYXNeMMqWv6/iRxYIX/0/r4Xm1Fx +4Kq6jv0tUGVLcM8cU8cWG10jkQ9Z4DsgXGe6SAPli994sIcy4MdE/AGTaxpk +/bN3n6mng7Ha83QTFU0s/eyn+af8KlRPbP9vpkUTc3P1+lE+DbyV1XvaXLag +IMZmuQ5fBvaoc8ehFVr4YL1kyFNOMuxgie/hz9FC6+AtnTlRCbA+LDawdutW +rC3bONYsGAsbXbSfyvdsxXsn6tZ53bkALtVu5ytObUPGyR9Hk15GwtPsDudx +UW1MkNVveLwQBpN3FmbUKrWxJyNpNIAZAk7yxSvS9+ggI7bydoLMWRjfmKJV +PqaDU9L73SqN/eFB3n9DUzHb0bp13aV6li8cNmLidhldPDr3Zi/rqzesOxH9 +ULVGFy2k4jK037qD6Eqvsj0H2Ti8/iPG1LlAnmFI0NghNs5srzxWUu4C6iGJ +hilH2SidE8PpveUC5mN0Z7cDG2X3CnUeCXOBC2+nZp282GhSnpw6xHaBXzmh +BkHhbHyhs/jd/CNn6Nme8ia/mI0jdwQKLJ84gZt/XoYJh4065qMabaVOMM25 +5/KdZuPPLjU4ctMJhKnumc332XgrKOlRYqgTmPFKSz2pYaOZjFShr4ETPO7I +d37TycZDb7MSNjQ5gqnAA5WAbmLa67h5lSN0G7+cFu8lz2dqHg8pcYTJR8Mx +tu/ZuOJBZ+1soiOo3NpU+u83NgYmpFt6WjnC4x79gPgRNob8PlX7fgdZb81+ +UBtjo8gfror9VkdwjfZv85tio8bBe/3BkmS9mgvpYr/Y2F1RLCbJ5wgRc1ed +Hs2x8Ua5q9azeQcQ1CxUPjbPxmP8EZq+Pxzg5olHUwsLbGzUuMGnMuQA/wc/ +Uxp/ + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Ve33APDeNKiQIRky3XMvKlMhRa69DSUUKUmTmUxRQhJfUyJzoUFE +iEz3HlIqJRlKXhERGdP4vonIFG/ye35/nHXWZ62znrX3OfvZ+zkMR599LosX +LVo0S67/v08PvKxnxeXp6e15tEb1BFuv46b4Wf3uCFga6FWo90cSULTVUbz7 +MuyXPW/215+NELC3qIunOwd8L7Ffv5vXAaFRscuzXeVgNJY2lDNvCoOPzX0m +u2rhn2WVd+Z+H4adrG/9413tsLv9c9HpOQ+Y7dqaNtb1ARrCE4Zdx4KgzrAg +ry1nAnYOaxjNfowDqcGHXxyV5+Gbl56dUUQqrPGyK1puyIOuE7x2tffS4fLm +nVXmB3ixbPZclU18Nry7tqlmXJAfJfsFBZ4dyIW4vNDWxRJCWJQxfMNGKh/E +Uj9eTMkUwd8nl0xbJd2BaCsTvfZpUQxfziisSykCyYoWycV/rcWvXafGhm8U +AUfEambzqrX4W2hcZHVeEbxtt6Uvya7F2/rZwzsqioBl6UdZ7lqLrjKsOv+O +Iqjdk7Xs9fW1OPNA17BfpBjmd061vNIVwzOuSx0bEovhtPYtu5cR4tge2X+g +xa8ETLMFJs3ixXH3+I8W9XMlQC0PjmlJE8fqr7U5l8NL4HWHddmbO+LoEDhg +Y5RYAqon+XgGWsRxifXNnz4FJfBP/pn8n5ISaFP3LeRrdwkcXWM+su6uBGo4 +nzQ4sK0UjH7MBXl/lMS1F1tXSf5bCmd3pW589l0Spew6NLeNlgLnlkqPyLQk +uv/K7rCcKAVxK3vth7zrMEdrZeCZ+VL4/qBhhkd1HeZuKTSNF+JASkSy3/XA +dXj1htLyvm0c+CCq4F3PL4VrNl23ETnPATGfp9JiYlKY/tVANTuGA7sbbV65 +y0lhc2VG4PoEDtwPilNerSGF55TcPJWucCB2cOzbIRspjHj/+uVcAQfUC6uO +/8iRQqkYiVNPmzgQrmvpILlNGlffCu97z8eFXbY3f241kEZhRVanuhAXBMKG +Iw/slsbr1cvPhIpyIaMuKj/ZXhqnG8wreWW48MD00fCyi9J4ZJmNWq8qF8Zs +mAET76TxQ6+IapgFF2z9p2Kbz8ngolZ/7eZ4LshfNZD6FiWDtlR02+lkLsk/ +qXR5sgzWzCesW5vKhaDfG14b5Mng+qDJ56Y3uJAWaSv6sFkGf+lWR/kVcqH5 +0ous29KyWJ9b//tlPRd0ONcr/vdUFmubFb6GznDBqKtlfrRRFvlejnuazXHB +fNESY7t2Wdx56rut8DwXnPZ5v4PPshiuk77L5C8adp5jhIYtlcOOF20SnGU0 +nJSdztVXkkOPv5d4rRSiYepucuOsmhyyq32rzIRpCNqlNFKmKYe0/OOGWBEa +ok7Za1F6chi+49OqxWtpSK9ralxsKYfLllW5dErSUH88a6QuQA4bDlXGrmbR +YPJbWzj4nBzKPTQoUJanoSW5Q0szTA7n9MYijBVoePdwRVjeRTnsW9UZGLCe +htFVfsJRGXIYX9Ht+lCZBnF619adtXL4WeuvxDeaNHj9Gg9r5GdglPBxzSOG +NOiccl37RZiBRw6NZRsY0cD7raeYR5yBeV9DTyvuoOF2b91bPYqBril+u//d +ScNAdZryPS0GtlUp9ewxpcEiSrv7lh0DfTw5Tel7aZD5U3riqTMDJwYaXtlY +0vA9gOLpd2dgeZq23pp9NMS4rVIV92OgWCXDPXI/DTVm/ZGJMQxcfSlu0sCa +BnXhcLVzZQzcPxu71/gIDYvipuqv3SfxqB5y7iNu4fE4fL+KxP9X8Ij3URo8 +p/ZFjTcw8MeONw7xx2jI62b1Hu9h4KUPfkN37Gjwtbx+MmqQgTv2JnM22NOA +TfzLcj8xUO7x1qkC4v6q6U0Doww0q7Ycz3CgYW1W4wUrHgr3W3y56+ZEwycx +tpQvL4UWBy8d7SQuTy4rS+Kn0MxEIRKcSf4R6X1NYhT6Ke3azedC8nPxUtdX +prAmkzUQ7UqD9cD7F7abKZw5/ybqPTHr4IFjwVoUhoiPcbWOk/x36cVUIoVX +tZ8m9BLPKgkOqBygcN5jLHS5Ow3TmZLhGocpPOb5j4AZ8eRqeZa2HYWbyj5u +jycendD2MHKnMDaF8l3uQcOwixG/qTeF0vUXgvWJ/+kypy1OU5jqoKZ4lvhD +ldP04RAKPVpS7YaIB1W8r9tHUDhuHzAq5ElDX1agrms0hQufSdETvxOKHPSM +p1Bl1ZlJT+K3kQkRpy6R/BdXe6URv5m6Kn/mCoVLwi0uPiZ+fTynMfgGhRdr +akyHiJvMKgViblNoM329mulFw4snz8oSiii8MqLqq09cr9ZslcKlsDd/vvko +8bNbb2euVVA4+DWz1Z+4WmQo/eZDCttnCoLiiauihtl51RTyZVW0ZBM/mJl6 +X1hHYanCseZy4nvui85zGyk0tdnuV0tc3rtS8d4rCpND/n3eSszdI9r0qJ3C +KbvFDT3EJU9lT9R0UXhgF8PnI3Hh5o2Cz/sozP0z1PAvcX6u5t2/hyiMefn+ +5QhxrihYt32hUMD70bkfxNnRJrNvh8n7UOPrGyXOnN2f0TdG4eKW08PDxOme +tvBhisK9MUlFX4iv9rt9+DpH4pP4IzFInGpxOmpkgULOA1udTuJLz0LWTyxh +YpSkJd9L4kSNmL9/rWDic2//5EfEcbcve/8RYOISB68XhcQxYplCS9YwcZV4 +V9kV4qiLBRUrJJiYvOXg3nDiiP/KDq6WYWJHZ2KuO3Hoicdza5hMNEySK7Eg +Dh58nim5nolMX66HBvFZyzaUU2HiFt7BwTXEAXW9H+XVmWhntZ9vknzP01u+ +XFDaykSzdnrsNfHJgrENm3WZKBCQkVBM7Bm39KTuThL/wYqJQ8Ru86tFDMyY +aN2hXK1C7Oojed94LxMvTv5tuEDqz36/2u99h5m49OG6yBvExxq0s2zsmJht +KaXnSnx4q5GBrTMT0/w/3lcltlp3KMbdm4lKVh6fHpD6t0xwUvI5zcTvJSHp +QcTmCyda/AKZmNj8R1CHeNfHiDVhEUycvjatX+5Gg25xSfaVK0yslY57Hk32 +W69ccdaOG0zMf3OCj00cdKXw5mQWE4VnDzuOkf1aGZ6fsa+QibKzsWhJrG6T +fU3gMRNH1No6/yP7v+3VzatPaphIeaUW3yI+aZh5xauBibYhXWk7iDmq6alN +LUyM5ZMpiib9Y8PS1OQLQ0zUD4kamiT9pjHoctKWL0wcr5T2jCN2HUtO/PSN +ifTSGn454rzehHiDSSaK8ntnG5J+JVceHfNnGQsze5NW+dmSfmV3LixAmYVS +zuNBQYdJ/XecDZXfzMLIJ9k9Pw+R92Ua+L+OLSzklS0+6k58eYt/sDqw0GtM +rWmvDQ38fD6Bo5YsLDDNPbKC9N8lDx1Pup5hocEF/wEG6d+5qg4+osEs3JmU +UhxM+rtBnp13fRgLzauL8jotSD0lHfWiYlkopKslHWFOw5yLtdtABgun9oxs +azCjYVzY1N66loU23szbk2SedHtRrz1esLAj33GWQVzzfA5Cm1no+6RBfQ+Z +P8lBxbJ33rJQJ1HZJtOAhk0f+AZnv7GwNnPJeRbQ4F3WeixTRB4l0s1FW7fS +8M3iwJFPzvIYeuJIX7oiDe2FKn//cpfHCvU49wtkPj7iWbad30ce499pTPuQ ++Xmx8r6k1ll5bFtiKcRm0rBeVrwnOkEeldT8XZ/K0HB8tMdG6b489tbombmI +kv4fb2/tu1wBswxTluqS+e/9TZnaxKeAkgZ56QsLXJgxnh0ZEVTAu1WM/khy +XljJcznKXVIBHbS6wyJ+cWHT2boKexUF5KdOetqMciHERUHEYr8CHvGMEHR7 +x4W1et9blbIUcMJkQ6NcKRdMfpwx+ayliKmfbGJNzbggtVnmAq+uIsrldZXX +G3Nh1Le+VklfEU1feHpsN+JC6rSgrq+ZIhrXJybKsLkwMF+oumCniKy+kfdV +5Hzly9cnInFRETk+JfZW5HyWvgEHdvcqIrPymu/KDg58d+I9XRG6Hs1lelbO +WnDI/4DY4ujaDTi1u+K2slIpCL9SSKR/bMSu1tSSzJlikIrh7tXSUkbXvGi3 +ybgiuKakLShyXAWzzvM25lOF0CSpv2Xikiq6/Iy5+qusAHSkapPV3qqhUdjt +q3zi+SDAk+PnELEJ543br6el5YFMuKzuIYXNeMMqWv6/iRxYIX/0/r4Xm1Fx +4Kq6jv0tUGVLcM8cU8cWG10jkQ9Z4DsgXGe6SAPli994sIcy4MdE/AGTaxpk +/bN3n6mng7Ha83QTFU0s/eyn+af8KlRPbP9vpkUTc3P1+lE+DbyV1XvaXLag +IMZmuQ5fBvaoc8ehFVr4YL1kyFNOMuxgie/hz9FC6+AtnTlRCbA+LDawdutW +rC3bONYsGAsbXbSfyvdsxXsn6tZ53bkALtVu5ytObUPGyR9Hk15GwtPsDudx +UW1MkNVveLwQBpN3FmbUKrWxJyNpNIAZAk7yxSvS9+ggI7bydoLMWRjfmKJV +PqaDU9L73SqN/eFB3n9DUzHb0bp13aV6li8cNmLidhldPDr3Zi/rqzesOxH9 +ULVGFy2k4jK037qD6Eqvsj0H2Ti8/iPG1LlAnmFI0NghNs5srzxWUu4C6iGJ +hilH2SidE8PpveUC5mN0Z7cDG2X3CnUeCXOBC2+nZp282GhSnpw6xHaBXzmh +BkHhbHyhs/jd/CNn6Nme8ia/mI0jdwQKLJ84gZt/XoYJh4065qMabaVOMM25 +5/KdZuPPLjU4ctMJhKnumc332XgrKOlRYqgTmPFKSz2pYaOZjFShr4ETPO7I +d37TycZDb7MSNjQ5gqnAA5WAbmLa67h5lSN0G7+cFu8lz2dqHg8pcYTJR8Mx +tu/ZuOJBZ+1soiOo3NpU+u83NgYmpFt6WjnC4x79gPgRNob8PlX7fgdZb81+ +UBtjo8gfror9VkdwjfZv85tio8bBe/3BkmS9mgvpYr/Y2F1RLCbJ5wgRc1ed +Hs2x8Ua5q9azeQcQ1CxUPjbPxmP8EZq+Pxzg5olHUwsLbGzUuMGnMuQA/wc/ +Uxp/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0641622235365775}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.0641622235365775}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Ve33APDeNKiQIRky3XMvKlMhRa69DSUUKUmTmUxRQhJfUyJzoUFE +iEz3HlIqJRlKXhERGdP4vonIFG/ye35/nHXWZ62znrX3OfvZ+zkMR599LosX +LVo0S67/v08PvKxnxeXp6e15tEb1BFuv46b4Wf3uCFga6FWo90cSULTVUbz7 +MuyXPW/215+NELC3qIunOwd8L7Ffv5vXAaFRscuzXeVgNJY2lDNvCoOPzX0m +u2rhn2WVd+Z+H4adrG/9413tsLv9c9HpOQ+Y7dqaNtb1ARrCE4Zdx4KgzrAg +ry1nAnYOaxjNfowDqcGHXxyV5+Gbl56dUUQqrPGyK1puyIOuE7x2tffS4fLm +nVXmB3ixbPZclU18Nry7tqlmXJAfJfsFBZ4dyIW4vNDWxRJCWJQxfMNGKh/E +Uj9eTMkUwd8nl0xbJd2BaCsTvfZpUQxfziisSykCyYoWycV/rcWvXafGhm8U +AUfEambzqrX4W2hcZHVeEbxtt6Uvya7F2/rZwzsqioBl6UdZ7lqLrjKsOv+O +Iqjdk7Xs9fW1OPNA17BfpBjmd061vNIVwzOuSx0bEovhtPYtu5cR4tge2X+g +xa8ETLMFJs3ixXH3+I8W9XMlQC0PjmlJE8fqr7U5l8NL4HWHddmbO+LoEDhg +Y5RYAqon+XgGWsRxifXNnz4FJfBP/pn8n5ISaFP3LeRrdwkcXWM+su6uBGo4 +nzQ4sK0UjH7MBXl/lMS1F1tXSf5bCmd3pW589l0Spew6NLeNlgLnlkqPyLQk +uv/K7rCcKAVxK3vth7zrMEdrZeCZ+VL4/qBhhkd1HeZuKTSNF+JASkSy3/XA +dXj1htLyvm0c+CCq4F3PL4VrNl23ETnPATGfp9JiYlKY/tVANTuGA7sbbV65 +y0lhc2VG4PoEDtwPilNerSGF55TcPJWucCB2cOzbIRspjHj/+uVcAQfUC6uO +/8iRQqkYiVNPmzgQrmvpILlNGlffCu97z8eFXbY3f241kEZhRVanuhAXBMKG +Iw/slsbr1cvPhIpyIaMuKj/ZXhqnG8wreWW48MD00fCyi9J4ZJmNWq8qF8Zs +mAET76TxQ6+IapgFF2z9p2Kbz8ngolZ/7eZ4LshfNZD6FiWDtlR02+lkLsk/ +qXR5sgzWzCesW5vKhaDfG14b5Mng+qDJ56Y3uJAWaSv6sFkGf+lWR/kVcqH5 +0ous29KyWJ9b//tlPRd0ONcr/vdUFmubFb6GznDBqKtlfrRRFvlejnuazXHB +fNESY7t2Wdx56rut8DwXnPZ5v4PPshiuk77L5C8adp5jhIYtlcOOF20SnGU0 +nJSdztVXkkOPv5d4rRSiYepucuOsmhyyq32rzIRpCNqlNFKmKYe0/OOGWBEa +ok7Za1F6chi+49OqxWtpSK9ralxsKYfLllW5dErSUH88a6QuQA4bDlXGrmbR +YPJbWzj4nBzKPTQoUJanoSW5Q0szTA7n9MYijBVoePdwRVjeRTnsW9UZGLCe +htFVfsJRGXIYX9Ht+lCZBnF619adtXL4WeuvxDeaNHj9Gg9r5GdglPBxzSOG +NOiccl37RZiBRw6NZRsY0cD7raeYR5yBeV9DTyvuoOF2b91bPYqBril+u//d +ScNAdZryPS0GtlUp9ewxpcEiSrv7lh0DfTw5Tel7aZD5U3riqTMDJwYaXtlY +0vA9gOLpd2dgeZq23pp9NMS4rVIV92OgWCXDPXI/DTVm/ZGJMQxcfSlu0sCa +BnXhcLVzZQzcPxu71/gIDYvipuqv3SfxqB5y7iNu4fE4fL+KxP9X8Ij3URo8 +p/ZFjTcw8MeONw7xx2jI62b1Hu9h4KUPfkN37Gjwtbx+MmqQgTv2JnM22NOA +TfzLcj8xUO7x1qkC4v6q6U0Doww0q7Ycz3CgYW1W4wUrHgr3W3y56+ZEwycx +tpQvL4UWBy8d7SQuTy4rS+Kn0MxEIRKcSf4R6X1NYhT6Ke3azedC8nPxUtdX +prAmkzUQ7UqD9cD7F7abKZw5/ybqPTHr4IFjwVoUhoiPcbWOk/x36cVUIoVX +tZ8m9BLPKgkOqBygcN5jLHS5Ow3TmZLhGocpPOb5j4AZ8eRqeZa2HYWbyj5u +jycendD2MHKnMDaF8l3uQcOwixG/qTeF0vUXgvWJ/+kypy1OU5jqoKZ4lvhD +ldP04RAKPVpS7YaIB1W8r9tHUDhuHzAq5ElDX1agrms0hQufSdETvxOKHPSM +p1Bl1ZlJT+K3kQkRpy6R/BdXe6URv5m6Kn/mCoVLwi0uPiZ+fTynMfgGhRdr +akyHiJvMKgViblNoM329mulFw4snz8oSiii8MqLqq09cr9ZslcKlsDd/vvko +8bNbb2euVVA4+DWz1Z+4WmQo/eZDCttnCoLiiauihtl51RTyZVW0ZBM/mJl6 +X1hHYanCseZy4nvui85zGyk0tdnuV0tc3rtS8d4rCpND/n3eSszdI9r0qJ3C +KbvFDT3EJU9lT9R0UXhgF8PnI3Hh5o2Cz/sozP0z1PAvcX6u5t2/hyiMefn+ +5QhxrihYt32hUMD70bkfxNnRJrNvh8n7UOPrGyXOnN2f0TdG4eKW08PDxOme +tvBhisK9MUlFX4iv9rt9+DpH4pP4IzFInGpxOmpkgULOA1udTuJLz0LWTyxh +YpSkJd9L4kSNmL9/rWDic2//5EfEcbcve/8RYOISB68XhcQxYplCS9YwcZV4 +V9kV4qiLBRUrJJiYvOXg3nDiiP/KDq6WYWJHZ2KuO3Hoicdza5hMNEySK7Eg +Dh58nim5nolMX66HBvFZyzaUU2HiFt7BwTXEAXW9H+XVmWhntZ9vknzP01u+ +XFDaykSzdnrsNfHJgrENm3WZKBCQkVBM7Bm39KTuThL/wYqJQ8Ru86tFDMyY +aN2hXK1C7Oojed94LxMvTv5tuEDqz36/2u99h5m49OG6yBvExxq0s2zsmJht +KaXnSnx4q5GBrTMT0/w/3lcltlp3KMbdm4lKVh6fHpD6t0xwUvI5zcTvJSHp +QcTmCyda/AKZmNj8R1CHeNfHiDVhEUycvjatX+5Gg25xSfaVK0yslY57Hk32 +W69ccdaOG0zMf3OCj00cdKXw5mQWE4VnDzuOkf1aGZ6fsa+QibKzsWhJrG6T +fU3gMRNH1No6/yP7v+3VzatPaphIeaUW3yI+aZh5xauBibYhXWk7iDmq6alN +LUyM5ZMpiib9Y8PS1OQLQ0zUD4kamiT9pjHoctKWL0wcr5T2jCN2HUtO/PSN +ifTSGn454rzehHiDSSaK8ntnG5J+JVceHfNnGQsze5NW+dmSfmV3LixAmYVS +zuNBQYdJ/XecDZXfzMLIJ9k9Pw+R92Ua+L+OLSzklS0+6k58eYt/sDqw0GtM +rWmvDQ38fD6Bo5YsLDDNPbKC9N8lDx1Pup5hocEF/wEG6d+5qg4+osEs3JmU +UhxM+rtBnp13fRgLzauL8jotSD0lHfWiYlkopKslHWFOw5yLtdtABgun9oxs +azCjYVzY1N66loU23szbk2SedHtRrz1esLAj33GWQVzzfA5Cm1no+6RBfQ+Z +P8lBxbJ33rJQJ1HZJtOAhk0f+AZnv7GwNnPJeRbQ4F3WeixTRB4l0s1FW7fS +8M3iwJFPzvIYeuJIX7oiDe2FKn//cpfHCvU49wtkPj7iWbad30ce499pTPuQ ++Xmx8r6k1ll5bFtiKcRm0rBeVrwnOkEeldT8XZ/K0HB8tMdG6b489tbombmI +kv4fb2/tu1wBswxTluqS+e/9TZnaxKeAkgZ56QsLXJgxnh0ZEVTAu1WM/khy +XljJcznKXVIBHbS6wyJ+cWHT2boKexUF5KdOetqMciHERUHEYr8CHvGMEHR7 +x4W1et9blbIUcMJkQ6NcKRdMfpwx+ayliKmfbGJNzbggtVnmAq+uIsrldZXX +G3Nh1Le+VklfEU1feHpsN+JC6rSgrq+ZIhrXJybKsLkwMF+oumCniKy+kfdV +5Hzly9cnInFRETk+JfZW5HyWvgEHdvcqIrPymu/KDg58d+I9XRG6Hs1lelbO +WnDI/4DY4ujaDTi1u+K2slIpCL9SSKR/bMSu1tSSzJlikIrh7tXSUkbXvGi3 +ybgiuKakLShyXAWzzvM25lOF0CSpv2Xikiq6/Iy5+qusAHSkapPV3qqhUdjt +q3zi+SDAk+PnELEJ543br6el5YFMuKzuIYXNeMMqWv6/iRxYIX/0/r4Xm1Fx +4Kq6jv0tUGVLcM8cU8cWG10jkQ9Z4DsgXGe6SAPli994sIcy4MdE/AGTaxpk +/bN3n6mng7Ha83QTFU0s/eyn+af8KlRPbP9vpkUTc3P1+lE+DbyV1XvaXLag +IMZmuQ5fBvaoc8ehFVr4YL1kyFNOMuxgie/hz9FC6+AtnTlRCbA+LDawdutW +rC3bONYsGAsbXbSfyvdsxXsn6tZ53bkALtVu5ytObUPGyR9Hk15GwtPsDudx +UW1MkNVveLwQBpN3FmbUKrWxJyNpNIAZAk7yxSvS9+ggI7bydoLMWRjfmKJV +PqaDU9L73SqN/eFB3n9DUzHb0bp13aV6li8cNmLidhldPDr3Zi/rqzesOxH9 +ULVGFy2k4jK037qD6Eqvsj0H2Ti8/iPG1LlAnmFI0NghNs5srzxWUu4C6iGJ +hilH2SidE8PpveUC5mN0Z7cDG2X3CnUeCXOBC2+nZp282GhSnpw6xHaBXzmh +BkHhbHyhs/jd/CNn6Nme8ia/mI0jdwQKLJ84gZt/XoYJh4065qMabaVOMM25 +5/KdZuPPLjU4ctMJhKnumc332XgrKOlRYqgTmPFKSz2pYaOZjFShr4ETPO7I +d37TycZDb7MSNjQ5gqnAA5WAbmLa67h5lSN0G7+cFu8lz2dqHg8pcYTJR8Mx +tu/ZuOJBZ+1soiOo3NpU+u83NgYmpFt6WjnC4x79gPgRNob8PlX7fgdZb81+ +UBtjo8gfror9VkdwjfZv85tio8bBe/3BkmS9mgvpYr/Y2F1RLCbJ5wgRc1ed +Hs2x8Ua5q9azeQcQ1CxUPjbPxmP8EZq+Pxzg5olHUwsLbGzUuMGnMuQA/wc/ +Uxp/ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0641622235365775}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQM/8j4f80yss4fwPthvOc798oPANCifwcHQkff+ +oV0LoXwOhyS9lbfympZD+QIOVcumS5z+shrKF3EwL2B/NcV9PZQv4VCiuU7r +97oNUL6Mw2bnP4enyW2E8hUcjsRpJFhLwPhKDpl/dRl/LIepV3FYN//f5mfH +YeapOfi/On3J7+xaKF/DYedhNaPiRpj9Wg4npgccfMi6EsrXcVj2kXu9SuUy +KF/PgQfIW/d+MZRv4JB0I9HnVzXMf4YOpm++H7EKnQflGzmkX98r2sk5C8o3 +duB9cvNptDwsfEwcLG6yvXOYOwnKN3VQzjij8oq1H8o3c0g7eETedW4nlG/u +oOq4g4nrawuUb+HwwHf7G4H/DVC+pcPn8BMxkiHVUL6VA5e3zYKcU6VQvrWD +3wW1dn+rQijfxqGDr1G5kS0byrd1UOCYsDCZPRXKt3NIVt/DstwuwR4A9+uE +SA== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.066873}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0641622235365775}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993913439083282*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"ba26e1aa-d6d6-4ec9-8f62-28b4032610d5"] +}, Open ]], Cell[CellGroupData[{ @@ -8846,18 +14794,72 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.724385516074866`*^-177\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 73, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913439129263*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6fce96e0-095b-48ac-bae5-7d0e0ae76f75"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.401886523348829`*^-181\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 74, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913439137004*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"aa7a362e-ec0d-451a-8aea-9ec4646b234e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2446021195004494`*^-184\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 142, 75, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939134391462727`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"0f639d2b-d939-4c01-90f4-c37b7dc6c8f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913439154708*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"20986ba1-777b-4158-a5b6-b0fea8cb7723"], + +Cell[BoxData["11.613233073918158`"], "Output", + CellChangeTimes->{3.993913472260282*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"720d606d-325e-4fbb-b13f-e7cfe5a7ec42"] }, Open ]], Cell[CellGroupData[{ @@ -8924,27 +14926,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850391956293*^9, - 3.9918503966918755`*^9}},ExpressionUUID->"a3e3d205-e3b4-874a-a36c-\ -53cfa72184b4"], + CellChangeTimes->{{3.991850391956293*^9, 3.9918503966918755`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.263665538678529`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 77, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913472297073*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2e45575c-d7f2-4250-9792-0821d0535693"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.713104930266547`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 78, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913472304844*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"ddfde07e-6b2a-4933-b5b0-fe544ef26938"], -Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.497950888012037`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 79, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913472312031*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"17e1e4da-421b-4936-be90-f0fadd28e2e2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913472317809*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"8ea0b3cf-e6e0-49a5-aa17-ab4a93218fd9"], + +Cell[BoxData["1.6881172130202162`"], "Output", + CellChangeTimes->{3.993913477780637*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"f916b298-4c70-4246-9dc9-247d0b132db7"] }, Open ]], Cell[CellGroupData[{ @@ -8965,8 +15012,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9011,27 +15057,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918504007528324`*^9, - 3.991850403970867*^9}},ExpressionUUID->"6977f025-454e-0e4a-b118-\ -07bad9ba3e82"], + CellChangeTimes->{{3.9918504007528324`*^9, 3.991850403970867*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566a849f-fc85-4d42-a545-a46d44cf7346"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.263665538678529`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 81, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913477817108*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"7a93c4f6-cec3-4af3-bd2d-8758e99e68f1"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.713104930266547`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 82, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939134778251457`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"ec546ecc-62f2-43a7-a662-c581d1968add"], -Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.497950888012037`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 83, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913477832829*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a0600c59-ba65-4f19-8291-834e800beed0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913477840352*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"b27399a5-1019-49da-be1f-17a62292e70d"], + +Cell[BoxData["38.3539489979083`"], "Output", + CellChangeTimes->{3.9939134831564713`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"02934bc0-6844-4305-80f2-75cdcdbf9351"] }, Open ]], Cell[CellGroupData[{ @@ -9052,8 +15143,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9098,27 +15188,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918504078476295`*^9, - 3.9918504110344543`*^9}},ExpressionUUID->"df8ecb01-788a-604d-b773-\ -f29bb610eb30"], + CellChangeTimes->{{3.9918504078476295`*^9, 3.9918504110344543`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.263665538678529`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 85, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939134831979237`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"5c965494-8318-4fca-a343-731df1fe0ef4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.713104930266547`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 86, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99391348320625*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"b83dae3d-b5cb-41c4-86b9-c5cf3f6e9df8"], -Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.497950888012037`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 87, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913483213835*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"80cbc14e-cd38-4508-a9b1-b19239f27488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993913483221726*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"e7775c4d-1aa8-4286-8040-cb3ebf53722b"], + +Cell[BoxData["10.684852347354765`"], "Output", + CellChangeTimes->{3.99391348647617*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"875f088e-43b6-4f40-b283-2399a46cf215"] }, Open ]], Cell[CellGroupData[{ @@ -9127,17 +15262,26 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918504490520267`*^9, - 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ -d2cfa007cfcf"], + CellChangeTimes->{{3.9918504490520267`*^9, 3.991850453720993*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] -}, Open ]] +Cell[BoxData["0.0833898691699272`"], "Output", + CellChangeTimes->{3.993913486509944*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"9ad3121f-0732-45d8-b739-9b541854240f"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"6453683b-e449-47ff-9a62-4d62a1065c45"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +Evaluator->"kernel 5", +WindowSize->{714, 288}, +WindowMargins->{{Automatic, 3}, {3, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" ] @@ -9152,359 +15296,641 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], -Cell[706, 26, 154, 3, 28, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], -Cell[863, 31, 149, 4, 28, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], -Cell[1015, 37, 154, 3, 28, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ -Cell[1194, 44, 1301, 43, 113, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[2498, 89, 178, 3, 32, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[576, 22, 423, 7, 29, "Input",ExpressionUUID->"5340c587-4281-4f64-8ac4-16edcffc7a6b"], +Cell[1002, 31, 419, 6, 33, "Output",ExpressionUUID->"2ff77687-126d-4521-80b2-40b16360f5c0"] }, Open ]], Cell[CellGroupData[{ -Cell[2713, 97, 908, 31, 56, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[3624, 130, 177, 3, 32, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[1458, 42, 246, 4, 29, "Input",ExpressionUUID->"d0e846b6-f624-4175-b323-d6355d021d29"], +Cell[1707, 48, 422, 6, 33, "Output",ExpressionUUID->"f316f4c4-3808-4355-9650-eedc1ad43cad"] }, Open ]], Cell[CellGroupData[{ -Cell[3838, 138, 889, 30, 56, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[4730, 170, 178, 3, 32, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[2166, 59, 220, 4, 29, "Input",ExpressionUUID->"08c25d21-fb3b-4b50-ab9f-45ef4a0fb52e"], +Cell[2389, 65, 447, 7, 33, "Output",ExpressionUUID->"5c9fd1de-a322-47ca-bb52-4264d504a153"] }, Open ]], Cell[CellGroupData[{ -Cell[4945, 178, 558, 19, 52, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[5506, 199, 172, 3, 32, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[2873, 77, 175, 3, 29, "Input",ExpressionUUID->"39cc0c08-1617-4166-9ae0-4af40882f8ad"], +Cell[3051, 82, 421, 6, 33, "Output",ExpressionUUID->"7f38a228-cc1d-4643-a1b4-91201e39cdc4"] }, Open ]], Cell[CellGroupData[{ -Cell[5715, 207, 651, 22, 52, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[6369, 231, 167, 3, 32, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[3509, 93, 257, 7, 42, "Input",ExpressionUUID->"060a7784-7710-4bff-a58c-e56e9bdc1822"], +Cell[3769, 102, 434, 6, 33, "Output",ExpressionUUID->"8c68cfa5-c9bb-4650-b311-fada6f055089"] }, Open ]], Cell[CellGroupData[{ -Cell[6573, 239, 170, 5, 56, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[6746, 246, 172, 3, 32, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[4240, 113, 131, 2, 29, "Input",ExpressionUUID->"a9c7fc5d-6fac-40d9-8508-88018afcc1bc"], +Cell[4374, 117, 422, 6, 33, "Output",ExpressionUUID->"3d9c7b67-f7a8-4890-8669-3cc7b5800a83"] }, Open ]], Cell[CellGroupData[{ -Cell[6955, 254, 170, 5, 55, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[7128, 261, 173, 3, 70, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[4833, 128, 276, 6, 29, "Input",ExpressionUUID->"130a537a-a89c-4ba1-8509-3ff94bb09943"], +Cell[5112, 136, 431, 6, 33, "Output",ExpressionUUID->"0b8f8115-f662-46ed-b466-cff706dad83b"] }, Open ]], Cell[CellGroupData[{ -Cell[7338, 269, 181, 5, 70, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[7522, 276, 171, 3, 70, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[5580, 147, 257, 7, 29, "Input",ExpressionUUID->"59c8805a-1cc3-4b74-a032-2a60d835e26e"], +Cell[5840, 156, 428, 6, 33, "Output",ExpressionUUID->"62cb075f-9772-4640-860d-178966e8f448"] }, Open ]], Cell[CellGroupData[{ -Cell[7730, 284, 181, 5, 70, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[7914, 291, 172, 3, 70, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[6305, 167, 226, 4, 29, "Input",ExpressionUUID->"a37b47c0-4433-4ca3-a9b3-3e037b74a968"], +Cell[6534, 173, 398, 6, 33, "Output",ExpressionUUID->"62afb091-1196-4890-b9a5-0934ba660e50"] }, Open ]], Cell[CellGroupData[{ -Cell[8123, 299, 6055, 185, 70, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[14181, 486, 174, 3, 70, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[6969, 184, 226, 4, 29, "Input",ExpressionUUID->"192b8a46-ce9e-467d-b141-21a46d717371"], +Cell[7198, 190, 393, 6, 33, "Output",ExpressionUUID->"0d8d401f-aead-4e10-8b63-4c754ff33d00"] }, Open ]], Cell[CellGroupData[{ -Cell[14392, 494, 368, 9, 70, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[14763, 505, 172, 3, 70, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[7628, 201, 129, 2, 29, "Input",ExpressionUUID->"7287cc68-46a7-4f33-8bd1-9e1836437c9d"], +Cell[7760, 205, 418, 6, 33, "Output",ExpressionUUID->"5584e9e1-dbf1-4433-ad3e-1e4ba4b567cb"] }, Open ]], Cell[CellGroupData[{ -Cell[14972, 513, 6122, 187, 70, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[21097, 702, 175, 3, 70, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[8215, 216, 129, 2, 29, "Input",ExpressionUUID->"a9d7f555-b670-49c2-baaa-bca7623d7031"], +Cell[8347, 220, 416, 6, 33, "Output",ExpressionUUID->"d7162ac2-53b5-4cce-8a6c-b442b4a422cf"] }, Open ]], Cell[CellGroupData[{ -Cell[21309, 710, 368, 9, 70, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[21680, 721, 172, 3, 70, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[8800, 231, 557, 19, 79, "Input",ExpressionUUID->"11309400-bcac-470f-af41-a39c3a7614e0"], +Cell[9360, 252, 435, 6, 33, "Output",ExpressionUUID->"8fea9113-32dd-4c09-8982-391eee7fe789"] }, Open ]], Cell[CellGroupData[{ -Cell[21889, 729, 2663, 88, 70, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[24555, 819, 171, 3, 70, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[9832, 263, 557, 19, 79, "Input",ExpressionUUID->"3d54cba6-f8f1-4449-8119-70e4d6ce7801"], +Cell[10392, 284, 435, 6, 33, "Output",ExpressionUUID->"8f92645b-c8b9-4710-8b36-6ee6c8115439"] }, Open ]], Cell[CellGroupData[{ -Cell[24763, 827, 2603, 85, 70, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[27369, 914, 173, 3, 70, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[10864, 295, 1492, 48, 79, "Input",ExpressionUUID->"f6cb74cb-a087-4212-a782-4f230b89058c"], +Cell[12359, 345, 432, 6, 33, "Output",ExpressionUUID->"78b5cdd2-53ca-4e6a-b5e0-c8816f50ad42"] }, Open ]], Cell[CellGroupData[{ -Cell[27579, 922, 3712, 118, 70, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[31294, 1042, 174, 3, 70, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] -}, Open ]], -Cell[31483, 1048, 138, 3, 70, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], -Cell[CellGroupData[{ -Cell[31646, 1055, 2054, 59, 70, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], -Cell[33703, 1116, 559, 12, 70, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], -Cell[34265, 1130, 560, 12, 70, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], -Cell[34828, 1144, 565, 12, 70, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], -Cell[35396, 1158, 456, 10, 70, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], -Cell[35855, 1170, 170, 3, 70, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[12828, 356, 1331, 44, 79, "Input",ExpressionUUID->"7d00126d-ffae-4c1b-be33-cd07ef70d489"], +Cell[14162, 402, 448, 7, 33, "Output",ExpressionUUID->"9cc60c8b-e4b6-4224-be6c-b8ab7fe1148a"] }, Open ]], Cell[CellGroupData[{ -Cell[36062, 1178, 2054, 59, 70, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], -Cell[38119, 1239, 559, 12, 70, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], -Cell[38681, 1253, 559, 12, 70, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], -Cell[39243, 1267, 565, 12, 70, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], -Cell[39811, 1281, 458, 10, 70, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], -Cell[40272, 1293, 170, 3, 70, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[14647, 414, 1331, 44, 79, "Input",ExpressionUUID->"d9347f9e-d767-4990-98b7-c1f58c909844"], +Cell[15981, 460, 451, 7, 33, "Output",ExpressionUUID->"e2e69391-b57e-4534-b97d-86d86f800f19"] }, Open ]], Cell[CellGroupData[{ -Cell[40479, 1301, 1938, 53, 70, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], -Cell[42420, 1356, 20196, 379, 70, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +Cell[16469, 472, 1492, 48, 79, "Input",ExpressionUUID->"0bea49d8-9dad-44de-926b-6b6e61f2f2ae"], +Cell[17964, 522, 428, 6, 33, "Output",ExpressionUUID->"d0dcb8c2-1317-4942-8551-818bda097161"] }, Open ]], Cell[CellGroupData[{ -Cell[62653, 1740, 2094, 60, 70, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], -Cell[64750, 1802, 503, 11, 70, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], -Cell[65256, 1815, 505, 11, 70, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], -Cell[65764, 1828, 506, 11, 70, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], -Cell[66273, 1841, 455, 10, 70, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], -Cell[66731, 1853, 55770, 961, 70, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] -}, Open ]], -Cell[122516, 2817, 232, 6, 70, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], -Cell[122751, 2825, 209, 5, 70, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], -Cell[CellGroupData[{ -Cell[122985, 2834, 217, 7, 70, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[123205, 2843, 173, 3, 70, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +Cell[18429, 533, 131, 2, 29, "Input",ExpressionUUID->"721a9cb2-7d79-4947-845b-5db92e48f0eb"], +Cell[18563, 537, 419, 6, 33, "Output",ExpressionUUID->"1978b12a-dcd4-4231-bed6-41d6e7fd155f"] }, Open ]], Cell[CellGroupData[{ -Cell[123415, 2851, 1814, 53, 70, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], -Cell[125232, 2906, 506, 11, 70, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], -Cell[125741, 2919, 508, 11, 70, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], -Cell[126252, 2932, 509, 11, 70, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], -Cell[126764, 2945, 458, 10, 70, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], -Cell[127225, 2957, 24818, 454, 70, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +Cell[19019, 548, 133, 2, 29, "Input",ExpressionUUID->"d7b5a0ec-27a4-44a4-8443-f624c1532842"], +Cell[19155, 552, 419, 6, 33, "Output",ExpressionUUID->"e444f26b-8200-4cb4-9680-82fd188b97f1"] }, Open ]], Cell[CellGroupData[{ -Cell[152080, 3416, 1616, 48, 70, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], -Cell[153699, 3466, 582, 12, 70, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], -Cell[154284, 3480, 588, 12, 70, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], -Cell[154875, 3494, 590, 12, 70, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], -Cell[155468, 3508, 458, 10, 70, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], -Cell[155929, 3520, 171, 3, 70, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +Cell[19611, 563, 134, 2, 29, "Input",ExpressionUUID->"7138210b-d879-4fbf-9273-3b3a2f3f864f"], +Cell[19748, 567, 426, 6, 33, "Output",ExpressionUUID->"6a9987c4-ad20-4a34-9f5d-b7f7dc0588f4"] }, Open ]], Cell[CellGroupData[{ -Cell[156137, 3528, 2251, 64, 70, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], -Cell[158391, 3594, 557, 12, 70, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], -Cell[158951, 3608, 560, 12, 70, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], -Cell[159514, 3622, 565, 12, 70, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], -Cell[160082, 3636, 458, 10, 70, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], -Cell[160543, 3648, 172, 3, 70, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +Cell[20211, 578, 219, 4, 29, "Input",ExpressionUUID->"b7ce4ab0-32f1-4899-a6e1-2210f7465553"], +Cell[20433, 584, 430, 7, 33, "Output",ExpressionUUID->"b3fd51e8-9b66-40dc-a857-9d6018470b90"] }, Open ]], Cell[CellGroupData[{ -Cell[160752, 3656, 2218, 64, 70, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], -Cell[162973, 3722, 559, 12, 70, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], -Cell[163535, 3736, 562, 12, 70, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], -Cell[164100, 3750, 563, 12, 70, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], -Cell[164666, 3764, 458, 10, 70, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], -Cell[165127, 3776, 170, 3, 70, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +Cell[20900, 596, 134, 2, 29, "Input",ExpressionUUID->"16c419c7-db80-4aec-b764-93a2c8a0664d"], +Cell[21037, 600, 420, 6, 33, "Output",ExpressionUUID->"a479a4fa-9749-4010-9d84-06b245fbcb96"] }, Open ]], Cell[CellGroupData[{ -Cell[165334, 3784, 2221, 64, 70, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], -Cell[167558, 3850, 559, 12, 70, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], -Cell[168120, 3864, 562, 12, 70, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], -Cell[168685, 3878, 563, 12, 70, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], -Cell[169251, 3892, 458, 10, 70, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], -Cell[169712, 3904, 171, 3, 70, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +Cell[21494, 611, 326, 5, 29, "Input",ExpressionUUID->"c7054bce-197b-43ab-b438-c3dec534552d"], +Cell[21823, 618, 391, 6, 33, "Output",ExpressionUUID->"dd6290e5-a9bd-479a-8a57-a03a852e3825"] }, Open ]], Cell[CellGroupData[{ -Cell[169920, 3912, 213, 6, 70, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], -Cell[170136, 3920, 173, 3, 70, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] -}, Open ]], -Cell[170324, 3926, 245, 5, 70, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], -Cell[CellGroupData[{ -Cell[170594, 3935, 558, 19, 70, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[171155, 3956, 170, 3, 70, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +Cell[22251, 629, 295, 5, 29, "Input",ExpressionUUID->"04d9f85b-535c-47e3-8d88-94ebde8d963d"], +Cell[22549, 636, 419, 6, 33, "Output",ExpressionUUID->"fb4b803d-fdec-4be8-ab37-76e999ba03f6"] }, Open ]], Cell[CellGroupData[{ -Cell[171362, 3964, 170, 5, 70, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[171535, 3971, 173, 3, 70, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +Cell[23005, 647, 219, 4, 29, "Input",ExpressionUUID->"1254b120-e55a-45ef-9884-b2831508b52e"], +Cell[23227, 653, 419, 6, 33, "Output",ExpressionUUID->"18954e4f-8ebd-40e9-b0c6-f4e7389baae3"] }, Open ]], Cell[CellGroupData[{ -Cell[171745, 3979, 181, 5, 70, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[171929, 3986, 171, 3, 70, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +Cell[23683, 664, 350, 10, 42, "Input",ExpressionUUID->"3e0fdee8-7b0b-49db-b8d9-51923383814f"], +Cell[24036, 676, 437, 6, 33, "Output",ExpressionUUID->"ba3efe79-0215-4f83-aa02-94625f8226dd"] }, Open ]], Cell[CellGroupData[{ -Cell[172137, 3994, 6055, 185, 70, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[178195, 4181, 172, 3, 70, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +Cell[24510, 687, 350, 10, 42, "Input",ExpressionUUID->"d87c0776-58cc-4eb2-b035-74f07a5a5065"], +Cell[24863, 699, 446, 7, 33, "Output",ExpressionUUID->"7243a7f6-a15b-461c-ae4b-ec0b170641d6"] }, Open ]], Cell[CellGroupData[{ -Cell[178404, 4189, 368, 9, 70, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[178775, 4200, 172, 3, 70, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +Cell[25346, 711, 994, 26, 81, "Input",ExpressionUUID->"8296cca0-4151-4907-94af-7ec80bd030f4"], +Cell[26343, 739, 433, 6, 33, "Output",ExpressionUUID->"b40fec3e-362d-4d7c-a829-2553b5dcfc39"] }, Open ]], Cell[CellGroupData[{ -Cell[178984, 4208, 6122, 187, 70, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[185109, 4397, 173, 3, 70, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +Cell[26813, 750, 199, 3, 29, "Input",ExpressionUUID->"39168759-e064-4bd3-a5b1-205d78bd0fce"], +Cell[27015, 755, 418, 6, 33, "Output",ExpressionUUID->"96022a23-09c0-41cc-b2b1-4121f2f04875"] }, Open ]], Cell[CellGroupData[{ -Cell[185319, 4405, 368, 9, 70, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[185690, 4416, 170, 3, 70, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +Cell[27470, 766, 329, 5, 29, "Input",ExpressionUUID->"69535cf0-f0f6-4bf3-84ca-1743cc4a4c8c"], +Cell[27802, 773, 398, 6, 33, "Output",ExpressionUUID->"feadcbdc-b88a-4dd3-a6fb-32cebc338291"] +}, Open ]], +Cell[28215, 782, 173, 2, 29, "Input",ExpressionUUID->"f48bc72c-4aeb-4787-9181-44df82eae805"], +Cell[CellGroupData[{ +Cell[28413, 788, 329, 5, 29, "Input",ExpressionUUID->"0300626d-d331-48d3-ab83-79f6b6e24679"], +Cell[28745, 795, 398, 6, 33, "Output",ExpressionUUID->"4917dc24-c690-4fbc-bb0d-e05a70c206d6"] +}, Open ]], +Cell[29158, 804, 173, 2, 29, "Input",ExpressionUUID->"6826f0d7-bcba-4732-a484-6f23902cf789"], +Cell[CellGroupData[{ +Cell[29356, 810, 330, 5, 29, "Input",ExpressionUUID->"77d50aa9-02a8-4129-8701-b552267d9f30"], +Cell[29689, 817, 395, 6, 33, "Output",ExpressionUUID->"2b502167-8bb4-423e-8d65-ae2ee1b6d043"] +}, Open ]], +Cell[30099, 826, 173, 2, 29, "Input",ExpressionUUID->"26176309-4237-4dc0-80b7-b19713fab449"], +Cell[CellGroupData[{ +Cell[30297, 832, 352, 5, 29, "Input",ExpressionUUID->"a1d095fc-a7ab-4b42-9466-8a83793015b2"], +Cell[30652, 839, 397, 6, 33, "Output",ExpressionUUID->"c19da86d-d6fe-4e93-aa04-cd748dc8b329"] +}, Open ]], +Cell[31064, 848, 171, 2, 29, "Input",ExpressionUUID->"7b906e7f-cb0d-4509-9cf1-4550d1690bec"], +Cell[CellGroupData[{ +Cell[31260, 854, 300, 5, 29, "Input",ExpressionUUID->"a5c601e1-485e-4015-ad55-6d795586d5f3"], +Cell[31563, 861, 396, 6, 33, "Output",ExpressionUUID->"793943a0-0373-4888-bb56-ff875a0c3776"] +}, Open ]], +Cell[31974, 870, 171, 2, 29, "Input",ExpressionUUID->"cd52a4da-835d-459e-9425-d8083f200665"], +Cell[CellGroupData[{ +Cell[32170, 876, 304, 5, 29, "Input",ExpressionUUID->"e009ccc2-a0cc-4eb5-a091-f5ec24a4c522"], +Cell[32477, 883, 400, 6, 33, "Output",ExpressionUUID->"f0307285-9395-47ec-a8cf-1cd3c87798b1"] +}, Open ]], +Cell[32892, 892, 173, 2, 29, "Input",ExpressionUUID->"d0da4006-9c85-453f-8b23-0f527d36b9a7"], +Cell[CellGroupData[{ +Cell[33090, 898, 307, 5, 29, "Input",ExpressionUUID->"6ac172fd-98be-495c-985a-3f69083eb984"], +Cell[33400, 905, 394, 6, 33, "Output",ExpressionUUID->"cab174a2-a947-452f-9066-2a33a6bd277a"] +}, Open ]], +Cell[33809, 914, 172, 2, 29, "Input",ExpressionUUID->"cbd47d23-3d3b-40f7-87df-6ea6067ee442"], +Cell[CellGroupData[{ +Cell[34006, 920, 274, 4, 29, "Input",ExpressionUUID->"50e44c9c-f0e8-46fa-88c9-46db7a60db27"], +Cell[34283, 926, 398, 6, 33, "Output",ExpressionUUID->"9b2efd9e-d5b0-443e-8ee2-ecda317930d8"] +}, Open ]], +Cell[34696, 935, 175, 2, 29, "Input",ExpressionUUID->"3f8d9290-7219-491b-9983-c0ea5d20b6c1"], +Cell[CellGroupData[{ +Cell[34896, 941, 19809, 485, 1844, "Input",ExpressionUUID->"9111ddf9-f2a6-49e5-8c60-614d7057495a"], +Cell[54708, 1428, 449, 7, 33, "Output",ExpressionUUID->"4ff8ba89-cf79-4188-a523-efcca094f28d"] }, Open ]], Cell[CellGroupData[{ -Cell[185897, 4424, 2663, 88, 70, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[188563, 4514, 171, 3, 70, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +Cell[55194, 1440, 19748, 489, 1981, "Input",ExpressionUUID->"644cfb19-2ac9-4724-86c5-9aa2ea38c02b"], +Cell[74945, 1931, 430, 6, 33, "Output",ExpressionUUID->"c872a6ca-b1d2-48fb-a63c-2599b3edd949"] }, Open ]], Cell[CellGroupData[{ -Cell[188771, 4522, 2603, 85, 70, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[191377, 4609, 173, 3, 70, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +Cell[75412, 1942, 19748, 483, 1970, "Input",ExpressionUUID->"d18234de-a68e-4590-8566-b12ca9abced7"], +Cell[95163, 2427, 448, 7, 33, "Output",ExpressionUUID->"dacd1ee0-7e49-4ba3-8e78-d7c8493d27fc"] }, Open ]], Cell[CellGroupData[{ -Cell[191587, 4617, 3712, 118, 70, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[195302, 4737, 174, 3, 70, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +Cell[95648, 2439, 22534, 553, 2217, "Input",ExpressionUUID->"145c01be-cc1a-43b6-be16-bced994a4bad"], +Cell[118185, 2994, 455, 7, 33, "Output",ExpressionUUID->"e1af7bb9-4fac-4833-a665-bd876bf16cc1"] }, Open ]], Cell[CellGroupData[{ -Cell[195513, 4745, 2049, 58, 70, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], -Cell[197565, 4805, 579, 12, 70, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], -Cell[198147, 4819, 582, 12, 70, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], -Cell[198732, 4833, 584, 12, 70, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], -Cell[199319, 4847, 458, 10, 70, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], -Cell[199780, 4859, 172, 3, 70, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +Cell[118677, 3006, 22535, 553, 2254, "Input",ExpressionUUID->"e0affe0f-5046-4218-83b8-9755a2510908"], +Cell[141215, 3561, 457, 7, 33, "Output",ExpressionUUID->"1611397b-532a-42c7-94c5-0f354014ef75"] }, Open ]], Cell[CellGroupData[{ -Cell[199989, 4867, 2054, 59, 70, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], -Cell[202046, 4928, 577, 12, 70, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], -Cell[202626, 4942, 580, 12, 70, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], -Cell[203209, 4956, 583, 12, 70, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], -Cell[203795, 4970, 456, 10, 70, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], -Cell[204254, 4982, 171, 3, 70, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +Cell[141709, 3573, 25491, 626, 2501, "Input",ExpressionUUID->"a706720d-ff09-4d2c-87be-8b25d85bd2a0"], +Cell[167203, 4201, 448, 7, 33, "Output",ExpressionUUID->"dc8422cc-d5e9-4e9a-b593-3ae2a348f82b"] }, Open ]], Cell[CellGroupData[{ -Cell[204462, 4990, 2030, 55, 70, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], -Cell[206495, 5047, 20493, 384, 70, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +Cell[167688, 4213, 130, 2, 29, "Input",ExpressionUUID->"96aa1cf6-83c6-4b55-9959-d83a24ba74cc"], +Cell[167821, 4217, 412, 6, 33, "Output",ExpressionUUID->"2c4e478d-d257-4fc0-b91a-ef13142d306c"] }, Open ]], Cell[CellGroupData[{ -Cell[227025, 5436, 2120, 60, 70, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], -Cell[229148, 5498, 501, 11, 70, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], -Cell[229652, 5511, 504, 11, 70, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], -Cell[230159, 5524, 508, 11, 70, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], -Cell[230670, 5537, 456, 10, 70, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], -Cell[231129, 5549, 31462, 562, 70, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] -}, Open ]], -Cell[262606, 6114, 209, 5, 70, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], -Cell[CellGroupData[{ -Cell[262840, 6123, 1616, 48, 70, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], -Cell[264459, 6173, 596, 12, 70, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], -Cell[265058, 6187, 602, 12, 70, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], -Cell[265663, 6201, 605, 12, 70, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], -Cell[266271, 6215, 458, 10, 70, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], -Cell[266732, 6227, 171, 3, 70, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +Cell[168270, 4228, 130, 2, 29, "Input",ExpressionUUID->"2c4d9d2b-aed8-48d9-a787-eff93a54c3ca"], +Cell[168403, 4232, 415, 6, 33, "Output",ExpressionUUID->"e0b3db66-f06b-4ee8-a5a4-ec30fcbc66d7"] }, Open ]], Cell[CellGroupData[{ -Cell[266940, 6235, 2251, 64, 70, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], -Cell[269194, 6301, 577, 12, 70, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], -Cell[269774, 6315, 580, 12, 70, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], -Cell[270357, 6329, 586, 12, 70, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], -Cell[270946, 6343, 458, 10, 70, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], -Cell[271407, 6355, 173, 3, 70, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +Cell[168855, 4243, 1144, 39, 107, "Input",ExpressionUUID->"df85a411-6f10-4042-9ca8-4ca1eddad444"], +Cell[170002, 4284, 432, 6, 33, "Output",ExpressionUUID->"b5d5d469-1c62-4a57-9b6b-0c60143d0d79"] }, Open ]], Cell[CellGroupData[{ -Cell[271617, 6363, 2219, 64, 70, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], -Cell[273839, 6429, 579, 12, 70, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], -Cell[274421, 6443, 580, 12, 70, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], -Cell[275004, 6457, 586, 12, 70, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], -Cell[275593, 6471, 458, 10, 70, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], -Cell[276054, 6483, 171, 3, 70, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +Cell[170471, 4295, 1041, 35, 107, "Input",ExpressionUUID->"0a73e903-1d5d-4e3d-93cc-297f73877f60"], +Cell[171515, 4332, 444, 7, 33, "Output",ExpressionUUID->"03bf60ea-c17a-44b7-91c9-a96c062d846f"] }, Open ]], Cell[CellGroupData[{ -Cell[276262, 6491, 2219, 64, 70, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], -Cell[278484, 6557, 576, 12, 70, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], -Cell[279063, 6571, 580, 12, 70, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], -Cell[279646, 6585, 584, 12, 70, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], -Cell[280233, 6599, 458, 10, 70, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], -Cell[280694, 6611, 173, 3, 70, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +Cell[171996, 4344, 1144, 39, 107, "Input",ExpressionUUID->"48895cbc-551f-4668-a114-4559d44de445"], +Cell[173143, 4385, 440, 6, 33, "Output",ExpressionUUID->"86893a08-494d-49b6-936e-4ebf64bfa200"] }, Open ]], Cell[CellGroupData[{ -Cell[280904, 6619, 212, 6, 70, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], -Cell[281119, 6627, 172, 3, 70, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] -}, Open ]], -Cell[281306, 6633, 244, 5, 70, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], -Cell[CellGroupData[{ -Cell[281575, 6642, 558, 19, 70, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[282136, 6663, 171, 3, 70, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +Cell[173620, 4396, 108, 1, 29, "Input",ExpressionUUID->"73cb464b-2ca0-4ca0-875b-09b11d3e412a"], +Cell[173731, 4399, 435, 6, 33, "Output",ExpressionUUID->"14c7f59d-350d-4ff2-8b6e-e79f6d2c4381"] }, Open ]], Cell[CellGroupData[{ -Cell[282344, 6671, 170, 5, 70, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[282517, 6678, 171, 3, 70, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +Cell[174203, 4410, 108, 1, 29, "Input",ExpressionUUID->"d5f885d9-7a84-40c6-8191-3198b8fa1a35"], +Cell[174314, 4413, 449, 7, 33, "Output",ExpressionUUID->"a7e9c4b9-b7bb-4ca4-b089-e562a25ffefd"] }, Open ]], Cell[CellGroupData[{ -Cell[282725, 6686, 181, 5, 70, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[282909, 6693, 173, 3, 70, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +Cell[174800, 4425, 108, 1, 29, "Input",ExpressionUUID->"5064c015-765e-47a7-9341-bf218f3be58a"], +Cell[174911, 4428, 453, 7, 33, "Output",ExpressionUUID->"6a5edb87-6796-4994-90d8-5c61dd87722b"] }, Open ]], Cell[CellGroupData[{ -Cell[283119, 6701, 6055, 185, 70, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[289177, 6888, 173, 3, 70, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +Cell[175401, 4440, 108, 1, 29, "Input",ExpressionUUID->"7a4306c0-6e79-4ffd-aa2b-196d9d9aea0b"], +Cell[175512, 4443, 434, 6, 33, "Output",ExpressionUUID->"1745283d-7291-4687-b179-73118e532961"] }, Open ]], Cell[CellGroupData[{ -Cell[289387, 6896, 368, 9, 70, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[289758, 6907, 172, 3, 70, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +Cell[175983, 4454, 107, 1, 29, "Input",ExpressionUUID->"045d038a-0bc4-48dd-b8af-cf47a3cc1abe"], +Cell[176093, 4457, 434, 6, 33, "Output",ExpressionUUID->"248ba986-aaad-45d1-a498-0ba51f0dddc9"] }, Open ]], Cell[CellGroupData[{ -Cell[289967, 6915, 6122, 187, 70, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[296092, 7104, 173, 3, 70, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +Cell[176564, 4468, 107, 1, 29, "Input",ExpressionUUID->"567dfeaa-6c6d-4c8e-922d-e88f873917d2"], +Cell[176674, 4471, 431, 6, 33, "Output",ExpressionUUID->"eee27ffd-1b64-4da9-8057-94ea600424af"] }, Open ]], Cell[CellGroupData[{ -Cell[296302, 7112, 368, 9, 70, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[296673, 7123, 172, 3, 70, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +Cell[177142, 4482, 497, 16, 55, "Input",ExpressionUUID->"6a0ba710-6fc5-49fa-89ea-1aea56b36a3b"], +Cell[177642, 4500, 448, 7, 33, "Output",ExpressionUUID->"53851cdf-cc95-4a81-9fac-1b691aa96f65"] }, Open ]], Cell[CellGroupData[{ -Cell[296882, 7131, 2663, 88, 70, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[299548, 7221, 173, 3, 70, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +Cell[178127, 4512, 497, 16, 55, "Input",ExpressionUUID->"94fafa2f-cb34-4110-9bcb-cad2e89ba091"], +Cell[178627, 4530, 445, 7, 33, "Output",ExpressionUUID->"bf1a0f1f-ecc7-42db-acca-9f31d559799f"] }, Open ]], Cell[CellGroupData[{ -Cell[299758, 7229, 2603, 85, 70, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[302364, 7316, 171, 3, 70, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +Cell[179109, 4542, 1788, 60, 183, "Input",ExpressionUUID->"768f017f-12f6-4d51-9fa0-7726c4bcaa15"], +Cell[180900, 4604, 432, 6, 33, "Output",ExpressionUUID->"0876a694-86ec-4c4e-962b-51412f329ea1"] }, Open ]], Cell[CellGroupData[{ -Cell[302572, 7324, 3712, 118, 70, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[306287, 7444, 174, 3, 70, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +Cell[181369, 4615, 1101, 36, 131, "Input",ExpressionUUID->"f37944e3-e08e-42c3-93bb-55ba2aa65976"], +Cell[182473, 4653, 448, 7, 33, "Output",ExpressionUUID->"b7916e35-f77b-4846-a227-56723c75d258"] }, Open ]], Cell[CellGroupData[{ -Cell[306498, 7452, 2054, 59, 70, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], -Cell[308555, 7513, 574, 12, 70, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], -Cell[309132, 7527, 580, 12, 70, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], -Cell[309715, 7541, 580, 12, 70, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], -Cell[310298, 7555, 456, 10, 70, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], -Cell[310757, 7567, 172, 3, 70, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +Cell[182958, 4665, 1818, 61, 160, "Input",ExpressionUUID->"fa1baf32-7832-4a1f-b77f-62d7239b3c3c"], +Cell[184779, 4728, 434, 6, 33, "Output",ExpressionUUID->"8f995499-97da-474e-8d87-84d5591275b5"] }, Open ]], Cell[CellGroupData[{ -Cell[310966, 7575, 2054, 59, 70, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], -Cell[313023, 7636, 576, 12, 70, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], -Cell[313602, 7650, 577, 12, 70, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], -Cell[314182, 7664, 582, 12, 70, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], -Cell[314767, 7678, 458, 10, 70, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], -Cell[315228, 7690, 172, 3, 70, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +Cell[185250, 4739, 1631, 53, 162, "Input",ExpressionUUID->"d095eabe-1a14-42af-ac8c-650159f60880"], +Cell[186884, 4794, 431, 6, 33, "Output",ExpressionUUID->"13722f58-d3d8-4fca-b758-a5cf2126b35a"] }, Open ]], Cell[CellGroupData[{ -Cell[315437, 7698, 2028, 55, 70, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], -Cell[317468, 7755, 20021, 378, 70, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +Cell[187352, 4805, 1631, 53, 162, "Input",ExpressionUUID->"5931f665-0212-404b-a9fd-a1836443f4c7"], +Cell[188986, 4860, 431, 6, 33, "Output",ExpressionUUID->"8742e682-ce45-4a66-aaa2-ee9c276ce0a1"] }, Open ]], Cell[CellGroupData[{ -Cell[337526, 8138, 2146, 61, 70, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], -Cell[339675, 8201, 502, 11, 70, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], -Cell[340180, 8214, 506, 11, 70, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], -Cell[340689, 8227, 508, 11, 70, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], -Cell[341200, 8240, 456, 10, 70, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], -Cell[341659, 8252, 30015, 538, 70, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +Cell[189454, 4871, 230, 4, 29, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[189687, 4877, 156, 2, 33, "Output",ExpressionUUID->"e3e4a6c4-a3b3-427c-9a50-d68e8a1f7c20"] }, Open ]], -Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[189858, 4882, 173, 2, 29, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], Cell[CellGroupData[{ -Cell[371923, 8802, 1590, 47, 70, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], -Cell[373516, 8851, 342, 6, 70, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], -Cell[373861, 8859, 101, 0, 70, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[190056, 4888, 228, 4, 29, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[190287, 4894, 158, 2, 33, "Output",ExpressionUUID->"8fcd0982-58af-41c6-9a1c-179b00570a3d"] +}, Open ]], +Cell[190460, 4899, 173, 2, 29, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[190658, 4905, 1297, 42, 111, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[191958, 4949, 195, 2, 33, "Output",ExpressionUUID->"e1888170-e28e-4003-b74c-8d497f9d1c16"] }, Open ]], Cell[CellGroupData[{ -Cell[373999, 8864, 2249, 64, 70, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], -Cell[376251, 8930, 342, 6, 70, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], -Cell[376596, 8938, 342, 6, 70, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], -Cell[376941, 8946, 101, 0, 70, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[192190, 4956, 927, 30, 96, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[193120, 4988, 198, 2, 33, "Output",ExpressionUUID->"78ee89a4-569b-4189-a96c-b57d8156a57f"] }, Open ]], Cell[CellGroupData[{ -Cell[377079, 8951, 2221, 64, 70, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], -Cell[379303, 9017, 342, 6, 70, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], -Cell[379648, 9025, 342, 6, 70, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], -Cell[379993, 9033, 100, 0, 70, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[193355, 4995, 908, 29, 55, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[194266, 5026, 195, 2, 33, "Output",ExpressionUUID->"7c141914-b00d-4538-b329-763a7da61522"] }, Open ]], Cell[CellGroupData[{ -Cell[380130, 9038, 2223, 64, 70, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], -Cell[382356, 9104, 342, 6, 70, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], -Cell[382701, 9112, 342, 6, 70, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], -Cell[383046, 9120, 101, 0, 70, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[194498, 5033, 554, 18, 51, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[195055, 5053, 191, 2, 33, "Output",ExpressionUUID->"a9468761-a43c-4c9c-85e6-9751630c2760"] }, Open ]], Cell[CellGroupData[{ -Cell[383184, 9125, 213, 6, 70, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[383400, 9133, 102, 0, 70, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] -}, Open ]] +Cell[195283, 5060, 647, 21, 51, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[195933, 5083, 190, 2, 33, "Output",ExpressionUUID->"9050ae96-7402-4e5f-bedc-f8add3abbc1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196160, 5090, 166, 4, 55, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[196329, 5096, 192, 2, 33, "Output",ExpressionUUID->"e411e238-3a34-412e-8148-74adc1584ba6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196558, 5103, 166, 4, 54, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[196727, 5109, 190, 2, 33, "Output",ExpressionUUID->"d5908411-d1f1-4833-be44-5cc9a7b80907"] +}, Open ]], +Cell[CellGroupData[{ +Cell[196954, 5116, 177, 4, 43, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[197134, 5122, 191, 2, 33, "Output",ExpressionUUID->"13c529cb-6d29-4e8a-83d9-9b0aec974e9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197362, 5129, 177, 4, 43, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[197542, 5135, 190, 2, 33, "Output",ExpressionUUID->"3a303b3f-8765-46a5-be66-86e7dc0e589b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[197769, 5142, 6051, 184, 474, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[203823, 5328, 194, 2, 33, "Output",ExpressionUUID->"7bafc6ea-457b-4c21-85ab-1539fb266eef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204054, 5335, 364, 8, 41, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[204421, 5345, 193, 2, 33, "Output",ExpressionUUID->"818510c7-70d2-4476-8ab6-6e092ef30694"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204651, 5352, 6118, 186, 474, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[210772, 5540, 193, 2, 33, "Output",ExpressionUUID->"00dabf05-a61f-4385-a1ba-cb9cc0184da4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211002, 5547, 364, 8, 41, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[211369, 5557, 192, 2, 33, "Output",ExpressionUUID->"026f6c10-de57-4902-ba20-9da41c4f2df8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211598, 5564, 2659, 87, 285, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[214260, 5653, 189, 2, 33, "Output",ExpressionUUID->"421371bc-b610-4de8-8cd4-4cda93366277"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214486, 5660, 2599, 84, 211, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[217088, 5746, 191, 2, 33, "Output",ExpressionUUID->"8635dd4c-9a2c-4de9-873a-e72bfa6d877a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217316, 5753, 3708, 117, 327, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[221027, 5872, 192, 2, 33, "Output",ExpressionUUID->"b4d6351a-1815-4d82-b166-22e6e6a2f795"] +}, Open ]], +Cell[221234, 5877, 160, 3, 29, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[221419, 5884, 2073, 58, 234, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[223495, 5944, 597, 13, 26, "Message",ExpressionUUID->"296c0829-dbd3-4704-93b8-8265a14487d0"], +Cell[224095, 5959, 600, 13, 26, "Message",ExpressionUUID->"4213c482-804d-47eb-a01f-f662c6240e41"], +Cell[224698, 5974, 604, 13, 26, "Message",ExpressionUUID->"a5fb6b58-c5c6-4772-b54f-32a14986f05a"], +Cell[225305, 5989, 494, 11, 26, "Message",ExpressionUUID->"0487bdeb-6054-4bb2-b631-2f97464bff3b"], +Cell[225802, 6002, 188, 2, 33, "Output",ExpressionUUID->"9c6cb9a4-43eb-44fa-9cbe-2371e1023a3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[226027, 6009, 2073, 58, 99, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[228103, 6069, 597, 13, 26, "Message",ExpressionUUID->"000bf45f-2856-4d01-b6b2-aa7c1c29711a"], +Cell[228703, 6084, 602, 13, 26, "Message",ExpressionUUID->"76a89296-9be8-449b-ba2f-f530cc351cf4"], +Cell[229308, 6099, 604, 13, 26, "Message",ExpressionUUID->"016a40ba-d463-488a-8313-66bc1e671eed"], +Cell[229915, 6114, 492, 11, 26, "Message",ExpressionUUID->"121a7e3e-35a8-48f2-ad97-66c07aa8c206"], +Cell[230410, 6127, 191, 2, 33, "Output",ExpressionUUID->"9cb3e202-b1d4-409f-bdad-bf5af816582b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[230638, 6134, 1957, 52, 102, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[232598, 6188, 20466, 385, 236, "Output",ExpressionUUID->"5ac2e6ff-e160-4f74-ae87-ee4fbb012d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[253101, 6578, 2113, 59, 261, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[255217, 6639, 535, 12, 59, "Message",ExpressionUUID->"c9a7e4d7-d037-448b-b83a-b387245fc0d8"], +Cell[255755, 6653, 541, 12, 59, "Message",ExpressionUUID->"7ac18c6d-5ea9-4bc1-b86e-acd7f4b02743"], +Cell[256299, 6667, 544, 12, 59, "Message",ExpressionUUID->"a00d6dba-d985-411b-ab3f-e20ccfd84bae"], +Cell[256846, 6681, 492, 11, 26, "Message",ExpressionUUID->"4b0ec7c9-539c-464c-ae7d-cf14a96e932c"], +Cell[257341, 6694, 22453, 416, 232, "Output",ExpressionUUID->"9f4e2c34-4db8-4279-a995-fd58feb3c00e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[279831, 7115, 2476, 69, 169, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[282310, 7186, 9492, 222, 242, "Output",ExpressionUUID->"292f58bb-a964-46f8-a590-e5fa0410c9d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[291839, 7413, 228, 4, 29, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[292070, 7419, 28818, 548, 232, "Output",ExpressionUUID->"eaba24d7-620a-4380-9738-49541306e8d9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320925, 7972, 236, 6, 47, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[321164, 7980, 191, 2, 33, "Output",ExpressionUUID->"a351bf50-4c20-4251-82d4-a4ccf332deb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[321392, 7987, 1833, 52, 190, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[323228, 8041, 541, 12, 59, "Message",ExpressionUUID->"9d3dc5e4-443c-4d81-bc23-10ac0c3d65ea"], +Cell[323772, 8055, 544, 12, 59, "Message",ExpressionUUID->"9cefbd51-2850-4ea6-81aa-875466d3d63f"], +Cell[324319, 8069, 546, 12, 59, "Message",ExpressionUUID->"dca8c5b8-e941-486c-89c2-b98d8fa38644"], +Cell[324868, 8083, 491, 11, 26, "Message",ExpressionUUID->"e205f72e-044f-4d1e-8b54-b23d5e4150e4"], +Cell[325362, 8096, 21907, 407, 232, "Output",ExpressionUUID->"bb49d1a1-7eb5-4d6b-a436-f9f95b11eb94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347306, 8508, 1616, 48, 104, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[348925, 8558, 625, 13, 80, "Message",ExpressionUUID->"2c94236a-5717-4dce-8696-3f984e8d8cec"], +Cell[349553, 8573, 628, 13, 80, "Message",ExpressionUUID->"fd04b7a1-f9ae-44bd-ac15-8e0176699632"], +Cell[350184, 8588, 629, 13, 80, "Message",ExpressionUUID->"234252e5-9eb6-4e3e-a1ca-3244847369b5"], +Cell[350816, 8603, 493, 11, 26, "Message",ExpressionUUID->"4f8284a2-3caf-4d00-9aa3-1c4d5e1a3cb4"], +Cell[351312, 8616, 193, 3, 33, "Output",ExpressionUUID->"dd95c4b4-9027-4cce-ae10-02c85448fcd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[351542, 8624, 2274, 64, 212, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[353819, 8690, 600, 13, 80, "Message",ExpressionUUID->"3c1ff53b-02d7-4ddb-ba18-d22d155e0697"], +Cell[354422, 8705, 603, 13, 80, "Message",ExpressionUUID->"4a3d79d7-d67e-41f1-bd12-e24a3dba5269"], +Cell[355028, 8720, 607, 13, 80, "Message",ExpressionUUID->"7451c7ab-d2ff-4eb7-8c35-d6d706e29858"], +Cell[355638, 8735, 495, 11, 26, "Message",ExpressionUUID->"f323dc1c-65c7-402c-9c27-2a290e3767eb"], +Cell[356136, 8748, 192, 3, 33, "Output",ExpressionUUID->"76adc51e-2c5d-4752-8d8e-0bb42255cc60"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356365, 8756, 2230, 63, 212, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[358598, 8821, 600, 13, 80, "Message",ExpressionUUID->"c440f8da-7ec6-4083-9f74-1fad49a8395a"], +Cell[359201, 8836, 603, 13, 80, "Message",ExpressionUUID->"2a7dd348-7e38-4658-9469-fbc2148530d6"], +Cell[359807, 8851, 609, 13, 80, "Message",ExpressionUUID->"6fb74aed-6310-41f2-accc-b249129e6d57"], +Cell[360419, 8866, 497, 11, 26, "Message",ExpressionUUID->"fb9c6e40-c988-4905-b495-b64707ae6e3c"], +Cell[360919, 8879, 192, 3, 33, "Output",ExpressionUUID->"56dddbdd-2c8b-4c4f-a86b-9995233e1e37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361148, 8887, 2233, 63, 212, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[363384, 8952, 600, 13, 80, "Message",ExpressionUUID->"e2a94797-360e-4638-8e95-9e3e2a59b6ff"], +Cell[363987, 8967, 605, 13, 80, "Message",ExpressionUUID->"5b9aeef1-b0fd-4856-b963-f84e2d75534a"], +Cell[364595, 8982, 607, 13, 80, "Message",ExpressionUUID->"9f2f97bc-6dcc-4533-884a-07f2a62a3413"], +Cell[365205, 8997, 495, 11, 26, "Message",ExpressionUUID->"d1238310-cd30-453c-89ae-96210d33bb95"], +Cell[365703, 9010, 193, 3, 33, "Output",ExpressionUUID->"b04dcc75-081a-43c3-9396-dea12245ed3f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365933, 9018, 236, 6, 46, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[366172, 9026, 194, 3, 33, "Output",ExpressionUUID->"37f96905-5d7f-4485-b34f-1b52a689658d"] +}, Open ]], +Cell[366381, 9032, 271, 6, 29, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[366677, 9042, 558, 19, 51, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[367238, 9063, 194, 3, 33, "Output",ExpressionUUID->"41efecd1-d181-476a-a826-de428b9b21b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367469, 9071, 170, 5, 55, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[367642, 9078, 196, 3, 33, "Output",ExpressionUUID->"50fb6b7b-caf6-4187-a3be-35fef3f15152"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367875, 9086, 181, 5, 43, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[368059, 9093, 192, 3, 33, "Output",ExpressionUUID->"3b5db344-f6b1-4c50-9219-4c5d47246062"] +}, Open ]], +Cell[CellGroupData[{ +Cell[368288, 9101, 6055, 185, 474, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[374346, 9288, 196, 3, 33, "Output",ExpressionUUID->"0a388bd3-e3b3-44ad-89cd-9a35ae3f00a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374579, 9296, 368, 9, 41, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[374950, 9307, 195, 3, 33, "Output",ExpressionUUID->"9c0056fe-1cf9-4835-abe3-5ae95d2fbc8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375182, 9315, 6122, 187, 474, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[381307, 9504, 195, 3, 33, "Output",ExpressionUUID->"d85677bd-5eeb-414b-ace2-4568091abc78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381539, 9512, 368, 9, 41, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[381910, 9523, 192, 3, 33, "Output",ExpressionUUID->"815e946b-b617-4736-8526-2babdc18933b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382139, 9531, 2663, 88, 285, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[384805, 9621, 193, 3, 33, "Output",ExpressionUUID->"41835d90-2768-4a21-bdb1-c73f50a8269b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385035, 9629, 2603, 85, 211, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[387641, 9716, 195, 3, 33, "Output",ExpressionUUID->"6e47e6ab-f315-4ff2-a6f3-78d2c786c9f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[387873, 9724, 3712, 118, 327, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[391588, 9844, 196, 3, 33, "Output",ExpressionUUID->"4da321ea-57b6-40fe-a24f-c79310af2d7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391821, 9852, 2074, 59, 234, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[393898, 9913, 594, 13, 80, "Message",ExpressionUUID->"38c3f314-b476-41b7-9f1a-3709da467a52"], +Cell[394495, 9928, 599, 13, 80, "Message",ExpressionUUID->"a122c302-579b-47aa-8a29-f2f2fc5bf135"], +Cell[395097, 9943, 600, 13, 80, "Message",ExpressionUUID->"8bd92cec-29a1-4104-9fbc-c3c8a32dbdae"], +Cell[395700, 9958, 495, 11, 26, "Message",ExpressionUUID->"6de1f49f-d9a9-4e32-9a22-d75b73ac1f0b"], +Cell[396198, 9971, 195, 3, 33, "Output",ExpressionUUID->"d2c4a372-a2da-4fa7-bdc5-8f2a4f55cd38"] +}, Open ]], +Cell[CellGroupData[{ +Cell[396430, 9979, 2077, 59, 234, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[398510, 10040, 594, 13, 80, "Message",ExpressionUUID->"89d75611-9fc4-4059-a126-9fb3fac98109"], +Cell[399107, 10055, 597, 13, 80, "Message",ExpressionUUID->"b021b16a-8d6e-4a17-9c30-6175e3521018"], +Cell[399707, 10070, 598, 13, 80, "Message",ExpressionUUID->"cf2d0a3f-ac82-4704-8c47-990bf7418bad"], +Cell[400308, 10085, 493, 11, 26, "Message",ExpressionUUID->"560ea45b-729c-4981-80d6-253cc2469fbc"], +Cell[400804, 10098, 192, 3, 33, "Output",ExpressionUUID->"a2a1a422-17ff-491a-b0f8-7af604a4b71f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[401033, 10106, 2053, 55, 151, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[403089, 10163, 20355, 383, 239, "Output",ExpressionUUID->"eb9b911a-d33e-4829-9b37-e7bd4daefe37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[423481, 10551, 2143, 60, 261, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[425627, 10613, 535, 12, 59, "Message",ExpressionUUID->"b0bae760-b88c-4a38-8296-48277e5d34cc"], +Cell[426165, 10627, 538, 12, 59, "Message",ExpressionUUID->"6720e511-51b0-4ddf-b972-504e34e9e13e"], +Cell[426706, 10641, 540, 12, 59, "Message",ExpressionUUID->"9c9abfcf-93ce-4891-8138-0f24cef88366"], +Cell[427249, 10655, 493, 11, 26, "Message",ExpressionUUID->"9cb52dc6-877c-45d9-9f43-5c4707a58a5c"], +Cell[427745, 10668, 21911, 408, 237, "Output",ExpressionUUID->"b63494eb-b053-4ebe-b42d-fbac4fd6a86e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[449693, 11081, 232, 5, 29, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[449928, 11088, 28271, 540, 237, "Output",ExpressionUUID->"49159025-1b5f-4d94-aecf-5b90803a2778"] +}, Open ]], +Cell[CellGroupData[{ +Cell[478236, 11633, 1616, 48, 104, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[479855, 11683, 629, 13, 80, "Message",ExpressionUUID->"132b0c32-1455-4397-8e22-cf607a602a4a"], +Cell[480487, 11698, 633, 13, 80, "Message",ExpressionUUID->"34f95bb6-6a7a-4a69-b914-e29d12a220fa"], +Cell[481123, 11713, 725, 15, 80, "Message",ExpressionUUID->"d8127e38-71f1-4d65-afa6-012ca7d6c046"], +Cell[481851, 11730, 495, 11, 26, "Message",ExpressionUUID->"d58e5dab-f4bd-4ec3-9ef3-cca0763a4156"], +Cell[482349, 11743, 193, 3, 33, "Output",ExpressionUUID->"c6bf2441-13a4-4ac8-9002-6e2548a19353"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482579, 11751, 2274, 64, 212, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[484856, 11817, 592, 13, 80, "Message",ExpressionUUID->"043e6756-c83a-4668-b8c3-8592bfe32ed0"], +Cell[485451, 11832, 597, 13, 80, "Message",ExpressionUUID->"22fb7af9-26f9-4182-b521-521b38d47868"], +Cell[486051, 11847, 600, 13, 80, "Message",ExpressionUUID->"204aa7d4-0538-442c-9979-c44e22f50a1a"], +Cell[486654, 11862, 493, 11, 26, "Message",ExpressionUUID->"706aa87b-d15a-4740-9be0-86cd70423c81"], +Cell[487150, 11875, 197, 3, 33, "Output",ExpressionUUID->"a0a2e845-20d5-41c7-b565-a848f7cb636c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[487384, 11883, 2231, 63, 212, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[489618, 11948, 594, 13, 80, "Message",ExpressionUUID->"e61fa373-fc5c-4a91-b44d-40199161404d"], +Cell[490215, 11963, 599, 13, 80, "Message",ExpressionUUID->"9b490e2d-e0ae-4cd6-860d-9d612b0f4654"], +Cell[490817, 11978, 600, 13, 80, "Message",ExpressionUUID->"018f905a-f9ce-4250-aa53-7dd10c0e1c5c"], +Cell[491420, 11993, 495, 11, 26, "Message",ExpressionUUID->"8b09dd62-b798-4291-b6b8-2ff75fa6d99f"], +Cell[491918, 12006, 195, 3, 33, "Output",ExpressionUUID->"49f30771-bcfa-4bed-ac14-aca75b6bdd05"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492150, 12014, 2231, 63, 212, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[494384, 12079, 591, 13, 80, "Message",ExpressionUUID->"8d7c57db-8699-4c3f-ab8f-03344dd0b416"], +Cell[494978, 12094, 594, 13, 80, "Message",ExpressionUUID->"1c5d1c41-c3b2-45eb-a287-b161ba363198"], +Cell[495575, 12109, 597, 13, 80, "Message",ExpressionUUID->"eb3b3cfa-6c2b-4b73-bd64-fb33e3d3a5be"], +Cell[496175, 12124, 492, 11, 26, "Message",ExpressionUUID->"5810e70e-b4bc-4c10-ac25-c467e11802b9"], +Cell[496670, 12137, 193, 3, 33, "Output",ExpressionUUID->"f8f2d7ff-1134-49c2-a79b-566766302058"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496900, 12145, 235, 6, 46, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[497138, 12153, 197, 3, 33, "Output",ExpressionUUID->"a535fd26-5aae-4766-b9ca-e0251a6993a1"] +}, Open ]], +Cell[497350, 12159, 270, 6, 29, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[497645, 12169, 558, 19, 51, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[498206, 12190, 193, 3, 33, "Output",ExpressionUUID->"6fba74b2-c671-4da2-be32-79399b7fb02a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498436, 12198, 170, 5, 55, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[498609, 12205, 191, 3, 33, "Output",ExpressionUUID->"64ada44e-bd34-4e31-917f-bd2aeed879ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498837, 12213, 181, 5, 43, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[499021, 12220, 195, 3, 33, "Output",ExpressionUUID->"71986d90-a855-40f3-aa28-9eb609ff7c96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[499253, 12228, 6055, 185, 474, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[505311, 12415, 196, 3, 33, "Output",ExpressionUUID->"205eb574-34aa-4f38-ad4e-8668009ac70e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[505544, 12423, 368, 9, 41, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[505915, 12434, 194, 3, 33, "Output",ExpressionUUID->"6563377c-e258-4297-b68b-3eb5dfbd125d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[506146, 12442, 6122, 187, 474, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[512271, 12631, 194, 3, 33, "Output",ExpressionUUID->"e4a52df2-0759-4a9b-a13c-948dbe430057"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512502, 12639, 368, 9, 41, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[512873, 12650, 194, 3, 33, "Output",ExpressionUUID->"3e8accd3-3add-4d38-b7fd-d88f99fc0054"] +}, Open ]], +Cell[CellGroupData[{ +Cell[513104, 12658, 2663, 88, 285, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[515770, 12748, 195, 3, 33, "Output",ExpressionUUID->"2e14b754-f6a7-4f3a-86f4-eca67188ac7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[516002, 12756, 2603, 85, 211, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[518608, 12843, 193, 3, 33, "Output",ExpressionUUID->"beb36398-9c74-42e5-a6be-49dc91d16b87"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518838, 12851, 3712, 118, 327, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[522553, 12971, 196, 3, 33, "Output",ExpressionUUID->"1395be38-1ed7-4ebf-853b-82dfcf37190d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522786, 12979, 2077, 59, 234, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[524866, 13040, 596, 13, 80, "Message",ExpressionUUID->"7f99686b-a126-4853-9d0d-1d36de4cf04c"], +Cell[525465, 13055, 596, 13, 80, "Message",ExpressionUUID->"9c78004b-d7b5-4a57-8600-f479793c1638"], +Cell[526064, 13070, 599, 13, 80, "Message",ExpressionUUID->"77301570-3c9c-4d23-afd2-098e4bb225a2"], +Cell[526666, 13085, 493, 11, 26, "Message",ExpressionUUID->"f3fc4ec8-c943-4c63-8f0d-3debd7c38024"], +Cell[527162, 13098, 195, 3, 33, "Output",ExpressionUUID->"ee64801c-3110-4b02-9a53-dde3e82ea000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527394, 13106, 2077, 59, 234, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[529474, 13167, 596, 13, 80, "Message",ExpressionUUID->"8599e594-b085-4aac-b479-dddc9dfd8b4a"], +Cell[530073, 13182, 599, 13, 80, "Message",ExpressionUUID->"b992822f-3f72-4791-bdf5-65aa79bb011c"], +Cell[530675, 13197, 604, 13, 80, "Message",ExpressionUUID->"4406783d-65cd-406f-8709-a39de0044795"], +Cell[531282, 13212, 495, 11, 26, "Message",ExpressionUUID->"dcaed24c-5dfd-401a-93a2-d08d6ff5995f"], +Cell[531780, 13225, 196, 3, 33, "Output",ExpressionUUID->"e3a124a5-3c19-4d61-85c6-7938d4b8f00e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[532013, 13233, 2051, 55, 151, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[534067, 13290, 20405, 384, 236, "Output",ExpressionUUID->"41593627-78d9-424e-9d7f-2a6fb5060120"] +}, Open ]], +Cell[CellGroupData[{ +Cell[554509, 13679, 2168, 61, 261, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[556680, 13742, 539, 12, 59, "Message",ExpressionUUID->"ba4ec73c-b67b-4028-8cb2-4baa36b2e32f"], +Cell[557222, 13756, 545, 12, 59, "Message",ExpressionUUID->"d34dea44-aad8-4175-b3d8-584b74eb7d72"], +Cell[557770, 13770, 548, 12, 59, "Message",ExpressionUUID->"a7564265-0bef-4940-9e85-c87c13ab298b"], +Cell[558321, 13784, 497, 11, 26, "Message",ExpressionUUID->"09d6750d-080c-4fd7-9cdf-8be9efe4d52e"], +Cell[558821, 13797, 21531, 402, 232, "Output",ExpressionUUID->"fc750c36-d92c-4a34-a5cf-34beddb6e205"] +}, Open ]], +Cell[CellGroupData[{ +Cell[580389, 14204, 232, 5, 29, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[580624, 14211, 27889, 534, 232, "Output",ExpressionUUID->"ba26e1aa-d6d6-4ec9-8f62-28b4032610d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[608550, 14750, 1616, 48, 104, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[610169, 14800, 602, 13, 80, "Message",ExpressionUUID->"6fce96e0-095b-48ac-bae5-7d0e0ae76f75"], +Cell[610774, 14815, 605, 13, 80, "Message",ExpressionUUID->"aa7a362e-ec0d-451a-8aea-9ec4646b234e"], +Cell[611382, 14830, 610, 13, 80, "Message",ExpressionUUID->"0f639d2b-d939-4c01-90f4-c37b7dc6c8f1"], +Cell[611995, 14845, 471, 11, 26, "Message",ExpressionUUID->"20986ba1-777b-4158-a5b6-b0fea8cb7723"], +Cell[612469, 14858, 171, 3, 33, "Output",ExpressionUUID->"720d606d-325e-4fbb-b13f-e7cfe5a7ec42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[612677, 14866, 2272, 64, 212, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[614952, 14932, 572, 13, 80, "Message",ExpressionUUID->"2e45575c-d7f2-4250-9792-0821d0535693"], +Cell[615527, 14947, 575, 13, 80, "Message",ExpressionUUID->"ddfde07e-6b2a-4933-b5b0-fe544ef26938"], +Cell[616105, 14962, 578, 13, 80, "Message",ExpressionUUID->"17e1e4da-421b-4936-be90-f0fadd28e2e2"], +Cell[616686, 14977, 471, 11, 26, "Message",ExpressionUUID->"8ea0b3cf-e6e0-49a5-aa17-ab4a93218fd9"], +Cell[617160, 14990, 171, 3, 33, "Output",ExpressionUUID->"f916b298-4c70-4246-9dc9-247d0b132db7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[617368, 14998, 2233, 63, 212, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[619604, 15063, 572, 13, 80, "Message",ExpressionUUID->"7a93c4f6-cec3-4af3-bd2d-8758e99e68f1"], +Cell[620179, 15078, 577, 13, 80, "Message",ExpressionUUID->"ec546ecc-62f2-43a7-a662-c581d1968add"], +Cell[620759, 15093, 578, 13, 80, "Message",ExpressionUUID->"a0600c59-ba65-4f19-8291-834e800beed0"], +Cell[621340, 15108, 471, 11, 26, "Message",ExpressionUUID->"b27399a5-1019-49da-be1f-17a62292e70d"], +Cell[621814, 15121, 171, 3, 33, "Output",ExpressionUUID->"02934bc0-6844-4305-80f2-75cdcdbf9351"] +}, Open ]], +Cell[CellGroupData[{ +Cell[622022, 15129, 2235, 63, 212, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[624260, 15194, 574, 13, 80, "Message",ExpressionUUID->"5c965494-8318-4fca-a343-731df1fe0ef4"], +Cell[624837, 15209, 574, 13, 80, "Message",ExpressionUUID->"b83dae3d-b5cb-41c4-86b9-c5cf3f6e9df8"], +Cell[625414, 15224, 578, 13, 80, "Message",ExpressionUUID->"80cbc14e-cd38-4508-a9b1-b19239f27488"], +Cell[625995, 15239, 471, 11, 26, "Message",ExpressionUUID->"e7775c4d-1aa8-4286-8040-cb3ebf53722b"], +Cell[626469, 15252, 170, 3, 33, "Output",ExpressionUUID->"875f088e-43b6-4f40-b283-2399a46cf215"] +}, Open ]], +Cell[CellGroupData[{ +Cell[626676, 15260, 236, 6, 46, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[626915, 15268, 171, 3, 33, "Output",ExpressionUUID->"9ad3121f-0732-45d8-b739-9b541854240f"] +}, Open ]], +Cell[627101, 15274, 143, 3, 29, "Input",ExpressionUUID->"6453683b-e449-47ff-9a62-4d62a1065c45"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw1.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw1.nb index 78f75b1..fea7245 100644 --- a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw1.nb @@ -3,42 +3,4775 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 399390, 9355] -NotebookOptionsPosition[ 375168, 8989] -NotebookOutlinePosition[ 375597, 9006] -CellTagsIndexPosition[ 375554, 9003] +NotebookDataLength[ 670893, 15985] +NotebookOptionsPosition[ 630342, 15337] +NotebookOutlinePosition[ 630754, 15354] +CellTagsIndexPosition[ 630711, 15351] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.991849227197853*^9},ExpressionUUID->"c5bb4ac7-6666-c043-9d96-\ -2dda1d801f63"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849227899128*^9, - 3.9918492279041367`*^9}},ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-\ -14a272e65d1f"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "2.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9938052191744213`*^9, 3.9938052504311247`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"b2772d41-6885-47dc-8786-c302f9fd9ce3"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99380518475546*^9, {3.993805224475608*^9, + 3.993805252954657*^9}, 3.993916351512208*^9, 3.9939172101035223`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"803c6254-d370-4aa6-8675-f8d70ed935fb"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993916321914616*^9, 3.993916322483457*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"9e40d454-345c-4784-a452-23993756b006"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ -fc37192f9bb8"], + 3.9913196497381973`*^9, 3.993805185043068*^9, {3.993805224572557*^9, + 3.993805252993279*^9}, 3.993916351869231*^9, 3.9939172101769943`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"4a7bfc37-1783-4f2d-b4dd-34fa4c32e278"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "158"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9938049166426687`*^9, 3.993804917651101*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"fdd397b3-1961-424e-9b64-10dd20c3a55d"], + +Cell[BoxData["158"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993805185062161*^9, {3.993805224576009*^9, + 3.993805253007394*^9}, 3.993916351892046*^9, 3.993917210186846*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"5cc68d84-ae67-4c98-a2b1-c566c428c7c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"a3af71a7-ac25-4a5c-84c3-663570141ce3"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993805185081649*^9, {3.993805224601097*^9, + 3.99380525302089*^9}, 3.993916351914412*^9, 3.993917210198608*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"7060f441-8fae-4194-8afa-887df429c0b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"2ccec413-de30-49c1-8b43-866069f3ed16"], + +Cell[BoxData["0.54525`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9938051851009007`*^9, {3.993805224616465*^9, + 3.993805253035823*^9}, 3.993916351937345*^9, 3.9939172102107286`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"cae674b4-85b6-445e-8eb4-74e731d0409c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"5a7a605c-08b3-4f60-a029-8fb4898784f6"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9938051851193542`*^9, {3.993805224632454*^9, + 3.9938052530394487`*^9}, 3.9939163519603853`*^9, 3.993917210222178*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"46d203b4-93cc-4ff0-bde7-6e9701b9a000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"72be8aed-39d7-465c-aff4-63ec47a0277a"], + +Cell[BoxData["6.27109940387026`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.99380518513807*^9, {3.993805224647552*^9, + 3.9938052530590487`*^9}, 3.993916351983755*^9, 3.993917210233947*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"f6f362e9-2c8f-479f-a7d6-ada920b04bd3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0b92e5b0-1ae9-4b5a-8324-f84adebbca74"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993805185156455*^9, {3.99380522466296*^9, + 3.993805253072824*^9}, 3.993916352007182*^9, 3.993917210248499*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"217e5b68-7651-483e-8a63-913e27e300d9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "1.0538"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993804952051347*^9, 3.9938049566002893`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"3c5bb580-8bfe-4f66-b512-5221e9e91b6b"], + +Cell[BoxData["1.0538`"], "Output", + CellChangeTimes->{ + 3.99380518519252*^9, {3.993805224678464*^9, 3.993805253087891*^9}, + 3.99391635203514*^9, 3.9939172102592983`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"8bf26cd4-2cec-4a42-a362-f662cb5cae36"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4586"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993804961242296*^9, 3.993804965065857*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"ca2a79be-6050-4ecd-ab26-54156566e716"], + +Cell[BoxData["0.4586`"], "Output", + CellChangeTimes->{ + 3.9938051852126503`*^9, {3.9938052246934443`*^9, 3.9938052531018476`*^9}, + 3.9939163520582523`*^9, 3.9939172102707577`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"1a04500c-5fd5-44f6-9a2d-e45af3034b76"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"1c7da21c-1500-4d53-ba1c-493377242d34"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993805185248838*^9, {3.9938052247082167`*^9, + 3.9938052531162167`*^9}, 3.993916352081853*^9, 3.993917210283103*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"a08bc8d9-d363-43d8-98f3-bcb8608818d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"f0491feb-5d8f-4b48-a09a-131f6829c428"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993805185267172*^9, {3.9938052247238207`*^9, + 3.993805253130691*^9}, 3.9939163521054068`*^9, 3.9939172102953453`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"92dcb0ec-bda4-49ef-b0e3-942d5961bb3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"54bbc363-d75f-467d-869f-4d08ce6befd1"], + +Cell[BoxData["2.7212678798402736`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.99380518528695*^9, {3.993805224741534*^9, + 3.993805253144705*^9}, 3.9939163521330347`*^9, 3.993917210307476*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d356bc60-b2ea-4f82-afc5-fc260730b131"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"0855a69e-3985-40a0-b786-105e838b9d8e"], + +Cell[BoxData["1.517413176238712`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993805185305333*^9, {3.993805224756358*^9, + 3.993805253156912*^9}, 3.993916352156901*^9, 3.993917210322139*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"e8860184-a3a9-48b7-9e15-517e746ebc56"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"e86585a1-f131-4b91-9d5c-a6dd4ade1753"], + +Cell[BoxData["0.32066933716802604`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938051853237133`*^9, {3.993805224762803*^9, + 3.9938052531724854`*^9}, 3.993916352182193*^9, 3.993917210335191*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"f2c8e9f9-e981-4bd9-99cc-b14049502041"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"7d4e3a3e-b54b-4320-a836-25664a1797c2"], + +Cell[BoxData[ + RowBox[{"-", "0.07876066759731537`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9938051853418283`*^9, {3.993805224780403*^9, + 3.993805253186532*^9}, 3.993916352207016*^9, 3.9939172103491087`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"ea2b0040-197e-435a-b45b-988552fa7c10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"55ba3e19-a07c-4b30-a081-7ce7e892abfe"], + +Cell[BoxData[ + RowBox[{"-", "0.5970148797225691`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9938051853596067`*^9, {3.99380522479467*^9, + 3.993805253200911*^9}, 3.993916352232068*^9, 3.99391721036833*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"3d89cde4-d25f-4218-8fff-d1c7c30bea4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"07ac1322-5968-4afc-838f-ce30ffae96bd"], + +Cell[BoxData["0.6876077696425691`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993805185378059*^9, {3.993805224809915*^9, + 3.993805253215036*^9}, 3.993916352256995*^9, 3.993917210383341*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"1a502db9-ec52-49eb-b9fd-dde7802dbd3c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"ac03f3de-89d9-446d-83e3-b4b6f03c517d"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993805185398272*^9, {3.993805224824396*^9, + 3.9938052532292*^9}, 3.9939163522826366`*^9, 3.9939172103975573`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"590ebe88-2147-4e25-be90-ec85e03fd325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"679c49c0-c068-46db-8fe9-a5ff2aa55c5c"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9938051854177923`*^9, {3.99380522484026*^9, + 3.993805253244286*^9}, 3.993916352307663*^9, 3.993917210411003*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"ab7e3537-7b79-4ff7-973b-2a8aea4cd075"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"aecfd37f-6ccb-432d-9f1a-e4cbcdeea887"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993805185437478*^9, {3.993805224855752*^9, + 3.9938052532596083`*^9}, 3.993916352336733*^9, 3.9939172104240007`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"63137ad1-6c4f-40b8-bc52-c4f2ba883987"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"c419a757-bdc9-4782-bff8-27236b90c5cf"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.9938051854577103`*^9, {3.99380522487106*^9, + 3.993805253274938*^9}, 3.993916352360208*^9, 3.993917210437334*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"a0798493-e6d2-4b6e-8159-350c76376397"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"13949a5e-b6fd-4e01-aa5c-dc667f9588b6"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993805185476227*^9, {3.993805224888023*^9, + 3.9938052532912817`*^9}, 3.9939163523865757`*^9, 3.9939172104502277`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"e3319ff3-068e-4c0f-9bd5-173966574ff1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.993804991704192*^9, 3.9938049918531923`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"c28f043f-37ad-4e41-a454-f4040e2b51fa"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.99380518552493*^9, {3.9938052249037046`*^9, + 3.993805253306974*^9}, 3.993916352410439*^9, 3.993917210462799*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"29b2c15d-5c60-4c6d-8e85-538225b9255f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993804995664447*^9, 3.993804995772654*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"56337060-18d2-419b-93e4-0ba93c20ca81"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993805185543676*^9, {3.9938052249204884`*^9, + 3.993805253322205*^9}, 3.99391635243427*^9, 3.9939172104762087`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"c3fbf1b1-8a77-4319-ad4f-270295b765bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"57f122f3-05e0-434c-8e1a-eccd8913b175"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9938051855619907`*^9, {3.9938052249386597`*^9, + 3.9938052533386793`*^9}, 3.993916352457818*^9, 3.993917210489833*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"2130c816-2364-4135-b090-e57f9e863c58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"70068c8b-0c1f-47da-a2ab-6d6bd72cca90"], + +Cell[BoxData["0.11191417104044457`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993805185580923*^9, {3.993805224956522*^9, + 3.993805253354024*^9}, 3.9939163524821377`*^9, 3.993917210505158*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"606d748e-a1d4-42e0-9f34-daabe9821e48"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"1fbdcee8-06ae-48b4-ae2d-4198096a60fd"], + +Cell[BoxData[ + RowBox[{"-", "2.561824637233714`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993805185599188*^9, {3.993805224972258*^9, + 3.993805253370023*^9}, 3.9939163525065804`*^9, 3.993917210519799*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"c537386a-7e16-419c-ae6c-0b00eaa55981"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"0fc6e7d3-9b62-4547-911b-534b9d877103"], + +Cell[BoxData["18.398535985484678`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.99380518561648*^9, {3.993805224987084*^9, + 3.993805253385118*^9}, 3.993916352533133*^9, 3.993917210532393*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"5f46f9b0-648a-481b-afc5-5393c8d99be3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"9f5d90b2-cc60-46a9-9c0e-76a6f1527601"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9938051856333447`*^9, {3.993805225004781*^9, + 3.993805253400388*^9}, 3.993916352603034*^9, 3.9939172105513763`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"ea772e16-dd58-47a9-b193-8c68957e44cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.1"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993805039391902*^9, 3.993805039626801*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"646cdc85-773c-4a52-ace9-d2c1865933d0"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.993805185666649*^9, {3.993805225028409*^9, 3.993805253416904*^9}, + 3.993916352634946*^9, 3.9939172105681667`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"e901b16b-2a23-4886-8173-16b7be7ea046"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849229804535*^9, - 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ -3056e2e0b957"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"826b1a7f-2c44-44a8-82b0-3f3d8b600b37"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.825"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993805045213546*^9, 3.993805047124814*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"271c9ddf-47b5-49e4-8dd3-27cdfa286999"], + +Cell[BoxData["0.825`"], "Output", + CellChangeTimes->{ + 3.993805185701985*^9, {3.993805225054669*^9, 3.993805253444351*^9}, + 3.9939163527056713`*^9, 3.99391721059577*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"0495b564-6be5-4189-a68d-0c4408072357"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"e3fd27c4-85ca-47d3-8ca3-8f797145a05b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.555"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9938050508440866`*^9, 3.993805052236985*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"728bdb3a-891b-497f-a97a-dbc2f0e37bc0"], + +Cell[BoxData["2.555`"], "Output", + CellChangeTimes->{ + 3.9938051857394037`*^9, {3.9938052250786047`*^9, 3.9938052534689074`*^9}, + 3.993916352780088*^9, 3.993917210617837*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"640ac916-1f8b-4b82-bc08-ac3dc508e95b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"f4f48cd5-9f06-4143-967a-b271664cc5e0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.245"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.99380505503828*^9, 3.993805056087892*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"5b24e115-86ac-49d0-ac08-209f74c12624"], + +Cell[BoxData["1.245`"], "Output", + CellChangeTimes->{ + 3.993805185761554*^9, {3.9938052251046124`*^9, 3.9938052534951553`*^9}, + 3.9939163528525343`*^9, 3.993917210648164*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"f8535255-8456-40d8-8ee7-3455840e8c19"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"e7d5601e-7656-4a2b-9c64-c603198bb7a8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.573"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993805059071521*^9, + 3.9938050607022467`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"de511d4d-9b37-456c-9bd2-1906199905ff"], + +Cell[BoxData["1.573`"], "Output", + CellChangeTimes->{ + 3.993805185855309*^9, {3.993805225129714*^9, 3.993805253518753*^9}, + 3.993916352928842*^9, 3.9939172106743927`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"969669ba-fec8-4172-8b1d-52a1d9c96ce9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"e18e3775-9f08-4631-bfd3-5062f3764eb6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.559"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993805065029335*^9, + 3.993805067447727*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"8a3426cf-7d5b-416e-8235-b683b16e5c1a"], + +Cell[BoxData["0.559`"], "Output", + CellChangeTimes->{ + 3.993805185891992*^9, {3.993805225152993*^9, 3.993805253543803*^9}, + 3.993916353008525*^9, 3.9939172107036*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"7d7851c9-89ca-4a4b-9e9a-70e573a2c5a4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"8f8d7074-0b17-4f00-8ac9-b57a78143355"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938050741899853`*^9, + 3.993805075123766*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"a15e1752-5f04-4bd5-bd4f-25b233dca3eb"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{ + 3.9938051859283257`*^9, {3.993805225185712*^9, 3.9938052535659924`*^9}, + 3.993916353081768*^9, 3.993917210731411*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"0e0a5e4b-e05a-48ce-a1f7-90cef81553fa"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"948e6829-d42e-4ae5-83ef-7f6d07c17cad"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.735"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993805078103382*^9, 3.993805079604447*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"5b38fb53-2327-4ec2-9b9c-60f52ffda34c"], + +Cell[BoxData["0.735`"], "Output", + CellChangeTimes->{ + 3.993805185964576*^9, {3.9938052252141447`*^9, 3.993805253589633*^9}, + 3.993916353154702*^9, 3.993917210761845*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"460d8b0e-9b2c-444a-9a46-5000efa93d17"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"b6c0469a-121a-46b7-b6be-fdc0d1f4bc33"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"781537d1-cd86-43c1-b374-51212c251596"], + +Cell[BoxData["0.07326591095323323`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993805186059474*^9, {3.9938052252761602`*^9, + 3.993805253639162*^9}, 3.993916353303368*^9, 3.993917210836618*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"364ce1dc-e5d3-4796-b185-651ed80814f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"8e2003ca-2209-47da-878b-83c6189be607"], + +Cell[BoxData["5.817472076698097`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.993805186091166*^9, {3.9938052253032303`*^9, + 3.993805253666086*^9}, 3.993916353340589*^9, 3.993917210889822*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"85125601-65ee-4088-8e2e-ab6670224e8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"bf5b66e2-2203-43fe-a20a-2fdd63c54309"], + +Cell[BoxData[ + RowBox[{"-", "18.01966490435569`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993805186124298*^9, {3.993805225330043*^9, + 3.9938052536925*^9}, 3.993916353372154*^9, 3.9939172109414473`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"9f7377c5-abad-4bbe-855c-68a7f7984392"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"a95c8316-1481-41f0-825c-255ba2d84b39"], + +Cell[BoxData[ + RowBox[{"-", "26.39087117680155`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993805186162883*^9, {3.9938052253638563`*^9, + 3.993805253728293*^9}, 3.993916353411268*^9, 3.993917210999156*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"7a757674-be19-4c6f-9daa-1040a505b4e4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"03ef53d2-ac22-4ee4-941e-10bf4789e845"], + +Cell[BoxData[ + RowBox[{"-", "72.0154502935676`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.9938051862023897`*^9, {3.993805225399252*^9, + 3.993805253760605*^9}, 3.9939163534581738`*^9, 3.993917211059601*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"0bea8c41-c67d-42fe-83a3-68d6c9743155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"07ea9f48-0066-4db8-9dd1-6bba967332b9"], + +Cell[BoxData[ + RowBox[{"-", "210.89213440043358`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.99380518624261*^9, {3.993805225437365*^9, + 3.993805253795278*^9}, 3.993916353515175*^9, 3.99391721113551*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"2b4097e0-bb49-479f-8bd3-7eed2f475d96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"c875f587-30d1-48b3-9854-3c229b0ab295"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9938051862628403`*^9, {3.993805225455119*^9, + 3.993805253809515*^9}, 3.993916353549343*^9, 3.993917211173106*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"1791da5f-e1a6-4995-8dcc-a93521cc92db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"4dff1ca8-d402-42fd-9b87-7b10760344c7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9938051862883873`*^9, {3.993805225469843*^9, + 3.993805253823063*^9}, 3.993916353615691*^9, 3.993917211184936*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"be54036a-afdd-41a3-9cdf-ba9c8a69e0c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"c4b0b635-f4dd-4dc5-90af-72e22d235ae6"], + +Cell[BoxData["147.07396031318729`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993805186309627*^9, {3.993805225485524*^9, + 3.993805253836412*^9}, 3.993916353640667*^9, 3.993917211206374*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"fab9d601-a5ff-4a87-ba20-e800dd6e6612"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"351c1e35-2dea-4781-ba50-87d949e310e1"], + +Cell[BoxData[ + RowBox[{"-", "138.05974755201015`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993805186332671*^9, {3.9938052255064*^9, + 3.993805253849951*^9}, 3.993916353666204*^9, 3.993917211218943*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"a4b75471-0e40-429d-bfe9-899d9f4d9e1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"1e912ece-96d2-4948-aa10-20d96297ea86"], + +Cell[BoxData["151.31388532518324`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9938051863549347`*^9, {3.993805225521781*^9, + 3.9938052538643007`*^9}, 3.993916353692947*^9, 3.993917211230492*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"ae406c8c-bca8-4851-a049-fc144cabdef3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"47c0646e-e254-40cf-9cd7-3548068fccdf"], + +Cell[BoxData["0.32066933716802604`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993805186375004*^9, {3.993805225539682*^9, + 3.9938052538780746`*^9}, 3.993916353720183*^9, 3.993917211241746*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"17284a52-e766-40a9-b2e2-d098612b0e6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"5501ece5-37f8-4e82-9d2c-aa7274ca8f63"], + +Cell[BoxData[ + RowBox[{"-", "0.07876066759731537`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993805186395523*^9, {3.993805225554823*^9, + 3.993805253891698*^9}, 3.993916353744547*^9, 3.993917211253211*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"a7e6775a-ca2a-49b5-99f0-11ca437176a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"228691ce-4dd3-4975-8d6a-17a092e7d611"], + +Cell[BoxData[ + RowBox[{"-", "0.5970148797225691`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9938051864158077`*^9, {3.9938052255692043`*^9, + 3.993805253905455*^9}, 3.993916353768426*^9, 3.993917211264217*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"9d744144-6f21-451a-b66b-3afa62893371"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"e6a0b3db-e2c9-4012-9b73-7214a8433e1f"], + +Cell[BoxData["0.6876077696425691`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.993805186435895*^9, {3.993805225584848*^9, + 3.9938052539190693`*^9}, 3.993916353793048*^9, 3.9939172112754087`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"74a2c4b9-3fa0-4607-b89b-f65f714bb01f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"0e7b177c-f3a0-4bac-a984-453c6ff2caf2"], + +Cell[BoxData["2.7212678798402736`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993805186459119*^9, {3.993805225601059*^9, + 3.9938052539329557`*^9}, 3.993916353817293*^9, 3.99391721128685*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"712f1d11-8587-466d-8521-fdca6138869c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"be3f14ff-2d9f-4df4-885f-f849ab9c5e0f"], + +Cell[BoxData["1.517413176238712`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993805186481224*^9, {3.993805225615499*^9, + 3.9938052539461823`*^9}, 3.993916353823238*^9, 3.993917211298283*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"45f35db0-6a1c-4c4d-bfd0-77779e8bbf15"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"92b76034-c763-4ad6-b6b7-aca7e96afe0f"], + +Cell[BoxData[ + RowBox[{"-", "35.37905990838884`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993805186500906*^9, {3.993805225630805*^9, + 3.9938052539603987`*^9}, 3.9939163538577957`*^9, 3.993917211310218*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"7098663f-6694-4c6b-bca4-3a2feb04b206"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"0d45afba-eacb-4dac-9d5f-a78ffc53dde3"], + +Cell[BoxData[ + RowBox[{"-", "7.518677963606449`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.9938051865278683`*^9, {3.9938052256462593`*^9, + 3.9938052540033293`*^9}, 3.9939163538870287`*^9, 3.9939172113222837`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"729a2127-dcd2-4d52-a709-b50b30192dbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"7d3526bd-4ed9-4c19-b69f-c2791d3139bf"], + +Cell[BoxData["111.69490040479845`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993805186549179*^9, {3.99380522566187*^9, + 3.9938052540195704`*^9}, 3.993916353911763*^9, 3.993917211341646*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"b0a5fa8b-9525-496a-a868-ac839756f315"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"ee08d541-cf01-478f-b5fb-03f69b0035f1"], + +Cell[BoxData[ + RowBox[{"-", "138.05974755201015`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993805186570223*^9, {3.993805225677956*^9, + 3.993805254035548*^9}, 3.993916353937284*^9, 3.9939172113574963`*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"c0fe154e-a450-4440-ade0-ced548a523b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"8373653b-6c73-45c2-9d26-5c69e293fa78"], + +Cell[BoxData["143.7952073615768`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993805186590909*^9, {3.993805225694096*^9, + 3.993805254049733*^9}, 3.993916353962906*^9, 3.99391721137339*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"0234527f-e693-4bdc-9f20-07ad91b5ed7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"f4b17ba7-6d70-4f51-9676-ab1051372298"], + +Cell[BoxData["27.73706386208056`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993805186610568*^9, {3.993805225710843*^9, + 3.99380525406491*^9}, 3.99391635399086*^9, 3.993917211391018*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"a43155af-8e75-4a54-a781-25cccf0ca2af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"5f716b7d-0e56-4604-a4ed-7d50d8bfd452"], + +Cell[BoxData["878.9837204382463`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9938051866294127`*^9, {3.99380522572875*^9, + 3.9938052540809603`*^9}, 3.9939163540160513`*^9, 3.9939172114053907`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"dfe7674c-7148-4262-9fdb-7e2b02659d3c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.52257"}]], "Input", + CellChangeTimes->{ + 3.991849227197853*^9, {3.993916791579413*^9, 3.993916798302826*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData["0.52257`"], "Output", + CellChangeTimes->{3.9939172114176407`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"632fc477-e1bf-4f79-9b67-ea962acff177"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849227899128*^9, 3.9918492279041367`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.15112"}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9, {3.993916800205661*^9, 3.993916804469769*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[BoxData["0.15112`"], "Output", + CellChangeTimes->{3.993917211439207*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"68938f06-b316-4e46-b799-d423fb4fd833"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, 3.991849229809536*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ @@ -84,13 +4817,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + CellLabel->"In[75]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913335367025833`*^9}, - CellLabel-> - "Out[233]=",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[BoxData["1.6893390031074366`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9, 3.993917211462078*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"badbf664-27a7-4573-8fc6-05b38dcebad5"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4855,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ -fcd932c3b663"], + CellChangeTimes->{3.9915575926932735`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[BoxData["5.020725113795862`*^-55"], "Output", - CellChangeTimes->{3.991333536726557*^9}, - CellLabel-> - "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[BoxData["1.1595678613227591`*^-54"], "Output", + CellChangeTimes->{3.991333536726557*^9, 3.9939172114804773`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"1cdaee67-6bfa-4cb0-9012-7cf7f3e4d80a"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4893,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557595005127*^9, - 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ -23b66397f1fd"], + CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[BoxData["1.871372642785671`*^-54"], "Output", - CellChangeTimes->{3.9913335367515736`*^9}, - CellLabel-> - "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[BoxData["7.444900108011117`*^-55"], "Output", + CellChangeTimes->{3.9913335367515736`*^9, 3.993917211497677*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"72d83635-c171-4e2f-9907-7ed7fa28c5a9"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4921,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + CellLabel->"In[78]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[BoxData["25.178011816139865`"], "Output", - CellChangeTimes->{3.9913335367605553`*^9}, - CellLabel-> - "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[BoxData["10.348339875065527`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9, 3.9939172115122633`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"1a768f77-95bb-40df-85a8-2018517b528b"] }, Open ]], Cell[CellGroupData[{ @@ -225,13 +4950,11 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + CellLabel->"In[79]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[BoxData["31.32034821453639`"], "Output", - CellChangeTimes->{3.991333536783556*^9}, - CellLabel-> - "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[BoxData["24.833586642614044`"], "Output", + CellChangeTimes->{3.991333536783556*^9, 3.993917211521109*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"873a3552-88f6-439b-bc93-6b318f1f4f03"] }, Open ]], Cell[CellGroupData[{ @@ -240,13 +4963,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + CellLabel->"In[80]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[BoxData["0.7475613664925793`"], "Output", - CellChangeTimes->{3.9913335367915726`*^9}, - CellLabel-> - "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[BoxData["1.6371742346011993`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9, 3.9939172115317287`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"9f2acf9f-695c-44dc-ba64-cfcf04e98a28"] }, Open ]], Cell[CellGroupData[{ @@ -255,13 +4976,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + CellLabel->"In[81]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[BoxData["3.5403946764909393`"], "Output", - CellChangeTimes->{3.99133353681583*^9}, - CellLabel-> - "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[BoxData["5.949366063687409`"], "Output", + CellChangeTimes->{3.99133353681583*^9, 3.993917211543108*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"59242407-2ad0-4dfe-b526-cbe298e68c01"] }, Open ]], Cell[CellGroupData[{ @@ -270,13 +4989,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + CellLabel->"In[82]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[BoxData["110.88639408458714`"], "Output", - CellChangeTimes->{3.991333536826782*^9}, - CellLabel-> - "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[BoxData["147.74409761120893`"], "Output", + CellChangeTimes->{3.991333536826782*^9, 3.99391721155476*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"038e6d4b-ffe5-4b7e-9373-caae374e9bc9"] }, Open ]], Cell[CellGroupData[{ @@ -285,13 +5002,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + CellLabel->"In[83]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[BoxData["18.822108918839827`"], "Output", - CellChangeTimes->{3.9913335368508377`*^9}, - CellLabel-> - "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[BoxData["16.942035414353473`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9, 3.993917211568821*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"6ac1ccfd-3683-405f-b97e-50be7888f083"] }, Open ]], Cell[CellGroupData[{ @@ -480,13 +5195,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + CellLabel->"In[84]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[BoxData["0.042044960793272385`"], "Output", - CellChangeTimes->{3.9913335368758316`*^9}, - CellLabel-> - "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[BoxData["0.006873965573545056`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9, 3.9939172115900917`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"873384b6-0e46-4e64-b5f9-19711ffc121f"] }, Open ]], Cell[CellGroupData[{ @@ -499,13 +5212,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + CellLabel->"In[85]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[BoxData["4.322031867849089`"], "Output", - CellChangeTimes->{3.991333536973074*^9}, - CellLabel-> - "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[BoxData["10.689103058093487`"], "Output", + CellChangeTimes->{3.991333536973074*^9, 3.993917211679521*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"d503a920-05c1-4310-b36a-d340efea95ca"] }, Open ]], Cell[CellGroupData[{ @@ -696,13 +5407,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + CellLabel->"In[86]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[BoxData["0.011395075201487413`"], "Output", - CellChangeTimes->{3.9913335369870644`*^9}, - CellLabel-> - "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[BoxData["0.056783751472024475`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9, 3.9939172116930447`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"1baddf7d-d83d-4acc-8267-74b369eb031a"] }, Open ]], Cell[CellGroupData[{ @@ -715,13 +5424,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + CellLabel->"In[87]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[BoxData["8.302069082299768`"], "Output", - CellChangeTimes->{3.9913335370800858`*^9}, - CellLabel-> - "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[BoxData["3.719057560629435`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9, 3.993917211778253*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"d3e12b38-26cc-4969-820c-f4efbcaf0e50"] }, Open ]], Cell[CellGroupData[{ @@ -813,13 +5520,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + CellLabel->"In[88]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913335370930634`*^9}, - CellLabel-> - "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[BoxData["0.06727285695077176`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9, 3.993917211791882*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"acaa79be-c0e3-4574-aa45-6b046e400cd4"] }, Open ]], Cell[CellGroupData[{ @@ -908,13 +5613,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + CellLabel->"In[89]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991333537118065*^9}, - CellLabel-> - "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[BoxData["0.9327271430492282`"], "Output", + CellChangeTimes->{3.991333537118065*^9, 3.9939172118067017`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"1853f631-a41d-43ea-9145-f2251b99af4d"] }, Open ]], Cell[CellGroupData[{ @@ -1036,19 +5739,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + CellLabel->"In[90]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913335371420746`*^9}, - CellLabel-> - "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +Cell[BoxData["0.06274721966845274`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9, 3.993917211822673*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"0860a8ae-631b-45c0-8af9-55bf483b64bc"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ -5e47-a896-3a959bbbf44d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ @@ -1109,65 +5810,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849241512779*^9},ExpressionUUID->"738a48f3-b38c-f441-aec4-\ -53babaa73a14"], + CellChangeTimes->{3.991849241512779*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 249, 217, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371540604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.211120369971199`*^-212\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 118, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.993917211845339*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], +In[92]:=",ExpressionUUID->"e436448b-4740-4642-a348-95a346d499b7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 249, 218, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371630745`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.773487507289964`*^-217\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 119, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.993917211854363*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], +In[92]:=",ExpressionUUID->"bf50bf05-5e83-4e49-ae01-8389ed93954e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371710587`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.362413974181999`*^-222\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 120, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.993917211861168*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], +In[92]:=",ExpressionUUID->"879848e9-ba23-41b3-90ab-12ad72b966ed"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133353717906*^9}, +during this calculation.\"", 2, 92, 121, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335371540604`*^9, 3.9939172118687363`*^9}, CellLabel-> "During evaluation of \ -In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], +In[92]:=",ExpressionUUID->"0f8c1e28-c509-4ebc-864b-c02220327f77"], -Cell[BoxData["4.322031867849086`"], "Output", - CellChangeTimes->{3.9913335399194164`*^9}, - CellLabel-> - "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[BoxData["10.689103058093492`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9, 3.9939172153338947`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"67d755af-6936-473b-9603-4c982510ee6f"] }, Open ]], Cell[CellGroupData[{ @@ -1229,65 +5935,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918492463930817`*^9},ExpressionUUID->"86c33485-ed26-8f49-b3d0-\ -7d040d3b48f0"], + CellChangeTimes->{3.9918492463930817`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 250, 221, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399544125`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.211120369971199`*^-212\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 122, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.993917215403067*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], +In[93]:=",ExpressionUUID->"8dc4c80d-8867-44e2-b176-ab92e24db687"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 250, 222, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399644184`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.773487507289964`*^-217\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 123, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.9939172154132843`*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], +In[93]:=",ExpressionUUID->"af152c3e-a473-43e7-a757-013dc259c4e7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539972414*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.362413974181999`*^-222\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 124, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.9939172154213142`*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], +In[93]:=",ExpressionUUID->"ef7f6624-d511-40e3-b037-616e73f223ff"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539979416*^9}, +during this calculation.\"", 2, 93, 125, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335399544125`*^9, 3.993917215429212*^9}, CellLabel-> "During evaluation of \ -In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], +In[93]:=",ExpressionUUID->"e9c0f198-98ea-40b9-afe2-3c913273f657"], -Cell[BoxData["8.302069082299772`"], "Output", - CellChangeTimes->{3.991333542631773*^9}, - CellLabel-> - "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[BoxData["3.7190575606294383`"], "Output", + CellChangeTimes->{3.991333542631773*^9, 3.993917219835476*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"04120cef-4b56-48ef-9d4f-ac2c20aa1ca9"] }, Open ]], Cell[CellGroupData[{ @@ -1343,92 +6054,93 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492535482903`*^9},ExpressionUUID->"f373fe4f-940c-0842-9236-\ -63ec36d318ad"], + CellChangeTimes->{3.9918492535482903`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1HlYTdsbB/BmNGlQp0HJORWVBuc0i/VqojSpaJSczt6RhKYbmkiGi1Sk +7kVFRdKgEhr4RUk3XaIQlzTrnObOTkX0W/2xn/18nrXXd71rr2E1+6A7ISQg +IDCEn8X34VcGax62vdrkVemhJSjORZvG8k3YtsUor/Qf50V355he1rStQ11d +a18s2o3zr5gk6zli2B5OE8Iuj0loELVtRQe6bhYLY59tUqpPKHqDpkseK4li +V7cdzp5nvkM9FU/fiWHzPrXEHqntRO6jpX1LsVUGGH7fbT6jq7uSrSWwt43H +WkS0fkWjwnZTUthP5nkSMUU96Gr36JQM9vvjtGMPwvqQNJVguwJ7TMyWRzEH +UPymn4M0bLHzh3xYM4MosX73J1VsddnrzYdrh5DX0RJ1DWwX1e+3xmxGUF+m +yN862GQuXVF/6Ri6Oi/1xgA7Qcs1eX/rOGJfFfAxxu6kdayPLJpE2Wdv+AE2 +xzdk36XzU2j3J9f39tgT1wRuVITx0XDwtxvO2Evp+jKTzGm0yeqtnj/2ZU7D +FhmF7yj/pBYvCFvjtk+C4cx3JCjFntuPbb7u1NiB2llk1HNFPA57r+nXVp7N +PEquGJ+5iU3FRImIa/9CrgoXNpZgJ9ZKWOks/Y3U6+U7HmJngfnd4NYFFDr1 +mf/vYn0FzbbhRYKwfzjg9y/soqZL3cdVhYB2z/6luASu91tAbNp5IXjeROPS +sGN1pyvvhQnD4HgUjYV9uWw1Y5wpCpU+dHQA+1PbyJPfeaKg88HzUiy2xtRD +X2kFMbhWccj8PHaxsUu6/owYfDjLiSrGbqw+KhhauxQihqxqJrCnG9q/DtlI +AjlRfvCMJBfJOUnKHHsiCa3BWheysY06bEHKQgrcT5Yvq8IO6a/KXW8gDRkP +5DX6sA8JtRptlJSBx1sFntlIcdEAvXQy+bssqMfEflKUxv+HbFn2miUHkbHH +uExsobuDq5UOy8GU2yUvV2wN1ir3omE5OBsltf0stq9NasWrbnnI+qVXLbic +i14HhUfQXiqAedqKABEZLuq6nXIucKkiNE7cCNDGHhkuyrtjpwj3XbY+2Yot +HtnXvqFeEQjZ7r9TsG1PehoHVtFglbDVP+qyXFSTbzpdmKMMT2mFP9zkuCh/ +4Ee0ZaQaVMhx7s2v4KKtO053RZSoQTJZcGqNAs5vlLcvGVSDEbe2Mnds4/x1 +Cho+6qA00fvjDnYjO6BSdNMqKE/+GeGvyEVT491/DCVpwEuvn5NtNC6SP2B7 +v9KZDmYuG9VmVbhoMF98r1sIHSL6Kt30Vbno0ec21dFTdHijv+IDG9vfaVeS +dj0dMnrSPr/CzteLdv+LyYDgJ8dbilbi8Xm3J+JpmtD8mskMV+ciz2AJfcce +LZhKf2OE6FyEoncwvX5pwTmv2ONx2LrJOWYcZW0Yke9cXYctkMeyjt+uDTuC +b263ZHBRSZefV8VTbShTPXHAUhOfz53Fx1VuroEcIuSKgzauz9b5PY+tA9pD +dcV5ulyU55H530y8DnSz4vnD2Cnsnm6RqzqwvX38rLEe3t+JUcPq7Trwbqyv +oAlbtu66gIeNLoRXS/89tg7vH9aYbi1DDyqWB0c4G3KRKv1iwrn+dbDl9Geu +vTEX1f1J6cwJ6cPVzzn0XGx/vk8HuVoffpVpV89hZzdq6lgH6IPZ2fiFEhMu +ogfXvJ39oA9HBXZMqpjh+RYPaJEvDcCv4dw+MUsuUlNVJzV8jCDc8+RdBnDR +uoJIyZ+ICdODMQf/cOYiNidpWt+FCU6CD1K7sbMY6V2B/kzosMkUdnThIuGb +ZfeaYpigcM+uS80Vn7dsnmd6ORMOK7gE/+OG79OswOs6DBbcNRt+YeiJ1/ec +k4G3mDE0G61/ZuHHRTfCNd2qWk0gwNE41TqEi9qikdnJAgswymPWmF/kotUB +71x2hW4ExjN9Cc9qLiIWHpSqHQHokYmbaRngItrwoyU0tjUUyZ54ckuVhyJZ +Vp/TdW2h1no418SDh9ij883yPDtgblx7JCuFh0qsI5bkvN4C+UlvtyV28FA+ +FfK0+LIDvFBfJf5GZRjNblb6tzFhG5TurHiSFDqMvggIT/bscQaDtWrz654N +o7CVB1OPM1yBNn8fPiiOoNJ9zfUZyW6wLbBc7ukfI+goX3lGb992OEys3df5 +fgRNO9rvfLHbHdKiDTP/Zz2KLPzSNg9s94Cx4iC9oPJR9Fb5ekgjyxO+XR8I +Sl85hlRuJdUVrt0Bk1w+vL08hh516zq5SO0ER+tmvYyl40i9YyI4enQn8PeL +DonEjSNWRlpxXrcXvE61DNnwexxdF+EbpDd4A/3Zc60Uqwn0YLPhp+RqH9DX ++epAT5xAWWZ/ys4X+UJ8f94Ro4YJ9Pq/glOs836gqXC8TUFoElU5X9M8lOgP +vFTDpd72k2jygIdAGGcX1I9qmTQnT6Jpe529YzYBsFNGY3JPwyQqHP04G2G6 +GwosjRcMRKeQ942CoF2SgRB04doLi81TqLJi227h04HwqlvUd2/iFLJQfTt3 +di4QbqCZXOPqKcToDv70Zt8e2NNvYH54bAr1S+x3vda3B678118kosVHbSku +QVt2sKGe7FfL8OSjyzE5ElFtbPifYiMlcpKP6p4szAU5BIHhfkaGaCkfLfeH +06yaIHiaXc5rauMjjRUvXq+sCwJHh3PNHm/4yKjVWUnsSRBULfi7dWO7W/nd +6XwaBOlbUnfNvsX5K6Nfxv0TBAEtr/ZrvuMjlS93lzd3BsGj9xm2oR/5SDOA +luU/EwRiEku21/TwkUXgWGGyMQf+Uv7tuG2Sj279NRHhYsqB7U1+q2uwV7RP +baKZc4Bjtblw7RQfjdnNdBRu4MDtcuKFCJ+P7y8BwVZrDoA+6VBN8ZH0jKyP +3HYOiPdNusjP8lH/BZNlOQc4oK1VNvPnbz5KqY3d9+gWB3LTaq4ni1PoADPT +IqaQA0q/RPy7sJ3ulC8zL+JA841TLaYSFBLPHLzzsIQDd+0WHg5iJ4e78R7c +58DH+ah2aykKxepo7q96xgFhaVWhkeUUCsl8GVrRxYEfQ+GjggoUcpAetArv +5oCfgcA1N+y1yQJSzF4OfOjdMZeNPRhuUlI+wAHzBMN6S0UK7XHJGb03woFB +zUNxYTQKeYtGhJX94EAka7y4SZlCWyJUDhUrElCn4JtloU6hZzmnHNOVCJAW +yu9MwrZqndKMUSHgnfO7h/9iG2m9/GijTkAD77F74CoKKX84ZvOfFgE9vT5z +iRoUGrb8oihuQkBh4MmFMjqFLgrlPg72IKB8o/iNRm08f0PJLOcdBKxJUywU +WkOhk34x4SwvAjT7bjkBdsx9tzULvgR81dULq8HeQwqmXWETsHrHXdmitRRi +tbA5zw8T8MxN7G20LoU+pGlJMFIJYPY6zjzXp1Apkto7lEbAIcFSZwr75CjV +WHKJgBR9d2e6AYWYDo3x5pkEqPjabI3DThEImnLOJiAyXH6doSGF7A/mfowp +JkDZe7DghBGF1NTOmG4qJeDykoALd7GploOXhO8R4CFRqdaBfVMbOadUElDd +9sVccz2Ffn35Up9XQ8B51yve9dj3nVQLXzUTEFVUaz7EpNC5H0Kil1sI8O7f +e1eCRSF2IW+PTysB/SuuNRlgy4jUqPa/JuCWSeL3COzQWu+Lc+9xf2bVhh/Y +DN0r0ZoDBFyZL/T6bkyhHx/i2rmD2Bsi3FaYUKgtmTAqGyKg8WzM5Hrs+B5j +nsUIAfZujHWh2J+y2ne58gm4pp+c9Bk7fYms3VFBEjpLBR4Wm1KobuqLX6Qw +CXKKZSLN2N++FIWHiZIwseZefy+21X3bXPYyEhplMv1oZni/Bcb8dJTF39+K +0jyGLeNkJ2cnT8LRM6Yil7A3mMnpIAUS2Nla0UXYqVLFO1nKJCRkx8l0LrbX +fC1XXU2CUnueuoE5hciC4mYFBgmfizgXrbFTU498Xa5Fwn0d4/Sd2IOkvJSI +DgkNrRPOcYvt8lv2jhiRYNWSeP05ds1v+YRBJgkR4Tuz32MPcLszuo1J0GBo +rP+GbVl/tKHDnITy50mSSywo1B9aqv4Y8HyObPx7M7a09zGTh9YkeNhxdF2x +LWy2OpXbkqC2f5+TP3aKcu+Rgq0kMEhR+yjsRyJlqTmOJFg+zlQ7jt03fuz2 +X04kbA5fOHUe27xJ4d0FNxKq2u2X38Rml/cOn3YnITiXblCMfeFamdAJTxKy +JVq7qrB7wx2Mor1xfmfi9AtsqQDFLYd8SUCzZ/zaFvMc+naF+JMQa+zt0bnY +f1XcuYBAEpb72M8OLtYj7njTm01Ccza7YHQxb1qx2p2D16MW+vmLeT19r51I +PP7Fr/fnFvNa7w3a7yWhVHoTbWGxvodxvyCEBJvNfhIiljj/puOKDaEkfLc2 +TVuK/egCTc8kjASOzatCSezemP7NhodIWHKK7i6DLckp99YJJ8GAzbwgj23m +Gn+QEUmCqM0vH0VstuW2U2rRJPx5+8QjJezzWkrXaTEkZNCfFapgP5AZqJQ9 +SsJH31rdldg9P8tbJGLxfhAP26S2mP8tvkc0ngQhwU99izZ9u212IYGEM6sW +VNSx/w89jK+d "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1442,104 +6154,106 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= +1:eJwV1HlYTdsbB/BmNGlQp0HJORWVBuc0i/VqojSpaJSczt6RhKYbmkiGi1Sk +7kVFRdKgEhr4RUk3XaIQlzTrnObOTkX0W/2xn/18nrXXd71rr2E1+6A7ISQg +IDCEn8X34VcGax62vdrkVemhJSjORZvG8k3YtsUor/Qf50V355he1rStQ11d +a18s2o3zr5gk6zli2B5OE8Iuj0loELVtRQe6bhYLY59tUqpPKHqDpkseK4li +V7cdzp5nvkM9FU/fiWHzPrXEHqntRO6jpX1LsVUGGH7fbT6jq7uSrSWwt43H +WkS0fkWjwnZTUthP5nkSMUU96Gr36JQM9vvjtGMPwvqQNJVguwJ7TMyWRzEH +UPymn4M0bLHzh3xYM4MosX73J1VsddnrzYdrh5DX0RJ1DWwX1e+3xmxGUF+m +yN862GQuXVF/6Ri6Oi/1xgA7Qcs1eX/rOGJfFfAxxu6kdayPLJpE2Wdv+AE2 +xzdk36XzU2j3J9f39tgT1wRuVITx0XDwtxvO2Evp+jKTzGm0yeqtnj/2ZU7D +FhmF7yj/pBYvCFvjtk+C4cx3JCjFntuPbb7u1NiB2llk1HNFPA57r+nXVp7N +PEquGJ+5iU3FRImIa/9CrgoXNpZgJ9ZKWOks/Y3U6+U7HmJngfnd4NYFFDr1 +mf/vYn0FzbbhRYKwfzjg9y/soqZL3cdVhYB2z/6luASu91tAbNp5IXjeROPS +sGN1pyvvhQnD4HgUjYV9uWw1Y5wpCpU+dHQA+1PbyJPfeaKg88HzUiy2xtRD +X2kFMbhWccj8PHaxsUu6/owYfDjLiSrGbqw+KhhauxQihqxqJrCnG9q/DtlI +AjlRfvCMJBfJOUnKHHsiCa3BWheysY06bEHKQgrcT5Yvq8IO6a/KXW8gDRkP +5DX6sA8JtRptlJSBx1sFntlIcdEAvXQy+bssqMfEflKUxv+HbFn2miUHkbHH +uExsobuDq5UOy8GU2yUvV2wN1ir3omE5OBsltf0stq9NasWrbnnI+qVXLbic +i14HhUfQXiqAedqKABEZLuq6nXIucKkiNE7cCNDGHhkuyrtjpwj3XbY+2Yot +HtnXvqFeEQjZ7r9TsG1PehoHVtFglbDVP+qyXFSTbzpdmKMMT2mFP9zkuCh/ +4Ee0ZaQaVMhx7s2v4KKtO053RZSoQTJZcGqNAs5vlLcvGVSDEbe2Mnds4/x1 +Cho+6qA00fvjDnYjO6BSdNMqKE/+GeGvyEVT491/DCVpwEuvn5NtNC6SP2B7 +v9KZDmYuG9VmVbhoMF98r1sIHSL6Kt30Vbno0ec21dFTdHijv+IDG9vfaVeS +dj0dMnrSPr/CzteLdv+LyYDgJ8dbilbi8Xm3J+JpmtD8mskMV+ciz2AJfcce +LZhKf2OE6FyEoncwvX5pwTmv2ONx2LrJOWYcZW0Yke9cXYctkMeyjt+uDTuC +b263ZHBRSZefV8VTbShTPXHAUhOfz53Fx1VuroEcIuSKgzauz9b5PY+tA9pD +dcV5ulyU55H530y8DnSz4vnD2Cnsnm6RqzqwvX38rLEe3t+JUcPq7Trwbqyv +oAlbtu66gIeNLoRXS/89tg7vH9aYbi1DDyqWB0c4G3KRKv1iwrn+dbDl9Geu +vTEX1f1J6cwJ6cPVzzn0XGx/vk8HuVoffpVpV89hZzdq6lgH6IPZ2fiFEhMu +ogfXvJ39oA9HBXZMqpjh+RYPaJEvDcCv4dw+MUsuUlNVJzV8jCDc8+RdBnDR +uoJIyZ+ICdODMQf/cOYiNidpWt+FCU6CD1K7sbMY6V2B/kzosMkUdnThIuGb +ZfeaYpigcM+uS80Vn7dsnmd6ORMOK7gE/+OG79OswOs6DBbcNRt+YeiJ1/ec +k4G3mDE0G61/ZuHHRTfCNd2qWk0gwNE41TqEi9qikdnJAgswymPWmF/kotUB +71x2hW4ExjN9Cc9qLiIWHpSqHQHokYmbaRngItrwoyU0tjUUyZ54ckuVhyJZ +Vp/TdW2h1no418SDh9ij883yPDtgblx7JCuFh0qsI5bkvN4C+UlvtyV28FA+ +FfK0+LIDvFBfJf5GZRjNblb6tzFhG5TurHiSFDqMvggIT/bscQaDtWrz654N +o7CVB1OPM1yBNn8fPiiOoNJ9zfUZyW6wLbBc7ukfI+goX3lGb992OEys3df5 +fgRNO9rvfLHbHdKiDTP/Zz2KLPzSNg9s94Cx4iC9oPJR9Fb5ekgjyxO+XR8I +Sl85hlRuJdUVrt0Bk1w+vL08hh516zq5SO0ER+tmvYyl40i9YyI4enQn8PeL +DonEjSNWRlpxXrcXvE61DNnwexxdF+EbpDd4A/3Zc60Uqwn0YLPhp+RqH9DX ++epAT5xAWWZ/ys4X+UJ8f94Ro4YJ9Pq/glOs836gqXC8TUFoElU5X9M8lOgP +vFTDpd72k2jygIdAGGcX1I9qmTQnT6Jpe529YzYBsFNGY3JPwyQqHP04G2G6 +GwosjRcMRKeQ942CoF2SgRB04doLi81TqLJi227h04HwqlvUd2/iFLJQfTt3 +di4QbqCZXOPqKcToDv70Zt8e2NNvYH54bAr1S+x3vda3B678118kosVHbSku +QVt2sKGe7FfL8OSjyzE5ElFtbPifYiMlcpKP6p4szAU5BIHhfkaGaCkfLfeH +06yaIHiaXc5rauMjjRUvXq+sCwJHh3PNHm/4yKjVWUnsSRBULfi7dWO7W/nd +6XwaBOlbUnfNvsX5K6Nfxv0TBAEtr/ZrvuMjlS93lzd3BsGj9xm2oR/5SDOA +luU/EwRiEku21/TwkUXgWGGyMQf+Uv7tuG2Sj279NRHhYsqB7U1+q2uwV7RP +baKZc4Bjtblw7RQfjdnNdBRu4MDtcuKFCJ+P7y8BwVZrDoA+6VBN8ZH0jKyP +3HYOiPdNusjP8lH/BZNlOQc4oK1VNvPnbz5KqY3d9+gWB3LTaq4ni1PoADPT +IqaQA0q/RPy7sJ3ulC8zL+JA841TLaYSFBLPHLzzsIQDd+0WHg5iJ4e78R7c +58DH+ah2aykKxepo7q96xgFhaVWhkeUUCsl8GVrRxYEfQ+GjggoUcpAetArv +5oCfgcA1N+y1yQJSzF4OfOjdMZeNPRhuUlI+wAHzBMN6S0UK7XHJGb03woFB +zUNxYTQKeYtGhJX94EAka7y4SZlCWyJUDhUrElCn4JtloU6hZzmnHNOVCJAW +yu9MwrZqndKMUSHgnfO7h/9iG2m9/GijTkAD77F74CoKKX84ZvOfFgE9vT5z +iRoUGrb8oihuQkBh4MmFMjqFLgrlPg72IKB8o/iNRm08f0PJLOcdBKxJUywU +WkOhk34x4SwvAjT7bjkBdsx9tzULvgR81dULq8HeQwqmXWETsHrHXdmitRRi +tbA5zw8T8MxN7G20LoU+pGlJMFIJYPY6zjzXp1Apkto7lEbAIcFSZwr75CjV +WHKJgBR9d2e6AYWYDo3x5pkEqPjabI3DThEImnLOJiAyXH6doSGF7A/mfowp +JkDZe7DghBGF1NTOmG4qJeDykoALd7GploOXhO8R4CFRqdaBfVMbOadUElDd +9sVccz2Ffn35Up9XQ8B51yve9dj3nVQLXzUTEFVUaz7EpNC5H0Kil1sI8O7f +e1eCRSF2IW+PTysB/SuuNRlgy4jUqPa/JuCWSeL3COzQWu+Lc+9xf2bVhh/Y +DN0r0ZoDBFyZL/T6bkyhHx/i2rmD2Bsi3FaYUKgtmTAqGyKg8WzM5Hrs+B5j +nsUIAfZujHWh2J+y2ne58gm4pp+c9Bk7fYms3VFBEjpLBR4Wm1KobuqLX6Qw +CXKKZSLN2N++FIWHiZIwseZefy+21X3bXPYyEhplMv1oZni/Bcb8dJTF39+K +0jyGLeNkJ2cnT8LRM6Yil7A3mMnpIAUS2Nla0UXYqVLFO1nKJCRkx8l0LrbX +fC1XXU2CUnueuoE5hciC4mYFBgmfizgXrbFTU498Xa5Fwn0d4/Sd2IOkvJSI +DgkNrRPOcYvt8lv2jhiRYNWSeP05ds1v+YRBJgkR4Tuz32MPcLszuo1J0GBo +rP+GbVl/tKHDnITy50mSSywo1B9aqv4Y8HyObPx7M7a09zGTh9YkeNhxdF2x +LWy2OpXbkqC2f5+TP3aKcu+Rgq0kMEhR+yjsRyJlqTmOJFg+zlQ7jt03fuz2 +X04kbA5fOHUe27xJ4d0FNxKq2u2X38Rml/cOn3YnITiXblCMfeFamdAJTxKy +JVq7qrB7wx2Mor1xfmfi9AtsqQDFLYd8SUCzZ/zaFvMc+naF+JMQa+zt0bnY +f1XcuYBAEpb72M8OLtYj7njTm01Ccza7YHQxb1qx2p2D16MW+vmLeT19r51I +PP7Fr/fnFvNa7w3a7yWhVHoTbWGxvodxvyCEBJvNfhIiljj/puOKDaEkfLc2 +TVuK/egCTc8kjASOzatCSezemP7NhodIWHKK7i6DLckp99YJJ8GAzbwgj23m +Gn+QEUmCqM0vH0VstuW2U2rRJPx5+8QjJezzWkrXaTEkZNCfFapgP5AZqJQ9 +SsJH31rdldg9P8tbJGLxfhAP26S2mP8tvkc0ngQhwU99izZ9u212IYGEM6sW +VNSx/w89jK+d "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.7824712494890304, + 1.2641888670495707`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.7824712494890321}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1551,130 +6265,132 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.7824712494890304, + 1.2641888670495707`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.7824712494890321}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{120.79808473007536`, - 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k0Vd0bB3BzEjJmCmWqS0qu4YrsJ/ci8yyExD0neZUxr5Ch0qSkUqlX -URKJhChDUnlLUvQSpcgQleneZKrEb5/fH2ed9Vl77ef5rr33Onud1YFhrgQf -Dw/POH6od8Tr9Wvut702j/dMVd14g4PMJ24YBrKKUUqplRrlvhyjTA1WHQo4 -cUKbsjP7lZAo/V+0bdiZQbksNumpIKsF0Z9esqN8/Jl8Q1LRG+SvSrApV7dF -XJ3Xf4vO/Sw/SHmkuzlhf+07NO106CZlxSH17TPMj+jgqs5WynacBJOolk9o -Mvj2AuX6+ZFlsUX96K4WP10fuzNFLr5q7yAy9ewJpTwhxBqZ0h9C7VMmxZSF -ToZ702eH0d8L8t8pq0heaYqo/Yq8wuJM6diOSjM3J5hjSHVfYx9lMldtha7w -BIrjKTE1wE7SdEr9q4WDTPvksim/k+vYGF30HYWmRu8xxGb7hOw+d3ISLUdk -L2VuNs+18r0/UI1Bt7sRtrCarsR3/WmU8WCrqzF2JvuptYTsDHJgMN9TXlXg -nbRhdga97XxEMLAZ645M7KmdQ4bO6LQJdrDRp5YR5jzimnlqmGFPxe4TENH6 -g3gaArooJ9cuM6MJLyBt+fHTm7GzgHF7V8siClRJk0RUvvwmVmQRL7hZfPC0 -wC56dq4vRYkPmIY/DJlU3i/+CWdO8kFlzklFFnaC9nTF3b38kHyTOWVJ5S1d -rc7RF4TcmYZvNtjdbWP1C3mCsFxjcMqWyj9530dcVgh6PI8I2mMXGzie1Z0V -guFTTsaO2I3VcbyhtcJAixn96Io9/bT901emKMi2mOj5YUvZi0rE14vCtP/h -Mn9svQ4WiJmIQVqepUkAdsjnytyN68XhQpeObxB2OF+L3mZRCWj8doizG3tI -7c731BlJMDGzsY+l1odsXtpKlwKJtO8Gcdh8t4dXy0dIgXWpuEYClZeu6lo0 -KgW132/KJmP7MDPKX/dJQ3+WndUx7NagyCi5l7LQ+c6y5xJ2b0F6WoDwCgju -0tbNxh4bLcq7ZbkCrHYcPHQVWyR6sN20YQWkBx9j5mGzDrsbBFTKwWLXqEQJ -ds0No+nCHAXY9vdI32PsG0O/YjZFK4ObyUF3LvZWj6O9USXKEPzLcfMPqn6j -tFXJsDIcza3UmcE2uLFOdpW3Ckx9dVKYp9Yz0L9C0FwVHiZXGAvnc9Akp+/v -r4dWQbu7eMpqbOk9rHsVDmqQffAhywt7+IZIsHOIGtDKQ/q2Yz/42KY0fkQN -mJdvp+zA9rX3O6TVoAbBD750kNg3dGJcL+mrw4A8s34ftsFIATdRTgO+Vrln -Z2K771qma9uvCbbHWYc7sVGMh/62P5qgouxY142tnZpjzFbQgtmG4p+92Dx5 -dItEFy14ZRF8+At2Se/2beWPtWDR/837OWwhz+IUxetrYM9hg8Mrb+J8LIfO -kUAaPJ+MfLsLO8/t4ofZRBocI67dD8VOD+zvE/iHBim5K3MisNnJ+0ZV2mkw -6Dx3IB5bsu4KjxtTG4rqzeJPY4fQJ7Rr1XVgx2B11ANsJbXTSWmf18HSDTE+ -4gUcVHdiivaTTxeCHhn6y2D7/vDuIFfrws48rWBF7KuNGjQLf13Y1nQ5XQtb -bVfNf3NduiCu9lgTYWsXD2mSL9eDd9qthAhsZSUVcpW3HuzT57zoxl6XHy36 -G+lDbY/ai0eFHBTIPjSt66gPD8uzO55hZ6mf7Q3w1Yci4cChV9j810vvPovV -hwNnXq34iN19dcT9bJk+XE9YWT2HfTwr4ApNnQ5x46a/9W/h/U2zX+8lZACm -5w5G3sa+FqnhXNliCMNvjGSKizioLQYZH843gYqZ6jWqJRy02v+to1/oZjBm -d3AHSjmIWKy6o7wf4JvM/t5n5RwkN/pgiVygBZj3cBfMqjgomm728aw2Cwb4 -N5U+rcb5x+ebpEcsIcqlYEnCQ7yfFlFLclqtgRFp3NXyGJ+fqZDHxZk2ECWw -6b3UMw6a2yL/qjHJDpYGqj+dauagHh7+7/07HWBDaPOR360ctHdlWEaKuhOs -M/2g9LGDg+7sbmo4n+oM0r9kuj26OSjuh8Kszm4XcA8au3bpE/5+2Fp5Pt/h -CpmbWQuRQxxksv3MliEXNyh5u9vAeZSD/lO4EtJId4fmII/GXi6+T24eqitc -6wFpCV7dMzP4fPVp2zuKecIv0UCd8nl8H3Rwd8WMewK/cGK6Ni8X0c+fKc7r -2waxshczGQJcdEXgx/qzT71g7a3qZ+JLuKhqy4bu1GpvsK/5fFlRhIuyjE9I -zhf5gDUSShMT46LWD/lH6Ce3g/DtFtPHy7mo0iFbIzzZF6qmb2VdleKi73vc -ePay/cDjzbN/GLJcNG1FC55g+gM79XVimRwXFY6/n4sy2gFk/Htea0Uu8rqW -H+QnGgArKxXmzq/koopyux38RwNAPanSdFaFi0yU/vt5/GcAlJGJWyRWc5F6 -367uN7t3gvWmgooFNS76vOwvp+zBnRCerzbE1eCitnTHIGuPQLgdc0I+W4uL -MmNzlu1rC4RIi863aC0X1dUv/gyyCQK+e+Pb7tC4aLkvHKXXBIGFVI9wtzYX -rZJ53rqyLgiq7KcberH1WhzkheqDwKVwdt8gtqvZ9lvvHgdBjE915xh25sqY -lwdeBMHJD1pRi9iKPbeXN70LAtZlXzkNHS7S8JfL8p0NgtbQNyJ/YZsETBSm -GrChbs2FNA72zUvcKEcjNujUPWL8wJZpnzSXY7Chtk1rcAZ7wnK2o9CUDeap -xRsWsG/o8PC2WLChK/J0geg6LhKflfSWcmFDaWmiFA378ynDpTl72LD1Ktm+ -A9vluXHHrjA2XOe2rAnCrufZlKMXwYa5yN37SexLUeaGT6LZcJfGktmD7eht -vXMong1rveLWxmFXa3hX65xgg5V8TfM57PTahN0PbrJhd4n0dCP2Hv2LJrGF -bPhbqa/vObb9rbKljCI2DG2Ye9GMLXJx+Nb9EjY8yhDJbMNOjXQeqbrHBjOV -iiUfsRNoGn9VPmGDqMdo6CR2yMWXoeW9bGAcatBV1uUiG/Fhs8g+NoS7FD1R -xV6byiOmP8AGZeh2V8MejjQsKRtiw4n3yyLWYO90zBm/O8YGvpSyYxuxvQSj -9pb+wv3dBw0ssa2jFMOLVxDw/FprUgj2k5wjtmflCZik/zseim3WMqkRq0jA -nwtJXmHYepov3zNVCKiXt9CIxlboimd+0CSgQO5n5gHs0U09K0QMCWjYKPzh -NPZpvtyHu9wIePgxea4MW2SDaJaDBwGdEXULFdiHt8dG0rcRwHf+Pm8Vduw9 -5zWLPgTYjY/+qabyk7xnLgQSoPZia+tjbHpzIPvfCAI2y1S8bcPuOqO5TD2D -gLQ3HuFj2HeQWPDXMwQ8Ni6aHKfqj081lpwjIEBUK5KDrW/TmMi4SID61XPB -k9jpPEGTDlcJeFfDpM9hW4Xlvo8tJsBk3SDiX89FysrHjMzvEOCyNS9TAHuq -Oewc/10CdP2ODwtiX9dCDukVBDAUn6cIY//p6WnIqyGAJ03oghj2PXulwtdN -BGjpHjKUw077xSeY2UxAsuAlX3nswMKRnd4tBAhmtCcrYEsI1Ch9biXAJ7yq -QQk7tNbr9M9OAiR9NqqswlbXvhCjMUTADrsxp7XYv7oOtH8bJqC9i2VDw25L -JfRKvxKwuNCAtLET+w1GTMYIEOtV11iH3Z3V7uf0g4AU3bPNG7DPLpG0jOMl -IXqVQLoRdt1kz/ZofhImni6LMMb+0lMUuVeQhIF/UpwZ2Gb3WLmBS0nIu3Zf -YBP2cEDsb1tJEmpV7Sw2U/ntLaUspUlYlfxE2Bzb1FiKhmRJcDlV8JJyhlix -J12BhCdhNVZAjdd8KlNaTYLZXV4pJjaZX9wkq05CYtvnWsoZGfs/LdckwXot -/i2h+pHSYgI0EnRtlG9YUuPS1sFjerjf2NI/1tg1C9JJw/okbA70OLEVe+hb -3/k+AxK4xWIyNtibGuKedjBI0MxsXGmL/Tn0jspDIGEo1ZbfHlvcK97wvgUJ -X+J+R1E2YW61L2ORMP9Dvp9yusLA/vytJGQ6XbrrgP1AoDQjx5aEXavnpRyx -BznxBZfsSZjyeBlBmfFM9u0pZzy/6Y6GE7XfZQOjR11JUPz5JJbyqexSvoPu -JKwJY76gPBBpoxfjRcIx6eM7nLHF/FdYh/uQ8K+hYz5lhs2gX4gvCS9Tk75Q -PqV6IM0/gASTy1o7Xag8IrbXvQJJeOeenUV5YHpFtSubhHJaYgtlsf7BVnuS -hGyZlnnKjJa7w1bBeFzyCM2Vynf/wB8IIcFPudiV8qnrtjKmoSQ4GpjHUn5w -Sk7HcC8JKW5mlykPxH7esiGcBOPYmw8oi7LLvGiRJPDmJrRTNnZKDFOPJqGy -qX7k//U32R1RjiEhhhu6QPmkpvwVuVgSSmSPirthV0kMVUjGkSBhLKZEuf93 -WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= +1:eJwV1HlYTdsbB/BmNGlQp0HJORWVBuc0i/VqojSpaJSczt6RhKYbmkiGi1Sk +7kVFRdKgEhr4RUk3XaIQlzTrnObOTkX0W/2xn/18nrXXd71rr2E1+6A7ISQg +IDCEn8X34VcGax62vdrkVemhJSjORZvG8k3YtsUor/Qf50V355he1rStQ11d +a18s2o3zr5gk6zli2B5OE8Iuj0loELVtRQe6bhYLY59tUqpPKHqDpkseK4li +V7cdzp5nvkM9FU/fiWHzPrXEHqntRO6jpX1LsVUGGH7fbT6jq7uSrSWwt43H +WkS0fkWjwnZTUthP5nkSMUU96Gr36JQM9vvjtGMPwvqQNJVguwJ7TMyWRzEH +UPymn4M0bLHzh3xYM4MosX73J1VsddnrzYdrh5DX0RJ1DWwX1e+3xmxGUF+m +yN862GQuXVF/6Ri6Oi/1xgA7Qcs1eX/rOGJfFfAxxu6kdayPLJpE2Wdv+AE2 +xzdk36XzU2j3J9f39tgT1wRuVITx0XDwtxvO2Evp+jKTzGm0yeqtnj/2ZU7D +FhmF7yj/pBYvCFvjtk+C4cx3JCjFntuPbb7u1NiB2llk1HNFPA57r+nXVp7N +PEquGJ+5iU3FRImIa/9CrgoXNpZgJ9ZKWOks/Y3U6+U7HmJngfnd4NYFFDr1 +mf/vYn0FzbbhRYKwfzjg9y/soqZL3cdVhYB2z/6luASu91tAbNp5IXjeROPS +sGN1pyvvhQnD4HgUjYV9uWw1Y5wpCpU+dHQA+1PbyJPfeaKg88HzUiy2xtRD +X2kFMbhWccj8PHaxsUu6/owYfDjLiSrGbqw+KhhauxQihqxqJrCnG9q/DtlI +AjlRfvCMJBfJOUnKHHsiCa3BWheysY06bEHKQgrcT5Yvq8IO6a/KXW8gDRkP +5DX6sA8JtRptlJSBx1sFntlIcdEAvXQy+bssqMfEflKUxv+HbFn2miUHkbHH +uExsobuDq5UOy8GU2yUvV2wN1ir3omE5OBsltf0stq9NasWrbnnI+qVXLbic +i14HhUfQXiqAedqKABEZLuq6nXIucKkiNE7cCNDGHhkuyrtjpwj3XbY+2Yot +HtnXvqFeEQjZ7r9TsG1PehoHVtFglbDVP+qyXFSTbzpdmKMMT2mFP9zkuCh/ +4Ee0ZaQaVMhx7s2v4KKtO053RZSoQTJZcGqNAs5vlLcvGVSDEbe2Mnds4/x1 +Cho+6qA00fvjDnYjO6BSdNMqKE/+GeGvyEVT491/DCVpwEuvn5NtNC6SP2B7 +v9KZDmYuG9VmVbhoMF98r1sIHSL6Kt30Vbno0ec21dFTdHijv+IDG9vfaVeS +dj0dMnrSPr/CzteLdv+LyYDgJ8dbilbi8Xm3J+JpmtD8mskMV+ciz2AJfcce +LZhKf2OE6FyEoncwvX5pwTmv2ONx2LrJOWYcZW0Yke9cXYctkMeyjt+uDTuC +b263ZHBRSZefV8VTbShTPXHAUhOfz53Fx1VuroEcIuSKgzauz9b5PY+tA9pD +dcV5ulyU55H530y8DnSz4vnD2Cnsnm6RqzqwvX38rLEe3t+JUcPq7Trwbqyv +oAlbtu66gIeNLoRXS/89tg7vH9aYbi1DDyqWB0c4G3KRKv1iwrn+dbDl9Geu +vTEX1f1J6cwJ6cPVzzn0XGx/vk8HuVoffpVpV89hZzdq6lgH6IPZ2fiFEhMu +ogfXvJ39oA9HBXZMqpjh+RYPaJEvDcCv4dw+MUsuUlNVJzV8jCDc8+RdBnDR +uoJIyZ+ICdODMQf/cOYiNidpWt+FCU6CD1K7sbMY6V2B/kzosMkUdnThIuGb +ZfeaYpigcM+uS80Vn7dsnmd6ORMOK7gE/+OG79OswOs6DBbcNRt+YeiJ1/ec +k4G3mDE0G61/ZuHHRTfCNd2qWk0gwNE41TqEi9qikdnJAgswymPWmF/kotUB +71x2hW4ExjN9Cc9qLiIWHpSqHQHokYmbaRngItrwoyU0tjUUyZ54ckuVhyJZ +Vp/TdW2h1no418SDh9ij883yPDtgblx7JCuFh0qsI5bkvN4C+UlvtyV28FA+ +FfK0+LIDvFBfJf5GZRjNblb6tzFhG5TurHiSFDqMvggIT/bscQaDtWrz654N +o7CVB1OPM1yBNn8fPiiOoNJ9zfUZyW6wLbBc7ukfI+goX3lGb992OEys3df5 +fgRNO9rvfLHbHdKiDTP/Zz2KLPzSNg9s94Cx4iC9oPJR9Fb5ekgjyxO+XR8I +Sl85hlRuJdUVrt0Bk1w+vL08hh516zq5SO0ER+tmvYyl40i9YyI4enQn8PeL +DonEjSNWRlpxXrcXvE61DNnwexxdF+EbpDd4A/3Zc60Uqwn0YLPhp+RqH9DX ++epAT5xAWWZ/ys4X+UJ8f94Ro4YJ9Pq/glOs836gqXC8TUFoElU5X9M8lOgP +vFTDpd72k2jygIdAGGcX1I9qmTQnT6Jpe529YzYBsFNGY3JPwyQqHP04G2G6 +GwosjRcMRKeQ942CoF2SgRB04doLi81TqLJi227h04HwqlvUd2/iFLJQfTt3 +di4QbqCZXOPqKcToDv70Zt8e2NNvYH54bAr1S+x3vda3B678118kosVHbSku +QVt2sKGe7FfL8OSjyzE5ElFtbPifYiMlcpKP6p4szAU5BIHhfkaGaCkfLfeH +06yaIHiaXc5rauMjjRUvXq+sCwJHh3PNHm/4yKjVWUnsSRBULfi7dWO7W/nd +6XwaBOlbUnfNvsX5K6Nfxv0TBAEtr/ZrvuMjlS93lzd3BsGj9xm2oR/5SDOA +luU/EwRiEku21/TwkUXgWGGyMQf+Uv7tuG2Sj279NRHhYsqB7U1+q2uwV7RP +baKZc4Bjtblw7RQfjdnNdBRu4MDtcuKFCJ+P7y8BwVZrDoA+6VBN8ZH0jKyP +3HYOiPdNusjP8lH/BZNlOQc4oK1VNvPnbz5KqY3d9+gWB3LTaq4ni1PoADPT +IqaQA0q/RPy7sJ3ulC8zL+JA841TLaYSFBLPHLzzsIQDd+0WHg5iJ4e78R7c +58DH+ah2aykKxepo7q96xgFhaVWhkeUUCsl8GVrRxYEfQ+GjggoUcpAetArv +5oCfgcA1N+y1yQJSzF4OfOjdMZeNPRhuUlI+wAHzBMN6S0UK7XHJGb03woFB +zUNxYTQKeYtGhJX94EAka7y4SZlCWyJUDhUrElCn4JtloU6hZzmnHNOVCJAW +yu9MwrZqndKMUSHgnfO7h/9iG2m9/GijTkAD77F74CoKKX84ZvOfFgE9vT5z +iRoUGrb8oihuQkBh4MmFMjqFLgrlPg72IKB8o/iNRm08f0PJLOcdBKxJUywU +WkOhk34x4SwvAjT7bjkBdsx9tzULvgR81dULq8HeQwqmXWETsHrHXdmitRRi +tbA5zw8T8MxN7G20LoU+pGlJMFIJYPY6zjzXp1Apkto7lEbAIcFSZwr75CjV +WHKJgBR9d2e6AYWYDo3x5pkEqPjabI3DThEImnLOJiAyXH6doSGF7A/mfowp +JkDZe7DghBGF1NTOmG4qJeDykoALd7GploOXhO8R4CFRqdaBfVMbOadUElDd +9sVccz2Ffn35Up9XQ8B51yve9dj3nVQLXzUTEFVUaz7EpNC5H0Kil1sI8O7f +e1eCRSF2IW+PTysB/SuuNRlgy4jUqPa/JuCWSeL3COzQWu+Lc+9xf2bVhh/Y +DN0r0ZoDBFyZL/T6bkyhHx/i2rmD2Bsi3FaYUKgtmTAqGyKg8WzM5Hrs+B5j +nsUIAfZujHWh2J+y2ne58gm4pp+c9Bk7fYms3VFBEjpLBR4Wm1KobuqLX6Qw +CXKKZSLN2N++FIWHiZIwseZefy+21X3bXPYyEhplMv1oZni/Bcb8dJTF39+K +0jyGLeNkJ2cnT8LRM6Yil7A3mMnpIAUS2Nla0UXYqVLFO1nKJCRkx8l0LrbX +fC1XXU2CUnueuoE5hciC4mYFBgmfizgXrbFTU498Xa5Fwn0d4/Sd2IOkvJSI +DgkNrRPOcYvt8lv2jhiRYNWSeP05ds1v+YRBJgkR4Tuz32MPcLszuo1J0GBo +rP+GbVl/tKHDnITy50mSSywo1B9aqv4Y8HyObPx7M7a09zGTh9YkeNhxdF2x +LWy2OpXbkqC2f5+TP3aKcu+Rgq0kMEhR+yjsRyJlqTmOJFg+zlQ7jt03fuz2 +X04kbA5fOHUe27xJ4d0FNxKq2u2X38Rml/cOn3YnITiXblCMfeFamdAJTxKy +JVq7qrB7wx2Mor1xfmfi9AtsqQDFLYd8SUCzZ/zaFvMc+naF+JMQa+zt0bnY +f1XcuYBAEpb72M8OLtYj7njTm01Ccza7YHQxb1qx2p2D16MW+vmLeT19r51I +PP7Fr/fnFvNa7w3a7yWhVHoTbWGxvodxvyCEBJvNfhIiljj/puOKDaEkfLc2 +TVuK/egCTc8kjASOzatCSezemP7NhodIWHKK7i6DLckp99YJJ8GAzbwgj23m +Gn+QEUmCqM0vH0VstuW2U2rRJPx5+8QjJezzWkrXaTEkZNCfFapgP5AZqJQ9 +SsJH31rdldg9P8tbJGLxfhAP26S2mP8tvkc0ngQhwU99izZ9u212IYGEM6sW +VNSx/w89jK+d "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.7824712494890304, 1.2641888670495707`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.7824712494890321}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1684,7 +6400,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.9887929549829141}, + AxesOrigin->{0, 0.7824712494890321}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1712,7 +6429,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7824712494890304, 1.2641888670495707`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1720,9 +6438,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991333813212965*^9}, - CellLabel-> - "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] + CellChangeTimes->{3.991333813212965*^9, 3.993917560545869*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"cec5fbfe-590a-422c-907d-f4c93306f5e8"] }, Open ]], Cell[CellGroupData[{ @@ -1785,372 +6502,168 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849261714945*^9},ExpressionUUID->"24fa5db0-1063-354a-bd60-\ -c117a27ff3e1"], + CellChangeTimes->{3.991849261714945*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.0784227471040894`*^-281\\\", \ -\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 252, 225, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813432829*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.918737299701927`*^-264\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 126, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993917560715464*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +In[95]:=",ExpressionUUID->"75c2a81d-ea05-49b6-bbbd-9a1062e26c2a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9214123648785273`*^-295\\\", \ -\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 252, - 226, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813442087*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3825289819072044`*^-275\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 127, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993917560723988*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +In[95]:=",ExpressionUUID->"aeac1eb1-3d56-4d53-a6ba-0777d7c48ffd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"-\\\", \ -\\\"9.614868462060315`*^-8\\\"}], \\\")\\\"}], \\\"44\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 252, - 227, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813450123*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.87755682412995`*^-287\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 128, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.99391756073365*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +In[95]:=",ExpressionUUID->"846d5492-d284-490b-a9bc-7667b3dc6fb0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813469118*^9}, +during this calculation.\"", 2, 95, 129, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993917560741869*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +In[95]:=",ExpressionUUID->"f80a219b-56ed-4be5-a300-0cd5d3d75321"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8lf8XAHDRpGTv8dzrorJH9nWOhuwVEtLNSNJQ+TYoq5RSIsqIskuF ++1yU0RAlGlJGRigafkJkJvJ7+uu+3n/dzzmfMz4Pzfugkx83FxeX9CIurn+/ +Uz0NzxixuaaMOXb6duENpi03JE6YtUfB+Vta6qVJBKDoW2+J9iuwNaCDFpek +CUcd7nzgac8G56C/x4KTEARHxK/8/sABXBQvYpvkAL0P7Q5OfKiBmjZC5W0i +C8wZg91jH96Dmnncie8JQfD7g/7V0Q99oJrT8MLpQgTUbryV+y57HI7zpJvs +kkwAmd6Kb96q8xBU5qZeIZYKIvt23lm2kQc1ZgRG1lhmwhUt8yo7l+X4o6Lu +CYrnQkeKZvWYwCrcsT9tXtbjFsTmhr/llhTEkw96A23P3wHxpP7ziRnC6FWp ++8t0QyFIqJSdmckXxoDFA1syrAtBquZs+A62MEYmq7InnQtBbnTtf8q1wvi/ +3KKSJP9CULQJYlUNCGPO3wG/2IuFoLN4Xq9fRwQ7Ljgdd28tBPtgsS/aL0Uw +vNCv7ph3EZxztjR9PyWKPaXecif2FoNUaaMU9yIx9Lbg850/XAxFws7TWnxi +GPWoZG9IaDG0vfdiJ8iLYXt2zAOvi8XAcAymO1qIYXpniH5TYTHU2N5c2pQq +hmSYtbTrz2KYN59sfGMijgz3S6rBemyIzw+5O28ujr6bd2WZGbGBsZQrRs1R +HO0P+gbymbLB5jmv2SU/cdQWHJxP3MyGtI1EiU2cOL590SF6wpkNBmid/KpX +HDekzH68cogNRwyzdjZESaBiV88+ngI2WGXyT1hflMC0nWIs+j020JedjGm8 +KoGiv/9KmxazoanFlWy+LYHEmcThwDI2qAet5OlplMAHIc2TmU/ZMJB/LP+X +lCS+t7CNC+pgg6eI3bB0iSSe7eIh85aSoBNaFXnjoSTm8z/O37GCBN6+NWK0 +Oknk+XXVV2glCRXFPKDUIYm9W98aHBYkQcy6Il5zQRJ/c8Y38cmQ0BTJ0N1s +LYWmPSl/sjVJ2PRzNuRAvxRGLw+/ErCNhBMWSeueDkmhmtY7oeLtJBRlqXUK +T0nh79VpYWMeJEg4swwrlktjnoKO5H4WCUPlz6d51KVxT+K6nRBAQmJUfHDq +cWmssXJydQghoU9U6cCzVTLo/jyepZhGgvjBJ7Li4jIow+VZvDydBJt6tzcB +hAw+ivMeHcgg4X5IrOpqHRlUl9S1yswi4ULv6OB2NxnsSkv1HbxNgnZBlf/P +bBlUWlcVPHSfhEgTx11SBrJYYt6oeaeJBAuvG7/0N8gieayTz/Y9CfwRP067 +2Mhi05Fk96FmEtJro/PjWbKYJMnnQnwgodyq8sfS87JYIBv4akc3CaNuCkfH +O2Tx5gsLdY3/kfAgJGiZ4BdZvJz1Jjx1kISw9Ecp6iOymDpGs+UaImHlp21V +AdxyGOzgv6N2hARl/4tcn9bJ4fqSbz7yEyR4/Td54XWoHFa0Osdo/CVBMXmD +zGC0HGa0hnfuWviXv8uFy+LlMDmYJOO5OBAyt7ZpQ64cDvVfH+vn5sDV016i +Fa/l8KPwaD1rGQdeJ7y4mScrj3/GZHxLV3MgsUREq1ZZHnULfJyKBTjg3rqr +5pOWPJ4WnHmbL8iBAYm5L9Lm8si/qjo0VpgDPJma664ckMd1aVwFKuIcMCpK +LQ17Io/u5gbTL2Q5sOlD4/xIvTxq9VYrh8txwI5r8Zad7+XR77i9j448B3yc +DnTAV3n8FPNt/grBAfNQWnjEEgL5+ObfqStw4NXqhzkGvAT+siIDGyk75LrW +j/ITGHvbTjSQwQGPN7GCuyQILGc9S7uuyIEg+akcMxUC/+7YENGhzIHJkvj6 +3xoE3pv+dGfXGiofFirDpC6BTVyhg98oRx9i6dFNCRzaYXB3YC0H0mpf1nM7 +Engumra5QYUD8m5+w5UuBDrW9641UuVA7tCC4BF3Au/TO9fcplwsut6j34dA +dx6t46FqHHjmf3O49iiBN60dDi6oc8ByzlDoZCiBS5SbDbZrcKAxvkVPN4JA +YX0uOptyR8WKiNzzBM45yLq6aHLAyy431zOOwOebDmXnUP7SZ9ogkkigNuoL +/qQ8whcsFJ1OIFflgNspLQ4cyeTXZ2YR+C2PqVNNeUa3wGMyj8DEIx+0ubSp ++/HqyfUrJvCIcGnuMcoxv443yJYSqFPvJ1FMmf+c8EhrORU/3ai0n7IE20Lf +vIbAwAUN/006HMjY1O/xt45AuZfPw4Mo0ztORdx/RWD1q921qZRv75fIO9BE +oHhro3Y1ZTXukgalVgL376ps7KfMuWY70tNB4Kpr35IX63LAQGVAKLmHwE4z +wct0yo+eROnb9xP48uNMKZPyBmdZz2UDBJ4858nrSvnFwIOIJ0MEVvDOXQ6k +bHPKKe/YGBX/h2TzMMrvBYcbNKYIXLZ4TD2O8rb8cyPfZwm0d2iwvE75oxFd +OHOBwByiPzmPsvfbh/pui2lYEL5IqpDyd59tngIraOguO9BEUt43MxZRv4qG +qXYej0ooGx3aLfZNiIYrSIlCDuXlg513eSRo+Nhjw7Yiym3e9mY0WRo6/q/l +YT7lvK7aNlM6Da1b3/T8+/9gZ4N9nso0PBCq8vjSv/je3FsUokrDWbFhj5OU +BcxpyclaNOSuEarwp9zz+KpqmR51vuCMNnvK9/R5a94b0/Dw4stlupRD2GHb +RpGGcQqDrmKULdaOD60yp6EEi1M1QeVbLNs/SsWahgEKQ1/eUv4i9VHc0oGG +3mR6861/95HoULjbhYY5yi9jTlK2jzZsz9pJnTei3EqGstzfwv1PfGkY1n5+ ++3eqHoaO0nm6A2gox/Nb+1+9xOzhU5cIpqHvRKflesqun8Nr15+g4bY+3/Pj +VP0x3CfctobRsO9nZXIR5Wrr7tNxMTRMe8etKE057pmj5L1L1Pn8hfJfU/Xs +yawrarhCw4Qba2dDKP9WL+5YnEHD0P0l8o1Uf2gLRWqEkjR0MjALs6P6iSt2 +8lnKfRqOvkoq+0b1WyPPXvf7VTQs+36p/l//BU46RY89p+F0U2N0+r9+bWd0 ++XfSkCFqdbJ8HQcOO6YGRfdS97n0dLE+ZXy5amnOFxp6LdV+UUL1f3fVlGbP +CA3L1QNuZ1PzQexm/VlnHjo2Z9xy9FCi8inOlDm8nI7RjOkXT6l5w4knycur +6Djg/1hFkbJ9VNrHl+J05MON1X3UvIrx26dtpkrHXmdDpiGNik9FoEfNhY6J +z1vOO0tzYCpDKlLHnY733RWk46Q4MLFakWG4k45D+yzrn0lS/T5uuHdTAB0v +VCWHrJXgQF+Vz5T7KTpq9Nd4NYlw4KX1A/6YPDrK/b6mcHUV1S+PnpKX7tCx +5T+12cyV1DzSeO2cWExHgaTmvwV8HHgs/DntRgUdn+74da1kBXX+Ll7lsjd0 +vOcoqpC3hJp/gV7QN0lHF3olyT1PQnL3nr7vs3TkT+BMfv5DQpL9kejhBToq +JVwKeTxLQpxOzKuZFQq4TarU+uAMCVF/yG2r5RSQacpSY4+TEBi7JMjEXAEF +T3yfK6b2n8nde5nXrilggY6YF5van13E3ZubryvgmdHr/lup/RpyreDGxE0F +/DJTrDFB7d8HkfnpTgUKGFaRuqDeSO1rt8wU/ocKmLJXuep8PQlrlyTFn/2s +gGlGP861PKTeJztDI46qMtA1kfOkLoeEspYT4YpaDHzaEJGukE2Cs9XxsJb1 +DJyp198elknClfX/ndQGBh5KyjyqRr0XVq08eHzEkYERnZo7D18jYXGFd9Du +Ywy8NfyhLTmGhDEhK5ZrDQPvxs0NugWS0L6P3rT3BQN71WYeWFHvleq6WQh/ +zUDiYI6akT8J8SF35W+3MTDoeaaEkA8Jmn0re38PMjB1ZZBIvjsJB8i3OzKE +FTEhTb1npyUJg/YuHl98FfGBX/dNhiIJXy6yXA8vU8LbovBpQxsbDgyq0jVX +KuHp4kmftmY2TG/5PTwsoIQrv+ir7XnHBl6eK9EBUkq4er/01bOv2aB5oraU +paaEsgKxXUU1bDjlpyRsv1UJZzWrbYqK2CBmOvRW5aYSbt1VLHQomg2WP49Z +ftVTxnZ0G7dQZ8OQz/IjpeFrcJp24xHXoyLqe0Kc+1zNWlQ3L+81nLsHQm+U +4tg/16F0vHLXguldkIkpdtDTU0Wjn6X9kZYFkKJiKCDsr4ZHvjqlsvbdgpdS +ZuvHE9SxzyxbkkzOAyOZmniNNg38OxnqejErB/h5soN3RWliW+Sr283tWSAX +KW+yXUkL68SfxVbP3IQVip73nV5oYVbP8rLu8HRQZ0oWH9uhjXWt3KIZh1Ph +cI9QrRWXDt4Tdx1y8bwGP8cvulim6OCH0bnybk4ibNGoS7NU08WneZnmdTYJ +8Hjc+M90oy5uNPhc/q77EhxQ1e5857cexz+2HnnXdx6YI74t21fooeLW08nZ +y87CZoaE7apsPbyT7f39c1sUrIm4cLxGXx8l+w7/KRWKgHV+hk8UO/Xxf8ev +sxO+hoDf4z1nSg8ZoJuHUIR73lF4ktniOyZqiGelskSliw7DxO2FaY0HhthT +kbX58sMD4KN4d0WarREucSpfxQwNgJDnXnuVHIxwkEdSxWx3AMT7Cb3iOBmh +VFCdgLNjADzMO3Hx1TYjDM/9K5KvHAAiShar53cZ4dUEWdpsyx6oU/oqwjpq +hMK7vzp4aO+BdWvkCaWbRvho6syLl9O7YWxdoh5n1Aj1zMUM7971hfbXuFl4 +3AiDjBMdba/7QvWBka3Bk0a4bW5nxuwFX4jjWB7SmzXCH39K7h/d6wvrjLju +VfIYo9cj4y0Ta33B23I/rVbMGC14UzMW7vhAi/+WlS0mxhhy51OQWpk3lOf+ ++TwZY4xHb8mcvjHAAr2NwdNWscb4d/ErAUYXC8o+D63MvGSMrP7tc5w3LODI +9ehbXTHGW3XS7UMcFtxLqb5047ox1hQUrG46xYLMi9GGW4qMMaKnbtRelAXn +g1cnpDQbY6TY31b6NS9w36SAxnImyCemVbEoywPmW5bz1xIm2H+umycyxgMy +/Ua6rBRM8I237W7hIA/4drbimPsaE7TuzTE7BB5wuMG++IS2CZ6VOT+/utcd +LtidlCs3N0GDLQ5TjTR3qHRrndM9aIIm4jyshVI3kN5/rkK92gR5VPiGbqx2 +hbiF3etja0wwx1GjvmfOBbivmJPfn5ngFpZdteqgCwzeX1KQ2WCC75YJfv71 +zAUquc6kCDWbYO+R+GGlUBdwT4o4NvXVBB+Z3DmrNOgMKVUn1j/mY+LCXOra +Le+3gijvPtJ2GxPtTq6J12twhNyNp0JGtzOxf2dl9/ADR9A+Fbcx0ZOJ+c94 +FUrzHcFulN3avouJ3Y2CAfvPOMLZtsnfPvuYuFxMi0xAR5jJDt8QEslEeYvh +8uQqB+g0TmzOv8tERc/1qjeO28Oe/3LTLYuY+K3/l3zWdnuYKirzG2IzscLQ +0/OJkT0I0dunte4zcXHUnh2283ZgvVxW5lE1E1ViA80LT9vBw5Z83+ZWJsac +JngDr9qCFX+52tF2Jnp8+8wredwW2rc0TEl0MfEH6S302d0WJip/xHh9YuIi +u4pvjwlbUMvSLPzfIBMPdrWHFRfawMNOs6MXh5l4ke1zWSXBBqxEtoLGKBPd +7/PwPg22gd3n/nsXPMnE70JLR/VNbGCi+mya+AyVL9E6XUnCBqJmk30qZ5l4 +OdX1mvBiGxDQLVDdMU/FVxK1SHnAGm7sr5xcWGCi2BPCZ+tra/g/qbbyGQ== + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2164,331 +6677,124 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== +1:eJwV13c8lf8XAHDRpGTv8dzrorJH9nWOhuwVEtLNSNJQ+TYoq5RSIsqIskuF ++1yU0RAlGlJGRigafkJkJvJ7+uu+3n/dzzmfMz4Pzfugkx83FxeX9CIurn+/ +Uz0NzxixuaaMOXb6duENpi03JE6YtUfB+Vta6qVJBKDoW2+J9iuwNaCDFpek +CUcd7nzgac8G56C/x4KTEARHxK/8/sABXBQvYpvkAL0P7Q5OfKiBmjZC5W0i +C8wZg91jH96Dmnncie8JQfD7g/7V0Q99oJrT8MLpQgTUbryV+y57HI7zpJvs +kkwAmd6Kb96q8xBU5qZeIZYKIvt23lm2kQc1ZgRG1lhmwhUt8yo7l+X4o6Lu +CYrnQkeKZvWYwCrcsT9tXtbjFsTmhr/llhTEkw96A23P3wHxpP7ziRnC6FWp ++8t0QyFIqJSdmckXxoDFA1syrAtBquZs+A62MEYmq7InnQtBbnTtf8q1wvi/ +3KKSJP9CULQJYlUNCGPO3wG/2IuFoLN4Xq9fRwQ7Ljgdd28tBPtgsS/aL0Uw +vNCv7ph3EZxztjR9PyWKPaXecif2FoNUaaMU9yIx9Lbg850/XAxFws7TWnxi +GPWoZG9IaDG0vfdiJ8iLYXt2zAOvi8XAcAymO1qIYXpniH5TYTHU2N5c2pQq +hmSYtbTrz2KYN59sfGMijgz3S6rBemyIzw+5O28ujr6bd2WZGbGBsZQrRs1R +HO0P+gbymbLB5jmv2SU/cdQWHJxP3MyGtI1EiU2cOL590SF6wpkNBmid/KpX +HDekzH68cogNRwyzdjZESaBiV88+ngI2WGXyT1hflMC0nWIs+j020JedjGm8 +KoGiv/9KmxazoanFlWy+LYHEmcThwDI2qAet5OlplMAHIc2TmU/ZMJB/LP+X +lCS+t7CNC+pgg6eI3bB0iSSe7eIh85aSoBNaFXnjoSTm8z/O37GCBN6+NWK0 +Oknk+XXVV2glCRXFPKDUIYm9W98aHBYkQcy6Il5zQRJ/c8Y38cmQ0BTJ0N1s +LYWmPSl/sjVJ2PRzNuRAvxRGLw+/ErCNhBMWSeueDkmhmtY7oeLtJBRlqXUK +T0nh79VpYWMeJEg4swwrlktjnoKO5H4WCUPlz6d51KVxT+K6nRBAQmJUfHDq +cWmssXJydQghoU9U6cCzVTLo/jyepZhGgvjBJ7Li4jIow+VZvDydBJt6tzcB +hAw+ivMeHcgg4X5IrOpqHRlUl9S1yswi4ULv6OB2NxnsSkv1HbxNgnZBlf/P +bBlUWlcVPHSfhEgTx11SBrJYYt6oeaeJBAuvG7/0N8gieayTz/Y9CfwRP067 +2Mhi05Fk96FmEtJro/PjWbKYJMnnQnwgodyq8sfS87JYIBv4akc3CaNuCkfH +O2Tx5gsLdY3/kfAgJGiZ4BdZvJz1Jjx1kISw9Ecp6iOymDpGs+UaImHlp21V +AdxyGOzgv6N2hARl/4tcn9bJ4fqSbz7yEyR4/Td54XWoHFa0Osdo/CVBMXmD +zGC0HGa0hnfuWviXv8uFy+LlMDmYJOO5OBAyt7ZpQ64cDvVfH+vn5sDV016i +Fa/l8KPwaD1rGQdeJ7y4mScrj3/GZHxLV3MgsUREq1ZZHnULfJyKBTjg3rqr +5pOWPJ4WnHmbL8iBAYm5L9Lm8si/qjo0VpgDPJma664ckMd1aVwFKuIcMCpK +LQ17Io/u5gbTL2Q5sOlD4/xIvTxq9VYrh8txwI5r8Zad7+XR77i9j448B3yc +DnTAV3n8FPNt/grBAfNQWnjEEgL5+ObfqStw4NXqhzkGvAT+siIDGyk75LrW +j/ITGHvbTjSQwQGPN7GCuyQILGc9S7uuyIEg+akcMxUC/+7YENGhzIHJkvj6 +3xoE3pv+dGfXGiofFirDpC6BTVyhg98oRx9i6dFNCRzaYXB3YC0H0mpf1nM7 +Engumra5QYUD8m5+w5UuBDrW9641UuVA7tCC4BF3Au/TO9fcplwsut6j34dA +dx6t46FqHHjmf3O49iiBN60dDi6oc8ByzlDoZCiBS5SbDbZrcKAxvkVPN4JA +YX0uOptyR8WKiNzzBM45yLq6aHLAyy431zOOwOebDmXnUP7SZ9ogkkigNuoL +/qQ8whcsFJ1OIFflgNspLQ4cyeTXZ2YR+C2PqVNNeUa3wGMyj8DEIx+0ubSp ++/HqyfUrJvCIcGnuMcoxv443yJYSqFPvJ1FMmf+c8EhrORU/3ai0n7IE20Lf +vIbAwAUN/006HMjY1O/xt45AuZfPw4Mo0ztORdx/RWD1q921qZRv75fIO9BE +oHhro3Y1ZTXukgalVgL376ps7KfMuWY70tNB4Kpr35IX63LAQGVAKLmHwE4z +wct0yo+eROnb9xP48uNMKZPyBmdZz2UDBJ4858nrSvnFwIOIJ0MEVvDOXQ6k +bHPKKe/YGBX/h2TzMMrvBYcbNKYIXLZ4TD2O8rb8cyPfZwm0d2iwvE75oxFd +OHOBwByiPzmPsvfbh/pui2lYEL5IqpDyd59tngIraOguO9BEUt43MxZRv4qG +qXYej0ooGx3aLfZNiIYrSIlCDuXlg513eSRo+Nhjw7Yiym3e9mY0WRo6/q/l +YT7lvK7aNlM6Da1b3/T8+/9gZ4N9nso0PBCq8vjSv/je3FsUokrDWbFhj5OU +BcxpyclaNOSuEarwp9zz+KpqmR51vuCMNnvK9/R5a94b0/Dw4stlupRD2GHb +RpGGcQqDrmKULdaOD60yp6EEi1M1QeVbLNs/SsWahgEKQ1/eUv4i9VHc0oGG +3mR6861/95HoULjbhYY5yi9jTlK2jzZsz9pJnTei3EqGstzfwv1PfGkY1n5+ ++3eqHoaO0nm6A2gox/Nb+1+9xOzhU5cIpqHvRKflesqun8Nr15+g4bY+3/Pj +VP0x3CfctobRsO9nZXIR5Wrr7tNxMTRMe8etKE057pmj5L1L1Pn8hfJfU/Xs +yawrarhCw4Qba2dDKP9WL+5YnEHD0P0l8o1Uf2gLRWqEkjR0MjALs6P6iSt2 +8lnKfRqOvkoq+0b1WyPPXvf7VTQs+36p/l//BU46RY89p+F0U2N0+r9+bWd0 ++XfSkCFqdbJ8HQcOO6YGRfdS97n0dLE+ZXy5amnOFxp6LdV+UUL1f3fVlGbP +CA3L1QNuZ1PzQexm/VlnHjo2Z9xy9FCi8inOlDm8nI7RjOkXT6l5w4knycur +6Djg/1hFkbJ9VNrHl+J05MON1X3UvIrx26dtpkrHXmdDpiGNik9FoEfNhY6J +z1vOO0tzYCpDKlLHnY733RWk46Q4MLFakWG4k45D+yzrn0lS/T5uuHdTAB0v +VCWHrJXgQF+Vz5T7KTpq9Nd4NYlw4KX1A/6YPDrK/b6mcHUV1S+PnpKX7tCx +5T+12cyV1DzSeO2cWExHgaTmvwV8HHgs/DntRgUdn+74da1kBXX+Ll7lsjd0 +vOcoqpC3hJp/gV7QN0lHF3olyT1PQnL3nr7vs3TkT+BMfv5DQpL9kejhBToq +JVwKeTxLQpxOzKuZFQq4TarU+uAMCVF/yG2r5RSQacpSY4+TEBi7JMjEXAEF +T3yfK6b2n8nde5nXrilggY6YF5van13E3ZubryvgmdHr/lup/RpyreDGxE0F +/DJTrDFB7d8HkfnpTgUKGFaRuqDeSO1rt8wU/ocKmLJXuep8PQlrlyTFn/2s +gGlGP861PKTeJztDI46qMtA1kfOkLoeEspYT4YpaDHzaEJGukE2Cs9XxsJb1 +DJyp198elknClfX/ndQGBh5KyjyqRr0XVq08eHzEkYERnZo7D18jYXGFd9Du +Ywy8NfyhLTmGhDEhK5ZrDQPvxs0NugWS0L6P3rT3BQN71WYeWFHvleq6WQh/ +zUDiYI6akT8J8SF35W+3MTDoeaaEkA8Jmn0re38PMjB1ZZBIvjsJB8i3OzKE +FTEhTb1npyUJg/YuHl98FfGBX/dNhiIJXy6yXA8vU8LbovBpQxsbDgyq0jVX +KuHp4kmftmY2TG/5PTwsoIQrv+ir7XnHBl6eK9EBUkq4er/01bOv2aB5oraU +paaEsgKxXUU1bDjlpyRsv1UJZzWrbYqK2CBmOvRW5aYSbt1VLHQomg2WP49Z +ftVTxnZ0G7dQZ8OQz/IjpeFrcJp24xHXoyLqe0Kc+1zNWlQ3L+81nLsHQm+U +4tg/16F0vHLXguldkIkpdtDTU0Wjn6X9kZYFkKJiKCDsr4ZHvjqlsvbdgpdS +ZuvHE9SxzyxbkkzOAyOZmniNNg38OxnqejErB/h5soN3RWliW+Sr283tWSAX +KW+yXUkL68SfxVbP3IQVip73nV5oYVbP8rLu8HRQZ0oWH9uhjXWt3KIZh1Ph +cI9QrRWXDt4Tdx1y8bwGP8cvulim6OCH0bnybk4ibNGoS7NU08WneZnmdTYJ +8Hjc+M90oy5uNPhc/q77EhxQ1e5857cexz+2HnnXdx6YI74t21fooeLW08nZ +y87CZoaE7apsPbyT7f39c1sUrIm4cLxGXx8l+w7/KRWKgHV+hk8UO/Xxf8ev +sxO+hoDf4z1nSg8ZoJuHUIR73lF4ktniOyZqiGelskSliw7DxO2FaY0HhthT +kbX58sMD4KN4d0WarREucSpfxQwNgJDnXnuVHIxwkEdSxWx3AMT7Cb3iOBmh +VFCdgLNjADzMO3Hx1TYjDM/9K5KvHAAiShar53cZ4dUEWdpsyx6oU/oqwjpq +hMK7vzp4aO+BdWvkCaWbRvho6syLl9O7YWxdoh5n1Aj1zMUM7971hfbXuFl4 +3AiDjBMdba/7QvWBka3Bk0a4bW5nxuwFX4jjWB7SmzXCH39K7h/d6wvrjLju +VfIYo9cj4y0Ta33B23I/rVbMGC14UzMW7vhAi/+WlS0mxhhy51OQWpk3lOf+ ++TwZY4xHb8mcvjHAAr2NwdNWscb4d/ErAUYXC8o+D63MvGSMrP7tc5w3LODI +9ehbXTHGW3XS7UMcFtxLqb5047ox1hQUrG46xYLMi9GGW4qMMaKnbtRelAXn +g1cnpDQbY6TY31b6NS9w36SAxnImyCemVbEoywPmW5bz1xIm2H+umycyxgMy +/Ua6rBRM8I237W7hIA/4drbimPsaE7TuzTE7BB5wuMG++IS2CZ6VOT+/utcd +LtidlCs3N0GDLQ5TjTR3qHRrndM9aIIm4jyshVI3kN5/rkK92gR5VPiGbqx2 +hbiF3etja0wwx1GjvmfOBbivmJPfn5ngFpZdteqgCwzeX1KQ2WCC75YJfv71 +zAUquc6kCDWbYO+R+GGlUBdwT4o4NvXVBB+Z3DmrNOgMKVUn1j/mY+LCXOra +Le+3gijvPtJ2GxPtTq6J12twhNyNp0JGtzOxf2dl9/ADR9A+Fbcx0ZOJ+c94 +FUrzHcFulN3avouJ3Y2CAfvPOMLZtsnfPvuYuFxMi0xAR5jJDt8QEslEeYvh +8uQqB+g0TmzOv8tERc/1qjeO28Oe/3LTLYuY+K3/l3zWdnuYKirzG2IzscLQ +0/OJkT0I0dunte4zcXHUnh2283ZgvVxW5lE1E1ViA80LT9vBw5Z83+ZWJsac +JngDr9qCFX+52tF2Jnp8+8wredwW2rc0TEl0MfEH6S302d0WJip/xHh9YuIi +u4pvjwlbUMvSLPzfIBMPdrWHFRfawMNOs6MXh5l4ke1zWSXBBqxEtoLGKBPd +7/PwPg22gd3n/nsXPMnE70JLR/VNbGCi+mya+AyVL9E6XUnCBqJmk30qZ5l4 +OdX1mvBiGxDQLVDdMU/FVxK1SHnAGm7sr5xcWGCi2BPCZ+tra/g/qbbyGQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.0711166703506997}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2500,19 +6806,19 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.0711166703506997}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2526,330 +6832,123 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8Vu8bx2XLnsnK3ns9eJ5z7ouMSEjJqGRkj5CRFQkhhGQlkRGRUJRR -X/MpJYlClDKSEClb6ff8/jqv9+vc576uz+e67nHEXM5Zu1FTUVEF0FBR/f+5 -PtHbLXm1DOfOnGIcL/XB3xXxh+uPxiHTBqPaxw6mCHjfuPCPZqED5icq/R3s -UajVvRGa0TvI9kMNC4uDF+Jc2pe1NdKARrOiz07ZhaPPbRbnVkc60Z3zDCW+ -x5ORseT8p5WRQXSb5nVio0E+2hoh3Pg5MoVcPtsXOf2pRE/UGZ3uyk0jjfKz -61FuVSg0bVTeMXIa7U/R/H2uvwr9MghvfyUygzInKvCR2/fQ/P2WhQq3r+jv -t5alPKhBHy9jBqd/f0OssycH7MIfoHaVg8u9bD/QAwkG0sPJBtR18G7Z2zu/ -EWGnVd6w7wlSTX/wfePFb6SRE1dhvP4EFY0+VhZZ/o0EvxyfkBZtRhf8Xjzx -Jq4iQz/3RzHnm5Fy7vc+mner6IFHlk8afwsqmFdY06JbR2LVYXk/TraigMw6 -owKPTVQuKhgcSn6KJsafpLSnbSKXa41vBxeeosPSHW9mH26iqdYNAQbOZ0i6 -9a29BtUWok371bfu8AyNz/zy68vbQqOz06ZLi8+QsY5Wzm7vNloplnifRtuO -hD43z7oo/kWkM8dimjk6ENXvwLzeo38RYeHvl0DRDjRDL2+mGvYXcRa3feZR -7UD3lQvu/+34i3Y37aIFLDsQfjEiOM92FzlxbLSLp3agM8JE6v64f2hEI4wo -RN2J3ipNpBcuUgHVabv/XD51om5CyzfLf1RQlu/iaDvfiZr0c4CGaw/8jGIj -aG10ogIbi19ehD1Qe7k2uIajC7lEP7MhxO2B6KN1xkkGXehXX5HQ4D5q2NNz -mmG5pAvx+J65x3CQBvReZJpbWXYjeYZSspUtDfRuaE7oOHQjuDM7le9DA9am -pu/p3LqR76ifoGI2DUgP7MyaR3SjbsOoVKuvNECl5Wt+rbQbBQvn++dfoYVW -o6uJ0z+7UcqTjylTN2nh9ulffpzb3aj4mOhdhTpauGOhUypB04P6ku9+fjpK -CzvqzVurPD1Icr3RakqODtZqN88fJvSgof5BdYU+OugsEDfrDe1Bc158lsFf -6ICthmeAdLEH7dI6+DxdpQPdlp/PsxN6kDxxstRSmB52Fm1Ffl3vQXF3l3mC -/emhUWVhzuVBD8oz0FB7GkcP3n2lMduNPaj2U+gR+lx6KOz9/iC0rQeNce8m -5P1HDxYPBNaEenuQeizLRhsHAxQe4iOLTfagQ4JW3PRSDDBj8mR8YrYHOTZd -V7HUZYDMvoj22MUelLIo4DnpzAASWjp85zd60JSd3Ae6hwxwK0dzmIuFjDZ/ -+65ZPGeAq3q7xhscZMR2rY4zb5wBdBDty3ZeMtLrIZjJ0zJCIBMo0hwgoyw1 -41YLG0Ywu6J03liVjFTG7U0wT0bQf9DOzaFJRn3xfkMKkYxAX6WR0EkgI/rR -7AXGEkZg0Ti2O4mTUemlyrCNh4yww67Ib2lARqDQRjNLZoTxXZJMuREZRV6c -FuxaZISMH7tmLOZkxC+7cbf+HyP8d5zpvLAlGTW93atZzMUEa7DbtM+ajH5K -qptH6zCBxORKy3NbMjr7KjaKEM8ER2gZ3vO5kNGekGxG6VwmOHfN82/gWTIq -EqnM5rnHBLNU2zea3MloNPBNzcobJnhnfMHwjzcZhQhO63yZYoKQz+KBf33J -iKtnvbt/jQns4i8Q5/zJ6Ai/yKdqwb0gpXRgNCKIjOY71LwKlPfCDbODneLB -ZJTkY7SWpL8X3hg8CX8UQkZSvPaXwo7vBa+2tr2qYWTU+cyX1d1jL1Cz1l+6 -cYGMznjG5h+P2Av89PsWZsLJ6A9nttTBtL3Q25F5TCSSjLTdWjHRh3shWGTj -uGU0GQ2xvellI+8FwbQ+BpOLZBTwZMrm7+hecFi5+kM2hoxYXdYnFxb2wqee -SO41Ct9j3us/trsXNrOpr1THkpFJo/D2C05maO2qsDG/REYzjmqJjyWZYfgU -W9oIheMYjbgqCMxwcHxX70gcGR1osCvKNmOGe6un/O5TuO2kr/zl08xQ4aqo -vklhB7rYpsAAZhirv5ardJmMNmqvGzhdZoaOPS+qj1A42+5uv0UOM5iNakbb -UViNutUBq2IGr9ljAhYU7q/un1VoYwajwfZMZQr72EwFCbxhhrNUWr+2KPMz -/lvbZZxihkunrpjVUbi8kunqxiozWInXVB2lsIG18L5ZBhYQqngkMkHJ//OO -auk7ARbgEn7zxIbCUeWGKl1KLJDsZnzlCUX/fku71npgAe43l/LpKdy06WNS -fIwFTkzR/kMUv47diRlKd2eBIdlzz89S/P15+PqZ6HAWuLQaSR1C8T9trWLB -J5UF5GWo2wOiyEj+dkuYw20W6Nv6zW5HqdfzQ/00pg0sUNHlSK0QQenHX5PX -CD0sYNrhffc7pd57CtcEpUdZwHfcgT2b0g9FRkyVPAssUOeXaiYfSkYf8lTb -VzhY4Z1FTZTAeTIqGKpmD5VihY4vNQ5WgRS/2WTObOuygn1vxbD/OTLlPBPe -pXZlBdnv+btuPmR061nekSthrHB+5Nd73IuMHLe4bzGnskLOR5o7VB5k9MV/ -L4mnkRW412IDEGV9lFQlXM3rZYUyPvvbbWfIyGWGalxoghVE29oFJU5T+sN+ -I1yKgQ0O7EbY1lDW15zhzGNtezZ4GCRl33CYjKpizjC0+rEBj6RoUNQhMvJu -GTuB4tjghv/hDFXKel5UebtmUs0Grtb6eraU9f9T4JmG/V82YP5s9alYhbL/ -/Mx9EFnCDl2eHTF6bGTUrMD9718jOzTpMCvUMZFRhHu6RfxLdmCJkXDipKOs -j/H4H6m/2aGo2bUvZ6cHxU4/4X0jzgES8Q+C6r71oPj+8mNfgjmA7jmdjxZl -/5zxcY0Uj+EAsbFrNeeaepARk1jp2WQOWMi35cmt60H0hoW/5m5xwMXS4Pb7 -ZT0oqTkrc4XMAbNPk8//vdqDrpbFvKHezwlHFkTbMdseZKbpxcUrwQkV2aqW -YVY9iLHb2kZGiROKfeKPFptS4k9LjR/W54RN2kf7Oog9KEq8bzbbixOkznXH -wYEe5F/MvyvdwgkHTUqbj0x3o6OF9YqHT3LBhEZImoNTN+JQvHnutBsXKDKX -BzbadqP+1viGc+e44FTXAh8N5Tw0G7fVyb7MBfZvBtnDsG5kILB78FM1F8R7 -r1Z27+9GmnlmJ8/94YIEf5hnHehC+7Knk6/f4gYe/r49PJpdiF+hMX6zghss -K/xWKuW7kEBnYszpOm44NLsAWmJdSOSnXIhMFzccpPO30WTrQlLmAU6tc9zw -dXGlpv9bJ9Kg/as9rcEDJSMnyYn5ncgymG9G/SUP/Dw02p630YGuHDfFB9d5 -4Rd9094Xd9rRed2SM71x/BA6FKPuotmKDJe3I/ynBUBuMgiPKG9El0hHnQV0 -hGFn5IPNtdo6dMix6BfBQBg+n+m8E1RQh9hiFy7bmAtD1n5/a9fEOlTYlVCR -4SQMxbdHGfwc69ATs5YF+mRhGLA+ukeCvQ79tJMI/f1BGF5wZd8wnK1FjiFr -KX2RIhB8P/TFyas1SK82/9HF/w7At5oPr94rViLDkf6/Sy8OQJXxFVoqtkpk -QUVrcmbwAHyKDQLD5bvI1dr/A/p6AOqYj7wUaLiLjCPFYmLpRIFEPXycSvcu -CjiwXqqvIArPrwrz1h6uQN0et390hYrCvZ+HOjLiy5DpH12uqEhREG993brj -WYb6M95pa8aKgnHEQFHskTL0oZkptixZFPSfMLGP8pWhJeZgroRCUYDbBMmn -90oRf90hgnGnKHwtfrh9cuQO8t1ciX3BKgZ6xc5iXQdLkF6gO98slxi8DiGN -2MiVIMb5sWoafjG46CvHR89egsrHu4ZxcTFw3/pA899YMZp4dkOxUVsMCCK4 -W+b5YmSZoDtackYMgkekB07a3EbqXJdUIuvFQPrunr73pwoR1dW17rwmMUga -OH5USaUQ9dN4OzS1ioGLqkde255C5LNmnbDSIwbp3LNLl+7eRGWjkuMeY2LA -8SrBqGytAPHdfpF4nEYcOg4K8SsUUu7zChwTSjbiQMUxyGfNmYvWbwlc0nAQ -hxM9z9f5FnLQKruUpO4ZcUhjOejL2pODln7reht6iYO38qPk9PAcyr3Ydd0h -WhwyDVTKPs3cQC8PP2ZLKheHxZK53Gvd2ajAxxFNrYlDgFPXefxuFsr95Dn1 -bVsciJ9eTS0lZqFsy/MJP/6JQ5OtLN7nnoXSNZJebTJJwKWeAhFWmSwUt1Nv -yy4iASwJ6wdLqzKRz1W6AJKxBLA+cPi425SBSNU1xTk5EiCKfoY9nUpD46LV -t41uSoCfzMy8c10aisipKlq9LQGTMynLhy+moceXKgqtqySgya/o3rJAGlK3 -K85ja5MAQpDSgL9tKpKjy85InJSAtd+8gtyfUhDfmcjYUEVJ4KlzDVben4Qa -34XHSKlJAnX6YgnD8hV03OzCxXdakpDF+MBcpOcKytIKiVJHkiAqXbGfJugK -YmU5d2HpqCR8+05/vbQ/EdE2uwS4h0lCRnGpMeP1BLTCZeZ0olMS7msn1VcY -X0ajvuID3s8lITE4zKpT9DJqJ2+jmD5JIL1q/Cu0E4cyIqoPVA5LwtDiM9P0 -ujikOsXyeWteEtp2WkXsROKQf/2b07e4pcC/8sWqId0lNG9pc3LmrBSwb/aX -jP+JRoNVSq82vaSA66jq75r/olELDT2R9ZwUrPl1+n6Pi0bJj5sEtMOl4KGo -a1bJ3mgke4B/7EqaFDjftBvaFYlCHktjdgpNUiBN7P687BCBZlKdTgQxSMPH -czqvRgTDkP+8orgqizS8qFtO0FsKRRsmWz9+cEiD+uaBqIX2ULSXJivBS0Aa -mF/z+Gt7hCLV8K5HTkrS4Ev40HH2cQiKdpPmtjwmDXzZEQLP3YIRH774RuG2 -NCRTe9a+2whExTef3PxeKg1mfNe7tIYCkdxWvMfdSmmg6hm0H60NRKRHwv/E -G6Thn5R1yhf3QOQqb6ks0CMN7Ir/sn99CEB1fA2pjAvSEDglU5KTew6ZLoeZ -ftWWgc2g98zlj32QkJpIIiNJBpTD1bySLvigpaDuTgV9GRhmjNy7oOuDstc5 -SEGHZeDw0Fq7/DNvNPG3SvnfGRnw5nTuj+rzQkEsH7n3J8uA+64GofGfBzK0 -iLMipctAK393rvwLD7QvQzbtzHUZIOiaW3FleqA27hD6ilsy4N/xs05L0gPR -C7JtqTfIQOQ13adNlu6oQA4mzMdl4In885tbLWeRr8+sQMAXGQgkH6/UTTmL -0P1U2+tfZSC0u1noi/1ZNKP6YeDDsgwImI66nN52Rco6QV3utLIwbHXxDh24 -oi7jsspYJVnQyvf9E/jJGS26Mp5/FCMLCe8DZWSeOKKlIsOn/8XLwjEab5Md -f0e0/CGW4VWyLDhXnjTzlXZEvyy3bk5elwWjZbUg0dzTaIM4381WKQsrQqdX -62NOIWqePj6vAVkIpmv1iPd1QLSWjM7B72UhWmlA/46iA6JLMayOGZOFFH2b -osM/7BEj1VOUMyMLBz+JPSMF2CO2xfueXZuywPzjA3NUlB3a332tRVhMDlYH -D8Zdu38CCfx7RSsnLQfnfbqmFkNOICE9RktNBTnI5tJe68FPIJG62GkzLTlQ -/RAQ8O2tDZIsDGS5YEoZjz98//rvcaQafMxxMFAO3vhwPD/tcwwZS+6jvtIp -B2y+zr0xuVbou4tJJfG5HLxumWDwDrBCqSVhFj9fyYHT8gudSlMrNCQyWmD/ -Xg7qnWcWiNuWyGl/vobinByI+o05tb6xQOFsgm5vWeVhYKSx2zLPHAkdOcyc -yCUPPJ+LL3IeN0ftVyPr9fbJg/exLkFPDnNEz/Txb6moPNTkP4x9k3IYZdHc -ygnVkId019VJj0QzVLMp8kLQXh7ohZiN+nIPIUuCpf/AaXn4Q/uIwf7UIfQr -JIYnwUUe0mR9Yr3EDiHd35+dlnzkQe5+bgLnfRNE/lG81X5RHrpn8FHnl8bo -85S4gnuZPPQXnBmTFTJCXK+l0+uW5WH5x8m7/bwGaHdZtfzlqjxoKtww1fmq -j+a5iG0zW/Jgt5kjJtCojzrtLOf5aRWg8xh+yOCEPjo/E2Z8iV8BrNm/P2Qo -AvRu58XuUX0FeO7dT8uegKN2kSFeX2MFsCIEcW+o4ahG/5Ni4mEF0GGd33zw -GUMJV1YcWmwUQN4icDYVw5A2t8BjcW8FSPl5yLOdmoRy5X3O/c5SgN2465fi -6nVR/JGQRNY8BegezPlU4q2LAgJibsncUoCrijxioZK66FDT9Vcn7ypAb87Y -B+0CHbSp3ybT3aoAt/pmZBfTCMjBnvVL9owCMOm99+vN1kJCSQ+stLUVYUck -+xITnzq6V3u/a0tPEVYM7szozqohnffV2k+RInCEcT3+3KSGjotXChmaKoIh -uplxxV4NpbYVzx09pQiZUjffKZSpop2fmbF+cYpwoCR03/BNZZS0L+O36hVF -MOZqoNswVabsZ+nuq1cVoZOhuH96UwmpX00xj7yhCEPY+Uf77ZWQt9Rl/uRK -RfDfcl3vFldEY/bBdWX9itAuO6ea80EOecYGSXgOKULoXZAsvS6H1isCchRG -FeGN38VCJws5xLXqG9UwqQjJ+q+fzvbIIrN0t0Ptq4og8f7M999tMqi588SX -cQElsDm7mfK0VwrlKehycHsogXWC6ADzcXFkc/h1xjMfJfjy5tYTc3FxxOXj -zOkdoATiQWxbzCti6Oq9ZK6OcCXYs/T4K1WGGLooN8ZzLlUJrhPK6sqGRNFZ -mcj9r+qVQO5n8ePWSREkZsJeENqkBHEvJTv/poqgCfdSAfFWJai1NG3bryuC -bCteCYZ3K4GodbjfyHVhZCYlJCIzogSv0q201Y8JITWJp+KX/yiBoOrz9qaN -/WjJ4Gip8h5luE3K8qx9sB/dc/kqMUanDDryErecPfcjyTusUmrsyiDPe7v4 -9zg/4hdzlPkspgxWRgev33i1D+2K/FMgmijDzOPQC/aveNFLAX2t35nKUF8l -NDOhz4UGRB5I0+Yqw2Rx4FAPExcaFhfm5y1UhmVxOXrLQU40Kb+1rV2hDON1 -8576bpxoU6++PaJFGUb8ngaGZXEg6ZNi5tTTynDZ7Oz5WE42pHjmGsY9pwx3 -CzSS2B+xInXXv8qSP5RBIQ4/U2fLijCfD5zGG8qAW9M9ELzDgo5HZo4kM6tA -sc612UMHmVHczT2unJoq8IEhz/TGI0aUdPvccXFdFWiQ7elfcWdE6aWfjDRw -FUjiCqjRFGBE+dXNsjaHVKCySzzW9TIDqmsNXMo7pQL/vY+2EnOiRxPjk+Gi -CSpgMMEyxK5Pi2Y+W/qopajAo7Dt44+oaNH89NNTBtdUgPwiTl6ggwatLeSj -s/kqcHMw2V7MkAax/DlKV3lfBcbPPHs8bU2N9IQ6M1SGVeBATuSh8EwqNCUh -OfF9TAVGEAnvPUOFkhUSFco+q8BGhqR+hTIVGtUzI/N/VwGiuagCTeE/PMx+ -cGfPHxWYo+8pk5fexR0OB2rMc6jC37fvMta9d3BlS3EHE25V8P9r0/Ft3w5O -fWwotoxXFZrozrg979nGqxy0+h0FVEHqahftIcltfNNry3NIQhXcEtZnmBY3 -8ZykS0Vt2qrQERPPcbFsHfdOVe/Zr6sKWYoRFdpn1nE8Y3ohlKgKRTGMDk8E -1vGvuUa6aqAKLC/DUtmy13DNu0zvyk1VIaqU6Pfq2io+2JPJdO2UKqTdsHnU -WfULr+g1UF10VIUlP2LQvoBfeMTr3ydMnVXh31XlIF7CL1zsvU0ZjbsqmH6J -XaJ7voIHzOxHF86pQnjD2Gji0k+cjeZOsHMcJd52fDxb4xJOv/XfsZV4VTCw -vzFlcGQJ3136pH7piircd377uXv2B748tn+lOFUVaI3xjRLhH/hAQ6bflxxV -GICH/x0vWMCzXC65n6mmvKdbXHbqm8NT7G4bLd9XhbJJza2asDk8zuKpZEyd -KlStD/mzSM7h5/W2pooaKXq+oKDNmG/4ca7AMxP/qUJ0RVSNvOEsztfpZHf6 -nSpcNZ0Cw51pnO3JRcKPYVW4x0vbbNE0jdPXFvJFf1CFbiLHP2LQNL6RP/qu -cEIVxjxvbDxcnMJHA62OfpxThb1nBLz6FybxAjEwO/lXFQL99X74cnzBs/Y5 -yi38U4VGNKfwvu4znsIaxRhJrQYcEcl8Rgaf8citx+QCBjVo9xnxD/CawE+9 -VTk4xqkGF7YbhC+8+IiLXDpAspdWg3TNkdC0ng947XlG8U+yapT/pRJrf98P -OO6+wuCsoAar//leDOH5gJ8+3DXkqaoGlW4J3nMeo3ghr4fPBT01EOOJddwV -HMH336styLVQg6zUJ9rbje/wysLcWMGjalBtYRVe4fcO17kW6377mBr8HSYq -Gkq/w+2CrdXv2qlBxU7AhknBEJ6Dr/c2uVA4LeT2gbRBnGcI23ofqgbjm6W0 -t28O4GU90p/tw9WAKfNFCJvzAK7xhL3nU6Qa5bwZjj4oM4Bb35rM+BqrRtkv -pb7N+bzBMz0SZNdS1CCld/f3qSevcbY/fbY8t9VgLYuX4e/1l3jRUiOWV6IG -iYvxFqe0XuLKk0USQmUUvxpqdXZHevEj5IBliSqKH8nnKrZEe/HUDJ4rGg/V -YN+t7JAzHc9xJqlTTdbP1eB0YsjlLJ0e3Hs/MqvuVYNvcm/F3Fa68Zes4hM0 -fWrA9+TuNaHqbjx1/Rtd44AamBJeLSmLdeNsL87b7BtTA0LyNm3uvi6cy+fq -6viiGkDW76cEhQ486Ix/kuYyxd+atZsHVtrxoWNHhdJWKPHy1um7H7fj2aR9 -hvg6xU9XM19dk3Z8H1vp9eJ/atDT+TVW9dMzXKi+Rd2NSx3uM3h3ZbW04lHl -t8hPedRhzn2P3o+Trfin/FgHvn3qkKJa0Be924IXxRnHPRdUhxGO03LqJi24 -6PHBt3JS6hDyZt0jdvYJLrXxPWCJoA7KpaYuN+2b8MSFPloTPXVocEutqmRp -wmc/P8i7TVKHzWt25x61N+KVL0LarfTVYXSVdrlFoRGXL9jD8dBMHZwJhdzK -rI9wZWz/g7DT6vBUeFdAeKcefyjhtUPtpA7Tqo1TAY/rcZ29zSbpLupQPtOU -0BxcjxuM2H0p81CHh928CkK/6vATgXmcg4HqoMVhNJK//ACPKd8XrJioDt/O -0C+etKvBaVM92h8nqYMonY9pw2I1nhL0mOXgVXWIbLq+LyuuGs9GtuX2GeqQ -H6SRM9pwD6/8kDOcWKAOAg8uzC9JVuEDrHy6k7Xq0FY1d+CbWQVus+qW4Fuv -DpPqej+D18rxsbHGtxsP1cHILZwPLynHZ+7aeLM1q8Me2n76wD9l+Kb+jZvE -LnUI907jmG4vxcVCeXZvjFD0+TIYB10swStOnTUTG1MHblfja716JbjiwUc5 -NR/VIYuJd1tosxjX5jiu0jWpDm8PPFO4F1KMm9277vRzQR3MxQ8++rNRhAdN -cHWZUWnA2pawiK/bTfwF+dTTe9QaoP7VRjd7z01c5EHF4710GnBbhUpO8HYB -/jJGr+YlkwacVtfYpzGRj4uLudww49YARz9wZvXNw9+61nuYSWuAoQPbg+rO -G7i0+Y7zPVkN+Dyq9agx6AYepWl0aq+CBpgbuquPS9zAZek+WL1U0YCNQo8M -r+RsPLaCSs9MVwPm314lKDlfx1W/W7KYmWuAydXNW/qQiSe+zae/Z6EBcXaK -4XZUmfjH5mmqvUc1gD5e5Nuxjgw8KSVsrddGA+jks7FFowz8i8LtCdMzGsAz -ZXi3qCEdz/BfqjMN0oBd7jiZHvOr+OwJneqqYA1QTTcd759NwUkorpwpTAMa -TdM8D8Wl4HPsfAW9kRrw9kebYtjTZBzqscumCRrwQGC8jWiYhC//TrUxzdOA -1O7CCttrCfjH0ZITtwo0IJw8VN6BEvCXT5tsVwo1QCidJcdkJR4vu/LFPr9E -A5qWC/jzbONxB0FNx+/3NOBHyiW6GdXLeI/BuHvyUw34AJfSObkv4Q0yPz0+ -/UeJx8zUe3UoFi9mofNS69QA2es9qfPZsXjEsLLPB7IG9P/ysTcViMVVvePO -yQ1owCW6AvI5x4v4zUy5C71TFFalMn6wG4EnheLhwl81oIfrYHB4fgQeevJY -ROA3DZAPu/6yQSsCt5KKjtq/qAFv5suWHYPCcfrmgVivNQ0I2+xs5/kThgd+ -CUtmYtSEiOJynjnzENyxJzXl9F5NuHibUdP/TzBufq/kaj2LJshF2tUI3A/G -pYNfpdlzaoLVf9MRw5zB+EeGA1lVApogoyxs4TMXhJuokAtMlTThn2R+Sic5 -ALejP3R8QEUTSqNdW2MuBeDen3pZbdU1IYhf+etRLABPv/o69ixBE/a8Uvlz -KOAcPvztnXuMviZMv4hRkAj2w+eenRClN9SEeUGtz0zbvvj2jdEPqcaaUE5q -/DN2yRcXNvxoXnBYE1qfdYyI5PrgZ4un1RttNOHWi6pW1xEvPDTMbZFopwkG -invKhny88CSLb+WdDprwi34tdG2PF17zZ55/4Iwm5Hy3T9bU8MR/2/3anffS -hJtiwQE/Kt3xOM49r0QvakIq13Hvf+OuePZcXPzdWE0wmsoXrEpyxSv+o8WV -L2sC+TTr93JtV/ylH2M9MUkTLl0q5InPccE5X7LnnsjShKHZb9lGbs64eEmm -1adsTTCnU4ndFnTGNS9w7z2bqwlv75esjA054XbS+6IDCzWhZWjfNrOJE14c -J+KaWqEJlws6Z1xCHPEG+2Ih7ipNsGH705m8ehrvVhUfzq/WBIajHoEdIafx -uQkp07t1mmDtOplhcPEUrkJUUuls0YSyH7Uf71c44M9+E3c2+jUhw361It/C -Fi/pe+xy7K0mCO4NOjG4cgKPL9d4WTtE0VMfdykw5wRuaquQ7zaqCSd3f3v3 -T9vg71oECEOTmlBrkRMXnH4cf3w9p0h5RhMKN6IuWpOO4wW+XPQps5rwLZCP -59zCMfyMyN73sKAJSRcv+Bw9cgyfv7QVVLuqCaTFHWbSAWv8tUPIGNOGJpjK -DBZeGz6K12ms6LttacJTKT613fSjeMjXOQ6hXU3Qs1zpEaQ5ilOZjtYmM2jB -XGOT/JtlS5yP4/H8WQEtUGzAvgyImuNbc+rW7UJaUGZ7zVnlwWH8Y0dts+AB -Ldi9eXn8MDqMl5yvSBqU0IJjeTLWZWfNcMWRG9KgpAU5Ec8eH+g6hLPXcabf -VNECKLnX1ux4CP+VlLa2rqYFt5g/H/28Y4I/1kvovq+tBSoSOlWNeia4QVGw -iyBogZkIUXy51wiXCvvZG2qgBdN/EiSMAo1wRitftUFDLaB7HT24td8If73n -LFWyKSU/1adm3ucMcTu3Y0Xr1lqwo8Bt9UHuIO6vqD721o0yfuI/g+ZRwEM2 -BLbPeGrBqgfBciEN8KhOGoElby2waDjs4GQI+FW79/Z7A7Rg5uCtp3+8EF4Z -f+GDQYQW3CvnerZ+CMMfWDpvDURpAbX1bwZfMglvEjDbfyZGCzwObh3ZZ0zC -e+oE7SPjtWC8h69j/jARn/r4bPRhuhY8JPezpATo4t/v3t3Uz9SCI2ctfzbs -6uA/gzL4B65rwdcEZb9X6Tr4P0YXu8U8Ldhry3fr3iMCLqRFNypZqgX6dLXL -hnza+Im0wyM3HmvBeo8kg5e8Bn7aTnNDokULCqxdi3aG1PGzEsL7Gtq04NCd -4RSmGHX8fPPSif4OLej22U+8+EENz/iaOUzfpwUfAt5Eit5WxXPrItaz+yn1 -cs64PHVMFS+KdOWTeKsFoeXyB34yqeL3ObVOoGEtiCjM23zwWxl/iY2+D/ui -BTJ8iceSBxTxt4wda3TTWhB1VZql4IgiPjpUxZv9VQvc33nsX+pTwL95RdrU -zVP65UN1oO6gPE6bI/J+blULqJr1M0+sy+LY0tl39kza0P3d/smvQimcr9Xk -ThuzNrx+9a4hGqTwpSvyAQfYtOEiaWol+askXiT2k/krlzZ86bNbZdWUxHeP -Rx4MENKGe0xuagemxPFhMUfOIRFtEJx895ItUxyvXYLPWmKU7880BxzVF8cd -k+gjd6S0weXPjG9LuRj+X2tmQ6KKNpQxylxJjhbF85KCY7+raYORUNPhGG1R -PMDG1sJcUxte+tzLwicP4KLLQvOcutqU/7Xb2zcGRPBY8UqxWwaU/H/K+JT0 -CuH6yc8yHtpoQ1qzY+UN4f24wIkSRz47SvyP17JL6vjxX+LxiuEOlPmVyvQj -jPjxO22mL/Az2nDBSdMxOHgfTv3z3b9eT2249l9UdNcsLz7W9vi1oo82JLCf -vuB7hRdvSC64ec1PGzafXRW8J8eLu0g4EWyCtOEEMdSuN4gH7zqx4P8lUhvo -WuTRNz5uvFCin3TwojYMeRZax3dx4cE/6/ZWxGpDrrN4YXwgFy6ZElrhk6AN -UYbas7lvOfH4p3sm1tO1IWff2oxfCQduJMl/hPWONjiZjyUmrrPgj370iJ0t -0wa+Ssdjt8JZcMnH59dbKrQhr9axsmOXGac1e3Pbs1obHrte9uZkZ8Y7zyX+ -6nqkDaGOr3e+GzPh6rqazwUea8NcQ+bzpA+MeAn11M3AZm2w/OPsuubHiMfe -wIwOPNOG6J530QKFDDjeupob8VwbCh796XzFQo/Xxt/xfdurDfT0xc/Y79Ph -whZW+rJ9lPo129p/t6DD/3ypnn8/oA2qXiWOB3Np8RZ6V0xtTBti3mmtTOrS -4NrWb6e+LWpD8nqkZnYHFV4hGPMYX9aGkbYuYbsLVDjvV8XUGyvacAiqo4+r -UuGrYUlaB9e1QeFb21C3yT+s4RZKKvpH4T+MjdfV/mLiHj9Ore0hQHmeae61 -+j9YpupNNXNaAuju9Gc80PiDBXStj20xEmDUUFtdB9/BVL7fV7LhIkDuEd0P -ET5bWFHDSeoaHgK4y/IKlu9sYmxRTCPU+wjgd0Dk/YO0TWyJzS22TpAAlgdP -O5s83sBqNIWGmKUIYMMRmnbvwDomG5tyoZNAgI7BP/ge9BtrI5bTmesRYFDP -KPL21C/MauO/rPckAmxcMJlduvILu+C/VjOnTwCGp4thcSMr2ItTTpNs5gQw -bCvAapJ/Yqf4I/3zLAiQ/PrhPWq9n9jPoRs7YkcJEJHvzFQ8sozxH37Fq3WC -ABkzBkFed5cwT11ts5NOBFArzj815bGI/Vm1GplxIcB0VLZH1sQCllHnc9bf -jQDiMZW8r2wXsCcyJRcveROgv0Jo/O7ReYyRj+Xh3WAC1D849Oad8xxW9WtS -cDWJAItfOOJfzs9geO2fyuirBNDyOi+0GT+DDXrt02ZIJ4CeAAdxr9gMtv3F -3ErgOgE+nj60t9lxGjN78zgebhHgCK/PhePLk9hEyiDny9sEkG7vvfckdxIL -Mv5RdOwOxf8sQ+P/9Cexgqfize53CVDR+s/pRsEXbL467UdqPQH+XK93UX06 -gV30qIzge0QAdh/FqMvSExiXRBdDcRNFP9utN5VZnzC9gk2xh60EeNFclql1 -/iOWkuR64kMPAQTP5QesHhvD5N10/5MaI4DtMZ/miuRh7Jq4xfbljxS/9O2l -u8WGsdXPLlpTEwS48i1/rbH1PfbMIbW6aJoAp1Wpy9ZX32HWVp9z9/0gwEqd -PAd31BD2mHV1MGSZ0g8rDW5bYkOY0CtGtncrBBAJunYsrHcQmzVSj89YJ8Cv -50d/CQsPYuHEhAAmKh3AV1Xy7IYHsInN/GoPah3IyChXw5IGMIOm2tkeWh24 -zOBsFU8cwFjURk/FMemARuYBq4Pmb7BiaQXTHS4deKj1PmaW9zX2gvOt2A8p -HRirdG5XFurFlN58PXVYVgc4OU7Sr1W8wLJSt3Or5HXAdufY/KDGC+wUgySb -u4oO7Ok9cqLu2HNs+U/o9oSODnhn6tOv3+vBjrdc1cKIOhDqzekYZdSDPQkr -DriJUfgt79ehyW4s7lfvrK2BDhzGJ7iGD3RjfHNCQwOHdcCOZTP7cF0nFlmu -xqZioQN377WzxNh1Yl9cjE3TrHTgrwKnjTF1J3bv07n/TG104D795L5ghw4M -H+qs7nTUgdhIi1NpQu2Y2zPP+EeBOsBOU55E7G7Flvzmw4yCdeAr/1rJPu1W -7IKwr89wKMUfnbojbfdasJSoc9abkTpA/qjMKFfYjNXphYqSEnWAyOjfJVb0 -GNOb3+B+naQDT00XrAYlH2Nd+eEMjld14Em1n9zX+03Y8GbUUkyGDhxJfs1A -87wR+9N0ua2rQAe6pGyqZ7gfYYnudHXHb+nALb5ROZ+ahxg735XSr7cp+qtp -WP8YP8TEQ1JSGMp14IKz6BRPXANmopFpd/iBDtD39JzmYa/Hsh4UrQ526UDv -tYfL7zdrMKEzonOuZB3Y3p6wTHCpwcrZ7oyvvtCB8geXP6m+qcae+JV38vVT -5q/MdNGvv4d9UqjJcBjVASefs0+bcyox93Gl+IUxHWhcKpNp4avEfqY8CIv6 -pAPmyg1pJvl3Mer5BseiKYoe/T0Fw+UVmGxls+LUog5kma9KBoyXYQ22RNHz -yzpw0jZe6JJ/GUZkeMpN+0sH2Ax/Nv9HU4ZZuLdvS21Q9AzrBBVolmLBks9f -eO3RhTZ7LemS2hLsv+J3Z1d4daEzeSbsy/ot7Iu52JlQfl2wm273VDl1C6Pa -8rPfEdCFOqvaI2ndhZjBUQYLOlFdYNyZu6lbdBMj79Ej7JfXhXdJe6qens/H -vt1PVCtS1IWSOPaEheU8jNFhSEFChcI6ywNN/nmYaYOvqJKmLrB5zKysnM/F -+lxuM+njuhClShd36+YN7AfbIg0ZdCHS1oVop3ADY2vV2TU7qAunV/xpLZ9m -Y1bcg7+OH9IFKamZM93frmNDXbQfPa11YTbotWSpTRY2Juldm+GuC68TqFu2 -+a9hOwNNlbxeuvCDev776dB0TCiaprTARxe0iO3qNCNp2On3hbllAbpw3aDg -y2BJKvYl4U3skwhdUOUrfvDmZAq2R10oEovWhXqJW84pb5Mx8QnPkM4YXeDR -Wq9iMUvGzmpTe/fF64L1Qy411YNJ2LdZzWNf0nUh/MqAfeTxRIzx+qUjbpm6 -0OHXyrQ1kYDJon6T+eu6cFh5IeS9TwLmnetBWs3TBRbrrJ6I1HhsyaRAirFU -F/YymQ9pzcVhq5X/NlQe68LJZFcdPqpYbPaEcXFyMyX/PRfLdpxjsFHatEPT -rbpge3f80EvyRazVSSA/p10XuDz+iSjlR2Nx/Fp6f3t1wTe4fyb5TCQWTI6c -OtGnC96+tCVDIxGYe3BnSl2/LsxUbnbUW0dgpgOW465DuiC0IqK2bRmOcSR5 -R738qAvzidz8gR5hGLV2vaTkZ1149b3wPufvUGx1eqMvelIXlKliDedjQ7ER -lCCsNqsLexzOKu8vDcGKNm4/y13Whd8/ntZYUQVjih7vqdyo9eBasX/REG8g -JsIrVPWMVg9WB8rfOrUHYBxdLkf5GfSgT3jrZqZvAPZb5GfJK2Y9qNIQ5Yi+ -fg5rGd57UJ1XD1hrV8OnFf2wmvijC1f36UFwe45mWoEvVqSed/3rfj3YkRiu -YWD2xS6lS83kieiB7r6YWp1Vb+yQMST8k9GDbuFjjcKznpjeaqKSvbweFKvZ -mE54emKKd16/b1DUg43T924wLXlg7LsO0u5qepCeytsY+M8dG24Med6npwdS -F5mzjmBumKtUNVPBET3I+XJ2k1HIBYvocfSWttIDh3dCe8hPnLEMN65XDdZ6 -8GxrKzzf1hlrKw9PfWVLye/HrWHbm04Yj/Qh9r/OegDXm7z4gh0xefLOueSz -ejBdtapW0XcaA/cHA7welPFSay7PZE9jfhV8Wcq+euA9LBOGLZzEyNJfeZxC -9cAj61r6pVx77CM5L2Txgh78Fn/z79Ree+yXu/nwhUg9IHRbG2jF2mEH7j7M -zYzVg+PnknYLg22xCzJxAl0pejCxRhNQfNEGk5c9ICp9m6LX0VZKntkagxeD -sQ0levBH6vJXprtHsROeiZN4mR5gBzirmY2OYpcrf9yxrdKD6JOF70yuWGEf -Zdukkh/qgVk3bceUsQX268W5RN4mPfgq+t/9U0VHMEYviW8lT/Rg6kRHUsCW -OaZVlVLZ8pSi94ox2/6Ww1i6nL3C4nM9iOMcPurpaoqV9bKkXnipBzeKVMhV -7w9hLV7ti7Sv9UBReV5wzewQ9q1KplZ4UA+4eST0PXETDOTXVS0/6kGEpc6H -vSZG2Ir8de2Gn3og8e/62fxBfWy0D4y4f+tBpXblR84Qfazdf+lY8JoeeP1O -mfTdr4+lN5gGam9T6r8af7XMAzB5PaqaFhoiWPsbv9ZUxzHOj/dbBOmJUDx9 -5+vh6xi2GX2yN4qRCF51A/r5GySM3NE0i7MS4b/gyBc3eomYi6mfWBcfEbLf -X77llKmLmS4IqEruJ4KM1RvuoL26mGraCzxBkAjp3xi6UaIOtjsgccpElAhX -ZdstRxMI2E27sZxXckRIs7sQlVSqhb3zMGF5RyLCkaqxemYLdayVaU1ACxFh -Lszi0+yiGnan+o5cjj4Rfpt58j1NU8MClv8a2xkTIVW6Rl/9vSrGGvbo0kdL -IuhkB/Y7ripjq/wuGZg1EbbKopfuWCpjH1vYbxcdJ8JrMT8Xo1ol7N6ud5uT -PRF6/CLMnUIUMeNEsY0ZFyKoqOeJiMjJY0qyb+iM3Sj5sMbZxt2Sw3heRvHc -9SCC2r/QC108ctgU66ialy8RQowLKkqYZbGYG+m+P0KIIMKgpmKwXxp7UrYz -uZZEBKd7YnIFleJY4+QiS3EaEbQGU18SZ8WwBpEJglkWEXZD2I0qFMSwmrz2 -tKKbRIhzT72P5R/Aqt7XPzlUTPHnjueUmqUIVsFVOv2rjAhPtj1dPLiEseLU -BF2TWiKIlaDjl58JYLd6Q8+uNBCBP0dY2K9iP1ZA73nt5mMiHJzKiSzK58ey -Y82+LrcT4YaxxTRXMR+WHMyemTdEBCr8V0+/GDeWWE/VZjBKBNfGdgMnOy4s -fmlldvEjERIWZob353JiFz3fkfRniRDmYNDbqsBBuT/1eCzME+HFt4iPbNTs -2IWppqwby0TQFzP7FdfCigWdyp/7vkkEi6HcjTfWzNi5/BTu7L9E4OLtG76l -thfzHY7EcWoSSDS7rKkJMWHuVo7ZWcwkoCquv9vPxYA5GEoAUYQErH2skuRw -GqzYbWncTIIEbC+kq+3zqbHZxOYwB1kSmP9sC/3SuQcL6rV8EK5OAtN4s7/s -6lTYk3mBw8kEErjl19O9/bFL2mWenc0jkeAyo++2dNJfUopFlMgTYxJ8KdIv -/7ywTeLL5DoxYkWC5ELbQ++SN0l3hirT1h1IUJw7LkJ3ep2kzId6eN1IoPKq -N2nCaZXUYvf+j+Y5EhzLZGZTzfxFMr7po3k8nASndCKEJed/kgY/7fE9f5kE -43/9VgIGlkiOonmlWWkkih/L0f4ci6R5F+Xx+lwSmETs4XFO/04KLe/meltC -gvApaonvht9I1HMOZj+rSSCtTpMtpPKVlC6/com9iQSLY4/now5NkwT9rjQr -t5NArlmFsJQ6SWqhis/jGiJBqGTtbeK5TySH7Niw9a8kWI76pzFWPUrakok+ -MbZJgo2os10nqt+R8lrDtZ4xY2CSx7+5avGWRLAM5bkjgoGSQq3spa0+0vBU -0O8ENQwW+z5Fl2IvSGYh1uemNDA4+nVBJv/Rc9IzBvUFXBuD6/efXElRfk6q -UFyZ2tDDgMz9FTugQCaFhp4b9DLEQHz0u9VJo24S717f+iO2GJR4XCy/uNJO -2rwTYxBxCYOBvsdX7KubSGPE60MV1RicvVOxVm5QS/IMKSs0rcVgeDyPpyv2 -Pmm9ttFtsQ6D8zRe56u6akhc4qMbak0YrHNqepy0rSYdZhQWetpOiZ/rGIE9 -rCS1vas4O/QegxxGsYSz0mUkM7YnSqGjGGhd+aB+rayUNGrSu84/jsGaJL3A -b6lS0mrLQpLjFwyQp7MRn/odklKJ6v3v8xhwOgslNfgVk9rG9ENTf2BwZ3Fn -7ipNMcmM5xhS+YkBtX3pOLfObZL7lZC3wWsYtGjp1blW3SKtticW7NvEIDTi -qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw -18hpWOkpIP0PtXjCHw== +1:eJwV13c8lf8XAHDRpGTv8dzrorJH9nWOhuwVEtLNSNJQ+TYoq5RSIsqIskuF ++1yU0RAlGlJGRigafkJkJvJ7+uu+3n/dzzmfMz4Pzfugkx83FxeX9CIurn+/ +Uz0NzxixuaaMOXb6duENpi03JE6YtUfB+Vta6qVJBKDoW2+J9iuwNaCDFpek +CUcd7nzgac8G56C/x4KTEARHxK/8/sABXBQvYpvkAL0P7Q5OfKiBmjZC5W0i +C8wZg91jH96Dmnncie8JQfD7g/7V0Q99oJrT8MLpQgTUbryV+y57HI7zpJvs +kkwAmd6Kb96q8xBU5qZeIZYKIvt23lm2kQc1ZgRG1lhmwhUt8yo7l+X4o6Lu +CYrnQkeKZvWYwCrcsT9tXtbjFsTmhr/llhTEkw96A23P3wHxpP7ziRnC6FWp ++8t0QyFIqJSdmckXxoDFA1syrAtBquZs+A62MEYmq7InnQtBbnTtf8q1wvi/ +3KKSJP9CULQJYlUNCGPO3wG/2IuFoLN4Xq9fRwQ7Ljgdd28tBPtgsS/aL0Uw +vNCv7ph3EZxztjR9PyWKPaXecif2FoNUaaMU9yIx9Lbg850/XAxFws7TWnxi +GPWoZG9IaDG0vfdiJ8iLYXt2zAOvi8XAcAymO1qIYXpniH5TYTHU2N5c2pQq +hmSYtbTrz2KYN59sfGMijgz3S6rBemyIzw+5O28ujr6bd2WZGbGBsZQrRs1R +HO0P+gbymbLB5jmv2SU/cdQWHJxP3MyGtI1EiU2cOL590SF6wpkNBmid/KpX +HDekzH68cogNRwyzdjZESaBiV88+ngI2WGXyT1hflMC0nWIs+j020JedjGm8 +KoGiv/9KmxazoanFlWy+LYHEmcThwDI2qAet5OlplMAHIc2TmU/ZMJB/LP+X +lCS+t7CNC+pgg6eI3bB0iSSe7eIh85aSoBNaFXnjoSTm8z/O37GCBN6+NWK0 +Oknk+XXVV2glCRXFPKDUIYm9W98aHBYkQcy6Il5zQRJ/c8Y38cmQ0BTJ0N1s +LYWmPSl/sjVJ2PRzNuRAvxRGLw+/ErCNhBMWSeueDkmhmtY7oeLtJBRlqXUK +T0nh79VpYWMeJEg4swwrlktjnoKO5H4WCUPlz6d51KVxT+K6nRBAQmJUfHDq +cWmssXJydQghoU9U6cCzVTLo/jyepZhGgvjBJ7Li4jIow+VZvDydBJt6tzcB +hAw+ivMeHcgg4X5IrOpqHRlUl9S1yswi4ULv6OB2NxnsSkv1HbxNgnZBlf/P +bBlUWlcVPHSfhEgTx11SBrJYYt6oeaeJBAuvG7/0N8gieayTz/Y9CfwRP067 +2Mhi05Fk96FmEtJro/PjWbKYJMnnQnwgodyq8sfS87JYIBv4akc3CaNuCkfH +O2Tx5gsLdY3/kfAgJGiZ4BdZvJz1Jjx1kISw9Ecp6iOymDpGs+UaImHlp21V +AdxyGOzgv6N2hARl/4tcn9bJ4fqSbz7yEyR4/Td54XWoHFa0Osdo/CVBMXmD +zGC0HGa0hnfuWviXv8uFy+LlMDmYJOO5OBAyt7ZpQ64cDvVfH+vn5sDV016i +Fa/l8KPwaD1rGQdeJ7y4mScrj3/GZHxLV3MgsUREq1ZZHnULfJyKBTjg3rqr +5pOWPJ4WnHmbL8iBAYm5L9Lm8si/qjo0VpgDPJma664ckMd1aVwFKuIcMCpK +LQ17Io/u5gbTL2Q5sOlD4/xIvTxq9VYrh8txwI5r8Zad7+XR77i9j448B3yc +DnTAV3n8FPNt/grBAfNQWnjEEgL5+ObfqStw4NXqhzkGvAT+siIDGyk75LrW +j/ITGHvbTjSQwQGPN7GCuyQILGc9S7uuyIEg+akcMxUC/+7YENGhzIHJkvj6 +3xoE3pv+dGfXGiofFirDpC6BTVyhg98oRx9i6dFNCRzaYXB3YC0H0mpf1nM7 +Engumra5QYUD8m5+w5UuBDrW9641UuVA7tCC4BF3Au/TO9fcplwsut6j34dA +dx6t46FqHHjmf3O49iiBN60dDi6oc8ByzlDoZCiBS5SbDbZrcKAxvkVPN4JA +YX0uOptyR8WKiNzzBM45yLq6aHLAyy431zOOwOebDmXnUP7SZ9ogkkigNuoL +/qQ8whcsFJ1OIFflgNspLQ4cyeTXZ2YR+C2PqVNNeUa3wGMyj8DEIx+0ubSp ++/HqyfUrJvCIcGnuMcoxv443yJYSqFPvJ1FMmf+c8EhrORU/3ai0n7IE20Lf +vIbAwAUN/006HMjY1O/xt45AuZfPw4Mo0ztORdx/RWD1q921qZRv75fIO9BE +oHhro3Y1ZTXukgalVgL376ps7KfMuWY70tNB4Kpr35IX63LAQGVAKLmHwE4z +wct0yo+eROnb9xP48uNMKZPyBmdZz2UDBJ4858nrSvnFwIOIJ0MEVvDOXQ6k +bHPKKe/YGBX/h2TzMMrvBYcbNKYIXLZ4TD2O8rb8cyPfZwm0d2iwvE75oxFd +OHOBwByiPzmPsvfbh/pui2lYEL5IqpDyd59tngIraOguO9BEUt43MxZRv4qG +qXYej0ooGx3aLfZNiIYrSIlCDuXlg513eSRo+Nhjw7Yiym3e9mY0WRo6/q/l +YT7lvK7aNlM6Da1b3/T8+/9gZ4N9nso0PBCq8vjSv/je3FsUokrDWbFhj5OU +BcxpyclaNOSuEarwp9zz+KpqmR51vuCMNnvK9/R5a94b0/Dw4stlupRD2GHb +RpGGcQqDrmKULdaOD60yp6EEi1M1QeVbLNs/SsWahgEKQ1/eUv4i9VHc0oGG +3mR6861/95HoULjbhYY5yi9jTlK2jzZsz9pJnTei3EqGstzfwv1PfGkY1n5+ ++3eqHoaO0nm6A2gox/Nb+1+9xOzhU5cIpqHvRKflesqun8Nr15+g4bY+3/Pj +VP0x3CfctobRsO9nZXIR5Wrr7tNxMTRMe8etKE057pmj5L1L1Pn8hfJfU/Xs +yawrarhCw4Qba2dDKP9WL+5YnEHD0P0l8o1Uf2gLRWqEkjR0MjALs6P6iSt2 +8lnKfRqOvkoq+0b1WyPPXvf7VTQs+36p/l//BU46RY89p+F0U2N0+r9+bWd0 ++XfSkCFqdbJ8HQcOO6YGRfdS97n0dLE+ZXy5amnOFxp6LdV+UUL1f3fVlGbP +CA3L1QNuZ1PzQexm/VlnHjo2Z9xy9FCi8inOlDm8nI7RjOkXT6l5w4knycur +6Djg/1hFkbJ9VNrHl+J05MON1X3UvIrx26dtpkrHXmdDpiGNik9FoEfNhY6J +z1vOO0tzYCpDKlLHnY733RWk46Q4MLFakWG4k45D+yzrn0lS/T5uuHdTAB0v +VCWHrJXgQF+Vz5T7KTpq9Nd4NYlw4KX1A/6YPDrK/b6mcHUV1S+PnpKX7tCx +5T+12cyV1DzSeO2cWExHgaTmvwV8HHgs/DntRgUdn+74da1kBXX+Ll7lsjd0 +vOcoqpC3hJp/gV7QN0lHF3olyT1PQnL3nr7vs3TkT+BMfv5DQpL9kejhBToq +JVwKeTxLQpxOzKuZFQq4TarU+uAMCVF/yG2r5RSQacpSY4+TEBi7JMjEXAEF +T3yfK6b2n8nde5nXrilggY6YF5van13E3ZubryvgmdHr/lup/RpyreDGxE0F +/DJTrDFB7d8HkfnpTgUKGFaRuqDeSO1rt8wU/ocKmLJXuep8PQlrlyTFn/2s +gGlGP861PKTeJztDI46qMtA1kfOkLoeEspYT4YpaDHzaEJGukE2Cs9XxsJb1 +DJyp198elknClfX/ndQGBh5KyjyqRr0XVq08eHzEkYERnZo7D18jYXGFd9Du +Ywy8NfyhLTmGhDEhK5ZrDQPvxs0NugWS0L6P3rT3BQN71WYeWFHvleq6WQh/ +zUDiYI6akT8J8SF35W+3MTDoeaaEkA8Jmn0re38PMjB1ZZBIvjsJB8i3OzKE +FTEhTb1npyUJg/YuHl98FfGBX/dNhiIJXy6yXA8vU8LbovBpQxsbDgyq0jVX +KuHp4kmftmY2TG/5PTwsoIQrv+ir7XnHBl6eK9EBUkq4er/01bOv2aB5oraU +paaEsgKxXUU1bDjlpyRsv1UJZzWrbYqK2CBmOvRW5aYSbt1VLHQomg2WP49Z +ftVTxnZ0G7dQZ8OQz/IjpeFrcJp24xHXoyLqe0Kc+1zNWlQ3L+81nLsHQm+U +4tg/16F0vHLXguldkIkpdtDTU0Wjn6X9kZYFkKJiKCDsr4ZHvjqlsvbdgpdS +ZuvHE9SxzyxbkkzOAyOZmniNNg38OxnqejErB/h5soN3RWliW+Sr283tWSAX +KW+yXUkL68SfxVbP3IQVip73nV5oYVbP8rLu8HRQZ0oWH9uhjXWt3KIZh1Ph +cI9QrRWXDt4Tdx1y8bwGP8cvulim6OCH0bnybk4ibNGoS7NU08WneZnmdTYJ +8Hjc+M90oy5uNPhc/q77EhxQ1e5857cexz+2HnnXdx6YI74t21fooeLW08nZ +y87CZoaE7apsPbyT7f39c1sUrIm4cLxGXx8l+w7/KRWKgHV+hk8UO/Xxf8ev +sxO+hoDf4z1nSg8ZoJuHUIR73lF4ktniOyZqiGelskSliw7DxO2FaY0HhthT +kbX58sMD4KN4d0WarREucSpfxQwNgJDnXnuVHIxwkEdSxWx3AMT7Cb3iOBmh +VFCdgLNjADzMO3Hx1TYjDM/9K5KvHAAiShar53cZ4dUEWdpsyx6oU/oqwjpq +hMK7vzp4aO+BdWvkCaWbRvho6syLl9O7YWxdoh5n1Aj1zMUM7971hfbXuFl4 +3AiDjBMdba/7QvWBka3Bk0a4bW5nxuwFX4jjWB7SmzXCH39K7h/d6wvrjLju +VfIYo9cj4y0Ta33B23I/rVbMGC14UzMW7vhAi/+WlS0mxhhy51OQWpk3lOf+ ++TwZY4xHb8mcvjHAAr2NwdNWscb4d/ErAUYXC8o+D63MvGSMrP7tc5w3LODI +9ehbXTHGW3XS7UMcFtxLqb5047ox1hQUrG46xYLMi9GGW4qMMaKnbtRelAXn +g1cnpDQbY6TY31b6NS9w36SAxnImyCemVbEoywPmW5bz1xIm2H+umycyxgMy +/Ua6rBRM8I237W7hIA/4drbimPsaE7TuzTE7BB5wuMG++IS2CZ6VOT+/utcd +LtidlCs3N0GDLQ5TjTR3qHRrndM9aIIm4jyshVI3kN5/rkK92gR5VPiGbqx2 +hbiF3etja0wwx1GjvmfOBbivmJPfn5ngFpZdteqgCwzeX1KQ2WCC75YJfv71 +zAUquc6kCDWbYO+R+GGlUBdwT4o4NvXVBB+Z3DmrNOgMKVUn1j/mY+LCXOra +Le+3gijvPtJ2GxPtTq6J12twhNyNp0JGtzOxf2dl9/ADR9A+Fbcx0ZOJ+c94 +FUrzHcFulN3avouJ3Y2CAfvPOMLZtsnfPvuYuFxMi0xAR5jJDt8QEslEeYvh +8uQqB+g0TmzOv8tERc/1qjeO28Oe/3LTLYuY+K3/l3zWdnuYKirzG2IzscLQ +0/OJkT0I0dunte4zcXHUnh2283ZgvVxW5lE1E1ViA80LT9vBw5Z83+ZWJsac +JngDr9qCFX+52tF2Jnp8+8wredwW2rc0TEl0MfEH6S302d0WJip/xHh9YuIi +u4pvjwlbUMvSLPzfIBMPdrWHFRfawMNOs6MXh5l4ke1zWSXBBqxEtoLGKBPd +7/PwPg22gd3n/nsXPMnE70JLR/VNbGCi+mya+AyVL9E6XUnCBqJmk30qZ5l4 +OdX1mvBiGxDQLVDdMU/FVxK1SHnAGm7sr5xcWGCi2BPCZ+tra/g/qbbyGQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.0711166703506997}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2860,6 +6959,7 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2887,7 +6987,8 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0711166703506997}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2895,25 +6996,887 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991334471589432*^9}, - CellLabel-> - "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] + CellChangeTimes->{3.991334471589432*^9, 3.993917927711584*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"e4e13132-eeb9-4674-a8b2-670f312cbeec"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ -a8e133e7a081"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015632"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025463"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034444"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042305"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048862"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.053992"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.05763"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.05981"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060594"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060116"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058529"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056023"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052783"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.049014"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044891"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.04059"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.036252"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.032004"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027939"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024133"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020631"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017466"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014645"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012169"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.01002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008181"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005319"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004237"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00335"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993916461048534*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.060594}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993917927801228*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"0f15fbe3-54b7-4f70-a6fa-8f53acf7b4e8"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ -f16397f0b922"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8lf8XAHDRpGTv8dzrorJH9nWOhuwVEtLNSNJQ+TYoq5RSIsqIskuF ++1yU0RAlGlJGRigafkJkJvJ7+uu+3n/dzzmfMz4Pzfugkx83FxeX9CIurn+/ +Uz0NzxixuaaMOXb6duENpi03JE6YtUfB+Vta6qVJBKDoW2+J9iuwNaCDFpek +CUcd7nzgac8G56C/x4KTEARHxK/8/sABXBQvYpvkAL0P7Q5OfKiBmjZC5W0i +C8wZg91jH96Dmnncie8JQfD7g/7V0Q99oJrT8MLpQgTUbryV+y57HI7zpJvs +kkwAmd6Kb96q8xBU5qZeIZYKIvt23lm2kQc1ZgRG1lhmwhUt8yo7l+X4o6Lu +CYrnQkeKZvWYwCrcsT9tXtbjFsTmhr/llhTEkw96A23P3wHxpP7ziRnC6FWp ++8t0QyFIqJSdmckXxoDFA1syrAtBquZs+A62MEYmq7InnQtBbnTtf8q1wvi/ +3KKSJP9CULQJYlUNCGPO3wG/2IuFoLN4Xq9fRwQ7Ljgdd28tBPtgsS/aL0Uw +vNCv7ph3EZxztjR9PyWKPaXecif2FoNUaaMU9yIx9Lbg850/XAxFws7TWnxi +GPWoZG9IaDG0vfdiJ8iLYXt2zAOvi8XAcAymO1qIYXpniH5TYTHU2N5c2pQq +hmSYtbTrz2KYN59sfGMijgz3S6rBemyIzw+5O28ujr6bd2WZGbGBsZQrRs1R +HO0P+gbymbLB5jmv2SU/cdQWHJxP3MyGtI1EiU2cOL590SF6wpkNBmid/KpX +HDekzH68cogNRwyzdjZESaBiV88+ngI2WGXyT1hflMC0nWIs+j020JedjGm8 +KoGiv/9KmxazoanFlWy+LYHEmcThwDI2qAet5OlplMAHIc2TmU/ZMJB/LP+X +lCS+t7CNC+pgg6eI3bB0iSSe7eIh85aSoBNaFXnjoSTm8z/O37GCBN6+NWK0 +Oknk+XXVV2glCRXFPKDUIYm9W98aHBYkQcy6Il5zQRJ/c8Y38cmQ0BTJ0N1s +LYWmPSl/sjVJ2PRzNuRAvxRGLw+/ErCNhBMWSeueDkmhmtY7oeLtJBRlqXUK +T0nh79VpYWMeJEg4swwrlktjnoKO5H4WCUPlz6d51KVxT+K6nRBAQmJUfHDq +cWmssXJydQghoU9U6cCzVTLo/jyepZhGgvjBJ7Li4jIow+VZvDydBJt6tzcB +hAw+ivMeHcgg4X5IrOpqHRlUl9S1yswi4ULv6OB2NxnsSkv1HbxNgnZBlf/P +bBlUWlcVPHSfhEgTx11SBrJYYt6oeaeJBAuvG7/0N8gieayTz/Y9CfwRP067 +2Mhi05Fk96FmEtJro/PjWbKYJMnnQnwgodyq8sfS87JYIBv4akc3CaNuCkfH +O2Tx5gsLdY3/kfAgJGiZ4BdZvJz1Jjx1kISw9Ecp6iOymDpGs+UaImHlp21V +AdxyGOzgv6N2hARl/4tcn9bJ4fqSbz7yEyR4/Td54XWoHFa0Osdo/CVBMXmD +zGC0HGa0hnfuWviXv8uFy+LlMDmYJOO5OBAyt7ZpQ64cDvVfH+vn5sDV016i +Fa/l8KPwaD1rGQdeJ7y4mScrj3/GZHxLV3MgsUREq1ZZHnULfJyKBTjg3rqr +5pOWPJ4WnHmbL8iBAYm5L9Lm8si/qjo0VpgDPJma664ckMd1aVwFKuIcMCpK +LQ17Io/u5gbTL2Q5sOlD4/xIvTxq9VYrh8txwI5r8Zad7+XR77i9j448B3yc +DnTAV3n8FPNt/grBAfNQWnjEEgL5+ObfqStw4NXqhzkGvAT+siIDGyk75LrW +j/ITGHvbTjSQwQGPN7GCuyQILGc9S7uuyIEg+akcMxUC/+7YENGhzIHJkvj6 +3xoE3pv+dGfXGiofFirDpC6BTVyhg98oRx9i6dFNCRzaYXB3YC0H0mpf1nM7 +Engumra5QYUD8m5+w5UuBDrW9641UuVA7tCC4BF3Au/TO9fcplwsut6j34dA +dx6t46FqHHjmf3O49iiBN60dDi6oc8ByzlDoZCiBS5SbDbZrcKAxvkVPN4JA +YX0uOptyR8WKiNzzBM45yLq6aHLAyy431zOOwOebDmXnUP7SZ9ogkkigNuoL +/qQ8whcsFJ1OIFflgNspLQ4cyeTXZ2YR+C2PqVNNeUa3wGMyj8DEIx+0ubSp ++/HqyfUrJvCIcGnuMcoxv443yJYSqFPvJ1FMmf+c8EhrORU/3ai0n7IE20Lf +vIbAwAUN/006HMjY1O/xt45AuZfPw4Mo0ztORdx/RWD1q921qZRv75fIO9BE +oHhro3Y1ZTXukgalVgL376ps7KfMuWY70tNB4Kpr35IX63LAQGVAKLmHwE4z +wct0yo+eROnb9xP48uNMKZPyBmdZz2UDBJ4858nrSvnFwIOIJ0MEVvDOXQ6k +bHPKKe/YGBX/h2TzMMrvBYcbNKYIXLZ4TD2O8rb8cyPfZwm0d2iwvE75oxFd +OHOBwByiPzmPsvfbh/pui2lYEL5IqpDyd59tngIraOguO9BEUt43MxZRv4qG +qXYej0ooGx3aLfZNiIYrSIlCDuXlg513eSRo+Nhjw7Yiym3e9mY0WRo6/q/l +YT7lvK7aNlM6Da1b3/T8+/9gZ4N9nso0PBCq8vjSv/je3FsUokrDWbFhj5OU +BcxpyclaNOSuEarwp9zz+KpqmR51vuCMNnvK9/R5a94b0/Dw4stlupRD2GHb +RpGGcQqDrmKULdaOD60yp6EEi1M1QeVbLNs/SsWahgEKQ1/eUv4i9VHc0oGG +3mR6861/95HoULjbhYY5yi9jTlK2jzZsz9pJnTei3EqGstzfwv1PfGkY1n5+ ++3eqHoaO0nm6A2gox/Nb+1+9xOzhU5cIpqHvRKflesqun8Nr15+g4bY+3/Pj +VP0x3CfctobRsO9nZXIR5Wrr7tNxMTRMe8etKE057pmj5L1L1Pn8hfJfU/Xs +yawrarhCw4Qba2dDKP9WL+5YnEHD0P0l8o1Uf2gLRWqEkjR0MjALs6P6iSt2 +8lnKfRqOvkoq+0b1WyPPXvf7VTQs+36p/l//BU46RY89p+F0U2N0+r9+bWd0 ++XfSkCFqdbJ8HQcOO6YGRfdS97n0dLE+ZXy5amnOFxp6LdV+UUL1f3fVlGbP +CA3L1QNuZ1PzQexm/VlnHjo2Z9xy9FCi8inOlDm8nI7RjOkXT6l5w4knycur +6Djg/1hFkbJ9VNrHl+J05MON1X3UvIrx26dtpkrHXmdDpiGNik9FoEfNhY6J +z1vOO0tzYCpDKlLHnY733RWk46Q4MLFakWG4k45D+yzrn0lS/T5uuHdTAB0v +VCWHrJXgQF+Vz5T7KTpq9Nd4NYlw4KX1A/6YPDrK/b6mcHUV1S+PnpKX7tCx +5T+12cyV1DzSeO2cWExHgaTmvwV8HHgs/DntRgUdn+74da1kBXX+Ll7lsjd0 +vOcoqpC3hJp/gV7QN0lHF3olyT1PQnL3nr7vs3TkT+BMfv5DQpL9kejhBToq +JVwKeTxLQpxOzKuZFQq4TarU+uAMCVF/yG2r5RSQacpSY4+TEBi7JMjEXAEF +T3yfK6b2n8nde5nXrilggY6YF5van13E3ZubryvgmdHr/lup/RpyreDGxE0F +/DJTrDFB7d8HkfnpTgUKGFaRuqDeSO1rt8wU/ocKmLJXuep8PQlrlyTFn/2s +gGlGP861PKTeJztDI46qMtA1kfOkLoeEspYT4YpaDHzaEJGukE2Cs9XxsJb1 +DJyp198elknClfX/ndQGBh5KyjyqRr0XVq08eHzEkYERnZo7D18jYXGFd9Du +Ywy8NfyhLTmGhDEhK5ZrDQPvxs0NugWS0L6P3rT3BQN71WYeWFHvleq6WQh/ +zUDiYI6akT8J8SF35W+3MTDoeaaEkA8Jmn0re38PMjB1ZZBIvjsJB8i3OzKE +FTEhTb1npyUJg/YuHl98FfGBX/dNhiIJXy6yXA8vU8LbovBpQxsbDgyq0jVX +KuHp4kmftmY2TG/5PTwsoIQrv+ir7XnHBl6eK9EBUkq4er/01bOv2aB5oraU +paaEsgKxXUU1bDjlpyRsv1UJZzWrbYqK2CBmOvRW5aYSbt1VLHQomg2WP49Z +ftVTxnZ0G7dQZ8OQz/IjpeFrcJp24xHXoyLqe0Kc+1zNWlQ3L+81nLsHQm+U +4tg/16F0vHLXguldkIkpdtDTU0Wjn6X9kZYFkKJiKCDsr4ZHvjqlsvbdgpdS +ZuvHE9SxzyxbkkzOAyOZmniNNg38OxnqejErB/h5soN3RWliW+Sr283tWSAX +KW+yXUkL68SfxVbP3IQVip73nV5oYVbP8rLu8HRQZ0oWH9uhjXWt3KIZh1Ph +cI9QrRWXDt4Tdx1y8bwGP8cvulim6OCH0bnybk4ibNGoS7NU08WneZnmdTYJ +8Hjc+M90oy5uNPhc/q77EhxQ1e5857cexz+2HnnXdx6YI74t21fooeLW08nZ +y87CZoaE7apsPbyT7f39c1sUrIm4cLxGXx8l+w7/KRWKgHV+hk8UO/Xxf8ev +sxO+hoDf4z1nSg8ZoJuHUIR73lF4ktniOyZqiGelskSliw7DxO2FaY0HhthT +kbX58sMD4KN4d0WarREucSpfxQwNgJDnXnuVHIxwkEdSxWx3AMT7Cb3iOBmh +VFCdgLNjADzMO3Hx1TYjDM/9K5KvHAAiShar53cZ4dUEWdpsyx6oU/oqwjpq +hMK7vzp4aO+BdWvkCaWbRvho6syLl9O7YWxdoh5n1Aj1zMUM7971hfbXuFl4 +3AiDjBMdba/7QvWBka3Bk0a4bW5nxuwFX4jjWB7SmzXCH39K7h/d6wvrjLju +VfIYo9cj4y0Ta33B23I/rVbMGC14UzMW7vhAi/+WlS0mxhhy51OQWpk3lOf+ ++TwZY4xHb8mcvjHAAr2NwdNWscb4d/ErAUYXC8o+D63MvGSMrP7tc5w3LODI +9ehbXTHGW3XS7UMcFtxLqb5047ox1hQUrG46xYLMi9GGW4qMMaKnbtRelAXn +g1cnpDQbY6TY31b6NS9w36SAxnImyCemVbEoywPmW5bz1xIm2H+umycyxgMy +/Ua6rBRM8I237W7hIA/4drbimPsaE7TuzTE7BB5wuMG++IS2CZ6VOT+/utcd +LtidlCs3N0GDLQ5TjTR3qHRrndM9aIIm4jyshVI3kN5/rkK92gR5VPiGbqx2 +hbiF3etja0wwx1GjvmfOBbivmJPfn5ngFpZdteqgCwzeX1KQ2WCC75YJfv71 +zAUquc6kCDWbYO+R+GGlUBdwT4o4NvXVBB+Z3DmrNOgMKVUn1j/mY+LCXOra +Le+3gijvPtJ2GxPtTq6J12twhNyNp0JGtzOxf2dl9/ADR9A+Fbcx0ZOJ+c94 +FUrzHcFulN3avouJ3Y2CAfvPOMLZtsnfPvuYuFxMi0xAR5jJDt8QEslEeYvh +8uQqB+g0TmzOv8tERc/1qjeO28Oe/3LTLYuY+K3/l3zWdnuYKirzG2IzscLQ +0/OJkT0I0dunte4zcXHUnh2283ZgvVxW5lE1E1ViA80LT9vBw5Z83+ZWJsac +JngDr9qCFX+52tF2Jnp8+8wredwW2rc0TEl0MfEH6S302d0WJip/xHh9YuIi +u4pvjwlbUMvSLPzfIBMPdrWHFRfawMNOs6MXh5l4ke1zWSXBBqxEtoLGKBPd +7/PwPg22gd3n/nsXPMnE70JLR/VNbGCi+mya+AyVL9E6XUnCBqJmk30qZ5l4 +OdX1mvBiGxDQLVDdMU/FVxK1SHnAGm7sr5xcWGCi2BPCZ+tra/g/qbbyGQ== + + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8lf8XAHDRpGTv8dzrorJH9nWOhuwVEtLNSNJQ+TYoq5RSIsqIskuF ++1yU0RAlGlJGRigafkJkJvJ7+uu+3n/dzzmfMz4Pzfugkx83FxeX9CIurn+/ +Uz0NzxixuaaMOXb6duENpi03JE6YtUfB+Vta6qVJBKDoW2+J9iuwNaCDFpek +CUcd7nzgac8G56C/x4KTEARHxK/8/sABXBQvYpvkAL0P7Q5OfKiBmjZC5W0i +C8wZg91jH96Dmnncie8JQfD7g/7V0Q99oJrT8MLpQgTUbryV+y57HI7zpJvs +kkwAmd6Kb96q8xBU5qZeIZYKIvt23lm2kQc1ZgRG1lhmwhUt8yo7l+X4o6Lu +CYrnQkeKZvWYwCrcsT9tXtbjFsTmhr/llhTEkw96A23P3wHxpP7ziRnC6FWp ++8t0QyFIqJSdmckXxoDFA1syrAtBquZs+A62MEYmq7InnQtBbnTtf8q1wvi/ +3KKSJP9CULQJYlUNCGPO3wG/2IuFoLN4Xq9fRwQ7Ljgdd28tBPtgsS/aL0Uw +vNCv7ph3EZxztjR9PyWKPaXecif2FoNUaaMU9yIx9Lbg850/XAxFws7TWnxi +GPWoZG9IaDG0vfdiJ8iLYXt2zAOvi8XAcAymO1qIYXpniH5TYTHU2N5c2pQq +hmSYtbTrz2KYN59sfGMijgz3S6rBemyIzw+5O28ujr6bd2WZGbGBsZQrRs1R +HO0P+gbymbLB5jmv2SU/cdQWHJxP3MyGtI1EiU2cOL590SF6wpkNBmid/KpX +HDekzH68cogNRwyzdjZESaBiV88+ngI2WGXyT1hflMC0nWIs+j020JedjGm8 +KoGiv/9KmxazoanFlWy+LYHEmcThwDI2qAet5OlplMAHIc2TmU/ZMJB/LP+X +lCS+t7CNC+pgg6eI3bB0iSSe7eIh85aSoBNaFXnjoSTm8z/O37GCBN6+NWK0 +Oknk+XXVV2glCRXFPKDUIYm9W98aHBYkQcy6Il5zQRJ/c8Y38cmQ0BTJ0N1s +LYWmPSl/sjVJ2PRzNuRAvxRGLw+/ErCNhBMWSeueDkmhmtY7oeLtJBRlqXUK +T0nh79VpYWMeJEg4swwrlktjnoKO5H4WCUPlz6d51KVxT+K6nRBAQmJUfHDq +cWmssXJydQghoU9U6cCzVTLo/jyepZhGgvjBJ7Li4jIow+VZvDydBJt6tzcB +hAw+ivMeHcgg4X5IrOpqHRlUl9S1yswi4ULv6OB2NxnsSkv1HbxNgnZBlf/P +bBlUWlcVPHSfhEgTx11SBrJYYt6oeaeJBAuvG7/0N8gieayTz/Y9CfwRP067 +2Mhi05Fk96FmEtJro/PjWbKYJMnnQnwgodyq8sfS87JYIBv4akc3CaNuCkfH +O2Tx5gsLdY3/kfAgJGiZ4BdZvJz1Jjx1kISw9Ecp6iOymDpGs+UaImHlp21V +AdxyGOzgv6N2hARl/4tcn9bJ4fqSbz7yEyR4/Td54XWoHFa0Osdo/CVBMXmD +zGC0HGa0hnfuWviXv8uFy+LlMDmYJOO5OBAyt7ZpQ64cDvVfH+vn5sDV016i +Fa/l8KPwaD1rGQdeJ7y4mScrj3/GZHxLV3MgsUREq1ZZHnULfJyKBTjg3rqr +5pOWPJ4WnHmbL8iBAYm5L9Lm8si/qjo0VpgDPJma664ckMd1aVwFKuIcMCpK +LQ17Io/u5gbTL2Q5sOlD4/xIvTxq9VYrh8txwI5r8Zad7+XR77i9j448B3yc +DnTAV3n8FPNt/grBAfNQWnjEEgL5+ObfqStw4NXqhzkGvAT+siIDGyk75LrW +j/ITGHvbTjSQwQGPN7GCuyQILGc9S7uuyIEg+akcMxUC/+7YENGhzIHJkvj6 +3xoE3pv+dGfXGiofFirDpC6BTVyhg98oRx9i6dFNCRzaYXB3YC0H0mpf1nM7 +Engumra5QYUD8m5+w5UuBDrW9641UuVA7tCC4BF3Au/TO9fcplwsut6j34dA +dx6t46FqHHjmf3O49iiBN60dDi6oc8ByzlDoZCiBS5SbDbZrcKAxvkVPN4JA +YX0uOptyR8WKiNzzBM45yLq6aHLAyy431zOOwOebDmXnUP7SZ9ogkkigNuoL +/qQ8whcsFJ1OIFflgNspLQ4cyeTXZ2YR+C2PqVNNeUa3wGMyj8DEIx+0ubSp ++/HqyfUrJvCIcGnuMcoxv443yJYSqFPvJ1FMmf+c8EhrORU/3ai0n7IE20Lf +vIbAwAUN/006HMjY1O/xt45AuZfPw4Mo0ztORdx/RWD1q921qZRv75fIO9BE +oHhro3Y1ZTXukgalVgL376ps7KfMuWY70tNB4Kpr35IX63LAQGVAKLmHwE4z +wct0yo+eROnb9xP48uNMKZPyBmdZz2UDBJ4858nrSvnFwIOIJ0MEVvDOXQ6k +bHPKKe/YGBX/h2TzMMrvBYcbNKYIXLZ4TD2O8rb8cyPfZwm0d2iwvE75oxFd +OHOBwByiPzmPsvfbh/pui2lYEL5IqpDyd59tngIraOguO9BEUt43MxZRv4qG +qXYej0ooGx3aLfZNiIYrSIlCDuXlg513eSRo+Nhjw7Yiym3e9mY0WRo6/q/l +YT7lvK7aNlM6Da1b3/T8+/9gZ4N9nso0PBCq8vjSv/je3FsUokrDWbFhj5OU +BcxpyclaNOSuEarwp9zz+KpqmR51vuCMNnvK9/R5a94b0/Dw4stlupRD2GHb +RpGGcQqDrmKULdaOD60yp6EEi1M1QeVbLNs/SsWahgEKQ1/eUv4i9VHc0oGG +3mR6861/95HoULjbhYY5yi9jTlK2jzZsz9pJnTei3EqGstzfwv1PfGkY1n5+ ++3eqHoaO0nm6A2gox/Nb+1+9xOzhU5cIpqHvRKflesqun8Nr15+g4bY+3/Pj +VP0x3CfctobRsO9nZXIR5Wrr7tNxMTRMe8etKE057pmj5L1L1Pn8hfJfU/Xs +yawrarhCw4Qba2dDKP9WL+5YnEHD0P0l8o1Uf2gLRWqEkjR0MjALs6P6iSt2 +8lnKfRqOvkoq+0b1WyPPXvf7VTQs+36p/l//BU46RY89p+F0U2N0+r9+bWd0 ++XfSkCFqdbJ8HQcOO6YGRfdS97n0dLE+ZXy5amnOFxp6LdV+UUL1f3fVlGbP +CA3L1QNuZ1PzQexm/VlnHjo2Z9xy9FCi8inOlDm8nI7RjOkXT6l5w4knycur +6Djg/1hFkbJ9VNrHl+J05MON1X3UvIrx26dtpkrHXmdDpiGNik9FoEfNhY6J +z1vOO0tzYCpDKlLHnY733RWk46Q4MLFakWG4k45D+yzrn0lS/T5uuHdTAB0v +VCWHrJXgQF+Vz5T7KTpq9Nd4NYlw4KX1A/6YPDrK/b6mcHUV1S+PnpKX7tCx +5T+12cyV1DzSeO2cWExHgaTmvwV8HHgs/DntRgUdn+74da1kBXX+Ll7lsjd0 +vOcoqpC3hJp/gV7QN0lHF3olyT1PQnL3nr7vs3TkT+BMfv5DQpL9kejhBToq +JVwKeTxLQpxOzKuZFQq4TarU+uAMCVF/yG2r5RSQacpSY4+TEBi7JMjEXAEF +T3yfK6b2n8nde5nXrilggY6YF5van13E3ZubryvgmdHr/lup/RpyreDGxE0F +/DJTrDFB7d8HkfnpTgUKGFaRuqDeSO1rt8wU/ocKmLJXuep8PQlrlyTFn/2s +gGlGP861PKTeJztDI46qMtA1kfOkLoeEspYT4YpaDHzaEJGukE2Cs9XxsJb1 +DJyp198elknClfX/ndQGBh5KyjyqRr0XVq08eHzEkYERnZo7D18jYXGFd9Du +Ywy8NfyhLTmGhDEhK5ZrDQPvxs0NugWS0L6P3rT3BQN71WYeWFHvleq6WQh/ +zUDiYI6akT8J8SF35W+3MTDoeaaEkA8Jmn0re38PMjB1ZZBIvjsJB8i3OzKE +FTEhTb1npyUJg/YuHl98FfGBX/dNhiIJXy6yXA8vU8LbovBpQxsbDgyq0jVX +KuHp4kmftmY2TG/5PTwsoIQrv+ir7XnHBl6eK9EBUkq4er/01bOv2aB5oraU +paaEsgKxXUU1bDjlpyRsv1UJZzWrbYqK2CBmOvRW5aYSbt1VLHQomg2WP49Z +ftVTxnZ0G7dQZ8OQz/IjpeFrcJp24xHXoyLqe0Kc+1zNWlQ3L+81nLsHQm+U +4tg/16F0vHLXguldkIkpdtDTU0Wjn6X9kZYFkKJiKCDsr4ZHvjqlsvbdgpdS +ZuvHE9SxzyxbkkzOAyOZmniNNg38OxnqejErB/h5soN3RWliW+Sr283tWSAX +KW+yXUkL68SfxVbP3IQVip73nV5oYVbP8rLu8HRQZ0oWH9uhjXWt3KIZh1Ph +cI9QrRWXDt4Tdx1y8bwGP8cvulim6OCH0bnybk4ibNGoS7NU08WneZnmdTYJ +8Hjc+M90oy5uNPhc/q77EhxQ1e5857cexz+2HnnXdx6YI74t21fooeLW08nZ +y87CZoaE7apsPbyT7f39c1sUrIm4cLxGXx8l+w7/KRWKgHV+hk8UO/Xxf8ev +sxO+hoDf4z1nSg8ZoJuHUIR73lF4ktniOyZqiGelskSliw7DxO2FaY0HhthT +kbX58sMD4KN4d0WarREucSpfxQwNgJDnXnuVHIxwkEdSxWx3AMT7Cb3iOBmh +VFCdgLNjADzMO3Hx1TYjDM/9K5KvHAAiShar53cZ4dUEWdpsyx6oU/oqwjpq +hMK7vzp4aO+BdWvkCaWbRvho6syLl9O7YWxdoh5n1Aj1zMUM7971hfbXuFl4 +3AiDjBMdba/7QvWBka3Bk0a4bW5nxuwFX4jjWB7SmzXCH39K7h/d6wvrjLju +VfIYo9cj4y0Ta33B23I/rVbMGC14UzMW7vhAi/+WlS0mxhhy51OQWpk3lOf+ ++TwZY4xHb8mcvjHAAr2NwdNWscb4d/ErAUYXC8o+D63MvGSMrP7tc5w3LODI +9ehbXTHGW3XS7UMcFtxLqb5047ox1hQUrG46xYLMi9GGW4qMMaKnbtRelAXn +g1cnpDQbY6TY31b6NS9w36SAxnImyCemVbEoywPmW5bz1xIm2H+umycyxgMy +/Ua6rBRM8I237W7hIA/4drbimPsaE7TuzTE7BB5wuMG++IS2CZ6VOT+/utcd +LtidlCs3N0GDLQ5TjTR3qHRrndM9aIIm4jyshVI3kN5/rkK92gR5VPiGbqx2 +hbiF3etja0wwx1GjvmfOBbivmJPfn5ngFpZdteqgCwzeX1KQ2WCC75YJfv71 +zAUquc6kCDWbYO+R+GGlUBdwT4o4NvXVBB+Z3DmrNOgMKVUn1j/mY+LCXOra +Le+3gijvPtJ2GxPtTq6J12twhNyNp0JGtzOxf2dl9/ADR9A+Fbcx0ZOJ+c94 +FUrzHcFulN3avouJ3Y2CAfvPOMLZtsnfPvuYuFxMi0xAR5jJDt8QEslEeYvh +8uQqB+g0TmzOv8tERc/1qjeO28Oe/3LTLYuY+K3/l3zWdnuYKirzG2IzscLQ +0/OJkT0I0dunte4zcXHUnh2283ZgvVxW5lE1E1ViA80LT9vBw5Z83+ZWJsac +JngDr9qCFX+52tF2Jnp8+8wredwW2rc0TEl0MfEH6S302d0WJip/xHh9YuIi +u4pvjwlbUMvSLPzfIBMPdrWHFRfawMNOs6MXh5l4ke1zWSXBBqxEtoLGKBPd +7/PwPg22gd3n/nsXPMnE70JLR/VNbGCi+mya+AyVL9E6XUnCBqJmk30qZ5l4 +OdX1mvBiGxDQLVDdMU/FVxK1SHnAGm7sr5xcWGCi2BPCZ+tra/g/qbbyGQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0711166703506997}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.0711166703506997}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8lf8XAHDRpGTv8dzrorJH9nWOhuwVEtLNSNJQ+TYoq5RSIsqIskuF ++1yU0RAlGlJGRigafkJkJvJ7+uu+3n/dzzmfMz4Pzfugkx83FxeX9CIurn+/ +Uz0NzxixuaaMOXb6duENpi03JE6YtUfB+Vta6qVJBKDoW2+J9iuwNaCDFpek +CUcd7nzgac8G56C/x4KTEARHxK/8/sABXBQvYpvkAL0P7Q5OfKiBmjZC5W0i +C8wZg91jH96Dmnncie8JQfD7g/7V0Q99oJrT8MLpQgTUbryV+y57HI7zpJvs +kkwAmd6Kb96q8xBU5qZeIZYKIvt23lm2kQc1ZgRG1lhmwhUt8yo7l+X4o6Lu +CYrnQkeKZvWYwCrcsT9tXtbjFsTmhr/llhTEkw96A23P3wHxpP7ziRnC6FWp ++8t0QyFIqJSdmckXxoDFA1syrAtBquZs+A62MEYmq7InnQtBbnTtf8q1wvi/ +3KKSJP9CULQJYlUNCGPO3wG/2IuFoLN4Xq9fRwQ7Ljgdd28tBPtgsS/aL0Uw +vNCv7ph3EZxztjR9PyWKPaXecif2FoNUaaMU9yIx9Lbg850/XAxFws7TWnxi +GPWoZG9IaDG0vfdiJ8iLYXt2zAOvi8XAcAymO1qIYXpniH5TYTHU2N5c2pQq +hmSYtbTrz2KYN59sfGMijgz3S6rBemyIzw+5O28ujr6bd2WZGbGBsZQrRs1R +HO0P+gbymbLB5jmv2SU/cdQWHJxP3MyGtI1EiU2cOL590SF6wpkNBmid/KpX +HDekzH68cogNRwyzdjZESaBiV88+ngI2WGXyT1hflMC0nWIs+j020JedjGm8 +KoGiv/9KmxazoanFlWy+LYHEmcThwDI2qAet5OlplMAHIc2TmU/ZMJB/LP+X +lCS+t7CNC+pgg6eI3bB0iSSe7eIh85aSoBNaFXnjoSTm8z/O37GCBN6+NWK0 +Oknk+XXVV2glCRXFPKDUIYm9W98aHBYkQcy6Il5zQRJ/c8Y38cmQ0BTJ0N1s +LYWmPSl/sjVJ2PRzNuRAvxRGLw+/ErCNhBMWSeueDkmhmtY7oeLtJBRlqXUK +T0nh79VpYWMeJEg4swwrlktjnoKO5H4WCUPlz6d51KVxT+K6nRBAQmJUfHDq +cWmssXJydQghoU9U6cCzVTLo/jyepZhGgvjBJ7Li4jIow+VZvDydBJt6tzcB +hAw+ivMeHcgg4X5IrOpqHRlUl9S1yswi4ULv6OB2NxnsSkv1HbxNgnZBlf/P +bBlUWlcVPHSfhEgTx11SBrJYYt6oeaeJBAuvG7/0N8gieayTz/Y9CfwRP067 +2Mhi05Fk96FmEtJro/PjWbKYJMnnQnwgodyq8sfS87JYIBv4akc3CaNuCkfH +O2Tx5gsLdY3/kfAgJGiZ4BdZvJz1Jjx1kISw9Ecp6iOymDpGs+UaImHlp21V +AdxyGOzgv6N2hARl/4tcn9bJ4fqSbz7yEyR4/Td54XWoHFa0Osdo/CVBMXmD +zGC0HGa0hnfuWviXv8uFy+LlMDmYJOO5OBAyt7ZpQ64cDvVfH+vn5sDV016i +Fa/l8KPwaD1rGQdeJ7y4mScrj3/GZHxLV3MgsUREq1ZZHnULfJyKBTjg3rqr +5pOWPJ4WnHmbL8iBAYm5L9Lm8si/qjo0VpgDPJma664ckMd1aVwFKuIcMCpK +LQ17Io/u5gbTL2Q5sOlD4/xIvTxq9VYrh8txwI5r8Zad7+XR77i9j448B3yc +DnTAV3n8FPNt/grBAfNQWnjEEgL5+ObfqStw4NXqhzkGvAT+siIDGyk75LrW +j/ITGHvbTjSQwQGPN7GCuyQILGc9S7uuyIEg+akcMxUC/+7YENGhzIHJkvj6 +3xoE3pv+dGfXGiofFirDpC6BTVyhg98oRx9i6dFNCRzaYXB3YC0H0mpf1nM7 +Engumra5QYUD8m5+w5UuBDrW9641UuVA7tCC4BF3Au/TO9fcplwsut6j34dA +dx6t46FqHHjmf3O49iiBN60dDi6oc8ByzlDoZCiBS5SbDbZrcKAxvkVPN4JA +YX0uOptyR8WKiNzzBM45yLq6aHLAyy431zOOwOebDmXnUP7SZ9ogkkigNuoL +/qQ8whcsFJ1OIFflgNspLQ4cyeTXZ2YR+C2PqVNNeUa3wGMyj8DEIx+0ubSp ++/HqyfUrJvCIcGnuMcoxv443yJYSqFPvJ1FMmf+c8EhrORU/3ai0n7IE20Lf +vIbAwAUN/006HMjY1O/xt45AuZfPw4Mo0ztORdx/RWD1q921qZRv75fIO9BE +oHhro3Y1ZTXukgalVgL376ps7KfMuWY70tNB4Kpr35IX63LAQGVAKLmHwE4z +wct0yo+eROnb9xP48uNMKZPyBmdZz2UDBJ4858nrSvnFwIOIJ0MEVvDOXQ6k +bHPKKe/YGBX/h2TzMMrvBYcbNKYIXLZ4TD2O8rb8cyPfZwm0d2iwvE75oxFd +OHOBwByiPzmPsvfbh/pui2lYEL5IqpDyd59tngIraOguO9BEUt43MxZRv4qG +qXYej0ooGx3aLfZNiIYrSIlCDuXlg513eSRo+Nhjw7Yiym3e9mY0WRo6/q/l +YT7lvK7aNlM6Da1b3/T8+/9gZ4N9nso0PBCq8vjSv/je3FsUokrDWbFhj5OU +BcxpyclaNOSuEarwp9zz+KpqmR51vuCMNnvK9/R5a94b0/Dw4stlupRD2GHb +RpGGcQqDrmKULdaOD60yp6EEi1M1QeVbLNs/SsWahgEKQ1/eUv4i9VHc0oGG +3mR6861/95HoULjbhYY5yi9jTlK2jzZsz9pJnTei3EqGstzfwv1PfGkY1n5+ ++3eqHoaO0nm6A2gox/Nb+1+9xOzhU5cIpqHvRKflesqun8Nr15+g4bY+3/Pj +VP0x3CfctobRsO9nZXIR5Wrr7tNxMTRMe8etKE057pmj5L1L1Pn8hfJfU/Xs +yawrarhCw4Qba2dDKP9WL+5YnEHD0P0l8o1Uf2gLRWqEkjR0MjALs6P6iSt2 +8lnKfRqOvkoq+0b1WyPPXvf7VTQs+36p/l//BU46RY89p+F0U2N0+r9+bWd0 ++XfSkCFqdbJ8HQcOO6YGRfdS97n0dLE+ZXy5amnOFxp6LdV+UUL1f3fVlGbP +CA3L1QNuZ1PzQexm/VlnHjo2Z9xy9FCi8inOlDm8nI7RjOkXT6l5w4knycur +6Djg/1hFkbJ9VNrHl+J05MON1X3UvIrx26dtpkrHXmdDpiGNik9FoEfNhY6J +z1vOO0tzYCpDKlLHnY733RWk46Q4MLFakWG4k45D+yzrn0lS/T5uuHdTAB0v +VCWHrJXgQF+Vz5T7KTpq9Nd4NYlw4KX1A/6YPDrK/b6mcHUV1S+PnpKX7tCx +5T+12cyV1DzSeO2cWExHgaTmvwV8HHgs/DntRgUdn+74da1kBXX+Ll7lsjd0 +vOcoqpC3hJp/gV7QN0lHF3olyT1PQnL3nr7vs3TkT+BMfv5DQpL9kejhBToq +JVwKeTxLQpxOzKuZFQq4TarU+uAMCVF/yG2r5RSQacpSY4+TEBi7JMjEXAEF +T3yfK6b2n8nde5nXrilggY6YF5van13E3ZubryvgmdHr/lup/RpyreDGxE0F +/DJTrDFB7d8HkfnpTgUKGFaRuqDeSO1rt8wU/ocKmLJXuep8PQlrlyTFn/2s +gGlGP861PKTeJztDI46qMtA1kfOkLoeEspYT4YpaDHzaEJGukE2Cs9XxsJb1 +DJyp198elknClfX/ndQGBh5KyjyqRr0XVq08eHzEkYERnZo7D18jYXGFd9Du +Ywy8NfyhLTmGhDEhK5ZrDQPvxs0NugWS0L6P3rT3BQN71WYeWFHvleq6WQh/ +zUDiYI6akT8J8SF35W+3MTDoeaaEkA8Jmn0re38PMjB1ZZBIvjsJB8i3OzKE +FTEhTb1npyUJg/YuHl98FfGBX/dNhiIJXy6yXA8vU8LbovBpQxsbDgyq0jVX +KuHp4kmftmY2TG/5PTwsoIQrv+ir7XnHBl6eK9EBUkq4er/01bOv2aB5oraU +paaEsgKxXUU1bDjlpyRsv1UJZzWrbYqK2CBmOvRW5aYSbt1VLHQomg2WP49Z +ftVTxnZ0G7dQZ8OQz/IjpeFrcJp24xHXoyLqe0Kc+1zNWlQ3L+81nLsHQm+U +4tg/16F0vHLXguldkIkpdtDTU0Wjn6X9kZYFkKJiKCDsr4ZHvjqlsvbdgpdS +ZuvHE9SxzyxbkkzOAyOZmniNNg38OxnqejErB/h5soN3RWliW+Sr283tWSAX +KW+yXUkL68SfxVbP3IQVip73nV5oYVbP8rLu8HRQZ0oWH9uhjXWt3KIZh1Ph +cI9QrRWXDt4Tdx1y8bwGP8cvulim6OCH0bnybk4ibNGoS7NU08WneZnmdTYJ +8Hjc+M90oy5uNPhc/q77EhxQ1e5857cexz+2HnnXdx6YI74t21fooeLW08nZ +y87CZoaE7apsPbyT7f39c1sUrIm4cLxGXx8l+w7/KRWKgHV+hk8UO/Xxf8ev +sxO+hoDf4z1nSg8ZoJuHUIR73lF4ktniOyZqiGelskSliw7DxO2FaY0HhthT +kbX58sMD4KN4d0WarREucSpfxQwNgJDnXnuVHIxwkEdSxWx3AMT7Cb3iOBmh +VFCdgLNjADzMO3Hx1TYjDM/9K5KvHAAiShar53cZ4dUEWdpsyx6oU/oqwjpq +hMK7vzp4aO+BdWvkCaWbRvho6syLl9O7YWxdoh5n1Aj1zMUM7971hfbXuFl4 +3AiDjBMdba/7QvWBka3Bk0a4bW5nxuwFX4jjWB7SmzXCH39K7h/d6wvrjLju +VfIYo9cj4y0Ta33B23I/rVbMGC14UzMW7vhAi/+WlS0mxhhy51OQWpk3lOf+ ++TwZY4xHb8mcvjHAAr2NwdNWscb4d/ErAUYXC8o+D63MvGSMrP7tc5w3LODI +9ehbXTHGW3XS7UMcFtxLqb5047ox1hQUrG46xYLMi9GGW4qMMaKnbtRelAXn +g1cnpDQbY6TY31b6NS9w36SAxnImyCemVbEoywPmW5bz1xIm2H+umycyxgMy +/Ua6rBRM8I237W7hIA/4drbimPsaE7TuzTE7BB5wuMG++IS2CZ6VOT+/utcd +LtidlCs3N0GDLQ5TjTR3qHRrndM9aIIm4jyshVI3kN5/rkK92gR5VPiGbqx2 +hbiF3etja0wwx1GjvmfOBbivmJPfn5ngFpZdteqgCwzeX1KQ2WCC75YJfv71 +zAUquc6kCDWbYO+R+GGlUBdwT4o4NvXVBB+Z3DmrNOgMKVUn1j/mY+LCXOra +Le+3gijvPtJ2GxPtTq6J12twhNyNp0JGtzOxf2dl9/ADR9A+Fbcx0ZOJ+c94 +FUrzHcFulN3avouJ3Y2CAfvPOMLZtsnfPvuYuFxMi0xAR5jJDt8QEslEeYvh +8uQqB+g0TmzOv8tERc/1qjeO28Oe/3LTLYuY+K3/l3zWdnuYKirzG2IzscLQ +0/OJkT0I0dunte4zcXHUnh2283ZgvVxW5lE1E1ViA80LT9vBw5Z83+ZWJsac +JngDr9qCFX+52tF2Jnp8+8wredwW2rc0TEl0MfEH6S302d0WJip/xHh9YuIi +u4pvjwlbUMvSLPzfIBMPdrWHFRfawMNOs6MXh5l4ke1zWSXBBqxEtoLGKBPd +7/PwPg22gd3n/nsXPMnE70JLR/VNbGCi+mya+AyVL9E6XUnCBqJmk30qZ5l4 +OdX1mvBiGxDQLVDdMU/FVxK1SHnAGm7sr5xcWGCi2BPCZ+tra/g/qbbyGQ== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0711166703506997}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0711166703506997}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939179278301487`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"f267feb6-de09-4c8c-b509-fc168698b6bb"] +}, Open ]], Cell[CellGroupData[{ @@ -2922,14 +7885,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918492800964603`*^9},ExpressionUUID->"9051a5e3-bb9f-d941-bcca-\ -598d0b6835be"], + CellChangeTimes->{3.9918492800964603`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[BoxData["9.33220071900516`"], "Output", - CellChangeTimes->{3.991334803166374*^9}, - CellLabel-> - "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[BoxData["10.77209092593712`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.993917927875575*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"547ac78a-db8e-48d5-a3af-22aaa5bd8e42"] }, Open ]], Cell[CellGroupData[{ @@ -2985,191 +7946,163 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ -4a8a16073236"], + CellChangeTimes->{3.9918492818821335`*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 255, 233, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133480336051*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.769674070819391`*^-251\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 130, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.993917927970374*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], +In[99]:=",ExpressionUUID->"0686c08f-7ade-474f-bf5c-df0565dc5856"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 234, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803369583*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.291413536108342`*^-260\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 131, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.99391792797825*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], +In[99]:=",ExpressionUUID->"96bbcdee-f299-4fbb-8f22-3b5d9ea5a210"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 235, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803378134*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.885364037292191`*^-269\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 132, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.993917927985531*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +In[99]:=",ExpressionUUID->"7bb534ea-b0a3-41e9-81da-ff441da2c5c6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803386196*^9}, +during this calculation.\"", 2, 99, 133, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133480336051*^9, 3.993917927991939*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +In[99]:=",ExpressionUUID->"a69faf1a-0e37-45c9-b6d0-32729f0d9d51"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8bAHBRUqGyt3uuS9kzI/d6npbsWciKStNKJMosIiNpyVclSYW4 +5yYlFRkZRYWMykhaMrOi5Hd+f53X+/U653xe5/k843OIXQEOPtxcXFwrF3Fx +/f863dNQw0jKNTGbXLjl+GqDSds1ibANnbGwq0ziSYojDVD09S6JznTwS7ps +td9RC47a5XfwdObAofARhq0jwuoR8fTZDg6U67PfrnW0g94nNgGTHVWwVTSr +sMjBC0wZg93jHS3QG1r26p1dIMx2GFwc6+iHXZcOK58wj4bqTbdz3+ZMQLPa +nbd97Wkg01v2dZfaPLzZsfmpe2kGiPjuzF+6iQd/OCw2K1qRDenapuU22/lQ +ezasbkPTTejK0KocXyWAq39GqaQsvQ1JuVGvuSVX4wTXJZ5x9XwQv/A58fxV +YXTbcjJycX8hSKg+OPU7TxgfiHF4nX4WglRVfJQHWxh3aEk13JgsBLkx5ZA1 +1cKY4No3s2bpPVC0CvQq/y6MIY6lH0dU74Hu4nn9z7oiqPnDvdYn+B7YBosN +6DSKYNGS0rgxriI4vc3cpGVaFA8frczbxFcMUiXNUtyLxNDvXVlDzapiKBLe +NqO9QgxF/v37YCJZDO0tnuxz8mJ4LrOnUValGBj2wXR7MzFkjuWWxVsWQ5X1 +dd43V8RwJjqVWJxSDPOmU81NTHGsmez66biEDWl54QXzpuI47ZNfRF/GBgYv +V4K6vTjWPvfrHuZng1Xt8g0pPuJYoFocESbChsxNtPtWqeJ4/fv55z4KbDBE +y8sve8XR9uOgXDqy4YjRjZ0NsRKY4XexxPAYGyyyBSctkyUwaPWKKLfjbKAv +PZHQfFECp/87rXg8kg1v2pzI1jsSeKxFl5c8xQaNQH6enmYJVM0aEJ5JY8P3 +vNC8X1KS2GVvbDd0hw3uIjbD0vclsSAi6G94Oxt0j5fHXHsiiSlVwypGXWxY +3r9WjHghiZmWJnqTH9hQVswDSl2SqHgnrMPrExvELMvStBYk8VaCmbfIELV+ +DENvi6UUhnf2Jg9wkbB5dC7c/7MUdmuealReS0KY2QWV50NSGOWtnhuqQkLR +DfX3wtNSqJV7LrxKjQSJbV5GZXzSOPtLVM5Wm4ShR7UzPBrS+Lx66ebN60k4 +H5sWfOWYNC53Ute4ZklCv6iSf42ADAplfHmy2pcE8YAKWXFxGQzupsUs+JFg +Ve/SdIAmg7dDl5kNBpBQGp6ktlJXBu/xdvWUHiHhTO/Y4A4XGRRHdwO14yTo +3C3fN5ojg+8c55pOJ5IQw7T3ljKUxYTklOTFuSSYeV77ZbBRFi2MVw6X3CJB +MPrnye1WsljJjG/1vk1CVnVcXpqXLBpnCeuR+SQ8snj8kzdRFh8XMeyUSBLG +XBSOTnTJorJ5qNvBpyQ8DA9cunpAFmMU/tp/fkZCZNbTDI0RWVQrGX/nUkkC +f59z+QFuObzpr5tgVE3Cmn3JXH0qctj8+1Du23oSPEOmzrw6Locv0+a1PVpJ +ULy8UWYwTg49P28yud72//idvbc0TQ5jVp/u635HQvhf5Tcbc+VQPN3yh10n +CRdPeoqWvZLDxNd/pAW7SXh1ru76LVl5XNjfeObLFyre90W0q9fI4873Xqzx +ryS4vvOu6tOWx/c8iWdnv5HwXeLvgLSpPMpIi4tyDZLAk62lku4vjwZH5B4O +DJOwvuhKSWSFPDI3Pv7BP0XlQ0fz/Ei9PB4nigrbKNtwLd66s4VaT1E74co0 +Cbsd/LvgizwWblBKkvpNgulxIip6CQ3jRJ+/mZ0j4eXKJzcNl9Owxkp2f/4f +EuxynerHBGm4++M1GZe/JLg1Ja32lqDhq56DvfnzJATKT9/coErDgbNPPqpz +cWDqflr9rCaNqoc2vzrK4Waqw6QeDbfYtNM8F3Eg7rCXPt2Ehg7WvKOx3BzI +rG6s57anYWKjNSt/MQfkXXyGH2+noSb984jaEg7kDi2sPuJKwwOljnWFlItF +17l93k1D9k2r0Zu8HKjZd324+igNG+/7qwfyccD8r5HQieM0lNTJX/ORcnNa +m75eNA1jf/dYb1nGga6yZdG5iTQ8s+8NbeVyDnja5Oa6p9Lwcd3H5gDKA/0m +DSLnaejYE1PQRHlkRbBQXBYNDQVYE9ErOHAkW9CAdYOGjE13drZT/q13123q +FhWPA07za/k5wOPZk+tTTEMpQv11LWUJtpmBaRUNhy/V9HYLcODq5s9u/17Q +kI970w8ZQQ7QuyKiS1/SsL7+mPIOyurc9xuU3tHQjPbWroEy55L1SE8XDbmK +XIzmKRuqfhe63EPtR5q3m8ZKDmzcJuu+9DsNtQPrbRIo131/GF0xREPpK2kE +SdkqwuFW6DgN3/sWaXVQblk93KA5Td2f1XlijrJz3umRb3M0PHf8Ba/0Kg58 +XE8Xzl6gYTy31mtDyrtePzFwWUzg3pdN7Y6Uv+12dl+1jMBGoR1yvpR9f49H +1wsQKPcwKS+G8vrDe8W+ChH4bHLRwEXKfIPvC3gkCNy5tON7HuX2XbYbCFkC +WSpzD0oo3/pQ3W5CJzA9xM2qgnLwNkNf9zUEVnX/LHxBeWNT4aJwNQI5Olc7 +GymvMiUuX9YmUFV+15uXlHueXVR7oE+g+FqNiw2UCw2WV7UYE/izYGpNDeVw +dqTzGBI49eleYjllM+WJIQFTAm90WZUXUxbL2Reraklga1jD02zKA1Ifxc3t +CDSPlk5Ppcw5b3dv73YCa6ONjcIoR/PXbjzlSmD2AL3Ei7JtnFHnjZ0Edv14 +ybOFsty/e34VewhMzNFWVqI8dJTO032AQO1JW8XFlB+PXsqY8ydwyWWF2R4q +/gn7V2hIBBOoL5p/q5Sy06eo6nVhBHo0flJNosxwnXRxjCSwtL8h2Z1ypWX3 +ydQE6vv+FvRPUfmQWmMvWZhCoMOeO11PKbuzXhQ1pBN45veO4ljKsxrFXYuv +EnjWbHCOm3L9bYUAeg6Bp1rfBj2j8vESLWMx3ibQeG1001HKOkIxmsdJAgdO +WWr2UPnLlTRVk1FKYFBxqGEK5Waeg66l5QQWfEtYa0T50JRD3HgtgZY7Y56f +puoht5PxYd97AtndSyYXqHoLsr8SGNdLoK5fmv0lytgowHtzgMDYNu9rypS7 +y6e1ekao589LLN9K1avY9fr4bTx0FGop3+pB1feAOEsmiI+Oh5o8WB+o+uek +keRZATpaD3eqOFG2jc382ChOp/aTHN9I9Y8EH1+dDWp0zOQOt/5N9ZtZ1VU9 +6tvpaJIip9dK9a/pq1Ixuq507DxoeoRBeXKlIsNoJx3vfvHvCKL63ciE0cHN +B+j4WpxPeCnVD/vLd0+7RtAxuudQiMAMCY2WDwUTbtFx5EZyV/oYCXVPn5Mp ++XT0CLUaLB0loUbz1bbzxXQ8ZRKg3TlCwjPhT5nXyui4vNhynxDVrzkflq95 +0ETHw29Opvn8ICHzkCf0T9GxcMvf1tOfSLjcvb//2xwdI+nL3kb1kXDB9kjc +8AIdVSVDxEJ6SUjVTXj5e5kC+u2aj3Sm5knsH9J5pZwCPnoz8fUPNW8OJS0J +ZJoq4MZhH9Ga1yQwCwqzL11SwObYTHnXchI+0Aqub/lPAffKXPsn8piaV5fu +Xpu8roAaIawbTY+oeRmTl+VwVwGjs9evMyyl5rVLdobgEwVcF0Le/8UmQXnJ +hbT4TwoYMPLy2zw1n8V2Ho8+qsbAs+IOa4NTSXjQFhalqM3Aiytg349kErZZ +HItsW8fAWom6RPckEtLXhZzQAQb+bHoawUwgQYA/4NiIPQMVDv1kfY4hYXHZ +rsC9oQwsGzywpCmYhHEhCy+nKgZWuJFjEjtI6PSlvzlYx8DbgtVXFJ1JqHwx +B1GvGKjUYD6iuZ2EtPAC+TvtDLypL3GdZU+CVj9/7+wgA5mxx7awzEnwJ197 +XBVWRJtU27ZmQxIGbbe7DexRxD7lE7GbxUgYSPZyClqqhPsKQzfVNbLBf1CN +rsWvhPdCtWWD69kws3V2eHiVEn6x4mXKv6DObzzpcQeklHC94wXrwOds0Aqr +LvFSV8IsOdu++YdsiPBRErZ1VEKXKL7aulzqPGcy9Fr1uhIe7pC+LBfBBvPR +UPMv+mtwom30j4QyG4Z28x0piVqLh1WXdn6sKKL+J8S5T1cpI39fdozzinsg +1KSUyh5VQU2LNNdbLgUgk1Bsp6+vhk7Gw+pefnchQ9VolfA+dfT6c1Y4PuM2 +NEptWDdxTgN7+7OtihpvwXqZqjTNdk3c+kUiMeL9TRDkyQn2jtXCBzn/5H+J +5oBcjDxzh5I2lmwMyk1jZsMyRfdShzptvL7hNyuS5yposCSLQz108CqfcPe/ +6SsQ1CNUbcGli5uFp8Icei/B6ETydvMMXWzTOv3ymc4F2Kr5ItNcXQ8dPaNi +NOvPwbMJ4z8zzXpod6ZO1rM+FfzVdN6/9VmH6UerQgUqzwBrZE/bjmX66KkX +ELTQFg9bGBLWAjn6ODHPt/n8hZOwNvrMsSoDA+QfXGV2tzIaVHyMKhTfG+A2 +D8awjfwJ8Hm2/1TJYUP8esLNqaUiFCqy2/aMixrhK1Lh16/bR2DyzsKM5kMj +tFkT2dpqFAi7FQuWZVqvx5Rvzbox8wdhXOW8PmdsPbZG3yiRmvWBR7l/Pk0l +GOMpo+rXtGW7QH9T8IxFkjHGbOZ78W/OGx58GuLPTjHG3u9Z7l+HvIEj12Ng +kW6MN2tKt7e88YbCjMqUa/8ZY+1eqS8yV7whOznOaGsR9T5m7Y9QVW9IDF55 +LqPVGNfF3Q8gnL3AdbMCGssx8cF/xbU26R4w38YnWE1jYqmgrUP8MQ/I9hn5 +YKHAxPgx9XNvPT3ga3xZqOtaJv5VuDyZo+oBQQ22xWE6TOT7UPBH84U7nLE5 +IffIlIm81TP7vv9zg8cu7/7qBTAxR6PobmSkK0j7nS7TqGRisX5XN/u+M6Qu +7F2XVMXEhxV05/7rzsCdbkp+q2HiH/UV/vRkZxgsXXI3u4GJz8NG7Zr3OMNj +rlMZQq1MTF7uNt4q5gyuF6JDp78wMXpq9ENqhBNklIete7aChbtS+yXjt28H +0eW+pLUzCyMu2D7PUneE3E0R4WM7WKitcTPFXNoRdCJSN513Z+FCVtfgkmWO +YDPGftfpzcJ2dqDqvQEHiG+fmt3ty8K+aomzJVkO8DsnamN4DAvV737YcHWl +A7w3Pt+aV8DC2/si0s5w2cP+kNws8yIWqsUY7BAZs4Ppogc+Q2wW7j7Rv6Ow +1w6E6J0z2qUsFHvi28VbYQeWfLIyTytZqN9rXLwn0g6etOXtaX3HwuFj1gEh +C7ZgIfhI/WgnC7uVDbeb9tlC59aGaYkPLFTU0N2t89wWJh//TPDsY2G6z1ie +20lbUL+hde/HIAvvp4pdHeOzhSfvNxxNHmbhasOa9IxBG7AQcQTNMRYeePB2 +ldsrG9h7OuRt8BQL8+l8zpppNjBZGZ8p/puFpZ8bZzDIBmLnLu9+PMfCo2JE +i+82G1ild1fNY56Fnb5HWjj6NnDN7/HUwgILW8h1X4QkbeB/6TCsZA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3183,150 +8116,119 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe +1:eJwV13c8Vf8bAHBRUqGyt3uuS9kzI/d6npbsWciKStNKJMosIiNpyVclSYW4 +5yYlFRkZRYWMykhaMrOi5Hd+f53X+/U653xe5/k843OIXQEOPtxcXFwrF3Fx +/f863dNQw0jKNTGbXLjl+GqDSds1ibANnbGwq0ziSYojDVD09S6JznTwS7ps +td9RC47a5XfwdObAofARhq0jwuoR8fTZDg6U67PfrnW0g94nNgGTHVWwVTSr +sMjBC0wZg93jHS3QG1r26p1dIMx2GFwc6+iHXZcOK58wj4bqTbdz3+ZMQLPa +nbd97Wkg01v2dZfaPLzZsfmpe2kGiPjuzF+6iQd/OCw2K1qRDenapuU22/lQ +ezasbkPTTejK0KocXyWAq39GqaQsvQ1JuVGvuSVX4wTXJZ5x9XwQv/A58fxV +YXTbcjJycX8hSKg+OPU7TxgfiHF4nX4WglRVfJQHWxh3aEk13JgsBLkx5ZA1 +1cKY4No3s2bpPVC0CvQq/y6MIY6lH0dU74Hu4nn9z7oiqPnDvdYn+B7YBosN +6DSKYNGS0rgxriI4vc3cpGVaFA8frczbxFcMUiXNUtyLxNDvXVlDzapiKBLe +NqO9QgxF/v37YCJZDO0tnuxz8mJ4LrOnUValGBj2wXR7MzFkjuWWxVsWQ5X1 +dd43V8RwJjqVWJxSDPOmU81NTHGsmez66biEDWl54QXzpuI47ZNfRF/GBgYv +V4K6vTjWPvfrHuZng1Xt8g0pPuJYoFocESbChsxNtPtWqeJ4/fv55z4KbDBE +y8sve8XR9uOgXDqy4YjRjZ0NsRKY4XexxPAYGyyyBSctkyUwaPWKKLfjbKAv +PZHQfFECp/87rXg8kg1v2pzI1jsSeKxFl5c8xQaNQH6enmYJVM0aEJ5JY8P3 +vNC8X1KS2GVvbDd0hw3uIjbD0vclsSAi6G94Oxt0j5fHXHsiiSlVwypGXWxY +3r9WjHghiZmWJnqTH9hQVswDSl2SqHgnrMPrExvELMvStBYk8VaCmbfIELV+ +DENvi6UUhnf2Jg9wkbB5dC7c/7MUdmuealReS0KY2QWV50NSGOWtnhuqQkLR +DfX3wtNSqJV7LrxKjQSJbV5GZXzSOPtLVM5Wm4ShR7UzPBrS+Lx66ebN60k4 +H5sWfOWYNC53Ute4ZklCv6iSf42ADAplfHmy2pcE8YAKWXFxGQzupsUs+JFg +Ve/SdIAmg7dDl5kNBpBQGp6ktlJXBu/xdvWUHiHhTO/Y4A4XGRRHdwO14yTo +3C3fN5ojg+8c55pOJ5IQw7T3ljKUxYTklOTFuSSYeV77ZbBRFi2MVw6X3CJB +MPrnye1WsljJjG/1vk1CVnVcXpqXLBpnCeuR+SQ8snj8kzdRFh8XMeyUSBLG +XBSOTnTJorJ5qNvBpyQ8DA9cunpAFmMU/tp/fkZCZNbTDI0RWVQrGX/nUkkC +f59z+QFuObzpr5tgVE3Cmn3JXH0qctj8+1Du23oSPEOmzrw6Locv0+a1PVpJ +ULy8UWYwTg49P28yud72//idvbc0TQ5jVp/u635HQvhf5Tcbc+VQPN3yh10n +CRdPeoqWvZLDxNd/pAW7SXh1ru76LVl5XNjfeObLFyre90W0q9fI4873Xqzx +ryS4vvOu6tOWx/c8iWdnv5HwXeLvgLSpPMpIi4tyDZLAk62lku4vjwZH5B4O +DJOwvuhKSWSFPDI3Pv7BP0XlQ0fz/Ei9PB4nigrbKNtwLd66s4VaT1E74co0 +Cbsd/LvgizwWblBKkvpNgulxIip6CQ3jRJ+/mZ0j4eXKJzcNl9Owxkp2f/4f +EuxynerHBGm4++M1GZe/JLg1Ja32lqDhq56DvfnzJATKT9/coErDgbNPPqpz +cWDqflr9rCaNqoc2vzrK4Waqw6QeDbfYtNM8F3Eg7rCXPt2Ehg7WvKOx3BzI +rG6s57anYWKjNSt/MQfkXXyGH2+noSb984jaEg7kDi2sPuJKwwOljnWFlItF +17l93k1D9k2r0Zu8HKjZd324+igNG+/7qwfyccD8r5HQieM0lNTJX/ORcnNa +m75eNA1jf/dYb1nGga6yZdG5iTQ8s+8NbeVyDnja5Oa6p9Lwcd3H5gDKA/0m +DSLnaejYE1PQRHlkRbBQXBYNDQVYE9ErOHAkW9CAdYOGjE13drZT/q13123q +FhWPA07za/k5wOPZk+tTTEMpQv11LWUJtpmBaRUNhy/V9HYLcODq5s9u/17Q +kI970w8ZQQ7QuyKiS1/SsL7+mPIOyurc9xuU3tHQjPbWroEy55L1SE8XDbmK +XIzmKRuqfhe63EPtR5q3m8ZKDmzcJuu+9DsNtQPrbRIo131/GF0xREPpK2kE +SdkqwuFW6DgN3/sWaXVQblk93KA5Td2f1XlijrJz3umRb3M0PHf8Ba/0Kg58 +XE8Xzl6gYTy31mtDyrtePzFwWUzg3pdN7Y6Uv+12dl+1jMBGoR1yvpR9f49H +1wsQKPcwKS+G8vrDe8W+ChH4bHLRwEXKfIPvC3gkCNy5tON7HuX2XbYbCFkC +WSpzD0oo3/pQ3W5CJzA9xM2qgnLwNkNf9zUEVnX/LHxBeWNT4aJwNQI5Olc7 +GymvMiUuX9YmUFV+15uXlHueXVR7oE+g+FqNiw2UCw2WV7UYE/izYGpNDeVw +dqTzGBI49eleYjllM+WJIQFTAm90WZUXUxbL2Reraklga1jD02zKA1Ifxc3t +CDSPlk5Ppcw5b3dv73YCa6ONjcIoR/PXbjzlSmD2AL3Ei7JtnFHnjZ0Edv14 +ybOFsty/e34VewhMzNFWVqI8dJTO032AQO1JW8XFlB+PXsqY8ydwyWWF2R4q +/gn7V2hIBBOoL5p/q5Sy06eo6nVhBHo0flJNosxwnXRxjCSwtL8h2Z1ypWX3 +ydQE6vv+FvRPUfmQWmMvWZhCoMOeO11PKbuzXhQ1pBN45veO4ljKsxrFXYuv +EnjWbHCOm3L9bYUAeg6Bp1rfBj2j8vESLWMx3ibQeG1001HKOkIxmsdJAgdO +WWr2UPnLlTRVk1FKYFBxqGEK5Waeg66l5QQWfEtYa0T50JRD3HgtgZY7Y56f +puoht5PxYd97AtndSyYXqHoLsr8SGNdLoK5fmv0lytgowHtzgMDYNu9rypS7 +y6e1ekao589LLN9K1avY9fr4bTx0FGop3+pB1feAOEsmiI+Oh5o8WB+o+uek +keRZATpaD3eqOFG2jc382ChOp/aTHN9I9Y8EH1+dDWp0zOQOt/5N9ZtZ1VU9 +6tvpaJIip9dK9a/pq1Ixuq507DxoeoRBeXKlIsNoJx3vfvHvCKL63ciE0cHN +B+j4WpxPeCnVD/vLd0+7RtAxuudQiMAMCY2WDwUTbtFx5EZyV/oYCXVPn5Mp ++XT0CLUaLB0loUbz1bbzxXQ8ZRKg3TlCwjPhT5nXyui4vNhynxDVrzkflq95 +0ETHw29Opvn8ICHzkCf0T9GxcMvf1tOfSLjcvb//2xwdI+nL3kb1kXDB9kjc +8AIdVSVDxEJ6SUjVTXj5e5kC+u2aj3Sm5knsH9J5pZwCPnoz8fUPNW8OJS0J +ZJoq4MZhH9Ga1yQwCwqzL11SwObYTHnXchI+0Aqub/lPAffKXPsn8piaV5fu +Xpu8roAaIawbTY+oeRmTl+VwVwGjs9evMyyl5rVLdobgEwVcF0Le/8UmQXnJ +hbT4TwoYMPLy2zw1n8V2Ho8+qsbAs+IOa4NTSXjQFhalqM3Aiytg349kErZZ +HItsW8fAWom6RPckEtLXhZzQAQb+bHoawUwgQYA/4NiIPQMVDv1kfY4hYXHZ +rsC9oQwsGzywpCmYhHEhCy+nKgZWuJFjEjtI6PSlvzlYx8DbgtVXFJ1JqHwx +B1GvGKjUYD6iuZ2EtPAC+TvtDLypL3GdZU+CVj9/7+wgA5mxx7awzEnwJ197 +XBVWRJtU27ZmQxIGbbe7DexRxD7lE7GbxUgYSPZyClqqhPsKQzfVNbLBf1CN +rsWvhPdCtWWD69kws3V2eHiVEn6x4mXKv6DObzzpcQeklHC94wXrwOds0Aqr +LvFSV8IsOdu++YdsiPBRErZ1VEKXKL7aulzqPGcy9Fr1uhIe7pC+LBfBBvPR +UPMv+mtwom30j4QyG4Z28x0piVqLh1WXdn6sKKL+J8S5T1cpI39fdozzinsg +1KSUyh5VQU2LNNdbLgUgk1Bsp6+vhk7Gw+pefnchQ9VolfA+dfT6c1Y4PuM2 +NEptWDdxTgN7+7OtihpvwXqZqjTNdk3c+kUiMeL9TRDkyQn2jtXCBzn/5H+J +5oBcjDxzh5I2lmwMyk1jZsMyRfdShzptvL7hNyuS5yposCSLQz108CqfcPe/ +6SsQ1CNUbcGli5uFp8Icei/B6ETydvMMXWzTOv3ymc4F2Kr5ItNcXQ8dPaNi +NOvPwbMJ4z8zzXpod6ZO1rM+FfzVdN6/9VmH6UerQgUqzwBrZE/bjmX66KkX +ELTQFg9bGBLWAjn6ODHPt/n8hZOwNvrMsSoDA+QfXGV2tzIaVHyMKhTfG+A2 +D8awjfwJ8Hm2/1TJYUP8esLNqaUiFCqy2/aMixrhK1Lh16/bR2DyzsKM5kMj +tFkT2dpqFAi7FQuWZVqvx5Rvzbox8wdhXOW8PmdsPbZG3yiRmvWBR7l/Pk0l +GOMpo+rXtGW7QH9T8IxFkjHGbOZ78W/OGx58GuLPTjHG3u9Z7l+HvIEj12Ng +kW6MN2tKt7e88YbCjMqUa/8ZY+1eqS8yV7whOznOaGsR9T5m7Y9QVW9IDF55 +LqPVGNfF3Q8gnL3AdbMCGssx8cF/xbU26R4w38YnWE1jYqmgrUP8MQ/I9hn5 +YKHAxPgx9XNvPT3ga3xZqOtaJv5VuDyZo+oBQQ22xWE6TOT7UPBH84U7nLE5 +IffIlIm81TP7vv9zg8cu7/7qBTAxR6PobmSkK0j7nS7TqGRisX5XN/u+M6Qu +7F2XVMXEhxV05/7rzsCdbkp+q2HiH/UV/vRkZxgsXXI3u4GJz8NG7Zr3OMNj +rlMZQq1MTF7uNt4q5gyuF6JDp78wMXpq9ENqhBNklIete7aChbtS+yXjt28H +0eW+pLUzCyMu2D7PUneE3E0R4WM7WKitcTPFXNoRdCJSN513Z+FCVtfgkmWO +YDPGftfpzcJ2dqDqvQEHiG+fmt3ty8K+aomzJVkO8DsnamN4DAvV737YcHWl +A7w3Pt+aV8DC2/si0s5w2cP+kNws8yIWqsUY7BAZs4Ppogc+Q2wW7j7Rv6Ow +1w6E6J0z2qUsFHvi28VbYQeWfLIyTytZqN9rXLwn0g6etOXtaX3HwuFj1gEh +C7ZgIfhI/WgnC7uVDbeb9tlC59aGaYkPLFTU0N2t89wWJh//TPDsY2G6z1ie +20lbUL+hde/HIAvvp4pdHeOzhSfvNxxNHmbhasOa9IxBG7AQcQTNMRYeePB2 +ldsrG9h7OuRt8BQL8+l8zpppNjBZGZ8p/puFpZ8bZzDIBmLnLu9+PMfCo2JE +i+82G1ild1fNY56Fnb5HWjj6NnDN7/HUwgILW8h1X4QkbeB/6TCsZA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.0705687888859045}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -3338,19 +8240,19 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.0705687888859045}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3364,149 +8266,118 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0VW8XB3BRKTLPl3vNksxycd1rb0QuMmasTKVBpjIUKlIUSkglFElK -ynRPyVAJlQaROVJIfo00mJLynvevsz5rnbPWeZ699/c8RzEgzCWQm4uLa/cS -Lq7/X2fePm1RSSs2cy3zqGm/s8Gs+5J0jHl/IrxRnBFqa1QFlGgPkO7PgrO9 -ET65jYYQ7XSjj6e/CPYLMHKiGq1AZEIq63dfNejYVMUbNrrBuwaHsKm+JrhN -7SzyeRAI1iqfh370dcLsUKaZdEMU/O4zOvu9bxTkm+lTAhVJ0Gx5rfhV0S9I -q02Q9NpyDuTe1Y4HaP6FL0Gq9boehSAe7HuD15IHHwnX0OQpVyFLz7rewW0F -Vr2t4FD6SuF1jm7jD2EBrNGLQ9entyC3q0woWlUAG69G2Lu+vgXegqt9500E -8C5zIZP96Ra8OUr9x71NAM1uF9dKryyH4VA+pvhtAew91sZvblMOH9eP1dC9 -BNF7/YjTnZZymPt+viLushD+WVmuLHOnAtKK49u5ZUTweGj53GJDJdiu2y0q -oSyCPYcZnAvNlbCixcVttZYIbo+ScdJ+VgnH3qsO2pmLoDK1da1NXyUcVHox -nr1bBE/sN7cx+1EJoYXS/9TqRPDqsm8rDFSqwDm/StNusyiW7rvwnJ5cBcKa -eWFbA0Xxp15+psbJKnhZf6w6LEwUKaevSMpkVYHtoIdx9lFRXOW/1Hv8YhVY -UP5ZDpWJolbJoZvmt6tgXY7t5rAFUfz33rFhfrQKpLLfp5y5KIau+n2T4Yxq -kF57+9hciRjet3+o5AfVQGlKjt9aKYbMew9v2a6vBtr3NVGrm8XQN5TvmYhD -Najah/vVfxTDMRNbwV3+1WCw9C/9vYE47moN9Ft3vBocIyXH9J+JI7dy2C52 -ezU48X98e75LHHmaXdqKuqrBpaj29cIbcTxH0zg8S/aNe8eW9seT4phRUNWU -NVwNWzWv1HlLSODpp4c7Mn5Uw54xncxEPwlkJhp33BDlwPFNbLPOGQlsnBja -6ObMAQrxksK9RBK1d/7s2uXGgXKxTbN6/JLYZCjUFu3Fgd5On8pMeUmcHXKS -TvTngIpzpJKzjSSmSguJue/lQNPGguUdFyTxD/Gi6NdpDvy1nn7ZxpTCvxKr -/i57yoGMktiyv9ZSKHuJWLXrBfn8cq4TWs5SeDXs0ZmWdg7YP+IzPxUohQqm -7itDejmQa6nAsU+XQtF7zLy49xwwRrvzz99J4cHiUzdOL3AgwuSy79NEaXyc -F3vwnAYBtoWCU3YnpTGqay6bokWAEu/BEy/PSmPxne3/XdAhoKPbvarrujR+ -tONipq4jQDt8Fc/bl9Io/Oh4tZ4ZAR9L9pf8pMjgqb/P7POdCHgg8IERpSKD -2rnrLbtdCDgX6dI+qyWDqYs7D/K6EWBloTW3gDLIf02m1teLgKKhUTbvThmM -fZ4S0udPwBZxh2+yHBkcYge5ju0lwCCu/silBhkc+DjX2BFBAN+ouqTiYxk8 -dLU67m4UAbUVPKD2WgY3pR0bjIkhQNKuNkN3UQZ5kwW8WhLI9z+iss7KjoKz -0SVTB9IJuPYxs/XJJgoWCXqkUzIIOOy4uMXWh4JDnsFHajIJ0KIOJDnupaCj -g+D+99kEpN493ed1noIJ10/V8OQRsH5yPjb0PXk/8WrjjhICYmyyNR5+pWB6 -+SvNmmsElF/WGhCboeDFpG+FPKUESG/yM6ldIYuBz3/ZnS4j4OvdR7M82rLI -lfH50d5KAhRFfa+5G8li2EjojoIqAtz3zLmXoiyOhK690lpNQCN17R0HV1nk -t5+dErhNwJnEjMgLB0h3vBLbXktA6+Aala9HZFHp2LLK0DoCFtY1d5mlyeIi -88tkZD0BO/6b1h+7KIv+C8U+kfcIYNhv/qHdLItWyC8GDwkYlVALbRGQQysH -sTtLWwmQCntAlZKSQ6Pbt3iekbZv9WzbrSCHkZ//LU17SsCd2DRNIQM5DLs9 -q8b1nNyfd98/e3nKoYDmt2U1bWT9jVNzb/rLYX/9W0HvlwRMZSrbLgbJ4e4E -we450j7r3UuLD8lhtkzy+TUdBOiX1u+cLJJDjYpyRc9OAnZyu0lZ3JTDojP+ -a1+Tzt888Tj7thxeZ+vOu3URsFxQUY3RKodV6qVfLLoJMN1Z13PylRy25eQK -c0iHN7omvRuQw5Yd9EVaDwED+5LHjn2Tw0fL+Mw+kxZ6IZ/dNyOHkylnMti9 -ZD1Vay01uKjo2BFUVUy6vO9LUbsoFacYRIBDHwHvdZNclOSomOubOJ1PWjqV -xh2lSt5v5b75P9JHmM7+FGMqKm7uKQ7rJ8DG59JPIwsqftXsyK8mLZjw5aib -PRUvBstXfifdc9lYIsKdip+yHYfXvCbX15xUkuFHxZVDE9o+pLd96DQqD6Ki -mdGpi6dIa/AqPH0eSUUPxwatu6R/qId4fzpMRc0UoZEh0ndt674sT6Gi7qJs -7T/S8cG8h1TOUPFLwoEaygAB1umbBC0uUjEp896QHmmByssFvteoaLQjSWs9 -6e5XE7qHqqj4bmzPdWfSeb9Mm3LrqRhTJOjkTTpAIsX17iMq5o+sUvMhvcao -d6ynnYoLGbyaW0l/91SO/vWaXC/78jYP0jWx4bwiY1Rsdzj80p704fx7OdoT -VLyVsj6URdrqPp+G/RwVs1Pz1q8hvWrYo343Nw3VkjVdhUl3Lblqf3wVDYU3 -FeX9JNeTq/xzqFiShsdDSuU7SPtZQViTAg3rvkwOXye9eudJrmENGjonq44c -JD1x4nXm33U0/JH5R9GeNHFDTVkWaJj/T+WqJOm4FxGEMZuGTHf34DdkPSwm -Gq3cXWkoVW8Vc5H0SmHBvoitNGSN32jzIt2ht3lX5k4arlSDPSKkfaKmU1/E -0VD238iJfWT9Vc9byH1OomG20J5Vcn3/n+/Tt3gzaLioIj3cSPZT7MKaDoti -Gn4NGTu8QPafOW2/v185DbmOp248Q3oFtvw8dJeGK4IDIlRJnz3qI1H7gobX -8PFzU7Kft1wtK+ntpWGI04cljWT/Kz2ZM5oapuGe3eRhhXQl3xlvnWlyPekp -I7rkvLzIfFJwlSqPOqIcgzftZF5wxPWaV8ujiM3m06akvXv8m4b15LG9Y9Lj -HDmPH6UXxmSt5fHcB0sjM3J+eQp1NbJC5XG7HifA4xkBzx4eqq84II85/S+9 -ssj5z3j/zL4tUR57Ga0vWsl8oK0ODFtxXh5Pvv5PS/0JmS/lF4jDD+TRU1Ff -tKqZnK++l38nWuVR4sPjvr4mAhy4lm7w7ZTHHfzz9fNk/mxzCX0NH+Qx8Ujy -+LpGsl/jFOMTlimgk/bh77EN5DzLz1wxX6uAHFYgy5EgYJqT0fpbh/SlxjJj -Drm/Nmu/Va1TwNJL3i40Mi+T9vrRlcwUsLWl2+FtBdk/zc9auZ0VcKrmrb4e -mb8tOwu+NUcrIGWTOUXlMgHsBRPRg3EKqHa0rPNVAQEvM7rp6xIUMN7701Dc -JQJe165MKE5RQNn54l8tZP5P8EeKJuUrIO+TCru158g8qLQxsm5SQMPOY1q2 -qQQEz/1IaBVQRL4nQe/ehJH7sXeH5LioIsoNyCn+DCHr/XmgjEdaEbX+Fbjw -BBNwdbC510xJESsnmOkyuwh4e/+s5m26It6fWXJdwo8AxyST/su+iohK+4Mc -HMm8FD2iE1eliLNmoYmd5PebK226JeeOIt5uusAKUiffnyfI+069IrYYHDb4 -p0rAnmmXpB+PFDFr9crXFEUCivtVBncOKGLb3miH1VLk97KgNXkTjxIqXLix -mM5NwO+1wm+13JTQMdcj5QZ5npi5SDli4K2EbO3LdYNdHJgSUlUx8VXCkZcD -2StfcWDil0nQ+t1KOBR1bOPm5xwYrd82431ICXkGc0X6HnDgmV2N4ImrSlj8 -o21a7zp5PtnjA6PTSviAzdOeFM0BZtnNwnPnlFEyz4aiyceBQYWyAqs8ZXyV -YfanbzkHYs+VXpoqUMYjA7MxR3g4UHOkJN+lVBkHXfM92xaqQd+zMEewQRld -Ovg6bSarYc2y7IzkEWV8/l9LeAd53pP0jUuI1lTBARsRpm5eNfwQtfVzb1LB -T9+ZUpeVq2HspJ/7Pl41fP7p64pk3ipgT+5nf6CvxoGSe9rP2irg67YVEUS8 -OiZZXt8caXqL/J+Q4j7etAbLliiN/ii+AaJtaumVkxrIbbJvL4VxHeROVDjR -6ZqorBcYqHntKuSsNREW26mF9x4IrtZzuwLPKOaGvzK1MeV3tCdb4zIw5Joy -dHp1cEhyavTu54sgyFMU6Z+oiy92iAQHUHKBdkSe6aWmh/dcl2cpuJ6Dlapb -7rg80cOZIcNNkgtZoM2Sqdi/VR+Xd5hHvdLPgH1vRZttuQww+U6l5wGBNJj8 -ddKNnWOAFWF1L/ZXJsMGnce5bK11KBBQwZafSYT7v0z/zL5ch9fxRN/N2cMQ -qqk/8CrQEHWbhHDDvhiImqXM++4yxJpGgst8SwwcbOKhTAQZ4kScZZytdQyk -efZ48YUb4jhbOf4kJQauHzvw2iLWELl15T89bz4Ao2/u93PSDZGx6VaCnswB -cD9l13e2xhDjN0eV+rdHA2tie7fXSjp+3LjU/NrOSJCs31DUwE/HvZ3XVFLc -I2HiuEa4vCAdnV3aRfdbRcIlxe/8H0TpmM/PPxOtHAn/NsVZhsvRMUFCUHP5 -cAQ8qM+sTtaho/U2hbktmyPAPOV+BseNjr9Nal0feu8DKxXpjQJFdPRvTG0T -jQsH4tsjxe3FdKysW1QQCgkHlZqImboSOho6DGVL+IbDUtv2gl1ldIznrXmC -luHQFJb8s5mgY3Z36AOhVeFgVj91PvYJHd2uKzlKQhjQXV6N/veVji06khuv -5IWAekLqgSYjIxxbG/Bo+GQQNJheXWbPMMJIK73JvIggcJp9kNXDNMJ56weP -9ngHwYHQ6ZsfzY2Q82vberZ6ELRu8RsRtDdCD/03UvMtu2GXCd12s58RZly4 -ULKaezeU/hyRnTphhNflLJ95pO0EjUCTB6oDRqi+JaXcunc7nFZymD/6xggV -Vm0+qtq8HabeBRiOvjXCVcJG+WKV2+G+98myS++NsJm9KoKauh1cnN6dl/pm -hB2tP4vHzbZDjGlS+EouY9zw39Zi67Jt0CrySvGbqjGqfDmjM58eAIH3dx0j -9hrjmjAdYdUEP5gI+UyWyRj3VG0bZ4b5wQFq8J7eaGMU042e3ObjB6kHw1zm -4owxM/9YyDumH1QyohWYycY4UmTWLDHtCwt3jjY05xrjFonRBdcfPpBVcWmq -s9kYx49cz49Z3AIPCru3/5AwwdDLOTefhnjBsL2ib7S0CXYNOvXscPUCrt8h -Xn8oJpjE186QM/ECC2deh2UKJrixcnBv+1IveLyEYSSjYYKnjxamul30hBcB -BSvNzUwweNpic0enBwyoBJVn7DDBpwGbNLkd3WHq+uKsTo0JDlgXTB074Qrj -7taFKbUm6DFZUcUf5Qr9S0/ZvK83wS+WEg+v+LtCvR/lwrlGE4zNu1LEa+oK -idKGjL9PTfAxpXPpxQkXED4RdPDZGxOUt839+9PTBTR39nAFcjNwZlkB1y8T -Z6BJyJXeX8pA1+RV1mnqziDcHOAszcvADvsRtoGUM/yifb/8nJ+BeoTaluop -J6jr5bPUl2BgxL1Yzz2VTmBjjUmLqxk4XR+sf1/DCbaplq3M3cjA8izjd2vc -HCD2kU+QmhMDAyaOy8QbOEBGoOjzahcG8qjqjk2LOEDD1ZiTzz0Y6HegoGZD -+0YQV7MR+uvPQC/XanqM3UZ4rPZB3C+agZ3+V1/Ns+1BQ11eQa2AgRWh3w3v -+NgCtnYmVF9mYC1zwJDX3BbcdyWPmBUzkHsy1yVa2RaOXv9W5FHKQO0Svpjy -j2x4o96gmsJhoPfPxNyjkWxIX+O19usTBj4xctx3I9MGfmicoVd/Z+BE96iR -8Yg19L9AK7FfDPy2MC3d22oNjaETrpHTDOTLEj+QVmkN6dXsvfR5BopzPfRn -JliDBoPrZh2PKYpMdd4nFKwhgB2i2CxpiolJt29MBFpB984Nq7qZpth3Xo/N -vWQ91K+cphiCKTbpqjYHfbGEorKiNefMTbEicYPPxx5LCJ/8a+1pbYrcCl0V -SmWWILCfOPLG0RRrqoZaM90twTpZcXYswBRDiywtbKss4G7xn5HpE6YY8Oe3 -640oc6BbRs7appni4XHeu1MB5nB75OuqwlOmeGj5sJuzkzlU094a2WaZogLP -GS7zteZwM6fx1KU8U9Qufu87N4JQeDLJZEO5Ke7vb+6vdUFIiRTKzOkyxfSC -DTPMRDNYIXai5FuPKWqp2/mq+ptBchVXg0U/+fxn/nhtNINjEz/Gv74xxZhz -ZeFF/1hweFc303zcFAeW63ILHmLBvi0XPn6aM8WodXcdB+OZ4L1eGU1pTKz4 -XGaZns+Av90rBJsVmEhlFnYOHWRAYeDEoK0yE0/zvRx03MqA8eTa/d7qTDz0 -9FtfLo0B+546VsToM1GIXT/QWmQCqQ4HaXetmWgWGX9oV5Ux1Hn2LKwLY2Jt -voVm3zgdtn6qe9awl4lDc8wzRs/pwBVbmLM+kok0HuH4OxV0sM7bs25TDBNX -rLAMEYqhQ+fQkuCIo0xMV/T11xCgw+cA7cGq80wcnnH/8JlhCLIhx2u1G5l4 -bUsvq63MANIXdximNTEx6eb6fX5nDYA7y7rqvxYmPrItkOePN4DPd5aVFj5l -Yoyt46kSFwOo4zqWI9rFRL2xUedf8/rgnZ2wf+YDE/8uHyx65agPOfUxhvf5 -WdihOTEvwKcHqxy8qiiCLNQtM+DfOaMLCcPGWvuFWWgZfW6me1QXdi2bU9GV -YKEJdZPQZL0uGDlGixfRWJi85IICJUwXekf3/UrSY+G5HHZwVLUOSPAFV230 -YOFlgZUi5ge0oNjyUOx3Lxa+UaDqjzprgf6hdMszW1gosXVwe9VaLXD4XtnT -78/CoT8bjV+/04Tk3unf24JZGHHiuw7bVhPmiuItYo+wcOJ404P41WthwPRM -V0kZaS1m2p8la2BXVHE+u5yFt+497loyog4z5bcDv1ayMO/CNTvdRnUQVeqf -1bvDwi92WdLL4tXBbgVV7l4jC89zHL1T/q2Ghu6S7V09LOS6kFfYu3Q12Are -1YruZ6GmTEWc3bga9G94OiM9yMKPL8/2fHiiBlN1X074DLMQ7T19U9PUQOuy -7q1Pn1lo9eCNVbq4GjQMmEef/MbCe1oXMjVmVcFW3BV0vrPQ0FhP7MtrVdhx -POpV5DQLl1vskewvUIWpxuRcqTmyHuJlG5YeVYXE+fPb6uZZuPrbEsFNO1RB -eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe +1:eJwV13c8Vf8bAHBRUqGyt3uuS9kzI/d6npbsWciKStNKJMosIiNpyVclSYW4 +5yYlFRkZRYWMykhaMrOi5Hd+f53X+/U653xe5/k843OIXQEOPtxcXFwrF3Fx +/f863dNQw0jKNTGbXLjl+GqDSds1ibANnbGwq0ziSYojDVD09S6JznTwS7ps +td9RC47a5XfwdObAofARhq0jwuoR8fTZDg6U67PfrnW0g94nNgGTHVWwVTSr +sMjBC0wZg93jHS3QG1r26p1dIMx2GFwc6+iHXZcOK58wj4bqTbdz3+ZMQLPa +nbd97Wkg01v2dZfaPLzZsfmpe2kGiPjuzF+6iQd/OCw2K1qRDenapuU22/lQ +ezasbkPTTejK0KocXyWAq39GqaQsvQ1JuVGvuSVX4wTXJZ5x9XwQv/A58fxV +YXTbcjJycX8hSKg+OPU7TxgfiHF4nX4WglRVfJQHWxh3aEk13JgsBLkx5ZA1 +1cKY4No3s2bpPVC0CvQq/y6MIY6lH0dU74Hu4nn9z7oiqPnDvdYn+B7YBosN +6DSKYNGS0rgxriI4vc3cpGVaFA8frczbxFcMUiXNUtyLxNDvXVlDzapiKBLe +NqO9QgxF/v37YCJZDO0tnuxz8mJ4LrOnUValGBj2wXR7MzFkjuWWxVsWQ5X1 +dd43V8RwJjqVWJxSDPOmU81NTHGsmez66biEDWl54QXzpuI47ZNfRF/GBgYv +V4K6vTjWPvfrHuZng1Xt8g0pPuJYoFocESbChsxNtPtWqeJ4/fv55z4KbDBE +y8sve8XR9uOgXDqy4YjRjZ0NsRKY4XexxPAYGyyyBSctkyUwaPWKKLfjbKAv +PZHQfFECp/87rXg8kg1v2pzI1jsSeKxFl5c8xQaNQH6enmYJVM0aEJ5JY8P3 +vNC8X1KS2GVvbDd0hw3uIjbD0vclsSAi6G94Oxt0j5fHXHsiiSlVwypGXWxY +3r9WjHghiZmWJnqTH9hQVswDSl2SqHgnrMPrExvELMvStBYk8VaCmbfIELV+ +DENvi6UUhnf2Jg9wkbB5dC7c/7MUdmuealReS0KY2QWV50NSGOWtnhuqQkLR +DfX3wtNSqJV7LrxKjQSJbV5GZXzSOPtLVM5Wm4ShR7UzPBrS+Lx66ebN60k4 +H5sWfOWYNC53Ute4ZklCv6iSf42ADAplfHmy2pcE8YAKWXFxGQzupsUs+JFg +Ve/SdIAmg7dDl5kNBpBQGp6ktlJXBu/xdvWUHiHhTO/Y4A4XGRRHdwO14yTo +3C3fN5ojg+8c55pOJ5IQw7T3ljKUxYTklOTFuSSYeV77ZbBRFi2MVw6X3CJB +MPrnye1WsljJjG/1vk1CVnVcXpqXLBpnCeuR+SQ8snj8kzdRFh8XMeyUSBLG +XBSOTnTJorJ5qNvBpyQ8DA9cunpAFmMU/tp/fkZCZNbTDI0RWVQrGX/nUkkC +f59z+QFuObzpr5tgVE3Cmn3JXH0qctj8+1Du23oSPEOmzrw6Locv0+a1PVpJ +ULy8UWYwTg49P28yud72//idvbc0TQ5jVp/u635HQvhf5Tcbc+VQPN3yh10n +CRdPeoqWvZLDxNd/pAW7SXh1ru76LVl5XNjfeObLFyre90W0q9fI4873Xqzx +ryS4vvOu6tOWx/c8iWdnv5HwXeLvgLSpPMpIi4tyDZLAk62lku4vjwZH5B4O +DJOwvuhKSWSFPDI3Pv7BP0XlQ0fz/Ei9PB4nigrbKNtwLd66s4VaT1E74co0 +Cbsd/LvgizwWblBKkvpNgulxIip6CQ3jRJ+/mZ0j4eXKJzcNl9Owxkp2f/4f +EuxynerHBGm4++M1GZe/JLg1Ja32lqDhq56DvfnzJATKT9/coErDgbNPPqpz +cWDqflr9rCaNqoc2vzrK4Waqw6QeDbfYtNM8F3Eg7rCXPt2Ehg7WvKOx3BzI +rG6s57anYWKjNSt/MQfkXXyGH2+noSb984jaEg7kDi2sPuJKwwOljnWFlItF +17l93k1D9k2r0Zu8HKjZd324+igNG+/7qwfyccD8r5HQieM0lNTJX/ORcnNa +m75eNA1jf/dYb1nGga6yZdG5iTQ8s+8NbeVyDnja5Oa6p9Lwcd3H5gDKA/0m +DSLnaejYE1PQRHlkRbBQXBYNDQVYE9ErOHAkW9CAdYOGjE13drZT/q13123q +FhWPA07za/k5wOPZk+tTTEMpQv11LWUJtpmBaRUNhy/V9HYLcODq5s9u/17Q +kI970w8ZQQ7QuyKiS1/SsL7+mPIOyurc9xuU3tHQjPbWroEy55L1SE8XDbmK +XIzmKRuqfhe63EPtR5q3m8ZKDmzcJuu+9DsNtQPrbRIo131/GF0xREPpK2kE +SdkqwuFW6DgN3/sWaXVQblk93KA5Td2f1XlijrJz3umRb3M0PHf8Ba/0Kg58 +XE8Xzl6gYTy31mtDyrtePzFwWUzg3pdN7Y6Uv+12dl+1jMBGoR1yvpR9f49H +1wsQKPcwKS+G8vrDe8W+ChH4bHLRwEXKfIPvC3gkCNy5tON7HuX2XbYbCFkC +WSpzD0oo3/pQ3W5CJzA9xM2qgnLwNkNf9zUEVnX/LHxBeWNT4aJwNQI5Olc7 +GymvMiUuX9YmUFV+15uXlHueXVR7oE+g+FqNiw2UCw2WV7UYE/izYGpNDeVw +dqTzGBI49eleYjllM+WJIQFTAm90WZUXUxbL2Reraklga1jD02zKA1Ifxc3t +CDSPlk5Ppcw5b3dv73YCa6ONjcIoR/PXbjzlSmD2AL3Ei7JtnFHnjZ0Edv14 +ybOFsty/e34VewhMzNFWVqI8dJTO032AQO1JW8XFlB+PXsqY8ydwyWWF2R4q +/gn7V2hIBBOoL5p/q5Sy06eo6nVhBHo0flJNosxwnXRxjCSwtL8h2Z1ypWX3 +ydQE6vv+FvRPUfmQWmMvWZhCoMOeO11PKbuzXhQ1pBN45veO4ljKsxrFXYuv +EnjWbHCOm3L9bYUAeg6Bp1rfBj2j8vESLWMx3ibQeG1001HKOkIxmsdJAgdO +WWr2UPnLlTRVk1FKYFBxqGEK5Waeg66l5QQWfEtYa0T50JRD3HgtgZY7Y56f +puoht5PxYd97AtndSyYXqHoLsr8SGNdLoK5fmv0lytgowHtzgMDYNu9rypS7 +y6e1ekao589LLN9K1avY9fr4bTx0FGop3+pB1feAOEsmiI+Oh5o8WB+o+uek +keRZATpaD3eqOFG2jc382ChOp/aTHN9I9Y8EH1+dDWp0zOQOt/5N9ZtZ1VU9 +6tvpaJIip9dK9a/pq1Ixuq507DxoeoRBeXKlIsNoJx3vfvHvCKL63ciE0cHN +B+j4WpxPeCnVD/vLd0+7RtAxuudQiMAMCY2WDwUTbtFx5EZyV/oYCXVPn5Mp ++XT0CLUaLB0loUbz1bbzxXQ8ZRKg3TlCwjPhT5nXyui4vNhynxDVrzkflq95 +0ETHw29Opvn8ICHzkCf0T9GxcMvf1tOfSLjcvb//2xwdI+nL3kb1kXDB9kjc +8AIdVSVDxEJ6SUjVTXj5e5kC+u2aj3Sm5knsH9J5pZwCPnoz8fUPNW8OJS0J +ZJoq4MZhH9Ga1yQwCwqzL11SwObYTHnXchI+0Aqub/lPAffKXPsn8piaV5fu +Xpu8roAaIawbTY+oeRmTl+VwVwGjs9evMyyl5rVLdobgEwVcF0Le/8UmQXnJ +hbT4TwoYMPLy2zw1n8V2Ho8+qsbAs+IOa4NTSXjQFhalqM3Aiytg349kErZZ +HItsW8fAWom6RPckEtLXhZzQAQb+bHoawUwgQYA/4NiIPQMVDv1kfY4hYXHZ +rsC9oQwsGzywpCmYhHEhCy+nKgZWuJFjEjtI6PSlvzlYx8DbgtVXFJ1JqHwx +B1GvGKjUYD6iuZ2EtPAC+TvtDLypL3GdZU+CVj9/7+wgA5mxx7awzEnwJ197 +XBVWRJtU27ZmQxIGbbe7DexRxD7lE7GbxUgYSPZyClqqhPsKQzfVNbLBf1CN +rsWvhPdCtWWD69kws3V2eHiVEn6x4mXKv6DObzzpcQeklHC94wXrwOds0Aqr +LvFSV8IsOdu++YdsiPBRErZ1VEKXKL7aulzqPGcy9Fr1uhIe7pC+LBfBBvPR +UPMv+mtwom30j4QyG4Z28x0piVqLh1WXdn6sKKL+J8S5T1cpI39fdozzinsg +1KSUyh5VQU2LNNdbLgUgk1Bsp6+vhk7Gw+pefnchQ9VolfA+dfT6c1Y4PuM2 +NEptWDdxTgN7+7OtihpvwXqZqjTNdk3c+kUiMeL9TRDkyQn2jtXCBzn/5H+J +5oBcjDxzh5I2lmwMyk1jZsMyRfdShzptvL7hNyuS5yposCSLQz108CqfcPe/ +6SsQ1CNUbcGli5uFp8Icei/B6ETydvMMXWzTOv3ymc4F2Kr5ItNcXQ8dPaNi +NOvPwbMJ4z8zzXpod6ZO1rM+FfzVdN6/9VmH6UerQgUqzwBrZE/bjmX66KkX +ELTQFg9bGBLWAjn6ODHPt/n8hZOwNvrMsSoDA+QfXGV2tzIaVHyMKhTfG+A2 +D8awjfwJ8Hm2/1TJYUP8esLNqaUiFCqy2/aMixrhK1Lh16/bR2DyzsKM5kMj +tFkT2dpqFAi7FQuWZVqvx5Rvzbox8wdhXOW8PmdsPbZG3yiRmvWBR7l/Pk0l +GOMpo+rXtGW7QH9T8IxFkjHGbOZ78W/OGx58GuLPTjHG3u9Z7l+HvIEj12Ng +kW6MN2tKt7e88YbCjMqUa/8ZY+1eqS8yV7whOznOaGsR9T5m7Y9QVW9IDF55 +LqPVGNfF3Q8gnL3AdbMCGssx8cF/xbU26R4w38YnWE1jYqmgrUP8MQ/I9hn5 +YKHAxPgx9XNvPT3ga3xZqOtaJv5VuDyZo+oBQQ22xWE6TOT7UPBH84U7nLE5 +IffIlIm81TP7vv9zg8cu7/7qBTAxR6PobmSkK0j7nS7TqGRisX5XN/u+M6Qu +7F2XVMXEhxV05/7rzsCdbkp+q2HiH/UV/vRkZxgsXXI3u4GJz8NG7Zr3OMNj +rlMZQq1MTF7uNt4q5gyuF6JDp78wMXpq9ENqhBNklIete7aChbtS+yXjt28H +0eW+pLUzCyMu2D7PUneE3E0R4WM7WKitcTPFXNoRdCJSN513Z+FCVtfgkmWO +YDPGftfpzcJ2dqDqvQEHiG+fmt3ty8K+aomzJVkO8DsnamN4DAvV737YcHWl +A7w3Pt+aV8DC2/si0s5w2cP+kNws8yIWqsUY7BAZs4Ppogc+Q2wW7j7Rv6Ow +1w6E6J0z2qUsFHvi28VbYQeWfLIyTytZqN9rXLwn0g6etOXtaX3HwuFj1gEh +C7ZgIfhI/WgnC7uVDbeb9tlC59aGaYkPLFTU0N2t89wWJh//TPDsY2G6z1ie +20lbUL+hde/HIAvvp4pdHeOzhSfvNxxNHmbhasOa9IxBG7AQcQTNMRYeePB2 +ldsrG9h7OuRt8BQL8+l8zpppNjBZGZ8p/puFpZ8bZzDIBmLnLu9+PMfCo2JE +i+82G1ild1fNY56Fnb5HWjj6NnDN7/HUwgILW8h1X4QkbeB/6TCsZA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.0705687888859045}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3517,6 +8388,7 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3544,7 +8416,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0705687888859045}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3552,9 +8425,8 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991335257344549*^9}, - CellLabel-> - "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] + CellChangeTimes->{3.991335257344549*^9, 3.9939184659005623`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"1fc388df-9041-4f28-9a74-a2b1ce89d666"] }, Open ]], Cell[CellGroupData[{ @@ -3607,66 +8479,76 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + "In[100]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.39639867535232`*^-188\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 256, - 237, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257395241*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.588841975979786`*^-149\\\", \ +RowBox[{\\\"\ +192330073695578600598678251250730514595536743471887934253145779509789\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1163350940137443209261321198991532417980825600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 134, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9939184659743032`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +In[100]:=",ExpressionUUID->"a420f7bc-7cae-4aa8-9003-97f26b171723"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.342395211692676`*^-192\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 256, - 238, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574052296`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.846637721757903`*^-152\\\", \ +RowBox[{\\\"\ +692388265304082962155241704502629852543932276498796563311324806235240\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"25\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8063384494795553340756316369516704730972160000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 135, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9939184659828463`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +In[100]:=",ExpressionUUID->"9f9ee2e4-e80a-4e7f-b5c0-e8e388b91587"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1800384500947783`*^-195\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 256, 239, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257413231*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.3782727608629747`*^-154\\\", \ +RowBox[{\\\"\ +257637673519649270217965438245428568131597200085202201208143960400132\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3853705134253980954253210971658303947407360000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 136, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9939184659905787`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +In[100]:=",ExpressionUUID->"59486266-2834-49f3-b180-76dea77bd997"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574212303`*^9}, +during this calculation.\"", 2, 100, 137, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9939184659993057`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +In[100]:=",ExpressionUUID->"cc5bc0f6-b866-44aa-b6a8-ba4533d0e405"], -Cell[BoxData["9.332200719005158`"], "Output", - CellChangeTimes->{3.991335263670042*^9}, +Cell[BoxData["10.753999039706123`"], "Output", + CellChangeTimes->{3.991335263670042*^9, 3.9939185170517387`*^9}, CellLabel-> - "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] + "Out[100]=",ExpressionUUID->"d3dbdcb0-52a1-4a52-9712-c2cfb9b173f3"] }, Open ]], Cell[CellGroupData[{ @@ -3733,65 +8615,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849285445259*^9, - 3.991849289419262*^9}},ExpressionUUID->"6f0ad284-4db3-da47-b8dc-\ -45830eedfe9c"], + CellChangeTimes->{{3.991849285445259*^9, 3.991849289419262*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 257, 241, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263710146*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.211120369971199`*^-212\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 138, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.9939185170993156`*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +In[101]:=",ExpressionUUID->"853a9bc2-c753-42cc-ba93-b9ec65e9a90f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 257, 242, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637201557`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.773487507289964`*^-217\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 139, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.9939185171085653`*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +In[101]:=",ExpressionUUID->"20563849-c6f4-4df2-8bc3-84ac0bf140bc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 257, 243, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263728153*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.362413974181999`*^-222\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 140, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.9939185171160307`*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +In[101]:=",ExpressionUUID->"1490f0d5-1350-449b-bb2e-cda80e480736"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637361546`*^9}, +during this calculation.\"", 2, 101, 141, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335263710146*^9, 3.993918517124144*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +In[101]:=",ExpressionUUID->"2fdeba25-86c0-48c7-87aa-15153c3d011a"], -Cell[BoxData["0.00046079539931050297`"], "Output", - CellChangeTimes->{3.991335268779545*^9}, +Cell[BoxData["0.228630063221505`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.993918524373838*^9}, CellLabel-> - "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] + "Out[101]=",ExpressionUUID->"746fdcf1-c03e-4b7f-9640-29355018696a"] }, Open ]], Cell[CellGroupData[{ @@ -3812,8 +8701,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3858,65 +8746,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849293744112*^9, - 3.9918492959939384`*^9}},ExpressionUUID->"b2dda819-6f34-5c49-bc62-\ -303d815946e5"], + CellChangeTimes->{{3.991849293744112*^9, 3.9918492959939384`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 258, 245, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268812542*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.211120369971199`*^-212\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 142, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.993918524413528*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +In[102]:=",ExpressionUUID->"ecf6dca9-9afd-4a4c-b0bf-5ea84a97354d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 258, 246, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268822542*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.773487507289964`*^-217\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 143, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.9939185244206877`*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +In[102]:=",ExpressionUUID->"c0c80c86-51d4-460f-b6f8-12a2fd065272"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 258, 247, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268831545*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.362413974181999`*^-222\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 144, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.993918524426993*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +In[102]:=",ExpressionUUID->"8649a8d4-1fed-4b76-ae9b-f14bafb52274"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352688395576`*^9}, +during this calculation.\"", 2, 102, 145, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335268812542*^9, 3.993918524433118*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +In[102]:=",ExpressionUUID->"db832d18-7195-40fe-a52d-3c811a922460"], -Cell[BoxData["5.104103620353258`"], "Output", - CellChangeTimes->{3.991335272704685*^9}, +Cell[BoxData["31.219509947571325`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.993918531953458*^9}, CellLabel-> - "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] + "Out[102]=",ExpressionUUID->"0585b15d-d98b-439f-836d-f33d18ae47f2"] }, Open ]], Cell[CellGroupData[{ @@ -3937,8 +8832,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3983,65 +8877,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918492993108063`*^9, - 3.991849303274454*^9}},ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-\ -1a175f609f7d"], + CellChangeTimes->{{3.9918492993108063`*^9, 3.991849303274454*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2914107257951473`*^-244\\\", \ -\\\"69237837345426015193166198943959583654468513190741907865600000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 259, 249, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727386665`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.211120369971199`*^-212\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 146, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.993918531995907*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +In[103]:=",ExpressionUUID->"4e3e1625-803b-4731-bd1e-17cc3f31a6bf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.101217087106948`*^-252\\\", \ -\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ -\\\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 259, 250, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727476673`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.773487507289964`*^-217\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 147, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.99391853200517*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +In[103]:=",ExpressionUUID->"d948694f-c538-4a59-bf08-8b93edc40fc6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ -\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ -000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 259, 251, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727556705`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.362413974181999`*^-222\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 148, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.993918532011471*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +In[103]:=",ExpressionUUID->"eb7c9d94-1f0a-40cd-a53d-d0f5afe2f594"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727636833`*^9}, +during this calculation.\"", 2, 103, 149, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913352727386665`*^9, 3.993918532018442*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +In[103]:=",ExpressionUUID->"289dd4a2-f34b-46a6-872f-e5b8c47cf829"], -Cell[BoxData["18.832858301324727`"], "Output", - CellChangeTimes->{3.991335275154251*^9}, +Cell[BoxData["3.7792824714703666`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.993918536548645*^9}, CellLabel-> - "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] + "Out[103]=",ExpressionUUID->"4eb7c727-7970-4f71-9adc-0b12296fe501"] }, Open ]], Cell[CellGroupData[{ @@ -4050,22 +8951,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918493065908413`*^9, - 3.9918493103344364`*^9}},ExpressionUUID->"69dd09d9-152e-3e4d-9517-\ -4de4791db2f4"], - -Cell[BoxData["0.00004699917922538678`"], "Output", - CellChangeTimes->{3.991335275186266*^9}, + CellChangeTimes->{{3.9918493065908413`*^9, 3.9918493103344364`*^9}}, CellLabel-> - "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] + "In[104]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], + +Cell[BoxData["0.021048231853358836`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.9939185365886908`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"ef9d0658-3baf-4ed1-81e4-c0f48c94e7d8"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, - 3.991924798063732*^9},ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-\ -749729cd7104"], + 3.991924798063732*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ @@ -4088,12 +8990,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + "In[106]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[BoxData["5.744985073726737`"], "Output", - CellChangeTimes->{3.9913352752142563`*^9}, +Cell[BoxData["6.579854423899162`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.9939185366066103`*^9}, CellLabel-> - "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] + "Out[106]=",ExpressionUUID->"9f4db4b9-b3f2-4b8c-a7eb-0a9fc71965c5"] }, Open ]], Cell[CellGroupData[{ @@ -4103,12 +9005,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + "In[107]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[BoxData["1.564995573098557`"], "Output", - CellChangeTimes->{3.9913352752482567`*^9}, +Cell[BoxData["2.0531567188949684`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.993918536615939*^9}, CellLabel-> - "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] + "Out[107]=",ExpressionUUID->"07615aee-aaaa-4c8d-9955-a6491fcb3ca8"] }, Open ]], Cell[CellGroupData[{ @@ -4118,12 +9020,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + "In[108]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[BoxData["8.990876207899632`"], "Output", - CellChangeTimes->{3.9913352753089123`*^9}, +Cell[BoxData["13.509472319779347`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.993918536625677*^9}, CellLabel-> - "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] + "Out[108]=",ExpressionUUID->"0976cabc-2184-4f11-a36c-b26a9f9ac19e"] }, Open ]], Cell[CellGroupData[{ @@ -4313,12 +9215,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + "In[109]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[BoxData["0.07167004636648908`"], "Output", - CellChangeTimes->{3.9913352753341656`*^9}, +Cell[BoxData["0.007040078481961609`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.993918536638789*^9}, CellLabel-> - "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] + "Out[109]=",ExpressionUUID->"32fe403c-eb96-41d5-b42a-07d25ce8e086"] }, Open ]], Cell[CellGroupData[{ @@ -4332,12 +9234,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + "In[110]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[BoxData["3.3103666491187544`"], "Output", - CellChangeTimes->{3.9913352754296722`*^9}, +Cell[BoxData["10.562243863702404`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.9939185367450237`*^9}, CellLabel-> - "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] + "Out[110]=",ExpressionUUID->"5a982300-96c2-4ab9-bd4a-b87c51bd1ad7"] }, Open ]], Cell[CellGroupData[{ @@ -4529,12 +9431,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + "In[111]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[BoxData["0.012832691268660865`"], "Output", - CellChangeTimes->{3.9913352754426765`*^9}, +Cell[BoxData["0.07053127001104725`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.99391853675843*^9}, CellLabel-> - "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] + "Out[111]=",ExpressionUUID->"55a1e148-ca53-42e0-8d98-fe36d5394df9"] }, Open ]], Cell[CellGroupData[{ @@ -4548,12 +9450,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + "In[112]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[BoxData["7.823229443917166`"], "Output", - CellChangeTimes->{3.991335275540678*^9}, +Cell[BoxData["3.3369837262190214`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.993918536864427*^9}, CellLabel-> - "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] + "Out[112]=",ExpressionUUID->"6d88353c-01f4-47bb-958d-0319d0cdde92"] }, Open ]], Cell[CellGroupData[{ @@ -4646,12 +9548,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + "In[113]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913352755566807`*^9}, +Cell[BoxData["0.06727285695077176`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.993918536876307*^9}, CellLabel-> - "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] + "Out[113]=",ExpressionUUID->"ce4fe5bb-b907-452d-9030-e21ba0bba39a"] }, Open ]], Cell[CellGroupData[{ @@ -4741,12 +9643,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + "In[114]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991335275581682*^9}, +Cell[BoxData["0.9327271430492282`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.9939185368880157`*^9}, CellLabel-> - "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] + "Out[114]=",ExpressionUUID->"8bee1429-3a4e-4e19-8126-05485dae9e59"] }, Open ]], Cell[CellGroupData[{ @@ -4869,12 +9771,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + "In[115]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913352756087036`*^9}, +Cell[BoxData["0.06274721966845274`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.993918536900075*^9}, CellLabel-> - "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] + "Out[115]=",ExpressionUUID->"2859231e-7fc8-442b-a276-f34ce3d89610"] }, Open ]], Cell[CellGroupData[{ @@ -4936,68 +9838,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849332835844*^9},ExpressionUUID->"d6aa822f-4140-174a-8e29-\ -c889dba5c0d8"], + CellChangeTimes->{3.991849332835844*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 253, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275636673*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4747128769700926`*^-214\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 116, 150, 31385385850037802788, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9939185369147053`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +In[116]:=",ExpressionUUID->"fdf1efe6-925f-4f0c-a58c-118d030b9a5f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 254, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756456738`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.651585214543215`*^-220\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 116, 151, 31385385850037802788, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.993918536923278*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +In[116]:=",ExpressionUUID->"352427d7-e3f2-4b50-89ce-ac2f7cd154b2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 275, - 255, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756546745`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.000149151557667`*^-225\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 152, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.993918536930895*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +In[116]:=",ExpressionUUID->"9f1f672c-4ffd-4078-a018-16c79d055193"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275662676*^9}, +during this calculation.\"", 2, 116, 153, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335275636673*^9, 3.9939185369381847`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +In[116]:=",ExpressionUUID->"d7bab82d-1e49-4b12-98a2-09bae91eebb0"], -Cell[BoxData["3.3103666491187513`"], "Output", - CellChangeTimes->{3.991335279487499*^9}, +Cell[BoxData["10.562243863702413`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.993918540780704*^9}, CellLabel-> - "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] + "Out[116]=",ExpressionUUID->"0ad13897-4749-472c-9bbb-6182d0cc6908"] }, Open ]], Cell[CellGroupData[{ @@ -5059,68 +9965,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918493361354027`*^9},ExpressionUUID->"46f3f057-22eb-c143-af7a-\ -23ddab00799c"], + CellChangeTimes->{3.9918493361354027`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 257, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279522499*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4747128769700926`*^-214\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 117, 154, 31385385850037802788, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.993918540820834*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +In[117]:=",ExpressionUUID->"8dfe6661-36ff-428c-b14b-df57e66c0ed0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 258, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279532501*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.651585214543215`*^-220\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 117, 155, 31385385850037802788, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.9939185408286047`*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +In[117]:=",ExpressionUUID->"2dd8f4a1-ce42-49ba-a556-f3a62c8f0278"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 276, - 259, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795405006`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.000149151557667`*^-225\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 156, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.993918540836629*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +In[117]:=",ExpressionUUID->"ac57572a-22f8-4776-a076-d0a070986a88"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795487957`*^9}, +during this calculation.\"", 2, 117, 157, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335279522499*^9, 3.993918540843445*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +In[117]:=",ExpressionUUID->"a3a26f92-512c-428a-8d9a-93e9c6dc1e3c"], -Cell[BoxData["7.82322944391716`"], "Output", - CellChangeTimes->{3.991335283631424*^9}, +Cell[BoxData["3.336983726219022`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.9939185446327744`*^9}, CellLabel-> - "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] + "Out[117]=",ExpressionUUID->"1671170c-8488-4f95-9d69-84894872c752"] }, Open ]], Cell[CellGroupData[{ @@ -5178,94 +10088,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918494105860615`*^9},ExpressionUUID->"0137ed47-cd78-284a-910a-\ -31d165f1571c"], + CellChangeTimes->{3.9918494105860615`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0Vd0bB3BziDJkpjKWpHQNUbKfoqQQKkNKXPccU8iQl4xlSoNIRSEq +86yQTG+hXuGHoknGdFUu4mQu9dv+OOusz3rO+u797HP2XuvI072tCA42NrYJ +fK3cfTq2bXrS1WHQbrj8PDmKhQwms7TpRkVI1lB2cMVDGTo3lYzqUJDRPzop +2BaM//EIaL5A8gfWtKy4PDC8iduoHfHtH066gx33UvJZeMFrxLtn6s5d7Kdd +Pvd+096i25t396Zij/W2hgTVfkBa7I3H0rGlmYr2c4Z9iGqI4svAPvwjRM+v +fRC9to1cyMRu+D22OrBgGOU018s/xH53QSK4ymsE9c5pRmdjT/IYjc3QmGjx +M1MhD5vn6lk7zflRxBPcvVSAvV44vcWn9hv6VfpboATbXGYuZ9JwHB0sYR+q +wCYzFcTVeSdR9NH+zGrscOUj0R7tP5CH2UxqHfYHiZ4d/gXT6Ob3bniBzTjh +7pZ0lUKCDmljr7Cn0tjuP/L6ie60ZXR0YPMqqAtN02aRpKrN/o/YNxlNxkJi +c+j+MP+HAeyNuXbh2+fnkI3SYtYXbN2tMZOetQvoYnvUxBS2q85g+5jhb/Tm +zzE9gWgWmgk8x8Wvsozc3D6mi2JH1K7WV+X9gyoPJOvLYKeAbqFL+1/EqGrY +rIbNyG4x8i1gh/SKJ7Vm2AUvk4YuyHCAJw8nZY099dUhJPEqB8iQMXRH7JAt +s4/LvDihMVqL8sO+WSqv+IPGDRwXNrenY/d2jTf8ecgNhtHbevKwN1JPTqwR +4wEZprt4BXaRlvkN9Xke0G6JNmnDbn56nv1MLS8Qxnvcf2PPNnUPfjMUgNDE +wFtuMSwkYiogFNwgAMYbzcKDsDV6jEBQTxCSXGOL47Ddv1Rm7ti2BsIS1N4X +YJ/laNfYIyAEmS0qp6ewmQol09FzwqDzKHbvpVi8PmQrX6emCHT1RvmkYXMU +jspL+oiAYNYQswx7o+YGqwKWCDyQeJTai33CMOFRx5AoTMiW7N5xiYU6nX39 +JNrEYOhboikLeyA3/oojrzi8DtNr5IxjoXFWwcP8/eLgNaETIovN7z/SvfuZ +OHR/1ag3xzaKOqblWCkBc7Nr/aqwa7J0ZvMypEBXaKz4xmUWymIuBezylwO1 +qh32YVdZ6ODx2AG/YjnweMbYnI493ix6oHhUDnS2S+6ow9bK2iq20W49/Lm+ +PLOE3Ux3eMxtsAEeupceCL7GQtSPoX++RW6E1FRR4dh4FhL1NKp4bKYAJS+e +6rclsNBoFr+rhbsCnFi6FTiNXd3XJTMRowAyDb0/JBJZ6KTpqUiVZwrwO+Nu +AoGdpRZgdYemCOX6fXc5b+Dxx3KnwiSUIGc5+/WhJBY65rJa/dCwMvy9xdPI +fZuFUMBxms2yMijGekTSsLdEZ+xkSKkA366O0NPYbA8194VZqsCSfJxcDXbx +gL3No+cqcNu+htc3Ge9P66IL0g82wRq3HdfGU/D8jMzejdFVIdLZxVggjYUe +Hk3+NB+mCmab76oAdjx9eIgrVRXWqhcY+GMzIs6x1nerwv7EU1L92MJ16WxH +DbeAVjUVWJ6Ovx/NyS21imog/v3jICODhWQUrodf+bIVnAL8jOYesFDd5RnV +RQ51cCrYg3Qe4vX4addDyquDxmJzSAD2vWYl1X0O6jAawPVsHlvBpebNwnt1 +2PuPlMtyFu63iKlMtm2Di3WqOmK5LCQns57caKcBvwpn2gIKWWhrtr/AL0SD +7bX5Z9krWYjOiJxVN6dBX35Bvil2iuKNAceTNGjUIWVTsDkflJa9DKRBrjtP +6fYqvN/ujR27UU6DvKzaS05P8Hma4piuqqgJjz79I9D1FL/fK6bbbHm0oDq8 +/+CHBha676tkUdmuDU0NWeq3XrFQVwDaGZWtB45BG9aPj7CQvMNb81Nn9kAS +0ZnRzT6OiL9VJXJBAIJsR5km8uNIglW9SoK+D/rYlmf0jceRv6Z+340tRtA0 +Yami5TWO6BO/W0TH9oP1Ze+lnORxVLzPb1VGpzGwsorK1FvGUdaM+/Oimyaw +/I1nd8XCOFrYK/m/5vDDcKOjaKxGYwL1s3FODzuZQe7Zu5+FPSaQl6x3wgXF +I5AWMJt0LGsClbi1PLsVbQGWTp4hDOYEOv9Tal7NzRKEQx+J1StNotlDB6z/ +O20FUll7SvjOTCI9+8S9TMujYPPrs0dkxSR6I5Xu3qx5DKZF2d02Lk0i6ZzI +urzNx0GnhrU6zvgHqh7aYmouaA1brV/VOSb+QOt7plwCJqyhlu0d7U/vD6R5 +K7Ho4ZANjE4WFs6JTaF0rp/bbjTZQkkYshbTn0JVe7f3Rj+1g/s3eRhpxBRK +2XlZ+HfBCQgykat1jZ9CnZ+yYzSv2oPJ8cvnLCqmUKVZmtLZiJPAMd/0dW3/ +FJr2PMrmxTgFCeuiTiRxTKPZA6quk4YOMGATMV6sMo3yJj4u+OmchjbUdGTU +dBrZ3s92PiXgCDKXW1cFek+jx48On+aMdYTiQebWuKRppCfzZjFu0RGmy5QE +yh9PI8Uhl97Xbk4QRzay7r6eRl9WexxJG3GCMzLhagJT06gr3tzZ+Dgdjqi8 +jSL4KXQzMGP1uS462Ar9K3ZRiUJ1DX8XnU2cQaqnrCB0N4XWnoRYzRpnqBCJ +s3Mzp9DGdf91ytY5w6h45adKbI12M0meBvz8gTp1jiMUstK3z//w3Bk0OnX2 +3sW+KRvQFvrKGa6e+KDUYkEh6f7CtS0fnOE5Uf9O+iiFlBwkUk7OO0ORaVF2 +qg2F9Bwn86K1GKA+priKz5FCOXem/Mx1GDBXYbBghL2umzKQ0GVAqUtEfQT2 +5P75nrzdDPhZ7NA8j52lxsbevo8BC2/fNI44UWjNvLCdiCUDJH/xhj52ptCX +a9p8GZ4M6BkWrd3hQiHL/3b2uHgzQHFbn5IrdgPbrgwNHwas0uem38O+42eg +3ejPgAJeujW/K4XM7YydmMEMqLR/oDKE/VTJ7qnaZQYsv9rqGOlOofjaELfq +HAa8MuhZm+dJIU9asl5gHgNyOC8y32Ob5pfz6RYwwD8t8/oqLwrxJ4/mPylm +QP0BWScSO9rXYqyqggFvHS4uyHtTKERVyaOykQEG0v/OJJylkHty25lHAwyw +8bjObu5HIZM1o/q+Q7if6kX7QOzN0WyCtM8MKNHac/kB9qivdnE5kwGXJ/fQ +57CdzDMmysYZwP294G+qP4Vsuf28SpcY8PU/YnzgHIWM/aTPFokTwJ/2xdsw +kEKNGTGHbkgS0Krlae+Brd9OKQVKE9AbclokCVtDue2j4XoC3lt5fh7Glnof +bPhJmYA8rmz+0CAKsXb1i/NrE5DOZ/lP/nkKXefIrHc5SkDVa6v7vSG4/+0C +KWbHCRiTnJv6hR1lH+iraUOAhqzParlQCgVWWGz6e4IApfb+TAdsJ5I98Tad +gHv+G8wGsTVb6YwXPgQw417mvguj0PtE5dWKCQSkVIocTo+gUAkSdP2WSMBx +va5NVdhREzPNxUkEqMb3ve3Appk0h+kmEzAw+i77L3Y8mzNldo8ADhFesdMX +KHTAO/NjYBEBHe+kt4ldpJCc3CUdgxICBL5eXa+GPdPqncRZRkAjh/IQYD9Q +QWbxj3FeX/07D+zl/v5nD2sImHtqkfgvdoWpTF5HCwEXnrPtcoik0JUlDu6b +rXh9pJ/v9sGm54052bUTsK4zck0UthBXjcyXTgJeCvFuysc+U2t7ffEdAUFR +3YrT2IpbbgcoMQm44tJ0KDCKQkvvQ7u/jxJw0q7e/hJ2VzShUfqNgCLR1D0p +2GHDWmN64wTUTi35PcHuTek+deQnAYZvZQt/Yt9YJbz/PDsJgz5he52j8XlA +9dv7c5KgveHciA/21/4CXy9uEtrtkg9FYOtXGGXS+Uiwz7B2TcMedQz8dUiY +hFsmV4ZfYwuZ7hfZL0qCG09+0QD27p0iqkiMBDvfEX0WdoJgkbWmFAlrLuQW +ccbges1guYw8CVIOBq92YJPZRS1iiiT8QqL1+tgJCUGDa5VJGJ+ZP2eMPUqK +CnKpktDMwdI5uVIXNXYd1yAhJM1i9iJ2zR/R8FEaCc/aQ4SvYjO/D90a0iJh +fq6Yuom969n5ph5dEqoJaa4c7C9nStbXAwnHcn/RX2CvsQ3WfrKPhAS37bnt +2HqGB03LjXDd4nRZN3a81Oeg7IMk/HxaKjyMXc1VmpBxiIR9rh1uX7FHfgTn +3jElgUpkxkxg674Ue3vNggTVVUtrF7Hp5Z9ZsVYklDXMBv/BvpZWynHxGAmp +r0aLOGMp9NnXRCPAloRg/pxTgrEr/xnixmdPkMA54dsvjK1rMnLK/SQJm0Jo +CuLY1zaEXnFwJMHQKnZJDrua/9ADWzoJfjEy8fIrebPiT60YJBTtzRxVWskb +Huk0JUloWCPGtXklr71s9IArCTERQaNbsOlPQpfBHY9H+9819ZX8B4fW7T5D +wq6Xa5e2r+Rfk1DT9iLB8huo0VbyA7/s3X6WhIjDjvJa2AKMcltVXxIECz37 +tLF3HgnzVvQn4WSr68mdK/m7DsfIBZAw7G95Xxf7qrJkukQgCYphmwr1sKuE +mI+Fz5PQ+nwsaBf28K/y1tUhJFxUTBXcvZL/NWyYO4yEDdd1yRXrvDm88Dec +hKCFxsgV/x91pSw7 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5279,106 +10190,107 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= +1:eJwV13k0Vd0bB3BziDJkpjKWpHQNUbKfoqQQKkNKXPccU8iQl4xlSoNIRSEq +86yQTG+hXuGHoknGdFUu4mQu9dv+OOusz3rO+u797HP2XuvI072tCA42NrYJ +fK3cfTq2bXrS1WHQbrj8PDmKhQwms7TpRkVI1lB2cMVDGTo3lYzqUJDRPzop +2BaM//EIaL5A8gfWtKy4PDC8iduoHfHtH066gx33UvJZeMFrxLtn6s5d7Kdd +Pvd+096i25t396Zij/W2hgTVfkBa7I3H0rGlmYr2c4Z9iGqI4svAPvwjRM+v +fRC9to1cyMRu+D22OrBgGOU018s/xH53QSK4ymsE9c5pRmdjT/IYjc3QmGjx +M1MhD5vn6lk7zflRxBPcvVSAvV44vcWn9hv6VfpboATbXGYuZ9JwHB0sYR+q +wCYzFcTVeSdR9NH+zGrscOUj0R7tP5CH2UxqHfYHiZ4d/gXT6Ob3bniBzTjh +7pZ0lUKCDmljr7Cn0tjuP/L6ie60ZXR0YPMqqAtN02aRpKrN/o/YNxlNxkJi +c+j+MP+HAeyNuXbh2+fnkI3SYtYXbN2tMZOetQvoYnvUxBS2q85g+5jhb/Tm +zzE9gWgWmgk8x8Wvsozc3D6mi2JH1K7WV+X9gyoPJOvLYKeAbqFL+1/EqGrY +rIbNyG4x8i1gh/SKJ7Vm2AUvk4YuyHCAJw8nZY099dUhJPEqB8iQMXRH7JAt +s4/LvDihMVqL8sO+WSqv+IPGDRwXNrenY/d2jTf8ecgNhtHbevKwN1JPTqwR +4wEZprt4BXaRlvkN9Xke0G6JNmnDbn56nv1MLS8Qxnvcf2PPNnUPfjMUgNDE +wFtuMSwkYiogFNwgAMYbzcKDsDV6jEBQTxCSXGOL47Ddv1Rm7ti2BsIS1N4X +YJ/laNfYIyAEmS0qp6ewmQol09FzwqDzKHbvpVi8PmQrX6emCHT1RvmkYXMU +jspL+oiAYNYQswx7o+YGqwKWCDyQeJTai33CMOFRx5AoTMiW7N5xiYU6nX39 +JNrEYOhboikLeyA3/oojrzi8DtNr5IxjoXFWwcP8/eLgNaETIovN7z/SvfuZ +OHR/1ag3xzaKOqblWCkBc7Nr/aqwa7J0ZvMypEBXaKz4xmUWymIuBezylwO1 +qh32YVdZ6ODx2AG/YjnweMbYnI493ix6oHhUDnS2S+6ow9bK2iq20W49/Lm+ +PLOE3Ux3eMxtsAEeupceCL7GQtSPoX++RW6E1FRR4dh4FhL1NKp4bKYAJS+e +6rclsNBoFr+rhbsCnFi6FTiNXd3XJTMRowAyDb0/JBJZ6KTpqUiVZwrwO+Nu +AoGdpRZgdYemCOX6fXc5b+Dxx3KnwiSUIGc5+/WhJBY65rJa/dCwMvy9xdPI +fZuFUMBxms2yMijGekTSsLdEZ+xkSKkA366O0NPYbA8194VZqsCSfJxcDXbx +gL3No+cqcNu+htc3Ge9P66IL0g82wRq3HdfGU/D8jMzejdFVIdLZxVggjYUe +Hk3+NB+mCmab76oAdjx9eIgrVRXWqhcY+GMzIs6x1nerwv7EU1L92MJ16WxH +DbeAVjUVWJ6Ovx/NyS21imog/v3jICODhWQUrodf+bIVnAL8jOYesFDd5RnV +RQ51cCrYg3Qe4vX4addDyquDxmJzSAD2vWYl1X0O6jAawPVsHlvBpebNwnt1 +2PuPlMtyFu63iKlMtm2Di3WqOmK5LCQns57caKcBvwpn2gIKWWhrtr/AL0SD +7bX5Z9krWYjOiJxVN6dBX35Bvil2iuKNAceTNGjUIWVTsDkflJa9DKRBrjtP +6fYqvN/ujR27UU6DvKzaS05P8Hma4piuqqgJjz79I9D1FL/fK6bbbHm0oDq8 +/+CHBha676tkUdmuDU0NWeq3XrFQVwDaGZWtB45BG9aPj7CQvMNb81Nn9kAS +0ZnRzT6OiL9VJXJBAIJsR5km8uNIglW9SoK+D/rYlmf0jceRv6Z+340tRtA0 +Yami5TWO6BO/W0TH9oP1Ze+lnORxVLzPb1VGpzGwsorK1FvGUdaM+/Oimyaw +/I1nd8XCOFrYK/m/5vDDcKOjaKxGYwL1s3FODzuZQe7Zu5+FPSaQl6x3wgXF +I5AWMJt0LGsClbi1PLsVbQGWTp4hDOYEOv9Tal7NzRKEQx+J1StNotlDB6z/ +O20FUll7SvjOTCI9+8S9TMujYPPrs0dkxSR6I5Xu3qx5DKZF2d02Lk0i6ZzI +urzNx0GnhrU6zvgHqh7aYmouaA1brV/VOSb+QOt7plwCJqyhlu0d7U/vD6R5 +K7Ho4ZANjE4WFs6JTaF0rp/bbjTZQkkYshbTn0JVe7f3Rj+1g/s3eRhpxBRK +2XlZ+HfBCQgykat1jZ9CnZ+yYzSv2oPJ8cvnLCqmUKVZmtLZiJPAMd/0dW3/ +FJr2PMrmxTgFCeuiTiRxTKPZA6quk4YOMGATMV6sMo3yJj4u+OmchjbUdGTU +dBrZ3s92PiXgCDKXW1cFek+jx48On+aMdYTiQebWuKRppCfzZjFu0RGmy5QE +yh9PI8Uhl97Xbk4QRzay7r6eRl9WexxJG3GCMzLhagJT06gr3tzZ+Dgdjqi8 +jSL4KXQzMGP1uS462Ar9K3ZRiUJ1DX8XnU2cQaqnrCB0N4XWnoRYzRpnqBCJ +s3Mzp9DGdf91ytY5w6h45adKbI12M0meBvz8gTp1jiMUstK3z//w3Bk0OnX2 +3sW+KRvQFvrKGa6e+KDUYkEh6f7CtS0fnOE5Uf9O+iiFlBwkUk7OO0ORaVF2 +qg2F9Bwn86K1GKA+priKz5FCOXem/Mx1GDBXYbBghL2umzKQ0GVAqUtEfQT2 +5P75nrzdDPhZ7NA8j52lxsbevo8BC2/fNI44UWjNvLCdiCUDJH/xhj52ptCX +a9p8GZ4M6BkWrd3hQiHL/3b2uHgzQHFbn5IrdgPbrgwNHwas0uem38O+42eg +3ejPgAJeujW/K4XM7YydmMEMqLR/oDKE/VTJ7qnaZQYsv9rqGOlOofjaELfq +HAa8MuhZm+dJIU9asl5gHgNyOC8y32Ob5pfz6RYwwD8t8/oqLwrxJ4/mPylm +QP0BWScSO9rXYqyqggFvHS4uyHtTKERVyaOykQEG0v/OJJylkHty25lHAwyw +8bjObu5HIZM1o/q+Q7if6kX7QOzN0WyCtM8MKNHac/kB9qivdnE5kwGXJ/fQ +57CdzDMmysYZwP294G+qP4Vsuf28SpcY8PU/YnzgHIWM/aTPFokTwJ/2xdsw +kEKNGTGHbkgS0Krlae+Brd9OKQVKE9AbclokCVtDue2j4XoC3lt5fh7Glnof +bPhJmYA8rmz+0CAKsXb1i/NrE5DOZ/lP/nkKXefIrHc5SkDVa6v7vSG4/+0C +KWbHCRiTnJv6hR1lH+iraUOAhqzParlQCgVWWGz6e4IApfb+TAdsJ5I98Tad +gHv+G8wGsTVb6YwXPgQw417mvguj0PtE5dWKCQSkVIocTo+gUAkSdP2WSMBx +va5NVdhREzPNxUkEqMb3ve3Appk0h+kmEzAw+i77L3Y8mzNldo8ADhFesdMX +KHTAO/NjYBEBHe+kt4ldpJCc3CUdgxICBL5eXa+GPdPqncRZRkAjh/IQYD9Q +QWbxj3FeX/07D+zl/v5nD2sImHtqkfgvdoWpTF5HCwEXnrPtcoik0JUlDu6b +rXh9pJ/v9sGm54052bUTsK4zck0UthBXjcyXTgJeCvFuysc+U2t7ffEdAUFR +3YrT2IpbbgcoMQm44tJ0KDCKQkvvQ7u/jxJw0q7e/hJ2VzShUfqNgCLR1D0p +2GHDWmN64wTUTi35PcHuTek+deQnAYZvZQt/Yt9YJbz/PDsJgz5he52j8XlA +9dv7c5KgveHciA/21/4CXy9uEtrtkg9FYOtXGGXS+Uiwz7B2TcMedQz8dUiY +hFsmV4ZfYwuZ7hfZL0qCG09+0QD27p0iqkiMBDvfEX0WdoJgkbWmFAlrLuQW +ccbges1guYw8CVIOBq92YJPZRS1iiiT8QqL1+tgJCUGDa5VJGJ+ZP2eMPUqK +CnKpktDMwdI5uVIXNXYd1yAhJM1i9iJ2zR/R8FEaCc/aQ4SvYjO/D90a0iJh +fq6Yuom969n5ph5dEqoJaa4c7C9nStbXAwnHcn/RX2CvsQ3WfrKPhAS37bnt +2HqGB03LjXDd4nRZN3a81Oeg7IMk/HxaKjyMXc1VmpBxiIR9rh1uX7FHfgTn +3jElgUpkxkxg674Ue3vNggTVVUtrF7Hp5Z9ZsVYklDXMBv/BvpZWynHxGAmp +r0aLOGMp9NnXRCPAloRg/pxTgrEr/xnixmdPkMA54dsvjK1rMnLK/SQJm0Jo +CuLY1zaEXnFwJMHQKnZJDrua/9ADWzoJfjEy8fIrebPiT60YJBTtzRxVWskb +Huk0JUloWCPGtXklr71s9IArCTERQaNbsOlPQpfBHY9H+9819ZX8B4fW7T5D +wq6Xa5e2r+Rfk1DT9iLB8huo0VbyA7/s3X6WhIjDjvJa2AKMcltVXxIECz37 +tLF3HgnzVvQn4WSr68mdK/m7DsfIBZAw7G95Xxf7qrJkukQgCYphmwr1sKuE +mI+Fz5PQ+nwsaBf28K/y1tUhJFxUTBXcvZL/NWyYO4yEDdd1yRXrvDm88Dec +hKCFxsgV/x91pSw7 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.8599356449941467, + 1.1580157420098927`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.8599356449941485}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5390,21 +10302,21 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.8599356449941467, + 1.1580157420098927`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.8599356449941485}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5418,104 +10330,105 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8Ffv/B3BryVIkJPvalUj2LZ93iJT9UvZ0nDNKlsLXJeK2SDcppKhf -pYWSfSmyXkVSTpFQKuscS/btMFTX7+OPeczj+ZiZ1+c1n5nPPEaBFuLM4OLg -4BjF29r+1AfN7RVtH8x+GTnQNixTyGwqS49mmY8ii66O8GH3Z+qnKVvWIP9E -17/WYzvS368T1HmNlNSyRHixSyLjGngtmUhRIbqcE/ufpq31cbkfUd3+b4zf -FIUq207d+6XdiaD0tRyFPfb1XUxU9Rc0l2/CmsXeNqTkuWjxHXG9Nisbwz44 -HWMUxuxDdxvargxi1/0aE4jMHUCdhfMnu7G7zkpElweTqObt0yOt2FPrLMcW -tIeQVRrbrRF73ZWT7jpLw8ippdvrBbasyN3mU9Wj6MUx9xN52PZSi4+nLCaQ -1ZRBzlVs4r6iuAbfFLq7crcrFjtOxSH+BHMaZTwv2BSM/UWiY3d47ixKkPn2 -wAab7hFw/PqVOVTayflTD3vmDseD0uB5NOjM8lHA5lPUEJ7VZiMJx1kr9hKF -0ugN1sJii0j4lWpLD7b8E/e4XUuLaOC7hsdrbMOdF6eCqinUmfQ2IwX7mH4f -c8ziF3LKn86QxV6I/B8Pv+pvJJB4PHx1kUJ/VwuYqvH9h4LRhEcfdgYY5vkz -VxETdtrcwaZnN1uG5nJCy7ULefzYuU3X+89KccEpr939JBv3HfGJSbnCBVsO -acjXYMfsYJcVB3PDk9PGr45jpxUpKE1r8wIZwLxWuUChr20Tdf894oW33aLy -idjycxUeG8XWwZPJ1WpP7Hxd+1SNpXXgZ8IWX5mnUGPlac7Aaj6Iksv3UMdm -N3zqG7UQBGPeD8q+sxTabCsoHF0nCC6XOYxlsLU6LEHISAhcODl3d89QKID1 -/P5uzY2wdU91ox32SS6m1h5BYdhv+We82jSFhhQLZ+MXRUD93ubYvAk8P8S7 -Da06m2FkSbbqEDZX3rDC1lObwTPMq5sDW15Hzjl3fDMYt3946TROIQ+L5NIP -/aJwTvrInuEfFGr1Cw2TaBGDIoecxe5hCvU+uZroyycO/QXbQ8OwJ8ZzHz3d -Jw6EaFK7ADZ/OPnJpF4ceNA5c6MhCllecNH1fS4B66tPDV4kKVSVpc/OyZQE -/SAbs8k+CmUNrUQYh8uAeqiz68hnCu13TegNK5CBuO/3OwnsiUZRq4JhGdiS -PkQb6qKQbtZOMXl3WaDxdGT1deL5pPmU8ZrJweeuvrfNnyg0N93/1+h5eSh9 -alse1Eoh0SDLZ2V2ijB5U0+Eu4lCw1n8xxwDFEHl7K0w+msKvfjeJjV5URHO -z4WONDZSyMvW+7xqvSK0uqjwnG/A/dQjnG9pK8G/bRNiC/V4/LEnM7ESypDs -wqp7it9LF38BjQMDKhByrMGRXkwhFOGqffi3CnhIfR7KK6LQjvhMA7qkKng4 -td6eK6QQxyMd81gnVVgdlGacKaBQQa/n4dKXqmCdw/P3pVy8Pg/ln932cDt4 -/J//YngW7mdp1zVGU4P6v07syEmnkJTitbhE1k5wcT5z6lw0hWouL6gtc2mA -c2DIzrjTuP+8ewehoAGGlP3U6SgK3WtUVjP30YD89NmEkL8opOhf1U591gBO -o+RtdmG4X/6QCtGiCS7dtr+6AygkIyVLyLtrwYKfa7mpO4V2ZocL/kTawGtp -0KuvQyEa/Txbw14bgiKcVwS18fpSSu319dIGzWYv+0EtCnE/LCpuitSGuADH -zMuaeH3cG3NJLdGGt5P6Ex/V8Pcvw/eumpIOnH98LdhEHj+PRFtNt3W6sDjH -xRkjSKEHocqOz5l6ADKNKg2DS6gtAhlcyDaCV07q8g2xS0jBp9PeO3APhCid -s5USWUKM1fJCmSiAwE5v9tKDRSQx/mK9BM0cUgsrVbwVFlG4jun31B2WsLtF -8IfKIzaiTf5qFh3bBz4cTSWLimxUYB62PrPVGuprn0g6pC2grIWAl/lpNiDf -oTsoLrSAqL1b3zfGHYRgU/+8s1HzqIeDe3bgqB2Y50/sbh6dQ8HSIclnlRwg -QbLrCIs2hwqPN9ffiHeEtsFdKf9+mkWn5yWX1I87wWK/lR3TcRaxD1gdenPE -GcZTYpSjmmaQkWfK3iGnP6GHVtbWZT6D2iXvBjTquIDYyzuVrhnTaNvj8zU5 -f7hC4qvsmtL7U+hF/w5be6FDoMyUnBZumESyHTP+EZOHgDdUQUJsfgLp3EjJ -f9R/GBJT5eQkpCfQXZ55zdQGNzDUN/BO8R5H5Xt3fY2vdIel9rOSSrfHUIbB -ZZFfuR6gvVegI2joB2r9ln1R54onjDkLxtZb/UDP7e4on/zbC8yq2wdts0fR -bNCfHMF0b6gbCDMnto4itpXasSkLH+DxbOg7kD6Ccia7qTD9I1BRwqgRExtB -bg+y/bwFfeEQcwt3XtYwKis9eIQ7wRdCmpgoTHcYGUm1L/+z7AszNhoxZzuG -kFK//9ePx4/C6z/oGQmxQ4glcMLhDnkUjhsOVErtGEJtV+39rF1p8G3GaPIE -yUJpkZkC/2ujwbmaSMPwTBaqqVtd9rPxgxjlxL+tGCy0yQsSdKr8gK3YpRer -z0LyW960Stf4gYtB1MYGPRbSYtptXVfnB6pvKgL5sJ1NPZ9+eekHC6pkZZoO -zpeOaDnz1g80PyzeKNNioW09eZuav/hBhLqlHb86Cyn7SGR4LflBvhGKlpJn -ISPfqZx4XTpIVhP/vRNgoce3ZsLs9elglhuqZYK95dOcmYQhHabdFDvz+Flo -at9SR44JHVoOuURc3cDC3xsOTqY5HebjDku4r2ehjUsi7pud6OCz4doHbm4W -YiXpbcgMooNyhfto4QqJnN4YdPiH0GHf+v1+Gth1HMaZWqfoEDwn45i/TKJb -YWZ6r8LpcNw2IC6PIpG9u/XRoWg61LN/6BQtkqhS2b1S/TIdPHKrp1vmSHS1 -Oub4i8d0QO3OSR7jJArSTjeKzKGDTCh/7I8xEtk+LdlgmEsHvuz0b5HY/OnD -TysK6DDCluvJ+EGi+FDHsfJndBhLYyz3jJAoRk35xPNXdOh/WJsawyJRQHpL -YGkvHbj87NQEeklks3HYNLQf9xWeynvSQ6I/4jmEtAfpYKXXddsSezhUr6Bk -iA7PrANr476T6Kh95mTxBB3e65uK/fxKIjfesOCiFTpETvQKrPtCIuuwbSfz -xRnwH/PZcmA7iV5lXjyQupUB5uXZzzZhmzLnlCO3McDhSuRU6UcSaam0dFvI -MmD7nZLelTYSSX6OtvimwgD5mdni5FYSjRv3iPPrMWBHQ+PWDiaJrnHdr/X/ -E+d7vvxc+Qbf/y7BDDtXBlzzjiECsS94RobqHGbA9YWUMDnsyGeO21c9GCB4 -s5YvoQn3JzhTbtIYsMrKl/V6TSKddzT661MMuLVSwpZpINHnFBUBpWQGmPS8 -N+D4l0SFSOjYaAoDjPnbHzfV4fzJhcaC6wx4oxB9Pglb26Yx1jAd91MpjZfG -vsrhN2d3jwF7xEIKUC2JrELud0fmM0C6W/jS7WoSychc0jcrZMCXHos2f+yF -dyHXuYsZIGuxGK+H/VAV2V0tYwB/aJtRexWJfvf01D+qYkC2mWyDMPYzW6mc -D80MeMFp7/HwBYkSV7h4094xoLT4dFQENi1n7Kg7kwG3Z3jXHcQW5qmSYrUy -YOcNLX92BYkCq92uLXcxwDb9oY0DttKOmxHKQwwYMwtIkign0crnM59+DDMA -KT85O/ecRG3xDK2iUQa8T1Al32PHDuiOGU0woCpgeDIe+2vGJ2+HeQYsbkaK -P5+RKHW9yL7TnARckFjPu1KG/4PnejzDuQloaBV2/II90pMbGsxLgMF6ZaUK -bNNnlvdpGwgobDhyNAJ72Dfy5wERAj7X/tzzsxT3t923eZ8oAW0J8m97sE0M -NqshMQICtfZ+r8dOFso/pCNJgE93yO1La8er+kqkFAhwOugWIYtNZOc3iykR -EJW+ey/v2vnJUX2bVAiQXlm5PlGCxyNEhXjUCFjOdftYg50san1sQouAmDmp -PD/sqv9E44a1CVhgOz23xx760X+jX5eAOPlga2Ns4/rTDR2GBKjHuXCLYrMC -C2VrgYBekZrud8Uk2ugWrVdhToBZM69SFbaRxX7bEksCJK5pLDzFvio5GJW9 -n4CIVlHNROwXPEXJmQcIEL7TdjMGm5yOfnLLlgBLuWMJwdiGTWKdSY4ESO5V -5nDBppUMjic4E7AYZH3JGjvpThHXORcC2oPMM0ywB0NttCLcCLjuUuuggi3k -I2590oOATh7TpW1reTakd4AXAf3bklVF1q6XO5Po40tApFe59GoR7sN/4KEb -jYCbVxLIRexBtnilM52Af9R3ak9jCw2QrbYEAVIfHvGNYhsyi4etjhEQLjxF -DGDTKs78hgAC5G7y233DTnp4YItJIAGc/MtVnWv5SRLqesE4T7ayuG0tP5K1 -d9dJArySDmgysQXpJW5qoQRkSxToNGMbOMSGKIUTMB7fX9+4lm988KJMBAF8 -OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs -5Y/EDvDGEsAfJRlZja3ffpBajSPghOMu3TX/P3lgJlM= +1:eJwV13k0Vd0bB3BziDJkpjKWpHQNUbKfoqQQKkNKXPccU8iQl4xlSoNIRSEq +86yQTG+hXuGHoknGdFUu4mQu9dv+OOusz3rO+u797HP2XuvI072tCA42NrYJ +fK3cfTq2bXrS1WHQbrj8PDmKhQwms7TpRkVI1lB2cMVDGTo3lYzqUJDRPzop +2BaM//EIaL5A8gfWtKy4PDC8iduoHfHtH066gx33UvJZeMFrxLtn6s5d7Kdd +Pvd+096i25t396Zij/W2hgTVfkBa7I3H0rGlmYr2c4Z9iGqI4svAPvwjRM+v +fRC9to1cyMRu+D22OrBgGOU018s/xH53QSK4ymsE9c5pRmdjT/IYjc3QmGjx +M1MhD5vn6lk7zflRxBPcvVSAvV44vcWn9hv6VfpboATbXGYuZ9JwHB0sYR+q +wCYzFcTVeSdR9NH+zGrscOUj0R7tP5CH2UxqHfYHiZ4d/gXT6Ob3bniBzTjh +7pZ0lUKCDmljr7Cn0tjuP/L6ie60ZXR0YPMqqAtN02aRpKrN/o/YNxlNxkJi +c+j+MP+HAeyNuXbh2+fnkI3SYtYXbN2tMZOetQvoYnvUxBS2q85g+5jhb/Tm +zzE9gWgWmgk8x8Wvsozc3D6mi2JH1K7WV+X9gyoPJOvLYKeAbqFL+1/EqGrY +rIbNyG4x8i1gh/SKJ7Vm2AUvk4YuyHCAJw8nZY099dUhJPEqB8iQMXRH7JAt +s4/LvDihMVqL8sO+WSqv+IPGDRwXNrenY/d2jTf8ecgNhtHbevKwN1JPTqwR +4wEZprt4BXaRlvkN9Xke0G6JNmnDbn56nv1MLS8Qxnvcf2PPNnUPfjMUgNDE +wFtuMSwkYiogFNwgAMYbzcKDsDV6jEBQTxCSXGOL47Ddv1Rm7ti2BsIS1N4X +YJ/laNfYIyAEmS0qp6ewmQol09FzwqDzKHbvpVi8PmQrX6emCHT1RvmkYXMU +jspL+oiAYNYQswx7o+YGqwKWCDyQeJTai33CMOFRx5AoTMiW7N5xiYU6nX39 +JNrEYOhboikLeyA3/oojrzi8DtNr5IxjoXFWwcP8/eLgNaETIovN7z/SvfuZ +OHR/1ag3xzaKOqblWCkBc7Nr/aqwa7J0ZvMypEBXaKz4xmUWymIuBezylwO1 +qh32YVdZ6ODx2AG/YjnweMbYnI493ix6oHhUDnS2S+6ow9bK2iq20W49/Lm+ +PLOE3Ux3eMxtsAEeupceCL7GQtSPoX++RW6E1FRR4dh4FhL1NKp4bKYAJS+e +6rclsNBoFr+rhbsCnFi6FTiNXd3XJTMRowAyDb0/JBJZ6KTpqUiVZwrwO+Nu +AoGdpRZgdYemCOX6fXc5b+Dxx3KnwiSUIGc5+/WhJBY65rJa/dCwMvy9xdPI +fZuFUMBxms2yMijGekTSsLdEZ+xkSKkA366O0NPYbA8194VZqsCSfJxcDXbx +gL3No+cqcNu+htc3Ge9P66IL0g82wRq3HdfGU/D8jMzejdFVIdLZxVggjYUe +Hk3+NB+mCmab76oAdjx9eIgrVRXWqhcY+GMzIs6x1nerwv7EU1L92MJ16WxH +DbeAVjUVWJ6Ovx/NyS21imog/v3jICODhWQUrodf+bIVnAL8jOYesFDd5RnV +RQ51cCrYg3Qe4vX4addDyquDxmJzSAD2vWYl1X0O6jAawPVsHlvBpebNwnt1 +2PuPlMtyFu63iKlMtm2Di3WqOmK5LCQns57caKcBvwpn2gIKWWhrtr/AL0SD +7bX5Z9krWYjOiJxVN6dBX35Bvil2iuKNAceTNGjUIWVTsDkflJa9DKRBrjtP +6fYqvN/ujR27UU6DvKzaS05P8Hma4piuqqgJjz79I9D1FL/fK6bbbHm0oDq8 +/+CHBha676tkUdmuDU0NWeq3XrFQVwDaGZWtB45BG9aPj7CQvMNb81Nn9kAS +0ZnRzT6OiL9VJXJBAIJsR5km8uNIglW9SoK+D/rYlmf0jceRv6Z+340tRtA0 +Yami5TWO6BO/W0TH9oP1Ze+lnORxVLzPb1VGpzGwsorK1FvGUdaM+/Oimyaw +/I1nd8XCOFrYK/m/5vDDcKOjaKxGYwL1s3FODzuZQe7Zu5+FPSaQl6x3wgXF +I5AWMJt0LGsClbi1PLsVbQGWTp4hDOYEOv9Tal7NzRKEQx+J1StNotlDB6z/ +O20FUll7SvjOTCI9+8S9TMujYPPrs0dkxSR6I5Xu3qx5DKZF2d02Lk0i6ZzI +urzNx0GnhrU6zvgHqh7aYmouaA1brV/VOSb+QOt7plwCJqyhlu0d7U/vD6R5 +K7Ho4ZANjE4WFs6JTaF0rp/bbjTZQkkYshbTn0JVe7f3Rj+1g/s3eRhpxBRK +2XlZ+HfBCQgykat1jZ9CnZ+yYzSv2oPJ8cvnLCqmUKVZmtLZiJPAMd/0dW3/ +FJr2PMrmxTgFCeuiTiRxTKPZA6quk4YOMGATMV6sMo3yJj4u+OmchjbUdGTU +dBrZ3s92PiXgCDKXW1cFek+jx48On+aMdYTiQebWuKRppCfzZjFu0RGmy5QE +yh9PI8Uhl97Xbk4QRzay7r6eRl9WexxJG3GCMzLhagJT06gr3tzZ+Dgdjqi8 +jSL4KXQzMGP1uS462Ar9K3ZRiUJ1DX8XnU2cQaqnrCB0N4XWnoRYzRpnqBCJ +s3Mzp9DGdf91ytY5w6h45adKbI12M0meBvz8gTp1jiMUstK3z//w3Bk0OnX2 +3sW+KRvQFvrKGa6e+KDUYkEh6f7CtS0fnOE5Uf9O+iiFlBwkUk7OO0ORaVF2 +qg2F9Bwn86K1GKA+priKz5FCOXem/Mx1GDBXYbBghL2umzKQ0GVAqUtEfQT2 +5P75nrzdDPhZ7NA8j52lxsbevo8BC2/fNI44UWjNvLCdiCUDJH/xhj52ptCX +a9p8GZ4M6BkWrd3hQiHL/3b2uHgzQHFbn5IrdgPbrgwNHwas0uem38O+42eg +3ejPgAJeujW/K4XM7YydmMEMqLR/oDKE/VTJ7qnaZQYsv9rqGOlOofjaELfq +HAa8MuhZm+dJIU9asl5gHgNyOC8y32Ob5pfz6RYwwD8t8/oqLwrxJ4/mPylm +QP0BWScSO9rXYqyqggFvHS4uyHtTKERVyaOykQEG0v/OJJylkHty25lHAwyw +8bjObu5HIZM1o/q+Q7if6kX7QOzN0WyCtM8MKNHac/kB9qivdnE5kwGXJ/fQ +57CdzDMmysYZwP294G+qP4Vsuf28SpcY8PU/YnzgHIWM/aTPFokTwJ/2xdsw +kEKNGTGHbkgS0Krlae+Brd9OKQVKE9AbclokCVtDue2j4XoC3lt5fh7Glnof +bPhJmYA8rmz+0CAKsXb1i/NrE5DOZ/lP/nkKXefIrHc5SkDVa6v7vSG4/+0C +KWbHCRiTnJv6hR1lH+iraUOAhqzParlQCgVWWGz6e4IApfb+TAdsJ5I98Tad +gHv+G8wGsTVb6YwXPgQw417mvguj0PtE5dWKCQSkVIocTo+gUAkSdP2WSMBx +va5NVdhREzPNxUkEqMb3ve3Appk0h+kmEzAw+i77L3Y8mzNldo8ADhFesdMX +KHTAO/NjYBEBHe+kt4ldpJCc3CUdgxICBL5eXa+GPdPqncRZRkAjh/IQYD9Q +QWbxj3FeX/07D+zl/v5nD2sImHtqkfgvdoWpTF5HCwEXnrPtcoik0JUlDu6b +rXh9pJ/v9sGm54052bUTsK4zck0UthBXjcyXTgJeCvFuysc+U2t7ffEdAUFR +3YrT2IpbbgcoMQm44tJ0KDCKQkvvQ7u/jxJw0q7e/hJ2VzShUfqNgCLR1D0p +2GHDWmN64wTUTi35PcHuTek+deQnAYZvZQt/Yt9YJbz/PDsJgz5he52j8XlA +9dv7c5KgveHciA/21/4CXy9uEtrtkg9FYOtXGGXS+Uiwz7B2TcMedQz8dUiY +hFsmV4ZfYwuZ7hfZL0qCG09+0QD27p0iqkiMBDvfEX0WdoJgkbWmFAlrLuQW +ccbges1guYw8CVIOBq92YJPZRS1iiiT8QqL1+tgJCUGDa5VJGJ+ZP2eMPUqK +CnKpktDMwdI5uVIXNXYd1yAhJM1i9iJ2zR/R8FEaCc/aQ4SvYjO/D90a0iJh +fq6Yuom969n5ph5dEqoJaa4c7C9nStbXAwnHcn/RX2CvsQ3WfrKPhAS37bnt +2HqGB03LjXDd4nRZN3a81Oeg7IMk/HxaKjyMXc1VmpBxiIR9rh1uX7FHfgTn +3jElgUpkxkxg674Ue3vNggTVVUtrF7Hp5Z9ZsVYklDXMBv/BvpZWynHxGAmp +r0aLOGMp9NnXRCPAloRg/pxTgrEr/xnixmdPkMA54dsvjK1rMnLK/SQJm0Jo +CuLY1zaEXnFwJMHQKnZJDrua/9ADWzoJfjEy8fIrebPiT60YJBTtzRxVWskb +Huk0JUloWCPGtXklr71s9IArCTERQaNbsOlPQpfBHY9H+9819ZX8B4fW7T5D +wq6Xa5e2r+Rfk1DT9iLB8huo0VbyA7/s3X6WhIjDjvJa2AKMcltVXxIECz37 +tLF3HgnzVvQn4WSr68mdK/m7DsfIBZAw7G95Xxf7qrJkukQgCYphmwr1sKuE +mI+Fz5PQ+nwsaBf28K/y1tUhJFxUTBXcvZL/NWyYO4yEDdd1yRXrvDm88Dec +hKCFxsgV/x91pSw7 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.8599356449941467, 1.1580157420098927`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.8599356449941485}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5525,7 +10438,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6152015704378887}, + AxesOrigin->{0, 0.8599356449941485}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5553,7 +10467,8 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8599356449941467, 1.1580157420098927`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5561,11 +10476,13 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913355426284504`*^9}, + CellChangeTimes->{3.9913355426284504`*^9, 3.993918849756363*^9}, CellLabel-> - "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] + "Out[118]=",ExpressionUUID->"62af7f67-faa1-4c70-85d1-5326c1249863"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"x", "=", RowBox[{"Plot", "[", @@ -5625,14 +10542,1092 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918494141657047`*^9, {3.991849451432905*^9, - 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ -d4884962c12d"], + 3.9918494141657047`*^9, {3.991849451432905*^9, 3.991849451715925*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843029965973695`*^-271\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 158, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918850625718*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"d04ebc97-2f2d-44b3-941c-43615630b36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.122256566518016`*^-283\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 159, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918850995509*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"55b6a25e-0611-486f-8b40-0d9bb4448452"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.2893801224846755`*^-295\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 119, 160, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939188513707523`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"899310c3-22a3-4d3b-8f0c-8073c38ded6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 161, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939188517180777`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"667e6db4-f05c-40b5-87d0-93659c8d5999"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3DxjVJGyMo49xp9y86+3N7vKDtbWQlZSVpSKVkZRTIa0qBC +ibjnkLJKNFBGEapvhIaEqMhIfuf31308H497zvk83uf9fn0+h+G7x9Gfm4uL +i7GIi+v/v1O9TY8Vk/PWq9y3l1ONM1nfeVXyyIaeWOCefxhhPkcArmzzlezJ +gMU+iw4Rc5oQbn+7m6fnOjwIs/u7eA5hxZhExkw3BeWaw5//m7WHvhrbPb+6 +66E+89iE66w3mCkOv5/ofgVtHb5hbtN7YaZb/9x49wBcsSkZ8x+PhgbTm3kv +r/+EPy0fWPyx6SDTV/nZV3UeLhwP7bApuQhiIdtv85ny4OAl1tMXhbmQoWVW +beuyBGsry3nDkvPgTZZm3YSwAN6IKzfV6r0JyXlRbdxSKzDWp+W1j2QRSJwd +PJl5RRQLfplJFvXcAUmVuyemC0Qxz8PLWmbgDkjXJ0Rt44jipTvfHRK/3QG5 +8TUHVzeI4t6ch51Wf++Aks1e7+ohUSweMk9LVCgB7X/m9Qa1xfBSWFxfV0gJ +2IWJf1zXLIYzn5c5PpktgURny/Wvplbi4uTf/F2LOCBd3irNvUgcm32ieqV4 +OVAi6vxba5k47itrGXXj50DXKy9Ourw4qiUIP2gV4YCiQxjTwUIcq9oapJIV +OFC/OYe3/aI41m20D7TdyIF5s8nWFmMJlFry+sefWA6kFUQUzZtJoOPqulPP +EujrebmS1BwksGh7i1PqKQ7YPOHfcNpfApPOux8WzuBAtilRZpMqgcEyQ/98 +yeWAAVpfeN4ngTW8z+b/q+XAAcNr25tiJfH1rhjLb784YJUr+Ms6RRJPvlcO +5pnmAJPvWFLrOUnUWjSmIznHgfbOLWTHLUl0dyht1F9Egvre5Ty9rZLoUvbu +i60ACUMFhwp+SEvhtT7Lhf8USfAUsx1dVUYbH1457ECC9tHqmKs1UujVFvlX +yZkE/oF/xRlPpbA4qnNp+xYSKkt5QPmNFGbdziGkPUkQt65M01yQQksrtkNC +AAntMYo6m6ylcb96VNeDCBI2fp+NCB2UxrKVWQFkLglHLM6ufTQijeKsN3ND +10kouab2VnRKGuUt/H1k80mQdPY2rFyyCi+qrb16rJCEkftPfvOor0KpKI2P +YhQJmbFpYRcPr8LYzrCO4noSBlYqhz4WkMEUq6SZo/0kSOx5KCshIYMDAoHL +bQdJsGl0bdlJyOD3MPK3zCcSKiKSVYW0ZbBrpsmVHCLhVN/4sJurDCZvWWRb +/p2EdYXVgd+vy+BpcXU7hXkSYowdfKQNZFG29pnGrZUUWHhd/aFvIourPeu+ +60hQIBj9Lc7FRhaFojt4H0hScLkhviDNWxbbdfcbP1lFwX2rqm+8J2Xxo85E +500GBeOuCuE/38jiyZeNhg9UKbgXsZdvxUdZzA/MKRFWp+D45dos9TFZtDSq +jtuuQcHyD1urd3LLofodXYcfWhSsDkzh+rBWDi/NZ58a0aPA6+DkqRdH5ZBV +w8ergxQoXTCRGY6Xw50dvM9tNlB0/c7c4UuTw+SY7FkfEwoi/qxpN8mTw7Zz +rMsxGyk4F+e1svIFfb8f9/6cs6DAM7+ooKtLDgWcStZkWFLAfDat/+uDHKY9 +ev70lBUFHP5Md41JOZx67Oa8z4aCF+nPcvJl5TH0o/BLUXsKMsvEtBpWy6PJ +2YTMn7TdX/vUf9CSx1L3uedtDhQMSf75uMpMHs+kD1yLdKKAJ1dzbUaoPIr/ +/DRVsoUCVsnF8uMP5fFm6b8/gzwp2NjdOj/WKI9GZeGui7dRYMv1j/n2V/L4 +vvZZ2VXaOxxD38AneRyUlbJr9KLA7CgjKnoxgc5DGiq/vSl4LlRzw4CfwO4U +c6ejPhTY521pHBck8FFNffgf2h4tySt8JAnkvnidmvSlYK/81I0NKgS2twWv +eOxHwWRZWuOMBoFFC3OrNf3p+lmojJI6BO5XjoWLtOP3eesx1xN41mtjmG8A +Bfy8c+5vTQi81T6aUU87LftcVIY5gZqzAXflAynIbmhu5HYgcKNP0ZKXtOVd +/UerXAgsGfvKUgqiIG9kYcUBdwJtXvUeCKddulLXY3AHgY2Ob/8I7aRA53Zb +1KUgApXl3W1daVetD85z2k3gg5zYwiu0HwfmjDaEEygg1xglH0yB5R9DkWNH +CbRd5ffHg3ZrWqeeTjSB75oL4s/Rdlba4zFygsC0Iw4yL2i/qVwanXeSwA4V +5UcLtL1s8/I8UwmUuvIlTHMXBR8H1jeJZRIYCG4GXrTHloWJxF8mUHC31wSH +9oFcQX32NQKfBB0bek17WqfQYzKfQMeD23/8pn28yTT6zm0ChVNbhSRC6Pfv +1ZvnX0rgX5/0Ddq0k34cbpItJ1DBaW+SDW3BRNGx1/dph+t88qWduapEJLWW +wIr0m67htCU5Fvpm9QQScmcHE2hf2Tjo8fcpgbUbnyScpc18Exld8ZzAqD5e +0xzat3ZL5oe2E+h/WEnqJm017rIm5dcEzlmMLS2mTZ3fPNb7hsCPhhriJbQN +VIZELvQSaDFQsf4O7dqHsfp2gwT6JDqfKKRt4izryTdE4Oiqni/XaT8buhf9 +cITAchAJvkjbJtIx/9AE3V/Quew07VcrRps0pghcLTLeEkl7a0Hi2JdZAn96 +GpC7aP/HYormLhCoFRpdsYW2b1uNvus/DFwDl3vX0/6yY6un8FIGSh3wXqtI +O2R6IrpRgIGcLdezeWmz9gWIfxZhYBHbcMsgXe8lw2+LeCQZWLfU434N7S5f +uw0MWQY+4ZGuz6Cd/66haz2Tgac9Tob50w5zNgjxXM1AYnVtuw5tk5biRRGq +DPzu09zNRbv3wTnVu3oMvHeyaTiV7o9iff76V0YMfNb/ddqedgTn+NZxZGBL +JFYI0Ra/HhirYs3AXYK/TeLo/vwo/Z+EpT0D0yJSxAxoU5n2dwJcGKgs2XDx +K93vdvGGPde2088LTmowoS33987uh34MFEt2Ch6m52UknMnzficD+UiDplTa +SUHL1CXDGDjh0lHWQs9bnfX7uNQkBmpfXOqpSM9n6mMHqeLTDEw97DVI0vPs +yX5a0pTBwA8TX1SMac+ol7755woDg77pLjbfQcE6kRiNoyQDi58azOjS+cCV +PPk4q4Jez86btwvpPGnlCXavqGag5ZFsZWnauyYd4yeeMDDB6EnsBJ0/eT2K +7wLfMrCkbtvoETq/9jtc3Bvfx8C4ZGmxTg8KsFmA98ZHBvax+gRVaL+vntLs +HaPrtWAf3+ZG1yunMcGZh4laORUXftB5+FGCLbN/CRP7k09Ha9Om0kjyjAAT +BfsZ5vtc6HrFZv/XLMHEuiUh+wfpPE3yD1m3QZWJNuor/K7T+TujItyr5sJE +Zt6O5mQ6z6euSMdouzORr+t4eg6d97+ElBQNt9P3358fwDGn5/mnYfDGnUzc +k/gZmjZRMFC9Y8o9konedyXau+n9pNn6nmBSPhN7vtoc3mlI93vtI/L0bSby +hvNQtgZ0/mi8cM4sZaLSVxcBLX0KHoj2Z1+tpP+/t1FtVIde/zv+1XdbmDi7 +4Z2BqSadh7u8YGCSSZ9X/NIDlSm48D5o4MssEzc/9Toqr0TBWbsD8aML9HrD +GZc6Fej3qZ30fHqpAt6ql4vRo/fT2Dlyq5CcAja/+cH/ht5vdyUv3mtspoAm +ytn62cIUGBcV554/r4BC9f6y4tMkvCOKcjZdUkDx+4/sMqdIiDhfePVXjgJe +EfIwFJwk4V5MwWXHQgVcefS63vwEfR5wzc0SrFHA5Bn56YffSFiz+GxaQr8C +2k2/SnnTS59/th+NDldVROMUhwd+DSTc7TwSpaSliEZLk+eyH5HgbHX4eKeu +IoZVJYq2PSQhQ/fgsXWgiD2i9j2aNSQILN9zeMxBEaNGXna+LSfhn0rfvQGH +FDHSXDWriT4PTYhYeW+pV8Suz5espBNI6Alhtgc/U8TxLDKvP46EuqezEPVC +ETctG71REENCWkSR/K0uRaTUGi6siSRBc2B538ywIraKRh0XDSMhlGzbdkVU +CSUKas8d9iFh2M7F46OfEmpfbfTPYJHwMcV7y34+ZTxtrqng9pkDocOqTM3l +yqjnebzt8SAHfpvPjI4KK+MqveZ69X4O8PNkxO+UVsbGg65x8+84oHmkodxb +TRlXBuCZhJcciPRXFrVzUkbtWr5h8xoOiK8faVPJUUbRDaK709I4YPn9kOUn +vdWYdc2h67gOB0Z2LDlQHvUv/myKFXhSXkJ/r0hwJ9avQVbVp7OzH4pBpEU5 +lfN9LW7TVJ04IVoEMkml9np6quiiWJG2Q7AQslQMhUUD1fCY4OzsXcWb0Cy9 +QfdnujoWDhwYebwpH1gy9WkaXRq4CWcqu81ugCDP9TCfWE38de6C4KrD10Au +Rt7YTVkLLSU9vner58BSJc8Kx2daKC3udmmavATqbKnSQ9vWYZ+v9aa4vCzY +3yvSYMWljRN+1+z908/B958pLpZZ2thutYz70mgGmGs8zbZU08H+qvZx7TNp +8OCn0dzvVh2sTr0RqXgoBUJV17196a+LurNmpV/Sk4A95tfptlQPQ3eX8dm0 +n4BNipKbBa7rodqZhbOx92Pg3+hTh+v19XHk9qyul/RxWOtv+FDprT7ebT7Q +skT4CPg/CDpRvs8Ae4SYrbu5DsLD3E6/iZWGOBTSvjzFaB/8urXwW+OeIe4J +Dxb30AmBHUpFS7M3szDRoUYqxTQQIp54BSvbs3Cz2bLjfRqBkOYv8pxyZKG5 +o7vWBplAqMk/kvJ8KwvrZk74aUwGgJiyhdC8Dwvbd+2SrrgZAE+VP4l5h7OQ +Oybxnr9QAKz9V55QzmHhe029Vyu/+sHE2kw9apyF0UE99dyPfaHnBW4S/cnC +GIJnvq7cF+pCx5zCJll4+eri+ZP5vpBKWe7Tm2XhrQRTPeNEX1jL4iqu4jFC +rZsTg4S1L/ha7mY0iBvhGW+XT586faAz0Hx5p7ERZs7539MZ94b7eXP9k0lG +GLdFZa/xSS/QMw37bZVshCfAqnv9Xi+42z+yPPe0EfJpnl7ttNULKLlefasM +I+TXueNGKnlBcVbd6auXjPCt2qEPJg3bIDcl3tC8xAhnppwCyEXb4GSYUHpW +hxE+mlh0PizZA9w3KqCRnDHOuDLrfdtdYb5ziWADYYzaIsuOPK90hVz/sXdW +CsZYfC/IxeyGK3xOqDzk/q8xXjYwtt0f7gr7m+xKj6wzxsb+09+vybrCKdtj +cvfNjNFJMCTSZc9WqHJ9/UdnjzH2i/jbVstvgVW7EyvV64zxHt9dPS7KCVIX +AnST643RgX/k4MtcJ+DOMCO/PDZGscBXfJwzTjBcsbgwt8kYP5mMcZ3b7QRV +XCeyRDqMUWnzii3za5zA/Wz0oalPxvi2fREf5jtCVvUR3QfL2ChupKDtmO8A +K/lDyM1b2fgq/ZhCZaYd5JlGRoy7sVF3cfUNVpgdrItMNc30ZON2symjHmc7 +sB3nvO7xYaNDKO/2QHE7SOianNkRwkZD8TKZjmxbmL4eZRIRw0Zv7jN8rbc2 +w1ujzI6CIjZe61LIq+uxhqCDeZctS9ioX+9LXq6xhqmSu/4jHDYKWHw2yci1 +BhFmz2+tCjZGfNt5oynIGqyXyMrU1rGxq6lBK3DWCmo6C/w6XrPxaHCGvw3T +CqwE76uF97DxpZ3kiXt8VtBj3jQl+Y6NKoPTY6xRS/hV9S3J6wMb20uDt526 +bwlq1zTvfB1m46Pzi05a2ltCzdsN4SmjbPR6NjcZpmcJVmJOoDHOxg+edRL3 +ZSwhIPHgy7BJNgp9rlGP/2oBv+oSsiWm2Xil9dJfwXYLiJ29sKNqlo1ufzMM +OBUWIKxTqLptno2mNSLNQVcs4OruqsmFBTaGtJzPNThhAf8DAJYqGQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3DxjVJGyMo49xp9y86+3N7vKDtbWQlZSVpSKVkZRTIa0qBC +ibjnkLJKNFBGEapvhIaEqMhIfuf31308H497zvk83uf9fn0+h+G7x9Gfm4uL +i7GIi+v/v1O9TY8Vk/PWq9y3l1ONM1nfeVXyyIaeWOCefxhhPkcArmzzlezJ +gMU+iw4Rc5oQbn+7m6fnOjwIs/u7eA5hxZhExkw3BeWaw5//m7WHvhrbPb+6 +66E+89iE66w3mCkOv5/ofgVtHb5hbtN7YaZb/9x49wBcsSkZ8x+PhgbTm3kv +r/+EPy0fWPyx6SDTV/nZV3UeLhwP7bApuQhiIdtv85ny4OAl1tMXhbmQoWVW +beuyBGsry3nDkvPgTZZm3YSwAN6IKzfV6r0JyXlRbdxSKzDWp+W1j2QRSJwd +PJl5RRQLfplJFvXcAUmVuyemC0Qxz8PLWmbgDkjXJ0Rt44jipTvfHRK/3QG5 +8TUHVzeI4t6ch51Wf++Aks1e7+ohUSweMk9LVCgB7X/m9Qa1xfBSWFxfV0gJ +2IWJf1zXLIYzn5c5PpktgURny/Wvplbi4uTf/F2LOCBd3irNvUgcm32ieqV4 +OVAi6vxba5k47itrGXXj50DXKy9Ourw4qiUIP2gV4YCiQxjTwUIcq9oapJIV +OFC/OYe3/aI41m20D7TdyIF5s8nWFmMJlFry+sefWA6kFUQUzZtJoOPqulPP +EujrebmS1BwksGh7i1PqKQ7YPOHfcNpfApPOux8WzuBAtilRZpMqgcEyQ/98 +yeWAAVpfeN4ngTW8z+b/q+XAAcNr25tiJfH1rhjLb784YJUr+Ms6RRJPvlcO +5pnmAJPvWFLrOUnUWjSmIznHgfbOLWTHLUl0dyht1F9Egvre5Ty9rZLoUvbu +i60ACUMFhwp+SEvhtT7Lhf8USfAUsx1dVUYbH1457ECC9tHqmKs1UujVFvlX +yZkE/oF/xRlPpbA4qnNp+xYSKkt5QPmNFGbdziGkPUkQt65M01yQQksrtkNC +AAntMYo6m6ylcb96VNeDCBI2fp+NCB2UxrKVWQFkLglHLM6ufTQijeKsN3ND +10kouab2VnRKGuUt/H1k80mQdPY2rFyyCi+qrb16rJCEkftPfvOor0KpKI2P +YhQJmbFpYRcPr8LYzrCO4noSBlYqhz4WkMEUq6SZo/0kSOx5KCshIYMDAoHL +bQdJsGl0bdlJyOD3MPK3zCcSKiKSVYW0ZbBrpsmVHCLhVN/4sJurDCZvWWRb +/p2EdYXVgd+vy+BpcXU7hXkSYowdfKQNZFG29pnGrZUUWHhd/aFvIourPeu+ +60hQIBj9Lc7FRhaFojt4H0hScLkhviDNWxbbdfcbP1lFwX2rqm+8J2Xxo85E +500GBeOuCuE/38jiyZeNhg9UKbgXsZdvxUdZzA/MKRFWp+D45dos9TFZtDSq +jtuuQcHyD1urd3LLofodXYcfWhSsDkzh+rBWDi/NZ58a0aPA6+DkqRdH5ZBV +w8ergxQoXTCRGY6Xw50dvM9tNlB0/c7c4UuTw+SY7FkfEwoi/qxpN8mTw7Zz +rMsxGyk4F+e1svIFfb8f9/6cs6DAM7+ooKtLDgWcStZkWFLAfDat/+uDHKY9 +ev70lBUFHP5Md41JOZx67Oa8z4aCF+nPcvJl5TH0o/BLUXsKMsvEtBpWy6PJ +2YTMn7TdX/vUf9CSx1L3uedtDhQMSf75uMpMHs+kD1yLdKKAJ1dzbUaoPIr/ +/DRVsoUCVsnF8uMP5fFm6b8/gzwp2NjdOj/WKI9GZeGui7dRYMv1j/n2V/L4 +vvZZ2VXaOxxD38AneRyUlbJr9KLA7CgjKnoxgc5DGiq/vSl4LlRzw4CfwO4U +c6ejPhTY521pHBck8FFNffgf2h4tySt8JAnkvnidmvSlYK/81I0NKgS2twWv +eOxHwWRZWuOMBoFFC3OrNf3p+lmojJI6BO5XjoWLtOP3eesx1xN41mtjmG8A +Bfy8c+5vTQi81T6aUU87LftcVIY5gZqzAXflAynIbmhu5HYgcKNP0ZKXtOVd +/UerXAgsGfvKUgqiIG9kYcUBdwJtXvUeCKddulLXY3AHgY2Ob/8I7aRA53Zb +1KUgApXl3W1daVetD85z2k3gg5zYwiu0HwfmjDaEEygg1xglH0yB5R9DkWNH +CbRd5ffHg3ZrWqeeTjSB75oL4s/Rdlba4zFygsC0Iw4yL2i/qVwanXeSwA4V +5UcLtL1s8/I8UwmUuvIlTHMXBR8H1jeJZRIYCG4GXrTHloWJxF8mUHC31wSH +9oFcQX32NQKfBB0bek17WqfQYzKfQMeD23/8pn28yTT6zm0ChVNbhSRC6Pfv +1ZvnX0rgX5/0Ddq0k34cbpItJ1DBaW+SDW3BRNGx1/dph+t88qWduapEJLWW +wIr0m67htCU5Fvpm9QQScmcHE2hf2Tjo8fcpgbUbnyScpc18Exld8ZzAqD5e +0xzat3ZL5oe2E+h/WEnqJm017rIm5dcEzlmMLS2mTZ3fPNb7hsCPhhriJbQN +VIZELvQSaDFQsf4O7dqHsfp2gwT6JDqfKKRt4izryTdE4Oiqni/XaT8buhf9 +cITAchAJvkjbJtIx/9AE3V/Quew07VcrRps0pghcLTLeEkl7a0Hi2JdZAn96 +GpC7aP/HYormLhCoFRpdsYW2b1uNvus/DFwDl3vX0/6yY6un8FIGSh3wXqtI +O2R6IrpRgIGcLdezeWmz9gWIfxZhYBHbcMsgXe8lw2+LeCQZWLfU434N7S5f +uw0MWQY+4ZGuz6Cd/66haz2Tgac9Tob50w5zNgjxXM1AYnVtuw5tk5biRRGq +DPzu09zNRbv3wTnVu3oMvHeyaTiV7o9iff76V0YMfNb/ddqedgTn+NZxZGBL +JFYI0Ra/HhirYs3AXYK/TeLo/vwo/Z+EpT0D0yJSxAxoU5n2dwJcGKgs2XDx +K93vdvGGPde2088LTmowoS33987uh34MFEt2Ch6m52UknMnzficD+UiDplTa +SUHL1CXDGDjh0lHWQs9bnfX7uNQkBmpfXOqpSM9n6mMHqeLTDEw97DVI0vPs +yX5a0pTBwA8TX1SMac+ol7755woDg77pLjbfQcE6kRiNoyQDi58azOjS+cCV +PPk4q4Jez86btwvpPGnlCXavqGag5ZFsZWnauyYd4yeeMDDB6EnsBJ0/eT2K +7wLfMrCkbtvoETq/9jtc3Bvfx8C4ZGmxTg8KsFmA98ZHBvax+gRVaL+vntLs +HaPrtWAf3+ZG1yunMcGZh4laORUXftB5+FGCLbN/CRP7k09Ha9Om0kjyjAAT +BfsZ5vtc6HrFZv/XLMHEuiUh+wfpPE3yD1m3QZWJNuor/K7T+TujItyr5sJE +Zt6O5mQ6z6euSMdouzORr+t4eg6d97+ElBQNt9P3358fwDGn5/mnYfDGnUzc +k/gZmjZRMFC9Y8o9konedyXau+n9pNn6nmBSPhN7vtoc3mlI93vtI/L0bSby +hvNQtgZ0/mi8cM4sZaLSVxcBLX0KHoj2Z1+tpP+/t1FtVIde/zv+1XdbmDi7 +4Z2BqSadh7u8YGCSSZ9X/NIDlSm48D5o4MssEzc/9Toqr0TBWbsD8aML9HrD +GZc6Fej3qZ30fHqpAt6ql4vRo/fT2Dlyq5CcAja/+cH/ht5vdyUv3mtspoAm +ytn62cIUGBcV554/r4BC9f6y4tMkvCOKcjZdUkDx+4/sMqdIiDhfePVXjgJe +EfIwFJwk4V5MwWXHQgVcefS63vwEfR5wzc0SrFHA5Bn56YffSFiz+GxaQr8C +2k2/SnnTS59/th+NDldVROMUhwd+DSTc7TwSpaSliEZLk+eyH5HgbHX4eKeu +IoZVJYq2PSQhQ/fgsXWgiD2i9j2aNSQILN9zeMxBEaNGXna+LSfhn0rfvQGH +FDHSXDWriT4PTYhYeW+pV8Suz5espBNI6Alhtgc/U8TxLDKvP46EuqezEPVC +ETctG71REENCWkSR/K0uRaTUGi6siSRBc2B538ywIraKRh0XDSMhlGzbdkVU +CSUKas8d9iFh2M7F46OfEmpfbfTPYJHwMcV7y34+ZTxtrqng9pkDocOqTM3l +yqjnebzt8SAHfpvPjI4KK+MqveZ69X4O8PNkxO+UVsbGg65x8+84oHmkodxb +TRlXBuCZhJcciPRXFrVzUkbtWr5h8xoOiK8faVPJUUbRDaK709I4YPn9kOUn +vdWYdc2h67gOB0Z2LDlQHvUv/myKFXhSXkJ/r0hwJ9avQVbVp7OzH4pBpEU5 +lfN9LW7TVJ04IVoEMkml9np6quiiWJG2Q7AQslQMhUUD1fCY4OzsXcWb0Cy9 +QfdnujoWDhwYebwpH1gy9WkaXRq4CWcqu81ugCDP9TCfWE38de6C4KrD10Au +Rt7YTVkLLSU9vner58BSJc8Kx2daKC3udmmavATqbKnSQ9vWYZ+v9aa4vCzY +3yvSYMWljRN+1+z908/B958pLpZZ2thutYz70mgGmGs8zbZU08H+qvZx7TNp +8OCn0dzvVh2sTr0RqXgoBUJV17196a+LurNmpV/Sk4A95tfptlQPQ3eX8dm0 +n4BNipKbBa7rodqZhbOx92Pg3+hTh+v19XHk9qyul/RxWOtv+FDprT7ebT7Q +skT4CPg/CDpRvs8Ae4SYrbu5DsLD3E6/iZWGOBTSvjzFaB/8urXwW+OeIe4J +Dxb30AmBHUpFS7M3szDRoUYqxTQQIp54BSvbs3Cz2bLjfRqBkOYv8pxyZKG5 +o7vWBplAqMk/kvJ8KwvrZk74aUwGgJiyhdC8Dwvbd+2SrrgZAE+VP4l5h7OQ +Oybxnr9QAKz9V55QzmHhe029Vyu/+sHE2kw9apyF0UE99dyPfaHnBW4S/cnC +GIJnvq7cF+pCx5zCJll4+eri+ZP5vpBKWe7Tm2XhrQRTPeNEX1jL4iqu4jFC +rZsTg4S1L/ha7mY0iBvhGW+XT586faAz0Hx5p7ERZs7539MZ94b7eXP9k0lG +GLdFZa/xSS/QMw37bZVshCfAqnv9Xi+42z+yPPe0EfJpnl7ttNULKLlefasM +I+TXueNGKnlBcVbd6auXjPCt2qEPJg3bIDcl3tC8xAhnppwCyEXb4GSYUHpW +hxE+mlh0PizZA9w3KqCRnDHOuDLrfdtdYb5ziWADYYzaIsuOPK90hVz/sXdW +CsZYfC/IxeyGK3xOqDzk/q8xXjYwtt0f7gr7m+xKj6wzxsb+09+vybrCKdtj +cvfNjNFJMCTSZc9WqHJ9/UdnjzH2i/jbVstvgVW7EyvV64zxHt9dPS7KCVIX +AnST643RgX/k4MtcJ+DOMCO/PDZGscBXfJwzTjBcsbgwt8kYP5mMcZ3b7QRV +XCeyRDqMUWnzii3za5zA/Wz0oalPxvi2fREf5jtCVvUR3QfL2ChupKDtmO8A +K/lDyM1b2fgq/ZhCZaYd5JlGRoy7sVF3cfUNVpgdrItMNc30ZON2symjHmc7 +sB3nvO7xYaNDKO/2QHE7SOianNkRwkZD8TKZjmxbmL4eZRIRw0Zv7jN8rbc2 +w1ujzI6CIjZe61LIq+uxhqCDeZctS9ioX+9LXq6xhqmSu/4jHDYKWHw2yci1 +BhFmz2+tCjZGfNt5oynIGqyXyMrU1rGxq6lBK3DWCmo6C/w6XrPxaHCGvw3T +CqwE76uF97DxpZ3kiXt8VtBj3jQl+Y6NKoPTY6xRS/hV9S3J6wMb20uDt526 +bwlq1zTvfB1m46Pzi05a2ltCzdsN4SmjbPR6NjcZpmcJVmJOoDHOxg+edRL3 +ZSwhIPHgy7BJNgp9rlGP/2oBv+oSsiWm2Xil9dJfwXYLiJ29sKNqlo1ufzMM +OBUWIKxTqLptno2mNSLNQVcs4OruqsmFBTaGtJzPNThhAf8DAJYqGQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.071970825592167}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.071970825592167}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3DxjVJGyMo49xp9y86+3N7vKDtbWQlZSVpSKVkZRTIa0qBC +ibjnkLJKNFBGEapvhIaEqMhIfuf31308H497zvk83uf9fn0+h+G7x9Gfm4uL +i7GIi+v/v1O9TY8Vk/PWq9y3l1ONM1nfeVXyyIaeWOCefxhhPkcArmzzlezJ +gMU+iw4Rc5oQbn+7m6fnOjwIs/u7eA5hxZhExkw3BeWaw5//m7WHvhrbPb+6 +66E+89iE66w3mCkOv5/ofgVtHb5hbtN7YaZb/9x49wBcsSkZ8x+PhgbTm3kv +r/+EPy0fWPyx6SDTV/nZV3UeLhwP7bApuQhiIdtv85ny4OAl1tMXhbmQoWVW +beuyBGsry3nDkvPgTZZm3YSwAN6IKzfV6r0JyXlRbdxSKzDWp+W1j2QRSJwd +PJl5RRQLfplJFvXcAUmVuyemC0Qxz8PLWmbgDkjXJ0Rt44jipTvfHRK/3QG5 +8TUHVzeI4t6ch51Wf++Aks1e7+ohUSweMk9LVCgB7X/m9Qa1xfBSWFxfV0gJ +2IWJf1zXLIYzn5c5PpktgURny/Wvplbi4uTf/F2LOCBd3irNvUgcm32ieqV4 +OVAi6vxba5k47itrGXXj50DXKy9Ourw4qiUIP2gV4YCiQxjTwUIcq9oapJIV +OFC/OYe3/aI41m20D7TdyIF5s8nWFmMJlFry+sefWA6kFUQUzZtJoOPqulPP +EujrebmS1BwksGh7i1PqKQ7YPOHfcNpfApPOux8WzuBAtilRZpMqgcEyQ/98 +yeWAAVpfeN4ngTW8z+b/q+XAAcNr25tiJfH1rhjLb784YJUr+Ms6RRJPvlcO +5pnmAJPvWFLrOUnUWjSmIznHgfbOLWTHLUl0dyht1F9Egvre5Ty9rZLoUvbu +i60ACUMFhwp+SEvhtT7Lhf8USfAUsx1dVUYbH1457ECC9tHqmKs1UujVFvlX +yZkE/oF/xRlPpbA4qnNp+xYSKkt5QPmNFGbdziGkPUkQt65M01yQQksrtkNC +AAntMYo6m6ylcb96VNeDCBI2fp+NCB2UxrKVWQFkLglHLM6ufTQijeKsN3ND +10kouab2VnRKGuUt/H1k80mQdPY2rFyyCi+qrb16rJCEkftPfvOor0KpKI2P +YhQJmbFpYRcPr8LYzrCO4noSBlYqhz4WkMEUq6SZo/0kSOx5KCshIYMDAoHL +bQdJsGl0bdlJyOD3MPK3zCcSKiKSVYW0ZbBrpsmVHCLhVN/4sJurDCZvWWRb +/p2EdYXVgd+vy+BpcXU7hXkSYowdfKQNZFG29pnGrZUUWHhd/aFvIourPeu+ +60hQIBj9Lc7FRhaFojt4H0hScLkhviDNWxbbdfcbP1lFwX2rqm+8J2Xxo85E +500GBeOuCuE/38jiyZeNhg9UKbgXsZdvxUdZzA/MKRFWp+D45dos9TFZtDSq +jtuuQcHyD1urd3LLofodXYcfWhSsDkzh+rBWDi/NZ58a0aPA6+DkqRdH5ZBV +w8ergxQoXTCRGY6Xw50dvM9tNlB0/c7c4UuTw+SY7FkfEwoi/qxpN8mTw7Zz +rMsxGyk4F+e1svIFfb8f9/6cs6DAM7+ooKtLDgWcStZkWFLAfDat/+uDHKY9 +ev70lBUFHP5Md41JOZx67Oa8z4aCF+nPcvJl5TH0o/BLUXsKMsvEtBpWy6PJ +2YTMn7TdX/vUf9CSx1L3uedtDhQMSf75uMpMHs+kD1yLdKKAJ1dzbUaoPIr/ +/DRVsoUCVsnF8uMP5fFm6b8/gzwp2NjdOj/WKI9GZeGui7dRYMv1j/n2V/L4 +vvZZ2VXaOxxD38AneRyUlbJr9KLA7CgjKnoxgc5DGiq/vSl4LlRzw4CfwO4U +c6ejPhTY521pHBck8FFNffgf2h4tySt8JAnkvnidmvSlYK/81I0NKgS2twWv +eOxHwWRZWuOMBoFFC3OrNf3p+lmojJI6BO5XjoWLtOP3eesx1xN41mtjmG8A +Bfy8c+5vTQi81T6aUU87LftcVIY5gZqzAXflAynIbmhu5HYgcKNP0ZKXtOVd +/UerXAgsGfvKUgqiIG9kYcUBdwJtXvUeCKddulLXY3AHgY2Ob/8I7aRA53Zb +1KUgApXl3W1daVetD85z2k3gg5zYwiu0HwfmjDaEEygg1xglH0yB5R9DkWNH +CbRd5ffHg3ZrWqeeTjSB75oL4s/Rdlba4zFygsC0Iw4yL2i/qVwanXeSwA4V +5UcLtL1s8/I8UwmUuvIlTHMXBR8H1jeJZRIYCG4GXrTHloWJxF8mUHC31wSH +9oFcQX32NQKfBB0bek17WqfQYzKfQMeD23/8pn28yTT6zm0ChVNbhSRC6Pfv +1ZvnX0rgX5/0Ddq0k34cbpItJ1DBaW+SDW3BRNGx1/dph+t88qWduapEJLWW +wIr0m67htCU5Fvpm9QQScmcHE2hf2Tjo8fcpgbUbnyScpc18Exld8ZzAqD5e +0xzat3ZL5oe2E+h/WEnqJm017rIm5dcEzlmMLS2mTZ3fPNb7hsCPhhriJbQN +VIZELvQSaDFQsf4O7dqHsfp2gwT6JDqfKKRt4izryTdE4Oiqni/XaT8buhf9 +cITAchAJvkjbJtIx/9AE3V/Quew07VcrRps0pghcLTLeEkl7a0Hi2JdZAn96 +GpC7aP/HYormLhCoFRpdsYW2b1uNvus/DFwDl3vX0/6yY6un8FIGSh3wXqtI +O2R6IrpRgIGcLdezeWmz9gWIfxZhYBHbcMsgXe8lw2+LeCQZWLfU434N7S5f +uw0MWQY+4ZGuz6Cd/66haz2Tgac9Tob50w5zNgjxXM1AYnVtuw5tk5biRRGq +DPzu09zNRbv3wTnVu3oMvHeyaTiV7o9iff76V0YMfNb/ddqedgTn+NZxZGBL +JFYI0Ra/HhirYs3AXYK/TeLo/vwo/Z+EpT0D0yJSxAxoU5n2dwJcGKgs2XDx +K93vdvGGPde2088LTmowoS33987uh34MFEt2Ch6m52UknMnzficD+UiDplTa +SUHL1CXDGDjh0lHWQs9bnfX7uNQkBmpfXOqpSM9n6mMHqeLTDEw97DVI0vPs +yX5a0pTBwA8TX1SMac+ol7755woDg77pLjbfQcE6kRiNoyQDi58azOjS+cCV +PPk4q4Jez86btwvpPGnlCXavqGag5ZFsZWnauyYd4yeeMDDB6EnsBJ0/eT2K +7wLfMrCkbtvoETq/9jtc3Bvfx8C4ZGmxTg8KsFmA98ZHBvax+gRVaL+vntLs +HaPrtWAf3+ZG1yunMcGZh4laORUXftB5+FGCLbN/CRP7k09Ha9Om0kjyjAAT +BfsZ5vtc6HrFZv/XLMHEuiUh+wfpPE3yD1m3QZWJNuor/K7T+TujItyr5sJE +Zt6O5mQ6z6euSMdouzORr+t4eg6d97+ElBQNt9P3358fwDGn5/mnYfDGnUzc +k/gZmjZRMFC9Y8o9konedyXau+n9pNn6nmBSPhN7vtoc3mlI93vtI/L0bSby +hvNQtgZ0/mi8cM4sZaLSVxcBLX0KHoj2Z1+tpP+/t1FtVIde/zv+1XdbmDi7 +4Z2BqSadh7u8YGCSSZ9X/NIDlSm48D5o4MssEzc/9Toqr0TBWbsD8aML9HrD +GZc6Fej3qZ30fHqpAt6ql4vRo/fT2Dlyq5CcAja/+cH/ht5vdyUv3mtspoAm +ytn62cIUGBcV554/r4BC9f6y4tMkvCOKcjZdUkDx+4/sMqdIiDhfePVXjgJe +EfIwFJwk4V5MwWXHQgVcefS63vwEfR5wzc0SrFHA5Bn56YffSFiz+GxaQr8C +2k2/SnnTS59/th+NDldVROMUhwd+DSTc7TwSpaSliEZLk+eyH5HgbHX4eKeu +IoZVJYq2PSQhQ/fgsXWgiD2i9j2aNSQILN9zeMxBEaNGXna+LSfhn0rfvQGH +FDHSXDWriT4PTYhYeW+pV8Suz5espBNI6Alhtgc/U8TxLDKvP46EuqezEPVC +ETctG71REENCWkSR/K0uRaTUGi6siSRBc2B538ywIraKRh0XDSMhlGzbdkVU +CSUKas8d9iFh2M7F46OfEmpfbfTPYJHwMcV7y34+ZTxtrqng9pkDocOqTM3l +yqjnebzt8SAHfpvPjI4KK+MqveZ69X4O8PNkxO+UVsbGg65x8+84oHmkodxb +TRlXBuCZhJcciPRXFrVzUkbtWr5h8xoOiK8faVPJUUbRDaK709I4YPn9kOUn +vdWYdc2h67gOB0Z2LDlQHvUv/myKFXhSXkJ/r0hwJ9avQVbVp7OzH4pBpEU5 +lfN9LW7TVJ04IVoEMkml9np6quiiWJG2Q7AQslQMhUUD1fCY4OzsXcWb0Cy9 +QfdnujoWDhwYebwpH1gy9WkaXRq4CWcqu81ugCDP9TCfWE38de6C4KrD10Au +Rt7YTVkLLSU9vner58BSJc8Kx2daKC3udmmavATqbKnSQ9vWYZ+v9aa4vCzY +3yvSYMWljRN+1+z908/B958pLpZZ2thutYz70mgGmGs8zbZU08H+qvZx7TNp +8OCn0dzvVh2sTr0RqXgoBUJV17196a+LurNmpV/Sk4A95tfptlQPQ3eX8dm0 +n4BNipKbBa7rodqZhbOx92Pg3+hTh+v19XHk9qyul/RxWOtv+FDprT7ebT7Q +skT4CPg/CDpRvs8Ae4SYrbu5DsLD3E6/iZWGOBTSvjzFaB/8urXwW+OeIe4J +Dxb30AmBHUpFS7M3szDRoUYqxTQQIp54BSvbs3Cz2bLjfRqBkOYv8pxyZKG5 +o7vWBplAqMk/kvJ8KwvrZk74aUwGgJiyhdC8Dwvbd+2SrrgZAE+VP4l5h7OQ +Oybxnr9QAKz9V55QzmHhe029Vyu/+sHE2kw9apyF0UE99dyPfaHnBW4S/cnC +GIJnvq7cF+pCx5zCJll4+eri+ZP5vpBKWe7Tm2XhrQRTPeNEX1jL4iqu4jFC +rZsTg4S1L/ha7mY0iBvhGW+XT586faAz0Hx5p7ERZs7539MZ94b7eXP9k0lG +GLdFZa/xSS/QMw37bZVshCfAqnv9Xi+42z+yPPe0EfJpnl7ttNULKLlefasM +I+TXueNGKnlBcVbd6auXjPCt2qEPJg3bIDcl3tC8xAhnppwCyEXb4GSYUHpW +hxE+mlh0PizZA9w3KqCRnDHOuDLrfdtdYb5ziWADYYzaIsuOPK90hVz/sXdW +CsZYfC/IxeyGK3xOqDzk/q8xXjYwtt0f7gr7m+xKj6wzxsb+09+vybrCKdtj +cvfNjNFJMCTSZc9WqHJ9/UdnjzH2i/jbVstvgVW7EyvV64zxHt9dPS7KCVIX +AnST643RgX/k4MtcJ+DOMCO/PDZGscBXfJwzTjBcsbgwt8kYP5mMcZ3b7QRV +XCeyRDqMUWnzii3za5zA/Wz0oalPxvi2fREf5jtCVvUR3QfL2ChupKDtmO8A +K/lDyM1b2fgq/ZhCZaYd5JlGRoy7sVF3cfUNVpgdrItMNc30ZON2symjHmc7 +sB3nvO7xYaNDKO/2QHE7SOianNkRwkZD8TKZjmxbmL4eZRIRw0Zv7jN8rbc2 +w1ujzI6CIjZe61LIq+uxhqCDeZctS9ioX+9LXq6xhqmSu/4jHDYKWHw2yci1 +BhFmz2+tCjZGfNt5oynIGqyXyMrU1rGxq6lBK3DWCmo6C/w6XrPxaHCGvw3T +CqwE76uF97DxpZ3kiXt8VtBj3jQl+Y6NKoPTY6xRS/hV9S3J6wMb20uDt526 +bwlq1zTvfB1m46Pzi05a2ltCzdsN4SmjbPR6NjcZpmcJVmJOoDHOxg+edRL3 +ZSwhIPHgy7BJNgp9rlGP/2oBv+oSsiWm2Xil9dJfwXYLiJ29sKNqlo1ufzMM +OBUWIKxTqLptno2mNSLNQVcs4OruqsmFBTaGtJzPNThhAf8DAJYqGQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.071970825592167}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.071970825592167}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993920528348008*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"39cd1c02-050e-4df9-be1b-4e0ff236f856"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ -ef47-aa8c-99f282e3d6d3"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[120]:=",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vf8fB3DxjVJGyMo49xp9y86+3N7vKDtbWQlZSVpSKVkZRTIa0qBC +ibjnkLJKNFBGEapvhIaEqMhIfuf31308H497zvk83uf9fn0+h+G7x9Gfm4uL +i7GIi+v/v1O9TY8Vk/PWq9y3l1ONM1nfeVXyyIaeWOCefxhhPkcArmzzlezJ +gMU+iw4Rc5oQbn+7m6fnOjwIs/u7eA5hxZhExkw3BeWaw5//m7WHvhrbPb+6 +66E+89iE66w3mCkOv5/ofgVtHb5hbtN7YaZb/9x49wBcsSkZ8x+PhgbTm3kv +r/+EPy0fWPyx6SDTV/nZV3UeLhwP7bApuQhiIdtv85ny4OAl1tMXhbmQoWVW +beuyBGsry3nDkvPgTZZm3YSwAN6IKzfV6r0JyXlRbdxSKzDWp+W1j2QRSJwd +PJl5RRQLfplJFvXcAUmVuyemC0Qxz8PLWmbgDkjXJ0Rt44jipTvfHRK/3QG5 +8TUHVzeI4t6ch51Wf++Aks1e7+ohUSweMk9LVCgB7X/m9Qa1xfBSWFxfV0gJ +2IWJf1zXLIYzn5c5PpktgURny/Wvplbi4uTf/F2LOCBd3irNvUgcm32ieqV4 +OVAi6vxba5k47itrGXXj50DXKy9Ourw4qiUIP2gV4YCiQxjTwUIcq9oapJIV +OFC/OYe3/aI41m20D7TdyIF5s8nWFmMJlFry+sefWA6kFUQUzZtJoOPqulPP +EujrebmS1BwksGh7i1PqKQ7YPOHfcNpfApPOux8WzuBAtilRZpMqgcEyQ/98 +yeWAAVpfeN4ngTW8z+b/q+XAAcNr25tiJfH1rhjLb784YJUr+Ms6RRJPvlcO +5pnmAJPvWFLrOUnUWjSmIznHgfbOLWTHLUl0dyht1F9Egvre5Ty9rZLoUvbu +i60ACUMFhwp+SEvhtT7Lhf8USfAUsx1dVUYbH1457ECC9tHqmKs1UujVFvlX +yZkE/oF/xRlPpbA4qnNp+xYSKkt5QPmNFGbdziGkPUkQt65M01yQQksrtkNC +AAntMYo6m6ylcb96VNeDCBI2fp+NCB2UxrKVWQFkLglHLM6ufTQijeKsN3ND +10kouab2VnRKGuUt/H1k80mQdPY2rFyyCi+qrb16rJCEkftPfvOor0KpKI2P +YhQJmbFpYRcPr8LYzrCO4noSBlYqhz4WkMEUq6SZo/0kSOx5KCshIYMDAoHL +bQdJsGl0bdlJyOD3MPK3zCcSKiKSVYW0ZbBrpsmVHCLhVN/4sJurDCZvWWRb +/p2EdYXVgd+vy+BpcXU7hXkSYowdfKQNZFG29pnGrZUUWHhd/aFvIourPeu+ +60hQIBj9Lc7FRhaFojt4H0hScLkhviDNWxbbdfcbP1lFwX2rqm+8J2Xxo85E +500GBeOuCuE/38jiyZeNhg9UKbgXsZdvxUdZzA/MKRFWp+D45dos9TFZtDSq +jtuuQcHyD1urd3LLofodXYcfWhSsDkzh+rBWDi/NZ58a0aPA6+DkqRdH5ZBV +w8ergxQoXTCRGY6Xw50dvM9tNlB0/c7c4UuTw+SY7FkfEwoi/qxpN8mTw7Zz +rMsxGyk4F+e1svIFfb8f9/6cs6DAM7+ooKtLDgWcStZkWFLAfDat/+uDHKY9 +ev70lBUFHP5Md41JOZx67Oa8z4aCF+nPcvJl5TH0o/BLUXsKMsvEtBpWy6PJ +2YTMn7TdX/vUf9CSx1L3uedtDhQMSf75uMpMHs+kD1yLdKKAJ1dzbUaoPIr/ +/DRVsoUCVsnF8uMP5fFm6b8/gzwp2NjdOj/WKI9GZeGui7dRYMv1j/n2V/L4 +vvZZ2VXaOxxD38AneRyUlbJr9KLA7CgjKnoxgc5DGiq/vSl4LlRzw4CfwO4U +c6ejPhTY521pHBck8FFNffgf2h4tySt8JAnkvnidmvSlYK/81I0NKgS2twWv +eOxHwWRZWuOMBoFFC3OrNf3p+lmojJI6BO5XjoWLtOP3eesx1xN41mtjmG8A +Bfy8c+5vTQi81T6aUU87LftcVIY5gZqzAXflAynIbmhu5HYgcKNP0ZKXtOVd +/UerXAgsGfvKUgqiIG9kYcUBdwJtXvUeCKddulLXY3AHgY2Ob/8I7aRA53Zb +1KUgApXl3W1daVetD85z2k3gg5zYwiu0HwfmjDaEEygg1xglH0yB5R9DkWNH +CbRd5ffHg3ZrWqeeTjSB75oL4s/Rdlba4zFygsC0Iw4yL2i/qVwanXeSwA4V +5UcLtL1s8/I8UwmUuvIlTHMXBR8H1jeJZRIYCG4GXrTHloWJxF8mUHC31wSH +9oFcQX32NQKfBB0bek17WqfQYzKfQMeD23/8pn28yTT6zm0ChVNbhSRC6Pfv +1ZvnX0rgX5/0Ddq0k34cbpItJ1DBaW+SDW3BRNGx1/dph+t88qWduapEJLWW +wIr0m67htCU5Fvpm9QQScmcHE2hf2Tjo8fcpgbUbnyScpc18Exld8ZzAqD5e +0xzat3ZL5oe2E+h/WEnqJm017rIm5dcEzlmMLS2mTZ3fPNb7hsCPhhriJbQN +VIZELvQSaDFQsf4O7dqHsfp2gwT6JDqfKKRt4izryTdE4Oiqni/XaT8buhf9 +cITAchAJvkjbJtIx/9AE3V/Quew07VcrRps0pghcLTLeEkl7a0Hi2JdZAn96 +GpC7aP/HYormLhCoFRpdsYW2b1uNvus/DFwDl3vX0/6yY6un8FIGSh3wXqtI +O2R6IrpRgIGcLdezeWmz9gWIfxZhYBHbcMsgXe8lw2+LeCQZWLfU434N7S5f +uw0MWQY+4ZGuz6Cd/66haz2Tgac9Tob50w5zNgjxXM1AYnVtuw5tk5biRRGq +DPzu09zNRbv3wTnVu3oMvHeyaTiV7o9iff76V0YMfNb/ddqedgTn+NZxZGBL +JFYI0Ra/HhirYs3AXYK/TeLo/vwo/Z+EpT0D0yJSxAxoU5n2dwJcGKgs2XDx +K93vdvGGPde2088LTmowoS33987uh34MFEt2Ch6m52UknMnzficD+UiDplTa +SUHL1CXDGDjh0lHWQs9bnfX7uNQkBmpfXOqpSM9n6mMHqeLTDEw97DVI0vPs +yX5a0pTBwA8TX1SMac+ol7755woDg77pLjbfQcE6kRiNoyQDi58azOjS+cCV +PPk4q4Jez86btwvpPGnlCXavqGag5ZFsZWnauyYd4yeeMDDB6EnsBJ0/eT2K +7wLfMrCkbtvoETq/9jtc3Bvfx8C4ZGmxTg8KsFmA98ZHBvax+gRVaL+vntLs +HaPrtWAf3+ZG1yunMcGZh4laORUXftB5+FGCLbN/CRP7k09Ha9Om0kjyjAAT +BfsZ5vtc6HrFZv/XLMHEuiUh+wfpPE3yD1m3QZWJNuor/K7T+TujItyr5sJE +Zt6O5mQ6z6euSMdouzORr+t4eg6d97+ElBQNt9P3358fwDGn5/mnYfDGnUzc +k/gZmjZRMFC9Y8o9konedyXau+n9pNn6nmBSPhN7vtoc3mlI93vtI/L0bSby +hvNQtgZ0/mi8cM4sZaLSVxcBLX0KHoj2Z1+tpP+/t1FtVIde/zv+1XdbmDi7 +4Z2BqSadh7u8YGCSSZ9X/NIDlSm48D5o4MssEzc/9Toqr0TBWbsD8aML9HrD +GZc6Fej3qZ30fHqpAt6ql4vRo/fT2Dlyq5CcAja/+cH/ht5vdyUv3mtspoAm +ytn62cIUGBcV554/r4BC9f6y4tMkvCOKcjZdUkDx+4/sMqdIiDhfePVXjgJe +EfIwFJwk4V5MwWXHQgVcefS63vwEfR5wzc0SrFHA5Bn56YffSFiz+GxaQr8C +2k2/SnnTS59/th+NDldVROMUhwd+DSTc7TwSpaSliEZLk+eyH5HgbHX4eKeu +IoZVJYq2PSQhQ/fgsXWgiD2i9j2aNSQILN9zeMxBEaNGXna+LSfhn0rfvQGH +FDHSXDWriT4PTYhYeW+pV8Suz5espBNI6Alhtgc/U8TxLDKvP46EuqezEPVC +ETctG71REENCWkSR/K0uRaTUGi6siSRBc2B538ywIraKRh0XDSMhlGzbdkVU +CSUKas8d9iFh2M7F46OfEmpfbfTPYJHwMcV7y34+ZTxtrqng9pkDocOqTM3l +yqjnebzt8SAHfpvPjI4KK+MqveZ69X4O8PNkxO+UVsbGg65x8+84oHmkodxb +TRlXBuCZhJcciPRXFrVzUkbtWr5h8xoOiK8faVPJUUbRDaK709I4YPn9kOUn +vdWYdc2h67gOB0Z2LDlQHvUv/myKFXhSXkJ/r0hwJ9avQVbVp7OzH4pBpEU5 +lfN9LW7TVJ04IVoEMkml9np6quiiWJG2Q7AQslQMhUUD1fCY4OzsXcWb0Cy9 +QfdnujoWDhwYebwpH1gy9WkaXRq4CWcqu81ugCDP9TCfWE38de6C4KrD10Au +Rt7YTVkLLSU9vner58BSJc8Kx2daKC3udmmavATqbKnSQ9vWYZ+v9aa4vCzY +3yvSYMWljRN+1+z908/B958pLpZZ2thutYz70mgGmGs8zbZU08H+qvZx7TNp +8OCn0dzvVh2sTr0RqXgoBUJV17196a+LurNmpV/Sk4A95tfptlQPQ3eX8dm0 +n4BNipKbBa7rodqZhbOx92Pg3+hTh+v19XHk9qyul/RxWOtv+FDprT7ebT7Q +skT4CPg/CDpRvs8Ae4SYrbu5DsLD3E6/iZWGOBTSvjzFaB/8urXwW+OeIe4J +Dxb30AmBHUpFS7M3szDRoUYqxTQQIp54BSvbs3Cz2bLjfRqBkOYv8pxyZKG5 +o7vWBplAqMk/kvJ8KwvrZk74aUwGgJiyhdC8Dwvbd+2SrrgZAE+VP4l5h7OQ +Oybxnr9QAKz9V55QzmHhe029Vyu/+sHE2kw9apyF0UE99dyPfaHnBW4S/cnC +GIJnvq7cF+pCx5zCJll4+eri+ZP5vpBKWe7Tm2XhrQRTPeNEX1jL4iqu4jFC +rZsTg4S1L/ha7mY0iBvhGW+XT586faAz0Hx5p7ERZs7539MZ94b7eXP9k0lG +GLdFZa/xSS/QMw37bZVshCfAqnv9Xi+42z+yPPe0EfJpnl7ttNULKLlefasM +I+TXueNGKnlBcVbd6auXjPCt2qEPJg3bIDcl3tC8xAhnppwCyEXb4GSYUHpW +hxE+mlh0PizZA9w3KqCRnDHOuDLrfdtdYb5ziWADYYzaIsuOPK90hVz/sXdW +CsZYfC/IxeyGK3xOqDzk/q8xXjYwtt0f7gr7m+xKj6wzxsb+09+vybrCKdtj +cvfNjNFJMCTSZc9WqHJ9/UdnjzH2i/jbVstvgVW7EyvV64zxHt9dPS7KCVIX +AnST643RgX/k4MtcJ+DOMCO/PDZGscBXfJwzTjBcsbgwt8kYP5mMcZ3b7QRV +XCeyRDqMUWnzii3za5zA/Wz0oalPxvi2fREf5jtCVvUR3QfL2ChupKDtmO8A +K/lDyM1b2fgq/ZhCZaYd5JlGRoy7sVF3cfUNVpgdrItMNc30ZON2symjHmc7 +sB3nvO7xYaNDKO/2QHE7SOianNkRwkZD8TKZjmxbmL4eZRIRw0Zv7jN8rbc2 +w1ujzI6CIjZe61LIq+uxhqCDeZctS9ioX+9LXq6xhqmSu/4jHDYKWHw2yci1 +BhFmz2+tCjZGfNt5oynIGqyXyMrU1rGxq6lBK3DWCmo6C/w6XrPxaHCGvw3T +CqwE76uF97DxpZ3kiXt8VtBj3jQl+Y6NKoPTY6xRS/hV9S3J6wMb20uDt526 +bwlq1zTvfB1m46Pzi05a2ltCzdsN4SmjbPR6NjcZpmcJVmJOoDHOxg+edRL3 +ZSwhIPHgy7BJNgp9rlGP/2oBv+oSsiWm2Xil9dJfwXYLiJ29sKNqlo1ufzMM +OBUWIKxTqLptno2mNSLNQVcs4OruqsmFBTaGtJzPNThhAf8DAJYqGQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3DxjVJGyMo49xp9y86+3N7vKDtbWQlZSVpSKVkZRTIa0qBC +ibjnkLJKNFBGEapvhIaEqMhIfuf31308H497zvk83uf9fn0+h+G7x9Gfm4uL +i7GIi+v/v1O9TY8Vk/PWq9y3l1ONM1nfeVXyyIaeWOCefxhhPkcArmzzlezJ +gMU+iw4Rc5oQbn+7m6fnOjwIs/u7eA5hxZhExkw3BeWaw5//m7WHvhrbPb+6 +66E+89iE66w3mCkOv5/ofgVtHb5hbtN7YaZb/9x49wBcsSkZ8x+PhgbTm3kv +r/+EPy0fWPyx6SDTV/nZV3UeLhwP7bApuQhiIdtv85ny4OAl1tMXhbmQoWVW +beuyBGsry3nDkvPgTZZm3YSwAN6IKzfV6r0JyXlRbdxSKzDWp+W1j2QRSJwd +PJl5RRQLfplJFvXcAUmVuyemC0Qxz8PLWmbgDkjXJ0Rt44jipTvfHRK/3QG5 +8TUHVzeI4t6ch51Wf++Aks1e7+ohUSweMk9LVCgB7X/m9Qa1xfBSWFxfV0gJ +2IWJf1zXLIYzn5c5PpktgURny/Wvplbi4uTf/F2LOCBd3irNvUgcm32ieqV4 +OVAi6vxba5k47itrGXXj50DXKy9Ourw4qiUIP2gV4YCiQxjTwUIcq9oapJIV +OFC/OYe3/aI41m20D7TdyIF5s8nWFmMJlFry+sefWA6kFUQUzZtJoOPqulPP +EujrebmS1BwksGh7i1PqKQ7YPOHfcNpfApPOux8WzuBAtilRZpMqgcEyQ/98 +yeWAAVpfeN4ngTW8z+b/q+XAAcNr25tiJfH1rhjLb784YJUr+Ms6RRJPvlcO +5pnmAJPvWFLrOUnUWjSmIznHgfbOLWTHLUl0dyht1F9Egvre5Ty9rZLoUvbu +i60ACUMFhwp+SEvhtT7Lhf8USfAUsx1dVUYbH1457ECC9tHqmKs1UujVFvlX +yZkE/oF/xRlPpbA4qnNp+xYSKkt5QPmNFGbdziGkPUkQt65M01yQQksrtkNC +AAntMYo6m6ylcb96VNeDCBI2fp+NCB2UxrKVWQFkLglHLM6ufTQijeKsN3ND +10kouab2VnRKGuUt/H1k80mQdPY2rFyyCi+qrb16rJCEkftPfvOor0KpKI2P +YhQJmbFpYRcPr8LYzrCO4noSBlYqhz4WkMEUq6SZo/0kSOx5KCshIYMDAoHL +bQdJsGl0bdlJyOD3MPK3zCcSKiKSVYW0ZbBrpsmVHCLhVN/4sJurDCZvWWRb +/p2EdYXVgd+vy+BpcXU7hXkSYowdfKQNZFG29pnGrZUUWHhd/aFvIourPeu+ +60hQIBj9Lc7FRhaFojt4H0hScLkhviDNWxbbdfcbP1lFwX2rqm+8J2Xxo85E +500GBeOuCuE/38jiyZeNhg9UKbgXsZdvxUdZzA/MKRFWp+D45dos9TFZtDSq +jtuuQcHyD1urd3LLofodXYcfWhSsDkzh+rBWDi/NZ58a0aPA6+DkqRdH5ZBV +w8ergxQoXTCRGY6Xw50dvM9tNlB0/c7c4UuTw+SY7FkfEwoi/qxpN8mTw7Zz +rMsxGyk4F+e1svIFfb8f9/6cs6DAM7+ooKtLDgWcStZkWFLAfDat/+uDHKY9 +ev70lBUFHP5Md41JOZx67Oa8z4aCF+nPcvJl5TH0o/BLUXsKMsvEtBpWy6PJ +2YTMn7TdX/vUf9CSx1L3uedtDhQMSf75uMpMHs+kD1yLdKKAJ1dzbUaoPIr/ +/DRVsoUCVsnF8uMP5fFm6b8/gzwp2NjdOj/WKI9GZeGui7dRYMv1j/n2V/L4 +vvZZ2VXaOxxD38AneRyUlbJr9KLA7CgjKnoxgc5DGiq/vSl4LlRzw4CfwO4U +c6ejPhTY521pHBck8FFNffgf2h4tySt8JAnkvnidmvSlYK/81I0NKgS2twWv +eOxHwWRZWuOMBoFFC3OrNf3p+lmojJI6BO5XjoWLtOP3eesx1xN41mtjmG8A +Bfy8c+5vTQi81T6aUU87LftcVIY5gZqzAXflAynIbmhu5HYgcKNP0ZKXtOVd +/UerXAgsGfvKUgqiIG9kYcUBdwJtXvUeCKddulLXY3AHgY2Ob/8I7aRA53Zb +1KUgApXl3W1daVetD85z2k3gg5zYwiu0HwfmjDaEEygg1xglH0yB5R9DkWNH +CbRd5ffHg3ZrWqeeTjSB75oL4s/Rdlba4zFygsC0Iw4yL2i/qVwanXeSwA4V +5UcLtL1s8/I8UwmUuvIlTHMXBR8H1jeJZRIYCG4GXrTHloWJxF8mUHC31wSH +9oFcQX32NQKfBB0bek17WqfQYzKfQMeD23/8pn28yTT6zm0ChVNbhSRC6Pfv +1ZvnX0rgX5/0Ddq0k34cbpItJ1DBaW+SDW3BRNGx1/dph+t88qWduapEJLWW +wIr0m67htCU5Fvpm9QQScmcHE2hf2Tjo8fcpgbUbnyScpc18Exld8ZzAqD5e +0xzat3ZL5oe2E+h/WEnqJm017rIm5dcEzlmMLS2mTZ3fPNb7hsCPhhriJbQN +VIZELvQSaDFQsf4O7dqHsfp2gwT6JDqfKKRt4izryTdE4Oiqni/XaT8buhf9 +cITAchAJvkjbJtIx/9AE3V/Quew07VcrRps0pghcLTLeEkl7a0Hi2JdZAn96 +GpC7aP/HYormLhCoFRpdsYW2b1uNvus/DFwDl3vX0/6yY6un8FIGSh3wXqtI +O2R6IrpRgIGcLdezeWmz9gWIfxZhYBHbcMsgXe8lw2+LeCQZWLfU434N7S5f +uw0MWQY+4ZGuz6Cd/66haz2Tgac9Tob50w5zNgjxXM1AYnVtuw5tk5biRRGq +DPzu09zNRbv3wTnVu3oMvHeyaTiV7o9iff76V0YMfNb/ddqedgTn+NZxZGBL +JFYI0Ra/HhirYs3AXYK/TeLo/vwo/Z+EpT0D0yJSxAxoU5n2dwJcGKgs2XDx +K93vdvGGPde2088LTmowoS33987uh34MFEt2Ch6m52UknMnzficD+UiDplTa +SUHL1CXDGDjh0lHWQs9bnfX7uNQkBmpfXOqpSM9n6mMHqeLTDEw97DVI0vPs +yX5a0pTBwA8TX1SMac+ol7755woDg77pLjbfQcE6kRiNoyQDi58azOjS+cCV +PPk4q4Jez86btwvpPGnlCXavqGag5ZFsZWnauyYd4yeeMDDB6EnsBJ0/eT2K +7wLfMrCkbtvoETq/9jtc3Bvfx8C4ZGmxTg8KsFmA98ZHBvax+gRVaL+vntLs +HaPrtWAf3+ZG1yunMcGZh4laORUXftB5+FGCLbN/CRP7k09Ha9Om0kjyjAAT +BfsZ5vtc6HrFZv/XLMHEuiUh+wfpPE3yD1m3QZWJNuor/K7T+TujItyr5sJE +Zt6O5mQ6z6euSMdouzORr+t4eg6d97+ElBQNt9P3358fwDGn5/mnYfDGnUzc +k/gZmjZRMFC9Y8o9konedyXau+n9pNn6nmBSPhN7vtoc3mlI93vtI/L0bSby +hvNQtgZ0/mi8cM4sZaLSVxcBLX0KHoj2Z1+tpP+/t1FtVIde/zv+1XdbmDi7 +4Z2BqSadh7u8YGCSSZ9X/NIDlSm48D5o4MssEzc/9Toqr0TBWbsD8aML9HrD +GZc6Fej3qZ30fHqpAt6ql4vRo/fT2Dlyq5CcAja/+cH/ht5vdyUv3mtspoAm +ytn62cIUGBcV554/r4BC9f6y4tMkvCOKcjZdUkDx+4/sMqdIiDhfePVXjgJe +EfIwFJwk4V5MwWXHQgVcefS63vwEfR5wzc0SrFHA5Bn56YffSFiz+GxaQr8C +2k2/SnnTS59/th+NDldVROMUhwd+DSTc7TwSpaSliEZLk+eyH5HgbHX4eKeu +IoZVJYq2PSQhQ/fgsXWgiD2i9j2aNSQILN9zeMxBEaNGXna+LSfhn0rfvQGH +FDHSXDWriT4PTYhYeW+pV8Suz5espBNI6Alhtgc/U8TxLDKvP46EuqezEPVC +ETctG71REENCWkSR/K0uRaTUGi6siSRBc2B538ywIraKRh0XDSMhlGzbdkVU +CSUKas8d9iFh2M7F46OfEmpfbfTPYJHwMcV7y34+ZTxtrqng9pkDocOqTM3l +yqjnebzt8SAHfpvPjI4KK+MqveZ69X4O8PNkxO+UVsbGg65x8+84oHmkodxb +TRlXBuCZhJcciPRXFrVzUkbtWr5h8xoOiK8faVPJUUbRDaK709I4YPn9kOUn +vdWYdc2h67gOB0Z2LDlQHvUv/myKFXhSXkJ/r0hwJ9avQVbVp7OzH4pBpEU5 +lfN9LW7TVJ04IVoEMkml9np6quiiWJG2Q7AQslQMhUUD1fCY4OzsXcWb0Cy9 +QfdnujoWDhwYebwpH1gy9WkaXRq4CWcqu81ugCDP9TCfWE38de6C4KrD10Au +Rt7YTVkLLSU9vner58BSJc8Kx2daKC3udmmavATqbKnSQ9vWYZ+v9aa4vCzY +3yvSYMWljRN+1+z908/B958pLpZZ2thutYz70mgGmGs8zbZU08H+qvZx7TNp +8OCn0dzvVh2sTr0RqXgoBUJV17196a+LurNmpV/Sk4A95tfptlQPQ3eX8dm0 +n4BNipKbBa7rodqZhbOx92Pg3+hTh+v19XHk9qyul/RxWOtv+FDprT7ebT7Q +skT4CPg/CDpRvs8Ae4SYrbu5DsLD3E6/iZWGOBTSvjzFaB/8urXwW+OeIe4J +Dxb30AmBHUpFS7M3szDRoUYqxTQQIp54BSvbs3Cz2bLjfRqBkOYv8pxyZKG5 +o7vWBplAqMk/kvJ8KwvrZk74aUwGgJiyhdC8Dwvbd+2SrrgZAE+VP4l5h7OQ +Oybxnr9QAKz9V55QzmHhe029Vyu/+sHE2kw9apyF0UE99dyPfaHnBW4S/cnC +GIJnvq7cF+pCx5zCJll4+eri+ZP5vpBKWe7Tm2XhrQRTPeNEX1jL4iqu4jFC +rZsTg4S1L/ha7mY0iBvhGW+XT586faAz0Hx5p7ERZs7539MZ94b7eXP9k0lG +GLdFZa/xSS/QMw37bZVshCfAqnv9Xi+42z+yPPe0EfJpnl7ttNULKLlefasM +I+TXueNGKnlBcVbd6auXjPCt2qEPJg3bIDcl3tC8xAhnppwCyEXb4GSYUHpW +hxE+mlh0PizZA9w3KqCRnDHOuDLrfdtdYb5ziWADYYzaIsuOPK90hVz/sXdW +CsZYfC/IxeyGK3xOqDzk/q8xXjYwtt0f7gr7m+xKj6wzxsb+09+vybrCKdtj +cvfNjNFJMCTSZc9WqHJ9/UdnjzH2i/jbVstvgVW7EyvV64zxHt9dPS7KCVIX +AnST643RgX/k4MtcJ+DOMCO/PDZGscBXfJwzTjBcsbgwt8kYP5mMcZ3b7QRV +XCeyRDqMUWnzii3za5zA/Wz0oalPxvi2fREf5jtCVvUR3QfL2ChupKDtmO8A +K/lDyM1b2fgq/ZhCZaYd5JlGRoy7sVF3cfUNVpgdrItMNc30ZON2symjHmc7 +sB3nvO7xYaNDKO/2QHE7SOianNkRwkZD8TKZjmxbmL4eZRIRw0Zv7jN8rbc2 +w1ujzI6CIjZe61LIq+uxhqCDeZctS9ioX+9LXq6xhqmSu/4jHDYKWHw2yci1 +BhFmz2+tCjZGfNt5oynIGqyXyMrU1rGxq6lBK3DWCmo6C/w6XrPxaHCGvw3T +CqwE76uF97DxpZ3kiXt8VtBj3jQl+Y6NKoPTY6xRS/hV9S3J6wMb20uDt526 +bwlq1zTvfB1m46Pzi05a2ltCzdsN4SmjbPR6NjcZpmcJVmJOoDHOxg+edRL3 +ZSwhIPHgy7BJNgp9rlGP/2oBv+oSsiWm2Xil9dJfwXYLiJ29sKNqlo1ufzMM +OBUWIKxTqLptno2mNSLNQVcs4OruqsmFBTaGtJzPNThhAf8DAJYqGQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.071970825592167}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.071970825592167}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vf8fB3DxjVJGyMo49xp9y86+3N7vKDtbWQlZSVpSKVkZRTIa0qBC +ibjnkLJKNFBGEapvhIaEqMhIfuf31308H497zvk83uf9fn0+h+G7x9Gfm4uL +i7GIi+v/v1O9TY8Vk/PWq9y3l1ONM1nfeVXyyIaeWOCefxhhPkcArmzzlezJ +gMU+iw4Rc5oQbn+7m6fnOjwIs/u7eA5hxZhExkw3BeWaw5//m7WHvhrbPb+6 +66E+89iE66w3mCkOv5/ofgVtHb5hbtN7YaZb/9x49wBcsSkZ8x+PhgbTm3kv +r/+EPy0fWPyx6SDTV/nZV3UeLhwP7bApuQhiIdtv85ny4OAl1tMXhbmQoWVW +beuyBGsry3nDkvPgTZZm3YSwAN6IKzfV6r0JyXlRbdxSKzDWp+W1j2QRSJwd +PJl5RRQLfplJFvXcAUmVuyemC0Qxz8PLWmbgDkjXJ0Rt44jipTvfHRK/3QG5 +8TUHVzeI4t6ch51Wf++Aks1e7+ohUSweMk9LVCgB7X/m9Qa1xfBSWFxfV0gJ +2IWJf1zXLIYzn5c5PpktgURny/Wvplbi4uTf/F2LOCBd3irNvUgcm32ieqV4 +OVAi6vxba5k47itrGXXj50DXKy9Ourw4qiUIP2gV4YCiQxjTwUIcq9oapJIV +OFC/OYe3/aI41m20D7TdyIF5s8nWFmMJlFry+sefWA6kFUQUzZtJoOPqulPP +EujrebmS1BwksGh7i1PqKQ7YPOHfcNpfApPOux8WzuBAtilRZpMqgcEyQ/98 +yeWAAVpfeN4ngTW8z+b/q+XAAcNr25tiJfH1rhjLb784YJUr+Ms6RRJPvlcO +5pnmAJPvWFLrOUnUWjSmIznHgfbOLWTHLUl0dyht1F9Egvre5Ty9rZLoUvbu +i60ACUMFhwp+SEvhtT7Lhf8USfAUsx1dVUYbH1457ECC9tHqmKs1UujVFvlX +yZkE/oF/xRlPpbA4qnNp+xYSKkt5QPmNFGbdziGkPUkQt65M01yQQksrtkNC +AAntMYo6m6ylcb96VNeDCBI2fp+NCB2UxrKVWQFkLglHLM6ufTQijeKsN3ND +10kouab2VnRKGuUt/H1k80mQdPY2rFyyCi+qrb16rJCEkftPfvOor0KpKI2P +YhQJmbFpYRcPr8LYzrCO4noSBlYqhz4WkMEUq6SZo/0kSOx5KCshIYMDAoHL +bQdJsGl0bdlJyOD3MPK3zCcSKiKSVYW0ZbBrpsmVHCLhVN/4sJurDCZvWWRb +/p2EdYXVgd+vy+BpcXU7hXkSYowdfKQNZFG29pnGrZUUWHhd/aFvIourPeu+ +60hQIBj9Lc7FRhaFojt4H0hScLkhviDNWxbbdfcbP1lFwX2rqm+8J2Xxo85E +500GBeOuCuE/38jiyZeNhg9UKbgXsZdvxUdZzA/MKRFWp+D45dos9TFZtDSq +jtuuQcHyD1urd3LLofodXYcfWhSsDkzh+rBWDi/NZ58a0aPA6+DkqRdH5ZBV +w8ergxQoXTCRGY6Xw50dvM9tNlB0/c7c4UuTw+SY7FkfEwoi/qxpN8mTw7Zz +rMsxGyk4F+e1svIFfb8f9/6cs6DAM7+ooKtLDgWcStZkWFLAfDat/+uDHKY9 +ev70lBUFHP5Md41JOZx67Oa8z4aCF+nPcvJl5TH0o/BLUXsKMsvEtBpWy6PJ +2YTMn7TdX/vUf9CSx1L3uedtDhQMSf75uMpMHs+kD1yLdKKAJ1dzbUaoPIr/ +/DRVsoUCVsnF8uMP5fFm6b8/gzwp2NjdOj/WKI9GZeGui7dRYMv1j/n2V/L4 +vvZZ2VXaOxxD38AneRyUlbJr9KLA7CgjKnoxgc5DGiq/vSl4LlRzw4CfwO4U +c6ejPhTY521pHBck8FFNffgf2h4tySt8JAnkvnidmvSlYK/81I0NKgS2twWv +eOxHwWRZWuOMBoFFC3OrNf3p+lmojJI6BO5XjoWLtOP3eesx1xN41mtjmG8A +Bfy8c+5vTQi81T6aUU87LftcVIY5gZqzAXflAynIbmhu5HYgcKNP0ZKXtOVd +/UerXAgsGfvKUgqiIG9kYcUBdwJtXvUeCKddulLXY3AHgY2Ob/8I7aRA53Zb +1KUgApXl3W1daVetD85z2k3gg5zYwiu0HwfmjDaEEygg1xglH0yB5R9DkWNH +CbRd5ffHg3ZrWqeeTjSB75oL4s/Rdlba4zFygsC0Iw4yL2i/qVwanXeSwA4V +5UcLtL1s8/I8UwmUuvIlTHMXBR8H1jeJZRIYCG4GXrTHloWJxF8mUHC31wSH +9oFcQX32NQKfBB0bek17WqfQYzKfQMeD23/8pn28yTT6zm0ChVNbhSRC6Pfv +1ZvnX0rgX5/0Ddq0k34cbpItJ1DBaW+SDW3BRNGx1/dph+t88qWduapEJLWW +wIr0m67htCU5Fvpm9QQScmcHE2hf2Tjo8fcpgbUbnyScpc18Exld8ZzAqD5e +0xzat3ZL5oe2E+h/WEnqJm017rIm5dcEzlmMLS2mTZ3fPNb7hsCPhhriJbQN +VIZELvQSaDFQsf4O7dqHsfp2gwT6JDqfKKRt4izryTdE4Oiqni/XaT8buhf9 +cITAchAJvkjbJtIx/9AE3V/Quew07VcrRps0pghcLTLeEkl7a0Hi2JdZAn96 +GpC7aP/HYormLhCoFRpdsYW2b1uNvus/DFwDl3vX0/6yY6un8FIGSh3wXqtI +O2R6IrpRgIGcLdezeWmz9gWIfxZhYBHbcMsgXe8lw2+LeCQZWLfU434N7S5f +uw0MWQY+4ZGuz6Cd/66haz2Tgac9Tob50w5zNgjxXM1AYnVtuw5tk5biRRGq +DPzu09zNRbv3wTnVu3oMvHeyaTiV7o9iff76V0YMfNb/ddqedgTn+NZxZGBL +JFYI0Ra/HhirYs3AXYK/TeLo/vwo/Z+EpT0D0yJSxAxoU5n2dwJcGKgs2XDx +K93vdvGGPde2088LTmowoS33987uh34MFEt2Ch6m52UknMnzficD+UiDplTa +SUHL1CXDGDjh0lHWQs9bnfX7uNQkBmpfXOqpSM9n6mMHqeLTDEw97DVI0vPs +yX5a0pTBwA8TX1SMac+ol7755woDg77pLjbfQcE6kRiNoyQDi58azOjS+cCV +PPk4q4Jez86btwvpPGnlCXavqGag5ZFsZWnauyYd4yeeMDDB6EnsBJ0/eT2K +7wLfMrCkbtvoETq/9jtc3Bvfx8C4ZGmxTg8KsFmA98ZHBvax+gRVaL+vntLs +HaPrtWAf3+ZG1yunMcGZh4laORUXftB5+FGCLbN/CRP7k09Ha9Om0kjyjAAT +BfsZ5vtc6HrFZv/XLMHEuiUh+wfpPE3yD1m3QZWJNuor/K7T+TujItyr5sJE +Zt6O5mQ6z6euSMdouzORr+t4eg6d97+ElBQNt9P3358fwDGn5/mnYfDGnUzc +k/gZmjZRMFC9Y8o9konedyXau+n9pNn6nmBSPhN7vtoc3mlI93vtI/L0bSby +hvNQtgZ0/mi8cM4sZaLSVxcBLX0KHoj2Z1+tpP+/t1FtVIde/zv+1XdbmDi7 +4Z2BqSadh7u8YGCSSZ9X/NIDlSm48D5o4MssEzc/9Toqr0TBWbsD8aML9HrD +GZc6Fej3qZ30fHqpAt6ql4vRo/fT2Dlyq5CcAja/+cH/ht5vdyUv3mtspoAm +ytn62cIUGBcV554/r4BC9f6y4tMkvCOKcjZdUkDx+4/sMqdIiDhfePVXjgJe +EfIwFJwk4V5MwWXHQgVcefS63vwEfR5wzc0SrFHA5Bn56YffSFiz+GxaQr8C +2k2/SnnTS59/th+NDldVROMUhwd+DSTc7TwSpaSliEZLk+eyH5HgbHX4eKeu +IoZVJYq2PSQhQ/fgsXWgiD2i9j2aNSQILN9zeMxBEaNGXna+LSfhn0rfvQGH +FDHSXDWriT4PTYhYeW+pV8Suz5espBNI6Alhtgc/U8TxLDKvP46EuqezEPVC +ETctG71REENCWkSR/K0uRaTUGi6siSRBc2B538ywIraKRh0XDSMhlGzbdkVU +CSUKas8d9iFh2M7F46OfEmpfbfTPYJHwMcV7y34+ZTxtrqng9pkDocOqTM3l +yqjnebzt8SAHfpvPjI4KK+MqveZ69X4O8PNkxO+UVsbGg65x8+84oHmkodxb +TRlXBuCZhJcciPRXFrVzUkbtWr5h8xoOiK8faVPJUUbRDaK709I4YPn9kOUn +vdWYdc2h67gOB0Z2LDlQHvUv/myKFXhSXkJ/r0hwJ9avQVbVp7OzH4pBpEU5 +lfN9LW7TVJ04IVoEMkml9np6quiiWJG2Q7AQslQMhUUD1fCY4OzsXcWb0Cy9 +QfdnujoWDhwYebwpH1gy9WkaXRq4CWcqu81ugCDP9TCfWE38de6C4KrD10Au +Rt7YTVkLLSU9vner58BSJc8Kx2daKC3udmmavATqbKnSQ9vWYZ+v9aa4vCzY +3yvSYMWljRN+1+z908/B958pLpZZ2thutYz70mgGmGs8zbZU08H+qvZx7TNp +8OCn0dzvVh2sTr0RqXgoBUJV17196a+LurNmpV/Sk4A95tfptlQPQ3eX8dm0 +n4BNipKbBa7rodqZhbOx92Pg3+hTh+v19XHk9qyul/RxWOtv+FDprT7ebT7Q +skT4CPg/CDpRvs8Ae4SYrbu5DsLD3E6/iZWGOBTSvjzFaB/8urXwW+OeIe4J +Dxb30AmBHUpFS7M3szDRoUYqxTQQIp54BSvbs3Cz2bLjfRqBkOYv8pxyZKG5 +o7vWBplAqMk/kvJ8KwvrZk74aUwGgJiyhdC8Dwvbd+2SrrgZAE+VP4l5h7OQ +Oybxnr9QAKz9V55QzmHhe029Vyu/+sHE2kw9apyF0UE99dyPfaHnBW4S/cnC +GIJnvq7cF+pCx5zCJll4+eri+ZP5vpBKWe7Tm2XhrQRTPeNEX1jL4iqu4jFC +rZsTg4S1L/ha7mY0iBvhGW+XT586faAz0Hx5p7ERZs7539MZ94b7eXP9k0lG +GLdFZa/xSS/QMw37bZVshCfAqnv9Xi+42z+yPPe0EfJpnl7ttNULKLlefasM +I+TXueNGKnlBcVbd6auXjPCt2qEPJg3bIDcl3tC8xAhnppwCyEXb4GSYUHpW +hxE+mlh0PizZA9w3KqCRnDHOuDLrfdtdYb5ziWADYYzaIsuOPK90hVz/sXdW +CsZYfC/IxeyGK3xOqDzk/q8xXjYwtt0f7gr7m+xKj6wzxsb+09+vybrCKdtj +cvfNjNFJMCTSZc9WqHJ9/UdnjzH2i/jbVstvgVW7EyvV64zxHt9dPS7KCVIX +AnST643RgX/k4MtcJ+DOMCO/PDZGscBXfJwzTjBcsbgwt8kYP5mMcZ3b7QRV +XCeyRDqMUWnzii3za5zA/Wz0oalPxvi2fREf5jtCVvUR3QfL2ChupKDtmO8A +K/lDyM1b2fgq/ZhCZaYd5JlGRoy7sVF3cfUNVpgdrItMNc30ZON2symjHmc7 +sB3nvO7xYaNDKO/2QHE7SOianNkRwkZD8TKZjmxbmL4eZRIRw0Zv7jN8rbc2 +w1ujzI6CIjZe61LIq+uxhqCDeZctS9ioX+9LXq6xhqmSu/4jHDYKWHw2yci1 +BhFmz2+tCjZGfNt5oynIGqyXyMrU1rGxq6lBK3DWCmo6C/w6XrPxaHCGvw3T +CqwE76uF97DxpZ3kiXt8VtBj3jQl+Y6NKoPTY6xRS/hV9S3J6wMb20uDt526 +bwlq1zTvfB1m46Pzi05a2ltCzdsN4SmjbPR6NjcZpmcJVmJOoDHOxg+edRL3 +ZSwhIPHgy7BJNgp9rlGP/2oBv+oSsiWm2Xil9dJfwXYLiJ29sKNqlo1ufzMM +OBUWIKxTqLptno2mNSLNQVcs4OruqsmFBTaGtJzPNThhAf8DAJYqGQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.071970825592167}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.071970825592167}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993920528413212*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"b075afed-91ef-4e62-ba87-17d45c99e119"] +}, Open ]], Cell[CellGroupData[{ @@ -5684,66 +11679,76 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[282]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + "In[121]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.443621462424051`*^-173\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 282, 273, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269930374*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.356025523176209`*^-142\\\", \ +RowBox[{\\\"\ +257637673519649270217965438245428568131597200085202201208143960400132\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3853705134253980954253210971658303947407360000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 162, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.993920528455818*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], +In[121]:=",ExpressionUUID->"e74559f1-e200-4fd8-8481-65f65ad982c6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.352709009016139`*^-176\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 282, 274, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372699413757`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1230845421953202`*^-144\\\", \ +RowBox[{\\\"\ +990359217009531794717859144615427415897859637127517261444105383778111\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3642536072302788149342975054520373833891840000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 163, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.993920528465128*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], +In[121]:=",ExpressionUUID->"a314b699-ac63-4298-8e3e-5cac9519b162"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.488155146821548`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 282, 275, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269949375*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.353587541860163`*^-147\\\", \ +RowBox[{\\\"\ +393073573231083169323518294497863141369860489975911601067165426821532\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"36\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7225670969766164742267991391363746716712960000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 164, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.993920528474029*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], +In[121]:=",ExpressionUUID->"b5b5f75c-32eb-4df5-8618-81d4c43ac355"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 282, 276, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372699573765`*^9}, +during this calculation.\"", 2, 121, 165, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.993920528480637*^9}, CellLabel-> "During evaluation of \ -In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], +In[121]:=",ExpressionUUID->"362823eb-7c5d-44df-b920-21d39e12d3e5"], -Cell[BoxData["9.332200719005147`"], "Output", - CellChangeTimes->{3.9913372766841774`*^9}, +Cell[BoxData["10.72256841114164`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9, 3.993920577475821*^9}, CellLabel-> - "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] + "Out[121]=",ExpressionUUID->"22140ff3-d628-4c58-b492-f6791f2fcf68"] }, Open ]], Cell[CellGroupData[{ @@ -5810,68 +11815,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494640512295`*^9, - 3.991849468375696*^9}},ExpressionUUID->"53e25fab-b431-cc42-a467-\ -e4dea0353ed0"], + CellChangeTimes->{{3.9918494640512295`*^9, 3.991849468375696*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 277, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767181473`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4747128769700926`*^-214\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 166, 31385385850037802788, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.993920577520138*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], +In[122]:=",ExpressionUUID->"cbdf99ad-2a53-4fac-9303-c3d09aa2a9e8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 278, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767281475`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.651585214543215`*^-220\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 167, 31385385850037802788, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.993920577526857*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], +In[122]:=",ExpressionUUID->"7006ad55-b848-40ba-b938-98e49ab662d3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 283, - 279, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372767351475`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.000149151557667`*^-225\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 168, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.9939205775338707`*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], +In[122]:=",ExpressionUUID->"1c52bead-48ce-4589-9bad-357fa71c80cc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 283, 280, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337276743145*^9}, +during this calculation.\"", 2, 122, 169, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372767181473`*^9, 3.993920577540979*^9}, CellLabel-> "During evaluation of \ -In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], +In[122]:=",ExpressionUUID->"6aea7fb6-ff88-4732-bb65-b929e28e1b96"], -Cell[BoxData["0.5406905105605413`"], "Output", - CellChangeTimes->{3.991337284091696*^9}, +Cell[BoxData["0.07866234421065578`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.9939205840780897`*^9}, CellLabel-> - "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] + "Out[122]=",ExpressionUUID->"28070218-7342-4c54-8412-1c3b7375c034"] }, Open ]], Cell[CellGroupData[{ @@ -5892,8 +11901,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5938,68 +11946,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494737320137`*^9, - 3.9918494774550457`*^9}},ExpressionUUID->"b18c819e-620a-d449-97d6-\ -547e3a6fa152"], + CellChangeTimes->{{3.9918494737320137`*^9, 3.9918494774550457`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 281, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284131695*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4747128769700926`*^-214\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 123, 170, 31385385850037802788, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.993920584120269*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], +In[123]:=",ExpressionUUID->"d5698e8d-1ca7-4d22-b3d1-f06629d1181b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 282, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284142767*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.651585214543215`*^-220\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 123, 171, 31385385850037802788, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.993920584128124*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], +In[123]:=",ExpressionUUID->"e2cc76c2-3624-49c3-8906-fc0f6d990f5f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 284, - 283, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337284150778*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.000149151557667`*^-225\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 172, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.993920584136044*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], +In[123]:=",ExpressionUUID->"21c410b9-6bad-4d1c-9ff8-f02df63a8b0f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 284, 284, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372841597614`*^9}, +during this calculation.\"", 2, 123, 173, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337284131695*^9, 3.9939205841424723`*^9}, CellLabel-> "During evaluation of \ -In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], +In[123]:=",ExpressionUUID->"a1352f2a-6374-4ddb-ac91-6f4e43b33c52"], -Cell[BoxData["2.9943030245183917`"], "Output", - CellChangeTimes->{3.9913372907074146`*^9}, +Cell[BoxData["30.4828756032215`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.993920590192585*^9}, CellLabel-> - "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] + "Out[123]=",ExpressionUUID->"5dce995c-33b2-4c51-aa25-671a7a1566a2"] }, Open ]], Cell[CellGroupData[{ @@ -6020,8 +12032,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6066,68 +12077,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849482271084*^9, - 3.9918494852683945`*^9}},ExpressionUUID->"22ab74c7-5916-9440-9d7d-\ -c3e0f6ab8836"], + CellChangeTimes->{{3.991849482271084*^9, 3.9918494852683945`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1126821353218566`*^-190\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 285, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337290744484*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4747128769700926`*^-214\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 174, 31385385850037802788, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993920590247759*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], +In[124]:=",ExpressionUUID->"bc9d35db-39d8-4fcb-ad00-8da8c494862a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0111242895395887`*^-194\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 286, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337290753483*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.651585214543215`*^-220\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 175, 31385385850037802788, + "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993920590256575*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], +In[124]:=",ExpressionUUID->"d1cd2348-c914-4e96-9ca5-54aae63b056e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.188359338592283`*^-199\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 285, - 287, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372907615204`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.000149151557667`*^-225\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 176, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993920590265243*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], +In[124]:=",ExpressionUUID->"5cd5e53e-f3e7-4fa9-816b-5b3f15d02f6c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 285, 288, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133729076952*^9}, +during this calculation.\"", 2, 124, 177, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337290744484*^9, 3.993920590274396*^9}, CellLabel-> "During evaluation of \ -In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], +In[124]:=",ExpressionUUID->"af5d9b9a-9169-4332-bbfd-ac4195a6a9ba"], -Cell[BoxData["16.72305770548981`"], "Output", - CellChangeTimes->{3.991337294569908*^9}, +Cell[BoxData["3.0426481271206205`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.993920594011722*^9}, CellLabel-> - "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] + "Out[124]=",ExpressionUUID->"c342bbbb-9475-4740-91a3-f8792352c3cb"] }, Open ]], Cell[CellGroupData[{ @@ -6136,22 +12151,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918494889040737`*^9, - 3.9918494971484394`*^9}},ExpressionUUID->"f9c66987-c237-7a40-a006-\ -e20e260dbdcb"], - -Cell[BoxData["0.07640873836855284`"], "Output", - CellChangeTimes->{3.9913372946009064`*^9}, + CellChangeTimes->{{3.9918494889040737`*^9, 3.9918494971484394`*^9}}, CellLabel-> - "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] + "In[125]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], + +Cell[BoxData["0.008167949660903631`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.993920594049549*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"2fc389b4-7aa3-4938-80e9-96a01bf0d72c"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, - 3.9919248636163254`*^9},ExpressionUUID->"770a9ed7-7938-9e48-be64-\ -c31719ef3a6b"], + 3.9919248636163254`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ @@ -6174,12 +12190,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + "In[127]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[BoxData["7.13574266196526`"], "Output", - CellChangeTimes->{3.991337294629921*^9}, +Cell[BoxData["15.747296122307985`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.993920594063676*^9}, CellLabel-> - "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] + "Out[127]=",ExpressionUUID->"b3cb48d6-85a5-4242-b77c-24c8c382ee6f"] }, Open ]], Cell[CellGroupData[{ @@ -6189,12 +12205,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + "In[128]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[BoxData["1.4042291233212119`"], "Output", - CellChangeTimes->{3.9913372946629753`*^9}, +Cell[BoxData["1.3271721084037533`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.993920594073824*^9}, CellLabel-> - "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] + "Out[128]=",ExpressionUUID->"b2be61d2-c76e-48e1-9e90-1ebdac35dd59"] }, Open ]], Cell[CellGroupData[{ @@ -6204,12 +12220,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + "In[129]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[BoxData["10.020217662457247`"], "Output", - CellChangeTimes->{3.9913372947367725`*^9}, +Cell[BoxData["20.899372196301737`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.993920594083536*^9}, CellLabel-> - "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] + "Out[129]=",ExpressionUUID->"cc35a52e-fa1d-4141-a924-597019081f7c"] }, Open ]], Cell[CellGroupData[{ @@ -6399,12 +12415,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + "In[130]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[BoxData["0.06674599726273667`"], "Output", - CellChangeTimes->{3.9913372947513313`*^9}, +Cell[BoxData["0.006691927760838611`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.993920594096558*^9}, CellLabel-> - "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] + "Out[130]=",ExpressionUUID->"12ccd5e1-60cf-4530-a415-587575938b92"] }, Open ]], Cell[CellGroupData[{ @@ -6418,12 +12434,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + "In[131]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[BoxData["3.430301770911147`"], "Output", - CellChangeTimes->{3.9913372948636913`*^9}, +Cell[BoxData["10.833513244881877`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.993920594193898*^9}, CellLabel-> - "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] + "Out[131]=",ExpressionUUID->"5240da23-2a8e-4254-861b-6d7560ea6673"] }, Open ]], Cell[CellGroupData[{ @@ -6615,12 +12631,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + "In[132]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[BoxData["0.01266539131451536`"], "Output", - CellChangeTimes->{3.991337294877693*^9}, +Cell[BoxData["0.04636496712133889`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.993920594206607*^9}, CellLabel-> - "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] + "Out[132]=",ExpressionUUID->"8262c35d-c076-44f9-b3f8-2fbda9f2e467"] }, Open ]], Cell[CellGroupData[{ @@ -6634,12 +12650,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + "In[133]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[BoxData["7.874729317258519`"], "Output", - CellChangeTimes->{3.991337294976324*^9}, +Cell[BoxData["4.115759247060289`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.993920594314355*^9}, CellLabel-> - "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] + "Out[133]=",ExpressionUUID->"47b75e34-93f5-46d0-84fd-36149bd9fb7d"] }, Open ]], Cell[CellGroupData[{ @@ -6732,12 +12748,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + "In[134]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913372950022793`*^9}, +Cell[BoxData["0.06727285695077176`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.993920594323784*^9}, CellLabel-> - "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] + "Out[134]=",ExpressionUUID->"26fd4fab-3809-4e37-b4db-e7a1ec2b757e"] }, Open ]], Cell[CellGroupData[{ @@ -6827,12 +12843,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + "In[135]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991337295013279*^9}, +Cell[BoxData["0.9327271430492282`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.993920594332889*^9}, CellLabel-> - "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] + "Out[135]=",ExpressionUUID->"03f08e0d-b2a1-4498-86ea-7bbb701036a7"] }, Open ]], Cell[CellGroupData[{ @@ -6955,12 +12971,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + "In[136]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.991337295041279*^9}, +Cell[BoxData["0.06274721966845274`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.993920594344706*^9}, CellLabel-> - "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] + "Out[136]=",ExpressionUUID->"18d6bea6-cded-4718-8912-8b6d5764048a"] }, Open ]], Cell[CellGroupData[{ @@ -7022,68 +13038,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849517192892*^9},ExpressionUUID->"55d51961-97f2-ed4d-8bf8-\ -8a461d652ab4"], + CellChangeTimes->{3.991849517192892*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 301, 289, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950662746`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3635819503850907`*^-209\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 178, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.993920594358308*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], +In[137]:=",ExpressionUUID->"f7059fc4-ab6b-4d36-b676-337deb73fe40"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 290, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337295076277*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.770765902793814`*^-214\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 179, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.9939205943669863`*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], +In[137]:=",ExpressionUUID->"190ee6b0-9116-4a8e-ac0e-d7cf1345fe79"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 291, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950842743`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.766657579624095`*^-219\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 137, 180, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.993920594375926*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], +In[137]:=",ExpressionUUID->"4935b060-dce8-4589-be53-e0f9064efdb8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 301, 292, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950922775`*^9}, +during this calculation.\"", 2, 137, 181, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.99392059438428*^9}, CellLabel-> "During evaluation of \ -In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], +In[137]:=",ExpressionUUID->"6d439ecf-d384-41d7-9410-cef6cc1290cf"], -Cell[BoxData["3.430301770911144`"], "Output", - CellChangeTimes->{3.991337298790371*^9}, +Cell[BoxData["10.833513244881875`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.9939205979115067`*^9}, CellLabel-> - "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] + "Out[137]=",ExpressionUUID->"82c0ca98-8fa5-426b-bfb6-8e7ced114f2a"] }, Open ]], Cell[CellGroupData[{ @@ -7145,68 +13165,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849520751028*^9},ExpressionUUID->"9704b9d3-b449-2144-9970-\ -6a7de047241d"], + CellChangeTimes->{3.991849520751028*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 302, 293, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988243732`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3635819503850907`*^-209\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 182, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.993920597955627*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], +In[138]:=",ExpressionUUID->"33fe3a15-d96b-4d1d-b83e-55532be71c22"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 294, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988343716`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.770765902793814`*^-214\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 183, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.9939205979649467`*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], +In[138]:=",ExpressionUUID->"b96aeeba-0393-4df8-af8d-eaa3258c9062"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 295, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988425922`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.766657579624095`*^-219\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 138, 184, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.993920597973727*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], +In[138]:=",ExpressionUUID->"94da7b46-8c70-4fba-90a3-6960a4921ff9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 302, 296, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988505898`*^9}, +during this calculation.\"", 2, 138, 185, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.993920597980776*^9}, CellLabel-> "During evaluation of \ -In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], +In[138]:=",ExpressionUUID->"df713507-1dc8-4fa3-a972-b8fecccc3fe1"], -Cell[BoxData["7.87472931725852`"], "Output", - CellChangeTimes->{3.991337302457178*^9}, +Cell[BoxData["4.1157592470602955`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.993920601479968*^9}, CellLabel-> - "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] + "Out[138]=",ExpressionUUID->"8680b73f-2faa-43ee-b5ef-018691ee897f"] }, Open ]], Cell[CellGroupData[{ @@ -7264,94 +13288,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849523511486*^9},ExpressionUUID->"0fd90636-7592-fc40-bf9d-\ -ae1cb915c656"], + CellChangeTimes->{3.991849523511486*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4Fe0bB3DZs5TIUiJrQiRkS567HGQJEZElHeeMSCkkIRTqFclW6S2R +LUSSVHZ+qbwoIkuL7Ofo2JehlPo9/phrrs91z33Pd56ZeWSpfnZ0djY2tjF8 +rJ7PvldXetH+3giqB0ZrvjKQ0VTObiqlCO23fShaiz2QoZOqQKlGn1uWclZt +S3vHLaD1GlXs6kipwy4NjnjFRWlF6ld0huqxY99I1EcUfkDn2hQS/4dd0X72 +/m/NLuQkmp7eiM363Bx2oaoX3TqewfcWe/OovMui8VcUU6fa8x+25XSYfkBr +PzpsuJ/jHXbtbxZ/cOEgWmYMJbRjd18SD31+ehhxtAuGfMSe4qawFjRHESff +q8ZebO74M85aSwy0voDdrw9bekN609mqMST1qjV4CNtacjFvyngCPWhiezSJ +TWTKianxTqG6MZ/OeewIRZuYk63TaNvkMZdl7F7xj7sCC2eRxdbxWN4+BqId +9fFOiZ9DBTcuaQhhz9xje/D09Dy6752tI4HNK6cmNKtJou652OPK2Km0V2ZC +oouofc76iia2zEPniJ1LiyhvJYPPEFtvx5WpU1U/0OQYY5ct9gmd/laW8W9U +7CX4Kwx7IfgcJ9+2FeTLpbclFjuyit9QmfcPmqHM3LuJnQZ6j7xa/6K6m3w1 +Jav5cpso/oVrIM558vwYduGblIFLkuyQ3Bl3c2k1L9M9LCmeHZQWK4R5vjFQ +mApZ9uQ0B9x1fqOqhJ1aIis/rckF13497D2J/bl9ovZPNhd8Xd86dxFbZu7F +0XWi3GBhfNk3EbtI2zpZbYkbzGh54c+xGytC1vhW8YLr+R4pnn4GIl919o8Z +C4DF4K4DldjCVgJCobUCcLnaj/iIrfGRAoL6grCwmZecwvYZKc/cpb4OuIst +PBUHGOgMe6vGXgEhCKtUir6NPSr3eDZmcQPE/X7XkziI14doXtumJQwPO1Z+ +lWKzP2LISpwVhqzTyYmd2DJaW+0Kx4XB8esEn8QQAx01Tnz6fkAERO1CKXnY +bZ7+AeItovAkrqilZ5iBvj1MiPPgFYNdJ6MX/2JPjBdmF5iIgXL5u6TtIwzE +FzjcuadeDDo5X24KxaZEH9b2KBeHkVBOP8VRBqrM0SHzMzYBW5ulxg0GA+WM +LgcZBErBsZirG198Z6ADDle/BRRLwaflqbLv2BONIqbFDCmINg8t38JiIO2c +HaIyztLQtoe7Pwq7kepexmW0FXyPsLU6jjPQ3PTA+bEoGdhnQl23fpKBRE5R +npUdlIPCgK2G/80wECOH74StjxxE3JaQ451loJdf2yUnr8iBr6aTjxm2q5Vb +1LZ6OXA9VyL7FjtHNcjujqY8fFDoV22Zw/dnPZwJF1eAHH/bktEFBjrsxa9m +MagIcQpGobSfDISCHDSPrCgCK79v12NslZgMXdqmbZCpvsnsBzZbttb+8EPb +4Iqv9/XrywxU/M3lyNOGbWBlmRJb/Qv/n45FlzZnKQEnXWffjj84H+VgN4uq +DONcTi/sOJgo2/72l6VwZTjeLUbJx06gDg5w3lWGopX0nX+waZHnxqU7lSEF +8cs/4mSiDdXpbPbGKrD1ZFzoWm4m8tGaUqmSV4UL7EELPbxMJCl3IyJuZAfY +X+wTql7HRNXXFpR/sqvBkeaUOsX1TOQ67/yRkFWDanXBbzew7zcqKO93VwNW +9SEfuhATyXlVdvzoUYPwLrd6UWEmUikaVSRa1MEvyosWJ8pEUpLShIyzBjz3 ++HC3eQsT7cgNFPiFNKElKcPizg4motKiSDVrTdDVDxMQU2OiNPnkbx6umpCT +qaWRgs2RVfLkTbAmfBHek56gzkSf77MOJ5dqgkkUU/CaBhPFpnmkK8trgeaz +ZMsUbSZixFmpO3Frgxmng9m0IRM98FewLW/dDcQ/t2reWTNRexDSjc7VB1n2 +gXMfQphI1r3L2s13L8QrE+ski5mI/vf5Y6kLAH18HD0eQ0wkPv6SR5y6H7p/ +b02Slx9DgVqGX5NVKPBF1F5dhxhD1MnfTSIsExiKHdLe/XgMFe8P4MloM4OW +5LQGF47vKGfBp6Eo1Rw6VJej/J2/ox/7JN41RlhCd9dTNp7a76iPjWN28PhB ++JW5oiS7nYVOb/FLvCRvA9VRJa25SSz02Lup/maMLdz1vSRlwD+OQuY3Lal6 +HwLhoefFzlHjiLQwdXx7zA78n5zJzReYQPouSftGD9mDjFe/yo1/J1DHpnSf +Rq3DYO5wM0xScRJtzouqzt/uAPA+1aO9YRK9HFCxshZ0BOP6wN455ykk/XHG +K2jSEfK7DjD3LkwhrZtJRdkDR2Aw9VblUuY0SuecV09+5QRXK+w7nOVn0PN9 +Oz/HVDjDtSP87Q4RMyhN99qG34VH4Wbrvt6QLzOo7UvuFa14F9DRPmT3THMW +lR+8p3Am0hWyNnZFGiXPotlT9mynaW5QZBxb93V8FpGmyiemjN2hi8e8MM94 +DuVPfvoRoHMMBq8m6FGy5pDTg1xPNwEPKJNm7XP7OYfKnloe47jqAZz/3uFr +c5hH+pIdP2N/esB7a6Mj9wrmkfyA1+cP3sdhoLZa49WPeTTCf9Lm3vBxkPMY +0oi2WEDtCdaeZg5UWHkaaWSavIBSgzP4z7VTgf1Uk7Pt5wVUXfv3p6e5JwTY +KB2J2Eyi9a5wVavSE0w8s9qGbUgks/Ft25ZqT0hWE6qrtiWRRutBCe5aTyAU +9dVvHiKRnaFLQW+DJ5QsicZR7EmUuiWo5eJ/ntA8csYg3ZFEm/serW/q9YTL +Ff9a6riRSMFdPM11yRNe6DpLcvuQSN9jKj9Gmwa22aYdIpdJlHdnJsBahwZ1 +bV/N6rA3ds4ZievRgJEoZ+ITRaIpk6WP+Xto0FVl2l0bTeL9i21N634afOKv +sqFeJdG6pQ3OwodoQHn9KSY5nkQj13evzThFAxsths7tWyRKqArzfplHA+me ++QLVAhKd0rytH5xPg2rZR77l2FYFpWv1Cmnwlle33KiQRHy3GQUvimngHu/X +Y/OIRDH+tqznz2gw8PSLm28xicKUFU6W/48GccEP3BNKSeRzu8X36TcaONwb +SDlXQSLzdQxD/wE8byVkdBp7ewyboOYQDfKaFCu9K0nE8N9dXDpKg1495wmX +KhIdt86YfDKB8+sunDWoIZETV8DpkmUa/HGVm+mvJ5FZwOYzRWJ0iPZ+q9b6 +lkT/y7hikSxBByW/2gbURCLD1jmF4M10ONxSV/cUW0Ox5ZOxNB1id0T/vPUf +iTb1hBp/UaQD62z8cacWEo0b9Inx7aZD0NuG6dr3JLrBnlnjZU+HG6l/Tm7u +ws+/UyDtoAMdjOU1xUKxo12C/bWO0OGQSY3SF+zgZ7ZKf4/SAVXERd7pxvmJ +NUm3qLhfl8W9vpdEWs1U2uuzdOCeF3fs+0yiniRFfvlEOnyRaYvgHiDRYyR4 +YiyJDi+y9ZqssaMnFxqLU+hg4PIm9ha2pnljuN5tfP1ayWCFQfz+2DznDt6n +QzabGZvBEIlM/TI/BRfRYUFlpMxyhERSUv/oGD2mg4V4zT9x2AvNfikcT+gQ +ELPU1YydtQ0dTCijg0+45yezURKt9PXVZ1fS4aVJ/+U9DBI9s5LMf99EB1vt +Gce1YySKW2bnSm2mQ05dfRFgU/NZx51b6cAjfCDkPLYQZ6XkSBsdVgrtw4ax +faucbvzspkO9g61k+XcSyavcClIYpUPXvepqo3ESLfdc7PzOoAMlISH2FHZ7 +DF2jZIwOnU3R7+5ihw9qs/Qn6CDRXl25iP05rdPNZp4Oy5fOK+dNkCiZZ4NJ +yBoCVN5bHBqfJFH1XJ9LIAcB5K21i6JTJGL2Ffqf5iKA5pMzjbANn1EyqWsJ +4I0/MJiEzfAI/mWxgYD4NMsatWmc38pE2ESEgJl/WDz22Ht0hZWRKAFfpaUf +nsdOFCxy1NpEQAhVbrh2tV7ZXyopS0Dh6wZbkxkSEblFTaLyBKjZKSE6dmLi +hf71igR4Vw1fisZmECKCnMoE1EuacDas1kXMTkxoEOBuOfVr1yyJKv+IRDA0 +CZBlHoy3wh79PnBzQJsAlkH7GQLboD7k1Uc9Aly7FXXSsEd8H0vXAAGZjJDS +eex1TqG7X+wnIGuvwxDvHN5PjA9YlVIIKO5Q8pLCTtg0dCH3AAEtztm+FOyX +nCWJGRYE7A03nnTEHp4OfXjHioAwk+aGE9h6b0S7rtsSUNESSlzDppYOjV+1 +I4A+f1/nX+zr90rYLx/G/TfuHC3AHvI31whyIqA8g+f+a2xBdzGzM0cJSCkL +rOlYnWc+7ObjSgBfSJFG/2r/1otx7h4ERPKeFV5czcNnkeVEJSAw70ck2zye +R4pV2NEIWMoCYz5swcHhNiuCANVmU2cRbL3WJwzTEwSsW7/2lSQ29cXFFfAh +IDouJlIe+3qWxcY9vgRQIiuTVLBfXhdX3X2agOXDeYsaq/ODR/btPEOATJpZ +iQ62AK3USdkfr//fe1V7sHVtwv3kA3E/kSsJq/MNLK9IBRHwvP1YmzF2vKJE +ungw/n5OtHSbYj8XGi3bEILr4cxd5tiDv0qb+cMIEIkrG7BYnc8MH+QKJ4C6 +Y+ewJbZOh+WPvxEE2Gw/qm+F/X9zuzJG "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7365,106 +13389,106 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc +1:eJwV1Hk4Fe0bB3DZs5TIUiJrQiRkS567HGQJEZElHeeMSCkkIRTqFclW6S2R +LUSSVHZ+qbwoIkuL7Ofo2JehlPo9/phrrs91z33Pd56ZeWSpfnZ0djY2tjF8 +rJ7PvldXetH+3giqB0ZrvjKQ0VTObiqlCO23fShaiz2QoZOqQKlGn1uWclZt +S3vHLaD1GlXs6kipwy4NjnjFRWlF6ld0huqxY99I1EcUfkDn2hQS/4dd0X72 +/m/NLuQkmp7eiM363Bx2oaoX3TqewfcWe/OovMui8VcUU6fa8x+25XSYfkBr +PzpsuJ/jHXbtbxZ/cOEgWmYMJbRjd18SD31+ehhxtAuGfMSe4qawFjRHESff +q8ZebO74M85aSwy0voDdrw9bekN609mqMST1qjV4CNtacjFvyngCPWhiezSJ +TWTKianxTqG6MZ/OeewIRZuYk63TaNvkMZdl7F7xj7sCC2eRxdbxWN4+BqId +9fFOiZ9DBTcuaQhhz9xje/D09Dy6752tI4HNK6cmNKtJou652OPK2Km0V2ZC +oouofc76iia2zEPniJ1LiyhvJYPPEFtvx5WpU1U/0OQYY5ct9gmd/laW8W9U +7CX4Kwx7IfgcJ9+2FeTLpbclFjuyit9QmfcPmqHM3LuJnQZ6j7xa/6K6m3w1 +Jav5cpso/oVrIM558vwYduGblIFLkuyQ3Bl3c2k1L9M9LCmeHZQWK4R5vjFQ +mApZ9uQ0B9x1fqOqhJ1aIis/rckF13497D2J/bl9ovZPNhd8Xd86dxFbZu7F +0XWi3GBhfNk3EbtI2zpZbYkbzGh54c+xGytC1vhW8YLr+R4pnn4GIl919o8Z +C4DF4K4DldjCVgJCobUCcLnaj/iIrfGRAoL6grCwmZecwvYZKc/cpb4OuIst +PBUHGOgMe6vGXgEhCKtUir6NPSr3eDZmcQPE/X7XkziI14doXtumJQwPO1Z+ +lWKzP2LISpwVhqzTyYmd2DJaW+0Kx4XB8esEn8QQAx01Tnz6fkAERO1CKXnY +bZ7+AeItovAkrqilZ5iBvj1MiPPgFYNdJ6MX/2JPjBdmF5iIgXL5u6TtIwzE +FzjcuadeDDo5X24KxaZEH9b2KBeHkVBOP8VRBqrM0SHzMzYBW5ulxg0GA+WM +LgcZBErBsZirG198Z6ADDle/BRRLwaflqbLv2BONIqbFDCmINg8t38JiIO2c +HaIyztLQtoe7Pwq7kepexmW0FXyPsLU6jjPQ3PTA+bEoGdhnQl23fpKBRE5R +npUdlIPCgK2G/80wECOH74StjxxE3JaQ451loJdf2yUnr8iBr6aTjxm2q5Vb +1LZ6OXA9VyL7FjtHNcjujqY8fFDoV22Zw/dnPZwJF1eAHH/bktEFBjrsxa9m +MagIcQpGobSfDISCHDSPrCgCK79v12NslZgMXdqmbZCpvsnsBzZbttb+8EPb +4Iqv9/XrywxU/M3lyNOGbWBlmRJb/Qv/n45FlzZnKQEnXWffjj84H+VgN4uq +DONcTi/sOJgo2/72l6VwZTjeLUbJx06gDg5w3lWGopX0nX+waZHnxqU7lSEF +8cs/4mSiDdXpbPbGKrD1ZFzoWm4m8tGaUqmSV4UL7EELPbxMJCl3IyJuZAfY +X+wTql7HRNXXFpR/sqvBkeaUOsX1TOQ67/yRkFWDanXBbzew7zcqKO93VwNW +9SEfuhATyXlVdvzoUYPwLrd6UWEmUikaVSRa1MEvyosWJ8pEUpLShIyzBjz3 ++HC3eQsT7cgNFPiFNKElKcPizg4motKiSDVrTdDVDxMQU2OiNPnkbx6umpCT +qaWRgs2RVfLkTbAmfBHek56gzkSf77MOJ5dqgkkUU/CaBhPFpnmkK8trgeaz +ZMsUbSZixFmpO3Frgxmng9m0IRM98FewLW/dDcQ/t2reWTNRexDSjc7VB1n2 +gXMfQphI1r3L2s13L8QrE+ski5mI/vf5Y6kLAH18HD0eQ0wkPv6SR5y6H7p/ +b02Slx9DgVqGX5NVKPBF1F5dhxhD1MnfTSIsExiKHdLe/XgMFe8P4MloM4OW +5LQGF47vKGfBp6Eo1Rw6VJej/J2/ox/7JN41RlhCd9dTNp7a76iPjWN28PhB ++JW5oiS7nYVOb/FLvCRvA9VRJa25SSz02Lup/maMLdz1vSRlwD+OQuY3Lal6 +HwLhoefFzlHjiLQwdXx7zA78n5zJzReYQPouSftGD9mDjFe/yo1/J1DHpnSf +Rq3DYO5wM0xScRJtzouqzt/uAPA+1aO9YRK9HFCxshZ0BOP6wN455ykk/XHG +K2jSEfK7DjD3LkwhrZtJRdkDR2Aw9VblUuY0SuecV09+5QRXK+w7nOVn0PN9 +Oz/HVDjDtSP87Q4RMyhN99qG34VH4Wbrvt6QLzOo7UvuFa14F9DRPmT3THMW +lR+8p3Am0hWyNnZFGiXPotlT9mynaW5QZBxb93V8FpGmyiemjN2hi8e8MM94 +DuVPfvoRoHMMBq8m6FGy5pDTg1xPNwEPKJNm7XP7OYfKnloe47jqAZz/3uFr +c5hH+pIdP2N/esB7a6Mj9wrmkfyA1+cP3sdhoLZa49WPeTTCf9Lm3vBxkPMY +0oi2WEDtCdaeZg5UWHkaaWSavIBSgzP4z7VTgf1Uk7Pt5wVUXfv3p6e5JwTY +KB2J2Eyi9a5wVavSE0w8s9qGbUgks/Ft25ZqT0hWE6qrtiWRRutBCe5aTyAU +9dVvHiKRnaFLQW+DJ5QsicZR7EmUuiWo5eJ/ntA8csYg3ZFEm/serW/q9YTL +Ff9a6riRSMFdPM11yRNe6DpLcvuQSN9jKj9Gmwa22aYdIpdJlHdnJsBahwZ1 +bV/N6rA3ds4ZievRgJEoZ+ITRaIpk6WP+Xto0FVl2l0bTeL9i21N634afOKv +sqFeJdG6pQ3OwodoQHn9KSY5nkQj13evzThFAxsths7tWyRKqArzfplHA+me ++QLVAhKd0rytH5xPg2rZR77l2FYFpWv1Cmnwlle33KiQRHy3GQUvimngHu/X +Y/OIRDH+tqznz2gw8PSLm28xicKUFU6W/48GccEP3BNKSeRzu8X36TcaONwb +SDlXQSLzdQxD/wE8byVkdBp7ewyboOYQDfKaFCu9K0nE8N9dXDpKg1495wmX +KhIdt86YfDKB8+sunDWoIZETV8DpkmUa/HGVm+mvJ5FZwOYzRWJ0iPZ+q9b6 +lkT/y7hikSxBByW/2gbURCLD1jmF4M10ONxSV/cUW0Ox5ZOxNB1id0T/vPUf +iTb1hBp/UaQD62z8cacWEo0b9Inx7aZD0NuG6dr3JLrBnlnjZU+HG6l/Tm7u +ws+/UyDtoAMdjOU1xUKxo12C/bWO0OGQSY3SF+zgZ7ZKf4/SAVXERd7pxvmJ +NUm3qLhfl8W9vpdEWs1U2uuzdOCeF3fs+0yiniRFfvlEOnyRaYvgHiDRYyR4 +YiyJDi+y9ZqssaMnFxqLU+hg4PIm9ha2pnljuN5tfP1ayWCFQfz+2DznDt6n +QzabGZvBEIlM/TI/BRfRYUFlpMxyhERSUv/oGD2mg4V4zT9x2AvNfikcT+gQ +ELPU1YydtQ0dTCijg0+45yezURKt9PXVZ1fS4aVJ/+U9DBI9s5LMf99EB1vt +Gce1YySKW2bnSm2mQ05dfRFgU/NZx51b6cAjfCDkPLYQZ6XkSBsdVgrtw4ax +faucbvzspkO9g61k+XcSyavcClIYpUPXvepqo3ESLfdc7PzOoAMlISH2FHZ7 +DF2jZIwOnU3R7+5ihw9qs/Qn6CDRXl25iP05rdPNZp4Oy5fOK+dNkCiZZ4NJ +yBoCVN5bHBqfJFH1XJ9LIAcB5K21i6JTJGL2Ffqf5iKA5pMzjbANn1EyqWsJ +4I0/MJiEzfAI/mWxgYD4NMsatWmc38pE2ESEgJl/WDz22Ht0hZWRKAFfpaUf +nsdOFCxy1NpEQAhVbrh2tV7ZXyopS0Dh6wZbkxkSEblFTaLyBKjZKSE6dmLi +hf71igR4Vw1fisZmECKCnMoE1EuacDas1kXMTkxoEOBuOfVr1yyJKv+IRDA0 +CZBlHoy3wh79PnBzQJsAlkH7GQLboD7k1Uc9Aly7FXXSsEd8H0vXAAGZjJDS +eex1TqG7X+wnIGuvwxDvHN5PjA9YlVIIKO5Q8pLCTtg0dCH3AAEtztm+FOyX +nCWJGRYE7A03nnTEHp4OfXjHioAwk+aGE9h6b0S7rtsSUNESSlzDppYOjV+1 +I4A+f1/nX+zr90rYLx/G/TfuHC3AHvI31whyIqA8g+f+a2xBdzGzM0cJSCkL +rOlYnWc+7ObjSgBfSJFG/2r/1otx7h4ERPKeFV5czcNnkeVEJSAw70ck2zye +R4pV2NEIWMoCYz5swcHhNiuCANVmU2cRbL3WJwzTEwSsW7/2lSQ29cXFFfAh +IDouJlIe+3qWxcY9vgRQIiuTVLBfXhdX3X2agOXDeYsaq/ODR/btPEOATJpZ +iQ62AK3USdkfr//fe1V7sHVtwv3kA3E/kSsJq/MNLK9IBRHwvP1YmzF2vKJE +ungw/n5OtHSbYj8XGi3bEILr4cxd5tiDv0qb+cMIEIkrG7BYnc8MH+QKJ4C6 +Y+ewJbZOh+WPvxEE2Gw/qm+F/X9zuzJG "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.7144460191538045, + 1.3718988647765575`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.714446019153806}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7476,21 +13500,21 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.7144460191538045, + 1.3718988647765575`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.714446019153806}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7504,104 +13528,104 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fe0bB3BE9lKKIrJLZemIKHnu7GSLsi/Hcc5YElmSUqQslSV5FXnL -ViRZQmRPpV5J8SuVlFDm0LFmOae0+D3+mGuuzzUz3/k+91zzyNNCHBg8XFxc -Y/hYPoe+0lB90PPKkEd38MofgoMMp27p0EzKkMDFQb1lD+XpZiqZNKN300z5 -39j29JcrRbSfoqLCBftF7Kqo2Cd8Jl2IwifyjIN94dmGttjS/6GKgq1x89gN -PaG5vylvUZeaw9kZbFZ/56kTTX3obuS55+PYUqSiO9v4E/p5/qETE3v/9Cn9 -8K5B1Heef+sQdutvlnBU6TDqe+ph/AH7XZxkdF3wV7TxQVvh/7CnVpqw5ikk -kv210+I59sqUo67aHCYad27SbsOWXXOjI7RpDC01HmLUYdtKs4unjCeQwuru -nHxsIl9BQl1gCh3Pr87NxI5Vtks43DWNkqJqxpKw+yR7d0SUfkcO05J2Qdh0 -t8CAf1Jm0YeAuMOe2DPXuQqqg+dQ6RfxVzbYAgrqYt8pCyhF7xFjO3Ym/Ym5 -2Ho2atr+NUcKW+62a6wmh40u2RhICGDrbU+cOtL0A3XP3xwcYnCQv+5gF8v4 -N3qS2dZyAXs+6hivkMof5HhlrXIY9pkmYQM1gb8oPu7ha1fsbNC769e1hH6M -GnKrYtOLOkzCSrmhQzz4bj2dg0qf/TMUJ80D7Hgts3+xZ0a9Tl1O4YEbx6JV -T2Of2rpQcy94BfhcaG8xxM6slFecpvABdXFQv8GXg/p7Jlr/3uSDk70Fglex -5WYfuK1avxIolxXlwrDLdtpmqHNWAlgnyG/Bbm84yR3UJAAPL+ZHJtM4aOHJ -m8ExYxHQ9SkL1fThoLXWImLRrSKg9UKr8TeVg7R6TUBUXxRGxAvUnmMHjtTm -79BYBTYdUae9sY/ydGntFREDC9UTi3HeHEQqVHxPYK8BhxYxp1xPPB+iU7Bb -ey14PXwh7oXNc5cpvyF0LcwuuvzchC2nvdmhdHwtRHNtM8j24CA34/TqV0Pi -ULo6tjDenYO6fcPCJV+sh90Ritw6rhz0+XZaMlVAAowshExGXThoYrz05h1T -CRj/9LkyG1so4uubPW0SYEzN4/npzEEm8Qd3UmsloXH27tVKJw5qvKW7UJK3 -EXZJiiXPO3LQLXIxcneEDAR8vAqfbTjI4lDS5/ByGaAtZLacwp5oFzcrZ8rA -ubmEOCnsnbe2r5dzlYVh9SufHa3xPGleNXyGm8FO5NF0ixUHzU4PHR87Jwey -/ulxIeYcJH7E5H6NjQK0hrF5LYGDmLeE/O0DsUc3pfQgDqr/1CM9magAwu2K -ns7YHtae51TaFMDRfPcAzRD32xbpcI2iCPqVfi6hBvj9rNszMZJK0O2i6hCk -x0EH/YTVrYaV4ZPi5/UfNTkIRR6iOP9RBoO7MwO22FsT8nbRN6pAhqDT4iMN -DuK6qW0Uc0AFDq5O0SpW56Dyz+7O1Y9UwKWz+wqxDf+fTmVxUoWqQI095vmf -Cu5nYvOORVMDku99raAMB0krXIpNHtkO15LLs7L5Oaj54rzaTx51sJPeOvt6 -Je4/59pLyKvD2Y97UkSwc9uV1Iy81EFC90PsaV4OUvBrfP3jvTpslt8U6MSN -+5WRysQLDVAPtY4YWWQjGWlZQs5VC1R6H9SETbLR9qIIkV+IApOU8b+0Hjai -0c8tqNtSIOR4j2RsNxtlK2Z8pnpQoKnaODPnFRutKKy89yyKAt9KL9R3d7FR -fy7rYEYVBe4nptdQnrPRhWzqDTVFbTDQbf/34yM2YiZba7is3AmkR0V0YzUb -FYQp2dd26cBEFmWpLoONeiLRrvgifdhsW7itzpSN5L3e2noG7YWgxMVLb2YW -EGOprkLmBADvOMPJLmcBSY7X80vSjMATvUSZOgsoQtvgU8ZWEzC8IFIk9noe -0SZ/d4izTOHkv6pvHYLmUblROH9etzl8I/bvsVicQ7fmAx+VZVrCwR38J6mp -c+jHvg0v22P3w2nDIHRt/Rwa4FrxfdjHBlabfrfckTeLgjeFpMcp2oFo8YRI -l9YsqgjoaLuSYA+toVeU+xq+o5NzGznbAg7AlhhW+1br72jByszpP28HKKo9 -6er3fgbpu1/eRx5whHq2fx3hN4Neb7wR2K59EGocoq/e5Z5BUsXnmku2HIKi -tAXitPo0qh/aam0r6gQ5m3mpdUFTSLZ3xi9y0gl+pJqxsuomkfaVy2U3h5zh -vOILxXU/J9AN3jmNjCcucE34nbSw/QSq26fZn9DgCp39ftGXC8ZR9q6La36X -ugEXwarau8RC3R+LErVT3CFSf9UZZggL1dpcVzp6xgM2LCWSJgPf0PcjjlzB -dE8IYE6oF3l8Qwtmav5Txl4wElj7bS9zDJVMfvgRrusNLINetlXwGHIpKPL1 -FKHC0c5pzf0rx1BN9X7vFUlUIC5mm6/JHUX60q9/XvhJhfTH34zzTUaR4pBf -//8CfMAtx9hm1zwTjQgftrv+1QfCe72O8RYxUU+ara/5IRqo5ai5x9OYKDMq -T/hYDw2YgzGlAQpM1Ny69NPX0hey1GR/BYyTaLUHJGk3+sLfb8+cpR6SSG7d -f92bmn0hwSp63L+VRFpdNhtWtvoC4Zn3+0ELiRwM3O/0PfKFfXdls5ybSZS5 -KfLF6ee+sEPFsex6A4mkBu6u7ujzhRKDAAfD+yRS8pLE26YvuGbX0AfvkEif -OlWSsJMOEUVCAVlXSVR8bSbcVpcOF3fMD6zCXvdm1lBSjw48lX9aE6+QaMqU -01uyhw40XurT45kk3m+4uLuM6FDrP/3FK4NEqzhrXNceoIOhZrnnvjQSjaTq -COYdoUPSuiEd50QSHfhvV69fCB0KD/GqfkogUSvX7jytUDoEOXee88G+Fm6o -8ziCDsG5288ciSeRrau5DxlNB2/W8LmLZ0nUoOTasO0izv/yrqYvhkRpTacC -6ovp4F7cfv3pcRIdoWTpR5XQYWdGl7wbtvWdKkG9UjqM9b8XnY4kkVAW886D -cjpk9IxLSWEnhNmz6u7TIV2kSuBYBIlOqSkdrn1MB9XNPzQNQ0kUmPUiqPoz -HVJmLLNlDpPIchXTIGyIDqeVXnJaA0m0JYFLlPKFDseuzbVQsZlhOuVVJB30 -eDfHFAWQyMc2b/LeBJ5PVcFLbX8SufCFB1cu0iHtxlSxL4NE5uFSR8skGKDb -w60lRiXR47xEq4wNDChmqR194E0ig65ZpSgpBmxUf7jFG1tL+cUHY1kG9JQq -rbjnRaKN76ONPyozYIId7+HsSaLx3QMSQjoMMK6dy212I9ElnvwWP0cGWFLV -bIcP4fVrimTbHGKAfYvu1SzsePeoMG1nBjiqHHKyxY66b6+65MYA04pGw5aD -uD/BffkqjQEDMUOV+Y4k0u6k0Z+GMsBMir4m5gCJ3l9WFlZMZ4DD7bS2DBsS -VSBR/7HLDHhpc2faHTt+cr69/B8GOM+IJiljUyzbY/SycF9axVSDNf5+XL6z -NrkMCDeSKRjdTyKzkPwPUWUMqEo1v+xkRSIZmfO6hhUM+Gi910QFe74z5J8V -9xjwgerrzbYkUaEKskmrYcCF1N2vsrD/DAy03WxkwK2P46mDFiS6by1d8qqD -AfVfpTPPmpMoeZGHL7OTAVlugc9dsGklLB/XLgbQal8TmthivI3SI914/uPj -HwbMSBTU5HLp5zu83sFNBQhbcevVSCWSAd63/KolTEm0+P70m29MBjyaf+g/ -Z0KingSGVuUYA/bPyib1YMcM72TpTzAgLHviVzJ2f/YbT7s5BrxtLXnKj53B -v8b0JDcBQ4ltfWuNSdQ8O+AesYKA13XlzbNGJBodKA0L5iNAV2iLwhtsg/sm -+TRBAmo0HoZewWZSo35ZrSEgRMxJUQ5bzNp0rak4AXf6L4rzYu/ZtVYNrSfA -OMw4YWwfidJFy5y0NxJAbd0zWY29p3GwSlqegIPvt3XbYBNFZR3rFQkQYfu8 -0Fm+P/3E4GplAgy7xS1lsZmEuCivGgEZ/KMdM4Cvi5v7T2gRcFtQu/9f7Ma/ -4rFMCgHSDhpfkrDJb0NXhnYScD8h93AE9u62k0969QgYLO7nscMeCaqQbQEC -ZOvLjYSwV7lE6zwwIsBNxsBpEeH9ydjCusqEAPoX/XEWdtrGLyeKLPB6VOKu -vcSu561Mz7PCfWOfVz/E/jodffuaNQFHx2NsqrH1nq1/m2pPwGOWBv81bFrV -l/EkB/y+M1tUUrFTr1fynD1IgIBG6rM47C9hllqRLgRQxK4mB2GLekmYH3Uj -IDZE/x5tOc/yq2egBwEWe82cXJef33w62YtKQEx1jorFch8hq0IXGgGHy4ft -YTlvQaLBgY7zW9N/6y3nDX/ttiYIeJZzW42ynNd1j2nmT4DpknLftuV+D07/ -gUACBMuEBVSW8wut1u0Jwv0Jlwa55fxUyW06wQQYLApPSC/nR43s0zxKgJGu -Sr4ktgi9ykUtjICC6eK34ti77GJCFCMICORKSxFbzt+9P1EmkoAc84/totgp -yhtuSEYRYHsnLUYYu06MrFlzkoB7q0oaBLGHf1V1Cp8i4BdDNVJgOX80Zpgv -hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc +1:eJwV1Hk4Fe0bB3DZs5TIUiJrQiRkS567HGQJEZElHeeMSCkkIRTqFclW6S2R +LUSSVHZ+qbwoIkuL7Ofo2JehlPo9/phrrs91z33Pd56ZeWSpfnZ0djY2tjF8 +rJ7PvldXetH+3giqB0ZrvjKQ0VTObiqlCO23fShaiz2QoZOqQKlGn1uWclZt +S3vHLaD1GlXs6kipwy4NjnjFRWlF6ld0huqxY99I1EcUfkDn2hQS/4dd0X72 +/m/NLuQkmp7eiM363Bx2oaoX3TqewfcWe/OovMui8VcUU6fa8x+25XSYfkBr +PzpsuJ/jHXbtbxZ/cOEgWmYMJbRjd18SD31+ehhxtAuGfMSe4qawFjRHESff +q8ZebO74M85aSwy0voDdrw9bekN609mqMST1qjV4CNtacjFvyngCPWhiezSJ +TWTKianxTqG6MZ/OeewIRZuYk63TaNvkMZdl7F7xj7sCC2eRxdbxWN4+BqId +9fFOiZ9DBTcuaQhhz9xje/D09Dy6752tI4HNK6cmNKtJou652OPK2Km0V2ZC +oouofc76iia2zEPniJ1LiyhvJYPPEFtvx5WpU1U/0OQYY5ct9gmd/laW8W9U +7CX4Kwx7IfgcJ9+2FeTLpbclFjuyit9QmfcPmqHM3LuJnQZ6j7xa/6K6m3w1 +Jav5cpso/oVrIM558vwYduGblIFLkuyQ3Bl3c2k1L9M9LCmeHZQWK4R5vjFQ +mApZ9uQ0B9x1fqOqhJ1aIis/rckF13497D2J/bl9ovZPNhd8Xd86dxFbZu7F +0XWi3GBhfNk3EbtI2zpZbYkbzGh54c+xGytC1vhW8YLr+R4pnn4GIl919o8Z +C4DF4K4DldjCVgJCobUCcLnaj/iIrfGRAoL6grCwmZecwvYZKc/cpb4OuIst +PBUHGOgMe6vGXgEhCKtUir6NPSr3eDZmcQPE/X7XkziI14doXtumJQwPO1Z+ +lWKzP2LISpwVhqzTyYmd2DJaW+0Kx4XB8esEn8QQAx01Tnz6fkAERO1CKXnY +bZ7+AeItovAkrqilZ5iBvj1MiPPgFYNdJ6MX/2JPjBdmF5iIgXL5u6TtIwzE +FzjcuadeDDo5X24KxaZEH9b2KBeHkVBOP8VRBqrM0SHzMzYBW5ulxg0GA+WM +LgcZBErBsZirG198Z6ADDle/BRRLwaflqbLv2BONIqbFDCmINg8t38JiIO2c +HaIyztLQtoe7Pwq7kepexmW0FXyPsLU6jjPQ3PTA+bEoGdhnQl23fpKBRE5R +npUdlIPCgK2G/80wECOH74StjxxE3JaQ451loJdf2yUnr8iBr6aTjxm2q5Vb +1LZ6OXA9VyL7FjtHNcjujqY8fFDoV22Zw/dnPZwJF1eAHH/bktEFBjrsxa9m +MagIcQpGobSfDISCHDSPrCgCK79v12NslZgMXdqmbZCpvsnsBzZbttb+8EPb +4Iqv9/XrywxU/M3lyNOGbWBlmRJb/Qv/n45FlzZnKQEnXWffjj84H+VgN4uq +DONcTi/sOJgo2/72l6VwZTjeLUbJx06gDg5w3lWGopX0nX+waZHnxqU7lSEF +8cs/4mSiDdXpbPbGKrD1ZFzoWm4m8tGaUqmSV4UL7EELPbxMJCl3IyJuZAfY +X+wTql7HRNXXFpR/sqvBkeaUOsX1TOQ67/yRkFWDanXBbzew7zcqKO93VwNW +9SEfuhATyXlVdvzoUYPwLrd6UWEmUikaVSRa1MEvyosWJ8pEUpLShIyzBjz3 ++HC3eQsT7cgNFPiFNKElKcPizg4motKiSDVrTdDVDxMQU2OiNPnkbx6umpCT +qaWRgs2RVfLkTbAmfBHek56gzkSf77MOJ5dqgkkUU/CaBhPFpnmkK8trgeaz +ZMsUbSZixFmpO3Frgxmng9m0IRM98FewLW/dDcQ/t2reWTNRexDSjc7VB1n2 +gXMfQphI1r3L2s13L8QrE+ski5mI/vf5Y6kLAH18HD0eQ0wkPv6SR5y6H7p/ +b02Slx9DgVqGX5NVKPBF1F5dhxhD1MnfTSIsExiKHdLe/XgMFe8P4MloM4OW +5LQGF47vKGfBp6Eo1Rw6VJej/J2/ox/7JN41RlhCd9dTNp7a76iPjWN28PhB ++JW5oiS7nYVOb/FLvCRvA9VRJa25SSz02Lup/maMLdz1vSRlwD+OQuY3Lal6 +HwLhoefFzlHjiLQwdXx7zA78n5zJzReYQPouSftGD9mDjFe/yo1/J1DHpnSf +Rq3DYO5wM0xScRJtzouqzt/uAPA+1aO9YRK9HFCxshZ0BOP6wN455ykk/XHG +K2jSEfK7DjD3LkwhrZtJRdkDR2Aw9VblUuY0SuecV09+5QRXK+w7nOVn0PN9 +Oz/HVDjDtSP87Q4RMyhN99qG34VH4Wbrvt6QLzOo7UvuFa14F9DRPmT3THMW +lR+8p3Am0hWyNnZFGiXPotlT9mynaW5QZBxb93V8FpGmyiemjN2hi8e8MM94 +DuVPfvoRoHMMBq8m6FGy5pDTg1xPNwEPKJNm7XP7OYfKnloe47jqAZz/3uFr +c5hH+pIdP2N/esB7a6Mj9wrmkfyA1+cP3sdhoLZa49WPeTTCf9Lm3vBxkPMY +0oi2WEDtCdaeZg5UWHkaaWSavIBSgzP4z7VTgf1Uk7Pt5wVUXfv3p6e5JwTY +KB2J2Eyi9a5wVavSE0w8s9qGbUgks/Ft25ZqT0hWE6qrtiWRRutBCe5aTyAU +9dVvHiKRnaFLQW+DJ5QsicZR7EmUuiWo5eJ/ntA8csYg3ZFEm/serW/q9YTL +Ff9a6riRSMFdPM11yRNe6DpLcvuQSN9jKj9Gmwa22aYdIpdJlHdnJsBahwZ1 +bV/N6rA3ds4ZievRgJEoZ+ITRaIpk6WP+Xto0FVl2l0bTeL9i21N634afOKv +sqFeJdG6pQ3OwodoQHn9KSY5nkQj13evzThFAxsths7tWyRKqArzfplHA+me ++QLVAhKd0rytH5xPg2rZR77l2FYFpWv1Cmnwlle33KiQRHy3GQUvimngHu/X +Y/OIRDH+tqznz2gw8PSLm28xicKUFU6W/48GccEP3BNKSeRzu8X36TcaONwb +SDlXQSLzdQxD/wE8byVkdBp7ewyboOYQDfKaFCu9K0nE8N9dXDpKg1495wmX +KhIdt86YfDKB8+sunDWoIZETV8DpkmUa/HGVm+mvJ5FZwOYzRWJ0iPZ+q9b6 +lkT/y7hikSxBByW/2gbURCLD1jmF4M10ONxSV/cUW0Ox5ZOxNB1id0T/vPUf +iTb1hBp/UaQD62z8cacWEo0b9Inx7aZD0NuG6dr3JLrBnlnjZU+HG6l/Tm7u +ws+/UyDtoAMdjOU1xUKxo12C/bWO0OGQSY3SF+zgZ7ZKf4/SAVXERd7pxvmJ +NUm3qLhfl8W9vpdEWs1U2uuzdOCeF3fs+0yiniRFfvlEOnyRaYvgHiDRYyR4 +YiyJDi+y9ZqssaMnFxqLU+hg4PIm9ha2pnljuN5tfP1ayWCFQfz+2DznDt6n +QzabGZvBEIlM/TI/BRfRYUFlpMxyhERSUv/oGD2mg4V4zT9x2AvNfikcT+gQ +ELPU1YydtQ0dTCijg0+45yezURKt9PXVZ1fS4aVJ/+U9DBI9s5LMf99EB1vt +Gce1YySKW2bnSm2mQ05dfRFgU/NZx51b6cAjfCDkPLYQZ6XkSBsdVgrtw4ax +faucbvzspkO9g61k+XcSyavcClIYpUPXvepqo3ESLfdc7PzOoAMlISH2FHZ7 +DF2jZIwOnU3R7+5ihw9qs/Qn6CDRXl25iP05rdPNZp4Oy5fOK+dNkCiZZ4NJ +yBoCVN5bHBqfJFH1XJ9LIAcB5K21i6JTJGL2Ffqf5iKA5pMzjbANn1EyqWsJ +4I0/MJiEzfAI/mWxgYD4NMsatWmc38pE2ESEgJl/WDz22Ht0hZWRKAFfpaUf +nsdOFCxy1NpEQAhVbrh2tV7ZXyopS0Dh6wZbkxkSEblFTaLyBKjZKSE6dmLi +hf71igR4Vw1fisZmECKCnMoE1EuacDas1kXMTkxoEOBuOfVr1yyJKv+IRDA0 +CZBlHoy3wh79PnBzQJsAlkH7GQLboD7k1Uc9Aly7FXXSsEd8H0vXAAGZjJDS +eex1TqG7X+wnIGuvwxDvHN5PjA9YlVIIKO5Q8pLCTtg0dCH3AAEtztm+FOyX +nCWJGRYE7A03nnTEHp4OfXjHioAwk+aGE9h6b0S7rtsSUNESSlzDppYOjV+1 +I4A+f1/nX+zr90rYLx/G/TfuHC3AHvI31whyIqA8g+f+a2xBdzGzM0cJSCkL +rOlYnWc+7ObjSgBfSJFG/2r/1otx7h4ERPKeFV5czcNnkeVEJSAw70ck2zye +R4pV2NEIWMoCYz5swcHhNiuCANVmU2cRbL3WJwzTEwSsW7/2lSQ29cXFFfAh +IDouJlIe+3qWxcY9vgRQIiuTVLBfXhdX3X2agOXDeYsaq/ODR/btPEOATJpZ +iQ62AK3USdkfr//fe1V7sHVtwv3kA3E/kSsJq/MNLK9IBRHwvP1YmzF2vKJE +ungw/n5OtHSbYj8XGi3bEILr4cxd5tiDv0qb+cMIEIkrG7BYnc8MH+QKJ4C6 +Y+ewJbZOh+WPvxEE2Gw/qm+F/X9zuzJG "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "PlotRange" -> {{0, 180}, {0.7144460191538045, 1.3718988647765575`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, + "AxesOrigin" -> {0, 0.714446019153806}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7611,7 +13635,8 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.663943982390173}, + AxesOrigin->{0, 0.714446019153806}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7639,7 +13664,8 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7144460191538045, 1.3718988647765575`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7647,9 +13673,9 @@ hoDzhSL3+bF1X+//sRRLQH2zc/iy/w/zReCc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991337564416748*^9}, + CellChangeTimes->{3.991337564416748*^9, 3.9939208731391277`*^9}, CellLabel-> - "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] + "Out[139]=",ExpressionUUID->"e2044431-667b-4aee-b0f3-6125289ab70a"] }, Open ]], Cell[CellGroupData[{ @@ -7713,252 +13739,165 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918495265156612`*^9, {3.991849580574194*^9, - 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ -ac84cb8f4d66"], + 3.9918495265156612`*^9, {3.991849580574194*^9, 3.9918495807911797`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.729671240943813`*^-271\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 304, - 297, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337564646551*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 186, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993920873286631*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +In[140]:=",ExpressionUUID->"3f75997e-5c98-4cd6-b259-bb0018c98704"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.4541692000062383`*^-282\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 304, 298, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646565304`*^9}, + 140, 187, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993920873294692*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +In[140]:=",ExpressionUUID->"c60ab6f3-8cf7-4447-8562-80e703dcc8d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.746749976805389`*^-294\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 304, 299, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646656475`*^9}, + 2, 140, 188, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.99392087330147*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +In[140]:=",ExpressionUUID->"b530c119-ff10-417a-8129-afb48fe96d70"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646736584`*^9}, +during this calculation.\"", 2, 140, 189, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993920873307053*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +In[140]:=",ExpressionUUID->"a66c1b8f-1f12-4f8f-b75d-4bc595f90764"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0ld0XB3ChNKAi83TvdZEpU8hw25tkzBQiMkaUISKlMmd4aZB6kRJJ +SsR9ChGVIYVQSaFB0sArpIwN8ju/v+76rLPW89xn73O+Z9N99m/34+Tg4BBc +wsHx/9/ZgbaHzPSizTFRD+515Rht7rkkGmXUlwCmnzMirJg0QKGnPqJ9mVDB +wY6UZ6pDpN2NXq6+QjCx/lzGx0RYOyGS+bP3FjREd0qOyNrB+3qb/dO9TeDj +JnIjVNYLTJmj7773dkMnZ5RfIT0Ufvbq/jvZOwT7XCaWhYvHQfOWa0XPC6cg +19lTpaA4AyTf137xUVmAFw2PKwJDc2BdkOcNni1cWBd1rUfgfj5kapjW2Tgt +x+WcYqPHsq9Af456w/c1fCgdHfb7cXsxpBfFPuUUW4vseNWvIV9LQOTcx3/O +5gkibws394cLZSCqXHV8vlgQLzxvfrP+ahmINyXHurMFcb+G1crA8jKQnlQ8 +qNAsiHqRS/wHGspAbluoV92IIFJN5//GfS4DLe4FnY9a67DL7e/1StWbYBsh +/EmzfR3WJ7p7ddXehBRHi83ds0J4T3+U+W9DOYhXdolzLhHGX6muSYJt5VAu +6DinsUoY972Nnk17Xg6vuj3YZ2SEMTxwC4/fUDkw7SMY9ubCGBgk297CVQFN +1vnLnp0XxoCJCFG9rRWwYDrT1Wkogu2tHoc/NFVARvGR0gVTEcxzkfOOa68A +5jKOVFV7ERQTrDIW7a6AbS0rjU76ieDQjYFxzQ8VkLuFdnvbKRGsGa3oEVys +gE1olf3kvQgyft240yjJhnC9y55tCaLoe8TaLd2RDZYF/NNWJ0RR4uA7NtuZ +DQyeY6ld/4qiQ1boZLcrG5717KBeXBdF7RRNVX5vNmwI5eUa6BJFkQ2uuZ7B +bBgpPlT8Q1wMOXs41EOS2LBrnc24xG0xlJWsGdS7zQato3Xxl+rFsO96hMOf +KjasHFovTH8khg0r/y2vq2FDbQUXyPeLYcBBXmmN+2wQtqrNUF8Uw0ENl6HZ +VvL+eObGrVbimPchgWfiHRtMvv06EvJRHCN7KdX0pRREmZ9TahwTR4vgM70D +PBSUX1Z9LTgrjr8qb6WpraRA1NFLr3a5BJbVavG18lMwVtMyx7VBAtWXspNf +ilBwNiEj4vxhCRR7abfPR5GCISH5kId8kth49ZLQVksKRPY/kBIRkcQdu1U1 +9bdRsK3VpXMvTRIPVe5yV7GhoPpIuspqLUl8Wh07yLOdgrT3k6M7XSRxeEin +4MJOCjRL6vy/FUoizXiFgU4ABfGG9t7im6TQ2ndplV4iBeYel37oGkthuLhv +4dRxCvjjviY6bZPC0gVu2RvJFFxsTirO8JLCmCz2e940Cmos735d9o8Uxs54 +by/JoGDSRTZyql8KP3sZxWzOo+DOkVCetZ+k8EKT2IvGSxTEXLyXs2FCChuv +GzYZFVDAO+hct5dTGvvHzMN0r1Cg4H+CY1BJGjl+L6X9uk6Bx8GZtI6j0rjA +1aH27jYFctnGkqNJ0lg0E+erVPX/+p2+yZMhjZpfzhpEVFNw5I/iM+MiaQzf +/6d7oYaCfxM9hGo7pLHOU7V65B4FHWce51+VkkGqjKtD6jGp9+11Gs0KMvjc +JWyvdisFri+9mwY1ZJA+73DLoo2CEdE/nyRMZdDx+KB5wBMKuArUlTJDZFD9 +0frc6KcU6Jefr4x5IIN597V3ruilwKS3a2GiVQYfrg8aeUtsw8Ft5tktgwcm +xXJv9lGwe3tIP3yWwc0qnP6mrykwPUqPjVtKQ+9Eg2qndxQ8WV1/ZdNKGrJ+ +uwcIDFBgV7SjdZKfhp6nnY06iN0609d6i9KQO4Rvn+4gBaEys1eMlGm4QX5n +8dchCmZuZ7T+VKPhxRvc+Wc+knqYK49TG2mo6LSueeMnCpLCvHQYm2lYNnL7 +9IHPFOQ2t7dy2tPQ0dfPqmOYAhkXv/G7TjS8cPZShdsIBUVji2vDXWnIGzmz +ZYS4Qkjb7eNuGs7J7Vmc/4+Ch/75482RNPzB4dE9/5UCiz96AseO0vBUZ1pr +2BgFXRk9OhvjaGiReXdqmLi/dkVc0T80jI8o/PpknIKJVRECSRdpOManHX7g +GwXhBfy6rMs0fO8iLPuSeH5jidvMVRoat6/k054k9fcYKPKroGH648YzY8Si +bHNd0yYaPvDNC9X/QUGeyUe3v49oGBZjzpVCzOiPjqt+QsNybqOXz4hVOW+3 +yb+k4VR7s96uKQpuZVlPDPTTUNurqDOPeJPyiED2AA2vr4q98pbY2FFqF88I +DYucX4lsn6bg8ciduAdjNAwOKL+TSrwtevvVQ99JP/brXqwn7l473qY2S+pf +Q3s0TuxcnDIx/IuGl7XEdSRnKHirzxAsWKSh1/6eMTNin6f1ui7cdEy7wPE1 +lDho/ntcKx8d916JbLhLrB+2R/iLAB0HqByDAeLlo69LuUTJ+p2ilL/Er3xs +jehSdIwMibsqMUvB1TfNrzYz6AiBAlnaxBGOm4J2KdBRXcLYdRuxcWfZkiMq +dDR8OPfDk3iNKT07W4OOusclvUOJB+7/q1KlQ0d9u9yr0cRluiubug3oODnl +1phCfIQd4zyJdFxcY111ithccWqMz5SOTtKuCZnEwoX+CcpWdEzwD1U8S/xJ +/K2IhR0d5XhjSjOIb521u7nHiY7MxbAV6cRxvC3Gx13J+jJDkwRi2yS9vsue +dOyq6dgVSSz992bwA186asQJOfoTj0UyuN7tpaNQ1nJlJ+K737JyfoXQ0ZX7 +/BAQpwas2iAaQUfjortHFYh3fIht1o6i42spn7lVxEzXaReHGDqaDB/fMU7q +96M7YCI0kY7CJmK5T4gbrN4lnkql4w0T4eZi4lMP7cXKTtIxqiW8O4Z4F+tR +eVsmHcNClNociJWq9U2Gs+lodkvruhzxzw0V/dx55H2d/4ROk/63XpPdzygk +/XmsINtAnEXL4cZrdNQOWdH4//2jKRCvdpSiY9xwWtMaYo70mYc51XQ02Cy/ +/hnZf11c+1yr6+hIt/hz7ARx4Mz2pO8tdAzkdpn/Tfazfshj8dVP6HjZ9z2t +gnj5sAFb5Rn5/t4iQ0/ioj7mG//XdIytnrGv/k7BAfvzoUnv6cjzX6q1OzG2 +8y278on8v5q9uIT4Xd2s+sAEHR0WldcgOV/C+a3JjlwMfJiXGHF+gvRThCV5 +YDkDeT/amK0nvpVBUaf5GDhI3RCrJOfZNiH3bbsIAwNdtjQ2kfOe6hekaaTC +QK2twXr1o6QfA4OPPTQYOKGlIq9FzHR2cj+mw8BvOC5+jeRJg/nm1DvIQA3+ +eloyyZufymsGVJ0YWK1VUEf7QsFsnni8lisDKxvTFxJIfk2vlmPqeTKwhbIO +HCL5NjGlt89kLwMvCB7syiH5N1S3e9Y1moFSrc7PPpK8bLe6w596lYHundfL +pkj+Pr7XSJ28wcAVymsVFYkfqnU4nq1g4O/zYkNu/RTcF/yQe6mWgQ3B2/lr +SZ7ferNSoaqTgUaBR4O395D8DPSAoRkGmrTZ63F2UpD9LmBo+BcDp3tdl/B2 +UHDONjxpfJGBFYV7RATJ/XFKK/XJ/ApZ1OKZ0hAj90vCb8p5tbQsvtGbhaUt +pL/pS0MNTWVRbrniXfd6CgxLywqysmRR44CYiGgJBW9opflbL8ji2m+fmZ+u +kfOYVXJpOl8Wu44q/bpZTO7b+OKL20tk0a19+K9+EdlfLgU5/PWyqO39Jl0/ +nwLFpecykj/Ionczf9qzc6S/nkfjIlWYuNan5a1HDAVVPVGxchpM3Js2Xv35 +GAWOlodjerSZeF3p3KF9RynI1D54TBOYqKDkwA4+TAEf7/7DE/ZMzLTzk3A7 +QAF3rU/onkNM1I7Rv9PtR8F3AUuvHU1M/FKVuNrQioK+IMazfY+ZWMplJrfL +gvT70S+I7WBi8Y+mkSgzCjKOlMpcf8XEi1UyMeVbKFAf4n3/c5SJC+clef4Y +UBBCPXXPE5TDCZfKGkUVCkZtndw++crhHWS+7yPz1acTXjsO8MijTeAS8+eN +bAgZVWGo88rjggrteMYDNsyZ/RwfXyOPEUomS23ukfmPKzNpr7g8Bu5Z+6aZ +zH/qUc2VXqryaDT0dyq3gg3RfvKCtg7yuGz46Mu5i2Qe3Dz2VDlfHv05D6tF +RLLB4tshi886Cnj8p7N1NZMNY7uXh1fGrifrjfvvk3nclCnCmdKkiNJWzl6a +QjdBoFP+FPubEroLnonfvK8UJFMr7HR0VFDNJpEzJbkEcpT11gj6q+KVeE6b +njvXoF3cSHvqzAb0TUzeIPntKuhLNmWovVJDvyDJmUCuIuDnKozwTlDHF0H9 +6kLGhSAdL2O4U14D8yXqbaUDC2CF3K7q7Y81MLM8YNRudx5sYIlVHHLXRLlX +Vk7lzrlwYECg2ZJDC9NOn8yygWz4NnXCySJHC32bPtyoyzgHZmqPci1UNyIX +K2+JvGwm3J8y+D3XtRFvFrUoPzp4GkJUNF8/99NGg6W9DYK+6cCa8O3ZuUIH +W1lNyjXBKbCVKWrNV6iDRgMXn69iHIf1cWmHm3R10aajw6/JOB6U/PQeyL3W +xZSmxoHSldHgdz/geGXYJrz8VJ3P+dxheFDQ4/tdSA/bXB/xJPlGwPT1xTm1 +O3o4NOh2nn8wFHbLla7ItdbHumO2+r2MIPiudFbn1qQ+MgvmKYW5PVBT9PvD +TKoBjuus6y787AM6WyLmLNMNsHoNBHD1+kDVhzHegpMG+LUlrSu41QduSQ/o +WmYa4FqZE7OepT5QltNw8tIFAxQdfUSvDfOBghNJemblBvj+oJCzPocP/BOx ++kzOCwMMsn3EdGR6g6uJLBpIG6K08hLNc6s9YaFnOX8zzRDfHlAoejntAQV+ +E28sZQ2RPyNrk/JrD/iSXHvIdb0hVq2TzBa46gEH2mwrojQNsSEx6MUzAw9I +szkmXWNqiMKTZpc4gt3hrsvLPxv3G2KH/U9m/zs3kAhOqd3QYIiKaK77ZtYF +Ti3u0U5vMkQZfq9XOOQCnJmm1PBDQ8xWbQ2r6nSB0eqlJQVthvjzWlLUkyIX +uMtxPEfghSH2twc+L3FwAddzcYdmPxtii+yTHoVKZ8ipi9K+v4qFydzax77G +7gChlUGUtTMLa5+X8bHREYq2RB+Z3MnCuP8EVc6qOoJm9KktZ3excOTmF6tk +cUewmWS/7PNmocy2QZ+L0w6Q/Grm5+4gFmZM9VcmlzjAfGGs8ZF4Fo4uM9Sw +FHaA1wZnXxSXslAiuXIOfttDwMGiixblLOx8Nz/KN2oPs+VVfmNsFsYsW0gY +7bMHAUbfnEY1C63C1x96Wm0PVsulJO81sNBNMcbSLNwe6nuKfV+8ZKFrOmfi +5wk7sOSvUY3sY2G4d/RAzoAd9Jm1zYq+YaHCt45Nrl12MH33a6rHIAvnSzQa +l5Xbgepl9Zv/jZLvlTZYuizEDupfG0WeGGeh0kEPg/Ue5HnrHEBtkqwPRci4 +2NjBnpSDzyNmWOjQfqBtcAN5XkNyrsg8C38M7j6qJ2MHCb+yd9/9xcITW91u +56+2gzUbS1TcF1iocSTQX5DDDi4F351ZXGTh1JSLhOIHW/gfKbfhJw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7972,211 +13911,120 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi +1:eJwV1nk0ld0XB3ChNKAi83TvdZEpU8hw25tkzBQiMkaUISKlMmd4aZB6kRJJ +SsR9ChGVIYVQSaFB0sArpIwN8ju/v+76rLPW89xn73O+Z9N99m/34+Tg4BBc +wsHx/9/ZgbaHzPSizTFRD+515Rht7rkkGmXUlwCmnzMirJg0QKGnPqJ9mVDB +wY6UZ6pDpN2NXq6+QjCx/lzGx0RYOyGS+bP3FjREd0qOyNrB+3qb/dO9TeDj +JnIjVNYLTJmj7773dkMnZ5RfIT0Ufvbq/jvZOwT7XCaWhYvHQfOWa0XPC6cg +19lTpaA4AyTf137xUVmAFw2PKwJDc2BdkOcNni1cWBd1rUfgfj5kapjW2Tgt +x+WcYqPHsq9Af456w/c1fCgdHfb7cXsxpBfFPuUUW4vseNWvIV9LQOTcx3/O +5gkibws394cLZSCqXHV8vlgQLzxvfrP+ahmINyXHurMFcb+G1crA8jKQnlQ8 +qNAsiHqRS/wHGspAbluoV92IIFJN5//GfS4DLe4FnY9a67DL7e/1StWbYBsh +/EmzfR3WJ7p7ddXehBRHi83ds0J4T3+U+W9DOYhXdolzLhHGX6muSYJt5VAu +6DinsUoY972Nnk17Xg6vuj3YZ2SEMTxwC4/fUDkw7SMY9ubCGBgk297CVQFN +1vnLnp0XxoCJCFG9rRWwYDrT1Wkogu2tHoc/NFVARvGR0gVTEcxzkfOOa68A +5jKOVFV7ERQTrDIW7a6AbS0rjU76ieDQjYFxzQ8VkLuFdnvbKRGsGa3oEVys +gE1olf3kvQgyft240yjJhnC9y55tCaLoe8TaLd2RDZYF/NNWJ0RR4uA7NtuZ +DQyeY6ld/4qiQ1boZLcrG5717KBeXBdF7RRNVX5vNmwI5eUa6BJFkQ2uuZ7B +bBgpPlT8Q1wMOXs41EOS2LBrnc24xG0xlJWsGdS7zQato3Xxl+rFsO96hMOf +KjasHFovTH8khg0r/y2vq2FDbQUXyPeLYcBBXmmN+2wQtqrNUF8Uw0ENl6HZ +VvL+eObGrVbimPchgWfiHRtMvv06EvJRHCN7KdX0pRREmZ9TahwTR4vgM70D +PBSUX1Z9LTgrjr8qb6WpraRA1NFLr3a5BJbVavG18lMwVtMyx7VBAtWXspNf +ilBwNiEj4vxhCRR7abfPR5GCISH5kId8kth49ZLQVksKRPY/kBIRkcQdu1U1 +9bdRsK3VpXMvTRIPVe5yV7GhoPpIuspqLUl8Wh07yLOdgrT3k6M7XSRxeEin +4MJOCjRL6vy/FUoizXiFgU4ABfGG9t7im6TQ2ndplV4iBeYel37oGkthuLhv +4dRxCvjjviY6bZPC0gVu2RvJFFxsTirO8JLCmCz2e940Cmos735d9o8Uxs54 +by/JoGDSRTZyql8KP3sZxWzOo+DOkVCetZ+k8EKT2IvGSxTEXLyXs2FCChuv +GzYZFVDAO+hct5dTGvvHzMN0r1Cg4H+CY1BJGjl+L6X9uk6Bx8GZtI6j0rjA +1aH27jYFctnGkqNJ0lg0E+erVPX/+p2+yZMhjZpfzhpEVFNw5I/iM+MiaQzf +/6d7oYaCfxM9hGo7pLHOU7V65B4FHWce51+VkkGqjKtD6jGp9+11Gs0KMvjc +JWyvdisFri+9mwY1ZJA+73DLoo2CEdE/nyRMZdDx+KB5wBMKuArUlTJDZFD9 +0frc6KcU6Jefr4x5IIN597V3ruilwKS3a2GiVQYfrg8aeUtsw8Ft5tktgwcm +xXJv9lGwe3tIP3yWwc0qnP6mrykwPUqPjVtKQ+9Eg2qndxQ8WV1/ZdNKGrJ+ +uwcIDFBgV7SjdZKfhp6nnY06iN0609d6i9KQO4Rvn+4gBaEys1eMlGm4QX5n +8dchCmZuZ7T+VKPhxRvc+Wc+knqYK49TG2mo6LSueeMnCpLCvHQYm2lYNnL7 +9IHPFOQ2t7dy2tPQ0dfPqmOYAhkXv/G7TjS8cPZShdsIBUVji2vDXWnIGzmz +ZYS4Qkjb7eNuGs7J7Vmc/4+Ch/75482RNPzB4dE9/5UCiz96AseO0vBUZ1pr +2BgFXRk9OhvjaGiReXdqmLi/dkVc0T80jI8o/PpknIKJVRECSRdpOManHX7g +GwXhBfy6rMs0fO8iLPuSeH5jidvMVRoat6/k054k9fcYKPKroGH648YzY8Si +bHNd0yYaPvDNC9X/QUGeyUe3v49oGBZjzpVCzOiPjqt+QsNybqOXz4hVOW+3 +yb+k4VR7s96uKQpuZVlPDPTTUNurqDOPeJPyiED2AA2vr4q98pbY2FFqF88I +DYucX4lsn6bg8ciduAdjNAwOKL+TSrwtevvVQ99JP/brXqwn7l473qY2S+pf +Q3s0TuxcnDIx/IuGl7XEdSRnKHirzxAsWKSh1/6eMTNin6f1ui7cdEy7wPE1 +lDho/ntcKx8d916JbLhLrB+2R/iLAB0HqByDAeLlo69LuUTJ+p2ilL/Er3xs +jehSdIwMibsqMUvB1TfNrzYz6AiBAlnaxBGOm4J2KdBRXcLYdRuxcWfZkiMq +dDR8OPfDk3iNKT07W4OOusclvUOJB+7/q1KlQ0d9u9yr0cRluiubug3oODnl +1phCfIQd4zyJdFxcY111ithccWqMz5SOTtKuCZnEwoX+CcpWdEzwD1U8S/xJ +/K2IhR0d5XhjSjOIb521u7nHiY7MxbAV6cRxvC3Gx13J+jJDkwRi2yS9vsue +dOyq6dgVSSz992bwA186asQJOfoTj0UyuN7tpaNQ1nJlJ+K737JyfoXQ0ZX7 +/BAQpwas2iAaQUfjortHFYh3fIht1o6i42spn7lVxEzXaReHGDqaDB/fMU7q +96M7YCI0kY7CJmK5T4gbrN4lnkql4w0T4eZi4lMP7cXKTtIxqiW8O4Z4F+tR +eVsmHcNClNociJWq9U2Gs+lodkvruhzxzw0V/dx55H2d/4ROk/63XpPdzygk +/XmsINtAnEXL4cZrdNQOWdH4//2jKRCvdpSiY9xwWtMaYo70mYc51XQ02Cy/ +/hnZf11c+1yr6+hIt/hz7ARx4Mz2pO8tdAzkdpn/Tfazfshj8dVP6HjZ9z2t +gnj5sAFb5Rn5/t4iQ0/ioj7mG//XdIytnrGv/k7BAfvzoUnv6cjzX6q1OzG2 +8y278on8v5q9uIT4Xd2s+sAEHR0WldcgOV/C+a3JjlwMfJiXGHF+gvRThCV5 +YDkDeT/amK0nvpVBUaf5GDhI3RCrJOfZNiH3bbsIAwNdtjQ2kfOe6hekaaTC +QK2twXr1o6QfA4OPPTQYOKGlIq9FzHR2cj+mw8BvOC5+jeRJg/nm1DvIQA3+ +eloyyZufymsGVJ0YWK1VUEf7QsFsnni8lisDKxvTFxJIfk2vlmPqeTKwhbIO +HCL5NjGlt89kLwMvCB7syiH5N1S3e9Y1moFSrc7PPpK8bLe6w596lYHundfL +pkj+Pr7XSJ28wcAVymsVFYkfqnU4nq1g4O/zYkNu/RTcF/yQe6mWgQ3B2/lr +SZ7ferNSoaqTgUaBR4O395D8DPSAoRkGmrTZ63F2UpD9LmBo+BcDp3tdl/B2 +UHDONjxpfJGBFYV7RATJ/XFKK/XJ/ApZ1OKZ0hAj90vCb8p5tbQsvtGbhaUt +pL/pS0MNTWVRbrniXfd6CgxLywqysmRR44CYiGgJBW9opflbL8ji2m+fmZ+u +kfOYVXJpOl8Wu44q/bpZTO7b+OKL20tk0a19+K9+EdlfLgU5/PWyqO39Jl0/ +nwLFpecykj/Ionczf9qzc6S/nkfjIlWYuNan5a1HDAVVPVGxchpM3Js2Xv35 +GAWOlodjerSZeF3p3KF9RynI1D54TBOYqKDkwA4+TAEf7/7DE/ZMzLTzk3A7 +QAF3rU/onkNM1I7Rv9PtR8F3AUuvHU1M/FKVuNrQioK+IMazfY+ZWMplJrfL +gvT70S+I7WBi8Y+mkSgzCjKOlMpcf8XEi1UyMeVbKFAf4n3/c5SJC+clef4Y +UBBCPXXPE5TDCZfKGkUVCkZtndw++crhHWS+7yPz1acTXjsO8MijTeAS8+eN +bAgZVWGo88rjggrteMYDNsyZ/RwfXyOPEUomS23ukfmPKzNpr7g8Bu5Z+6aZ +zH/qUc2VXqryaDT0dyq3gg3RfvKCtg7yuGz46Mu5i2Qe3Dz2VDlfHv05D6tF +RLLB4tshi886Cnj8p7N1NZMNY7uXh1fGrifrjfvvk3nclCnCmdKkiNJWzl6a +QjdBoFP+FPubEroLnonfvK8UJFMr7HR0VFDNJpEzJbkEcpT11gj6q+KVeE6b +njvXoF3cSHvqzAb0TUzeIPntKuhLNmWovVJDvyDJmUCuIuDnKozwTlDHF0H9 +6kLGhSAdL2O4U14D8yXqbaUDC2CF3K7q7Y81MLM8YNRudx5sYIlVHHLXRLlX +Vk7lzrlwYECg2ZJDC9NOn8yygWz4NnXCySJHC32bPtyoyzgHZmqPci1UNyIX +K2+JvGwm3J8y+D3XtRFvFrUoPzp4GkJUNF8/99NGg6W9DYK+6cCa8O3ZuUIH +W1lNyjXBKbCVKWrNV6iDRgMXn69iHIf1cWmHm3R10aajw6/JOB6U/PQeyL3W +xZSmxoHSldHgdz/geGXYJrz8VJ3P+dxheFDQ4/tdSA/bXB/xJPlGwPT1xTm1 +O3o4NOh2nn8wFHbLla7ItdbHumO2+r2MIPiudFbn1qQ+MgvmKYW5PVBT9PvD +TKoBjuus6y787AM6WyLmLNMNsHoNBHD1+kDVhzHegpMG+LUlrSu41QduSQ/o +WmYa4FqZE7OepT5QltNw8tIFAxQdfUSvDfOBghNJemblBvj+oJCzPocP/BOx ++kzOCwMMsn3EdGR6g6uJLBpIG6K08hLNc6s9YaFnOX8zzRDfHlAoejntAQV+ +E28sZQ2RPyNrk/JrD/iSXHvIdb0hVq2TzBa46gEH2mwrojQNsSEx6MUzAw9I +szkmXWNqiMKTZpc4gt3hrsvLPxv3G2KH/U9m/zs3kAhOqd3QYIiKaK77ZtYF +Ti3u0U5vMkQZfq9XOOQCnJmm1PBDQ8xWbQ2r6nSB0eqlJQVthvjzWlLUkyIX +uMtxPEfghSH2twc+L3FwAddzcYdmPxtii+yTHoVKZ8ipi9K+v4qFydzax77G +7gChlUGUtTMLa5+X8bHREYq2RB+Z3MnCuP8EVc6qOoJm9KktZ3excOTmF6tk +cUewmWS/7PNmocy2QZ+L0w6Q/Grm5+4gFmZM9VcmlzjAfGGs8ZF4Fo4uM9Sw +FHaA1wZnXxSXslAiuXIOfttDwMGiixblLOx8Nz/KN2oPs+VVfmNsFsYsW0gY +7bMHAUbfnEY1C63C1x96Wm0PVsulJO81sNBNMcbSLNwe6nuKfV+8ZKFrOmfi +5wk7sOSvUY3sY2G4d/RAzoAd9Jm1zYq+YaHCt45Nrl12MH33a6rHIAvnSzQa +l5Xbgepl9Zv/jZLvlTZYuizEDupfG0WeGGeh0kEPg/Ue5HnrHEBtkqwPRci4 +2NjBnpSDzyNmWOjQfqBtcAN5XkNyrsg8C38M7j6qJ2MHCb+yd9/9xcITW91u +56+2gzUbS1TcF1iocSTQX5DDDi4F351ZXGTh1JSLhOIHW/gfKbfhJw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07016868364044451}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8188,19 +14036,19 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07016868364044451}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8214,210 +14062,119 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c8le8bx+0ZSUj2djjnlBDfpOe6VJSREKIoFdKw9whJyqiIIkrIqJRo -yIoi85yQUUK2QlkZoeJ3fv88z+v9ul/381yfzzVe9y170t3CiYWJiUmE8fj/ -e7Gv8b1CbBJRJG772nXGiehIFw3U6/ICbZsK0j/pvYDCLSdFuyJg0nOtkCZt -CX5mjz+zdt2ELbImTvelHWHD1Kaby5+z4H2pDfNOaR/orzB1n//8HJrNEr+1 -SEaCgcLE19nP1dBxIyVPWzQJlj9r35r53AZHFZ7WTDNnQ82evOyPWcOQlWDr -J+z9EiT6S7+dpEzC+waZItvANyB0/vhjzj1zYHZNzDL4STWocj6oMzs8BwsX -du+0qKgGzPo2dOfcHLwQuN0jSa+G812u4pSkOfjy7gQp8Uc1vN8bEmc2Ogch -VZ6bF1RqwEfyjtudK/Nwq0e0+EZ2DbQ3t6mT6QuQBXSJyfj3MHZG5KDPwALU -v7/RanL/PayyHTn3Zn4BNr+Ltsl4+h5Udw4+OCi5CD4Zt2hyTe8hIm9ayMdt -EeIudl9LYqkF9fB1vysEfsO56GmSkmct3NxmUG5qtQQWqVKnvuytg609tvt2 -uSzBVbVXpR/M6oAe6dpODl6C8029XcV2dcDRlfSDK3MJgq9znjjtUwfBocPi -NT+XQPrfL7LegzpwpIWHaEcuA8VOxrFjtQ60nMp3ybxYgeBT+rwnntZDO39L -I3/dClTb/wj4/roePEqGrP51rcDx+wd3n6yuh8e8PG7dqytwz1Dtq+bnepB+ -bpOeZPQHdPw9vh9gagCutYVVrqE/oMDyle+AWQN8SVF7OyvwDyQORCW4f2+A -1Pb89X6K/yDW47AOMdsAR/iVj6/s+AdOuyyHV1caoPeS5CrLqX9Qtz6fas3f -CANuPLpCr/7B6t8UVzvNRhjbO/Jay3YV6kQUNtZdaISlmeRnwZlr0Lfpth0b -RxOUkjeurb1agw+hD3gF+JsgyPm6aWTTGgzLk27yiTTB357Iybi5Ndi32iHf -p9gE4cMlwi1yTBhhRjXr3NsEkc05hwZ8mPCHxNlH4uFNEJsd1sKymRmXjgs1 -c/9sAiPNM4LC8szILxFipvGrCbjeW1gpU5nRXDBR6+ASY/+wYo+xHjMqv1vY -doyNBiFy9G9JZ5jxozo/+xdxGrhliK4qlTHj7Y4Punv204CixqK34z0z8lrm -Xks8QIOJqh+XjJuZMSKh6fAnCxqc7q/k9hhixpWHPcc07GngIOUkXMrDgtn8 -784ae9LA/G4RxfgoC77pebVt4TYNBChp7vZOLFjAY/vXNY0GzeWRz93dWVBw -+0uHL/dpYNRz+L+kSyyY/FaK6epDGuwWW93zNZ8FPxT39+0tpYFmitFR978s -GKxY6AxdNPilrJl+kYMVX9reYxruoUHha8nBRAFWtH0pfjywnwbUzzPOJQqs -uK91xDf0Gw2URJK9mA+wYtHWyBMTczTYlDQcnXiPFZ0iSFwm6+ggSn4VuZTL -iuZW9ocn+ekgVh0VZl/IipTBabNLG+ggNaPiq1zDirPei6bXROigaOLhUD7G -ihHpt5o2y9BBaVjvqMwvVnyUkfDWQY4OpKCN1pf/sOKvqe2BdxXoQHlYbHyQ -nw3VwuThF4kOGmz/tIY12DBgttl/0zY6aKY1b9u/iw1L7US/smnQQUs9g/LU -gA0lb26S/q5JBx2HPXL+tmy4PeydQcx/dNCriObjDWPDfhuuy8ZAh92HjnJ5 -XGXD3FYhtQGkw94JCmtnAhu2sdxtP7ObDvtFW5fSs9mQazlE0E6fDgd9REbU -m9hQ2fdpZ4URHcx4x/qS29lwTOTy42VjOlhklX7528uGYVz7b5EP0MG61a6l -bpoN5UPfl7sdpIPN6S1N5GU2fB5IWgszo8OR1bX38Szs2JpHPx1lTgd7yoOy -I8LsuHWjZ4nXITocq/F5VSXFjjbzpg9tLOngcMSgUIHEjsf2kD5oWNHB8ep4 -zpQOO5qOf6httKaDs3R5xqG97Di4/3Fm5GE6uBTHpZUcYEde8axqTRs6nBvZ -mhDhwI4z0ftHfGzpcD6YOe77GXY81PTfJNsROrgJtkeZeLNjz+t64xgGezzK -vlgUwo59nops7Efp4IV+ISJR7KhGvirmy2Cfz/v8g2+wY6U8JbGbwX5um70G -UtiRK+uQ13Y7OgSw/zivn8WOr38aVFxmcODditOP89lRea+lL43BQRrXT65/ -xY7feloyOezpENJ03N6nkh01OjYaaDM49MQ2my/17OinEe5sz+DwJZZDxEd2 -fNMfxBnI4IgbHQcedLOjeoo7NYbBkUq5+7lG2DFsqqU3nsFRb/z3uE6yozFu -FLvG4CuWhkTbIjveKSweD2Ww2MtmMRZmDhQZ1605xeCCjZa/t/FyoN5Si6Mu -g3d7f2k/IcyBrJ+hg4vBn9qOFSZIc2CqheOmRkb8Z9VH4t6pcOB7FknNCwz+ -l3DmzKwGB94CczVFBsfPTunLEhx4Y9PMhncMfxTMfeTM93NgpP5MnxmDSwqX -V8MtGOtKZvc6GH6bCIT1FNpx4OIz4UMmDB5wZysZcObA9U6mHCWMfHm3RCcJ -eHKg8oH1bzYxmGPrek8M5kDzcZ8L5xj5Tb2edMDjMgfuVn1w4AUj/9UH7nO0 -3uFAO1N+LWlGfVg/VRhee8CBlqOvj+xh1M/EusdVWwsYen1YHx5l1NcG+suA -G9UcuK7mUaeLBR2yyTpWVXQOpIvlV9sz6vO/2Kpt05848OHltFkDRv06GDVN -mP5g7B8c2bLIqPf5RwfrQxcY8bBJGlWYMPzm7nxQsMaBfjEs7/wY/VHQ0G/H -L8SJ3YEDPQ37GX4ZLDR/0OVElcSiC0OMfovPDcr/Z8CJFc2TVBM9hl8cTFep -5pxoZnTP7TGjX01qefSuOXHiWo12xV5dht49Mi9MrnOi16E5/VlGv295kHMj -JIUTC8o1tJkY86CahXz+SRYnBjRZTLMy5sX4u+2K615z4k/ZnpZxCkMPGifT -+jnxzXF1YTXGvKHfb/X+M86JM3G2TN9kGfrWrMzI85z4Wf3oRLw0Q0+lA3cs -FxdWCh/7XCvGqAddv2CjbVy4M7Ls6xMBRn52ZB5vjODCwi+Gs74rjPmcwT9v -HMeFxdfbx4t+00COM+Rq8y0uNOcQLxyZp0Frh3VR+0MuFPqmWLllmgZbPNax -9jVz4U+N7hirYRqM5frn/hLjxoCnjfvnGmlQxTeq46vAjdcT/v5Nr6PBbR+L -lt9UbqTlPh/Uq6GB/m7q0l/kRqLqi5VrBQ2yvg4Zcp7mRlWfLalHC2hgJ2Q6 -Kf6CG7t8aUpp8TTQCC6/mF7BjSJLS18r4mjAM0QSka3jRh2tX+RPV2lQ+owV -lL5w410dw9zpcBqIGJfGq61xY5/CDlqlByP+iwqa+sY86Pqe/1a7KQ32Tq8E -uQ3z4I9zpk/Z2WkQuD9J9d1PHmSb5swGJhoUZFK7Ny7y4O2BrRZef5pA1NJh -RykXL74yCZl6N9sEP0tqf7Nu4cWp1P09PH1NkBgR73MngBf9GhKphq+aYEhY -ye093zqMKZQ3zDnWBBd1zU+I/ceHofnnCZP0Rth/LP2X9m4+5Kx2V7dLbgT+ -8B+XrEz4cM8z10in+Ea4W3M5N96BDyf2Rzs6RjRCiVHZD45oPox7kcYm5NwI -MzbyfnNf+LBRshh2UxrhmO9CDD2YH++++hgi8rIBdAruvAytWo8XKFauwS/q -4fzSbHgD3wb0Zn6Xo55XC8tkgT6qlSD++D0XUaZfA7r5TzJu396I4+ZpVZxD -b2FW0MjBuloIlw6f1VU8+QZG4hysvThF8LVzloJxTwkYTvsbjmptQpfzllY+ -sy/h5yku75dhomhQOpBZJFnEOD9vYrlSvRnX0uaTSzPzQfCD0vXCaTH05bCU -0zmYC6vTajlN82I4//h837cduTAhuLNiZFkMw460nsxSyIVqm4MTomzi6MnK -VqK/kgPeI/4GF0XF0X/5u86u3Bzo+NOwaq4njkHBZ8p/MuVAsuo597mbjPXv -vTma7x6AxNVnZlpaEvj4x7Xay+cz4XHB05plHQn8dfjTq7mjmfBfZ77WG5BA -0urWbFfjTLCUeyix11ACcwebz15WzYS4iowxczsJdMtpoOwdz4A/MwnhrhES -2POi/euKSwZ02/oUZjcz1oNudtkPpUMKeYfAxtOSaKgfcOnsvjSwMv4QX3lO -EtX9EqejKWkgeO7EhrMekvjL3G9n5YY0iH0cLfguUBKdnU4fcOpNhVCVbiH3 -OEn8bE23fOKVCo7KwZtpRZK4+QWWCT+4A9vk38hd+iuJ991/WW7cmAJNYnrb -5xKkkPe0QGgq9Ra0Sj1TYkuWwqFMXfMm4VvwSU5SVPiuFHJPDXatX02CQdXl -Fa1cKVzb6tTW05wESzpFb4PKpFBoNJzTzzMJlI7KmrAMS6HPm5VdD8sSISKN -+dQGTWm0uj3y8pHdTdCRqI7f+kka7f7mCKSV3IAheYW+8W5p9A/TsIq9dQOi -yVHk7H5plGxkpad53YAuHaM60XFprNw991eCegP8bdv+MP+VRj0OUEh/cB2O -GHtqTAjI4JNGN4vo29fg9lVGe2vJ4K80kohXYiycjVOv3bxDBs8nCrugTywQ -8cM//HbKoMhDdmuKVSyMJuvv2IYyuBQm9NJuUyxo5nF35BjKIPtUn67kvRho -q03gvmEng/tqZZ/xFkQDP2uWz4kIGXQqcL0gMHoFOJarDs1GyqDi0Vku8for -sDr1Vf3iFRk0ri86pf/oCkx3b57NiJPBZwoDssuuV6D1eYLrwG0Z9P/pvfZl -KQpunrzofDxfBlMfGpmeE4oCkWoHG/sOGTzwIN5T6mQk8JeEak9+kkEJN7Ob -v/ZFAkfBXZELX2QwYmj32WFqJPy+09Vxt08GxUJl+8VWLkGXp5l575gM+r1N -1OlLvASpsmh09J8MehpAfSY9AqQuSuvaKsli9vWxWj+Li1DgzSX3lSSLM7bB -w5K6F4FwnuU8QZZFFopT11fFi2BvXNPuoiaLnbfKZ/OWw+Gu8OlzATqy6LQg -d+VkVjhsflyQmmwqi6KCdVxvZsJAqH3XcqefLNqPZdlXnLsA2bVK/baBsvgw -7Cl5au8F0ChZX/s1WBaflrq5mEhdAIt7g/Gj4bKoKVcVe+1jCCScvkxaiJHF -XjlRfimdEOD/Sz8sdF8W00R6piw3BgO3ol2xRb0sSpMtSRyjAXB2MxjlN8oi -teWgb2ltADTxyfWx0mUxwPSh8o3cAIhb/M7+qlUWF8v79TJdAoC/wdtqUzeD -A40X7ab8Gf0UO9/zUxb1ot5938TkDxJFZepOgnIYGniihbbTF0Jy7tW9EZLD -wREsTpDxha93wo+IbJJDnY9xB/3YfSE9wiCiXlwOZQ8XKKe1+ICMZdtHFUU5 -HPrcZWXm5AOKv8c9prTlsC1pi5zZbW/YsmvzM397OewYERwZ4fOCF/Jn/rA4 -yOHj2ojDpvOe8B9P6b7rJ+Vwa+RKz+duT9j92WYg+7QcfomxuWn00BOsPVM2 -tHnK4T73OMH8vZ4QlrPJhxIlhwktYvd3XvKAVj6RHYMFcqhpZl3qTXUDq3mn -y+eL5FDl+grzB2Y36O5+9fH3Czn8947sfuyTK4zkWZ3lL5XD1A/b35PCXWFJ -71bazho5/HXKo9Ly03mQ9RNavfVZDp1kpis6486BV59gjRGTPAbKrc0My5yB -hjq7N49Z5HH9sxh//VUXkHqW+5qHXR6Z9yekf+xxgaYwnSdN3PL4nSdR/Eyy -C8jJnrxltFEeD1i8/H1DwAU+nio6baQkj3KPPn29zXMa1MYPrjMykcdYttgC -ewkniPp4h+OxqTym26eeqlp1hN7SYSYec3lc7Y87bTDoCFdj/BcareRxpLW/ -rCbXEQbI9/sMj8vjDP8S1V/DEeLdpgoNveQx+2nio/RDp2B6Ls7KMEUeX+n9 -1zf49AT0dmVa30uVx2LntAaZWyeg6U3x4dm78vglXmsuNOQEZF8ZsL2TKY8H -7TLCU4xPwBFxzWPjj+XR0zW0XveHA9Tu7nGOfsPQVy1URVFzgLQElYDGIXl0 -32MsHnffHq76EYGSo/IYRN0lfMTXHvyOHgry/C6PLatH/I4Z24OZ4oWQzT/l -Ud+kPJB7yQ44SlvDzyww/JGMGBo8ZAeeA/7R3FwK2Oi1r+e08FHYt7Uu1ZCq -gAk+s95qlTZgw7HfsnWrAlaMRJqaJtvA2a+NfIfVFfDCqsvTBx42cD32Q7ij -tgIeb5UdmpO3gU/fO5zD9BTwykzbXblrh8ExY1j9lZUC6jDxTVw4Yw0RG5hp -MqEKmHbb4emx/ZaQNBYRmReugDH3k2/8ULaE3Co2YsslBRwDuaY8TktocuUq -2nlVAR99MbV8Wn8INjStT7a+qYCCehwy3wwPQUaE1Km4XAVkCzcP77a2gMq5 -nX9+NytgvKlriU6CGWTSX5889FEBg9LvX+YPMIPIHI2mgnYFVBb0P8R+3AwM -D5PvOHUpYN9Ptb1HqWbQUSam3T6ogP4bS2/uSz4IExeXvQrmFbCNZ22ATdIU -RAReTziKKWJioYH0MxtjWB5Tt3groYiPrG8M+m4xht53BaXi0oqo/435QgCb -MWR6515tk1fEL8f8BdSKjIDy+ZYSUhXxnvqklwOfEexO9zkpjoqo8NUs4HLr -fnCjqHd/dFLEzh/y+j/CDMD3t9jKcRdF/E95cVu+rQGEVLOKTZ1VxL3GRqu5 -GgYQa9Npy+OhiE+9yKNmY/rwMDLgy+4gRfxr2dniaKkPQ72VXS+uK6LD90/h -+tp7wfqa8edbrxXRUe9I2jvF3WBvo/lbvkwRLw7Lfj3BsRsc5SU3Pa9QxDc3 -PbU0v+uBd+mUdfM7RZSCPevdHulB/GjCJw66Ip44diVmi5oeNO3q6vQfUMRN -MeLmOQYIu6YcO2y5lZBeM2MuR94FIuX7sip4lTCOONSOf3Rh6oqqhzS/EtY8 -75Z6SNOFdNkZ3lFBJUx0uXDpoKsurFoG7/GQUMKuXKe8xRc7oao84XnUViXc -5+PAYm6qA3rRlfEvrJQwxP8/0QcvtUHMOvOYiI0SuoaoHJO9pg2/5CIpgUeU -UNBt4n2vkzZkVRg2EMeVkF934C63qDawzHSsNboo4X8ivxXVw7SgxvqH20Cw -El7lm3X3tdkO+gqiB/iylJDn7rXAeE0NeDlZK+uYzYj3feyZYiENUHjtvViW -q4THX8xE8C2oA5tRy32XfCXMnf4lYVqsDtXuUb9qXiphq2Ob64ad6kCUzycH -1Sshp4pIqtOBbaBl8XHo+08l1Nm1/dUfpa2QKx72mphWQrns9cw3f20B4VFK -3K1ZJRz+/DYuqHILzPtf3b5nUQkPB32LwcNb4Pk9uJq+poSLC0zWiXFU2Dr+ -lHE8VkaXgcCCaXYKkMJjAqq1lfH10wXHC2oqULEzh91ERxkNys88HmBWAbPf -VTc7dZUxTC33RlI7CQLcFp6M6SljeZzQjp/+JGiwcxjkN1HGgIweyoH3yuCy -Q8voqIMyGt9tX3fmnBI8+jUoPn9VGWWbh1kbpuWBKPj78EKsMnIp1opaNslD -25lNWpzXlfGLfJiIXI48rAyYmIklKuNC9rRMxFF5MGp5HYn3lFHI6s+QAU0O -JvKvTcYVKaNYZufdq8WyoOq0o0qxW5lx3/MYcfOShhtypiuXepVRXQ1f++pI -w3z/ye1DfcrooPGHv5tFGiqPxOWnDzP0ED68pUlSYGHWn7xpUhkj3ximvK2Q -hMCdlz24mUi4ppgSGywpAQ0bPspOKpLQtXq6YF5yM1BbRu2MSSRsowa9yJoR -hZtxK8mPVEkY1tCZfq9GFOw4FfidtzJ4ebtBwFlRmP7rt9L3HwmzXduqX5Rv -ApExifZWYxKK3a1d6T0nAk6VLpEvPUnItn/L+W9rG2HKdcJf34eErLlqNIOu -jRAgef7cJz8SNjlGSc8WboSYEHeLpWASjk1K5sme2giFOn4yulEkfFY4aT3S -JAh/iy9V1KSScPLS4OSlvA0Q5cxeaHmPhPq1Z2QMIzfAepErD0bvk5Ae+vue -2YkNIOcbE8OZQ0KS3vdHChIbYJ9Ggo3xMxJqrbGFdCQJwM1n6fNtNSSsc+ig -DMmvB4njMmOn6ki4VCghZjLKDzn8WT3zDSQUbdn8lpLHDyWuOdUizST84sE7 -bUrhh6/kJ/FHukgoPjyixqTLB6SHpZShnyRcl/fK0MmDF6oyOhxnhVXwP+89 -3+eUuWDARPa4n6gKNu1ZCkz7zQlMy662f8RUMGVH1pX0ek7Ybc5pyi6jgoEe -etdeunBCHbOO9mZVFfxUtkLnf8YB9JP3ufUIFdxiHVE7Z8wOk/w/WetQBWfk -om25ZdmBv/y/VaM9KpjB41PtscgGZhvbflnuV8Fjr3xp6lls0F7D1utioYIe -tXPL3v9YoVvhbEG8swrWtbs0ulezwJ/W4ofCZ1TQoqBJ3eEuC0hcYH2Qek4F -X1vzvrnjxwL2nXeTsz1UsCNeWekbmQUGLreElwSp4Mt/TqKf7jDD92+ahwau -q6DjMDnvQQQTzD9c+731tQpeDsvlsuD+R3yzNsiILlXBDYXJQWkf/xJdbNf2 -D5eroIHxk4NGqX+JcgexO7ffquCCJZN7J+UvESG6XedfowpKW5m2Xrf+Qwhc -PRvS1KuCqeyi//6ULxOU051MTiyq2KkWK+LYtEhICUs8qmRTxYm9MXxS6YuE -QM1Jc1FOVcyT1Hip4rVIzEnNZNJ4VZE3eeWLhvgiUfaJZ4+6sCq2p3vtZPNc -IPYb4OU1ZVV8tprRLkmeJ04p5nOnHlBFUwWBkOzOWSKo9thZJTNVXHzKaprx -bJaIdxKkPbdQxaTptW3j0bNERU5gHO2wKhosvh0+DrOEkNL+9f9OqKKR7bYN -H5/OEHVKo0IOfqpoV/lu4JraNNFbl+L7M0AVV1xTubMmp4hfziafAoJVsTY0 -sZvInyKk814kJ4Sr4sI6ki0/aYoIUI4Qq4lRxbToBNcx5UlClSQto3RfFcmU -K8xP4AeBDW3hzzNVcZRTitzO9oOwdokaJLJV0TJi1N67aYK49HAy6/AjVQw2 -mNQQPzxB9JIqFKNfqKI6z6LZtO84cV3FlvyzXhXfjHuLjTR8J2ZVE7Wez6gi -z7Y8YVLlCNFFR/2Nc6poY7T4pz5xhHjrNnXIZ0EVZUXn3MvOjBDXnxt6aq2o -YryPSmaSyAihqsP0pIyVjK+DBGv4fIaJk4ausjUiZIzdtVk2cdcQYfhDTE1h -Mxk/hvVXiIgOEWrXGojL4mR8IVbUPfxrkFhtlbfbJ0PGL6cNgm0eDRJpNt23 -aSpkrNa5nXZ38yDRcXrfug5dMhaH2udLcg4Q5dwLYtuBjCfd6bRFWj+RlZ+l -cluPjD2jAeu2x/QTHtP/DGwMyGhUHyKtxdVP8Pm/vNh7kIyTpdHb1Hj6CIMo -2d8jJ8lom6dxTUuxlyjJ/jO4cJWM0vwx3V5FXYTWHp/fRrFk9FX7ltMS2kW8 -Gvy5LuMaGdfnpjy/YdJFPJfq0za6SUa1yQsFWuOfiScpb6+lp5Hxt/GS8Trl -z0RG3OUd+wrI+HyulHXny05CirxqereQjA11k+wBVzqJe41+jrPPyTivHWTO -d7STSOVwuZH2moxTG3jUCNZOIincaHT6LRmpT1x18g53ENE+6xNS2sm4c/Da -A16BdoJr49XcyU4yfr8sKhsx1kZEFTFV7O5i/E/jm/C+d21E5NTst5+9ZKxM -VRQp824jQl06dPW+MfLT4hiu2fuR8LK7Mza+xPArvfvNalkrcWSvPO6UouDl -kQP1XjYfiH8dXPw1MhSUT9pCKhL+QGQ4TfUYyVMweX0408V2OvEtqtT/CImC -H+een2w1oxNejQefBapTUETkVAifBY2IMQ2RKjGg4KEO6c9sbo0Etf/ETzCk -4F9dA9U2jUai1X1fWb0xBTXHbilIrzQQIgmC1p/NKGhEezeqcbWByGp/eG3x -CAXP6ClNkR/XE2U2nX813SmMeVm+25+tjrAfL2uq8KSgcJu9Y93HWoIpKCNl -rw8F/cWW3S/fryUM0s5pWgZSUDurNOWgbi3R9pX5vPclCm6/m9i/EvSemDi5 -pacomfH9iJvxY7w1hLjrldItbyk4Yusraun3lri+5rw9tpqCpXXd+Vcs3hIs -Nw2Kvr9n6PuCy+xb3xITxeyPMhop+GKrSP/bj1VEGVNkimA7Bf12ycYuV1US -R5LC/RdHKbhRyO3bk+IKolnJYc5ijII9OoanR/wriN2l4P5sgoKn5IIr7++o -IFT7Vp1dphl+JUi13qssJ5aVL1h3L1EQ+/XXpzWXESnlgdsreakoxNlRXMFe -SqwztS0S46ciP29zb2lzCRE+8B/VX4CKbfEeWuSUEsKFfUlBTZiKDVUCvc6U -EkL7oJ9QlhQVjex4i0lHXhOfhrzmLm+jYvExndOCTa8IYZ7zRQcOU/FxqF1o -0cJzInvPhaAZWyoe7fEzKah7TqhfuL4n0Y6Klbt7tMRTnhOmM4WdXSeoOFbm -cEpP9zkR9Wlh+dR5Kh7z7c97EF1ELGWF7Q66SMVl2zPyP7QLiajeeF7JSCru -YJM467e+kBASyeqoiqKiTLLErdrmZ4Ra9Htn9jhG/M4sFcVqz4gz7tyx8bep -KBxpWXH631Oie2die24+FXWWq64nlOQTLr7Zdw0LqCgQOwUs3vnEYsErp5+F -VJyI8FoS25JPCMp1/d5WTMUzPIfdidzHhDGXpMSbt1QsHIp8I5/+iKjoyHVs -76Ri5o1tbxXy8wgj/hKqXxcVW5NGq5zd84iufY2Loj1UfF9V/2eHZh4xX/bj -6rEBKibuVxq8XpVLUDPVno5PULF6mSbU3JtDVHTr+cVNUpEyfj3RNyeHMBI6 -BFtnqBigeZ832y2HcL7i+9FngYqXhNr/xLPkEPNvo1I3LVGxPHSU7cCHbCJi -JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT -/wN9xxCi +1:eJwV1nk0ld0XB3ChNKAi83TvdZEpU8hw25tkzBQiMkaUISKlMmd4aZB6kRJJ +SsR9ChGVIYVQSaFB0sArpIwN8ju/v+76rLPW89xn73O+Z9N99m/34+Tg4BBc +wsHx/9/ZgbaHzPSizTFRD+515Rht7rkkGmXUlwCmnzMirJg0QKGnPqJ9mVDB +wY6UZ6pDpN2NXq6+QjCx/lzGx0RYOyGS+bP3FjREd0qOyNrB+3qb/dO9TeDj +JnIjVNYLTJmj7773dkMnZ5RfIT0Ufvbq/jvZOwT7XCaWhYvHQfOWa0XPC6cg +19lTpaA4AyTf137xUVmAFw2PKwJDc2BdkOcNni1cWBd1rUfgfj5kapjW2Tgt +x+WcYqPHsq9Af456w/c1fCgdHfb7cXsxpBfFPuUUW4vseNWvIV9LQOTcx3/O +5gkibws394cLZSCqXHV8vlgQLzxvfrP+ahmINyXHurMFcb+G1crA8jKQnlQ8 +qNAsiHqRS/wHGspAbluoV92IIFJN5//GfS4DLe4FnY9a67DL7e/1StWbYBsh +/EmzfR3WJ7p7ddXehBRHi83ds0J4T3+U+W9DOYhXdolzLhHGX6muSYJt5VAu +6DinsUoY972Nnk17Xg6vuj3YZ2SEMTxwC4/fUDkw7SMY9ubCGBgk297CVQFN +1vnLnp0XxoCJCFG9rRWwYDrT1Wkogu2tHoc/NFVARvGR0gVTEcxzkfOOa68A +5jKOVFV7ERQTrDIW7a6AbS0rjU76ieDQjYFxzQ8VkLuFdnvbKRGsGa3oEVys +gE1olf3kvQgyft240yjJhnC9y55tCaLoe8TaLd2RDZYF/NNWJ0RR4uA7NtuZ +DQyeY6ld/4qiQ1boZLcrG5717KBeXBdF7RRNVX5vNmwI5eUa6BJFkQ2uuZ7B +bBgpPlT8Q1wMOXs41EOS2LBrnc24xG0xlJWsGdS7zQato3Xxl+rFsO96hMOf +KjasHFovTH8khg0r/y2vq2FDbQUXyPeLYcBBXmmN+2wQtqrNUF8Uw0ENl6HZ +VvL+eObGrVbimPchgWfiHRtMvv06EvJRHCN7KdX0pRREmZ9TahwTR4vgM70D +PBSUX1Z9LTgrjr8qb6WpraRA1NFLr3a5BJbVavG18lMwVtMyx7VBAtWXspNf +ilBwNiEj4vxhCRR7abfPR5GCISH5kId8kth49ZLQVksKRPY/kBIRkcQdu1U1 +9bdRsK3VpXMvTRIPVe5yV7GhoPpIuspqLUl8Wh07yLOdgrT3k6M7XSRxeEin +4MJOCjRL6vy/FUoizXiFgU4ABfGG9t7im6TQ2ndplV4iBeYel37oGkthuLhv +4dRxCvjjviY6bZPC0gVu2RvJFFxsTirO8JLCmCz2e940Cmos735d9o8Uxs54 +by/JoGDSRTZyql8KP3sZxWzOo+DOkVCetZ+k8EKT2IvGSxTEXLyXs2FCChuv +GzYZFVDAO+hct5dTGvvHzMN0r1Cg4H+CY1BJGjl+L6X9uk6Bx8GZtI6j0rjA +1aH27jYFctnGkqNJ0lg0E+erVPX/+p2+yZMhjZpfzhpEVFNw5I/iM+MiaQzf +/6d7oYaCfxM9hGo7pLHOU7V65B4FHWce51+VkkGqjKtD6jGp9+11Gs0KMvjc +JWyvdisFri+9mwY1ZJA+73DLoo2CEdE/nyRMZdDx+KB5wBMKuArUlTJDZFD9 +0frc6KcU6Jefr4x5IIN597V3ruilwKS3a2GiVQYfrg8aeUtsw8Ft5tktgwcm +xXJv9lGwe3tIP3yWwc0qnP6mrykwPUqPjVtKQ+9Eg2qndxQ8WV1/ZdNKGrJ+ +uwcIDFBgV7SjdZKfhp6nnY06iN0609d6i9KQO4Rvn+4gBaEys1eMlGm4QX5n +8dchCmZuZ7T+VKPhxRvc+Wc+knqYK49TG2mo6LSueeMnCpLCvHQYm2lYNnL7 +9IHPFOQ2t7dy2tPQ0dfPqmOYAhkXv/G7TjS8cPZShdsIBUVji2vDXWnIGzmz +ZYS4Qkjb7eNuGs7J7Vmc/4+Ch/75482RNPzB4dE9/5UCiz96AseO0vBUZ1pr +2BgFXRk9OhvjaGiReXdqmLi/dkVc0T80jI8o/PpknIKJVRECSRdpOManHX7g +GwXhBfy6rMs0fO8iLPuSeH5jidvMVRoat6/k054k9fcYKPKroGH648YzY8Si +bHNd0yYaPvDNC9X/QUGeyUe3v49oGBZjzpVCzOiPjqt+QsNybqOXz4hVOW+3 +yb+k4VR7s96uKQpuZVlPDPTTUNurqDOPeJPyiED2AA2vr4q98pbY2FFqF88I +DYucX4lsn6bg8ciduAdjNAwOKL+TSrwtevvVQ99JP/brXqwn7l473qY2S+pf +Q3s0TuxcnDIx/IuGl7XEdSRnKHirzxAsWKSh1/6eMTNin6f1ui7cdEy7wPE1 +lDho/ntcKx8d916JbLhLrB+2R/iLAB0HqByDAeLlo69LuUTJ+p2ilL/Er3xs +jehSdIwMibsqMUvB1TfNrzYz6AiBAlnaxBGOm4J2KdBRXcLYdRuxcWfZkiMq +dDR8OPfDk3iNKT07W4OOusclvUOJB+7/q1KlQ0d9u9yr0cRluiubug3oODnl +1phCfIQd4zyJdFxcY111ithccWqMz5SOTtKuCZnEwoX+CcpWdEzwD1U8S/xJ +/K2IhR0d5XhjSjOIb521u7nHiY7MxbAV6cRxvC3Gx13J+jJDkwRi2yS9vsue +dOyq6dgVSSz992bwA186asQJOfoTj0UyuN7tpaNQ1nJlJ+K737JyfoXQ0ZX7 +/BAQpwas2iAaQUfjortHFYh3fIht1o6i42spn7lVxEzXaReHGDqaDB/fMU7q +96M7YCI0kY7CJmK5T4gbrN4lnkql4w0T4eZi4lMP7cXKTtIxqiW8O4Z4F+tR +eVsmHcNClNociJWq9U2Gs+lodkvruhzxzw0V/dx55H2d/4ROk/63XpPdzygk +/XmsINtAnEXL4cZrdNQOWdH4//2jKRCvdpSiY9xwWtMaYo70mYc51XQ02Cy/ +/hnZf11c+1yr6+hIt/hz7ARx4Mz2pO8tdAzkdpn/Tfazfshj8dVP6HjZ9z2t +gnj5sAFb5Rn5/t4iQ0/ioj7mG//XdIytnrGv/k7BAfvzoUnv6cjzX6q1OzG2 +8y278on8v5q9uIT4Xd2s+sAEHR0WldcgOV/C+a3JjlwMfJiXGHF+gvRThCV5 +YDkDeT/amK0nvpVBUaf5GDhI3RCrJOfZNiH3bbsIAwNdtjQ2kfOe6hekaaTC +QK2twXr1o6QfA4OPPTQYOKGlIq9FzHR2cj+mw8BvOC5+jeRJg/nm1DvIQA3+ +eloyyZufymsGVJ0YWK1VUEf7QsFsnni8lisDKxvTFxJIfk2vlmPqeTKwhbIO +HCL5NjGlt89kLwMvCB7syiH5N1S3e9Y1moFSrc7PPpK8bLe6w596lYHundfL +pkj+Pr7XSJ28wcAVymsVFYkfqnU4nq1g4O/zYkNu/RTcF/yQe6mWgQ3B2/lr +SZ7ferNSoaqTgUaBR4O395D8DPSAoRkGmrTZ63F2UpD9LmBo+BcDp3tdl/B2 +UHDONjxpfJGBFYV7RATJ/XFKK/XJ/ApZ1OKZ0hAj90vCb8p5tbQsvtGbhaUt +pL/pS0MNTWVRbrniXfd6CgxLywqysmRR44CYiGgJBW9opflbL8ji2m+fmZ+u +kfOYVXJpOl8Wu44q/bpZTO7b+OKL20tk0a19+K9+EdlfLgU5/PWyqO39Jl0/ +nwLFpecykj/Ionczf9qzc6S/nkfjIlWYuNan5a1HDAVVPVGxchpM3Js2Xv35 +GAWOlodjerSZeF3p3KF9RynI1D54TBOYqKDkwA4+TAEf7/7DE/ZMzLTzk3A7 +QAF3rU/onkNM1I7Rv9PtR8F3AUuvHU1M/FKVuNrQioK+IMazfY+ZWMplJrfL +gvT70S+I7WBi8Y+mkSgzCjKOlMpcf8XEi1UyMeVbKFAf4n3/c5SJC+clef4Y +UBBCPXXPE5TDCZfKGkUVCkZtndw++crhHWS+7yPz1acTXjsO8MijTeAS8+eN +bAgZVWGo88rjggrteMYDNsyZ/RwfXyOPEUomS23ukfmPKzNpr7g8Bu5Z+6aZ +zH/qUc2VXqryaDT0dyq3gg3RfvKCtg7yuGz46Mu5i2Qe3Dz2VDlfHv05D6tF +RLLB4tshi886Cnj8p7N1NZMNY7uXh1fGrifrjfvvk3nclCnCmdKkiNJWzl6a +QjdBoFP+FPubEroLnonfvK8UJFMr7HR0VFDNJpEzJbkEcpT11gj6q+KVeE6b +njvXoF3cSHvqzAb0TUzeIPntKuhLNmWovVJDvyDJmUCuIuDnKozwTlDHF0H9 +6kLGhSAdL2O4U14D8yXqbaUDC2CF3K7q7Y81MLM8YNRudx5sYIlVHHLXRLlX +Vk7lzrlwYECg2ZJDC9NOn8yygWz4NnXCySJHC32bPtyoyzgHZmqPci1UNyIX +K2+JvGwm3J8y+D3XtRFvFrUoPzp4GkJUNF8/99NGg6W9DYK+6cCa8O3ZuUIH +W1lNyjXBKbCVKWrNV6iDRgMXn69iHIf1cWmHm3R10aajw6/JOB6U/PQeyL3W +xZSmxoHSldHgdz/geGXYJrz8VJ3P+dxheFDQ4/tdSA/bXB/xJPlGwPT1xTm1 +O3o4NOh2nn8wFHbLla7ItdbHumO2+r2MIPiudFbn1qQ+MgvmKYW5PVBT9PvD +TKoBjuus6y787AM6WyLmLNMNsHoNBHD1+kDVhzHegpMG+LUlrSu41QduSQ/o +WmYa4FqZE7OepT5QltNw8tIFAxQdfUSvDfOBghNJemblBvj+oJCzPocP/BOx ++kzOCwMMsn3EdGR6g6uJLBpIG6K08hLNc6s9YaFnOX8zzRDfHlAoejntAQV+ +E28sZQ2RPyNrk/JrD/iSXHvIdb0hVq2TzBa46gEH2mwrojQNsSEx6MUzAw9I +szkmXWNqiMKTZpc4gt3hrsvLPxv3G2KH/U9m/zs3kAhOqd3QYIiKaK77ZtYF +Ti3u0U5vMkQZfq9XOOQCnJmm1PBDQ8xWbQ2r6nSB0eqlJQVthvjzWlLUkyIX +uMtxPEfghSH2twc+L3FwAddzcYdmPxtii+yTHoVKZ8ipi9K+v4qFydzax77G +7gChlUGUtTMLa5+X8bHREYq2RB+Z3MnCuP8EVc6qOoJm9KktZ3excOTmF6tk +cUewmWS/7PNmocy2QZ+L0w6Q/Grm5+4gFmZM9VcmlzjAfGGs8ZF4Fo4uM9Sw +FHaA1wZnXxSXslAiuXIOfttDwMGiixblLOx8Nz/KN2oPs+VVfmNsFsYsW0gY +7bMHAUbfnEY1C63C1x96Wm0PVsulJO81sNBNMcbSLNwe6nuKfV+8ZKFrOmfi +5wk7sOSvUY3sY2G4d/RAzoAd9Jm1zYq+YaHCt45Nrl12MH33a6rHIAvnSzQa +l5Xbgepl9Zv/jZLvlTZYuizEDupfG0WeGGeh0kEPg/Ue5HnrHEBtkqwPRci4 +2NjBnpSDzyNmWOjQfqBtcAN5XkNyrsg8C38M7j6qJ2MHCb+yd9/9xcITW91u +56+2gzUbS1TcF1iocSTQX5DDDi4F351ZXGTh1JSLhOIHW/gfKbfhJw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07016868364044451}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8428,6 +14185,7 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8455,7 +14213,8 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07016868364044451}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8463,17 +14222,580 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913381496467495`*^9}, + CellChangeTimes->{3.9913381496467495`*^9, 3.993921133221143*^9}, CellLabel-> - "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] + "Out[140]=",ExpressionUUID->"3928d8dc-3056-4d27-b8c8-c5d9d128c869"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ -5c3b93725916"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0ld0XB3ChNKAi83TvdZEpU8hw25tkzBQiMkaUISKlMmd4aZB6kRJJ +SsR9ChGVIYVQSaFB0sArpIwN8ju/v+76rLPW89xn73O+Z9N99m/34+Tg4BBc +wsHx/9/ZgbaHzPSizTFRD+515Rht7rkkGmXUlwCmnzMirJg0QKGnPqJ9mVDB +wY6UZ6pDpN2NXq6+QjCx/lzGx0RYOyGS+bP3FjREd0qOyNrB+3qb/dO9TeDj +JnIjVNYLTJmj7773dkMnZ5RfIT0Ufvbq/jvZOwT7XCaWhYvHQfOWa0XPC6cg +19lTpaA4AyTf137xUVmAFw2PKwJDc2BdkOcNni1cWBd1rUfgfj5kapjW2Tgt +x+WcYqPHsq9Af456w/c1fCgdHfb7cXsxpBfFPuUUW4vseNWvIV9LQOTcx3/O +5gkibws394cLZSCqXHV8vlgQLzxvfrP+ahmINyXHurMFcb+G1crA8jKQnlQ8 +qNAsiHqRS/wHGspAbluoV92IIFJN5//GfS4DLe4FnY9a67DL7e/1StWbYBsh +/EmzfR3WJ7p7ddXehBRHi83ds0J4T3+U+W9DOYhXdolzLhHGX6muSYJt5VAu +6DinsUoY972Nnk17Xg6vuj3YZ2SEMTxwC4/fUDkw7SMY9ubCGBgk297CVQFN +1vnLnp0XxoCJCFG9rRWwYDrT1Wkogu2tHoc/NFVARvGR0gVTEcxzkfOOa68A +5jKOVFV7ERQTrDIW7a6AbS0rjU76ieDQjYFxzQ8VkLuFdnvbKRGsGa3oEVys +gE1olf3kvQgyft240yjJhnC9y55tCaLoe8TaLd2RDZYF/NNWJ0RR4uA7NtuZ +DQyeY6ld/4qiQ1boZLcrG5717KBeXBdF7RRNVX5vNmwI5eUa6BJFkQ2uuZ7B +bBgpPlT8Q1wMOXs41EOS2LBrnc24xG0xlJWsGdS7zQato3Xxl+rFsO96hMOf +KjasHFovTH8khg0r/y2vq2FDbQUXyPeLYcBBXmmN+2wQtqrNUF8Uw0ENl6HZ +VvL+eObGrVbimPchgWfiHRtMvv06EvJRHCN7KdX0pRREmZ9TahwTR4vgM70D +PBSUX1Z9LTgrjr8qb6WpraRA1NFLr3a5BJbVavG18lMwVtMyx7VBAtWXspNf +ilBwNiEj4vxhCRR7abfPR5GCISH5kId8kth49ZLQVksKRPY/kBIRkcQdu1U1 +9bdRsK3VpXMvTRIPVe5yV7GhoPpIuspqLUl8Wh07yLOdgrT3k6M7XSRxeEin +4MJOCjRL6vy/FUoizXiFgU4ABfGG9t7im6TQ2ndplV4iBeYel37oGkthuLhv +4dRxCvjjviY6bZPC0gVu2RvJFFxsTirO8JLCmCz2e940Cmos735d9o8Uxs54 +by/JoGDSRTZyql8KP3sZxWzOo+DOkVCetZ+k8EKT2IvGSxTEXLyXs2FCChuv +GzYZFVDAO+hct5dTGvvHzMN0r1Cg4H+CY1BJGjl+L6X9uk6Bx8GZtI6j0rjA +1aH27jYFctnGkqNJ0lg0E+erVPX/+p2+yZMhjZpfzhpEVFNw5I/iM+MiaQzf +/6d7oYaCfxM9hGo7pLHOU7V65B4FHWce51+VkkGqjKtD6jGp9+11Gs0KMvjc +JWyvdisFri+9mwY1ZJA+73DLoo2CEdE/nyRMZdDx+KB5wBMKuArUlTJDZFD9 +0frc6KcU6Jefr4x5IIN597V3ruilwKS3a2GiVQYfrg8aeUtsw8Ft5tktgwcm +xXJv9lGwe3tIP3yWwc0qnP6mrykwPUqPjVtKQ+9Eg2qndxQ8WV1/ZdNKGrJ+ +uwcIDFBgV7SjdZKfhp6nnY06iN0609d6i9KQO4Rvn+4gBaEys1eMlGm4QX5n +8dchCmZuZ7T+VKPhxRvc+Wc+knqYK49TG2mo6LSueeMnCpLCvHQYm2lYNnL7 +9IHPFOQ2t7dy2tPQ0dfPqmOYAhkXv/G7TjS8cPZShdsIBUVji2vDXWnIGzmz +ZYS4Qkjb7eNuGs7J7Vmc/4+Ch/75482RNPzB4dE9/5UCiz96AseO0vBUZ1pr +2BgFXRk9OhvjaGiReXdqmLi/dkVc0T80jI8o/PpknIKJVRECSRdpOManHX7g +GwXhBfy6rMs0fO8iLPuSeH5jidvMVRoat6/k054k9fcYKPKroGH648YzY8Si +bHNd0yYaPvDNC9X/QUGeyUe3v49oGBZjzpVCzOiPjqt+QsNybqOXz4hVOW+3 +yb+k4VR7s96uKQpuZVlPDPTTUNurqDOPeJPyiED2AA2vr4q98pbY2FFqF88I +DYucX4lsn6bg8ciduAdjNAwOKL+TSrwtevvVQ99JP/brXqwn7l473qY2S+pf +Q3s0TuxcnDIx/IuGl7XEdSRnKHirzxAsWKSh1/6eMTNin6f1ui7cdEy7wPE1 +lDho/ntcKx8d916JbLhLrB+2R/iLAB0HqByDAeLlo69LuUTJ+p2ilL/Er3xs +jehSdIwMibsqMUvB1TfNrzYz6AiBAlnaxBGOm4J2KdBRXcLYdRuxcWfZkiMq +dDR8OPfDk3iNKT07W4OOusclvUOJB+7/q1KlQ0d9u9yr0cRluiubug3oODnl +1phCfIQd4zyJdFxcY111ithccWqMz5SOTtKuCZnEwoX+CcpWdEzwD1U8S/xJ +/K2IhR0d5XhjSjOIb521u7nHiY7MxbAV6cRxvC3Gx13J+jJDkwRi2yS9vsue +dOyq6dgVSSz992bwA186asQJOfoTj0UyuN7tpaNQ1nJlJ+K737JyfoXQ0ZX7 +/BAQpwas2iAaQUfjortHFYh3fIht1o6i42spn7lVxEzXaReHGDqaDB/fMU7q +96M7YCI0kY7CJmK5T4gbrN4lnkql4w0T4eZi4lMP7cXKTtIxqiW8O4Z4F+tR +eVsmHcNClNociJWq9U2Gs+lodkvruhzxzw0V/dx55H2d/4ROk/63XpPdzygk +/XmsINtAnEXL4cZrdNQOWdH4//2jKRCvdpSiY9xwWtMaYo70mYc51XQ02Cy/ +/hnZf11c+1yr6+hIt/hz7ARx4Mz2pO8tdAzkdpn/Tfazfshj8dVP6HjZ9z2t +gnj5sAFb5Rn5/t4iQ0/ioj7mG//XdIytnrGv/k7BAfvzoUnv6cjzX6q1OzG2 +8y278on8v5q9uIT4Xd2s+sAEHR0WldcgOV/C+a3JjlwMfJiXGHF+gvRThCV5 +YDkDeT/amK0nvpVBUaf5GDhI3RCrJOfZNiH3bbsIAwNdtjQ2kfOe6hekaaTC +QK2twXr1o6QfA4OPPTQYOKGlIq9FzHR2cj+mw8BvOC5+jeRJg/nm1DvIQA3+ +eloyyZufymsGVJ0YWK1VUEf7QsFsnni8lisDKxvTFxJIfk2vlmPqeTKwhbIO +HCL5NjGlt89kLwMvCB7syiH5N1S3e9Y1moFSrc7PPpK8bLe6w596lYHundfL +pkj+Pr7XSJ28wcAVymsVFYkfqnU4nq1g4O/zYkNu/RTcF/yQe6mWgQ3B2/lr +SZ7ferNSoaqTgUaBR4O395D8DPSAoRkGmrTZ63F2UpD9LmBo+BcDp3tdl/B2 +UHDONjxpfJGBFYV7RATJ/XFKK/XJ/ApZ1OKZ0hAj90vCb8p5tbQsvtGbhaUt +pL/pS0MNTWVRbrniXfd6CgxLywqysmRR44CYiGgJBW9opflbL8ji2m+fmZ+u +kfOYVXJpOl8Wu44q/bpZTO7b+OKL20tk0a19+K9+EdlfLgU5/PWyqO39Jl0/ +nwLFpecykj/Ionczf9qzc6S/nkfjIlWYuNan5a1HDAVVPVGxchpM3Js2Xv35 +GAWOlodjerSZeF3p3KF9RynI1D54TBOYqKDkwA4+TAEf7/7DE/ZMzLTzk3A7 +QAF3rU/onkNM1I7Rv9PtR8F3AUuvHU1M/FKVuNrQioK+IMazfY+ZWMplJrfL +gvT70S+I7WBi8Y+mkSgzCjKOlMpcf8XEi1UyMeVbKFAf4n3/c5SJC+clef4Y +UBBCPXXPE5TDCZfKGkUVCkZtndw++crhHWS+7yPz1acTXjsO8MijTeAS8+eN +bAgZVWGo88rjggrteMYDNsyZ/RwfXyOPEUomS23ukfmPKzNpr7g8Bu5Z+6aZ +zH/qUc2VXqryaDT0dyq3gg3RfvKCtg7yuGz46Mu5i2Qe3Dz2VDlfHv05D6tF +RLLB4tshi886Cnj8p7N1NZMNY7uXh1fGrifrjfvvk3nclCnCmdKkiNJWzl6a +QjdBoFP+FPubEroLnonfvK8UJFMr7HR0VFDNJpEzJbkEcpT11gj6q+KVeE6b +njvXoF3cSHvqzAb0TUzeIPntKuhLNmWovVJDvyDJmUCuIuDnKozwTlDHF0H9 +6kLGhSAdL2O4U14D8yXqbaUDC2CF3K7q7Y81MLM8YNRudx5sYIlVHHLXRLlX +Vk7lzrlwYECg2ZJDC9NOn8yygWz4NnXCySJHC32bPtyoyzgHZmqPci1UNyIX +K2+JvGwm3J8y+D3XtRFvFrUoPzp4GkJUNF8/99NGg6W9DYK+6cCa8O3ZuUIH +W1lNyjXBKbCVKWrNV6iDRgMXn69iHIf1cWmHm3R10aajw6/JOB6U/PQeyL3W +xZSmxoHSldHgdz/geGXYJrz8VJ3P+dxheFDQ4/tdSA/bXB/xJPlGwPT1xTm1 +O3o4NOh2nn8wFHbLla7ItdbHumO2+r2MIPiudFbn1qQ+MgvmKYW5PVBT9PvD +TKoBjuus6y787AM6WyLmLNMNsHoNBHD1+kDVhzHegpMG+LUlrSu41QduSQ/o +WmYa4FqZE7OepT5QltNw8tIFAxQdfUSvDfOBghNJemblBvj+oJCzPocP/BOx ++kzOCwMMsn3EdGR6g6uJLBpIG6K08hLNc6s9YaFnOX8zzRDfHlAoejntAQV+ +E28sZQ2RPyNrk/JrD/iSXHvIdb0hVq2TzBa46gEH2mwrojQNsSEx6MUzAw9I +szkmXWNqiMKTZpc4gt3hrsvLPxv3G2KH/U9m/zs3kAhOqd3QYIiKaK77ZtYF +Ti3u0U5vMkQZfq9XOOQCnJmm1PBDQ8xWbQ2r6nSB0eqlJQVthvjzWlLUkyIX +uMtxPEfghSH2twc+L3FwAddzcYdmPxtii+yTHoVKZ8ipi9K+v4qFydzax77G +7gChlUGUtTMLa5+X8bHREYq2RB+Z3MnCuP8EVc6qOoJm9KktZ3excOTmF6tk +cUewmWS/7PNmocy2QZ+L0w6Q/Grm5+4gFmZM9VcmlzjAfGGs8ZF4Fo4uM9Sw +FHaA1wZnXxSXslAiuXIOfttDwMGiixblLOx8Nz/KN2oPs+VVfmNsFsYsW0gY +7bMHAUbfnEY1C63C1x96Wm0PVsulJO81sNBNMcbSLNwe6nuKfV+8ZKFrOmfi +5wk7sOSvUY3sY2G4d/RAzoAd9Jm1zYq+YaHCt45Nrl12MH33a6rHIAvnSzQa +l5Xbgepl9Zv/jZLvlTZYuizEDupfG0WeGGeh0kEPg/Ue5HnrHEBtkqwPRci4 +2NjBnpSDzyNmWOjQfqBtcAN5XkNyrsg8C38M7j6qJ2MHCb+yd9/9xcITW91u +56+2gzUbS1TcF1iocSTQX5DDDi4F351ZXGTh1JSLhOIHW/gfKbfhJw== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0ld0XB3ChNKAi83TvdZEpU8hw25tkzBQiMkaUISKlMmd4aZB6kRJJ +SsR9ChGVIYVQSaFB0sArpIwN8ju/v+76rLPW89xn73O+Z9N99m/34+Tg4BBc +wsHx/9/ZgbaHzPSizTFRD+515Rht7rkkGmXUlwCmnzMirJg0QKGnPqJ9mVDB +wY6UZ6pDpN2NXq6+QjCx/lzGx0RYOyGS+bP3FjREd0qOyNrB+3qb/dO9TeDj +JnIjVNYLTJmj7773dkMnZ5RfIT0Ufvbq/jvZOwT7XCaWhYvHQfOWa0XPC6cg +19lTpaA4AyTf137xUVmAFw2PKwJDc2BdkOcNni1cWBd1rUfgfj5kapjW2Tgt +x+WcYqPHsq9Af456w/c1fCgdHfb7cXsxpBfFPuUUW4vseNWvIV9LQOTcx3/O +5gkibws394cLZSCqXHV8vlgQLzxvfrP+ahmINyXHurMFcb+G1crA8jKQnlQ8 +qNAsiHqRS/wHGspAbluoV92IIFJN5//GfS4DLe4FnY9a67DL7e/1StWbYBsh +/EmzfR3WJ7p7ddXehBRHi83ds0J4T3+U+W9DOYhXdolzLhHGX6muSYJt5VAu +6DinsUoY972Nnk17Xg6vuj3YZ2SEMTxwC4/fUDkw7SMY9ubCGBgk297CVQFN +1vnLnp0XxoCJCFG9rRWwYDrT1Wkogu2tHoc/NFVARvGR0gVTEcxzkfOOa68A +5jKOVFV7ERQTrDIW7a6AbS0rjU76ieDQjYFxzQ8VkLuFdnvbKRGsGa3oEVys +gE1olf3kvQgyft240yjJhnC9y55tCaLoe8TaLd2RDZYF/NNWJ0RR4uA7NtuZ +DQyeY6ld/4qiQ1boZLcrG5717KBeXBdF7RRNVX5vNmwI5eUa6BJFkQ2uuZ7B +bBgpPlT8Q1wMOXs41EOS2LBrnc24xG0xlJWsGdS7zQato3Xxl+rFsO96hMOf +KjasHFovTH8khg0r/y2vq2FDbQUXyPeLYcBBXmmN+2wQtqrNUF8Uw0ENl6HZ +VvL+eObGrVbimPchgWfiHRtMvv06EvJRHCN7KdX0pRREmZ9TahwTR4vgM70D +PBSUX1Z9LTgrjr8qb6WpraRA1NFLr3a5BJbVavG18lMwVtMyx7VBAtWXspNf +ilBwNiEj4vxhCRR7abfPR5GCISH5kId8kth49ZLQVksKRPY/kBIRkcQdu1U1 +9bdRsK3VpXMvTRIPVe5yV7GhoPpIuspqLUl8Wh07yLOdgrT3k6M7XSRxeEin +4MJOCjRL6vy/FUoizXiFgU4ABfGG9t7im6TQ2ndplV4iBeYel37oGkthuLhv +4dRxCvjjviY6bZPC0gVu2RvJFFxsTirO8JLCmCz2e940Cmos735d9o8Uxs54 +by/JoGDSRTZyql8KP3sZxWzOo+DOkVCetZ+k8EKT2IvGSxTEXLyXs2FCChuv +GzYZFVDAO+hct5dTGvvHzMN0r1Cg4H+CY1BJGjl+L6X9uk6Bx8GZtI6j0rjA +1aH27jYFctnGkqNJ0lg0E+erVPX/+p2+yZMhjZpfzhpEVFNw5I/iM+MiaQzf +/6d7oYaCfxM9hGo7pLHOU7V65B4FHWce51+VkkGqjKtD6jGp9+11Gs0KMvjc +JWyvdisFri+9mwY1ZJA+73DLoo2CEdE/nyRMZdDx+KB5wBMKuArUlTJDZFD9 +0frc6KcU6Jefr4x5IIN597V3ruilwKS3a2GiVQYfrg8aeUtsw8Ft5tktgwcm +xXJv9lGwe3tIP3yWwc0qnP6mrykwPUqPjVtKQ+9Eg2qndxQ8WV1/ZdNKGrJ+ +uwcIDFBgV7SjdZKfhp6nnY06iN0609d6i9KQO4Rvn+4gBaEys1eMlGm4QX5n +8dchCmZuZ7T+VKPhxRvc+Wc+knqYK49TG2mo6LSueeMnCpLCvHQYm2lYNnL7 +9IHPFOQ2t7dy2tPQ0dfPqmOYAhkXv/G7TjS8cPZShdsIBUVji2vDXWnIGzmz +ZYS4Qkjb7eNuGs7J7Vmc/4+Ch/75482RNPzB4dE9/5UCiz96AseO0vBUZ1pr +2BgFXRk9OhvjaGiReXdqmLi/dkVc0T80jI8o/PpknIKJVRECSRdpOManHX7g +GwXhBfy6rMs0fO8iLPuSeH5jidvMVRoat6/k054k9fcYKPKroGH648YzY8Si +bHNd0yYaPvDNC9X/QUGeyUe3v49oGBZjzpVCzOiPjqt+QsNybqOXz4hVOW+3 +yb+k4VR7s96uKQpuZVlPDPTTUNurqDOPeJPyiED2AA2vr4q98pbY2FFqF88I +DYucX4lsn6bg8ciduAdjNAwOKL+TSrwtevvVQ99JP/brXqwn7l473qY2S+pf +Q3s0TuxcnDIx/IuGl7XEdSRnKHirzxAsWKSh1/6eMTNin6f1ui7cdEy7wPE1 +lDho/ntcKx8d916JbLhLrB+2R/iLAB0HqByDAeLlo69LuUTJ+p2ilL/Er3xs +jehSdIwMibsqMUvB1TfNrzYz6AiBAlnaxBGOm4J2KdBRXcLYdRuxcWfZkiMq +dDR8OPfDk3iNKT07W4OOusclvUOJB+7/q1KlQ0d9u9yr0cRluiubug3oODnl +1phCfIQd4zyJdFxcY111ithccWqMz5SOTtKuCZnEwoX+CcpWdEzwD1U8S/xJ +/K2IhR0d5XhjSjOIb521u7nHiY7MxbAV6cRxvC3Gx13J+jJDkwRi2yS9vsue +dOyq6dgVSSz992bwA186asQJOfoTj0UyuN7tpaNQ1nJlJ+K737JyfoXQ0ZX7 +/BAQpwas2iAaQUfjortHFYh3fIht1o6i42spn7lVxEzXaReHGDqaDB/fMU7q +96M7YCI0kY7CJmK5T4gbrN4lnkql4w0T4eZi4lMP7cXKTtIxqiW8O4Z4F+tR +eVsmHcNClNociJWq9U2Gs+lodkvruhzxzw0V/dx55H2d/4ROk/63XpPdzygk +/XmsINtAnEXL4cZrdNQOWdH4//2jKRCvdpSiY9xwWtMaYo70mYc51XQ02Cy/ +/hnZf11c+1yr6+hIt/hz7ARx4Mz2pO8tdAzkdpn/Tfazfshj8dVP6HjZ9z2t +gnj5sAFb5Rn5/t4iQ0/ioj7mG//XdIytnrGv/k7BAfvzoUnv6cjzX6q1OzG2 +8y278on8v5q9uIT4Xd2s+sAEHR0WldcgOV/C+a3JjlwMfJiXGHF+gvRThCV5 +YDkDeT/amK0nvpVBUaf5GDhI3RCrJOfZNiH3bbsIAwNdtjQ2kfOe6hekaaTC +QK2twXr1o6QfA4OPPTQYOKGlIq9FzHR2cj+mw8BvOC5+jeRJg/nm1DvIQA3+ +eloyyZufymsGVJ0YWK1VUEf7QsFsnni8lisDKxvTFxJIfk2vlmPqeTKwhbIO +HCL5NjGlt89kLwMvCB7syiH5N1S3e9Y1moFSrc7PPpK8bLe6w596lYHundfL +pkj+Pr7XSJ28wcAVymsVFYkfqnU4nq1g4O/zYkNu/RTcF/yQe6mWgQ3B2/lr +SZ7ferNSoaqTgUaBR4O395D8DPSAoRkGmrTZ63F2UpD9LmBo+BcDp3tdl/B2 +UHDONjxpfJGBFYV7RATJ/XFKK/XJ/ApZ1OKZ0hAj90vCb8p5tbQsvtGbhaUt +pL/pS0MNTWVRbrniXfd6CgxLywqysmRR44CYiGgJBW9opflbL8ji2m+fmZ+u +kfOYVXJpOl8Wu44q/bpZTO7b+OKL20tk0a19+K9+EdlfLgU5/PWyqO39Jl0/ +nwLFpecykj/Ionczf9qzc6S/nkfjIlWYuNan5a1HDAVVPVGxchpM3Js2Xv35 +GAWOlodjerSZeF3p3KF9RynI1D54TBOYqKDkwA4+TAEf7/7DE/ZMzLTzk3A7 +QAF3rU/onkNM1I7Rv9PtR8F3AUuvHU1M/FKVuNrQioK+IMazfY+ZWMplJrfL +gvT70S+I7WBi8Y+mkSgzCjKOlMpcf8XEi1UyMeVbKFAf4n3/c5SJC+clef4Y +UBBCPXXPE5TDCZfKGkUVCkZtndw++crhHWS+7yPz1acTXjsO8MijTeAS8+eN +bAgZVWGo88rjggrteMYDNsyZ/RwfXyOPEUomS23ukfmPKzNpr7g8Bu5Z+6aZ +zH/qUc2VXqryaDT0dyq3gg3RfvKCtg7yuGz46Mu5i2Qe3Dz2VDlfHv05D6tF +RLLB4tshi886Cnj8p7N1NZMNY7uXh1fGrifrjfvvk3nclCnCmdKkiNJWzl6a +QjdBoFP+FPubEroLnonfvK8UJFMr7HR0VFDNJpEzJbkEcpT11gj6q+KVeE6b +njvXoF3cSHvqzAb0TUzeIPntKuhLNmWovVJDvyDJmUCuIuDnKozwTlDHF0H9 +6kLGhSAdL2O4U14D8yXqbaUDC2CF3K7q7Y81MLM8YNRudx5sYIlVHHLXRLlX +Vk7lzrlwYECg2ZJDC9NOn8yygWz4NnXCySJHC32bPtyoyzgHZmqPci1UNyIX +K2+JvGwm3J8y+D3XtRFvFrUoPzp4GkJUNF8/99NGg6W9DYK+6cCa8O3ZuUIH +W1lNyjXBKbCVKWrNV6iDRgMXn69iHIf1cWmHm3R10aajw6/JOB6U/PQeyL3W +xZSmxoHSldHgdz/geGXYJrz8VJ3P+dxheFDQ4/tdSA/bXB/xJPlGwPT1xTm1 +O3o4NOh2nn8wFHbLla7ItdbHumO2+r2MIPiudFbn1qQ+MgvmKYW5PVBT9PvD +TKoBjuus6y787AM6WyLmLNMNsHoNBHD1+kDVhzHegpMG+LUlrSu41QduSQ/o +WmYa4FqZE7OepT5QltNw8tIFAxQdfUSvDfOBghNJemblBvj+oJCzPocP/BOx ++kzOCwMMsn3EdGR6g6uJLBpIG6K08hLNc6s9YaFnOX8zzRDfHlAoejntAQV+ +E28sZQ2RPyNrk/JrD/iSXHvIdb0hVq2TzBa46gEH2mwrojQNsSEx6MUzAw9I +szkmXWNqiMKTZpc4gt3hrsvLPxv3G2KH/U9m/zs3kAhOqd3QYIiKaK77ZtYF +Ti3u0U5vMkQZfq9XOOQCnJmm1PBDQ8xWbQ2r6nSB0eqlJQVthvjzWlLUkyIX +uMtxPEfghSH2twc+L3FwAddzcYdmPxtii+yTHoVKZ8ipi9K+v4qFydzax77G +7gChlUGUtTMLa5+X8bHREYq2RB+Z3MnCuP8EVc6qOoJm9KktZ3excOTmF6tk +cUewmWS/7PNmocy2QZ+L0w6Q/Grm5+4gFmZM9VcmlzjAfGGs8ZF4Fo4uM9Sw +FHaA1wZnXxSXslAiuXIOfttDwMGiixblLOx8Nz/KN2oPs+VVfmNsFsYsW0gY +7bMHAUbfnEY1C63C1x96Wm0PVsulJO81sNBNMcbSLNwe6nuKfV+8ZKFrOmfi +5wk7sOSvUY3sY2G4d/RAzoAd9Jm1zYq+YaHCt45Nrl12MH33a6rHIAvnSzQa +l5Xbgepl9Zv/jZLvlTZYuizEDupfG0WeGGeh0kEPg/Ue5HnrHEBtkqwPRci4 +2NjBnpSDzyNmWOjQfqBtcAN5XkNyrsg8C38M7j6qJ2MHCb+yd9/9xcITW91u +56+2gzUbS1TcF1iocSTQX5DDDi4F351ZXGTh1JSLhOIHW/gfKbfhJw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07016868364044451}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.07016868364044451}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0ld0XB3ChNKAi83TvdZEpU8hw25tkzBQiMkaUISKlMmd4aZB6kRJJ +SsR9ChGVIYVQSaFB0sArpIwN8ju/v+76rLPW89xn73O+Z9N99m/34+Tg4BBc +wsHx/9/ZgbaHzPSizTFRD+515Rht7rkkGmXUlwCmnzMirJg0QKGnPqJ9mVDB +wY6UZ6pDpN2NXq6+QjCx/lzGx0RYOyGS+bP3FjREd0qOyNrB+3qb/dO9TeDj +JnIjVNYLTJmj7773dkMnZ5RfIT0Ufvbq/jvZOwT7XCaWhYvHQfOWa0XPC6cg +19lTpaA4AyTf137xUVmAFw2PKwJDc2BdkOcNni1cWBd1rUfgfj5kapjW2Tgt +x+WcYqPHsq9Af456w/c1fCgdHfb7cXsxpBfFPuUUW4vseNWvIV9LQOTcx3/O +5gkibws394cLZSCqXHV8vlgQLzxvfrP+ahmINyXHurMFcb+G1crA8jKQnlQ8 +qNAsiHqRS/wHGspAbluoV92IIFJN5//GfS4DLe4FnY9a67DL7e/1StWbYBsh +/EmzfR3WJ7p7ddXehBRHi83ds0J4T3+U+W9DOYhXdolzLhHGX6muSYJt5VAu +6DinsUoY972Nnk17Xg6vuj3YZ2SEMTxwC4/fUDkw7SMY9ubCGBgk297CVQFN +1vnLnp0XxoCJCFG9rRWwYDrT1Wkogu2tHoc/NFVARvGR0gVTEcxzkfOOa68A +5jKOVFV7ERQTrDIW7a6AbS0rjU76ieDQjYFxzQ8VkLuFdnvbKRGsGa3oEVys +gE1olf3kvQgyft240yjJhnC9y55tCaLoe8TaLd2RDZYF/NNWJ0RR4uA7NtuZ +DQyeY6ld/4qiQ1boZLcrG5717KBeXBdF7RRNVX5vNmwI5eUa6BJFkQ2uuZ7B +bBgpPlT8Q1wMOXs41EOS2LBrnc24xG0xlJWsGdS7zQato3Xxl+rFsO96hMOf +KjasHFovTH8khg0r/y2vq2FDbQUXyPeLYcBBXmmN+2wQtqrNUF8Uw0ENl6HZ +VvL+eObGrVbimPchgWfiHRtMvv06EvJRHCN7KdX0pRREmZ9TahwTR4vgM70D +PBSUX1Z9LTgrjr8qb6WpraRA1NFLr3a5BJbVavG18lMwVtMyx7VBAtWXspNf +ilBwNiEj4vxhCRR7abfPR5GCISH5kId8kth49ZLQVksKRPY/kBIRkcQdu1U1 +9bdRsK3VpXMvTRIPVe5yV7GhoPpIuspqLUl8Wh07yLOdgrT3k6M7XSRxeEin +4MJOCjRL6vy/FUoizXiFgU4ABfGG9t7im6TQ2ndplV4iBeYel37oGkthuLhv +4dRxCvjjviY6bZPC0gVu2RvJFFxsTirO8JLCmCz2e940Cmos735d9o8Uxs54 +by/JoGDSRTZyql8KP3sZxWzOo+DOkVCetZ+k8EKT2IvGSxTEXLyXs2FCChuv +GzYZFVDAO+hct5dTGvvHzMN0r1Cg4H+CY1BJGjl+L6X9uk6Bx8GZtI6j0rjA +1aH27jYFctnGkqNJ0lg0E+erVPX/+p2+yZMhjZpfzhpEVFNw5I/iM+MiaQzf +/6d7oYaCfxM9hGo7pLHOU7V65B4FHWce51+VkkGqjKtD6jGp9+11Gs0KMvjc +JWyvdisFri+9mwY1ZJA+73DLoo2CEdE/nyRMZdDx+KB5wBMKuArUlTJDZFD9 +0frc6KcU6Jefr4x5IIN597V3ruilwKS3a2GiVQYfrg8aeUtsw8Ft5tktgwcm +xXJv9lGwe3tIP3yWwc0qnP6mrykwPUqPjVtKQ+9Eg2qndxQ8WV1/ZdNKGrJ+ +uwcIDFBgV7SjdZKfhp6nnY06iN0609d6i9KQO4Rvn+4gBaEys1eMlGm4QX5n +8dchCmZuZ7T+VKPhxRvc+Wc+knqYK49TG2mo6LSueeMnCpLCvHQYm2lYNnL7 +9IHPFOQ2t7dy2tPQ0dfPqmOYAhkXv/G7TjS8cPZShdsIBUVji2vDXWnIGzmz +ZYS4Qkjb7eNuGs7J7Vmc/4+Ch/75482RNPzB4dE9/5UCiz96AseO0vBUZ1pr +2BgFXRk9OhvjaGiReXdqmLi/dkVc0T80jI8o/PpknIKJVRECSRdpOManHX7g +GwXhBfy6rMs0fO8iLPuSeH5jidvMVRoat6/k054k9fcYKPKroGH648YzY8Si +bHNd0yYaPvDNC9X/QUGeyUe3v49oGBZjzpVCzOiPjqt+QsNybqOXz4hVOW+3 +yb+k4VR7s96uKQpuZVlPDPTTUNurqDOPeJPyiED2AA2vr4q98pbY2FFqF88I +DYucX4lsn6bg8ciduAdjNAwOKL+TSrwtevvVQ99JP/brXqwn7l473qY2S+pf +Q3s0TuxcnDIx/IuGl7XEdSRnKHirzxAsWKSh1/6eMTNin6f1ui7cdEy7wPE1 +lDho/ntcKx8d916JbLhLrB+2R/iLAB0HqByDAeLlo69LuUTJ+p2ilL/Er3xs +jehSdIwMibsqMUvB1TfNrzYz6AiBAlnaxBGOm4J2KdBRXcLYdRuxcWfZkiMq +dDR8OPfDk3iNKT07W4OOusclvUOJB+7/q1KlQ0d9u9yr0cRluiubug3oODnl +1phCfIQd4zyJdFxcY111ithccWqMz5SOTtKuCZnEwoX+CcpWdEzwD1U8S/xJ +/K2IhR0d5XhjSjOIb521u7nHiY7MxbAV6cRxvC3Gx13J+jJDkwRi2yS9vsue +dOyq6dgVSSz992bwA186asQJOfoTj0UyuN7tpaNQ1nJlJ+K737JyfoXQ0ZX7 +/BAQpwas2iAaQUfjortHFYh3fIht1o6i42spn7lVxEzXaReHGDqaDB/fMU7q +96M7YCI0kY7CJmK5T4gbrN4lnkql4w0T4eZi4lMP7cXKTtIxqiW8O4Z4F+tR +eVsmHcNClNociJWq9U2Gs+lodkvruhzxzw0V/dx55H2d/4ROk/63XpPdzygk +/XmsINtAnEXL4cZrdNQOWdH4//2jKRCvdpSiY9xwWtMaYo70mYc51XQ02Cy/ +/hnZf11c+1yr6+hIt/hz7ARx4Mz2pO8tdAzkdpn/Tfazfshj8dVP6HjZ9z2t +gnj5sAFb5Rn5/t4iQ0/ioj7mG//XdIytnrGv/k7BAfvzoUnv6cjzX6q1OzG2 +8y278on8v5q9uIT4Xd2s+sAEHR0WldcgOV/C+a3JjlwMfJiXGHF+gvRThCV5 +YDkDeT/amK0nvpVBUaf5GDhI3RCrJOfZNiH3bbsIAwNdtjQ2kfOe6hekaaTC +QK2twXr1o6QfA4OPPTQYOKGlIq9FzHR2cj+mw8BvOC5+jeRJg/nm1DvIQA3+ +eloyyZufymsGVJ0YWK1VUEf7QsFsnni8lisDKxvTFxJIfk2vlmPqeTKwhbIO +HCL5NjGlt89kLwMvCB7syiH5N1S3e9Y1moFSrc7PPpK8bLe6w596lYHundfL +pkj+Pr7XSJ28wcAVymsVFYkfqnU4nq1g4O/zYkNu/RTcF/yQe6mWgQ3B2/lr +SZ7ferNSoaqTgUaBR4O395D8DPSAoRkGmrTZ63F2UpD9LmBo+BcDp3tdl/B2 +UHDONjxpfJGBFYV7RATJ/XFKK/XJ/ApZ1OKZ0hAj90vCb8p5tbQsvtGbhaUt +pL/pS0MNTWVRbrniXfd6CgxLywqysmRR44CYiGgJBW9opflbL8ji2m+fmZ+u +kfOYVXJpOl8Wu44q/bpZTO7b+OKL20tk0a19+K9+EdlfLgU5/PWyqO39Jl0/ +nwLFpecykj/Ionczf9qzc6S/nkfjIlWYuNan5a1HDAVVPVGxchpM3Js2Xv35 +GAWOlodjerSZeF3p3KF9RynI1D54TBOYqKDkwA4+TAEf7/7DE/ZMzLTzk3A7 +QAF3rU/onkNM1I7Rv9PtR8F3AUuvHU1M/FKVuNrQioK+IMazfY+ZWMplJrfL +gvT70S+I7WBi8Y+mkSgzCjKOlMpcf8XEi1UyMeVbKFAf4n3/c5SJC+clef4Y +UBBCPXXPE5TDCZfKGkUVCkZtndw++crhHWS+7yPz1acTXjsO8MijTeAS8+eN +bAgZVWGo88rjggrteMYDNsyZ/RwfXyOPEUomS23ukfmPKzNpr7g8Bu5Z+6aZ +zH/qUc2VXqryaDT0dyq3gg3RfvKCtg7yuGz46Mu5i2Qe3Dz2VDlfHv05D6tF +RLLB4tshi886Cnj8p7N1NZMNY7uXh1fGrifrjfvvk3nclCnCmdKkiNJWzl6a +QjdBoFP+FPubEroLnonfvK8UJFMr7HR0VFDNJpEzJbkEcpT11gj6q+KVeE6b +njvXoF3cSHvqzAb0TUzeIPntKuhLNmWovVJDvyDJmUCuIuDnKozwTlDHF0H9 +6kLGhSAdL2O4U14D8yXqbaUDC2CF3K7q7Y81MLM8YNRudx5sYIlVHHLXRLlX +Vk7lzrlwYECg2ZJDC9NOn8yygWz4NnXCySJHC32bPtyoyzgHZmqPci1UNyIX +K2+JvGwm3J8y+D3XtRFvFrUoPzp4GkJUNF8/99NGg6W9DYK+6cCa8O3ZuUIH +W1lNyjXBKbCVKWrNV6iDRgMXn69iHIf1cWmHm3R10aajw6/JOB6U/PQeyL3W +xZSmxoHSldHgdz/geGXYJrz8VJ3P+dxheFDQ4/tdSA/bXB/xJPlGwPT1xTm1 +O3o4NOh2nn8wFHbLla7ItdbHumO2+r2MIPiudFbn1qQ+MgvmKYW5PVBT9PvD +TKoBjuus6y787AM6WyLmLNMNsHoNBHD1+kDVhzHegpMG+LUlrSu41QduSQ/o +WmYa4FqZE7OepT5QltNw8tIFAxQdfUSvDfOBghNJemblBvj+oJCzPocP/BOx ++kzOCwMMsn3EdGR6g6uJLBpIG6K08hLNc6s9YaFnOX8zzRDfHlAoejntAQV+ +E28sZQ2RPyNrk/JrD/iSXHvIdb0hVq2TzBa46gEH2mwrojQNsSEx6MUzAw9I +szkmXWNqiMKTZpc4gt3hrsvLPxv3G2KH/U9m/zs3kAhOqd3QYIiKaK77ZtYF +Ti3u0U5vMkQZfq9XOOQCnJmm1PBDQ8xWbQ2r6nSB0eqlJQVthvjzWlLUkyIX +uMtxPEfghSH2twc+L3FwAddzcYdmPxtii+yTHoVKZ8ipi9K+v4qFydzax77G +7gChlUGUtTMLa5+X8bHREYq2RB+Z3MnCuP8EVc6qOoJm9KktZ3excOTmF6tk +cUewmWS/7PNmocy2QZ+L0w6Q/Grm5+4gFmZM9VcmlzjAfGGs8ZF4Fo4uM9Sw +FHaA1wZnXxSXslAiuXIOfttDwMGiixblLOx8Nz/KN2oPs+VVfmNsFsYsW0gY +7bMHAUbfnEY1C63C1x96Wm0PVsulJO81sNBNMcbSLNwe6nuKfV+8ZKFrOmfi +5wk7sOSvUY3sY2G4d/RAzoAd9Jm1zYq+YaHCt45Nrl12MH33a6rHIAvnSzQa +l5Xbgepl9Zv/jZLvlTZYuizEDupfG0WeGGeh0kEPg/Ue5HnrHEBtkqwPRci4 +2NjBnpSDzyNmWOjQfqBtcAN5XkNyrsg8C38M7j6qJ2MHCb+yd9/9xcITW91u +56+2gzUbS1TcF1iocSTQX5DDDi4F351ZXGTh1JSLhOIHW/gfKbfhJw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07016868364044451}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07016868364044451}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993921133259046*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"39593aa9-c934-4629-b97d-4f2dc4225d02"] +}, Open ]], Cell[CellGroupData[{ @@ -8525,66 +14847,76 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + "In[142]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.611115182999938`*^-175\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 308, 309, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133920579224*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.270280314515888`*^-157\\\", \ +RowBox[{\\\"\ +552513857212233842570175958778312308519209260189278753959051363142168\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1583212683407106418618000954093361543354777600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 190, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993921133283352*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +In[142]:=",ExpressionUUID->"3bf7a6e3-ac69-4f3d-9a49-dabf37d6c1ed"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5007447195984937`*^-178\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 308, 310, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058022385`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.521913319801299`*^-160\\\", \ +RowBox[{\\\"\ +192330073695578600598678251250730514595536743471887934253145779509789\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1163350940137443209261321198991532417980825600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 191, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993921133287937*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +In[142]:=",ExpressionUUID->"43650106-9c39-4b69-b08e-9d77d0dacc3a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1145242877114216`*^-181\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 308, 311, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339205811241*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.006685183788261`*^-163\\\", \ +RowBox[{\\\"\ +692388265304082962155241704502629852543932276498796563311324806235240\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"25\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8063384494795553340756316369516704730972160000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 192, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993921133292267*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +In[142]:=",ExpressionUUID->"e1b80db4-6338-43ef-82b2-0f514fe16082"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058197193`*^9}, +during this calculation.\"", 2, 142, 193, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.9939211332966957`*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +In[142]:=",ExpressionUUID->"241041c0-009c-435c-b189-72d0a4b37b32"], -Cell[BoxData["9.33220071900515`"], "Output", - CellChangeTimes->{3.9913392124888554`*^9}, +Cell[BoxData["10.767666693323985`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9, 3.993921157052472*^9}, CellLabel-> - "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] + "Out[142]=",ExpressionUUID->"561b2bae-5b1a-4bee-b321-56b085faa356"] }, Open ]], Cell[CellGroupData[{ @@ -8651,68 +14983,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849547748472*^9, - 3.9918495528702526`*^9}},ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-\ -0895c02ffd8f"], + CellChangeTimes->{{3.991849547748472*^9, 3.9918495528702526`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 309, 313, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125258827`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3635819503850907`*^-209\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 194, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993921157079247*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], +In[143]:=",ExpressionUUID->"be694bd2-2a1b-4955-9889-5f3178aee782"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 314, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339212535879*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.770765902793814`*^-214\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 195, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993921157083954*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], +In[143]:=",ExpressionUUID->"3951794a-14b8-4022-96e6-3939272c209f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 315, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125438805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.766657579624095`*^-219\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 143, 196, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.9939211570885773`*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +In[143]:=",ExpressionUUID->"f72c3c4e-9a15-4bd3-89e2-793b748207ff"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125518837`*^9}, +during this calculation.\"", 2, 143, 197, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.9939211570928373`*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +In[143]:=",ExpressionUUID->"61b0827d-3594-487e-bf64-a02f92a1983f"], -Cell[BoxData["0.41157157699018565`"], "Output", - CellChangeTimes->{3.9913392196090164`*^9}, +Cell[BoxData["0.4689460137709243`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.9939211605151587`*^9}, CellLabel-> - "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] + "Out[143]=",ExpressionUUID->"277188eb-d530-4975-bcc4-e78065607fa7"] }, Open ]], Cell[CellGroupData[{ @@ -8733,8 +15069,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8779,68 +15114,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918495568340263`*^9, - 3.991849559359928*^9}},ExpressionUUID->"57976ffc-56f1-604b-8519-\ -bead95265db8"], + CellChangeTimes->{{3.9918495568340263`*^9, 3.991849559359928*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 310, 317, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196440163`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3635819503850907`*^-209\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 198, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993921160541575*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], +In[144]:=",ExpressionUUID->"5f566626-2ba5-4ca4-83aa-1d77bc671242"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 318, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196535416`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.770765902793814`*^-214\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 199, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993921160547441*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], +In[144]:=",ExpressionUUID->"8194c920-97a8-4a70-b0f9-4f01eeb76e88"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 319, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219661541*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.766657579624095`*^-219\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 144, 200, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993921160552629*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +In[144]:=",ExpressionUUID->"8786cd9e-b6b2-49f4-990b-7e6e0990ea8f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219670542*^9}, +during this calculation.\"", 2, 144, 201, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.993921160556918*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +In[144]:=",ExpressionUUID->"d283d58f-df7e-4847-9024-a4921fb7cd9e"], -Cell[BoxData["3.215201591157595`"], "Output", - CellChangeTimes->{3.9913392268711624`*^9}, +Cell[BoxData["32.068761689032165`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.993921163776479*^9}, CellLabel-> - "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] + "Out[144]=",ExpressionUUID->"cf893457-f20a-46a2-84c0-5c1b70481d1b"] }, Open ]], Cell[CellGroupData[{ @@ -8861,8 +15200,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8907,68 +15245,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849563755764*^9, - 3.991849566543682*^9}},ExpressionUUID->"cfa37210-3ae7-3f49-b290-\ -f19508c6d2f1"], + CellChangeTimes->{{3.991849563755764*^9, 3.991849566543682*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 311, 321, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226907137*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3635819503850907`*^-209\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 202, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.9939211638026667`*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], +In[145]:=",ExpressionUUID->"668a0522-15be-4f42-b3a1-16af1fc41d35"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 322, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226917137*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.770765902793814`*^-214\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 203, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.9939211638082933`*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], +In[145]:=",ExpressionUUID->"4c1102ba-4161-45c1-bcc5-5314954c6af5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 323, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269251385`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.766657579624095`*^-219\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 145, 204, + 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993921163812869*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +In[145]:=",ExpressionUUID->"20f67f75-0a2b-458b-a383-5a46d4140f73"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269341373`*^9}, +during this calculation.\"", 2, 145, 205, 31385385850037802788, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993921163817007*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +In[145]:=",ExpressionUUID->"1e0e8ff3-e342-481d-999e-b61133158349"], -Cell[BoxData["16.94395627212904`"], "Output", - CellChangeTimes->{3.9913392304284153`*^9}, +Cell[BoxData["4.62853421293129`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.9939211658165493`*^9}, CellLabel-> - "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] + "Out[145]=",ExpressionUUID->"440a721d-2f33-4608-a2f5-cb46094b82cc"] }, Open ]], Cell[CellGroupData[{ @@ -8977,20 +15319,26 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849569404436*^9, - 3.991849573855135*^9}},ExpressionUUID->"7457b456-6d32-5b44-9679-\ -346c5f5ac532"], - -Cell[BoxData["0.05576142449710889`"], "Output", - CellChangeTimes->{3.9913392304624157`*^9}, + CellChangeTimes->{{3.991849569404436*^9, 3.991849573855135*^9}}, CellLabel-> - "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] + "In[146]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], + +Cell[BoxData["0.038491072675194485`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.993921165838757*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"378f902a-ce69-49f1-ac4b-7316688829d6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.993917185412383*^9, 3.993917188009845*^9}}, + CellLabel-> + "In[147]:=",ExpressionUUID->"471c2e8e-6cd0-4048-9dbd-f35f9032d8ce"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +WindowSize->{714, 288}, +WindowMargins->{{Automatic, 3}, {297, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" ] @@ -9005,361 +15353,641 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 147, 4, 28, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[704, 26, 154, 3, 28, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], -Cell[861, 31, 149, 4, 28, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], -Cell[1013, 37, 152, 3, 28, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], Cell[CellGroupData[{ -Cell[1190, 44, 1301, 43, 113, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[2494, 89, 178, 3, 32, "Output",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] +Cell[576, 22, 302, 5, 29, "Input",ExpressionUUID->"b2772d41-6885-47dc-8786-c302f9fd9ce3"], +Cell[881, 29, 271, 4, 33, "Output",ExpressionUUID->"803c6254-d370-4aa6-8675-f8d70ed935fb"] }, Open ]], Cell[CellGroupData[{ -Cell[2709, 97, 910, 31, 56, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[3622, 130, 175, 3, 32, "Output",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +Cell[1189, 38, 246, 4, 29, "Input",ExpressionUUID->"9e40d454-345c-4784-a452-23993756b006"], +Cell[1438, 44, 273, 4, 33, "Output",ExpressionUUID->"4a7bfc37-1783-4f2d-b4dd-34fa4c32e278"] }, Open ]], Cell[CellGroupData[{ -Cell[3834, 138, 885, 30, 56, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +Cell[1748, 53, 223, 4, 29, "Input",ExpressionUUID->"fdd397b3-1961-424e-9b64-10dd20c3a55d"], +Cell[1974, 59, 271, 4, 33, "Output",ExpressionUUID->"5cc68d84-ae67-4c98-a2b1-c566c428c7c9"] }, Open ]], Cell[CellGroupData[{ -Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[5497, 199, 173, 3, 32, "Output",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +Cell[2282, 68, 175, 3, 29, "Input",ExpressionUUID->"a3af71a7-ac25-4a5c-84c3-663570141ce3"], +Cell[2460, 73, 270, 4, 33, "Output",ExpressionUUID->"7060f441-8fae-4194-8afa-887df429c0b3"] }, Open ]], Cell[CellGroupData[{ -Cell[5707, 207, 623, 21, 52, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[6333, 230, 170, 3, 32, "Output",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +Cell[2767, 82, 257, 7, 42, "Input",ExpressionUUID->"2ccec413-de30-49c1-8b43-866069f3ed16"], +Cell[3027, 91, 280, 4, 33, "Output",ExpressionUUID->"cae674b4-85b6-445e-8eb4-74e731d0409c"] }, Open ]], Cell[CellGroupData[{ -Cell[6540, 238, 170, 5, 56, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[6713, 245, 173, 3, 32, "Output",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +Cell[3344, 100, 131, 2, 29, "Input",ExpressionUUID->"5a7a605c-08b3-4f60-a029-8fb4898784f6"], +Cell[3478, 104, 279, 4, 33, "Output",ExpressionUUID->"46d203b4-93cc-4ff0-bde7-6e9701b9a000"] }, Open ]], Cell[CellGroupData[{ -Cell[6923, 253, 170, 5, 55, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[7096, 260, 170, 3, 70, "Output",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +Cell[3794, 113, 276, 6, 29, "Input",ExpressionUUID->"72be8aed-39d7-465c-aff4-63ec47a0277a"], +Cell[4073, 121, 286, 4, 33, "Output",ExpressionUUID->"f6f362e9-2c8f-479f-a7d6-ada920b04bd3"] }, Open ]], Cell[CellGroupData[{ -Cell[7303, 268, 181, 5, 70, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[7487, 275, 171, 3, 70, "Output",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +Cell[4396, 130, 257, 7, 29, "Input",ExpressionUUID->"0b92e5b0-1ae9-4b5a-8324-f84adebbca74"], +Cell[4656, 139, 286, 4, 33, "Output",ExpressionUUID->"217e5b68-7651-483e-8a63-913e27e300d9"] }, Open ]], Cell[CellGroupData[{ -Cell[7695, 283, 181, 5, 70, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[7879, 290, 173, 3, 70, "Output",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +Cell[4979, 148, 226, 4, 29, "Input",ExpressionUUID->"3c5bb580-8bfe-4f66-b512-5221e9e91b6b"], +Cell[5208, 154, 251, 4, 33, "Output",ExpressionUUID->"8bf26cd4-2cec-4a42-a362-f662cb5cae36"] }, Open ]], Cell[CellGroupData[{ -Cell[8089, 298, 6055, 185, 70, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[14147, 485, 175, 3, 70, "Output",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +Cell[5496, 163, 225, 4, 29, "Input",ExpressionUUID->"ca2a79be-6050-4ecd-ab26-54156566e716"], +Cell[5724, 169, 262, 4, 33, "Output",ExpressionUUID->"1a04500c-5fd5-44f6-9a2d-e45af3034b76"] }, Open ]], Cell[CellGroupData[{ -Cell[14359, 493, 368, 9, 70, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[14730, 504, 170, 3, 70, "Output",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +Cell[6023, 178, 129, 2, 29, "Input",ExpressionUUID->"1c7da21c-1500-4d53-ba1c-493377242d34"], +Cell[6155, 182, 274, 4, 33, "Output",ExpressionUUID->"a08bc8d9-d363-43d8-98f3-bcb8608818d7"] }, Open ]], Cell[CellGroupData[{ -Cell[14937, 512, 6122, 187, 70, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[21062, 701, 175, 3, 70, "Output",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +Cell[6466, 191, 129, 2, 29, "Input",ExpressionUUID->"f0491feb-5d8f-4b48-a09a-131f6829c428"], +Cell[6598, 195, 276, 4, 33, "Output",ExpressionUUID->"92dcb0ec-bda4-49ef-b0e3-942d5961bb3f"] }, Open ]], Cell[CellGroupData[{ -Cell[21274, 709, 368, 9, 70, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[21645, 720, 172, 3, 70, "Output",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +Cell[6911, 204, 557, 19, 79, "Input",ExpressionUUID->"54bbc363-d75f-467d-869f-4d08ce6befd1"], +Cell[7471, 225, 289, 4, 33, "Output",ExpressionUUID->"d356bc60-b2ea-4f82-afc5-fc260730b131"] }, Open ]], Cell[CellGroupData[{ -Cell[21854, 728, 2663, 88, 70, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[24520, 818, 173, 3, 70, "Output",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +Cell[7797, 234, 557, 19, 79, "Input",ExpressionUUID->"0855a69e-3985-40a0-b786-105e838b9d8e"], +Cell[8357, 255, 287, 4, 33, "Output",ExpressionUUID->"e8860184-a3a9-48b7-9e15-517e746ebc56"] }, Open ]], Cell[CellGroupData[{ -Cell[24730, 826, 2603, 85, 70, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[27336, 913, 172, 3, 70, "Output",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +Cell[8681, 264, 1492, 48, 79, "Input",ExpressionUUID->"e86585a1-f131-4b91-9d5c-a6dd4ade1753"], +Cell[10176, 314, 291, 4, 33, "Output",ExpressionUUID->"f2c8e9f9-e981-4bd9-99cc-b14049502041"] }, Open ]], Cell[CellGroupData[{ -Cell[27545, 921, 3712, 118, 70, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[31260, 1041, 174, 3, 70, "Output",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] -}, Open ]], -Cell[31449, 1047, 138, 3, 70, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], -Cell[CellGroupData[{ -Cell[31612, 1054, 2052, 59, 70, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[33667, 1115, 524, 11, 70, "Message",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], -Cell[34194, 1128, 526, 11, 70, "Message",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], -Cell[34723, 1141, 530, 11, 70, "Message",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], -Cell[35256, 1154, 455, 10, 70, "Message",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], -Cell[35714, 1166, 172, 3, 70, "Output",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +Cell[10504, 323, 1331, 44, 79, "Input",ExpressionUUID->"7d4e3a3e-b54b-4320-a836-25664a1797c2"], +Cell[11838, 369, 308, 5, 33, "Output",ExpressionUUID->"ea2b0040-197e-435a-b45b-988552fa7c10"] }, Open ]], Cell[CellGroupData[{ -Cell[35923, 1174, 2054, 59, 70, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[37980, 1235, 524, 11, 70, "Message",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], -Cell[38507, 1248, 526, 11, 70, "Message",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], -Cell[39036, 1261, 528, 11, 70, "Message",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], -Cell[39567, 1274, 456, 10, 70, "Message",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], -Cell[40026, 1286, 170, 3, 70, "Output",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +Cell[12183, 379, 1331, 44, 79, "Input",ExpressionUUID->"55ba3e19-a07c-4b30-a081-7ce7e892abfe"], +Cell[13517, 425, 305, 5, 33, "Output",ExpressionUUID->"3d89cde4-d25f-4218-8fff-d1c7c30bea4e"] }, Open ]], Cell[CellGroupData[{ -Cell[40233, 1294, 1938, 53, 70, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[42174, 1349, 19981, 375, 70, "Output",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +Cell[13859, 435, 1492, 48, 79, "Input",ExpressionUUID->"07ac1322-5968-4afc-838f-ce30ffae96bd"], +Cell[15354, 485, 284, 4, 33, "Output",ExpressionUUID->"1a502db9-ec52-49eb-b9fd-dde7802dbd3c"] }, Open ]], Cell[CellGroupData[{ -Cell[62192, 1729, 2092, 60, 70, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[64287, 1791, 490, 11, 70, "Message",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], -Cell[64780, 1804, 493, 11, 70, "Message",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], -Cell[65276, 1817, 508, 11, 70, "Message",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], -Cell[65787, 1830, 456, 10, 70, "Message",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], -Cell[66246, 1842, 61603, 1057, 70, "Output",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] -}, Open ]], -Cell[127864, 2902, 232, 6, 70, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[128099, 2910, 209, 5, 70, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], -Cell[CellGroupData[{ -Cell[128333, 2919, 217, 7, 70, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[128553, 2928, 169, 3, 70, "Output",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +Cell[15675, 494, 131, 2, 29, "Input",ExpressionUUID->"ac03f3de-89d9-446d-83e3-b4b6f03c517d"], +Cell[15809, 498, 272, 4, 33, "Output",ExpressionUUID->"590ebe88-2147-4e25-be90-ec85e03fd325"] }, Open ]], Cell[CellGroupData[{ -Cell[128759, 2936, 1816, 53, 70, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[130578, 2991, 502, 11, 70, "Message",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], -Cell[131083, 3004, 506, 11, 70, "Message",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], -Cell[131592, 3017, 509, 11, 70, "Message",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], -Cell[132104, 3030, 456, 10, 70, "Message",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], -Cell[132563, 3042, 28560, 514, 70, "Output",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +Cell[16118, 507, 133, 2, 29, "Input",ExpressionUUID->"679c49c0-c068-46db-8fe9-a5ff2aa55c5c"], +Cell[16254, 511, 273, 4, 33, "Output",ExpressionUUID->"ab7e3537-7b79-4ff7-973b-2a8aea4cd075"] }, Open ]], Cell[CellGroupData[{ -Cell[161160, 3561, 1616, 48, 70, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[162779, 3611, 576, 12, 70, "Message",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], -Cell[163358, 3625, 582, 12, 70, "Message",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], -Cell[163943, 3639, 584, 12, 70, "Message",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], -Cell[164530, 3653, 458, 10, 70, "Message",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], -Cell[164991, 3665, 170, 3, 70, "Output",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +Cell[16564, 520, 134, 2, 29, "Input",ExpressionUUID->"aecfd37f-6ccb-432d-9f1a-e4cbcdeea887"], +Cell[16701, 524, 278, 4, 33, "Output",ExpressionUUID->"63137ad1-6c4f-40b8-bc52-c4f2ba883987"] }, Open ]], Cell[CellGroupData[{ -Cell[165198, 3673, 2247, 64, 70, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[167448, 3739, 522, 11, 70, "Message",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], -Cell[167973, 3752, 526, 11, 70, "Message",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], -Cell[168502, 3765, 528, 11, 70, "Message",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], -Cell[169033, 3778, 458, 10, 70, "Message",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], -Cell[169494, 3790, 175, 3, 70, "Output",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +Cell[17016, 533, 219, 4, 29, "Input",ExpressionUUID->"c419a757-bdc9-4782-bff8-27236b90c5cf"], +Cell[17238, 539, 288, 5, 33, "Output",ExpressionUUID->"a0798493-e6d2-4b6e-8159-350c76376397"] }, Open ]], Cell[CellGroupData[{ -Cell[169706, 3798, 2221, 64, 70, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[171930, 3864, 522, 11, 70, "Message",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], -Cell[172455, 3877, 524, 11, 70, "Message",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], -Cell[172982, 3890, 528, 11, 70, "Message",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], -Cell[173513, 3903, 458, 10, 70, "Message",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], -Cell[173974, 3915, 170, 3, 70, "Output",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +Cell[17563, 549, 134, 2, 29, "Input",ExpressionUUID->"13949a5e-b6fd-4e01-aa5c-dc667f9588b6"], +Cell[17700, 553, 280, 4, 33, "Output",ExpressionUUID->"e3319ff3-068e-4c0f-9bd5-173966574ff1"] }, Open ]], Cell[CellGroupData[{ -Cell[174181, 3923, 2221, 64, 70, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[176405, 3989, 524, 11, 70, "Message",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], -Cell[176932, 4002, 526, 11, 70, "Message",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], -Cell[177461, 4015, 530, 11, 70, "Message",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], -Cell[177994, 4028, 458, 10, 70, "Message",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], -Cell[178455, 4040, 171, 3, 70, "Output",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +Cell[18017, 562, 324, 5, 29, "Input",ExpressionUUID->"c28f043f-37ad-4e41-a454-f4040e2b51fa"], +Cell[18344, 569, 272, 4, 33, "Output",ExpressionUUID->"29b2c15d-5c60-4c6d-8e85-538225b9255f"] }, Open ]], Cell[CellGroupData[{ -Cell[178663, 4048, 215, 6, 70, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[178881, 4056, 175, 3, 70, "Output",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] -}, Open ]], -Cell[179071, 4062, 245, 5, 70, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], -Cell[CellGroupData[{ -Cell[179341, 4071, 558, 19, 70, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[179902, 4092, 172, 3, 70, "Output",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +Cell[18653, 578, 296, 5, 29, "Input",ExpressionUUID->"56337060-18d2-419b-93e4-0ba93c20ca81"], +Cell[18952, 585, 274, 4, 33, "Output",ExpressionUUID->"c3fbf1b1-8a77-4319-ad4f-270295b765bd"] }, Open ]], Cell[CellGroupData[{ -Cell[180111, 4100, 170, 5, 70, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[180284, 4107, 172, 3, 70, "Output",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +Cell[19263, 594, 219, 4, 29, "Input",ExpressionUUID->"57f122f3-05e0-434c-8e1a-eccd8913b175"], +Cell[19485, 600, 275, 4, 33, "Output",ExpressionUUID->"2130c816-2364-4135-b090-e57f9e863c58"] }, Open ]], Cell[CellGroupData[{ -Cell[180493, 4115, 181, 5, 70, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[180677, 4122, 172, 3, 70, "Output",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +Cell[19797, 609, 350, 10, 42, "Input",ExpressionUUID->"70068c8b-0c1f-47da-a2ab-6d6bd72cca90"], +Cell[20150, 621, 291, 4, 33, "Output",ExpressionUUID->"606d748e-a1d4-42e0-9f34-daabe9821e48"] }, Open ]], Cell[CellGroupData[{ -Cell[180886, 4130, 6055, 185, 70, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[186944, 4317, 174, 3, 70, "Output",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +Cell[20478, 630, 350, 10, 42, "Input",ExpressionUUID->"1fbdcee8-06ae-48b4-ae2d-4198096a60fd"], +Cell[20831, 642, 306, 5, 33, "Output",ExpressionUUID->"c537386a-7e16-419c-ae6c-0b00eaa55981"] }, Open ]], Cell[CellGroupData[{ -Cell[187155, 4325, 368, 9, 70, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[187526, 4336, 173, 3, 70, "Output",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +Cell[21174, 652, 994, 26, 81, "Input",ExpressionUUID->"0fc6e7d3-9b62-4547-911b-534b9d877103"], +Cell[22171, 680, 287, 4, 33, "Output",ExpressionUUID->"5f46f9b0-648a-481b-afc5-5393c8d99be3"] }, Open ]], Cell[CellGroupData[{ -Cell[187736, 4344, 6122, 187, 70, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[193861, 4533, 175, 3, 70, "Output",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +Cell[22495, 689, 199, 3, 29, "Input",ExpressionUUID->"9f5d90b2-cc60-46a9-9c0e-76a6f1527601"], +Cell[22697, 694, 274, 4, 33, "Output",ExpressionUUID->"ea772e16-dd58-47a9-b193-8c68957e44cc"] }, Open ]], Cell[CellGroupData[{ -Cell[194073, 4541, 368, 9, 70, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[194444, 4552, 170, 3, 70, "Output",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +Cell[23008, 703, 325, 5, 29, "Input",ExpressionUUID->"646cdc85-773c-4a52-ace9-d2c1865933d0"], +Cell[23336, 710, 251, 4, 33, "Output",ExpressionUUID->"e901b16b-2a23-4886-8173-16b7be7ea046"] +}, Open ]], +Cell[23602, 717, 173, 2, 23, "Input",ExpressionUUID->"826b1a7f-2c44-44a8-82b0-3f3d8b600b37"], +Cell[CellGroupData[{ +Cell[23800, 723, 327, 5, 29, "Input",ExpressionUUID->"271c9ddf-47b5-49e4-8dd3-27cdfa286999"], +Cell[24130, 730, 252, 4, 33, "Output",ExpressionUUID->"0495b564-6be5-4189-a68d-0c4408072357"] +}, Open ]], +Cell[24397, 737, 173, 2, 23, "Input",ExpressionUUID->"e3fd27c4-85ca-47d3-8ca3-8f797145a05b"], +Cell[CellGroupData[{ +Cell[24595, 743, 330, 5, 29, "Input",ExpressionUUID->"728bdb3a-891b-497f-a97a-dbc2f0e37bc0"], +Cell[24928, 750, 257, 4, 33, "Output",ExpressionUUID->"640ac916-1f8b-4b82-bc08-ac3dc508e95b"] +}, Open ]], +Cell[25200, 757, 173, 2, 23, "Input",ExpressionUUID->"f4f48cd5-9f06-4143-967a-b271664cc5e0"], +Cell[CellGroupData[{ +Cell[25398, 763, 351, 5, 29, "Input",ExpressionUUID->"5b24e115-86ac-49d0-ac08-209f74c12624"], +Cell[25752, 770, 257, 4, 33, "Output",ExpressionUUID->"f8535255-8456-40d8-8ee7-3455840e8c19"] +}, Open ]], +Cell[26024, 777, 171, 2, 23, "Input",ExpressionUUID->"e7d5601e-7656-4a2b-9c64-c603198bb7a8"], +Cell[CellGroupData[{ +Cell[26220, 783, 301, 5, 29, "Input",ExpressionUUID->"de511d4d-9b37-456c-9bd2-1906199905ff"], +Cell[26524, 790, 253, 4, 33, "Output",ExpressionUUID->"969669ba-fec8-4172-8b1d-52a1d9c96ce9"] +}, Open ]], +Cell[26792, 797, 171, 2, 23, "Input",ExpressionUUID->"e18e3775-9f08-4631-bfd3-5062f3764eb6"], +Cell[CellGroupData[{ +Cell[26988, 803, 303, 5, 29, "Input",ExpressionUUID->"8a3426cf-7d5b-416e-8235-b683b16e5c1a"], +Cell[27294, 810, 249, 4, 33, "Output",ExpressionUUID->"7d7851c9-89ca-4a4b-9e9a-70e573a2c5a4"] +}, Open ]], +Cell[27558, 817, 173, 2, 23, "Input",ExpressionUUID->"8f8d7074-0b17-4f00-8ac9-b57a78143355"], +Cell[CellGroupData[{ +Cell[27756, 823, 307, 5, 29, "Input",ExpressionUUID->"a15e1752-5f04-4bd5-bd4f-25b233dca3eb"], +Cell[28066, 830, 254, 4, 33, "Output",ExpressionUUID->"0e0a5e4b-e05a-48ce-a1f7-90cef81553fa"] +}, Open ]], +Cell[28335, 837, 172, 2, 23, "Input",ExpressionUUID->"948e6829-d42e-4ae5-83ef-7f6d07c17cad"], +Cell[CellGroupData[{ +Cell[28532, 843, 275, 4, 29, "Input",ExpressionUUID->"5b38fb53-2327-4ec2-9b9c-60f52ffda34c"], +Cell[28810, 849, 253, 4, 33, "Output",ExpressionUUID->"460d8b0e-9b2c-444a-9a46-5000efa93d17"] +}, Open ]], +Cell[29078, 856, 175, 2, 23, "Input",ExpressionUUID->"b6c0469a-121a-46b7-b6be-fdc0d1f4bc33"], +Cell[CellGroupData[{ +Cell[29278, 862, 19809, 485, 1844, "Input",ExpressionUUID->"781537d1-cd86-43c1-b374-51212c251596"], +Cell[49090, 1349, 289, 4, 33, "Output",ExpressionUUID->"364ce1dc-e5d3-4796-b185-651ed80814f5"] }, Open ]], Cell[CellGroupData[{ -Cell[194651, 4560, 2663, 88, 70, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[197317, 4650, 173, 3, 70, "Output",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +Cell[49416, 1358, 19748, 489, 1981, "Input",ExpressionUUID->"8e2003ca-2209-47da-878b-83c6189be607"], +Cell[69167, 1849, 287, 4, 33, "Output",ExpressionUUID->"85125601-65ee-4088-8e2e-ab6670224e8d"] }, Open ]], Cell[CellGroupData[{ -Cell[197527, 4658, 2603, 85, 70, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[200133, 4745, 172, 3, 70, "Output",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +Cell[69491, 1858, 19748, 483, 1970, "Input",ExpressionUUID->"bf5b66e2-2203-43fe-a20a-2fdd63c54309"], +Cell[89242, 2343, 302, 5, 33, "Output",ExpressionUUID->"9f7377c5-abad-4bbe-855c-68a7f7984392"] }, Open ]], Cell[CellGroupData[{ -Cell[200342, 4753, 3712, 118, 70, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[204057, 4873, 174, 3, 70, "Output",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +Cell[89581, 2353, 22534, 553, 2217, "Input",ExpressionUUID->"a95c8316-1481-41f0-825c-255ba2d84b39"], +Cell[112118, 2908, 304, 5, 33, "Output",ExpressionUUID->"7a757674-be19-4c6f-9daa-1040a505b4e4"] }, Open ]], Cell[CellGroupData[{ -Cell[204268, 4881, 2052, 59, 70, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[206323, 4942, 574, 12, 70, "Message",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], -Cell[206900, 4956, 580, 12, 70, "Message",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], -Cell[207483, 4970, 582, 12, 70, "Message",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], -Cell[208068, 4984, 456, 10, 70, "Message",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], -Cell[208527, 4996, 171, 3, 70, "Output",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +Cell[112459, 2918, 22535, 553, 2254, "Input",ExpressionUUID->"03ef53d2-ac22-4ee4-941e-10bf4789e845"], +Cell[134997, 3473, 307, 5, 33, "Output",ExpressionUUID->"0bea8c41-c67d-42fe-83a3-68d6c9743155"] }, Open ]], Cell[CellGroupData[{ -Cell[208735, 5004, 2054, 59, 70, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[210792, 5065, 574, 12, 70, "Message",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], -Cell[211369, 5079, 578, 12, 70, "Message",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], -Cell[211950, 5093, 582, 12, 70, "Message",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], -Cell[212535, 5107, 458, 10, 70, "Message",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], -Cell[212996, 5119, 169, 3, 70, "Output",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +Cell[135341, 3483, 25491, 626, 2501, "Input",ExpressionUUID->"07ea9f48-0066-4db8-9dd1-6bba967332b9"], +Cell[160835, 4111, 301, 5, 33, "Output",ExpressionUUID->"2b4097e0-bb49-479f-8bd3-7eed2f475d96"] }, Open ]], Cell[CellGroupData[{ -Cell[213202, 5127, 2030, 55, 70, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[215235, 5184, 20326, 381, 70, "Output",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] -}, Open ]], -Cell[235576, 5568, 2144, 61, 70, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[237723, 5631, 138, 3, 70, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], -Cell[CellGroupData[{ -Cell[237886, 5638, 1616, 48, 70, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[239505, 5688, 592, 12, 70, "Message",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], -Cell[240100, 5702, 597, 12, 70, "Message",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], -Cell[240700, 5716, 599, 12, 70, "Message",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], -Cell[241302, 5730, 458, 10, 70, "Message",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], -Cell[241763, 5742, 172, 3, 70, "Output",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +Cell[161173, 4121, 130, 2, 29, "Input",ExpressionUUID->"c875f587-30d1-48b3-9854-3c229b0ab295"], +Cell[161306, 4125, 272, 4, 33, "Output",ExpressionUUID->"1791da5f-e1a6-4995-8dcc-a93521cc92db"] }, Open ]], Cell[CellGroupData[{ -Cell[241972, 5750, 2249, 64, 70, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[244224, 5816, 576, 12, 70, "Message",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], -Cell[244803, 5830, 580, 12, 70, "Message",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], -Cell[245386, 5844, 582, 12, 70, "Message",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], -Cell[245971, 5858, 456, 10, 70, "Message",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], -Cell[246430, 5870, 171, 3, 70, "Output",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +Cell[161615, 4134, 130, 2, 29, "Input",ExpressionUUID->"4dff1ca8-d402-42fd-9b87-7b10760344c7"], +Cell[161748, 4138, 272, 4, 33, "Output",ExpressionUUID->"be54036a-afdd-41a3-9cdf-ba9c8a69e0c3"] }, Open ]], Cell[CellGroupData[{ -Cell[246638, 5878, 2223, 64, 70, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[248864, 5944, 574, 12, 70, "Message",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], -Cell[249441, 5958, 578, 12, 70, "Message",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], -Cell[250022, 5972, 580, 12, 70, "Message",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], -Cell[250605, 5986, 458, 10, 70, "Message",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], -Cell[251066, 5998, 173, 3, 70, "Output",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +Cell[162057, 4147, 1144, 39, 107, "Input",ExpressionUUID->"c4b0b635-f4dd-4dc5-90af-72e22d235ae6"], +Cell[163204, 4188, 286, 4, 33, "Output",ExpressionUUID->"fab9d601-a5ff-4a87-ba20-e800dd6e6612"] }, Open ]], Cell[CellGroupData[{ -Cell[251276, 6006, 2221, 64, 70, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[253500, 6072, 574, 12, 70, "Message",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], -Cell[254077, 6086, 578, 12, 70, "Message",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], -Cell[254658, 6100, 582, 12, 70, "Message",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], -Cell[255243, 6114, 455, 10, 70, "Message",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], -Cell[255701, 6126, 170, 3, 70, "Output",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +Cell[163527, 4197, 1041, 35, 107, "Input",ExpressionUUID->"351c1e35-2dea-4781-ba50-87d949e310e1"], +Cell[164571, 4234, 301, 5, 33, "Output",ExpressionUUID->"a4b75471-0e40-429d-bfe9-899d9f4d9e1f"] }, Open ]], Cell[CellGroupData[{ -Cell[255908, 6134, 215, 6, 70, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[256126, 6142, 174, 3, 70, "Output",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] -}, Open ]], -Cell[256315, 6148, 249, 5, 70, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], -Cell[CellGroupData[{ -Cell[256589, 6157, 558, 19, 70, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[257150, 6178, 169, 3, 70, "Output",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +Cell[164909, 4244, 1144, 39, 107, "Input",ExpressionUUID->"1e912ece-96d2-4948-aa10-20d96297ea86"], +Cell[166056, 4285, 292, 4, 33, "Output",ExpressionUUID->"ae406c8c-bca8-4851-a049-fc144cabdef3"] }, Open ]], Cell[CellGroupData[{ -Cell[257356, 6186, 170, 5, 70, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[257529, 6193, 173, 3, 70, "Output",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +Cell[166385, 4294, 108, 1, 29, "Input",ExpressionUUID->"47c0646e-e254-40cf-9cd7-3548068fccdf"], +Cell[166496, 4297, 291, 4, 33, "Output",ExpressionUUID->"17284a52-e766-40a9-b2e2-d098612b0e6c"] }, Open ]], Cell[CellGroupData[{ -Cell[257739, 6201, 181, 5, 70, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[257923, 6208, 173, 3, 70, "Output",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +Cell[166824, 4306, 108, 1, 29, "Input",ExpressionUUID->"5501ece5-37f8-4e82-9d2c-aa7274ca8f63"], +Cell[166935, 4309, 306, 5, 33, "Output",ExpressionUUID->"a7e6775a-ca2a-49b5-99f0-11ca437176a2"] }, Open ]], Cell[CellGroupData[{ -Cell[258133, 6216, 6055, 185, 70, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[264191, 6403, 174, 3, 70, "Output",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +Cell[167278, 4319, 108, 1, 29, "Input",ExpressionUUID->"228691ce-4dd3-4975-8d6a-17a092e7d611"], +Cell[167389, 4322, 307, 5, 33, "Output",ExpressionUUID->"9d744144-6f21-451a-b66b-3afa62893371"] }, Open ]], Cell[CellGroupData[{ -Cell[264402, 6411, 368, 9, 70, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[264773, 6422, 172, 3, 70, "Output",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +Cell[167733, 4332, 108, 1, 29, "Input",ExpressionUUID->"e6a0b3db-e2c9-4012-9b73-7214a8433e1f"], +Cell[167844, 4335, 290, 4, 33, "Output",ExpressionUUID->"74a2c4b9-3fa0-4607-b89b-f65f714bb01f"] }, Open ]], Cell[CellGroupData[{ -Cell[264982, 6430, 6122, 187, 70, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[271107, 6619, 172, 3, 70, "Output",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +Cell[168171, 4344, 107, 1, 29, "Input",ExpressionUUID->"0e7b177c-f3a0-4bac-a984-453c6ff2caf2"], +Cell[168281, 4347, 289, 4, 33, "Output",ExpressionUUID->"712f1d11-8587-466d-8521-fdca6138869c"] }, Open ]], Cell[CellGroupData[{ -Cell[271316, 6627, 368, 9, 70, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[271687, 6638, 170, 3, 70, "Output",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +Cell[168607, 4356, 107, 1, 29, "Input",ExpressionUUID->"be3f14ff-2d9f-4df4-885f-f849ab9c5e0f"], +Cell[168717, 4359, 289, 4, 33, "Output",ExpressionUUID->"45f35db0-6a1c-4c4d-bfd0-77779e8bbf15"] }, Open ]], Cell[CellGroupData[{ -Cell[271894, 6646, 2663, 88, 70, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[274560, 6736, 173, 3, 70, "Output",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +Cell[169043, 4368, 497, 16, 55, "Input",ExpressionUUID->"92b76034-c763-4ad6-b6b7-aca7e96afe0f"], +Cell[169543, 4386, 308, 5, 33, "Output",ExpressionUUID->"7098663f-6694-4c6b-bca4-3a2feb04b206"] }, Open ]], Cell[CellGroupData[{ -Cell[274770, 6744, 2603, 85, 70, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[277376, 6831, 172, 3, 70, "Output",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +Cell[169888, 4396, 497, 16, 55, "Input",ExpressionUUID->"0d45afba-eacb-4dac-9d5f-a78ffc53dde3"], +Cell[170388, 4414, 312, 5, 33, "Output",ExpressionUUID->"729a2127-dcd2-4d52-a709-b50b30192dbb"] }, Open ]], Cell[CellGroupData[{ -Cell[277585, 6839, 3712, 118, 70, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[281300, 6959, 172, 3, 70, "Output",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +Cell[170737, 4424, 1788, 60, 183, "Input",ExpressionUUID->"7d3526bd-4ed9-4c19-b69f-c2791d3139bf"], +Cell[172528, 4486, 289, 4, 33, "Output",ExpressionUUID->"b0a5fa8b-9525-496a-a868-ac839756f315"] }, Open ]], Cell[CellGroupData[{ -Cell[281509, 6967, 2052, 59, 70, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[283564, 7028, 573, 12, 70, "Message",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], -Cell[284140, 7042, 573, 12, 70, "Message",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], -Cell[284716, 7056, 579, 12, 70, "Message",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], -Cell[285298, 7070, 458, 10, 70, "Message",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], -Cell[285759, 7082, 170, 3, 70, "Output",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +Cell[172854, 4495, 1101, 36, 131, "Input",ExpressionUUID->"ee08d541-cf01-478f-b5fb-03f69b0035f1"], +Cell[173958, 4533, 307, 5, 33, "Output",ExpressionUUID->"c0fe154e-a450-4440-ade0-ced548a523b9"] }, Open ]], Cell[CellGroupData[{ -Cell[285966, 7090, 2052, 59, 70, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[288021, 7151, 573, 12, 70, "Message",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], -Cell[288597, 7165, 575, 12, 70, "Message",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], -Cell[289175, 7179, 579, 12, 70, "Message",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], -Cell[289757, 7193, 458, 10, 70, "Message",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], -Cell[290218, 7205, 169, 3, 70, "Output",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +Cell[174302, 4543, 1818, 61, 160, "Input",ExpressionUUID->"8373653b-6c73-45c2-9d26-5c69e293fa78"], +Cell[176123, 4606, 284, 4, 33, "Output",ExpressionUUID->"0234527f-e693-4bdc-9f20-07ad91b5ed7e"] }, Open ]], Cell[CellGroupData[{ -Cell[290424, 7213, 2028, 55, 70, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[292455, 7270, 20296, 381, 70, "Output",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +Cell[176444, 4615, 1631, 53, 162, "Input",ExpressionUUID->"f4b17ba7-6d70-4f51-9676-ab1051372298"], +Cell[178078, 4670, 285, 4, 33, "Output",ExpressionUUID->"a43155af-8e75-4a54-a781-25cccf0ca2af"] }, Open ]], Cell[CellGroupData[{ -Cell[312788, 7656, 2146, 61, 70, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[314937, 7719, 500, 11, 70, "Message",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], -Cell[315440, 7732, 505, 11, 70, "Message",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], -Cell[315948, 7745, 509, 11, 70, "Message",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], -Cell[316460, 7758, 458, 10, 70, "Message",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], -Cell[316921, 7770, 39609, 697, 70, "Output",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] -}, Open ]], -Cell[356545, 8470, 209, 5, 70, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], -Cell[CellGroupData[{ -Cell[356779, 8479, 1616, 48, 70, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[358398, 8529, 589, 12, 70, "Message",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], -Cell[358990, 8543, 595, 12, 70, "Message",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], -Cell[359588, 8557, 596, 12, 70, "Message",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], -Cell[360187, 8571, 458, 10, 70, "Message",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], -Cell[360648, 8583, 171, 3, 70, "Output",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +Cell[178400, 4679, 1631, 53, 162, "Input",ExpressionUUID->"5f716b7d-0e56-4604-a4ed-7d50d8bfd452"], +Cell[180034, 4734, 292, 4, 33, "Output",ExpressionUUID->"dfe7674c-7148-4262-9fdb-7e2b02659d3c"] }, Open ]], Cell[CellGroupData[{ -Cell[360856, 8591, 2249, 64, 70, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[363108, 8657, 573, 12, 70, "Message",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], -Cell[363684, 8671, 573, 12, 70, "Message",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], -Cell[364260, 8685, 579, 12, 70, "Message",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], -Cell[364842, 8699, 458, 10, 70, "Message",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], -Cell[365303, 8711, 174, 3, 70, "Output",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +Cell[180363, 4743, 226, 4, 29, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[180592, 4749, 158, 2, 33, "Output",ExpressionUUID->"632fc477-e1bf-4f79-9b67-ea962acff177"] +}, Open ]], +Cell[180765, 4754, 173, 2, 29, "Input",ExpressionUUID->"93cad80c-1de7-2e4b-9b8c-14a272e65d1f"], +Cell[CellGroupData[{ +Cell[180963, 4760, 228, 4, 29, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[181194, 4766, 156, 2, 33, "Output",ExpressionUUID->"68938f06-b316-4e46-b799-d423fb4fd833"] +}, Open ]], +Cell[181365, 4771, 171, 2, 29, "Input",ExpressionUUID->"15fe72e6-19f0-9540-b29f-3056e2e0b957"], +Cell[CellGroupData[{ +Cell[181561, 4777, 1297, 42, 111, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[182861, 4821, 196, 2, 33, "Output",ExpressionUUID->"badbf664-27a7-4573-8fc6-05b38dcebad5"] }, Open ]], Cell[CellGroupData[{ -Cell[365514, 8719, 2221, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[367738, 8785, 573, 12, 70, "Message",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], -Cell[368314, 8799, 575, 12, 70, "Message",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], -Cell[368892, 8813, 577, 12, 70, "Message",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], -Cell[369472, 8827, 456, 10, 70, "Message",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], -Cell[369931, 8839, 172, 3, 70, "Output",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +Cell[183094, 4828, 929, 30, 96, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[184026, 4860, 196, 2, 33, "Output",ExpressionUUID->"1cdaee67-6bfa-4cb0-9012-7cf7f3e4d80a"] }, Open ]], Cell[CellGroupData[{ -Cell[370140, 8847, 2219, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[372362, 8913, 571, 12, 70, "Message",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], -Cell[372936, 8927, 573, 12, 70, "Message",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], -Cell[373512, 8941, 579, 12, 70, "Message",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], -Cell[374094, 8955, 458, 10, 70, "Message",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], -Cell[374555, 8967, 172, 3, 70, "Output",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +Cell[184259, 4867, 904, 29, 55, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[185166, 4898, 195, 2, 33, "Output",ExpressionUUID->"72d83635-c171-4e2f-9907-7ed7fa28c5a9"] }, Open ]], Cell[CellGroupData[{ -Cell[374764, 8975, 211, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[374978, 8983, 174, 3, 70, "Output",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] -}, Open ]] +Cell[185398, 4905, 554, 18, 51, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[185955, 4925, 193, 2, 33, "Output",ExpressionUUID->"1a768f77-95bb-40df-85a8-2018517b528b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186185, 4932, 619, 20, 51, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[186807, 4954, 189, 2, 33, "Output",ExpressionUUID->"873a3552-88f6-439b-bc93-6b318f1f4f03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187033, 4961, 166, 4, 55, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[187202, 4967, 193, 2, 33, "Output",ExpressionUUID->"9f2acf9f-695c-44dc-ba64-cfcf04e98a28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187432, 4974, 166, 4, 54, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[187601, 4980, 187, 2, 33, "Output",ExpressionUUID->"59242407-2ad0-4dfe-b526-cbe298e68c01"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187825, 4987, 177, 4, 43, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[188005, 4993, 188, 2, 33, "Output",ExpressionUUID->"038e6d4b-ffe5-4b7e-9373-caae374e9bc9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188230, 5000, 177, 4, 43, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[188410, 5006, 191, 2, 33, "Output",ExpressionUUID->"6ac1ccfd-3683-405f-b97e-50be7888f083"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188638, 5013, 6051, 184, 474, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[194692, 5199, 195, 2, 33, "Output",ExpressionUUID->"873384b6-0e46-4e64-b5f9-19711ffc121f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194924, 5206, 364, 8, 41, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[195291, 5216, 189, 2, 33, "Output",ExpressionUUID->"d503a920-05c1-4310-b36a-d340efea95ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195517, 5223, 6118, 186, 474, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[201638, 5411, 195, 2, 33, "Output",ExpressionUUID->"1baddf7d-d83d-4acc-8267-74b369eb031a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201870, 5418, 364, 8, 41, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[202237, 5428, 190, 2, 33, "Output",ExpressionUUID->"d3e12b38-26cc-4969-820c-f4efbcaf0e50"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202464, 5435, 2659, 87, 285, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[205126, 5524, 192, 2, 33, "Output",ExpressionUUID->"acaa79be-c0e3-4574-aa45-6b046e400cd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205355, 5531, 2599, 84, 211, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[207957, 5617, 191, 2, 33, "Output",ExpressionUUID->"1853f631-a41d-43ea-9145-f2251b99af4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208185, 5624, 3708, 117, 327, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[211896, 5743, 192, 2, 33, "Output",ExpressionUUID->"0860a8ae-631b-45c0-8af9-55bf483b64bc"] +}, Open ]], +Cell[212103, 5748, 160, 3, 29, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[212288, 5755, 2071, 58, 234, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[214362, 5815, 595, 13, 80, "Message",ExpressionUUID->"e436448b-4740-4642-a348-95a346d499b7"], +Cell[214960, 5830, 598, 13, 80, "Message",ExpressionUUID->"bf50bf05-5e83-4e49-ae01-8389ed93954e"], +Cell[215561, 5845, 601, 13, 80, "Message",ExpressionUUID->"879848e9-ba23-41b3-90ab-12ad72b966ed"], +Cell[216165, 5860, 496, 11, 26, "Message",ExpressionUUID->"0f8c1e28-c509-4ebc-864b-c02220327f77"], +Cell[216664, 5873, 193, 2, 33, "Output",ExpressionUUID->"67d755af-6936-473b-9603-4c982510ee6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216894, 5880, 2073, 58, 234, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[218970, 5940, 595, 13, 80, "Message",ExpressionUUID->"8dc4c80d-8867-44e2-b176-ab92e24db687"], +Cell[219568, 5955, 600, 13, 80, "Message",ExpressionUUID->"af152c3e-a473-43e7-a757-013dc259c4e7"], +Cell[220171, 5970, 603, 13, 80, "Message",ExpressionUUID->"ef7f6624-d511-40e3-b037-616e73f223ff"], +Cell[220777, 5985, 494, 11, 26, "Message",ExpressionUUID->"e9c0f198-98ea-40b9-afe2-3c913273f657"], +Cell[221274, 5998, 189, 2, 33, "Output",ExpressionUUID->"04120cef-4b56-48ef-9d4f-ac2c20aa1ca9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221500, 6005, 1957, 52, 102, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[223460, 6059, 20281, 382, 236, "Output",ExpressionUUID->"cec5fbfe-590a-422c-907d-f4c93306f5e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243778, 6446, 2111, 59, 261, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[245892, 6507, 533, 12, 59, "Message",ExpressionUUID->"75c2a81d-ea05-49b6-bbbd-9a1062e26c2a"], +Cell[246428, 6521, 537, 12, 59, "Message",ExpressionUUID->"aeac1eb1-3d56-4d53-a6ba-0777d7c48ffd"], +Cell[246968, 6535, 537, 12, 59, "Message",ExpressionUUID->"846d5492-d284-490b-a9bc-7667b3dc6fb0"], +Cell[247508, 6549, 492, 11, 26, "Message",ExpressionUUID->"f80a219b-56ed-4be5-a300-0cd5d3d75321"], +Cell[248003, 6562, 23707, 437, 232, "Output",ExpressionUUID->"e4e13132-eeb9-4674-a8b2-670f312cbeec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271747, 7004, 2473, 69, 169, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[274223, 7075, 9504, 222, 239, "Output",ExpressionUUID->"0f15fbe3-54b7-4f70-a6fa-8f53acf7b4e8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[283764, 7302, 228, 4, 29, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[283995, 7308, 30083, 569, 232, "Output",ExpressionUUID->"f267feb6-de09-4c8c-b509-fc168698b6bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314115, 7882, 236, 6, 47, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[314354, 7890, 188, 2, 33, "Output",ExpressionUUID->"547ac78a-db8e-48d5-a3af-22aaa5bd8e42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[314579, 7897, 1835, 52, 190, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[316417, 7951, 544, 12, 59, "Message",ExpressionUUID->"0686c08f-7ade-474f-bf5c-df0565dc5856"], +Cell[316964, 7965, 546, 12, 59, "Message",ExpressionUUID->"96bbcdee-f299-4fbb-8f22-3b5d9ea5a210"], +Cell[317513, 7979, 550, 12, 59, "Message",ExpressionUUID->"7bb534ea-b0a3-41e9-81da-ff441da2c5c6"], +Cell[318066, 7993, 491, 11, 26, "Message",ExpressionUUID->"a69faf1a-0e37-45c9-b6d0-32729f0d9d51"], +Cell[318560, 8006, 22962, 422, 232, "Output",ExpressionUUID->"1fc388df-9041-4f28-9a74-a2b1ce89d666"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341559, 8433, 1616, 48, 104, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[343178, 8483, 728, 15, 80, "Message",ExpressionUUID->"a420f7bc-7cae-4aa8-9003-97f26b171723"], +Cell[343909, 8500, 728, 15, 80, "Message",ExpressionUUID->"9f9ee2e4-e80a-4e7f-b5c0-e8e388b91587"], +Cell[344640, 8517, 729, 15, 80, "Message",ExpressionUUID->"59486266-2834-49f3-b180-76dea77bd997"], +Cell[345372, 8534, 496, 11, 26, "Message",ExpressionUUID->"cc5bc0f6-b866-44aa-b6a8-ba4533d0e405"], +Cell[345871, 8547, 195, 3, 33, "Output",ExpressionUUID->"d3dbdcb0-52a1-4a52-9712-c2cfb9b173f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346103, 8555, 2270, 64, 212, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[348376, 8621, 597, 13, 80, "Message",ExpressionUUID->"853a9bc2-c753-42cc-ba93-b9ec65e9a90f"], +Cell[348976, 8636, 600, 13, 80, "Message",ExpressionUUID->"20563849-c6f4-4df2-8bc3-84ac0bf140bc"], +Cell[349579, 8651, 603, 13, 80, "Message",ExpressionUUID->"1490f0d5-1350-449b-bb2e-cda80e480736"], +Cell[350185, 8666, 494, 11, 26, "Message",ExpressionUUID->"2fdeba25-86c0-48c7-87aa-15153c3d011a"], +Cell[350682, 8679, 192, 3, 33, "Output",ExpressionUUID->"746fdcf1-c03e-4b7f-9640-29355018696a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350911, 8687, 2233, 63, 212, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[353147, 8752, 595, 13, 80, "Message",ExpressionUUID->"ecf6dca9-9afd-4a4c-b0bf-5ea84a97354d"], +Cell[353745, 8767, 600, 13, 80, "Message",ExpressionUUID->"c0c80c86-51d4-460f-b6f8-12a2fd065272"], +Cell[354348, 8782, 601, 13, 80, "Message",ExpressionUUID->"8649a8d4-1fed-4b76-ae9b-f14bafb52274"], +Cell[354952, 8797, 494, 11, 26, "Message",ExpressionUUID->"db832d18-7195-40fe-a52d-3c811a922460"], +Cell[355449, 8810, 193, 3, 33, "Output",ExpressionUUID->"0585b15d-d98b-439f-836d-f33d18ae47f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355679, 8818, 2233, 63, 212, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[357915, 8883, 597, 13, 80, "Message",ExpressionUUID->"4e3e1625-803b-4731-bd1e-17cc3f31a6bf"], +Cell[358515, 8898, 599, 13, 80, "Message",ExpressionUUID->"d948694f-c538-4a59-bf08-8b93edc40fc6"], +Cell[359117, 8913, 603, 13, 80, "Message",ExpressionUUID->"eb7c9d94-1f0a-40cd-a53d-d0f5afe2f594"], +Cell[359723, 8928, 496, 11, 26, "Message",ExpressionUUID->"289dd4a2-f34b-46a6-872f-e5b8c47cf829"], +Cell[360222, 8941, 193, 3, 33, "Output",ExpressionUUID->"4eb7c727-7970-4f71-9adc-0b12296fe501"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360452, 8949, 238, 6, 46, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[360693, 8957, 197, 3, 33, "Output",ExpressionUUID->"ef9d0658-3baf-4ed1-81e4-c0f48c94e7d8"] +}, Open ]], +Cell[360905, 8963, 271, 6, 29, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[361201, 8973, 558, 19, 51, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[361762, 8994, 196, 3, 33, "Output",ExpressionUUID->"9f4db4b9-b3f2-4b8c-a7eb-0a9fc71965c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361995, 9002, 170, 5, 55, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[362168, 9009, 195, 3, 33, "Output",ExpressionUUID->"07615aee-aaaa-4c8d-9955-a6491fcb3ca8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362400, 9017, 181, 5, 43, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[362584, 9024, 195, 3, 33, "Output",ExpressionUUID->"0976cabc-2184-4f11-a36c-b26a9f9ac19e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362816, 9032, 6055, 185, 474, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[368874, 9219, 197, 3, 33, "Output",ExpressionUUID->"32fe403c-eb96-41d5-b42a-07d25ce8e086"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369108, 9227, 368, 9, 41, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[369479, 9238, 197, 3, 33, "Output",ExpressionUUID->"5a982300-96c2-4ab9-bd4a-b87c51bd1ad7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369713, 9246, 6122, 187, 474, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[375838, 9435, 195, 3, 33, "Output",ExpressionUUID->"55a1e148-ca53-42e0-8d98-fe36d5394df9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376070, 9443, 368, 9, 41, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[376441, 9454, 193, 3, 33, "Output",ExpressionUUID->"6d88353c-01f4-47bb-958d-0319d0cdde92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376671, 9462, 2663, 88, 285, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[379337, 9552, 196, 3, 33, "Output",ExpressionUUID->"ce4fe5bb-b907-452d-9030-e21ba0bba39a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[379570, 9560, 2603, 85, 211, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[382176, 9647, 195, 3, 33, "Output",ExpressionUUID->"8bee1429-3a4e-4e19-8126-05485dae9e59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[382408, 9655, 3712, 118, 327, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[386123, 9775, 196, 3, 33, "Output",ExpressionUUID->"2859231e-7fc8-442b-a276-f34ce3d89610"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386356, 9783, 2075, 59, 234, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[388434, 9844, 591, 13, 80, "Message",ExpressionUUID->"fdf1efe6-925f-4f0c-a58c-118d030b9a5f"], +Cell[389028, 9859, 592, 13, 80, "Message",ExpressionUUID->"352427d7-e3f2-4b50-89ce-ac2f7cd154b2"], +Cell[389623, 9874, 595, 13, 80, "Message",ExpressionUUID->"9f1f672c-4ffd-4078-a018-16c79d055193"], +Cell[390221, 9889, 496, 11, 26, "Message",ExpressionUUID->"d7bab82d-1e49-4b12-98a2-09bae91eebb0"], +Cell[390720, 9902, 193, 3, 33, "Output",ExpressionUUID->"0ad13897-4749-472c-9bbb-6182d0cc6908"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390950, 9910, 2077, 59, 234, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[393030, 9971, 589, 13, 80, "Message",ExpressionUUID->"8dfe6661-36ff-428c-b14b-df57e66c0ed0"], +Cell[393622, 9986, 594, 13, 80, "Message",ExpressionUUID->"2dd8f4a1-ce42-49ba-a556-f3a62c8f0278"], +Cell[394219, 10001, 595, 13, 80, "Message",ExpressionUUID->"ac57572a-22f8-4776-a076-d0a070986a88"], +Cell[394817, 10016, 494, 11, 26, "Message",ExpressionUUID->"a3a26f92-512c-428a-8d9a-93e9c6dc1e3c"], +Cell[395314, 10029, 194, 3, 33, "Output",ExpressionUUID->"1671170c-8488-4f95-9d69-84894872c752"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395545, 10037, 2053, 55, 151, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[397601, 10094, 20482, 386, 232, "Output",ExpressionUUID->"62af7f67-faa1-4c70-85d1-5326c1249863"] +}, Open ]], +Cell[CellGroupData[{ +Cell[418120, 10485, 2166, 61, 261, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[420289, 10548, 513, 12, 59, "Message",ExpressionUUID->"d04ebc97-2f2d-44b3-941c-43615630b36b"], +Cell[420805, 10562, 516, 12, 59, "Message",ExpressionUUID->"55b6a25e-0611-486f-8b40-0d9bb4448452"], +Cell[421324, 10576, 522, 12, 59, "Message",ExpressionUUID->"899310c3-22a3-4d3b-8f0c-8073c38ded6b"], +Cell[421849, 10590, 474, 11, 26, "Message",ExpressionUUID->"667e6db4-f05c-40b5-87d0-93659c8d5999"], +Cell[422326, 10603, 24036, 441, 232, "Output",ExpressionUUID->"39cd1c02-050e-4df9-be1b-4e0ff236f856"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446399, 11049, 164, 4, 29, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[446566, 11055, 30432, 573, 232, "Output",ExpressionUUID->"b075afed-91ef-4e62-ba87-17d45c99e119"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477035, 11633, 1616, 48, 104, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[478654, 11683, 726, 15, 80, "Message",ExpressionUUID->"e74559f1-e200-4fd8-8481-65f65ad982c6"], +Cell[479383, 11700, 727, 15, 80, "Message",ExpressionUUID->"a314b699-ac63-4298-8e3e-5cac9519b162"], +Cell[480113, 11717, 726, 15, 80, "Message",ExpressionUUID->"b5b5f75c-32eb-4df5-8618-81d4c43ac355"], +Cell[480842, 11734, 494, 11, 26, "Message",ExpressionUUID->"362823eb-7c5d-44df-b920-21d39e12d3e5"], +Cell[481339, 11747, 194, 3, 33, "Output",ExpressionUUID->"22140ff3-d628-4c58-b492-f6791f2fcf68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[481570, 11755, 2272, 64, 212, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[483845, 11821, 591, 13, 80, "Message",ExpressionUUID->"cbdf99ad-2a53-4fac-9303-c3d09aa2a9e8"], +Cell[484439, 11836, 594, 13, 80, "Message",ExpressionUUID->"7006ad55-b848-40ba-b938-98e49ab662d3"], +Cell[485036, 11851, 599, 13, 80, "Message",ExpressionUUID->"1c52bead-48ce-4589-9bad-357fa71c80cc"], +Cell[485638, 11866, 496, 11, 26, "Message",ExpressionUUID->"6aea7fb6-ff88-4732-bb65-b929e28e1b96"], +Cell[486137, 11879, 196, 3, 33, "Output",ExpressionUUID->"28070218-7342-4c54-8412-1c3b7375c034"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486370, 11887, 2235, 63, 212, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[488608, 11952, 589, 13, 80, "Message",ExpressionUUID->"d5698e8d-1ca7-4d22-b3d1-f06629d1181b"], +Cell[489200, 11967, 592, 13, 80, "Message",ExpressionUUID->"e2cc76c2-3624-49c3-8906-fc0f6d990f5f"], +Cell[489795, 11982, 595, 13, 80, "Message",ExpressionUUID->"21c410b9-6bad-4d1c-9ff8-f02df63a8b0f"], +Cell[490393, 11997, 496, 11, 26, "Message",ExpressionUUID->"a1352f2a-6374-4ddb-ac91-6f4e43b33c52"], +Cell[490892, 12010, 193, 3, 33, "Output",ExpressionUUID->"5dce995c-33b2-4c51-aa25-671a7a1566a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491122, 12018, 2233, 63, 212, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[493358, 12083, 589, 13, 80, "Message",ExpressionUUID->"bc9d35db-39d8-4fcb-ad00-8da8c494862a"], +Cell[493950, 12098, 592, 13, 80, "Message",ExpressionUUID->"d1cd2348-c914-4e96-9ca5-54aae63b056e"], +Cell[494545, 12113, 595, 13, 80, "Message",ExpressionUUID->"5cd5e53e-f3e7-4fa9-816b-5b3f15d02f6c"], +Cell[495143, 12128, 494, 11, 26, "Message",ExpressionUUID->"af5d9b9a-9169-4332-bbfd-ac4195a6a9ba"], +Cell[495640, 12141, 193, 3, 33, "Output",ExpressionUUID->"c342bbbb-9475-4740-91a3-f8792352c3cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495870, 12149, 238, 6, 46, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[496111, 12157, 197, 3, 33, "Output",ExpressionUUID->"2fc389b4-7aa3-4938-80e9-96a01bf0d72c"] +}, Open ]], +Cell[496323, 12163, 275, 6, 29, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[496623, 12173, 558, 19, 51, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[497184, 12194, 193, 3, 33, "Output",ExpressionUUID->"b3cb48d6-85a5-4242-b77c-24c8c382ee6f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497414, 12202, 170, 5, 55, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[497587, 12209, 195, 3, 33, "Output",ExpressionUUID->"b2be61d2-c76e-48e1-9e90-1ebdac35dd59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497819, 12217, 181, 5, 43, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[498003, 12224, 195, 3, 33, "Output",ExpressionUUID->"cc35a52e-fa1d-4141-a924-597019081f7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498235, 12232, 6055, 185, 474, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[504293, 12419, 197, 3, 33, "Output",ExpressionUUID->"12ccd5e1-60cf-4530-a415-587575938b92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504527, 12427, 368, 9, 41, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[504898, 12438, 195, 3, 33, "Output",ExpressionUUID->"5240da23-2a8e-4254-861b-6d7560ea6673"] +}, Open ]], +Cell[CellGroupData[{ +Cell[505130, 12446, 6122, 187, 474, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[511255, 12635, 194, 3, 33, "Output",ExpressionUUID->"8262c35d-c076-44f9-b3f8-2fbda9f2e467"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511486, 12643, 368, 9, 41, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[511857, 12654, 192, 3, 33, "Output",ExpressionUUID->"47b75e34-93f5-46d0-84fd-36149bd9fb7d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512086, 12662, 2663, 88, 285, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[514752, 12752, 196, 3, 33, "Output",ExpressionUUID->"26fd4fab-3809-4e37-b4db-e7a1ec2b757e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[514985, 12760, 2603, 85, 211, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[517591, 12847, 193, 3, 33, "Output",ExpressionUUID->"03f08e0d-b2a1-4498-86ea-7bbb701036a7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517821, 12855, 3712, 118, 327, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[521536, 12975, 194, 3, 33, "Output",ExpressionUUID->"18d6bea6-cded-4718-8912-8b6d5764048a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[521767, 12983, 2075, 59, 234, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[523845, 13044, 601, 13, 80, "Message",ExpressionUUID->"f7059fc4-ab6b-4d36-b676-337deb73fe40"], +Cell[524449, 13059, 605, 13, 80, "Message",ExpressionUUID->"190ee6b0-9116-4a8e-ac0e-d7cf1345fe79"], +Cell[525057, 13074, 607, 13, 80, "Message",ExpressionUUID->"4935b060-dce8-4589-be53-e0f9064efdb8"], +Cell[525667, 13089, 495, 11, 26, "Message",ExpressionUUID->"6d439ecf-d384-41d7-9410-cef6cc1290cf"], +Cell[526165, 13102, 195, 3, 33, "Output",ExpressionUUID->"82c0ca98-8fa5-426b-bfb6-8e7ced114f2a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526397, 13110, 2075, 59, 234, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[528475, 13171, 601, 13, 80, "Message",ExpressionUUID->"33fe3a15-d96b-4d1d-b83e-55532be71c22"], +Cell[529079, 13186, 605, 13, 80, "Message",ExpressionUUID->"b96aeeba-0393-4df8-af8d-eaa3258c9062"], +Cell[529687, 13201, 607, 13, 80, "Message",ExpressionUUID->"94da7b46-8c70-4fba-90a3-6960a4921ff9"], +Cell[530297, 13216, 496, 11, 26, "Message",ExpressionUUID->"df713507-1dc8-4fa3-a972-b8fecccc3fe1"], +Cell[530796, 13229, 193, 3, 33, "Output",ExpressionUUID->"8680b73f-2faa-43ee-b5ef-018691ee897f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531026, 13237, 2051, 55, 151, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[533080, 13294, 20343, 383, 239, "Output",ExpressionUUID->"e2044431-667b-4aee-b0f3-6125289ab70a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[553460, 13682, 2168, 61, 261, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[555631, 13745, 538, 12, 59, "Message",ExpressionUUID->"3f75997e-5c98-4cd6-b259-bb0018c98704"], +Cell[556172, 13759, 542, 12, 59, "Message",ExpressionUUID->"c60ab6f3-8cf7-4447-8562-80e703dcc8d8"], +Cell[556717, 13773, 543, 12, 59, "Message",ExpressionUUID->"b530c119-ff10-417a-8129-afb48fe96d70"], +Cell[557263, 13787, 494, 11, 26, "Message",ExpressionUUID->"a66c1b8f-1f12-4f8f-b75d-4bc595f90764"], +Cell[557760, 13800, 23153, 426, 232, "Output",ExpressionUUID->"3928d8dc-3056-4d27-b8c8-c5d9d128c869"] +}, Open ]], +Cell[CellGroupData[{ +Cell[580950, 14231, 232, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[581185, 14238, 29525, 558, 232, "Output",ExpressionUUID->"39593aa9-c934-4629-b97d-4f2dc4225d02"] +}, Open ]], +Cell[CellGroupData[{ +Cell[610747, 14801, 1616, 48, 104, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[612366, 14851, 725, 15, 80, "Message",ExpressionUUID->"3bf7a6e3-ac69-4f3d-9a49-dabf37d6c1ed"], +Cell[613094, 14868, 725, 15, 80, "Message",ExpressionUUID->"43650106-9c39-4b69-b08e-9d77d0dacc3a"], +Cell[613822, 14885, 725, 15, 80, "Message",ExpressionUUID->"e1b80db4-6338-43ef-82b2-0f514fe16082"], +Cell[614550, 14902, 495, 11, 26, "Message",ExpressionUUID->"241041c0-009c-435c-b189-72d0a4b37b32"], +Cell[615048, 14915, 195, 3, 33, "Output",ExpressionUUID->"561b2bae-5b1a-4bee-b321-56b085faa356"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615280, 14923, 2272, 64, 212, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[617555, 14989, 601, 13, 80, "Message",ExpressionUUID->"be694bd2-2a1b-4955-9889-5f3178aee782"], +Cell[618159, 15004, 603, 13, 80, "Message",ExpressionUUID->"3951794a-14b8-4022-96e6-3939272c209f"], +Cell[618765, 15019, 609, 13, 80, "Message",ExpressionUUID->"f72c3c4e-9a15-4bd3-89e2-793b748207ff"], +Cell[619377, 15034, 498, 11, 26, "Message",ExpressionUUID->"61b0827d-3594-487e-bf64-a02f92a1983f"], +Cell[619878, 15047, 197, 3, 33, "Output",ExpressionUUID->"277188eb-d530-4975-bcc4-e78065607fa7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620112, 15055, 2233, 63, 212, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[622348, 15120, 601, 13, 80, "Message",ExpressionUUID->"5f566626-2ba5-4ca4-83aa-1d77bc671242"], +Cell[622952, 15135, 603, 13, 80, "Message",ExpressionUUID->"8194c920-97a8-4a70-b0f9-4f01eeb76e88"], +Cell[623558, 15150, 607, 13, 80, "Message",ExpressionUUID->"8786cd9e-b6b2-49f4-990b-7e6e0990ea8f"], +Cell[624168, 15165, 496, 11, 26, "Message",ExpressionUUID->"d283d58f-df7e-4847-9024-a4921fb7cd9e"], +Cell[624667, 15178, 195, 3, 33, "Output",ExpressionUUID->"cf893457-f20a-46a2-84c0-5c1b70481d1b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624899, 15186, 2231, 63, 212, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[627133, 15251, 601, 13, 80, "Message",ExpressionUUID->"668a0522-15be-4f42-b3a1-16af1fc41d35"], +Cell[627737, 15266, 603, 13, 80, "Message",ExpressionUUID->"4c1102ba-4161-45c1-bcc5-5314954c6af5"], +Cell[628343, 15281, 605, 13, 80, "Message",ExpressionUUID->"20f67f75-0a2b-458b-a383-5a46d4140f73"], +Cell[628951, 15296, 494, 11, 26, "Message",ExpressionUUID->"1e0e8ff3-e342-481d-999e-b61133158349"], +Cell[629448, 15309, 195, 3, 33, "Output",ExpressionUUID->"440a721d-2f33-4608-a2f5-cb46094b82cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[629680, 15317, 234, 6, 46, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[629917, 15325, 197, 3, 33, "Output",ExpressionUUID->"378f902a-ce69-49f1-ac4b-7316688829d6"] +}, Open ]], +Cell[630129, 15331, 209, 4, 29, "Input",ExpressionUUID->"471c2e8e-6cd0-4048-9dbd-f35f9032d8ce"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw2.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw2.nb index 1f902d9..76e6627 100644 --- a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw2.nb @@ -3,42 +3,4775 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 243505, 7911] -NotebookOptionsPosition[ 219988, 7552] -NotebookOutlinePosition[ 220412, 7569] -CellTagsIndexPosition[ 220369, 7566] +NotebookDataLength[ 659296, 15856] +NotebookOptionsPosition[ 618725, 15207] +NotebookOutlinePosition[ 619161, 15225] +CellTagsIndexPosition[ 619118, 15222] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ -5e950c758893"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991850549355442*^9, - 3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\ -e7a6896afd10"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "2.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9938052191744213`*^9, 3.9938052504311247`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"946a15a7-3818-4bcc-a92d-6192f942d70b"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99380518475546*^9, {3.993805224475608*^9, + 3.993805252954657*^9}, 3.993916351512208*^9, 3.993917212639593*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"d6db251b-07b9-4f61-8f6b-be01eb117fbd"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993916321914616*^9, 3.993916322483457*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"40f52e4c-18bc-423e-8f1f-71e052282e96"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ -5e27a96171a9"], + 3.9913196497381973`*^9, 3.993805185043068*^9, {3.993805224572557*^9, + 3.993805252993279*^9}, 3.993916351869231*^9, 3.993917212746386*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"50508012-faaa-4e32-abba-d0c5096196a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "158"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9938049166426687`*^9, 3.993804917651101*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"5a4c4862-bdcc-4eef-a64e-0f2822f8ee8f"], + +Cell[BoxData["158"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993805185062161*^9, {3.993805224576009*^9, + 3.993805253007394*^9}, 3.993916351892046*^9, 3.99391721276189*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"1b91468f-ddc9-45a7-93db-ed6cb8934b26"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"b602e51e-2c94-45fe-9b69-e92074284373"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993805185081649*^9, {3.993805224601097*^9, + 3.99380525302089*^9}, 3.993916351914412*^9, 3.993917212775819*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"64cd9095-c088-49eb-aff7-11d196e1594c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"e723ca56-3646-4c9b-9c3e-a4ac4e7c99fb"], + +Cell[BoxData["0.54525`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9938051851009007`*^9, {3.993805224616465*^9, + 3.993805253035823*^9}, 3.993916351937345*^9, 3.993917212788816*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"e1a93ef1-a4f5-47d7-b12a-25c2d307eae0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"12933264-e8eb-4e9c-96ae-b066d6da105e"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9938051851193542`*^9, {3.993805224632454*^9, + 3.9938052530394487`*^9}, 3.9939163519603853`*^9, 3.9939172128032637`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"56639342-6652-4f2b-8d48-0812b0d9cb8a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"40d8995e-15d1-4b2b-bedd-5bb2dd6393e5"], + +Cell[BoxData["6.27109940387026`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.99380518513807*^9, {3.993805224647552*^9, + 3.9938052530590487`*^9}, 3.993916351983755*^9, 3.993917212816617*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"31d8ed03-5fe6-442b-8d4c-b13cd17037b4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"f20662e0-4084-4136-8b08-530e5e291154"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993805185156455*^9, {3.99380522466296*^9, + 3.993805253072824*^9}, 3.993916352007182*^9, 3.993917212826083*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"7b91566b-c817-47d8-90dd-12295d36f589"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "1.0538"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993804952051347*^9, 3.9938049566002893`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"948dfae7-7ef2-4c29-a1bf-d76e43545036"], + +Cell[BoxData["1.0538`"], "Output", + CellChangeTimes->{ + 3.99380518519252*^9, {3.993805224678464*^9, 3.993805253087891*^9}, + 3.99391635203514*^9, 3.993917212838119*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"cd0ba3c2-8bde-4985-95cf-045fc046ae9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4586"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993804961242296*^9, 3.993804965065857*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"1a6b8d21-d365-445e-96f8-2a2f98fcfa8d"], + +Cell[BoxData["0.4586`"], "Output", + CellChangeTimes->{ + 3.9938051852126503`*^9, {3.9938052246934443`*^9, 3.9938052531018476`*^9}, + 3.9939163520582523`*^9, 3.993917212853653*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"8da53173-5c3c-434b-82a0-ea9d62a41685"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"eb63f0ee-715a-4132-83e1-40c8d44e89c5"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993805185248838*^9, {3.9938052247082167`*^9, + 3.9938052531162167`*^9}, 3.993916352081853*^9, 3.993917212869132*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"cc2cb93e-8460-4e5d-be34-20c2c71891c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"17379209-e90b-4641-b498-45015d0980d6"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993805185267172*^9, {3.9938052247238207`*^9, + 3.993805253130691*^9}, 3.9939163521054068`*^9, 3.993917212881536*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"c8d7112c-c8fd-4052-afc3-8216c2a4387b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"3bb1d00c-6aa5-49ca-b277-9a54ee404120"], + +Cell[BoxData["2.7212678798402736`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.99380518528695*^9, {3.993805224741534*^9, + 3.993805253144705*^9}, 3.9939163521330347`*^9, 3.993917212904457*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"9fd0084c-9272-4a08-a035-44cf124c2621"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"bc8f0ac1-835c-45f7-b79b-95e0077cc093"], + +Cell[BoxData["1.517413176238712`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993805185305333*^9, {3.993805224756358*^9, + 3.993805253156912*^9}, 3.993916352156901*^9, 3.993917212922389*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"ddf4413a-76af-4914-8b39-bdddb6cc3c4b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"abeef0c4-b428-4df8-b973-8fc9491f40ca"], + +Cell[BoxData["0.32066933716802604`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938051853237133`*^9, {3.993805224762803*^9, + 3.9938052531724854`*^9}, 3.993916352182193*^9, 3.993917212943666*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"ca11b838-e3dd-4b4c-bf4b-125c9ce8b041"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"b124f26d-07b2-4ee5-bdbe-bde648f85947"], + +Cell[BoxData[ + RowBox[{"-", "0.07876066759731537`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9938051853418283`*^9, {3.993805224780403*^9, + 3.993805253186532*^9}, 3.993916352207016*^9, 3.993917212959779*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"19411201-2480-4cdf-bd25-e60c0bd44979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"152799db-c1d2-41b3-a21f-9dfdfa30ba14"], + +Cell[BoxData[ + RowBox[{"-", "0.5970148797225691`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9938051853596067`*^9, {3.99380522479467*^9, + 3.993805253200911*^9}, 3.993916352232068*^9, 3.9939172129781322`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"d801bc2f-6613-4431-b99c-ec430a8cc5b9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"1e625577-d85a-4041-8636-ef134f8b1369"], + +Cell[BoxData["0.6876077696425691`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993805185378059*^9, {3.993805224809915*^9, + 3.993805253215036*^9}, 3.993916352256995*^9, 3.993917212998869*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"35d2e75b-4402-403a-a82f-ce529a30cca1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"4bb1112d-c2ba-4f35-87cc-1d95260af95a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993805185398272*^9, {3.993805224824396*^9, + 3.9938052532292*^9}, 3.9939163522826366`*^9, 3.9939172130208406`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"82e8b85b-4560-43c0-a065-4f540ca1b545"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"ba1d923d-18fb-4c6c-9671-cf86513b4b45"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9938051854177923`*^9, {3.99380522484026*^9, + 3.993805253244286*^9}, 3.993916352307663*^9, 3.993917213041163*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"904d3454-9b52-4370-a820-210723c724eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"b3a7a787-5dbf-49df-a66e-0ed7b069a1ab"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993805185437478*^9, {3.993805224855752*^9, + 3.9938052532596083`*^9}, 3.993916352336733*^9, 3.9939172130568323`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"1429e362-d309-4963-91a9-7027750badbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"ed62a784-d144-4eb2-831e-8d8c6d370389"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.9938051854577103`*^9, {3.99380522487106*^9, + 3.993805253274938*^9}, 3.993916352360208*^9, 3.993917213075678*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"5872d986-a80a-44a9-bbe8-b65695db731a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"4a821c3e-9f70-4de0-bbeb-6b6285879895"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993805185476227*^9, {3.993805224888023*^9, + 3.9938052532912817`*^9}, 3.9939163523865757`*^9, 3.9939172130932627`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"3361bf7e-10b1-45c4-a401-1dc76a56fb92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.993804991704192*^9, 3.9938049918531923`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"6450e23a-d56f-49a2-8174-9fad4a34ce27"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.99380518552493*^9, {3.9938052249037046`*^9, + 3.993805253306974*^9}, 3.993916352410439*^9, 3.993917213113653*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"7296f8be-1018-4b32-8453-a939607ce130"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993804995664447*^9, 3.993804995772654*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"af703f79-28e4-4cd7-a4a9-47a6df98f27e"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993805185543676*^9, {3.9938052249204884`*^9, + 3.993805253322205*^9}, 3.99391635243427*^9, 3.993917213135015*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"313e4649-5b54-41b6-851f-aee638d86c0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"243b3833-9d75-4d15-ae18-42c7c2d800c2"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9938051855619907`*^9, {3.9938052249386597`*^9, + 3.9938052533386793`*^9}, 3.993916352457818*^9, 3.993917213149805*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"f8f7b749-8b5f-49fa-89dd-18a872b97d69"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"d7df5b89-52f9-41d1-8fdc-865c569f15ca"], + +Cell[BoxData["0.11191417104044457`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993805185580923*^9, {3.993805224956522*^9, + 3.993805253354024*^9}, 3.9939163524821377`*^9, 3.993917213164295*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"0b58f313-4490-442a-bdfb-749cf4bd4a64"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"996607f2-2446-4911-a4b2-79c5c280ecbe"], + +Cell[BoxData[ + RowBox[{"-", "2.561824637233714`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993805185599188*^9, {3.993805224972258*^9, + 3.993805253370023*^9}, 3.9939163525065804`*^9, 3.993917213180777*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"6f56e76f-9205-44ef-bb01-856f5caefdc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"1515f9a9-2739-455e-b6c6-11b3dfe50dfe"], + +Cell[BoxData["18.398535985484678`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.99380518561648*^9, {3.993805224987084*^9, + 3.993805253385118*^9}, 3.993916352533133*^9, 3.993917213209304*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"b382f267-688f-4a80-8721-e5c1d8d66b17"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"8463d842-d4ca-40b6-82dd-09af90f2ed53"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9938051856333447`*^9, {3.993805225004781*^9, + 3.993805253400388*^9}, 3.993916352603034*^9, 3.9939172132355556`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"8138a659-1cd9-46e4-a576-136f7bf56014"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.1"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993805039391902*^9, 3.993805039626801*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"de0c80c0-6eb0-44b1-be27-404c87950459"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.993805185666649*^9, {3.993805225028409*^9, 3.993805253416904*^9}, + 3.993916352634946*^9, 3.993917213252098*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"cc0d74b9-c5a6-47b4-8b80-0b99b32506fa"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918505524437046`*^9, - 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ -8c5c5be10fe8"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"360154ff-c353-4a63-9c3c-846b5400b306"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.825"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993805045213546*^9, 3.993805047124814*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"703197d0-5698-435e-bc4b-73dde364eab6"], + +Cell[BoxData["0.825`"], "Output", + CellChangeTimes->{ + 3.993805185701985*^9, {3.993805225054669*^9, 3.993805253444351*^9}, + 3.9939163527056713`*^9, 3.993917213277832*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"110236e4-15a9-4938-8baa-c089b47125e9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"6112a388-f1b2-4f76-bfce-ed96ed8ed606"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.555"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9938050508440866`*^9, 3.993805052236985*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"cc012d8f-563c-43a8-93f1-99648caaf029"], + +Cell[BoxData["2.555`"], "Output", + CellChangeTimes->{ + 3.9938051857394037`*^9, {3.9938052250786047`*^9, 3.9938052534689074`*^9}, + 3.993916352780088*^9, 3.993917213302594*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"0545b841-9aa0-4137-ada0-d31ee43d132c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"b80727e5-5500-4e08-9765-5d5bb7811b0f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.245"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.99380505503828*^9, 3.993805056087892*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"fc590737-4ffd-47e9-b284-3f2326ed23ba"], + +Cell[BoxData["1.245`"], "Output", + CellChangeTimes->{ + 3.993805185761554*^9, {3.9938052251046124`*^9, 3.9938052534951553`*^9}, + 3.9939163528525343`*^9, 3.993917213326133*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"66a3467a-577d-462c-9523-e58618e650c5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"cd596d48-5ccb-443c-a61e-adfebf7c670a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.573"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993805059071521*^9, + 3.9938050607022467`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"203a69fb-d0eb-403c-aefd-0188903127f8"], + +Cell[BoxData["1.573`"], "Output", + CellChangeTimes->{ + 3.993805185855309*^9, {3.993805225129714*^9, 3.993805253518753*^9}, + 3.993916352928842*^9, 3.993917213352529*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"9f9ff14e-ca4c-42f6-b100-35f2fd251d1c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"8605f44e-e66e-422a-80c0-4e9ce0644d2f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.559"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993805065029335*^9, + 3.993805067447727*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"e132fef1-d8a7-478b-8562-1e5a5312a4b4"], + +Cell[BoxData["0.559`"], "Output", + CellChangeTimes->{ + 3.993805185891992*^9, {3.993805225152993*^9, 3.993805253543803*^9}, + 3.993916353008525*^9, 3.993917213385674*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"407d01fb-7aa0-40b1-bc29-4c29611f4807"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"945f80e1-b3f9-47f4-bb85-39f6a87544b3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938050741899853`*^9, + 3.993805075123766*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"6ce1860f-98c3-4b4d-9330-8fd38bed0c95"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{ + 3.9938051859283257`*^9, {3.993805225185712*^9, 3.9938052535659924`*^9}, + 3.993916353081768*^9, 3.993917213414422*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"cb2a1ce0-72ef-43ad-b53b-c09c5db62f49"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"e9565537-7914-4c40-a82a-fba061b05c3d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.735"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993805078103382*^9, 3.993805079604447*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"6decc633-7f94-495e-872b-02867568fd24"], + +Cell[BoxData["0.735`"], "Output", + CellChangeTimes->{ + 3.993805185964576*^9, {3.9938052252141447`*^9, 3.993805253589633*^9}, + 3.993916353154702*^9, 3.993917213440612*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"2e4e94b4-2a14-4892-aa67-302fbdaa6a0b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"346a716b-c91a-4e25-8a7f-8120354304b0"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"e18db7f6-ac5c-49f4-a360-d799460933c2"], + +Cell[BoxData["0.07326591095323323`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993805186059474*^9, {3.9938052252761602`*^9, + 3.993805253639162*^9}, 3.993916353303368*^9, 3.993917213518393*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"6f07b793-8d52-43a0-bdb5-0cb4fbd68dc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"a87ad4fc-ff79-4203-95ce-4341b88db648"], + +Cell[BoxData["5.817472076698097`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.993805186091166*^9, {3.9938052253032303`*^9, + 3.993805253666086*^9}, 3.993916353340589*^9, 3.99391721357533*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"dbc68801-2d27-49e0-a249-0edaa1614b69"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"04ffd541-ff8b-409e-bd15-cf00633e5c5f"], + +Cell[BoxData[ + RowBox[{"-", "18.01966490435569`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993805186124298*^9, {3.993805225330043*^9, + 3.9938052536925*^9}, 3.993916353372154*^9, 3.993917213632163*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"7051809b-ed3e-438f-9e4d-b352c91aba9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"d642d546-9951-49e3-9b65-bd4fad830996"], + +Cell[BoxData[ + RowBox[{"-", "26.39087117680155`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993805186162883*^9, {3.9938052253638563`*^9, + 3.993805253728293*^9}, 3.993916353411268*^9, 3.993917213703248*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"c2d62d13-efe4-4576-9883-7333837392db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"363bde5c-44c0-4a54-8b84-9799625b8284"], + +Cell[BoxData[ + RowBox[{"-", "72.0154502935676`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.9938051862023897`*^9, {3.993805225399252*^9, + 3.993805253760605*^9}, 3.9939163534581738`*^9, 3.993917213811596*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"f8bd8d8d-ee64-405a-b87a-1093d0902d75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"4d691657-5f6b-44dc-bf9e-08097f52cc89"], + +Cell[BoxData[ + RowBox[{"-", "210.89213440043358`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.99380518624261*^9, {3.993805225437365*^9, + 3.993805253795278*^9}, 3.993916353515175*^9, 3.993917213878871*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"efcd1c6d-d5ba-4c72-abd8-f15534db996c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"ec00c6c2-24c2-430c-84a6-0b0b92648550"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9938051862628403`*^9, {3.993805225455119*^9, + 3.993805253809515*^9}, 3.993916353549343*^9, 3.993917213895514*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"15b373ae-67f1-4852-9906-d7093fc24857"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"9d1e9312-2bf5-405e-a0ab-17790e379454"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9938051862883873`*^9, {3.993805225469843*^9, + 3.993805253823063*^9}, 3.993916353615691*^9, 3.993917213914475*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"a6c309ba-ea99-43f9-b570-4530eb489804"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"b10939a9-1573-489b-83d9-15f30565fd9f"], + +Cell[BoxData["147.07396031318729`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993805186309627*^9, {3.993805225485524*^9, + 3.993805253836412*^9}, 3.993916353640667*^9, 3.99391721393421*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"246e285a-f838-44d6-a3a5-2eb0c94ee6bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"5475637e-53f4-4704-965d-21c35c53b59d"], + +Cell[BoxData[ + RowBox[{"-", "138.05974755201015`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993805186332671*^9, {3.9938052255064*^9, + 3.993805253849951*^9}, 3.993916353666204*^9, 3.993917213951054*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"ae8a14be-8beb-43b0-95bc-b96cbcea8a0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"25994c2d-f9ad-4dc7-823e-77e6d8541dd6"], + +Cell[BoxData["151.31388532518324`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9938051863549347`*^9, {3.993805225521781*^9, + 3.9938052538643007`*^9}, 3.993916353692947*^9, 3.993917213966501*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"bf6590d4-0b8b-4f9f-a7a1-cf3a692fa426"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"4d252865-1179-4f85-9591-c9a810b8f86b"], + +Cell[BoxData["0.32066933716802604`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993805186375004*^9, {3.993805225539682*^9, + 3.9938052538780746`*^9}, 3.993916353720183*^9, 3.993917213983891*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"3b4d3895-cb66-4986-9db4-0e37ab1fd7a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"430042fe-033e-475b-ba05-8207d0932b61"], + +Cell[BoxData[ + RowBox[{"-", "0.07876066759731537`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993805186395523*^9, {3.993805225554823*^9, + 3.993805253891698*^9}, 3.993916353744547*^9, 3.993917213998341*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"277c0929-16e7-450d-9c63-90f492349cfe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"568a36af-0f69-4234-8a6a-01c1e128613e"], + +Cell[BoxData[ + RowBox[{"-", "0.5970148797225691`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9938051864158077`*^9, {3.9938052255692043`*^9, + 3.993805253905455*^9}, 3.993916353768426*^9, 3.9939172140165987`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"78a1f16c-a75e-4c6c-bf3b-568725bde9a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"f5d289b3-78a1-4bd9-a305-1cce5d3d20c5"], + +Cell[BoxData["0.6876077696425691`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.993805186435895*^9, {3.993805225584848*^9, + 3.9938052539190693`*^9}, 3.993916353793048*^9, 3.993917214032737*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"c1de942c-2632-4d64-83ef-65977e76a7aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"0b5bcc88-7423-4eed-8db8-34209a93041c"], + +Cell[BoxData["2.7212678798402736`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993805186459119*^9, {3.993805225601059*^9, + 3.9938052539329557`*^9}, 3.993916353817293*^9, 3.993917214051476*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"1f4dd7c5-f878-4a8b-b4f6-0aa1063a9689"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"79a62cc2-d651-4b22-8c77-185add981589"], + +Cell[BoxData["1.517413176238712`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993805186481224*^9, {3.993805225615499*^9, + 3.9938052539461823`*^9}, 3.993916353823238*^9, 3.9939172140707207`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"f88a0cbd-4136-47a8-97b2-67391f505be4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"eb19dd57-3778-48d7-a485-68eafebaad2a"], + +Cell[BoxData[ + RowBox[{"-", "35.37905990838884`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993805186500906*^9, {3.993805225630805*^9, + 3.9938052539603987`*^9}, 3.9939163538577957`*^9, 3.993917214090477*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"ceed2fac-538c-415f-86f9-2f29fdeb6db3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"020fd507-fcc8-4d3e-b594-564bda4472ef"], + +Cell[BoxData[ + RowBox[{"-", "7.518677963606449`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.9938051865278683`*^9, {3.9938052256462593`*^9, + 3.9938052540033293`*^9}, 3.9939163538870287`*^9, 3.9939172141054087`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"a532c9b6-4708-418d-b7c1-0d36bf6a3a92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"bc5ff6a5-eaec-4bc3-9c96-6a292bed6277"], + +Cell[BoxData["111.69490040479845`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993805186549179*^9, {3.99380522566187*^9, + 3.9938052540195704`*^9}, 3.993916353911763*^9, 3.993917214126725*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"077afad2-67b8-441f-8cc6-5058df52eb51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"d1b09db9-bcc2-4a81-8989-8b0f463dd1c8"], + +Cell[BoxData[ + RowBox[{"-", "138.05974755201015`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993805186570223*^9, {3.993805225677956*^9, + 3.993805254035548*^9}, 3.993916353937284*^9, 3.993917214136561*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"941fd80e-511f-4938-8870-c6eff3e40b7d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"353417e1-66c0-4e43-b76d-27ea20de6580"], + +Cell[BoxData["143.7952073615768`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993805186590909*^9, {3.993805225694096*^9, + 3.993805254049733*^9}, 3.993916353962906*^9, 3.9939172141560297`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"49257e74-f120-4829-8b2c-b1b0c97357e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"c7ef8f85-cc0f-4669-9c7c-3bf6a947fa14"], + +Cell[BoxData["27.73706386208056`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993805186610568*^9, {3.993805225710843*^9, + 3.99380525406491*^9}, 3.99391635399086*^9, 3.993917214176351*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"a3fa4ff1-abd4-44eb-8979-71800cedbb73"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"07a8cf72-c3aa-49d4-95d3-0a98a0346202"], + +Cell[BoxData["878.9837204382463`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9938051866294127`*^9, {3.99380522572875*^9, + 3.9938052540809603`*^9}, 3.9939163540160513`*^9, 3.993917214190441*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"98263a5a-ff6b-4bd9-b4d8-4c7e8cc8a351"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.52257"}]], "Input", + CellChangeTimes->{ + 3.9918505481678543`*^9, {3.993916870491111*^9, 3.993916872958112*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], + +Cell[BoxData["0.52257`"], "Output", + CellChangeTimes->{3.993917214204297*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"f02d8019-4bcb-4485-8a0b-b97197906ded"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991850549355442*^9, 3.991850549360302*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.15112"}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9, {3.993916876022457*^9, 3.993916899986267*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], + +Cell[BoxData["0.15112`"], "Output", + CellChangeTimes->{3.993917214233943*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"1d87f0e6-d5fd-4c7b-a829-9bff29b465e6"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, 3.991850552447544*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ @@ -83,9 +4816,12 @@ Cell[BoxData[ RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], - ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + ")"}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[BoxData["1.6893390031074366`*^-53"], "Output", + CellChangeTimes->{3.9939172142590847`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"7311e592-7f7c-4c8b-953f-d0602f1ff582"] }, Open ]], Cell[CellGroupData[{ @@ -119,11 +4855,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ -a9b137c5e3b6"], + CellChangeTimes->{3.9915577064670105`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[BoxData["1.1595678613227591`*^-54"], "Output", + CellChangeTimes->{3.9939172142770653`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"6764c3cd-4aa3-4644-881c-287f20435176"] }, Open ]], Cell[CellGroupData[{ @@ -156,11 +4893,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557709328657*^9, - 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ -8010347227f7"], + CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[BoxData["7.444900108011117`*^-55"], "Output", + CellChangeTimes->{3.9939172142973337`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"48f67153-de5c-463c-8fe7-02288fa1e902"] }, Open ]], Cell[CellGroupData[{ @@ -182,10 +4920,12 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ih", "*", "Ir"}], - RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ -e247-a132-b43b2736212a"], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[BoxData["10.348339875065527`"], "Output", + CellChangeTimes->{3.9939172143143387`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"df3b59fe-1e9e-4ce7-ba96-7bcaf167d94b"] }, Open ]], Cell[CellGroupData[{ @@ -210,10 +4950,12 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", - RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ -ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[BoxData["30.747061005361218`"], "Output", + CellChangeTimes->{3.993917214327837*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"2940f7d1-a8aa-488c-885e-20ee13e9e412"] }, Open ]], Cell[CellGroupData[{ @@ -221,10 +4963,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ -88a4-7c75445a4f32"], + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[BoxData["1.6371742346011993`"], "Output", + CellChangeTimes->{3.993917214342841*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"99e1de63-c8f9-4a6a-bb7e-6813d811e06b"] }, Open ]], Cell[CellGroupData[{ @@ -232,10 +4976,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ - FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ -a9f8-bc957ede9a68"], + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[BoxData["5.346734400812405`"], "Output", + CellChangeTimes->{3.993917214358734*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"c31d1cc3-5697-45ee-a547-23587011d42b"] }, Open ]], Cell[CellGroupData[{ @@ -243,10 +4989,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ - RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ -eb8f-4944-8d03-7bcd77a7b4b4"], + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[BoxData["164.3963688012425`"], "Output", + CellChangeTimes->{3.9939172143724813`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"cae37317-103a-41af-8f34-16207a84364a"] }, Open ]], Cell[CellGroupData[{ @@ -254,10 +5002,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ -08dc-e64f-8823-2a55ad6b8ca8"], + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[BoxData["16.942035414353473`"], "Output", + CellChangeTimes->{3.993917214392331*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"862134b8-73b3-4989-afdd-d3ab05c7ce46"] }, Open ]], Cell[CellGroupData[{ @@ -445,10 +5195,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ -bf8f-1350d0b8a0bb"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[BoxData["0.006251423146319934`"], "Output", + CellChangeTimes->{3.993917214433219*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"b6d94c87-ac49-42ca-b90d-6c16141af07e"] }, Open ]], Cell[CellGroupData[{ @@ -460,18 +5212,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"65edd566-\ -4493-2440-9c51-9fca28ce324b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], - -Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[BoxData["11.208706375094074`"], "Output", + CellChangeTimes->{3.993917214541263*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"75e474e3-b4ca-4f3d-908e-da980c67182d"] }, Open ]], Cell[CellGroupData[{ @@ -661,10 +5407,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ -afec-31463f4946cd"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[BoxData["0.05654178964775392`"], "Output", + CellChangeTimes->{3.993917214563641*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"3dc70ec2-215a-4f21-939b-dabac336d15c"] }, Open ]], Cell[CellGroupData[{ @@ -676,18 +5424,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"56b1717f-\ -bc75-4047-98f0-7a0dede3f8a9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], - -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[BoxData["3.727006630675174`"], "Output", + CellChangeTimes->{3.9939172146781607`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"a872354d-2c93-48b7-8da8-54036547c48d"] }, Open ]], Cell[CellGroupData[{ @@ -778,10 +5520,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ -f74418e31aeb"], + ")"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[BoxData["0.06727285695077176`"], "Output", + CellChangeTimes->{3.993917214696583*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"512265f3-91f1-4346-901c-b538a49923df"] }, Open ]], Cell[CellGroupData[{ @@ -869,10 +5613,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ -91d5391478d5"], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[BoxData["0.9327271430492282`"], "Output", + CellChangeTimes->{3.993917214719043*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"fe3ce672-ccb4-4bf7-9a9c-7f24a2caff11"] }, Open ]], Cell[CellGroupData[{ @@ -993,16 +5739,18 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ -ef4e-9454-9d4e027f5fa2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +Cell[BoxData["0.06274721966845274`"], "Output", + CellChangeTimes->{3.993917214774843*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"8516c38d-9fea-4681-baec-1c523c7e805b"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ -2048-8697-fe84d79611fa"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ @@ -1063,27 +5811,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\ -3d78ebb0f21b"], + CellChangeTimes->{3.9918505674491863`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.37244063466745`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 92, 89, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939172148101788`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"45f38d5c-4d57-4aba-b720-c5e2b1485385"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"42c1a263-2456-664a-bb33-c5fe841cb412"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.173302370884821`*^-221\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 90, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993917214835353*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"201de3be-c832-4328-9901-6a6259b41906"], -Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3623727259240898`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 92, 91, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993917214842332*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"66dc004c-38c3-4c12-88d7-4418be153dfe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 92, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939172148486032`*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"59f31497-11a2-4935-be41-eb7e8b849e9a"], + +Cell[BoxData["11.208706375094078`"], "Output", + CellChangeTimes->{3.993917219191399*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"1427cc28-bd38-4c1b-b1d8-a68b90bf39e5"] }, Open ]], Cell[CellGroupData[{ @@ -1145,26 +5936,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], + CellChangeTimes->{3.99185057022003*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"be4d7bfb-c18e-564a-93ce-3f42607886e7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.37244063466745`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 93, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993917219312771*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"da78e6d2-bb22-4ef0-90a3-2bc1c930a648"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.173302370884821`*^-221\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 94, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993917219320662*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"23d5f58e-76d2-4405-b0fe-772b6dddbb1e"], -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3623727259240898`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 93, 95, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939172193314257`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"15ded9d7-6f22-469e-b651-a8b95aae31fc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 96, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993917219341755*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"6d7530eb-c8ef-4bcd-a163-2a3d14129fc1"], + +Cell[BoxData["3.727006630675176`"], "Output", + CellChangeTimes->{3.993917224313559*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"8290afbc-00be-494c-8cdf-d525665d4d75"] }, Open ]], Cell[CellGroupData[{ @@ -1220,415 +6055,395 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\ -12d8b19f0936"], + CellChangeTimes->{3.9918505747312756`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d3cb6fbc-3803-0541-80d1-8cab47341c44"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d8687e0f-2f42-0543-a749-78a1ff3c9572"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -2.67879 2.97603 [ -[.15608 .28474 -6 -9 ] -[.15608 .28474 6 0 ] -[.28836 .28474 -6 -9 ] -[.28836 .28474 6 0 ] -[.42063 .28474 -6 -9 ] -[.42063 .28474 6 0 ] -[.55291 .28474 -9 -9 ] -[.55291 .28474 9 0 ] -[.68519 .28474 -9 -9 ] -[.68519 .28474 9 0 ] -[.81746 .28474 -9 -9 ] -[.81746 .28474 9 0 ] -[.94974 .28474 -9 -9 ] -[.94974 .28474 9 0 ] -[.01131 .14844 -24 -4.5 ] -[.01131 .14844 0 4.5 ] -[.01131 .44604 -24 -4.5 ] -[.01131 .44604 0 4.5 ] -[.01131 .59484 -18 -4.5 ] -[.01131 .59484 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .29724 m -.15608 .30349 L -s -[(25)] .15608 .28474 0 1 Mshowa -.28836 .29724 m -.28836 .30349 L -s -[(50)] .28836 .28474 0 1 Mshowa -.42063 .29724 m -.42063 .30349 L -s -[(75)] .42063 .28474 0 1 Mshowa -.55291 .29724 m -.55291 .30349 L -s -[(100)] .55291 .28474 0 1 Mshowa -.68519 .29724 m -.68519 .30349 L -s -[(125)] .68519 .28474 0 1 Mshowa -.81746 .29724 m -.81746 .30349 L -s -[(150)] .81746 .28474 0 1 Mshowa -.94974 .29724 m -.94974 .30349 L -s -[(175)] .94974 .28474 0 1 Mshowa -.125 Mabswid -.05026 .29724 m -.05026 .30099 L -s -.07672 .29724 m -.07672 .30099 L -s -.10317 .29724 m -.10317 .30099 L -s -.12963 .29724 m -.12963 .30099 L -s -.18254 .29724 m -.18254 .30099 L -s -.20899 .29724 m -.20899 .30099 L -s -.23545 .29724 m -.23545 .30099 L -s -.2619 .29724 m -.2619 .30099 L -s -.31481 .29724 m -.31481 .30099 L -s -.34127 .29724 m -.34127 .30099 L -s -.36772 .29724 m -.36772 .30099 L -s -.39418 .29724 m -.39418 .30099 L -s -.44709 .29724 m -.44709 .30099 L -s -.47354 .29724 m -.47354 .30099 L -s -.5 .29724 m -.5 .30099 L -s -.52646 .29724 m -.52646 .30099 L -s -.57937 .29724 m -.57937 .30099 L -s -.60582 .29724 m -.60582 .30099 L -s -.63228 .29724 m -.63228 .30099 L -s -.65873 .29724 m -.65873 .30099 L -s -.71164 .29724 m -.71164 .30099 L -s -.7381 .29724 m -.7381 .30099 L -s -.76455 .29724 m -.76455 .30099 L -s -.79101 .29724 m -.79101 .30099 L -s -.84392 .29724 m -.84392 .30099 L -s -.87037 .29724 m -.87037 .30099 L -s -.89683 .29724 m -.89683 .30099 L -s -.92328 .29724 m -.92328 .30099 L -s -.97619 .29724 m -.97619 .30099 L -s -.25 Mabswid -0 .29724 m -1 .29724 L -s -.02381 .14844 m -.03006 .14844 L -s -[(0.95)] .01131 .14844 1 0 Mshowa -.02381 .44604 m -.03006 .44604 L -s -[(1.05)] .01131 .44604 1 0 Mshowa -.02381 .59484 m -.03006 .59484 L -s -[(1.1)] .01131 .59484 1 0 Mshowa -.125 Mabswid -.02381 .02939 m -.02756 .02939 L -s -.02381 .05915 m -.02756 .05915 L -s -.02381 .08892 m -.02756 .08892 L -s -.02381 .11868 m -.02756 .11868 L -s -.02381 .1782 m -.02756 .1782 L -s -.02381 .20796 m -.02756 .20796 L -s -.02381 .23772 m -.02756 .23772 L -s -.02381 .26748 m -.02756 .26748 L -s -.02381 .327 m -.02756 .327 L -s -.02381 .35676 m -.02756 .35676 L -s -.02381 .38652 m -.02756 .38652 L -s -.02381 .41628 m -.02756 .41628 L -s -.02381 .4758 m -.02756 .4758 L -s -.02381 .50556 m -.02756 .50556 L -s -.02381 .53532 m -.02756 .53532 L -s -.02381 .56508 m -.02756 .56508 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.02499 .01472 L -.02605 .01472 L -.02729 .01473 L -.02846 .01474 L -.03053 .01478 L -.03279 .01482 L -.03527 .01489 L -.0379 .01499 L -.04262 .0152 L -.04749 .01548 L -.05205 .0158 L -.06244 .01675 L -.07305 .01801 L -.08274 .01944 L -.10458 .02358 L -.12357 .02821 L -.14429 .03435 L -.18493 .04963 L -.22406 .06826 L -.26565 .09204 L -.30571 .11858 L -.34426 .14717 L -.38527 .1805 L -.42475 .215 L -.46273 .24996 L -.50315 .28853 L -.54206 .3264 L -.58342 .36674 L -.62326 .40497 L -.66159 .44044 L -.70238 .47601 L -.74164 .50741 L -.77939 .53432 L -.8196 .55879 L -.85828 .57771 L -.87793 .58543 L -.89942 .59234 L -.91995 .59741 L -.92911 .59917 L -.93905 .60073 L -.94426 .60141 L -.94906 .60194 L -.95356 .60236 L -.95851 .60273 L -.96295 .60299 L -.9671 .60316 L -.96939 .60323 L -.97148 .60328 L -.97264 .6033 L -Mistroke -.9739 .60331 L -.97509 .60332 L -.97619 .60332 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo -jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq -so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp -0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq -747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr -D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41 -yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3 -k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA -s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr -8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC -HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB -K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho -Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi -Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7 -0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk -R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO -nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX -zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM -oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw -QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8 -cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha -oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj -I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB -MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk -hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh -jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr -BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA -JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV -ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l -jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl -hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR -iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj -/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev -9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr -wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c -vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc -Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05 -x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN -QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C -aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2 -JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+ -Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff -A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt -TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6 -JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I -buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr -sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO -yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu -TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx -uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx -1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST -SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy -lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X -pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm -Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y -TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9 -YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-19.394, 0.892147, 0.709611, \ -0.0012616}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\ -c578eb57eb6a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk8FV0YB/BrTbYs2VPWepHStYvOgyv7vkQirjtDWmRJKusb2iSkxZtS +QpJsabGmkoSiaC8hS43dVGh9jz/mM5/v55l5zu+cM3OU2WFuBDeDwRjH18I9 +/OmaVbe7nm4wyn29qEGHQhsmCvTZrFK0PSVCa8F9eQbZaqx6VNttdnrBLpwn +/MK6D5FhqolNI3ZlTMIDPlYHUj0XYn4X+0iLbFNCyTPEEmtNasKu6Qq/8Iv5 +Ap0b8F58H5t62xa7r+41ShJVeP0AW35I1fe75Xt0+4ToxENs+8lY48iOj8go +UNe+FbvxFyUUU9KPouOOTLZhv0ySOXBr1yek2Sv27gn2BD+L+socQm6xj0We +YfOn7fbRnR1G+1xuHOrBXi5+vjW87jNiuj21eY3tpPC9aMJyDPnXnrnYh01e +VJHWFphA88IbDYewE9SdU7Z3TKL/CHUpCvu1TM+6qJJpxPsjuugrNmdz6LaT +aTPo3rIvPj+wp3IZl6p20chBMs2DsY5CAiraYtPMb8jDgrNCBDub88BaTOo7 +IrbkTEpiK13xSVg7+x0dFPnLr4BttDp1YmfdHGqY8hXSxA4x+NhBWf5CkTU+ +ofbYX2P28Aqu/I2upYtHeWAn1gmZagj8QYmB881+2GfB6Fpwx1/0tsjbNByb +U9jKiijhggw596Rz2CUtJ/uSFLjB0O5wcxH21Ih/bGYaN6RXjzlVYcdqfrtR +sYsHfj2yMG5byFuurDrJ5IOgRiXOb+y3XWONfy7zwdbTHX2CTJx/5vZmUSl+ +uFNTVCCLXarnlKU9yw/r/Ye49LGba/Zz7agTAC3/wxLh2N8edH/8bCkMOxhW +ad+xJRyExQ40CkN2rTGXoC6FdHpYIGIsAm7BPY8VsUMHb15ct0YU3t354bkR +ezd3h46ZsBikjvNuPoc9pFI2nfJdHE5KvBXz1MPrQ7Yt7tSVANl34k07sbmv +DSvLhktAZuno/VRsJd0VbiWjEiDgnPygBnuzZUbV0z5JiL1gXqGqT6HOoIhI +mXYp2FR51XCRAYV6r6QfCxCQhj0DvUrq2GOjJZevWklDtXmlnyW2YNSn7vVN +0vCIufp5IjYr2UMv4KYM7DUPL/qLXVtg8K04Tw4M/4z8FDaiUMHQj2iTKEVI +zu7ZRJpQyMbzUG/kdUWYiSznTcMea5bceH1YEXacIn5UYusVrJZS8lkO65XZ +TX+wm9n+N/g2rAD3lsxb59ZTaGayb+/ng0pwVT7K/pMphSR3sqpvOKqA6bag +pVcRhYYLBENcQlWgN/3ju1fYd953KYynqsD7sxpj/EChLQ5+B1c2qYD9fvUR +ArtAK9oth6kKLhrlG1eZ4/GpK1PxMmrQ53r+2m0LCnkEC2nb9avDYJH74iUb +KYSiPZmbfquDKNOuywpbMyXPkCO3EqIbND/EYjMu61rEu66E9vIrraPY13t9 +N1XdWwnne5KGO6zx/+lVmiSfvwq+qa03y7XF+ViOLym2BiQ61riFOVLosvuZ +d7PxGjDg9OpFGXY6u7+P95wGNJV2XJjA5iTuGV3erQH1X024w5woJF5/nuFu +qQl/HkouiXTG34/uhGadqhZU26jBYVcKKaicSDg2uBpaDvH+HPakUP3Rrxrz +3NrgPu6/Wd8Lrwft00Mqa8O6lU+FkrEvNKtpWPhrw1aHEY7KJgqpBNc+n3ul +DTbNXybZ3ni+pUPqZPsa2GnpFUJvppCiwnJSyUcH8nkevnMNoNDqwijhn4gJ +vXb5Gbw7KMTmHPym7cSE+9wJzwKwz6pm9QZsYUJOca5PAzZPfnlFSwwTWEWn +0d6d+H+7QHlkVTKh53AIe2IXPk/PBpzXUNWFjrgcbioc7+8xhzXe/HogwCks +lI6h0KUINZebHfpQXZ5kYJVCoa5oZJhcaAyz1O4vBYUUUvZ/4eS3wwyORbbE +7W2jEPH3VpniPgBuzZYvNtMUkhm9s0iGbQEsZ4uDBkqjKErX9H2WJgsaj3UU +JruMIvb4r1ZJygpcGhjqi5NH0XWLyEV5ndbwsvlma2rTKCr4GnqvNNsWXLP7 +ZvR+j6I5c9knzQn2wON1cTYRn7MfGDzT/YGOUNhqu38+bQztWhaWkaTqDG8s ++3h8X4yhsm2tTadSXKBEgst6bNU42k/LzWptc4Uiv2lmYcw4+ma30evRVjcY +magnh7rHkbFvpvmQqzvEPHvdsHTdBHoudz60WdcD4hlp2/8cnUDyRQfri//x +BJe/uZYRkxPoTp+mg5OIF3T2KMrWO0+i5T1TwdHjXsATRDVoV0wi3VOZpZf7 +NsHIFdacn8gUOs9Lr8l64A1Vl53hKZpCt8zXvk2p8QG5fXXyAnun0FnDo+K/ +SjbDvUvJ1lnXp1Dnu8JU3TRfsBcPVk7om0I3HXPVdiduAf6qxOiDMtNoeqc7 +YxfHD3wbS3lC7abRt40aIROW/qC8PIp56cA0Kh5/MxdpsBX4xwxj58unkfel +wiA/4QAwtJ2BIx+n0Y0q+608hwJAtEGBESg+g4wVns8fmQ+AuPnGDq4NM0i1 +L/jts22BoMk141sePIMGhbY7534KhDG/ZxcssmZQV7pTkLUnG0aO7hk0uz2D +smPyhPZ0saH0ZVgR9/sZVN/4dz7INgj+bY6cjvk1g5ZsgUO6tUFwyUnckyVD +I6WljzqX1QdBxlbnzgpsnQ5HWf7GILDKd+NXlKWRm6nv1df3ggAJ7Cj5ip29 +LLo97nEQ3NSzfHxRnkbyH64taX0dBLpehMeYIo3U/GXObpkNgoIcK2MXNRoZ +B0wUp+hx4Fj1OiUbHRoV5UxFOhlwoDmEy/E89tLumQ0yRhxQ7lMzncGesJrt +KV7PgUvPTQPPraPx+cXg6rDggHno0YcUk0ais+I+Eq4c+HE/cTxOn0aDx/UX +5+3kwKbCqMg9JjRyfWTYExzGgWXpj1/ex25kmOTphON6mfbPJetplBO5Qf9+ +FAeEqF+pV7GdfKwDhw5wQHdDydU3pjSqUfOp0TrKgdf/TEmsQTRKr4vddqeI +Axq31updsaTRTuYZ45hiPJ/TXnaj2A5XKxcblXBAJ2VQZS2LRoJnhq/evo7r +xUsVbmGnRLhQt6o54O/ev/KeFY1iNdS237zPATFasbDdmkahZ9p3VPVyIM1f +k6/Knka2osOmEX0c6FvV7j2B/U8KQ4Q5wAG/pDc7NR1oNByhf71yiAPx/ym/ +v4Qd6JQ3XjHGAc25k63HHWnkzRe5q/wHBxjLGt/6ONPIOlJ+d6k0AYKJWTfu +u9Hofl6qXZYsAfI2c2d/Ypt2zKjFyBNgd7dKV88d7796+xvL5QSUyPIdKcCW +e3XA8p06ASMuZlVJHjQaNfkgLahPwEppkTltLxqd4L7YEOxOgIlEr4KTD57/ +WuGzjp4E8M0+y43DTvaNidDdREDEKY3npdgx1S6r/m4m4PHVzz6Cm3F+kivz +NJuARfpf3t/D1m1jcx6GEzDvsfaayhYavcpUF1LNIGDbwCfTa/40KkMiIZ8z +CejeXnjzKXby+Nfm6ycJSOgaHJ3GZto2xxudISDPtz3DcCveP0bQjOMFAjTO +1dfdxd4YdvFNTCkBomuish4E0EhR8bDBhjIC/nMU7R/A/toWdpKnggDZroEx +rkAa5a9Ejuk3CMhkaZki7N8fPjRdriUgvuLJnVvY1Q4KxU9bCWh0lViVw6bR +sR/cfNltBBg6p1lXY7OLqUCfDgJ6c/jUO7HFeGsVBjsJ8Ij5LM0bRKMddd4n +5l8SsL9X/GUotqrm6Wi1IQKc16ve1eLQ6MeruO4vwwS0MoTKLLC7Ugid8s8E +COy+6+ODHd+vRxmPEfCt/d+RFOy3Z7v9nGkCil+qvX+HnbVI3Go/FwnJ4nGr +DhA0qp/54BvFQ4LQEiWhDOyRDyURu/hI0Cvt+q8A27SadZG9mATeR46NHdjD +ATE/7cRJuLt7q5QcifM7WElYSZLQyZDx0cJebyihgaRI+JL2wMYMO0Ok1EtX +joRxyymtgIV67cdKBWUSTt+z58rHJgtLW6VUSVi9zb+gcuH5jH0fl6iT4FPv +QjdhD5OSIrwaJATWtmX3LtQlrUPGdEjgdusekgqmUe0fyYRhJgnz+vkjKthD +X/pO9emRINa24dRabJOm/Q96jEiI535DW2MP7ihb3gAkSOVtaYzCFvU+oH/b +goS9mUHLE7CNLW0cKlkk/EnX0DyCnS43sK/QhoQxrzFWLvYd3vKMPDsS9skO +uxdif5o8cCXHgYS47rOiZdhGLVIvjrvgvLdVDzVisysHRg+5kRBmMc9qwT6e +W879rwcJnsf+LXuCPRBhqxPtTYJR2bXkd9gi/tLWuzfjvJ620/0L/Ww/+YVu +IUHF8/Tizwvvr4g75h9AQtAxEzN6IY+gXb43mwT2jxPecwv9vknXuHFIOM7M +XPF7oV//p04HkoST4WZZXCG4X0fF8MYQEg5zZ1fwYbNvx/2GUBI+m2XvX4x9 +PN9u6fodJGQeMZsSxr5zXEZLfxcJT71PiIthD8QMmq/dTYLt6iO9EtjCnEpv +jQgS5LI0N0lhGzrHh6lGkXBTPfKAzEJ/E/tUxWgSGBlseznsNHXZ8zIxJJgf +mmuRx74lNnRDfD8J/3TqTShg9/+sbBOKxeMZydxbttB/JL6fL56Eivw8pIht +8Nx+7m8CCZVzT7Yt+H9Zm/A6 + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk8FV0YB/BrTbYs2VPWepHStYvOgyv7vkQirjtDWmRJKusb2iSkxZtS +QpJsabGmkoSiaC8hS43dVGh9jz/mM5/v55l5zu+cM3OU2WFuBDeDwRjH18I9 +/OmaVbe7nm4wyn29qEGHQhsmCvTZrFK0PSVCa8F9eQbZaqx6VNttdnrBLpwn +/MK6D5FhqolNI3ZlTMIDPlYHUj0XYn4X+0iLbFNCyTPEEmtNasKu6Qq/8Iv5 +Ap0b8F58H5t62xa7r+41ShJVeP0AW35I1fe75Xt0+4ToxENs+8lY48iOj8go +UNe+FbvxFyUUU9KPouOOTLZhv0ySOXBr1yek2Sv27gn2BD+L+socQm6xj0We +YfOn7fbRnR1G+1xuHOrBXi5+vjW87jNiuj21eY3tpPC9aMJyDPnXnrnYh01e +VJHWFphA88IbDYewE9SdU7Z3TKL/CHUpCvu1TM+6qJJpxPsjuugrNmdz6LaT +aTPo3rIvPj+wp3IZl6p20chBMs2DsY5CAiraYtPMb8jDgrNCBDub88BaTOo7 +IrbkTEpiK13xSVg7+x0dFPnLr4BttDp1YmfdHGqY8hXSxA4x+NhBWf5CkTU+ +ofbYX2P28Aqu/I2upYtHeWAn1gmZagj8QYmB881+2GfB6Fpwx1/0tsjbNByb +U9jKiijhggw596Rz2CUtJ/uSFLjB0O5wcxH21Ih/bGYaN6RXjzlVYcdqfrtR +sYsHfj2yMG5byFuurDrJ5IOgRiXOb+y3XWONfy7zwdbTHX2CTJx/5vZmUSl+ +uFNTVCCLXarnlKU9yw/r/Ye49LGba/Zz7agTAC3/wxLh2N8edH/8bCkMOxhW +ad+xJRyExQ40CkN2rTGXoC6FdHpYIGIsAm7BPY8VsUMHb15ct0YU3t354bkR +ezd3h46ZsBikjvNuPoc9pFI2nfJdHE5KvBXz1MPrQ7Yt7tSVANl34k07sbmv +DSvLhktAZuno/VRsJd0VbiWjEiDgnPygBnuzZUbV0z5JiL1gXqGqT6HOoIhI +mXYp2FR51XCRAYV6r6QfCxCQhj0DvUrq2GOjJZevWklDtXmlnyW2YNSn7vVN +0vCIufp5IjYr2UMv4KYM7DUPL/qLXVtg8K04Tw4M/4z8FDaiUMHQj2iTKEVI +zu7ZRJpQyMbzUG/kdUWYiSznTcMea5bceH1YEXacIn5UYusVrJZS8lkO65XZ +TX+wm9n+N/g2rAD3lsxb59ZTaGayb+/ng0pwVT7K/pMphSR3sqpvOKqA6bag +pVcRhYYLBENcQlWgN/3ju1fYd953KYynqsD7sxpj/EChLQ5+B1c2qYD9fvUR +ArtAK9oth6kKLhrlG1eZ4/GpK1PxMmrQ53r+2m0LCnkEC2nb9avDYJH74iUb +KYSiPZmbfquDKNOuywpbMyXPkCO3EqIbND/EYjMu61rEu66E9vIrraPY13t9 +N1XdWwnne5KGO6zx/+lVmiSfvwq+qa03y7XF+ViOLym2BiQ61riFOVLosvuZ +d7PxGjDg9OpFGXY6u7+P95wGNJV2XJjA5iTuGV3erQH1X024w5woJF5/nuFu +qQl/HkouiXTG34/uhGadqhZU26jBYVcKKaicSDg2uBpaDvH+HPakUP3Rrxrz +3NrgPu6/Wd8Lrwft00Mqa8O6lU+FkrEvNKtpWPhrw1aHEY7KJgqpBNc+n3ul +DTbNXybZ3ni+pUPqZPsa2GnpFUJvppCiwnJSyUcH8nkevnMNoNDqwijhn4gJ +vXb5Gbw7KMTmHPym7cSE+9wJzwKwz6pm9QZsYUJOca5PAzZPfnlFSwwTWEWn +0d6d+H+7QHlkVTKh53AIe2IXPk/PBpzXUNWFjrgcbioc7+8xhzXe/HogwCks +lI6h0KUINZebHfpQXZ5kYJVCoa5oZJhcaAyz1O4vBYUUUvZ/4eS3wwyORbbE +7W2jEPH3VpniPgBuzZYvNtMUkhm9s0iGbQEsZ4uDBkqjKErX9H2WJgsaj3UU +JruMIvb4r1ZJygpcGhjqi5NH0XWLyEV5ndbwsvlma2rTKCr4GnqvNNsWXLP7 +ZvR+j6I5c9knzQn2wON1cTYRn7MfGDzT/YGOUNhqu38+bQztWhaWkaTqDG8s ++3h8X4yhsm2tTadSXKBEgst6bNU42k/LzWptc4Uiv2lmYcw4+ma30evRVjcY +magnh7rHkbFvpvmQqzvEPHvdsHTdBHoudz60WdcD4hlp2/8cnUDyRQfri//x +BJe/uZYRkxPoTp+mg5OIF3T2KMrWO0+i5T1TwdHjXsATRDVoV0wi3VOZpZf7 +NsHIFdacn8gUOs9Lr8l64A1Vl53hKZpCt8zXvk2p8QG5fXXyAnun0FnDo+K/ +SjbDvUvJ1lnXp1Dnu8JU3TRfsBcPVk7om0I3HXPVdiduAf6qxOiDMtNoeqc7 +YxfHD3wbS3lC7abRt40aIROW/qC8PIp56cA0Kh5/MxdpsBX4xwxj58unkfel +wiA/4QAwtJ2BIx+n0Y0q+608hwJAtEGBESg+g4wVns8fmQ+AuPnGDq4NM0i1 +L/jts22BoMk141sePIMGhbY7534KhDG/ZxcssmZQV7pTkLUnG0aO7hk0uz2D +smPyhPZ0saH0ZVgR9/sZVN/4dz7INgj+bY6cjvk1g5ZsgUO6tUFwyUnckyVD +I6WljzqX1QdBxlbnzgpsnQ5HWf7GILDKd+NXlKWRm6nv1df3ggAJ7Cj5ip29 +LLo97nEQ3NSzfHxRnkbyH64taX0dBLpehMeYIo3U/GXObpkNgoIcK2MXNRoZ +B0wUp+hx4Fj1OiUbHRoV5UxFOhlwoDmEy/E89tLumQ0yRhxQ7lMzncGesJrt +KV7PgUvPTQPPraPx+cXg6rDggHno0YcUk0ais+I+Eq4c+HE/cTxOn0aDx/UX +5+3kwKbCqMg9JjRyfWTYExzGgWXpj1/ex25kmOTphON6mfbPJetplBO5Qf9+ +FAeEqF+pV7GdfKwDhw5wQHdDydU3pjSqUfOp0TrKgdf/TEmsQTRKr4vddqeI +Axq31updsaTRTuYZ45hiPJ/TXnaj2A5XKxcblXBAJ2VQZS2LRoJnhq/evo7r +xUsVbmGnRLhQt6o54O/ev/KeFY1iNdS237zPATFasbDdmkahZ9p3VPVyIM1f +k6/Knka2osOmEX0c6FvV7j2B/U8KQ4Q5wAG/pDc7NR1oNByhf71yiAPx/ym/ +v4Qd6JQ3XjHGAc25k63HHWnkzRe5q/wHBxjLGt/6ONPIOlJ+d6k0AYKJWTfu +u9Hofl6qXZYsAfI2c2d/Ypt2zKjFyBNgd7dKV88d7796+xvL5QSUyPIdKcCW +e3XA8p06ASMuZlVJHjQaNfkgLahPwEppkTltLxqd4L7YEOxOgIlEr4KTD57/ +WuGzjp4E8M0+y43DTvaNidDdREDEKY3npdgx1S6r/m4m4PHVzz6Cm3F+kivz +NJuARfpf3t/D1m1jcx6GEzDvsfaayhYavcpUF1LNIGDbwCfTa/40KkMiIZ8z +CejeXnjzKXby+Nfm6ycJSOgaHJ3GZto2xxudISDPtz3DcCveP0bQjOMFAjTO +1dfdxd4YdvFNTCkBomuish4E0EhR8bDBhjIC/nMU7R/A/toWdpKnggDZroEx +rkAa5a9Ejuk3CMhkaZki7N8fPjRdriUgvuLJnVvY1Q4KxU9bCWh0lViVw6bR +sR/cfNltBBg6p1lXY7OLqUCfDgJ6c/jUO7HFeGsVBjsJ8Ij5LM0bRKMddd4n +5l8SsL9X/GUotqrm6Wi1IQKc16ve1eLQ6MeruO4vwwS0MoTKLLC7Ugid8s8E +COy+6+ODHd+vRxmPEfCt/d+RFOy3Z7v9nGkCil+qvX+HnbVI3Go/FwnJ4nGr +DhA0qp/54BvFQ4LQEiWhDOyRDyURu/hI0Cvt+q8A27SadZG9mATeR46NHdjD +ATE/7cRJuLt7q5QcifM7WElYSZLQyZDx0cJebyihgaRI+JL2wMYMO0Ok1EtX +joRxyymtgIV67cdKBWUSTt+z58rHJgtLW6VUSVi9zb+gcuH5jH0fl6iT4FPv +QjdhD5OSIrwaJATWtmX3LtQlrUPGdEjgdusekgqmUe0fyYRhJgnz+vkjKthD +X/pO9emRINa24dRabJOm/Q96jEiI535DW2MP7ihb3gAkSOVtaYzCFvU+oH/b +goS9mUHLE7CNLW0cKlkk/EnX0DyCnS43sK/QhoQxrzFWLvYd3vKMPDsS9skO +uxdif5o8cCXHgYS47rOiZdhGLVIvjrvgvLdVDzVisysHRg+5kRBmMc9qwT6e +W879rwcJnsf+LXuCPRBhqxPtTYJR2bXkd9gi/tLWuzfjvJ620/0L/Ww/+YVu +IUHF8/Tizwvvr4g75h9AQtAxEzN6IY+gXb43mwT2jxPecwv9vknXuHFIOM7M +XPF7oV//p04HkoST4WZZXCG4X0fF8MYQEg5zZ1fwYbNvx/2GUBI+m2XvX4x9 +PN9u6fodJGQeMZsSxr5zXEZLfxcJT71PiIthD8QMmq/dTYLt6iO9EtjCnEpv +jQgS5LI0N0lhGzrHh6lGkXBTPfKAzEJ/E/tUxWgSGBlseznsNHXZ8zIxJJgf +mmuRx74lNnRDfD8J/3TqTShg9/+sbBOKxeMZydxbttB/JL6fL56Eivw8pIht +8Nx+7m8CCZVzT7Yt+H9Zm/A6 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8184495118374633, + 1.2129186757079362`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8184495118374651}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.8184495118374633, + 1.2129186757079362`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8184495118374651}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk8FV0YB/BrTbYs2VPWepHStYvOgyv7vkQirjtDWmRJKusb2iSkxZtS +QpJsabGmkoSiaC8hS43dVGh9jz/mM5/v55l5zu+cM3OU2WFuBDeDwRjH18I9 +/OmaVbe7nm4wyn29qEGHQhsmCvTZrFK0PSVCa8F9eQbZaqx6VNttdnrBLpwn +/MK6D5FhqolNI3ZlTMIDPlYHUj0XYn4X+0iLbFNCyTPEEmtNasKu6Qq/8Iv5 +Ap0b8F58H5t62xa7r+41ShJVeP0AW35I1fe75Xt0+4ToxENs+8lY48iOj8go +UNe+FbvxFyUUU9KPouOOTLZhv0ySOXBr1yek2Sv27gn2BD+L+socQm6xj0We +YfOn7fbRnR1G+1xuHOrBXi5+vjW87jNiuj21eY3tpPC9aMJyDPnXnrnYh01e +VJHWFphA88IbDYewE9SdU7Z3TKL/CHUpCvu1TM+6qJJpxPsjuugrNmdz6LaT +aTPo3rIvPj+wp3IZl6p20chBMs2DsY5CAiraYtPMb8jDgrNCBDub88BaTOo7 +IrbkTEpiK13xSVg7+x0dFPnLr4BttDp1YmfdHGqY8hXSxA4x+NhBWf5CkTU+ +ofbYX2P28Aqu/I2upYtHeWAn1gmZagj8QYmB881+2GfB6Fpwx1/0tsjbNByb +U9jKiijhggw596Rz2CUtJ/uSFLjB0O5wcxH21Ih/bGYaN6RXjzlVYcdqfrtR +sYsHfj2yMG5byFuurDrJ5IOgRiXOb+y3XWONfy7zwdbTHX2CTJx/5vZmUSl+ +uFNTVCCLXarnlKU9yw/r/Ye49LGba/Zz7agTAC3/wxLh2N8edH/8bCkMOxhW +ad+xJRyExQ40CkN2rTGXoC6FdHpYIGIsAm7BPY8VsUMHb15ct0YU3t354bkR +ezd3h46ZsBikjvNuPoc9pFI2nfJdHE5KvBXz1MPrQ7Yt7tSVANl34k07sbmv +DSvLhktAZuno/VRsJd0VbiWjEiDgnPygBnuzZUbV0z5JiL1gXqGqT6HOoIhI +mXYp2FR51XCRAYV6r6QfCxCQhj0DvUrq2GOjJZevWklDtXmlnyW2YNSn7vVN +0vCIufp5IjYr2UMv4KYM7DUPL/qLXVtg8K04Tw4M/4z8FDaiUMHQj2iTKEVI +zu7ZRJpQyMbzUG/kdUWYiSznTcMea5bceH1YEXacIn5UYusVrJZS8lkO65XZ +TX+wm9n+N/g2rAD3lsxb59ZTaGayb+/ng0pwVT7K/pMphSR3sqpvOKqA6bag +pVcRhYYLBENcQlWgN/3ju1fYd953KYynqsD7sxpj/EChLQ5+B1c2qYD9fvUR +ArtAK9oth6kKLhrlG1eZ4/GpK1PxMmrQ53r+2m0LCnkEC2nb9avDYJH74iUb +KYSiPZmbfquDKNOuywpbMyXPkCO3EqIbND/EYjMu61rEu66E9vIrraPY13t9 +N1XdWwnne5KGO6zx/+lVmiSfvwq+qa03y7XF+ViOLym2BiQ61riFOVLosvuZ +d7PxGjDg9OpFGXY6u7+P95wGNJV2XJjA5iTuGV3erQH1X024w5woJF5/nuFu +qQl/HkouiXTG34/uhGadqhZU26jBYVcKKaicSDg2uBpaDvH+HPakUP3Rrxrz +3NrgPu6/Wd8Lrwft00Mqa8O6lU+FkrEvNKtpWPhrw1aHEY7KJgqpBNc+n3ul +DTbNXybZ3ni+pUPqZPsa2GnpFUJvppCiwnJSyUcH8nkevnMNoNDqwijhn4gJ +vXb5Gbw7KMTmHPym7cSE+9wJzwKwz6pm9QZsYUJOca5PAzZPfnlFSwwTWEWn +0d6d+H+7QHlkVTKh53AIe2IXPk/PBpzXUNWFjrgcbioc7+8xhzXe/HogwCks +lI6h0KUINZebHfpQXZ5kYJVCoa5oZJhcaAyz1O4vBYUUUvZ/4eS3wwyORbbE +7W2jEPH3VpniPgBuzZYvNtMUkhm9s0iGbQEsZ4uDBkqjKErX9H2WJgsaj3UU +JruMIvb4r1ZJygpcGhjqi5NH0XWLyEV5ndbwsvlma2rTKCr4GnqvNNsWXLP7 +ZvR+j6I5c9knzQn2wON1cTYRn7MfGDzT/YGOUNhqu38+bQztWhaWkaTqDG8s ++3h8X4yhsm2tTadSXKBEgst6bNU42k/LzWptc4Uiv2lmYcw4+ma30evRVjcY +magnh7rHkbFvpvmQqzvEPHvdsHTdBHoudz60WdcD4hlp2/8cnUDyRQfri//x +BJe/uZYRkxPoTp+mg5OIF3T2KMrWO0+i5T1TwdHjXsATRDVoV0wi3VOZpZf7 +NsHIFdacn8gUOs9Lr8l64A1Vl53hKZpCt8zXvk2p8QG5fXXyAnun0FnDo+K/ +SjbDvUvJ1lnXp1Dnu8JU3TRfsBcPVk7om0I3HXPVdiduAf6qxOiDMtNoeqc7 +YxfHD3wbS3lC7abRt40aIROW/qC8PIp56cA0Kh5/MxdpsBX4xwxj58unkfel +wiA/4QAwtJ2BIx+n0Y0q+608hwJAtEGBESg+g4wVns8fmQ+AuPnGDq4NM0i1 +L/jts22BoMk141sePIMGhbY7534KhDG/ZxcssmZQV7pTkLUnG0aO7hk0uz2D +smPyhPZ0saH0ZVgR9/sZVN/4dz7INgj+bY6cjvk1g5ZsgUO6tUFwyUnckyVD +I6WljzqX1QdBxlbnzgpsnQ5HWf7GILDKd+NXlKWRm6nv1df3ggAJ7Cj5ip29 +LLo97nEQ3NSzfHxRnkbyH64taX0dBLpehMeYIo3U/GXObpkNgoIcK2MXNRoZ +B0wUp+hx4Fj1OiUbHRoV5UxFOhlwoDmEy/E89tLumQ0yRhxQ7lMzncGesJrt +KV7PgUvPTQPPraPx+cXg6rDggHno0YcUk0ais+I+Eq4c+HE/cTxOn0aDx/UX +5+3kwKbCqMg9JjRyfWTYExzGgWXpj1/ex25kmOTphON6mfbPJetplBO5Qf9+ +FAeEqF+pV7GdfKwDhw5wQHdDydU3pjSqUfOp0TrKgdf/TEmsQTRKr4vddqeI +Axq31updsaTRTuYZ45hiPJ/TXnaj2A5XKxcblXBAJ2VQZS2LRoJnhq/evo7r +xUsVbmGnRLhQt6o54O/ev/KeFY1iNdS237zPATFasbDdmkahZ9p3VPVyIM1f +k6/Knka2osOmEX0c6FvV7j2B/U8KQ4Q5wAG/pDc7NR1oNByhf71yiAPx/ym/ +v4Qd6JQ3XjHGAc25k63HHWnkzRe5q/wHBxjLGt/6ONPIOlJ+d6k0AYKJWTfu +u9Hofl6qXZYsAfI2c2d/Ypt2zKjFyBNgd7dKV88d7796+xvL5QSUyPIdKcCW +e3XA8p06ASMuZlVJHjQaNfkgLahPwEppkTltLxqd4L7YEOxOgIlEr4KTD57/ +WuGzjp4E8M0+y43DTvaNidDdREDEKY3npdgx1S6r/m4m4PHVzz6Cm3F+kivz +NJuARfpf3t/D1m1jcx6GEzDvsfaayhYavcpUF1LNIGDbwCfTa/40KkMiIZ8z +CejeXnjzKXby+Nfm6ycJSOgaHJ3GZto2xxudISDPtz3DcCveP0bQjOMFAjTO +1dfdxd4YdvFNTCkBomuish4E0EhR8bDBhjIC/nMU7R/A/toWdpKnggDZroEx +rkAa5a9Ejuk3CMhkaZki7N8fPjRdriUgvuLJnVvY1Q4KxU9bCWh0lViVw6bR +sR/cfNltBBg6p1lXY7OLqUCfDgJ6c/jUO7HFeGsVBjsJ8Ij5LM0bRKMddd4n +5l8SsL9X/GUotqrm6Wi1IQKc16ve1eLQ6MeruO4vwwS0MoTKLLC7Ugid8s8E +COy+6+ODHd+vRxmPEfCt/d+RFOy3Z7v9nGkCil+qvX+HnbVI3Go/FwnJ4nGr +DhA0qp/54BvFQ4LQEiWhDOyRDyURu/hI0Cvt+q8A27SadZG9mATeR46NHdjD +ATE/7cRJuLt7q5QcifM7WElYSZLQyZDx0cJebyihgaRI+JL2wMYMO0Ok1EtX +joRxyymtgIV67cdKBWUSTt+z58rHJgtLW6VUSVi9zb+gcuH5jH0fl6iT4FPv +QjdhD5OSIrwaJATWtmX3LtQlrUPGdEjgdusekgqmUe0fyYRhJgnz+vkjKthD +X/pO9emRINa24dRabJOm/Q96jEiI535DW2MP7ihb3gAkSOVtaYzCFvU+oH/b +goS9mUHLE7CNLW0cKlkk/EnX0DyCnS43sK/QhoQxrzFWLvYd3vKMPDsS9skO +uxdif5o8cCXHgYS47rOiZdhGLVIvjrvgvLdVDzVisysHRg+5kRBmMc9qwT6e +W879rwcJnsf+LXuCPRBhqxPtTYJR2bXkd9gi/tLWuzfjvJ620/0L/Ww/+YVu +IUHF8/Tizwvvr4g75h9AQtAxEzN6IY+gXb43mwT2jxPecwv9vknXuHFIOM7M +XPF7oV//p04HkoST4WZZXCG4X0fF8MYQEg5zZ1fwYbNvx/2GUBI+m2XvX4x9 +PN9u6fodJGQeMZsSxr5zXEZLfxcJT71PiIthD8QMmq/dTYLt6iO9EtjCnEpv +jQgS5LI0N0lhGzrHh6lGkXBTPfKAzEJ/E/tUxWgSGBlseznsNHXZ8zIxJJgf +mmuRx74lNnRDfD8J/3TqTShg9/+sbBOKxeMZydxbttB/JL6fL56Eivw8pIht +8Nx+7m8CCZVzT7Yt+H9Zm/A6 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8184495118374633, 1.2129186757079362`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8184495118374651}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.8184495118374651}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8184495118374633, 1.2129186757079362`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993917578284711*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"012431b6-3428-4b2c-a75f-2205b2f51992"] }, Open ]], Cell[CellGroupData[{ @@ -1691,420 +6506,1321 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\ -562f8b3faecd"], + CellChangeTimes->{3.9918505781608486`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4237548595554106`*^-269\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 97, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99391757843882*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"f73048da-3b0d-496b-b22d-7945b156e033"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"a2ecd22c-b766-5347-9e03-9d459620be75"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.279301939460219`*^-281\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 98, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993917578445744*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"8b62c887-f195-4c6d-9f64-39e1119aa7ff"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5476644473521083`*^-292\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 99, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993917578451972*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"64faf003-6650-419e-ad57-d229ca86a888"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 6.72103 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .14914 -24 -4.5 ] -[.01131 .14914 0 4.5 ] -[.01131 .28356 -24 -4.5 ] -[.01131 .28356 0 4.5 ] -[.01131 .41798 -24 -4.5 ] -[.01131 .41798 0 4.5 ] -[.01131 .5524 -24 -4.5 ] -[.01131 .5524 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .14914 m -.03006 .14914 L -s -[(0.02)] .01131 .14914 1 0 Mshowa -.02381 .28356 m -.03006 .28356 L -s -[(0.04)] .01131 .28356 1 0 Mshowa -.02381 .41798 m -.03006 .41798 L -s -[(0.06)] .01131 .41798 1 0 Mshowa -.02381 .5524 m -.03006 .5524 L -s -[(0.08)] .01131 .5524 1 0 Mshowa -.125 Mabswid -.02381 .04832 m -.02756 .04832 L -s -.02381 .08193 m -.02756 .08193 L -s -.02381 .11553 m -.02756 .11553 L -s -.02381 .18274 m -.02756 .18274 L -s -.02381 .21635 m -.02756 .21635 L -s -.02381 .24995 m -.02756 .24995 L -s -.02381 .31716 m -.02756 .31716 L -s -.02381 .35077 m -.02756 .35077 L -s -.02381 .38437 m -.02756 .38437 L -s -.02381 .45158 m -.02756 .45158 L -s -.02381 .48519 m -.02756 .48519 L -s -.02381 .51879 m -.02756 .51879 L -s -.02381 .586 m -.02756 .586 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .18263 L -.10458 .34796 L -.12507 .41668 L -.14415 .47199 L -.16371 .51906 L -.18221 .55405 L -.192 .56876 L -.20263 .58172 L -.21228 .59082 L -.2212 .59698 L -.22586 .59936 L -.22843 .60043 L -.23087 .60129 L -.23313 .60195 L -.2356 .60252 L -.23669 .60272 L -.23784 .6029 L -.23886 .60304 L -.23993 .60315 L -.24059 .6032 L -.24132 .60325 L -.2426 .60331 L -.24332 .60332 L -.2441 .60332 L -.24483 .6033 L -.2455 .60328 L -.24679 .6032 L -.24752 .60314 L -.24819 .60307 L -.25074 .60272 L -.253 .60228 L -.2555 .60165 L -.26055 .59995 L -.26547 .59774 L -.27064 .59486 L -.2799 .58832 L -.30075 .56765 L -.3205 .54159 L -.33886 .51282 L -.37791 .44198 L -.41941 .36071 L -.45939 .28487 L -.49785 .21945 L -.53877 .16105 L -.57818 .1166 L -.61606 .08416 L -.63714 .07001 L -.6564 .05921 L -.69523 .04269 L -Mistroke -.71425 .03672 L -.73499 .0315 L -.7547 .02757 L -.77569 .0243 L -.79714 .02174 L -.81732 .01991 L -.83744 .01853 L -.85592 .01756 L -.87479 .01681 L -.89546 .0162 L -.91501 .01578 L -.93594 .01545 L -.95662 .01522 L -.97619 .01507 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL -SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870 -7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7 -7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN -39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ -15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ -G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/ -Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY -xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj -jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt -rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM -S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd -UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31 -EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW -Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ -stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav -AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5 -z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0 -PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J -2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M -llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ -bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk -VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ -uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47 -6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL -8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ -M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC -vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q -4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL -kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY -ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp -htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE -ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y -LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S -7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC -o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1 -9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8 -f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu -gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf -Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg -vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl -XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN -fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq -F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G -9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K -p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB -PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7 -gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl -swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd -c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe -6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm -6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V -+koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg -kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj -lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV -nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm -sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9 -Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm -Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-3.23234, -0.00806918, 0.118269, \ -0.000558628}},ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 95, 100, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993917578458177*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"26c82e76-4bc0-4955-bd8c-8bbdbe1fe424"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ -04dec8739bf5"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13lYDe8XAPCUKClU2rTcO9XN0kKltNzOSdqJ0r5TUVolWmlTsiUVytYi +hZY7QyJFKVSWhCihECJKaUHx9Xt/8888n2f+OGfeOee877A3hzsE8PORawYf +3//vk71td1QOlpi4zDTsNY9Ak86zMrGm3Snw/JunWNZiRcCFjzfLdGeDpOiP +JbaLNWHXhktdAt3FIOqiX6+w2AQWDEtn/+66DHEHC6VfqdlBX71d+HhXE1xR +/rpgjpo3WKgMvhntegqfs0rG3yuHwe8u/WMjXe8h4r9kjqv0Hmg2Kyt5UjwG +uuc7/7ixj4B8X+2nzep/ocrLEjhvjoNkiM+l2WYC2C08KZdz4wxkr7Cos3MS +Qq/Q+j0xvsXwMm954+h8UUx7mlafsO08HCxJfMwvuwB5utOP6wMvgHRu//6c +MxIocDNJ+xx/Ocgsu7r3V6kEhmv+yK8QKQe5pvREL1oCO8b5f9OS5aA4smSn +WrMEFqzYlX+JUw6qayN86z5LoP56lTWbbMpBZ+ZfvX4dSfy797b1q6xyWB8l +9UH7viR+0vpJT8lWwD5Ha5OnkwsxpUJ8kJavBLnqdjn+GVJoJhrnIK1aCVUS +jj9XiEjh01w6I1qjEl489aaPKklh5bYGd1WTSlCxj6LsraRQzWttvJ5PJTSt +K5jVkS+FGwL3f9AorIS/FhPtj4yl8VEI3+5ghSrYYVDk05Yigx03bMWnZvLA +plBs3PaQDO6YlvzgJsIDanZCRvsxGdzc77akegEPOjqdmWcXZDD+EL+oqyIP +NCPmCvS2y2AB742Wlz4PPpdGl/6Qk8Xwmr1FnoE88JS0G1p0RRZ9E2bEaN7j +gU58XfLZelk8Pqqh8/oBD+a8XyzFvieL2sFr3fc+4UEtTwA4L4mNe742v+aB +lG1t1vJ/sphbMSzDN0biJ6vomtvKYWTR6Gq9eTSs+T4VF9Yvhz/ovksHVtEQ +a5W79PY3OTSZk3552pCGqiKNHolJOcxyCxbZxqVBxtHXoFZoEWakSzAmq2n4 +dv3uTwHNRdhhOPCwxZaGnJSsqPyYRYj1m+zdvGl4v5ATdkdUHk3itwjHJdMg +Hd6gIC0tj5qSds7HUmlY2+r6KIglj1UhXZOVaTTUxB1Un6cjj9ErbXW69tNw +oG9k0M1VHqs3mJ4RzqZB+2Ld1u/F8ti3U8BxuIiGZGP7TXKrFFBPlbPlegMN +Vt5nf+ivVsCrnJIvJbdpEEv6muq0VgFlA06uy2ym4XRzWmmWrwLi3/+uubTQ +cN3mxtdZ+xVQu8lK8W47DSOuyrvGXirgNr/hiDlvaLgWFzF7wQcFNFxToXC3 +l4Y9p2/maQ4r4KdvB3kJb2mY+9alLohfEWvWTae+76dBbeshvrdLFdHpcPev +jEEavHdOHHgYr4ijFfE+pj9pUD2xWn4wTRE9Tk2l3//1//U7Ujk7SxF1eFr5 +G6ZoiPuzpGN1iSKuGMHEjX9pOJbqvbD2oSLKhz311BVg4OHRloLzCkoYeknr +2mYxBgyr8qv3NCjhleH+91EUA2u62v8OtyphbmhnaoYyA3Z8My19niqhk8Cx +5HwVBvwcwl7CRyXU9ZI/doXDgEU8OzFJkIXqM5LVWpcyEKE0ec50GQtdZxc7 +7dBmYOJKVutvLRYKftk17qnDQJzVsiFGl4XjhjcnzXQZSNvuq0eZsND6oKfa +HD0GTjbfb+W3Z2HsEq55tAEDd7YWDDXvYqGsl2V3JzBg/cdAPCGehVRtW38u +MtCe1amnm8TCoYT/3BxMGXhZK5xUsp+FFc/9M+6uZmBYJEo87TTJ7/rhqUPm +DOwoFNPnFrHwH59Q0CoLBn7pXvSYOM9CudR5Fu+IBbx7SwJ4LNSeuLVumRUD +MrSVvkUTC22FMosKbRg4s6bf4797LBze4pmtb8sA9XJ3Us0DFjb1Xp94QKzB +f6WN85yFzy6rSQ2tZWC1o4Ln7M8sXFJt93D+egZaPl9LavhGnu+f9skhXrvb +4Xz0KAs9mz23SWxgwKV03/DAFAsNEt0/itgzEPJrNKlVlI27hlam9jqQ77V9 +i9QncTY+chmZ4byRAaHBnnIBGTbu3PHqwH3i86+aX5hQbMxpE711yZGBKMdV +IZ5qbFw2VRck5UTyeVQxI06djfYtgVQice+tY+pX9dioXZx709KZgQr9OU1P +jdg4+0lSURlxHL3HZQTZeOGN+bGZLgxIFW9NWWbLxvlGXN5V4vVpBt1FPmys +Wmlye9yVAcX/KkMb/Nk4xLFexXVj4NsuSuBNEMn/t+DdFOKMQBFNmSg2PhTJ +ogTdGXB+l9i8MpaNNw69HjclVnEfd924h406ES/74okbbd+kZmaw0XPWV/4B +4sw79rIVh9m45MNeYxkPBjy596raskn82JdHLYiX1hiuGTjBxtgVlQKRxL81 +eS9nnmHjteV3s08St5Yph1PFbGxxHoBG4uOsvJlYxsY84x6RfmL//LknvSrY +aKIb8JPfkwFt8WSteIbEt9ogwCLmOzhxJ6+GjeeN/JcbErcLbHOvqSPrmbEt +0Z74dELv92eNbDzlozEaQBw84ZA2epeNhhej06OJDcNa5OY9YGMP/0JMJxYa +MKLVO9iY2/BEMZv4hQ9tbvOcjX4DccqniEu6VV5t7WFjmV6vXRFxpH1+RFof +G08o3C8qIcb7orPOfWBjTYOownliMbOUU41f2OgyFnO7mPhN3eTy3mE2zjR9 +feQMcYVu8L3pMfJ9+4X2HyOOq+zzkP3Nxmd3OioPEFtxHEf1/mNjesqsfwnE +UgWt6Y4CFLoG7t4dQvxBmisfKUShYqTwUjfiy1kMc0SUQtomUdCMOEmYY1kp +TmGYbfX8pcTrU06+vi9NIS9+z1oxYsVpscjP8hQaZVXXfifr/W1H6uxZFIW3 +BjXc2okzAkK0TdUpPOVkq51K7Nz7tsV7BYXf9haFuhGruDh5JehRKK5f0KtO +3GhlknENKbx+9Y//g//Xx+3LCs/NKbz5QyLhOLGnodqVHzYUpmebPvQm/r1s +fq+GE4Wx0s6LBkg9Tp6RS9Zxp/Bjzpd1F4jH56mqGPhQOO9c+YstxMNjBtvW +BFEYUCQy/IrU99eANaI2YRQ+Vt64J5v4c5cdvX4Hhbu85QMtiN/X+U2676Zw +qOqwbSnpjz6NsHzfFAo3yHywcCB+XRBjvGUfhdJvZQqmSX+9SD2csv0ohU/L +koIsiO/bXhPLOE9hdoLSnnrSvy03bzOHL1HYqWQUs5H4jtZDxxwehYLhc14M +kH6/JfHu5NlaChOKDRqFiC+/mqN29RGF50RXbF1G5sfJYG94P0Gh2cN5d8bJ +PDrxJvD9wBTJr9V582bi3PU70ob+kfdLC4x8ROZXpk7Gg1/Cyji4PO3rKTLv +UqYZl3mKyqj24bu7HJmHwQcFI4wtlHHsyqWpM2S+Bv6dJ7HaVhn1moqpfjJ/ +t4TL1VhuUEY6ctYDVWLfjVp/HNyV0Y/vQeE5Mr8dF7llBIUpY8HzhLhkYwaM +yysKjx9XxjMtzbX3VjLwilVeYH5KGWeZRlaNkf0h7vjFs+MFyhgfNp6qSHwt +ufS0w0VlFFHI6Qwl+4u2a2GeWL0ymusspsY0GVgimJuV/k4Zn6vZKuWrkfr1 +iU/apa6C0xE6q1ylGbjaGZuoukIF5XfwPVktRfKxidnTuVIF7R6a+i9byED2 +yp0J2qCCG2KCd0+KMyA6Nzxm2F4FR3nbj0aR/XJm7eaILdEqKPaCb2q+IAOj +4ja+zk0qeHTA91LHCA3dIVTHthYVDFREG5/vNDTem4LEhyr4PPzfha9DNGTF +lStdeKGCvnWJZX/J/r78/dy+34Mq2H5xTcusjzSEMY+9zkioYva1nxlV3TQM +rnfy+OCvim2bSKPeouHDIV/nyNkcpGrO6YeS80/YoDq1fC4Hgx4bSR0n56Of +lr+HhuZzcB1Hh3szkYY5AtlpQXIcrCidGzgrgcSLba721eDgR9b8tXujaNgd +wJFYv5GDVrlzlbUCaJAy+fZ4WQEH1f+darI0p8H6e7T1Rz01VL588fMNPnLe +8BPaUZ24GB186qZEmCryfyDNv69pCQavN+z0N6wE8UecTPr7UjTdPKRXeLMc +5DN4G/T01DFJILEqd/YlyFtmMF9iqwaWVMnVVXtfgPtypivHjmqi+fC7Zuma +UjCUb8rSeqGFj68Fj3kMlICYQHHUppTleMT/bOE2o3OgmKxk7MZZgdLlJwRy +dhaBsKpnjUPLCqzmsTYKZRaAJleWF+2ljZF+bdB96DRE9oo32/DpoEbZJ+rH +znz4PnbIyTpPB5fKn1dLajwOllr3Tlpr6KJFTXhhrHku3Bozmv7Zrou9kWZ1 +G1qPQpi6ds+TgJXYvs7+s5PdEeAO+3e6Cevh1qyrPdaLDoK5isw60WI9DG3M +D80+ug8WJx2IadLXR9W+UBvzyL2wNMCgQbVHHx8Hn3RkQpMh4Fbg3urtq1A8 +c0Gb8Nvd0FDY6T+60ABLm6YX1FOxMH7h30+tawaoc/d+bIjMTvBTLRc+uc4Q +u+drP5B+th1Gl+boXR4xxPERkzbN/aFwvWT63USGEfaqS1oolQWC+xplNFI0 +xnrH0Kjth/1hUei+Ws1GY4yZKNewbvWFzH9bVh5sMsa5ZYFl4XW+wJ9twQzc +Mca1XY7M2SpfGKwRvFjYZoxH1Lf6SR3zhRt8e/PEnxljR0JMY/BmX3DPTYqe +/GiMr06/uOf41wfy6mJX3hLhoiA77wAvzhsWzglh1rlw8Vn0jYM/SzygxGx3 +3IgbF4f/lO68fcgDtHdnmuV4crHMs+rXmSgPsBuhn3dv4mLAfbdTmWs8IP3F +xG+/EC5m11iKrvvoDr+KE1fHJXOxn5e5V3epO/QY5TwrLeeih5RPq9dtVwjc +WXLauoqLwjcx27/cFSarrgZ8o7noSr3LSDjmCuJU988VNVz8clOmoy/IFWyF +FORvNnLx6OLMo5ESrlDfWer/7DkXr9p8sm4IcgEbsesau7q5+PhuWe0zRxfo +tmyblHnFxcJ9lmW/wAXGb3zN8H7LxSVmkk92SLmARtHyyi+DXNwjkKuteccZ +6ntMdx0a4uIcwS7/uzxnsJHcCFojXJQs92gIOeUMW/btfBI1QfIVvd70NdIZ +xhvTT0r/4mLqLD/nZm9nSJk64XdjiotWSpMDl2ycYb7uRXWvv1zMUxwIKdZz +hrOhNyb+/eOi2QW65yLlDP8D3tojRQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13lYDe8XAPCUKClU2rTcO9XN0kKltNzOSdqJ0r5TUVolWmlTsiUVytYi +hZY7QyJFKVSWhCihECJKaUHx9Xt/8888n2f+OGfeOee877A3hzsE8PORawYf +3//vk71td1QOlpi4zDTsNY9Ak86zMrGm3Snw/JunWNZiRcCFjzfLdGeDpOiP +JbaLNWHXhktdAt3FIOqiX6+w2AQWDEtn/+66DHEHC6VfqdlBX71d+HhXE1xR +/rpgjpo3WKgMvhntegqfs0rG3yuHwe8u/WMjXe8h4r9kjqv0Hmg2Kyt5UjwG +uuc7/7ixj4B8X+2nzep/ocrLEjhvjoNkiM+l2WYC2C08KZdz4wxkr7Cos3MS +Qq/Q+j0xvsXwMm954+h8UUx7mlafsO08HCxJfMwvuwB5utOP6wMvgHRu//6c +MxIocDNJ+xx/Ocgsu7r3V6kEhmv+yK8QKQe5pvREL1oCO8b5f9OS5aA4smSn +WrMEFqzYlX+JUw6qayN86z5LoP56lTWbbMpBZ+ZfvX4dSfy797b1q6xyWB8l +9UH7viR+0vpJT8lWwD5Ha5OnkwsxpUJ8kJavBLnqdjn+GVJoJhrnIK1aCVUS +jj9XiEjh01w6I1qjEl489aaPKklh5bYGd1WTSlCxj6LsraRQzWttvJ5PJTSt +K5jVkS+FGwL3f9AorIS/FhPtj4yl8VEI3+5ghSrYYVDk05Yigx03bMWnZvLA +plBs3PaQDO6YlvzgJsIDanZCRvsxGdzc77akegEPOjqdmWcXZDD+EL+oqyIP +NCPmCvS2y2AB742Wlz4PPpdGl/6Qk8Xwmr1FnoE88JS0G1p0RRZ9E2bEaN7j +gU58XfLZelk8Pqqh8/oBD+a8XyzFvieL2sFr3fc+4UEtTwA4L4mNe742v+aB +lG1t1vJ/sphbMSzDN0biJ6vomtvKYWTR6Gq9eTSs+T4VF9Yvhz/ovksHVtEQ +a5W79PY3OTSZk3552pCGqiKNHolJOcxyCxbZxqVBxtHXoFZoEWakSzAmq2n4 +dv3uTwHNRdhhOPCwxZaGnJSsqPyYRYj1m+zdvGl4v5ATdkdUHk3itwjHJdMg +Hd6gIC0tj5qSds7HUmlY2+r6KIglj1UhXZOVaTTUxB1Un6cjj9ErbXW69tNw +oG9k0M1VHqs3mJ4RzqZB+2Ld1u/F8ti3U8BxuIiGZGP7TXKrFFBPlbPlegMN +Vt5nf+ivVsCrnJIvJbdpEEv6muq0VgFlA06uy2ym4XRzWmmWrwLi3/+uubTQ +cN3mxtdZ+xVQu8lK8W47DSOuyrvGXirgNr/hiDlvaLgWFzF7wQcFNFxToXC3 +l4Y9p2/maQ4r4KdvB3kJb2mY+9alLohfEWvWTae+76dBbeshvrdLFdHpcPev +jEEavHdOHHgYr4ijFfE+pj9pUD2xWn4wTRE9Tk2l3//1//U7Ujk7SxF1eFr5 +G6ZoiPuzpGN1iSKuGMHEjX9pOJbqvbD2oSLKhz311BVg4OHRloLzCkoYeknr +2mYxBgyr8qv3NCjhleH+91EUA2u62v8OtyphbmhnaoYyA3Z8My19niqhk8Cx +5HwVBvwcwl7CRyXU9ZI/doXDgEU8OzFJkIXqM5LVWpcyEKE0ec50GQtdZxc7 +7dBmYOJKVutvLRYKftk17qnDQJzVsiFGl4XjhjcnzXQZSNvuq0eZsND6oKfa +HD0GTjbfb+W3Z2HsEq55tAEDd7YWDDXvYqGsl2V3JzBg/cdAPCGehVRtW38u +MtCe1amnm8TCoYT/3BxMGXhZK5xUsp+FFc/9M+6uZmBYJEo87TTJ7/rhqUPm +DOwoFNPnFrHwH59Q0CoLBn7pXvSYOM9CudR5Fu+IBbx7SwJ4LNSeuLVumRUD +MrSVvkUTC22FMosKbRg4s6bf4797LBze4pmtb8sA9XJ3Us0DFjb1Xp94QKzB +f6WN85yFzy6rSQ2tZWC1o4Ln7M8sXFJt93D+egZaPl9LavhGnu+f9skhXrvb +4Xz0KAs9mz23SWxgwKV03/DAFAsNEt0/itgzEPJrNKlVlI27hlam9jqQ77V9 +i9QncTY+chmZ4byRAaHBnnIBGTbu3PHqwH3i86+aX5hQbMxpE711yZGBKMdV +IZ5qbFw2VRck5UTyeVQxI06djfYtgVQice+tY+pX9dioXZx709KZgQr9OU1P +jdg4+0lSURlxHL3HZQTZeOGN+bGZLgxIFW9NWWbLxvlGXN5V4vVpBt1FPmys +Wmlye9yVAcX/KkMb/Nk4xLFexXVj4NsuSuBNEMn/t+DdFOKMQBFNmSg2PhTJ +ogTdGXB+l9i8MpaNNw69HjclVnEfd924h406ES/74okbbd+kZmaw0XPWV/4B +4sw79rIVh9m45MNeYxkPBjy596raskn82JdHLYiX1hiuGTjBxtgVlQKRxL81 +eS9nnmHjteV3s08St5Yph1PFbGxxHoBG4uOsvJlYxsY84x6RfmL//LknvSrY +aKIb8JPfkwFt8WSteIbEt9ogwCLmOzhxJ6+GjeeN/JcbErcLbHOvqSPrmbEt +0Z74dELv92eNbDzlozEaQBw84ZA2epeNhhej06OJDcNa5OY9YGMP/0JMJxYa +MKLVO9iY2/BEMZv4hQ9tbvOcjX4DccqniEu6VV5t7WFjmV6vXRFxpH1+RFof +G08o3C8qIcb7orPOfWBjTYOownliMbOUU41f2OgyFnO7mPhN3eTy3mE2zjR9 +feQMcYVu8L3pMfJ9+4X2HyOOq+zzkP3Nxmd3OioPEFtxHEf1/mNjesqsfwnE +UgWt6Y4CFLoG7t4dQvxBmisfKUShYqTwUjfiy1kMc0SUQtomUdCMOEmYY1kp +TmGYbfX8pcTrU06+vi9NIS9+z1oxYsVpscjP8hQaZVXXfifr/W1H6uxZFIW3 +BjXc2okzAkK0TdUpPOVkq51K7Nz7tsV7BYXf9haFuhGruDh5JehRKK5f0KtO +3GhlknENKbx+9Y//g//Xx+3LCs/NKbz5QyLhOLGnodqVHzYUpmebPvQm/r1s +fq+GE4Wx0s6LBkg9Tp6RS9Zxp/Bjzpd1F4jH56mqGPhQOO9c+YstxMNjBtvW +BFEYUCQy/IrU99eANaI2YRQ+Vt64J5v4c5cdvX4Hhbu85QMtiN/X+U2676Zw +qOqwbSnpjz6NsHzfFAo3yHywcCB+XRBjvGUfhdJvZQqmSX+9SD2csv0ohU/L +koIsiO/bXhPLOE9hdoLSnnrSvy03bzOHL1HYqWQUs5H4jtZDxxwehYLhc14M +kH6/JfHu5NlaChOKDRqFiC+/mqN29RGF50RXbF1G5sfJYG94P0Gh2cN5d8bJ +PDrxJvD9wBTJr9V582bi3PU70ob+kfdLC4x8ROZXpk7Gg1/Cyji4PO3rKTLv +UqYZl3mKyqj24bu7HJmHwQcFI4wtlHHsyqWpM2S+Bv6dJ7HaVhn1moqpfjJ/ +t4TL1VhuUEY6ctYDVWLfjVp/HNyV0Y/vQeE5Mr8dF7llBIUpY8HzhLhkYwaM +yysKjx9XxjMtzbX3VjLwilVeYH5KGWeZRlaNkf0h7vjFs+MFyhgfNp6qSHwt +ufS0w0VlFFHI6Qwl+4u2a2GeWL0ymusspsY0GVgimJuV/k4Zn6vZKuWrkfr1 +iU/apa6C0xE6q1ylGbjaGZuoukIF5XfwPVktRfKxidnTuVIF7R6a+i9byED2 +yp0J2qCCG2KCd0+KMyA6Nzxm2F4FR3nbj0aR/XJm7eaILdEqKPaCb2q+IAOj +4ja+zk0qeHTA91LHCA3dIVTHthYVDFREG5/vNDTem4LEhyr4PPzfha9DNGTF +lStdeKGCvnWJZX/J/r78/dy+34Mq2H5xTcusjzSEMY+9zkioYva1nxlV3TQM +rnfy+OCvim2bSKPeouHDIV/nyNkcpGrO6YeS80/YoDq1fC4Hgx4bSR0n56Of +lr+HhuZzcB1Hh3szkYY5AtlpQXIcrCidGzgrgcSLba721eDgR9b8tXujaNgd +wJFYv5GDVrlzlbUCaJAy+fZ4WQEH1f+darI0p8H6e7T1Rz01VL588fMNPnLe +8BPaUZ24GB186qZEmCryfyDNv69pCQavN+z0N6wE8UecTPr7UjTdPKRXeLMc +5DN4G/T01DFJILEqd/YlyFtmMF9iqwaWVMnVVXtfgPtypivHjmqi+fC7Zuma +UjCUb8rSeqGFj68Fj3kMlICYQHHUppTleMT/bOE2o3OgmKxk7MZZgdLlJwRy +dhaBsKpnjUPLCqzmsTYKZRaAJleWF+2ljZF+bdB96DRE9oo32/DpoEbZJ+rH +znz4PnbIyTpPB5fKn1dLajwOllr3Tlpr6KJFTXhhrHku3Bozmv7Zrou9kWZ1 +G1qPQpi6ds+TgJXYvs7+s5PdEeAO+3e6Cevh1qyrPdaLDoK5isw60WI9DG3M +D80+ug8WJx2IadLXR9W+UBvzyL2wNMCgQbVHHx8Hn3RkQpMh4Fbg3urtq1A8 +c0Gb8Nvd0FDY6T+60ABLm6YX1FOxMH7h30+tawaoc/d+bIjMTvBTLRc+uc4Q +u+drP5B+th1Gl+boXR4xxPERkzbN/aFwvWT63USGEfaqS1oolQWC+xplNFI0 +xnrH0Kjth/1hUei+Ws1GY4yZKNewbvWFzH9bVh5sMsa5ZYFl4XW+wJ9twQzc +Mca1XY7M2SpfGKwRvFjYZoxH1Lf6SR3zhRt8e/PEnxljR0JMY/BmX3DPTYqe +/GiMr06/uOf41wfy6mJX3hLhoiA77wAvzhsWzglh1rlw8Vn0jYM/SzygxGx3 +3IgbF4f/lO68fcgDtHdnmuV4crHMs+rXmSgPsBuhn3dv4mLAfbdTmWs8IP3F +xG+/EC5m11iKrvvoDr+KE1fHJXOxn5e5V3epO/QY5TwrLeeih5RPq9dtVwjc +WXLauoqLwjcx27/cFSarrgZ8o7noSr3LSDjmCuJU988VNVz8clOmoy/IFWyF +FORvNnLx6OLMo5ESrlDfWer/7DkXr9p8sm4IcgEbsesau7q5+PhuWe0zRxfo +tmyblHnFxcJ9lmW/wAXGb3zN8H7LxSVmkk92SLmARtHyyi+DXNwjkKuteccZ +6ntMdx0a4uIcwS7/uzxnsJHcCFojXJQs92gIOeUMW/btfBI1QfIVvd70NdIZ +xhvTT0r/4mLqLD/nZm9nSJk64XdjiotWSpMDl2ycYb7uRXWvv1zMUxwIKdZz +hrOhNyb+/eOi2QW65yLlDP8D3tojRQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06781990012473113}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06781990012473113}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13lYDe8XAPCUKClU2rTcO9XN0kKltNzOSdqJ0r5TUVolWmlTsiUVytYi +hZY7QyJFKVSWhCihECJKaUHx9Xt/8888n2f+OGfeOee877A3hzsE8PORawYf +3//vk71td1QOlpi4zDTsNY9Ak86zMrGm3Snw/JunWNZiRcCFjzfLdGeDpOiP +JbaLNWHXhktdAt3FIOqiX6+w2AQWDEtn/+66DHEHC6VfqdlBX71d+HhXE1xR +/rpgjpo3WKgMvhntegqfs0rG3yuHwe8u/WMjXe8h4r9kjqv0Hmg2Kyt5UjwG +uuc7/7ixj4B8X+2nzep/ocrLEjhvjoNkiM+l2WYC2C08KZdz4wxkr7Cos3MS +Qq/Q+j0xvsXwMm954+h8UUx7mlafsO08HCxJfMwvuwB5utOP6wMvgHRu//6c +MxIocDNJ+xx/Ocgsu7r3V6kEhmv+yK8QKQe5pvREL1oCO8b5f9OS5aA4smSn +WrMEFqzYlX+JUw6qayN86z5LoP56lTWbbMpBZ+ZfvX4dSfy797b1q6xyWB8l +9UH7viR+0vpJT8lWwD5Ha5OnkwsxpUJ8kJavBLnqdjn+GVJoJhrnIK1aCVUS +jj9XiEjh01w6I1qjEl489aaPKklh5bYGd1WTSlCxj6LsraRQzWttvJ5PJTSt +K5jVkS+FGwL3f9AorIS/FhPtj4yl8VEI3+5ghSrYYVDk05Yigx03bMWnZvLA +plBs3PaQDO6YlvzgJsIDanZCRvsxGdzc77akegEPOjqdmWcXZDD+EL+oqyIP +NCPmCvS2y2AB742Wlz4PPpdGl/6Qk8Xwmr1FnoE88JS0G1p0RRZ9E2bEaN7j +gU58XfLZelk8Pqqh8/oBD+a8XyzFvieL2sFr3fc+4UEtTwA4L4mNe742v+aB +lG1t1vJ/sphbMSzDN0biJ6vomtvKYWTR6Gq9eTSs+T4VF9Yvhz/ovksHVtEQ +a5W79PY3OTSZk3552pCGqiKNHolJOcxyCxbZxqVBxtHXoFZoEWakSzAmq2n4 +dv3uTwHNRdhhOPCwxZaGnJSsqPyYRYj1m+zdvGl4v5ATdkdUHk3itwjHJdMg +Hd6gIC0tj5qSds7HUmlY2+r6KIglj1UhXZOVaTTUxB1Un6cjj9ErbXW69tNw +oG9k0M1VHqs3mJ4RzqZB+2Ld1u/F8ti3U8BxuIiGZGP7TXKrFFBPlbPlegMN +Vt5nf+ivVsCrnJIvJbdpEEv6muq0VgFlA06uy2ym4XRzWmmWrwLi3/+uubTQ +cN3mxtdZ+xVQu8lK8W47DSOuyrvGXirgNr/hiDlvaLgWFzF7wQcFNFxToXC3 +l4Y9p2/maQ4r4KdvB3kJb2mY+9alLohfEWvWTae+76dBbeshvrdLFdHpcPev +jEEavHdOHHgYr4ijFfE+pj9pUD2xWn4wTRE9Tk2l3//1//U7Ujk7SxF1eFr5 +G6ZoiPuzpGN1iSKuGMHEjX9pOJbqvbD2oSLKhz311BVg4OHRloLzCkoYeknr +2mYxBgyr8qv3NCjhleH+91EUA2u62v8OtyphbmhnaoYyA3Z8My19niqhk8Cx +5HwVBvwcwl7CRyXU9ZI/doXDgEU8OzFJkIXqM5LVWpcyEKE0ec50GQtdZxc7 +7dBmYOJKVutvLRYKftk17qnDQJzVsiFGl4XjhjcnzXQZSNvuq0eZsND6oKfa +HD0GTjbfb+W3Z2HsEq55tAEDd7YWDDXvYqGsl2V3JzBg/cdAPCGehVRtW38u +MtCe1amnm8TCoYT/3BxMGXhZK5xUsp+FFc/9M+6uZmBYJEo87TTJ7/rhqUPm +DOwoFNPnFrHwH59Q0CoLBn7pXvSYOM9CudR5Fu+IBbx7SwJ4LNSeuLVumRUD +MrSVvkUTC22FMosKbRg4s6bf4797LBze4pmtb8sA9XJ3Us0DFjb1Xp94QKzB +f6WN85yFzy6rSQ2tZWC1o4Ln7M8sXFJt93D+egZaPl9LavhGnu+f9skhXrvb +4Xz0KAs9mz23SWxgwKV03/DAFAsNEt0/itgzEPJrNKlVlI27hlam9jqQ77V9 +i9QncTY+chmZ4byRAaHBnnIBGTbu3PHqwH3i86+aX5hQbMxpE711yZGBKMdV +IZ5qbFw2VRck5UTyeVQxI06djfYtgVQice+tY+pX9dioXZx709KZgQr9OU1P +jdg4+0lSURlxHL3HZQTZeOGN+bGZLgxIFW9NWWbLxvlGXN5V4vVpBt1FPmys +Wmlye9yVAcX/KkMb/Nk4xLFexXVj4NsuSuBNEMn/t+DdFOKMQBFNmSg2PhTJ +ogTdGXB+l9i8MpaNNw69HjclVnEfd924h406ES/74okbbd+kZmaw0XPWV/4B +4sw79rIVh9m45MNeYxkPBjy596raskn82JdHLYiX1hiuGTjBxtgVlQKRxL81 +eS9nnmHjteV3s08St5Yph1PFbGxxHoBG4uOsvJlYxsY84x6RfmL//LknvSrY +aKIb8JPfkwFt8WSteIbEt9ogwCLmOzhxJ6+GjeeN/JcbErcLbHOvqSPrmbEt +0Z74dELv92eNbDzlozEaQBw84ZA2epeNhhej06OJDcNa5OY9YGMP/0JMJxYa +MKLVO9iY2/BEMZv4hQ9tbvOcjX4DccqniEu6VV5t7WFjmV6vXRFxpH1+RFof +G08o3C8qIcb7orPOfWBjTYOownliMbOUU41f2OgyFnO7mPhN3eTy3mE2zjR9 +feQMcYVu8L3pMfJ9+4X2HyOOq+zzkP3Nxmd3OioPEFtxHEf1/mNjesqsfwnE +UgWt6Y4CFLoG7t4dQvxBmisfKUShYqTwUjfiy1kMc0SUQtomUdCMOEmYY1kp +TmGYbfX8pcTrU06+vi9NIS9+z1oxYsVpscjP8hQaZVXXfifr/W1H6uxZFIW3 +BjXc2okzAkK0TdUpPOVkq51K7Nz7tsV7BYXf9haFuhGruDh5JehRKK5f0KtO +3GhlknENKbx+9Y//g//Xx+3LCs/NKbz5QyLhOLGnodqVHzYUpmebPvQm/r1s +fq+GE4Wx0s6LBkg9Tp6RS9Zxp/Bjzpd1F4jH56mqGPhQOO9c+YstxMNjBtvW +BFEYUCQy/IrU99eANaI2YRQ+Vt64J5v4c5cdvX4Hhbu85QMtiN/X+U2676Zw +qOqwbSnpjz6NsHzfFAo3yHywcCB+XRBjvGUfhdJvZQqmSX+9SD2csv0ohU/L +koIsiO/bXhPLOE9hdoLSnnrSvy03bzOHL1HYqWQUs5H4jtZDxxwehYLhc14M +kH6/JfHu5NlaChOKDRqFiC+/mqN29RGF50RXbF1G5sfJYG94P0Gh2cN5d8bJ +PDrxJvD9wBTJr9V582bi3PU70ob+kfdLC4x8ROZXpk7Gg1/Cyji4PO3rKTLv +UqYZl3mKyqj24bu7HJmHwQcFI4wtlHHsyqWpM2S+Bv6dJ7HaVhn1moqpfjJ/ +t4TL1VhuUEY6ctYDVWLfjVp/HNyV0Y/vQeE5Mr8dF7llBIUpY8HzhLhkYwaM +yysKjx9XxjMtzbX3VjLwilVeYH5KGWeZRlaNkf0h7vjFs+MFyhgfNp6qSHwt +ufS0w0VlFFHI6Qwl+4u2a2GeWL0ymusspsY0GVgimJuV/k4Zn6vZKuWrkfr1 +iU/apa6C0xE6q1ylGbjaGZuoukIF5XfwPVktRfKxidnTuVIF7R6a+i9byED2 +yp0J2qCCG2KCd0+KMyA6Nzxm2F4FR3nbj0aR/XJm7eaILdEqKPaCb2q+IAOj +4ja+zk0qeHTA91LHCA3dIVTHthYVDFREG5/vNDTem4LEhyr4PPzfha9DNGTF +lStdeKGCvnWJZX/J/r78/dy+34Mq2H5xTcusjzSEMY+9zkioYva1nxlV3TQM +rnfy+OCvim2bSKPeouHDIV/nyNkcpGrO6YeS80/YoDq1fC4Hgx4bSR0n56Of +lr+HhuZzcB1Hh3szkYY5AtlpQXIcrCidGzgrgcSLba721eDgR9b8tXujaNgd +wJFYv5GDVrlzlbUCaJAy+fZ4WQEH1f+darI0p8H6e7T1Rz01VL588fMNPnLe +8BPaUZ24GB186qZEmCryfyDNv69pCQavN+z0N6wE8UecTPr7UjTdPKRXeLMc +5DN4G/T01DFJILEqd/YlyFtmMF9iqwaWVMnVVXtfgPtypivHjmqi+fC7Zuma +UjCUb8rSeqGFj68Fj3kMlICYQHHUppTleMT/bOE2o3OgmKxk7MZZgdLlJwRy +dhaBsKpnjUPLCqzmsTYKZRaAJleWF+2ljZF+bdB96DRE9oo32/DpoEbZJ+rH +znz4PnbIyTpPB5fKn1dLajwOllr3Tlpr6KJFTXhhrHku3Bozmv7Zrou9kWZ1 +G1qPQpi6ds+TgJXYvs7+s5PdEeAO+3e6Cevh1qyrPdaLDoK5isw60WI9DG3M +D80+ug8WJx2IadLXR9W+UBvzyL2wNMCgQbVHHx8Hn3RkQpMh4Fbg3urtq1A8 +c0Gb8Nvd0FDY6T+60ABLm6YX1FOxMH7h30+tawaoc/d+bIjMTvBTLRc+uc4Q +u+drP5B+th1Gl+boXR4xxPERkzbN/aFwvWT63USGEfaqS1oolQWC+xplNFI0 +xnrH0Kjth/1hUei+Ws1GY4yZKNewbvWFzH9bVh5sMsa5ZYFl4XW+wJ9twQzc +Mca1XY7M2SpfGKwRvFjYZoxH1Lf6SR3zhRt8e/PEnxljR0JMY/BmX3DPTYqe +/GiMr06/uOf41wfy6mJX3hLhoiA77wAvzhsWzglh1rlw8Vn0jYM/SzygxGx3 +3IgbF4f/lO68fcgDtHdnmuV4crHMs+rXmSgPsBuhn3dv4mLAfbdTmWs8IP3F +xG+/EC5m11iKrvvoDr+KE1fHJXOxn5e5V3epO/QY5TwrLeeih5RPq9dtVwjc +WXLauoqLwjcx27/cFSarrgZ8o7noSr3LSDjmCuJU988VNVz8clOmoy/IFWyF +FORvNnLx6OLMo5ESrlDfWer/7DkXr9p8sm4IcgEbsesau7q5+PhuWe0zRxfo +tmyblHnFxcJ9lmW/wAXGb3zN8H7LxSVmkk92SLmARtHyyi+DXNwjkKuteccZ +6ntMdx0a4uIcwS7/uzxnsJHcCFojXJQs92gIOeUMW/btfBI1QfIVvd70NdIZ +xhvTT0r/4mLqLD/nZm9nSJk64XdjiotWSpMDl2ycYb7uRXWvv1zMUxwIKdZz +hrOhNyb+/eOi2QW65yLlDP8D3tojRQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06781990012473113}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06781990012473113}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939179033664427`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"aca72657-7f04-4f66-83b4-1fa337e7bcf5"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ -5e6c7b4b5678"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015632"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025463"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034444"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042305"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048862"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.053992"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.05763"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.05981"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060594"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060116"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058529"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056023"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052783"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.049014"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044891"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.04059"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.036252"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.032004"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027939"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024133"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020631"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017466"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014645"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012169"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.01002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008181"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005319"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004237"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00335"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9939164854607277`*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.060594}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993917903456758*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"cab774b9-8be6-4400-9338-f36e2586fd59"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ -3f60fcfd9a79"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13lYDe8XAPCUKClU2rTcO9XN0kKltNzOSdqJ0r5TUVolWmlTsiUVytYi +hZY7QyJFKVSWhCihECJKaUHx9Xt/8888n2f+OGfeOee877A3hzsE8PORawYf +3//vk71td1QOlpi4zDTsNY9Ak86zMrGm3Snw/JunWNZiRcCFjzfLdGeDpOiP +JbaLNWHXhktdAt3FIOqiX6+w2AQWDEtn/+66DHEHC6VfqdlBX71d+HhXE1xR +/rpgjpo3WKgMvhntegqfs0rG3yuHwe8u/WMjXe8h4r9kjqv0Hmg2Kyt5UjwG +uuc7/7ixj4B8X+2nzep/ocrLEjhvjoNkiM+l2WYC2C08KZdz4wxkr7Cos3MS +Qq/Q+j0xvsXwMm954+h8UUx7mlafsO08HCxJfMwvuwB5utOP6wMvgHRu//6c +MxIocDNJ+xx/Ocgsu7r3V6kEhmv+yK8QKQe5pvREL1oCO8b5f9OS5aA4smSn +WrMEFqzYlX+JUw6qayN86z5LoP56lTWbbMpBZ+ZfvX4dSfy797b1q6xyWB8l +9UH7viR+0vpJT8lWwD5Ha5OnkwsxpUJ8kJavBLnqdjn+GVJoJhrnIK1aCVUS +jj9XiEjh01w6I1qjEl489aaPKklh5bYGd1WTSlCxj6LsraRQzWttvJ5PJTSt +K5jVkS+FGwL3f9AorIS/FhPtj4yl8VEI3+5ghSrYYVDk05Yigx03bMWnZvLA +plBs3PaQDO6YlvzgJsIDanZCRvsxGdzc77akegEPOjqdmWcXZDD+EL+oqyIP +NCPmCvS2y2AB742Wlz4PPpdGl/6Qk8Xwmr1FnoE88JS0G1p0RRZ9E2bEaN7j +gU58XfLZelk8Pqqh8/oBD+a8XyzFvieL2sFr3fc+4UEtTwA4L4mNe742v+aB +lG1t1vJ/sphbMSzDN0biJ6vomtvKYWTR6Gq9eTSs+T4VF9Yvhz/ovksHVtEQ +a5W79PY3OTSZk3552pCGqiKNHolJOcxyCxbZxqVBxtHXoFZoEWakSzAmq2n4 +dv3uTwHNRdhhOPCwxZaGnJSsqPyYRYj1m+zdvGl4v5ATdkdUHk3itwjHJdMg +Hd6gIC0tj5qSds7HUmlY2+r6KIglj1UhXZOVaTTUxB1Un6cjj9ErbXW69tNw +oG9k0M1VHqs3mJ4RzqZB+2Ld1u/F8ti3U8BxuIiGZGP7TXKrFFBPlbPlegMN +Vt5nf+ivVsCrnJIvJbdpEEv6muq0VgFlA06uy2ym4XRzWmmWrwLi3/+uubTQ +cN3mxtdZ+xVQu8lK8W47DSOuyrvGXirgNr/hiDlvaLgWFzF7wQcFNFxToXC3 +l4Y9p2/maQ4r4KdvB3kJb2mY+9alLohfEWvWTae+76dBbeshvrdLFdHpcPev +jEEavHdOHHgYr4ijFfE+pj9pUD2xWn4wTRE9Tk2l3//1//U7Ujk7SxF1eFr5 +G6ZoiPuzpGN1iSKuGMHEjX9pOJbqvbD2oSLKhz311BVg4OHRloLzCkoYeknr +2mYxBgyr8qv3NCjhleH+91EUA2u62v8OtyphbmhnaoYyA3Z8My19niqhk8Cx +5HwVBvwcwl7CRyXU9ZI/doXDgEU8OzFJkIXqM5LVWpcyEKE0ec50GQtdZxc7 +7dBmYOJKVutvLRYKftk17qnDQJzVsiFGl4XjhjcnzXQZSNvuq0eZsND6oKfa +HD0GTjbfb+W3Z2HsEq55tAEDd7YWDDXvYqGsl2V3JzBg/cdAPCGehVRtW38u +MtCe1amnm8TCoYT/3BxMGXhZK5xUsp+FFc/9M+6uZmBYJEo87TTJ7/rhqUPm +DOwoFNPnFrHwH59Q0CoLBn7pXvSYOM9CudR5Fu+IBbx7SwJ4LNSeuLVumRUD +MrSVvkUTC22FMosKbRg4s6bf4797LBze4pmtb8sA9XJ3Us0DFjb1Xp94QKzB +f6WN85yFzy6rSQ2tZWC1o4Ln7M8sXFJt93D+egZaPl9LavhGnu+f9skhXrvb +4Xz0KAs9mz23SWxgwKV03/DAFAsNEt0/itgzEPJrNKlVlI27hlam9jqQ77V9 +i9QncTY+chmZ4byRAaHBnnIBGTbu3PHqwH3i86+aX5hQbMxpE711yZGBKMdV +IZ5qbFw2VRck5UTyeVQxI06djfYtgVQice+tY+pX9dioXZx709KZgQr9OU1P +jdg4+0lSURlxHL3HZQTZeOGN+bGZLgxIFW9NWWbLxvlGXN5V4vVpBt1FPmys +Wmlye9yVAcX/KkMb/Nk4xLFexXVj4NsuSuBNEMn/t+DdFOKMQBFNmSg2PhTJ +ogTdGXB+l9i8MpaNNw69HjclVnEfd924h406ES/74okbbd+kZmaw0XPWV/4B +4sw79rIVh9m45MNeYxkPBjy596raskn82JdHLYiX1hiuGTjBxtgVlQKRxL81 +eS9nnmHjteV3s08St5Yph1PFbGxxHoBG4uOsvJlYxsY84x6RfmL//LknvSrY +aKIb8JPfkwFt8WSteIbEt9ogwCLmOzhxJ6+GjeeN/JcbErcLbHOvqSPrmbEt +0Z74dELv92eNbDzlozEaQBw84ZA2epeNhhej06OJDcNa5OY9YGMP/0JMJxYa +MKLVO9iY2/BEMZv4hQ9tbvOcjX4DccqniEu6VV5t7WFjmV6vXRFxpH1+RFof +G08o3C8qIcb7orPOfWBjTYOownliMbOUU41f2OgyFnO7mPhN3eTy3mE2zjR9 +feQMcYVu8L3pMfJ9+4X2HyOOq+zzkP3Nxmd3OioPEFtxHEf1/mNjesqsfwnE +UgWt6Y4CFLoG7t4dQvxBmisfKUShYqTwUjfiy1kMc0SUQtomUdCMOEmYY1kp +TmGYbfX8pcTrU06+vi9NIS9+z1oxYsVpscjP8hQaZVXXfifr/W1H6uxZFIW3 +BjXc2okzAkK0TdUpPOVkq51K7Nz7tsV7BYXf9haFuhGruDh5JehRKK5f0KtO +3GhlknENKbx+9Y//g//Xx+3LCs/NKbz5QyLhOLGnodqVHzYUpmebPvQm/r1s +fq+GE4Wx0s6LBkg9Tp6RS9Zxp/Bjzpd1F4jH56mqGPhQOO9c+YstxMNjBtvW +BFEYUCQy/IrU99eANaI2YRQ+Vt64J5v4c5cdvX4Hhbu85QMtiN/X+U2676Zw +qOqwbSnpjz6NsHzfFAo3yHywcCB+XRBjvGUfhdJvZQqmSX+9SD2csv0ohU/L +koIsiO/bXhPLOE9hdoLSnnrSvy03bzOHL1HYqWQUs5H4jtZDxxwehYLhc14M +kH6/JfHu5NlaChOKDRqFiC+/mqN29RGF50RXbF1G5sfJYG94P0Gh2cN5d8bJ +PDrxJvD9wBTJr9V582bi3PU70ob+kfdLC4x8ROZXpk7Gg1/Cyji4PO3rKTLv +UqYZl3mKyqj24bu7HJmHwQcFI4wtlHHsyqWpM2S+Bv6dJ7HaVhn1moqpfjJ/ +t4TL1VhuUEY6ctYDVWLfjVp/HNyV0Y/vQeE5Mr8dF7llBIUpY8HzhLhkYwaM +yysKjx9XxjMtzbX3VjLwilVeYH5KGWeZRlaNkf0h7vjFs+MFyhgfNp6qSHwt +ufS0w0VlFFHI6Qwl+4u2a2GeWL0ymusspsY0GVgimJuV/k4Zn6vZKuWrkfr1 +iU/apa6C0xE6q1ylGbjaGZuoukIF5XfwPVktRfKxidnTuVIF7R6a+i9byED2 +yp0J2qCCG2KCd0+KMyA6Nzxm2F4FR3nbj0aR/XJm7eaILdEqKPaCb2q+IAOj +4ja+zk0qeHTA91LHCA3dIVTHthYVDFREG5/vNDTem4LEhyr4PPzfha9DNGTF +lStdeKGCvnWJZX/J/r78/dy+34Mq2H5xTcusjzSEMY+9zkioYva1nxlV3TQM +rnfy+OCvim2bSKPeouHDIV/nyNkcpGrO6YeS80/YoDq1fC4Hgx4bSR0n56Of +lr+HhuZzcB1Hh3szkYY5AtlpQXIcrCidGzgrgcSLba721eDgR9b8tXujaNgd +wJFYv5GDVrlzlbUCaJAy+fZ4WQEH1f+darI0p8H6e7T1Rz01VL588fMNPnLe +8BPaUZ24GB186qZEmCryfyDNv69pCQavN+z0N6wE8UecTPr7UjTdPKRXeLMc +5DN4G/T01DFJILEqd/YlyFtmMF9iqwaWVMnVVXtfgPtypivHjmqi+fC7Zuma +UjCUb8rSeqGFj68Fj3kMlICYQHHUppTleMT/bOE2o3OgmKxk7MZZgdLlJwRy +dhaBsKpnjUPLCqzmsTYKZRaAJleWF+2ljZF+bdB96DRE9oo32/DpoEbZJ+rH +znz4PnbIyTpPB5fKn1dLajwOllr3Tlpr6KJFTXhhrHku3Bozmv7Zrou9kWZ1 +G1qPQpi6ds+TgJXYvs7+s5PdEeAO+3e6Cevh1qyrPdaLDoK5isw60WI9DG3M +D80+ug8WJx2IadLXR9W+UBvzyL2wNMCgQbVHHx8Hn3RkQpMh4Fbg3urtq1A8 +c0Gb8Nvd0FDY6T+60ABLm6YX1FOxMH7h30+tawaoc/d+bIjMTvBTLRc+uc4Q +u+drP5B+th1Gl+boXR4xxPERkzbN/aFwvWT63USGEfaqS1oolQWC+xplNFI0 +xnrH0Kjth/1hUei+Ws1GY4yZKNewbvWFzH9bVh5sMsa5ZYFl4XW+wJ9twQzc +Mca1XY7M2SpfGKwRvFjYZoxH1Lf6SR3zhRt8e/PEnxljR0JMY/BmX3DPTYqe +/GiMr06/uOf41wfy6mJX3hLhoiA77wAvzhsWzglh1rlw8Vn0jYM/SzygxGx3 +3IgbF4f/lO68fcgDtHdnmuV4crHMs+rXmSgPsBuhn3dv4mLAfbdTmWs8IP3F +xG+/EC5m11iKrvvoDr+KE1fHJXOxn5e5V3epO/QY5TwrLeeih5RPq9dtVwjc +WXLauoqLwjcx27/cFSarrgZ8o7noSr3LSDjmCuJU988VNVz8clOmoy/IFWyF +FORvNnLx6OLMo5ESrlDfWer/7DkXr9p8sm4IcgEbsesau7q5+PhuWe0zRxfo +tmyblHnFxcJ9lmW/wAXGb3zN8H7LxSVmkk92SLmARtHyyi+DXNwjkKuteccZ +6ntMdx0a4uIcwS7/uzxnsJHcCFojXJQs92gIOeUMW/btfBI1QfIVvd70NdIZ +xhvTT0r/4mLqLD/nZm9nSJk64XdjiotWSpMDl2ycYb7uRXWvv1zMUxwIKdZz +hrOhNyb+/eOi2QW65yLlDP8D3tojRQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13lYDe8XAPCUKClU2rTcO9XN0kKltNzOSdqJ0r5TUVolWmlTsiUVytYi +hZY7QyJFKVSWhCihECJKaUHx9Xt/8888n2f+OGfeOee877A3hzsE8PORawYf +3//vk71td1QOlpi4zDTsNY9Ak86zMrGm3Snw/JunWNZiRcCFjzfLdGeDpOiP +JbaLNWHXhktdAt3FIOqiX6+w2AQWDEtn/+66DHEHC6VfqdlBX71d+HhXE1xR +/rpgjpo3WKgMvhntegqfs0rG3yuHwe8u/WMjXe8h4r9kjqv0Hmg2Kyt5UjwG +uuc7/7ixj4B8X+2nzep/ocrLEjhvjoNkiM+l2WYC2C08KZdz4wxkr7Cos3MS +Qq/Q+j0xvsXwMm954+h8UUx7mlafsO08HCxJfMwvuwB5utOP6wMvgHRu//6c +MxIocDNJ+xx/Ocgsu7r3V6kEhmv+yK8QKQe5pvREL1oCO8b5f9OS5aA4smSn +WrMEFqzYlX+JUw6qayN86z5LoP56lTWbbMpBZ+ZfvX4dSfy797b1q6xyWB8l +9UH7viR+0vpJT8lWwD5Ha5OnkwsxpUJ8kJavBLnqdjn+GVJoJhrnIK1aCVUS +jj9XiEjh01w6I1qjEl489aaPKklh5bYGd1WTSlCxj6LsraRQzWttvJ5PJTSt +K5jVkS+FGwL3f9AorIS/FhPtj4yl8VEI3+5ghSrYYVDk05Yigx03bMWnZvLA +plBs3PaQDO6YlvzgJsIDanZCRvsxGdzc77akegEPOjqdmWcXZDD+EL+oqyIP +NCPmCvS2y2AB742Wlz4PPpdGl/6Qk8Xwmr1FnoE88JS0G1p0RRZ9E2bEaN7j +gU58XfLZelk8Pqqh8/oBD+a8XyzFvieL2sFr3fc+4UEtTwA4L4mNe742v+aB +lG1t1vJ/sphbMSzDN0biJ6vomtvKYWTR6Gq9eTSs+T4VF9Yvhz/ovksHVtEQ +a5W79PY3OTSZk3552pCGqiKNHolJOcxyCxbZxqVBxtHXoFZoEWakSzAmq2n4 +dv3uTwHNRdhhOPCwxZaGnJSsqPyYRYj1m+zdvGl4v5ATdkdUHk3itwjHJdMg +Hd6gIC0tj5qSds7HUmlY2+r6KIglj1UhXZOVaTTUxB1Un6cjj9ErbXW69tNw +oG9k0M1VHqs3mJ4RzqZB+2Ld1u/F8ti3U8BxuIiGZGP7TXKrFFBPlbPlegMN +Vt5nf+ivVsCrnJIvJbdpEEv6muq0VgFlA06uy2ym4XRzWmmWrwLi3/+uubTQ +cN3mxtdZ+xVQu8lK8W47DSOuyrvGXirgNr/hiDlvaLgWFzF7wQcFNFxToXC3 +l4Y9p2/maQ4r4KdvB3kJb2mY+9alLohfEWvWTae+76dBbeshvrdLFdHpcPev +jEEavHdOHHgYr4ijFfE+pj9pUD2xWn4wTRE9Tk2l3//1//U7Ujk7SxF1eFr5 +G6ZoiPuzpGN1iSKuGMHEjX9pOJbqvbD2oSLKhz311BVg4OHRloLzCkoYeknr +2mYxBgyr8qv3NCjhleH+91EUA2u62v8OtyphbmhnaoYyA3Z8My19niqhk8Cx +5HwVBvwcwl7CRyXU9ZI/doXDgEU8OzFJkIXqM5LVWpcyEKE0ec50GQtdZxc7 +7dBmYOJKVutvLRYKftk17qnDQJzVsiFGl4XjhjcnzXQZSNvuq0eZsND6oKfa +HD0GTjbfb+W3Z2HsEq55tAEDd7YWDDXvYqGsl2V3JzBg/cdAPCGehVRtW38u +MtCe1amnm8TCoYT/3BxMGXhZK5xUsp+FFc/9M+6uZmBYJEo87TTJ7/rhqUPm +DOwoFNPnFrHwH59Q0CoLBn7pXvSYOM9CudR5Fu+IBbx7SwJ4LNSeuLVumRUD +MrSVvkUTC22FMosKbRg4s6bf4797LBze4pmtb8sA9XJ3Us0DFjb1Xp94QKzB +f6WN85yFzy6rSQ2tZWC1o4Ln7M8sXFJt93D+egZaPl9LavhGnu+f9skhXrvb +4Xz0KAs9mz23SWxgwKV03/DAFAsNEt0/itgzEPJrNKlVlI27hlam9jqQ77V9 +i9QncTY+chmZ4byRAaHBnnIBGTbu3PHqwH3i86+aX5hQbMxpE711yZGBKMdV +IZ5qbFw2VRck5UTyeVQxI06djfYtgVQice+tY+pX9dioXZx709KZgQr9OU1P +jdg4+0lSURlxHL3HZQTZeOGN+bGZLgxIFW9NWWbLxvlGXN5V4vVpBt1FPmys +Wmlye9yVAcX/KkMb/Nk4xLFexXVj4NsuSuBNEMn/t+DdFOKMQBFNmSg2PhTJ +ogTdGXB+l9i8MpaNNw69HjclVnEfd924h406ES/74okbbd+kZmaw0XPWV/4B +4sw79rIVh9m45MNeYxkPBjy596raskn82JdHLYiX1hiuGTjBxtgVlQKRxL81 +eS9nnmHjteV3s08St5Yph1PFbGxxHoBG4uOsvJlYxsY84x6RfmL//LknvSrY +aKIb8JPfkwFt8WSteIbEt9ogwCLmOzhxJ6+GjeeN/JcbErcLbHOvqSPrmbEt +0Z74dELv92eNbDzlozEaQBw84ZA2epeNhhej06OJDcNa5OY9YGMP/0JMJxYa +MKLVO9iY2/BEMZv4hQ9tbvOcjX4DccqniEu6VV5t7WFjmV6vXRFxpH1+RFof +G08o3C8qIcb7orPOfWBjTYOownliMbOUU41f2OgyFnO7mPhN3eTy3mE2zjR9 +feQMcYVu8L3pMfJ9+4X2HyOOq+zzkP3Nxmd3OioPEFtxHEf1/mNjesqsfwnE +UgWt6Y4CFLoG7t4dQvxBmisfKUShYqTwUjfiy1kMc0SUQtomUdCMOEmYY1kp +TmGYbfX8pcTrU06+vi9NIS9+z1oxYsVpscjP8hQaZVXXfifr/W1H6uxZFIW3 +BjXc2okzAkK0TdUpPOVkq51K7Nz7tsV7BYXf9haFuhGruDh5JehRKK5f0KtO +3GhlknENKbx+9Y//g//Xx+3LCs/NKbz5QyLhOLGnodqVHzYUpmebPvQm/r1s +fq+GE4Wx0s6LBkg9Tp6RS9Zxp/Bjzpd1F4jH56mqGPhQOO9c+YstxMNjBtvW +BFEYUCQy/IrU99eANaI2YRQ+Vt64J5v4c5cdvX4Hhbu85QMtiN/X+U2676Zw +qOqwbSnpjz6NsHzfFAo3yHywcCB+XRBjvGUfhdJvZQqmSX+9SD2csv0ohU/L +koIsiO/bXhPLOE9hdoLSnnrSvy03bzOHL1HYqWQUs5H4jtZDxxwehYLhc14M +kH6/JfHu5NlaChOKDRqFiC+/mqN29RGF50RXbF1G5sfJYG94P0Gh2cN5d8bJ +PDrxJvD9wBTJr9V582bi3PU70ob+kfdLC4x8ROZXpk7Gg1/Cyji4PO3rKTLv +UqYZl3mKyqj24bu7HJmHwQcFI4wtlHHsyqWpM2S+Bv6dJ7HaVhn1moqpfjJ/ +t4TL1VhuUEY6ctYDVWLfjVp/HNyV0Y/vQeE5Mr8dF7llBIUpY8HzhLhkYwaM +yysKjx9XxjMtzbX3VjLwilVeYH5KGWeZRlaNkf0h7vjFs+MFyhgfNp6qSHwt +ufS0w0VlFFHI6Qwl+4u2a2GeWL0ymusspsY0GVgimJuV/k4Zn6vZKuWrkfr1 +iU/apa6C0xE6q1ylGbjaGZuoukIF5XfwPVktRfKxidnTuVIF7R6a+i9byED2 +yp0J2qCCG2KCd0+KMyA6Nzxm2F4FR3nbj0aR/XJm7eaILdEqKPaCb2q+IAOj +4ja+zk0qeHTA91LHCA3dIVTHthYVDFREG5/vNDTem4LEhyr4PPzfha9DNGTF +lStdeKGCvnWJZX/J/r78/dy+34Mq2H5xTcusjzSEMY+9zkioYva1nxlV3TQM +rnfy+OCvim2bSKPeouHDIV/nyNkcpGrO6YeS80/YoDq1fC4Hgx4bSR0n56Of +lr+HhuZzcB1Hh3szkYY5AtlpQXIcrCidGzgrgcSLba721eDgR9b8tXujaNgd +wJFYv5GDVrlzlbUCaJAy+fZ4WQEH1f+darI0p8H6e7T1Rz01VL588fMNPnLe +8BPaUZ24GB186qZEmCryfyDNv69pCQavN+z0N6wE8UecTPr7UjTdPKRXeLMc +5DN4G/T01DFJILEqd/YlyFtmMF9iqwaWVMnVVXtfgPtypivHjmqi+fC7Zuma +UjCUb8rSeqGFj68Fj3kMlICYQHHUppTleMT/bOE2o3OgmKxk7MZZgdLlJwRy +dhaBsKpnjUPLCqzmsTYKZRaAJleWF+2ljZF+bdB96DRE9oo32/DpoEbZJ+rH +znz4PnbIyTpPB5fKn1dLajwOllr3Tlpr6KJFTXhhrHku3Bozmv7Zrou9kWZ1 +G1qPQpi6ds+TgJXYvs7+s5PdEeAO+3e6Cevh1qyrPdaLDoK5isw60WI9DG3M +D80+ug8WJx2IadLXR9W+UBvzyL2wNMCgQbVHHx8Hn3RkQpMh4Fbg3urtq1A8 +c0Gb8Nvd0FDY6T+60ABLm6YX1FOxMH7h30+tawaoc/d+bIjMTvBTLRc+uc4Q +u+drP5B+th1Gl+boXR4xxPERkzbN/aFwvWT63USGEfaqS1oolQWC+xplNFI0 +xnrH0Kjth/1hUei+Ws1GY4yZKNewbvWFzH9bVh5sMsa5ZYFl4XW+wJ9twQzc +Mca1XY7M2SpfGKwRvFjYZoxH1Lf6SR3zhRt8e/PEnxljR0JMY/BmX3DPTYqe +/GiMr06/uOf41wfy6mJX3hLhoiA77wAvzhsWzglh1rlw8Vn0jYM/SzygxGx3 +3IgbF4f/lO68fcgDtHdnmuV4crHMs+rXmSgPsBuhn3dv4mLAfbdTmWs8IP3F +xG+/EC5m11iKrvvoDr+KE1fHJXOxn5e5V3epO/QY5TwrLeeih5RPq9dtVwjc +WXLauoqLwjcx27/cFSarrgZ8o7noSr3LSDjmCuJU988VNVz8clOmoy/IFWyF +FORvNnLx6OLMo5ESrlDfWer/7DkXr9p8sm4IcgEbsesau7q5+PhuWe0zRxfo +tmyblHnFxcJ9lmW/wAXGb3zN8H7LxSVmkk92SLmARtHyyi+DXNwjkKuteccZ +6ntMdx0a4uIcwS7/uzxnsJHcCFojXJQs92gIOeUMW/btfBI1QfIVvd70NdIZ +xhvTT0r/4mLqLD/nZm9nSJk64XdjiotWSpMDl2ycYb7uRXWvv1zMUxwIKdZz +hrOhNyb+/eOi2QW65yLlDP8D3tojRQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06781990012473113}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06781990012473113}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13lYDe8XAPCUKClU2rTcO9XN0kKltNzOSdqJ0r5TUVolWmlTsiUVytYi +hZY7QyJFKVSWhCihECJKaUHx9Xt/8888n2f+OGfeOee877A3hzsE8PORawYf +3//vk71td1QOlpi4zDTsNY9Ak86zMrGm3Snw/JunWNZiRcCFjzfLdGeDpOiP +JbaLNWHXhktdAt3FIOqiX6+w2AQWDEtn/+66DHEHC6VfqdlBX71d+HhXE1xR +/rpgjpo3WKgMvhntegqfs0rG3yuHwe8u/WMjXe8h4r9kjqv0Hmg2Kyt5UjwG +uuc7/7ixj4B8X+2nzep/ocrLEjhvjoNkiM+l2WYC2C08KZdz4wxkr7Cos3MS +Qq/Q+j0xvsXwMm954+h8UUx7mlafsO08HCxJfMwvuwB5utOP6wMvgHRu//6c +MxIocDNJ+xx/Ocgsu7r3V6kEhmv+yK8QKQe5pvREL1oCO8b5f9OS5aA4smSn +WrMEFqzYlX+JUw6qayN86z5LoP56lTWbbMpBZ+ZfvX4dSfy797b1q6xyWB8l +9UH7viR+0vpJT8lWwD5Ha5OnkwsxpUJ8kJavBLnqdjn+GVJoJhrnIK1aCVUS +jj9XiEjh01w6I1qjEl489aaPKklh5bYGd1WTSlCxj6LsraRQzWttvJ5PJTSt +K5jVkS+FGwL3f9AorIS/FhPtj4yl8VEI3+5ghSrYYVDk05Yigx03bMWnZvLA +plBs3PaQDO6YlvzgJsIDanZCRvsxGdzc77akegEPOjqdmWcXZDD+EL+oqyIP +NCPmCvS2y2AB742Wlz4PPpdGl/6Qk8Xwmr1FnoE88JS0G1p0RRZ9E2bEaN7j +gU58XfLZelk8Pqqh8/oBD+a8XyzFvieL2sFr3fc+4UEtTwA4L4mNe742v+aB +lG1t1vJ/sphbMSzDN0biJ6vomtvKYWTR6Gq9eTSs+T4VF9Yvhz/ovksHVtEQ +a5W79PY3OTSZk3552pCGqiKNHolJOcxyCxbZxqVBxtHXoFZoEWakSzAmq2n4 +dv3uTwHNRdhhOPCwxZaGnJSsqPyYRYj1m+zdvGl4v5ATdkdUHk3itwjHJdMg +Hd6gIC0tj5qSds7HUmlY2+r6KIglj1UhXZOVaTTUxB1Un6cjj9ErbXW69tNw +oG9k0M1VHqs3mJ4RzqZB+2Ld1u/F8ti3U8BxuIiGZGP7TXKrFFBPlbPlegMN +Vt5nf+ivVsCrnJIvJbdpEEv6muq0VgFlA06uy2ym4XRzWmmWrwLi3/+uubTQ +cN3mxtdZ+xVQu8lK8W47DSOuyrvGXirgNr/hiDlvaLgWFzF7wQcFNFxToXC3 +l4Y9p2/maQ4r4KdvB3kJb2mY+9alLohfEWvWTae+76dBbeshvrdLFdHpcPev +jEEavHdOHHgYr4ijFfE+pj9pUD2xWn4wTRE9Tk2l3//1//U7Ujk7SxF1eFr5 +G6ZoiPuzpGN1iSKuGMHEjX9pOJbqvbD2oSLKhz311BVg4OHRloLzCkoYeknr +2mYxBgyr8qv3NCjhleH+91EUA2u62v8OtyphbmhnaoYyA3Z8My19niqhk8Cx +5HwVBvwcwl7CRyXU9ZI/doXDgEU8OzFJkIXqM5LVWpcyEKE0ec50GQtdZxc7 +7dBmYOJKVutvLRYKftk17qnDQJzVsiFGl4XjhjcnzXQZSNvuq0eZsND6oKfa +HD0GTjbfb+W3Z2HsEq55tAEDd7YWDDXvYqGsl2V3JzBg/cdAPCGehVRtW38u +MtCe1amnm8TCoYT/3BxMGXhZK5xUsp+FFc/9M+6uZmBYJEo87TTJ7/rhqUPm +DOwoFNPnFrHwH59Q0CoLBn7pXvSYOM9CudR5Fu+IBbx7SwJ4LNSeuLVumRUD +MrSVvkUTC22FMosKbRg4s6bf4797LBze4pmtb8sA9XJ3Us0DFjb1Xp94QKzB +f6WN85yFzy6rSQ2tZWC1o4Ln7M8sXFJt93D+egZaPl9LavhGnu+f9skhXrvb +4Xz0KAs9mz23SWxgwKV03/DAFAsNEt0/itgzEPJrNKlVlI27hlam9jqQ77V9 +i9QncTY+chmZ4byRAaHBnnIBGTbu3PHqwH3i86+aX5hQbMxpE711yZGBKMdV +IZ5qbFw2VRck5UTyeVQxI06djfYtgVQice+tY+pX9dioXZx709KZgQr9OU1P +jdg4+0lSURlxHL3HZQTZeOGN+bGZLgxIFW9NWWbLxvlGXN5V4vVpBt1FPmys +Wmlye9yVAcX/KkMb/Nk4xLFexXVj4NsuSuBNEMn/t+DdFOKMQBFNmSg2PhTJ +ogTdGXB+l9i8MpaNNw69HjclVnEfd924h406ES/74okbbd+kZmaw0XPWV/4B +4sw79rIVh9m45MNeYxkPBjy596raskn82JdHLYiX1hiuGTjBxtgVlQKRxL81 +eS9nnmHjteV3s08St5Yph1PFbGxxHoBG4uOsvJlYxsY84x6RfmL//LknvSrY +aKIb8JPfkwFt8WSteIbEt9ogwCLmOzhxJ6+GjeeN/JcbErcLbHOvqSPrmbEt +0Z74dELv92eNbDzlozEaQBw84ZA2epeNhhej06OJDcNa5OY9YGMP/0JMJxYa +MKLVO9iY2/BEMZv4hQ9tbvOcjX4DccqniEu6VV5t7WFjmV6vXRFxpH1+RFof +G08o3C8qIcb7orPOfWBjTYOownliMbOUU41f2OgyFnO7mPhN3eTy3mE2zjR9 +feQMcYVu8L3pMfJ9+4X2HyOOq+zzkP3Nxmd3OioPEFtxHEf1/mNjesqsfwnE +UgWt6Y4CFLoG7t4dQvxBmisfKUShYqTwUjfiy1kMc0SUQtomUdCMOEmYY1kp +TmGYbfX8pcTrU06+vi9NIS9+z1oxYsVpscjP8hQaZVXXfifr/W1H6uxZFIW3 +BjXc2okzAkK0TdUpPOVkq51K7Nz7tsV7BYXf9haFuhGruDh5JehRKK5f0KtO +3GhlknENKbx+9Y//g//Xx+3LCs/NKbz5QyLhOLGnodqVHzYUpmebPvQm/r1s +fq+GE4Wx0s6LBkg9Tp6RS9Zxp/Bjzpd1F4jH56mqGPhQOO9c+YstxMNjBtvW +BFEYUCQy/IrU99eANaI2YRQ+Vt64J5v4c5cdvX4Hhbu85QMtiN/X+U2676Zw +qOqwbSnpjz6NsHzfFAo3yHywcCB+XRBjvGUfhdJvZQqmSX+9SD2csv0ohU/L +koIsiO/bXhPLOE9hdoLSnnrSvy03bzOHL1HYqWQUs5H4jtZDxxwehYLhc14M +kH6/JfHu5NlaChOKDRqFiC+/mqN29RGF50RXbF1G5sfJYG94P0Gh2cN5d8bJ +PDrxJvD9wBTJr9V582bi3PU70ob+kfdLC4x8ROZXpk7Gg1/Cyji4PO3rKTLv +UqYZl3mKyqj24bu7HJmHwQcFI4wtlHHsyqWpM2S+Bv6dJ7HaVhn1moqpfjJ/ +t4TL1VhuUEY6ctYDVWLfjVp/HNyV0Y/vQeE5Mr8dF7llBIUpY8HzhLhkYwaM +yysKjx9XxjMtzbX3VjLwilVeYH5KGWeZRlaNkf0h7vjFs+MFyhgfNp6qSHwt +ufS0w0VlFFHI6Qwl+4u2a2GeWL0ymusspsY0GVgimJuV/k4Zn6vZKuWrkfr1 +iU/apa6C0xE6q1ylGbjaGZuoukIF5XfwPVktRfKxidnTuVIF7R6a+i9byED2 +yp0J2qCCG2KCd0+KMyA6Nzxm2F4FR3nbj0aR/XJm7eaILdEqKPaCb2q+IAOj +4ja+zk0qeHTA91LHCA3dIVTHthYVDFREG5/vNDTem4LEhyr4PPzfha9DNGTF +lStdeKGCvnWJZX/J/r78/dy+34Mq2H5xTcusjzSEMY+9zkioYva1nxlV3TQM +rnfy+OCvim2bSKPeouHDIV/nyNkcpGrO6YeS80/YoDq1fC4Hgx4bSR0n56Of +lr+HhuZzcB1Hh3szkYY5AtlpQXIcrCidGzgrgcSLba721eDgR9b8tXujaNgd +wJFYv5GDVrlzlbUCaJAy+fZ4WQEH1f+darI0p8H6e7T1Rz01VL588fMNPnLe +8BPaUZ24GB186qZEmCryfyDNv69pCQavN+z0N6wE8UecTPr7UjTdPKRXeLMc +5DN4G/T01DFJILEqd/YlyFtmMF9iqwaWVMnVVXtfgPtypivHjmqi+fC7Zuma +UjCUb8rSeqGFj68Fj3kMlICYQHHUppTleMT/bOE2o3OgmKxk7MZZgdLlJwRy +dhaBsKpnjUPLCqzmsTYKZRaAJleWF+2ljZF+bdB96DRE9oo32/DpoEbZJ+rH +znz4PnbIyTpPB5fKn1dLajwOllr3Tlpr6KJFTXhhrHku3Bozmv7Zrou9kWZ1 +G1qPQpi6ds+TgJXYvs7+s5PdEeAO+3e6Cevh1qyrPdaLDoK5isw60WI9DG3M +D80+ug8WJx2IadLXR9W+UBvzyL2wNMCgQbVHHx8Hn3RkQpMh4Fbg3urtq1A8 +c0Gb8Nvd0FDY6T+60ABLm6YX1FOxMH7h30+tawaoc/d+bIjMTvBTLRc+uc4Q +u+drP5B+th1Gl+boXR4xxPERkzbN/aFwvWT63USGEfaqS1oolQWC+xplNFI0 +xnrH0Kjth/1hUei+Ws1GY4yZKNewbvWFzH9bVh5sMsa5ZYFl4XW+wJ9twQzc +Mca1XY7M2SpfGKwRvFjYZoxH1Lf6SR3zhRt8e/PEnxljR0JMY/BmX3DPTYqe +/GiMr06/uOf41wfy6mJX3hLhoiA77wAvzhsWzglh1rlw8Vn0jYM/SzygxGx3 +3IgbF4f/lO68fcgDtHdnmuV4crHMs+rXmSgPsBuhn3dv4mLAfbdTmWs8IP3F +xG+/EC5m11iKrvvoDr+KE1fHJXOxn5e5V3epO/QY5TwrLeeih5RPq9dtVwjc +WXLauoqLwjcx27/cFSarrgZ8o7noSr3LSDjmCuJU988VNVz8clOmoy/IFWyF +FORvNnLx6OLMo5ESrlDfWer/7DkXr9p8sm4IcgEbsesau7q5+PhuWe0zRxfo +tmyblHnFxcJ9lmW/wAXGb3zN8H7LxSVmkk92SLmARtHyyi+DXNwjkKuteccZ +6ntMdx0a4uIcwS7/uzxnsJHcCFojXJQs92gIOeUMW/btfBI1QfIVvd70NdIZ +xhvTT0r/4mLqLD/nZm9nSJk64XdjiotWSpMDl2ycYb7uRXWvv1zMUxwIKdZz +hrOhNyb+/eOi2QW65yLlDP8D3tojRQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06781990012473113}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06781990012473113}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939179034889174`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"bf8340cf-ac2d-41c9-ac91-a40ad1d0235d"] +}, Open ]], Cell[CellGroupData[{ @@ -2113,11 +7829,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ -fe19384187c3"], + CellChangeTimes->{3.991850610344879*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[BoxData["11.362948830550343`"], "Output", + CellChangeTimes->{3.9939179035257998`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"6eb6f898-b774-49df-975b-b234cf3515e1"] }, Open ]], Cell[CellGroupData[{ @@ -2173,416 +7890,481 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\ -77ebd1a3e048"], + CellChangeTimes->{3.991850612616415*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.769674070819391`*^-251\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 101, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939179036302967`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"7b46f320-1062-49fd-8130-a5af748991a1"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"05911c33-7605-8b49-a7ba-7fc8c8f30741"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.291413536108342`*^-260\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 102, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939179036378393`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"ccaacaae-864c-4e6e-bcf8-0cc8306fab3a"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.885364037292191`*^-269\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 103, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993917903647402*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"792f9c3f-21df-463b-9bbe-8ad64347163d"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 12.2218 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .13693 -24 -4.5 ] -[.01131 .13693 0 4.5 ] -[.01131 .25915 -24 -4.5 ] -[.01131 .25915 0 4.5 ] -[.01131 .38137 -24 -4.5 ] -[.01131 .38137 0 4.5 ] -[.01131 .50359 -24 -4.5 ] -[.01131 .50359 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .13693 m -.03006 .13693 L -s -[(0.01)] .01131 .13693 1 0 Mshowa -.02381 .25915 m -.03006 .25915 L -s -[(0.02)] .01131 .25915 1 0 Mshowa -.02381 .38137 m -.03006 .38137 L -s -[(0.03)] .01131 .38137 1 0 Mshowa -.02381 .50359 m -.03006 .50359 L -s -[(0.04)] .01131 .50359 1 0 Mshowa -.125 Mabswid -.02381 .03916 m -.02756 .03916 L -s -.02381 .0636 m -.02756 .0636 L -s -.02381 .08805 m -.02756 .08805 L -s -.02381 .11249 m -.02756 .11249 L -s -.02381 .16138 m -.02756 .16138 L -s -.02381 .18582 m -.02756 .18582 L -s -.02381 .21026 m -.02756 .21026 L -s -.02381 .23471 m -.02756 .23471 L -s -.02381 .2836 m -.02756 .2836 L -s -.02381 .30804 m -.02756 .30804 L -s -.02381 .33248 m -.02756 .33248 L -s -.02381 .35693 m -.02756 .35693 L -s -.02381 .40581 m -.02756 .40581 L -s -.02381 .43026 m -.02756 .43026 L -s -.02381 .4547 m -.02756 .4547 L -s -.02381 .47914 m -.02756 .47914 L -s -.02381 .52803 m -.02756 .52803 L -s -.02381 .55248 m -.02756 .55248 L -s -.02381 .57692 m -.02756 .57692 L -s -.02381 .60136 m -.02756 .60136 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .10806 L -.10458 .20681 L -.14415 .29388 L -.18221 .37017 L -.22272 .44131 L -.26171 .49847 L -.30316 .54591 L -.32392 .56431 L -.34309 .5781 L -.36173 .58858 L -.37125 .59283 L -.3815 .59658 L -.3917 .59947 L -.40103 .60141 L -.40552 .6021 L -.40789 .6024 L -.41042 .60267 L -.41284 .60289 L -.41504 .60305 L -.41725 .60317 L -.41834 .60322 L -.41933 .60325 L -.4205 .60328 L -.42174 .60331 L -.4229 .60332 L -.42399 .60332 L -.42526 .60331 L -.42644 .60329 L -.42773 .60326 L -.4291 .60321 L -.43163 .60308 L -.434 .60293 L -.43941 .60241 L -.44405 .60181 L -.4483 .60112 L -.45788 .59913 L -.46769 .59645 L -.47681 .59341 L -.49751 .58461 L -.53655 .56157 L -.57805 .52937 L -.61803 .49268 L -.6565 .45377 L -.69742 .4102 L -.73682 .36757 L -.77471 .32713 L -.81505 .2857 L -.85387 .24819 L -.89515 .21147 L -Mistroke -.93491 .17954 L -.97316 .15219 L -.97619 .15016 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf -ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v -9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ -9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg -5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv -X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql -oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD -HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV -i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 -Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy -oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE -PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl -aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o -znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj -k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD -PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF -lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR -ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD -JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U -OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 -hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC -LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN -LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr -hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM -l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 -AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 -poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 -EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F -gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn -eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo -AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka -21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U -uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 -W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn -yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH -bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S -mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO -jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP -4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl -sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS -NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq -i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ -B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz -wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA -LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw -S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo -YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs -QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH -sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE -BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn -2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp -F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE -di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC -z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk -BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA -Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN -CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ -XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 -ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI -3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 -Ww==\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-3.23234, -0.00443741, 0.118269, \ -0.000307202}},ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 104, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939179036558657`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"4a8cc64d-1e92-4633-8da4-1d22138e0b03"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ -baecb9a57d9b"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Ff0XAHBvKlGWyHaz3Dv3WipLhLJc5yQiWmyJrBHSgiglypYoQlIk +peTVhju3xR5CIYWfkCVE3hZFkV3ym/6a5/PMM8/3nPOdc74zDHc/a89FPDw8 +/P/w8Py9TvbW17Disg3rg8Z40+fBsPWmVPDmjkhovkZLc7eXBRRvcpfqSIbd +yyyz5e1VIcjywTvejiywqj9Z82sPG1aOSCbPvHsEj97Q2E/27IC+sp1+4++q +wJq3S27Ezhm2soZ6Rt+1QKD2g9ZRmyMw827jlZ/vBuD2h7q8lWanoXrL3ez/ +Zf0CT/c6Hb/tCSDTV/zJXWUeThp1HDlrdBVWHXZ9wLeFF29uijJNH8+AZI2t +pTt3L8PnTkW+1V9uQ2fa+spREUFc3Z0UcGEgG+Kyw5oWSa9Ex0N5+jxv74Jk +ysfzl2+IYXzognC0xwOIsd1m2DIpjmtKFOo5J3OB9qSRtugfCSysbN/BH5EL ++WK2UxrLJXCbqspnp/O50N7iQl6Sl8Ba4xGbsWu5wLI6RliZSeDyG95zbSW5 +ULUjc2nzNQn0tM54GjaXC/NbJxrfGEiisI9Oj93JPAjUve1aHymF52OyWodc +88H8ltC4RbwUhtx6OLfTKx8IvtDYxitSOJvv1ZJ3OB+aW+24b+9JoQoRfNEx +OB/U/Ffw9jZKoaSk6PoTyfnwJedEzhhNGitfrH2fX50PTqt2Dq9+LI0FKVF1 +sgQHNoSURtwsk8aSeY7FOyUOCAwoSzBeSmO75r3jcaocKObwgmKnNB7JNH72 +cRMHJCyKk9YvSOM83xkJ210caI5gaZlY0HBowqN5QwgHjH/MnvL9SMODITy5 +I40cCDZLWfv8Ow17heY8Pr7lQP5t1S6xSRr2zNlMtHRwQMrWTbd42WrUvaiU +nTXAge9FL6Z41VajtV2z5uJJDlyOTDp27eRq7G3eJPRFkIQBcUXfGkEZbI/i +a3uhQYKkX4WspKQM3vPZ0Ta8gYTtdfZvfOgySDrkbBHTIaHgVJyK8AYZpN8c +OminR8KFvp9DDvYyyMqx/vTMiATN+6XeP7JkcF9D8N2VNiREGFjto22SRf4+ +S5U3R0kwc7k5ttFIFoM1u+ZeBZIgFP4tavd2WVy++lb9i+MkZFRH5yS5yaJs +brnbo2ASisxLvi09L4vfDkRFeUeQ8NOeGfSrUxaF5sebNieRUHjKn2/loCzK +X/0nUziZhDMZz9LURmRx4wLLv+syCSs+7Cn1WSSHvf4vpL1TSVDyjuf5sFYO +F+VqJDvdJMHl+MSF1yFyuN/jsX3RQxIUUo1khqLl0O1swCG7PJKqX2IeX5Ic +Pjf4J3o0n4RTv9c0G2XL4fVrnW/kHpFwJcpFvPi1HP4+U1Kxu4iE15dqM/+V +lcf+ZQpHtWtI0Mu/9uRMhTzeCX98o7yTBON3jfMjdfI4K3Pox5cuEnbyLDZ1 +bZHHrMTGJyLvSfCw9u2E/+TRMfH3dfteEraGMMLCl9BxAZr/qx8gwV9+8s7m +dXTs+61apPmNhInHSXUz6nQUjUny0/pOxWe2bpirRceO2MBbG4ZJiD7qpkMY +0vG8rIn/2h8kpFe/qltkRcdd3/60zIyRUOOdOVwdREej4IV5+VkStv3WFQ0N +oaNhwNvQGcqNSa06WuF01O5PCWmeI6GzmD88+zwdTzYkzgbNkzCy/JhodAYd +A0tsBHJ4uCBFmm3cWkXHIMb+lvilXLhh/NHxz0s6LjVpizLk4wLReTq8oIGO +rzu1yoYpqy56XK/YRkcBj8vVxvxcMLKVdeL7QsfHF4p125Zz4fD0aHidIAPv +ZHaohItwQe+ol8QnUQYeeXV4qcRKLiwb6nrIK8XAVYLS/9yn/G93dbshwUBD +tr7TS1Eu9JZfUXmqw8CMJw6lvau4kLtRoKpFn4EH6504zuJcOEWe2fMTGVi6 +PKG+k7JElnfkOgsGPlBeFVgvwYVd0bodt10ZaEDjyzsnxQW5P3lHKvYzcGVD +4+AI5e9BBG+PDwPti/nNbKW5EHtguZrUMQYWXDl/WYLGBbv+sGrtYAbeClA+ +HUiZtXfc3uYMg+qvkZQ3lCsteqISYhmo4/zQKng1FxJqrKRzLzLw+dw/068o +O7Ff5tcnU/FOGTZJy3BhRo3TufgGA7cKbxDjUK67y/QjshiYf3RXxATlq/S0 +xXiXga/LZJi6slzQFI1QD+EycIl5xuIiyjxxEzVpBQxM8y42+UW5kffg3oJS +BvYynZ+tk+PCoQnr6NEXDBRoELdJoaznW0sTbmDgOcnrATWUl33WJ1WaGdhX +E9MwSjm7g9Xt3cXAqbgwFWN5LgRYXfOP7mPg2jM8Oj6U8ZXg0juDDKRFtIbE +URbaEnm98isDd2gW/XlAuad0cn3vCJVv94GKWsq5Wodezv1ioHdgdnk/5VN5 +fY7SMwx8mb5mfpqymaLtqM4fBm6/WRgiSKf2K7PunC0vgdPHhPTlKQ9KsmUC +lhE4WDGir0b5URKXmyhIYGa9dJge5XB+RdM8UQJ/RFstMaa8KzL9/StJAv8k +2TeZU5abEwr4IkOgqfpYz07K3wOj+JYSBBZtH9CwpFzyfSqDqURgYOhww9/7 +sZ6HNTerEMie7sj9+7xd74daFw0CxzIPtm2hzNqz2zlUh0D6zIGtf9cfa6of +u6ZPYLDadZ6/8VWaGcYWIoFewvWL/8af8PyRbJsJgaHCpTZ/83PSU3o8Zk7g +FxO9kb/5r3183UzEkkDaEZG2v/WZWSfSq7qbQJMBPv46ypM3aBEb9hKYpnda +IpfyuLACS9eVwGbd23EXKY9GqNca7ifwgqy2z2HKI790Dxr7EFhVNMsxo/zN +01jQ3JdAg8AnbgTlL+92krsCCWRtUwidofZ7oNRjcu9pAu1W609mUu5T9b3m +FklgzegBOz/K7zNPGnjFUPmmurIMKLdHXYw8eomq546KFY3U+/Z2IlXhxFUC +peufKl+m3OydVRd6ncDhL4lPd1N+ZVEoFPsvge10EYW31Ptc++w59+IDan8U +zPgTKNeov7a9zKHyuxezbyvlcrH+9JvFBG4iTI9yqH551C2g9PQNgYLPV7A8 +qP7i7BB/VdJCoPCd5+X8lHMr5I9UviNQefuHt3lUv+bc0Xrc0E/g6hNX/f/2 +c/ohFxiYIPDScPYFK0kupPYcGPg8S6DilLvwIDUPUnYFRg8vEBheISx+jHLC +htiGaX4mbqdH5sRT8yNyjrtHWI6JemEL05liXAg7Uja7isnEDiXPDDnKoX0v +b9CUmfjJxK02nZpPQdXdHxU0mcgWOlYYR82vQ3FL/A22MlEyqkTSUpgLB+aF +xYwsmBj801+4VIgLXn60AlNLJhrZn73CpOxmo/7bei8TF7urWw6v4ILtaodY +H18mklKcVA8BLhg8zL119SoTU4aeaLxfzIVu+sNMk+tMjCheoqFK+dTV+zfH +M5nouB1kQnm5UBiRk2F9n4nSKjuKxRZR88P+VppQGRM9zwkQaxdIWLMkJelc +PxPL/xu0HJ8moe5UcqL2Jya+8a/1ZFH2+pmUMDjERLxrEGA9RUJ298V4o3Em +mvu3Hbs3QQL9UUzsn6UsLPdM1Dagzh8J15DwIBUWNkP+dl7qPHvaGhymoMFC +bxtTLbEhEmzNT55p1WbhoHqAPOMrCcnax0M1gYUf18XybvxMguAKv5MjViyM +bRWVsvhIwuJid3+vEyy0b0+UE+8mYVTU3M2uioVadTIiOvUkdBwmmg/WsrDt +s7fRSC0JlS9nIew1CzN7Z/SzX5KQdOqh/L12Fqac5T3PT53f6wdW9M0MsVD5 +gd7d4nISfLlNzjfEFPCpZlMn+ZiEoV27HQf3K+Cm/iS7RRkktNxXbZj2UcDv +s2X+x9NJKOFdqi/op4CBhR6Bn9JIOF9YQNMJVkD2GWedqiskKMtLdcVcVMDI +2eJmt0QSvEe67NcVKCC/xhsT/UgSBuPd7AL4FNFh28TTw17U+kMqxPoVilhx +NenFs/0kTJnODA+LKGJPUyJd0IMEAd7kaB+aIr6QMSvLcaXiD65+4qaqiDxD +8Xde2JNw2lNRbJeNIj5f5j7zyJyqv+H3pnWZihgf2S9grUqd/z9ObPtPRwmN +f/etvN/NARkNuXPLDJQw0SmhR+EdB0YCaqrWbVbC8KyY9ZktHEiZFDEIsFBC +v8bK4zH1HOidv6+24KqEgZ4KFWqFHAhY8V5M+rwS7pkH565LHEhfg73bu5Vw +IdtuZ4Ex9X3qsSzwSZgyTt1b+WbJ7Xzqf0VyUUzVGvwo0hpNgzwQfaOYQP5Y +i/mT9uqc1ocgE8ux1NFRwZV+o8tFNB5A2jpdETFvVRz1/AZFqffgFW2z9q9L +aihPW7w56XcO6MlUJam3q2NAsniFud6/IMSbdWxf5HpM9A3qHky9A3IR8gYO +iho4U4wttK7bwK/gVGBdq4ETm1201DRugRpbmnPCWRN3f+PxbPS+AQG9otXm +PBtwpPWJ4RrbdPjxK373trQN2DtERrvfTAVT9Zfp21S1MPj40vd69CtQ/kt/ +bqpRCw3vZ/NNZCSDr4pm1/88tbHUWNBqKjAJ2CP7Wx34dVDlTNRB4lY8mLCk +dghm6eC9r8pT9jznQTn8wsmqjRsxb05NMaM+GtZ66lYodG1EO8sWXvsHkeBZ +fuDsk6ObsMwrUGODWDhU3GrdPyqui6q1F9mfNEJg/N7ClHqhLl4hhqsCx4LA +Q+Ehf/oOPexpf03bcjoQRtde1nn0Uw8jJz927GP7Q1H2XP9ErD5++HqQj250 +CPYaM1FfzgArJcpmD3Z6weojMcVqlQZoMu7xv2Mv3CFhwUs7rsoAJXh1ZKMK +3WFR8lbu5xoD7Ak47ZZ+3x2GCpbcv1VvgEJPWaUfL7pDCc/ZNNG3BtgpuXZz +v5077E0JPzH5nwHu/qySGjW0D9JKg7XLl7Mx2vv6NxOpfSAucJi7Yw8bv6bv +j7ks7QrZW06f+unARu7XgQyFBRfQPJ2w5bITG7d9H7JoGHSBnT/JNioRbCrK +NLUiXeBc+8SMx2E2Ki9vOLLVzAWms8KMTkWwsVNAz6QhxBm69C+/zXnIxs96 +eXEjPx3hwPHsjG35bHz/YJ9XT4cjTOY/9fxOsvFE5b5DvZWOIEp0TGkUsPGh +0oVaiUuOYLFMVuZZJbX+uHOSq6YjlLXm7H/bRsV/fZprenIvmAsVqQZ1sHHG +d+C3zb690GFaPynVTcVfpfv8qPleGC/5FuvygY0qY6kX+mX2gurt9Xlfh9ho +ye3/kVTlAGVdm4Pih9m4S+Rzm1KuA5ivsgH1n2wUW7jR23TFAbxijv/v2AQb +D7+XUrXxcYDxynPpktNsHN6131nNxgEiZ1M9SmbZWOnsH01jO4CI1n0V53k2 +zrHi0yWVHODmkZKJhQU2mlstT1ZY6QD/B6++csk= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff0XAHBvKlGWyHaz3Dv3WipLhLJc5yQiWmyJrBHSgiglypYoQlIk +peTVhju3xR5CIYWfkCVE3hZFkV3ym/6a5/PMM8/3nPOdc74zDHc/a89FPDw8 +/P/w8Py9TvbW17Disg3rg8Z40+fBsPWmVPDmjkhovkZLc7eXBRRvcpfqSIbd +yyyz5e1VIcjywTvejiywqj9Z82sPG1aOSCbPvHsEj97Q2E/27IC+sp1+4++q +wJq3S27Ezhm2soZ6Rt+1QKD2g9ZRmyMw827jlZ/vBuD2h7q8lWanoXrL3ez/ +Zf0CT/c6Hb/tCSDTV/zJXWUeThp1HDlrdBVWHXZ9wLeFF29uijJNH8+AZI2t +pTt3L8PnTkW+1V9uQ2fa+spREUFc3Z0UcGEgG+Kyw5oWSa9Ex0N5+jxv74Jk +ysfzl2+IYXzognC0xwOIsd1m2DIpjmtKFOo5J3OB9qSRtugfCSysbN/BH5EL ++WK2UxrLJXCbqspnp/O50N7iQl6Sl8Ba4xGbsWu5wLI6RliZSeDyG95zbSW5 +ULUjc2nzNQn0tM54GjaXC/NbJxrfGEiisI9Oj93JPAjUve1aHymF52OyWodc +88H8ltC4RbwUhtx6OLfTKx8IvtDYxitSOJvv1ZJ3OB+aW+24b+9JoQoRfNEx +OB/U/Ffw9jZKoaSk6PoTyfnwJedEzhhNGitfrH2fX50PTqt2Dq9+LI0FKVF1 +sgQHNoSURtwsk8aSeY7FOyUOCAwoSzBeSmO75r3jcaocKObwgmKnNB7JNH72 +cRMHJCyKk9YvSOM83xkJ210caI5gaZlY0HBowqN5QwgHjH/MnvL9SMODITy5 +I40cCDZLWfv8Ow17heY8Pr7lQP5t1S6xSRr2zNlMtHRwQMrWTbd42WrUvaiU +nTXAge9FL6Z41VajtV2z5uJJDlyOTDp27eRq7G3eJPRFkIQBcUXfGkEZbI/i +a3uhQYKkX4WspKQM3vPZ0Ta8gYTtdfZvfOgySDrkbBHTIaHgVJyK8AYZpN8c +OminR8KFvp9DDvYyyMqx/vTMiATN+6XeP7JkcF9D8N2VNiREGFjto22SRf4+ +S5U3R0kwc7k5ttFIFoM1u+ZeBZIgFP4tavd2WVy++lb9i+MkZFRH5yS5yaJs +brnbo2ASisxLvi09L4vfDkRFeUeQ8NOeGfSrUxaF5sebNieRUHjKn2/loCzK +X/0nUziZhDMZz9LURmRx4wLLv+syCSs+7Cn1WSSHvf4vpL1TSVDyjuf5sFYO +F+VqJDvdJMHl+MSF1yFyuN/jsX3RQxIUUo1khqLl0O1swCG7PJKqX2IeX5Ic +Pjf4J3o0n4RTv9c0G2XL4fVrnW/kHpFwJcpFvPi1HP4+U1Kxu4iE15dqM/+V +lcf+ZQpHtWtI0Mu/9uRMhTzeCX98o7yTBON3jfMjdfI4K3Pox5cuEnbyLDZ1 +bZHHrMTGJyLvSfCw9u2E/+TRMfH3dfteEraGMMLCl9BxAZr/qx8gwV9+8s7m +dXTs+61apPmNhInHSXUz6nQUjUny0/pOxWe2bpirRceO2MBbG4ZJiD7qpkMY +0vG8rIn/2h8kpFe/qltkRcdd3/60zIyRUOOdOVwdREej4IV5+VkStv3WFQ0N +oaNhwNvQGcqNSa06WuF01O5PCWmeI6GzmD88+zwdTzYkzgbNkzCy/JhodAYd +A0tsBHJ4uCBFmm3cWkXHIMb+lvilXLhh/NHxz0s6LjVpizLk4wLReTq8oIGO +rzu1yoYpqy56XK/YRkcBj8vVxvxcMLKVdeL7QsfHF4p125Zz4fD0aHidIAPv +ZHaohItwQe+ol8QnUQYeeXV4qcRKLiwb6nrIK8XAVYLS/9yn/G93dbshwUBD +tr7TS1Eu9JZfUXmqw8CMJw6lvau4kLtRoKpFn4EH6504zuJcOEWe2fMTGVi6 +PKG+k7JElnfkOgsGPlBeFVgvwYVd0bodt10ZaEDjyzsnxQW5P3lHKvYzcGVD +4+AI5e9BBG+PDwPti/nNbKW5EHtguZrUMQYWXDl/WYLGBbv+sGrtYAbeClA+ +HUiZtXfc3uYMg+qvkZQ3lCsteqISYhmo4/zQKng1FxJqrKRzLzLw+dw/068o +O7Ff5tcnU/FOGTZJy3BhRo3TufgGA7cKbxDjUK67y/QjshiYf3RXxATlq/S0 +xXiXga/LZJi6slzQFI1QD+EycIl5xuIiyjxxEzVpBQxM8y42+UW5kffg3oJS +BvYynZ+tk+PCoQnr6NEXDBRoELdJoaznW0sTbmDgOcnrATWUl33WJ1WaGdhX +E9MwSjm7g9Xt3cXAqbgwFWN5LgRYXfOP7mPg2jM8Oj6U8ZXg0juDDKRFtIbE +URbaEnm98isDd2gW/XlAuad0cn3vCJVv94GKWsq5Wodezv1ioHdgdnk/5VN5 +fY7SMwx8mb5mfpqymaLtqM4fBm6/WRgiSKf2K7PunC0vgdPHhPTlKQ9KsmUC +lhE4WDGir0b5URKXmyhIYGa9dJge5XB+RdM8UQJ/RFstMaa8KzL9/StJAv8k +2TeZU5abEwr4IkOgqfpYz07K3wOj+JYSBBZtH9CwpFzyfSqDqURgYOhww9/7 +sZ6HNTerEMie7sj9+7xd74daFw0CxzIPtm2hzNqz2zlUh0D6zIGtf9cfa6of +u6ZPYLDadZ6/8VWaGcYWIoFewvWL/8af8PyRbJsJgaHCpTZ/83PSU3o8Zk7g +FxO9kb/5r3183UzEkkDaEZG2v/WZWSfSq7qbQJMBPv46ypM3aBEb9hKYpnda +IpfyuLACS9eVwGbd23EXKY9GqNca7ifwgqy2z2HKI790Dxr7EFhVNMsxo/zN +01jQ3JdAg8AnbgTlL+92krsCCWRtUwidofZ7oNRjcu9pAu1W609mUu5T9b3m +FklgzegBOz/K7zNPGnjFUPmmurIMKLdHXYw8eomq546KFY3U+/Z2IlXhxFUC +peufKl+m3OydVRd6ncDhL4lPd1N+ZVEoFPsvge10EYW31Ptc++w59+IDan8U +zPgTKNeov7a9zKHyuxezbyvlcrH+9JvFBG4iTI9yqH551C2g9PQNgYLPV7A8 +qP7i7BB/VdJCoPCd5+X8lHMr5I9UviNQefuHt3lUv+bc0Xrc0E/g6hNX/f/2 +c/ohFxiYIPDScPYFK0kupPYcGPg8S6DilLvwIDUPUnYFRg8vEBheISx+jHLC +htiGaX4mbqdH5sRT8yNyjrtHWI6JemEL05liXAg7Uja7isnEDiXPDDnKoX0v +b9CUmfjJxK02nZpPQdXdHxU0mcgWOlYYR82vQ3FL/A22MlEyqkTSUpgLB+aF +xYwsmBj801+4VIgLXn60AlNLJhrZn73CpOxmo/7bei8TF7urWw6v4ILtaodY +H18mklKcVA8BLhg8zL119SoTU4aeaLxfzIVu+sNMk+tMjCheoqFK+dTV+zfH +M5nouB1kQnm5UBiRk2F9n4nSKjuKxRZR88P+VppQGRM9zwkQaxdIWLMkJelc +PxPL/xu0HJ8moe5UcqL2Jya+8a/1ZFH2+pmUMDjERLxrEGA9RUJ298V4o3Em +mvu3Hbs3QQL9UUzsn6UsLPdM1Dagzh8J15DwIBUWNkP+dl7qPHvaGhymoMFC +bxtTLbEhEmzNT55p1WbhoHqAPOMrCcnax0M1gYUf18XybvxMguAKv5MjViyM +bRWVsvhIwuJid3+vEyy0b0+UE+8mYVTU3M2uioVadTIiOvUkdBwmmg/WsrDt +s7fRSC0JlS9nIew1CzN7Z/SzX5KQdOqh/L12Fqac5T3PT53f6wdW9M0MsVD5 +gd7d4nISfLlNzjfEFPCpZlMn+ZiEoV27HQf3K+Cm/iS7RRkktNxXbZj2UcDv +s2X+x9NJKOFdqi/op4CBhR6Bn9JIOF9YQNMJVkD2GWedqiskKMtLdcVcVMDI +2eJmt0QSvEe67NcVKCC/xhsT/UgSBuPd7AL4FNFh28TTw17U+kMqxPoVilhx +NenFs/0kTJnODA+LKGJPUyJd0IMEAd7kaB+aIr6QMSvLcaXiD65+4qaqiDxD +8Xde2JNw2lNRbJeNIj5f5j7zyJyqv+H3pnWZihgf2S9grUqd/z9ObPtPRwmN +f/etvN/NARkNuXPLDJQw0SmhR+EdB0YCaqrWbVbC8KyY9ZktHEiZFDEIsFBC +v8bK4zH1HOidv6+24KqEgZ4KFWqFHAhY8V5M+rwS7pkH565LHEhfg73bu5Vw +IdtuZ4Ex9X3qsSzwSZgyTt1b+WbJ7Xzqf0VyUUzVGvwo0hpNgzwQfaOYQP5Y +i/mT9uqc1ocgE8ux1NFRwZV+o8tFNB5A2jpdETFvVRz1/AZFqffgFW2z9q9L +aihPW7w56XcO6MlUJam3q2NAsniFud6/IMSbdWxf5HpM9A3qHky9A3IR8gYO +iho4U4wttK7bwK/gVGBdq4ETm1201DRugRpbmnPCWRN3f+PxbPS+AQG9otXm +PBtwpPWJ4RrbdPjxK373trQN2DtERrvfTAVT9Zfp21S1MPj40vd69CtQ/kt/ +bqpRCw3vZ/NNZCSDr4pm1/88tbHUWNBqKjAJ2CP7Wx34dVDlTNRB4lY8mLCk +dghm6eC9r8pT9jznQTn8wsmqjRsxb05NMaM+GtZ66lYodG1EO8sWXvsHkeBZ +fuDsk6ObsMwrUGODWDhU3GrdPyqui6q1F9mfNEJg/N7ClHqhLl4hhqsCx4LA +Q+Ehf/oOPexpf03bcjoQRtde1nn0Uw8jJz927GP7Q1H2XP9ErD5++HqQj250 +CPYaM1FfzgArJcpmD3Z6weojMcVqlQZoMu7xv2Mv3CFhwUs7rsoAJXh1ZKMK +3WFR8lbu5xoD7Ak47ZZ+3x2GCpbcv1VvgEJPWaUfL7pDCc/ZNNG3BtgpuXZz +v5077E0JPzH5nwHu/qySGjW0D9JKg7XLl7Mx2vv6NxOpfSAucJi7Yw8bv6bv +j7ks7QrZW06f+unARu7XgQyFBRfQPJ2w5bITG7d9H7JoGHSBnT/JNioRbCrK +NLUiXeBc+8SMx2E2Ki9vOLLVzAWms8KMTkWwsVNAz6QhxBm69C+/zXnIxs96 +eXEjPx3hwPHsjG35bHz/YJ9XT4cjTOY/9fxOsvFE5b5DvZWOIEp0TGkUsPGh +0oVaiUuOYLFMVuZZJbX+uHOSq6YjlLXm7H/bRsV/fZprenIvmAsVqQZ1sHHG +d+C3zb690GFaPynVTcVfpfv8qPleGC/5FuvygY0qY6kX+mX2gurt9Xlfh9ho +ye3/kVTlAGVdm4Pih9m4S+Rzm1KuA5ivsgH1n2wUW7jR23TFAbxijv/v2AQb +D7+XUrXxcYDxynPpktNsHN6131nNxgEiZ1M9SmbZWOnsH01jO4CI1n0V53k2 +zrHi0yWVHODmkZKJhQU2mlstT1ZY6QD/B6++csk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06689931123610193}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06689931123610193}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Ff0XAHBvKlGWyHaz3Dv3WipLhLJc5yQiWmyJrBHSgiglypYoQlIk +peTVhju3xR5CIYWfkCVE3hZFkV3ym/6a5/PMM8/3nPOdc74zDHc/a89FPDw8 +/P/w8Py9TvbW17Disg3rg8Z40+fBsPWmVPDmjkhovkZLc7eXBRRvcpfqSIbd +yyyz5e1VIcjywTvejiywqj9Z82sPG1aOSCbPvHsEj97Q2E/27IC+sp1+4++q +wJq3S27Ezhm2soZ6Rt+1QKD2g9ZRmyMw827jlZ/vBuD2h7q8lWanoXrL3ez/ +Zf0CT/c6Hb/tCSDTV/zJXWUeThp1HDlrdBVWHXZ9wLeFF29uijJNH8+AZI2t +pTt3L8PnTkW+1V9uQ2fa+spREUFc3Z0UcGEgG+Kyw5oWSa9Ex0N5+jxv74Jk +ysfzl2+IYXzognC0xwOIsd1m2DIpjmtKFOo5J3OB9qSRtugfCSysbN/BH5EL ++WK2UxrLJXCbqspnp/O50N7iQl6Sl8Ba4xGbsWu5wLI6RliZSeDyG95zbSW5 +ULUjc2nzNQn0tM54GjaXC/NbJxrfGEiisI9Oj93JPAjUve1aHymF52OyWodc +88H8ltC4RbwUhtx6OLfTKx8IvtDYxitSOJvv1ZJ3OB+aW+24b+9JoQoRfNEx +OB/U/Ffw9jZKoaSk6PoTyfnwJedEzhhNGitfrH2fX50PTqt2Dq9+LI0FKVF1 +sgQHNoSURtwsk8aSeY7FOyUOCAwoSzBeSmO75r3jcaocKObwgmKnNB7JNH72 +cRMHJCyKk9YvSOM83xkJ210caI5gaZlY0HBowqN5QwgHjH/MnvL9SMODITy5 +I40cCDZLWfv8Ow17heY8Pr7lQP5t1S6xSRr2zNlMtHRwQMrWTbd42WrUvaiU +nTXAge9FL6Z41VajtV2z5uJJDlyOTDp27eRq7G3eJPRFkIQBcUXfGkEZbI/i +a3uhQYKkX4WspKQM3vPZ0Ta8gYTtdfZvfOgySDrkbBHTIaHgVJyK8AYZpN8c +OminR8KFvp9DDvYyyMqx/vTMiATN+6XeP7JkcF9D8N2VNiREGFjto22SRf4+ +S5U3R0kwc7k5ttFIFoM1u+ZeBZIgFP4tavd2WVy++lb9i+MkZFRH5yS5yaJs +brnbo2ASisxLvi09L4vfDkRFeUeQ8NOeGfSrUxaF5sebNieRUHjKn2/loCzK +X/0nUziZhDMZz9LURmRx4wLLv+syCSs+7Cn1WSSHvf4vpL1TSVDyjuf5sFYO +F+VqJDvdJMHl+MSF1yFyuN/jsX3RQxIUUo1khqLl0O1swCG7PJKqX2IeX5Ic +Pjf4J3o0n4RTv9c0G2XL4fVrnW/kHpFwJcpFvPi1HP4+U1Kxu4iE15dqM/+V +lcf+ZQpHtWtI0Mu/9uRMhTzeCX98o7yTBON3jfMjdfI4K3Pox5cuEnbyLDZ1 +bZHHrMTGJyLvSfCw9u2E/+TRMfH3dfteEraGMMLCl9BxAZr/qx8gwV9+8s7m +dXTs+61apPmNhInHSXUz6nQUjUny0/pOxWe2bpirRceO2MBbG4ZJiD7qpkMY +0vG8rIn/2h8kpFe/qltkRcdd3/60zIyRUOOdOVwdREej4IV5+VkStv3WFQ0N +oaNhwNvQGcqNSa06WuF01O5PCWmeI6GzmD88+zwdTzYkzgbNkzCy/JhodAYd +A0tsBHJ4uCBFmm3cWkXHIMb+lvilXLhh/NHxz0s6LjVpizLk4wLReTq8oIGO +rzu1yoYpqy56XK/YRkcBj8vVxvxcMLKVdeL7QsfHF4p125Zz4fD0aHidIAPv +ZHaohItwQe+ol8QnUQYeeXV4qcRKLiwb6nrIK8XAVYLS/9yn/G93dbshwUBD +tr7TS1Eu9JZfUXmqw8CMJw6lvau4kLtRoKpFn4EH6504zuJcOEWe2fMTGVi6 +PKG+k7JElnfkOgsGPlBeFVgvwYVd0bodt10ZaEDjyzsnxQW5P3lHKvYzcGVD +4+AI5e9BBG+PDwPti/nNbKW5EHtguZrUMQYWXDl/WYLGBbv+sGrtYAbeClA+ +HUiZtXfc3uYMg+qvkZQ3lCsteqISYhmo4/zQKng1FxJqrKRzLzLw+dw/068o +O7Ff5tcnU/FOGTZJy3BhRo3TufgGA7cKbxDjUK67y/QjshiYf3RXxATlq/S0 +xXiXga/LZJi6slzQFI1QD+EycIl5xuIiyjxxEzVpBQxM8y42+UW5kffg3oJS +BvYynZ+tk+PCoQnr6NEXDBRoELdJoaznW0sTbmDgOcnrATWUl33WJ1WaGdhX +E9MwSjm7g9Xt3cXAqbgwFWN5LgRYXfOP7mPg2jM8Oj6U8ZXg0juDDKRFtIbE +URbaEnm98isDd2gW/XlAuad0cn3vCJVv94GKWsq5Wodezv1ioHdgdnk/5VN5 +fY7SMwx8mb5mfpqymaLtqM4fBm6/WRgiSKf2K7PunC0vgdPHhPTlKQ9KsmUC +lhE4WDGir0b5URKXmyhIYGa9dJge5XB+RdM8UQJ/RFstMaa8KzL9/StJAv8k +2TeZU5abEwr4IkOgqfpYz07K3wOj+JYSBBZtH9CwpFzyfSqDqURgYOhww9/7 +sZ6HNTerEMie7sj9+7xd74daFw0CxzIPtm2hzNqz2zlUh0D6zIGtf9cfa6of +u6ZPYLDadZ6/8VWaGcYWIoFewvWL/8af8PyRbJsJgaHCpTZ/83PSU3o8Zk7g +FxO9kb/5r3183UzEkkDaEZG2v/WZWSfSq7qbQJMBPv46ypM3aBEb9hKYpnda +IpfyuLACS9eVwGbd23EXKY9GqNca7ifwgqy2z2HKI790Dxr7EFhVNMsxo/zN +01jQ3JdAg8AnbgTlL+92krsCCWRtUwidofZ7oNRjcu9pAu1W609mUu5T9b3m +FklgzegBOz/K7zNPGnjFUPmmurIMKLdHXYw8eomq546KFY3U+/Z2IlXhxFUC +peufKl+m3OydVRd6ncDhL4lPd1N+ZVEoFPsvge10EYW31Ptc++w59+IDan8U +zPgTKNeov7a9zKHyuxezbyvlcrH+9JvFBG4iTI9yqH551C2g9PQNgYLPV7A8 +qP7i7BB/VdJCoPCd5+X8lHMr5I9UviNQefuHt3lUv+bc0Xrc0E/g6hNX/f/2 +c/ohFxiYIPDScPYFK0kupPYcGPg8S6DilLvwIDUPUnYFRg8vEBheISx+jHLC +htiGaX4mbqdH5sRT8yNyjrtHWI6JemEL05liXAg7Uja7isnEDiXPDDnKoX0v +b9CUmfjJxK02nZpPQdXdHxU0mcgWOlYYR82vQ3FL/A22MlEyqkTSUpgLB+aF +xYwsmBj801+4VIgLXn60AlNLJhrZn73CpOxmo/7bei8TF7urWw6v4ILtaodY +H18mklKcVA8BLhg8zL119SoTU4aeaLxfzIVu+sNMk+tMjCheoqFK+dTV+zfH +M5nouB1kQnm5UBiRk2F9n4nSKjuKxRZR88P+VppQGRM9zwkQaxdIWLMkJelc +PxPL/xu0HJ8moe5UcqL2Jya+8a/1ZFH2+pmUMDjERLxrEGA9RUJ298V4o3Em +mvu3Hbs3QQL9UUzsn6UsLPdM1Dagzh8J15DwIBUWNkP+dl7qPHvaGhymoMFC +bxtTLbEhEmzNT55p1WbhoHqAPOMrCcnax0M1gYUf18XybvxMguAKv5MjViyM +bRWVsvhIwuJid3+vEyy0b0+UE+8mYVTU3M2uioVadTIiOvUkdBwmmg/WsrDt +s7fRSC0JlS9nIew1CzN7Z/SzX5KQdOqh/L12Fqac5T3PT53f6wdW9M0MsVD5 +gd7d4nISfLlNzjfEFPCpZlMn+ZiEoV27HQf3K+Cm/iS7RRkktNxXbZj2UcDv +s2X+x9NJKOFdqi/op4CBhR6Bn9JIOF9YQNMJVkD2GWedqiskKMtLdcVcVMDI +2eJmt0QSvEe67NcVKCC/xhsT/UgSBuPd7AL4FNFh28TTw17U+kMqxPoVilhx +NenFs/0kTJnODA+LKGJPUyJd0IMEAd7kaB+aIr6QMSvLcaXiD65+4qaqiDxD +8Xde2JNw2lNRbJeNIj5f5j7zyJyqv+H3pnWZihgf2S9grUqd/z9ObPtPRwmN +f/etvN/NARkNuXPLDJQw0SmhR+EdB0YCaqrWbVbC8KyY9ZktHEiZFDEIsFBC +v8bK4zH1HOidv6+24KqEgZ4KFWqFHAhY8V5M+rwS7pkH565LHEhfg73bu5Vw +IdtuZ4Ex9X3qsSzwSZgyTt1b+WbJ7Xzqf0VyUUzVGvwo0hpNgzwQfaOYQP5Y +i/mT9uqc1ocgE8ux1NFRwZV+o8tFNB5A2jpdETFvVRz1/AZFqffgFW2z9q9L +aihPW7w56XcO6MlUJam3q2NAsniFud6/IMSbdWxf5HpM9A3qHky9A3IR8gYO +iho4U4wttK7bwK/gVGBdq4ETm1201DRugRpbmnPCWRN3f+PxbPS+AQG9otXm +PBtwpPWJ4RrbdPjxK373trQN2DtERrvfTAVT9Zfp21S1MPj40vd69CtQ/kt/ +bqpRCw3vZ/NNZCSDr4pm1/88tbHUWNBqKjAJ2CP7Wx34dVDlTNRB4lY8mLCk +dghm6eC9r8pT9jznQTn8wsmqjRsxb05NMaM+GtZ66lYodG1EO8sWXvsHkeBZ +fuDsk6ObsMwrUGODWDhU3GrdPyqui6q1F9mfNEJg/N7ClHqhLl4hhqsCx4LA +Q+Ehf/oOPexpf03bcjoQRtde1nn0Uw8jJz927GP7Q1H2XP9ErD5++HqQj250 +CPYaM1FfzgArJcpmD3Z6weojMcVqlQZoMu7xv2Mv3CFhwUs7rsoAJXh1ZKMK +3WFR8lbu5xoD7Ak47ZZ+3x2GCpbcv1VvgEJPWaUfL7pDCc/ZNNG3BtgpuXZz +v5077E0JPzH5nwHu/qySGjW0D9JKg7XLl7Mx2vv6NxOpfSAucJi7Yw8bv6bv +j7ks7QrZW06f+unARu7XgQyFBRfQPJ2w5bITG7d9H7JoGHSBnT/JNioRbCrK +NLUiXeBc+8SMx2E2Ki9vOLLVzAWms8KMTkWwsVNAz6QhxBm69C+/zXnIxs96 +eXEjPx3hwPHsjG35bHz/YJ9XT4cjTOY/9fxOsvFE5b5DvZWOIEp0TGkUsPGh +0oVaiUuOYLFMVuZZJbX+uHOSq6YjlLXm7H/bRsV/fZprenIvmAsVqQZ1sHHG +d+C3zb690GFaPynVTcVfpfv8qPleGC/5FuvygY0qY6kX+mX2gurt9Xlfh9ho +ye3/kVTlAGVdm4Pih9m4S+Rzm1KuA5ivsgH1n2wUW7jR23TFAbxijv/v2AQb +D7+XUrXxcYDxynPpktNsHN6131nNxgEiZ1M9SmbZWOnsH01jO4CI1n0V53k2 +zrHi0yWVHODmkZKJhQU2mlstT1ZY6QD/B6++csk= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06689931123610193}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06689931123610193}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993918438368294*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"d4dc642c-b9dd-497f-b9f6-0d4bf33c770e"] }, Open ]], Cell[CellGroupData[{ @@ -2633,18 +8415,78 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[100]:=",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.588841975979786`*^-149\\\", \ +RowBox[{\\\"\ +192330073695578600598678251250730514595536743471887934253145779509789\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1163350940137443209261321198991532417980825600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 105, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99391843843155*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"44b121d2-130a-4125-8aba-b342abbf1bb2"], -Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.846637721757903`*^-152\\\", \ +RowBox[{\\\"\ +692388265304082962155241704502629852543932276498796563311324806235240\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"25\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8063384494795553340756316369516704730972160000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 106, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918438439747*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"445946c0-4427-457a-9f5e-e1c92ccc3e14"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3782727608629747`*^-154\\\", \ +RowBox[{\\\"\ +257637673519649270217965438245428568131597200085202201208143960400132\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3853705134253980954253210971658303947407360000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 107, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918438447461*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"11baefb1-b3df-4b50-9853-f03aed656b72"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 108, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939184384549313`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"60ac8508-3c1b-47ca-bed5-4736eab3f81b"], + +Cell[BoxData["11.325194352026168`"], "Output", + CellChangeTimes->{3.9939184893793507`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"98cb79c4-04fb-402a-9df3-34520645e677"] }, Open ]], Cell[CellGroupData[{ @@ -2711,27 +8553,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850595832054*^9, - 3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\ -8e83e9537fdc"], + CellChangeTimes->{{3.991850595832054*^9, 3.991850600247154*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56921c73-2b67-0e4a-9808-5f61de992c7e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.37244063466745`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 109, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918489429216*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"8b4db3d1-d373-43b1-af4c-8f8b2fcbdf43"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.173302370884821`*^-221\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 110, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918489437072*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"05d2bf39-88ac-42b6-9332-7e680d00b3a6"], -Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3623727259240898`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 101, 111, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918489446981*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"8117bca0-a8d2-4f80-b06a-304ce20be7cf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 112, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939184894557333`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"5a47600e-0cae-4c37-bcd2-a814a665f31f"], + +Cell[BoxData["0.16225983774717695`"], "Output", + CellChangeTimes->{3.99391849684278*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"28dcb2c8-e039-408e-b5d7-a8d3a6bebd51"] }, Open ]], Cell[CellGroupData[{ @@ -2752,8 +8639,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -2798,27 +8684,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850617546938*^9, - 3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\ -3471356a3614"], + CellChangeTimes->{{3.991850617546938*^9, 3.991850621692934*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"1795c3b9-0182-224c-b986-6414d6712c04"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.37244063466745`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 113, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918496895814*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"93615b1a-0170-41f0-b147-8828a36ec327"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c3b31753-a67f-9b45-b822-068e1df11f68"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.173302370884821`*^-221\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 114, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918496903347*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"9b5ee290-119b-4c5a-9677-21fceaf6fbf0"], -Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3623727259240898`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 102, 115, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918496911097*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"b27f5c56-92b1-4aca-b938-cd16d4285dd5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 116, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918496919978*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"d86f4cdb-5212-4a10-bc31-48308dd7d214"], + +Cell[BoxData["34.32847714506139`"], "Output", + CellChangeTimes->{3.99391850441775*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"aa418541-4c85-48ef-8131-033ff068f36e"] }, Open ]], Cell[CellGroupData[{ @@ -2839,8 +8770,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -2885,27 +8815,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918506254460773`*^9, - 3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\ -286954db37c5"], + CellChangeTimes->{{3.9918506254460773`*^9, 3.991850628958872*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.37244063466745`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 117, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918504480908*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"a5a0c2a3-20a9-4b44-ac8f-c91a719db24d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4e2b22f2-1724-7649-93fc-33cd27bb415e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.173302370884821`*^-221\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 118, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939185044918737`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"d6393a1a-d639-40c4-8e50-576774ac63c3"], -Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3623727259240898`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 103, 119, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918504499243*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"b97b886f-ab6d-4bea-a0e6-728b58310e12"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 120, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939185045069723`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"189c4b0c-6f2d-4768-bfce-3187cd1a4009"], + +Cell[BoxData["3.795455324981512`"], "Output", + CellChangeTimes->{3.993918509093769*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"0d7c968d-01e8-41ab-91a1-33bcffd62580"] }, Open ]], Cell[CellGroupData[{ @@ -2914,19 +8889,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918506775260105`*^9, - 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ -20e078d734cd"], + CellChangeTimes->{{3.9918506775260105`*^9, 3.9918506840946693`*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +Cell[BoxData["0.014215162426861347`"], "Output", + CellChangeTimes->{3.993918509129676*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"80fdb8c6-8be3-43c1-9ef1-9ec9c978fc52"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9}, - 3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\ -dd2997d3499c"], + 3.9919245116307106`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ @@ -2947,10 +8926,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], - RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ -ae4b-824f-5eb2b3081f6d"], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[BoxData["6.579854423899162`"], "Output", + CellChangeTimes->{3.993918509145761*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"27ffeef8-1dcb-4af8-80a3-36b5fb034261"] }, Open ]], Cell[CellGroupData[{ @@ -2958,10 +8941,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ -89cd-559587f30b91"], + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[BoxData["2.0531567188949684`"], "Output", + CellChangeTimes->{3.9939185091556273`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"4cdfdaa2-8b0f-4e73-bd8b-fd2b1c44340c"] }, Open ]], Cell[CellGroupData[{ @@ -2969,10 +8956,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ -afc4-be40-8f37-0116656ecd38"], + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[BoxData["13.509472319779347`"], "Output", + CellChangeTimes->{3.993918509164296*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"b2c2ddab-2868-4ac3-9a0a-0d472ad751bb"] }, Open ]], Cell[CellGroupData[{ @@ -3160,10 +9151,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ -82a6-7cf06f61e28f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[BoxData["0.006388510385563166`"], "Output", + CellChangeTimes->{3.993918509175921*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"6d31e466-d156-492c-a422-3e1bf3b713ca"] }, Open ]], Cell[CellGroupData[{ @@ -3175,18 +9170,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"b88b1a94-\ -22d7-2843-88e3-f607b95c8af9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"def6b331-c871-b04d-a16e-4fc00b03d009"], - -Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[BoxData["11.08779373242712`"], "Output", + CellChangeTimes->{3.9939185092932568`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"dd9db219-9f6d-4c25-9b69-0cde7b1db307"] }, Open ]], Cell[CellGroupData[{ @@ -3376,10 +9367,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ -9b53-9472e00c4d82"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[BoxData["0.07015835119524665`"], "Output", + CellChangeTimes->{3.9939185093055573`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"9aa632b1-d8c9-4985-9bb3-c45bc97b56f9"] }, Open ]], Cell[CellGroupData[{ @@ -3391,18 +9386,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"47e2a8e8-\ -6af3-374f-9eea-9c2b6faaaf4a"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c6c8676e-4601-144e-b83c-769e22949175"], - -Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[BoxData["3.3458406529409555`"], "Output", + CellChangeTimes->{3.993918509414505*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"5761358f-15a9-4476-baae-5e3829d2830a"] }, Open ]], Cell[CellGroupData[{ @@ -3493,10 +9484,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ -6b0985b9b3bc"], + ")"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[BoxData["0.06727285695077176`"], "Output", + CellChangeTimes->{3.993918509425027*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"73fac6f2-45d9-4c46-b365-eb784e6cc3fb"] }, Open ]], Cell[CellGroupData[{ @@ -3584,10 +9579,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ -4868d83e9702"], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[BoxData["0.9327271430492282`"], "Output", + CellChangeTimes->{3.9939185094394484`*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"b31a480d-0ecc-4edd-8a98-3ae744e3d0f4"] }, Open ]], Cell[CellGroupData[{ @@ -3708,10 +9707,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ -9940-98cd-9460e2c074b2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[BoxData["0.06274721966845274`"], "Output", + CellChangeTimes->{3.993918509451584*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"e985a6cd-b0d2-4e0d-ab6d-78e0128cb377"] }, Open ]], Cell[CellGroupData[{ @@ -3773,27 +9776,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\ -05d6af1a6e52"], + CellChangeTimes->{3.991850710120125*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7fd60dea-f794-4744-8801-bfb1a50a0e07"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0386517362048898`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 116, 121, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918509465705*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"b3a2d9d4-7433-490c-ac7d-ec001945548d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0b8c0718-41d2-4542-8afe-212a15805650"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.216646773936898`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 116, 122, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99391850947425*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"9a842ea1-711a-43be-bc6a-98272463b224"], -Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.721504365062139`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 116, 123, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939185094821367`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"114a46fe-cb91-4cad-8c58-77a4a04ae5c3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 124, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99391850949008*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"c00fc1d9-fd35-447d-a8b8-176a363a8bd0"], + +Cell[BoxData["11.087793732427132`"], "Output", + CellChangeTimes->{3.99391851321891*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"dc44b9b1-a8a0-402f-ba4c-9074d6b1bad8"] }, Open ]], Cell[CellGroupData[{ @@ -3855,27 +9903,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\ -f69c33a31448"], + CellChangeTimes->{3.9918507152152424`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b6f0ccc2-ff83-124b-a341-e143319c7670"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0386517362048898`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 125, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939185132726393`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"4e2de41f-6f5d-4e9b-9652-87af42cabcbd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.216646773936898`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 117, 126, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939185132830477`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"fab4999a-97fd-4a5e-bae1-617ad63dac70"], -Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.721504365062139`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 117, 127, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939185132925663`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"1ef58295-d8af-4368-9cde-51ae0736c3ae"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 128, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939185132996197`*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"ac26a6f5-0ca2-4cfc-80b0-f2bc414a89bd"], + +Cell[BoxData["3.3458406529409546`"], "Output", + CellChangeTimes->{3.9939185171316032`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"58065c12-7b3c-4de3-a95c-b289392864c7"] }, Open ]], Cell[CellGroupData[{ @@ -3933,489 +10026,397 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\ -194fae57c34e"], + CellChangeTimes->{3.9918507183992805`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7797a546-4085-124a-83da-5f3c472cdc4c"], + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk0Vd0bB/BrLGOGMkaZ30vKizIk+8lQ4SZpMIS47j1KGTIlQ1SkUkIq +vREhU4aMmZIQfpJUhhKZJe7FFYmm375/nHXWZ+11vut5nr32PgpUH1s6J4lE +YuKH/T7TuVXtaVen8f9+1p3xfsZAxrNZ26lmBcg3SuAK28NpO5KUzepQdvJS +O9s2tNe8gjovkf2OUEMf7JLgiCYesw606pDSy/bVFqmGiPy3KOOPfZovdnXX +mQe/tHuQsHxJ0hns6f72sHO1H1DKk6xKP2yZCaVj300H0PpCHZ4AbKu5MAP/ +jiEkxucSGYhd/2taIDh/BF2vUvrnLHbvBcnQSu8x5FwU9SsYe5bXbHpRewK9 +/BT5OwSb97qvg87yJHqoJaURji0vmtp2pnYK0e9bRkdgW8t+z541ZSAeIvJ5 +FDaRriihuXYWtd2/lBaDHaFyIPpUxxyKvaVQcA37g2T3vwH5LFRG17RKwKY5 +ep68dX0B9fLfH0zCnk8hPSz1/oZi1mSmJGOvVdQUYWkvIbm4C+np2Em0pr0i +G76j4D67iSzszTkOEduWv6P/lluP5mHrb7k861X7AxlvCXxein1ix1DHtOkv +FK76N6cVezE4kJtf9Teym087+Bo7slbAiLz2DzKgfFR7j50M+o89Ov6i1l/r +HYfY9T1qM/PL5wCftvyeFez8llvDF2Q5IbSUf5xUj+v94hKWcJ0TBOM5Nq3F +DlNfKnvizQXzO8tkJLGTihWU5rR5YF3mJrIedn8Xo/5PJg/URmilIOzNC08d +hTfwwh273p37sAt0rRM1l3mhb3SI5IjdXB3Ccbp2Law7N/owAnup6f3QlKkg +oFQ39B5bjCIoElovCBwtt32GsLW6zUDIQAj8GsndM9ie4xXp/24VBmVXH0Oe +5wzky9mhtUtQBChj7qGG2BOKRazo76JwzOZCZxH2ItHO90ZHDHKvnjWrx+Z8 +PKkgdUYMJh1fzr7G3qyzyTZ/Rgye+NGHmdiOpvGlncPi4PYyW0+rgYHeuPv5 +S77aACL8GRX12J9z4mJd10pAF3eb71tsxkx+Zp65BNh47nQdx+YPGHu/s0EC +bjxaM8D/goHMog7rulZIwtMmhb2O2DVZO5Zy06Thn1MV05yNDJQ1sRpkGCAH +gaY1bqFNDLTvSMxn/0I5mHrS/z0Rm9EsvqdwUg5qv4VX52PrZm3ZsNlBHgIn +LFr7sZupLmU8xpug49YI965mBlqYGz47dWkzWKx3WsP/koHEvczKy/YrgvNs +nFJLCwNNZvGfsPFUhIguH48x7KqBLlnmZUVw56v6QGplICeK8yXVBkUwehxi +aoSdpRFke09bCW7eKDSowNadzpk/L6kMJl0zOcVtDHTYQ0DTckQFftjGRrW0 +MxAKOqJt91sFChWjmqaw1aPT9GjSqjCTQNoq8IqBSJk6JucPqoL6n4hoG+zC +z8fsSl+ogn5UiPEgNu/RggsyGWrw+SS9708Hrs9sf+80lQydMxyp1DcMlHno +7qfl82TQrjWyvIYdRx0Z5r5Phl2sHsVSbFpk4Iz8ezLUxsof5exiING6VNIh +U3Xg5Z5ozsL21JlVr1XSAMF81UbWWwaSVbwZETu+BRojt2kXdDNQ3bVF8gqn +JiSRVjcOYjt9c+gmFDRhZv1/hsI9DPSgWZls4qIJHnmHhM9gK3rUvPvRpwn2 +XcGSBr2434IJFeLVVggR+VL0ro+B5GTlic0OWiCT3z6u8YmBtjwKEPyJtOFi +bt9K4CgDUWmXljSttSFmPZdXMXayUuJnVydtKL7HIfgVmyuj+ElLsDYEOPq+ +dhrD5+3B9OHEEm3ItRpy3jOO79Nk11Sykg6URNqWKUzi/Y2lbLXn1QV7g2rF +la8M9NBP2aaiYzvMtz1LU19goK4gpBf1yACuJD4e3cXLRAouPdbOp3fBpkWf +yj8bmYj+t7JI7hxAj0fZjTFdJpKcqVojSTWBdr6p7dkHmShAx2ggUd0MDL+u +C9/ow0RU5q828Wlz0Nq46ffxOCYqNPFfk/ZmL/hpqn0ZLmWirEXPFwVJFnDR +XzNtTx8T/dgt9bo5wgrERvmVNDhm0SCJizXith8m7x8uz9oyi7w3+sRfUDoA +eVSGqobdLCo62dZwO9oGyjWtvG1iZlHIN+lljZMHYTq2KomrchYtWe452nrc +FnY/6/7jMj2LDI4l7J44eAiCROP7XDbNoXfSqZ7NOodhodcuUtR2DslkX6rL +/ecIcFCnanWvzaGqYXWKtdBRaMqdabj8fA7Jd897BDGPwv2PK22Bi3NI53ZC +QeawHQhHvLqhIzmPUrm/bU1ssodG8iuN49rzqHL3tv7oagcotlAf6j0wj5L1 +ron+ynfE9wlFI/f0PHrz6dFlnevHgL+45IJNzDyq2J+i7BvpBF+2yY18yJxH +LK9DJG+aMzRRkrJJ9fNoaQ/5xKypC1QWBy6K9c2jXObHH/47jgNfwIT8RdY8 +sn/4yN1Z0BVSLahttnz4v1NqdZwrxhW0rGg+4oosZCD7buXqiitkRLnuE9Fn +IaVhj/63J93g2Af5/f4UFhoXOHUgZcwN/l55HKvgxkJdcdbue49QofTr0uZV +PxZKCk4TCOyiQliIFkdqFAvV1f9dcbdwB+ZtjxSpJBZa5wQxOjXucGeDZ1hX +OgttXt/6ZmOdO6R4Ng9wPWQhrY79Urz17mB5yG2jHrat0bG8Dy/cwXSOYpCK +nbQx6FX4/9yhPMj2q0cGC8kMPl7X9sEd1Ioc5ZYzWUjZRTLZadkdxJK3PPmV +jftxnc2N1qUBKceYmlnAQtn35v2td9DA5lnJzVfY698vGEvq02ApPzLtG/as ++XJ37k4ahC4oEqaFLHx/kTg6TGiwdb3IzRFs4WVRB7GDNEgLolCkivE8bmzn +S/OigUz2R0efEhY62KrX7eFDg5tTeR23sOtJhmlaZ2jw7gh1cxX2PX/j7Y0B +NNjJCvcilbKQtcNet4lQGtheIT24iV2t7FCtcY0G1qroSG4ZC8XVhp2syqYB +0ZPI01TBQl7adw2Cc2nAXTLGN4ZNySvh08+ngce68XnOShbivzuZ97SQBqrF +XwgT7Gg/m+nKchoUXc5beI4dRlY+VdFIA7Ho5MsVT1nI8+6r06WfabDpcfn1 +a9UsZCE8aeQ3TIOripdGsrH/iSYJaY/SwHIuV6oJe9Jve2HJBA06dOY1f2K7 +WacxnzBoEJuvsniyhoXsefy9i1dpwCGzzNhdy0J7/WV8CyTo0FAuEfGpjoUa +0y5bJkrRIZ5Wuu07tlHHgnKwDB1C1PieiTzD+6/y6qOpPB3kvAa8zLGl+0JN +P6nQ4dTZdrVC7BnDQQn+7XT4M3B4NbCehW5ypj/zOEQH8fJTa5jPcf/bBJP3 +H6GDr7SiJVcDC0UdC/bTsaODybLxSWns4HIbtb+OdDCMyTAyx3YjOBLuUOkw +UNOpdx9bp51Ke3mGDgqileHwgoX6ElQElOLpwOx30fdtZKEiJHRiKoEOVfv4 +uiOxo5iLzYW36PBUMNgmAVvbovm8/l3cn1PKTAl2HMl9Yf8DOrxV7slnYe/x +Sf8YXECHYPNqq1NNLCQnd2WHcREd9C0WF85hL7b73OJ6Qgc1oYGQK9gZqmh/ +XBkdtOwKtjzC/j042JBZQ4d/ldWlBrHLKbK5nW10kOoNFNrbzEKxq5w8Se10 +yCZ/rj+ETc2ddnPooMP5/z7buGKLcNfIjr+hw0exTIlz2Kdr7W+u9NLBuU6a +nIetpH4nSHmCDqfTG09wvWSh1b7w918n6TBsqawkjN0VTdcqnqIDlRCsl8I+ +P6I7bcCgwzXmqdua2P3J750PfKPD2k5K+xHsxDWi5iEcBNhrNFulY9ctDB4L +4CJgOqRPJB/7y2C+nzcPAXzpaUVl2EblZulUPgLkxywCWrAnXYN/WooS0H/v +i9o0tgjFXMxcnICYxoulC9g79cTIaAMB7eT2DT+x44UKjupIYzc4EAIteL1m +qERWgYAxL7dt6tjEo4K2DUoELLWaRvyLHR9/bmidCgHDC+05+tiThLgQN5mA +Sqfmi3vY6+J7TzC0CNCYo7i6Ytf8EY+Y1CbASB4FEtgTX4dvD+sSwN//hnoa +27AhpKlbnwCrre2tZ7HHTxfJPwMCPrevq76OLWwfuv2pCXbDWGICtoHpPkqJ +GQHh5IPmd7DjpEfPPdpHgKz8d5007Cru4vg0SwLC7m/xzcQemwvNuUchwNx7 +NSoHW79lQ88NGzwvdUf9YmxqyehMjC0Bg+SZ3lLsGynFnBcPE0ArELWuxB71 +s9AKsifA+z+5ljpsIReJvb6OBHzbzdn6nJ1nMebs6UTArvGQ9Eb295vCY11c +CfBsVh1sZdfDb5lhTyXggbsDtLPzliSqbWkEGDbIh3Ww80bG3lAIAm7eCYrv +ZOd1PJncc4KAuzmu4V3s+p6G/wZPAkjVAybv2PkZlut3niZA8vb08Ht2/g1J +je3eeD781+x62PnB47u3+RKwwqzJ7sUWpJXYk/0IqJcI7+zD1jtw3kcpgAAy +tavzAzvf0OqyXBABoyXlOR+xr6tIpUoGE2DCIDv0Y1eKTJSJhhCw+9e2MbZH +fpa0C4QRcPVti/kndv6X8yM85wnwd52NZHvHO6sffyMIWH2YncT2/wHoCFjU -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vd0bB/BrLGOGMkaZ30vKizIk+8lQ4SZpMIS47j1KGTIlQ1SkUkIq +vREhU4aMmZIQfpJUhhKZJe7FFYmm375/nHXWZ+11vut5nr32PgpUH1s6J4lE +YuKH/T7TuVXtaVen8f9+1p3xfsZAxrNZ26lmBcg3SuAK28NpO5KUzepQdvJS +O9s2tNe8gjovkf2OUEMf7JLgiCYesw606pDSy/bVFqmGiPy3KOOPfZovdnXX +mQe/tHuQsHxJ0hns6f72sHO1H1DKk6xKP2yZCaVj300H0PpCHZ4AbKu5MAP/ +jiEkxucSGYhd/2taIDh/BF2vUvrnLHbvBcnQSu8x5FwU9SsYe5bXbHpRewK9 +/BT5OwSb97qvg87yJHqoJaURji0vmtp2pnYK0e9bRkdgW8t+z541ZSAeIvJ5 +FDaRriihuXYWtd2/lBaDHaFyIPpUxxyKvaVQcA37g2T3vwH5LFRG17RKwKY5 +ep68dX0B9fLfH0zCnk8hPSz1/oZi1mSmJGOvVdQUYWkvIbm4C+np2Em0pr0i +G76j4D67iSzszTkOEduWv6P/lluP5mHrb7k861X7AxlvCXxein1ix1DHtOkv +FK76N6cVezE4kJtf9Teym087+Bo7slbAiLz2DzKgfFR7j50M+o89Ov6i1l/r +HYfY9T1qM/PL5wCftvyeFez8llvDF2Q5IbSUf5xUj+v94hKWcJ0TBOM5Nq3F +DlNfKnvizQXzO8tkJLGTihWU5rR5YF3mJrIedn8Xo/5PJg/URmilIOzNC08d +hTfwwh273p37sAt0rRM1l3mhb3SI5IjdXB3Ccbp2Law7N/owAnup6f3QlKkg +oFQ39B5bjCIoElovCBwtt32GsLW6zUDIQAj8GsndM9ie4xXp/24VBmVXH0Oe +5wzky9mhtUtQBChj7qGG2BOKRazo76JwzOZCZxH2ItHO90ZHDHKvnjWrx+Z8 +PKkgdUYMJh1fzr7G3qyzyTZ/Rgye+NGHmdiOpvGlncPi4PYyW0+rgYHeuPv5 +S77aACL8GRX12J9z4mJd10pAF3eb71tsxkx+Zp65BNh47nQdx+YPGHu/s0EC +bjxaM8D/goHMog7rulZIwtMmhb2O2DVZO5Zy06Thn1MV05yNDJQ1sRpkGCAH +gaY1bqFNDLTvSMxn/0I5mHrS/z0Rm9EsvqdwUg5qv4VX52PrZm3ZsNlBHgIn +LFr7sZupLmU8xpug49YI965mBlqYGz47dWkzWKx3WsP/koHEvczKy/YrgvNs +nFJLCwNNZvGfsPFUhIguH48x7KqBLlnmZUVw56v6QGplICeK8yXVBkUwehxi +aoSdpRFke09bCW7eKDSowNadzpk/L6kMJl0zOcVtDHTYQ0DTckQFftjGRrW0 +MxAKOqJt91sFChWjmqaw1aPT9GjSqjCTQNoq8IqBSJk6JucPqoL6n4hoG+zC +z8fsSl+ogn5UiPEgNu/RggsyGWrw+SS9708Hrs9sf+80lQydMxyp1DcMlHno +7qfl82TQrjWyvIYdRx0Z5r5Phl2sHsVSbFpk4Iz8ezLUxsof5exiING6VNIh +U3Xg5Z5ozsL21JlVr1XSAMF81UbWWwaSVbwZETu+BRojt2kXdDNQ3bVF8gqn +JiSRVjcOYjt9c+gmFDRhZv1/hsI9DPSgWZls4qIJHnmHhM9gK3rUvPvRpwn2 +XcGSBr2434IJFeLVVggR+VL0ro+B5GTlic0OWiCT3z6u8YmBtjwKEPyJtOFi +bt9K4CgDUWmXljSttSFmPZdXMXayUuJnVydtKL7HIfgVmyuj+ElLsDYEOPq+ +dhrD5+3B9OHEEm3ItRpy3jOO79Nk11Sykg6URNqWKUzi/Y2lbLXn1QV7g2rF +la8M9NBP2aaiYzvMtz1LU19goK4gpBf1yACuJD4e3cXLRAouPdbOp3fBpkWf +yj8bmYj+t7JI7hxAj0fZjTFdJpKcqVojSTWBdr6p7dkHmShAx2ggUd0MDL+u +C9/ow0RU5q828Wlz0Nq46ffxOCYqNPFfk/ZmL/hpqn0ZLmWirEXPFwVJFnDR +XzNtTx8T/dgt9bo5wgrERvmVNDhm0SCJizXith8m7x8uz9oyi7w3+sRfUDoA +eVSGqobdLCo62dZwO9oGyjWtvG1iZlHIN+lljZMHYTq2KomrchYtWe452nrc +FnY/6/7jMj2LDI4l7J44eAiCROP7XDbNoXfSqZ7NOodhodcuUtR2DslkX6rL +/ecIcFCnanWvzaGqYXWKtdBRaMqdabj8fA7Jd897BDGPwv2PK22Bi3NI53ZC +QeawHQhHvLqhIzmPUrm/bU1ssodG8iuN49rzqHL3tv7oagcotlAf6j0wj5L1 +ron+ynfE9wlFI/f0PHrz6dFlnevHgL+45IJNzDyq2J+i7BvpBF+2yY18yJxH +LK9DJG+aMzRRkrJJ9fNoaQ/5xKypC1QWBy6K9c2jXObHH/47jgNfwIT8RdY8 +sn/4yN1Z0BVSLahttnz4v1NqdZwrxhW0rGg+4oosZCD7buXqiitkRLnuE9Fn +IaVhj/63J93g2Af5/f4UFhoXOHUgZcwN/l55HKvgxkJdcdbue49QofTr0uZV +PxZKCk4TCOyiQliIFkdqFAvV1f9dcbdwB+ZtjxSpJBZa5wQxOjXucGeDZ1hX +OgttXt/6ZmOdO6R4Ng9wPWQhrY79Urz17mB5yG2jHrat0bG8Dy/cwXSOYpCK +nbQx6FX4/9yhPMj2q0cGC8kMPl7X9sEd1Ioc5ZYzWUjZRTLZadkdxJK3PPmV +jftxnc2N1qUBKceYmlnAQtn35v2td9DA5lnJzVfY698vGEvq02ApPzLtG/as ++XJ37k4ahC4oEqaFLHx/kTg6TGiwdb3IzRFs4WVRB7GDNEgLolCkivE8bmzn +S/OigUz2R0efEhY62KrX7eFDg5tTeR23sOtJhmlaZ2jw7gh1cxX2PX/j7Y0B +NNjJCvcilbKQtcNet4lQGtheIT24iV2t7FCtcY0G1qroSG4ZC8XVhp2syqYB +0ZPI01TBQl7adw2Cc2nAXTLGN4ZNySvh08+ngce68XnOShbivzuZ97SQBqrF +XwgT7Gg/m+nKchoUXc5beI4dRlY+VdFIA7Ho5MsVT1nI8+6r06WfabDpcfn1 +a9UsZCE8aeQ3TIOripdGsrH/iSYJaY/SwHIuV6oJe9Jve2HJBA06dOY1f2K7 +WacxnzBoEJuvsniyhoXsefy9i1dpwCGzzNhdy0J7/WV8CyTo0FAuEfGpjoUa +0y5bJkrRIZ5Wuu07tlHHgnKwDB1C1PieiTzD+6/y6qOpPB3kvAa8zLGl+0JN +P6nQ4dTZdrVC7BnDQQn+7XT4M3B4NbCehW5ypj/zOEQH8fJTa5jPcf/bBJP3 +H6GDr7SiJVcDC0UdC/bTsaODybLxSWns4HIbtb+OdDCMyTAyx3YjOBLuUOkw +UNOpdx9bp51Ke3mGDgqileHwgoX6ElQElOLpwOx30fdtZKEiJHRiKoEOVfv4 +uiOxo5iLzYW36PBUMNgmAVvbovm8/l3cn1PKTAl2HMl9Yf8DOrxV7slnYe/x +Sf8YXECHYPNqq1NNLCQnd2WHcREd9C0WF85hL7b73OJ6Qgc1oYGQK9gZqmh/ +XBkdtOwKtjzC/j042JBZQ4d/ldWlBrHLKbK5nW10kOoNFNrbzEKxq5w8Se10 +yCZ/rj+ETc2ddnPooMP5/z7buGKLcNfIjr+hw0exTIlz2Kdr7W+u9NLBuU6a +nIetpH4nSHmCDqfTG09wvWSh1b7w918n6TBsqawkjN0VTdcqnqIDlRCsl8I+ +P6I7bcCgwzXmqdua2P3J750PfKPD2k5K+xHsxDWi5iEcBNhrNFulY9ctDB4L +4CJgOqRPJB/7y2C+nzcPAXzpaUVl2EblZulUPgLkxywCWrAnXYN/WooS0H/v +i9o0tgjFXMxcnICYxoulC9g79cTIaAMB7eT2DT+x44UKjupIYzc4EAIteL1m +qERWgYAxL7dt6tjEo4K2DUoELLWaRvyLHR9/bmidCgHDC+05+tiThLgQN5mA +Sqfmi3vY6+J7TzC0CNCYo7i6Ytf8EY+Y1CbASB4FEtgTX4dvD+sSwN//hnoa +27AhpKlbnwCrre2tZ7HHTxfJPwMCPrevq76OLWwfuv2pCXbDWGICtoHpPkqJ +GQHh5IPmd7DjpEfPPdpHgKz8d5007Cru4vg0SwLC7m/xzcQemwvNuUchwNx7 +NSoHW79lQ88NGzwvdUf9YmxqyehMjC0Bg+SZ3lLsGynFnBcPE0ArELWuxB71 +s9AKsifA+z+5ljpsIReJvb6OBHzbzdn6nJ1nMebs6UTArvGQ9Eb295vCY11c +CfBsVh1sZdfDb5lhTyXggbsDtLPzliSqbWkEGDbIh3Ww80bG3lAIAm7eCYrv +ZOd1PJncc4KAuzmu4V3s+p6G/wZPAkjVAybv2PkZlut3niZA8vb08Ht2/g1J +je3eeD781+x62PnB47u3+RKwwqzJ7sUWpJXYk/0IqJcI7+zD1jtw3kcpgAAy +tavzAzvf0OqyXBABoyXlOR+xr6tIpUoGE2DCIDv0Y1eKTJSJhhCw+9e2MbZH +fpa0C4QRcPVti/kndv6X8yM85wnwd52NZHvHO6sffyMIWH2YncT2/wHoCFjU -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"ca7472ca-7b27-a54a-84a1-e603fa592207"], + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8981239530038404, + 1.1110492521930824`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8981239530038424}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.8981239530038404, + 1.1110492521930824`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8981239530038424}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vd0bB/BrLGOGMkaZ30vKizIk+8lQ4SZpMIS47j1KGTIlQ1SkUkIq +vREhU4aMmZIQfpJUhhKZJe7FFYmm375/nHXWZ+11vut5nr32PgpUH1s6J4lE +YuKH/T7TuVXtaVen8f9+1p3xfsZAxrNZ26lmBcg3SuAK28NpO5KUzepQdvJS +O9s2tNe8gjovkf2OUEMf7JLgiCYesw606pDSy/bVFqmGiPy3KOOPfZovdnXX +mQe/tHuQsHxJ0hns6f72sHO1H1DKk6xKP2yZCaVj300H0PpCHZ4AbKu5MAP/ +jiEkxucSGYhd/2taIDh/BF2vUvrnLHbvBcnQSu8x5FwU9SsYe5bXbHpRewK9 +/BT5OwSb97qvg87yJHqoJaURji0vmtp2pnYK0e9bRkdgW8t+z541ZSAeIvJ5 +FDaRriihuXYWtd2/lBaDHaFyIPpUxxyKvaVQcA37g2T3vwH5LFRG17RKwKY5 +ep68dX0B9fLfH0zCnk8hPSz1/oZi1mSmJGOvVdQUYWkvIbm4C+np2Em0pr0i +G76j4D67iSzszTkOEduWv6P/lluP5mHrb7k861X7AxlvCXxein1ix1DHtOkv +FK76N6cVezE4kJtf9Teym087+Bo7slbAiLz2DzKgfFR7j50M+o89Ov6i1l/r +HYfY9T1qM/PL5wCftvyeFez8llvDF2Q5IbSUf5xUj+v94hKWcJ0TBOM5Nq3F +DlNfKnvizQXzO8tkJLGTihWU5rR5YF3mJrIedn8Xo/5PJg/URmilIOzNC08d +hTfwwh273p37sAt0rRM1l3mhb3SI5IjdXB3Ccbp2Law7N/owAnup6f3QlKkg +oFQ39B5bjCIoElovCBwtt32GsLW6zUDIQAj8GsndM9ie4xXp/24VBmVXH0Oe +5wzky9mhtUtQBChj7qGG2BOKRazo76JwzOZCZxH2ItHO90ZHDHKvnjWrx+Z8 +PKkgdUYMJh1fzr7G3qyzyTZ/Rgye+NGHmdiOpvGlncPi4PYyW0+rgYHeuPv5 +S77aACL8GRX12J9z4mJd10pAF3eb71tsxkx+Zp65BNh47nQdx+YPGHu/s0EC +bjxaM8D/goHMog7rulZIwtMmhb2O2DVZO5Zy06Thn1MV05yNDJQ1sRpkGCAH +gaY1bqFNDLTvSMxn/0I5mHrS/z0Rm9EsvqdwUg5qv4VX52PrZm3ZsNlBHgIn +LFr7sZupLmU8xpug49YI965mBlqYGz47dWkzWKx3WsP/koHEvczKy/YrgvNs +nFJLCwNNZvGfsPFUhIguH48x7KqBLlnmZUVw56v6QGplICeK8yXVBkUwehxi +aoSdpRFke09bCW7eKDSowNadzpk/L6kMJl0zOcVtDHTYQ0DTckQFftjGRrW0 +MxAKOqJt91sFChWjmqaw1aPT9GjSqjCTQNoq8IqBSJk6JucPqoL6n4hoG+zC +z8fsSl+ogn5UiPEgNu/RggsyGWrw+SS9708Hrs9sf+80lQydMxyp1DcMlHno +7qfl82TQrjWyvIYdRx0Z5r5Phl2sHsVSbFpk4Iz8ezLUxsof5exiING6VNIh +U3Xg5Z5ozsL21JlVr1XSAMF81UbWWwaSVbwZETu+BRojt2kXdDNQ3bVF8gqn +JiSRVjcOYjt9c+gmFDRhZv1/hsI9DPSgWZls4qIJHnmHhM9gK3rUvPvRpwn2 +XcGSBr2434IJFeLVVggR+VL0ro+B5GTlic0OWiCT3z6u8YmBtjwKEPyJtOFi +bt9K4CgDUWmXljSttSFmPZdXMXayUuJnVydtKL7HIfgVmyuj+ElLsDYEOPq+ +dhrD5+3B9OHEEm3ItRpy3jOO79Nk11Sykg6URNqWKUzi/Y2lbLXn1QV7g2rF +la8M9NBP2aaiYzvMtz1LU19goK4gpBf1yACuJD4e3cXLRAouPdbOp3fBpkWf +yj8bmYj+t7JI7hxAj0fZjTFdJpKcqVojSTWBdr6p7dkHmShAx2ggUd0MDL+u +C9/ow0RU5q828Wlz0Nq46ffxOCYqNPFfk/ZmL/hpqn0ZLmWirEXPFwVJFnDR +XzNtTx8T/dgt9bo5wgrERvmVNDhm0SCJizXith8m7x8uz9oyi7w3+sRfUDoA +eVSGqobdLCo62dZwO9oGyjWtvG1iZlHIN+lljZMHYTq2KomrchYtWe452nrc +FnY/6/7jMj2LDI4l7J44eAiCROP7XDbNoXfSqZ7NOodhodcuUtR2DslkX6rL +/ecIcFCnanWvzaGqYXWKtdBRaMqdabj8fA7Jd897BDGPwv2PK22Bi3NI53ZC +QeawHQhHvLqhIzmPUrm/bU1ssodG8iuN49rzqHL3tv7oagcotlAf6j0wj5L1 +ron+ynfE9wlFI/f0PHrz6dFlnevHgL+45IJNzDyq2J+i7BvpBF+2yY18yJxH +LK9DJG+aMzRRkrJJ9fNoaQ/5xKypC1QWBy6K9c2jXObHH/47jgNfwIT8RdY8 +sn/4yN1Z0BVSLahttnz4v1NqdZwrxhW0rGg+4oosZCD7buXqiitkRLnuE9Fn +IaVhj/63J93g2Af5/f4UFhoXOHUgZcwN/l55HKvgxkJdcdbue49QofTr0uZV +PxZKCk4TCOyiQliIFkdqFAvV1f9dcbdwB+ZtjxSpJBZa5wQxOjXucGeDZ1hX +OgttXt/6ZmOdO6R4Ng9wPWQhrY79Urz17mB5yG2jHrat0bG8Dy/cwXSOYpCK +nbQx6FX4/9yhPMj2q0cGC8kMPl7X9sEd1Ioc5ZYzWUjZRTLZadkdxJK3PPmV +jftxnc2N1qUBKceYmlnAQtn35v2td9DA5lnJzVfY698vGEvq02ApPzLtG/as ++XJ37k4ahC4oEqaFLHx/kTg6TGiwdb3IzRFs4WVRB7GDNEgLolCkivE8bmzn +S/OigUz2R0efEhY62KrX7eFDg5tTeR23sOtJhmlaZ2jw7gh1cxX2PX/j7Y0B +NNjJCvcilbKQtcNet4lQGtheIT24iV2t7FCtcY0G1qroSG4ZC8XVhp2syqYB +0ZPI01TBQl7adw2Cc2nAXTLGN4ZNySvh08+ngce68XnOShbivzuZ97SQBqrF +XwgT7Gg/m+nKchoUXc5beI4dRlY+VdFIA7Ho5MsVT1nI8+6r06WfabDpcfn1 +a9UsZCE8aeQ3TIOripdGsrH/iSYJaY/SwHIuV6oJe9Jve2HJBA06dOY1f2K7 +WacxnzBoEJuvsniyhoXsefy9i1dpwCGzzNhdy0J7/WV8CyTo0FAuEfGpjoUa +0y5bJkrRIZ5Wuu07tlHHgnKwDB1C1PieiTzD+6/y6qOpPB3kvAa8zLGl+0JN +P6nQ4dTZdrVC7BnDQQn+7XT4M3B4NbCehW5ypj/zOEQH8fJTa5jPcf/bBJP3 +H6GDr7SiJVcDC0UdC/bTsaODybLxSWns4HIbtb+OdDCMyTAyx3YjOBLuUOkw +UNOpdx9bp51Ke3mGDgqileHwgoX6ElQElOLpwOx30fdtZKEiJHRiKoEOVfv4 +uiOxo5iLzYW36PBUMNgmAVvbovm8/l3cn1PKTAl2HMl9Yf8DOrxV7slnYe/x +Sf8YXECHYPNqq1NNLCQnd2WHcREd9C0WF85hL7b73OJ6Qgc1oYGQK9gZqmh/ +XBkdtOwKtjzC/j042JBZQ4d/ldWlBrHLKbK5nW10kOoNFNrbzEKxq5w8Se10 +yCZ/rj+ETc2ddnPooMP5/z7buGKLcNfIjr+hw0exTIlz2Kdr7W+u9NLBuU6a +nIetpH4nSHmCDqfTG09wvWSh1b7w918n6TBsqawkjN0VTdcqnqIDlRCsl8I+ +P6I7bcCgwzXmqdua2P3J750PfKPD2k5K+xHsxDWi5iEcBNhrNFulY9ctDB4L +4CJgOqRPJB/7y2C+nzcPAXzpaUVl2EblZulUPgLkxywCWrAnXYN/WooS0H/v +i9o0tgjFXMxcnICYxoulC9g79cTIaAMB7eT2DT+x44UKjupIYzc4EAIteL1m +qERWgYAxL7dt6tjEo4K2DUoELLWaRvyLHR9/bmidCgHDC+05+tiThLgQN5mA +Sqfmi3vY6+J7TzC0CNCYo7i6Ytf8EY+Y1CbASB4FEtgTX4dvD+sSwN//hnoa +27AhpKlbnwCrre2tZ7HHTxfJPwMCPrevq76OLWwfuv2pCXbDWGICtoHpPkqJ +GQHh5IPmd7DjpEfPPdpHgKz8d5007Cru4vg0SwLC7m/xzcQemwvNuUchwNx7 +NSoHW79lQ88NGzwvdUf9YmxqyehMjC0Bg+SZ3lLsGynFnBcPE0ArELWuxB71 +s9AKsifA+z+5ljpsIReJvb6OBHzbzdn6nJ1nMebs6UTArvGQ9Eb295vCY11c +CfBsVh1sZdfDb5lhTyXggbsDtLPzliSqbWkEGDbIh3Ww80bG3lAIAm7eCYrv +ZOd1PJncc4KAuzmu4V3s+p6G/wZPAkjVAybv2PkZlut3niZA8vb08Ht2/g1J +je3eeD781+x62PnB47u3+RKwwqzJ7sUWpJXYk/0IqJcI7+zD1jtw3kcpgAAy +tavzAzvf0OqyXBABoyXlOR+xr6tIpUoGE2DCIDv0Y1eKTJSJhhCw+9e2MbZH +fpa0C4QRcPVti/kndv6X8yM85wnwd52NZHvHO6sffyMIWH2YncT2/wHoCFjU -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC -MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 -5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX -nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v -yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi -sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG -tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W -tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw -WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq -Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz -IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A -nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc -Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td -rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 -63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp -CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el -jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD -f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA -eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb -uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa -UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au -6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 -BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ -5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX -XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 -jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO -JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme -IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG -gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ -9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ -ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL -bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD -pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN -ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 -ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j -6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE -iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k -d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz -+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ -6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C -2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K -wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 -xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 -9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 -OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm -yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj -GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz -mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W -ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 -pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu -KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH -65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD -bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ -LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW -2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx -bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU -E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 -7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 -5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 -brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT -OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o -Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL -hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl -D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm -v/odiPr3KLwBMhrzH2bRmaY=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-14.8518, 0.65382, 0.693802, \ -0.00448812}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\ -49e8ffb5e8c8"] + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.8981239530038404, 1.1110492521930824`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8981239530038424}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.8981239530038424}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8981239530038404, 1.1110492521930824`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993918828419201*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"673e8d15-6399-4d87-9b74-8c1276238e87"] }, Open ]], Cell[CellGroupData[{ @@ -4478,427 +10479,1045 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918507211663303`*^9, - 3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\ -494cdae35e56"], + CellChangeTimes->{{3.9918507211663303`*^9, 3.991850725479061*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b9265795-17b8-4e47-bd29-fee31586537e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.8684685241798807`*^-267\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 129, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918828837037*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"1c54090d-16cc-4bfa-a7c3-7dbde59adea7"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"072fb53f-7116-0f41-a298-6891351a3192"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0052579345323593`*^-279\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 130, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918828892717*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"86954488-a3a3-405d-9e54-04d2c7b3dc38"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3346642725972307`*^-291\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 131, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918828903075*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"f97ac837-8b00-4a2b-bfe4-c89c602fc724"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ -GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM -b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ -1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 -9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX -KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 -1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu -UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV -Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX -r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO -rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q -pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq -b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk -+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj -oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi -z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp -jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd -dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw -cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 -Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe -TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj -UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE -/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM -opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 -RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ -u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y -XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV -nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi -T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 -OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U -ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY -E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S -Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT -vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ -zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO -nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm -oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU -fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd -G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han -eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao -n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv -6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 -gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF -hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 -d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS -0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 -bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 -wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF -7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 -ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe -37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg -X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu -TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 -CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 -FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX -A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs -LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr -AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo -2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr -rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 -1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 -dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO -endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 -mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK -Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-1.61617, -0.0100934, 0.0591342, \ -0.000698765}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 132, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993918828910383*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"723fc1e7-4c07-4997-88ed-35d063c4f314"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ -87bc9c72594a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VVsUAHBTqAxFmYd7r4syZ0zutRaVEikyy5AiTShlLlNmSWRIGZKU +hHtK9ZAhlCiihBIalB6ZXoaQvNNf5/t955z9rbP32mvtQ3X3sfLgYGNjW8nO +xvb3OjvQ0kRPLDR0Kw+0SX6Jhl25YkFGvZHgX/qnp79TBnD9K3ex3lR4dPWN +S2anGvjvvdPD2VsAi2vX3PHqNIS146Kp8z334KmSnY9cpwUMPrbwme5pgEgO +a2vTDhcwoY/0T/W8htb+TzF/XnrDfI9e+mTPZ1Aq4or4WncOGrfeKuws+Al3 +lYZXeLdfBKnBym/uKktwQ5vG3eyYCeuOu97h2cqJXB91WkydciF1k0m1hQ0v +Dh/7mJLwpADeZWnUT63hR5ml2xrpvTchsTDsFYf4WrQQTShq/XQbRC9/iU/L +EcZjOcVjHFElIKb84PyvImFcKfhniZJUAhINMWHOLGGMf3qhSz+9BGQmN55R +bBRGdqGnr5xulYC8ua9b9XdhDKysHHB7UQJaXEu6X7TW4cY5Ww9vobuw57TI +kGbrOnxcM5B/8dpdiLU2NXw9ux5ffQq+WpFfChIV7RIc7CKY0JcxJ1dcCmXC +1nObVoug+VWj4SSiFLpfu7AuyYrgn7Sos2YNpUC3PE2z3CmCLaqLx0K+lELD +7jzujisiGC1lmXCTXgZLJjPtbQxRvGU8tFa6oAxSioJLlkxEkdFhsaWmuAzo +3Gxxqpai+KK2+IMtUQbmT1cZXfAQxcsRGUn+9WWQvZVy3zxZFGsm0mIPD5TB +ZjTLfDEoimGCgwcFxcvBT/+6a0ukGPIMOi6eii+HXfkC02ZJYmh9PrOy7WI5 +0HhC49rTxTDR7E8lLaMcOrpsiTe3xdBVRCy8uqAc1Hz5OAfaxfC+31nx29Xl +8L0ooOg/CXH8rnLf5MSPcti/zmJM8r44Ph18xPuGzgKtkOqI3MfiqDrtt7dQ +kQWrPm8QoT4TR6d4qYenlFhQWc4JCu/Ecfo7dx+3BgtEzCpTNJbFkTijn8Bn +wIKOCLr2djMJNBLPDbywlwXbJhaCvb9IIGM4NN0jiAVBOy8rPfkhgaduxDPa +Q1hQdl31vfCsBIZE+8ton2OBmLWbfiWvJA5RlNPmIlnw45+nc5xqkpg30GDk +nMSCtMiU01cCJbH7EjTdyGXB5/UK3k38UqhQ4rVK5gkLRH3qpEVFpVBx07ye +WiMLzJ/btx2hSKGEUskNg6cseBicqCKoJYXeTvy6Fi0sSBicHHGwl8Lc9RvN +rDpZoFlcfXiiQAqV1EX2d39kQQTD8oDEZmm8M5h95NUSC3a65P6nZyyNPt0E +W+kyCwTCR6NszMn7hrJusewEXGuMLkpxk0b2XZuDNFcQ8M+uqlHueGmU360r +7c5HwKS9nP/Pd9J4slHJX1GCgEfBvjxrh6RR8EFaZackAeeu1WSpjUtjmmt5 +a6A0AXwf7aqPcMhgcEmAXQ2FAMXDSWwflWSwSuKVPEWRAJczMwkvQ2QQNNp/ +mGsRIJ9pLDUSLYMiwpH6TdoEOX8XS3lSZPBYp77jZl0Cgn9v7DAulEF+vqPi +ovoEpEe5rK98KYNc5TPZZYYEvLzUnHdTWhbHXTgFTUwJ2FJ2peJcnSxW9Bny +S+wnYFtP+9L4c1nccf6Zv4QzARZsXDtcX8vildJqJTEXAg5aeb+Dr7JY61Xu +t9qNAJMQalj4Cgq6LypmdB4kwFd29oaRMgXVm75EfjhKwMz9lOfz6hQ0qWW0 +EMfI+HYqjxHaFOQy3Xfg/HECok+66dIMKeg1ciOO6k1AdmPrcw5LCsa6Hnxi +cJKApsN5Y43+FPT1mzad9CfA9Le+UGgIBSvil79lBxDQntKlqx1OwTP3avqN +Awl4V7kyvDCegnKVnu8TgggYX31aKPoaBftHRWQXQwjwyxfQY16n4LmoA1kp +oQT80i52mrlJwR17M3zkzhLA6TJQ6FFOQWrPV32jcwSIsXbqmTRQ0Ijdardz +OAE52744/XlGwcMOsk/7SdPenQ1/+IKCYwd08pwiCFDluN+i8JaCUab+oXsi +CTC2lt7P852CNlG8o6LnCWj+/ii87gcFmZpd56NIm5+1uhkwRY5//0T0D9J2 +RbHjwwsUfCdgX/MwmoDjv6bCn/NT8YW3uZhKLLleJz1FvglRsVpDUiGBNO/I ++xJOMSo6d/YrfyV9s6+x25BGxW97TGipcQSctt58fL8iFd3/nFw3RNq47S57 +sAoVbyjnsGvFEzBQm67yQJeKuYe4O5pJ39Vb1fDagIoLVzvu8SeQ68U6ZzeJ +VNx9+17aXtIiBYcjlc2oKIuDVm2khyQ+iJrupWIfPtbkSSSAfKrU04aKo8tv +hQ1J74nW773uSsVQ7bEPBaRl/pSeqDtERaZd1LMO0j/8aZz9R6j47FJsxSLp +qomMrAVvKr5WfH5LLomAOK/VamKnqWhHXXd9J2nbT2GNOkFU/GNqcP0oabrj +tP2+c1SM0xAojif932uvcd8oKlopuFTeJF1v1h+VHEfFCsOl17Wkk5ssxe9e +oGKwRe1sF+n9zGdlLank+KOn5b+TVnq4ZdtwJvn+sRnXX6Tn1crfceVQUWNo +3a0VFwggo/KhFVBxQql4UZB0BiWLC29RUfNNnIso6UNX+LKd71KxXC2xQ5K0 +plCEeghBxUzzOCtp0myJM01ZD6koM2//9e/9ds6jjg+rqdjwuDv+7/vXQgcm +3tRTcaivD9eQPjZjFT31lIritltXc5Pe4t0sIfiCigVfv//7Nz7eYQOWSgc5 +/39u9/+Nv9uVtX3XWyqWvXIbfku6sJfed/g9Ff8zHOepJ33K8opv9CA5/qg6 +3iKNrfzcN4aomK664lIiaYGtkVfr/6WiuZDF4nHS/dWzGgPjVGR3HQ0zI31X ++9izxZ9UbEyulVUkHVw66CQ+T37P6+K+ZXL9RPKex1hz0pB9wLrkNukhUabU +KV4aCiR/qA/8mx8pBHGRn4aJsnyz2//mR2T2h1ZRGr70XGjoIfNJZlHg1Hcp +Gq68ErP/GukfflE83DQaRhfaiLuQjvM4rmmkQsPYHhe2d2S+2g58bHbZRMNv +S8dUUknT7WycQ3VpyL9wIGwn6fqdhnGPkIa8Ew9y7pL5P6+8ZkDVhoYOc5/e +WpH7ZTZHIkLLkYarLCwE52IImBaUp+u7kvH5aF7KIj3+U//otiM07OaYOvmG +3I+fqw/OOp6lYS/Vqn4DuV8HVb2vuEXSsF8nyvZRFAEf8gIZnrE0/F3nwNhK +ujvqQuTJSzQMCLmyYEXWg1azRwJxN2kocWva0YqsH801T4gLd2hYbDkQ+yKM +rHfqL63Tymn4r+2T1caka4U/ZedW0tA7fIOUIlmP7vWtUnzQRkPmfHJQJ1nP +so+5wOcZGi71683fIutjZr/X5+EFGjb7SXPPnSHg8h6/6LFlGu4LFQraSjpZ +K+7Fr5Vy+N8XzvQuPwIiFwk7QRk5HLReW9/jS+Zb4gpfhokcbhbkqHEn67fX +kqCwsZkchvZ45cUdIcDTR+Lhjr1ySBsOnyvxIsBtn/pvK0c5/Cetjm/UkwBr +SYe4I95yyBPtPbyL7AeMkrv5GRlymElMGaY6EdBHKcnbflUO5y73+F53JPMn +ozh3Ok8Oa9SkQsocyH4ZUXTNqlgOV+msl2qwI/ePfX6WwGM5XHKg33q1j4CN +Ky6nxHySQ+HdbTnnzch8cw0J91ehY5T7r2Unst896AoKk99ERxPRto+Km8l4 +dgWe69Kh46DD9gdTZH9M1TkTqgl0rGLLY4SR/ZOfzydw3JKO4dZn+yPUCeCq +dPf1DKDjPX4xVQV5AqaEdrnZNtBxv9V9xpQAAb3HaR1Hm+mY8JunypmfzK9n +CxD2ko4zJxQmm1cTkBJcInu7m46dsYcS03kJ0PjMNzg/QseaktO56zkI8CZe +OecIy+PmzgjGnWkWjOyxcRo6JI8nL9ZkqPayYCjJzfYUjwLu5TV4NJjFAu8R +FZoGnwKmZv14NpzBgrkd82NjaxSww9NQevwyeX7jTI0+IqGAITWN12dSWKAR +1FjhpqqAqqoeCpNxLDjroSC8Z58C2utxLKcFkuc5wx+vlPMU8EOF9FKOLQtM +JwJMv+oqYnvV6jXT/OR57CCvX0XYBqTGeqcNVJaR/xOiHLENG/HMxwj2RM1S +EGpTSGZNKOHro3VbZcjzulRc+V5dXRWynpg/D/hcDFnK+muED6vizt4s74Oq +t6FVwkjn5yU1PDOYVmARXARbpBpS1LvVkesSz0r2gkIQ4Cw4fSBSA89dmErr +Gy8AmQhZhoPCJvRfQzknIncdVsrvf2jVvAknY9ItpD/lghpTvDzAWRND9Q6t +v9F3FU4NCDXuYtNCWX2n9Vsas2DiZ5KNaZYWJozab+ARzIAd6s+yTVW10UD3 +keyRzDSo/WmwONeujQJN3JUrKZfAW0XzfaeHDg7kNwV3rE4G5vihLoeVujjV +bqJcNxIP2+liu/kLdDHMOPR3rV8MbAhPCGzQ08PF1LZWTq8oUPLQr5N/r4fv +4+X1fIPCwaPW63zFyc04bOQjt5YaCnX5XYem1utj2HG0sU0JgOnby3Pqj/RR +7YihSxLLDw7Kl6zM3r0Ft593sNS55AtTSmm69ya34G+P77Xa+47BP4WLn2bi +DLDpd8Zod4UnOG6TQwMZBmql5+bE9LrDUhevQCOFgUHLlnpSLe6Q7zHet0uO +gamZsrWPK93hW0xlgOMGBnacOBEsc9UdTrXsKQ/SZKDMRg6OQy7ukGARKvOP +CQPLUrRmpr4dgCr7t7+1fRgo6ZAjNrHsBpInYivV6hlYxZqX3J7vAsnLnjqJ +DQxULaZdxDgX4Eg1IYabGJjsHhlo7usCIw9XFOe3MPBKpkV8OrpAFdv5LKE3 +DDyxVHJj9JMzOF4OD5j9ysDGhLrWPEVnyKoO0qldzcTrqUzef2udYP2q48Ru +OyaqWxzWF5Z0gMKtZ4MnHZgYJm0VmszlAJpnk7em7Wdi0Mv+WMlxe7CYZL3t +PcBExxPxrUef2ENM98z8weNMTDZRrf7gZQ+/CsKMgyOYKPnykDFXtR28N0h7 +U1TCRPuJyMdCx23B60zhNdMyJr7zruUm7GxhtuyBxw8WE28EzbBct9qCEK13 +btNDJm6qvzI/JmELZrzSUjX15Pjy95XaWm3gcVfRoTdvmbjAqLqcpGoDuwT+ +UfXvZaJ4oE6LsoQN9O5omRXrY2L0Uz7iPbcNTFeNxrl8ZOKpZkffwx+tQfW6 +Rum/I0w0ynWLNrhsDY/fG/knjTHxwYfzKnYR1rBr3T5Qn2RiODNfM9LbGjxj +z3SenmGiQdvIJm5Ta5iuj8kW/cXECyNMEVdda4hcyDxYtcDEsRUd6s1y1rBG +u1jFeYmJoq/gtOFaa8g9UTWzvMxEu9Wb3jX92Qf/A/VqfwY= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VVsUAHBTqAxFmYd7r4syZ0zutRaVEikyy5AiTShlLlNmSWRIGZKU +hHtK9ZAhlCiihBIalB6ZXoaQvNNf5/t955z9rbP32mvtQ3X3sfLgYGNjW8nO +xvb3OjvQ0kRPLDR0Kw+0SX6Jhl25YkFGvZHgX/qnp79TBnD9K3ex3lR4dPWN +S2anGvjvvdPD2VsAi2vX3PHqNIS146Kp8z334KmSnY9cpwUMPrbwme5pgEgO +a2vTDhcwoY/0T/W8htb+TzF/XnrDfI9e+mTPZ1Aq4or4WncOGrfeKuws+Al3 +lYZXeLdfBKnBym/uKktwQ5vG3eyYCeuOu97h2cqJXB91WkydciF1k0m1hQ0v +Dh/7mJLwpADeZWnUT63hR5ml2xrpvTchsTDsFYf4WrQQTShq/XQbRC9/iU/L +EcZjOcVjHFElIKb84PyvImFcKfhniZJUAhINMWHOLGGMf3qhSz+9BGQmN55R +bBRGdqGnr5xulYC8ua9b9XdhDKysHHB7UQJaXEu6X7TW4cY5Ww9vobuw57TI +kGbrOnxcM5B/8dpdiLU2NXw9ux5ffQq+WpFfChIV7RIc7CKY0JcxJ1dcCmXC +1nObVoug+VWj4SSiFLpfu7AuyYrgn7Sos2YNpUC3PE2z3CmCLaqLx0K+lELD +7jzujisiGC1lmXCTXgZLJjPtbQxRvGU8tFa6oAxSioJLlkxEkdFhsaWmuAzo +3Gxxqpai+KK2+IMtUQbmT1cZXfAQxcsRGUn+9WWQvZVy3zxZFGsm0mIPD5TB +ZjTLfDEoimGCgwcFxcvBT/+6a0ukGPIMOi6eii+HXfkC02ZJYmh9PrOy7WI5 +0HhC49rTxTDR7E8lLaMcOrpsiTe3xdBVRCy8uqAc1Hz5OAfaxfC+31nx29Xl +8L0ooOg/CXH8rnLf5MSPcti/zmJM8r44Ph18xPuGzgKtkOqI3MfiqDrtt7dQ +kQWrPm8QoT4TR6d4qYenlFhQWc4JCu/Ecfo7dx+3BgtEzCpTNJbFkTijn8Bn +wIKOCLr2djMJNBLPDbywlwXbJhaCvb9IIGM4NN0jiAVBOy8rPfkhgaduxDPa +Q1hQdl31vfCsBIZE+8ton2OBmLWbfiWvJA5RlNPmIlnw45+nc5xqkpg30GDk +nMSCtMiU01cCJbH7EjTdyGXB5/UK3k38UqhQ4rVK5gkLRH3qpEVFpVBx07ye +WiMLzJ/btx2hSKGEUskNg6cseBicqCKoJYXeTvy6Fi0sSBicHHGwl8Lc9RvN +rDpZoFlcfXiiQAqV1EX2d39kQQTD8oDEZmm8M5h95NUSC3a65P6nZyyNPt0E +W+kyCwTCR6NszMn7hrJusewEXGuMLkpxk0b2XZuDNFcQ8M+uqlHueGmU360r +7c5HwKS9nP/Pd9J4slHJX1GCgEfBvjxrh6RR8EFaZackAeeu1WSpjUtjmmt5 +a6A0AXwf7aqPcMhgcEmAXQ2FAMXDSWwflWSwSuKVPEWRAJczMwkvQ2QQNNp/ +mGsRIJ9pLDUSLYMiwpH6TdoEOX8XS3lSZPBYp77jZl0Cgn9v7DAulEF+vqPi +ovoEpEe5rK98KYNc5TPZZYYEvLzUnHdTWhbHXTgFTUwJ2FJ2peJcnSxW9Bny +S+wnYFtP+9L4c1nccf6Zv4QzARZsXDtcX8vildJqJTEXAg5aeb+Dr7JY61Xu +t9qNAJMQalj4Cgq6LypmdB4kwFd29oaRMgXVm75EfjhKwMz9lOfz6hQ0qWW0 +EMfI+HYqjxHaFOQy3Xfg/HECok+66dIMKeg1ciOO6k1AdmPrcw5LCsa6Hnxi +cJKApsN5Y43+FPT1mzad9CfA9Le+UGgIBSvil79lBxDQntKlqx1OwTP3avqN +Awl4V7kyvDCegnKVnu8TgggYX31aKPoaBftHRWQXQwjwyxfQY16n4LmoA1kp +oQT80i52mrlJwR17M3zkzhLA6TJQ6FFOQWrPV32jcwSIsXbqmTRQ0Ijdardz +OAE52744/XlGwcMOsk/7SdPenQ1/+IKCYwd08pwiCFDluN+i8JaCUab+oXsi +CTC2lt7P852CNlG8o6LnCWj+/ii87gcFmZpd56NIm5+1uhkwRY5//0T0D9J2 +RbHjwwsUfCdgX/MwmoDjv6bCn/NT8YW3uZhKLLleJz1FvglRsVpDUiGBNO/I ++xJOMSo6d/YrfyV9s6+x25BGxW97TGipcQSctt58fL8iFd3/nFw3RNq47S57 +sAoVbyjnsGvFEzBQm67yQJeKuYe4O5pJ39Vb1fDagIoLVzvu8SeQ68U6ZzeJ +VNx9+17aXtIiBYcjlc2oKIuDVm2khyQ+iJrupWIfPtbkSSSAfKrU04aKo8tv +hQ1J74nW773uSsVQ7bEPBaRl/pSeqDtERaZd1LMO0j/8aZz9R6j47FJsxSLp +qomMrAVvKr5WfH5LLomAOK/VamKnqWhHXXd9J2nbT2GNOkFU/GNqcP0oabrj +tP2+c1SM0xAojif932uvcd8oKlopuFTeJF1v1h+VHEfFCsOl17Wkk5ssxe9e +oGKwRe1sF+n9zGdlLank+KOn5b+TVnq4ZdtwJvn+sRnXX6Tn1crfceVQUWNo +3a0VFwggo/KhFVBxQql4UZB0BiWLC29RUfNNnIso6UNX+LKd71KxXC2xQ5K0 +plCEeghBxUzzOCtp0myJM01ZD6koM2//9e/9ds6jjg+rqdjwuDv+7/vXQgcm +3tRTcaivD9eQPjZjFT31lIritltXc5Pe4t0sIfiCigVfv//7Nz7eYQOWSgc5 +/39u9/+Nv9uVtX3XWyqWvXIbfku6sJfed/g9Ff8zHOepJ33K8opv9CA5/qg6 +3iKNrfzcN4aomK664lIiaYGtkVfr/6WiuZDF4nHS/dWzGgPjVGR3HQ0zI31X ++9izxZ9UbEyulVUkHVw66CQ+T37P6+K+ZXL9RPKex1hz0pB9wLrkNukhUabU +KV4aCiR/qA/8mx8pBHGRn4aJsnyz2//mR2T2h1ZRGr70XGjoIfNJZlHg1Hcp +Gq68ErP/GukfflE83DQaRhfaiLuQjvM4rmmkQsPYHhe2d2S+2g58bHbZRMNv +S8dUUknT7WycQ3VpyL9wIGwn6fqdhnGPkIa8Ew9y7pL5P6+8ZkDVhoYOc5/e +WpH7ZTZHIkLLkYarLCwE52IImBaUp+u7kvH5aF7KIj3+U//otiM07OaYOvmG +3I+fqw/OOp6lYS/Vqn4DuV8HVb2vuEXSsF8nyvZRFAEf8gIZnrE0/F3nwNhK +ujvqQuTJSzQMCLmyYEXWg1azRwJxN2kocWva0YqsH801T4gLd2hYbDkQ+yKM +rHfqL63Tymn4r+2T1caka4U/ZedW0tA7fIOUIlmP7vWtUnzQRkPmfHJQJ1nP +so+5wOcZGi71683fIutjZr/X5+EFGjb7SXPPnSHg8h6/6LFlGu4LFQraSjpZ +K+7Fr5Vy+N8XzvQuPwIiFwk7QRk5HLReW9/jS+Zb4gpfhokcbhbkqHEn67fX +kqCwsZkchvZ45cUdIcDTR+Lhjr1ySBsOnyvxIsBtn/pvK0c5/Cetjm/UkwBr +SYe4I95yyBPtPbyL7AeMkrv5GRlymElMGaY6EdBHKcnbflUO5y73+F53JPMn +ozh3Ok8Oa9SkQsocyH4ZUXTNqlgOV+msl2qwI/ePfX6WwGM5XHKg33q1j4CN +Ky6nxHySQ+HdbTnnzch8cw0J91ehY5T7r2Unst896AoKk99ERxPRto+Km8l4 +dgWe69Kh46DD9gdTZH9M1TkTqgl0rGLLY4SR/ZOfzydw3JKO4dZn+yPUCeCq +dPf1DKDjPX4xVQV5AqaEdrnZNtBxv9V9xpQAAb3HaR1Hm+mY8JunypmfzK9n +CxD2ko4zJxQmm1cTkBJcInu7m46dsYcS03kJ0PjMNzg/QseaktO56zkI8CZe +OecIy+PmzgjGnWkWjOyxcRo6JI8nL9ZkqPayYCjJzfYUjwLu5TV4NJjFAu8R +FZoGnwKmZv14NpzBgrkd82NjaxSww9NQevwyeX7jTI0+IqGAITWN12dSWKAR +1FjhpqqAqqoeCpNxLDjroSC8Z58C2utxLKcFkuc5wx+vlPMU8EOF9FKOLQtM +JwJMv+oqYnvV6jXT/OR57CCvX0XYBqTGeqcNVJaR/xOiHLENG/HMxwj2RM1S +EGpTSGZNKOHro3VbZcjzulRc+V5dXRWynpg/D/hcDFnK+muED6vizt4s74Oq +t6FVwkjn5yU1PDOYVmARXARbpBpS1LvVkesSz0r2gkIQ4Cw4fSBSA89dmErr +Gy8AmQhZhoPCJvRfQzknIncdVsrvf2jVvAknY9ItpD/lghpTvDzAWRND9Q6t +v9F3FU4NCDXuYtNCWX2n9Vsas2DiZ5KNaZYWJozab+ARzIAd6s+yTVW10UD3 +keyRzDSo/WmwONeujQJN3JUrKZfAW0XzfaeHDg7kNwV3rE4G5vihLoeVujjV +bqJcNxIP2+liu/kLdDHMOPR3rV8MbAhPCGzQ08PF1LZWTq8oUPLQr5N/r4fv +4+X1fIPCwaPW63zFyc04bOQjt5YaCnX5XYem1utj2HG0sU0JgOnby3Pqj/RR +7YihSxLLDw7Kl6zM3r0Ft593sNS55AtTSmm69ya34G+P77Xa+47BP4WLn2bi +DLDpd8Zod4UnOG6TQwMZBmql5+bE9LrDUhevQCOFgUHLlnpSLe6Q7zHet0uO +gamZsrWPK93hW0xlgOMGBnacOBEsc9UdTrXsKQ/SZKDMRg6OQy7ukGARKvOP +CQPLUrRmpr4dgCr7t7+1fRgo6ZAjNrHsBpInYivV6hlYxZqX3J7vAsnLnjqJ +DQxULaZdxDgX4Eg1IYabGJjsHhlo7usCIw9XFOe3MPBKpkV8OrpAFdv5LKE3 +DDyxVHJj9JMzOF4OD5j9ysDGhLrWPEVnyKoO0qldzcTrqUzef2udYP2q48Ru +OyaqWxzWF5Z0gMKtZ4MnHZgYJm0VmszlAJpnk7em7Wdi0Mv+WMlxe7CYZL3t +PcBExxPxrUef2ENM98z8weNMTDZRrf7gZQ+/CsKMgyOYKPnykDFXtR28N0h7 +U1TCRPuJyMdCx23B60zhNdMyJr7zruUm7GxhtuyBxw8WE28EzbBct9qCEK13 +btNDJm6qvzI/JmELZrzSUjX15Pjy95XaWm3gcVfRoTdvmbjAqLqcpGoDuwT+ +UfXvZaJ4oE6LsoQN9O5omRXrY2L0Uz7iPbcNTFeNxrl8ZOKpZkffwx+tQfW6 +Rum/I0w0ynWLNrhsDY/fG/knjTHxwYfzKnYR1rBr3T5Qn2RiODNfM9LbGjxj +z3SenmGiQdvIJm5Ta5iuj8kW/cXECyNMEVdda4hcyDxYtcDEsRUd6s1y1rBG +u1jFeYmJoq/gtOFaa8g9UTWzvMxEu9Wb3jX92Qf/A/VqfwY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06855948700858715}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06855948700858715}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VVsUAHBTqAxFmYd7r4syZ0zutRaVEikyy5AiTShlLlNmSWRIGZKU +hHtK9ZAhlCiihBIalB6ZXoaQvNNf5/t955z9rbP32mvtQ3X3sfLgYGNjW8nO +xvb3OjvQ0kRPLDR0Kw+0SX6Jhl25YkFGvZHgX/qnp79TBnD9K3ex3lR4dPWN +S2anGvjvvdPD2VsAi2vX3PHqNIS146Kp8z334KmSnY9cpwUMPrbwme5pgEgO +a2vTDhcwoY/0T/W8htb+TzF/XnrDfI9e+mTPZ1Aq4or4WncOGrfeKuws+Al3 +lYZXeLdfBKnBym/uKktwQ5vG3eyYCeuOu97h2cqJXB91WkydciF1k0m1hQ0v +Dh/7mJLwpADeZWnUT63hR5ml2xrpvTchsTDsFYf4WrQQTShq/XQbRC9/iU/L +EcZjOcVjHFElIKb84PyvImFcKfhniZJUAhINMWHOLGGMf3qhSz+9BGQmN55R +bBRGdqGnr5xulYC8ua9b9XdhDKysHHB7UQJaXEu6X7TW4cY5Ww9vobuw57TI +kGbrOnxcM5B/8dpdiLU2NXw9ux5ffQq+WpFfChIV7RIc7CKY0JcxJ1dcCmXC +1nObVoug+VWj4SSiFLpfu7AuyYrgn7Sos2YNpUC3PE2z3CmCLaqLx0K+lELD +7jzujisiGC1lmXCTXgZLJjPtbQxRvGU8tFa6oAxSioJLlkxEkdFhsaWmuAzo +3Gxxqpai+KK2+IMtUQbmT1cZXfAQxcsRGUn+9WWQvZVy3zxZFGsm0mIPD5TB +ZjTLfDEoimGCgwcFxcvBT/+6a0ukGPIMOi6eii+HXfkC02ZJYmh9PrOy7WI5 +0HhC49rTxTDR7E8lLaMcOrpsiTe3xdBVRCy8uqAc1Hz5OAfaxfC+31nx29Xl +8L0ooOg/CXH8rnLf5MSPcti/zmJM8r44Ph18xPuGzgKtkOqI3MfiqDrtt7dQ +kQWrPm8QoT4TR6d4qYenlFhQWc4JCu/Ecfo7dx+3BgtEzCpTNJbFkTijn8Bn +wIKOCLr2djMJNBLPDbywlwXbJhaCvb9IIGM4NN0jiAVBOy8rPfkhgaduxDPa +Q1hQdl31vfCsBIZE+8ton2OBmLWbfiWvJA5RlNPmIlnw45+nc5xqkpg30GDk +nMSCtMiU01cCJbH7EjTdyGXB5/UK3k38UqhQ4rVK5gkLRH3qpEVFpVBx07ye +WiMLzJ/btx2hSKGEUskNg6cseBicqCKoJYXeTvy6Fi0sSBicHHGwl8Lc9RvN +rDpZoFlcfXiiQAqV1EX2d39kQQTD8oDEZmm8M5h95NUSC3a65P6nZyyNPt0E +W+kyCwTCR6NszMn7hrJusewEXGuMLkpxk0b2XZuDNFcQ8M+uqlHueGmU360r +7c5HwKS9nP/Pd9J4slHJX1GCgEfBvjxrh6RR8EFaZackAeeu1WSpjUtjmmt5 +a6A0AXwf7aqPcMhgcEmAXQ2FAMXDSWwflWSwSuKVPEWRAJczMwkvQ2QQNNp/ +mGsRIJ9pLDUSLYMiwpH6TdoEOX8XS3lSZPBYp77jZl0Cgn9v7DAulEF+vqPi +ovoEpEe5rK98KYNc5TPZZYYEvLzUnHdTWhbHXTgFTUwJ2FJ2peJcnSxW9Bny +S+wnYFtP+9L4c1nccf6Zv4QzARZsXDtcX8vildJqJTEXAg5aeb+Dr7JY61Xu +t9qNAJMQalj4Cgq6LypmdB4kwFd29oaRMgXVm75EfjhKwMz9lOfz6hQ0qWW0 +EMfI+HYqjxHaFOQy3Xfg/HECok+66dIMKeg1ciOO6k1AdmPrcw5LCsa6Hnxi +cJKApsN5Y43+FPT1mzad9CfA9Le+UGgIBSvil79lBxDQntKlqx1OwTP3avqN +Awl4V7kyvDCegnKVnu8TgggYX31aKPoaBftHRWQXQwjwyxfQY16n4LmoA1kp +oQT80i52mrlJwR17M3zkzhLA6TJQ6FFOQWrPV32jcwSIsXbqmTRQ0Ijdardz +OAE52744/XlGwcMOsk/7SdPenQ1/+IKCYwd08pwiCFDluN+i8JaCUab+oXsi +CTC2lt7P852CNlG8o6LnCWj+/ii87gcFmZpd56NIm5+1uhkwRY5//0T0D9J2 +RbHjwwsUfCdgX/MwmoDjv6bCn/NT8YW3uZhKLLleJz1FvglRsVpDUiGBNO/I ++xJOMSo6d/YrfyV9s6+x25BGxW97TGipcQSctt58fL8iFd3/nFw3RNq47S57 +sAoVbyjnsGvFEzBQm67yQJeKuYe4O5pJ39Vb1fDagIoLVzvu8SeQ68U6ZzeJ +VNx9+17aXtIiBYcjlc2oKIuDVm2khyQ+iJrupWIfPtbkSSSAfKrU04aKo8tv +hQ1J74nW773uSsVQ7bEPBaRl/pSeqDtERaZd1LMO0j/8aZz9R6j47FJsxSLp +qomMrAVvKr5WfH5LLomAOK/VamKnqWhHXXd9J2nbT2GNOkFU/GNqcP0oabrj +tP2+c1SM0xAojif932uvcd8oKlopuFTeJF1v1h+VHEfFCsOl17Wkk5ssxe9e +oGKwRe1sF+n9zGdlLank+KOn5b+TVnq4ZdtwJvn+sRnXX6Tn1crfceVQUWNo +3a0VFwggo/KhFVBxQql4UZB0BiWLC29RUfNNnIso6UNX+LKd71KxXC2xQ5K0 +plCEeghBxUzzOCtp0myJM01ZD6koM2//9e/9ds6jjg+rqdjwuDv+7/vXQgcm +3tRTcaivD9eQPjZjFT31lIritltXc5Pe4t0sIfiCigVfv//7Nz7eYQOWSgc5 +/39u9/+Nv9uVtX3XWyqWvXIbfku6sJfed/g9Ff8zHOepJ33K8opv9CA5/qg6 +3iKNrfzcN4aomK664lIiaYGtkVfr/6WiuZDF4nHS/dWzGgPjVGR3HQ0zI31X ++9izxZ9UbEyulVUkHVw66CQ+T37P6+K+ZXL9RPKex1hz0pB9wLrkNukhUabU +KV4aCiR/qA/8mx8pBHGRn4aJsnyz2//mR2T2h1ZRGr70XGjoIfNJZlHg1Hcp +Gq68ErP/GukfflE83DQaRhfaiLuQjvM4rmmkQsPYHhe2d2S+2g58bHbZRMNv +S8dUUknT7WycQ3VpyL9wIGwn6fqdhnGPkIa8Ew9y7pL5P6+8ZkDVhoYOc5/e +WpH7ZTZHIkLLkYarLCwE52IImBaUp+u7kvH5aF7KIj3+U//otiM07OaYOvmG +3I+fqw/OOp6lYS/Vqn4DuV8HVb2vuEXSsF8nyvZRFAEf8gIZnrE0/F3nwNhK +ujvqQuTJSzQMCLmyYEXWg1azRwJxN2kocWva0YqsH801T4gLd2hYbDkQ+yKM +rHfqL63Tymn4r+2T1caka4U/ZedW0tA7fIOUIlmP7vWtUnzQRkPmfHJQJ1nP +so+5wOcZGi71683fIutjZr/X5+EFGjb7SXPPnSHg8h6/6LFlGu4LFQraSjpZ +K+7Fr5Vy+N8XzvQuPwIiFwk7QRk5HLReW9/jS+Zb4gpfhokcbhbkqHEn67fX +kqCwsZkchvZ45cUdIcDTR+Lhjr1ySBsOnyvxIsBtn/pvK0c5/Cetjm/UkwBr +SYe4I95yyBPtPbyL7AeMkrv5GRlymElMGaY6EdBHKcnbflUO5y73+F53JPMn +ozh3Ok8Oa9SkQsocyH4ZUXTNqlgOV+msl2qwI/ePfX6WwGM5XHKg33q1j4CN +Ky6nxHySQ+HdbTnnzch8cw0J91ehY5T7r2Unst896AoKk99ERxPRto+Km8l4 +dgWe69Kh46DD9gdTZH9M1TkTqgl0rGLLY4SR/ZOfzydw3JKO4dZn+yPUCeCq +dPf1DKDjPX4xVQV5AqaEdrnZNtBxv9V9xpQAAb3HaR1Hm+mY8JunypmfzK9n +CxD2ko4zJxQmm1cTkBJcInu7m46dsYcS03kJ0PjMNzg/QseaktO56zkI8CZe +OecIy+PmzgjGnWkWjOyxcRo6JI8nL9ZkqPayYCjJzfYUjwLu5TV4NJjFAu8R +FZoGnwKmZv14NpzBgrkd82NjaxSww9NQevwyeX7jTI0+IqGAITWN12dSWKAR +1FjhpqqAqqoeCpNxLDjroSC8Z58C2utxLKcFkuc5wx+vlPMU8EOF9FKOLQtM +JwJMv+oqYnvV6jXT/OR57CCvX0XYBqTGeqcNVJaR/xOiHLENG/HMxwj2RM1S +EGpTSGZNKOHro3VbZcjzulRc+V5dXRWynpg/D/hcDFnK+muED6vizt4s74Oq +t6FVwkjn5yU1PDOYVmARXARbpBpS1LvVkesSz0r2gkIQ4Cw4fSBSA89dmErr +Gy8AmQhZhoPCJvRfQzknIncdVsrvf2jVvAknY9ItpD/lghpTvDzAWRND9Q6t +v9F3FU4NCDXuYtNCWX2n9Vsas2DiZ5KNaZYWJozab+ARzIAd6s+yTVW10UD3 +keyRzDSo/WmwONeujQJN3JUrKZfAW0XzfaeHDg7kNwV3rE4G5vihLoeVujjV +bqJcNxIP2+liu/kLdDHMOPR3rV8MbAhPCGzQ08PF1LZWTq8oUPLQr5N/r4fv +4+X1fIPCwaPW63zFyc04bOQjt5YaCnX5XYem1utj2HG0sU0JgOnby3Pqj/RR +7YihSxLLDw7Kl6zM3r0Ft593sNS55AtTSmm69ya34G+P77Xa+47BP4WLn2bi +DLDpd8Zod4UnOG6TQwMZBmql5+bE9LrDUhevQCOFgUHLlnpSLe6Q7zHet0uO +gamZsrWPK93hW0xlgOMGBnacOBEsc9UdTrXsKQ/SZKDMRg6OQy7ukGARKvOP +CQPLUrRmpr4dgCr7t7+1fRgo6ZAjNrHsBpInYivV6hlYxZqX3J7vAsnLnjqJ +DQxULaZdxDgX4Eg1IYabGJjsHhlo7usCIw9XFOe3MPBKpkV8OrpAFdv5LKE3 +DDyxVHJj9JMzOF4OD5j9ysDGhLrWPEVnyKoO0qldzcTrqUzef2udYP2q48Ru +OyaqWxzWF5Z0gMKtZ4MnHZgYJm0VmszlAJpnk7em7Wdi0Mv+WMlxe7CYZL3t +PcBExxPxrUef2ENM98z8weNMTDZRrf7gZQ+/CsKMgyOYKPnykDFXtR28N0h7 +U1TCRPuJyMdCx23B60zhNdMyJr7zruUm7GxhtuyBxw8WE28EzbBct9qCEK13 +btNDJm6qvzI/JmELZrzSUjX15Pjy95XaWm3gcVfRoTdvmbjAqLqcpGoDuwT+ +UfXvZaJ4oE6LsoQN9O5omRXrY2L0Uz7iPbcNTFeNxrl8ZOKpZkffwx+tQfW6 +Rum/I0w0ynWLNrhsDY/fG/knjTHxwYfzKnYR1rBr3T5Qn2RiODNfM9LbGjxj +z3SenmGiQdvIJm5Ta5iuj8kW/cXECyNMEVdda4hcyDxYtcDEsRUd6s1y1rBG +u1jFeYmJoq/gtOFaa8g9UTWzvMxEu9Wb3jX92Qf/A/VqfwY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06855948700858715}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06855948700858715}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993920474793891*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"55e120b0-983c-47ee-b24f-ad19f18bd0d3"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ -53b7ef04b97c"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VVsUAHBTqAxFmYd7r4syZ0zutRaVEikyy5AiTShlLlNmSWRIGZKU +hHtK9ZAhlCiihBIalB6ZXoaQvNNf5/t955z9rbP32mvtQ3X3sfLgYGNjW8nO +xvb3OjvQ0kRPLDR0Kw+0SX6Jhl25YkFGvZHgX/qnp79TBnD9K3ex3lR4dPWN +S2anGvjvvdPD2VsAi2vX3PHqNIS146Kp8z334KmSnY9cpwUMPrbwme5pgEgO +a2vTDhcwoY/0T/W8htb+TzF/XnrDfI9e+mTPZ1Aq4or4WncOGrfeKuws+Al3 +lYZXeLdfBKnBym/uKktwQ5vG3eyYCeuOu97h2cqJXB91WkydciF1k0m1hQ0v +Dh/7mJLwpADeZWnUT63hR5ml2xrpvTchsTDsFYf4WrQQTShq/XQbRC9/iU/L +EcZjOcVjHFElIKb84PyvImFcKfhniZJUAhINMWHOLGGMf3qhSz+9BGQmN55R +bBRGdqGnr5xulYC8ua9b9XdhDKysHHB7UQJaXEu6X7TW4cY5Ww9vobuw57TI +kGbrOnxcM5B/8dpdiLU2NXw9ux5ffQq+WpFfChIV7RIc7CKY0JcxJ1dcCmXC +1nObVoug+VWj4SSiFLpfu7AuyYrgn7Sos2YNpUC3PE2z3CmCLaqLx0K+lELD +7jzujisiGC1lmXCTXgZLJjPtbQxRvGU8tFa6oAxSioJLlkxEkdFhsaWmuAzo +3Gxxqpai+KK2+IMtUQbmT1cZXfAQxcsRGUn+9WWQvZVy3zxZFGsm0mIPD5TB +ZjTLfDEoimGCgwcFxcvBT/+6a0ukGPIMOi6eii+HXfkC02ZJYmh9PrOy7WI5 +0HhC49rTxTDR7E8lLaMcOrpsiTe3xdBVRCy8uqAc1Hz5OAfaxfC+31nx29Xl +8L0ooOg/CXH8rnLf5MSPcti/zmJM8r44Ph18xPuGzgKtkOqI3MfiqDrtt7dQ +kQWrPm8QoT4TR6d4qYenlFhQWc4JCu/Ecfo7dx+3BgtEzCpTNJbFkTijn8Bn +wIKOCLr2djMJNBLPDbywlwXbJhaCvb9IIGM4NN0jiAVBOy8rPfkhgaduxDPa +Q1hQdl31vfCsBIZE+8ton2OBmLWbfiWvJA5RlNPmIlnw45+nc5xqkpg30GDk +nMSCtMiU01cCJbH7EjTdyGXB5/UK3k38UqhQ4rVK5gkLRH3qpEVFpVBx07ye +WiMLzJ/btx2hSKGEUskNg6cseBicqCKoJYXeTvy6Fi0sSBicHHGwl8Lc9RvN +rDpZoFlcfXiiQAqV1EX2d39kQQTD8oDEZmm8M5h95NUSC3a65P6nZyyNPt0E +W+kyCwTCR6NszMn7hrJusewEXGuMLkpxk0b2XZuDNFcQ8M+uqlHueGmU360r +7c5HwKS9nP/Pd9J4slHJX1GCgEfBvjxrh6RR8EFaZackAeeu1WSpjUtjmmt5 +a6A0AXwf7aqPcMhgcEmAXQ2FAMXDSWwflWSwSuKVPEWRAJczMwkvQ2QQNNp/ +mGsRIJ9pLDUSLYMiwpH6TdoEOX8XS3lSZPBYp77jZl0Cgn9v7DAulEF+vqPi +ovoEpEe5rK98KYNc5TPZZYYEvLzUnHdTWhbHXTgFTUwJ2FJ2peJcnSxW9Bny +S+wnYFtP+9L4c1nccf6Zv4QzARZsXDtcX8vildJqJTEXAg5aeb+Dr7JY61Xu +t9qNAJMQalj4Cgq6LypmdB4kwFd29oaRMgXVm75EfjhKwMz9lOfz6hQ0qWW0 +EMfI+HYqjxHaFOQy3Xfg/HECok+66dIMKeg1ciOO6k1AdmPrcw5LCsa6Hnxi +cJKApsN5Y43+FPT1mzad9CfA9Le+UGgIBSvil79lBxDQntKlqx1OwTP3avqN +Awl4V7kyvDCegnKVnu8TgggYX31aKPoaBftHRWQXQwjwyxfQY16n4LmoA1kp +oQT80i52mrlJwR17M3zkzhLA6TJQ6FFOQWrPV32jcwSIsXbqmTRQ0Ijdardz +OAE52744/XlGwcMOsk/7SdPenQ1/+IKCYwd08pwiCFDluN+i8JaCUab+oXsi +CTC2lt7P852CNlG8o6LnCWj+/ii87gcFmZpd56NIm5+1uhkwRY5//0T0D9J2 +RbHjwwsUfCdgX/MwmoDjv6bCn/NT8YW3uZhKLLleJz1FvglRsVpDUiGBNO/I ++xJOMSo6d/YrfyV9s6+x25BGxW97TGipcQSctt58fL8iFd3/nFw3RNq47S57 +sAoVbyjnsGvFEzBQm67yQJeKuYe4O5pJ39Vb1fDagIoLVzvu8SeQ68U6ZzeJ +VNx9+17aXtIiBYcjlc2oKIuDVm2khyQ+iJrupWIfPtbkSSSAfKrU04aKo8tv +hQ1J74nW773uSsVQ7bEPBaRl/pSeqDtERaZd1LMO0j/8aZz9R6j47FJsxSLp +qomMrAVvKr5WfH5LLomAOK/VamKnqWhHXXd9J2nbT2GNOkFU/GNqcP0oabrj +tP2+c1SM0xAojif932uvcd8oKlopuFTeJF1v1h+VHEfFCsOl17Wkk5ssxe9e +oGKwRe1sF+n9zGdlLank+KOn5b+TVnq4ZdtwJvn+sRnXX6Tn1crfceVQUWNo +3a0VFwggo/KhFVBxQql4UZB0BiWLC29RUfNNnIso6UNX+LKd71KxXC2xQ5K0 +plCEeghBxUzzOCtp0myJM01ZD6koM2//9e/9ds6jjg+rqdjwuDv+7/vXQgcm +3tRTcaivD9eQPjZjFT31lIritltXc5Pe4t0sIfiCigVfv//7Nz7eYQOWSgc5 +/39u9/+Nv9uVtX3XWyqWvXIbfku6sJfed/g9Ff8zHOepJ33K8opv9CA5/qg6 +3iKNrfzcN4aomK664lIiaYGtkVfr/6WiuZDF4nHS/dWzGgPjVGR3HQ0zI31X ++9izxZ9UbEyulVUkHVw66CQ+T37P6+K+ZXL9RPKex1hz0pB9wLrkNukhUabU +KV4aCiR/qA/8mx8pBHGRn4aJsnyz2//mR2T2h1ZRGr70XGjoIfNJZlHg1Hcp +Gq68ErP/GukfflE83DQaRhfaiLuQjvM4rmmkQsPYHhe2d2S+2g58bHbZRMNv +S8dUUknT7WycQ3VpyL9wIGwn6fqdhnGPkIa8Ew9y7pL5P6+8ZkDVhoYOc5/e +WpH7ZTZHIkLLkYarLCwE52IImBaUp+u7kvH5aF7KIj3+U//otiM07OaYOvmG +3I+fqw/OOp6lYS/Vqn4DuV8HVb2vuEXSsF8nyvZRFAEf8gIZnrE0/F3nwNhK +ujvqQuTJSzQMCLmyYEXWg1azRwJxN2kocWva0YqsH801T4gLd2hYbDkQ+yKM +rHfqL63Tymn4r+2T1caka4U/ZedW0tA7fIOUIlmP7vWtUnzQRkPmfHJQJ1nP +so+5wOcZGi71683fIutjZr/X5+EFGjb7SXPPnSHg8h6/6LFlGu4LFQraSjpZ +K+7Fr5Vy+N8XzvQuPwIiFwk7QRk5HLReW9/jS+Zb4gpfhokcbhbkqHEn67fX +kqCwsZkchvZ45cUdIcDTR+Lhjr1ySBsOnyvxIsBtn/pvK0c5/Cetjm/UkwBr +SYe4I95yyBPtPbyL7AeMkrv5GRlymElMGaY6EdBHKcnbflUO5y73+F53JPMn +ozh3Ok8Oa9SkQsocyH4ZUXTNqlgOV+msl2qwI/ePfX6WwGM5XHKg33q1j4CN +Ky6nxHySQ+HdbTnnzch8cw0J91ehY5T7r2Unst896AoKk99ERxPRto+Km8l4 +dgWe69Kh46DD9gdTZH9M1TkTqgl0rGLLY4SR/ZOfzydw3JKO4dZn+yPUCeCq +dPf1DKDjPX4xVQV5AqaEdrnZNtBxv9V9xpQAAb3HaR1Hm+mY8JunypmfzK9n +CxD2ko4zJxQmm1cTkBJcInu7m46dsYcS03kJ0PjMNzg/QseaktO56zkI8CZe +OecIy+PmzgjGnWkWjOyxcRo6JI8nL9ZkqPayYCjJzfYUjwLu5TV4NJjFAu8R +FZoGnwKmZv14NpzBgrkd82NjaxSww9NQevwyeX7jTI0+IqGAITWN12dSWKAR +1FjhpqqAqqoeCpNxLDjroSC8Z58C2utxLKcFkuc5wx+vlPMU8EOF9FKOLQtM +JwJMv+oqYnvV6jXT/OR57CCvX0XYBqTGeqcNVJaR/xOiHLENG/HMxwj2RM1S +EGpTSGZNKOHro3VbZcjzulRc+V5dXRWynpg/D/hcDFnK+muED6vizt4s74Oq +t6FVwkjn5yU1PDOYVmARXARbpBpS1LvVkesSz0r2gkIQ4Cw4fSBSA89dmErr +Gy8AmQhZhoPCJvRfQzknIncdVsrvf2jVvAknY9ItpD/lghpTvDzAWRND9Q6t +v9F3FU4NCDXuYtNCWX2n9Vsas2DiZ5KNaZYWJozab+ARzIAd6s+yTVW10UD3 +keyRzDSo/WmwONeujQJN3JUrKZfAW0XzfaeHDg7kNwV3rE4G5vihLoeVujjV +bqJcNxIP2+liu/kLdDHMOPR3rV8MbAhPCGzQ08PF1LZWTq8oUPLQr5N/r4fv +4+X1fIPCwaPW63zFyc04bOQjt5YaCnX5XYem1utj2HG0sU0JgOnby3Pqj/RR +7YihSxLLDw7Kl6zM3r0Ft593sNS55AtTSmm69ya34G+P77Xa+47BP4WLn2bi +DLDpd8Zod4UnOG6TQwMZBmql5+bE9LrDUhevQCOFgUHLlnpSLe6Q7zHet0uO +gamZsrWPK93hW0xlgOMGBnacOBEsc9UdTrXsKQ/SZKDMRg6OQy7ukGARKvOP +CQPLUrRmpr4dgCr7t7+1fRgo6ZAjNrHsBpInYivV6hlYxZqX3J7vAsnLnjqJ +DQxULaZdxDgX4Eg1IYabGJjsHhlo7usCIw9XFOe3MPBKpkV8OrpAFdv5LKE3 +DDyxVHJj9JMzOF4OD5j9ysDGhLrWPEVnyKoO0qldzcTrqUzef2udYP2q48Ru +OyaqWxzWF5Z0gMKtZ4MnHZgYJm0VmszlAJpnk7em7Wdi0Mv+WMlxe7CYZL3t +PcBExxPxrUef2ENM98z8weNMTDZRrf7gZQ+/CsKMgyOYKPnykDFXtR28N0h7 +U1TCRPuJyMdCx23B60zhNdMyJr7zruUm7GxhtuyBxw8WE28EzbBct9qCEK13 +btNDJm6qvzI/JmELZrzSUjX15Pjy95XaWm3gcVfRoTdvmbjAqLqcpGoDuwT+ +UfXvZaJ4oE6LsoQN9O5omRXrY2L0Uz7iPbcNTFeNxrl8ZOKpZkffwx+tQfW6 +Rum/I0w0ynWLNrhsDY/fG/knjTHxwYfzKnYR1rBr3T5Qn2RiODNfM9LbGjxj +z3SenmGiQdvIJm5Ta5iuj8kW/cXECyNMEVdda4hcyDxYtcDEsRUd6s1y1rBG +u1jFeYmJoq/gtOFaa8g9UTWzvMxEu9Wb3jX92Qf/A/VqfwY= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VVsUAHBTqAxFmYd7r4syZ0zutRaVEikyy5AiTShlLlNmSWRIGZKU +hHtK9ZAhlCiihBIalB6ZXoaQvNNf5/t955z9rbP32mvtQ3X3sfLgYGNjW8nO +xvb3OjvQ0kRPLDR0Kw+0SX6Jhl25YkFGvZHgX/qnp79TBnD9K3ex3lR4dPWN +S2anGvjvvdPD2VsAi2vX3PHqNIS146Kp8z334KmSnY9cpwUMPrbwme5pgEgO +a2vTDhcwoY/0T/W8htb+TzF/XnrDfI9e+mTPZ1Aq4or4WncOGrfeKuws+Al3 +lYZXeLdfBKnBym/uKktwQ5vG3eyYCeuOu97h2cqJXB91WkydciF1k0m1hQ0v +Dh/7mJLwpADeZWnUT63hR5ml2xrpvTchsTDsFYf4WrQQTShq/XQbRC9/iU/L +EcZjOcVjHFElIKb84PyvImFcKfhniZJUAhINMWHOLGGMf3qhSz+9BGQmN55R +bBRGdqGnr5xulYC8ua9b9XdhDKysHHB7UQJaXEu6X7TW4cY5Ww9vobuw57TI +kGbrOnxcM5B/8dpdiLU2NXw9ux5ffQq+WpFfChIV7RIc7CKY0JcxJ1dcCmXC +1nObVoug+VWj4SSiFLpfu7AuyYrgn7Sos2YNpUC3PE2z3CmCLaqLx0K+lELD +7jzujisiGC1lmXCTXgZLJjPtbQxRvGU8tFa6oAxSioJLlkxEkdFhsaWmuAzo +3Gxxqpai+KK2+IMtUQbmT1cZXfAQxcsRGUn+9WWQvZVy3zxZFGsm0mIPD5TB +ZjTLfDEoimGCgwcFxcvBT/+6a0ukGPIMOi6eii+HXfkC02ZJYmh9PrOy7WI5 +0HhC49rTxTDR7E8lLaMcOrpsiTe3xdBVRCy8uqAc1Hz5OAfaxfC+31nx29Xl +8L0ooOg/CXH8rnLf5MSPcti/zmJM8r44Ph18xPuGzgKtkOqI3MfiqDrtt7dQ +kQWrPm8QoT4TR6d4qYenlFhQWc4JCu/Ecfo7dx+3BgtEzCpTNJbFkTijn8Bn +wIKOCLr2djMJNBLPDbywlwXbJhaCvb9IIGM4NN0jiAVBOy8rPfkhgaduxDPa +Q1hQdl31vfCsBIZE+8ton2OBmLWbfiWvJA5RlNPmIlnw45+nc5xqkpg30GDk +nMSCtMiU01cCJbH7EjTdyGXB5/UK3k38UqhQ4rVK5gkLRH3qpEVFpVBx07ye +WiMLzJ/btx2hSKGEUskNg6cseBicqCKoJYXeTvy6Fi0sSBicHHGwl8Lc9RvN +rDpZoFlcfXiiQAqV1EX2d39kQQTD8oDEZmm8M5h95NUSC3a65P6nZyyNPt0E +W+kyCwTCR6NszMn7hrJusewEXGuMLkpxk0b2XZuDNFcQ8M+uqlHueGmU360r +7c5HwKS9nP/Pd9J4slHJX1GCgEfBvjxrh6RR8EFaZackAeeu1WSpjUtjmmt5 +a6A0AXwf7aqPcMhgcEmAXQ2FAMXDSWwflWSwSuKVPEWRAJczMwkvQ2QQNNp/ +mGsRIJ9pLDUSLYMiwpH6TdoEOX8XS3lSZPBYp77jZl0Cgn9v7DAulEF+vqPi +ovoEpEe5rK98KYNc5TPZZYYEvLzUnHdTWhbHXTgFTUwJ2FJ2peJcnSxW9Bny +S+wnYFtP+9L4c1nccf6Zv4QzARZsXDtcX8vildJqJTEXAg5aeb+Dr7JY61Xu +t9qNAJMQalj4Cgq6LypmdB4kwFd29oaRMgXVm75EfjhKwMz9lOfz6hQ0qWW0 +EMfI+HYqjxHaFOQy3Xfg/HECok+66dIMKeg1ciOO6k1AdmPrcw5LCsa6Hnxi +cJKApsN5Y43+FPT1mzad9CfA9Le+UGgIBSvil79lBxDQntKlqx1OwTP3avqN +Awl4V7kyvDCegnKVnu8TgggYX31aKPoaBftHRWQXQwjwyxfQY16n4LmoA1kp +oQT80i52mrlJwR17M3zkzhLA6TJQ6FFOQWrPV32jcwSIsXbqmTRQ0Ijdardz +OAE52744/XlGwcMOsk/7SdPenQ1/+IKCYwd08pwiCFDluN+i8JaCUab+oXsi +CTC2lt7P852CNlG8o6LnCWj+/ii87gcFmZpd56NIm5+1uhkwRY5//0T0D9J2 +RbHjwwsUfCdgX/MwmoDjv6bCn/NT8YW3uZhKLLleJz1FvglRsVpDUiGBNO/I ++xJOMSo6d/YrfyV9s6+x25BGxW97TGipcQSctt58fL8iFd3/nFw3RNq47S57 +sAoVbyjnsGvFEzBQm67yQJeKuYe4O5pJ39Vb1fDagIoLVzvu8SeQ68U6ZzeJ +VNx9+17aXtIiBYcjlc2oKIuDVm2khyQ+iJrupWIfPtbkSSSAfKrU04aKo8tv +hQ1J74nW773uSsVQ7bEPBaRl/pSeqDtERaZd1LMO0j/8aZz9R6j47FJsxSLp +qomMrAVvKr5WfH5LLomAOK/VamKnqWhHXXd9J2nbT2GNOkFU/GNqcP0oabrj +tP2+c1SM0xAojif932uvcd8oKlopuFTeJF1v1h+VHEfFCsOl17Wkk5ssxe9e +oGKwRe1sF+n9zGdlLank+KOn5b+TVnq4ZdtwJvn+sRnXX6Tn1crfceVQUWNo +3a0VFwggo/KhFVBxQql4UZB0BiWLC29RUfNNnIso6UNX+LKd71KxXC2xQ5K0 +plCEeghBxUzzOCtp0myJM01ZD6koM2//9e/9ds6jjg+rqdjwuDv+7/vXQgcm +3tRTcaivD9eQPjZjFT31lIritltXc5Pe4t0sIfiCigVfv//7Nz7eYQOWSgc5 +/39u9/+Nv9uVtX3XWyqWvXIbfku6sJfed/g9Ff8zHOepJ33K8opv9CA5/qg6 +3iKNrfzcN4aomK664lIiaYGtkVfr/6WiuZDF4nHS/dWzGgPjVGR3HQ0zI31X ++9izxZ9UbEyulVUkHVw66CQ+T37P6+K+ZXL9RPKex1hz0pB9wLrkNukhUabU +KV4aCiR/qA/8mx8pBHGRn4aJsnyz2//mR2T2h1ZRGr70XGjoIfNJZlHg1Hcp +Gq68ErP/GukfflE83DQaRhfaiLuQjvM4rmmkQsPYHhe2d2S+2g58bHbZRMNv +S8dUUknT7WycQ3VpyL9wIGwn6fqdhnGPkIa8Ew9y7pL5P6+8ZkDVhoYOc5/e +WpH7ZTZHIkLLkYarLCwE52IImBaUp+u7kvH5aF7KIj3+U//otiM07OaYOvmG +3I+fqw/OOp6lYS/Vqn4DuV8HVb2vuEXSsF8nyvZRFAEf8gIZnrE0/F3nwNhK +ujvqQuTJSzQMCLmyYEXWg1azRwJxN2kocWva0YqsH801T4gLd2hYbDkQ+yKM +rHfqL63Tymn4r+2T1caka4U/ZedW0tA7fIOUIlmP7vWtUnzQRkPmfHJQJ1nP +so+5wOcZGi71683fIutjZr/X5+EFGjb7SXPPnSHg8h6/6LFlGu4LFQraSjpZ +K+7Fr5Vy+N8XzvQuPwIiFwk7QRk5HLReW9/jS+Zb4gpfhokcbhbkqHEn67fX +kqCwsZkchvZ45cUdIcDTR+Lhjr1ySBsOnyvxIsBtn/pvK0c5/Cetjm/UkwBr +SYe4I95yyBPtPbyL7AeMkrv5GRlymElMGaY6EdBHKcnbflUO5y73+F53JPMn +ozh3Ok8Oa9SkQsocyH4ZUXTNqlgOV+msl2qwI/ePfX6WwGM5XHKg33q1j4CN +Ky6nxHySQ+HdbTnnzch8cw0J91ehY5T7r2Unst896AoKk99ERxPRto+Km8l4 +dgWe69Kh46DD9gdTZH9M1TkTqgl0rGLLY4SR/ZOfzydw3JKO4dZn+yPUCeCq +dPf1DKDjPX4xVQV5AqaEdrnZNtBxv9V9xpQAAb3HaR1Hm+mY8JunypmfzK9n +CxD2ko4zJxQmm1cTkBJcInu7m46dsYcS03kJ0PjMNzg/QseaktO56zkI8CZe +OecIy+PmzgjGnWkWjOyxcRo6JI8nL9ZkqPayYCjJzfYUjwLu5TV4NJjFAu8R +FZoGnwKmZv14NpzBgrkd82NjaxSww9NQevwyeX7jTI0+IqGAITWN12dSWKAR +1FjhpqqAqqoeCpNxLDjroSC8Z58C2utxLKcFkuc5wx+vlPMU8EOF9FKOLQtM +JwJMv+oqYnvV6jXT/OR57CCvX0XYBqTGeqcNVJaR/xOiHLENG/HMxwj2RM1S +EGpTSGZNKOHro3VbZcjzulRc+V5dXRWynpg/D/hcDFnK+muED6vizt4s74Oq +t6FVwkjn5yU1PDOYVmARXARbpBpS1LvVkesSz0r2gkIQ4Cw4fSBSA89dmErr +Gy8AmQhZhoPCJvRfQzknIncdVsrvf2jVvAknY9ItpD/lghpTvDzAWRND9Q6t +v9F3FU4NCDXuYtNCWX2n9Vsas2DiZ5KNaZYWJozab+ARzIAd6s+yTVW10UD3 +keyRzDSo/WmwONeujQJN3JUrKZfAW0XzfaeHDg7kNwV3rE4G5vihLoeVujjV +bqJcNxIP2+liu/kLdDHMOPR3rV8MbAhPCGzQ08PF1LZWTq8oUPLQr5N/r4fv +4+X1fIPCwaPW63zFyc04bOQjt5YaCnX5XYem1utj2HG0sU0JgOnby3Pqj/RR +7YihSxLLDw7Kl6zM3r0Ft593sNS55AtTSmm69ya34G+P77Xa+47BP4WLn2bi +DLDpd8Zod4UnOG6TQwMZBmql5+bE9LrDUhevQCOFgUHLlnpSLe6Q7zHet0uO +gamZsrWPK93hW0xlgOMGBnacOBEsc9UdTrXsKQ/SZKDMRg6OQy7ukGARKvOP +CQPLUrRmpr4dgCr7t7+1fRgo6ZAjNrHsBpInYivV6hlYxZqX3J7vAsnLnjqJ +DQxULaZdxDgX4Eg1IYabGJjsHhlo7usCIw9XFOe3MPBKpkV8OrpAFdv5LKE3 +DDyxVHJj9JMzOF4OD5j9ysDGhLrWPEVnyKoO0qldzcTrqUzef2udYP2q48Ru +OyaqWxzWF5Z0gMKtZ4MnHZgYJm0VmszlAJpnk7em7Wdi0Mv+WMlxe7CYZL3t +PcBExxPxrUef2ENM98z8weNMTDZRrf7gZQ+/CsKMgyOYKPnykDFXtR28N0h7 +U1TCRPuJyMdCx23B60zhNdMyJr7zruUm7GxhtuyBxw8WE28EzbBct9qCEK13 +btNDJm6qvzI/JmELZrzSUjX15Pjy95XaWm3gcVfRoTdvmbjAqLqcpGoDuwT+ +UfXvZaJ4oE6LsoQN9O5omRXrY2L0Uz7iPbcNTFeNxrl8ZOKpZkffwx+tQfW6 +Rum/I0w0ynWLNrhsDY/fG/knjTHxwYfzKnYR1rBr3T5Qn2RiODNfM9LbGjxj +z3SenmGiQdvIJm5Ta5iuj8kW/cXECyNMEVdda4hcyDxYtcDEsRUd6s1y1rBG +u1jFeYmJoq/gtOFaa8g9UTWzvMxEu9Wb3jX92Qf/A/VqfwY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06855948700858715}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06855948700858715}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VVsUAHBTqAxFmYd7r4syZ0zutRaVEikyy5AiTShlLlNmSWRIGZKU +hHtK9ZAhlCiihBIalB6ZXoaQvNNf5/t955z9rbP32mvtQ3X3sfLgYGNjW8nO +xvb3OjvQ0kRPLDR0Kw+0SX6Jhl25YkFGvZHgX/qnp79TBnD9K3ex3lR4dPWN +S2anGvjvvdPD2VsAi2vX3PHqNIS146Kp8z334KmSnY9cpwUMPrbwme5pgEgO +a2vTDhcwoY/0T/W8htb+TzF/XnrDfI9e+mTPZ1Aq4or4WncOGrfeKuws+Al3 +lYZXeLdfBKnBym/uKktwQ5vG3eyYCeuOu97h2cqJXB91WkydciF1k0m1hQ0v +Dh/7mJLwpADeZWnUT63hR5ml2xrpvTchsTDsFYf4WrQQTShq/XQbRC9/iU/L +EcZjOcVjHFElIKb84PyvImFcKfhniZJUAhINMWHOLGGMf3qhSz+9BGQmN55R +bBRGdqGnr5xulYC8ua9b9XdhDKysHHB7UQJaXEu6X7TW4cY5Ww9vobuw57TI +kGbrOnxcM5B/8dpdiLU2NXw9ux5ffQq+WpFfChIV7RIc7CKY0JcxJ1dcCmXC +1nObVoug+VWj4SSiFLpfu7AuyYrgn7Sos2YNpUC3PE2z3CmCLaqLx0K+lELD +7jzujisiGC1lmXCTXgZLJjPtbQxRvGU8tFa6oAxSioJLlkxEkdFhsaWmuAzo +3Gxxqpai+KK2+IMtUQbmT1cZXfAQxcsRGUn+9WWQvZVy3zxZFGsm0mIPD5TB +ZjTLfDEoimGCgwcFxcvBT/+6a0ukGPIMOi6eii+HXfkC02ZJYmh9PrOy7WI5 +0HhC49rTxTDR7E8lLaMcOrpsiTe3xdBVRCy8uqAc1Hz5OAfaxfC+31nx29Xl +8L0ooOg/CXH8rnLf5MSPcti/zmJM8r44Ph18xPuGzgKtkOqI3MfiqDrtt7dQ +kQWrPm8QoT4TR6d4qYenlFhQWc4JCu/Ecfo7dx+3BgtEzCpTNJbFkTijn8Bn +wIKOCLr2djMJNBLPDbywlwXbJhaCvb9IIGM4NN0jiAVBOy8rPfkhgaduxDPa +Q1hQdl31vfCsBIZE+8ton2OBmLWbfiWvJA5RlNPmIlnw45+nc5xqkpg30GDk +nMSCtMiU01cCJbH7EjTdyGXB5/UK3k38UqhQ4rVK5gkLRH3qpEVFpVBx07ye +WiMLzJ/btx2hSKGEUskNg6cseBicqCKoJYXeTvy6Fi0sSBicHHGwl8Lc9RvN +rDpZoFlcfXiiQAqV1EX2d39kQQTD8oDEZmm8M5h95NUSC3a65P6nZyyNPt0E +W+kyCwTCR6NszMn7hrJusewEXGuMLkpxk0b2XZuDNFcQ8M+uqlHueGmU360r +7c5HwKS9nP/Pd9J4slHJX1GCgEfBvjxrh6RR8EFaZackAeeu1WSpjUtjmmt5 +a6A0AXwf7aqPcMhgcEmAXQ2FAMXDSWwflWSwSuKVPEWRAJczMwkvQ2QQNNp/ +mGsRIJ9pLDUSLYMiwpH6TdoEOX8XS3lSZPBYp77jZl0Cgn9v7DAulEF+vqPi +ovoEpEe5rK98KYNc5TPZZYYEvLzUnHdTWhbHXTgFTUwJ2FJ2peJcnSxW9Bny +S+wnYFtP+9L4c1nccf6Zv4QzARZsXDtcX8vildJqJTEXAg5aeb+Dr7JY61Xu +t9qNAJMQalj4Cgq6LypmdB4kwFd29oaRMgXVm75EfjhKwMz9lOfz6hQ0qWW0 +EMfI+HYqjxHaFOQy3Xfg/HECok+66dIMKeg1ciOO6k1AdmPrcw5LCsa6Hnxi +cJKApsN5Y43+FPT1mzad9CfA9Le+UGgIBSvil79lBxDQntKlqx1OwTP3avqN +Awl4V7kyvDCegnKVnu8TgggYX31aKPoaBftHRWQXQwjwyxfQY16n4LmoA1kp +oQT80i52mrlJwR17M3zkzhLA6TJQ6FFOQWrPV32jcwSIsXbqmTRQ0Ijdardz +OAE52744/XlGwcMOsk/7SdPenQ1/+IKCYwd08pwiCFDluN+i8JaCUab+oXsi +CTC2lt7P852CNlG8o6LnCWj+/ii87gcFmZpd56NIm5+1uhkwRY5//0T0D9J2 +RbHjwwsUfCdgX/MwmoDjv6bCn/NT8YW3uZhKLLleJz1FvglRsVpDUiGBNO/I ++xJOMSo6d/YrfyV9s6+x25BGxW97TGipcQSctt58fL8iFd3/nFw3RNq47S57 +sAoVbyjnsGvFEzBQm67yQJeKuYe4O5pJ39Vb1fDagIoLVzvu8SeQ68U6ZzeJ +VNx9+17aXtIiBYcjlc2oKIuDVm2khyQ+iJrupWIfPtbkSSSAfKrU04aKo8tv +hQ1J74nW773uSsVQ7bEPBaRl/pSeqDtERaZd1LMO0j/8aZz9R6j47FJsxSLp +qomMrAVvKr5WfH5LLomAOK/VamKnqWhHXXd9J2nbT2GNOkFU/GNqcP0oabrj +tP2+c1SM0xAojif932uvcd8oKlopuFTeJF1v1h+VHEfFCsOl17Wkk5ssxe9e +oGKwRe1sF+n9zGdlLank+KOn5b+TVnq4ZdtwJvn+sRnXX6Tn1crfceVQUWNo +3a0VFwggo/KhFVBxQql4UZB0BiWLC29RUfNNnIso6UNX+LKd71KxXC2xQ5K0 +plCEeghBxUzzOCtp0myJM01ZD6koM2//9e/9ds6jjg+rqdjwuDv+7/vXQgcm +3tRTcaivD9eQPjZjFT31lIritltXc5Pe4t0sIfiCigVfv//7Nz7eYQOWSgc5 +/39u9/+Nv9uVtX3XWyqWvXIbfku6sJfed/g9Ff8zHOepJ33K8opv9CA5/qg6 +3iKNrfzcN4aomK664lIiaYGtkVfr/6WiuZDF4nHS/dWzGgPjVGR3HQ0zI31X ++9izxZ9UbEyulVUkHVw66CQ+T37P6+K+ZXL9RPKex1hz0pB9wLrkNukhUabU +KV4aCiR/qA/8mx8pBHGRn4aJsnyz2//mR2T2h1ZRGr70XGjoIfNJZlHg1Hcp +Gq68ErP/GukfflE83DQaRhfaiLuQjvM4rmmkQsPYHhe2d2S+2g58bHbZRMNv +S8dUUknT7WycQ3VpyL9wIGwn6fqdhnGPkIa8Ew9y7pL5P6+8ZkDVhoYOc5/e +WpH7ZTZHIkLLkYarLCwE52IImBaUp+u7kvH5aF7KIj3+U//otiM07OaYOvmG +3I+fqw/OOp6lYS/Vqn4DuV8HVb2vuEXSsF8nyvZRFAEf8gIZnrE0/F3nwNhK +ujvqQuTJSzQMCLmyYEXWg1azRwJxN2kocWva0YqsH801T4gLd2hYbDkQ+yKM +rHfqL63Tymn4r+2T1caka4U/ZedW0tA7fIOUIlmP7vWtUnzQRkPmfHJQJ1nP +so+5wOcZGi71683fIutjZr/X5+EFGjb7SXPPnSHg8h6/6LFlGu4LFQraSjpZ +K+7Fr5Vy+N8XzvQuPwIiFwk7QRk5HLReW9/jS+Zb4gpfhokcbhbkqHEn67fX +kqCwsZkchvZ45cUdIcDTR+Lhjr1ySBsOnyvxIsBtn/pvK0c5/Cetjm/UkwBr +SYe4I95yyBPtPbyL7AeMkrv5GRlymElMGaY6EdBHKcnbflUO5y73+F53JPMn +ozh3Ok8Oa9SkQsocyH4ZUXTNqlgOV+msl2qwI/ePfX6WwGM5XHKg33q1j4CN +Ky6nxHySQ+HdbTnnzch8cw0J91ehY5T7r2Unst896AoKk99ERxPRto+Km8l4 +dgWe69Kh46DD9gdTZH9M1TkTqgl0rGLLY4SR/ZOfzydw3JKO4dZn+yPUCeCq +dPf1DKDjPX4xVQV5AqaEdrnZNtBxv9V9xpQAAb3HaR1Hm+mY8JunypmfzK9n +CxD2ko4zJxQmm1cTkBJcInu7m46dsYcS03kJ0PjMNzg/QseaktO56zkI8CZe +OecIy+PmzgjGnWkWjOyxcRo6JI8nL9ZkqPayYCjJzfYUjwLu5TV4NJjFAu8R +FZoGnwKmZv14NpzBgrkd82NjaxSww9NQevwyeX7jTI0+IqGAITWN12dSWKAR +1FjhpqqAqqoeCpNxLDjroSC8Z58C2utxLKcFkuc5wx+vlPMU8EOF9FKOLQtM +JwJMv+oqYnvV6jXT/OR57CCvX0XYBqTGeqcNVJaR/xOiHLENG/HMxwj2RM1S +EGpTSGZNKOHro3VbZcjzulRc+V5dXRWynpg/D/hcDFnK+muED6vizt4s74Oq +t6FVwkjn5yU1PDOYVmARXARbpBpS1LvVkesSz0r2gkIQ4Cw4fSBSA89dmErr +Gy8AmQhZhoPCJvRfQzknIncdVsrvf2jVvAknY9ItpD/lghpTvDzAWRND9Q6t +v9F3FU4NCDXuYtNCWX2n9Vsas2DiZ5KNaZYWJozab+ARzIAd6s+yTVW10UD3 +keyRzDSo/WmwONeujQJN3JUrKZfAW0XzfaeHDg7kNwV3rE4G5vihLoeVujjV +bqJcNxIP2+liu/kLdDHMOPR3rV8MbAhPCGzQ08PF1LZWTq8oUPLQr5N/r4fv +4+X1fIPCwaPW63zFyc04bOQjt5YaCnX5XYem1utj2HG0sU0JgOnby3Pqj/RR +7YihSxLLDw7Kl6zM3r0Ft593sNS55AtTSmm69ya34G+P77Xa+47BP4WLn2bi +DLDpd8Zod4UnOG6TQwMZBmql5+bE9LrDUhevQCOFgUHLlnpSLe6Q7zHet0uO +gamZsrWPK93hW0xlgOMGBnacOBEsc9UdTrXsKQ/SZKDMRg6OQy7ukGARKvOP +CQPLUrRmpr4dgCr7t7+1fRgo6ZAjNrHsBpInYivV6hlYxZqX3J7vAsnLnjqJ +DQxULaZdxDgX4Eg1IYabGJjsHhlo7usCIw9XFOe3MPBKpkV8OrpAFdv5LKE3 +DDyxVHJj9JMzOF4OD5j9ysDGhLrWPEVnyKoO0qldzcTrqUzef2udYP2q48Ru +OyaqWxzWF5Z0gMKtZ4MnHZgYJm0VmszlAJpnk7em7Wdi0Mv+WMlxe7CYZL3t +PcBExxPxrUef2ENM98z8weNMTDZRrf7gZQ+/CsKMgyOYKPnykDFXtR28N0h7 +U1TCRPuJyMdCx23B60zhNdMyJr7zruUm7GxhtuyBxw8WE28EzbBct9qCEK13 +btNDJm6qvzI/JmELZrzSUjX15Pjy95XaWm3gcVfRoTdvmbjAqLqcpGoDuwT+ +UfXvZaJ4oE6LsoQN9O5omRXrY2L0Uz7iPbcNTFeNxrl8ZOKpZkffwx+tQfW6 +Rum/I0w0ynWLNrhsDY/fG/knjTHxwYfzKnYR1rBr3T5Qn2RiODNfM9LbGjxj +z3SenmGiQdvIJm5Ta5iuj8kW/cXECyNMEVdda4hcyDxYtcDEsRUd6s1y1rBG +u1jFeYmJoq/gtOFaa8g9UTWzvMxEu9Wb3jX92Qf/A/VqfwY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06855948700858715}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06855948700858715}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993920474867083*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"0bdc4ecd-1348-4314-88df-96cdabb77a2e"] +}, Open ]], Cell[CellGroupData[{ @@ -4948,18 +11567,78 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"01995149-3665-fe4e-b326-b20429031afd"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"52cff8eb-0c77-c944-a54f-e282b00ce766"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.356025523176209`*^-142\\\", \ +RowBox[{\\\"\ +257637673519649270217965438245428568131597200085202201208143960400132\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3853705134253980954253210971658303947407360000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 133, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920474908011*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"e44e3d86-485e-4dd9-8b07-3a5c0927bc4f"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1230845421953202`*^-144\\\", \ +RowBox[{\\\"\ +990359217009531794717859144615427415897859637127517261444105383778111\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3642536072302788149342975054520373833891840000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 134, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939204749174643`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"395f0a54-c734-45df-aa92-c93b0b6026f5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.353587541860163`*^-147\\\", \ +RowBox[{\\\"\ +393073573231083169323518294497863141369860489975911601067165426821532\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"36\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"7225670969766164742267991391363746716712960000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 135, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920474923903*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"8721a6bf-a1aa-4ce1-b0c6-565d44efe8ef"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 136, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920474930416*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"066fb51d-9582-436f-908f-97b7a8223074"], + +Cell[BoxData["11.253059261283509`"], "Output", + CellChangeTimes->{3.9939205229710484`*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"442af2dd-d706-4607-8383-c8ccc786d4bf"] }, Open ]], Cell[CellGroupData[{ @@ -5026,27 +11705,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507468132763`*^9, - 3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\ -062a3c04ed96"], + CellChangeTimes->{{3.9918507468132763`*^9, 3.9918507511809216`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cb5a1193-7562-6446-a279-d9f6295d156e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0386517362048898`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 137, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920523016501*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"2016fa2f-67dd-495a-af72-792f1f0045c2"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566b0ad4-7f4e-b04f-8294-646ce1913fac"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.216646773936898`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 138, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920523023488*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"b23d90d8-2571-4b78-b9c1-38d842b933d9"], -Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.721504365062139`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 139, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920523029765*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"0971caaf-87df-4a03-9525-32900b9b9a9c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 140, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920523036962*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"ea43a33c-5cf2-4f5c-be22-b5548d348142"], + +Cell[BoxData["0.04242081554122014`"], "Output", + CellChangeTimes->{3.993920529536601*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"06d9c0f5-6b3c-4ad2-9a6c-52e87ea58e58"] }, Open ]], Cell[CellGroupData[{ @@ -5067,8 +11791,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5113,27 +11836,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185075434021*^9, - 3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\ -3382e7679ba8"], + CellChangeTimes->{{3.99185075434021*^9, 3.9918507570104733`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4cd45900-7eb0-6b4b-830a-a339e8117392"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0386517362048898`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 141, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920529575356*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"0fd07766-030f-433c-85bc-35ab39a231a2"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.216646773936898`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 123, 142, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920529583208*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"f8d62b6f-5b6b-477b-b5c3-dcfbafa8f8e5"], -Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.721504365062139`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 123, 143, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939205295928288`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"e39cf6f6-0b7f-4c3c-8173-d9badf6aa488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 144, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920529599761*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"77e688b0-4428-419b-89a9-971787fcf929"], + +Cell[BoxData["33.591842800711696`"], "Output", + CellChangeTimes->{3.993920535432054*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"0135cf0b-3228-4949-904d-7e692518ad6a"] }, Open ]], Cell[CellGroupData[{ @@ -5154,8 +11922,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5200,27 +11967,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507598219967`*^9, - 3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\ -2462b23d6249"], + CellChangeTimes->{{3.9918507598219967`*^9, 3.9918507622107697`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0386517362048898`*^-222\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 145, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920535475647*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"9bd47cf8-1bb2-4cf7-8841-73b1a0315868"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"61220452-df6a-154e-8b5c-fecd0ab287a1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.216646773936898`*^-228\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 146, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920535482931*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"318ee51d-6314-438f-adae-662da2228457"], -Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.721504365062139`*^-234\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 147, 31385386217134927151, + "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920535490925*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"206aaf94-c206-4e35-bf57-8b3849d17716"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 148, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920535497192*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"292da620-db4c-4d8f-b724-74a40ae3bc78"], + +Cell[BoxData["3.0588209806317637`"], "Output", + CellChangeTimes->{3.9939205390540457`*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"ac05de7b-edac-4b08-8e50-92726c8c4193"] }, Open ]], Cell[CellGroupData[{ @@ -5229,19 +12041,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918507652122154`*^9, - 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ -168ec8f367e1"], + CellChangeTimes->{{3.9918507652122154`*^9, 3.9918507685850487`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +Cell[BoxData["0.004184899845428059`"], "Output", + CellChangeTimes->{3.993920539091178*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"f966d0b4-fe90-4e30-af0a-4305c925fb38"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9}, - 3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\ -e661a25a7ba1"], + 3.9919245563167305`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ @@ -5262,10 +12078,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ir", "*", "Il"}], - RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ -c74d-891b-10a6d009e34b"], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[BoxData["15.747296122307985`"], "Output", + CellChangeTimes->{3.993920539107629*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"4e6b144d-19f5-4f85-951a-4f5c3316da16"] }, Open ]], Cell[CellGroupData[{ @@ -5273,10 +12093,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ -bb01-e9142212274d"], + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[BoxData["1.3271721084037533`"], "Output", + CellChangeTimes->{3.993920539116968*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"cd3670e2-f99b-4b93-99c9-296268237bd5"] }, Open ]], Cell[CellGroupData[{ @@ -5284,10 +12108,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ -cb9a-bc4b-93f0-a7873f982a23"], + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[BoxData["20.899372196301737`"], "Output", + CellChangeTimes->{3.993920539126604*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0949420b-0b52-4dc7-8a41-73b001d7ab9e"] }, Open ]], Cell[CellGroupData[{ @@ -5475,10 +12303,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ -b13c-0185de64c37f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[BoxData["0.006100502886210263`"], "Output", + CellChangeTimes->{3.993920539140251*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"919f0b5a-de2e-4f2a-a4f3-2353be993fc7"] }, Open ]], Cell[CellGroupData[{ @@ -5490,18 +12322,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"731f0e35-\ -7798-8b45-a769-075ac4b3983f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], - -Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[BoxData["11.346505349382342`"], "Output", + CellChangeTimes->{3.993920539247671*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"273b9123-366d-4410-8b40-d17978d95c8f"] }, Open ]], Cell[CellGroupData[{ @@ -5691,10 +12519,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ -9ccb-23aebae2e6d5"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[BoxData["0.04620352447047297`"], "Output", + CellChangeTimes->{3.993920539261351*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"5c7ab9fd-c758-4f59-8891-a12caf41eeae"] }, Open ]], Cell[CellGroupData[{ @@ -5706,18 +12538,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"e11d7eb8-\ -00a8-f540-98a0-89164ac4bae9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], - -Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[BoxData["4.122943543826918`"], "Output", + CellChangeTimes->{3.993920539370339*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"cd414798-c23e-4c22-a530-6d1741123ceb"] }, Open ]], Cell[CellGroupData[{ @@ -5808,10 +12636,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ -1ee89e798d8f"], + ")"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[BoxData["0.06727285695077176`"], "Output", + CellChangeTimes->{3.993920539380418*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"b96e650a-b125-488e-a9dd-cb392d75bfc4"] }, Open ]], Cell[CellGroupData[{ @@ -5899,10 +12731,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ -f30d036fcdd2"], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[BoxData["0.9327271430492282`"], "Output", + CellChangeTimes->{3.9939205393915854`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"4a9be0c2-bea0-423b-b511-f123b819bc09"] }, Open ]], Cell[CellGroupData[{ @@ -6023,10 +12859,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ -7240-acd2-307af56b44db"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[BoxData["0.06274721966845274`"], "Output", + CellChangeTimes->{3.993920539403315*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"3d6d1f87-c824-415d-bb16-2289150c35e2"] }, Open ]], Cell[CellGroupData[{ @@ -6088,27 +12928,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\ -af0307420662"], + CellChangeTimes->{3.9918507910247746`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b82c1933-5313-1d4c-a858-68be8f118333"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.107386783320921`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 149, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920539418036*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"9d6d8cd5-b183-4149-8cb1-1281de97aa77"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0508592664419597`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 150, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939205394247303`*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"5fd1256f-066f-4495-b919-9b0f848aa154"], -Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.972172455907902`*^-222\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 151, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920539431581*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"f77f4207-ec98-43bf-9465-47564fe623d5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 152, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920539438018*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"c9d6f33e-3747-4e3b-a6a9-b2d3a5606398"], + +Cell[BoxData["11.346505349382342`"], "Output", + CellChangeTimes->{3.993920542992114*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"5352d4a6-ff67-4e3e-bee1-747d84047801"] }, Open ]], Cell[CellGroupData[{ @@ -6170,27 +13055,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\ -34313c6ec04d"], + CellChangeTimes->{3.9918507936164455`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.107386783320921`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 153, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939205430321293`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"7a4ab005-70c0-4517-af67-d07f44f81c08"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56712e4d-1aa7-524a-8254-bcfd8978eea0"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0508592664419597`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 154, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939205430386677`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"1a32a79a-bacb-4256-9d66-a9e5852eb4ec"], -Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.972172455907902`*^-222\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 155, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939205430453367`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"d05774f2-230c-4945-b1e9-b5057849953b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 156, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939205430522623`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"715a8dfa-1a1b-4f6f-a82c-0d4600a6fd20"], + +Cell[BoxData["4.12294354382692`"], "Output", + CellChangeTimes->{3.993920546614709*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"25a721a2-8604-4f86-9e4a-ee3d3b3c8d65"] }, Open ]], Cell[CellGroupData[{ @@ -6248,489 +13178,394 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\ -ad38cf07d634"], + CellChangeTimes->{3.9918507961174965`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9c6ce535-b42f-3c43-a89e-eda48c04121e"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC -MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 -5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX -nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v -yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi -sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG -tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W -tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw -WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq -Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz -IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A -nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc -Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td -rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 -63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp -CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el -jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD -f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA -eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb -uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa -UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au -6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 -BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ -5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX -XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 -jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO -JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme -IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG -gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ -9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ -ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL -bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD -pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN -ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 -ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j -6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE -iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k -d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz -+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ -6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C -2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K -wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 -xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 -9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 -OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm -yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj -GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz -mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W -ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 -pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu -KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH -65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD -bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ -LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW -2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx -bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU -E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 -7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 -5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 -brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT -OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o -Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL -hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl -D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm -v/odiPr3KLwBMhrzH2bRmaY=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-14.8518, 0.65382, 0.693802, \ -0.00448812}},ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\ -8b4ad9ffca61"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4Vdv/B3CZM5ShjJlJyJAToa71iUORqSizq+OcnSRlyO8UcSVkKEMq +3ZIKJfPUhPpxqYSiSVKZh+OY2QeV8l3+2M9+Xs/a+73en72eZ6vQThxgcHNx +cbHwtXoPfqun+bjjrfmr1AajWnIUmU/lGdGoxcg9cwtt1X05xpnq1Dq0dMNj +dNVO9Df8IpQXSLHA9UUddgUzupGP2oZya5SWn2EnvpSpjy58h9I7K5P/H/tp +R/CtZcNPKH9FLKwBm93dEnm6tgtlmJk9bMSWG1bzXLD8hopS9BxfYu+bjjQN +betF1OXJ3a+xny+zhZmF/SgujXmxDbszRjriUdAgctv/dlsH9hQ/lU0aDqPU +PdN6H7H5U066UxZHUHPk1/Nd2Iri2c3BtSzk/yuD8h3bQX7h3pTlBNLlod8Y +xSZuq0rpCk4hIv+syyR2tIZj3LG2aeTSSCPmsbukP24LK5xFpSWpmVycUUT3 +CDh6OWUOzV7/XC6APXOT605l0DxK2j2usR5bUFVXbNaQgxKFw+WUsDPpjXvE +Ni4gd5fJ65rYyvfdo/UXF9CpfIMQA2yTrfFTx2uXUPMjeV1LbH/j3ja25TKq +V4pvC8Qmmad4hTb/Rsr6vhJM7H9qhXdpCf5BrwQFKmKxs8Ck6EjbClpIrl26 +sdovv5kaUrgGvKQaKzqwC19e7ouR5waFx/zPe1b7jvpEpqdww3lZGbVJ7Eht +TlV5EA98Kc1bFFrAfctU1KYN+WBF9miLLXZ3x8TzP7l8wNWgmO2JrTz32GPd +Rn5QP5TbHIhdvN0hQ3eRH97PyGqnYTc9PbMmsFYQhG43SH3F5jR+6GVZikCX +p9q1mMVRJGEnIhbxXASedFR+u45t8JEKoqaiUGJ+L6kSO2Do4e1teuugZ1ON +0jD2Se42g79ExKC8KVvPcWkUDauWzsYtiMPh89d6jX/g70O0rG2nSAArK7Ho +IDZ30YiKTLAEyMQP9YZhK1OUDhSOS0CnTWdMNbaHZVrl2z5JEHasKjT5OYra +/UJCpVs3Al9dfprLr1HUc/9Ssq+gFFzrcBo8jT0xXpj7wEoKjtUG3MrBFgob +/LCzXgr+PJ2wn8CmnnfZ7vtQGl6rGGUkLY+imjxjTkGOLEifMC3v/j2K8oZ/ +hpuFKcCrY65Wr7lYaO/BhJ7QEgUQtHpvt4Q90SRpXTKiAFf2HinTXMNC2/O2 +blR2V4SSK/1xCdhNNJ8qPnMlsBpRY+7jZqG56b7/Y8Uqg/iMdcgQDwtJHqdW +V9mrQpZFYL2HAAuN5An5OwWoguYz6a1XsJ9865CfjFeFbtnJuXZsLzvv2M31 +qrAjTzrDWpCF8nTCD1w3VINspwgpk7V4f/b9mShpdVCX+7ljqzALuRwR1rXt +1wDZoqF+t/UshMIPGrr+1oDpMH+XbGztuJwddNnN4HEuW3EAmyuXYhG1fzPc +alGoCRRjoZIeT9fKhs1QOJggGi/OQvyHimPk7mrC0HjS5teSuB/VvpNN04KU +qUqNdBkWynW+9nUxSgtOV2ek9mFfovX38d7QAmNuk/0GsixE/+fUuOIHLWgc ++fS1A1u8LpvL2VIbpt4Er5OSZ6EAypR2rZoORL1pHCtXYCF51dTo5KGtIKdR +d3aLGgvVJZFaP7h14aHp4qUkbK9594+Eii5U9GQKTGLfalLXsvDRheW8X3pV +6iykeqTm/dJnXeD9kn6IuhnPWzysQbTqgejIk7VntFhIQV6RUHY3gPLWT/wU +Axbamh8m8gsZguOuhCtfzVmIRo/l6DoYQtTddHNHxEJZahk9vl6GQG7t392I +zXO3rPwl0xDELJxdi4GFum+xXTIqDCH/ws1n5yxYKDHLN1tLjQJ2Fy4ywRqf +b7Kdnhv/duh4Zlu6Ys9Cd0LUnR62GcGXzG32F31YqCMc7TifbwoOd/rcbRJY +SMXnk4N34F9QbTLo9N9DFmKsPCpVOA0QI+kVMTbCQtLjTwSkaRbwXKI565Lq +GAqj7PqWoU2Fbr2OzUa+Y4g2udwsybaCIfr5q+Z3x1CJRahATvseoHbWXtCa +GUN5ZEBDcaYNSJfY5dSZs9HSbpk3TdH7YKozOmDvv2z0nYtntv+wPbh2CYWm +/mSjoE0n0mLUHOEgwV3P7TGOSo8211+Jc4LcPm3326/G0Zl52UWdo/uhfklm +/UXKBOLYWh969fcBeJlUxDpVOoFMPdN3D+93huENPfw/t06i97LZAU0UF5ib +uy/IWzCJ5O7F1hVsOQhPy7Z53zCcQk/6tO0cRA/BsEWGS+aTKaT4ceZI+OQh +0DX3ruxH04hyJb04t88VcmJSi4s7p1E277xeRqMbzClJSHtQZtCj3frdcU/d +oWHgRD373AzK2pEkvlzoASqskbyd72dQ+9f8eEqKJ+jo1soubJpFD+1vqp/8 +xws2bt+z5njQLJo97swVRPeGr2dIOFMzizjWWv5Tlj6g9EpoIpd3DhVMflkK +Nf4bQriprykuc8jtTr6ft4gv6KzR27Apew5VVe77myfBF9ZHaA5qsOeQqfz7 +H4k/fCFcj49eqj+P1PqOdL87ehg+L1J3ygTPoyHhY443Bw+Di8CQMqN6HnVc +cvDbc5AGidsNM9H0PMpk5gif6qDB8/8UpVS0SVT3fOWHn40fLLD5HY/5kGi9 +FyRQavygDA/Tmkgi5Q2v2jfV+YH6w3eciCQSGbTZy/A/94PKivtpOskkOrDL +80FXgx+8U/vrQmIKiTI3hbeefe0HG8OeRkAqieS+F61v7vIDd/N4938zSaTu +I53ltegHwUJSyr9vkcjUd6ogbjsdVHilkpmVJLp3fSbUwZgOvUoDB3mqSLTh +w5y5tAkd5BV0n1/EnrJa/Fiwkw7X744Rd6pJ/P/iWtNmQYezivlSTY9ItG5R +3F1iPx2UmjK/LdSQaOii0dqc43R465x7UryRRJdqI48+uUeHET1HD6n3JDpu +eM2UWUCHL2+KHsRh2z2oWGtSSAfxXTeukNhC10YePC6hQ+zslMW7DySKC3Fi +P6qmw0rD5dm4TySK1FI/9vA/OpjR96d96yJRwLXWwMoeOvj3R9LMe0lks25k +V0gfHR6lxarfwd4SxyVqOEAHp6vyMTx9JBoJMSqpGKYDAzWufYV92CFnsnyC +DtbR9q42AyRy4wsNKvtJB5PJw51mwyTaEyp3sliKAXzjZlzv2CT6LyfeNkOG +AS0W/Lv1xkm0q21OnSnHAMphZ8FkbAON1i+WigxIDNbXtpwgkeznCMuvGgzY +wi3/tGSSRONm36WEjBgwN0xwjs2QKJX79rMjzgw4qxd8OoWD59cXybI/yIAE +b9dj3djnPZkhFFcGLJi19WsukIhZ7aS54sGAB/ZaXg3Yh4k16VdpDPhUsyVu +apFElBYa/UUwA2wDqDe3/STR53QNYbU0BuS21sR6/CFRKRL1Z6Uz4EuVyItM +7POTZFPJZTyf6Nnrb7ENbZqiTK7h5wUzf8EKPj8uvzn7Wwwwzb2Rq8zFQdYn +bn9hFjPAq90+onUNBykoXDA2L2VArIUz+w822XLiMk85A1zesMe3cXPQ3c3I +/lIVA06cLLt3Ffv39+/1uTUM8LxX8sODh4Oq7eQL3jYzIL6qeF07Lwcl/+Tm +y2xhwLNBldxf2LQC9mH3NjzPltLXmnwcJMZbIz/UzoCqtOm2KOzAWrfUH50M +6FJzLtLk5yA17avh6sMM2CnX0EAX4KCfn89+GBthgPIYMywJuyOOYVDGYsBj +254nZdhR/dvZphMMkH57fWEJuzvrg7fjPANo4/pW8YIclCEgbnVmDQELMK+V +spaD6ua+e4bxEJChHHquFHv0e2FIEB8B4wbC+zuwd1VTb9PWEhDd4u8kIcRB +I77MX7biBHwxU/2cii1mZyVhJUnAb5Oi3hLsnTsktNBGAr7zyPq0YqeJFh+i +yBKQ7ZlcxyuM12t6K+RVCGjJ11k5iU3kFzdvVCPgQbfZoyTstLTTves1CHhB +5x7MxR4hJEV5tQhAdveyP66uS+7xnzAg4JxVzVV9EQ6q+SMZPWJIgBLi/UXF +Hh7ru9K3HfcX6P/ojm1Wf6bxowkB/7pYjMVgDwWWKj4DArzFjTJbsde5RRg9 +tiAgdCk/7xu2qeVeuwoqAbaKydqT2JdkB07n7yWgcDrvqogoBz3hLUvLsSWg +zOpDpDz24HTE/et2+H39o11a2CYvN3666ETAVuv6aSo2rWJgPOEAAVPLEUX7 +sS/eLOM+50KAkGfmN2/sgRAbg3A3Ara4vLsVhi3qI7XnpAcBAW6z+tGreTaD +3gFeBFzupBsnrr6vdDbZx5eAeGvz3BurfYRs77rRCNCNub02bzWPI/X0AJ2A +U68chotW8/oH2+0IAspj9xhXrea1lY9Y+xOgsytx+elqv8dnf0MA7ntZwqR+ +Nf+u7YadgQSMWQ+wXqzmX5TWMQrC57dtcV3raj5zaLf+SQKCbZwK27FF6BVu +WiEEXLo9UfMBe4dj1Am1MAKkGa3weTXfbF+8Qjjer398Zzd2ioZMtjSTgN4z +9sXfsB+JDVeJnyHApno6vQe7/1dFi3Akztd5P9G7mj8a1c8XRcDRf8m6Pmzj +9/uWVqIJoHw+xN2P/T+CYAJQ + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Vdv/B3CZM5ShjJlJyJAToa71iUORqSizq+OcnSRlyO8UcSVkKEMq +3ZIKJfPUhPpxqYSiSVKZh+OY2QeV8l3+2M9+Xs/a+73en72eZ6vQThxgcHNx +cbHwtXoPfqun+bjjrfmr1AajWnIUmU/lGdGoxcg9cwtt1X05xpnq1Dq0dMNj +dNVO9Df8IpQXSLHA9UUddgUzupGP2oZya5SWn2EnvpSpjy58h9I7K5P/H/tp +R/CtZcNPKH9FLKwBm93dEnm6tgtlmJk9bMSWG1bzXLD8hopS9BxfYu+bjjQN +betF1OXJ3a+xny+zhZmF/SgujXmxDbszRjriUdAgctv/dlsH9hQ/lU0aDqPU +PdN6H7H5U066UxZHUHPk1/Nd2Iri2c3BtSzk/yuD8h3bQX7h3pTlBNLlod8Y +xSZuq0rpCk4hIv+syyR2tIZj3LG2aeTSSCPmsbukP24LK5xFpSWpmVycUUT3 +CDh6OWUOzV7/XC6APXOT605l0DxK2j2usR5bUFVXbNaQgxKFw+WUsDPpjXvE +Ni4gd5fJ65rYyvfdo/UXF9CpfIMQA2yTrfFTx2uXUPMjeV1LbH/j3ja25TKq +V4pvC8Qmmad4hTb/Rsr6vhJM7H9qhXdpCf5BrwQFKmKxs8Ck6EjbClpIrl26 +sdovv5kaUrgGvKQaKzqwC19e7ouR5waFx/zPe1b7jvpEpqdww3lZGbVJ7Eht +TlV5EA98Kc1bFFrAfctU1KYN+WBF9miLLXZ3x8TzP7l8wNWgmO2JrTz32GPd +Rn5QP5TbHIhdvN0hQ3eRH97PyGqnYTc9PbMmsFYQhG43SH3F5jR+6GVZikCX +p9q1mMVRJGEnIhbxXASedFR+u45t8JEKoqaiUGJ+L6kSO2Do4e1teuugZ1ON +0jD2Se42g79ExKC8KVvPcWkUDauWzsYtiMPh89d6jX/g70O0rG2nSAArK7Ho +IDZ30YiKTLAEyMQP9YZhK1OUDhSOS0CnTWdMNbaHZVrl2z5JEHasKjT5OYra +/UJCpVs3Al9dfprLr1HUc/9Ssq+gFFzrcBo8jT0xXpj7wEoKjtUG3MrBFgob +/LCzXgr+PJ2wn8CmnnfZ7vtQGl6rGGUkLY+imjxjTkGOLEifMC3v/j2K8oZ/ +hpuFKcCrY65Wr7lYaO/BhJ7QEgUQtHpvt4Q90SRpXTKiAFf2HinTXMNC2/O2 +blR2V4SSK/1xCdhNNJ8qPnMlsBpRY+7jZqG56b7/Y8Uqg/iMdcgQDwtJHqdW +V9mrQpZFYL2HAAuN5An5OwWoguYz6a1XsJ9865CfjFeFbtnJuXZsLzvv2M31 +qrAjTzrDWpCF8nTCD1w3VINspwgpk7V4f/b9mShpdVCX+7ljqzALuRwR1rXt +1wDZoqF+t/UshMIPGrr+1oDpMH+XbGztuJwddNnN4HEuW3EAmyuXYhG1fzPc +alGoCRRjoZIeT9fKhs1QOJggGi/OQvyHimPk7mrC0HjS5teSuB/VvpNN04KU +qUqNdBkWynW+9nUxSgtOV2ek9mFfovX38d7QAmNuk/0GsixE/+fUuOIHLWgc ++fS1A1u8LpvL2VIbpt4Er5OSZ6EAypR2rZoORL1pHCtXYCF51dTo5KGtIKdR +d3aLGgvVJZFaP7h14aHp4qUkbK9594+Eii5U9GQKTGLfalLXsvDRheW8X3pV +6iykeqTm/dJnXeD9kn6IuhnPWzysQbTqgejIk7VntFhIQV6RUHY3gPLWT/wU +Axbamh8m8gsZguOuhCtfzVmIRo/l6DoYQtTddHNHxEJZahk9vl6GQG7t392I +zXO3rPwl0xDELJxdi4GFum+xXTIqDCH/ws1n5yxYKDHLN1tLjQJ2Fy4ywRqf +b7Kdnhv/duh4Zlu6Ys9Cd0LUnR62GcGXzG32F31YqCMc7TifbwoOd/rcbRJY +SMXnk4N34F9QbTLo9N9DFmKsPCpVOA0QI+kVMTbCQtLjTwSkaRbwXKI565Lq +GAqj7PqWoU2Fbr2OzUa+Y4g2udwsybaCIfr5q+Z3x1CJRahATvseoHbWXtCa +GUN5ZEBDcaYNSJfY5dSZs9HSbpk3TdH7YKozOmDvv2z0nYtntv+wPbh2CYWm +/mSjoE0n0mLUHOEgwV3P7TGOSo8211+Jc4LcPm3326/G0Zl52UWdo/uhfklm +/UXKBOLYWh969fcBeJlUxDpVOoFMPdN3D+93huENPfw/t06i97LZAU0UF5ib +uy/IWzCJ5O7F1hVsOQhPy7Z53zCcQk/6tO0cRA/BsEWGS+aTKaT4ceZI+OQh +0DX3ruxH04hyJb04t88VcmJSi4s7p1E277xeRqMbzClJSHtQZtCj3frdcU/d +oWHgRD373AzK2pEkvlzoASqskbyd72dQ+9f8eEqKJ+jo1soubJpFD+1vqp/8 +xws2bt+z5njQLJo97swVRPeGr2dIOFMzizjWWv5Tlj6g9EpoIpd3DhVMflkK +Nf4bQriprykuc8jtTr6ft4gv6KzR27Apew5VVe77myfBF9ZHaA5qsOeQqfz7 +H4k/fCFcj49eqj+P1PqOdL87ehg+L1J3ygTPoyHhY443Bw+Di8CQMqN6HnVc +cvDbc5AGidsNM9H0PMpk5gif6qDB8/8UpVS0SVT3fOWHn40fLLD5HY/5kGi9 +FyRQavygDA/Tmkgi5Q2v2jfV+YH6w3eciCQSGbTZy/A/94PKivtpOskkOrDL +80FXgx+8U/vrQmIKiTI3hbeefe0HG8OeRkAqieS+F61v7vIDd/N4938zSaTu +I53ltegHwUJSyr9vkcjUd6ogbjsdVHilkpmVJLp3fSbUwZgOvUoDB3mqSLTh +w5y5tAkd5BV0n1/EnrJa/Fiwkw7X744Rd6pJ/P/iWtNmQYezivlSTY9ItG5R +3F1iPx2UmjK/LdSQaOii0dqc43R465x7UryRRJdqI48+uUeHET1HD6n3JDpu +eM2UWUCHL2+KHsRh2z2oWGtSSAfxXTeukNhC10YePC6hQ+zslMW7DySKC3Fi +P6qmw0rD5dm4TySK1FI/9vA/OpjR96d96yJRwLXWwMoeOvj3R9LMe0lks25k +V0gfHR6lxarfwd4SxyVqOEAHp6vyMTx9JBoJMSqpGKYDAzWufYV92CFnsnyC +DtbR9q42AyRy4wsNKvtJB5PJw51mwyTaEyp3sliKAXzjZlzv2CT6LyfeNkOG +AS0W/Lv1xkm0q21OnSnHAMphZ8FkbAON1i+WigxIDNbXtpwgkeznCMuvGgzY +wi3/tGSSRONm36WEjBgwN0xwjs2QKJX79rMjzgw4qxd8OoWD59cXybI/yIAE +b9dj3djnPZkhFFcGLJi19WsukIhZ7aS54sGAB/ZaXg3Yh4k16VdpDPhUsyVu +apFElBYa/UUwA2wDqDe3/STR53QNYbU0BuS21sR6/CFRKRL1Z6Uz4EuVyItM +7POTZFPJZTyf6Nnrb7ENbZqiTK7h5wUzf8EKPj8uvzn7Wwwwzb2Rq8zFQdYn +bn9hFjPAq90+onUNBykoXDA2L2VArIUz+w822XLiMk85A1zesMe3cXPQ3c3I +/lIVA06cLLt3Ffv39+/1uTUM8LxX8sODh4Oq7eQL3jYzIL6qeF07Lwcl/+Tm +y2xhwLNBldxf2LQC9mH3NjzPltLXmnwcJMZbIz/UzoCqtOm2KOzAWrfUH50M +6FJzLtLk5yA17avh6sMM2CnX0EAX4KCfn89+GBthgPIYMywJuyOOYVDGYsBj +254nZdhR/dvZphMMkH57fWEJuzvrg7fjPANo4/pW8YIclCEgbnVmDQELMK+V +spaD6ua+e4bxEJChHHquFHv0e2FIEB8B4wbC+zuwd1VTb9PWEhDd4u8kIcRB +I77MX7biBHwxU/2cii1mZyVhJUnAb5Oi3hLsnTsktNBGAr7zyPq0YqeJFh+i +yBKQ7ZlcxyuM12t6K+RVCGjJ11k5iU3kFzdvVCPgQbfZoyTstLTTves1CHhB +5x7MxR4hJEV5tQhAdveyP66uS+7xnzAg4JxVzVV9EQ6q+SMZPWJIgBLi/UXF +Hh7ru9K3HfcX6P/ojm1Wf6bxowkB/7pYjMVgDwWWKj4DArzFjTJbsde5RRg9 +tiAgdCk/7xu2qeVeuwoqAbaKydqT2JdkB07n7yWgcDrvqogoBz3hLUvLsSWg +zOpDpDz24HTE/et2+H39o11a2CYvN3666ETAVuv6aSo2rWJgPOEAAVPLEUX7 +sS/eLOM+50KAkGfmN2/sgRAbg3A3Ara4vLsVhi3qI7XnpAcBAW6z+tGreTaD +3gFeBFzupBsnrr6vdDbZx5eAeGvz3BurfYRs77rRCNCNub02bzWPI/X0AJ2A +U68chotW8/oH2+0IAspj9xhXrea1lY9Y+xOgsytx+elqv8dnf0MA7ntZwqR+ +Nf+u7YadgQSMWQ+wXqzmX5TWMQrC57dtcV3raj5zaLf+SQKCbZwK27FF6BVu +WiEEXLo9UfMBe4dj1Am1MAKkGa3weTXfbF+8Qjjer398Zzd2ioZMtjSTgN4z +9sXfsB+JDVeJnyHApno6vQe7/1dFi3Akztd5P9G7mj8a1c8XRcDRf8m6Pmzj +9/uWVqIJoHw+xN2P/T+CYAJQ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7486244249271231, + 1.3158884135604694`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7486244249271248}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.7486244249271231, + 1.3158884135604694`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7486244249271248}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4Vdv/B3CZM5ShjJlJyJAToa71iUORqSizq+OcnSRlyO8UcSVkKEMq +3ZIKJfPUhPpxqYSiSVKZh+OY2QeV8l3+2M9+Xs/a+73en72eZ6vQThxgcHNx +cbHwtXoPfqun+bjjrfmr1AajWnIUmU/lGdGoxcg9cwtt1X05xpnq1Dq0dMNj +dNVO9Df8IpQXSLHA9UUddgUzupGP2oZya5SWn2EnvpSpjy58h9I7K5P/H/tp +R/CtZcNPKH9FLKwBm93dEnm6tgtlmJk9bMSWG1bzXLD8hopS9BxfYu+bjjQN +betF1OXJ3a+xny+zhZmF/SgujXmxDbszRjriUdAgctv/dlsH9hQ/lU0aDqPU +PdN6H7H5U066UxZHUHPk1/Nd2Iri2c3BtSzk/yuD8h3bQX7h3pTlBNLlod8Y +xSZuq0rpCk4hIv+syyR2tIZj3LG2aeTSSCPmsbukP24LK5xFpSWpmVycUUT3 +CDh6OWUOzV7/XC6APXOT605l0DxK2j2usR5bUFVXbNaQgxKFw+WUsDPpjXvE +Ni4gd5fJ65rYyvfdo/UXF9CpfIMQA2yTrfFTx2uXUPMjeV1LbH/j3ja25TKq +V4pvC8Qmmad4hTb/Rsr6vhJM7H9qhXdpCf5BrwQFKmKxs8Ck6EjbClpIrl26 +sdovv5kaUrgGvKQaKzqwC19e7ouR5waFx/zPe1b7jvpEpqdww3lZGbVJ7Eht +TlV5EA98Kc1bFFrAfctU1KYN+WBF9miLLXZ3x8TzP7l8wNWgmO2JrTz32GPd +Rn5QP5TbHIhdvN0hQ3eRH97PyGqnYTc9PbMmsFYQhG43SH3F5jR+6GVZikCX +p9q1mMVRJGEnIhbxXASedFR+u45t8JEKoqaiUGJ+L6kSO2Do4e1teuugZ1ON +0jD2Se42g79ExKC8KVvPcWkUDauWzsYtiMPh89d6jX/g70O0rG2nSAArK7Ho +IDZ30YiKTLAEyMQP9YZhK1OUDhSOS0CnTWdMNbaHZVrl2z5JEHasKjT5OYra +/UJCpVs3Al9dfprLr1HUc/9Ssq+gFFzrcBo8jT0xXpj7wEoKjtUG3MrBFgob +/LCzXgr+PJ2wn8CmnnfZ7vtQGl6rGGUkLY+imjxjTkGOLEifMC3v/j2K8oZ/ +hpuFKcCrY65Wr7lYaO/BhJ7QEgUQtHpvt4Q90SRpXTKiAFf2HinTXMNC2/O2 +blR2V4SSK/1xCdhNNJ8qPnMlsBpRY+7jZqG56b7/Y8Uqg/iMdcgQDwtJHqdW +V9mrQpZFYL2HAAuN5An5OwWoguYz6a1XsJ9865CfjFeFbtnJuXZsLzvv2M31 +qrAjTzrDWpCF8nTCD1w3VINspwgpk7V4f/b9mShpdVCX+7ljqzALuRwR1rXt +1wDZoqF+t/UshMIPGrr+1oDpMH+XbGztuJwddNnN4HEuW3EAmyuXYhG1fzPc +alGoCRRjoZIeT9fKhs1QOJggGi/OQvyHimPk7mrC0HjS5teSuB/VvpNN04KU +qUqNdBkWynW+9nUxSgtOV2ek9mFfovX38d7QAmNuk/0GsixE/+fUuOIHLWgc ++fS1A1u8LpvL2VIbpt4Er5OSZ6EAypR2rZoORL1pHCtXYCF51dTo5KGtIKdR +d3aLGgvVJZFaP7h14aHp4qUkbK9594+Eii5U9GQKTGLfalLXsvDRheW8X3pV +6iykeqTm/dJnXeD9kn6IuhnPWzysQbTqgejIk7VntFhIQV6RUHY3gPLWT/wU +Axbamh8m8gsZguOuhCtfzVmIRo/l6DoYQtTddHNHxEJZahk9vl6GQG7t392I +zXO3rPwl0xDELJxdi4GFum+xXTIqDCH/ws1n5yxYKDHLN1tLjQJ2Fy4ywRqf +b7Kdnhv/duh4Zlu6Ys9Cd0LUnR62GcGXzG32F31YqCMc7TifbwoOd/rcbRJY +SMXnk4N34F9QbTLo9N9DFmKsPCpVOA0QI+kVMTbCQtLjTwSkaRbwXKI565Lq +GAqj7PqWoU2Fbr2OzUa+Y4g2udwsybaCIfr5q+Z3x1CJRahATvseoHbWXtCa +GUN5ZEBDcaYNSJfY5dSZs9HSbpk3TdH7YKozOmDvv2z0nYtntv+wPbh2CYWm +/mSjoE0n0mLUHOEgwV3P7TGOSo8211+Jc4LcPm3326/G0Zl52UWdo/uhfklm +/UXKBOLYWh969fcBeJlUxDpVOoFMPdN3D+93huENPfw/t06i97LZAU0UF5ib +uy/IWzCJ5O7F1hVsOQhPy7Z53zCcQk/6tO0cRA/BsEWGS+aTKaT4ceZI+OQh +0DX3ruxH04hyJb04t88VcmJSi4s7p1E277xeRqMbzClJSHtQZtCj3frdcU/d +oWHgRD373AzK2pEkvlzoASqskbyd72dQ+9f8eEqKJ+jo1soubJpFD+1vqp/8 +xws2bt+z5njQLJo97swVRPeGr2dIOFMzizjWWv5Tlj6g9EpoIpd3DhVMflkK +Nf4bQriprykuc8jtTr6ft4gv6KzR27Apew5VVe77myfBF9ZHaA5qsOeQqfz7 +H4k/fCFcj49eqj+P1PqOdL87ehg+L1J3ygTPoyHhY443Bw+Di8CQMqN6HnVc +cvDbc5AGidsNM9H0PMpk5gif6qDB8/8UpVS0SVT3fOWHn40fLLD5HY/5kGi9 +FyRQavygDA/Tmkgi5Q2v2jfV+YH6w3eciCQSGbTZy/A/94PKivtpOskkOrDL +80FXgx+8U/vrQmIKiTI3hbeefe0HG8OeRkAqieS+F61v7vIDd/N4938zSaTu +I53ltegHwUJSyr9vkcjUd6ogbjsdVHilkpmVJLp3fSbUwZgOvUoDB3mqSLTh +w5y5tAkd5BV0n1/EnrJa/Fiwkw7X744Rd6pJ/P/iWtNmQYezivlSTY9ItG5R +3F1iPx2UmjK/LdSQaOii0dqc43R465x7UryRRJdqI48+uUeHET1HD6n3JDpu +eM2UWUCHL2+KHsRh2z2oWGtSSAfxXTeukNhC10YePC6hQ+zslMW7DySKC3Fi +P6qmw0rD5dm4TySK1FI/9vA/OpjR96d96yJRwLXWwMoeOvj3R9LMe0lks25k +V0gfHR6lxarfwd4SxyVqOEAHp6vyMTx9JBoJMSqpGKYDAzWufYV92CFnsnyC +DtbR9q42AyRy4wsNKvtJB5PJw51mwyTaEyp3sliKAXzjZlzv2CT6LyfeNkOG +AS0W/Lv1xkm0q21OnSnHAMphZ8FkbAON1i+WigxIDNbXtpwgkeznCMuvGgzY +wi3/tGSSRONm36WEjBgwN0xwjs2QKJX79rMjzgw4qxd8OoWD59cXybI/yIAE +b9dj3djnPZkhFFcGLJi19WsukIhZ7aS54sGAB/ZaXg3Yh4k16VdpDPhUsyVu +apFElBYa/UUwA2wDqDe3/STR53QNYbU0BuS21sR6/CFRKRL1Z6Uz4EuVyItM +7POTZFPJZTyf6Nnrb7ENbZqiTK7h5wUzf8EKPj8uvzn7Wwwwzb2Rq8zFQdYn +bn9hFjPAq90+onUNBykoXDA2L2VArIUz+w822XLiMk85A1zesMe3cXPQ3c3I +/lIVA06cLLt3Ffv39+/1uTUM8LxX8sODh4Oq7eQL3jYzIL6qeF07Lwcl/+Tm +y2xhwLNBldxf2LQC9mH3NjzPltLXmnwcJMZbIz/UzoCqtOm2KOzAWrfUH50M +6FJzLtLk5yA17avh6sMM2CnX0EAX4KCfn89+GBthgPIYMywJuyOOYVDGYsBj +254nZdhR/dvZphMMkH57fWEJuzvrg7fjPANo4/pW8YIclCEgbnVmDQELMK+V +spaD6ua+e4bxEJChHHquFHv0e2FIEB8B4wbC+zuwd1VTb9PWEhDd4u8kIcRB +I77MX7biBHwxU/2cii1mZyVhJUnAb5Oi3hLsnTsktNBGAr7zyPq0YqeJFh+i +yBKQ7ZlcxyuM12t6K+RVCGjJ11k5iU3kFzdvVCPgQbfZoyTstLTTves1CHhB +5x7MxR4hJEV5tQhAdveyP66uS+7xnzAg4JxVzVV9EQ6q+SMZPWJIgBLi/UXF +Hh7ru9K3HfcX6P/ojm1Wf6bxowkB/7pYjMVgDwWWKj4DArzFjTJbsde5RRg9 +tiAgdCk/7xu2qeVeuwoqAbaKydqT2JdkB07n7yWgcDrvqogoBz3hLUvLsSWg +zOpDpDz24HTE/et2+H39o11a2CYvN3666ETAVuv6aSo2rWJgPOEAAVPLEUX7 +sS/eLOM+50KAkGfmN2/sgRAbg3A3Ara4vLsVhi3qI7XnpAcBAW6z+tGreTaD +3gFeBFzupBsnrr6vdDbZx5eAeGvz3BurfYRs77rRCNCNub02bzWPI/X0AJ2A +U68chotW8/oH2+0IAspj9xhXrea1lY9Y+xOgsytx+elqv8dnf0MA7ntZwqR+ +Nf+u7YadgQSMWQ+wXqzmX5TWMQrC57dtcV3raj5zaLf+SQKCbZwK27FF6BVu +WiEEXLo9UfMBe4dj1Am1MAKkGa3weTXfbF+8Qjjer398Zzd2ioZMtjSTgN4z +9sXfsB+JDVeJnyHApno6vQe7/1dFi3Akztd5P9G7mj8a1c8XRcDRf8m6Pmzj +9/uWVqIJoHw+xN2P/T+CYAJQ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.7486244249271231, 1.3158884135604694`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7486244249271248}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.7486244249271248}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7486244249271231, 1.3158884135604694`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939208238532887`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"a6c1ed0e-9e02-4c06-a62a-c5be879fdc85"] }, Open ]], Cell[CellGroupData[{ @@ -6794,425 +13629,1044 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.99185079904813*^9, {3.9918508647235966`*^9, - 3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\ -6a3bc399953c"], + 3.99185079904813*^9, {3.9918508647235966`*^9, 3.991850864992861*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.9563927422014485`*^-264\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 157, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939208239937153`*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"c59a8cd4-e3fe-40e6-8274-af7b0dc3d186"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"71d4e039-c2b8-d74d-819a-80d2051e4273"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7665642565772987`*^-275\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 158, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920824000123*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"fa646510-7dab-4da6-8b65-64ea84a9f7a4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"63625e13-15ef-1f45-89dc-998a1b63a626"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.296412400988188`*^-287\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 140, 159, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920824006124*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"b36dc2d4-97ee-44cc-ab21-a335b2dfe1f0"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ -GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM -b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ -1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 -9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX -KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 -1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu -UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV -Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX -r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO -rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q -pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq -b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk -+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj -oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi -z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp -jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd -dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw -cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 -Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe -TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj -UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE -/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM -opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 -RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ -u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y -XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV -nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi -T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 -OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U -ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY -E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S -Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT -vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ -zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO -nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm -oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU -fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd -G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han -eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao -n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv -6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 -gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF -hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 -d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS -0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 -bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 -wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF -7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 -ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe -37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg -X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu -TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 -CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 -FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX -A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs -LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr -AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo -2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr -rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 -1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 -dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO -endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 -mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK -Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-1.61617, -0.0100934, 0.0591342, \ -0.000698765}},ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 140, 160, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920824011881*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"5db6adf7-c426-4284-9fb6-17537f5621b1"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ -1872f77ea023"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0Ve0XB3AhRURkuqZ7z72uyhShDNfeTQqJZmRKIWOTVEqmFCVJFEKF +NIh7bqZQiF5ThpIS3kxpIjKPb/U7v7/O+qz1rHOetdfe3+c5DNcjO934+fj4 +Fi/g4/v/c6qr7hXrSqZpwJh4VI4ImramyZ1Z/zEM7GUO1mv4KQFKN7vKfYwD +cchO/+GrCQE2j9sEPqbDzjPuSS98ObBsWDZutu0piDcGlAf5WkH38+1HJtoq +YaV3ZEihjyOYsQY+jba1wMnOttoCT1+YbVubMNLWB1bBEr+rHIOgauODzLfp +47DKsKKg2DUGFLuLv7pq/IajJ4MnCnbehOU+zo8XbRRAz8+pL/YJp0Kcjlnp +9j2LUVrXJMt68h60J66uGJUQwy+nZqoaRjLhSmZwM7/8Mgwu81v/rO8ByMZ/ +jrqRKoXj83oXOP6P4dJuc9OWKWkU8duWNRL1BGj5TTT+BTI4cSsw1TLuCeRK +7Z7WWSKDfrND9+4mP4EPLU7kdRUZ3GzZ3LQu+wmwdvgTO7bKoK2OQhqj4QlU +Wt0RepMkg8FxkWatojnw22yyqdFEFgUrXtYUReXACcN7znVhcqj/xuHy9mO5 +YHF36YRltBye83m39+mpXCAWnYtsSpDDjNv5DRLnc+FN617eu4dymNCBeS8u +54LWUVGBriY5DBBOO9CWkQvfs05ljdHksd3CaVb4fS44LN8+pJAnj9+Vxpd7 +reHCmrOloWnP5XHX49QAwpALIn0rZBjV8nhly6/T7025UMwVAHa7PH7a+95J +3YILMpbFsav/yuPwH3r2TRcuvAll6W22pOFFfSu2dzQXNv2aC/T7TENre96c +SA8XzmyNX/XyJw3fBlV+/N3Phdx7mh1SUzQUyT95efAHF+R2uxgWL1bAh4NN +h4vGufDz2T/TAloKuObGTGSkAAk3wmL9k04roMxknbi7DAl90my/V2KKWC5k +3rXaiATZI+VKsrKK+Omz7a19JiRsq7Vt9KQrotCBotKzpiQUBl7REF+jiDv4 +Xpg930DC5e6RATtbRaw/mXRY2ZIE3UelHr/SFXHCzXDcfT8JoSY7DtDWKaGZ +TIWASCAJW53SxtZuUMKS5rllQudIWBoyGL5nmxJaB+5S+BtEQkpVRFasixIm +VCD9eygJzyxKBoWiKL/ynk2IImHElhkw3q6ERifGlA8kklAUeHTRsn4ljHFx +nddIJuF8yotErWEl9Ins/jB5mwTRnn2lnvzK6LtCMfr8HRLUPKL5elYpI68v +ato7iwSnk5OXG84q41dTr+VFeSSo3tqgOBChjHEmSYK7CkiqftdyFsUqY0Jc +5sxgIQmB/618syFTGXdopQ8tLyEhIdxJurhBGRVXZi3fWEFCw/WaO/eVVNDa +b8F9iQYSjHKT8s+XqyDaJvuc6CVhU1vT7+FaFVzox+99u4+E7XyCW5xbVPBx +YW5HxWcSDu70a4cvKtiQbCIu+JUEs7OM4JCFdMyW0WzzHiDhqMpUxnp1On6V +cdB7OUbCZF5s7aw2Hcm02OMV49T+tqoP8fToKNg3pvZigoSIYy4GhCkdq2lv +ZnOnSEiuqq/l30HHXN35Tf5zJLzyuDNUFUDHKxX+7yIW8MD8P0PJc2fp6Hou +Nt+BnwdNsa0GeiF0HExxkNIR4EF7sXBIZhQdI41KLVsEeTC8xF8yIoWOhxOy +8qYW8UCO3LrWrJKOojvLKmvEeJC66fP+P9V0dJawygtYygOiPSik8DUdLa5l +rGCK80CTP6+O/Z6OPZdDM/wleLBht5LDou90XMQv/W1Wkgc+M6MhtWIMzFgm +IhEjywOjY+4yXyUZ+O9Idy1djgeLBzqyBeQYuH6Z612S8v3Oqg+mBANbBsZz +auR50FWWoFFgwMDxQv097xR48GStSGWLMQMrxG2krRV5EEie3zeCDDR+Zjxb +Q1km3SNM3ZKBD26oafOUeGAdYfjxnjMD79V2uR1Q4YHynxzf8kMMbKtesq+a +8s8AQuCTJwO1bZyOraDzIPLwEi05fwYajKiz+inv7Q2u0j/DwJw6wTIOgwcs ++wnbXecZOPW0LDyecoXlp/CYSAZuVUxKMCR4EPNqh/yTqwxUk1P6fImyA6c6 +ty6Ogbdo5s7vKM9qcdsFUxlYPO3x9QCTB7UPmEeIdAYazlSNZVK+SU8UxAcM +7DVPXv2Fsq5kqPZZHgPt+69tdGTxgO/K5KvEQgbmDynREig3CXjZF5YycGet +gGo95ZRzXb/eVTBQ8Prcof8oe0/ujBj9h4FR0s871FWp+vvV0MRfM1Cllf+S +LeXF34xJjTcMnJ+L8gqjnPmR1enRwcBTD8w7Gikf35F0NKKbgYzJeY9flLFe +TCijn4G6Rn3aS9k8WLox7HbFDwZeEyvVXUX5U+nU6q5hBmLe5mMbKT/R866e +H2dgh8KGn3aUA3O698vPMlC6/2imL+Wt7N2jBn8YuHn3jeTzlGXu1F7cLUDg +Z2fv5mjK/bIcxeOLCRS9X7oxkfLTWB7vmhiBfD5bZu5SDhFmb8mRJDA3q2Uo +i7J1WPK/9bIEao0wVB9TVp5fevy7IoFm0XNp//fPE+GLhAgCf7oTDg8pl/yc +TmGqEVgl5eKYQTnSzUd3vQaBWY2BGbcp7+3qqXHSIZARYKR9nTJr3x7HcwYE +jsV7LLhAeay5bizJmMCYfa9p/pQrtppGFiGB92K1zx2gHPPyqdL7zQReK3Ji +b6PsYKSWN2ZB4PA3Jk2P8qq821slbAiU6LWwlac8qy7RpbmHwKCFd3vnqXpP +pdJC19gTOONRvOtfyhPiqixDZwJ5GzLVSyiPhmrXmB4icGsZ0yuB8vC4odcm +TwJVk+bF/SgPum0Ss/AjcI49orSJ8ve27aT1CQKtbKrjZSn3lR6csg8icNFv +zYpCql+6Nf2SXMIIjNLfFhBG+d87p03cLxHYftwt0ZLyh/CrYceuE2ha8JD5 +gerPesuipZH3qf1uOurTQPV3zYuXvKuPCeyPckkMp/xKu2H3DS6BJH+ywTrK +ZVK9yWnFBLrtpDUmUfPztFNEraCRwMbm16dNqXnjWknXl7QQWLEqyKqXms8n +5Sq+FW0ELkv5kRxKOStDL+91L4F/5NZmlCjzINnbCfomCRSQSQ5ZSs37rU+H ++77NESgyJK2bSuVBvPWJiKG/BBqH9bqupByzJvL1jDATV9k932xE5UnYPG+f +uDITecZDaqZU3gT7Pp9bzmQi/xvrwWdUHp3rrk6lrWDiw9RnejqUA6o6P6vq +MjFnZoEjjcoz7ysLj5qYMdG1epdC83IeHP4tLrXBkok26a/YBpTdj9AKt9gw +kU9KqjxZigcuu7T/22nPxKmhF0kOVD7uVrCL9PRjYl7vbfEqKk9Nsp/cvXmT +ia/h5ksFER500rPvbL7NxJUCPfyewtT83HyUNnGHiTcf9WjlL+ZBUWhWys5H +TKyLHDLfROW3ru3dxKXPmVhxP+muJZXvKxfGx17sZeI30RD/6d8k1AbGXdP/ +ysTDdL5iJmX3kdiY/gEmXp2aG7f6j4TMzqvRGyaY+PMfR5sU6nyhP70U+UeI +hXLHWovo0yTIOJ8NCdBg4YbJswO1v0goaD0TrKrDQlWr6ZHWYRJ2W5w+36rP +Qq3rQnNdQyTE6Z88pwsstLUYkxkaJEFM9Mjp4R0s/PZP1PXRbyQIFrsedT/F +wopOybUp3SSMSlq47K1koXHcjxdBjSR89CHeeNWwcEeicIoOdR5XVM9BcAML +za3C8XM9CbGB2SoPP7Dw9sbUHqglYXWfaPfsAAs3eesmd1WS4MdrdkyVUsV7 +6Vs7nhaRMGC9Z3//IVWUuJja+YK6T7Q80nw946mKDhPzlzTSSCgREDIWO6KK +E9MrFZNSSIgqKqQZnFFFV3tDPp8kElaoyHVcuqqKoqTM+5k4EjyGO2zVC1XR +L2NbOjeChP5ol73HF7ExRjrcMcmT+v6ABrFalI3THslGXz1ImN4yOzQkwcaM +9cWuOu4kiAjERXjS2FinlX6r0pXa/5mqfBdNNpaHGue8oe5fQW5sKetdbBxd +OGGTYkXV3/Rns/odNprSgpqmtUkw/3XK/IuBGrYVJp7/0s0FRR3li4tN1PCt +iLSCXScXho+/qlRfr4bh1uOmdR+4ED8lYXLcUg27rCzZdxq50PX7kdZfZzWc +CcstYJRy4bjov1LyUWqoqbRmIDyBC8krsWtbpxqWa77d1riFuo8eXHwiP3gF +9nEL42fTc6n/E1n+S5Ur8cke/+5u0xyQbGTHkL9W4drXqsUXWrJBMZJrY2Cg +gQVPvX6OajyGRHVDCSkPTUx4niI3fv0h1NPW649f18K3TMsW+8ksMFKsjNX+ +oI2BoypaZTr3YalAuv+BsNX4zxKXg9YxGaAcqmJix9bBG2//7MpovgfCqg6F +O2t00NRr8KE0+y5oceS5pxx18Rc3TK3dJhWOd0lWWfCtQcM48do6k2T4NR69 +xzxxDX5wXeEzf/EWbNGuTjbX1EO93M5BOeEEKBs3np9u0sM6+S89hy/GgZ+G +bsdbN32cmtYx1XWKBc7woVY7YQOUCCmtJwOiYTNLzkos3QDZeq86VrRHwoqQ +y6cr165FX58O7w+ZEbDKzbBctWMtTpCMLfsiw8Ct7PCF/GPrMGNy9lfBt2Ao +v9t6aFTaEIeONw39nQmEiYd/p7WLDPHPsEAPuzwADqpmCydbGeE547h4IesT +MLrqhsHTESN8mzDNf2j5UXiWOd87GWmMtn8eOjrPeoH9JiYaK5ugco1etnKS +Oyj4XirWqjDBcu1c7bSrrhDz113/SqUJEgc9U+uDXYE/zoz37ZUJLlPun/57 +zBUGChc+ultngvENjS4Re12hhO9CouQ7E7RYWBg2p+IK9vEhp6a+mKAvPVDs +cv4BSCw9o1+2hIO/1eyfK/e7gLSID89qHwcPzUQv3P7MCTI3BgWO2HGw37fN +WSnNCXSDYjbecOBgTNHndXwXnGD7CPn+4wEO3o+wWsdn4wQXP0zOHvThYNet +PNb3744wkx68ITCUg9Ke0xeslB2hw/jGu6xsDr6uz29XurUfDp/MTDHP5eC1 +1QIZZsH7YSq3wO0nyUHJdyLnQj32gyTxcVqnkIPi0fGrNdftB8vFSoovKjiY +tvKZ9/4Oe3jemnXo3Xtq/RqvQGHCHiyWPtMM+MjBwgPTS7YvsYePW+qm5Dqp +9YNR/2VM2MFEyWCkUw8HzeZ0msNr7EDz3uqcHwMcvBn/VETSzw6ed6wPiB7i +YIbGkUM9++zAYvku0B7h4JWBq9Xl6+3A/dLJt/6THPxiMH2aJ029r+JisuwM +B0W/N+dV/bWFsLlbB0vmOFguqNbw9YctSOg90nD8zUEpSesiWqstpPmWTP79 +y0GhVXe8nMts4X/4EHgz + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Ve0XB3AhRURkuqZ7z72uyhShDNfeTQqJZmRKIWOTVEqmFCVJFEKF +NIh7bqZQiF5ThpIS3kxpIjKPb/U7v7/O+qz1rHOetdfe3+c5DNcjO934+fj4 +Fi/g4/v/c6qr7hXrSqZpwJh4VI4ImramyZ1Z/zEM7GUO1mv4KQFKN7vKfYwD +cchO/+GrCQE2j9sEPqbDzjPuSS98ObBsWDZutu0piDcGlAf5WkH38+1HJtoq +YaV3ZEihjyOYsQY+jba1wMnOttoCT1+YbVubMNLWB1bBEr+rHIOgauODzLfp +47DKsKKg2DUGFLuLv7pq/IajJ4MnCnbehOU+zo8XbRRAz8+pL/YJp0Kcjlnp +9j2LUVrXJMt68h60J66uGJUQwy+nZqoaRjLhSmZwM7/8Mgwu81v/rO8ByMZ/ +jrqRKoXj83oXOP6P4dJuc9OWKWkU8duWNRL1BGj5TTT+BTI4cSsw1TLuCeRK +7Z7WWSKDfrND9+4mP4EPLU7kdRUZ3GzZ3LQu+wmwdvgTO7bKoK2OQhqj4QlU +Wt0RepMkg8FxkWatojnw22yyqdFEFgUrXtYUReXACcN7znVhcqj/xuHy9mO5 +YHF36YRltBye83m39+mpXCAWnYtsSpDDjNv5DRLnc+FN617eu4dymNCBeS8u +54LWUVGBriY5DBBOO9CWkQvfs05ljdHksd3CaVb4fS44LN8+pJAnj9+Vxpd7 +reHCmrOloWnP5XHX49QAwpALIn0rZBjV8nhly6/T7025UMwVAHa7PH7a+95J +3YILMpbFsav/yuPwH3r2TRcuvAll6W22pOFFfSu2dzQXNv2aC/T7TENre96c +SA8XzmyNX/XyJw3fBlV+/N3Phdx7mh1SUzQUyT95efAHF+R2uxgWL1bAh4NN +h4vGufDz2T/TAloKuObGTGSkAAk3wmL9k04roMxknbi7DAl90my/V2KKWC5k +3rXaiATZI+VKsrKK+Omz7a19JiRsq7Vt9KQrotCBotKzpiQUBl7REF+jiDv4 +Xpg930DC5e6RATtbRaw/mXRY2ZIE3UelHr/SFXHCzXDcfT8JoSY7DtDWKaGZ +TIWASCAJW53SxtZuUMKS5rllQudIWBoyGL5nmxJaB+5S+BtEQkpVRFasixIm +VCD9eygJzyxKBoWiKL/ynk2IImHElhkw3q6ERifGlA8kklAUeHTRsn4ljHFx +nddIJuF8yotErWEl9Ins/jB5mwTRnn2lnvzK6LtCMfr8HRLUPKL5elYpI68v +ato7iwSnk5OXG84q41dTr+VFeSSo3tqgOBChjHEmSYK7CkiqftdyFsUqY0Jc +5sxgIQmB/618syFTGXdopQ8tLyEhIdxJurhBGRVXZi3fWEFCw/WaO/eVVNDa +b8F9iQYSjHKT8s+XqyDaJvuc6CVhU1vT7+FaFVzox+99u4+E7XyCW5xbVPBx +YW5HxWcSDu70a4cvKtiQbCIu+JUEs7OM4JCFdMyW0WzzHiDhqMpUxnp1On6V +cdB7OUbCZF5s7aw2Hcm02OMV49T+tqoP8fToKNg3pvZigoSIYy4GhCkdq2lv +ZnOnSEiuqq/l30HHXN35Tf5zJLzyuDNUFUDHKxX+7yIW8MD8P0PJc2fp6Hou +Nt+BnwdNsa0GeiF0HExxkNIR4EF7sXBIZhQdI41KLVsEeTC8xF8yIoWOhxOy +8qYW8UCO3LrWrJKOojvLKmvEeJC66fP+P9V0dJawygtYygOiPSik8DUdLa5l +rGCK80CTP6+O/Z6OPZdDM/wleLBht5LDou90XMQv/W1Wkgc+M6MhtWIMzFgm +IhEjywOjY+4yXyUZ+O9Idy1djgeLBzqyBeQYuH6Z612S8v3Oqg+mBANbBsZz +auR50FWWoFFgwMDxQv097xR48GStSGWLMQMrxG2krRV5EEie3zeCDDR+Zjxb +Q1km3SNM3ZKBD26oafOUeGAdYfjxnjMD79V2uR1Q4YHynxzf8kMMbKtesq+a +8s8AQuCTJwO1bZyOraDzIPLwEi05fwYajKiz+inv7Q2u0j/DwJw6wTIOgwcs ++wnbXecZOPW0LDyecoXlp/CYSAZuVUxKMCR4EPNqh/yTqwxUk1P6fImyA6c6 +ty6Ogbdo5s7vKM9qcdsFUxlYPO3x9QCTB7UPmEeIdAYazlSNZVK+SU8UxAcM +7DVPXv2Fsq5kqPZZHgPt+69tdGTxgO/K5KvEQgbmDynREig3CXjZF5YycGet +gGo95ZRzXb/eVTBQ8Prcof8oe0/ujBj9h4FR0s871FWp+vvV0MRfM1Cllf+S +LeXF34xJjTcMnJ+L8gqjnPmR1enRwcBTD8w7Gikf35F0NKKbgYzJeY9flLFe +TCijn4G6Rn3aS9k8WLox7HbFDwZeEyvVXUX5U+nU6q5hBmLe5mMbKT/R866e +H2dgh8KGn3aUA3O698vPMlC6/2imL+Wt7N2jBn8YuHn3jeTzlGXu1F7cLUDg +Z2fv5mjK/bIcxeOLCRS9X7oxkfLTWB7vmhiBfD5bZu5SDhFmb8mRJDA3q2Uo +i7J1WPK/9bIEao0wVB9TVp5fevy7IoFm0XNp//fPE+GLhAgCf7oTDg8pl/yc +TmGqEVgl5eKYQTnSzUd3vQaBWY2BGbcp7+3qqXHSIZARYKR9nTJr3x7HcwYE +jsV7LLhAeay5bizJmMCYfa9p/pQrtppGFiGB92K1zx2gHPPyqdL7zQReK3Ji +b6PsYKSWN2ZB4PA3Jk2P8qq821slbAiU6LWwlac8qy7RpbmHwKCFd3vnqXpP +pdJC19gTOONRvOtfyhPiqixDZwJ5GzLVSyiPhmrXmB4icGsZ0yuB8vC4odcm +TwJVk+bF/SgPum0Ss/AjcI49orSJ8ve27aT1CQKtbKrjZSn3lR6csg8icNFv +zYpCql+6Nf2SXMIIjNLfFhBG+d87p03cLxHYftwt0ZLyh/CrYceuE2ha8JD5 +gerPesuipZH3qf1uOurTQPV3zYuXvKuPCeyPckkMp/xKu2H3DS6BJH+ywTrK +ZVK9yWnFBLrtpDUmUfPztFNEraCRwMbm16dNqXnjWknXl7QQWLEqyKqXms8n +5Sq+FW0ELkv5kRxKOStDL+91L4F/5NZmlCjzINnbCfomCRSQSQ5ZSs37rU+H ++77NESgyJK2bSuVBvPWJiKG/BBqH9bqupByzJvL1jDATV9k932xE5UnYPG+f +uDITecZDaqZU3gT7Pp9bzmQi/xvrwWdUHp3rrk6lrWDiw9RnejqUA6o6P6vq +MjFnZoEjjcoz7ysLj5qYMdG1epdC83IeHP4tLrXBkok26a/YBpTdj9AKt9gw +kU9KqjxZigcuu7T/22nPxKmhF0kOVD7uVrCL9PRjYl7vbfEqKk9Nsp/cvXmT +ia/h5ksFER500rPvbL7NxJUCPfyewtT83HyUNnGHiTcf9WjlL+ZBUWhWys5H +TKyLHDLfROW3ru3dxKXPmVhxP+muJZXvKxfGx17sZeI30RD/6d8k1AbGXdP/ +ysTDdL5iJmX3kdiY/gEmXp2aG7f6j4TMzqvRGyaY+PMfR5sU6nyhP70U+UeI +hXLHWovo0yTIOJ8NCdBg4YbJswO1v0goaD0TrKrDQlWr6ZHWYRJ2W5w+36rP +Qq3rQnNdQyTE6Z88pwsstLUYkxkaJEFM9Mjp4R0s/PZP1PXRbyQIFrsedT/F +wopOybUp3SSMSlq47K1koXHcjxdBjSR89CHeeNWwcEeicIoOdR5XVM9BcAML +za3C8XM9CbGB2SoPP7Dw9sbUHqglYXWfaPfsAAs3eesmd1WS4MdrdkyVUsV7 +6Vs7nhaRMGC9Z3//IVWUuJja+YK6T7Q80nw946mKDhPzlzTSSCgREDIWO6KK +E9MrFZNSSIgqKqQZnFFFV3tDPp8kElaoyHVcuqqKoqTM+5k4EjyGO2zVC1XR +L2NbOjeChP5ol73HF7ExRjrcMcmT+v6ABrFalI3THslGXz1ImN4yOzQkwcaM +9cWuOu4kiAjERXjS2FinlX6r0pXa/5mqfBdNNpaHGue8oe5fQW5sKetdbBxd +OGGTYkXV3/Rns/odNprSgpqmtUkw/3XK/IuBGrYVJp7/0s0FRR3li4tN1PCt +iLSCXScXho+/qlRfr4bh1uOmdR+4ED8lYXLcUg27rCzZdxq50PX7kdZfZzWc +CcstYJRy4bjov1LyUWqoqbRmIDyBC8krsWtbpxqWa77d1riFuo8eXHwiP3gF +9nEL42fTc6n/E1n+S5Ur8cke/+5u0xyQbGTHkL9W4drXqsUXWrJBMZJrY2Cg +gQVPvX6OajyGRHVDCSkPTUx4niI3fv0h1NPW649f18K3TMsW+8ksMFKsjNX+ +oI2BoypaZTr3YalAuv+BsNX4zxKXg9YxGaAcqmJix9bBG2//7MpovgfCqg6F +O2t00NRr8KE0+y5oceS5pxx18Rc3TK3dJhWOd0lWWfCtQcM48do6k2T4NR69 +xzxxDX5wXeEzf/EWbNGuTjbX1EO93M5BOeEEKBs3np9u0sM6+S89hy/GgZ+G +bsdbN32cmtYx1XWKBc7woVY7YQOUCCmtJwOiYTNLzkos3QDZeq86VrRHwoqQ +y6cr165FX58O7w+ZEbDKzbBctWMtTpCMLfsiw8Ct7PCF/GPrMGNy9lfBt2Ao +v9t6aFTaEIeONw39nQmEiYd/p7WLDPHPsEAPuzwADqpmCydbGeE547h4IesT +MLrqhsHTESN8mzDNf2j5UXiWOd87GWmMtn8eOjrPeoH9JiYaK5ugco1etnKS +Oyj4XirWqjDBcu1c7bSrrhDz113/SqUJEgc9U+uDXYE/zoz37ZUJLlPun/57 +zBUGChc+ultngvENjS4Re12hhO9CouQ7E7RYWBg2p+IK9vEhp6a+mKAvPVDs +cv4BSCw9o1+2hIO/1eyfK/e7gLSID89qHwcPzUQv3P7MCTI3BgWO2HGw37fN +WSnNCXSDYjbecOBgTNHndXwXnGD7CPn+4wEO3o+wWsdn4wQXP0zOHvThYNet +PNb3744wkx68ITCUg9Ke0xeslB2hw/jGu6xsDr6uz29XurUfDp/MTDHP5eC1 +1QIZZsH7YSq3wO0nyUHJdyLnQj32gyTxcVqnkIPi0fGrNdftB8vFSoovKjiY +tvKZ9/4Oe3jemnXo3Xtq/RqvQGHCHiyWPtMM+MjBwgPTS7YvsYePW+qm5Dqp +9YNR/2VM2MFEyWCkUw8HzeZ0msNr7EDz3uqcHwMcvBn/VETSzw6ed6wPiB7i +YIbGkUM9++zAYvku0B7h4JWBq9Xl6+3A/dLJt/6THPxiMH2aJ029r+JisuwM +B0W/N+dV/bWFsLlbB0vmOFguqNbw9YctSOg90nD8zUEpSesiWqstpPmWTP79 +y0GhVXe8nMts4X/4EHgz + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06699625378910054}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06699625378910054}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Ve0XB3AhRURkuqZ7z72uyhShDNfeTQqJZmRKIWOTVEqmFCVJFEKF +NIh7bqZQiF5ThpIS3kxpIjKPb/U7v7/O+qz1rHOetdfe3+c5DNcjO934+fj4 +Fi/g4/v/c6qr7hXrSqZpwJh4VI4ImramyZ1Z/zEM7GUO1mv4KQFKN7vKfYwD +cchO/+GrCQE2j9sEPqbDzjPuSS98ObBsWDZutu0piDcGlAf5WkH38+1HJtoq +YaV3ZEihjyOYsQY+jba1wMnOttoCT1+YbVubMNLWB1bBEr+rHIOgauODzLfp +47DKsKKg2DUGFLuLv7pq/IajJ4MnCnbehOU+zo8XbRRAz8+pL/YJp0Kcjlnp +9j2LUVrXJMt68h60J66uGJUQwy+nZqoaRjLhSmZwM7/8Mgwu81v/rO8ByMZ/ +jrqRKoXj83oXOP6P4dJuc9OWKWkU8duWNRL1BGj5TTT+BTI4cSsw1TLuCeRK +7Z7WWSKDfrND9+4mP4EPLU7kdRUZ3GzZ3LQu+wmwdvgTO7bKoK2OQhqj4QlU +Wt0RepMkg8FxkWatojnw22yyqdFEFgUrXtYUReXACcN7znVhcqj/xuHy9mO5 +YHF36YRltBye83m39+mpXCAWnYtsSpDDjNv5DRLnc+FN617eu4dymNCBeS8u +54LWUVGBriY5DBBOO9CWkQvfs05ljdHksd3CaVb4fS44LN8+pJAnj9+Vxpd7 +reHCmrOloWnP5XHX49QAwpALIn0rZBjV8nhly6/T7025UMwVAHa7PH7a+95J +3YILMpbFsav/yuPwH3r2TRcuvAll6W22pOFFfSu2dzQXNv2aC/T7TENre96c +SA8XzmyNX/XyJw3fBlV+/N3Phdx7mh1SUzQUyT95efAHF+R2uxgWL1bAh4NN +h4vGufDz2T/TAloKuObGTGSkAAk3wmL9k04roMxknbi7DAl90my/V2KKWC5k +3rXaiATZI+VKsrKK+Omz7a19JiRsq7Vt9KQrotCBotKzpiQUBl7REF+jiDv4 +Xpg930DC5e6RATtbRaw/mXRY2ZIE3UelHr/SFXHCzXDcfT8JoSY7DtDWKaGZ +TIWASCAJW53SxtZuUMKS5rllQudIWBoyGL5nmxJaB+5S+BtEQkpVRFasixIm +VCD9eygJzyxKBoWiKL/ynk2IImHElhkw3q6ERifGlA8kklAUeHTRsn4ljHFx +nddIJuF8yotErWEl9Ins/jB5mwTRnn2lnvzK6LtCMfr8HRLUPKL5elYpI68v +ato7iwSnk5OXG84q41dTr+VFeSSo3tqgOBChjHEmSYK7CkiqftdyFsUqY0Jc +5sxgIQmB/618syFTGXdopQ8tLyEhIdxJurhBGRVXZi3fWEFCw/WaO/eVVNDa +b8F9iQYSjHKT8s+XqyDaJvuc6CVhU1vT7+FaFVzox+99u4+E7XyCW5xbVPBx +YW5HxWcSDu70a4cvKtiQbCIu+JUEs7OM4JCFdMyW0WzzHiDhqMpUxnp1On6V +cdB7OUbCZF5s7aw2Hcm02OMV49T+tqoP8fToKNg3pvZigoSIYy4GhCkdq2lv +ZnOnSEiuqq/l30HHXN35Tf5zJLzyuDNUFUDHKxX+7yIW8MD8P0PJc2fp6Hou +Nt+BnwdNsa0GeiF0HExxkNIR4EF7sXBIZhQdI41KLVsEeTC8xF8yIoWOhxOy +8qYW8UCO3LrWrJKOojvLKmvEeJC66fP+P9V0dJawygtYygOiPSik8DUdLa5l +rGCK80CTP6+O/Z6OPZdDM/wleLBht5LDou90XMQv/W1Wkgc+M6MhtWIMzFgm +IhEjywOjY+4yXyUZ+O9Idy1djgeLBzqyBeQYuH6Z612S8v3Oqg+mBANbBsZz +auR50FWWoFFgwMDxQv097xR48GStSGWLMQMrxG2krRV5EEie3zeCDDR+Zjxb +Q1km3SNM3ZKBD26oafOUeGAdYfjxnjMD79V2uR1Q4YHynxzf8kMMbKtesq+a +8s8AQuCTJwO1bZyOraDzIPLwEi05fwYajKiz+inv7Q2u0j/DwJw6wTIOgwcs ++wnbXecZOPW0LDyecoXlp/CYSAZuVUxKMCR4EPNqh/yTqwxUk1P6fImyA6c6 +ty6Ogbdo5s7vKM9qcdsFUxlYPO3x9QCTB7UPmEeIdAYazlSNZVK+SU8UxAcM +7DVPXv2Fsq5kqPZZHgPt+69tdGTxgO/K5KvEQgbmDynREig3CXjZF5YycGet +gGo95ZRzXb/eVTBQ8Prcof8oe0/ujBj9h4FR0s871FWp+vvV0MRfM1Cllf+S +LeXF34xJjTcMnJ+L8gqjnPmR1enRwcBTD8w7Gikf35F0NKKbgYzJeY9flLFe +TCijn4G6Rn3aS9k8WLox7HbFDwZeEyvVXUX5U+nU6q5hBmLe5mMbKT/R866e +H2dgh8KGn3aUA3O698vPMlC6/2imL+Wt7N2jBn8YuHn3jeTzlGXu1F7cLUDg +Z2fv5mjK/bIcxeOLCRS9X7oxkfLTWB7vmhiBfD5bZu5SDhFmb8mRJDA3q2Uo +i7J1WPK/9bIEao0wVB9TVp5fevy7IoFm0XNp//fPE+GLhAgCf7oTDg8pl/yc +TmGqEVgl5eKYQTnSzUd3vQaBWY2BGbcp7+3qqXHSIZARYKR9nTJr3x7HcwYE +jsV7LLhAeay5bizJmMCYfa9p/pQrtppGFiGB92K1zx2gHPPyqdL7zQReK3Ji +b6PsYKSWN2ZB4PA3Jk2P8qq821slbAiU6LWwlac8qy7RpbmHwKCFd3vnqXpP +pdJC19gTOONRvOtfyhPiqixDZwJ5GzLVSyiPhmrXmB4icGsZ0yuB8vC4odcm +TwJVk+bF/SgPum0Ss/AjcI49orSJ8ve27aT1CQKtbKrjZSn3lR6csg8icNFv +zYpCql+6Nf2SXMIIjNLfFhBG+d87p03cLxHYftwt0ZLyh/CrYceuE2ha8JD5 +gerPesuipZH3qf1uOurTQPV3zYuXvKuPCeyPckkMp/xKu2H3DS6BJH+ywTrK +ZVK9yWnFBLrtpDUmUfPztFNEraCRwMbm16dNqXnjWknXl7QQWLEqyKqXms8n +5Sq+FW0ELkv5kRxKOStDL+91L4F/5NZmlCjzINnbCfomCRSQSQ5ZSs37rU+H ++77NESgyJK2bSuVBvPWJiKG/BBqH9bqupByzJvL1jDATV9k932xE5UnYPG+f +uDITecZDaqZU3gT7Pp9bzmQi/xvrwWdUHp3rrk6lrWDiw9RnejqUA6o6P6vq +MjFnZoEjjcoz7ysLj5qYMdG1epdC83IeHP4tLrXBkok26a/YBpTdj9AKt9gw +kU9KqjxZigcuu7T/22nPxKmhF0kOVD7uVrCL9PRjYl7vbfEqKk9Nsp/cvXmT +ia/h5ksFER500rPvbL7NxJUCPfyewtT83HyUNnGHiTcf9WjlL+ZBUWhWys5H +TKyLHDLfROW3ru3dxKXPmVhxP+muJZXvKxfGx17sZeI30RD/6d8k1AbGXdP/ +ysTDdL5iJmX3kdiY/gEmXp2aG7f6j4TMzqvRGyaY+PMfR5sU6nyhP70U+UeI +hXLHWovo0yTIOJ8NCdBg4YbJswO1v0goaD0TrKrDQlWr6ZHWYRJ2W5w+36rP +Qq3rQnNdQyTE6Z88pwsstLUYkxkaJEFM9Mjp4R0s/PZP1PXRbyQIFrsedT/F +wopOybUp3SSMSlq47K1koXHcjxdBjSR89CHeeNWwcEeicIoOdR5XVM9BcAML +za3C8XM9CbGB2SoPP7Dw9sbUHqglYXWfaPfsAAs3eesmd1WS4MdrdkyVUsV7 +6Vs7nhaRMGC9Z3//IVWUuJja+YK6T7Q80nw946mKDhPzlzTSSCgREDIWO6KK +E9MrFZNSSIgqKqQZnFFFV3tDPp8kElaoyHVcuqqKoqTM+5k4EjyGO2zVC1XR +L2NbOjeChP5ol73HF7ExRjrcMcmT+v6ABrFalI3THslGXz1ImN4yOzQkwcaM +9cWuOu4kiAjERXjS2FinlX6r0pXa/5mqfBdNNpaHGue8oe5fQW5sKetdbBxd +OGGTYkXV3/Rns/odNprSgpqmtUkw/3XK/IuBGrYVJp7/0s0FRR3li4tN1PCt +iLSCXScXho+/qlRfr4bh1uOmdR+4ED8lYXLcUg27rCzZdxq50PX7kdZfZzWc +CcstYJRy4bjov1LyUWqoqbRmIDyBC8krsWtbpxqWa77d1riFuo8eXHwiP3gF +9nEL42fTc6n/E1n+S5Ur8cke/+5u0xyQbGTHkL9W4drXqsUXWrJBMZJrY2Cg +gQVPvX6OajyGRHVDCSkPTUx4niI3fv0h1NPW649f18K3TMsW+8ksMFKsjNX+ +oI2BoypaZTr3YalAuv+BsNX4zxKXg9YxGaAcqmJix9bBG2//7MpovgfCqg6F +O2t00NRr8KE0+y5oceS5pxx18Rc3TK3dJhWOd0lWWfCtQcM48do6k2T4NR69 +xzxxDX5wXeEzf/EWbNGuTjbX1EO93M5BOeEEKBs3np9u0sM6+S89hy/GgZ+G +bsdbN32cmtYx1XWKBc7woVY7YQOUCCmtJwOiYTNLzkos3QDZeq86VrRHwoqQ +y6cr165FX58O7w+ZEbDKzbBctWMtTpCMLfsiw8Ct7PCF/GPrMGNy9lfBt2Ao +v9t6aFTaEIeONw39nQmEiYd/p7WLDPHPsEAPuzwADqpmCydbGeE547h4IesT +MLrqhsHTESN8mzDNf2j5UXiWOd87GWmMtn8eOjrPeoH9JiYaK5ugco1etnKS +Oyj4XirWqjDBcu1c7bSrrhDz113/SqUJEgc9U+uDXYE/zoz37ZUJLlPun/57 +zBUGChc+ultngvENjS4Re12hhO9CouQ7E7RYWBg2p+IK9vEhp6a+mKAvPVDs +cv4BSCw9o1+2hIO/1eyfK/e7gLSID89qHwcPzUQv3P7MCTI3BgWO2HGw37fN +WSnNCXSDYjbecOBgTNHndXwXnGD7CPn+4wEO3o+wWsdn4wQXP0zOHvThYNet +PNb3744wkx68ITCUg9Ke0xeslB2hw/jGu6xsDr6uz29XurUfDp/MTDHP5eC1 +1QIZZsH7YSq3wO0nyUHJdyLnQj32gyTxcVqnkIPi0fGrNdftB8vFSoovKjiY +tvKZ9/4Oe3jemnXo3Xtq/RqvQGHCHiyWPtMM+MjBwgPTS7YvsYePW+qm5Dqp +9YNR/2VM2MFEyWCkUw8HzeZ0msNr7EDz3uqcHwMcvBn/VETSzw6ed6wPiB7i +YIbGkUM9++zAYvku0B7h4JWBq9Xl6+3A/dLJt/6THPxiMH2aJ029r+JisuwM +B0W/N+dV/bWFsLlbB0vmOFguqNbw9YctSOg90nD8zUEpSesiWqstpPmWTP79 +y0GhVXe8nMts4X/4EHgz + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06699625378910054}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06699625378910054}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993921090397826*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"6a95653e-102d-485b-9c5e-ff43fc64dd1b"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ -5240-aa41-ba7c8ff64fb9"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[141]:=",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0Ve0XB3AhRURkuqZ7z72uyhShDNfeTQqJZmRKIWOTVEqmFCVJFEKF +NIh7bqZQiF5ThpIS3kxpIjKPb/U7v7/O+qz1rHOetdfe3+c5DNcjO934+fj4 +Fi/g4/v/c6qr7hXrSqZpwJh4VI4ImramyZ1Z/zEM7GUO1mv4KQFKN7vKfYwD +cchO/+GrCQE2j9sEPqbDzjPuSS98ObBsWDZutu0piDcGlAf5WkH38+1HJtoq +YaV3ZEihjyOYsQY+jba1wMnOttoCT1+YbVubMNLWB1bBEr+rHIOgauODzLfp +47DKsKKg2DUGFLuLv7pq/IajJ4MnCnbehOU+zo8XbRRAz8+pL/YJp0Kcjlnp +9j2LUVrXJMt68h60J66uGJUQwy+nZqoaRjLhSmZwM7/8Mgwu81v/rO8ByMZ/ +jrqRKoXj83oXOP6P4dJuc9OWKWkU8duWNRL1BGj5TTT+BTI4cSsw1TLuCeRK +7Z7WWSKDfrND9+4mP4EPLU7kdRUZ3GzZ3LQu+wmwdvgTO7bKoK2OQhqj4QlU +Wt0RepMkg8FxkWatojnw22yyqdFEFgUrXtYUReXACcN7znVhcqj/xuHy9mO5 +YHF36YRltBye83m39+mpXCAWnYtsSpDDjNv5DRLnc+FN617eu4dymNCBeS8u +54LWUVGBriY5DBBOO9CWkQvfs05ljdHksd3CaVb4fS44LN8+pJAnj9+Vxpd7 +reHCmrOloWnP5XHX49QAwpALIn0rZBjV8nhly6/T7025UMwVAHa7PH7a+95J +3YILMpbFsav/yuPwH3r2TRcuvAll6W22pOFFfSu2dzQXNv2aC/T7TENre96c +SA8XzmyNX/XyJw3fBlV+/N3Phdx7mh1SUzQUyT95efAHF+R2uxgWL1bAh4NN +h4vGufDz2T/TAloKuObGTGSkAAk3wmL9k04roMxknbi7DAl90my/V2KKWC5k +3rXaiATZI+VKsrKK+Omz7a19JiRsq7Vt9KQrotCBotKzpiQUBl7REF+jiDv4 +Xpg930DC5e6RATtbRaw/mXRY2ZIE3UelHr/SFXHCzXDcfT8JoSY7DtDWKaGZ +TIWASCAJW53SxtZuUMKS5rllQudIWBoyGL5nmxJaB+5S+BtEQkpVRFasixIm +VCD9eygJzyxKBoWiKL/ynk2IImHElhkw3q6ERifGlA8kklAUeHTRsn4ljHFx +nddIJuF8yotErWEl9Ins/jB5mwTRnn2lnvzK6LtCMfr8HRLUPKL5elYpI68v +ato7iwSnk5OXG84q41dTr+VFeSSo3tqgOBChjHEmSYK7CkiqftdyFsUqY0Jc +5sxgIQmB/618syFTGXdopQ8tLyEhIdxJurhBGRVXZi3fWEFCw/WaO/eVVNDa +b8F9iQYSjHKT8s+XqyDaJvuc6CVhU1vT7+FaFVzox+99u4+E7XyCW5xbVPBx +YW5HxWcSDu70a4cvKtiQbCIu+JUEs7OM4JCFdMyW0WzzHiDhqMpUxnp1On6V +cdB7OUbCZF5s7aw2Hcm02OMV49T+tqoP8fToKNg3pvZigoSIYy4GhCkdq2lv +ZnOnSEiuqq/l30HHXN35Tf5zJLzyuDNUFUDHKxX+7yIW8MD8P0PJc2fp6Hou +Nt+BnwdNsa0GeiF0HExxkNIR4EF7sXBIZhQdI41KLVsEeTC8xF8yIoWOhxOy +8qYW8UCO3LrWrJKOojvLKmvEeJC66fP+P9V0dJawygtYygOiPSik8DUdLa5l +rGCK80CTP6+O/Z6OPZdDM/wleLBht5LDou90XMQv/W1Wkgc+M6MhtWIMzFgm +IhEjywOjY+4yXyUZ+O9Idy1djgeLBzqyBeQYuH6Z612S8v3Oqg+mBANbBsZz +auR50FWWoFFgwMDxQv097xR48GStSGWLMQMrxG2krRV5EEie3zeCDDR+Zjxb +Q1km3SNM3ZKBD26oafOUeGAdYfjxnjMD79V2uR1Q4YHynxzf8kMMbKtesq+a +8s8AQuCTJwO1bZyOraDzIPLwEi05fwYajKiz+inv7Q2u0j/DwJw6wTIOgwcs ++wnbXecZOPW0LDyecoXlp/CYSAZuVUxKMCR4EPNqh/yTqwxUk1P6fImyA6c6 +ty6Ogbdo5s7vKM9qcdsFUxlYPO3x9QCTB7UPmEeIdAYazlSNZVK+SU8UxAcM +7DVPXv2Fsq5kqPZZHgPt+69tdGTxgO/K5KvEQgbmDynREig3CXjZF5YycGet +gGo95ZRzXb/eVTBQ8Prcof8oe0/ujBj9h4FR0s871FWp+vvV0MRfM1Cllf+S +LeXF34xJjTcMnJ+L8gqjnPmR1enRwcBTD8w7Gikf35F0NKKbgYzJeY9flLFe +TCijn4G6Rn3aS9k8WLox7HbFDwZeEyvVXUX5U+nU6q5hBmLe5mMbKT/R866e +H2dgh8KGn3aUA3O698vPMlC6/2imL+Wt7N2jBn8YuHn3jeTzlGXu1F7cLUDg +Z2fv5mjK/bIcxeOLCRS9X7oxkfLTWB7vmhiBfD5bZu5SDhFmb8mRJDA3q2Uo +i7J1WPK/9bIEao0wVB9TVp5fevy7IoFm0XNp//fPE+GLhAgCf7oTDg8pl/yc +TmGqEVgl5eKYQTnSzUd3vQaBWY2BGbcp7+3qqXHSIZARYKR9nTJr3x7HcwYE +jsV7LLhAeay5bizJmMCYfa9p/pQrtppGFiGB92K1zx2gHPPyqdL7zQReK3Ji +b6PsYKSWN2ZB4PA3Jk2P8qq821slbAiU6LWwlac8qy7RpbmHwKCFd3vnqXpP +pdJC19gTOONRvOtfyhPiqixDZwJ5GzLVSyiPhmrXmB4icGsZ0yuB8vC4odcm +TwJVk+bF/SgPum0Ss/AjcI49orSJ8ve27aT1CQKtbKrjZSn3lR6csg8icNFv +zYpCql+6Nf2SXMIIjNLfFhBG+d87p03cLxHYftwt0ZLyh/CrYceuE2ha8JD5 +gerPesuipZH3qf1uOurTQPV3zYuXvKuPCeyPckkMp/xKu2H3DS6BJH+ywTrK +ZVK9yWnFBLrtpDUmUfPztFNEraCRwMbm16dNqXnjWknXl7QQWLEqyKqXms8n +5Sq+FW0ELkv5kRxKOStDL+91L4F/5NZmlCjzINnbCfomCRSQSQ5ZSs37rU+H ++77NESgyJK2bSuVBvPWJiKG/BBqH9bqupByzJvL1jDATV9k932xE5UnYPG+f +uDITecZDaqZU3gT7Pp9bzmQi/xvrwWdUHp3rrk6lrWDiw9RnejqUA6o6P6vq +MjFnZoEjjcoz7ysLj5qYMdG1epdC83IeHP4tLrXBkok26a/YBpTdj9AKt9gw +kU9KqjxZigcuu7T/22nPxKmhF0kOVD7uVrCL9PRjYl7vbfEqKk9Nsp/cvXmT +ia/h5ksFER500rPvbL7NxJUCPfyewtT83HyUNnGHiTcf9WjlL+ZBUWhWys5H +TKyLHDLfROW3ru3dxKXPmVhxP+muJZXvKxfGx17sZeI30RD/6d8k1AbGXdP/ +ysTDdL5iJmX3kdiY/gEmXp2aG7f6j4TMzqvRGyaY+PMfR5sU6nyhP70U+UeI +hXLHWovo0yTIOJ8NCdBg4YbJswO1v0goaD0TrKrDQlWr6ZHWYRJ2W5w+36rP +Qq3rQnNdQyTE6Z88pwsstLUYkxkaJEFM9Mjp4R0s/PZP1PXRbyQIFrsedT/F +wopOybUp3SSMSlq47K1koXHcjxdBjSR89CHeeNWwcEeicIoOdR5XVM9BcAML +za3C8XM9CbGB2SoPP7Dw9sbUHqglYXWfaPfsAAs3eesmd1WS4MdrdkyVUsV7 +6Vs7nhaRMGC9Z3//IVWUuJja+YK6T7Q80nw946mKDhPzlzTSSCgREDIWO6KK +E9MrFZNSSIgqKqQZnFFFV3tDPp8kElaoyHVcuqqKoqTM+5k4EjyGO2zVC1XR +L2NbOjeChP5ol73HF7ExRjrcMcmT+v6ABrFalI3THslGXz1ImN4yOzQkwcaM +9cWuOu4kiAjERXjS2FinlX6r0pXa/5mqfBdNNpaHGue8oe5fQW5sKetdbBxd +OGGTYkXV3/Rns/odNprSgpqmtUkw/3XK/IuBGrYVJp7/0s0FRR3li4tN1PCt +iLSCXScXho+/qlRfr4bh1uOmdR+4ED8lYXLcUg27rCzZdxq50PX7kdZfZzWc +CcstYJRy4bjov1LyUWqoqbRmIDyBC8krsWtbpxqWa77d1riFuo8eXHwiP3gF +9nEL42fTc6n/E1n+S5Ur8cke/+5u0xyQbGTHkL9W4drXqsUXWrJBMZJrY2Cg +gQVPvX6OajyGRHVDCSkPTUx4niI3fv0h1NPW649f18K3TMsW+8ksMFKsjNX+ +oI2BoypaZTr3YalAuv+BsNX4zxKXg9YxGaAcqmJix9bBG2//7MpovgfCqg6F +O2t00NRr8KE0+y5oceS5pxx18Rc3TK3dJhWOd0lWWfCtQcM48do6k2T4NR69 +xzxxDX5wXeEzf/EWbNGuTjbX1EO93M5BOeEEKBs3np9u0sM6+S89hy/GgZ+G +bsdbN32cmtYx1XWKBc7woVY7YQOUCCmtJwOiYTNLzkos3QDZeq86VrRHwoqQ +y6cr165FX58O7w+ZEbDKzbBctWMtTpCMLfsiw8Ct7PCF/GPrMGNy9lfBt2Ao +v9t6aFTaEIeONw39nQmEiYd/p7WLDPHPsEAPuzwADqpmCydbGeE547h4IesT +MLrqhsHTESN8mzDNf2j5UXiWOd87GWmMtn8eOjrPeoH9JiYaK5ugco1etnKS +Oyj4XirWqjDBcu1c7bSrrhDz113/SqUJEgc9U+uDXYE/zoz37ZUJLlPun/57 +zBUGChc+ultngvENjS4Re12hhO9CouQ7E7RYWBg2p+IK9vEhp6a+mKAvPVDs +cv4BSCw9o1+2hIO/1eyfK/e7gLSID89qHwcPzUQv3P7MCTI3BgWO2HGw37fN +WSnNCXSDYjbecOBgTNHndXwXnGD7CPn+4wEO3o+wWsdn4wQXP0zOHvThYNet +PNb3744wkx68ITCUg9Ke0xeslB2hw/jGu6xsDr6uz29XurUfDp/MTDHP5eC1 +1QIZZsH7YSq3wO0nyUHJdyLnQj32gyTxcVqnkIPi0fGrNdftB8vFSoovKjiY +tvKZ9/4Oe3jemnXo3Xtq/RqvQGHCHiyWPtMM+MjBwgPTS7YvsYePW+qm5Dqp +9YNR/2VM2MFEyWCkUw8HzeZ0msNr7EDz3uqcHwMcvBn/VETSzw6ed6wPiB7i +YIbGkUM9++zAYvku0B7h4JWBq9Xl6+3A/dLJt/6THPxiMH2aJ029r+JisuwM +B0W/N+dV/bWFsLlbB0vmOFguqNbw9YctSOg90nD8zUEpSesiWqstpPmWTP79 +y0GhVXe8nMts4X/4EHgz + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Ve0XB3AhRURkuqZ7z72uyhShDNfeTQqJZmRKIWOTVEqmFCVJFEKF +NIh7bqZQiF5ThpIS3kxpIjKPb/U7v7/O+qz1rHOetdfe3+c5DNcjO934+fj4 +Fi/g4/v/c6qr7hXrSqZpwJh4VI4ImramyZ1Z/zEM7GUO1mv4KQFKN7vKfYwD +cchO/+GrCQE2j9sEPqbDzjPuSS98ObBsWDZutu0piDcGlAf5WkH38+1HJtoq +YaV3ZEihjyOYsQY+jba1wMnOttoCT1+YbVubMNLWB1bBEr+rHIOgauODzLfp +47DKsKKg2DUGFLuLv7pq/IajJ4MnCnbehOU+zo8XbRRAz8+pL/YJp0Kcjlnp +9j2LUVrXJMt68h60J66uGJUQwy+nZqoaRjLhSmZwM7/8Mgwu81v/rO8ByMZ/ +jrqRKoXj83oXOP6P4dJuc9OWKWkU8duWNRL1BGj5TTT+BTI4cSsw1TLuCeRK +7Z7WWSKDfrND9+4mP4EPLU7kdRUZ3GzZ3LQu+wmwdvgTO7bKoK2OQhqj4QlU +Wt0RepMkg8FxkWatojnw22yyqdFEFgUrXtYUReXACcN7znVhcqj/xuHy9mO5 +YHF36YRltBye83m39+mpXCAWnYtsSpDDjNv5DRLnc+FN617eu4dymNCBeS8u +54LWUVGBriY5DBBOO9CWkQvfs05ljdHksd3CaVb4fS44LN8+pJAnj9+Vxpd7 +reHCmrOloWnP5XHX49QAwpALIn0rZBjV8nhly6/T7025UMwVAHa7PH7a+95J +3YILMpbFsav/yuPwH3r2TRcuvAll6W22pOFFfSu2dzQXNv2aC/T7TENre96c +SA8XzmyNX/XyJw3fBlV+/N3Phdx7mh1SUzQUyT95efAHF+R2uxgWL1bAh4NN +h4vGufDz2T/TAloKuObGTGSkAAk3wmL9k04roMxknbi7DAl90my/V2KKWC5k +3rXaiATZI+VKsrKK+Omz7a19JiRsq7Vt9KQrotCBotKzpiQUBl7REF+jiDv4 +Xpg930DC5e6RATtbRaw/mXRY2ZIE3UelHr/SFXHCzXDcfT8JoSY7DtDWKaGZ +TIWASCAJW53SxtZuUMKS5rllQudIWBoyGL5nmxJaB+5S+BtEQkpVRFasixIm +VCD9eygJzyxKBoWiKL/ynk2IImHElhkw3q6ERifGlA8kklAUeHTRsn4ljHFx +nddIJuF8yotErWEl9Ins/jB5mwTRnn2lnvzK6LtCMfr8HRLUPKL5elYpI68v +ato7iwSnk5OXG84q41dTr+VFeSSo3tqgOBChjHEmSYK7CkiqftdyFsUqY0Jc +5sxgIQmB/618syFTGXdopQ8tLyEhIdxJurhBGRVXZi3fWEFCw/WaO/eVVNDa +b8F9iQYSjHKT8s+XqyDaJvuc6CVhU1vT7+FaFVzox+99u4+E7XyCW5xbVPBx +YW5HxWcSDu70a4cvKtiQbCIu+JUEs7OM4JCFdMyW0WzzHiDhqMpUxnp1On6V +cdB7OUbCZF5s7aw2Hcm02OMV49T+tqoP8fToKNg3pvZigoSIYy4GhCkdq2lv +ZnOnSEiuqq/l30HHXN35Tf5zJLzyuDNUFUDHKxX+7yIW8MD8P0PJc2fp6Hou +Nt+BnwdNsa0GeiF0HExxkNIR4EF7sXBIZhQdI41KLVsEeTC8xF8yIoWOhxOy +8qYW8UCO3LrWrJKOojvLKmvEeJC66fP+P9V0dJawygtYygOiPSik8DUdLa5l +rGCK80CTP6+O/Z6OPZdDM/wleLBht5LDou90XMQv/W1Wkgc+M6MhtWIMzFgm +IhEjywOjY+4yXyUZ+O9Idy1djgeLBzqyBeQYuH6Z612S8v3Oqg+mBANbBsZz +auR50FWWoFFgwMDxQv097xR48GStSGWLMQMrxG2krRV5EEie3zeCDDR+Zjxb +Q1km3SNM3ZKBD26oafOUeGAdYfjxnjMD79V2uR1Q4YHynxzf8kMMbKtesq+a +8s8AQuCTJwO1bZyOraDzIPLwEi05fwYajKiz+inv7Q2u0j/DwJw6wTIOgwcs ++wnbXecZOPW0LDyecoXlp/CYSAZuVUxKMCR4EPNqh/yTqwxUk1P6fImyA6c6 +ty6Ogbdo5s7vKM9qcdsFUxlYPO3x9QCTB7UPmEeIdAYazlSNZVK+SU8UxAcM +7DVPXv2Fsq5kqPZZHgPt+69tdGTxgO/K5KvEQgbmDynREig3CXjZF5YycGet +gGo95ZRzXb/eVTBQ8Prcof8oe0/ujBj9h4FR0s871FWp+vvV0MRfM1Cllf+S +LeXF34xJjTcMnJ+L8gqjnPmR1enRwcBTD8w7Gikf35F0NKKbgYzJeY9flLFe +TCijn4G6Rn3aS9k8WLox7HbFDwZeEyvVXUX5U+nU6q5hBmLe5mMbKT/R866e +H2dgh8KGn3aUA3O698vPMlC6/2imL+Wt7N2jBn8YuHn3jeTzlGXu1F7cLUDg +Z2fv5mjK/bIcxeOLCRS9X7oxkfLTWB7vmhiBfD5bZu5SDhFmb8mRJDA3q2Uo +i7J1WPK/9bIEao0wVB9TVp5fevy7IoFm0XNp//fPE+GLhAgCf7oTDg8pl/yc +TmGqEVgl5eKYQTnSzUd3vQaBWY2BGbcp7+3qqXHSIZARYKR9nTJr3x7HcwYE +jsV7LLhAeay5bizJmMCYfa9p/pQrtppGFiGB92K1zx2gHPPyqdL7zQReK3Ji +b6PsYKSWN2ZB4PA3Jk2P8qq821slbAiU6LWwlac8qy7RpbmHwKCFd3vnqXpP +pdJC19gTOONRvOtfyhPiqixDZwJ5GzLVSyiPhmrXmB4icGsZ0yuB8vC4odcm +TwJVk+bF/SgPum0Ss/AjcI49orSJ8ve27aT1CQKtbKrjZSn3lR6csg8icNFv +zYpCql+6Nf2SXMIIjNLfFhBG+d87p03cLxHYftwt0ZLyh/CrYceuE2ha8JD5 +gerPesuipZH3qf1uOurTQPV3zYuXvKuPCeyPckkMp/xKu2H3DS6BJH+ywTrK +ZVK9yWnFBLrtpDUmUfPztFNEraCRwMbm16dNqXnjWknXl7QQWLEqyKqXms8n +5Sq+FW0ELkv5kRxKOStDL+91L4F/5NZmlCjzINnbCfomCRSQSQ5ZSs37rU+H ++77NESgyJK2bSuVBvPWJiKG/BBqH9bqupByzJvL1jDATV9k932xE5UnYPG+f +uDITecZDaqZU3gT7Pp9bzmQi/xvrwWdUHp3rrk6lrWDiw9RnejqUA6o6P6vq +MjFnZoEjjcoz7ysLj5qYMdG1epdC83IeHP4tLrXBkok26a/YBpTdj9AKt9gw +kU9KqjxZigcuu7T/22nPxKmhF0kOVD7uVrCL9PRjYl7vbfEqKk9Nsp/cvXmT +ia/h5ksFER500rPvbL7NxJUCPfyewtT83HyUNnGHiTcf9WjlL+ZBUWhWys5H +TKyLHDLfROW3ru3dxKXPmVhxP+muJZXvKxfGx17sZeI30RD/6d8k1AbGXdP/ +ysTDdL5iJmX3kdiY/gEmXp2aG7f6j4TMzqvRGyaY+PMfR5sU6nyhP70U+UeI +hXLHWovo0yTIOJ8NCdBg4YbJswO1v0goaD0TrKrDQlWr6ZHWYRJ2W5w+36rP +Qq3rQnNdQyTE6Z88pwsstLUYkxkaJEFM9Mjp4R0s/PZP1PXRbyQIFrsedT/F +wopOybUp3SSMSlq47K1koXHcjxdBjSR89CHeeNWwcEeicIoOdR5XVM9BcAML +za3C8XM9CbGB2SoPP7Dw9sbUHqglYXWfaPfsAAs3eesmd1WS4MdrdkyVUsV7 +6Vs7nhaRMGC9Z3//IVWUuJja+YK6T7Q80nw946mKDhPzlzTSSCgREDIWO6KK +E9MrFZNSSIgqKqQZnFFFV3tDPp8kElaoyHVcuqqKoqTM+5k4EjyGO2zVC1XR +L2NbOjeChP5ol73HF7ExRjrcMcmT+v6ABrFalI3THslGXz1ImN4yOzQkwcaM +9cWuOu4kiAjERXjS2FinlX6r0pXa/5mqfBdNNpaHGue8oe5fQW5sKetdbBxd +OGGTYkXV3/Rns/odNprSgpqmtUkw/3XK/IuBGrYVJp7/0s0FRR3li4tN1PCt +iLSCXScXho+/qlRfr4bh1uOmdR+4ED8lYXLcUg27rCzZdxq50PX7kdZfZzWc +CcstYJRy4bjov1LyUWqoqbRmIDyBC8krsWtbpxqWa77d1riFuo8eXHwiP3gF +9nEL42fTc6n/E1n+S5Ur8cke/+5u0xyQbGTHkL9W4drXqsUXWrJBMZJrY2Cg +gQVPvX6OajyGRHVDCSkPTUx4niI3fv0h1NPW649f18K3TMsW+8ksMFKsjNX+ +oI2BoypaZTr3YalAuv+BsNX4zxKXg9YxGaAcqmJix9bBG2//7MpovgfCqg6F +O2t00NRr8KE0+y5oceS5pxx18Rc3TK3dJhWOd0lWWfCtQcM48do6k2T4NR69 +xzxxDX5wXeEzf/EWbNGuTjbX1EO93M5BOeEEKBs3np9u0sM6+S89hy/GgZ+G +bsdbN32cmtYx1XWKBc7woVY7YQOUCCmtJwOiYTNLzkos3QDZeq86VrRHwoqQ +y6cr165FX58O7w+ZEbDKzbBctWMtTpCMLfsiw8Ct7PCF/GPrMGNy9lfBt2Ao +v9t6aFTaEIeONw39nQmEiYd/p7WLDPHPsEAPuzwADqpmCydbGeE547h4IesT +MLrqhsHTESN8mzDNf2j5UXiWOd87GWmMtn8eOjrPeoH9JiYaK5ugco1etnKS +Oyj4XirWqjDBcu1c7bSrrhDz113/SqUJEgc9U+uDXYE/zoz37ZUJLlPun/57 +zBUGChc+ultngvENjS4Re12hhO9CouQ7E7RYWBg2p+IK9vEhp6a+mKAvPVDs +cv4BSCw9o1+2hIO/1eyfK/e7gLSID89qHwcPzUQv3P7MCTI3BgWO2HGw37fN +WSnNCXSDYjbecOBgTNHndXwXnGD7CPn+4wEO3o+wWsdn4wQXP0zOHvThYNet +PNb3744wkx68ITCUg9Ke0xeslB2hw/jGu6xsDr6uz29XurUfDp/MTDHP5eC1 +1QIZZsH7YSq3wO0nyUHJdyLnQj32gyTxcVqnkIPi0fGrNdftB8vFSoovKjiY +tvKZ9/4Oe3jemnXo3Xtq/RqvQGHCHiyWPtMM+MjBwgPTS7YvsYePW+qm5Dqp +9YNR/2VM2MFEyWCkUw8HzeZ0msNr7EDz3uqcHwMcvBn/VETSzw6ed6wPiB7i +YIbGkUM9++zAYvku0B7h4JWBq9Xl6+3A/dLJt/6THPxiMH2aJ029r+JisuwM +B0W/N+dV/bWFsLlbB0vmOFguqNbw9YctSOg90nD8zUEpSesiWqstpPmWTP79 +y0GhVXe8nMts4X/4EHgz + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06699625378910054}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06699625378910054}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Ve0XB3AhRURkuqZ7z72uyhShDNfeTQqJZmRKIWOTVEqmFCVJFEKF +NIh7bqZQiF5ThpIS3kxpIjKPb/U7v7/O+qz1rHOetdfe3+c5DNcjO934+fj4 +Fi/g4/v/c6qr7hXrSqZpwJh4VI4ImramyZ1Z/zEM7GUO1mv4KQFKN7vKfYwD +cchO/+GrCQE2j9sEPqbDzjPuSS98ObBsWDZutu0piDcGlAf5WkH38+1HJtoq +YaV3ZEihjyOYsQY+jba1wMnOttoCT1+YbVubMNLWB1bBEr+rHIOgauODzLfp +47DKsKKg2DUGFLuLv7pq/IajJ4MnCnbehOU+zo8XbRRAz8+pL/YJp0Kcjlnp +9j2LUVrXJMt68h60J66uGJUQwy+nZqoaRjLhSmZwM7/8Mgwu81v/rO8ByMZ/ +jrqRKoXj83oXOP6P4dJuc9OWKWkU8duWNRL1BGj5TTT+BTI4cSsw1TLuCeRK +7Z7WWSKDfrND9+4mP4EPLU7kdRUZ3GzZ3LQu+wmwdvgTO7bKoK2OQhqj4QlU +Wt0RepMkg8FxkWatojnw22yyqdFEFgUrXtYUReXACcN7znVhcqj/xuHy9mO5 +YHF36YRltBye83m39+mpXCAWnYtsSpDDjNv5DRLnc+FN617eu4dymNCBeS8u +54LWUVGBriY5DBBOO9CWkQvfs05ljdHksd3CaVb4fS44LN8+pJAnj9+Vxpd7 +reHCmrOloWnP5XHX49QAwpALIn0rZBjV8nhly6/T7025UMwVAHa7PH7a+95J +3YILMpbFsav/yuPwH3r2TRcuvAll6W22pOFFfSu2dzQXNv2aC/T7TENre96c +SA8XzmyNX/XyJw3fBlV+/N3Phdx7mh1SUzQUyT95efAHF+R2uxgWL1bAh4NN +h4vGufDz2T/TAloKuObGTGSkAAk3wmL9k04roMxknbi7DAl90my/V2KKWC5k +3rXaiATZI+VKsrKK+Omz7a19JiRsq7Vt9KQrotCBotKzpiQUBl7REF+jiDv4 +Xpg930DC5e6RATtbRaw/mXRY2ZIE3UelHr/SFXHCzXDcfT8JoSY7DtDWKaGZ +TIWASCAJW53SxtZuUMKS5rllQudIWBoyGL5nmxJaB+5S+BtEQkpVRFasixIm +VCD9eygJzyxKBoWiKL/ynk2IImHElhkw3q6ERifGlA8kklAUeHTRsn4ljHFx +nddIJuF8yotErWEl9Ins/jB5mwTRnn2lnvzK6LtCMfr8HRLUPKL5elYpI68v +ato7iwSnk5OXG84q41dTr+VFeSSo3tqgOBChjHEmSYK7CkiqftdyFsUqY0Jc +5sxgIQmB/618syFTGXdopQ8tLyEhIdxJurhBGRVXZi3fWEFCw/WaO/eVVNDa +b8F9iQYSjHKT8s+XqyDaJvuc6CVhU1vT7+FaFVzox+99u4+E7XyCW5xbVPBx +YW5HxWcSDu70a4cvKtiQbCIu+JUEs7OM4JCFdMyW0WzzHiDhqMpUxnp1On6V +cdB7OUbCZF5s7aw2Hcm02OMV49T+tqoP8fToKNg3pvZigoSIYy4GhCkdq2lv +ZnOnSEiuqq/l30HHXN35Tf5zJLzyuDNUFUDHKxX+7yIW8MD8P0PJc2fp6Hou +Nt+BnwdNsa0GeiF0HExxkNIR4EF7sXBIZhQdI41KLVsEeTC8xF8yIoWOhxOy +8qYW8UCO3LrWrJKOojvLKmvEeJC66fP+P9V0dJawygtYygOiPSik8DUdLa5l +rGCK80CTP6+O/Z6OPZdDM/wleLBht5LDou90XMQv/W1Wkgc+M6MhtWIMzFgm +IhEjywOjY+4yXyUZ+O9Idy1djgeLBzqyBeQYuH6Z612S8v3Oqg+mBANbBsZz +auR50FWWoFFgwMDxQv097xR48GStSGWLMQMrxG2krRV5EEie3zeCDDR+Zjxb +Q1km3SNM3ZKBD26oafOUeGAdYfjxnjMD79V2uR1Q4YHynxzf8kMMbKtesq+a +8s8AQuCTJwO1bZyOraDzIPLwEi05fwYajKiz+inv7Q2u0j/DwJw6wTIOgwcs ++wnbXecZOPW0LDyecoXlp/CYSAZuVUxKMCR4EPNqh/yTqwxUk1P6fImyA6c6 +ty6Ogbdo5s7vKM9qcdsFUxlYPO3x9QCTB7UPmEeIdAYazlSNZVK+SU8UxAcM +7DVPXv2Fsq5kqPZZHgPt+69tdGTxgO/K5KvEQgbmDynREig3CXjZF5YycGet +gGo95ZRzXb/eVTBQ8Prcof8oe0/ujBj9h4FR0s871FWp+vvV0MRfM1Cllf+S +LeXF34xJjTcMnJ+L8gqjnPmR1enRwcBTD8w7Gikf35F0NKKbgYzJeY9flLFe +TCijn4G6Rn3aS9k8WLox7HbFDwZeEyvVXUX5U+nU6q5hBmLe5mMbKT/R866e +H2dgh8KGn3aUA3O698vPMlC6/2imL+Wt7N2jBn8YuHn3jeTzlGXu1F7cLUDg +Z2fv5mjK/bIcxeOLCRS9X7oxkfLTWB7vmhiBfD5bZu5SDhFmb8mRJDA3q2Uo +i7J1WPK/9bIEao0wVB9TVp5fevy7IoFm0XNp//fPE+GLhAgCf7oTDg8pl/yc +TmGqEVgl5eKYQTnSzUd3vQaBWY2BGbcp7+3qqXHSIZARYKR9nTJr3x7HcwYE +jsV7LLhAeay5bizJmMCYfa9p/pQrtppGFiGB92K1zx2gHPPyqdL7zQReK3Ji +b6PsYKSWN2ZB4PA3Jk2P8qq821slbAiU6LWwlac8qy7RpbmHwKCFd3vnqXpP +pdJC19gTOONRvOtfyhPiqixDZwJ5GzLVSyiPhmrXmB4icGsZ0yuB8vC4odcm +TwJVk+bF/SgPum0Ss/AjcI49orSJ8ve27aT1CQKtbKrjZSn3lR6csg8icNFv +zYpCql+6Nf2SXMIIjNLfFhBG+d87p03cLxHYftwt0ZLyh/CrYceuE2ha8JD5 +gerPesuipZH3qf1uOurTQPV3zYuXvKuPCeyPckkMp/xKu2H3DS6BJH+ywTrK +ZVK9yWnFBLrtpDUmUfPztFNEraCRwMbm16dNqXnjWknXl7QQWLEqyKqXms8n +5Sq+FW0ELkv5kRxKOStDL+91L4F/5NZmlCjzINnbCfomCRSQSQ5ZSs37rU+H ++77NESgyJK2bSuVBvPWJiKG/BBqH9bqupByzJvL1jDATV9k932xE5UnYPG+f +uDITecZDaqZU3gT7Pp9bzmQi/xvrwWdUHp3rrk6lrWDiw9RnejqUA6o6P6vq +MjFnZoEjjcoz7ysLj5qYMdG1epdC83IeHP4tLrXBkok26a/YBpTdj9AKt9gw +kU9KqjxZigcuu7T/22nPxKmhF0kOVD7uVrCL9PRjYl7vbfEqKk9Nsp/cvXmT +ia/h5ksFER500rPvbL7NxJUCPfyewtT83HyUNnGHiTcf9WjlL+ZBUWhWys5H +TKyLHDLfROW3ru3dxKXPmVhxP+muJZXvKxfGx17sZeI30RD/6d8k1AbGXdP/ +ysTDdL5iJmX3kdiY/gEmXp2aG7f6j4TMzqvRGyaY+PMfR5sU6nyhP70U+UeI +hXLHWovo0yTIOJ8NCdBg4YbJswO1v0goaD0TrKrDQlWr6ZHWYRJ2W5w+36rP +Qq3rQnNdQyTE6Z88pwsstLUYkxkaJEFM9Mjp4R0s/PZP1PXRbyQIFrsedT/F +wopOybUp3SSMSlq47K1koXHcjxdBjSR89CHeeNWwcEeicIoOdR5XVM9BcAML +za3C8XM9CbGB2SoPP7Dw9sbUHqglYXWfaPfsAAs3eesmd1WS4MdrdkyVUsV7 +6Vs7nhaRMGC9Z3//IVWUuJja+YK6T7Q80nw946mKDhPzlzTSSCgREDIWO6KK +E9MrFZNSSIgqKqQZnFFFV3tDPp8kElaoyHVcuqqKoqTM+5k4EjyGO2zVC1XR +L2NbOjeChP5ol73HF7ExRjrcMcmT+v6ABrFalI3THslGXz1ImN4yOzQkwcaM +9cWuOu4kiAjERXjS2FinlX6r0pXa/5mqfBdNNpaHGue8oe5fQW5sKetdbBxd +OGGTYkXV3/Rns/odNprSgpqmtUkw/3XK/IuBGrYVJp7/0s0FRR3li4tN1PCt +iLSCXScXho+/qlRfr4bh1uOmdR+4ED8lYXLcUg27rCzZdxq50PX7kdZfZzWc +CcstYJRy4bjov1LyUWqoqbRmIDyBC8krsWtbpxqWa77d1riFuo8eXHwiP3gF +9nEL42fTc6n/E1n+S5Ur8cke/+5u0xyQbGTHkL9W4drXqsUXWrJBMZJrY2Cg +gQVPvX6OajyGRHVDCSkPTUx4niI3fv0h1NPW649f18K3TMsW+8ksMFKsjNX+ +oI2BoypaZTr3YalAuv+BsNX4zxKXg9YxGaAcqmJix9bBG2//7MpovgfCqg6F +O2t00NRr8KE0+y5oceS5pxx18Rc3TK3dJhWOd0lWWfCtQcM48do6k2T4NR69 +xzxxDX5wXeEzf/EWbNGuTjbX1EO93M5BOeEEKBs3np9u0sM6+S89hy/GgZ+G +bsdbN32cmtYx1XWKBc7woVY7YQOUCCmtJwOiYTNLzkos3QDZeq86VrRHwoqQ +y6cr165FX58O7w+ZEbDKzbBctWMtTpCMLfsiw8Ct7PCF/GPrMGNy9lfBt2Ao +v9t6aFTaEIeONw39nQmEiYd/p7WLDPHPsEAPuzwADqpmCydbGeE547h4IesT +MLrqhsHTESN8mzDNf2j5UXiWOd87GWmMtn8eOjrPeoH9JiYaK5ugco1etnKS +Oyj4XirWqjDBcu1c7bSrrhDz113/SqUJEgc9U+uDXYE/zoz37ZUJLlPun/57 +zBUGChc+ultngvENjS4Re12hhO9CouQ7E7RYWBg2p+IK9vEhp6a+mKAvPVDs +cv4BSCw9o1+2hIO/1eyfK/e7gLSID89qHwcPzUQv3P7MCTI3BgWO2HGw37fN +WSnNCXSDYjbecOBgTNHndXwXnGD7CPn+4wEO3o+wWsdn4wQXP0zOHvThYNet +PNb3744wkx68ITCUg9Ke0xeslB2hw/jGu6xsDr6uz29XurUfDp/MTDHP5eC1 +1QIZZsH7YSq3wO0nyUHJdyLnQj32gyTxcVqnkIPi0fGrNdftB8vFSoovKjiY +tvKZ9/4Oe3jemnXo3Xtq/RqvQGHCHiyWPtMM+MjBwgPTS7YvsYePW+qm5Dqp +9YNR/2VM2MFEyWCkUw8HzeZ0msNr7EDz3uqcHwMcvBn/VETSzw6ed6wPiB7i +YIbGkUM9++zAYvku0B7h4JWBq9Xl6+3A/dLJt/6THPxiMH2aJ029r+JisuwM +B0W/N+dV/bWFsLlbB0vmOFguqNbw9YctSOg90nD8zUEpSesiWqstpPmWTP79 +y0GhVXe8nMts4X/4EHgz + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06699625378910054}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06699625378910054}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993921090441928*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"05551583-1a19-4396-834b-d16500346ae1"] +}, Open ]], Cell[CellGroupData[{ @@ -7262,18 +14716,78 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.270280314515888`*^-157\\\", \ +RowBox[{\\\"\ +552513857212233842570175958778312308519209260189278753959051363142168\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1583212683407106418618000954093361543354777600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 161, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993921090468663*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"f3b5b898-d68f-4fc6-803d-5cd3293a603e"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.521913319801299`*^-160\\\", \ +RowBox[{\\\"\ +192330073695578600598678251250730514595536743471887934253145779509789\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1163350940137443209261321198991532417980825600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 162, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993921090474321*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"5f40591f-267f-43a4-b68e-478c5f4264d0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.006685183788261`*^-163\\\", \ +RowBox[{\\\"\ +692388265304082962155241704502629852543932276498796563311324806235240\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"25\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8063384494795553340756316369516704730972160000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 163, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993921090479507*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"a8c73e32-ab5a-4d84-b6f2-558a89c7f40a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 164, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939210904844*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"d61876ec-7b73-4f0c-b521-5bbda00e8f69"], + +Cell[BoxData["11.352571098213838`"], "Output", + CellChangeTimes->{3.9939211188775587`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"6b5dcf48-847c-4ad9-9452-25af01048f74"] }, Open ]], Cell[CellGroupData[{ @@ -7340,27 +14854,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850818889292*^9, - 3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\ -5dd8190b0268"], + CellChangeTimes->{{3.991850818889292*^9, 3.9918508230677433`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"905b237c-0e51-ab4b-895d-05994c6f1d5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.107386783320921`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 165, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939211189056168`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"62d18230-0a24-4146-9c62-38d4b6cd23ba"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ad8c79e-9570-a44d-b593-07aa87056e21"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0508592664419597`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 166, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993921118910487*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f40ce202-fa7a-4f64-ad08-ed69a515fa22"], -Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.972172455907902`*^-222\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 167, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939211189155197`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"89f41552-4910-4cbc-8054-54d5cff27232"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 168, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99392111892008*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"c881cca3-3667-4dbe-b602-a290f272b936"], + +Cell[BoxData["0.37000657156787914`"], "Output", + CellChangeTimes->{3.99392112301974*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"85936964-227b-4f56-95cb-65ad377f9fff"] }, Open ]], Cell[CellGroupData[{ @@ -7381,8 +14940,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7427,27 +14985,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850826380268*^9, - 3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\ -98d71f8a8458"], + CellChangeTimes->{{3.991850826380268*^9, 3.991850829169306*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c516c31a-74b4-f24d-a16a-678221cde87e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.107386783320921`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 169, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993921123047303*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"b2a3c19c-61b6-499a-96bc-c313a45117ad"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"5c50b555-9ebe-f94d-801f-34634555f622"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0508592664419597`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 170, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993921123052104*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"94b37ea1-4f61-4a29-9f22-03cea33551ce"], -Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.972172455907902`*^-222\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 171, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993921123057212*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a14b46bb-1aa9-4c1d-8a45-a4f74da916e8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 172, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939211230618153`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"270c4415-7c5c-456e-8b14-9ec88521eff8"], + +Cell[BoxData["35.17772888652235`"], "Output", + CellChangeTimes->{3.993921126984233*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"d0698767-a391-4838-a19b-b10055857a28"] }, Open ]], Cell[CellGroupData[{ @@ -7468,8 +15071,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7514,27 +15116,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918508329145336`*^9, - 3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\ -57c1fe1d0585"], + CellChangeTimes->{{3.9918508329145336`*^9, 3.991850837197098*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ca591cf-a5ce-ce41-8101-8edfca50e890"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.107386783320921`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 173, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993921127012689*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0445b31f-7a89-4951-b1ad-b16533df024d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cbafd11a-4be0-b541-81e4-e62191ae7695"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0508592664419597`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 174, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993921127017768*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"f9497cb9-da20-4b26-b92e-51369791fc35"], -Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.972172455907902`*^-222\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 175, + 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993921127022807*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"b17c215b-3d26-48a5-815b-eaef01ecd046"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 176, 31385386217134927151, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993921127027598*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"c2e0c20d-9278-4fd9-8236-3d562d6f3ce4"], + +Cell[BoxData["4.644707066442438`"], "Output", + CellChangeTimes->{3.993921129489017*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"43d5209d-7277-44d3-913d-dcebf36afd2b"] }, Open ]], Cell[CellGroupData[{ @@ -7543,17 +15190,26 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918508397421246`*^9, - 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ -1ca469b254bd"], + CellChangeTimes->{{3.9918508397421246`*^9, 3.9918508449867363`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] -}, Open ]] +Cell[BoxData["0.02894652097827689`"], "Output", + CellChangeTimes->{3.993921129512663*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"9811db93-b523-4b77-9ffa-041b6f13de7b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"8b95b675-a237-4dda-85a8-e2731f65da91"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +Evaluator->"kernel 5", +WindowSize->{714, 288}, +WindowMargins->{{-3, Automatic}, {297, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" ] @@ -7568,354 +15224,641 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], -Cell[706, 26, 152, 3, 28, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], -Cell[861, 31, 147, 4, 28, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], -Cell[1011, 37, 154, 3, 28, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ -Cell[1190, 44, 1273, 41, 113, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[2466, 87, 106, 0, 32, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[576, 22, 302, 5, 29, "Input",ExpressionUUID->"946a15a7-3818-4bcc-a92d-6192f942d70b"], +Cell[881, 29, 269, 4, 33, "Output",ExpressionUUID->"d6db251b-07b9-4f61-8f6b-be01eb117fbd"] }, Open ]], Cell[CellGroupData[{ -Cell[2609, 92, 910, 31, 56, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[3522, 125, 106, 0, 32, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[1187, 38, 246, 4, 29, "Input",ExpressionUUID->"40f52e4c-18bc-423e-8f1f-71e052282e96"], +Cell[1436, 44, 271, 4, 33, "Output",ExpressionUUID->"50508012-faaa-4e32-abba-d0c5096196a3"] }, Open ]], Cell[CellGroupData[{ -Cell[3665, 130, 885, 30, 56, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[4553, 162, 106, 0, 32, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[1744, 53, 223, 4, 29, "Input",ExpressionUUID->"5a4c4862-bdcc-4eef-a64e-0f2822f8ee8f"], +Cell[1970, 59, 270, 4, 33, "Output",ExpressionUUID->"1b91468f-ddc9-45a7-93db-ed6cb8934b26"] }, Open ]], Cell[CellGroupData[{ -Cell[4696, 167, 532, 18, 52, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[5231, 187, 101, 0, 32, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[2277, 68, 175, 3, 29, "Input",ExpressionUUID->"b602e51e-2c94-45fe-9b69-e92074284373"], +Cell[2455, 73, 270, 4, 33, "Output",ExpressionUUID->"64cd9095-c088-49eb-aff7-11d196e1594c"] }, Open ]], Cell[CellGroupData[{ -Cell[5369, 192, 625, 21, 52, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[5997, 215, 100, 0, 32, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[2762, 82, 257, 7, 42, "Input",ExpressionUUID->"e723ca56-3646-4c9b-9c3e-a4ac4e7c99fb"], +Cell[3022, 91, 278, 4, 33, "Output",ExpressionUUID->"e1a93ef1-a4f5-47d7-b12a-25c2d307eae0"] }, Open ]], Cell[CellGroupData[{ -Cell[6134, 220, 144, 4, 56, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[6281, 226, 101, 0, 32, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[3337, 100, 131, 2, 29, "Input",ExpressionUUID->"12933264-e8eb-4e9c-96ae-b066d6da105e"], +Cell[3471, 104, 281, 4, 33, "Output",ExpressionUUID->"56639342-6652-4f2b-8d48-0812b0d9cb8a"] }, Open ]], Cell[CellGroupData[{ -Cell[6419, 231, 144, 4, 55, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[6566, 237, 100, 0, 70, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[3789, 113, 276, 6, 29, "Input",ExpressionUUID->"40d8995e-15d1-4b2b-bedd-5bb2dd6393e5"], +Cell[4068, 121, 286, 4, 33, "Output",ExpressionUUID->"31d8ed03-5fe6-442b-8d4c-b13cd17037b4"] }, Open ]], Cell[CellGroupData[{ -Cell[6703, 242, 155, 4, 70, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[6861, 248, 101, 0, 70, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[4391, 130, 257, 7, 29, "Input",ExpressionUUID->"f20662e0-4084-4136-8b08-530e5e291154"], +Cell[4651, 139, 286, 4, 33, "Output",ExpressionUUID->"7b91566b-c817-47d8-90dd-12295d36f589"] }, Open ]], Cell[CellGroupData[{ -Cell[6999, 253, 155, 4, 70, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[7157, 259, 101, 0, 70, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[4974, 148, 226, 4, 29, "Input",ExpressionUUID->"948dfae7-7ef2-4c29-a1bf-d76e43545036"], +Cell[5203, 154, 249, 4, 33, "Output",ExpressionUUID->"cd0ba3c2-8bde-4985-95cf-045fc046ae9b"] }, Open ]], Cell[CellGroupData[{ -Cell[7295, 264, 6029, 184, 70, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[13327, 450, 102, 0, 70, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[5489, 163, 225, 4, 29, "Input",ExpressionUUID->"1a6b8d21-d365-445e-96f8-2a2f98fcfa8d"], +Cell[5717, 169, 260, 4, 33, "Output",ExpressionUUID->"8da53173-5c3c-434b-82a0-ea9d62a41685"] }, Open ]], Cell[CellGroupData[{ -Cell[13466, 455, 342, 8, 70, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[13811, 465, 342, 6, 70, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], -Cell[14156, 473, 100, 0, 70, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[6014, 178, 129, 2, 29, "Input",ExpressionUUID->"eb63f0ee-715a-4132-83e1-40c8d44e89c5"], +Cell[6146, 182, 274, 4, 33, "Output",ExpressionUUID->"cc2cb93e-8460-4e5d-be34-20c2c71891c8"] }, Open ]], Cell[CellGroupData[{ -Cell[14293, 478, 6096, 186, 70, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[20392, 666, 103, 0, 70, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[6457, 191, 129, 2, 29, "Input",ExpressionUUID->"17379209-e90b-4641-b498-45015d0980d6"], +Cell[6589, 195, 274, 4, 33, "Output",ExpressionUUID->"c8d7112c-c8fd-4052-afc3-8216c2a4387b"] }, Open ]], Cell[CellGroupData[{ -Cell[20532, 671, 342, 8, 70, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[20877, 681, 342, 6, 70, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], -Cell[21222, 689, 100, 0, 70, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[6900, 204, 557, 19, 79, "Input",ExpressionUUID->"3bb1d00c-6aa5-49ca-b277-9a54ee404120"], +Cell[7460, 225, 289, 4, 33, "Output",ExpressionUUID->"9fd0084c-9272-4a08-a035-44cf124c2621"] }, Open ]], Cell[CellGroupData[{ -Cell[21359, 694, 2637, 87, 70, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[23999, 783, 101, 0, 70, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[7786, 234, 557, 19, 79, "Input",ExpressionUUID->"bc8f0ac1-835c-45f7-b79b-95e0077cc093"], +Cell[8346, 255, 287, 4, 33, "Output",ExpressionUUID->"ddf4413a-76af-4914-8b39-bdddb6cc3c4b"] }, Open ]], Cell[CellGroupData[{ -Cell[24137, 788, 2577, 84, 70, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[26717, 874, 102, 0, 70, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[8670, 264, 1492, 48, 79, "Input",ExpressionUUID->"abeef0c4-b428-4df8-b973-8fc9491f40ca"], +Cell[10165, 314, 291, 4, 33, "Output",ExpressionUUID->"ca11b838-e3dd-4b4c-bf4b-125c9ce8b041"] }, Open ]], Cell[CellGroupData[{ -Cell[26856, 879, 3686, 117, 70, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[30545, 998, 102, 0, 70, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] -}, Open ]], -Cell[30662, 1001, 138, 3, 70, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], -Cell[CellGroupData[{ -Cell[30825, 1008, 2054, 59, 70, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], -Cell[32882, 1069, 342, 6, 70, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], -Cell[33227, 1077, 342, 6, 70, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], -Cell[33572, 1085, 100, 0, 70, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[10493, 323, 1331, 44, 79, "Input",ExpressionUUID->"b124f26d-07b2-4ee5-bdbe-bde648f85947"], +Cell[11827, 369, 306, 5, 33, "Output",ExpressionUUID->"19411201-2480-4cdf-bd25-e60c0bd44979"] }, Open ]], Cell[CellGroupData[{ -Cell[33709, 1090, 2049, 58, 70, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], -Cell[35761, 1150, 342, 6, 70, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], -Cell[36106, 1158, 342, 6, 70, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], -Cell[36451, 1166, 100, 0, 70, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[12170, 379, 1331, 44, 79, "Input",ExpressionUUID->"152799db-c1d2-41b3-a21f-9dfdfa30ba14"], +Cell[13504, 425, 308, 5, 33, "Output",ExpressionUUID->"d801bc2f-6613-4431-b99c-ec430a8cc5b9"] }, Open ]], Cell[CellGroupData[{ -Cell[36588, 1171, 1938, 53, 70, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], -Cell[38529, 1226, 342, 6, 70, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], -Cell[38874, 1234, 342, 6, 70, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], -Cell[39219, 1242, 342, 6, 70, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], -Cell[39564, 1250, 407, 7, 70, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], -Cell[39974, 1259, 8018, 364, 70, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], -Cell[47995, 1625, 191, 5, 70, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +Cell[13849, 435, 1492, 48, 79, "Input",ExpressionUUID->"1e625577-d85a-4041-8636-ef134f8b1369"], +Cell[15344, 485, 284, 4, 33, "Output",ExpressionUUID->"35d2e75b-4402-403a-a82f-ce529a30cca1"] }, Open ]], Cell[CellGroupData[{ -Cell[48223, 1635, 2094, 60, 70, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], -Cell[50320, 1697, 342, 6, 70, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], -Cell[50665, 1705, 342, 6, 70, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], -Cell[51010, 1713, 342, 6, 70, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], -Cell[51355, 1721, 407, 7, 70, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], -Cell[51765, 1730, 8024, 353, 70, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], -Cell[59792, 2085, 191, 5, 70, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] -}, Open ]], -Cell[59998, 2093, 232, 6, 70, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], -Cell[60233, 2101, 209, 5, 70, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], -Cell[CellGroupData[{ -Cell[60467, 2110, 215, 7, 70, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[60685, 2119, 100, 0, 70, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[15665, 494, 131, 2, 29, "Input",ExpressionUUID->"4bb1112d-c2ba-4f35-87cc-1d95260af95a"], +Cell[15799, 498, 272, 4, 33, "Output",ExpressionUUID->"82e8b85b-4560-43c0-a065-4f540ca1b545"] }, Open ]], Cell[CellGroupData[{ -Cell[60822, 2124, 1814, 53, 70, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], -Cell[62639, 2179, 342, 6, 70, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], -Cell[62984, 2187, 342, 6, 70, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], -Cell[63329, 2195, 342, 6, 70, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], -Cell[63674, 2203, 407, 7, 70, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], -Cell[64084, 2212, 8187, 365, 70, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], -Cell[72274, 2579, 191, 5, 70, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +Cell[16108, 507, 133, 2, 29, "Input",ExpressionUUID->"ba1d923d-18fb-4c6c-9671-cf86513b4b45"], +Cell[16244, 511, 273, 4, 33, "Output",ExpressionUUID->"904d3454-9b52-4370-a820-210723c724eb"] }, Open ]], Cell[CellGroupData[{ -Cell[72502, 2589, 1590, 47, 70, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], -Cell[74095, 2638, 342, 6, 70, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], -Cell[74440, 2646, 101, 0, 70, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[16554, 520, 134, 2, 29, "Input",ExpressionUUID->"b3a7a787-5dbf-49df-a66e-0ed7b069a1ab"], +Cell[16691, 524, 278, 4, 33, "Output",ExpressionUUID->"1429e362-d309-4963-91a9-7027750badbe"] }, Open ]], Cell[CellGroupData[{ -Cell[74578, 2651, 2247, 64, 70, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], -Cell[76828, 2717, 342, 6, 70, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], -Cell[77173, 2725, 342, 6, 70, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], -Cell[77518, 2733, 103, 0, 70, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[17006, 533, 219, 4, 29, "Input",ExpressionUUID->"ed62a784-d144-4eb2-831e-8d8c6d370389"], +Cell[17228, 539, 288, 5, 33, "Output",ExpressionUUID->"5872d986-a80a-44a9-bbe8-b65695db731a"] }, Open ]], Cell[CellGroupData[{ -Cell[77658, 2738, 2219, 64, 70, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], -Cell[79880, 2804, 342, 6, 70, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], -Cell[80225, 2812, 342, 6, 70, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], -Cell[80570, 2820, 100, 0, 70, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[17553, 549, 134, 2, 29, "Input",ExpressionUUID->"4a821c3e-9f70-4de0-bbeb-6b6285879895"], +Cell[17690, 553, 280, 4, 33, "Output",ExpressionUUID->"3361bf7e-10b1-45c4-a401-1dc76a56fb92"] }, Open ]], Cell[CellGroupData[{ -Cell[80707, 2825, 2221, 64, 70, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], -Cell[82931, 2891, 342, 6, 70, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], -Cell[83276, 2899, 342, 6, 70, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], -Cell[83621, 2907, 101, 0, 70, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[18007, 562, 324, 5, 29, "Input",ExpressionUUID->"6450e23a-d56f-49a2-8174-9fad4a34ce27"], +Cell[18334, 569, 272, 4, 33, "Output",ExpressionUUID->"7296f8be-1018-4b32-8453-a939607ce130"] }, Open ]], Cell[CellGroupData[{ -Cell[83759, 2912, 215, 6, 70, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[83977, 2920, 104, 0, 70, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] -}, Open ]], -Cell[84096, 2923, 247, 5, 70, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], -Cell[CellGroupData[{ -Cell[84368, 2932, 532, 18, 70, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[84903, 2952, 100, 0, 70, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[18643, 578, 296, 5, 29, "Input",ExpressionUUID->"af703f79-28e4-4cd7-a4a9-47a6df98f27e"], +Cell[18942, 585, 272, 4, 33, "Output",ExpressionUUID->"313e4649-5b54-41b6-851f-aee638d86c0d"] }, Open ]], Cell[CellGroupData[{ -Cell[85040, 2957, 144, 4, 70, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[85187, 2963, 100, 0, 70, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[19251, 594, 219, 4, 29, "Input",ExpressionUUID->"243b3833-9d75-4d15-ae18-42c7c2d800c2"], +Cell[19473, 600, 275, 4, 33, "Output",ExpressionUUID->"f8f7b749-8b5f-49fa-89dd-18a872b97d69"] }, Open ]], Cell[CellGroupData[{ -Cell[85324, 2968, 155, 4, 70, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[85482, 2974, 100, 0, 70, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[19785, 609, 350, 10, 42, "Input",ExpressionUUID->"d7df5b89-52f9-41d1-8fdc-865c569f15ca"], +Cell[20138, 621, 291, 4, 33, "Output",ExpressionUUID->"0b58f313-4490-442a-bdfb-749cf4bd4a64"] }, Open ]], Cell[CellGroupData[{ -Cell[85619, 2979, 6029, 184, 70, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[91651, 3165, 102, 0, 70, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[20466, 630, 350, 10, 42, "Input",ExpressionUUID->"996607f2-2446-4911-a4b2-79c5c280ecbe"], +Cell[20819, 642, 306, 5, 33, "Output",ExpressionUUID->"6f56e76f-9205-44ef-bb01-856f5caefdc7"] }, Open ]], Cell[CellGroupData[{ -Cell[91790, 3170, 342, 8, 70, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[92135, 3180, 342, 6, 70, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], -Cell[92480, 3188, 99, 0, 70, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[21162, 652, 994, 26, 81, "Input",ExpressionUUID->"1515f9a9-2739-455e-b6c6-11b3dfe50dfe"], +Cell[22159, 680, 287, 4, 33, "Output",ExpressionUUID->"b382f267-688f-4a80-8721-e5c1d8d66b17"] }, Open ]], Cell[CellGroupData[{ -Cell[92616, 3193, 6096, 186, 70, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[98715, 3381, 102, 0, 70, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[22483, 689, 199, 3, 29, "Input",ExpressionUUID->"8463d842-d4ca-40b6-82dd-09af90f2ed53"], +Cell[22685, 694, 274, 4, 33, "Output",ExpressionUUID->"8138a659-1cd9-46e4-a576-136f7bf56014"] }, Open ]], Cell[CellGroupData[{ -Cell[98854, 3386, 342, 8, 70, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[99199, 3396, 342, 6, 70, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], -Cell[99544, 3404, 100, 0, 70, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[22996, 703, 325, 5, 29, "Input",ExpressionUUID->"de0c80c0-6eb0-44b1-be27-404c87950459"], +Cell[23324, 710, 249, 4, 33, "Output",ExpressionUUID->"cc0d74b9-c5a6-47b4-8b80-0b99b32506fa"] +}, Open ]], +Cell[23588, 717, 173, 2, 23, "Input",ExpressionUUID->"360154ff-c353-4a63-9c3c-846b5400b306"], +Cell[CellGroupData[{ +Cell[23786, 723, 327, 5, 29, "Input",ExpressionUUID->"703197d0-5698-435e-bc4b-73dde364eab6"], +Cell[24116, 730, 253, 4, 33, "Output",ExpressionUUID->"110236e4-15a9-4938-8baa-c089b47125e9"] +}, Open ]], +Cell[24384, 737, 173, 2, 23, "Input",ExpressionUUID->"6112a388-f1b2-4f76-bfce-ed96ed8ed606"], +Cell[CellGroupData[{ +Cell[24582, 743, 330, 5, 29, "Input",ExpressionUUID->"cc012d8f-563c-43a8-93f1-99648caaf029"], +Cell[24915, 750, 257, 4, 33, "Output",ExpressionUUID->"0545b841-9aa0-4137-ada0-d31ee43d132c"] +}, Open ]], +Cell[25187, 757, 173, 2, 23, "Input",ExpressionUUID->"b80727e5-5500-4e08-9765-5d5bb7811b0f"], +Cell[CellGroupData[{ +Cell[25385, 763, 351, 5, 29, "Input",ExpressionUUID->"fc590737-4ffd-47e9-b284-3f2326ed23ba"], +Cell[25739, 770, 257, 4, 33, "Output",ExpressionUUID->"66a3467a-577d-462c-9523-e58618e650c5"] +}, Open ]], +Cell[26011, 777, 171, 2, 23, "Input",ExpressionUUID->"cd596d48-5ccb-443c-a61e-adfebf7c670a"], +Cell[CellGroupData[{ +Cell[26207, 783, 301, 5, 29, "Input",ExpressionUUID->"203a69fb-d0eb-403c-aefd-0188903127f8"], +Cell[26511, 790, 251, 4, 33, "Output",ExpressionUUID->"9f9ff14e-ca4c-42f6-b100-35f2fd251d1c"] +}, Open ]], +Cell[26777, 797, 171, 2, 23, "Input",ExpressionUUID->"8605f44e-e66e-422a-80c0-4e9ce0644d2f"], +Cell[CellGroupData[{ +Cell[26973, 803, 303, 5, 29, "Input",ExpressionUUID->"e132fef1-d8a7-478b-8562-1e5a5312a4b4"], +Cell[27279, 810, 251, 4, 33, "Output",ExpressionUUID->"407d01fb-7aa0-40b1-bc29-4c29611f4807"] +}, Open ]], +Cell[27545, 817, 173, 2, 23, "Input",ExpressionUUID->"945f80e1-b3f9-47f4-bb85-39f6a87544b3"], +Cell[CellGroupData[{ +Cell[27743, 823, 307, 5, 29, "Input",ExpressionUUID->"6ce1860f-98c3-4b4d-9330-8fd38bed0c95"], +Cell[28053, 830, 254, 4, 33, "Output",ExpressionUUID->"cb2a1ce0-72ef-43ad-b53b-c09c5db62f49"] +}, Open ]], +Cell[28322, 837, 172, 2, 23, "Input",ExpressionUUID->"e9565537-7914-4c40-a82a-fba061b05c3d"], +Cell[CellGroupData[{ +Cell[28519, 843, 275, 4, 29, "Input",ExpressionUUID->"6decc633-7f94-495e-872b-02867568fd24"], +Cell[28797, 849, 253, 4, 33, "Output",ExpressionUUID->"2e4e94b4-2a14-4892-aa67-302fbdaa6a0b"] +}, Open ]], +Cell[29065, 856, 175, 2, 23, "Input",ExpressionUUID->"346a716b-c91a-4e25-8a7f-8120354304b0"], +Cell[CellGroupData[{ +Cell[29265, 862, 19809, 485, 1844, "Input",ExpressionUUID->"e18db7f6-ac5c-49f4-a360-d799460933c2"], +Cell[49077, 1349, 289, 4, 33, "Output",ExpressionUUID->"6f07b793-8d52-43a0-bdb5-0cb4fbd68dc7"] }, Open ]], Cell[CellGroupData[{ -Cell[99681, 3409, 2637, 87, 70, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[102321, 3498, 101, 0, 70, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[49403, 1358, 19748, 489, 1981, "Input",ExpressionUUID->"a87ad4fc-ff79-4203-95ce-4341b88db648"], +Cell[69154, 1849, 286, 4, 33, "Output",ExpressionUUID->"dbc68801-2d27-49e0-a249-0edaa1614b69"] }, Open ]], Cell[CellGroupData[{ -Cell[102459, 3503, 2577, 84, 70, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[105039, 3589, 102, 0, 70, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[69477, 1858, 19748, 483, 1970, "Input",ExpressionUUID->"04ffd541-ff8b-409e-bd15-cf00633e5c5f"], +Cell[89228, 2343, 300, 5, 33, "Output",ExpressionUUID->"7051809b-ed3e-438f-9e4d-b352c91aba9b"] }, Open ]], Cell[CellGroupData[{ -Cell[105178, 3594, 3686, 117, 70, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[108867, 3713, 102, 0, 70, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[89565, 2353, 22534, 553, 2217, "Input",ExpressionUUID->"d642d546-9951-49e3-9b65-bd4fad830996"], +Cell[112102, 2908, 304, 5, 33, "Output",ExpressionUUID->"c2d62d13-efe4-4576-9883-7333837392db"] }, Open ]], Cell[CellGroupData[{ -Cell[109006, 3718, 2052, 59, 70, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], -Cell[111061, 3779, 342, 6, 70, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], -Cell[111406, 3787, 342, 6, 70, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], -Cell[111751, 3795, 101, 0, 70, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[112443, 2918, 22535, 553, 2254, "Input",ExpressionUUID->"363bde5c-44c0-4a54-8b84-9799625b8284"], +Cell[134981, 3473, 307, 5, 33, "Output",ExpressionUUID->"f8bd8d8d-ee64-405a-b87a-1093d0902d75"] }, Open ]], Cell[CellGroupData[{ -Cell[111889, 3800, 2054, 59, 70, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], -Cell[113946, 3861, 342, 6, 70, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], -Cell[114291, 3869, 342, 6, 70, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], -Cell[114636, 3877, 100, 0, 70, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[135325, 3483, 25491, 626, 2501, "Input",ExpressionUUID->"4d691657-5f6b-44dc-bf9e-08097f52cc89"], +Cell[160819, 4111, 302, 5, 33, "Output",ExpressionUUID->"efcd1c6d-d5ba-4c72-abd8-f15534db996c"] }, Open ]], Cell[CellGroupData[{ -Cell[114773, 3882, 2030, 55, 70, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], -Cell[116806, 3939, 342, 6, 70, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], -Cell[117151, 3947, 342, 6, 70, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], -Cell[117496, 3955, 342, 6, 70, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], -Cell[117841, 3963, 407, 7, 70, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], -Cell[118251, 3972, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], -Cell[127686, 4412, 191, 5, 70, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +Cell[161158, 4121, 130, 2, 29, "Input",ExpressionUUID->"ec00c6c2-24c2-430c-84a6-0b0b92648550"], +Cell[161291, 4125, 272, 4, 33, "Output",ExpressionUUID->"15b373ae-67f1-4852-9906-d7093fc24857"] }, Open ]], Cell[CellGroupData[{ -Cell[127914, 4422, 2118, 60, 70, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], -Cell[130035, 4484, 342, 6, 70, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], -Cell[130380, 4492, 342, 6, 70, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], -Cell[130725, 4500, 342, 6, 70, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], -Cell[131070, 4508, 407, 7, 70, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], -Cell[131480, 4517, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], -Cell[140029, 4887, 191, 5, 70, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] -}, Open ]], -Cell[140235, 4895, 209, 5, 70, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], -Cell[CellGroupData[{ -Cell[140469, 4904, 1590, 47, 70, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], -Cell[142062, 4953, 342, 6, 70, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], -Cell[142407, 4961, 101, 0, 70, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[161600, 4134, 130, 2, 29, "Input",ExpressionUUID->"9d1e9312-2bf5-405e-a0ab-17790e379454"], +Cell[161733, 4138, 272, 4, 33, "Output",ExpressionUUID->"a6c309ba-ea99-43f9-b570-4530eb489804"] }, Open ]], Cell[CellGroupData[{ -Cell[142545, 4966, 2251, 64, 70, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], -Cell[144799, 5032, 342, 6, 70, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], -Cell[145144, 5040, 342, 6, 70, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], -Cell[145489, 5048, 101, 0, 70, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[162042, 4147, 1144, 39, 107, "Input",ExpressionUUID->"b10939a9-1573-489b-83d9-15f30565fd9f"], +Cell[163189, 4188, 285, 4, 33, "Output",ExpressionUUID->"246e285a-f838-44d6-a3a5-2eb0c94ee6bc"] }, Open ]], Cell[CellGroupData[{ -Cell[145627, 5053, 2220, 64, 70, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], -Cell[147850, 5119, 342, 6, 70, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], -Cell[148195, 5127, 342, 6, 70, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], -Cell[148540, 5135, 101, 0, 70, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[163511, 4197, 1041, 35, 107, "Input",ExpressionUUID->"5475637e-53f4-4704-965d-21c35c53b59d"], +Cell[164555, 4234, 301, 5, 33, "Output",ExpressionUUID->"ae8a14be-8beb-43b0-95bc-b96cbcea8a0d"] }, Open ]], Cell[CellGroupData[{ -Cell[148678, 5140, 2223, 64, 70, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], -Cell[150904, 5206, 342, 6, 70, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], -Cell[151249, 5214, 342, 6, 70, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], -Cell[151594, 5222, 101, 0, 70, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[164893, 4244, 1144, 39, 107, "Input",ExpressionUUID->"25994c2d-f9ad-4dc7-823e-77e6d8541dd6"], +Cell[166040, 4285, 292, 4, 33, "Output",ExpressionUUID->"bf6590d4-0b8b-4f9f-a7a1-cf3a692fa426"] }, Open ]], Cell[CellGroupData[{ -Cell[151732, 5227, 215, 6, 70, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[151950, 5235, 102, 0, 70, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] -}, Open ]], -Cell[152067, 5238, 247, 5, 70, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], -Cell[CellGroupData[{ -Cell[152339, 5247, 532, 18, 70, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[152874, 5267, 101, 0, 70, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[166369, 4294, 108, 1, 29, "Input",ExpressionUUID->"4d252865-1179-4f85-9591-c9a810b8f86b"], +Cell[166480, 4297, 291, 4, 33, "Output",ExpressionUUID->"3b4d3895-cb66-4986-9db4-0e37ab1fd7a9"] }, Open ]], Cell[CellGroupData[{ -Cell[153012, 5272, 144, 4, 70, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[153159, 5278, 101, 0, 70, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[166808, 4306, 108, 1, 29, "Input",ExpressionUUID->"430042fe-033e-475b-ba05-8207d0932b61"], +Cell[166919, 4309, 306, 5, 33, "Output",ExpressionUUID->"277c0929-16e7-450d-9c63-90f492349cfe"] }, Open ]], Cell[CellGroupData[{ -Cell[153297, 5283, 155, 4, 70, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[153455, 5289, 100, 0, 70, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[167262, 4319, 108, 1, 29, "Input",ExpressionUUID->"568a36af-0f69-4234-8a6a-01c1e128613e"], +Cell[167373, 4322, 309, 5, 33, "Output",ExpressionUUID->"78a1f16c-a75e-4c6c-bf3b-568725bde9a5"] }, Open ]], Cell[CellGroupData[{ -Cell[153592, 5294, 6029, 184, 70, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[159624, 5480, 102, 0, 70, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[167719, 4332, 108, 1, 29, "Input",ExpressionUUID->"f5d289b3-78a1-4bd9-a305-1cce5d3d20c5"], +Cell[167830, 4335, 288, 4, 33, "Output",ExpressionUUID->"c1de942c-2632-4d64-83ef-65977e76a7aa"] }, Open ]], Cell[CellGroupData[{ -Cell[159763, 5485, 342, 8, 70, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[160108, 5495, 342, 6, 70, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], -Cell[160453, 5503, 100, 0, 70, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[168155, 4344, 107, 1, 29, "Input",ExpressionUUID->"0b5bcc88-7423-4eed-8db8-34209a93041c"], +Cell[168265, 4347, 290, 4, 33, "Output",ExpressionUUID->"1f4dd7c5-f878-4a8b-b4f6-0aa1063a9689"] }, Open ]], Cell[CellGroupData[{ -Cell[160590, 5508, 6096, 186, 70, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[166689, 5696, 102, 0, 70, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[168592, 4356, 107, 1, 29, "Input",ExpressionUUID->"79a62cc2-d651-4b22-8c77-185add981589"], +Cell[168702, 4359, 291, 4, 33, "Output",ExpressionUUID->"f88a0cbd-4136-47a8-97b2-67391f505be4"] }, Open ]], Cell[CellGroupData[{ -Cell[166828, 5701, 342, 8, 70, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[167173, 5711, 342, 6, 70, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], -Cell[167518, 5719, 99, 0, 70, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[169030, 4368, 497, 16, 55, "Input",ExpressionUUID->"eb19dd57-3778-48d7-a485-68eafebaad2a"], +Cell[169530, 4386, 308, 5, 33, "Output",ExpressionUUID->"ceed2fac-538c-415f-86f9-2f29fdeb6db3"] }, Open ]], Cell[CellGroupData[{ -Cell[167654, 5724, 2637, 87, 70, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[170294, 5813, 101, 0, 70, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[169875, 4396, 497, 16, 55, "Input",ExpressionUUID->"020fd507-fcc8-4d3e-b594-564bda4472ef"], +Cell[170375, 4414, 312, 5, 33, "Output",ExpressionUUID->"a532c9b6-4708-418d-b7c1-0d36bf6a3a92"] }, Open ]], Cell[CellGroupData[{ -Cell[170432, 5818, 2577, 84, 70, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[173012, 5904, 102, 0, 70, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[170724, 4424, 1788, 60, 183, "Input",ExpressionUUID->"bc5ff6a5-eaec-4bc3-9c96-6a292bed6277"], +Cell[172515, 4486, 289, 4, 33, "Output",ExpressionUUID->"077afad2-67b8-441f-8cc6-5058df52eb51"] }, Open ]], Cell[CellGroupData[{ -Cell[173151, 5909, 3686, 117, 70, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[176840, 6028, 102, 0, 70, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[172841, 4495, 1101, 36, 131, "Input",ExpressionUUID->"d1b09db9-bcc2-4a81-8989-8b0f463dd1c8"], +Cell[173945, 4533, 305, 5, 33, "Output",ExpressionUUID->"941fd80e-511f-4938-8870-c6eff3e40b7d"] }, Open ]], Cell[CellGroupData[{ -Cell[176979, 6033, 2054, 59, 70, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], -Cell[179036, 6094, 342, 6, 70, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], -Cell[179381, 6102, 342, 6, 70, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], -Cell[179726, 6110, 100, 0, 70, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[174287, 4543, 1818, 61, 160, "Input",ExpressionUUID->"353417e1-66c0-4e43-b76d-27ea20de6580"], +Cell[176108, 4606, 287, 4, 33, "Output",ExpressionUUID->"49257e74-f120-4829-8b2c-b1b0c97357e1"] }, Open ]], Cell[CellGroupData[{ -Cell[179863, 6115, 2054, 59, 70, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], -Cell[181920, 6176, 342, 6, 70, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], -Cell[182265, 6184, 342, 6, 70, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], -Cell[182610, 6192, 100, 0, 70, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[176432, 4615, 1631, 53, 162, "Input",ExpressionUUID->"c7ef8f85-cc0f-4669-9c7c-3bf6a947fa14"], +Cell[178066, 4670, 285, 4, 33, "Output",ExpressionUUID->"a3fa4ff1-abd4-44eb-8979-71800cedbb73"] }, Open ]], Cell[CellGroupData[{ -Cell[182747, 6197, 2030, 55, 70, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], -Cell[184780, 6254, 342, 6, 70, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], -Cell[185125, 6262, 342, 6, 70, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], -Cell[185470, 6270, 342, 6, 70, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], -Cell[185815, 6278, 407, 7, 70, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], -Cell[186225, 6287, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], -Cell[195660, 6727, 191, 5, 70, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +Cell[178388, 4679, 1631, 53, 162, "Input",ExpressionUUID->"07a8cf72-c3aa-49d4-95d3-0a98a0346202"], +Cell[180022, 4734, 290, 4, 33, "Output",ExpressionUUID->"98263a5a-ff6b-4bd9-b4d8-4c7e8cc8a351"] }, Open ]], Cell[CellGroupData[{ -Cell[195888, 6737, 2143, 61, 70, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], -Cell[198034, 6800, 342, 6, 70, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], -Cell[198379, 6808, 342, 6, 70, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], -Cell[198724, 6816, 342, 6, 70, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], -Cell[199069, 6824, 407, 7, 70, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], -Cell[199479, 6833, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], -Cell[208028, 7203, 191, 5, 70, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +Cell[180349, 4743, 228, 4, 29, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[180580, 4749, 156, 2, 33, "Output",ExpressionUUID->"f02d8019-4bcb-4485-8a0b-b97197906ded"] }, Open ]], -Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[180751, 4754, 171, 2, 29, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], Cell[CellGroupData[{ -Cell[208397, 7218, 1590, 47, 70, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], -Cell[209990, 7267, 342, 6, 70, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], -Cell[210335, 7275, 101, 0, 70, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[180947, 4760, 226, 4, 29, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[181176, 4766, 156, 2, 33, "Output",ExpressionUUID->"1d87f0e6-d5fd-4c7b-a829-9bff29b465e6"] +}, Open ]], +Cell[181347, 4771, 173, 2, 29, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[181545, 4777, 1297, 42, 111, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[182845, 4821, 174, 2, 33, "Output",ExpressionUUID->"7311e592-7f7c-4c8b-953f-d0602f1ff582"] }, Open ]], Cell[CellGroupData[{ -Cell[210473, 7280, 2249, 64, 70, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], -Cell[212725, 7346, 342, 6, 70, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], -Cell[213070, 7354, 342, 6, 70, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], -Cell[213415, 7362, 100, 0, 70, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[183056, 4828, 929, 30, 96, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[183988, 4860, 174, 2, 33, "Output",ExpressionUUID->"6764c3cd-4aa3-4644-881c-287f20435176"] }, Open ]], Cell[CellGroupData[{ -Cell[213552, 7367, 2219, 64, 70, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], -Cell[215774, 7433, 342, 6, 70, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], -Cell[216119, 7441, 342, 6, 70, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], -Cell[216464, 7449, 99, 0, 70, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[184199, 4867, 904, 29, 55, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[185106, 4898, 173, 2, 33, "Output",ExpressionUUID->"48f67153-de5c-463c-8fe7-02288fa1e902"] }, Open ]], Cell[CellGroupData[{ -Cell[216600, 7454, 2221, 64, 70, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], -Cell[218824, 7520, 342, 6, 70, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], -Cell[219169, 7528, 342, 6, 70, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], -Cell[219514, 7536, 101, 0, 70, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[185316, 4905, 554, 18, 51, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[185873, 4925, 169, 2, 33, "Output",ExpressionUUID->"df3b59fe-1e9e-4ce7-ba96-7bcaf167d94b"] }, Open ]], Cell[CellGroupData[{ -Cell[219652, 7541, 215, 6, 70, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[219870, 7549, 102, 0, 70, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] -}, Open ]] +Cell[186079, 4932, 647, 21, 51, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[186729, 4955, 167, 2, 33, "Output",ExpressionUUID->"2940f7d1-a8aa-488c-885e-20ee13e9e412"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186933, 4962, 166, 4, 55, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[187102, 4968, 167, 2, 33, "Output",ExpressionUUID->"99e1de63-c8f9-4a6a-bb7e-6813d811e06b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187306, 4975, 166, 4, 54, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[187475, 4981, 166, 2, 33, "Output",ExpressionUUID->"c31d1cc3-5697-45ee-a547-23587011d42b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187678, 4988, 177, 4, 43, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[187858, 4994, 168, 2, 33, "Output",ExpressionUUID->"cae37317-103a-41af-8f34-16207a84364a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188063, 5001, 177, 4, 43, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[188243, 5007, 167, 2, 33, "Output",ExpressionUUID->"862134b8-73b3-4989-afdd-d3ab05c7ce46"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188447, 5014, 6051, 184, 474, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[194501, 5200, 169, 2, 33, "Output",ExpressionUUID->"b6d94c87-ac49-42ca-b90d-6c16141af07e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194707, 5207, 364, 8, 41, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[195074, 5217, 167, 2, 33, "Output",ExpressionUUID->"75e474e3-b4ca-4f3d-908e-da980c67182d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195278, 5224, 6118, 186, 474, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[201399, 5412, 168, 2, 33, "Output",ExpressionUUID->"3dc70ec2-215a-4f21-939b-dabac336d15c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201604, 5419, 364, 8, 41, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[201971, 5429, 168, 2, 33, "Output",ExpressionUUID->"a872354d-2c93-48b7-8da8-54036547c48d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202176, 5436, 2659, 87, 285, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[204838, 5525, 168, 2, 33, "Output",ExpressionUUID->"512265f3-91f1-4346-901c-b538a49923df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205043, 5532, 2599, 84, 211, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[207645, 5618, 167, 2, 33, "Output",ExpressionUUID->"fe3ce672-ccb4-4bf7-9a9c-7f24a2caff11"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207849, 5625, 3708, 117, 327, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[211560, 5744, 168, 2, 33, "Output",ExpressionUUID->"8516c38d-9fea-4681-baec-1c523c7e805b"] +}, Open ]], +Cell[211743, 5749, 160, 3, 29, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[211928, 5756, 2073, 58, 234, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[214004, 5816, 568, 13, 80, "Message",ExpressionUUID->"45f38d5c-4d57-4aba-b720-c5e2b1485385"], +Cell[214575, 5831, 570, 13, 80, "Message",ExpressionUUID->"201de3be-c832-4328-9901-6a6259b41906"], +Cell[215148, 5846, 574, 13, 80, "Message",ExpressionUUID->"66dc004c-38c3-4c12-88d7-4418be153dfe"], +Cell[215725, 5861, 471, 11, 26, "Message",ExpressionUUID->"59f31497-11a2-4935-be41-eb7e8b849e9a"], +Cell[216199, 5874, 167, 2, 33, "Output",ExpressionUUID->"1427cc28-bd38-4c1b-b1d8-a68b90bf39e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216403, 5881, 2070, 58, 234, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[218476, 5941, 566, 13, 80, "Message",ExpressionUUID->"da78e6d2-bb22-4ef0-90a3-2bc1c930a648"], +Cell[219045, 5956, 570, 13, 80, "Message",ExpressionUUID->"23d5f58e-76d2-4405-b0fe-772b6dddbb1e"], +Cell[219618, 5971, 576, 13, 80, "Message",ExpressionUUID->"15ded9d7-6f22-469e-b651-a8b95aae31fc"], +Cell[220197, 5986, 469, 11, 26, "Message",ExpressionUUID->"6d7530eb-c8ef-4bcd-a163-2a3d14129fc1"], +Cell[220669, 5999, 166, 2, 33, "Output",ExpressionUUID->"8290afbc-00be-494c-8cdf-d525665d4d75"] +}, Open ]], +Cell[CellGroupData[{ +Cell[220872, 6006, 1957, 52, 102, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[222832, 6060, 20478, 385, 236, "Output",ExpressionUUID->"012431b6-3428-4b2c-a75f-2205b2f51992"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243347, 6450, 2113, 59, 261, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[245463, 6511, 510, 12, 59, "Message",ExpressionUUID->"f73048da-3b0d-496b-b22d-7945b156e033"], +Cell[245976, 6525, 513, 12, 59, "Message",ExpressionUUID->"8b62c887-f195-4c6d-9f64-39e1119aa7ff"], +Cell[246492, 6539, 517, 12, 59, "Message",ExpressionUUID->"64faf003-6650-419e-ad57-d229ca86a888"], +Cell[247012, 6553, 470, 11, 26, "Message",ExpressionUUID->"26c82e76-4bc0-4955-bd8c-8bbdbe1fe424"], +Cell[247485, 6566, 21957, 407, 233, "Output",ExpressionUUID->"aca72657-7f04-4f66-83b4-1fa337e7bcf5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[269479, 6978, 2475, 69, 169, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[271957, 7049, 9504, 222, 239, "Output",ExpressionUUID->"cab774b9-8be6-4400-9338-f36e2586fd59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281498, 7276, 228, 4, 29, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[281729, 7282, 28353, 539, 233, "Output",ExpressionUUID->"bf8340cf-ac2d-41c9-ac91-a40ad1d0235d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310119, 7826, 234, 6, 47, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[310356, 7834, 169, 2, 33, "Output",ExpressionUUID->"6eb6f898-b774-49df-975b-b234cf3515e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310562, 7841, 1833, 52, 190, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[312398, 7895, 525, 12, 59, "Message",ExpressionUUID->"7b46f320-1062-49fd-8130-a5af748991a1"], +Cell[312926, 7909, 528, 12, 59, "Message",ExpressionUUID->"ccaacaae-864c-4e6e-bcf8-0cc8306fab3a"], +Cell[313457, 7923, 529, 12, 59, "Message",ExpressionUUID->"792f9c3f-21df-463b-9bbe-8ad64347163d"], +Cell[313989, 7937, 472, 11, 26, "Message",ExpressionUUID->"4a8cc64d-1e92-4633-8da4-1d22138e0b03"], +Cell[314464, 7950, 22528, 416, 236, "Output",ExpressionUUID->"d4dc642c-b9dd-497f-b9f6-0d4bf33c770e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337029, 8371, 1616, 48, 104, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[338648, 8421, 703, 15, 80, "Message",ExpressionUUID->"44b121d2-130a-4125-8aba-b342abbf1bb2"], +Cell[339354, 8438, 704, 15, 80, "Message",ExpressionUUID->"445946c0-4427-457a-9f5e-e1c92ccc3e14"], +Cell[340061, 8455, 705, 15, 80, "Message",ExpressionUUID->"11baefb1-b3df-4b50-9853-f03aed656b72"], +Cell[340769, 8472, 474, 11, 26, "Message",ExpressionUUID->"60ac8508-3c1b-47ca-bed5-4736eab3f81b"], +Cell[341246, 8485, 173, 3, 33, "Output",ExpressionUUID->"98cb79c4-04fb-402a-9df3-34520645e677"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341456, 8493, 2270, 64, 212, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[343729, 8559, 569, 13, 80, "Message",ExpressionUUID->"8b4db3d1-d373-43b1-af4c-8f8b2fcbdf43"], +Cell[344301, 8574, 573, 13, 80, "Message",ExpressionUUID->"05d2bf39-88ac-42b6-9332-7e680d00b3a6"], +Cell[344877, 8589, 577, 13, 80, "Message",ExpressionUUID->"8117bca0-a8d2-4f80-b06a-304ce20be7cf"], +Cell[345457, 8604, 474, 11, 26, "Message",ExpressionUUID->"5a47600e-0cae-4c37-bcd2-a814a665f31f"], +Cell[345934, 8617, 171, 3, 33, "Output",ExpressionUUID->"28dcb2c8-e039-408e-b5d7-a8d3a6bebd51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346142, 8625, 2231, 63, 212, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[348376, 8690, 569, 13, 80, "Message",ExpressionUUID->"93615b1a-0170-41f0-b147-8828a36ec327"], +Cell[348948, 8705, 573, 13, 80, "Message",ExpressionUUID->"9b5ee290-119b-4c5a-9677-21fceaf6fbf0"], +Cell[349524, 8720, 577, 13, 80, "Message",ExpressionUUID->"b27f5c56-92b1-4aca-b938-cd16d4285dd5"], +Cell[350104, 8735, 472, 11, 26, "Message",ExpressionUUID->"d86f4cdb-5212-4a10-bc31-48308dd7d214"], +Cell[350579, 8748, 169, 3, 33, "Output",ExpressionUUID->"aa418541-4c85-48ef-8131-033ff068f36e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350785, 8756, 2233, 63, 212, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[353021, 8821, 569, 13, 80, "Message",ExpressionUUID->"a5a0c2a3-20a9-4b44-ac8f-c91a719db24d"], +Cell[353593, 8836, 575, 13, 80, "Message",ExpressionUUID->"d6393a1a-d639-40c4-8e50-576774ac63c3"], +Cell[354171, 8851, 577, 13, 80, "Message",ExpressionUUID->"b97b886f-ab6d-4bea-a0e6-728b58310e12"], +Cell[354751, 8866, 474, 11, 26, "Message",ExpressionUUID->"189c4b0c-6f2d-4768-bfce-3187cd1a4009"], +Cell[355228, 8879, 170, 3, 33, "Output",ExpressionUUID->"0d7c968d-01e8-41ab-91a1-33bcffd62580"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355435, 8887, 238, 6, 46, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[355676, 8895, 173, 3, 33, "Output",ExpressionUUID->"80fdb8c6-8be3-43c1-9ef1-9ec9c978fc52"] +}, Open ]], +Cell[355864, 8901, 273, 6, 29, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[356162, 8911, 558, 19, 51, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[356723, 8932, 170, 3, 33, "Output",ExpressionUUID->"27ffeef8-1dcb-4af8-80a3-36b5fb034261"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356930, 8940, 170, 5, 55, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[357103, 8947, 173, 3, 33, "Output",ExpressionUUID->"4cdfdaa2-8b0f-4e73-bd8b-fd2b1c44340c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357313, 8955, 181, 5, 43, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[357497, 8962, 171, 3, 33, "Output",ExpressionUUID->"b2c2ddab-2868-4ac3-9a0a-0d472ad751bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357705, 8970, 6055, 185, 474, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[363763, 9157, 173, 3, 33, "Output",ExpressionUUID->"6d31e466-d156-492c-a422-3e1bf3b713ca"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363973, 9165, 368, 9, 41, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[364344, 9176, 172, 3, 33, "Output",ExpressionUUID->"dd9db219-9f6d-4c25-9b69-0cde7b1db307"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364553, 9184, 6122, 187, 474, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[370678, 9373, 174, 3, 33, "Output",ExpressionUUID->"9aa632b1-d8c9-4985-9bb3-c45bc97b56f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370889, 9381, 368, 9, 41, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[371260, 9392, 171, 3, 33, "Output",ExpressionUUID->"5761358f-15a9-4476-baae-5e3829d2830a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371468, 9400, 2663, 88, 285, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[374134, 9490, 172, 3, 33, "Output",ExpressionUUID->"73fac6f2-45d9-4c46-b365-eb784e6cc3fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374343, 9498, 2603, 85, 211, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[376949, 9585, 173, 3, 33, "Output",ExpressionUUID->"b31a480d-0ecc-4edd-8a98-3ae744e3d0f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377159, 9593, 3712, 118, 327, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[380874, 9713, 172, 3, 33, "Output",ExpressionUUID->"e985a6cd-b0d2-4e0d-ab6d-78e0128cb377"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381083, 9721, 2075, 59, 234, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[383161, 9782, 564, 13, 63, "Message",ExpressionUUID->"b3a2d9d4-7433-490c-ac7d-ec001945548d"], +Cell[383728, 9797, 565, 13, 80, "Message",ExpressionUUID->"9a842ea1-711a-43be-bc6a-98272463b224"], +Cell[384296, 9812, 572, 13, 80, "Message",ExpressionUUID->"114a46fe-cb91-4cad-8c58-77a4a04ae5c3"], +Cell[384871, 9827, 471, 11, 26, "Message",ExpressionUUID->"c00fc1d9-fd35-447d-a8b8-176a363a8bd0"], +Cell[385345, 9840, 170, 3, 33, "Output",ExpressionUUID->"dc44b9b1-a8a0-402f-ba4c-9074d6b1bad8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385552, 9848, 2077, 59, 234, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[387632, 9909, 566, 13, 63, "Message",ExpressionUUID->"4e2de41f-6f5d-4e9b-9652-87af42cabcbd"], +Cell[388201, 9924, 568, 13, 80, "Message",ExpressionUUID->"fab4999a-97fd-4a5e-bae1-617ad63dac70"], +Cell[388772, 9939, 572, 13, 80, "Message",ExpressionUUID->"1ef58295-d8af-4368-9cde-51ae0736c3ae"], +Cell[389347, 9954, 474, 11, 26, "Message",ExpressionUUID->"ac26a6f5-0ca2-4cfc-80b0-f2bc414a89bd"], +Cell[389824, 9967, 173, 3, 33, "Output",ExpressionUUID->"58065c12-7b3c-4de3-a95c-b289392864c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390034, 9975, 2053, 55, 151, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[392090, 10032, 20410, 386, 232, "Output",ExpressionUUID->"673e8d15-6399-4d87-9b74-8c1276238e87"] +}, Open ]], +Cell[CellGroupData[{ +Cell[412537, 10423, 2141, 60, 261, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[414681, 10485, 512, 12, 59, "Message",ExpressionUUID->"1c54090d-16cc-4bfa-a7c3-7dbde59adea7"], +Cell[415196, 10499, 514, 12, 59, "Message",ExpressionUUID->"86954488-a3a3-405d-9e54-04d2c7b3dc38"], +Cell[415713, 10513, 517, 12, 59, "Message",ExpressionUUID->"f97ac837-8b00-4a2b-bfe4-c89c602fc724"], +Cell[416233, 10527, 472, 11, 26, "Message",ExpressionUUID->"723fc1e7-4c07-4997-88ed-35d063c4f314"], +Cell[416708, 10540, 22556, 417, 232, "Output",ExpressionUUID->"55e120b0-983c-47ee-b24f-ad19f18bd0d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439301, 10962, 232, 5, 29, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[439536, 10969, 28952, 549, 232, "Output",ExpressionUUID->"0bdc4ecd-1348-4314-88df-96cdabb77a2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[468525, 11523, 1616, 48, 104, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[470144, 11573, 704, 15, 80, "Message",ExpressionUUID->"e44e3d86-485e-4dd9-8b07-3a5c0927bc4f"], +Cell[470851, 11590, 707, 15, 80, "Message",ExpressionUUID->"395f0a54-c734-45df-aa92-c93b0b6026f5"], +Cell[471561, 11607, 704, 15, 80, "Message",ExpressionUUID->"8721a6bf-a1aa-4ce1-b0c6-565d44efe8ef"], +Cell[472268, 11624, 472, 11, 26, "Message",ExpressionUUID->"066fb51d-9582-436f-908f-97b7a8223074"], +Cell[472743, 11637, 173, 3, 33, "Output",ExpressionUUID->"442af2dd-d706-4607-8383-c8ccc786d4bf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472953, 11645, 2274, 64, 212, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[475230, 11711, 564, 13, 63, "Message",ExpressionUUID->"2016fa2f-67dd-495a-af72-792f1f0045c2"], +Cell[475797, 11726, 566, 13, 80, "Message",ExpressionUUID->"b23d90d8-2571-4b78-b9c1-38d842b933d9"], +Cell[476366, 11741, 570, 13, 80, "Message",ExpressionUUID->"0971caaf-87df-4a03-9525-32900b9b9a9c"], +Cell[476939, 11756, 472, 11, 26, "Message",ExpressionUUID->"ea43a33c-5cf2-4f5c-be22-b5548d348142"], +Cell[477414, 11769, 172, 3, 33, "Output",ExpressionUUID->"06d9c0f5-6b3c-4ad2-9a6c-52e87ea58e58"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477623, 11777, 2232, 63, 212, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[479858, 11842, 564, 13, 63, "Message",ExpressionUUID->"0fd07766-030f-433c-85bc-35ab39a231a2"], +Cell[480425, 11857, 566, 13, 80, "Message",ExpressionUUID->"f8d62b6f-5b6b-477b-b5c3-dcfbafa8f8e5"], +Cell[480994, 11872, 572, 13, 80, "Message",ExpressionUUID->"e39cf6f6-0b7f-4c3c-8173-d9badf6aa488"], +Cell[481569, 11887, 472, 11, 26, "Message",ExpressionUUID->"77e688b0-4428-419b-89a9-971787fcf929"], +Cell[482044, 11900, 171, 3, 33, "Output",ExpressionUUID->"0135cf0b-3228-4949-904d-7e692518ad6a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482252, 11908, 2235, 63, 212, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[484490, 11973, 564, 13, 63, "Message",ExpressionUUID->"9bd47cf8-1bb2-4cf7-8841-73b1a0315868"], +Cell[485057, 11988, 566, 13, 80, "Message",ExpressionUUID->"318ee51d-6314-438f-adae-662da2228457"], +Cell[485626, 12003, 570, 13, 80, "Message",ExpressionUUID->"206aaf94-c206-4e35-bf57-8b3849d17716"], +Cell[486199, 12018, 472, 11, 26, "Message",ExpressionUUID->"292da620-db4c-4d8f-b724-74a40ae3bc78"], +Cell[486674, 12031, 173, 3, 33, "Output",ExpressionUUID->"ac05de7b-edac-4b08-8e50-92726c8c4193"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486884, 12039, 238, 6, 46, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[487125, 12047, 173, 3, 33, "Output",ExpressionUUID->"f966d0b4-fe90-4e30-af0a-4305c925fb38"] +}, Open ]], +Cell[487313, 12053, 273, 6, 29, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[487611, 12063, 558, 19, 51, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[488172, 12084, 171, 3, 33, "Output",ExpressionUUID->"4e6b144d-19f5-4f85-951a-4f5c3316da16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488380, 12092, 170, 5, 55, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[488553, 12099, 171, 3, 33, "Output",ExpressionUUID->"cd3670e2-f99b-4b93-99c9-296268237bd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488761, 12107, 181, 5, 43, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[488945, 12114, 171, 3, 33, "Output",ExpressionUUID->"0949420b-0b52-4dc7-8a41-73b001d7ab9e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489153, 12122, 6055, 185, 474, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[495211, 12309, 173, 3, 33, "Output",ExpressionUUID->"919f0b5a-de2e-4f2a-a4f3-2353be993fc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495421, 12317, 368, 9, 41, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[495792, 12328, 171, 3, 33, "Output",ExpressionUUID->"273b9123-366d-4410-8b40-d17978d95c8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496000, 12336, 6122, 187, 474, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[502125, 12525, 172, 3, 33, "Output",ExpressionUUID->"5c7ab9fd-c758-4f59-8891-a12caf41eeae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502334, 12533, 368, 9, 41, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[502705, 12544, 170, 3, 33, "Output",ExpressionUUID->"cd414798-c23e-4c22-a530-6d1741123ceb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502912, 12552, 2663, 88, 285, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[505578, 12642, 172, 3, 33, "Output",ExpressionUUID->"b96e650a-b125-488e-a9dd-cb392d75bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[505787, 12650, 2603, 85, 211, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[508393, 12737, 173, 3, 33, "Output",ExpressionUUID->"4a9be0c2-bea0-423b-b511-f123b819bc09"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508603, 12745, 3712, 118, 327, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[512318, 12865, 172, 3, 33, "Output",ExpressionUUID->"3d6d1f87-c824-415d-bb16-2289150c35e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512527, 12873, 2077, 59, 234, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[514607, 12934, 573, 13, 80, "Message",ExpressionUUID->"9d6d8cd5-b183-4149-8cb1-1281de97aa77"], +Cell[515183, 12949, 579, 13, 80, "Message",ExpressionUUID->"5fd1256f-066f-4495-b919-9b0f848aa154"], +Cell[515765, 12964, 579, 13, 80, "Message",ExpressionUUID->"f77f4207-ec98-43bf-9465-47564fe623d5"], +Cell[516347, 12979, 472, 11, 26, "Message",ExpressionUUID->"c9d6f33e-3747-4e3b-a6a9-b2d3a5606398"], +Cell[516822, 12992, 171, 3, 33, "Output",ExpressionUUID->"5352d4a6-ff67-4e3e-bee1-747d84047801"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517030, 13000, 2077, 59, 234, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[519110, 13061, 575, 13, 80, "Message",ExpressionUUID->"7a4ab005-70c0-4517-af67-d07f44f81c08"], +Cell[519688, 13076, 579, 13, 80, "Message",ExpressionUUID->"1a32a79a-bacb-4256-9d66-a9e5852eb4ec"], +Cell[520270, 13091, 581, 13, 80, "Message",ExpressionUUID->"d05774f2-230c-4945-b1e9-b5057849953b"], +Cell[520854, 13106, 474, 11, 26, "Message",ExpressionUUID->"715a8dfa-1a1b-4f6f-a82c-0d4600a6fd20"], +Cell[521331, 13119, 169, 3, 33, "Output",ExpressionUUID->"25a721a2-8604-4f86-9e4a-ee3d3b3c8d65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[521537, 13127, 2053, 55, 151, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[523593, 13184, 20301, 383, 236, "Output",ExpressionUUID->"a6c1ed0e-9e02-4c06-a62a-c5be879fdc85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[543931, 13572, 2165, 61, 261, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[546099, 13635, 516, 12, 59, "Message",ExpressionUUID->"c59a8cd4-e3fe-40e6-8274-af7b0dc3d186"], +Cell[546618, 13649, 517, 12, 59, "Message",ExpressionUUID->"fa646510-7dab-4da6-8b65-64ea84a9f7a4"], +Cell[547138, 13663, 519, 12, 59, "Message",ExpressionUUID->"b36dc2d4-97ee-44cc-ab21-a335b2dfe1f0"], +Cell[547660, 13677, 472, 11, 26, "Message",ExpressionUUID->"5db6adf7-c426-4284-9fb6-17537f5621b1"], +Cell[548135, 13690, 22472, 417, 235, "Output",ExpressionUUID->"6a95653e-102d-485b-9c5e-ff43fc64dd1b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[570644, 14112, 164, 4, 29, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[570811, 14118, 28868, 549, 235, "Output",ExpressionUUID->"05551583-1a19-4396-834b-d16500346ae1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[599716, 14672, 1616, 48, 104, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[601335, 14722, 704, 15, 80, "Message",ExpressionUUID->"f3b5b898-d68f-4fc6-803d-5cd3293a603e"], +Cell[602042, 14739, 704, 15, 80, "Message",ExpressionUUID->"5f40591f-267f-43a4-b68e-478c5f4264d0"], +Cell[602749, 14756, 704, 15, 80, "Message",ExpressionUUID->"a8c73e32-ab5a-4d84-b6f2-558a89c7f40a"], +Cell[603456, 14773, 470, 11, 26, "Message",ExpressionUUID->"d61876ec-7b73-4f0c-b521-5bbda00e8f69"], +Cell[603929, 14786, 173, 3, 33, "Output",ExpressionUUID->"6b5dcf48-847c-4ad9-9452-25af01048f74"] +}, Open ]], +Cell[CellGroupData[{ +Cell[604139, 14794, 2272, 64, 212, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[606414, 14860, 575, 13, 80, "Message",ExpressionUUID->"62d18230-0a24-4146-9c62-38d4b6cd23ba"], +Cell[606992, 14875, 577, 13, 80, "Message",ExpressionUUID->"f40ce202-fa7a-4f64-ad08-ed69a515fa22"], +Cell[607572, 14890, 581, 13, 80, "Message",ExpressionUUID->"89f41552-4910-4cbc-8054-54d5cff27232"], +Cell[608156, 14905, 471, 11, 26, "Message",ExpressionUUID->"c881cca3-3667-4dbe-b602-a290f272b936"], +Cell[608630, 14918, 171, 3, 33, "Output",ExpressionUUID->"85936964-227b-4f56-95cb-65ad377f9fff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[608838, 14926, 2231, 63, 212, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[611072, 14991, 573, 13, 80, "Message",ExpressionUUID->"b2a3c19c-61b6-499a-96bc-c313a45117ad"], +Cell[611648, 15006, 577, 13, 80, "Message",ExpressionUUID->"94b37ea1-4f61-4a29-9f22-03cea33551ce"], +Cell[612228, 15021, 579, 13, 80, "Message",ExpressionUUID->"a14b46bb-1aa9-4c1d-8a45-a4f74da916e8"], +Cell[612810, 15036, 474, 11, 26, "Message",ExpressionUUID->"270c4415-7c5c-456e-8b14-9ec88521eff8"], +Cell[613287, 15049, 170, 3, 33, "Output",ExpressionUUID->"d0698767-a391-4838-a19b-b10055857a28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[613494, 15057, 2233, 63, 212, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[615730, 15122, 573, 13, 80, "Message",ExpressionUUID->"0445b31f-7a89-4951-b1ad-b16533df024d"], +Cell[616306, 15137, 577, 13, 80, "Message",ExpressionUUID->"f9497cb9-da20-4b26-b92e-51369791fc35"], +Cell[616886, 15152, 579, 13, 80, "Message",ExpressionUUID->"b17c215b-3d26-48a5-815b-eaef01ecd046"], +Cell[617468, 15167, 472, 11, 26, "Message",ExpressionUUID->"c2e0c20d-9278-4fd9-8236-3d562d6f3ce4"], +Cell[617943, 15180, 170, 3, 33, "Output",ExpressionUUID->"43d5209d-7277-44d3-913d-dcebf36afd2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[618150, 15188, 238, 6, 46, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[618391, 15196, 172, 3, 33, "Output",ExpressionUUID->"9811db93-b523-4b77-9ffa-041b6f13de7b"] +}, Open ]], +Cell[618578, 15202, 143, 3, 29, "Input",ExpressionUUID->"8b95b675-a237-4dda-85a8-e2731f65da91"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw1.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw1.nb index 69ef401..6420fd0 100644 --- a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 574608, 14397] -NotebookOptionsPosition[ 532621, 13726] -NotebookOutlinePosition[ 533062, 13744] -CellTagsIndexPosition[ 533019, 13741] +NotebookDataLength[ 683299, 16446] +NotebookOptionsPosition[ 640621, 15761] +NotebookOutlinePosition[ 641082, 15780] +CellTagsIndexPosition[ 641039, 15777] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -25,31 +25,30 @@ Cell[BoxData[ CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, 3.9920650045886707`*^9, {3.9938052191744213`*^9, 3.9938052504311247`*^9}}, - CellLabel-> - "In[309]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], + CellLabel->"In[1]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], Cell[BoxData["2.1`"], "Output", CellChangeTimes->{ 3.991320420900818*^9, 3.99380518475546*^9, {3.993805224475608*^9, - 3.993805252954657*^9}}, - CellLabel-> - "Out[309]=",ExpressionUUID->"4804ac40-29dd-4ae9-9099-00a72a663e87"] + 3.993805252954657*^9}, 3.993916351512208*^9, 3.993917198541183*^9, + 3.993933165311664*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"8ace6df8-99f7-477c-809a-5c62b763f3b3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"A", "=", "236"}]], "Input", - CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}}, - CellLabel-> - "In[310]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993916321914616*^9, 3.993916322483457*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[BoxData["236"], "Output", +Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.993805185043068*^9, {3.993805224572557*^9, - 3.993805252993279*^9}}, - CellLabel-> - "Out[310]=",ExpressionUUID->"c668764a-1cf9-45af-8fc6-eac8143087e5"] + 3.993805252993279*^9}, 3.993916351869231*^9, 3.993917198600004*^9, + 3.9939331656066723`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"f94410f4-098e-40fa-8b8f-83070d00e5df"] }, Open ]], Cell[CellGroupData[{ @@ -58,15 +57,14 @@ Cell[BoxData[ RowBox[{"A1", "=", "158"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.9938049166426687`*^9, 3.993804917651101*^9}}, - CellLabel-> - "In[311]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + CellLabel->"In[3]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], Cell[BoxData["158"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.993805185062161*^9, {3.993805224576009*^9, - 3.993805253007394*^9}}, - CellLabel-> - "Out[311]=",ExpressionUUID->"ae267b8a-443c-4613-b80d-714cd3592b49"] + 3.993805253007394*^9}, 3.993916351892046*^9, 3.993917198609024*^9, + 3.9939331656257887`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"36f24ac2-a8bc-441f-a12b-8802d3b376cb"] }, Open ]], Cell[CellGroupData[{ @@ -74,15 +72,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[312]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.993805185081649*^9, {3.993805224601097*^9, - 3.99380525302089*^9}}, - CellLabel-> - "Out[312]=",ExpressionUUID->"ff97aafe-7d64-497c-b95b-2b06a4655094"] + 3.99380525302089*^9}, 3.993916351914412*^9, 3.993917198619235*^9, + 3.99393316564474*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"efcf3994-134a-4e2f-b62b-c907dbfe8e07"] }, Open ]], Cell[CellGroupData[{ @@ -94,30 +91,28 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[313]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[BoxData["0.5449152542372881`"], "Output", +Cell[BoxData["0.54525`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.9938051851009007`*^9, {3.993805224616465*^9, - 3.993805253035823*^9}}, - CellLabel-> - "Out[313]=",ExpressionUUID->"4d603673-9a99-4aba-b853-e5b24612f04b"] + 3.993805253035823*^9}, 3.993916351937345*^9, 3.993917198632881*^9, + 3.9939331656638803`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"b7562f5a-2b46-490e-bf7d-47297ed3c910"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[314]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.9938051851193542`*^9, {3.993805224632454*^9, - 3.9938052530394487`*^9}}, - CellLabel-> - "Out[314]=",ExpressionUUID->"e8e8af0f-85b2-4480-b561-51d26283f461"] + 3.9938052530394487`*^9}, 3.9939163519603853`*^9, 3.993917198642255*^9, + 3.993933165682934*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"a8763186-b10a-4630-bb17-443ae165eb5a"] }, Open ]], Cell[CellGroupData[{ @@ -128,15 +123,14 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[315]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], Cell[BoxData["6.27109940387026`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.99380518513807*^9, {3.993805224647552*^9, - 3.9938052530590487`*^9}}, - CellLabel-> - "Out[315]=",ExpressionUUID->"fec68e9f-96c0-4386-b7cc-fc2054189439"] + 3.9938052530590487`*^9}, 3.993916351983755*^9, 3.9939171986513166`*^9, + 3.993933165702059*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"c674dd94-a99f-48c6-8dfb-db4243ab9056"] }, Open ]], Cell[CellGroupData[{ @@ -148,15 +142,14 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[316]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[BoxData["4.956284070769583`"], "Output", +Cell[BoxData["5.0395985234915885`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.993805185156455*^9, {3.99380522466296*^9, - 3.993805253072824*^9}}, - CellLabel-> - "Out[316]=",ExpressionUUID->"dcd29b8e-8a5e-4948-b625-6a6c87e52489"] + 3.993805253072824*^9}, 3.993916352007182*^9, 3.9939171986682777`*^9, + 3.993933165721241*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"016580cb-aabf-4ffa-8c7b-a835a833a305"] }, Open ]], Cell[CellGroupData[{ @@ -165,14 +158,13 @@ Cell[BoxData[ RowBox[{"b1", "=", "1.0538"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.993804952051347*^9, 3.9938049566002893`*^9}}, - CellLabel-> - "In[317]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + CellLabel->"In[9]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], Cell[BoxData["1.0538`"], "Output", CellChangeTimes->{ - 3.99380518519252*^9, {3.993805224678464*^9, 3.993805253087891*^9}}, - CellLabel-> - "Out[317]=",ExpressionUUID->"651d876d-9167-4355-baf1-0f7c32264012"] + 3.99380518519252*^9, {3.993805224678464*^9, 3.993805253087891*^9}, + 3.99391635203514*^9, 3.993917198677597*^9, 3.993933165740226*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"7476101d-447d-4bf0-ab82-6efcd448962f"] }, Open ]], Cell[CellGroupData[{ @@ -181,44 +173,41 @@ Cell[BoxData[ RowBox[{"b2", "=", "0.4586"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.993804961242296*^9, 3.993804965065857*^9}}, - CellLabel-> - "In[318]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + CellLabel->"In[10]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[BoxData["0.4586`"], "Output", CellChangeTimes->{ - 3.9938051852126503`*^9, {3.9938052246934443`*^9, 3.9938052531018476`*^9}}, - CellLabel-> - "Out[318]=",ExpressionUUID->"df92a0f3-44e3-41fc-983a-93066659f107"] + 3.9938051852126503`*^9, {3.9938052246934443`*^9, 3.9938052531018476`*^9}, + 3.9939163520582523`*^9, 3.9939171986917553`*^9, 3.993933165759151*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"49557e83-ee6e-473a-add2-8ccb56401e6a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[319]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.993805185248838*^9, {3.9938052247082167`*^9, - 3.9938052531162167`*^9}}, - CellLabel-> - "Out[319]=",ExpressionUUID->"0f052819-9941-4f9d-9e9c-aa70c5419295"] + 3.9938052531162167`*^9}, 3.993916352081853*^9, 3.99391719870426*^9, + 3.9939331657781982`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"14394ce5-24d8-4433-92ec-057199a3f02b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[320]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.993805185267172*^9, {3.9938052247238207`*^9, - 3.993805253130691*^9}}, - CellLabel-> - "Out[320]=",ExpressionUUID->"818c334d-d4a3-452c-8fb2-f873aebc57fc"] + 3.993805253130691*^9}, 3.9939163521054068`*^9, 3.9939171987381573`*^9, + 3.993933165798027*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"4133b54d-b6d3-4e75-bda7-d3cfec377199"] }, Open ]], Cell[CellGroupData[{ @@ -242,15 +231,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[321]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], Cell[BoxData["2.7212678798402736`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.99380518528695*^9, {3.993805224741534*^9, - 3.993805253144705*^9}}, - CellLabel-> - "Out[321]=",ExpressionUUID->"7f498993-b633-4fdc-89ba-f3d31c6c403c"] + 3.993805253144705*^9}, 3.9939163521330347`*^9, 3.993917198751218*^9, + 3.993933165817281*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"fed902f4-5ed9-48ac-8d7f-aac342eb8f25"] }, Open ]], Cell[CellGroupData[{ @@ -274,15 +262,14 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[322]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], Cell[BoxData["1.517413176238712`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.993805185305333*^9, {3.993805224756358*^9, - 3.993805253156912*^9}}, - CellLabel-> - "Out[322]=",ExpressionUUID->"8d3e6b0f-7d48-49a1-926c-f3566fafd99f"] + 3.993805253156912*^9}, 3.993916352156901*^9, 3.993917198764673*^9, + 3.993933165821596*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"8b7bc6f5-257b-432a-8a45-b540c4851388"] }, Open ]], Cell[CellGroupData[{ @@ -335,15 +322,14 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel-> - "In[323]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + CellLabel->"In[15]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[BoxData["0.322053736988246`"], "Output", +Cell[BoxData["0.32066933716802604`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.9938051853237133`*^9, {3.993805224762803*^9, - 3.9938052531724854`*^9}}, - CellLabel-> - "Out[323]=",ExpressionUUID->"b4206b9f-959d-4394-94de-d396ef69f4d0"] + 3.9938052531724854`*^9}, 3.993916352182193*^9, 3.993917198772558*^9, + 3.993933165856821*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"bb292f04-fd15-4fcd-a9fb-280f6549551b"] }, Open ]], Cell[CellGroupData[{ @@ -392,16 +378,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[324]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + CellLabel->"In[16]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[BoxData[ - RowBox[{"-", "0.07803627066478674`"}]], "Output", + RowBox[{"-", "0.07876066759731537`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.9938051853418283`*^9, {3.993805224780403*^9, - 3.993805253186532*^9}}, - CellLabel-> - "Out[324]=",ExpressionUUID->"6fe6cc65-fa6b-4d99-a8d2-74ca305ce207"] + 3.993805253186532*^9}, 3.993916352207016*^9, 3.993917198785969*^9, + 3.993933165877757*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"3b93670d-792f-4c13-bb1c-5f9fa6fbc8bd"] }, Open ]], Cell[CellGroupData[{ @@ -450,16 +435,15 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[325]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + CellLabel->"In[17]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ - RowBox[{"-", "0.6014673027844681`"}]], "Output", + RowBox[{"-", "0.5970148797225691`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.9938051853596067`*^9, {3.99380522479467*^9, - 3.993805253200911*^9}}, - CellLabel-> - "Out[325]=",ExpressionUUID->"50b280cb-4b39-47fb-baa1-0fe929015140"] + 3.993805253200911*^9}, 3.993916352232068*^9, 3.9939171987973127`*^9, + 3.9939331658972054`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"d9423fdb-57b9-4642-bd4d-10d366f8a2e5"] }, Open ]], Cell[CellGroupData[{ @@ -512,60 +496,56 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel-> - "In[326]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + CellLabel->"In[18]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[BoxData["0.685278007993332`"], "Output", +Cell[BoxData["0.6876077696425691`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.993805185378059*^9, {3.993805224809915*^9, - 3.993805253215036*^9}}, - CellLabel-> - "Out[326]=",ExpressionUUID->"1b36f592-3021-414f-9688-51c31c1c6e16"] + 3.993805253215036*^9}, 3.993916352256995*^9, 3.9939171988129253`*^9, + 3.993933165916185*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"10a5ccb4-ed18-48de-aa9f-844f6678ef3b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[327]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + CellLabel->"In[19]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.993805185398272*^9, {3.993805224824396*^9, - 3.9938052532292*^9}}, - CellLabel-> - "Out[327]=",ExpressionUUID->"1fed198c-9cf8-4406-87ce-79ef10e360ac"] + 3.9938052532292*^9}, 3.9939163522826366`*^9, 3.993917198820139*^9, + 3.993933165935164*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"15668269-0801-406e-85d8-606501fca5ee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[328]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + CellLabel->"In[20]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.9938051854177923`*^9, {3.99380522484026*^9, - 3.993805253244286*^9}}, - CellLabel-> - "Out[328]=",ExpressionUUID->"b9df91e9-b3eb-4d0b-975d-f19a1f5f5800"] + 3.993805253244286*^9}, 3.993916352307663*^9, 3.993917198828723*^9, + 3.993933165955071*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"9365dab5-f2ad-4331-82f2-f4ade6c39b19"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[329]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + CellLabel->"In[21]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.993805185437478*^9, {3.993805224855752*^9, - 3.9938052532596083`*^9}}, - CellLabel-> - "Out[329]=",ExpressionUUID->"2c7f951d-3c70-4ae7-9d46-4aa601536811"] + 3.9938052532596083`*^9}, 3.993916352336733*^9, 3.9939171988382053`*^9, + 3.993933165973502*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"c99d0918-277b-4e14-a9df-cf5733986314"] }, Open ]], Cell[CellGroupData[{ @@ -574,31 +554,29 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[330]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + CellLabel->"In[22]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", CellChangeTimes->{ 3.9913197866996*^9, 3.9938051854577103`*^9, {3.99380522487106*^9, - 3.993805253274938*^9}}, - CellLabel-> - "Out[330]=",ExpressionUUID->"5874a25f-302b-4007-8331-97677039ae17"] + 3.993805253274938*^9}, 3.993916352360208*^9, 3.9939171988511267`*^9, + 3.99393316599261*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"1a145dcf-83c1-4e0e-a27d-b6c216da93b2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[331]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + CellLabel->"In[23]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.993805185476227*^9, {3.993805224888023*^9, - 3.9938052532912817`*^9}}, - CellLabel-> - "Out[331]=",ExpressionUUID->"a8a500c1-ef24-45a3-94cd-06fd20c0eed8"] + 3.9938052532912817`*^9}, 3.9939163523865757`*^9, 3.993917198860916*^9, + 3.993933166011312*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"b763a445-aaa4-4b6c-a84d-a44a696342fb"] }, Open ]], Cell[CellGroupData[{ @@ -608,15 +586,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.993804991704192*^9, 3.9938049918531923`*^9}}, - CellLabel-> - "In[332]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + CellLabel->"In[24]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.9913197867861958`*^9, 3.99380518552493*^9, {3.9938052249037046`*^9, - 3.993805253306974*^9}}, - CellLabel-> - "Out[332]=",ExpressionUUID->"421c8ebb-477a-43bf-a687-c4f665cd2c98"] + 3.993805253306974*^9}, 3.993916352410439*^9, 3.993917198871262*^9, + 3.993933166029353*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"9f47998e-b36d-4f8f-8c33-f8acd9538c53"] }, Open ]], Cell[CellGroupData[{ @@ -626,15 +603,14 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.993804995664447*^9, 3.993804995772654*^9}}, - CellLabel-> - "In[333]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + CellLabel->"In[25]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], Cell[BoxData["28"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.993805185543676*^9, {3.9938052249204884`*^9, - 3.993805253322205*^9}}, - CellLabel-> - "Out[333]=",ExpressionUUID->"c8e1aad9-66dd-491a-a998-08244cfb02eb"] + 3.993805253322205*^9}, 3.99391635243427*^9, 3.993917198880859*^9, + 3.993933166048608*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"29713aad-731c-48e3-9916-1411c23720a0"] }, Open ]], Cell[CellGroupData[{ @@ -643,15 +619,14 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[334]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + CellLabel->"In[26]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[BoxData["78"], "Output", +Cell[BoxData["82"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.9938051855619907`*^9, {3.9938052249386597`*^9, - 3.9938052533386793`*^9}}, - CellLabel-> - "Out[334]=",ExpressionUUID->"ee4df3b0-cebf-4a4b-a650-126a80e209b3"] + 3.9938052533386793`*^9}, 3.993916352457818*^9, 3.993917198892521*^9, + 3.99393316606732*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"bcb53e67-3d30-42f7-bb6a-6087c3c3f01f"] }, Open ]], Cell[CellGroupData[{ @@ -666,15 +641,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[335]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + CellLabel->"In[27]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[BoxData["0.10949367088607595`"], "Output", +Cell[BoxData["0.11191417104044457`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.993805185580923*^9, {3.993805224956522*^9, - 3.993805253354024*^9}}, - CellLabel-> - "Out[335]=",ExpressionUUID->"677f7154-9c37-41f5-8330-1bf7b40a4a72"] + 3.993805253354024*^9}, 3.9939163524821377`*^9, 3.993917198902426*^9, + 3.993933166086027*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"4268b8a0-2c69-492c-9eac-76aa8cb8146e"] }, Open ]], Cell[CellGroupData[{ @@ -689,16 +663,15 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[336]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + CellLabel->"In[28]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ - RowBox[{"-", "2.5649367088607593`"}]], "Output", + RowBox[{"-", "2.561824637233714`"}]], "Output", CellChangeTimes->{ 3.9913197868718567`*^9, 3.993805185599188*^9, {3.993805224972258*^9, - 3.993805253370023*^9}}, - CellLabel-> - "Out[336]=",ExpressionUUID->"ee764c01-f192-42b1-b60d-16f49298baa7"] + 3.993805253370023*^9}, 3.9939163525065804`*^9, 3.993917198912301*^9, + 3.9939331661048117`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"c3b983e2-c5c3-42b2-a05a-12cdb110e16e"] }, Open ]], Cell[CellGroupData[{ @@ -729,15 +702,14 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[337]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + CellLabel->"In[29]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[BoxData["18.2925149376278`"], "Output", +Cell[BoxData["18.398535985484678`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.99380518561648*^9, {3.993805224987084*^9, - 3.993805253385118*^9}}, - CellLabel-> - "Out[337]=",ExpressionUUID->"04313ff9-a6c6-4b1e-9313-54c56d572079"] + 3.993805253385118*^9}, 3.993916352533133*^9, 3.993917198922473*^9, + 3.993933166123757*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"6ef4257e-698c-4311-bf2d-9443097a3332"] }, Open ]], Cell[CellGroupData[{ @@ -745,15 +717,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[338]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + CellLabel->"In[30]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.9938051856333447`*^9, {3.993805225004781*^9, - 3.993805253400388*^9}}, - CellLabel-> - "Out[338]=",ExpressionUUID->"1325af13-5ec8-4db0-89ed-d633462e2c09"] + 3.993805253400388*^9}, 3.993916352603034*^9, 3.99391719893228*^9, + 3.9939331661411247`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"424cbc03-22c6-47d5-9e4c-b62dbf4e5078"] }, Open ]], Cell[CellGroupData[{ @@ -763,20 +734,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.993805039391902*^9, 3.993805039626801*^9}}, - CellLabel-> - "In[339]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + CellLabel->"In[31]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], Cell[BoxData["2.1`"], "Output", CellChangeTimes->{ - 3.993805185666649*^9, {3.993805225028409*^9, 3.993805253416904*^9}}, - CellLabel-> - "Out[339]=",ExpressionUUID->"4a2100a0-a5d7-41f4-bf23-5f79655ae8bf"] + 3.993805185666649*^9, {3.993805225028409*^9, 3.993805253416904*^9}, + 3.993916352634946*^9, 3.993917198943013*^9, 3.99393316615853*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"e64364fa-6105-474a-8650-b59d82da65c0"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[340]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + CellLabel->"In[32]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ @@ -785,20 +754,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.993805045213546*^9, 3.993805047124814*^9}}, - CellLabel-> - "In[341]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + CellLabel->"In[33]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], Cell[BoxData["0.825`"], "Output", CellChangeTimes->{ - 3.993805185701985*^9, {3.993805225054669*^9, 3.993805253444351*^9}}, - CellLabel-> - "Out[341]=",ExpressionUUID->"a35e2538-94f5-4830-8d64-d0acb9389c48"] + 3.993805185701985*^9, {3.993805225054669*^9, 3.993805253444351*^9}, + 3.9939163527056713`*^9, 3.993917198958955*^9, 3.9939331661885757`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"d9ee098d-f606-43ed-ba32-bec20beb9564"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[342]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + CellLabel->"In[34]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ @@ -807,20 +774,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.9938050508440866`*^9, 3.993805052236985*^9}}, - CellLabel-> - "In[343]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + CellLabel->"In[35]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], Cell[BoxData["2.555`"], "Output", CellChangeTimes->{ - 3.9938051857394037`*^9, {3.9938052250786047`*^9, 3.9938052534689074`*^9}}, - CellLabel-> - "Out[343]=",ExpressionUUID->"36ccab61-d70d-4105-832a-6fdcea375745"] + 3.9938051857394037`*^9, {3.9938052250786047`*^9, 3.9938052534689074`*^9}, + 3.993916352780088*^9, 3.993917198974361*^9, 3.993933166213769*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"ea07f0d3-23bf-4b06-a949-451546af9e37"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[344]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + CellLabel->"In[36]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ @@ -829,20 +794,18 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.99380505503828*^9, 3.993805056087892*^9}}, - CellLabel-> - "In[345]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + CellLabel->"In[37]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], Cell[BoxData["1.245`"], "Output", CellChangeTimes->{ - 3.993805185761554*^9, {3.9938052251046124`*^9, 3.9938052534951553`*^9}}, - CellLabel-> - "Out[345]=",ExpressionUUID->"8d22ff3f-9ac1-4fd3-88bc-08184d7eb449"] + 3.993805185761554*^9, {3.9938052251046124`*^9, 3.9938052534951553`*^9}, + 3.9939163528525343`*^9, 3.9939171989898367`*^9, 3.993933166238974*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"d8eb8c30-889d-4f69-ab4b-116a444e2d84"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[346]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + CellLabel->"In[38]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ @@ -851,20 +814,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.993805059071521*^9, 3.9938050607022467`*^9}}, - CellLabel-> - "In[347]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + CellLabel->"In[39]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], Cell[BoxData["1.573`"], "Output", CellChangeTimes->{ - 3.993805185855309*^9, {3.993805225129714*^9, 3.993805253518753*^9}}, - CellLabel-> - "Out[347]=",ExpressionUUID->"331f6495-db89-4067-a0d9-fc1a70a34f32"] + 3.993805185855309*^9, {3.993805225129714*^9, 3.993805253518753*^9}, + 3.993916352928842*^9, 3.993917199006811*^9, 3.993933166265267*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"00e074ca-9952-41f5-a725-6aaeca7998d5"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[348]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + CellLabel->"In[40]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ @@ -873,20 +834,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993805065029335*^9, 3.993805067447727*^9}}, - CellLabel-> - "In[349]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + CellLabel->"In[41]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], Cell[BoxData["0.559`"], "Output", CellChangeTimes->{ - 3.993805185891992*^9, {3.993805225152993*^9, 3.993805253543803*^9}}, - CellLabel-> - "Out[349]=",ExpressionUUID->"9c88ca2d-827c-4cba-b6c6-b373414b820f"] + 3.993805185891992*^9, {3.993805225152993*^9, 3.993805253543803*^9}, + 3.993916353008525*^9, 3.993917199023007*^9, 3.993933166290523*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"a981d50c-124b-43ab-a4d9-10e092e699f5"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[350]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + CellLabel->"In[42]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ @@ -895,20 +854,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938050741899853`*^9, 3.993805075123766*^9}}, - CellLabel-> - "In[351]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + CellLabel->"In[43]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], Cell[BoxData["1.35`"], "Output", CellChangeTimes->{ - 3.9938051859283257`*^9, {3.993805225185712*^9, 3.9938052535659924`*^9}}, - CellLabel-> - "Out[351]=",ExpressionUUID->"a672a2ed-8132-4f20-b41e-cac0f336bb65"] + 3.9938051859283257`*^9, {3.993805225185712*^9, 3.9938052535659924`*^9}, + 3.993916353081768*^9, 3.993917199038413*^9, 3.993933166315741*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"11a5d72c-c392-41e8-8071-51a345495633"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[352]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + CellLabel->"In[44]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ @@ -916,20 +873,18 @@ Cell[BoxData[ RowBox[{"nn2", "=", "0.735"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.993805078103382*^9, 3.993805079604447*^9}}, - CellLabel-> - "In[353]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + CellLabel->"In[45]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], Cell[BoxData["0.735`"], "Output", CellChangeTimes->{ - 3.993805185964576*^9, {3.9938052252141447`*^9, 3.993805253589633*^9}}, - CellLabel-> - "Out[353]=",ExpressionUUID->"f9e2a019-c59e-4de2-897e-51523e58354f"] + 3.993805185964576*^9, {3.9938052252141447`*^9, 3.993805253589633*^9}, + 3.993916353154702*^9, 3.9939171990548353`*^9, 3.993933166367071*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"383a7c98-59e7-4de2-a799-134e9c2770e9"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[354]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], + CellLabel->"In[46]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1418,15 +1373,14 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[355]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + CellLabel->"In[47]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[BoxData["0.07320867161041106`"], "Output", +Cell[BoxData["0.07326591095323323`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.993805186059474*^9, {3.9938052252761602`*^9, - 3.993805253639162*^9}}, - CellLabel-> - "Out[355]=",ExpressionUUID->"ab827ddd-87da-4fd5-8d33-67ae85a70112"] + 3.993805253639162*^9}, 3.993916353303368*^9, 3.993917199111164*^9, + 3.993933166465501*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"0f936696-d1ee-4d18-a288-e9dff99bec5c"] }, Open ]], Cell[CellGroupData[{ @@ -1920,15 +1874,14 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[356]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + CellLabel->"In[48]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[BoxData["5.911013768479502`"], "Output", +Cell[BoxData["5.817472076698097`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.993805186091166*^9, {3.9938052253032303`*^9, - 3.993805253666086*^9}}, - CellLabel-> - "Out[356]=",ExpressionUUID->"833ed482-d0ff-472d-9773-4f6ea8ef6251"] + 3.993805253666086*^9}, 3.993916353340589*^9, 3.993917199153635*^9, + 3.993933166493161*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"7e3bd6cf-0025-4d13-b664-04963a9d320a"] }, Open ]], Cell[CellGroupData[{ @@ -2416,16 +2369,15 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[357]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + CellLabel->"In[49]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ - RowBox[{"-", "18.06625114506858`"}]], "Output", + RowBox[{"-", "18.01966490435569`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.993805186124298*^9, {3.993805225330043*^9, - 3.9938052536925*^9}}, - CellLabel-> - "Out[357]=",ExpressionUUID->"e9aacc8d-d779-42a6-a7c3-ffdaf6ba9431"] + 3.9938052536925*^9}, 3.993916353372154*^9, 3.993917199195245*^9, + 3.9939331665200977`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"a4ccf6ce-0de7-4793-b06c-c1eb3fb18a9d"] }, Open ]], Cell[CellGroupData[{ @@ -2983,16 +2935,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[358]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + CellLabel->"In[50]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ - RowBox[{"-", "26.050552547452618`"}]], "Output", + RowBox[{"-", "26.39087117680155`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.993805186162883*^9, {3.9938052253638563`*^9, - 3.993805253728293*^9}}, - CellLabel-> - "Out[358]=",ExpressionUUID->"91ce66e3-545e-4387-bda8-46a28b66dd7c"] + 3.993805253728293*^9}, 3.993916353411268*^9, 3.993917199245385*^9, + 3.993933166551045*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"3c96cf49-2b7e-4570-bd05-4026c0610104"] }, Open ]], Cell[CellGroupData[{ @@ -3550,16 +3501,15 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[359]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + CellLabel->"In[51]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ - RowBox[{"-", "72.18541227422173`"}]], "Output", + RowBox[{"-", "72.0154502935676`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.9938051862023897`*^9, {3.993805225399252*^9, - 3.993805253760605*^9}}, - CellLabel-> - "Out[359]=",ExpressionUUID->"16222308-9fef-4f3d-ba81-be969c3abf89"] + 3.993805253760605*^9}, 3.9939163534581738`*^9, 3.993917199294138*^9, + 3.993933166581894*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"08a63b32-6a93-4275-bbaf-23be7bac10dd"] }, Open ]], Cell[CellGroupData[{ @@ -4190,46 +4140,43 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[360]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + CellLabel->"In[52]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ - RowBox[{"-", "208.11430233302593`"}]], "Output", + RowBox[{"-", "210.89213440043358`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.99380518624261*^9, {3.993805225437365*^9, - 3.993805253795278*^9}}, - CellLabel-> - "Out[360]=",ExpressionUUID->"9eabe51d-552a-4f08-b4b6-afc4867991e9"] + 3.993805253795278*^9}, 3.993916353515175*^9, 3.993917199349753*^9, + 3.993933166618202*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"49a2e7a4-7b62-4840-acba-2cfd59e98589"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[361]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + CellLabel->"In[53]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.9938051862628403`*^9, {3.993805225455119*^9, - 3.993805253809515*^9}}, - CellLabel-> - "Out[361]=",ExpressionUUID->"f8c9dc59-e10b-4796-b426-7af26d9d419e"] + 3.993805253809515*^9}, 3.993916353549343*^9, 3.993917199361404*^9, + 3.99393316664146*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"67e28a61-b6f2-4299-9f7c-137e60c41b76"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[362]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + CellLabel->"In[54]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.9938051862883873`*^9, {3.993805225469843*^9, - 3.993805253823063*^9}}, - CellLabel-> - "Out[362]=",ExpressionUUID->"bc3f6d46-f190-4ddd-b5c9-03f8fa196cd8"] + 3.993805253823063*^9}, 3.993916353615691*^9, 3.9939171993720512`*^9, + 3.9939331666579723`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"68a725a5-2810-4999-b840-96d1dcaa1fb9"] }, Open ]], Cell[CellGroupData[{ @@ -4273,15 +4220,14 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[363]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + CellLabel->"In[55]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[BoxData["147.69278307014798`"], "Output", +Cell[BoxData["147.07396031318729`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.993805186309627*^9, {3.993805225485524*^9, - 3.993805253836412*^9}}, - CellLabel-> - "Out[363]=",ExpressionUUID->"2b3ddd55-ee15-444a-8bb0-a851a22fc75b"] + 3.993805253836412*^9}, 3.993916353640667*^9, 3.99391719938232*^9, + 3.993933166675385*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"16d0f2b8-73e3-43ef-b36f-7942bcb787dd"] }, Open ]], Cell[CellGroupData[{ @@ -4321,16 +4267,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[364]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + CellLabel->"In[56]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ - RowBox[{"-", "137.2483647349404`"}]], "Output", + RowBox[{"-", "138.05974755201015`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.993805186332671*^9, {3.9938052255064*^9, - 3.993805253849951*^9}}, - CellLabel-> - "Out[364]=",ExpressionUUID->"4e472d19-6f7b-44f9-8849-4421503a31ee"] + 3.993805253849951*^9}, 3.993916353666204*^9, 3.99391719939222*^9, + 3.993933166692169*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"3ef5557f-f15d-4461-9657-9414667c38ee"] }, Open ]], Cell[CellGroupData[{ @@ -4374,101 +4319,94 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[365]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + CellLabel->"In[57]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[BoxData["148.85557792479568`"], "Output", +Cell[BoxData["151.31388532518324`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9938051863549347`*^9, {3.993805225521781*^9, - 3.9938052538643007`*^9}}, - CellLabel-> - "Out[365]=",ExpressionUUID->"81e3804e-586c-41b2-8306-0ff3a8b05b33"] + 3.9938052538643007`*^9}, 3.993916353692947*^9, 3.993917199403101*^9, + 3.993933166708956*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"621c3676-6f5f-4a51-8777-7d466543eabc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[366]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + CellLabel->"In[58]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[BoxData["0.322053736988246`"], "Output", +Cell[BoxData["0.32066933716802604`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.993805186375004*^9, {3.993805225539682*^9, - 3.9938052538780746`*^9}}, - CellLabel-> - "Out[366]=",ExpressionUUID->"e4f86721-ba7f-40a5-8133-8a80f8b93a4b"] + 3.9938052538780746`*^9}, 3.993916353720183*^9, 3.9939171994133453`*^9, + 3.993933166725501*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"4c3e597c-1008-44f9-a3e5-3bbe24598662"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[367]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + CellLabel->"In[59]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ - RowBox[{"-", "0.07803627066478674`"}]], "Output", + RowBox[{"-", "0.07876066759731537`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.993805186395523*^9, {3.993805225554823*^9, - 3.993805253891698*^9}}, - CellLabel-> - "Out[367]=",ExpressionUUID->"14e2612d-9fbc-47f4-83b5-5de190731ddb"] + 3.993805253891698*^9}, 3.993916353744547*^9, 3.993917199424728*^9, + 3.993933166742062*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"a2cd9e57-86ba-47ab-b600-8198afd0d960"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[368]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + CellLabel->"In[60]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ - RowBox[{"-", "0.6014673027844681`"}]], "Output", + RowBox[{"-", "0.5970148797225691`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.9938051864158077`*^9, {3.9938052255692043`*^9, - 3.993805253905455*^9}}, - CellLabel-> - "Out[368]=",ExpressionUUID->"ed2a9e3d-5b40-491e-a22c-44b2435d8dce"] + 3.993805253905455*^9}, 3.993916353768426*^9, 3.993917199434431*^9, + 3.993933166759924*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"b1306736-47e0-485c-9bbf-d3e5989faa81"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[369]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + CellLabel->"In[61]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[BoxData["0.685278007993332`"], "Output", +Cell[BoxData["0.6876077696425691`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.993805186435895*^9, {3.993805225584848*^9, - 3.9938052539190693`*^9}}, - CellLabel-> - "Out[369]=",ExpressionUUID->"6dbf362e-16a0-4bdf-9195-ea9e005d18e8"] + 3.9938052539190693`*^9}, 3.993916353793048*^9, 3.993917199444838*^9, + 3.993933166776565*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"90d257cc-b54b-4d66-a02d-8303ed929d68"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[370]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + CellLabel->"In[62]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], Cell[BoxData["2.7212678798402736`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.993805186459119*^9, {3.993805225601059*^9, - 3.9938052539329557`*^9}}, - CellLabel-> - "Out[370]=",ExpressionUUID->"ae5b7579-578a-4e60-8b46-8d3ee0d9124c"] + 3.9938052539329557`*^9}, 3.993916353817293*^9, 3.993917199455551*^9, + 3.9939331667933292`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"648c0fdc-5c6c-4fe8-aa10-c925a2e9b1f3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[371]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + CellLabel->"In[63]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], Cell[BoxData["1.517413176238712`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.993805186481224*^9, {3.993805225615499*^9, - 3.9938052539461823`*^9}}, - CellLabel-> - "Out[371]=",ExpressionUUID->"2022e7b2-c8a6-44a7-8cf8-4f8bb9c57922"] + 3.9938052539461823`*^9}, 3.993916353823238*^9, 3.993917199471912*^9, + 3.993933166810072*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"26d57641-c233-4f18-becc-dfdf7b1bf81c"] }, Open ]], Cell[CellGroupData[{ @@ -4489,16 +4427,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[372]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + CellLabel->"In[64]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ - RowBox[{"-", "35.99778951872175`"}]], "Output", + RowBox[{"-", "35.37905990838884`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.993805186500906*^9, {3.993805225630805*^9, - 3.9938052539603987`*^9}}, - CellLabel-> - "Out[372]=",ExpressionUUID->"f8422775-18f2-4bc3-883a-379a25f27a06"] + 3.9938052539603987`*^9}, 3.9939163538577957`*^9, 3.993917199491952*^9, + 3.993933166814527*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"66286b5e-b7d9-4119-863e-ae28b6287741"] }, Open ]], Cell[CellGroupData[{ @@ -4519,16 +4456,15 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[373]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + CellLabel->"In[65]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ - RowBox[{"-", "7.399315209108336`"}]], "Output", + RowBox[{"-", "7.518677963606449`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.9938051865278683`*^9, {3.9938052256462593`*^9, - 3.9938052540033293`*^9}}, - CellLabel-> - "Out[373]=",ExpressionUUID->"7e5f4969-e6ae-4a56-b856-0d6058540853"] + 3.9938052540033293`*^9}, 3.9939163538870287`*^9, 3.993917199500629*^9, + 3.993933166831314*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"9fc6843a-5ff7-4114-8ef6-28161695f4ab"] }, Open ]], Cell[CellGroupData[{ @@ -4593,15 +4529,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[374]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + CellLabel->"In[66]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[BoxData["111.69499355142622`"], "Output", +Cell[BoxData["111.69490040479845`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.993805186549179*^9, {3.99380522566187*^9, - 3.9938052540195704`*^9}}, - CellLabel-> - "Out[374]=",ExpressionUUID->"6b6a750e-0f5e-497d-b28d-c26957761cc7"] + 3.9938052540195704`*^9}, 3.993916353911763*^9, 3.993917199518371*^9, + 3.993933166848112*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"0e4958a1-96cc-4635-8bb4-2fc535609ef2"] }, Open ]], Cell[CellGroupData[{ @@ -4642,16 +4577,15 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[375]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + CellLabel->"In[67]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ - RowBox[{"-", "137.2483647349404`"}]], "Output", + RowBox[{"-", "138.05974755201015`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.993805186570223*^9, {3.993805225677956*^9, - 3.993805254035548*^9}}, - CellLabel-> - "Out[375]=",ExpressionUUID->"43aa0ca4-8634-48eb-8fe5-765032ca1028"] + 3.993805254035548*^9}, 3.993916353937284*^9, 3.99391719952717*^9, + 3.993933166865115*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"38121e0e-4f7d-48f5-b272-9d7e6b444d3b"] }, Open ]], Cell[CellGroupData[{ @@ -4717,15 +4651,14 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[376]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + CellLabel->"In[68]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[BoxData["141.45626271568736`"], "Output", +Cell[BoxData["143.7952073615768`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.993805186590909*^9, {3.993805225694096*^9, - 3.993805254049733*^9}}, - CellLabel-> - "Out[376]=",ExpressionUUID->"c89536ee-85bd-46ea-a124-114594fabd83"] + 3.993805254049733*^9}, 3.993916353962906*^9, 3.993917199544511*^9, + 3.993933166882449*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"578f8c4f-2e3d-4535-bd8f-b8b86ea610e0"] }, Open ]], Cell[CellGroupData[{ @@ -4783,15 +4716,14 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[377]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + CellLabel->"In[69]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[BoxData["28.96331154877913`"], "Output", +Cell[BoxData["27.73706386208056`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.993805186610568*^9, {3.993805225710843*^9, - 3.99380525406491*^9}}, - CellLabel-> - "Out[377]=",ExpressionUUID->"6b758ceb-beae-4482-8643-2753fd2c8a56"] + 3.99380525406491*^9}, 3.99391635399086*^9, 3.993917199556695*^9, + 3.9939331668994837`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"e609fa81-3c9d-4d2e-8a5b-d4867a687379"] }, Open ]], Cell[CellGroupData[{ @@ -4849,15 +4781,14 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[378]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + CellLabel->"In[70]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[BoxData["889.4323989993932`"], "Output", +Cell[BoxData["878.9837204382463`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.9938051866294127`*^9, {3.99380522572875*^9, - 3.9938052540809603`*^9}}, - CellLabel-> - "Out[378]=",ExpressionUUID->"45dc3826-b147-4c95-8618-c833789e2142"] + 3.9938052540809603`*^9}, 3.9939163540160513`*^9, 3.993917199594548*^9, + 3.993933166916544*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"7b22d0e7-fe7f-426c-a531-ee45fd5a417f"] }, Open ]], Cell[CellGroupData[{ @@ -4866,20 +4797,18 @@ Cell[BoxData[ RowBox[{"f1", "=", "0.8803"}]], "Input", CellChangeTimes->{ 3.991799412462593*^9, {3.993805093030362*^9, 3.9938050974271097`*^9}}, - CellLabel-> - "In[379]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + CellLabel->"In[71]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], Cell[BoxData["0.8803`"], "Output", CellChangeTimes->{ - 3.9938051866528807`*^9, {3.9938052257440863`*^9, 3.9938052540979137`*^9}}, - CellLabel-> - "Out[379]=",ExpressionUUID->"141a2af6-29fc-4033-a088-9ae666b981e1"] + 3.9938051866528807`*^9, {3.9938052257440863`*^9, 3.9938052540979137`*^9}, + 3.993916354040964*^9, 3.993917199607273*^9, 3.993933166934469*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"9badcb5c-4f3e-4f7e-98e2-8110962d5d3b"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, - CellLabel-> - "In[380]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + CellLabel->"In[72]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ @@ -4887,20 +4816,18 @@ Cell[BoxData[ RowBox[{"f2", "=", "0.6265"}]], "Input", CellChangeTimes->{ 3.991799414288656*^9, {3.993805099290001*^9, 3.993805115420216*^9}}, - CellLabel-> - "In[381]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + CellLabel->"In[73]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], Cell[BoxData["0.6265`"], "Output", CellChangeTimes->{ - 3.9938051866769133`*^9, {3.993805225825488*^9, 3.9938052541894293`*^9}}, - CellLabel-> - "Out[381]=",ExpressionUUID->"bfe98c6e-e43c-438a-8601-84bad445d4bf"] + 3.9938051866769133`*^9, {3.993805225825488*^9, 3.9938052541894293`*^9}, + 3.993916354082217*^9, 3.9939171996228113`*^9, 3.993933166960091*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"78bda8ec-636f-4e9f-8348-73668650363c"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, - CellLabel-> - "In[382]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], + CellLabel->"In[74]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4946,15 +4873,14 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[383]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + CellLabel->"In[75]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[BoxData["1.6144200175309938`*^-53"], "Output", +Cell[BoxData["1.6893390031074366`*^-53"], "Output", CellChangeTimes->{ 3.99132042156752*^9, 3.99380518670373*^9, {3.99380522592588*^9, - 3.9938052542151947`*^9}}, - CellLabel-> - "Out[383]=",ExpressionUUID->"4202757c-cfad-4b66-8c33-621f0eef70db"] + 3.9938052542151947`*^9}, 3.9939163541212177`*^9, 3.993917199639056*^9, + 3.993933166985355*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"9880f7cb-68d5-45eb-b6d8-96e89134811d"] }, Open ]], Cell[CellGroupData[{ @@ -4989,15 +4915,14 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.991557471461853*^9}, - CellLabel-> - "In[384]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + CellLabel->"In[76]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[BoxData["1.7971471909628825`*^-54"], "Output", +Cell[BoxData["1.9533604843799393`*^-54"], "Output", CellChangeTimes->{ 3.99132042159643*^9, 3.993805186720976*^9, {3.99380522594669*^9, - 3.9938052542316647`*^9}}, - CellLabel-> - "Out[384]=",ExpressionUUID->"76254882-813f-4233-bbe4-fca949721ee2"] + 3.9938052542316647`*^9}, 3.993916354145433*^9, 3.993917199649273*^9, + 3.993933167002083*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"6316abeb-7945-4c99-bc2f-089d14984077"] }, Open ]], Cell[CellGroupData[{ @@ -5031,15 +4956,14 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, - CellLabel-> - "In[385]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + CellLabel->"In[77]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[BoxData["3.086441184270093`*^-54"], "Output", CellChangeTimes->{ 3.9913204216085243`*^9, 3.993805186738269*^9, {3.993805225964871*^9, - 3.993805254248233*^9}}, - CellLabel-> - "Out[385]=",ExpressionUUID->"7d0699c8-7e59-4df7-a7c9-e4e2f532d8ee"] + 3.993805254248233*^9}, 3.993916354167883*^9, 3.993917199659626*^9, + 3.993933167019208*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a57cb488-aaa8-42ba-9794-349fba086c04"] }, Open ]], Cell[CellGroupData[{ @@ -5062,10 +4986,9 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel-> - "In[386]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + CellLabel->"In[78]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[BoxData["16.483293322526766`"], "Output", +Cell[BoxData["17.360744349648275`"], "Output", CellChangeTimes->{ 3.991323706886154*^9, 3.9917089973478775`*^9, 3.9920860582546215`*^9, 3.992086268464361*^9, 3.992086312066765*^9, 3.9920865713192253`*^9, @@ -5073,9 +4996,9 @@ Cell[BoxData["16.483293322526766`"], "Output", 3.99208680410137*^9}, 3.992091247458048*^9, {3.992091392660454*^9, 3.992091446805294*^9}, {3.9920915031404457`*^9, 3.992091522601553*^9}, { 3.9920915619364376`*^9, 3.9920915885645847`*^9}, 3.993805186753881*^9, { - 3.993805225983383*^9, 3.9938052542646112`*^9}}, - CellLabel-> - "Out[386]=",ExpressionUUID->"c08e8af7-0ed5-4c9d-9fac-0da44f517117"] + 3.993805225983383*^9, 3.9938052542646112`*^9}, 3.993916354190344*^9, + 3.9939171996696453`*^9, 3.993933167036042*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"927d6a5a-a991-48d4-a0c0-13ed8dc5f9e4"] }, Open ]], Cell[CellGroupData[{ @@ -5101,10 +5024,9 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, - CellLabel-> - "In[387]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + CellLabel->"In[79]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[BoxData["54.41308738983393`"], "Output", +Cell[BoxData["56.333898264450575`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.9917083768681793`*^9, 3.9920862684823704`*^9, 3.992086312091795*^9, 3.9920865713392296`*^9, 3.9920866021582546`*^9, @@ -5112,9 +5034,9 @@ Cell[BoxData["54.41308738983393`"], "Output", 3.992091247484524*^9, {3.9920913926676064`*^9, 3.9920914468313007`*^9}, { 3.9920915031479607`*^9, 3.9920915226223583`*^9}, {3.9920915619450817`*^9, 3.992091588571615*^9}, 3.993805186769833*^9, {3.99380522600287*^9, - 3.9938052542802887`*^9}}, - CellLabel-> - "Out[387]=",ExpressionUUID->"e3803f09-6037-4fed-8727-91517691fd6d"] + 3.9938052542802887`*^9}, 3.993916354212562*^9, 3.993917199681459*^9, + 3.993933167052887*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"b27c18da-d67f-4168-b44c-87ebc8be5c78"] }, Open ]], Cell[CellGroupData[{ @@ -5123,10 +5045,9 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel-> - "In[388]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + CellLabel->"In[80]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[BoxData["1.325568314383834`"], "Output", +Cell[BoxData["1.2639970847923296`"], "Output", CellChangeTimes->{ 3.9913237069236546`*^9, 3.9917089973924427`*^9, 3.9920860582606277`*^9, 3.9920862684883747`*^9, 3.992086312111845*^9, 3.9920865713602333`*^9, @@ -5134,9 +5055,9 @@ Cell[BoxData["1.325568314383834`"], "Output", 3.9920868041580334`*^9}, 3.9920912474925404`*^9, {3.9920913926935654`*^9, 3.992091446837303*^9}, {3.9920915031795254`*^9, 3.992091522629343*^9}, { 3.9920915619686337`*^9, 3.992091588596325*^9}, 3.993805186820907*^9, { - 3.9938052260266333`*^9, 3.993805254296472*^9}}, - CellLabel-> - "Out[388]=",ExpressionUUID->"96b16079-25df-49e8-88d7-23204fd8153b"] + 3.9938052260266333`*^9, 3.993805254296472*^9}, 3.993916354234664*^9, + 3.993917199693585*^9, 3.993933167069674*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"03cfc0da-98e1-441e-b7a5-5b9ba0ea3941"] }, Open ]], Cell[CellGroupData[{ @@ -5146,19 +5067,18 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, - CellLabel-> - "In[389]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + CellLabel->"In[81]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[BoxData["4.043009747840839`"], "Output", +Cell[BoxData["3.9500765607713237`"], "Output", CellChangeTimes->{ 3.991320421726494*^9, 3.9917083769120636`*^9, 3.992086312117838*^9, 3.99208657136524*^9, 3.9920866021953373`*^9, 3.9920866683231354`*^9, { 3.9920867768061504`*^9, 3.9920868041630306`*^9}, 3.992091247522402*^9, { 3.992091392715067*^9, 3.9920914468593006`*^9}, {3.992091503202347*^9, 3.992091522636343*^9}, {3.992091561975609*^9, 3.99209158860334*^9}, - 3.993805186838647*^9, {3.9938052260466347`*^9, 3.99380525431221*^9}}, - CellLabel-> - "Out[389]=",ExpressionUUID->"617024d9-6908-405b-9080-c862dd6d8933"] + 3.993805186838647*^9, {3.9938052260466347`*^9, 3.99380525431221*^9}, + 3.9939163542566433`*^9, 3.993917199704061*^9, 3.993933167087063*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"16a78f2a-35fc-44a4-bfc9-cf7794e34b71"] }, Open ]], Cell[CellGroupData[{ @@ -5168,10 +5088,9 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, - CellLabel-> - "In[390]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + CellLabel->"In[82]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[BoxData["219.99264272721402`"], "Output", +Cell[BoxData["222.52321111128256`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9917083769190636`*^9, 3.9920862684953804`*^9, 3.992086312138464*^9, 3.992086571391514*^9, 3.9920866022223396`*^9, @@ -5179,9 +5098,9 @@ Cell[BoxData["219.99264272721402`"], "Output", 3.992091247547844*^9, {3.9920913927375374`*^9, 3.992091446867302*^9}, { 3.992091503209553*^9, 3.992091522657341*^9}, {3.992091561999613*^9, 3.9920915886284447`*^9}, 3.993805186859076*^9, {3.993805226066399*^9, - 3.993805254328126*^9}}, - CellLabel-> - "Out[390]=",ExpressionUUID->"0a684cd5-ccb1-44c5-b7cd-8dcce7a50542"] + 3.993805254328126*^9}, 3.993916354279809*^9, 3.993917199713784*^9, + 3.993933167103863*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"fdec06fe-2510-42ba-825c-1ff42aa20137"] }, Open ]], Cell[CellGroupData[{ @@ -5190,10 +5109,9 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[391]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + CellLabel->"In[83]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[BoxData["21.849731345036112`"], "Output", +Cell[BoxData["21.94393024778033`"], "Output", CellChangeTimes->{ 3.9913237069753113`*^9, 3.99170899744343*^9, 3.992086058291689*^9, 3.9920862685164757`*^9, 3.992086312143465*^9, 3.9920865713975163`*^9, @@ -5201,9 +5119,9 @@ Cell[BoxData["21.849731345036112`"], "Output", 3.992086804192051*^9}, 3.9920912475547256`*^9, {3.9920913927436028`*^9, 3.992091446891386*^9}, {3.9920915032325726`*^9, 3.992091522664852*^9}, { 3.992091562006651*^9, 3.992091588636162*^9}, 3.993805186880905*^9, { - 3.993805226083396*^9, 3.9938052543446074`*^9}}, - CellLabel-> - "Out[391]=",ExpressionUUID->"ec1116b1-981a-45f9-bada-2881cf32b947"] + 3.993805226083396*^9, 3.9938052543446074`*^9}, 3.993916354303071*^9, + 3.993917199723495*^9, 3.993933167120563*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"eff75831-6eec-4264-a07e-06e0121c56d5"] }, Open ]], Cell[CellGroupData[{ @@ -5392,10 +5310,9 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[392]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + CellLabel->"In[84]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[BoxData["0.005422627002208888`"], "Output", +Cell[BoxData["0.005481374637310874`"], "Output", CellChangeTimes->{ 3.991323707000412*^9, 3.991708997465433*^9, 3.9920860583187714`*^9, 3.992086268523493*^9, 3.9920863121684647`*^9, 3.9920865714232826`*^9, @@ -5403,9 +5320,9 @@ Cell[BoxData["0.005422627002208888`"], "Output", 3.992091247578861*^9, {3.9920913927664986`*^9, 3.992091446900387*^9}, { 3.992091503241564*^9, 3.9920915226853714`*^9}, {3.9920915620301514`*^9, 3.992091588657053*^9}, 3.993805186899767*^9, {3.993805226106429*^9, - 3.993805254361239*^9}}, - CellLabel-> - "Out[392]=",ExpressionUUID->"c4678e11-4d8d-4d72-81f5-f33a7a7c8324"] + 3.993805254361239*^9}, 3.993916354326661*^9, 3.993917199734651*^9, + 3.993933167138484*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"a11da365-23e7-4637-90e3-f23027bda11d"] }, Open ]], Cell[CellGroupData[{ @@ -5419,20 +5336,19 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->RGBColor[0.4, 0.6, 1, 0.33], - CellLabel-> - "In[393]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + CellLabel->"In[85]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[BoxData["12.034833174744053`"], "Output", +Cell[BoxData["11.970166676491772`"], "Output", CellChangeTimes->{ 3.991323707203314*^9, 3.991708997556095*^9, 3.99208606078174*^9, 3.992086270465349*^9, 3.9920863122235165`*^9, 3.992086602309389*^9, { 3.9920867769392548`*^9, 3.9920868042750893`*^9}, 3.992091250499668*^9, { 3.9920913928462048`*^9, 3.9920914469749584`*^9}, {3.992091503316616*^9, 3.9920915227624416`*^9}, {3.9920915621031647`*^9, 3.9920915887305927`*^9}, - 3.993805188269087*^9, {3.993805226180202*^9, 3.993805254432775*^9}}, + 3.993805188269087*^9, {3.993805226180202*^9, 3.993805254432775*^9}, + 3.993916354494953*^9, 3.993917199816721*^9, 3.993933167271887*^9}, Background->RGBColor[0.14, 0.8, 0.14, 0.33], - CellLabel-> - "Out[393]=",ExpressionUUID->"edeb9065-13fa-4686-bbf1-ac171c459522"] + CellLabel->"Out[85]=",ExpressionUUID->"cd060f02-d795-4661-9dec-01d8a3df6742"] }, Open ]], Cell[BoxData[ @@ -5444,8 +5360,7 @@ Cell[BoxData[ 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, - CellLabel-> - "In[394]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + CellLabel->"In[86]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5467,15 +5382,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[395]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + CellLabel->"In[87]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[BoxData["37.602970599853734`"], "Output", +Cell[BoxData["37.87253572191125`"], "Output", CellChangeTimes->{ 3.991320421637537*^9, 3.993805188362731*^9, {3.993805226278371*^9, - 3.99380525452745*^9}}, - CellLabel-> - "Out[395]=",ExpressionUUID->"baaf67ab-827e-403b-8f42-9a13f16ea83d"] + 3.99380525452745*^9}, 3.993916354531333*^9, 3.993917199836453*^9, + 3.993933167302052*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"b45d740d-2124-4a34-8528-bb737b1c9d54"] }, Open ]], Cell[CellGroupData[{ @@ -5500,15 +5414,14 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[396]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + CellLabel->"In[88]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[BoxData["54.41308738983393`"], "Output", +Cell[BoxData["56.333898264450575`"], "Output", CellChangeTimes->{ 3.9913204216685333`*^9, 3.9938051883796053`*^9, {3.993805226296915*^9, - 3.9938052545446653`*^9}}, - CellLabel-> - "Out[396]=",ExpressionUUID->"a90da9f1-eebb-47e0-b78a-07c9da4802a5"] + 3.9938052545446653`*^9}, 3.993916354553636*^9, 3.9939171998603773`*^9, + 3.993933167318671*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"7bfbfe1a-e321-46de-b110-d210971ea271"] }, Open ]], Cell[CellGroupData[{ @@ -5517,15 +5430,14 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[397]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + CellLabel->"In[89]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[BoxData["0.8776331728064721`"], "Output", +Cell[BoxData["0.8557916628817032`"], "Output", CellChangeTimes->{ 3.991320421698473*^9, 3.993805188397439*^9, {3.993805226314788*^9, - 3.99380525456183*^9}}, - CellLabel-> - "Out[397]=",ExpressionUUID->"421773b7-8092-4ef2-a4cd-403504f2fef3"] + 3.99380525456183*^9}, 3.99391635457722*^9, 3.993917199878269*^9, + 3.993933167335527*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"04dc38b9-e2a9-41d0-87da-1da9610e899f"] }, Open ]], Cell[CellGroupData[{ @@ -5534,15 +5446,14 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[398]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + CellLabel->"In[90]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[BoxData["4.043009747840839`"], "Output", +Cell[BoxData["3.9500765607713237`"], "Output", CellChangeTimes->{ 3.991320421726494*^9, 3.993805188414673*^9, {3.993805226334394*^9, - 3.993805254580614*^9}}, - CellLabel-> - "Out[398]=",ExpressionUUID->"f4d9a0d6-910a-417d-9dc0-a0a8c44f8be7"] + 3.993805254580614*^9}, 3.993916354675848*^9, 3.993917199888205*^9, + 3.993933167352418*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"12ee275a-994d-4558-8bce-85e65c70f45d"] }, Open ]], Cell[CellGroupData[{ @@ -5551,15 +5462,14 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[399]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + CellLabel->"In[91]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[BoxData["219.99264272721402`"], "Output", +Cell[BoxData["222.52321111128256`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.993805188431522*^9, {3.9938052263524017`*^9, - 3.993805254597856*^9}}, - CellLabel-> - "Out[399]=",ExpressionUUID->"2b807495-1908-4402-93fe-f113e8aabd3e"] + 3.993805254597856*^9}, 3.993916354698359*^9, 3.99391719989818*^9, + 3.9939331674373503`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"2c65ac14-44f6-458a-b737-ddc21e9803da"] }, Open ]], Cell[CellGroupData[{ @@ -5568,15 +5478,14 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[400]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + CellLabel->"In[92]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[BoxData["33.00161439449812`"], "Output", +Cell[BoxData["32.41100032300113`"], "Output", CellChangeTimes->{ 3.9913204217855225`*^9, 3.993805188448387*^9, {3.993805226370905*^9, - 3.993805254618984*^9}}, - CellLabel-> - "Out[400]=",ExpressionUUID->"b6c899f9-f400-49a6-8168-06f26a45da5d"] + 3.993805254618984*^9}, 3.993916354721187*^9, 3.993917199907751*^9, + 3.993933167454018*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"83e76410-18c7-4252-8e44-1362e95f47f8"] }, Open ]], Cell[CellGroupData[{ @@ -5765,15 +5674,14 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[401]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + CellLabel->"In[93]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[BoxData["0.005113406515697181`"], "Output", +Cell[BoxData["0.005183950983807764`"], "Output", CellChangeTimes->{ 3.9913204218154297`*^9, 3.993805188466771*^9, {3.993805226390173*^9, - 3.993805254637278*^9}}, - CellLabel-> - "Out[401]=",ExpressionUUID->"4479d76b-7491-4a3f-b06f-16880dc5a0ef"] + 3.993805254637278*^9}, 3.993916354744825*^9, 3.993917199919405*^9, + 3.993933167471723*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"aeebb0a9-0406-444e-8c08-b91e92d41bf0"] }, Open ]], Cell[CellGroupData[{ @@ -5786,15 +5694,14 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[402]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + CellLabel->"In[94]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[BoxData["12.393380410904477`"], "Output", +Cell[BoxData["12.308765489529193`"], "Output", CellChangeTimes->{ 3.991320422776104*^9, 3.993805189654928*^9, {3.9938052264433603`*^9, - 3.993805254697151*^9}}, - CellLabel-> - "Out[402]=",ExpressionUUID->"024ec93f-17ca-4658-8a03-3afd41e4c3e0"] + 3.993805254697151*^9}, 3.9939163547979593`*^9, 3.9939171999923267`*^9, + 3.993933167511867*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"2ad19dfe-64cc-405c-8ac0-b4884e781493"] }, Open ]], Cell[CellGroupData[{ @@ -5985,15 +5892,14 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[403]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + CellLabel->"In[95]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[BoxData["0.026783140551371397`"], "Output", +Cell[BoxData["0.026689798814611507`"], "Output", CellChangeTimes->{ 3.9913204229248886`*^9, 3.9938051896814127`*^9, {3.993805226460609*^9, - 3.993805254714548*^9}}, - CellLabel-> - "Out[403]=",ExpressionUUID->"1fd09d0b-9244-454a-bed1-2f3ea4e5e115"] + 3.993805254714548*^9}, 3.993916354822157*^9, 3.993917200005495*^9, + 3.99393316753736*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"db2f3f10-4f13-4545-a16a-937b8b9055aa"] }, Open ]], Cell[CellGroupData[{ @@ -6006,15 +5912,14 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[404]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + CellLabel->"In[96]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[BoxData["5.4151961271333855`"], "Output", +Cell[BoxData["5.424657094762233`"], "Output", CellChangeTimes->{ 3.9913204230053368`*^9, 3.9938051908740263`*^9, {3.993805226516033*^9, - 3.993805254775242*^9}}, - CellLabel-> - "Out[404]=",ExpressionUUID->"94e305b6-9dcc-4d6f-b3e7-299f5f63a79d"] + 3.993805254775242*^9}, 3.993916354878644*^9, 3.993917200085101*^9, + 3.993933167577795*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"00fe4cf2-396b-4e7a-a1ed-7907bd016d50"] }, Open ]], Cell[CellGroupData[{ @@ -6106,15 +6011,14 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[405]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + CellLabel->"In[97]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[BoxData["0.1403801896814067`"], "Output", +Cell[BoxData["0.15074304128905536`"], "Output", CellChangeTimes->{ 3.9913204230393543`*^9, 3.993805190900231*^9, {3.9938052265654917`*^9, - 3.993805254793353*^9}}, - CellLabel-> - "Out[405]=",ExpressionUUID->"b117c166-37cb-4b37-acc4-6eaa56713997"] + 3.993805254793353*^9}, 3.993916354902444*^9, 3.993917200097897*^9, + 3.993933167608007*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"071391a5-d3e7-4340-be9a-ae168e518bd3"] }, Open ]], Cell[CellGroupData[{ @@ -6203,15 +6107,14 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[406]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + CellLabel->"In[98]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[BoxData["0.8596198103185931`"], "Output", +Cell[BoxData["0.8492569587109448`"], "Output", CellChangeTimes->{ 3.9913204230728855`*^9, 3.993805190920662*^9, {3.9938052265844393`*^9, - 3.993805254810216*^9}}, - CellLabel-> - "Out[406]=",ExpressionUUID->"cf19afb5-ba62-43de-be39-f0d7996fe117"] + 3.993805254810216*^9}, 3.993916354937134*^9, 3.993917200111268*^9, + 3.9939331676263647`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"6859d4f6-6590-4aea-8fcd-3ce591184b81"] }, Open ]], Cell[CellGroupData[{ @@ -6333,22 +6236,21 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[407]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + CellLabel->"In[99]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[BoxData["0.12067359202641899`"], "Output", +Cell[BoxData["0.12801957679198153`"], "Output", CellChangeTimes->{ 3.9913204231038837`*^9, 3.993805190942649*^9, {3.99380522660246*^9, - 3.99380525483077*^9}}, - CellLabel-> - "Out[407]=",ExpressionUUID->"417ba3b9-5ad4-4d19-b038-f2dd42742a67"] + 3.99380525483077*^9}, 3.9939163549612303`*^9, 3.993917200123329*^9, + 3.993933167643532*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"1c599b7f-6cd2-4924-aeea-5a767e2a6b61"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel-> - "In[408]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], + "In[100]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6411,76 +6313,81 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799443370365*^9}, CellLabel-> - "In[409]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + "In[101]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6561102453359924`*^-226\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.1171216361206813`*^-229\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 1, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, 3.993805190983593*^9, {3.993805226713312*^9, + 3.993805254928783*^9}, 3.993916355013174*^9, 3.9939172001411858`*^9, + 3.993933167683167*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"7db6caf8-603d-4fa7-bd72-3b4e5c098e6b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.225796200840648`*^-236\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 2, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204231548862`*^9, 3.993805190983593*^9, {3.993805226713312*^9, + 3.993805254928783*^9}, 3.993916355013174*^9, 3.9939172001411858`*^9, + 3.993933167687276*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"0be7410d-16be-4290-97e6-4a435cd336c5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.730574083255006`*^-242\\\", \ \\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ 0000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 409, 25, 31384700030714061789, "Local"}, +number; precision may be lost.\"", 2, 101, 3, 31385539801306253772, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993805190983593*^9, {3.993805226713312*^9, - 3.993805254928783*^9}}, + 3.993805254928783*^9}, 3.993916355013174*^9, 3.9939172001411858`*^9, + 3.993933167691077*^9}, CellLabel-> "During evaluation of \ -In[409]:=",ExpressionUUID->"cd11c104-0461-4ccd-8b44-a0629a10a746"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.3088879416027943`*^-232\\\", \ -\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ -0000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 409, 26, 31384700030714061789, "Local"}, - "MessageTemplate", - BaseStyle->"MSG"]], "Message", - CellChangeTimes->{ - 3.9913204231548862`*^9, 3.993805190983593*^9, {3.993805226713312*^9, - 3.993805254932061*^9}}, - CellLabel-> - "During evaluation of \ -In[409]:=",ExpressionUUID->"3ad96694-6bb0-4ac2-bcea-12b43ad052e8"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0344647335513751`*^-238\\\", \ -\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ -6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 409, 27, 31384700030714061789, "Local"}, - "MessageTemplate", - BaseStyle->"MSG"]], "Message", - CellChangeTimes->{ - 3.9913204231548862`*^9, 3.993805190983593*^9, {3.993805226713312*^9, - 3.993805254934864*^9}}, - CellLabel-> - "During evaluation of \ -In[409]:=",ExpressionUUID->"d9c6348a-4a27-4c98-b36b-87cfda36d8df"], +In[101]:=",ExpressionUUID->"f3c5f3d4-d0e5-4495-b7da-61a995a837d2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 409, 28, 31384700030714061789, "Local"}, +during this calculation.\"", 2, 101, 4, 31385539801306253772, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ 3.9913204231548862`*^9, 3.993805190983593*^9, {3.993805226713312*^9, - 3.9938052549372883`*^9}}, + 3.993805254928783*^9}, 3.993916355013174*^9, 3.9939172001411858`*^9, + 3.99393316769431*^9}, CellLabel-> "During evaluation of \ -In[409]:=",ExpressionUUID->"f19dd9c7-089c-4786-ba12-8dc7c0748da5"], +In[101]:=",ExpressionUUID->"6f4809bd-2089-4388-bda3-08306751de88"], -Cell[BoxData["12.393380410904474`"], "Output", +Cell[BoxData["12.308765489529186`"], "Output", CellChangeTimes->{ - 3.9913204260017204`*^9, {3.993805215751049*^9, 3.993805256739633*^9}}, + 3.9913204260017204`*^9, {3.993805215751049*^9, 3.993805256739633*^9}, + 3.9939163564484653`*^9, 3.993917202470909*^9, 3.99393316870921*^9}, CellLabel-> - "Out[409]=",ExpressionUUID->"daaea48c-eff0-45d8-a383-181959a3c139"] + "Out[101]=",ExpressionUUID->"a115185a-2415-494f-a578-7cb4abdf8b36"] }, Open ]], Cell[CellGroupData[{ @@ -6544,72 +6451,77 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9917994459475594`*^9}, CellLabel-> - "In[410]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], + "In[102]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6561102453359924`*^-226\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.1171216361206813`*^-229\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 5, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204262354183`*^9, {3.993805215795404*^9, 3.993805256759458*^9}, + 3.993917202516344*^9, 3.993933168753714*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"e02619c9-50c4-4524-b40f-61bcf37d6afe"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.225796200840648`*^-236\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 6, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{ + 3.9913204262354183`*^9, {3.993805215795404*^9, 3.993805256759458*^9}, + 3.993917202516344*^9, 3.993933168757019*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"b26ba89a-02c0-4164-a23d-a82474a65e86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.730574083255006`*^-242\\\", \ \\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ 0000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 410, 29, 31384700030714061789, "Local"}, +number; precision may be lost.\"", 2, 102, 7, 31385539801306253772, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204262354183`*^9, {3.993805215795404*^9, 3.993805256759458*^9}}, + 3.9913204262354183`*^9, {3.993805215795404*^9, 3.993805256759458*^9}, + 3.993917202516344*^9, 3.993933168759836*^9}, CellLabel-> "During evaluation of \ -In[410]:=",ExpressionUUID->"d40bf55f-4a8e-46f2-9c9e-4757cf957859"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.3088879416027943`*^-232\\\", \ -\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ -0000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 410, 30, 31384700030714061789, "Local"}, - "MessageTemplate", - BaseStyle->"MSG"]], "Message", - CellChangeTimes->{ - 3.9913204262354183`*^9, {3.993805215795404*^9, 3.993805256762486*^9}}, - CellLabel-> - "During evaluation of \ -In[410]:=",ExpressionUUID->"72f464c4-d55f-43c4-b43d-d1214166f909"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0344647335513751`*^-238\\\", \ -\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ -6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ -number; precision may be lost.\"", 2, 410, 31, 31384700030714061789, "Local"}, - "MessageTemplate", - BaseStyle->"MSG"]], "Message", - CellChangeTimes->{ - 3.9913204262354183`*^9, {3.993805215795404*^9, 3.993805256765245*^9}}, - CellLabel-> - "During evaluation of \ -In[410]:=",ExpressionUUID->"37693fff-db52-4e6a-86a6-828e55fbca3d"], +In[102]:=",ExpressionUUID->"2c7657ae-b6ce-4044-bf32-ed04068b87b8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 410, 32, 31384700030714061789, "Local"}, +during this calculation.\"", 2, 102, 8, 31385539801306253772, "Local"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{ - 3.9913204262354183`*^9, {3.993805215795404*^9, 3.993805256767509*^9}}, + 3.9913204262354183`*^9, {3.993805215795404*^9, 3.993805256759458*^9}, + 3.993917202516344*^9, 3.9939331687623034`*^9}, CellLabel-> "During evaluation of \ -In[410]:=",ExpressionUUID->"a75008c2-9ac4-4918-b479-42cac89772da"], +In[102]:=",ExpressionUUID->"e3c55c4d-ef28-42d3-9e28-2c6477257f0c"], -Cell[BoxData["$Aborted"], "Output", +Cell[BoxData["5.424657094762231`"], "Output", CellChangeTimes->{ - 3.991320428882721*^9, {3.993805222464669*^9, 3.993805258392457*^9}}, + 3.991320428882721*^9, {3.993805222464669*^9, 3.993805258392457*^9}, + 3.993917204869219*^9, 3.993933169758078*^9}, CellLabel-> - "Out[410]=",ExpressionUUID->"9fd1adeb-3b53-4eab-a270-24732c5debbe"] + "Out[102]=",ExpressionUUID->"6e5df828-8d19-4ac9-b329-67aa79451167"] }, Open ]], Cell[CellGroupData[{ @@ -6667,13 +6579,394 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917994505623856`*^9}, CellLabel-> - "In[308]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], + "In[103]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[BoxData["$Aborted"], "Output", +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV03k0VV0YBnBzKkRCSGUsJDIT7TdDIkOJMhbXucdQyRS3FE2KDB9SqUiR +khApY0lIkhAqqXRlqHAnQxTl2/ePs876rfecZz9n7bMVKYedqXw8PDwMfHHv +oe0b11V2tm9xz/OPmaxjoC3M2wYUqyI05nQshWt6jmGGitUTdNesrI7rncQb +IRG9FyjPX2TZFHYZLbZR0KoNJb9JjOU6oXllfWzhWzQeqC0+jV3dGXpjXvcd +YhrO1HM92td6/GhtLyK0BtN+YcsNK3v+svyMWFaTp2ewd7COm4S3fUWvw9dl +zGLXzY8upRUOIN4HsS9+Y78/JRNdETyINo3OSc9hM4WsRqd0h1GzTFb8PLZQ +Uoi73swI6lrvI/cPe7VEdkto7Q9kILq9bQHbUf7XHablOEoQPpPK/4yByJtK +0lrCTHR19l2uIHasqlPcgTYW0gm2f7cIu1emZ1NEIQfRk/OuiWATHkGBF5Mm +0Guhs1rLsNlZPLceBk+i0tzzdAlsYSUtcY7uNLrXNXNHBjuDaLQRl/qFzDWJ +GjnstXfdY7VnfqHz2pMMBWzjDeeYh2pn0fBj2mMV7ADDr22jlvMou1WhWQ97 +inZEYInaX6R4/XqfEfbJ2qVm6sL/UMWo6TIz7Ewwvu/ftoAk3b70WnH75bdY +hRXyQpZ7EWMvdmHzRfopeT4Yk93E783t+33f8bQkPij6+M6Ygn1cY7q8NJgf +UmJiBA5x+z5QVGbpCkKixjaFs9h9neN1//IEIbumSe8Ct/9EpYeYlBAciPIN +SsUu0ndM15oRgt6IKaNs7KbqY7wHa4VhaP1Rlyrs6cburz8sReBibF36FPZy +exHx6DoRsJZv8viLrdNjBaImotDWcWa7UD0DBQ09vrlpoxjUdmhfWokdwtem +Yy4iDqr9WpNbsIeVSjhxvySgeNz9eTr2FNm6uENvOTBdW4eysfnujyiuDF0O +oqYMrXvYa/XWOBeOLQea/fZN9dgelqkP2+mSkKVuNc/C7vALC5d5LQVV+9/m +7nnOQP13UxJ9hKVB1lJVkcAeHyvMu2ctDcLGSi9CsZdEDHZvrpeGnKcrYpKx +rc666Ps8loHy3Fflzdg1tw2nC3JkYXhHrxY0MNDt4T+RphEKsP3Ynr1OjQy0 +3fV8f3ixAlwzSN3tgz3eJLmteEQB2DEXQkKx9W9vkFrrvhpMB5+KZGA3UfaV +C25ZA6FPl7b3YU+w6FE/zqwFsZTs8OAmBpI8ZPWo3EEJmoPXWpe8YKCR20sC +dgYpQZoXZ28jdtXnTnnGOSWQig5M7MX2svc+o1avBNUNO1z4m3E/zUjnq7rK +YBH97JAHtv7oXXaMjAokC16pE3vJQC7+S7XsBlRBXtjj7X8tDIQiXXX3/lWF +u6oFtAJsjbgcI0JWDbZJb0bPsXny9CxidqlBZZSmxiR2cb/n3ofP1eChqlyU +2yt8PvcUnZLLXQcWznbj61txPyuH96MUdag0SDIbeM1AebuvfJqJUYdByZDW +v9gplAG6wHV10EmNjJJrw//3ySNjq7vVQejlyEYXbIkn2Ty7LTVg4Jae5Cvs +ID2mRq2yJgwfjyytesNA8kr/xSYObYAOLVmDBx0M9OTClPpvPi2QfGJKdmF7 +Tbr3kIpaQI521k5j32hSUbfYpwXpYS49Zp0MpORf0zX7QQss6fE1bdgaRcOq +5OuNcKNbzWPyLQMpyK8m17rrQHPn+4+ePQy0IT9CZA7pgobwhrCrHxmIQpyZ +1nLUBeWtIk8bsDOV0/t9vHQhNcty3Tg2f+6D0maaLvC/K3VHffi83Rh1SS/T +haBKF8Pv2AmZPtnqynpAVzV5Y/YZ72+i/UY3IX0oURkiFvoZ6FaYys7HbQZg +4dXQNTDEQJ2RyOhsvgl4W38gbScZSHHfO0fvg+ZwP/PTxGV+JqIuVJQoHAXI +z/KaKFnBRDJjVYtkKBZwMzRAyESdiSL0zD6na1gBZwWvkMkWJqIw5lskR62h +4maiZ6QLExVbhC/K6bABcdmj8vuDmej2VNDzogxbGJxrfaYSz0SzW1e+aYrd +AZL++pK1+Uz0hYefM+DrAOveh193b2Ki4FWHU08pO0GIrOoJo29MVBLYUn8p +bifwNjScYPKz0LFJ2RnNwF2g/nO0OF6Fhabttu15ud8ZtHnLFWe3s5CJZ9rW +4V274dVyikrNIRbqks0OatJzAccXttUvUllI7s6ZJwXrXSGyRXdjWCULVdE1 +7B1F98BXnSAt0c8stLqH7R/J2AM7r4meVuJhI71LaUV59L1AligdGJRko2yB +yY3pjW4QA7DDXY2NKrZq98VVu4PVKakb9qZslGl0QWK+0AN6r9lrP3Vgo45P ++ef0kjxhhUjjWMF+NnrskKUSctILmnu25TeHsRHn0G6eYMIbNq2pvWB+lo2m +t6kHMC33QcKpG5WMDDYqYHycDTfcD3lVwuyoO2zkdivfz1vEB7yqF74ZV7BR ++cMd+/nP+wAnzdE8qZmNTOS7fif89gHDjxss+d6xkTLdv+9toC/Imv6d9f3G +RkNLDzhlDfpCXWNS+CiLjTpTHP1sXCmQw9O9Lm2OjTJoOUuPdFLAXis/XmwR +Bz2pW/jtZ+sHavSAgjUSHLTMC87r1fhBc/wZMV9ZDlq74mXHqid+kJSxwfc0 +tk6bw0qhOj84sJ96Iw/b2czzXu9zP2iMP9o7jJ2xKvL1iVd+IDDZbRcox0Fy +X+4va+n1A7sPl1QPynOQyj6ZTK8ZP+iI68v2VeAgEx9mQZw+ASfrdk0tUeSg +O1fZ4Y6GBGheXvtHBXtF98QWGWMCbo1njW/BZlrP9BRsJiA+4NKVMOzbmjy8 +bRYEdBjYCn7EFpuRcF++i4DVsv3muUocNJRssDjnEAHn3NZIqalw0K6XRj3+ +hwkIenq+yBy7jsc0RyeUgOuGnjqu2FfDtxg0RBAwd3rz3zPYju42vsPRBHQW +FN6nY1eruFdrXiDg+6U098uqHJRSezyw6g4BXRzb8Qk1Djqke8WEVkDAnfeb +8xat4yD7e2WLjQsJsHNWslmFveTKyL3KYgLSKc2u1thxYTtHKx4R4J9olnIZ ++7i6yoHHDQRslQ4PMljPQUFXXh982E9A8JGfTYQ6B9mKjZiF0QmwaHSSicJe +H8cjqvuNAD8d2p4E7JEwg+KyYQK6YxdfL8b2dcxhlI4T4DEuYD6N7SYYHvzg +DwHD7fKDJzU4yCZcLqRImgqT9rwlCZoc1JBzzi59JRUEyHHmNWyztgkVmhwV +or7NryzC1lF9/dFyNRUSos6vb8eW/RBt+UmVCu/vSRlIbOCgMdMv0ksMqCDF +/5DvIvZ/fDef+u+mQuaSzdQ4Lfz92iKZDq5UsKltf3kR+6wnLUxvLxXMTu+V +zMWmPdq5bsGDCi6fLKh12L4kb9plChW2sTymprH1WinEi1AqVNEC63w2ctCH +NNWlyqm4r5XpbxVtDipBogE/0qiwpm2wXBv7LGOqqfgiFXyyPTxMsXVtm2KM +r1DBMKUoyAk7hcdvwuEGFbI0X2XSsLcdvvmRVkSF+jE1jZfYCgrxhltKqPBi +xvxWJ/ZU6+GL/KVUOPdphUAfdq4ackgpp0KD8ELSOPbfL1/q82qo4B/84L64 +Dgc9spcvaG+hAl/6R3lX7MQ/fIIZrVRwKLro6I1NKRj1dW+jgt1n3kNUbHGB +GvmhDipMv5w5eAT7YK3bf7/fU8HZyOhoBrayxuVIlWEqgOORhnbsPx9OdP8c +ocI8v3LpO+zOOKrOgx94/bpjCZ+xYwb0R03GqRA4q7rwE7svs9vbaZIKnwY8 +f/Fv4qD0RRLWx3hJsFBul9THfjLxxTOCn4Qv+hyKKfb3L4VhwYIkbKA9zARs +s0dWNymLSYhfEKmyxx7xoc3ZSZCQfFm82Q9b3N56ubUkCcUFknaB2JuNlqsj +KRKihUsfBWOnihbt0ZMlgQx9aH6UO6/5WiavSEJAXfvqZGwyv6hFSpmEMN7k +D2nc51OPfl2mSsKJvfTIy9z1SElRAXUS0ndZBeZw55I2AeM6JHy/PbWqFLvm +n2TsiC4JtzMclzzCHv5Jv0TXJ8FUyLS/Etu0/lhjjzEJz3sbTZ5hDx0sWf0U +SFj/KPNZG7aYW7RBpQUJarIRAx3YJpbb7cusSIhb2f+zCztF9tvR/O0kiOd7 +lfRiVwk8SM2xI2FTZkjQJ+xBVvTdq/Yk5HMkRPuxjZul3iXvJCG7fk5wEJtS +9m3svDMJu8ssvYaxk7Me8J12IaH+n8zV79jfwmx1It1I8GgkmsewRfdJ24R4 +kDDd+rmCwc2zHfQO8sJ9d9KTWdz315xI3OdDQpBEAmuC22eJXa4bBc8ntY5N +cfOmpaudCRL6sr3Hprl5A4Md9iQJ86MyljPcvLbSkW0BJDyu8Do1y+1XeeIv +BJHQ8lXzzm9ufq7dis0H8X7axJX94eYny2gaBJMQ0xWQN8fNpw1t1Q4h4R/5 +PnoeW4Qoc1MPIyGT+cb0L7aRU8xh5QgS9rk60bmmmO44pxBJgugFj4P/sJNU +V2bL0EgQjmH1c10hPlwucYwEL1Ux4wXsgbmy1qXHSaiOrIjiWuR7zIBgDAmx +B35kc23YtWN2IZaEooW8Qq7/B55FJKY= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03k0VV0YBnBzKkRCSGUsJDIT7TdDIkOJMhbXucdQyRS3FE2KDB9SqUiR +khApY0lIkhAqqXRlqHAnQxTl2/ePs876rfecZz9n7bMVKYedqXw8PDwMfHHv +oe0b11V2tm9xz/OPmaxjoC3M2wYUqyI05nQshWt6jmGGitUTdNesrI7rncQb +IRG9FyjPX2TZFHYZLbZR0KoNJb9JjOU6oXllfWzhWzQeqC0+jV3dGXpjXvcd +YhrO1HM92td6/GhtLyK0BtN+YcsNK3v+svyMWFaTp2ewd7COm4S3fUWvw9dl +zGLXzY8upRUOIN4HsS9+Y78/JRNdETyINo3OSc9hM4WsRqd0h1GzTFb8PLZQ +Uoi73swI6lrvI/cPe7VEdkto7Q9kILq9bQHbUf7XHablOEoQPpPK/4yByJtK +0lrCTHR19l2uIHasqlPcgTYW0gm2f7cIu1emZ1NEIQfRk/OuiWATHkGBF5Mm +0Guhs1rLsNlZPLceBk+i0tzzdAlsYSUtcY7uNLrXNXNHBjuDaLQRl/qFzDWJ +GjnstXfdY7VnfqHz2pMMBWzjDeeYh2pn0fBj2mMV7ADDr22jlvMou1WhWQ97 +inZEYInaX6R4/XqfEfbJ2qVm6sL/UMWo6TIz7Ewwvu/ftoAk3b70WnH75bdY +hRXyQpZ7EWMvdmHzRfopeT4Yk93E783t+33f8bQkPij6+M6Ygn1cY7q8NJgf +UmJiBA5x+z5QVGbpCkKixjaFs9h9neN1//IEIbumSe8Ct/9EpYeYlBAciPIN +SsUu0ndM15oRgt6IKaNs7KbqY7wHa4VhaP1Rlyrs6cburz8sReBibF36FPZy +exHx6DoRsJZv8viLrdNjBaImotDWcWa7UD0DBQ09vrlpoxjUdmhfWokdwtem +Yy4iDqr9WpNbsIeVSjhxvySgeNz9eTr2FNm6uENvOTBdW4eysfnujyiuDF0O +oqYMrXvYa/XWOBeOLQea/fZN9dgelqkP2+mSkKVuNc/C7vALC5d5LQVV+9/m +7nnOQP13UxJ9hKVB1lJVkcAeHyvMu2ctDcLGSi9CsZdEDHZvrpeGnKcrYpKx +rc666Ps8loHy3Fflzdg1tw2nC3JkYXhHrxY0MNDt4T+RphEKsP3Ynr1OjQy0 +3fV8f3ixAlwzSN3tgz3eJLmteEQB2DEXQkKx9W9vkFrrvhpMB5+KZGA3UfaV +C25ZA6FPl7b3YU+w6FE/zqwFsZTs8OAmBpI8ZPWo3EEJmoPXWpe8YKCR20sC +dgYpQZoXZ28jdtXnTnnGOSWQig5M7MX2svc+o1avBNUNO1z4m3E/zUjnq7rK +YBH97JAHtv7oXXaMjAokC16pE3vJQC7+S7XsBlRBXtjj7X8tDIQiXXX3/lWF +u6oFtAJsjbgcI0JWDbZJb0bPsXny9CxidqlBZZSmxiR2cb/n3ofP1eChqlyU +2yt8PvcUnZLLXQcWznbj61txPyuH96MUdag0SDIbeM1AebuvfJqJUYdByZDW +v9gplAG6wHV10EmNjJJrw//3ySNjq7vVQejlyEYXbIkn2Ty7LTVg4Jae5Cvs +ID2mRq2yJgwfjyytesNA8kr/xSYObYAOLVmDBx0M9OTClPpvPi2QfGJKdmF7 +Tbr3kIpaQI521k5j32hSUbfYpwXpYS49Zp0MpORf0zX7QQss6fE1bdgaRcOq +5OuNcKNbzWPyLQMpyK8m17rrQHPn+4+ePQy0IT9CZA7pgobwhrCrHxmIQpyZ +1nLUBeWtIk8bsDOV0/t9vHQhNcty3Tg2f+6D0maaLvC/K3VHffi83Rh1SS/T +haBKF8Pv2AmZPtnqynpAVzV5Y/YZ72+i/UY3IX0oURkiFvoZ6FaYys7HbQZg +4dXQNTDEQJ2RyOhsvgl4W38gbScZSHHfO0fvg+ZwP/PTxGV+JqIuVJQoHAXI +z/KaKFnBRDJjVYtkKBZwMzRAyESdiSL0zD6na1gBZwWvkMkWJqIw5lskR62h +4maiZ6QLExVbhC/K6bABcdmj8vuDmej2VNDzogxbGJxrfaYSz0SzW1e+aYrd +AZL++pK1+Uz0hYefM+DrAOveh193b2Ki4FWHU08pO0GIrOoJo29MVBLYUn8p +bifwNjScYPKz0LFJ2RnNwF2g/nO0OF6Fhabttu15ud8ZtHnLFWe3s5CJZ9rW +4V274dVyikrNIRbqks0OatJzAccXttUvUllI7s6ZJwXrXSGyRXdjWCULVdE1 +7B1F98BXnSAt0c8stLqH7R/J2AM7r4meVuJhI71LaUV59L1AligdGJRko2yB +yY3pjW4QA7DDXY2NKrZq98VVu4PVKakb9qZslGl0QWK+0AN6r9lrP3Vgo45P ++ef0kjxhhUjjWMF+NnrskKUSctILmnu25TeHsRHn0G6eYMIbNq2pvWB+lo2m +t6kHMC33QcKpG5WMDDYqYHycDTfcD3lVwuyoO2zkdivfz1vEB7yqF74ZV7BR ++cMd+/nP+wAnzdE8qZmNTOS7fif89gHDjxss+d6xkTLdv+9toC/Imv6d9f3G +RkNLDzhlDfpCXWNS+CiLjTpTHP1sXCmQw9O9Lm2OjTJoOUuPdFLAXis/XmwR +Bz2pW/jtZ+sHavSAgjUSHLTMC87r1fhBc/wZMV9ZDlq74mXHqid+kJSxwfc0 +tk6bw0qhOj84sJ96Iw/b2czzXu9zP2iMP9o7jJ2xKvL1iVd+IDDZbRcox0Fy +X+4va+n1A7sPl1QPynOQyj6ZTK8ZP+iI68v2VeAgEx9mQZw+ASfrdk0tUeSg +O1fZ4Y6GBGheXvtHBXtF98QWGWMCbo1njW/BZlrP9BRsJiA+4NKVMOzbmjy8 +bRYEdBjYCn7EFpuRcF++i4DVsv3muUocNJRssDjnEAHn3NZIqalw0K6XRj3+ +hwkIenq+yBy7jsc0RyeUgOuGnjqu2FfDtxg0RBAwd3rz3zPYju42vsPRBHQW +FN6nY1eruFdrXiDg+6U098uqHJRSezyw6g4BXRzb8Qk1Djqke8WEVkDAnfeb +8xat4yD7e2WLjQsJsHNWslmFveTKyL3KYgLSKc2u1thxYTtHKx4R4J9olnIZ ++7i6yoHHDQRslQ4PMljPQUFXXh982E9A8JGfTYQ6B9mKjZiF0QmwaHSSicJe +H8cjqvuNAD8d2p4E7JEwg+KyYQK6YxdfL8b2dcxhlI4T4DEuYD6N7SYYHvzg +DwHD7fKDJzU4yCZcLqRImgqT9rwlCZoc1JBzzi59JRUEyHHmNWyztgkVmhwV +or7NryzC1lF9/dFyNRUSos6vb8eW/RBt+UmVCu/vSRlIbOCgMdMv0ksMqCDF +/5DvIvZ/fDef+u+mQuaSzdQ4Lfz92iKZDq5UsKltf3kR+6wnLUxvLxXMTu+V +zMWmPdq5bsGDCi6fLKh12L4kb9plChW2sTymprH1WinEi1AqVNEC63w2ctCH +NNWlyqm4r5XpbxVtDipBogE/0qiwpm2wXBv7LGOqqfgiFXyyPTxMsXVtm2KM +r1DBMKUoyAk7hcdvwuEGFbI0X2XSsLcdvvmRVkSF+jE1jZfYCgrxhltKqPBi +xvxWJ/ZU6+GL/KVUOPdphUAfdq4ackgpp0KD8ELSOPbfL1/q82qo4B/84L64 +Dgc9spcvaG+hAl/6R3lX7MQ/fIIZrVRwKLro6I1NKRj1dW+jgt1n3kNUbHGB +GvmhDipMv5w5eAT7YK3bf7/fU8HZyOhoBrayxuVIlWEqgOORhnbsPx9OdP8c +ocI8v3LpO+zOOKrOgx94/bpjCZ+xYwb0R03GqRA4q7rwE7svs9vbaZIKnwY8 +f/Fv4qD0RRLWx3hJsFBul9THfjLxxTOCn4Qv+hyKKfb3L4VhwYIkbKA9zARs +s0dWNymLSYhfEKmyxx7xoc3ZSZCQfFm82Q9b3N56ubUkCcUFknaB2JuNlqsj +KRKihUsfBWOnihbt0ZMlgQx9aH6UO6/5WiavSEJAXfvqZGwyv6hFSpmEMN7k +D2nc51OPfl2mSsKJvfTIy9z1SElRAXUS0ndZBeZw55I2AeM6JHy/PbWqFLvm +n2TsiC4JtzMclzzCHv5Jv0TXJ8FUyLS/Etu0/lhjjzEJz3sbTZ5hDx0sWf0U +SFj/KPNZG7aYW7RBpQUJarIRAx3YJpbb7cusSIhb2f+zCztF9tvR/O0kiOd7 +lfRiVwk8SM2xI2FTZkjQJ+xBVvTdq/Yk5HMkRPuxjZul3iXvJCG7fk5wEJtS +9m3svDMJu8ssvYaxk7Me8J12IaH+n8zV79jfwmx1It1I8GgkmsewRfdJ24R4 +kDDd+rmCwc2zHfQO8sJ9d9KTWdz315xI3OdDQpBEAmuC22eJXa4bBc8ntY5N +cfOmpaudCRL6sr3Hprl5A4Md9iQJ86MyljPcvLbSkW0BJDyu8Do1y+1XeeIv +BJHQ8lXzzm9ufq7dis0H8X7axJX94eYny2gaBJMQ0xWQN8fNpw1t1Q4h4R/5 +PnoeW4Qoc1MPIyGT+cb0L7aRU8xh5QgS9rk60bmmmO44pxBJgugFj4P/sJNU +V2bL0EgQjmH1c10hPlwucYwEL1Ux4wXsgbmy1qXHSaiOrIjiWuR7zIBgDAmx +B35kc23YtWN2IZaEooW8Qq7/B55FJKY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9295594662517984, + 1.0747067132615298`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9295594662518005}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.9295594662517984, + 1.0747067132615298`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9295594662518005}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03k0VV0YBnBzKkRCSGUsJDIT7TdDIkOJMhbXucdQyRS3FE2KDB9SqUiR +khApY0lIkhAqqXRlqHAnQxTl2/ePs876rfecZz9n7bMVKYedqXw8PDwMfHHv +oe0b11V2tm9xz/OPmaxjoC3M2wYUqyI05nQshWt6jmGGitUTdNesrI7rncQb +IRG9FyjPX2TZFHYZLbZR0KoNJb9JjOU6oXllfWzhWzQeqC0+jV3dGXpjXvcd +YhrO1HM92td6/GhtLyK0BtN+YcsNK3v+svyMWFaTp2ewd7COm4S3fUWvw9dl +zGLXzY8upRUOIN4HsS9+Y78/JRNdETyINo3OSc9hM4WsRqd0h1GzTFb8PLZQ +Uoi73swI6lrvI/cPe7VEdkto7Q9kILq9bQHbUf7XHablOEoQPpPK/4yByJtK +0lrCTHR19l2uIHasqlPcgTYW0gm2f7cIu1emZ1NEIQfRk/OuiWATHkGBF5Mm +0Guhs1rLsNlZPLceBk+i0tzzdAlsYSUtcY7uNLrXNXNHBjuDaLQRl/qFzDWJ +GjnstXfdY7VnfqHz2pMMBWzjDeeYh2pn0fBj2mMV7ADDr22jlvMou1WhWQ97 +inZEYInaX6R4/XqfEfbJ2qVm6sL/UMWo6TIz7Ewwvu/ftoAk3b70WnH75bdY +hRXyQpZ7EWMvdmHzRfopeT4Yk93E783t+33f8bQkPij6+M6Ygn1cY7q8NJgf +UmJiBA5x+z5QVGbpCkKixjaFs9h9neN1//IEIbumSe8Ct/9EpYeYlBAciPIN +SsUu0ndM15oRgt6IKaNs7KbqY7wHa4VhaP1Rlyrs6cburz8sReBibF36FPZy +exHx6DoRsJZv8viLrdNjBaImotDWcWa7UD0DBQ09vrlpoxjUdmhfWokdwtem +Yy4iDqr9WpNbsIeVSjhxvySgeNz9eTr2FNm6uENvOTBdW4eysfnujyiuDF0O +oqYMrXvYa/XWOBeOLQea/fZN9dgelqkP2+mSkKVuNc/C7vALC5d5LQVV+9/m +7nnOQP13UxJ9hKVB1lJVkcAeHyvMu2ctDcLGSi9CsZdEDHZvrpeGnKcrYpKx +rc666Ps8loHy3Fflzdg1tw2nC3JkYXhHrxY0MNDt4T+RphEKsP3Ynr1OjQy0 +3fV8f3ixAlwzSN3tgz3eJLmteEQB2DEXQkKx9W9vkFrrvhpMB5+KZGA3UfaV +C25ZA6FPl7b3YU+w6FE/zqwFsZTs8OAmBpI8ZPWo3EEJmoPXWpe8YKCR20sC +dgYpQZoXZ28jdtXnTnnGOSWQig5M7MX2svc+o1avBNUNO1z4m3E/zUjnq7rK +YBH97JAHtv7oXXaMjAokC16pE3vJQC7+S7XsBlRBXtjj7X8tDIQiXXX3/lWF +u6oFtAJsjbgcI0JWDbZJb0bPsXny9CxidqlBZZSmxiR2cb/n3ofP1eChqlyU +2yt8PvcUnZLLXQcWznbj61txPyuH96MUdag0SDIbeM1AebuvfJqJUYdByZDW +v9gplAG6wHV10EmNjJJrw//3ySNjq7vVQejlyEYXbIkn2Ty7LTVg4Jae5Cvs +ID2mRq2yJgwfjyytesNA8kr/xSYObYAOLVmDBx0M9OTClPpvPi2QfGJKdmF7 +Tbr3kIpaQI521k5j32hSUbfYpwXpYS49Zp0MpORf0zX7QQss6fE1bdgaRcOq +5OuNcKNbzWPyLQMpyK8m17rrQHPn+4+ePQy0IT9CZA7pgobwhrCrHxmIQpyZ +1nLUBeWtIk8bsDOV0/t9vHQhNcty3Tg2f+6D0maaLvC/K3VHffi83Rh1SS/T +haBKF8Pv2AmZPtnqynpAVzV5Y/YZ72+i/UY3IX0oURkiFvoZ6FaYys7HbQZg +4dXQNTDEQJ2RyOhsvgl4W38gbScZSHHfO0fvg+ZwP/PTxGV+JqIuVJQoHAXI +z/KaKFnBRDJjVYtkKBZwMzRAyESdiSL0zD6na1gBZwWvkMkWJqIw5lskR62h +4maiZ6QLExVbhC/K6bABcdmj8vuDmej2VNDzogxbGJxrfaYSz0SzW1e+aYrd +AZL++pK1+Uz0hYefM+DrAOveh193b2Ki4FWHU08pO0GIrOoJo29MVBLYUn8p +bifwNjScYPKz0LFJ2RnNwF2g/nO0OF6Fhabttu15ud8ZtHnLFWe3s5CJZ9rW +4V274dVyikrNIRbqks0OatJzAccXttUvUllI7s6ZJwXrXSGyRXdjWCULVdE1 +7B1F98BXnSAt0c8stLqH7R/J2AM7r4meVuJhI71LaUV59L1AligdGJRko2yB +yY3pjW4QA7DDXY2NKrZq98VVu4PVKakb9qZslGl0QWK+0AN6r9lrP3Vgo45P ++ef0kjxhhUjjWMF+NnrskKUSctILmnu25TeHsRHn0G6eYMIbNq2pvWB+lo2m +t6kHMC33QcKpG5WMDDYqYHycDTfcD3lVwuyoO2zkdivfz1vEB7yqF74ZV7BR ++cMd+/nP+wAnzdE8qZmNTOS7fif89gHDjxss+d6xkTLdv+9toC/Imv6d9f3G +RkNLDzhlDfpCXWNS+CiLjTpTHP1sXCmQw9O9Lm2OjTJoOUuPdFLAXis/XmwR +Bz2pW/jtZ+sHavSAgjUSHLTMC87r1fhBc/wZMV9ZDlq74mXHqid+kJSxwfc0 +tk6bw0qhOj84sJ96Iw/b2czzXu9zP2iMP9o7jJ2xKvL1iVd+IDDZbRcox0Fy +X+4va+n1A7sPl1QPynOQyj6ZTK8ZP+iI68v2VeAgEx9mQZw+ASfrdk0tUeSg +O1fZ4Y6GBGheXvtHBXtF98QWGWMCbo1njW/BZlrP9BRsJiA+4NKVMOzbmjy8 +bRYEdBjYCn7EFpuRcF++i4DVsv3muUocNJRssDjnEAHn3NZIqalw0K6XRj3+ +hwkIenq+yBy7jsc0RyeUgOuGnjqu2FfDtxg0RBAwd3rz3zPYju42vsPRBHQW +FN6nY1eruFdrXiDg+6U098uqHJRSezyw6g4BXRzb8Qk1Djqke8WEVkDAnfeb +8xat4yD7e2WLjQsJsHNWslmFveTKyL3KYgLSKc2u1thxYTtHKx4R4J9olnIZ ++7i6yoHHDQRslQ4PMljPQUFXXh982E9A8JGfTYQ6B9mKjZiF0QmwaHSSicJe +H8cjqvuNAD8d2p4E7JEwg+KyYQK6YxdfL8b2dcxhlI4T4DEuYD6N7SYYHvzg +DwHD7fKDJzU4yCZcLqRImgqT9rwlCZoc1JBzzi59JRUEyHHmNWyztgkVmhwV +or7NryzC1lF9/dFyNRUSos6vb8eW/RBt+UmVCu/vSRlIbOCgMdMv0ksMqCDF +/5DvIvZ/fDef+u+mQuaSzdQ4Lfz92iKZDq5UsKltf3kR+6wnLUxvLxXMTu+V +zMWmPdq5bsGDCi6fLKh12L4kb9plChW2sTymprH1WinEi1AqVNEC63w2ctCH +NNWlyqm4r5XpbxVtDipBogE/0qiwpm2wXBv7LGOqqfgiFXyyPTxMsXVtm2KM +r1DBMKUoyAk7hcdvwuEGFbI0X2XSsLcdvvmRVkSF+jE1jZfYCgrxhltKqPBi +xvxWJ/ZU6+GL/KVUOPdphUAfdq4ackgpp0KD8ELSOPbfL1/q82qo4B/84L64 +Dgc9spcvaG+hAl/6R3lX7MQ/fIIZrVRwKLro6I1NKRj1dW+jgt1n3kNUbHGB +GvmhDipMv5w5eAT7YK3bf7/fU8HZyOhoBrayxuVIlWEqgOORhnbsPx9OdP8c +ocI8v3LpO+zOOKrOgx94/bpjCZ+xYwb0R03GqRA4q7rwE7svs9vbaZIKnwY8 +f/Fv4qD0RRLWx3hJsFBul9THfjLxxTOCn4Qv+hyKKfb3L4VhwYIkbKA9zARs +s0dWNymLSYhfEKmyxx7xoc3ZSZCQfFm82Q9b3N56ubUkCcUFknaB2JuNlqsj +KRKihUsfBWOnihbt0ZMlgQx9aH6UO6/5WiavSEJAXfvqZGwyv6hFSpmEMN7k +D2nc51OPfl2mSsKJvfTIy9z1SElRAXUS0ndZBeZw55I2AeM6JHy/PbWqFLvm +n2TsiC4JtzMclzzCHv5Jv0TXJ8FUyLS/Etu0/lhjjzEJz3sbTZ5hDx0sWf0U +SFj/KPNZG7aYW7RBpQUJarIRAx3YJpbb7cusSIhb2f+zCztF9tvR/O0kiOd7 +lfRiVwk8SM2xI2FTZkjQJ+xBVvTdq/Yk5HMkRPuxjZul3iXvJCG7fk5wEJtS +9m3svDMJu8ssvYaxk7Me8J12IaH+n8zV79jfwmx1It1I8GgkmsewRfdJ24R4 +kDDd+rmCwc2zHfQO8sJ9d9KTWdz315xI3OdDQpBEAmuC22eJXa4bBc8ntY5N +cfOmpaudCRL6sr3Hprl5A4Md9iQJ86MyljPcvLbSkW0BJDyu8Do1y+1XeeIv +BJHQ8lXzzm9ufq7dis0H8X7axJX94eYny2gaBJMQ0xWQN8fNpw1t1Q4h4R/5 +PnoeW4Qoc1MPIyGT+cb0L7aRU8xh5QgS9rk60bmmmO44pxBJgugFj4P/sJNU +V2bL0EgQjmH1c10hPlwucYwEL1Ux4wXsgbmy1qXHSaiOrIjiWuR7zIBgDAmx +B35kc23YtWN2IZaEooW8Qq7/B55FJKY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.9295594662517984, 1.0747067132615298`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9295594662518005}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.9295594662518005}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9295594662517984, 1.0747067132615298`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ - 3.9913206956809444`*^9, {3.993805237826736*^9, 3.993805251667965*^9}}, + 3.9913206956809444`*^9, {3.993805237826736*^9, 3.993805251667965*^9}, + 3.9939175493953457`*^9, 3.993933306781334*^9}, CellLabel-> - "Out[308]=",ExpressionUUID->"672a2f93-3138-4dba-b849-07d133aa8f1f"] + "Out[103]=",ExpressionUUID->"ad96e8ef-a370-4562-b2ab-d65bef6c9fcf"] }, Open ]], Cell[CellGroupData[{ @@ -6736,274 +7029,163 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ -9aed2c391662"], + CellChangeTimes->{3.9917994543716736`*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696298666*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.232957594733881`*^-273\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 9, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993917549605876*^9, + 3.9939333069983892`*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +In[104]:=",ExpressionUUID->"3ad43e01-ee23-4107-a832-45c4f85f76d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 86, - 10, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696309664*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.026383005210518`*^-285\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 10, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993917549605876*^9, + 3.9939333070019283`*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +In[104]:=",ExpressionUUID->"7c2addad-1d59-413c-8511-162ca08ee807"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 86, 11, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696318653*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1409800841994853`*^-298\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 11, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993917549605876*^9, + 3.993933307005231*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +In[104]:=",ExpressionUUID->"cbbc48d8-6759-4141-b2bd-1855b9735a3c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913206963286114`*^9}, +during this calculation.\"", 2, 104, 12, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993917549605876*^9, + 3.993933307008398*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +In[104]:=",ExpressionUUID->"b3f67f4a-8474-456a-8805-94bd8e10cd2c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VdsXAPDKe5oMIZmHe881i6iI3NYSUgolKlIUcuUmlcxlKLOQIZKh +uCTce+KVqZQiDYaiMpZC9V6SMUTJ7/z+OJ/z+X7253P2WvvsvfaiHT1p47Zk +0aJFf6jn/+/pvucNjDjOlt4Y672HTDZveZMjGWDcFQ6WQWlNBkukAMVfHpXs +SoaW2jOyi5eoge/u4k6+rjwwrE3Qf7/YAERGJJJnO8vBpemvVdzFO+DDfauT +Pzofw+S6/9RkF9vDNsbQ+/HOdjCTbYwd+8OC2U79tLHOAdBwlOu2nvaHepOb +nLa8SdAXHDFX740B2Q/VX45qzsPXio89Y/wpsJrtVLzUhA93RdE4Oq0ZkKyz +7Z6V3TIMFprhq32aA90Z6+rGVwniNhfrPW+X5EEcJ+TlEikR1N/9SuBpPgck +UgdjUrLFcC/nhPhfvwohynbHlvZpcbQY/PsLc6QIzhjccHoeLokur3t8rBqL +weK60I+d8ZLYO9ARzmkuBvrS4OjWNEnUjs/ym24vhldv9pW9LpLE9YcTxRI+ +FIOWtwBfX6skXn6TvjT+ZzH8V+hXOCEthauE6/weq5WA42qr7zL/SKGknYzn +mpgSMB2dC/QalMZPRtlXzDaXQsD2VPVHw9Joxm0L9sNS4N1Y2yM2LY0v82wd +C8xKQdLW2aB6mQw+Ez3GP2VdCsNVT2b4tGRwZXjTIlfXUkgJT/K56i+Dd4UP +Hg2NL4UBcWWvBkFZXDhVdLOsuxQkTj6Uk5CQxQdBXx2P9pXCrmcHWjwUZbG2 +eSu/8GApVATGaQqvl8Udoh0bHIdLIfbD2JD9AVlUfN7958mfUtC9dc99NE8W +E5gbN3TSuRBmtOeI9CY5jPS6XT/qzoXth3Mm9LfKYdX9rMoANheEQr9dsNsl +h2k/TL/88eZCVn1EYZKzHBZq9k7OBXChyqLmG3+MHOYVDL6qjuPC2AHCd7Jb +DqMMS7NseFw4fHYqtjlIHtc48guPj3JBKX2r7FCEPPqK9QUOTHKp/BO5S5Pk +UanAlfFyhguBv9VebeXI46MGbZ3MBS6kXTgsXt0sj9EZ7/RmhHjQfPlpboGc +Al7UiFZo0eSBIe/qnfMPFdBSgyM45MoD087W+ZFnCng3953TChYPrBb9Ze7U +roDsaq1UZU8euNh4dcNnBVwsuZZjc4oH24JoIaF/K+K34zSPgHM88FaYzjfW +UMSGo9aNi9N40OCe+73eVxE7VuTOLNTxYMdvA9HgIEXU99ulmF3Pg9akN3ob +QhUxV0p7o14jD7qrl4dyYhTxNYgqOTbxYGSlj2hEliKe1/uh4veWB5K3t+tv +e6yI8uoyokP/8YD9czz0mSAN7w+xXRsFSDA8dWzNF1EaKoqIzAkJk7BsqKeE +T5KGASpmb21ESCjore/YQqfh7IvWw83iJPQ9SNO8q0fDd571LyPlSbCOMOi6 +4URDG/FnlVLaJMj/4Z546ErD/CCJiTU6JAz70vnee9Cwe7lxsPB6EqJZK7Uk +fWjoHv0ufEKPhLqd7y8kRNNwpiqaHbqFBF3RMO2gMhqe+jJpfX8XCYviphoy +Kmi4aH6218uKhFa+4w4V96h4/hjXy+4mwXPKJmL8CQ3dFtILj+8lgdPF6HXv +oWHoisy3rfYkrMl9FmnLR0dbgxPh1W4kfJJgyp5eRkf3gXZ5ujsJ5UllZYmC +dIx9OUOPZFH5hGe+eyFBx47pejf0pOJ1Y+saa9JxkBsyfM6bhFmNVX1r7eh4 +fNmjGrlAEqazpcPWO9CRFzW5oB9Ewg9hJYaBEx3zdRI+WQaTMDJpcNzUg44w +sSeRfZ6EgXsu0w7nKB+5EX42nIQPa72uOofTcWNrVg/7Agnvcv2NjkXRUYBs +6HK6SELHhUvhpy7T8d9ywaZNkSS82FkpFF1Ax/SJwdyKGBKe1j4qu1RMx5HC +a8ZxsSQ0aDfbppB03JEfknQwjoQHYv2ZOdV0lHp9yGA0nsq3d4XK3RY6Iif3 +1UAiCaSl+Iuadjreqv/wIzWJhNKHCifqOumYHBHZsvUyCYX5G/5p6qfje9OK +3MvJJGR6HoaBKTp+X5XW/yuVhPT3rIF/5+iYsG/ucVwaCanWZyK+L9BxhYSh +s8QVEhLWRzf9XE7g5maxdlo6CXEFyV5/hAjcZ5dWdJ1ytES2yF+rCZQKq9si +k0FC+K+y/cLyBHrEDHP5rpIQcuL+3GqCwJqZ3uhTlIM/NGZLqxKoomGj0kvZ +t753UEmXwIuXqstvZJJwZuOXSA19AmMNr9/4Q9n75piajhGBjTd/7t9/jdov +cX97G20j0GjdpPxvyqx5YbGtOwl8wLmssz2LhGMnpSvMdxP4OzZTOImySz/D +3tKOwBZtoZrXlJ33av+2cSDwXtV3HbFsEg49Mcg94ETNT2z2t6LsoG+69bAr +gWFms5ciKO+/ZfXZxYNA6SYNnyrKtjL20R5eBO7U79T4l/KeSy4aJ88QKDC4 +qEIkhwSrhROtPv4EPvnNE9tEeecp/1OB5yhH/WfmQHn7YPjq0HAq3oN3Lf0p +m9ldqoyIIlCdIa+ZTHnr03SHuHgCW500B25SBoO8+aTLBCo6D3lXUzYqKb1+ +5QqBDdtduhsp9yqW5JpdI/AKqZbzknLglVs5P3IJHJl4+uwNZUmBoux8DpUv +T9Khg3JlWGGWzS0CbWRnbP4/vm+Gc20xj8BFonCnlfIPdn7m7XICeUtazj+h +nDJw46pTJYFB8+f+qaKse+B6htB9AvdytfcWUW5ryUmvrSMw8UDd4VTK3ibZ +V9hPCEz4KNQZTFm4+lqazAsC9z+au3+EMk8rM/VFK5WviKuICWVLTkZKwGsC +14ZqvFWkPCyVnqzaReD3/brLf1HrG5uYdrnzHYFCQQ68Nspqf6cmRfYT2O8a ++YRD+VlgcuLGLwTOqV619qF8bCwp4dMQtX6nfS2RMqf3UvzWH1R8hvSiFur/ +m+yJjxv/SeAWvnv8iZQHGmNjr88T6Pyl/N0uyorlUdF/+Bmo9vfBiVpqfz1U +iYzirmRgrWHP+lOUD2dfjHRcxcAX5/aNKVK+Fh12sUaKgQfDh96fpfbrGqeg +UF9NBg7RFQqmqPNw901AiJIOA4330LriKdta+J9/s5GBf1T8LylSTt54NlgX +GMg+1RPOpM6ToMBJ/5E9DLT1Syy3pM5jadgJv+x9DCwZ3y36nDqvFjOevrsO +MnDL1MAvpBw9wPIpdmVguqKxt3IKCX9VH/U+5sfAluzQn0+pepCvdeSkeDAD +JVcfeqRCeSvHyashlIGFnrdkLlL1IyTRkU2PZWBXg2e0bgIJc277WH1ZDNTy +Ljl0jKo/46IWzvseM3CcP6BNPYKELjb91fGnDJT59PGNMVXf6hrnIKSZgYlS +5v22VP1LCixRKOpgYKUoQ/pkGAnrBgQ+zA4xcFtqn7bPORK8yl4eyhZTwiv2 +aSsf+1D7b2VRS5mkEna8f7cp8wwJW9xCmY1ySlgx8fyC12lqPaR05EZVlPBr +XoffSqp+l4Ymv0MjJczwKp1fQ9X3IWu7g59cqXFYVnzWmYT2W2ubfnoo4faI +h7tXOZFQw8e/WfCkEhaae6vfPERCTGWFtF6AEsZ+Vgt+7kCCqoJkT9QlJVxj +Ivrwoy0J7iM9BzQqlPDobtaUw3bqvol33nd6qTKebknsjtKk4h/SpK8TUMaq +kk8uTeokzJjPfv++Shn7VZlPVqqRsIIvOcJDWhn3TuSIXFCi8g+ov+O8VhmD +2hvHd1L37Tk3ZTHrvcq4QWxlhzl1X6/ZMvxSI1cZC+9m+I6N8OD6taprX/OV +cXHqGbW2YR6ozV50v1mkjBYTZt28IR4Y3ZFboJcrY6v9rQ1HvlD9ibq1lvQT +ZawzY/2+8Z4Ht9eUxy/7pozm+u8/plL9xI5Rvx2f9VRQ7olvxvYCHsjqyEcu +M1LBz7Zun9PyqH7jdMNjDWMVrBI82fkhlwep06uMTu9UwYzSDWUemTzom7+l +teCkguZLzFh2iTw4LfBOTCpGBW2bKnYm+PMgUw37dvWqYJD7Bb3L23kw7LLs +zJ0QVczb422s/4ELIzmmtQ8vqqLPa/P/XvRyYbQ7dGlTjCpaHLSpOtjFhQnr +2Wv9KapY03iwx6eNCzObhxqEilTR1bDZJqKeC0tWN6/xeKWKqcqmgYo3uSDV +kFgjR1NDw6yGTguq39zGkFgS9VgN5/1Sl78YKQXRFuWE26PqOKm8Uoj4VgKy +0eRuPT1N9JPb5OZYVgwZGgarxNzX4qdskwf9Z27BC2njjZOXtXCvq6LvqHoR +GMo+TtLu0MZ1+k593yoLQYgvz+dI+Drk60pkH7crAPkwBSN7ZR1cp8uSdW/L +h+VKjhU2T3Xw9p6mmJN2eaDFlCL9DuliUkBeeOXMdTjdJ1pvsWg9zo3Ob/Rc +kQujk/F2OzLW4+5W77JOdhaYazdm7li7AftjadXcqavwYHLzr5nWDbj6kM0z +IY908NLU7Wlz24j3HxR9s1JLA+aI6xv75XooUNxy4saHZDBjSFoK5unhIkPn +8I0DSaAaGuv/WF8f07r3DM0zEkDdzeChUo8+3huoFFyIjAW3B6yLd05twgde +VhYt3lHw8Pob13FxA6SqdRqf+0X4UbQwo11pgMvtl0w+qwwDF6WS5ZmWhjjN +nrU3Gj0P4+opeuVjhoisEBqREghVnF/9U9GbsfxrV7zRtC84mFK9grwR1vSU +B+xoOwMyJ6KqteqMMC9HUvftK28QX8Eus9zPxF2ZIQVe99jAMTkXOGbPRN6h +7pyFQjbonkswSXFk4uJn5zuyktlgNXb7bdcRJs6KrPz2y4MNkR1Tsy5sJh7j +/y6yS4oNP/NCtgaGMfFzUnmudqAn9GxOeV1YwsQHOpXafabHgXWWk7WDx0Q/ +R8/oYZ3jMM276zZ8m4k/Bfl9+BWOgyi9a0angonaLx+OOM56wM5lcrK1dUyU +qF3Xl8LzgPtvCl1fv2Xi4Gz+UiUZD7AQqlrr20XNN4riQ8s8oMv8+bRkLxW/ +UeCRmmkW/Kj5Fn34IxMjytqvB7ezYO2NddyvQ5RlmlSjYllwv8fYN/47E3cW +T2YU+LPAYvVe0B5jYvuRKbmXx1hwLOpsm88UE5/XVuwxMaG+VxeZKfGTiR7m +otOXdFgQPpfuUjPHRGw8nzmowIJVG25pHppn4t73zQamQizIOVEztbDAxPum +ra3kb3f4H0XwV1U= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7017,233 +7199,114 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV1nk8VdsXAPDKe5oMIZmHe881i6iI3NYSUgolKlIUcuUmlcxlKLOQIZKh +uCTce+KVqZQiDYaiMpZC9V6SMUTJ7/z+OJ/z+X7253P2WvvsvfaiHT1p47Zk +0aJFf6jn/+/pvucNjDjOlt4Y672HTDZveZMjGWDcFQ6WQWlNBkukAMVfHpXs +SoaW2jOyi5eoge/u4k6+rjwwrE3Qf7/YAERGJJJnO8vBpemvVdzFO+DDfauT +Pzofw+S6/9RkF9vDNsbQ+/HOdjCTbYwd+8OC2U79tLHOAdBwlOu2nvaHepOb +nLa8SdAXHDFX740B2Q/VX45qzsPXio89Y/wpsJrtVLzUhA93RdE4Oq0ZkKyz +7Z6V3TIMFprhq32aA90Z6+rGVwniNhfrPW+X5EEcJ+TlEikR1N/9SuBpPgck +UgdjUrLFcC/nhPhfvwohynbHlvZpcbQY/PsLc6QIzhjccHoeLokur3t8rBqL +weK60I+d8ZLYO9ARzmkuBvrS4OjWNEnUjs/ym24vhldv9pW9LpLE9YcTxRI+ +FIOWtwBfX6skXn6TvjT+ZzH8V+hXOCEthauE6/weq5WA42qr7zL/SKGknYzn +mpgSMB2dC/QalMZPRtlXzDaXQsD2VPVHw9Joxm0L9sNS4N1Y2yM2LY0v82wd +C8xKQdLW2aB6mQw+Ez3GP2VdCsNVT2b4tGRwZXjTIlfXUkgJT/K56i+Dd4UP +Hg2NL4UBcWWvBkFZXDhVdLOsuxQkTj6Uk5CQxQdBXx2P9pXCrmcHWjwUZbG2 +eSu/8GApVATGaQqvl8Udoh0bHIdLIfbD2JD9AVlUfN7958mfUtC9dc99NE8W +E5gbN3TSuRBmtOeI9CY5jPS6XT/qzoXth3Mm9LfKYdX9rMoANheEQr9dsNsl +h2k/TL/88eZCVn1EYZKzHBZq9k7OBXChyqLmG3+MHOYVDL6qjuPC2AHCd7Jb +DqMMS7NseFw4fHYqtjlIHtc48guPj3JBKX2r7FCEPPqK9QUOTHKp/BO5S5Pk +UanAlfFyhguBv9VebeXI46MGbZ3MBS6kXTgsXt0sj9EZ7/RmhHjQfPlpboGc +Al7UiFZo0eSBIe/qnfMPFdBSgyM45MoD087W+ZFnCng3953TChYPrBb9Ze7U +roDsaq1UZU8euNh4dcNnBVwsuZZjc4oH24JoIaF/K+K34zSPgHM88FaYzjfW +UMSGo9aNi9N40OCe+73eVxE7VuTOLNTxYMdvA9HgIEXU99ulmF3Pg9akN3ob +QhUxV0p7o14jD7qrl4dyYhTxNYgqOTbxYGSlj2hEliKe1/uh4veWB5K3t+tv +e6yI8uoyokP/8YD9czz0mSAN7w+xXRsFSDA8dWzNF1EaKoqIzAkJk7BsqKeE +T5KGASpmb21ESCjore/YQqfh7IvWw83iJPQ9SNO8q0fDd571LyPlSbCOMOi6 +4URDG/FnlVLaJMj/4Z546ErD/CCJiTU6JAz70vnee9Cwe7lxsPB6EqJZK7Uk +fWjoHv0ufEKPhLqd7y8kRNNwpiqaHbqFBF3RMO2gMhqe+jJpfX8XCYviphoy +Kmi4aH6218uKhFa+4w4V96h4/hjXy+4mwXPKJmL8CQ3dFtILj+8lgdPF6HXv +oWHoisy3rfYkrMl9FmnLR0dbgxPh1W4kfJJgyp5eRkf3gXZ5ujsJ5UllZYmC +dIx9OUOPZFH5hGe+eyFBx47pejf0pOJ1Y+saa9JxkBsyfM6bhFmNVX1r7eh4 +fNmjGrlAEqazpcPWO9CRFzW5oB9Ewg9hJYaBEx3zdRI+WQaTMDJpcNzUg44w +sSeRfZ6EgXsu0w7nKB+5EX42nIQPa72uOofTcWNrVg/7Agnvcv2NjkXRUYBs +6HK6SELHhUvhpy7T8d9ywaZNkSS82FkpFF1Ax/SJwdyKGBKe1j4qu1RMx5HC +a8ZxsSQ0aDfbppB03JEfknQwjoQHYv2ZOdV0lHp9yGA0nsq3d4XK3RY6Iif3 +1UAiCaSl+Iuadjreqv/wIzWJhNKHCifqOumYHBHZsvUyCYX5G/5p6qfje9OK +3MvJJGR6HoaBKTp+X5XW/yuVhPT3rIF/5+iYsG/ucVwaCanWZyK+L9BxhYSh +s8QVEhLWRzf9XE7g5maxdlo6CXEFyV5/hAjcZ5dWdJ1ytES2yF+rCZQKq9si +k0FC+K+y/cLyBHrEDHP5rpIQcuL+3GqCwJqZ3uhTlIM/NGZLqxKoomGj0kvZ +t753UEmXwIuXqstvZJJwZuOXSA19AmMNr9/4Q9n75piajhGBjTd/7t9/jdov +cX97G20j0GjdpPxvyqx5YbGtOwl8wLmssz2LhGMnpSvMdxP4OzZTOImySz/D +3tKOwBZtoZrXlJ33av+2cSDwXtV3HbFsEg49Mcg94ETNT2z2t6LsoG+69bAr +gWFms5ciKO+/ZfXZxYNA6SYNnyrKtjL20R5eBO7U79T4l/KeSy4aJ88QKDC4 +qEIkhwSrhROtPv4EPvnNE9tEeecp/1OB5yhH/WfmQHn7YPjq0HAq3oN3Lf0p +m9ldqoyIIlCdIa+ZTHnr03SHuHgCW500B25SBoO8+aTLBCo6D3lXUzYqKb1+ +5QqBDdtduhsp9yqW5JpdI/AKqZbzknLglVs5P3IJHJl4+uwNZUmBoux8DpUv +T9Khg3JlWGGWzS0CbWRnbP4/vm+Gc20xj8BFonCnlfIPdn7m7XICeUtazj+h +nDJw46pTJYFB8+f+qaKse+B6htB9AvdytfcWUW5ryUmvrSMw8UDd4VTK3ibZ +V9hPCEz4KNQZTFm4+lqazAsC9z+au3+EMk8rM/VFK5WviKuICWVLTkZKwGsC +14ZqvFWkPCyVnqzaReD3/brLf1HrG5uYdrnzHYFCQQ68Nspqf6cmRfYT2O8a ++YRD+VlgcuLGLwTOqV619qF8bCwp4dMQtX6nfS2RMqf3UvzWH1R8hvSiFur/ +m+yJjxv/SeAWvnv8iZQHGmNjr88T6Pyl/N0uyorlUdF/+Bmo9vfBiVpqfz1U +iYzirmRgrWHP+lOUD2dfjHRcxcAX5/aNKVK+Fh12sUaKgQfDh96fpfbrGqeg +UF9NBg7RFQqmqPNw901AiJIOA4330LriKdta+J9/s5GBf1T8LylSTt54NlgX +GMg+1RPOpM6ToMBJ/5E9DLT1Syy3pM5jadgJv+x9DCwZ3y36nDqvFjOevrsO +MnDL1MAvpBw9wPIpdmVguqKxt3IKCX9VH/U+5sfAluzQn0+pepCvdeSkeDAD +JVcfeqRCeSvHyashlIGFnrdkLlL1IyTRkU2PZWBXg2e0bgIJc277WH1ZDNTy +Ljl0jKo/46IWzvseM3CcP6BNPYKELjb91fGnDJT59PGNMVXf6hrnIKSZgYlS +5v22VP1LCixRKOpgYKUoQ/pkGAnrBgQ+zA4xcFtqn7bPORK8yl4eyhZTwiv2 +aSsf+1D7b2VRS5mkEna8f7cp8wwJW9xCmY1ySlgx8fyC12lqPaR05EZVlPBr +XoffSqp+l4Ymv0MjJczwKp1fQ9X3IWu7g59cqXFYVnzWmYT2W2ubfnoo4faI +h7tXOZFQw8e/WfCkEhaae6vfPERCTGWFtF6AEsZ+Vgt+7kCCqoJkT9QlJVxj +Ivrwoy0J7iM9BzQqlPDobtaUw3bqvol33nd6qTKebknsjtKk4h/SpK8TUMaq +kk8uTeokzJjPfv++Shn7VZlPVqqRsIIvOcJDWhn3TuSIXFCi8g+ov+O8VhmD +2hvHd1L37Tk3ZTHrvcq4QWxlhzl1X6/ZMvxSI1cZC+9m+I6N8OD6taprX/OV +cXHqGbW2YR6ozV50v1mkjBYTZt28IR4Y3ZFboJcrY6v9rQ1HvlD9ibq1lvQT +ZawzY/2+8Z4Ht9eUxy/7pozm+u8/plL9xI5Rvx2f9VRQ7olvxvYCHsjqyEcu +M1LBz7Zun9PyqH7jdMNjDWMVrBI82fkhlwep06uMTu9UwYzSDWUemTzom7+l +teCkguZLzFh2iTw4LfBOTCpGBW2bKnYm+PMgUw37dvWqYJD7Bb3L23kw7LLs +zJ0QVczb422s/4ELIzmmtQ8vqqLPa/P/XvRyYbQ7dGlTjCpaHLSpOtjFhQnr +2Wv9KapY03iwx6eNCzObhxqEilTR1bDZJqKeC0tWN6/xeKWKqcqmgYo3uSDV +kFgjR1NDw6yGTguq39zGkFgS9VgN5/1Sl78YKQXRFuWE26PqOKm8Uoj4VgKy +0eRuPT1N9JPb5OZYVgwZGgarxNzX4qdskwf9Z27BC2njjZOXtXCvq6LvqHoR +GMo+TtLu0MZ1+k593yoLQYgvz+dI+Drk60pkH7crAPkwBSN7ZR1cp8uSdW/L +h+VKjhU2T3Xw9p6mmJN2eaDFlCL9DuliUkBeeOXMdTjdJ1pvsWg9zo3Ob/Rc +kQujk/F2OzLW4+5W77JOdhaYazdm7li7AftjadXcqavwYHLzr5nWDbj6kM0z +IY908NLU7Wlz24j3HxR9s1JLA+aI6xv75XooUNxy4saHZDBjSFoK5unhIkPn +8I0DSaAaGuv/WF8f07r3DM0zEkDdzeChUo8+3huoFFyIjAW3B6yLd05twgde +VhYt3lHw8Pob13FxA6SqdRqf+0X4UbQwo11pgMvtl0w+qwwDF6WS5ZmWhjjN +nrU3Gj0P4+opeuVjhoisEBqREghVnF/9U9GbsfxrV7zRtC84mFK9grwR1vSU +B+xoOwMyJ6KqteqMMC9HUvftK28QX8Eus9zPxF2ZIQVe99jAMTkXOGbPRN6h +7pyFQjbonkswSXFk4uJn5zuyktlgNXb7bdcRJs6KrPz2y4MNkR1Tsy5sJh7j +/y6yS4oNP/NCtgaGMfFzUnmudqAn9GxOeV1YwsQHOpXafabHgXWWk7WDx0Q/ +R8/oYZ3jMM276zZ8m4k/Bfl9+BWOgyi9a0angonaLx+OOM56wM5lcrK1dUyU +qF3Xl8LzgPtvCl1fv2Xi4Gz+UiUZD7AQqlrr20XNN4riQ8s8oMv8+bRkLxW/ +UeCRmmkW/Kj5Fn34IxMjytqvB7ezYO2NddyvQ5RlmlSjYllwv8fYN/47E3cW +T2YU+LPAYvVe0B5jYvuRKbmXx1hwLOpsm88UE5/XVuwxMaG+VxeZKfGTiR7m +otOXdFgQPpfuUjPHRGw8nzmowIJVG25pHppn4t73zQamQizIOVEztbDAxPum +ra3kb3f4H0XwV1U= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.06175870752153175}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7255,19 +7318,19 @@ HbLGog== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.06175870752153175}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7281,232 +7344,113 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV1nk8VdsXAPDKe5oMIZmHe881i6iI3NYSUgolKlIUcuUmlcxlKLOQIZKh +uCTce+KVqZQiDYaiMpZC9V6SMUTJ7/z+OJ/z+X7253P2WvvsvfaiHT1p47Zk +0aJFf6jn/+/pvucNjDjOlt4Y672HTDZveZMjGWDcFQ6WQWlNBkukAMVfHpXs +SoaW2jOyi5eoge/u4k6+rjwwrE3Qf7/YAERGJJJnO8vBpemvVdzFO+DDfauT +Pzofw+S6/9RkF9vDNsbQ+/HOdjCTbYwd+8OC2U79tLHOAdBwlOu2nvaHepOb +nLa8SdAXHDFX740B2Q/VX45qzsPXio89Y/wpsJrtVLzUhA93RdE4Oq0ZkKyz +7Z6V3TIMFprhq32aA90Z6+rGVwniNhfrPW+X5EEcJ+TlEikR1N/9SuBpPgck +UgdjUrLFcC/nhPhfvwohynbHlvZpcbQY/PsLc6QIzhjccHoeLokur3t8rBqL +weK60I+d8ZLYO9ARzmkuBvrS4OjWNEnUjs/ym24vhldv9pW9LpLE9YcTxRI+ +FIOWtwBfX6skXn6TvjT+ZzH8V+hXOCEthauE6/weq5WA42qr7zL/SKGknYzn +mpgSMB2dC/QalMZPRtlXzDaXQsD2VPVHw9Joxm0L9sNS4N1Y2yM2LY0v82wd +C8xKQdLW2aB6mQw+Ez3GP2VdCsNVT2b4tGRwZXjTIlfXUkgJT/K56i+Dd4UP +Hg2NL4UBcWWvBkFZXDhVdLOsuxQkTj6Uk5CQxQdBXx2P9pXCrmcHWjwUZbG2 +eSu/8GApVATGaQqvl8Udoh0bHIdLIfbD2JD9AVlUfN7958mfUtC9dc99NE8W +E5gbN3TSuRBmtOeI9CY5jPS6XT/qzoXth3Mm9LfKYdX9rMoANheEQr9dsNsl +h2k/TL/88eZCVn1EYZKzHBZq9k7OBXChyqLmG3+MHOYVDL6qjuPC2AHCd7Jb +DqMMS7NseFw4fHYqtjlIHtc48guPj3JBKX2r7FCEPPqK9QUOTHKp/BO5S5Pk +UanAlfFyhguBv9VebeXI46MGbZ3MBS6kXTgsXt0sj9EZ7/RmhHjQfPlpboGc +Al7UiFZo0eSBIe/qnfMPFdBSgyM45MoD087W+ZFnCng3953TChYPrBb9Ze7U +roDsaq1UZU8euNh4dcNnBVwsuZZjc4oH24JoIaF/K+K34zSPgHM88FaYzjfW +UMSGo9aNi9N40OCe+73eVxE7VuTOLNTxYMdvA9HgIEXU99ulmF3Pg9akN3ob +QhUxV0p7o14jD7qrl4dyYhTxNYgqOTbxYGSlj2hEliKe1/uh4veWB5K3t+tv +e6yI8uoyokP/8YD9czz0mSAN7w+xXRsFSDA8dWzNF1EaKoqIzAkJk7BsqKeE +T5KGASpmb21ESCjore/YQqfh7IvWw83iJPQ9SNO8q0fDd571LyPlSbCOMOi6 +4URDG/FnlVLaJMj/4Z546ErD/CCJiTU6JAz70vnee9Cwe7lxsPB6EqJZK7Uk +fWjoHv0ufEKPhLqd7y8kRNNwpiqaHbqFBF3RMO2gMhqe+jJpfX8XCYviphoy +Kmi4aH6218uKhFa+4w4V96h4/hjXy+4mwXPKJmL8CQ3dFtILj+8lgdPF6HXv +oWHoisy3rfYkrMl9FmnLR0dbgxPh1W4kfJJgyp5eRkf3gXZ5ujsJ5UllZYmC +dIx9OUOPZFH5hGe+eyFBx47pejf0pOJ1Y+saa9JxkBsyfM6bhFmNVX1r7eh4 +fNmjGrlAEqazpcPWO9CRFzW5oB9Ewg9hJYaBEx3zdRI+WQaTMDJpcNzUg44w +sSeRfZ6EgXsu0w7nKB+5EX42nIQPa72uOofTcWNrVg/7Agnvcv2NjkXRUYBs +6HK6SELHhUvhpy7T8d9ywaZNkSS82FkpFF1Ax/SJwdyKGBKe1j4qu1RMx5HC +a8ZxsSQ0aDfbppB03JEfknQwjoQHYv2ZOdV0lHp9yGA0nsq3d4XK3RY6Iif3 +1UAiCaSl+Iuadjreqv/wIzWJhNKHCifqOumYHBHZsvUyCYX5G/5p6qfje9OK +3MvJJGR6HoaBKTp+X5XW/yuVhPT3rIF/5+iYsG/ucVwaCanWZyK+L9BxhYSh +s8QVEhLWRzf9XE7g5maxdlo6CXEFyV5/hAjcZ5dWdJ1ytES2yF+rCZQKq9si +k0FC+K+y/cLyBHrEDHP5rpIQcuL+3GqCwJqZ3uhTlIM/NGZLqxKoomGj0kvZ +t753UEmXwIuXqstvZJJwZuOXSA19AmMNr9/4Q9n75piajhGBjTd/7t9/jdov +cX97G20j0GjdpPxvyqx5YbGtOwl8wLmssz2LhGMnpSvMdxP4OzZTOImySz/D +3tKOwBZtoZrXlJ33av+2cSDwXtV3HbFsEg49Mcg94ETNT2z2t6LsoG+69bAr +gWFms5ciKO+/ZfXZxYNA6SYNnyrKtjL20R5eBO7U79T4l/KeSy4aJ88QKDC4 +qEIkhwSrhROtPv4EPvnNE9tEeecp/1OB5yhH/WfmQHn7YPjq0HAq3oN3Lf0p +m9ldqoyIIlCdIa+ZTHnr03SHuHgCW500B25SBoO8+aTLBCo6D3lXUzYqKb1+ +5QqBDdtduhsp9yqW5JpdI/AKqZbzknLglVs5P3IJHJl4+uwNZUmBoux8DpUv +T9Khg3JlWGGWzS0CbWRnbP4/vm+Gc20xj8BFonCnlfIPdn7m7XICeUtazj+h +nDJw46pTJYFB8+f+qaKse+B6htB9AvdytfcWUW5ryUmvrSMw8UDd4VTK3ibZ +V9hPCEz4KNQZTFm4+lqazAsC9z+au3+EMk8rM/VFK5WviKuICWVLTkZKwGsC +14ZqvFWkPCyVnqzaReD3/brLf1HrG5uYdrnzHYFCQQ68Nspqf6cmRfYT2O8a ++YRD+VlgcuLGLwTOqV619qF8bCwp4dMQtX6nfS2RMqf3UvzWH1R8hvSiFur/ +m+yJjxv/SeAWvnv8iZQHGmNjr88T6Pyl/N0uyorlUdF/+Bmo9vfBiVpqfz1U +iYzirmRgrWHP+lOUD2dfjHRcxcAX5/aNKVK+Fh12sUaKgQfDh96fpfbrGqeg +UF9NBg7RFQqmqPNw901AiJIOA4330LriKdta+J9/s5GBf1T8LylSTt54NlgX +GMg+1RPOpM6ToMBJ/5E9DLT1Syy3pM5jadgJv+x9DCwZ3y36nDqvFjOevrsO +MnDL1MAvpBw9wPIpdmVguqKxt3IKCX9VH/U+5sfAluzQn0+pepCvdeSkeDAD +JVcfeqRCeSvHyashlIGFnrdkLlL1IyTRkU2PZWBXg2e0bgIJc277WH1ZDNTy +Ljl0jKo/46IWzvseM3CcP6BNPYKELjb91fGnDJT59PGNMVXf6hrnIKSZgYlS +5v22VP1LCixRKOpgYKUoQ/pkGAnrBgQ+zA4xcFtqn7bPORK8yl4eyhZTwiv2 +aSsf+1D7b2VRS5mkEna8f7cp8wwJW9xCmY1ySlgx8fyC12lqPaR05EZVlPBr +XoffSqp+l4Ymv0MjJczwKp1fQ9X3IWu7g59cqXFYVnzWmYT2W2ubfnoo4faI +h7tXOZFQw8e/WfCkEhaae6vfPERCTGWFtF6AEsZ+Vgt+7kCCqoJkT9QlJVxj +Ivrwoy0J7iM9BzQqlPDobtaUw3bqvol33nd6qTKebknsjtKk4h/SpK8TUMaq +kk8uTeokzJjPfv++Shn7VZlPVqqRsIIvOcJDWhn3TuSIXFCi8g+ov+O8VhmD +2hvHd1L37Tk3ZTHrvcq4QWxlhzl1X6/ZMvxSI1cZC+9m+I6N8OD6taprX/OV +cXHqGbW2YR6ozV50v1mkjBYTZt28IR4Y3ZFboJcrY6v9rQ1HvlD9ibq1lvQT +ZawzY/2+8Z4Ht9eUxy/7pozm+u8/plL9xI5Rvx2f9VRQ7olvxvYCHsjqyEcu +M1LBz7Zun9PyqH7jdMNjDWMVrBI82fkhlwep06uMTu9UwYzSDWUemTzom7+l +teCkguZLzFh2iTw4LfBOTCpGBW2bKnYm+PMgUw37dvWqYJD7Bb3L23kw7LLs +zJ0QVczb422s/4ELIzmmtQ8vqqLPa/P/XvRyYbQ7dGlTjCpaHLSpOtjFhQnr +2Wv9KapY03iwx6eNCzObhxqEilTR1bDZJqKeC0tWN6/xeKWKqcqmgYo3uSDV +kFgjR1NDw6yGTguq39zGkFgS9VgN5/1Sl78YKQXRFuWE26PqOKm8Uoj4VgKy +0eRuPT1N9JPb5OZYVgwZGgarxNzX4qdskwf9Z27BC2njjZOXtXCvq6LvqHoR +GMo+TtLu0MZ1+k593yoLQYgvz+dI+Drk60pkH7crAPkwBSN7ZR1cp8uSdW/L +h+VKjhU2T3Xw9p6mmJN2eaDFlCL9DuliUkBeeOXMdTjdJ1pvsWg9zo3Ob/Rc +kQujk/F2OzLW4+5W77JOdhaYazdm7li7AftjadXcqavwYHLzr5nWDbj6kM0z +IY908NLU7Wlz24j3HxR9s1JLA+aI6xv75XooUNxy4saHZDBjSFoK5unhIkPn +8I0DSaAaGuv/WF8f07r3DM0zEkDdzeChUo8+3huoFFyIjAW3B6yLd05twgde +VhYt3lHw8Pob13FxA6SqdRqf+0X4UbQwo11pgMvtl0w+qwwDF6WS5ZmWhjjN +nrU3Gj0P4+opeuVjhoisEBqREghVnF/9U9GbsfxrV7zRtC84mFK9grwR1vSU +B+xoOwMyJ6KqteqMMC9HUvftK28QX8Eus9zPxF2ZIQVe99jAMTkXOGbPRN6h +7pyFQjbonkswSXFk4uJn5zuyktlgNXb7bdcRJs6KrPz2y4MNkR1Tsy5sJh7j +/y6yS4oNP/NCtgaGMfFzUnmudqAn9GxOeV1YwsQHOpXafabHgXWWk7WDx0Q/ +R8/oYZ3jMM276zZ8m4k/Bfl9+BWOgyi9a0angonaLx+OOM56wM5lcrK1dUyU +qF3Xl8LzgPtvCl1fv2Xi4Gz+UiUZD7AQqlrr20XNN4riQ8s8oMv8+bRkLxW/ +UeCRmmkW/Kj5Fn34IxMjytqvB7ezYO2NddyvQ5RlmlSjYllwv8fYN/47E3cW +T2YU+LPAYvVe0B5jYvuRKbmXx1hwLOpsm88UE5/XVuwxMaG+VxeZKfGTiR7m +otOXdFgQPpfuUjPHRGw8nzmowIJVG25pHppn4t73zQamQizIOVEztbDAxPum +ra3kb3f4H0XwV1U= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.06175870752153175}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7517,6 +7461,7 @@ HbLGog== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7544,7 +7489,8 @@ HbLGog== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06175870752153175}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7552,24 +7498,863 @@ HbLGog== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913218813523655`*^9}, - CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] + CellChangeTimes->{3.9913218813523655`*^9, 3.993917815345998*^9, + 3.993933439982205*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"49a808fe-7cc5-491e-8439-e492d1cf8d97"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ -9e93d345c648"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015632"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025463"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034444"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042305"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048862"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.053992"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.05763"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.05981"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060594"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060116"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058529"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056023"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052783"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.049014"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044891"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.04059"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.036252"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.032004"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027939"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024133"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020631"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017466"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014645"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012169"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.01002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008181"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005319"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004237"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00335"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9939164502840347`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.060594}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993917815436831*^9, 3.993933440072115*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"c391da1b-a551-4080-af1e-0f3647b659c1"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ -ec28b28907cc"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk8VdsXAPDKe5oMIZmHe881i6iI3NYSUgolKlIUcuUmlcxlKLOQIZKh +uCTce+KVqZQiDYaiMpZC9V6SMUTJ7/z+OJ/z+X7253P2WvvsvfaiHT1p47Zk +0aJFf6jn/+/pvucNjDjOlt4Y672HTDZveZMjGWDcFQ6WQWlNBkukAMVfHpXs +SoaW2jOyi5eoge/u4k6+rjwwrE3Qf7/YAERGJJJnO8vBpemvVdzFO+DDfauT +Pzofw+S6/9RkF9vDNsbQ+/HOdjCTbYwd+8OC2U79tLHOAdBwlOu2nvaHepOb +nLa8SdAXHDFX740B2Q/VX45qzsPXio89Y/wpsJrtVLzUhA93RdE4Oq0ZkKyz +7Z6V3TIMFprhq32aA90Z6+rGVwniNhfrPW+X5EEcJ+TlEikR1N/9SuBpPgck +UgdjUrLFcC/nhPhfvwohynbHlvZpcbQY/PsLc6QIzhjccHoeLokur3t8rBqL +weK60I+d8ZLYO9ARzmkuBvrS4OjWNEnUjs/ym24vhldv9pW9LpLE9YcTxRI+ +FIOWtwBfX6skXn6TvjT+ZzH8V+hXOCEthauE6/weq5WA42qr7zL/SKGknYzn +mpgSMB2dC/QalMZPRtlXzDaXQsD2VPVHw9Joxm0L9sNS4N1Y2yM2LY0v82wd +C8xKQdLW2aB6mQw+Ez3GP2VdCsNVT2b4tGRwZXjTIlfXUkgJT/K56i+Dd4UP +Hg2NL4UBcWWvBkFZXDhVdLOsuxQkTj6Uk5CQxQdBXx2P9pXCrmcHWjwUZbG2 +eSu/8GApVATGaQqvl8Udoh0bHIdLIfbD2JD9AVlUfN7958mfUtC9dc99NE8W +E5gbN3TSuRBmtOeI9CY5jPS6XT/qzoXth3Mm9LfKYdX9rMoANheEQr9dsNsl +h2k/TL/88eZCVn1EYZKzHBZq9k7OBXChyqLmG3+MHOYVDL6qjuPC2AHCd7Jb +DqMMS7NseFw4fHYqtjlIHtc48guPj3JBKX2r7FCEPPqK9QUOTHKp/BO5S5Pk +UanAlfFyhguBv9VebeXI46MGbZ3MBS6kXTgsXt0sj9EZ7/RmhHjQfPlpboGc +Al7UiFZo0eSBIe/qnfMPFdBSgyM45MoD087W+ZFnCng3953TChYPrBb9Ze7U +roDsaq1UZU8euNh4dcNnBVwsuZZjc4oH24JoIaF/K+K34zSPgHM88FaYzjfW +UMSGo9aNi9N40OCe+73eVxE7VuTOLNTxYMdvA9HgIEXU99ulmF3Pg9akN3ob +QhUxV0p7o14jD7qrl4dyYhTxNYgqOTbxYGSlj2hEliKe1/uh4veWB5K3t+tv +e6yI8uoyokP/8YD9czz0mSAN7w+xXRsFSDA8dWzNF1EaKoqIzAkJk7BsqKeE +T5KGASpmb21ESCjore/YQqfh7IvWw83iJPQ9SNO8q0fDd571LyPlSbCOMOi6 +4URDG/FnlVLaJMj/4Z546ErD/CCJiTU6JAz70vnee9Cwe7lxsPB6EqJZK7Uk +fWjoHv0ufEKPhLqd7y8kRNNwpiqaHbqFBF3RMO2gMhqe+jJpfX8XCYviphoy +Kmi4aH6218uKhFa+4w4V96h4/hjXy+4mwXPKJmL8CQ3dFtILj+8lgdPF6HXv +oWHoisy3rfYkrMl9FmnLR0dbgxPh1W4kfJJgyp5eRkf3gXZ5ujsJ5UllZYmC +dIx9OUOPZFH5hGe+eyFBx47pejf0pOJ1Y+saa9JxkBsyfM6bhFmNVX1r7eh4 +fNmjGrlAEqazpcPWO9CRFzW5oB9Ewg9hJYaBEx3zdRI+WQaTMDJpcNzUg44w +sSeRfZ6EgXsu0w7nKB+5EX42nIQPa72uOofTcWNrVg/7Agnvcv2NjkXRUYBs +6HK6SELHhUvhpy7T8d9ywaZNkSS82FkpFF1Ax/SJwdyKGBKe1j4qu1RMx5HC +a8ZxsSQ0aDfbppB03JEfknQwjoQHYv2ZOdV0lHp9yGA0nsq3d4XK3RY6Iif3 +1UAiCaSl+Iuadjreqv/wIzWJhNKHCifqOumYHBHZsvUyCYX5G/5p6qfje9OK +3MvJJGR6HoaBKTp+X5XW/yuVhPT3rIF/5+iYsG/ucVwaCanWZyK+L9BxhYSh +s8QVEhLWRzf9XE7g5maxdlo6CXEFyV5/hAjcZ5dWdJ1ytES2yF+rCZQKq9si +k0FC+K+y/cLyBHrEDHP5rpIQcuL+3GqCwJqZ3uhTlIM/NGZLqxKoomGj0kvZ +t753UEmXwIuXqstvZJJwZuOXSA19AmMNr9/4Q9n75piajhGBjTd/7t9/jdov +cX97G20j0GjdpPxvyqx5YbGtOwl8wLmssz2LhGMnpSvMdxP4OzZTOImySz/D +3tKOwBZtoZrXlJ33av+2cSDwXtV3HbFsEg49Mcg94ETNT2z2t6LsoG+69bAr +gWFms5ciKO+/ZfXZxYNA6SYNnyrKtjL20R5eBO7U79T4l/KeSy4aJ88QKDC4 +qEIkhwSrhROtPv4EPvnNE9tEeecp/1OB5yhH/WfmQHn7YPjq0HAq3oN3Lf0p +m9ldqoyIIlCdIa+ZTHnr03SHuHgCW500B25SBoO8+aTLBCo6D3lXUzYqKb1+ +5QqBDdtduhsp9yqW5JpdI/AKqZbzknLglVs5P3IJHJl4+uwNZUmBoux8DpUv +T9Khg3JlWGGWzS0CbWRnbP4/vm+Gc20xj8BFonCnlfIPdn7m7XICeUtazj+h +nDJw46pTJYFB8+f+qaKse+B6htB9AvdytfcWUW5ryUmvrSMw8UDd4VTK3ibZ +V9hPCEz4KNQZTFm4+lqazAsC9z+au3+EMk8rM/VFK5WviKuICWVLTkZKwGsC +14ZqvFWkPCyVnqzaReD3/brLf1HrG5uYdrnzHYFCQQ68Nspqf6cmRfYT2O8a ++YRD+VlgcuLGLwTOqV619qF8bCwp4dMQtX6nfS2RMqf3UvzWH1R8hvSiFur/ +m+yJjxv/SeAWvnv8iZQHGmNjr88T6Pyl/N0uyorlUdF/+Bmo9vfBiVpqfz1U +iYzirmRgrWHP+lOUD2dfjHRcxcAX5/aNKVK+Fh12sUaKgQfDh96fpfbrGqeg +UF9NBg7RFQqmqPNw901AiJIOA4330LriKdta+J9/s5GBf1T8LylSTt54NlgX +GMg+1RPOpM6ToMBJ/5E9DLT1Syy3pM5jadgJv+x9DCwZ3y36nDqvFjOevrsO +MnDL1MAvpBw9wPIpdmVguqKxt3IKCX9VH/U+5sfAluzQn0+pepCvdeSkeDAD +JVcfeqRCeSvHyashlIGFnrdkLlL1IyTRkU2PZWBXg2e0bgIJc277WH1ZDNTy +Ljl0jKo/46IWzvseM3CcP6BNPYKELjb91fGnDJT59PGNMVXf6hrnIKSZgYlS +5v22VP1LCixRKOpgYKUoQ/pkGAnrBgQ+zA4xcFtqn7bPORK8yl4eyhZTwiv2 +aSsf+1D7b2VRS5mkEna8f7cp8wwJW9xCmY1ySlgx8fyC12lqPaR05EZVlPBr +XoffSqp+l4Ymv0MjJczwKp1fQ9X3IWu7g59cqXFYVnzWmYT2W2ubfnoo4faI +h7tXOZFQw8e/WfCkEhaae6vfPERCTGWFtF6AEsZ+Vgt+7kCCqoJkT9QlJVxj +Ivrwoy0J7iM9BzQqlPDobtaUw3bqvol33nd6qTKebknsjtKk4h/SpK8TUMaq +kk8uTeokzJjPfv++Shn7VZlPVqqRsIIvOcJDWhn3TuSIXFCi8g+ov+O8VhmD +2hvHd1L37Tk3ZTHrvcq4QWxlhzl1X6/ZMvxSI1cZC+9m+I6N8OD6taprX/OV +cXHqGbW2YR6ozV50v1mkjBYTZt28IR4Y3ZFboJcrY6v9rQ1HvlD9ibq1lvQT +ZawzY/2+8Z4Ht9eUxy/7pozm+u8/plL9xI5Rvx2f9VRQ7olvxvYCHsjqyEcu +M1LBz7Zun9PyqH7jdMNjDWMVrBI82fkhlwep06uMTu9UwYzSDWUemTzom7+l +teCkguZLzFh2iTw4LfBOTCpGBW2bKnYm+PMgUw37dvWqYJD7Bb3L23kw7LLs +zJ0QVczb422s/4ELIzmmtQ8vqqLPa/P/XvRyYbQ7dGlTjCpaHLSpOtjFhQnr +2Wv9KapY03iwx6eNCzObhxqEilTR1bDZJqKeC0tWN6/xeKWKqcqmgYo3uSDV +kFgjR1NDw6yGTguq39zGkFgS9VgN5/1Sl78YKQXRFuWE26PqOKm8Uoj4VgKy +0eRuPT1N9JPb5OZYVgwZGgarxNzX4qdskwf9Z27BC2njjZOXtXCvq6LvqHoR +GMo+TtLu0MZ1+k593yoLQYgvz+dI+Drk60pkH7crAPkwBSN7ZR1cp8uSdW/L +h+VKjhU2T3Xw9p6mmJN2eaDFlCL9DuliUkBeeOXMdTjdJ1pvsWg9zo3Ob/Rc +kQujk/F2OzLW4+5W77JOdhaYazdm7li7AftjadXcqavwYHLzr5nWDbj6kM0z +IY908NLU7Wlz24j3HxR9s1JLA+aI6xv75XooUNxy4saHZDBjSFoK5unhIkPn +8I0DSaAaGuv/WF8f07r3DM0zEkDdzeChUo8+3huoFFyIjAW3B6yLd05twgde +VhYt3lHw8Pob13FxA6SqdRqf+0X4UbQwo11pgMvtl0w+qwwDF6WS5ZmWhjjN +nrU3Gj0P4+opeuVjhoisEBqREghVnF/9U9GbsfxrV7zRtC84mFK9grwR1vSU +B+xoOwMyJ6KqteqMMC9HUvftK28QX8Eus9zPxF2ZIQVe99jAMTkXOGbPRN6h +7pyFQjbonkswSXFk4uJn5zuyktlgNXb7bdcRJs6KrPz2y4MNkR1Tsy5sJh7j +/y6yS4oNP/NCtgaGMfFzUnmudqAn9GxOeV1YwsQHOpXafabHgXWWk7WDx0Q/ +R8/oYZ3jMM276zZ8m4k/Bfl9+BWOgyi9a0angonaLx+OOM56wM5lcrK1dUyU +qF3Xl8LzgPtvCl1fv2Xi4Gz+UiUZD7AQqlrr20XNN4riQ8s8oMv8+bRkLxW/ +UeCRmmkW/Kj5Fn34IxMjytqvB7ezYO2NddyvQ5RlmlSjYllwv8fYN/47E3cW +T2YU+LPAYvVe0B5jYvuRKbmXx1hwLOpsm88UE5/XVuwxMaG+VxeZKfGTiR7m +otOXdFgQPpfuUjPHRGw8nzmowIJVG25pHppn4t73zQamQizIOVEztbDAxPum +ra3kb3f4H0XwV1U= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAPDKe5oMIZmHe881i6iI3NYSUgolKlIUcuUmlcxlKLOQIZKh +uCTce+KVqZQiDYaiMpZC9V6SMUTJ7/z+OJ/z+X7253P2WvvsvfaiHT1p47Zk +0aJFf6jn/+/pvucNjDjOlt4Y672HTDZveZMjGWDcFQ6WQWlNBkukAMVfHpXs +SoaW2jOyi5eoge/u4k6+rjwwrE3Qf7/YAERGJJJnO8vBpemvVdzFO+DDfauT +Pzofw+S6/9RkF9vDNsbQ+/HOdjCTbYwd+8OC2U79tLHOAdBwlOu2nvaHepOb +nLa8SdAXHDFX740B2Q/VX45qzsPXio89Y/wpsJrtVLzUhA93RdE4Oq0ZkKyz +7Z6V3TIMFprhq32aA90Z6+rGVwniNhfrPW+X5EEcJ+TlEikR1N/9SuBpPgck +UgdjUrLFcC/nhPhfvwohynbHlvZpcbQY/PsLc6QIzhjccHoeLokur3t8rBqL +weK60I+d8ZLYO9ARzmkuBvrS4OjWNEnUjs/ym24vhldv9pW9LpLE9YcTxRI+ +FIOWtwBfX6skXn6TvjT+ZzH8V+hXOCEthauE6/weq5WA42qr7zL/SKGknYzn +mpgSMB2dC/QalMZPRtlXzDaXQsD2VPVHw9Joxm0L9sNS4N1Y2yM2LY0v82wd +C8xKQdLW2aB6mQw+Ez3GP2VdCsNVT2b4tGRwZXjTIlfXUkgJT/K56i+Dd4UP +Hg2NL4UBcWWvBkFZXDhVdLOsuxQkTj6Uk5CQxQdBXx2P9pXCrmcHWjwUZbG2 +eSu/8GApVATGaQqvl8Udoh0bHIdLIfbD2JD9AVlUfN7958mfUtC9dc99NE8W +E5gbN3TSuRBmtOeI9CY5jPS6XT/qzoXth3Mm9LfKYdX9rMoANheEQr9dsNsl +h2k/TL/88eZCVn1EYZKzHBZq9k7OBXChyqLmG3+MHOYVDL6qjuPC2AHCd7Jb +DqMMS7NseFw4fHYqtjlIHtc48guPj3JBKX2r7FCEPPqK9QUOTHKp/BO5S5Pk +UanAlfFyhguBv9VebeXI46MGbZ3MBS6kXTgsXt0sj9EZ7/RmhHjQfPlpboGc +Al7UiFZo0eSBIe/qnfMPFdBSgyM45MoD087W+ZFnCng3953TChYPrBb9Ze7U +roDsaq1UZU8euNh4dcNnBVwsuZZjc4oH24JoIaF/K+K34zSPgHM88FaYzjfW +UMSGo9aNi9N40OCe+73eVxE7VuTOLNTxYMdvA9HgIEXU99ulmF3Pg9akN3ob +QhUxV0p7o14jD7qrl4dyYhTxNYgqOTbxYGSlj2hEliKe1/uh4veWB5K3t+tv +e6yI8uoyokP/8YD9czz0mSAN7w+xXRsFSDA8dWzNF1EaKoqIzAkJk7BsqKeE +T5KGASpmb21ESCjore/YQqfh7IvWw83iJPQ9SNO8q0fDd571LyPlSbCOMOi6 +4URDG/FnlVLaJMj/4Z546ErD/CCJiTU6JAz70vnee9Cwe7lxsPB6EqJZK7Uk +fWjoHv0ufEKPhLqd7y8kRNNwpiqaHbqFBF3RMO2gMhqe+jJpfX8XCYviphoy +Kmi4aH6218uKhFa+4w4V96h4/hjXy+4mwXPKJmL8CQ3dFtILj+8lgdPF6HXv +oWHoisy3rfYkrMl9FmnLR0dbgxPh1W4kfJJgyp5eRkf3gXZ5ujsJ5UllZYmC +dIx9OUOPZFH5hGe+eyFBx47pejf0pOJ1Y+saa9JxkBsyfM6bhFmNVX1r7eh4 +fNmjGrlAEqazpcPWO9CRFzW5oB9Ewg9hJYaBEx3zdRI+WQaTMDJpcNzUg44w +sSeRfZ6EgXsu0w7nKB+5EX42nIQPa72uOofTcWNrVg/7Agnvcv2NjkXRUYBs +6HK6SELHhUvhpy7T8d9ywaZNkSS82FkpFF1Ax/SJwdyKGBKe1j4qu1RMx5HC +a8ZxsSQ0aDfbppB03JEfknQwjoQHYv2ZOdV0lHp9yGA0nsq3d4XK3RY6Iif3 +1UAiCaSl+Iuadjreqv/wIzWJhNKHCifqOumYHBHZsvUyCYX5G/5p6qfje9OK +3MvJJGR6HoaBKTp+X5XW/yuVhPT3rIF/5+iYsG/ucVwaCanWZyK+L9BxhYSh +s8QVEhLWRzf9XE7g5maxdlo6CXEFyV5/hAjcZ5dWdJ1ytES2yF+rCZQKq9si +k0FC+K+y/cLyBHrEDHP5rpIQcuL+3GqCwJqZ3uhTlIM/NGZLqxKoomGj0kvZ +t753UEmXwIuXqstvZJJwZuOXSA19AmMNr9/4Q9n75piajhGBjTd/7t9/jdov +cX97G20j0GjdpPxvyqx5YbGtOwl8wLmssz2LhGMnpSvMdxP4OzZTOImySz/D +3tKOwBZtoZrXlJ33av+2cSDwXtV3HbFsEg49Mcg94ETNT2z2t6LsoG+69bAr +gWFms5ciKO+/ZfXZxYNA6SYNnyrKtjL20R5eBO7U79T4l/KeSy4aJ88QKDC4 +qEIkhwSrhROtPv4EPvnNE9tEeecp/1OB5yhH/WfmQHn7YPjq0HAq3oN3Lf0p +m9ldqoyIIlCdIa+ZTHnr03SHuHgCW500B25SBoO8+aTLBCo6D3lXUzYqKb1+ +5QqBDdtduhsp9yqW5JpdI/AKqZbzknLglVs5P3IJHJl4+uwNZUmBoux8DpUv +T9Khg3JlWGGWzS0CbWRnbP4/vm+Gc20xj8BFonCnlfIPdn7m7XICeUtazj+h +nDJw46pTJYFB8+f+qaKse+B6htB9AvdytfcWUW5ryUmvrSMw8UDd4VTK3ibZ +V9hPCEz4KNQZTFm4+lqazAsC9z+au3+EMk8rM/VFK5WviKuICWVLTkZKwGsC +14ZqvFWkPCyVnqzaReD3/brLf1HrG5uYdrnzHYFCQQ68Nspqf6cmRfYT2O8a ++YRD+VlgcuLGLwTOqV619qF8bCwp4dMQtX6nfS2RMqf3UvzWH1R8hvSiFur/ +m+yJjxv/SeAWvnv8iZQHGmNjr88T6Pyl/N0uyorlUdF/+Bmo9vfBiVpqfz1U +iYzirmRgrWHP+lOUD2dfjHRcxcAX5/aNKVK+Fh12sUaKgQfDh96fpfbrGqeg +UF9NBg7RFQqmqPNw901AiJIOA4330LriKdta+J9/s5GBf1T8LylSTt54NlgX +GMg+1RPOpM6ToMBJ/5E9DLT1Syy3pM5jadgJv+x9DCwZ3y36nDqvFjOevrsO +MnDL1MAvpBw9wPIpdmVguqKxt3IKCX9VH/U+5sfAluzQn0+pepCvdeSkeDAD +JVcfeqRCeSvHyashlIGFnrdkLlL1IyTRkU2PZWBXg2e0bgIJc277WH1ZDNTy +Ljl0jKo/46IWzvseM3CcP6BNPYKELjb91fGnDJT59PGNMVXf6hrnIKSZgYlS +5v22VP1LCixRKOpgYKUoQ/pkGAnrBgQ+zA4xcFtqn7bPORK8yl4eyhZTwiv2 +aSsf+1D7b2VRS5mkEna8f7cp8wwJW9xCmY1ySlgx8fyC12lqPaR05EZVlPBr +XoffSqp+l4Ymv0MjJczwKp1fQ9X3IWu7g59cqXFYVnzWmYT2W2ubfnoo4faI +h7tXOZFQw8e/WfCkEhaae6vfPERCTGWFtF6AEsZ+Vgt+7kCCqoJkT9QlJVxj +Ivrwoy0J7iM9BzQqlPDobtaUw3bqvol33nd6qTKebknsjtKk4h/SpK8TUMaq +kk8uTeokzJjPfv++Shn7VZlPVqqRsIIvOcJDWhn3TuSIXFCi8g+ov+O8VhmD +2hvHd1L37Tk3ZTHrvcq4QWxlhzl1X6/ZMvxSI1cZC+9m+I6N8OD6taprX/OV +cXHqGbW2YR6ozV50v1mkjBYTZt28IR4Y3ZFboJcrY6v9rQ1HvlD9ibq1lvQT +ZawzY/2+8Z4Ht9eUxy/7pozm+u8/plL9xI5Rvx2f9VRQ7olvxvYCHsjqyEcu +M1LBz7Zun9PyqH7jdMNjDWMVrBI82fkhlwep06uMTu9UwYzSDWUemTzom7+l +teCkguZLzFh2iTw4LfBOTCpGBW2bKnYm+PMgUw37dvWqYJD7Bb3L23kw7LLs +zJ0QVczb422s/4ELIzmmtQ8vqqLPa/P/XvRyYbQ7dGlTjCpaHLSpOtjFhQnr +2Wv9KapY03iwx6eNCzObhxqEilTR1bDZJqKeC0tWN6/xeKWKqcqmgYo3uSDV +kFgjR1NDw6yGTguq39zGkFgS9VgN5/1Sl78YKQXRFuWE26PqOKm8Uoj4VgKy +0eRuPT1N9JPb5OZYVgwZGgarxNzX4qdskwf9Z27BC2njjZOXtXCvq6LvqHoR +GMo+TtLu0MZ1+k593yoLQYgvz+dI+Drk60pkH7crAPkwBSN7ZR1cp8uSdW/L +h+VKjhU2T3Xw9p6mmJN2eaDFlCL9DuliUkBeeOXMdTjdJ1pvsWg9zo3Ob/Rc +kQujk/F2OzLW4+5W77JOdhaYazdm7li7AftjadXcqavwYHLzr5nWDbj6kM0z +IY908NLU7Wlz24j3HxR9s1JLA+aI6xv75XooUNxy4saHZDBjSFoK5unhIkPn +8I0DSaAaGuv/WF8f07r3DM0zEkDdzeChUo8+3huoFFyIjAW3B6yLd05twgde +VhYt3lHw8Pob13FxA6SqdRqf+0X4UbQwo11pgMvtl0w+qwwDF6WS5ZmWhjjN +nrU3Gj0P4+opeuVjhoisEBqREghVnF/9U9GbsfxrV7zRtC84mFK9grwR1vSU +B+xoOwMyJ6KqteqMMC9HUvftK28QX8Eus9zPxF2ZIQVe99jAMTkXOGbPRN6h +7pyFQjbonkswSXFk4uJn5zuyktlgNXb7bdcRJs6KrPz2y4MNkR1Tsy5sJh7j +/y6yS4oNP/NCtgaGMfFzUnmudqAn9GxOeV1YwsQHOpXafabHgXWWk7WDx0Q/ +R8/oYZ3jMM276zZ8m4k/Bfl9+BWOgyi9a0angonaLx+OOM56wM5lcrK1dUyU +qF3Xl8LzgPtvCl1fv2Xi4Gz+UiUZD7AQqlrr20XNN4riQ8s8oMv8+bRkLxW/ +UeCRmmkW/Kj5Fn34IxMjytqvB7ezYO2NddyvQ5RlmlSjYllwv8fYN/47E3cW +T2YU+LPAYvVe0B5jYvuRKbmXx1hwLOpsm88UE5/XVuwxMaG+VxeZKfGTiR7m +otOXdFgQPpfuUjPHRGw8nzmowIJVG25pHppn4t73zQamQizIOVEztbDAxPum +ra3kb3f4H0XwV1U= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06175870752153175}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06175870752153175}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VdsXAPDKe5oMIZmHe881i6iI3NYSUgolKlIUcuUmlcxlKLOQIZKh +uCTce+KVqZQiDYaiMpZC9V6SMUTJ7/z+OJ/z+X7253P2WvvsvfaiHT1p47Zk +0aJFf6jn/+/pvucNjDjOlt4Y672HTDZveZMjGWDcFQ6WQWlNBkukAMVfHpXs +SoaW2jOyi5eoge/u4k6+rjwwrE3Qf7/YAERGJJJnO8vBpemvVdzFO+DDfauT +Pzofw+S6/9RkF9vDNsbQ+/HOdjCTbYwd+8OC2U79tLHOAdBwlOu2nvaHepOb +nLa8SdAXHDFX740B2Q/VX45qzsPXio89Y/wpsJrtVLzUhA93RdE4Oq0ZkKyz +7Z6V3TIMFprhq32aA90Z6+rGVwniNhfrPW+X5EEcJ+TlEikR1N/9SuBpPgck +UgdjUrLFcC/nhPhfvwohynbHlvZpcbQY/PsLc6QIzhjccHoeLokur3t8rBqL +weK60I+d8ZLYO9ARzmkuBvrS4OjWNEnUjs/ym24vhldv9pW9LpLE9YcTxRI+ +FIOWtwBfX6skXn6TvjT+ZzH8V+hXOCEthauE6/weq5WA42qr7zL/SKGknYzn +mpgSMB2dC/QalMZPRtlXzDaXQsD2VPVHw9Joxm0L9sNS4N1Y2yM2LY0v82wd +C8xKQdLW2aB6mQw+Ez3GP2VdCsNVT2b4tGRwZXjTIlfXUkgJT/K56i+Dd4UP +Hg2NL4UBcWWvBkFZXDhVdLOsuxQkTj6Uk5CQxQdBXx2P9pXCrmcHWjwUZbG2 +eSu/8GApVATGaQqvl8Udoh0bHIdLIfbD2JD9AVlUfN7958mfUtC9dc99NE8W +E5gbN3TSuRBmtOeI9CY5jPS6XT/qzoXth3Mm9LfKYdX9rMoANheEQr9dsNsl +h2k/TL/88eZCVn1EYZKzHBZq9k7OBXChyqLmG3+MHOYVDL6qjuPC2AHCd7Jb +DqMMS7NseFw4fHYqtjlIHtc48guPj3JBKX2r7FCEPPqK9QUOTHKp/BO5S5Pk +UanAlfFyhguBv9VebeXI46MGbZ3MBS6kXTgsXt0sj9EZ7/RmhHjQfPlpboGc +Al7UiFZo0eSBIe/qnfMPFdBSgyM45MoD087W+ZFnCng3953TChYPrBb9Ze7U +roDsaq1UZU8euNh4dcNnBVwsuZZjc4oH24JoIaF/K+K34zSPgHM88FaYzjfW +UMSGo9aNi9N40OCe+73eVxE7VuTOLNTxYMdvA9HgIEXU99ulmF3Pg9akN3ob +QhUxV0p7o14jD7qrl4dyYhTxNYgqOTbxYGSlj2hEliKe1/uh4veWB5K3t+tv +e6yI8uoyokP/8YD9czz0mSAN7w+xXRsFSDA8dWzNF1EaKoqIzAkJk7BsqKeE +T5KGASpmb21ESCjore/YQqfh7IvWw83iJPQ9SNO8q0fDd571LyPlSbCOMOi6 +4URDG/FnlVLaJMj/4Z546ErD/CCJiTU6JAz70vnee9Cwe7lxsPB6EqJZK7Uk +fWjoHv0ufEKPhLqd7y8kRNNwpiqaHbqFBF3RMO2gMhqe+jJpfX8XCYviphoy +Kmi4aH6218uKhFa+4w4V96h4/hjXy+4mwXPKJmL8CQ3dFtILj+8lgdPF6HXv +oWHoisy3rfYkrMl9FmnLR0dbgxPh1W4kfJJgyp5eRkf3gXZ5ujsJ5UllZYmC +dIx9OUOPZFH5hGe+eyFBx47pejf0pOJ1Y+saa9JxkBsyfM6bhFmNVX1r7eh4 +fNmjGrlAEqazpcPWO9CRFzW5oB9Ewg9hJYaBEx3zdRI+WQaTMDJpcNzUg44w +sSeRfZ6EgXsu0w7nKB+5EX42nIQPa72uOofTcWNrVg/7Agnvcv2NjkXRUYBs +6HK6SELHhUvhpy7T8d9ywaZNkSS82FkpFF1Ax/SJwdyKGBKe1j4qu1RMx5HC +a8ZxsSQ0aDfbppB03JEfknQwjoQHYv2ZOdV0lHp9yGA0nsq3d4XK3RY6Iif3 +1UAiCaSl+Iuadjreqv/wIzWJhNKHCifqOumYHBHZsvUyCYX5G/5p6qfje9OK +3MvJJGR6HoaBKTp+X5XW/yuVhPT3rIF/5+iYsG/ucVwaCanWZyK+L9BxhYSh +s8QVEhLWRzf9XE7g5maxdlo6CXEFyV5/hAjcZ5dWdJ1ytES2yF+rCZQKq9si +k0FC+K+y/cLyBHrEDHP5rpIQcuL+3GqCwJqZ3uhTlIM/NGZLqxKoomGj0kvZ +t753UEmXwIuXqstvZJJwZuOXSA19AmMNr9/4Q9n75piajhGBjTd/7t9/jdov +cX97G20j0GjdpPxvyqx5YbGtOwl8wLmssz2LhGMnpSvMdxP4OzZTOImySz/D +3tKOwBZtoZrXlJ33av+2cSDwXtV3HbFsEg49Mcg94ETNT2z2t6LsoG+69bAr +gWFms5ciKO+/ZfXZxYNA6SYNnyrKtjL20R5eBO7U79T4l/KeSy4aJ88QKDC4 +qEIkhwSrhROtPv4EPvnNE9tEeecp/1OB5yhH/WfmQHn7YPjq0HAq3oN3Lf0p +m9ldqoyIIlCdIa+ZTHnr03SHuHgCW500B25SBoO8+aTLBCo6D3lXUzYqKb1+ +5QqBDdtduhsp9yqW5JpdI/AKqZbzknLglVs5P3IJHJl4+uwNZUmBoux8DpUv +T9Khg3JlWGGWzS0CbWRnbP4/vm+Gc20xj8BFonCnlfIPdn7m7XICeUtazj+h +nDJw46pTJYFB8+f+qaKse+B6htB9AvdytfcWUW5ryUmvrSMw8UDd4VTK3ibZ +V9hPCEz4KNQZTFm4+lqazAsC9z+au3+EMk8rM/VFK5WviKuICWVLTkZKwGsC +14ZqvFWkPCyVnqzaReD3/brLf1HrG5uYdrnzHYFCQQ68Nspqf6cmRfYT2O8a ++YRD+VlgcuLGLwTOqV619qF8bCwp4dMQtX6nfS2RMqf3UvzWH1R8hvSiFur/ +m+yJjxv/SeAWvnv8iZQHGmNjr88T6Pyl/N0uyorlUdF/+Bmo9vfBiVpqfz1U +iYzirmRgrWHP+lOUD2dfjHRcxcAX5/aNKVK+Fh12sUaKgQfDh96fpfbrGqeg +UF9NBg7RFQqmqPNw901AiJIOA4330LriKdta+J9/s5GBf1T8LylSTt54NlgX +GMg+1RPOpM6ToMBJ/5E9DLT1Syy3pM5jadgJv+x9DCwZ3y36nDqvFjOevrsO +MnDL1MAvpBw9wPIpdmVguqKxt3IKCX9VH/U+5sfAluzQn0+pepCvdeSkeDAD +JVcfeqRCeSvHyashlIGFnrdkLlL1IyTRkU2PZWBXg2e0bgIJc277WH1ZDNTy +Ljl0jKo/46IWzvseM3CcP6BNPYKELjb91fGnDJT59PGNMVXf6hrnIKSZgYlS +5v22VP1LCixRKOpgYKUoQ/pkGAnrBgQ+zA4xcFtqn7bPORK8yl4eyhZTwiv2 +aSsf+1D7b2VRS5mkEna8f7cp8wwJW9xCmY1ySlgx8fyC12lqPaR05EZVlPBr +XoffSqp+l4Ymv0MjJczwKp1fQ9X3IWu7g59cqXFYVnzWmYT2W2ubfnoo4faI +h7tXOZFQw8e/WfCkEhaae6vfPERCTGWFtF6AEsZ+Vgt+7kCCqoJkT9QlJVxj +Ivrwoy0J7iM9BzQqlPDobtaUw3bqvol33nd6qTKebknsjtKk4h/SpK8TUMaq +kk8uTeokzJjPfv++Shn7VZlPVqqRsIIvOcJDWhn3TuSIXFCi8g+ov+O8VhmD +2hvHd1L37Tk3ZTHrvcq4QWxlhzl1X6/ZMvxSI1cZC+9m+I6N8OD6taprX/OV +cXHqGbW2YR6ozV50v1mkjBYTZt28IR4Y3ZFboJcrY6v9rQ1HvlD9ibq1lvQT +ZawzY/2+8Z4Ht9eUxy/7pozm+u8/plL9xI5Rvx2f9VRQ7olvxvYCHsjqyEcu +M1LBz7Zun9PyqH7jdMNjDWMVrBI82fkhlwep06uMTu9UwYzSDWUemTzom7+l +teCkguZLzFh2iTw4LfBOTCpGBW2bKnYm+PMgUw37dvWqYJD7Bb3L23kw7LLs +zJ0QVczb422s/4ELIzmmtQ8vqqLPa/P/XvRyYbQ7dGlTjCpaHLSpOtjFhQnr +2Wv9KapY03iwx6eNCzObhxqEilTR1bDZJqKeC0tWN6/xeKWKqcqmgYo3uSDV +kFgjR1NDw6yGTguq39zGkFgS9VgN5/1Sl78YKQXRFuWE26PqOKm8Uoj4VgKy +0eRuPT1N9JPb5OZYVgwZGgarxNzX4qdskwf9Z27BC2njjZOXtXCvq6LvqHoR +GMo+TtLu0MZ1+k593yoLQYgvz+dI+Drk60pkH7crAPkwBSN7ZR1cp8uSdW/L +h+VKjhU2T3Xw9p6mmJN2eaDFlCL9DuliUkBeeOXMdTjdJ1pvsWg9zo3Ob/Rc +kQujk/F2OzLW4+5W77JOdhaYazdm7li7AftjadXcqavwYHLzr5nWDbj6kM0z +IY908NLU7Wlz24j3HxR9s1JLA+aI6xv75XooUNxy4saHZDBjSFoK5unhIkPn +8I0DSaAaGuv/WF8f07r3DM0zEkDdzeChUo8+3huoFFyIjAW3B6yLd05twgde +VhYt3lHw8Pob13FxA6SqdRqf+0X4UbQwo11pgMvtl0w+qwwDF6WS5ZmWhjjN +nrU3Gj0P4+opeuVjhoisEBqREghVnF/9U9GbsfxrV7zRtC84mFK9grwR1vSU +B+xoOwMyJ6KqteqMMC9HUvftK28QX8Eus9zPxF2ZIQVe99jAMTkXOGbPRN6h +7pyFQjbonkswSXFk4uJn5zuyktlgNXb7bdcRJs6KrPz2y4MNkR1Tsy5sJh7j +/y6yS4oNP/NCtgaGMfFzUnmudqAn9GxOeV1YwsQHOpXafabHgXWWk7WDx0Q/ +R8/oYZ3jMM276zZ8m4k/Bfl9+BWOgyi9a0angonaLx+OOM56wM5lcrK1dUyU +qF3Xl8LzgPtvCl1fv2Xi4Gz+UiUZD7AQqlrr20XNN4riQ8s8oMv8+bRkLxW/ +UeCRmmkW/Kj5Fn34IxMjytqvB7ezYO2NddyvQ5RlmlSjYllwv8fYN/47E3cW +T2YU+LPAYvVe0B5jYvuRKbmXx1hwLOpsm88UE5/XVuwxMaG+VxeZKfGTiR7m +otOXdFgQPpfuUjPHRGw8nzmowIJVG25pHppn4t73zQamQizIOVEztbDAxPum +ra3kb3f4H0XwV1U= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06175870752153175}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06175870752153175}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993917815467388*^9, 3.993933440092449*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"5b506e25-b1fd-4d0e-8fb4-ff4d298ce6d8"] +}, Open ]], Cell[CellGroupData[{ @@ -7578,12 +8363,15 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + CellChangeTimes->{3.99179966106703*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[BoxData["11.27534350842078`"], "Output", - CellChangeTimes->{3.9913229040054893`*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[BoxData["13.22003484564636`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.9939178155006247`*^9, + 3.993933440112172*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"93d1e836-7cc1-4710-88a0-ba6ab725c7cf"] }, Open ]], Cell[CellGroupData[{ @@ -7639,158 +8427,162 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991799666995865*^9},ExpressionUUID->"7116d4f3-8ab8-b741-8264-\ -0a5eeac170a0"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 17, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042538757`*^9}, + CellChangeTimes->{3.991799666995865*^9}, CellLabel-> - "During evaluation of \ -In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + "In[108]:=",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.2826857804387778`*^-259\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 18, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042728806`*^9}, + 2, 108, 13, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993917815593329*^9, + 3.993933440153401*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +In[108]:=",ExpressionUUID->"37634bb2-42c8-461e-ae83-c30194f6f237"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.307745920656215`*^-269\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 89, 19, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042938766`*^9}, +\"", 2, 108, 14, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993917815593329*^9, + 3.993933440156979*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +In[108]:=",ExpressionUUID->"47c3577a-4873-43f5-8e4f-cfeaef79f929"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.529901276269778`*^-279\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 108, 15, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993917815593329*^9, + 3.993933440160593*^9}, + CellLabel-> + "During evaluation of \ +In[108]:=",ExpressionUUID->"1711433a-0979-406b-940e-55079bd56e0f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 89, 20, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229043127804`*^9}, +during this calculation.\"", 2, 108, 16, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993917815593329*^9, + 3.9939334401635838`*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +In[108]:=",ExpressionUUID->"516b1aaa-a562-46a1-b7f2-3eb0d60f6990"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0Vd0bB3A/UrziFTKP995zzWMyxO15UsmlMgsNZK6EIoUGKlOEkCkz +me49kUSGIqkUGhVR6m14K5Uhs+rtd/rjrLM+66yz197P2vv7bBWvYAdfXh4e +nl/U8+c9O3Kvi5FUvvZZgTDpUmq8tr9QOmLd4EnQO/6/Wf5LKwFXPvSSHkyH +0aWrxJ6RBITb1QzwDZaCGvpPNZKrYcWYVPrCQD1ErcrWO0duhNdtW4OnBzqh +tvXVSTrpDJaM0VeTA0+g7cnw2RiOLywMGJ+fGHgL4iZ8VvwXD8Gt9ZXlj0un +oNNN0U04JA7kXzf/66X1C1InJCU3JKSBRKBHzbL1fFhPzzz8I+s8pOtbtm51 +FsBM5j2//KE8eJGj1zEpKoxXYpRD7E8VQVL5iYe8MiswpT26OU2xFKQy3yVm +FIjjnMW1FIt15RDvxF77ZHYlNtd26S5ZUQGhpiUe905K4/+etpl9eFwJG8YX +I4PeyeJkhMNpEqohwipT4+ZXWQw4IzgysqEaLpVoD4nPyuLQ4vMlwtbVIO3k +adosIIfvJiOveThVw9drt+f4dOSQ2BVeOxJQDRkn08Jyj8ih6rYPeRbnquHt +SmZQl7A8Plv/80Tx62qIMbffLWuigEUT78MqD9aA1a7C78YWCph39MKOPYdr +QCT6yynnzQpokLwhWPVoDeTfiq1I81RA2/JGiZzYGrhm3fJlaaIC5jdZbbfJ +qYEJV3r41AsFLNRKu7LQVgO7Ds2c6Y1SxOOvSsvC+DhAZFvIj8Yq4gO/DyWt +yzjUfFPJZWmKeMpO+u5/QhyI/Kn+yKJcEQ32CsVFSHDg/KldK5t7FbH/zbF+ +JDjQe+5u0UUFJXT4YVYtacmBNZdyG463KyFbW07k9WkObBh48GusWwnFp2cm +9yRwYCvPkk0eT5Tw9p2+qMkkDng7BL2AD0oo7JIbM5vOAcsolRPR/MpY23zH +ZbCYAyFKs2XrNJXRSuOlwY9WDnT5F327Fa6MfslFujfGOcD+aSp2NEoZY68G +TL76zoEHaf1GhtHKeFMge/viDAdeNAtGlycqYzV/vrr6Tw6MCYWJxeYro0x8 +c+0uAS5I11kZW3Yq44Wz32PUlbkQOD8Z3S2sgsm/0rfAFi6sOeAn+a+YCuo5 +1u/XseOCwOgQh09aBY3zfCtkHLlwcfjW87U0FTyacMbrvSsXRm6c17pqpII7 +bESFbXy4YBtrOljioYIXI6b9d0ZywUAsRjfqsgoK14Syc8q4wJM005XTqILH +D6QJClVw4QHfXvfGVhWcdJ7/ElHFhX0zDrGTt1UwRVlGZjPJhfJBxrD/kAqy +6cOKnY1ckCzqjnPio+FXtf+0Zrq5sKApOqLtTENDn3F65CgXZgtkY1a50/DX +5nM3A75yYfpvgmHqQcOzvBOXHce4MDZlunfDHhpK1JQmK37nwttW71n3YzRk +s9caJSxw4b5Nk0jCRRryJN1u5ywj4e71m5fP1tDQd1C63UOQhC7dXqeMWhqe +7ouQFhUi4Yb4P3mFzTS8ccxh2FeEhPrhv1Sv9tFwBU2g9oMECXn7dsHbGRq+ +zNX4z0iFhOxXAW8/LtKwsbThRR2NhEzb0Nhvv2mY+8NFSpVBQsqqhJ55QTr6 +mPO0CqiScPLH5W1/K9Lx/YO++mItEvYl8YeYW9JReerTK7oxCQG//ha3sKGj +6N0qOR8TEvyCZRs32dFxvhq7ik1J8HTU/engTkehQXT925wEJzm3hD1BdNR+ +VXrhJpJgzuEWZ2XR8WKlhngUm4RhZU7Rxgt0bCrWLw+xJiEyq7pwuoiOsy51 +St42JDTFVOQ7VNNRqnfF4NotJBi4FueItNHx8729Ox7bkfC4rzD7egcdG1YY +2F6yJyFkfUFW4G06vuw9rJfgQMIlnbzM+w/o6BGV1GHgRII6f2Za3D90VC1m +E97bSOiOTE9d/S8d146G56m6UuuZSEt5P0rHM1Zs3s+Uy4fPJltM03FxcoHj +5U6Ccn18wn9LGRhrHByuv5MESY+o6HAtBkp7+HiyvEi42h9xgtBn4LPxdfiY +spP1keP9qxmo1xos5+VNQvrqQ0cNgIH2ZXO3I31IEF4efGTMnoFVLWE/4v1I +4MbsP1zgwkD2/eTbfP4kWM/tC9+8nYE/qo6kHqWc8DYgrMaHgarpkoRvAAlL +mr1C/A4z0O1Qmr/YXhLKdHYHrzzKwDsSezCcskW5R1BXNANfKzUpDFA+kboj +kHaGgX2Swp9S95GgyL993+MUBmrPWzz/SLkt0m1vdAYDG3Ste8wDSVj0dQkY +yWfg0Wzt3leUc4ed/M+WUOP5mb1Q30+Cib2jn3kFA7ffPzZ+kHK4uZ1PXi0D +rZIF1vykvLJ+qze7gYHlmnHB5kEkNKhu8Zq/xsDqN6V1EZQnxaw9XToZeJdX +3fUL5cFA2qO9dxm4McNkOSOYhI47i3Cil4H9XiFsN8pVyk9rMx4zsCMuVzSJ +clokR6nqOQNnLh/zaqZ8pP9UatswAzsNP8J7yp46O34/esPATT+Lq4VCSLBK +MAz+8IGBtunhxbqU9d4uf70wysBH8oaEHWVp8w9bRSYYmLOzwmQ/ZZ6s6zdo +M1Q9L+cNx1H+NH5ex3iRgaUrXosUUH7IDiq0+c1AuqjF01rKjWWWIp5LCMwe +Sldvp1z4S/F4mCCBoiYlYj2U47bNfUsQIdAhkZX6lHLQ5Yc7C8QJXNdtUjxI +2UWoqu+yNIHR8T6WQ5TX+kaz7igQqPA9/eSf78x2V3KIRqBJT5bzn/+FZfQV +xlUJzNy/vuM+5emDgmf5tAmU6wm8dYPyy95/fkoZENgQ+NHjz/y6mC2BWsYE +dh5IyMqnzI1Of4nmlFOJgD/ryxzau9l5HYHPVpx/Fkj5qOH6tj2WBGYMkq9t +KfukyGkdtyEwwm1T/J/62XyaupBuR2BRoWnfn/oaWPQKVToTyLbcWf+n/rL5 +5VGt7gQeOZlk3EJ51NZ5+3sfAhN3BxPbKT+p1u6Z30OgoNVQKpNyC99SM+Fg +AsvZLQVj1H5IbGqUNYog8GqgdWUY5ZAVqWesjxN43bOh3ICy6z7/xV2nCNwq +sYz9jdpvakrSQ/FnCdQ+/ybRlbJoxAQ7P53AhCZCTZDy/JPu5rpsAm9aPApp +pPZzd1xE7osSAu95DS5ZRtl/bMhVs5HAV9H+dtHUedlqdaUbWqn1N8W5S1I2 +Kk0yceogsMxJSbJ6DwlLXcylj90nkFfb/mIXdR4rrhcMPBghMKb8vXk/dZ5T +pMI3vXtHoHL8/BdbyuEHtjbNfaLm19Dm2O1Lwkbid5byFIHOaT/saqk8eJ/s +6XJwGROzguflXKj8CBrVouktZ+IkHnHo3E3C3KaFb99EmbjzrUKDJuW/+NJj +98gyEeH1jxkPaj9H3Grw1GZiAP+B+gAqn475MsVtHZn4brHX7y6Vd0tvfR9Z +7spEmZglnKWU05Tba+7vYKJhZglzvcufvNtmYenHRLur6nevUHl53z7xACuC +Gt/Q6VYola+Sa78+1Cxiok77DtdgKq+LL1y78LmMiWrOtAMnqTxXXzjtX1nF +xMy+b33pVlTeNyj8ptUzsQF6XDiWJHhr2OrI3mZihxKzrdWChDrJ+mSBL0z8 +FNJwxn0NCezxw+wPRqrYMaY2fZ7qR/L6inEC5qpYtPuSgAmThLGDXZ2a61Rx +vMxu6QDVvzJnRc0P2qhiXbbxTSGqv438qtb57aGKc79aHe3kSTi4/KW4TKIq +PrUOHbEUpfqjOo5sHlZFmS05xpMz1H1k37+yIW9UseRzTbLBNBeATN6W8UEV +v+JfYyFUv36v9+LRi3FVrNivN/Se6uc6Jgdv+S1Rw8DE5sPVH7lwy7K8Klpb +DTvtZ25XDHLhq7dAaMMJNdQyM2uIuEb1/8IN19tPq2HI/d+FAdR9YvxF9LKe +RDV8FdTW79TAhe+2Cxf+yVDDzfSzBFHHhTmz0S6RKjV8ebky6mIlF3gleiX3 +PFLD9CsXpogsLsh0pbYoqKijy1DThPYBLnXfl+KN71RH+94zc7lKXPjstanK +7K46Rrhvo4srcCG55PDWiR51ZE4mrzojy4WnioN5bs/UUfoRL//BlVzwlMld +pfVJHbPtH8apCXEhQkTO97GwBo6/lH+pP8sB7rxit5ybBp7i749ru88BsT5m +St24BvpYnJf6tJ8D8gm1dkZGWvg51FEmO6kGcjRNRcX9tZF8uDN1SUE13Jdd +t3rqnA4GlIlPVhRUwRr5zjTd57ro/04rf+WhShDhKw3bfVIPG6fePZF3qADF +GCVzN6Y+lkkFd10RugiCxI5Gh7v6OE7WKdh2lYEOS6b28E4DtD1RKrs+rRQO +jojdsuZZhTZue3W7LUpgfCrZmZ2zCrdrvnWcFCmGTbp38tjahhgX+/lRZV8B +3Jgy+zH3wBBt5iU6/XdcgCAtg6HHvqsxLkXhipR6LrDGfPrdBI2wdBP/jTuv +s2AjQ3qLcKkRLuPd9y5jIBPUos8c6TQ2xrVp3h+kptNBw9e0nRgyxvgW36U3 +l54D3xsBpxsOmGD1NWebsroUaC/u95lcaYq6G6UaPm5Jgumq33O6Tabo4hhj +1chKAG+CI5i3ZQ12L3FXfpcfC5MaGUb1E2tw42WHQe7/TsG18h//zCSY4UnJ +BQuznmhw30BHM0VzFKt4kPT3xWMgtz++WafDHFX2i9j634uAlX8FXt6yjYXn +9WQE7qSEQ/n6Y5ETbixsL21bSosJB4NjKeszdrDQXaal9nRoOGydqHs2uJuF ++llB8ztdwyHu+cyCdyALpZK9NDxp4TBfesIiMoaFPXunzEuaDsGQWcbTCg4L +P8+IHl72MQwCDpXnsy+xMFByX4PhUBjMXrrq+7WOhWd4aG4BfWEgRhuc029k +4e0g80dvr4SBjYCC/PUOFoZ9MlnDiAmDtv4Kn6fPWOizvIQYkA8Da5Fr2uGD +LOQ5r/5yj2gYDG66Nys9zMKFru2DvEvCYLrlS8KuNyx8YLgld9OXUNAu0SM/ +j7IwScmeV74lFNqG1oUnf2Oh+RoJzhsyFKwlHEF3goVCYUUJnJJQ8Is/9Dhs +hoVRnvkvHBNDYbojLk9qnoXfeJ5Z6R8LhZOL2d4tiyxsKPB+L3EgFEQNq7V2 +/mKh2DnNmv98QqFwf8vM798sVNUUzRlzDYX/A9UsKBM= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7804,117 +8596,113 @@ U0FU/w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== +1:eJwV1nk0Vd0bB3A/UrziFTKP995zzWMyxO15UsmlMgsNZK6EIoUGKlOEkCkz +me49kUSGIqkUGhVR6m14K5Uhs+rtd/rjrLM+66yz197P2vv7bBWvYAdfXh4e +nl/U8+c9O3Kvi5FUvvZZgTDpUmq8tr9QOmLd4EnQO/6/Wf5LKwFXPvSSHkyH +0aWrxJ6RBITb1QzwDZaCGvpPNZKrYcWYVPrCQD1ErcrWO0duhNdtW4OnBzqh +tvXVSTrpDJaM0VeTA0+g7cnw2RiOLywMGJ+fGHgL4iZ8VvwXD8Gt9ZXlj0un +oNNN0U04JA7kXzf/66X1C1InJCU3JKSBRKBHzbL1fFhPzzz8I+s8pOtbtm51 +FsBM5j2//KE8eJGj1zEpKoxXYpRD7E8VQVL5iYe8MiswpT26OU2xFKQy3yVm +FIjjnMW1FIt15RDvxF77ZHYlNtd26S5ZUQGhpiUe905K4/+etpl9eFwJG8YX +I4PeyeJkhMNpEqohwipT4+ZXWQw4IzgysqEaLpVoD4nPyuLQ4vMlwtbVIO3k +adosIIfvJiOveThVw9drt+f4dOSQ2BVeOxJQDRkn08Jyj8ih6rYPeRbnquHt +SmZQl7A8Plv/80Tx62qIMbffLWuigEUT78MqD9aA1a7C78YWCph39MKOPYdr +QCT6yynnzQpokLwhWPVoDeTfiq1I81RA2/JGiZzYGrhm3fJlaaIC5jdZbbfJ +qYEJV3r41AsFLNRKu7LQVgO7Ds2c6Y1SxOOvSsvC+DhAZFvIj8Yq4gO/DyWt +yzjUfFPJZWmKeMpO+u5/QhyI/Kn+yKJcEQ32CsVFSHDg/KldK5t7FbH/zbF+ +JDjQe+5u0UUFJXT4YVYtacmBNZdyG463KyFbW07k9WkObBh48GusWwnFp2cm +9yRwYCvPkk0eT5Tw9p2+qMkkDng7BL2AD0oo7JIbM5vOAcsolRPR/MpY23zH +ZbCYAyFKs2XrNJXRSuOlwY9WDnT5F327Fa6MfslFujfGOcD+aSp2NEoZY68G +TL76zoEHaf1GhtHKeFMge/viDAdeNAtGlycqYzV/vrr6Tw6MCYWJxeYro0x8 +c+0uAS5I11kZW3Yq44Wz32PUlbkQOD8Z3S2sgsm/0rfAFi6sOeAn+a+YCuo5 +1u/XseOCwOgQh09aBY3zfCtkHLlwcfjW87U0FTyacMbrvSsXRm6c17pqpII7 +bESFbXy4YBtrOljioYIXI6b9d0ZywUAsRjfqsgoK14Syc8q4wJM005XTqILH +D6QJClVw4QHfXvfGVhWcdJ7/ElHFhX0zDrGTt1UwRVlGZjPJhfJBxrD/kAqy +6cOKnY1ckCzqjnPio+FXtf+0Zrq5sKApOqLtTENDn3F65CgXZgtkY1a50/DX +5nM3A75yYfpvgmHqQcOzvBOXHce4MDZlunfDHhpK1JQmK37nwttW71n3YzRk +s9caJSxw4b5Nk0jCRRryJN1u5ywj4e71m5fP1tDQd1C63UOQhC7dXqeMWhqe +7ouQFhUi4Yb4P3mFzTS8ccxh2FeEhPrhv1Sv9tFwBU2g9oMECXn7dsHbGRq+ +zNX4z0iFhOxXAW8/LtKwsbThRR2NhEzb0Nhvv2mY+8NFSpVBQsqqhJ55QTr6 +mPO0CqiScPLH5W1/K9Lx/YO++mItEvYl8YeYW9JReerTK7oxCQG//ha3sKGj +6N0qOR8TEvyCZRs32dFxvhq7ik1J8HTU/engTkehQXT925wEJzm3hD1BdNR+ +VXrhJpJgzuEWZ2XR8WKlhngUm4RhZU7Rxgt0bCrWLw+xJiEyq7pwuoiOsy51 +St42JDTFVOQ7VNNRqnfF4NotJBi4FueItNHx8729Ox7bkfC4rzD7egcdG1YY +2F6yJyFkfUFW4G06vuw9rJfgQMIlnbzM+w/o6BGV1GHgRII6f2Za3D90VC1m +E97bSOiOTE9d/S8d146G56m6UuuZSEt5P0rHM1Zs3s+Uy4fPJltM03FxcoHj +5U6Ccn18wn9LGRhrHByuv5MESY+o6HAtBkp7+HiyvEi42h9xgtBn4LPxdfiY +spP1keP9qxmo1xos5+VNQvrqQ0cNgIH2ZXO3I31IEF4efGTMnoFVLWE/4v1I +4MbsP1zgwkD2/eTbfP4kWM/tC9+8nYE/qo6kHqWc8DYgrMaHgarpkoRvAAlL +mr1C/A4z0O1Qmr/YXhLKdHYHrzzKwDsSezCcskW5R1BXNANfKzUpDFA+kboj +kHaGgX2Swp9S95GgyL993+MUBmrPWzz/SLkt0m1vdAYDG3Ste8wDSVj0dQkY +yWfg0Wzt3leUc4ed/M+WUOP5mb1Q30+Cib2jn3kFA7ffPzZ+kHK4uZ1PXi0D +rZIF1vykvLJ+qze7gYHlmnHB5kEkNKhu8Zq/xsDqN6V1EZQnxaw9XToZeJdX +3fUL5cFA2qO9dxm4McNkOSOYhI47i3Cil4H9XiFsN8pVyk9rMx4zsCMuVzSJ +clokR6nqOQNnLh/zaqZ8pP9UatswAzsNP8J7yp46O34/esPATT+Lq4VCSLBK +MAz+8IGBtunhxbqU9d4uf70wysBH8oaEHWVp8w9bRSYYmLOzwmQ/ZZ6s6zdo +M1Q9L+cNx1H+NH5ex3iRgaUrXosUUH7IDiq0+c1AuqjF01rKjWWWIp5LCMwe +Sldvp1z4S/F4mCCBoiYlYj2U47bNfUsQIdAhkZX6lHLQ5Yc7C8QJXNdtUjxI +2UWoqu+yNIHR8T6WQ5TX+kaz7igQqPA9/eSf78x2V3KIRqBJT5bzn/+FZfQV +xlUJzNy/vuM+5emDgmf5tAmU6wm8dYPyy95/fkoZENgQ+NHjz/y6mC2BWsYE +dh5IyMqnzI1Of4nmlFOJgD/ryxzau9l5HYHPVpx/Fkj5qOH6tj2WBGYMkq9t +KfukyGkdtyEwwm1T/J/62XyaupBuR2BRoWnfn/oaWPQKVToTyLbcWf+n/rL5 +5VGt7gQeOZlk3EJ51NZ5+3sfAhN3BxPbKT+p1u6Z30OgoNVQKpNyC99SM+Fg +AsvZLQVj1H5IbGqUNYog8GqgdWUY5ZAVqWesjxN43bOh3ICy6z7/xV2nCNwq +sYz9jdpvakrSQ/FnCdQ+/ybRlbJoxAQ7P53AhCZCTZDy/JPu5rpsAm9aPApp +pPZzd1xE7osSAu95DS5ZRtl/bMhVs5HAV9H+dtHUedlqdaUbWqn1N8W5S1I2 +Kk0yceogsMxJSbJ6DwlLXcylj90nkFfb/mIXdR4rrhcMPBghMKb8vXk/dZ5T +pMI3vXtHoHL8/BdbyuEHtjbNfaLm19Dm2O1Lwkbid5byFIHOaT/saqk8eJ/s +6XJwGROzguflXKj8CBrVouktZ+IkHnHo3E3C3KaFb99EmbjzrUKDJuW/+NJj +98gyEeH1jxkPaj9H3Grw1GZiAP+B+gAqn475MsVtHZn4brHX7y6Vd0tvfR9Z +7spEmZglnKWU05Tba+7vYKJhZglzvcufvNtmYenHRLur6nevUHl53z7xACuC +Gt/Q6VYola+Sa78+1Cxiok77DtdgKq+LL1y78LmMiWrOtAMnqTxXXzjtX1nF +xMy+b33pVlTeNyj8ptUzsQF6XDiWJHhr2OrI3mZihxKzrdWChDrJ+mSBL0z8 +FNJwxn0NCezxw+wPRqrYMaY2fZ7qR/L6inEC5qpYtPuSgAmThLGDXZ2a61Rx +vMxu6QDVvzJnRc0P2qhiXbbxTSGqv438qtb57aGKc79aHe3kSTi4/KW4TKIq +PrUOHbEUpfqjOo5sHlZFmS05xpMz1H1k37+yIW9UseRzTbLBNBeATN6W8UEV +v+JfYyFUv36v9+LRi3FVrNivN/Se6uc6Jgdv+S1Rw8DE5sPVH7lwy7K8Klpb +DTvtZ25XDHLhq7dAaMMJNdQyM2uIuEb1/8IN19tPq2HI/d+FAdR9YvxF9LKe +RDV8FdTW79TAhe+2Cxf+yVDDzfSzBFHHhTmz0S6RKjV8ebky6mIlF3gleiX3 +PFLD9CsXpogsLsh0pbYoqKijy1DThPYBLnXfl+KN71RH+94zc7lKXPjstanK +7K46Rrhvo4srcCG55PDWiR51ZE4mrzojy4WnioN5bs/UUfoRL//BlVzwlMld +pfVJHbPtH8apCXEhQkTO97GwBo6/lH+pP8sB7rxit5ybBp7i749ru88BsT5m +St24BvpYnJf6tJ8D8gm1dkZGWvg51FEmO6kGcjRNRcX9tZF8uDN1SUE13Jdd +t3rqnA4GlIlPVhRUwRr5zjTd57ro/04rf+WhShDhKw3bfVIPG6fePZF3qADF +GCVzN6Y+lkkFd10RugiCxI5Gh7v6OE7WKdh2lYEOS6b28E4DtD1RKrs+rRQO +jojdsuZZhTZue3W7LUpgfCrZmZ2zCrdrvnWcFCmGTbp38tjahhgX+/lRZV8B +3Jgy+zH3wBBt5iU6/XdcgCAtg6HHvqsxLkXhipR6LrDGfPrdBI2wdBP/jTuv +s2AjQ3qLcKkRLuPd9y5jIBPUos8c6TQ2xrVp3h+kptNBw9e0nRgyxvgW36U3 +l54D3xsBpxsOmGD1NWebsroUaC/u95lcaYq6G6UaPm5Jgumq33O6Tabo4hhj +1chKAG+CI5i3ZQ12L3FXfpcfC5MaGUb1E2tw42WHQe7/TsG18h//zCSY4UnJ +BQuznmhw30BHM0VzFKt4kPT3xWMgtz++WafDHFX2i9j634uAlX8FXt6yjYXn +9WQE7qSEQ/n6Y5ETbixsL21bSosJB4NjKeszdrDQXaal9nRoOGydqHs2uJuF ++llB8ztdwyHu+cyCdyALpZK9NDxp4TBfesIiMoaFPXunzEuaDsGQWcbTCg4L +P8+IHl72MQwCDpXnsy+xMFByX4PhUBjMXrrq+7WOhWd4aG4BfWEgRhuc029k +4e0g80dvr4SBjYCC/PUOFoZ9MlnDiAmDtv4Kn6fPWOizvIQYkA8Da5Fr2uGD +LOQ5r/5yj2gYDG66Nys9zMKFru2DvEvCYLrlS8KuNyx8YLgld9OXUNAu0SM/ +j7IwScmeV74lFNqG1oUnf2Oh+RoJzhsyFKwlHEF3goVCYUUJnJJQ8Is/9Dhs +hoVRnvkvHBNDYbojLk9qnoXfeJ5Z6R8LhZOL2d4tiyxsKPB+L3EgFEQNq7V2 +/mKh2DnNmv98QqFwf8vM798sVNUUzRlzDYX/A9UsKBM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.05750162228856848}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7926,19 +8714,19 @@ U0FU/w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.05750162228856848}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7952,116 +8740,112 @@ U0FU/w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== +1:eJwV1nk0Vd0bB3A/UrziFTKP995zzWMyxO15UsmlMgsNZK6EIoUGKlOEkCkz +me49kUSGIqkUGhVR6m14K5Uhs+rtd/rjrLM+66yz197P2vv7bBWvYAdfXh4e +nl/U8+c9O3Kvi5FUvvZZgTDpUmq8tr9QOmLd4EnQO/6/Wf5LKwFXPvSSHkyH +0aWrxJ6RBITb1QzwDZaCGvpPNZKrYcWYVPrCQD1ErcrWO0duhNdtW4OnBzqh +tvXVSTrpDJaM0VeTA0+g7cnw2RiOLywMGJ+fGHgL4iZ8VvwXD8Gt9ZXlj0un +oNNN0U04JA7kXzf/66X1C1InJCU3JKSBRKBHzbL1fFhPzzz8I+s8pOtbtm51 +FsBM5j2//KE8eJGj1zEpKoxXYpRD7E8VQVL5iYe8MiswpT26OU2xFKQy3yVm +FIjjnMW1FIt15RDvxF77ZHYlNtd26S5ZUQGhpiUe905K4/+etpl9eFwJG8YX +I4PeyeJkhMNpEqohwipT4+ZXWQw4IzgysqEaLpVoD4nPyuLQ4vMlwtbVIO3k +adosIIfvJiOveThVw9drt+f4dOSQ2BVeOxJQDRkn08Jyj8ih6rYPeRbnquHt +SmZQl7A8Plv/80Tx62qIMbffLWuigEUT78MqD9aA1a7C78YWCph39MKOPYdr +QCT6yynnzQpokLwhWPVoDeTfiq1I81RA2/JGiZzYGrhm3fJlaaIC5jdZbbfJ +qYEJV3r41AsFLNRKu7LQVgO7Ds2c6Y1SxOOvSsvC+DhAZFvIj8Yq4gO/DyWt +yzjUfFPJZWmKeMpO+u5/QhyI/Kn+yKJcEQ32CsVFSHDg/KldK5t7FbH/zbF+ +JDjQe+5u0UUFJXT4YVYtacmBNZdyG463KyFbW07k9WkObBh48GusWwnFp2cm +9yRwYCvPkk0eT5Tw9p2+qMkkDng7BL2AD0oo7JIbM5vOAcsolRPR/MpY23zH +ZbCYAyFKs2XrNJXRSuOlwY9WDnT5F327Fa6MfslFujfGOcD+aSp2NEoZY68G +TL76zoEHaf1GhtHKeFMge/viDAdeNAtGlycqYzV/vrr6Tw6MCYWJxeYro0x8 +c+0uAS5I11kZW3Yq44Wz32PUlbkQOD8Z3S2sgsm/0rfAFi6sOeAn+a+YCuo5 +1u/XseOCwOgQh09aBY3zfCtkHLlwcfjW87U0FTyacMbrvSsXRm6c17pqpII7 +bESFbXy4YBtrOljioYIXI6b9d0ZywUAsRjfqsgoK14Syc8q4wJM005XTqILH +D6QJClVw4QHfXvfGVhWcdJ7/ElHFhX0zDrGTt1UwRVlGZjPJhfJBxrD/kAqy +6cOKnY1ckCzqjnPio+FXtf+0Zrq5sKApOqLtTENDn3F65CgXZgtkY1a50/DX +5nM3A75yYfpvgmHqQcOzvBOXHce4MDZlunfDHhpK1JQmK37nwttW71n3YzRk +s9caJSxw4b5Nk0jCRRryJN1u5ywj4e71m5fP1tDQd1C63UOQhC7dXqeMWhqe +7ouQFhUi4Yb4P3mFzTS8ccxh2FeEhPrhv1Sv9tFwBU2g9oMECXn7dsHbGRq+ +zNX4z0iFhOxXAW8/LtKwsbThRR2NhEzb0Nhvv2mY+8NFSpVBQsqqhJ55QTr6 +mPO0CqiScPLH5W1/K9Lx/YO++mItEvYl8YeYW9JReerTK7oxCQG//ha3sKGj +6N0qOR8TEvyCZRs32dFxvhq7ik1J8HTU/engTkehQXT925wEJzm3hD1BdNR+ +VXrhJpJgzuEWZ2XR8WKlhngUm4RhZU7Rxgt0bCrWLw+xJiEyq7pwuoiOsy51 +St42JDTFVOQ7VNNRqnfF4NotJBi4FueItNHx8729Ox7bkfC4rzD7egcdG1YY +2F6yJyFkfUFW4G06vuw9rJfgQMIlnbzM+w/o6BGV1GHgRII6f2Za3D90VC1m +E97bSOiOTE9d/S8d146G56m6UuuZSEt5P0rHM1Zs3s+Uy4fPJltM03FxcoHj +5U6Ccn18wn9LGRhrHByuv5MESY+o6HAtBkp7+HiyvEi42h9xgtBn4LPxdfiY +spP1keP9qxmo1xos5+VNQvrqQ0cNgIH2ZXO3I31IEF4efGTMnoFVLWE/4v1I +4MbsP1zgwkD2/eTbfP4kWM/tC9+8nYE/qo6kHqWc8DYgrMaHgarpkoRvAAlL +mr1C/A4z0O1Qmr/YXhLKdHYHrzzKwDsSezCcskW5R1BXNANfKzUpDFA+kboj +kHaGgX2Swp9S95GgyL993+MUBmrPWzz/SLkt0m1vdAYDG3Ste8wDSVj0dQkY +yWfg0Wzt3leUc4ed/M+WUOP5mb1Q30+Cib2jn3kFA7ffPzZ+kHK4uZ1PXi0D +rZIF1vykvLJ+qze7gYHlmnHB5kEkNKhu8Zq/xsDqN6V1EZQnxaw9XToZeJdX +3fUL5cFA2qO9dxm4McNkOSOYhI47i3Cil4H9XiFsN8pVyk9rMx4zsCMuVzSJ +clokR6nqOQNnLh/zaqZ8pP9UatswAzsNP8J7yp46O34/esPATT+Lq4VCSLBK +MAz+8IGBtunhxbqU9d4uf70wysBH8oaEHWVp8w9bRSYYmLOzwmQ/ZZ6s6zdo +M1Q9L+cNx1H+NH5ex3iRgaUrXosUUH7IDiq0+c1AuqjF01rKjWWWIp5LCMwe +Sldvp1z4S/F4mCCBoiYlYj2U47bNfUsQIdAhkZX6lHLQ5Yc7C8QJXNdtUjxI +2UWoqu+yNIHR8T6WQ5TX+kaz7igQqPA9/eSf78x2V3KIRqBJT5bzn/+FZfQV +xlUJzNy/vuM+5emDgmf5tAmU6wm8dYPyy95/fkoZENgQ+NHjz/y6mC2BWsYE +dh5IyMqnzI1Of4nmlFOJgD/ryxzau9l5HYHPVpx/Fkj5qOH6tj2WBGYMkq9t +KfukyGkdtyEwwm1T/J/62XyaupBuR2BRoWnfn/oaWPQKVToTyLbcWf+n/rL5 +5VGt7gQeOZlk3EJ51NZ5+3sfAhN3BxPbKT+p1u6Z30OgoNVQKpNyC99SM+Fg +AsvZLQVj1H5IbGqUNYog8GqgdWUY5ZAVqWesjxN43bOh3ICy6z7/xV2nCNwq +sYz9jdpvakrSQ/FnCdQ+/ybRlbJoxAQ7P53AhCZCTZDy/JPu5rpsAm9aPApp +pPZzd1xE7osSAu95DS5ZRtl/bMhVs5HAV9H+dtHUedlqdaUbWqn1N8W5S1I2 +Kk0yceogsMxJSbJ6DwlLXcylj90nkFfb/mIXdR4rrhcMPBghMKb8vXk/dZ5T +pMI3vXtHoHL8/BdbyuEHtjbNfaLm19Dm2O1Lwkbid5byFIHOaT/saqk8eJ/s +6XJwGROzguflXKj8CBrVouktZ+IkHnHo3E3C3KaFb99EmbjzrUKDJuW/+NJj +98gyEeH1jxkPaj9H3Grw1GZiAP+B+gAqn475MsVtHZn4brHX7y6Vd0tvfR9Z +7spEmZglnKWU05Tba+7vYKJhZglzvcufvNtmYenHRLur6nevUHl53z7xACuC +Gt/Q6VYola+Sa78+1Cxiok77DtdgKq+LL1y78LmMiWrOtAMnqTxXXzjtX1nF +xMy+b33pVlTeNyj8ptUzsQF6XDiWJHhr2OrI3mZihxKzrdWChDrJ+mSBL0z8 +FNJwxn0NCezxw+wPRqrYMaY2fZ7qR/L6inEC5qpYtPuSgAmThLGDXZ2a61Rx +vMxu6QDVvzJnRc0P2qhiXbbxTSGqv438qtb57aGKc79aHe3kSTi4/KW4TKIq +PrUOHbEUpfqjOo5sHlZFmS05xpMz1H1k37+yIW9UseRzTbLBNBeATN6W8UEV +v+JfYyFUv36v9+LRi3FVrNivN/Se6uc6Jgdv+S1Rw8DE5sPVH7lwy7K8Klpb +DTvtZ25XDHLhq7dAaMMJNdQyM2uIuEb1/8IN19tPq2HI/d+FAdR9YvxF9LKe +RDV8FdTW79TAhe+2Cxf+yVDDzfSzBFHHhTmz0S6RKjV8ebky6mIlF3gleiX3 +PFLD9CsXpogsLsh0pbYoqKijy1DThPYBLnXfl+KN71RH+94zc7lKXPjstanK +7K46Rrhvo4srcCG55PDWiR51ZE4mrzojy4WnioN5bs/UUfoRL//BlVzwlMld +pfVJHbPtH8apCXEhQkTO97GwBo6/lH+pP8sB7rxit5ybBp7i749ru88BsT5m +St24BvpYnJf6tJ8D8gm1dkZGWvg51FEmO6kGcjRNRcX9tZF8uDN1SUE13Jdd +t3rqnA4GlIlPVhRUwRr5zjTd57ro/04rf+WhShDhKw3bfVIPG6fePZF3qADF +GCVzN6Y+lkkFd10RugiCxI5Gh7v6OE7WKdh2lYEOS6b28E4DtD1RKrs+rRQO +jojdsuZZhTZue3W7LUpgfCrZmZ2zCrdrvnWcFCmGTbp38tjahhgX+/lRZV8B +3Jgy+zH3wBBt5iU6/XdcgCAtg6HHvqsxLkXhipR6LrDGfPrdBI2wdBP/jTuv +s2AjQ3qLcKkRLuPd9y5jIBPUos8c6TQ2xrVp3h+kptNBw9e0nRgyxvgW36U3 +l54D3xsBpxsOmGD1NWebsroUaC/u95lcaYq6G6UaPm5Jgumq33O6Tabo4hhj +1chKAG+CI5i3ZQ12L3FXfpcfC5MaGUb1E2tw42WHQe7/TsG18h//zCSY4UnJ +BQuznmhw30BHM0VzFKt4kPT3xWMgtz++WafDHFX2i9j634uAlX8FXt6yjYXn +9WQE7qSEQ/n6Y5ETbixsL21bSosJB4NjKeszdrDQXaal9nRoOGydqHs2uJuF ++llB8ztdwyHu+cyCdyALpZK9NDxp4TBfesIiMoaFPXunzEuaDsGQWcbTCg4L +P8+IHl72MQwCDpXnsy+xMFByX4PhUBjMXrrq+7WOhWd4aG4BfWEgRhuc029k +4e0g80dvr4SBjYCC/PUOFoZ9MlnDiAmDtv4Kn6fPWOizvIQYkA8Da5Fr2uGD +LOQ5r/5yj2gYDG66Nys9zMKFru2DvEvCYLrlS8KuNyx8YLgld9OXUNAu0SM/ +j7IwScmeV74lFNqG1oUnf2Oh+RoJzhsyFKwlHEF3goVCYUUJnJJQ8Is/9Dhs +hoVRnvkvHBNDYbojLk9qnoXfeJ5Z6R8LhZOL2d4tiyxsKPB+L3EgFEQNq7V2 +/mKh2DnNmv98QqFwf8vM798sVNUUzRlzDYX/A9UsKBM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.05750162228856848}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8072,6 +8856,7 @@ U0FU/w== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8099,7 +8884,8 @@ U0FU/w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05750162228856848}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8107,8 +8893,10 @@ U0FU/w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913236646248627`*^9}, - CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] + CellChangeTimes->{3.9913236646248627`*^9, 3.99391825249035*^9, + 3.993933654714719*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"441956a8-144e-4cd4-a3fb-4eec918ab3ca"] }, Open ]], Cell[CellGroupData[{ @@ -8160,65 +8948,76 @@ Cell[BoxData[ FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", - CellLabel->"In[90]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], + CellLabel-> + "In[109]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 90, - 21, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323664732767*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.518592763932924`*^-171\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 109, 17, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.99391825255534*^9, + 3.993933654781662*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +In[109]:=",ExpressionUUID->"135ea8ce-f120-4aa8-8f3f-d102b128839d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 22, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132366476486*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0426407245101099`*^-174\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 109, 18, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.99391825255534*^9, + 3.993933654785117*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +In[109]:=",ExpressionUUID->"976ff930-5454-42c0-bcd9-ef8f65e2684e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 23, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236647877655`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.158599107186206`*^-178\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 109, 19, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.99391825255534*^9, + 3.99393365478833*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +In[109]:=",ExpressionUUID->"f03a0b4a-d5e9-42c3-b425-e803ce32a17d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 90, 24, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236648078594`*^9}, +during this calculation.\"", 2, 109, 20, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.99391825255534*^9, + 3.993933654791649*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +In[109]:=",ExpressionUUID->"036a2407-eb32-46e7-bda2-6faffb95b6d2"], -Cell[BoxData["11.275343508420768`"], "Output", - CellChangeTimes->{3.9913236764669056`*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[BoxData["13.218539116047832`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.993918297086288*^9, + 3.9939336758855963`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"8280ebee-f859-4124-9606-583a6bb1eace"] }, Open ]], Cell[CellGroupData[{ @@ -8285,67 +9084,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917996753598194`*^9, - 3.991799698091812*^9}},ExpressionUUID->"18d0289f-01fd-a740-8fac-\ -540622282b2c"], + CellChangeTimes->{{3.9917996753598194`*^9, 3.991799698091812*^9}}, + CellLabel-> + "In[110]:=",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 25, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765399036`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1171216361206813`*^-229\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 110, 21, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.9939182971283913`*^9, + 3.99393367591947*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +In[110]:=",ExpressionUUID->"a92f221d-5234-410d-bfb3-08bee04306b8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 26, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765679016`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.225796200840648`*^-236\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 110, 22, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.9939182971283913`*^9, + 3.9939336759231443`*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +In[110]:=",ExpressionUUID->"e5d6e4c3-1d18-4242-8a76-1559d827019d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 27, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323676587904*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.730574083255006`*^-242\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 110, 23, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.9939182971283913`*^9, + 3.993933675926176*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +In[110]:=",ExpressionUUID->"53d4374b-ca77-4069-894e-ead97439d03a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 91, 28, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236766039066`*^9}, +during this calculation.\"", 2, 110, 24, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.9939182971283913`*^9, + 3.993933675929098*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +In[110]:=",ExpressionUUID->"adef9b11-7ddb-4ead-b267-80f8d857763f"], -Cell[BoxData["0.5376063675902706`"], "Output", - CellChangeTimes->{3.9913236883162384`*^9}, - CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[BoxData["0.03556120277957175`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.993918303578065*^9, + 3.993933678672736*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"e9b48143-3517-49fd-98a3-83fb4143abce"] }, Open ]], Cell[CellGroupData[{ @@ -8366,8 +9172,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8412,67 +9217,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997261183853`*^9, - 3.991799730012718*^9}},ExpressionUUID->"33f25e29-8e2f-5249-9603-\ -4bb381db84df"], + CellChangeTimes->{{3.9917997261183853`*^9, 3.991799730012718*^9}}, + CellLabel-> + "In[111]:=",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 29, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132368839011*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1171216361206813`*^-229\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 111, 25, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.9939183036241198`*^9, + 3.993933678696615*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +In[111]:=",ExpressionUUID->"f09165b4-2803-440d-92db-99f331c3508b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 30, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884141064`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.225796200840648`*^-236\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 111, 26, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.9939183036241198`*^9, + 3.9939336787010603`*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +In[111]:=",ExpressionUUID->"d98fd29a-1786-454a-b465-232c787afb76"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 31, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323688443001*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.730574083255006`*^-242\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 111, 27, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.9939183036241198`*^9, + 3.993933678705048*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +In[111]:=",ExpressionUUID->"ac6a0de0-1ef2-4b0e-bbdf-be6e79ee1d5f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 92, 32, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884570007`*^9}, +during this calculation.\"", 2, 111, 28, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.9939183036241198`*^9, + 3.9939336787081347`*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +In[111]:=",ExpressionUUID->"53f3f8e4-b1d1-4da0-86e9-47cfd30a10c3"], -Cell[BoxData["10.498798062085507`"], "Output", - CellChangeTimes->{3.9913236988049507`*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[BoxData["41.397350644878294`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.993918309749688*^9, + 3.993933681251988*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"4b6db8dd-8a1f-4269-a211-a0e76df118eb"] }, Open ]], Cell[CellGroupData[{ @@ -8493,8 +9305,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8539,67 +9350,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997336698074`*^9, - 3.9917997367747993`*^9}},ExpressionUUID->"88e14da9-8532-e842-b722-\ -1b0781de8eeb"], + CellChangeTimes->{{3.9917997336698074`*^9, 3.9917997367747993`*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 33, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698915848*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1171216361206813`*^-229\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 112, 29, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993918309792972*^9, + 3.993933681273664*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +In[112]:=",ExpressionUUID->"49337afd-d206-4e37-a7ee-a4ab54349c86"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 34, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698943981*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.225796200840648`*^-236\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 112, 30, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993918309792972*^9, + 3.993933681277072*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +In[112]:=",ExpressionUUID->"4c524947-ac54-4a97-a1e8-044705858848"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 35, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698971981*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.730574083255006`*^-242\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 112, 31, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993918309792972*^9, + 3.9939336812801323`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +In[112]:=",ExpressionUUID->"2126c628-88dd-4a7e-bf5c-ff76059ec17f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 93, 36, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698986994*^9}, +during this calculation.\"", 2, 112, 32, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993918309792972*^9, + 3.993933681282984*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +In[112]:=",ExpressionUUID->"ae6fe6fa-e5e1-423a-bb59-88acc4603231"], -Cell[BoxData["18.521732102530788`"], "Output", - CellChangeTimes->{3.991323706795576*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[BoxData["8.04059401470895`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.993918313590313*^9, + 3.993933682899198*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"14c2fac3-3d10-4687-8c68-d6a5978f1964"] }, Open ]], Cell[CellGroupData[{ @@ -8608,21 +9426,24 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991799742384985*^9, - 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ -e5f89f4ec38f"], + CellChangeTimes->{{3.991799742384985*^9, 3.9917997459840527`*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[BoxData["0.038552612544494616`"], "Output", - CellChangeTimes->{3.991323706858589*^9}, - CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[BoxData["0.0019491537620949884`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.993918313630602*^9, + 3.993933682918045*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"8db47ff3-3fae-425a-9ccb-de0d3b44a0bc"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9}, - 3.9919243164025135`*^9},ExpressionUUID->"c771f2bd-f081-e54a-b4e5-\ -bf0dbc996ac3"], + 3.9919243164025135`*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ @@ -8644,11 +9465,14 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + CellLabel-> + "In[115]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.991323706886154*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[BoxData["17.360744349648275`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.993918313649789*^9, + 3.993933682936966*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"59104d31-2bc0-4ed1-aeb2-29363aeb69e1"] }, Open ]], Cell[CellGroupData[{ @@ -8657,11 +9481,14 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + CellLabel-> + "In[116]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.9913237069236546`*^9}, - CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[BoxData["1.2639970847923296`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.993918313659233*^9, + 3.993933682942071*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0a518d21-c9b1-4c0f-828d-1669bbc3b949"] }, Open ]], Cell[CellGroupData[{ @@ -8671,12 +9498,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + "In[117]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913237069753113`*^9}, +Cell[BoxData["21.94393024778033`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.9939183136688757`*^9, + 3.993933682947261*^9}, CellLabel-> - "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] + "Out[117]=",ExpressionUUID->"b927d1ef-7516-4d5e-b505-eae4c106b95a"] }, Open ]], Cell[CellGroupData[{ @@ -8866,12 +9694,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + "In[118]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[BoxData["0.02467166981689615`"], "Output", - CellChangeTimes->{3.991323707000412*^9}, +Cell[BoxData["0.005481374637310874`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.993918313682232*^9, + 3.993933682954877*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] + "Out[118]=",ExpressionUUID->"501baae9-3ff8-4dd0-ac89-8855a6eda457"] }, Open ]], Cell[CellGroupData[{ @@ -8885,12 +9714,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + "In[119]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[BoxData["5.642163519289108`"], "Output", - CellChangeTimes->{3.991323707203314*^9}, +Cell[BoxData["11.970166676491772`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.993918313789876*^9, + 3.993933683008299*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] + "Out[119]=",ExpressionUUID->"ab5d7f40-c40b-41a3-abea-48e825c38038"] }, Open ]], Cell[CellGroupData[{ @@ -9082,12 +9912,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + "In[120]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[BoxData["0.012834083028601704`"], "Output", - CellChangeTimes->{3.9913237072224197`*^9}, +Cell[BoxData["0.037036449206528176`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.993918313806632*^9, + 3.993933683014431*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] + "Out[120]=",ExpressionUUID->"94994ab9-aa21-43ea-b5f2-3d96ba32743b"] }, Open ]], Cell[CellGroupData[{ @@ -9101,12 +9932,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + "In[121]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[BoxData["7.82280524717004`"], "Output", - CellChangeTimes->{3.991323707432623*^9}, +Cell[BoxData["4.605006729910763`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.993918313907095*^9, + 3.993933683066127*^9}, CellLabel-> - "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] + "Out[121]=",ExpressionUUID->"85658680-64d9-4a60-bdda-76d960ded228"] }, Open ]], Cell[CellGroupData[{ @@ -9199,12 +10031,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + "In[122]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913237074497375`*^9}, +Cell[BoxData["0.15074304128905536`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.993918313920293*^9, + 3.993933683071332*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] + "Out[122]=",ExpressionUUID->"2d51783c-afdf-4213-9211-2c474efddaa8"] }, Open ]], Cell[CellGroupData[{ @@ -9294,12 +10127,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + "In[123]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991323707467621*^9}, +Cell[BoxData["0.8492569587109448`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.9939183139324512`*^9, + 3.993933683076117*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] + "Out[123]=",ExpressionUUID->"188a0ad5-35b2-41a6-94ee-ccbce6057b68"] }, Open ]], Cell[CellGroupData[{ @@ -9422,12 +10256,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + "In[124]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991323707488617*^9}, +Cell[BoxData["0.12801957679198153`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.993918313945978*^9, + 3.9939336830812063`*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] + "Out[124]=",ExpressionUUID->"0ca39747-8a96-471e-bf8d-15452f283026"] }, Open ]], Cell[CellGroupData[{ @@ -9489,68 +10324,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799766323864*^9},ExpressionUUID->"ee2d2671-1677-5943-bf7a-\ -6ffa36275fe8"], + CellChangeTimes->{3.991799766323864*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 109, 37, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075117207`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.57750913169267`*^-219\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 125, 33, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993918313960433*^9, + 3.993933683088108*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +In[125]:=",ExpressionUUID->"bc111cd5-5fd8-4507-b188-207226a9e4f9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 38, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323707545618*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.219706377931884`*^-225\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 125, 34, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993918313960433*^9, + 3.993933683091292*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +In[125]:=",ExpressionUUID->"7f5c8d8d-cc14-4316-ab12-beb94b77f023"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 39, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075757256`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4759899105745863`*^-230\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 125, 35, 31385539801306253772, + "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993918313960433*^9, + 3.993933683094634*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +In[125]:=",ExpressionUUID->"9e8931b1-3e05-4de1-b53a-3ffd33cd1401"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 109, 40, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075926247`*^9}, +during this calculation.\"", 2, 125, 36, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993918313960433*^9, + 3.993933683097745*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +In[125]:=",ExpressionUUID->"53ad88bc-43a6-40cf-a6da-73bf26f261ac"], -Cell[BoxData["5.642163519289105`"], "Output", - CellChangeTimes->{3.9913237161181736`*^9}, +Cell[BoxData["11.970166676491777`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.993918317529274*^9, + 3.993933684688344*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] + "Out[125]=",ExpressionUUID->"d4c879ec-e026-4f7d-bbd3-aba13436762a"] }, Open ]], Cell[CellGroupData[{ @@ -9612,68 +10454,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917997699328365`*^9},ExpressionUUID->"b0b1035a-0fdf-b146-a71f-\ -1ab9142a9a90"], + CellChangeTimes->{3.9917997699328365`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 110, 41, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237161871567`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.57750913169267`*^-219\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 126, 37, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993918317572297*^9, + 3.9939336847108507`*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +In[126]:=",ExpressionUUID->"557b3f01-2a39-4087-89ae-7c46da5b7253"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 42, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162070637`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.219706377931884`*^-225\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 126, 38, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993918317572297*^9, + 3.993933684714191*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +In[126]:=",ExpressionUUID->"d412ad5a-69e7-4523-aeb8-28e3d00fbd49"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 43, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323716227171*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4759899105745863`*^-230\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 126, 39, 31385539801306253772, + "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993918317572297*^9, + 3.993933684717601*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +In[126]:=",ExpressionUUID->"4f342b01-74fe-4d07-a0b8-d22388e5d012"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 110, 44, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162481613`*^9}, +during this calculation.\"", 2, 126, 40, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993918317572297*^9, + 3.9939336847204933`*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +In[126]:=",ExpressionUUID->"1b4ec0e4-fada-416a-85eb-c6d39373919b"], -Cell[BoxData["7.822805247170038`"], "Output", - CellChangeTimes->{3.991323724852854*^9}, +Cell[BoxData["4.605006729910767`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.9939183211369553`*^9, + 3.993933686278409*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] + "Out[126]=",ExpressionUUID->"4e9b4665-55b6-41d6-bd23-a464e304e474"] }, Open ]], Cell[CellGroupData[{ @@ -9731,95 +10580,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917997843341885`*^9},ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-\ -ff25938e6592"], + CellChangeTimes->{3.9917997843341885`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4Vd0XB3AUGTPFJUPmMlwZQ6m9CsksM0Xi3qOQORHRhN5GU4Z+GTKU +RBlShvIKr4RQilJConK4uAiJftsf5znP51nP+Z611z77yHoF2tHZWFhYJvG1 +dg/uVN/6tLtzzzz3at+BGCbawyjQ9TIuQa9zWxvWPJSzI1XB+BkqXlKOWrMt +7TUHr/Z/SFRKbsOayyNim9iNO1AJpZxmiv1Pi1hDbPEbJLjcm7Ifu6Y7OPuP +1nvEGEhJNcEe72+Ljqz7gP58+k4YY28elT/0y+gz+ivSw22EbTEVbRDaMYjq +yh3P7sWu/zPOE1E8jLj6A18i7N5zlKgnASOorV52aDc2g8N4fE5rFA2m+rXt +wua4GuSqvTCG9qVZxRtgSwtmtQbX/UAka6uwHra1xK+7DKMJpE5NyNfEJnLl +RKmcDDR1oaNQHTtW0SbOr2MKGYc+iFTF/kB5pxlWPIN8zumlKWDT3HyPp1xl +osIjo19ksKdvs9ypCJhF7o7qS5LYnHJUgRmteRS3OyVvE3YqrclUQOQXKqeU +aQpgy9xzjd2+8Au1fziezIOtrxbPOFG3iO6JPmllxT62Y7Bj3OgPKm5r4Jw4 +w0RzESfXcyutoHa2dwpj2GfreAyVOVeRZ8UloSHsDNB/4NPxFzVu+ejVg00r +bDUOKWaF+RHlvqfYxS0pQ+ck2GAT/fDZMuzp7x7RSVfZgKKxY7kIO1plvrIs +YB2cnfhKz8ROfSQrP6XFDgYiBvwR2P3dE/Wr+exw98Nzk0BsGeZTt40iHLCy +NG1FYJfoWCdTFzjgEyJ67LGba06z+tdxgob9/Qo17PmmnsEfRrxwciSu6X00 +EwlZ8gpE1fPC7PgbyitsjXfGwGfAB+KdjbrPsH2/VeVqqm+E6n8zO+9gB7F1 +aOzmFYDKFYswX+xRuYczcb8EgfnLMWkmCs+HaOPq0hYCNNh0dhib7cGYrFiw +ENgozhm8wZbR3mJXTArBCckCrjJsN6PEis4hYdgadkbaD7vLOySU0i4Cd/dy +y/SdZqIv965f8eQUhbD3hSVN2BNkcf59E1FYVNm2rgybO2ykZ1eDKGgpkHyX +sI0vOuh4VlHgOV/FLV3s2oId80U54uAkmZESH8lEBaO/w3eGSUE3W6coSwQT +HXBM+BJaKgUSG3Pzv5/C+c3C+0vHpECnMoO1C1unQE1ExlUaTKs5NbOwm708 +Ktn3bIEPFpoeetjMqaFTPy7IwIKj3JxXOBMJnzB+XGklByorZ+TTw5horID7 +mK2vHFT+6OyPwK7+3C0xGS8H3mn3vN2wD1u6X1BqkIPz5Ss/JbELVMPtMrXk +gWF3+1VOKH7/+L3pGIoC8Cg/6rsdwkQOPjxU82FFUGhOOhAWxEQo3FHLeUUR +6AHWk7bYKnE5ejRxJVj/9A2dis2Sr70v5qASUDV2vR0NZKLSL4ecK14oQa7E ++kwHbA6nknOb87ZCfnrXsHIA7s/YqnfcSxmi/cyiK/2YKN8+/dNCjDI4r0be +uYx93Wt4aP3/lOGXIfPWUWza2ZOkdI8yLPO2c/NjCz7LYrE3UoFRqYwvPr74 ++9FmqNTJq8K5jlg3weNMJCF3I/bKNzUQkPdvMiKY6NnlOeUlNirEqv29Ioh9 +eNb1HSFLBbObr2UH6UyU3aygvM+DCr1BulWR2HI+tW8X+6jQLTwcVULD6y0Z +VSTa1YGlx+A6pzcTSUlIEzKuGqApUz136wgTqRWG8S4jLTgZ62Ou4sJEXrQL +81RrLZgGt5dTzvi8yid/8TysBb2bMsSrsNflPSpridCCv5N8exB2f/a4Q3K5 +FlioJCccdML/0wzPLGV5bRB/fUkuwAHv7xVLdRcOHZBk9ytMsGWiOyEKtlUd +unBpY4jT7gNM1B2O9C4WGoDbm7y3ojpMJOvx3trdfzec+q//UrwUE9H/Pnko +FQnAqkF5IM/BRBSyegPFax9sdjJOJ8ZnUJi24edkFWOY/x7yNKhzBnlN/mkV +HjcBO8aDH/vKZ1DpvtANOV2moNIo3959YwYVzPm+KEk1g64BIyXpwBm0uFfs +dXOsBbA5yx43Mp9BAyzrZoaPWsE+53mDQYUZFCAZmHhO3gbMb0R2SLLOoIfH +WxtuxtnifjUpSR+n0elZ8QXV4wdhu/WguuzjaTRvvt/p5RE7cJwVddK6Mo0M +DiXtHT1oD3PbPrf1ek2jt+JZvs3aDsDWVDegu3sabb574VnRNkeYdj1QlrVp +GlUPqVha8zlB9RPtiS1fppD0u2mf8EknQO6HAvxvTiHtm0kl+UPO8LaIN3fE +dAplrZ9VT25ygQQPrRQe1in0ZO/2/rgaV/ixYCmg/oSBMvQuC/4pdgMxBtV8 +MICBuj4VxmtfPQS9ZdTT8eoMVGV1WyHo7GGg7piKsCEn0cwJe5YAmjs4WLYd +UXo0ieb3Kx9jGHnAhrv5fvXhk6ho8uNi6I4j0Mqa3pVoOIlc7hR6u/N6wrGE +V+PANYkqKyyOrEvwBLXSlUur7yaQgcTbpX+WPKFRcTku/N4Ekh/y6X9z/Cis +puTcWTozgb7x+NncHjkKLR+zHdMcJlD3dWtvU0cv4DyfdM1fcwKlRuTwnOz2 +Aum9b6xV+CfQs/q/S95m3jC8kjYQNUMi/sOQoF3rDeoxWfFHPpJIZtPLLsln +3sByazhn9QOJNDqsxDjqvUHCufN3Frad4aH7H154Q8vOkpMDfSRKlQxvP/PK +GyT7G2OP9JJo88AD/tYP3jAokf09sIdECh6UjMML3uDeXklpfE0iA09GUZwO +DdTaO2LVmkh0N3M61HoHDZxUL/gNN5JoUw9zD0WfBulnFhPTsBkmC++KdtHg +f1+U/mHFLlBlYe3YR4OwfxrV+xtItHFB0FXoIA2WDwbZptWT6Ns1Xa6cEzR4 +P0tdMqgl0cGXeu98AmnANbiy5VcNiepZduZoBNOgRfTF2QrszNA9uo1hNKCl +bp1WxbZ2NT06GkWD5KSceNlqEtUouNaoXqYBRfxaCuUJia7XRR+vvkuDmkvZ +etsrSHRCK90googGjYUS3bPlJLK8X86lX0yDSpVTudXY3Olj95+W0oBxpROf +JxLFhdiOP3lMAxmQE3MrI1G0soJfVSOeR8tJZvJDEvmmt/tXfKFBZ4ZFtvoD +EpltHDMMGaKBoeeizu9iEm2LY+HT+koDMcHidS3YYyG6peWjNHhYJGPmgX3U +OmeybIIG4nWRYUn3SeTCHhrw6DcNBNO6rNiKSGQaujmoRJQO27OPCW0sJFFj +Trx5shgdVnX5ej4XkMiwg6kQsZkOTWxt7x9gayi2fzSSpoOOXNIdc2zxviij +T4p08CFO2V3JJxG5c0CUW5cOLP+VbhbPI9ENttznPvZ0mDapsiRy8Pq382ZY +OdIhLjPHbjf2xUMRIdrOdGjja7m1CTvise3Wv250GPRqn2nKxv0TrElpXnQo +v99Tq4it3eZF+y+YDot+j2vmb5OoL0mRRz6RDocYqsEvb5HoIeI79iOJDgpG +rIwi7IuTc82lKXT4l+t2wWVsLbPmGP10OszEKfxrjX2dxZtplU0HE6WU+x8z +SbQ/MPdjRAkd6iHE4XcGiaSkLu3Y85AOeULjJwax59oCU9aV0eGVsuaLZuw8 +JWR1vZIOMUHbRRKxVwYGGvJr6ZAo8idEGfuxpURRZysdgs1tOHzSSXTlNxt7 +ahsdlpxXntlgexWNH3XtoIP6rgul+tgC62slvnXRgT9KzJAH27/O5cZSLx1U +vMP5K9NIJK+SFq4wSodPXT43+LB/953p+TlGh4mq9pGlmyTqjqNrPPpBB/EX +G0PGsGOGdcYNJnCdoW3YgN2f0eNuM0sH52X2hHDs5A2CJqdZCXBx3rIwmUqi +Z8yBQ2HrCBhlnuL/jP19oDgkgJ0AyYr5wDZsw8fGuV5cBERHenEVYY95Riyb +CxJwuosvm8AWsDQRMhEmwGjn7QUn7F16QspIhADmQftMU+xEvhInbXEC/Lft +rlJeq9cOlkvIEmBHcNvMpJCIKCxpFZEnQGXXz58j2ImJkYP8igRwts929GKP +EcJ865UJCIy55vd8rS5semxCg4DpyM/c17FrV4Vjx7QISD0t9/089ujPoZtD +OgS4vUrjicDe2XC66Z0+zg/noXpjf/N/KP0cCOgrUHtriL3RJUr36T4CTtZN +TGljGxgdsCw3JuCE/oCjKvZ18a+RhQcIeGlp+3szdvX6R4k55gRo2/foC2OP +TEXdy7QkYF12wr882PotIu+v2RLw+NXFwpVkvN/lX8kEOwIsuDvXL2Bfu/2I +7bwDASXWZiXT2F9DzDTCXQiYvNrb8w2bz0PUNMiNgD19P+wHsfXNRtx9DxOw +tYUq2b/2/JYzVzw8CaBK2cZ1Y1dzm+e5eBHg3UJV6ljLmxetsaMRsD9tD3/r +Wt7wSJclQUBe0XloXsvrKBvbf4wAKcrvmoa1/p6eWQFfAtqXCqKer+XnmW/a +5U9AEXEhrnYt/xpFVTeAgPLgm31P1/Ijvu3dHoTnSf0UXIXNSyt3UQ4hIOy+ +g0Mltp5NTKB8GAF35lhjy9fyd1rES4UT4CoxMvMI+6qiWBYlggCBbYslD7Gf +CIxWCp4mwF1+b1kp9vByeRtPNAFsm+qXS9byv8cMs8fg+a8G3FjzjrcWi39j +CTgyZu+35v8DtaArbw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -9833,107 +10682,107 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1Hk4Vd0XB3AUGTPFJUPmMlwZQ6m9CsksM0Xi3qOQORHRhN5GU4Z+GTKU +RBlShvIKr4RQilJConK4uAiJftsf5znP51nP+Z611z77yHoF2tHZWFhYJvG1 +dg/uVN/6tLtzzzz3at+BGCbawyjQ9TIuQa9zWxvWPJSzI1XB+BkqXlKOWrMt +7TUHr/Z/SFRKbsOayyNim9iNO1AJpZxmiv1Pi1hDbPEbJLjcm7Ifu6Y7OPuP +1nvEGEhJNcEe72+Ljqz7gP58+k4YY28elT/0y+gz+ivSw22EbTEVbRDaMYjq +yh3P7sWu/zPOE1E8jLj6A18i7N5zlKgnASOorV52aDc2g8N4fE5rFA2m+rXt +wua4GuSqvTCG9qVZxRtgSwtmtQbX/UAka6uwHra1xK+7DKMJpE5NyNfEJnLl +RKmcDDR1oaNQHTtW0SbOr2MKGYc+iFTF/kB5pxlWPIN8zumlKWDT3HyPp1xl +osIjo19ksKdvs9ypCJhF7o7qS5LYnHJUgRmteRS3OyVvE3YqrclUQOQXKqeU +aQpgy9xzjd2+8Au1fziezIOtrxbPOFG3iO6JPmllxT62Y7Bj3OgPKm5r4Jw4 +w0RzESfXcyutoHa2dwpj2GfreAyVOVeRZ8UloSHsDNB/4NPxFzVu+ejVg00r +bDUOKWaF+RHlvqfYxS0pQ+ck2GAT/fDZMuzp7x7RSVfZgKKxY7kIO1plvrIs +YB2cnfhKz8ROfSQrP6XFDgYiBvwR2P3dE/Wr+exw98Nzk0BsGeZTt40iHLCy +NG1FYJfoWCdTFzjgEyJ67LGba06z+tdxgob9/Qo17PmmnsEfRrxwciSu6X00 +EwlZ8gpE1fPC7PgbyitsjXfGwGfAB+KdjbrPsH2/VeVqqm+E6n8zO+9gB7F1 +aOzmFYDKFYswX+xRuYczcb8EgfnLMWkmCs+HaOPq0hYCNNh0dhib7cGYrFiw +ENgozhm8wZbR3mJXTArBCckCrjJsN6PEis4hYdgadkbaD7vLOySU0i4Cd/dy +y/SdZqIv965f8eQUhbD3hSVN2BNkcf59E1FYVNm2rgybO2ykZ1eDKGgpkHyX +sI0vOuh4VlHgOV/FLV3s2oId80U54uAkmZESH8lEBaO/w3eGSUE3W6coSwQT +HXBM+BJaKgUSG3Pzv5/C+c3C+0vHpECnMoO1C1unQE1ExlUaTKs5NbOwm708 +Ktn3bIEPFpoeetjMqaFTPy7IwIKj3JxXOBMJnzB+XGklByorZ+TTw5horID7 +mK2vHFT+6OyPwK7+3C0xGS8H3mn3vN2wD1u6X1BqkIPz5Ss/JbELVMPtMrXk +gWF3+1VOKH7/+L3pGIoC8Cg/6rsdwkQOPjxU82FFUGhOOhAWxEQo3FHLeUUR +6AHWk7bYKnE5ejRxJVj/9A2dis2Sr70v5qASUDV2vR0NZKLSL4ecK14oQa7E ++kwHbA6nknOb87ZCfnrXsHIA7s/YqnfcSxmi/cyiK/2YKN8+/dNCjDI4r0be +uYx93Wt4aP3/lOGXIfPWUWza2ZOkdI8yLPO2c/NjCz7LYrE3UoFRqYwvPr74 ++9FmqNTJq8K5jlg3weNMJCF3I/bKNzUQkPdvMiKY6NnlOeUlNirEqv29Ioh9 +eNb1HSFLBbObr2UH6UyU3aygvM+DCr1BulWR2HI+tW8X+6jQLTwcVULD6y0Z +VSTa1YGlx+A6pzcTSUlIEzKuGqApUz136wgTqRWG8S4jLTgZ62Ou4sJEXrQL +81RrLZgGt5dTzvi8yid/8TysBb2bMsSrsNflPSpridCCv5N8exB2f/a4Q3K5 +FlioJCccdML/0wzPLGV5bRB/fUkuwAHv7xVLdRcOHZBk9ytMsGWiOyEKtlUd +unBpY4jT7gNM1B2O9C4WGoDbm7y3ojpMJOvx3trdfzec+q//UrwUE9H/Pnko +FQnAqkF5IM/BRBSyegPFax9sdjJOJ8ZnUJi24edkFWOY/x7yNKhzBnlN/mkV +HjcBO8aDH/vKZ1DpvtANOV2moNIo3959YwYVzPm+KEk1g64BIyXpwBm0uFfs +dXOsBbA5yx43Mp9BAyzrZoaPWsE+53mDQYUZFCAZmHhO3gbMb0R2SLLOoIfH +WxtuxtnifjUpSR+n0elZ8QXV4wdhu/WguuzjaTRvvt/p5RE7cJwVddK6Mo0M +DiXtHT1oD3PbPrf1ek2jt+JZvs3aDsDWVDegu3sabb574VnRNkeYdj1QlrVp +GlUPqVha8zlB9RPtiS1fppD0u2mf8EknQO6HAvxvTiHtm0kl+UPO8LaIN3fE +dAplrZ9VT25ygQQPrRQe1in0ZO/2/rgaV/ixYCmg/oSBMvQuC/4pdgMxBtV8 +MICBuj4VxmtfPQS9ZdTT8eoMVGV1WyHo7GGg7piKsCEn0cwJe5YAmjs4WLYd +UXo0ieb3Kx9jGHnAhrv5fvXhk6ho8uNi6I4j0Mqa3pVoOIlc7hR6u/N6wrGE +V+PANYkqKyyOrEvwBLXSlUur7yaQgcTbpX+WPKFRcTku/N4Ekh/y6X9z/Cis +puTcWTozgb7x+NncHjkKLR+zHdMcJlD3dWtvU0cv4DyfdM1fcwKlRuTwnOz2 +Aum9b6xV+CfQs/q/S95m3jC8kjYQNUMi/sOQoF3rDeoxWfFHPpJIZtPLLsln +3sByazhn9QOJNDqsxDjqvUHCufN3Frad4aH7H154Q8vOkpMDfSRKlQxvP/PK +GyT7G2OP9JJo88AD/tYP3jAokf09sIdECh6UjMML3uDeXklpfE0iA09GUZwO +DdTaO2LVmkh0N3M61HoHDZxUL/gNN5JoUw9zD0WfBulnFhPTsBkmC++KdtHg +f1+U/mHFLlBlYe3YR4OwfxrV+xtItHFB0FXoIA2WDwbZptWT6Ns1Xa6cEzR4 +P0tdMqgl0cGXeu98AmnANbiy5VcNiepZduZoBNOgRfTF2QrszNA9uo1hNKCl +bp1WxbZ2NT06GkWD5KSceNlqEtUouNaoXqYBRfxaCuUJia7XRR+vvkuDmkvZ +etsrSHRCK90googGjYUS3bPlJLK8X86lX0yDSpVTudXY3Olj95+W0oBxpROf +JxLFhdiOP3lMAxmQE3MrI1G0soJfVSOeR8tJZvJDEvmmt/tXfKFBZ4ZFtvoD +EpltHDMMGaKBoeeizu9iEm2LY+HT+koDMcHidS3YYyG6peWjNHhYJGPmgX3U +OmeybIIG4nWRYUn3SeTCHhrw6DcNBNO6rNiKSGQaujmoRJQO27OPCW0sJFFj +Trx5shgdVnX5ej4XkMiwg6kQsZkOTWxt7x9gayi2fzSSpoOOXNIdc2zxviij +T4p08CFO2V3JJxG5c0CUW5cOLP+VbhbPI9ENttznPvZ0mDapsiRy8Pq382ZY +OdIhLjPHbjf2xUMRIdrOdGjja7m1CTvise3Wv250GPRqn2nKxv0TrElpXnQo +v99Tq4it3eZF+y+YDot+j2vmb5OoL0mRRz6RDocYqsEvb5HoIeI79iOJDgpG +rIwi7IuTc82lKXT4l+t2wWVsLbPmGP10OszEKfxrjX2dxZtplU0HE6WU+x8z +SbQ/MPdjRAkd6iHE4XcGiaSkLu3Y85AOeULjJwax59oCU9aV0eGVsuaLZuw8 +JWR1vZIOMUHbRRKxVwYGGvJr6ZAo8idEGfuxpURRZysdgs1tOHzSSXTlNxt7 +ahsdlpxXntlgexWNH3XtoIP6rgul+tgC62slvnXRgT9KzJAH27/O5cZSLx1U +vMP5K9NIJK+SFq4wSodPXT43+LB/953p+TlGh4mq9pGlmyTqjqNrPPpBB/EX +G0PGsGOGdcYNJnCdoW3YgN2f0eNuM0sH52X2hHDs5A2CJqdZCXBx3rIwmUqi +Z8yBQ2HrCBhlnuL/jP19oDgkgJ0AyYr5wDZsw8fGuV5cBERHenEVYY95Riyb +CxJwuosvm8AWsDQRMhEmwGjn7QUn7F16QspIhADmQftMU+xEvhInbXEC/Lft +rlJeq9cOlkvIEmBHcNvMpJCIKCxpFZEnQGXXz58j2ImJkYP8igRwts929GKP +EcJ865UJCIy55vd8rS5semxCg4DpyM/c17FrV4Vjx7QISD0t9/089ujPoZtD +OgS4vUrjicDe2XC66Z0+zg/noXpjf/N/KP0cCOgrUHtriL3RJUr36T4CTtZN +TGljGxgdsCw3JuCE/oCjKvZ18a+RhQcIeGlp+3szdvX6R4k55gRo2/foC2OP +TEXdy7QkYF12wr882PotIu+v2RLw+NXFwpVkvN/lX8kEOwIsuDvXL2Bfu/2I +7bwDASXWZiXT2F9DzDTCXQiYvNrb8w2bz0PUNMiNgD19P+wHsfXNRtx9DxOw +tYUq2b/2/JYzVzw8CaBK2cZ1Y1dzm+e5eBHg3UJV6ljLmxetsaMRsD9tD3/r +Wt7wSJclQUBe0XloXsvrKBvbf4wAKcrvmoa1/p6eWQFfAtqXCqKer+XnmW/a +5U9AEXEhrnYt/xpFVTeAgPLgm31P1/Ijvu3dHoTnSf0UXIXNSyt3UQ4hIOy+ +g0Mltp5NTKB8GAF35lhjy9fyd1rES4UT4CoxMvMI+6qiWBYlggCBbYslD7Gf +CIxWCp4mwF1+b1kp9vByeRtPNAFsm+qXS9byv8cMs8fg+a8G3FjzjrcWi39j +CTgyZu+35v8DtaArbw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.8616544815296939, + 1.1558311879350047`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.8616544815296958}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -9945,21 +10794,21 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.8616544815296939, + 1.1558311879350047`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.8616544815296958}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -9973,105 +10822,105 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1Hk4Vd0XB3AUGTPFJUPmMlwZQ6m9CsksM0Xi3qOQORHRhN5GU4Z+GTKU +RBlShvIKr4RQilJConK4uAiJftsf5znP51nP+Z611z77yHoF2tHZWFhYJvG1 +dg/uVN/6tLtzzzz3at+BGCbawyjQ9TIuQa9zWxvWPJSzI1XB+BkqXlKOWrMt +7TUHr/Z/SFRKbsOayyNim9iNO1AJpZxmiv1Pi1hDbPEbJLjcm7Ifu6Y7OPuP +1nvEGEhJNcEe72+Ljqz7gP58+k4YY28elT/0y+gz+ivSw22EbTEVbRDaMYjq +yh3P7sWu/zPOE1E8jLj6A18i7N5zlKgnASOorV52aDc2g8N4fE5rFA2m+rXt +wua4GuSqvTCG9qVZxRtgSwtmtQbX/UAka6uwHra1xK+7DKMJpE5NyNfEJnLl +RKmcDDR1oaNQHTtW0SbOr2MKGYc+iFTF/kB5pxlWPIN8zumlKWDT3HyPp1xl +osIjo19ksKdvs9ypCJhF7o7qS5LYnHJUgRmteRS3OyVvE3YqrclUQOQXKqeU +aQpgy9xzjd2+8Au1fziezIOtrxbPOFG3iO6JPmllxT62Y7Bj3OgPKm5r4Jw4 +w0RzESfXcyutoHa2dwpj2GfreAyVOVeRZ8UloSHsDNB/4NPxFzVu+ejVg00r +bDUOKWaF+RHlvqfYxS0pQ+ck2GAT/fDZMuzp7x7RSVfZgKKxY7kIO1plvrIs +YB2cnfhKz8ROfSQrP6XFDgYiBvwR2P3dE/Wr+exw98Nzk0BsGeZTt40iHLCy +NG1FYJfoWCdTFzjgEyJ67LGba06z+tdxgob9/Qo17PmmnsEfRrxwciSu6X00 +EwlZ8gpE1fPC7PgbyitsjXfGwGfAB+KdjbrPsH2/VeVqqm+E6n8zO+9gB7F1 +aOzmFYDKFYswX+xRuYczcb8EgfnLMWkmCs+HaOPq0hYCNNh0dhib7cGYrFiw +ENgozhm8wZbR3mJXTArBCckCrjJsN6PEis4hYdgadkbaD7vLOySU0i4Cd/dy +y/SdZqIv965f8eQUhbD3hSVN2BNkcf59E1FYVNm2rgybO2ykZ1eDKGgpkHyX +sI0vOuh4VlHgOV/FLV3s2oId80U54uAkmZESH8lEBaO/w3eGSUE3W6coSwQT +HXBM+BJaKgUSG3Pzv5/C+c3C+0vHpECnMoO1C1unQE1ExlUaTKs5NbOwm708 +Ktn3bIEPFpoeetjMqaFTPy7IwIKj3JxXOBMJnzB+XGklByorZ+TTw5horID7 +mK2vHFT+6OyPwK7+3C0xGS8H3mn3vN2wD1u6X1BqkIPz5Ss/JbELVMPtMrXk +gWF3+1VOKH7/+L3pGIoC8Cg/6rsdwkQOPjxU82FFUGhOOhAWxEQo3FHLeUUR +6AHWk7bYKnE5ejRxJVj/9A2dis2Sr70v5qASUDV2vR0NZKLSL4ecK14oQa7E ++kwHbA6nknOb87ZCfnrXsHIA7s/YqnfcSxmi/cyiK/2YKN8+/dNCjDI4r0be +uYx93Wt4aP3/lOGXIfPWUWza2ZOkdI8yLPO2c/NjCz7LYrE3UoFRqYwvPr74 ++9FmqNTJq8K5jlg3weNMJCF3I/bKNzUQkPdvMiKY6NnlOeUlNirEqv29Ioh9 +eNb1HSFLBbObr2UH6UyU3aygvM+DCr1BulWR2HI+tW8X+6jQLTwcVULD6y0Z +VSTa1YGlx+A6pzcTSUlIEzKuGqApUz136wgTqRWG8S4jLTgZ62Ou4sJEXrQL +81RrLZgGt5dTzvi8yid/8TysBb2bMsSrsNflPSpridCCv5N8exB2f/a4Q3K5 +FlioJCccdML/0wzPLGV5bRB/fUkuwAHv7xVLdRcOHZBk9ytMsGWiOyEKtlUd +unBpY4jT7gNM1B2O9C4WGoDbm7y3ojpMJOvx3trdfzec+q//UrwUE9H/Pnko +FQnAqkF5IM/BRBSyegPFax9sdjJOJ8ZnUJi24edkFWOY/x7yNKhzBnlN/mkV +HjcBO8aDH/vKZ1DpvtANOV2moNIo3959YwYVzPm+KEk1g64BIyXpwBm0uFfs +dXOsBbA5yx43Mp9BAyzrZoaPWsE+53mDQYUZFCAZmHhO3gbMb0R2SLLOoIfH +WxtuxtnifjUpSR+n0elZ8QXV4wdhu/WguuzjaTRvvt/p5RE7cJwVddK6Mo0M +DiXtHT1oD3PbPrf1ek2jt+JZvs3aDsDWVDegu3sabb574VnRNkeYdj1QlrVp +GlUPqVha8zlB9RPtiS1fppD0u2mf8EknQO6HAvxvTiHtm0kl+UPO8LaIN3fE +dAplrZ9VT25ygQQPrRQe1in0ZO/2/rgaV/ixYCmg/oSBMvQuC/4pdgMxBtV8 +MICBuj4VxmtfPQS9ZdTT8eoMVGV1WyHo7GGg7piKsCEn0cwJe5YAmjs4WLYd +UXo0ieb3Kx9jGHnAhrv5fvXhk6ho8uNi6I4j0Mqa3pVoOIlc7hR6u/N6wrGE +V+PANYkqKyyOrEvwBLXSlUur7yaQgcTbpX+WPKFRcTku/N4Ekh/y6X9z/Cis +puTcWTozgb7x+NncHjkKLR+zHdMcJlD3dWtvU0cv4DyfdM1fcwKlRuTwnOz2 +Aum9b6xV+CfQs/q/S95m3jC8kjYQNUMi/sOQoF3rDeoxWfFHPpJIZtPLLsln +3sByazhn9QOJNDqsxDjqvUHCufN3Frad4aH7H154Q8vOkpMDfSRKlQxvP/PK +GyT7G2OP9JJo88AD/tYP3jAokf09sIdECh6UjMML3uDeXklpfE0iA09GUZwO +DdTaO2LVmkh0N3M61HoHDZxUL/gNN5JoUw9zD0WfBulnFhPTsBkmC++KdtHg +f1+U/mHFLlBlYe3YR4OwfxrV+xtItHFB0FXoIA2WDwbZptWT6Ns1Xa6cEzR4 +P0tdMqgl0cGXeu98AmnANbiy5VcNiepZduZoBNOgRfTF2QrszNA9uo1hNKCl +bp1WxbZ2NT06GkWD5KSceNlqEtUouNaoXqYBRfxaCuUJia7XRR+vvkuDmkvZ +etsrSHRCK90googGjYUS3bPlJLK8X86lX0yDSpVTudXY3Olj95+W0oBxpROf +JxLFhdiOP3lMAxmQE3MrI1G0soJfVSOeR8tJZvJDEvmmt/tXfKFBZ4ZFtvoD +EpltHDMMGaKBoeeizu9iEm2LY+HT+koDMcHidS3YYyG6peWjNHhYJGPmgX3U +OmeybIIG4nWRYUn3SeTCHhrw6DcNBNO6rNiKSGQaujmoRJQO27OPCW0sJFFj +Trx5shgdVnX5ej4XkMiwg6kQsZkOTWxt7x9gayi2fzSSpoOOXNIdc2zxviij +T4p08CFO2V3JJxG5c0CUW5cOLP+VbhbPI9ENttznPvZ0mDapsiRy8Pq382ZY +OdIhLjPHbjf2xUMRIdrOdGjja7m1CTvise3Wv250GPRqn2nKxv0TrElpXnQo +v99Tq4it3eZF+y+YDot+j2vmb5OoL0mRRz6RDocYqsEvb5HoIeI79iOJDgpG +rIwi7IuTc82lKXT4l+t2wWVsLbPmGP10OszEKfxrjX2dxZtplU0HE6WU+x8z +SbQ/MPdjRAkd6iHE4XcGiaSkLu3Y85AOeULjJwax59oCU9aV0eGVsuaLZuw8 +JWR1vZIOMUHbRRKxVwYGGvJr6ZAo8idEGfuxpURRZysdgs1tOHzSSXTlNxt7 +ahsdlpxXntlgexWNH3XtoIP6rgul+tgC62slvnXRgT9KzJAH27/O5cZSLx1U +vMP5K9NIJK+SFq4wSodPXT43+LB/953p+TlGh4mq9pGlmyTqjqNrPPpBB/EX +G0PGsGOGdcYNJnCdoW3YgN2f0eNuM0sH52X2hHDs5A2CJqdZCXBx3rIwmUqi +Z8yBQ2HrCBhlnuL/jP19oDgkgJ0AyYr5wDZsw8fGuV5cBERHenEVYY95Riyb +CxJwuosvm8AWsDQRMhEmwGjn7QUn7F16QspIhADmQftMU+xEvhInbXEC/Lft +rlJeq9cOlkvIEmBHcNvMpJCIKCxpFZEnQGXXz58j2ImJkYP8igRwts929GKP +EcJ865UJCIy55vd8rS5semxCg4DpyM/c17FrV4Vjx7QISD0t9/089ujPoZtD +OgS4vUrjicDe2XC66Z0+zg/noXpjf/N/KP0cCOgrUHtriL3RJUr36T4CTtZN +TGljGxgdsCw3JuCE/oCjKvZ18a+RhQcIeGlp+3szdvX6R4k55gRo2/foC2OP +TEXdy7QkYF12wr882PotIu+v2RLw+NXFwpVkvN/lX8kEOwIsuDvXL2Bfu/2I +7bwDASXWZiXT2F9DzDTCXQiYvNrb8w2bz0PUNMiNgD19P+wHsfXNRtx9DxOw +tYUq2b/2/JYzVzw8CaBK2cZ1Y1dzm+e5eBHg3UJV6ljLmxetsaMRsD9tD3/r +Wt7wSJclQUBe0XloXsvrKBvbf4wAKcrvmoa1/p6eWQFfAtqXCqKer+XnmW/a +5U9AEXEhrnYt/xpFVTeAgPLgm31P1/Ijvu3dHoTnSf0UXIXNSyt3UQ4hIOy+ +g0Mltp5NTKB8GAF35lhjy9fyd1rES4UT4CoxMvMI+6qiWBYlggCBbYslD7Gf +CIxWCp4mwF1+b1kp9vByeRtPNAFsm+qXS9byv8cMs8fg+a8G3FjzjrcWi39j +CTgyZu+35v8DtaArbw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.8616544815296939, 1.1558311879350047`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.8616544815296958}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10081,7 +10930,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5082122808512888}, + AxesOrigin->{0, 0.8616544815296958}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10109,7 +10959,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8616544815296939, 1.1558311879350047`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10117,9 +10968,10 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913242457281837`*^9}, + CellChangeTimes->{3.9913242457281837`*^9, 3.993918622704788*^9, + 3.993933818971888*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] + "Out[127]=",ExpressionUUID->"41a9957a-7c82-4d93-94f2-a6b1a99866d2"] }, Open ]], Cell[CellGroupData[{ @@ -10182,158 +11034,165 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9917997871187477`*^9, - 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ -d12d9d52c36b"], + CellChangeTimes->{{3.9917997871187477`*^9, 3.991799792469698*^9}}, + CellLabel-> + "In[128]:=",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.7250550519393908`*^-268\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 41, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993918622847834*^9, + 3.9939338190448093`*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"0ef15e2f-9fc1-4093-a615-184315c7a3f9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1634522086621594`*^-280\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 42, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993918622847834*^9, + 3.993933819048234*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"063254a0-c64d-4cf3-afbe-538c1403f093"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.846828078437558`*^-293\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 112, - 45, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246104725*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 43, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993918622847834*^9, + 3.993933819051746*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 112, 46, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461217346`*^9}, - CellLabel-> - "During evaluation of \ -In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 112, 47, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461427383`*^9}, - CellLabel-> - "During evaluation of \ -In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +In[128]:=",ExpressionUUID->"ecf85bb7-1ee4-4d4f-854e-e4d2445c1d0b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246159645*^9}, +during this calculation.\"", 2, 128, 44, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993918622847834*^9, + 3.99393381905516*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +In[128]:=",ExpressionUUID->"e3ab4f74-fa87-426c-aa19-a58466c8d733"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Vd0XB3BvJE1S5vk695pnGSLXWkkDDdKgeAt1SUpIElKGkqmBkkrm +bjLk3qNkbBCiAaX8zKnQRKFM0eC337/O83nOc5691zl7f9c+Knt8N3vMEhAQ +mPOPgMB/14mep7WseK7Vh0DJLQ2vLa1a0mWCV7RHgoNaW3/8ITlAyRd7ZNov +gEBr9mv7Q1oQuCm/TbA9GxbIhDlpHrKAxUPSF6babkP8uRjHMT87eHtvo+9Y +WzW8j+t6uNnPGVazBt58b3sFYenbqz8c3A9TbWaXRtp6QVB0WRq6h0DNypvc +5uxRcBaN3dywJR4U3pZ/3KPzB05YjTdtkk0CCW/X/DkrBdFn7J8tE3opcMFw +deXGbSK4+shN/lGLTOi4YlD1XWwhbmlc5rDqZzbEc8NezJJdjOdumqbmFN8A +6aS+2Itp4ngLHv/PlJEL0VttrV5NSOLZZndlbUY+yBU3yc36Rwr9/D+tXqWR +DzzxrZOG86VQR+nPUWeDfGh95UInKkuhitz80SOYDyyHAMphrRTuyNQ2OuSW +D9UbMoRfXpXCCBef2UEZ+fBn9XhTo6U07jWK7aiSLYDD5lmuTyNlcPJxlbr4 +TAHYZYqOrTsjgwM3m2cdmX0LqDmhMU2XZLA/ocP11fxb8LLFseh1rgyGnR9L +C5O5BXp+CwR7mmRwzj6uItfwFnzOOZrzQ04WJ4fNn0pwbsFOiY3f5O/IYkXf +t38uVN8Cm+HpEJ8+OXTJoV2/HC6E4LVJWo++yqGliZuvaHAh8LJ0O8Un5FD9 +IVtO/0QhyGx1My8XkUd1rXfIiSmEr2WPJwX15BFszjQmpxbCxciEgKtB8mgx +ubVOq7YQeiXVfGoXKuBztmPobDEeSPs+VJSWVkDPN2alaRI8WP9kR6MXQwE3 +9C6PM5TlQUlIvM6ipQpYXJfwcx3Fg7i3IwNOOxRwNHNkfJ0xD4zyKj2HsxWw ++6rY4aDtPIiwdNgtt0wRKYWZvJMpPFjrkv7DzFoR5QYd7n9M54Fo+ODJbesV +UTfOJtvmOg9Sa6JyEtwUUbT0wvuRAh6U2VUMCscqouZMv/n8+zwY2cEMHO1Q +RFmva4FrenjgcmQ8ruGYEgbkmiS9VeCD6mVrhYEoJVy0o21ZGoNP6j9fOCdB +Cb+GSZZsY/Eh5LfmS2uuEnZs4S4v1ebDpZMukuUNStg/IhRqacGHhsT6jBuK +ytj6W1ZpkyMfLHhXi088VMaLC5wS0+P4YNPW9GfoiTL+kl0uevIsHzYKCK1x +faWM87pRlpPAB85mnw74oIxZm1Z1SSbzYfUxlbDw2QwUHbKTW53FBz/liesr +tBl47vf2d80lfBi/k/BkSp+Bjupqfr7lZH5rtb8VGTPwDbMmSeQeH6IOuZlS +VgzcvNAsXfcRH1Jqnj2Z5cBAK6HuB9bP+VDrmfGtJpCBAXq/Mq/28MH2t/mS +0GMMNGhpvjvyjg9NCS2mxuEMbL6o5Lmyjw8d5XPDubEMLGOpZXV94sPQ/IAl +UakMfMY/EtE2wgcZeq3Z6moGimmx7/4VoMH75/fwJwtV8FJ34IdIMRosDu2V ++rhEBbcpxP44tpgGkYHOAkEZFQQHCPRfQsONrppWK0oFlwsa9W2XoKHnwSWd +u6Yq6JZ/xkVIhgb7KPP2LFcVZEkJL+tXokHpb+HBh+4qKLry3rtiZRq+BlKC +b7xUcHfSE+GTDBpi9s3Xkwkg43fdaJCmaKha9+bkuRgV7CvpX8dUpcFoSYT+ +sSIVLAicOV6tRYNA/HjtlRIV/FOgYHRAm4Ymwf3OJZUqWGb+dv9iHRoOjG+O ++v6Y3Ndkezvq0sBtZ3V5dqpg+YKuymp9GvwdrvpFvVXBodi07O0GNOCzhcLX ++8l8NnxcPED8pnLCoGdIBQVXCp+ZY0SDVMaT01sFKUyqjPjNMqahX5qt4C9C +4W5WgEkO8e2EoqLzCymUUR6dZpmQ+iNTup9JU9jZx9WVNyX1eXgbrdChcK+T +Mw6Y0eDY867exZDCuin9r9uX0cDavm1XqCmFmXr3NWqIq9ZaxZQihaVXlBwv +mNMwpS3Wo7uNQve8vwniy2mYSJOLWOpMoeysTANv4rFFqixzVwqz0+4cqyYe +GjXfb+NF4emdq6T2WdIw6GGz0M6HQqWbTXtLiT+3baTtD1PIiXznLsSmobeS +M+F8nMKZ1+UHLhO/1fW56hZJ4eaTCUfeEHdnBFnujaYw31hUX8WKhtaTZyMP +JVJonErdySJ+tq5UNOYGhR9j60WjgYb6+4+KzuZT6Pd8gFtBXKvfsPUin0L9 +BfOGB4kfiL9PSS+n8FCwX9YapKEyapDNfUChWPuref7EZZPj7/JqyPNXPbVS +iG93zVO/20jh9/nu5/qI+Rskn1W8ojCrfeC10Aoabj1UPljVRuF5q95mJnGe +oZZYXTeFn/7pikHinOvGd56/J+Pt2TvlTHxdEhybP1JoIC/FOkycGW071TpI +oeKe0LmxxGlTW1K7Ryhs+KSdn0qccsAFescpZLSVCvOIL7/Z1/tpmsyn5Y7y +feIk+8NR32YorJ65M/6UOPHRcY1RISZ6DK+PbSE+tzTm+c+5TCwqFu/qJo6/ +ccHnrygTVTvSBnuJY6TTFgtJMDHNJaLyI3FU7M3iubJM/P1g67rPxJG/irYv +UmJi+yDv2ifisIP3piWYTGRuVC/sJw59W5cmp8HEnsfbwt8SBzs0I0OXibV5 +ryTbiQNruvpUjZj4vc7Up4n4sMnH09pmTLzoJh9XTex3c0TT0JKJifpy+4uJ +fWR/NZiuYCLuaRTlEh+In+1nuZqJAqkvghKJ9/1ZJG69jok/xypzQ4n3+sqV +rNnExLIp3QwPYs57ltOGbUx8l/9o53pity36vzc7M7ErVLzXgHjXY/OMHa5M +DNpepS9O7GxmY+3izsTrlzxWj5Lvu1XeKcbLh4nVH8SabxE7nOVo+x5m4qyB +LatPE2+cOdgUEMTEByZzo3cRr+2LlAiPZOLm/bYHZxOv2na2NCqajP9SQqKV +rDfr+svO8WeYSAe/juESWxbcykxOZuJ7N7rHgriLUZCx6hrxYH2KMHFIcl76 +WAYTZYMN/F6S9V0akZO6OY+JBQOzvVyIjXZkXhG9x0TryxuyOGR/NDemX75f +xcSnWwNNGcR+K9OSvR8z8TxL/ksn2W88vZSkZ01MPJU5lmtHrDk7KeH0eyZm +uVVk/befn4RcOG/ykYnP6pMMH1mQ9zmScK5/gImTT7X6vIm5XWfPWI8xcWQn +v/AByQPG7eiYv8IsfGdvPLyO5IWU67HwQB0Wtlr/TltI8uduS3CYqiELE79k +xKWRfNpqF3SixYS4ojxLm/iCyZFQI2DhgUWxDtZLaVi4wDdoyIGFVIhZvZMh +DULle/z2HmVhS9jLGEOSn9f1dvtKhrKwRlvNjUvy1Zrr6lMbzsKJnJ/7JYnD +zu/0puJYWF7pqviD5PO0h+O+nlQWRr3bPjtZg4bvS+zcHKtZmFrRz4lh0tDu +Tb3cX8/Cm/MG1778L+/rpiGsgYXvJZbJSxEnhBQo57ay8POd/LhrpD8Y9C54 +OzXAwio51fyzimR9Fr3YlSauikr3TJIXSZM8nZ/bWCSjig2cgXxTKRqsPMLZ +dYqqmD/NKP9XktQna6g4rK6K3tL6jzPESV6EX+hGS1VUpzKLFpF+N2C/7d9+ +d1U04AfHnxeh4VWe7vOfXqrIKNFLTp5DQ4Wg8PKFvqqYazWVc02YhtjSEjnT +YFVstJh5kyFEg4ayTGf0WVX0O7W0LIH0U8+hzh3aJarYe6olW5P02/4zbo7+ +c9TQMH0kYQfp5z4DOpTBAjX001z9UuIpHybXTH37JqaGaY9CnjfW8WGe4IUo +Lzk1vLl3aNqkmg8GwTXFbrpqeO2euPvbMj4c91ATt9+ihk2qGxIv3+CDlNXX +F9oZanhmoOFXTigfMq+VXftyXQ1XtZ1w/RPMB82pU543c9Vwj5JFwaajfLAs +Vpyhbqthxpv9AkOHyHlGy15P7rEaBrrLPxX05AMtdfuMyKAanjWcI5a2iZw3 +ho/afjBVx8I7VzwTVPigYKh0WsRSHccTOZ6rlMj5wr+2WnuFOr7KG52ekOND +0oSYpf86dfTi3uu3l+BDz588vRlXdTSSODrRLswH/wXd4rKx6thv+4NvO8iD +FE3sWd+ljnM0a4NuF/HgK0fkcHGYBlp2jzrNM+HBULrN/YenNNA/tWKxsCEP +hjvC5zyP1cAX69NH/urw4If91LX3FzXQ5MOE1mcWDyaXD9SK5mrg1dzztVfI ++XaWRIOU10sNXC8+SyVgtBBka89XKKpoYmn38FIGv5D870jPiq7WxH1eZxrv +KBXCkka1c/SwFi6b3Tlk+7MAFGL4m0xNdbApYYxpnpIPV7TNxcQ9dVGyutW0 +zjIPnsmtMBlN1MOVRy7ZPGq9CRYK1Qn6rfq4qKVqWntNDogKZgfsjjTAD+6m +xbKNXFCKULZ0UjPEVCHLq+pLr8Nc1Z0lm+sNUdn63mefG1mgx5blH91lhE77 +nO3Pkv8l/54lNXYCSzFR9KPB65A0GB49s832ylLc6uslP/0iBdbo16XY6hqj +dOPNhlSHK/BgdPmvySZj/GSWlKFfcwl8dIw6mz1McKug49+O0xeBPeTe4jTX +FKPUbRh1qxJhFUtmw8JsU0w26rTg554DjfC4oGozM+w0jjo4pRYPWh7mD1U7 +zTBWskikmRcNHg/2nSo+tAwTskvCfj88BQ8zW9y/S5pjVEjtj999ETCWOzOp +X2qOuzo61nLqTwBHtWBuygYLbGc9PQyZIfBd66Lp7RELbDM/NNTMDYQy7q/3 +4zHLEf4q5ha5HQZnGyYuV7JEoSWS1jYJfiB/MLpcr8oSu7cXJ7u/OACS87yL +Nmxn45oHJa2xpzyBu/J4yIgT8QLLoUp/TzA6fm7lxZ1s/CZqGTPl5gkbR+j/ +te9m49Stfp3LbE843To+xfFmY8A+3tV/J/fCz+ww65AINp4owwVCB/dC5/KL +r3MK2PgzzHaiwM0D9h3hptry2Mi5YeizcpMHTPDuenyl2dguMl78ATxgCdU+ +aVjCxg9iP6/YKXvAOhFFhftVbIzSy2dc6nGHey057q//x8ZT3zm7NVzdwU60 +TDewnY3O/RFL99u7Q/uapxMyXWzcyHoRWgLuMFYxGOPyjo2bfNHVh+EOulkG +hV8G2Oif8vK5cy8H7nWuCDzzjY3ML/TD4VccsJPYAvojbHwTFDxzroYDe6OP +NAeMsxFSLTd85XJgrOp0ivRPNppkHt2Uf4kDkdOXORXTbNxcLx/nf5oDYsZ5 +Orv+kHoVGsdsjnIg/WDF+MwMG/eYGMar7OPA/wH0JWTY "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10347,117 +11206,116 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV13k4Vd0XB3BvJE1S5vk695pnGSLXWkkDDdKgeAt1SUpIElKGkqmBkkrm +bjLk3qNkbBCiAaX8zKnQRKFM0eC337/O83nOc5691zl7f9c+Knt8N3vMEhAQ +mPOPgMB/14mep7WseK7Vh0DJLQ2vLa1a0mWCV7RHgoNaW3/8ITlAyRd7ZNov +gEBr9mv7Q1oQuCm/TbA9GxbIhDlpHrKAxUPSF6babkP8uRjHMT87eHtvo+9Y +WzW8j+t6uNnPGVazBt58b3sFYenbqz8c3A9TbWaXRtp6QVB0WRq6h0DNypvc +5uxRcBaN3dywJR4U3pZ/3KPzB05YjTdtkk0CCW/X/DkrBdFn7J8tE3opcMFw +deXGbSK4+shN/lGLTOi4YlD1XWwhbmlc5rDqZzbEc8NezJJdjOdumqbmFN8A +6aS+2Itp4ngLHv/PlJEL0VttrV5NSOLZZndlbUY+yBU3yc36Rwr9/D+tXqWR +DzzxrZOG86VQR+nPUWeDfGh95UInKkuhitz80SOYDyyHAMphrRTuyNQ2OuSW +D9UbMoRfXpXCCBef2UEZ+fBn9XhTo6U07jWK7aiSLYDD5lmuTyNlcPJxlbr4 +TAHYZYqOrTsjgwM3m2cdmX0LqDmhMU2XZLA/ocP11fxb8LLFseh1rgyGnR9L +C5O5BXp+CwR7mmRwzj6uItfwFnzOOZrzQ04WJ4fNn0pwbsFOiY3f5O/IYkXf +t38uVN8Cm+HpEJ8+OXTJoV2/HC6E4LVJWo++yqGliZuvaHAh8LJ0O8Un5FD9 +IVtO/0QhyGx1My8XkUd1rXfIiSmEr2WPJwX15BFszjQmpxbCxciEgKtB8mgx +ubVOq7YQeiXVfGoXKuBztmPobDEeSPs+VJSWVkDPN2alaRI8WP9kR6MXQwE3 +9C6PM5TlQUlIvM6ipQpYXJfwcx3Fg7i3IwNOOxRwNHNkfJ0xD4zyKj2HsxWw ++6rY4aDtPIiwdNgtt0wRKYWZvJMpPFjrkv7DzFoR5QYd7n9M54Fo+ODJbesV +UTfOJtvmOg9Sa6JyEtwUUbT0wvuRAh6U2VUMCscqouZMv/n8+zwY2cEMHO1Q +RFmva4FrenjgcmQ8ruGYEgbkmiS9VeCD6mVrhYEoJVy0o21ZGoNP6j9fOCdB +Cb+GSZZsY/Eh5LfmS2uuEnZs4S4v1ebDpZMukuUNStg/IhRqacGHhsT6jBuK +ytj6W1ZpkyMfLHhXi088VMaLC5wS0+P4YNPW9GfoiTL+kl0uevIsHzYKCK1x +faWM87pRlpPAB85mnw74oIxZm1Z1SSbzYfUxlbDw2QwUHbKTW53FBz/liesr +tBl47vf2d80lfBi/k/BkSp+Bjupqfr7lZH5rtb8VGTPwDbMmSeQeH6IOuZlS +VgzcvNAsXfcRH1Jqnj2Z5cBAK6HuB9bP+VDrmfGtJpCBAXq/Mq/28MH2t/mS +0GMMNGhpvjvyjg9NCS2mxuEMbL6o5Lmyjw8d5XPDubEMLGOpZXV94sPQ/IAl +UakMfMY/EtE2wgcZeq3Z6moGimmx7/4VoMH75/fwJwtV8FJ34IdIMRosDu2V ++rhEBbcpxP44tpgGkYHOAkEZFQQHCPRfQsONrppWK0oFlwsa9W2XoKHnwSWd +u6Yq6JZ/xkVIhgb7KPP2LFcVZEkJL+tXokHpb+HBh+4qKLry3rtiZRq+BlKC +b7xUcHfSE+GTDBpi9s3Xkwkg43fdaJCmaKha9+bkuRgV7CvpX8dUpcFoSYT+ +sSIVLAicOV6tRYNA/HjtlRIV/FOgYHRAm4Ymwf3OJZUqWGb+dv9iHRoOjG+O ++v6Y3Ndkezvq0sBtZ3V5dqpg+YKuymp9GvwdrvpFvVXBodi07O0GNOCzhcLX ++8l8NnxcPED8pnLCoGdIBQVXCp+ZY0SDVMaT01sFKUyqjPjNMqahX5qt4C9C +4W5WgEkO8e2EoqLzCymUUR6dZpmQ+iNTup9JU9jZx9WVNyX1eXgbrdChcK+T +Mw6Y0eDY867exZDCuin9r9uX0cDavm1XqCmFmXr3NWqIq9ZaxZQihaVXlBwv +mNMwpS3Wo7uNQve8vwniy2mYSJOLWOpMoeysTANv4rFFqixzVwqz0+4cqyYe +GjXfb+NF4emdq6T2WdIw6GGz0M6HQqWbTXtLiT+3baTtD1PIiXznLsSmobeS +M+F8nMKZ1+UHLhO/1fW56hZJ4eaTCUfeEHdnBFnujaYw31hUX8WKhtaTZyMP +JVJonErdySJ+tq5UNOYGhR9j60WjgYb6+4+KzuZT6Pd8gFtBXKvfsPUin0L9 +BfOGB4kfiL9PSS+n8FCwX9YapKEyapDNfUChWPuref7EZZPj7/JqyPNXPbVS +iG93zVO/20jh9/nu5/qI+Rskn1W8ojCrfeC10Aoabj1UPljVRuF5q95mJnGe +oZZYXTeFn/7pikHinOvGd56/J+Pt2TvlTHxdEhybP1JoIC/FOkycGW071TpI +oeKe0LmxxGlTW1K7Ryhs+KSdn0qccsAFescpZLSVCvOIL7/Z1/tpmsyn5Y7y +feIk+8NR32YorJ65M/6UOPHRcY1RISZ6DK+PbSE+tzTm+c+5TCwqFu/qJo6/ +ccHnrygTVTvSBnuJY6TTFgtJMDHNJaLyI3FU7M3iubJM/P1g67rPxJG/irYv +UmJi+yDv2ifisIP3piWYTGRuVC/sJw59W5cmp8HEnsfbwt8SBzs0I0OXibV5 +ryTbiQNruvpUjZj4vc7Up4n4sMnH09pmTLzoJh9XTex3c0TT0JKJifpy+4uJ +fWR/NZiuYCLuaRTlEh+In+1nuZqJAqkvghKJ9/1ZJG69jok/xypzQ4n3+sqV +rNnExLIp3QwPYs57ltOGbUx8l/9o53pity36vzc7M7ErVLzXgHjXY/OMHa5M +DNpepS9O7GxmY+3izsTrlzxWj5Lvu1XeKcbLh4nVH8SabxE7nOVo+x5m4qyB +LatPE2+cOdgUEMTEByZzo3cRr+2LlAiPZOLm/bYHZxOv2na2NCqajP9SQqKV +rDfr+svO8WeYSAe/juESWxbcykxOZuJ7N7rHgriLUZCx6hrxYH2KMHFIcl76 +WAYTZYMN/F6S9V0akZO6OY+JBQOzvVyIjXZkXhG9x0TryxuyOGR/NDemX75f +xcSnWwNNGcR+K9OSvR8z8TxL/ksn2W88vZSkZ01MPJU5lmtHrDk7KeH0eyZm +uVVk/befn4RcOG/ykYnP6pMMH1mQ9zmScK5/gImTT7X6vIm5XWfPWI8xcWQn +v/AByQPG7eiYv8IsfGdvPLyO5IWU67HwQB0Wtlr/TltI8uduS3CYqiELE79k +xKWRfNpqF3SixYS4ojxLm/iCyZFQI2DhgUWxDtZLaVi4wDdoyIGFVIhZvZMh +DULle/z2HmVhS9jLGEOSn9f1dvtKhrKwRlvNjUvy1Zrr6lMbzsKJnJ/7JYnD +zu/0puJYWF7pqviD5PO0h+O+nlQWRr3bPjtZg4bvS+zcHKtZmFrRz4lh0tDu +Tb3cX8/Cm/MG1778L+/rpiGsgYXvJZbJSxEnhBQo57ay8POd/LhrpD8Y9C54 +OzXAwio51fyzimR9Fr3YlSauikr3TJIXSZM8nZ/bWCSjig2cgXxTKRqsPMLZ +dYqqmD/NKP9XktQna6g4rK6K3tL6jzPESV6EX+hGS1VUpzKLFpF+N2C/7d9+ +d1U04AfHnxeh4VWe7vOfXqrIKNFLTp5DQ4Wg8PKFvqqYazWVc02YhtjSEjnT +YFVstJh5kyFEg4ayTGf0WVX0O7W0LIH0U8+hzh3aJarYe6olW5P02/4zbo7+ +c9TQMH0kYQfp5z4DOpTBAjX001z9UuIpHybXTH37JqaGaY9CnjfW8WGe4IUo +Lzk1vLl3aNqkmg8GwTXFbrpqeO2euPvbMj4c91ATt9+ihk2qGxIv3+CDlNXX +F9oZanhmoOFXTigfMq+VXftyXQ1XtZ1w/RPMB82pU543c9Vwj5JFwaajfLAs +Vpyhbqthxpv9AkOHyHlGy15P7rEaBrrLPxX05AMtdfuMyKAanjWcI5a2iZw3 +ho/afjBVx8I7VzwTVPigYKh0WsRSHccTOZ6rlMj5wr+2WnuFOr7KG52ekOND +0oSYpf86dfTi3uu3l+BDz588vRlXdTSSODrRLswH/wXd4rKx6thv+4NvO8iD +FE3sWd+ljnM0a4NuF/HgK0fkcHGYBlp2jzrNM+HBULrN/YenNNA/tWKxsCEP +hjvC5zyP1cAX69NH/urw4If91LX3FzXQ5MOE1mcWDyaXD9SK5mrg1dzztVfI ++XaWRIOU10sNXC8+SyVgtBBka89XKKpoYmn38FIGv5D870jPiq7WxH1eZxrv +KBXCkka1c/SwFi6b3Tlk+7MAFGL4m0xNdbApYYxpnpIPV7TNxcQ9dVGyutW0 +zjIPnsmtMBlN1MOVRy7ZPGq9CRYK1Qn6rfq4qKVqWntNDogKZgfsjjTAD+6m +xbKNXFCKULZ0UjPEVCHLq+pLr8Nc1Z0lm+sNUdn63mefG1mgx5blH91lhE77 +nO3Pkv8l/54lNXYCSzFR9KPB65A0GB49s832ylLc6uslP/0iBdbo16XY6hqj +dOPNhlSHK/BgdPmvySZj/GSWlKFfcwl8dIw6mz1McKug49+O0xeBPeTe4jTX +FKPUbRh1qxJhFUtmw8JsU0w26rTg554DjfC4oGozM+w0jjo4pRYPWh7mD1U7 +zTBWskikmRcNHg/2nSo+tAwTskvCfj88BQ8zW9y/S5pjVEjtj999ETCWOzOp +X2qOuzo61nLqTwBHtWBuygYLbGc9PQyZIfBd66Lp7RELbDM/NNTMDYQy7q/3 +4zHLEf4q5ha5HQZnGyYuV7JEoSWS1jYJfiB/MLpcr8oSu7cXJ7u/OACS87yL +Nmxn45oHJa2xpzyBu/J4yIgT8QLLoUp/TzA6fm7lxZ1s/CZqGTPl5gkbR+j/ +te9m49Stfp3LbE843To+xfFmY8A+3tV/J/fCz+ww65AINp4owwVCB/dC5/KL +r3MK2PgzzHaiwM0D9h3hptry2Mi5YeizcpMHTPDuenyl2dguMl78ATxgCdU+ +aVjCxg9iP6/YKXvAOhFFhftVbIzSy2dc6nGHey057q//x8ZT3zm7NVzdwU60 +TDewnY3O/RFL99u7Q/uapxMyXWzcyHoRWgLuMFYxGOPyjo2bfNHVh+EOulkG +hV8G2Oif8vK5cy8H7nWuCDzzjY3ML/TD4VccsJPYAvojbHwTFDxzroYDe6OP +NAeMsxFSLTd85XJgrOp0ivRPNppkHt2Uf4kDkdOXORXTbNxcLx/nf5oDYsZ5 +Orv+kHoVGsdsjnIg/WDF+MwMG/eYGMar7OPA/wH0JWTY "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06350566710602473}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10469,19 +11327,19 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06350566710602473}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10495,116 +11353,115 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV13k4Vd0XB3BvJE1S5vk695pnGSLXWkkDDdKgeAt1SUpIElKGkqmBkkrm +bjLk3qNkbBCiAaX8zKnQRKFM0eC337/O83nOc5691zl7f9c+Knt8N3vMEhAQ +mPOPgMB/14mep7WseK7Vh0DJLQ2vLa1a0mWCV7RHgoNaW3/8ITlAyRd7ZNov +gEBr9mv7Q1oQuCm/TbA9GxbIhDlpHrKAxUPSF6babkP8uRjHMT87eHtvo+9Y +WzW8j+t6uNnPGVazBt58b3sFYenbqz8c3A9TbWaXRtp6QVB0WRq6h0DNypvc +5uxRcBaN3dywJR4U3pZ/3KPzB05YjTdtkk0CCW/X/DkrBdFn7J8tE3opcMFw +deXGbSK4+shN/lGLTOi4YlD1XWwhbmlc5rDqZzbEc8NezJJdjOdumqbmFN8A +6aS+2Itp4ngLHv/PlJEL0VttrV5NSOLZZndlbUY+yBU3yc36Rwr9/D+tXqWR +DzzxrZOG86VQR+nPUWeDfGh95UInKkuhitz80SOYDyyHAMphrRTuyNQ2OuSW +D9UbMoRfXpXCCBef2UEZ+fBn9XhTo6U07jWK7aiSLYDD5lmuTyNlcPJxlbr4 +TAHYZYqOrTsjgwM3m2cdmX0LqDmhMU2XZLA/ocP11fxb8LLFseh1rgyGnR9L +C5O5BXp+CwR7mmRwzj6uItfwFnzOOZrzQ04WJ4fNn0pwbsFOiY3f5O/IYkXf +t38uVN8Cm+HpEJ8+OXTJoV2/HC6E4LVJWo++yqGliZuvaHAh8LJ0O8Un5FD9 +IVtO/0QhyGx1My8XkUd1rXfIiSmEr2WPJwX15BFszjQmpxbCxciEgKtB8mgx +ubVOq7YQeiXVfGoXKuBztmPobDEeSPs+VJSWVkDPN2alaRI8WP9kR6MXQwE3 +9C6PM5TlQUlIvM6ipQpYXJfwcx3Fg7i3IwNOOxRwNHNkfJ0xD4zyKj2HsxWw ++6rY4aDtPIiwdNgtt0wRKYWZvJMpPFjrkv7DzFoR5QYd7n9M54Fo+ODJbesV +UTfOJtvmOg9Sa6JyEtwUUbT0wvuRAh6U2VUMCscqouZMv/n8+zwY2cEMHO1Q +RFmva4FrenjgcmQ8ruGYEgbkmiS9VeCD6mVrhYEoJVy0o21ZGoNP6j9fOCdB +Cb+GSZZsY/Eh5LfmS2uuEnZs4S4v1ebDpZMukuUNStg/IhRqacGHhsT6jBuK +ytj6W1ZpkyMfLHhXi088VMaLC5wS0+P4YNPW9GfoiTL+kl0uevIsHzYKCK1x +faWM87pRlpPAB85mnw74oIxZm1Z1SSbzYfUxlbDw2QwUHbKTW53FBz/liesr +tBl47vf2d80lfBi/k/BkSp+Bjupqfr7lZH5rtb8VGTPwDbMmSeQeH6IOuZlS +VgzcvNAsXfcRH1Jqnj2Z5cBAK6HuB9bP+VDrmfGtJpCBAXq/Mq/28MH2t/mS +0GMMNGhpvjvyjg9NCS2mxuEMbL6o5Lmyjw8d5XPDubEMLGOpZXV94sPQ/IAl +UakMfMY/EtE2wgcZeq3Z6moGimmx7/4VoMH75/fwJwtV8FJ34IdIMRosDu2V ++rhEBbcpxP44tpgGkYHOAkEZFQQHCPRfQsONrppWK0oFlwsa9W2XoKHnwSWd +u6Yq6JZ/xkVIhgb7KPP2LFcVZEkJL+tXokHpb+HBh+4qKLry3rtiZRq+BlKC +b7xUcHfSE+GTDBpi9s3Xkwkg43fdaJCmaKha9+bkuRgV7CvpX8dUpcFoSYT+ +sSIVLAicOV6tRYNA/HjtlRIV/FOgYHRAm4Ymwf3OJZUqWGb+dv9iHRoOjG+O ++v6Y3Ndkezvq0sBtZ3V5dqpg+YKuymp9GvwdrvpFvVXBodi07O0GNOCzhcLX ++8l8NnxcPED8pnLCoGdIBQVXCp+ZY0SDVMaT01sFKUyqjPjNMqahX5qt4C9C +4W5WgEkO8e2EoqLzCymUUR6dZpmQ+iNTup9JU9jZx9WVNyX1eXgbrdChcK+T +Mw6Y0eDY867exZDCuin9r9uX0cDavm1XqCmFmXr3NWqIq9ZaxZQihaVXlBwv +mNMwpS3Wo7uNQve8vwniy2mYSJOLWOpMoeysTANv4rFFqixzVwqz0+4cqyYe +GjXfb+NF4emdq6T2WdIw6GGz0M6HQqWbTXtLiT+3baTtD1PIiXznLsSmobeS +M+F8nMKZ1+UHLhO/1fW56hZJ4eaTCUfeEHdnBFnujaYw31hUX8WKhtaTZyMP +JVJonErdySJ+tq5UNOYGhR9j60WjgYb6+4+KzuZT6Pd8gFtBXKvfsPUin0L9 +BfOGB4kfiL9PSS+n8FCwX9YapKEyapDNfUChWPuref7EZZPj7/JqyPNXPbVS +iG93zVO/20jh9/nu5/qI+Rskn1W8ojCrfeC10Aoabj1UPljVRuF5q95mJnGe +oZZYXTeFn/7pikHinOvGd56/J+Pt2TvlTHxdEhybP1JoIC/FOkycGW071TpI +oeKe0LmxxGlTW1K7Ryhs+KSdn0qccsAFescpZLSVCvOIL7/Z1/tpmsyn5Y7y +feIk+8NR32YorJ65M/6UOPHRcY1RISZ6DK+PbSE+tzTm+c+5TCwqFu/qJo6/ +ccHnrygTVTvSBnuJY6TTFgtJMDHNJaLyI3FU7M3iubJM/P1g67rPxJG/irYv +UmJi+yDv2ifisIP3piWYTGRuVC/sJw59W5cmp8HEnsfbwt8SBzs0I0OXibV5 +ryTbiQNruvpUjZj4vc7Up4n4sMnH09pmTLzoJh9XTex3c0TT0JKJifpy+4uJ +fWR/NZiuYCLuaRTlEh+In+1nuZqJAqkvghKJ9/1ZJG69jok/xypzQ4n3+sqV +rNnExLIp3QwPYs57ltOGbUx8l/9o53pity36vzc7M7ErVLzXgHjXY/OMHa5M +DNpepS9O7GxmY+3izsTrlzxWj5Lvu1XeKcbLh4nVH8SabxE7nOVo+x5m4qyB +LatPE2+cOdgUEMTEByZzo3cRr+2LlAiPZOLm/bYHZxOv2na2NCqajP9SQqKV +rDfr+svO8WeYSAe/juESWxbcykxOZuJ7N7rHgriLUZCx6hrxYH2KMHFIcl76 +WAYTZYMN/F6S9V0akZO6OY+JBQOzvVyIjXZkXhG9x0TryxuyOGR/NDemX75f +xcSnWwNNGcR+K9OSvR8z8TxL/ksn2W88vZSkZ01MPJU5lmtHrDk7KeH0eyZm +uVVk/befn4RcOG/ykYnP6pMMH1mQ9zmScK5/gImTT7X6vIm5XWfPWI8xcWQn +v/AByQPG7eiYv8IsfGdvPLyO5IWU67HwQB0Wtlr/TltI8uduS3CYqiELE79k +xKWRfNpqF3SixYS4ojxLm/iCyZFQI2DhgUWxDtZLaVi4wDdoyIGFVIhZvZMh +DULle/z2HmVhS9jLGEOSn9f1dvtKhrKwRlvNjUvy1Zrr6lMbzsKJnJ/7JYnD +zu/0puJYWF7pqviD5PO0h+O+nlQWRr3bPjtZg4bvS+zcHKtZmFrRz4lh0tDu +Tb3cX8/Cm/MG1778L+/rpiGsgYXvJZbJSxEnhBQo57ay8POd/LhrpD8Y9C54 +OzXAwio51fyzimR9Fr3YlSauikr3TJIXSZM8nZ/bWCSjig2cgXxTKRqsPMLZ +dYqqmD/NKP9XktQna6g4rK6K3tL6jzPESV6EX+hGS1VUpzKLFpF+N2C/7d9+ +d1U04AfHnxeh4VWe7vOfXqrIKNFLTp5DQ4Wg8PKFvqqYazWVc02YhtjSEjnT +YFVstJh5kyFEg4ayTGf0WVX0O7W0LIH0U8+hzh3aJarYe6olW5P02/4zbo7+ +c9TQMH0kYQfp5z4DOpTBAjX001z9UuIpHybXTH37JqaGaY9CnjfW8WGe4IUo +Lzk1vLl3aNqkmg8GwTXFbrpqeO2euPvbMj4c91ATt9+ihk2qGxIv3+CDlNXX +F9oZanhmoOFXTigfMq+VXftyXQ1XtZ1w/RPMB82pU543c9Vwj5JFwaajfLAs +Vpyhbqthxpv9AkOHyHlGy15P7rEaBrrLPxX05AMtdfuMyKAanjWcI5a2iZw3 +ho/afjBVx8I7VzwTVPigYKh0WsRSHccTOZ6rlMj5wr+2WnuFOr7KG52ekOND +0oSYpf86dfTi3uu3l+BDz588vRlXdTSSODrRLswH/wXd4rKx6thv+4NvO8iD +FE3sWd+ljnM0a4NuF/HgK0fkcHGYBlp2jzrNM+HBULrN/YenNNA/tWKxsCEP +hjvC5zyP1cAX69NH/urw4If91LX3FzXQ5MOE1mcWDyaXD9SK5mrg1dzztVfI ++XaWRIOU10sNXC8+SyVgtBBka89XKKpoYmn38FIGv5D870jPiq7WxH1eZxrv +KBXCkka1c/SwFi6b3Tlk+7MAFGL4m0xNdbApYYxpnpIPV7TNxcQ9dVGyutW0 +zjIPnsmtMBlN1MOVRy7ZPGq9CRYK1Qn6rfq4qKVqWntNDogKZgfsjjTAD+6m +xbKNXFCKULZ0UjPEVCHLq+pLr8Nc1Z0lm+sNUdn63mefG1mgx5blH91lhE77 +nO3Pkv8l/54lNXYCSzFR9KPB65A0GB49s832ylLc6uslP/0iBdbo16XY6hqj +dOPNhlSHK/BgdPmvySZj/GSWlKFfcwl8dIw6mz1McKug49+O0xeBPeTe4jTX +FKPUbRh1qxJhFUtmw8JsU0w26rTg554DjfC4oGozM+w0jjo4pRYPWh7mD1U7 +zTBWskikmRcNHg/2nSo+tAwTskvCfj88BQ8zW9y/S5pjVEjtj999ETCWOzOp +X2qOuzo61nLqTwBHtWBuygYLbGc9PQyZIfBd66Lp7RELbDM/NNTMDYQy7q/3 +4zHLEf4q5ha5HQZnGyYuV7JEoSWS1jYJfiB/MLpcr8oSu7cXJ7u/OACS87yL +Nmxn45oHJa2xpzyBu/J4yIgT8QLLoUp/TzA6fm7lxZ1s/CZqGTPl5gkbR+j/ +te9m49Stfp3LbE843To+xfFmY8A+3tV/J/fCz+ww65AINp4owwVCB/dC5/KL +r3MK2PgzzHaiwM0D9h3hptry2Mi5YeizcpMHTPDuenyl2dguMl78ATxgCdU+ +aVjCxg9iP6/YKXvAOhFFhftVbIzSy2dc6nGHey057q//x8ZT3zm7NVzdwU60 +TDewnY3O/RFL99u7Q/uapxMyXWzcyHoRWgLuMFYxGOPyjo2bfNHVh+EOulkG +hV8G2Oif8vK5cy8H7nWuCDzzjY3ML/TD4VccsJPYAvojbHwTFDxzroYDe6OP +NAeMsxFSLTd85XJgrOp0ivRPNppkHt2Uf4kDkdOXORXTbNxcLx/nf5oDYsZ5 +Orv+kHoVGsdsjnIg/WDF+MwMG/eYGMar7OPA/wH0JWTY "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06350566710602473}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10615,6 +11472,7 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10642,7 +11500,8 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06350566710602473}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10650,22 +11509,575 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991324915847246*^9}, + CellChangeTimes->{3.991324915847246*^9, 3.993918935497491*^9, + 3.993933966802816*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] + "Out[128]=",ExpressionUUID->"3fa73378-f3e5-45ca-a0f7-12cf19f86f32"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, - 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ -4f98a6653ef7"], + 3.991924419552084*^9}, + CellLabel-> + "In[129]:=",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799819852022*^9, - 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ -6e6b94590d4b"], + CellChangeTimes->{{3.991799819852022*^9, 3.9917998213158054`*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Vd0XB3BvJE1S5vk695pnGSLXWkkDDdKgeAt1SUpIElKGkqmBkkrm +bjLk3qNkbBCiAaX8zKnQRKFM0eC337/O83nOc5691zl7f9c+Knt8N3vMEhAQ +mPOPgMB/14mep7WseK7Vh0DJLQ2vLa1a0mWCV7RHgoNaW3/8ITlAyRd7ZNov +gEBr9mv7Q1oQuCm/TbA9GxbIhDlpHrKAxUPSF6babkP8uRjHMT87eHtvo+9Y +WzW8j+t6uNnPGVazBt58b3sFYenbqz8c3A9TbWaXRtp6QVB0WRq6h0DNypvc +5uxRcBaN3dywJR4U3pZ/3KPzB05YjTdtkk0CCW/X/DkrBdFn7J8tE3opcMFw +deXGbSK4+shN/lGLTOi4YlD1XWwhbmlc5rDqZzbEc8NezJJdjOdumqbmFN8A +6aS+2Itp4ngLHv/PlJEL0VttrV5NSOLZZndlbUY+yBU3yc36Rwr9/D+tXqWR +DzzxrZOG86VQR+nPUWeDfGh95UInKkuhitz80SOYDyyHAMphrRTuyNQ2OuSW +D9UbMoRfXpXCCBef2UEZ+fBn9XhTo6U07jWK7aiSLYDD5lmuTyNlcPJxlbr4 +TAHYZYqOrTsjgwM3m2cdmX0LqDmhMU2XZLA/ocP11fxb8LLFseh1rgyGnR9L +C5O5BXp+CwR7mmRwzj6uItfwFnzOOZrzQ04WJ4fNn0pwbsFOiY3f5O/IYkXf +t38uVN8Cm+HpEJ8+OXTJoV2/HC6E4LVJWo++yqGliZuvaHAh8LJ0O8Un5FD9 +IVtO/0QhyGx1My8XkUd1rXfIiSmEr2WPJwX15BFszjQmpxbCxciEgKtB8mgx +ubVOq7YQeiXVfGoXKuBztmPobDEeSPs+VJSWVkDPN2alaRI8WP9kR6MXQwE3 +9C6PM5TlQUlIvM6ipQpYXJfwcx3Fg7i3IwNOOxRwNHNkfJ0xD4zyKj2HsxWw ++6rY4aDtPIiwdNgtt0wRKYWZvJMpPFjrkv7DzFoR5QYd7n9M54Fo+ODJbesV +UTfOJtvmOg9Sa6JyEtwUUbT0wvuRAh6U2VUMCscqouZMv/n8+zwY2cEMHO1Q +RFmva4FrenjgcmQ8ruGYEgbkmiS9VeCD6mVrhYEoJVy0o21ZGoNP6j9fOCdB +Cb+GSZZsY/Eh5LfmS2uuEnZs4S4v1ebDpZMukuUNStg/IhRqacGHhsT6jBuK +ytj6W1ZpkyMfLHhXi088VMaLC5wS0+P4YNPW9GfoiTL+kl0uevIsHzYKCK1x +faWM87pRlpPAB85mnw74oIxZm1Z1SSbzYfUxlbDw2QwUHbKTW53FBz/liesr +tBl47vf2d80lfBi/k/BkSp+Bjupqfr7lZH5rtb8VGTPwDbMmSeQeH6IOuZlS +VgzcvNAsXfcRH1Jqnj2Z5cBAK6HuB9bP+VDrmfGtJpCBAXq/Mq/28MH2t/mS +0GMMNGhpvjvyjg9NCS2mxuEMbL6o5Lmyjw8d5XPDubEMLGOpZXV94sPQ/IAl +UakMfMY/EtE2wgcZeq3Z6moGimmx7/4VoMH75/fwJwtV8FJ34IdIMRosDu2V ++rhEBbcpxP44tpgGkYHOAkEZFQQHCPRfQsONrppWK0oFlwsa9W2XoKHnwSWd +u6Yq6JZ/xkVIhgb7KPP2LFcVZEkJL+tXokHpb+HBh+4qKLry3rtiZRq+BlKC +b7xUcHfSE+GTDBpi9s3Xkwkg43fdaJCmaKha9+bkuRgV7CvpX8dUpcFoSYT+ +sSIVLAicOV6tRYNA/HjtlRIV/FOgYHRAm4Ymwf3OJZUqWGb+dv9iHRoOjG+O ++v6Y3Ndkezvq0sBtZ3V5dqpg+YKuymp9GvwdrvpFvVXBodi07O0GNOCzhcLX ++8l8NnxcPED8pnLCoGdIBQVXCp+ZY0SDVMaT01sFKUyqjPjNMqahX5qt4C9C +4W5WgEkO8e2EoqLzCymUUR6dZpmQ+iNTup9JU9jZx9WVNyX1eXgbrdChcK+T +Mw6Y0eDY867exZDCuin9r9uX0cDavm1XqCmFmXr3NWqIq9ZaxZQihaVXlBwv +mNMwpS3Wo7uNQve8vwniy2mYSJOLWOpMoeysTANv4rFFqixzVwqz0+4cqyYe +GjXfb+NF4emdq6T2WdIw6GGz0M6HQqWbTXtLiT+3baTtD1PIiXznLsSmobeS +M+F8nMKZ1+UHLhO/1fW56hZJ4eaTCUfeEHdnBFnujaYw31hUX8WKhtaTZyMP +JVJonErdySJ+tq5UNOYGhR9j60WjgYb6+4+KzuZT6Pd8gFtBXKvfsPUin0L9 +BfOGB4kfiL9PSS+n8FCwX9YapKEyapDNfUChWPuref7EZZPj7/JqyPNXPbVS +iG93zVO/20jh9/nu5/qI+Rskn1W8ojCrfeC10Aoabj1UPljVRuF5q95mJnGe +oZZYXTeFn/7pikHinOvGd56/J+Pt2TvlTHxdEhybP1JoIC/FOkycGW071TpI +oeKe0LmxxGlTW1K7Ryhs+KSdn0qccsAFescpZLSVCvOIL7/Z1/tpmsyn5Y7y +feIk+8NR32YorJ65M/6UOPHRcY1RISZ6DK+PbSE+tzTm+c+5TCwqFu/qJo6/ +ccHnrygTVTvSBnuJY6TTFgtJMDHNJaLyI3FU7M3iubJM/P1g67rPxJG/irYv +UmJi+yDv2ifisIP3piWYTGRuVC/sJw59W5cmp8HEnsfbwt8SBzs0I0OXibV5 +ryTbiQNruvpUjZj4vc7Up4n4sMnH09pmTLzoJh9XTex3c0TT0JKJifpy+4uJ +fWR/NZiuYCLuaRTlEh+In+1nuZqJAqkvghKJ9/1ZJG69jok/xypzQ4n3+sqV +rNnExLIp3QwPYs57ltOGbUx8l/9o53pity36vzc7M7ErVLzXgHjXY/OMHa5M +DNpepS9O7GxmY+3izsTrlzxWj5Lvu1XeKcbLh4nVH8SabxE7nOVo+x5m4qyB +LatPE2+cOdgUEMTEByZzo3cRr+2LlAiPZOLm/bYHZxOv2na2NCqajP9SQqKV +rDfr+svO8WeYSAe/juESWxbcykxOZuJ7N7rHgriLUZCx6hrxYH2KMHFIcl76 +WAYTZYMN/F6S9V0akZO6OY+JBQOzvVyIjXZkXhG9x0TryxuyOGR/NDemX75f +xcSnWwNNGcR+K9OSvR8z8TxL/ksn2W88vZSkZ01MPJU5lmtHrDk7KeH0eyZm +uVVk/befn4RcOG/ykYnP6pMMH1mQ9zmScK5/gImTT7X6vIm5XWfPWI8xcWQn +v/AByQPG7eiYv8IsfGdvPLyO5IWU67HwQB0Wtlr/TltI8uduS3CYqiELE79k +xKWRfNpqF3SixYS4ojxLm/iCyZFQI2DhgUWxDtZLaVi4wDdoyIGFVIhZvZMh +DULle/z2HmVhS9jLGEOSn9f1dvtKhrKwRlvNjUvy1Zrr6lMbzsKJnJ/7JYnD +zu/0puJYWF7pqviD5PO0h+O+nlQWRr3bPjtZg4bvS+zcHKtZmFrRz4lh0tDu +Tb3cX8/Cm/MG1778L+/rpiGsgYXvJZbJSxEnhBQo57ay8POd/LhrpD8Y9C54 +OzXAwio51fyzimR9Fr3YlSauikr3TJIXSZM8nZ/bWCSjig2cgXxTKRqsPMLZ +dYqqmD/NKP9XktQna6g4rK6K3tL6jzPESV6EX+hGS1VUpzKLFpF+N2C/7d9+ +d1U04AfHnxeh4VWe7vOfXqrIKNFLTp5DQ4Wg8PKFvqqYazWVc02YhtjSEjnT +YFVstJh5kyFEg4ayTGf0WVX0O7W0LIH0U8+hzh3aJarYe6olW5P02/4zbo7+ +c9TQMH0kYQfp5z4DOpTBAjX001z9UuIpHybXTH37JqaGaY9CnjfW8WGe4IUo +Lzk1vLl3aNqkmg8GwTXFbrpqeO2euPvbMj4c91ATt9+ihk2qGxIv3+CDlNXX +F9oZanhmoOFXTigfMq+VXftyXQ1XtZ1w/RPMB82pU543c9Vwj5JFwaajfLAs +Vpyhbqthxpv9AkOHyHlGy15P7rEaBrrLPxX05AMtdfuMyKAanjWcI5a2iZw3 +ho/afjBVx8I7VzwTVPigYKh0WsRSHccTOZ6rlMj5wr+2WnuFOr7KG52ekOND +0oSYpf86dfTi3uu3l+BDz588vRlXdTSSODrRLswH/wXd4rKx6thv+4NvO8iD +FE3sWd+ljnM0a4NuF/HgK0fkcHGYBlp2jzrNM+HBULrN/YenNNA/tWKxsCEP +hjvC5zyP1cAX69NH/urw4If91LX3FzXQ5MOE1mcWDyaXD9SK5mrg1dzztVfI ++XaWRIOU10sNXC8+SyVgtBBka89XKKpoYmn38FIGv5D870jPiq7WxH1eZxrv +KBXCkka1c/SwFi6b3Tlk+7MAFGL4m0xNdbApYYxpnpIPV7TNxcQ9dVGyutW0 +zjIPnsmtMBlN1MOVRy7ZPGq9CRYK1Qn6rfq4qKVqWntNDogKZgfsjjTAD+6m +xbKNXFCKULZ0UjPEVCHLq+pLr8Nc1Z0lm+sNUdn63mefG1mgx5blH91lhE77 +nO3Pkv8l/54lNXYCSzFR9KPB65A0GB49s832ylLc6uslP/0iBdbo16XY6hqj +dOPNhlSHK/BgdPmvySZj/GSWlKFfcwl8dIw6mz1McKug49+O0xeBPeTe4jTX +FKPUbRh1qxJhFUtmw8JsU0w26rTg554DjfC4oGozM+w0jjo4pRYPWh7mD1U7 +zTBWskikmRcNHg/2nSo+tAwTskvCfj88BQ8zW9y/S5pjVEjtj999ETCWOzOp +X2qOuzo61nLqTwBHtWBuygYLbGc9PQyZIfBd66Lp7RELbDM/NNTMDYQy7q/3 +4zHLEf4q5ha5HQZnGyYuV7JEoSWS1jYJfiB/MLpcr8oSu7cXJ7u/OACS87yL +Nmxn45oHJa2xpzyBu/J4yIgT8QLLoUp/TzA6fm7lxZ1s/CZqGTPl5gkbR+j/ +te9m49Stfp3LbE843To+xfFmY8A+3tV/J/fCz+ww65AINp4owwVCB/dC5/KL +r3MK2PgzzHaiwM0D9h3hptry2Mi5YeizcpMHTPDuenyl2dguMl78ATxgCdU+ +aVjCxg9iP6/YKXvAOhFFhftVbIzSy2dc6nGHey057q//x8ZT3zm7NVzdwU60 +TDewnY3O/RFL99u7Q/uapxMyXWzcyHoRWgLuMFYxGOPyjo2bfNHVh+EOulkG +hV8G2Oif8vK5cy8H7nWuCDzzjY3ML/TD4VccsJPYAvojbHwTFDxzroYDe6OP +NAeMsxFSLTd85XJgrOp0ivRPNppkHt2Uf4kDkdOXORXTbNxcLx/nf5oDYsZ5 +Orv+kHoVGsdsjnIg/WDF+MwMG/eYGMar7OPA/wH0JWTY + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Vd0XB3BvJE1S5vk695pnGSLXWkkDDdKgeAt1SUpIElKGkqmBkkrm +bjLk3qNkbBCiAaX8zKnQRKFM0eC337/O83nOc5691zl7f9c+Knt8N3vMEhAQ +mPOPgMB/14mep7WseK7Vh0DJLQ2vLa1a0mWCV7RHgoNaW3/8ITlAyRd7ZNov +gEBr9mv7Q1oQuCm/TbA9GxbIhDlpHrKAxUPSF6babkP8uRjHMT87eHtvo+9Y +WzW8j+t6uNnPGVazBt58b3sFYenbqz8c3A9TbWaXRtp6QVB0WRq6h0DNypvc +5uxRcBaN3dywJR4U3pZ/3KPzB05YjTdtkk0CCW/X/DkrBdFn7J8tE3opcMFw +deXGbSK4+shN/lGLTOi4YlD1XWwhbmlc5rDqZzbEc8NezJJdjOdumqbmFN8A +6aS+2Itp4ngLHv/PlJEL0VttrV5NSOLZZndlbUY+yBU3yc36Rwr9/D+tXqWR +DzzxrZOG86VQR+nPUWeDfGh95UInKkuhitz80SOYDyyHAMphrRTuyNQ2OuSW +D9UbMoRfXpXCCBef2UEZ+fBn9XhTo6U07jWK7aiSLYDD5lmuTyNlcPJxlbr4 +TAHYZYqOrTsjgwM3m2cdmX0LqDmhMU2XZLA/ocP11fxb8LLFseh1rgyGnR9L +C5O5BXp+CwR7mmRwzj6uItfwFnzOOZrzQ04WJ4fNn0pwbsFOiY3f5O/IYkXf +t38uVN8Cm+HpEJ8+OXTJoV2/HC6E4LVJWo++yqGliZuvaHAh8LJ0O8Un5FD9 +IVtO/0QhyGx1My8XkUd1rXfIiSmEr2WPJwX15BFszjQmpxbCxciEgKtB8mgx +ubVOq7YQeiXVfGoXKuBztmPobDEeSPs+VJSWVkDPN2alaRI8WP9kR6MXQwE3 +9C6PM5TlQUlIvM6ipQpYXJfwcx3Fg7i3IwNOOxRwNHNkfJ0xD4zyKj2HsxWw ++6rY4aDtPIiwdNgtt0wRKYWZvJMpPFjrkv7DzFoR5QYd7n9M54Fo+ODJbesV +UTfOJtvmOg9Sa6JyEtwUUbT0wvuRAh6U2VUMCscqouZMv/n8+zwY2cEMHO1Q +RFmva4FrenjgcmQ8ruGYEgbkmiS9VeCD6mVrhYEoJVy0o21ZGoNP6j9fOCdB +Cb+GSZZsY/Eh5LfmS2uuEnZs4S4v1ebDpZMukuUNStg/IhRqacGHhsT6jBuK +ytj6W1ZpkyMfLHhXi088VMaLC5wS0+P4YNPW9GfoiTL+kl0uevIsHzYKCK1x +faWM87pRlpPAB85mnw74oIxZm1Z1SSbzYfUxlbDw2QwUHbKTW53FBz/liesr +tBl47vf2d80lfBi/k/BkSp+Bjupqfr7lZH5rtb8VGTPwDbMmSeQeH6IOuZlS +VgzcvNAsXfcRH1Jqnj2Z5cBAK6HuB9bP+VDrmfGtJpCBAXq/Mq/28MH2t/mS +0GMMNGhpvjvyjg9NCS2mxuEMbL6o5Lmyjw8d5XPDubEMLGOpZXV94sPQ/IAl +UakMfMY/EtE2wgcZeq3Z6moGimmx7/4VoMH75/fwJwtV8FJ34IdIMRosDu2V ++rhEBbcpxP44tpgGkYHOAkEZFQQHCPRfQsONrppWK0oFlwsa9W2XoKHnwSWd +u6Yq6JZ/xkVIhgb7KPP2LFcVZEkJL+tXokHpb+HBh+4qKLry3rtiZRq+BlKC +b7xUcHfSE+GTDBpi9s3Xkwkg43fdaJCmaKha9+bkuRgV7CvpX8dUpcFoSYT+ +sSIVLAicOV6tRYNA/HjtlRIV/FOgYHRAm4Ymwf3OJZUqWGb+dv9iHRoOjG+O ++v6Y3Ndkezvq0sBtZ3V5dqpg+YKuymp9GvwdrvpFvVXBodi07O0GNOCzhcLX ++8l8NnxcPED8pnLCoGdIBQVXCp+ZY0SDVMaT01sFKUyqjPjNMqahX5qt4C9C +4W5WgEkO8e2EoqLzCymUUR6dZpmQ+iNTup9JU9jZx9WVNyX1eXgbrdChcK+T +Mw6Y0eDY867exZDCuin9r9uX0cDavm1XqCmFmXr3NWqIq9ZaxZQihaVXlBwv +mNMwpS3Wo7uNQve8vwniy2mYSJOLWOpMoeysTANv4rFFqixzVwqz0+4cqyYe +GjXfb+NF4emdq6T2WdIw6GGz0M6HQqWbTXtLiT+3baTtD1PIiXznLsSmobeS +M+F8nMKZ1+UHLhO/1fW56hZJ4eaTCUfeEHdnBFnujaYw31hUX8WKhtaTZyMP +JVJonErdySJ+tq5UNOYGhR9j60WjgYb6+4+KzuZT6Pd8gFtBXKvfsPUin0L9 +BfOGB4kfiL9PSS+n8FCwX9YapKEyapDNfUChWPuref7EZZPj7/JqyPNXPbVS +iG93zVO/20jh9/nu5/qI+Rskn1W8ojCrfeC10Aoabj1UPljVRuF5q95mJnGe +oZZYXTeFn/7pikHinOvGd56/J+Pt2TvlTHxdEhybP1JoIC/FOkycGW071TpI +oeKe0LmxxGlTW1K7Ryhs+KSdn0qccsAFescpZLSVCvOIL7/Z1/tpmsyn5Y7y +feIk+8NR32YorJ65M/6UOPHRcY1RISZ6DK+PbSE+tzTm+c+5TCwqFu/qJo6/ +ccHnrygTVTvSBnuJY6TTFgtJMDHNJaLyI3FU7M3iubJM/P1g67rPxJG/irYv +UmJi+yDv2ifisIP3piWYTGRuVC/sJw59W5cmp8HEnsfbwt8SBzs0I0OXibV5 +ryTbiQNruvpUjZj4vc7Up4n4sMnH09pmTLzoJh9XTex3c0TT0JKJifpy+4uJ +fWR/NZiuYCLuaRTlEh+In+1nuZqJAqkvghKJ9/1ZJG69jok/xypzQ4n3+sqV +rNnExLIp3QwPYs57ltOGbUx8l/9o53pity36vzc7M7ErVLzXgHjXY/OMHa5M +DNpepS9O7GxmY+3izsTrlzxWj5Lvu1XeKcbLh4nVH8SabxE7nOVo+x5m4qyB +LatPE2+cOdgUEMTEByZzo3cRr+2LlAiPZOLm/bYHZxOv2na2NCqajP9SQqKV +rDfr+svO8WeYSAe/juESWxbcykxOZuJ7N7rHgriLUZCx6hrxYH2KMHFIcl76 +WAYTZYMN/F6S9V0akZO6OY+JBQOzvVyIjXZkXhG9x0TryxuyOGR/NDemX75f +xcSnWwNNGcR+K9OSvR8z8TxL/ksn2W88vZSkZ01MPJU5lmtHrDk7KeH0eyZm +uVVk/befn4RcOG/ykYnP6pMMH1mQ9zmScK5/gImTT7X6vIm5XWfPWI8xcWQn +v/AByQPG7eiYv8IsfGdvPLyO5IWU67HwQB0Wtlr/TltI8uduS3CYqiELE79k +xKWRfNpqF3SixYS4ojxLm/iCyZFQI2DhgUWxDtZLaVi4wDdoyIGFVIhZvZMh +DULle/z2HmVhS9jLGEOSn9f1dvtKhrKwRlvNjUvy1Zrr6lMbzsKJnJ/7JYnD +zu/0puJYWF7pqviD5PO0h+O+nlQWRr3bPjtZg4bvS+zcHKtZmFrRz4lh0tDu +Tb3cX8/Cm/MG1778L+/rpiGsgYXvJZbJSxEnhBQo57ay8POd/LhrpD8Y9C54 +OzXAwio51fyzimR9Fr3YlSauikr3TJIXSZM8nZ/bWCSjig2cgXxTKRqsPMLZ +dYqqmD/NKP9XktQna6g4rK6K3tL6jzPESV6EX+hGS1VUpzKLFpF+N2C/7d9+ +d1U04AfHnxeh4VWe7vOfXqrIKNFLTp5DQ4Wg8PKFvqqYazWVc02YhtjSEjnT +YFVstJh5kyFEg4ayTGf0WVX0O7W0LIH0U8+hzh3aJarYe6olW5P02/4zbo7+ +c9TQMH0kYQfp5z4DOpTBAjX001z9UuIpHybXTH37JqaGaY9CnjfW8WGe4IUo +Lzk1vLl3aNqkmg8GwTXFbrpqeO2euPvbMj4c91ATt9+ihk2qGxIv3+CDlNXX +F9oZanhmoOFXTigfMq+VXftyXQ1XtZ1w/RPMB82pU543c9Vwj5JFwaajfLAs +Vpyhbqthxpv9AkOHyHlGy15P7rEaBrrLPxX05AMtdfuMyKAanjWcI5a2iZw3 +ho/afjBVx8I7VzwTVPigYKh0WsRSHccTOZ6rlMj5wr+2WnuFOr7KG52ekOND +0oSYpf86dfTi3uu3l+BDz588vRlXdTSSODrRLswH/wXd4rKx6thv+4NvO8iD +FE3sWd+ljnM0a4NuF/HgK0fkcHGYBlp2jzrNM+HBULrN/YenNNA/tWKxsCEP +hjvC5zyP1cAX69NH/urw4If91LX3FzXQ5MOE1mcWDyaXD9SK5mrg1dzztVfI ++XaWRIOU10sNXC8+SyVgtBBka89XKKpoYmn38FIGv5D870jPiq7WxH1eZxrv +KBXCkka1c/SwFi6b3Tlk+7MAFGL4m0xNdbApYYxpnpIPV7TNxcQ9dVGyutW0 +zjIPnsmtMBlN1MOVRy7ZPGq9CRYK1Qn6rfq4qKVqWntNDogKZgfsjjTAD+6m +xbKNXFCKULZ0UjPEVCHLq+pLr8Nc1Z0lm+sNUdn63mefG1mgx5blH91lhE77 +nO3Pkv8l/54lNXYCSzFR9KPB65A0GB49s832ylLc6uslP/0iBdbo16XY6hqj +dOPNhlSHK/BgdPmvySZj/GSWlKFfcwl8dIw6mz1McKug49+O0xeBPeTe4jTX +FKPUbRh1qxJhFUtmw8JsU0w26rTg554DjfC4oGozM+w0jjo4pRYPWh7mD1U7 +zTBWskikmRcNHg/2nSo+tAwTskvCfj88BQ8zW9y/S5pjVEjtj999ETCWOzOp +X2qOuzo61nLqTwBHtWBuygYLbGc9PQyZIfBd66Lp7RELbDM/NNTMDYQy7q/3 +4zHLEf4q5ha5HQZnGyYuV7JEoSWS1jYJfiB/MLpcr8oSu7cXJ7u/OACS87yL +Nmxn45oHJa2xpzyBu/J4yIgT8QLLoUp/TzA6fm7lxZ1s/CZqGTPl5gkbR+j/ +te9m49Stfp3LbE843To+xfFmY8A+3tV/J/fCz+ww65AINp4owwVCB/dC5/KL +r3MK2PgzzHaiwM0D9h3hptry2Mi5YeizcpMHTPDuenyl2dguMl78ATxgCdU+ +aVjCxg9iP6/YKXvAOhFFhftVbIzSy2dc6nGHey057q//x8ZT3zm7NVzdwU60 +TDewnY3O/RFL99u7Q/uapxMyXWzcyHoRWgLuMFYxGOPyjo2bfNHVh+EOulkG +hV8G2Oif8vK5cy8H7nWuCDzzjY3ML/TD4VccsJPYAvojbHwTFDxzroYDe6OP +NAeMsxFSLTd85XJgrOp0ivRPNppkHt2Uf4kDkdOXORXTbNxcLx/nf5oDYsZ5 +Orv+kHoVGsdsjnIg/WDF+MwMG/eYGMar7OPA/wH0JWTY + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06350566710602473}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06350566710602473}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Vd0XB3BvJE1S5vk695pnGSLXWkkDDdKgeAt1SUpIElKGkqmBkkrm +bjLk3qNkbBCiAaX8zKnQRKFM0eC337/O83nOc5691zl7f9c+Knt8N3vMEhAQ +mPOPgMB/14mep7WseK7Vh0DJLQ2vLa1a0mWCV7RHgoNaW3/8ITlAyRd7ZNov +gEBr9mv7Q1oQuCm/TbA9GxbIhDlpHrKAxUPSF6babkP8uRjHMT87eHtvo+9Y +WzW8j+t6uNnPGVazBt58b3sFYenbqz8c3A9TbWaXRtp6QVB0WRq6h0DNypvc +5uxRcBaN3dywJR4U3pZ/3KPzB05YjTdtkk0CCW/X/DkrBdFn7J8tE3opcMFw +deXGbSK4+shN/lGLTOi4YlD1XWwhbmlc5rDqZzbEc8NezJJdjOdumqbmFN8A +6aS+2Itp4ngLHv/PlJEL0VttrV5NSOLZZndlbUY+yBU3yc36Rwr9/D+tXqWR +DzzxrZOG86VQR+nPUWeDfGh95UInKkuhitz80SOYDyyHAMphrRTuyNQ2OuSW +D9UbMoRfXpXCCBef2UEZ+fBn9XhTo6U07jWK7aiSLYDD5lmuTyNlcPJxlbr4 +TAHYZYqOrTsjgwM3m2cdmX0LqDmhMU2XZLA/ocP11fxb8LLFseh1rgyGnR9L +C5O5BXp+CwR7mmRwzj6uItfwFnzOOZrzQ04WJ4fNn0pwbsFOiY3f5O/IYkXf +t38uVN8Cm+HpEJ8+OXTJoV2/HC6E4LVJWo++yqGliZuvaHAh8LJ0O8Un5FD9 +IVtO/0QhyGx1My8XkUd1rXfIiSmEr2WPJwX15BFszjQmpxbCxciEgKtB8mgx +ubVOq7YQeiXVfGoXKuBztmPobDEeSPs+VJSWVkDPN2alaRI8WP9kR6MXQwE3 +9C6PM5TlQUlIvM6ipQpYXJfwcx3Fg7i3IwNOOxRwNHNkfJ0xD4zyKj2HsxWw ++6rY4aDtPIiwdNgtt0wRKYWZvJMpPFjrkv7DzFoR5QYd7n9M54Fo+ODJbesV +UTfOJtvmOg9Sa6JyEtwUUbT0wvuRAh6U2VUMCscqouZMv/n8+zwY2cEMHO1Q +RFmva4FrenjgcmQ8ruGYEgbkmiS9VeCD6mVrhYEoJVy0o21ZGoNP6j9fOCdB +Cb+GSZZsY/Eh5LfmS2uuEnZs4S4v1ebDpZMukuUNStg/IhRqacGHhsT6jBuK +ytj6W1ZpkyMfLHhXi088VMaLC5wS0+P4YNPW9GfoiTL+kl0uevIsHzYKCK1x +faWM87pRlpPAB85mnw74oIxZm1Z1SSbzYfUxlbDw2QwUHbKTW53FBz/liesr +tBl47vf2d80lfBi/k/BkSp+Bjupqfr7lZH5rtb8VGTPwDbMmSeQeH6IOuZlS +VgzcvNAsXfcRH1Jqnj2Z5cBAK6HuB9bP+VDrmfGtJpCBAXq/Mq/28MH2t/mS +0GMMNGhpvjvyjg9NCS2mxuEMbL6o5Lmyjw8d5XPDubEMLGOpZXV94sPQ/IAl +UakMfMY/EtE2wgcZeq3Z6moGimmx7/4VoMH75/fwJwtV8FJ34IdIMRosDu2V ++rhEBbcpxP44tpgGkYHOAkEZFQQHCPRfQsONrppWK0oFlwsa9W2XoKHnwSWd +u6Yq6JZ/xkVIhgb7KPP2LFcVZEkJL+tXokHpb+HBh+4qKLry3rtiZRq+BlKC +b7xUcHfSE+GTDBpi9s3Xkwkg43fdaJCmaKha9+bkuRgV7CvpX8dUpcFoSYT+ +sSIVLAicOV6tRYNA/HjtlRIV/FOgYHRAm4Ymwf3OJZUqWGb+dv9iHRoOjG+O ++v6Y3Ndkezvq0sBtZ3V5dqpg+YKuymp9GvwdrvpFvVXBodi07O0GNOCzhcLX ++8l8NnxcPED8pnLCoGdIBQVXCp+ZY0SDVMaT01sFKUyqjPjNMqahX5qt4C9C +4W5WgEkO8e2EoqLzCymUUR6dZpmQ+iNTup9JU9jZx9WVNyX1eXgbrdChcK+T +Mw6Y0eDY867exZDCuin9r9uX0cDavm1XqCmFmXr3NWqIq9ZaxZQihaVXlBwv +mNMwpS3Wo7uNQve8vwniy2mYSJOLWOpMoeysTANv4rFFqixzVwqz0+4cqyYe +GjXfb+NF4emdq6T2WdIw6GGz0M6HQqWbTXtLiT+3baTtD1PIiXznLsSmobeS +M+F8nMKZ1+UHLhO/1fW56hZJ4eaTCUfeEHdnBFnujaYw31hUX8WKhtaTZyMP +JVJonErdySJ+tq5UNOYGhR9j60WjgYb6+4+KzuZT6Pd8gFtBXKvfsPUin0L9 +BfOGB4kfiL9PSS+n8FCwX9YapKEyapDNfUChWPuref7EZZPj7/JqyPNXPbVS +iG93zVO/20jh9/nu5/qI+Rskn1W8ojCrfeC10Aoabj1UPljVRuF5q95mJnGe +oZZYXTeFn/7pikHinOvGd56/J+Pt2TvlTHxdEhybP1JoIC/FOkycGW071TpI +oeKe0LmxxGlTW1K7Ryhs+KSdn0qccsAFescpZLSVCvOIL7/Z1/tpmsyn5Y7y +feIk+8NR32YorJ65M/6UOPHRcY1RISZ6DK+PbSE+tzTm+c+5TCwqFu/qJo6/ +ccHnrygTVTvSBnuJY6TTFgtJMDHNJaLyI3FU7M3iubJM/P1g67rPxJG/irYv +UmJi+yDv2ifisIP3piWYTGRuVC/sJw59W5cmp8HEnsfbwt8SBzs0I0OXibV5 +ryTbiQNruvpUjZj4vc7Up4n4sMnH09pmTLzoJh9XTex3c0TT0JKJifpy+4uJ +fWR/NZiuYCLuaRTlEh+In+1nuZqJAqkvghKJ9/1ZJG69jok/xypzQ4n3+sqV +rNnExLIp3QwPYs57ltOGbUx8l/9o53pity36vzc7M7ErVLzXgHjXY/OMHa5M +DNpepS9O7GxmY+3izsTrlzxWj5Lvu1XeKcbLh4nVH8SabxE7nOVo+x5m4qyB +LatPE2+cOdgUEMTEByZzo3cRr+2LlAiPZOLm/bYHZxOv2na2NCqajP9SQqKV +rDfr+svO8WeYSAe/juESWxbcykxOZuJ7N7rHgriLUZCx6hrxYH2KMHFIcl76 +WAYTZYMN/F6S9V0akZO6OY+JBQOzvVyIjXZkXhG9x0TryxuyOGR/NDemX75f +xcSnWwNNGcR+K9OSvR8z8TxL/ksn2W88vZSkZ01MPJU5lmtHrDk7KeH0eyZm +uVVk/befn4RcOG/ykYnP6pMMH1mQ9zmScK5/gImTT7X6vIm5XWfPWI8xcWQn +v/AByQPG7eiYv8IsfGdvPLyO5IWU67HwQB0Wtlr/TltI8uduS3CYqiELE79k +xKWRfNpqF3SixYS4ojxLm/iCyZFQI2DhgUWxDtZLaVi4wDdoyIGFVIhZvZMh +DULle/z2HmVhS9jLGEOSn9f1dvtKhrKwRlvNjUvy1Zrr6lMbzsKJnJ/7JYnD +zu/0puJYWF7pqviD5PO0h+O+nlQWRr3bPjtZg4bvS+zcHKtZmFrRz4lh0tDu +Tb3cX8/Cm/MG1778L+/rpiGsgYXvJZbJSxEnhBQo57ay8POd/LhrpD8Y9C54 +OzXAwio51fyzimR9Fr3YlSauikr3TJIXSZM8nZ/bWCSjig2cgXxTKRqsPMLZ +dYqqmD/NKP9XktQna6g4rK6K3tL6jzPESV6EX+hGS1VUpzKLFpF+N2C/7d9+ +d1U04AfHnxeh4VWe7vOfXqrIKNFLTp5DQ4Wg8PKFvqqYazWVc02YhtjSEjnT +YFVstJh5kyFEg4ayTGf0WVX0O7W0LIH0U8+hzh3aJarYe6olW5P02/4zbo7+ +c9TQMH0kYQfp5z4DOpTBAjX001z9UuIpHybXTH37JqaGaY9CnjfW8WGe4IUo +Lzk1vLl3aNqkmg8GwTXFbrpqeO2euPvbMj4c91ATt9+ihk2qGxIv3+CDlNXX +F9oZanhmoOFXTigfMq+VXftyXQ1XtZ1w/RPMB82pU543c9Vwj5JFwaajfLAs +Vpyhbqthxpv9AkOHyHlGy15P7rEaBrrLPxX05AMtdfuMyKAanjWcI5a2iZw3 +ho/afjBVx8I7VzwTVPigYKh0WsRSHccTOZ6rlMj5wr+2WnuFOr7KG52ekOND +0oSYpf86dfTi3uu3l+BDz588vRlXdTSSODrRLswH/wXd4rKx6thv+4NvO8iD +FE3sWd+ljnM0a4NuF/HgK0fkcHGYBlp2jzrNM+HBULrN/YenNNA/tWKxsCEP +hjvC5zyP1cAX69NH/urw4If91LX3FzXQ5MOE1mcWDyaXD9SK5mrg1dzztVfI ++XaWRIOU10sNXC8+SyVgtBBka89XKKpoYmn38FIGv5D870jPiq7WxH1eZxrv +KBXCkka1c/SwFi6b3Tlk+7MAFGL4m0xNdbApYYxpnpIPV7TNxcQ9dVGyutW0 +zjIPnsmtMBlN1MOVRy7ZPGq9CRYK1Qn6rfq4qKVqWntNDogKZgfsjjTAD+6m +xbKNXFCKULZ0UjPEVCHLq+pLr8Nc1Z0lm+sNUdn63mefG1mgx5blH91lhE77 +nO3Pkv8l/54lNXYCSzFR9KPB65A0GB49s832ylLc6uslP/0iBdbo16XY6hqj +dOPNhlSHK/BgdPmvySZj/GSWlKFfcwl8dIw6mz1McKug49+O0xeBPeTe4jTX +FKPUbRh1qxJhFUtmw8JsU0w26rTg554DjfC4oGozM+w0jjo4pRYPWh7mD1U7 +zTBWskikmRcNHg/2nSo+tAwTskvCfj88BQ8zW9y/S5pjVEjtj999ETCWOzOp +X2qOuzo61nLqTwBHtWBuygYLbGc9PQyZIfBd66Lp7RELbDM/NNTMDYQy7q/3 +4zHLEf4q5ha5HQZnGyYuV7JEoSWS1jYJfiB/MLpcr8oSu7cXJ7u/OACS87yL +Nmxn45oHJa2xpzyBu/J4yIgT8QLLoUp/TzA6fm7lxZ1s/CZqGTPl5gkbR+j/ +te9m49Stfp3LbE843To+xfFmY8A+3tV/J/fCz+ww65AINp4owwVCB/dC5/KL +r3MK2PgzzHaiwM0D9h3hptry2Mi5YeizcpMHTPDuenyl2dguMl78ATxgCdU+ +aVjCxg9iP6/YKXvAOhFFhftVbIzSy2dc6nGHey057q//x8ZT3zm7NVzdwU60 +TDewnY3O/RFL99u7Q/uapxMyXWzcyHoRWgLuMFYxGOPyjo2bfNHVh+EOulkG +hV8G2Oif8vK5cy8H7nWuCDzzjY3ML/TD4VccsJPYAvojbHwTFDxzroYDe6OP +NAeMsxFSLTd85XJgrOp0ivRPNppkHt2Uf4kDkdOXORXTbNxcLx/nf5oDYsZ5 +Orv+kHoVGsdsjnIg/WDF+MwMG/eYGMar7OPA/wH0JWTY + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06350566710602473}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06350566710602473}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939189359400597`*^9, 3.9939339668496237`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"42044614-f7f6-45ab-bd4c-cc32c3a7e481"] +}, Open ]], Cell[CellGroupData[{ @@ -10717,66 +12129,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + "In[131]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 116, 57, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068365192`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.686000407405547`*^-159\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 131, 45, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.99391893622573*^9, + 3.9939339668689137`*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +In[131]:=",ExpressionUUID->"32aa89b4-3db6-4ffc-b582-e74ee5524db1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506846985*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0014189346365785`*^-161\\\", \ +\\\"16424312045547973917068250855478962797836184904556443340043143969743430318\ +444318157938322185531163516963194464925547245426704384000000000000000000000000\ +00\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 131, 46, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.99391893622573*^9, + 3.993933966872106*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +In[131]:=",ExpressionUUID->"07cc474b-2120-48de-ad7e-cff2c81bf674"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 116, 59, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506856045*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4999099933315806`*^-164\\\", \ +\\\"55251385721223384257017595877831230851920926018927875395905136314216899591\ +246686283304515832126834071064186180009540933615433547776000000000000000000000\ +00000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 131, 47, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.99391893622573*^9, + 3.993933966875225*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +In[131]:=",ExpressionUUID->"8aa089c4-56ae-43ef-a7ae-8e5e93812027"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 116, 60, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068640423`*^9}, +during this calculation.\"", 2, 131, 48, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.99391893622573*^9, + 3.993933966878002*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +In[131]:=",ExpressionUUID->"22b991f2-d702-4717-9625-8f1ad738fe51"], -Cell[BoxData["11.275343508404701`"], "Output", - CellChangeTimes->{3.991326513010317*^9}, +Cell[BoxData["13.19520468293472`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.993918998042966*^9, + 3.9939339893770227`*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] + "Out[131]=",ExpressionUUID->"a93e7be2-9fdf-495e-a50d-6b6120d5e257"] }, Open ]], Cell[CellGroupData[{ @@ -10843,68 +12264,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998502248*^9, - 3.9917998584727135`*^9}},ExpressionUUID->"df92a918-12ed-ff47-a8a8-\ -122296a3d634"], + CellChangeTimes->{{3.9917998502248*^9, 3.9917998584727135`*^9}}, + CellLabel-> + "In[132]:=",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 117, 61, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130447063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.57750913169267`*^-219\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 132, 49, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993919003253173*^9, + 3.9939339893990927`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +In[132]:=",ExpressionUUID->"4e05632b-f6e7-4e5f-a7d7-0c1f7eeb7c33"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 62, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513053705*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.219706377931884`*^-225\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 132, 50, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993919003253173*^9, + 3.9939339894026747`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +In[132]:=",ExpressionUUID->"2cb142ab-76ef-4861-a6cf-8b2fdc980f52"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 63, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130617065`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4759899105745863`*^-230\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 132, 51, 31385539801306253772, + "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993919003253173*^9, + 3.993933989406152*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +In[132]:=",ExpressionUUID->"55a231d1-7086-413c-899d-ea00776be94f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 117, 64, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513069849*^9}, +during this calculation.\"", 2, 132, 52, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993919003253173*^9, + 3.9939339894092407`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +In[132]:=",ExpressionUUID->"81f72747-8601-4ecc-9173-c199adb51395"], -Cell[BoxData["1.662840304462236`"], "Output", - CellChangeTimes->{3.9913265201819115`*^9}, +Cell[BoxData["0.11984839927249331`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.993919018672881*^9, + 3.993933992334738*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] + "Out[132]=",ExpressionUUID->"f2d1f356-e853-40e9-bf20-22501833ddbc"] }, Open ]], Cell[CellGroupData[{ @@ -10925,8 +12353,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -10971,68 +12398,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998626681576`*^9, - 3.991799866004116*^9}},ExpressionUUID->"1990573a-00f1-b54c-9d39-\ -9c68738afe07"], + CellChangeTimes->{{3.9917998626681576`*^9, 3.991799866004116*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 118, 65, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520216116*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.57750913169267`*^-219\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 133, 53, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993919025197624*^9, + 3.993933992356234*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +In[133]:=",ExpressionUUID->"04b6533d-ca5a-4045-ac29-267b9286b928"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 66, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520226103*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.219706377931884`*^-225\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 133, 54, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993919025197624*^9, + 3.993933992360032*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +In[133]:=",ExpressionUUID->"70e42bbf-7ef9-4ac4-a1d7-f94a2bdd33c4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 67, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265202341022`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4759899105745863`*^-230\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 133, 55, 31385539801306253772, + "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993919025197624*^9, + 3.993933992363641*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +In[133]:=",ExpressionUUID->"5c90723f-4071-4af6-9181-15c425b12d88"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 118, 68, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520242243*^9}, +during this calculation.\"", 2, 133, 56, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993919025197624*^9, + 3.993933992366836*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +In[133]:=",ExpressionUUID->"0dec2a71-e4cd-4e4a-8a6e-ae91ed933c7f"], -Cell[BoxData["8.698310175000124`"], "Output", - CellChangeTimes->{3.9913265264075394`*^9}, +Cell[BoxData["39.15109818288832`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.993919044184284*^9, + 3.993933995086747*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] + "Out[133]=",ExpressionUUID->"48020119-d6ca-4886-8195-e68be3d20f4d"] }, Open ]], Cell[CellGroupData[{ @@ -11053,8 +12487,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11099,68 +12532,75 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799871682028*^9, - 3.9917998792226925`*^9}},ExpressionUUID->"586f2005-dac7-8547-be11-\ -766f96e6af5d"], + CellChangeTimes->{{3.991799871682028*^9, 3.9917998792226925`*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 119, 69, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264435444`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.57750913169267`*^-219\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 134, 57, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993919054477182*^9, + 3.993933995110433*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +In[134]:=",ExpressionUUID->"b79c892f-6849-42fe-968f-76ab8d8f0e05"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 70, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264535427`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.219706377931884`*^-225\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 134, 58, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993919054477182*^9, + 3.9939339951138153`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +In[134]:=",ExpressionUUID->"54087548-32ca-4f45-921f-f81e6260ee68"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 71, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264615555`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4759899105745863`*^-230\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 134, 59, 31385539801306253772, + "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993919054477182*^9, + 3.993933995117078*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +In[134]:=",ExpressionUUID->"2e14c20d-bf46-4b14-b595-7b7c322f9a4c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 119, 72, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326526468542*^9}, +during this calculation.\"", 2, 134, 60, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993919054477182*^9, + 3.9939339951197166`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +In[134]:=",ExpressionUUID->"0176345c-efe8-457b-9853-3de244cc0c33"], -Cell[BoxData["16.721244215445346`"], "Output", - CellChangeTimes->{3.9913265299431496`*^9}, +Cell[BoxData["5.79434155271896`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.993919082337804*^9, + 3.99393399686592*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] + "Out[134]=",ExpressionUUID->"e2a295a0-19ee-4f53-aea5-ff537ae4b5e3"] }, Open ]], Cell[CellGroupData[{ @@ -11169,22 +12609,24 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9917998836260815`*^9, - 3.991799887334032*^9}},ExpressionUUID->"363f609f-6fd9-cc4c-924f-\ -14ef82ef0962"], - -Cell[BoxData["0.13787921511838797`"], "Output", - CellChangeTimes->{3.991326529975149*^9}, + CellChangeTimes->{{3.9917998836260815`*^9, 3.991799887334032*^9}}, CellLabel-> - "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] + "In[135]:=",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], + +Cell[BoxData["0.007957162328140102`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.993919086561556*^9, + 3.993933996885056*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"1a052e0e-1eff-4b73-9436-4248b2d66f1e"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9}, - 3.991924340381132*^9},ExpressionUUID->"32c57f0b-017d-d340-92c6-\ -0f56a212e9c3"], + 3.991924340381132*^9}, + CellLabel-> + "In[136]:=",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ @@ -11207,12 +12649,13 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + "In[137]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913265300040226`*^9}, +Cell[BoxData["25.409967517391518`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.993919094801353*^9, + 3.993933996904955*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] + "Out[137]=",ExpressionUUID->"fdc1488b-4862-4014-a9b0-2dbfd83a3646"] }, Open ]], Cell[CellGroupData[{ @@ -11222,12 +12665,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + "In[138]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.991326530052025*^9}, +Cell[BoxData["1.0447880299510575`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.993919099847547*^9, + 3.993933996910261*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] + "Out[138]=",ExpressionUUID->"786e2a27-4966-4790-98e8-5ecac59d9982"] }, Open ]], Cell[CellGroupData[{ @@ -11237,12 +12681,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + "In[139]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913265300922585`*^9}, +Cell[BoxData["26.548029903615845`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.993919104961594*^9, + 3.9939339969165173`*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] + "Out[139]=",ExpressionUUID->"bb8a3557-f77f-4b15-9ea0-fb7ff8c8d1af"] }, Open ]], Cell[CellGroupData[{ @@ -11432,12 +12877,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + "In[140]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[BoxData["0.022635100966331548`"], "Output", - CellChangeTimes->{3.9913265301172295`*^9}, +Cell[BoxData["0.005346447438883637`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.9939191108783207`*^9, + 3.9939339969234257`*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] + "Out[140]=",ExpressionUUID->"4b7fe0ae-c8e5-497a-921e-23c5d24c4aa3"] }, Open ]], Cell[CellGroupData[{ @@ -11451,12 +12897,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + "In[141]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[BoxData["5.890521190513567`"], "Output", - CellChangeTimes->{3.991326530210228*^9}, +Cell[BoxData["12.120269868150068`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.9939191178126173`*^9, + 3.993933996977746*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] + "Out[141]=",ExpressionUUID->"844cf85f-0d4f-444b-99cb-fd41d12eeda4"] }, Open ]], Cell[CellGroupData[{ @@ -11648,12 +13095,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + "In[142]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[BoxData["0.012260254107801566`"], "Output", - CellChangeTimes->{3.9913265302252293`*^9}, +Cell[BoxData["0.03164103554889654`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.9939191275073767`*^9, + 3.993933996984164*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] + "Out[142]=",ExpressionUUID->"6121ec03-5cd8-4342-af99-7cae1ac642ba"] }, Open ]], Cell[CellGroupData[{ @@ -11667,12 +13115,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + "In[143]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[BoxData["8.003781147223087`"], "Output", - CellChangeTimes->{3.9913265303172264`*^9}, +Cell[BoxData["4.982182091846452`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.993919153682682*^9, + 3.993933997036686*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] + "Out[143]=",ExpressionUUID->"fb0d77e1-2c3d-4556-b2b8-6732b0f6faed"] }, Open ]], Cell[CellGroupData[{ @@ -11765,12 +13214,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + "In[144]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913265303292294`*^9}, +Cell[BoxData["0.15074304128905536`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.993919179700132*^9, + 3.993933997041815*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] + "Out[144]=",ExpressionUUID->"cc6506e9-1013-4e66-8195-69c8244462d8"] }, Open ]], Cell[CellGroupData[{ @@ -11860,12 +13310,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + "In[145]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991326530340416*^9}, +Cell[BoxData["0.8492569587109448`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.9939193576857224`*^9, + 3.99393399704747*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] + "Out[145]=",ExpressionUUID->"4b266010-df55-4b9d-9597-9b35afca2dc7"] }, Open ]], Cell[CellGroupData[{ @@ -11988,12 +13439,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + "In[146]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991326530367384*^9}, +Cell[BoxData["0.12801957679198153`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.993919389225423*^9, + 3.993933997052243*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] + "Out[146]=",ExpressionUUID->"706fd30e-af9f-4537-8fa5-e10481af0f63"] }, Open ]], Cell[CellGroupData[{ @@ -12055,68 +13507,74 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799912745739*^9},ExpressionUUID->"c3883d3a-8a99-644a-9175-\ -a97b5c6c44f4"], + CellChangeTimes->{3.991799912745739*^9}, + CellLabel-> + "In[147]:=",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 135, 73, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265303923836`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2708738684443735`*^-237\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 147, 61, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.993919411920886*^9, + 3.993933997058571*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +In[147]:=",ExpressionUUID->"8ab7f02a-146b-4f39-88d2-f3bcd3ac1755"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 135, 74, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304013824`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3695441947114879`*^-244\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 147, 62, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.993919411920886*^9, + 3.9939339970612497`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +In[147]:=",ExpressionUUID->"87dd7c66-9ce9-4388-bf1f-1b9553b297ca"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 135, - 75, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304095325`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4758752601970229`*^-251\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 147, 63, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.993919411920886*^9, + 3.9939339970637302`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +In[147]:=",ExpressionUUID->"f960c8ff-ff8a-4394-97dc-c4338cddc6c5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 135, 76, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304175396`*^9}, +during this calculation.\"", 2, 147, 64, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.993919411920886*^9, + 3.993933997066177*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +In[147]:=",ExpressionUUID->"48ee5bb9-8cb1-4cad-9919-2ccd954c8720"], -Cell[BoxData["5.890521190513565`"], "Output", - CellChangeTimes->{3.9913265339749985`*^9}, +Cell[BoxData["12.120269868150045`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.993919999641025*^9, + 3.993933998499289*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] + "Out[147]=",ExpressionUUID->"df139cf8-6c2b-41c0-8fca-b24ea3666d21"] }, Open ]], Cell[CellGroupData[{ @@ -12178,68 +13636,73 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917999175346184`*^9},ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-\ -bed1f30b804b"], + CellChangeTimes->{3.9917999175346184`*^9}, + CellLabel-> + "In[148]:=",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 136, 77, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340092525`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2708738684443735`*^-237\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 148, 65, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9939200680358257`*^9, + 3.993933998520527*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +In[148]:=",ExpressionUUID->"45204b2d-dcf5-4783-9d88-634ac15bfe4a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 136, 78, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340202503`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3695441947114879`*^-244\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 148, 66, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9939200680358257`*^9, + 3.993933998523705*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +In[148]:=",ExpressionUUID->"3cd5935f-5020-4895-89a4-4edbcd033bcd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 136, - 79, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340282536`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4758752601970229`*^-251\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 148, 67, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9939200680358257`*^9, + 3.9939339985267572`*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +In[148]:=",ExpressionUUID->"930ad625-a227-4fb2-94a9-d5ca28c459f4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 136, 80, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340354958`*^9}, +during this calculation.\"", 2, 148, 68, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9939200680358257`*^9, + 3.993933998529387*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +In[148]:=",ExpressionUUID->"a9e9a4d0-61a8-4633-ad6a-f774adb44867"], -Cell[BoxData["8.00378114722308`"], "Output", - CellChangeTimes->{3.9913265375649567`*^9}, +Cell[BoxData["4.9821820918464494`"], "Output", + CellChangeTimes->{3.993933999925996*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] + "Out[148]=",ExpressionUUID->"2ef48bfb-7593-4459-a2e3-5ee63bbc1568"] }, Open ]], Cell[CellGroupData[{ @@ -12297,92 +13760,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917999220519733`*^9},ExpressionUUID->"d5c5d0e8-862b-f245-8b21-\ -eac61b5b75d3"], + CellChangeTimes->{3.9917999220519733`*^9}, + CellLabel-> + "In[149]:=",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk4VVsfB3CEWyFTCJmH6yiRKYrWz1BK5iRzhnO2yBRyiUhF1zVP0cAx +NrjGEhnyKsLlGIpSoginMpxzaNAk7zp/7Gc/n2c/+7u/e631rKXgE+JA4eLg +4FjCF/t+enDXn03Dg/tdqws/L5ez0H5GuZ6PeRW6k+PCZHuKqp+rbN6GaKVp +b9m2Iw/w8us8QQuvDZ+wXR8V38ljTkMs8CxmO7l7W0d85VOUMvojlO3m4dNF +v7Sfo93XBPewPT/eFxvd+hJJXbmxwsKWmlNy+2o2gUwHSsrYPsKMNQynvUUB +B+Qs2W7/Nc8XVTmNJHnE6EzsFwkSMY3BM+iG6MW/2Gbwms9/1p5DP6L8fzOw +eVNDXXRW6Uhgf+9ZtmWFC3tPt35ARCB1cQnbRvrrTYbZIlLXbKpbxCaKFcU1 +NjJQ/vgqF9vxKraJp2hM5CJTb7mA/VJidHdE5TKypKa1fMQmuwb456SuoIqf +de8+YLNucJTcDf6EiknWHGxvVNQQWtb+goyMWdJ07Fxyp4WQ2FekfnBVcg5b +/pZLvObqV2Tp95fALLbBziRGUOs3ZGQyMzqNfVL/LW3e7Bcav3VqbgL7c9QZ +7s2qa0jnkXHGa+zzrXxGpI2/0f/Kk3eNYxeAwb9+tHW0ujvDeozdr6LXPKyS +Ex6THQWeYld250wlSHOBRN+qzxC773vP2KxULrgzIVYzgB2r/uVeXfAGyEt+ +rNzH7luroMTU5gHOmumcx9jjw4vtv8t4wFbJM6+D3X+lyXWLGC8wXZxS27Gr +dG2yNVZ54X5Zi2sLdlfzWc7A1o0QynE8uh77S+fI2w9m/PBJkru9EFvEil8o +pp0f0tvaJ69ha42ag4ChALST5ZfzsQNm7xfv3rUF7HterWRhh3LRtIz5hUBN +aqdPIvacYs1y4ldhsMpLZfmzx4fo2zSkIwLbFsYsCWyuf+kK206LQHr3YIEP +u6+OnEPlggj4H+0QdMN2Ncu8OzglCm7vWv2PYA/5hoVL9ItBtr73IAn7za30 +FK+N4uBBSvNVwV5cqCy7c0AcWjQDFuWxN0fMjOzrEIdL6wavJLDNLznqet2X +AJNiXTke7JZy/S+3qZIgwrnuPlnGQuVzPyL3RshAG4lVegn70LHLb8KrZUD8 +QtDWeOzFLtGD1XQZqJY2ionG1i3fKSbvIgtN7YNqwdhdPp73ePbLwa+K5xuO +Y68wp/76cFEepEv6m1WxRYPMG+5ZK0KYdIZaeykL0cs3n7QLUISh7yIHmrAf +TAxLLyUpgsPaV6c6bHcrj4uqHYqgmjjtWopdviPS4aq2Evwwtp1JxNadv8WK +k1CGq9t4Vi2xHf34NCynVSCX9khjoISFUOQx7eNrKtC/r17+CbZ6InUPWVIV +6LSYTQ+xOcp0TOPsVUHyZnlbFXb1G7fjdx+pwnzesTsp2LxOVQlSpX9Cwkjz +DQvsB+bWL+Z9SJDTMsFsKmahsqP5r1fjSKDs7kGtwU73mZ7ivk6CiI0D5hXY +5PNnFmRHSEDeFXs6G1u4rZDjqJk65GfvdAjEDtBhqLcq7YA/doTslsWWVsyI +T5ndCbYOgYFnqSzU9s9n0ncuDXAK9fsSjO3+yWWUUNCAvdsrwnyxi7qUSaae +GrD718JhK2xFv5Zn38Y0oIXUeUoGW71qToXo3wXmzyLOPSxiIRlpWULeRQuS +mNxTnwtZaGdFBP9PpA2skbVJuMFCPuSLXzRstIH27tYZHewCpew3Xu7aIFjp +uEEVe0NpbV13lDaI2LRw8GGPF807ZtdrQ3Py04uj1/F+WuBVSFLSgVhRwSoK +Nj3Fapczry5MjMylnL/GQiVhynb3aXpgs2zVVVDAQsORaM+lCkOYqXrSu5LD +Qgqez208Ao1BU27kbWM6C1HWG2tkogHCyzS7TJJZSGLhwR8SPqawFN17/uEF +ForQMZrIVjeHjfVFl+Ricf+lX72i8wcg9X2ApfoZPJ+m4X9QhyzAbU9qglwQ +Xj+fAx5V5R6G0Ri/CS0KC30z2TbQFX8E7ggzktTdWWiSY8PytLc1CC4XD887 +sFDw9pDMBCVbSO2gNPw8zEI1/r0deYl20L49SJIDWOjsJ8nVHf72EKTz/VmY +Pt4/LA869ZxwgJ9FmQMzO1jI0C3LZM7+KNyMsld0V2ChZ5KFAV06jlCscX4o +WAKfJzcvtt1WOwbxZztOXOPH62tK3cpGwAkunYu8GsWFz4NRll/kkhOYpao1 +ySwzkU5eVlXZ1HEYoUrxPXzNRIXcn3ZldzpDd2Zj9VoPEzWaaI4nNrvA7A/G +wbm7TFSw5x/hX5WuIL47/mduERMNva5I0kl1g92drxSFUpnovvUN5dDz7pDy +NM0hKYqJloOOcgSTPeC7kdO9SYKJvhwknWSYecKE0CI/yYmJbi+9+haufwJy +Qwa7us2ZyLmkwteD3wtosy0ydnpMdO/ukRMbLnvB34N5mSEqTGQo/ex78ncv +UHgix4yTYCKlKb/xp/7eENij+ahhMxPN8p2yvTHjDQEPZaYm1hhoON3G1+KY +D7zqYLm/W2Gg3Cgq35lhH0h1sX0t/4GB2trXv/se9gX3W97Lj98wkKA7XNZp +8YWBt8lXZccYSH5rz9D2Nl84V3diZP0FA2nRrLfxtvvCg/BchWlsByO3Oy8f ++YI4r+LPMuzc7ZH95/7zhbGk9VJ1bKnJfwV7X/pCrLV9z77nDKTsKVHgvuoL +/zVEBweNMJChF+N2oi4ZNt/fnrtlmIFuXmWF2+iTIbpQ/ubXIQbaOrKyX8KA +DGqTJn1vsBkHVkdv7yOD/f7pQ7XY5Ts4OGmmZDjneF/OHnvLqrCLiD0ZJmXb +dQsGGWg2TW8TNYgMmlIx3LoDDGTfs2fUL4QMSxfC3GWx2zn2UrVOk4F1tKp7 +I/bV8P16jyPIkJm18HSSxkA2LhbeczFkCP/R2Pk3drOyS/OOf8iQ4xUm9q6f +gdJbY/0f3CRDD204qrSPgYK08w2jbpNB73RgbAa21Z36TQaVZPgrpiErFntz +Pv1OUzUZFE9bLzthJ4bZzTc2kOHT+bZL/NixJOVT9x+TgXTEZe3sfwwUkN8f +ePcNGfoodfsovQx0eAvdKGyKDIdjsyIdsdUSOQS035EhaWBvpxk2PUyvun6O +DOleH7MUsb1tqEt1i2SgjtG4p3sYyJknPLj2BxlMiz1NvLEtwqVCq8Qp8MuT +Xzqkm4EeU5Mss7dRALyEj53ANqKtKEdJUeBGpkK5LbaWSv8rM1kKPNjql6CF +LTkWY/ZahQJFSVSDT08YaGHvpPhmPQow3v99LRY7g6v4od9RCtCvbNWmduH/ +1+QvsD5GgVNxKoLZ2JfcosJ0jlPA7rsbZyJ2VIPdn+uuFHhZZqRyCtub4My6 +4kMBJ2I6wABbp8+H/OQ0BXaEujBedDLQWJYKn1ImBUy0+saVsGuQwMkPWRRw +0egTksK+tPS5qzqHAqyigy5C2NqHu+IM8imQTWtUWHuM54/Dd8W6iAJ5JQmZ +Y9gHQ4pfRVVRwPSaGj0DW0bmb/39NRQYe/6n+WXsz30hORvqKODwrLIhDrtU +FVmn36NA/iPjgSDstcnJjrIWCjxXK5uwwm6wkr492EsB9fzuiC3YKT+4eHL7 +KLB9WfsnL7bP7XlvFxoFvAJJueuPGEiIu0V6dogC9qhxjYUd2Oqc8f0FBdr8 +XWpHsZXUr0Qqz1Fg/wnRNCr2j7FzIx/pFOBaOWJ0FXs4kaJV+4EC+lJbf2dj +x03rzhsuUsD9pGNzEvZ4wYiH7ScKrIYUbgnBzv5D+MBZTgLiBrJ0zbDbVibd +IjYQkBdYEmGM/X6yMiyYh4AU2lj/HmyjBvNin00ESOi1/G8nNt0r6qelMAEy +2088lGD3tzogckCUAEnTmkYR7H17REhIjAC3QdUeAexMgSonHUkCvtjlaXCz +n7e8rZdWIEBMO1RopYOBiIqqXjElAi72iHQuYWdmRr8VVCEgg3869SM2nRAV +4CYRYFzLSUyzn4tanFzUIoB5yHXXM+yW36LxdG0CuJy9rw1iz32cypvSJcCI ++4pMP/bejrOdowYEqAol+3dhzwbWyD4EAkpvXpd4gL3FOUavyRR/31XM+D62 +odkhq3pzAq4Zt0ffxU6XfBddcYgA6v4ig2rsB9y1mVRLAvpqn7dUYs8wY25d +tSIg/KuR421sg26x52l2BBy5fp1Whu1T/27hsgMBpiY5/5Zgp92o5brgiMfT +qrWEiv0u7LBWpDMBNKHCkevYAp7iFqGuBLziPS54jZ13eMYjwJ2AwHETnwL2 ++3LnUjy9CNC7WGmdx+6z2bLU2YcA+WQ1eg4774t4swOZgE2DY3nZ7LzpmSEr +ggBtvwfuWew8Wh394EkCbvn17c1k92s6twYBBHhMC2hlsPNLLbfuC8T/N3vB +KJ2dnyaxQy8Yfy+B5JXGzo+aNdEMJUCgi/N6KjY/ud6ZFEZAQjPfUgr2Htu4 +EKUIAuIDLZzY9tl7JEkmkgALesOLf7BTVbYVSkQRULbLMZjtRqG5e8Jn8fqx +UpFhe/pnfR9fLAHDZmozyez893HTPHEEmEl6dLCt/+zIt/V4AmIGOxvY/j+x ++Fpt "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12396,104 +13861,106 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1Xk4VVsfB3CEWyFTCJmH6yiRKYrWz1BK5iRzhnO2yBRyiUhF1zVP0cAx +NrjGEhnyKsLlGIpSoginMpxzaNAk7zp/7Gc/n2c/+7u/e631rKXgE+JA4eLg +4FjCF/t+enDXn03Dg/tdqws/L5ez0H5GuZ6PeRW6k+PCZHuKqp+rbN6GaKVp +b9m2Iw/w8us8QQuvDZ+wXR8V38ljTkMs8CxmO7l7W0d85VOUMvojlO3m4dNF +v7Sfo93XBPewPT/eFxvd+hJJXbmxwsKWmlNy+2o2gUwHSsrYPsKMNQynvUUB +B+Qs2W7/Nc8XVTmNJHnE6EzsFwkSMY3BM+iG6MW/2Gbwms9/1p5DP6L8fzOw +eVNDXXRW6Uhgf+9ZtmWFC3tPt35ARCB1cQnbRvrrTYbZIlLXbKpbxCaKFcU1 +NjJQ/vgqF9vxKraJp2hM5CJTb7mA/VJidHdE5TKypKa1fMQmuwb456SuoIqf +de8+YLNucJTcDf6EiknWHGxvVNQQWtb+goyMWdJ07Fxyp4WQ2FekfnBVcg5b +/pZLvObqV2Tp95fALLbBziRGUOs3ZGQyMzqNfVL/LW3e7Bcav3VqbgL7c9QZ +7s2qa0jnkXHGa+zzrXxGpI2/0f/Kk3eNYxeAwb9+tHW0ujvDeozdr6LXPKyS +Ex6THQWeYld250wlSHOBRN+qzxC773vP2KxULrgzIVYzgB2r/uVeXfAGyEt+ +rNzH7luroMTU5gHOmumcx9jjw4vtv8t4wFbJM6+D3X+lyXWLGC8wXZxS27Gr +dG2yNVZ54X5Zi2sLdlfzWc7A1o0QynE8uh77S+fI2w9m/PBJkru9EFvEil8o +pp0f0tvaJ69ha42ag4ChALST5ZfzsQNm7xfv3rUF7HterWRhh3LRtIz5hUBN +aqdPIvacYs1y4ldhsMpLZfmzx4fo2zSkIwLbFsYsCWyuf+kK206LQHr3YIEP +u6+OnEPlggj4H+0QdMN2Ncu8OzglCm7vWv2PYA/5hoVL9ItBtr73IAn7za30 +FK+N4uBBSvNVwV5cqCy7c0AcWjQDFuWxN0fMjOzrEIdL6wavJLDNLznqet2X +AJNiXTke7JZy/S+3qZIgwrnuPlnGQuVzPyL3RshAG4lVegn70LHLb8KrZUD8 +QtDWeOzFLtGD1XQZqJY2ionG1i3fKSbvIgtN7YNqwdhdPp73ePbLwa+K5xuO +Y68wp/76cFEepEv6m1WxRYPMG+5ZK0KYdIZaeykL0cs3n7QLUISh7yIHmrAf +TAxLLyUpgsPaV6c6bHcrj4uqHYqgmjjtWopdviPS4aq2Evwwtp1JxNadv8WK +k1CGq9t4Vi2xHf34NCynVSCX9khjoISFUOQx7eNrKtC/r17+CbZ6InUPWVIV +6LSYTQ+xOcp0TOPsVUHyZnlbFXb1G7fjdx+pwnzesTsp2LxOVQlSpX9Cwkjz +DQvsB+bWL+Z9SJDTMsFsKmahsqP5r1fjSKDs7kGtwU73mZ7ivk6CiI0D5hXY +5PNnFmRHSEDeFXs6G1u4rZDjqJk65GfvdAjEDtBhqLcq7YA/doTslsWWVsyI +T5ndCbYOgYFnqSzU9s9n0ncuDXAK9fsSjO3+yWWUUNCAvdsrwnyxi7qUSaae +GrD718JhK2xFv5Zn38Y0oIXUeUoGW71qToXo3wXmzyLOPSxiIRlpWULeRQuS +mNxTnwtZaGdFBP9PpA2skbVJuMFCPuSLXzRstIH27tYZHewCpew3Xu7aIFjp +uEEVe0NpbV13lDaI2LRw8GGPF807ZtdrQ3Py04uj1/F+WuBVSFLSgVhRwSoK +Nj3Fapczry5MjMylnL/GQiVhynb3aXpgs2zVVVDAQsORaM+lCkOYqXrSu5LD +Qgqez208Ao1BU27kbWM6C1HWG2tkogHCyzS7TJJZSGLhwR8SPqawFN17/uEF +ForQMZrIVjeHjfVFl+Ricf+lX72i8wcg9X2ApfoZPJ+m4X9QhyzAbU9qglwQ +Xj+fAx5V5R6G0Ri/CS0KC30z2TbQFX8E7ggzktTdWWiSY8PytLc1CC4XD887 +sFDw9pDMBCVbSO2gNPw8zEI1/r0deYl20L49SJIDWOjsJ8nVHf72EKTz/VmY +Pt4/LA869ZxwgJ9FmQMzO1jI0C3LZM7+KNyMsld0V2ChZ5KFAV06jlCscX4o +WAKfJzcvtt1WOwbxZztOXOPH62tK3cpGwAkunYu8GsWFz4NRll/kkhOYpao1 +ySwzkU5eVlXZ1HEYoUrxPXzNRIXcn3ZldzpDd2Zj9VoPEzWaaI4nNrvA7A/G +wbm7TFSw5x/hX5WuIL47/mduERMNva5I0kl1g92drxSFUpnovvUN5dDz7pDy +NM0hKYqJloOOcgSTPeC7kdO9SYKJvhwknWSYecKE0CI/yYmJbi+9+haufwJy +Qwa7us2ZyLmkwteD3wtosy0ydnpMdO/ukRMbLnvB34N5mSEqTGQo/ex78ncv +UHgix4yTYCKlKb/xp/7eENij+ahhMxPN8p2yvTHjDQEPZaYm1hhoON3G1+KY +D7zqYLm/W2Gg3Cgq35lhH0h1sX0t/4GB2trXv/se9gX3W97Lj98wkKA7XNZp +8YWBt8lXZccYSH5rz9D2Nl84V3diZP0FA2nRrLfxtvvCg/BchWlsByO3Oy8f ++YI4r+LPMuzc7ZH95/7zhbGk9VJ1bKnJfwV7X/pCrLV9z77nDKTsKVHgvuoL +/zVEBweNMJChF+N2oi4ZNt/fnrtlmIFuXmWF2+iTIbpQ/ubXIQbaOrKyX8KA +DGqTJn1vsBkHVkdv7yOD/f7pQ7XY5Ts4OGmmZDjneF/OHnvLqrCLiD0ZJmXb +dQsGGWg2TW8TNYgMmlIx3LoDDGTfs2fUL4QMSxfC3GWx2zn2UrVOk4F1tKp7 +I/bV8P16jyPIkJm18HSSxkA2LhbeczFkCP/R2Pk3drOyS/OOf8iQ4xUm9q6f +gdJbY/0f3CRDD204qrSPgYK08w2jbpNB73RgbAa21Z36TQaVZPgrpiErFntz +Pv1OUzUZFE9bLzthJ4bZzTc2kOHT+bZL/NixJOVT9x+TgXTEZe3sfwwUkN8f +ePcNGfoodfsovQx0eAvdKGyKDIdjsyIdsdUSOQS035EhaWBvpxk2PUyvun6O +DOleH7MUsb1tqEt1i2SgjtG4p3sYyJknPLj2BxlMiz1NvLEtwqVCq8Qp8MuT +Xzqkm4EeU5Mss7dRALyEj53ANqKtKEdJUeBGpkK5LbaWSv8rM1kKPNjql6CF +LTkWY/ZahQJFSVSDT08YaGHvpPhmPQow3v99LRY7g6v4od9RCtCvbNWmduH/ +1+QvsD5GgVNxKoLZ2JfcosJ0jlPA7rsbZyJ2VIPdn+uuFHhZZqRyCtub4My6 +4kMBJ2I6wABbp8+H/OQ0BXaEujBedDLQWJYKn1ImBUy0+saVsGuQwMkPWRRw +0egTksK+tPS5qzqHAqyigy5C2NqHu+IM8imQTWtUWHuM54/Dd8W6iAJ5JQmZ +Y9gHQ4pfRVVRwPSaGj0DW0bmb/39NRQYe/6n+WXsz30hORvqKODwrLIhDrtU +FVmn36NA/iPjgSDstcnJjrIWCjxXK5uwwm6wkr492EsB9fzuiC3YKT+4eHL7 +KLB9WfsnL7bP7XlvFxoFvAJJueuPGEiIu0V6dogC9qhxjYUd2Oqc8f0FBdr8 +XWpHsZXUr0Qqz1Fg/wnRNCr2j7FzIx/pFOBaOWJ0FXs4kaJV+4EC+lJbf2dj +x03rzhsuUsD9pGNzEvZ4wYiH7ScKrIYUbgnBzv5D+MBZTgLiBrJ0zbDbVibd +IjYQkBdYEmGM/X6yMiyYh4AU2lj/HmyjBvNin00ESOi1/G8nNt0r6qelMAEy +2088lGD3tzogckCUAEnTmkYR7H17REhIjAC3QdUeAexMgSonHUkCvtjlaXCz +n7e8rZdWIEBMO1RopYOBiIqqXjElAi72iHQuYWdmRr8VVCEgg3869SM2nRAV +4CYRYFzLSUyzn4tanFzUIoB5yHXXM+yW36LxdG0CuJy9rw1iz32cypvSJcCI ++4pMP/bejrOdowYEqAol+3dhzwbWyD4EAkpvXpd4gL3FOUavyRR/31XM+D62 +odkhq3pzAq4Zt0ffxU6XfBddcYgA6v4ig2rsB9y1mVRLAvpqn7dUYs8wY25d +tSIg/KuR421sg26x52l2BBy5fp1Whu1T/27hsgMBpiY5/5Zgp92o5brgiMfT +qrWEiv0u7LBWpDMBNKHCkevYAp7iFqGuBLziPS54jZ13eMYjwJ2AwHETnwL2 ++3LnUjy9CNC7WGmdx+6z2bLU2YcA+WQ1eg4774t4swOZgE2DY3nZ7LzpmSEr +ggBtvwfuWew8Wh394EkCbvn17c1k92s6twYBBHhMC2hlsPNLLbfuC8T/N3vB +KJ2dnyaxQy8Yfy+B5JXGzo+aNdEMJUCgi/N6KjY/ud6ZFEZAQjPfUgr2Htu4 +EKUIAuIDLZzY9tl7JEkmkgALesOLf7BTVbYVSkQRULbLMZjtRqG5e8Jn8fqx +UpFhe/pnfR9fLAHDZmozyez893HTPHEEmEl6dLCt/+zIt/V4AmIGOxvY/j+x ++Fpt "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.961003163391481, + 1.0402698092755913`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.9610031633914831}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -12505,21 +13972,20 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "PlotRange" -> {{0, 180}, {0.961003163391481, 1.0402698092755913`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9610031633914831}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12533,102 +13999,104 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1Xk4VVsfB3CEWyFTCJmH6yiRKYrWz1BK5iRzhnO2yBRyiUhF1zVP0cAx +NrjGEhnyKsLlGIpSoginMpxzaNAk7zp/7Gc/n2c/+7u/e631rKXgE+JA4eLg +4FjCF/t+enDXn03Dg/tdqws/L5ez0H5GuZ6PeRW6k+PCZHuKqp+rbN6GaKVp +b9m2Iw/w8us8QQuvDZ+wXR8V38ljTkMs8CxmO7l7W0d85VOUMvojlO3m4dNF +v7Sfo93XBPewPT/eFxvd+hJJXbmxwsKWmlNy+2o2gUwHSsrYPsKMNQynvUUB +B+Qs2W7/Nc8XVTmNJHnE6EzsFwkSMY3BM+iG6MW/2Gbwms9/1p5DP6L8fzOw +eVNDXXRW6Uhgf+9ZtmWFC3tPt35ARCB1cQnbRvrrTYbZIlLXbKpbxCaKFcU1 +NjJQ/vgqF9vxKraJp2hM5CJTb7mA/VJidHdE5TKypKa1fMQmuwb456SuoIqf +de8+YLNucJTcDf6EiknWHGxvVNQQWtb+goyMWdJ07Fxyp4WQ2FekfnBVcg5b +/pZLvObqV2Tp95fALLbBziRGUOs3ZGQyMzqNfVL/LW3e7Bcav3VqbgL7c9QZ +7s2qa0jnkXHGa+zzrXxGpI2/0f/Kk3eNYxeAwb9+tHW0ujvDeozdr6LXPKyS +Ex6THQWeYld250wlSHOBRN+qzxC773vP2KxULrgzIVYzgB2r/uVeXfAGyEt+ +rNzH7luroMTU5gHOmumcx9jjw4vtv8t4wFbJM6+D3X+lyXWLGC8wXZxS27Gr +dG2yNVZ54X5Zi2sLdlfzWc7A1o0QynE8uh77S+fI2w9m/PBJkru9EFvEil8o +pp0f0tvaJ69ha42ag4ChALST5ZfzsQNm7xfv3rUF7HterWRhh3LRtIz5hUBN +aqdPIvacYs1y4ldhsMpLZfmzx4fo2zSkIwLbFsYsCWyuf+kK206LQHr3YIEP +u6+OnEPlggj4H+0QdMN2Ncu8OzglCm7vWv2PYA/5hoVL9ItBtr73IAn7za30 +FK+N4uBBSvNVwV5cqCy7c0AcWjQDFuWxN0fMjOzrEIdL6wavJLDNLznqet2X +AJNiXTke7JZy/S+3qZIgwrnuPlnGQuVzPyL3RshAG4lVegn70LHLb8KrZUD8 +QtDWeOzFLtGD1XQZqJY2ionG1i3fKSbvIgtN7YNqwdhdPp73ePbLwa+K5xuO +Y68wp/76cFEepEv6m1WxRYPMG+5ZK0KYdIZaeykL0cs3n7QLUISh7yIHmrAf +TAxLLyUpgsPaV6c6bHcrj4uqHYqgmjjtWopdviPS4aq2Evwwtp1JxNadv8WK +k1CGq9t4Vi2xHf34NCynVSCX9khjoISFUOQx7eNrKtC/r17+CbZ6InUPWVIV +6LSYTQ+xOcp0TOPsVUHyZnlbFXb1G7fjdx+pwnzesTsp2LxOVQlSpX9Cwkjz +DQvsB+bWL+Z9SJDTMsFsKmahsqP5r1fjSKDs7kGtwU73mZ7ivk6CiI0D5hXY +5PNnFmRHSEDeFXs6G1u4rZDjqJk65GfvdAjEDtBhqLcq7YA/doTslsWWVsyI +T5ndCbYOgYFnqSzU9s9n0ncuDXAK9fsSjO3+yWWUUNCAvdsrwnyxi7qUSaae +GrD718JhK2xFv5Zn38Y0oIXUeUoGW71qToXo3wXmzyLOPSxiIRlpWULeRQuS +mNxTnwtZaGdFBP9PpA2skbVJuMFCPuSLXzRstIH27tYZHewCpew3Xu7aIFjp +uEEVe0NpbV13lDaI2LRw8GGPF807ZtdrQ3Py04uj1/F+WuBVSFLSgVhRwSoK +Nj3Fapczry5MjMylnL/GQiVhynb3aXpgs2zVVVDAQsORaM+lCkOYqXrSu5LD +Qgqez208Ao1BU27kbWM6C1HWG2tkogHCyzS7TJJZSGLhwR8SPqawFN17/uEF +ForQMZrIVjeHjfVFl+Ricf+lX72i8wcg9X2ApfoZPJ+m4X9QhyzAbU9qglwQ +Xj+fAx5V5R6G0Ri/CS0KC30z2TbQFX8E7ggzktTdWWiSY8PytLc1CC4XD887 +sFDw9pDMBCVbSO2gNPw8zEI1/r0deYl20L49SJIDWOjsJ8nVHf72EKTz/VmY +Pt4/LA869ZxwgJ9FmQMzO1jI0C3LZM7+KNyMsld0V2ChZ5KFAV06jlCscX4o +WAKfJzcvtt1WOwbxZztOXOPH62tK3cpGwAkunYu8GsWFz4NRll/kkhOYpao1 +ySwzkU5eVlXZ1HEYoUrxPXzNRIXcn3ZldzpDd2Zj9VoPEzWaaI4nNrvA7A/G +wbm7TFSw5x/hX5WuIL47/mduERMNva5I0kl1g92drxSFUpnovvUN5dDz7pDy +NM0hKYqJloOOcgSTPeC7kdO9SYKJvhwknWSYecKE0CI/yYmJbi+9+haufwJy +Qwa7us2ZyLmkwteD3wtosy0ydnpMdO/ukRMbLnvB34N5mSEqTGQo/ex78ncv +UHgix4yTYCKlKb/xp/7eENij+ahhMxPN8p2yvTHjDQEPZaYm1hhoON3G1+KY +D7zqYLm/W2Gg3Cgq35lhH0h1sX0t/4GB2trXv/se9gX3W97Lj98wkKA7XNZp +8YWBt8lXZccYSH5rz9D2Nl84V3diZP0FA2nRrLfxtvvCg/BchWlsByO3Oy8f ++YI4r+LPMuzc7ZH95/7zhbGk9VJ1bKnJfwV7X/pCrLV9z77nDKTsKVHgvuoL +/zVEBweNMJChF+N2oi4ZNt/fnrtlmIFuXmWF2+iTIbpQ/ubXIQbaOrKyX8KA +DGqTJn1vsBkHVkdv7yOD/f7pQ7XY5Ts4OGmmZDjneF/OHnvLqrCLiD0ZJmXb +dQsGGWg2TW8TNYgMmlIx3LoDDGTfs2fUL4QMSxfC3GWx2zn2UrVOk4F1tKp7 +I/bV8P16jyPIkJm18HSSxkA2LhbeczFkCP/R2Pk3drOyS/OOf8iQ4xUm9q6f +gdJbY/0f3CRDD204qrSPgYK08w2jbpNB73RgbAa21Z36TQaVZPgrpiErFntz +Pv1OUzUZFE9bLzthJ4bZzTc2kOHT+bZL/NixJOVT9x+TgXTEZe3sfwwUkN8f +ePcNGfoodfsovQx0eAvdKGyKDIdjsyIdsdUSOQS035EhaWBvpxk2PUyvun6O +DOleH7MUsb1tqEt1i2SgjtG4p3sYyJknPLj2BxlMiz1NvLEtwqVCq8Qp8MuT +Xzqkm4EeU5Mss7dRALyEj53ANqKtKEdJUeBGpkK5LbaWSv8rM1kKPNjql6CF +LTkWY/ZahQJFSVSDT08YaGHvpPhmPQow3v99LRY7g6v4od9RCtCvbNWmduH/ +1+QvsD5GgVNxKoLZ2JfcosJ0jlPA7rsbZyJ2VIPdn+uuFHhZZqRyCtub4My6 +4kMBJ2I6wABbp8+H/OQ0BXaEujBedDLQWJYKn1ImBUy0+saVsGuQwMkPWRRw +0egTksK+tPS5qzqHAqyigy5C2NqHu+IM8imQTWtUWHuM54/Dd8W6iAJ5JQmZ +Y9gHQ4pfRVVRwPSaGj0DW0bmb/39NRQYe/6n+WXsz30hORvqKODwrLIhDrtU +FVmn36NA/iPjgSDstcnJjrIWCjxXK5uwwm6wkr492EsB9fzuiC3YKT+4eHL7 +KLB9WfsnL7bP7XlvFxoFvAJJueuPGEiIu0V6dogC9qhxjYUd2Oqc8f0FBdr8 +XWpHsZXUr0Qqz1Fg/wnRNCr2j7FzIx/pFOBaOWJ0FXs4kaJV+4EC+lJbf2dj +x03rzhsuUsD9pGNzEvZ4wYiH7ScKrIYUbgnBzv5D+MBZTgLiBrJ0zbDbVibd +IjYQkBdYEmGM/X6yMiyYh4AU2lj/HmyjBvNin00ESOi1/G8nNt0r6qelMAEy +2088lGD3tzogckCUAEnTmkYR7H17REhIjAC3QdUeAexMgSonHUkCvtjlaXCz +n7e8rZdWIEBMO1RopYOBiIqqXjElAi72iHQuYWdmRr8VVCEgg3869SM2nRAV +4CYRYFzLSUyzn4tanFzUIoB5yHXXM+yW36LxdG0CuJy9rw1iz32cypvSJcCI ++4pMP/bejrOdowYEqAol+3dhzwbWyD4EAkpvXpd4gL3FOUavyRR/31XM+D62 +odkhq3pzAq4Zt0ffxU6XfBddcYgA6v4ig2rsB9y1mVRLAvpqn7dUYs8wY25d +tSIg/KuR421sg26x52l2BBy5fp1Whu1T/27hsgMBpiY5/5Zgp92o5brgiMfT +qrWEiv0u7LBWpDMBNKHCkevYAp7iFqGuBLziPS54jZ13eMYjwJ2AwHETnwL2 ++3LnUjy9CNC7WGmdx+6z2bLU2YcA+WQ1eg4774t4swOZgE2DY3nZ7LzpmSEr +ggBtvwfuWew8Wh394EkCbvn17c1k92s6twYBBHhMC2hlsPNLLbfuC8T/N3vB +KJ2dnyaxQy8Yfy+B5JXGzo+aNdEMJUCgi/N6KjY/ud6ZFEZAQjPfUgr2Htu4 +EKUIAuIDLZzY9tl7JEkmkgALesOLf7BTVbYVSkQRULbLMZjtRqG5e8Jn8fqx +UpFhe/pnfR9fLAHDZmozyez893HTPHEEmEl6dLCt/+zIt/V4AmIGOxvY/j+x ++Fpt "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.961003163391481, 1.0402698092755913`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.9610031633914831}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -12638,7 +14106,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6007907022525477}, + AxesOrigin->{0, 0.9610031633914831}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -12666,7 +14135,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.961003163391481, 1.0402698092755913`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -12674,9 +14144,9 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913267728125134`*^9}, + CellChangeTimes->{3.9913267728125134`*^9, 3.993934134127207*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] + "Out[149]=",ExpressionUUID->"c79f0671-ba93-466b-ae0a-f3a5242ab6c2"] }, Open ]], Cell[CellGroupData[{ @@ -12739,154 +14209,158 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799933259697*^9, - 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ -c179c9adcae7"], + CellChangeTimes->{{3.991799933259697*^9, 3.9917999365172615`*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ -\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 81, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773051552*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.636820716555234`*^-282\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 69, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.993934134199339*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +In[150]:=",ExpressionUUID->"9cf51190-ce7d-4baa-abaa-74e307a7f05e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 82, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730605392`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.281530756810365`*^-295\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 70, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.993934134202613*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +In[150]:=",ExpressionUUID->"43e9eb0f-a6b0-4b47-ac07-a433dce9d49f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 138, 83, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730685368`*^9}, + "\"\\!\\(\\*SuperscriptBox[\\\"2.0118521102993042`*^-7\\\", \\\"46\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 150, 71, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9939341342054863`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +In[150]:=",ExpressionUUID->"80f50f78-4ca3-42b4-b33e-aa38cce9eb00"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773076536*^9}, +during this calculation.\"", 2, 150, 72, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9939341342078657`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +In[150]:=",ExpressionUUID->"89b0a6f6-f52f-4f36-9a51-70270bf30bcd"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0Vd8XAHClQUQyZMj03n3vIUOGIvLaO00ozZQGkR7pGyLJVIaMoUgR +ZcgU4V1UigZjAwmVREI0T4Yy9JT8zu/+c9dn3bXu3fuss/fZl7HfYytvuhC5 +pgkJ/f8+1tNQz4rJWTH8QqePUjFb0ZYu77eyIxR0x57P/NKoACjbsl++4xz8 +jhs/wW/UBJ/N114Jd2RBGuuSfnSjCcwfkDsneFUGkQ2DrraNltB7d6PHyKta +qJ6zJ/Rugx2sZX3tHn71HII23c5we+QKglfGF4Ze9cNjB2F3vO8Hdauu5jzL ++gVT3ia3JvJPg1Jvxcf92pOQu45/8cvlRJA5vO/a7FXCGNby4YbM2RQ4p7/2 +zkYbEaxYMfNAZFkGdF7Uqx6WFMcneiFt2tFZEJMT1DJdYT4K9VaeBZNckDv/ +LjoxTRoVg/4Trrt0FSK3W654PiaLystkfqslFcBRkyv7GkLl0THWdY6mVyFY +ZUqMrI+Vx2iGwCPCtxCYswOjmi/I45HgiIjek4XQ2mZb+iJfHvv5ZTVhMYWg +e2SucE+zPEZ+Mna6lFMIn/OO5/1UVMC44o4fv18Wwh6ZjT8WXlfAIS0VQ6+l +RbB6cMLf/Z0imiq0llp+KgI/i/OLar4rYvfVe2HHvhcB/4rOa+kxRTzz4rZy +2nARyG93MKkQWYhjdXJXev8UwffbD8aFdRfi2vken/UliyExNN47xXchju+O +2y62rBj6ZTnu9eJKqParkY4PKwY5jyplOTklzFfaP7Ekuhg2PN751FVNCc8o +Dc96GVcM5f4x2vMMlTBF7hZPJLkYTvcOfbXbqYQKIvbLzAqKwaDgjstglhI+ +mW+o2dFUDCFmWxwVlynjfa9Gdp8kHyzs038amytjqMLAZ1tZPkgEfztls0EZ +h808ix8p8OFyXXhevIMyPnj40TSVyYfbVpXfZkUr49RcyUPCS/gwtJPy+dWp +jF75zfofbfhgf2z0dFOACk7vfHZk4AIf2MnmSl/DVTBiwj6zPoVP8j9bPDte +BVW/2LdfSOOD/1/NVvMcFQzbVmarmcuHC6fsZSuaVFCvoJmWucGHpoRHGbnK +qujWbD9tspUPpvyUGyerVNH4St+WBbNpWP2qeXLgsSomxkX8WCBKw0ahGev2 +PVfFwvjNXGlxGpy2unfCB1WU0M+d+CdFw9oARlDwTDVccbNqNEuFhiOqY9kr +tdRwUnazmfJSGupdMn7U+ahhlxOntNueBsu/JlKBAWpoMXInwsaRhub4NqMl +wWooad2s1OBEQ2fFnOCcaDU8ds8gNvsgDQNi3lLhl9VwdgUdxvaiQb7Ewnht +rRr2NTDW2IfRcPj3cPBjcQYWJWX55uXSYOrpvOCjFAMzP089r75Kg8jX14XC +8gzc8cLDvL2AhtyuuvYVTAZOCRycfhbT0HP/gvZNIwZee3K/ZvAmDZvCTTqu +7GOgqKlo0lQ9DSr/it2qDjAQkmNSnjyk4bsPU7jblYFShZL3zz2mIeqgmK68 +NwNPNax3k2qioXp996kzUQycZ93q/+o5DQZSIYsDShl4qWCZiF8vDUIxo/UX +yxmoWtQcOP6W5C98aFf5HQbq34xQ9eyn4b/RreHDDxjYWdP00+YDDTkdrC6X +1wzUqJr6/OErDV5bUo6E9zIwYeD7R+53GrBRfFb2ewbyPQQKCT9o6L4zptcz +wMA7ATMozSEaFmQ8jtguzEQY0nmtOkrDezmukpcIEyOn2aVuGaOhLL609Kw4 +E1MTPiedHCf5h6a+aZRj4obX3y0aBSQ/3mGDldpMDNz79JrGPxoEWpI9OjZM +vLa4RXmacAmMpSmGGO5i4rcz82d6EY/MY7NM9jHx5aYZ+W+JB36ZHFrtysQn +P7qZt2aUQP8dp7FdJ5jI/VsqsJhVAr067ikOoUxs2Fz/5CrxmwxfM+dIJmpU +2+2dMbsE2k/FhXomMDErSaimnLhx/S2JqFwmzmn/kyw0pwQe3aspjbvGxPNW +fUetiesXN21PpJm4+PZy6YvE96X7UtMrmCiI3ZLOES2BO+HfuDn3mSilPS/m +EPHt8dG3BXUkP8O13CLisi5R9ZtPmRjFWDSiIVYCtLVsY+VzJlJzugVOxEVV +qm7Vr5joskv20WXivOwl15/0MTGEp145e24JZMuC7bOPJL63on0mxJmRloL2 +b0wUWRP5zJU49T976B9lYsphp/l1xMndB/s/TTBxWV6r43fi85uOhv+YYmLr +reET0uIlkFBzQuPXDAqjTm10XkZ8xjDqye85FHY6eCzcTRyTe879nwSFq5W6 +0wKIo+TS5s+QofDfmNpACnHon9Id81Qo5NhsnWghDnK7OyFDUTiesf3WJ+LA +3odpihoUWl+0XT1J7LflGarpkO/VvrsiKVECPnVd79gGFAotiGplEB9d+jFC +y5jCvL8trXrER64OaeqbUdi01SKbS+yu8KfJaCWFNc4nLSyI/4uZecRsLYWp +v6eqNxMfnJwnbb6exG+yW3wHsbOHYvm6zRSqPFXR3U3s1Meys7ah8P2DTmov +scO2xX+37qJQPX/h4B7ivQ9MMnbuo1DtoHf8LuJdxqvN7Q9QOObqLWJLvKNg +4wcnVwoPhRTt2ES8faFdlKs7hWeHi0+uJd4S56TlcZRC/8OiJ5cTb5xya/b2 +Jeshtd1Wl3i9p6+n/wkKjb2VRVSJLd6FygSHUhgSJ0gUJ15jE3crPJLCTw0B +EwKyXuaPknfFxFL4d9oys/fEYJI1GZ9AoV9ArV0TsVlhUWZSEoWjn+ltZcRd +aoUZay5R2PEtmXGR2D+pIH0kg8K3oCcTSHwrJO/y1gIKt6btdF1BbDuec2ka +n0LFF2+alIhHDmenlpRRuK9MYCsg+8VgZ+ZFibsUHsUvb4uInz1NT75XTaFk +VlnfKeIjq9KSDj+g0FZqupgdMV839XxjM4Wao1TnJNm/mjPPx0f0UdguvNBT +n/ix/7mzSz9S6PGlok5A6sF5KP7M+68Unkp6bF5NnNMVF2s+QmG5YPHjdcRq +ZZFR/2ax0O6R1D8k9ValHhFZLMZCiasKtRMiJWCfFhaxR5KFtxPiysuIL0WF +hFUqsNCsp9pAmXjBvoBgH20WnrYOi3hD6v9mm18QW5+Fos5qbyKJt1v5nmxb +ykK1jybO+sTnlh4LNAAWqvf8VAiaWQLicz18B7awsEvnh/hM0l+KQtyOp9my +MGm8XzaL9B+r8f98Nuxmobu2ny2XOKr/oPe1Ayx81ZB2yn16Ccyo2H/E+TgL +vS18L98RIvWr6+ghG8jCG29Vfa2IzXP2udcHk/cbmTLoKRqCzu45zDzNwpT6 +IyMdkzRM8GwP9lxm4XLZ2hPTJ2gYlrJysK1l4U/x4rn8YRo6DjNbDz1iYdWR +ua8CSD+ufjgBQU0srKd3xK8ZpCHev1A1v508Z1q9bCL9XK9/bq/gKwulxoZb +rn2iwb20ZW+aNBtLv3Af5L6hwVYs/2mpPBvDe0vVDbtoWMEL5j5UZqNp24Oz +dztpEFfQVx5UZ6OlXqJPXTsNRcHn3qAZG6dPbHp0pZWGr5tsdr8/wMa7QZ/u +XKmj4XmBzpPfrmz0e/mOM1RDQ6XwrOXiHmzsT3/HN62mIfpWuaKRHxvzt3Yv +rL9Lg4aq/OvIODZyV/+XmE/OS5eB1zu1ytnYtzfeoiKPnC+xDrZeszkIL6cd +nBFB4v+qzdSby8F4h1XH/52iYXyd4McPSQ4Oz5+yHg2hQVT4XLirIgdFA8ds +O0+Q/P3qbjjocJDRfnzC/xgNJ3gc6U3bOMhLKsllHyDn2YrvLVoZHPR8YZ7A +ABoyL92+9CWbg+8dB8VumdGgKQhzuZrPwW82vOOWpjSY3VCeYpZxMLNgiM0j +84jTok26ig84eOOoxyxfLRpKFpTFinzjoHdy+ORcOTKfDB63/GCkjtYNvgqT +3/igpK8SIWKmjje4hj7jn/kw4FVfq7VSHYu789wGPvDh/Jikmdd6dcz/lGn4 +vJcPPZMFulP71NEt3XKD5ws+eM19I60QrY6bLwgvnVfJh1RN7NnQpY6TlwOV +2sPI/OYkcvRGkAbuuveX+kXmx4H01feqwjSwSjX7maE4HwY7g2c/idbA6ycO +5XnO4cPPTYJLfYkaqPVcr+n9ND6ML/9aL5Gvgdbvjy8r+FkM02WaFri2aiDv +0DHpohfFoFB/tlKZoYlch/6O3MRi8v8hNz2yVhPrC89YN4oVg9RTzpmSwUWY +dX2bsPRoIShF0ZuNjLRxIeuQku3Va3BRy0RS2kUHd46nZRrtLIBGxZVLfyXo +4vXsYNtFU1fBVKk2fnH7YmzrPe+4KjAPJISzvB1D9TBIU9YtaW4uqISomtlx +9FHs4a4NKwKzYQ57T/nWR/o43hLTYjR2BXS5CvTxvQboffHJu5H4TPDqkaqz +EjLEgp/LORF66TD4K9bG8qIh6jS8bBGKuQTrFj9MtdRZgqXotRTnpcD9X8v/ +jDcvwaB7EncEwUngrm3w+hlvKZ52nNUdZn4euAMH2uzmGOEHaZfOP38TYA1L +3lo8ywjFLlisKZgZDxrBp31rjY3xYkBuqmNALCzimVSxXxuj+5fbyc7DUcC7 +fzDshucy1G17KAFD4VCV2XZgWNYEUzxLHdWmQmEkf2p88S0T3LNz+jI712Bw +YhfOSbU2RdvKX9f+hgbC8KJEo7IhU9x+YJjTvtsXbuf86RuNWo4Ntltj6we9 +YddqCpermOH28rgXgQJPWOgWWaFbbYaPoy2b/ba5g6zo4VLrHVyU6Mlj59e5 +Qs6qE/5Ddlzk9T5VLilxBYMTZ1Yl7uFijY3ScF2aK2wcKnnZ4chFoVVdUvN8 +XSGifVTgdJiL+SGteQY6rvA7K8jcP4SL13VrDK+lHITXyxNf5BVy0dV/lfGS +ABc4eCznsiWffG/Dt44iVxcY49/kfS/hYrrculy9nS4gxewY1y/nYsPf3fl2 +S11gvYiy0r1qLj6bJ1qtN+QMd9vyDrx4yUX6jJj/gIszWEnc1vHp4KKhpQFX +boczdKxrGJPv4mLQZHab1VpnGKn8FmX/lotTBROHnrOcQeeKXvGXr1zcoHE/ +Y38/D+6+XukT+4OLxrWBHn3PeGAlsw0WD3HR723T50M1PHCOPPbMe5SLG7u6 +a9MyeTBSHZEq95vEoyqksC6eB6ETyU6VE1zkVPoI/wnigeSSAu29k1y0Kx0N +rPDgQbpb5ejUFBe37TcIDt3Hg/8BP35KRA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12900,113 +14374,114 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV13k0Vd8XAHClQUQyZMj03n3vIUOGIvLaO00ozZQGkR7pGyLJVIaMoUgR +ZcgU4V1UigZjAwmVREI0T4Yy9JT8zu/+c9dn3bXu3fuss/fZl7HfYytvuhC5 +pgkJ/f8+1tNQz4rJWTH8QqePUjFb0ZYu77eyIxR0x57P/NKoACjbsl++4xz8 +jhs/wW/UBJ/N114Jd2RBGuuSfnSjCcwfkDsneFUGkQ2DrraNltB7d6PHyKta +qJ6zJ/Rugx2sZX3tHn71HII23c5we+QKglfGF4Ze9cNjB2F3vO8Hdauu5jzL ++gVT3ia3JvJPg1Jvxcf92pOQu45/8cvlRJA5vO/a7FXCGNby4YbM2RQ4p7/2 +zkYbEaxYMfNAZFkGdF7Uqx6WFMcneiFt2tFZEJMT1DJdYT4K9VaeBZNckDv/ +LjoxTRoVg/4Trrt0FSK3W654PiaLystkfqslFcBRkyv7GkLl0THWdY6mVyFY +ZUqMrI+Vx2iGwCPCtxCYswOjmi/I45HgiIjek4XQ2mZb+iJfHvv5ZTVhMYWg +e2SucE+zPEZ+Mna6lFMIn/OO5/1UVMC44o4fv18Wwh6ZjT8WXlfAIS0VQ6+l +RbB6cMLf/Z0imiq0llp+KgI/i/OLar4rYvfVe2HHvhcB/4rOa+kxRTzz4rZy +2nARyG93MKkQWYhjdXJXev8UwffbD8aFdRfi2vken/UliyExNN47xXchju+O +2y62rBj6ZTnu9eJKqParkY4PKwY5jyplOTklzFfaP7Ekuhg2PN751FVNCc8o +Dc96GVcM5f4x2vMMlTBF7hZPJLkYTvcOfbXbqYQKIvbLzAqKwaDgjstglhI+ +mW+o2dFUDCFmWxwVlynjfa9Gdp8kHyzs038amytjqMLAZ1tZPkgEfztls0EZ +h808ix8p8OFyXXhevIMyPnj40TSVyYfbVpXfZkUr49RcyUPCS/gwtJPy+dWp +jF75zfofbfhgf2z0dFOACk7vfHZk4AIf2MnmSl/DVTBiwj6zPoVP8j9bPDte +BVW/2LdfSOOD/1/NVvMcFQzbVmarmcuHC6fsZSuaVFCvoJmWucGHpoRHGbnK +qujWbD9tspUPpvyUGyerVNH4St+WBbNpWP2qeXLgsSomxkX8WCBKw0ahGev2 +PVfFwvjNXGlxGpy2unfCB1WU0M+d+CdFw9oARlDwTDVccbNqNEuFhiOqY9kr +tdRwUnazmfJSGupdMn7U+ahhlxOntNueBsu/JlKBAWpoMXInwsaRhub4NqMl +wWooad2s1OBEQ2fFnOCcaDU8ds8gNvsgDQNi3lLhl9VwdgUdxvaiQb7Ewnht +rRr2NTDW2IfRcPj3cPBjcQYWJWX55uXSYOrpvOCjFAMzP089r75Kg8jX14XC +8gzc8cLDvL2AhtyuuvYVTAZOCRycfhbT0HP/gvZNIwZee3K/ZvAmDZvCTTqu +7GOgqKlo0lQ9DSr/it2qDjAQkmNSnjyk4bsPU7jblYFShZL3zz2mIeqgmK68 +NwNPNax3k2qioXp996kzUQycZ93q/+o5DQZSIYsDShl4qWCZiF8vDUIxo/UX +yxmoWtQcOP6W5C98aFf5HQbq34xQ9eyn4b/RreHDDxjYWdP00+YDDTkdrC6X +1wzUqJr6/OErDV5bUo6E9zIwYeD7R+53GrBRfFb2ewbyPQQKCT9o6L4zptcz +wMA7ATMozSEaFmQ8jtguzEQY0nmtOkrDezmukpcIEyOn2aVuGaOhLL609Kw4 +E1MTPiedHCf5h6a+aZRj4obX3y0aBSQ/3mGDldpMDNz79JrGPxoEWpI9OjZM +vLa4RXmacAmMpSmGGO5i4rcz82d6EY/MY7NM9jHx5aYZ+W+JB36ZHFrtysQn +P7qZt2aUQP8dp7FdJ5jI/VsqsJhVAr067ikOoUxs2Fz/5CrxmwxfM+dIJmpU +2+2dMbsE2k/FhXomMDErSaimnLhx/S2JqFwmzmn/kyw0pwQe3aspjbvGxPNW +fUetiesXN21PpJm4+PZy6YvE96X7UtMrmCiI3ZLOES2BO+HfuDn3mSilPS/m +EPHt8dG3BXUkP8O13CLisi5R9ZtPmRjFWDSiIVYCtLVsY+VzJlJzugVOxEVV +qm7Vr5joskv20WXivOwl15/0MTGEp145e24JZMuC7bOPJL63on0mxJmRloL2 +b0wUWRP5zJU49T976B9lYsphp/l1xMndB/s/TTBxWV6r43fi85uOhv+YYmLr +reET0uIlkFBzQuPXDAqjTm10XkZ8xjDqye85FHY6eCzcTRyTe879nwSFq5W6 +0wKIo+TS5s+QofDfmNpACnHon9Id81Qo5NhsnWghDnK7OyFDUTiesf3WJ+LA +3odpihoUWl+0XT1J7LflGarpkO/VvrsiKVECPnVd79gGFAotiGplEB9d+jFC +y5jCvL8trXrER64OaeqbUdi01SKbS+yu8KfJaCWFNc4nLSyI/4uZecRsLYWp +v6eqNxMfnJwnbb6exG+yW3wHsbOHYvm6zRSqPFXR3U3s1Meys7ah8P2DTmov +scO2xX+37qJQPX/h4B7ivQ9MMnbuo1DtoHf8LuJdxqvN7Q9QOObqLWJLvKNg +4wcnVwoPhRTt2ES8faFdlKs7hWeHi0+uJd4S56TlcZRC/8OiJ5cTb5xya/b2 +Jeshtd1Wl3i9p6+n/wkKjb2VRVSJLd6FygSHUhgSJ0gUJ15jE3crPJLCTw0B +EwKyXuaPknfFxFL4d9oys/fEYJI1GZ9AoV9ArV0TsVlhUWZSEoWjn+ltZcRd +aoUZay5R2PEtmXGR2D+pIH0kg8K3oCcTSHwrJO/y1gIKt6btdF1BbDuec2ka +n0LFF2+alIhHDmenlpRRuK9MYCsg+8VgZ+ZFibsUHsUvb4uInz1NT75XTaFk +VlnfKeIjq9KSDj+g0FZqupgdMV839XxjM4Wao1TnJNm/mjPPx0f0UdguvNBT +n/ix/7mzSz9S6PGlok5A6sF5KP7M+68Unkp6bF5NnNMVF2s+QmG5YPHjdcRq +ZZFR/2ax0O6R1D8k9ValHhFZLMZCiasKtRMiJWCfFhaxR5KFtxPiysuIL0WF +hFUqsNCsp9pAmXjBvoBgH20WnrYOi3hD6v9mm18QW5+Fos5qbyKJt1v5nmxb +ykK1jybO+sTnlh4LNAAWqvf8VAiaWQLicz18B7awsEvnh/hM0l+KQtyOp9my +MGm8XzaL9B+r8f98Nuxmobu2ny2XOKr/oPe1Ayx81ZB2yn16Ccyo2H/E+TgL +vS18L98RIvWr6+ghG8jCG29Vfa2IzXP2udcHk/cbmTLoKRqCzu45zDzNwpT6 +IyMdkzRM8GwP9lxm4XLZ2hPTJ2gYlrJysK1l4U/x4rn8YRo6DjNbDz1iYdWR +ua8CSD+ufjgBQU0srKd3xK8ZpCHev1A1v508Z1q9bCL9XK9/bq/gKwulxoZb +rn2iwb20ZW+aNBtLv3Af5L6hwVYs/2mpPBvDe0vVDbtoWMEL5j5UZqNp24Oz +dztpEFfQVx5UZ6OlXqJPXTsNRcHn3qAZG6dPbHp0pZWGr5tsdr8/wMa7QZ/u +XKmj4XmBzpPfrmz0e/mOM1RDQ6XwrOXiHmzsT3/HN62mIfpWuaKRHxvzt3Yv +rL9Lg4aq/OvIODZyV/+XmE/OS5eB1zu1ytnYtzfeoiKPnC+xDrZeszkIL6cd +nBFB4v+qzdSby8F4h1XH/52iYXyd4McPSQ4Oz5+yHg2hQVT4XLirIgdFA8ds +O0+Q/P3qbjjocJDRfnzC/xgNJ3gc6U3bOMhLKsllHyDn2YrvLVoZHPR8YZ7A +ABoyL92+9CWbg+8dB8VumdGgKQhzuZrPwW82vOOWpjSY3VCeYpZxMLNgiM0j +84jTok26ig84eOOoxyxfLRpKFpTFinzjoHdy+ORcOTKfDB63/GCkjtYNvgqT +3/igpK8SIWKmjje4hj7jn/kw4FVfq7VSHYu789wGPvDh/Jikmdd6dcz/lGn4 +vJcPPZMFulP71NEt3XKD5ws+eM19I60QrY6bLwgvnVfJh1RN7NnQpY6TlwOV +2sPI/OYkcvRGkAbuuveX+kXmx4H01feqwjSwSjX7maE4HwY7g2c/idbA6ycO +5XnO4cPPTYJLfYkaqPVcr+n9ND6ML/9aL5Gvgdbvjy8r+FkM02WaFri2aiDv +0DHpohfFoFB/tlKZoYlch/6O3MRi8v8hNz2yVhPrC89YN4oVg9RTzpmSwUWY +dX2bsPRoIShF0ZuNjLRxIeuQku3Va3BRy0RS2kUHd46nZRrtLIBGxZVLfyXo +4vXsYNtFU1fBVKk2fnH7YmzrPe+4KjAPJISzvB1D9TBIU9YtaW4uqISomtlx +9FHs4a4NKwKzYQ57T/nWR/o43hLTYjR2BXS5CvTxvQboffHJu5H4TPDqkaqz +EjLEgp/LORF66TD4K9bG8qIh6jS8bBGKuQTrFj9MtdRZgqXotRTnpcD9X8v/ +jDcvwaB7EncEwUngrm3w+hlvKZ52nNUdZn4euAMH2uzmGOEHaZfOP38TYA1L +3lo8ywjFLlisKZgZDxrBp31rjY3xYkBuqmNALCzimVSxXxuj+5fbyc7DUcC7 +fzDshucy1G17KAFD4VCV2XZgWNYEUzxLHdWmQmEkf2p88S0T3LNz+jI712Bw +YhfOSbU2RdvKX9f+hgbC8KJEo7IhU9x+YJjTvtsXbuf86RuNWo4Ntltj6we9 +YddqCpermOH28rgXgQJPWOgWWaFbbYaPoy2b/ba5g6zo4VLrHVyU6Mlj59e5 +Qs6qE/5Ddlzk9T5VLilxBYMTZ1Yl7uFijY3ScF2aK2wcKnnZ4chFoVVdUvN8 +XSGifVTgdJiL+SGteQY6rvA7K8jcP4SL13VrDK+lHITXyxNf5BVy0dV/lfGS +ABc4eCznsiWffG/Dt44iVxcY49/kfS/hYrrculy9nS4gxewY1y/nYsPf3fl2 +S11gvYiy0r1qLj6bJ1qtN+QMd9vyDrx4yUX6jJj/gIszWEnc1vHp4KKhpQFX +boczdKxrGJPv4mLQZHab1VpnGKn8FmX/lotTBROHnrOcQeeKXvGXr1zcoHE/ +Y38/D+6+XukT+4OLxrWBHn3PeGAlsw0WD3HR723T50M1PHCOPPbMe5SLG7u6 +a9MyeTBSHZEq95vEoyqksC6eB6ETyU6VE1zkVPoI/wnigeSSAu29k1y0Kx0N +rPDgQbpb5ejUFBe37TcIDt3Hg/8BP35KRA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.06271917462597504}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13018,19 +14493,19 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.06271917462597504}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13044,112 +14519,113 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV13k0Vd8XAHClQUQyZMj03n3vIUOGIvLaO00ozZQGkR7pGyLJVIaMoUgR +ZcgU4V1UigZjAwmVREI0T4Yy9JT8zu/+c9dn3bXu3fuss/fZl7HfYytvuhC5 +pgkJ/f8+1tNQz4rJWTH8QqePUjFb0ZYu77eyIxR0x57P/NKoACjbsl++4xz8 +jhs/wW/UBJ/N114Jd2RBGuuSfnSjCcwfkDsneFUGkQ2DrraNltB7d6PHyKta +qJ6zJ/Rugx2sZX3tHn71HII23c5we+QKglfGF4Ze9cNjB2F3vO8Hdauu5jzL ++gVT3ia3JvJPg1Jvxcf92pOQu45/8cvlRJA5vO/a7FXCGNby4YbM2RQ4p7/2 +zkYbEaxYMfNAZFkGdF7Uqx6WFMcneiFt2tFZEJMT1DJdYT4K9VaeBZNckDv/ +LjoxTRoVg/4Trrt0FSK3W654PiaLystkfqslFcBRkyv7GkLl0THWdY6mVyFY +ZUqMrI+Vx2iGwCPCtxCYswOjmi/I45HgiIjek4XQ2mZb+iJfHvv5ZTVhMYWg +e2SucE+zPEZ+Mna6lFMIn/OO5/1UVMC44o4fv18Wwh6ZjT8WXlfAIS0VQ6+l +RbB6cMLf/Z0imiq0llp+KgI/i/OLar4rYvfVe2HHvhcB/4rOa+kxRTzz4rZy +2nARyG93MKkQWYhjdXJXev8UwffbD8aFdRfi2vken/UliyExNN47xXchju+O +2y62rBj6ZTnu9eJKqParkY4PKwY5jyplOTklzFfaP7Ekuhg2PN751FVNCc8o +Dc96GVcM5f4x2vMMlTBF7hZPJLkYTvcOfbXbqYQKIvbLzAqKwaDgjstglhI+ +mW+o2dFUDCFmWxwVlynjfa9Gdp8kHyzs038amytjqMLAZ1tZPkgEfztls0EZ +h808ix8p8OFyXXhevIMyPnj40TSVyYfbVpXfZkUr49RcyUPCS/gwtJPy+dWp +jF75zfofbfhgf2z0dFOACk7vfHZk4AIf2MnmSl/DVTBiwj6zPoVP8j9bPDte +BVW/2LdfSOOD/1/NVvMcFQzbVmarmcuHC6fsZSuaVFCvoJmWucGHpoRHGbnK +qujWbD9tspUPpvyUGyerVNH4St+WBbNpWP2qeXLgsSomxkX8WCBKw0ahGev2 +PVfFwvjNXGlxGpy2unfCB1WU0M+d+CdFw9oARlDwTDVccbNqNEuFhiOqY9kr +tdRwUnazmfJSGupdMn7U+ahhlxOntNueBsu/JlKBAWpoMXInwsaRhub4NqMl +wWooad2s1OBEQ2fFnOCcaDU8ds8gNvsgDQNi3lLhl9VwdgUdxvaiQb7Ewnht +rRr2NTDW2IfRcPj3cPBjcQYWJWX55uXSYOrpvOCjFAMzP089r75Kg8jX14XC +8gzc8cLDvL2AhtyuuvYVTAZOCRycfhbT0HP/gvZNIwZee3K/ZvAmDZvCTTqu +7GOgqKlo0lQ9DSr/it2qDjAQkmNSnjyk4bsPU7jblYFShZL3zz2mIeqgmK68 +NwNPNax3k2qioXp996kzUQycZ93q/+o5DQZSIYsDShl4qWCZiF8vDUIxo/UX +yxmoWtQcOP6W5C98aFf5HQbq34xQ9eyn4b/RreHDDxjYWdP00+YDDTkdrC6X +1wzUqJr6/OErDV5bUo6E9zIwYeD7R+53GrBRfFb2ewbyPQQKCT9o6L4zptcz +wMA7ATMozSEaFmQ8jtguzEQY0nmtOkrDezmukpcIEyOn2aVuGaOhLL609Kw4 +E1MTPiedHCf5h6a+aZRj4obX3y0aBSQ/3mGDldpMDNz79JrGPxoEWpI9OjZM +vLa4RXmacAmMpSmGGO5i4rcz82d6EY/MY7NM9jHx5aYZ+W+JB36ZHFrtysQn +P7qZt2aUQP8dp7FdJ5jI/VsqsJhVAr067ikOoUxs2Fz/5CrxmwxfM+dIJmpU +2+2dMbsE2k/FhXomMDErSaimnLhx/S2JqFwmzmn/kyw0pwQe3aspjbvGxPNW +fUetiesXN21PpJm4+PZy6YvE96X7UtMrmCiI3ZLOES2BO+HfuDn3mSilPS/m +EPHt8dG3BXUkP8O13CLisi5R9ZtPmRjFWDSiIVYCtLVsY+VzJlJzugVOxEVV +qm7Vr5joskv20WXivOwl15/0MTGEp145e24JZMuC7bOPJL63on0mxJmRloL2 +b0wUWRP5zJU49T976B9lYsphp/l1xMndB/s/TTBxWV6r43fi85uOhv+YYmLr +reET0uIlkFBzQuPXDAqjTm10XkZ8xjDqye85FHY6eCzcTRyTe879nwSFq5W6 +0wKIo+TS5s+QofDfmNpACnHon9Id81Qo5NhsnWghDnK7OyFDUTiesf3WJ+LA +3odpihoUWl+0XT1J7LflGarpkO/VvrsiKVECPnVd79gGFAotiGplEB9d+jFC +y5jCvL8trXrER64OaeqbUdi01SKbS+yu8KfJaCWFNc4nLSyI/4uZecRsLYWp +v6eqNxMfnJwnbb6exG+yW3wHsbOHYvm6zRSqPFXR3U3s1Meys7ah8P2DTmov +scO2xX+37qJQPX/h4B7ivQ9MMnbuo1DtoHf8LuJdxqvN7Q9QOObqLWJLvKNg +4wcnVwoPhRTt2ES8faFdlKs7hWeHi0+uJd4S56TlcZRC/8OiJ5cTb5xya/b2 +Jeshtd1Wl3i9p6+n/wkKjb2VRVSJLd6FygSHUhgSJ0gUJ15jE3crPJLCTw0B +EwKyXuaPknfFxFL4d9oys/fEYJI1GZ9AoV9ArV0TsVlhUWZSEoWjn+ltZcRd +aoUZay5R2PEtmXGR2D+pIH0kg8K3oCcTSHwrJO/y1gIKt6btdF1BbDuec2ka +n0LFF2+alIhHDmenlpRRuK9MYCsg+8VgZ+ZFibsUHsUvb4uInz1NT75XTaFk +VlnfKeIjq9KSDj+g0FZqupgdMV839XxjM4Wao1TnJNm/mjPPx0f0UdguvNBT +n/ix/7mzSz9S6PGlok5A6sF5KP7M+68Unkp6bF5NnNMVF2s+QmG5YPHjdcRq +ZZFR/2ax0O6R1D8k9ValHhFZLMZCiasKtRMiJWCfFhaxR5KFtxPiysuIL0WF +hFUqsNCsp9pAmXjBvoBgH20WnrYOi3hD6v9mm18QW5+Fos5qbyKJt1v5nmxb +ykK1jybO+sTnlh4LNAAWqvf8VAiaWQLicz18B7awsEvnh/hM0l+KQtyOp9my +MGm8XzaL9B+r8f98Nuxmobu2ny2XOKr/oPe1Ayx81ZB2yn16Ccyo2H/E+TgL +vS18L98RIvWr6+ghG8jCG29Vfa2IzXP2udcHk/cbmTLoKRqCzu45zDzNwpT6 +IyMdkzRM8GwP9lxm4XLZ2hPTJ2gYlrJysK1l4U/x4rn8YRo6DjNbDz1iYdWR +ua8CSD+ufjgBQU0srKd3xK8ZpCHev1A1v508Z1q9bCL9XK9/bq/gKwulxoZb +rn2iwb20ZW+aNBtLv3Af5L6hwVYs/2mpPBvDe0vVDbtoWMEL5j5UZqNp24Oz +dztpEFfQVx5UZ6OlXqJPXTsNRcHn3qAZG6dPbHp0pZWGr5tsdr8/wMa7QZ/u +XKmj4XmBzpPfrmz0e/mOM1RDQ6XwrOXiHmzsT3/HN62mIfpWuaKRHxvzt3Yv +rL9Lg4aq/OvIODZyV/+XmE/OS5eB1zu1ytnYtzfeoiKPnC+xDrZeszkIL6cd +nBFB4v+qzdSby8F4h1XH/52iYXyd4McPSQ4Oz5+yHg2hQVT4XLirIgdFA8ds +O0+Q/P3qbjjocJDRfnzC/xgNJ3gc6U3bOMhLKsllHyDn2YrvLVoZHPR8YZ7A +ABoyL92+9CWbg+8dB8VumdGgKQhzuZrPwW82vOOWpjSY3VCeYpZxMLNgiM0j +84jTok26ig84eOOoxyxfLRpKFpTFinzjoHdy+ORcOTKfDB63/GCkjtYNvgqT +3/igpK8SIWKmjje4hj7jn/kw4FVfq7VSHYu789wGPvDh/Jikmdd6dcz/lGn4 +vJcPPZMFulP71NEt3XKD5ws+eM19I60QrY6bLwgvnVfJh1RN7NnQpY6TlwOV +2sPI/OYkcvRGkAbuuveX+kXmx4H01feqwjSwSjX7maE4HwY7g2c/idbA6ycO +5XnO4cPPTYJLfYkaqPVcr+n9ND6ML/9aL5Gvgdbvjy8r+FkM02WaFri2aiDv +0DHpohfFoFB/tlKZoYlch/6O3MRi8v8hNz2yVhPrC89YN4oVg9RTzpmSwUWY +dX2bsPRoIShF0ZuNjLRxIeuQku3Va3BRy0RS2kUHd46nZRrtLIBGxZVLfyXo +4vXsYNtFU1fBVKk2fnH7YmzrPe+4KjAPJISzvB1D9TBIU9YtaW4uqISomtlx +9FHs4a4NKwKzYQ57T/nWR/o43hLTYjR2BXS5CvTxvQboffHJu5H4TPDqkaqz +EjLEgp/LORF66TD4K9bG8qIh6jS8bBGKuQTrFj9MtdRZgqXotRTnpcD9X8v/ +jDcvwaB7EncEwUngrm3w+hlvKZ52nNUdZn4euAMH2uzmGOEHaZfOP38TYA1L +3lo8ywjFLlisKZgZDxrBp31rjY3xYkBuqmNALCzimVSxXxuj+5fbyc7DUcC7 +fzDshucy1G17KAFD4VCV2XZgWNYEUzxLHdWmQmEkf2p88S0T3LNz+jI712Bw +YhfOSbU2RdvKX9f+hgbC8KJEo7IhU9x+YJjTvtsXbuf86RuNWo4Ntltj6we9 +YddqCpermOH28rgXgQJPWOgWWaFbbYaPoy2b/ba5g6zo4VLrHVyU6Mlj59e5 +Qs6qE/5Ddlzk9T5VLilxBYMTZ1Yl7uFijY3ScF2aK2wcKnnZ4chFoVVdUvN8 +XSGifVTgdJiL+SGteQY6rvA7K8jcP4SL13VrDK+lHITXyxNf5BVy0dV/lfGS +ABc4eCznsiWffG/Dt44iVxcY49/kfS/hYrrculy9nS4gxewY1y/nYsPf3fl2 +S11gvYiy0r1qLj6bJ1qtN+QMd9vyDrx4yUX6jJj/gIszWEnc1vHp4KKhpQFX +boczdKxrGJPv4mLQZHab1VpnGKn8FmX/lotTBROHnrOcQeeKXvGXr1zcoHE/ +Y38/D+6+XukT+4OLxrWBHn3PeGAlsw0WD3HR723T50M1PHCOPPbMe5SLG7u6 +a9MyeTBSHZEq95vEoyqksC6eB6ETyU6VE1zkVPoI/wnigeSSAu29k1y0Kx0N +rPDgQbpb5ejUFBe37TcIDt3Hg/8BP35KRA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.06271917462597504}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13160,6 +14636,7 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13187,7 +14664,8 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06271917462597504}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13195,22 +14673,568 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991327033758711*^9}, + CellChangeTimes->{3.991327033758711*^9, 3.993934258783813*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] + "Out[150]=",ExpressionUUID->"14d04d0a-f726-4e82-97d5-fe7167decbbf"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, - 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ -ea3fc2b4c4a8"], + 3.9919244033659534`*^9}, + CellLabel-> + "In[151]:=",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799951845436*^9, - 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ -85a3484011b6"], + CellChangeTimes->{{3.991799951845436*^9, 3.991799954096182*^9}}, + CellLabel-> + "In[152]:=",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0Vd8XAHClQUQyZMj03n3vIUOGIvLaO00ozZQGkR7pGyLJVIaMoUgR +ZcgU4V1UigZjAwmVREI0T4Yy9JT8zu/+c9dn3bXu3fuss/fZl7HfYytvuhC5 +pgkJ/f8+1tNQz4rJWTH8QqePUjFb0ZYu77eyIxR0x57P/NKoACjbsl++4xz8 +jhs/wW/UBJ/N114Jd2RBGuuSfnSjCcwfkDsneFUGkQ2DrraNltB7d6PHyKta +qJ6zJ/Rugx2sZX3tHn71HII23c5we+QKglfGF4Ze9cNjB2F3vO8Hdauu5jzL ++gVT3ia3JvJPg1Jvxcf92pOQu45/8cvlRJA5vO/a7FXCGNby4YbM2RQ4p7/2 +zkYbEaxYMfNAZFkGdF7Uqx6WFMcneiFt2tFZEJMT1DJdYT4K9VaeBZNckDv/ +LjoxTRoVg/4Trrt0FSK3W654PiaLystkfqslFcBRkyv7GkLl0THWdY6mVyFY +ZUqMrI+Vx2iGwCPCtxCYswOjmi/I45HgiIjek4XQ2mZb+iJfHvv5ZTVhMYWg +e2SucE+zPEZ+Mna6lFMIn/OO5/1UVMC44o4fv18Wwh6ZjT8WXlfAIS0VQ6+l +RbB6cMLf/Z0imiq0llp+KgI/i/OLar4rYvfVe2HHvhcB/4rOa+kxRTzz4rZy +2nARyG93MKkQWYhjdXJXev8UwffbD8aFdRfi2vken/UliyExNN47xXchju+O +2y62rBj6ZTnu9eJKqParkY4PKwY5jyplOTklzFfaP7Ekuhg2PN751FVNCc8o +Dc96GVcM5f4x2vMMlTBF7hZPJLkYTvcOfbXbqYQKIvbLzAqKwaDgjstglhI+ +mW+o2dFUDCFmWxwVlynjfa9Gdp8kHyzs038amytjqMLAZ1tZPkgEfztls0EZ +h808ix8p8OFyXXhevIMyPnj40TSVyYfbVpXfZkUr49RcyUPCS/gwtJPy+dWp +jF75zfofbfhgf2z0dFOACk7vfHZk4AIf2MnmSl/DVTBiwj6zPoVP8j9bPDte +BVW/2LdfSOOD/1/NVvMcFQzbVmarmcuHC6fsZSuaVFCvoJmWucGHpoRHGbnK +qujWbD9tspUPpvyUGyerVNH4St+WBbNpWP2qeXLgsSomxkX8WCBKw0ahGev2 +PVfFwvjNXGlxGpy2unfCB1WU0M+d+CdFw9oARlDwTDVccbNqNEuFhiOqY9kr +tdRwUnazmfJSGupdMn7U+ahhlxOntNueBsu/JlKBAWpoMXInwsaRhub4NqMl +wWooad2s1OBEQ2fFnOCcaDU8ds8gNvsgDQNi3lLhl9VwdgUdxvaiQb7Ewnht +rRr2NTDW2IfRcPj3cPBjcQYWJWX55uXSYOrpvOCjFAMzP089r75Kg8jX14XC +8gzc8cLDvL2AhtyuuvYVTAZOCRycfhbT0HP/gvZNIwZee3K/ZvAmDZvCTTqu +7GOgqKlo0lQ9DSr/it2qDjAQkmNSnjyk4bsPU7jblYFShZL3zz2mIeqgmK68 +NwNPNax3k2qioXp996kzUQycZ93q/+o5DQZSIYsDShl4qWCZiF8vDUIxo/UX +yxmoWtQcOP6W5C98aFf5HQbq34xQ9eyn4b/RreHDDxjYWdP00+YDDTkdrC6X +1wzUqJr6/OErDV5bUo6E9zIwYeD7R+53GrBRfFb2ewbyPQQKCT9o6L4zptcz +wMA7ATMozSEaFmQ8jtguzEQY0nmtOkrDezmukpcIEyOn2aVuGaOhLL609Kw4 +E1MTPiedHCf5h6a+aZRj4obX3y0aBSQ/3mGDldpMDNz79JrGPxoEWpI9OjZM +vLa4RXmacAmMpSmGGO5i4rcz82d6EY/MY7NM9jHx5aYZ+W+JB36ZHFrtysQn +P7qZt2aUQP8dp7FdJ5jI/VsqsJhVAr067ikOoUxs2Fz/5CrxmwxfM+dIJmpU +2+2dMbsE2k/FhXomMDErSaimnLhx/S2JqFwmzmn/kyw0pwQe3aspjbvGxPNW +fUetiesXN21PpJm4+PZy6YvE96X7UtMrmCiI3ZLOES2BO+HfuDn3mSilPS/m +EPHt8dG3BXUkP8O13CLisi5R9ZtPmRjFWDSiIVYCtLVsY+VzJlJzugVOxEVV +qm7Vr5joskv20WXivOwl15/0MTGEp145e24JZMuC7bOPJL63on0mxJmRloL2 +b0wUWRP5zJU49T976B9lYsphp/l1xMndB/s/TTBxWV6r43fi85uOhv+YYmLr +reET0uIlkFBzQuPXDAqjTm10XkZ8xjDqye85FHY6eCzcTRyTe879nwSFq5W6 +0wKIo+TS5s+QofDfmNpACnHon9Id81Qo5NhsnWghDnK7OyFDUTiesf3WJ+LA +3odpihoUWl+0XT1J7LflGarpkO/VvrsiKVECPnVd79gGFAotiGplEB9d+jFC +y5jCvL8trXrER64OaeqbUdi01SKbS+yu8KfJaCWFNc4nLSyI/4uZecRsLYWp +v6eqNxMfnJwnbb6exG+yW3wHsbOHYvm6zRSqPFXR3U3s1Meys7ah8P2DTmov +scO2xX+37qJQPX/h4B7ivQ9MMnbuo1DtoHf8LuJdxqvN7Q9QOObqLWJLvKNg +4wcnVwoPhRTt2ES8faFdlKs7hWeHi0+uJd4S56TlcZRC/8OiJ5cTb5xya/b2 +Jeshtd1Wl3i9p6+n/wkKjb2VRVSJLd6FygSHUhgSJ0gUJ15jE3crPJLCTw0B +EwKyXuaPknfFxFL4d9oys/fEYJI1GZ9AoV9ArV0TsVlhUWZSEoWjn+ltZcRd +aoUZay5R2PEtmXGR2D+pIH0kg8K3oCcTSHwrJO/y1gIKt6btdF1BbDuec2ka +n0LFF2+alIhHDmenlpRRuK9MYCsg+8VgZ+ZFibsUHsUvb4uInz1NT75XTaFk +VlnfKeIjq9KSDj+g0FZqupgdMV839XxjM4Wao1TnJNm/mjPPx0f0UdguvNBT +n/ix/7mzSz9S6PGlok5A6sF5KP7M+68Unkp6bF5NnNMVF2s+QmG5YPHjdcRq +ZZFR/2ax0O6R1D8k9ValHhFZLMZCiasKtRMiJWCfFhaxR5KFtxPiysuIL0WF +hFUqsNCsp9pAmXjBvoBgH20WnrYOi3hD6v9mm18QW5+Fos5qbyKJt1v5nmxb +ykK1jybO+sTnlh4LNAAWqvf8VAiaWQLicz18B7awsEvnh/hM0l+KQtyOp9my +MGm8XzaL9B+r8f98Nuxmobu2ny2XOKr/oPe1Ayx81ZB2yn16Ccyo2H/E+TgL +vS18L98RIvWr6+ghG8jCG29Vfa2IzXP2udcHk/cbmTLoKRqCzu45zDzNwpT6 +IyMdkzRM8GwP9lxm4XLZ2hPTJ2gYlrJysK1l4U/x4rn8YRo6DjNbDz1iYdWR +ua8CSD+ufjgBQU0srKd3xK8ZpCHev1A1v508Z1q9bCL9XK9/bq/gKwulxoZb +rn2iwb20ZW+aNBtLv3Af5L6hwVYs/2mpPBvDe0vVDbtoWMEL5j5UZqNp24Oz +dztpEFfQVx5UZ6OlXqJPXTsNRcHn3qAZG6dPbHp0pZWGr5tsdr8/wMa7QZ/u +XKmj4XmBzpPfrmz0e/mOM1RDQ6XwrOXiHmzsT3/HN62mIfpWuaKRHxvzt3Yv +rL9Lg4aq/OvIODZyV/+XmE/OS5eB1zu1ytnYtzfeoiKPnC+xDrZeszkIL6cd +nBFB4v+qzdSby8F4h1XH/52iYXyd4McPSQ4Oz5+yHg2hQVT4XLirIgdFA8ds +O0+Q/P3qbjjocJDRfnzC/xgNJ3gc6U3bOMhLKsllHyDn2YrvLVoZHPR8YZ7A +ABoyL92+9CWbg+8dB8VumdGgKQhzuZrPwW82vOOWpjSY3VCeYpZxMLNgiM0j +84jTok26ig84eOOoxyxfLRpKFpTFinzjoHdy+ORcOTKfDB63/GCkjtYNvgqT +3/igpK8SIWKmjje4hj7jn/kw4FVfq7VSHYu789wGPvDh/Jikmdd6dcz/lGn4 +vJcPPZMFulP71NEt3XKD5ws+eM19I60QrY6bLwgvnVfJh1RN7NnQpY6TlwOV +2sPI/OYkcvRGkAbuuveX+kXmx4H01feqwjSwSjX7maE4HwY7g2c/idbA6ycO +5XnO4cPPTYJLfYkaqPVcr+n9ND6ML/9aL5Gvgdbvjy8r+FkM02WaFri2aiDv +0DHpohfFoFB/tlKZoYlch/6O3MRi8v8hNz2yVhPrC89YN4oVg9RTzpmSwUWY +dX2bsPRoIShF0ZuNjLRxIeuQku3Va3BRy0RS2kUHd46nZRrtLIBGxZVLfyXo +4vXsYNtFU1fBVKk2fnH7YmzrPe+4KjAPJISzvB1D9TBIU9YtaW4uqISomtlx +9FHs4a4NKwKzYQ57T/nWR/o43hLTYjR2BXS5CvTxvQboffHJu5H4TPDqkaqz +EjLEgp/LORF66TD4K9bG8qIh6jS8bBGKuQTrFj9MtdRZgqXotRTnpcD9X8v/ +jDcvwaB7EncEwUngrm3w+hlvKZ52nNUdZn4euAMH2uzmGOEHaZfOP38TYA1L +3lo8ywjFLlisKZgZDxrBp31rjY3xYkBuqmNALCzimVSxXxuj+5fbyc7DUcC7 +fzDshucy1G17KAFD4VCV2XZgWNYEUzxLHdWmQmEkf2p88S0T3LNz+jI712Bw +YhfOSbU2RdvKX9f+hgbC8KJEo7IhU9x+YJjTvtsXbuf86RuNWo4Ntltj6we9 +YddqCpermOH28rgXgQJPWOgWWaFbbYaPoy2b/ba5g6zo4VLrHVyU6Mlj59e5 +Qs6qE/5Ddlzk9T5VLilxBYMTZ1Yl7uFijY3ScF2aK2wcKnnZ4chFoVVdUvN8 +XSGifVTgdJiL+SGteQY6rvA7K8jcP4SL13VrDK+lHITXyxNf5BVy0dV/lfGS +ABc4eCznsiWffG/Dt44iVxcY49/kfS/hYrrculy9nS4gxewY1y/nYsPf3fl2 +S11gvYiy0r1qLj6bJ1qtN+QMd9vyDrx4yUX6jJj/gIszWEnc1vHp4KKhpQFX +boczdKxrGJPv4mLQZHab1VpnGKn8FmX/lotTBROHnrOcQeeKXvGXr1zcoHE/ +Y38/D+6+XukT+4OLxrWBHn3PeGAlsw0WD3HR723T50M1PHCOPPbMe5SLG7u6 +a9MyeTBSHZEq95vEoyqksC6eB6ETyU6VE1zkVPoI/wnigeSSAu29k1y0Kx0N +rPDgQbpb5ejUFBe37TcIDt3Hg/8BP35KRA== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Vd8XAHClQUQyZMj03n3vIUOGIvLaO00ozZQGkR7pGyLJVIaMoUgR +ZcgU4V1UigZjAwmVREI0T4Yy9JT8zu/+c9dn3bXu3fuss/fZl7HfYytvuhC5 +pgkJ/f8+1tNQz4rJWTH8QqePUjFb0ZYu77eyIxR0x57P/NKoACjbsl++4xz8 +jhs/wW/UBJ/N114Jd2RBGuuSfnSjCcwfkDsneFUGkQ2DrraNltB7d6PHyKta +qJ6zJ/Rugx2sZX3tHn71HII23c5we+QKglfGF4Ze9cNjB2F3vO8Hdauu5jzL ++gVT3ia3JvJPg1Jvxcf92pOQu45/8cvlRJA5vO/a7FXCGNby4YbM2RQ4p7/2 +zkYbEaxYMfNAZFkGdF7Uqx6WFMcneiFt2tFZEJMT1DJdYT4K9VaeBZNckDv/ +LjoxTRoVg/4Trrt0FSK3W654PiaLystkfqslFcBRkyv7GkLl0THWdY6mVyFY +ZUqMrI+Vx2iGwCPCtxCYswOjmi/I45HgiIjek4XQ2mZb+iJfHvv5ZTVhMYWg +e2SucE+zPEZ+Mna6lFMIn/OO5/1UVMC44o4fv18Wwh6ZjT8WXlfAIS0VQ6+l +RbB6cMLf/Z0imiq0llp+KgI/i/OLar4rYvfVe2HHvhcB/4rOa+kxRTzz4rZy +2nARyG93MKkQWYhjdXJXev8UwffbD8aFdRfi2vken/UliyExNN47xXchju+O +2y62rBj6ZTnu9eJKqParkY4PKwY5jyplOTklzFfaP7Ekuhg2PN751FVNCc8o +Dc96GVcM5f4x2vMMlTBF7hZPJLkYTvcOfbXbqYQKIvbLzAqKwaDgjstglhI+ +mW+o2dFUDCFmWxwVlynjfa9Gdp8kHyzs038amytjqMLAZ1tZPkgEfztls0EZ +h808ix8p8OFyXXhevIMyPnj40TSVyYfbVpXfZkUr49RcyUPCS/gwtJPy+dWp +jF75zfofbfhgf2z0dFOACk7vfHZk4AIf2MnmSl/DVTBiwj6zPoVP8j9bPDte +BVW/2LdfSOOD/1/NVvMcFQzbVmarmcuHC6fsZSuaVFCvoJmWucGHpoRHGbnK +qujWbD9tspUPpvyUGyerVNH4St+WBbNpWP2qeXLgsSomxkX8WCBKw0ahGev2 +PVfFwvjNXGlxGpy2unfCB1WU0M+d+CdFw9oARlDwTDVccbNqNEuFhiOqY9kr +tdRwUnazmfJSGupdMn7U+ahhlxOntNueBsu/JlKBAWpoMXInwsaRhub4NqMl +wWooad2s1OBEQ2fFnOCcaDU8ds8gNvsgDQNi3lLhl9VwdgUdxvaiQb7Ewnht +rRr2NTDW2IfRcPj3cPBjcQYWJWX55uXSYOrpvOCjFAMzP089r75Kg8jX14XC +8gzc8cLDvL2AhtyuuvYVTAZOCRycfhbT0HP/gvZNIwZee3K/ZvAmDZvCTTqu +7GOgqKlo0lQ9DSr/it2qDjAQkmNSnjyk4bsPU7jblYFShZL3zz2mIeqgmK68 +NwNPNax3k2qioXp996kzUQycZ93q/+o5DQZSIYsDShl4qWCZiF8vDUIxo/UX +yxmoWtQcOP6W5C98aFf5HQbq34xQ9eyn4b/RreHDDxjYWdP00+YDDTkdrC6X +1wzUqJr6/OErDV5bUo6E9zIwYeD7R+53GrBRfFb2ewbyPQQKCT9o6L4zptcz +wMA7ATMozSEaFmQ8jtguzEQY0nmtOkrDezmukpcIEyOn2aVuGaOhLL609Kw4 +E1MTPiedHCf5h6a+aZRj4obX3y0aBSQ/3mGDldpMDNz79JrGPxoEWpI9OjZM +vLa4RXmacAmMpSmGGO5i4rcz82d6EY/MY7NM9jHx5aYZ+W+JB36ZHFrtysQn +P7qZt2aUQP8dp7FdJ5jI/VsqsJhVAr067ikOoUxs2Fz/5CrxmwxfM+dIJmpU +2+2dMbsE2k/FhXomMDErSaimnLhx/S2JqFwmzmn/kyw0pwQe3aspjbvGxPNW +fUetiesXN21PpJm4+PZy6YvE96X7UtMrmCiI3ZLOES2BO+HfuDn3mSilPS/m +EPHt8dG3BXUkP8O13CLisi5R9ZtPmRjFWDSiIVYCtLVsY+VzJlJzugVOxEVV +qm7Vr5joskv20WXivOwl15/0MTGEp145e24JZMuC7bOPJL63on0mxJmRloL2 +b0wUWRP5zJU49T976B9lYsphp/l1xMndB/s/TTBxWV6r43fi85uOhv+YYmLr +reET0uIlkFBzQuPXDAqjTm10XkZ8xjDqye85FHY6eCzcTRyTe879nwSFq5W6 +0wKIo+TS5s+QofDfmNpACnHon9Id81Qo5NhsnWghDnK7OyFDUTiesf3WJ+LA +3odpihoUWl+0XT1J7LflGarpkO/VvrsiKVECPnVd79gGFAotiGplEB9d+jFC +y5jCvL8trXrER64OaeqbUdi01SKbS+yu8KfJaCWFNc4nLSyI/4uZecRsLYWp +v6eqNxMfnJwnbb6exG+yW3wHsbOHYvm6zRSqPFXR3U3s1Meys7ah8P2DTmov +scO2xX+37qJQPX/h4B7ivQ9MMnbuo1DtoHf8LuJdxqvN7Q9QOObqLWJLvKNg +4wcnVwoPhRTt2ES8faFdlKs7hWeHi0+uJd4S56TlcZRC/8OiJ5cTb5xya/b2 +Jeshtd1Wl3i9p6+n/wkKjb2VRVSJLd6FygSHUhgSJ0gUJ15jE3crPJLCTw0B +EwKyXuaPknfFxFL4d9oys/fEYJI1GZ9AoV9ArV0TsVlhUWZSEoWjn+ltZcRd +aoUZay5R2PEtmXGR2D+pIH0kg8K3oCcTSHwrJO/y1gIKt6btdF1BbDuec2ka +n0LFF2+alIhHDmenlpRRuK9MYCsg+8VgZ+ZFibsUHsUvb4uInz1NT75XTaFk +VlnfKeIjq9KSDj+g0FZqupgdMV839XxjM4Wao1TnJNm/mjPPx0f0UdguvNBT +n/ix/7mzSz9S6PGlok5A6sF5KP7M+68Unkp6bF5NnNMVF2s+QmG5YPHjdcRq +ZZFR/2ax0O6R1D8k9ValHhFZLMZCiasKtRMiJWCfFhaxR5KFtxPiysuIL0WF +hFUqsNCsp9pAmXjBvoBgH20WnrYOi3hD6v9mm18QW5+Fos5qbyKJt1v5nmxb +ykK1jybO+sTnlh4LNAAWqvf8VAiaWQLicz18B7awsEvnh/hM0l+KQtyOp9my +MGm8XzaL9B+r8f98Nuxmobu2ny2XOKr/oPe1Ayx81ZB2yn16Ccyo2H/E+TgL +vS18L98RIvWr6+ghG8jCG29Vfa2IzXP2udcHk/cbmTLoKRqCzu45zDzNwpT6 +IyMdkzRM8GwP9lxm4XLZ2hPTJ2gYlrJysK1l4U/x4rn8YRo6DjNbDz1iYdWR +ua8CSD+ufjgBQU0srKd3xK8ZpCHev1A1v508Z1q9bCL9XK9/bq/gKwulxoZb +rn2iwb20ZW+aNBtLv3Af5L6hwVYs/2mpPBvDe0vVDbtoWMEL5j5UZqNp24Oz +dztpEFfQVx5UZ6OlXqJPXTsNRcHn3qAZG6dPbHp0pZWGr5tsdr8/wMa7QZ/u +XKmj4XmBzpPfrmz0e/mOM1RDQ6XwrOXiHmzsT3/HN62mIfpWuaKRHxvzt3Yv +rL9Lg4aq/OvIODZyV/+XmE/OS5eB1zu1ytnYtzfeoiKPnC+xDrZeszkIL6cd +nBFB4v+qzdSby8F4h1XH/52iYXyd4McPSQ4Oz5+yHg2hQVT4XLirIgdFA8ds +O0+Q/P3qbjjocJDRfnzC/xgNJ3gc6U3bOMhLKsllHyDn2YrvLVoZHPR8YZ7A +ABoyL92+9CWbg+8dB8VumdGgKQhzuZrPwW82vOOWpjSY3VCeYpZxMLNgiM0j +84jTok26ig84eOOoxyxfLRpKFpTFinzjoHdy+ORcOTKfDB63/GCkjtYNvgqT +3/igpK8SIWKmjje4hj7jn/kw4FVfq7VSHYu789wGPvDh/Jikmdd6dcz/lGn4 +vJcPPZMFulP71NEt3XKD5ws+eM19I60QrY6bLwgvnVfJh1RN7NnQpY6TlwOV +2sPI/OYkcvRGkAbuuveX+kXmx4H01feqwjSwSjX7maE4HwY7g2c/idbA6ycO +5XnO4cPPTYJLfYkaqPVcr+n9ND6ML/9aL5Gvgdbvjy8r+FkM02WaFri2aiDv +0DHpohfFoFB/tlKZoYlch/6O3MRi8v8hNz2yVhPrC89YN4oVg9RTzpmSwUWY +dX2bsPRoIShF0ZuNjLRxIeuQku3Va3BRy0RS2kUHd46nZRrtLIBGxZVLfyXo +4vXsYNtFU1fBVKk2fnH7YmzrPe+4KjAPJISzvB1D9TBIU9YtaW4uqISomtlx +9FHs4a4NKwKzYQ57T/nWR/o43hLTYjR2BXS5CvTxvQboffHJu5H4TPDqkaqz +EjLEgp/LORF66TD4K9bG8qIh6jS8bBGKuQTrFj9MtdRZgqXotRTnpcD9X8v/ +jDcvwaB7EncEwUngrm3w+hlvKZ52nNUdZn4euAMH2uzmGOEHaZfOP38TYA1L +3lo8ywjFLlisKZgZDxrBp31rjY3xYkBuqmNALCzimVSxXxuj+5fbyc7DUcC7 +fzDshucy1G17KAFD4VCV2XZgWNYEUzxLHdWmQmEkf2p88S0T3LNz+jI712Bw +YhfOSbU2RdvKX9f+hgbC8KJEo7IhU9x+YJjTvtsXbuf86RuNWo4Ntltj6we9 +YddqCpermOH28rgXgQJPWOgWWaFbbYaPoy2b/ba5g6zo4VLrHVyU6Mlj59e5 +Qs6qE/5Ddlzk9T5VLilxBYMTZ1Yl7uFijY3ScF2aK2wcKnnZ4chFoVVdUvN8 +XSGifVTgdJiL+SGteQY6rvA7K8jcP4SL13VrDK+lHITXyxNf5BVy0dV/lfGS +ABc4eCznsiWffG/Dt44iVxcY49/kfS/hYrrculy9nS4gxewY1y/nYsPf3fl2 +S11gvYiy0r1qLj6bJ1qtN+QMd9vyDrx4yUX6jJj/gIszWEnc1vHp4KKhpQFX +boczdKxrGJPv4mLQZHab1VpnGKn8FmX/lotTBROHnrOcQeeKXvGXr1zcoHE/ +Y38/D+6+XukT+4OLxrWBHn3PeGAlsw0WD3HR723T50M1PHCOPPbMe5SLG7u6 +a9MyeTBSHZEq95vEoyqksC6eB6ETyU6VE1zkVPoI/wnigeSSAu29k1y0Kx0N +rPDgQbpb5ejUFBe37TcIDt3Hg/8BP35KRA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06271917462597504}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06271917462597504}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Vd8XAHClQUQyZMj03n3vIUOGIvLaO00ozZQGkR7pGyLJVIaMoUgR +ZcgU4V1UigZjAwmVREI0T4Yy9JT8zu/+c9dn3bXu3fuss/fZl7HfYytvuhC5 +pgkJ/f8+1tNQz4rJWTH8QqePUjFb0ZYu77eyIxR0x57P/NKoACjbsl++4xz8 +jhs/wW/UBJ/N114Jd2RBGuuSfnSjCcwfkDsneFUGkQ2DrraNltB7d6PHyKta +qJ6zJ/Rugx2sZX3tHn71HII23c5we+QKglfGF4Ze9cNjB2F3vO8Hdauu5jzL ++gVT3ia3JvJPg1Jvxcf92pOQu45/8cvlRJA5vO/a7FXCGNby4YbM2RQ4p7/2 +zkYbEaxYMfNAZFkGdF7Uqx6WFMcneiFt2tFZEJMT1DJdYT4K9VaeBZNckDv/ +LjoxTRoVg/4Trrt0FSK3W654PiaLystkfqslFcBRkyv7GkLl0THWdY6mVyFY +ZUqMrI+Vx2iGwCPCtxCYswOjmi/I45HgiIjek4XQ2mZb+iJfHvv5ZTVhMYWg +e2SucE+zPEZ+Mna6lFMIn/OO5/1UVMC44o4fv18Wwh6ZjT8WXlfAIS0VQ6+l +RbB6cMLf/Z0imiq0llp+KgI/i/OLar4rYvfVe2HHvhcB/4rOa+kxRTzz4rZy +2nARyG93MKkQWYhjdXJXev8UwffbD8aFdRfi2vken/UliyExNN47xXchju+O +2y62rBj6ZTnu9eJKqParkY4PKwY5jyplOTklzFfaP7Ekuhg2PN751FVNCc8o +Dc96GVcM5f4x2vMMlTBF7hZPJLkYTvcOfbXbqYQKIvbLzAqKwaDgjstglhI+ +mW+o2dFUDCFmWxwVlynjfa9Gdp8kHyzs038amytjqMLAZ1tZPkgEfztls0EZ +h808ix8p8OFyXXhevIMyPnj40TSVyYfbVpXfZkUr49RcyUPCS/gwtJPy+dWp +jF75zfofbfhgf2z0dFOACk7vfHZk4AIf2MnmSl/DVTBiwj6zPoVP8j9bPDte +BVW/2LdfSOOD/1/NVvMcFQzbVmarmcuHC6fsZSuaVFCvoJmWucGHpoRHGbnK +qujWbD9tspUPpvyUGyerVNH4St+WBbNpWP2qeXLgsSomxkX8WCBKw0ahGev2 +PVfFwvjNXGlxGpy2unfCB1WU0M+d+CdFw9oARlDwTDVccbNqNEuFhiOqY9kr +tdRwUnazmfJSGupdMn7U+ahhlxOntNueBsu/JlKBAWpoMXInwsaRhub4NqMl +wWooad2s1OBEQ2fFnOCcaDU8ds8gNvsgDQNi3lLhl9VwdgUdxvaiQb7Ewnht +rRr2NTDW2IfRcPj3cPBjcQYWJWX55uXSYOrpvOCjFAMzP089r75Kg8jX14XC +8gzc8cLDvL2AhtyuuvYVTAZOCRycfhbT0HP/gvZNIwZee3K/ZvAmDZvCTTqu +7GOgqKlo0lQ9DSr/it2qDjAQkmNSnjyk4bsPU7jblYFShZL3zz2mIeqgmK68 +NwNPNax3k2qioXp996kzUQycZ93q/+o5DQZSIYsDShl4qWCZiF8vDUIxo/UX +yxmoWtQcOP6W5C98aFf5HQbq34xQ9eyn4b/RreHDDxjYWdP00+YDDTkdrC6X +1wzUqJr6/OErDV5bUo6E9zIwYeD7R+53GrBRfFb2ewbyPQQKCT9o6L4zptcz +wMA7ATMozSEaFmQ8jtguzEQY0nmtOkrDezmukpcIEyOn2aVuGaOhLL609Kw4 +E1MTPiedHCf5h6a+aZRj4obX3y0aBSQ/3mGDldpMDNz79JrGPxoEWpI9OjZM +vLa4RXmacAmMpSmGGO5i4rcz82d6EY/MY7NM9jHx5aYZ+W+JB36ZHFrtysQn +P7qZt2aUQP8dp7FdJ5jI/VsqsJhVAr067ikOoUxs2Fz/5CrxmwxfM+dIJmpU +2+2dMbsE2k/FhXomMDErSaimnLhx/S2JqFwmzmn/kyw0pwQe3aspjbvGxPNW +fUetiesXN21PpJm4+PZy6YvE96X7UtMrmCiI3ZLOES2BO+HfuDn3mSilPS/m +EPHt8dG3BXUkP8O13CLisi5R9ZtPmRjFWDSiIVYCtLVsY+VzJlJzugVOxEVV +qm7Vr5joskv20WXivOwl15/0MTGEp145e24JZMuC7bOPJL63on0mxJmRloL2 +b0wUWRP5zJU49T976B9lYsphp/l1xMndB/s/TTBxWV6r43fi85uOhv+YYmLr +reET0uIlkFBzQuPXDAqjTm10XkZ8xjDqye85FHY6eCzcTRyTe879nwSFq5W6 +0wKIo+TS5s+QofDfmNpACnHon9Id81Qo5NhsnWghDnK7OyFDUTiesf3WJ+LA +3odpihoUWl+0XT1J7LflGarpkO/VvrsiKVECPnVd79gGFAotiGplEB9d+jFC +y5jCvL8trXrER64OaeqbUdi01SKbS+yu8KfJaCWFNc4nLSyI/4uZecRsLYWp +v6eqNxMfnJwnbb6exG+yW3wHsbOHYvm6zRSqPFXR3U3s1Meys7ah8P2DTmov +scO2xX+37qJQPX/h4B7ivQ9MMnbuo1DtoHf8LuJdxqvN7Q9QOObqLWJLvKNg +4wcnVwoPhRTt2ES8faFdlKs7hWeHi0+uJd4S56TlcZRC/8OiJ5cTb5xya/b2 +Jeshtd1Wl3i9p6+n/wkKjb2VRVSJLd6FygSHUhgSJ0gUJ15jE3crPJLCTw0B +EwKyXuaPknfFxFL4d9oys/fEYJI1GZ9AoV9ArV0TsVlhUWZSEoWjn+ltZcRd +aoUZay5R2PEtmXGR2D+pIH0kg8K3oCcTSHwrJO/y1gIKt6btdF1BbDuec2ka +n0LFF2+alIhHDmenlpRRuK9MYCsg+8VgZ+ZFibsUHsUvb4uInz1NT75XTaFk +VlnfKeIjq9KSDj+g0FZqupgdMV839XxjM4Wao1TnJNm/mjPPx0f0UdguvNBT +n/ix/7mzSz9S6PGlok5A6sF5KP7M+68Unkp6bF5NnNMVF2s+QmG5YPHjdcRq +ZZFR/2ax0O6R1D8k9ValHhFZLMZCiasKtRMiJWCfFhaxR5KFtxPiysuIL0WF +hFUqsNCsp9pAmXjBvoBgH20WnrYOi3hD6v9mm18QW5+Fos5qbyKJt1v5nmxb +ykK1jybO+sTnlh4LNAAWqvf8VAiaWQLicz18B7awsEvnh/hM0l+KQtyOp9my +MGm8XzaL9B+r8f98Nuxmobu2ny2XOKr/oPe1Ayx81ZB2yn16Ccyo2H/E+TgL +vS18L98RIvWr6+ghG8jCG29Vfa2IzXP2udcHk/cbmTLoKRqCzu45zDzNwpT6 +IyMdkzRM8GwP9lxm4XLZ2hPTJ2gYlrJysK1l4U/x4rn8YRo6DjNbDz1iYdWR +ua8CSD+ufjgBQU0srKd3xK8ZpCHev1A1v508Z1q9bCL9XK9/bq/gKwulxoZb +rn2iwb20ZW+aNBtLv3Af5L6hwVYs/2mpPBvDe0vVDbtoWMEL5j5UZqNp24Oz +dztpEFfQVx5UZ6OlXqJPXTsNRcHn3qAZG6dPbHp0pZWGr5tsdr8/wMa7QZ/u +XKmj4XmBzpPfrmz0e/mOM1RDQ6XwrOXiHmzsT3/HN62mIfpWuaKRHxvzt3Yv +rL9Lg4aq/OvIODZyV/+XmE/OS5eB1zu1ytnYtzfeoiKPnC+xDrZeszkIL6cd +nBFB4v+qzdSby8F4h1XH/52iYXyd4McPSQ4Oz5+yHg2hQVT4XLirIgdFA8ds +O0+Q/P3qbjjocJDRfnzC/xgNJ3gc6U3bOMhLKsllHyDn2YrvLVoZHPR8YZ7A +ABoyL92+9CWbg+8dB8VumdGgKQhzuZrPwW82vOOWpjSY3VCeYpZxMLNgiM0j +84jTok26ig84eOOoxyxfLRpKFpTFinzjoHdy+ORcOTKfDB63/GCkjtYNvgqT +3/igpK8SIWKmjje4hj7jn/kw4FVfq7VSHYu789wGPvDh/Jikmdd6dcz/lGn4 +vJcPPZMFulP71NEt3XKD5ws+eM19I60QrY6bLwgvnVfJh1RN7NnQpY6TlwOV +2sPI/OYkcvRGkAbuuveX+kXmx4H01feqwjSwSjX7maE4HwY7g2c/idbA6ycO +5XnO4cPPTYJLfYkaqPVcr+n9ND6ML/9aL5Gvgdbvjy8r+FkM02WaFri2aiDv +0DHpohfFoFB/tlKZoYlch/6O3MRi8v8hNz2yVhPrC89YN4oVg9RTzpmSwUWY +dX2bsPRoIShF0ZuNjLRxIeuQku3Va3BRy0RS2kUHd46nZRrtLIBGxZVLfyXo +4vXsYNtFU1fBVKk2fnH7YmzrPe+4KjAPJISzvB1D9TBIU9YtaW4uqISomtlx +9FHs4a4NKwKzYQ57T/nWR/o43hLTYjR2BXS5CvTxvQboffHJu5H4TPDqkaqz +EjLEgp/LORF66TD4K9bG8qIh6jS8bBGKuQTrFj9MtdRZgqXotRTnpcD9X8v/ +jDcvwaB7EncEwUngrm3w+hlvKZ52nNUdZn4euAMH2uzmGOEHaZfOP38TYA1L +3lo8ywjFLlisKZgZDxrBp31rjY3xYkBuqmNALCzimVSxXxuj+5fbyc7DUcC7 +fzDshucy1G17KAFD4VCV2XZgWNYEUzxLHdWmQmEkf2p88S0T3LNz+jI712Bw +YhfOSbU2RdvKX9f+hgbC8KJEo7IhU9x+YJjTvtsXbuf86RuNWo4Ntltj6we9 +YddqCpermOH28rgXgQJPWOgWWaFbbYaPoy2b/ba5g6zo4VLrHVyU6Mlj59e5 +Qs6qE/5Ddlzk9T5VLilxBYMTZ1Yl7uFijY3ScF2aK2wcKnnZ4chFoVVdUvN8 +XSGifVTgdJiL+SGteQY6rvA7K8jcP4SL13VrDK+lHITXyxNf5BVy0dV/lfGS +ABc4eCznsiWffG/Dt44iVxcY49/kfS/hYrrculy9nS4gxewY1y/nYsPf3fl2 +S11gvYiy0r1qLj6bJ1qtN+QMd9vyDrx4yUX6jJj/gIszWEnc1vHp4KKhpQFX +boczdKxrGJPv4mLQZHab1VpnGKn8FmX/lotTBROHnrOcQeeKXvGXr1zcoHE/ +Y38/D+6+XukT+4OLxrWBHn3PeGAlsw0WD3HR723T50M1PHCOPPbMe5SLG7u6 +a9MyeTBSHZEq95vEoyqksC6eB6ETyU6VE1zkVPoI/wnigeSSAu29k1y0Kx0N +rPDgQbpb5ejUFBe37TcIDt3Hg/8BP35KRA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06271917462597504}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06271917462597504}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993934258825925*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"d49d95b6-1bd5-472b-915e-01cbd2a2587c"] +}, Open ]], Cell[CellGroupData[{ @@ -13262,66 +15286,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + "In[153]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 93, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097599506`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.5542645926029503`*^-165\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 153, 73, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993934258850669*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +In[153]:=",ExpressionUUID->"b2cd1bd0-2f96-4723-9335-dd235a6d6316"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 94, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909769953*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.6371682142846316`*^-168\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 153, 74, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993934258853805*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +In[153]:=",ExpressionUUID->"63719031-7e3e-41de-877b-14afc0984b10"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 142, 95, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097784023`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.722005572273458`*^-171\\\", \ +\\\"16424312045547973917068250855478962797836184904556443340043143969743430318\ +444318157938322185531163516963194464925547245426704384000000000000000000000000\ +00\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 153, 75, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.9939342588568287`*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +In[153]:=",ExpressionUUID->"58ad6f23-62fd-428a-af53-27f4d8163dc5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 142, 96, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909786396*^9}, +during this calculation.\"", 2, 153, 76, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.99393425885953*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +In[153]:=",ExpressionUUID->"43396911-f2ea-44c6-93a3-5b007f1db5f2"], -Cell[BoxData["11.275343508420296`"], "Output", - CellChangeTimes->{3.9913279159698696`*^9}, +Cell[BoxData["13.21275391647118`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.993934281292882*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] + "Out[153]=",ExpressionUUID->"72a3047d-52f5-4157-954f-c48b84aaaee4"] }, Open ]], Cell[CellGroupData[{ @@ -13388,68 +15416,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99179998339209*^9, - 3.991799988637089*^9}},ExpressionUUID->"a5e0631c-6c6c-a045-8418-\ -22c641e38d86"], + CellChangeTimes->{{3.99179998339209*^9, 3.991799988637089*^9}}, + CellLabel-> + "In[154]:=",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 143, 97, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916008396*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2708738684443735`*^-237\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 154, 77, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993934281316669*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +In[154]:=",ExpressionUUID->"ed9262be-7213-4675-904e-372d303934e7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 143, 98, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916018362*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3695441947114879`*^-244\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 154, 78, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993934281320425*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +In[154]:=",ExpressionUUID->"3a496218-9d40-4854-94d9-d6953e5d82cc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 143, - 99, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279160263577`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4758752601970229`*^-251\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 154, 79, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993934281324156*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +In[154]:=",ExpressionUUID->"638eb3d7-9e19-48a4-8822-22f3c2de69e0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 143, 100, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916034359*^9}, +during this calculation.\"", 2, 154, 80, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993934281327427*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +In[154]:=",ExpressionUUID->"2f16c49b-fd69-460c-b357-18d7709ab79e"], -Cell[BoxData["1.0734937398087425`"], "Output", - CellChangeTimes->{3.991327922931429*^9}, +Cell[BoxData["0.00960492529150061`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.993934283896525*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] + "Out[154]=",ExpressionUUID->"8f2c2776-41ae-4e69-b2d8-fa02ec913d51"] }, Open ]], Cell[CellGroupData[{ @@ -13470,8 +15499,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13516,68 +15544,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799991275097*^9, - 3.9917999948700333`*^9}},ExpressionUUID->"4b6c44e4-d946-0c4d-9992-\ -4f0fc7048689"], + CellChangeTimes->{{3.991799991275097*^9, 3.9917999948700333`*^9}}, + CellLabel-> + "In[155]:=",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 144, 101, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229664307`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2708738684443735`*^-237\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 155, 81, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993934283916726*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +In[155]:=",ExpressionUUID->"0b81ecd0-66cf-4cd9-98b8-0b9de93a884a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 144, 102, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327922975607*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3695441947114879`*^-244\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 155, 82, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993934283919875*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +In[155]:=",ExpressionUUID->"7ce6452c-03ca-4d09-9ebc-23f4be8d9e93"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 144, - 103, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229836063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4758752601970229`*^-251\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 155, 83, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.9939342839230347`*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +In[155]:=",ExpressionUUID->"79ad7bf9-9a1d-44d8-bc8e-ecf1ddbf4cfd"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 144, 104, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229916077`*^9}, +during this calculation.\"", 2, 155, 84, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993934283925686*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +In[155]:=",ExpressionUUID->"bd8c0e1a-00c3-435c-b50c-f98095149cdd"], -Cell[BoxData["9.48093127226425`"], "Output", - CellChangeTimes->{3.9913279288200035`*^9}, +Cell[BoxData["40.13914642493189`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9, 3.9939342863984947`*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] + "Out[155]=",ExpressionUUID->"21a4831c-ca6c-40bc-8d97-5bddd93eb456"] }, Open ]], Cell[CellGroupData[{ @@ -13598,8 +15627,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -13644,68 +15672,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918000011431293`*^9, - 3.9918000068677616`*^9}},ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-\ -32244819d42b"], + CellChangeTimes->{{3.9918000011431293`*^9, 3.9918000068677616`*^9}}, + CellLabel-> + "In[156]:=",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 145, 105, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928854006*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2708738684443735`*^-237\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 156, 85, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993934286419507*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +In[156]:=",ExpressionUUID->"52398569-3900-461e-ae22-e2560ae17668"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 145, 106, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928864023*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3695441947114879`*^-244\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 156, 86, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.9939342864226227`*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +In[156]:=",ExpressionUUID->"d80eaf48-cf25-47ea-a824-2e70c5fc528d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 145, - 107, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928871004*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4758752601970229`*^-251\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 156, 87, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993934286425398*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +In[156]:=",ExpressionUUID->"571d8e6d-b8e2-4a4c-8347-0a87e9cb3684"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 145, 108, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928878006*^9}, +during this calculation.\"", 2, 156, 88, 31385539801306253772, "Local"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993934286428412*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +In[156]:=",ExpressionUUID->"1df51b95-0ec6-4808-a700-0d3df1ae394b"], -Cell[BoxData["17.503865312709518`"], "Output", - CellChangeTimes->{3.9913279320131683`*^9}, +Cell[BoxData["6.782389794762447`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.9939342879842787`*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] + "Out[156]=",ExpressionUUID->"de1a5bbd-c6f2-4107-99da-852b56efe704"] }, Open ]], Cell[CellGroupData[{ @@ -13714,16 +15743,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991800029528055*^9, - 3.991800041720209*^9}},ExpressionUUID->"99da2760-e71e-1246-8cc9-\ -f0a7464dc747"], - -Cell[BoxData["0.08333108480569339`"], "Output", - CellChangeTimes->{3.9913279320452003`*^9}, + CellChangeTimes->{{3.991800029528055*^9, 3.991800041720209*^9}}, CellLabel-> - "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] + "In[157]:=",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], + +Cell[BoxData["0.0005821280842310064`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.993934288002289*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"9dd22fc7-55ad-4787-bbcd-b666325dadb2"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellChangeTimes->{{3.9939171652745667`*^9, 3.99391716816823*^9}}, + CellLabel-> + "In[158]:=",ExpressionUUID->"5222ef37-9b05-4daa-a7c2-20929e853801"] }, +Evaluator->"Local", WindowSize->{1440, 882}, WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, @@ -13744,661 +15780,674 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 307, 6, 23, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[886, 30, 230, 5, 38, "Output",ExpressionUUID->"4804ac40-29dd-4ae9-9099-00a72a663e87"] +Cell[576, 22, 302, 5, 42, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[881, 29, 295, 5, 26, "Output",ExpressionUUID->"8ace6df8-99f7-477c-809a-5c62b763f3b3"] }, Open ]], Cell[CellGroupData[{ -Cell[1153, 40, 202, 4, 23, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1358, 46, 232, 5, 38, "Output",ExpressionUUID->"c668764a-1cf9-45af-8fc6-eac8143087e5"] +Cell[1213, 39, 246, 4, 23, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1462, 45, 299, 5, 26, "Output",ExpressionUUID->"f94410f4-098e-40fa-8b8f-83070d00e5df"] }, Open ]], Cell[CellGroupData[{ -Cell[1627, 56, 228, 5, 23, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1858, 63, 232, 5, 38, "Output",ExpressionUUID->"ae267b8a-443c-4613-b80d-714cd3592b49"] +Cell[1798, 55, 223, 4, 23, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[2024, 61, 299, 5, 26, "Output",ExpressionUUID->"36f24ac2-a8bc-441f-a12b-8802d3b376cb"] }, Open ]], Cell[CellGroupData[{ -Cell[2127, 73, 180, 4, 23, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2310, 79, 231, 5, 38, "Output",ExpressionUUID->"ff97aafe-7d64-497c-b95b-2b06a4655094"] +Cell[2360, 71, 175, 3, 23, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[2538, 76, 295, 5, 26, "Output",ExpressionUUID->"efcf3994-134a-4e2f-b62b-c907dbfe8e07"] }, Open ]], Cell[CellGroupData[{ -Cell[2578, 89, 262, 8, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2843, 99, 250, 5, 38, "Output",ExpressionUUID->"4d603673-9a99-4aba-b853-e5b24612f04b"] +Cell[2870, 86, 257, 7, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3130, 95, 306, 5, 26, "Output",ExpressionUUID->"b7562f5a-2b46-490e-bf7d-47297ed3c910"] }, Open ]], Cell[CellGroupData[{ -Cell[3130, 109, 136, 3, 23, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[3269, 114, 238, 5, 38, "Output",ExpressionUUID->"e8e8af0f-85b2-4480-b561-51d26283f461"] +Cell[3473, 105, 131, 2, 23, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[3607, 109, 305, 5, 26, "Output",ExpressionUUID->"a8763186-b10a-4630-bb17-443ae165eb5a"] }, Open ]], Cell[CellGroupData[{ -Cell[3544, 124, 281, 7, 23, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3828, 133, 247, 5, 38, "Output",ExpressionUUID->"fec68e9f-96c0-4386-b7cc-fc2054189439"] +Cell[3949, 119, 276, 6, 23, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[4228, 127, 314, 5, 26, "Output",ExpressionUUID->"c674dd94-a99f-48c6-8dfb-db4243ab9056"] }, Open ]], Cell[CellGroupData[{ -Cell[4112, 143, 262, 8, 23, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[4377, 153, 246, 5, 38, "Output",ExpressionUUID->"dcd29b8e-8a5e-4948-b625-6a6c87e52489"] +Cell[4579, 137, 257, 7, 23, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[4839, 146, 314, 5, 26, "Output",ExpressionUUID->"016580cb-aabf-4ffa-8c7b-a835a833a305"] }, Open ]], Cell[CellGroupData[{ -Cell[4660, 163, 231, 5, 23, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[4894, 170, 207, 4, 38, "Output",ExpressionUUID->"651d876d-9167-4355-baf1-0f7c32264012"] +Cell[5190, 156, 226, 4, 23, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[5419, 162, 271, 4, 26, "Output",ExpressionUUID->"7476101d-447d-4bf0-ab82-6efcd448962f"] }, Open ]], Cell[CellGroupData[{ -Cell[5138, 179, 229, 5, 23, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[5370, 186, 214, 4, 38, "Output",ExpressionUUID->"df92a0f3-44e3-41fc-983a-93066659f107"] +Cell[5727, 171, 225, 4, 23, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[5955, 177, 284, 4, 26, "Output",ExpressionUUID->"49557e83-ee6e-473a-add2-8ccb56401e6a"] }, Open ]], Cell[CellGroupData[{ -Cell[5621, 195, 133, 3, 23, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[5757, 200, 234, 5, 38, "Output",ExpressionUUID->"0f052819-9941-4f9d-9e9c-aa70c5419295"] +Cell[6276, 186, 129, 2, 23, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[6408, 190, 301, 5, 26, "Output",ExpressionUUID->"14394ce5-24d8-4433-92ec-057199a3f02b"] }, Open ]], Cell[CellGroupData[{ -Cell[6028, 210, 133, 3, 23, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[6164, 215, 232, 5, 38, "Output",ExpressionUUID->"818c334d-d4a3-452c-8fb2-f873aebc57fc"] +Cell[6746, 200, 129, 2, 23, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[6878, 204, 302, 5, 26, "Output",ExpressionUUID->"4133b54d-b6d3-4e75-bda7-d3cfec377199"] }, Open ]], Cell[CellGroupData[{ -Cell[6433, 225, 561, 20, 67, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[6997, 247, 247, 5, 38, "Output",ExpressionUUID->"7f498993-b633-4fdc-89ba-f3d31c6c403c"] +Cell[7217, 214, 557, 19, 67, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[7777, 235, 315, 5, 26, "Output",ExpressionUUID->"fed902f4-5ed9-48ac-8d7f-aac342eb8f25"] }, Open ]], Cell[CellGroupData[{ -Cell[7281, 257, 561, 20, 67, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[7845, 279, 247, 5, 38, "Output",ExpressionUUID->"8d3e6b0f-7d48-49a1-926c-f3566fafd99f"] +Cell[8129, 245, 557, 19, 67, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[8689, 266, 313, 5, 26, "Output",ExpressionUUID->"8b7bc6f5-257b-432a-8a45-b540c4851388"] }, Open ]], Cell[CellGroupData[{ -Cell[8129, 289, 1496, 49, 67, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[9628, 340, 249, 5, 38, "Output",ExpressionUUID->"b4206b9f-959d-4394-94de-d396ef69f4d0"] +Cell[9039, 276, 1492, 48, 67, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[10534, 326, 317, 5, 26, "Output",ExpressionUUID->"bb292f04-fd15-4fcd-a9fb-280f6549551b"] }, Open ]], Cell[CellGroupData[{ -Cell[9914, 350, 1335, 45, 67, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[11252, 397, 266, 6, 38, "Output",ExpressionUUID->"6fe6cc65-fa6b-4d99-a8d2-74ca305ce207"] +Cell[10888, 336, 1331, 44, 67, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[12222, 382, 332, 6, 26, "Output",ExpressionUUID->"3b93670d-792f-4c13-bb1c-5f9fa6fbc8bd"] }, Open ]], Cell[CellGroupData[{ -Cell[11555, 408, 1335, 45, 67, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[12893, 455, 266, 6, 38, "Output",ExpressionUUID->"50b280cb-4b39-47fb-baa1-0fe929015140"] +Cell[12591, 393, 1331, 44, 67, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[13925, 439, 336, 6, 26, "Output",ExpressionUUID->"d9423fdb-57b9-4642-bd4d-10d366f8a2e5"] }, Open ]], Cell[CellGroupData[{ -Cell[13196, 466, 1496, 49, 67, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[14695, 517, 243, 5, 38, "Output",ExpressionUUID->"1b36f592-3021-414f-9688-51c31c1c6e16"] +Cell[14298, 450, 1492, 48, 67, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[15793, 500, 312, 5, 26, "Output",ExpressionUUID->"10a5ccb4-ed18-48de-aa9f-844f6678ef3b"] }, Open ]], Cell[CellGroupData[{ -Cell[14975, 527, 135, 3, 23, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[15113, 532, 228, 5, 38, "Output",ExpressionUUID->"1fed198c-9cf8-4406-87ce-79ef10e360ac"] +Cell[16142, 510, 131, 2, 23, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[16276, 514, 296, 5, 26, "Output",ExpressionUUID->"15668269-0801-406e-85d8-606501fca5ee"] }, Open ]], Cell[CellGroupData[{ -Cell[15378, 542, 137, 3, 23, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[15518, 547, 233, 5, 38, "Output",ExpressionUUID->"b9df91e9-b3eb-4d0b-975d-f19a1f5f5800"] +Cell[16609, 524, 133, 2, 23, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[16745, 528, 299, 5, 26, "Output",ExpressionUUID->"9365dab5-f2ad-4331-82f2-f4ade6c39b19"] }, Open ]], Cell[CellGroupData[{ -Cell[15788, 557, 138, 3, 23, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[15929, 562, 236, 5, 38, "Output",ExpressionUUID->"2c7f951d-3c70-4ae7-9d46-4aa601536811"] +Cell[17081, 538, 134, 2, 23, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[17218, 542, 304, 5, 26, "Output",ExpressionUUID->"c99d0918-277b-4e14-a9df-cf5733986314"] }, Open ]], Cell[CellGroupData[{ -Cell[16202, 572, 223, 5, 23, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[16428, 579, 248, 6, 38, "Output",ExpressionUUID->"5874a25f-302b-4007-8331-97677039ae17"] +Cell[17559, 552, 219, 4, 23, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[17781, 558, 315, 6, 26, "Output",ExpressionUUID->"1a145dcf-83c1-4e0e-a27d-b6c216da93b2"] }, Open ]], Cell[CellGroupData[{ -Cell[16713, 590, 138, 3, 23, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[16854, 595, 236, 5, 38, "Output",ExpressionUUID->"a8a500c1-ef24-45a3-94cd-06fd20c0eed8"] +Cell[18133, 569, 134, 2, 23, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[18270, 573, 304, 5, 26, "Output",ExpressionUUID->"b763a445-aaa4-4b6c-a84d-a44a696342fb"] }, Open ]], Cell[CellGroupData[{ -Cell[17127, 605, 328, 6, 23, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[17458, 613, 232, 5, 38, "Output",ExpressionUUID->"421c8ebb-477a-43bf-a687-c4f665cd2c98"] +Cell[18611, 583, 324, 5, 23, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[18938, 590, 298, 5, 26, "Output",ExpressionUUID->"9f47998e-b36d-4f8f-8c33-f8acd9538c53"] }, Open ]], Cell[CellGroupData[{ -Cell[17727, 623, 300, 6, 23, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[18030, 631, 233, 5, 38, "Output",ExpressionUUID->"c8e1aad9-66dd-491a-a998-08244cfb02eb"] +Cell[19273, 600, 296, 5, 23, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[19572, 607, 298, 5, 26, "Output",ExpressionUUID->"29713aad-731c-48e3-9916-1411c23720a0"] }, Open ]], Cell[CellGroupData[{ -Cell[18300, 641, 223, 5, 23, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[18526, 648, 235, 5, 38, "Output",ExpressionUUID->"ee4df3b0-cebf-4a4b-a650-126a80e209b3"] +Cell[19907, 617, 219, 4, 23, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[20129, 623, 300, 5, 26, "Output",ExpressionUUID->"bcb53e67-3d30-42f7-bb6a-6087c3c3f01f"] }, Open ]], Cell[CellGroupData[{ -Cell[18798, 658, 354, 11, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[19155, 671, 249, 5, 38, "Output",ExpressionUUID->"677f7154-9c37-41f5-8330-1bf7b40a4a72"] +Cell[20466, 633, 350, 10, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[20819, 645, 317, 5, 26, "Output",ExpressionUUID->"4268b8a0-2c69-492c-9eac-76aa8cb8146e"] }, Open ]], Cell[CellGroupData[{ -Cell[19441, 681, 354, 11, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[19798, 694, 265, 6, 38, "Output",ExpressionUUID->"ee764c01-f192-42b1-b60d-16f49298baa7"] +Cell[21173, 655, 350, 10, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[21526, 667, 334, 6, 26, "Output",ExpressionUUID->"c3b983e2-c5c3-42b2-a05a-12cdb110e16e"] }, Open ]], Cell[CellGroupData[{ -Cell[20100, 705, 998, 27, 38, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[21101, 734, 245, 5, 38, "Output",ExpressionUUID->"04313ff9-a6c6-4b1e-9313-54c56d572079"] +Cell[21897, 678, 994, 26, 38, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[22894, 706, 313, 5, 26, "Output",ExpressionUUID->"6ef4257e-698c-4311-bf2d-9443097a3332"] }, Open ]], Cell[CellGroupData[{ -Cell[21383, 744, 203, 4, 23, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[21589, 750, 232, 5, 38, "Output",ExpressionUUID->"1325af13-5ec8-4db0-89ed-d633462e2c09"] +Cell[23244, 716, 199, 3, 23, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[23446, 721, 299, 5, 26, "Output",ExpressionUUID->"424cbc03-22c6-47d5-9e4c-b62dbf4e5078"] }, Open ]], Cell[CellGroupData[{ -Cell[21858, 760, 329, 6, 23, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[22190, 768, 205, 4, 38, "Output",ExpressionUUID->"4a2100a0-a5d7-41f4-bf23-5f79655ae8bf"] +Cell[23782, 731, 325, 5, 23, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[24110, 738, 270, 4, 26, "Output",ExpressionUUID->"e64364fa-6105-474a-8650-b59d82da65c0"] }, Open ]], -Cell[22410, 775, 177, 3, 23, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[24395, 745, 173, 2, 23, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[22612, 782, 331, 6, 23, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[22946, 790, 207, 4, 38, "Output",ExpressionUUID->"a35e2538-94f5-4830-8d64-d0acb9389c48"] +Cell[24593, 751, 327, 5, 23, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[24923, 758, 277, 4, 26, "Output",ExpressionUUID->"d9ee098d-f606-43ed-ba32-bec20beb9564"] }, Open ]], -Cell[23168, 797, 177, 3, 23, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[25215, 765, 173, 2, 23, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[23370, 804, 334, 6, 23, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[23707, 812, 213, 4, 38, "Output",ExpressionUUID->"36ccab61-d70d-4105-832a-6fdcea375745"] +Cell[25413, 771, 330, 5, 23, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[25746, 778, 279, 4, 26, "Output",ExpressionUUID->"ea07f0d3-23bf-4b06-a949-451546af9e37"] }, Open ]], -Cell[23935, 819, 177, 3, 23, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[26040, 785, 173, 2, 23, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[24137, 826, 355, 6, 23, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[24495, 834, 211, 4, 38, "Output",ExpressionUUID->"8d22ff3f-9ac1-4fd3-88bc-08184d7eb449"] +Cell[26238, 791, 351, 5, 23, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[26592, 798, 281, 4, 26, "Output",ExpressionUUID->"d8eb8c30-889d-4f69-ab4b-116a444e2d84"] }, Open ]], -Cell[24721, 841, 175, 3, 23, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[26888, 805, 171, 2, 23, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[24921, 848, 305, 6, 23, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[25229, 856, 207, 4, 38, "Output",ExpressionUUID->"331f6495-db89-4067-a0d9-fc1a70a34f32"] +Cell[27084, 811, 301, 5, 23, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[27388, 818, 273, 4, 26, "Output",ExpressionUUID->"00e074ca-9952-41f5-a725-6aaeca7998d5"] }, Open ]], -Cell[25451, 863, 175, 3, 23, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[27676, 825, 171, 2, 23, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[25651, 870, 307, 6, 23, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[25961, 878, 207, 4, 38, "Output",ExpressionUUID->"9c88ca2d-827c-4cba-b6c6-b373414b820f"] +Cell[27872, 831, 303, 5, 23, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[28178, 838, 273, 4, 26, "Output",ExpressionUUID->"a981d50c-124b-43ab-a4d9-10e092e699f5"] }, Open ]], -Cell[26183, 885, 177, 3, 23, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[28466, 845, 173, 2, 23, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[26385, 892, 311, 6, 23, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[26699, 900, 210, 4, 38, "Output",ExpressionUUID->"a672a2ed-8132-4f20-b41e-cac0f336bb65"] +Cell[28664, 851, 307, 5, 23, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[28974, 858, 276, 4, 26, "Output",ExpressionUUID->"11a5d72c-c392-41e8-8071-51a345495633"] }, Open ]], -Cell[26924, 907, 176, 3, 23, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[29265, 865, 172, 2, 23, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[27125, 914, 279, 5, 23, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[27407, 921, 209, 4, 38, "Output",ExpressionUUID->"f9e2a019-c59e-4de2-897e-51523e58354f"] +Cell[29462, 871, 275, 4, 23, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[29740, 877, 277, 4, 26, "Output",ExpressionUUID->"383a7c98-59e7-4de2-a799-134e9c2770e9"] }, Open ]], -Cell[27631, 928, 179, 3, 23, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[30032, 884, 175, 2, 23, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[27835, 935, 19813, 486, 680, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[47651, 1423, 249, 5, 38, "Output",ExpressionUUID->"ab827ddd-87da-4fd5-8d33-67ae85a70112"] +Cell[30232, 890, 19809, 485, 680, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[50044, 1377, 315, 5, 26, "Output",ExpressionUUID->"0f936696-d1ee-4d18-a288-e9dff99bec5c"] }, Open ]], Cell[CellGroupData[{ -Cell[47937, 1433, 19752, 490, 690, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[67692, 1925, 247, 5, 38, "Output",ExpressionUUID->"833ed482-d0ff-472d-9773-4f6ea8ef6251"] +Cell[50396, 1387, 19748, 489, 690, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[70147, 1878, 313, 5, 26, "Output",ExpressionUUID->"7e3bd6cf-0025-4d13-b664-04963a9d320a"] }, Open ]], Cell[CellGroupData[{ -Cell[67976, 1935, 19752, 484, 689, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[87731, 2421, 260, 6, 38, "Output",ExpressionUUID->"e9aacc8d-d779-42a6-a7c3-ffdaf6ba9431"] +Cell[70497, 1888, 19748, 483, 689, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[90248, 2373, 328, 6, 26, "Output",ExpressionUUID->"a4ccf6ce-0de7-4793-b06c-c1eb3fb18a9d"] }, Open ]], Cell[CellGroupData[{ -Cell[88028, 2432, 22538, 554, 761, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[110569, 2988, 265, 6, 38, "Output",ExpressionUUID->"91ce66e3-545e-4387-bda8-46a28b66dd7c"] +Cell[90613, 2384, 22534, 553, 761, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[113150, 2939, 330, 6, 26, "Output",ExpressionUUID->"3c96cf49-2b7e-4570-bd05-4026c0610104"] }, Open ]], Cell[CellGroupData[{ -Cell[110871, 2999, 22539, 554, 761, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[133413, 3555, 266, 6, 38, "Output",ExpressionUUID->"16222308-9fef-4f3d-ba81-be969c3abf89"] +Cell[113517, 2950, 22535, 553, 761, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[136055, 3505, 333, 6, 26, "Output",ExpressionUUID->"08a63b32-6a93-4275-bbaf-23be7bac10dd"] }, Open ]], Cell[CellGroupData[{ -Cell[133716, 3566, 25495, 627, 833, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[159214, 4195, 262, 6, 38, "Output",ExpressionUUID->"9eabe51d-552a-4f08-b4b6-afc4867991e9"] +Cell[136425, 3516, 25491, 626, 833, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[161919, 4144, 328, 6, 26, "Output",ExpressionUUID->"49a2e7a4-7b62-4840-acba-2cfd59e98589"] }, Open ]], Cell[CellGroupData[{ -Cell[159513, 4206, 134, 3, 23, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[159650, 4211, 232, 5, 38, "Output",ExpressionUUID->"f8c9dc59-e10b-4796-b426-7af26d9d419e"] +Cell[162284, 4155, 130, 2, 23, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[162417, 4159, 297, 5, 26, "Output",ExpressionUUID->"67e28a61-b6f2-4299-9f7c-137e60c41b76"] }, Open ]], Cell[CellGroupData[{ -Cell[159919, 4221, 134, 3, 23, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[160056, 4226, 232, 5, 38, "Output",ExpressionUUID->"bc3f6d46-f190-4ddd-b5c9-03f8fa196cd8"] +Cell[162751, 4169, 130, 2, 23, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[162884, 4173, 302, 5, 26, "Output",ExpressionUUID->"68a725a5-2810-4999-b840-96d1dcaa1fb9"] }, Open ]], Cell[CellGroupData[{ -Cell[160325, 4236, 1148, 40, 48, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[161476, 4278, 246, 5, 38, "Output",ExpressionUUID->"2b3ddd55-ee15-444a-8bb0-a851a22fc75b"] +Cell[163223, 4183, 1144, 39, 48, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[164370, 4224, 311, 5, 26, "Output",ExpressionUUID->"16d0f2b8-73e3-43ef-b36f-7942bcb787dd"] }, Open ]], Cell[CellGroupData[{ -Cell[161759, 4288, 1045, 36, 48, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[162807, 4326, 260, 6, 38, "Output",ExpressionUUID->"4e472d19-6f7b-44f9-8849-4421503a31ee"] +Cell[164718, 4234, 1041, 35, 48, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[165762, 4271, 326, 6, 26, "Output",ExpressionUUID->"3ef5557f-f15d-4461-9657-9414667c38ee"] }, Open ]], Cell[CellGroupData[{ -Cell[163104, 4337, 1148, 40, 48, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[164255, 4379, 252, 5, 38, "Output",ExpressionUUID->"81e3804e-586c-41b2-8306-0ff3a8b05b33"] +Cell[166125, 4282, 1144, 39, 48, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[167272, 4323, 318, 5, 26, "Output",ExpressionUUID->"621c3676-6f5f-4a51-8777-7d466543eabc"] }, Open ]], Cell[CellGroupData[{ -Cell[164544, 4389, 112, 2, 23, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[164659, 4393, 249, 5, 38, "Output",ExpressionUUID->"e4f86721-ba7f-40a5-8133-8a80f8b93a4b"] +Cell[167627, 4333, 108, 1, 23, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[167738, 4336, 319, 5, 26, "Output",ExpressionUUID->"4c3e597c-1008-44f9-a3e5-3bbe24598662"] }, Open ]], Cell[CellGroupData[{ -Cell[164945, 4403, 112, 2, 23, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[165060, 4407, 266, 6, 38, "Output",ExpressionUUID->"14e2612d-9fbc-47f4-83b5-5de190731ddb"] +Cell[168094, 4346, 108, 1, 23, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[168205, 4349, 332, 6, 26, "Output",ExpressionUUID->"a2cd9e57-86ba-47ab-b600-8198afd0d960"] }, Open ]], Cell[CellGroupData[{ -Cell[165363, 4418, 112, 2, 23, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[165478, 4422, 267, 6, 38, "Output",ExpressionUUID->"ed2a9e3d-5b40-491e-a22c-44b2435d8dce"] +Cell[168574, 4360, 108, 1, 23, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[168685, 4363, 333, 6, 26, "Output",ExpressionUUID->"b1306736-47e0-485c-9bbf-d3e5989faa81"] }, Open ]], Cell[CellGroupData[{ -Cell[165782, 4433, 112, 2, 23, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[165897, 4437, 247, 5, 38, "Output",ExpressionUUID->"6dbf362e-16a0-4bdf-9195-ea9e005d18e8"] +Cell[169055, 4374, 108, 1, 23, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[169166, 4377, 314, 5, 26, "Output",ExpressionUUID->"90d257cc-b54b-4d66-a02d-8303ed929d68"] }, Open ]], Cell[CellGroupData[{ -Cell[166181, 4447, 111, 2, 23, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[166295, 4451, 250, 5, 38, "Output",ExpressionUUID->"ae5b7579-578a-4e60-8b46-8d3ee0d9124c"] +Cell[169517, 4387, 107, 1, 23, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[169627, 4390, 318, 5, 26, "Output",ExpressionUUID->"648c0fdc-5c6c-4fe8-aa10-c925a2e9b1f3"] }, Open ]], Cell[CellGroupData[{ -Cell[166582, 4461, 111, 2, 23, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[166696, 4465, 249, 5, 38, "Output",ExpressionUUID->"2022e7b2-c8a6-44a7-8cf8-4f8bb9c57922"] +Cell[169982, 4400, 107, 1, 23, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[170092, 4403, 315, 5, 26, "Output",ExpressionUUID->"26d57641-c233-4f18-becc-dfdf7b1bf81c"] }, Open ]], Cell[CellGroupData[{ -Cell[166982, 4475, 501, 17, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[167486, 4494, 266, 6, 38, "Output",ExpressionUUID->"f8422775-18f2-4bc3-883a-379a25f27a06"] +Cell[170444, 4413, 497, 16, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[170944, 4431, 334, 6, 26, "Output",ExpressionUUID->"66286b5e-b7d9-4119-863e-ae28b6287741"] }, Open ]], Cell[CellGroupData[{ -Cell[167789, 4505, 501, 17, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[168293, 4524, 268, 6, 38, "Output",ExpressionUUID->"7e5f4969-e6ae-4a56-b856-0d6058540853"] +Cell[171315, 4442, 497, 16, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[171815, 4460, 336, 6, 26, "Output",ExpressionUUID->"9fc6843a-5ff7-4114-8ef6-28161695f4ab"] }, Open ]], Cell[CellGroupData[{ -Cell[168598, 4535, 1792, 61, 48, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[170393, 4598, 249, 5, 38, "Output",ExpressionUUID->"6b6a750e-0f5e-497d-b28d-c26957761cc7"] +Cell[172188, 4471, 1788, 60, 48, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[173979, 4533, 315, 5, 26, "Output",ExpressionUUID->"0e4958a1-96cc-4635-8bb4-2fc535609ef2"] }, Open ]], Cell[CellGroupData[{ -Cell[170679, 4608, 1105, 37, 48, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[171787, 4647, 264, 6, 38, "Output",ExpressionUUID->"43aa0ca4-8634-48eb-8fe5-765032ca1028"] +Cell[174331, 4543, 1101, 36, 48, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[175435, 4581, 330, 6, 26, "Output",ExpressionUUID->"38121e0e-4f7d-48f5-b272-9d7e6b444d3b"] }, Open ]], Cell[CellGroupData[{ -Cell[172088, 4658, 1822, 62, 95, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[173913, 4722, 246, 5, 38, "Output",ExpressionUUID->"c89536ee-85bd-46ea-a124-114594fabd83"] +Cell[175802, 4592, 1818, 61, 95, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[177623, 4655, 311, 5, 26, "Output",ExpressionUUID->"578f8c4f-2e3d-4535-bd8f-b8b86ea610e0"] }, Open ]], Cell[CellGroupData[{ -Cell[174196, 4732, 1635, 54, 67, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[175834, 4788, 246, 5, 38, "Output",ExpressionUUID->"6b758ceb-beae-4482-8643-2753fd2c8a56"] +Cell[177971, 4665, 1631, 53, 67, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[179605, 4720, 313, 5, 26, "Output",ExpressionUUID->"e609fa81-3c9d-4d2e-8a5b-d4867a687379"] }, Open ]], Cell[CellGroupData[{ -Cell[176117, 4798, 1635, 54, 67, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[177755, 4854, 248, 5, 38, "Output",ExpressionUUID->"45dc3826-b147-4c95-8618-c833789e2142"] +Cell[179955, 4730, 1631, 53, 67, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[181589, 4785, 316, 5, 26, "Output",ExpressionUUID->"7b22d0e7-fe7f-426c-a531-ee45fd5a417f"] }, Open ]], Cell[CellGroupData[{ -Cell[178040, 4864, 231, 5, 23, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[178274, 4871, 214, 4, 38, "Output",ExpressionUUID->"141a2af6-29fc-4033-a088-9ae666b981e1"] +Cell[181942, 4795, 227, 4, 23, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[182172, 4801, 280, 4, 26, "Output",ExpressionUUID->"9badcb5c-4f3e-4f7e-98e2-8110962d5d3b"] }, Open ]], -Cell[178503, 4878, 176, 3, 23, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[182467, 4808, 172, 2, 23, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[178704, 4885, 229, 5, 23, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[178936, 4892, 212, 4, 38, "Output",ExpressionUUID->"bfe98c6e-e43c-438a-8601-84bad445d4bf"] +Cell[182664, 4814, 225, 4, 23, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[182892, 4820, 280, 4, 26, "Output",ExpressionUUID->"78bda8ec-636f-4e9f-8348-73668650363c"] }, Open ]], -Cell[179163, 4899, 177, 3, 23, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[183187, 4827, 173, 2, 23, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[179365, 4906, 1301, 43, 40, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[180669, 4951, 250, 5, 38, "Output",ExpressionUUID->"4202757c-cfad-4b66-8c33-621f0eef70db"] +Cell[183385, 4833, 1297, 42, 40, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[184685, 4877, 318, 5, 26, "Output",ExpressionUUID->"9880f7cb-68d5-45eb-b6d8-96e89134811d"] }, Open ]], Cell[CellGroupData[{ -Cell[180956, 4961, 931, 31, 48, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[181890, 4994, 251, 5, 38, "Output",ExpressionUUID->"76254882-813f-4233-bbe4-fca949721ee2"] +Cell[185040, 4887, 927, 30, 48, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[185970, 4919, 317, 5, 26, "Output",ExpressionUUID->"6316abeb-7945-4c99-bc2f-089d14984077"] }, Open ]], Cell[CellGroupData[{ -Cell[182178, 5004, 907, 30, 48, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[183088, 5036, 252, 5, 38, "Output",ExpressionUUID->"7d0699c8-7e59-4df7-a7c9-e4e2f532d8ee"] +Cell[186324, 4929, 903, 29, 48, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[187230, 4960, 318, 5, 26, "Output",ExpressionUUID->"a57cb488-aaa8-42ba-9794-349fba086c04"] }, Open ]], Cell[CellGroupData[{ -Cell[183377, 5046, 558, 19, 43, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[183938, 5067, 641, 10, 38, "Output",ExpressionUUID->"c08e8af7-0ed5-4c9d-9fac-0da44f517117"] +Cell[187585, 4970, 554, 18, 43, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[188142, 4990, 709, 10, 26, "Output",ExpressionUUID->"927d6a5a-a991-48d4-a0c0-13ed8dc5f9e4"] }, Open ]], Cell[CellGroupData[{ -Cell[184616, 5082, 665, 22, 43, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[185284, 5106, 626, 10, 38, "Output",ExpressionUUID->"e3803f09-6037-4fed-8727-91517691fd6d"] +Cell[188888, 5005, 661, 21, 43, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[189552, 5028, 693, 10, 26, "Output",ExpressionUUID->"b27c18da-d67f-4168-b44c-87ebc8be5c78"] }, Open ]], Cell[CellGroupData[{ -Cell[185947, 5121, 170, 5, 47, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[186120, 5128, 651, 10, 38, "Output",ExpressionUUID->"96b16079-25df-49e8-88d7-23204fd8153b"] +Cell[190282, 5043, 166, 4, 47, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[190451, 5049, 718, 10, 26, "Output",ExpressionUUID->"03cfc0da-98e1-441e-b7a5-5b9ba0ea3941"] }, Open ]], Cell[CellGroupData[{ -Cell[186808, 5143, 236, 6, 46, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[187047, 5151, 588, 9, 38, "Output",ExpressionUUID->"617024d9-6908-405b-9080-c862dd6d8933"] +Cell[191206, 5064, 232, 5, 46, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[191441, 5071, 657, 9, 26, "Output",ExpressionUUID->"16a78f2a-35fc-44a4-bfc9-cf7794e34b71"] }, Open ]], Cell[CellGroupData[{ -Cell[187672, 5165, 223, 6, 36, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[187898, 5173, 622, 10, 38, "Output",ExpressionUUID->"0a684cd5-ccb1-44c5-b7cd-8dcce7a50542"] +Cell[192135, 5085, 219, 5, 36, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[192357, 5092, 688, 10, 26, "Output",ExpressionUUID->"fdec06fe-2510-42ba-825c-1ff42aa20137"] }, Open ]], Cell[CellGroupData[{ -Cell[188557, 5188, 181, 5, 36, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[188741, 5195, 642, 10, 38, "Output",ExpressionUUID->"ec1116b1-981a-45f9-bada-2881cf32b947"] +Cell[193082, 5107, 177, 4, 36, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[193262, 5113, 707, 10, 26, "Output",ExpressionUUID->"eff75831-6eec-4264-a07e-06e0121c56d5"] }, Open ]], Cell[CellGroupData[{ -Cell[189420, 5210, 6055, 185, 161, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[195478, 5397, 620, 10, 38, "Output",ExpressionUUID->"c4678e11-4d8d-4d72-81f5-f33a7a7c8324"] +Cell[194006, 5128, 6051, 184, 161, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[200060, 5314, 686, 10, 26, "Output",ExpressionUUID->"a11da365-23e7-4637-90e3-f23027bda11d"] }, Open ]], Cell[CellGroupData[{ -Cell[196135, 5412, 410, 10, 46, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[196548, 5424, 639, 10, 51, "Output",ExpressionUUID->"edeb9065-13fa-4686-bbf1-ac171c459522"] +Cell[200783, 5329, 406, 9, 46, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[201192, 5340, 705, 10, 39, "Output",ExpressionUUID->"cd060f02-d795-4661-9dec-01d8a3df6742"] }, Open ]], -Cell[197202, 5437, 492, 10, 23, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[201912, 5353, 488, 9, 23, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[197719, 5451, 558, 19, 43, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[198280, 5472, 245, 5, 38, "Output",ExpressionUUID->"baaf67ab-827e-403b-8f42-9a13f16ea83d"] +Cell[202425, 5366, 554, 18, 43, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[202982, 5386, 310, 5, 26, "Output",ExpressionUUID->"b45d740d-2124-4a34-8528-bb737b1c9d54"] }, Open ]], Cell[CellGroupData[{ -Cell[198562, 5482, 623, 21, 43, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[199188, 5505, 251, 5, 38, "Output",ExpressionUUID->"a90da9f1-eebb-47e0-b78a-07c9da4802a5"] +Cell[203329, 5396, 619, 20, 43, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], +Cell[203951, 5418, 320, 5, 26, "Output",ExpressionUUID->"7bfbfe1a-e321-46de-b110-d210971ea271"] }, Open ]], Cell[CellGroupData[{ -Cell[199476, 5515, 170, 5, 47, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[199649, 5522, 245, 5, 38, "Output",ExpressionUUID->"421773b7-8092-4ef2-a4cd-403504f2fef3"] +Cell[204308, 5428, 166, 4, 47, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[204477, 5434, 310, 5, 26, "Output",ExpressionUUID->"04dc38b9-e2a9-41d0-87da-1da9610e899f"] }, Open ]], Cell[CellGroupData[{ -Cell[199931, 5532, 170, 5, 46, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[200104, 5539, 245, 5, 38, "Output",ExpressionUUID->"f4d9a0d6-910a-417d-9dc0-a0a8c44f8be7"] +Cell[204824, 5444, 166, 4, 46, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[204993, 5450, 312, 5, 26, "Output",ExpressionUUID->"12ee275a-994d-4558-8bce-85e65c70f45d"] }, Open ]], Cell[CellGroupData[{ -Cell[200386, 5549, 181, 5, 36, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[200570, 5556, 250, 5, 38, "Output",ExpressionUUID->"2b807495-1908-4402-93fe-f113e8aabd3e"] +Cell[205342, 5460, 177, 4, 36, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[205522, 5466, 317, 5, 26, "Output",ExpressionUUID->"2c65ac14-44f6-458a-b737-ddc21e9803da"] }, Open ]], Cell[CellGroupData[{ -Cell[200857, 5566, 181, 5, 36, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[201041, 5573, 247, 5, 38, "Output",ExpressionUUID->"b6c899f9-f400-49a6-8168-06f26a45da5d"] +Cell[205876, 5476, 177, 4, 36, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[206056, 5482, 313, 5, 26, "Output",ExpressionUUID->"83e76410-18c7-4252-8e44-1362e95f47f8"] }, Open ]], Cell[CellGroupData[{ -Cell[201325, 5583, 6055, 185, 161, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[207383, 5770, 250, 5, 38, "Output",ExpressionUUID->"4479d76b-7491-4a3f-b06f-16880dc5a0ef"] +Cell[206406, 5492, 6051, 184, 161, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[212460, 5678, 316, 5, 26, "Output",ExpressionUUID->"aeebb0a9-0406-444e-8c08-b91e92d41bf0"] }, Open ]], Cell[CellGroupData[{ -Cell[207670, 5780, 368, 9, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[208041, 5791, 248, 5, 38, "Output",ExpressionUUID->"024ec93f-17ca-4658-8a03-3afd41e4c3e0"] +Cell[212813, 5688, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[213180, 5698, 318, 5, 26, "Output",ExpressionUUID->"2ad19dfe-64cc-405c-8ac0-b4884e781493"] }, Open ]], Cell[CellGroupData[{ -Cell[208326, 5801, 6122, 187, 161, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[214451, 5990, 252, 5, 38, "Output",ExpressionUUID->"1fd09d0b-9244-454a-bed1-2f3ea4e5e115"] +Cell[213535, 5708, 6118, 186, 161, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[219656, 5896, 317, 5, 26, "Output",ExpressionUUID->"db2f3f10-4f13-4545-a16a-937b8b9055aa"] }, Open ]], Cell[CellGroupData[{ -Cell[214740, 6000, 368, 9, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[215111, 6011, 250, 5, 38, "Output",ExpressionUUID->"94e305b6-9dcc-4d6f-b3e7-299f5f63a79d"] +Cell[220010, 5906, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[220377, 5916, 315, 5, 26, "Output",ExpressionUUID->"00fe4cf2-396b-4e7a-a1ed-7907bd016d50"] }, Open ]], Cell[CellGroupData[{ -Cell[215398, 6021, 2663, 88, 95, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[218064, 6111, 250, 5, 38, "Output",ExpressionUUID->"b117c166-37cb-4b37-acc4-6eaa56713997"] +Cell[220729, 5926, 2659, 87, 95, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[223391, 6015, 317, 5, 26, "Output",ExpressionUUID->"071391a5-d3e7-4340-be9a-ae168e518bd3"] }, Open ]], Cell[CellGroupData[{ -Cell[218351, 6121, 2603, 85, 95, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[220957, 6208, 250, 5, 38, "Output",ExpressionUUID->"cf19afb5-ba62-43de-be39-f0d7996fe117"] +Cell[223745, 6025, 2599, 84, 95, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[226347, 6111, 318, 5, 26, "Output",ExpressionUUID->"6859d4f6-6590-4aea-8fcd-3ce591184b81"] }, Open ]], Cell[CellGroupData[{ -Cell[221244, 6218, 3712, 118, 142, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[224959, 6338, 247, 5, 38, "Output",ExpressionUUID->"417ba3b9-5ad4-4d19-b038-f2dd42742a67"] +Cell[226702, 6121, 3708, 117, 142, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[230413, 6240, 315, 5, 26, "Output",ExpressionUUID->"1c599b7f-6cd2-4924-aeea-5a767e2a6b61"] }, Open ]], -Cell[225221, 6346, 164, 4, 23, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[230743, 6248, 164, 4, 23, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[225410, 6354, 2075, 59, 83, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[227488, 6415, 627, 14, 34, "Message",ExpressionUUID->"cd11c104-0461-4ccd-8b44-a0629a10a746"], -Cell[228118, 6431, 630, 14, 34, "Message",ExpressionUUID->"3ad96694-6bb0-4ac2-bcea-12b43ad052e8"], -Cell[228751, 6447, 633, 14, 34, "Message",ExpressionUUID->"d9c6348a-4a27-4c98-b36b-87cfda36d8df"], -Cell[229387, 6463, 547, 13, 20, "Message",ExpressionUUID->"f19dd9c7-089c-4786-ba12-8dc7c0748da5"], -Cell[229937, 6478, 222, 4, 26, "Output",ExpressionUUID->"daaea48c-eff0-45d8-a383-181959a3c139"] +Cell[230932, 6256, 2075, 59, 83, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[233010, 6317, 692, 15, 34, "Message",ExpressionUUID->"7db6caf8-603d-4fa7-bd72-3b4e5c098e6b"], +Cell[233705, 6334, 694, 15, 34, "Message",ExpressionUUID->"0be7410d-16be-4290-97e6-4a435cd336c5"], +Cell[234402, 6351, 697, 15, 34, "Message",ExpressionUUID->"f3c5f3d4-d0e5-4495-b7da-61a995a837d2"], +Cell[235102, 6368, 615, 14, 20, "Message",ExpressionUUID->"6f4809bd-2089-4388-bda3-08306751de88"], +Cell[235720, 6384, 293, 5, 38, "Output",ExpressionUUID->"a115185a-2415-494f-a578-7cb4abdf8b36"] }, Open ]], Cell[CellGroupData[{ -Cell[230196, 6487, 2077, 59, 83, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[232276, 6548, 601, 13, 34, "Message",ExpressionUUID->"d40bf55f-4a8e-46f2-9c9e-4757cf957859"], -Cell[232880, 6563, 604, 13, 34, "Message",ExpressionUUID->"72f464c4-d55f-43c4-b43d-d1214166f909"], -Cell[233487, 6578, 607, 13, 34, "Message",ExpressionUUID->"37693fff-db52-4e6a-86a6-828e55fbca3d"], -Cell[234097, 6593, 519, 12, 20, "Message",ExpressionUUID->"a75008c2-9ac4-4918-b479-42cac89772da"], -Cell[234619, 6607, 209, 4, 26, "Output",ExpressionUUID->"9fd1adeb-3b53-4eab-a270-24732c5debbe"] +Cell[236050, 6394, 2077, 59, 83, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[238130, 6455, 642, 14, 34, "Message",ExpressionUUID->"e02619c9-50c4-4524-b40f-61bcf37d6afe"], +Cell[238775, 6471, 644, 14, 34, "Message",ExpressionUUID->"b26ba89a-02c0-4164-a23d-a82474a65e86"], +Cell[239422, 6487, 647, 14, 34, "Message",ExpressionUUID->"2c7657ae-b6ce-4044-bf32-ed04068b87b8"], +Cell[240072, 6503, 568, 13, 20, "Message",ExpressionUUID->"e3c55c4d-ef28-42d3-9e28-2c6477257f0c"], +Cell[240643, 6518, 267, 5, 38, "Output",ExpressionUUID->"6e5df828-8d19-4ac9-b329-67aa79451167"] }, Open ]], Cell[CellGroupData[{ -Cell[234865, 6616, 1961, 53, 61, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[236829, 6671, 211, 4, 38, "Output",ExpressionUUID->"672a2f93-3138-4dba-b849-07d133aa8f1f"] +Cell[240947, 6528, 1961, 53, 61, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[242911, 6583, 20424, 385, 197, "Output",ExpressionUUID->"ad96e8ef-a370-4562-b2ab-d65bef6c9fcf"] }, Open ]], Cell[CellGroupData[{ -Cell[237077, 6680, 2094, 60, 83, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[239174, 6742, 497, 11, 34, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[239674, 6755, 501, 11, 34, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[240178, 6768, 503, 11, 34, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[240684, 6781, 455, 10, 20, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[241142, 6793, 43631, 762, 186, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[263372, 6973, 2117, 60, 83, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[265492, 7035, 552, 13, 34, "Message",ExpressionUUID->"3ad43e01-ee23-4107-a832-45c4f85f76d2"], +Cell[266047, 7050, 556, 13, 34, "Message",ExpressionUUID->"7c2addad-1d59-413c-8511-162ca08ee807"], +Cell[266606, 7065, 557, 13, 34, "Message",ExpressionUUID->"cbbc48d8-6759-4141-b2bd-1855b9735a3c"], +Cell[267166, 7080, 515, 12, 20, "Message",ExpressionUUID->"b3f67f4a-8474-456a-8805-94bd8e10cd2c"], +Cell[267684, 7094, 21960, 409, 197, "Output",ExpressionUUID->"49a808fe-7cc5-491e-8439-e492d1cf8d97"] }, Open ]], -Cell[284788, 7558, 232, 6, 23, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[285023, 7566, 209, 5, 23, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[285257, 7575, 212, 6, 40, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[285472, 7583, 168, 2, 26, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[289681, 7508, 2479, 70, 57, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[292163, 7580, 9530, 223, 191, "Output",ExpressionUUID->"c391da1b-a551-4080-af1e-0f3647b659c1"] }, Open ]], Cell[CellGroupData[{ -Cell[285677, 7590, 1814, 53, 83, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[287494, 7645, 505, 11, 34, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[288002, 7658, 509, 11, 34, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[288514, 7671, 508, 11, 34, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[289025, 7684, 455, 10, 20, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[289483, 7696, 22399, 414, 188, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[301730, 7808, 232, 5, 23, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[301965, 7815, 28329, 540, 186, "Output",ExpressionUUID->"5b506e25-b1fd-4d0e-8fb4-ff4d298ce6d8"] }, Open ]], Cell[CellGroupData[{ -Cell[311919, 8115, 1612, 47, 60, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[313534, 8164, 581, 12, 34, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[314118, 8178, 584, 12, 34, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[314705, 8192, 590, 12, 34, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[315298, 8206, 455, 10, 20, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[315756, 8218, 169, 2, 26, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[330331, 8360, 237, 7, 40, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[330571, 8369, 221, 4, 38, "Output",ExpressionUUID->"93d1e836-7cc1-4710-88a0-ba6ab725c7cf"] }, Open ]], Cell[CellGroupData[{ -Cell[315962, 8225, 2249, 64, 54, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[318214, 8291, 557, 12, 34, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[318774, 8305, 560, 12, 34, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[319337, 8319, 560, 12, 34, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[319900, 8333, 455, 10, 20, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[320358, 8345, 169, 2, 26, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[330829, 8378, 1837, 53, 83, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[332669, 8433, 571, 13, 34, "Message",ExpressionUUID->"37634bb2-42c8-461e-ae83-c30194f6f237"], +Cell[333243, 8448, 570, 13, 34, "Message",ExpressionUUID->"47c3577a-4873-43f5-8e4f-cfeaef79f929"], +Cell[333816, 8463, 573, 13, 34, "Message",ExpressionUUID->"1711433a-0979-406b-940e-55079bd56e0f"], +Cell[334392, 8478, 519, 12, 20, "Message",ExpressionUUID->"516b1aaa-a562-46a1-b7f2-3eb0d60f6990"], +Cell[334914, 8492, 21860, 406, 188, "Output",ExpressionUUID->"441956a8-144e-4cd4-a3fb-4eec918ab3ca"] }, Open ]], Cell[CellGroupData[{ -Cell[320564, 8352, 2221, 64, 54, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[322788, 8418, 554, 12, 34, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[323345, 8432, 560, 12, 34, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[323908, 8446, 560, 12, 34, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[324471, 8460, 455, 10, 20, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[324929, 8472, 169, 2, 26, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[356811, 8903, 1616, 48, 60, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[358430, 8953, 653, 14, 34, "Message",ExpressionUUID->"135ea8ce-f120-4aa8-8f3f-d102b128839d"], +Cell[359086, 8969, 658, 14, 34, "Message",ExpressionUUID->"976ff930-5454-42c0-bcd9-ef8f65e2684e"], +Cell[359747, 8985, 659, 14, 34, "Message",ExpressionUUID->"f03a0b4a-d5e9-42c3-b425-e803ce32a17d"], +Cell[360409, 9001, 514, 12, 20, "Message",ExpressionUUID->"036a2407-eb32-46e7-bda2-6faffb95b6d2"], +Cell[360926, 9015, 222, 4, 26, "Output",ExpressionUUID->"8280ebee-f859-4124-9606-583a6bb1eace"] }, Open ]], Cell[CellGroupData[{ -Cell[325135, 8479, 2223, 64, 54, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[327361, 8545, 555, 12, 34, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[327919, 8559, 558, 12, 34, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[328480, 8573, 560, 12, 34, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[329043, 8587, 453, 10, 20, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[329499, 8599, 167, 2, 26, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[361185, 9024, 2272, 64, 54, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[363460, 9090, 594, 13, 34, "Message",ExpressionUUID->"a92f221d-5234-410d-bfb3-08bee04306b8"], +Cell[364057, 9105, 599, 13, 34, "Message",ExpressionUUID->"e5d6e4c3-1d18-4242-8a76-1559d827019d"], +Cell[364659, 9120, 600, 13, 34, "Message",ExpressionUUID->"53d4374b-ca77-4069-894e-ead97439d03a"], +Cell[365262, 9135, 519, 12, 20, "Message",ExpressionUUID->"adef9b11-7ddb-4ead-b267-80f8d857763f"], +Cell[365784, 9149, 221, 4, 26, "Output",ExpressionUUID->"e9b48143-3517-49fd-98a3-83fb4143abce"] }, Open ]], Cell[CellGroupData[{ -Cell[329703, 8606, 213, 6, 39, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[329919, 8614, 169, 2, 26, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[366042, 9158, 2233, 63, 54, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[368278, 9223, 592, 13, 34, "Message",ExpressionUUID->"f09165b4-2803-440d-92db-99f331c3508b"], +Cell[368873, 9238, 596, 13, 34, "Message",ExpressionUUID->"d98fd29a-1786-454a-b465-232c787afb76"], +Cell[369472, 9253, 597, 13, 34, "Message",ExpressionUUID->"ac6a0de0-1ef2-4b0e-bbdf-be6e79ee1d5f"], +Cell[370072, 9268, 518, 12, 20, "Message",ExpressionUUID->"53f3f8e4-b1d1-4da0-86e9-47cfd30a10c3"], +Cell[370593, 9282, 220, 4, 26, "Output",ExpressionUUID->"4b6db8dd-8a1f-4269-a211-a0e76df118eb"] }, Open ]], -Cell[330103, 8619, 247, 5, 23, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[330375, 8628, 554, 18, 43, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[330932, 8648, 167, 2, 26, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[370850, 9291, 2235, 63, 54, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[373088, 9356, 591, 13, 34, "Message",ExpressionUUID->"49337afd-d206-4e37-a7ee-a4ab54349c86"], +Cell[373682, 9371, 593, 13, 34, "Message",ExpressionUUID->"4c524947-ac54-4a97-a1e8-044705858848"], +Cell[374278, 9386, 598, 13, 34, "Message",ExpressionUUID->"2126c628-88dd-4a7e-bf5c-ff76059ec17f"], +Cell[374879, 9401, 515, 12, 20, "Message",ExpressionUUID->"ae6fe6fa-e5e1-423a-bb59-88acc4603231"], +Cell[375397, 9415, 216, 4, 26, "Output",ExpressionUUID->"14c2fac3-3d10-4687-8c68-d6a5978f1964"] }, Open ]], Cell[CellGroupData[{ -Cell[331136, 8655, 166, 4, 47, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[331305, 8661, 169, 2, 26, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[375650, 9424, 236, 6, 39, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[375889, 9432, 221, 4, 38, "Output",ExpressionUUID->"8db47ff3-3fae-425a-9ccb-de0d3b44a0bc"] }, Open ]], +Cell[376125, 9439, 273, 6, 23, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[331511, 8668, 181, 5, 36, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[331695, 8675, 173, 3, 26, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[376423, 9449, 558, 19, 43, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[376984, 9470, 218, 4, 38, "Output",ExpressionUUID->"59104d31-2bc0-4ed1-aeb2-29363aeb69e1"] }, Open ]], Cell[CellGroupData[{ -Cell[331905, 8683, 6055, 185, 161, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[337963, 8870, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[377239, 9479, 170, 5, 47, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[377412, 9486, 220, 4, 38, "Output",ExpressionUUID->"0a518d21-c9b1-4c0f-828d-1669bbc3b949"] }, Open ]], Cell[CellGroupData[{ -Cell[338172, 8878, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[338543, 8889, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[377669, 9495, 181, 5, 36, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[377853, 9502, 221, 4, 38, "Output",ExpressionUUID->"b927d1ef-7516-4d5e-b505-eae4c106b95a"] }, Open ]], Cell[CellGroupData[{ -Cell[338750, 8897, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[344875, 9086, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[378111, 9511, 6055, 185, 161, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[384169, 9698, 220, 4, 38, "Output",ExpressionUUID->"501baae9-3ff8-4dd0-ac89-8855a6eda457"] }, Open ]], Cell[CellGroupData[{ -Cell[345087, 9094, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[345458, 9105, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[384426, 9707, 368, 9, 33, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[384797, 9718, 218, 4, 38, "Output",ExpressionUUID->"ab5d7f40-c40b-41a3-abea-48e825c38038"] }, Open ]], Cell[CellGroupData[{ -Cell[345664, 9113, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[348330, 9203, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[385052, 9727, 6122, 187, 161, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[391177, 9916, 222, 4, 38, "Output",ExpressionUUID->"94994ab9-aa21-43ea-b5f2-3d96ba32743b"] }, Open ]], Cell[CellGroupData[{ -Cell[348540, 9211, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[351146, 9298, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[391436, 9925, 368, 9, 33, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[391807, 9936, 217, 4, 38, "Output",ExpressionUUID->"85658680-64d9-4a60-bdda-76d960ded228"] }, Open ]], Cell[CellGroupData[{ -Cell[351354, 9306, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[355069, 9426, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[392061, 9945, 2663, 88, 95, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[394727, 10035, 221, 4, 38, "Output",ExpressionUUID->"2d51783c-afdf-4213-9211-2c474efddaa8"] }, Open ]], Cell[CellGroupData[{ -Cell[355277, 9434, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[357332, 9495, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[357907, 9509, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[358483, 9523, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[359064, 9537, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[359524, 9549, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[394985, 10044, 2603, 85, 95, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[397591, 10131, 220, 4, 38, "Output",ExpressionUUID->"188a0ad5-35b2-41a6-94ee-ccbce6057b68"] }, Open ]], Cell[CellGroupData[{ -Cell[359733, 9557, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[361790, 9618, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[362365, 9632, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[362943, 9646, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[363522, 9660, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[363982, 9672, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[397848, 10140, 3712, 118, 142, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[401563, 10260, 221, 4, 38, "Output",ExpressionUUID->"0ca39747-8a96-471e-bf8d-15452f283026"] }, Open ]], Cell[CellGroupData[{ -Cell[364189, 9680, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[366222, 9737, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[401821, 10269, 2075, 59, 83, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[403899, 10330, 600, 13, 34, "Message",ExpressionUUID->"bc111cd5-5fd8-4507-b188-207226a9e4f9"], +Cell[404502, 10345, 604, 13, 34, "Message",ExpressionUUID->"7f5c8d8d-cc14-4316-ab12-beb94b77f023"], +Cell[405109, 10360, 612, 14, 34, "Message",ExpressionUUID->"9e8931b1-3e05-4de1-b53a-3ffd33cd1401"], +Cell[405724, 10376, 517, 12, 20, "Message",ExpressionUUID->"53ad88bc-43a6-40cf-a6da-73bf26f261ac"], +Cell[406244, 10390, 220, 4, 26, "Output",ExpressionUUID->"d4c879ec-e026-4f7d-bbd3-aba13436762a"] }, Open ]], Cell[CellGroupData[{ -Cell[386636, 10126, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[388757, 10188, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[389259, 10201, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[389766, 10214, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[390276, 10227, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[390734, 10239, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[406501, 10399, 2077, 59, 83, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[408581, 10460, 602, 13, 34, "Message",ExpressionUUID->"557b3f01-2a39-4087-89ae-7c46da5b7253"], +Cell[409186, 10475, 604, 13, 34, "Message",ExpressionUUID->"d412ad5a-69e7-4523-aeb8-28e3d00fbd49"], +Cell[409793, 10490, 612, 14, 34, "Message",ExpressionUUID->"4f342b01-74fe-4d07-a0b8-d22388e5d012"], +Cell[410408, 10506, 519, 12, 20, "Message",ExpressionUUID->"1b4ec0e4-fada-416a-85eb-c6d39373919b"], +Cell[410930, 10520, 219, 4, 26, "Output",ExpressionUUID->"4e9b4665-55b6-41d6-bd23-a464e304e474"] }, Open ]], -Cell[413130, 10657, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[413307, 10662, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[413541, 10671, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[415160, 10721, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[415757, 10735, 594, 12, 34, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[416354, 10749, 598, 12, 34, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[416955, 10763, 457, 10, 20, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[417415, 10775, 171, 3, 26, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[411186, 10529, 2053, 55, 45, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[413242, 10586, 20519, 387, 186, "Output",ExpressionUUID->"41a9957a-7c82-4d93-94f2-a6b1a99866d2"] }, Open ]], Cell[CellGroupData[{ -Cell[417623, 10783, 2247, 64, 54, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[419873, 10849, 572, 12, 34, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[420448, 10863, 573, 12, 34, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[421024, 10877, 578, 12, 34, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[421605, 10891, 455, 10, 20, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[422063, 10903, 172, 3, 26, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[433798, 10978, 2141, 60, 83, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[435942, 11040, 557, 13, 34, "Message",ExpressionUUID->"0ef15e2f-9fc1-4093-a615-184315c7a3f9"], +Cell[436502, 11055, 557, 13, 34, "Message",ExpressionUUID->"063254a0-c64d-4cf3-afbe-538c1403f093"], +Cell[437062, 11070, 559, 13, 34, "Message",ExpressionUUID->"ecf85bb7-1ee4-4d4f-854e-e4d2445c1d0b"], +Cell[437624, 11085, 514, 12, 20, "Message",ExpressionUUID->"e3ab4f74-fa87-426c-aa19-a58466c8d733"], +Cell[438141, 11099, 22408, 415, 186, "Output",ExpressionUUID->"3fa73378-f3e5-45ca-a0f7-12cf19f86f32"] }, Open ]], +Cell[460564, 11517, 200, 4, 23, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], Cell[CellGroupData[{ -Cell[422272, 10911, 2221, 64, 54, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[424496, 10977, 570, 12, 34, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[425069, 10991, 573, 12, 34, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[425645, 11005, 578, 12, 34, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[426226, 11019, 455, 10, 20, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[426684, 11031, 172, 3, 26, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[460789, 11525, 232, 5, 23, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[461024, 11532, 28783, 546, 186, "Output",ExpressionUUID->"42044614-f7f6-45ab-bd4c-cc32c3a7e481"] }, Open ]], Cell[CellGroupData[{ -Cell[426893, 11039, 2221, 64, 54, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[429117, 11105, 572, 12, 34, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[429692, 11119, 575, 12, 34, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[430270, 11133, 578, 12, 34, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[430851, 11147, 455, 10, 20, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[431309, 11159, 173, 3, 26, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[489844, 12083, 1616, 48, 60, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[491463, 12133, 664, 14, 34, "Message",ExpressionUUID->"32aa89b4-3db6-4ffc-b582-e74ee5524db1"], +Cell[492130, 12149, 667, 14, 34, "Message",ExpressionUUID->"07cc474b-2120-48de-ad7e-cff2c81bf674"], +Cell[492800, 12165, 670, 14, 34, "Message",ExpressionUUID->"8aa089c4-56ae-43ef-a7ae-8e5e93812027"], +Cell[493473, 12181, 516, 12, 20, "Message",ExpressionUUID->"22b991f2-d702-4717-9625-8f1ad738fe51"], +Cell[493992, 12195, 219, 4, 26, "Output",ExpressionUUID->"a93e7be2-9fdf-495e-a50d-6b6120d5e257"] }, Open ]], Cell[CellGroupData[{ -Cell[431519, 11167, 213, 6, 39, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[431735, 11175, 172, 3, 26, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[494248, 12204, 2270, 64, 54, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[496521, 12270, 602, 13, 34, "Message",ExpressionUUID->"4e05632b-f6e7-4e5f-a7d7-0c1f7eeb7c33"], +Cell[497126, 12285, 606, 13, 34, "Message",ExpressionUUID->"2cb142ab-76ef-4861-a6cf-8b2fdc980f52"], +Cell[497735, 12300, 612, 14, 34, "Message",ExpressionUUID->"55a231d1-7086-413c-899d-ea00776be94f"], +Cell[498350, 12316, 519, 12, 20, "Message",ExpressionUUID->"81f72747-8601-4ecc-9173-c199adb51395"], +Cell[498872, 12330, 221, 4, 26, "Output",ExpressionUUID->"f2d1f356-e853-40e9-bf20-22501833ddbc"] }, Open ]], -Cell[431922, 11181, 245, 5, 23, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[432192, 11190, 558, 19, 43, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[432753, 11211, 173, 3, 26, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[499130, 12339, 2233, 63, 54, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[501366, 12404, 598, 13, 34, "Message",ExpressionUUID->"04b6533d-ca5a-4045-ac29-267b9286b928"], +Cell[501967, 12419, 602, 13, 34, "Message",ExpressionUUID->"70e42bbf-7ef9-4ac4-a1d7-f94a2bdd33c4"], +Cell[502572, 12434, 610, 14, 34, "Message",ExpressionUUID->"5c90723f-4071-4af6-9181-15c425b12d88"], +Cell[503185, 12450, 515, 12, 20, "Message",ExpressionUUID->"0dec2a71-e4cd-4e4a-8a6e-ae91ed933c7f"], +Cell[503703, 12464, 219, 4, 26, "Output",ExpressionUUID->"48020119-d6ca-4886-8195-e68be3d20f4d"] }, Open ]], Cell[CellGroupData[{ -Cell[432963, 11219, 170, 5, 47, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[433136, 11226, 171, 3, 26, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[503959, 12473, 2233, 63, 54, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[506195, 12538, 600, 13, 34, "Message",ExpressionUUID->"b79c892f-6849-42fe-968f-76ab8d8f0e05"], +Cell[506798, 12553, 606, 13, 34, "Message",ExpressionUUID->"54087548-32ca-4f45-921f-f81e6260ee68"], +Cell[507407, 12568, 612, 14, 34, "Message",ExpressionUUID->"2e14c20d-bf46-4b14-b595-7b7c322f9a4c"], +Cell[508022, 12584, 519, 12, 20, "Message",ExpressionUUID->"0176345c-efe8-457b-9853-3de244cc0c33"], +Cell[508544, 12598, 217, 4, 26, "Output",ExpressionUUID->"e2a295a0-19ee-4f53-aea5-ff537ae4b5e3"] }, Open ]], Cell[CellGroupData[{ -Cell[433344, 11234, 181, 5, 36, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[433528, 11241, 173, 3, 26, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[508798, 12607, 236, 6, 39, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[509037, 12615, 220, 4, 38, "Output",ExpressionUUID->"1a052e0e-1eff-4b73-9436-4248b2d66f1e"] }, Open ]], +Cell[509272, 12622, 271, 6, 23, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[433738, 11249, 6055, 185, 161, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[439796, 11436, 175, 3, 26, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[509568, 12632, 558, 19, 43, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[510129, 12653, 220, 4, 38, "Output",ExpressionUUID->"fdc1488b-4862-4014-a9b0-2dbfd83a3646"] }, Open ]], Cell[CellGroupData[{ -Cell[440008, 11444, 368, 9, 33, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[440379, 11455, 170, 3, 26, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[510386, 12662, 170, 5, 47, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[510559, 12669, 218, 4, 38, "Output",ExpressionUUID->"786e2a27-4966-4790-98e8-5ecac59d9982"] }, Open ]], Cell[CellGroupData[{ -Cell[440586, 11463, 6122, 187, 161, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[446711, 11652, 175, 3, 26, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[510814, 12678, 181, 5, 36, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[510998, 12685, 222, 4, 38, "Output",ExpressionUUID->"bb8a3557-f77f-4b15-9ea0-fb7ff8c8d1af"] }, Open ]], Cell[CellGroupData[{ -Cell[446923, 11660, 368, 9, 33, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[447294, 11671, 172, 3, 26, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[511257, 12694, 6055, 185, 161, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[517315, 12881, 226, 4, 38, "Output",ExpressionUUID->"4b7fe0ae-c8e5-497a-921e-23c5d24c4aa3"] }, Open ]], Cell[CellGroupData[{ -Cell[447503, 11679, 2663, 88, 95, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[450169, 11769, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[517578, 12890, 368, 9, 33, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[517949, 12901, 220, 4, 38, "Output",ExpressionUUID->"844cf85f-0d4f-444b-99cb-fd41d12eeda4"] }, Open ]], Cell[CellGroupData[{ -Cell[450379, 11777, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[452985, 11864, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[518206, 12910, 6122, 187, 161, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[524331, 13099, 223, 4, 38, "Output",ExpressionUUID->"6121ec03-5cd8-4342-af99-7cae1ac642ba"] }, Open ]], Cell[CellGroupData[{ -Cell[453193, 11872, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[456908, 11992, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[524591, 13108, 368, 9, 33, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[524962, 13119, 219, 4, 38, "Output",ExpressionUUID->"fb0d77e1-2c3d-4556-b2b8-6732b0f6faed"] }, Open ]], Cell[CellGroupData[{ -Cell[457116, 12000, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[459171, 12061, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[459742, 12075, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[460317, 12089, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[460894, 12103, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[461354, 12115, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[525218, 13128, 2663, 88, 95, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[527884, 13218, 221, 4, 38, "Output",ExpressionUUID->"cc6506e9-1013-4e66-8195-69c8244462d8"] }, Open ]], Cell[CellGroupData[{ -Cell[461563, 12123, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[463620, 12184, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[464191, 12198, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[464766, 12212, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[465343, 12226, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[465803, 12238, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[528142, 13227, 2603, 85, 95, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[530748, 13314, 219, 4, 38, "Output",ExpressionUUID->"4b266010-df55-4b9d-9597-9b35afca2dc7"] }, Open ]], Cell[CellGroupData[{ -Cell[466011, 12246, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[468044, 12303, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[531004, 13323, 3712, 118, 142, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[534719, 13443, 219, 4, 38, "Output",ExpressionUUID->"706fd30e-af9f-4537-8fa5-e10481af0f63"] }, Open ]], Cell[CellGroupData[{ -Cell[488041, 12683, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[490162, 12745, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[490661, 12758, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[491165, 12771, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[491673, 12784, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[492131, 12796, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[534975, 13452, 2075, 59, 83, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[537053, 13513, 589, 13, 34, "Message",ExpressionUUID->"8ab7f02a-146b-4f39-88d2-f3bcd3ac1755"], +Cell[537645, 13528, 595, 13, 34, "Message",ExpressionUUID->"87dd7c66-9ce9-4388-bf1f-1b9553b297ca"], +Cell[538243, 13543, 598, 13, 34, "Message",ExpressionUUID->"f960c8ff-ff8a-4394-97dc-c4338cddc6c5"], +Cell[538844, 13558, 517, 12, 20, "Message",ExpressionUUID->"48ee5bb9-8cb1-4cad-9919-2ccd954c8720"], +Cell[539364, 13572, 220, 4, 26, "Output",ExpressionUUID->"df139cf8-6c2b-41c0-8fca-b24ea3666d21"] }, Open ]], -Cell[513867, 13202, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[514051, 13207, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[514283, 13216, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[515902, 13266, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[516494, 13280, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[517085, 13294, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[517682, 13308, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[518140, 13320, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[539621, 13581, 2077, 59, 83, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[541701, 13642, 591, 13, 34, "Message",ExpressionUUID->"45204b2d-dcf5-4783-9d88-634ac15bfe4a"], +Cell[542295, 13657, 595, 13, 34, "Message",ExpressionUUID->"3cd5935f-5020-4895-89a4-4edbcd033bcd"], +Cell[542893, 13672, 600, 13, 34, "Message",ExpressionUUID->"930ad625-a227-4fb2-94a9-d5ca28c459f4"], +Cell[543496, 13687, 519, 12, 20, "Message",ExpressionUUID->"a9e9a4d0-61a8-4633-ad6a-f774adb44867"], +Cell[544018, 13701, 171, 3, 26, "Output",ExpressionUUID->"2ef48bfb-7593-4459-a2e3-5ee63bbc1568"] }, Open ]], Cell[CellGroupData[{ -Cell[518350, 13328, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[520599, 13394, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[521168, 13408, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[521741, 13422, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[522318, 13436, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[522777, 13448, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[544226, 13709, 2053, 55, 45, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[546282, 13766, 20246, 382, 186, "Output",ExpressionUUID->"c79f0671-ba93-466b-ae0a-f3a5242ab6c2"] }, Open ]], Cell[CellGroupData[{ -Cell[522985, 13456, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[525209, 13522, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[525781, 13536, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[526355, 13550, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[526933, 13564, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[527394, 13576, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[566565, 14153, 2141, 60, 83, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[568709, 14215, 526, 12, 34, "Message",ExpressionUUID->"9cf51190-ce7d-4baa-abaa-74e307a7f05e"], +Cell[569238, 14229, 529, 12, 34, "Message",ExpressionUUID->"43e9eb0f-a6b0-4b47-ac07-a433dce9d49f"], +Cell[569770, 14243, 488, 11, 20, "Message",ExpressionUUID->"80f50f78-4ca3-42b4-b33e-aa38cce9eb00"], +Cell[570261, 14256, 492, 11, 20, "Message",ExpressionUUID->"89b0a6f6-f52f-4f36-9a51-70270bf30bcd"], +Cell[570756, 14269, 21993, 408, 186, "Output",ExpressionUUID->"14d04d0a-f726-4e82-97d5-fe7167decbbf"] }, Open ]], +Cell[592764, 14680, 207, 4, 23, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], Cell[CellGroupData[{ -Cell[527602, 13584, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[529828, 13650, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[530398, 13664, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[530972, 13678, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[531548, 13692, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[532007, 13704, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[592996, 14688, 230, 5, 23, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[593229, 14695, 28367, 540, 186, "Output",ExpressionUUID->"d49d95b6-1bd5-472b-915e-01cbd2a2587c"] }, Open ]], Cell[CellGroupData[{ -Cell[532217, 13712, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[532431, 13720, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] -}, Open ]] +Cell[621633, 15240, 1616, 48, 60, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[623252, 15290, 636, 13, 34, "Message",ExpressionUUID->"b2cd1bd0-2f96-4723-9335-dd235a6d6316"], +Cell[623891, 15305, 639, 13, 34, "Message",ExpressionUUID->"63719031-7e3e-41de-877b-14afc0984b10"], +Cell[624533, 15320, 644, 13, 34, "Message",ExpressionUUID->"58ad6f23-62fd-428a-af53-27f4d8163dc5"], +Cell[625180, 15335, 491, 11, 20, "Message",ExpressionUUID->"43396911-f2ea-44c6-93a3-5b007f1db5f2"], +Cell[625674, 15348, 194, 3, 26, "Output",ExpressionUUID->"72a3047d-52f5-4157-954f-c48b84aaaee4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[625905, 15356, 2269, 64, 54, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[628177, 15422, 562, 12, 34, "Message",ExpressionUUID->"ed9262be-7213-4675-904e-372d303934e7"], +Cell[628742, 15436, 566, 12, 34, "Message",ExpressionUUID->"3a496218-9d40-4854-94d9-d6953e5d82cc"], +Cell[629311, 15450, 569, 12, 34, "Message",ExpressionUUID->"638eb3d7-9e19-48a4-8822-22f3c2de69e0"], +Cell[629883, 15464, 490, 11, 20, "Message",ExpressionUUID->"2f16c49b-fd69-460c-b357-18d7709ab79e"], +Cell[630376, 15477, 194, 3, 26, "Output",ExpressionUUID->"8f2c2776-41ae-4e69-b2d8-fa02ec913d51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[630607, 15485, 2233, 63, 54, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[632843, 15550, 564, 12, 34, "Message",ExpressionUUID->"0b81ecd0-66cf-4cd9-98b8-0b9de93a884a"], +Cell[633410, 15564, 568, 12, 34, "Message",ExpressionUUID->"7ce6452c-03ca-4d09-9ebc-23f4be8d9e93"], +Cell[633981, 15578, 573, 12, 34, "Message",ExpressionUUID->"79ad7bf9-9a1d-44d8-bc8e-ecf1ddbf4cfd"], +Cell[634557, 15592, 492, 11, 20, "Message",ExpressionUUID->"bd8c0e1a-00c3-435c-b50c-f98095149cdd"], +Cell[635052, 15605, 196, 3, 26, "Output",ExpressionUUID->"21a4831c-ca6c-40bc-8d97-5bddd93eb456"] +}, Open ]], +Cell[CellGroupData[{ +Cell[635285, 15613, 2235, 63, 54, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[637523, 15678, 562, 12, 34, "Message",ExpressionUUID->"52398569-3900-461e-ae22-e2560ae17668"], +Cell[638088, 15692, 568, 12, 34, "Message",ExpressionUUID->"d80eaf48-cf25-47ea-a824-2e70c5fc528d"], +Cell[638659, 15706, 569, 12, 34, "Message",ExpressionUUID->"571d8e6d-b8e2-4a4c-8347-0a87e9cb3684"], +Cell[639231, 15720, 490, 11, 20, "Message",ExpressionUUID->"1df51b95-0ec6-4808-a700-0d3df1ae394b"], +Cell[639724, 15733, 196, 3, 26, "Output",ExpressionUUID->"de1a5bbd-c6f2-4107-99da-852b56efe704"] +}, Open ]], +Cell[CellGroupData[{ +Cell[639957, 15741, 234, 6, 39, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[640194, 15749, 198, 3, 38, "Output",ExpressionUUID->"9dd22fc7-55ad-4787-bbcd-b666325dadb2"] +}, Open ]], +Cell[640407, 15755, 210, 4, 23, "Input",ExpressionUUID->"5222ef37-9b05-4daa-a7c2-20929e853801"] } ] *) diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw2.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw2.nb index a320d64..34a0c8b 100644 --- a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw2.nb @@ -3,42 +3,4773 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 381361, 9130] -NotebookOptionsPosition[ 356610, 8757] -NotebookOutlinePosition[ 357039, 8774] -CellTagsIndexPosition[ 356996, 8771] +NotebookDataLength[ 660141, 15810] +NotebookOptionsPosition[ 619591, 15161] +NotebookOutlinePosition[ 620013, 15179] +CellTagsIndexPosition[ 619970, 15176] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ -6f058773310c"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918496892276516`*^9, - 3.9918496892324924`*^9}},ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-\ -c82e80965ca9"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "2.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9938052191744213`*^9, 3.9938052504311247`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"e3570169-fcd5-428a-920f-16f01b7d94c5"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99380518475546*^9, {3.993805224475608*^9, + 3.993805252954657*^9}, 3.993916351512208*^9, 3.993917195651978*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"8b619cc2-3433-4767-9a98-5202b8b73edc"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993916321914616*^9, 3.993916322483457*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"bbd49fb7-2698-4d72-a541-c31f93be3abc"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ -7dc8ec78e5b4"], + 3.9913196497381973`*^9, 3.993805185043068*^9, {3.993805224572557*^9, + 3.993805252993279*^9}, 3.993916351869231*^9, 3.99391719577069*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"993e4285-7428-45af-82c4-c6de1dd8aec2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "158"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9938049166426687`*^9, 3.993804917651101*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"91963ac8-03df-405b-a738-4272d55bf225"], + +Cell[BoxData["158"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993805185062161*^9, {3.993805224576009*^9, + 3.993805253007394*^9}, 3.993916351892046*^9, 3.993917195778742*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"303403f7-dedd-40f5-9494-9395fa43cdfa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"377df292-61fd-463f-8935-e7ee1b029f1c"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993805185081649*^9, {3.993805224601097*^9, + 3.99380525302089*^9}, 3.993916351914412*^9, 3.993917195786819*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"3fd0cf29-6b5a-4ef6-8152-f11c379e0251"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"b15f7c01-912c-4ee1-a3f6-a0aff2073963"], + +Cell[BoxData["0.54525`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9938051851009007`*^9, {3.993805224616465*^9, + 3.993805253035823*^9}, 3.993916351937345*^9, 3.993917195794868*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"b9568cd1-7a33-467b-9bfe-ed572bb8f8fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"9be67c31-f553-4f37-a506-88b031ebf759"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9938051851193542`*^9, {3.993805224632454*^9, + 3.9938052530394487`*^9}, 3.9939163519603853`*^9, 3.993917195803492*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"ce334199-ca28-4982-9578-16a5ca2e575c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"31dcb9fb-f331-4712-93ca-d3a4ce2bb3bd"], + +Cell[BoxData["6.27109940387026`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.99380518513807*^9, {3.993805224647552*^9, + 3.9938052530590487`*^9}, 3.993916351983755*^9, 3.993917195811944*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"524e4136-0fa5-4b75-ab5c-c02beafd55d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"fc232e3c-9028-4fc1-b3bf-c666843f7ec5"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993805185156455*^9, {3.99380522466296*^9, + 3.993805253072824*^9}, 3.993916352007182*^9, 3.993917195818302*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"6efb5a51-d34d-47ef-8ef6-2d86b4d51fb9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "1.0538"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993804952051347*^9, 3.9938049566002893`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"8548233d-5f86-4597-903c-4e57b96d5a56"], + +Cell[BoxData["1.0538`"], "Output", + CellChangeTimes->{ + 3.99380518519252*^9, {3.993805224678464*^9, 3.993805253087891*^9}, + 3.99391635203514*^9, 3.993917195825479*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"4c5854e2-f48d-4041-8a2b-4c8133deb4ee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4586"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993804961242296*^9, 3.993804965065857*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"b4d00410-c772-4fc0-b841-1c6612a0f739"], + +Cell[BoxData["0.4586`"], "Output", + CellChangeTimes->{ + 3.9938051852126503`*^9, {3.9938052246934443`*^9, 3.9938052531018476`*^9}, + 3.9939163520582523`*^9, 3.993917195834333*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"78f27046-65aa-4ccb-b558-bb72635eef06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"f258cd95-1d7f-4f9c-9410-2f119280c5a4"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993805185248838*^9, {3.9938052247082167`*^9, + 3.9938052531162167`*^9}, 3.993916352081853*^9, 3.993917195843175*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"8bdd801a-e054-423f-abed-a5bf31136011"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"1600d708-4a35-476f-813a-a95a6fc2c739"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993805185267172*^9, {3.9938052247238207`*^9, + 3.993805253130691*^9}, 3.9939163521054068`*^9, 3.993917195852687*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"02627df1-b65a-45f1-a103-95f3487f0632"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"b23dc77f-a6e4-4e86-bb06-ecc497110443"], + +Cell[BoxData["2.7212678798402736`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.99380518528695*^9, {3.993805224741534*^9, + 3.993805253144705*^9}, 3.9939163521330347`*^9, 3.993917195867013*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"818e1528-fd9b-4d38-acf4-8e3b3f5e00d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"0d0e2518-1d57-44e2-b510-16f72b7065e6"], + +Cell[BoxData["1.517413176238712`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993805185305333*^9, {3.993805224756358*^9, + 3.993805253156912*^9}, 3.993916352156901*^9, 3.993917195877651*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"536659d1-86c0-4165-86b7-35e1086c28d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"2130f273-976b-41f8-9924-3ca6c6c772cd"], + +Cell[BoxData["0.32066933716802604`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938051853237133`*^9, {3.993805224762803*^9, + 3.9938052531724854`*^9}, 3.993916352182193*^9, 3.993917195888022*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"a9e4da32-5d7d-4f50-8702-dd9e28ae53c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"bd150d0f-c53c-4633-a8ba-83fa792205e8"], + +Cell[BoxData[ + RowBox[{"-", "0.07876066759731537`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9938051853418283`*^9, {3.993805224780403*^9, + 3.993805253186532*^9}, 3.993916352207016*^9, 3.9939171958984756`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"eb70c926-5154-47e9-b458-03d3c3aec079"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"d039e247-9b7e-433b-a75c-8b7fb46986a3"], + +Cell[BoxData[ + RowBox[{"-", "0.5970148797225691`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9938051853596067`*^9, {3.99380522479467*^9, + 3.993805253200911*^9}, 3.993916352232068*^9, 3.993917195908944*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"5a28defd-7f61-4928-a5c6-e40f7d8925cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"11149750-ff28-4343-9342-e11e30ffc62f"], + +Cell[BoxData["0.6876077696425691`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993805185378059*^9, {3.993805224809915*^9, + 3.993805253215036*^9}, 3.993916352256995*^9, 3.993917195919345*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"49a05d46-46ab-44ad-9060-126840f0a66d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"f47b71f8-a114-4a08-9074-14aa88b47049"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993805185398272*^9, {3.993805224824396*^9, + 3.9938052532292*^9}, 3.9939163522826366`*^9, 3.993917195930126*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"ab98eae3-4404-4e97-8835-d54f1a5ba7a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"bc544049-eda2-476e-ab80-608b54d0463b"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9938051854177923`*^9, {3.99380522484026*^9, + 3.993805253244286*^9}, 3.993916352307663*^9, 3.993917195940435*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"1a6fc881-98f1-430c-a077-034abed9593d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"7db3dc91-6620-4a5c-bb70-98eb2d64279e"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993805185437478*^9, {3.993805224855752*^9, + 3.9938052532596083`*^9}, 3.993916352336733*^9, 3.9939171959522657`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"d6a28066-b7c4-4fe5-8724-73cc97c5dc9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"4b6ff91d-fb39-4b67-8ea3-5553facd10c0"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.9938051854577103`*^9, {3.99380522487106*^9, + 3.993805253274938*^9}, 3.993916352360208*^9, 3.9939171959623528`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"65233e8a-2875-4923-a08f-fa87409421b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"056ecf4c-8418-4cd3-a19c-f8278fee099f"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993805185476227*^9, {3.993805224888023*^9, + 3.9938052532912817`*^9}, 3.9939163523865757`*^9, 3.993917195972494*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"d8a499f5-ff55-4009-af29-a4bee9b1fc6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.993804991704192*^9, 3.9938049918531923`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"9f04f181-f118-4e8f-a8e4-5e8502231fcf"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.99380518552493*^9, {3.9938052249037046`*^9, + 3.993805253306974*^9}, 3.993916352410439*^9, 3.993917195982464*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"88bd3d56-ed4e-4dac-89dd-2a2d845187bf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993804995664447*^9, 3.993804995772654*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"fe67d835-f3d8-4b35-b44e-6545a9d76602"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993805185543676*^9, {3.9938052249204884`*^9, + 3.993805253322205*^9}, 3.99391635243427*^9, 3.99391719599297*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55344ac5-4435-480f-88ac-5edf3854360e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"1d5f0422-aa8f-4fe6-a9fb-6d44ab7499fa"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9938051855619907`*^9, {3.9938052249386597`*^9, + 3.9938052533386793`*^9}, 3.993916352457818*^9, 3.993917196003051*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"eb2f31a4-9221-4ec8-b1ac-206a83624986"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"c6b60b7d-0220-4045-842a-36f4df01f337"], + +Cell[BoxData["0.11191417104044457`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993805185580923*^9, {3.993805224956522*^9, + 3.993805253354024*^9}, 3.9939163524821377`*^9, 3.9939171960128317`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"75d13e16-5b4e-422f-9bb9-0b3341111a61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"98c45af8-3cb9-4f32-b1c9-c8090ca78dbf"], + +Cell[BoxData[ + RowBox[{"-", "2.561824637233714`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993805185599188*^9, {3.993805224972258*^9, + 3.993805253370023*^9}, 3.9939163525065804`*^9, 3.993917196022435*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"073eb179-0f06-42b4-9530-c1f98f30e092"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"13884680-0ee3-4e04-b52a-4293742cbdce"], + +Cell[BoxData["18.398535985484678`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.99380518561648*^9, {3.993805224987084*^9, + 3.993805253385118*^9}, 3.993916352533133*^9, 3.993917196032288*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"97286605-6a55-4721-ae72-68b2d6d229aa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"f9a26e85-2a26-4647-a142-8f996c1a6a15"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9938051856333447`*^9, {3.993805225004781*^9, + 3.993805253400388*^9}, 3.993916352603034*^9, 3.9939171960430593`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"a7cdc750-25df-480b-ab2b-a55b33371077"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.1"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993805039391902*^9, 3.993805039626801*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"6390fee0-38db-44b6-965b-ccd12972776a"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.993805185666649*^9, {3.993805225028409*^9, 3.993805253416904*^9}, + 3.993916352634946*^9, 3.993917196053328*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"b8f0db11-1b52-4c2d-8a45-162f6d552868"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849693382303*^9, - 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ -623392314869"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"81d9fb86-8b4c-4bb6-9078-fdd656648865"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.825"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993805045213546*^9, 3.993805047124814*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"8b5ec1f2-e7ea-4b54-bd36-54b3f75745f8"], + +Cell[BoxData["0.825`"], "Output", + CellChangeTimes->{ + 3.993805185701985*^9, {3.993805225054669*^9, 3.993805253444351*^9}, + 3.9939163527056713`*^9, 3.993917196069297*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"446f8cc6-5569-41e1-ae01-8035027b607c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"b14b0134-36b5-40d9-a895-fa67d18fb139"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.555"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9938050508440866`*^9, 3.993805052236985*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"37642754-6119-476b-ba14-005ff2988ec1"], + +Cell[BoxData["2.555`"], "Output", + CellChangeTimes->{ + 3.9938051857394037`*^9, {3.9938052250786047`*^9, 3.9938052534689074`*^9}, + 3.993916352780088*^9, 3.9939171960884857`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"be1c8357-e7c8-480b-92cb-eb23aaca5256"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"9afeef5d-1bb2-491d-8e71-26c333c4d649"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.245"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.99380505503828*^9, 3.993805056087892*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"741d0d9c-efd5-4eac-aad3-f68c512f485c"], + +Cell[BoxData["1.245`"], "Output", + CellChangeTimes->{ + 3.993805185761554*^9, {3.9938052251046124`*^9, 3.9938052534951553`*^9}, + 3.9939163528525343`*^9, 3.993917196107358*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"f79a631b-6105-4a36-acc0-b3a5178b8ea9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"1c543708-6350-4bd7-9b16-94d5ae54d0ef"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.573"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993805059071521*^9, + 3.9938050607022467`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"3de82e1c-0a27-4e82-83d8-b3493531f9bd"], + +Cell[BoxData["1.573`"], "Output", + CellChangeTimes->{ + 3.993805185855309*^9, {3.993805225129714*^9, 3.993805253518753*^9}, + 3.993916352928842*^9, 3.9939171961257*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"a57f0fa4-967d-46de-8af6-e87d6350c47e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"bdabfbf8-b47a-480a-8c78-a6cf66e21f99"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.559"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993805065029335*^9, + 3.993805067447727*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"b5db7319-085c-44b1-ad4d-11738d3534ec"], + +Cell[BoxData["0.559`"], "Output", + CellChangeTimes->{ + 3.993805185891992*^9, {3.993805225152993*^9, 3.993805253543803*^9}, + 3.993916353008525*^9, 3.9939171961433363`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"8393b1ef-2bc5-4ea4-a490-4246cdd34b7a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"583e6c49-d319-465a-b35c-6f2ac9bd5ba2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938050741899853`*^9, + 3.993805075123766*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"026c0d23-8bf8-41ae-a98d-7780139ca46c"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{ + 3.9938051859283257`*^9, {3.993805225185712*^9, 3.9938052535659924`*^9}, + 3.993916353081768*^9, 3.9939171961618757`*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"935cd024-f7e6-4a3b-b07c-98223f97909a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"262fece9-d120-4cae-9019-a3c5cb58e9dc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.735"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993805078103382*^9, 3.993805079604447*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"994a6c0d-8380-4e60-b24a-8939a3e48aaf"], + +Cell[BoxData["0.735`"], "Output", + CellChangeTimes->{ + 3.993805185964576*^9, {3.9938052252141447`*^9, 3.993805253589633*^9}, + 3.993916353154702*^9, 3.993917196180305*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"148f395a-425f-4513-b105-a82a41521ff4"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"28b114a5-fcb8-453c-b84a-7075e503215d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"ecbc1264-e2e2-4423-bd26-f65c8ab8da1e"], + +Cell[BoxData["0.07326591095323323`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993805186059474*^9, {3.9938052252761602`*^9, + 3.993805253639162*^9}, 3.993916353303368*^9, 3.9939171962293243`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"b6dfe171-7819-43f7-acab-cd3596eb043a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"631a9259-3db3-41ab-b763-afbac09f1026"], + +Cell[BoxData["5.817472076698097`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.993805186091166*^9, {3.9938052253032303`*^9, + 3.993805253666086*^9}, 3.993916353340589*^9, 3.993917196264366*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"c9bc1a36-1a64-4858-a166-86cb060b3477"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"6b56e75a-60a6-4a1a-8015-7f2b6514645e"], + +Cell[BoxData[ + RowBox[{"-", "18.01966490435569`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993805186124298*^9, {3.993805225330043*^9, + 3.9938052536925*^9}, 3.993916353372154*^9, 3.993917196299515*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"1be0cf02-d386-4123-95fb-fe2e71507b02"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"d4281585-39fa-4ee3-b444-881d18d38dbc"], + +Cell[BoxData[ + RowBox[{"-", "26.39087117680155`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993805186162883*^9, {3.9938052253638563`*^9, + 3.993805253728293*^9}, 3.993916353411268*^9, 3.99391719633992*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"a386b4fa-a0a9-4874-808b-8a064dad5b93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"8eb126c3-e62c-4c62-8d30-6193c069be45"], + +Cell[BoxData[ + RowBox[{"-", "72.0154502935676`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.9938051862023897`*^9, {3.993805225399252*^9, + 3.993805253760605*^9}, 3.9939163534581738`*^9, 3.993917196382163*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"991a5703-95dd-4149-a112-565b83ed92fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"125d94dc-a98a-47a4-88ab-ab102a6556d6"], + +Cell[BoxData[ + RowBox[{"-", "210.89213440043358`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.99380518624261*^9, {3.993805225437365*^9, + 3.993805253795278*^9}, 3.993916353515175*^9, 3.993917196432313*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"240b88d5-46d6-4fe2-89f0-ea4c435286cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"df4473ad-af8d-4f33-8051-2dde7fb76cff"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9938051862628403`*^9, {3.993805225455119*^9, + 3.993805253809515*^9}, 3.993916353549343*^9, 3.9939171964437237`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"5e05dd90-b382-413a-9dae-958a6320de74"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"27165a01-8915-4150-b727-d8f3e076302e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9938051862883873`*^9, {3.993805225469843*^9, + 3.993805253823063*^9}, 3.993916353615691*^9, 3.993917196453129*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"b0980564-d0be-4d53-8c9c-086b317f2b16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4c0d8518-0672-43c6-b766-414f929f5780"], + +Cell[BoxData["147.07396031318729`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993805186309627*^9, {3.993805225485524*^9, + 3.993805253836412*^9}, 3.993916353640667*^9, 3.993917196462837*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"a4b32c86-1f29-4114-b3b0-ad0aaa11e5a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"49290314-8218-4138-ba82-e6947dd7c514"], + +Cell[BoxData[ + RowBox[{"-", "138.05974755201015`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993805186332671*^9, {3.9938052255064*^9, + 3.993805253849951*^9}, 3.993916353666204*^9, 3.9939171964737463`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"2b57233d-fc17-4273-bb1f-76791bd75601"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"fcdf7148-188c-43b6-99a3-de708303ab42"], + +Cell[BoxData["151.31388532518324`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9938051863549347`*^9, {3.993805225521781*^9, + 3.9938052538643007`*^9}, 3.993916353692947*^9, 3.9939171964857264`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"8b4f0e39-4023-49bd-bc5f-076975249423"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"1c365e04-50e4-4a11-9dcb-f08333fcc439"], + +Cell[BoxData["0.32066933716802604`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993805186375004*^9, {3.993805225539682*^9, + 3.9938052538780746`*^9}, 3.993916353720183*^9, 3.993917196500093*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"2c46eef8-c0ad-44b8-b36b-b3033f4e1b5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"80d46040-1827-4ea3-b426-bb054c2a96ce"], + +Cell[BoxData[ + RowBox[{"-", "0.07876066759731537`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993805186395523*^9, {3.993805225554823*^9, + 3.993805253891698*^9}, 3.993916353744547*^9, 3.993917196511016*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"864d4a66-b0be-423c-aba8-d1ee52329679"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"9bd6cea1-a810-435d-8f10-3cb84c89bd51"], + +Cell[BoxData[ + RowBox[{"-", "0.5970148797225691`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9938051864158077`*^9, {3.9938052255692043`*^9, + 3.993805253905455*^9}, 3.993916353768426*^9, 3.993917196529207*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"6e32b889-067b-4c63-bbcb-5de53ea982c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"46996e30-2084-4235-9eb0-42189b4bf772"], + +Cell[BoxData["0.6876077696425691`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.993805186435895*^9, {3.993805225584848*^9, + 3.9938052539190693`*^9}, 3.993916353793048*^9, 3.993917196553084*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"a5a5d0ee-b87a-4fcc-8138-1fa90a785c29"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"7b054e60-9a97-4b2e-8971-b106728d20fd"], + +Cell[BoxData["2.7212678798402736`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993805186459119*^9, {3.993805225601059*^9, + 3.9938052539329557`*^9}, 3.993916353817293*^9, 3.993917196565166*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"cff2369c-6298-400b-94c8-4b191f2d6e5d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"e0f14832-45a9-4d76-9c07-b813795bf59c"], + +Cell[BoxData["1.517413176238712`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993805186481224*^9, {3.993805225615499*^9, + 3.9938052539461823`*^9}, 3.993916353823238*^9, 3.993917196576407*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"71b41c15-198e-41a3-a661-7e13c9d42dc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"3b0ad172-40ec-4004-abda-f37163909ec1"], + +Cell[BoxData[ + RowBox[{"-", "35.37905990838884`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993805186500906*^9, {3.993805225630805*^9, + 3.9938052539603987`*^9}, 3.9939163538577957`*^9, 3.9939171965865917`*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"40e67bd0-01d3-4c35-b085-257ba8219fbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"17498e95-e5c6-4a36-8e7c-a59b88bcee2a"], + +Cell[BoxData[ + RowBox[{"-", "7.518677963606449`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.9938051865278683`*^9, {3.9938052256462593`*^9, + 3.9938052540033293`*^9}, 3.9939163538870287`*^9, 3.993917196596908*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"5f4b4337-3a22-4d36-adda-427d5f00c163"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"9a6340a8-f5e5-40ce-b9f5-9d3a4d410021"], + +Cell[BoxData["111.69490040479845`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993805186549179*^9, {3.99380522566187*^9, + 3.9938052540195704`*^9}, 3.993916353911763*^9, 3.99391719660695*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"97cf1f71-8d82-4855-b417-c1aacf851506"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"4661ae7e-c1b1-49b7-9c5d-ea60282280b3"], + +Cell[BoxData[ + RowBox[{"-", "138.05974755201015`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993805186570223*^9, {3.993805225677956*^9, + 3.993805254035548*^9}, 3.993916353937284*^9, 3.993917196617921*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"e7b96c46-b557-4bee-8c81-951d743b2f0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"fb6ff41a-2aea-49fd-9a27-0f3cdc3418e3"], + +Cell[BoxData["143.7952073615768`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993805186590909*^9, {3.993805225694096*^9, + 3.993805254049733*^9}, 3.993916353962906*^9, 3.993917196629554*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"9dcf7a4f-833b-499f-a4ce-ea0db6aeb2bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"2e6df367-d820-40a2-807a-2a74d618051c"], + +Cell[BoxData["27.73706386208056`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993805186610568*^9, {3.993805225710843*^9, + 3.99380525406491*^9}, 3.99391635399086*^9, 3.993917196639594*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"0da7cb2f-ca18-4669-8d2b-92fc0c306104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"fdf2e85c-c14f-4ed3-bcc1-ff349e00d45e"], + +Cell[BoxData["878.9837204382463`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9938051866294127`*^9, {3.99380522572875*^9, + 3.9938052540809603`*^9}, 3.9939163540160513`*^9, 3.993917196649795*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"9af60d61-68d6-47c1-b491-8ea4869f8505"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.8803"}]], "Input", + CellChangeTimes->{3.9918496921150837`*^9, 3.9939165439633293`*^9}, + CellLabel->"In[71]:=",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], + +Cell[BoxData["0.8803`"], "Output", + CellChangeTimes->{3.993917196658721*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"ce75aaf0-d19e-475d-8bc7-93d363726098"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918496892276516`*^9, 3.9918496892324924`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.6265"}]], "Input", + CellChangeTimes->{3.991849690724144*^9, 3.9939165495054197`*^9}, + CellLabel->"In[73]:=",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], + +Cell[BoxData["0.6265`"], "Output", + CellChangeTimes->{3.9939171966984453`*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"2db45872-c0c1-49c4-9bd2-fa202efa9213"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, 3.991849693386299*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ @@ -84,13 +4815,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[316]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], + CellLabel->"In[75]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.991339230528511*^9}, - CellLabel-> - "Out[316]=",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[BoxData["1.6893390031074366`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.993917196716093*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"9d657f20-2a8b-417a-8604-197998d3ec40"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4853,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ -67189aa511ad"], + CellChangeTimes->{3.991557615205345*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[BoxData["2.192147584896785`*^-54"], "Output", - CellChangeTimes->{3.991339230554512*^9}, - CellLabel-> - "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[BoxData["1.9533604843799393`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.9939171967266912`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"177909c4-f0ad-47d6-b941-df881f2526ea"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4891,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557618917984*^9, - 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ -5f01117db38b"], + CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[BoxData["3.508823705223133`*^-54"], "Output", - CellChangeTimes->{3.9913392305796223`*^9}, - CellLabel-> - "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[BoxData["3.086441184270093`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.9939171967375097`*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"2389f67b-fa33-4d56-ad5b-30e3e2247094"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4919,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + CellLabel->"In[78]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[BoxData["44.37747929594205`"], "Output", - CellChangeTimes->{3.9913392305906105`*^9}, - CellLabel-> - "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[BoxData["37.87253572191125`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.993917196747892*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"e6fca847-6fee-40bd-a330-cbd059a5bcd1"] }, Open ]], Cell[CellGroupData[{ @@ -226,13 +4949,11 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", - CellLabel-> - "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + CellLabel->"In[79]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[BoxData["102.55835649176893`"], "Output", - CellChangeTimes->{3.99133923061561*^9}, - CellLabel-> - "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[BoxData["94.95981412870997`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.99391719675777*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"6b5db98d-5e32-4ce9-8b6f-99ce6131e7eb"] }, Open ]], Cell[CellGroupData[{ @@ -241,13 +4962,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + CellLabel->"In[80]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[BoxData["0.5630879721742558`"], "Output", - CellChangeTimes->{3.9913392306426105`*^9}, - CellLabel-> - "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[BoxData["0.8557916628817032`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.99391719676744*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"71ec8d2f-5f00-4469-bd2f-4fe418f8a544"] }, Open ]], Cell[CellGroupData[{ @@ -256,13 +4975,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + CellLabel->"In[81]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[BoxData["1.956498159343112`"], "Output", - CellChangeTimes->{3.99133923065361*^9}, - CellLabel-> - "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[BoxData["3.042429250939948`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.993917196777031*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"39f3aa1d-8123-468f-8dca-62530d837d5f"] }, Open ]], Cell[CellGroupData[{ @@ -271,13 +4988,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + CellLabel->"In[82]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[BoxData["200.65523570140064`"], "Output", - CellChangeTimes->{3.9913392306776104`*^9}, - CellLabel-> - "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[BoxData["288.9085161690078`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.993917196786644*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"f318bf19-c9e3-420b-9ca2-9caf3baa88b0"] }, Open ]], Cell[CellGroupData[{ @@ -286,13 +5001,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + CellLabel->"In[83]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[BoxData["24.98842482695703`"], "Output", - CellChangeTimes->{3.991339230703802*^9}, - CellLabel-> - "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[BoxData["32.41100032300113`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.993917196796979*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9c2b5cae-42ca-4e19-b386-ccbadba1ea59"] }, Open ]], Cell[CellGroupData[{ @@ -481,13 +5194,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + CellLabel->"In[84]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[BoxData["0.01829601703069907`"], "Output", - CellChangeTimes->{3.9913392307297993`*^9}, - CellLabel-> - "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[BoxData["0.004153123639559947`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.993917196807589*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"378e6545-a453-426a-9dfb-db90ca02984e"] }, Open ]], Cell[CellGroupData[{ @@ -500,13 +5211,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + CellLabel->"In[85]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.991339230837267*^9}, - CellLabel-> - "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[BoxData["13.751735497960162`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.993917196867189*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"0bd30ece-deaf-4808-8b52-e4ad4a6c7b2e"] }, Open ]], Cell[CellGroupData[{ @@ -697,13 +5406,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + CellLabel->"In[86]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[BoxData["0.00990105610750653`"], "Output", - CellChangeTimes->{3.9913392308522797`*^9}, - CellLabel-> - "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[BoxData["0.025656812650814306`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.993917196878261*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"0216ad47-0ea1-4a0c-bed6-2a7fc570fdb6"] }, Open ]], Cell[CellGroupData[{ @@ -716,13 +5423,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + CellLabel->"In[87]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[BoxData["8.906440683949702`"], "Output", - CellChangeTimes->{3.991339230966341*^9}, - CellLabel-> - "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[BoxData["5.532782388918522`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.9939171969374*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"f84f32d7-4017-4637-adfd-b2e12beb78a0"] }, Open ]], Cell[CellGroupData[{ @@ -814,13 +5519,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + CellLabel->"In[88]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991339230988348*^9}, - CellLabel-> - "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[BoxData["0.15074304128905536`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.993917196948229*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"a8bfd4c6-0b3e-4a72-95ca-9dba0ed02062"] }, Open ]], Cell[CellGroupData[{ @@ -909,13 +5612,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + CellLabel->"In[89]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991339231030445*^9}, - CellLabel-> - "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[BoxData["0.8492569587109448`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.993917196958555*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"95cc0750-9ca6-49a6-8313-220e2539faee"] }, Open ]], Cell[CellGroupData[{ @@ -1037,19 +5738,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + CellLabel->"In[90]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991339231060343*^9}, - CellLabel-> - "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +Cell[BoxData["0.12801957679198153`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.993917196968967*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"9e070644-70b2-4bb3-b795-0f46f9440114"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ -e24d-bdc4-544ea2d2fbd9"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ @@ -1110,68 +5809,67 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918497046469917`*^9},ExpressionUUID->"574b810b-aa4a-d545-b080-\ -c44fbe83a713"], + CellChangeTimes->{3.9918497046469917`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 332, 325, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310873375`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6800461025119432`*^-232\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 92, 5, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.993917196989303*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +In[92]:=",ExpressionUUID->"c0370d12-f511-4a3e-b8ef-83bfd249910b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 332, 326, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310973415`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.010398410212842`*^-239\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 92, 6, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.993917196994396*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +In[92]:=",ExpressionUUID->"3d4483bf-c198-41a2-8d6e-4b7cc0493f80"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 332, 327, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339231105339*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.57312741870032`*^-246\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 92, 7, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.993917196998815*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +In[92]:=",ExpressionUUID->"30101f8c-ce7d-4ed5-b2d6-7874b0fa8c82"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392311143417`*^9}, +during this calculation.\"", 2, 92, 8, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.9939171970056067`*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +In[92]:=",ExpressionUUID->"621dace6-5ab5-4e3b-8d12-39eec692c959"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.9913392346332226`*^9}, - CellLabel-> - "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[BoxData["13.751735497960148`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.9939171986558657`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"535419f1-bd92-4b67-83c9-6819074a2a10"] }, Open ]], Cell[CellGroupData[{ @@ -1233,68 +5931,67 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849710877041*^9},ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-\ -656c90598e75"], + CellChangeTimes->{3.991849710877041*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 333, 329, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234667631*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6800461025119432`*^-232\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 93, 9, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.9939171987098093`*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +In[93]:=",ExpressionUUID->"a3ac4c7f-2b95-4ad4-854d-691c6833e2e7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 333, 330, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234676628*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.010398410212842`*^-239\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 93, 10, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.993917198715288*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +In[93]:=",ExpressionUUID->"6372103d-b98f-4d02-b26d-f032ee207549"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 333, 331, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234685627*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.57312741870032`*^-246\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 11, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.993917198720255*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +In[93]:=",ExpressionUUID->"e736bfe2-29a4-428a-b619-a6322bf34932"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133923469363*^9}, +during this calculation.\"", 2, 93, 12, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.9939171987248163`*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +In[93]:=",ExpressionUUID->"c8d0b6ef-af08-465c-8369-f213ca0054b3"], -Cell[BoxData["8.906440683949707`"], "Output", - CellChangeTimes->{3.99133923819088*^9}, - CellLabel-> - "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[BoxData["5.53278238891852`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.9939172007623587`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"88c1ff45-5f81-46f7-9957-7336fed0dea1"] }, Open ]], Cell[CellGroupData[{ @@ -1350,92 +6047,93 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849713921898*^9},ExpressionUUID->"9c540ba7-8bb4-ef46-919c-\ -62296271f174"], + CellChangeTimes->{3.991849713921898*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4lN0bB3CEypItFJE9S8o7dsm5MRIxRIlEjJnHEiqkKUUqSaUsvcn7 +sxVKomxlTbJEUtZKC5ElYcYMiYr6nfnjXM/1ue5z7vO9n+e6HmXqYRc6Hw8P +DxMv7vPo6y2bKrteWzCeTZbsNeUgC1aeIZVchDp+Rt3heijb6LoauQ7d8tCL +59qZ9kpQRL8FpYysdOW6lBHTJEDuQPwZfEJcJzxf1xBT2I2kE5SK9mBXdx3N +WiK9QfllvqZcT35oP3With85qTwvdcWWG1P1/GH9CTFGHKW53jVzyjS84zNC +K376uWDXL00KMwqH0Zmk1szd2G9jZaMeh46gT/+rbnTGZgmSJ7+TxlCFcWeP +E7bglSMe+gvjSIWx6jUFW1Eis+1o7QRaHU6vcMSmyP+4w7KeRuGLl6x2YRM5 +KjK6q1gostJ10g47Rt0p7lDHDJpIh9M7sftl+/6JKOQgN5t4mg02bX9QYOqV +WdTuPFxljc3O4LlVFjqHcvl9Fi2xV6noinNI86hm+aWJBfZ1WpOtuPQPFJJa +bWqOrXTXI2brwg90IqxD3QzbZPMFVkjtIqppoD41xA4w+twxab2E1jPdFnWw +vzOO8QtpLKOD4hEuWthnaoXNtVb9QW2SVWka2DfB5L5/x18kd+vRiBI3X34b +OayQF47UJMauxS58njoUK88HWrcmDCS4eb96n0q+wgfFwcG9otintOfLS0JX +gNjbmW5Bbt6HyqozJAGQdWb1LZhw0Ieu6fo/uQLw6MHN4TlspdnK/WukBSHO +P/T9DHaRASVFd0EQsqwzL33Fbq4+yRtcuwriLknOvcGeb+r9PGEtAvWkkk8P +sCUdRMSj6kVgXk9f+x62Xh8ZRE1FIUvM6mAudtDoo5x/tqyB4SqBM2nYR/g6 +9LaLiIOgo2FGNPaYygNO3A8JiJ1+hnZifyfaV3fqS4JcsYOgJTbf/XHldUcl +of1aSIUpN6/+RpfCKUkYy45o1cbeb51U9npICpJLitqEsTv9wsJlX0oDf2aY +yQtjDhq8e/WyzyoZsNlWy2jAnp4qzL1nIwOHcu/kVGILRYz0bmuQAXWnwLv5 +2OTzewx8HsmCulBl0hnsmjyj+YLs9WCbat37D3be2K9IswgFGLWU23jWiIN2 +7o0fDC9WgEN8uxWPY083S+0oHlcAkjixKhjbIG+ztJKHImh82ZK5F7uZ6l0u +YLER6IfcXmzCnp0ZOj5xTgl6933c3GbIQVIh5IpyRxVIWhTR/GnAQeN5QgHO +QSrAe2Rl3BR21acueeYFFQAZvlcD2AccvM5pNKiAae6SQiN2nk6kSzpJFf6s +0WxOwDaYvMuOllWDzHMBKtLYe/yFde2H1UGp8vDWDfochCL3kvYtqwNyvwci +2Npx2ca09RrQ7ftx+xKJg3hy9a2id2uA+qzu0kfs4kHPfWXPNCB7e9nF/7AF +3Ypi5W5vgqFY4osUdhXZ8e0kVQvcS+1vL+hxUK5r2seFaC0ofmNuOIZ9lTo8 +xP8/LWDc2FPRg007c2xKsVcLcv7+iizGlqjL5HG11oYJO8oaKnaQPku7VlUH +zrQGXWjdykHyKtdiLo9uhmCzh3fPbeGgukvftX7y6cKbDeuWgrEPzHn0Ecq6 +4Bfua+qGndWspmXlrQtky6xQTWwV/5qexXe6YGvyp+mlLp63aEydeLkFcsId +N6zBVpBXJJQ89GDjbbvUWB0O2pwfIfIbkaDzRIuKmiYHUWnn5nUpJFA3Db27 +GvumasqgzwESXGyKWjeziYNW3H5Y8pxBAsm1r59WY3/ImtyTUkqC1h+JqhTs +hJs+mVqq+tATHWYZroG/72WHLe6CBqB0fXD8gRoH3QpTc37UYQgkrXde00oc +1BWJjM/nm8IbnvfvG2U5SNn7DcUreDsYuJ/yjBTlIPrfxw8UTgCUHssMrufj +INmpqpWyVCv4rLnUsDjPRhH65p9StMnwJrV/+6pvbERlLrVJTdpASI6T27GP +bFRsFb4yu9MWUh45B3a+ZKO870HPiq7bwUrlkS2H6tho0XLdq+aYXZBaKhgy +X8hGAzwrOMO+jnBi57DmxnQ2Ct1wOClW1QmOuD40nY1noweBbQ3/xjnDDmuC +1B3BRifn1i/oBO4G/xaVoFQqG83b73BrPegC2RpUzygKG5l6JluO7XYFb6HP +v8+ZsVHP+sygZv09sNwm7tC4iY3k7pyrK9DcC2/rPSu8pdioakjbgSLqBlMX +y1W8eNhIsY/tH8l0A1mDbnLhxxmk/29yUe7QPlhO05PrL59BmfxzW1Ka3AHe +NdzWuzaDHltu/RBX7QFpA81LOgEz6KbxJYmlwv2QdPL9k1qrGdT5Mf+C/hVP +oDQ8jaxUmkGPHDPUjpw5ADeFNMc5SyzECXHlCaV5QaLdnpeVn1hofodWAMva +G2IZT5d317NQAfP9YrjRQZA0u7HQmsVC7rfy/bxEfCD5FVXz9VkWKi/bdXBF +vA9kPA9K1CRYyFS+52fCTx9o9PQwknRkIdUh/w/dgb4g2+pPkTdioVHhQ04Z +I74wkj79Yt1GFuq6SvGz3UuFa2crXx8XZqHrjGzhY11UWI6sYtosMlFd/d+f +fnZ+EPDfH4EbX5lI7ADE69f4Qeat8wPL75lIaW1r54Y6P3jWQtFsxdbrcFwn +WO8HIh7paUnYLuae9/qf+cFX55oRVezrGyJfnn7hBz6VESSHfiaSG7gv1tbv +By+erynKfctEat6yNw8s+EEPM0k5tJeJTH1YBXEGNOBPOpZ59BUT3Ulnh1OM +aMBb5aRki722d9ZC1oQGGx3ONG3AZtks9BVso0Fa01RQWwcT/794eDusaKDH +2mChjL1mQcJDcjcNflw8tNDfzkSjiYars0NocG380jOfNiba3Wrc53+YBtHU +WBcz7Hoes2y9ozT4Nr+Cfy12eriFYWMEDTJqyttaW5mI4mHrOxZFgzs93/r1 +sKvVPKp1LtHgvpeIzOrnTHS19lRg1R0azN1qFO1pYqIQUpopowDvb2k9WILt +cK90tUkhDXo7rLqvYguljd+rLKbBrnfZkg7YcWHOk48raJDQJSfW1shEp7TU +Dj1qpEHPU2N2yzMmCkp7GVw2SANOypjn+6dMZLdm3DxsiAaDp1Wya7E143hE +SV9oYBCwzJuFPR5mWFw6RoP4iWQNP2xfSjazZJoGgeJuU6x6JnIXCA99+Avf +l2hPE8G2DZc7UiRDh1U1mfIH65ioMfuCfco6OggolKhbY5t3zKox5OjQ76y6 +dxO2nvrL99aKdKC4/qPGrmWi9e+irD+q02GQIXbuHPaU2YCMkCEdHLWmyaU1 +THSNL+eJvysdLlYkDGtW4/m3itx03EuHZ45r/5PAPu/JCNPfRwePDHXGryom +YlQ4b/q7nw7knKG8Dmxfgjf5BpUO6Z1vGsKw9duptJajdLAJyl3xvJKJ3iWr +C6sm0SHRPa/24mMmeoBEAyaS6RB1atjvOPZ55vfm4lQ6sK3HNxPYJLvmaJM0 +OrjH2imTsa/y+M06ZtHhT3NCKi/2jsM57xlFdFC8HJd19hETKShcNLJ4QAeq +dKJrOPb39sOpK0ro0FRJaNGwb2sgx6vl+H2UpxjvwF4eGGjIraFDr+XggDB2 +hYN8wes2OizbtLhkVjDR5V98Atfb6fA7wUA6CZtaMOnr0UGHAcGYxbPY4vw1 +8qOddBBruasciB1c637t51s6nHji9scIW1X7RqTaGB00/ksf7i9nol/vTvd+ +G6eDV8Vi6Svsrji63sMJOiz2meU2YkcPG0yaTtMhkxU4UYT94Wavl9McHb5m +xCyfxU5ZKWFzkpcAyr4xF0PsutkBz4gVBLS3L6jqYH8dKAwLFSBAMkFUURnb +vIKcQ11NQM0oOVEUe9yH8dtegoDoLPa+iTKc38FG0kaKgE+/tY9+xt5mLKmF +pAlICA4uf4udJFrkpr+egOtkwfIWbr3mc6m8MgE+Cbey8rGJ/KI2aVUCjHYq +8WRx9yed+CymjvMdvHfpBvY4ISXKr0XAHYlPche5dSnbgGk9AsoiXm0Kwa75 +IxUzTiLgIKegm8Ae+zb075ABAR/ik/N8sM0aTjb1mRBw1Pxyyx7s0eAHik+A +AL8xze8W2GvcowwrrQhw9j02boptar3ToZRMwAXDbl5D7Kvrv5zI30lA5WBl +uQ52Ff/DpGx7nEfb2n4T9shM1N10BwJa6gZXq2KbPJd+k+hMQPYlW355bGrp +l6l4FwLYm6WRLHZixkO+s3sIOP1l7rYU9pcwO71IdwK+bh8bE8EW9ZaxPbKf +gE7TxebV3H52I15BBwgwn9/wSpB7fuPpy94+BDhBhjsvN4+Q/W13KgEF0gsf +/5TifvMy1S40An4a0i4uYYsOj3Q6EATM1o94/cI26SgZ3xGA5+84dmARm1p5 +ehmCCOg7Lnf+B3bibfu124IJeNvf3fcduypRVscwlAAZgQzKHLc/Y9Ry6xEC +RsVOcDjYIrRSd60wAh4LBT5hYxs7RR9WjSBAWCC4bIbb32zXBYVIAraInO1i +YV9RX5cpyyDAQue+LNePxcfKJU4SUHzoazwTe/h3abvwKQIS+4yUuRb5Gj0s +EE3AeFD6yDS2Uc+uxb8xBIiRxDq5/j8NKiQY "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1449,104 +6147,106 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV1Hk4lN0bB3CEypItFJE9S8o7dsm5MRIxRIlEjJnHEiqkKUUqSaUsvcn7 +sxVKomxlTbJEUtZKC5ElYcYMiYr6nfnjXM/1ue5z7vO9n+e6HmXqYRc6Hw8P +DxMv7vPo6y2bKrteWzCeTZbsNeUgC1aeIZVchDp+Rt3heijb6LoauQ7d8tCL +59qZ9kpQRL8FpYysdOW6lBHTJEDuQPwZfEJcJzxf1xBT2I2kE5SK9mBXdx3N +WiK9QfllvqZcT35oP3With85qTwvdcWWG1P1/GH9CTFGHKW53jVzyjS84zNC +K376uWDXL00KMwqH0Zmk1szd2G9jZaMeh46gT/+rbnTGZgmSJ7+TxlCFcWeP +E7bglSMe+gvjSIWx6jUFW1Eis+1o7QRaHU6vcMSmyP+4w7KeRuGLl6x2YRM5 +KjK6q1gostJ10g47Rt0p7lDHDJpIh9M7sftl+/6JKOQgN5t4mg02bX9QYOqV +WdTuPFxljc3O4LlVFjqHcvl9Fi2xV6noinNI86hm+aWJBfZ1WpOtuPQPFJJa +bWqOrXTXI2brwg90IqxD3QzbZPMFVkjtIqppoD41xA4w+twxab2E1jPdFnWw +vzOO8QtpLKOD4hEuWthnaoXNtVb9QW2SVWka2DfB5L5/x18kd+vRiBI3X34b +OayQF47UJMauxS58njoUK88HWrcmDCS4eb96n0q+wgfFwcG9otintOfLS0JX +gNjbmW5Bbt6HyqozJAGQdWb1LZhw0Ieu6fo/uQLw6MHN4TlspdnK/WukBSHO +P/T9DHaRASVFd0EQsqwzL33Fbq4+yRtcuwriLknOvcGeb+r9PGEtAvWkkk8P +sCUdRMSj6kVgXk9f+x62Xh8ZRE1FIUvM6mAudtDoo5x/tqyB4SqBM2nYR/g6 +9LaLiIOgo2FGNPaYygNO3A8JiJ1+hnZifyfaV3fqS4JcsYOgJTbf/XHldUcl +of1aSIUpN6/+RpfCKUkYy45o1cbeb51U9npICpJLitqEsTv9wsJlX0oDf2aY +yQtjDhq8e/WyzyoZsNlWy2jAnp4qzL1nIwOHcu/kVGILRYz0bmuQAXWnwLv5 +2OTzewx8HsmCulBl0hnsmjyj+YLs9WCbat37D3be2K9IswgFGLWU23jWiIN2 +7o0fDC9WgEN8uxWPY083S+0oHlcAkjixKhjbIG+ztJKHImh82ZK5F7uZ6l0u +YLER6IfcXmzCnp0ZOj5xTgl6933c3GbIQVIh5IpyRxVIWhTR/GnAQeN5QgHO +QSrAe2Rl3BR21acueeYFFQAZvlcD2AccvM5pNKiAae6SQiN2nk6kSzpJFf6s +0WxOwDaYvMuOllWDzHMBKtLYe/yFde2H1UGp8vDWDfochCL3kvYtqwNyvwci +2Npx2ca09RrQ7ftx+xKJg3hy9a2id2uA+qzu0kfs4kHPfWXPNCB7e9nF/7AF +3Ypi5W5vgqFY4osUdhXZ8e0kVQvcS+1vL+hxUK5r2seFaC0ofmNuOIZ9lTo8 +xP8/LWDc2FPRg007c2xKsVcLcv7+iizGlqjL5HG11oYJO8oaKnaQPku7VlUH +zrQGXWjdykHyKtdiLo9uhmCzh3fPbeGgukvftX7y6cKbDeuWgrEPzHn0Ecq6 +4Bfua+qGndWspmXlrQtky6xQTWwV/5qexXe6YGvyp+mlLp63aEydeLkFcsId +N6zBVpBXJJQ89GDjbbvUWB0O2pwfIfIbkaDzRIuKmiYHUWnn5nUpJFA3Db27 +GvumasqgzwESXGyKWjeziYNW3H5Y8pxBAsm1r59WY3/ImtyTUkqC1h+JqhTs +hJs+mVqq+tATHWYZroG/72WHLe6CBqB0fXD8gRoH3QpTc37UYQgkrXde00oc +1BWJjM/nm8IbnvfvG2U5SNn7DcUreDsYuJ/yjBTlIPrfxw8UTgCUHssMrufj +INmpqpWyVCv4rLnUsDjPRhH65p9StMnwJrV/+6pvbERlLrVJTdpASI6T27GP +bFRsFb4yu9MWUh45B3a+ZKO870HPiq7bwUrlkS2H6tho0XLdq+aYXZBaKhgy +X8hGAzwrOMO+jnBi57DmxnQ2Ct1wOClW1QmOuD40nY1noweBbQ3/xjnDDmuC +1B3BRifn1i/oBO4G/xaVoFQqG83b73BrPegC2RpUzygKG5l6JluO7XYFb6HP +v8+ZsVHP+sygZv09sNwm7tC4iY3k7pyrK9DcC2/rPSu8pdioakjbgSLqBlMX +y1W8eNhIsY/tH8l0A1mDbnLhxxmk/29yUe7QPlhO05PrL59BmfxzW1Ka3AHe +NdzWuzaDHltu/RBX7QFpA81LOgEz6KbxJYmlwv2QdPL9k1qrGdT5Mf+C/hVP +oDQ8jaxUmkGPHDPUjpw5ADeFNMc5SyzECXHlCaV5QaLdnpeVn1hofodWAMva +G2IZT5d317NQAfP9YrjRQZA0u7HQmsVC7rfy/bxEfCD5FVXz9VkWKi/bdXBF +vA9kPA9K1CRYyFS+52fCTx9o9PQwknRkIdUh/w/dgb4g2+pPkTdioVHhQ04Z +I74wkj79Yt1GFuq6SvGz3UuFa2crXx8XZqHrjGzhY11UWI6sYtosMlFd/d+f +fnZ+EPDfH4EbX5lI7ADE69f4Qeat8wPL75lIaW1r54Y6P3jWQtFsxdbrcFwn +WO8HIh7paUnYLuae9/qf+cFX55oRVezrGyJfnn7hBz6VESSHfiaSG7gv1tbv +By+erynKfctEat6yNw8s+EEPM0k5tJeJTH1YBXEGNOBPOpZ59BUT3Ulnh1OM +aMBb5aRki722d9ZC1oQGGx3ONG3AZtks9BVso0Fa01RQWwcT/794eDusaKDH +2mChjL1mQcJDcjcNflw8tNDfzkSjiYars0NocG380jOfNiba3Wrc53+YBtHU +WBcz7Hoes2y9ozT4Nr+Cfy12eriFYWMEDTJqyttaW5mI4mHrOxZFgzs93/r1 +sKvVPKp1LtHgvpeIzOrnTHS19lRg1R0azN1qFO1pYqIQUpopowDvb2k9WILt +cK90tUkhDXo7rLqvYguljd+rLKbBrnfZkg7YcWHOk48raJDQJSfW1shEp7TU +Dj1qpEHPU2N2yzMmCkp7GVw2SANOypjn+6dMZLdm3DxsiAaDp1Wya7E143hE +SV9oYBCwzJuFPR5mWFw6RoP4iWQNP2xfSjazZJoGgeJuU6x6JnIXCA99+Avf +l2hPE8G2DZc7UiRDh1U1mfIH65ioMfuCfco6OggolKhbY5t3zKox5OjQ76y6 +dxO2nvrL99aKdKC4/qPGrmWi9e+irD+q02GQIXbuHPaU2YCMkCEdHLWmyaU1 +THSNL+eJvysdLlYkDGtW4/m3itx03EuHZ45r/5PAPu/JCNPfRwePDHXGryom +YlQ4b/q7nw7knKG8Dmxfgjf5BpUO6Z1vGsKw9duptJajdLAJyl3xvJKJ3iWr +C6sm0SHRPa/24mMmeoBEAyaS6RB1atjvOPZ55vfm4lQ6sK3HNxPYJLvmaJM0 +OrjH2imTsa/y+M06ZtHhT3NCKi/2jsM57xlFdFC8HJd19hETKShcNLJ4QAeq +dKJrOPb39sOpK0ro0FRJaNGwb2sgx6vl+H2UpxjvwF4eGGjIraFDr+XggDB2 +hYN8wes2OizbtLhkVjDR5V98Atfb6fA7wUA6CZtaMOnr0UGHAcGYxbPY4vw1 +8qOddBBruasciB1c637t51s6nHji9scIW1X7RqTaGB00/ksf7i9nol/vTvd+ +G6eDV8Vi6Svsrji63sMJOiz2meU2YkcPG0yaTtMhkxU4UYT94Wavl9McHb5m +xCyfxU5ZKWFzkpcAyr4xF0PsutkBz4gVBLS3L6jqYH8dKAwLFSBAMkFUURnb +vIKcQ11NQM0oOVEUe9yH8dtegoDoLPa+iTKc38FG0kaKgE+/tY9+xt5mLKmF +pAlICA4uf4udJFrkpr+egOtkwfIWbr3mc6m8MgE+Cbey8rGJ/KI2aVUCjHYq +8WRx9yed+CymjvMdvHfpBvY4ISXKr0XAHYlPche5dSnbgGk9AsoiXm0Kwa75 +IxUzTiLgIKegm8Ae+zb075ABAR/ik/N8sM0aTjb1mRBw1Pxyyx7s0eAHik+A +AL8xze8W2GvcowwrrQhw9j02boptar3ToZRMwAXDbl5D7Kvrv5zI30lA5WBl +uQ52Ff/DpGx7nEfb2n4T9shM1N10BwJa6gZXq2KbPJd+k+hMQPYlW355bGrp +l6l4FwLYm6WRLHZixkO+s3sIOP1l7rYU9pcwO71IdwK+bh8bE8EW9ZaxPbKf +gE7TxebV3H52I15BBwgwn9/wSpB7fuPpy94+BDhBhjsvN4+Q/W13KgEF0gsf +/5TifvMy1S40An4a0i4uYYsOj3Q6EATM1o94/cI26SgZ3xGA5+84dmARm1p5 +ehmCCOg7Lnf+B3bibfu124IJeNvf3fcduypRVscwlAAZgQzKHLc/Y9Ry6xEC +RsVOcDjYIrRSd60wAh4LBT5hYxs7RR9WjSBAWCC4bIbb32zXBYVIAraInO1i +YV9RX5cpyyDAQue+LNePxcfKJU4SUHzoazwTe/h3abvwKQIS+4yUuRb5Gj0s +EE3AeFD6yDS2Uc+uxb8xBIiRxDq5/j8NKiQY "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.9279693645599439, + 1.0764977370091326`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.927969364559946}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1558,130 +6258,132 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.9279693645599439, + 1.0764977370091326`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.927969364559946}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{115.12306105754327`, - 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV1Hk4lN0bB3CEypItFJE9S8o7dsm5MRIxRIlEjJnHEiqkKUUqSaUsvcn7 +sxVKomxlTbJEUtZKC5ElYcYMiYr6nfnjXM/1ue5z7vO9n+e6HmXqYRc6Hw8P +DxMv7vPo6y2bKrteWzCeTZbsNeUgC1aeIZVchDp+Rt3heijb6LoauQ7d8tCL +59qZ9kpQRL8FpYysdOW6lBHTJEDuQPwZfEJcJzxf1xBT2I2kE5SK9mBXdx3N +WiK9QfllvqZcT35oP3With85qTwvdcWWG1P1/GH9CTFGHKW53jVzyjS84zNC +K376uWDXL00KMwqH0Zmk1szd2G9jZaMeh46gT/+rbnTGZgmSJ7+TxlCFcWeP +E7bglSMe+gvjSIWx6jUFW1Eis+1o7QRaHU6vcMSmyP+4w7KeRuGLl6x2YRM5 +KjK6q1gostJ10g47Rt0p7lDHDJpIh9M7sftl+/6JKOQgN5t4mg02bX9QYOqV +WdTuPFxljc3O4LlVFjqHcvl9Fi2xV6noinNI86hm+aWJBfZ1WpOtuPQPFJJa +bWqOrXTXI2brwg90IqxD3QzbZPMFVkjtIqppoD41xA4w+twxab2E1jPdFnWw +vzOO8QtpLKOD4hEuWthnaoXNtVb9QW2SVWka2DfB5L5/x18kd+vRiBI3X34b +OayQF47UJMauxS58njoUK88HWrcmDCS4eb96n0q+wgfFwcG9otintOfLS0JX +gNjbmW5Bbt6HyqozJAGQdWb1LZhw0Ieu6fo/uQLw6MHN4TlspdnK/WukBSHO +P/T9DHaRASVFd0EQsqwzL33Fbq4+yRtcuwriLknOvcGeb+r9PGEtAvWkkk8P +sCUdRMSj6kVgXk9f+x62Xh8ZRE1FIUvM6mAudtDoo5x/tqyB4SqBM2nYR/g6 +9LaLiIOgo2FGNPaYygNO3A8JiJ1+hnZifyfaV3fqS4JcsYOgJTbf/XHldUcl +of1aSIUpN6/+RpfCKUkYy45o1cbeb51U9npICpJLitqEsTv9wsJlX0oDf2aY +yQtjDhq8e/WyzyoZsNlWy2jAnp4qzL1nIwOHcu/kVGILRYz0bmuQAXWnwLv5 +2OTzewx8HsmCulBl0hnsmjyj+YLs9WCbat37D3be2K9IswgFGLWU23jWiIN2 +7o0fDC9WgEN8uxWPY083S+0oHlcAkjixKhjbIG+ztJKHImh82ZK5F7uZ6l0u +YLER6IfcXmzCnp0ZOj5xTgl6933c3GbIQVIh5IpyRxVIWhTR/GnAQeN5QgHO +QSrAe2Rl3BR21acueeYFFQAZvlcD2AccvM5pNKiAae6SQiN2nk6kSzpJFf6s +0WxOwDaYvMuOllWDzHMBKtLYe/yFde2H1UGp8vDWDfochCL3kvYtqwNyvwci +2Npx2ca09RrQ7ftx+xKJg3hy9a2id2uA+qzu0kfs4kHPfWXPNCB7e9nF/7AF +3Ypi5W5vgqFY4osUdhXZ8e0kVQvcS+1vL+hxUK5r2seFaC0ofmNuOIZ9lTo8 +xP8/LWDc2FPRg007c2xKsVcLcv7+iizGlqjL5HG11oYJO8oaKnaQPku7VlUH +zrQGXWjdykHyKtdiLo9uhmCzh3fPbeGgukvftX7y6cKbDeuWgrEPzHn0Ecq6 +4Bfua+qGndWspmXlrQtky6xQTWwV/5qexXe6YGvyp+mlLp63aEydeLkFcsId +N6zBVpBXJJQ89GDjbbvUWB0O2pwfIfIbkaDzRIuKmiYHUWnn5nUpJFA3Db27 +GvumasqgzwESXGyKWjeziYNW3H5Y8pxBAsm1r59WY3/ImtyTUkqC1h+JqhTs +hJs+mVqq+tATHWYZroG/72WHLe6CBqB0fXD8gRoH3QpTc37UYQgkrXde00oc +1BWJjM/nm8IbnvfvG2U5SNn7DcUreDsYuJ/yjBTlIPrfxw8UTgCUHssMrufj +INmpqpWyVCv4rLnUsDjPRhH65p9StMnwJrV/+6pvbERlLrVJTdpASI6T27GP +bFRsFb4yu9MWUh45B3a+ZKO870HPiq7bwUrlkS2H6tho0XLdq+aYXZBaKhgy +X8hGAzwrOMO+jnBi57DmxnQ2Ct1wOClW1QmOuD40nY1noweBbQ3/xjnDDmuC +1B3BRifn1i/oBO4G/xaVoFQqG83b73BrPegC2RpUzygKG5l6JluO7XYFb6HP +v8+ZsVHP+sygZv09sNwm7tC4iY3k7pyrK9DcC2/rPSu8pdioakjbgSLqBlMX +y1W8eNhIsY/tH8l0A1mDbnLhxxmk/29yUe7QPlhO05PrL59BmfxzW1Ka3AHe +NdzWuzaDHltu/RBX7QFpA81LOgEz6KbxJYmlwv2QdPL9k1qrGdT5Mf+C/hVP +oDQ8jaxUmkGPHDPUjpw5ADeFNMc5SyzECXHlCaV5QaLdnpeVn1hofodWAMva +G2IZT5d317NQAfP9YrjRQZA0u7HQmsVC7rfy/bxEfCD5FVXz9VkWKi/bdXBF +vA9kPA9K1CRYyFS+52fCTx9o9PQwknRkIdUh/w/dgb4g2+pPkTdioVHhQ04Z +I74wkj79Yt1GFuq6SvGz3UuFa2crXx8XZqHrjGzhY11UWI6sYtosMlFd/d+f +fnZ+EPDfH4EbX5lI7ADE69f4Qeat8wPL75lIaW1r54Y6P3jWQtFsxdbrcFwn +WO8HIh7paUnYLuae9/qf+cFX55oRVezrGyJfnn7hBz6VESSHfiaSG7gv1tbv +By+erynKfctEat6yNw8s+EEPM0k5tJeJTH1YBXEGNOBPOpZ59BUT3Ulnh1OM +aMBb5aRki722d9ZC1oQGGx3ONG3AZtks9BVso0Fa01RQWwcT/794eDusaKDH +2mChjL1mQcJDcjcNflw8tNDfzkSjiYars0NocG380jOfNiba3Wrc53+YBtHU +WBcz7Hoes2y9ozT4Nr+Cfy12eriFYWMEDTJqyttaW5mI4mHrOxZFgzs93/r1 +sKvVPKp1LtHgvpeIzOrnTHS19lRg1R0azN1qFO1pYqIQUpopowDvb2k9WILt +cK90tUkhDXo7rLqvYguljd+rLKbBrnfZkg7YcWHOk48raJDQJSfW1shEp7TU +Dj1qpEHPU2N2yzMmCkp7GVw2SANOypjn+6dMZLdm3DxsiAaDp1Wya7E143hE +SV9oYBCwzJuFPR5mWFw6RoP4iWQNP2xfSjazZJoGgeJuU6x6JnIXCA99+Avf +l2hPE8G2DZc7UiRDh1U1mfIH65ioMfuCfco6OggolKhbY5t3zKox5OjQ76y6 +dxO2nvrL99aKdKC4/qPGrmWi9e+irD+q02GQIXbuHPaU2YCMkCEdHLWmyaU1 +THSNL+eJvysdLlYkDGtW4/m3itx03EuHZ45r/5PAPu/JCNPfRwePDHXGryom +YlQ4b/q7nw7knKG8Dmxfgjf5BpUO6Z1vGsKw9duptJajdLAJyl3xvJKJ3iWr +C6sm0SHRPa/24mMmeoBEAyaS6RB1atjvOPZ55vfm4lQ6sK3HNxPYJLvmaJM0 +OrjH2imTsa/y+M06ZtHhT3NCKi/2jsM57xlFdFC8HJd19hETKShcNLJ4QAeq +dKJrOPb39sOpK0ro0FRJaNGwb2sgx6vl+H2UpxjvwF4eGGjIraFDr+XggDB2 +hYN8wes2OizbtLhkVjDR5V98Atfb6fA7wUA6CZtaMOnr0UGHAcGYxbPY4vw1 +8qOddBBruasciB1c637t51s6nHji9scIW1X7RqTaGB00/ksf7i9nol/vTvd+ +G6eDV8Vi6Svsrji63sMJOiz2meU2YkcPG0yaTtMhkxU4UYT94Wavl9McHb5m +xCyfxU5ZKWFzkpcAyr4xF0PsutkBz4gVBLS3L6jqYH8dKAwLFSBAMkFUURnb +vIKcQ11NQM0oOVEUe9yH8dtegoDoLPa+iTKc38FG0kaKgE+/tY9+xt5mLKmF +pAlICA4uf4udJFrkpr+egOtkwfIWbr3mc6m8MgE+Cbey8rGJ/KI2aVUCjHYq +8WRx9yed+CymjvMdvHfpBvY4ISXKr0XAHYlPche5dSnbgGk9AsoiXm0Kwa75 +IxUzTiLgIKegm8Ae+zb075ABAR/ik/N8sM0aTjb1mRBw1Pxyyx7s0eAHik+A +AL8xze8W2GvcowwrrQhw9j02boptar3ToZRMwAXDbl5D7Kvrv5zI30lA5WBl +uQ52Ff/DpGx7nEfb2n4T9shM1N10BwJa6gZXq2KbPJd+k+hMQPYlW355bGrp +l6l4FwLYm6WRLHZixkO+s3sIOP1l7rYU9pcwO71IdwK+bh8bE8EW9ZaxPbKf +gE7TxebV3H52I15BBwgwn9/wSpB7fuPpy94+BDhBhjsvN4+Q/W13KgEF0gsf +/5TifvMy1S40An4a0i4uYYsOj3Q6EATM1o94/cI26SgZ3xGA5+84dmARm1p5 +ehmCCOg7Lnf+B3bibfu124IJeNvf3fcduypRVscwlAAZgQzKHLc/Y9Ry6xEC +RsVOcDjYIrRSd60wAh4LBT5hYxs7RR9WjSBAWCC4bIbb32zXBYVIAraInO1i +YV9RX5cpyyDAQue+LNePxcfKJU4SUHzoazwTe/h3abvwKQIS+4yUuRb5Gj0s +EE3AeFD6yDS2Uc+uxb8xBIiRxDq5/j8NKiQY "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.9279693645599439, 1.0764977370091326`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.927969364559946}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1691,7 +6393,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5986424829233548}, + AxesOrigin->{0, 0.927969364559946}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1719,7 +6422,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9279693645599439, 1.0764977370091326`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1727,9 +6431,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991339493274267*^9}, - CellLabel-> - "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] + CellChangeTimes->{3.991339493274267*^9, 3.993917514098851*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"31584271-d60d-436e-a940-62714f7a9f5d"] }, Open ]], Cell[CellGroupData[{ @@ -1792,262 +6495,157 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849724783457*^9},ExpressionUUID->"6e33cb28-ef1e-1547-b52d-\ -2171e7786920"], + CellChangeTimes->{3.991849724783457*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 335, - 333, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493498577*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0099068334680076`*^-274\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 13, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993917514479838*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +In[95]:=",ExpressionUUID->"9f0af054-68c8-4ced-b09c-321487a3d104"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 335, 334, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493508564*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.054534652654457`*^-288\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 14, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993917514488821*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], +In[95]:=",ExpressionUUID->"454b56dc-bad5-4675-90a7-dac17f1d074c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 335, 335, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493517563*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.118035749355838`*^-301\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 15, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993917514495994*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +In[95]:=",ExpressionUUID->"b02e41de-de87-4ee3-992d-cfa72bf7da1d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493525564*^9}, +during this calculation.\"", 2, 95, 16, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993917514504223*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +In[95]:=",ExpressionUUID->"89b5f89a-f313-4754-860d-3891924c49f6"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0Ff8bB3AhUciaJbt757rWCGW5nockJFKUFNqkUtotUS7ZKpXsPypL +EnemyLcVIUtpXyhrFCnJml35+s33jzlzXufMOfOZ93ye94z6zkMbfPn5+Phm +6eO/80TH81rG+TyrJ4quItFNJlaN1+RDrJsjgZoU1WeKyADKvt0p35wIi+qO +K00JMyBwPa9JoDkXJmxrS9uFjUFyUC5xuqkE6rxD88uEbaGz3PnQWFM13J28 +cclL2A3sGH2fR5o+QOJ4yvYpod0w3bQiZbipC+IznbQC5h2HmlU3897njsKQ +0LcQg8ooUOp89H2n7izMtNbPi0i7CDIHfHgLVgmgjMHwx9HZJEg0tCtzdhdG +740hXz160qElfVnViIQYvhOKGNCyvgrn88Lf8itI4t+75fXJLdkgl9x9Numq +NP5yeS91sjMXYt0crD5MyGL81QyNCxl5cMwsx+d5pDw2Fk4OL3LKB9uhmZMB +3YrI/2IqyLTkJkRYuu5QXKmMcRld9iLfCsDe+9rvFTbKqKT6o6GhtwDEub/O +uDspY1QqzGYMFMCVmuj8hO3KGNQzzladLICHjqW/hM4qY41Qz7d/RQph2EMz +cLRFGUv2FN1ealAI3ifGz70KVcEwkctazwMLwfz2/+6erlTFp0buX/r+FIJt +05vZwXpV3Leg3yB9rhCc+QTX+HxQxby7kdE2AjzYtSGgBXpUce3uSJuLC3lg +F6oezp2vhi1tt/j5FXhwWHXiurWOGj4Lu5bsacKDWr+sgZpANSx76dD91p8H +Dn/NpMJC1bBv6OgP5UM8eJPQaGrMVcOcahzZe5QHLY9EuHln1bB3tFt2IpgH +g4uOS0VfUUPtHIW8/mgeyBfbr7CrVkOXmeR2xyweHJga4daLqWPtP1+VXr3l +gfmRPUu+S6mjAdewcfoDD4T7WkkBeXWs7PopxvjEgxttNZ+sNNTRKUBMJKCd +Bx0VKbr3TNVRYipNvbmXBy7RZs05Pur4dd/3acF5JBhJRRiE3lHHiiYFn2p9 +EvjOj9em31fHnMJBkmtIwhuB/Z73y9RRIM6Da2FMgv/4huiROnWM831SlW9G +Ql4zo82vVR2jTv28sdGWhCVZ9TFuAhpYkza5fMEWEqZ1JDr03DXQl+0g1xRO +wsRVxYjlnho45fpmnlIkCWOLmQwzHw20U2rK9IoiYXDUbL/tPg38MD+p81Mc +CV1luyY8T2lgtcjdWzmXSXix9oF43A0NNKsvzk/PJSHD3xu6xjWw/P4xjng1 +CWmf93b9mNHARUrXi37WkJDscix6YE4DNYmYtid1JFxcHvdySkQTt4x82rH3 +OQmRf+5sXqyiid2WjUYX39HPd37+YUs7TfS5UGfG6SDBkqSyU1M10Z0Rn6Yz +SUKbGpm1OlMTB/VdJWKmSDiZWnhtLEsTBT6MlH6eJuFBRP6VDYWaGLRV/2bU +Xzpfj+x08XJNVM6K6ymeRwF7fnJCzFdNjPT66HhmEQX1JxMvmXzXxA4iTPSO +KAV7hhMufuvTxNNxDfPbxSjIa7sQbzOmia+y5HPYEhSolcTG/SvEwA+Mu1HX +ZShY4hPKDdRlYKCh52YpZQruNYaEMw0ZuJoIqpZWocDNMfh0owkDjSri/KVU +KUg0ORFmBAw8XccOWaBOgZjooeBBVwZud2298I5BgeCjnYf3BDGwoUB8pkOH +guv6Ow7JhjHwkoNU4F1dCmzyfAJquQz81VlqGqtHQfilbQc0zjGw/dy9WIYB +BTO+m/Z2XGFgkWbkcSsjCkakHLdvqmZgScqW9qEVFDQf0Hi3/xkDwz4uVyhY +SUHV0xkIf8VAN/EnLC8zChJOkqoFnxjomuRY/ticgmVdop3TfQw81p/U4MGh +QN6yx1l8mIGx0mG3J2nzpT6u0BhnoOfH9z5JVhS8dQi4tnaOgYZdevZPgIKA +O2+9rkozUTzzCk5aU7BpUcHrO/JM7LXq6gyzocDKl8t5qszEU0LHPOdoiykY +Kg+xmJjCP9Q9s4oCipvYjpZMdLv5eMur1RQkt+53crdmovS1um8r7SgIM15V +vs+OiVNp8utzaa/tHc1MXM/EwVT2C/81FPS5uG/9tpuJCSvbvFrsKfhQqPdy +ah8TWaJLZ3UdKCgVELIQO8RE85hnEadon31wX9E0hIk5zHlWso4UHJa8dM7x +NBOLRtoDt9H28Peb8T7DRKU71WnZtLVU5VtjLzCxi88lWXUtBRIhww5XEpmY +4WZ/xJP21If6R8VpTHyhPrIykfYX3Rx23RUmlkmM/XpKuz4m5H8tOUx8v/bv +uSnaxV9cRQbzmWgWfm8Jy4mCdHPtEH6KifeaX17aQNtvsNVD5z4T48xrnLJp +O9v/Uw9lTLTTnLtcTds09/xKtyomwu91z77SVvm7q2BvHROdPbwHZmkLbbKU +P/WCXn9Mp6DcOgoGi2TiLr9lYolOhLge7U8iA5M3Gpm4Lnh0IdKu2FXnV9rC +xFGFHzMutPMfX21608FEW45Y5zbaF+UC13R3M1H5gtzDPbQDjzg/mOxlor3R +w5iDtL1fEizRQTrfhpy1R2ivZs6lqo0ysSIpdsFR2rrhTUImU/TzySiXHaIt +01IU6DBLr+fYEr/9tP8axX334ifwiaOW6E7a3+K3bzq6gEDp4gXkJtoBfboa +y0QJnCyU3OBAe3LN9MCABIG8d42bzWhzb9Q9ImUJTIvtKSdoLxRIjN6nSGDk +peYISdrJ271dWaoErhNadXOazke5Qlu5R5PAij2lep2085dO9uZqEegQ1yj7 +X77LQmrubtcj8Ns11vZc2qWfLnFVjAisNncU49JeZbzNqd2UQA37BuWttDcN +jXVvRgLXLw/0F6H9xelJkexqAnv+qSxsp9/3ft6F0AYHAiV/vVl3i/YpX0La +ZSOBLVTOczvaQjW/O0Q96PvdSctdTDtBrZL3YhuBAjsfdn90/K+fNtvY7SHw +c3pXtidtfTOGuKA/gfX71VUUaD9IHW55cojAf06Nz/9I7+8XrmePcEIIrGp4 +KbeatluRO+fPKQKbdYRWTdPz8VlUQ+RRJIHug6vbeLSHn5VmG8cTWFjo4C5E +e4lV/1udLALDJ7K51+h5y858mPnzOoEJRquYVrTZ01F+NwsItL7dZtFGz6vl +XeU5jRICtVYHPBGjvUvbRV+xjsC/A3ngRs93f+zSmabnBDJrI6I76fkP7PlR +l/KGwM1uW2320j6XzfWSbCbwnPFFzaN0fxQvKYkX/kVgyu76FD+6X8yPn/Z4 +OkSgoZb3jQ66f2reOzKixug83UQNN9L+FN9dNjdLoP/g6kpjuq/+8sv+mpBg +YUKk0/MWut8choIcekxZuCogn0mZUKBkqBIjbMnCWot3Pv3G9Hwcra3WsWZh +9zvHEjbt5AkJy6NrWRgqlXw9k+7XjtlC/TkfFqoIWrzdRvfvUdF2aYWzLHxw +bdtCdy0KbJ0j11teZKGN4A8DPxYFcglaF3ySWHi5LyQ0kKCgXPqEUP5VFipn +msTF0/0vtFR82qiEhURjREKqGgUZbOxwamOhWeRNdU15Cg74f1c8/IWFe4vU +JYXlKIBb8ZuTeli4SbPWuE+Wno9lLe9ahlioES2nlC9N74eVR2v2CGrhSw1m +1F9xOh+7vAKunhY2/OZGMebT+e8SPnY3XAuv339922+I/v5fs31cGaWFD+Is +b/0ZIGGohbvg5VktfLV8QvZCPwm/XaYzvyZpYcHOVnbBTxImLfpqxQu0kPq5 +73hlNwn8Mq+W7HunhcvsnnsdayJBofZSqbI6G9PPpLZOlJOgOPdSkE2wMaVX +ususjAQlc2EXYx02JrT/PnzyEQkqxdxuRxM2dlWd1xq7RwLjyhHRYAc2VsqY +KLy4TcKy4xu9Pxxh447X+e/5skn6f1yOP7aajfwHf5hmc0n4uXNNgcUzNjpI +/JV/dJqE+Jwg5+GXbGyTfDj4NoyEBpXmjC0f2Sjoaxs8GUzCdoX/LdftZePH +J+cV9I+QECK+1Pe9mDaKNrrZmu8ggZpSqV+6RRt3i1RVNgAJUq+Ji8VD2nir +If3Pikke/Du07MaLMfr630N+2WM86JOyKP82rY3MYqUCod88qPZw6ZMX1MH5 +/BoFr/p5cOxbkF2EvA6yLaRqrbp40Pin/l9Xax1cv/ipe/krHqRp+x8aTdTB +2d+F5oxsHijFFa03NdXF7pv9G7qQB+k6ZhLSfnp4+2vK1OjJQnihaG0yelkf +hz6H/fLPLQBzpeoEg08GGPlcxtoy9yaIC+Qe3xG5DI8LqIu+ys0HlQhVyy2E +IW5ZqLVRknsDRJjb7m94ZohvQ38vO+KRB/ochaIgLyN88eVUaJPVdTjaIVXj +yLcc5d/1B3ktzIWh0Xh3h/TlGHC8L8m5LxvWGDzNcNAzxrUntvUH5GVBxajF +n8k3xmh9q/PAaeerEKBr1Pre1wTDBWwKmvUygTO4u3GLiCmadWwK4Y2kw2qG +/DqxXFMU1CGrgoZSQYt7Lrh6xQoMx9dTh0RTQNvXrJLZugLFUxdOSiomgW/F +3qi7R1ZirLbSsOvOy1CZ3bh7RNYMuxnfq0dtL8FYwdykwQMzvGzsGf5aIh52 +MUmRjHXmeKXqMfTYn4UR7STTkmFzTM8w4jtzOgYe5v35Oh5ngcreUiJZ8lHg +aauJFiqWuHWmI1dnKAKWHox9pF9liXxi3WHtKeEgu/DAnXWbOTjr96jg9Fgo +5K06dXJ4CwfvKfKSF/eEgtGpi6uStnFQb8DB8ObHUHAeLv7YvIODB39KBPbd +D4WYT+PTuw5w0D52Yq4qJBSmcsNtTkZwMNrZ+wbFFwqtFkkN+SQH9y22zz4q +fRL2nsi74nCbg+08+8OfBE/CxO17vv3FHOyV/F6GEyEgpdE8aXifgwulV1Zq +tYTAWmFlpcdVHPx1sNfOLisEyhvzdzd85CAjvaTjnm4IOIo/1Ats5qAX1/Eq +VyUEmtc8n5Bv46DcF/dyV4kQGCv9Fef9hYPLnw3JLBgLBr2cZbd+9nEQes34 +KsqCobzVOjB+gIOJ1SGJZbeCwVFmIxgMc7Ao5URQZVYw7Ik98f74OActJiuM +Ws8Ew1hVTIbcFAerMjPmj5wIhsiZtF2lMxzM3+PMEN8bDBLGhbpesxwsTVK7 +YOgZDNcOlo7PzXHQUGyz1VanYPg/vQ8wfQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2061,221 +6659,113 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV1nk0Ff8bB3AhUciaJbt757rWCGW5nockJFKUFNqkUtotUS7ZKpXsPypL +EnemyLcVIUtpXyhrFCnJml35+s33jzlzXufMOfOZ93ye94z6zkMbfPn5+Phm +6eO/80TH81rG+TyrJ4quItFNJlaN1+RDrJsjgZoU1WeKyADKvt0p35wIi+qO +K00JMyBwPa9JoDkXJmxrS9uFjUFyUC5xuqkE6rxD88uEbaGz3PnQWFM13J28 +cclL2A3sGH2fR5o+QOJ4yvYpod0w3bQiZbipC+IznbQC5h2HmlU3897njsKQ +0LcQg8ooUOp89H2n7izMtNbPi0i7CDIHfHgLVgmgjMHwx9HZJEg0tCtzdhdG +740hXz160qElfVnViIQYvhOKGNCyvgrn88Lf8itI4t+75fXJLdkgl9x9Numq +NP5yeS91sjMXYt0crD5MyGL81QyNCxl5cMwsx+d5pDw2Fk4OL3LKB9uhmZMB +3YrI/2IqyLTkJkRYuu5QXKmMcRld9iLfCsDe+9rvFTbKqKT6o6GhtwDEub/O +uDspY1QqzGYMFMCVmuj8hO3KGNQzzladLICHjqW/hM4qY41Qz7d/RQph2EMz +cLRFGUv2FN1ealAI3ifGz70KVcEwkctazwMLwfz2/+6erlTFp0buX/r+FIJt +05vZwXpV3Leg3yB9rhCc+QTX+HxQxby7kdE2AjzYtSGgBXpUce3uSJuLC3lg +F6oezp2vhi1tt/j5FXhwWHXiurWOGj4Lu5bsacKDWr+sgZpANSx76dD91p8H +Dn/NpMJC1bBv6OgP5UM8eJPQaGrMVcOcahzZe5QHLY9EuHln1bB3tFt2IpgH +g4uOS0VfUUPtHIW8/mgeyBfbr7CrVkOXmeR2xyweHJga4daLqWPtP1+VXr3l +gfmRPUu+S6mjAdewcfoDD4T7WkkBeXWs7PopxvjEgxttNZ+sNNTRKUBMJKCd +Bx0VKbr3TNVRYipNvbmXBy7RZs05Pur4dd/3acF5JBhJRRiE3lHHiiYFn2p9 +EvjOj9em31fHnMJBkmtIwhuB/Z73y9RRIM6Da2FMgv/4huiROnWM831SlW9G +Ql4zo82vVR2jTv28sdGWhCVZ9TFuAhpYkza5fMEWEqZ1JDr03DXQl+0g1xRO +wsRVxYjlnho45fpmnlIkCWOLmQwzHw20U2rK9IoiYXDUbL/tPg38MD+p81Mc +CV1luyY8T2lgtcjdWzmXSXix9oF43A0NNKsvzk/PJSHD3xu6xjWw/P4xjng1 +CWmf93b9mNHARUrXi37WkJDscix6YE4DNYmYtid1JFxcHvdySkQTt4x82rH3 +OQmRf+5sXqyiid2WjUYX39HPd37+YUs7TfS5UGfG6SDBkqSyU1M10Z0Rn6Yz +SUKbGpm1OlMTB/VdJWKmSDiZWnhtLEsTBT6MlH6eJuFBRP6VDYWaGLRV/2bU +Xzpfj+x08XJNVM6K6ymeRwF7fnJCzFdNjPT66HhmEQX1JxMvmXzXxA4iTPSO +KAV7hhMufuvTxNNxDfPbxSjIa7sQbzOmia+y5HPYEhSolcTG/SvEwA+Mu1HX +ZShY4hPKDdRlYKCh52YpZQruNYaEMw0ZuJoIqpZWocDNMfh0owkDjSri/KVU +KUg0ORFmBAw8XccOWaBOgZjooeBBVwZud2298I5BgeCjnYf3BDGwoUB8pkOH +guv6Ow7JhjHwkoNU4F1dCmzyfAJquQz81VlqGqtHQfilbQc0zjGw/dy9WIYB +BTO+m/Z2XGFgkWbkcSsjCkakHLdvqmZgScqW9qEVFDQf0Hi3/xkDwz4uVyhY +SUHV0xkIf8VAN/EnLC8zChJOkqoFnxjomuRY/ticgmVdop3TfQw81p/U4MGh +QN6yx1l8mIGx0mG3J2nzpT6u0BhnoOfH9z5JVhS8dQi4tnaOgYZdevZPgIKA +O2+9rkozUTzzCk5aU7BpUcHrO/JM7LXq6gyzocDKl8t5qszEU0LHPOdoiykY +Kg+xmJjCP9Q9s4oCipvYjpZMdLv5eMur1RQkt+53crdmovS1um8r7SgIM15V +vs+OiVNp8utzaa/tHc1MXM/EwVT2C/81FPS5uG/9tpuJCSvbvFrsKfhQqPdy +ah8TWaJLZ3UdKCgVELIQO8RE85hnEadon31wX9E0hIk5zHlWso4UHJa8dM7x +NBOLRtoDt9H28Peb8T7DRKU71WnZtLVU5VtjLzCxi88lWXUtBRIhww5XEpmY +4WZ/xJP21If6R8VpTHyhPrIykfYX3Rx23RUmlkmM/XpKuz4m5H8tOUx8v/bv +uSnaxV9cRQbzmWgWfm8Jy4mCdHPtEH6KifeaX17aQNtvsNVD5z4T48xrnLJp +O9v/Uw9lTLTTnLtcTds09/xKtyomwu91z77SVvm7q2BvHROdPbwHZmkLbbKU +P/WCXn9Mp6DcOgoGi2TiLr9lYolOhLge7U8iA5M3Gpm4Lnh0IdKu2FXnV9rC +xFGFHzMutPMfX21608FEW45Y5zbaF+UC13R3M1H5gtzDPbQDjzg/mOxlor3R +w5iDtL1fEizRQTrfhpy1R2ivZs6lqo0ysSIpdsFR2rrhTUImU/TzySiXHaIt +01IU6DBLr+fYEr/9tP8axX334ifwiaOW6E7a3+K3bzq6gEDp4gXkJtoBfboa +y0QJnCyU3OBAe3LN9MCABIG8d42bzWhzb9Q9ImUJTIvtKSdoLxRIjN6nSGDk +peYISdrJ271dWaoErhNadXOazke5Qlu5R5PAij2lep2085dO9uZqEegQ1yj7 +X77LQmrubtcj8Ns11vZc2qWfLnFVjAisNncU49JeZbzNqd2UQA37BuWttDcN +jXVvRgLXLw/0F6H9xelJkexqAnv+qSxsp9/3ft6F0AYHAiV/vVl3i/YpX0La +ZSOBLVTOczvaQjW/O0Q96PvdSctdTDtBrZL3YhuBAjsfdn90/K+fNtvY7SHw +c3pXtidtfTOGuKA/gfX71VUUaD9IHW55cojAf06Nz/9I7+8XrmePcEIIrGp4 +KbeatluRO+fPKQKbdYRWTdPz8VlUQ+RRJIHug6vbeLSHn5VmG8cTWFjo4C5E +e4lV/1udLALDJ7K51+h5y858mPnzOoEJRquYVrTZ01F+NwsItL7dZtFGz6vl +XeU5jRICtVYHPBGjvUvbRV+xjsC/A3ngRs93f+zSmabnBDJrI6I76fkP7PlR +l/KGwM1uW2320j6XzfWSbCbwnPFFzaN0fxQvKYkX/kVgyu76FD+6X8yPn/Z4 +OkSgoZb3jQ66f2reOzKixug83UQNN9L+FN9dNjdLoP/g6kpjuq/+8sv+mpBg +YUKk0/MWut8choIcekxZuCogn0mZUKBkqBIjbMnCWot3Pv3G9Hwcra3WsWZh +9zvHEjbt5AkJy6NrWRgqlXw9k+7XjtlC/TkfFqoIWrzdRvfvUdF2aYWzLHxw +bdtCdy0KbJ0j11teZKGN4A8DPxYFcglaF3ySWHi5LyQ0kKCgXPqEUP5VFipn +msTF0/0vtFR82qiEhURjREKqGgUZbOxwamOhWeRNdU15Cg74f1c8/IWFe4vU +JYXlKIBb8ZuTeli4SbPWuE+Wno9lLe9ahlioES2nlC9N74eVR2v2CGrhSw1m +1F9xOh+7vAKunhY2/OZGMebT+e8SPnY3XAuv339922+I/v5fs31cGaWFD+Is +b/0ZIGGohbvg5VktfLV8QvZCPwm/XaYzvyZpYcHOVnbBTxImLfpqxQu0kPq5 +73hlNwn8Mq+W7HunhcvsnnsdayJBofZSqbI6G9PPpLZOlJOgOPdSkE2wMaVX +ususjAQlc2EXYx02JrT/PnzyEQkqxdxuRxM2dlWd1xq7RwLjyhHRYAc2VsqY +KLy4TcKy4xu9Pxxh447X+e/5skn6f1yOP7aajfwHf5hmc0n4uXNNgcUzNjpI +/JV/dJqE+Jwg5+GXbGyTfDj4NoyEBpXmjC0f2Sjoaxs8GUzCdoX/LdftZePH +J+cV9I+QECK+1Pe9mDaKNrrZmu8ggZpSqV+6RRt3i1RVNgAJUq+Ji8VD2nir +If3Pikke/Du07MaLMfr630N+2WM86JOyKP82rY3MYqUCod88qPZw6ZMX1MH5 +/BoFr/p5cOxbkF2EvA6yLaRqrbp40Pin/l9Xax1cv/ipe/krHqRp+x8aTdTB +2d+F5oxsHijFFa03NdXF7pv9G7qQB+k6ZhLSfnp4+2vK1OjJQnihaG0yelkf +hz6H/fLPLQBzpeoEg08GGPlcxtoy9yaIC+Qe3xG5DI8LqIu+ys0HlQhVyy2E +IW5ZqLVRknsDRJjb7m94ZohvQ38vO+KRB/ochaIgLyN88eVUaJPVdTjaIVXj +yLcc5d/1B3ktzIWh0Xh3h/TlGHC8L8m5LxvWGDzNcNAzxrUntvUH5GVBxajF +n8k3xmh9q/PAaeerEKBr1Pre1wTDBWwKmvUygTO4u3GLiCmadWwK4Y2kw2qG +/DqxXFMU1CGrgoZSQYt7Lrh6xQoMx9dTh0RTQNvXrJLZugLFUxdOSiomgW/F +3qi7R1ZirLbSsOvOy1CZ3bh7RNYMuxnfq0dtL8FYwdykwQMzvGzsGf5aIh52 +MUmRjHXmeKXqMfTYn4UR7STTkmFzTM8w4jtzOgYe5v35Oh5ngcreUiJZ8lHg +aauJFiqWuHWmI1dnKAKWHox9pF9liXxi3WHtKeEgu/DAnXWbOTjr96jg9Fgo +5K06dXJ4CwfvKfKSF/eEgtGpi6uStnFQb8DB8ObHUHAeLv7YvIODB39KBPbd +D4WYT+PTuw5w0D52Yq4qJBSmcsNtTkZwMNrZ+wbFFwqtFkkN+SQH9y22zz4q +fRL2nsi74nCbg+08+8OfBE/CxO17vv3FHOyV/F6GEyEgpdE8aXifgwulV1Zq +tYTAWmFlpcdVHPx1sNfOLisEyhvzdzd85CAjvaTjnm4IOIo/1Ats5qAX1/Eq +VyUEmtc8n5Bv46DcF/dyV4kQGCv9Fef9hYPLnw3JLBgLBr2cZbd+9nEQes34 +KsqCobzVOjB+gIOJ1SGJZbeCwVFmIxgMc7Ao5URQZVYw7Ik98f74OActJiuM +Ws8Ew1hVTIbcFAerMjPmj5wIhsiZtF2lMxzM3+PMEN8bDBLGhbpesxwsTVK7 +YOgZDNcOlo7PzXHQUGyz1VanYPg/vQ8wfQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.055278361720219035`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2287,19 +6777,19 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.055278361720219035`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2313,220 +6803,112 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV1nk0Ff8bB3AhUciaJbt757rWCGW5nockJFKUFNqkUtotUS7ZKpXsPypL +EnemyLcVIUtpXyhrFCnJml35+s33jzlzXufMOfOZ93ye94z6zkMbfPn5+Phm +6eO/80TH81rG+TyrJ4quItFNJlaN1+RDrJsjgZoU1WeKyADKvt0p35wIi+qO +K00JMyBwPa9JoDkXJmxrS9uFjUFyUC5xuqkE6rxD88uEbaGz3PnQWFM13J28 +cclL2A3sGH2fR5o+QOJ4yvYpod0w3bQiZbipC+IznbQC5h2HmlU3897njsKQ +0LcQg8ooUOp89H2n7izMtNbPi0i7CDIHfHgLVgmgjMHwx9HZJEg0tCtzdhdG +740hXz160qElfVnViIQYvhOKGNCyvgrn88Lf8itI4t+75fXJLdkgl9x9Numq +NP5yeS91sjMXYt0crD5MyGL81QyNCxl5cMwsx+d5pDw2Fk4OL3LKB9uhmZMB +3YrI/2IqyLTkJkRYuu5QXKmMcRld9iLfCsDe+9rvFTbKqKT6o6GhtwDEub/O +uDspY1QqzGYMFMCVmuj8hO3KGNQzzladLICHjqW/hM4qY41Qz7d/RQph2EMz +cLRFGUv2FN1ealAI3ifGz70KVcEwkctazwMLwfz2/+6erlTFp0buX/r+FIJt +05vZwXpV3Leg3yB9rhCc+QTX+HxQxby7kdE2AjzYtSGgBXpUce3uSJuLC3lg +F6oezp2vhi1tt/j5FXhwWHXiurWOGj4Lu5bsacKDWr+sgZpANSx76dD91p8H +Dn/NpMJC1bBv6OgP5UM8eJPQaGrMVcOcahzZe5QHLY9EuHln1bB3tFt2IpgH +g4uOS0VfUUPtHIW8/mgeyBfbr7CrVkOXmeR2xyweHJga4daLqWPtP1+VXr3l +gfmRPUu+S6mjAdewcfoDD4T7WkkBeXWs7PopxvjEgxttNZ+sNNTRKUBMJKCd +Bx0VKbr3TNVRYipNvbmXBy7RZs05Pur4dd/3acF5JBhJRRiE3lHHiiYFn2p9 +EvjOj9em31fHnMJBkmtIwhuB/Z73y9RRIM6Da2FMgv/4huiROnWM831SlW9G +Ql4zo82vVR2jTv28sdGWhCVZ9TFuAhpYkza5fMEWEqZ1JDr03DXQl+0g1xRO +wsRVxYjlnho45fpmnlIkCWOLmQwzHw20U2rK9IoiYXDUbL/tPg38MD+p81Mc +CV1luyY8T2lgtcjdWzmXSXix9oF43A0NNKsvzk/PJSHD3xu6xjWw/P4xjng1 +CWmf93b9mNHARUrXi37WkJDscix6YE4DNYmYtid1JFxcHvdySkQTt4x82rH3 +OQmRf+5sXqyiid2WjUYX39HPd37+YUs7TfS5UGfG6SDBkqSyU1M10Z0Rn6Yz +SUKbGpm1OlMTB/VdJWKmSDiZWnhtLEsTBT6MlH6eJuFBRP6VDYWaGLRV/2bU +Xzpfj+x08XJNVM6K6ymeRwF7fnJCzFdNjPT66HhmEQX1JxMvmXzXxA4iTPSO +KAV7hhMufuvTxNNxDfPbxSjIa7sQbzOmia+y5HPYEhSolcTG/SvEwA+Mu1HX +ZShY4hPKDdRlYKCh52YpZQruNYaEMw0ZuJoIqpZWocDNMfh0owkDjSri/KVU +KUg0ORFmBAw8XccOWaBOgZjooeBBVwZud2298I5BgeCjnYf3BDGwoUB8pkOH +guv6Ow7JhjHwkoNU4F1dCmzyfAJquQz81VlqGqtHQfilbQc0zjGw/dy9WIYB +BTO+m/Z2XGFgkWbkcSsjCkakHLdvqmZgScqW9qEVFDQf0Hi3/xkDwz4uVyhY +SUHV0xkIf8VAN/EnLC8zChJOkqoFnxjomuRY/ticgmVdop3TfQw81p/U4MGh +QN6yx1l8mIGx0mG3J2nzpT6u0BhnoOfH9z5JVhS8dQi4tnaOgYZdevZPgIKA +O2+9rkozUTzzCk5aU7BpUcHrO/JM7LXq6gyzocDKl8t5qszEU0LHPOdoiykY +Kg+xmJjCP9Q9s4oCipvYjpZMdLv5eMur1RQkt+53crdmovS1um8r7SgIM15V +vs+OiVNp8utzaa/tHc1MXM/EwVT2C/81FPS5uG/9tpuJCSvbvFrsKfhQqPdy +ah8TWaJLZ3UdKCgVELIQO8RE85hnEadon31wX9E0hIk5zHlWso4UHJa8dM7x +NBOLRtoDt9H28Peb8T7DRKU71WnZtLVU5VtjLzCxi88lWXUtBRIhww5XEpmY +4WZ/xJP21If6R8VpTHyhPrIykfYX3Rx23RUmlkmM/XpKuz4m5H8tOUx8v/bv +uSnaxV9cRQbzmWgWfm8Jy4mCdHPtEH6KifeaX17aQNtvsNVD5z4T48xrnLJp +O9v/Uw9lTLTTnLtcTds09/xKtyomwu91z77SVvm7q2BvHROdPbwHZmkLbbKU +P/WCXn9Mp6DcOgoGi2TiLr9lYolOhLge7U8iA5M3Gpm4Lnh0IdKu2FXnV9rC +xFGFHzMutPMfX21608FEW45Y5zbaF+UC13R3M1H5gtzDPbQDjzg/mOxlor3R +w5iDtL1fEizRQTrfhpy1R2ivZs6lqo0ysSIpdsFR2rrhTUImU/TzySiXHaIt +01IU6DBLr+fYEr/9tP8axX334ifwiaOW6E7a3+K3bzq6gEDp4gXkJtoBfboa +y0QJnCyU3OBAe3LN9MCABIG8d42bzWhzb9Q9ImUJTIvtKSdoLxRIjN6nSGDk +peYISdrJ271dWaoErhNadXOazke5Qlu5R5PAij2lep2085dO9uZqEegQ1yj7 +X77LQmrubtcj8Ns11vZc2qWfLnFVjAisNncU49JeZbzNqd2UQA37BuWttDcN +jXVvRgLXLw/0F6H9xelJkexqAnv+qSxsp9/3ft6F0AYHAiV/vVl3i/YpX0La +ZSOBLVTOczvaQjW/O0Q96PvdSctdTDtBrZL3YhuBAjsfdn90/K+fNtvY7SHw +c3pXtidtfTOGuKA/gfX71VUUaD9IHW55cojAf06Nz/9I7+8XrmePcEIIrGp4 +KbeatluRO+fPKQKbdYRWTdPz8VlUQ+RRJIHug6vbeLSHn5VmG8cTWFjo4C5E +e4lV/1udLALDJ7K51+h5y858mPnzOoEJRquYVrTZ01F+NwsItL7dZtFGz6vl +XeU5jRICtVYHPBGjvUvbRV+xjsC/A3ngRs93f+zSmabnBDJrI6I76fkP7PlR +l/KGwM1uW2320j6XzfWSbCbwnPFFzaN0fxQvKYkX/kVgyu76FD+6X8yPn/Z4 +OkSgoZb3jQ66f2reOzKixug83UQNN9L+FN9dNjdLoP/g6kpjuq/+8sv+mpBg +YUKk0/MWut8choIcekxZuCogn0mZUKBkqBIjbMnCWot3Pv3G9Hwcra3WsWZh +9zvHEjbt5AkJy6NrWRgqlXw9k+7XjtlC/TkfFqoIWrzdRvfvUdF2aYWzLHxw +bdtCdy0KbJ0j11teZKGN4A8DPxYFcglaF3ySWHi5LyQ0kKCgXPqEUP5VFipn +msTF0/0vtFR82qiEhURjREKqGgUZbOxwamOhWeRNdU15Cg74f1c8/IWFe4vU +JYXlKIBb8ZuTeli4SbPWuE+Wno9lLe9ahlioES2nlC9N74eVR2v2CGrhSw1m +1F9xOh+7vAKunhY2/OZGMebT+e8SPnY3XAuv339922+I/v5fs31cGaWFD+Is +b/0ZIGGohbvg5VktfLV8QvZCPwm/XaYzvyZpYcHOVnbBTxImLfpqxQu0kPq5 +73hlNwn8Mq+W7HunhcvsnnsdayJBofZSqbI6G9PPpLZOlJOgOPdSkE2wMaVX +ususjAQlc2EXYx02JrT/PnzyEQkqxdxuRxM2dlWd1xq7RwLjyhHRYAc2VsqY +KLy4TcKy4xu9Pxxh447X+e/5skn6f1yOP7aajfwHf5hmc0n4uXNNgcUzNjpI +/JV/dJqE+Jwg5+GXbGyTfDj4NoyEBpXmjC0f2Sjoaxs8GUzCdoX/LdftZePH +J+cV9I+QECK+1Pe9mDaKNrrZmu8ggZpSqV+6RRt3i1RVNgAJUq+Ji8VD2nir +If3Pikke/Du07MaLMfr630N+2WM86JOyKP82rY3MYqUCod88qPZw6ZMX1MH5 +/BoFr/p5cOxbkF2EvA6yLaRqrbp40Pin/l9Xax1cv/ipe/krHqRp+x8aTdTB +2d+F5oxsHijFFa03NdXF7pv9G7qQB+k6ZhLSfnp4+2vK1OjJQnihaG0yelkf +hz6H/fLPLQBzpeoEg08GGPlcxtoy9yaIC+Qe3xG5DI8LqIu+ys0HlQhVyy2E +IW5ZqLVRknsDRJjb7m94ZohvQ38vO+KRB/ochaIgLyN88eVUaJPVdTjaIVXj +yLcc5d/1B3ktzIWh0Xh3h/TlGHC8L8m5LxvWGDzNcNAzxrUntvUH5GVBxajF +n8k3xmh9q/PAaeerEKBr1Pre1wTDBWwKmvUygTO4u3GLiCmadWwK4Y2kw2qG +/DqxXFMU1CGrgoZSQYt7Lrh6xQoMx9dTh0RTQNvXrJLZugLFUxdOSiomgW/F +3qi7R1ZirLbSsOvOy1CZ3bh7RNYMuxnfq0dtL8FYwdykwQMzvGzsGf5aIh52 +MUmRjHXmeKXqMfTYn4UR7STTkmFzTM8w4jtzOgYe5v35Oh5ngcreUiJZ8lHg +aauJFiqWuHWmI1dnKAKWHox9pF9liXxi3WHtKeEgu/DAnXWbOTjr96jg9Fgo +5K06dXJ4CwfvKfKSF/eEgtGpi6uStnFQb8DB8ObHUHAeLv7YvIODB39KBPbd +D4WYT+PTuw5w0D52Yq4qJBSmcsNtTkZwMNrZ+wbFFwqtFkkN+SQH9y22zz4q +fRL2nsi74nCbg+08+8OfBE/CxO17vv3FHOyV/F6GEyEgpdE8aXifgwulV1Zq +tYTAWmFlpcdVHPx1sNfOLisEyhvzdzd85CAjvaTjnm4IOIo/1Ats5qAX1/Eq +VyUEmtc8n5Bv46DcF/dyV4kQGCv9Fef9hYPLnw3JLBgLBr2cZbd+9nEQes34 +KsqCobzVOjB+gIOJ1SGJZbeCwVFmIxgMc7Ao5URQZVYw7Ik98f74OActJiuM +Ws8Ew1hVTIbcFAerMjPmj5wIhsiZtF2lMxzM3+PMEN8bDBLGhbpesxwsTVK7 +YOgZDNcOlo7PzXHQUGyz1VanYPg/vQ8wfQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.055278361720219035`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2537,6 +6919,7 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2564,7 +6947,8 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.055278361720219035`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2572,25 +6956,854 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991340117671425*^9}, - CellLabel-> - "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] + CellChangeTimes->{3.991340117671425*^9, 3.99391778607192*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"98794dd7-c555-4e2f-b483-e24c66048d2d"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ -2bd9764114a1"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015632"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025463"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034444"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042305"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048862"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.053992"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.05763"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.05981"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060594"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060116"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058529"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056023"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052783"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.049014"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044891"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.04059"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.036252"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.032004"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027939"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024133"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020631"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017466"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014645"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012169"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.01002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008181"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005319"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004237"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00335"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993916493417759*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.060594}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939177862551603`*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"a3eb1c32-fb31-4c53-b1c6-d2885d5c9b45"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ -0ac982b58a3a"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0Ff8bB3AhUciaJbt757rWCGW5nockJFKUFNqkUtotUS7ZKpXsPypL +EnemyLcVIUtpXyhrFCnJml35+s33jzlzXufMOfOZ93ye94z6zkMbfPn5+Phm +6eO/80TH81rG+TyrJ4quItFNJlaN1+RDrJsjgZoU1WeKyADKvt0p35wIi+qO +K00JMyBwPa9JoDkXJmxrS9uFjUFyUC5xuqkE6rxD88uEbaGz3PnQWFM13J28 +cclL2A3sGH2fR5o+QOJ4yvYpod0w3bQiZbipC+IznbQC5h2HmlU3897njsKQ +0LcQg8ooUOp89H2n7izMtNbPi0i7CDIHfHgLVgmgjMHwx9HZJEg0tCtzdhdG +740hXz160qElfVnViIQYvhOKGNCyvgrn88Lf8itI4t+75fXJLdkgl9x9Numq +NP5yeS91sjMXYt0crD5MyGL81QyNCxl5cMwsx+d5pDw2Fk4OL3LKB9uhmZMB +3YrI/2IqyLTkJkRYuu5QXKmMcRld9iLfCsDe+9rvFTbKqKT6o6GhtwDEub/O +uDspY1QqzGYMFMCVmuj8hO3KGNQzzladLICHjqW/hM4qY41Qz7d/RQph2EMz +cLRFGUv2FN1ealAI3ifGz70KVcEwkctazwMLwfz2/+6erlTFp0buX/r+FIJt +05vZwXpV3Leg3yB9rhCc+QTX+HxQxby7kdE2AjzYtSGgBXpUce3uSJuLC3lg +F6oezp2vhi1tt/j5FXhwWHXiurWOGj4Lu5bsacKDWr+sgZpANSx76dD91p8H +Dn/NpMJC1bBv6OgP5UM8eJPQaGrMVcOcahzZe5QHLY9EuHln1bB3tFt2IpgH +g4uOS0VfUUPtHIW8/mgeyBfbr7CrVkOXmeR2xyweHJga4daLqWPtP1+VXr3l +gfmRPUu+S6mjAdewcfoDD4T7WkkBeXWs7PopxvjEgxttNZ+sNNTRKUBMJKCd +Bx0VKbr3TNVRYipNvbmXBy7RZs05Pur4dd/3acF5JBhJRRiE3lHHiiYFn2p9 +EvjOj9em31fHnMJBkmtIwhuB/Z73y9RRIM6Da2FMgv/4huiROnWM831SlW9G +Ql4zo82vVR2jTv28sdGWhCVZ9TFuAhpYkza5fMEWEqZ1JDr03DXQl+0g1xRO +wsRVxYjlnho45fpmnlIkCWOLmQwzHw20U2rK9IoiYXDUbL/tPg38MD+p81Mc +CV1luyY8T2lgtcjdWzmXSXix9oF43A0NNKsvzk/PJSHD3xu6xjWw/P4xjng1 +CWmf93b9mNHARUrXi37WkJDscix6YE4DNYmYtid1JFxcHvdySkQTt4x82rH3 +OQmRf+5sXqyiid2WjUYX39HPd37+YUs7TfS5UGfG6SDBkqSyU1M10Z0Rn6Yz +SUKbGpm1OlMTB/VdJWKmSDiZWnhtLEsTBT6MlH6eJuFBRP6VDYWaGLRV/2bU +Xzpfj+x08XJNVM6K6ymeRwF7fnJCzFdNjPT66HhmEQX1JxMvmXzXxA4iTPSO +KAV7hhMufuvTxNNxDfPbxSjIa7sQbzOmia+y5HPYEhSolcTG/SvEwA+Mu1HX +ZShY4hPKDdRlYKCh52YpZQruNYaEMw0ZuJoIqpZWocDNMfh0owkDjSri/KVU +KUg0ORFmBAw8XccOWaBOgZjooeBBVwZud2298I5BgeCjnYf3BDGwoUB8pkOH +guv6Ow7JhjHwkoNU4F1dCmzyfAJquQz81VlqGqtHQfilbQc0zjGw/dy9WIYB +BTO+m/Z2XGFgkWbkcSsjCkakHLdvqmZgScqW9qEVFDQf0Hi3/xkDwz4uVyhY +SUHV0xkIf8VAN/EnLC8zChJOkqoFnxjomuRY/ticgmVdop3TfQw81p/U4MGh +QN6yx1l8mIGx0mG3J2nzpT6u0BhnoOfH9z5JVhS8dQi4tnaOgYZdevZPgIKA +O2+9rkozUTzzCk5aU7BpUcHrO/JM7LXq6gyzocDKl8t5qszEU0LHPOdoiykY +Kg+xmJjCP9Q9s4oCipvYjpZMdLv5eMur1RQkt+53crdmovS1um8r7SgIM15V +vs+OiVNp8utzaa/tHc1MXM/EwVT2C/81FPS5uG/9tpuJCSvbvFrsKfhQqPdy +ah8TWaJLZ3UdKCgVELIQO8RE85hnEadon31wX9E0hIk5zHlWso4UHJa8dM7x +NBOLRtoDt9H28Peb8T7DRKU71WnZtLVU5VtjLzCxi88lWXUtBRIhww5XEpmY +4WZ/xJP21If6R8VpTHyhPrIykfYX3Rx23RUmlkmM/XpKuz4m5H8tOUx8v/bv +uSnaxV9cRQbzmWgWfm8Jy4mCdHPtEH6KifeaX17aQNtvsNVD5z4T48xrnLJp +O9v/Uw9lTLTTnLtcTds09/xKtyomwu91z77SVvm7q2BvHROdPbwHZmkLbbKU +P/WCXn9Mp6DcOgoGi2TiLr9lYolOhLge7U8iA5M3Gpm4Lnh0IdKu2FXnV9rC +xFGFHzMutPMfX21608FEW45Y5zbaF+UC13R3M1H5gtzDPbQDjzg/mOxlor3R +w5iDtL1fEizRQTrfhpy1R2ivZs6lqo0ysSIpdsFR2rrhTUImU/TzySiXHaIt +01IU6DBLr+fYEr/9tP8axX334ifwiaOW6E7a3+K3bzq6gEDp4gXkJtoBfboa +y0QJnCyU3OBAe3LN9MCABIG8d42bzWhzb9Q9ImUJTIvtKSdoLxRIjN6nSGDk +peYISdrJ271dWaoErhNadXOazke5Qlu5R5PAij2lep2085dO9uZqEegQ1yj7 +X77LQmrubtcj8Ns11vZc2qWfLnFVjAisNncU49JeZbzNqd2UQA37BuWttDcN +jXVvRgLXLw/0F6H9xelJkexqAnv+qSxsp9/3ft6F0AYHAiV/vVl3i/YpX0La +ZSOBLVTOczvaQjW/O0Q96PvdSctdTDtBrZL3YhuBAjsfdn90/K+fNtvY7SHw +c3pXtidtfTOGuKA/gfX71VUUaD9IHW55cojAf06Nz/9I7+8XrmePcEIIrGp4 +KbeatluRO+fPKQKbdYRWTdPz8VlUQ+RRJIHug6vbeLSHn5VmG8cTWFjo4C5E +e4lV/1udLALDJ7K51+h5y858mPnzOoEJRquYVrTZ01F+NwsItL7dZtFGz6vl +XeU5jRICtVYHPBGjvUvbRV+xjsC/A3ngRs93f+zSmabnBDJrI6I76fkP7PlR +l/KGwM1uW2320j6XzfWSbCbwnPFFzaN0fxQvKYkX/kVgyu76FD+6X8yPn/Z4 +OkSgoZb3jQ66f2reOzKixug83UQNN9L+FN9dNjdLoP/g6kpjuq/+8sv+mpBg +YUKk0/MWut8choIcekxZuCogn0mZUKBkqBIjbMnCWot3Pv3G9Hwcra3WsWZh +9zvHEjbt5AkJy6NrWRgqlXw9k+7XjtlC/TkfFqoIWrzdRvfvUdF2aYWzLHxw +bdtCdy0KbJ0j11teZKGN4A8DPxYFcglaF3ySWHi5LyQ0kKCgXPqEUP5VFipn +msTF0/0vtFR82qiEhURjREKqGgUZbOxwamOhWeRNdU15Cg74f1c8/IWFe4vU +JYXlKIBb8ZuTeli4SbPWuE+Wno9lLe9ahlioES2nlC9N74eVR2v2CGrhSw1m +1F9xOh+7vAKunhY2/OZGMebT+e8SPnY3XAuv339922+I/v5fs31cGaWFD+Is +b/0ZIGGohbvg5VktfLV8QvZCPwm/XaYzvyZpYcHOVnbBTxImLfpqxQu0kPq5 +73hlNwn8Mq+W7HunhcvsnnsdayJBofZSqbI6G9PPpLZOlJOgOPdSkE2wMaVX +ususjAQlc2EXYx02JrT/PnzyEQkqxdxuRxM2dlWd1xq7RwLjyhHRYAc2VsqY +KLy4TcKy4xu9Pxxh447X+e/5skn6f1yOP7aajfwHf5hmc0n4uXNNgcUzNjpI +/JV/dJqE+Jwg5+GXbGyTfDj4NoyEBpXmjC0f2Sjoaxs8GUzCdoX/LdftZePH +J+cV9I+QECK+1Pe9mDaKNrrZmu8ggZpSqV+6RRt3i1RVNgAJUq+Ji8VD2nir +If3Pikke/Du07MaLMfr630N+2WM86JOyKP82rY3MYqUCod88qPZw6ZMX1MH5 +/BoFr/p5cOxbkF2EvA6yLaRqrbp40Pin/l9Xax1cv/ipe/krHqRp+x8aTdTB +2d+F5oxsHijFFa03NdXF7pv9G7qQB+k6ZhLSfnp4+2vK1OjJQnihaG0yelkf +hz6H/fLPLQBzpeoEg08GGPlcxtoy9yaIC+Qe3xG5DI8LqIu+ys0HlQhVyy2E +IW5ZqLVRknsDRJjb7m94ZohvQ38vO+KRB/ochaIgLyN88eVUaJPVdTjaIVXj +yLcc5d/1B3ktzIWh0Xh3h/TlGHC8L8m5LxvWGDzNcNAzxrUntvUH5GVBxajF +n8k3xmh9q/PAaeerEKBr1Pre1wTDBWwKmvUygTO4u3GLiCmadWwK4Y2kw2qG +/DqxXFMU1CGrgoZSQYt7Lrh6xQoMx9dTh0RTQNvXrJLZugLFUxdOSiomgW/F +3qi7R1ZirLbSsOvOy1CZ3bh7RNYMuxnfq0dtL8FYwdykwQMzvGzsGf5aIh52 +MUmRjHXmeKXqMfTYn4UR7STTkmFzTM8w4jtzOgYe5v35Oh5ngcreUiJZ8lHg +aauJFiqWuHWmI1dnKAKWHox9pF9liXxi3WHtKeEgu/DAnXWbOTjr96jg9Fgo +5K06dXJ4CwfvKfKSF/eEgtGpi6uStnFQb8DB8ObHUHAeLv7YvIODB39KBPbd +D4WYT+PTuw5w0D52Yq4qJBSmcsNtTkZwMNrZ+wbFFwqtFkkN+SQH9y22zz4q +fRL2nsi74nCbg+08+8OfBE/CxO17vv3FHOyV/F6GEyEgpdE8aXifgwulV1Zq +tYTAWmFlpcdVHPx1sNfOLisEyhvzdzd85CAjvaTjnm4IOIo/1Ats5qAX1/Eq +VyUEmtc8n5Bv46DcF/dyV4kQGCv9Fef9hYPLnw3JLBgLBr2cZbd+9nEQes34 +KsqCobzVOjB+gIOJ1SGJZbeCwVFmIxgMc7Ao5URQZVYw7Ik98f74OActJiuM +Ws8Ew1hVTIbcFAerMjPmj5wIhsiZtF2lMxzM3+PMEN8bDBLGhbpesxwsTVK7 +YOgZDNcOlo7PzXHQUGyz1VanYPg/vQ8wfQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff8bB3AhUciaJbt757rWCGW5nockJFKUFNqkUtotUS7ZKpXsPypL +EnemyLcVIUtpXyhrFCnJml35+s33jzlzXufMOfOZ93ye94z6zkMbfPn5+Phm +6eO/80TH81rG+TyrJ4quItFNJlaN1+RDrJsjgZoU1WeKyADKvt0p35wIi+qO +K00JMyBwPa9JoDkXJmxrS9uFjUFyUC5xuqkE6rxD88uEbaGz3PnQWFM13J28 +cclL2A3sGH2fR5o+QOJ4yvYpod0w3bQiZbipC+IznbQC5h2HmlU3897njsKQ +0LcQg8ooUOp89H2n7izMtNbPi0i7CDIHfHgLVgmgjMHwx9HZJEg0tCtzdhdG +740hXz160qElfVnViIQYvhOKGNCyvgrn88Lf8itI4t+75fXJLdkgl9x9Numq +NP5yeS91sjMXYt0crD5MyGL81QyNCxl5cMwsx+d5pDw2Fk4OL3LKB9uhmZMB +3YrI/2IqyLTkJkRYuu5QXKmMcRld9iLfCsDe+9rvFTbKqKT6o6GhtwDEub/O +uDspY1QqzGYMFMCVmuj8hO3KGNQzzladLICHjqW/hM4qY41Qz7d/RQph2EMz +cLRFGUv2FN1ealAI3ifGz70KVcEwkctazwMLwfz2/+6erlTFp0buX/r+FIJt +05vZwXpV3Leg3yB9rhCc+QTX+HxQxby7kdE2AjzYtSGgBXpUce3uSJuLC3lg +F6oezp2vhi1tt/j5FXhwWHXiurWOGj4Lu5bsacKDWr+sgZpANSx76dD91p8H +Dn/NpMJC1bBv6OgP5UM8eJPQaGrMVcOcahzZe5QHLY9EuHln1bB3tFt2IpgH +g4uOS0VfUUPtHIW8/mgeyBfbr7CrVkOXmeR2xyweHJga4daLqWPtP1+VXr3l +gfmRPUu+S6mjAdewcfoDD4T7WkkBeXWs7PopxvjEgxttNZ+sNNTRKUBMJKCd +Bx0VKbr3TNVRYipNvbmXBy7RZs05Pur4dd/3acF5JBhJRRiE3lHHiiYFn2p9 +EvjOj9em31fHnMJBkmtIwhuB/Z73y9RRIM6Da2FMgv/4huiROnWM831SlW9G +Ql4zo82vVR2jTv28sdGWhCVZ9TFuAhpYkza5fMEWEqZ1JDr03DXQl+0g1xRO +wsRVxYjlnho45fpmnlIkCWOLmQwzHw20U2rK9IoiYXDUbL/tPg38MD+p81Mc +CV1luyY8T2lgtcjdWzmXSXix9oF43A0NNKsvzk/PJSHD3xu6xjWw/P4xjng1 +CWmf93b9mNHARUrXi37WkJDscix6YE4DNYmYtid1JFxcHvdySkQTt4x82rH3 +OQmRf+5sXqyiid2WjUYX39HPd37+YUs7TfS5UGfG6SDBkqSyU1M10Z0Rn6Yz +SUKbGpm1OlMTB/VdJWKmSDiZWnhtLEsTBT6MlH6eJuFBRP6VDYWaGLRV/2bU +Xzpfj+x08XJNVM6K6ymeRwF7fnJCzFdNjPT66HhmEQX1JxMvmXzXxA4iTPSO +KAV7hhMufuvTxNNxDfPbxSjIa7sQbzOmia+y5HPYEhSolcTG/SvEwA+Mu1HX +ZShY4hPKDdRlYKCh52YpZQruNYaEMw0ZuJoIqpZWocDNMfh0owkDjSri/KVU +KUg0ORFmBAw8XccOWaBOgZjooeBBVwZud2298I5BgeCjnYf3BDGwoUB8pkOH +guv6Ow7JhjHwkoNU4F1dCmzyfAJquQz81VlqGqtHQfilbQc0zjGw/dy9WIYB +BTO+m/Z2XGFgkWbkcSsjCkakHLdvqmZgScqW9qEVFDQf0Hi3/xkDwz4uVyhY +SUHV0xkIf8VAN/EnLC8zChJOkqoFnxjomuRY/ticgmVdop3TfQw81p/U4MGh +QN6yx1l8mIGx0mG3J2nzpT6u0BhnoOfH9z5JVhS8dQi4tnaOgYZdevZPgIKA +O2+9rkozUTzzCk5aU7BpUcHrO/JM7LXq6gyzocDKl8t5qszEU0LHPOdoiykY +Kg+xmJjCP9Q9s4oCipvYjpZMdLv5eMur1RQkt+53crdmovS1um8r7SgIM15V +vs+OiVNp8utzaa/tHc1MXM/EwVT2C/81FPS5uG/9tpuJCSvbvFrsKfhQqPdy +ah8TWaJLZ3UdKCgVELIQO8RE85hnEadon31wX9E0hIk5zHlWso4UHJa8dM7x +NBOLRtoDt9H28Peb8T7DRKU71WnZtLVU5VtjLzCxi88lWXUtBRIhww5XEpmY +4WZ/xJP21If6R8VpTHyhPrIykfYX3Rx23RUmlkmM/XpKuz4m5H8tOUx8v/bv +uSnaxV9cRQbzmWgWfm8Jy4mCdHPtEH6KifeaX17aQNtvsNVD5z4T48xrnLJp +O9v/Uw9lTLTTnLtcTds09/xKtyomwu91z77SVvm7q2BvHROdPbwHZmkLbbKU +P/WCXn9Mp6DcOgoGi2TiLr9lYolOhLge7U8iA5M3Gpm4Lnh0IdKu2FXnV9rC +xFGFHzMutPMfX21608FEW45Y5zbaF+UC13R3M1H5gtzDPbQDjzg/mOxlor3R +w5iDtL1fEizRQTrfhpy1R2ivZs6lqo0ysSIpdsFR2rrhTUImU/TzySiXHaIt +01IU6DBLr+fYEr/9tP8axX334ifwiaOW6E7a3+K3bzq6gEDp4gXkJtoBfboa +y0QJnCyU3OBAe3LN9MCABIG8d42bzWhzb9Q9ImUJTIvtKSdoLxRIjN6nSGDk +peYISdrJ271dWaoErhNadXOazke5Qlu5R5PAij2lep2085dO9uZqEegQ1yj7 +X77LQmrubtcj8Ns11vZc2qWfLnFVjAisNncU49JeZbzNqd2UQA37BuWttDcN +jXVvRgLXLw/0F6H9xelJkexqAnv+qSxsp9/3ft6F0AYHAiV/vVl3i/YpX0La +ZSOBLVTOczvaQjW/O0Q96PvdSctdTDtBrZL3YhuBAjsfdn90/K+fNtvY7SHw +c3pXtidtfTOGuKA/gfX71VUUaD9IHW55cojAf06Nz/9I7+8XrmePcEIIrGp4 +KbeatluRO+fPKQKbdYRWTdPz8VlUQ+RRJIHug6vbeLSHn5VmG8cTWFjo4C5E +e4lV/1udLALDJ7K51+h5y858mPnzOoEJRquYVrTZ01F+NwsItL7dZtFGz6vl +XeU5jRICtVYHPBGjvUvbRV+xjsC/A3ngRs93f+zSmabnBDJrI6I76fkP7PlR +l/KGwM1uW2320j6XzfWSbCbwnPFFzaN0fxQvKYkX/kVgyu76FD+6X8yPn/Z4 +OkSgoZb3jQ66f2reOzKixug83UQNN9L+FN9dNjdLoP/g6kpjuq/+8sv+mpBg +YUKk0/MWut8choIcekxZuCogn0mZUKBkqBIjbMnCWot3Pv3G9Hwcra3WsWZh +9zvHEjbt5AkJy6NrWRgqlXw9k+7XjtlC/TkfFqoIWrzdRvfvUdF2aYWzLHxw +bdtCdy0KbJ0j11teZKGN4A8DPxYFcglaF3ySWHi5LyQ0kKCgXPqEUP5VFipn +msTF0/0vtFR82qiEhURjREKqGgUZbOxwamOhWeRNdU15Cg74f1c8/IWFe4vU +JYXlKIBb8ZuTeli4SbPWuE+Wno9lLe9ahlioES2nlC9N74eVR2v2CGrhSw1m +1F9xOh+7vAKunhY2/OZGMebT+e8SPnY3XAuv339922+I/v5fs31cGaWFD+Is +b/0ZIGGohbvg5VktfLV8QvZCPwm/XaYzvyZpYcHOVnbBTxImLfpqxQu0kPq5 +73hlNwn8Mq+W7HunhcvsnnsdayJBofZSqbI6G9PPpLZOlJOgOPdSkE2wMaVX +ususjAQlc2EXYx02JrT/PnzyEQkqxdxuRxM2dlWd1xq7RwLjyhHRYAc2VsqY +KLy4TcKy4xu9Pxxh447X+e/5skn6f1yOP7aajfwHf5hmc0n4uXNNgcUzNjpI +/JV/dJqE+Jwg5+GXbGyTfDj4NoyEBpXmjC0f2Sjoaxs8GUzCdoX/LdftZePH +J+cV9I+QECK+1Pe9mDaKNrrZmu8ggZpSqV+6RRt3i1RVNgAJUq+Ji8VD2nir +If3Pikke/Du07MaLMfr630N+2WM86JOyKP82rY3MYqUCod88qPZw6ZMX1MH5 +/BoFr/p5cOxbkF2EvA6yLaRqrbp40Pin/l9Xax1cv/ipe/krHqRp+x8aTdTB +2d+F5oxsHijFFa03NdXF7pv9G7qQB+k6ZhLSfnp4+2vK1OjJQnihaG0yelkf +hz6H/fLPLQBzpeoEg08GGPlcxtoy9yaIC+Qe3xG5DI8LqIu+ys0HlQhVyy2E +IW5ZqLVRknsDRJjb7m94ZohvQ38vO+KRB/ochaIgLyN88eVUaJPVdTjaIVXj +yLcc5d/1B3ktzIWh0Xh3h/TlGHC8L8m5LxvWGDzNcNAzxrUntvUH5GVBxajF +n8k3xmh9q/PAaeerEKBr1Pre1wTDBWwKmvUygTO4u3GLiCmadWwK4Y2kw2qG +/DqxXFMU1CGrgoZSQYt7Lrh6xQoMx9dTh0RTQNvXrJLZugLFUxdOSiomgW/F +3qi7R1ZirLbSsOvOy1CZ3bh7RNYMuxnfq0dtL8FYwdykwQMzvGzsGf5aIh52 +MUmRjHXmeKXqMfTYn4UR7STTkmFzTM8w4jtzOgYe5v35Oh5ngcreUiJZ8lHg +aauJFiqWuHWmI1dnKAKWHox9pF9liXxi3WHtKeEgu/DAnXWbOTjr96jg9Fgo +5K06dXJ4CwfvKfKSF/eEgtGpi6uStnFQb8DB8ObHUHAeLv7YvIODB39KBPbd +D4WYT+PTuw5w0D52Yq4qJBSmcsNtTkZwMNrZ+wbFFwqtFkkN+SQH9y22zz4q +fRL2nsi74nCbg+08+8OfBE/CxO17vv3FHOyV/F6GEyEgpdE8aXifgwulV1Zq +tYTAWmFlpcdVHPx1sNfOLisEyhvzdzd85CAjvaTjnm4IOIo/1Ats5qAX1/Eq +VyUEmtc8n5Bv46DcF/dyV4kQGCv9Fef9hYPLnw3JLBgLBr2cZbd+9nEQes34 +KsqCobzVOjB+gIOJ1SGJZbeCwVFmIxgMc7Ao5URQZVYw7Ik98f74OActJiuM +Ws8Ew1hVTIbcFAerMjPmj5wIhsiZtF2lMxzM3+PMEN8bDBLGhbpesxwsTVK7 +YOgZDNcOlo7PzXHQUGyz1VanYPg/vQ8wfQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.055278361720219035`}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.055278361720219035`}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0Ff8bB3AhUciaJbt757rWCGW5nockJFKUFNqkUtotUS7ZKpXsPypL +EnemyLcVIUtpXyhrFCnJml35+s33jzlzXufMOfOZ93ye94z6zkMbfPn5+Phm +6eO/80TH81rG+TyrJ4quItFNJlaN1+RDrJsjgZoU1WeKyADKvt0p35wIi+qO +K00JMyBwPa9JoDkXJmxrS9uFjUFyUC5xuqkE6rxD88uEbaGz3PnQWFM13J28 +cclL2A3sGH2fR5o+QOJ4yvYpod0w3bQiZbipC+IznbQC5h2HmlU3897njsKQ +0LcQg8ooUOp89H2n7izMtNbPi0i7CDIHfHgLVgmgjMHwx9HZJEg0tCtzdhdG +740hXz160qElfVnViIQYvhOKGNCyvgrn88Lf8itI4t+75fXJLdkgl9x9Numq +NP5yeS91sjMXYt0crD5MyGL81QyNCxl5cMwsx+d5pDw2Fk4OL3LKB9uhmZMB +3YrI/2IqyLTkJkRYuu5QXKmMcRld9iLfCsDe+9rvFTbKqKT6o6GhtwDEub/O +uDspY1QqzGYMFMCVmuj8hO3KGNQzzladLICHjqW/hM4qY41Qz7d/RQph2EMz +cLRFGUv2FN1ealAI3ifGz70KVcEwkctazwMLwfz2/+6erlTFp0buX/r+FIJt +05vZwXpV3Leg3yB9rhCc+QTX+HxQxby7kdE2AjzYtSGgBXpUce3uSJuLC3lg +F6oezp2vhi1tt/j5FXhwWHXiurWOGj4Lu5bsacKDWr+sgZpANSx76dD91p8H +Dn/NpMJC1bBv6OgP5UM8eJPQaGrMVcOcahzZe5QHLY9EuHln1bB3tFt2IpgH +g4uOS0VfUUPtHIW8/mgeyBfbr7CrVkOXmeR2xyweHJga4daLqWPtP1+VXr3l +gfmRPUu+S6mjAdewcfoDD4T7WkkBeXWs7PopxvjEgxttNZ+sNNTRKUBMJKCd +Bx0VKbr3TNVRYipNvbmXBy7RZs05Pur4dd/3acF5JBhJRRiE3lHHiiYFn2p9 +EvjOj9em31fHnMJBkmtIwhuB/Z73y9RRIM6Da2FMgv/4huiROnWM831SlW9G +Ql4zo82vVR2jTv28sdGWhCVZ9TFuAhpYkza5fMEWEqZ1JDr03DXQl+0g1xRO +wsRVxYjlnho45fpmnlIkCWOLmQwzHw20U2rK9IoiYXDUbL/tPg38MD+p81Mc +CV1luyY8T2lgtcjdWzmXSXix9oF43A0NNKsvzk/PJSHD3xu6xjWw/P4xjng1 +CWmf93b9mNHARUrXi37WkJDscix6YE4DNYmYtid1JFxcHvdySkQTt4x82rH3 +OQmRf+5sXqyiid2WjUYX39HPd37+YUs7TfS5UGfG6SDBkqSyU1M10Z0Rn6Yz +SUKbGpm1OlMTB/VdJWKmSDiZWnhtLEsTBT6MlH6eJuFBRP6VDYWaGLRV/2bU +Xzpfj+x08XJNVM6K6ymeRwF7fnJCzFdNjPT66HhmEQX1JxMvmXzXxA4iTPSO +KAV7hhMufuvTxNNxDfPbxSjIa7sQbzOmia+y5HPYEhSolcTG/SvEwA+Mu1HX +ZShY4hPKDdRlYKCh52YpZQruNYaEMw0ZuJoIqpZWocDNMfh0owkDjSri/KVU +KUg0ORFmBAw8XccOWaBOgZjooeBBVwZud2298I5BgeCjnYf3BDGwoUB8pkOH +guv6Ow7JhjHwkoNU4F1dCmzyfAJquQz81VlqGqtHQfilbQc0zjGw/dy9WIYB +BTO+m/Z2XGFgkWbkcSsjCkakHLdvqmZgScqW9qEVFDQf0Hi3/xkDwz4uVyhY +SUHV0xkIf8VAN/EnLC8zChJOkqoFnxjomuRY/ticgmVdop3TfQw81p/U4MGh +QN6yx1l8mIGx0mG3J2nzpT6u0BhnoOfH9z5JVhS8dQi4tnaOgYZdevZPgIKA +O2+9rkozUTzzCk5aU7BpUcHrO/JM7LXq6gyzocDKl8t5qszEU0LHPOdoiykY +Kg+xmJjCP9Q9s4oCipvYjpZMdLv5eMur1RQkt+53crdmovS1um8r7SgIM15V +vs+OiVNp8utzaa/tHc1MXM/EwVT2C/81FPS5uG/9tpuJCSvbvFrsKfhQqPdy +ah8TWaJLZ3UdKCgVELIQO8RE85hnEadon31wX9E0hIk5zHlWso4UHJa8dM7x +NBOLRtoDt9H28Peb8T7DRKU71WnZtLVU5VtjLzCxi88lWXUtBRIhww5XEpmY +4WZ/xJP21If6R8VpTHyhPrIykfYX3Rx23RUmlkmM/XpKuz4m5H8tOUx8v/bv +uSnaxV9cRQbzmWgWfm8Jy4mCdHPtEH6KifeaX17aQNtvsNVD5z4T48xrnLJp +O9v/Uw9lTLTTnLtcTds09/xKtyomwu91z77SVvm7q2BvHROdPbwHZmkLbbKU +P/WCXn9Mp6DcOgoGi2TiLr9lYolOhLge7U8iA5M3Gpm4Lnh0IdKu2FXnV9rC +xFGFHzMutPMfX21608FEW45Y5zbaF+UC13R3M1H5gtzDPbQDjzg/mOxlor3R +w5iDtL1fEizRQTrfhpy1R2ivZs6lqo0ysSIpdsFR2rrhTUImU/TzySiXHaIt +01IU6DBLr+fYEr/9tP8axX334ifwiaOW6E7a3+K3bzq6gEDp4gXkJtoBfboa +y0QJnCyU3OBAe3LN9MCABIG8d42bzWhzb9Q9ImUJTIvtKSdoLxRIjN6nSGDk +peYISdrJ271dWaoErhNadXOazke5Qlu5R5PAij2lep2085dO9uZqEegQ1yj7 +X77LQmrubtcj8Ns11vZc2qWfLnFVjAisNncU49JeZbzNqd2UQA37BuWttDcN +jXVvRgLXLw/0F6H9xelJkexqAnv+qSxsp9/3ft6F0AYHAiV/vVl3i/YpX0La +ZSOBLVTOczvaQjW/O0Q96PvdSctdTDtBrZL3YhuBAjsfdn90/K+fNtvY7SHw +c3pXtidtfTOGuKA/gfX71VUUaD9IHW55cojAf06Nz/9I7+8XrmePcEIIrGp4 +KbeatluRO+fPKQKbdYRWTdPz8VlUQ+RRJIHug6vbeLSHn5VmG8cTWFjo4C5E +e4lV/1udLALDJ7K51+h5y858mPnzOoEJRquYVrTZ01F+NwsItL7dZtFGz6vl +XeU5jRICtVYHPBGjvUvbRV+xjsC/A3ngRs93f+zSmabnBDJrI6I76fkP7PlR +l/KGwM1uW2320j6XzfWSbCbwnPFFzaN0fxQvKYkX/kVgyu76FD+6X8yPn/Z4 +OkSgoZb3jQ66f2reOzKixug83UQNN9L+FN9dNjdLoP/g6kpjuq/+8sv+mpBg +YUKk0/MWut8choIcekxZuCogn0mZUKBkqBIjbMnCWot3Pv3G9Hwcra3WsWZh +9zvHEjbt5AkJy6NrWRgqlXw9k+7XjtlC/TkfFqoIWrzdRvfvUdF2aYWzLHxw +bdtCdy0KbJ0j11teZKGN4A8DPxYFcglaF3ySWHi5LyQ0kKCgXPqEUP5VFipn +msTF0/0vtFR82qiEhURjREKqGgUZbOxwamOhWeRNdU15Cg74f1c8/IWFe4vU +JYXlKIBb8ZuTeli4SbPWuE+Wno9lLe9ahlioES2nlC9N74eVR2v2CGrhSw1m +1F9xOh+7vAKunhY2/OZGMebT+e8SPnY3XAuv339922+I/v5fs31cGaWFD+Is +b/0ZIGGohbvg5VktfLV8QvZCPwm/XaYzvyZpYcHOVnbBTxImLfpqxQu0kPq5 +73hlNwn8Mq+W7HunhcvsnnsdayJBofZSqbI6G9PPpLZOlJOgOPdSkE2wMaVX +ususjAQlc2EXYx02JrT/PnzyEQkqxdxuRxM2dlWd1xq7RwLjyhHRYAc2VsqY +KLy4TcKy4xu9Pxxh447X+e/5skn6f1yOP7aajfwHf5hmc0n4uXNNgcUzNjpI +/JV/dJqE+Jwg5+GXbGyTfDj4NoyEBpXmjC0f2Sjoaxs8GUzCdoX/LdftZePH +J+cV9I+QECK+1Pe9mDaKNrrZmu8ggZpSqV+6RRt3i1RVNgAJUq+Ji8VD2nir +If3Pikke/Du07MaLMfr630N+2WM86JOyKP82rY3MYqUCod88qPZw6ZMX1MH5 +/BoFr/p5cOxbkF2EvA6yLaRqrbp40Pin/l9Xax1cv/ipe/krHqRp+x8aTdTB +2d+F5oxsHijFFa03NdXF7pv9G7qQB+k6ZhLSfnp4+2vK1OjJQnihaG0yelkf +hz6H/fLPLQBzpeoEg08GGPlcxtoy9yaIC+Qe3xG5DI8LqIu+ys0HlQhVyy2E +IW5ZqLVRknsDRJjb7m94ZohvQ38vO+KRB/ochaIgLyN88eVUaJPVdTjaIVXj +yLcc5d/1B3ktzIWh0Xh3h/TlGHC8L8m5LxvWGDzNcNAzxrUntvUH5GVBxajF +n8k3xmh9q/PAaeerEKBr1Pre1wTDBWwKmvUygTO4u3GLiCmadWwK4Y2kw2qG +/DqxXFMU1CGrgoZSQYt7Lrh6xQoMx9dTh0RTQNvXrJLZugLFUxdOSiomgW/F +3qi7R1ZirLbSsOvOy1CZ3bh7RNYMuxnfq0dtL8FYwdykwQMzvGzsGf5aIh52 +MUmRjHXmeKXqMfTYn4UR7STTkmFzTM8w4jtzOgYe5v35Oh5ngcreUiJZ8lHg +aauJFiqWuHWmI1dnKAKWHox9pF9liXxi3WHtKeEgu/DAnXWbOTjr96jg9Fgo +5K06dXJ4CwfvKfKSF/eEgtGpi6uStnFQb8DB8ObHUHAeLv7YvIODB39KBPbd +D4WYT+PTuw5w0D52Yq4qJBSmcsNtTkZwMNrZ+wbFFwqtFkkN+SQH9y22zz4q +fRL2nsi74nCbg+08+8OfBE/CxO17vv3FHOyV/F6GEyEgpdE8aXifgwulV1Zq +tYTAWmFlpcdVHPx1sNfOLisEyhvzdzd85CAjvaTjnm4IOIo/1Ats5qAX1/Eq +VyUEmtc8n5Bv46DcF/dyV4kQGCv9Fef9hYPLnw3JLBgLBr2cZbd+9nEQes34 +KsqCobzVOjB+gIOJ1SGJZbeCwVFmIxgMc7Ao5URQZVYw7Ik98f74OActJiuM +Ws8Ew1hVTIbcFAerMjPmj5wIhsiZtF2lMxzM3+PMEN8bDBLGhbpesxwsTVK7 +YOgZDNcOlo7PzXHQUGyz1VanYPg/vQ8wfQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.055278361720219035`}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.055278361720219035`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993917786288857*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"076b55c2-d132-4384-b882-50709b2b2291"] +}, Open ]], Cell[CellGroupData[{ @@ -2599,14 +7812,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ -52adca93b0cf"], + CellChangeTimes->{3.9918497405884743`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[BoxData["12.55365498952246`"], "Output", - CellChangeTimes->{3.991340544411957*^9}, - CellLabel-> - "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[BoxData["15.063472972360016`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.9939177863233137`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"3406ceeb-8bcb-420e-831d-f8894078a999"] }, Open ]], Cell[CellGroupData[{ @@ -2662,157 +7873,161 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ -d2b12a49fd20"], + CellChangeTimes->{3.991849742961588*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 341, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544611845*^9}, - CellLabel-> - "During evaluation of \ -In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.2826857804387778`*^-259\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 342, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913405446218624`*^9}, + 2, 99, 17, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.9939177864249163`*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +In[99]:=",ExpressionUUID->"269c2f9e-83e8-48d3-b406-cee8041921d5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.307745920656215`*^-269\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 338, 343, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544630844*^9}, +\"", 2, 99, 18, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.993917786434196*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +In[99]:=",ExpressionUUID->"fb44d5d0-953e-4f5c-903b-5956f877a8f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.529901276269778`*^-279\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 19, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.993917786441206*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"2ed24f45-2b9c-47e1-a2ae-afafdb133c39"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544639845*^9}, +during this calculation.\"", 2, 99, 20, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.9939177864493217`*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +In[99]:=",ExpressionUUID->"96f8ccee-e2bc-49b9-8e8f-b30817b77169"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0lV0XAHCh8UVFRWS6uPe6iBQyXHuL+FKmiiKVsRKhyFSZh1RKIVMk +4d4nKbzSgAYUUaFkfCWiwVxESL7TX8/6rbOes/Y5Z+99jqyT105XXh4enmUL +eHj+fic/vKyWP5+jvyj+6rzoJnX95kyxQIO2cPga5/SwongF4OoGJ7G2K5BF +H7ZLKZYBP8tbrXxt2WAWUGsWXqwGK0dEr0y3FsMK55sNbsUI3eXmXhOtlbAj +6Gsxo9gSjOUHur63vgVuUrGmapEDTLdqJY219oL7gak66wJvqDLk5DRlj8Of +1DNOwhZhsK774Wcn5TkQvpfgMx0XC6s8Dt5abMiHe3yoqrhH8XBlg3GZufUS +rO9PrKvrSYT2FLWn31cI4tCY7pq+tBQ4nxPSwLt2JcYKvFsVffwaiCZ+ik3I +EMGH7y9Kuf++DjG7t+m/nVyN/qdYZUlnb4CP9o2DL8PFMGQz3f6I8E0wGp0J +8vwkjjpN6jkGDjkQpmflKL5ZEldt/+fxjuhc0LmTWhL8RBqpTcpBbzLzwKj1 +zdxIrTTeGXynlJKdB+Y8/CYH30pjRabQjYN5eeC807Md+qXR24jz/ktBHhif +kg0JXSiDLbOOzl3leeAtPXnTQEkGX7eu/GHfkQfVh68PV/nJ4GHe5b9ui3DA +49f30FpBWdSQnPj3XAgHdI4fWvNZWBbj3i5PXhrBgSUDHfl8YrLYf/RLU1Q0 +B3I7q1r0abLY5hlm7hfHgQ+Pk5TvacqiRECwo1Y6ByyitNtuHJRFWiW9R7uU +A+rCYaqnimRR/7jmTxjgAM/5n9UppbLoaFN3z22YA2/4jtqVlsmiuWvlq/gx +Drj/3Bn1/bksJnKb51omOZDTJt95uEMW1/ns9jDk48Ka67XRu/loqDw2GHRN +ggvTSis+qFjTMPG0UKCFKRcmM8TDNtrR8HZoZOMaMy5MLFeQ1z5Iw9npm8md +FlwYGdc+auRGw6P+y0/ut+ZCb5nzpN0ZGrYe5fXc4sCFuu33hc7m0nBOXNT1 +8kkupLkfgN6fNHy3tbvPMJMLyV1Her/M0NBjpaTVwywuJFr4RA3P03D1CztV +5ZtcuLjxbP2vpXK4rIK9ZRmXC+GzRXuWS8nhzrz4ak4RF9zPL/TWM5ZDnzKT +3UequaCXfzvr6lU5lN2mfYbnKxc6ZfKvb02XQ6tNFefnv3Eh6CqVOXFdDltZ +4y6/B7lwPyzv2k5KDoU2//QfHeWC+t6sFKFyOdxx9JNc2RQXFBcmxkf3yKH8 +49+FXxdRsObgqVA/ZXn86qKckSFHwb3mwBCFDfLoKd251UaBgt2mAcHNGvLY +q99cIcCg4IrGydPqII96x8zW+bAoEBTwChixkke+Pt4UhQ0U8D908j7kL4// +3isplNWn4LuwqYNNpTw+1PjM9behoM2D1ni0Rh7fT39sX7qXgqcvZiDklTw6 +H5MOTrWlID4oX5rbIo869z1li+wpUOsV6J4ekMdl01kdz5wo8Cxq2J8hooBz +9jM73TwpsPmH+7pITAGlnT61vvWiQN81lP1CUgH9/O2btY+T+NZukBxlKGAl +v4wGjy8Ft0Ov/Id6CtjqNJjhGUjBgIX1vj4XBWR2t5i9jaDgLaVS/8tNAYO5 +/p4iURQ84lukK+ilgEL2+/7ZGU1B7P1Scc1ABRzgp5fVnKWAKS3WEROngBsb +/WcT4yg4PNKxV6lUAb84Nmy9f5WCvgsONicW09GiP3m7JIfEP6BMUxOgo+7n +rMQ/xFMm08PDK+hY99+i0i4uBcv4rkS5idNx8bKVEUm3yPoDq0ocVOi4qtHA +fLCAgjOudBGLXXR8dnbdoGoJBYuqfnwQ2EvHWxsZXSPE8TJPbtXZ03G8b8ft +/HsU5HTu2WJ8iI7/ZtI+Sd2noM4q9jg7kE7yL7ls8CE5f/2hBqXrdGzwv7xf ++gkFWekP0r/dpGO/cKJxObHidORhDpeOChdLV+55SoFeieQ8rZiOb7pyLaKf +UeDMslgv/pyOq2dMfOqrKBiKkZhpfUnHH3WOfnuqKfDr//I86c3f9Wod6CE+ +lxW6f2UbHSMNPbpGnlNQuKb4wpJBOhYe3n5zrIYCHd/gvS9G6Rh0Ov29ey0F +VU2m8pETdFTZYT3aR9xy4VPZ/BwdK947djS+pOA37+rByRUM7PufV8qlegqi +HXpKS1YzUH/1teUzxMsfF4SfEGfg9bYxb6dXFNACjcVH5BhovNNvXPk1BdtG +/bf1azJwsqdsAfWGgnUbpKKX6DFQvimZvayBgpET1ZVKBgw8rDy71I04cXKF +3ontDDSpZdhIN1JwaPP9gCRLBnY8bG/xI9YO2n/vgTUDtQP7vtUTf5ij1s8f +ZOBsWnutZxNZL1i601wZKBp4N6mcOCJskrP1KAPfSNybXPyW5NNCQ9kLvgy8 +7MfyTyY+IfCfyNpYBtIMXwWnvqPAyDzcUu8iA1+mKc+8IxaNZ8YdTCDr0Tol +KNBMQbnIyUV5GQw89qd2zpf4orWE4ctsBp7vLevMJXZMfhYyxGHg4zORu5qJ +F0kITasXM/Amf7gw6z2pT/sSDZv7DHTbX2BnRZyfaXcisJyByibp+n7EwR95 +7l57xkB2Q83jFGJLGmfwyQsGHtp7t/MBMc3FjPmpnoFf0t4ktRD/zB13WdTE +wC052cPfiWu/pN5QbCH71cL9tKyFgjRF/LCjk4FLBw4EyBJ7uH8W9/7IwCff +ttzWIIaCC3sS+hnorfkuxIRYeFQ9sXSAga2RF8dtiPvU2hvbRxlY2zW+2IW4 +9ESI4NwEAxdlhld4EseWKJjKzDBQwO/RKn9i+8n6aMN5Bk67SQidIV6/+UTV +IX4mqjcp3Aol5gkS4zm3lIn2NnbfwojflT3WKxBi4top7Vd/x/PmXAIbRZjY +xWe86+//AfBP6bgYE19J84T8nX97WNGPNVJMPIQDFl7EUlV7VHXkmBhTEP3i +b3xj/H/c9zOZKLhg76c9xFXGOdxQFSa203vy/kd89axp/011Jtra567UIj5S +NyZbo8XE62pMeTliXYHkAwN6TFSIHP4gQCxkzk4X3MJE67OBWybI/n689KlV +zYSJ1U8sLdqJ/22KXbV7B4lvbmphOfFe65a4NBsm7jpWfyKImJV8uq5iHxMf +t/KybIjn2miLexyYOP1QJk6VONveK5ThzkSsUbTtJPnim7m6wtSbiZ8pWlUB +scnHsuljJ5nI9pHsPEM85LzEpySEiSXxWqKixCOZRhVPIpn41srBoIfk62h7 +6OL6WCZKqvJvoIh/WEyn9yQwcTShykmdePycxuehFCZWzfbmjpP8n3h+XO1X +BhN5MKqwmHhKd6BaiMvEq5v3S7GIf/nRl4sXMFFGKDW8l9TTTJGTrUIxiX+B +S2EK8W9G57BuORMbU0uP/iH1yLvq1Rq3RiaKur08cpfUM7/FEkff90wMl5hi +2BAvPGeUH9LBxK+17SUzpB8s4amAq31kP/VatNnEQkMFR6p+MfF5l/M8h/ST +tdWXHknKKuK4v//oKtKPxOfr+RXpihjwee/LFNKv1ukssdikpIhmm7wCxYml +CkM/mWoooug95wOipN/JXzsuELBNEQ90p5tOkf6o5rvrwNvjimi14DrdkvRb +9buXuF1+iii0fX1uEenHGwfqf3w9pYiSl+7xriTWdDCKmY9SxPAH/fYvK0h+ +7NAoVCZFxe/tmSFTRpH3ryhvTKUimuTwvHYj98E3JxOubo0iBt629Csl98WF +G/7mY/Ukvv9EzRYQv5NqS7N9r4giXz5HXi6mwGFt6kblr4q4YnM869pdCgKF +JFybBFkYuGCw1I4i9+kvqVoJWxaudOySC02nwELLwrNxPwv509JdE9LI+Z4M +WRXlxEKpRzx9OamkP453O4y4s1BGuiilMpmCF8NZ00+DWahdYzb6NYGC7l6a +0qEcFuauF3/Sc57U+2v6xcJRFh6biT4QE0TBn1G13LoJFjZ6CAaZ/r2/hXXL ++6ZZqJpWnPRPAAWVey0GxPiV0Gh8qCHmJAU+ff7GYWJKuOSpltMRbwqaZ2v/ +WBko4WvvsEt1rhQks9y9xq8ooaSdSraoBQWRZiejBVOUcBdjmP+aGQXe3iEZ +jAwl7FhYf1pqBwX/K02o38dRwoGcuDuS20j+GZQzqsuUUHjnd+WFhhTY2Qp+ +TOxTIu+BbqVATXL+Z+9aamoqI23oy9i0BAW37hRUTesoo6DmnpCD4hRsfp+v +WQHK2Han0rdKjLy3aNx1RtuU0XHN66vRq8n5lGd9tbJXRod6z5ppIQpmxy6H +HgtXRlM+A9vEBRR02PoW5rxRxksPprUy+7mQoqS9QuSwCvqHdPMqUFyw3v46 +/rG7CvoqJb5S53BB2N1x5VFvFZzqilCDXC6cvxUr/CxQBT80mb7cdYMLwYod +q7wuqGDQw19mHqlccGGcWltfpIL3beVk9sVyYYNcBS3itwqqWAm+2XiEvIfF +DTTGL69HrdObysdkuaCzrjJetUUVuXaMZRcDOCDEl+3rGK6G5Tsife7U5IFU +mLSeLX0DbvVj/Ws9mQtLFexLd9ZswDyZIU7j2lxYz15713+/Op6vWlQMBjlw +4oNwlSnPRgwWLK5XMrsJo+MXrLelbMTGNCbwOWeDieqLtG0qm1BRJ4R1I/AG +PB7XnZ16swnvTjm2bQ3KAk9l9Y4mVw1MKnRU+ih6HdgjLs22SzXR+uQ8dK/J +gK3yYmaC2Zr41FVn/TX9dGCGnguo1NLCnJtPivMDUoHlqv1EoUMLzSu07URT +k8H18ZHIkuOb0XL3+aFbX5LgSVazy/fV2viofWGkr1wiTHDnp1Tva6ORmZfH +u6Ar4KyQvzTNTAdV+NVL6Asuw3dWgmbxmA6+iunrtJm+CA9yZnt+ntVF9mJX +7rUdF8DOSA51pfTQ805kxZLmWJA4FvNw/VM9NH6Wv0DLKgZWL/MoMtvDxsDt +ZaemZKMgx/BM0JgtG694b427KBYF6mcuGibYs1FU7HYWc3kUmI8Vvm9zZOPr +hqWvXH9HQnTLz2lnDzbed6xT4W+NhF/ZIVuCwtjoYyzY23ghEjp0E97l5bOR +M+G/jjsTAUdO5lzbdoeNZQIDvZnfI2Dyzj3XoUI27p5lZ6d8jQBhWtvUhlI2 +Fiy3XJbUEgHbl0iuq3jKRmGXw/5FxRFQ3pzn8u49G+U9XIMD3CPAVOiBil8b +Gz+nqhRkOkVAm8nLSbFONobLljfU2EbAxKPBswc+spGR2TpC+18EqNxQK/g2 +wMbCfdnnf8uT+ToM/C4Ms/GslI6Fzjoy36pdoDrGRgeefr5TIhFwKOZkk+9P +NgqZiMBCXjLf0+g00V9s/M+sv9p8OhzCZ5KdH82Q8QeHddLHwmHFJkp5/xwb +iz/j9YEv4ZB57NHP+Xk2ZnSuGdfrDof/AwwduKk= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2826,116 +8041,117 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV1nk0lV0XAHCh8UVFRWS6uPe6iBQyXHuL+FKmiiKVsRKhyFSZh1RKIVMk +4d4nKbzSgAYUUaFkfCWiwVxESL7TX8/6rbOes/Y5Z+99jqyT105XXh4enmUL +eHj+fic/vKyWP5+jvyj+6rzoJnX95kyxQIO2cPga5/SwongF4OoGJ7G2K5BF +H7ZLKZYBP8tbrXxt2WAWUGsWXqwGK0dEr0y3FsMK55sNbsUI3eXmXhOtlbAj +6Gsxo9gSjOUHur63vgVuUrGmapEDTLdqJY219oL7gak66wJvqDLk5DRlj8Of +1DNOwhZhsK774Wcn5TkQvpfgMx0XC6s8Dt5abMiHe3yoqrhH8XBlg3GZufUS +rO9PrKvrSYT2FLWn31cI4tCY7pq+tBQ4nxPSwLt2JcYKvFsVffwaiCZ+ik3I +EMGH7y9Kuf++DjG7t+m/nVyN/qdYZUlnb4CP9o2DL8PFMGQz3f6I8E0wGp0J +8vwkjjpN6jkGDjkQpmflKL5ZEldt/+fxjuhc0LmTWhL8RBqpTcpBbzLzwKj1 +zdxIrTTeGXynlJKdB+Y8/CYH30pjRabQjYN5eeC807Md+qXR24jz/ktBHhif +kg0JXSiDLbOOzl3leeAtPXnTQEkGX7eu/GHfkQfVh68PV/nJ4GHe5b9ui3DA +49f30FpBWdSQnPj3XAgHdI4fWvNZWBbj3i5PXhrBgSUDHfl8YrLYf/RLU1Q0 +B3I7q1r0abLY5hlm7hfHgQ+Pk5TvacqiRECwo1Y6ByyitNtuHJRFWiW9R7uU +A+rCYaqnimRR/7jmTxjgAM/5n9UppbLoaFN3z22YA2/4jtqVlsmiuWvlq/gx +Drj/3Bn1/bksJnKb51omOZDTJt95uEMW1/ns9jDk48Ka67XRu/loqDw2GHRN +ggvTSis+qFjTMPG0UKCFKRcmM8TDNtrR8HZoZOMaMy5MLFeQ1z5Iw9npm8md +FlwYGdc+auRGw6P+y0/ut+ZCb5nzpN0ZGrYe5fXc4sCFuu33hc7m0nBOXNT1 +8kkupLkfgN6fNHy3tbvPMJMLyV1Her/M0NBjpaTVwywuJFr4RA3P03D1CztV +5ZtcuLjxbP2vpXK4rIK9ZRmXC+GzRXuWS8nhzrz4ak4RF9zPL/TWM5ZDnzKT +3UequaCXfzvr6lU5lN2mfYbnKxc6ZfKvb02XQ6tNFefnv3Eh6CqVOXFdDltZ +4y6/B7lwPyzv2k5KDoU2//QfHeWC+t6sFKFyOdxx9JNc2RQXFBcmxkf3yKH8 +49+FXxdRsObgqVA/ZXn86qKckSFHwb3mwBCFDfLoKd251UaBgt2mAcHNGvLY +q99cIcCg4IrGydPqII96x8zW+bAoEBTwChixkke+Pt4UhQ0U8D908j7kL4// +3isplNWn4LuwqYNNpTw+1PjM9behoM2D1ni0Rh7fT39sX7qXgqcvZiDklTw6 +H5MOTrWlID4oX5rbIo869z1li+wpUOsV6J4ekMdl01kdz5wo8Cxq2J8hooBz +9jM73TwpsPmH+7pITAGlnT61vvWiQN81lP1CUgH9/O2btY+T+NZukBxlKGAl +v4wGjy8Ft0Ov/Id6CtjqNJjhGUjBgIX1vj4XBWR2t5i9jaDgLaVS/8tNAYO5 +/p4iURQ84lukK+ilgEL2+/7ZGU1B7P1Scc1ABRzgp5fVnKWAKS3WEROngBsb +/WcT4yg4PNKxV6lUAb84Nmy9f5WCvgsONicW09GiP3m7JIfEP6BMUxOgo+7n +rMQ/xFMm08PDK+hY99+i0i4uBcv4rkS5idNx8bKVEUm3yPoDq0ocVOi4qtHA +fLCAgjOudBGLXXR8dnbdoGoJBYuqfnwQ2EvHWxsZXSPE8TJPbtXZ03G8b8ft +/HsU5HTu2WJ8iI7/ZtI+Sd2noM4q9jg7kE7yL7ls8CE5f/2hBqXrdGzwv7xf ++gkFWekP0r/dpGO/cKJxObHidORhDpeOChdLV+55SoFeieQ8rZiOb7pyLaKf +UeDMslgv/pyOq2dMfOqrKBiKkZhpfUnHH3WOfnuqKfDr//I86c3f9Wod6CE+ +lxW6f2UbHSMNPbpGnlNQuKb4wpJBOhYe3n5zrIYCHd/gvS9G6Rh0Ov29ey0F +VU2m8pETdFTZYT3aR9xy4VPZ/BwdK947djS+pOA37+rByRUM7PufV8qlegqi +HXpKS1YzUH/1teUzxMsfF4SfEGfg9bYxb6dXFNACjcVH5BhovNNvXPk1BdtG +/bf1azJwsqdsAfWGgnUbpKKX6DFQvimZvayBgpET1ZVKBgw8rDy71I04cXKF +3ontDDSpZdhIN1JwaPP9gCRLBnY8bG/xI9YO2n/vgTUDtQP7vtUTf5ij1s8f +ZOBsWnutZxNZL1i601wZKBp4N6mcOCJskrP1KAPfSNybXPyW5NNCQ9kLvgy8 +7MfyTyY+IfCfyNpYBtIMXwWnvqPAyDzcUu8iA1+mKc+8IxaNZ8YdTCDr0Tol +KNBMQbnIyUV5GQw89qd2zpf4orWE4ctsBp7vLevMJXZMfhYyxGHg4zORu5qJ +F0kITasXM/Amf7gw6z2pT/sSDZv7DHTbX2BnRZyfaXcisJyByibp+n7EwR95 +7l57xkB2Q83jFGJLGmfwyQsGHtp7t/MBMc3FjPmpnoFf0t4ktRD/zB13WdTE +wC052cPfiWu/pN5QbCH71cL9tKyFgjRF/LCjk4FLBw4EyBJ7uH8W9/7IwCff +ttzWIIaCC3sS+hnorfkuxIRYeFQ9sXSAga2RF8dtiPvU2hvbRxlY2zW+2IW4 +9ESI4NwEAxdlhld4EseWKJjKzDBQwO/RKn9i+8n6aMN5Bk67SQidIV6/+UTV +IX4mqjcp3Aol5gkS4zm3lIn2NnbfwojflT3WKxBi4top7Vd/x/PmXAIbRZjY +xWe86+//AfBP6bgYE19J84T8nX97WNGPNVJMPIQDFl7EUlV7VHXkmBhTEP3i +b3xj/H/c9zOZKLhg76c9xFXGOdxQFSa203vy/kd89axp/011Jtra567UIj5S +NyZbo8XE62pMeTliXYHkAwN6TFSIHP4gQCxkzk4X3MJE67OBWybI/n689KlV +zYSJ1U8sLdqJ/22KXbV7B4lvbmphOfFe65a4NBsm7jpWfyKImJV8uq5iHxMf +t/KybIjn2miLexyYOP1QJk6VONveK5ThzkSsUbTtJPnim7m6wtSbiZ8pWlUB +scnHsuljJ5nI9pHsPEM85LzEpySEiSXxWqKixCOZRhVPIpn41srBoIfk62h7 +6OL6WCZKqvJvoIh/WEyn9yQwcTShykmdePycxuehFCZWzfbmjpP8n3h+XO1X +BhN5MKqwmHhKd6BaiMvEq5v3S7GIf/nRl4sXMFFGKDW8l9TTTJGTrUIxiX+B +S2EK8W9G57BuORMbU0uP/iH1yLvq1Rq3RiaKur08cpfUM7/FEkff90wMl5hi +2BAvPGeUH9LBxK+17SUzpB8s4amAq31kP/VatNnEQkMFR6p+MfF5l/M8h/ST +tdWXHknKKuK4v//oKtKPxOfr+RXpihjwee/LFNKv1ukssdikpIhmm7wCxYml +CkM/mWoooug95wOipN/JXzsuELBNEQ90p5tOkf6o5rvrwNvjimi14DrdkvRb +9buXuF1+iii0fX1uEenHGwfqf3w9pYiSl+7xriTWdDCKmY9SxPAH/fYvK0h+ +7NAoVCZFxe/tmSFTRpH3ryhvTKUimuTwvHYj98E3JxOubo0iBt629Csl98WF +G/7mY/Ukvv9EzRYQv5NqS7N9r4giXz5HXi6mwGFt6kblr4q4YnM869pdCgKF +JFybBFkYuGCw1I4i9+kvqVoJWxaudOySC02nwELLwrNxPwv509JdE9LI+Z4M +WRXlxEKpRzx9OamkP453O4y4s1BGuiilMpmCF8NZ00+DWahdYzb6NYGC7l6a +0qEcFuauF3/Sc57U+2v6xcJRFh6biT4QE0TBn1G13LoJFjZ6CAaZ/r2/hXXL ++6ZZqJpWnPRPAAWVey0GxPiV0Gh8qCHmJAU+ff7GYWJKuOSpltMRbwqaZ2v/ +WBko4WvvsEt1rhQks9y9xq8ooaSdSraoBQWRZiejBVOUcBdjmP+aGQXe3iEZ +jAwl7FhYf1pqBwX/K02o38dRwoGcuDuS20j+GZQzqsuUUHjnd+WFhhTY2Qp+ +TOxTIu+BbqVATXL+Z+9aamoqI23oy9i0BAW37hRUTesoo6DmnpCD4hRsfp+v +WQHK2Han0rdKjLy3aNx1RtuU0XHN66vRq8n5lGd9tbJXRod6z5ppIQpmxy6H +HgtXRlM+A9vEBRR02PoW5rxRxksPprUy+7mQoqS9QuSwCvqHdPMqUFyw3v46 +/rG7CvoqJb5S53BB2N1x5VFvFZzqilCDXC6cvxUr/CxQBT80mb7cdYMLwYod +q7wuqGDQw19mHqlccGGcWltfpIL3beVk9sVyYYNcBS3itwqqWAm+2XiEvIfF +DTTGL69HrdObysdkuaCzrjJetUUVuXaMZRcDOCDEl+3rGK6G5Tsife7U5IFU +mLSeLX0DbvVj/Ws9mQtLFexLd9ZswDyZIU7j2lxYz15713+/Op6vWlQMBjlw +4oNwlSnPRgwWLK5XMrsJo+MXrLelbMTGNCbwOWeDieqLtG0qm1BRJ4R1I/AG +PB7XnZ16swnvTjm2bQ3KAk9l9Y4mVw1MKnRU+ih6HdgjLs22SzXR+uQ8dK/J +gK3yYmaC2Zr41FVn/TX9dGCGnguo1NLCnJtPivMDUoHlqv1EoUMLzSu07URT +k8H18ZHIkuOb0XL3+aFbX5LgSVazy/fV2viofWGkr1wiTHDnp1Tva6ORmZfH +u6Ar4KyQvzTNTAdV+NVL6Asuw3dWgmbxmA6+iunrtJm+CA9yZnt+ntVF9mJX +7rUdF8DOSA51pfTQ805kxZLmWJA4FvNw/VM9NH6Wv0DLKgZWL/MoMtvDxsDt +ZaemZKMgx/BM0JgtG694b427KBYF6mcuGibYs1FU7HYWc3kUmI8Vvm9zZOPr +hqWvXH9HQnTLz2lnDzbed6xT4W+NhF/ZIVuCwtjoYyzY23ghEjp0E97l5bOR +M+G/jjsTAUdO5lzbdoeNZQIDvZnfI2Dyzj3XoUI27p5lZ6d8jQBhWtvUhlI2 +Fiy3XJbUEgHbl0iuq3jKRmGXw/5FxRFQ3pzn8u49G+U9XIMD3CPAVOiBil8b +Gz+nqhRkOkVAm8nLSbFONobLljfU2EbAxKPBswc+spGR2TpC+18EqNxQK/g2 +wMbCfdnnf8uT+ToM/C4Ms/GslI6Fzjoy36pdoDrGRgeefr5TIhFwKOZkk+9P +NgqZiMBCXjLf0+g00V9s/M+sv9p8OhzCZ5KdH82Q8QeHddLHwmHFJkp5/xwb +iz/j9YEv4ZB57NHP+Xk2ZnSuGdfrDof/AwwduKk= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.050464687095126165`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2947,19 +8163,19 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.050464687095126165`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2973,115 +8189,116 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV1nk0lV0XAHCh8UVFRWS6uPe6iBQyXHuL+FKmiiKVsRKhyFSZh1RKIVMk +4d4nKbzSgAYUUaFkfCWiwVxESL7TX8/6rbOes/Y5Z+99jqyT105XXh4enmUL +eHj+fic/vKyWP5+jvyj+6rzoJnX95kyxQIO2cPga5/SwongF4OoGJ7G2K5BF +H7ZLKZYBP8tbrXxt2WAWUGsWXqwGK0dEr0y3FsMK55sNbsUI3eXmXhOtlbAj +6Gsxo9gSjOUHur63vgVuUrGmapEDTLdqJY219oL7gak66wJvqDLk5DRlj8Of +1DNOwhZhsK774Wcn5TkQvpfgMx0XC6s8Dt5abMiHe3yoqrhH8XBlg3GZufUS +rO9PrKvrSYT2FLWn31cI4tCY7pq+tBQ4nxPSwLt2JcYKvFsVffwaiCZ+ik3I +EMGH7y9Kuf++DjG7t+m/nVyN/qdYZUlnb4CP9o2DL8PFMGQz3f6I8E0wGp0J +8vwkjjpN6jkGDjkQpmflKL5ZEldt/+fxjuhc0LmTWhL8RBqpTcpBbzLzwKj1 +zdxIrTTeGXynlJKdB+Y8/CYH30pjRabQjYN5eeC807Md+qXR24jz/ktBHhif +kg0JXSiDLbOOzl3leeAtPXnTQEkGX7eu/GHfkQfVh68PV/nJ4GHe5b9ui3DA +49f30FpBWdSQnPj3XAgHdI4fWvNZWBbj3i5PXhrBgSUDHfl8YrLYf/RLU1Q0 +B3I7q1r0abLY5hlm7hfHgQ+Pk5TvacqiRECwo1Y6ByyitNtuHJRFWiW9R7uU +A+rCYaqnimRR/7jmTxjgAM/5n9UppbLoaFN3z22YA2/4jtqVlsmiuWvlq/gx +Drj/3Bn1/bksJnKb51omOZDTJt95uEMW1/ns9jDk48Ka67XRu/loqDw2GHRN +ggvTSis+qFjTMPG0UKCFKRcmM8TDNtrR8HZoZOMaMy5MLFeQ1z5Iw9npm8md +FlwYGdc+auRGw6P+y0/ut+ZCb5nzpN0ZGrYe5fXc4sCFuu33hc7m0nBOXNT1 +8kkupLkfgN6fNHy3tbvPMJMLyV1Her/M0NBjpaTVwywuJFr4RA3P03D1CztV +5ZtcuLjxbP2vpXK4rIK9ZRmXC+GzRXuWS8nhzrz4ak4RF9zPL/TWM5ZDnzKT +3UequaCXfzvr6lU5lN2mfYbnKxc6ZfKvb02XQ6tNFefnv3Eh6CqVOXFdDltZ +4y6/B7lwPyzv2k5KDoU2//QfHeWC+t6sFKFyOdxx9JNc2RQXFBcmxkf3yKH8 +49+FXxdRsObgqVA/ZXn86qKckSFHwb3mwBCFDfLoKd251UaBgt2mAcHNGvLY +q99cIcCg4IrGydPqII96x8zW+bAoEBTwChixkke+Pt4UhQ0U8D908j7kL4// +3isplNWn4LuwqYNNpTw+1PjM9behoM2D1ni0Rh7fT39sX7qXgqcvZiDklTw6 +H5MOTrWlID4oX5rbIo869z1li+wpUOsV6J4ekMdl01kdz5wo8Cxq2J8hooBz +9jM73TwpsPmH+7pITAGlnT61vvWiQN81lP1CUgH9/O2btY+T+NZukBxlKGAl +v4wGjy8Ft0Ov/Id6CtjqNJjhGUjBgIX1vj4XBWR2t5i9jaDgLaVS/8tNAYO5 +/p4iURQ84lukK+ilgEL2+/7ZGU1B7P1Scc1ABRzgp5fVnKWAKS3WEROngBsb +/WcT4yg4PNKxV6lUAb84Nmy9f5WCvgsONicW09GiP3m7JIfEP6BMUxOgo+7n +rMQ/xFMm08PDK+hY99+i0i4uBcv4rkS5idNx8bKVEUm3yPoDq0ocVOi4qtHA +fLCAgjOudBGLXXR8dnbdoGoJBYuqfnwQ2EvHWxsZXSPE8TJPbtXZ03G8b8ft +/HsU5HTu2WJ8iI7/ZtI+Sd2noM4q9jg7kE7yL7ls8CE5f/2hBqXrdGzwv7xf ++gkFWekP0r/dpGO/cKJxObHidORhDpeOChdLV+55SoFeieQ8rZiOb7pyLaKf +UeDMslgv/pyOq2dMfOqrKBiKkZhpfUnHH3WOfnuqKfDr//I86c3f9Wod6CE+ +lxW6f2UbHSMNPbpGnlNQuKb4wpJBOhYe3n5zrIYCHd/gvS9G6Rh0Ov29ey0F +VU2m8pETdFTZYT3aR9xy4VPZ/BwdK947djS+pOA37+rByRUM7PufV8qlegqi +HXpKS1YzUH/1teUzxMsfF4SfEGfg9bYxb6dXFNACjcVH5BhovNNvXPk1BdtG +/bf1azJwsqdsAfWGgnUbpKKX6DFQvimZvayBgpET1ZVKBgw8rDy71I04cXKF +3ontDDSpZdhIN1JwaPP9gCRLBnY8bG/xI9YO2n/vgTUDtQP7vtUTf5ij1s8f +ZOBsWnutZxNZL1i601wZKBp4N6mcOCJskrP1KAPfSNybXPyW5NNCQ9kLvgy8 +7MfyTyY+IfCfyNpYBtIMXwWnvqPAyDzcUu8iA1+mKc+8IxaNZ8YdTCDr0Tol +KNBMQbnIyUV5GQw89qd2zpf4orWE4ctsBp7vLevMJXZMfhYyxGHg4zORu5qJ +F0kITasXM/Amf7gw6z2pT/sSDZv7DHTbX2BnRZyfaXcisJyByibp+n7EwR95 +7l57xkB2Q83jFGJLGmfwyQsGHtp7t/MBMc3FjPmpnoFf0t4ktRD/zB13WdTE +wC052cPfiWu/pN5QbCH71cL9tKyFgjRF/LCjk4FLBw4EyBJ7uH8W9/7IwCff +ttzWIIaCC3sS+hnorfkuxIRYeFQ9sXSAga2RF8dtiPvU2hvbRxlY2zW+2IW4 +9ESI4NwEAxdlhld4EseWKJjKzDBQwO/RKn9i+8n6aMN5Bk67SQidIV6/+UTV +IX4mqjcp3Aol5gkS4zm3lIn2NnbfwojflT3WKxBi4top7Vd/x/PmXAIbRZjY +xWe86+//AfBP6bgYE19J84T8nX97WNGPNVJMPIQDFl7EUlV7VHXkmBhTEP3i +b3xj/H/c9zOZKLhg76c9xFXGOdxQFSa203vy/kd89axp/011Jtra567UIj5S +NyZbo8XE62pMeTliXYHkAwN6TFSIHP4gQCxkzk4X3MJE67OBWybI/n689KlV +zYSJ1U8sLdqJ/22KXbV7B4lvbmphOfFe65a4NBsm7jpWfyKImJV8uq5iHxMf +t/KybIjn2miLexyYOP1QJk6VONveK5ThzkSsUbTtJPnim7m6wtSbiZ8pWlUB +scnHsuljJ5nI9pHsPEM85LzEpySEiSXxWqKixCOZRhVPIpn41srBoIfk62h7 +6OL6WCZKqvJvoIh/WEyn9yQwcTShykmdePycxuehFCZWzfbmjpP8n3h+XO1X +BhN5MKqwmHhKd6BaiMvEq5v3S7GIf/nRl4sXMFFGKDW8l9TTTJGTrUIxiX+B +S2EK8W9G57BuORMbU0uP/iH1yLvq1Rq3RiaKur08cpfUM7/FEkff90wMl5hi +2BAvPGeUH9LBxK+17SUzpB8s4amAq31kP/VatNnEQkMFR6p+MfF5l/M8h/ST +tdWXHknKKuK4v//oKtKPxOfr+RXpihjwee/LFNKv1ukssdikpIhmm7wCxYml +CkM/mWoooug95wOipN/JXzsuELBNEQ90p5tOkf6o5rvrwNvjimi14DrdkvRb +9buXuF1+iii0fX1uEenHGwfqf3w9pYiSl+7xriTWdDCKmY9SxPAH/fYvK0h+ +7NAoVCZFxe/tmSFTRpH3ryhvTKUimuTwvHYj98E3JxOubo0iBt629Csl98WF +G/7mY/Ukvv9EzRYQv5NqS7N9r4giXz5HXi6mwGFt6kblr4q4YnM869pdCgKF +JFybBFkYuGCw1I4i9+kvqVoJWxaudOySC02nwELLwrNxPwv509JdE9LI+Z4M +WRXlxEKpRzx9OamkP453O4y4s1BGuiilMpmCF8NZ00+DWahdYzb6NYGC7l6a +0qEcFuauF3/Sc57U+2v6xcJRFh6biT4QE0TBn1G13LoJFjZ6CAaZ/r2/hXXL ++6ZZqJpWnPRPAAWVey0GxPiV0Gh8qCHmJAU+ff7GYWJKuOSpltMRbwqaZ2v/ +WBko4WvvsEt1rhQks9y9xq8ooaSdSraoBQWRZiejBVOUcBdjmP+aGQXe3iEZ +jAwl7FhYf1pqBwX/K02o38dRwoGcuDuS20j+GZQzqsuUUHjnd+WFhhTY2Qp+ +TOxTIu+BbqVATXL+Z+9aamoqI23oy9i0BAW37hRUTesoo6DmnpCD4hRsfp+v +WQHK2Han0rdKjLy3aNx1RtuU0XHN66vRq8n5lGd9tbJXRod6z5ppIQpmxy6H +HgtXRlM+A9vEBRR02PoW5rxRxksPprUy+7mQoqS9QuSwCvqHdPMqUFyw3v46 +/rG7CvoqJb5S53BB2N1x5VFvFZzqilCDXC6cvxUr/CxQBT80mb7cdYMLwYod +q7wuqGDQw19mHqlccGGcWltfpIL3beVk9sVyYYNcBS3itwqqWAm+2XiEvIfF +DTTGL69HrdObysdkuaCzrjJetUUVuXaMZRcDOCDEl+3rGK6G5Tsife7U5IFU +mLSeLX0DbvVj/Ws9mQtLFexLd9ZswDyZIU7j2lxYz15713+/Op6vWlQMBjlw +4oNwlSnPRgwWLK5XMrsJo+MXrLelbMTGNCbwOWeDieqLtG0qm1BRJ4R1I/AG +PB7XnZ16swnvTjm2bQ3KAk9l9Y4mVw1MKnRU+ih6HdgjLs22SzXR+uQ8dK/J +gK3yYmaC2Zr41FVn/TX9dGCGnguo1NLCnJtPivMDUoHlqv1EoUMLzSu07URT +k8H18ZHIkuOb0XL3+aFbX5LgSVazy/fV2viofWGkr1wiTHDnp1Tva6ORmZfH +u6Ar4KyQvzTNTAdV+NVL6Asuw3dWgmbxmA6+iunrtJm+CA9yZnt+ntVF9mJX +7rUdF8DOSA51pfTQ805kxZLmWJA4FvNw/VM9NH6Wv0DLKgZWL/MoMtvDxsDt +ZaemZKMgx/BM0JgtG694b427KBYF6mcuGibYs1FU7HYWc3kUmI8Vvm9zZOPr +hqWvXH9HQnTLz2lnDzbed6xT4W+NhF/ZIVuCwtjoYyzY23ghEjp0E97l5bOR +M+G/jjsTAUdO5lzbdoeNZQIDvZnfI2Dyzj3XoUI27p5lZ6d8jQBhWtvUhlI2 +Fiy3XJbUEgHbl0iuq3jKRmGXw/5FxRFQ3pzn8u49G+U9XIMD3CPAVOiBil8b +Gz+nqhRkOkVAm8nLSbFONobLljfU2EbAxKPBswc+spGR2TpC+18EqNxQK/g2 +wMbCfdnnf8uT+ToM/C4Ms/GslI6Fzjoy36pdoDrGRgeefr5TIhFwKOZkk+9P +NgqZiMBCXjLf0+g00V9s/M+sv9p8OhzCZ5KdH82Q8QeHddLHwmHFJkp5/xwb +iz/j9YEv4ZB57NHP+Xk2ZnSuGdfrDof/AwwduKk= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.050464687095126165`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3092,6 +8309,7 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3119,7 +8337,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.050464687095126165`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3127,9 +8346,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913408819317417`*^9}, - CellLabel-> - "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] + CellChangeTimes->{3.9913408819317417`*^9, 3.9939182479479*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"89067589-cfeb-45b8-b01a-1cc1617013e3"] }, Open ]], Cell[CellGroupData[{ @@ -3182,66 +8400,74 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[339]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], + "In[100]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 339, 345, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881982744*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.518592763932924`*^-171\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 21, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.993918248067583*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +In[100]:=",ExpressionUUID->"ae94efd0-e39f-40d2-9ff3-70fd78be818d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 346, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881991743*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0426407245101099`*^-174\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 22, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9939182480766087`*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +In[100]:=",ExpressionUUID->"8eb341f0-9a82-422c-97bc-922ef535898b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 347, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882000746*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.158599107186206`*^-178\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 23, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9939182480861483`*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +In[100]:=",ExpressionUUID->"fe2fe7f2-30a2-4753-a1a8-21744e2bc36e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882008745*^9}, +during this calculation.\"", 2, 100, 24, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9939182480938663`*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +In[100]:=",ExpressionUUID->"339b8244-171e-4213-83d0-ae73e269308e"], -Cell[BoxData["12.553654989521348`"], "Output", - CellChangeTimes->{3.9913408882266617`*^9}, +Cell[BoxData["15.050127106698547`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.9939182907062674`*^9}, CellLabel-> - "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] + "Out[100]=",ExpressionUUID->"d47caea1-51b7-4c7c-97d6-2596d083fd01"] }, Open ]], Cell[CellGroupData[{ @@ -3309,68 +8535,69 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ - 3.9918497473740044`*^9, {3.99184977815234*^9, - 3.991849780845421*^9}},ExpressionUUID->"1d118f77-7d68-dd41-b0af-\ -09454f88e7f1"], + 3.9918497473740044`*^9, {3.99184977815234*^9, 3.991849780845421*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 340, 349, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882626343`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6800461025119432`*^-232\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 25, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993918290773863*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +In[101]:=",ExpressionUUID->"691bb722-d52f-44fc-a1a7-68249386896f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 340, 350, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882726326`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.010398410212842`*^-239\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 26, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9939182907840776`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +In[101]:=",ExpressionUUID->"d4e8e44c-ae56-4ff1-83c5-57f3ff4b208b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 340, 351, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882816315`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.57312741870032`*^-246\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 101, 27, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993918290792727*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +In[101]:=",ExpressionUUID->"4c8cc485-90c1-4cc4-9dde-221d3d23f754"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882906322`*^9}, +during this calculation.\"", 2, 101, 28, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9939182908001423`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +In[101]:=",ExpressionUUID->"8ccee8c9-11be-4f40-bf57-ac4a736e7283"], -Cell[BoxData["1.3456729512531673`"], "Output", - CellChangeTimes->{3.991340895263792*^9}, +Cell[BoxData["0.04242785882166147`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.99391829679809*^9}, CellLabel-> - "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] + "Out[101]=",ExpressionUUID->"9ec546ea-b8b5-43e3-b6e3-e553ba315a92"] }, Open ]], Cell[CellGroupData[{ @@ -3391,8 +8618,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3437,68 +8663,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497892022038`*^9, - 3.991849792285101*^9}},ExpressionUUID->"c8039063-5f4d-134a-b6ba-\ -e19335f7a9f6"], + CellChangeTimes->{{3.9918497892022038`*^9, 3.991849792285101*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 341, 353, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895297941*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6800461025119432`*^-232\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 29, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.993918296842248*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +In[102]:=",ExpressionUUID->"9c065467-b2bb-4357-a145-311cabc6837c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 341, 354, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895308939*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.010398410212842`*^-239\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 30, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.9939182968487597`*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +In[102]:=",ExpressionUUID->"bb236edf-e121-4674-af6c-2091e42cb4db"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 341, 355, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895316965*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.57312741870032`*^-246\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 31, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.993918296855667*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +In[102]:=",ExpressionUUID->"6f5fbebc-5528-4beb-ad93-d2d74aec44e1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895324953*^9}, +during this calculation.\"", 2, 102, 32, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.993918296862073*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +In[102]:=",ExpressionUUID->"7714b559-4b5e-4c52-9c13-d612881d6e9f"], -Cell[BoxData["11.729429210875175`"], "Output", - CellChangeTimes->{3.9913409010488796`*^9}, +Cell[BoxData["51.67239293297118`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.993918302455752*^9}, CellLabel-> - "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] + "Out[102]=",ExpressionUUID->"4866fdb6-28ae-4d37-a8a6-246f52803f2d"] }, Open ]], Cell[CellGroupData[{ @@ -3519,8 +8746,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3565,68 +8791,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497964884186`*^9, - 3.9918497998504505`*^9}},ExpressionUUID->"a474307a-af78-3040-90ec-\ -fb8d284b16bb"], + CellChangeTimes->{{3.9918497964884186`*^9, 3.9918497998504505`*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 342, 357, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010848827`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6800461025119432`*^-232\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 103, 33, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993918302502718*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +In[103]:=",ExpressionUUID->"f6a59d7b-d053-49d9-b622-c5a733567bd4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 342, 358, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010938797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.010398410212842`*^-239\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 103, 34, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993918302512409*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +In[103]:=",ExpressionUUID->"54fd9198-0ecc-41da-9ca1-16d9d6aa517c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 342, 359, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340901101883*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.57312741870032`*^-246\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 35, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993918302519199*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +In[103]:=",ExpressionUUID->"7f354066-44f7-4abd-b34a-c7e85c241012"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409011098804`*^9}, +during this calculation.\"", 2, 103, 36, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993918302526147*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +In[103]:=",ExpressionUUID->"e7a4d797-7dce-4f14-a3ff-a230a94edcb7"], -Cell[BoxData["21.67464099510054`"], "Output", - CellChangeTimes->{3.991340904517517*^9}, +Cell[BoxData["8.364321769942878`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.993918305840962*^9}, CellLabel-> - "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] + "Out[103]=",ExpressionUUID->"075f3f1b-bc49-428c-af59-00f00bb81d3a"] }, Open ]], Cell[CellGroupData[{ @@ -3635,22 +8862,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849803549658*^9, - 3.9918498086143265`*^9}},ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-\ -f67bfdbd9bc7"], - -Cell[BoxData["0.0843966342510027`"], "Output", - CellChangeTimes->{3.991340904549515*^9}, + CellChangeTimes->{{3.991849803549658*^9, 3.9918498086143265`*^9}}, CellLabel-> - "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] + "In[104]:=",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], + +Cell[BoxData["0.002040828273343272`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.993918305884245*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"39171ffc-5a8f-4c4f-a2e3-fa5934926a7a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918501018852215`*^9, 3.991850105557743*^9}, - 3.99192470649716*^9},ExpressionUUID->"d104d373-080a-854b-92ff-\ -e87abbd4c41c"], + 3.99192470649716*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ @@ -3673,12 +8901,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + "In[106]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.9913409045775146`*^9}, +Cell[BoxData["17.360744349648275`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.993918305900362*^9}, CellLabel-> - "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] + "Out[106]=",ExpressionUUID->"499d047d-0c2e-49ac-b452-1d890006c078"] }, Open ]], Cell[CellGroupData[{ @@ -3688,12 +8916,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + "In[107]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.991340904625164*^9}, +Cell[BoxData["1.2639970847923296`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.993918305909442*^9}, CellLabel-> - "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] + "Out[107]=",ExpressionUUID->"704bca29-61bc-403e-921d-4646eb499f3d"] }, Open ]], Cell[CellGroupData[{ @@ -3703,12 +8931,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + "In[108]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913409046880226`*^9}, +Cell[BoxData["21.94393024778033`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.993918305919134*^9}, CellLabel-> - "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] + "Out[108]=",ExpressionUUID->"bd4b4ed4-cbe4-48fe-b97c-c5f7878395a1"] }, Open ]], Cell[CellGroupData[{ @@ -3898,12 +9126,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + "In[109]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[BoxData["0.021613768236132463`"], "Output", - CellChangeTimes->{3.9913409047132187`*^9}, +Cell[BoxData["0.004341869192245528`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.99391830593257*^9}, CellLabel-> - "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] + "Out[109]=",ExpressionUUID->"b0ebdb96-acde-4bae-b94e-2a86f49940f5"] }, Open ]], Cell[CellGroupData[{ @@ -3917,12 +9145,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + "In[110]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[BoxData["6.028089553291302`"], "Output", - CellChangeTimes->{3.9913409048112164`*^9}, +Cell[BoxData["13.449513433304089`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.993918306048101*^9}, CellLabel-> - "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] + "Out[110]=",ExpressionUUID->"aec52a98-5a6a-424c-b438-02ac917b1171"] }, Open ]], Cell[CellGroupData[{ @@ -4114,12 +9342,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + "In[111]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[BoxData["0.010798036798660033`"], "Output", - CellChangeTimes->{3.991340904825058*^9}, +Cell[BoxData["0.035076725319798344`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.993918306062216*^9}, CellLabel-> - "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] + "Out[111]=",ExpressionUUID->"8b75c37b-cb3a-41e7-bddd-cfdcd509446e"] }, Open ]], Cell[CellGroupData[{ @@ -4133,12 +9361,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + "In[112]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[BoxData["8.5284977476633`"], "Output", - CellChangeTimes->{3.9913409049303207`*^9}, +Cell[BoxData["4.731898493194477`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.993918306172537*^9}, CellLabel-> - "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] + "Out[112]=",ExpressionUUID->"2a7c0124-9e81-4084-97ca-179f6a2a5055"] }, Open ]], Cell[CellGroupData[{ @@ -4231,12 +9459,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + "In[113]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991340904948307*^9}, +Cell[BoxData["0.15074304128905536`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.9939183061851892`*^9}, CellLabel-> - "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] + "Out[113]=",ExpressionUUID->"bad5c028-b5eb-4258-8f72-4666c8af1cec"] }, Open ]], Cell[CellGroupData[{ @@ -4326,12 +9554,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + "In[114]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991340904981308*^9}, +Cell[BoxData["0.8492569587109448`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.9939183061953173`*^9}, CellLabel-> - "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] + "Out[114]=",ExpressionUUID->"b046aa58-804f-446e-a8bd-26636eb1ea34"] }, Open ]], Cell[CellGroupData[{ @@ -4454,12 +9682,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + "In[115]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.99134090500931*^9}, +Cell[BoxData["0.12801957679198153`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.993918306206991*^9}, CellLabel-> - "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] + "Out[115]=",ExpressionUUID->"7d6e5b58-fded-49ae-860b-e7b654be7526"] }, Open ]], Cell[CellGroupData[{ @@ -4521,68 +9749,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849824909197*^9},ExpressionUUID->"486d514f-ec65-1e4e-b780-\ -7e9487f745c3"], + CellChangeTimes->{3.991849824909197*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 361, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905038307*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.874420035757567`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 116, 37, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993918306222279*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +In[116]:=",ExpressionUUID->"14440ad5-bf1f-4ae7-8553-ca66f4b01137"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 362, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905047306*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.306949457516041`*^-221\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 38, + 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993918306230617*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +In[116]:=",ExpressionUUID->"304c6c35-5e61-49d4-9004-b53cdbc321e1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 363, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905056307*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8616160655858403`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 39, + 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993918306238853*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +In[116]:=",ExpressionUUID->"a77ef920-15e8-43cf-a1fd-214cc1605656"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905064308*^9}, +during this calculation.\"", 2, 116, 40, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993918306245696*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +In[116]:=",ExpressionUUID->"19764271-72ab-4f6f-92c1-bc1f7077be61"], -Cell[BoxData["6.028089553291301`"], "Output", - CellChangeTimes->{3.991340908920454*^9}, +Cell[BoxData["13.449513433304094`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.993918309906858*^9}, CellLabel-> - "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] + "Out[116]=",ExpressionUUID->"fe7ab1a1-8505-42ae-8425-cefe4bbd1b26"] }, Open ]], Cell[CellGroupData[{ @@ -4644,68 +9876,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918498299076843`*^9},ExpressionUUID->"c7144ce5-8356-d548-8854-\ -18c538c3321c"], + CellChangeTimes->{3.9918498299076843`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 365, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908954941*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.874420035757567`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 117, 41, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993918309957924*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +In[117]:=",ExpressionUUID->"2b95ff2d-b8df-4162-946b-d8af3739a37e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 366, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908964924*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.306949457516041`*^-221\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 42, + 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.9939183099664783`*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +In[117]:=",ExpressionUUID->"1da26eae-abda-401d-8e73-3d0962cefc38"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 367, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409089739246`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8616160655858403`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 43, + 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993918309973661*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +In[117]:=",ExpressionUUID->"fab8d531-1675-4da9-8ee1-e2056f761945"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908981924*^9}, +during this calculation.\"", 2, 117, 44, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.9939183099821587`*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +In[117]:=",ExpressionUUID->"b2ee7ccb-6915-4832-b1ac-1e8e43fe61d5"], -Cell[BoxData["8.528497747663296`"], "Output", - CellChangeTimes->{3.991340912767397*^9}, +Cell[BoxData["4.73189849319448`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.993918313724762*^9}, CellLabel-> - "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] + "Out[117]=",ExpressionUUID->"5b89a9f4-0461-4f3b-afb9-8e9ccb0b717e"] }, Open ]], Cell[CellGroupData[{ @@ -4763,95 +9999,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849833066021*^9},ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-\ -a45df2eabf0c"], + CellChangeTimes->{3.991849833066021*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk8VN0fB3DZypYtW7IPhUQzhMj5xkhkiVSWiDFzlSRbEuKpaE+SiueX +rciuFNnKEymeCFlKimS7si8ztOjxO/6Y1329X+eez/2c87r3jArjhBOLm4uL +axT/Vq5BLVs2lre1mNH46g4sOHCQ2VSWAYNeiLbW/k9+xf3p25Io9OfoIb+O +Hwd7L/MdvzDtNaLMnzRnY5eEx7ziozcjsjwsaw778hvZlzH571Fvim7CDHZl +W1DaErULPZnN4JvCHut5G3W6uhuVazfxjmOvH1ZzX7D4gv40FF8nsfdMRxmH +NH9FBm62GYPYNUtjQuH539DHy1mmX7E/nJWJfBYwiH6LVzB6sKf46WNs6jAK +q70o0YXNfy3QlbY4gt5ErLNtxVYUT20Mqh5FFP3Dov9i28svPJyymEBbB6i0 +amwiQ1VaZ80UqlavufUUO0bdIe5Y8zT6wS8cXYDdLdO5NTR/Fr2Q5UynYDPd +/I7eujaHbhrcOpWAPXOPK/NJwDwqafx56QL2GlUdsVkqB73j3mgdhJ3EfGUl +JrWAztBmF1nYyjmuMbqLC6ht8oqeG7bR5gtTx6t/IOVxfbQT+8i2r81jFkuI +tyGtXQCbHX6SV1DjD5o8rdz2y56D/qoWMtVc8x8auHb+4Dh2MhgV+DYvI2/a +D54mbGZ2Iz04fxU4BI12xGLnv7nVf1aeG1Iv1yoHY8+QnlE3r3GDRm3ioid2 +lBbn6eMAHtBlaFkYYic9UlGbpvLB4fPXnAbsOKinbaLmvwd8cE4tdroJW3mu +3G2tFD/UXbohXYZdqG+fqLPID6e/z3BfwK6vjFjlX70GeE3s9qtic151fB21 +EAbROfUhui0HSdgKi0XWCINguXMaBVuvkw4ixiLQ9GFHCw+231BZxtYtayF8 +0OXGyz0cFMjdrLdDWAymTPzv0rCHVYtn4xbEYZOF3utla7w/xFuBVpoEaLGg +7wM2d8GIimyQBHgvnTlehK1MU3LKH5cAj5+ZUy7YbhYJT1r6JSFCKCwqbzcH +tfoEh8g0ScG1rol3elYc1JcTf9VrjTSE+XfbLe/ioInx/Ad5ltLwzTyG/g5b +MHSww+SlNOysVb/ji02Pddb3KpOBhL2TTbctOagqaxsnN10ObNJOXem24KCs +4V9h20MVAJwZmYuIg3bvv9gXUqQAKaNmkZXYE/WSu4pGFMDPMq8vAls/a7OU +sqsi+NQ5mi+Z4f1keD7lM1OC9J+K0T93cNDcdP+p0fPKEC/k/L7XhIMkj9NL +n9qpQlNriKG9IQeNZAke2eunCo2WfK6rsCu+tMlPXlCFXxP3+Eq3cdAhW4/z +Gi9VoZCU4JLFztIOc0qhqkEIcSWyRx8/fyxnJlqGAmfT/JOt8Xvs7CukY/NN +Ha4E8zW3beYgFLafevCPOtRs5jM4ha0Vl27IlNOAvN3WugrYXA9o5tGOGmB2 +s/ujrzYHFfW5H3xSqwHx8YW/FjXx93mg8Oz6+xuhUFw7iWcj7ke3+zDG0IS/ +1/8+26jMQfKqN2KuDm0Gptt0j7AkBz2/wtb8ya0DLodSNeIlcP95105CRQe6 +Aj6z12Kn1VM0zT11QO4OIScqzkGqvlXtPz7qgMPB/XECorhf4bA60bQF2Mo1 +f0YEOUhBXpFQdtUDCcphRUtuDtqcHSr8G1Hhxlxl661pNmIwz3N07KkgVbpK +cBV2slpin9chKhjpv/hyfIqNeO4/evwmnAonFyf27Jpko560MefEEirs86zd +NzfGRpeTvVI11WiQ9N8vBcMRNhq5arvFhV8fwmKjLEO/sFFmMGVvWbMBnHn3 +Zl9dAxu1hSHD2GxjuDuQkf/yNhupeHbZe/jvgEuJiT+RJxuxlp8VK5wGyH/e +5kxXZyOZ8YrVMgxzWKi/utZnYB6F0ky/JGrRQUw6wPlF+jxiTC41So5ZwsZl +t9hlt3lUZB6yOr3VClpV/9YyEJlHWWy/2sIkaxAToBvr1M2hHztl39XH7IGE +EwudTQFzqJeLZ/abtx2wVQr9T8nPoYANJxLOqjmAS/DM+GzzLCo+2vjydtxe +WN5TyTh2ahZFzMstah91hIy8v4SebpxFHJtdBxoOOwEz4jUMv59Bxu43dw47 +7gMzIb72vOgZ1C6X6ldPc4aUYT1lc+oMWv/w/PPcTfuBM1CZY1A3jSr6tWzt +RQ7AdeHHZw5vmUaKnTO+YZMHgCpdvcUtcwrRbt8sfNB/EPR8e6Q3i0yhVN75 +LYmvXKBtRqyk5uIkerZTtyeu0hWs9sst/7M0gZINr4gv5buBCdV0xixiArV+ +zr5Au+YOpQdfSQnwT6Ayu3uUwL8OQUF44UFq/DiaPb6PK4DpAY4FhXfMKeOI +s0vzyJSFJzjm6B5dWzeGcic//QjZdhjuZUPdoMcYcsnM9vEQ9oJNamWZEfxj +6OmTPYd5LnrBP+VSOi7F35GxfPvPyz+9wDt9R7MV4ztS6/fteX/UG7oF4/2v +K3xHQ0LHHO4NekNRwtLJy59GUVu8vY/VfgZEp3Zr6WSMoqTwdKGTbQx437hu +bf6RUfS8Zvmnj7UPTKBA916jUSR6CC7SqnxgxDE111RiFCmva2jd8NwH/g7w +bcgUH0V6zXay/DU+4DHC47Qa28nUPa+71gduiRXld4ji/A1hTWf+9QGnhISj +QSKjaH1vgWhjtw+0CytvqF2D/zc9ZZIPLfrAqHDa7pJlEhl7TeXG6TNBU0XR +p3OKRA9TZkLstzHhvPDd4UPY6zrmzGSMmPDY+tHr4UkSTVkuduaaMOFcRUXa +jwkSnzdcq5rNmSAZJ1yqOk6itYvirhKOTJgfue93iSTR0HUDgfTjTJhM4F9O +6SeRY4Nhp+8JJiTUC9C2YNdwbU/XC2LC8uW4+rqvJEoJMTOoC2VCnsrA8kQf +iexdrbyHI5mQLSrabdlLokqKa6X2FSbQK7eJCPSQKL466mjFQyZUi3w519VB +ouPUu8bhuUy4QE3edQrbNq9EwCifCVFT/Ew5bMG7I3nlRUww0fhR4NlOorjg +vWPPSvH82yKBk20kitKkHCurYwKFd2OjfAuJ/O42+T/pY0J6hmNJdSOJrNeO +mAb34z4hUXlHsDfFcYlQB5hQqG3yWwp7JNigqGQY988PLAhqIJG3ffrk4wkm +6D26b6bzhkQufCEBj34xQXfCXbfsFYmsQtYHFkqz4FygrP6af0hUl37BJlGW +BWGpY7uqakhk2jxHCV/PArc2kVf+2HrqTZ8sFFkwTbVYbH9BIrmPkRaf1VlQ +cs/OIes5ica390oLGrAgNo37hVsViW5wZ7zw3ceCHb9MLkk/w+vXFU6228+C +cGPbV11lJIp1Dw+mHWSBsPEN39vY4aV78VHDgkP8+eNS2N7Eqpt3GCwo/b1+ +QL6URLS3DObrIBZolepeNHlCoo831YXUElhg8Smp8N9iEhUjkSOjN1nQnjUd +lYIdO8muL7rFgpqFd7lHsanW9dFGd/H4dwlJIex4Lp85uzQ8P6B4q1MRiXad +yPgUXsgCRY8nd2YLSKSgcGmbWTELoIFHqQGb/fbELZ7HLChXaeNOxb6vgezi +n7Ig/eHHL9bYf3p7Xz6oYsFhSlJPTj6JSm3lc1sa8f7yuiyF5pHo6i9uvqS3 +LDgZq2i6F5uRO+bt2syCTcdcPmpji/FWyQ+1ssDsEUV5KJdE/tUuN35+YEGP +suRvF2w1rTthlGEWvEgb79qXQ6JfH890fB9hAXfCs2Z97LY4lt6jURYUBEwp +SmNHf9MfM55gQWjkg65PD0nUk9zh4TDPgo5a2Wss7MTV4pYRqwhI5B/cEJ9N +oudzve6hPAQMpezvC8Ime/ODA/gIGBgqFj+AbVpKz2AIENCxKNmihD3iFf7b +RpyAd2/upVZk4f62lhKWkgSo1RlPpWObGEpoIikCjtpWPb6InSBSeIAmR8C9 +FOZVl5Xxqq8l8ioE1Ox2vrv8gEREdmGjlBoBjd94To1hJySc/iqqTsANu6TG +LuwRQlKEV5OAxcMHaotWxiWtjkzoEWCmdFDAB7vqP8mYESoBAXO84Y7Yw9/7 +b/frE0BY33QB7O0vI151GuH1RtJPKGEP+RcrvgACipXWzg/cx+eHS6RBuTkB +qbS8mU5sY4vdtiV0vN7vyl4N2PFyA6ezdxNwyz87qQi7gvdRQroNAY5dJa6Z +2IPTkTkptgTkyP6dcBvb6I1U1/W9BNhE/NkXg80oGRi/6ETAZfPw/lDs6/ce +cZ9zJkDDuKXPD3sg2FovzAX3lRXa6oIt4iltFehGQG7FbKzDSp71oIffIQIq +F57YWK3MVzpz1dOLANuWem2jlT6CNvddGATQdaSstq7kcaQrnZgE9JeiTq2V +vG+DrbYEARRbegdlJa/58ciuIwS8/qxKV1rpV37mD/gRsMP+s8b6lfz7NutM +/AkouXE8Umol/7qMtkEAnh//aaf4Sn740E7dQALkjZUiRLCFmSUumsEECJ8z +owhiGzpEn1ALJYDjbgirV/K377mgEEbAg2qBFl7sa+qyqTLhBOTfLXvHjf1M +bPipeAQB20e3o1XY336XvBWKIuBATooq10o+Gf2NLxrf3/b+1HImiba17/mx +HENAsveg2Yr/D5rc93Y= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -4865,106 +10100,106 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwV1Xk8VN0fB3DZypYtW7IPhUQzhMj5xkhkiVSWiDFzlSRbEuKpaE+SiueX +rciuFNnKEymeCFlKimS7si8ztOjxO/6Y1329X+eez/2c87r3jArjhBOLm4uL +axT/Vq5BLVs2lre1mNH46g4sOHCQ2VSWAYNeiLbW/k9+xf3p25Io9OfoIb+O +Hwd7L/MdvzDtNaLMnzRnY5eEx7ziozcjsjwsaw778hvZlzH571Fvim7CDHZl +W1DaErULPZnN4JvCHut5G3W6uhuVazfxjmOvH1ZzX7D4gv40FF8nsfdMRxmH +NH9FBm62GYPYNUtjQuH539DHy1mmX7E/nJWJfBYwiH6LVzB6sKf46WNs6jAK +q70o0YXNfy3QlbY4gt5ErLNtxVYUT20Mqh5FFP3Dov9i28svPJyymEBbB6i0 +amwiQ1VaZ80UqlavufUUO0bdIe5Y8zT6wS8cXYDdLdO5NTR/Fr2Q5UynYDPd +/I7eujaHbhrcOpWAPXOPK/NJwDwqafx56QL2GlUdsVkqB73j3mgdhJ3EfGUl +JrWAztBmF1nYyjmuMbqLC6ht8oqeG7bR5gtTx6t/IOVxfbQT+8i2r81jFkuI +tyGtXQCbHX6SV1DjD5o8rdz2y56D/qoWMtVc8x8auHb+4Dh2MhgV+DYvI2/a +D54mbGZ2Iz04fxU4BI12xGLnv7nVf1aeG1Iv1yoHY8+QnlE3r3GDRm3ioid2 +lBbn6eMAHtBlaFkYYic9UlGbpvLB4fPXnAbsOKinbaLmvwd8cE4tdroJW3mu +3G2tFD/UXbohXYZdqG+fqLPID6e/z3BfwK6vjFjlX70GeE3s9qtic151fB21 +EAbROfUhui0HSdgKi0XWCINguXMaBVuvkw4ixiLQ9GFHCw+231BZxtYtayF8 +0OXGyz0cFMjdrLdDWAymTPzv0rCHVYtn4xbEYZOF3utla7w/xFuBVpoEaLGg +7wM2d8GIimyQBHgvnTlehK1MU3LKH5cAj5+ZUy7YbhYJT1r6JSFCKCwqbzcH +tfoEh8g0ScG1rol3elYc1JcTf9VrjTSE+XfbLe/ioInx/Ad5ltLwzTyG/g5b +MHSww+SlNOysVb/ji02Pddb3KpOBhL2TTbctOagqaxsnN10ObNJOXem24KCs +4V9h20MVAJwZmYuIg3bvv9gXUqQAKaNmkZXYE/WSu4pGFMDPMq8vAls/a7OU +sqsi+NQ5mi+Z4f1keD7lM1OC9J+K0T93cNDcdP+p0fPKEC/k/L7XhIMkj9NL +n9qpQlNriKG9IQeNZAke2eunCo2WfK6rsCu+tMlPXlCFXxP3+Eq3cdAhW4/z +Gi9VoZCU4JLFztIOc0qhqkEIcSWyRx8/fyxnJlqGAmfT/JOt8Xvs7CukY/NN +Ha4E8zW3beYgFLafevCPOtRs5jM4ha0Vl27IlNOAvN3WugrYXA9o5tGOGmB2 +s/ujrzYHFfW5H3xSqwHx8YW/FjXx93mg8Oz6+xuhUFw7iWcj7ke3+zDG0IS/ +1/8+26jMQfKqN2KuDm0Gptt0j7AkBz2/wtb8ya0DLodSNeIlcP95105CRQe6 +Aj6z12Kn1VM0zT11QO4OIScqzkGqvlXtPz7qgMPB/XECorhf4bA60bQF2Mo1 +f0YEOUhBXpFQdtUDCcphRUtuDtqcHSr8G1Hhxlxl661pNmIwz3N07KkgVbpK +cBV2slpin9chKhjpv/hyfIqNeO4/evwmnAonFyf27Jpko560MefEEirs86zd +NzfGRpeTvVI11WiQ9N8vBcMRNhq5arvFhV8fwmKjLEO/sFFmMGVvWbMBnHn3 +Zl9dAxu1hSHD2GxjuDuQkf/yNhupeHbZe/jvgEuJiT+RJxuxlp8VK5wGyH/e +5kxXZyOZ8YrVMgxzWKi/utZnYB6F0ky/JGrRQUw6wPlF+jxiTC41So5ZwsZl +t9hlt3lUZB6yOr3VClpV/9YyEJlHWWy/2sIkaxAToBvr1M2hHztl39XH7IGE +EwudTQFzqJeLZ/abtx2wVQr9T8nPoYANJxLOqjmAS/DM+GzzLCo+2vjydtxe +WN5TyTh2ahZFzMstah91hIy8v4SebpxFHJtdBxoOOwEz4jUMv59Bxu43dw47 +7gMzIb72vOgZ1C6X6ldPc4aUYT1lc+oMWv/w/PPcTfuBM1CZY1A3jSr6tWzt +RQ7AdeHHZw5vmUaKnTO+YZMHgCpdvcUtcwrRbt8sfNB/EPR8e6Q3i0yhVN75 +LYmvXKBtRqyk5uIkerZTtyeu0hWs9sst/7M0gZINr4gv5buBCdV0xixiArV+ +zr5Au+YOpQdfSQnwT6Ayu3uUwL8OQUF44UFq/DiaPb6PK4DpAY4FhXfMKeOI +s0vzyJSFJzjm6B5dWzeGcic//QjZdhjuZUPdoMcYcsnM9vEQ9oJNamWZEfxj +6OmTPYd5LnrBP+VSOi7F35GxfPvPyz+9wDt9R7MV4ztS6/fteX/UG7oF4/2v +K3xHQ0LHHO4NekNRwtLJy59GUVu8vY/VfgZEp3Zr6WSMoqTwdKGTbQx437hu +bf6RUfS8Zvmnj7UPTKBA916jUSR6CC7SqnxgxDE111RiFCmva2jd8NwH/g7w +bcgUH0V6zXay/DU+4DHC47Qa28nUPa+71gduiRXld4ji/A1hTWf+9QGnhISj +QSKjaH1vgWhjtw+0CytvqF2D/zc9ZZIPLfrAqHDa7pJlEhl7TeXG6TNBU0XR +p3OKRA9TZkLstzHhvPDd4UPY6zrmzGSMmPDY+tHr4UkSTVkuduaaMOFcRUXa +jwkSnzdcq5rNmSAZJ1yqOk6itYvirhKOTJgfue93iSTR0HUDgfTjTJhM4F9O +6SeRY4Nhp+8JJiTUC9C2YNdwbU/XC2LC8uW4+rqvJEoJMTOoC2VCnsrA8kQf +iexdrbyHI5mQLSrabdlLokqKa6X2FSbQK7eJCPSQKL466mjFQyZUi3w519VB +ouPUu8bhuUy4QE3edQrbNq9EwCifCVFT/Ew5bMG7I3nlRUww0fhR4NlOorjg +vWPPSvH82yKBk20kitKkHCurYwKFd2OjfAuJ/O42+T/pY0J6hmNJdSOJrNeO +mAb34z4hUXlHsDfFcYlQB5hQqG3yWwp7JNigqGQY988PLAhqIJG3ffrk4wkm +6D26b6bzhkQufCEBj34xQXfCXbfsFYmsQtYHFkqz4FygrP6af0hUl37BJlGW +BWGpY7uqakhk2jxHCV/PArc2kVf+2HrqTZ8sFFkwTbVYbH9BIrmPkRaf1VlQ +cs/OIes5ica390oLGrAgNo37hVsViW5wZ7zw3ceCHb9MLkk/w+vXFU6228+C +cGPbV11lJIp1Dw+mHWSBsPEN39vY4aV78VHDgkP8+eNS2N7Eqpt3GCwo/b1+ +QL6URLS3DObrIBZolepeNHlCoo831YXUElhg8Smp8N9iEhUjkSOjN1nQnjUd +lYIdO8muL7rFgpqFd7lHsanW9dFGd/H4dwlJIex4Lp85uzQ8P6B4q1MRiXad +yPgUXsgCRY8nd2YLSKSgcGmbWTELoIFHqQGb/fbELZ7HLChXaeNOxb6vgezi +n7Ig/eHHL9bYf3p7Xz6oYsFhSlJPTj6JSm3lc1sa8f7yuiyF5pHo6i9uvqS3 +LDgZq2i6F5uRO+bt2syCTcdcPmpji/FWyQ+1ssDsEUV5KJdE/tUuN35+YEGP +suRvF2w1rTthlGEWvEgb79qXQ6JfH890fB9hAXfCs2Z97LY4lt6jURYUBEwp +SmNHf9MfM55gQWjkg65PD0nUk9zh4TDPgo5a2Wss7MTV4pYRqwhI5B/cEJ9N +oudzve6hPAQMpezvC8Ime/ODA/gIGBgqFj+AbVpKz2AIENCxKNmihD3iFf7b +RpyAd2/upVZk4f62lhKWkgSo1RlPpWObGEpoIikCjtpWPb6InSBSeIAmR8C9 +FOZVl5Xxqq8l8ioE1Ox2vrv8gEREdmGjlBoBjd94To1hJySc/iqqTsANu6TG +LuwRQlKEV5OAxcMHaotWxiWtjkzoEWCmdFDAB7vqP8mYESoBAXO84Y7Yw9/7 +b/frE0BY33QB7O0vI151GuH1RtJPKGEP+RcrvgACipXWzg/cx+eHS6RBuTkB +qbS8mU5sY4vdtiV0vN7vyl4N2PFyA6ezdxNwyz87qQi7gvdRQroNAY5dJa6Z +2IPTkTkptgTkyP6dcBvb6I1U1/W9BNhE/NkXg80oGRi/6ETAZfPw/lDs6/ce +cZ9zJkDDuKXPD3sg2FovzAX3lRXa6oIt4iltFehGQG7FbKzDSp71oIffIQIq +F57YWK3MVzpz1dOLANuWem2jlT6CNvddGATQdaSstq7kcaQrnZgE9JeiTq2V +vG+DrbYEARRbegdlJa/58ciuIwS8/qxKV1rpV37mD/gRsMP+s8b6lfz7NutM +/AkouXE8Umol/7qMtkEAnh//aaf4Sn740E7dQALkjZUiRLCFmSUumsEECJ8z +owhiGzpEn1ALJYDjbgirV/K377mgEEbAg2qBFl7sa+qyqTLhBOTfLXvHjf1M +bPipeAQB20e3o1XY336XvBWKIuBATooq10o+Gf2NLxrf3/b+1HImiba17/mx +HENAsveg2Yr/D5rc93Y= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "PlotRange" -> {{0, 180}, {0.7385250309262572, + 1.3320220364551687`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7385250309262589}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -4976,20 +10211,21 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.7385250309262572, + 1.3320220364551687`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.7385250309262589}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5003,105 +10239,104 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwV1Xk8VN0fB3DZypYtW7IPhUQzhMj5xkhkiVSWiDFzlSRbEuKpaE+SiueX +rciuFNnKEymeCFlKimS7si8ztOjxO/6Y1329X+eez/2c87r3jArjhBOLm4uL +axT/Vq5BLVs2lre1mNH46g4sOHCQ2VSWAYNeiLbW/k9+xf3p25Io9OfoIb+O +Hwd7L/MdvzDtNaLMnzRnY5eEx7ziozcjsjwsaw778hvZlzH571Fvim7CDHZl +W1DaErULPZnN4JvCHut5G3W6uhuVazfxjmOvH1ZzX7D4gv40FF8nsfdMRxmH +NH9FBm62GYPYNUtjQuH539DHy1mmX7E/nJWJfBYwiH6LVzB6sKf46WNs6jAK +q70o0YXNfy3QlbY4gt5ErLNtxVYUT20Mqh5FFP3Dov9i28svPJyymEBbB6i0 +amwiQ1VaZ80UqlavufUUO0bdIe5Y8zT6wS8cXYDdLdO5NTR/Fr2Q5UynYDPd +/I7eujaHbhrcOpWAPXOPK/NJwDwqafx56QL2GlUdsVkqB73j3mgdhJ3EfGUl +JrWAztBmF1nYyjmuMbqLC6ht8oqeG7bR5gtTx6t/IOVxfbQT+8i2r81jFkuI +tyGtXQCbHX6SV1DjD5o8rdz2y56D/qoWMtVc8x8auHb+4Dh2MhgV+DYvI2/a +D54mbGZ2Iz04fxU4BI12xGLnv7nVf1aeG1Iv1yoHY8+QnlE3r3GDRm3ioid2 +lBbn6eMAHtBlaFkYYic9UlGbpvLB4fPXnAbsOKinbaLmvwd8cE4tdroJW3mu +3G2tFD/UXbohXYZdqG+fqLPID6e/z3BfwK6vjFjlX70GeE3s9qtic151fB21 +EAbROfUhui0HSdgKi0XWCINguXMaBVuvkw4ixiLQ9GFHCw+231BZxtYtayF8 +0OXGyz0cFMjdrLdDWAymTPzv0rCHVYtn4xbEYZOF3utla7w/xFuBVpoEaLGg +7wM2d8GIimyQBHgvnTlehK1MU3LKH5cAj5+ZUy7YbhYJT1r6JSFCKCwqbzcH +tfoEh8g0ScG1rol3elYc1JcTf9VrjTSE+XfbLe/ioInx/Ad5ltLwzTyG/g5b +MHSww+SlNOysVb/ji02Pddb3KpOBhL2TTbctOagqaxsnN10ObNJOXem24KCs +4V9h20MVAJwZmYuIg3bvv9gXUqQAKaNmkZXYE/WSu4pGFMDPMq8vAls/a7OU +sqsi+NQ5mi+Z4f1keD7lM1OC9J+K0T93cNDcdP+p0fPKEC/k/L7XhIMkj9NL +n9qpQlNriKG9IQeNZAke2eunCo2WfK6rsCu+tMlPXlCFXxP3+Eq3cdAhW4/z +Gi9VoZCU4JLFztIOc0qhqkEIcSWyRx8/fyxnJlqGAmfT/JOt8Xvs7CukY/NN +Ha4E8zW3beYgFLafevCPOtRs5jM4ha0Vl27IlNOAvN3WugrYXA9o5tGOGmB2 +s/ujrzYHFfW5H3xSqwHx8YW/FjXx93mg8Oz6+xuhUFw7iWcj7ke3+zDG0IS/ +1/8+26jMQfKqN2KuDm0Gptt0j7AkBz2/wtb8ya0DLodSNeIlcP95105CRQe6 +Aj6z12Kn1VM0zT11QO4OIScqzkGqvlXtPz7qgMPB/XECorhf4bA60bQF2Mo1 +f0YEOUhBXpFQdtUDCcphRUtuDtqcHSr8G1Hhxlxl661pNmIwz3N07KkgVbpK +cBV2slpin9chKhjpv/hyfIqNeO4/evwmnAonFyf27Jpko560MefEEirs86zd +NzfGRpeTvVI11WiQ9N8vBcMRNhq5arvFhV8fwmKjLEO/sFFmMGVvWbMBnHn3 +Zl9dAxu1hSHD2GxjuDuQkf/yNhupeHbZe/jvgEuJiT+RJxuxlp8VK5wGyH/e +5kxXZyOZ8YrVMgxzWKi/utZnYB6F0ky/JGrRQUw6wPlF+jxiTC41So5ZwsZl +t9hlt3lUZB6yOr3VClpV/9YyEJlHWWy/2sIkaxAToBvr1M2hHztl39XH7IGE +EwudTQFzqJeLZ/abtx2wVQr9T8nPoYANJxLOqjmAS/DM+GzzLCo+2vjydtxe +WN5TyTh2ahZFzMstah91hIy8v4SebpxFHJtdBxoOOwEz4jUMv59Bxu43dw47 +7gMzIb72vOgZ1C6X6ldPc4aUYT1lc+oMWv/w/PPcTfuBM1CZY1A3jSr6tWzt +RQ7AdeHHZw5vmUaKnTO+YZMHgCpdvcUtcwrRbt8sfNB/EPR8e6Q3i0yhVN75 +LYmvXKBtRqyk5uIkerZTtyeu0hWs9sst/7M0gZINr4gv5buBCdV0xixiArV+ +zr5Au+YOpQdfSQnwT6Ayu3uUwL8OQUF44UFq/DiaPb6PK4DpAY4FhXfMKeOI +s0vzyJSFJzjm6B5dWzeGcic//QjZdhjuZUPdoMcYcsnM9vEQ9oJNamWZEfxj +6OmTPYd5LnrBP+VSOi7F35GxfPvPyz+9wDt9R7MV4ztS6/fteX/UG7oF4/2v +K3xHQ0LHHO4NekNRwtLJy59GUVu8vY/VfgZEp3Zr6WSMoqTwdKGTbQx437hu +bf6RUfS8Zvmnj7UPTKBA916jUSR6CC7SqnxgxDE111RiFCmva2jd8NwH/g7w +bcgUH0V6zXay/DU+4DHC47Qa28nUPa+71gduiRXld4ji/A1hTWf+9QGnhISj +QSKjaH1vgWhjtw+0CytvqF2D/zc9ZZIPLfrAqHDa7pJlEhl7TeXG6TNBU0XR +p3OKRA9TZkLstzHhvPDd4UPY6zrmzGSMmPDY+tHr4UkSTVkuduaaMOFcRUXa +jwkSnzdcq5rNmSAZJ1yqOk6itYvirhKOTJgfue93iSTR0HUDgfTjTJhM4F9O +6SeRY4Nhp+8JJiTUC9C2YNdwbU/XC2LC8uW4+rqvJEoJMTOoC2VCnsrA8kQf +iexdrbyHI5mQLSrabdlLokqKa6X2FSbQK7eJCPSQKL466mjFQyZUi3w519VB +ouPUu8bhuUy4QE3edQrbNq9EwCifCVFT/Ew5bMG7I3nlRUww0fhR4NlOorjg +vWPPSvH82yKBk20kitKkHCurYwKFd2OjfAuJ/O42+T/pY0J6hmNJdSOJrNeO +mAb34z4hUXlHsDfFcYlQB5hQqG3yWwp7JNigqGQY988PLAhqIJG3ffrk4wkm +6D26b6bzhkQufCEBj34xQXfCXbfsFYmsQtYHFkqz4FygrP6af0hUl37BJlGW +BWGpY7uqakhk2jxHCV/PArc2kVf+2HrqTZ8sFFkwTbVYbH9BIrmPkRaf1VlQ +cs/OIes5ica390oLGrAgNo37hVsViW5wZ7zw3ceCHb9MLkk/w+vXFU6228+C +cGPbV11lJIp1Dw+mHWSBsPEN39vY4aV78VHDgkP8+eNS2N7Eqpt3GCwo/b1+ +QL6URLS3DObrIBZolepeNHlCoo831YXUElhg8Smp8N9iEhUjkSOjN1nQnjUd +lYIdO8muL7rFgpqFd7lHsanW9dFGd/H4dwlJIex4Lp85uzQ8P6B4q1MRiXad +yPgUXsgCRY8nd2YLSKSgcGmbWTELoIFHqQGb/fbELZ7HLChXaeNOxb6vgezi +n7Ig/eHHL9bYf3p7Xz6oYsFhSlJPTj6JSm3lc1sa8f7yuiyF5pHo6i9uvqS3 +LDgZq2i6F5uRO+bt2syCTcdcPmpji/FWyQ+1ssDsEUV5KJdE/tUuN35+YEGP +suRvF2w1rTthlGEWvEgb79qXQ6JfH890fB9hAXfCs2Z97LY4lt6jURYUBEwp +SmNHf9MfM55gQWjkg65PD0nUk9zh4TDPgo5a2Wss7MTV4pYRqwhI5B/cEJ9N +oudzve6hPAQMpezvC8Ime/ODA/gIGBgqFj+AbVpKz2AIENCxKNmihD3iFf7b +RpyAd2/upVZk4f62lhKWkgSo1RlPpWObGEpoIikCjtpWPb6InSBSeIAmR8C9 +FOZVl5Xxqq8l8ioE1Ox2vrv8gEREdmGjlBoBjd94To1hJySc/iqqTsANu6TG +LuwRQlKEV5OAxcMHaotWxiWtjkzoEWCmdFDAB7vqP8mYESoBAXO84Y7Yw9/7 +b/frE0BY33QB7O0vI151GuH1RtJPKGEP+RcrvgACipXWzg/cx+eHS6RBuTkB +qbS8mU5sY4vdtiV0vN7vyl4N2PFyA6ezdxNwyz87qQi7gvdRQroNAY5dJa6Z +2IPTkTkptgTkyP6dcBvb6I1U1/W9BNhE/NkXg80oGRi/6ETAZfPw/lDs6/ce +cZ9zJkDDuKXPD3sg2FovzAX3lRXa6oIt4iltFehGQG7FbKzDSp71oIffIQIq +F57YWK3MVzpz1dOLANuWem2jlT6CNvddGATQdaSstq7kcaQrnZgE9JeiTq2V +vG+DrbYEARRbegdlJa/58ciuIwS8/qxKV1rpV37mD/gRsMP+s8b6lfz7NutM +/AkouXE8Umol/7qMtkEAnh//aaf4Sn740E7dQALkjZUiRLCFmSUumsEECJ8z +owhiGzpEn1ALJYDjbgirV/K377mgEEbAg2qBFl7sa+qyqTLhBOTfLXvHjf1M +bPipeAQB20e3o1XY336XvBWKIuBATooq10o+Gf2NLxrf3/b+1HImiba17/mx +HENAsveg2Yr/D5rc93Y= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.7385250309262572, 1.3320220364551687`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.7385250309262589}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5111,7 +10346,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.42228371308737755`}, + AxesOrigin->{0, 0.7385250309262589}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5139,7 +10375,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7385250309262572, 1.3320220364551687`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5147,9 +10384,9 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913411752988663`*^9}, + CellChangeTimes->{3.9913411752988663`*^9, 3.99391859301297*^9}, CellLabel-> - "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] + "Out[118]=",ExpressionUUID->"208a98aa-286b-411f-a93e-3c758690a17c"] }, Open ]], Cell[CellGroupData[{ @@ -5212,157 +10449,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918498397477245`*^9, - 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ -70a15768b745"], + CellChangeTimes->{{3.9918498397477245`*^9, 3.9918498435341415`*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 361, - 369, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755393047`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.01414749442738`*^-269\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 45, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993918593155182*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], +In[119]:=",ExpressionUUID->"8bcf9d5b-702a-46be-b22c-bcd7cbb55ad8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.373024169239214`*^-281\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 46, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993918593163678*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"a55a7afa-cbc9-4a07-a620-b3aa6df09723"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3474933505011893`*^-292\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 361, 370, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755492897`*^9}, + 119, 47, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993918593172409*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 361, 371, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991341175557289*^9}, - CellLabel-> - "During evaluation of \ -In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +In[119]:=",ExpressionUUID->"070df036-e708-476d-ad5c-6ad154522e81"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755664787`*^9}, +during this calculation.\"", 2, 119, 48, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993918593181259*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +In[119]:=",ExpressionUUID->"f4f8278c-5b7c-4b20-bd9a-b4c016417ee2"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4lO0XB/BeKlsJ2SIyyzOWbFGyjXOkCCVZq7dQKJWyZa8sLci+VEhC +9nkSKhRFoWzlLZSlRIuKsmRP5ff8/phrrs8/c819n3O+56Yd8rBy5VqyZAnX +P9SH+p7pb25gRucaBPacK83p0jLozJQMNOwOByGJM87wUxRQrP2QZHcSfBK/ +u1HoJxP8LIvfcHfngPsm4d2TExtBeFQiaf5NOQj8c7ykfWIrvK+x8Jh68wSy +Khekjk7YgDFz+N3Em1fgvUW898OYC8y/2Xx5/M0HyG7O+d757RTUGxXkvsyZ +hB02y1IXSi7A2vf3hw4p/wH/L/vSts/Eg6i7YzGPETfGz8V8KxtIgaQNxtUW +trz4zEwly2EhDXpS1esmhFZiYuPNNN7wTIjODWnnWiOMEmGVDMm4bJBI+RiV +fH01+t5Q1VPJvQkRNqYGr2bE8B3/dvbcsTzw0cl2bA6XxFyjiNuWRAFsHfsV +dPKjFPJNKwgIJBRC4PYUpcffpbB35rCx1uVCKMlW6V09I4X2ml3BDumFIGnj +pHOfVxqVS/905OUWwveqxlluVWmsPVSnLnS/EJLDE06lBUhjzSGZPdaDhfBB +jHWyYeVazHP54ZCoVgRh+rsPSmnLYNaftzb9T4pgu0Pmz81bZDDGrrIi71kR +CIaOnLPdIYMrcmz9j7YVQUb9hfwEJxn8lsQjOtRVBFVmD0aWR8lgjVfSvTtf +i2B8D8NvskcGbQ4knsxaWQwOvtOX2oJlsTzsUtwjm2LQLUm7e7Z2Hf4WWphc +3l0MW9+8+DPatA4DzrxuzOkrBoslS00cX61Dr4h8N733xeBsdbIHPq/DfSvo +NOehYjAOpoWELpPDVSGpB2KmisFz3cxNw/VymLlFlMdYiAMNR278qPeTQ/6R +MUu7bRww/a0jcjpYDoW9m81jtnPgRUKn1sZQOTzys0Sy1pwDPff5QnOj5LA6 +6JuCtBUHRgVOiVzIkEN21i7ilgMHJEu3bzZ+Iof5ap7Z2v4ccJ+bCG1aSUNe +g3eHRvM4oOt1WHxIhIYq13LlFwo5wDvcy+GWpGEHKG9cSnIgr6/+tQGdhhd5 +DQiBcg70P7qsfE+LhoMBn9y/P+TArgs63dmONKxJLaz73ckBDZEwteAyGrYe +85KwW0LCkujphtQKGhrq6xp+5yLhBfexfRXVNOQxsX9wdhkJx6etLkw00pA7 ++t61VH4ScruZfUd6afhHxIiRJUqC+I2mizbcdFzcu+HSX3kS5tcL9avY0rGm +3HbpgjkJM9elwjT30bE8f65J2IKEqVUEU8eRjoEzQXyEJQmjkzrHth6lo8NM +4iLakPCh2nlm3xk6qkc5tFjsJ6HFvFIwMo+OMeed1J4cJ+HZw8dlscV0HG3j +e591goQGtTab5Nt05J+4I3Tag4RHqwfTM+/TUUyHsyDvQ0J5H7/8ved0DHhb +smAbREL6cQf4ME3HjQIxXAKRJFx95/bhyy86iqv5Ly2PIiFll8+FH4uUD2rG +20aTEKcZ2TrHx8CS4GFMiiMhfKHMfpUsA/9c4aN/SKHuJ3qZp74xA6+ofNny +NosEfQ6ZdeUKAwP/HnBiV5DQJ8e5se0aAx9yux87WElC0JWizKkbDKybOHQ2 +vIqEyrD8DKsiBqp41jdWPyBBY09WqmANA8/yevXz15KguCwl4eIgA5t/yqRL +PyOhKSgpftMQA99lGvkLNZFweDwh7tMwAye63Fy5mqn69MXGbJli4KclkX7v +WkiQK4+I/LucierCgoGeL6h6OQaH+ikzsd/b2Y2/i4R7nYEhxAYm0ozjYv+j +bGMWcLZzExMPXDduTX5NQtIm39MawMR6O+sk4W4SVq7wCBjdzcSL9zP3D/eS +QIad8L9ux0RBoynrtD4SzGaP++34l4k3lrcc2faWhMgPbqeKXZgYvXZuKOUd +CUvvH/I87M/EzpTzu4UHSLipetBD7DQTp9/91S2ivCXX8WRDKBMjS3i3GQyS +EBK/351+iYmMn701jh9I+OVq59afwcTCT1xmoZ9ISOuzORKbzcS+jSHG/3wm +QXu39WH9fCaanK84EkLZT9/SJf02Ex1pp6R8hkiYEDFzsnvCRP0LYpbaX0no +dqf/d+wZE3HP1L8cynVPf0FIGxNPenKEpL+RkBDEWVf4mokpHUf8xykHdJ6L +r+ljYs32l0p2wyQ4qe5f/G+AiR12fVFVlNU/rHg/P8zEYe6snT4jJEjqf7YQ +HGeiUXD9nVbKS648fESfZmKC3t4mue8ktJuezDRfZOLr4juLdZQrbhoLOi0l +sKzrM2PFDxIy/8iePcVHYDS6zltTPlnWfuD6agIv0VWqeyjbCRQ+L5Mk0Lnk +S6HEKAkGrqHspzIEct/sMLOizKrdc6uXTuBbf052FOWVazbIjMkT2L5JqeQh +5SlvvlhuFQJf+gl4jVJ+2zb4W0KDwAxXgRHpMaq+oUlvUZ9AteZ9PCcop/Qe +22FrSCDDheAkUD690ajmqDGBcXNL+coou8RJK581J3AgpIr2grL518lrSZYE +6oQvTn+hrLGlTaDAlkCaePrFv5SlMnKDq/cRqDiwvVN4nASumdMj7Y4Epok8 +f0+jPLzL9t9PLgSKnPhapEr5VZFK69xRArX0D2hqU37AvVxvpQeBe/eOnjag +nHOgv5h2ivp9JccIQ8pRlRVSWoEEamb5WP/fnsLxl8zOEtirPT7Iprzn+JFf +DucILP6dprmZMjbCMZ9IAteHaJmqUFZYJ9kbEUvdf380Q46yUOC4aUYSgZvq +nepXUZ571XS/9CqBZx1PK/6mzjOgnK3YmEGgjUe+3WfKTRcD03qyCXy3ucC8 +lXLpwG6+0XwC6REmfCWUU3WVArlIAsvvWCbEUg5N4fomXkagVUbM4FHKR0Z7 +96yvIDC5oPHPFsoW2+80QTWBV+qffpakrJUTrW1TR2C867/pI1T9ltvpS55p +IXCuzMM9gvLobdHIxHYCvb5ERltSfs33Yzavk0CTKrcgccr5D6+/edFP9cfi +3ZZUqp/iJPxMPn6k+kO5VsWWsp+XReXsVwI7nFqdBSlvIxavyE0S+HROaYc/ +1a+fYpzsvHlYmPPvCJNB9ffJYWW6+goWbqv5FdpGzcOsyfyPH0IstC/3kPWh +zM+ddOGoFAtz3+rLVVHzpB5Yf9dJhYUhE/usaNT8PXgdHyqrwUJZsei2u19I +MNq4f8dbLRYmFsfHbqNsNzb10R5ZKNrQOeRAzfMZV9bqXdYs9H6WxudF5cHy ++p/9K/aw0O3HveejH6n5lastbtnPwgJnlf6jH/+fj/ZbjA+zsP7u3JA9lSct +u6O82IEstIrI5Kym8kfc4Hv7+hssjJ4xusFP5VnWtapr326ycPtc3JkDVN4p +zp8/UlDIQqNlUXdu9VB5f1dmkV7Owvd5xxWNqXx0VtqlKtXIwmArhd32VJ6W +ipfH8I6w0PhMjOYClb+6p87ueTrGwojn3z4yKNe/NGOen2LhQuvNWdPnVH1i +PlYv/mHhFI3YEddKwm8usZEZIXk8+lfj0SyV/6Zj/qafteRRvdfgpEUdCWs3 +yF7k1ZfHbmstaW1qX4x6NzxZbyiPbCuzRtlH1LzOCOl7m8tjfGmh6MdqEvr/ +FKkuOsrjE4Uz1SbUPvJe8Xb1mih5tF42uDT8FglbLcIt9ePkUbGlf06PJEEi +QSHWMVkeA3aWzP8sJqFmte/y/OvymJj7iNhTSN23tOC8Rrk80rSyjBZzqP2q +iP07+uTxcVqa/+OrJLgfH5LyHJDHhXGxsh1XSIBbMfbJn+Wx1P0cTxe1Pz+p +9/zXMyaPrSkmq94lkqCq7V1/eKkCzhXRC1qo/VtvnFsYqqKA3H2d/WtDSPju +zOtzN0QB1zayK3OdqfNmbn1Ye14BtzTeWNZ/kISxnlCe1igFdElq4og6kfBz +1/y1wWQFHNgVwB1EvSdm9YYbBAsV8Cd//m+mLZU3om3iR/9TQI2kkfnf20hY +0xD/QIamiDHn3HbWECT1vpfginiiiEYzD2+Xv+PAt0MmhXrPFHG4qvy8Tx8H +YrL9LcZbFVHH87GRRg8HOmS70/d2KWISL3muiHpvOa1J01T+qoj8brqMkFYO +BApKu75cqYSP7UfynlVxgJyTbZLeq4S/rIO+dCRyQOQ5K650TAkH7Ua2CRhw +4O+Yel7LlBIerNX1EtHjwLCIXs2neSXcv0zFXUKbA0/27BqWXLoez53J6JLS +4IDPJ3/jMMn1mHJl3VUeFgc6F5r+7jZcj7+5JroDV3LgqtJxj8mk9aiYdSm0 +ubcY1kbettTSUsZ+tuVye49iSF2vI7T6iAqWCGhnticVQYuU4abJRFVU4T9h +mEG9/3XXPklQe62GX7U3vH0eWwCC3DmnDoarY+v1a35OQfkgG7ZOfy9rAwY3 +834PMsoDPmJ/hdWzDRiX4HKjjS8XVNlrbvsf0EAIGhJaPZgD3v0i9WZLNHE6 +vV54Q2Y2jE3G2JqmamLzFy6JbO8sMFF7mm6qshEDTUKDtXMy4dGk3sLsi41o +9reFZ0IvA04qa/S+dN2El011VbtWpQN71KVzL58Wsp7hY/XWq7CNKblzZY4W +rmi72Xut4TIohF4KeLJ5M6pqda/YO5AMSq46tUTvZkw87L68eSwRXB+5nb/r +pY1X35szHfQToDar02VCTAd9O6fXhfHEwlTh4qxapQ4u3vdf9vNzFDgTHL70 +nboocOhWVKFGBEwoJWuVj+vi7m/7np4POw9VuQuD05F6iOOlL8w3hcO+rQzU +k9XHC9bi1zxZoSB9IuK+ap0+fpGIpk59GsT43ct22rNx1bmvHQVvAiDX6EzQ ++F42zohOO29uDgCNM3FGyfvZKHolqOD5gwCwGC/t6j7Ixmqao6FgZgBcfD09 +7+zORs0T4dHvXQJgLidkS1AYG4/H1rTXTfpDr15yRz6HjTsPz1d7ivuDm29u +hmkJG+dqK/k7eP1hpuSe6/dSNlb4tLXrLfiBCL17dkMFGws6DO/JDfiBOa/M +2od1bLTZtLNyc7Ef1HTmu3R0sdE9pGAoFfzATLBKxa+bjepePeUHNfyg26R5 +RrKPjfcOH3utTvjB1IORSIcBNvaOfJT+wO8HKtnqt74Ns5Gh0XA04bUv1PQa ++sX8YOPsxbMPopt9wUzUGtTG2fjsB491bI0vHI7wfXlqmo1qx2qsb+b4wlTd +xXSJOTY+N/unqvKyL4T/uur84Bcb+zq3738V6QtCG4uUD/yh/n/IDYPJYF/I +PPFgenGRjdevCh+Q8vCF/wE5r5EV "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5376,116 +10616,115 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV1nk4lO0XB/BeKlsJ2SIyyzOWbFGyjXOkCCVZq7dQKJWyZa8sLci+VEhC +9nkSKhRFoWzlLZSlRIuKsmRP5ff8/phrrs8/c819n3O+56Yd8rBy5VqyZAnX +P9SH+p7pb25gRucaBPacK83p0jLozJQMNOwOByGJM87wUxRQrP2QZHcSfBK/ +u1HoJxP8LIvfcHfngPsm4d2TExtBeFQiaf5NOQj8c7ykfWIrvK+x8Jh68wSy +Khekjk7YgDFz+N3Em1fgvUW898OYC8y/2Xx5/M0HyG7O+d757RTUGxXkvsyZ +hB02y1IXSi7A2vf3hw4p/wH/L/vSts/Eg6i7YzGPETfGz8V8KxtIgaQNxtUW +trz4zEwly2EhDXpS1esmhFZiYuPNNN7wTIjODWnnWiOMEmGVDMm4bJBI+RiV +fH01+t5Q1VPJvQkRNqYGr2bE8B3/dvbcsTzw0cl2bA6XxFyjiNuWRAFsHfsV +dPKjFPJNKwgIJBRC4PYUpcffpbB35rCx1uVCKMlW6V09I4X2ml3BDumFIGnj +pHOfVxqVS/905OUWwveqxlluVWmsPVSnLnS/EJLDE06lBUhjzSGZPdaDhfBB +jHWyYeVazHP54ZCoVgRh+rsPSmnLYNaftzb9T4pgu0Pmz81bZDDGrrIi71kR +CIaOnLPdIYMrcmz9j7YVQUb9hfwEJxn8lsQjOtRVBFVmD0aWR8lgjVfSvTtf +i2B8D8NvskcGbQ4knsxaWQwOvtOX2oJlsTzsUtwjm2LQLUm7e7Z2Hf4WWphc +3l0MW9+8+DPatA4DzrxuzOkrBoslS00cX61Dr4h8N733xeBsdbIHPq/DfSvo +NOehYjAOpoWELpPDVSGpB2KmisFz3cxNw/VymLlFlMdYiAMNR278qPeTQ/6R +MUu7bRww/a0jcjpYDoW9m81jtnPgRUKn1sZQOTzys0Sy1pwDPff5QnOj5LA6 +6JuCtBUHRgVOiVzIkEN21i7ilgMHJEu3bzZ+Iof5ap7Z2v4ccJ+bCG1aSUNe +g3eHRvM4oOt1WHxIhIYq13LlFwo5wDvcy+GWpGEHKG9cSnIgr6/+tQGdhhd5 +DQiBcg70P7qsfE+LhoMBn9y/P+TArgs63dmONKxJLaz73ckBDZEwteAyGrYe +85KwW0LCkujphtQKGhrq6xp+5yLhBfexfRXVNOQxsX9wdhkJx6etLkw00pA7 ++t61VH4ScruZfUd6afhHxIiRJUqC+I2mizbcdFzcu+HSX3kS5tcL9avY0rGm +3HbpgjkJM9elwjT30bE8f65J2IKEqVUEU8eRjoEzQXyEJQmjkzrHth6lo8NM +4iLakPCh2nlm3xk6qkc5tFjsJ6HFvFIwMo+OMeed1J4cJ+HZw8dlscV0HG3j +e591goQGtTab5Nt05J+4I3Tag4RHqwfTM+/TUUyHsyDvQ0J5H7/8ved0DHhb +smAbREL6cQf4ME3HjQIxXAKRJFx95/bhyy86iqv5Ly2PIiFll8+FH4uUD2rG +20aTEKcZ2TrHx8CS4GFMiiMhfKHMfpUsA/9c4aN/SKHuJ3qZp74xA6+ofNny +NosEfQ6ZdeUKAwP/HnBiV5DQJ8e5se0aAx9yux87WElC0JWizKkbDKybOHQ2 +vIqEyrD8DKsiBqp41jdWPyBBY09WqmANA8/yevXz15KguCwl4eIgA5t/yqRL +PyOhKSgpftMQA99lGvkLNZFweDwh7tMwAye63Fy5mqn69MXGbJli4KclkX7v +WkiQK4+I/LucierCgoGeL6h6OQaH+ikzsd/b2Y2/i4R7nYEhxAYm0ozjYv+j +bGMWcLZzExMPXDduTX5NQtIm39MawMR6O+sk4W4SVq7wCBjdzcSL9zP3D/eS +QIad8L9ux0RBoynrtD4SzGaP++34l4k3lrcc2faWhMgPbqeKXZgYvXZuKOUd +CUvvH/I87M/EzpTzu4UHSLipetBD7DQTp9/91S2ivCXX8WRDKBMjS3i3GQyS +EBK/351+iYmMn701jh9I+OVq59afwcTCT1xmoZ9ISOuzORKbzcS+jSHG/3wm +QXu39WH9fCaanK84EkLZT9/SJf02Ex1pp6R8hkiYEDFzsnvCRP0LYpbaX0no +dqf/d+wZE3HP1L8cynVPf0FIGxNPenKEpL+RkBDEWVf4mokpHUf8xykHdJ6L +r+ljYs32l0p2wyQ4qe5f/G+AiR12fVFVlNU/rHg/P8zEYe6snT4jJEjqf7YQ +HGeiUXD9nVbKS648fESfZmKC3t4mue8ktJuezDRfZOLr4juLdZQrbhoLOi0l +sKzrM2PFDxIy/8iePcVHYDS6zltTPlnWfuD6agIv0VWqeyjbCRQ+L5Mk0Lnk +S6HEKAkGrqHspzIEct/sMLOizKrdc6uXTuBbf052FOWVazbIjMkT2L5JqeQh +5SlvvlhuFQJf+gl4jVJ+2zb4W0KDwAxXgRHpMaq+oUlvUZ9AteZ9PCcop/Qe +22FrSCDDheAkUD690ajmqDGBcXNL+coou8RJK581J3AgpIr2grL518lrSZYE +6oQvTn+hrLGlTaDAlkCaePrFv5SlMnKDq/cRqDiwvVN4nASumdMj7Y4Epok8 +f0+jPLzL9t9PLgSKnPhapEr5VZFK69xRArX0D2hqU37AvVxvpQeBe/eOnjag +nHOgv5h2ivp9JccIQ8pRlRVSWoEEamb5WP/fnsLxl8zOEtirPT7Iprzn+JFf +DucILP6dprmZMjbCMZ9IAteHaJmqUFZYJ9kbEUvdf380Q46yUOC4aUYSgZvq +nepXUZ571XS/9CqBZx1PK/6mzjOgnK3YmEGgjUe+3WfKTRcD03qyCXy3ucC8 +lXLpwG6+0XwC6REmfCWUU3WVArlIAsvvWCbEUg5N4fomXkagVUbM4FHKR0Z7 +96yvIDC5oPHPFsoW2+80QTWBV+qffpakrJUTrW1TR2C867/pI1T9ltvpS55p +IXCuzMM9gvLobdHIxHYCvb5ERltSfs33Yzavk0CTKrcgccr5D6+/edFP9cfi +3ZZUqp/iJPxMPn6k+kO5VsWWsp+XReXsVwI7nFqdBSlvIxavyE0S+HROaYc/ +1a+fYpzsvHlYmPPvCJNB9ffJYWW6+goWbqv5FdpGzcOsyfyPH0IstC/3kPWh +zM+ddOGoFAtz3+rLVVHzpB5Yf9dJhYUhE/usaNT8PXgdHyqrwUJZsei2u19I +MNq4f8dbLRYmFsfHbqNsNzb10R5ZKNrQOeRAzfMZV9bqXdYs9H6WxudF5cHy ++p/9K/aw0O3HveejH6n5lastbtnPwgJnlf6jH/+fj/ZbjA+zsP7u3JA9lSct +u6O82IEstIrI5Kym8kfc4Hv7+hssjJ4xusFP5VnWtapr326ycPtc3JkDVN4p +zp8/UlDIQqNlUXdu9VB5f1dmkV7Owvd5xxWNqXx0VtqlKtXIwmArhd32VJ6W +ipfH8I6w0PhMjOYClb+6p87ueTrGwojn3z4yKNe/NGOen2LhQuvNWdPnVH1i +PlYv/mHhFI3YEddKwm8usZEZIXk8+lfj0SyV/6Zj/qafteRRvdfgpEUdCWs3 +yF7k1ZfHbmstaW1qX4x6NzxZbyiPbCuzRtlH1LzOCOl7m8tjfGmh6MdqEvr/ +FKkuOsrjE4Uz1SbUPvJe8Xb1mih5tF42uDT8FglbLcIt9ePkUbGlf06PJEEi +QSHWMVkeA3aWzP8sJqFmte/y/OvymJj7iNhTSN23tOC8Rrk80rSyjBZzqP2q +iP07+uTxcVqa/+OrJLgfH5LyHJDHhXGxsh1XSIBbMfbJn+Wx1P0cTxe1Pz+p +9/zXMyaPrSkmq94lkqCq7V1/eKkCzhXRC1qo/VtvnFsYqqKA3H2d/WtDSPju +zOtzN0QB1zayK3OdqfNmbn1Ye14BtzTeWNZ/kISxnlCe1igFdElq4og6kfBz +1/y1wWQFHNgVwB1EvSdm9YYbBAsV8Cd//m+mLZU3om3iR/9TQI2kkfnf20hY +0xD/QIamiDHn3HbWECT1vpfginiiiEYzD2+Xv+PAt0MmhXrPFHG4qvy8Tx8H +YrL9LcZbFVHH87GRRg8HOmS70/d2KWISL3muiHpvOa1J01T+qoj8brqMkFYO +BApKu75cqYSP7UfynlVxgJyTbZLeq4S/rIO+dCRyQOQ5K650TAkH7Ua2CRhw +4O+Yel7LlBIerNX1EtHjwLCIXs2neSXcv0zFXUKbA0/27BqWXLoez53J6JLS +4IDPJ3/jMMn1mHJl3VUeFgc6F5r+7jZcj7+5JroDV3LgqtJxj8mk9aiYdSm0 +ubcY1kbettTSUsZ+tuVye49iSF2vI7T6iAqWCGhnticVQYuU4abJRFVU4T9h +mEG9/3XXPklQe62GX7U3vH0eWwCC3DmnDoarY+v1a35OQfkgG7ZOfy9rAwY3 +834PMsoDPmJ/hdWzDRiX4HKjjS8XVNlrbvsf0EAIGhJaPZgD3v0i9WZLNHE6 +vV54Q2Y2jE3G2JqmamLzFy6JbO8sMFF7mm6qshEDTUKDtXMy4dGk3sLsi41o +9reFZ0IvA04qa/S+dN2El011VbtWpQN71KVzL58Wsp7hY/XWq7CNKblzZY4W +rmi72Xut4TIohF4KeLJ5M6pqda/YO5AMSq46tUTvZkw87L68eSwRXB+5nb/r +pY1X35szHfQToDar02VCTAd9O6fXhfHEwlTh4qxapQ4u3vdf9vNzFDgTHL70 +nboocOhWVKFGBEwoJWuVj+vi7m/7np4POw9VuQuD05F6iOOlL8w3hcO+rQzU +k9XHC9bi1zxZoSB9IuK+ap0+fpGIpk59GsT43ct22rNx1bmvHQVvAiDX6EzQ ++F42zohOO29uDgCNM3FGyfvZKHolqOD5gwCwGC/t6j7Ixmqao6FgZgBcfD09 +7+zORs0T4dHvXQJgLidkS1AYG4/H1rTXTfpDr15yRz6HjTsPz1d7ivuDm29u +hmkJG+dqK/k7eP1hpuSe6/dSNlb4tLXrLfiBCL17dkMFGws6DO/JDfiBOa/M +2od1bLTZtLNyc7Ef1HTmu3R0sdE9pGAoFfzATLBKxa+bjepePeUHNfyg26R5 +RrKPjfcOH3utTvjB1IORSIcBNvaOfJT+wO8HKtnqt74Ns5Gh0XA04bUv1PQa ++sX8YOPsxbMPopt9wUzUGtTG2fjsB491bI0vHI7wfXlqmo1qx2qsb+b4wlTd +xXSJOTY+N/unqvKyL4T/uur84Bcb+zq3738V6QtCG4uUD/yh/n/IDYPJYF/I +PPFgenGRjdevCh+Q8vCF/wE5r5EV "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05652050759779948}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5497,19 +10736,19 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05652050759779948}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5523,115 +10762,114 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV1nk4lO0XB/BeKlsJ2SIyyzOWbFGyjXOkCCVZq7dQKJWyZa8sLci+VEhC +9nkSKhRFoWzlLZSlRIuKsmRP5ff8/phrrs8/c819n3O+56Yd8rBy5VqyZAnX +P9SH+p7pb25gRucaBPacK83p0jLozJQMNOwOByGJM87wUxRQrP2QZHcSfBK/ +u1HoJxP8LIvfcHfngPsm4d2TExtBeFQiaf5NOQj8c7ykfWIrvK+x8Jh68wSy +Khekjk7YgDFz+N3Em1fgvUW898OYC8y/2Xx5/M0HyG7O+d757RTUGxXkvsyZ +hB02y1IXSi7A2vf3hw4p/wH/L/vSts/Eg6i7YzGPETfGz8V8KxtIgaQNxtUW +trz4zEwly2EhDXpS1esmhFZiYuPNNN7wTIjODWnnWiOMEmGVDMm4bJBI+RiV +fH01+t5Q1VPJvQkRNqYGr2bE8B3/dvbcsTzw0cl2bA6XxFyjiNuWRAFsHfsV +dPKjFPJNKwgIJBRC4PYUpcffpbB35rCx1uVCKMlW6V09I4X2ml3BDumFIGnj +pHOfVxqVS/905OUWwveqxlluVWmsPVSnLnS/EJLDE06lBUhjzSGZPdaDhfBB +jHWyYeVazHP54ZCoVgRh+rsPSmnLYNaftzb9T4pgu0Pmz81bZDDGrrIi71kR +CIaOnLPdIYMrcmz9j7YVQUb9hfwEJxn8lsQjOtRVBFVmD0aWR8lgjVfSvTtf +i2B8D8NvskcGbQ4knsxaWQwOvtOX2oJlsTzsUtwjm2LQLUm7e7Z2Hf4WWphc +3l0MW9+8+DPatA4DzrxuzOkrBoslS00cX61Dr4h8N733xeBsdbIHPq/DfSvo +NOehYjAOpoWELpPDVSGpB2KmisFz3cxNw/VymLlFlMdYiAMNR278qPeTQ/6R +MUu7bRww/a0jcjpYDoW9m81jtnPgRUKn1sZQOTzys0Sy1pwDPff5QnOj5LA6 +6JuCtBUHRgVOiVzIkEN21i7ilgMHJEu3bzZ+Iof5ap7Z2v4ccJ+bCG1aSUNe +g3eHRvM4oOt1WHxIhIYq13LlFwo5wDvcy+GWpGEHKG9cSnIgr6/+tQGdhhd5 +DQiBcg70P7qsfE+LhoMBn9y/P+TArgs63dmONKxJLaz73ckBDZEwteAyGrYe +85KwW0LCkujphtQKGhrq6xp+5yLhBfexfRXVNOQxsX9wdhkJx6etLkw00pA7 ++t61VH4ScruZfUd6afhHxIiRJUqC+I2mizbcdFzcu+HSX3kS5tcL9avY0rGm +3HbpgjkJM9elwjT30bE8f65J2IKEqVUEU8eRjoEzQXyEJQmjkzrHth6lo8NM +4iLakPCh2nlm3xk6qkc5tFjsJ6HFvFIwMo+OMeed1J4cJ+HZw8dlscV0HG3j +e591goQGtTab5Nt05J+4I3Tag4RHqwfTM+/TUUyHsyDvQ0J5H7/8ved0DHhb +smAbREL6cQf4ME3HjQIxXAKRJFx95/bhyy86iqv5Ly2PIiFll8+FH4uUD2rG +20aTEKcZ2TrHx8CS4GFMiiMhfKHMfpUsA/9c4aN/SKHuJ3qZp74xA6+ofNny +NosEfQ6ZdeUKAwP/HnBiV5DQJ8e5se0aAx9yux87WElC0JWizKkbDKybOHQ2 +vIqEyrD8DKsiBqp41jdWPyBBY09WqmANA8/yevXz15KguCwl4eIgA5t/yqRL +PyOhKSgpftMQA99lGvkLNZFweDwh7tMwAye63Fy5mqn69MXGbJli4KclkX7v +WkiQK4+I/LucierCgoGeL6h6OQaH+ikzsd/b2Y2/i4R7nYEhxAYm0ozjYv+j +bGMWcLZzExMPXDduTX5NQtIm39MawMR6O+sk4W4SVq7wCBjdzcSL9zP3D/eS +QIad8L9ux0RBoynrtD4SzGaP++34l4k3lrcc2faWhMgPbqeKXZgYvXZuKOUd +CUvvH/I87M/EzpTzu4UHSLipetBD7DQTp9/91S2ivCXX8WRDKBMjS3i3GQyS +EBK/351+iYmMn701jh9I+OVq59afwcTCT1xmoZ9ISOuzORKbzcS+jSHG/3wm +QXu39WH9fCaanK84EkLZT9/SJf02Ex1pp6R8hkiYEDFzsnvCRP0LYpbaX0no +dqf/d+wZE3HP1L8cynVPf0FIGxNPenKEpL+RkBDEWVf4mokpHUf8xykHdJ6L +r+ljYs32l0p2wyQ4qe5f/G+AiR12fVFVlNU/rHg/P8zEYe6snT4jJEjqf7YQ +HGeiUXD9nVbKS648fESfZmKC3t4mue8ktJuezDRfZOLr4juLdZQrbhoLOi0l +sKzrM2PFDxIy/8iePcVHYDS6zltTPlnWfuD6agIv0VWqeyjbCRQ+L5Mk0Lnk +S6HEKAkGrqHspzIEct/sMLOizKrdc6uXTuBbf052FOWVazbIjMkT2L5JqeQh +5SlvvlhuFQJf+gl4jVJ+2zb4W0KDwAxXgRHpMaq+oUlvUZ9AteZ9PCcop/Qe +22FrSCDDheAkUD690ajmqDGBcXNL+coou8RJK581J3AgpIr2grL518lrSZYE +6oQvTn+hrLGlTaDAlkCaePrFv5SlMnKDq/cRqDiwvVN4nASumdMj7Y4Epok8 +f0+jPLzL9t9PLgSKnPhapEr5VZFK69xRArX0D2hqU37AvVxvpQeBe/eOnjag +nHOgv5h2ivp9JccIQ8pRlRVSWoEEamb5WP/fnsLxl8zOEtirPT7Iprzn+JFf +DucILP6dprmZMjbCMZ9IAteHaJmqUFZYJ9kbEUvdf380Q46yUOC4aUYSgZvq +nepXUZ571XS/9CqBZx1PK/6mzjOgnK3YmEGgjUe+3WfKTRcD03qyCXy3ucC8 +lXLpwG6+0XwC6REmfCWUU3WVArlIAsvvWCbEUg5N4fomXkagVUbM4FHKR0Z7 +96yvIDC5oPHPFsoW2+80QTWBV+qffpakrJUTrW1TR2C867/pI1T9ltvpS55p +IXCuzMM9gvLobdHIxHYCvb5ERltSfs33Yzavk0CTKrcgccr5D6+/edFP9cfi +3ZZUqp/iJPxMPn6k+kO5VsWWsp+XReXsVwI7nFqdBSlvIxavyE0S+HROaYc/ +1a+fYpzsvHlYmPPvCJNB9ffJYWW6+goWbqv5FdpGzcOsyfyPH0IstC/3kPWh +zM+ddOGoFAtz3+rLVVHzpB5Yf9dJhYUhE/usaNT8PXgdHyqrwUJZsei2u19I +MNq4f8dbLRYmFsfHbqNsNzb10R5ZKNrQOeRAzfMZV9bqXdYs9H6WxudF5cHy ++p/9K/aw0O3HveejH6n5lastbtnPwgJnlf6jH/+fj/ZbjA+zsP7u3JA9lSct +u6O82IEstIrI5Kym8kfc4Hv7+hssjJ4xusFP5VnWtapr326ycPtc3JkDVN4p +zp8/UlDIQqNlUXdu9VB5f1dmkV7Owvd5xxWNqXx0VtqlKtXIwmArhd32VJ6W +ipfH8I6w0PhMjOYClb+6p87ueTrGwojn3z4yKNe/NGOen2LhQuvNWdPnVH1i +PlYv/mHhFI3YEddKwm8usZEZIXk8+lfj0SyV/6Zj/qafteRRvdfgpEUdCWs3 +yF7k1ZfHbmstaW1qX4x6NzxZbyiPbCuzRtlH1LzOCOl7m8tjfGmh6MdqEvr/ +FKkuOsrjE4Uz1SbUPvJe8Xb1mih5tF42uDT8FglbLcIt9ePkUbGlf06PJEEi +QSHWMVkeA3aWzP8sJqFmte/y/OvymJj7iNhTSN23tOC8Rrk80rSyjBZzqP2q +iP07+uTxcVqa/+OrJLgfH5LyHJDHhXGxsh1XSIBbMfbJn+Wx1P0cTxe1Pz+p +9/zXMyaPrSkmq94lkqCq7V1/eKkCzhXRC1qo/VtvnFsYqqKA3H2d/WtDSPju +zOtzN0QB1zayK3OdqfNmbn1Ye14BtzTeWNZ/kISxnlCe1igFdElq4og6kfBz +1/y1wWQFHNgVwB1EvSdm9YYbBAsV8Cd//m+mLZU3om3iR/9TQI2kkfnf20hY +0xD/QIamiDHn3HbWECT1vpfginiiiEYzD2+Xv+PAt0MmhXrPFHG4qvy8Tx8H +YrL9LcZbFVHH87GRRg8HOmS70/d2KWISL3muiHpvOa1J01T+qoj8brqMkFYO +BApKu75cqYSP7UfynlVxgJyTbZLeq4S/rIO+dCRyQOQ5K650TAkH7Ua2CRhw +4O+Yel7LlBIerNX1EtHjwLCIXs2neSXcv0zFXUKbA0/27BqWXLoez53J6JLS +4IDPJ3/jMMn1mHJl3VUeFgc6F5r+7jZcj7+5JroDV3LgqtJxj8mk9aiYdSm0 +ubcY1kbettTSUsZ+tuVye49iSF2vI7T6iAqWCGhnticVQYuU4abJRFVU4T9h +mEG9/3XXPklQe62GX7U3vH0eWwCC3DmnDoarY+v1a35OQfkgG7ZOfy9rAwY3 +834PMsoDPmJ/hdWzDRiX4HKjjS8XVNlrbvsf0EAIGhJaPZgD3v0i9WZLNHE6 +vV54Q2Y2jE3G2JqmamLzFy6JbO8sMFF7mm6qshEDTUKDtXMy4dGk3sLsi41o +9reFZ0IvA04qa/S+dN2El011VbtWpQN71KVzL58Wsp7hY/XWq7CNKblzZY4W +rmi72Xut4TIohF4KeLJ5M6pqda/YO5AMSq46tUTvZkw87L68eSwRXB+5nb/r +pY1X35szHfQToDar02VCTAd9O6fXhfHEwlTh4qxapQ4u3vdf9vNzFDgTHL70 +nboocOhWVKFGBEwoJWuVj+vi7m/7np4POw9VuQuD05F6iOOlL8w3hcO+rQzU +k9XHC9bi1zxZoSB9IuK+ap0+fpGIpk59GsT43ct22rNx1bmvHQVvAiDX6EzQ ++F42zohOO29uDgCNM3FGyfvZKHolqOD5gwCwGC/t6j7Ixmqao6FgZgBcfD09 +7+zORs0T4dHvXQJgLidkS1AYG4/H1rTXTfpDr15yRz6HjTsPz1d7ivuDm29u +hmkJG+dqK/k7eP1hpuSe6/dSNlb4tLXrLfiBCL17dkMFGws6DO/JDfiBOa/M +2od1bLTZtLNyc7Ef1HTmu3R0sdE9pGAoFfzATLBKxa+bjepePeUHNfyg26R5 +RrKPjfcOH3utTvjB1IORSIcBNvaOfJT+wO8HKtnqt74Ns5Gh0XA04bUv1PQa ++sX8YOPsxbMPopt9wUzUGtTG2fjsB491bI0vHI7wfXlqmo1qx2qsb+b4wlTd +xXSJOTY+N/unqvKyL4T/uur84Bcb+zq3738V6QtCG4uUD/yh/n/IDYPJYF/I +PPFgenGRjdevCh+Q8vCF/wE5r5EV "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.05652050759779948}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5642,6 +10880,7 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5669,7 +10908,8 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05652050759779948}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5677,17 +10917,565 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913414579436264`*^9}, + CellChangeTimes->{3.9913414579436264`*^9, 3.993918921054941*^9}, CellLabel-> - "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] + "Out[119]=",ExpressionUUID->"22567af4-0fce-4c76-999c-3609a82ed1ab"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ -8e8787fb2589"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4lO0XB/BeKlsJ2SIyyzOWbFGyjXOkCCVZq7dQKJWyZa8sLci+VEhC +9nkSKhRFoWzlLZSlRIuKsmRP5ff8/phrrs8/c819n3O+56Yd8rBy5VqyZAnX +P9SH+p7pb25gRucaBPacK83p0jLozJQMNOwOByGJM87wUxRQrP2QZHcSfBK/ +u1HoJxP8LIvfcHfngPsm4d2TExtBeFQiaf5NOQj8c7ykfWIrvK+x8Jh68wSy +Khekjk7YgDFz+N3Em1fgvUW898OYC8y/2Xx5/M0HyG7O+d757RTUGxXkvsyZ +hB02y1IXSi7A2vf3hw4p/wH/L/vSts/Eg6i7YzGPETfGz8V8KxtIgaQNxtUW +trz4zEwly2EhDXpS1esmhFZiYuPNNN7wTIjODWnnWiOMEmGVDMm4bJBI+RiV +fH01+t5Q1VPJvQkRNqYGr2bE8B3/dvbcsTzw0cl2bA6XxFyjiNuWRAFsHfsV +dPKjFPJNKwgIJBRC4PYUpcffpbB35rCx1uVCKMlW6V09I4X2ml3BDumFIGnj +pHOfVxqVS/905OUWwveqxlluVWmsPVSnLnS/EJLDE06lBUhjzSGZPdaDhfBB +jHWyYeVazHP54ZCoVgRh+rsPSmnLYNaftzb9T4pgu0Pmz81bZDDGrrIi71kR +CIaOnLPdIYMrcmz9j7YVQUb9hfwEJxn8lsQjOtRVBFVmD0aWR8lgjVfSvTtf +i2B8D8NvskcGbQ4knsxaWQwOvtOX2oJlsTzsUtwjm2LQLUm7e7Z2Hf4WWphc +3l0MW9+8+DPatA4DzrxuzOkrBoslS00cX61Dr4h8N733xeBsdbIHPq/DfSvo +NOehYjAOpoWELpPDVSGpB2KmisFz3cxNw/VymLlFlMdYiAMNR278qPeTQ/6R +MUu7bRww/a0jcjpYDoW9m81jtnPgRUKn1sZQOTzys0Sy1pwDPff5QnOj5LA6 +6JuCtBUHRgVOiVzIkEN21i7ilgMHJEu3bzZ+Iof5ap7Z2v4ccJ+bCG1aSUNe +g3eHRvM4oOt1WHxIhIYq13LlFwo5wDvcy+GWpGEHKG9cSnIgr6/+tQGdhhd5 +DQiBcg70P7qsfE+LhoMBn9y/P+TArgs63dmONKxJLaz73ckBDZEwteAyGrYe +85KwW0LCkujphtQKGhrq6xp+5yLhBfexfRXVNOQxsX9wdhkJx6etLkw00pA7 ++t61VH4ScruZfUd6afhHxIiRJUqC+I2mizbcdFzcu+HSX3kS5tcL9avY0rGm +3HbpgjkJM9elwjT30bE8f65J2IKEqVUEU8eRjoEzQXyEJQmjkzrHth6lo8NM +4iLakPCh2nlm3xk6qkc5tFjsJ6HFvFIwMo+OMeed1J4cJ+HZw8dlscV0HG3j +e591goQGtTab5Nt05J+4I3Tag4RHqwfTM+/TUUyHsyDvQ0J5H7/8ved0DHhb +smAbREL6cQf4ME3HjQIxXAKRJFx95/bhyy86iqv5Ly2PIiFll8+FH4uUD2rG +20aTEKcZ2TrHx8CS4GFMiiMhfKHMfpUsA/9c4aN/SKHuJ3qZp74xA6+ofNny +NosEfQ6ZdeUKAwP/HnBiV5DQJ8e5se0aAx9yux87WElC0JWizKkbDKybOHQ2 +vIqEyrD8DKsiBqp41jdWPyBBY09WqmANA8/yevXz15KguCwl4eIgA5t/yqRL +PyOhKSgpftMQA99lGvkLNZFweDwh7tMwAye63Fy5mqn69MXGbJli4KclkX7v +WkiQK4+I/LucierCgoGeL6h6OQaH+ikzsd/b2Y2/i4R7nYEhxAYm0ozjYv+j +bGMWcLZzExMPXDduTX5NQtIm39MawMR6O+sk4W4SVq7wCBjdzcSL9zP3D/eS +QIad8L9ux0RBoynrtD4SzGaP++34l4k3lrcc2faWhMgPbqeKXZgYvXZuKOUd +CUvvH/I87M/EzpTzu4UHSLipetBD7DQTp9/91S2ivCXX8WRDKBMjS3i3GQyS +EBK/351+iYmMn701jh9I+OVq59afwcTCT1xmoZ9ISOuzORKbzcS+jSHG/3wm +QXu39WH9fCaanK84EkLZT9/SJf02Ex1pp6R8hkiYEDFzsnvCRP0LYpbaX0no +dqf/d+wZE3HP1L8cynVPf0FIGxNPenKEpL+RkBDEWVf4mokpHUf8xykHdJ6L +r+ljYs32l0p2wyQ4qe5f/G+AiR12fVFVlNU/rHg/P8zEYe6snT4jJEjqf7YQ +HGeiUXD9nVbKS648fESfZmKC3t4mue8ktJuezDRfZOLr4juLdZQrbhoLOi0l +sKzrM2PFDxIy/8iePcVHYDS6zltTPlnWfuD6agIv0VWqeyjbCRQ+L5Mk0Lnk +S6HEKAkGrqHspzIEct/sMLOizKrdc6uXTuBbf052FOWVazbIjMkT2L5JqeQh +5SlvvlhuFQJf+gl4jVJ+2zb4W0KDwAxXgRHpMaq+oUlvUZ9AteZ9PCcop/Qe +22FrSCDDheAkUD690ajmqDGBcXNL+coou8RJK581J3AgpIr2grL518lrSZYE +6oQvTn+hrLGlTaDAlkCaePrFv5SlMnKDq/cRqDiwvVN4nASumdMj7Y4Epok8 +f0+jPLzL9t9PLgSKnPhapEr5VZFK69xRArX0D2hqU37AvVxvpQeBe/eOnjag +nHOgv5h2ivp9JccIQ8pRlRVSWoEEamb5WP/fnsLxl8zOEtirPT7Iprzn+JFf +DucILP6dprmZMjbCMZ9IAteHaJmqUFZYJ9kbEUvdf380Q46yUOC4aUYSgZvq +nepXUZ571XS/9CqBZx1PK/6mzjOgnK3YmEGgjUe+3WfKTRcD03qyCXy3ucC8 +lXLpwG6+0XwC6REmfCWUU3WVArlIAsvvWCbEUg5N4fomXkagVUbM4FHKR0Z7 +96yvIDC5oPHPFsoW2+80QTWBV+qffpakrJUTrW1TR2C867/pI1T9ltvpS55p +IXCuzMM9gvLobdHIxHYCvb5ERltSfs33Yzavk0CTKrcgccr5D6+/edFP9cfi +3ZZUqp/iJPxMPn6k+kO5VsWWsp+XReXsVwI7nFqdBSlvIxavyE0S+HROaYc/ +1a+fYpzsvHlYmPPvCJNB9ffJYWW6+goWbqv5FdpGzcOsyfyPH0IstC/3kPWh +zM+ddOGoFAtz3+rLVVHzpB5Yf9dJhYUhE/usaNT8PXgdHyqrwUJZsei2u19I +MNq4f8dbLRYmFsfHbqNsNzb10R5ZKNrQOeRAzfMZV9bqXdYs9H6WxudF5cHy ++p/9K/aw0O3HveejH6n5lastbtnPwgJnlf6jH/+fj/ZbjA+zsP7u3JA9lSct +u6O82IEstIrI5Kym8kfc4Hv7+hssjJ4xusFP5VnWtapr326ycPtc3JkDVN4p +zp8/UlDIQqNlUXdu9VB5f1dmkV7Owvd5xxWNqXx0VtqlKtXIwmArhd32VJ6W +ipfH8I6w0PhMjOYClb+6p87ueTrGwojn3z4yKNe/NGOen2LhQuvNWdPnVH1i +PlYv/mHhFI3YEddKwm8usZEZIXk8+lfj0SyV/6Zj/qafteRRvdfgpEUdCWs3 +yF7k1ZfHbmstaW1qX4x6NzxZbyiPbCuzRtlH1LzOCOl7m8tjfGmh6MdqEvr/ +FKkuOsrjE4Uz1SbUPvJe8Xb1mih5tF42uDT8FglbLcIt9ePkUbGlf06PJEEi +QSHWMVkeA3aWzP8sJqFmte/y/OvymJj7iNhTSN23tOC8Rrk80rSyjBZzqP2q +iP07+uTxcVqa/+OrJLgfH5LyHJDHhXGxsh1XSIBbMfbJn+Wx1P0cTxe1Pz+p +9/zXMyaPrSkmq94lkqCq7V1/eKkCzhXRC1qo/VtvnFsYqqKA3H2d/WtDSPju +zOtzN0QB1zayK3OdqfNmbn1Ye14BtzTeWNZ/kISxnlCe1igFdElq4og6kfBz +1/y1wWQFHNgVwB1EvSdm9YYbBAsV8Cd//m+mLZU3om3iR/9TQI2kkfnf20hY +0xD/QIamiDHn3HbWECT1vpfginiiiEYzD2+Xv+PAt0MmhXrPFHG4qvy8Tx8H +YrL9LcZbFVHH87GRRg8HOmS70/d2KWISL3muiHpvOa1J01T+qoj8brqMkFYO +BApKu75cqYSP7UfynlVxgJyTbZLeq4S/rIO+dCRyQOQ5K650TAkH7Ua2CRhw +4O+Yel7LlBIerNX1EtHjwLCIXs2neSXcv0zFXUKbA0/27BqWXLoez53J6JLS +4IDPJ3/jMMn1mHJl3VUeFgc6F5r+7jZcj7+5JroDV3LgqtJxj8mk9aiYdSm0 +ubcY1kbettTSUsZ+tuVye49iSF2vI7T6iAqWCGhnticVQYuU4abJRFVU4T9h +mEG9/3XXPklQe62GX7U3vH0eWwCC3DmnDoarY+v1a35OQfkgG7ZOfy9rAwY3 +834PMsoDPmJ/hdWzDRiX4HKjjS8XVNlrbvsf0EAIGhJaPZgD3v0i9WZLNHE6 +vV54Q2Y2jE3G2JqmamLzFy6JbO8sMFF7mm6qshEDTUKDtXMy4dGk3sLsi41o +9reFZ0IvA04qa/S+dN2El011VbtWpQN71KVzL58Wsp7hY/XWq7CNKblzZY4W +rmi72Xut4TIohF4KeLJ5M6pqda/YO5AMSq46tUTvZkw87L68eSwRXB+5nb/r +pY1X35szHfQToDar02VCTAd9O6fXhfHEwlTh4qxapQ4u3vdf9vNzFDgTHL70 +nboocOhWVKFGBEwoJWuVj+vi7m/7np4POw9VuQuD05F6iOOlL8w3hcO+rQzU +k9XHC9bi1zxZoSB9IuK+ap0+fpGIpk59GsT43ct22rNx1bmvHQVvAiDX6EzQ ++F42zohOO29uDgCNM3FGyfvZKHolqOD5gwCwGC/t6j7Ixmqao6FgZgBcfD09 +7+zORs0T4dHvXQJgLidkS1AYG4/H1rTXTfpDr15yRz6HjTsPz1d7ivuDm29u +hmkJG+dqK/k7eP1hpuSe6/dSNlb4tLXrLfiBCL17dkMFGws6DO/JDfiBOa/M +2od1bLTZtLNyc7Ef1HTmu3R0sdE9pGAoFfzATLBKxa+bjepePeUHNfyg26R5 +RrKPjfcOH3utTvjB1IORSIcBNvaOfJT+wO8HKtnqt74Ns5Gh0XA04bUv1PQa ++sX8YOPsxbMPopt9wUzUGtTG2fjsB491bI0vHI7wfXlqmo1qx2qsb+b4wlTd +xXSJOTY+N/unqvKyL4T/uur84Bcb+zq3738V6QtCG4uUD/yh/n/IDYPJYF/I +PPFgenGRjdevCh+Q8vCF/wE5r5EV + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lO0XB/BeKlsJ2SIyyzOWbFGyjXOkCCVZq7dQKJWyZa8sLci+VEhC +9nkSKhRFoWzlLZSlRIuKsmRP5ff8/phrrs8/c819n3O+56Yd8rBy5VqyZAnX +P9SH+p7pb25gRucaBPacK83p0jLozJQMNOwOByGJM87wUxRQrP2QZHcSfBK/ +u1HoJxP8LIvfcHfngPsm4d2TExtBeFQiaf5NOQj8c7ykfWIrvK+x8Jh68wSy +Khekjk7YgDFz+N3Em1fgvUW898OYC8y/2Xx5/M0HyG7O+d757RTUGxXkvsyZ +hB02y1IXSi7A2vf3hw4p/wH/L/vSts/Eg6i7YzGPETfGz8V8KxtIgaQNxtUW +trz4zEwly2EhDXpS1esmhFZiYuPNNN7wTIjODWnnWiOMEmGVDMm4bJBI+RiV +fH01+t5Q1VPJvQkRNqYGr2bE8B3/dvbcsTzw0cl2bA6XxFyjiNuWRAFsHfsV +dPKjFPJNKwgIJBRC4PYUpcffpbB35rCx1uVCKMlW6V09I4X2ml3BDumFIGnj +pHOfVxqVS/905OUWwveqxlluVWmsPVSnLnS/EJLDE06lBUhjzSGZPdaDhfBB +jHWyYeVazHP54ZCoVgRh+rsPSmnLYNaftzb9T4pgu0Pmz81bZDDGrrIi71kR +CIaOnLPdIYMrcmz9j7YVQUb9hfwEJxn8lsQjOtRVBFVmD0aWR8lgjVfSvTtf +i2B8D8NvskcGbQ4knsxaWQwOvtOX2oJlsTzsUtwjm2LQLUm7e7Z2Hf4WWphc +3l0MW9+8+DPatA4DzrxuzOkrBoslS00cX61Dr4h8N733xeBsdbIHPq/DfSvo +NOehYjAOpoWELpPDVSGpB2KmisFz3cxNw/VymLlFlMdYiAMNR278qPeTQ/6R +MUu7bRww/a0jcjpYDoW9m81jtnPgRUKn1sZQOTzys0Sy1pwDPff5QnOj5LA6 +6JuCtBUHRgVOiVzIkEN21i7ilgMHJEu3bzZ+Iof5ap7Z2v4ccJ+bCG1aSUNe +g3eHRvM4oOt1WHxIhIYq13LlFwo5wDvcy+GWpGEHKG9cSnIgr6/+tQGdhhd5 +DQiBcg70P7qsfE+LhoMBn9y/P+TArgs63dmONKxJLaz73ckBDZEwteAyGrYe +85KwW0LCkujphtQKGhrq6xp+5yLhBfexfRXVNOQxsX9wdhkJx6etLkw00pA7 ++t61VH4ScruZfUd6afhHxIiRJUqC+I2mizbcdFzcu+HSX3kS5tcL9avY0rGm +3HbpgjkJM9elwjT30bE8f65J2IKEqVUEU8eRjoEzQXyEJQmjkzrHth6lo8NM +4iLakPCh2nlm3xk6qkc5tFjsJ6HFvFIwMo+OMeed1J4cJ+HZw8dlscV0HG3j +e591goQGtTab5Nt05J+4I3Tag4RHqwfTM+/TUUyHsyDvQ0J5H7/8ved0DHhb +smAbREL6cQf4ME3HjQIxXAKRJFx95/bhyy86iqv5Ly2PIiFll8+FH4uUD2rG +20aTEKcZ2TrHx8CS4GFMiiMhfKHMfpUsA/9c4aN/SKHuJ3qZp74xA6+ofNny +NosEfQ6ZdeUKAwP/HnBiV5DQJ8e5se0aAx9yux87WElC0JWizKkbDKybOHQ2 +vIqEyrD8DKsiBqp41jdWPyBBY09WqmANA8/yevXz15KguCwl4eIgA5t/yqRL +PyOhKSgpftMQA99lGvkLNZFweDwh7tMwAye63Fy5mqn69MXGbJli4KclkX7v +WkiQK4+I/LucierCgoGeL6h6OQaH+ikzsd/b2Y2/i4R7nYEhxAYm0ozjYv+j +bGMWcLZzExMPXDduTX5NQtIm39MawMR6O+sk4W4SVq7wCBjdzcSL9zP3D/eS +QIad8L9ux0RBoynrtD4SzGaP++34l4k3lrcc2faWhMgPbqeKXZgYvXZuKOUd +CUvvH/I87M/EzpTzu4UHSLipetBD7DQTp9/91S2ivCXX8WRDKBMjS3i3GQyS +EBK/351+iYmMn701jh9I+OVq59afwcTCT1xmoZ9ISOuzORKbzcS+jSHG/3wm +QXu39WH9fCaanK84EkLZT9/SJf02Ex1pp6R8hkiYEDFzsnvCRP0LYpbaX0no +dqf/d+wZE3HP1L8cynVPf0FIGxNPenKEpL+RkBDEWVf4mokpHUf8xykHdJ6L +r+ljYs32l0p2wyQ4qe5f/G+AiR12fVFVlNU/rHg/P8zEYe6snT4jJEjqf7YQ +HGeiUXD9nVbKS648fESfZmKC3t4mue8ktJuezDRfZOLr4juLdZQrbhoLOi0l +sKzrM2PFDxIy/8iePcVHYDS6zltTPlnWfuD6agIv0VWqeyjbCRQ+L5Mk0Lnk +S6HEKAkGrqHspzIEct/sMLOizKrdc6uXTuBbf052FOWVazbIjMkT2L5JqeQh +5SlvvlhuFQJf+gl4jVJ+2zb4W0KDwAxXgRHpMaq+oUlvUZ9AteZ9PCcop/Qe +22FrSCDDheAkUD690ajmqDGBcXNL+coou8RJK581J3AgpIr2grL518lrSZYE +6oQvTn+hrLGlTaDAlkCaePrFv5SlMnKDq/cRqDiwvVN4nASumdMj7Y4Epok8 +f0+jPLzL9t9PLgSKnPhapEr5VZFK69xRArX0D2hqU37AvVxvpQeBe/eOnjag +nHOgv5h2ivp9JccIQ8pRlRVSWoEEamb5WP/fnsLxl8zOEtirPT7Iprzn+JFf +DucILP6dprmZMjbCMZ9IAteHaJmqUFZYJ9kbEUvdf380Q46yUOC4aUYSgZvq +nepXUZ571XS/9CqBZx1PK/6mzjOgnK3YmEGgjUe+3WfKTRcD03qyCXy3ucC8 +lXLpwG6+0XwC6REmfCWUU3WVArlIAsvvWCbEUg5N4fomXkagVUbM4FHKR0Z7 +96yvIDC5oPHPFsoW2+80QTWBV+qffpakrJUTrW1TR2C867/pI1T9ltvpS55p +IXCuzMM9gvLobdHIxHYCvb5ERltSfs33Yzavk0CTKrcgccr5D6+/edFP9cfi +3ZZUqp/iJPxMPn6k+kO5VsWWsp+XReXsVwI7nFqdBSlvIxavyE0S+HROaYc/ +1a+fYpzsvHlYmPPvCJNB9ffJYWW6+goWbqv5FdpGzcOsyfyPH0IstC/3kPWh +zM+ddOGoFAtz3+rLVVHzpB5Yf9dJhYUhE/usaNT8PXgdHyqrwUJZsei2u19I +MNq4f8dbLRYmFsfHbqNsNzb10R5ZKNrQOeRAzfMZV9bqXdYs9H6WxudF5cHy ++p/9K/aw0O3HveejH6n5lastbtnPwgJnlf6jH/+fj/ZbjA+zsP7u3JA9lSct +u6O82IEstIrI5Kym8kfc4Hv7+hssjJ4xusFP5VnWtapr326ycPtc3JkDVN4p +zp8/UlDIQqNlUXdu9VB5f1dmkV7Owvd5xxWNqXx0VtqlKtXIwmArhd32VJ6W +ipfH8I6w0PhMjOYClb+6p87ueTrGwojn3z4yKNe/NGOen2LhQuvNWdPnVH1i +PlYv/mHhFI3YEddKwm8usZEZIXk8+lfj0SyV/6Zj/qafteRRvdfgpEUdCWs3 +yF7k1ZfHbmstaW1qX4x6NzxZbyiPbCuzRtlH1LzOCOl7m8tjfGmh6MdqEvr/ +FKkuOsrjE4Uz1SbUPvJe8Xb1mih5tF42uDT8FglbLcIt9ePkUbGlf06PJEEi +QSHWMVkeA3aWzP8sJqFmte/y/OvymJj7iNhTSN23tOC8Rrk80rSyjBZzqP2q +iP07+uTxcVqa/+OrJLgfH5LyHJDHhXGxsh1XSIBbMfbJn+Wx1P0cTxe1Pz+p +9/zXMyaPrSkmq94lkqCq7V1/eKkCzhXRC1qo/VtvnFsYqqKA3H2d/WtDSPju +zOtzN0QB1zayK3OdqfNmbn1Ye14BtzTeWNZ/kISxnlCe1igFdElq4og6kfBz +1/y1wWQFHNgVwB1EvSdm9YYbBAsV8Cd//m+mLZU3om3iR/9TQI2kkfnf20hY +0xD/QIamiDHn3HbWECT1vpfginiiiEYzD2+Xv+PAt0MmhXrPFHG4qvy8Tx8H +YrL9LcZbFVHH87GRRg8HOmS70/d2KWISL3muiHpvOa1J01T+qoj8brqMkFYO +BApKu75cqYSP7UfynlVxgJyTbZLeq4S/rIO+dCRyQOQ5K650TAkH7Ua2CRhw +4O+Yel7LlBIerNX1EtHjwLCIXs2neSXcv0zFXUKbA0/27BqWXLoez53J6JLS +4IDPJ3/jMMn1mHJl3VUeFgc6F5r+7jZcj7+5JroDV3LgqtJxj8mk9aiYdSm0 +ubcY1kbettTSUsZ+tuVye49iSF2vI7T6iAqWCGhnticVQYuU4abJRFVU4T9h +mEG9/3XXPklQe62GX7U3vH0eWwCC3DmnDoarY+v1a35OQfkgG7ZOfy9rAwY3 +834PMsoDPmJ/hdWzDRiX4HKjjS8XVNlrbvsf0EAIGhJaPZgD3v0i9WZLNHE6 +vV54Q2Y2jE3G2JqmamLzFy6JbO8sMFF7mm6qshEDTUKDtXMy4dGk3sLsi41o +9reFZ0IvA04qa/S+dN2El011VbtWpQN71KVzL58Wsp7hY/XWq7CNKblzZY4W +rmi72Xut4TIohF4KeLJ5M6pqda/YO5AMSq46tUTvZkw87L68eSwRXB+5nb/r +pY1X35szHfQToDar02VCTAd9O6fXhfHEwlTh4qxapQ4u3vdf9vNzFDgTHL70 +nboocOhWVKFGBEwoJWuVj+vi7m/7np4POw9VuQuD05F6iOOlL8w3hcO+rQzU +k9XHC9bi1zxZoSB9IuK+ap0+fpGIpk59GsT43ct22rNx1bmvHQVvAiDX6EzQ ++F42zohOO29uDgCNM3FGyfvZKHolqOD5gwCwGC/t6j7Ixmqao6FgZgBcfD09 +7+zORs0T4dHvXQJgLidkS1AYG4/H1rTXTfpDr15yRz6HjTsPz1d7ivuDm29u +hmkJG+dqK/k7eP1hpuSe6/dSNlb4tLXrLfiBCL17dkMFGws6DO/JDfiBOa/M +2od1bLTZtLNyc7Ef1HTmu3R0sdE9pGAoFfzATLBKxa+bjepePeUHNfyg26R5 +RrKPjfcOH3utTvjB1IORSIcBNvaOfJT+wO8HKtnqt74Ns5Gh0XA04bUv1PQa ++sX8YOPsxbMPopt9wUzUGtTG2fjsB491bI0vHI7wfXlqmo1qx2qsb+b4wlTd +xXSJOTY+N/unqvKyL4T/uur84Bcb+zq3738V6QtCG4uUD/yh/n/IDYPJYF/I +PPFgenGRjdevCh+Q8vCF/wE5r5EV + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05652050759779948}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.05652050759779948}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4lO0XB/BeKlsJ2SIyyzOWbFGyjXOkCCVZq7dQKJWyZa8sLci+VEhC +9nkSKhRFoWzlLZSlRIuKsmRP5ff8/phrrs8/c819n3O+56Yd8rBy5VqyZAnX +P9SH+p7pb25gRucaBPacK83p0jLozJQMNOwOByGJM87wUxRQrP2QZHcSfBK/ +u1HoJxP8LIvfcHfngPsm4d2TExtBeFQiaf5NOQj8c7ykfWIrvK+x8Jh68wSy +Khekjk7YgDFz+N3Em1fgvUW898OYC8y/2Xx5/M0HyG7O+d757RTUGxXkvsyZ +hB02y1IXSi7A2vf3hw4p/wH/L/vSts/Eg6i7YzGPETfGz8V8KxtIgaQNxtUW +trz4zEwly2EhDXpS1esmhFZiYuPNNN7wTIjODWnnWiOMEmGVDMm4bJBI+RiV +fH01+t5Q1VPJvQkRNqYGr2bE8B3/dvbcsTzw0cl2bA6XxFyjiNuWRAFsHfsV +dPKjFPJNKwgIJBRC4PYUpcffpbB35rCx1uVCKMlW6V09I4X2ml3BDumFIGnj +pHOfVxqVS/905OUWwveqxlluVWmsPVSnLnS/EJLDE06lBUhjzSGZPdaDhfBB +jHWyYeVazHP54ZCoVgRh+rsPSmnLYNaftzb9T4pgu0Pmz81bZDDGrrIi71kR +CIaOnLPdIYMrcmz9j7YVQUb9hfwEJxn8lsQjOtRVBFVmD0aWR8lgjVfSvTtf +i2B8D8NvskcGbQ4knsxaWQwOvtOX2oJlsTzsUtwjm2LQLUm7e7Z2Hf4WWphc +3l0MW9+8+DPatA4DzrxuzOkrBoslS00cX61Dr4h8N733xeBsdbIHPq/DfSvo +NOehYjAOpoWELpPDVSGpB2KmisFz3cxNw/VymLlFlMdYiAMNR278qPeTQ/6R +MUu7bRww/a0jcjpYDoW9m81jtnPgRUKn1sZQOTzys0Sy1pwDPff5QnOj5LA6 +6JuCtBUHRgVOiVzIkEN21i7ilgMHJEu3bzZ+Iof5ap7Z2v4ccJ+bCG1aSUNe +g3eHRvM4oOt1WHxIhIYq13LlFwo5wDvcy+GWpGEHKG9cSnIgr6/+tQGdhhd5 +DQiBcg70P7qsfE+LhoMBn9y/P+TArgs63dmONKxJLaz73ckBDZEwteAyGrYe +85KwW0LCkujphtQKGhrq6xp+5yLhBfexfRXVNOQxsX9wdhkJx6etLkw00pA7 ++t61VH4ScruZfUd6afhHxIiRJUqC+I2mizbcdFzcu+HSX3kS5tcL9avY0rGm +3HbpgjkJM9elwjT30bE8f65J2IKEqVUEU8eRjoEzQXyEJQmjkzrHth6lo8NM +4iLakPCh2nlm3xk6qkc5tFjsJ6HFvFIwMo+OMeed1J4cJ+HZw8dlscV0HG3j +e591goQGtTab5Nt05J+4I3Tag4RHqwfTM+/TUUyHsyDvQ0J5H7/8ved0DHhb +smAbREL6cQf4ME3HjQIxXAKRJFx95/bhyy86iqv5Ly2PIiFll8+FH4uUD2rG +20aTEKcZ2TrHx8CS4GFMiiMhfKHMfpUsA/9c4aN/SKHuJ3qZp74xA6+ofNny +NosEfQ6ZdeUKAwP/HnBiV5DQJ8e5se0aAx9yux87WElC0JWizKkbDKybOHQ2 +vIqEyrD8DKsiBqp41jdWPyBBY09WqmANA8/yevXz15KguCwl4eIgA5t/yqRL +PyOhKSgpftMQA99lGvkLNZFweDwh7tMwAye63Fy5mqn69MXGbJli4KclkX7v +WkiQK4+I/LucierCgoGeL6h6OQaH+ikzsd/b2Y2/i4R7nYEhxAYm0ozjYv+j +bGMWcLZzExMPXDduTX5NQtIm39MawMR6O+sk4W4SVq7wCBjdzcSL9zP3D/eS +QIad8L9ux0RBoynrtD4SzGaP++34l4k3lrcc2faWhMgPbqeKXZgYvXZuKOUd +CUvvH/I87M/EzpTzu4UHSLipetBD7DQTp9/91S2ivCXX8WRDKBMjS3i3GQyS +EBK/351+iYmMn701jh9I+OVq59afwcTCT1xmoZ9ISOuzORKbzcS+jSHG/3wm +QXu39WH9fCaanK84EkLZT9/SJf02Ex1pp6R8hkiYEDFzsnvCRP0LYpbaX0no +dqf/d+wZE3HP1L8cynVPf0FIGxNPenKEpL+RkBDEWVf4mokpHUf8xykHdJ6L +r+ljYs32l0p2wyQ4qe5f/G+AiR12fVFVlNU/rHg/P8zEYe6snT4jJEjqf7YQ +HGeiUXD9nVbKS648fESfZmKC3t4mue8ktJuezDRfZOLr4juLdZQrbhoLOi0l +sKzrM2PFDxIy/8iePcVHYDS6zltTPlnWfuD6agIv0VWqeyjbCRQ+L5Mk0Lnk +S6HEKAkGrqHspzIEct/sMLOizKrdc6uXTuBbf052FOWVazbIjMkT2L5JqeQh +5SlvvlhuFQJf+gl4jVJ+2zb4W0KDwAxXgRHpMaq+oUlvUZ9AteZ9PCcop/Qe +22FrSCDDheAkUD690ajmqDGBcXNL+coou8RJK581J3AgpIr2grL518lrSZYE +6oQvTn+hrLGlTaDAlkCaePrFv5SlMnKDq/cRqDiwvVN4nASumdMj7Y4Epok8 +f0+jPLzL9t9PLgSKnPhapEr5VZFK69xRArX0D2hqU37AvVxvpQeBe/eOnjag +nHOgv5h2ivp9JccIQ8pRlRVSWoEEamb5WP/fnsLxl8zOEtirPT7Iprzn+JFf +DucILP6dprmZMjbCMZ9IAteHaJmqUFZYJ9kbEUvdf380Q46yUOC4aUYSgZvq +nepXUZ571XS/9CqBZx1PK/6mzjOgnK3YmEGgjUe+3WfKTRcD03qyCXy3ucC8 +lXLpwG6+0XwC6REmfCWUU3WVArlIAsvvWCbEUg5N4fomXkagVUbM4FHKR0Z7 +96yvIDC5oPHPFsoW2+80QTWBV+qffpakrJUTrW1TR2C867/pI1T9ltvpS55p +IXCuzMM9gvLobdHIxHYCvb5ERltSfs33Yzavk0CTKrcgccr5D6+/edFP9cfi +3ZZUqp/iJPxMPn6k+kO5VsWWsp+XReXsVwI7nFqdBSlvIxavyE0S+HROaYc/ +1a+fYpzsvHlYmPPvCJNB9ffJYWW6+goWbqv5FdpGzcOsyfyPH0IstC/3kPWh +zM+ddOGoFAtz3+rLVVHzpB5Yf9dJhYUhE/usaNT8PXgdHyqrwUJZsei2u19I +MNq4f8dbLRYmFsfHbqNsNzb10R5ZKNrQOeRAzfMZV9bqXdYs9H6WxudF5cHy ++p/9K/aw0O3HveejH6n5lastbtnPwgJnlf6jH/+fj/ZbjA+zsP7u3JA9lSct +u6O82IEstIrI5Kym8kfc4Hv7+hssjJ4xusFP5VnWtapr326ycPtc3JkDVN4p +zp8/UlDIQqNlUXdu9VB5f1dmkV7Owvd5xxWNqXx0VtqlKtXIwmArhd32VJ6W +ipfH8I6w0PhMjOYClb+6p87ueTrGwojn3z4yKNe/NGOen2LhQuvNWdPnVH1i +PlYv/mHhFI3YEddKwm8usZEZIXk8+lfj0SyV/6Zj/qafteRRvdfgpEUdCWs3 +yF7k1ZfHbmstaW1qX4x6NzxZbyiPbCuzRtlH1LzOCOl7m8tjfGmh6MdqEvr/ +FKkuOsrjE4Uz1SbUPvJe8Xb1mih5tF42uDT8FglbLcIt9ePkUbGlf06PJEEi +QSHWMVkeA3aWzP8sJqFmte/y/OvymJj7iNhTSN23tOC8Rrk80rSyjBZzqP2q +iP07+uTxcVqa/+OrJLgfH5LyHJDHhXGxsh1XSIBbMfbJn+Wx1P0cTxe1Pz+p +9/zXMyaPrSkmq94lkqCq7V1/eKkCzhXRC1qo/VtvnFsYqqKA3H2d/WtDSPju +zOtzN0QB1zayK3OdqfNmbn1Ye14BtzTeWNZ/kISxnlCe1igFdElq4og6kfBz +1/y1wWQFHNgVwB1EvSdm9YYbBAsV8Cd//m+mLZU3om3iR/9TQI2kkfnf20hY +0xD/QIamiDHn3HbWECT1vpfginiiiEYzD2+Xv+PAt0MmhXrPFHG4qvy8Tx8H +YrL9LcZbFVHH87GRRg8HOmS70/d2KWISL3muiHpvOa1J01T+qoj8brqMkFYO +BApKu75cqYSP7UfynlVxgJyTbZLeq4S/rIO+dCRyQOQ5K650TAkH7Ua2CRhw +4O+Yel7LlBIerNX1EtHjwLCIXs2neSXcv0zFXUKbA0/27BqWXLoez53J6JLS +4IDPJ3/jMMn1mHJl3VUeFgc6F5r+7jZcj7+5JroDV3LgqtJxj8mk9aiYdSm0 +ubcY1kbettTSUsZ+tuVye49iSF2vI7T6iAqWCGhnticVQYuU4abJRFVU4T9h +mEG9/3XXPklQe62GX7U3vH0eWwCC3DmnDoarY+v1a35OQfkgG7ZOfy9rAwY3 +834PMsoDPmJ/hdWzDRiX4HKjjS8XVNlrbvsf0EAIGhJaPZgD3v0i9WZLNHE6 +vV54Q2Y2jE3G2JqmamLzFy6JbO8sMFF7mm6qshEDTUKDtXMy4dGk3sLsi41o +9reFZ0IvA04qa/S+dN2El011VbtWpQN71KVzL58Wsp7hY/XWq7CNKblzZY4W +rmi72Xut4TIohF4KeLJ5M6pqda/YO5AMSq46tUTvZkw87L68eSwRXB+5nb/r +pY1X35szHfQToDar02VCTAd9O6fXhfHEwlTh4qxapQ4u3vdf9vNzFDgTHL70 +nboocOhWVKFGBEwoJWuVj+vi7m/7np4POw9VuQuD05F6iOOlL8w3hcO+rQzU +k9XHC9bi1zxZoSB9IuK+ap0+fpGIpk59GsT43ct22rNx1bmvHQVvAiDX6EzQ ++F42zohOO29uDgCNM3FGyfvZKHolqOD5gwCwGC/t6j7Ixmqao6FgZgBcfD09 +7+zORs0T4dHvXQJgLidkS1AYG4/H1rTXTfpDr15yRz6HjTsPz1d7ivuDm29u +hmkJG+dqK/k7eP1hpuSe6/dSNlb4tLXrLfiBCL17dkMFGws6DO/JDfiBOa/M +2od1bLTZtLNyc7Ef1HTmu3R0sdE9pGAoFfzATLBKxa+bjepePeUHNfyg26R5 +RrKPjfcOH3utTvjB1IORSIcBNvaOfJT+wO8HKtnqt74Ns5Gh0XA04bUv1PQa ++sX8YOPsxbMPopt9wUzUGtTG2fjsB491bI0vHI7wfXlqmo1qx2qsb+b4wlTd +xXSJOTY+N/unqvKyL4T/uur84Bcb+zq3738V6QtCG4uUD/yh/n/IDYPJYF/I +PPFgenGRjdevCh+Q8vCF/wE5r5EV + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.05652050759779948}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05652050759779948}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939189255717173`*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"7da7c2d5-f867-4336-a54b-f632c29c8eab"] +}, Open ]], Cell[CellGroupData[{ @@ -5739,66 +11527,76 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + "In[121]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 365, 381, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423358439445`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.686000407405547`*^-159\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 49, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993918931135741*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], +In[121]:=",ExpressionUUID->"dda0795b-10e4-4884-94a2-a57b0cd19860"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335853943*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0014189346365785`*^-161\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 50, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993918931193872*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +In[121]:=",ExpressionUUID->"d30ce3fb-c759-4c5c-986b-71cd6d60d74d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335861944*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4999099933315806`*^-164\\\", \ +RowBox[{\\\"\ +552513857212233842570175958778312308519209260189278753959051363142168\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1583212683407106418618000954093361543354777600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 51, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993918931207959*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +In[121]:=",ExpressionUUID->"8365c389-3ece-46a8-827a-42da23a157ab"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335870945*^9}, +during this calculation.\"", 2, 121, 52, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993918931217099*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +In[121]:=",ExpressionUUID->"138baba4-063a-4f1d-b402-a657fc9aa033"], -Cell[BoxData["12.5536549879565`"], "Output", - CellChangeTimes->{3.9913423425170345`*^9}, +Cell[BoxData["14.933527389090395`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.993918984779419*^9}, CellLabel-> - "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] + "Out[121]=",ExpressionUUID->"3a51d18e-cee3-4e03-97a3-8fb907b04cd4"] }, Open ]], Cell[CellGroupData[{ @@ -5865,68 +11663,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99184987967128*^9, - 3.9918498857615337`*^9}},ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-\ -30286a178ca1"], + CellChangeTimes->{{3.99184987967128*^9, 3.9918498857615337`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 385, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425545177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.874420035757567`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 53, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993918987595965*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +In[122]:=",ExpressionUUID->"f60f6825-1514-425b-9288-a8fa7f544896"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 386, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342342564516*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.306949457516041`*^-221\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 54, + 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993918990682654*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +In[122]:=",ExpressionUUID->"dd6ef4d6-2a94-4d75-8a23-81f5525a94f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 387, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425725136`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8616160655858403`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 55, + 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993918994453678*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +In[122]:=",ExpressionUUID->"e46d1517-4a18-45ee-933d-5612bd7bc8c5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425815163`*^9}, +during this calculation.\"", 2, 122, 56, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.9939189988779078`*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +In[122]:=",ExpressionUUID->"275d6355-8ae1-4ab4-93f6-04083c2302ca"], -Cell[BoxData["2.904399821349581`"], "Output", - CellChangeTimes->{3.9913423499055786`*^9}, +Cell[BoxData["0.5494552733042285`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.99391900693997*^9}, CellLabel-> - "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] + "Out[122]=",ExpressionUUID->"2ce10b44-a6cc-4028-9936-01c2f9a71c25"] }, Open ]], Cell[CellGroupData[{ @@ -5947,8 +11749,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5993,67 +11794,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849890499424*^9, - 3.9918498944226*^9}},ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], + CellChangeTimes->{{3.991849890499424*^9, 3.9918498944226*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 389, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499435787`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.874420035757567`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 123, 57, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993919013514676*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +In[123]:=",ExpressionUUID->"4b2bacf7-b009-4ab0-b2d1-e366765d18a4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 390, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342349953579*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.306949457516041`*^-221\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 58, + 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993919015623349*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +In[123]:=",ExpressionUUID->"5df91922-c7cc-4321-8b9b-429f4264f3e0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 391, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499625797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8616160655858403`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 59, + 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993919019780076*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +In[123]:=",ExpressionUUID->"4aeb4d9b-8b8f-4ec2-9f05-3ed89bbf90ec"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499715805`*^9}, +during this calculation.\"", 2, 123, 60, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.9939190216846046`*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +In[123]:=",ExpressionUUID->"9c05dbf2-419a-4530-acc0-c8f30b9d6f06"], -Cell[BoxData["9.928941323789857`"], "Output", - CellChangeTimes->{3.991342356382967*^9}, +Cell[BoxData["49.426140470980755`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.993919030541238*^9}, CellLabel-> - "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] + "Out[123]=",ExpressionUUID->"a0e73799-676b-4613-87a1-a7386913f909"] }, Open ]], Cell[CellGroupData[{ @@ -6074,8 +11880,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6120,68 +11925,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499002266407`*^9, - 3.9918499040814323`*^9}},ExpressionUUID->"935796a8-6280-564a-b4d0-\ -fc6fb6cd41f8"], + CellChangeTimes->{{3.9918499002266407`*^9, 3.9918499040814323`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 393, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356420965*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.874420035757567`*^-216\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 61, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993919036880136*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +In[124]:=",ExpressionUUID->"00d55aaa-67be-4cc9-a561-6060640114fd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 394, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356431965*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.306949457516041`*^-221\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 62, + 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.99391904120261*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +In[124]:=",ExpressionUUID->"fa93bbf0-ab65-4b39-a606-8c4347c233ea"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 395, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356441965*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.8616160655858403`*^-226\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 63, + 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.9939190457040777`*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +In[124]:=",ExpressionUUID->"7f9e5af1-bfa6-4bfc-af98-480746d9035c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356450968*^9}, +during this calculation.\"", 2, 124, 64, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993919048741885*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +In[124]:=",ExpressionUUID->"1c89b8c2-e6c0-4b8f-bde9-1cb66856b6c7"], -Cell[BoxData["19.874153108015193`"], "Output", - CellChangeTimes->{3.9913423600715523`*^9}, +Cell[BoxData["6.118069307952883`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.993919058515958*^9}, CellLabel-> - "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] + "Out[124]=",ExpressionUUID->"7f40cc16-44ec-4792-8c44-617c0b8f6df2"] }, Open ]], Cell[CellGroupData[{ @@ -6190,22 +11999,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849908545643*^9, - 3.9918499133398113`*^9}},ExpressionUUID->"ee52036b-90c5-e14a-aed9-\ -684ff23ed035"], - -Cell[BoxData["0.2067571864462191`"], "Output", - CellChangeTimes->{3.9913423601046352`*^9}, + CellChangeTimes->{{3.991849908545643*^9, 3.9918499133398113`*^9}}, CellLabel-> - "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] + "In[125]:=",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], + +Cell[BoxData["0.03159706910303459`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.993919077920384*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"e5b3eb31-40b7-4c19-96ec-1556a2b6b559"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849916273302*^9, 3.9918499185334816`*^9}, - 3.9919247506818066`*^9},ExpressionUUID->"c6d4a146-4cca-7e4e-b483-\ -85227a6e6b51"], + 3.9919247506818066`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ @@ -6228,12 +12038,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + "In[127]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913423601345863`*^9}, +Cell[BoxData["25.409967517391518`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.9939190839086514`*^9}, CellLabel-> - "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] + "Out[127]=",ExpressionUUID->"51dfef38-99b6-47ef-ab56-efa742a39258"] }, Open ]], Cell[CellGroupData[{ @@ -6243,12 +12053,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + "In[128]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.9913423601709976`*^9}, +Cell[BoxData["1.0447880299510575`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.99391908840361*^9}, CellLabel-> - "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] + "Out[128]=",ExpressionUUID->"c2cdbc1f-4f22-4b77-b960-b6fbaa251056"] }, Open ]], Cell[CellGroupData[{ @@ -6258,12 +12068,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + "In[129]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913423602320137`*^9}, +Cell[BoxData["26.548029903615845`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.993919092094863*^9}, CellLabel-> - "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] + "Out[129]=",ExpressionUUID->"b90cba5c-58bb-4b53-80c9-d224282048c6"] }, Open ]], Cell[CellGroupData[{ @@ -6453,12 +12263,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + "In[130]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[BoxData["0.02003459702393596`"], "Output", - CellChangeTimes->{3.991342360260002*^9}, +Cell[BoxData["0.004256774572415363`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.993919097152807*^9}, CellLabel-> - "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] + "Out[130]=",ExpressionUUID->"3ca06a31-b5e3-49cf-a34c-21aa8bd08207"] }, Open ]], Cell[CellGroupData[{ @@ -6472,12 +12282,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + "In[131]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[BoxData["6.261157591052328`"], "Output", - CellChangeTimes->{3.9913423603598785`*^9}, +Cell[BoxData["13.583278801762814`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.993919103793247*^9}, CellLabel-> - "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] + "Out[131]=",ExpressionUUID->"f14f7ef7-5b2b-425d-b50b-c572d9811ffa"] }, Open ]], Cell[CellGroupData[{ @@ -6669,12 +12479,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + "In[132]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[BoxData["0.010388932679900494`"], "Output", - CellChangeTimes->{3.991342360375868*^9}, +Cell[BoxData["0.030199590014193034`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.9939191086572857`*^9}, CellLabel-> - "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] + "Out[132]=",ExpressionUUID->"8618e440-7800-4595-8240-010388ebc7a2"] }, Open ]], Cell[CellGroupData[{ @@ -6688,12 +12498,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + "In[133]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[BoxData["8.694797556550151`"], "Output", - CellChangeTimes->{3.991342360471882*^9}, +Cell[BoxData["5.099697516881585`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.993919116801338*^9}, CellLabel-> - "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] + "Out[133]=",ExpressionUUID->"87ccea6b-ea0c-4e4b-a518-ba97cbba6c1a"] }, Open ]], Cell[CellGroupData[{ @@ -6786,12 +12596,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + "In[134]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991342360486868*^9}, +Cell[BoxData["0.15074304128905536`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.993919123210216*^9}, CellLabel-> - "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] + "Out[134]=",ExpressionUUID->"01057572-0653-4905-b068-b5b36dcca9f9"] }, Open ]], Cell[CellGroupData[{ @@ -6881,12 +12691,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + "In[135]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.9913423605138645`*^9}, +Cell[BoxData["0.8492569587109448`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.993919146130946*^9}, CellLabel-> - "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] + "Out[135]=",ExpressionUUID->"e36f9952-5f39-43e4-9947-b4cb85bac9ae"] }, Open ]], Cell[CellGroupData[{ @@ -7009,12 +12819,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + "In[136]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.9913423605448647`*^9}, +Cell[BoxData["0.12801957679198153`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.993919155115302*^9}, CellLabel-> - "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] + "Out[136]=",ExpressionUUID->"2b307a4f-6d48-4260-be88-208980369abb"] }, Open ]], Cell[CellGroupData[{ @@ -7076,68 +12886,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849936863495*^9},ExpressionUUID->"6b25ec99-ae49-ec4d-9652-\ -65328572e509"], + CellChangeTimes->{3.991849936863495*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 384, 397, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342360571863*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7418920831162206`*^-224\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 137, 65, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993919185203484*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +In[137]:=",ExpressionUUID->"a2ad1f9c-a92b-4976-b7e2-a7213b3ea6e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 384, 398, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605818653`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.077999741763818`*^-230\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 137, 66, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.9939192250283422`*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +In[137]:=",ExpressionUUID->"b3fe4d5e-f77c-4f95-9759-5f373cf45ca6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 384, - 399, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605898647`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.40448442013331`*^-236\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 137, 67, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993919272247015*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +In[137]:=",ExpressionUUID->"4eef3c20-34c2-4cea-b7ab-b4c8b4749002"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605988636`*^9}, +during this calculation.\"", 2, 137, 68, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993919309507066*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +In[137]:=",ExpressionUUID->"3193b0b3-d810-49e7-8bde-dad07153f939"], -Cell[BoxData["6.261157591052324`"], "Output", - CellChangeTimes->{3.9913423642473736`*^9}, +Cell[BoxData["13.583278801762809`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.9939195299615107`*^9}, CellLabel-> - "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] + "Out[137]=",ExpressionUUID->"d73aec47-e91a-40c3-8da0-8408bcfdfa2f"] }, Open ]], Cell[CellGroupData[{ @@ -7199,68 +13012,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849940282545*^9},ExpressionUUID->"3e2baf62-fab9-eb41-8de7-\ -aa229443ac14"], + CellChangeTimes->{3.991849940282545*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 385, 401, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364284378*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7418920831162206`*^-224\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 69, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.993919557307557*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +In[138]:=",ExpressionUUID->"45df8932-014e-47f5-8382-ede0031a9811"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 385, 402, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423642935734`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.077999741763818`*^-230\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 138, 70, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.99391959202853*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +In[138]:=",ExpressionUUID->"8f5ec9c0-e365-4961-a7f1-10c8bd413ea5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 385, - 403, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364302574*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.40448442013331`*^-236\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 138, 71, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9939196279854918`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +In[138]:=",ExpressionUUID->"48f9d8cb-a034-468f-b7ae-451856d94a83"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423643105717`*^9}, +during this calculation.\"", 2, 138, 72, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9939196637672033`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +In[138]:=",ExpressionUUID->"9b765da6-7115-4a9d-8855-4f8d1795cfe5"], -Cell[BoxData["8.694797556550144`"], "Output", - CellChangeTimes->{3.9913423679416714`*^9}, +Cell[BoxData["5.0996975168815855`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.9939200046722307`*^9}, CellLabel-> - "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] + "Out[138]=",ExpressionUUID->"ccadfca1-b8ef-417f-b323-a28b252127d5"] }, Open ]], Cell[CellGroupData[{ @@ -7318,95 +13134,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849946138607*^9},ExpressionUUID->"725c3011-bda9-4c42-96ce-\ -9a77a5dc787c"], + CellChangeTimes->{3.991849946138607*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0Vd0bB3CZGgyFzJG5lxLdayzZT4ZQSKQoU9e9R2SeMkUD6TWFFP3K +kCjJWGRMKUoRSglvA+Gmc82X0OS3/XHWWZ+1z/6uZz9n7y1P87NlcHJwcEzg +Z+Ud0Ll9S013p2FW/Ghiox4bGU4WaNNMSpDQdW/vFQ/m6mQomTQis79cgiu2 +ob/m5ae2oneN9/wbsCvDYp7xmHQgadI9ox773+cST2KK3yC4uS28DruuOyDn +N+U9kuXh3VyLTQ68igpv6EMOMB33EFtqVPHYD+OPaH8cq7QKe/9UlH5Qxxck +Kbh49T5202+SL6x4COVsEttTgd17Vjzyoe8wivxpWlKKPclrQs5RRpHwUnxf +MTZvkr8jdYGJwgM+tt7BlhXKbgtoGEOXW4yDC7CtpX/cnjQeR3yFlhuzsYk8 +BTH1NZNoWGqK5xp2jPKBuJMdU+iowe3aDOw+8Xc7gotnEBQdOp6ITT/q5Xk5 +aRYpSloduYA9fYPj5n1fNoo+5yR4FnuNgvqGGco8ujf49HEIdgb9mdkG0R/o +k750vR+23B3HGI2FH8jsUHKIJ7betguTPg2LqIRs1nDCPqHzpYM0/o1c5WIr +DbHnwkK416n8QW+6mqt0sM808BmorvmLQkzlwrdjZ4HePY+OZfQmy9hUZqW+ +wjaTwOJVMK1ixFrQZaPi55cHz0pzAr9kwcIE9vQ3l6i0JE7Y3arROowdpTb/ +oMKXC2odXt7qxM4ol1ecovBAe4ia303sge7xpr+3eMCbfzn2CrbcbM1RQVFe +8EFrnP7FLtGyTldf4AXT6CYrf+yWuohV3g1rYI8qE+3Cnn/W82XMmB8GO665 +teqwkbAl/4bIJn5g6+dQqrA135mAgL4AjD6er8/H9hqpztuxXRCm9Ismo7H9 +OTs0d/NvAMEd9K9U7FGFspm4H0IQbF7455I27g/xam0XVRguu8rrRGBz3mPK +SwQIA5OUUaZjy1E32xazhMF+S6GKLvZR49T7nYMi4MprXtuvxUZd7oFB4u2i +4Ok7KCGE/flOSqLbGjG4rLlU/4PKRuOs4lt3TcVAz/aVyEfsdcHDPbueiMGo +bOH3QmyT2ENabtXi0CV6T0UHu75AZ74oVxKcs5K+m1PYqGD0Z+jOYBlIVjpZ +qavJRub28Z+DSmVAsVvrkhj2eIvI3lKmDLifyFSf12AjrYJtonKOsrBPWa+k +EruF5vKAx3AzJM25VG7Bnp0aPDV2Xg586jZ+Wb2djUR8TKoeWClA2qLNWNZW +NmIWrDth46UAW2dZQ37YtR+7pScuKMA6VtWNvdhOls7nVZ4ogFbsqD1bDde3 +NdT2GkUR6m7bfbDA1iLvTEeLK0G3z3pp1j9sdMiDT33fkDJUy891/FVmIxRq +TznyRxn0gmrHO7HV4nJ16ZIqUGTa1p2DzXGLahR9UAWiIoZGd2OXfj525H6z +CtzgzjYJV8Ln83DJWan8LfDLlugfUcD1mVj1kjRVkByWSLy0mY1u2WX+txCt +Cs28P5EDdgptaJD7uirEUsfr5LDpZ0JYsj2qYKQg+6dClo2EGrM57IzVIFox +qLlTBu8f6qRag+JW6N/VabYszUbSCpdiEke2QfwbvigtCTZqTJhTXeJUB77T +uy9Ni+N+sB3fEfLqsGyz2aUEO6dFSdXIRR3SzkhqKGIreNS/XfygDuNOczkC +Yni9JaPKRPt2CLrY0vRehI1kpGUJOUdNaM+9Y0Jdz0bbCoP5fyEKNLKlqpV5 +2IhGPz+vbk2Br99rSnu58XlVTP/s5kSB/SMKPvHYXPnlFc/DKLBz6CKMceHz +lkMeSq+kQP/OvJ13OPF9muWWrapIBaFJr1gpDvx/Ey23O/BqgWCH6oPen7Po +ZqCSTXWHNqzmF6y5MzWLukORbmyhPuxo/2x8/t0sknd5b+3svRt4bp8V13w4 +ixjLD8tkwgHKNo1bvL86i8RZtavFaUZg+vH8P00BsyiYavAxXc0ExkLFRU5Z +ziLaxO82EdIUFoJ6eMqUZ1GpUdDq3C4zeHEuMMllaQYVzHk1l2RYwLSUKY3a +OYMW90i8bonZD/7dmzfUZc+gTxxcM0PHrYAIrjvY4D2DfDf5pZ5VPAAJglZH +1hvOoDLPtidX4mzg51vTVXfWzaAItuTCVs+DINy2YKIxMI3m9+09/MLVFsba +2R6ehdNI/1jantGDdmAIouLXA6bRW8lsrxbqIZA+cnX5zJ5pJHX7fGPRP/Yg +qnu4r0dgGtUOqllaCxyGz8aepQGNU0j23bRH6MRhMOPXWC50m0LUK2kltwaP +gIBYrYry8iTK5mZvT3/mAP0BmgaetyfRwz0aA3F1juB88pg6p8UkytJNEPpd +fBRcM/1NGNMTqOu/wgvUpGMgm6/7vS5vAlVb3VDyP+MEsVwHz722mkAzPnYc +vnRnqGpVetnLNYHm96qemDR2gRwFZ96HTeOoaKJ/MUjHFV4HMU3zT40jh5uF +7s78btDBqmPK64+jB/f3u3LFu8Hd+vl9RUsspC/9dunfJTeoaF37vzNPWUhx +0GPgjedxeFAdfM45lYVG+E4euDF8HHw748NDXVioO8Xa3cyeBqOmKGeLFgtl +hOXyhXTToPT3+xguPhZqbFpecrdwB3Kyq8j3G4nWO0E8td4dmP+edE1/RSK5 +jS+6NjW6g7RLX4gstmaHlQRvkzveQD7/Fb8kka3Bsbt9ze7Qe0Ayo6WNRBmb +QttPv3SHHLG7Db+ek0jq0731bX3u4LRoPhr2jERKLuJZTgv4+zqF8rJGEum7 +TRbFadFBiTslak0FiW5fmw6y1qHD0vWUl2XlJNrYM2sorkeH3pusY/bYk6YL +74p20YHV9tjmVhmJ7y+OVR1GdHjzaybCqJREggtCjsIH6bBtJO5tcjGJRpK1 +1+b60CFAxO+qQyGJDr7QfefhRweCZ3faauwmjp25mgF0mHuc+OZhAYmuBRlq +Pw2mg1RXuYIYtrWj2fHRSDpc7dVY3ZdPojolx7qtCXTYvWqx/0QeiVIaojxr +b9PB++yD0qbrJPKhZOqHFdGhxYbZegrb8m7lWr1iOiQNcsnvwF6XybxbU0qH +5ieceQX/I1FcoA35sIoO0q+2NKdcI1GUqtLJ6qd0aF/bmeqXSSKvzHbv+5/p +kJ548KT7ZRJZCDINAgfpsFok6qsS9j9xHAKUr3Soibt3g5lOImagdmnlKB0o +1E0DXtjHrXMnKsbp8LrIMTw0jUQOPEG+5T/pgDq/W/zvEonMgqT8S8QYINtm +r7cxiURPcy/sS5dgQGEXR2R/IokMOmaVwqSwJ+/y52JrKrf3G8syQKJxadNW +bMkPkcb/KTPA7MDtmb0JJGLt/CS2TpsBpzRGTyZfJNElzrxHHnYMkLKzuGsf +h9evwZ9lZc+Anpe6r5WwY4+FBVKPMKDCzgDmYkkUVmWzZfkoA2g2CSIZ2MeJ +VWlXaQzoi7D0+3CeRNRXNHprAAOmtvz85X2ORB/SlPkUUxnQVGvk2xNDojIk +cGIsjQHLxj2C5dixE3MtpZcZwHQ+OJeATbFoidbLZIDcvHiKMXYKh/usVQ4D +XsYN/K6JJtFev7z+sBI8f03ai9LTJJKRuahjWIb7s2tbTTL23Cu/y1wVDPgR +2sDywc5XQVYpDxjQmFSjqIH959OnJ7fqGdB5UbOrKopEVZbSRZ1tDJBvCtn4 +OpJEiT85eTJeMeAcK8quEptWRB537GAAf+vpD1ewN3DXS490MSD3hU+ZK7Z3 +g8OlpV4GmLPWZ/2IIJGi2tVQpVHc/5m8ozuwf3443fOdyQCHRY/vktjdcQzN +8jEGqIepP+LEjh7SIvXHGVC9UEV9H06igawe5wNsBqTSHjmdxk5fLWQasYoA +w8zxnIEwEjXOfjoWzEXAR+KueSv2t0/Fgb48BMT/RzevwDaoMsmjrSXg53if +RTw20y3s1z4hAlrnHx3Sx95gaSpsKkLAgkFYmQr2Ll1hVSRKQHU41WUjdqpA +yWGqJAHDw6WPp0/h8fovldLyBPgX1iWUYhOFJW2iigSMt5/LyMZOTQ3/sl6Z +AIdv1nPJ2ExCRIBblYAXI9PVfivjImYnxjUJ2L+WtkcXu/6vSAyTQkDWlPkv +VezR74NXBrUIyAzX4pPB3vkk4tk7PQIGdaXUubFHvMtkHwEBJ+yUw3tD8f3h +EKldY0SAib3OcDu2vrG5ZaUJAfyOVreasVMkv4YXmhNg9ydZuQy7lrs8NXcf +ro9Z860Ae3gq8s41SwIsaGPL17H1nou+T7Yh4PMVZ0oiNq3yKyveloA/ifmW +57GTb5RznjtEwN+0ycZI7K+BFpqhDgRcMLiR64Mt4CJm5n+UgCTRv0IeK3kW +w85eTgQc9/AYcFuZv/l0oosbAbbdNj72K/Ws25fvQCOAS/iNrs1K3rxYnS2d +ACd5R4f9K3lDw12WBAFnN3zv3LuS11HB3HuCAP3pM9eNVuqrOf0HvAgw6JZr +MlzJz9+3cZc3rr+pTWfXSn6y+FZtXwJ0Xobx6K3kh43s0fAnQOSXppo2Nj+9 +0kE1kIAdrjMFFGzdA9F+isEEtP+tC9Fcyd+5/4JMKAEbvybc2I6dpCyRLR5G +wNR6uqQ69sMNow+EIgj4lmw6vhV76FflK74oAnzdNERXzP8teognmoDLCfIZ +atg6b/cvLscQYC64yXPF/wd8MA/p "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7420,107 +13236,106 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwV1Hk0Vd0bB3CZGgyFzJG5lxLdayzZT4ZQSKQoU9e9R2SeMkUD6TWFFP3K +kCjJWGRMKUoRSglvA+Gmc82X0OS3/XHWWZ+1z/6uZz9n7y1P87NlcHJwcEzg +Z+Ud0Ll9S013p2FW/Ghiox4bGU4WaNNMSpDQdW/vFQ/m6mQomTQis79cgiu2 +ob/m5ae2oneN9/wbsCvDYp7xmHQgadI9ox773+cST2KK3yC4uS28DruuOyDn +N+U9kuXh3VyLTQ68igpv6EMOMB33EFtqVPHYD+OPaH8cq7QKe/9UlH5Qxxck +Kbh49T5202+SL6x4COVsEttTgd17Vjzyoe8wivxpWlKKPclrQs5RRpHwUnxf +MTZvkr8jdYGJwgM+tt7BlhXKbgtoGEOXW4yDC7CtpX/cnjQeR3yFlhuzsYk8 +BTH1NZNoWGqK5xp2jPKBuJMdU+iowe3aDOw+8Xc7gotnEBQdOp6ITT/q5Xk5 +aRYpSloduYA9fYPj5n1fNoo+5yR4FnuNgvqGGco8ujf49HEIdgb9mdkG0R/o +k750vR+23B3HGI2FH8jsUHKIJ7betguTPg2LqIRs1nDCPqHzpYM0/o1c5WIr +DbHnwkK416n8QW+6mqt0sM808BmorvmLQkzlwrdjZ4HePY+OZfQmy9hUZqW+ +wjaTwOJVMK1ixFrQZaPi55cHz0pzAr9kwcIE9vQ3l6i0JE7Y3arROowdpTb/ +oMKXC2odXt7qxM4ol1ecovBAe4ia303sge7xpr+3eMCbfzn2CrbcbM1RQVFe +8EFrnP7FLtGyTldf4AXT6CYrf+yWuohV3g1rYI8qE+3Cnn/W82XMmB8GO665 +teqwkbAl/4bIJn5g6+dQqrA135mAgL4AjD6er8/H9hqpztuxXRCm9Ismo7H9 +OTs0d/NvAMEd9K9U7FGFspm4H0IQbF7455I27g/xam0XVRguu8rrRGBz3mPK +SwQIA5OUUaZjy1E32xazhMF+S6GKLvZR49T7nYMi4MprXtuvxUZd7oFB4u2i +4Ok7KCGE/flOSqLbGjG4rLlU/4PKRuOs4lt3TcVAz/aVyEfsdcHDPbueiMGo +bOH3QmyT2ENabtXi0CV6T0UHu75AZ74oVxKcs5K+m1PYqGD0Z+jOYBlIVjpZ +qavJRub28Z+DSmVAsVvrkhj2eIvI3lKmDLifyFSf12AjrYJtonKOsrBPWa+k +EruF5vKAx3AzJM25VG7Bnp0aPDV2Xg586jZ+Wb2djUR8TKoeWClA2qLNWNZW +NmIWrDth46UAW2dZQ37YtR+7pScuKMA6VtWNvdhOls7nVZ4ogFbsqD1bDde3 +NdT2GkUR6m7bfbDA1iLvTEeLK0G3z3pp1j9sdMiDT33fkDJUy891/FVmIxRq +TznyRxn0gmrHO7HV4nJ16ZIqUGTa1p2DzXGLahR9UAWiIoZGd2OXfj525H6z +CtzgzjYJV8Ln83DJWan8LfDLlugfUcD1mVj1kjRVkByWSLy0mY1u2WX+txCt +Cs28P5EDdgptaJD7uirEUsfr5LDpZ0JYsj2qYKQg+6dClo2EGrM57IzVIFox +qLlTBu8f6qRag+JW6N/VabYszUbSCpdiEke2QfwbvigtCTZqTJhTXeJUB77T +uy9Ni+N+sB3fEfLqsGyz2aUEO6dFSdXIRR3SzkhqKGIreNS/XfygDuNOczkC +Yni9JaPKRPt2CLrY0vRehI1kpGUJOUdNaM+9Y0Jdz0bbCoP5fyEKNLKlqpV5 +2IhGPz+vbk2Br99rSnu58XlVTP/s5kSB/SMKPvHYXPnlFc/DKLBz6CKMceHz +lkMeSq+kQP/OvJ13OPF9muWWrapIBaFJr1gpDvx/Ey23O/BqgWCH6oPen7Po +ZqCSTXWHNqzmF6y5MzWLukORbmyhPuxo/2x8/t0sknd5b+3svRt4bp8V13w4 +ixjLD8tkwgHKNo1bvL86i8RZtavFaUZg+vH8P00BsyiYavAxXc0ExkLFRU5Z +ziLaxO82EdIUFoJ6eMqUZ1GpUdDq3C4zeHEuMMllaQYVzHk1l2RYwLSUKY3a +OYMW90i8bonZD/7dmzfUZc+gTxxcM0PHrYAIrjvY4D2DfDf5pZ5VPAAJglZH +1hvOoDLPtidX4mzg51vTVXfWzaAItuTCVs+DINy2YKIxMI3m9+09/MLVFsba +2R6ehdNI/1jantGDdmAIouLXA6bRW8lsrxbqIZA+cnX5zJ5pJHX7fGPRP/Yg +qnu4r0dgGtUOqllaCxyGz8aepQGNU0j23bRH6MRhMOPXWC50m0LUK2kltwaP +gIBYrYry8iTK5mZvT3/mAP0BmgaetyfRwz0aA3F1juB88pg6p8UkytJNEPpd +fBRcM/1NGNMTqOu/wgvUpGMgm6/7vS5vAlVb3VDyP+MEsVwHz722mkAzPnYc +vnRnqGpVetnLNYHm96qemDR2gRwFZ96HTeOoaKJ/MUjHFV4HMU3zT40jh5uF +7s78btDBqmPK64+jB/f3u3LFu8Hd+vl9RUsspC/9dunfJTeoaF37vzNPWUhx +0GPgjedxeFAdfM45lYVG+E4euDF8HHw748NDXVioO8Xa3cyeBqOmKGeLFgtl +hOXyhXTToPT3+xguPhZqbFpecrdwB3Kyq8j3G4nWO0E8td4dmP+edE1/RSK5 +jS+6NjW6g7RLX4gstmaHlQRvkzveQD7/Fb8kka3Bsbt9ze7Qe0Ayo6WNRBmb +QttPv3SHHLG7Db+ek0jq0731bX3u4LRoPhr2jERKLuJZTgv4+zqF8rJGEum7 +TRbFadFBiTslak0FiW5fmw6y1qHD0vWUl2XlJNrYM2sorkeH3pusY/bYk6YL +74p20YHV9tjmVhmJ7y+OVR1GdHjzaybCqJREggtCjsIH6bBtJO5tcjGJRpK1 +1+b60CFAxO+qQyGJDr7QfefhRweCZ3faauwmjp25mgF0mHuc+OZhAYmuBRlq +Pw2mg1RXuYIYtrWj2fHRSDpc7dVY3ZdPojolx7qtCXTYvWqx/0QeiVIaojxr +b9PB++yD0qbrJPKhZOqHFdGhxYbZegrb8m7lWr1iOiQNcsnvwF6XybxbU0qH +5ieceQX/I1FcoA35sIoO0q+2NKdcI1GUqtLJ6qd0aF/bmeqXSSKvzHbv+5/p +kJ548KT7ZRJZCDINAgfpsFok6qsS9j9xHAKUr3Soibt3g5lOImagdmnlKB0o +1E0DXtjHrXMnKsbp8LrIMTw0jUQOPEG+5T/pgDq/W/zvEonMgqT8S8QYINtm +r7cxiURPcy/sS5dgQGEXR2R/IokMOmaVwqSwJ+/y52JrKrf3G8syQKJxadNW +bMkPkcb/KTPA7MDtmb0JJGLt/CS2TpsBpzRGTyZfJNElzrxHHnYMkLKzuGsf +h9evwZ9lZc+Anpe6r5WwY4+FBVKPMKDCzgDmYkkUVmWzZfkoA2g2CSIZ2MeJ +VWlXaQzoi7D0+3CeRNRXNHprAAOmtvz85X2ORB/SlPkUUxnQVGvk2xNDojIk +cGIsjQHLxj2C5dixE3MtpZcZwHQ+OJeATbFoidbLZIDcvHiKMXYKh/usVQ4D +XsYN/K6JJtFev7z+sBI8f03ai9LTJJKRuahjWIb7s2tbTTL23Cu/y1wVDPgR +2sDywc5XQVYpDxjQmFSjqIH959OnJ7fqGdB5UbOrKopEVZbSRZ1tDJBvCtn4 +OpJEiT85eTJeMeAcK8quEptWRB537GAAf+vpD1ewN3DXS490MSD3hU+ZK7Z3 +g8OlpV4GmLPWZ/2IIJGi2tVQpVHc/5m8ozuwf3443fOdyQCHRY/vktjdcQzN +8jEGqIepP+LEjh7SIvXHGVC9UEV9H06igawe5wNsBqTSHjmdxk5fLWQasYoA +w8zxnIEwEjXOfjoWzEXAR+KueSv2t0/Fgb48BMT/RzevwDaoMsmjrSXg53if +RTw20y3s1z4hAlrnHx3Sx95gaSpsKkLAgkFYmQr2Ll1hVSRKQHU41WUjdqpA +yWGqJAHDw6WPp0/h8fovldLyBPgX1iWUYhOFJW2iigSMt5/LyMZOTQ3/sl6Z +AIdv1nPJ2ExCRIBblYAXI9PVfivjImYnxjUJ2L+WtkcXu/6vSAyTQkDWlPkv +VezR74NXBrUIyAzX4pPB3vkk4tk7PQIGdaXUubFHvMtkHwEBJ+yUw3tD8f3h +EKldY0SAib3OcDu2vrG5ZaUJAfyOVreasVMkv4YXmhNg9ydZuQy7lrs8NXcf +ro9Z860Ae3gq8s41SwIsaGPL17H1nou+T7Yh4PMVZ0oiNq3yKyveloA/ifmW +57GTb5RznjtEwN+0ycZI7K+BFpqhDgRcMLiR64Mt4CJm5n+UgCTRv0IeK3kW +w85eTgQc9/AYcFuZv/l0oosbAbbdNj72K/Ws25fvQCOAS/iNrs1K3rxYnS2d +ACd5R4f9K3lDw12WBAFnN3zv3LuS11HB3HuCAP3pM9eNVuqrOf0HvAgw6JZr +MlzJz9+3cZc3rr+pTWfXSn6y+FZtXwJ0Xobx6K3kh43s0fAnQOSXppo2Nj+9 +0kE1kIAdrjMFFGzdA9F+isEEtP+tC9Fcyd+5/4JMKAEbvybc2I6dpCyRLR5G +wNR6uqQ69sMNow+EIgj4lmw6vhV76FflK74oAnzdNERXzP8teognmoDLCfIZ +atg6b/cvLscQYC64yXPF/wd8MA/p "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "PlotRange" -> {{0, 180}, {0.8269245198175179, 1.201351686926932}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8269245198175198}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7532,21 +13347,20 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.8269245198175179, 1.201351686926932}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.8269245198175198}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7560,105 +13374,105 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwV1Hk0Vd0bB3CZGgyFzJG5lxLdayzZT4ZQSKQoU9e9R2SeMkUD6TWFFP3K +kCjJWGRMKUoRSglvA+Gmc82X0OS3/XHWWZ+1z/6uZz9n7y1P87NlcHJwcEzg +Z+Ud0Ll9S013p2FW/Ghiox4bGU4WaNNMSpDQdW/vFQ/m6mQomTQis79cgiu2 +ob/m5ae2oneN9/wbsCvDYp7xmHQgadI9ox773+cST2KK3yC4uS28DruuOyDn +N+U9kuXh3VyLTQ68igpv6EMOMB33EFtqVPHYD+OPaH8cq7QKe/9UlH5Qxxck +Kbh49T5202+SL6x4COVsEttTgd17Vjzyoe8wivxpWlKKPclrQs5RRpHwUnxf +MTZvkr8jdYGJwgM+tt7BlhXKbgtoGEOXW4yDC7CtpX/cnjQeR3yFlhuzsYk8 +BTH1NZNoWGqK5xp2jPKBuJMdU+iowe3aDOw+8Xc7gotnEBQdOp6ITT/q5Xk5 +aRYpSloduYA9fYPj5n1fNoo+5yR4FnuNgvqGGco8ujf49HEIdgb9mdkG0R/o +k750vR+23B3HGI2FH8jsUHKIJ7betguTPg2LqIRs1nDCPqHzpYM0/o1c5WIr +DbHnwkK416n8QW+6mqt0sM808BmorvmLQkzlwrdjZ4HePY+OZfQmy9hUZqW+ +wjaTwOJVMK1ixFrQZaPi55cHz0pzAr9kwcIE9vQ3l6i0JE7Y3arROowdpTb/ +oMKXC2odXt7qxM4ol1ecovBAe4ia303sge7xpr+3eMCbfzn2CrbcbM1RQVFe +8EFrnP7FLtGyTldf4AXT6CYrf+yWuohV3g1rYI8qE+3Cnn/W82XMmB8GO665 +teqwkbAl/4bIJn5g6+dQqrA135mAgL4AjD6er8/H9hqpztuxXRCm9Ismo7H9 +OTs0d/NvAMEd9K9U7FGFspm4H0IQbF7455I27g/xam0XVRguu8rrRGBz3mPK +SwQIA5OUUaZjy1E32xazhMF+S6GKLvZR49T7nYMi4MprXtuvxUZd7oFB4u2i +4Ok7KCGE/flOSqLbGjG4rLlU/4PKRuOs4lt3TcVAz/aVyEfsdcHDPbueiMGo +bOH3QmyT2ENabtXi0CV6T0UHu75AZ74oVxKcs5K+m1PYqGD0Z+jOYBlIVjpZ +qavJRub28Z+DSmVAsVvrkhj2eIvI3lKmDLifyFSf12AjrYJtonKOsrBPWa+k +EruF5vKAx3AzJM25VG7Bnp0aPDV2Xg586jZ+Wb2djUR8TKoeWClA2qLNWNZW +NmIWrDth46UAW2dZQ37YtR+7pScuKMA6VtWNvdhOls7nVZ4ogFbsqD1bDde3 +NdT2GkUR6m7bfbDA1iLvTEeLK0G3z3pp1j9sdMiDT33fkDJUy891/FVmIxRq +TznyRxn0gmrHO7HV4nJ16ZIqUGTa1p2DzXGLahR9UAWiIoZGd2OXfj525H6z +CtzgzjYJV8Ln83DJWan8LfDLlugfUcD1mVj1kjRVkByWSLy0mY1u2WX+txCt +Cs28P5EDdgptaJD7uirEUsfr5LDpZ0JYsj2qYKQg+6dClo2EGrM57IzVIFox +qLlTBu8f6qRag+JW6N/VabYszUbSCpdiEke2QfwbvigtCTZqTJhTXeJUB77T +uy9Ni+N+sB3fEfLqsGyz2aUEO6dFSdXIRR3SzkhqKGIreNS/XfygDuNOczkC +Yni9JaPKRPt2CLrY0vRehI1kpGUJOUdNaM+9Y0Jdz0bbCoP5fyEKNLKlqpV5 +2IhGPz+vbk2Br99rSnu58XlVTP/s5kSB/SMKPvHYXPnlFc/DKLBz6CKMceHz +lkMeSq+kQP/OvJ13OPF9muWWrapIBaFJr1gpDvx/Ey23O/BqgWCH6oPen7Po +ZqCSTXWHNqzmF6y5MzWLukORbmyhPuxo/2x8/t0sknd5b+3svRt4bp8V13w4 +ixjLD8tkwgHKNo1bvL86i8RZtavFaUZg+vH8P00BsyiYavAxXc0ExkLFRU5Z +ziLaxO82EdIUFoJ6eMqUZ1GpUdDq3C4zeHEuMMllaQYVzHk1l2RYwLSUKY3a +OYMW90i8bonZD/7dmzfUZc+gTxxcM0PHrYAIrjvY4D2DfDf5pZ5VPAAJglZH +1hvOoDLPtidX4mzg51vTVXfWzaAItuTCVs+DINy2YKIxMI3m9+09/MLVFsba +2R6ehdNI/1jantGDdmAIouLXA6bRW8lsrxbqIZA+cnX5zJ5pJHX7fGPRP/Yg +qnu4r0dgGtUOqllaCxyGz8aepQGNU0j23bRH6MRhMOPXWC50m0LUK2kltwaP +gIBYrYry8iTK5mZvT3/mAP0BmgaetyfRwz0aA3F1juB88pg6p8UkytJNEPpd +fBRcM/1NGNMTqOu/wgvUpGMgm6/7vS5vAlVb3VDyP+MEsVwHz722mkAzPnYc +vnRnqGpVetnLNYHm96qemDR2gRwFZ96HTeOoaKJ/MUjHFV4HMU3zT40jh5uF +7s78btDBqmPK64+jB/f3u3LFu8Hd+vl9RUsspC/9dunfJTeoaF37vzNPWUhx +0GPgjedxeFAdfM45lYVG+E4euDF8HHw748NDXVioO8Xa3cyeBqOmKGeLFgtl +hOXyhXTToPT3+xguPhZqbFpecrdwB3Kyq8j3G4nWO0E8td4dmP+edE1/RSK5 +jS+6NjW6g7RLX4gstmaHlQRvkzveQD7/Fb8kka3Bsbt9ze7Qe0Ayo6WNRBmb +QttPv3SHHLG7Db+ek0jq0731bX3u4LRoPhr2jERKLuJZTgv4+zqF8rJGEum7 +TRbFadFBiTslak0FiW5fmw6y1qHD0vWUl2XlJNrYM2sorkeH3pusY/bYk6YL +74p20YHV9tjmVhmJ7y+OVR1GdHjzaybCqJREggtCjsIH6bBtJO5tcjGJRpK1 +1+b60CFAxO+qQyGJDr7QfefhRweCZ3faauwmjp25mgF0mHuc+OZhAYmuBRlq +Pw2mg1RXuYIYtrWj2fHRSDpc7dVY3ZdPojolx7qtCXTYvWqx/0QeiVIaojxr +b9PB++yD0qbrJPKhZOqHFdGhxYbZegrb8m7lWr1iOiQNcsnvwF6XybxbU0qH +5ieceQX/I1FcoA35sIoO0q+2NKdcI1GUqtLJ6qd0aF/bmeqXSSKvzHbv+5/p +kJ548KT7ZRJZCDINAgfpsFok6qsS9j9xHAKUr3Soibt3g5lOImagdmnlKB0o +1E0DXtjHrXMnKsbp8LrIMTw0jUQOPEG+5T/pgDq/W/zvEonMgqT8S8QYINtm +r7cxiURPcy/sS5dgQGEXR2R/IokMOmaVwqSwJ+/y52JrKrf3G8syQKJxadNW +bMkPkcb/KTPA7MDtmb0JJGLt/CS2TpsBpzRGTyZfJNElzrxHHnYMkLKzuGsf +h9evwZ9lZc+Anpe6r5WwY4+FBVKPMKDCzgDmYkkUVmWzZfkoA2g2CSIZ2MeJ +VWlXaQzoi7D0+3CeRNRXNHprAAOmtvz85X2ORB/SlPkUUxnQVGvk2xNDojIk +cGIsjQHLxj2C5dixE3MtpZcZwHQ+OJeATbFoidbLZIDcvHiKMXYKh/usVQ4D +XsYN/K6JJtFev7z+sBI8f03ai9LTJJKRuahjWIb7s2tbTTL23Cu/y1wVDPgR +2sDywc5XQVYpDxjQmFSjqIH959OnJ7fqGdB5UbOrKopEVZbSRZ1tDJBvCtn4 +OpJEiT85eTJeMeAcK8quEptWRB537GAAf+vpD1ewN3DXS490MSD3hU+ZK7Z3 +g8OlpV4GmLPWZ/2IIJGi2tVQpVHc/5m8ozuwf3443fOdyQCHRY/vktjdcQzN +8jEGqIepP+LEjh7SIvXHGVC9UEV9H06igawe5wNsBqTSHjmdxk5fLWQasYoA +w8zxnIEwEjXOfjoWzEXAR+KueSv2t0/Fgb48BMT/RzevwDaoMsmjrSXg53if +RTw20y3s1z4hAlrnHx3Sx95gaSpsKkLAgkFYmQr2Ll1hVSRKQHU41WUjdqpA +yWGqJAHDw6WPp0/h8fovldLyBPgX1iWUYhOFJW2iigSMt5/LyMZOTQ3/sl6Z +AIdv1nPJ2ExCRIBblYAXI9PVfivjImYnxjUJ2L+WtkcXu/6vSAyTQkDWlPkv +VezR74NXBrUIyAzX4pPB3vkk4tk7PQIGdaXUubFHvMtkHwEBJ+yUw3tD8f3h +EKldY0SAib3OcDu2vrG5ZaUJAfyOVreasVMkv4YXmhNg9ydZuQy7lrs8NXcf +ro9Z860Ae3gq8s41SwIsaGPL17H1nou+T7Yh4PMVZ0oiNq3yKyveloA/ifmW +57GTb5RznjtEwN+0ycZI7K+BFpqhDgRcMLiR64Mt4CJm5n+UgCTRv0IeK3kW +w85eTgQc9/AYcFuZv/l0oosbAbbdNj72K/Ws25fvQCOAS/iNrs1K3rxYnS2d +ACd5R4f9K3lDw12WBAFnN3zv3LuS11HB3HuCAP3pM9eNVuqrOf0HvAgw6JZr +MlzJz9+3cZc3rr+pTWfXSn6y+FZtXwJ0Xobx6K3kh43s0fAnQOSXppo2Nj+9 +0kE1kIAdrjMFFGzdA9F+isEEtP+tC9Fcyd+5/4JMKAEbvybc2I6dpCyRLR5G +wNR6uqQ69sMNow+EIgj4lmw6vhV76FflK74oAnzdNERXzP8teognmoDLCfIZ +atg6b/cvLscQYC64yXPF/wd8MA/p "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.8269245198175179, 1.201351686926932}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.8269245198175198}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7668,7 +13482,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5012481131960849}, + AxesOrigin->{0, 0.8269245198175198}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7696,7 +13511,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8269245198175179, 1.201351686926932}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7704,9 +13520,9 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991342629715925*^9}, + CellChangeTimes->{3.991342629715925*^9, 3.993920600506605*^9}, CellLabel-> - "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] + "Out[139]=",ExpressionUUID->"a15df27c-0bb2-4ea0-83cb-b9ac463c35cc"] }, Open ]], Cell[CellGroupData[{ @@ -7769,156 +13585,162 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991849950722357*^9, - 3.9918499540026855`*^9}},ExpressionUUID->"1ea503b1-33a1-2744-a92d-\ -2e1269faf5ed"], + CellChangeTimes->{{3.991849950722357*^9, 3.9918499540026855`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.403596484793761`*^-268\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 73, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993920600665547*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"1063fef0-4503-4bb8-ae44-1cd2a128f6d9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3675485175620362`*^-280\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 74, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.9939206006729507`*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"34013681-708d-49ac-b3fe-0a89610cb42f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.6468714808153428`*^-292\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 387, - 405, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299467087`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 75, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993920600679433*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 387, 406, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629956772*^9}, - CellLabel-> - "During evaluation of \ -In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 387, 407, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629966284*^9}, - CellLabel-> - "During evaluation of \ -In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +In[140]:=",ExpressionUUID->"ed8e2b9f-e7e1-40b7-8d3c-7fe981d5b049"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299753895`*^9}, +during this calculation.\"", 2, 140, 76, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.9939206006864033`*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +In[140]:=",ExpressionUUID->"a0a6015f-cf2d-4d4c-b075-cc52b9b2da22"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VdsbB3DRYE6GOpkdZ5/jmEmEc3pfKjJcIpquUMYiyhgNhhIaJEoS +ihDn7IgblRShFG6llDEN0uCWIUOG5Ld/f+3n8+znWcNe3/WutdV2Bzv7CAoI +CCxZICDw/+dk39NGxqmCtfoL2v5Z5mW8tj2XFmXRGQ+niNdlrGRZQLnnu2md +aeCasCZ8OokBEZt4HUKd+ZBw3RHfJhnBsqEVadMdFVCw8HxTddJ6eFfjEDze +UQ835EBmW5ILWDEG3452vITE9iPf3p/whukOkwsjHR9Byc55+dK4MGhYd72g +LX8M7ozUJPRbJoDiu7ufd2vPgdTsC1WDbWdBNtCDt2SdEPaaOGgmRZ+HNAOr +ew6uwqg0ofaGOHoJujL160alJHBrXndf2mgOnCqIeS64chkusLmn+46TByvO +9yen58hghbNSfbXdNUh0sVn7clIOY5IaCWeJQgg1zfN4Gk/DrdEtdk0NRbB+ +eCY6qF8e1/nRg1O0iyFq43nNh9/lke2YYVFpUAyleTrdMpPyuIrQZXUZFwPN +xdP0rrACjrnGatIsiuH7nUe/hHQV0DbrmXCoazGkx6eGXTqogJ+HZ/suHymG +j3LMoEYJRbzQcfrL7ZZiiOM47ZJfo4RhpaJCYh4lsNE996eJpRIaKolvbvcq +AcnY/4652ivhPxoZyln+JZDdkFCU6qmELx3dWQohJXDHtvq/xclK2OJ0bfrn +8RIY2aYeMdalhLVLG0OmS0rAPXziZOshZbzeERjsOVoCZqWXbh2tVUGn14yh +lHAerO94Njf0RAXPdh5QXRXFAweBhdYeL1VQI6vEvP0wD7ycg7pgQAVNuuu1 +JY7zwOqQWkzsIlXseqMyvT2NB/tVJq9ZaKliWO+ZNR6lPGj0u/KjIUIVs31s +dtE+8cDmt6n04UOqmGChXL79Cw+epbYbG8WqoneV9eDFQR503RWJLUhWxT/Z +rTSxUR4MiYVJJ2Sroupibf/WOR7Qbm40sapXxRf15/qql/MhcGo09omEGg4c +PlVtbcUHswO+yz9Lq+GC0Af9XjZ8EB7s5gvR1LB3Jz34sD0fCnsa3qylq2H0 +Z8Ub+c586HtwQbvSWA3zhfyaG9z54Jhg2pnnoYau05rl2yL4YCgdp3eoXA1j +Va6nPMvng8CpicbMKjVMXjm2PbKQD8+E9u6ouqeGgk0DZxSL+RAw4Zww+kgN +C/vr9N1u8KGgk9Hj162Gv+8d23PzNh+WX3lywkWIjrR8t36yhQ/TWlJ9Oq50 +HNTbJjA1wofJHPm4VTvomGS1gMYY48P4UoJh6kHHvtbaevsJPgyNme5dv4eO +C5nNL9On+fDxntfkjiN0/Dve5fPUAhKa7W5LJhXSsWF/GEtFmoSm+w/Lz/Do +aOTVmykrS0KjXqtLehkd3yr05C9eTsIDmQ9ZuXfp6OYtG/9+JQkVPaKsyn/p +eKHiXWSAGglZAe7wcYJO5dsmo0+PhItv/T9+maHaK4t6kGNAwnnH0IQf83T8 +0rI3YfsqElJWJbVMiajj77d6o4+NSYifLd+6VFkdHYzb7KK4JAScWrSfY6WO +wde/BHBsSeDwyasZGepoEukUCLtI6FHlX9lwWR31LxyIOLybhOiMktzxK+q4 +ucs9u8qLhNtxRdnOJeooKmfEpfuSYLjtaqZkjTqSc9/evtlLAnvR+dQTH9TR +p1J0sjKUhCfRaWdXf1bHj3zDH41hJPiOpKZ8GlTHKAne4rZwEgp6zpy2HFfH +6XMm+e8jSVCtSEz6s5iBq7ZWJ749RMJyj0OxEdoMfFLL2edwjITK9qgYwoCB +LbJTNXrHSXCxPXi0fTUDRe9NrZZMICFtdfhhQ2Bg83RGYf0JEiTEgw8OOTGQ ++3AmUeQkCWTcvsicLQy8LHZOt52y7a+ACPu/GVT+pAWzT5GQ9NE/jOfNwOiR +UgP1MyQsvLt7v28kA+Mv76lbmkrCNd1dwXKHGdjG9OtpoGxZ4BHUGEv1f1SK +FX6OhJizboH0kwwUsXZ0fp5GwozPFv++bKp/5Z+Ldl8gYVTa1nNLPQN9Ijoc +FmSR0BlIf7G3iYGdr5UFz1OuezwDMa0MLPCO2K9+mYTUaL5K8RsGrrX+Grsm +mwT9j+LvpgcZ+LtwMt48lwQaZ8BBcoSBvX+6VW9RFsi4/4A+wcC8p4Ix7Csk +PLcJyrWbZ+C44sOjoldJCCp/vjNHhkD20ou5hXkkbBEr/recRmCWq4HTwnwS +1vrEch8rEdgS4vvUg7LESgOlYRaBpYe2SkhcI2E8ROSMkA6ByUPB3e6Ue1s/ +/F5hSGDnht7gG5TJ2LRe5FDt1wZPYgGVz+699q4WBNY++/U1gfJho3U1e6wI +tM+5UNRE2e7r2OW0TQTmb+5OsCik8mTZKnbdlcAtCZ+LoyjLZxccureDQD2R +V5dKKQ86uv79yZvAkBSlr5JFJLws0WmZ2kPgjNaAlRnlaqHF5hLBBFpu9ozY +TTl/Zx9PLYzAGPaGyETKyber5I2jCLzoZmtbQnn/srMnbY8S+JjOGmmivC3A +b8b9GIE7zdL39FPGR7A3NInAXd+sbs9S1lChdSeeIZA7N9MldZ0EqagRm+w0 +ajzN/i/plKdePrl78yKB1tq2eQaU32vnsR9lExh0fLs1l/KTE1GXuvIIrKl2 +erSB8s33TiJDRQS2coYU7ChnmmlGCZIEVs0N2v1FOfa84Lfl5ZTDF26xp+w3 +1L1Nq4rA7rxfZhspO2z85wncI7BcKH4WKRvnn1rjUkfgz6u7Mo0pK//2KvZ/ +RKCJkKs0m/LiLRzakWYCL5ko7KVRHiqTTTr3nEDfZ6FXF1J+I/LjV2E7gU3d +ylU/qPk+8HrkV91FYOTPXv4rykX3czqe9RG4Vyc4vopyyooI6/5+AoOJi2YZ +lCMOONz+9ZXqf2L56xDK7i1MlvgQgSnm5c72lDcQ8xmqYwR2ybBv0Slrx3Qs +Xj1F4FdFy5kJan1lu8oibOYIVAyvIx5T/nTac0vIEiY+ExPQ30k5aFCbri/O +xBMrjX+xKP+ynv7xQ4qJu5a9EB+h8iQqlJawR56Jl0cqiYP/z5+nuxNLhYmS +7zdorqGs9EBTaUCdiZynD2MmqLzqRzXc8tRhome5iKo/5eo3Z2OVDZlYVa4Y +qER5nZGbfa8xE8VLS8ReUPthy/B4/1ZkYg6/wVqH8hEfpozjZia6VYg+bqL2 +1+KGn33i25iYNTFX60c5VbWW1+zGxD/tmdKLrv6/3m21tPJloqOiV6MJtT+b +nZIPcKOo8bTdCDySQ9WzMlfu7BEmTh+AtcKU34rTRe7GM1HE+/6+VGr/jzRV +XzU6zcSLW1jfMqn6sHzt9+daV5iIPb7eJy+RcPXyncvfrjGxa1RsjQBl9vRx +v+vFTFzAmwoKzaTq/S2leXoFE49Y7hRxvkiCl6ajrvwjJu7RdREaOU/lcXnF +aeH/qPFKqhaWnSXBLOzotsfDTNTUlZ2fTSGhoc2WcXyciYVhG5s2UH5zuv/e +/BwTwcW8sO00Cb8F5f6blGKh2vMPvOZkEmyGI20GjFlY1vIn2pKq34oGyieE +OSy8kT1/bHM8lb+QxnotCxZOVEhm7Iqj1mtSihNix0LC809nWAwJfXMluvMe +LLxS1zwWSZ0HIeK9MiuTWThzospuNISE9Q7xmzgpLBzyWOLy6gAJK1I1znik +s7D8H8Owiv0k1MiELy7KYWFMTPe8XxC1PgqS04YVLPSNaHO/uYc6X9nYZ9/D +wrpHj5fe9iAhMOCz/P73LFymZrMkwJ0EuHF6a/oAC3mnegjFnVQe9btedA2z +cGmLWG/4DhJ014Q0+C7UQGP9UuslrtT3sSoojtXRQNGQ3ol8GxK+ewmH3orR +QIV9oamN+tR8c9ffrz2ugRNSAgtY1Hk+3BW7pCVZA4WzndpO6JDw03H68od0 +DcyqlbuwVpPKt/lgo2SxBnatH29IUSdBULZ1+Z4XGngo5EpGhRwJKxvPViup +sVGx0rhXcooP8vMtC9lMNtr2ixEqk3xQNBN2NNJi4y3v1u/a43xQvhnbb7ua +jd6xS+aQuu8wsg+IH7Rh4yGDtRy7r3zQD9vs/vIAGzsUHOW+dfCp/4UVgon1 +bORk8TlOlXz4ttu62LyJjWyxma+m//DhdF6kw0gLG0N+bz+mWs6HV8qdWdtf +s1H2eF7CF5IPnisvrdL+ykbX97kdbgV8iJJU8GmT0MSPip6BA2l8IKeUnyhs +18SasGVmYUF8kP6XmXJzWBM7fe4M31bhw59h/cLmcU38+4yT0H+KfBiUNq/5 +NK2Jy2YXfVWQ50P9NsdB2kItvPtWmx0py4fQT5FWcTQtvCV4oERGhA/ts0/+ +OFlo4fljG7IGqPvsRc2A4LE0LSybsBeeeMgDxaSyTcbG2hhPP9st4MaDTC1T +KRk/HeRYB7y+llwCzfIWq8fO6WKJ15YBdmExmCnWp+q90UN/kc94KPM6SArl +h+2K10dn5ZdR02eKQDlOhbOdaYAB61f5iXsWggjhVuXcZIBlar7G7roFoMtd +WRa50xAVpyrHNolfg5A+6QZbgVW4Kq6x5uHzPBgeO+1qk7kKX5wtohmXXAVr +vcdZNjpGaPXhUvPJFVfgwZj57K9nRthiIrEI72RDkLZhd5vPalx951LceGoW +cIe827eLGOOxvw2y6hwzYQOD9pdEvjG6mSuYPrfNAI3YkwfrTUxwQjZZtdn3 +PGj6mNYS3SYYTNN6QwtPA58H/sdvHViDkWSWcHhtKtRebfcelTNFNwX1PYWL +U2C8eP6X3m1TNOn9/m5d70nwIvgiWX+Z4dbWgceuKkkwqpluXDFihnW030nx +uxPgTsHsh4kkczSv1PSPET0GO9aro7kyBzdk0JpjhmNBYV/iXd06Di7I4dzV +uH0E5EQDy//aysXNOT25342ioWDdkeiR7Vz0ds+3F2FGg+GRlHXpblycNeeV +aq+IBoeRm687d3Ex12JXUuJ0FJx4MzHtFchFO8NznmceRMFUfoxldBwX4z2f +yXTaREG3efqrIj4Xy/74j7j5HAT/8IJsm1Iu/nvS/Yb91oMwWVrp8/0mF4tD +Zz5Z2hwEaXrnL4MqLn670F1jqXMQ7ISVFO/XcTGTUOk9OxEJNe1F3q9ec7F8 +9cu17omRYCt5Ryeik4unppqab0VFQqf100laDxf1f8jdWhYYCePV/yW5v+fi +o9duF/s2RYJOnv6Nb4NcbE2ZCmyUp9rrtog4/YOLpndlbv4lQbUnuxn0RriY +LvrI4u18BPgmhreFTVDvOcdtlg5EwHjdiawVU1wkT/XdK++IgPiZi17VM1zs ++uAXvqM5AqSMSrR3znExr2dDmMj9CMjdVz0xP89Fl66cqgdlEfA/vVaCZg== + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7932,115 +13754,117 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV13k4VdsbB3DRYE6GOpkdZ5/jmEmEc3pfKjJcIpquUMYiyhgNhhIaJEoS +ihDn7IgblRShFG6llDEN0uCWIUOG5Ld/f+3n8+znWcNe3/WutdV2Bzv7CAoI +CCxZICDw/+dk39NGxqmCtfoL2v5Z5mW8tj2XFmXRGQ+niNdlrGRZQLnnu2md +aeCasCZ8OokBEZt4HUKd+ZBw3RHfJhnBsqEVadMdFVCw8HxTddJ6eFfjEDze +UQ835EBmW5ILWDEG3452vITE9iPf3p/whukOkwsjHR9Byc55+dK4MGhYd72g +LX8M7ozUJPRbJoDiu7ufd2vPgdTsC1WDbWdBNtCDt2SdEPaaOGgmRZ+HNAOr +ew6uwqg0ofaGOHoJujL160alJHBrXndf2mgOnCqIeS64chkusLmn+46TByvO +9yen58hghbNSfbXdNUh0sVn7clIOY5IaCWeJQgg1zfN4Gk/DrdEtdk0NRbB+ +eCY6qF8e1/nRg1O0iyFq43nNh9/lke2YYVFpUAyleTrdMpPyuIrQZXUZFwPN +xdP0rrACjrnGatIsiuH7nUe/hHQV0DbrmXCoazGkx6eGXTqogJ+HZ/suHymG +j3LMoEYJRbzQcfrL7ZZiiOM47ZJfo4RhpaJCYh4lsNE996eJpRIaKolvbvcq +AcnY/4652ivhPxoZyln+JZDdkFCU6qmELx3dWQohJXDHtvq/xclK2OJ0bfrn +8RIY2aYeMdalhLVLG0OmS0rAPXziZOshZbzeERjsOVoCZqWXbh2tVUGn14yh +lHAerO94Njf0RAXPdh5QXRXFAweBhdYeL1VQI6vEvP0wD7ycg7pgQAVNuuu1 +JY7zwOqQWkzsIlXseqMyvT2NB/tVJq9ZaKliWO+ZNR6lPGj0u/KjIUIVs31s +dtE+8cDmt6n04UOqmGChXL79Cw+epbYbG8WqoneV9eDFQR503RWJLUhWxT/Z +rTSxUR4MiYVJJ2Sroupibf/WOR7Qbm40sapXxRf15/qql/MhcGo09omEGg4c +PlVtbcUHswO+yz9Lq+GC0Af9XjZ8EB7s5gvR1LB3Jz34sD0fCnsa3qylq2H0 +Z8Ub+c586HtwQbvSWA3zhfyaG9z54Jhg2pnnoYau05rl2yL4YCgdp3eoXA1j +Va6nPMvng8CpicbMKjVMXjm2PbKQD8+E9u6ouqeGgk0DZxSL+RAw4Zww+kgN +C/vr9N1u8KGgk9Hj162Gv+8d23PzNh+WX3lywkWIjrR8t36yhQ/TWlJ9Oq50 +HNTbJjA1wofJHPm4VTvomGS1gMYY48P4UoJh6kHHvtbaevsJPgyNme5dv4eO +C5nNL9On+fDxntfkjiN0/Dve5fPUAhKa7W5LJhXSsWF/GEtFmoSm+w/Lz/Do +aOTVmykrS0KjXqtLehkd3yr05C9eTsIDmQ9ZuXfp6OYtG/9+JQkVPaKsyn/p +eKHiXWSAGglZAe7wcYJO5dsmo0+PhItv/T9+maHaK4t6kGNAwnnH0IQf83T8 +0rI3YfsqElJWJbVMiajj77d6o4+NSYifLd+6VFkdHYzb7KK4JAScWrSfY6WO +wde/BHBsSeDwyasZGepoEukUCLtI6FHlX9lwWR31LxyIOLybhOiMktzxK+q4 +ucs9u8qLhNtxRdnOJeooKmfEpfuSYLjtaqZkjTqSc9/evtlLAnvR+dQTH9TR +p1J0sjKUhCfRaWdXf1bHj3zDH41hJPiOpKZ8GlTHKAne4rZwEgp6zpy2HFfH +6XMm+e8jSVCtSEz6s5iBq7ZWJ749RMJyj0OxEdoMfFLL2edwjITK9qgYwoCB +LbJTNXrHSXCxPXi0fTUDRe9NrZZMICFtdfhhQ2Bg83RGYf0JEiTEgw8OOTGQ ++3AmUeQkCWTcvsicLQy8LHZOt52y7a+ACPu/GVT+pAWzT5GQ9NE/jOfNwOiR +UgP1MyQsvLt7v28kA+Mv76lbmkrCNd1dwXKHGdjG9OtpoGxZ4BHUGEv1f1SK +FX6OhJizboH0kwwUsXZ0fp5GwozPFv++bKp/5Z+Ldl8gYVTa1nNLPQN9Ijoc +FmSR0BlIf7G3iYGdr5UFz1OuezwDMa0MLPCO2K9+mYTUaL5K8RsGrrX+Grsm +mwT9j+LvpgcZ+LtwMt48lwQaZ8BBcoSBvX+6VW9RFsi4/4A+wcC8p4Ix7Csk +PLcJyrWbZ+C44sOjoldJCCp/vjNHhkD20ou5hXkkbBEr/recRmCWq4HTwnwS +1vrEch8rEdgS4vvUg7LESgOlYRaBpYe2SkhcI2E8ROSMkA6ByUPB3e6Ue1s/ +/F5hSGDnht7gG5TJ2LRe5FDt1wZPYgGVz+699q4WBNY++/U1gfJho3U1e6wI +tM+5UNRE2e7r2OW0TQTmb+5OsCik8mTZKnbdlcAtCZ+LoyjLZxccureDQD2R +V5dKKQ86uv79yZvAkBSlr5JFJLws0WmZ2kPgjNaAlRnlaqHF5hLBBFpu9ozY +TTl/Zx9PLYzAGPaGyETKyber5I2jCLzoZmtbQnn/srMnbY8S+JjOGmmivC3A +b8b9GIE7zdL39FPGR7A3NInAXd+sbs9S1lChdSeeIZA7N9MldZ0EqagRm+w0 +ajzN/i/plKdePrl78yKB1tq2eQaU32vnsR9lExh0fLs1l/KTE1GXuvIIrKl2 +erSB8s33TiJDRQS2coYU7ChnmmlGCZIEVs0N2v1FOfa84Lfl5ZTDF26xp+w3 +1L1Nq4rA7rxfZhspO2z85wncI7BcKH4WKRvnn1rjUkfgz6u7Mo0pK//2KvZ/ +RKCJkKs0m/LiLRzakWYCL5ko7KVRHiqTTTr3nEDfZ6FXF1J+I/LjV2E7gU3d +ylU/qPk+8HrkV91FYOTPXv4rykX3czqe9RG4Vyc4vopyyooI6/5+AoOJi2YZ +lCMOONz+9ZXqf2L56xDK7i1MlvgQgSnm5c72lDcQ8xmqYwR2ybBv0Slrx3Qs +Xj1F4FdFy5kJan1lu8oibOYIVAyvIx5T/nTac0vIEiY+ExPQ30k5aFCbri/O +xBMrjX+xKP+ynv7xQ4qJu5a9EB+h8iQqlJawR56Jl0cqiYP/z5+nuxNLhYmS +7zdorqGs9EBTaUCdiZynD2MmqLzqRzXc8tRhome5iKo/5eo3Z2OVDZlYVa4Y +qER5nZGbfa8xE8VLS8ReUPthy/B4/1ZkYg6/wVqH8hEfpozjZia6VYg+bqL2 +1+KGn33i25iYNTFX60c5VbWW1+zGxD/tmdKLrv6/3m21tPJloqOiV6MJtT+b +nZIPcKOo8bTdCDySQ9WzMlfu7BEmTh+AtcKU34rTRe7GM1HE+/6+VGr/jzRV +XzU6zcSLW1jfMqn6sHzt9+daV5iIPb7eJy+RcPXyncvfrjGxa1RsjQBl9vRx +v+vFTFzAmwoKzaTq/S2leXoFE49Y7hRxvkiCl6ajrvwjJu7RdREaOU/lcXnF +aeH/qPFKqhaWnSXBLOzotsfDTNTUlZ2fTSGhoc2WcXyciYVhG5s2UH5zuv/e +/BwTwcW8sO00Cb8F5f6blGKh2vMPvOZkEmyGI20GjFlY1vIn2pKq34oGyieE +OSy8kT1/bHM8lb+QxnotCxZOVEhm7Iqj1mtSihNix0LC809nWAwJfXMluvMe +LLxS1zwWSZ0HIeK9MiuTWThzospuNISE9Q7xmzgpLBzyWOLy6gAJK1I1znik +s7D8H8Owiv0k1MiELy7KYWFMTPe8XxC1PgqS04YVLPSNaHO/uYc6X9nYZ9/D +wrpHj5fe9iAhMOCz/P73LFymZrMkwJ0EuHF6a/oAC3mnegjFnVQe9btedA2z +cGmLWG/4DhJ014Q0+C7UQGP9UuslrtT3sSoojtXRQNGQ3ol8GxK+ewmH3orR +QIV9oamN+tR8c9ffrz2ugRNSAgtY1Hk+3BW7pCVZA4WzndpO6JDw03H68od0 +DcyqlbuwVpPKt/lgo2SxBnatH29IUSdBULZ1+Z4XGngo5EpGhRwJKxvPViup +sVGx0rhXcooP8vMtC9lMNtr2ixEqk3xQNBN2NNJi4y3v1u/a43xQvhnbb7ua +jd6xS+aQuu8wsg+IH7Rh4yGDtRy7r3zQD9vs/vIAGzsUHOW+dfCp/4UVgon1 +bORk8TlOlXz4ttu62LyJjWyxma+m//DhdF6kw0gLG0N+bz+mWs6HV8qdWdtf +s1H2eF7CF5IPnisvrdL+ykbX97kdbgV8iJJU8GmT0MSPip6BA2l8IKeUnyhs +18SasGVmYUF8kP6XmXJzWBM7fe4M31bhw59h/cLmcU38+4yT0H+KfBiUNq/5 +NK2Jy2YXfVWQ50P9NsdB2kItvPtWmx0py4fQT5FWcTQtvCV4oERGhA/ts0/+ +OFlo4fljG7IGqPvsRc2A4LE0LSybsBeeeMgDxaSyTcbG2hhPP9st4MaDTC1T +KRk/HeRYB7y+llwCzfIWq8fO6WKJ15YBdmExmCnWp+q90UN/kc94KPM6SArl +h+2K10dn5ZdR02eKQDlOhbOdaYAB61f5iXsWggjhVuXcZIBlar7G7roFoMtd +WRa50xAVpyrHNolfg5A+6QZbgVW4Kq6x5uHzPBgeO+1qk7kKX5wtohmXXAVr +vcdZNjpGaPXhUvPJFVfgwZj57K9nRthiIrEI72RDkLZhd5vPalx951LceGoW +cIe827eLGOOxvw2y6hwzYQOD9pdEvjG6mSuYPrfNAI3YkwfrTUxwQjZZtdn3 +PGj6mNYS3SYYTNN6QwtPA58H/sdvHViDkWSWcHhtKtRebfcelTNFNwX1PYWL +U2C8eP6X3m1TNOn9/m5d70nwIvgiWX+Z4dbWgceuKkkwqpluXDFihnW030nx +uxPgTsHsh4kkczSv1PSPET0GO9aro7kyBzdk0JpjhmNBYV/iXd06Di7I4dzV +uH0E5EQDy//aysXNOT25342ioWDdkeiR7Vz0ds+3F2FGg+GRlHXpblycNeeV +aq+IBoeRm687d3Ex12JXUuJ0FJx4MzHtFchFO8NznmceRMFUfoxldBwX4z2f +yXTaREG3efqrIj4Xy/74j7j5HAT/8IJsm1Iu/nvS/Yb91oMwWVrp8/0mF4tD +Zz5Z2hwEaXrnL4MqLn670F1jqXMQ7ISVFO/XcTGTUOk9OxEJNe1F3q9ec7F8 +9cu17omRYCt5Ryeik4unppqab0VFQqf100laDxf1f8jdWhYYCePV/yW5v+fi +o9duF/s2RYJOnv6Nb4NcbE2ZCmyUp9rrtog4/YOLpndlbv4lQbUnuxn0RriY +LvrI4u18BPgmhreFTVDvOcdtlg5EwHjdiawVU1wkT/XdK++IgPiZi17VM1zs ++uAXvqM5AqSMSrR3znExr2dDmMj9CMjdVz0xP89Fl66cqgdlEfA/vVaCZg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.0559639125035533}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8052,19 +13876,19 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.0559639125035533}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8078,114 +13902,116 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV13k4VdsbB3DRYE6GOpkdZ5/jmEmEc3pfKjJcIpquUMYiyhgNhhIaJEoS +ihDn7IgblRShFG6llDEN0uCWIUOG5Ld/f+3n8+znWcNe3/WutdV2Bzv7CAoI +CCxZICDw/+dk39NGxqmCtfoL2v5Z5mW8tj2XFmXRGQ+niNdlrGRZQLnnu2md +aeCasCZ8OokBEZt4HUKd+ZBw3RHfJhnBsqEVadMdFVCw8HxTddJ6eFfjEDze +UQ835EBmW5ILWDEG3452vITE9iPf3p/whukOkwsjHR9Byc55+dK4MGhYd72g +LX8M7ozUJPRbJoDiu7ufd2vPgdTsC1WDbWdBNtCDt2SdEPaaOGgmRZ+HNAOr +ew6uwqg0ofaGOHoJujL160alJHBrXndf2mgOnCqIeS64chkusLmn+46TByvO +9yen58hghbNSfbXdNUh0sVn7clIOY5IaCWeJQgg1zfN4Gk/DrdEtdk0NRbB+ +eCY6qF8e1/nRg1O0iyFq43nNh9/lke2YYVFpUAyleTrdMpPyuIrQZXUZFwPN +xdP0rrACjrnGatIsiuH7nUe/hHQV0DbrmXCoazGkx6eGXTqogJ+HZ/suHymG +j3LMoEYJRbzQcfrL7ZZiiOM47ZJfo4RhpaJCYh4lsNE996eJpRIaKolvbvcq +AcnY/4652ivhPxoZyln+JZDdkFCU6qmELx3dWQohJXDHtvq/xclK2OJ0bfrn +8RIY2aYeMdalhLVLG0OmS0rAPXziZOshZbzeERjsOVoCZqWXbh2tVUGn14yh +lHAerO94Njf0RAXPdh5QXRXFAweBhdYeL1VQI6vEvP0wD7ycg7pgQAVNuuu1 +JY7zwOqQWkzsIlXseqMyvT2NB/tVJq9ZaKliWO+ZNR6lPGj0u/KjIUIVs31s +dtE+8cDmt6n04UOqmGChXL79Cw+epbYbG8WqoneV9eDFQR503RWJLUhWxT/Z +rTSxUR4MiYVJJ2Sroupibf/WOR7Qbm40sapXxRf15/qql/MhcGo09omEGg4c +PlVtbcUHswO+yz9Lq+GC0Af9XjZ8EB7s5gvR1LB3Jz34sD0fCnsa3qylq2H0 +Z8Ub+c586HtwQbvSWA3zhfyaG9z54Jhg2pnnoYau05rl2yL4YCgdp3eoXA1j +Va6nPMvng8CpicbMKjVMXjm2PbKQD8+E9u6ouqeGgk0DZxSL+RAw4Zww+kgN +C/vr9N1u8KGgk9Hj162Gv+8d23PzNh+WX3lywkWIjrR8t36yhQ/TWlJ9Oq50 +HNTbJjA1wofJHPm4VTvomGS1gMYY48P4UoJh6kHHvtbaevsJPgyNme5dv4eO +C5nNL9On+fDxntfkjiN0/Dve5fPUAhKa7W5LJhXSsWF/GEtFmoSm+w/Lz/Do +aOTVmykrS0KjXqtLehkd3yr05C9eTsIDmQ9ZuXfp6OYtG/9+JQkVPaKsyn/p +eKHiXWSAGglZAe7wcYJO5dsmo0+PhItv/T9+maHaK4t6kGNAwnnH0IQf83T8 +0rI3YfsqElJWJbVMiajj77d6o4+NSYifLd+6VFkdHYzb7KK4JAScWrSfY6WO +wde/BHBsSeDwyasZGepoEukUCLtI6FHlX9lwWR31LxyIOLybhOiMktzxK+q4 +ucs9u8qLhNtxRdnOJeooKmfEpfuSYLjtaqZkjTqSc9/evtlLAnvR+dQTH9TR +p1J0sjKUhCfRaWdXf1bHj3zDH41hJPiOpKZ8GlTHKAne4rZwEgp6zpy2HFfH +6XMm+e8jSVCtSEz6s5iBq7ZWJ749RMJyj0OxEdoMfFLL2edwjITK9qgYwoCB +LbJTNXrHSXCxPXi0fTUDRe9NrZZMICFtdfhhQ2Bg83RGYf0JEiTEgw8OOTGQ ++3AmUeQkCWTcvsicLQy8LHZOt52y7a+ACPu/GVT+pAWzT5GQ9NE/jOfNwOiR +UgP1MyQsvLt7v28kA+Mv76lbmkrCNd1dwXKHGdjG9OtpoGxZ4BHUGEv1f1SK +FX6OhJizboH0kwwUsXZ0fp5GwozPFv++bKp/5Z+Ldl8gYVTa1nNLPQN9Ijoc +FmSR0BlIf7G3iYGdr5UFz1OuezwDMa0MLPCO2K9+mYTUaL5K8RsGrrX+Grsm +mwT9j+LvpgcZ+LtwMt48lwQaZ8BBcoSBvX+6VW9RFsi4/4A+wcC8p4Ix7Csk +PLcJyrWbZ+C44sOjoldJCCp/vjNHhkD20ou5hXkkbBEr/recRmCWq4HTwnwS +1vrEch8rEdgS4vvUg7LESgOlYRaBpYe2SkhcI2E8ROSMkA6ByUPB3e6Ue1s/ +/F5hSGDnht7gG5TJ2LRe5FDt1wZPYgGVz+699q4WBNY++/U1gfJho3U1e6wI +tM+5UNRE2e7r2OW0TQTmb+5OsCik8mTZKnbdlcAtCZ+LoyjLZxccureDQD2R +V5dKKQ86uv79yZvAkBSlr5JFJLws0WmZ2kPgjNaAlRnlaqHF5hLBBFpu9ozY +TTl/Zx9PLYzAGPaGyETKyber5I2jCLzoZmtbQnn/srMnbY8S+JjOGmmivC3A +b8b9GIE7zdL39FPGR7A3NInAXd+sbs9S1lChdSeeIZA7N9MldZ0EqagRm+w0 +ajzN/i/plKdePrl78yKB1tq2eQaU32vnsR9lExh0fLs1l/KTE1GXuvIIrKl2 +erSB8s33TiJDRQS2coYU7ChnmmlGCZIEVs0N2v1FOfa84Lfl5ZTDF26xp+w3 +1L1Nq4rA7rxfZhspO2z85wncI7BcKH4WKRvnn1rjUkfgz6u7Mo0pK//2KvZ/ +RKCJkKs0m/LiLRzakWYCL5ko7KVRHiqTTTr3nEDfZ6FXF1J+I/LjV2E7gU3d +ylU/qPk+8HrkV91FYOTPXv4rykX3czqe9RG4Vyc4vopyyooI6/5+AoOJi2YZ +lCMOONz+9ZXqf2L56xDK7i1MlvgQgSnm5c72lDcQ8xmqYwR2ybBv0Slrx3Qs +Xj1F4FdFy5kJan1lu8oibOYIVAyvIx5T/nTac0vIEiY+ExPQ30k5aFCbri/O +xBMrjX+xKP+ynv7xQ4qJu5a9EB+h8iQqlJawR56Jl0cqiYP/z5+nuxNLhYmS +7zdorqGs9EBTaUCdiZynD2MmqLzqRzXc8tRhome5iKo/5eo3Z2OVDZlYVa4Y +qER5nZGbfa8xE8VLS8ReUPthy/B4/1ZkYg6/wVqH8hEfpozjZia6VYg+bqL2 +1+KGn33i25iYNTFX60c5VbWW1+zGxD/tmdKLrv6/3m21tPJloqOiV6MJtT+b +nZIPcKOo8bTdCDySQ9WzMlfu7BEmTh+AtcKU34rTRe7GM1HE+/6+VGr/jzRV +XzU6zcSLW1jfMqn6sHzt9+daV5iIPb7eJy+RcPXyncvfrjGxa1RsjQBl9vRx +v+vFTFzAmwoKzaTq/S2leXoFE49Y7hRxvkiCl6ajrvwjJu7RdREaOU/lcXnF +aeH/qPFKqhaWnSXBLOzotsfDTNTUlZ2fTSGhoc2WcXyciYVhG5s2UH5zuv/e +/BwTwcW8sO00Cb8F5f6blGKh2vMPvOZkEmyGI20GjFlY1vIn2pKq34oGyieE +OSy8kT1/bHM8lb+QxnotCxZOVEhm7Iqj1mtSihNix0LC809nWAwJfXMluvMe +LLxS1zwWSZ0HIeK9MiuTWThzospuNISE9Q7xmzgpLBzyWOLy6gAJK1I1znik +s7D8H8Owiv0k1MiELy7KYWFMTPe8XxC1PgqS04YVLPSNaHO/uYc6X9nYZ9/D +wrpHj5fe9iAhMOCz/P73LFymZrMkwJ0EuHF6a/oAC3mnegjFnVQe9btedA2z +cGmLWG/4DhJ014Q0+C7UQGP9UuslrtT3sSoojtXRQNGQ3ol8GxK+ewmH3orR +QIV9oamN+tR8c9ffrz2ugRNSAgtY1Hk+3BW7pCVZA4WzndpO6JDw03H68od0 +DcyqlbuwVpPKt/lgo2SxBnatH29IUSdBULZ1+Z4XGngo5EpGhRwJKxvPViup +sVGx0rhXcooP8vMtC9lMNtr2ixEqk3xQNBN2NNJi4y3v1u/a43xQvhnbb7ua +jd6xS+aQuu8wsg+IH7Rh4yGDtRy7r3zQD9vs/vIAGzsUHOW+dfCp/4UVgon1 +bORk8TlOlXz4ttu62LyJjWyxma+m//DhdF6kw0gLG0N+bz+mWs6HV8qdWdtf +s1H2eF7CF5IPnisvrdL+ykbX97kdbgV8iJJU8GmT0MSPip6BA2l8IKeUnyhs +18SasGVmYUF8kP6XmXJzWBM7fe4M31bhw59h/cLmcU38+4yT0H+KfBiUNq/5 +NK2Jy2YXfVWQ50P9NsdB2kItvPtWmx0py4fQT5FWcTQtvCV4oERGhA/ts0/+ +OFlo4fljG7IGqPvsRc2A4LE0LSybsBeeeMgDxaSyTcbG2hhPP9st4MaDTC1T +KRk/HeRYB7y+llwCzfIWq8fO6WKJ15YBdmExmCnWp+q90UN/kc94KPM6SArl +h+2K10dn5ZdR02eKQDlOhbOdaYAB61f5iXsWggjhVuXcZIBlar7G7roFoMtd +WRa50xAVpyrHNolfg5A+6QZbgVW4Kq6x5uHzPBgeO+1qk7kKX5wtohmXXAVr +vcdZNjpGaPXhUvPJFVfgwZj57K9nRthiIrEI72RDkLZhd5vPalx951LceGoW +cIe827eLGOOxvw2y6hwzYQOD9pdEvjG6mSuYPrfNAI3YkwfrTUxwQjZZtdn3 +PGj6mNYS3SYYTNN6QwtPA58H/sdvHViDkWSWcHhtKtRebfcelTNFNwX1PYWL +U2C8eP6X3m1TNOn9/m5d70nwIvgiWX+Z4dbWgceuKkkwqpluXDFihnW030nx +uxPgTsHsh4kkczSv1PSPET0GO9aro7kyBzdk0JpjhmNBYV/iXd06Di7I4dzV +uH0E5EQDy//aysXNOT25342ioWDdkeiR7Vz0ds+3F2FGg+GRlHXpblycNeeV +aq+IBoeRm687d3Ex12JXUuJ0FJx4MzHtFchFO8NznmceRMFUfoxldBwX4z2f +yXTaREG3efqrIj4Xy/74j7j5HAT/8IJsm1Iu/nvS/Yb91oMwWVrp8/0mF4tD +Zz5Z2hwEaXrnL4MqLn670F1jqXMQ7ISVFO/XcTGTUOk9OxEJNe1F3q9ec7F8 +9cu17omRYCt5Ryeik4unppqab0VFQqf100laDxf1f8jdWhYYCePV/yW5v+fi +o9duF/s2RYJOnv6Nb4NcbE2ZCmyUp9rrtog4/YOLpndlbv4lQbUnuxn0RriY +LvrI4u18BPgmhreFTVDvOcdtlg5EwHjdiawVU1wkT/XdK++IgPiZi17VM1zs ++uAXvqM5AqSMSrR3znExr2dDmMj9CMjdVz0xP89Fl66cqgdlEfA/vVaCZg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.0559639125035533}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8196,6 +14022,7 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8223,7 +14050,8 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0559639125035533}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8231,17 +14059,571 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913429049348164`*^9}, + CellChangeTimes->{3.9913429049348164`*^9, 3.9939208898291473`*^9}, CellLabel-> - "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] + "Out[140]=",ExpressionUUID->"1cc93bca-a61d-49cf-abc1-c98782fcb2e9"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ -25a7a01bdd8f"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VdsbB3DRYE6GOpkdZ5/jmEmEc3pfKjJcIpquUMYiyhgNhhIaJEoS +ihDn7IgblRShFG6llDEN0uCWIUOG5Ld/f+3n8+znWcNe3/WutdV2Bzv7CAoI +CCxZICDw/+dk39NGxqmCtfoL2v5Z5mW8tj2XFmXRGQ+niNdlrGRZQLnnu2md +aeCasCZ8OokBEZt4HUKd+ZBw3RHfJhnBsqEVadMdFVCw8HxTddJ6eFfjEDze +UQ835EBmW5ILWDEG3452vITE9iPf3p/whukOkwsjHR9Byc55+dK4MGhYd72g +LX8M7ozUJPRbJoDiu7ufd2vPgdTsC1WDbWdBNtCDt2SdEPaaOGgmRZ+HNAOr +ew6uwqg0ofaGOHoJujL160alJHBrXndf2mgOnCqIeS64chkusLmn+46TByvO +9yen58hghbNSfbXdNUh0sVn7clIOY5IaCWeJQgg1zfN4Gk/DrdEtdk0NRbB+ +eCY6qF8e1/nRg1O0iyFq43nNh9/lke2YYVFpUAyleTrdMpPyuIrQZXUZFwPN +xdP0rrACjrnGatIsiuH7nUe/hHQV0DbrmXCoazGkx6eGXTqogJ+HZ/suHymG +j3LMoEYJRbzQcfrL7ZZiiOM47ZJfo4RhpaJCYh4lsNE996eJpRIaKolvbvcq +AcnY/4652ivhPxoZyln+JZDdkFCU6qmELx3dWQohJXDHtvq/xclK2OJ0bfrn +8RIY2aYeMdalhLVLG0OmS0rAPXziZOshZbzeERjsOVoCZqWXbh2tVUGn14yh +lHAerO94Njf0RAXPdh5QXRXFAweBhdYeL1VQI6vEvP0wD7ycg7pgQAVNuuu1 +JY7zwOqQWkzsIlXseqMyvT2NB/tVJq9ZaKliWO+ZNR6lPGj0u/KjIUIVs31s +dtE+8cDmt6n04UOqmGChXL79Cw+epbYbG8WqoneV9eDFQR503RWJLUhWxT/Z +rTSxUR4MiYVJJ2Sroupibf/WOR7Qbm40sapXxRf15/qql/MhcGo09omEGg4c +PlVtbcUHswO+yz9Lq+GC0Af9XjZ8EB7s5gvR1LB3Jz34sD0fCnsa3qylq2H0 +Z8Ub+c586HtwQbvSWA3zhfyaG9z54Jhg2pnnoYau05rl2yL4YCgdp3eoXA1j +Va6nPMvng8CpicbMKjVMXjm2PbKQD8+E9u6ouqeGgk0DZxSL+RAw4Zww+kgN +C/vr9N1u8KGgk9Hj162Gv+8d23PzNh+WX3lywkWIjrR8t36yhQ/TWlJ9Oq50 +HNTbJjA1wofJHPm4VTvomGS1gMYY48P4UoJh6kHHvtbaevsJPgyNme5dv4eO +C5nNL9On+fDxntfkjiN0/Dve5fPUAhKa7W5LJhXSsWF/GEtFmoSm+w/Lz/Do +aOTVmykrS0KjXqtLehkd3yr05C9eTsIDmQ9ZuXfp6OYtG/9+JQkVPaKsyn/p +eKHiXWSAGglZAe7wcYJO5dsmo0+PhItv/T9+maHaK4t6kGNAwnnH0IQf83T8 +0rI3YfsqElJWJbVMiajj77d6o4+NSYifLd+6VFkdHYzb7KK4JAScWrSfY6WO +wde/BHBsSeDwyasZGepoEukUCLtI6FHlX9lwWR31LxyIOLybhOiMktzxK+q4 +ucs9u8qLhNtxRdnOJeooKmfEpfuSYLjtaqZkjTqSc9/evtlLAnvR+dQTH9TR +p1J0sjKUhCfRaWdXf1bHj3zDH41hJPiOpKZ8GlTHKAne4rZwEgp6zpy2HFfH +6XMm+e8jSVCtSEz6s5iBq7ZWJ749RMJyj0OxEdoMfFLL2edwjITK9qgYwoCB +LbJTNXrHSXCxPXi0fTUDRe9NrZZMICFtdfhhQ2Bg83RGYf0JEiTEgw8OOTGQ ++3AmUeQkCWTcvsicLQy8LHZOt52y7a+ACPu/GVT+pAWzT5GQ9NE/jOfNwOiR +UgP1MyQsvLt7v28kA+Mv76lbmkrCNd1dwXKHGdjG9OtpoGxZ4BHUGEv1f1SK +FX6OhJizboH0kwwUsXZ0fp5GwozPFv++bKp/5Z+Ldl8gYVTa1nNLPQN9Ijoc +FmSR0BlIf7G3iYGdr5UFz1OuezwDMa0MLPCO2K9+mYTUaL5K8RsGrrX+Grsm +mwT9j+LvpgcZ+LtwMt48lwQaZ8BBcoSBvX+6VW9RFsi4/4A+wcC8p4Ix7Csk +PLcJyrWbZ+C44sOjoldJCCp/vjNHhkD20ou5hXkkbBEr/recRmCWq4HTwnwS +1vrEch8rEdgS4vvUg7LESgOlYRaBpYe2SkhcI2E8ROSMkA6ByUPB3e6Ue1s/ +/F5hSGDnht7gG5TJ2LRe5FDt1wZPYgGVz+699q4WBNY++/U1gfJho3U1e6wI +tM+5UNRE2e7r2OW0TQTmb+5OsCik8mTZKnbdlcAtCZ+LoyjLZxccureDQD2R +V5dKKQ86uv79yZvAkBSlr5JFJLws0WmZ2kPgjNaAlRnlaqHF5hLBBFpu9ozY +TTl/Zx9PLYzAGPaGyETKyber5I2jCLzoZmtbQnn/srMnbY8S+JjOGmmivC3A +b8b9GIE7zdL39FPGR7A3NInAXd+sbs9S1lChdSeeIZA7N9MldZ0EqagRm+w0 +ajzN/i/plKdePrl78yKB1tq2eQaU32vnsR9lExh0fLs1l/KTE1GXuvIIrKl2 +erSB8s33TiJDRQS2coYU7ChnmmlGCZIEVs0N2v1FOfa84Lfl5ZTDF26xp+w3 +1L1Nq4rA7rxfZhspO2z85wncI7BcKH4WKRvnn1rjUkfgz6u7Mo0pK//2KvZ/ +RKCJkKs0m/LiLRzakWYCL5ko7KVRHiqTTTr3nEDfZ6FXF1J+I/LjV2E7gU3d +ylU/qPk+8HrkV91FYOTPXv4rykX3czqe9RG4Vyc4vopyyooI6/5+AoOJi2YZ +lCMOONz+9ZXqf2L56xDK7i1MlvgQgSnm5c72lDcQ8xmqYwR2ybBv0Slrx3Qs +Xj1F4FdFy5kJan1lu8oibOYIVAyvIx5T/nTac0vIEiY+ExPQ30k5aFCbri/O +xBMrjX+xKP+ynv7xQ4qJu5a9EB+h8iQqlJawR56Jl0cqiYP/z5+nuxNLhYmS +7zdorqGs9EBTaUCdiZynD2MmqLzqRzXc8tRhome5iKo/5eo3Z2OVDZlYVa4Y +qER5nZGbfa8xE8VLS8ReUPthy/B4/1ZkYg6/wVqH8hEfpozjZia6VYg+bqL2 +1+KGn33i25iYNTFX60c5VbWW1+zGxD/tmdKLrv6/3m21tPJloqOiV6MJtT+b +nZIPcKOo8bTdCDySQ9WzMlfu7BEmTh+AtcKU34rTRe7GM1HE+/6+VGr/jzRV +XzU6zcSLW1jfMqn6sHzt9+daV5iIPb7eJy+RcPXyncvfrjGxa1RsjQBl9vRx +v+vFTFzAmwoKzaTq/S2leXoFE49Y7hRxvkiCl6ajrvwjJu7RdREaOU/lcXnF +aeH/qPFKqhaWnSXBLOzotsfDTNTUlZ2fTSGhoc2WcXyciYVhG5s2UH5zuv/e +/BwTwcW8sO00Cb8F5f6blGKh2vMPvOZkEmyGI20GjFlY1vIn2pKq34oGyieE +OSy8kT1/bHM8lb+QxnotCxZOVEhm7Iqj1mtSihNix0LC809nWAwJfXMluvMe +LLxS1zwWSZ0HIeK9MiuTWThzospuNISE9Q7xmzgpLBzyWOLy6gAJK1I1znik +s7D8H8Owiv0k1MiELy7KYWFMTPe8XxC1PgqS04YVLPSNaHO/uYc6X9nYZ9/D +wrpHj5fe9iAhMOCz/P73LFymZrMkwJ0EuHF6a/oAC3mnegjFnVQe9btedA2z +cGmLWG/4DhJ014Q0+C7UQGP9UuslrtT3sSoojtXRQNGQ3ol8GxK+ewmH3orR +QIV9oamN+tR8c9ffrz2ugRNSAgtY1Hk+3BW7pCVZA4WzndpO6JDw03H68od0 +DcyqlbuwVpPKt/lgo2SxBnatH29IUSdBULZ1+Z4XGngo5EpGhRwJKxvPViup +sVGx0rhXcooP8vMtC9lMNtr2ixEqk3xQNBN2NNJi4y3v1u/a43xQvhnbb7ua +jd6xS+aQuu8wsg+IH7Rh4yGDtRy7r3zQD9vs/vIAGzsUHOW+dfCp/4UVgon1 +bORk8TlOlXz4ttu62LyJjWyxma+m//DhdF6kw0gLG0N+bz+mWs6HV8qdWdtf +s1H2eF7CF5IPnisvrdL+ykbX97kdbgV8iJJU8GmT0MSPip6BA2l8IKeUnyhs +18SasGVmYUF8kP6XmXJzWBM7fe4M31bhw59h/cLmcU38+4yT0H+KfBiUNq/5 +NK2Jy2YXfVWQ50P9NsdB2kItvPtWmx0py4fQT5FWcTQtvCV4oERGhA/ts0/+ +OFlo4fljG7IGqPvsRc2A4LE0LSybsBeeeMgDxaSyTcbG2hhPP9st4MaDTC1T +KRk/HeRYB7y+llwCzfIWq8fO6WKJ15YBdmExmCnWp+q90UN/kc94KPM6SArl +h+2K10dn5ZdR02eKQDlOhbOdaYAB61f5iXsWggjhVuXcZIBlar7G7roFoMtd +WRa50xAVpyrHNolfg5A+6QZbgVW4Kq6x5uHzPBgeO+1qk7kKX5wtohmXXAVr +vcdZNjpGaPXhUvPJFVfgwZj57K9nRthiIrEI72RDkLZhd5vPalx951LceGoW +cIe827eLGOOxvw2y6hwzYQOD9pdEvjG6mSuYPrfNAI3YkwfrTUxwQjZZtdn3 +PGj6mNYS3SYYTNN6QwtPA58H/sdvHViDkWSWcHhtKtRebfcelTNFNwX1PYWL +U2C8eP6X3m1TNOn9/m5d70nwIvgiWX+Z4dbWgceuKkkwqpluXDFihnW030nx +uxPgTsHsh4kkczSv1PSPET0GO9aro7kyBzdk0JpjhmNBYV/iXd06Di7I4dzV +uH0E5EQDy//aysXNOT25342ioWDdkeiR7Vz0ds+3F2FGg+GRlHXpblycNeeV +aq+IBoeRm687d3Ex12JXUuJ0FJx4MzHtFchFO8NznmceRMFUfoxldBwX4z2f +yXTaREG3efqrIj4Xy/74j7j5HAT/8IJsm1Iu/nvS/Yb91oMwWVrp8/0mF4tD +Zz5Z2hwEaXrnL4MqLn670F1jqXMQ7ISVFO/XcTGTUOk9OxEJNe1F3q9ec7F8 +9cu17omRYCt5Ryeik4unppqab0VFQqf100laDxf1f8jdWhYYCePV/yW5v+fi +o9duF/s2RYJOnv6Nb4NcbE2ZCmyUp9rrtog4/YOLpndlbv4lQbUnuxn0RriY +LvrI4u18BPgmhreFTVDvOcdtlg5EwHjdiawVU1wkT/XdK++IgPiZi17VM1zs ++uAXvqM5AqSMSrR3znExr2dDmMj9CMjdVz0xP89Fl66cqgdlEfA/vVaCZg== + + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3DRYE6GOpkdZ5/jmEmEc3pfKjJcIpquUMYiyhgNhhIaJEoS +ihDn7IgblRShFG6llDEN0uCWIUOG5Ld/f+3n8+znWcNe3/WutdV2Bzv7CAoI +CCxZICDw/+dk39NGxqmCtfoL2v5Z5mW8tj2XFmXRGQ+niNdlrGRZQLnnu2md +aeCasCZ8OokBEZt4HUKd+ZBw3RHfJhnBsqEVadMdFVCw8HxTddJ6eFfjEDze +UQ835EBmW5ILWDEG3452vITE9iPf3p/whukOkwsjHR9Byc55+dK4MGhYd72g +LX8M7ozUJPRbJoDiu7ufd2vPgdTsC1WDbWdBNtCDt2SdEPaaOGgmRZ+HNAOr +ew6uwqg0ofaGOHoJujL160alJHBrXndf2mgOnCqIeS64chkusLmn+46TByvO +9yen58hghbNSfbXdNUh0sVn7clIOY5IaCWeJQgg1zfN4Gk/DrdEtdk0NRbB+ +eCY6qF8e1/nRg1O0iyFq43nNh9/lke2YYVFpUAyleTrdMpPyuIrQZXUZFwPN +xdP0rrACjrnGatIsiuH7nUe/hHQV0DbrmXCoazGkx6eGXTqogJ+HZ/suHymG +j3LMoEYJRbzQcfrL7ZZiiOM47ZJfo4RhpaJCYh4lsNE996eJpRIaKolvbvcq +AcnY/4652ivhPxoZyln+JZDdkFCU6qmELx3dWQohJXDHtvq/xclK2OJ0bfrn +8RIY2aYeMdalhLVLG0OmS0rAPXziZOshZbzeERjsOVoCZqWXbh2tVUGn14yh +lHAerO94Njf0RAXPdh5QXRXFAweBhdYeL1VQI6vEvP0wD7ycg7pgQAVNuuu1 +JY7zwOqQWkzsIlXseqMyvT2NB/tVJq9ZaKliWO+ZNR6lPGj0u/KjIUIVs31s +dtE+8cDmt6n04UOqmGChXL79Cw+epbYbG8WqoneV9eDFQR503RWJLUhWxT/Z +rTSxUR4MiYVJJ2Sroupibf/WOR7Qbm40sapXxRf15/qql/MhcGo09omEGg4c +PlVtbcUHswO+yz9Lq+GC0Af9XjZ8EB7s5gvR1LB3Jz34sD0fCnsa3qylq2H0 +Z8Ub+c586HtwQbvSWA3zhfyaG9z54Jhg2pnnoYau05rl2yL4YCgdp3eoXA1j +Va6nPMvng8CpicbMKjVMXjm2PbKQD8+E9u6ouqeGgk0DZxSL+RAw4Zww+kgN +C/vr9N1u8KGgk9Hj162Gv+8d23PzNh+WX3lywkWIjrR8t36yhQ/TWlJ9Oq50 +HNTbJjA1wofJHPm4VTvomGS1gMYY48P4UoJh6kHHvtbaevsJPgyNme5dv4eO +C5nNL9On+fDxntfkjiN0/Dve5fPUAhKa7W5LJhXSsWF/GEtFmoSm+w/Lz/Do +aOTVmykrS0KjXqtLehkd3yr05C9eTsIDmQ9ZuXfp6OYtG/9+JQkVPaKsyn/p +eKHiXWSAGglZAe7wcYJO5dsmo0+PhItv/T9+maHaK4t6kGNAwnnH0IQf83T8 +0rI3YfsqElJWJbVMiajj77d6o4+NSYifLd+6VFkdHYzb7KK4JAScWrSfY6WO +wde/BHBsSeDwyasZGepoEukUCLtI6FHlX9lwWR31LxyIOLybhOiMktzxK+q4 +ucs9u8qLhNtxRdnOJeooKmfEpfuSYLjtaqZkjTqSc9/evtlLAnvR+dQTH9TR +p1J0sjKUhCfRaWdXf1bHj3zDH41hJPiOpKZ8GlTHKAne4rZwEgp6zpy2HFfH +6XMm+e8jSVCtSEz6s5iBq7ZWJ749RMJyj0OxEdoMfFLL2edwjITK9qgYwoCB +LbJTNXrHSXCxPXi0fTUDRe9NrZZMICFtdfhhQ2Bg83RGYf0JEiTEgw8OOTGQ ++3AmUeQkCWTcvsicLQy8LHZOt52y7a+ACPu/GVT+pAWzT5GQ9NE/jOfNwOiR +UgP1MyQsvLt7v28kA+Mv76lbmkrCNd1dwXKHGdjG9OtpoGxZ4BHUGEv1f1SK +FX6OhJizboH0kwwUsXZ0fp5GwozPFv++bKp/5Z+Ldl8gYVTa1nNLPQN9Ijoc +FmSR0BlIf7G3iYGdr5UFz1OuezwDMa0MLPCO2K9+mYTUaL5K8RsGrrX+Grsm +mwT9j+LvpgcZ+LtwMt48lwQaZ8BBcoSBvX+6VW9RFsi4/4A+wcC8p4Ix7Csk +PLcJyrWbZ+C44sOjoldJCCp/vjNHhkD20ou5hXkkbBEr/recRmCWq4HTwnwS +1vrEch8rEdgS4vvUg7LESgOlYRaBpYe2SkhcI2E8ROSMkA6ByUPB3e6Ue1s/ +/F5hSGDnht7gG5TJ2LRe5FDt1wZPYgGVz+699q4WBNY++/U1gfJho3U1e6wI +tM+5UNRE2e7r2OW0TQTmb+5OsCik8mTZKnbdlcAtCZ+LoyjLZxccureDQD2R +V5dKKQ86uv79yZvAkBSlr5JFJLws0WmZ2kPgjNaAlRnlaqHF5hLBBFpu9ozY +TTl/Zx9PLYzAGPaGyETKyber5I2jCLzoZmtbQnn/srMnbY8S+JjOGmmivC3A +b8b9GIE7zdL39FPGR7A3NInAXd+sbs9S1lChdSeeIZA7N9MldZ0EqagRm+w0 +ajzN/i/plKdePrl78yKB1tq2eQaU32vnsR9lExh0fLs1l/KTE1GXuvIIrKl2 +erSB8s33TiJDRQS2coYU7ChnmmlGCZIEVs0N2v1FOfa84Lfl5ZTDF26xp+w3 +1L1Nq4rA7rxfZhspO2z85wncI7BcKH4WKRvnn1rjUkfgz6u7Mo0pK//2KvZ/ +RKCJkKs0m/LiLRzakWYCL5ko7KVRHiqTTTr3nEDfZ6FXF1J+I/LjV2E7gU3d +ylU/qPk+8HrkV91FYOTPXv4rykX3czqe9RG4Vyc4vopyyooI6/5+AoOJi2YZ +lCMOONz+9ZXqf2L56xDK7i1MlvgQgSnm5c72lDcQ8xmqYwR2ybBv0Slrx3Qs +Xj1F4FdFy5kJan1lu8oibOYIVAyvIx5T/nTac0vIEiY+ExPQ30k5aFCbri/O +xBMrjX+xKP+ynv7xQ4qJu5a9EB+h8iQqlJawR56Jl0cqiYP/z5+nuxNLhYmS +7zdorqGs9EBTaUCdiZynD2MmqLzqRzXc8tRhome5iKo/5eo3Z2OVDZlYVa4Y +qER5nZGbfa8xE8VLS8ReUPthy/B4/1ZkYg6/wVqH8hEfpozjZia6VYg+bqL2 +1+KGn33i25iYNTFX60c5VbWW1+zGxD/tmdKLrv6/3m21tPJloqOiV6MJtT+b +nZIPcKOo8bTdCDySQ9WzMlfu7BEmTh+AtcKU34rTRe7GM1HE+/6+VGr/jzRV +XzU6zcSLW1jfMqn6sHzt9+daV5iIPb7eJy+RcPXyncvfrjGxa1RsjQBl9vRx +v+vFTFzAmwoKzaTq/S2leXoFE49Y7hRxvkiCl6ajrvwjJu7RdREaOU/lcXnF +aeH/qPFKqhaWnSXBLOzotsfDTNTUlZ2fTSGhoc2WcXyciYVhG5s2UH5zuv/e +/BwTwcW8sO00Cb8F5f6blGKh2vMPvOZkEmyGI20GjFlY1vIn2pKq34oGyieE +OSy8kT1/bHM8lb+QxnotCxZOVEhm7Iqj1mtSihNix0LC809nWAwJfXMluvMe +LLxS1zwWSZ0HIeK9MiuTWThzospuNISE9Q7xmzgpLBzyWOLy6gAJK1I1znik +s7D8H8Owiv0k1MiELy7KYWFMTPe8XxC1PgqS04YVLPSNaHO/uYc6X9nYZ9/D +wrpHj5fe9iAhMOCz/P73LFymZrMkwJ0EuHF6a/oAC3mnegjFnVQe9btedA2z +cGmLWG/4DhJ014Q0+C7UQGP9UuslrtT3sSoojtXRQNGQ3ol8GxK+ewmH3orR +QIV9oamN+tR8c9ffrz2ugRNSAgtY1Hk+3BW7pCVZA4WzndpO6JDw03H68od0 +DcyqlbuwVpPKt/lgo2SxBnatH29IUSdBULZ1+Z4XGngo5EpGhRwJKxvPViup +sVGx0rhXcooP8vMtC9lMNtr2ixEqk3xQNBN2NNJi4y3v1u/a43xQvhnbb7ua +jd6xS+aQuu8wsg+IH7Rh4yGDtRy7r3zQD9vs/vIAGzsUHOW+dfCp/4UVgon1 +bORk8TlOlXz4ttu62LyJjWyxma+m//DhdF6kw0gLG0N+bz+mWs6HV8qdWdtf +s1H2eF7CF5IPnisvrdL+ykbX97kdbgV8iJJU8GmT0MSPip6BA2l8IKeUnyhs +18SasGVmYUF8kP6XmXJzWBM7fe4M31bhw59h/cLmcU38+4yT0H+KfBiUNq/5 +NK2Jy2YXfVWQ50P9NsdB2kItvPtWmx0py4fQT5FWcTQtvCV4oERGhA/ts0/+ +OFlo4fljG7IGqPvsRc2A4LE0LSybsBeeeMgDxaSyTcbG2hhPP9st4MaDTC1T +KRk/HeRYB7y+llwCzfIWq8fO6WKJ15YBdmExmCnWp+q90UN/kc94KPM6SArl +h+2K10dn5ZdR02eKQDlOhbOdaYAB61f5iXsWggjhVuXcZIBlar7G7roFoMtd +WRa50xAVpyrHNolfg5A+6QZbgVW4Kq6x5uHzPBgeO+1qk7kKX5wtohmXXAVr +vcdZNjpGaPXhUvPJFVfgwZj57K9nRthiIrEI72RDkLZhd5vPalx951LceGoW +cIe827eLGOOxvw2y6hwzYQOD9pdEvjG6mSuYPrfNAI3YkwfrTUxwQjZZtdn3 +PGj6mNYS3SYYTNN6QwtPA58H/sdvHViDkWSWcHhtKtRebfcelTNFNwX1PYWL +U2C8eP6X3m1TNOn9/m5d70nwIvgiWX+Z4dbWgceuKkkwqpluXDFihnW030nx +uxPgTsHsh4kkczSv1PSPET0GO9aro7kyBzdk0JpjhmNBYV/iXd06Di7I4dzV +uH0E5EQDy//aysXNOT25342ioWDdkeiR7Vz0ds+3F2FGg+GRlHXpblycNeeV +aq+IBoeRm687d3Ex12JXUuJ0FJx4MzHtFchFO8NznmceRMFUfoxldBwX4z2f +yXTaREG3efqrIj4Xy/74j7j5HAT/8IJsm1Iu/nvS/Yb91oMwWVrp8/0mF4tD +Zz5Z2hwEaXrnL4MqLn670F1jqXMQ7ISVFO/XcTGTUOk9OxEJNe1F3q9ec7F8 +9cu17omRYCt5Ryeik4unppqab0VFQqf100laDxf1f8jdWhYYCePV/yW5v+fi +o9duF/s2RYJOnv6Nb4NcbE2ZCmyUp9rrtog4/YOLpndlbv4lQbUnuxn0RriY +LvrI4u18BPgmhreFTVDvOcdtlg5EwHjdiawVU1wkT/XdK++IgPiZi17VM1zs ++uAXvqM5AqSMSrR3znExr2dDmMj9CMjdVz0xP89Fl66cqgdlEfA/vVaCZg== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0559639125035533}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.0559639125035533}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3DRYE6GOpkdZ5/jmEmEc3pfKjJcIpquUMYiyhgNhhIaJEoS +ihDn7IgblRShFG6llDEN0uCWIUOG5Ld/f+3n8+znWcNe3/WutdV2Bzv7CAoI +CCxZICDw/+dk39NGxqmCtfoL2v5Z5mW8tj2XFmXRGQ+niNdlrGRZQLnnu2md +aeCasCZ8OokBEZt4HUKd+ZBw3RHfJhnBsqEVadMdFVCw8HxTddJ6eFfjEDze +UQ835EBmW5ILWDEG3452vITE9iPf3p/whukOkwsjHR9Byc55+dK4MGhYd72g +LX8M7ozUJPRbJoDiu7ufd2vPgdTsC1WDbWdBNtCDt2SdEPaaOGgmRZ+HNAOr +ew6uwqg0ofaGOHoJujL160alJHBrXndf2mgOnCqIeS64chkusLmn+46TByvO +9yen58hghbNSfbXdNUh0sVn7clIOY5IaCWeJQgg1zfN4Gk/DrdEtdk0NRbB+ +eCY6qF8e1/nRg1O0iyFq43nNh9/lke2YYVFpUAyleTrdMpPyuIrQZXUZFwPN +xdP0rrACjrnGatIsiuH7nUe/hHQV0DbrmXCoazGkx6eGXTqogJ+HZ/suHymG +j3LMoEYJRbzQcfrL7ZZiiOM47ZJfo4RhpaJCYh4lsNE996eJpRIaKolvbvcq +AcnY/4652ivhPxoZyln+JZDdkFCU6qmELx3dWQohJXDHtvq/xclK2OJ0bfrn +8RIY2aYeMdalhLVLG0OmS0rAPXziZOshZbzeERjsOVoCZqWXbh2tVUGn14yh +lHAerO94Njf0RAXPdh5QXRXFAweBhdYeL1VQI6vEvP0wD7ycg7pgQAVNuuu1 +JY7zwOqQWkzsIlXseqMyvT2NB/tVJq9ZaKliWO+ZNR6lPGj0u/KjIUIVs31s +dtE+8cDmt6n04UOqmGChXL79Cw+epbYbG8WqoneV9eDFQR503RWJLUhWxT/Z +rTSxUR4MiYVJJ2Sroupibf/WOR7Qbm40sapXxRf15/qql/MhcGo09omEGg4c +PlVtbcUHswO+yz9Lq+GC0Af9XjZ8EB7s5gvR1LB3Jz34sD0fCnsa3qylq2H0 +Z8Ub+c586HtwQbvSWA3zhfyaG9z54Jhg2pnnoYau05rl2yL4YCgdp3eoXA1j +Va6nPMvng8CpicbMKjVMXjm2PbKQD8+E9u6ouqeGgk0DZxSL+RAw4Zww+kgN +C/vr9N1u8KGgk9Hj162Gv+8d23PzNh+WX3lywkWIjrR8t36yhQ/TWlJ9Oq50 +HNTbJjA1wofJHPm4VTvomGS1gMYY48P4UoJh6kHHvtbaevsJPgyNme5dv4eO +C5nNL9On+fDxntfkjiN0/Dve5fPUAhKa7W5LJhXSsWF/GEtFmoSm+w/Lz/Do +aOTVmykrS0KjXqtLehkd3yr05C9eTsIDmQ9ZuXfp6OYtG/9+JQkVPaKsyn/p +eKHiXWSAGglZAe7wcYJO5dsmo0+PhItv/T9+maHaK4t6kGNAwnnH0IQf83T8 +0rI3YfsqElJWJbVMiajj77d6o4+NSYifLd+6VFkdHYzb7KK4JAScWrSfY6WO +wde/BHBsSeDwyasZGepoEukUCLtI6FHlX9lwWR31LxyIOLybhOiMktzxK+q4 +ucs9u8qLhNtxRdnOJeooKmfEpfuSYLjtaqZkjTqSc9/evtlLAnvR+dQTH9TR +p1J0sjKUhCfRaWdXf1bHj3zDH41hJPiOpKZ8GlTHKAne4rZwEgp6zpy2HFfH +6XMm+e8jSVCtSEz6s5iBq7ZWJ749RMJyj0OxEdoMfFLL2edwjITK9qgYwoCB +LbJTNXrHSXCxPXi0fTUDRe9NrZZMICFtdfhhQ2Bg83RGYf0JEiTEgw8OOTGQ ++3AmUeQkCWTcvsicLQy8LHZOt52y7a+ACPu/GVT+pAWzT5GQ9NE/jOfNwOiR +UgP1MyQsvLt7v28kA+Mv76lbmkrCNd1dwXKHGdjG9OtpoGxZ4BHUGEv1f1SK +FX6OhJizboH0kwwUsXZ0fp5GwozPFv++bKp/5Z+Ldl8gYVTa1nNLPQN9Ijoc +FmSR0BlIf7G3iYGdr5UFz1OuezwDMa0MLPCO2K9+mYTUaL5K8RsGrrX+Grsm +mwT9j+LvpgcZ+LtwMt48lwQaZ8BBcoSBvX+6VW9RFsi4/4A+wcC8p4Ix7Csk +PLcJyrWbZ+C44sOjoldJCCp/vjNHhkD20ou5hXkkbBEr/recRmCWq4HTwnwS +1vrEch8rEdgS4vvUg7LESgOlYRaBpYe2SkhcI2E8ROSMkA6ByUPB3e6Ue1s/ +/F5hSGDnht7gG5TJ2LRe5FDt1wZPYgGVz+699q4WBNY++/U1gfJho3U1e6wI +tM+5UNRE2e7r2OW0TQTmb+5OsCik8mTZKnbdlcAtCZ+LoyjLZxccureDQD2R +V5dKKQ86uv79yZvAkBSlr5JFJLws0WmZ2kPgjNaAlRnlaqHF5hLBBFpu9ozY +TTl/Zx9PLYzAGPaGyETKyber5I2jCLzoZmtbQnn/srMnbY8S+JjOGmmivC3A +b8b9GIE7zdL39FPGR7A3NInAXd+sbs9S1lChdSeeIZA7N9MldZ0EqagRm+w0 +ajzN/i/plKdePrl78yKB1tq2eQaU32vnsR9lExh0fLs1l/KTE1GXuvIIrKl2 +erSB8s33TiJDRQS2coYU7ChnmmlGCZIEVs0N2v1FOfa84Lfl5ZTDF26xp+w3 +1L1Nq4rA7rxfZhspO2z85wncI7BcKH4WKRvnn1rjUkfgz6u7Mo0pK//2KvZ/ +RKCJkKs0m/LiLRzakWYCL5ko7KVRHiqTTTr3nEDfZ6FXF1J+I/LjV2E7gU3d +ylU/qPk+8HrkV91FYOTPXv4rykX3czqe9RG4Vyc4vopyyooI6/5+AoOJi2YZ +lCMOONz+9ZXqf2L56xDK7i1MlvgQgSnm5c72lDcQ8xmqYwR2ybBv0Slrx3Qs +Xj1F4FdFy5kJan1lu8oibOYIVAyvIx5T/nTac0vIEiY+ExPQ30k5aFCbri/O +xBMrjX+xKP+ynv7xQ4qJu5a9EB+h8iQqlJawR56Jl0cqiYP/z5+nuxNLhYmS +7zdorqGs9EBTaUCdiZynD2MmqLzqRzXc8tRhome5iKo/5eo3Z2OVDZlYVa4Y +qER5nZGbfa8xE8VLS8ReUPthy/B4/1ZkYg6/wVqH8hEfpozjZia6VYg+bqL2 +1+KGn33i25iYNTFX60c5VbWW1+zGxD/tmdKLrv6/3m21tPJloqOiV6MJtT+b +nZIPcKOo8bTdCDySQ9WzMlfu7BEmTh+AtcKU34rTRe7GM1HE+/6+VGr/jzRV +XzU6zcSLW1jfMqn6sHzt9+daV5iIPb7eJy+RcPXyncvfrjGxa1RsjQBl9vRx +v+vFTFzAmwoKzaTq/S2leXoFE49Y7hRxvkiCl6ajrvwjJu7RdREaOU/lcXnF +aeH/qPFKqhaWnSXBLOzotsfDTNTUlZ2fTSGhoc2WcXyciYVhG5s2UH5zuv/e +/BwTwcW8sO00Cb8F5f6blGKh2vMPvOZkEmyGI20GjFlY1vIn2pKq34oGyieE +OSy8kT1/bHM8lb+QxnotCxZOVEhm7Iqj1mtSihNix0LC809nWAwJfXMluvMe +LLxS1zwWSZ0HIeK9MiuTWThzospuNISE9Q7xmzgpLBzyWOLy6gAJK1I1znik +s7D8H8Owiv0k1MiELy7KYWFMTPe8XxC1PgqS04YVLPSNaHO/uYc6X9nYZ9/D +wrpHj5fe9iAhMOCz/P73LFymZrMkwJ0EuHF6a/oAC3mnegjFnVQe9btedA2z +cGmLWG/4DhJ014Q0+C7UQGP9UuslrtT3sSoojtXRQNGQ3ol8GxK+ewmH3orR +QIV9oamN+tR8c9ffrz2ugRNSAgtY1Hk+3BW7pCVZA4WzndpO6JDw03H68od0 +DcyqlbuwVpPKt/lgo2SxBnatH29IUSdBULZ1+Z4XGngo5EpGhRwJKxvPViup +sVGx0rhXcooP8vMtC9lMNtr2ixEqk3xQNBN2NNJi4y3v1u/a43xQvhnbb7ua +jd6xS+aQuu8wsg+IH7Rh4yGDtRy7r3zQD9vs/vIAGzsUHOW+dfCp/4UVgon1 +bORk8TlOlXz4ttu62LyJjWyxma+m//DhdF6kw0gLG0N+bz+mWs6HV8qdWdtf +s1H2eF7CF5IPnisvrdL+ykbX97kdbgV8iJJU8GmT0MSPip6BA2l8IKeUnyhs +18SasGVmYUF8kP6XmXJzWBM7fe4M31bhw59h/cLmcU38+4yT0H+KfBiUNq/5 +NK2Jy2YXfVWQ50P9NsdB2kItvPtWmx0py4fQT5FWcTQtvCV4oERGhA/ts0/+ +OFlo4fljG7IGqPvsRc2A4LE0LSybsBeeeMgDxaSyTcbG2hhPP9st4MaDTC1T +KRk/HeRYB7y+llwCzfIWq8fO6WKJ15YBdmExmCnWp+q90UN/kc94KPM6SArl +h+2K10dn5ZdR02eKQDlOhbOdaYAB61f5iXsWggjhVuXcZIBlar7G7roFoMtd +WRa50xAVpyrHNolfg5A+6QZbgVW4Kq6x5uHzPBgeO+1qk7kKX5wtohmXXAVr +vcdZNjpGaPXhUvPJFVfgwZj57K9nRthiIrEI72RDkLZhd5vPalx951LceGoW +cIe827eLGOOxvw2y6hwzYQOD9pdEvjG6mSuYPrfNAI3YkwfrTUxwQjZZtdn3 +PGj6mNYS3SYYTNN6QwtPA58H/sdvHViDkWSWcHhtKtRebfcelTNFNwX1PYWL +U2C8eP6X3m1TNOn9/m5d70nwIvgiWX+Z4dbWgceuKkkwqpluXDFihnW030nx +uxPgTsHsh4kkczSv1PSPET0GO9aro7kyBzdk0JpjhmNBYV/iXd06Di7I4dzV +uH0E5EQDy//aysXNOT25342ioWDdkeiR7Vz0ds+3F2FGg+GRlHXpblycNeeV +aq+IBoeRm687d3Ex12JXUuJ0FJx4MzHtFchFO8NznmceRMFUfoxldBwX4z2f +yXTaREG3efqrIj4Xy/74j7j5HAT/8IJsm1Iu/nvS/Yb91oMwWVrp8/0mF4tD +Zz5Z2hwEaXrnL4MqLn670F1jqXMQ7ISVFO/XcTGTUOk9OxEJNe1F3q9ec7F8 +9cu17omRYCt5Ryeik4unppqab0VFQqf100laDxf1f8jdWhYYCePV/yW5v+fi +o9duF/s2RYJOnv6Nb4NcbE2ZCmyUp9rrtog4/YOLpndlbv4lQbUnuxn0RriY +LvrI4u18BPgmhreFTVDvOcdtlg5EwHjdiawVU1wkT/XdK++IgPiZi17VM1zs ++uAXvqM5AqSMSrR3znExr2dDmMj9CMjdVz0xP89Fl66cqgdlEfA/vVaCZg== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0559639125035533}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0559639125035533}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993920889891746*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"1474d29a-5dd7-4fab-9c0b-89ae7783ff10"] +}, Open ]], Cell[CellGroupData[{ @@ -8293,66 +14675,76 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + "In[142]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 417, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437636167164`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.5542645926029503`*^-165\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 77, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993920889930148*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], +In[142]:=",ExpressionUUID->"4540b8c0-2806-4871-95c9-88ea9a88f3ab"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 418, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763625717*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.6371682142846316`*^-168\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 78, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993920889937418*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], +In[142]:=",ExpressionUUID->"88024bdb-6ca2-4258-9cd1-75e3efbf86e4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 391, 419, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763634718*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.722005572273458`*^-171\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 79, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993920889944201*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +In[142]:=",ExpressionUUID->"75164e55-6d03-459d-8273-5f0acdc1d746"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763643717*^9}, +during this calculation.\"", 2, 142, 80, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993920889951095*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +In[142]:=",ExpressionUUID->"ebf80c2a-1034-4717-a60b-6c6e22c98647"], -Cell[BoxData["12.55365498945131`"], "Output", - CellChangeTimes->{3.991343769962549*^9}, +Cell[BoxData["15.01381146684362`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.9939209304713173`*^9}, CellLabel-> - "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] + "Out[142]=",ExpressionUUID->"dc203f1a-0e38-4505-bbad-e1cc0c2d81e3"] }, Open ]], Cell[CellGroupData[{ @@ -8419,68 +14811,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499777649403`*^9, - 3.9918499820026073`*^9}},ExpressionUUID->"97b28b29-5d04-5c42-a0e8-\ -93b70f20e7f6"], + CellChangeTimes->{{3.9918499777649403`*^9, 3.9918499820026073`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 392, 421, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343769999645*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7418920831162206`*^-224\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 81, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.993920930512135*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +In[143]:=",ExpressionUUID->"e92d047b-70bb-4d02-ad98-952383f79a9b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 392, 422, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700095463`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.077999741763818`*^-230\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 82, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.993920930521023*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +In[143]:=",ExpressionUUID->"a4b68cd8-d9b4-4744-ab8c-1701f9ee022f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 392, - 423, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343770018547*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.40448442013331`*^-236\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 143, 83, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.993920930529237*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +In[143]:=",ExpressionUUID->"8084011c-c69f-4062-b0f1-c13533fa60ae"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700265465`*^9}, +during this calculation.\"", 2, 143, 84, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.99392093053648*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +In[143]:=",ExpressionUUID->"ef26f326-27d8-4cc9-8851-87397ce44cd1"], -Cell[BoxData["2.1234790234082306`"], "Output", - CellChangeTimes->{3.9913437771602173`*^9}, +Cell[BoxData["0.24276142460541517`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.993920936447879*^9}, CellLabel-> - "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] + "Out[143]=",ExpressionUUID->"277952d6-ae30-4251-b71a-fa47969cf2b5"] }, Open ]], Cell[CellGroupData[{ @@ -8501,8 +14896,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8547,68 +14941,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499862910366`*^9, - 3.991849989300226*^9}},ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-\ -cdce838d9efe"], + CellChangeTimes->{{3.9918499862910366`*^9, 3.991849989300226*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 393, 425, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437771982174`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7418920831162206`*^-224\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 85, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.9939209364844427`*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +In[144]:=",ExpressionUUID->"07fa5cc5-35b3-44c6-9b99-fa8155b1be8d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 393, 426, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772082157`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.077999741763818`*^-230\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 86, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993920936492549*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +In[144]:=",ExpressionUUID->"242d295e-8dcf-4924-9309-b731515c18e0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 393, - 427, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134377721661*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.40448442013331`*^-236\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 144, 87, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993920936501171*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +In[144]:=",ExpressionUUID->"c53444d1-c65a-43da-beb5-7b57a2a39d0a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772256165`*^9}, +during this calculation.\"", 2, 144, 88, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.9939209365086823`*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +In[144]:=",ExpressionUUID->"03237c8b-2215-4371-8368-47cbc2c0b7dc"], -Cell[BoxData["10.711562421053975`"], "Output", - CellChangeTimes->{3.991343783589731*^9}, +Cell[BoxData["50.414188713024544`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.993920942236354*^9}, CellLabel-> - "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] + "Out[144]=",ExpressionUUID->"99ef0481-4499-46c0-98fa-12e0a48e5ab0"] }, Open ]], Cell[CellGroupData[{ @@ -8629,8 +15026,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8675,68 +15071,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849992549782*^9, - 3.9918499952553864`*^9}},ExpressionUUID->"0794d062-69d5-0a45-936e-\ -533b19d33de6"], + CellChangeTimes->{{3.991849992549782*^9, 3.9918499952553864`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 394, 429, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836316223`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7418920831162206`*^-224\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 89, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.9939209422758913`*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +In[145]:=",ExpressionUUID->"af58cdfc-f88d-4158-8265-1cb14e04ff8e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 394, 430, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836416245`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.077999741763818`*^-230\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 90, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.9939209422832537`*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +In[145]:=",ExpressionUUID->"477f5574-19cd-4f8f-9980-cf24fb55a808"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 394, - 431, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343783649622*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.40448442013331`*^-236\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 145, 91, 31385386269588631845, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993920942290051*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +In[145]:=",ExpressionUUID->"fb79e9bc-8aa3-4fa8-8be5-74fc8dd5d95e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836576347`*^9}, +during this calculation.\"", 2, 145, 92, 31385386269588631845, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993920942296322*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +In[145]:=",ExpressionUUID->"54e876f5-f6b5-4ab6-90ab-4ea0e7b8f2a7"], -Cell[BoxData["20.656774205279326`"], "Output", - CellChangeTimes->{3.9913437870822353`*^9}, +Cell[BoxData["7.1061175499963545`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.9939209456676598`*^9}, CellLabel-> - "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] + "Out[145]=",ExpressionUUID->"21627505-f48f-4fe5-96de-93bdc1b32713"] }, Open ]], Cell[CellGroupData[{ @@ -8745,20 +15144,26 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918500011025047`*^9, - 3.9918500053803673`*^9}},ExpressionUUID->"95c56266-e4d3-624e-89c1-\ -cedeeeb0247a"], - -Cell[BoxData["0.14275466609450368`"], "Output", - CellChangeTimes->{3.991343787117275*^9}, + CellChangeTimes->{{3.9918500011025047`*^9, 3.9918500053803673`*^9}}, CellLabel-> - "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] -}, Open ]] + "In[146]:=",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], + +Cell[BoxData["0.012825877639424686`"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.99392094569835*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"6f5e6aba-2138-40f0-8ffe-e8fc24174770"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"3f378f13-9c4e-45c1-9b83-0a6210f5c73b"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +Evaluator->"6", +WindowSize->{714, 288}, +WindowMargins->{{-3, Automatic}, {591, 15}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" ] @@ -8773,368 +15178,641 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], -Cell[706, 26, 156, 3, 28, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], -Cell[865, 31, 147, 4, 28, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], -Cell[1015, 37, 152, 3, 28, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ -Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[2496, 89, 176, 3, 32, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[576, 22, 302, 5, 29, "Input",ExpressionUUID->"e3570169-fcd5-428a-920f-16f01b7d94c5"], +Cell[881, 29, 269, 4, 33, "Output",ExpressionUUID->"8b619cc2-3433-4767-9a98-5202b8b73edc"] }, Open ]], Cell[CellGroupData[{ -Cell[2709, 97, 908, 31, 56, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[3620, 130, 175, 3, 32, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[1187, 38, 246, 4, 29, "Input",ExpressionUUID->"bbd49fb7-2698-4d72-a541-c31f93be3abc"], +Cell[1436, 44, 270, 4, 33, "Output",ExpressionUUID->"993e4285-7428-45af-82c4-c6de1dd8aec2"] }, Open ]], Cell[CellGroupData[{ -Cell[3832, 138, 887, 30, 56, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[1743, 53, 223, 4, 29, "Input",ExpressionUUID->"91963ac8-03df-405b-a738-4272d55bf225"], +Cell[1969, 59, 271, 4, 33, "Output",ExpressionUUID->"303403f7-dedd-40f5-9494-9395fa43cdfa"] }, Open ]], Cell[CellGroupData[{ -Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[5497, 199, 172, 3, 32, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[2277, 68, 175, 3, 29, "Input",ExpressionUUID->"377df292-61fd-463f-8935-e7ee1b029f1c"], +Cell[2455, 73, 270, 4, 33, "Output",ExpressionUUID->"3fd0cf29-6b5a-4ef6-8152-f11c379e0251"] }, Open ]], Cell[CellGroupData[{ -Cell[5706, 207, 651, 22, 52, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[6360, 231, 170, 3, 32, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[2762, 82, 257, 7, 42, "Input",ExpressionUUID->"b15f7c01-912c-4ee1-a3f6-a0aff2073963"], +Cell[3022, 91, 278, 4, 33, "Output",ExpressionUUID->"b9568cd1-7a33-467b-9bfe-ed572bb8f8fe"] }, Open ]], Cell[CellGroupData[{ -Cell[6567, 239, 170, 5, 56, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[6740, 246, 173, 3, 32, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[3337, 100, 131, 2, 29, "Input",ExpressionUUID->"9be67c31-f553-4f37-a506-88b031ebf759"], +Cell[3471, 104, 279, 4, 33, "Output",ExpressionUUID->"ce334199-ca28-4982-9578-16a5ca2e575c"] }, Open ]], Cell[CellGroupData[{ -Cell[6950, 254, 170, 5, 55, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[7123, 261, 169, 3, 70, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[3787, 113, 276, 6, 29, "Input",ExpressionUUID->"31dcb9fb-f331-4712-93ca-d3a4ce2bb3bd"], +Cell[4066, 121, 286, 4, 33, "Output",ExpressionUUID->"524e4136-0fa5-4b75-ab5c-c02beafd55d1"] }, Open ]], Cell[CellGroupData[{ -Cell[7329, 269, 181, 5, 70, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[7513, 276, 173, 3, 70, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[4389, 130, 257, 7, 29, "Input",ExpressionUUID->"fc232e3c-9028-4fc1-b3bf-c666843f7ec5"], +Cell[4649, 139, 286, 4, 33, "Output",ExpressionUUID->"6efb5a51-d34d-47ef-8ef6-2d86b4d51fb9"] }, Open ]], Cell[CellGroupData[{ -Cell[7723, 284, 181, 5, 70, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[7907, 291, 170, 3, 70, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[4972, 148, 226, 4, 29, "Input",ExpressionUUID->"8548233d-5f86-4597-903c-4e57b96d5a56"], +Cell[5201, 154, 249, 4, 33, "Output",ExpressionUUID->"4c5854e2-f48d-4041-8a2b-4c8133deb4ee"] }, Open ]], Cell[CellGroupData[{ -Cell[8114, 299, 6055, 185, 70, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[14172, 486, 174, 3, 70, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[5487, 163, 225, 4, 29, "Input",ExpressionUUID->"b4d00410-c772-4fc0-b841-1c6612a0f739"], +Cell[5715, 169, 260, 4, 33, "Output",ExpressionUUID->"78f27046-65aa-4ccb-b558-bb72635eef06"] }, Open ]], Cell[CellGroupData[{ -Cell[14383, 494, 368, 9, 70, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[14754, 505, 170, 3, 70, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[6012, 178, 129, 2, 29, "Input",ExpressionUUID->"f258cd95-1d7f-4f9c-9410-2f119280c5a4"], +Cell[6144, 182, 274, 4, 33, "Output",ExpressionUUID->"8bdd801a-e054-423f-abed-a5bf31136011"] }, Open ]], Cell[CellGroupData[{ -Cell[14961, 513, 6122, 187, 70, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[21086, 702, 174, 3, 70, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[6455, 191, 129, 2, 29, "Input",ExpressionUUID->"1600d708-4a35-476f-813a-a95a6fc2c739"], +Cell[6587, 195, 274, 4, 33, "Output",ExpressionUUID->"02627df1-b65a-45f1-a103-95f3487f0632"] }, Open ]], Cell[CellGroupData[{ -Cell[21297, 710, 368, 9, 70, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[21668, 721, 170, 3, 70, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[6898, 204, 557, 19, 79, "Input",ExpressionUUID->"b23dc77f-a6e4-4e86-bb06-ecc497110443"], +Cell[7458, 225, 289, 4, 33, "Output",ExpressionUUID->"818e1528-fd9b-4d38-acf4-8e3b3f5e00d1"] }, Open ]], Cell[CellGroupData[{ -Cell[21875, 729, 2663, 88, 70, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[24541, 819, 171, 3, 70, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[7784, 234, 557, 19, 79, "Input",ExpressionUUID->"0d0e2518-1d57-44e2-b510-16f72b7065e6"], +Cell[8344, 255, 287, 4, 33, "Output",ExpressionUUID->"536659d1-86c0-4165-86b7-35e1086c28d7"] }, Open ]], Cell[CellGroupData[{ -Cell[24749, 827, 2603, 85, 70, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[27355, 914, 171, 3, 70, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[8668, 264, 1492, 48, 79, "Input",ExpressionUUID->"2130f273-976b-41f8-9924-3ca6c6c772cd"], +Cell[10163, 314, 291, 4, 33, "Output",ExpressionUUID->"a9e4da32-5d7d-4f50-8702-dd9e28ae53c1"] }, Open ]], Cell[CellGroupData[{ -Cell[27563, 922, 3712, 118, 70, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[31278, 1042, 171, 3, 70, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] -}, Open ]], -Cell[31464, 1048, 138, 3, 70, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], -Cell[CellGroupData[{ -Cell[31627, 1055, 2054, 59, 70, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], -Cell[33684, 1116, 566, 12, 70, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], -Cell[34253, 1130, 569, 12, 70, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], -Cell[34825, 1144, 570, 12, 70, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], -Cell[35398, 1158, 458, 10, 70, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], -Cell[35859, 1170, 172, 3, 70, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[10491, 323, 1331, 44, 79, "Input",ExpressionUUID->"bd150d0f-c53c-4633-a8ba-83fa792205e8"], +Cell[11825, 369, 308, 5, 33, "Output",ExpressionUUID->"eb70c926-5154-47e9-b458-03d3c3aec079"] }, Open ]], Cell[CellGroupData[{ -Cell[36068, 1178, 2052, 59, 70, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], -Cell[38123, 1239, 564, 12, 70, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], -Cell[38690, 1253, 567, 12, 70, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], -Cell[39260, 1267, 570, 12, 70, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], -Cell[39833, 1281, 455, 10, 70, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], -Cell[40291, 1293, 169, 3, 70, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[12170, 379, 1331, 44, 79, "Input",ExpressionUUID->"d039e247-9b7e-433b-a75c-8b7fb46986a3"], +Cell[13504, 425, 306, 5, 33, "Output",ExpressionUUID->"5a28defd-7f61-4928-a5c6-e40f7d8925cd"] }, Open ]], Cell[CellGroupData[{ -Cell[40497, 1301, 1936, 53, 70, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], -Cell[42436, 1356, 19983, 375, 70, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +Cell[13847, 435, 1492, 48, 79, "Input",ExpressionUUID->"11149750-ff28-4343-9342-e11e30ffc62f"], +Cell[15342, 485, 284, 4, 33, "Output",ExpressionUUID->"49a05d46-46ab-44ad-9060-126840f0a66d"] }, Open ]], Cell[CellGroupData[{ -Cell[62456, 1736, 2092, 60, 70, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], -Cell[64551, 1798, 501, 11, 70, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], -Cell[65055, 1811, 503, 11, 70, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], -Cell[65561, 1824, 506, 11, 70, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], -Cell[66070, 1837, 456, 10, 70, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], -Cell[66529, 1849, 41581, 727, 70, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] -}, Open ]], -Cell[108125, 2579, 232, 6, 70, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], -Cell[108360, 2587, 209, 5, 70, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], -Cell[CellGroupData[{ -Cell[108594, 2596, 217, 7, 70, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[108814, 2605, 170, 3, 70, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[15663, 494, 131, 2, 29, "Input",ExpressionUUID->"f47b71f8-a114-4a08-9074-14aa88b47049"], +Cell[15797, 498, 270, 4, 33, "Output",ExpressionUUID->"ab98eae3-4404-4e97-8835-d54f1a5ba7a1"] }, Open ]], Cell[CellGroupData[{ -Cell[109021, 2613, 1814, 53, 70, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], -Cell[110838, 2668, 506, 11, 70, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], -Cell[111347, 2681, 512, 11, 70, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], -Cell[111862, 2694, 509, 11, 70, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], -Cell[112374, 2707, 456, 10, 70, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], -Cell[112833, 2719, 22336, 412, 70, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +Cell[16104, 507, 133, 2, 29, "Input",ExpressionUUID->"bc544049-eda2-476e-ab80-608b54d0463b"], +Cell[16240, 511, 273, 4, 33, "Output",ExpressionUUID->"1a6fc881-98f1-430c-a077-034abed9593d"] }, Open ]], Cell[CellGroupData[{ -Cell[135206, 3136, 1616, 48, 70, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], -Cell[136825, 3186, 584, 12, 70, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], -Cell[137412, 3200, 588, 12, 70, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], -Cell[138003, 3214, 591, 12, 70, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], -Cell[138597, 3228, 456, 10, 70, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], -Cell[139056, 3240, 173, 3, 70, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +Cell[16550, 520, 134, 2, 29, "Input",ExpressionUUID->"7db3dc91-6620-4a5c-bb70-98eb2d64279e"], +Cell[16687, 524, 278, 4, 33, "Output",ExpressionUUID->"d6a28066-b7c4-4fe5-8724-73cc97c5dc9c"] }, Open ]], Cell[CellGroupData[{ -Cell[139266, 3248, 2274, 65, 70, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], -Cell[141543, 3315, 566, 12, 70, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], -Cell[142112, 3329, 569, 12, 70, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], -Cell[142684, 3343, 572, 12, 70, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], -Cell[143259, 3357, 458, 10, 70, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], -Cell[143720, 3369, 171, 3, 70, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +Cell[17002, 533, 219, 4, 29, "Input",ExpressionUUID->"4b6ff91d-fb39-4b67-8ea3-5553facd10c0"], +Cell[17224, 539, 290, 5, 33, "Output",ExpressionUUID->"65233e8a-2875-4923-a08f-fa87409421b6"] }, Open ]], Cell[CellGroupData[{ -Cell[143928, 3377, 2221, 64, 70, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], -Cell[146152, 3443, 564, 12, 70, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], -Cell[146719, 3457, 567, 12, 70, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], -Cell[147289, 3471, 570, 12, 70, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], -Cell[147862, 3485, 456, 10, 70, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], -Cell[148321, 3497, 173, 3, 70, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +Cell[17551, 549, 134, 2, 29, "Input",ExpressionUUID->"056ecf4c-8418-4cd3-a19c-f8278fee099f"], +Cell[17688, 553, 278, 4, 33, "Output",ExpressionUUID->"d8a499f5-ff55-4009-af29-a4bee9b1fc6d"] }, Open ]], Cell[CellGroupData[{ -Cell[148531, 3505, 2223, 64, 70, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], -Cell[150757, 3571, 566, 12, 70, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], -Cell[151326, 3585, 569, 12, 70, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], -Cell[151898, 3599, 570, 12, 70, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], -Cell[152471, 3613, 458, 10, 70, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], -Cell[152932, 3625, 170, 3, 70, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +Cell[18003, 562, 324, 5, 29, "Input",ExpressionUUID->"9f04f181-f118-4e8f-a8e4-5e8502231fcf"], +Cell[18330, 569, 272, 4, 33, "Output",ExpressionUUID->"88bd3d56-ed4e-4dac-89dd-2a2d845187bf"] }, Open ]], Cell[CellGroupData[{ -Cell[153139, 3633, 213, 6, 70, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], -Cell[153355, 3641, 171, 3, 70, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] -}, Open ]], -Cell[153541, 3647, 244, 5, 70, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], -Cell[CellGroupData[{ -Cell[153810, 3656, 558, 19, 70, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[154371, 3677, 173, 3, 70, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +Cell[18639, 578, 296, 5, 29, "Input",ExpressionUUID->"fe67d835-f3d8-4b35-b44e-6545a9d76602"], +Cell[18938, 585, 271, 4, 33, "Output",ExpressionUUID->"55344ac5-4435-480f-88ac-5edf3854360e"] }, Open ]], Cell[CellGroupData[{ -Cell[154581, 3685, 170, 5, 70, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[154754, 3692, 171, 3, 70, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +Cell[19246, 594, 219, 4, 29, "Input",ExpressionUUID->"1d5f0422-aa8f-4fe6-a9fb-6d44ab7499fa"], +Cell[19468, 600, 275, 4, 33, "Output",ExpressionUUID->"eb2f31a4-9221-4ec8-b1ac-206a83624986"] }, Open ]], Cell[CellGroupData[{ -Cell[154962, 3700, 181, 5, 70, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[155146, 3707, 173, 3, 70, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +Cell[19780, 609, 350, 10, 42, "Input",ExpressionUUID->"c6b60b7d-0220-4045-842a-36f4df01f337"], +Cell[20133, 621, 293, 4, 33, "Output",ExpressionUUID->"75d13e16-5b4e-422f-9bb9-0b3341111a61"] }, Open ]], Cell[CellGroupData[{ -Cell[155356, 3715, 6055, 185, 70, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[161414, 3902, 175, 3, 70, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +Cell[20463, 630, 350, 10, 42, "Input",ExpressionUUID->"98c45af8-3cb9-4f32-b1c9-c8090ca78dbf"], +Cell[20816, 642, 306, 5, 33, "Output",ExpressionUUID->"073eb179-0f06-42b4-9530-c1f98f30e092"] }, Open ]], Cell[CellGroupData[{ -Cell[161626, 3910, 368, 9, 70, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[161997, 3921, 172, 3, 70, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +Cell[21159, 652, 994, 26, 81, "Input",ExpressionUUID->"13884680-0ee3-4e04-b52a-4293742cbdce"], +Cell[22156, 680, 287, 4, 33, "Output",ExpressionUUID->"97286605-6a55-4721-ae72-68b2d6d229aa"] }, Open ]], Cell[CellGroupData[{ -Cell[162206, 3929, 6122, 187, 70, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[168331, 4118, 173, 3, 70, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +Cell[22480, 689, 199, 3, 29, "Input",ExpressionUUID->"f9a26e85-2a26-4647-a142-8f996c1a6a15"], +Cell[22682, 694, 274, 4, 33, "Output",ExpressionUUID->"a7cdc750-25df-480b-ab2b-a55b33371077"] }, Open ]], Cell[CellGroupData[{ -Cell[168541, 4126, 368, 9, 70, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[168912, 4137, 170, 3, 70, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +Cell[22993, 703, 325, 5, 29, "Input",ExpressionUUID->"6390fee0-38db-44b6-965b-ccd12972776a"], +Cell[23321, 710, 249, 4, 33, "Output",ExpressionUUID->"b8f0db11-1b52-4c2d-8a45-162f6d552868"] +}, Open ]], +Cell[23585, 717, 173, 2, 23, "Input",ExpressionUUID->"81d9fb86-8b4c-4bb6-9078-fdd656648865"], +Cell[CellGroupData[{ +Cell[23783, 723, 327, 5, 29, "Input",ExpressionUUID->"8b5ec1f2-e7ea-4b54-bd36-54b3f75745f8"], +Cell[24113, 730, 253, 4, 33, "Output",ExpressionUUID->"446f8cc6-5569-41e1-ae01-8035027b607c"] +}, Open ]], +Cell[24381, 737, 173, 2, 23, "Input",ExpressionUUID->"b14b0134-36b5-40d9-a895-fa67d18fb139"], +Cell[CellGroupData[{ +Cell[24579, 743, 330, 5, 29, "Input",ExpressionUUID->"37642754-6119-476b-ba14-005ff2988ec1"], +Cell[24912, 750, 259, 4, 33, "Output",ExpressionUUID->"be1c8357-e7c8-480b-92cb-eb23aaca5256"] +}, Open ]], +Cell[25186, 757, 173, 2, 23, "Input",ExpressionUUID->"9afeef5d-1bb2-491d-8e71-26c333c4d649"], +Cell[CellGroupData[{ +Cell[25384, 763, 351, 5, 29, "Input",ExpressionUUID->"741d0d9c-efd5-4eac-aad3-f68c512f485c"], +Cell[25738, 770, 257, 4, 33, "Output",ExpressionUUID->"f79a631b-6105-4a36-acc0-b3a5178b8ea9"] +}, Open ]], +Cell[26010, 777, 171, 2, 23, "Input",ExpressionUUID->"1c543708-6350-4bd7-9b16-94d5ae54d0ef"], +Cell[CellGroupData[{ +Cell[26206, 783, 301, 5, 29, "Input",ExpressionUUID->"3de82e1c-0a27-4e82-83d8-b3493531f9bd"], +Cell[26510, 790, 249, 4, 33, "Output",ExpressionUUID->"a57f0fa4-967d-46de-8af6-e87d6350c47e"] +}, Open ]], +Cell[26774, 797, 171, 2, 23, "Input",ExpressionUUID->"bdabfbf8-b47a-480a-8c78-a6cf66e21f99"], +Cell[CellGroupData[{ +Cell[26970, 803, 303, 5, 29, "Input",ExpressionUUID->"b5db7319-085c-44b1-ad4d-11738d3534ec"], +Cell[27276, 810, 253, 4, 33, "Output",ExpressionUUID->"8393b1ef-2bc5-4ea4-a490-4246cdd34b7a"] +}, Open ]], +Cell[27544, 817, 173, 2, 23, "Input",ExpressionUUID->"583e6c49-d319-465a-b35c-6f2ac9bd5ba2"], +Cell[CellGroupData[{ +Cell[27742, 823, 307, 5, 29, "Input",ExpressionUUID->"026c0d23-8bf8-41ae-a98d-7780139ca46c"], +Cell[28052, 830, 256, 4, 33, "Output",ExpressionUUID->"935cd024-f7e6-4a3b-b07c-98223f97909a"] +}, Open ]], +Cell[28323, 837, 172, 2, 23, "Input",ExpressionUUID->"262fece9-d120-4cae-9019-a3c5cb58e9dc"], +Cell[CellGroupData[{ +Cell[28520, 843, 275, 4, 29, "Input",ExpressionUUID->"994a6c0d-8380-4e60-b24a-8939a3e48aaf"], +Cell[28798, 849, 253, 4, 33, "Output",ExpressionUUID->"148f395a-425f-4513-b105-a82a41521ff4"] +}, Open ]], +Cell[29066, 856, 175, 2, 23, "Input",ExpressionUUID->"28b114a5-fcb8-453c-b84a-7075e503215d"], +Cell[CellGroupData[{ +Cell[29266, 862, 19809, 485, 1844, "Input",ExpressionUUID->"ecbc1264-e2e2-4423-bd26-f65c8ab8da1e"], +Cell[49078, 1349, 291, 4, 33, "Output",ExpressionUUID->"b6dfe171-7819-43f7-acab-cd3596eb043a"] }, Open ]], Cell[CellGroupData[{ -Cell[169119, 4145, 2663, 88, 70, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[171785, 4235, 171, 3, 70, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +Cell[49406, 1358, 19748, 489, 1981, "Input",ExpressionUUID->"631a9259-3db3-41ab-b763-afbac09f1026"], +Cell[69157, 1849, 287, 4, 33, "Output",ExpressionUUID->"c9bc1a36-1a64-4858-a166-86cb060b3477"] }, Open ]], Cell[CellGroupData[{ -Cell[171993, 4243, 2603, 85, 70, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[174599, 4330, 171, 3, 70, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +Cell[69481, 1858, 19748, 483, 1970, "Input",ExpressionUUID->"6b56e75a-60a6-4a1a-8015-7f2b6514645e"], +Cell[89232, 2343, 300, 5, 33, "Output",ExpressionUUID->"1be0cf02-d386-4123-95fb-fe2e71507b02"] }, Open ]], Cell[CellGroupData[{ -Cell[174807, 4338, 3712, 118, 70, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[178522, 4458, 170, 3, 70, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +Cell[89569, 2353, 22534, 553, 2217, "Input",ExpressionUUID->"d4281585-39fa-4ee3-b444-881d18d38dbc"], +Cell[112106, 2908, 303, 5, 33, "Output",ExpressionUUID->"a386b4fa-a0a9-4874-808b-8a064dad5b93"] }, Open ]], Cell[CellGroupData[{ -Cell[178729, 4466, 2052, 59, 70, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], -Cell[180784, 4527, 573, 12, 70, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], -Cell[181360, 4541, 577, 12, 70, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], -Cell[181940, 4555, 580, 12, 70, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], -Cell[182523, 4569, 456, 10, 70, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], -Cell[182982, 4581, 170, 3, 70, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +Cell[112446, 2918, 22535, 553, 2254, "Input",ExpressionUUID->"8eb126c3-e62c-4c62-8d30-6193c069be45"], +Cell[134984, 3473, 307, 5, 33, "Output",ExpressionUUID->"991a5703-95dd-4149-a112-565b83ed92fe"] }, Open ]], Cell[CellGroupData[{ -Cell[183189, 4589, 2054, 59, 70, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], -Cell[185246, 4650, 573, 12, 70, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], -Cell[185822, 4664, 577, 12, 70, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], -Cell[186402, 4678, 582, 12, 70, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], -Cell[186987, 4692, 456, 10, 70, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], -Cell[187446, 4704, 170, 3, 70, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +Cell[135328, 3483, 25491, 626, 2501, "Input",ExpressionUUID->"125d94dc-a98a-47a4-88ab-ab102a6556d6"], +Cell[160822, 4111, 302, 5, 33, "Output",ExpressionUUID->"240b88d5-46d6-4fe2-89f0-ea4c435286cd"] }, Open ]], Cell[CellGroupData[{ -Cell[187653, 4712, 2028, 55, 70, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], -Cell[189684, 4769, 20422, 382, 70, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +Cell[161161, 4121, 130, 2, 29, "Input",ExpressionUUID->"df4473ad-af8d-4f33-8051-2dde7fb76cff"], +Cell[161294, 4125, 274, 4, 33, "Output",ExpressionUUID->"5e05dd90-b382-413a-9dae-958a6320de74"] }, Open ]], Cell[CellGroupData[{ -Cell[210143, 5156, 2120, 60, 70, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], -Cell[212266, 5218, 502, 11, 70, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], -Cell[212771, 5231, 506, 11, 70, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], -Cell[213280, 5244, 505, 11, 70, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], -Cell[213788, 5257, 458, 10, 70, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], -Cell[214249, 5269, 22288, 412, 70, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] -}, Open ]], -Cell[236552, 5684, 209, 5, 70, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], -Cell[CellGroupData[{ -Cell[236786, 5693, 1616, 48, 70, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], -Cell[238405, 5743, 595, 12, 70, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], -Cell[239003, 5757, 595, 12, 70, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], -Cell[239601, 5771, 599, 12, 70, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], -Cell[240203, 5785, 456, 10, 70, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], -Cell[240662, 5797, 171, 3, 70, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +Cell[161605, 4134, 130, 2, 29, "Input",ExpressionUUID->"27165a01-8915-4150-b727-d8f3e076302e"], +Cell[161738, 4138, 272, 4, 33, "Output",ExpressionUUID->"b0980564-d0be-4d53-8c9c-086b317f2b16"] }, Open ]], Cell[CellGroupData[{ -Cell[240870, 5805, 2248, 64, 70, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], -Cell[243121, 5871, 575, 12, 70, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], -Cell[243699, 5885, 577, 12, 70, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], -Cell[244279, 5899, 582, 12, 70, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], -Cell[244864, 5913, 458, 10, 70, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], -Cell[245325, 5925, 172, 3, 70, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +Cell[162047, 4147, 1144, 39, 107, "Input",ExpressionUUID->"4c0d8518-0672-43c6-b766-414f929f5780"], +Cell[163194, 4188, 286, 4, 33, "Output",ExpressionUUID->"a4b32c86-1f29-4114-b3b0-ad0aaa11e5a1"] }, Open ]], Cell[CellGroupData[{ -Cell[245534, 5933, 2215, 63, 70, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], -Cell[247752, 5998, 575, 12, 70, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], -Cell[248330, 6012, 577, 12, 70, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], -Cell[248910, 6026, 582, 12, 70, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], -Cell[249495, 6040, 458, 10, 70, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], -Cell[249956, 6052, 170, 3, 70, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +Cell[163517, 4197, 1041, 35, 107, "Input",ExpressionUUID->"49290314-8218-4138-ba82-e6947dd7c514"], +Cell[164561, 4234, 303, 5, 33, "Output",ExpressionUUID->"2b57233d-fc17-4273-bb1f-76791bd75601"] }, Open ]], Cell[CellGroupData[{ -Cell[250163, 6060, 2223, 64, 70, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], -Cell[252389, 6126, 573, 12, 70, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], -Cell[252965, 6140, 577, 12, 70, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], -Cell[253545, 6154, 580, 12, 70, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], -Cell[254128, 6168, 456, 10, 70, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], -Cell[254587, 6180, 173, 3, 70, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +Cell[164901, 4244, 1144, 39, 107, "Input",ExpressionUUID->"fcdf7148-188c-43b6-99a3-de708303ab42"], +Cell[166048, 4285, 294, 4, 33, "Output",ExpressionUUID->"8b4f0e39-4023-49bd-bc5f-076975249423"] }, Open ]], Cell[CellGroupData[{ -Cell[254797, 6188, 213, 6, 70, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], -Cell[255013, 6196, 173, 3, 70, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] -}, Open ]], -Cell[255201, 6202, 247, 5, 70, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], -Cell[CellGroupData[{ -Cell[255473, 6211, 558, 19, 70, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[256034, 6232, 173, 3, 70, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +Cell[166379, 4294, 108, 1, 29, "Input",ExpressionUUID->"1c365e04-50e4-4a11-9dcb-f08333fcc439"], +Cell[166490, 4297, 291, 4, 33, "Output",ExpressionUUID->"2c46eef8-c0ad-44b8-b36b-b3033f4e1b5d"] }, Open ]], Cell[CellGroupData[{ -Cell[256244, 6240, 170, 5, 70, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[256417, 6247, 173, 3, 70, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +Cell[166818, 4306, 108, 1, 29, "Input",ExpressionUUID->"80d46040-1827-4ea3-b426-bb054c2a96ce"], +Cell[166929, 4309, 306, 5, 33, "Output",ExpressionUUID->"864d4a66-b0be-423c-aba8-d1ee52329679"] }, Open ]], Cell[CellGroupData[{ -Cell[256627, 6255, 181, 5, 70, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[256811, 6262, 173, 3, 70, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +Cell[167272, 4319, 108, 1, 29, "Input",ExpressionUUID->"9bd6cea1-a810-435d-8f10-3cb84c89bd51"], +Cell[167383, 4322, 307, 5, 33, "Output",ExpressionUUID->"6e32b889-067b-4c63-bbcb-5de53ea982c4"] }, Open ]], Cell[CellGroupData[{ -Cell[257021, 6270, 6055, 185, 70, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[263079, 6457, 172, 3, 70, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +Cell[167727, 4332, 108, 1, 29, "Input",ExpressionUUID->"46996e30-2084-4235-9eb0-42189b4bf772"], +Cell[167838, 4335, 288, 4, 33, "Output",ExpressionUUID->"a5a5d0ee-b87a-4fcc-8138-1fa90a785c29"] }, Open ]], Cell[CellGroupData[{ -Cell[263288, 6465, 368, 9, 70, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[263659, 6476, 172, 3, 70, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +Cell[168163, 4344, 107, 1, 29, "Input",ExpressionUUID->"7b054e60-9a97-4b2e-8971-b106728d20fd"], +Cell[168273, 4347, 290, 4, 33, "Output",ExpressionUUID->"cff2369c-6298-400b-94c8-4b191f2d6e5d"] }, Open ]], Cell[CellGroupData[{ -Cell[263868, 6484, 6122, 187, 70, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[269993, 6673, 173, 3, 70, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +Cell[168600, 4356, 107, 1, 29, "Input",ExpressionUUID->"e0f14832-45a9-4d76-9c07-b813795bf59c"], +Cell[168710, 4359, 289, 4, 33, "Output",ExpressionUUID->"71b41c15-198e-41a3-a661-7e13c9d42dc1"] }, Open ]], Cell[CellGroupData[{ -Cell[270203, 6681, 368, 9, 70, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[270574, 6692, 170, 3, 70, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +Cell[169036, 4368, 497, 16, 55, "Input",ExpressionUUID->"3b0ad172-40ec-4004-abda-f37163909ec1"], +Cell[169536, 4386, 310, 5, 33, "Output",ExpressionUUID->"40e67bd0-01d3-4c35-b085-257ba8219fbd"] }, Open ]], Cell[CellGroupData[{ -Cell[270781, 6700, 2663, 88, 70, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[273447, 6790, 171, 3, 70, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +Cell[169883, 4396, 497, 16, 55, "Input",ExpressionUUID->"17498e95-e5c6-4a36-8e7c-a59b88bcee2a"], +Cell[170383, 4414, 310, 5, 33, "Output",ExpressionUUID->"5f4b4337-3a22-4d36-adda-427d5f00c163"] }, Open ]], Cell[CellGroupData[{ -Cell[273655, 6798, 2603, 85, 70, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[276261, 6885, 173, 3, 70, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +Cell[170730, 4424, 1788, 60, 183, "Input",ExpressionUUID->"9a6340a8-f5e5-40ce-b9f5-9d3a4d410021"], +Cell[172521, 4486, 288, 4, 33, "Output",ExpressionUUID->"97cf1f71-8d82-4855-b417-c1aacf851506"] }, Open ]], Cell[CellGroupData[{ -Cell[276471, 6893, 3712, 118, 70, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[280186, 7013, 173, 3, 70, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +Cell[172846, 4495, 1101, 36, 131, "Input",ExpressionUUID->"4661ae7e-c1b1-49b7-9c5d-ea60282280b3"], +Cell[173950, 4533, 305, 5, 33, "Output",ExpressionUUID->"e7b96c46-b557-4bee-8c81-951d743b2f0c"] }, Open ]], Cell[CellGroupData[{ -Cell[280396, 7021, 2052, 59, 70, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], -Cell[282451, 7082, 568, 12, 70, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], -Cell[283022, 7096, 573, 12, 70, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], -Cell[283598, 7110, 576, 12, 70, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], -Cell[284177, 7124, 458, 10, 70, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], -Cell[284638, 7136, 172, 3, 70, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +Cell[174292, 4543, 1818, 61, 160, "Input",ExpressionUUID->"fb6ff41a-2aea-49fd-9a27-0f3cdc3418e3"], +Cell[176113, 4606, 285, 4, 33, "Output",ExpressionUUID->"9dcf7a4f-833b-499f-a4ce-ea0db6aeb2bd"] }, Open ]], Cell[CellGroupData[{ -Cell[284847, 7144, 2052, 59, 70, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], -Cell[286902, 7205, 568, 12, 70, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], -Cell[287473, 7219, 573, 12, 70, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], -Cell[288049, 7233, 574, 12, 70, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], -Cell[288626, 7247, 458, 10, 70, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], -Cell[289087, 7259, 172, 3, 70, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +Cell[176435, 4615, 1631, 53, 162, "Input",ExpressionUUID->"2e6df367-d820-40a2-807a-2a74d618051c"], +Cell[178069, 4670, 285, 4, 33, "Output",ExpressionUUID->"0da7cb2f-ca18-4669-8d2b-92fc0c306104"] }, Open ]], Cell[CellGroupData[{ -Cell[289296, 7267, 2028, 55, 70, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], -Cell[291327, 7324, 20375, 384, 70, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +Cell[178391, 4679, 1631, 53, 162, "Input",ExpressionUUID->"fdf2e85c-c14f-4ed3-bcc1-ff349e00d45e"], +Cell[180025, 4734, 290, 4, 33, "Output",ExpressionUUID->"9af60d61-68d6-47c1-b491-8ea4869f8505"] }, Open ]], Cell[CellGroupData[{ -Cell[311739, 7713, 2118, 60, 70, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], -Cell[313860, 7775, 501, 11, 70, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], -Cell[314364, 7788, 503, 11, 70, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], -Cell[314870, 7801, 506, 11, 70, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], -Cell[315379, 7814, 458, 10, 70, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], -Cell[315840, 7826, 22161, 409, 70, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +Cell[180352, 4743, 202, 3, 29, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[180557, 4748, 155, 2, 33, "Output",ExpressionUUID->"ce75aaf0-d19e-475d-8bc7-93d363726098"] }, Open ]], -Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[180727, 4753, 175, 2, 29, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], Cell[CellGroupData[{ -Cell[338250, 8247, 1616, 48, 70, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], -Cell[339869, 8297, 590, 12, 70, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], -Cell[340462, 8311, 589, 12, 70, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], -Cell[341054, 8325, 593, 12, 70, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], -Cell[341650, 8339, 456, 10, 70, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], -Cell[342109, 8351, 170, 3, 70, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +Cell[180927, 4759, 200, 3, 29, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[181130, 4764, 157, 2, 33, "Output",ExpressionUUID->"2db45872-c0c1-49c4-9bd2-fa202efa9213"] +}, Open ]], +Cell[181302, 4769, 171, 2, 29, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[181498, 4775, 1297, 42, 111, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[182798, 4819, 194, 2, 33, "Output",ExpressionUUID->"9d657f20-2a8b-417a-8604-197998d3ec40"] }, Open ]], Cell[CellGroupData[{ -Cell[342316, 8359, 2251, 64, 70, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], -Cell[344570, 8425, 568, 12, 70, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], -Cell[345141, 8439, 573, 12, 70, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], -Cell[345717, 8453, 574, 12, 70, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], -Cell[346294, 8467, 458, 10, 70, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], -Cell[346755, 8479, 173, 3, 70, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +Cell[183029, 4826, 927, 30, 96, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[183959, 4858, 196, 2, 33, "Output",ExpressionUUID->"177909c4-f0ad-47d6-b941-df881f2526ea"] }, Open ]], Cell[CellGroupData[{ -Cell[346965, 8487, 2221, 64, 70, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], -Cell[349189, 8553, 570, 12, 70, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], -Cell[349762, 8567, 573, 12, 70, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], -Cell[350338, 8581, 573, 12, 70, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], -Cell[350914, 8595, 458, 10, 70, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], -Cell[351375, 8607, 171, 3, 70, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +Cell[184192, 4865, 906, 29, 55, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[185101, 4896, 197, 2, 33, "Output",ExpressionUUID->"2389f67b-fa33-4d56-ad5b-30e3e2247094"] }, Open ]], Cell[CellGroupData[{ -Cell[351583, 8615, 2221, 64, 70, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], -Cell[353807, 8681, 570, 12, 70, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], -Cell[354380, 8695, 573, 12, 70, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], -Cell[354956, 8709, 574, 12, 70, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], -Cell[355533, 8723, 458, 10, 70, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], -Cell[355994, 8735, 173, 3, 70, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +Cell[185335, 4903, 554, 18, 51, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[185892, 4923, 190, 2, 33, "Output",ExpressionUUID->"e6fca847-6fee-40bd-a330-cbd059a5bcd1"] }, Open ]], Cell[CellGroupData[{ -Cell[356204, 8743, 215, 6, 70, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], -Cell[356422, 8751, 172, 3, 70, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] -}, Open ]] +Cell[186119, 4930, 647, 21, 51, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[186769, 4953, 186, 2, 33, "Output",ExpressionUUID->"6b5db98d-5e32-4ce9-8b6f-99ce6131e7eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[186992, 4960, 166, 4, 55, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[187161, 4966, 190, 2, 33, "Output",ExpressionUUID->"71ec8d2f-5f00-4469-bd2f-4fe418f8a544"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187388, 4973, 166, 4, 54, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[187557, 4979, 187, 2, 33, "Output",ExpressionUUID->"39f3aa1d-8123-468f-8dca-62530d837d5f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187781, 4986, 177, 4, 43, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[187961, 4992, 190, 2, 33, "Output",ExpressionUUID->"f318bf19-c9e3-420b-9ca2-9caf3baa88b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188188, 4999, 177, 4, 43, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[188368, 5005, 188, 2, 33, "Output",ExpressionUUID->"9c2b5cae-42ca-4e19-b386-ccbadba1ea59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188593, 5012, 6051, 184, 474, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[194647, 5198, 193, 2, 33, "Output",ExpressionUUID->"378e6545-a453-426a-9dfb-db90ca02984e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194877, 5205, 364, 8, 41, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[195244, 5215, 189, 2, 33, "Output",ExpressionUUID->"0bd30ece-deaf-4808-8b52-e4ad4a6c7b2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195470, 5222, 6118, 186, 474, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[201591, 5410, 193, 2, 33, "Output",ExpressionUUID->"0216ad47-0ea1-4a0c-bed6-2a7fc570fdb6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201821, 5417, 364, 8, 41, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[202188, 5427, 186, 2, 33, "Output",ExpressionUUID->"f84f32d7-4017-4637-adfd-b2e12beb78a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202411, 5434, 2659, 87, 285, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[205073, 5523, 190, 2, 33, "Output",ExpressionUUID->"a8bfd4c6-0b3e-4a72-95ca-9dba0ed02062"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205300, 5530, 2599, 84, 211, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[207902, 5616, 189, 2, 33, "Output",ExpressionUUID->"95cc0750-9ca6-49a6-8313-220e2539faee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208128, 5623, 3708, 117, 327, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[211839, 5742, 190, 2, 33, "Output",ExpressionUUID->"9e070644-70b2-4bb3-b795-0f46f9440114"] +}, Open ]], +Cell[212044, 5747, 160, 3, 29, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[212229, 5754, 2073, 58, 234, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[214305, 5814, 561, 12, 59, "Message",ExpressionUUID->"c0370d12-f511-4a3e-b8ef-83bfd249910b"], +Cell[214869, 5828, 563, 12, 59, "Message",ExpressionUUID->"3d4483bf-c198-41a2-8d6e-4b7cc0493f80"], +Cell[215435, 5842, 565, 12, 83, "Message",ExpressionUUID->"30101f8c-ce7d-4ed5-b2d6-7874b0fa8c82"], +Cell[216003, 5856, 487, 11, 26, "Message",ExpressionUUID->"621dace6-5ab5-4e3b-8d12-39eec692c959"], +Cell[216493, 5869, 193, 2, 33, "Output",ExpressionUUID->"535419f1-bd92-4b67-83c9-6819074a2a10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216723, 5876, 2071, 58, 234, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[218797, 5936, 561, 12, 59, "Message",ExpressionUUID->"a3ac4c7f-2b95-4ad4-854d-691c6833e2e7"], +Cell[219361, 5950, 562, 12, 59, "Message",ExpressionUUID->"6372103d-b98f-4d02-b26d-f032ee207549"], +Cell[219926, 5964, 564, 12, 83, "Message",ExpressionUUID->"e736bfe2-29a4-428a-b619-a6322bf34932"], +Cell[220493, 5978, 486, 11, 26, "Message",ExpressionUUID->"c8d0b6ef-af08-465c-8369-f213ca0054b3"], +Cell[220982, 5991, 188, 2, 33, "Output",ExpressionUUID->"88c1ff45-5f81-46f7-9957-7336fed0dea1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221207, 5998, 1955, 52, 102, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[223165, 6052, 20349, 382, 232, "Output",ExpressionUUID->"31584271-d60d-436e-a940-62714f7a9f5d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243551, 6439, 2111, 59, 261, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[245665, 6500, 521, 12, 59, "Message",ExpressionUUID->"9f0af054-68c8-4ced-b09c-321487a3d104"], +Cell[246189, 6514, 523, 12, 59, "Message",ExpressionUUID->"454b56dc-bad5-4675-90a7-dac17f1d074c"], +Cell[246715, 6528, 525, 12, 59, "Message",ExpressionUUID->"b02e41de-de87-4ee3-992d-cfa72bf7da1d"], +Cell[247243, 6542, 484, 11, 26, "Message",ExpressionUUID->"89b5f89a-f313-4754-860d-3891924c49f6"], +Cell[247730, 6555, 21813, 404, 232, "Output",ExpressionUUID->"98794dd7-c555-4e2f-b483-e24c66048d2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[269580, 6964, 2473, 69, 169, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[272056, 7035, 9506, 222, 239, "Output",ExpressionUUID->"a3eb1c32-fb31-4c53-b1c6-d2885d5c9b45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281599, 7262, 228, 4, 29, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[281830, 7268, 28188, 536, 232, "Output",ExpressionUUID->"076b55c2-d132-4384-b882-50709b2b2291"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310055, 7809, 236, 6, 47, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[310294, 7817, 191, 2, 33, "Output",ExpressionUUID->"3406ceeb-8bcb-420e-831d-f8894078a999"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310522, 7824, 1833, 52, 190, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[312358, 7878, 540, 12, 59, "Message",ExpressionUUID->"269c2f9e-83e8-48d3-b406-cee8041921d5"], +Cell[312901, 7892, 537, 12, 59, "Message",ExpressionUUID->"fb44d5d0-953e-4f5c-903b-5956f877a8f1"], +Cell[313441, 7906, 540, 12, 59, "Message",ExpressionUUID->"2ed24f45-2b9c-47e1-a2ae-afafdb133c39"], +Cell[313984, 7920, 486, 11, 26, "Message",ExpressionUUID->"96f8ccee-e2bc-49b9-8e8f-b30817b77169"], +Cell[314473, 7933, 22558, 416, 232, "Output",ExpressionUUID->"89067589-cfeb-45b8-b01a-1cc1617013e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[337068, 8354, 1616, 48, 104, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[338687, 8404, 625, 13, 80, "Message",ExpressionUUID->"ae94efd0-e39f-40d2-9ff3-70fd78be818d"], +Cell[339315, 8419, 720, 15, 80, "Message",ExpressionUUID->"8eb341f0-9a82-422c-97bc-922ef535898b"], +Cell[340038, 8436, 720, 15, 80, "Message",ExpressionUUID->"fe2fe7f2-30a2-4753-a1a8-21744e2bc36e"], +Cell[340761, 8453, 488, 11, 26, "Message",ExpressionUUID->"339b8244-171e-4213-83d0-ae73e269308e"], +Cell[341252, 8466, 197, 3, 33, "Output",ExpressionUUID->"d47caea1-51b7-4c7c-97d6-2596d083fd01"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341486, 8474, 2296, 65, 212, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[343785, 8541, 564, 12, 59, "Message",ExpressionUUID->"691bb722-d52f-44fc-a1a7-68249386896f"], +Cell[344352, 8555, 568, 12, 59, "Message",ExpressionUUID->"d4e8e44c-ae56-4ff1-83c5-57f3ff4b208b"], +Cell[344923, 8569, 568, 12, 83, "Message",ExpressionUUID->"4c8cc485-90c1-4cc4-9dde-221d3d23f754"], +Cell[345494, 8583, 490, 11, 26, "Message",ExpressionUUID->"8ccee8c9-11be-4f40-bf57-ac4a736e7283"], +Cell[345987, 8596, 193, 3, 33, "Output",ExpressionUUID->"9ec546ea-b8b5-43e3-b6e3-e553ba315a92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346217, 8604, 2233, 63, 212, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[348453, 8669, 562, 12, 59, "Message",ExpressionUUID->"9c065467-b2bb-4357-a145-311cabc6837c"], +Cell[349018, 8683, 566, 12, 59, "Message",ExpressionUUID->"bb236edf-e121-4674-af6c-2091e42cb4db"], +Cell[349587, 8697, 566, 12, 83, "Message",ExpressionUUID->"6f5fbebc-5528-4beb-ad93-d2d74aec44e1"], +Cell[350156, 8711, 486, 11, 26, "Message",ExpressionUUID->"7714b559-4b5e-4c52-9c13-d612881d6e9f"], +Cell[350645, 8724, 194, 3, 33, "Output",ExpressionUUID->"4866fdb6-28ae-4d37-a8a6-246f52803f2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350876, 8732, 2235, 63, 212, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[353114, 8797, 564, 12, 59, "Message",ExpressionUUID->"f6a59d7b-d053-49d9-b622-c5a733567bd4"], +Cell[353681, 8811, 566, 12, 59, "Message",ExpressionUUID->"54fd9198-0ecc-41da-9ca1-16d9d6aa517c"], +Cell[354250, 8825, 568, 12, 83, "Message",ExpressionUUID->"7f354066-44f7-4abd-b34a-c7e85c241012"], +Cell[354821, 8839, 488, 11, 26, "Message",ExpressionUUID->"e7a4d797-7dce-4f14-a3ff-a230a94edcb7"], +Cell[355312, 8852, 192, 3, 33, "Output",ExpressionUUID->"075f3f1b-bc49-428c-af59-00f00bb81d3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355541, 8860, 236, 6, 46, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[355780, 8868, 195, 3, 33, "Output",ExpressionUUID->"39171ffc-5a8f-4c4f-a2e3-fa5934926a7a"] +}, Open ]], +Cell[355990, 8874, 270, 6, 29, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[356285, 8884, 558, 19, 51, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[356846, 8905, 195, 3, 33, "Output",ExpressionUUID->"499d047d-0c2e-49ac-b452-1d890006c078"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357078, 8913, 170, 5, 55, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[357251, 8920, 193, 3, 33, "Output",ExpressionUUID->"704bca29-61bc-403e-921d-4646eb499f3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357481, 8928, 181, 5, 43, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[357665, 8935, 194, 3, 33, "Output",ExpressionUUID->"bd4b4ed4-cbe4-48fe-b97c-c5f7878395a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357896, 8943, 6055, 185, 474, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[363954, 9130, 196, 3, 33, "Output",ExpressionUUID->"b0ebdb96-acde-4bae-b94e-2a86f49940f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364187, 9138, 368, 9, 41, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[364558, 9149, 195, 3, 33, "Output",ExpressionUUID->"aec52a98-5a6a-424c-b438-02ac917b1171"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364790, 9157, 6122, 187, 474, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[370915, 9346, 195, 3, 33, "Output",ExpressionUUID->"8b75c37b-cb3a-41e7-bddd-cfdcd509446e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371147, 9354, 368, 9, 41, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[371518, 9365, 194, 3, 33, "Output",ExpressionUUID->"2a7c0124-9e81-4084-97ca-179f6a2a5055"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371749, 9373, 2663, 88, 285, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[374415, 9463, 196, 3, 33, "Output",ExpressionUUID->"bad5c028-b5eb-4258-8f72-4666c8af1cec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374648, 9471, 2603, 85, 211, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[377254, 9558, 195, 3, 33, "Output",ExpressionUUID->"b046aa58-804f-446e-a8bd-26636eb1ea34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377486, 9566, 3712, 118, 327, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[381201, 9686, 193, 3, 33, "Output",ExpressionUUID->"7d6e5b58-fded-49ae-860b-e7b654be7526"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381431, 9694, 2075, 59, 234, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[383509, 9755, 584, 13, 80, "Message",ExpressionUUID->"14440ad5-bf1f-4ae7-8553-ca66f4b01137"], +Cell[384096, 9770, 587, 13, 80, "Message",ExpressionUUID->"304c6c35-5e61-49d4-9004-b53cdbc321e1"], +Cell[384686, 9785, 591, 13, 80, "Message",ExpressionUUID->"a77ef920-15e8-43cf-a1fd-214cc1605656"], +Cell[385280, 9800, 486, 11, 26, "Message",ExpressionUUID->"19764271-72ab-4f6f-92c1-bc1f7077be61"], +Cell[385769, 9813, 193, 3, 33, "Output",ExpressionUUID->"fe7ab1a1-8505-42ae-8425-cefe4bbd1b26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385999, 9821, 2077, 59, 234, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[388079, 9882, 584, 13, 26, "Message",ExpressionUUID->"2b95ff2d-b8df-4162-946b-d8af3739a37e"], +Cell[388666, 9897, 589, 13, 26, "Message",ExpressionUUID->"1da26eae-abda-401d-8e73-3d0962cefc38"], +Cell[389258, 9912, 591, 13, 26, "Message",ExpressionUUID->"fab8d531-1675-4da9-8ee1-e2056f761945"], +Cell[389852, 9927, 488, 11, 26, "Message",ExpressionUUID->"b2ee7ccb-6915-4832-b1ac-1e8e43fe61d5"], +Cell[390343, 9940, 191, 3, 33, "Output",ExpressionUUID->"5b89a9f4-0461-4f3b-afb9-8e9ccb0b717e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390571, 9948, 2051, 55, 53, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[392625, 10005, 20310, 383, 236, "Output",ExpressionUUID->"208a98aa-286b-411f-a93e-3c758690a17c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[412972, 10393, 2143, 60, 99, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[415118, 10455, 528, 12, 40, "Message",ExpressionUUID->"8bcf9d5b-702a-46be-b22c-bcd7cbb55ad8"], +Cell[415649, 10469, 532, 12, 40, "Message",ExpressionUUID->"a55a7afa-cbc9-4a07-a620-b3aa6df09723"], +Cell[416184, 10483, 536, 12, 40, "Message",ExpressionUUID->"070df036-e708-476d-ad5c-6ad154522e81"], +Cell[416723, 10497, 488, 11, 26, "Message",ExpressionUUID->"f4f8278c-5b7c-4b20-bd9a-b4c016417ee2"], +Cell[417214, 10510, 22154, 411, 232, "Output",ExpressionUUID->"22567af4-0fce-4c76-999c-3609a82ed1ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439405, 10926, 232, 5, 29, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[439640, 10933, 28528, 543, 232, "Output",ExpressionUUID->"7da7c2d5-f867-4336-a54b-f632c29c8eab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[468205, 11481, 1616, 48, 71, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[469824, 11531, 720, 15, 43, "Message",ExpressionUUID->"dda0795b-10e4-4884-94a2-a57b0cd19860"], +Cell[470547, 11548, 721, 15, 43, "Message",ExpressionUUID->"d30ce3fb-c759-4c5c-986b-71cd6d60d74d"], +Cell[471271, 11565, 721, 15, 43, "Message",ExpressionUUID->"8365c389-3ece-46a8-827a-42da23a157ab"], +Cell[471995, 11582, 488, 11, 26, "Message",ExpressionUUID->"138baba4-063a-4f1d-b402-a657fc9aa033"], +Cell[472486, 11595, 195, 3, 33, "Output",ExpressionUUID->"3a51d18e-cee3-4e03-97a3-8fb907b04cd4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472718, 11603, 2271, 64, 64, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[474992, 11669, 586, 13, 26, "Message",ExpressionUUID->"f60f6825-1514-425b-9288-a8fa7f544896"], +Cell[475581, 11684, 589, 13, 26, "Message",ExpressionUUID->"dd6ef4d6-2a94-4d75-8a23-81f5525a94f6"], +Cell[476173, 11699, 593, 13, 26, "Message",ExpressionUUID->"e46d1517-4a18-45ee-933d-5612bd7bc8c5"], +Cell[476769, 11714, 490, 11, 26, "Message",ExpressionUUID->"275d6355-8ae1-4ab4-93f6-04083c2302ca"], +Cell[477262, 11727, 194, 3, 33, "Output",ExpressionUUID->"2ce10b44-a6cc-4028-9936-01c2f9a71c25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477493, 11735, 2229, 63, 64, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[479725, 11800, 586, 13, 26, "Message",ExpressionUUID->"4b2bacf7-b009-4ab0-b2d1-e366765d18a4"], +Cell[480314, 11815, 589, 13, 26, "Message",ExpressionUUID->"5df91922-c7cc-4321-8b9b-429f4264f3e0"], +Cell[480906, 11830, 593, 13, 26, "Message",ExpressionUUID->"4aeb4d9b-8b8f-4ec2-9f05-3ed89bbf90ec"], +Cell[481502, 11845, 490, 11, 26, "Message",ExpressionUUID->"9c05dbf2-419a-4530-acc0-c8f30b9d6f06"], +Cell[481995, 11858, 193, 3, 33, "Output",ExpressionUUID->"a0e73799-676b-4613-87a1-a7386913f909"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482225, 11866, 2235, 63, 64, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[484463, 11931, 584, 13, 26, "Message",ExpressionUUID->"00d55aaa-67be-4cc9-a561-6060640114fd"], +Cell[485050, 11946, 586, 13, 26, "Message",ExpressionUUID->"fa93bbf0-ab65-4b39-a606-8c4347c233ea"], +Cell[485639, 11961, 593, 13, 26, "Message",ExpressionUUID->"7f9e5af1-bfa6-4bfc-af98-480746d9035c"], +Cell[486235, 11976, 486, 11, 26, "Message",ExpressionUUID->"1c89b8c2-e6c0-4b8f-bde9-1cb66856b6c7"], +Cell[486724, 11989, 194, 3, 33, "Output",ExpressionUUID->"7f40cc16-44ec-4792-8c44-617c0b8f6df2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486955, 11997, 236, 6, 46, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[487194, 12005, 196, 3, 33, "Output",ExpressionUUID->"e5b3eb31-40b7-4c19-96ec-1556a2b6b559"] +}, Open ]], +Cell[487405, 12011, 273, 6, 29, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[487703, 12021, 558, 19, 51, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[488264, 12042, 197, 3, 33, "Output",ExpressionUUID->"51dfef38-99b6-47ef-ab56-efa742a39258"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488498, 12050, 170, 5, 55, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[488671, 12057, 194, 3, 33, "Output",ExpressionUUID->"c2cdbc1f-4f22-4b77-b960-b6fbaa251056"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488902, 12065, 181, 5, 43, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[489086, 12072, 195, 3, 33, "Output",ExpressionUUID->"b90cba5c-58bb-4b53-80c9-d224282048c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489318, 12080, 6055, 185, 183, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[495376, 12267, 195, 3, 33, "Output",ExpressionUUID->"3ca06a31-b5e3-49cf-a34c-21aa8bd08207"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495608, 12275, 368, 9, 41, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[495979, 12286, 195, 3, 33, "Output",ExpressionUUID->"f14f7ef7-5b2b-425d-b50b-c572d9811ffa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496211, 12294, 6122, 187, 183, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[502336, 12483, 197, 3, 33, "Output",ExpressionUUID->"8618e440-7800-4595-8240-010388ebc7a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502570, 12491, 368, 9, 41, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[502941, 12502, 192, 3, 33, "Output",ExpressionUUID->"87ccea6b-ea0c-4e4b-a518-ba97cbba6c1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503170, 12510, 2663, 88, 107, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[505836, 12600, 194, 3, 33, "Output",ExpressionUUID->"01057572-0653-4905-b068-b5b36dcca9f9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[506067, 12608, 2603, 85, 107, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[508673, 12695, 195, 3, 33, "Output",ExpressionUUID->"e36f9952-5f39-43e4-9947-b4cb85bac9ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508905, 12703, 3712, 118, 160, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[512620, 12823, 196, 3, 33, "Output",ExpressionUUID->"2b307a4f-6d48-4260-be88-208980369abb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512853, 12831, 2075, 59, 234, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[514931, 12892, 574, 12, 64, "Message",ExpressionUUID->"a2ad1f9c-a92b-4976-b7e2-a7213b3ea6e5"], +Cell[515508, 12906, 582, 13, 64, "Message",ExpressionUUID->"b3fe4d5e-f77c-4f95-9759-5f373cf45ca6"], +Cell[516093, 12921, 583, 13, 81, "Message",ExpressionUUID->"4eef3c20-34c2-4cea-b7ab-b4c8b4749002"], +Cell[516679, 12936, 486, 11, 26, "Message",ExpressionUUID->"3193b0b3-d810-49e7-8bde-dad07153f939"], +Cell[517168, 12949, 197, 3, 33, "Output",ExpressionUUID->"d73aec47-e91a-40c3-8da0-8408bcfdfa2f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517402, 12957, 2075, 59, 99, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[519480, 13018, 574, 12, 26, "Message",ExpressionUUID->"45df8932-014e-47f5-8382-ede0031a9811"], +Cell[520057, 13032, 579, 13, 26, "Message",ExpressionUUID->"8f5ec9c0-e365-4961-a7f1-10c8bd413ea5"], +Cell[520639, 13047, 585, 13, 26, "Message",ExpressionUUID->"48f9d8cb-a034-468f-b7ae-451856d94a83"], +Cell[521227, 13062, 488, 11, 26, "Message",ExpressionUUID->"9b765da6-7115-4a9d-8855-4f8d1795cfe5"], +Cell[521718, 13075, 197, 3, 33, "Output",ExpressionUUID->"ccadfca1-b8ef-417f-b323-a28b252127d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[521952, 13083, 2051, 55, 151, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[524006, 13140, 20481, 384, 236, "Output",ExpressionUUID->"a15df27c-0bb2-4ea0-83cb-b9ac463c35cc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[544524, 13529, 2141, 60, 261, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[546668, 13591, 527, 12, 59, "Message",ExpressionUUID->"1063fef0-4503-4bb8-ae44-1cd2a128f6d9"], +Cell[547198, 13605, 532, 12, 59, "Message",ExpressionUUID->"34013681-708d-49ac-b3fe-0a89610cb42f"], +Cell[547733, 13619, 533, 12, 59, "Message",ExpressionUUID->"ed8e2b9f-e7e1-40b7-8d3c-7fe981d5b049"], +Cell[548269, 13633, 490, 11, 26, "Message",ExpressionUUID->"a0a6015f-cf2d-4d4c-b075-cc52b9b2da22"], +Cell[548762, 13646, 22434, 417, 232, "Output",ExpressionUUID->"1cc93bca-a61d-49cf-abc1-c98782fcb2e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[571233, 14068, 232, 5, 29, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[571468, 14075, 28804, 549, 232, "Output",ExpressionUUID->"1474d29a-5dd7-4fab-9c0b-89ae7783ff10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[600309, 14629, 1616, 48, 104, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[601928, 14679, 720, 15, 80, "Message",ExpressionUUID->"4540b8c0-2806-4871-95c9-88ea9a88f3ab"], +Cell[602651, 14696, 721, 15, 80, "Message",ExpressionUUID->"88024bdb-6ca2-4258-9cd1-75e3efbf86e4"], +Cell[603375, 14713, 720, 15, 80, "Message",ExpressionUUID->"75164e55-6d03-459d-8273-5f0acdc1d746"], +Cell[604098, 14730, 488, 11, 26, "Message",ExpressionUUID->"ebf80c2a-1034-4717-a60b-6c6e22c98647"], +Cell[604589, 14743, 194, 3, 33, "Output",ExpressionUUID->"dc203f1a-0e38-4505-bbad-e1cc0c2d81e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[604820, 14751, 2274, 64, 212, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[607097, 14817, 574, 12, 63, "Message",ExpressionUUID->"e92d047b-70bb-4d02-ad98-952383f79a9b"], +Cell[607674, 14831, 580, 13, 63, "Message",ExpressionUUID->"a4b68cd8-d9b4-4744-ab8c-1701f9ee022f"], +Cell[608257, 14846, 583, 13, 80, "Message",ExpressionUUID->"8084011c-c69f-4062-b0f1-c13533fa60ae"], +Cell[608843, 14861, 485, 11, 26, "Message",ExpressionUUID->"ef26f326-27d8-4cc9-8851-87397ce44cd1"], +Cell[609331, 14874, 196, 3, 33, "Output",ExpressionUUID->"277952d6-ae30-4251-b71a-fa47969cf2b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[609564, 14882, 2233, 63, 212, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[611800, 14947, 578, 12, 63, "Message",ExpressionUUID->"07fa5cc5-35b3-44c6-9b99-fa8155b1be8d"], +Cell[612381, 14961, 582, 13, 63, "Message",ExpressionUUID->"242d295e-8dcf-4924-9309-b731515c18e0"], +Cell[612966, 14976, 585, 13, 80, "Message",ExpressionUUID->"c53444d1-c65a-43da-beb5-7b57a2a39d0a"], +Cell[613554, 14991, 490, 11, 26, "Message",ExpressionUUID->"03237c8b-2215-4371-8368-47cbc2c0b7dc"], +Cell[614047, 15004, 193, 3, 33, "Output",ExpressionUUID->"99ef0481-4499-46c0-98fa-12e0a48e5ab0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[614277, 15012, 2233, 63, 212, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[616513, 15077, 578, 12, 63, "Message",ExpressionUUID->"af58cdfc-f88d-4158-8265-1cb14e04ff8e"], +Cell[617094, 15091, 584, 13, 63, "Message",ExpressionUUID->"477f5574-19cd-4f8f-9980-cf24fb55a808"], +Cell[617681, 15106, 585, 13, 80, "Message",ExpressionUUID->"fb79e9bc-8aa3-4fa8-8be5-74fc8dd5d95e"], +Cell[618269, 15121, 488, 11, 26, "Message",ExpressionUUID->"54e876f5-f6b5-4ab6-90ab-4ea0e7b8f2a7"], +Cell[618760, 15134, 197, 3, 33, "Output",ExpressionUUID->"21627505-f48f-4fe5-96de-93bdc1b32713"] +}, Open ]], +Cell[CellGroupData[{ +Cell[618994, 15142, 238, 6, 46, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[619235, 15150, 194, 3, 33, "Output",ExpressionUUID->"6f5e6aba-2138-40f0-8ffe-e8fc24174770"] +}, Open ]], +Cell[619444, 15156, 143, 3, 29, "Input",ExpressionUUID->"3f378f13-9c4e-45c1-9b83-0a6210f5c73b"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw1.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw1.nb index 14330be..0e66828 100644 --- a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw1.nb @@ -3,42 +3,4775 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 419556, 9759] -NotebookOptionsPosition[ 394772, 9385] -NotebookOutlinePosition[ 395226, 9403] -CellTagsIndexPosition[ 395183, 9400] +NotebookDataLength[ 667731, 15933] +NotebookOptionsPosition[ 627155, 15283] +NotebookOutlinePosition[ 627618, 15302] +CellTagsIndexPosition[ 627575, 15299] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918488488187084`*^9},ExpressionUUID->"bdefbecf-0aaa-4a45-a861-\ -406cf54e52d1"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848849725815*^9, - 3.9918488497328167`*^9}},ExpressionUUID->"a5161e25-7247-124f-8601-\ -7bcc4af89c62"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "2.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9938052191744213`*^9, 3.9938052504311247`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"79fd54c7-8888-4cdc-8fb2-cd4edd72f49d"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99380518475546*^9, {3.993805224475608*^9, + 3.993805252954657*^9}, 3.993916351512208*^9, 3.9939172177447567`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"d521ad4e-d366-4b49-928b-c96aaa03ab49"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993916321914616*^9, 3.993916322483457*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"66c5676b-2dd6-4552-bb40-c81c6223ed04"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ -c079ad464f5d"], + 3.9913196497381973`*^9, 3.993805185043068*^9, {3.993805224572557*^9, + 3.993805252993279*^9}, 3.993916351869231*^9, 3.993917217884153*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"888fca21-448a-40d0-9853-7a6502de05c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "158"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9938049166426687`*^9, 3.993804917651101*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"4b2e9357-7695-4cd5-9271-dc05894e4006"], + +Cell[BoxData["158"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993805185062161*^9, {3.993805224576009*^9, + 3.993805253007394*^9}, 3.993916351892046*^9, 3.993917217901334*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"14182c23-3003-4f98-a5a0-737d5dcb3052"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"7124fe1b-736a-4196-9804-3b8e994d6576"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993805185081649*^9, {3.993805224601097*^9, + 3.99380525302089*^9}, 3.993916351914412*^9, 3.993917217921692*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"a07faef5-4c8b-4803-83a0-cee8ff290fc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"a69d50e8-01b8-46a8-ad28-b31599d96151"], + +Cell[BoxData["0.54525`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9938051851009007`*^9, {3.993805224616465*^9, + 3.993805253035823*^9}, 3.993916351937345*^9, 3.993917217939988*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"12234158-b5be-4b40-b0d9-dd403b7c551f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"3707241e-2eae-49a7-9f3e-709999306b21"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9938051851193542`*^9, {3.993805224632454*^9, + 3.9938052530394487`*^9}, 3.9939163519603853`*^9, 3.993917217954805*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"c580d713-e8b4-4480-9140-7c51516b7829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"232bb672-f079-45dd-8a3c-d299c467f334"], + +Cell[BoxData["6.27109940387026`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.99380518513807*^9, {3.993805224647552*^9, + 3.9938052530590487`*^9}, 3.993916351983755*^9, 3.993917217972371*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"53c14f9f-f0a3-4139-aca0-b64960e4d601"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"560d4124-acba-49d0-a26a-afaf68fa81cf"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993805185156455*^9, {3.99380522466296*^9, + 3.993805253072824*^9}, 3.993916352007182*^9, 3.993917217989341*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"a98d03e8-5bcd-49d7-a662-aa89fccb9a69"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "1.0538"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993804952051347*^9, 3.9938049566002893`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"f7b2d9fc-028f-4505-a4ce-1560f2c9830c"], + +Cell[BoxData["1.0538`"], "Output", + CellChangeTimes->{ + 3.99380518519252*^9, {3.993805224678464*^9, 3.993805253087891*^9}, + 3.99391635203514*^9, 3.993917218003973*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"665873f9-23c9-4be6-9fbd-147700e3089d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4586"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993804961242296*^9, 3.993804965065857*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"ed64fc91-6da8-48b7-9583-3472a3037f1f"], + +Cell[BoxData["0.4586`"], "Output", + CellChangeTimes->{ + 3.9938051852126503`*^9, {3.9938052246934443`*^9, 3.9938052531018476`*^9}, + 3.9939163520582523`*^9, 3.993917218018661*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"65b904a1-42b3-497f-ae72-246ead28c8c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"77edec8c-67a4-4f6d-aad6-2cd13d2ad8a0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993805185248838*^9, {3.9938052247082167`*^9, + 3.9938052531162167`*^9}, 3.993916352081853*^9, 3.993917218034774*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"8e71bff3-2ee1-407d-8154-8a794dfe4160"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81c20588-7b84-4188-b87c-638bf01e8a4b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993805185267172*^9, {3.9938052247238207`*^9, + 3.993805253130691*^9}, 3.9939163521054068`*^9, 3.993917218048217*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"ef873304-a4c1-464c-bdee-c95ada5837ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"6f83e9d2-e172-4c17-9932-496e1ba5946e"], + +Cell[BoxData["2.7212678798402736`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.99380518528695*^9, {3.993805224741534*^9, + 3.993805253144705*^9}, 3.9939163521330347`*^9, 3.9939172180623837`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"1daa41a1-acf8-4891-ac79-86dc04809bda"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"74ee785f-8b20-4ab5-834e-8abe58b48b8f"], + +Cell[BoxData["1.517413176238712`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993805185305333*^9, {3.993805224756358*^9, + 3.993805253156912*^9}, 3.993916352156901*^9, 3.993917218076742*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"6d78f983-02a8-43f3-9c58-b378a70ff3f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"3fcff6bf-1f92-48eb-a76f-cfe253f52267"], + +Cell[BoxData["0.32066933716802604`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938051853237133`*^9, {3.993805224762803*^9, + 3.9938052531724854`*^9}, 3.993916352182193*^9, 3.993917218093135*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"273f263d-1850-4ac9-be7c-39ced7e0a8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"1182e2c9-cd83-46a9-b2f0-8a483bd8d1cf"], + +Cell[BoxData[ + RowBox[{"-", "0.07876066759731537`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9938051853418283`*^9, {3.993805224780403*^9, + 3.993805253186532*^9}, 3.993916352207016*^9, 3.9939172181099367`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"2c07b4ad-0aca-41a3-a9ee-193a24650941"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"4546f1c3-3605-4ee2-a968-cb9df09fc807"], + +Cell[BoxData[ + RowBox[{"-", "0.5970148797225691`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9938051853596067`*^9, {3.99380522479467*^9, + 3.993805253200911*^9}, 3.993916352232068*^9, 3.993917218126741*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"f6a681b5-b12a-42dd-8fed-706d66e56ab6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"5ca2cdda-ba5e-458e-bcf7-631a792f220d"], + +Cell[BoxData["0.6876077696425691`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993805185378059*^9, {3.993805224809915*^9, + 3.993805253215036*^9}, 3.993916352256995*^9, 3.993917218142448*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"3dca731c-4e02-47fd-849d-ea44e8b96e30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"819b6264-d7b7-40d0-bbdf-a8336317da6e"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993805185398272*^9, {3.993805224824396*^9, + 3.9938052532292*^9}, 3.9939163522826366`*^9, 3.9939172181571836`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"b8fab1e0-6e18-4e85-9e71-7efecb9d6504"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"b1b6760d-8860-45e4-bdfd-896472ee4e4e"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9938051854177923`*^9, {3.99380522484026*^9, + 3.993805253244286*^9}, 3.993916352307663*^9, 3.9939172181706867`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"2fc2400d-87cc-4485-9e2c-144be5287015"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"d7427c65-96be-4940-83c9-72d0bf6a6b09"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993805185437478*^9, {3.993805224855752*^9, + 3.9938052532596083`*^9}, 3.993916352336733*^9, 3.993917218186099*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"856bdbf3-c00a-43ab-a573-927e07092b23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"1cb27e0a-5fc5-447b-9019-1a318f17e98d"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.9938051854577103`*^9, {3.99380522487106*^9, + 3.993805253274938*^9}, 3.993916352360208*^9, 3.99391721820012*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"1d4f7ad2-f2b3-4eb1-a47a-7395d9fa20f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"dcdde511-86fa-4efb-8e19-90b6a92a1639"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993805185476227*^9, {3.993805224888023*^9, + 3.9938052532912817`*^9}, 3.9939163523865757`*^9, 3.993917218214335*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"615008d1-0cc7-454a-9829-3581c6b68d83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.993804991704192*^9, 3.9938049918531923`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"ea04d6fe-1e04-4385-ad95-bd41c58a8b64"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.99380518552493*^9, {3.9938052249037046`*^9, + 3.993805253306974*^9}, 3.993916352410439*^9, 3.993917218231677*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"3302127a-ce82-44ff-a384-0780c28a910f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993804995664447*^9, 3.993804995772654*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"02801263-24b2-4dfa-ae4f-a5a8d90f2fb9"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993805185543676*^9, {3.9938052249204884`*^9, + 3.993805253322205*^9}, 3.99391635243427*^9, 3.993917218248584*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"7eb895a1-c74f-44b2-9f52-9131c87c5d4b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"031bd5f8-98e1-49f9-a5f7-393581127ea5"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9938051855619907`*^9, {3.9938052249386597`*^9, + 3.9938052533386793`*^9}, 3.993916352457818*^9, 3.9939172182655*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"2c269cf6-2f23-4b21-b9f7-8130da60a5f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"2a50b250-92e5-4b66-916d-3896404e531d"], + +Cell[BoxData["0.11191417104044457`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993805185580923*^9, {3.993805224956522*^9, + 3.993805253354024*^9}, 3.9939163524821377`*^9, 3.9939172182799597`*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"01879c55-d77f-47cc-aeca-ae54076c3564"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"fd68540e-ef81-44ce-8d13-2117e02aef82"], + +Cell[BoxData[ + RowBox[{"-", "2.561824637233714`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993805185599188*^9, {3.993805224972258*^9, + 3.993805253370023*^9}, 3.9939163525065804`*^9, 3.9939172182948627`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"8e3ba4d1-16fa-4b45-866b-e45777a87036"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"7846ad74-c059-4b27-a55f-18eb824a389c"], + +Cell[BoxData["18.398535985484678`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.99380518561648*^9, {3.993805224987084*^9, + 3.993805253385118*^9}, 3.993916352533133*^9, 3.993917218308605*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"552a43ff-d2a0-42d0-8fb4-ae61be1a4519"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"d45f2c5a-8585-4f87-86e4-5521eebe5f50"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9938051856333447`*^9, {3.993805225004781*^9, + 3.993805253400388*^9}, 3.993916352603034*^9, 3.99391721832486*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"139aa581-11cd-428b-af7e-b738597185e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.1"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993805039391902*^9, 3.993805039626801*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"b87caebc-d882-4a06-a4f5-19feb2f0047a"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.993805185666649*^9, {3.993805225028409*^9, 3.993805253416904*^9}, + 3.993916352634946*^9, 3.993917218342293*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"f082a7af-2a79-450f-a68b-242873694b25"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991848851636154*^9, - 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ -11f4dcb03e07"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"769c9ef3-a06a-477c-b132-c18d52e3a17c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.825"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993805045213546*^9, 3.993805047124814*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"e347ea88-41f9-4b29-8452-2f6d4241adcc"], + +Cell[BoxData["0.825`"], "Output", + CellChangeTimes->{ + 3.993805185701985*^9, {3.993805225054669*^9, 3.993805253444351*^9}, + 3.9939163527056713`*^9, 3.9939172183707943`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"c293c6cf-86e9-4af4-947d-0fd390e08a3f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"547e34e6-4004-4905-9540-e7103136ffa9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.555"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9938050508440866`*^9, 3.993805052236985*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"85072b17-b61e-469b-8bcc-575f8e84fbd2"], + +Cell[BoxData["2.555`"], "Output", + CellChangeTimes->{ + 3.9938051857394037`*^9, {3.9938052250786047`*^9, 3.9938052534689074`*^9}, + 3.993916352780088*^9, 3.993917218401724*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"3152df56-01e7-49c5-baad-9c3a7e910940"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"7ba8a2f3-d167-49f0-a19a-75102a85f879"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.245"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.99380505503828*^9, 3.993805056087892*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"14c5ec4d-20ce-485b-b63a-bae72aa04f4a"], + +Cell[BoxData["1.245`"], "Output", + CellChangeTimes->{ + 3.993805185761554*^9, {3.9938052251046124`*^9, 3.9938052534951553`*^9}, + 3.9939163528525343`*^9, 3.9939172184278297`*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"3731d5fa-779c-4214-b254-9b88f6420f59"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"dee951d3-cf59-48d1-96d5-15035ebd452a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.573"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993805059071521*^9, + 3.9938050607022467`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"c3d5bee7-1ccb-4a69-97cd-f1bfa4367e84"], + +Cell[BoxData["1.573`"], "Output", + CellChangeTimes->{ + 3.993805185855309*^9, {3.993805225129714*^9, 3.993805253518753*^9}, + 3.993916352928842*^9, 3.993917218449994*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"96436aca-ce37-4d53-9b0f-44cc10e91c69"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"d26be9b6-6cae-4697-ac74-5bcfd025d952"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.559"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993805065029335*^9, + 3.993805067447727*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"090705a4-bcc2-43ec-849e-f323d3ca17a8"], + +Cell[BoxData["0.559`"], "Output", + CellChangeTimes->{ + 3.993805185891992*^9, {3.993805225152993*^9, 3.993805253543803*^9}, + 3.993916353008525*^9, 3.993917218472804*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"c89e9435-1bb5-4d4e-9433-370594887385"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"30a28c60-f23f-482c-a22d-f2225163fbed"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938050741899853`*^9, + 3.993805075123766*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"0e16b0ee-8f26-4270-ab81-60e54ee7d337"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{ + 3.9938051859283257`*^9, {3.993805225185712*^9, 3.9938052535659924`*^9}, + 3.993916353081768*^9, 3.99391721850066*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"e38da4b4-b18b-4bfb-9d64-df694079fbcd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"87f8e670-836f-47f0-b77a-67affb889f85"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.735"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993805078103382*^9, 3.993805079604447*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"f8fd5664-149d-41cf-ad8a-67099507c45a"], + +Cell[BoxData["0.735`"], "Output", + CellChangeTimes->{ + 3.993805185964576*^9, {3.9938052252141447`*^9, 3.993805253589633*^9}, + 3.993916353154702*^9, 3.9939172185274763`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"d8bb2e67-7504-4313-8a23-371bdda89efd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"8e3b445a-1887-447f-9313-cc559c52a759"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"129708ee-aac4-4431-9239-9ca11f5dd562"], + +Cell[BoxData["0.07326591095323323`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993805186059474*^9, {3.9938052252761602`*^9, + 3.993805253639162*^9}, 3.993916353303368*^9, 3.993917218619212*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"3ed2b12e-e4bf-4a90-b719-a828e4503bde"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"3d0f7235-46dc-4238-bc83-da842d97466b"], + +Cell[BoxData["5.817472076698097`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.993805186091166*^9, {3.9938052253032303`*^9, + 3.993805253666086*^9}, 3.993916353340589*^9, 3.9939172186903667`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"d6b7e0b5-eae1-4533-93ec-fe1996094fbf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"7b42e0f3-e085-413d-9a48-096b75438bf3"], + +Cell[BoxData[ + RowBox[{"-", "18.01966490435569`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993805186124298*^9, {3.993805225330043*^9, + 3.9938052536925*^9}, 3.993916353372154*^9, 3.993917218771179*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"8122ebe8-5f3b-4b01-9dd4-f59aa775d6f8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"88a71017-8768-4035-9f36-ce2ffa64a77c"], + +Cell[BoxData[ + RowBox[{"-", "26.39087117680155`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993805186162883*^9, {3.9938052253638563`*^9, + 3.993805253728293*^9}, 3.993916353411268*^9, 3.9939172188807173`*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"f8b89d64-c35a-4373-8f2a-6a499ebf5907"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"8c087010-fd69-41b4-870d-d041ac99e70c"], + +Cell[BoxData[ + RowBox[{"-", "72.0154502935676`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.9938051862023897`*^9, {3.993805225399252*^9, + 3.993805253760605*^9}, 3.9939163534581738`*^9, 3.9939172189709187`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"c8264f22-b193-43f6-873b-6ceb1870ebd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"77a0f00d-06b9-48ca-a631-1c464e695ec0"], + +Cell[BoxData[ + RowBox[{"-", "210.89213440043358`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.99380518624261*^9, {3.993805225437365*^9, + 3.993805253795278*^9}, 3.993916353515175*^9, 3.993917219075431*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"38859237-724a-4258-9295-c2bd575c1e57"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"d2ed371d-821e-42bd-8c92-b52e632eb09f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9938051862628403`*^9, {3.993805225455119*^9, + 3.993805253809515*^9}, 3.993916353549343*^9, 3.993917219103012*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"3288b902-adbc-498a-ae04-3776408676da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"328a0c46-e06a-4299-9094-a922483a2596"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9938051862883873`*^9, {3.993805225469843*^9, + 3.993805253823063*^9}, 3.993916353615691*^9, 3.9939172191256657`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"012cfc48-5b8c-4cad-a73b-364492ed9b02"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"428596ea-ca29-4071-b989-c82f1d55d568"], + +Cell[BoxData["147.07396031318729`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993805186309627*^9, {3.993805225485524*^9, + 3.993805253836412*^9}, 3.993916353640667*^9, 3.9939172191444073`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"f8a383ff-383e-45b0-9e77-16af7c000f9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"a78e5bba-97ac-4180-88b3-579f8acc07df"], + +Cell[BoxData[ + RowBox[{"-", "138.05974755201015`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993805186332671*^9, {3.9938052255064*^9, + 3.993805253849951*^9}, 3.993916353666204*^9, 3.993917219170792*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"480db2ed-0ae6-4196-9ec6-95fdabf0ad17"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"86f78e15-bdd4-48f6-81e6-aaacc2d02112"], + +Cell[BoxData["151.31388532518324`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9938051863549347`*^9, {3.993805225521781*^9, + 3.9938052538643007`*^9}, 3.993916353692947*^9, 3.993917219198736*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"4564efcc-c121-481a-8850-2b2573d8f302"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"023e4c9c-6060-4ae5-9a73-49e010d5dfa3"], + +Cell[BoxData["0.32066933716802604`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993805186375004*^9, {3.993805225539682*^9, + 3.9938052538780746`*^9}, 3.993916353720183*^9, 3.9939172192277107`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"fa6d199f-65a9-4b8c-b3ca-d9fcc3240159"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"54cf12a2-fade-47d9-949c-bfcc1c71b477"], + +Cell[BoxData[ + RowBox[{"-", "0.07876066759731537`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993805186395523*^9, {3.993805225554823*^9, + 3.993805253891698*^9}, 3.993916353744547*^9, 3.993917219249283*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"010c05ab-9280-43b9-8c48-abff70b7431b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"ac5f5874-1c2a-48b2-a748-0a42ffd149c9"], + +Cell[BoxData[ + RowBox[{"-", "0.5970148797225691`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9938051864158077`*^9, {3.9938052255692043`*^9, + 3.993805253905455*^9}, 3.993916353768426*^9, 3.993917219272862*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"a3c820b0-1aec-4719-97d0-926a1f8e81fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"f0d8c882-2ffe-4e01-8f67-68df59d6a319"], + +Cell[BoxData["0.6876077696425691`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.993805186435895*^9, {3.993805225584848*^9, + 3.9938052539190693`*^9}, 3.993916353793048*^9, 3.993917219304924*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"b61cce78-38d9-4a3e-92bd-e2cd21a489eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"e7f0e13d-d06a-497c-b5c2-c171f18446fa"], + +Cell[BoxData["2.7212678798402736`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993805186459119*^9, {3.993805225601059*^9, + 3.9938052539329557`*^9}, 3.993916353817293*^9, 3.9939172193785467`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"e3fd2b2c-4d6a-4d2b-a6df-bb6c25c2ccba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"d2fe8c37-2e96-4401-b1a9-b1951f3b8286"], + +Cell[BoxData["1.517413176238712`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993805186481224*^9, {3.993805225615499*^9, + 3.9938052539461823`*^9}, 3.993916353823238*^9, 3.993917219403412*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"87bb18b4-860b-4600-bf9e-c0fbc694d6db"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"25aeccd9-e069-448a-ba72-a9403659183c"], + +Cell[BoxData[ + RowBox[{"-", "35.37905990838884`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993805186500906*^9, {3.993805225630805*^9, + 3.9938052539603987`*^9}, 3.9939163538577957`*^9, 3.993917219426476*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"5e833c21-aed2-48a7-a4f4-bdb961b9c9bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"431491ac-7767-4874-b0ea-7546a2b81773"], + +Cell[BoxData[ + RowBox[{"-", "7.518677963606449`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.9938051865278683`*^9, {3.9938052256462593`*^9, + 3.9938052540033293`*^9}, 3.9939163538870287`*^9, 3.993917219463008*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"c207c7f4-29a0-4b79-9556-07f8268cea08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"84a38168-3b21-4c4d-9b7a-045f4782851b"], + +Cell[BoxData["111.69490040479845`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993805186549179*^9, {3.99380522566187*^9, + 3.9938052540195704`*^9}, 3.993916353911763*^9, 3.993917219499688*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"2d70a38d-6dca-4459-9b62-f9bbe8f3ed09"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"15739773-7657-4a44-8211-50f5fefdb588"], + +Cell[BoxData[ + RowBox[{"-", "138.05974755201015`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993805186570223*^9, {3.993805225677956*^9, + 3.993805254035548*^9}, 3.993916353937284*^9, 3.9939172195366*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"369877a8-ef64-4832-8d26-87f45674e3ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"3ce7bd0d-3f4d-4b59-8d29-3b2706cc7a63"], + +Cell[BoxData["143.7952073615768`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993805186590909*^9, {3.993805225694096*^9, + 3.993805254049733*^9}, 3.993916353962906*^9, 3.9939172195670033`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"070bd083-7db3-497f-81d0-785665dd962e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"b918033b-8faa-4970-b8d3-dd3d515ab193"], + +Cell[BoxData["27.73706386208056`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993805186610568*^9, {3.993805225710843*^9, + 3.99380525406491*^9}, 3.99391635399086*^9, 3.9939172196054163`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"884488c8-0888-45ae-ae54-2bd3efd228d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"556ddbc5-6999-4377-b912-7bed2ac66ba3"], + +Cell[BoxData["878.9837204382463`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9938051866294127`*^9, {3.99380522572875*^9, + 3.9938052540809603`*^9}, 3.9939163540160513`*^9, 3.9939172196284933`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"c151f051-ad21-4752-9cd2-78afe2cfb56b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4885"}]], "Input", + CellChangeTimes->{ + 3.9918488488187084`*^9, {3.9939168358621397`*^9, 3.993916845694499*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], + +Cell[BoxData["0.4885`"], "Output", + CellChangeTimes->{3.9939172196478*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"db7441c5-9b46-4a59-875c-0437578381ef"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848849725815*^9, 3.9918488497328167`*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.26256"}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9, {3.993916847651565*^9, 3.9939168543681927`*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], + +Cell[BoxData["0.26256`"], "Output", + CellChangeTimes->{3.993917219695109*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"4398de94-7886-47e9-a734-0b43f8884a98"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, 3.9918488516427097`*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ @@ -84,13 +4817,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[150]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], + CellLabel->"In[75]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913279321052856`*^9}, - CellLabel-> - "Out[150]=",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[BoxData["1.6893390031074366`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.993917219733695*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"c183dfba-bf6a-455d-ac0b-41bf0ef84303"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4855,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ -7221ff813b6d"], + CellChangeTimes->{3.9915575644922657`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.991327932129387*^9}, - CellLabel-> - "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[BoxData["1.0839675072357156`*^-54"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.993917219757717*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"735d8de4-c287-4d29-b8f4-1d1272208c47"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4893,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915575683388195`*^9, - 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ -fa370a62ac27"], + CellChangeTimes->{{3.9915575683388195`*^9, 3.991557570173399*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.991327932138338*^9}, - CellLabel-> - "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +Cell[BoxData["1.2934972024612221`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.993917219783401*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"aa457a20-e645-4625-a71d-d626b0ad3fa7"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4921,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + CellLabel->"In[78]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913279321616154`*^9}, - CellLabel-> - "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +Cell[BoxData["17.43674086547703`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.993917219880707*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"192d098a-39f2-43db-97a5-ae3e02a7bae4"] }, Open ]], Cell[CellGroupData[{ @@ -225,13 +4950,11 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + CellLabel->"In[79]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[BoxData["37.77192070584817`"], "Output", - CellChangeTimes->{3.9913279321696014`*^9}, - CellLabel-> - "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +Cell[BoxData["30.24623310597387`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.9939172199150753`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"5dcaa247-1325-413a-b247-0b928ac54fbf"] }, Open ]], Cell[CellGroupData[{ @@ -240,13 +4963,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + CellLabel->"In[80]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913279321926613`*^9}, - CellLabel-> - "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +Cell[BoxData["1.26123956632828`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.993917219945196*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"1fb8b4ec-516d-4043-a7e2-f9ee2020ab21"] }, Open ]], Cell[CellGroupData[{ @@ -255,13 +4976,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + CellLabel->"In[81]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[BoxData["3.2238916343938024`"], "Output", - CellChangeTimes->{3.991327932200657*^9}, - CellLabel-> - "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +Cell[BoxData["5.390819223193923`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.993917219971957*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"f0c3adf0-0662-4eb0-af8c-74d8fa2112fe"] }, Open ]], Cell[CellGroupData[{ @@ -270,13 +4989,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + CellLabel->"In[82]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[BoxData["121.77257917856996`"], "Output", - CellChangeTimes->{3.99132793222501*^9}, - CellLabel-> - "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +Cell[BoxData["163.0519748568884`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.993917219993149*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"3142fa04-9f59-4545-a94a-f192e95044f6"] }, Open ]], Cell[CellGroupData[{ @@ -285,13 +5002,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + CellLabel->"In[83]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913279322642612`*^9}, - CellLabel-> - "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +Cell[BoxData["21.991907487352847`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.993917220019815*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"f32606aa-a9f2-4409-abc3-302a3c1a75f5"] }, Open ]], Cell[CellGroupData[{ @@ -480,13 +5195,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + CellLabel->"In[84]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[BoxData["0.032550594324745`"], "Output", - CellChangeTimes->{3.9913279322906475`*^9}, - CellLabel-> - "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +Cell[BoxData["0.006721570701888662`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.993917220043818*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"7c69bdfe-506c-4c42-9776-23646854d44f"] }, Open ]], Cell[CellGroupData[{ @@ -499,13 +5212,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + CellLabel->"In[85]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[BoxData["4.91208054446651`"], "Output", - CellChangeTimes->{3.9913279323826447`*^9}, - CellLabel-> - "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +Cell[BoxData["10.809598295897901`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.9939172201735973`*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"fe37b0f8-37ac-4cf5-9c76-0a495d1fa13d"] }, Open ]], Cell[CellGroupData[{ @@ -696,13 +5407,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + CellLabel->"In[86]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[BoxData["0.012685641417856707`"], "Output", - CellChangeTimes->{3.991327932394655*^9}, - CellLabel-> - "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +Cell[BoxData["0.04120284031783268`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.9939172201980467`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"fc06ae25-cd32-4eeb-a5a3-75fa15e28448"] }, Open ]], Cell[CellGroupData[{ @@ -715,13 +5424,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + CellLabel->"In[87]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.991327932491659*^9}, - CellLabel-> - "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +Cell[BoxData["4.3659761916637`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.993917220324266*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"dc53a0e8-bb30-4587-8901-091494eb1014"] }, Open ]], Cell[CellGroupData[{ @@ -813,13 +5520,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + CellLabel->"In[88]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991327932509678*^9}, - CellLabel-> - "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +Cell[BoxData["0.11820585579367623`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.993917220345571*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"02b75cb9-c708-4edd-9b10-af8bcf1aa819"] }, Open ]], Cell[CellGroupData[{ @@ -908,13 +5613,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + CellLabel->"In[89]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913279325457134`*^9}, - CellLabel-> - "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +Cell[BoxData["0.8817941442063238`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.993917220367735*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"bbfd0b2e-412e-4b14-b52b-5b6b9c3a6170"] }, Open ]], Cell[CellGroupData[{ @@ -1036,19 +5739,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + CellLabel->"In[90]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913279325697117`*^9}, - CellLabel-> - "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +Cell[BoxData["0.10423323144976085`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.993917220391533*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"741f605e-db27-4f95-b360-2ce2bc3bac6e"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ -eb45-a9e1-7a2f5d020eb1"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ @@ -1109,68 +5810,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ -c0135e32eaf8"], + CellChangeTimes->{3.9918488620812244`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.72909595660229`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 92, 89, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.99391722043384*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5edf259f-4028-4a43-b7af-ebba2add8514"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.357131111523103`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 92, 90, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993917220446431*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"c5ea3135-cadd-4ed4-a6cc-99c86a3a2ae5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.518047339664569`*^-235\\\", \ \\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ 31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279325947113`*^9}, +machine number; precision may be lost.\"", 2, 92, 91, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.9939172204575033`*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 110, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326047096`*^9}, - CellLabel-> - "During evaluation of \ -In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 111, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327932612709*^9}, - CellLabel-> - "During evaluation of \ -In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +In[92]:=",ExpressionUUID->"2ac5386b-ab5c-4485-b107-9082a53b89f4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326207104`*^9}, +during this calculation.\"", 2, 92, 92, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.9939172204659452`*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +In[92]:=",ExpressionUUID->"dc0e3dbb-3453-4979-807a-3e675f263658"], -Cell[BoxData["4.912080544466506`"], "Output", - CellChangeTimes->{3.9913279359974174`*^9}, - CellLabel-> - "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[BoxData["10.809598295897894`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.993917225270352*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"14352583-0320-471e-ae12-07048b17616d"] }, Open ]], Cell[CellGroupData[{ @@ -1232,68 +5935,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ -b0ab3cd09ac2"], + CellChangeTimes->{3.991848865140564*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.72909595660229`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 93, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993917225391088*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"6c8cc224-653c-41d5-9801-95442a59aa34"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.357131111523103`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 93, 94, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.9939172254001093`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"4e3b4f9d-12ff-457b-8ffc-07a6b01129e5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.518047339664569`*^-235\\\", \ \\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ 31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936033827*^9}, +machine number; precision may be lost.\"", 2, 93, 95, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993917225408448*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 114, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360428295`*^9}, - CellLabel-> - "During evaluation of \ -In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 115, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936050829*^9}, - CellLabel-> - "During evaluation of \ -In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +In[93]:=",ExpressionUUID->"7cdde486-ea80-49ad-8d46-7b86ec64e585"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360588284`*^9}, +during this calculation.\"", 2, 93, 96, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.993917225416603*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +In[93]:=",ExpressionUUID->"fd3e4173-e0f1-4e93-8e64-571d681003f4"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.9913279393385086`*^9}, - CellLabel-> - "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[BoxData["4.365976191663698`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.993917229860528*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"dd7c84e0-33b3-4353-96c3-301d9b8eb3c2"] }, Open ]], Cell[CellGroupData[{ @@ -1349,95 +6054,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848869193308*^9},ExpressionUUID->"124cd7db-c537-8943-bef2-\ -1a154ab4a709"], + CellChangeTimes->{3.991848869193308*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk8VN//B3DZki27kHUsDY00Y406byF7SYtdlrmXJNmbKOpT2rOl0rck +a5Il4WMrn/pQ+UlR+aSUkDVmLEOhUr8zf9zHfTwf597XeZ3HeZx7NYMOuRP8 +fHx8HHzx7lGvDPXqul5tSZ5K1DRdyUZbpgpNgmzLUAbjkyXPA7mmWdq2D5GU +6c/zPLsxXwqLM56ixbn3kmbYVazkFiHbDqQWFvec53PP1jxOLn2NKi931Zhj +N3RF3fpF/w99DJt4Z4E90dt+9EjTe8QY/5dmia08QvH5bvMJbRbwbrDCdp4+ +ahHT0Y84VZVHtmA3/5oQY5UOIumvLRGA/e6EYuLfEUNI7ObV7K3YU8K2E/P0 +EcR5qLdgiy18MdKLsTCK4qwOn7fHVpPOaYtqGkeGoinuTtjbVb4XT9mwEb/9 +x+Nu2ORtLQWayBTyTaWM7cJO1tmRcqBjGu3ppv7lgf1esXtjbOksmlw+tHcf +NtM7bP/li1xkVVmZFow9c5Mv70HEHNr3o2w5BFtEiyY1S/+Guif6D0dhZzFb +7KXkvyOXXfKn4rE17nglb1j4jnI/rnyaiG2+/vTUwaZFFNlCGTmNHWra3zFh +8wt1fqXfysWeZ8UJiuouo/u7Xd2KsY83iVlRRX4jzj2KWTl2NpjfC+n4g46F +CxQ08foVtdlGl66AA8Ln53qxS59dHjihwg8/y5Och3h9x/yPZlzkh+MNtPeT +2Ef1v1XfjxCAOLXGtGVe30pNyjRdCD49TzlMEWGj3i528+8CIajfYh9Hw9bg +1nlLygvDvOWTO2bYZcbbM2kLwpD8pK/UBbu1IWFFeJMIrIivoh7B/tbytn/c +Rhx2yp1c9QlbxkVcKrFZHKrurouZwDbqtgUJCwlIN/xHeQk7bLj29kZDSRh3 +eERRXMVGkfwdRpvFpUBBb3btXuwRrYrZlO/ScLex414/9jzZvqqTIQPKpo7z +s9j890Y110TJQOnbigRBUdyXoe5eOikDptYMa31sb5v0B68GZKFbRrqWhd0Z +HB2j+EIe7ny9YaYpxkaf76ReCBBRgIYcpr8ZNnuytOCunQI8fyne4ootGjv0 +1vKxApxYWLRLxLY9tds4oFYRfgbQ6B+wGwtNv5XkKsH6uZCC2+JsVDjyI35T +rCqcz3855CfJRg57znyOKVeFGmX7tiPY7FbZbeWjqvCl7OaXK9jGhevlNbzU +gEr/UP8KuzXIv1poizqwvv81uXU1G3GnBw6Pn9QAF2Iq1ESKjWQP2tZUu2rB +uc4TzVtl2Gi0UDTULUwL/NoXfQns+k9dKpzTWrCpeePGs9i+Ln4ndR9rwX/s +kYRX2IUG8e7X6RTouLr5sp8snn/izkySojZ0T757lyLHRrtDxGhOgzpQvLIj +/7cCG6H4PXSPZR3IDczQ01NkI/2UXDOmki7Mxg7178DmK2BsTdqpCxtKqZN5 +2OWffTwePNEFF1PNcIc1+HzuLTuhnK8Htv/rVMhVwv1sXd9NBFGhN4a1MmYt +GxXsuvZxIYkKLymPfuZhpwYNDgjeoEKF2AHKa2zm8bhJtbdUOFe3LG6kykbS +D3P4dtnow/q8Tw4z2GGMKf0migHY2R4MSlBnIxWttOQLw+vhe8o32VotNnp4 +fp66xE+D29LeP6ewfee8uklNGtwVllCnUtjoVqs2das/DTbre6jcwtYKaXyz +2EMDy16nsfPaeL1lIzrkC0OoSFd9cUiXjVRV1EgNLyPgZByuJfXZaH1RrPhP +RAcB65ZiEQYbBTFPfqNtp4Orr2S1C3Y2JfNzgC8ddmtHzaVjC+RX3n/GokNO +eLyUsjE+b7cmdmdW0WGCcGkyNMHf0+yAHCqFAbK0lDeBZnh/L7gYegobw2XG +m6UpSzbKi9Z2q+0wASexpaZCOzbqikdmp4osoKdnwCvGj400/f/b7he+GRq6 +1g7EsdiI+PN3heoRgFa5T9O9WWykOFm/UjFoK7wfyzKTrWOjWIbVp0x9W3gy +3bqP1ov7c361yU7YQVX8tpMJf/B+bo1ZmdtpD6lyqmVKBhxUOB/2pCzLEYof +DRrc28tBi9ZrXrYmO4NHvtT02FkO6uMTmB0MdIXGvudd2o84KGLtofQTlB0g +Yy55zWOGgyr2tz2+kuIGuh5XGw/qT6GEOaUFg/07YYzBNzAcNIW+OW3b+3yf +OxjNh6l75k8hC58M65Gdu6Dk2WhS45cp9EYpJ6yVsRvOGkyUxWtMI+Xikw9L +1u0BwdSio8vMaVQ/oO+yXWIvaCbefLC5eBqpdc+ExHP2Qph0qAxtbBoxrmSU +FQx4gHNp6lMzxRmUIzhnmNniCdndy2N15jPob+sNvSkNXmCxU0BTx28GZZud +l/5V6g373wy9+XR8BnV+LDrNuOgD9g6sw7/yZlCt603tyOO+QAurdT7zdAbN +HtzFF8H0gzDx/rtGozPo2zZq6JSNP2y4MaSSKTSLSjgfFmNM94FTRcB4k+4s +8swrCvYTD4DpIoOP5bazqPqB8z6BMwFA893F1x88iyxU3iydWwoABbfd6gXJ +s4gyENL7en8gXFsvahNxfRYNix3YcXMoEEzNiziF1bOoK3V7sP2eIFgbKdnh +2j6Lsli5YnFdQSBR7HO1aWAWPWz+sxTsGAzt/2Q8i5mfRat94QyjMRikDDkv +7wlykYbc8861D4NhoUTMl4Nt1OG6Rrg5GOKD7z82FOIidyufu++fBMOoa4RE +FXbW2vgXx/4vGHw449XVwlyk3Hdvddt77FM7DKtEuEjbXzHbdyEYXiweK7oo +zkUWAVMlKcZMoATrSbfKclHx9ZmY7aZM2D/GH7yALfeWu0XRnAkOb4zS9OW4 +aMpuobvEkgnAjYhPxy404FvRsZUJRq1fkr3luUhyQdpLZicTNOf1EsYUuGj4 +ksmq3INMKMofGh9W4qKdz826Qw4xoU7OKFFWmYua+TblGkUx4XC+4Zg19vWY +LSb/xjIhn2+Dyy3s7V72gSOJTNirV++4R4WLGrS9GgzOM4F27K3kw7VclNp0 +dH99MRPaEo3ywtW56CD9mgWrBPc3kUq7gu1yt2qVeSkTaq2zPJqxRa+N3q0r +Z0K43hHWag0uSol2m/i7hgmdLXZLldhHqdoHav9lAnU8eu6rJheFXXsR/uAz +E/5xV6+01uYiR8lRq+gBJry6uPiVwF6XwidB/8KEjXk/f5/DHo02Ka8aYYLv +cmTda+zA7bmc+2wmRHfWBO7T4SJPoZiIyh9MeO+clh2jy0X2McqRZQoEOPxp +PZy8jov+zT3tlLmGANe+3ht52FYdXG2WMgFG78YyW7CNdF58sFEjYEyrZ0mY +ykVKPYk2H3UIaL18s/QC9uSmPgVREwLMbfZlXdTnojT+249CdhHgUt4QEb4e +r3+DeLbrHgLuxHhPnMU+5cOKZngQEJZz1LwIm1XjpvfHm4CTrWYufdiB5IqM +q0EEnDGg7XSmcRGjPYj5NIoAfWXbV2qGXNSToSNGSSdg1+e65IINXFSBJELH +Mwh4vUfkST32Kc58a/llAur7QnpfYtMdW5PMrxEQE+V8ZQE7lS+Y63qLALGu +UANHIy7aduj2B1YZAYfEDXqGsVVVz5puqSBA9H5k9gL2fPuhywL3CfhwtnCj +6EYuytdFrqnVBOTROycNsZf7+h4XNBLgWf8zKR67xkWl5FUbAawsJfXf2Bd+ +8AtltROQFk74S9K5KKhkItCrg4Dm+r/i1LClBBtVhjsJ2C1hYLAFO7zJM23p +HQEETagmEZuifzVee4SAKJETm6axf/Qce/t1lADlSZ3vv7C7UgijynECcm6f +PCfK4KKkQeMJCzYBTexgMx3s3uy3fjvmCGC8zKj0xM5cKW2XsIKEpweSpOqx +H3L7fGIFSFhoc85sxR7rK42OECJBN+LVYBe2VY3t7aBVJDxAnK/j2KMBrJ9O +0iQ8YpC3FIxxfxc7GTtZEmZ7HlzSxLY0k6EieRKut5c4rcdOlyjby1AiIVbp +As2aN97YX6WiSULrJsFrodhkUVmbPIWEYf74uSje8+lH+lfrkKDZfFo1EXuU +lJUQpJLg6XO89yJvXNY+lG1EwpeGmoVy7MbfssmjdBJuxP9+XIs98nXgyoAx +CeP7P3s8wt70OKGl25wEG2m/qRfYw+EVao+AhFvXLZtHsSU9E03qtpJAl1Od +Z2Nb2Di4VNmSYFJyaYGLnar05UiRAwnuq5RCfmPXC1am5zqRsNaP/lbAhIuG +phPvXHchobinR3wVtvkz+f8uuZHQfaV1XAY7qOrL5Bl3EjSyRC8oYl+6Wcn/ +124Szhr2/lDB/hLtaBTvSULMvKyNNraEv4J9pDcJpZLHVNbx8hyH/MJ8Sfx/ +PfjEgPe++rEL/gEk8PsMxdGx60Wd8j2DSGjKDzllwsv7ptDgziRh392oAHNe +3uBQpwtJQprUClFLXl7H/dFtoSREHJc/sZnXr+7YMoSRkHOn4ini5ec7yVmG +k+Bg2dFjzcu/pGhgEkGC3MLBOhtePmvYekMkCXo5l5l22OLMKk9qNAnG3636 +t2Gb7Ug6RIklIez1fj0HXv4m59Oq8STECSpvdsS+qLMmR5GF13/AVcMJ+2+p +kWrpBBL8vgq85nnwZ1W72FGcH7J5hzMvfyxpUCiJhKLupf/xbPrGefFPMgkS +6yxqeP5/2PfYLA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1451,106 +6155,106 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Xk8VN//B3DZki27kHUsDY00Y406byF7SYtdlrmXJNmbKOpT2rOl0rck +a5Il4WMrn/pQ+UlR+aSUkDVmLEOhUr8zf9zHfTwf597XeZ3HeZx7NYMOuRP8 +fHx8HHzx7lGvDPXqul5tSZ5K1DRdyUZbpgpNgmzLUAbjkyXPA7mmWdq2D5GU +6c/zPLsxXwqLM56ixbn3kmbYVazkFiHbDqQWFvec53PP1jxOLn2NKi931Zhj +N3RF3fpF/w99DJt4Z4E90dt+9EjTe8QY/5dmia08QvH5bvMJbRbwbrDCdp4+ +ahHT0Y84VZVHtmA3/5oQY5UOIumvLRGA/e6EYuLfEUNI7ObV7K3YU8K2E/P0 +EcR5qLdgiy18MdKLsTCK4qwOn7fHVpPOaYtqGkeGoinuTtjbVb4XT9mwEb/9 +x+Nu2ORtLQWayBTyTaWM7cJO1tmRcqBjGu3ppv7lgf1esXtjbOksmlw+tHcf +NtM7bP/li1xkVVmZFow9c5Mv70HEHNr3o2w5BFtEiyY1S/+Guif6D0dhZzFb +7KXkvyOXXfKn4rE17nglb1j4jnI/rnyaiG2+/vTUwaZFFNlCGTmNHWra3zFh +8wt1fqXfysWeZ8UJiuouo/u7Xd2KsY83iVlRRX4jzj2KWTl2NpjfC+n4g46F +CxQ08foVtdlGl66AA8Ln53qxS59dHjihwg8/y5Och3h9x/yPZlzkh+MNtPeT +2Ef1v1XfjxCAOLXGtGVe30pNyjRdCD49TzlMEWGj3i528+8CIajfYh9Hw9bg +1nlLygvDvOWTO2bYZcbbM2kLwpD8pK/UBbu1IWFFeJMIrIivoh7B/tbytn/c +Rhx2yp1c9QlbxkVcKrFZHKrurouZwDbqtgUJCwlIN/xHeQk7bLj29kZDSRh3 +eERRXMVGkfwdRpvFpUBBb3btXuwRrYrZlO/ScLex414/9jzZvqqTIQPKpo7z +s9j890Y110TJQOnbigRBUdyXoe5eOikDptYMa31sb5v0B68GZKFbRrqWhd0Z +HB2j+EIe7ny9YaYpxkaf76ReCBBRgIYcpr8ZNnuytOCunQI8fyne4ootGjv0 +1vKxApxYWLRLxLY9tds4oFYRfgbQ6B+wGwtNv5XkKsH6uZCC2+JsVDjyI35T +rCqcz3855CfJRg57znyOKVeFGmX7tiPY7FbZbeWjqvCl7OaXK9jGhevlNbzU +gEr/UP8KuzXIv1poizqwvv81uXU1G3GnBw6Pn9QAF2Iq1ESKjWQP2tZUu2rB +uc4TzVtl2Gi0UDTULUwL/NoXfQns+k9dKpzTWrCpeePGs9i+Ln4ndR9rwX/s +kYRX2IUG8e7X6RTouLr5sp8snn/izkySojZ0T757lyLHRrtDxGhOgzpQvLIj +/7cCG6H4PXSPZR3IDczQ01NkI/2UXDOmki7Mxg7178DmK2BsTdqpCxtKqZN5 +2OWffTwePNEFF1PNcIc1+HzuLTuhnK8Htv/rVMhVwv1sXd9NBFGhN4a1MmYt +GxXsuvZxIYkKLymPfuZhpwYNDgjeoEKF2AHKa2zm8bhJtbdUOFe3LG6kykbS +D3P4dtnow/q8Tw4z2GGMKf0migHY2R4MSlBnIxWttOQLw+vhe8o32VotNnp4 +fp66xE+D29LeP6ewfee8uklNGtwVllCnUtjoVqs2das/DTbre6jcwtYKaXyz +2EMDy16nsfPaeL1lIzrkC0OoSFd9cUiXjVRV1EgNLyPgZByuJfXZaH1RrPhP +RAcB65ZiEQYbBTFPfqNtp4Orr2S1C3Y2JfNzgC8ddmtHzaVjC+RX3n/GokNO +eLyUsjE+b7cmdmdW0WGCcGkyNMHf0+yAHCqFAbK0lDeBZnh/L7gYegobw2XG +m6UpSzbKi9Z2q+0wASexpaZCOzbqikdmp4osoKdnwCvGj400/f/b7he+GRq6 +1g7EsdiI+PN3heoRgFa5T9O9WWykOFm/UjFoK7wfyzKTrWOjWIbVp0x9W3gy +3bqP1ov7c361yU7YQVX8tpMJf/B+bo1ZmdtpD6lyqmVKBhxUOB/2pCzLEYof +DRrc28tBi9ZrXrYmO4NHvtT02FkO6uMTmB0MdIXGvudd2o84KGLtofQTlB0g +Yy55zWOGgyr2tz2+kuIGuh5XGw/qT6GEOaUFg/07YYzBNzAcNIW+OW3b+3yf +OxjNh6l75k8hC58M65Gdu6Dk2WhS45cp9EYpJ6yVsRvOGkyUxWtMI+Xikw9L +1u0BwdSio8vMaVQ/oO+yXWIvaCbefLC5eBqpdc+ExHP2Qph0qAxtbBoxrmSU +FQx4gHNp6lMzxRmUIzhnmNniCdndy2N15jPob+sNvSkNXmCxU0BTx28GZZud +l/5V6g373wy9+XR8BnV+LDrNuOgD9g6sw7/yZlCt603tyOO+QAurdT7zdAbN +HtzFF8H0gzDx/rtGozPo2zZq6JSNP2y4MaSSKTSLSjgfFmNM94FTRcB4k+4s +8swrCvYTD4DpIoOP5bazqPqB8z6BMwFA893F1x88iyxU3iydWwoABbfd6gXJ +s4gyENL7en8gXFsvahNxfRYNix3YcXMoEEzNiziF1bOoK3V7sP2eIFgbKdnh +2j6Lsli5YnFdQSBR7HO1aWAWPWz+sxTsGAzt/2Q8i5mfRat94QyjMRikDDkv +7wlykYbc8861D4NhoUTMl4Nt1OG6Rrg5GOKD7z82FOIidyufu++fBMOoa4RE +FXbW2vgXx/4vGHw449XVwlyk3Hdvddt77FM7DKtEuEjbXzHbdyEYXiweK7oo +zkUWAVMlKcZMoATrSbfKclHx9ZmY7aZM2D/GH7yALfeWu0XRnAkOb4zS9OW4 +aMpuobvEkgnAjYhPxy404FvRsZUJRq1fkr3luUhyQdpLZicTNOf1EsYUuGj4 +ksmq3INMKMofGh9W4qKdz826Qw4xoU7OKFFWmYua+TblGkUx4XC+4Zg19vWY +LSb/xjIhn2+Dyy3s7V72gSOJTNirV++4R4WLGrS9GgzOM4F27K3kw7VclNp0 +dH99MRPaEo3ywtW56CD9mgWrBPc3kUq7gu1yt2qVeSkTaq2zPJqxRa+N3q0r +Z0K43hHWag0uSol2m/i7hgmdLXZLldhHqdoHav9lAnU8eu6rJheFXXsR/uAz +E/5xV6+01uYiR8lRq+gBJry6uPiVwF6XwidB/8KEjXk/f5/DHo02Ka8aYYLv +cmTda+zA7bmc+2wmRHfWBO7T4SJPoZiIyh9MeO+clh2jy0X2McqRZQoEOPxp +PZy8jov+zT3tlLmGANe+3ht52FYdXG2WMgFG78YyW7CNdF58sFEjYEyrZ0mY +ykVKPYk2H3UIaL18s/QC9uSmPgVREwLMbfZlXdTnojT+249CdhHgUt4QEb4e +r3+DeLbrHgLuxHhPnMU+5cOKZngQEJZz1LwIm1XjpvfHm4CTrWYufdiB5IqM +q0EEnDGg7XSmcRGjPYj5NIoAfWXbV2qGXNSToSNGSSdg1+e65IINXFSBJELH +Mwh4vUfkST32Kc58a/llAur7QnpfYtMdW5PMrxEQE+V8ZQE7lS+Y63qLALGu +UANHIy7aduj2B1YZAYfEDXqGsVVVz5puqSBA9H5k9gL2fPuhywL3CfhwtnCj +6EYuytdFrqnVBOTROycNsZf7+h4XNBLgWf8zKR67xkWl5FUbAawsJfXf2Bd+ +8AtltROQFk74S9K5KKhkItCrg4Dm+r/i1LClBBtVhjsJ2C1hYLAFO7zJM23p +HQEETagmEZuifzVee4SAKJETm6axf/Qce/t1lADlSZ3vv7C7UgijynECcm6f +PCfK4KKkQeMJCzYBTexgMx3s3uy3fjvmCGC8zKj0xM5cKW2XsIKEpweSpOqx +H3L7fGIFSFhoc85sxR7rK42OECJBN+LVYBe2VY3t7aBVJDxAnK/j2KMBrJ9O +0iQ8YpC3FIxxfxc7GTtZEmZ7HlzSxLY0k6EieRKut5c4rcdOlyjby1AiIVbp +As2aN97YX6WiSULrJsFrodhkUVmbPIWEYf74uSje8+lH+lfrkKDZfFo1EXuU +lJUQpJLg6XO89yJvXNY+lG1EwpeGmoVy7MbfssmjdBJuxP9+XIs98nXgyoAx +CeP7P3s8wt70OKGl25wEG2m/qRfYw+EVao+AhFvXLZtHsSU9E03qtpJAl1Od +Z2Nb2Di4VNmSYFJyaYGLnar05UiRAwnuq5RCfmPXC1am5zqRsNaP/lbAhIuG +phPvXHchobinR3wVtvkz+f8uuZHQfaV1XAY7qOrL5Bl3EjSyRC8oYl+6Wcn/ +124Szhr2/lDB/hLtaBTvSULMvKyNNraEv4J9pDcJpZLHVNbx8hyH/MJ8Sfx/ +PfjEgPe++rEL/gEk8PsMxdGx60Wd8j2DSGjKDzllwsv7ptDgziRh392oAHNe +3uBQpwtJQprUClFLXl7H/dFtoSREHJc/sZnXr+7YMoSRkHOn4ini5ec7yVmG +k+Bg2dFjzcu/pGhgEkGC3MLBOhtePmvYekMkCXo5l5l22OLMKk9qNAnG3636 +t2Gb7Ug6RIklIez1fj0HXv4m59Oq8STECSpvdsS+qLMmR5GF13/AVcMJ+2+p +kWrpBBL8vgq85nnwZ1W72FGcH7J5hzMvfyxpUCiJhKLupf/xbPrGefFPMgkS +6yxqeP5/2PfYLA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "PlotRange" -> {{0, 180}, {0.8758803037630541, 1.13801165008272}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8758803037630561}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1562,132 +6266,132 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.8758803037630541, 1.13801165008272}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.8758803037630561}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{91.80048673422971, - 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Xk8VN//B3DZki27kHUsDY00Y406byF7SYtdlrmXJNmbKOpT2rOl0rck +a5Il4WMrn/pQ+UlR+aSUkDVmLEOhUr8zf9zHfTwf597XeZ3HeZx7NYMOuRP8 +fHx8HHzx7lGvDPXqul5tSZ5K1DRdyUZbpgpNgmzLUAbjkyXPA7mmWdq2D5GU +6c/zPLsxXwqLM56ixbn3kmbYVazkFiHbDqQWFvec53PP1jxOLn2NKi931Zhj +N3RF3fpF/w99DJt4Z4E90dt+9EjTe8QY/5dmia08QvH5bvMJbRbwbrDCdp4+ +ahHT0Y84VZVHtmA3/5oQY5UOIumvLRGA/e6EYuLfEUNI7ObV7K3YU8K2E/P0 +EcR5qLdgiy18MdKLsTCK4qwOn7fHVpPOaYtqGkeGoinuTtjbVb4XT9mwEb/9 +x+Nu2ORtLQWayBTyTaWM7cJO1tmRcqBjGu3ppv7lgf1esXtjbOksmlw+tHcf +NtM7bP/li1xkVVmZFow9c5Mv70HEHNr3o2w5BFtEiyY1S/+Guif6D0dhZzFb +7KXkvyOXXfKn4rE17nglb1j4jnI/rnyaiG2+/vTUwaZFFNlCGTmNHWra3zFh +8wt1fqXfysWeZ8UJiuouo/u7Xd2KsY83iVlRRX4jzj2KWTl2NpjfC+n4g46F +CxQ08foVtdlGl66AA8Ln53qxS59dHjihwg8/y5Och3h9x/yPZlzkh+MNtPeT +2Ef1v1XfjxCAOLXGtGVe30pNyjRdCD49TzlMEWGj3i528+8CIajfYh9Hw9bg +1nlLygvDvOWTO2bYZcbbM2kLwpD8pK/UBbu1IWFFeJMIrIivoh7B/tbytn/c +Rhx2yp1c9QlbxkVcKrFZHKrurouZwDbqtgUJCwlIN/xHeQk7bLj29kZDSRh3 +eERRXMVGkfwdRpvFpUBBb3btXuwRrYrZlO/ScLex414/9jzZvqqTIQPKpo7z +s9j890Y110TJQOnbigRBUdyXoe5eOikDptYMa31sb5v0B68GZKFbRrqWhd0Z +HB2j+EIe7ny9YaYpxkaf76ReCBBRgIYcpr8ZNnuytOCunQI8fyne4ootGjv0 +1vKxApxYWLRLxLY9tds4oFYRfgbQ6B+wGwtNv5XkKsH6uZCC2+JsVDjyI35T +rCqcz3855CfJRg57znyOKVeFGmX7tiPY7FbZbeWjqvCl7OaXK9jGhevlNbzU +gEr/UP8KuzXIv1poizqwvv81uXU1G3GnBw6Pn9QAF2Iq1ESKjWQP2tZUu2rB +uc4TzVtl2Gi0UDTULUwL/NoXfQns+k9dKpzTWrCpeePGs9i+Ln4ndR9rwX/s +kYRX2IUG8e7X6RTouLr5sp8snn/izkySojZ0T757lyLHRrtDxGhOgzpQvLIj +/7cCG6H4PXSPZR3IDczQ01NkI/2UXDOmki7Mxg7178DmK2BsTdqpCxtKqZN5 +2OWffTwePNEFF1PNcIc1+HzuLTuhnK8Htv/rVMhVwv1sXd9NBFGhN4a1MmYt +GxXsuvZxIYkKLymPfuZhpwYNDgjeoEKF2AHKa2zm8bhJtbdUOFe3LG6kykbS +D3P4dtnow/q8Tw4z2GGMKf0migHY2R4MSlBnIxWttOQLw+vhe8o32VotNnp4 +fp66xE+D29LeP6ewfee8uklNGtwVllCnUtjoVqs2das/DTbre6jcwtYKaXyz +2EMDy16nsfPaeL1lIzrkC0OoSFd9cUiXjVRV1EgNLyPgZByuJfXZaH1RrPhP +RAcB65ZiEQYbBTFPfqNtp4Orr2S1C3Y2JfNzgC8ddmtHzaVjC+RX3n/GokNO +eLyUsjE+b7cmdmdW0WGCcGkyNMHf0+yAHCqFAbK0lDeBZnh/L7gYegobw2XG +m6UpSzbKi9Z2q+0wASexpaZCOzbqikdmp4osoKdnwCvGj400/f/b7he+GRq6 +1g7EsdiI+PN3heoRgFa5T9O9WWykOFm/UjFoK7wfyzKTrWOjWIbVp0x9W3gy +3bqP1ov7c361yU7YQVX8tpMJf/B+bo1ZmdtpD6lyqmVKBhxUOB/2pCzLEYof +DRrc28tBi9ZrXrYmO4NHvtT02FkO6uMTmB0MdIXGvudd2o84KGLtofQTlB0g +Yy55zWOGgyr2tz2+kuIGuh5XGw/qT6GEOaUFg/07YYzBNzAcNIW+OW3b+3yf +OxjNh6l75k8hC58M65Gdu6Dk2WhS45cp9EYpJ6yVsRvOGkyUxWtMI+Xikw9L +1u0BwdSio8vMaVQ/oO+yXWIvaCbefLC5eBqpdc+ExHP2Qph0qAxtbBoxrmSU +FQx4gHNp6lMzxRmUIzhnmNniCdndy2N15jPob+sNvSkNXmCxU0BTx28GZZud +l/5V6g373wy9+XR8BnV+LDrNuOgD9g6sw7/yZlCt603tyOO+QAurdT7zdAbN +HtzFF8H0gzDx/rtGozPo2zZq6JSNP2y4MaSSKTSLSjgfFmNM94FTRcB4k+4s +8swrCvYTD4DpIoOP5bazqPqB8z6BMwFA893F1x88iyxU3iydWwoABbfd6gXJ +s4gyENL7en8gXFsvahNxfRYNix3YcXMoEEzNiziF1bOoK3V7sP2eIFgbKdnh +2j6Lsli5YnFdQSBR7HO1aWAWPWz+sxTsGAzt/2Q8i5mfRat94QyjMRikDDkv +7wlykYbc8861D4NhoUTMl4Nt1OG6Rrg5GOKD7z82FOIidyufu++fBMOoa4RE +FXbW2vgXx/4vGHw449XVwlyk3Hdvddt77FM7DKtEuEjbXzHbdyEYXiweK7oo +zkUWAVMlKcZMoATrSbfKclHx9ZmY7aZM2D/GH7yALfeWu0XRnAkOb4zS9OW4 +aMpuobvEkgnAjYhPxy404FvRsZUJRq1fkr3luUhyQdpLZicTNOf1EsYUuGj4 +ksmq3INMKMofGh9W4qKdz826Qw4xoU7OKFFWmYua+TblGkUx4XC+4Zg19vWY +LSb/xjIhn2+Dyy3s7V72gSOJTNirV++4R4WLGrS9GgzOM4F27K3kw7VclNp0 +dH99MRPaEo3ywtW56CD9mgWrBPc3kUq7gu1yt2qVeSkTaq2zPJqxRa+N3q0r +Z0K43hHWag0uSol2m/i7hgmdLXZLldhHqdoHav9lAnU8eu6rJheFXXsR/uAz +E/5xV6+01uYiR8lRq+gBJry6uPiVwF6XwidB/8KEjXk/f5/DHo02Ka8aYYLv +cmTda+zA7bmc+2wmRHfWBO7T4SJPoZiIyh9MeO+clh2jy0X2McqRZQoEOPxp +PZy8jov+zT3tlLmGANe+3ht52FYdXG2WMgFG78YyW7CNdF58sFEjYEyrZ0mY +ykVKPYk2H3UIaL18s/QC9uSmPgVREwLMbfZlXdTnojT+249CdhHgUt4QEb4e +r3+DeLbrHgLuxHhPnMU+5cOKZngQEJZz1LwIm1XjpvfHm4CTrWYufdiB5IqM +q0EEnDGg7XSmcRGjPYj5NIoAfWXbV2qGXNSToSNGSSdg1+e65IINXFSBJELH +Mwh4vUfkST32Kc58a/llAur7QnpfYtMdW5PMrxEQE+V8ZQE7lS+Y63qLALGu +UANHIy7aduj2B1YZAYfEDXqGsVVVz5puqSBA9H5k9gL2fPuhywL3CfhwtnCj +6EYuytdFrqnVBOTROycNsZf7+h4XNBLgWf8zKR67xkWl5FUbAawsJfXf2Bd+ +8AtltROQFk74S9K5KKhkItCrg4Dm+r/i1LClBBtVhjsJ2C1hYLAFO7zJM23p +HQEETagmEZuifzVee4SAKJETm6axf/Qce/t1lADlSZ3vv7C7UgijynECcm6f +PCfK4KKkQeMJCzYBTexgMx3s3uy3fjvmCGC8zKj0xM5cKW2XsIKEpweSpOqx +H3L7fGIFSFhoc85sxR7rK42OECJBN+LVYBe2VY3t7aBVJDxAnK/j2KMBrJ9O +0iQ8YpC3FIxxfxc7GTtZEmZ7HlzSxLY0k6EieRKut5c4rcdOlyjby1AiIVbp +As2aN97YX6WiSULrJsFrodhkUVmbPIWEYf74uSje8+lH+lfrkKDZfFo1EXuU +lJUQpJLg6XO89yJvXNY+lG1EwpeGmoVy7MbfssmjdBJuxP9+XIs98nXgyoAx +CeP7P3s8wt70OKGl25wEG2m/qRfYw+EVao+AhFvXLZtHsSU9E03qtpJAl1Od +Z2Nb2Di4VNmSYFJyaYGLnar05UiRAwnuq5RCfmPXC1am5zqRsNaP/lbAhIuG +phPvXHchobinR3wVtvkz+f8uuZHQfaV1XAY7qOrL5Bl3EjSyRC8oYl+6Wcn/ +124Szhr2/lDB/hLtaBTvSULMvKyNNraEv4J9pDcJpZLHVNbx8hyH/MJ8Sfx/ +PfjEgPe++rEL/gEk8PsMxdGx60Wd8j2DSGjKDzllwsv7ptDgziRh392oAHNe +3uBQpwtJQprUClFLXl7H/dFtoSREHJc/sZnXr+7YMoSRkHOn4ini5ec7yVmG +k+Bg2dFjzcu/pGhgEkGC3MLBOhtePmvYekMkCXo5l5l22OLMKk9qNAnG3636 +t2Gb7Ug6RIklIez1fj0HXv4m59Oq8STECSpvdsS+qLMmR5GF13/AVcMJ+2+p +kWrpBBL8vgq85nnwZ1W72FGcH7J5hzMvfyxpUCiJhKLupf/xbPrGefFPMgkS +6yxqeP5/2PfYLA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.8758803037630541, 1.13801165008272}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.8758803037630561}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1697,7 +6401,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.819001000320631}, + AxesOrigin->{0, 0.8758803037630561}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1725,7 +6430,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8758803037630541, 1.13801165008272}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1733,9 +6439,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913281932019863`*^9}, - CellLabel-> - "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] + CellChangeTimes->{3.9913281932019863`*^9, 3.993917581692658*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"dad8bd4e-cb4f-405c-bc93-d46bcd44648d"] }, Open ]], Cell[CellGroupData[{ @@ -1798,348 +6503,164 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ -bade8ae5c530"], + CellChangeTimes->{3.9918488717861137`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.618108280284512`*^-268\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 97, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993917581841*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"b118ef44-1c14-4700-8f59-762fe32b5b15"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.013864538796319`*^-280\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 117, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934227676`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 98, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993917581850337*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +In[95]:=",ExpressionUUID->"d5bca289-a0e7-4a99-84de-c41d975cbad3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.114757947716645`*^-292\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 118, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934317894`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 99, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.9939175818577633`*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 169, 119, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934409904`*^9}, - CellLabel-> - "During evaluation of \ -In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +In[95]:=",ExpressionUUID->"e7e8dbf9-2e38-455d-9bee-d17c23ea00f7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132819344899*^9}, +during this calculation.\"", 2, 95, 100, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.9939175818666277`*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +In[95]:=",ExpressionUUID->"d65dd998-e114-4b2b-94c2-4b7ddd164e10"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VG8XAHAlhUpF1iwzY6js+zrjnDZZypI1W4gWSSpLlCxFSkkoQkJS +wpirKEsRKlqkIksloZJQfrJV8j7vX/fz/cy9d+495znnPJfufWCb73weHp4V +83h4/n+c7GluZCbkm2xoNlnTULzOpC1bImxdZwykCascvKxHAxR96S3RmQz5 +Sls2B+lpQIjNrQ7ezjwoj9DZ7qqHsGJUPHmmowxujtVF6OrZwMcaqwO/Ouoh +YzaR576uJ5gyhz6MdbyGnObP14a0A2GmQ//iz44+2Mao/3VLJQoaNtzIf5U3 +DiyjBj7byiSQ/lj5xVtlFlaWZfWdSEiHlf47bi3awItLq43KbvVehWRN02or +B36cb/bsxbbia9CVrlE3tnwpvpyxz3ToK4CE/MiX8yVXYMsK+xx9vlsgntp/ +OuWKCNYfTcCVd4tBQrn85HSBCFb8cezfUVcMUvVxke5cEYzy7X11vbkYZH+u +DV7dIIKC98LO0d4Xg8KWQM/qQRH0vW3m8YqnBLQXzOr1a6/EUPXUPXLmJWAd +JDag9XQlLsqOSPVtL4FT9uYmrydFkQ2BMj7vOSB1p0Vq/jwxDJqdzewf4ABH +xH5Kc7EYVm+xk3Ub4cDb1x7cC3JiqMRXq2TwjwNM2yCGrZkYOl0StciSK4X6 +rVcXtl4Ww8+BtK8iXqUwazrR8oIljnRxE9PqnlJIKggvmjUVx6yTB8q2fykF +5kKeeFVbcWRyuYJjI6Ww5ZHgunO+4ujyVyJCcLYUMjbQbm9JFMfoc/yqQUu5 +YICWac8+iqOga3PdDSUuHDbM3dEcI4ET/BVGPt5csMgR+mV5VgL5zttmxPty +gbHoWHzLRQl8nhzXU7iHC61tjtSbmxIoPG23sj+AC2qBS3h7WiTQPui1lsZR +LgwWhBb8JyWJN1carNVN4YLbSquRVbcl8diauqxvdVzQPlodnV0jiXcHGgJu +NXBBsG+NGP2xJJo9+S6/5zEXKkt5QbFLEt8trNTvfsYFMcvKJI05SUTPCb7L +b8n/RzN1NllKoc7HvZuiv3Nh44/f4QH9Ungsd6TxrzAFYWapSg+HpbAnM0fH +SpQCTq5qt8ikFL6yrL6ZJU6BhL2nYSX/Kox4fCNbQ5qC4XuPpnjVVqEOe8kj +HQUKUmKSgi4fIb/rmUhz9CjoE1UMaFwqjXkuU/RdThSIH6iVEReXxuXih/yd +t1Owpcn5xV6aNPL8/V632ZWCivAElWXa0vg65Em8zA4Kznz8ObTdWRrNWWUZ +13dRoFVYvftHnjSWpd74tzqYgmiWrZeUgQz2j9QWTZ2nwMwj+z/99TLIWfxy +uOQCBUJR3084bJHBMefpas8UCrIaYguSPGUw9PLmhTWXKLhnUfV94WkZLOF0 +OJpfoeCns3zIeJcMBm43sqwtpOBueOCiFQMy+HkqIc+kiILjWffT1UZlUMlR +5XxVMQVLep2q986Xxcx0S6WbpRSs3n2Wp1dJFnM7e4JdyinwCJ448/yoLErN +pretqqNAIW299FCsLO4X9bnv8/D/8TtfsihJFt1bajfcqqcg/O/a1vX5sthc +6q6s/IiCiyc8RCufy+IeoffBC55S8PzCk6vXZeRwovzoEdE3JN63V2o2rJbD +NNPk42vaKHBp96rv1ZTD+O4oZYN2CgYl/g6sMpVD348ux7Z2UMCbo6GUHCCH +8tv2LbZ5R4ER5/Kd47VyKPLg6P7yPgo2drTMjjbJYXXitcCT/RRY8SzYvOO1 +HB5W9Uu2GaBg57aALvgshyWvF+j0fqbA9Cg9MoqPhtfEf/x7P0jBs2U11wwE +aeiZfWrhxW8U2OQ7Nv0UoqHkDW1NiyEKXF8krPCSoOFHLaH/ir5TECg3eW2d +Mg3lsoc1t45SMHE7qWlGnYYHrxp7jxKHmymPUDo03HoIq87+oCD2oKcew4SG +ZcJP++t+UpDR8LRpvi0NH4xdVl00ToGcs+9IlQMNfcytiy8Q5w/PrTjsQkPH +5NNOkr8oKBXVde3fSUOZwnl6tAkKGndfHWkIoeHnlU7MJVMUmP81FD52lIZn +reIkoohbktr0dKJomJuhazJG3FUpEJV/mobcD9m0Z9Mkv1b5+W6JNHxfc7VH +e4aCgT6T5pUpNBQ8zmm9TDy6OEg4Notc/+aMnftvCg7nCOmzc2n4/Wb+5yri +aZ1C14nrNJT65MMR/UPy49GT71tKQ3fTI1/qiSW4Zvqm9TTs3h7A+/cvBVc2 +9rv+e0ziJ2bkvmGWAkZXRFTFMxru+vT3v1PEqvNvNyu203CTs3Q7/z8Kyi5t +He3pouHAvzbGJmID5UHhtB4alhSwSo8Tr7eXcVs0SMM+ns64b8RPBu9G1Q7T +ULPV/43UHKnPiG3XQ8domNx1yMuc+PWKkWb1SRr2rs/SDCZ2Kjg1+vU3iWdb +5sZs4vdGDJGcOfL+U8zMRmLvlzX6zgvo+KDiu+4g8dedTm7LBeioVpsvKsBT +Bv7TY1FNS+n41I3PeDWx0cFdYl+E6djHOtS2kZh/qLuIV4KOzZPCxjuI33pb +r6PL0FFztPVACPH1dw1vTRh0bPW6dPgMcZC9gb/bajqW+VltziRe/6J4XrgK +Ha/8Gfh+k3i5KT0tTZOOvr2m3reJex5cVCnXo6Pxfa+iKuJifcH618Z0XCbE +bHpAHM497vQT6TikEFFZS2y2dnx4qSkdddXco+4Ti+XtjlG2pKO8YrnMPeIB +qffi5jZ0/PMpJLmUuCzFpmSXAx2DBS9+vEYcteTR+pMudFwszbvwIrF1rGFn +7g462u4qX3iCWPZfyf5aH+LFuX37iYdDGLwf9tKx/V91hgNx1Y9L6b8D6NjI +N6tuRBy/Z7GaRBAdQ8tdr60idvwU2aAbRkeBw60TMyTeTJdfznbH6cg5ZL+m +nbjO8sOJxHg6Ji4/rBlDnNhoK1l8jo4F0gsE7Ynd2I85zckkHpsuPGYQz6iV +di24QseIcxd/VJD10XRD/gAjj45jRwQ8jhFfoqUvwBt0FBM/fMeEWEs4Wv0o +RUfForUyVWQ98iRMNKZX0FG6PEzzMHELr59LRTUdI9Mfaa4l3jexLXbsEcn3 +lR2/E8j6Ngp4IrXsGR2DFt5tNCDm/2rMVWmlo0GbdGQfqYf8Tua73d10rEhX +a1IhPmR7OTD2Ix2p/745vyD1hE+XLrw2QMd5oa8/+BF/qJ7U6Bkl+RLZ1pRF +6lHsalOcPS8DrZdsZr8n9TwgzpY+xM/A0725Z32Iy5Io6vxSBj70Tej8NkmB +dUzG+6fiDOS3MPf7TvpFvK+/1joVBu6+ZJPylPSXGeXlPaoODOQdGxyeIf1q +8opUtLYLA23gYJYD8a9lCkzDHQwU36kQzBkh/WDc0G/jXgbO08ICp2EyH6t3 +TrpEMLAtt5gZT/rlU8u7QvHXGbjary3Sm/TfJ/cfUuduMXBR4ze8QPpzo/pz ++5RSBo7HqLPuf6LggcinjOxKBibfzfu8pJc8/zvB1eUvGHhzvICR8J70x30e +0DfBQN1oQeMFZB6kfdjT9/U3A0cSoxmLyLxItT4cOzLHwMUDjx0WkXmSqB3/ +bFpAHtPa9fPnWimI+UM5LZOVR8NBTZ7W5yRfCXyBLFN5TFIzL/vZQAGrqDjn +0iV5tOP5yG/EpeAdrejqpkx55CsuPzjHIf37UmH2r6vySMuNyqkvIfM0uiBr +W6E8joU9s1tP5qmWc066UI08unlpqqwuoGAtX2pS3Cd53FdoFnEqk+Rrx9Go +EBUmCqq9DC88SUF5W1ikgiYTt6e5xa49QYG9xZHjbbpMvPZmY/CNaAqSdYOP +aQETbwmvEbhynIKlSw4cGbUl50e7yBw4QsGCSu/AXaFMtK/f11W6j4IxYQtP +x3om+joMP7hlQ0GnP6PV7wkTa1zBpsGK1Mvj3xD5nImGgj6JXVsoSAovkrv5 +lommu/3F5swo0Ohb8nFmiInd4xfC1dZREEC9dL8iooDP3y68L6dJwZC1g+uA +jwLukPU77bCMrLezno6HFilia2mBtMsjLgQMqTA0liii1fcWQ2Gyn5vaPDMy +slwRL3T9y2wi+z1B3uTYvVKK2Ns5qa1RwwWNsIY7nqqK+Cyj/dVQGRcifBVF +rO0U0YJHvl4oh+z3TIZfKl9VRKNYtpdkGBfMf4Saf9Zbjfq+luvDFLkwvJP/ +8J3INch38Q9PXB2HfG+Izz9VvxaNri9ddnxFCQi/UEzk/lBC5R/zGk7tLALp ++FIbPT0VzJ12afp4rBDSlQ2Xi+xWxb2Dk6JPim7AU6l1uuMX1DDUz7Jd6NN1 +MJKuT1J/q45m9dPHMsevgRBvXpBXjAZSr1c4z9fMA9loOdZ2RU3k5I/PiG3P +AQEFt4ptTzTR0bMrV9nkCqixJUtD3bVwRCHLVVkrAw71CDdY8Gij5ZerU/xS +afBj/KyDebo2fvph6qTrnwqb1R9nmKvqYIi7xOijuQvwYNz4z1SLDkrlL71s +pnUeAlS0ul/56qJWZ4uIJjMB2KM+bdsF9NAjQTZBQ+sUbGJKbF2ap4e9Mwej +3g+dgDVRZ47U6+uj2uVJr5ll0aDka1ir0K2PLZeDvt7jHAPfB3tO3jlogFXL +Tv7DdUegNqfNZ0zUEN9t0tlbIxUEv27OTanfNUStDAHbyexA2KlQJJCx1QhZ +88UU+kr3wZhSil7ZTyO8Dgv9Y1J2wb38P58m4o0x/iirX+S8N+htCJqySDDG +RrMMv+tR3lD+aXhJzjlj3PQtuxQPeUOZbI++RbIxhmrnuqc6eENxet257Exj +fLab/26ptDfknI013MwxxjuOA61UsRecDlp2If2NMf7r2BVX+8YTXDbKo7Es +C9c+aUx/FuYBs238Qg00FvakZuvs3+EBOb6j7yzkWTgZ4PmEsckDvsRVhrqs +YeEn7aCc5uUecKjZujRMi4Wred82Lyh0hzNWx2TvmbLwutwBW8UPblDl3P5X +5wALa8QfTjy0c4VV+09VqtWxUJTe9bY51BkS53bpJtSzsDHTRytypzPMTzal +vjay8PD0Sd8N1s4wVMFXmNPMQj6HS2rTis5QxXMyXfgNC2eFt9gKdziBS2pU +6ORnFrY9eb9snpETpFeH6T5YzEaju2dGzgg6gqigP7XViY0mvfqOgW12kL8h +IvzndjZucvvhl/fQDrQiEjekuLFxcfF2hwGOHVj95LZ3erExNCDmeNppO4h7 +OzGz05+NlOmioUqwg+m8yPXh0WyUtX8Q+pmzDbqNU94UFLHxbvqhNQnptrAn +OD/LnMPGkH5Pbt4pW5jklPsOc9mo11Fb1hRiC8KMzinNCjZObe7/Cw62YMkv +I32/jo3XxE7GdAvbQk1bgc+bdjaeWXFnQ0WSDVgI3VMN6WRjXtylVG6UDXRu +bp6UeMfGnVb1VfcCbeBX1fd4j142pgQf8PjPxgZUczVKvg2x8e25W4MCwjZQ +070u5OwIG3UEjJsPzif3W2kH6j/ZeKJGw73lszXsOhX8KmiCjVISzbW/bljD +r7q4DPFpNgq7jKhrnLaGmN9pO6t+szF6n4FLnJ81LNcpVHGfZeMN+W9KU5bW +kL2/amJujo0CruaJMarW8D9P2sqO "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2153,307 +6674,120 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwV13k8VG8XAHAlhUpF1iwzY6js+zrjnDZZypI1W4gWSSpLlCxFSkkoQkJS +wpirKEsRKlqkIksloZJQfrJV8j7vX/fz/cy9d+495znnPJfufWCb73weHp4V +83h4/n+c7GluZCbkm2xoNlnTULzOpC1bImxdZwykCascvKxHAxR96S3RmQz5 +Sls2B+lpQIjNrQ7ezjwoj9DZ7qqHsGJUPHmmowxujtVF6OrZwMcaqwO/Ouoh +YzaR576uJ5gyhz6MdbyGnObP14a0A2GmQ//iz44+2Mao/3VLJQoaNtzIf5U3 +DiyjBj7byiSQ/lj5xVtlFlaWZfWdSEiHlf47bi3awItLq43KbvVehWRN02or +B36cb/bsxbbia9CVrlE3tnwpvpyxz3ToK4CE/MiX8yVXYMsK+xx9vlsgntp/ +OuWKCNYfTcCVd4tBQrn85HSBCFb8cezfUVcMUvVxke5cEYzy7X11vbkYZH+u +DV7dIIKC98LO0d4Xg8KWQM/qQRH0vW3m8YqnBLQXzOr1a6/EUPXUPXLmJWAd +JDag9XQlLsqOSPVtL4FT9uYmrydFkQ2BMj7vOSB1p0Vq/jwxDJqdzewf4ABH +xH5Kc7EYVm+xk3Ub4cDb1x7cC3JiqMRXq2TwjwNM2yCGrZkYOl0StciSK4X6 +rVcXtl4Ww8+BtK8iXqUwazrR8oIljnRxE9PqnlJIKggvmjUVx6yTB8q2fykF +5kKeeFVbcWRyuYJjI6Ww5ZHgunO+4ujyVyJCcLYUMjbQbm9JFMfoc/yqQUu5 +YICWac8+iqOga3PdDSUuHDbM3dEcI4ET/BVGPt5csMgR+mV5VgL5zttmxPty +gbHoWHzLRQl8nhzXU7iHC61tjtSbmxIoPG23sj+AC2qBS3h7WiTQPui1lsZR +LgwWhBb8JyWJN1carNVN4YLbSquRVbcl8diauqxvdVzQPlodnV0jiXcHGgJu +NXBBsG+NGP2xJJo9+S6/5zEXKkt5QbFLEt8trNTvfsYFMcvKJI05SUTPCb7L +b8n/RzN1NllKoc7HvZuiv3Nh44/f4QH9Ungsd6TxrzAFYWapSg+HpbAnM0fH +SpQCTq5qt8ikFL6yrL6ZJU6BhL2nYSX/Kox4fCNbQ5qC4XuPpnjVVqEOe8kj +HQUKUmKSgi4fIb/rmUhz9CjoE1UMaFwqjXkuU/RdThSIH6iVEReXxuXih/yd +t1Owpcn5xV6aNPL8/V632ZWCivAElWXa0vg65Em8zA4Kznz8ObTdWRrNWWUZ +13dRoFVYvftHnjSWpd74tzqYgmiWrZeUgQz2j9QWTZ2nwMwj+z/99TLIWfxy +uOQCBUJR3084bJHBMefpas8UCrIaYguSPGUw9PLmhTWXKLhnUfV94WkZLOF0 +OJpfoeCns3zIeJcMBm43sqwtpOBueOCiFQMy+HkqIc+kiILjWffT1UZlUMlR +5XxVMQVLep2q986Xxcx0S6WbpRSs3n2Wp1dJFnM7e4JdyinwCJ448/yoLErN +pretqqNAIW299FCsLO4X9bnv8/D/8TtfsihJFt1bajfcqqcg/O/a1vX5sthc +6q6s/IiCiyc8RCufy+IeoffBC55S8PzCk6vXZeRwovzoEdE3JN63V2o2rJbD +NNPk42vaKHBp96rv1ZTD+O4oZYN2CgYl/g6sMpVD348ux7Z2UMCbo6GUHCCH +8tv2LbZ5R4ER5/Kd47VyKPLg6P7yPgo2drTMjjbJYXXitcCT/RRY8SzYvOO1 +HB5W9Uu2GaBg57aALvgshyWvF+j0fqbA9Cg9MoqPhtfEf/x7P0jBs2U11wwE +aeiZfWrhxW8U2OQ7Nv0UoqHkDW1NiyEKXF8krPCSoOFHLaH/ir5TECg3eW2d +Mg3lsoc1t45SMHE7qWlGnYYHrxp7jxKHmymPUDo03HoIq87+oCD2oKcew4SG +ZcJP++t+UpDR8LRpvi0NH4xdVl00ToGcs+9IlQMNfcytiy8Q5w/PrTjsQkPH +5NNOkr8oKBXVde3fSUOZwnl6tAkKGndfHWkIoeHnlU7MJVMUmP81FD52lIZn +reIkoohbktr0dKJomJuhazJG3FUpEJV/mobcD9m0Z9Mkv1b5+W6JNHxfc7VH +e4aCgT6T5pUpNBQ8zmm9TDy6OEg4Notc/+aMnftvCg7nCOmzc2n4/Wb+5yri +aZ1C14nrNJT65MMR/UPy49GT71tKQ3fTI1/qiSW4Zvqm9TTs3h7A+/cvBVc2 +9rv+e0ziJ2bkvmGWAkZXRFTFMxru+vT3v1PEqvNvNyu203CTs3Q7/z8Kyi5t +He3pouHAvzbGJmID5UHhtB4alhSwSo8Tr7eXcVs0SMM+ns64b8RPBu9G1Q7T +ULPV/43UHKnPiG3XQ8domNx1yMuc+PWKkWb1SRr2rs/SDCZ2Kjg1+vU3iWdb +5sZs4vdGDJGcOfL+U8zMRmLvlzX6zgvo+KDiu+4g8dedTm7LBeioVpsvKsBT +Bv7TY1FNS+n41I3PeDWx0cFdYl+E6djHOtS2kZh/qLuIV4KOzZPCxjuI33pb +r6PL0FFztPVACPH1dw1vTRh0bPW6dPgMcZC9gb/bajqW+VltziRe/6J4XrgK +Ha/8Gfh+k3i5KT0tTZOOvr2m3reJex5cVCnXo6Pxfa+iKuJifcH618Z0XCbE +bHpAHM497vQT6TikEFFZS2y2dnx4qSkdddXco+4Ti+XtjlG2pKO8YrnMPeIB +qffi5jZ0/PMpJLmUuCzFpmSXAx2DBS9+vEYcteTR+pMudFwszbvwIrF1rGFn +7g462u4qX3iCWPZfyf5aH+LFuX37iYdDGLwf9tKx/V91hgNx1Y9L6b8D6NjI +N6tuRBy/Z7GaRBAdQ8tdr60idvwU2aAbRkeBw60TMyTeTJdfznbH6cg5ZL+m +nbjO8sOJxHg6Ji4/rBlDnNhoK1l8jo4F0gsE7Ynd2I85zckkHpsuPGYQz6iV +di24QseIcxd/VJD10XRD/gAjj45jRwQ8jhFfoqUvwBt0FBM/fMeEWEs4Wv0o +RUfForUyVWQ98iRMNKZX0FG6PEzzMHELr59LRTUdI9Mfaa4l3jexLXbsEcn3 +lR2/E8j6Ngp4IrXsGR2DFt5tNCDm/2rMVWmlo0GbdGQfqYf8Tua73d10rEhX +a1IhPmR7OTD2Ix2p/745vyD1hE+XLrw2QMd5oa8/+BF/qJ7U6Bkl+RLZ1pRF +6lHsalOcPS8DrZdsZr8n9TwgzpY+xM/A0725Z32Iy5Io6vxSBj70Tej8NkmB +dUzG+6fiDOS3MPf7TvpFvK+/1joVBu6+ZJPylPSXGeXlPaoODOQdGxyeIf1q +8opUtLYLA23gYJYD8a9lCkzDHQwU36kQzBkh/WDc0G/jXgbO08ICp2EyH6t3 +TrpEMLAtt5gZT/rlU8u7QvHXGbjary3Sm/TfJ/cfUuduMXBR4ze8QPpzo/pz ++5RSBo7HqLPuf6LggcinjOxKBibfzfu8pJc8/zvB1eUvGHhzvICR8J70x30e +0DfBQN1oQeMFZB6kfdjT9/U3A0cSoxmLyLxItT4cOzLHwMUDjx0WkXmSqB3/ +bFpAHtPa9fPnWimI+UM5LZOVR8NBTZ7W5yRfCXyBLFN5TFIzL/vZQAGrqDjn +0iV5tOP5yG/EpeAdrejqpkx55CsuPzjHIf37UmH2r6vySMuNyqkvIfM0uiBr +W6E8joU9s1tP5qmWc066UI08unlpqqwuoGAtX2pS3Cd53FdoFnEqk+Rrx9Go +EBUmCqq9DC88SUF5W1ikgiYTt6e5xa49QYG9xZHjbbpMvPZmY/CNaAqSdYOP +aQETbwmvEbhynIKlSw4cGbUl50e7yBw4QsGCSu/AXaFMtK/f11W6j4IxYQtP +x3om+joMP7hlQ0GnP6PV7wkTa1zBpsGK1Mvj3xD5nImGgj6JXVsoSAovkrv5 +lommu/3F5swo0Ohb8nFmiInd4xfC1dZREEC9dL8iooDP3y68L6dJwZC1g+uA +jwLukPU77bCMrLezno6HFilia2mBtMsjLgQMqTA0liii1fcWQ2Gyn5vaPDMy +slwRL3T9y2wi+z1B3uTYvVKK2Ns5qa1RwwWNsIY7nqqK+Cyj/dVQGRcifBVF +rO0U0YJHvl4oh+z3TIZfKl9VRKNYtpdkGBfMf4Saf9Zbjfq+luvDFLkwvJP/ +8J3INch38Q9PXB2HfG+Izz9VvxaNri9ddnxFCQi/UEzk/lBC5R/zGk7tLALp ++FIbPT0VzJ12afp4rBDSlQ2Xi+xWxb2Dk6JPim7AU6l1uuMX1DDUz7Jd6NN1 +MJKuT1J/q45m9dPHMsevgRBvXpBXjAZSr1c4z9fMA9loOdZ2RU3k5I/PiG3P +AQEFt4ptTzTR0bMrV9nkCqixJUtD3bVwRCHLVVkrAw71CDdY8Gij5ZerU/xS +afBj/KyDebo2fvph6qTrnwqb1R9nmKvqYIi7xOijuQvwYNz4z1SLDkrlL71s +pnUeAlS0ul/56qJWZ4uIJjMB2KM+bdsF9NAjQTZBQ+sUbGJKbF2ap4e9Mwej +3g+dgDVRZ47U6+uj2uVJr5ll0aDka1ir0K2PLZeDvt7jHAPfB3tO3jlogFXL +Tv7DdUegNqfNZ0zUEN9t0tlbIxUEv27OTanfNUStDAHbyexA2KlQJJCx1QhZ +88UU+kr3wZhSil7ZTyO8Dgv9Y1J2wb38P58m4o0x/iirX+S8N+htCJqySDDG +RrMMv+tR3lD+aXhJzjlj3PQtuxQPeUOZbI++RbIxhmrnuqc6eENxet257Exj +fLab/26ptDfknI013MwxxjuOA61UsRecDlp2If2NMf7r2BVX+8YTXDbKo7Es +C9c+aUx/FuYBs238Qg00FvakZuvs3+EBOb6j7yzkWTgZ4PmEsckDvsRVhrqs +YeEn7aCc5uUecKjZujRMi4Wred82Lyh0hzNWx2TvmbLwutwBW8UPblDl3P5X +5wALa8QfTjy0c4VV+09VqtWxUJTe9bY51BkS53bpJtSzsDHTRytypzPMTzal +vjay8PD0Sd8N1s4wVMFXmNPMQj6HS2rTis5QxXMyXfgNC2eFt9gKdziBS2pU +6ORnFrY9eb9snpETpFeH6T5YzEaju2dGzgg6gqigP7XViY0mvfqOgW12kL8h +IvzndjZucvvhl/fQDrQiEjekuLFxcfF2hwGOHVj95LZ3erExNCDmeNppO4h7 +OzGz05+NlOmioUqwg+m8yPXh0WyUtX8Q+pmzDbqNU94UFLHxbvqhNQnptrAn +OD/LnMPGkH5Pbt4pW5jklPsOc9mo11Fb1hRiC8KMzinNCjZObe7/Cw62YMkv +I32/jo3XxE7GdAvbQk1bgc+bdjaeWXFnQ0WSDVgI3VMN6WRjXtylVG6UDXRu +bp6UeMfGnVb1VfcCbeBX1fd4j142pgQf8PjPxgZUczVKvg2x8e25W4MCwjZQ +070u5OwIG3UEjJsPzif3W2kH6j/ZeKJGw73lszXsOhX8KmiCjVISzbW/bljD +r7q4DPFpNgq7jKhrnLaGmN9pO6t+szF6n4FLnJ81LNcpVHGfZeMN+W9KU5bW +kL2/amJujo0CruaJMarW8D9P2sqO "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.07032392767464271}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2465,19 +6799,19 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.07032392767464271}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2491,306 +6825,119 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwV13k8VG8XAHAlhUpF1iwzY6js+zrjnDZZypI1W4gWSSpLlCxFSkkoQkJS +wpirKEsRKlqkIksloZJQfrJV8j7vX/fz/cy9d+495znnPJfufWCb73weHp4V +83h4/n+c7GluZCbkm2xoNlnTULzOpC1bImxdZwykCascvKxHAxR96S3RmQz5 +Sls2B+lpQIjNrQ7ezjwoj9DZ7qqHsGJUPHmmowxujtVF6OrZwMcaqwO/Ouoh +YzaR576uJ5gyhz6MdbyGnObP14a0A2GmQ//iz44+2Mao/3VLJQoaNtzIf5U3 +DiyjBj7byiSQ/lj5xVtlFlaWZfWdSEiHlf47bi3awItLq43KbvVehWRN02or +B36cb/bsxbbia9CVrlE3tnwpvpyxz3ToK4CE/MiX8yVXYMsK+xx9vlsgntp/ +OuWKCNYfTcCVd4tBQrn85HSBCFb8cezfUVcMUvVxke5cEYzy7X11vbkYZH+u +DV7dIIKC98LO0d4Xg8KWQM/qQRH0vW3m8YqnBLQXzOr1a6/EUPXUPXLmJWAd +JDag9XQlLsqOSPVtL4FT9uYmrydFkQ2BMj7vOSB1p0Vq/jwxDJqdzewf4ABH +xH5Kc7EYVm+xk3Ub4cDb1x7cC3JiqMRXq2TwjwNM2yCGrZkYOl0StciSK4X6 +rVcXtl4Ww8+BtK8iXqUwazrR8oIljnRxE9PqnlJIKggvmjUVx6yTB8q2fykF +5kKeeFVbcWRyuYJjI6Ww5ZHgunO+4ujyVyJCcLYUMjbQbm9JFMfoc/yqQUu5 +YICWac8+iqOga3PdDSUuHDbM3dEcI4ET/BVGPt5csMgR+mV5VgL5zttmxPty +gbHoWHzLRQl8nhzXU7iHC61tjtSbmxIoPG23sj+AC2qBS3h7WiTQPui1lsZR +LgwWhBb8JyWJN1carNVN4YLbSquRVbcl8diauqxvdVzQPlodnV0jiXcHGgJu +NXBBsG+NGP2xJJo9+S6/5zEXKkt5QbFLEt8trNTvfsYFMcvKJI05SUTPCb7L +b8n/RzN1NllKoc7HvZuiv3Nh44/f4QH9Ungsd6TxrzAFYWapSg+HpbAnM0fH +SpQCTq5qt8ikFL6yrL6ZJU6BhL2nYSX/Kox4fCNbQ5qC4XuPpnjVVqEOe8kj +HQUKUmKSgi4fIb/rmUhz9CjoE1UMaFwqjXkuU/RdThSIH6iVEReXxuXih/yd +t1Owpcn5xV6aNPL8/V632ZWCivAElWXa0vg65Em8zA4Kznz8ObTdWRrNWWUZ +13dRoFVYvftHnjSWpd74tzqYgmiWrZeUgQz2j9QWTZ2nwMwj+z/99TLIWfxy +uOQCBUJR3084bJHBMefpas8UCrIaYguSPGUw9PLmhTWXKLhnUfV94WkZLOF0 +OJpfoeCns3zIeJcMBm43sqwtpOBueOCiFQMy+HkqIc+kiILjWffT1UZlUMlR +5XxVMQVLep2q986Xxcx0S6WbpRSs3n2Wp1dJFnM7e4JdyinwCJ448/yoLErN +pretqqNAIW299FCsLO4X9bnv8/D/8TtfsihJFt1bajfcqqcg/O/a1vX5sthc +6q6s/IiCiyc8RCufy+IeoffBC55S8PzCk6vXZeRwovzoEdE3JN63V2o2rJbD +NNPk42vaKHBp96rv1ZTD+O4oZYN2CgYl/g6sMpVD348ux7Z2UMCbo6GUHCCH +8tv2LbZ5R4ER5/Kd47VyKPLg6P7yPgo2drTMjjbJYXXitcCT/RRY8SzYvOO1 +HB5W9Uu2GaBg57aALvgshyWvF+j0fqbA9Cg9MoqPhtfEf/x7P0jBs2U11wwE +aeiZfWrhxW8U2OQ7Nv0UoqHkDW1NiyEKXF8krPCSoOFHLaH/ir5TECg3eW2d +Mg3lsoc1t45SMHE7qWlGnYYHrxp7jxKHmymPUDo03HoIq87+oCD2oKcew4SG +ZcJP++t+UpDR8LRpvi0NH4xdVl00ToGcs+9IlQMNfcytiy8Q5w/PrTjsQkPH +5NNOkr8oKBXVde3fSUOZwnl6tAkKGndfHWkIoeHnlU7MJVMUmP81FD52lIZn +reIkoohbktr0dKJomJuhazJG3FUpEJV/mobcD9m0Z9Mkv1b5+W6JNHxfc7VH +e4aCgT6T5pUpNBQ8zmm9TDy6OEg4Notc/+aMnftvCg7nCOmzc2n4/Wb+5yri +aZ1C14nrNJT65MMR/UPy49GT71tKQ3fTI1/qiSW4Zvqm9TTs3h7A+/cvBVc2 +9rv+e0ziJ2bkvmGWAkZXRFTFMxru+vT3v1PEqvNvNyu203CTs3Q7/z8Kyi5t +He3pouHAvzbGJmID5UHhtB4alhSwSo8Tr7eXcVs0SMM+ns64b8RPBu9G1Q7T +ULPV/43UHKnPiG3XQ8domNx1yMuc+PWKkWb1SRr2rs/SDCZ2Kjg1+vU3iWdb +5sZs4vdGDJGcOfL+U8zMRmLvlzX6zgvo+KDiu+4g8dedTm7LBeioVpsvKsBT +Bv7TY1FNS+n41I3PeDWx0cFdYl+E6djHOtS2kZh/qLuIV4KOzZPCxjuI33pb +r6PL0FFztPVACPH1dw1vTRh0bPW6dPgMcZC9gb/bajqW+VltziRe/6J4XrgK +Ha/8Gfh+k3i5KT0tTZOOvr2m3reJex5cVCnXo6Pxfa+iKuJifcH618Z0XCbE +bHpAHM497vQT6TikEFFZS2y2dnx4qSkdddXco+4Ti+XtjlG2pKO8YrnMPeIB +qffi5jZ0/PMpJLmUuCzFpmSXAx2DBS9+vEYcteTR+pMudFwszbvwIrF1rGFn +7g462u4qX3iCWPZfyf5aH+LFuX37iYdDGLwf9tKx/V91hgNx1Y9L6b8D6NjI +N6tuRBy/Z7GaRBAdQ8tdr60idvwU2aAbRkeBw60TMyTeTJdfznbH6cg5ZL+m +nbjO8sOJxHg6Ji4/rBlDnNhoK1l8jo4F0gsE7Ynd2I85zckkHpsuPGYQz6iV +di24QseIcxd/VJD10XRD/gAjj45jRwQ8jhFfoqUvwBt0FBM/fMeEWEs4Wv0o +RUfForUyVWQ98iRMNKZX0FG6PEzzMHELr59LRTUdI9Mfaa4l3jexLXbsEcn3 +lR2/E8j6Ngp4IrXsGR2DFt5tNCDm/2rMVWmlo0GbdGQfqYf8Tua73d10rEhX +a1IhPmR7OTD2Ix2p/745vyD1hE+XLrw2QMd5oa8/+BF/qJ7U6Bkl+RLZ1pRF +6lHsalOcPS8DrZdsZr8n9TwgzpY+xM/A0725Z32Iy5Io6vxSBj70Tej8NkmB +dUzG+6fiDOS3MPf7TvpFvK+/1joVBu6+ZJPylPSXGeXlPaoODOQdGxyeIf1q +8opUtLYLA23gYJYD8a9lCkzDHQwU36kQzBkh/WDc0G/jXgbO08ICp2EyH6t3 +TrpEMLAtt5gZT/rlU8u7QvHXGbjary3Sm/TfJ/cfUuduMXBR4ze8QPpzo/pz ++5RSBo7HqLPuf6LggcinjOxKBibfzfu8pJc8/zvB1eUvGHhzvICR8J70x30e +0DfBQN1oQeMFZB6kfdjT9/U3A0cSoxmLyLxItT4cOzLHwMUDjx0WkXmSqB3/ +bFpAHtPa9fPnWimI+UM5LZOVR8NBTZ7W5yRfCXyBLFN5TFIzL/vZQAGrqDjn +0iV5tOP5yG/EpeAdrejqpkx55CsuPzjHIf37UmH2r6vySMuNyqkvIfM0uiBr +W6E8joU9s1tP5qmWc066UI08unlpqqwuoGAtX2pS3Cd53FdoFnEqk+Rrx9Go +EBUmCqq9DC88SUF5W1ikgiYTt6e5xa49QYG9xZHjbbpMvPZmY/CNaAqSdYOP +aQETbwmvEbhynIKlSw4cGbUl50e7yBw4QsGCSu/AXaFMtK/f11W6j4IxYQtP +x3om+joMP7hlQ0GnP6PV7wkTa1zBpsGK1Mvj3xD5nImGgj6JXVsoSAovkrv5 +lommu/3F5swo0Ohb8nFmiInd4xfC1dZREEC9dL8iooDP3y68L6dJwZC1g+uA +jwLukPU77bCMrLezno6HFilia2mBtMsjLgQMqTA0liii1fcWQ2Gyn5vaPDMy +slwRL3T9y2wi+z1B3uTYvVKK2Ns5qa1RwwWNsIY7nqqK+Cyj/dVQGRcifBVF +rO0U0YJHvl4oh+z3TIZfKl9VRKNYtpdkGBfMf4Saf9Zbjfq+luvDFLkwvJP/ +8J3INch38Q9PXB2HfG+Izz9VvxaNri9ddnxFCQi/UEzk/lBC5R/zGk7tLALp ++FIbPT0VzJ12afp4rBDSlQ2Xi+xWxb2Dk6JPim7AU6l1uuMX1DDUz7Jd6NN1 +MJKuT1J/q45m9dPHMsevgRBvXpBXjAZSr1c4z9fMA9loOdZ2RU3k5I/PiG3P +AQEFt4ptTzTR0bMrV9nkCqixJUtD3bVwRCHLVVkrAw71CDdY8Gij5ZerU/xS +afBj/KyDebo2fvph6qTrnwqb1R9nmKvqYIi7xOijuQvwYNz4z1SLDkrlL71s +pnUeAlS0ul/56qJWZ4uIJjMB2KM+bdsF9NAjQTZBQ+sUbGJKbF2ap4e9Mwej +3g+dgDVRZ47U6+uj2uVJr5ll0aDka1ir0K2PLZeDvt7jHAPfB3tO3jlogFXL +Tv7DdUegNqfNZ0zUEN9t0tlbIxUEv27OTanfNUStDAHbyexA2KlQJJCx1QhZ +88UU+kr3wZhSil7ZTyO8Dgv9Y1J2wb38P58m4o0x/iirX+S8N+htCJqySDDG +RrMMv+tR3lD+aXhJzjlj3PQtuxQPeUOZbI++RbIxhmrnuqc6eENxet257Exj +fLab/26ptDfknI013MwxxjuOA61UsRecDlp2If2NMf7r2BVX+8YTXDbKo7Es +C9c+aUx/FuYBs238Qg00FvakZuvs3+EBOb6j7yzkWTgZ4PmEsckDvsRVhrqs +YeEn7aCc5uUecKjZujRMi4Wred82Lyh0hzNWx2TvmbLwutwBW8UPblDl3P5X +5wALa8QfTjy0c4VV+09VqtWxUJTe9bY51BkS53bpJtSzsDHTRytypzPMTzal +vjay8PD0Sd8N1s4wVMFXmNPMQj6HS2rTis5QxXMyXfgNC2eFt9gKdziBS2pU +6ORnFrY9eb9snpETpFeH6T5YzEaju2dGzgg6gqigP7XViY0mvfqOgW12kL8h +IvzndjZucvvhl/fQDrQiEjekuLFxcfF2hwGOHVj95LZ3erExNCDmeNppO4h7 +OzGz05+NlOmioUqwg+m8yPXh0WyUtX8Q+pmzDbqNU94UFLHxbvqhNQnptrAn +OD/LnMPGkH5Pbt4pW5jklPsOc9mo11Fb1hRiC8KMzinNCjZObe7/Cw62YMkv +I32/jo3XxE7GdAvbQk1bgc+bdjaeWXFnQ0WSDVgI3VMN6WRjXtylVG6UDXRu +bp6UeMfGnVb1VfcCbeBX1fd4j142pgQf8PjPxgZUczVKvg2x8e25W4MCwjZQ +070u5OwIG3UEjJsPzif3W2kH6j/ZeKJGw73lszXsOhX8KmiCjVISzbW/bljD +r7q4DPFpNgq7jKhrnLaGmN9pO6t+szF6n4FLnJ81LNcpVHGfZeMN+W9KU5bW +kL2/amJujo0CruaJMarW8D9P2sqO "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.07032392767464271}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2801,6 +6948,7 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2828,7 +6976,8 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07032392767464271}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2836,25 +6985,875 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913290128289948`*^9}, - CellLabel-> - "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] + CellChangeTimes->{3.9913290128289948`*^9, 3.993917901845004*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"3fc90143-0c6f-4573-adeb-568e76e40245"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ -511095eaf120"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015632"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025463"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034444"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042305"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048862"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.053992"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.05763"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.05981"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060594"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060116"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058529"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056023"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052783"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.049014"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044891"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.04059"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.036252"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.032004"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027939"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024133"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020631"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017466"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014645"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012169"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.01002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008181"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005319"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004237"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00335"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993916469348886*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.060594}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993917901945635*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"3fdf966e-5453-46c2-9731-6da951c356ea"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ -89d3982ba28f"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VG8XAHAlhUpF1iwzY6js+zrjnDZZypI1W4gWSSpLlCxFSkkoQkJS +wpirKEsRKlqkIksloZJQfrJV8j7vX/fz/cy9d+495znnPJfufWCb73weHp4V +83h4/n+c7GluZCbkm2xoNlnTULzOpC1bImxdZwykCascvKxHAxR96S3RmQz5 +Sls2B+lpQIjNrQ7ezjwoj9DZ7qqHsGJUPHmmowxujtVF6OrZwMcaqwO/Ouoh +YzaR576uJ5gyhz6MdbyGnObP14a0A2GmQ//iz44+2Mao/3VLJQoaNtzIf5U3 +DiyjBj7byiSQ/lj5xVtlFlaWZfWdSEiHlf47bi3awItLq43KbvVehWRN02or +B36cb/bsxbbia9CVrlE3tnwpvpyxz3ToK4CE/MiX8yVXYMsK+xx9vlsgntp/ +OuWKCNYfTcCVd4tBQrn85HSBCFb8cezfUVcMUvVxke5cEYzy7X11vbkYZH+u +DV7dIIKC98LO0d4Xg8KWQM/qQRH0vW3m8YqnBLQXzOr1a6/EUPXUPXLmJWAd +JDag9XQlLsqOSPVtL4FT9uYmrydFkQ2BMj7vOSB1p0Vq/jwxDJqdzewf4ABH +xH5Kc7EYVm+xk3Ub4cDb1x7cC3JiqMRXq2TwjwNM2yCGrZkYOl0StciSK4X6 +rVcXtl4Ww8+BtK8iXqUwazrR8oIljnRxE9PqnlJIKggvmjUVx6yTB8q2fykF +5kKeeFVbcWRyuYJjI6Ww5ZHgunO+4ujyVyJCcLYUMjbQbm9JFMfoc/yqQUu5 +YICWac8+iqOga3PdDSUuHDbM3dEcI4ET/BVGPt5csMgR+mV5VgL5zttmxPty +gbHoWHzLRQl8nhzXU7iHC61tjtSbmxIoPG23sj+AC2qBS3h7WiTQPui1lsZR +LgwWhBb8JyWJN1carNVN4YLbSquRVbcl8diauqxvdVzQPlodnV0jiXcHGgJu +NXBBsG+NGP2xJJo9+S6/5zEXKkt5QbFLEt8trNTvfsYFMcvKJI05SUTPCb7L +b8n/RzN1NllKoc7HvZuiv3Nh44/f4QH9Ungsd6TxrzAFYWapSg+HpbAnM0fH +SpQCTq5qt8ikFL6yrL6ZJU6BhL2nYSX/Kox4fCNbQ5qC4XuPpnjVVqEOe8kj +HQUKUmKSgi4fIb/rmUhz9CjoE1UMaFwqjXkuU/RdThSIH6iVEReXxuXih/yd +t1Owpcn5xV6aNPL8/V632ZWCivAElWXa0vg65Em8zA4Kznz8ObTdWRrNWWUZ +13dRoFVYvftHnjSWpd74tzqYgmiWrZeUgQz2j9QWTZ2nwMwj+z/99TLIWfxy +uOQCBUJR3084bJHBMefpas8UCrIaYguSPGUw9PLmhTWXKLhnUfV94WkZLOF0 +OJpfoeCns3zIeJcMBm43sqwtpOBueOCiFQMy+HkqIc+kiILjWffT1UZlUMlR +5XxVMQVLep2q986Xxcx0S6WbpRSs3n2Wp1dJFnM7e4JdyinwCJ448/yoLErN +pretqqNAIW299FCsLO4X9bnv8/D/8TtfsihJFt1bajfcqqcg/O/a1vX5sthc +6q6s/IiCiyc8RCufy+IeoffBC55S8PzCk6vXZeRwovzoEdE3JN63V2o2rJbD +NNPk42vaKHBp96rv1ZTD+O4oZYN2CgYl/g6sMpVD348ux7Z2UMCbo6GUHCCH +8tv2LbZ5R4ER5/Kd47VyKPLg6P7yPgo2drTMjjbJYXXitcCT/RRY8SzYvOO1 +HB5W9Uu2GaBg57aALvgshyWvF+j0fqbA9Cg9MoqPhtfEf/x7P0jBs2U11wwE +aeiZfWrhxW8U2OQ7Nv0UoqHkDW1NiyEKXF8krPCSoOFHLaH/ir5TECg3eW2d +Mg3lsoc1t45SMHE7qWlGnYYHrxp7jxKHmymPUDo03HoIq87+oCD2oKcew4SG +ZcJP++t+UpDR8LRpvi0NH4xdVl00ToGcs+9IlQMNfcytiy8Q5w/PrTjsQkPH +5NNOkr8oKBXVde3fSUOZwnl6tAkKGndfHWkIoeHnlU7MJVMUmP81FD52lIZn +reIkoohbktr0dKJomJuhazJG3FUpEJV/mobcD9m0Z9Mkv1b5+W6JNHxfc7VH +e4aCgT6T5pUpNBQ8zmm9TDy6OEg4Notc/+aMnftvCg7nCOmzc2n4/Wb+5yri +aZ1C14nrNJT65MMR/UPy49GT71tKQ3fTI1/qiSW4Zvqm9TTs3h7A+/cvBVc2 +9rv+e0ziJ2bkvmGWAkZXRFTFMxru+vT3v1PEqvNvNyu203CTs3Q7/z8Kyi5t +He3pouHAvzbGJmID5UHhtB4alhSwSo8Tr7eXcVs0SMM+ns64b8RPBu9G1Q7T +ULPV/43UHKnPiG3XQ8domNx1yMuc+PWKkWb1SRr2rs/SDCZ2Kjg1+vU3iWdb +5sZs4vdGDJGcOfL+U8zMRmLvlzX6zgvo+KDiu+4g8dedTm7LBeioVpsvKsBT +Bv7TY1FNS+n41I3PeDWx0cFdYl+E6djHOtS2kZh/qLuIV4KOzZPCxjuI33pb +r6PL0FFztPVACPH1dw1vTRh0bPW6dPgMcZC9gb/bajqW+VltziRe/6J4XrgK +Ha/8Gfh+k3i5KT0tTZOOvr2m3reJex5cVCnXo6Pxfa+iKuJifcH618Z0XCbE +bHpAHM497vQT6TikEFFZS2y2dnx4qSkdddXco+4Ti+XtjlG2pKO8YrnMPeIB +qffi5jZ0/PMpJLmUuCzFpmSXAx2DBS9+vEYcteTR+pMudFwszbvwIrF1rGFn +7g462u4qX3iCWPZfyf5aH+LFuX37iYdDGLwf9tKx/V91hgNx1Y9L6b8D6NjI +N6tuRBy/Z7GaRBAdQ8tdr60idvwU2aAbRkeBw60TMyTeTJdfznbH6cg5ZL+m +nbjO8sOJxHg6Ji4/rBlDnNhoK1l8jo4F0gsE7Ynd2I85zckkHpsuPGYQz6iV +di24QseIcxd/VJD10XRD/gAjj45jRwQ8jhFfoqUvwBt0FBM/fMeEWEs4Wv0o +RUfForUyVWQ98iRMNKZX0FG6PEzzMHELr59LRTUdI9Mfaa4l3jexLXbsEcn3 +lR2/E8j6Ngp4IrXsGR2DFt5tNCDm/2rMVWmlo0GbdGQfqYf8Tua73d10rEhX +a1IhPmR7OTD2Ix2p/745vyD1hE+XLrw2QMd5oa8/+BF/qJ7U6Bkl+RLZ1pRF +6lHsalOcPS8DrZdsZr8n9TwgzpY+xM/A0725Z32Iy5Io6vxSBj70Tej8NkmB +dUzG+6fiDOS3MPf7TvpFvK+/1joVBu6+ZJPylPSXGeXlPaoODOQdGxyeIf1q +8opUtLYLA23gYJYD8a9lCkzDHQwU36kQzBkh/WDc0G/jXgbO08ICp2EyH6t3 +TrpEMLAtt5gZT/rlU8u7QvHXGbjary3Sm/TfJ/cfUuduMXBR4ze8QPpzo/pz ++5RSBo7HqLPuf6LggcinjOxKBibfzfu8pJc8/zvB1eUvGHhzvICR8J70x30e +0DfBQN1oQeMFZB6kfdjT9/U3A0cSoxmLyLxItT4cOzLHwMUDjx0WkXmSqB3/ +bFpAHtPa9fPnWimI+UM5LZOVR8NBTZ7W5yRfCXyBLFN5TFIzL/vZQAGrqDjn +0iV5tOP5yG/EpeAdrejqpkx55CsuPzjHIf37UmH2r6vySMuNyqkvIfM0uiBr +W6E8joU9s1tP5qmWc066UI08unlpqqwuoGAtX2pS3Cd53FdoFnEqk+Rrx9Go +EBUmCqq9DC88SUF5W1ikgiYTt6e5xa49QYG9xZHjbbpMvPZmY/CNaAqSdYOP +aQETbwmvEbhynIKlSw4cGbUl50e7yBw4QsGCSu/AXaFMtK/f11W6j4IxYQtP +x3om+joMP7hlQ0GnP6PV7wkTa1zBpsGK1Mvj3xD5nImGgj6JXVsoSAovkrv5 +lommu/3F5swo0Ohb8nFmiInd4xfC1dZREEC9dL8iooDP3y68L6dJwZC1g+uA +jwLukPU77bCMrLezno6HFilia2mBtMsjLgQMqTA0liii1fcWQ2Gyn5vaPDMy +slwRL3T9y2wi+z1B3uTYvVKK2Ns5qa1RwwWNsIY7nqqK+Cyj/dVQGRcifBVF +rO0U0YJHvl4oh+z3TIZfKl9VRKNYtpdkGBfMf4Saf9Zbjfq+luvDFLkwvJP/ +8J3INch38Q9PXB2HfG+Izz9VvxaNri9ddnxFCQi/UEzk/lBC5R/zGk7tLALp ++FIbPT0VzJ12afp4rBDSlQ2Xi+xWxb2Dk6JPim7AU6l1uuMX1DDUz7Jd6NN1 +MJKuT1J/q45m9dPHMsevgRBvXpBXjAZSr1c4z9fMA9loOdZ2RU3k5I/PiG3P +AQEFt4ptTzTR0bMrV9nkCqixJUtD3bVwRCHLVVkrAw71CDdY8Gij5ZerU/xS +afBj/KyDebo2fvph6qTrnwqb1R9nmKvqYIi7xOijuQvwYNz4z1SLDkrlL71s +pnUeAlS0ul/56qJWZ4uIJjMB2KM+bdsF9NAjQTZBQ+sUbGJKbF2ap4e9Mwej +3g+dgDVRZ47U6+uj2uVJr5ll0aDka1ir0K2PLZeDvt7jHAPfB3tO3jlogFXL +Tv7DdUegNqfNZ0zUEN9t0tlbIxUEv27OTanfNUStDAHbyexA2KlQJJCx1QhZ +88UU+kr3wZhSil7ZTyO8Dgv9Y1J2wb38P58m4o0x/iirX+S8N+htCJqySDDG +RrMMv+tR3lD+aXhJzjlj3PQtuxQPeUOZbI++RbIxhmrnuqc6eENxet257Exj +fLab/26ptDfknI013MwxxjuOA61UsRecDlp2If2NMf7r2BVX+8YTXDbKo7Es +C9c+aUx/FuYBs238Qg00FvakZuvs3+EBOb6j7yzkWTgZ4PmEsckDvsRVhrqs +YeEn7aCc5uUecKjZujRMi4Wred82Lyh0hzNWx2TvmbLwutwBW8UPblDl3P5X +5wALa8QfTjy0c4VV+09VqtWxUJTe9bY51BkS53bpJtSzsDHTRytypzPMTzal +vjay8PD0Sd8N1s4wVMFXmNPMQj6HS2rTis5QxXMyXfgNC2eFt9gKdziBS2pU +6ORnFrY9eb9snpETpFeH6T5YzEaju2dGzgg6gqigP7XViY0mvfqOgW12kL8h +IvzndjZucvvhl/fQDrQiEjekuLFxcfF2hwGOHVj95LZ3erExNCDmeNppO4h7 +OzGz05+NlOmioUqwg+m8yPXh0WyUtX8Q+pmzDbqNU94UFLHxbvqhNQnptrAn +OD/LnMPGkH5Pbt4pW5jklPsOc9mo11Fb1hRiC8KMzinNCjZObe7/Cw62YMkv +I32/jo3XxE7GdAvbQk1bgc+bdjaeWXFnQ0WSDVgI3VMN6WRjXtylVG6UDXRu +bp6UeMfGnVb1VfcCbeBX1fd4j142pgQf8PjPxgZUczVKvg2x8e25W4MCwjZQ +070u5OwIG3UEjJsPzif3W2kH6j/ZeKJGw73lszXsOhX8KmiCjVISzbW/bljD +r7q4DPFpNgq7jKhrnLaGmN9pO6t+szF6n4FLnJ81LNcpVHGfZeMN+W9KU5bW +kL2/amJujo0CruaJMarW8D9P2sqO + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VG8XAHAlhUpF1iwzY6js+zrjnDZZypI1W4gWSSpLlCxFSkkoQkJS +wpirKEsRKlqkIksloZJQfrJV8j7vX/fz/cy9d+495znnPJfufWCb73weHp4V +83h4/n+c7GluZCbkm2xoNlnTULzOpC1bImxdZwykCascvKxHAxR96S3RmQz5 +Sls2B+lpQIjNrQ7ezjwoj9DZ7qqHsGJUPHmmowxujtVF6OrZwMcaqwO/Ouoh +YzaR576uJ5gyhz6MdbyGnObP14a0A2GmQ//iz44+2Mao/3VLJQoaNtzIf5U3 +DiyjBj7byiSQ/lj5xVtlFlaWZfWdSEiHlf47bi3awItLq43KbvVehWRN02or +B36cb/bsxbbia9CVrlE3tnwpvpyxz3ToK4CE/MiX8yVXYMsK+xx9vlsgntp/ +OuWKCNYfTcCVd4tBQrn85HSBCFb8cezfUVcMUvVxke5cEYzy7X11vbkYZH+u +DV7dIIKC98LO0d4Xg8KWQM/qQRH0vW3m8YqnBLQXzOr1a6/EUPXUPXLmJWAd +JDag9XQlLsqOSPVtL4FT9uYmrydFkQ2BMj7vOSB1p0Vq/jwxDJqdzewf4ABH +xH5Kc7EYVm+xk3Ub4cDb1x7cC3JiqMRXq2TwjwNM2yCGrZkYOl0StciSK4X6 +rVcXtl4Ww8+BtK8iXqUwazrR8oIljnRxE9PqnlJIKggvmjUVx6yTB8q2fykF +5kKeeFVbcWRyuYJjI6Ww5ZHgunO+4ujyVyJCcLYUMjbQbm9JFMfoc/yqQUu5 +YICWac8+iqOga3PdDSUuHDbM3dEcI4ET/BVGPt5csMgR+mV5VgL5zttmxPty +gbHoWHzLRQl8nhzXU7iHC61tjtSbmxIoPG23sj+AC2qBS3h7WiTQPui1lsZR +LgwWhBb8JyWJN1carNVN4YLbSquRVbcl8diauqxvdVzQPlodnV0jiXcHGgJu +NXBBsG+NGP2xJJo9+S6/5zEXKkt5QbFLEt8trNTvfsYFMcvKJI05SUTPCb7L +b8n/RzN1NllKoc7HvZuiv3Nh44/f4QH9Ungsd6TxrzAFYWapSg+HpbAnM0fH +SpQCTq5qt8ikFL6yrL6ZJU6BhL2nYSX/Kox4fCNbQ5qC4XuPpnjVVqEOe8kj +HQUKUmKSgi4fIb/rmUhz9CjoE1UMaFwqjXkuU/RdThSIH6iVEReXxuXih/yd +t1Owpcn5xV6aNPL8/V632ZWCivAElWXa0vg65Em8zA4Kznz8ObTdWRrNWWUZ +13dRoFVYvftHnjSWpd74tzqYgmiWrZeUgQz2j9QWTZ2nwMwj+z/99TLIWfxy +uOQCBUJR3084bJHBMefpas8UCrIaYguSPGUw9PLmhTWXKLhnUfV94WkZLOF0 +OJpfoeCns3zIeJcMBm43sqwtpOBueOCiFQMy+HkqIc+kiILjWffT1UZlUMlR +5XxVMQVLep2q986Xxcx0S6WbpRSs3n2Wp1dJFnM7e4JdyinwCJ448/yoLErN +pretqqNAIW299FCsLO4X9bnv8/D/8TtfsihJFt1bajfcqqcg/O/a1vX5sthc +6q6s/IiCiyc8RCufy+IeoffBC55S8PzCk6vXZeRwovzoEdE3JN63V2o2rJbD +NNPk42vaKHBp96rv1ZTD+O4oZYN2CgYl/g6sMpVD348ux7Z2UMCbo6GUHCCH +8tv2LbZ5R4ER5/Kd47VyKPLg6P7yPgo2drTMjjbJYXXitcCT/RRY8SzYvOO1 +HB5W9Uu2GaBg57aALvgshyWvF+j0fqbA9Cg9MoqPhtfEf/x7P0jBs2U11wwE +aeiZfWrhxW8U2OQ7Nv0UoqHkDW1NiyEKXF8krPCSoOFHLaH/ir5TECg3eW2d +Mg3lsoc1t45SMHE7qWlGnYYHrxp7jxKHmymPUDo03HoIq87+oCD2oKcew4SG +ZcJP++t+UpDR8LRpvi0NH4xdVl00ToGcs+9IlQMNfcytiy8Q5w/PrTjsQkPH +5NNOkr8oKBXVde3fSUOZwnl6tAkKGndfHWkIoeHnlU7MJVMUmP81FD52lIZn +reIkoohbktr0dKJomJuhazJG3FUpEJV/mobcD9m0Z9Mkv1b5+W6JNHxfc7VH +e4aCgT6T5pUpNBQ8zmm9TDy6OEg4Notc/+aMnftvCg7nCOmzc2n4/Wb+5yri +aZ1C14nrNJT65MMR/UPy49GT71tKQ3fTI1/qiSW4Zvqm9TTs3h7A+/cvBVc2 +9rv+e0ziJ2bkvmGWAkZXRFTFMxru+vT3v1PEqvNvNyu203CTs3Q7/z8Kyi5t +He3pouHAvzbGJmID5UHhtB4alhSwSo8Tr7eXcVs0SMM+ns64b8RPBu9G1Q7T +ULPV/43UHKnPiG3XQ8domNx1yMuc+PWKkWb1SRr2rs/SDCZ2Kjg1+vU3iWdb +5sZs4vdGDJGcOfL+U8zMRmLvlzX6zgvo+KDiu+4g8dedTm7LBeioVpsvKsBT +Bv7TY1FNS+n41I3PeDWx0cFdYl+E6djHOtS2kZh/qLuIV4KOzZPCxjuI33pb +r6PL0FFztPVACPH1dw1vTRh0bPW6dPgMcZC9gb/bajqW+VltziRe/6J4XrgK +Ha/8Gfh+k3i5KT0tTZOOvr2m3reJex5cVCnXo6Pxfa+iKuJifcH618Z0XCbE +bHpAHM497vQT6TikEFFZS2y2dnx4qSkdddXco+4Ti+XtjlG2pKO8YrnMPeIB +qffi5jZ0/PMpJLmUuCzFpmSXAx2DBS9+vEYcteTR+pMudFwszbvwIrF1rGFn +7g462u4qX3iCWPZfyf5aH+LFuX37iYdDGLwf9tKx/V91hgNx1Y9L6b8D6NjI +N6tuRBy/Z7GaRBAdQ8tdr60idvwU2aAbRkeBw60TMyTeTJdfznbH6cg5ZL+m +nbjO8sOJxHg6Ji4/rBlDnNhoK1l8jo4F0gsE7Ynd2I85zckkHpsuPGYQz6iV +di24QseIcxd/VJD10XRD/gAjj45jRwQ8jhFfoqUvwBt0FBM/fMeEWEs4Wv0o +RUfForUyVWQ98iRMNKZX0FG6PEzzMHELr59LRTUdI9Mfaa4l3jexLXbsEcn3 +lR2/E8j6Ngp4IrXsGR2DFt5tNCDm/2rMVWmlo0GbdGQfqYf8Tua73d10rEhX +a1IhPmR7OTD2Ix2p/745vyD1hE+XLrw2QMd5oa8/+BF/qJ7U6Bkl+RLZ1pRF +6lHsalOcPS8DrZdsZr8n9TwgzpY+xM/A0725Z32Iy5Io6vxSBj70Tej8NkmB +dUzG+6fiDOS3MPf7TvpFvK+/1joVBu6+ZJPylPSXGeXlPaoODOQdGxyeIf1q +8opUtLYLA23gYJYD8a9lCkzDHQwU36kQzBkh/WDc0G/jXgbO08ICp2EyH6t3 +TrpEMLAtt5gZT/rlU8u7QvHXGbjary3Sm/TfJ/cfUuduMXBR4ze8QPpzo/pz ++5RSBo7HqLPuf6LggcinjOxKBibfzfu8pJc8/zvB1eUvGHhzvICR8J70x30e +0DfBQN1oQeMFZB6kfdjT9/U3A0cSoxmLyLxItT4cOzLHwMUDjx0WkXmSqB3/ +bFpAHtPa9fPnWimI+UM5LZOVR8NBTZ7W5yRfCXyBLFN5TFIzL/vZQAGrqDjn +0iV5tOP5yG/EpeAdrejqpkx55CsuPzjHIf37UmH2r6vySMuNyqkvIfM0uiBr +W6E8joU9s1tP5qmWc066UI08unlpqqwuoGAtX2pS3Cd53FdoFnEqk+Rrx9Go +EBUmCqq9DC88SUF5W1ikgiYTt6e5xa49QYG9xZHjbbpMvPZmY/CNaAqSdYOP +aQETbwmvEbhynIKlSw4cGbUl50e7yBw4QsGCSu/AXaFMtK/f11W6j4IxYQtP +x3om+joMP7hlQ0GnP6PV7wkTa1zBpsGK1Mvj3xD5nImGgj6JXVsoSAovkrv5 +lommu/3F5swo0Ohb8nFmiInd4xfC1dZREEC9dL8iooDP3y68L6dJwZC1g+uA +jwLukPU77bCMrLezno6HFilia2mBtMsjLgQMqTA0liii1fcWQ2Gyn5vaPDMy +slwRL3T9y2wi+z1B3uTYvVKK2Ns5qa1RwwWNsIY7nqqK+Cyj/dVQGRcifBVF +rO0U0YJHvl4oh+z3TIZfKl9VRKNYtpdkGBfMf4Saf9Zbjfq+luvDFLkwvJP/ +8J3INch38Q9PXB2HfG+Izz9VvxaNri9ddnxFCQi/UEzk/lBC5R/zGk7tLALp ++FIbPT0VzJ12afp4rBDSlQ2Xi+xWxb2Dk6JPim7AU6l1uuMX1DDUz7Jd6NN1 +MJKuT1J/q45m9dPHMsevgRBvXpBXjAZSr1c4z9fMA9loOdZ2RU3k5I/PiG3P +AQEFt4ptTzTR0bMrV9nkCqixJUtD3bVwRCHLVVkrAw71CDdY8Gij5ZerU/xS +afBj/KyDebo2fvph6qTrnwqb1R9nmKvqYIi7xOijuQvwYNz4z1SLDkrlL71s +pnUeAlS0ul/56qJWZ4uIJjMB2KM+bdsF9NAjQTZBQ+sUbGJKbF2ap4e9Mwej +3g+dgDVRZ47U6+uj2uVJr5ll0aDka1ir0K2PLZeDvt7jHAPfB3tO3jlogFXL +Tv7DdUegNqfNZ0zUEN9t0tlbIxUEv27OTanfNUStDAHbyexA2KlQJJCx1QhZ +88UU+kr3wZhSil7ZTyO8Dgv9Y1J2wb38P58m4o0x/iirX+S8N+htCJqySDDG +RrMMv+tR3lD+aXhJzjlj3PQtuxQPeUOZbI++RbIxhmrnuqc6eENxet257Exj +fLab/26ptDfknI013MwxxjuOA61UsRecDlp2If2NMf7r2BVX+8YTXDbKo7Es +C9c+aUx/FuYBs238Qg00FvakZuvs3+EBOb6j7yzkWTgZ4PmEsckDvsRVhrqs +YeEn7aCc5uUecKjZujRMi4Wred82Lyh0hzNWx2TvmbLwutwBW8UPblDl3P5X +5wALa8QfTjy0c4VV+09VqtWxUJTe9bY51BkS53bpJtSzsDHTRytypzPMTzal +vjay8PD0Sd8N1s4wVMFXmNPMQj6HS2rTis5QxXMyXfgNC2eFt9gKdziBS2pU +6ORnFrY9eb9snpETpFeH6T5YzEaju2dGzgg6gqigP7XViY0mvfqOgW12kL8h +IvzndjZucvvhl/fQDrQiEjekuLFxcfF2hwGOHVj95LZ3erExNCDmeNppO4h7 +OzGz05+NlOmioUqwg+m8yPXh0WyUtX8Q+pmzDbqNU94UFLHxbvqhNQnptrAn +OD/LnMPGkH5Pbt4pW5jklPsOc9mo11Fb1hRiC8KMzinNCjZObe7/Cw62YMkv +I32/jo3XxE7GdAvbQk1bgc+bdjaeWXFnQ0WSDVgI3VMN6WRjXtylVG6UDXRu +bp6UeMfGnVb1VfcCbeBX1fd4j142pgQf8PjPxgZUczVKvg2x8e25W4MCwjZQ +070u5OwIG3UEjJsPzif3W2kH6j/ZeKJGw73lszXsOhX8KmiCjVISzbW/bljD +r7q4DPFpNgq7jKhrnLaGmN9pO6t+szF6n4FLnJ81LNcpVHGfZeMN+W9KU5bW +kL2/amJujo0CruaJMarW8D9P2sqO + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07032392767464271}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.07032392767464271}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VG8XAHAlhUpF1iwzY6js+zrjnDZZypI1W4gWSSpLlCxFSkkoQkJS +wpirKEsRKlqkIksloZJQfrJV8j7vX/fz/cy9d+495znnPJfufWCb73weHp4V +83h4/n+c7GluZCbkm2xoNlnTULzOpC1bImxdZwykCascvKxHAxR96S3RmQz5 +Sls2B+lpQIjNrQ7ezjwoj9DZ7qqHsGJUPHmmowxujtVF6OrZwMcaqwO/Ouoh +YzaR576uJ5gyhz6MdbyGnObP14a0A2GmQ//iz44+2Mao/3VLJQoaNtzIf5U3 +DiyjBj7byiSQ/lj5xVtlFlaWZfWdSEiHlf47bi3awItLq43KbvVehWRN02or +B36cb/bsxbbia9CVrlE3tnwpvpyxz3ToK4CE/MiX8yVXYMsK+xx9vlsgntp/ +OuWKCNYfTcCVd4tBQrn85HSBCFb8cezfUVcMUvVxke5cEYzy7X11vbkYZH+u +DV7dIIKC98LO0d4Xg8KWQM/qQRH0vW3m8YqnBLQXzOr1a6/EUPXUPXLmJWAd +JDag9XQlLsqOSPVtL4FT9uYmrydFkQ2BMj7vOSB1p0Vq/jwxDJqdzewf4ABH +xH5Kc7EYVm+xk3Ub4cDb1x7cC3JiqMRXq2TwjwNM2yCGrZkYOl0StciSK4X6 +rVcXtl4Ww8+BtK8iXqUwazrR8oIljnRxE9PqnlJIKggvmjUVx6yTB8q2fykF +5kKeeFVbcWRyuYJjI6Ww5ZHgunO+4ujyVyJCcLYUMjbQbm9JFMfoc/yqQUu5 +YICWac8+iqOga3PdDSUuHDbM3dEcI4ET/BVGPt5csMgR+mV5VgL5zttmxPty +gbHoWHzLRQl8nhzXU7iHC61tjtSbmxIoPG23sj+AC2qBS3h7WiTQPui1lsZR +LgwWhBb8JyWJN1carNVN4YLbSquRVbcl8diauqxvdVzQPlodnV0jiXcHGgJu +NXBBsG+NGP2xJJo9+S6/5zEXKkt5QbFLEt8trNTvfsYFMcvKJI05SUTPCb7L +b8n/RzN1NllKoc7HvZuiv3Nh44/f4QH9Ungsd6TxrzAFYWapSg+HpbAnM0fH +SpQCTq5qt8ikFL6yrL6ZJU6BhL2nYSX/Kox4fCNbQ5qC4XuPpnjVVqEOe8kj +HQUKUmKSgi4fIb/rmUhz9CjoE1UMaFwqjXkuU/RdThSIH6iVEReXxuXih/yd +t1Owpcn5xV6aNPL8/V632ZWCivAElWXa0vg65Em8zA4Kznz8ObTdWRrNWWUZ +13dRoFVYvftHnjSWpd74tzqYgmiWrZeUgQz2j9QWTZ2nwMwj+z/99TLIWfxy +uOQCBUJR3084bJHBMefpas8UCrIaYguSPGUw9PLmhTWXKLhnUfV94WkZLOF0 +OJpfoeCns3zIeJcMBm43sqwtpOBueOCiFQMy+HkqIc+kiILjWffT1UZlUMlR +5XxVMQVLep2q986Xxcx0S6WbpRSs3n2Wp1dJFnM7e4JdyinwCJ448/yoLErN +pretqqNAIW299FCsLO4X9bnv8/D/8TtfsihJFt1bajfcqqcg/O/a1vX5sthc +6q6s/IiCiyc8RCufy+IeoffBC55S8PzCk6vXZeRwovzoEdE3JN63V2o2rJbD +NNPk42vaKHBp96rv1ZTD+O4oZYN2CgYl/g6sMpVD348ux7Z2UMCbo6GUHCCH +8tv2LbZ5R4ER5/Kd47VyKPLg6P7yPgo2drTMjjbJYXXitcCT/RRY8SzYvOO1 +HB5W9Uu2GaBg57aALvgshyWvF+j0fqbA9Cg9MoqPhtfEf/x7P0jBs2U11wwE +aeiZfWrhxW8U2OQ7Nv0UoqHkDW1NiyEKXF8krPCSoOFHLaH/ir5TECg3eW2d +Mg3lsoc1t45SMHE7qWlGnYYHrxp7jxKHmymPUDo03HoIq87+oCD2oKcew4SG +ZcJP++t+UpDR8LRpvi0NH4xdVl00ToGcs+9IlQMNfcytiy8Q5w/PrTjsQkPH +5NNOkr8oKBXVde3fSUOZwnl6tAkKGndfHWkIoeHnlU7MJVMUmP81FD52lIZn +reIkoohbktr0dKJomJuhazJG3FUpEJV/mobcD9m0Z9Mkv1b5+W6JNHxfc7VH +e4aCgT6T5pUpNBQ8zmm9TDy6OEg4Notc/+aMnftvCg7nCOmzc2n4/Wb+5yri +aZ1C14nrNJT65MMR/UPy49GT71tKQ3fTI1/qiSW4Zvqm9TTs3h7A+/cvBVc2 +9rv+e0ziJ2bkvmGWAkZXRFTFMxru+vT3v1PEqvNvNyu203CTs3Q7/z8Kyi5t +He3pouHAvzbGJmID5UHhtB4alhSwSo8Tr7eXcVs0SMM+ns64b8RPBu9G1Q7T +ULPV/43UHKnPiG3XQ8domNx1yMuc+PWKkWb1SRr2rs/SDCZ2Kjg1+vU3iWdb +5sZs4vdGDJGcOfL+U8zMRmLvlzX6zgvo+KDiu+4g8dedTm7LBeioVpsvKsBT +Bv7TY1FNS+n41I3PeDWx0cFdYl+E6djHOtS2kZh/qLuIV4KOzZPCxjuI33pb +r6PL0FFztPVACPH1dw1vTRh0bPW6dPgMcZC9gb/bajqW+VltziRe/6J4XrgK +Ha/8Gfh+k3i5KT0tTZOOvr2m3reJex5cVCnXo6Pxfa+iKuJifcH618Z0XCbE +bHpAHM497vQT6TikEFFZS2y2dnx4qSkdddXco+4Ti+XtjlG2pKO8YrnMPeIB +qffi5jZ0/PMpJLmUuCzFpmSXAx2DBS9+vEYcteTR+pMudFwszbvwIrF1rGFn +7g462u4qX3iCWPZfyf5aH+LFuX37iYdDGLwf9tKx/V91hgNx1Y9L6b8D6NjI +N6tuRBy/Z7GaRBAdQ8tdr60idvwU2aAbRkeBw60TMyTeTJdfznbH6cg5ZL+m +nbjO8sOJxHg6Ji4/rBlDnNhoK1l8jo4F0gsE7Ynd2I85zckkHpsuPGYQz6iV +di24QseIcxd/VJD10XRD/gAjj45jRwQ8jhFfoqUvwBt0FBM/fMeEWEs4Wv0o +RUfForUyVWQ98iRMNKZX0FG6PEzzMHELr59LRTUdI9Mfaa4l3jexLXbsEcn3 +lR2/E8j6Ngp4IrXsGR2DFt5tNCDm/2rMVWmlo0GbdGQfqYf8Tua73d10rEhX +a1IhPmR7OTD2Ix2p/745vyD1hE+XLrw2QMd5oa8/+BF/qJ7U6Bkl+RLZ1pRF +6lHsalOcPS8DrZdsZr8n9TwgzpY+xM/A0725Z32Iy5Io6vxSBj70Tej8NkmB +dUzG+6fiDOS3MPf7TvpFvK+/1joVBu6+ZJPylPSXGeXlPaoODOQdGxyeIf1q +8opUtLYLA23gYJYD8a9lCkzDHQwU36kQzBkh/WDc0G/jXgbO08ICp2EyH6t3 +TrpEMLAtt5gZT/rlU8u7QvHXGbjary3Sm/TfJ/cfUuduMXBR4ze8QPpzo/pz ++5RSBo7HqLPuf6LggcinjOxKBibfzfu8pJc8/zvB1eUvGHhzvICR8J70x30e +0DfBQN1oQeMFZB6kfdjT9/U3A0cSoxmLyLxItT4cOzLHwMUDjx0WkXmSqB3/ +bFpAHtPa9fPnWimI+UM5LZOVR8NBTZ7W5yRfCXyBLFN5TFIzL/vZQAGrqDjn +0iV5tOP5yG/EpeAdrejqpkx55CsuPzjHIf37UmH2r6vySMuNyqkvIfM0uiBr +W6E8joU9s1tP5qmWc066UI08unlpqqwuoGAtX2pS3Cd53FdoFnEqk+Rrx9Go +EBUmCqq9DC88SUF5W1ikgiYTt6e5xa49QYG9xZHjbbpMvPZmY/CNaAqSdYOP +aQETbwmvEbhynIKlSw4cGbUl50e7yBw4QsGCSu/AXaFMtK/f11W6j4IxYQtP +x3om+joMP7hlQ0GnP6PV7wkTa1zBpsGK1Mvj3xD5nImGgj6JXVsoSAovkrv5 +lommu/3F5swo0Ohb8nFmiInd4xfC1dZREEC9dL8iooDP3y68L6dJwZC1g+uA +jwLukPU77bCMrLezno6HFilia2mBtMsjLgQMqTA0liii1fcWQ2Gyn5vaPDMy +slwRL3T9y2wi+z1B3uTYvVKK2Ns5qa1RwwWNsIY7nqqK+Cyj/dVQGRcifBVF +rO0U0YJHvl4oh+z3TIZfKl9VRKNYtpdkGBfMf4Saf9Zbjfq+luvDFLkwvJP/ +8J3INch38Q9PXB2HfG+Izz9VvxaNri9ddnxFCQi/UEzk/lBC5R/zGk7tLALp ++FIbPT0VzJ12afp4rBDSlQ2Xi+xWxb2Dk6JPim7AU6l1uuMX1DDUz7Jd6NN1 +MJKuT1J/q45m9dPHMsevgRBvXpBXjAZSr1c4z9fMA9loOdZ2RU3k5I/PiG3P +AQEFt4ptTzTR0bMrV9nkCqixJUtD3bVwRCHLVVkrAw71CDdY8Gij5ZerU/xS +afBj/KyDebo2fvph6qTrnwqb1R9nmKvqYIi7xOijuQvwYNz4z1SLDkrlL71s +pnUeAlS0ul/56qJWZ4uIJjMB2KM+bdsF9NAjQTZBQ+sUbGJKbF2ap4e9Mwej +3g+dgDVRZ47U6+uj2uVJr5ll0aDka1ir0K2PLZeDvt7jHAPfB3tO3jlogFXL +Tv7DdUegNqfNZ0zUEN9t0tlbIxUEv27OTanfNUStDAHbyexA2KlQJJCx1QhZ +88UU+kr3wZhSil7ZTyO8Dgv9Y1J2wb38P58m4o0x/iirX+S8N+htCJqySDDG +RrMMv+tR3lD+aXhJzjlj3PQtuxQPeUOZbI++RbIxhmrnuqc6eENxet257Exj +fLab/26ptDfknI013MwxxjuOA61UsRecDlp2If2NMf7r2BVX+8YTXDbKo7Es +C9c+aUx/FuYBs238Qg00FvakZuvs3+EBOb6j7yzkWTgZ4PmEsckDvsRVhrqs +YeEn7aCc5uUecKjZujRMi4Wred82Lyh0hzNWx2TvmbLwutwBW8UPblDl3P5X +5wALa8QfTjy0c4VV+09VqtWxUJTe9bY51BkS53bpJtSzsDHTRytypzPMTzal +vjay8PD0Sd8N1s4wVMFXmNPMQj6HS2rTis5QxXMyXfgNC2eFt9gKdziBS2pU +6ORnFrY9eb9snpETpFeH6T5YzEaju2dGzgg6gqigP7XViY0mvfqOgW12kL8h +IvzndjZucvvhl/fQDrQiEjekuLFxcfF2hwGOHVj95LZ3erExNCDmeNppO4h7 +OzGz05+NlOmioUqwg+m8yPXh0WyUtX8Q+pmzDbqNU94UFLHxbvqhNQnptrAn +OD/LnMPGkH5Pbt4pW5jklPsOc9mo11Fb1hRiC8KMzinNCjZObe7/Cw62YMkv +I32/jo3XxE7GdAvbQk1bgc+bdjaeWXFnQ0WSDVgI3VMN6WRjXtylVG6UDXRu +bp6UeMfGnVb1VfcCbeBX1fd4j142pgQf8PjPxgZUczVKvg2x8e25W4MCwjZQ +070u5OwIG3UEjJsPzif3W2kH6j/ZeKJGw73lszXsOhX8KmiCjVISzbW/bljD +r7q4DPFpNgq7jKhrnLaGmN9pO6t+szF6n4FLnJ81LNcpVHGfZeMN+W9KU5bW +kL2/amJujo0CruaJMarW8D9P2sqO + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07032392767464271}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07032392767464271}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993917901977518*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"5f71d81e-24b1-424e-bef4-278e3a9a7f28"] +}, Open ]], Cell[CellGroupData[{ @@ -2863,14 +7862,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ -3438788b15d6"], + CellChangeTimes->{3.9918488983507824`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913294794877434`*^9}, - CellLabel-> - "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +Cell[BoxData["11.316391721345061`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.99391790201504*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"b9f756db-77a2-4ce2-b120-d16f4ba71941"] }, Open ]], Cell[CellGroupData[{ @@ -2926,177 +7923,161 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ -0e75880d5d98"], + CellChangeTimes->{3.9918488997875195`*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 125, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294796838703`*^9}, - CellLabel-> - "During evaluation of \ -In[172]:=",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 126, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479692892*^9}, - CellLabel-> - "During evaluation of \ -In[172]:=",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.344453946666014`*^-259\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 172, 127, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294797011433`*^9}, +\"", 2, 99, 101, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993917902127513*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +In[99]:=",ExpressionUUID->"32ee59a3-2a4d-4354-9b9b-cc79d39f9043"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.434928651550588`*^-268\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 102, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993917902136554*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"a078cc98-56fa-418b-becb-589f05ff7de8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.678019671329384`*^-277\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 103, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.9939179021430683`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"126e7b3b-5bd0-4047-96c0-49d2f3235665"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479709572*^9}, +during this calculation.\"", 2, 99, 104, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993917902151346*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +In[99]:=",ExpressionUUID->"3c680538-60b8-4ed9-b44b-06e4fb864104"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8Fd8bB3BRomxRtiz3zr0oOxUV1/O0KWsIIbuQypJKsmQpS1FZSmgh +ia/1zqhkqYgWqbQpW2lRkRBll/zm99e83q/XnDnzOnOez3OG6Rlo483Lw8Oz +aB4Pz/+v491PHrCT8o3MOzw1Uxho1HpF+uiG9lhYfOtwxI4MecBlLzyl29PA +xpl/TDRDA0Ksitv42vNA9de2nJ7zHFgyJJU21VYBH6OL1a+dt4CPdywDR9sa +wO93YVvHORcwZvd/GGl7DWB4d+hlqj9MtemfH277AkESZOS9uEho3FSY/yrv +D4wtm7fgWdIZkPtY/d1TfRZm00SDk4IyYOl+t+KFm/hQfXG6U7LWZUjTMa61 +tBNARcWnrfuE8qAjU7t+REwYeTnD3iKLr0NSftQLXpkluGi50mDhXCFInes5 +mX5ZAlsy3DJ504shwdbE6PX4Muxpb6ouKyoF2ZstsrzzJNGCvdZ8cUUplEvY +TugslsS98VbdnjWl8O61K5mqKImpGkWzc82lwLY+RFhvk8SICwUiv3+WQoNF +Dv/LLEm8WLug/KZ6Gcwaj7U8N5TCCcHe4bKiMji47qrbk1hpjL73oWlrajmY +5oqMmiVLYx7WdhdfKAdiYURiy3lprLzpnyZwpRxettpTb/6Txu2nv7y6UVwO +mkFCfN0t0rij16nwSWM59BUcKfgtK4NWwVK7f4+Wg/NSy8HlN2QwsI2rq7eD +C6vCa2Ou3JHBpcJNAQMOXFj0ZYUk85EM+hTr4mVXLlRz+UC5QwYjCPu8IT8u +SJpVp2jPyaAj32k3q2guvIxhr95iJovMyZBc0VIubP41HRbQI4uPpiXzIua4 +cHTbOdX7A7JYt9ifT4+XhPKrGp0S47J4X9VetmQ+CdK27uuqBZbj9d7mw6cF +SRioejjBp7kceatv9+hKkJAem3IoK3Q5ZgeWXeVRJuHLMuWAB8JyGFaTPF1o +QoJUYJ28lJQcJr/ItHpmRoJ5k8NzP4Ycygl0Cg1ZkFAZlqQuukoODTXcqlba +kHDq43C/o4Mc7pyw6o5xIkG3qNb3V54cjvr+PHZrLwkxhtYesmvlccC87p/q +SRK2uV75rb9RHk+ZWjexkkgQif553M5cHi+pb0yQOU3Cpca4ghR3eUzboP59 +JoWEKtOan/wn5fFA+kPNS5kkDDuwQv50yGOSrjzLrJCE22FBC5d8lUcnO0l3 +iSISjl26m6k5JI85bScy2otJEPq0s9aPVwFDa78PO5aToOKbzPNJVQHv5gx7 +rb1FguvhsVPPwhVwz39pCbsbSFC6sFGuP04BlR/Pi/7b+P/1O1u2MEUBg0a6 +Q1IfkhD2d+XLjfkKWMGLHhVNJJw/7rqs+pkCukfZ6b5sIeFZ6uOc6/KK+DjY +XTKik4T15Vk3j9UpovdZkQsXfpGwua1ldqhJEf9AyebaYRIseeZvdXutiENZ +im7vR0jwsgnogG+KWHZ23nvJURKMw5lR0QsY+ExocG7/JAlBiuPXNqgxsHJv ++OYrPBSM3UhpmtJioLwdZyBzHgVh29QGqdUMvLKtlz+Vl4K4A+56hBEDd1Yk +ZxydT0F2Y3MTrzUDeyUOqKoLUPDAN2ewMYSB3lG6MVKiFJj8XSceEc7ApcdK +E3/Qbklp1VsdzUBf/2rBajEKOqoFo/NP0uNPmYVZiVMwtPiQeNwlBr7dV8b0 +WEbBwVwRfc5VBmodk+JVlKRgcnXRrrHrDMyLynPrpM3n2p3vzWWgiPVguok0 +BdLkNn3jBgYKeK8eElxOweXNPbv+PWLgtGz0gxu0iY7I6MqnDAwszlm+S44C +Dd4bT5TfMhByjSzz5CnYaCvvvLCPgfuyHF+LMyjYPzkS3STMRJ4FTxoi2BSs +P+Aj+V2cifLfLUhBJQoE+jtL+KSZGJYuVJVO+3pX4zsjgr5/6rl0jjIF3ffO +q9/SY6IIWaSTvoKCUv1FDa8NmKjvhXyCK+n1JY/tHEYmdlZbj4bTlszzjVUz +Y+LuwTR9R1UKtseta7/qxsTKpVF2I2oUKPwr86/bzUR/27drrNQpGAgh+D74 +MbEjU9KglHbinsWa0oeYyDJh3N6lQYH956jGNUeZ+DXVQotLm+006rDjGBON +M7VezNGuN/tw/EwiE40SexIzNSk488BapvQ0E+PFGfmfaDtzHpU/SWNic/b3 +H0paFExpcjvmX2aiUMPQRCHtpkJWIJHHRPHK3PtfaWcwMudjIRN1re9WKWhT +oCseoxVOMfHzgILuKdo8SWMPMiuZaNPbcauWdgvfXqfKWiYWh//066d9KaL7 +15t6Jgb5iG2X1KFg35hN3MhDJu6X5PcB2usDHsuKPmXibMkprjdtgV4DUv0l +E+snndVP0n7nRm4xfcvEv8cMPxTRzm9nd/l2MnHFgR8Nj2kHW2cFxX1kYgTF +7v5CG5uF+a99ZeKeV1ytGdoim2Iv1v9gIt8SiyoxXQo+1I5rdw8xscS1LpRF +u3T1vkczf5h4yL75wCraYWUfd8lMMbF8g24+0t6mbDui94+JHpJ3xMxoS+Y0 +xdvyEfgmRKPKhvZXKY5csACBApT5xZ20K1Io6qwwgZx7n2ocaUcLKm8tEyfw +wEZK6v/eHpv9vlmKwJak+Ao72gozIsF9cgRapK1M3k574ODxhfwEgcsmvK4b +064ZmLjEUiFw8XyeufW0E733625QJ9C8pClLnbZ996fHrjoEFsWfDFlOm73T +ziVCj0C1NpGMhbR/v3jyO8uAwIQTSlPD9HrUbzNKvI0EUnIXc9ton7lfIf92 +C4HWbzina2k7r1e58duUQNWY93WXaE+piXVr2BGY6Ww+bU97/LJszConAh0t +3eu1aY+KKrHXuRGoHdzVt5D20J91ezf7EVhyn9hdTn//n96bhU0DCORTOFYV +SbuvzZLcfpDAf0Juwaa0v9R6jTtFEvgs6J3Me3q/fdQIyHKPJfBbHY/gVdrv +c0INfRIItLRrd/ei/e746dgDqQTudLtr8f/93Gx2WyTxOoE85vd1a+n9//ju +fep0MYFBCjcj99F+oPXMNp1LYKhinb4M7XsSn7OvVBM43uXydz9dXxVdi1Ru +PScwovJK9xhdn1yLZc01rwnUjNOqTqVdWqfoX99GYIO5r6Aa7YJrq288/Uzg +wivyIvZ0fWfvc4UvYwTeSOCpP61CwYUPe770ThPYGc9wW0b73PaDcYNzBK7Q +zwrLpvPjzKrEp5OCLBwkJ1ZepvMldobaKarAwiU3DGJPsCiI8r8zvZTFws1q +w8snCQoiPj66LLuChYsWvFrrRzuksatHSZeFaeeT5jYx6XpKWhBkaMzC3d2q +HV0KFOyZFZXYaMbC7CNx+Qa0fQJlK7dasdCKNW86k85D9x1af22cWNiZ+9HY +nM5L2+WOiX4BLFRMGo4+L0OBYUlpbkYGC9u6qjg3JCjoYpTkbLnIwkj3D+em +6DwPyyi6MprDQt+MU60c2rdjCi7ZFLHwyL8DYvV0/us65GaK3GHhui71syXC +FKxccC4l/jMLeXas3a64kM6XsLSza76z8LOLdOJmfvr9hlPOfO1nYY3Q4Vu+ +C+j67jqdvHGUhc0GZcOFfBQwKhIS//Gzsbjc758o3c8k3cKjQ9TZOI8sIaLo +fner9WiUkg4b5WNF5o5PkGBrGnqsdQ0bDez138ePk5C25nCELrAxJXryYjzd +L4WFAkOHrNkYdVZ6awDdX+dXewb5HGFj1r9nM929JIyIm7rbN7DxnlhkgNlb +Etr3Ey/3PmYjYTxrOfGGhPpH0xD1jI02J1aO5r4mISWsRPG/d2zUGi1PGXxB +gvYXoY9T/WzcKJqrtb+ZhADqhctlCSXkRrz/NXePhP7tdru+7lbC8cqpz4kF +JLwu0ng66aeE2mn+nr/ySajh4zcQDlTCknORT3ZcI+Hk7UpZvaNK2NX2cLtk +LgkrFKU7E04rYd9Fm12xWST4DnU6qFUq4ZlQDc8J+rz0NdndPnihMubuYr13 +DqTn71cntIWU0VK8eOaqPwkTW6cGB8WUUV7+vPe3fSQs4kuL85NVRsWBtXK+ +e+j3P9p4011DGaNTlDXtPUiI9FaW2L5DGR1P5pM99HlO0mjghVqOMlb3MbIa +VpNg8uuIyTc9FZzt/Xg4oZcLcjoK8QKGKtgT46Lc/4ULQ8EPGtQ2qGBWW6ir +STcXzo2LGQabqWCJ1fLA2VYudM8Wac65qeBJOUU7wwYuBAu9l5A5qYKGti4W +Upe4kL0Su827VNCzXbbRxoILA14CB29GrcCmoAPffArK6f8XKd6EhpW4obCy +x8SoDMSfK58hf6mi0GHjXLeWEpBL5Frp6anjqxtl9/WViiFTbZ2YhK8GNqbM +Zeok/AfNshvW/EnVRMvhpX4TvQWwXq4hReudFs54jTD6mNdBhC/vkEesNlaw +Ga0ZEddAIUbR0FFZB8MDqs9b3bkKgkrOlTaPdXB1m51H7pJc0OTIcI+46CLv +S52kFOXLENwt3mjKswqDCrw4T5Zkw68/yXYmmatwj7WZ+MSuC7BV61G2icZq +vNEaoX65+xzc+2MwM9GyGg8EJPUJuqRBgLpu5yvvNXj8uNdSE70U4AztbnUU +1EObXMWAx6rJsIUtbSGcp4fKsr9iglITYUX0qdAGfX30lVdquOARB6re6+qU +OvUx44U1oW8aC9739py4eWAtnu27cHLz4Sioy23dPbJsHYY+/bN+bWoYjP43 +N6F1ex0aRc8KlHiEgJdSiWC2xXoUfOK9pW06GEZU0/Uqhtejw05+zYL0QKjK +n/k8lmiAcpXvi5QO7wWnzSw0UDDEmufHC53ZPrDcP6Fas94QDQ81llqv8IQz +cz5rkhoM0ahnlnlL1hN404yp3geG2DC3Mogp7An9lQuKcp8Yolu3QNzS3x5Q +w3MiU/yNIVo+WLRk9x0PcDoXfWT8myE6p/JX5dt4QGbt0TX3FnPwcT+nNjnO +HZYt2k9Z7OTgjz/aLB4BV8jfFBk27MhBfXGFjTDkArqRZzalO3NQR8+nPLXV +BSyHybftHhyUq5fDoKsuEP9ubMprPwf7flXySBi6wGRe1MawGA4Gt25u/nrI +GToN0t8UlNDzcQeE/EadYM/h/Esm5RxkM8UPzbx3gvHyW94DJAdFD89U5zx0 +AnGifUKnkoMzZPgt+QtOYCYgL3e3noOPZHpWDa13gjutBbvfvOXgkZ/zr7XF +OYKpSJVGSDsHJ21DH8YGOkL71ifj0l308y9aSYKjI4zW/Ex0/cTBQ1Aj9VPd +ETSuapf96Ofg9XDYK/rWAe50bghJHuSgVkf8y411DmC6dAdoDXOw43m9SEKR +A/gkHH51aIyDnalqfRuOOcBofXy21CQHlyVO+FftcYDY6QteNdMc5Nk9kAs7 +HEBsdZG6yywHDe28Qto4DnDFv2Zsbo4er1PTE7XCAf4H2ypqlQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3110,136 +8091,117 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK +1:eJwV13k8Fd8bB3BRomxRtiz3zr0oOxUV1/O0KWsIIbuQypJKsmQpS1FZSmgh +ia/1zqhkqYgWqbQpW2lRkRBll/zm99e83q/XnDnzOnOez3OG6Rlo483Lw8Oz +aB4Pz/+v491PHrCT8o3MOzw1Uxho1HpF+uiG9lhYfOtwxI4MecBlLzyl29PA +xpl/TDRDA0Ksitv42vNA9de2nJ7zHFgyJJU21VYBH6OL1a+dt4CPdywDR9sa +wO93YVvHORcwZvd/GGl7DWB4d+hlqj9MtemfH277AkESZOS9uEho3FSY/yrv +D4wtm7fgWdIZkPtY/d1TfRZm00SDk4IyYOl+t+KFm/hQfXG6U7LWZUjTMa61 +tBNARcWnrfuE8qAjU7t+REwYeTnD3iKLr0NSftQLXpkluGi50mDhXCFInes5 +mX5ZAlsy3DJ504shwdbE6PX4Muxpb6ouKyoF2ZstsrzzJNGCvdZ8cUUplEvY +TugslsS98VbdnjWl8O61K5mqKImpGkWzc82lwLY+RFhvk8SICwUiv3+WQoNF +Dv/LLEm8WLug/KZ6Gcwaj7U8N5TCCcHe4bKiMji47qrbk1hpjL73oWlrajmY +5oqMmiVLYx7WdhdfKAdiYURiy3lprLzpnyZwpRxettpTb/6Txu2nv7y6UVwO +mkFCfN0t0rij16nwSWM59BUcKfgtK4NWwVK7f4+Wg/NSy8HlN2QwsI2rq7eD +C6vCa2Ou3JHBpcJNAQMOXFj0ZYUk85EM+hTr4mVXLlRz+UC5QwYjCPu8IT8u +SJpVp2jPyaAj32k3q2guvIxhr95iJovMyZBc0VIubP41HRbQI4uPpiXzIua4 +cHTbOdX7A7JYt9ifT4+XhPKrGp0S47J4X9VetmQ+CdK27uuqBZbj9d7mw6cF +SRioejjBp7kceatv9+hKkJAem3IoK3Q5ZgeWXeVRJuHLMuWAB8JyGFaTPF1o +QoJUYJ28lJQcJr/ItHpmRoJ5k8NzP4Ycygl0Cg1ZkFAZlqQuukoODTXcqlba +kHDq43C/o4Mc7pyw6o5xIkG3qNb3V54cjvr+PHZrLwkxhtYesmvlccC87p/q +SRK2uV75rb9RHk+ZWjexkkgQif553M5cHi+pb0yQOU3Cpca4ghR3eUzboP59 +JoWEKtOan/wn5fFA+kPNS5kkDDuwQv50yGOSrjzLrJCE22FBC5d8lUcnO0l3 +iSISjl26m6k5JI85bScy2otJEPq0s9aPVwFDa78PO5aToOKbzPNJVQHv5gx7 +rb1FguvhsVPPwhVwz39pCbsbSFC6sFGuP04BlR/Pi/7b+P/1O1u2MEUBg0a6 +Q1IfkhD2d+XLjfkKWMGLHhVNJJw/7rqs+pkCukfZ6b5sIeFZ6uOc6/KK+DjY +XTKik4T15Vk3j9UpovdZkQsXfpGwua1ldqhJEf9AyebaYRIseeZvdXutiENZ +im7vR0jwsgnogG+KWHZ23nvJURKMw5lR0QsY+ExocG7/JAlBiuPXNqgxsHJv ++OYrPBSM3UhpmtJioLwdZyBzHgVh29QGqdUMvLKtlz+Vl4K4A+56hBEDd1Yk +ZxydT0F2Y3MTrzUDeyUOqKoLUPDAN2ewMYSB3lG6MVKiFJj8XSceEc7ApcdK +E3/Qbklp1VsdzUBf/2rBajEKOqoFo/NP0uNPmYVZiVMwtPiQeNwlBr7dV8b0 +WEbBwVwRfc5VBmodk+JVlKRgcnXRrrHrDMyLynPrpM3n2p3vzWWgiPVguok0 +BdLkNn3jBgYKeK8eElxOweXNPbv+PWLgtGz0gxu0iY7I6MqnDAwszlm+S44C +Dd4bT5TfMhByjSzz5CnYaCvvvLCPgfuyHF+LMyjYPzkS3STMRJ4FTxoi2BSs +P+Aj+V2cifLfLUhBJQoE+jtL+KSZGJYuVJVO+3pX4zsjgr5/6rl0jjIF3ffO +q9/SY6IIWaSTvoKCUv1FDa8NmKjvhXyCK+n1JY/tHEYmdlZbj4bTlszzjVUz +Y+LuwTR9R1UKtseta7/qxsTKpVF2I2oUKPwr86/bzUR/27drrNQpGAgh+D74 +MbEjU9KglHbinsWa0oeYyDJh3N6lQYH956jGNUeZ+DXVQotLm+006rDjGBON +M7VezNGuN/tw/EwiE40SexIzNSk488BapvQ0E+PFGfmfaDtzHpU/SWNic/b3 +H0paFExpcjvmX2aiUMPQRCHtpkJWIJHHRPHK3PtfaWcwMudjIRN1re9WKWhT +oCseoxVOMfHzgILuKdo8SWMPMiuZaNPbcauWdgvfXqfKWiYWh//066d9KaL7 +15t6Jgb5iG2X1KFg35hN3MhDJu6X5PcB2usDHsuKPmXibMkprjdtgV4DUv0l +E+snndVP0n7nRm4xfcvEv8cMPxTRzm9nd/l2MnHFgR8Nj2kHW2cFxX1kYgTF +7v5CG5uF+a99ZeKeV1ytGdoim2Iv1v9gIt8SiyoxXQo+1I5rdw8xscS1LpRF +u3T1vkczf5h4yL75wCraYWUfd8lMMbF8g24+0t6mbDui94+JHpJ3xMxoS+Y0 +xdvyEfgmRKPKhvZXKY5csACBApT5xZ20K1Io6qwwgZx7n2ocaUcLKm8tEyfw +wEZK6v/eHpv9vlmKwJak+Ao72gozIsF9cgRapK1M3k574ODxhfwEgcsmvK4b +064ZmLjEUiFw8XyeufW0E733625QJ9C8pClLnbZ996fHrjoEFsWfDFlOm73T +ziVCj0C1NpGMhbR/v3jyO8uAwIQTSlPD9HrUbzNKvI0EUnIXc9ton7lfIf92 +C4HWbzina2k7r1e58duUQNWY93WXaE+piXVr2BGY6Ww+bU97/LJszConAh0t +3eu1aY+KKrHXuRGoHdzVt5D20J91ezf7EVhyn9hdTn//n96bhU0DCORTOFYV +SbuvzZLcfpDAf0Juwaa0v9R6jTtFEvgs6J3Me3q/fdQIyHKPJfBbHY/gVdrv +c0INfRIItLRrd/ei/e746dgDqQTudLtr8f/93Gx2WyTxOoE85vd1a+n9//ju +fep0MYFBCjcj99F+oPXMNp1LYKhinb4M7XsSn7OvVBM43uXydz9dXxVdi1Ru +PScwovJK9xhdn1yLZc01rwnUjNOqTqVdWqfoX99GYIO5r6Aa7YJrq288/Uzg +wivyIvZ0fWfvc4UvYwTeSOCpP61CwYUPe770ThPYGc9wW0b73PaDcYNzBK7Q +zwrLpvPjzKrEp5OCLBwkJ1ZepvMldobaKarAwiU3DGJPsCiI8r8zvZTFws1q +w8snCQoiPj66LLuChYsWvFrrRzuksatHSZeFaeeT5jYx6XpKWhBkaMzC3d2q +HV0KFOyZFZXYaMbC7CNx+Qa0fQJlK7dasdCKNW86k85D9x1af22cWNiZ+9HY +nM5L2+WOiX4BLFRMGo4+L0OBYUlpbkYGC9u6qjg3JCjoYpTkbLnIwkj3D+em +6DwPyyi6MprDQt+MU60c2rdjCi7ZFLHwyL8DYvV0/us65GaK3GHhui71syXC +FKxccC4l/jMLeXas3a64kM6XsLSza76z8LOLdOJmfvr9hlPOfO1nYY3Q4Vu+ +C+j67jqdvHGUhc0GZcOFfBQwKhIS//Gzsbjc758o3c8k3cKjQ9TZOI8sIaLo +fner9WiUkg4b5WNF5o5PkGBrGnqsdQ0bDez138ePk5C25nCELrAxJXryYjzd +L4WFAkOHrNkYdVZ6awDdX+dXewb5HGFj1r9nM929JIyIm7rbN7DxnlhkgNlb +Etr3Ey/3PmYjYTxrOfGGhPpH0xD1jI02J1aO5r4mISWsRPG/d2zUGi1PGXxB +gvYXoY9T/WzcKJqrtb+ZhADqhctlCSXkRrz/NXePhP7tdru+7lbC8cqpz4kF +JLwu0ng66aeE2mn+nr/ySajh4zcQDlTCknORT3ZcI+Hk7UpZvaNK2NX2cLtk +LgkrFKU7E04rYd9Fm12xWST4DnU6qFUq4ZlQDc8J+rz0NdndPnihMubuYr13 +DqTn71cntIWU0VK8eOaqPwkTW6cGB8WUUV7+vPe3fSQs4kuL85NVRsWBtXK+ +e+j3P9p4011DGaNTlDXtPUiI9FaW2L5DGR1P5pM99HlO0mjghVqOMlb3MbIa +VpNg8uuIyTc9FZzt/Xg4oZcLcjoK8QKGKtgT46Lc/4ULQ8EPGtQ2qGBWW6ir +STcXzo2LGQabqWCJ1fLA2VYudM8Wac65qeBJOUU7wwYuBAu9l5A5qYKGti4W +Upe4kL0Su827VNCzXbbRxoILA14CB29GrcCmoAPffArK6f8XKd6EhpW4obCy +x8SoDMSfK58hf6mi0GHjXLeWEpBL5Frp6anjqxtl9/WViiFTbZ2YhK8GNqbM +Zeok/AfNshvW/EnVRMvhpX4TvQWwXq4hReudFs54jTD6mNdBhC/vkEesNlaw +Ga0ZEddAIUbR0FFZB8MDqs9b3bkKgkrOlTaPdXB1m51H7pJc0OTIcI+46CLv +S52kFOXLENwt3mjKswqDCrw4T5Zkw68/yXYmmatwj7WZ+MSuC7BV61G2icZq +vNEaoX65+xzc+2MwM9GyGg8EJPUJuqRBgLpu5yvvNXj8uNdSE70U4AztbnUU +1EObXMWAx6rJsIUtbSGcp4fKsr9iglITYUX0qdAGfX30lVdquOARB6re6+qU +OvUx44U1oW8aC9739py4eWAtnu27cHLz4Sioy23dPbJsHYY+/bN+bWoYjP43 +N6F1ex0aRc8KlHiEgJdSiWC2xXoUfOK9pW06GEZU0/Uqhtejw05+zYL0QKjK +n/k8lmiAcpXvi5QO7wWnzSw0UDDEmufHC53ZPrDcP6Fas94QDQ81llqv8IQz +cz5rkhoM0ahnlnlL1hN404yp3geG2DC3Mogp7An9lQuKcp8Yolu3QNzS3x5Q +w3MiU/yNIVo+WLRk9x0PcDoXfWT8myE6p/JX5dt4QGbt0TX3FnPwcT+nNjnO +HZYt2k9Z7OTgjz/aLB4BV8jfFBk27MhBfXGFjTDkArqRZzalO3NQR8+nPLXV +BSyHybftHhyUq5fDoKsuEP9ubMprPwf7flXySBi6wGRe1MawGA4Gt25u/nrI +GToN0t8UlNDzcQeE/EadYM/h/Esm5RxkM8UPzbx3gvHyW94DJAdFD89U5zx0 +AnGifUKnkoMzZPgt+QtOYCYgL3e3noOPZHpWDa13gjutBbvfvOXgkZ/zr7XF +OYKpSJVGSDsHJ21DH8YGOkL71ifj0l308y9aSYKjI4zW/Ex0/cTBQ1Aj9VPd +ETSuapf96Ofg9XDYK/rWAe50bghJHuSgVkf8y411DmC6dAdoDXOw43m9SEKR +A/gkHH51aIyDnalqfRuOOcBofXy21CQHlyVO+FftcYDY6QteNdMc5Nk9kAs7 +HEBsdZG6yywHDe28Qto4DnDFv2Zsbo4er1PTE7XCAf4H2ypqlQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.0671745377774124}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -3251,19 +8213,19 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.0671745377774124}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3277,135 +8239,116 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK +1:eJwV13k8Fd8bB3BRomxRtiz3zr0oOxUV1/O0KWsIIbuQypJKsmQpS1FZSmgh +ia/1zqhkqYgWqbQpW2lRkRBll/zm99e83q/XnDnzOnOez3OG6Rlo483Lw8Oz +aB4Pz/+v491PHrCT8o3MOzw1Uxho1HpF+uiG9lhYfOtwxI4MecBlLzyl29PA +xpl/TDRDA0Ksitv42vNA9de2nJ7zHFgyJJU21VYBH6OL1a+dt4CPdywDR9sa +wO93YVvHORcwZvd/GGl7DWB4d+hlqj9MtemfH277AkESZOS9uEho3FSY/yrv +D4wtm7fgWdIZkPtY/d1TfRZm00SDk4IyYOl+t+KFm/hQfXG6U7LWZUjTMa61 +tBNARcWnrfuE8qAjU7t+REwYeTnD3iKLr0NSftQLXpkluGi50mDhXCFInes5 +mX5ZAlsy3DJ504shwdbE6PX4Muxpb6ouKyoF2ZstsrzzJNGCvdZ8cUUplEvY +TugslsS98VbdnjWl8O61K5mqKImpGkWzc82lwLY+RFhvk8SICwUiv3+WQoNF +Dv/LLEm8WLug/KZ6Gcwaj7U8N5TCCcHe4bKiMji47qrbk1hpjL73oWlrajmY +5oqMmiVLYx7WdhdfKAdiYURiy3lprLzpnyZwpRxettpTb/6Txu2nv7y6UVwO +mkFCfN0t0rij16nwSWM59BUcKfgtK4NWwVK7f4+Wg/NSy8HlN2QwsI2rq7eD +C6vCa2Ou3JHBpcJNAQMOXFj0ZYUk85EM+hTr4mVXLlRz+UC5QwYjCPu8IT8u +SJpVp2jPyaAj32k3q2guvIxhr95iJovMyZBc0VIubP41HRbQI4uPpiXzIua4 +cHTbOdX7A7JYt9ifT4+XhPKrGp0S47J4X9VetmQ+CdK27uuqBZbj9d7mw6cF +SRioejjBp7kceatv9+hKkJAem3IoK3Q5ZgeWXeVRJuHLMuWAB8JyGFaTPF1o +QoJUYJ28lJQcJr/ItHpmRoJ5k8NzP4Ycygl0Cg1ZkFAZlqQuukoODTXcqlba +kHDq43C/o4Mc7pyw6o5xIkG3qNb3V54cjvr+PHZrLwkxhtYesmvlccC87p/q +SRK2uV75rb9RHk+ZWjexkkgQif553M5cHi+pb0yQOU3Cpca4ghR3eUzboP59 +JoWEKtOan/wn5fFA+kPNS5kkDDuwQv50yGOSrjzLrJCE22FBC5d8lUcnO0l3 +iSISjl26m6k5JI85bScy2otJEPq0s9aPVwFDa78PO5aToOKbzPNJVQHv5gx7 +rb1FguvhsVPPwhVwz39pCbsbSFC6sFGuP04BlR/Pi/7b+P/1O1u2MEUBg0a6 +Q1IfkhD2d+XLjfkKWMGLHhVNJJw/7rqs+pkCukfZ6b5sIeFZ6uOc6/KK+DjY +XTKik4T15Vk3j9UpovdZkQsXfpGwua1ldqhJEf9AyebaYRIseeZvdXutiENZ +im7vR0jwsgnogG+KWHZ23nvJURKMw5lR0QsY+ExocG7/JAlBiuPXNqgxsHJv ++OYrPBSM3UhpmtJioLwdZyBzHgVh29QGqdUMvLKtlz+Vl4K4A+56hBEDd1Yk +ZxydT0F2Y3MTrzUDeyUOqKoLUPDAN2ewMYSB3lG6MVKiFJj8XSceEc7ApcdK +E3/Qbklp1VsdzUBf/2rBajEKOqoFo/NP0uNPmYVZiVMwtPiQeNwlBr7dV8b0 +WEbBwVwRfc5VBmodk+JVlKRgcnXRrrHrDMyLynPrpM3n2p3vzWWgiPVguok0 +BdLkNn3jBgYKeK8eElxOweXNPbv+PWLgtGz0gxu0iY7I6MqnDAwszlm+S44C +Dd4bT5TfMhByjSzz5CnYaCvvvLCPgfuyHF+LMyjYPzkS3STMRJ4FTxoi2BSs +P+Aj+V2cifLfLUhBJQoE+jtL+KSZGJYuVJVO+3pX4zsjgr5/6rl0jjIF3ffO +q9/SY6IIWaSTvoKCUv1FDa8NmKjvhXyCK+n1JY/tHEYmdlZbj4bTlszzjVUz +Y+LuwTR9R1UKtseta7/qxsTKpVF2I2oUKPwr86/bzUR/27drrNQpGAgh+D74 +MbEjU9KglHbinsWa0oeYyDJh3N6lQYH956jGNUeZ+DXVQotLm+006rDjGBON +M7VezNGuN/tw/EwiE40SexIzNSk488BapvQ0E+PFGfmfaDtzHpU/SWNic/b3 +H0paFExpcjvmX2aiUMPQRCHtpkJWIJHHRPHK3PtfaWcwMudjIRN1re9WKWhT +oCseoxVOMfHzgILuKdo8SWMPMiuZaNPbcauWdgvfXqfKWiYWh//066d9KaL7 +15t6Jgb5iG2X1KFg35hN3MhDJu6X5PcB2usDHsuKPmXibMkprjdtgV4DUv0l +E+snndVP0n7nRm4xfcvEv8cMPxTRzm9nd/l2MnHFgR8Nj2kHW2cFxX1kYgTF +7v5CG5uF+a99ZeKeV1ytGdoim2Iv1v9gIt8SiyoxXQo+1I5rdw8xscS1LpRF +u3T1vkczf5h4yL75wCraYWUfd8lMMbF8g24+0t6mbDui94+JHpJ3xMxoS+Y0 +xdvyEfgmRKPKhvZXKY5csACBApT5xZ20K1Io6qwwgZx7n2ocaUcLKm8tEyfw +wEZK6v/eHpv9vlmKwJak+Ao72gozIsF9cgRapK1M3k574ODxhfwEgcsmvK4b +064ZmLjEUiFw8XyeufW0E733625QJ9C8pClLnbZ996fHrjoEFsWfDFlOm73T +ziVCj0C1NpGMhbR/v3jyO8uAwIQTSlPD9HrUbzNKvI0EUnIXc9ton7lfIf92 +C4HWbzina2k7r1e58duUQNWY93WXaE+piXVr2BGY6Ww+bU97/LJszConAh0t +3eu1aY+KKrHXuRGoHdzVt5D20J91ezf7EVhyn9hdTn//n96bhU0DCORTOFYV +SbuvzZLcfpDAf0Juwaa0v9R6jTtFEvgs6J3Me3q/fdQIyHKPJfBbHY/gVdrv +c0INfRIItLRrd/ei/e746dgDqQTudLtr8f/93Gx2WyTxOoE85vd1a+n9//ju +fep0MYFBCjcj99F+oPXMNp1LYKhinb4M7XsSn7OvVBM43uXydz9dXxVdi1Ru +PScwovJK9xhdn1yLZc01rwnUjNOqTqVdWqfoX99GYIO5r6Aa7YJrq288/Uzg +wivyIvZ0fWfvc4UvYwTeSOCpP61CwYUPe770ThPYGc9wW0b73PaDcYNzBK7Q +zwrLpvPjzKrEp5OCLBwkJ1ZepvMldobaKarAwiU3DGJPsCiI8r8zvZTFws1q +w8snCQoiPj66LLuChYsWvFrrRzuksatHSZeFaeeT5jYx6XpKWhBkaMzC3d2q +HV0KFOyZFZXYaMbC7CNx+Qa0fQJlK7dasdCKNW86k85D9x1af22cWNiZ+9HY +nM5L2+WOiX4BLFRMGo4+L0OBYUlpbkYGC9u6qjg3JCjoYpTkbLnIwkj3D+em +6DwPyyi6MprDQt+MU60c2rdjCi7ZFLHwyL8DYvV0/us65GaK3GHhui71syXC +FKxccC4l/jMLeXas3a64kM6XsLSza76z8LOLdOJmfvr9hlPOfO1nYY3Q4Vu+ +C+j67jqdvHGUhc0GZcOFfBQwKhIS//Gzsbjc758o3c8k3cKjQ9TZOI8sIaLo +fner9WiUkg4b5WNF5o5PkGBrGnqsdQ0bDez138ePk5C25nCELrAxJXryYjzd +L4WFAkOHrNkYdVZ6awDdX+dXewb5HGFj1r9nM929JIyIm7rbN7DxnlhkgNlb +Etr3Ey/3PmYjYTxrOfGGhPpH0xD1jI02J1aO5r4mISWsRPG/d2zUGi1PGXxB +gvYXoY9T/WzcKJqrtb+ZhADqhctlCSXkRrz/NXePhP7tdru+7lbC8cqpz4kF +JLwu0ng66aeE2mn+nr/ySajh4zcQDlTCknORT3ZcI+Hk7UpZvaNK2NX2cLtk +LgkrFKU7E04rYd9Fm12xWST4DnU6qFUq4ZlQDc8J+rz0NdndPnihMubuYr13 +DqTn71cntIWU0VK8eOaqPwkTW6cGB8WUUV7+vPe3fSQs4kuL85NVRsWBtXK+ +e+j3P9p4011DGaNTlDXtPUiI9FaW2L5DGR1P5pM99HlO0mjghVqOMlb3MbIa +VpNg8uuIyTc9FZzt/Xg4oZcLcjoK8QKGKtgT46Lc/4ULQ8EPGtQ2qGBWW6ir +STcXzo2LGQabqWCJ1fLA2VYudM8Wac65qeBJOUU7wwYuBAu9l5A5qYKGti4W +Upe4kL0Su827VNCzXbbRxoILA14CB29GrcCmoAPffArK6f8XKd6EhpW4obCy +x8SoDMSfK58hf6mi0GHjXLeWEpBL5Frp6anjqxtl9/WViiFTbZ2YhK8GNqbM +Zeok/AfNshvW/EnVRMvhpX4TvQWwXq4hReudFs54jTD6mNdBhC/vkEesNlaw +Ga0ZEddAIUbR0FFZB8MDqs9b3bkKgkrOlTaPdXB1m51H7pJc0OTIcI+46CLv +S52kFOXLENwt3mjKswqDCrw4T5Zkw68/yXYmmatwj7WZ+MSuC7BV61G2icZq +vNEaoX65+xzc+2MwM9GyGg8EJPUJuqRBgLpu5yvvNXj8uNdSE70U4AztbnUU +1EObXMWAx6rJsIUtbSGcp4fKsr9iglITYUX0qdAGfX30lVdquOARB6re6+qU +OvUx44U1oW8aC9739py4eWAtnu27cHLz4Sioy23dPbJsHYY+/bN+bWoYjP43 +N6F1ex0aRc8KlHiEgJdSiWC2xXoUfOK9pW06GEZU0/Uqhtejw05+zYL0QKjK +n/k8lmiAcpXvi5QO7wWnzSw0UDDEmufHC53ZPrDcP6Fas94QDQ81llqv8IQz +cz5rkhoM0ahnlnlL1hN404yp3geG2DC3Mogp7An9lQuKcp8Yolu3QNzS3x5Q +w3MiU/yNIVo+WLRk9x0PcDoXfWT8myE6p/JX5dt4QGbt0TX3FnPwcT+nNjnO +HZYt2k9Z7OTgjz/aLB4BV8jfFBk27MhBfXGFjTDkArqRZzalO3NQR8+nPLXV +BSyHybftHhyUq5fDoKsuEP9ubMprPwf7flXySBi6wGRe1MawGA4Gt25u/nrI +GToN0t8UlNDzcQeE/EadYM/h/Esm5RxkM8UPzbx3gvHyW94DJAdFD89U5zx0 +AnGifUKnkoMzZPgt+QtOYCYgL3e3noOPZHpWDa13gjutBbvfvOXgkZ/zr7XF +OYKpSJVGSDsHJ21DH8YGOkL71ifj0l308y9aSYKjI4zW/Ex0/cTBQ1Aj9VPd +ETSuapf96Ofg9XDYK/rWAe50bghJHuSgVkf8y411DmC6dAdoDXOw43m9SEKR +A/gkHH51aIyDnalqfRuOOcBofXy21CQHlyVO+FftcYDY6QteNdMc5Nk9kAs7 +HEBsdZG6yywHDe28Qto4DnDFv2Zsbo4er1PTE7XCAf4H2ypqlQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.0671745377774124}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3416,6 +8359,7 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3443,7 +8387,8 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0671745377774124}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3451,9 +8396,8 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913298974454536`*^9}, - CellLabel-> - "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] + CellChangeTimes->{3.9913298974454536`*^9, 3.9939184114643803`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"2d596463-2fdc-4945-b07f-21cccda5bb8f"] }, Open ]], Cell[CellGroupData[{ @@ -3506,66 +8450,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + "In[100]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 173, 129, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298974999084`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.674027049605898`*^-160\\\", \ +\\\"16424312045547973917068250855478962797836184904556443340043143969743430318\ +444318157938322185531163516963194464925547245426704384000000000000000000000000\ +00\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 100, 105, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993918411531415*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +In[100]:=",ExpressionUUID->"8769f155-818b-4bd8-8a84-3c7b32cf8d7e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 130, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897510906*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.12220909992833`*^-163\\\", \ +\\\"55251385721223384257017595877831230851920926018927875395905136314216899591\ +246686283304515832126834071064186180009540933615433547776000000000000000000000\ +00000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 100, 106, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.9939184115402117`*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +In[100]:=",ExpressionUUID->"a0bc7b5a-c745-4a70-acb3-18da4dbc0259"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 131, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298975189075`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4665897454365333`*^-165\\\", \ +\\\"19233007369557860059867825125073051459553674347188793425314577950978902747\ +712971495218301961163350940137443209261321198991532417980825600000000000000000\ +000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 100, 107, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.9939184115484457`*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +In[100]:=",ExpressionUUID->"21911b70-487a-4885-a03a-4be240a70142"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897526905*^9}, +during this calculation.\"", 2, 100, 108, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993918411558196*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +In[100]:=",ExpressionUUID->"ed096766-7d11-4a31-9a35-b195bae31145"], -Cell[BoxData["9.77956849963325`"], "Output", - CellChangeTimes->{3.991329904262455*^9}, +Cell[BoxData["11.3132249223015`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.993918460535096*^9}, CellLabel-> - "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] + "Out[100]=",ExpressionUUID->"5d3b2361-cab4-4888-bd69-8268759b06d4"] }, Open ]], Cell[CellGroupData[{ @@ -3632,68 +8580,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489049186344`*^9, - 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ -a57fd4094f56"], + CellChangeTimes->{{3.9918489049186344`*^9, 3.991848908595253*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.72909595660229`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 101, 109, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993918460576356*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"2db40896-c8b4-4479-a4dd-352628cc4d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.357131111523103`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 101, 110, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.9939184605837917`*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"7ac74fa9-ec88-4c5b-8a97-65028db942ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.518047339664569`*^-235\\\", \ \\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ 31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904300501*^9}, +machine number; precision may be lost.\"", 2, 101, 111, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.9939184605929832`*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 134, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904310505*^9}, - CellLabel-> - "During evaluation of \ -In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 135, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043185062`*^9}, - CellLabel-> - "During evaluation of \ -In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +In[101]:=",ExpressionUUID->"7b511d14-ea1f-43fa-904c-085228bd34c6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043256874`*^9}, +during this calculation.\"", 2, 101, 112, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993918460601696*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +In[101]:=",ExpressionUUID->"832635ba-c383-43ba-8b9a-b01bcddce026"], -Cell[BoxData["0.1491428555515254`"], "Output", - CellChangeTimes->{3.9913299110465336`*^9}, +Cell[BoxData["0.08161010551425017`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.993918467387313*^9}, CellLabel-> - "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] + "Out[101]=",ExpressionUUID->"3f31a6d5-d08a-4141-816b-51afd3dc98ad"] }, Open ]], Cell[CellGroupData[{ @@ -3714,8 +8666,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3760,68 +8711,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489121661835`*^9, - 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ -47c1a485c608"], + CellChangeTimes->{{3.9918489121661835`*^9, 3.9918489145264854`*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.72909595660229`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 113, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.9939184674314137`*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"077be6d7-c0d1-4fa6-8601-cb063e49aac5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.357131111523103`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 102, 114, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993918467437768*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"7cbfe22f-a7e0-4786-baed-77523e4ba6df"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.518047339664569`*^-235\\\", \ \\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ 31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911081766*^9}, +machine number; precision may be lost.\"", 2, 102, 115, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.9939184674464283`*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 138, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911090769*^9}, - CellLabel-> - "During evaluation of \ -In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 139, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911098768*^9}, - CellLabel-> - "During evaluation of \ -In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +In[102]:=",ExpressionUUID->"36be4d3b-a54a-47be-bddd-4243fdcce198"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299111067944`*^9}, +during this calculation.\"", 2, 102, 116, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993918467454698*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +In[102]:=",ExpressionUUID->"07329170-a31f-4988-9549-44681ea31336"], -Cell[BoxData["6.5928699937564845`"], "Output", - CellChangeTimes->{3.9913299163114815`*^9}, +Cell[BoxData["31.927334565156308`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.993918474080162*^9}, CellLabel-> - "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] + "Out[102]=",ExpressionUUID->"8c6fab83-6b42-486b-ad35-c09210a186e5"] }, Open ]], Cell[CellGroupData[{ @@ -3842,8 +8797,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3888,68 +8842,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489192162857`*^9, - 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ -0d79e6ed8953"], + CellChangeTimes->{{3.9918489192162857`*^9, 3.991848922582632*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.72909595660229`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 117, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.9939184741252937`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"e1cd2ae7-e57d-49c1-a5ee-0157e62b16e8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.357131111523103`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 103, 118, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993918474132558*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"516d7d5a-1256-4d8d-bb5b-645987c659bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.518047339664569`*^-235\\\", \ \\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ 31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163444805`*^9}, +machine number; precision may be lost.\"", 2, 103, 119, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993918474138682*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 142, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916354479*^9}, - CellLabel-> - "During evaluation of \ -In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 143, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163634796`*^9}, - CellLabel-> - "During evaluation of \ -In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +In[103]:=",ExpressionUUID->"ec1ee42f-9fae-4e1c-9944-3342f5edfa9a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916371479*^9}, +during this calculation.\"", 2, 103, 120, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993918474145031*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +In[103]:=",ExpressionUUID->"d8fd69c3-04f6-458a-9bad-c733b632ffb1"], -Cell[BoxData["16.916908616104454`"], "Output", - CellChangeTimes->{3.9913299193276234`*^9}, +Cell[BoxData["5.208423374387423`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.993918478086742*^9}, CellLabel-> - "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] + "Out[103]=",ExpressionUUID->"a1f79fd3-4de6-414a-9ce6-f369b9713296"] }, Open ]], Cell[CellGroupData[{ @@ -3958,22 +8916,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991848926103155*^9, - 3.9918489295815735`*^9}},ExpressionUUID->"8c5df121-e0b9-a146-bc34-\ -b231aa8028b9"], - -Cell[BoxData["0.01412227604937243`"], "Output", - CellChangeTimes->{3.99132991935894*^9}, + CellChangeTimes->{{3.991848926103155*^9, 3.9918489295815735`*^9}}, CellLabel-> - "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] + "In[104]:=",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], + +Cell[BoxData["0.006328626538966958`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.9939184781270533`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"82050512-592b-4733-a621-a3e42a8ec362"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9}, - 3.991924914130762*^9},ExpressionUUID->"831a27fc-89ff-e041-97f1-\ -0ec5d19a7879"], + 3.991924914130762*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ @@ -3996,12 +8955,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + "In[106]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.9913299193849545`*^9}, +Cell[BoxData["8.558724821385`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.993918478145413*^9}, CellLabel-> - "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] + "Out[106]=",ExpressionUUID->"1dc2670f-ad06-493d-8818-8fdf5658dad1"] }, Open ]], Cell[CellGroupData[{ @@ -4011,12 +8970,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + "In[107]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913299194207077`*^9}, +Cell[BoxData["1.8002205359855907`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.9939184781583643`*^9}, CellLabel-> - "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] + "Out[107]=",ExpressionUUID->"05da9fd9-94a2-4431-9c12-e884903bb39c"] }, Open ]], Cell[CellGroupData[{ @@ -4026,12 +8985,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + "In[108]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.9913299194738407`*^9}, +Cell[BoxData["15.407592185306886`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.993918478168562*^9}, CellLabel-> - "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] + "Out[108]=",ExpressionUUID->"4a78e923-4710-4d28-b59c-50c99f4be94f"] }, Open ]], Cell[CellGroupData[{ @@ -4221,12 +9180,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + "In[109]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[BoxData["0.04472011299838893`"], "Output", - CellChangeTimes->{3.991329919501911*^9}, +Cell[BoxData["0.007032821883843327`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.9939184781814737`*^9}, CellLabel-> - "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] + "Out[109]=",ExpressionUUID->"1a8e1870-abd9-46d7-b3c6-9ab5ce12a5c7"] }, Open ]], Cell[CellGroupData[{ @@ -4240,12 +9199,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + "In[110]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329919596855*^9}, +Cell[BoxData["10.567691619896094`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.993918478281786*^9}, CellLabel-> - "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] + "Out[110]=",ExpressionUUID->"470815dc-ab78-48d0-a845-c73e96a69471"] }, Open ]], Cell[CellGroupData[{ @@ -4437,12 +9396,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + "In[111]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[BoxData["0.014190600885170185`"], "Output", - CellChangeTimes->{3.9913299196126003`*^9}, +Cell[BoxData["0.05654235734511805`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.993918478292934*^9}, CellLabel-> - "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] + "Out[111]=",ExpressionUUID->"1f0df0a1-60e7-41bd-be53-0597f2b793b5"] }, Open ]], Cell[CellGroupData[{ @@ -4456,12 +9415,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + "In[112]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[BoxData["7.439513700547701`"], "Output", - CellChangeTimes->{3.9913299197036095`*^9}, +Cell[BoxData["3.7269879206562573`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.99391847840514*^9}, CellLabel-> - "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] + "Out[112]=",ExpressionUUID->"4deb0a03-0087-47f1-9e97-07f54e8bf32d"] }, Open ]], Cell[CellGroupData[{ @@ -4554,12 +9513,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + "In[113]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913299197165985`*^9}, +Cell[BoxData["0.11820585579367623`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.9939184784168167`*^9}, CellLabel-> - "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] + "Out[113]=",ExpressionUUID->"0b229487-2e5e-4a95-acbe-c7e2a7a63308"] }, Open ]], Cell[CellGroupData[{ @@ -4649,12 +9608,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + "In[114]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991329919739599*^9}, +Cell[BoxData["0.8817941442063238`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.99391847842881*^9}, CellLabel-> - "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] + "Out[114]=",ExpressionUUID->"993d1f82-2fe2-4d5f-835c-7ff804a2118c"] }, Open ]], Cell[CellGroupData[{ @@ -4777,12 +9736,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + "In[115]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913299197646008`*^9}, +Cell[BoxData["0.10423323144976085`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.993918478443578*^9}, CellLabel-> - "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] + "Out[115]=",ExpressionUUID->"97004fcf-8fd0-4b49-9844-c9ceb233cdb4"] }, Open ]], Cell[CellGroupData[{ @@ -4844,68 +9803,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848964116934*^9},ExpressionUUID->"220bdeed-2e17-e94c-a7b0-\ -3e066daf15d7"], + CellChangeTimes->{3.991848964116934*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 145, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919788595*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.505522336022791`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 116, 121, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993918478458479*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +In[116]:=",ExpressionUUID->"ed48c75d-d07f-4f8c-ad8f-608f989baba4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 146, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299197985992`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.799857274926327`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 116, 122, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993918478467815*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +In[116]:=",ExpressionUUID->"c1684417-8373-479a-b130-0e307518ab22"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 192, 147, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299198065968`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.190034736271784`*^-244\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 116, 123, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.9939184784763803`*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +In[116]:=",ExpressionUUID->"7b01ce1f-722e-43fb-83f1-bb55983ac0ac"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919814598*^9}, +during this calculation.\"", 2, 116, 124, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993918478484177*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +In[116]:=",ExpressionUUID->"dea87ea1-a815-4aa6-a111-dd623bc00e3a"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329923627493*^9}, +Cell[BoxData["10.567691619896095`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.993918482051531*^9}, CellLabel-> - "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] + "Out[116]=",ExpressionUUID->"be9cceb2-d1d9-4611-867f-47200379d2a0"] }, Open ]], Cell[CellGroupData[{ @@ -4967,68 +9929,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918489685110855`*^9},ExpressionUUID->"b8791a07-33fe-8c4f-9c59-\ -dd23af9a4471"], + CellChangeTimes->{3.9918489685110855`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 149, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236609*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.505522336022791`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 117, 125, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9939184821035557`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +In[117]:=",ExpressionUUID->"e09e5dd5-2beb-45fd-971b-f69096f4ceb9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 150, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329923669897*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.799857274926327`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 126, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9939184821130667`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +In[117]:=",ExpressionUUID->"9bead4ad-f3f7-49bf-82c6-b6c01a08139e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 193, 151, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236779003`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.190034736271784`*^-244\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 127, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.993918482119913*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +In[117]:=",ExpressionUUID->"7d969bba-5d90-4afb-b69e-0e59ccc80f0f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236858997`*^9}, +during this calculation.\"", 2, 117, 128, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.993918482127071*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +In[117]:=",ExpressionUUID->"222c1b4f-6a3b-4a23-893d-3b85e5160164"], -Cell[BoxData["7.439513700547696`"], "Output", - CellChangeTimes->{3.9913299274564743`*^9}, +Cell[BoxData["3.7269879206562577`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.99391848561668*^9}, CellLabel-> - "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] + "Out[117]=",ExpressionUUID->"3d812f2b-61db-4da7-980b-ad6cedd54e1a"] }, Open ]], Cell[CellGroupData[{ @@ -5086,93 +10051,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848973885317*^9},ExpressionUUID->"3fe6e7f1-b44a-234f-af77-\ -3cf1fdaf28d9"], + CellChangeTimes->{3.991848973885317*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk4VF0cB3BL1ihL9qWY4Y0SIVte52cvIVSyFmPmksqe1xYJ6UVeS6Ii +spREWVJZkkqIKYpKJGSpLDMTlUR5z/wxz30+z7n3e7/nnPvMUaIEOtG4ODg4 +5vCPfQ1+se2ve70vTBS770kxe1jIhFG6g2JRiRiOqyJsjxbqnSdbNCNpjzcr +DGwH6nNeIZ2niDxjPMR2TUTcEx4LOirm1Klk+9926da4ipeIXHI/kO2G3uAr +K9qvkUX/cxW2pwe7YiKbBlDhpZAXc9iykyT3H+bv0eDKtSNs72HGGIbSR1AR +19HFWeyWlem1ERVjqOhOyz9sv4mXir4bMI4y5YunZ7AZvBbT37QnkZqlhAPb +vGlBrjqLU0jDSLp8GltRtKAzuOkz8uK/Of8F217uxzWG+SxK9jt1+DM2UaQs +qcHPQCSZJ/GfsONU9iYdpTORyWjOhSnsAan+7WEVX1Hkr5ncCWyqm/+R7LR5 +FBgWmDiOzcrnuFobsIDOOiX4fMTmV9YQ+ar9HYmd91gawT5PfWItIvEDxakq +V3/A3nTdNU5z8QcSiY5wHcY22HqGcbzpJ3rf9zZhENtPb4Q+bb6Chj2p+v3Y +3yJOrBFU/Y02bKg7/Qr7VNNaYzX+PygoMru1FzsPDG760ldR4pDAhufsfmWd +FiEVnHB5uVfmKXZFe/ZovBwXeCrXLD1m9/10KCYzjQuuqpLprdgx6t/rqgO4 +YXvIk13N7L63lUhMbR7I+jlTVIs92Dvb8qeEB/Q/+UpUs/vP33NbJ8ELnKSI +mCrsSl37LI1FXthu56xcjt3WEMV5rIkfUnTWP8/H/v6kb+SzuRDIvy+9koAt +ZiskEt0iBNqC/Atx2Fr9FiBsKAxqyTf0Y7D9J+qLtm9bB2Ft5Zlh2EFcdK2/ +hUQg6dfVs1TsSeVbX5N+iIKA98vTpuz1IboEenTEICXDYsgYm+vmlJJ0sBgw +hVZIBuy+OhudKmbE4E++4Zlt2G7mGbUvRsVh99/L52Sxe3xCQqW6JSBE608F +8wULfbienurFLwnenTN809izMxUlNywlwVVM5cAEtmDYeN/OVkmob49pHcC2 +SNyv61UvBRetewZbsRtL9b6XF8rA4YVIxXTs0slf4UZhClCZtDQpj73rQPKH +0CoF4Kmlv5Bg57eJW1VNKcCY6eqNddi6pVslNrkqAl97oj4HdhvlUB2PyUao +1VK6/fE5C80zR//5nLAJ1qYoiZZhix+3uFNnpwyrtOTSjdhTpYJ+Dv7KUPoz +YFAS+/77Xrm5M8rw6+EzrnXYHraeCaqtyqBdNaS+Qsf9toQ7XdQmwcO4xIG3 +2LrT11mxUmTwpfxbkYa933eths2YCuS3Z26b7WYhFH5A++BvFSi5xvdlDFs9 +qVCfKqMK1inpF95ic5TomMU6qkJN8Kuux9hVH9wP1j5SBfPUXXl52LzOlfGy +xX9BqWdhhyn2fQu7N9MUNZgi159M6WKhkn25Q4uxalDTMXQ5FjudMja65rIa +cH7RqArBpp46MaPYpwbKei433LBFmws49pmrA13qA586tr8OQ72JtAWqlqMO +tT9jITnl/+JSJ7ZCWFNKxPdOFmpO+aa2xKUBYV4jA1PYHguu/YSSBqQOmqgP +YF9pI6uZHdKAlhBSUSO2sm/jq59vNWBXzPWBWGz1ykkVonsbkE48OrkGW0FO +kdjkqgWSzneurulgoa1lYULLSBvcBGOLBtpYiEJN+K5hrw1+pZ+SO7DzSFkf +vDy0YdT9EuUuNnfx7er2CG0IdBn9mo09eGV6f1aNNixsF4+wx/43z6tAjaQD +bt3G5EdP8P6m2m5z4dUF0WFxnoLHLHQ1hOxQT98BS8Zx+pqtLNQbjvQTywyB +lHX4qVkjCykdem3veexv0FL9Kp9Xx0K01bu3FCIB1nUfTy+rZCGpmft8UhQz +UJy6IOleykJhOsbvs9QtYKlB3vHrZdx/bqVTfNoSwseX1WWz8X6ahfIV9ljD +cF6F88RZ/P18839UeX43hMap2PfHstBPU+nnbXF74JJRww+fUBYa5uD+OuZt +B0b50derfFkoQD4wI560F1rdbEW8PFjo1pHO1pwkB9BUlnn/aC8LRS3ILG45 +4gh8QldUa83x/4eNlXPHYSfoOeYW5KXHQobumaaTjvug9Pd4gZwaC72SKfBv +09kP91P/ys2Xx+fJtYTm8s0H4Mo+5z1/1uHva1Td1l7YGSyDwxQsuPB50M/y +DZ9zBoGlDJnrM0ykk5NZWTJ6ELIsrWoHe5moYM3CtqwnLjDCbca16T4T3TXV +HExqcIXfPk+NmguYKE8/RXSlwg3mkcRF10Qm6hkqO6OT5g4BK1sWjI4zUb1d +PjnolAfMuuUnvd/PRF+P7+MIoHrCaH1x5pAJE323UvNjmB+CXMpR8/XqTFQ+ +9+5nqN5hME2PygncwEQuV8t8PIW8oDQnPlWfk4nqavcc5k72gh3Mmc9xcwxk +KPdq6d8lL7CMWY7TeY/PrVHfwZdHvAFVaZocpDPQxNqje/PHvYE78+z1Y80M +1Jtu72N9gAJ3OOee9N1ioPMRhWtP9FKAUprpmXCVgZpbVpd8dvtAdp7A9dkc +BlrvAck6jT7gdIJsF5nGQJs2dPTIN/vAYJIX7MPWottJ87b4AKlmyFYD28nY +/cbAIx/o6sitGUvF+fLh3Sef+YBunXfFHmzZ4ZvrOwd84GWpsDs5hYHIh6Ty +PBZ9QBW4Oj4n4/l4McqTdKmglx2m15LAQNcuskLt9aiwN+ddcRH2hr55EykD +KuwKvamSgM2wXOwv30mFoqDLAbuwS7dwcNLNqLBhvk+4/zQDrVsUdRVzpMKp +oJHTzHi8Hud2CBQep8Jz6S8O+qcYyLFDv983kAqyNefPyWO3cBgVagVT4WPo +wCgn9sVQkx2Pw6gQmafRTY9jIHtXa+/JaCpYLW+/7YPdQHZt2JJCBZvA5vqc +WAZKb4o5cv8aFTby+T0VPMlAx7VzDSPKcb+fd/YuxDCQ7Y0aAYMKPB/DD8wh +bMHcqRv3qqjA/eNZcBV2UojD9N07VKBakGMcsWPUyEfrH1NheX3vzYJoBvLP +7T5W+4EKQ34asVZRDLR73ZRxyCgVNDN427djb07iENb+SIW4U+9JCthTITuq +aibxePJppW+RDORtXzhXPUsFSsxLcgm2C09owO1fVFDaYmPLg20dKhtUKUmD +YNYX8uA/DPS48IxNljQNSkJiytuxjenz5AhZGmwliVnVYWupdL8zV6RB8997 +etKwZd5Gmw+p0CB6v6isKfaM0bCk4A4amGn2Zt4KZ6D/uIoe+O6jQfmuTyIF +J/D8NYXy7A7QoPRc95s07ET3iBCdgzRIant5NwY74o7DX6tuNDCIt37qge1N +cGZeoNDA2oAlp4it00WhPg2mgQ3nfHVZGAO9zVRZS8qggWyOdVxnKAPdQsJ+ +nzNp4ED56tuMnTj3ra0qmwa+MiG+1djau9tiDXJp8CvxV0UedjqHz7zdFRq0 +vtSz8Me2Cix6F1FJA7l7rx+KYisonNUzuUWDRy6aknzY37oCs7mrabCX5pew +EsJAxarILr2OBicbooo/Yf8eHm4taaRB/KzGQgv2HVu58hedNGga1R8Jxk79 +xcVzvosGN5welfhhU8qnvV3pNOjK3x53GFtkTaPcRA8NCgI7o+ywjzW5/Lf0 +hgaBXYOJ6tgk9Qvh5Eka6JXPTnwOZqBfb0/2fZmiAc+tDdJj2L1JNK3bn2nA +mFSjvMOOHdOdNpylwYKHws4u7MG8Ps+9CzTgM9XmqMLO4hO1jOIkYJZ0+G04 +dvP8sHsYNwEycqEPArE/DVeEBPAQ0BC8sdUP2/iORRFFgIC8YTM5d+wpr4hl +G1ECymsebjbFFrG1FLMUJ+B37dUFI+yd+mJqSIIAr80bh3SxM4QrnXVkCFh6 +N7e6mT3eOFIjp0TAzonxIjFsoqyyU4JEwB+Fmw7C7PszIkfWqxBw+oSIAj/7 +fYS48Bo1Agpr7679E4THxa39ZrUI6IuOhBnsxj/icVPaBKy2Gb6ewp78Mpoz +qktArv+lMx+xjVqjnvQb4Lyuv9Eg9sSxW4oPgIDek+L83djrXKJ33DMj4OGB +4fgObEPzXbY1FgSwPHdLt2Gny3yMLNtFAPcz/ssPsO+vuZ1RaENAV5pHciP2 +ODP6+kVbAs6b7cu4h23QLvH6nAMB1TrqP2uwKTUfZ5KdCEh7LHjwNva5/Ntc +p/fj9ZlOf1WJ/TFkt1a4C86/dHpjObbwIUnrIDcCBPzmWWXsvN3jnv4eBNi6 +846UsJ/feDL1kBcBulvlRIvYfQRtil0o7PfLH7jCzvsu2eBEJWCG+ag+n503 +Nt5jSxDgayukc5mdR6+esvIjoDNgmX6R3e/eyd/gT8Cbo/8l5LHzi2027DxG +wE3nTudcdv45qS07AgjgN71mdYGdHzFhqhlEQLOR2r4cbCFqjYtaCAHPHB1j +zmPr740NJIXh/c5SfJzNzjfac0YhnAAOgUwy22kq0gVSEQRselBekoV9V2Sy +TjQK78ddGmJ7bLmma20M3s/ljsVMdv6n2DGeWAKaMnrobOu92vNzNY6A+n9i +Wtj+H/tnTIU= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5186,105 +10152,106 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - +1:eJwV1Xk4VF0cB3BL1ihL9qWY4Y0SIVte52cvIVSyFmPmksqe1xYJ6UVeS6Ii +spREWVJZkkqIKYpKJGSpLDMTlUR5z/wxz30+z7n3e7/nnPvMUaIEOtG4ODg4 +5vCPfQ1+se2ve70vTBS770kxe1jIhFG6g2JRiRiOqyJsjxbqnSdbNCNpjzcr +DGwH6nNeIZ2niDxjPMR2TUTcEx4LOirm1Klk+9926da4ipeIXHI/kO2G3uAr +K9qvkUX/cxW2pwe7YiKbBlDhpZAXc9iykyT3H+bv0eDKtSNs72HGGIbSR1AR +19HFWeyWlem1ERVjqOhOyz9sv4mXir4bMI4y5YunZ7AZvBbT37QnkZqlhAPb +vGlBrjqLU0jDSLp8GltRtKAzuOkz8uK/Of8F217uxzWG+SxK9jt1+DM2UaQs +qcHPQCSZJ/GfsONU9iYdpTORyWjOhSnsAan+7WEVX1Hkr5ncCWyqm/+R7LR5 +FBgWmDiOzcrnuFobsIDOOiX4fMTmV9YQ+ar9HYmd91gawT5PfWItIvEDxakq +V3/A3nTdNU5z8QcSiY5wHcY22HqGcbzpJ3rf9zZhENtPb4Q+bb6Chj2p+v3Y +3yJOrBFU/Y02bKg7/Qr7VNNaYzX+PygoMru1FzsPDG760ldR4pDAhufsfmWd +FiEVnHB5uVfmKXZFe/ZovBwXeCrXLD1m9/10KCYzjQuuqpLprdgx6t/rqgO4 +YXvIk13N7L63lUhMbR7I+jlTVIs92Dvb8qeEB/Q/+UpUs/vP33NbJ8ELnKSI +mCrsSl37LI1FXthu56xcjt3WEMV5rIkfUnTWP8/H/v6kb+SzuRDIvy+9koAt +ZiskEt0iBNqC/Atx2Fr9FiBsKAxqyTf0Y7D9J+qLtm9bB2Ft5Zlh2EFcdK2/ +hUQg6dfVs1TsSeVbX5N+iIKA98vTpuz1IboEenTEICXDYsgYm+vmlJJ0sBgw +hVZIBuy+OhudKmbE4E++4Zlt2G7mGbUvRsVh99/L52Sxe3xCQqW6JSBE608F +8wULfbienurFLwnenTN809izMxUlNywlwVVM5cAEtmDYeN/OVkmob49pHcC2 +SNyv61UvBRetewZbsRtL9b6XF8rA4YVIxXTs0slf4UZhClCZtDQpj73rQPKH +0CoF4Kmlv5Bg57eJW1VNKcCY6eqNddi6pVslNrkqAl97oj4HdhvlUB2PyUao +1VK6/fE5C80zR//5nLAJ1qYoiZZhix+3uFNnpwyrtOTSjdhTpYJ+Dv7KUPoz +YFAS+/77Xrm5M8rw6+EzrnXYHraeCaqtyqBdNaS+Qsf9toQ7XdQmwcO4xIG3 +2LrT11mxUmTwpfxbkYa933eths2YCuS3Z26b7WYhFH5A++BvFSi5xvdlDFs9 +qVCfKqMK1inpF95ic5TomMU6qkJN8Kuux9hVH9wP1j5SBfPUXXl52LzOlfGy +xX9BqWdhhyn2fQu7N9MUNZgi159M6WKhkn25Q4uxalDTMXQ5FjudMja65rIa +cH7RqArBpp46MaPYpwbKei433LBFmws49pmrA13qA586tr8OQ72JtAWqlqMO +tT9jITnl/+JSJ7ZCWFNKxPdOFmpO+aa2xKUBYV4jA1PYHguu/YSSBqQOmqgP +YF9pI6uZHdKAlhBSUSO2sm/jq59vNWBXzPWBWGz1ykkVonsbkE48OrkGW0FO +kdjkqgWSzneurulgoa1lYULLSBvcBGOLBtpYiEJN+K5hrw1+pZ+SO7DzSFkf +vDy0YdT9EuUuNnfx7er2CG0IdBn9mo09eGV6f1aNNixsF4+wx/43z6tAjaQD +bt3G5EdP8P6m2m5z4dUF0WFxnoLHLHQ1hOxQT98BS8Zx+pqtLNQbjvQTywyB +lHX4qVkjCykdem3veexv0FL9Kp9Xx0K01bu3FCIB1nUfTy+rZCGpmft8UhQz +UJy6IOleykJhOsbvs9QtYKlB3vHrZdx/bqVTfNoSwseX1WWz8X6ahfIV9ljD +cF6F88RZ/P18839UeX43hMap2PfHstBPU+nnbXF74JJRww+fUBYa5uD+OuZt +B0b50derfFkoQD4wI560F1rdbEW8PFjo1pHO1pwkB9BUlnn/aC8LRS3ILG45 +4gh8QldUa83x/4eNlXPHYSfoOeYW5KXHQobumaaTjvug9Pd4gZwaC72SKfBv +09kP91P/ys2Xx+fJtYTm8s0H4Mo+5z1/1uHva1Td1l7YGSyDwxQsuPB50M/y +DZ9zBoGlDJnrM0ykk5NZWTJ6ELIsrWoHe5moYM3CtqwnLjDCbca16T4T3TXV +HExqcIXfPk+NmguYKE8/RXSlwg3mkcRF10Qm6hkqO6OT5g4BK1sWjI4zUb1d +PjnolAfMuuUnvd/PRF+P7+MIoHrCaH1x5pAJE323UvNjmB+CXMpR8/XqTFQ+ +9+5nqN5hME2PygncwEQuV8t8PIW8oDQnPlWfk4nqavcc5k72gh3Mmc9xcwxk +KPdq6d8lL7CMWY7TeY/PrVHfwZdHvAFVaZocpDPQxNqje/PHvYE78+z1Y80M +1Jtu72N9gAJ3OOee9N1ioPMRhWtP9FKAUprpmXCVgZpbVpd8dvtAdp7A9dkc +BlrvAck6jT7gdIJsF5nGQJs2dPTIN/vAYJIX7MPWottJ87b4AKlmyFYD28nY +/cbAIx/o6sitGUvF+fLh3Sef+YBunXfFHmzZ4ZvrOwd84GWpsDs5hYHIh6Ty +PBZ9QBW4Oj4n4/l4McqTdKmglx2m15LAQNcuskLt9aiwN+ddcRH2hr55EykD +KuwKvamSgM2wXOwv30mFoqDLAbuwS7dwcNLNqLBhvk+4/zQDrVsUdRVzpMKp +oJHTzHi8Hud2CBQep8Jz6S8O+qcYyLFDv983kAqyNefPyWO3cBgVagVT4WPo +wCgn9sVQkx2Pw6gQmafRTY9jIHtXa+/JaCpYLW+/7YPdQHZt2JJCBZvA5vqc +WAZKb4o5cv8aFTby+T0VPMlAx7VzDSPKcb+fd/YuxDCQ7Y0aAYMKPB/DD8wh +bMHcqRv3qqjA/eNZcBV2UojD9N07VKBakGMcsWPUyEfrH1NheX3vzYJoBvLP +7T5W+4EKQ34asVZRDLR73ZRxyCgVNDN427djb07iENb+SIW4U+9JCthTITuq +aibxePJppW+RDORtXzhXPUsFSsxLcgm2C09owO1fVFDaYmPLg20dKhtUKUmD +YNYX8uA/DPS48IxNljQNSkJiytuxjenz5AhZGmwliVnVYWupdL8zV6RB8997 +etKwZd5Gmw+p0CB6v6isKfaM0bCk4A4amGn2Zt4KZ6D/uIoe+O6jQfmuTyIF +J/D8NYXy7A7QoPRc95s07ET3iBCdgzRIant5NwY74o7DX6tuNDCIt37qge1N +cGZeoNDA2oAlp4it00WhPg2mgQ3nfHVZGAO9zVRZS8qggWyOdVxnKAPdQsJ+ +nzNp4ED56tuMnTj3ra0qmwa+MiG+1djau9tiDXJp8CvxV0UedjqHz7zdFRq0 +vtSz8Me2Cix6F1FJA7l7rx+KYisonNUzuUWDRy6aknzY37oCs7mrabCX5pew +EsJAxarILr2OBicbooo/Yf8eHm4taaRB/KzGQgv2HVu58hedNGga1R8Jxk79 +xcVzvosGN5welfhhU8qnvV3pNOjK3x53GFtkTaPcRA8NCgI7o+ywjzW5/Lf0 +hgaBXYOJ6tgk9Qvh5Eka6JXPTnwOZqBfb0/2fZmiAc+tDdJj2L1JNK3bn2nA +mFSjvMOOHdOdNpylwYKHws4u7MG8Ps+9CzTgM9XmqMLO4hO1jOIkYJZ0+G04 +dvP8sHsYNwEycqEPArE/DVeEBPAQ0BC8sdUP2/iORRFFgIC8YTM5d+wpr4hl +G1ECymsebjbFFrG1FLMUJ+B37dUFI+yd+mJqSIIAr80bh3SxM4QrnXVkCFh6 +N7e6mT3eOFIjp0TAzonxIjFsoqyyU4JEwB+Fmw7C7PszIkfWqxBw+oSIAj/7 +fYS48Bo1Agpr7679E4THxa39ZrUI6IuOhBnsxj/icVPaBKy2Gb6ewp78Mpoz +qktArv+lMx+xjVqjnvQb4Lyuv9Eg9sSxW4oPgIDek+L83djrXKJ33DMj4OGB +4fgObEPzXbY1FgSwPHdLt2Gny3yMLNtFAPcz/ssPsO+vuZ1RaENAV5pHciP2 +ODP6+kVbAs6b7cu4h23QLvH6nAMB1TrqP2uwKTUfZ5KdCEh7LHjwNva5/Ntc +p/fj9ZlOf1WJ/TFkt1a4C86/dHpjObbwIUnrIDcCBPzmWWXsvN3jnv4eBNi6 +846UsJ/feDL1kBcBulvlRIvYfQRtil0o7PfLH7jCzvsu2eBEJWCG+ag+n503 +Nt5jSxDgayukc5mdR6+esvIjoDNgmX6R3e/eyd/gT8Cbo/8l5LHzi2027DxG +wE3nTudcdv45qS07AgjgN71mdYGdHzFhqhlEQLOR2r4cbCFqjYtaCAHPHB1j +zmPr740NJIXh/c5SfJzNzjfac0YhnAAOgUwy22kq0gVSEQRselBekoV9V2Sy +TjQK78ddGmJ7bLmma20M3s/ljsVMdv6n2DGeWAKaMnrobOu92vNzNY6A+n9i +Wtj+H/tnTIU= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.9512413711961388, + 1.0507651258928443`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.9512413711961409}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5296,21 +10263,21 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.9512413711961388, + 1.0507651258928443`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.9512413711961409}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5324,103 +10291,104 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - +1:eJwV1Xk4VF0cB3BL1ihL9qWY4Y0SIVte52cvIVSyFmPmksqe1xYJ6UVeS6Ii +spREWVJZkkqIKYpKJGSpLDMTlUR5z/wxz30+z7n3e7/nnPvMUaIEOtG4ODg4 +5vCPfQ1+se2ve70vTBS770kxe1jIhFG6g2JRiRiOqyJsjxbqnSdbNCNpjzcr +DGwH6nNeIZ2niDxjPMR2TUTcEx4LOirm1Klk+9926da4ipeIXHI/kO2G3uAr +K9qvkUX/cxW2pwe7YiKbBlDhpZAXc9iykyT3H+bv0eDKtSNs72HGGIbSR1AR +19HFWeyWlem1ERVjqOhOyz9sv4mXir4bMI4y5YunZ7AZvBbT37QnkZqlhAPb +vGlBrjqLU0jDSLp8GltRtKAzuOkz8uK/Of8F217uxzWG+SxK9jt1+DM2UaQs +qcHPQCSZJ/GfsONU9iYdpTORyWjOhSnsAan+7WEVX1Hkr5ncCWyqm/+R7LR5 +FBgWmDiOzcrnuFobsIDOOiX4fMTmV9YQ+ar9HYmd91gawT5PfWItIvEDxakq +V3/A3nTdNU5z8QcSiY5wHcY22HqGcbzpJ3rf9zZhENtPb4Q+bb6Chj2p+v3Y +3yJOrBFU/Y02bKg7/Qr7VNNaYzX+PygoMru1FzsPDG760ldR4pDAhufsfmWd +FiEVnHB5uVfmKXZFe/ZovBwXeCrXLD1m9/10KCYzjQuuqpLprdgx6t/rqgO4 +YXvIk13N7L63lUhMbR7I+jlTVIs92Dvb8qeEB/Q/+UpUs/vP33NbJ8ELnKSI +mCrsSl37LI1FXthu56xcjt3WEMV5rIkfUnTWP8/H/v6kb+SzuRDIvy+9koAt +ZiskEt0iBNqC/Atx2Fr9FiBsKAxqyTf0Y7D9J+qLtm9bB2Ft5Zlh2EFcdK2/ +hUQg6dfVs1TsSeVbX5N+iIKA98vTpuz1IboEenTEICXDYsgYm+vmlJJ0sBgw +hVZIBuy+OhudKmbE4E++4Zlt2G7mGbUvRsVh99/L52Sxe3xCQqW6JSBE608F +8wULfbienurFLwnenTN809izMxUlNywlwVVM5cAEtmDYeN/OVkmob49pHcC2 +SNyv61UvBRetewZbsRtL9b6XF8rA4YVIxXTs0slf4UZhClCZtDQpj73rQPKH +0CoF4Kmlv5Bg57eJW1VNKcCY6eqNddi6pVslNrkqAl97oj4HdhvlUB2PyUao +1VK6/fE5C80zR//5nLAJ1qYoiZZhix+3uFNnpwyrtOTSjdhTpYJ+Dv7KUPoz +YFAS+/77Xrm5M8rw6+EzrnXYHraeCaqtyqBdNaS+Qsf9toQ7XdQmwcO4xIG3 +2LrT11mxUmTwpfxbkYa933eths2YCuS3Z26b7WYhFH5A++BvFSi5xvdlDFs9 +qVCfKqMK1inpF95ic5TomMU6qkJN8Kuux9hVH9wP1j5SBfPUXXl52LzOlfGy +xX9BqWdhhyn2fQu7N9MUNZgi159M6WKhkn25Q4uxalDTMXQ5FjudMja65rIa +cH7RqArBpp46MaPYpwbKei433LBFmws49pmrA13qA586tr8OQ72JtAWqlqMO +tT9jITnl/+JSJ7ZCWFNKxPdOFmpO+aa2xKUBYV4jA1PYHguu/YSSBqQOmqgP +YF9pI6uZHdKAlhBSUSO2sm/jq59vNWBXzPWBWGz1ykkVonsbkE48OrkGW0FO +kdjkqgWSzneurulgoa1lYULLSBvcBGOLBtpYiEJN+K5hrw1+pZ+SO7DzSFkf +vDy0YdT9EuUuNnfx7er2CG0IdBn9mo09eGV6f1aNNixsF4+wx/43z6tAjaQD +bt3G5EdP8P6m2m5z4dUF0WFxnoLHLHQ1hOxQT98BS8Zx+pqtLNQbjvQTywyB +lHX4qVkjCykdem3veexv0FL9Kp9Xx0K01bu3FCIB1nUfTy+rZCGpmft8UhQz +UJy6IOleykJhOsbvs9QtYKlB3vHrZdx/bqVTfNoSwseX1WWz8X6ahfIV9ljD +cF6F88RZ/P18839UeX43hMap2PfHstBPU+nnbXF74JJRww+fUBYa5uD+OuZt +B0b50derfFkoQD4wI560F1rdbEW8PFjo1pHO1pwkB9BUlnn/aC8LRS3ILG45 +4gh8QldUa83x/4eNlXPHYSfoOeYW5KXHQobumaaTjvug9Pd4gZwaC72SKfBv +09kP91P/ys2Xx+fJtYTm8s0H4Mo+5z1/1uHva1Td1l7YGSyDwxQsuPB50M/y +DZ9zBoGlDJnrM0ykk5NZWTJ6ELIsrWoHe5moYM3CtqwnLjDCbca16T4T3TXV +HExqcIXfPk+NmguYKE8/RXSlwg3mkcRF10Qm6hkqO6OT5g4BK1sWjI4zUb1d +PjnolAfMuuUnvd/PRF+P7+MIoHrCaH1x5pAJE323UvNjmB+CXMpR8/XqTFQ+ +9+5nqN5hME2PygncwEQuV8t8PIW8oDQnPlWfk4nqavcc5k72gh3Mmc9xcwxk +KPdq6d8lL7CMWY7TeY/PrVHfwZdHvAFVaZocpDPQxNqje/PHvYE78+z1Y80M +1Jtu72N9gAJ3OOee9N1ioPMRhWtP9FKAUprpmXCVgZpbVpd8dvtAdp7A9dkc +BlrvAck6jT7gdIJsF5nGQJs2dPTIN/vAYJIX7MPWottJ87b4AKlmyFYD28nY +/cbAIx/o6sitGUvF+fLh3Sef+YBunXfFHmzZ4ZvrOwd84GWpsDs5hYHIh6Ty +PBZ9QBW4Oj4n4/l4McqTdKmglx2m15LAQNcuskLt9aiwN+ddcRH2hr55EykD +KuwKvamSgM2wXOwv30mFoqDLAbuwS7dwcNLNqLBhvk+4/zQDrVsUdRVzpMKp +oJHTzHi8Hud2CBQep8Jz6S8O+qcYyLFDv983kAqyNefPyWO3cBgVagVT4WPo +wCgn9sVQkx2Pw6gQmafRTY9jIHtXa+/JaCpYLW+/7YPdQHZt2JJCBZvA5vqc +WAZKb4o5cv8aFTby+T0VPMlAx7VzDSPKcb+fd/YuxDCQ7Y0aAYMKPB/DD8wh +bMHcqRv3qqjA/eNZcBV2UojD9N07VKBakGMcsWPUyEfrH1NheX3vzYJoBvLP +7T5W+4EKQ34asVZRDLR73ZRxyCgVNDN427djb07iENb+SIW4U+9JCthTITuq +aibxePJppW+RDORtXzhXPUsFSsxLcgm2C09owO1fVFDaYmPLg20dKhtUKUmD +YNYX8uA/DPS48IxNljQNSkJiytuxjenz5AhZGmwliVnVYWupdL8zV6RB8997 +etKwZd5Gmw+p0CB6v6isKfaM0bCk4A4amGn2Zt4KZ6D/uIoe+O6jQfmuTyIF +J/D8NYXy7A7QoPRc95s07ET3iBCdgzRIant5NwY74o7DX6tuNDCIt37qge1N +cGZeoNDA2oAlp4it00WhPg2mgQ3nfHVZGAO9zVRZS8qggWyOdVxnKAPdQsJ+ +nzNp4ED56tuMnTj3ra0qmwa+MiG+1djau9tiDXJp8CvxV0UedjqHz7zdFRq0 +vtSz8Me2Cix6F1FJA7l7rx+KYisonNUzuUWDRy6aknzY37oCs7mrabCX5pew +EsJAxarILr2OBicbooo/Yf8eHm4taaRB/KzGQgv2HVu58hedNGga1R8Jxk79 +xcVzvosGN5welfhhU8qnvV3pNOjK3x53GFtkTaPcRA8NCgI7o+ywjzW5/Lf0 +hgaBXYOJ6tgk9Qvh5Eka6JXPTnwOZqBfb0/2fZmiAc+tDdJj2L1JNK3bn2nA +mFSjvMOOHdOdNpylwYKHws4u7MG8Ps+9CzTgM9XmqMLO4hO1jOIkYJZ0+G04 +dvP8sHsYNwEycqEPArE/DVeEBPAQ0BC8sdUP2/iORRFFgIC8YTM5d+wpr4hl +G1ECymsebjbFFrG1FLMUJ+B37dUFI+yd+mJqSIIAr80bh3SxM4QrnXVkCFh6 +N7e6mT3eOFIjp0TAzonxIjFsoqyyU4JEwB+Fmw7C7PszIkfWqxBw+oSIAj/7 +fYS48Bo1Agpr7679E4THxa39ZrUI6IuOhBnsxj/icVPaBKy2Gb6ewp78Mpoz +qktArv+lMx+xjVqjnvQb4Lyuv9Eg9sSxW4oPgIDek+L83djrXKJ33DMj4OGB +4fgObEPzXbY1FgSwPHdLt2Gny3yMLNtFAPcz/ssPsO+vuZ1RaENAV5pHciP2 +ODP6+kVbAs6b7cu4h23QLvH6nAMB1TrqP2uwKTUfZ5KdCEh7LHjwNva5/Ntc +p/fj9ZlOf1WJ/TFkt1a4C86/dHpjObbwIUnrIDcCBPzmWWXsvN3jnv4eBNi6 +846UsJ/feDL1kBcBulvlRIvYfQRtil0o7PfLH7jCzvsu2eBEJWCG+ag+n503 +Nt5jSxDgayukc5mdR6+esvIjoDNgmX6R3e/eyd/gT8Cbo/8l5LHzi2027DxG +wE3nTudcdv45qS07AgjgN71mdYGdHzFhqhlEQLOR2r4cbCFqjYtaCAHPHB1j +zmPr740NJIXh/c5SfJzNzjfac0YhnAAOgUwy22kq0gVSEQRselBekoV9V2Sy +TjQK78ddGmJ7bLmma20M3s/ljsVMdv6n2DGeWAKaMnrobOu92vNzNY6A+n9i +Wtj+H/tnTIU= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.9512413711961388, 1.0507651258928443`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.9512413711961409}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5430,7 +10398,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5311368545847414}, + AxesOrigin->{0, 0.9512413711961409}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5458,7 +10427,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9512413711961388, 1.0507651258928443`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5466,9 +10436,9 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913301734961166`*^9}, + CellChangeTimes->{3.9913301734961166`*^9, 3.9939187874310904`*^9}, CellLabel-> - "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] + "Out[118]=",ExpressionUUID->"be84c2ef-e147-4555-93c5-41a8126e1cc7"] }, Open ]], Cell[CellGroupData[{ @@ -5531,213 +10501,170 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991848978152012*^9, - 3.99184898469532*^9}},ExpressionUUID->"ab29778f-f183-804b-b871-\ -4070462057d7"], + CellChangeTimes->{{3.991848978152012*^9, 3.99184898469532*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 195, - 153, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913301737143345`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.016951780771552`*^-270\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 129, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993918787626644*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +In[119]:=",ExpressionUUID->"2a1bf897-ad60-4719-8806-ae4375b5a90c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 195, 154, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173723337*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.527510188827258`*^-283\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 130, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.9939187876389*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +In[119]:=",ExpressionUUID->"a7b83fd4-98d9-43a0-95d4-a3dc0ab27d7a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 195, 155, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173731432*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1294389924190974`*^-295\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 131, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993918787646872*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +In[119]:=",ExpressionUUID->"dbd6d85d-62a2-4d2f-90b5-339341180ea5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173739336*^9}, +during this calculation.\"", 2, 119, 132, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993918787655403*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +In[119]:=",ExpressionUUID->"a2c528ca-e790-4f2a-bbfe-ae9b8d30cec8"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vu0fB3BFiYqM7HHu201lZGRz9/2i7Bkhe4SmFFmV9RSeSDJKJCpU +Vvd9krLSg0QayoiUijx5ZJURGn7n99d5vf+4znXO9/pen3Mdmt+RXQErOTg4 +aCs4OP5/nR9sb2GkFG2v03+YaRFjvL37qliUUV8CZP3as+fZPAG48aWfWF8G +PNp02Kd4Xg3C7UvfcPZdB7G/OqfPziMITIpmLL4hocn85rjvvD18qLc9Mvum +CdL88wwG53zAlDH2/tub11CVUNTxYSYEFt/oZE+/GYLwsLjw6a9x0Gxys+jV +9Rn4cmKjQOSpCyD1oeZfP+XfMN7fmVt58zIIH/Iu5TbhRL7UgzzZxYWQoW5a +Z7t7DbbPtsf6JRZBf47ao28b1iOzJvNGdN9NSCmKfblSXACPnaRVKwiWgWjW +8N+Z+ULIeVrum+zrChBTund6oUQI2y/f3pM+UAESTYmxniwhDPI+krP0uQJk +prcc39QshKuqFjPrf1SAvHWIT92oEMblMf3mpSphG9dv7eFtwtgfwueBgZVg +FybyWeOpMJ4u5NJVmK2EJCeL7a/nN2LRilRxrt93QKLqhcTKFSJ483jo68cr +WVAp5PRDfa0Ixr37q2cVNwt6X3uxLsiKYEeEbEY0PwsYDmF0B3MRjGW86tcm +WNBkU7C687IIfg/wtF5CFvw2nXvx3FAUGw8ZOJXGsiC9JLrst6koBovuFzj+ +FzV+NUeyioMoCrjYrDBMYoH1Y16jcwGiWN+1I/JhGgtyTYi71mmi+GssrT47 +nwW6aHWp44Moyh5mhpyrZUGo3jXv9gQxtH9x3KPwGwssC/lmrVLF0K3+0IsH +syygc59MfpEthmTPwNfnP1jQ2e3M7rolhivoU5snf7Nga8g6zsEXYqgl/bB0 +NS8bRksiSr5LiKP6W6knl2hs8BC2nZC8K45ig4kH9W3ZsO1EXfzVenFM5iLN +Ru3ZwDu0WYTWKo6SdY0vMxzZUHOHExT6xXFFVu/we1c2iFjVpKsti6OzdbiM +tT8bOuMZmjutJDBTinsuOYINO6aWooOHJZBIbxM/k8+GKPMsxX/GJdBle6Vd +QwEbKq+pvBWal0DGWT6X79fYIObko1ezRhLd1HgGdpWwYfzB4x+cWyWRIXO9 +YaKSDZkJ6WGXIyVR4sZOmZRGNgxtVAhuWS+F/31N4QocZIPokUZpUVEpjAsR +e6/7kQ3Wba7P9xNSWHpL7fyaITZUR6co82+TwrVfjeOvjrDh7IfpsT2uUngs +6U1x0TgbNG7XBU1dl8IQqSl9iSU2xBs6+EroSuP9y7uEKwRJMPe6+l3HWBpV ++po79YVJ4Iv7+tdua2k8K5I20rKRhCvNZ0rSfaRxMsFR4oUYCQ8sa7+u/lsa +L1lNNFbJkDDtKhc+0y+NB1uSo7q2kHA/OoRb4LM03ogI/KOgRELMlYacrZPU ++JG6z+HKJKz76FK3f6UMHplh9q1VJWFTUCrHR0UZnA6fPMirSYLX8bmzz07I +YOmkRrcbkwT5S8ZSY2dk0KGFsz5sO0nV73wFd7oMFmw5z58CJET/2tJpXCSD +hf7nfpUbkZD9l9fGmmcy6Hvw4IrWnSR4FJeV9PbKIPZYuzWbkkB/sqAz+1EG +Z7vCGA1mJLB4M91U52SQ2zKUv8SChGcXnhQUS8vifpavk40NCZl3hdWbN8ni +7rqbVlttSXDr8W36qC6L1V2ratfakTAq9uuzpKksnjXmXq6zJ4GzUE0xI1gW +I0RN4bsjCfqVl6tiGmVR/of3zuo9JOx48+L3ZJssZg11vnV0I8GWg8vM+7Us +fmlXCZqk7L8ruB9GZPH8km2QhAcJpidosXGrCNSF16K2XiR08Nff0OUlMHoa +I7oo2xc5t03zEXgpZf71bm8S3J+nCPiKEchK/h7v4ENCiOz8DSMlAnkCTr5i ++JEwdze9bVGVQLlXBxUyKEebK02wNQmM/E/l1C/KZ476aNO3E0ha/tFo8yeB +d/VPt7fGBJYlRmZu2UtCem52bIYZgVJO+QtJlHObn7atdCCwnmztMgggQdY1 +YKJ2N4FLckyrC5SLxpcFQt0I7BkxejpM+c5GLfdhfwKDVYc+xQaSoFn6MjZv +H4EtYXMn2inXbj9Q5HiYwNHTicSGIBJaggommsMJ9I0VT82ibPFLT/DkCQIt +53KcXlN+kd6trRlHoIr1BcX1+0hwkj/iPn6aQHORZr6dlPtreOKK/iZQKX9q +RTRlL9uiIo80AjU/9XGVU/48tL1dOJNAwctGYgOUJ9eGCZ65QuD9joJQtf0k +hBby6TCvEbgKZBqcKS9o3nafKyaQKbJVIppyTLtJXEUpgZienZJLmdNrsCjg +DoGmBZKCDygnf49sl64iMGA0qfI1Zb4kocmeBwRyN1/3HaOcKVkpmNZAYISu +lvIyZTGWuY5pE4GunDz8AgdIyN8x7P6nlcBN50d5Ccr0/lNx1R0ENvy4SihT +vnVYrDi4k8BnaxbstSirrLzbrtBDoBvz0RUDyuRFm8nBfgJtGlu4gLKu0qjg +pUECPwV2/f1/NzQm6NgNEyhbW6vMpGzsJO3BPUrg4XGLSR3KT0bvxzWOE8gx +aP9SlbL1qV3FEd8I9JQs7GRQfi0w0a46T+DguzUzIpRdSpImvyxR91vtqbOa +8jt9ulDhMoHp8keufqfez+9lvY4rFw2HQwW3vKP8xd/FYwMPDbO6JPqaKB9a ++BbXtp6GHp0e5SWU9Y8GivwrSENV77Kx05TXjL0t4xSj4fF2705vyr1+dkY0 +aRrG+6Z46VAuHmju3U6noa8PXlxLOcxJ95DHJhpKjFyIfEetr/Hz8hXRyjR8 +M5O5upTy4MNs5XvaNIzV+rPFgHK5Dm/TawMatg5n/POH6q9oVozLNNKog4g6 +TyNlketBCUpW1PxZ4+ValD9LvBO1sKehQAhz7TjVv2SmfUXgbhpK9vyRLqBs +d0av75o3Def6TAJ+Uv0v86ficONeGlpPrbhSRHk8nM75fj8Nk04Wp1hSTt63 +dqtYGDXeTTI3ldpfj6ze/5WWTMMnloGZ/1H7M63FQbz8HA0Pb59kRVL2YLZW +tmfQ0DsgOJ2L8uLWO/1c+TQ8d3H6sqAvCRqC8aon2DRcrHX/wU3lA0fKXEtO +NQ2HSv7sOEXlxwvOA27VdTTcWfXJc8qThINzu858e0zDY/mS8+1U/hT1MQaC +3tJwwTP0kyuVT8ccLoec+UDDu94KpVVUnuHT9atvfKbhrXXZZuspv6+bVxuc +pGGpwrFV91yoehW0JTpx0tFnYapy0ImqlyhT6tgaOhqFAtAok+ls9vn1dHSW +X6jwofLSLiH33VNROqaFnVXqdaDqEXBIw0iZjk5F19rzqPxdVNowqLKbjgtD +MTczqPyez5eI3+ZGR1dWkNgtKt9n+eUZet50vLjh+6VaKv8nZ/QO7NhPxwPO +NU96TUgYqvOfdztFx/NTvWvHqe/HU6v7fMnFdLT5dF47RYfq94Z/2OdK6fiv +M5fcMW0qf1SfOWXeoSOzIE/dWYuEh0Kfcq/W0FGxZXPtxm3U8w/wbrr3nI5f +Pl/OO7aVysODXjA0R8fnmyofFDFIuPR+39CXJWq+Fj9PLzkSsuxCz0ws09HA +xEV3I51az23JHQs8ctjmIHkxWpaEhJ9sF34ZOXzfPCnMkKDWI2VViKGpHFod +SMQZPhIMy8oLL16Uww5Tm6Mp82wYIMoKdubJYZ1PizXvHBuiL96+Olsgh+5R +rR8SZ9hwP77kyq7bcnhZ8bFa1DR1HnAtzOGrl0OZWo184zE2bFmVlZ74SQ7d +/pXN3v+eOv94n4gLV2bgziGZBv4mNtzrjoqVV2fgnw+lZWaP2OBkGRnTrcXA +Ei3V46cesiFD6/hJDWDgXv0b+UO1bFi/7kjkpAMDRRv6/DPvsoGrxi8kMIKB +lgf9ms8XseGboKWPcxMD2Xzrn/08zYa+Q/TOA08YeLH64YrHCWx41LoEsc8Y +WGb14F1KHBvSo8tkb/UyUPHY4WTBk2xQG1r3YXGMgbPjLh85Q9kQzH7pmS8k +jy7qw4MRPmwYs9vt/nmvPOY4N5y9o8eGz6k+zse4FfCGrOEKcoQFwWPKdLV1 +CphRcOOA7DALfpgtTkxsUMAtnTMSKR9ZwMuZcWa/hAKK3jLf7TnAArWo5iof +FQUcLbjmONHJglMBCkJ2jgqod80wrb6OBSLbx18qFSigQ3zvfSKdBRZTERYj +2puwo7dteKcmC8b914RWxW7GgC+rP+req6T+V0RXJjVtQW0eQYbRUDkIPldI +Y00pYpwbozZmYxlIJd+x19ZWRtFmLQMegduQo6S3QShIBa9XRj39vOkmPJUw +0pq5sBV/mtnw+VsUg75UU7pqrypm7YjCbssbwMd5Pcw3QQ07c7wNXU5eA5l4 +WcM9CupY7DhnfFOnAHjkPap3PVHHxNFxq4naPNjKFL8T4amBmtnRq8IqcuDY +oGCzJcc25C60uK6cmw1TM6m7LXK24Un13GHp+QwwU23NtVDRRI2upCcel9Lh +4YzBzx8vNPFm5Lj12cRUCFbWePsqQAvVy8JtdxcmA3Nyb/ceHm38nq9onPP+ +NOxkiNmsv66NHwhhweqWeNgcdzaySUcHH+dxKFxWiwHFAL1G+bc6qMU//3xK +LgoCHu47XXVUF6+YdDboCR6HxsLuvd826uFeEeHbSlZHYfbW8g/V+3p4wDrx +d57dIfCXL+PJtdFHC+5xazf3IIh+7HVAwV4fZWa63AvMgiA9QLCD3KWPDStp +jd+3BUF9cVRqh4s+Ft+P9mtZFwTCCub8v331kV5XrCfYGAitCiPCPuH6+Ld1 +ubSDQiAobpYlFAr0cU8y873c8l74ppipTU7rYxNpmh3Y5wd9z3Cn0Iw+zhzh +vCfW7gePgicdw+b0sV3yYEFPjR+kkRZHtZf0kdg7UXckzw8U9TnKazkNsLuM +/wDD2w/8LA7TmkUMsLVNyunsqC90B5mt6zY0wJZLrIsynL7woOjnp7lkA9wQ +WvrBuNwLtE3CflimGOCUwNVR1UwvuPdpfF3hOQP0rZ4Y3hrtBaTMoI5lhgHK +BT1L8jP3gvKcR+eu5hmgmly2T8GIJxSmntEzqzTAPp3nJoFynvB3GP+FnC4D +ZF97vP5TmTu47ZBDAxlD7I8Zubtn0hV+d6/hayYMsXpbflXFG1coDJgcsJQz +xHO/nUaE/nGFfxNrItw2G+IOqYgSkSxXONZudydKwxDl0q84z+q7wlnbkzIP +TA0xRt99cVWqC9S69vzSPGKIUeuNmlUNnEHycFLN1keGiH80/CQ7HCFtOVAr +pckQmWx61UCNI6zMMGV/aTHE5xYRvrdvOcJY9arbhe2GuG9tctmhREeo5Tid +I9hliBee1PNmGDuCW1ZcxPyIIbY+zAu2b9gFOXVRWg/XMjFZufWQT70DbOQ9 +xLZxYeK30YKdyw12UGRyKnp6DxMlHwST3lftQONUmkmmBxP/k06yehdjB7bT +rJ4+XybufSlVsQXtILF3btH/EBMLVpq8FWyxhYXrscbR8UxUvN4RtO6VDbw1 +yOwqKWPihqLRTWuXrWDf8aIrFpVMPGo+kd82ZAXzlfcCxllMVBm+UVbQagWC +9L4f6tVMfMJVsz03zQqs1khLNTxioqezuESjrBXUd5fs7ephYqSIUny1qSVY +8j1QCe9j4nvvUQMuZUvoM2ufFxtg4t2Yxd0HBCxhtvZrstdHJuaF5rrHvrMA +lWtqFf+NMXGpdPHS01ALqH9rFJ46wcQ2UwXd/j0WYCnsCKrTTHTbP1CwDBYQ +mHT8VdgcE4887onOXGcBs48Sc0UXmCgqdreNY8YcEpYu+dcuMTFByiLzTL85 +bNC8rez5m4lZJRxttEfmcPVw7dzyMhPdV9s69ZSYw/8As9cg9g== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5751,172 +10678,125 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwV13c8Vu0fB3BFiYqM7HHu201lZGRz9/2i7Bkhe4SmFFmV9RSeSDJKJCpU +Vvd9krLSg0QayoiUijx5ZJURGn7n99d5vf+4znXO9/pen3Mdmt+RXQErOTg4 +aCs4OP5/nR9sb2GkFG2v03+YaRFjvL37qliUUV8CZP3as+fZPAG48aWfWF8G +PNp02Kd4Xg3C7UvfcPZdB7G/OqfPziMITIpmLL4hocn85rjvvD18qLc9Mvum +CdL88wwG53zAlDH2/tub11CVUNTxYSYEFt/oZE+/GYLwsLjw6a9x0Gxys+jV +9Rn4cmKjQOSpCyD1oeZfP+XfMN7fmVt58zIIH/Iu5TbhRL7UgzzZxYWQoW5a +Z7t7DbbPtsf6JRZBf47ao28b1iOzJvNGdN9NSCmKfblSXACPnaRVKwiWgWjW +8N+Z+ULIeVrum+zrChBTund6oUQI2y/f3pM+UAESTYmxniwhDPI+krP0uQJk +prcc39QshKuqFjPrf1SAvHWIT92oEMblMf3mpSphG9dv7eFtwtgfwueBgZVg +FybyWeOpMJ4u5NJVmK2EJCeL7a/nN2LRilRxrt93QKLqhcTKFSJ483jo68cr +WVAp5PRDfa0Ixr37q2cVNwt6X3uxLsiKYEeEbEY0PwsYDmF0B3MRjGW86tcm +WNBkU7C687IIfg/wtF5CFvw2nXvx3FAUGw8ZOJXGsiC9JLrst6koBovuFzj+ +FzV+NUeyioMoCrjYrDBMYoH1Y16jcwGiWN+1I/JhGgtyTYi71mmi+GssrT47 +nwW6aHWp44Moyh5mhpyrZUGo3jXv9gQxtH9x3KPwGwssC/lmrVLF0K3+0IsH +syygc59MfpEthmTPwNfnP1jQ2e3M7rolhivoU5snf7Nga8g6zsEXYqgl/bB0 +NS8bRksiSr5LiKP6W6knl2hs8BC2nZC8K45ig4kH9W3ZsO1EXfzVenFM5iLN +Ru3ZwDu0WYTWKo6SdY0vMxzZUHOHExT6xXFFVu/we1c2iFjVpKsti6OzdbiM +tT8bOuMZmjutJDBTinsuOYINO6aWooOHJZBIbxM/k8+GKPMsxX/GJdBle6Vd +QwEbKq+pvBWal0DGWT6X79fYIObko1ezRhLd1HgGdpWwYfzB4x+cWyWRIXO9 +YaKSDZkJ6WGXIyVR4sZOmZRGNgxtVAhuWS+F/31N4QocZIPokUZpUVEpjAsR +e6/7kQ3Wba7P9xNSWHpL7fyaITZUR6co82+TwrVfjeOvjrDh7IfpsT2uUngs +6U1x0TgbNG7XBU1dl8IQqSl9iSU2xBs6+EroSuP9y7uEKwRJMPe6+l3HWBpV ++po79YVJ4Iv7+tdua2k8K5I20rKRhCvNZ0rSfaRxMsFR4oUYCQ8sa7+u/lsa +L1lNNFbJkDDtKhc+0y+NB1uSo7q2kHA/OoRb4LM03ogI/KOgRELMlYacrZPU ++JG6z+HKJKz76FK3f6UMHplh9q1VJWFTUCrHR0UZnA6fPMirSYLX8bmzz07I +YOmkRrcbkwT5S8ZSY2dk0KGFsz5sO0nV73wFd7oMFmw5z58CJET/2tJpXCSD +hf7nfpUbkZD9l9fGmmcy6Hvw4IrWnSR4FJeV9PbKIPZYuzWbkkB/sqAz+1EG +Z7vCGA1mJLB4M91U52SQ2zKUv8SChGcXnhQUS8vifpavk40NCZl3hdWbN8ni +7rqbVlttSXDr8W36qC6L1V2ratfakTAq9uuzpKksnjXmXq6zJ4GzUE0xI1gW +I0RN4bsjCfqVl6tiGmVR/of3zuo9JOx48+L3ZJssZg11vnV0I8GWg8vM+7Us +fmlXCZqk7L8ruB9GZPH8km2QhAcJpidosXGrCNSF16K2XiR08Nff0OUlMHoa +I7oo2xc5t03zEXgpZf71bm8S3J+nCPiKEchK/h7v4ENCiOz8DSMlAnkCTr5i ++JEwdze9bVGVQLlXBxUyKEebK02wNQmM/E/l1C/KZ476aNO3E0ha/tFo8yeB +d/VPt7fGBJYlRmZu2UtCem52bIYZgVJO+QtJlHObn7atdCCwnmztMgggQdY1 +YKJ2N4FLckyrC5SLxpcFQt0I7BkxejpM+c5GLfdhfwKDVYc+xQaSoFn6MjZv +H4EtYXMn2inXbj9Q5HiYwNHTicSGIBJaggommsMJ9I0VT82ibPFLT/DkCQIt +53KcXlN+kd6trRlHoIr1BcX1+0hwkj/iPn6aQHORZr6dlPtreOKK/iZQKX9q +RTRlL9uiIo80AjU/9XGVU/48tL1dOJNAwctGYgOUJ9eGCZ65QuD9joJQtf0k +hBby6TCvEbgKZBqcKS9o3nafKyaQKbJVIppyTLtJXEUpgZienZJLmdNrsCjg +DoGmBZKCDygnf49sl64iMGA0qfI1Zb4kocmeBwRyN1/3HaOcKVkpmNZAYISu +lvIyZTGWuY5pE4GunDz8AgdIyN8x7P6nlcBN50d5Ccr0/lNx1R0ENvy4SihT +vnVYrDi4k8BnaxbstSirrLzbrtBDoBvz0RUDyuRFm8nBfgJtGlu4gLKu0qjg +pUECPwV2/f1/NzQm6NgNEyhbW6vMpGzsJO3BPUrg4XGLSR3KT0bvxzWOE8gx +aP9SlbL1qV3FEd8I9JQs7GRQfi0w0a46T+DguzUzIpRdSpImvyxR91vtqbOa +8jt9ulDhMoHp8keufqfez+9lvY4rFw2HQwW3vKP8xd/FYwMPDbO6JPqaKB9a ++BbXtp6GHp0e5SWU9Y8GivwrSENV77Kx05TXjL0t4xSj4fF2705vyr1+dkY0 +aRrG+6Z46VAuHmju3U6noa8PXlxLOcxJ95DHJhpKjFyIfEetr/Hz8hXRyjR8 +M5O5upTy4MNs5XvaNIzV+rPFgHK5Dm/TawMatg5n/POH6q9oVozLNNKog4g6 +TyNlketBCUpW1PxZ4+ValD9LvBO1sKehQAhz7TjVv2SmfUXgbhpK9vyRLqBs +d0av75o3Def6TAJ+Uv0v86ficONeGlpPrbhSRHk8nM75fj8Nk04Wp1hSTt63 +dqtYGDXeTTI3ldpfj6ze/5WWTMMnloGZ/1H7M63FQbz8HA0Pb59kRVL2YLZW +tmfQ0DsgOJ2L8uLWO/1c+TQ8d3H6sqAvCRqC8aon2DRcrHX/wU3lA0fKXEtO +NQ2HSv7sOEXlxwvOA27VdTTcWfXJc8qThINzu858e0zDY/mS8+1U/hT1MQaC +3tJwwTP0kyuVT8ccLoec+UDDu94KpVVUnuHT9atvfKbhrXXZZuspv6+bVxuc +pGGpwrFV91yoehW0JTpx0tFnYapy0ImqlyhT6tgaOhqFAtAok+ls9vn1dHSW +X6jwofLSLiH33VNROqaFnVXqdaDqEXBIw0iZjk5F19rzqPxdVNowqLKbjgtD +MTczqPyez5eI3+ZGR1dWkNgtKt9n+eUZet50vLjh+6VaKv8nZ/QO7NhPxwPO +NU96TUgYqvOfdztFx/NTvWvHqe/HU6v7fMnFdLT5dF47RYfq94Z/2OdK6fiv +M5fcMW0qf1SfOWXeoSOzIE/dWYuEh0Kfcq/W0FGxZXPtxm3U8w/wbrr3nI5f +Pl/OO7aVysODXjA0R8fnmyofFDFIuPR+39CXJWq+Fj9PLzkSsuxCz0ws09HA +xEV3I51az23JHQs8ctjmIHkxWpaEhJ9sF34ZOXzfPCnMkKDWI2VViKGpHFod +SMQZPhIMy8oLL16Uww5Tm6Mp82wYIMoKdubJYZ1PizXvHBuiL96+Olsgh+5R +rR8SZ9hwP77kyq7bcnhZ8bFa1DR1HnAtzOGrl0OZWo184zE2bFmVlZ74SQ7d +/pXN3v+eOv94n4gLV2bgziGZBv4mNtzrjoqVV2fgnw+lZWaP2OBkGRnTrcXA +Ei3V46cesiFD6/hJDWDgXv0b+UO1bFi/7kjkpAMDRRv6/DPvsoGrxi8kMIKB +lgf9ms8XseGboKWPcxMD2Xzrn/08zYa+Q/TOA08YeLH64YrHCWx41LoEsc8Y +WGb14F1KHBvSo8tkb/UyUPHY4WTBk2xQG1r3YXGMgbPjLh85Q9kQzH7pmS8k +jy7qw4MRPmwYs9vt/nmvPOY4N5y9o8eGz6k+zse4FfCGrOEKcoQFwWPKdLV1 +CphRcOOA7DALfpgtTkxsUMAtnTMSKR9ZwMuZcWa/hAKK3jLf7TnAArWo5iof +FQUcLbjmONHJglMBCkJ2jgqod80wrb6OBSLbx18qFSigQ3zvfSKdBRZTERYj +2puwo7dteKcmC8b914RWxW7GgC+rP+req6T+V0RXJjVtQW0eQYbRUDkIPldI +Y00pYpwbozZmYxlIJd+x19ZWRtFmLQMegduQo6S3QShIBa9XRj39vOkmPJUw +0pq5sBV/mtnw+VsUg75UU7pqrypm7YjCbssbwMd5Pcw3QQ07c7wNXU5eA5l4 +WcM9CupY7DhnfFOnAHjkPap3PVHHxNFxq4naPNjKFL8T4amBmtnRq8IqcuDY +oGCzJcc25C60uK6cmw1TM6m7LXK24Un13GHp+QwwU23NtVDRRI2upCcel9Lh +4YzBzx8vNPFm5Lj12cRUCFbWePsqQAvVy8JtdxcmA3Nyb/ceHm38nq9onPP+ +NOxkiNmsv66NHwhhweqWeNgcdzaySUcHH+dxKFxWiwHFAL1G+bc6qMU//3xK +LgoCHu47XXVUF6+YdDboCR6HxsLuvd826uFeEeHbSlZHYfbW8g/V+3p4wDrx +d57dIfCXL+PJtdFHC+5xazf3IIh+7HVAwV4fZWa63AvMgiA9QLCD3KWPDStp +jd+3BUF9cVRqh4s+Ft+P9mtZFwTCCub8v331kV5XrCfYGAitCiPCPuH6+Ld1 +ubSDQiAobpYlFAr0cU8y873c8l74ppipTU7rYxNpmh3Y5wd9z3Cn0Iw+zhzh +vCfW7gePgicdw+b0sV3yYEFPjR+kkRZHtZf0kdg7UXckzw8U9TnKazkNsLuM +/wDD2w/8LA7TmkUMsLVNyunsqC90B5mt6zY0wJZLrIsynL7woOjnp7lkA9wQ +WvrBuNwLtE3CflimGOCUwNVR1UwvuPdpfF3hOQP0rZ4Y3hrtBaTMoI5lhgHK +BT1L8jP3gvKcR+eu5hmgmly2T8GIJxSmntEzqzTAPp3nJoFynvB3GP+FnC4D +ZF97vP5TmTu47ZBDAxlD7I8Zubtn0hV+d6/hayYMsXpbflXFG1coDJgcsJQz +xHO/nUaE/nGFfxNrItw2G+IOqYgSkSxXONZudydKwxDl0q84z+q7wlnbkzIP +TA0xRt99cVWqC9S69vzSPGKIUeuNmlUNnEHycFLN1keGiH80/CQ7HCFtOVAr +pckQmWx61UCNI6zMMGV/aTHE5xYRvrdvOcJY9arbhe2GuG9tctmhREeo5Tid +I9hliBee1PNmGDuCW1ZcxPyIIbY+zAu2b9gFOXVRWg/XMjFZufWQT70DbOQ9 +xLZxYeK30YKdyw12UGRyKnp6DxMlHwST3lftQONUmkmmBxP/k06yehdjB7bT +rJ4+XybufSlVsQXtILF3btH/EBMLVpq8FWyxhYXrscbR8UxUvN4RtO6VDbw1 +yOwqKWPihqLRTWuXrWDf8aIrFpVMPGo+kd82ZAXzlfcCxllMVBm+UVbQagWC +9L4f6tVMfMJVsz03zQqs1khLNTxioqezuESjrBXUd5fs7ephYqSIUny1qSVY +8j1QCe9j4nvvUQMuZUvoM2ufFxtg4t2Yxd0HBCxhtvZrstdHJuaF5rrHvrMA +lWtqFf+NMXGpdPHS01ALqH9rFJ46wcQ2UwXd/j0WYCnsCKrTTHTbP1CwDBYQ +mHT8VdgcE4887onOXGcBs48Sc0UXmCgqdreNY8YcEpYu+dcuMTFByiLzTL85 +bNC8rez5m4lZJRxttEfmcPVw7dzyMhPdV9s69ZSYw/8As9cg9g== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.07193371882331291}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5928,19 +10808,19 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.07193371882331291}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5954,171 +10834,124 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwV13c8Vu0fB3BFiYqM7HHu201lZGRz9/2i7Bkhe4SmFFmV9RSeSDJKJCpU +Vvd9krLSg0QayoiUijx5ZJURGn7n99d5vf+4znXO9/pen3Mdmt+RXQErOTg4 +aCs4OP5/nR9sb2GkFG2v03+YaRFjvL37qliUUV8CZP3as+fZPAG48aWfWF8G +PNp02Kd4Xg3C7UvfcPZdB7G/OqfPziMITIpmLL4hocn85rjvvD18qLc9Mvum +CdL88wwG53zAlDH2/tub11CVUNTxYSYEFt/oZE+/GYLwsLjw6a9x0Gxys+jV +9Rn4cmKjQOSpCyD1oeZfP+XfMN7fmVt58zIIH/Iu5TbhRL7UgzzZxYWQoW5a +Z7t7DbbPtsf6JRZBf47ao28b1iOzJvNGdN9NSCmKfblSXACPnaRVKwiWgWjW +8N+Z+ULIeVrum+zrChBTund6oUQI2y/f3pM+UAESTYmxniwhDPI+krP0uQJk +prcc39QshKuqFjPrf1SAvHWIT92oEMblMf3mpSphG9dv7eFtwtgfwueBgZVg +FybyWeOpMJ4u5NJVmK2EJCeL7a/nN2LRilRxrt93QKLqhcTKFSJ483jo68cr +WVAp5PRDfa0Ixr37q2cVNwt6X3uxLsiKYEeEbEY0PwsYDmF0B3MRjGW86tcm +WNBkU7C687IIfg/wtF5CFvw2nXvx3FAUGw8ZOJXGsiC9JLrst6koBovuFzj+ +FzV+NUeyioMoCrjYrDBMYoH1Y16jcwGiWN+1I/JhGgtyTYi71mmi+GssrT47 +nwW6aHWp44Moyh5mhpyrZUGo3jXv9gQxtH9x3KPwGwssC/lmrVLF0K3+0IsH +syygc59MfpEthmTPwNfnP1jQ2e3M7rolhivoU5snf7Nga8g6zsEXYqgl/bB0 +NS8bRksiSr5LiKP6W6knl2hs8BC2nZC8K45ig4kH9W3ZsO1EXfzVenFM5iLN +Ru3ZwDu0WYTWKo6SdY0vMxzZUHOHExT6xXFFVu/we1c2iFjVpKsti6OzdbiM +tT8bOuMZmjutJDBTinsuOYINO6aWooOHJZBIbxM/k8+GKPMsxX/GJdBle6Vd +QwEbKq+pvBWal0DGWT6X79fYIObko1ezRhLd1HgGdpWwYfzB4x+cWyWRIXO9 +YaKSDZkJ6WGXIyVR4sZOmZRGNgxtVAhuWS+F/31N4QocZIPokUZpUVEpjAsR +e6/7kQ3Wba7P9xNSWHpL7fyaITZUR6co82+TwrVfjeOvjrDh7IfpsT2uUngs +6U1x0TgbNG7XBU1dl8IQqSl9iSU2xBs6+EroSuP9y7uEKwRJMPe6+l3HWBpV ++po79YVJ4Iv7+tdua2k8K5I20rKRhCvNZ0rSfaRxMsFR4oUYCQ8sa7+u/lsa +L1lNNFbJkDDtKhc+0y+NB1uSo7q2kHA/OoRb4LM03ogI/KOgRELMlYacrZPU ++JG6z+HKJKz76FK3f6UMHplh9q1VJWFTUCrHR0UZnA6fPMirSYLX8bmzz07I +YOmkRrcbkwT5S8ZSY2dk0KGFsz5sO0nV73wFd7oMFmw5z58CJET/2tJpXCSD +hf7nfpUbkZD9l9fGmmcy6Hvw4IrWnSR4FJeV9PbKIPZYuzWbkkB/sqAz+1EG +Z7vCGA1mJLB4M91U52SQ2zKUv8SChGcXnhQUS8vifpavk40NCZl3hdWbN8ni +7rqbVlttSXDr8W36qC6L1V2ratfakTAq9uuzpKksnjXmXq6zJ4GzUE0xI1gW +I0RN4bsjCfqVl6tiGmVR/of3zuo9JOx48+L3ZJssZg11vnV0I8GWg8vM+7Us +fmlXCZqk7L8ruB9GZPH8km2QhAcJpidosXGrCNSF16K2XiR08Nff0OUlMHoa +I7oo2xc5t03zEXgpZf71bm8S3J+nCPiKEchK/h7v4ENCiOz8DSMlAnkCTr5i ++JEwdze9bVGVQLlXBxUyKEebK02wNQmM/E/l1C/KZ476aNO3E0ha/tFo8yeB +d/VPt7fGBJYlRmZu2UtCem52bIYZgVJO+QtJlHObn7atdCCwnmztMgggQdY1 +YKJ2N4FLckyrC5SLxpcFQt0I7BkxejpM+c5GLfdhfwKDVYc+xQaSoFn6MjZv +H4EtYXMn2inXbj9Q5HiYwNHTicSGIBJaggommsMJ9I0VT82ibPFLT/DkCQIt +53KcXlN+kd6trRlHoIr1BcX1+0hwkj/iPn6aQHORZr6dlPtreOKK/iZQKX9q +RTRlL9uiIo80AjU/9XGVU/48tL1dOJNAwctGYgOUJ9eGCZ65QuD9joJQtf0k +hBby6TCvEbgKZBqcKS9o3nafKyaQKbJVIppyTLtJXEUpgZienZJLmdNrsCjg +DoGmBZKCDygnf49sl64iMGA0qfI1Zb4kocmeBwRyN1/3HaOcKVkpmNZAYISu +lvIyZTGWuY5pE4GunDz8AgdIyN8x7P6nlcBN50d5Ccr0/lNx1R0ENvy4SihT +vnVYrDi4k8BnaxbstSirrLzbrtBDoBvz0RUDyuRFm8nBfgJtGlu4gLKu0qjg +pUECPwV2/f1/NzQm6NgNEyhbW6vMpGzsJO3BPUrg4XGLSR3KT0bvxzWOE8gx +aP9SlbL1qV3FEd8I9JQs7GRQfi0w0a46T+DguzUzIpRdSpImvyxR91vtqbOa +8jt9ulDhMoHp8keufqfez+9lvY4rFw2HQwW3vKP8xd/FYwMPDbO6JPqaKB9a ++BbXtp6GHp0e5SWU9Y8GivwrSENV77Kx05TXjL0t4xSj4fF2705vyr1+dkY0 +aRrG+6Z46VAuHmju3U6noa8PXlxLOcxJ95DHJhpKjFyIfEetr/Hz8hXRyjR8 +M5O5upTy4MNs5XvaNIzV+rPFgHK5Dm/TawMatg5n/POH6q9oVozLNNKog4g6 +TyNlketBCUpW1PxZ4+ValD9LvBO1sKehQAhz7TjVv2SmfUXgbhpK9vyRLqBs +d0av75o3Def6TAJ+Uv0v86ficONeGlpPrbhSRHk8nM75fj8Nk04Wp1hSTt63 +dqtYGDXeTTI3ldpfj6ze/5WWTMMnloGZ/1H7M63FQbz8HA0Pb59kRVL2YLZW +tmfQ0DsgOJ2L8uLWO/1c+TQ8d3H6sqAvCRqC8aon2DRcrHX/wU3lA0fKXEtO +NQ2HSv7sOEXlxwvOA27VdTTcWfXJc8qThINzu858e0zDY/mS8+1U/hT1MQaC +3tJwwTP0kyuVT8ccLoec+UDDu94KpVVUnuHT9atvfKbhrXXZZuspv6+bVxuc +pGGpwrFV91yoehW0JTpx0tFnYapy0ImqlyhT6tgaOhqFAtAok+ls9vn1dHSW +X6jwofLSLiH33VNROqaFnVXqdaDqEXBIw0iZjk5F19rzqPxdVNowqLKbjgtD +MTczqPyez5eI3+ZGR1dWkNgtKt9n+eUZet50vLjh+6VaKv8nZ/QO7NhPxwPO +NU96TUgYqvOfdztFx/NTvWvHqe/HU6v7fMnFdLT5dF47RYfq94Z/2OdK6fiv +M5fcMW0qf1SfOWXeoSOzIE/dWYuEh0Kfcq/W0FGxZXPtxm3U8w/wbrr3nI5f +Pl/OO7aVysODXjA0R8fnmyofFDFIuPR+39CXJWq+Fj9PLzkSsuxCz0ws09HA +xEV3I51az23JHQs8ctjmIHkxWpaEhJ9sF34ZOXzfPCnMkKDWI2VViKGpHFod +SMQZPhIMy8oLL16Uww5Tm6Mp82wYIMoKdubJYZ1PizXvHBuiL96+Olsgh+5R +rR8SZ9hwP77kyq7bcnhZ8bFa1DR1HnAtzOGrl0OZWo184zE2bFmVlZ74SQ7d +/pXN3v+eOv94n4gLV2bgziGZBv4mNtzrjoqVV2fgnw+lZWaP2OBkGRnTrcXA +Ei3V46cesiFD6/hJDWDgXv0b+UO1bFi/7kjkpAMDRRv6/DPvsoGrxi8kMIKB +lgf9ms8XseGboKWPcxMD2Xzrn/08zYa+Q/TOA08YeLH64YrHCWx41LoEsc8Y +WGb14F1KHBvSo8tkb/UyUPHY4WTBk2xQG1r3YXGMgbPjLh85Q9kQzH7pmS8k +jy7qw4MRPmwYs9vt/nmvPOY4N5y9o8eGz6k+zse4FfCGrOEKcoQFwWPKdLV1 +CphRcOOA7DALfpgtTkxsUMAtnTMSKR9ZwMuZcWa/hAKK3jLf7TnAArWo5iof +FQUcLbjmONHJglMBCkJ2jgqod80wrb6OBSLbx18qFSigQ3zvfSKdBRZTERYj +2puwo7dteKcmC8b914RWxW7GgC+rP+req6T+V0RXJjVtQW0eQYbRUDkIPldI +Y00pYpwbozZmYxlIJd+x19ZWRtFmLQMegduQo6S3QShIBa9XRj39vOkmPJUw +0pq5sBV/mtnw+VsUg75UU7pqrypm7YjCbssbwMd5Pcw3QQ07c7wNXU5eA5l4 +WcM9CupY7DhnfFOnAHjkPap3PVHHxNFxq4naPNjKFL8T4amBmtnRq8IqcuDY +oGCzJcc25C60uK6cmw1TM6m7LXK24Un13GHp+QwwU23NtVDRRI2upCcel9Lh +4YzBzx8vNPFm5Lj12cRUCFbWePsqQAvVy8JtdxcmA3Nyb/ceHm38nq9onPP+ +NOxkiNmsv66NHwhhweqWeNgcdzaySUcHH+dxKFxWiwHFAL1G+bc6qMU//3xK +LgoCHu47XXVUF6+YdDboCR6HxsLuvd826uFeEeHbSlZHYfbW8g/V+3p4wDrx +d57dIfCXL+PJtdFHC+5xazf3IIh+7HVAwV4fZWa63AvMgiA9QLCD3KWPDStp +jd+3BUF9cVRqh4s+Ft+P9mtZFwTCCub8v331kV5XrCfYGAitCiPCPuH6+Ld1 +ubSDQiAobpYlFAr0cU8y873c8l74ppipTU7rYxNpmh3Y5wd9z3Cn0Iw+zhzh +vCfW7gePgicdw+b0sV3yYEFPjR+kkRZHtZf0kdg7UXckzw8U9TnKazkNsLuM +/wDD2w/8LA7TmkUMsLVNyunsqC90B5mt6zY0wJZLrIsynL7woOjnp7lkA9wQ +WvrBuNwLtE3CflimGOCUwNVR1UwvuPdpfF3hOQP0rZ4Y3hrtBaTMoI5lhgHK +BT1L8jP3gvKcR+eu5hmgmly2T8GIJxSmntEzqzTAPp3nJoFynvB3GP+FnC4D +ZF97vP5TmTu47ZBDAxlD7I8Zubtn0hV+d6/hayYMsXpbflXFG1coDJgcsJQz +xHO/nUaE/nGFfxNrItw2G+IOqYgSkSxXONZudydKwxDl0q84z+q7wlnbkzIP +TA0xRt99cVWqC9S69vzSPGKIUeuNmlUNnEHycFLN1keGiH80/CQ7HCFtOVAr +pckQmWx61UCNI6zMMGV/aTHE5xYRvrdvOcJY9arbhe2GuG9tctmhREeo5Tid +I9hliBee1PNmGDuCW1ZcxPyIIbY+zAu2b9gFOXVRWg/XMjFZufWQT70DbOQ9 +xLZxYeK30YKdyw12UGRyKnp6DxMlHwST3lftQONUmkmmBxP/k06yehdjB7bT +rJ4+XybufSlVsQXtILF3btH/EBMLVpq8FWyxhYXrscbR8UxUvN4RtO6VDbw1 +yOwqKWPihqLRTWuXrWDf8aIrFpVMPGo+kd82ZAXzlfcCxllMVBm+UVbQagWC +9L4f6tVMfMJVsz03zQqs1khLNTxioqezuESjrBXUd5fs7ephYqSIUny1qSVY +8j1QCe9j4nvvUQMuZUvoM2ufFxtg4t2Yxd0HBCxhtvZrstdHJuaF5rrHvrMA +lWtqFf+NMXGpdPHS01ALqH9rFJ46wcQ2UwXd/j0WYCnsCKrTTHTbP1CwDBYQ +mHT8VdgcE4887onOXGcBs48Sc0UXmCgqdreNY8YcEpYu+dcuMTFByiLzTL85 +bNC8rez5m4lZJRxttEfmcPVw7dzyMhPdV9s69ZSYw/8As9cg9g== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.07193371882331291}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6129,6 +10962,592 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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" -> A\ +bsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07193371882331291}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9, 3.993920429413492*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"f81fd2dd-4b9a-4278-9d34-6f1298bc454c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Vu0fB3BFiYqM7HHu201lZGRz9/2i7Bkhe4SmFFmV9RSeSDJKJCpU +Vvd9krLSg0QayoiUijx5ZJURGn7n99d5vf+4znXO9/pen3Mdmt+RXQErOTg4 +aCs4OP5/nR9sb2GkFG2v03+YaRFjvL37qliUUV8CZP3as+fZPAG48aWfWF8G +PNp02Kd4Xg3C7UvfcPZdB7G/OqfPziMITIpmLL4hocn85rjvvD18qLc9Mvum +CdL88wwG53zAlDH2/tub11CVUNTxYSYEFt/oZE+/GYLwsLjw6a9x0Gxys+jV +9Rn4cmKjQOSpCyD1oeZfP+XfMN7fmVt58zIIH/Iu5TbhRL7UgzzZxYWQoW5a +Z7t7DbbPtsf6JRZBf47ao28b1iOzJvNGdN9NSCmKfblSXACPnaRVKwiWgWjW +8N+Z+ULIeVrum+zrChBTund6oUQI2y/f3pM+UAESTYmxniwhDPI+krP0uQJk +prcc39QshKuqFjPrf1SAvHWIT92oEMblMf3mpSphG9dv7eFtwtgfwueBgZVg +FybyWeOpMJ4u5NJVmK2EJCeL7a/nN2LRilRxrt93QKLqhcTKFSJ483jo68cr +WVAp5PRDfa0Ixr37q2cVNwt6X3uxLsiKYEeEbEY0PwsYDmF0B3MRjGW86tcm +WNBkU7C687IIfg/wtF5CFvw2nXvx3FAUGw8ZOJXGsiC9JLrst6koBovuFzj+ +FzV+NUeyioMoCrjYrDBMYoH1Y16jcwGiWN+1I/JhGgtyTYi71mmi+GssrT47 +nwW6aHWp44Moyh5mhpyrZUGo3jXv9gQxtH9x3KPwGwssC/lmrVLF0K3+0IsH +syygc59MfpEthmTPwNfnP1jQ2e3M7rolhivoU5snf7Nga8g6zsEXYqgl/bB0 +NS8bRksiSr5LiKP6W6knl2hs8BC2nZC8K45ig4kH9W3ZsO1EXfzVenFM5iLN +Ru3ZwDu0WYTWKo6SdY0vMxzZUHOHExT6xXFFVu/we1c2iFjVpKsti6OzdbiM +tT8bOuMZmjutJDBTinsuOYINO6aWooOHJZBIbxM/k8+GKPMsxX/GJdBle6Vd +QwEbKq+pvBWal0DGWT6X79fYIObko1ezRhLd1HgGdpWwYfzB4x+cWyWRIXO9 +YaKSDZkJ6WGXIyVR4sZOmZRGNgxtVAhuWS+F/31N4QocZIPokUZpUVEpjAsR +e6/7kQ3Wba7P9xNSWHpL7fyaITZUR6co82+TwrVfjeOvjrDh7IfpsT2uUngs +6U1x0TgbNG7XBU1dl8IQqSl9iSU2xBs6+EroSuP9y7uEKwRJMPe6+l3HWBpV ++po79YVJ4Iv7+tdua2k8K5I20rKRhCvNZ0rSfaRxMsFR4oUYCQ8sa7+u/lsa +L1lNNFbJkDDtKhc+0y+NB1uSo7q2kHA/OoRb4LM03ogI/KOgRELMlYacrZPU ++JG6z+HKJKz76FK3f6UMHplh9q1VJWFTUCrHR0UZnA6fPMirSYLX8bmzz07I +YOmkRrcbkwT5S8ZSY2dk0KGFsz5sO0nV73wFd7oMFmw5z58CJET/2tJpXCSD +hf7nfpUbkZD9l9fGmmcy6Hvw4IrWnSR4FJeV9PbKIPZYuzWbkkB/sqAz+1EG +Z7vCGA1mJLB4M91U52SQ2zKUv8SChGcXnhQUS8vifpavk40NCZl3hdWbN8ni +7rqbVlttSXDr8W36qC6L1V2ratfakTAq9uuzpKksnjXmXq6zJ4GzUE0xI1gW +I0RN4bsjCfqVl6tiGmVR/of3zuo9JOx48+L3ZJssZg11vnV0I8GWg8vM+7Us +fmlXCZqk7L8ruB9GZPH8km2QhAcJpidosXGrCNSF16K2XiR08Nff0OUlMHoa +I7oo2xc5t03zEXgpZf71bm8S3J+nCPiKEchK/h7v4ENCiOz8DSMlAnkCTr5i ++JEwdze9bVGVQLlXBxUyKEebK02wNQmM/E/l1C/KZ476aNO3E0ha/tFo8yeB +d/VPt7fGBJYlRmZu2UtCem52bIYZgVJO+QtJlHObn7atdCCwnmztMgggQdY1 +YKJ2N4FLckyrC5SLxpcFQt0I7BkxejpM+c5GLfdhfwKDVYc+xQaSoFn6MjZv +H4EtYXMn2inXbj9Q5HiYwNHTicSGIBJaggommsMJ9I0VT82ibPFLT/DkCQIt +53KcXlN+kd6trRlHoIr1BcX1+0hwkj/iPn6aQHORZr6dlPtreOKK/iZQKX9q +RTRlL9uiIo80AjU/9XGVU/48tL1dOJNAwctGYgOUJ9eGCZ65QuD9joJQtf0k +hBby6TCvEbgKZBqcKS9o3nafKyaQKbJVIppyTLtJXEUpgZienZJLmdNrsCjg +DoGmBZKCDygnf49sl64iMGA0qfI1Zb4kocmeBwRyN1/3HaOcKVkpmNZAYISu +lvIyZTGWuY5pE4GunDz8AgdIyN8x7P6nlcBN50d5Ccr0/lNx1R0ENvy4SihT +vnVYrDi4k8BnaxbstSirrLzbrtBDoBvz0RUDyuRFm8nBfgJtGlu4gLKu0qjg +pUECPwV2/f1/NzQm6NgNEyhbW6vMpGzsJO3BPUrg4XGLSR3KT0bvxzWOE8gx +aP9SlbL1qV3FEd8I9JQs7GRQfi0w0a46T+DguzUzIpRdSpImvyxR91vtqbOa +8jt9ulDhMoHp8keufqfez+9lvY4rFw2HQwW3vKP8xd/FYwMPDbO6JPqaKB9a ++BbXtp6GHp0e5SWU9Y8GivwrSENV77Kx05TXjL0t4xSj4fF2705vyr1+dkY0 +aRrG+6Z46VAuHmju3U6noa8PXlxLOcxJ95DHJhpKjFyIfEetr/Hz8hXRyjR8 +M5O5upTy4MNs5XvaNIzV+rPFgHK5Dm/TawMatg5n/POH6q9oVozLNNKog4g6 +TyNlketBCUpW1PxZ4+ValD9LvBO1sKehQAhz7TjVv2SmfUXgbhpK9vyRLqBs +d0av75o3Def6TAJ+Uv0v86ficONeGlpPrbhSRHk8nM75fj8Nk04Wp1hSTt63 +dqtYGDXeTTI3ldpfj6ze/5WWTMMnloGZ/1H7M63FQbz8HA0Pb59kRVL2YLZW +tmfQ0DsgOJ2L8uLWO/1c+TQ8d3H6sqAvCRqC8aon2DRcrHX/wU3lA0fKXEtO +NQ2HSv7sOEXlxwvOA27VdTTcWfXJc8qThINzu858e0zDY/mS8+1U/hT1MQaC +3tJwwTP0kyuVT8ccLoec+UDDu94KpVVUnuHT9atvfKbhrXXZZuspv6+bVxuc +pGGpwrFV91yoehW0JTpx0tFnYapy0ImqlyhT6tgaOhqFAtAok+ls9vn1dHSW +X6jwofLSLiH33VNROqaFnVXqdaDqEXBIw0iZjk5F19rzqPxdVNowqLKbjgtD +MTczqPyez5eI3+ZGR1dWkNgtKt9n+eUZet50vLjh+6VaKv8nZ/QO7NhPxwPO +NU96TUgYqvOfdztFx/NTvWvHqe/HU6v7fMnFdLT5dF47RYfq94Z/2OdK6fiv +M5fcMW0qf1SfOWXeoSOzIE/dWYuEh0Kfcq/W0FGxZXPtxm3U8w/wbrr3nI5f +Pl/OO7aVysODXjA0R8fnmyofFDFIuPR+39CXJWq+Fj9PLzkSsuxCz0ws09HA +xEV3I51az23JHQs8ctjmIHkxWpaEhJ9sF34ZOXzfPCnMkKDWI2VViKGpHFod +SMQZPhIMy8oLL16Uww5Tm6Mp82wYIMoKdubJYZ1PizXvHBuiL96+Olsgh+5R +rR8SZ9hwP77kyq7bcnhZ8bFa1DR1HnAtzOGrl0OZWo184zE2bFmVlZ74SQ7d +/pXN3v+eOv94n4gLV2bgziGZBv4mNtzrjoqVV2fgnw+lZWaP2OBkGRnTrcXA +Ei3V46cesiFD6/hJDWDgXv0b+UO1bFi/7kjkpAMDRRv6/DPvsoGrxi8kMIKB +lgf9ms8XseGboKWPcxMD2Xzrn/08zYa+Q/TOA08YeLH64YrHCWx41LoEsc8Y +WGb14F1KHBvSo8tkb/UyUPHY4WTBk2xQG1r3YXGMgbPjLh85Q9kQzH7pmS8k +jy7qw4MRPmwYs9vt/nmvPOY4N5y9o8eGz6k+zse4FfCGrOEKcoQFwWPKdLV1 +CphRcOOA7DALfpgtTkxsUMAtnTMSKR9ZwMuZcWa/hAKK3jLf7TnAArWo5iof +FQUcLbjmONHJglMBCkJ2jgqod80wrb6OBSLbx18qFSigQ3zvfSKdBRZTERYj +2puwo7dteKcmC8b914RWxW7GgC+rP+req6T+V0RXJjVtQW0eQYbRUDkIPldI +Y00pYpwbozZmYxlIJd+x19ZWRtFmLQMegduQo6S3QShIBa9XRj39vOkmPJUw +0pq5sBV/mtnw+VsUg75UU7pqrypm7YjCbssbwMd5Pcw3QQ07c7wNXU5eA5l4 +WcM9CupY7DhnfFOnAHjkPap3PVHHxNFxq4naPNjKFL8T4amBmtnRq8IqcuDY +oGCzJcc25C60uK6cmw1TM6m7LXK24Un13GHp+QwwU23NtVDRRI2upCcel9Lh +4YzBzx8vNPFm5Lj12cRUCFbWePsqQAvVy8JtdxcmA3Nyb/ceHm38nq9onPP+ +NOxkiNmsv66NHwhhweqWeNgcdzaySUcHH+dxKFxWiwHFAL1G+bc6qMU//3xK +LgoCHu47XXVUF6+YdDboCR6HxsLuvd826uFeEeHbSlZHYfbW8g/V+3p4wDrx +d57dIfCXL+PJtdFHC+5xazf3IIh+7HVAwV4fZWa63AvMgiA9QLCD3KWPDStp +jd+3BUF9cVRqh4s+Ft+P9mtZFwTCCub8v331kV5XrCfYGAitCiPCPuH6+Ld1 +ubSDQiAobpYlFAr0cU8y873c8l74ppipTU7rYxNpmh3Y5wd9z3Cn0Iw+zhzh +vCfW7gePgicdw+b0sV3yYEFPjR+kkRZHtZf0kdg7UXckzw8U9TnKazkNsLuM +/wDD2w/8LA7TmkUMsLVNyunsqC90B5mt6zY0wJZLrIsynL7woOjnp7lkA9wQ +WvrBuNwLtE3CflimGOCUwNVR1UwvuPdpfF3hOQP0rZ4Y3hrtBaTMoI5lhgHK +BT1L8jP3gvKcR+eu5hmgmly2T8GIJxSmntEzqzTAPp3nJoFynvB3GP+FnC4D +ZF97vP5TmTu47ZBDAxlD7I8Zubtn0hV+d6/hayYMsXpbflXFG1coDJgcsJQz +xHO/nUaE/nGFfxNrItw2G+IOqYgSkSxXONZudydKwxDl0q84z+q7wlnbkzIP +TA0xRt99cVWqC9S69vzSPGKIUeuNmlUNnEHycFLN1keGiH80/CQ7HCFtOVAr +pckQmWx61UCNI6zMMGV/aTHE5xYRvrdvOcJY9arbhe2GuG9tctmhREeo5Tid +I9hliBee1PNmGDuCW1ZcxPyIIbY+zAu2b9gFOXVRWg/XMjFZufWQT70DbOQ9 +xLZxYeK30YKdyw12UGRyKnp6DxMlHwST3lftQONUmkmmBxP/k06yehdjB7bT +rJ4+XybufSlVsQXtILF3btH/EBMLVpq8FWyxhYXrscbR8UxUvN4RtO6VDbw1 +yOwqKWPihqLRTWuXrWDf8aIrFpVMPGo+kd82ZAXzlfcCxllMVBm+UVbQagWC +9L4f6tVMfMJVsz03zQqs1khLNTxioqezuESjrBXUd5fs7ephYqSIUny1qSVY +8j1QCe9j4nvvUQMuZUvoM2ufFxtg4t2Yxd0HBCxhtvZrstdHJuaF5rrHvrMA +lWtqFf+NMXGpdPHS01ALqH9rFJ46wcQ2UwXd/j0WYCnsCKrTTHTbP1CwDBYQ +mHT8VdgcE4887onOXGcBs48Sc0UXmCgqdreNY8YcEpYu+dcuMTFByiLzTL85 +bNC8rez5m4lZJRxttEfmcPVw7dzyMhPdV9s69ZSYw/8As9cg9g== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vu0fB3BFiYqM7HHu201lZGRz9/2i7Bkhe4SmFFmV9RSeSDJKJCpU +Vvd9krLSg0QayoiUijx5ZJURGn7n99d5vf+4znXO9/pen3Mdmt+RXQErOTg4 +aCs4OP5/nR9sb2GkFG2v03+YaRFjvL37qliUUV8CZP3as+fZPAG48aWfWF8G +PNp02Kd4Xg3C7UvfcPZdB7G/OqfPziMITIpmLL4hocn85rjvvD18qLc9Mvum +CdL88wwG53zAlDH2/tub11CVUNTxYSYEFt/oZE+/GYLwsLjw6a9x0Gxys+jV +9Rn4cmKjQOSpCyD1oeZfP+XfMN7fmVt58zIIH/Iu5TbhRL7UgzzZxYWQoW5a +Z7t7DbbPtsf6JRZBf47ao28b1iOzJvNGdN9NSCmKfblSXACPnaRVKwiWgWjW +8N+Z+ULIeVrum+zrChBTund6oUQI2y/f3pM+UAESTYmxniwhDPI+krP0uQJk +prcc39QshKuqFjPrf1SAvHWIT92oEMblMf3mpSphG9dv7eFtwtgfwueBgZVg +FybyWeOpMJ4u5NJVmK2EJCeL7a/nN2LRilRxrt93QKLqhcTKFSJ483jo68cr +WVAp5PRDfa0Ixr37q2cVNwt6X3uxLsiKYEeEbEY0PwsYDmF0B3MRjGW86tcm +WNBkU7C687IIfg/wtF5CFvw2nXvx3FAUGw8ZOJXGsiC9JLrst6koBovuFzj+ +FzV+NUeyioMoCrjYrDBMYoH1Y16jcwGiWN+1I/JhGgtyTYi71mmi+GssrT47 +nwW6aHWp44Moyh5mhpyrZUGo3jXv9gQxtH9x3KPwGwssC/lmrVLF0K3+0IsH +syygc59MfpEthmTPwNfnP1jQ2e3M7rolhivoU5snf7Nga8g6zsEXYqgl/bB0 +NS8bRksiSr5LiKP6W6knl2hs8BC2nZC8K45ig4kH9W3ZsO1EXfzVenFM5iLN +Ru3ZwDu0WYTWKo6SdY0vMxzZUHOHExT6xXFFVu/we1c2iFjVpKsti6OzdbiM +tT8bOuMZmjutJDBTinsuOYINO6aWooOHJZBIbxM/k8+GKPMsxX/GJdBle6Vd +QwEbKq+pvBWal0DGWT6X79fYIObko1ezRhLd1HgGdpWwYfzB4x+cWyWRIXO9 +YaKSDZkJ6WGXIyVR4sZOmZRGNgxtVAhuWS+F/31N4QocZIPokUZpUVEpjAsR +e6/7kQ3Wba7P9xNSWHpL7fyaITZUR6co82+TwrVfjeOvjrDh7IfpsT2uUngs +6U1x0TgbNG7XBU1dl8IQqSl9iSU2xBs6+EroSuP9y7uEKwRJMPe6+l3HWBpV ++po79YVJ4Iv7+tdua2k8K5I20rKRhCvNZ0rSfaRxMsFR4oUYCQ8sa7+u/lsa +L1lNNFbJkDDtKhc+0y+NB1uSo7q2kHA/OoRb4LM03ogI/KOgRELMlYacrZPU ++JG6z+HKJKz76FK3f6UMHplh9q1VJWFTUCrHR0UZnA6fPMirSYLX8bmzz07I +YOmkRrcbkwT5S8ZSY2dk0KGFsz5sO0nV73wFd7oMFmw5z58CJET/2tJpXCSD +hf7nfpUbkZD9l9fGmmcy6Hvw4IrWnSR4FJeV9PbKIPZYuzWbkkB/sqAz+1EG +Z7vCGA1mJLB4M91U52SQ2zKUv8SChGcXnhQUS8vifpavk40NCZl3hdWbN8ni +7rqbVlttSXDr8W36qC6L1V2ratfakTAq9uuzpKksnjXmXq6zJ4GzUE0xI1gW +I0RN4bsjCfqVl6tiGmVR/of3zuo9JOx48+L3ZJssZg11vnV0I8GWg8vM+7Us +fmlXCZqk7L8ruB9GZPH8km2QhAcJpidosXGrCNSF16K2XiR08Nff0OUlMHoa +I7oo2xc5t03zEXgpZf71bm8S3J+nCPiKEchK/h7v4ENCiOz8DSMlAnkCTr5i ++JEwdze9bVGVQLlXBxUyKEebK02wNQmM/E/l1C/KZ476aNO3E0ha/tFo8yeB +d/VPt7fGBJYlRmZu2UtCem52bIYZgVJO+QtJlHObn7atdCCwnmztMgggQdY1 +YKJ2N4FLckyrC5SLxpcFQt0I7BkxejpM+c5GLfdhfwKDVYc+xQaSoFn6MjZv +H4EtYXMn2inXbj9Q5HiYwNHTicSGIBJaggommsMJ9I0VT82ibPFLT/DkCQIt +53KcXlN+kd6trRlHoIr1BcX1+0hwkj/iPn6aQHORZr6dlPtreOKK/iZQKX9q +RTRlL9uiIo80AjU/9XGVU/48tL1dOJNAwctGYgOUJ9eGCZ65QuD9joJQtf0k +hBby6TCvEbgKZBqcKS9o3nafKyaQKbJVIppyTLtJXEUpgZienZJLmdNrsCjg +DoGmBZKCDygnf49sl64iMGA0qfI1Zb4kocmeBwRyN1/3HaOcKVkpmNZAYISu +lvIyZTGWuY5pE4GunDz8AgdIyN8x7P6nlcBN50d5Ccr0/lNx1R0ENvy4SihT +vnVYrDi4k8BnaxbstSirrLzbrtBDoBvz0RUDyuRFm8nBfgJtGlu4gLKu0qjg +pUECPwV2/f1/NzQm6NgNEyhbW6vMpGzsJO3BPUrg4XGLSR3KT0bvxzWOE8gx +aP9SlbL1qV3FEd8I9JQs7GRQfi0w0a46T+DguzUzIpRdSpImvyxR91vtqbOa +8jt9ulDhMoHp8keufqfez+9lvY4rFw2HQwW3vKP8xd/FYwMPDbO6JPqaKB9a ++BbXtp6GHp0e5SWU9Y8GivwrSENV77Kx05TXjL0t4xSj4fF2705vyr1+dkY0 +aRrG+6Z46VAuHmju3U6noa8PXlxLOcxJ95DHJhpKjFyIfEetr/Hz8hXRyjR8 +M5O5upTy4MNs5XvaNIzV+rPFgHK5Dm/TawMatg5n/POH6q9oVozLNNKog4g6 +TyNlketBCUpW1PxZ4+ValD9LvBO1sKehQAhz7TjVv2SmfUXgbhpK9vyRLqBs +d0av75o3Def6TAJ+Uv0v86ficONeGlpPrbhSRHk8nM75fj8Nk04Wp1hSTt63 +dqtYGDXeTTI3ldpfj6ze/5WWTMMnloGZ/1H7M63FQbz8HA0Pb59kRVL2YLZW +tmfQ0DsgOJ2L8uLWO/1c+TQ8d3H6sqAvCRqC8aon2DRcrHX/wU3lA0fKXEtO +NQ2HSv7sOEXlxwvOA27VdTTcWfXJc8qThINzu858e0zDY/mS8+1U/hT1MQaC +3tJwwTP0kyuVT8ccLoec+UDDu94KpVVUnuHT9atvfKbhrXXZZuspv6+bVxuc +pGGpwrFV91yoehW0JTpx0tFnYapy0ImqlyhT6tgaOhqFAtAok+ls9vn1dHSW +X6jwofLSLiH33VNROqaFnVXqdaDqEXBIw0iZjk5F19rzqPxdVNowqLKbjgtD +MTczqPyez5eI3+ZGR1dWkNgtKt9n+eUZet50vLjh+6VaKv8nZ/QO7NhPxwPO +NU96TUgYqvOfdztFx/NTvWvHqe/HU6v7fMnFdLT5dF47RYfq94Z/2OdK6fiv +M5fcMW0qf1SfOWXeoSOzIE/dWYuEh0Kfcq/W0FGxZXPtxm3U8w/wbrr3nI5f +Pl/OO7aVysODXjA0R8fnmyofFDFIuPR+39CXJWq+Fj9PLzkSsuxCz0ws09HA +xEV3I51az23JHQs8ctjmIHkxWpaEhJ9sF34ZOXzfPCnMkKDWI2VViKGpHFod +SMQZPhIMy8oLL16Uww5Tm6Mp82wYIMoKdubJYZ1PizXvHBuiL96+Olsgh+5R +rR8SZ9hwP77kyq7bcnhZ8bFa1DR1HnAtzOGrl0OZWo184zE2bFmVlZ74SQ7d +/pXN3v+eOv94n4gLV2bgziGZBv4mNtzrjoqVV2fgnw+lZWaP2OBkGRnTrcXA +Ei3V46cesiFD6/hJDWDgXv0b+UO1bFi/7kjkpAMDRRv6/DPvsoGrxi8kMIKB +lgf9ms8XseGboKWPcxMD2Xzrn/08zYa+Q/TOA08YeLH64YrHCWx41LoEsc8Y +WGb14F1KHBvSo8tkb/UyUPHY4WTBk2xQG1r3YXGMgbPjLh85Q9kQzH7pmS8k +jy7qw4MRPmwYs9vt/nmvPOY4N5y9o8eGz6k+zse4FfCGrOEKcoQFwWPKdLV1 +CphRcOOA7DALfpgtTkxsUMAtnTMSKR9ZwMuZcWa/hAKK3jLf7TnAArWo5iof +FQUcLbjmONHJglMBCkJ2jgqod80wrb6OBSLbx18qFSigQ3zvfSKdBRZTERYj +2puwo7dteKcmC8b914RWxW7GgC+rP+req6T+V0RXJjVtQW0eQYbRUDkIPldI +Y00pYpwbozZmYxlIJd+x19ZWRtFmLQMegduQo6S3QShIBa9XRj39vOkmPJUw +0pq5sBV/mtnw+VsUg75UU7pqrypm7YjCbssbwMd5Pcw3QQ07c7wNXU5eA5l4 +WcM9CupY7DhnfFOnAHjkPap3PVHHxNFxq4naPNjKFL8T4amBmtnRq8IqcuDY +oGCzJcc25C60uK6cmw1TM6m7LXK24Un13GHp+QwwU23NtVDRRI2upCcel9Lh +4YzBzx8vNPFm5Lj12cRUCFbWePsqQAvVy8JtdxcmA3Nyb/ceHm38nq9onPP+ +NOxkiNmsv66NHwhhweqWeNgcdzaySUcHH+dxKFxWiwHFAL1G+bc6qMU//3xK +LgoCHu47XXVUF6+YdDboCR6HxsLuvd826uFeEeHbSlZHYfbW8g/V+3p4wDrx +d57dIfCXL+PJtdFHC+5xazf3IIh+7HVAwV4fZWa63AvMgiA9QLCD3KWPDStp +jd+3BUF9cVRqh4s+Ft+P9mtZFwTCCub8v331kV5XrCfYGAitCiPCPuH6+Ld1 +ubSDQiAobpYlFAr0cU8y873c8l74ppipTU7rYxNpmh3Y5wd9z3Cn0Iw+zhzh +vCfW7gePgicdw+b0sV3yYEFPjR+kkRZHtZf0kdg7UXckzw8U9TnKazkNsLuM +/wDD2w/8LA7TmkUMsLVNyunsqC90B5mt6zY0wJZLrIsynL7woOjnp7lkA9wQ +WvrBuNwLtE3CflimGOCUwNVR1UwvuPdpfF3hOQP0rZ4Y3hrtBaTMoI5lhgHK +BT1L8jP3gvKcR+eu5hmgmly2T8GIJxSmntEzqzTAPp3nJoFynvB3GP+FnC4D +ZF97vP5TmTu47ZBDAxlD7I8Zubtn0hV+d6/hayYMsXpbflXFG1coDJgcsJQz +xHO/nUaE/nGFfxNrItw2G+IOqYgSkSxXONZudydKwxDl0q84z+q7wlnbkzIP +TA0xRt99cVWqC9S69vzSPGKIUeuNmlUNnEHycFLN1keGiH80/CQ7HCFtOVAr +pckQmWx61UCNI6zMMGV/aTHE5xYRvrdvOcJY9arbhe2GuG9tctmhREeo5Tid +I9hliBee1PNmGDuCW1ZcxPyIIbY+zAu2b9gFOXVRWg/XMjFZufWQT70DbOQ9 +xLZxYeK30YKdyw12UGRyKnp6DxMlHwST3lftQONUmkmmBxP/k06yehdjB7bT +rJ4+XybufSlVsQXtILF3btH/EBMLVpq8FWyxhYXrscbR8UxUvN4RtO6VDbw1 +yOwqKWPihqLRTWuXrWDf8aIrFpVMPGo+kd82ZAXzlfcCxllMVBm+UVbQagWC +9L4f6tVMfMJVsz03zQqs1khLNTxioqezuESjrBXUd5fs7ephYqSIUny1qSVY +8j1QCe9j4nvvUQMuZUvoM2ufFxtg4t2Yxd0HBCxhtvZrstdHJuaF5rrHvrMA +lWtqFf+NMXGpdPHS01ALqH9rFJ46wcQ2UwXd/j0WYCnsCKrTTHTbP1CwDBYQ +mHT8VdgcE4887onOXGcBs48Sc0UXmCgqdreNY8YcEpYu+dcuMTFByiLzTL85 +bNC8rez5m4lZJRxttEfmcPVw7dzyMhPdV9s69ZSYw/8As9cg9g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07193371882331291}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.07193371882331291}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c8Vu0fB3BFiYqM7HHu201lZGRz9/2i7Bkhe4SmFFmV9RSeSDJKJCpU +Vvd9krLSg0QayoiUijx5ZJURGn7n99d5vf+4znXO9/pen3Mdmt+RXQErOTg4 +aCs4OP5/nR9sb2GkFG2v03+YaRFjvL37qliUUV8CZP3as+fZPAG48aWfWF8G +PNp02Kd4Xg3C7UvfcPZdB7G/OqfPziMITIpmLL4hocn85rjvvD18qLc9Mvum +CdL88wwG53zAlDH2/tub11CVUNTxYSYEFt/oZE+/GYLwsLjw6a9x0Gxys+jV +9Rn4cmKjQOSpCyD1oeZfP+XfMN7fmVt58zIIH/Iu5TbhRL7UgzzZxYWQoW5a +Z7t7DbbPtsf6JRZBf47ao28b1iOzJvNGdN9NSCmKfblSXACPnaRVKwiWgWjW +8N+Z+ULIeVrum+zrChBTund6oUQI2y/f3pM+UAESTYmxniwhDPI+krP0uQJk +prcc39QshKuqFjPrf1SAvHWIT92oEMblMf3mpSphG9dv7eFtwtgfwueBgZVg +FybyWeOpMJ4u5NJVmK2EJCeL7a/nN2LRilRxrt93QKLqhcTKFSJ483jo68cr +WVAp5PRDfa0Ixr37q2cVNwt6X3uxLsiKYEeEbEY0PwsYDmF0B3MRjGW86tcm +WNBkU7C687IIfg/wtF5CFvw2nXvx3FAUGw8ZOJXGsiC9JLrst6koBovuFzj+ +FzV+NUeyioMoCrjYrDBMYoH1Y16jcwGiWN+1I/JhGgtyTYi71mmi+GssrT47 +nwW6aHWp44Moyh5mhpyrZUGo3jXv9gQxtH9x3KPwGwssC/lmrVLF0K3+0IsH +syygc59MfpEthmTPwNfnP1jQ2e3M7rolhivoU5snf7Nga8g6zsEXYqgl/bB0 +NS8bRksiSr5LiKP6W6knl2hs8BC2nZC8K45ig4kH9W3ZsO1EXfzVenFM5iLN +Ru3ZwDu0WYTWKo6SdY0vMxzZUHOHExT6xXFFVu/we1c2iFjVpKsti6OzdbiM +tT8bOuMZmjutJDBTinsuOYINO6aWooOHJZBIbxM/k8+GKPMsxX/GJdBle6Vd +QwEbKq+pvBWal0DGWT6X79fYIObko1ezRhLd1HgGdpWwYfzB4x+cWyWRIXO9 +YaKSDZkJ6WGXIyVR4sZOmZRGNgxtVAhuWS+F/31N4QocZIPokUZpUVEpjAsR +e6/7kQ3Wba7P9xNSWHpL7fyaITZUR6co82+TwrVfjeOvjrDh7IfpsT2uUngs +6U1x0TgbNG7XBU1dl8IQqSl9iSU2xBs6+EroSuP9y7uEKwRJMPe6+l3HWBpV ++po79YVJ4Iv7+tdua2k8K5I20rKRhCvNZ0rSfaRxMsFR4oUYCQ8sa7+u/lsa +L1lNNFbJkDDtKhc+0y+NB1uSo7q2kHA/OoRb4LM03ogI/KOgRELMlYacrZPU ++JG6z+HKJKz76FK3f6UMHplh9q1VJWFTUCrHR0UZnA6fPMirSYLX8bmzz07I +YOmkRrcbkwT5S8ZSY2dk0KGFsz5sO0nV73wFd7oMFmw5z58CJET/2tJpXCSD +hf7nfpUbkZD9l9fGmmcy6Hvw4IrWnSR4FJeV9PbKIPZYuzWbkkB/sqAz+1EG +Z7vCGA1mJLB4M91U52SQ2zKUv8SChGcXnhQUS8vifpavk40NCZl3hdWbN8ni +7rqbVlttSXDr8W36qC6L1V2ratfakTAq9uuzpKksnjXmXq6zJ4GzUE0xI1gW +I0RN4bsjCfqVl6tiGmVR/of3zuo9JOx48+L3ZJssZg11vnV0I8GWg8vM+7Us +fmlXCZqk7L8ruB9GZPH8km2QhAcJpidosXGrCNSF16K2XiR08Nff0OUlMHoa +I7oo2xc5t03zEXgpZf71bm8S3J+nCPiKEchK/h7v4ENCiOz8DSMlAnkCTr5i ++JEwdze9bVGVQLlXBxUyKEebK02wNQmM/E/l1C/KZ476aNO3E0ha/tFo8yeB +d/VPt7fGBJYlRmZu2UtCem52bIYZgVJO+QtJlHObn7atdCCwnmztMgggQdY1 +YKJ2N4FLckyrC5SLxpcFQt0I7BkxejpM+c5GLfdhfwKDVYc+xQaSoFn6MjZv +H4EtYXMn2inXbj9Q5HiYwNHTicSGIBJaggommsMJ9I0VT82ibPFLT/DkCQIt +53KcXlN+kd6trRlHoIr1BcX1+0hwkj/iPn6aQHORZr6dlPtreOKK/iZQKX9q +RTRlL9uiIo80AjU/9XGVU/48tL1dOJNAwctGYgOUJ9eGCZ65QuD9joJQtf0k +hBby6TCvEbgKZBqcKS9o3nafKyaQKbJVIppyTLtJXEUpgZienZJLmdNrsCjg +DoGmBZKCDygnf49sl64iMGA0qfI1Zb4kocmeBwRyN1/3HaOcKVkpmNZAYISu +lvIyZTGWuY5pE4GunDz8AgdIyN8x7P6nlcBN50d5Ccr0/lNx1R0ENvy4SihT +vnVYrDi4k8BnaxbstSirrLzbrtBDoBvz0RUDyuRFm8nBfgJtGlu4gLKu0qjg +pUECPwV2/f1/NzQm6NgNEyhbW6vMpGzsJO3BPUrg4XGLSR3KT0bvxzWOE8gx +aP9SlbL1qV3FEd8I9JQs7GRQfi0w0a46T+DguzUzIpRdSpImvyxR91vtqbOa +8jt9ulDhMoHp8keufqfez+9lvY4rFw2HQwW3vKP8xd/FYwMPDbO6JPqaKB9a ++BbXtp6GHp0e5SWU9Y8GivwrSENV77Kx05TXjL0t4xSj4fF2705vyr1+dkY0 +aRrG+6Z46VAuHmju3U6noa8PXlxLOcxJ95DHJhpKjFyIfEetr/Hz8hXRyjR8 +M5O5upTy4MNs5XvaNIzV+rPFgHK5Dm/TawMatg5n/POH6q9oVozLNNKog4g6 +TyNlketBCUpW1PxZ4+ValD9LvBO1sKehQAhz7TjVv2SmfUXgbhpK9vyRLqBs +d0av75o3Def6TAJ+Uv0v86ficONeGlpPrbhSRHk8nM75fj8Nk04Wp1hSTt63 +dqtYGDXeTTI3ldpfj6ze/5WWTMMnloGZ/1H7M63FQbz8HA0Pb59kRVL2YLZW +tmfQ0DsgOJ2L8uLWO/1c+TQ8d3H6sqAvCRqC8aon2DRcrHX/wU3lA0fKXEtO +NQ2HSv7sOEXlxwvOA27VdTTcWfXJc8qThINzu858e0zDY/mS8+1U/hT1MQaC +3tJwwTP0kyuVT8ccLoec+UDDu94KpVVUnuHT9atvfKbhrXXZZuspv6+bVxuc +pGGpwrFV91yoehW0JTpx0tFnYapy0ImqlyhT6tgaOhqFAtAok+ls9vn1dHSW +X6jwofLSLiH33VNROqaFnVXqdaDqEXBIw0iZjk5F19rzqPxdVNowqLKbjgtD +MTczqPyez5eI3+ZGR1dWkNgtKt9n+eUZet50vLjh+6VaKv8nZ/QO7NhPxwPO +NU96TUgYqvOfdztFx/NTvWvHqe/HU6v7fMnFdLT5dF47RYfq94Z/2OdK6fiv +M5fcMW0qf1SfOWXeoSOzIE/dWYuEh0Kfcq/W0FGxZXPtxm3U8w/wbrr3nI5f +Pl/OO7aVysODXjA0R8fnmyofFDFIuPR+39CXJWq+Fj9PLzkSsuxCz0ws09HA +xEV3I51az23JHQs8ctjmIHkxWpaEhJ9sF34ZOXzfPCnMkKDWI2VViKGpHFod +SMQZPhIMy8oLL16Uww5Tm6Mp82wYIMoKdubJYZ1PizXvHBuiL96+Olsgh+5R +rR8SZ9hwP77kyq7bcnhZ8bFa1DR1HnAtzOGrl0OZWo184zE2bFmVlZ74SQ7d +/pXN3v+eOv94n4gLV2bgziGZBv4mNtzrjoqVV2fgnw+lZWaP2OBkGRnTrcXA +Ei3V46cesiFD6/hJDWDgXv0b+UO1bFi/7kjkpAMDRRv6/DPvsoGrxi8kMIKB +lgf9ms8XseGboKWPcxMD2Xzrn/08zYa+Q/TOA08YeLH64YrHCWx41LoEsc8Y +WGb14F1KHBvSo8tkb/UyUPHY4WTBk2xQG1r3YXGMgbPjLh85Q9kQzH7pmS8k +jy7qw4MRPmwYs9vt/nmvPOY4N5y9o8eGz6k+zse4FfCGrOEKcoQFwWPKdLV1 +CphRcOOA7DALfpgtTkxsUMAtnTMSKR9ZwMuZcWa/hAKK3jLf7TnAArWo5iof +FQUcLbjmONHJglMBCkJ2jgqod80wrb6OBSLbx18qFSigQ3zvfSKdBRZTERYj +2puwo7dteKcmC8b914RWxW7GgC+rP+req6T+V0RXJjVtQW0eQYbRUDkIPldI +Y00pYpwbozZmYxlIJd+x19ZWRtFmLQMegduQo6S3QShIBa9XRj39vOkmPJUw +0pq5sBV/mtnw+VsUg75UU7pqrypm7YjCbssbwMd5Pcw3QQ07c7wNXU5eA5l4 +WcM9CupY7DhnfFOnAHjkPap3PVHHxNFxq4naPNjKFL8T4amBmtnRq8IqcuDY +oGCzJcc25C60uK6cmw1TM6m7LXK24Un13GHp+QwwU23NtVDRRI2upCcel9Lh +4YzBzx8vNPFm5Lj12cRUCFbWePsqQAvVy8JtdxcmA3Nyb/ceHm38nq9onPP+ +NOxkiNmsv66NHwhhweqWeNgcdzaySUcHH+dxKFxWiwHFAL1G+bc6qMU//3xK +LgoCHu47XXVUF6+YdDboCR6HxsLuvd826uFeEeHbSlZHYfbW8g/V+3p4wDrx +d57dIfCXL+PJtdFHC+5xazf3IIh+7HVAwV4fZWa63AvMgiA9QLCD3KWPDStp +jd+3BUF9cVRqh4s+Ft+P9mtZFwTCCub8v331kV5XrCfYGAitCiPCPuH6+Ld1 +ubSDQiAobpYlFAr0cU8y873c8l74ppipTU7rYxNpmh3Y5wd9z3Cn0Iw+zhzh +vCfW7gePgicdw+b0sV3yYEFPjR+kkRZHtZf0kdg7UXckzw8U9TnKazkNsLuM +/wDD2w/8LA7TmkUMsLVNyunsqC90B5mt6zY0wJZLrIsynL7woOjnp7lkA9wQ +WvrBuNwLtE3CflimGOCUwNVR1UwvuPdpfF3hOQP0rZ4Y3hrtBaTMoI5lhgHK +BT1L8jP3gvKcR+eu5hmgmly2T8GIJxSmntEzqzTAPp3nJoFynvB3GP+FnC4D +ZF97vP5TmTu47ZBDAxlD7I8Zubtn0hV+d6/hayYMsXpbflXFG1coDJgcsJQz +xHO/nUaE/nGFfxNrItw2G+IOqYgSkSxXONZudydKwxDl0q84z+q7wlnbkzIP +TA0xRt99cVWqC9S69vzSPGKIUeuNmlUNnEHycFLN1keGiH80/CQ7HCFtOVAr +pckQmWx61UCNI6zMMGV/aTHE5xYRvrdvOcJY9arbhe2GuG9tctmhREeo5Tid +I9hliBee1PNmGDuCW1ZcxPyIIbY+zAu2b9gFOXVRWg/XMjFZufWQT70DbOQ9 +xLZxYeK30YKdyw12UGRyKnp6DxMlHwST3lftQONUmkmmBxP/k06yehdjB7bT +rJ4+XybufSlVsQXtILF3btH/EBMLVpq8FWyxhYXrscbR8UxUvN4RtO6VDbw1 +yOwqKWPihqLRTWuXrWDf8aIrFpVMPGo+kd82ZAXzlfcCxllMVBm+UVbQagWC +9L4f6tVMfMJVsz03zQqs1khLNTxioqezuESjrBXUd5fs7ephYqSIUny1qSVY +8j1QCe9j4nvvUQMuZUvoM2ufFxtg4t2Yxd0HBCxhtvZrstdHJuaF5rrHvrMA +lWtqFf+NMXGpdPHS01ALqH9rFJ46wcQ2UwXd/j0WYCnsCKrTTHTbP1CwDBYQ +mHT8VdgcE4887onOXGcBs48Sc0UXmCgqdreNY8YcEpYu+dcuMTFByiLzTL85 +bNC8rez5m4lZJRxttEfmcPVw7dzyMhPdV9s69ZSYw/8As9cg9g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07193371882331291}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6156,7 +11575,8 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07193371882331291}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6164,18 +11584,11 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913306567510605`*^9}, + CellChangeTimes->{3.99392042951689*^9}, CellLabel-> - "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] + "Out[120]=",ExpressionUUID->"4402369c-39a1-4f9e-82da-efa5d24c8045"] }, Open ]], -Cell[BoxData[ - RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ -6bd251746ea6"], - Cell[CellGroupData[{ Cell[BoxData[ @@ -6226,66 +11639,73 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + "In[121]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752212366*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.239337122414287`*^-150\\\", \ +\\\"69238826530408296215524170450262985254393227649879656331132480623524049891\ +766697382785887060188063384494795553340756316369516704730972160000000000000000\ +000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 121, 133, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993920429572124*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +In[121]:=",ExpressionUUID->"4e70874d-9bec-43d0-bd75-7f89496138ce"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133175222237*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6987157529147114`*^-152\\\", \ +\\\"25763767351964927021796543824542856813159720008520220120814396040013298964\ +726388096134628575095978385370513425398095425321097165830394740736000000000000\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 121, 134, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993920429581819*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +In[121]:=",ExpressionUUID->"02f36ddf-60ee-495c-ad83-5b51be08e0b8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ -\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ -2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317522303677`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.839384293691745`*^-155\\\", \ +\\\"99035921700953179471785914461542741589785963712751726144410538377811121220\ +408235841541512242668940913364253607230278814934297505452037383389184000000000\ +0000000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 121, 135, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.9939204295907393`*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +In[121]:=",ExpressionUUID->"938d555b-11f6-4ede-8286-e1f952bdba9c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752237467*^9}, +during this calculation.\"", 2, 121, 136, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.9939204295996933`*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +In[121]:=",ExpressionUUID->"b519364f-9db4-45de-b11c-a698ec534ea2"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.991331759108553*^9}, +Cell[BoxData["11.28756149998377`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.993920478737664*^9}, CellLabel-> - "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] + "Out[121]=",ExpressionUUID->"f3d02d00-eda7-4834-bd0b-6b88720114a9"] }, Open ]], Cell[CellGroupData[{ @@ -6352,68 +11772,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849016830597*^9, - 3.991849020984995*^9}},ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-\ -7a397847208f"], + CellChangeTimes->{{3.991849016830597*^9, 3.991849020984995*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 169, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591425533`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.505522336022791`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 122, 137, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.9939204787948627`*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +In[122]:=",ExpressionUUID->"b88e2b48-95c7-4717-ba40-c57a60632a66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 170, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591525517`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.799857274926327`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 138, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.9939204788011007`*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +In[122]:=",ExpressionUUID->"773d4c35-332a-4d3b-95c0-2fecc1b6ff46"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 200, 171, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331759160553*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.190034736271784`*^-244\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 139, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.993920478807191*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +In[122]:=",ExpressionUUID->"8fd40fd6-017f-4a21-9216-37449fe22402"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591685543`*^9}, +during this calculation.\"", 2, 122, 140, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.9939204788133097`*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +In[122]:=",ExpressionUUID->"ec22d574-4e82-4846-9125-d797e20e7850"], -Cell[BoxData["1.044718879268698`"], "Output", - CellChangeTimes->{3.991331766558941*^9}, +Cell[BoxData["0.009872416542657508`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.9939204846699553`*^9}, CellLabel-> - "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] + "Out[122]=",ExpressionUUID->"230076a9-e046-4a37-a9d0-a2c1401d787e"] }, Open ]], Cell[CellGroupData[{ @@ -6434,8 +11857,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6480,68 +11902,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849024657757*^9, - 3.991849027138817*^9}},ExpressionUUID->"22b50200-0b82-dc47-9932-\ -f1f0210d6caf"], + CellChangeTimes->{{3.991849024657757*^9, 3.991849027138817*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 173, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317665951805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.505522336022791`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 123, 141, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.993920484711128*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +In[123]:=",ExpressionUUID->"c2dca38f-d04c-43d6-b6c3-0a9d52dc6986"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 174, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666041794`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.799857274926327`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 142, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.99392048471898*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +In[123]:=",ExpressionUUID->"1a93eb83-a2eb-47ad-91dd-f481bce1cfc7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 201, 175, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666131783`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.190034736271784`*^-244\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 143, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.993920484726318*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +In[123]:=",ExpressionUUID->"45d5e777-2d39-4ca8-b182-3cab2a22ffc0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666211815`*^9}, +during this calculation.\"", 2, 123, 144, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.993920484732768*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +In[123]:=",ExpressionUUID->"c779b1a7-d9cd-4d82-9928-94fb76bd357c"], -Cell[BoxData["4.7987767072565894`"], "Output", - CellChangeTimes->{3.991331773590704*^9}, +Cell[BoxData["30.514328408567053`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.993920490211618*^9}, CellLabel-> - "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] + "Out[123]=",ExpressionUUID->"52b23705-bcec-4c84-83ba-4741837817ce"] }, Open ]], Cell[CellGroupData[{ @@ -6562,8 +11987,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6608,68 +12032,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849031047804*^9, - 3.9918490341764317`*^9}},ExpressionUUID->"8a5105db-666c-444e-9451-\ -d3e8d1574bcd"], + CellChangeTimes->{{3.991849031047804*^9, 3.9918490341764317`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 177, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736257057`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.505522336022791`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 124, 145, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993920490251864*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +In[124]:=",ExpressionUUID->"eb5d324c-cf08-4b2c-81dd-96135fdf0599"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 178, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736361847`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.799857274926327`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 146, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.9939204902590017`*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +In[124]:=",ExpressionUUID->"70e7fd4a-6d9e-4f27-9676-bc59d0c29d3d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 202, 179, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773644182*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.190034736271784`*^-244\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 147, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993920490268482*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +In[124]:=",ExpressionUUID->"4b1eb727-4d06-4d40-a40b-a4bfea1a67c2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773653183*^9}, +during this calculation.\"", 2, 124, 148, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993920490276841*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +In[124]:=",ExpressionUUID->"f94177e0-85f3-4229-bc56-f60c447e14e5"], -Cell[BoxData["15.12281532960454`"], "Output", - CellChangeTimes->{3.991331777337887*^9}, +Cell[BoxData["3.795417217798062`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.9939204938001127`*^9}, CellLabel-> - "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] + "Out[124]=",ExpressionUUID->"5561db25-ae56-4ee3-9b2c-6850fbd99716"] }, Open ]], Cell[CellGroupData[{ @@ -6678,22 +12105,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918490375675926`*^9, - 3.991849040901537*^9}},ExpressionUUID->"d0efa798-230b-fa46-b413-\ -76bfd8e40ccb"], - -Cell[BoxData["0.12263596348954131`"], "Output", - CellChangeTimes->{3.9913317773679104`*^9}, + CellChangeTimes->{{3.9918490375675926`*^9, 3.991849040901537*^9}}, CellLabel-> - "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] + "In[125]:=",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], + +Cell[BoxData["0.0009173642285584136`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.9939204938333673`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"aae57713-c626-46a3-8425-d5d65ba5a4d4"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9}, - 3.9919249287922287`*^9},ExpressionUUID->"f842f74e-f562-934a-9011-\ -6604b8708636"], + 3.9919249287922287`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ @@ -6716,12 +12144,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + "In[127]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.9913317774008274`*^9}, +Cell[BoxData["14.782524307790979`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.99392049385011*^9}, CellLabel-> - "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] + "Out[127]=",ExpressionUUID->"7b9c3b2e-48cf-4fa6-9612-e3ca490cb184"] }, Open ]], Cell[CellGroupData[{ @@ -6731,12 +12159,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + "In[128]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.9913317774358253`*^9}, +Cell[BoxData["1.3697961534241638`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.993920493859333*^9}, CellLabel-> - "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] + "Out[128]=",ExpressionUUID->"3720b5ba-089a-4e6a-aabd-2f001591087d"] }, Open ]], Cell[CellGroupData[{ @@ -6746,12 +12174,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + "In[129]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.991331777510603*^9}, +Cell[BoxData["20.249044934711282`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.993920493868291*^9}, CellLabel-> - "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] + "Out[129]=",ExpressionUUID->"b0b8dfe1-112b-4d11-9fdf-6f85c88357b7"] }, Open ]], Cell[CellGroupData[{ @@ -6941,12 +12369,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + "In[130]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[BoxData["0.041096786108657246`"], "Output", - CellChangeTimes->{3.991331777537592*^9}, +Cell[BoxData["0.006801245757986301`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.993920493879857*^9}, CellLabel-> - "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] + "Out[130]=",ExpressionUUID->"2a638ef6-70b6-4f84-9ef5-66d50300b452"] }, Open ]], Cell[CellGroupData[{ @@ -6960,12 +12388,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + "In[131]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[BoxData["4.371605972693579`"], "Output", - CellChangeTimes->{3.9913317776362495`*^9}, +Cell[BoxData["10.746095768732943`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.993920493978105*^9}, CellLabel-> - "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] + "Out[131]=",ExpressionUUID->"ff5707e3-9bdf-4f90-a708-749e25684d6c"] }, Open ]], Cell[CellGroupData[{ @@ -7157,12 +12585,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + "In[132]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[BoxData["0.013804398425195999`"], "Output", - CellChangeTimes->{3.9913317776511555`*^9}, +Cell[BoxData["0.044390566276676306`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.9939204939897757`*^9}, CellLabel-> - "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] + "Out[132]=",ExpressionUUID->"24861b10-febd-4d8d-92dd-3f950070d2d6"] }, Open ]], Cell[CellGroupData[{ @@ -7176,12 +12604,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + "In[133]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[BoxData["7.5428626210616345`"], "Output", - CellChangeTimes->{3.991331777742655*^9}, +Cell[BoxData["4.20629374369829`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.993920494086*^9}, CellLabel-> - "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] + "Out[133]=",ExpressionUUID->"2cb97e6d-a77e-4d2f-8922-10417bc59680"] }, Open ]], Cell[CellGroupData[{ @@ -7274,12 +12702,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + "In[134]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913317777546787`*^9}, +Cell[BoxData["0.11820585579367623`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.9939204940967007`*^9}, CellLabel-> - "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] + "Out[134]=",ExpressionUUID->"64d0f3e9-ec14-41f0-9234-4849213b226c"] }, Open ]], Cell[CellGroupData[{ @@ -7369,12 +12797,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + "In[135]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991331777779663*^9}, +Cell[BoxData["0.8817941442063238`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.9939204941071167`*^9}, CellLabel-> - "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] + "Out[135]=",ExpressionUUID->"4c18f581-f307-449f-9f40-909ecbc6cc76"] }, Open ]], Cell[CellGroupData[{ @@ -7497,12 +12925,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + "In[136]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913317778036633`*^9}, +Cell[BoxData["0.10423323144976085`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.9939204941190557`*^9}, CellLabel-> - "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] + "Out[136]=",ExpressionUUID->"dbe7992a-eeb6-46cf-b516-d28c3ab2eee5"] }, Open ]], Cell[CellGroupData[{ @@ -7564,68 +12992,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918490946810665`*^9},ExpressionUUID->"1dec41a6-6752-2041-9d38-\ -804123b5ccd0"], + CellChangeTimes->{3.9918490946810665`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 218, 181, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778296604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3805592273277413`*^-223\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 137, 149, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993920494131114*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +In[137]:=",ExpressionUUID->"ed16e663-a9b4-42ee-8ebe-6f89ecaaf984"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 182, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777838663*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2829064707633195`*^-229\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 137, 150, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993920494137374*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +In[137]:=",ExpressionUUID->"29237ad0-bf7e-46e3-b4fd-f920034e67f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 183, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778466587`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.188074567265912`*^-235\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 137, 151, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993920494143238*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +In[137]:=",ExpressionUUID->"a5c99519-d283-455b-aa90-cf3cf25cc5e8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777854885*^9}, +during this calculation.\"", 2, 137, 152, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993920494149316*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +In[137]:=",ExpressionUUID->"08151cca-2e51-485a-a19a-f6fb4e2c2e45"], -Cell[BoxData["4.37160597269358`"], "Output", - CellChangeTimes->{3.991331781456501*^9}, +Cell[BoxData["10.746095768732943`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.993920497338285*^9}, CellLabel-> - "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] + "Out[137]=",ExpressionUUID->"ceb2cf16-991d-48d5-920b-de394bf83731"] }, Open ]], Cell[CellGroupData[{ @@ -7687,67 +13119,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99184909912471*^9},ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], + CellChangeTimes->{3.99184909912471*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 219, 185, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331781491499*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3805592273277413`*^-223\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 153, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.9939204973764544`*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +In[138]:=",ExpressionUUID->"adea8d5e-73a7-419b-91fc-d781b997afa3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 186, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815004997`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2829064707633195`*^-229\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 154, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993920497385516*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +In[138]:=",ExpressionUUID->"39d27a57-34cb-4c04-b9e0-ff5301aa9fe8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 187, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815094967`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.188074567265912`*^-235\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 138, 155, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.9939204973920116`*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +In[138]:=",ExpressionUUID->"67e0f902-b35e-4315-a272-537ee7b62b5a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815164986`*^9}, +during this calculation.\"", 2, 138, 156, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993920497398027*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +In[138]:=",ExpressionUUID->"aa94e175-f401-4859-9c2f-5621372beb3e"], -Cell[BoxData["7.54286262106163`"], "Output", - CellChangeTimes->{3.9913317851500416`*^9}, +Cell[BoxData["4.206293743698292`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.9939205006713448`*^9}, CellLabel-> - "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] + "Out[138]=",ExpressionUUID->"7c1f91ed-5b6b-4271-ab07-57da10ab9ba6"] }, Open ]], Cell[CellGroupData[{ @@ -7805,93 +13242,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918491043389053`*^9},ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-\ -b799ae260294"], + CellChangeTimes->{3.9918491043389053`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV03k8FesfB3BLWmxZrqVkXwqJHJSS55u17KSQshwzY98lUlRIRbLUTYsO +ouxLVEJytVxJ6Uolv6xZig7niCwtfs/5Y17zer+emc98nvnOKNJDnUgeLi4u +Jj445/DXWzY+ePPaeNJdyvLabiYynirUp5uVIyRofpDjQYbBJRWzJvTnVUc2 +xw7Eq5WCtGdoK6PyO8c1MQlP+Mw6kNXxidjr2OeeS7cklP6HsrxOqt3Afvgm +/OYv3Xeo0DxskeOJ3vbjsY09aKNKw0wu9vpRZfcfpp/Q5MxhMQa29fRxw8iO +AdRwx901D7v514RATOkQGjWofZqP/f6UVNz9kM8IsgmXW9hTK80mZnVHkXll +qEgR9sq0MDfa/Bgyiumevo0tJ5rbFt74Bb0eyJorxraT+XF7yvQb6t25IaoC +m8pTktRaPYU2rRr/VoWdoGqfHNgxjXbICqTdxe6R6t4aVcpGqm0eu+qxiYMB +/tlpMyh1U7p9IzbrBlf+3ZDvSCpQ8mwz9molLRG27hyKkNsa9Az7EvHEUkTi +B2qzfyL1AlvhjluC9vwPRI5UfO3A3r75zFRw4wKSKUnleoftZzDQMWH6CwWH +k0tj2LMxR1bwq/1GZ/6+3zOJfbJRwEh99R/ENeDRx8LOge1lvh3LyFO+zu0n +p19Rm1lEKTdMLAbKiZkwUenz7MFTMjyg3R+mLY3NGvc4npnGA8G2Lyk57OMa +c7XVIbxQMJawRxP7UpWi8rQuH3T6D32wwO598635zy0+4JdMk7HDVph5cFBY +YiVUHDqfvB+7XM8uS2t+JeTcPtlBYD99eIw7qHE1xHrYqCVjzz15O/DFVBBM +PGTXvMIWsxEUiWsWhNCjNxI/YOt0m4GQoRA89lTUHMYOGLmXt3WLMHi/3sG9 +gB3G06GzS1AE7gkyXqiaMtGoUiU7+Yco3BZpbj+HPUu1r+mkiUFNj6fEFWye +sjFF6XAx8HdeTivEVqDJO5VOikGtrD5vC/ZB04y7rwfFoSolUGARu9MnIlLq +pQRo/4w9H2nGRP130lO9VkvCKFVZmIj9bbL0Vom5JJSdej+Zjc0f9fntzhZJ +OMi1zHUP2yzJWc/rnhSUuOVaLGI3FBrMFTPWQTMrwPi8ORMVji5F74iShWcV +Lb2vLJhoz/6U/sgKWaAeqCkMY397Km5RMSYL8e530n5g6xVullBwk4PHgXO9 +8pb4fdI9avmM5eGjSpVNFPbM9ODRL4kKUD49nqiyh4nEg83qam2VQKjt6s6C +vUw0Vsjv5xCgBJFtj+mN2PWf3sgwzyjBa/fR6m7sQzaHE9ValKD3qGbrKivc +TzPa6aquMuj1na0PxdabuMOKl1IBtnnldwtrJnL2FdCyGlKFxMvJN8RsmQhF +79d1+a0Kqo4X+XWwNZIZ24h1aqCmPZdri811i2YS76gGQhL/6Z3Druh3d7n7 +jxpcyChT4rHD/+eB8lPrCzaCq8D87yXsejPb9xN0dcjx+1O62pGJbu278r/5 +eHVwWUW2amCn04cGV1xXB1sz3mUbbOLkkUm5t+rAXTE0nokt2pTLtc9UAzyO +8MbIOuHvhzal0aisCUWmLRk79zGRjNLFhNSRzVCfzX09ez8TNZ2fVV/k0QJb +Bb78R9iHvrt1U4paUGlU0DWOffOpirqJhxYILeXXGx1gIiXfhq6FD1pQz0y6 ++AVbo3xUlXq5BVgFu3z3uDKRrIwcpeCmA/pFRjWb3Jloc1GU4E+kCxpm2ijQ +m4noROKclp0u9DS1Z9/AzlHO6vc6pAupvVNCr7F5C6qqn8foQhHjRcRWOv7f +bk44Z9XoQp3B5T+L2OdyvHLVlWkw8KV/QxaB55tqs8V1pR74dbVQ/b5MlB+h +4nCvQx+i9/1qHgthojfRaFtSkSGs/lrSJX+SiRQ93tkdDtoFI6FHAvOzmYhc +vl8pGwugO7JCb10xE0lN1q+SoptAyvCh8/dbmCiKZvQpS8MMFP7abzz+Efdn +/moTnzCHgIWn5tdn8TxNIlcxOi2h9drw5GPxKVQ4G/BP+aW9EERrzX2iO4UW +dku/eppgDV9MM/kDDkyhPi5e9pC3LSg3rGS4x02hkA2hGaeU7YHeNecQzphC +lf5tLZeTHaCksUTJqG0KHfu+bl7T3xF6uEvJR9NTaM7K4sC/nk5QyKe0dU5m +Ghm6Z+4eddwHPyjFb7f2TKOudbkBT2nO8HGXo7F95DRafzuxqXjTfpgX2kXF +Fkyj+kENGzuhA2A8oS+xtXMayXWzfKOZB0Dj1LTQ6Z/TiHY5s/zWoAvExg9J +zkuwUO6K71uynriCjwD3nvzNLHR/t3Zv8kM3+NUcm6xhzkI5286L/io9CJWO +s+Wyh1mo839FZ2hp7rBhC+/mnZEsdM/2hkrYyUPwsoBb79N5FmIH7+MKIQ7D +rmHRC3F5LDRnoe43ZeoBNeJF/ZvvsVAx8+NCpIEn+LgN/p5tZyHX/CKfw4Je +EBg2kZ/Wz0K1d609eVO84ECrcv3QDAsZynQtnlv0ggI0e2ViBRspD/r2/ufv +DepbNjNyJdhoRCDQ/sZnb/jqJFV9Vo2N3qTb+Vjup8ObpIbrsvpsdCmGIXDk +DR0S+WkXT5uyUVPz8qLPXh9QcMg0UnJgo7WHIIXW4AOVAf6p8QfZSOGvfzs3 +NPnAhL+ddzG2Toet9MpmH1jw9tvQhe1k5F7S848P6JEaJqruOH9D9MsTL3yg +ggi3bsde31e2tq3HB94K+zuuPcxGKh5SOYfmfSDjVJRwsicbGXpNFSfrEZCS +tC1cjmCj21dZkXYGBAw0HVVC2H+9nTGW2k6AVm1Soyf2lPl8d/FOApb2LBbm +YRdqcnF3mBBgkvPLWZFkI+F5UTcxRwK4zk6pyVH4fVzQX8MIJiBpFW8Cnx8b +Of67rds3lABtZT8VZexmrh0MnXD8vJDdNYB9NdJYvzWKgM2iFqfisO3cLL1H +4wgwdrZbmsZ+qOL2UPM8AWV0abtufzZKbzzuX3+bgDUS0wHnA9koWPeKYUwx +AWsXTkQVYtuU1KzZXkqAbssmqhmb/8pYyYMKAgjpF9wz2MkRDhP36wioXjG/ +zjWIjY6rqwTeayUg01S+Qz6YjQKuvAy6208Ab9vzTbkhbLRXeMwoYpCAm9rF +W+uwNyVzCekOE3BRiq70EnssQr+iZpSAvESXxgVsbzsGs/obAcq/RV86hbKR +K19kSNUSAfNVEl48YWxkGbk+rFyShLI883324WzUyjhjlSVNgnWLBx+JbdQx +oxKznoRohyfXjmHrqL78aCpHwrVlMrQIe92HONP/qZKgNdb9eBF7ckefJL8+ +Cb01x3/eiGCjizx5j3z3kcBil3a+isT71xbMsd1Pgr6lxvgAdpJ7TATNhQRG +TN0QGzumzmHj8kESZuWHEySicH+KO/NvOgm/ZkO93LFp7XTiWTgJtbPt1UPY +HzJVBZQzSMhXbz3dc4SNKpGQ35dMEgqulXKPYScxZ59WZJPwxXiL73ds3b1P +47dfIaHfi2dMKBrPj8tnxvYmCdfNH93djW0RmvcxppyEvLb4lEJsWdmzBsaV +eP1sRmg19mx7aDZvNQkD8ZrGTdgFasg2vZaEZ30L6W+xf/f1tdxqICHhYvcf +rqNsVGcjU/y6jYT2E9WSLtipSzx8l9rx/nI/Ud7Y9OIJb7cOEni3n84NxBZZ +0SAz0omvNzRoTsAOanS9uPge52VtenUbW1nj72iVURKCf0YrsLCXPpx4+3WM +BOOSrg8L2G+SSZ2qL7ivy7Uj3DFsFD+kN2H4jQSeOwGEGHZvztvD9t9JWL1x +SZiGnbVK1PwYNwXD3XpXQrGbZvrco3gpGJ/cknIUe7yvNCKEjwJr550uCdhG +dWZ59DUUqBWlXEnHHvOK+WklSkH+4PucMmwRG3Mxc3EKonltzt3F3rlNTB1J +UJAw2eH2EDtDqPwAbR0FHqunrz3nrDcM1MgoUvBxY17uADZVVN4moUyBnLBn ++ijn+ozYgbWqFAiJqHhOcp5HiQutUKcg8d2jvB+cdXFLv286FFA0+UKBWDZq ++COeMKZLwfvS35dEsEe/Dl4e1KPA+WgfKYG9o+XYk+7tFKRO37wjhz0SVCn3 +CCi4YCZTpo0t7Bqn/8CEAgnaj+s0bEPTPTY1ZhTQsl8HbcNOXzccW7SHgtHF +I5XG2PUrqjIYVhQgXTN5E+zP03F3rtpQUI6Ew8yxtz+XeHfBAfcjLtVYY9Nr +hidTnCgYeGFfYId94UYVz2lnCjry+CIdsYcj9upEu1IQS3nWHcAW8pC0DDuI +9/OYR9WNk7f38+GAQ3g+nowj7pz75U+kenhREBX25L4npw+/VYErnQJeP6s7 +3py8OcmHTgQF9LoXR304eUOfO20oCpYVd28iOXkd1WMWfhT0nKyupzj9Hpz4 +DQEUhBdKqftx8gus/toZRMGIT3SsPyf/gpSmfgjuc7WjJICTHzOyWzuMgjiV +9Q2B2IJEjat6BAU5ox6lQdjb7ONDlaMoONF67VgwJ3+H9RnZaDzPwlcaIdhp +qtK5UjEU1EXPN3B8X2S0VvQYBZEa0pqh2EM/a9oFjlPw9q52HMeC4/FDfPEU +zKw0LuPYoMt6YTmBgmOKpo0c/x9FUwq3 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7905,105 +13343,106 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV03k8FesfB3BLWmxZrqVkXwqJHJSS55u17KSQshwzY98lUlRIRbLUTYsO +ouxLVEJytVxJ6Uolv6xZig7niCwtfs/5Y17zer+emc98nvnOKNJDnUgeLi4u +Jj445/DXWzY+ePPaeNJdyvLabiYynirUp5uVIyRofpDjQYbBJRWzJvTnVUc2 +xw7Eq5WCtGdoK6PyO8c1MQlP+Mw6kNXxidjr2OeeS7cklP6HsrxOqt3Afvgm +/OYv3Xeo0DxskeOJ3vbjsY09aKNKw0wu9vpRZfcfpp/Q5MxhMQa29fRxw8iO +AdRwx901D7v514RATOkQGjWofZqP/f6UVNz9kM8IsgmXW9hTK80mZnVHkXll +qEgR9sq0MDfa/Bgyiumevo0tJ5rbFt74Bb0eyJorxraT+XF7yvQb6t25IaoC +m8pTktRaPYU2rRr/VoWdoGqfHNgxjXbICqTdxe6R6t4aVcpGqm0eu+qxiYMB +/tlpMyh1U7p9IzbrBlf+3ZDvSCpQ8mwz9molLRG27hyKkNsa9Az7EvHEUkTi +B2qzfyL1AlvhjluC9vwPRI5UfO3A3r75zFRw4wKSKUnleoftZzDQMWH6CwWH +k0tj2LMxR1bwq/1GZ/6+3zOJfbJRwEh99R/ENeDRx8LOge1lvh3LyFO+zu0n +p19Rm1lEKTdMLAbKiZkwUenz7MFTMjyg3R+mLY3NGvc4npnGA8G2Lyk57OMa +c7XVIbxQMJawRxP7UpWi8rQuH3T6D32wwO598635zy0+4JdMk7HDVph5cFBY +YiVUHDqfvB+7XM8uS2t+JeTcPtlBYD99eIw7qHE1xHrYqCVjzz15O/DFVBBM +PGTXvMIWsxEUiWsWhNCjNxI/YOt0m4GQoRA89lTUHMYOGLmXt3WLMHi/3sG9 +gB3G06GzS1AE7gkyXqiaMtGoUiU7+Yco3BZpbj+HPUu1r+mkiUFNj6fEFWye +sjFF6XAx8HdeTivEVqDJO5VOikGtrD5vC/ZB04y7rwfFoSolUGARu9MnIlLq +pQRo/4w9H2nGRP130lO9VkvCKFVZmIj9bbL0Vom5JJSdej+Zjc0f9fntzhZJ +OMi1zHUP2yzJWc/rnhSUuOVaLGI3FBrMFTPWQTMrwPi8ORMVji5F74iShWcV +Lb2vLJhoz/6U/sgKWaAeqCkMY397Km5RMSYL8e530n5g6xVullBwk4PHgXO9 +8pb4fdI9avmM5eGjSpVNFPbM9ODRL4kKUD49nqiyh4nEg83qam2VQKjt6s6C +vUw0Vsjv5xCgBJFtj+mN2PWf3sgwzyjBa/fR6m7sQzaHE9ValKD3qGbrKivc +TzPa6aquMuj1na0PxdabuMOKl1IBtnnldwtrJnL2FdCyGlKFxMvJN8RsmQhF +79d1+a0Kqo4X+XWwNZIZ24h1aqCmPZdri811i2YS76gGQhL/6Z3Druh3d7n7 +jxpcyChT4rHD/+eB8lPrCzaCq8D87yXsejPb9xN0dcjx+1O62pGJbu278r/5 +eHVwWUW2amCn04cGV1xXB1sz3mUbbOLkkUm5t+rAXTE0nokt2pTLtc9UAzyO +8MbIOuHvhzal0aisCUWmLRk79zGRjNLFhNSRzVCfzX09ez8TNZ2fVV/k0QJb +Bb78R9iHvrt1U4paUGlU0DWOffOpirqJhxYILeXXGx1gIiXfhq6FD1pQz0y6 ++AVbo3xUlXq5BVgFu3z3uDKRrIwcpeCmA/pFRjWb3Jloc1GU4E+kCxpm2ijQ +m4noROKclp0u9DS1Z9/AzlHO6vc6pAupvVNCr7F5C6qqn8foQhHjRcRWOv7f +bk44Z9XoQp3B5T+L2OdyvHLVlWkw8KV/QxaB55tqs8V1pR74dbVQ/b5MlB+h +4nCvQx+i9/1qHgthojfRaFtSkSGs/lrSJX+SiRQ93tkdDtoFI6FHAvOzmYhc +vl8pGwugO7JCb10xE0lN1q+SoptAyvCh8/dbmCiKZvQpS8MMFP7abzz+Efdn +/moTnzCHgIWn5tdn8TxNIlcxOi2h9drw5GPxKVQ4G/BP+aW9EERrzX2iO4UW +dku/eppgDV9MM/kDDkyhPi5e9pC3LSg3rGS4x02hkA2hGaeU7YHeNecQzphC +lf5tLZeTHaCksUTJqG0KHfu+bl7T3xF6uEvJR9NTaM7K4sC/nk5QyKe0dU5m +Ghm6Z+4eddwHPyjFb7f2TKOudbkBT2nO8HGXo7F95DRafzuxqXjTfpgX2kXF +Fkyj+kENGzuhA2A8oS+xtXMayXWzfKOZB0Dj1LTQ6Z/TiHY5s/zWoAvExg9J +zkuwUO6K71uynriCjwD3nvzNLHR/t3Zv8kM3+NUcm6xhzkI5286L/io9CJWO +s+Wyh1mo839FZ2hp7rBhC+/mnZEsdM/2hkrYyUPwsoBb79N5FmIH7+MKIQ7D +rmHRC3F5LDRnoe43ZeoBNeJF/ZvvsVAx8+NCpIEn+LgN/p5tZyHX/CKfw4Je +EBg2kZ/Wz0K1d609eVO84ECrcv3QDAsZynQtnlv0ggI0e2ViBRspD/r2/ufv +DepbNjNyJdhoRCDQ/sZnb/jqJFV9Vo2N3qTb+Vjup8ObpIbrsvpsdCmGIXDk +DR0S+WkXT5uyUVPz8qLPXh9QcMg0UnJgo7WHIIXW4AOVAf6p8QfZSOGvfzs3 +NPnAhL+ddzG2Toet9MpmH1jw9tvQhe1k5F7S848P6JEaJqruOH9D9MsTL3yg +ggi3bsde31e2tq3HB94K+zuuPcxGKh5SOYfmfSDjVJRwsicbGXpNFSfrEZCS +tC1cjmCj21dZkXYGBAw0HVVC2H+9nTGW2k6AVm1Soyf2lPl8d/FOApb2LBbm +YRdqcnF3mBBgkvPLWZFkI+F5UTcxRwK4zk6pyVH4fVzQX8MIJiBpFW8Cnx8b +Of67rds3lABtZT8VZexmrh0MnXD8vJDdNYB9NdJYvzWKgM2iFqfisO3cLL1H +4wgwdrZbmsZ+qOL2UPM8AWV0abtufzZKbzzuX3+bgDUS0wHnA9koWPeKYUwx +AWsXTkQVYtuU1KzZXkqAbssmqhmb/8pYyYMKAgjpF9wz2MkRDhP36wioXjG/ +zjWIjY6rqwTeayUg01S+Qz6YjQKuvAy6208Ab9vzTbkhbLRXeMwoYpCAm9rF +W+uwNyVzCekOE3BRiq70EnssQr+iZpSAvESXxgVsbzsGs/obAcq/RV86hbKR +K19kSNUSAfNVEl48YWxkGbk+rFyShLI883324WzUyjhjlSVNgnWLBx+JbdQx +oxKznoRohyfXjmHrqL78aCpHwrVlMrQIe92HONP/qZKgNdb9eBF7ckefJL8+ +Cb01x3/eiGCjizx5j3z3kcBil3a+isT71xbMsd1Pgr6lxvgAdpJ7TATNhQRG +TN0QGzumzmHj8kESZuWHEySicH+KO/NvOgm/ZkO93LFp7XTiWTgJtbPt1UPY +HzJVBZQzSMhXbz3dc4SNKpGQ35dMEgqulXKPYScxZ59WZJPwxXiL73ds3b1P +47dfIaHfi2dMKBrPj8tnxvYmCdfNH93djW0RmvcxppyEvLb4lEJsWdmzBsaV +eP1sRmg19mx7aDZvNQkD8ZrGTdgFasg2vZaEZ30L6W+xf/f1tdxqICHhYvcf +rqNsVGcjU/y6jYT2E9WSLtipSzx8l9rx/nI/Ud7Y9OIJb7cOEni3n84NxBZZ +0SAz0omvNzRoTsAOanS9uPge52VtenUbW1nj72iVURKCf0YrsLCXPpx4+3WM +BOOSrg8L2G+SSZ2qL7ivy7Uj3DFsFD+kN2H4jQSeOwGEGHZvztvD9t9JWL1x +SZiGnbVK1PwYNwXD3XpXQrGbZvrco3gpGJ/cknIUe7yvNCKEjwJr550uCdhG +dWZ59DUUqBWlXEnHHvOK+WklSkH+4PucMmwRG3Mxc3EKonltzt3F3rlNTB1J +UJAw2eH2EDtDqPwAbR0FHqunrz3nrDcM1MgoUvBxY17uADZVVN4moUyBnLBn ++ijn+ozYgbWqFAiJqHhOcp5HiQutUKcg8d2jvB+cdXFLv286FFA0+UKBWDZq ++COeMKZLwfvS35dEsEe/Dl4e1KPA+WgfKYG9o+XYk+7tFKRO37wjhz0SVCn3 +CCi4YCZTpo0t7Bqn/8CEAgnaj+s0bEPTPTY1ZhTQsl8HbcNOXzccW7SHgtHF +I5XG2PUrqjIYVhQgXTN5E+zP03F3rtpQUI6Ew8yxtz+XeHfBAfcjLtVYY9Nr +hidTnCgYeGFfYId94UYVz2lnCjry+CIdsYcj9upEu1IQS3nWHcAW8pC0DDuI +9/OYR9WNk7f38+GAQ3g+nowj7pz75U+kenhREBX25L4npw+/VYErnQJeP6s7 +3py8OcmHTgQF9LoXR304eUOfO20oCpYVd28iOXkd1WMWfhT0nKyupzj9Hpz4 +DQEUhBdKqftx8gus/toZRMGIT3SsPyf/gpSmfgjuc7WjJICTHzOyWzuMgjiV +9Q2B2IJEjat6BAU5ox6lQdjb7ONDlaMoONF67VgwJ3+H9RnZaDzPwlcaIdhp +qtK5UjEU1EXPN3B8X2S0VvQYBZEa0pqh2EM/a9oFjlPw9q52HMeC4/FDfPEU +zKw0LuPYoMt6YTmBgmOKpo0c/x9FUwq3 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.9142581356526284, + 1.0921475710802881`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.9142581356526304}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8015,21 +13454,21 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.9142581356526284, + 1.0921475710802881`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.9142581356526304}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8043,103 +13482,104 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV03k8FesfB3BLWmxZrqVkXwqJHJSS55u17KSQshwzY98lUlRIRbLUTYsO +ouxLVEJytVxJ6Uolv6xZig7niCwtfs/5Y17zer+emc98nvnOKNJDnUgeLi4u +Jj445/DXWzY+ePPaeNJdyvLabiYynirUp5uVIyRofpDjQYbBJRWzJvTnVUc2 +xw7Eq5WCtGdoK6PyO8c1MQlP+Mw6kNXxidjr2OeeS7cklP6HsrxOqt3Afvgm +/OYv3Xeo0DxskeOJ3vbjsY09aKNKw0wu9vpRZfcfpp/Q5MxhMQa29fRxw8iO +AdRwx901D7v514RATOkQGjWofZqP/f6UVNz9kM8IsgmXW9hTK80mZnVHkXll +qEgR9sq0MDfa/Bgyiumevo0tJ5rbFt74Bb0eyJorxraT+XF7yvQb6t25IaoC +m8pTktRaPYU2rRr/VoWdoGqfHNgxjXbICqTdxe6R6t4aVcpGqm0eu+qxiYMB +/tlpMyh1U7p9IzbrBlf+3ZDvSCpQ8mwz9molLRG27hyKkNsa9Az7EvHEUkTi +B2qzfyL1AlvhjluC9vwPRI5UfO3A3r75zFRw4wKSKUnleoftZzDQMWH6CwWH +k0tj2LMxR1bwq/1GZ/6+3zOJfbJRwEh99R/ENeDRx8LOge1lvh3LyFO+zu0n +p19Rm1lEKTdMLAbKiZkwUenz7MFTMjyg3R+mLY3NGvc4npnGA8G2Lyk57OMa +c7XVIbxQMJawRxP7UpWi8rQuH3T6D32wwO598635zy0+4JdMk7HDVph5cFBY +YiVUHDqfvB+7XM8uS2t+JeTcPtlBYD99eIw7qHE1xHrYqCVjzz15O/DFVBBM +PGTXvMIWsxEUiWsWhNCjNxI/YOt0m4GQoRA89lTUHMYOGLmXt3WLMHi/3sG9 +gB3G06GzS1AE7gkyXqiaMtGoUiU7+Yco3BZpbj+HPUu1r+mkiUFNj6fEFWye +sjFF6XAx8HdeTivEVqDJO5VOikGtrD5vC/ZB04y7rwfFoSolUGARu9MnIlLq +pQRo/4w9H2nGRP130lO9VkvCKFVZmIj9bbL0Vom5JJSdej+Zjc0f9fntzhZJ +OMi1zHUP2yzJWc/rnhSUuOVaLGI3FBrMFTPWQTMrwPi8ORMVji5F74iShWcV +Lb2vLJhoz/6U/sgKWaAeqCkMY397Km5RMSYL8e530n5g6xVullBwk4PHgXO9 +8pb4fdI9avmM5eGjSpVNFPbM9ODRL4kKUD49nqiyh4nEg83qam2VQKjt6s6C +vUw0Vsjv5xCgBJFtj+mN2PWf3sgwzyjBa/fR6m7sQzaHE9ValKD3qGbrKivc +TzPa6aquMuj1na0PxdabuMOKl1IBtnnldwtrJnL2FdCyGlKFxMvJN8RsmQhF +79d1+a0Kqo4X+XWwNZIZ24h1aqCmPZdri811i2YS76gGQhL/6Z3Druh3d7n7 +jxpcyChT4rHD/+eB8lPrCzaCq8D87yXsejPb9xN0dcjx+1O62pGJbu278r/5 +eHVwWUW2amCn04cGV1xXB1sz3mUbbOLkkUm5t+rAXTE0nokt2pTLtc9UAzyO +8MbIOuHvhzal0aisCUWmLRk79zGRjNLFhNSRzVCfzX09ez8TNZ2fVV/k0QJb +Bb78R9iHvrt1U4paUGlU0DWOffOpirqJhxYILeXXGx1gIiXfhq6FD1pQz0y6 ++AVbo3xUlXq5BVgFu3z3uDKRrIwcpeCmA/pFRjWb3Jloc1GU4E+kCxpm2ijQ +m4noROKclp0u9DS1Z9/AzlHO6vc6pAupvVNCr7F5C6qqn8foQhHjRcRWOv7f +bk44Z9XoQp3B5T+L2OdyvHLVlWkw8KV/QxaB55tqs8V1pR74dbVQ/b5MlB+h +4nCvQx+i9/1qHgthojfRaFtSkSGs/lrSJX+SiRQ93tkdDtoFI6FHAvOzmYhc +vl8pGwugO7JCb10xE0lN1q+SoptAyvCh8/dbmCiKZvQpS8MMFP7abzz+Efdn +/moTnzCHgIWn5tdn8TxNIlcxOi2h9drw5GPxKVQ4G/BP+aW9EERrzX2iO4UW +dku/eppgDV9MM/kDDkyhPi5e9pC3LSg3rGS4x02hkA2hGaeU7YHeNecQzphC +lf5tLZeTHaCksUTJqG0KHfu+bl7T3xF6uEvJR9NTaM7K4sC/nk5QyKe0dU5m +Ghm6Z+4eddwHPyjFb7f2TKOudbkBT2nO8HGXo7F95DRafzuxqXjTfpgX2kXF +Fkyj+kENGzuhA2A8oS+xtXMayXWzfKOZB0Dj1LTQ6Z/TiHY5s/zWoAvExg9J +zkuwUO6K71uynriCjwD3nvzNLHR/t3Zv8kM3+NUcm6xhzkI5286L/io9CJWO +s+Wyh1mo839FZ2hp7rBhC+/mnZEsdM/2hkrYyUPwsoBb79N5FmIH7+MKIQ7D +rmHRC3F5LDRnoe43ZeoBNeJF/ZvvsVAx8+NCpIEn+LgN/p5tZyHX/CKfw4Je +EBg2kZ/Wz0K1d609eVO84ECrcv3QDAsZynQtnlv0ggI0e2ViBRspD/r2/ufv +DepbNjNyJdhoRCDQ/sZnb/jqJFV9Vo2N3qTb+Vjup8ObpIbrsvpsdCmGIXDk +DR0S+WkXT5uyUVPz8qLPXh9QcMg0UnJgo7WHIIXW4AOVAf6p8QfZSOGvfzs3 +NPnAhL+ddzG2Toet9MpmH1jw9tvQhe1k5F7S848P6JEaJqruOH9D9MsTL3yg +ggi3bsde31e2tq3HB94K+zuuPcxGKh5SOYfmfSDjVJRwsicbGXpNFSfrEZCS +tC1cjmCj21dZkXYGBAw0HVVC2H+9nTGW2k6AVm1Soyf2lPl8d/FOApb2LBbm +YRdqcnF3mBBgkvPLWZFkI+F5UTcxRwK4zk6pyVH4fVzQX8MIJiBpFW8Cnx8b +Of67rds3lABtZT8VZexmrh0MnXD8vJDdNYB9NdJYvzWKgM2iFqfisO3cLL1H +4wgwdrZbmsZ+qOL2UPM8AWV0abtufzZKbzzuX3+bgDUS0wHnA9koWPeKYUwx +AWsXTkQVYtuU1KzZXkqAbssmqhmb/8pYyYMKAgjpF9wz2MkRDhP36wioXjG/ +zjWIjY6rqwTeayUg01S+Qz6YjQKuvAy6208Ab9vzTbkhbLRXeMwoYpCAm9rF +W+uwNyVzCekOE3BRiq70EnssQr+iZpSAvESXxgVsbzsGs/obAcq/RV86hbKR +K19kSNUSAfNVEl48YWxkGbk+rFyShLI883324WzUyjhjlSVNgnWLBx+JbdQx +oxKznoRohyfXjmHrqL78aCpHwrVlMrQIe92HONP/qZKgNdb9eBF7ckefJL8+ +Cb01x3/eiGCjizx5j3z3kcBil3a+isT71xbMsd1Pgr6lxvgAdpJ7TATNhQRG +TN0QGzumzmHj8kESZuWHEySicH+KO/NvOgm/ZkO93LFp7XTiWTgJtbPt1UPY +HzJVBZQzSMhXbz3dc4SNKpGQ35dMEgqulXKPYScxZ59WZJPwxXiL73ds3b1P +47dfIaHfi2dMKBrPj8tnxvYmCdfNH93djW0RmvcxppyEvLb4lEJsWdmzBsaV +eP1sRmg19mx7aDZvNQkD8ZrGTdgFasg2vZaEZ30L6W+xf/f1tdxqICHhYvcf +rqNsVGcjU/y6jYT2E9WSLtipSzx8l9rx/nI/Ud7Y9OIJb7cOEni3n84NxBZZ +0SAz0omvNzRoTsAOanS9uPge52VtenUbW1nj72iVURKCf0YrsLCXPpx4+3WM +BOOSrg8L2G+SSZ2qL7ivy7Uj3DFsFD+kN2H4jQSeOwGEGHZvztvD9t9JWL1x +SZiGnbVK1PwYNwXD3XpXQrGbZvrco3gpGJ/cknIUe7yvNCKEjwJr550uCdhG +dWZ59DUUqBWlXEnHHvOK+WklSkH+4PucMmwRG3Mxc3EKonltzt3F3rlNTB1J +UJAw2eH2EDtDqPwAbR0FHqunrz3nrDcM1MgoUvBxY17uADZVVN4moUyBnLBn ++ijn+ozYgbWqFAiJqHhOcp5HiQutUKcg8d2jvB+cdXFLv286FFA0+UKBWDZq ++COeMKZLwfvS35dEsEe/Dl4e1KPA+WgfKYG9o+XYk+7tFKRO37wjhz0SVCn3 +CCi4YCZTpo0t7Bqn/8CEAgnaj+s0bEPTPTY1ZhTQsl8HbcNOXzccW7SHgtHF +I5XG2PUrqjIYVhQgXTN5E+zP03F3rtpQUI6Ew8yxtz+XeHfBAfcjLtVYY9Nr +hidTnCgYeGFfYId94UYVz2lnCjry+CIdsYcj9upEu1IQS3nWHcAW8pC0DDuI +9/OYR9WNk7f38+GAQ3g+nowj7pz75U+kenhREBX25L4npw+/VYErnQJeP6s7 +3py8OcmHTgQF9LoXR304eUOfO20oCpYVd28iOXkd1WMWfhT0nKyupzj9Hpz4 +DQEUhBdKqftx8gus/toZRMGIT3SsPyf/gpSmfgjuc7WjJICTHzOyWzuMgjiV +9Q2B2IJEjat6BAU5ox6lQdjb7ONDlaMoONF67VgwJ3+H9RnZaDzPwlcaIdhp +qtK5UjEU1EXPN3B8X2S0VvQYBZEa0pqh2EM/a9oFjlPw9q52HMeC4/FDfPEU +zKw0LuPYoMt6YTmBgmOKpo0c/x9FUwq3 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.9142581356526284, 1.0921475710802881`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.9142581356526304}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8149,7 +13589,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6044061540843444}, + AxesOrigin->{0, 0.9142581356526304}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8177,7 +13618,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9142581356526284, 1.0921475710802881`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8185,9 +13627,9 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913320330871353`*^9}, + CellChangeTimes->{3.9913320330871353`*^9, 3.99392078455586*^9}, CellLabel-> - "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] + "Out[139]=",ExpressionUUID->"c2d736b6-a60a-4568-a383-67140ca5dc4c"] }, Open ]], Cell[CellGroupData[{ @@ -8250,205 +13692,165 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918491076725483`*^9, - 3.9918491120260525`*^9}},ExpressionUUID->"cbec275e-4d01-7747-9ece-\ -7fa9a2a651b1"], + CellChangeTimes->{{3.9918491076725483`*^9, 3.9918491120260525`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.3107141980193194`*^-274\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 157, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.99392078470919*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"04e8abf9-6735-46e9-abfb-2b355bac1402"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.428197383370655`*^-287\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 158, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993920784717417*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"a9e10cfc-a5a5-451e-bb38-e53ac0b6067c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.0741366108342055`*^-299\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 221, - 189, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033325203*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 159, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.9939207847249813`*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 221, 190, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913320333342056`*^9}, - CellLabel-> - "During evaluation of \ -In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 221, 191, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033342205*^9}, - CellLabel-> - "During evaluation of \ -In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +In[140]:=",ExpressionUUID->"fe46250a-2a93-4725-95a8-571e7676b963"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033351204*^9}, +during this calculation.\"", 2, 140, 160, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993920784732999*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +In[140]:=",ExpressionUUID->"c9f11168-02b6-4f10-ae58-4f5fb945256f"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VV8XB3BThaIMcd0M915DMg8hw20tKmPGVEKmTKWkiJAMZSglQyEJ +lZSEey4NSipURJQkQ6mk+AmZp5L3vH+d5/M85zlnn7X3Xt996F6HHXy4ODg4 +1nBycPz/OtPbWC+XXLj5sIYpy6fPeHN7HiXcuDMOdhwpSGn2owGubfWidKbD +kxz/0SI/DQi1u/ORu/M61LvtyzvvhyA0Kp4+/5ENPW5TM75+dvCl2ubw1Mda +yDV6ceuXrweYyg19Hv/YBifit2gL+gTB/Ee9S2Mf+6Duzg+b63tjoG7LrcJ3 +1ych0oW3OvlXKkh+qfrppbIIFozdO+zas0H0oPudFVu4UTogU6lJugDSNU0f +2+zkRe2VLj5b+29AV7bGs/E1AngrsKI0mX4LkgujW7kkhHDBh9fa3fIOiF/8 +fibjqghyJo87LSzdBYryvdNzRSJYEKE5YstXCtTahOi9LBEcmPcozxcuBemx +DcfW14mgkNDHh6rypSC/Pcjj8aAIxrUlPOW2LAVtnkXd79qiGLGUeDUzvRRs +Q8T6tV6LYs3Ng4J2MmWQ6GixuW1mLQoty7jXo1AO1MoWKhenGN5gqQ3sVS+H +MhHHWc2VYsj9+9F8p145dLS5sdJkxHAiXbKmyrwc5OxDGPbmYthW1lsif6Ac +aq3zl7+9LIaKNn+8ikrKYdF0uuWNkTg23D/Jc0OUBalFESWLpuIYdO/8gSMU +Fsgt50hStRfHc9ejdYwkWbD9Bb/xeR9xDJ+ZmHspy4KcLbSK7SniaHGNpUZo +sWATWmU1fRHHfLc70p22LAjWv+beGEdBzSb+/MBEFlgWCE5ZnaNgRHuySepZ +FjBWnEhquUTBKHuR6rLzLHjbvot4f5uCOaFdGn0ZLFALWsXd20JB3rQpadkC +FgwWhRVNUCXQRkfn36qHLHAVtRlZVyGBKzU4T8X8YIF25OPYvGoJ5FK1eGM0 +yAL+PkUx+ksJdDTLHJ4eYkFVOTcodEmg2mrPO25jLBCzqkrVWJLA4tsfZfn/ +kO+Pldu4zYqKRkf9qY2rCdj6eyEi8DsVt2/2Kh7QJSDc/KLS82EqtrgET2vp +E1B2TbVbZIaKoh++bYo0JIDi6KFfxbsOaX/8i7iQgOGHL2a51dYhn68tbcSc +gIy41JDLx9fhrGFThYYzAX1rFQLrBSTx989vt4MjCBA//FRKXFwSX7/P03M7 +QcD2Bqc3+2mSWNf1q27bSQLuRySrrNaWxCQlnY6VcQSc/TI2tMdJEmts7w4G +nyFAq/ix3+/rkrgvisZZmUVArJG9J3WTFH6z+sk/QxBg7pY3oWcihW1zCybX +KwgQjPl1aud2KayO3/nH8h4BuXXxRakeUsj8cWs07SEBDy0f/Vp+RgpzplKH +p2sIGHOSDZ3skkKT6IRysSYCHkQErRDql8JdgpJyyc0EnMx9kq02KoUJfDdp +f98QsOrr7sf7uaQxKud6xfu3BKz3O8fxVUkaz0dx2u3pIMDt2PTZ5khpnHAL +66n5SoB8lonkULw0dg/ErP777f/1u1C6IlUaI9M3t+t8JyDi74a3JoXS2Oqg +LJz/g4BLp9zWVjVLY1X77iDzIQKa017l35SSwZqE18zZCbLeFaKadetl8N8j +jReLkwQ4f/Cs/aopg/qPxQY4pgkYpPztX2cqg1uq5v7+nSGAu0BDKT1QBuMV +Ak41LxBgUHa58uRTGfQc5U5r5GTD1o8ti6MNMmjouUPvHBcbbDh4zNzbZNAP +5setuNmwzyGwC36Qzy+8VFTLwwbTSHp0zDIaJq10kjq/gg1Nq6tvbOKn4e6i +3NBNvGywK9zVMCZIw9bkH4NfSbu8SRbypNDQjPM/6gZ+NgTJzNwwVqZhUGbB +i8xVbJiuSG2YV6fh2sPDs0oCbIgwVx4hNtJwfT/FvJp0/BEPXcZmGob6X9ja +IciGnLrXDVz2NPSdOfF0YA0bZJx8Rh7tpKFQq8OEtxAbCoeXhIKdaeilLWL+ +hXT5Wh2X7/toGDvxw61JmA31fvkjdaE09EhdsIoVZYPFX33hE5Hk+GTNbg+Q +bklt190YQ8N/05UqVmvZ0FXFF1N4hobjrbksPjE2uNkUFrqm0ND21UHCm3R/ +3+ZG0Qwa9n3m+1xNenRliHB8Lg1XvXB74C3OhuACQT3mNRqunj7iV0l6bmOx +y/RNGppw8W3jpLCB26230Kechgs9McnppJMmjjdKVdLQYH/tdAdpwUSR0Q8P +abjN0SKVIsEGCstcz7SWhs+oY04ZpK9u/e7y7yUNN/CHJjWTZnRFxdxvomHg +SYFfXFQ23D5EuRn4loacigGxuqRVuSoaFT7QMNl963Y/0uxM69HeLhoGy9tu +v0R6k/KgcFYvDb3pJnHPSJs4SrmuGKQhd25NuuA6NrwafBDzdJic/zsPAzVJ +b49yuBk2TsMBgROn7Em3CY00qs/Q8EpJ7btA0ruLEkcHFmj4QMDM+QzpTwYM +kYIlGoZ71UtdI+3VWq3nxEPHd5EzkvdJD+zb7bqGj46TLZedGkgfnBuPaRCg +49fggHcfSRsc8RX7KUzef2Nn+A/SvEPdJdwUOnrNpPX/Jt3hZWtMl6KjxEsR +0VnSN3vqOjYz6Fho1cr7h3SI46aDruvpqHK1qu7/NnlzlzNChY75pQ3b5kmv +MaVnZWnSkWv75IVJ0r01l1Tu6dKxkaF5Y4j0XT3+2jZDOlIfRMT0ko5gndw9 +hnRU8m9UbCVtvmFyWMCUjomB4lerSYtd94tTtqKjb497bxHpfuoncQs7Os5k +5Y2cJ83OsCv13UnHMu+3TUdIx6x6YXLamY45nRPhDqRt4/U7r7nTscSDZ16d +tPS/0kNPvem4HHgs+UkPhzK4P++no/3ZiUPfyPl69DszeyGQjstU3/rcI53k +v1KNEkJHVn+eVgLpXd+i63TC6ehg7PlhB2k55ymnHSfpeKWQaitN+pnV51Mp +SXT0p55uKibXU0q9vcTd83TM44K3B0i7Ml+WNabTMfLKcpYi6Xm18i6eq3T8 +FNDNc4Vcr1rCseqRBB1fqGTRnMn1zpE8XZ99n44BWZVULtIt3Aec7z+m4/NT +GnNF5H4JmHaIH39Bjq8x0nOA3G+FnXI9ft10fD0pvHILuR+P2l8Oiv9CR+32 +d8w2ETbga4HlN/rJ+ikFu7qR/vx4RqN3lI6BjaWeh8j9LZbfkODIzcDsPx53 +fMn+0C/OlDzKy8C1fuecP68m651KEBcEGLhrymbJjrRtXM6n1+IMDBjjVFYn ++0uSz0EtYxUGNvXJKr1aSX6f8ppe1Z0MPHmy57nvcjbMXKXGajszsOhE4F3W +MjZMrZaX03dn4M15WtUs2R9HJ/UPbN3PwGhLQ2YU2T/7Hu+bcY5ioMPyRkFf +Dja8tnogmHSTgYNhx9+UzxPw6slz4vwdBnZpxOxtniOgXr3ZMaOcgf/qrOg/ +ZwmoEfmWk1fFwDeipeZCZD9n9/Cvv/eGge5CGrqmZB7kBLhB3zQDxx2+n1Um +8yLrs3/fwAIDG4f1vqz7j4CLtsHxI0sMFP2eEs43SECKdlLTHJ8siqYNnP5E +5k3cH2L3amlZNHnwScyLzKeA5GVBRqayaCzmpzb8kQCjkrsFmZmyCO4OJ3jq +COihleRvuyKLcqltsw+ek/mVWZw3lS+LX2Z36Ox/RuZnbFGuQ7Es0ug7Fuqf +kPntVJAtWC2LilWyDZ5k/m5YdjE14ZssaiUa7NAsJUDMPTImVEUOmQbuBuqX +CLjXHh4trymHKR8WBnMzCHC0PH6yXUcOO324InjTCUjXOXZCC+TQU/C4WVcK +AQKrDh8ftZfDy7c4Sj2TCOCp8gryDZPD45sykgUjCRgXtvTYVSuH39dUjHxx +I6DzIOPtgVdyuJknAvtdCXj2cgGim+Uw/kAL8yd5fkmNKJG53SGHTurpzO+7 +CNDoW/VlfkgObyo9CntuQ0Ag0br3qog85i3o863ZTMCQ7U6Xfm953HmRarpE +JaD/nMeuoysU8F9omVpICwsCh1QYGqsU8HJklKJEMwtmzeZHRtYo4FHLGL/q +RvI8x50ev5+qgHlbnlct1rNAI7yu0kNVAfdMZrYGPGZBlI+CiO0OBTxcIl0/ +c4s8320eblXOV8DfYlITrdEssPgdZvFDdz3mM2+UvFViwfA+3uDKaEWM06zj +V31aRv5fiHMl1m7AcR1/rg/LS0H4jUIK67cSLh90jum0KwHJpHI7XV0VXGZt +JujhVQzZyvprRPxUkUn86x0+ewteU411JtPUcO5hZvXIo5tgIFmbqt6hjhva +/7j0NNwAQe7rIZ5xGmhg0cb5l+s6SMfKGO1R0ESDq+OCeYoFwCfvet/hlSbK +CLxcSujOBTWmRHnYXi0M8fcZffLmMhztFa6z5NBGDjENSvD9TPg9eW6nRbY2 +ii+6JDfxXwQz9Zc5FqobUceTLzDzWhrUTBr+mW3ZiP6JjD+/TqZAoIpW9zsf +HbTe+6mZHXEWmKPe7Xv4dDFbaCr37MUE2CZHsRa4rotXNz0wnXM6BYoxZ4/X +6unhvySPqrEzMaDko/9UvlsPt8yvfHCyOhJ8avxPVx7ZhBGfhuyf+4bB04J2 +7/G1+nh0sVRQeE8wTN1emlV/oI9TFNfU7sHDsE++hC/H2gC1N+jqmZw6AONK +GbrsMQPcWHmxI+iCDzws/PNtOskQbZr+VWSWeoLulpBZy2RD1Pz1w7s43xPu +fRteVXDeEHXb4q+9SPMEtnSvnmW6IcZMjd2mhnrC3exn5/OuGOJ4Wu9eXfCE +gnPx+mZlhtiUqP9O/b0HnAlZnZb93hBL7bPql3N5gPNWWTSUNkIuye6JHVOu +sNjOK1hHM8LGI7H1E92uUOAz2mMpa4TcW/dRbj53hZ8JVWHOikYoONq+dusF +VzjaaFsermWERv/FCR1QdoWzNiekH5oa4V1x20NWfi7wyOnD342HjXDf3e3N +q0f2wLpDiVVqz4wwuNnz4hq13ZCy5KuTXGuEB4gmryzqbuBKNyUG6o0wJSGg +SGXFbhi6v6y4oNEImSr5++O+7oJHHKezhd8b4afPIz+7MnaB88WYsJkfRtg0 +msKlubgTsh+H69SsZKKitl+FSbcjrOU/SFjvZmKYYAdSqh2gcEtUxNgeJvqE +p5pL3HEAraiULRmuTLwV4UhsyHYAmzHWh05PJl7rLA0/HuIACR3T8/sOMtHl +7WdWs6oDzF2PNomIZWJ5ooSC6Q176DbMeF9UwsRi1WP1mpftwP9YYa5FGRM7 +Bgd/8p2xg5myez7DLCYKRNJExo7bgTCjc1bzPhNjuI65/3SyAyteKcknz5h4 +4rnirXAJO6huL/J+/4GJF9o1uLwNbMFS8KFqaCcT7fYaf29aZwudZo0zlB4m +Thm3pdks2sDUo19Jbl+Z2IwxKwqf2YDqNY3S/4aYaGbetv68uQ1UdxuHnhth +4lyti1mjkg1Yiu4A9TEm1hcWXJIRsAHfxGPvQqaZuCql9TC1zRqmniXkiM8x +0ZT/QntNpTXELWTte7TAxMJ3lRJRWdawZmOxyt5FJpalvFLeGWENeYceTS8t +MbFBZM+s6V5r+B/dn6ae "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8462,164 +13864,120 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV13k4VV8XB3BThaIMcd0M915DMg8hw20tKmPGVEKmTKWkiJAMZSglQyEJ +lZSEey4NSipURJQkQ6mk+AmZp5L3vH+d5/M85zlnn7X3Xt996F6HHXy4ODg4 +1nBycPz/OtPbWC+XXLj5sIYpy6fPeHN7HiXcuDMOdhwpSGn2owGubfWidKbD +kxz/0SI/DQi1u/ORu/M61LvtyzvvhyA0Kp4+/5ENPW5TM75+dvCl2ubw1Mda +yDV6ceuXrweYyg19Hv/YBifit2gL+gTB/Ee9S2Mf+6Duzg+b63tjoG7LrcJ3 +1ych0oW3OvlXKkh+qfrppbIIFozdO+zas0H0oPudFVu4UTogU6lJugDSNU0f +2+zkRe2VLj5b+29AV7bGs/E1AngrsKI0mX4LkgujW7kkhHDBh9fa3fIOiF/8 +fibjqghyJo87LSzdBYryvdNzRSJYEKE5YstXCtTahOi9LBEcmPcozxcuBemx +DcfW14mgkNDHh6rypSC/Pcjj8aAIxrUlPOW2LAVtnkXd79qiGLGUeDUzvRRs +Q8T6tV6LYs3Ng4J2MmWQ6GixuW1mLQoty7jXo1AO1MoWKhenGN5gqQ3sVS+H +MhHHWc2VYsj9+9F8p145dLS5sdJkxHAiXbKmyrwc5OxDGPbmYthW1lsif6Ac +aq3zl7+9LIaKNn+8ikrKYdF0uuWNkTg23D/Jc0OUBalFESWLpuIYdO/8gSMU +Fsgt50hStRfHc9ejdYwkWbD9Bb/xeR9xDJ+ZmHspy4KcLbSK7SniaHGNpUZo +sWATWmU1fRHHfLc70p22LAjWv+beGEdBzSb+/MBEFlgWCE5ZnaNgRHuySepZ +FjBWnEhquUTBKHuR6rLzLHjbvot4f5uCOaFdGn0ZLFALWsXd20JB3rQpadkC +FgwWhRVNUCXQRkfn36qHLHAVtRlZVyGBKzU4T8X8YIF25OPYvGoJ5FK1eGM0 +yAL+PkUx+ksJdDTLHJ4eYkFVOTcodEmg2mrPO25jLBCzqkrVWJLA4tsfZfn/ +kO+Pldu4zYqKRkf9qY2rCdj6eyEi8DsVt2/2Kh7QJSDc/KLS82EqtrgET2vp +E1B2TbVbZIaKoh++bYo0JIDi6KFfxbsOaX/8i7iQgOGHL2a51dYhn68tbcSc +gIy41JDLx9fhrGFThYYzAX1rFQLrBSTx989vt4MjCBA//FRKXFwSX7/P03M7 +QcD2Bqc3+2mSWNf1q27bSQLuRySrrNaWxCQlnY6VcQSc/TI2tMdJEmts7w4G +nyFAq/ix3+/rkrgvisZZmUVArJG9J3WTFH6z+sk/QxBg7pY3oWcihW1zCybX +KwgQjPl1aud2KayO3/nH8h4BuXXxRakeUsj8cWs07SEBDy0f/Vp+RgpzplKH +p2sIGHOSDZ3skkKT6IRysSYCHkQErRDql8JdgpJyyc0EnMx9kq02KoUJfDdp +f98QsOrr7sf7uaQxKud6xfu3BKz3O8fxVUkaz0dx2u3pIMDt2PTZ5khpnHAL +66n5SoB8lonkULw0dg/ErP777f/1u1C6IlUaI9M3t+t8JyDi74a3JoXS2Oqg +LJz/g4BLp9zWVjVLY1X77iDzIQKa017l35SSwZqE18zZCbLeFaKadetl8N8j +jReLkwQ4f/Cs/aopg/qPxQY4pgkYpPztX2cqg1uq5v7+nSGAu0BDKT1QBuMV +Ak41LxBgUHa58uRTGfQc5U5r5GTD1o8ti6MNMmjouUPvHBcbbDh4zNzbZNAP +5setuNmwzyGwC36Qzy+8VFTLwwbTSHp0zDIaJq10kjq/gg1Nq6tvbOKn4e6i +3NBNvGywK9zVMCZIw9bkH4NfSbu8SRbypNDQjPM/6gZ+NgTJzNwwVqZhUGbB +i8xVbJiuSG2YV6fh2sPDs0oCbIgwVx4hNtJwfT/FvJp0/BEPXcZmGob6X9ja +IciGnLrXDVz2NPSdOfF0YA0bZJx8Rh7tpKFQq8OEtxAbCoeXhIKdaeilLWL+ +hXT5Wh2X7/toGDvxw61JmA31fvkjdaE09EhdsIoVZYPFX33hE5Hk+GTNbg+Q +bklt190YQ8N/05UqVmvZ0FXFF1N4hobjrbksPjE2uNkUFrqm0ND21UHCm3R/ +3+ZG0Qwa9n3m+1xNenRliHB8Lg1XvXB74C3OhuACQT3mNRqunj7iV0l6bmOx +y/RNGppw8W3jpLCB26230Kechgs9McnppJMmjjdKVdLQYH/tdAdpwUSR0Q8P +abjN0SKVIsEGCstcz7SWhs+oY04ZpK9u/e7y7yUNN/CHJjWTZnRFxdxvomHg +SYFfXFQ23D5EuRn4loacigGxuqRVuSoaFT7QMNl963Y/0uxM69HeLhoGy9tu +v0R6k/KgcFYvDb3pJnHPSJs4SrmuGKQhd25NuuA6NrwafBDzdJic/zsPAzVJ +b49yuBk2TsMBgROn7Em3CY00qs/Q8EpJ7btA0ruLEkcHFmj4QMDM+QzpTwYM +kYIlGoZ71UtdI+3VWq3nxEPHd5EzkvdJD+zb7bqGj46TLZedGkgfnBuPaRCg +49fggHcfSRsc8RX7KUzef2Nn+A/SvEPdJdwUOnrNpPX/Jt3hZWtMl6KjxEsR +0VnSN3vqOjYz6Fho1cr7h3SI46aDruvpqHK1qu7/NnlzlzNChY75pQ3b5kmv +MaVnZWnSkWv75IVJ0r01l1Tu6dKxkaF5Y4j0XT3+2jZDOlIfRMT0ko5gndw9 +hnRU8m9UbCVtvmFyWMCUjomB4lerSYtd94tTtqKjb497bxHpfuoncQs7Os5k +5Y2cJ83OsCv13UnHMu+3TUdIx6x6YXLamY45nRPhDqRt4/U7r7nTscSDZ16d +tPS/0kNPvem4HHgs+UkPhzK4P++no/3ZiUPfyPl69DszeyGQjstU3/rcI53k +v1KNEkJHVn+eVgLpXd+i63TC6ehg7PlhB2k55ymnHSfpeKWQaitN+pnV51Mp +SXT0p55uKibXU0q9vcTd83TM44K3B0i7Ml+WNabTMfLKcpYi6Xm18i6eq3T8 +FNDNc4Vcr1rCseqRBB1fqGTRnMn1zpE8XZ99n44BWZVULtIt3Aec7z+m4/NT +GnNF5H4JmHaIH39Bjq8x0nOA3G+FnXI9ft10fD0pvHILuR+P2l8Oiv9CR+32 +d8w2ETbga4HlN/rJ+ikFu7qR/vx4RqN3lI6BjaWeh8j9LZbfkODIzcDsPx53 +fMn+0C/OlDzKy8C1fuecP68m651KEBcEGLhrymbJjrRtXM6n1+IMDBjjVFYn ++0uSz0EtYxUGNvXJKr1aSX6f8ppe1Z0MPHmy57nvcjbMXKXGajszsOhE4F3W +MjZMrZaX03dn4M15WtUs2R9HJ/UPbN3PwGhLQ2YU2T/7Hu+bcY5ioMPyRkFf +Dja8tnogmHSTgYNhx9+UzxPw6slz4vwdBnZpxOxtniOgXr3ZMaOcgf/qrOg/ +ZwmoEfmWk1fFwDeipeZCZD9n9/Cvv/eGge5CGrqmZB7kBLhB3zQDxx2+n1Um +8yLrs3/fwAIDG4f1vqz7j4CLtsHxI0sMFP2eEs43SECKdlLTHJ8siqYNnP5E +5k3cH2L3amlZNHnwScyLzKeA5GVBRqayaCzmpzb8kQCjkrsFmZmyCO4OJ3jq +COihleRvuyKLcqltsw+ek/mVWZw3lS+LX2Z36Ox/RuZnbFGuQ7Es0ug7Fuqf +kPntVJAtWC2LilWyDZ5k/m5YdjE14ZssaiUa7NAsJUDMPTImVEUOmQbuBuqX +CLjXHh4trymHKR8WBnMzCHC0PH6yXUcOO324InjTCUjXOXZCC+TQU/C4WVcK +AQKrDh8ftZfDy7c4Sj2TCOCp8gryDZPD45sykgUjCRgXtvTYVSuH39dUjHxx +I6DzIOPtgVdyuJknAvtdCXj2cgGim+Uw/kAL8yd5fkmNKJG53SGHTurpzO+7 +CNDoW/VlfkgObyo9CntuQ0Ag0br3qog85i3o863ZTMCQ7U6Xfm953HmRarpE +JaD/nMeuoysU8F9omVpICwsCh1QYGqsU8HJklKJEMwtmzeZHRtYo4FHLGL/q +RvI8x50ev5+qgHlbnlct1rNAI7yu0kNVAfdMZrYGPGZBlI+CiO0OBTxcIl0/ +c4s8320eblXOV8DfYlITrdEssPgdZvFDdz3mM2+UvFViwfA+3uDKaEWM06zj +V31aRv5fiHMl1m7AcR1/rg/LS0H4jUIK67cSLh90jum0KwHJpHI7XV0VXGZt +JujhVQzZyvprRPxUkUn86x0+ewteU411JtPUcO5hZvXIo5tgIFmbqt6hjhva +/7j0NNwAQe7rIZ5xGmhg0cb5l+s6SMfKGO1R0ESDq+OCeYoFwCfvet/hlSbK +CLxcSujOBTWmRHnYXi0M8fcZffLmMhztFa6z5NBGDjENSvD9TPg9eW6nRbY2 +ii+6JDfxXwQz9Zc5FqobUceTLzDzWhrUTBr+mW3ZiP6JjD+/TqZAoIpW9zsf +HbTe+6mZHXEWmKPe7Xv4dDFbaCr37MUE2CZHsRa4rotXNz0wnXM6BYoxZ4/X +6unhvySPqrEzMaDko/9UvlsPt8yvfHCyOhJ8avxPVx7ZhBGfhuyf+4bB04J2 +7/G1+nh0sVRQeE8wTN1emlV/oI9TFNfU7sHDsE++hC/H2gC1N+jqmZw6AONK +GbrsMQPcWHmxI+iCDzws/PNtOskQbZr+VWSWeoLulpBZy2RD1Pz1w7s43xPu +fRteVXDeEHXb4q+9SPMEtnSvnmW6IcZMjd2mhnrC3exn5/OuGOJ4Wu9eXfCE +gnPx+mZlhtiUqP9O/b0HnAlZnZb93hBL7bPql3N5gPNWWTSUNkIuye6JHVOu +sNjOK1hHM8LGI7H1E92uUOAz2mMpa4TcW/dRbj53hZ8JVWHOikYoONq+dusF +VzjaaFsermWERv/FCR1QdoWzNiekH5oa4V1x20NWfi7wyOnD342HjXDf3e3N +q0f2wLpDiVVqz4wwuNnz4hq13ZCy5KuTXGuEB4gmryzqbuBKNyUG6o0wJSGg +SGXFbhi6v6y4oNEImSr5++O+7oJHHKezhd8b4afPIz+7MnaB88WYsJkfRtg0 +msKlubgTsh+H69SsZKKitl+FSbcjrOU/SFjvZmKYYAdSqh2gcEtUxNgeJvqE +p5pL3HEAraiULRmuTLwV4UhsyHYAmzHWh05PJl7rLA0/HuIACR3T8/sOMtHl +7WdWs6oDzF2PNomIZWJ5ooSC6Q176DbMeF9UwsRi1WP1mpftwP9YYa5FGRM7 +Bgd/8p2xg5myez7DLCYKRNJExo7bgTCjc1bzPhNjuI65/3SyAyteKcknz5h4 +4rnirXAJO6huL/J+/4GJF9o1uLwNbMFS8KFqaCcT7fYaf29aZwudZo0zlB4m +Thm3pdks2sDUo19Jbl+Z2IwxKwqf2YDqNY3S/4aYaGbetv68uQ1UdxuHnhth +4lyti1mjkg1Yiu4A9TEm1hcWXJIRsAHfxGPvQqaZuCql9TC1zRqmniXkiM8x +0ZT/QntNpTXELWTte7TAxMJ3lRJRWdawZmOxyt5FJpalvFLeGWENeYceTS8t +MbFBZM+s6V5r+B/dn6ae "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07073949364131654}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8631,19 +13989,19 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07073949364131654}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8657,163 +14015,119 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV13k4VV8XB3BThaIMcd0M915DMg8hw20tKmPGVEKmTKWkiJAMZSglQyEJ +lZSEey4NSipURJQkQ6mk+AmZp5L3vH+d5/M85zlnn7X3Xt996F6HHXy4ODg4 +1nBycPz/OtPbWC+XXLj5sIYpy6fPeHN7HiXcuDMOdhwpSGn2owGubfWidKbD +kxz/0SI/DQi1u/ORu/M61LvtyzvvhyA0Kp4+/5ENPW5TM75+dvCl2ubw1Mda +yDV6ceuXrweYyg19Hv/YBifit2gL+gTB/Ee9S2Mf+6Duzg+b63tjoG7LrcJ3 +1ych0oW3OvlXKkh+qfrppbIIFozdO+zas0H0oPudFVu4UTogU6lJugDSNU0f +2+zkRe2VLj5b+29AV7bGs/E1AngrsKI0mX4LkgujW7kkhHDBh9fa3fIOiF/8 +fibjqghyJo87LSzdBYryvdNzRSJYEKE5YstXCtTahOi9LBEcmPcozxcuBemx +DcfW14mgkNDHh6rypSC/Pcjj8aAIxrUlPOW2LAVtnkXd79qiGLGUeDUzvRRs +Q8T6tV6LYs3Ng4J2MmWQ6GixuW1mLQoty7jXo1AO1MoWKhenGN5gqQ3sVS+H +MhHHWc2VYsj9+9F8p145dLS5sdJkxHAiXbKmyrwc5OxDGPbmYthW1lsif6Ac +aq3zl7+9LIaKNn+8ikrKYdF0uuWNkTg23D/Jc0OUBalFESWLpuIYdO/8gSMU +Fsgt50hStRfHc9ejdYwkWbD9Bb/xeR9xDJ+ZmHspy4KcLbSK7SniaHGNpUZo +sWATWmU1fRHHfLc70p22LAjWv+beGEdBzSb+/MBEFlgWCE5ZnaNgRHuySepZ +FjBWnEhquUTBKHuR6rLzLHjbvot4f5uCOaFdGn0ZLFALWsXd20JB3rQpadkC +FgwWhRVNUCXQRkfn36qHLHAVtRlZVyGBKzU4T8X8YIF25OPYvGoJ5FK1eGM0 +yAL+PkUx+ksJdDTLHJ4eYkFVOTcodEmg2mrPO25jLBCzqkrVWJLA4tsfZfn/ +kO+Pldu4zYqKRkf9qY2rCdj6eyEi8DsVt2/2Kh7QJSDc/KLS82EqtrgET2vp +E1B2TbVbZIaKoh++bYo0JIDi6KFfxbsOaX/8i7iQgOGHL2a51dYhn68tbcSc +gIy41JDLx9fhrGFThYYzAX1rFQLrBSTx989vt4MjCBA//FRKXFwSX7/P03M7 +QcD2Bqc3+2mSWNf1q27bSQLuRySrrNaWxCQlnY6VcQSc/TI2tMdJEmts7w4G +nyFAq/ix3+/rkrgvisZZmUVArJG9J3WTFH6z+sk/QxBg7pY3oWcihW1zCybX +KwgQjPl1aud2KayO3/nH8h4BuXXxRakeUsj8cWs07SEBDy0f/Vp+RgpzplKH +p2sIGHOSDZ3skkKT6IRysSYCHkQErRDql8JdgpJyyc0EnMx9kq02KoUJfDdp +f98QsOrr7sf7uaQxKud6xfu3BKz3O8fxVUkaz0dx2u3pIMDt2PTZ5khpnHAL +66n5SoB8lonkULw0dg/ErP777f/1u1C6IlUaI9M3t+t8JyDi74a3JoXS2Oqg +LJz/g4BLp9zWVjVLY1X77iDzIQKa017l35SSwZqE18zZCbLeFaKadetl8N8j +jReLkwQ4f/Cs/aopg/qPxQY4pgkYpPztX2cqg1uq5v7+nSGAu0BDKT1QBuMV +Ak41LxBgUHa58uRTGfQc5U5r5GTD1o8ti6MNMmjouUPvHBcbbDh4zNzbZNAP +5setuNmwzyGwC36Qzy+8VFTLwwbTSHp0zDIaJq10kjq/gg1Nq6tvbOKn4e6i +3NBNvGywK9zVMCZIw9bkH4NfSbu8SRbypNDQjPM/6gZ+NgTJzNwwVqZhUGbB +i8xVbJiuSG2YV6fh2sPDs0oCbIgwVx4hNtJwfT/FvJp0/BEPXcZmGob6X9ja +IciGnLrXDVz2NPSdOfF0YA0bZJx8Rh7tpKFQq8OEtxAbCoeXhIKdaeilLWL+ +hXT5Wh2X7/toGDvxw61JmA31fvkjdaE09EhdsIoVZYPFX33hE5Hk+GTNbg+Q +bklt190YQ8N/05UqVmvZ0FXFF1N4hobjrbksPjE2uNkUFrqm0ND21UHCm3R/ +3+ZG0Qwa9n3m+1xNenRliHB8Lg1XvXB74C3OhuACQT3mNRqunj7iV0l6bmOx +y/RNGppw8W3jpLCB26230Kechgs9McnppJMmjjdKVdLQYH/tdAdpwUSR0Q8P +abjN0SKVIsEGCstcz7SWhs+oY04ZpK9u/e7y7yUNN/CHJjWTZnRFxdxvomHg +SYFfXFQ23D5EuRn4loacigGxuqRVuSoaFT7QMNl963Y/0uxM69HeLhoGy9tu +v0R6k/KgcFYvDb3pJnHPSJs4SrmuGKQhd25NuuA6NrwafBDzdJic/zsPAzVJ +b49yuBk2TsMBgROn7Em3CY00qs/Q8EpJ7btA0ruLEkcHFmj4QMDM+QzpTwYM +kYIlGoZ71UtdI+3VWq3nxEPHd5EzkvdJD+zb7bqGj46TLZedGkgfnBuPaRCg +49fggHcfSRsc8RX7KUzef2Nn+A/SvEPdJdwUOnrNpPX/Jt3hZWtMl6KjxEsR +0VnSN3vqOjYz6Fho1cr7h3SI46aDruvpqHK1qu7/NnlzlzNChY75pQ3b5kmv +MaVnZWnSkWv75IVJ0r01l1Tu6dKxkaF5Y4j0XT3+2jZDOlIfRMT0ko5gndw9 +hnRU8m9UbCVtvmFyWMCUjomB4lerSYtd94tTtqKjb497bxHpfuoncQs7Os5k +5Y2cJ83OsCv13UnHMu+3TUdIx6x6YXLamY45nRPhDqRt4/U7r7nTscSDZ16d +tPS/0kNPvem4HHgs+UkPhzK4P++no/3ZiUPfyPl69DszeyGQjstU3/rcI53k +v1KNEkJHVn+eVgLpXd+i63TC6ehg7PlhB2k55ymnHSfpeKWQaitN+pnV51Mp +SXT0p55uKibXU0q9vcTd83TM44K3B0i7Ml+WNabTMfLKcpYi6Xm18i6eq3T8 +FNDNc4Vcr1rCseqRBB1fqGTRnMn1zpE8XZ99n44BWZVULtIt3Aec7z+m4/NT +GnNF5H4JmHaIH39Bjq8x0nOA3G+FnXI9ft10fD0pvHILuR+P2l8Oiv9CR+32 +d8w2ETbga4HlN/rJ+ikFu7qR/vx4RqN3lI6BjaWeh8j9LZbfkODIzcDsPx53 +fMn+0C/OlDzKy8C1fuecP68m651KEBcEGLhrymbJjrRtXM6n1+IMDBjjVFYn ++0uSz0EtYxUGNvXJKr1aSX6f8ppe1Z0MPHmy57nvcjbMXKXGajszsOhE4F3W +MjZMrZaX03dn4M15WtUs2R9HJ/UPbN3PwGhLQ2YU2T/7Hu+bcY5ioMPyRkFf +Dja8tnogmHSTgYNhx9+UzxPw6slz4vwdBnZpxOxtniOgXr3ZMaOcgf/qrOg/ +ZwmoEfmWk1fFwDeipeZCZD9n9/Cvv/eGge5CGrqmZB7kBLhB3zQDxx2+n1Um +8yLrs3/fwAIDG4f1vqz7j4CLtsHxI0sMFP2eEs43SECKdlLTHJ8siqYNnP5E +5k3cH2L3amlZNHnwScyLzKeA5GVBRqayaCzmpzb8kQCjkrsFmZmyCO4OJ3jq +COihleRvuyKLcqltsw+ek/mVWZw3lS+LX2Z36Ox/RuZnbFGuQ7Es0ug7Fuqf +kPntVJAtWC2LilWyDZ5k/m5YdjE14ZssaiUa7NAsJUDMPTImVEUOmQbuBuqX +CLjXHh4trymHKR8WBnMzCHC0PH6yXUcOO324InjTCUjXOXZCC+TQU/C4WVcK +AQKrDh8ftZfDy7c4Sj2TCOCp8gryDZPD45sykgUjCRgXtvTYVSuH39dUjHxx +I6DzIOPtgVdyuJknAvtdCXj2cgGim+Uw/kAL8yd5fkmNKJG53SGHTurpzO+7 +CNDoW/VlfkgObyo9CntuQ0Ag0br3qog85i3o863ZTMCQ7U6Xfm953HmRarpE +JaD/nMeuoysU8F9omVpICwsCh1QYGqsU8HJklKJEMwtmzeZHRtYo4FHLGL/q +RvI8x50ev5+qgHlbnlct1rNAI7yu0kNVAfdMZrYGPGZBlI+CiO0OBTxcIl0/ +c4s8320eblXOV8DfYlITrdEssPgdZvFDdz3mM2+UvFViwfA+3uDKaEWM06zj +V31aRv5fiHMl1m7AcR1/rg/LS0H4jUIK67cSLh90jum0KwHJpHI7XV0VXGZt +JujhVQzZyvprRPxUkUn86x0+ewteU411JtPUcO5hZvXIo5tgIFmbqt6hjhva +/7j0NNwAQe7rIZ5xGmhg0cb5l+s6SMfKGO1R0ESDq+OCeYoFwCfvet/hlSbK +CLxcSujOBTWmRHnYXi0M8fcZffLmMhztFa6z5NBGDjENSvD9TPg9eW6nRbY2 +ii+6JDfxXwQz9Zc5FqobUceTLzDzWhrUTBr+mW3ZiP6JjD+/TqZAoIpW9zsf +HbTe+6mZHXEWmKPe7Xv4dDFbaCr37MUE2CZHsRa4rotXNz0wnXM6BYoxZ4/X +6unhvySPqrEzMaDko/9UvlsPt8yvfHCyOhJ8avxPVx7ZhBGfhuyf+4bB04J2 +7/G1+nh0sVRQeE8wTN1emlV/oI9TFNfU7sHDsE++hC/H2gC1N+jqmZw6AONK +GbrsMQPcWHmxI+iCDzws/PNtOskQbZr+VWSWeoLulpBZy2RD1Pz1w7s43xPu +fRteVXDeEHXb4q+9SPMEtnSvnmW6IcZMjd2mhnrC3exn5/OuGOJ4Wu9eXfCE +gnPx+mZlhtiUqP9O/b0HnAlZnZb93hBL7bPql3N5gPNWWTSUNkIuye6JHVOu +sNjOK1hHM8LGI7H1E92uUOAz2mMpa4TcW/dRbj53hZ8JVWHOikYoONq+dusF +VzjaaFsermWERv/FCR1QdoWzNiekH5oa4V1x20NWfi7wyOnD342HjXDf3e3N +q0f2wLpDiVVqz4wwuNnz4hq13ZCy5KuTXGuEB4gmryzqbuBKNyUG6o0wJSGg +SGXFbhi6v6y4oNEImSr5++O+7oJHHKezhd8b4afPIz+7MnaB88WYsJkfRtg0 +msKlubgTsh+H69SsZKKitl+FSbcjrOU/SFjvZmKYYAdSqh2gcEtUxNgeJvqE +p5pL3HEAraiULRmuTLwV4UhsyHYAmzHWh05PJl7rLA0/HuIACR3T8/sOMtHl +7WdWs6oDzF2PNomIZWJ5ooSC6Q176DbMeF9UwsRi1WP1mpftwP9YYa5FGRM7 +Bgd/8p2xg5myez7DLCYKRNJExo7bgTCjc1bzPhNjuI65/3SyAyteKcknz5h4 +4rnirXAJO6huL/J+/4GJF9o1uLwNbMFS8KFqaCcT7fYaf29aZwudZo0zlB4m +Thm3pdks2sDUo19Jbl+Z2IwxKwqf2YDqNY3S/4aYaGbetv68uQ1UdxuHnhth +4lyti1mjkg1Yiu4A9TEm1hcWXJIRsAHfxGPvQqaZuCql9TC1zRqmniXkiM8x +0ZT/QntNpTXELWTte7TAxMJ3lRJRWdawZmOxyt5FJpalvFLeGWENeYceTS8t +MbFBZM+s6V5r+B/dn6ae "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.07073949364131654}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8824,6 +14138,7 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8851,7 +14166,8 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07073949364131654}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8859,17 +14175,580 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913324679337597`*^9}, + CellChangeTimes->{3.9913324679337597`*^9, 3.993921039074931*^9}, CellLabel-> - "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] + "Out[140]=",ExpressionUUID->"662b8b51-da5b-4f68-bba7-1c9ae632d5ff"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ -b989835aa113"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VV8XB3BThaIMcd0M915DMg8hw20tKmPGVEKmTKWkiJAMZSglQyEJ +lZSEey4NSipURJQkQ6mk+AmZp5L3vH+d5/M85zlnn7X3Xt996F6HHXy4ODg4 +1nBycPz/OtPbWC+XXLj5sIYpy6fPeHN7HiXcuDMOdhwpSGn2owGubfWidKbD +kxz/0SI/DQi1u/ORu/M61LvtyzvvhyA0Kp4+/5ENPW5TM75+dvCl2ubw1Mda +yDV6ceuXrweYyg19Hv/YBifit2gL+gTB/Ee9S2Mf+6Duzg+b63tjoG7LrcJ3 +1ych0oW3OvlXKkh+qfrppbIIFozdO+zas0H0oPudFVu4UTogU6lJugDSNU0f +2+zkRe2VLj5b+29AV7bGs/E1AngrsKI0mX4LkgujW7kkhHDBh9fa3fIOiF/8 +fibjqghyJo87LSzdBYryvdNzRSJYEKE5YstXCtTahOi9LBEcmPcozxcuBemx +DcfW14mgkNDHh6rypSC/Pcjj8aAIxrUlPOW2LAVtnkXd79qiGLGUeDUzvRRs +Q8T6tV6LYs3Ng4J2MmWQ6GixuW1mLQoty7jXo1AO1MoWKhenGN5gqQ3sVS+H +MhHHWc2VYsj9+9F8p145dLS5sdJkxHAiXbKmyrwc5OxDGPbmYthW1lsif6Ac +aq3zl7+9LIaKNn+8ikrKYdF0uuWNkTg23D/Jc0OUBalFESWLpuIYdO/8gSMU +Fsgt50hStRfHc9ejdYwkWbD9Bb/xeR9xDJ+ZmHspy4KcLbSK7SniaHGNpUZo +sWATWmU1fRHHfLc70p22LAjWv+beGEdBzSb+/MBEFlgWCE5ZnaNgRHuySepZ +FjBWnEhquUTBKHuR6rLzLHjbvot4f5uCOaFdGn0ZLFALWsXd20JB3rQpadkC +FgwWhRVNUCXQRkfn36qHLHAVtRlZVyGBKzU4T8X8YIF25OPYvGoJ5FK1eGM0 +yAL+PkUx+ksJdDTLHJ4eYkFVOTcodEmg2mrPO25jLBCzqkrVWJLA4tsfZfn/ +kO+Pldu4zYqKRkf9qY2rCdj6eyEi8DsVt2/2Kh7QJSDc/KLS82EqtrgET2vp +E1B2TbVbZIaKoh++bYo0JIDi6KFfxbsOaX/8i7iQgOGHL2a51dYhn68tbcSc +gIy41JDLx9fhrGFThYYzAX1rFQLrBSTx989vt4MjCBA//FRKXFwSX7/P03M7 +QcD2Bqc3+2mSWNf1q27bSQLuRySrrNaWxCQlnY6VcQSc/TI2tMdJEmts7w4G +nyFAq/ix3+/rkrgvisZZmUVArJG9J3WTFH6z+sk/QxBg7pY3oWcihW1zCybX +KwgQjPl1aud2KayO3/nH8h4BuXXxRakeUsj8cWs07SEBDy0f/Vp+RgpzplKH +p2sIGHOSDZ3skkKT6IRysSYCHkQErRDql8JdgpJyyc0EnMx9kq02KoUJfDdp +f98QsOrr7sf7uaQxKud6xfu3BKz3O8fxVUkaz0dx2u3pIMDt2PTZ5khpnHAL +66n5SoB8lonkULw0dg/ErP777f/1u1C6IlUaI9M3t+t8JyDi74a3JoXS2Oqg +LJz/g4BLp9zWVjVLY1X77iDzIQKa017l35SSwZqE18zZCbLeFaKadetl8N8j +jReLkwQ4f/Cs/aopg/qPxQY4pgkYpPztX2cqg1uq5v7+nSGAu0BDKT1QBuMV +Ak41LxBgUHa58uRTGfQc5U5r5GTD1o8ti6MNMmjouUPvHBcbbDh4zNzbZNAP +5setuNmwzyGwC36Qzy+8VFTLwwbTSHp0zDIaJq10kjq/gg1Nq6tvbOKn4e6i +3NBNvGywK9zVMCZIw9bkH4NfSbu8SRbypNDQjPM/6gZ+NgTJzNwwVqZhUGbB +i8xVbJiuSG2YV6fh2sPDs0oCbIgwVx4hNtJwfT/FvJp0/BEPXcZmGob6X9ja +IciGnLrXDVz2NPSdOfF0YA0bZJx8Rh7tpKFQq8OEtxAbCoeXhIKdaeilLWL+ +hXT5Wh2X7/toGDvxw61JmA31fvkjdaE09EhdsIoVZYPFX33hE5Hk+GTNbg+Q +bklt190YQ8N/05UqVmvZ0FXFF1N4hobjrbksPjE2uNkUFrqm0ND21UHCm3R/ +3+ZG0Qwa9n3m+1xNenRliHB8Lg1XvXB74C3OhuACQT3mNRqunj7iV0l6bmOx +y/RNGppw8W3jpLCB26230Kechgs9McnppJMmjjdKVdLQYH/tdAdpwUSR0Q8P +abjN0SKVIsEGCstcz7SWhs+oY04ZpK9u/e7y7yUNN/CHJjWTZnRFxdxvomHg +SYFfXFQ23D5EuRn4loacigGxuqRVuSoaFT7QMNl963Y/0uxM69HeLhoGy9tu +v0R6k/KgcFYvDb3pJnHPSJs4SrmuGKQhd25NuuA6NrwafBDzdJic/zsPAzVJ +b49yuBk2TsMBgROn7Em3CY00qs/Q8EpJ7btA0ruLEkcHFmj4QMDM+QzpTwYM +kYIlGoZ71UtdI+3VWq3nxEPHd5EzkvdJD+zb7bqGj46TLZedGkgfnBuPaRCg +49fggHcfSRsc8RX7KUzef2Nn+A/SvEPdJdwUOnrNpPX/Jt3hZWtMl6KjxEsR +0VnSN3vqOjYz6Fho1cr7h3SI46aDruvpqHK1qu7/NnlzlzNChY75pQ3b5kmv +MaVnZWnSkWv75IVJ0r01l1Tu6dKxkaF5Y4j0XT3+2jZDOlIfRMT0ko5gndw9 +hnRU8m9UbCVtvmFyWMCUjomB4lerSYtd94tTtqKjb497bxHpfuoncQs7Os5k +5Y2cJ83OsCv13UnHMu+3TUdIx6x6YXLamY45nRPhDqRt4/U7r7nTscSDZ16d +tPS/0kNPvem4HHgs+UkPhzK4P++no/3ZiUPfyPl69DszeyGQjstU3/rcI53k +v1KNEkJHVn+eVgLpXd+i63TC6ehg7PlhB2k55ymnHSfpeKWQaitN+pnV51Mp +SXT0p55uKibXU0q9vcTd83TM44K3B0i7Ml+WNabTMfLKcpYi6Xm18i6eq3T8 +FNDNc4Vcr1rCseqRBB1fqGTRnMn1zpE8XZ99n44BWZVULtIt3Aec7z+m4/NT +GnNF5H4JmHaIH39Bjq8x0nOA3G+FnXI9ft10fD0pvHILuR+P2l8Oiv9CR+32 +d8w2ETbga4HlN/rJ+ikFu7qR/vx4RqN3lI6BjaWeh8j9LZbfkODIzcDsPx53 +fMn+0C/OlDzKy8C1fuecP68m651KEBcEGLhrymbJjrRtXM6n1+IMDBjjVFYn ++0uSz0EtYxUGNvXJKr1aSX6f8ppe1Z0MPHmy57nvcjbMXKXGajszsOhE4F3W +MjZMrZaX03dn4M15WtUs2R9HJ/UPbN3PwGhLQ2YU2T/7Hu+bcY5ioMPyRkFf +Dja8tnogmHSTgYNhx9+UzxPw6slz4vwdBnZpxOxtniOgXr3ZMaOcgf/qrOg/ +ZwmoEfmWk1fFwDeipeZCZD9n9/Cvv/eGge5CGrqmZB7kBLhB3zQDxx2+n1Um +8yLrs3/fwAIDG4f1vqz7j4CLtsHxI0sMFP2eEs43SECKdlLTHJ8siqYNnP5E +5k3cH2L3amlZNHnwScyLzKeA5GVBRqayaCzmpzb8kQCjkrsFmZmyCO4OJ3jq +COihleRvuyKLcqltsw+ek/mVWZw3lS+LX2Z36Ox/RuZnbFGuQ7Es0ug7Fuqf +kPntVJAtWC2LilWyDZ5k/m5YdjE14ZssaiUa7NAsJUDMPTImVEUOmQbuBuqX +CLjXHh4trymHKR8WBnMzCHC0PH6yXUcOO324InjTCUjXOXZCC+TQU/C4WVcK +AQKrDh8ftZfDy7c4Sj2TCOCp8gryDZPD45sykgUjCRgXtvTYVSuH39dUjHxx +I6DzIOPtgVdyuJknAvtdCXj2cgGim+Uw/kAL8yd5fkmNKJG53SGHTurpzO+7 +CNDoW/VlfkgObyo9CntuQ0Ag0br3qog85i3o863ZTMCQ7U6Xfm953HmRarpE +JaD/nMeuoysU8F9omVpICwsCh1QYGqsU8HJklKJEMwtmzeZHRtYo4FHLGL/q +RvI8x50ev5+qgHlbnlct1rNAI7yu0kNVAfdMZrYGPGZBlI+CiO0OBTxcIl0/ +c4s8320eblXOV8DfYlITrdEssPgdZvFDdz3mM2+UvFViwfA+3uDKaEWM06zj +V31aRv5fiHMl1m7AcR1/rg/LS0H4jUIK67cSLh90jum0KwHJpHI7XV0VXGZt +JujhVQzZyvprRPxUkUn86x0+ewteU411JtPUcO5hZvXIo5tgIFmbqt6hjhva +/7j0NNwAQe7rIZ5xGmhg0cb5l+s6SMfKGO1R0ESDq+OCeYoFwCfvet/hlSbK +CLxcSujOBTWmRHnYXi0M8fcZffLmMhztFa6z5NBGDjENSvD9TPg9eW6nRbY2 +ii+6JDfxXwQz9Zc5FqobUceTLzDzWhrUTBr+mW3ZiP6JjD+/TqZAoIpW9zsf +HbTe+6mZHXEWmKPe7Xv4dDFbaCr37MUE2CZHsRa4rotXNz0wnXM6BYoxZ4/X +6unhvySPqrEzMaDko/9UvlsPt8yvfHCyOhJ8avxPVx7ZhBGfhuyf+4bB04J2 +7/G1+nh0sVRQeE8wTN1emlV/oI9TFNfU7sHDsE++hC/H2gC1N+jqmZw6AONK +GbrsMQPcWHmxI+iCDzws/PNtOskQbZr+VWSWeoLulpBZy2RD1Pz1w7s43xPu +fRteVXDeEHXb4q+9SPMEtnSvnmW6IcZMjd2mhnrC3exn5/OuGOJ4Wu9eXfCE +gnPx+mZlhtiUqP9O/b0HnAlZnZb93hBL7bPql3N5gPNWWTSUNkIuye6JHVOu +sNjOK1hHM8LGI7H1E92uUOAz2mMpa4TcW/dRbj53hZ8JVWHOikYoONq+dusF +VzjaaFsermWERv/FCR1QdoWzNiekH5oa4V1x20NWfi7wyOnD342HjXDf3e3N +q0f2wLpDiVVqz4wwuNnz4hq13ZCy5KuTXGuEB4gmryzqbuBKNyUG6o0wJSGg +SGXFbhi6v6y4oNEImSr5++O+7oJHHKezhd8b4afPIz+7MnaB88WYsJkfRtg0 +msKlubgTsh+H69SsZKKitl+FSbcjrOU/SFjvZmKYYAdSqh2gcEtUxNgeJvqE +p5pL3HEAraiULRmuTLwV4UhsyHYAmzHWh05PJl7rLA0/HuIACR3T8/sOMtHl +7WdWs6oDzF2PNomIZWJ5ooSC6Q176DbMeF9UwsRi1WP1mpftwP9YYa5FGRM7 +Bgd/8p2xg5myez7DLCYKRNJExo7bgTCjc1bzPhNjuI65/3SyAyteKcknz5h4 +4rnirXAJO6huL/J+/4GJF9o1uLwNbMFS8KFqaCcT7fYaf29aZwudZo0zlB4m +Thm3pdks2sDUo19Jbl+Z2IwxKwqf2YDqNY3S/4aYaGbetv68uQ1UdxuHnhth +4lyti1mjkg1Yiu4A9TEm1hcWXJIRsAHfxGPvQqaZuCql9TC1zRqmniXkiM8x +0ZT/QntNpTXELWTte7TAxMJ3lRJRWdawZmOxyt5FJpalvFLeGWENeYceTS8t +MbFBZM+s6V5r+B/dn6ae + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV8XB3BThaIMcd0M915DMg8hw20tKmPGVEKmTKWkiJAMZSglQyEJ +lZSEey4NSipURJQkQ6mk+AmZp5L3vH+d5/M85zlnn7X3Xt996F6HHXy4ODg4 +1nBycPz/OtPbWC+XXLj5sIYpy6fPeHN7HiXcuDMOdhwpSGn2owGubfWidKbD +kxz/0SI/DQi1u/ORu/M61LvtyzvvhyA0Kp4+/5ENPW5TM75+dvCl2ubw1Mda +yDV6ceuXrweYyg19Hv/YBifit2gL+gTB/Ee9S2Mf+6Duzg+b63tjoG7LrcJ3 +1ych0oW3OvlXKkh+qfrppbIIFozdO+zas0H0oPudFVu4UTogU6lJugDSNU0f +2+zkRe2VLj5b+29AV7bGs/E1AngrsKI0mX4LkgujW7kkhHDBh9fa3fIOiF/8 +fibjqghyJo87LSzdBYryvdNzRSJYEKE5YstXCtTahOi9LBEcmPcozxcuBemx +DcfW14mgkNDHh6rypSC/Pcjj8aAIxrUlPOW2LAVtnkXd79qiGLGUeDUzvRRs +Q8T6tV6LYs3Ng4J2MmWQ6GixuW1mLQoty7jXo1AO1MoWKhenGN5gqQ3sVS+H +MhHHWc2VYsj9+9F8p145dLS5sdJkxHAiXbKmyrwc5OxDGPbmYthW1lsif6Ac +aq3zl7+9LIaKNn+8ikrKYdF0uuWNkTg23D/Jc0OUBalFESWLpuIYdO/8gSMU +Fsgt50hStRfHc9ejdYwkWbD9Bb/xeR9xDJ+ZmHspy4KcLbSK7SniaHGNpUZo +sWATWmU1fRHHfLc70p22LAjWv+beGEdBzSb+/MBEFlgWCE5ZnaNgRHuySepZ +FjBWnEhquUTBKHuR6rLzLHjbvot4f5uCOaFdGn0ZLFALWsXd20JB3rQpadkC +FgwWhRVNUCXQRkfn36qHLHAVtRlZVyGBKzU4T8X8YIF25OPYvGoJ5FK1eGM0 +yAL+PkUx+ksJdDTLHJ4eYkFVOTcodEmg2mrPO25jLBCzqkrVWJLA4tsfZfn/ +kO+Pldu4zYqKRkf9qY2rCdj6eyEi8DsVt2/2Kh7QJSDc/KLS82EqtrgET2vp +E1B2TbVbZIaKoh++bYo0JIDi6KFfxbsOaX/8i7iQgOGHL2a51dYhn68tbcSc +gIy41JDLx9fhrGFThYYzAX1rFQLrBSTx989vt4MjCBA//FRKXFwSX7/P03M7 +QcD2Bqc3+2mSWNf1q27bSQLuRySrrNaWxCQlnY6VcQSc/TI2tMdJEmts7w4G +nyFAq/ix3+/rkrgvisZZmUVArJG9J3WTFH6z+sk/QxBg7pY3oWcihW1zCybX +KwgQjPl1aud2KayO3/nH8h4BuXXxRakeUsj8cWs07SEBDy0f/Vp+RgpzplKH +p2sIGHOSDZ3skkKT6IRysSYCHkQErRDql8JdgpJyyc0EnMx9kq02KoUJfDdp +f98QsOrr7sf7uaQxKud6xfu3BKz3O8fxVUkaz0dx2u3pIMDt2PTZ5khpnHAL +66n5SoB8lonkULw0dg/ErP777f/1u1C6IlUaI9M3t+t8JyDi74a3JoXS2Oqg +LJz/g4BLp9zWVjVLY1X77iDzIQKa017l35SSwZqE18zZCbLeFaKadetl8N8j +jReLkwQ4f/Cs/aopg/qPxQY4pgkYpPztX2cqg1uq5v7+nSGAu0BDKT1QBuMV +Ak41LxBgUHa58uRTGfQc5U5r5GTD1o8ti6MNMmjouUPvHBcbbDh4zNzbZNAP +5setuNmwzyGwC36Qzy+8VFTLwwbTSHp0zDIaJq10kjq/gg1Nq6tvbOKn4e6i +3NBNvGywK9zVMCZIw9bkH4NfSbu8SRbypNDQjPM/6gZ+NgTJzNwwVqZhUGbB +i8xVbJiuSG2YV6fh2sPDs0oCbIgwVx4hNtJwfT/FvJp0/BEPXcZmGob6X9ja +IciGnLrXDVz2NPSdOfF0YA0bZJx8Rh7tpKFQq8OEtxAbCoeXhIKdaeilLWL+ +hXT5Wh2X7/toGDvxw61JmA31fvkjdaE09EhdsIoVZYPFX33hE5Hk+GTNbg+Q +bklt190YQ8N/05UqVmvZ0FXFF1N4hobjrbksPjE2uNkUFrqm0ND21UHCm3R/ +3+ZG0Qwa9n3m+1xNenRliHB8Lg1XvXB74C3OhuACQT3mNRqunj7iV0l6bmOx +y/RNGppw8W3jpLCB26230Kechgs9McnppJMmjjdKVdLQYH/tdAdpwUSR0Q8P +abjN0SKVIsEGCstcz7SWhs+oY04ZpK9u/e7y7yUNN/CHJjWTZnRFxdxvomHg +SYFfXFQ23D5EuRn4loacigGxuqRVuSoaFT7QMNl963Y/0uxM69HeLhoGy9tu +v0R6k/KgcFYvDb3pJnHPSJs4SrmuGKQhd25NuuA6NrwafBDzdJic/zsPAzVJ +b49yuBk2TsMBgROn7Em3CY00qs/Q8EpJ7btA0ruLEkcHFmj4QMDM+QzpTwYM +kYIlGoZ71UtdI+3VWq3nxEPHd5EzkvdJD+zb7bqGj46TLZedGkgfnBuPaRCg +49fggHcfSRsc8RX7KUzef2Nn+A/SvEPdJdwUOnrNpPX/Jt3hZWtMl6KjxEsR +0VnSN3vqOjYz6Fho1cr7h3SI46aDruvpqHK1qu7/NnlzlzNChY75pQ3b5kmv +MaVnZWnSkWv75IVJ0r01l1Tu6dKxkaF5Y4j0XT3+2jZDOlIfRMT0ko5gndw9 +hnRU8m9UbCVtvmFyWMCUjomB4lerSYtd94tTtqKjb497bxHpfuoncQs7Os5k +5Y2cJ83OsCv13UnHMu+3TUdIx6x6YXLamY45nRPhDqRt4/U7r7nTscSDZ16d +tPS/0kNPvem4HHgs+UkPhzK4P++no/3ZiUPfyPl69DszeyGQjstU3/rcI53k +v1KNEkJHVn+eVgLpXd+i63TC6ehg7PlhB2k55ymnHSfpeKWQaitN+pnV51Mp +SXT0p55uKibXU0q9vcTd83TM44K3B0i7Ml+WNabTMfLKcpYi6Xm18i6eq3T8 +FNDNc4Vcr1rCseqRBB1fqGTRnMn1zpE8XZ99n44BWZVULtIt3Aec7z+m4/NT +GnNF5H4JmHaIH39Bjq8x0nOA3G+FnXI9ft10fD0pvHILuR+P2l8Oiv9CR+32 +d8w2ETbga4HlN/rJ+ikFu7qR/vx4RqN3lI6BjaWeh8j9LZbfkODIzcDsPx53 +fMn+0C/OlDzKy8C1fuecP68m651KEBcEGLhrymbJjrRtXM6n1+IMDBjjVFYn ++0uSz0EtYxUGNvXJKr1aSX6f8ppe1Z0MPHmy57nvcjbMXKXGajszsOhE4F3W +MjZMrZaX03dn4M15WtUs2R9HJ/UPbN3PwGhLQ2YU2T/7Hu+bcY5ioMPyRkFf +Dja8tnogmHSTgYNhx9+UzxPw6slz4vwdBnZpxOxtniOgXr3ZMaOcgf/qrOg/ +ZwmoEfmWk1fFwDeipeZCZD9n9/Cvv/eGge5CGrqmZB7kBLhB3zQDxx2+n1Um +8yLrs3/fwAIDG4f1vqz7j4CLtsHxI0sMFP2eEs43SECKdlLTHJ8siqYNnP5E +5k3cH2L3amlZNHnwScyLzKeA5GVBRqayaCzmpzb8kQCjkrsFmZmyCO4OJ3jq +COihleRvuyKLcqltsw+ek/mVWZw3lS+LX2Z36Ox/RuZnbFGuQ7Es0ug7Fuqf +kPntVJAtWC2LilWyDZ5k/m5YdjE14ZssaiUa7NAsJUDMPTImVEUOmQbuBuqX +CLjXHh4trymHKR8WBnMzCHC0PH6yXUcOO324InjTCUjXOXZCC+TQU/C4WVcK +AQKrDh8ftZfDy7c4Sj2TCOCp8gryDZPD45sykgUjCRgXtvTYVSuH39dUjHxx +I6DzIOPtgVdyuJknAvtdCXj2cgGim+Uw/kAL8yd5fkmNKJG53SGHTurpzO+7 +CNDoW/VlfkgObyo9CntuQ0Ag0br3qog85i3o863ZTMCQ7U6Xfm953HmRarpE +JaD/nMeuoysU8F9omVpICwsCh1QYGqsU8HJklKJEMwtmzeZHRtYo4FHLGL/q +RvI8x50ev5+qgHlbnlct1rNAI7yu0kNVAfdMZrYGPGZBlI+CiO0OBTxcIl0/ +c4s8320eblXOV8DfYlITrdEssPgdZvFDdz3mM2+UvFViwfA+3uDKaEWM06zj +V31aRv5fiHMl1m7AcR1/rg/LS0H4jUIK67cSLh90jum0KwHJpHI7XV0VXGZt +JujhVQzZyvprRPxUkUn86x0+ewteU411JtPUcO5hZvXIo5tgIFmbqt6hjhva +/7j0NNwAQe7rIZ5xGmhg0cb5l+s6SMfKGO1R0ESDq+OCeYoFwCfvet/hlSbK +CLxcSujOBTWmRHnYXi0M8fcZffLmMhztFa6z5NBGDjENSvD9TPg9eW6nRbY2 +ii+6JDfxXwQz9Zc5FqobUceTLzDzWhrUTBr+mW3ZiP6JjD+/TqZAoIpW9zsf +HbTe+6mZHXEWmKPe7Xv4dDFbaCr37MUE2CZHsRa4rotXNz0wnXM6BYoxZ4/X +6unhvySPqrEzMaDko/9UvlsPt8yvfHCyOhJ8avxPVx7ZhBGfhuyf+4bB04J2 +7/G1+nh0sVRQeE8wTN1emlV/oI9TFNfU7sHDsE++hC/H2gC1N+jqmZw6AONK +GbrsMQPcWHmxI+iCDzws/PNtOskQbZr+VWSWeoLulpBZy2RD1Pz1w7s43xPu +fRteVXDeEHXb4q+9SPMEtnSvnmW6IcZMjd2mhnrC3exn5/OuGOJ4Wu9eXfCE +gnPx+mZlhtiUqP9O/b0HnAlZnZb93hBL7bPql3N5gPNWWTSUNkIuye6JHVOu +sNjOK1hHM8LGI7H1E92uUOAz2mMpa4TcW/dRbj53hZ8JVWHOikYoONq+dusF +VzjaaFsermWERv/FCR1QdoWzNiekH5oa4V1x20NWfi7wyOnD342HjXDf3e3N +q0f2wLpDiVVqz4wwuNnz4hq13ZCy5KuTXGuEB4gmryzqbuBKNyUG6o0wJSGg +SGXFbhi6v6y4oNEImSr5++O+7oJHHKezhd8b4afPIz+7MnaB88WYsJkfRtg0 +msKlubgTsh+H69SsZKKitl+FSbcjrOU/SFjvZmKYYAdSqh2gcEtUxNgeJvqE +p5pL3HEAraiULRmuTLwV4UhsyHYAmzHWh05PJl7rLA0/HuIACR3T8/sOMtHl +7WdWs6oDzF2PNomIZWJ5ooSC6Q176DbMeF9UwsRi1WP1mpftwP9YYa5FGRM7 +Bgd/8p2xg5myez7DLCYKRNJExo7bgTCjc1bzPhNjuI65/3SyAyteKcknz5h4 +4rnirXAJO6huL/J+/4GJF9o1uLwNbMFS8KFqaCcT7fYaf29aZwudZo0zlB4m +Thm3pdks2sDUo19Jbl+Z2IwxKwqf2YDqNY3S/4aYaGbetv68uQ1UdxuHnhth +4lyti1mjkg1Yiu4A9TEm1hcWXJIRsAHfxGPvQqaZuCql9TC1zRqmniXkiM8x +0ZT/QntNpTXELWTte7TAxMJ3lRJRWdawZmOxyt5FJpalvFLeGWENeYceTS8t +MbFBZM+s6V5r+B/dn6ae + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07073949364131654}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.07073949364131654}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV8XB3BThaIMcd0M915DMg8hw20tKmPGVEKmTKWkiJAMZSglQyEJ +lZSEey4NSipURJQkQ6mk+AmZp5L3vH+d5/M85zlnn7X3Xt996F6HHXy4ODg4 +1nBycPz/OtPbWC+XXLj5sIYpy6fPeHN7HiXcuDMOdhwpSGn2owGubfWidKbD +kxz/0SI/DQi1u/ORu/M61LvtyzvvhyA0Kp4+/5ENPW5TM75+dvCl2ubw1Mda +yDV6ceuXrweYyg19Hv/YBifit2gL+gTB/Ee9S2Mf+6Duzg+b63tjoG7LrcJ3 +1ych0oW3OvlXKkh+qfrppbIIFozdO+zas0H0oPudFVu4UTogU6lJugDSNU0f +2+zkRe2VLj5b+29AV7bGs/E1AngrsKI0mX4LkgujW7kkhHDBh9fa3fIOiF/8 +fibjqghyJo87LSzdBYryvdNzRSJYEKE5YstXCtTahOi9LBEcmPcozxcuBemx +DcfW14mgkNDHh6rypSC/Pcjj8aAIxrUlPOW2LAVtnkXd79qiGLGUeDUzvRRs +Q8T6tV6LYs3Ng4J2MmWQ6GixuW1mLQoty7jXo1AO1MoWKhenGN5gqQ3sVS+H +MhHHWc2VYsj9+9F8p145dLS5sdJkxHAiXbKmyrwc5OxDGPbmYthW1lsif6Ac +aq3zl7+9LIaKNn+8ikrKYdF0uuWNkTg23D/Jc0OUBalFESWLpuIYdO/8gSMU +Fsgt50hStRfHc9ejdYwkWbD9Bb/xeR9xDJ+ZmHspy4KcLbSK7SniaHGNpUZo +sWATWmU1fRHHfLc70p22LAjWv+beGEdBzSb+/MBEFlgWCE5ZnaNgRHuySepZ +FjBWnEhquUTBKHuR6rLzLHjbvot4f5uCOaFdGn0ZLFALWsXd20JB3rQpadkC +FgwWhRVNUCXQRkfn36qHLHAVtRlZVyGBKzU4T8X8YIF25OPYvGoJ5FK1eGM0 +yAL+PkUx+ksJdDTLHJ4eYkFVOTcodEmg2mrPO25jLBCzqkrVWJLA4tsfZfn/ +kO+Pldu4zYqKRkf9qY2rCdj6eyEi8DsVt2/2Kh7QJSDc/KLS82EqtrgET2vp +E1B2TbVbZIaKoh++bYo0JIDi6KFfxbsOaX/8i7iQgOGHL2a51dYhn68tbcSc +gIy41JDLx9fhrGFThYYzAX1rFQLrBSTx989vt4MjCBA//FRKXFwSX7/P03M7 +QcD2Bqc3+2mSWNf1q27bSQLuRySrrNaWxCQlnY6VcQSc/TI2tMdJEmts7w4G +nyFAq/ix3+/rkrgvisZZmUVArJG9J3WTFH6z+sk/QxBg7pY3oWcihW1zCybX +KwgQjPl1aud2KayO3/nH8h4BuXXxRakeUsj8cWs07SEBDy0f/Vp+RgpzplKH +p2sIGHOSDZ3skkKT6IRysSYCHkQErRDql8JdgpJyyc0EnMx9kq02KoUJfDdp +f98QsOrr7sf7uaQxKud6xfu3BKz3O8fxVUkaz0dx2u3pIMDt2PTZ5khpnHAL +66n5SoB8lonkULw0dg/ErP777f/1u1C6IlUaI9M3t+t8JyDi74a3JoXS2Oqg +LJz/g4BLp9zWVjVLY1X77iDzIQKa017l35SSwZqE18zZCbLeFaKadetl8N8j +jReLkwQ4f/Cs/aopg/qPxQY4pgkYpPztX2cqg1uq5v7+nSGAu0BDKT1QBuMV +Ak41LxBgUHa58uRTGfQc5U5r5GTD1o8ti6MNMmjouUPvHBcbbDh4zNzbZNAP +5setuNmwzyGwC36Qzy+8VFTLwwbTSHp0zDIaJq10kjq/gg1Nq6tvbOKn4e6i +3NBNvGywK9zVMCZIw9bkH4NfSbu8SRbypNDQjPM/6gZ+NgTJzNwwVqZhUGbB +i8xVbJiuSG2YV6fh2sPDs0oCbIgwVx4hNtJwfT/FvJp0/BEPXcZmGob6X9ja +IciGnLrXDVz2NPSdOfF0YA0bZJx8Rh7tpKFQq8OEtxAbCoeXhIKdaeilLWL+ +hXT5Wh2X7/toGDvxw61JmA31fvkjdaE09EhdsIoVZYPFX33hE5Hk+GTNbg+Q +bklt190YQ8N/05UqVmvZ0FXFF1N4hobjrbksPjE2uNkUFrqm0ND21UHCm3R/ +3+ZG0Qwa9n3m+1xNenRliHB8Lg1XvXB74C3OhuACQT3mNRqunj7iV0l6bmOx +y/RNGppw8W3jpLCB26230Kechgs9McnppJMmjjdKVdLQYH/tdAdpwUSR0Q8P +abjN0SKVIsEGCstcz7SWhs+oY04ZpK9u/e7y7yUNN/CHJjWTZnRFxdxvomHg +SYFfXFQ23D5EuRn4loacigGxuqRVuSoaFT7QMNl963Y/0uxM69HeLhoGy9tu +v0R6k/KgcFYvDb3pJnHPSJs4SrmuGKQhd25NuuA6NrwafBDzdJic/zsPAzVJ +b49yuBk2TsMBgROn7Em3CY00qs/Q8EpJ7btA0ruLEkcHFmj4QMDM+QzpTwYM +kYIlGoZ71UtdI+3VWq3nxEPHd5EzkvdJD+zb7bqGj46TLZedGkgfnBuPaRCg +49fggHcfSRsc8RX7KUzef2Nn+A/SvEPdJdwUOnrNpPX/Jt3hZWtMl6KjxEsR +0VnSN3vqOjYz6Fho1cr7h3SI46aDruvpqHK1qu7/NnlzlzNChY75pQ3b5kmv +MaVnZWnSkWv75IVJ0r01l1Tu6dKxkaF5Y4j0XT3+2jZDOlIfRMT0ko5gndw9 +hnRU8m9UbCVtvmFyWMCUjomB4lerSYtd94tTtqKjb497bxHpfuoncQs7Os5k +5Y2cJ83OsCv13UnHMu+3TUdIx6x6YXLamY45nRPhDqRt4/U7r7nTscSDZ16d +tPS/0kNPvem4HHgs+UkPhzK4P++no/3ZiUPfyPl69DszeyGQjstU3/rcI53k +v1KNEkJHVn+eVgLpXd+i63TC6ehg7PlhB2k55ymnHSfpeKWQaitN+pnV51Mp +SXT0p55uKibXU0q9vcTd83TM44K3B0i7Ml+WNabTMfLKcpYi6Xm18i6eq3T8 +FNDNc4Vcr1rCseqRBB1fqGTRnMn1zpE8XZ99n44BWZVULtIt3Aec7z+m4/NT +GnNF5H4JmHaIH39Bjq8x0nOA3G+FnXI9ft10fD0pvHILuR+P2l8Oiv9CR+32 +d8w2ETbga4HlN/rJ+ikFu7qR/vx4RqN3lI6BjaWeh8j9LZbfkODIzcDsPx53 +fMn+0C/OlDzKy8C1fuecP68m651KEBcEGLhrymbJjrRtXM6n1+IMDBjjVFYn ++0uSz0EtYxUGNvXJKr1aSX6f8ppe1Z0MPHmy57nvcjbMXKXGajszsOhE4F3W +MjZMrZaX03dn4M15WtUs2R9HJ/UPbN3PwGhLQ2YU2T/7Hu+bcY5ioMPyRkFf +Dja8tnogmHSTgYNhx9+UzxPw6slz4vwdBnZpxOxtniOgXr3ZMaOcgf/qrOg/ +ZwmoEfmWk1fFwDeipeZCZD9n9/Cvv/eGge5CGrqmZB7kBLhB3zQDxx2+n1Um +8yLrs3/fwAIDG4f1vqz7j4CLtsHxI0sMFP2eEs43SECKdlLTHJ8siqYNnP5E +5k3cH2L3amlZNHnwScyLzKeA5GVBRqayaCzmpzb8kQCjkrsFmZmyCO4OJ3jq +COihleRvuyKLcqltsw+ek/mVWZw3lS+LX2Z36Ox/RuZnbFGuQ7Es0ug7Fuqf +kPntVJAtWC2LilWyDZ5k/m5YdjE14ZssaiUa7NAsJUDMPTImVEUOmQbuBuqX +CLjXHh4trymHKR8WBnMzCHC0PH6yXUcOO324InjTCUjXOXZCC+TQU/C4WVcK +AQKrDh8ftZfDy7c4Sj2TCOCp8gryDZPD45sykgUjCRgXtvTYVSuH39dUjHxx +I6DzIOPtgVdyuJknAvtdCXj2cgGim+Uw/kAL8yd5fkmNKJG53SGHTurpzO+7 +CNDoW/VlfkgObyo9CntuQ0Ag0br3qog85i3o863ZTMCQ7U6Xfm953HmRarpE +JaD/nMeuoysU8F9omVpICwsCh1QYGqsU8HJklKJEMwtmzeZHRtYo4FHLGL/q +RvI8x50ev5+qgHlbnlct1rNAI7yu0kNVAfdMZrYGPGZBlI+CiO0OBTxcIl0/ +c4s8320eblXOV8DfYlITrdEssPgdZvFDdz3mM2+UvFViwfA+3uDKaEWM06zj +V31aRv5fiHMl1m7AcR1/rg/LS0H4jUIK67cSLh90jum0KwHJpHI7XV0VXGZt +JujhVQzZyvprRPxUkUn86x0+ewteU411JtPUcO5hZvXIo5tgIFmbqt6hjhva +/7j0NNwAQe7rIZ5xGmhg0cb5l+s6SMfKGO1R0ESDq+OCeYoFwCfvet/hlSbK +CLxcSujOBTWmRHnYXi0M8fcZffLmMhztFa6z5NBGDjENSvD9TPg9eW6nRbY2 +ii+6JDfxXwQz9Zc5FqobUceTLzDzWhrUTBr+mW3ZiP6JjD+/TqZAoIpW9zsf +HbTe+6mZHXEWmKPe7Xv4dDFbaCr37MUE2CZHsRa4rotXNz0wnXM6BYoxZ4/X +6unhvySPqrEzMaDko/9UvlsPt8yvfHCyOhJ8avxPVx7ZhBGfhuyf+4bB04J2 +7/G1+nh0sVRQeE8wTN1emlV/oI9TFNfU7sHDsE++hC/H2gC1N+jqmZw6AONK +GbrsMQPcWHmxI+iCDzws/PNtOskQbZr+VWSWeoLulpBZy2RD1Pz1w7s43xPu +fRteVXDeEHXb4q+9SPMEtnSvnmW6IcZMjd2mhnrC3exn5/OuGOJ4Wu9eXfCE +gnPx+mZlhtiUqP9O/b0HnAlZnZb93hBL7bPql3N5gPNWWTSUNkIuye6JHVOu +sNjOK1hHM8LGI7H1E92uUOAz2mMpa4TcW/dRbj53hZ8JVWHOikYoONq+dusF +VzjaaFsermWERv/FCR1QdoWzNiekH5oa4V1x20NWfi7wyOnD342HjXDf3e3N +q0f2wLpDiVVqz4wwuNnz4hq13ZCy5KuTXGuEB4gmryzqbuBKNyUG6o0wJSGg +SGXFbhi6v6y4oNEImSr5++O+7oJHHKezhd8b4afPIz+7MnaB88WYsJkfRtg0 +msKlubgTsh+H69SsZKKitl+FSbcjrOU/SFjvZmKYYAdSqh2gcEtUxNgeJvqE +p5pL3HEAraiULRmuTLwV4UhsyHYAmzHWh05PJl7rLA0/HuIACR3T8/sOMtHl +7WdWs6oDzF2PNomIZWJ5ooSC6Q176DbMeF9UwsRi1WP1mpftwP9YYa5FGRM7 +Bgd/8p2xg5myez7DLCYKRNJExo7bgTCjc1bzPhNjuI65/3SyAyteKcknz5h4 +4rnirXAJO6huL/J+/4GJF9o1uLwNbMFS8KFqaCcT7fYaf29aZwudZo0zlB4m +Thm3pdks2sDUo19Jbl+Z2IwxKwqf2YDqNY3S/4aYaGbetv68uQ1UdxuHnhth +4lyti1mjkg1Yiu4A9TEm1hcWXJIRsAHfxGPvQqaZuCql9TC1zRqmniXkiM8x +0ZT/QntNpTXELWTte7TAxMJ3lRJRWdawZmOxyt5FJpalvFLeGWENeYceTS8t +MbFBZM+s6V5r+B/dn6ae + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07073949364131654}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07073949364131654}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9939210391230392`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"8cee8eae-2f21-4a30-a0e1-44ce4c37be9d"] +}, Open ]], Cell[CellGroupData[{ @@ -8921,66 +14800,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + "In[142]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 225, 201, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512859148*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.946146855868765`*^-156\\\", \ +\\\"16424312045547973917068250855478962797836184904556443340043143969743430318\ +444318157938322185531163516963194464925547245426704384000000000000000000000000\ +00\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 142, 161, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993921039158749*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +In[142]:=",ExpressionUUID->"7f6076d3-b451-4550-924a-c88e80b63f77"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512868147*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3172532950096688`*^-158\\\", \ +\\\"55251385721223384257017595877831230851920926018927875395905136314216899591\ +246686283304515832126834071064186180009540933615433547776000000000000000000000\ +00000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 142, 162, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993921039165766*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +In[142]:=",ExpressionUUID->"646b0517-9267-42c6-b61d-eb464241e328"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335128761463`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.49801260931851`*^-161\\\", \ +\\\"19233007369557860059867825125073051459553674347188793425314577950978902747\ +712971495218301961163350940137443209261321198991532417980825600000000000000000\ +000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 142, 163, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993921039171378*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +In[142]:=",ExpressionUUID->"c8c22272-b672-4dda-bbeb-f2303c596584"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512885145*^9}, +during this calculation.\"", 2, 142, 164, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993921039176735*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +In[142]:=",ExpressionUUID->"1f761c1d-6110-4613-a13d-5a3302f6bdb4"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913335200445786`*^9}, +Cell[BoxData["11.310250754233273`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.993921073315875*^9}, CellLabel-> - "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] + "Out[142]=",ExpressionUUID->"a8b05adb-f7ad-4bfd-8d13-a58a0ed5a434"] }, Open ]], Cell[CellGroupData[{ @@ -9047,68 +14930,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491385551624`*^9, - 3.991849142620474*^9}},ExpressionUUID->"f2835c98-560f-8e47-bdab-\ -0d2700971836"], + CellChangeTimes->{{3.9918491385551624`*^9, 3.991849142620474*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 226, 205, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200775414`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3805592273277413`*^-223\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 165, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.9939210733474197`*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +In[143]:=",ExpressionUUID->"4291cbd2-d7c1-4730-9c98-ccbd58e7e94d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 206, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200875454`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2829064707633195`*^-229\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 166, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.993921073352747*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +In[143]:=",ExpressionUUID->"655cedaf-872d-402f-9089-22cef2e3c137"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 207, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200945435`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.188074567265912`*^-235\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 143, 167, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.9939210733594933`*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +In[143]:=",ExpressionUUID->"bd13c977-8b18-43ae-869a-603be2ba909c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335201035423`*^9}, +during this calculation.\"", 2, 143, 168, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.9939210733666162`*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +In[143]:=",ExpressionUUID->"699b4bf8-8fc7-474b-a30a-035c835ac241"], -Cell[BoxData["0.7348275136088338`"], "Output", - CellChangeTimes->{3.9913335271231823`*^9}, +Cell[BoxData["0.036123303003788486`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.993921077720688*^9}, CellLabel-> - "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] + "Out[143]=",ExpressionUUID->"1c4b7eb0-26ab-45f9-9a6f-97df090d7e12"] }, Open ]], Cell[CellGroupData[{ @@ -9129,8 +15016,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9175,68 +15061,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849146408966*^9, - 3.9918491485488663`*^9}},ExpressionUUID->"ca837916-250f-4d4e-8368-\ -5a08f479e656"], + CellChangeTimes->{{3.991849146408966*^9, 3.9918491485488663`*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 227, 209, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271591835`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3805592273277413`*^-223\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 169, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.993921077750904*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +In[144]:=",ExpressionUUID->"d5bcca8f-a16b-461f-9d4f-a230fba667fe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 210, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271681843`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2829064707633195`*^-229\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 170, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.993921077757622*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +In[144]:=",ExpressionUUID->"8adb834e-987e-41f5-979b-4a0658ef1b15"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 211, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527176182*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.188074567265912`*^-235\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 144, 171, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.993921077762884*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +In[144]:=",ExpressionUUID->"b2357b71-f717-44d9-9a30-49331a33dc77"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527184183*^9}, +during this calculation.\"", 2, 144, 172, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.993921077768154*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +In[144]:=",ExpressionUUID->"f3e01ed6-8ec4-4316-851c-04a66ed72318"], -Cell[BoxData["5.221864211842707`"], "Output", - CellChangeTimes->{3.9913335331581306`*^9}, +Cell[BoxData["31.55331306041352`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.993921081764319*^9}, CellLabel-> - "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] + "Out[144]=",ExpressionUUID->"d5849e12-13c5-4720-8fed-b5f9f901d4ec"] }, Open ]], Cell[CellGroupData[{ @@ -9257,8 +15147,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9303,68 +15192,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491518098984`*^9, - 3.9918491543107758`*^9}},ExpressionUUID->"b579991f-985b-234a-94aa-\ -ed18c097f8c0"], + CellChangeTimes->{{3.9918491518098984`*^9, 3.9918491543107758`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 228, 213, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335331923027`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.3805592273277413`*^-223\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 173, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.99392108179707*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +In[145]:=",ExpressionUUID->"c8f7be6b-ad74-4d68-a636-bd66748947ec"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 214, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533202278*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.2829064707633195`*^-229\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 174, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.993921081802356*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +In[145]:=",ExpressionUUID->"c078e3c7-1b03-41f8-9d1e-24a2857c01c1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 215, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335332102795`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.188074567265912`*^-235\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 145, 175, 31385386322042493318, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.99392108180768*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +In[145]:=",ExpressionUUID->"a3391d7f-49dd-4991-a66a-4949c4253e4d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533218281*^9}, +during this calculation.\"", 2, 145, 176, 31385386322042493318, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.99392108181292*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +In[145]:=",ExpressionUUID->"a8a8a105-b21a-4181-8ebb-86ab048b01d8"], -Cell[BoxData["15.545902834190647`"], "Output", - CellChangeTimes->{3.9913335366055527`*^9}, +Cell[BoxData["4.834401869644709`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.9939210845170116`*^9}, CellLabel-> - "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] + "Out[145]=",ExpressionUUID->"da3776ea-c3dc-4f54-8117-565e92bb00a8"] }, Open ]], Cell[CellGroupData[{ @@ -9373,21 +15266,27 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918491594691143`*^9, - 3.9918491632611027`*^9}},ExpressionUUID->"afb7855c-8700-d444-926c-\ -6d96abe14e67"], - -Cell[BoxData["0.08155763943441016`"], "Output", - CellChangeTimes->{3.9913335366395893`*^9}, + CellChangeTimes->{{3.9918491594691143`*^9, 3.9918491632611027`*^9}}, CellLabel-> - "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] + "In[146]:=",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], + +Cell[BoxData["0.0029247826393746378`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.993921084546167*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"92f25870-d910-4695-ae33-4658f3356811"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"534df789-8196-43fb-812b-7969de9b28c8"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +Evaluator->"kernel 3", +WindowSize->{714, 288}, +WindowMargins->{{Automatic, 3}, {3, Automatic}}, CellContext->Notebook, Magnification:>0.8 Inherited, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" ] @@ -9402,368 +15301,641 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 22, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], -Cell[706, 26, 154, 3, 22, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], -Cell[863, 31, 149, 4, 22, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], -Cell[1015, 37, 154, 3, 22, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], Cell[CellGroupData[{ -Cell[1194, 44, 1301, 43, 39, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[2498, 89, 178, 3, 25, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[576, 22, 302, 5, 23, "Input",ExpressionUUID->"79fd54c7-8888-4cdc-8fb2-cd4edd72f49d"], +Cell[881, 29, 271, 4, 26, "Output",ExpressionUUID->"d521ad4e-d366-4b49-928b-c96aaa03ab49"] }, Open ]], Cell[CellGroupData[{ -Cell[2713, 97, 910, 31, 46, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[3626, 130, 175, 3, 25, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[1189, 38, 246, 4, 23, "Input",ExpressionUUID->"66c5676b-2dd6-4552-bb40-c81c6223ed04"], +Cell[1438, 44, 271, 4, 26, "Output",ExpressionUUID->"888fca21-448a-40d0-9853-7a6502de05c7"] }, Open ]], Cell[CellGroupData[{ -Cell[3838, 138, 887, 30, 46, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[4728, 170, 176, 3, 25, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +Cell[1746, 53, 223, 4, 23, "Input",ExpressionUUID->"4b2e9357-7695-4cd5-9271-dc05894e4006"], +Cell[1972, 59, 271, 4, 26, "Output",ExpressionUUID->"14182c23-3003-4f98-a5a0-737d5dcb3052"] }, Open ]], Cell[CellGroupData[{ -Cell[4941, 178, 558, 19, 42, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[5502, 199, 172, 3, 25, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +Cell[2280, 68, 175, 3, 23, "Input",ExpressionUUID->"7124fe1b-736a-4196-9804-3b8e994d6576"], +Cell[2458, 73, 270, 4, 26, "Output",ExpressionUUID->"a07faef5-4c8b-4803-83a0-cee8ff290fc7"] }, Open ]], Cell[CellGroupData[{ -Cell[5711, 207, 623, 21, 42, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[6337, 230, 172, 3, 25, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +Cell[2765, 82, 257, 7, 35, "Input",ExpressionUUID->"a69d50e8-01b8-46a8-ad28-b31599d96151"], +Cell[3025, 91, 278, 4, 26, "Output",ExpressionUUID->"12234158-b5be-4b40-b0d9-dd403b7c551f"] }, Open ]], Cell[CellGroupData[{ -Cell[6546, 238, 170, 5, 46, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[6719, 245, 172, 3, 25, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +Cell[3340, 100, 131, 2, 23, "Input",ExpressionUUID->"3707241e-2eae-49a7-9f3e-709999306b21"], +Cell[3474, 104, 279, 4, 26, "Output",ExpressionUUID->"c580d713-e8b4-4480-9140-7c51516b7829"] }, Open ]], Cell[CellGroupData[{ -Cell[6928, 253, 170, 5, 45, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[7101, 260, 171, 3, 25, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +Cell[3790, 113, 276, 6, 23, "Input",ExpressionUUID->"232bb672-f079-45dd-8a3c-d299c467f334"], +Cell[4069, 121, 286, 4, 26, "Output",ExpressionUUID->"53c14f9f-f0a3-4139-aca0-b64960e4d601"] }, Open ]], Cell[CellGroupData[{ -Cell[7309, 268, 181, 5, 35, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[7493, 275, 170, 3, 25, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +Cell[4392, 130, 257, 7, 23, "Input",ExpressionUUID->"560d4124-acba-49d0-a26a-afaf68fa81cf"], +Cell[4652, 139, 286, 4, 26, "Output",ExpressionUUID->"a98d03e8-5bcd-49d7-a662-aa89fccb9a69"] }, Open ]], Cell[CellGroupData[{ -Cell[7700, 283, 181, 5, 35, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[7884, 290, 172, 3, 25, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +Cell[4975, 148, 226, 4, 23, "Input",ExpressionUUID->"f7b2d9fc-028f-4505-a4ce-1560f2c9830c"], +Cell[5204, 154, 249, 4, 26, "Output",ExpressionUUID->"665873f9-23c9-4be6-9fbd-147700e3089d"] }, Open ]], Cell[CellGroupData[{ -Cell[8093, 298, 6055, 185, 310, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[14151, 485, 172, 3, 25, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +Cell[5490, 163, 225, 4, 23, "Input",ExpressionUUID->"ed64fc91-6da8-48b7-9583-3472a3037f1f"], +Cell[5718, 169, 260, 4, 26, "Output",ExpressionUUID->"65b904a1-42b3-497f-ae72-246ead28c8c0"] }, Open ]], Cell[CellGroupData[{ -Cell[14360, 493, 368, 9, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[14731, 504, 171, 3, 25, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +Cell[6015, 178, 129, 2, 23, "Input",ExpressionUUID->"77edec8c-67a4-4f6d-aad6-2cd13d2ad8a0"], +Cell[6147, 182, 274, 4, 26, "Output",ExpressionUUID->"8e71bff3-2ee1-407d-8154-8a794dfe4160"] }, Open ]], Cell[CellGroupData[{ -Cell[14939, 512, 6122, 187, 353, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[21064, 701, 173, 3, 25, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +Cell[6458, 191, 129, 2, 23, "Input",ExpressionUUID->"81c20588-7b84-4188-b87c-638bf01e8a4b"], +Cell[6590, 195, 274, 4, 26, "Output",ExpressionUUID->"ef873304-a4c1-464c-bdee-c95ada5837ad"] }, Open ]], Cell[CellGroupData[{ -Cell[21274, 709, 368, 9, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[21645, 720, 170, 3, 25, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +Cell[6901, 204, 557, 19, 67, "Input",ExpressionUUID->"6f83e9d2-e172-4c17-9932-496e1ba5946e"], +Cell[7461, 225, 291, 4, 26, "Output",ExpressionUUID->"1daa41a1-acf8-4891-ac79-86dc04809bda"] }, Open ]], Cell[CellGroupData[{ -Cell[21852, 728, 2663, 88, 135, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[24518, 818, 171, 3, 25, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +Cell[7789, 234, 557, 19, 67, "Input",ExpressionUUID->"74ee785f-8b20-4ab5-834e-8abe58b48b8f"], +Cell[8349, 255, 287, 4, 26, "Output",ExpressionUUID->"6d78f983-02a8-43f3-9c58-b378a70ff3f5"] }, Open ]], Cell[CellGroupData[{ -Cell[24726, 826, 2603, 85, 135, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[27332, 913, 173, 3, 25, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +Cell[8673, 264, 1492, 48, 67, "Input",ExpressionUUID->"3fcff6bf-1f92-48eb-a76f-cfe253f52267"], +Cell[10168, 314, 291, 4, 26, "Output",ExpressionUUID->"273f263d-1850-4ac9-be7c-39ced7e0a8f6"] }, Open ]], Cell[CellGroupData[{ -Cell[27542, 921, 3712, 118, 197, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[31257, 1041, 174, 3, 25, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] -}, Open ]], -Cell[31446, 1047, 138, 3, 34, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], -Cell[CellGroupData[{ -Cell[31609, 1054, 2054, 59, 92, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], -Cell[33666, 1115, 557, 12, 50, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], -Cell[34226, 1129, 559, 12, 50, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], -Cell[34788, 1143, 561, 12, 50, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], -Cell[35352, 1157, 458, 10, 20, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], -Cell[35813, 1169, 172, 3, 25, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[10496, 323, 1331, 44, 67, "Input",ExpressionUUID->"1182e2c9-cd83-46a9-b2f0-8a483bd8d1cf"], +Cell[11830, 369, 308, 5, 26, "Output",ExpressionUUID->"2c07b4ad-0aca-41a3-a9ee-193a24650941"] }, Open ]], Cell[CellGroupData[{ -Cell[36022, 1177, 2052, 59, 92, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], -Cell[38077, 1238, 555, 12, 50, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], -Cell[38635, 1252, 559, 12, 50, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], -Cell[39197, 1266, 561, 12, 50, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], -Cell[39761, 1280, 458, 10, 20, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], -Cell[40222, 1292, 172, 3, 25, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[12175, 379, 1331, 44, 67, "Input",ExpressionUUID->"4546f1c3-3605-4ee2-a968-cb9df09fc807"], +Cell[13509, 425, 306, 5, 26, "Output",ExpressionUUID->"f6a681b5-b12a-42dd-8fed-706d66e56ab6"] }, Open ]], Cell[CellGroupData[{ -Cell[40431, 1300, 1936, 53, 69, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], -Cell[42370, 1355, 20440, 382, 190, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +Cell[13852, 435, 1492, 48, 67, "Input",ExpressionUUID->"5ca2cdda-ba5e-458e-bcf7-631a792f220d"], +Cell[15347, 485, 284, 4, 26, "Output",ExpressionUUID->"3dca731c-4e02-47fd-849d-ea44e8b96e30"] }, Open ]], Cell[CellGroupData[{ -Cell[62847, 1742, 2094, 60, 56, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], -Cell[64944, 1804, 500, 11, 56, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], -Cell[65447, 1817, 503, 11, 33, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], -Cell[65953, 1830, 506, 11, 33, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], -Cell[66462, 1843, 455, 10, 20, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], -Cell[66920, 1855, 57321, 985, 187, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] -}, Open ]], -Cell[124256, 2843, 232, 6, 34, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], -Cell[124491, 2851, 209, 5, 34, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], -Cell[CellGroupData[{ -Cell[124725, 2860, 217, 7, 39, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], -Cell[124945, 2869, 172, 3, 25, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +Cell[15668, 494, 131, 2, 23, "Input",ExpressionUUID->"819b6264-d7b7-40d0-bbdf-a8336317da6e"], +Cell[15802, 498, 272, 4, 26, "Output",ExpressionUUID->"b8fab1e0-6e18-4e85-9e71-7efecb9d6504"] }, Open ]], Cell[CellGroupData[{ -Cell[125154, 2877, 1816, 53, 92, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], -Cell[126973, 2932, 508, 11, 50, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], -Cell[127484, 2945, 508, 11, 50, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], -Cell[127995, 2958, 511, 11, 50, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], -Cell[128509, 2971, 456, 10, 20, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], -Cell[128968, 2983, 26000, 472, 187, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +Cell[16111, 507, 133, 2, 23, "Input",ExpressionUUID->"b1b6760d-8860-45e4-bdfd-896472ee4e4e"], +Cell[16247, 511, 275, 4, 26, "Output",ExpressionUUID->"2fc2400d-87cc-4485-9e2c-144be5287015"] }, Open ]], Cell[CellGroupData[{ -Cell[155005, 3460, 1616, 48, 69, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], -Cell[156624, 3510, 584, 12, 53, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], -Cell[157211, 3524, 588, 12, 53, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], -Cell[157802, 3538, 592, 12, 53, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], -Cell[158397, 3552, 456, 10, 20, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], -Cell[158856, 3564, 169, 3, 25, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +Cell[16559, 520, 134, 2, 23, "Input",ExpressionUUID->"d7427c65-96be-4940-83c9-72d0bf6a6b09"], +Cell[16696, 524, 276, 4, 26, "Output",ExpressionUUID->"856bdbf3-c00a-43ab-a573-927e07092b23"] }, Open ]], Cell[CellGroupData[{ -Cell[159062, 3572, 2249, 64, 131, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], -Cell[161314, 3638, 555, 12, 50, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], -Cell[161872, 3652, 557, 12, 56, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], -Cell[162432, 3666, 563, 12, 56, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], -Cell[162998, 3680, 458, 10, 56, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], -Cell[163459, 3692, 173, 3, 56, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +Cell[17009, 533, 219, 4, 23, "Input",ExpressionUUID->"1cb27e0a-5fc5-447b-9019-1a318f17e98d"], +Cell[17231, 539, 287, 5, 26, "Output",ExpressionUUID->"1d4f7ad2-f2b3-4eb1-a47a-7395d9fa20f4"] }, Open ]], Cell[CellGroupData[{ -Cell[163669, 3700, 2223, 64, 56, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], -Cell[165895, 3766, 555, 12, 56, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], -Cell[166453, 3780, 557, 12, 56, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], -Cell[167013, 3794, 561, 12, 56, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], -Cell[167577, 3808, 458, 10, 56, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], -Cell[168038, 3820, 173, 3, 56, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +Cell[17555, 549, 134, 2, 23, "Input",ExpressionUUID->"dcdde511-86fa-4efb-8e19-90b6a92a1639"], +Cell[17692, 553, 278, 4, 26, "Output",ExpressionUUID->"615008d1-0cc7-454a-9829-3581c6b68d83"] }, Open ]], Cell[CellGroupData[{ -Cell[168248, 3828, 2221, 64, 56, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], -Cell[170472, 3894, 557, 12, 56, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], -Cell[171032, 3908, 557, 12, 56, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], -Cell[171592, 3922, 563, 12, 56, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], -Cell[172158, 3936, 456, 10, 56, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], -Cell[172617, 3948, 173, 3, 56, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +Cell[18007, 562, 324, 5, 23, "Input",ExpressionUUID->"ea04d6fe-1e04-4385-ad95-bd41c58a8b64"], +Cell[18334, 569, 272, 4, 26, "Output",ExpressionUUID->"3302127a-ce82-44ff-a384-0780c28a910f"] }, Open ]], Cell[CellGroupData[{ -Cell[172827, 3956, 213, 6, 56, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], -Cell[173043, 3964, 171, 3, 56, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] -}, Open ]], -Cell[173229, 3970, 245, 5, 56, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], -Cell[CellGroupData[{ -Cell[173499, 3979, 558, 19, 56, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[174060, 4000, 172, 3, 56, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +Cell[18643, 578, 296, 5, 23, "Input",ExpressionUUID->"02801263-24b2-4dfa-ae4f-a5a8d90f2fb9"], +Cell[18942, 585, 272, 4, 26, "Output",ExpressionUUID->"7eb895a1-c74f-44b2-9f52-9131c87c5d4b"] }, Open ]], Cell[CellGroupData[{ -Cell[174269, 4008, 170, 5, 56, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[174442, 4015, 173, 3, 56, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +Cell[19251, 594, 219, 4, 23, "Input",ExpressionUUID->"031bd5f8-98e1-49f9-a5f7-393581127ea5"], +Cell[19473, 600, 273, 4, 26, "Output",ExpressionUUID->"2c269cf6-2f23-4b21-b9f7-8130da60a5f8"] }, Open ]], Cell[CellGroupData[{ -Cell[174652, 4023, 181, 5, 56, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[174836, 4030, 173, 3, 56, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +Cell[19783, 609, 350, 10, 35, "Input",ExpressionUUID->"2a50b250-92e5-4b66-916d-3896404e531d"], +Cell[20136, 621, 293, 4, 26, "Output",ExpressionUUID->"01879c55-d77f-47cc-aeca-ae54076c3564"] }, Open ]], Cell[CellGroupData[{ -Cell[175046, 4038, 6055, 185, 56, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[181104, 4225, 172, 3, 56, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +Cell[20466, 630, 350, 10, 35, "Input",ExpressionUUID->"fd68540e-ef81-44ce-8d13-2117e02aef82"], +Cell[20819, 642, 308, 5, 26, "Output",ExpressionUUID->"8e3ba4d1-16fa-4b45-866b-e45777a87036"] }, Open ]], Cell[CellGroupData[{ -Cell[181313, 4233, 368, 9, 56, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[181684, 4244, 170, 3, 56, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +Cell[21164, 652, 994, 26, 72, "Input",ExpressionUUID->"7846ad74-c059-4b27-a55f-18eb824a389c"], +Cell[22161, 680, 287, 4, 26, "Output",ExpressionUUID->"552a43ff-d2a0-42d0-8fb4-ae61be1a4519"] }, Open ]], Cell[CellGroupData[{ -Cell[181891, 4252, 6122, 187, 56, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[188016, 4441, 175, 3, 56, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +Cell[22485, 689, 199, 3, 23, "Input",ExpressionUUID->"d45f2c5a-8585-4f87-86e4-5521eebe5f50"], +Cell[22687, 694, 271, 4, 26, "Output",ExpressionUUID->"139aa581-11cd-428b-af7e-b738597185e8"] }, Open ]], Cell[CellGroupData[{ -Cell[188228, 4449, 368, 9, 56, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[188599, 4460, 172, 3, 56, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +Cell[22995, 703, 325, 5, 23, "Input",ExpressionUUID->"b87caebc-d882-4a06-a4f5-19feb2f0047a"], +Cell[23323, 710, 249, 4, 26, "Output",ExpressionUUID->"f082a7af-2a79-450f-a68b-242873694b25"] +}, Open ]], +Cell[23587, 717, 173, 2, 23, "Input",ExpressionUUID->"769c9ef3-a06a-477c-b132-c18d52e3a17c"], +Cell[CellGroupData[{ +Cell[23785, 723, 327, 5, 23, "Input",ExpressionUUID->"e347ea88-41f9-4b29-8452-2f6d4241adcc"], +Cell[24115, 730, 255, 4, 26, "Output",ExpressionUUID->"c293c6cf-86e9-4af4-947d-0fd390e08a3f"] +}, Open ]], +Cell[24385, 737, 173, 2, 23, "Input",ExpressionUUID->"547e34e6-4004-4905-9540-e7103136ffa9"], +Cell[CellGroupData[{ +Cell[24583, 743, 330, 5, 23, "Input",ExpressionUUID->"85072b17-b61e-469b-8bcc-575f8e84fbd2"], +Cell[24916, 750, 257, 4, 26, "Output",ExpressionUUID->"3152df56-01e7-49c5-baad-9c3a7e910940"] +}, Open ]], +Cell[25188, 757, 173, 2, 23, "Input",ExpressionUUID->"7ba8a2f3-d167-49f0-a19a-75102a85f879"], +Cell[CellGroupData[{ +Cell[25386, 763, 351, 5, 23, "Input",ExpressionUUID->"14c5ec4d-20ce-485b-b63a-bae72aa04f4a"], +Cell[25740, 770, 259, 4, 26, "Output",ExpressionUUID->"3731d5fa-779c-4214-b254-9b88f6420f59"] +}, Open ]], +Cell[26014, 777, 171, 2, 23, "Input",ExpressionUUID->"dee951d3-cf59-48d1-96d5-15035ebd452a"], +Cell[CellGroupData[{ +Cell[26210, 783, 301, 5, 23, "Input",ExpressionUUID->"c3d5bee7-1ccb-4a69-97cd-f1bfa4367e84"], +Cell[26514, 790, 251, 4, 26, "Output",ExpressionUUID->"96436aca-ce37-4d53-9b0f-44cc10e91c69"] +}, Open ]], +Cell[26780, 797, 171, 2, 23, "Input",ExpressionUUID->"d26be9b6-6cae-4697-ac74-5bcfd025d952"], +Cell[CellGroupData[{ +Cell[26976, 803, 303, 5, 23, "Input",ExpressionUUID->"090705a4-bcc2-43ec-849e-f323d3ca17a8"], +Cell[27282, 810, 251, 4, 26, "Output",ExpressionUUID->"c89e9435-1bb5-4d4e-9433-370594887385"] +}, Open ]], +Cell[27548, 817, 173, 2, 23, "Input",ExpressionUUID->"30a28c60-f23f-482c-a22d-f2225163fbed"], +Cell[CellGroupData[{ +Cell[27746, 823, 307, 5, 23, "Input",ExpressionUUID->"0e16b0ee-8f26-4270-ab81-60e54ee7d337"], +Cell[28056, 830, 253, 4, 26, "Output",ExpressionUUID->"e38da4b4-b18b-4bfb-9d64-df694079fbcd"] +}, Open ]], +Cell[28324, 837, 172, 2, 23, "Input",ExpressionUUID->"87f8e670-836f-47f0-b77a-67affb889f85"], +Cell[CellGroupData[{ +Cell[28521, 843, 275, 4, 23, "Input",ExpressionUUID->"f8fd5664-149d-41cf-ad8a-67099507c45a"], +Cell[28799, 849, 255, 4, 26, "Output",ExpressionUUID->"d8bb2e67-7504-4313-8a23-371bdda89efd"] +}, Open ]], +Cell[29069, 856, 175, 2, 23, "Input",ExpressionUUID->"8e3b445a-1887-447f-9313-cc559c52a759"], +Cell[CellGroupData[{ +Cell[29269, 862, 19809, 485, 1218, "Input",ExpressionUUID->"129708ee-aac4-4431-9239-9ca11f5dd562"], +Cell[49081, 1349, 289, 4, 26, "Output",ExpressionUUID->"3ed2b12e-e4bf-4a90-b719-a828e4503bde"] }, Open ]], Cell[CellGroupData[{ -Cell[188808, 4468, 2663, 88, 56, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[191474, 4558, 173, 3, 56, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +Cell[49407, 1358, 19748, 489, 1218, "Input",ExpressionUUID->"3d0f7235-46dc-4238-bc83-da842d97466b"], +Cell[69158, 1849, 289, 4, 26, "Output",ExpressionUUID->"d6b7e0b5-eae1-4533-93ec-fe1996094fbf"] }, Open ]], Cell[CellGroupData[{ -Cell[191684, 4566, 2603, 85, 56, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[194290, 4653, 171, 3, 56, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +Cell[69484, 1858, 19748, 483, 1218, "Input",ExpressionUUID->"7b42e0f3-e085-413d-9a48-096b75438bf3"], +Cell[89235, 2343, 300, 5, 26, "Output",ExpressionUUID->"8122ebe8-5f3b-4b01-9dd4-f59aa775d6f8"] }, Open ]], Cell[CellGroupData[{ -Cell[194498, 4661, 3712, 118, 56, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[198213, 4781, 174, 3, 56, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +Cell[89572, 2353, 22534, 553, 1356, "Input",ExpressionUUID->"88a71017-8768-4035-9f36-ce2ffa64a77c"], +Cell[112109, 2908, 306, 5, 26, "Output",ExpressionUUID->"f8b89d64-c35a-4373-8f2a-6a499ebf5907"] }, Open ]], Cell[CellGroupData[{ -Cell[198424, 4789, 2052, 59, 56, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], -Cell[200479, 4850, 578, 12, 56, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], -Cell[201060, 4864, 583, 12, 56, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], -Cell[201646, 4878, 586, 12, 56, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], -Cell[202235, 4892, 456, 10, 56, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], -Cell[202694, 4904, 170, 3, 56, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +Cell[112452, 2918, 22535, 553, 1356, "Input",ExpressionUUID->"8c087010-fd69-41b4-870d-d041ac99e70c"], +Cell[134990, 3473, 309, 5, 26, "Output",ExpressionUUID->"c8264f22-b193-43f6-873b-6ceb1870ebd5"] }, Open ]], Cell[CellGroupData[{ -Cell[202901, 4912, 2054, 59, 56, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], -Cell[204958, 4973, 576, 12, 56, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], -Cell[205537, 4987, 581, 12, 56, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], -Cell[206121, 5001, 586, 12, 56, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], -Cell[206710, 5015, 458, 10, 56, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], -Cell[207171, 5027, 172, 3, 56, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +Cell[135336, 3483, 25491, 626, 1512, "Input",ExpressionUUID->"77a0f00d-06b9-48ca-a631-1c464e695ec0"], +Cell[160830, 4111, 302, 5, 26, "Output",ExpressionUUID->"38859237-724a-4258-9295-c2bd575c1e57"] }, Open ]], Cell[CellGroupData[{ -Cell[207380, 5035, 2028, 55, 56, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], -Cell[209411, 5092, 20011, 378, 56, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +Cell[161169, 4121, 130, 2, 23, "Input",ExpressionUUID->"d2ed371d-821e-42bd-8c92-b52e632eb09f"], +Cell[161302, 4125, 272, 4, 26, "Output",ExpressionUUID->"3288b902-adbc-498a-ae04-3776408676da"] }, Open ]], Cell[CellGroupData[{ -Cell[229459, 5475, 2115, 60, 56, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], -Cell[231577, 5537, 501, 11, 56, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], -Cell[232081, 5550, 503, 11, 56, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], -Cell[232587, 5563, 505, 11, 56, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], -Cell[233095, 5576, 456, 10, 56, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], -Cell[233554, 5588, 32548, 580, 56, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] -}, Open ]], -Cell[266117, 6171, 209, 5, 56, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], -Cell[CellGroupData[{ -Cell[266351, 6180, 1616, 48, 56, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], -Cell[267970, 6230, 596, 12, 56, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], -Cell[268569, 6244, 599, 12, 56, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], -Cell[269171, 6258, 605, 12, 56, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], -Cell[269779, 6272, 456, 10, 56, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], -Cell[270238, 6284, 170, 3, 56, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +Cell[161611, 4134, 130, 2, 23, "Input",ExpressionUUID->"328a0c46-e06a-4299-9094-a922483a2596"], +Cell[161744, 4138, 274, 4, 26, "Output",ExpressionUUID->"012cfc48-5b8c-4cad-a73b-364492ed9b02"] }, Open ]], Cell[CellGroupData[{ -Cell[270445, 6292, 2247, 64, 56, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], -Cell[272695, 6358, 580, 12, 56, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], -Cell[273278, 6372, 583, 12, 56, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], -Cell[273864, 6386, 584, 12, 56, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], -Cell[274451, 6400, 458, 10, 56, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], -Cell[274912, 6412, 170, 3, 56, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +Cell[162055, 4147, 1144, 39, 95, "Input",ExpressionUUID->"428596ea-ca29-4071-b989-c82f1d55d568"], +Cell[163202, 4188, 288, 4, 26, "Output",ExpressionUUID->"f8a383ff-383e-45b0-9e77-16af7c000f9a"] }, Open ]], Cell[CellGroupData[{ -Cell[275119, 6420, 2219, 64, 56, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], -Cell[277341, 6486, 580, 12, 56, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], -Cell[277924, 6500, 583, 12, 56, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], -Cell[278510, 6514, 586, 12, 56, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], -Cell[279099, 6528, 458, 10, 56, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], -Cell[279560, 6540, 171, 3, 56, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +Cell[163527, 4197, 1041, 35, 129, "Input",ExpressionUUID->"a78e5bba-97ac-4180-88b3-579f8acc07df"], +Cell[164571, 4234, 301, 5, 26, "Output",ExpressionUUID->"480db2ed-0ae6-4196-9ec6-95fdabf0ad17"] }, Open ]], Cell[CellGroupData[{ -Cell[279768, 6548, 2221, 64, 56, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], -Cell[281992, 6614, 580, 12, 56, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], -Cell[282575, 6628, 583, 12, 56, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], -Cell[283161, 6642, 584, 12, 56, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], -Cell[283748, 6656, 456, 10, 56, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], -Cell[284207, 6668, 170, 3, 56, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +Cell[164909, 4244, 1144, 39, 95, "Input",ExpressionUUID->"86f78e15-bdd4-48f6-81e6-aaacc2d02112"], +Cell[166056, 4285, 292, 4, 26, "Output",ExpressionUUID->"4564efcc-c121-481a-8850-2b2573d8f302"] }, Open ]], Cell[CellGroupData[{ -Cell[284414, 6676, 213, 6, 56, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], -Cell[284630, 6684, 174, 3, 56, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] -}, Open ]], -Cell[284819, 6690, 247, 5, 56, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], -Cell[CellGroupData[{ -Cell[285091, 6699, 558, 19, 56, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[285652, 6720, 173, 3, 56, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +Cell[166385, 4294, 108, 1, 23, "Input",ExpressionUUID->"023e4c9c-6060-4ae5-9a73-49e010d5dfa3"], +Cell[166496, 4297, 293, 4, 26, "Output",ExpressionUUID->"fa6d199f-65a9-4b8c-b3ca-d9fcc3240159"] }, Open ]], Cell[CellGroupData[{ -Cell[285862, 6728, 170, 5, 56, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[286035, 6735, 173, 3, 56, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +Cell[166826, 4306, 108, 1, 23, "Input",ExpressionUUID->"54cf12a2-fade-47d9-949c-bfcc1c71b477"], +Cell[166937, 4309, 306, 5, 26, "Output",ExpressionUUID->"010c05ab-9280-43b9-8c48-abff70b7431b"] }, Open ]], Cell[CellGroupData[{ -Cell[286245, 6743, 181, 5, 56, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[286429, 6750, 171, 3, 56, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +Cell[167280, 4319, 108, 1, 23, "Input",ExpressionUUID->"ac5f5874-1c2a-48b2-a748-0a42ffd149c9"], +Cell[167391, 4322, 307, 5, 26, "Output",ExpressionUUID->"a3c820b0-1aec-4719-97d0-926a1f8e81fb"] }, Open ]], Cell[CellGroupData[{ -Cell[286637, 6758, 6055, 185, 56, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[292695, 6945, 173, 3, 56, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +Cell[167735, 4332, 108, 1, 23, "Input",ExpressionUUID->"f0d8c882-2ffe-4e01-8f67-68df59d6a319"], +Cell[167846, 4335, 288, 4, 26, "Output",ExpressionUUID->"b61cce78-38d9-4a3e-92bd-e2cd21a489eb"] }, Open ]], Cell[CellGroupData[{ -Cell[292905, 6953, 368, 9, 56, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[293276, 6964, 172, 3, 56, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +Cell[168171, 4344, 107, 1, 23, "Input",ExpressionUUID->"e7f0e13d-d06a-497c-b5c2-c171f18446fa"], +Cell[168281, 4347, 292, 4, 26, "Output",ExpressionUUID->"e3fd2b2c-4d6a-4d2b-a6df-bb6c25c2ccba"] }, Open ]], Cell[CellGroupData[{ -Cell[293485, 6972, 6122, 187, 56, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[299610, 7161, 175, 3, 56, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +Cell[168610, 4356, 107, 1, 23, "Input",ExpressionUUID->"d2fe8c37-2e96-4401-b1a9-b1951f3b8286"], +Cell[168720, 4359, 289, 4, 26, "Output",ExpressionUUID->"87bb18b4-860b-4600-bf9e-c0fbc694d6db"] }, Open ]], Cell[CellGroupData[{ -Cell[299822, 7169, 368, 9, 56, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[300193, 7180, 171, 3, 56, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +Cell[169046, 4368, 497, 16, 46, "Input",ExpressionUUID->"25aeccd9-e069-448a-ba72-a9403659183c"], +Cell[169546, 4386, 308, 5, 26, "Output",ExpressionUUID->"5e833c21-aed2-48a7-a4f4-bdb961b9c9bd"] }, Open ]], Cell[CellGroupData[{ -Cell[300401, 7188, 2663, 88, 56, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[303067, 7278, 173, 3, 56, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +Cell[169891, 4396, 497, 16, 46, "Input",ExpressionUUID->"431491ac-7767-4874-b0ea-7546a2b81773"], +Cell[170391, 4414, 310, 5, 26, "Output",ExpressionUUID->"c207c7f4-29a0-4b79-9556-07f8268cea08"] }, Open ]], Cell[CellGroupData[{ -Cell[303277, 7286, 2603, 85, 56, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[305883, 7373, 171, 3, 56, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +Cell[170738, 4424, 1788, 60, 48, "Input",ExpressionUUID->"84a38168-3b21-4c4d-9b7a-045f4782851b"], +Cell[172529, 4486, 289, 4, 26, "Output",ExpressionUUID->"2d70a38d-6dca-4459-9b62-f9bbe8f3ed09"] }, Open ]], Cell[CellGroupData[{ -Cell[306091, 7381, 3712, 118, 56, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[309806, 7501, 174, 3, 56, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +Cell[172855, 4495, 1101, 36, 48, "Input",ExpressionUUID->"15739773-7657-4a44-8211-50f5fefdb588"], +Cell[173959, 4533, 303, 5, 26, "Output",ExpressionUUID->"369877a8-ef64-4832-8d26-87f45674e3ba"] }, Open ]], Cell[CellGroupData[{ -Cell[310017, 7509, 2054, 59, 56, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], -Cell[312074, 7570, 572, 12, 56, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], -Cell[312649, 7584, 573, 12, 56, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], -Cell[313225, 7598, 579, 12, 56, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], -Cell[313807, 7612, 456, 10, 56, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], -Cell[314266, 7624, 169, 3, 56, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +Cell[174299, 4543, 1818, 61, 95, "Input",ExpressionUUID->"3ce7bd0d-3f4d-4b59-8d29-3b2706cc7a63"], +Cell[176120, 4606, 287, 4, 26, "Output",ExpressionUUID->"070bd083-7db3-497f-81d0-785665dd962e"] }, Open ]], Cell[CellGroupData[{ -Cell[314472, 7632, 2049, 58, 56, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], -Cell[316524, 7692, 570, 12, 56, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], -Cell[317097, 7706, 575, 12, 56, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], -Cell[317675, 7720, 579, 12, 56, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], -Cell[318257, 7734, 458, 10, 56, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], -Cell[318718, 7746, 171, 3, 56, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +Cell[176444, 4615, 1631, 53, 67, "Input",ExpressionUUID->"b918033b-8faa-4970-b8d3-dd3d515ab193"], +Cell[178078, 4670, 287, 4, 26, "Output",ExpressionUUID->"884488c8-0888-45ae-ae54-2bd3efd228d6"] }, Open ]], Cell[CellGroupData[{ -Cell[318926, 7754, 2030, 55, 56, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], -Cell[320959, 7811, 20011, 378, 56, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +Cell[178402, 4679, 1631, 53, 67, "Input",ExpressionUUID->"556ddbc5-6999-4377-b912-7bed2ac66ba3"], +Cell[180036, 4734, 292, 4, 26, "Output",ExpressionUUID->"c151f051-ad21-4752-9cd2-78afe2cfb56b"] }, Open ]], Cell[CellGroupData[{ -Cell[341007, 8194, 2120, 60, 56, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], -Cell[343130, 8256, 501, 11, 56, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], -Cell[343634, 8269, 505, 11, 56, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], -Cell[344142, 8282, 506, 11, 56, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], -Cell[344651, 8295, 456, 10, 56, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], -Cell[345110, 8307, 31008, 556, 56, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +Cell[180365, 4743, 229, 4, 23, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[180597, 4749, 153, 2, 26, "Output",ExpressionUUID->"db7441c5-9b46-4a59-875c-0437578381ef"] }, Open ]], -Cell[376133, 8866, 209, 5, 56, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[180765, 4754, 173, 2, 23, "Input",ExpressionUUID->"a5161e25-7247-124f-8601-7bcc4af89c62"], Cell[CellGroupData[{ -Cell[376367, 8875, 1616, 48, 56, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], -Cell[377986, 8925, 593, 12, 56, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], -Cell[378582, 8939, 595, 12, 56, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], -Cell[379180, 8953, 602, 12, 56, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], -Cell[379785, 8967, 456, 10, 56, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], -Cell[380244, 8979, 172, 3, 56, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +Cell[180963, 4760, 230, 4, 23, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[181196, 4766, 156, 2, 26, "Output",ExpressionUUID->"4398de94-7886-47e9-a734-0b43f8884a98"] +}, Open ]], +Cell[181367, 4771, 173, 2, 23, "Input",ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-11f4dcb03e07"], +Cell[CellGroupData[{ +Cell[181565, 4777, 1297, 42, 40, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[182865, 4821, 196, 2, 26, "Output",ExpressionUUID->"c183dfba-bf6a-455d-ac0b-41bf0ef84303"] }, Open ]], Cell[CellGroupData[{ -Cell[380453, 8987, 2249, 64, 56, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], -Cell[382705, 9053, 572, 12, 56, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], -Cell[383280, 9067, 575, 12, 56, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], -Cell[383858, 9081, 579, 12, 56, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], -Cell[384440, 9095, 458, 10, 56, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], -Cell[384901, 9107, 173, 3, 56, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +Cell[183098, 4828, 929, 30, 48, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[184030, 4860, 194, 2, 26, "Output",ExpressionUUID->"735d8de4-c287-4d29-b8f4-1d1272208c47"] }, Open ]], Cell[CellGroupData[{ -Cell[385111, 9115, 2221, 64, 56, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], -Cell[387335, 9181, 572, 12, 56, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], -Cell[387910, 9195, 575, 12, 56, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], -Cell[388488, 9209, 577, 12, 56, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], -Cell[389068, 9223, 456, 10, 56, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], -Cell[389527, 9235, 172, 3, 56, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +Cell[184261, 4867, 906, 29, 48, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[185170, 4898, 194, 2, 26, "Output",ExpressionUUID->"aa457a20-e645-4625-a71d-d626b0ad3fa7"] }, Open ]], Cell[CellGroupData[{ -Cell[389736, 9243, 2223, 64, 56, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], -Cell[391962, 9309, 572, 12, 56, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], -Cell[392537, 9323, 573, 12, 56, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], -Cell[393113, 9337, 579, 12, 56, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], -Cell[393695, 9351, 456, 10, 56, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], -Cell[394154, 9363, 173, 3, 56, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +Cell[185401, 4905, 554, 18, 43, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[185958, 4925, 190, 2, 26, "Output",ExpressionUUID->"192d098a-39f2-43db-97a5-ae3e02a7bae4"] }, Open ]], Cell[CellGroupData[{ -Cell[394364, 9371, 215, 6, 56, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], -Cell[394582, 9379, 174, 3, 56, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] -}, Open ]] +Cell[186185, 4932, 619, 20, 43, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[186807, 4954, 192, 2, 26, "Output",ExpressionUUID->"5dcaa247-1325-413a-b247-0b928ac54fbf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187036, 4961, 166, 4, 47, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[187205, 4967, 189, 2, 26, "Output",ExpressionUUID->"1fb8b4ec-516d-4043-a7e2-f9ee2020ab21"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187431, 4974, 166, 4, 46, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[187600, 4980, 188, 2, 26, "Output",ExpressionUUID->"f0c3adf0-0662-4eb0-af8c-74d8fa2112fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187825, 4987, 177, 4, 36, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[188005, 4993, 187, 2, 26, "Output",ExpressionUUID->"3142fa04-9f59-4545-a94a-f192e95044f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188229, 5000, 177, 4, 36, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[188409, 5006, 191, 2, 26, "Output",ExpressionUUID->"f32606aa-a9f2-4409-abc3-302a3c1a75f5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188637, 5013, 6051, 184, 161, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[194691, 5199, 193, 2, 26, "Output",ExpressionUUID->"7c69bdfe-506c-4c42-9776-23646854d44f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194921, 5206, 364, 8, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[195288, 5216, 193, 2, 26, "Output",ExpressionUUID->"fe37b0f8-37ac-4cf5-9c76-0a495d1fa13d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195518, 5223, 6118, 186, 161, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[201639, 5411, 192, 2, 26, "Output",ExpressionUUID->"fc06ae25-cd32-4eeb-a5a3-75fa15e28448"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201868, 5418, 364, 8, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[202235, 5428, 186, 2, 26, "Output",ExpressionUUID->"dc53a0e8-bb30-4587-8901-091494eb1014"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202458, 5435, 2659, 87, 95, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[205120, 5524, 190, 2, 26, "Output",ExpressionUUID->"02b75cb9-c708-4edd-9b10-af8bcf1aa819"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205347, 5531, 2599, 84, 95, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[207949, 5617, 191, 2, 26, "Output",ExpressionUUID->"bbfd0b2e-412e-4b14-b52b-5b6b9c3a6170"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208177, 5624, 3708, 117, 142, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[211888, 5743, 192, 2, 26, "Output",ExpressionUUID->"741f605e-db27-4f95-b360-2ce2bc3bac6e"] +}, Open ]], +Cell[212095, 5748, 160, 3, 23, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[212280, 5755, 2073, 58, 83, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[214356, 5815, 582, 13, 34, "Message",ExpressionUUID->"5edf259f-4028-4a43-b7af-ebba2add8514"], +Cell[214941, 5830, 587, 13, 34, "Message",ExpressionUUID->"c5ea3135-cadd-4ed4-a6cc-99c86a3a2ae5"], +Cell[215531, 5845, 593, 13, 34, "Message",ExpressionUUID->"2ac5386b-ab5c-4485-b107-9082a53b89f4"], +Cell[216127, 5860, 495, 11, 20, "Message",ExpressionUUID->"dc0e3dbb-3453-4979-807a-3e675f263658"], +Cell[216625, 5873, 191, 2, 26, "Output",ExpressionUUID->"14352583-0320-471e-ae12-07048b17616d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216853, 5880, 2071, 58, 83, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[218927, 5940, 581, 13, 50, "Message",ExpressionUUID->"6c8cc224-653c-41d5-9801-95442a59aa34"], +Cell[219511, 5955, 587, 13, 50, "Message",ExpressionUUID->"4e3b4f9d-12ff-457b-8ffc-07a6b01129e5"], +Cell[220101, 5970, 589, 13, 50, "Message",ExpressionUUID->"7cdde486-ea80-49ad-8d46-7b86ec64e585"], +Cell[220693, 5985, 491, 11, 20, "Message",ExpressionUUID->"fd3e4173-e0f1-4e93-8e64-571d681003f4"], +Cell[221187, 5998, 190, 2, 26, "Output",ExpressionUUID->"dd7c84e0-33b3-4353-96c3-301d9b8eb3c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221414, 6005, 1955, 52, 61, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[223372, 6059, 20439, 383, 189, "Output",ExpressionUUID->"dad8bd4e-cb4f-405c-bc93-d46bcd44648d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243848, 6447, 2113, 59, 112, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[245964, 6508, 529, 12, 34, "Message",ExpressionUUID->"b118ef44-1c14-4700-8f59-762fe32b5b15"], +Cell[246496, 6522, 534, 12, 34, "Message",ExpressionUUID->"d5bca289-a0e7-4a99-84de-c41d975cbad3"], +Cell[247033, 6536, 539, 12, 49, "Message",ExpressionUUID->"e7e8dbf9-2e38-455d-9bee-d17c23ea00f7"], +Cell[247575, 6550, 496, 11, 20, "Message",ExpressionUUID->"d65dd998-e114-4b2b-94c2-4b7ddd164e10"], +Cell[248074, 6563, 23065, 425, 186, "Output",ExpressionUUID->"3fc90143-0c6f-4573-adeb-568e76e40245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[271176, 6993, 2473, 69, 107, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[273652, 7064, 9504, 222, 191, "Output",ExpressionUUID->"3fdf966e-5453-46c2-9731-6da951c356ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[283193, 7291, 228, 4, 23, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[283424, 7297, 29437, 557, 186, "Output",ExpressionUUID->"5f71d81e-24b1-424e-bef4-278e3a9a7f28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[312898, 7859, 236, 6, 40, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[313137, 7867, 190, 2, 26, "Output",ExpressionUUID->"b9f756db-77a2-4ce2-b120-d16f4ba71941"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313364, 7874, 1835, 52, 83, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[315202, 7928, 547, 12, 49, "Message",ExpressionUUID->"32ee59a3-2a4d-4354-9b9b-cc79d39f9043"], +Cell[315752, 7942, 550, 12, 49, "Message",ExpressionUUID->"a078cc98-56fa-418b-becb-589f05ff7de8"], +Cell[316305, 7956, 555, 12, 49, "Message",ExpressionUUID->"126e7b3b-5bd0-4047-96c0-49d2f3235665"], +Cell[316863, 7970, 494, 11, 20, "Message",ExpressionUUID->"3c680538-60b8-4ed9-b44b-06e4fb864104"], +Cell[317360, 7983, 22586, 416, 188, "Output",ExpressionUUID->"2d596463-2fdc-4945-b07f-21cccda5bb8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[339983, 8404, 1616, 48, 60, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[341602, 8454, 646, 13, 64, "Message",ExpressionUUID->"8769f155-818b-4bd8-8a84-3c7b32cf8d7e"], +Cell[342251, 8469, 650, 13, 64, "Message",ExpressionUUID->"a0bc7b5a-c745-4a70-acb3-18da4dbc0259"], +Cell[342904, 8484, 656, 13, 64, "Message",ExpressionUUID->"21911b70-487a-4885-a03a-4be240a70142"], +Cell[343563, 8499, 496, 11, 20, "Message",ExpressionUUID->"ed096766-7d11-4a31-9a35-b195bae31145"], +Cell[344062, 8512, 191, 3, 26, "Output",ExpressionUUID->"5d3b2361-cab4-4888-bd69-8268759b06d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344290, 8520, 2272, 64, 128, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[346565, 8586, 584, 13, 49, "Message",ExpressionUUID->"2db40896-c8b4-4479-a4dd-352628cc4d53"], +Cell[347152, 8601, 590, 13, 49, "Message",ExpressionUUID->"7ac74fa9-ec88-4c5b-8a97-65028db942ec"], +Cell[347745, 8616, 594, 13, 49, "Message",ExpressionUUID->"7b511d14-ea1f-43fa-904c-085228bd34c6"], +Cell[348342, 8631, 494, 11, 20, "Message",ExpressionUUID->"832635ba-c383-43ba-8b9a-b01bcddce026"], +Cell[348839, 8644, 196, 3, 26, "Output",ExpressionUUID->"3f31a6d5-d08a-4141-816b-51afd3dc98ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349072, 8652, 2235, 63, 128, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[351310, 8717, 586, 13, 49, "Message",ExpressionUUID->"077be6d7-c0d1-4fa6-8601-cb063e49aac5"], +Cell[351899, 8732, 588, 13, 49, "Message",ExpressionUUID->"7cbfe22f-a7e0-4786-baed-77523e4ba6df"], +Cell[352490, 8747, 594, 13, 49, "Message",ExpressionUUID->"36be4d3b-a54a-47be-bddd-4243fdcce198"], +Cell[353087, 8762, 494, 11, 20, "Message",ExpressionUUID->"07329170-a31f-4988-9549-44681ea31336"], +Cell[353584, 8775, 195, 3, 26, "Output",ExpressionUUID->"8c6fab83-6b42-486b-ad35-c09210a186e5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[353816, 8783, 2233, 63, 128, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[356052, 8848, 588, 13, 49, "Message",ExpressionUUID->"e1cd2ae7-e57d-49c1-a5ee-0157e62b16e8"], +Cell[356643, 8863, 590, 13, 49, "Message",ExpressionUUID->"516d7d5a-1256-4d8d-bb5b-645987c659bc"], +Cell[357236, 8878, 594, 13, 49, "Message",ExpressionUUID->"ec1ee42f-9fae-4e1c-9944-3342f5edfa9a"], +Cell[357833, 8893, 496, 11, 20, "Message",ExpressionUUID->"d8fd69c3-04f6-458a-9bad-c733b632ffb1"], +Cell[358332, 8906, 194, 3, 26, "Output",ExpressionUUID->"a1f79fd3-4de6-414a-9ce6-f369b9713296"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358563, 8914, 236, 6, 39, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[358802, 8922, 196, 3, 38, "Output",ExpressionUUID->"82050512-592b-4733-a621-a3e42a8ec362"] +}, Open ]], +Cell[359013, 8928, 271, 6, 23, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[359309, 8938, 558, 19, 43, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[359870, 8959, 191, 3, 38, "Output",ExpressionUUID->"1dc2670f-ad06-493d-8818-8fdf5658dad1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360098, 8967, 170, 5, 47, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[360271, 8974, 197, 3, 38, "Output",ExpressionUUID->"05da9fd9-94a2-4431-9c12-e884903bb39c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360505, 8982, 181, 5, 36, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[360689, 8989, 195, 3, 38, "Output",ExpressionUUID->"4a78e923-4710-4d28-b59c-50c99f4be94f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[360921, 8997, 6055, 185, 413, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[366979, 9184, 197, 3, 38, "Output",ExpressionUUID->"1a8e1870-abd9-46d7-b3c6-9ab5ce12a5c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367213, 9192, 368, 9, 33, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[367584, 9203, 193, 3, 38, "Output",ExpressionUUID->"470815dc-ab78-48d0-a845-c73e96a69471"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367814, 9211, 6122, 187, 413, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[373939, 9400, 196, 3, 38, "Output",ExpressionUUID->"1f0df0a1-60e7-41bd-be53-0597f2b793b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374172, 9408, 368, 9, 33, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[374543, 9419, 194, 3, 38, "Output",ExpressionUUID->"4deb0a03-0087-47f1-9e97-07f54e8bf32d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374774, 9427, 2663, 88, 142, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[377440, 9517, 198, 3, 38, "Output",ExpressionUUID->"0b229487-2e5e-4a95-acbe-c7e2a7a63308"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377675, 9525, 2603, 85, 142, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[380281, 9612, 192, 3, 38, "Output",ExpressionUUID->"993d1f82-2fe2-4d5f-835c-7ff804a2118c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380510, 9620, 3712, 118, 208, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[384225, 9740, 196, 3, 38, "Output",ExpressionUUID->"97004fcf-8fd0-4b49-9844-c9ceb233cdb4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384458, 9748, 2075, 59, 83, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[386536, 9809, 572, 12, 49, "Message",ExpressionUUID->"ed48c75d-d07f-4f8c-ad8f-608f989baba4"], +Cell[387111, 9823, 579, 13, 49, "Message",ExpressionUUID->"c1684417-8373-479a-b130-0e307518ab22"], +Cell[387693, 9838, 584, 13, 49, "Message",ExpressionUUID->"7b01ce1f-722e-43fb-83f1-bb55983ac0ac"], +Cell[388280, 9853, 494, 11, 20, "Message",ExpressionUUID->"dea87ea1-a815-4aa6-a111-dd623bc00e3a"], +Cell[388777, 9866, 193, 3, 26, "Output",ExpressionUUID->"be9cceb2-d1d9-4611-867f-47200379d2a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[389007, 9874, 2077, 59, 83, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[391087, 9935, 572, 12, 49, "Message",ExpressionUUID->"e09e5dd5-2beb-45fd-971b-f69096f4ceb9"], +Cell[391662, 9949, 579, 13, 49, "Message",ExpressionUUID->"9bead4ad-f3f7-49bf-82c6-b6c01a08139e"], +Cell[392244, 9964, 580, 13, 49, "Message",ExpressionUUID->"7d969bba-5d90-4afb-b69e-0e59ccc80f0f"], +Cell[392827, 9979, 492, 11, 20, "Message",ExpressionUUID->"222c1b4f-6a3b-4a23-893d-3b85e5160164"], +Cell[393322, 9992, 194, 3, 26, "Output",ExpressionUUID->"3d812f2b-61db-4da7-980b-ad6cedd54e1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[393553, 10000, 2051, 55, 69, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[395607, 10057, 20289, 383, 186, "Output",ExpressionUUID->"be84c2ef-e147-4555-93c5-41a8126e1cc7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[415933, 10445, 2138, 60, 112, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[418074, 10507, 532, 12, 34, "Message",ExpressionUUID->"2a1bf897-ad60-4719-8806-ae4375b5a90c"], +Cell[418609, 10521, 533, 12, 34, "Message",ExpressionUUID->"a7b83fd4-98d9-43a0-95d4-a3dc0ab27d7a"], +Cell[419145, 10535, 538, 12, 34, "Message",ExpressionUUID->"dbd6d85d-62a2-4d2f-90b5-339341180ea5"], +Cell[419686, 10549, 496, 11, 20, "Message",ExpressionUUID->"a2c528ca-e790-4f2a-bbfe-ae9b8d30cec8"], +Cell[420185, 10562, 24053, 441, 186, "Output",ExpressionUUID->"f81fd2dd-4b9a-4278-9d34-6f1298bc454c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[444275, 11008, 232, 5, 23, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[444510, 11015, 30427, 573, 186, "Output",ExpressionUUID->"4402369c-39a1-4f9e-82da-efa5d24c8045"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474974, 11593, 1616, 48, 60, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[476593, 11643, 658, 14, 64, "Message",ExpressionUUID->"4e70874d-9bec-43d0-bd75-7f89496138ce"], +Cell[477254, 11659, 663, 14, 64, "Message",ExpressionUUID->"02f36ddf-60ee-495c-ad83-5b51be08e0b8"], +Cell[477920, 11675, 667, 14, 64, "Message",ExpressionUUID->"938d555b-11f6-4ede-8286-e1f952bdba9c"], +Cell[478590, 11691, 496, 11, 20, "Message",ExpressionUUID->"b519364f-9db4-45de-b11c-a698ec534ea2"], +Cell[479089, 11704, 192, 3, 26, "Output",ExpressionUUID->"f3d02d00-eda7-4834-bd0b-6b88720114a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[479318, 11712, 2270, 64, 128, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[481591, 11778, 576, 12, 49, "Message",ExpressionUUID->"b88e2b48-95c7-4717-ba40-c57a60632a66"], +Cell[482170, 11792, 583, 13, 49, "Message",ExpressionUUID->"773d4c35-332a-4d3b-95c0-2fecc1b6ff46"], +Cell[482756, 11807, 584, 13, 49, "Message",ExpressionUUID->"8fd40fd6-017f-4a21-9216-37449fe22402"], +Cell[483343, 11822, 498, 11, 20, "Message",ExpressionUUID->"ec22d574-4e82-4846-9125-d797e20e7850"], +Cell[483844, 11835, 197, 3, 26, "Output",ExpressionUUID->"230076a9-e046-4a37-a9d0-a2c1401d787e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[484078, 11843, 2231, 63, 128, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[486312, 11908, 574, 12, 49, "Message",ExpressionUUID->"c2dca38f-d04c-43d6-b6c3-0a9d52dc6986"], +Cell[486889, 11922, 580, 13, 49, "Message",ExpressionUUID->"1a93eb83-a2eb-47ad-91dd-f481bce1cfc7"], +Cell[487472, 11937, 584, 13, 49, "Message",ExpressionUUID->"45d5e777-2d39-4ca8-b182-3cab2a22ffc0"], +Cell[488059, 11952, 496, 11, 20, "Message",ExpressionUUID->"c779b1a7-d9cd-4d82-9928-94fb76bd357c"], +Cell[488558, 11965, 193, 3, 26, "Output",ExpressionUUID->"52b23705-bcec-4c84-83ba-4741837817ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488788, 11973, 2233, 63, 128, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[491024, 12038, 574, 12, 49, "Message",ExpressionUUID->"eb5d324c-cf08-4b2c-81dd-96135fdf0599"], +Cell[491601, 12052, 583, 13, 49, "Message",ExpressionUUID->"70e7fd4a-6d9e-4f27-9676-bc59d0c29d3d"], +Cell[492187, 12067, 584, 13, 49, "Message",ExpressionUUID->"4b1eb727-4d06-4d40-a40b-a4bfea1a67c2"], +Cell[492774, 12082, 496, 11, 20, "Message",ExpressionUUID->"f94177e0-85f3-4229-bc56-f60c447e14e5"], +Cell[493273, 12095, 194, 3, 26, "Output",ExpressionUUID->"5561db25-ae56-4ee3-9b2c-6850fbd99716"] +}, Open ]], +Cell[CellGroupData[{ +Cell[493504, 12103, 236, 6, 39, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[493743, 12111, 200, 3, 38, "Output",ExpressionUUID->"aae57713-c626-46a3-8425-d5d65ba5a4d4"] +}, Open ]], +Cell[493958, 12117, 273, 6, 23, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[494256, 12127, 558, 19, 43, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[494817, 12148, 194, 3, 38, "Output",ExpressionUUID->"7b9c3b2e-48cf-4fa6-9612-e3ca490cb184"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495048, 12156, 170, 5, 47, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[495221, 12163, 195, 3, 38, "Output",ExpressionUUID->"3720b5ba-089a-4e6a-aabd-2f001591087d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495453, 12171, 181, 5, 36, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[495637, 12178, 193, 3, 38, "Output",ExpressionUUID->"b0b8dfe1-112b-4d11-9fdf-6f85c88357b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495867, 12186, 6055, 185, 413, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[501925, 12373, 195, 3, 38, "Output",ExpressionUUID->"2a638ef6-70b6-4f84-9ef5-66d50300b452"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502157, 12381, 368, 9, 33, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[502528, 12392, 195, 3, 38, "Output",ExpressionUUID->"ff5707e3-9bdf-4f90-a708-749e25684d6c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502760, 12400, 6122, 187, 413, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[508885, 12589, 199, 3, 38, "Output",ExpressionUUID->"24861b10-febd-4d8d-92dd-3f950070d2d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509121, 12597, 368, 9, 33, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[509492, 12608, 188, 3, 38, "Output",ExpressionUUID->"2cb97e6d-a77e-4d2f-8922-10417bc59680"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509717, 12616, 2663, 88, 142, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[512383, 12706, 198, 3, 38, "Output",ExpressionUUID->"64d0f3e9-ec14-41f0-9234-4849213b226c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512618, 12714, 2603, 85, 142, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[515224, 12801, 195, 3, 38, "Output",ExpressionUUID->"4c18f581-f307-449f-9f40-909ecbc6cc76"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515456, 12809, 3712, 118, 208, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[519171, 12929, 198, 3, 38, "Output",ExpressionUUID->"dbe7992a-eeb6-46cf-b516-d28c3ab2eee5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519406, 12937, 2077, 59, 83, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[521486, 12998, 582, 13, 49, "Message",ExpressionUUID->"ed16e663-a9b4-42ee-8ebe-6f89ecaaf984"], +Cell[522071, 13013, 585, 13, 49, "Message",ExpressionUUID->"29237ad0-bf7e-46e3-b4fd-f920034e67f1"], +Cell[522659, 13028, 587, 13, 49, "Message",ExpressionUUID->"a5c99519-d283-455b-aa90-cf3cf25cc5e8"], +Cell[523249, 13043, 496, 11, 20, "Message",ExpressionUUID->"08151cca-2e51-485a-a19a-f6fb4e2c2e45"], +Cell[523748, 13056, 193, 3, 26, "Output",ExpressionUUID->"ceb2cf16-991d-48d5-920b-de394bf83731"] +}, Open ]], +Cell[CellGroupData[{ +Cell[523978, 13064, 2074, 59, 83, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[526055, 13125, 582, 13, 49, "Message",ExpressionUUID->"adea8d5e-73a7-419b-91fc-d781b997afa3"], +Cell[526640, 13140, 583, 13, 49, "Message",ExpressionUUID->"39d27a57-34cb-4c04-b9e0-ff5301aa9fe8"], +Cell[527226, 13155, 587, 13, 49, "Message",ExpressionUUID->"67e0f902-b35e-4315-a272-537ee7b62b5a"], +Cell[527816, 13170, 494, 11, 20, "Message",ExpressionUUID->"aa94e175-f401-4859-9c2f-5621372beb3e"], +Cell[528313, 13183, 196, 3, 26, "Output",ExpressionUUID->"7c1f91ed-5b6b-4271-ab07-57da10ab9ba6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528546, 13191, 2053, 55, 69, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[530602, 13248, 20346, 383, 188, "Output",ExpressionUUID->"c2d736b6-a60a-4568-a383-67140ca5dc4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[550985, 13636, 2143, 60, 112, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[553131, 13698, 533, 12, 34, "Message",ExpressionUUID->"04e8abf9-6735-46e9-abfb-2b355bac1402"], +Cell[553667, 13712, 535, 12, 34, "Message",ExpressionUUID->"a9e10cfc-a5a5-451e-bb38-e53ac0b6067c"], +Cell[554205, 13726, 541, 12, 49, "Message",ExpressionUUID->"fe46250a-2a93-4725-95a8-571e7676b963"], +Cell[554749, 13740, 494, 11, 20, "Message",ExpressionUUID->"c9f11168-02b6-4f10-ae58-4f5fb945256f"], +Cell[555246, 13753, 23045, 426, 186, "Output",ExpressionUUID->"662b8b51-da5b-4f68-bba7-1c9ae632d5ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[578328, 14184, 232, 5, 23, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[578563, 14191, 29419, 558, 186, "Output",ExpressionUUID->"8cee8eae-2f21-4a30-a0e1-44ce4c37be9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[608019, 14754, 1616, 48, 60, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[609638, 14804, 644, 13, 64, "Message",ExpressionUUID->"7f6076d3-b451-4550-924a-c88e80b63f77"], +Cell[610285, 14819, 648, 13, 64, "Message",ExpressionUUID->"646b0517-9267-42c6-b61d-eb464241e328"], +Cell[610936, 14834, 650, 13, 64, "Message",ExpressionUUID->"c8c22272-b672-4dda-bbeb-f2303c596584"], +Cell[611589, 14849, 494, 11, 20, "Message",ExpressionUUID->"1f761c1d-6110-4613-a13d-5a3302f6bdb4"], +Cell[612086, 14862, 195, 3, 26, "Output",ExpressionUUID->"a8b05adb-f7ad-4bfd-8d13-a58a0ed5a434"] +}, Open ]], +Cell[CellGroupData[{ +Cell[612318, 14870, 2272, 64, 128, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[614593, 14936, 584, 13, 49, "Message",ExpressionUUID->"4291cbd2-d7c1-4730-9c98-ccbd58e7e94d"], +Cell[615180, 14951, 585, 13, 49, "Message",ExpressionUUID->"655cedaf-872d-402f-9089-22cef2e3c137"], +Cell[615768, 14966, 589, 13, 49, "Message",ExpressionUUID->"bd13c977-8b18-43ae-869a-603be2ba909c"], +Cell[616360, 14981, 498, 11, 20, "Message",ExpressionUUID->"699b4bf8-8fc7-474b-a30a-035c835ac241"], +Cell[616861, 14994, 197, 3, 26, "Output",ExpressionUUID->"1c4b7eb0-26ab-45f9-9a6f-97df090d7e12"] +}, Open ]], +Cell[CellGroupData[{ +Cell[617095, 15002, 2233, 63, 128, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[619331, 15067, 582, 13, 49, "Message",ExpressionUUID->"d5bcca8f-a16b-461f-9d4f-a230fba667fe"], +Cell[619916, 15082, 585, 13, 49, "Message",ExpressionUUID->"8adb834e-987e-41f5-979b-4a0658ef1b15"], +Cell[620504, 15097, 587, 13, 49, "Message",ExpressionUUID->"b2357b71-f717-44d9-9a30-49331a33dc77"], +Cell[621094, 15112, 496, 11, 20, "Message",ExpressionUUID->"f3e01ed6-8ec4-4316-851c-04a66ed72318"], +Cell[621593, 15125, 194, 3, 26, "Output",ExpressionUUID->"d5849e12-13c5-4720-8fed-b5f9f901d4ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[621824, 15133, 2235, 63, 128, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[624062, 15198, 581, 13, 49, "Message",ExpressionUUID->"c8f7be6b-ad74-4d68-a636-bd66748947ec"], +Cell[624646, 15213, 585, 13, 49, "Message",ExpressionUUID->"c078e3c7-1b03-41f8-9d1e-24a2857c01c1"], +Cell[625234, 15228, 586, 13, 49, "Message",ExpressionUUID->"a3391d7f-49dd-4991-a66a-4949c4253e4d"], +Cell[625823, 15243, 495, 11, 20, "Message",ExpressionUUID->"a8a8a105-b21a-4181-8ebb-86ab048b01d8"], +Cell[626321, 15256, 196, 3, 26, "Output",ExpressionUUID->"da3776ea-c3dc-4f54-8117-565e92bb00a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[626554, 15264, 238, 6, 39, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[626795, 15272, 198, 3, 38, "Output",ExpressionUUID->"92f25870-d910-4695-ae33-4658f3356811"] +}, Open ]], +Cell[627008, 15278, 143, 3, 23, "Input",ExpressionUUID->"534df789-8196-43fb-812b-7969de9b28c8"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw2.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw2.nb index 1226680..7c81ef1 100644 --- a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw2.nb @@ -3,42 +3,4775 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 407368, 9500] -NotebookOptionsPosition[ 383518, 9136] -NotebookOutlinePosition[ 383944, 9153] -CellTagsIndexPosition[ 383901, 9150] +NotebookDataLength[ 657937, 15777] +NotebookOptionsPosition[ 617378, 15128] +NotebookOutlinePosition[ 617812, 15146] +CellTagsIndexPosition[ 617769, 15143] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918501413985214`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ -299085c765cc"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501359768734`*^9, - 3.991850137465685*^9}},ExpressionUUID->"5965eb10-01f8-5545-9b6f-\ -8fab318cd4b7"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "2.1"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.9938052191744213`*^9, 3.9938052504311247`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"3235bbf8-da8e-40de-a6fe-cb44aeded391"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.991320420900818*^9, 3.99380518475546*^9, {3.993805224475608*^9, + 3.993805252954657*^9}, 3.993916351512208*^9, 3.99391721520092*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"71694dee-141b-405f-a78e-95a6b2036bcc"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.993916321914616*^9, 3.993916322483457*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"bd0cf5d4-d368-4e36-8938-b6a0f83a3831"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ -092c5143dcf0"], + 3.9913196497381973`*^9, 3.993805185043068*^9, {3.993805224572557*^9, + 3.993805252993279*^9}, 3.993916351869231*^9, 3.9939172153212833`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"c9e1ef46-32d8-42d7-bd92-3941f6feddb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "158"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.9938049166426687`*^9, 3.993804917651101*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"9c07cf49-7265-4900-9960-936947713953"], + +Cell[BoxData["158"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.993805185062161*^9, {3.993805224576009*^9, + 3.993805253007394*^9}, 3.993916351892046*^9, 3.993917215341641*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"2f19bdd2-72b4-49e6-b945-e4b26a4ccd5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"8cb9b55f-070c-4625-a6d7-f782b4ce93ee"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.993805185081649*^9, {3.993805224601097*^9, + 3.99380525302089*^9}, 3.993916351914412*^9, 3.993917215361804*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"2904de36-0e80-409a-abbb-30e1d19674f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"e30a864e-a575-4b47-8ff8-424faf479ef1"], + +Cell[BoxData["0.54525`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9938051851009007`*^9, {3.993805224616465*^9, + 3.993805253035823*^9}, 3.993916351937345*^9, 3.9939172153795223`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"b1594c7f-a59a-41db-b09b-83171f431a91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"24d14c6e-1019-48b3-b766-5fcbd77da083"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9938051851193542`*^9, {3.993805224632454*^9, + 3.9938052530394487`*^9}, 3.9939163519603853`*^9, 3.993917215437397*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"5f17b7ca-c1f4-471d-ab57-9c38f97fbd9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"4141a19d-1262-4a1d-b152-6978db5a6523"], + +Cell[BoxData["6.27109940387026`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.99380518513807*^9, {3.993805224647552*^9, + 3.9938052530590487`*^9}, 3.993916351983755*^9, 3.993917215457288*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"d110cd2c-97d8-4966-9097-4de673fd1d4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"6aadd5e5-cc36-44c2-9bb6-f3e991296a6e"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.993805185156455*^9, {3.99380522466296*^9, + 3.993805253072824*^9}, 3.993916352007182*^9, 3.99391721547445*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"81bdd47b-0fd0-4331-888e-7627dd622c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "1.0538"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.993804952051347*^9, 3.9938049566002893`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"125eac33-36db-46f5-9dbf-4ce375c7fe67"], + +Cell[BoxData["1.0538`"], "Output", + CellChangeTimes->{ + 3.99380518519252*^9, {3.993805224678464*^9, 3.993805253087891*^9}, + 3.99391635203514*^9, 3.993917215500349*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"e2e59838-fad8-4b19-bcff-6a4be2167d52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4586"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.993804961242296*^9, 3.993804965065857*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"b95bc0b5-76c1-4424-b9c4-99fa3d71a00e"], + +Cell[BoxData["0.4586`"], "Output", + CellChangeTimes->{ + 3.9938051852126503`*^9, {3.9938052246934443`*^9, 3.9938052531018476`*^9}, + 3.9939163520582523`*^9, 3.9939172155188103`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"b04e3ad7-14e3-4ae7-8809-82565891672e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"101aab11-fc81-4955-b4a9-98a600e67d14"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.993805185248838*^9, {3.9938052247082167`*^9, + 3.9938052531162167`*^9}, 3.993916352081853*^9, 3.993917215546184*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"10f8a807-028b-4769-999b-45790f2a721a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"74bd6134-ee73-43ed-bd51-8c8dd29d117e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.993805185267172*^9, {3.9938052247238207`*^9, + 3.993805253130691*^9}, 3.9939163521054068`*^9, 3.993917215571023*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"ebb05eb8-8995-4cd6-a396-2f84d1fb1def"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"74c42d72-2d69-49dc-95c0-040f6497baf3"], + +Cell[BoxData["2.7212678798402736`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.99380518528695*^9, {3.993805224741534*^9, + 3.993805253144705*^9}, 3.9939163521330347`*^9, 3.9939172155893993`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"f79dabe1-4421-4172-92f9-8ac11e163c99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"280a7804-a118-4d98-b122-a6f17256ef5c"], + +Cell[BoxData["1.517413176238712`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.993805185305333*^9, {3.993805224756358*^9, + 3.993805253156912*^9}, 3.993916352156901*^9, 3.9939172156154222`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"6078c4cc-8b6e-45e6-a00e-47f52e8e5248"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"72b8a81e-f1b3-4cf4-ac1c-d07022e335bd"], + +Cell[BoxData["0.32066933716802604`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.9938051853237133`*^9, {3.993805224762803*^9, + 3.9938052531724854`*^9}, 3.993916352182193*^9, 3.993917215635318*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"b2cba5eb-5c23-4108-a1e3-5fd0579395d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"68620a86-4122-4554-a239-6e6334a50f04"], + +Cell[BoxData[ + RowBox[{"-", "0.07876066759731537`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.9938051853418283`*^9, {3.993805224780403*^9, + 3.993805253186532*^9}, 3.993916352207016*^9, 3.993917215654429*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"ce81c24a-8e2e-4382-b446-f57c8c21375d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"6bfcc9f3-1b86-47b4-9561-7b66074da604"], + +Cell[BoxData[ + RowBox[{"-", "0.5970148797225691`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.9938051853596067`*^9, {3.99380522479467*^9, + 3.993805253200911*^9}, 3.993916352232068*^9, 3.993917215675252*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"d9412d47-5602-4f88-a0be-2ce56d437272"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"4739ec10-3cf8-47d0-9709-c4a00f34cea6"], + +Cell[BoxData["0.6876077696425691`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.993805185378059*^9, {3.993805224809915*^9, + 3.993805253215036*^9}, 3.993916352256995*^9, 3.993917215694322*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"2586394e-9220-45c8-b0b4-7ece3d468c3c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"cb15b970-5a8f-45f5-8e23-8f42eb2e9f95"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.993805185398272*^9, {3.993805224824396*^9, + 3.9938052532292*^9}, 3.9939163522826366`*^9, 3.9939172157127*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"c3ab7154-9804-4ae3-a786-c98afd62af6c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"d01a55e9-2f1a-4b11-8e9d-9dec4e17b173"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9938051854177923`*^9, {3.99380522484026*^9, + 3.993805253244286*^9}, 3.993916352307663*^9, 3.993917215734737*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"fa620a48-bdec-48dd-adf5-d1d253396554"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"e7895c1b-819d-4dc5-b27a-2097571638fe"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.993805185437478*^9, {3.993805224855752*^9, + 3.9938052532596083`*^9}, 3.993916352336733*^9, 3.99391721575248*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"ed454e7e-3049-45ba-b04c-2f2ea7fe0e28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"ea19f017-261d-4f4c-a642-04351dbe973f"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.9938051854577103`*^9, {3.99380522487106*^9, + 3.993805253274938*^9}, 3.993916352360208*^9, 3.99391721577528*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"b0f59fa2-6ea8-43e6-99ae-e66ad19f28bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"b3c1d11a-2f84-4189-9e48-84352f007605"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.993805185476227*^9, {3.993805224888023*^9, + 3.9938052532912817`*^9}, 3.9939163523865757`*^9, 3.9939172157956963`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"9b435774-5825-4a4d-b626-d6ee868b974f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", "66"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.993804991704192*^9, 3.9938049918531923`*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"5248ded4-8ebe-421b-a3ea-d4c48915d94f"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.9913197867861958`*^9, 3.99380518552493*^9, {3.9938052249037046`*^9, + 3.993805253306974*^9}, 3.993916352410439*^9, 3.9939172158157787`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"f75e1eb1-17c3-4f16-82f5-0789651ac8fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.993804995664447*^9, 3.993804995772654*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"d2d0972b-5caf-4de1-9a95-52f8cdf2d3d2"], + +Cell[BoxData["28"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.993805185543676*^9, {3.9938052249204884`*^9, + 3.993805253322205*^9}, 3.99391635243427*^9, 3.993917215827013*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"8bc961ad-095b-4a56-8f92-7521b37539d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"af3b9a3b-4a8a-434b-853f-7ee90245c03b"], + +Cell[BoxData["82"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.9938051855619907`*^9, {3.9938052249386597`*^9, + 3.9938052533386793`*^9}, 3.993916352457818*^9, 3.993917215843268*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"43d7a721-e50b-4f3f-9d21-5fd543cf2bb0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"588c4eca-bf5d-4641-8975-06032766e60f"], + +Cell[BoxData["0.11191417104044457`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.993805185580923*^9, {3.993805224956522*^9, + 3.993805253354024*^9}, 3.9939163524821377`*^9, 3.993917215874291*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a03b5184-b4d1-402b-90cc-bbe620889ac7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"d8f13563-327e-4dee-8ebe-3800f0404fa0"], + +Cell[BoxData[ + RowBox[{"-", "2.561824637233714`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.993805185599188*^9, {3.993805224972258*^9, + 3.993805253370023*^9}, 3.9939163525065804`*^9, 3.993917215891595*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"f6eb3ee6-aa36-4f6a-9d14-1ea4aa960fde"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"af147681-d2bd-49f5-9c74-f8a15f9efa03"], + +Cell[BoxData["18.398535985484678`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.99380518561648*^9, {3.993805224987084*^9, + 3.993805253385118*^9}, 3.993916352533133*^9, 3.993917215913138*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"05afe1d7-ba3c-4bdb-ae60-544af3797eea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"05e6a1e9-953e-4b01-84b3-0e2e8dbe1069"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.9938051856333447`*^9, {3.993805225004781*^9, + 3.993805253400388*^9}, 3.993916352603034*^9, 3.993917215931304*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"602080a2-aca0-42f6-a2e3-a4a9b8ed207a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", "2.1"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.993805039391902*^9, 3.993805039626801*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"e27bfe21-8cab-4d46-80db-7ce42d777150"], + +Cell[BoxData["2.1`"], "Output", + CellChangeTimes->{ + 3.993805185666649*^9, {3.993805225028409*^9, 3.993805253416904*^9}, + 3.993916352634946*^9, 3.993917215948853*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"34c9b4d2-0237-4ae8-94a6-b67d0ef28b5d"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501388085117`*^9, - 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ -a3c857e6ae57"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"7a8de3c3-9e00-4679-909b-1b172ad0f302"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", "0.825"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.993805045213546*^9, 3.993805047124814*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"0ffbd7d6-4ef3-443b-ae11-f7b2b173c9c1"], + +Cell[BoxData["0.825`"], "Output", + CellChangeTimes->{ + 3.993805185701985*^9, {3.993805225054669*^9, 3.993805253444351*^9}, + 3.9939163527056713`*^9, 3.9939172159775457`*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"c1ff0e51-cbf3-4a1a-bde1-e9e2abf0e797"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"24d1218f-aca4-4e1e-af92-009ce7a8236d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", "2.555"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9938050508440866`*^9, 3.993805052236985*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b95b7010-0e26-4222-9786-e77f66b112ad"], + +Cell[BoxData["2.555`"], "Output", + CellChangeTimes->{ + 3.9938051857394037`*^9, {3.9938052250786047`*^9, 3.9938052534689074`*^9}, + 3.993916352780088*^9, 3.9939172160111732`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"d4fbc857-86f1-4ee3-92a5-56f0190b06f7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"803d8367-18c3-4f7c-ab32-062e1fcc3bdd"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", "1.245"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.99380505503828*^9, 3.993805056087892*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"daf1fa6f-8992-41d3-934a-8941400d9cac"], + +Cell[BoxData["1.245`"], "Output", + CellChangeTimes->{ + 3.993805185761554*^9, {3.9938052251046124`*^9, 3.9938052534951553`*^9}, + 3.9939163528525343`*^9, 3.993917216043016*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"d56dfcf4-dafb-485f-80db-dd5153707ba7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"eb0762a6-fb92-4334-9b50-70c79f936898"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", "1.573"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.993805059071521*^9, + 3.9938050607022467`*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"cf4792b2-7d4b-4891-830f-2e9ebaf00577"], + +Cell[BoxData["1.573`"], "Output", + CellChangeTimes->{ + 3.993805185855309*^9, {3.993805225129714*^9, 3.993805253518753*^9}, + 3.993916352928842*^9, 3.993917216081649*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"f72a07cc-e132-4cf5-912f-cb8c569686b8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"108913a2-6dfa-42c6-b688-2f352d95ffb2"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", "0.559"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.993805065029335*^9, + 3.993805067447727*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"b2890949-f971-4a94-884b-976d0f872b04"], + +Cell[BoxData["0.559`"], "Output", + CellChangeTimes->{ + 3.993805185891992*^9, {3.993805225152993*^9, 3.993805253543803*^9}, + 3.993916353008525*^9, 3.993917216118531*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"d9e09a96-d232-473d-9dc9-df9e81e48617"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"175aa9ad-bfa6-4047-b6f9-5da7a57ed4d4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9938050741899853`*^9, + 3.993805075123766*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"806d6a7d-e84e-499b-8c48-7fee38f0587e"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{ + 3.9938051859283257`*^9, {3.993805225185712*^9, 3.9938052535659924`*^9}, + 3.993916353081768*^9, 3.993917216151786*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"ed256617-321b-49ed-9d31-a9d5bebef00d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"55b98510-505a-45f5-9535-531564a81716"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", "0.735"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.993805078103382*^9, 3.993805079604447*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"1fa20fc6-2836-4435-94b4-2b0c2aab5ef1"], + +Cell[BoxData["0.735`"], "Output", + CellChangeTimes->{ + 3.993805185964576*^9, {3.9938052252141447`*^9, 3.993805253589633*^9}, + 3.993916353154702*^9, 3.9939172161897078`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"ad182484-6e67-4b97-96a6-9d159d91fe24"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"c3f49d31-4f36-494c-a60f-c1a6dc325eff"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"6d15d766-a35c-4956-b426-adee02c8c890"], + +Cell[BoxData["0.07326591095323323`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.993805186059474*^9, {3.9938052252761602`*^9, + 3.993805253639162*^9}, 3.993916353303368*^9, 3.9939172162784243`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"18bf17da-2828-467e-bb06-cb0bc6e1c908"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"67ead024-9cca-4bc0-8576-9678d088c046"], + +Cell[BoxData["5.817472076698097`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.993805186091166*^9, {3.9938052253032303`*^9, + 3.993805253666086*^9}, 3.993916353340589*^9, 3.993917216393474*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"fd6ff706-623e-4520-a21a-7e3d02b1868e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"41bb8323-f3a2-4c37-877b-19863b406be8"], + +Cell[BoxData[ + RowBox[{"-", "18.01966490435569`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.993805186124298*^9, {3.993805225330043*^9, + 3.9938052536925*^9}, 3.993916353372154*^9, 3.9939172164531507`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"537d50a5-6017-4b1e-8926-6b128375f8e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"e7be57cb-9256-4ada-b3c3-d995c6fbc707"], + +Cell[BoxData[ + RowBox[{"-", "26.39087117680155`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.993805186162883*^9, {3.9938052253638563`*^9, + 3.993805253728293*^9}, 3.993916353411268*^9, 3.993917216529522*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"c35da129-c7a9-47cf-95e4-cab6f6530fc2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"243991e9-4dc6-49a0-b2c7-e218016faa0c"], + +Cell[BoxData[ + RowBox[{"-", "72.0154502935676`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.9938051862023897`*^9, {3.993805225399252*^9, + 3.993805253760605*^9}, 3.9939163534581738`*^9, 3.9939172166001663`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"16f1119c-e7e1-4cd6-860a-52e57c3cc069"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"96b3762f-4689-49ef-9539-8fd4b9c74a6f"], + +Cell[BoxData[ + RowBox[{"-", "210.89213440043358`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.99380518624261*^9, {3.993805225437365*^9, + 3.993805253795278*^9}, 3.993916353515175*^9, 3.993917216697413*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"5210d035-db65-4a21-953e-adda35980499"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"c2390247-c1c8-4bf5-a215-7e65e6c8be37"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9938051862628403`*^9, {3.993805225455119*^9, + 3.993805253809515*^9}, 3.993916353549343*^9, 3.993917216724867*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"640d67ea-f2aa-403b-9fbb-6c23f19e1a22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"d0191392-f6e7-402e-a95c-2e3585349110"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.9938051862883873`*^9, {3.993805225469843*^9, + 3.993805253823063*^9}, 3.993916353615691*^9, 3.99391721674658*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"8f56319c-d9e7-443f-ba13-39952c108f9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"abd2baff-d090-46d8-8498-4320ff81f8a8"], + +Cell[BoxData["147.07396031318729`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.993805186309627*^9, {3.993805225485524*^9, + 3.993805253836412*^9}, 3.993916353640667*^9, 3.993917216757519*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"107ab08f-346e-480d-8fb7-d2cf9a895c46"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"418b109a-0fe1-419f-9333-75c60545378f"], + +Cell[BoxData[ + RowBox[{"-", "138.05974755201015`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.993805186332671*^9, {3.9938052255064*^9, + 3.993805253849951*^9}, 3.993916353666204*^9, 3.993917216785487*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"f5a13f62-7863-4bb4-851d-8a2e4bf5e58d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"d8b3b587-7f8e-4b06-b76c-2825de0f2394"], + +Cell[BoxData["151.31388532518324`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9938051863549347`*^9, {3.993805225521781*^9, + 3.9938052538643007`*^9}, 3.993916353692947*^9, 3.993917216804294*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"49aee616-d16e-4025-b1ff-34744ebeae76"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"8148770f-baaf-45d0-9c9a-49558cf8ed36"], + +Cell[BoxData["0.32066933716802604`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.993805186375004*^9, {3.993805225539682*^9, + 3.9938052538780746`*^9}, 3.993916353720183*^9, 3.9939172168228197`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"281293ac-7d8a-427f-9cf7-321847c3d084"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"011ad14a-a48a-4894-b4a2-eb1ca40f1287"], + +Cell[BoxData[ + RowBox[{"-", "0.07876066759731537`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.993805186395523*^9, {3.993805225554823*^9, + 3.993805253891698*^9}, 3.993916353744547*^9, 3.9939172168328323`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"89b69685-bcee-4eeb-98d0-850e47f612a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"0a0fc77f-7192-4edc-a9eb-7f8bdd8e5be7"], + +Cell[BoxData[ + RowBox[{"-", "0.5970148797225691`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.9938051864158077`*^9, {3.9938052255692043`*^9, + 3.993805253905455*^9}, 3.993916353768426*^9, 3.99391721684719*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"8469963a-cadb-4825-8c01-4afa80d80848"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"445d3563-9281-4f3f-b221-5512d1a5d6a6"], + +Cell[BoxData["0.6876077696425691`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.993805186435895*^9, {3.993805225584848*^9, + 3.9938052539190693`*^9}, 3.993916353793048*^9, 3.9939172168636513`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"556452b9-3b93-47e4-b131-1d56b5b5ee3c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"d3053f3f-f93a-4d23-92d5-cd89ba821790"], + +Cell[BoxData["2.7212678798402736`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.993805186459119*^9, {3.993805225601059*^9, + 3.9938052539329557`*^9}, 3.993916353817293*^9, 3.993917216877578*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"529d9c64-b5ca-4164-88ab-e654cbdc5c59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"01ffdf21-d666-415a-84b8-6301939400d0"], + +Cell[BoxData["1.517413176238712`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.993805186481224*^9, {3.993805225615499*^9, + 3.9938052539461823`*^9}, 3.993916353823238*^9, 3.993917216894952*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"42ab4c8d-ae6d-44b8-9bbc-632719d7d89a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"f88a16e2-35d7-4ccf-9d96-e055f2fe78af"], + +Cell[BoxData[ + RowBox[{"-", "35.37905990838884`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.993805186500906*^9, {3.993805225630805*^9, + 3.9938052539603987`*^9}, 3.9939163538577957`*^9, 3.99391721692136*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"49a5e7a1-a9b4-46be-b66a-2b81309c6b4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"a9a6bbef-82df-4a94-b59e-4d24434c91f6"], + +Cell[BoxData[ + RowBox[{"-", "7.518677963606449`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.9938051865278683`*^9, {3.9938052256462593`*^9, + 3.9938052540033293`*^9}, 3.9939163538870287`*^9, 3.99391721693729*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"c4f89755-2805-4a4f-add9-cb2ba0935bab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"a6502cee-2ac3-4f4c-a190-93c980fabdca"], + +Cell[BoxData["111.69490040479845`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.993805186549179*^9, {3.99380522566187*^9, + 3.9938052540195704`*^9}, 3.993916353911763*^9, 3.993917216947546*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"99d8e306-918c-4ac1-b812-1b5f2abe83c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"bc70c33f-23d9-40d3-9ab7-9edab6724579"], + +Cell[BoxData[ + RowBox[{"-", "138.05974755201015`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.993805186570223*^9, {3.993805225677956*^9, + 3.993805254035548*^9}, 3.993916353937284*^9, 3.993917216975379*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"bebff362-73cf-45d3-92dc-15cc34beec0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"f936e74b-4d2b-46e6-b556-b8a9361c9126"], + +Cell[BoxData["143.7952073615768`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.993805186590909*^9, {3.993805225694096*^9, + 3.993805254049733*^9}, 3.993916353962906*^9, 3.993917217002316*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"338b1765-d916-43c3-a47e-28a6a5ac0450"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"3ecce7ab-9e54-4e99-8722-2226b3e8dfd5"], + +Cell[BoxData["27.73706386208056`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.993805186610568*^9, {3.993805225710843*^9, + 3.99380525406491*^9}, 3.99391635399086*^9, 3.993917217026084*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"e60f0372-5d68-4142-9840-12fc2389a751"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"e403924d-4d25-4004-8020-0d7c43ca7a2c"], + +Cell[BoxData["878.9837204382463`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9938051866294127`*^9, {3.99380522572875*^9, + 3.9938052540809603`*^9}, 3.9939163540160513`*^9, 3.993917217045669*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"db2efec4-ea7d-4cd0-ba8d-37c6415a6944"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4885"}]], "Input", + CellChangeTimes->{ + 3.9918501413985214`*^9, {3.99391688726894*^9, 3.993916890420662*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], + +Cell[BoxData["0.4885`"], "Output", + CellChangeTimes->{3.993917217063051*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"2f36b226-2148-4840-b09a-4154b17a6c3b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501359768734`*^9, 3.991850137465685*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.26256"}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9, {3.993916893232183*^9, 3.993916896983267*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], + +Cell[BoxData["0.26256`"], "Output", + CellChangeTimes->{3.993917217095066*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"7f1539d4-19ab-41b5-852a-7b95a297f790"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, 3.991850138811516*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ @@ -84,13 +4817,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[399]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], + CellLabel->"In[75]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913437871842365`*^9}, - CellLabel-> - "Out[399]=",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[BoxData["1.6893390031074366`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.9939172171568937`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"4f967220-21bb-4dc6-a526-cc8174f0715a"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +4855,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ -301cf9f22a61"], + CellChangeTimes->{3.991557655438551*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.9913437872132397`*^9}, - CellLabel-> - "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[BoxData["1.0839675072357156`*^-54"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.993917217177953*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"43f55ade-e5ec-4497-9343-06cd2ade8114"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +4893,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915576595317745`*^9, - 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ -fda42549e334"], + CellChangeTimes->{{3.9915576595317745`*^9, 3.9915576617156334`*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.9913437872412376`*^9}, - CellLabel-> - "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[BoxData["1.2934972024612221`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.993917217205801*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"d2477961-6f95-48aa-bb2a-c1495833f0f8"] }, Open ]], Cell[CellGroupData[{ @@ -194,13 +4921,11 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + CellLabel->"In[78]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913437872672386`*^9}, - CellLabel-> - "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[BoxData["17.43674086547703`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.9939172172281237`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"3e520032-a248-4f19-bfaf-e2c8a829ae20"] }, Open ]], Cell[CellGroupData[{ @@ -226,13 +4951,11 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", - CellLabel-> - "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + CellLabel->"In[79]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[BoxData["47.62007062351`"], "Output", - CellChangeTimes->{3.991343787279253*^9}, - CellLabel-> - "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[BoxData["39.35859912660949`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.993917217253345*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"ce0482a0-edbe-4bf8-8a5d-cd12b483277d"] }, Open ]], Cell[CellGroupData[{ @@ -241,13 +4964,11 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + CellLabel->"In[80]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913437873062572`*^9}, - CellLabel-> - "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[BoxData["1.26123956632828`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.993917217279134*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"15d48f3c-e633-4570-b8a6-07a9d0c6fe84"] }, Open ]], Cell[CellGroupData[{ @@ -256,13 +4977,11 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + CellLabel->"In[81]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[BoxData["2.8712430196956706`"], "Output", - CellChangeTimes->{3.9913437873353844`*^9}, - CellLabel-> - "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[BoxData["4.725748439780067`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.993917217302314*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"14dcc668-025f-4a7f-9107-53b5682dd10b"] }, Open ]], Cell[CellGroupData[{ @@ -271,13 +4990,11 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + CellLabel->"In[82]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[BoxData["136.72879537516795`"], "Output", - CellChangeTimes->{3.991343787361582*^9}, - CellLabel-> - "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[BoxData["185.9988384145039`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.9939172173564043`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"d4c8812a-ba1e-4e3a-9f37-dd706cc6b322"] }, Open ]], Cell[CellGroupData[{ @@ -286,13 +5003,11 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + CellLabel->"In[83]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913437873734856`*^9}, - CellLabel-> - "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[BoxData["21.991907487352847`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.9939172173784647`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"0aead870-2e0b-44c2-b809-b87a1e1cace7"] }, Open ]], Cell[CellGroupData[{ @@ -481,13 +5196,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + CellLabel->"In[84]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[BoxData["0.03116264120310575`"], "Output", - CellChangeTimes->{3.9913437874002857`*^9}, - CellLabel-> - "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[BoxData["0.006001776499798812`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.9939172174004803`*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"db718652-2b48-4338-9552-13b4accc45f4"] }, Open ]], Cell[CellGroupData[{ @@ -500,13 +5213,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + CellLabel->"In[85]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[BoxData["5.020278507983894`"], "Output", - CellChangeTimes->{3.9913437875033875`*^9}, - CellLabel-> - "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[BoxData["11.439447021522886`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.993917217495655*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"a6f96a21-eeb1-46e5-bc27-ad8dfca41fbb"] }, Open ]], Cell[CellGroupData[{ @@ -697,13 +5408,11 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + CellLabel->"In[86]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[BoxData["0.011613560908040731`"], "Output", - CellChangeTimes->{3.9913437875342865`*^9}, - CellLabel-> - "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[BoxData["0.040665615799911826`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.993917217525766*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"b5450c92-89e6-4a77-a621-17b0ec2d0f79"] }, Open ]], Cell[CellGroupData[{ @@ -716,13 +5425,11 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + CellLabel->"In[87]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[BoxData["8.223604958038852`"], "Output", - CellChangeTimes->{3.9913437876352882`*^9}, - CellLabel-> - "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[BoxData["4.394720545540283`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.993917217650322*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"66fd6269-0b81-4091-9217-4aaad6305bea"] }, Open ]], Cell[CellGroupData[{ @@ -814,13 +5521,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + CellLabel->"In[88]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991343787650694*^9}, - CellLabel-> - "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[BoxData["0.11820585579367623`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.99391721766966*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"87abfc81-ca35-4e00-93df-6a0cfd7789ff"] }, Open ]], Cell[CellGroupData[{ @@ -909,13 +5614,11 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + CellLabel->"In[89]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913437876776943`*^9}, - CellLabel-> - "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[BoxData["0.8817941442063238`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.993917217691915*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"0acfa219-4202-4446-ad81-3ac17b916b5e"] }, Open ]], Cell[CellGroupData[{ @@ -1037,19 +5740,17 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + CellLabel->"In[90]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913437877049465`*^9}, - CellLabel-> - "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +Cell[BoxData["0.10423323144976085`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.993917217712552*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"9002327a-07a3-4ba6-a912-d6e939859cdb"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ -ad40-9440-412e77bed40d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ @@ -1110,68 +5811,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ -1f4f66f53217"], + CellChangeTimes->{3.9918501532204666`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 433, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437877189426`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.695901893837715`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 92, 89, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.993917217759898*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], +In[92]:=",ExpressionUUID->"e6660c87-646c-48f6-921b-92bcf67a6627"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 434, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343787730139*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1204065162631015`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 92, 90, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.993917217768016*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +In[92]:=",ExpressionUUID->"c26f6f1f-0590-4f77-b9cc-c012484ed67a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 435, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437877381363`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2652106226216078`*^-243\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 92, 91, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.99391721777649*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +In[92]:=",ExpressionUUID->"7fac0da0-c8f6-46d3-ab75-dded728187a6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343787747137*^9}, +during this calculation.\"", 2, 92, 92, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.993917217784458*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +In[92]:=",ExpressionUUID->"595489b9-1d97-4bbc-88f9-7a6561d59dff"], -Cell[BoxData["5.020278507983898`"], "Output", - CellChangeTimes->{3.991343791131052*^9}, - CellLabel-> - "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[BoxData["11.439447021522888`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.993917222155249*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"a1039a5e-5d6e-484f-b3db-411b42d8ae92"] }, Open ]], Cell[CellGroupData[{ @@ -1233,68 +5935,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ -b62dad3009d2"], + CellChangeTimes->{3.9918501579408264`*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 437, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911686516`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.695901893837715`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 93, 93, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9939172222086077`*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], +In[93]:=",ExpressionUUID->"f4e44c7d-9bcf-42b9-9ca9-37adce721add"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 438, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134379117865*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1204065162631015`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 94, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9939172222185373`*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +In[93]:=",ExpressionUUID->"e2c852d2-5308-48a0-ba3d-b8deef18ea45"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 439, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911866493`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2652106226216078`*^-243\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 93, 95, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.993917222227682*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +In[93]:=",ExpressionUUID->"2af376ec-7e46-4159-9c1f-8a872f074117"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911946507`*^9}, +during this calculation.\"", 2, 93, 96, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.993917222238188*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +In[93]:=",ExpressionUUID->"5c9396cd-805e-4018-aa7a-e2a25934a619"], -Cell[BoxData["8.223604958038848`"], "Output", - CellChangeTimes->{3.991343794599764*^9}, - CellLabel-> - "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[BoxData["4.394720545540282`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.993917226549655*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"ee07190f-2179-4cbe-9ebc-441d55a2e33d"] }, Open ]], Cell[CellGroupData[{ @@ -1350,94 +6053,93 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918501631488323`*^9},ExpressionUUID->"46451e4d-f5ef-b246-91c6-\ -4265c9fafb97"], + CellChangeTimes->{3.9918501631488323`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk8Fd0fB3D7TpYQIsuVkOWxFJLzzZIIaSF7lrlD1ixJEZVoIZU80YJs +JZFEhFYkT11RlBLZ5YfGvbJE2+/cP+Y1r/frnPnM58yZGRX/iF10Lg4Ojm/4 +YJ8j3+hq1HW+sXBLDSo6xUkhC6rY2N+6HBk2t1axPZi/IYtm/QidTBzsY9uZ +aOcTMXyBztY+oJ3GropLaua1ZiCZoK1n2D7TuupZUtlbNJiRKXQGu74zMu+X +wXt0Xv1qKduTva8SDjd+RNrq3gFnseXH1DwXrPrQQspnszTs7TMJptGMAXTe +QlovHfvJr0nhuLIhVGQtBOewPxyXja8NH0Hn0hvCMrApPuvJOYMx5Cy49uF5 +bL70A+6Gi+OIv8JhzUVsJYnctsjGCUQL0i3KxHZSWLhJWU2jh0OqnJexyRuq +MjoCFLKPN/6cjZ2kviMlhDGD+oe53l3B/ijb/U9MGQsttbRL52ETHsH7L6XP +ok/ir/1vYDOvcxTcD/+OsttPMAqxBVR1xFkG84jSVVm4hZ1FNNuKSy+gVdf4 +a8uwlW+5J+ktLiBv/tLMCmyT9alUWOMP1OInU1iNHbRhgDFp9QvN0kvknmPP +xR3kEVr7G9Wquj1twT7WKGyuKfAHOTQ3H2/DzgGTO4GMv6hf8IVXJ7tfSZt1 +VBknOAwHhwxhl7VeGjyuwAUiywMLY+y+X30SLqZzwduzIvmT2Ala89X3wrlh +wi7NZo7dt1JFbcaAF777yU0JcFGot3P6yZ8iXkgIsfYSw1aerfMQk+aDcCP1 +SSnsciOnTJ1FPrCU4Pdag91Sf4QztFEA/vLY5GzEnm/uGpiwEoE6h/CoMGxJ +BxHx+CcikJg5v/0gtn63NYiaioLJgLHtUezg0Qc3/tEVg9jZgcJz2Ae4GPqb +RcThsvcbqhJ7TPUuK2VBAq5XVH1cxp4jXwl2GEpCbsG/7TzcFOK6M66yKlIS +NPZrj4phKxuu2VU2JQm04OBYNWwPqwv33wxKQc81DT0n7I6AqGjZ19LACqSx +bmN/uZWR5isgA79WjXHUYk9PlRXdtpGBp3VOBk3YQjEjXZueycCwnfxyL7b1 +yT1Gvg9koVzvuKIYD4UaijfMl+bLgcm3n/ePYBePLceaxSjC+shGqTBeCm1z +OfUlukIRYM7FMgF7ukVqa8W4IghuNc5IwzYqXi+t7K4EMiVPj5Zht/j7VPNa +rIFWE2bj/7BnZwYPTSQrwz+VajVhfBSSCrOuqXZUBasOXJyfQuPFQkHOwaoQ +HB5L5GE/7OtU+JaqCpdGI/dWYXs5eCevfaYKtRzTWT3Yxdqxu64YqEHb3vdh +6vg7MJq8xUyUpcGobePlVuw9gcI69kPqQNFTnygJUQjFuhjs/a0OsSulXxph +a6XkbyTk1kLqocwpe2yOIkPLxJ1roe2qy+lD2BVfPPfef74WNnQOi7/D5nMt +Py5fqAG/+8A7XRj3s3b8MOmvCR4Nwn3SohQq2p39eTFRE+S1zvjqYWf4Dw3y +XNOEfK73HHbYxLGDU0pdmiCb1ZWVgC3xKJdjt5UWPD3mKDSGHWxIaTWqacPv +N2ZajWIUUlA9n5Q2uh7Mr1LGCeIUenR2TnOJSwdof4xKr2F7fXfvJlV0wLab +f1Mjdl4LTdPSRwf8Tjo0LWOrBja8+9GjAzXO6nvjJfB6y8fUyde6ICtUlnNC +kkKKCkqksrs+DI7ujri9kkLrS2JEfiIDSP3uIOAmRyF/Inlex8kAnOveTyVg +56hlfvH1MoD05D1TBdjchZX3WuMMQLhWx2Iauzdvck9mlQF8eapseEIe/09z +fHM11QyBVzHbrVoB72+ag64bnxE0vpxJ0VKiUEEUzfkBwxh0tQ7xh6pRqDMW +bTxZYgpO4U2D2/QppOLz3sk7dDPs/i9j+wcLCtH/1t5VPAxgezm0V8aJQrJT +D/ll/S1BaonmGuRLoRhD875MLWsYt+3KVo7G/b/9apOatAFZ6rIsKxXvp2U0 +f36HLZBEtAZ3Hn5/5oKfl2fZgdsvx52zNRT6sWVVe0vSdvAI8lhn2UGhfg5u +1pCfI/hVtrMOTVIofHXEheNqO2DXUk7Bb54ZdHd/27N/U5whPWPF7gnVGXTk +u9yi9v6dUCC0NaYTzaB5+62uL/ftAvlbBZ9kfWeQqefFLWM7d8OELqlVcGwG +vZPLDW4x3AO5PZ538vNnkPzN5Eel61xAoWhQnPF8Bj0c1HJwEnWFVp4mW8Xh +GaTUzQyM/eYKjRqqy/ycTGT478XyosG9kBpvX3tAkolyeb7rZja7QQY9ZblK +lYlqt+j1ptS7g4rxvAwyYqKcjWclfpV5APPdOg0XGybq+FySapjuCZ+f7Z+X +cGGiB47XaQeOeYGVtERbD52JWGG7OcIJb7CItrXTOMhE81s1gygrH6hv1st/ +kcxEpd8+/YjesA+mlyt711xiIreCkgBvEV+wSOhT/XqDiarvb9/HfcoXpk98 +adGuZCJThXdLZ5Z84VSVB4vRyERqg4G9b/f7gRdRSzv8kolGhUN2XB/xgxjt +KHHbLibqzHAKsHXxh4PvXLdE9DNRVly+8MFOfzhaVSEe9ZWJHj35uxRgFwBC +p0bpG5hMtMILThk2BEDxdIYSuchEyitfdqx+FAAyHqvXJGPrMxxX8T0JgHXT +8yI3sHeZe97++DwAGB0n7n3Czlod+/rofwFgpFMv4/CDieT776xo+xgAk1H2 +3jpLTETzkc3xWgyAt54Tz4aW8Xp8qdIUIwKuu4y6SvxhoptXmNFOGwhwejG6 +rIG9smvWQtaEgLQnYhkW2JTNYnfpJgL+/u45HoJdrM3BybAk4Ei7SH4Lttii +hLvkTgIEmaF3o//i53HOWDA/jAAVr7qVLzhYaOfLjd2BEQS0nj909RP2Ew6z +fP1IApo8NFdQ2FeiLYybYgiIl/R8IcPJQk7utn5j8QRw9LQRgdj1NPd67bME +ROX4hvNysVBGY8L+hzcJkM3bV2DEzUJhBtmmcaUEJPsMlWzFdrhdJWhSRoCr +5psrbthC2eO36yoIGIGRHQnYKVHOk7U1BAREds81YSdo0kIeNBFwpSdP2ZGH +hYKzX4fe/0IA7/fYhT28LGQnNm4eNUiAAKt+jMBel8IhajBMwIWkzS0x2ONR +xhVVYwSYunDuyML2c8r/dm+agEov92vvsN14o8MrlwmQmTYTc+BjIdto+QPl +MnTw/nh6jwE/CzXlp9pnrqKDP9clly3Y5oxZWpw8HXb6Nlg6Y+urv/5kpYTn +G3kOhWHL9cRbfVang6PQU71S7CmzfhkhYzpUvx1ZISfAQue5bjwO3E2HO6PF +3VPYQnoiOY4udLi1g+H6A/ukZ1yU4V46cDhNtPAIslBcjbPGXw86XA1ZIhSx +/UjOi5f96aDs71vjiG34yp94EUmH9/x258uwey6qC6tdoMNCFU3XRYiF7iLR +oImLdChWcDrhg33y21xLxSU6OKWPtwRiG9i1JJpk08Es1U/6CHYGR8CsYx4d +BG1CRnKxt0bc+BRXTofeDzqGw9iKiqc3WNylQ6UQK2wSe+5VxCXue3SQ/CGb +PYtduBY5ZlTTgeGdUcMlzEK/+/ufFTXQ4ctG4dWq2DUOCqVv2ujwdOzhdW/s +tGUu3qxXdKBVhDwmsP1LJ/3cGXTI2R7HCMEW52lQGO2gQ1/r9QeHsUMb3c4v +faCDmwx3TRa2mtblWNoYHZqfM3xfYi/3HO363zgd7uV9JtuxO1Po+pUTdCD7 +Nnl2YScOGU2aTtMhJYMSG8Duzeny3vGdDq/urCicx87kl7A5wknCqdC+2DUi +LPRott8zhpuEB85i32nYX/vLosJ5SdhXrOuuhW1eY33DX5CElREmI0bY475x +P+0lSJga9KO2YYs72EjaSJHgduxHvSP2po2SmkiahOGowxG7sC+IlrsaypHg +F2aS48kebxioUlAhQWspdzAUmywpb5NWI0Ek4MjPA+z5Fw4PrFAnQSBzM8dB +9v1IKVEeTRJKCmNfJrDHpWyDpvVJUGkqdUjDbvgjlTRuQILk4Xu1Gdhj/xv8 +d9CIhML5a0KZ2GbPjjR3m5CgMbn6QA72aOhdpcdAwqOvj/8pxhZzizeusyTh +83Dv5E1sU6ttDlXWJNQYfDp3GztDbvhwyTYSzjTFXbyL/ZCn8kK+PQmix+Vm +72GPzMTfuuJAgu/Fq+bV2Cat0u/POZMg99j8fB22f9Xw1KldJPQHeWfXY5+7 +Xsl1Yg8JZqe8zzRiD0fZ6ce6kcDt8lPrKbaoj4ztAQ8SKm/m9D5j59mNeAd7 +kRBcuTKmiX39mqNpPr4kSFmVEi/YfYTsC938SVh14mljKztvXqZ+F0GC92DN +r5fsvKGRDgeShGObT2v8x85j3BvfGoT7xpuav2L3qzv6G4JJWJHYZvaanV9o +v3JTKAkj2sZqDHb+OVlt43ASQsOS5tkejhvdoneAhEidW1Xt2CJElZtmFAmL +buV732Bv3JEYoRZDguVAxle2/c22pyrGktBe5eTXgZ2uvipXNo6EHS1TLWzX +io9VSxwhoUGElOzEHvpZ9Uo4gQTb5Md2bIt8TRziTSRhj+psMNsb3m3/8TeJ +hMxx7li2/w8Ek9XM "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1451,105 +6153,106 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX +1:eJwV1Hk8Fd0fB3D7TpYQIsuVkOWxFJLzzZIIaSF7lrlD1ixJEZVoIZU80YJs +JZFEhFYkT11RlBLZ5YfGvbJE2+/cP+Y1r/frnPnM58yZGRX/iF10Lg4Ojm/4 +YJ8j3+hq1HW+sXBLDSo6xUkhC6rY2N+6HBk2t1axPZi/IYtm/QidTBzsY9uZ +aOcTMXyBztY+oJ3GropLaua1ZiCZoK1n2D7TuupZUtlbNJiRKXQGu74zMu+X +wXt0Xv1qKduTva8SDjd+RNrq3gFnseXH1DwXrPrQQspnszTs7TMJptGMAXTe +QlovHfvJr0nhuLIhVGQtBOewPxyXja8NH0Hn0hvCMrApPuvJOYMx5Cy49uF5 +bL70A+6Gi+OIv8JhzUVsJYnctsjGCUQL0i3KxHZSWLhJWU2jh0OqnJexyRuq +MjoCFLKPN/6cjZ2kviMlhDGD+oe53l3B/ijb/U9MGQsttbRL52ETHsH7L6XP +ok/ir/1vYDOvcxTcD/+OsttPMAqxBVR1xFkG84jSVVm4hZ1FNNuKSy+gVdf4 +a8uwlW+5J+ktLiBv/tLMCmyT9alUWOMP1OInU1iNHbRhgDFp9QvN0kvknmPP +xR3kEVr7G9Wquj1twT7WKGyuKfAHOTQ3H2/DzgGTO4GMv6hf8IVXJ7tfSZt1 +VBknOAwHhwxhl7VeGjyuwAUiywMLY+y+X30SLqZzwduzIvmT2Ala89X3wrlh +wi7NZo7dt1JFbcaAF777yU0JcFGot3P6yZ8iXkgIsfYSw1aerfMQk+aDcCP1 +SSnsciOnTJ1FPrCU4Pdag91Sf4QztFEA/vLY5GzEnm/uGpiwEoE6h/CoMGxJ +BxHx+CcikJg5v/0gtn63NYiaioLJgLHtUezg0Qc3/tEVg9jZgcJz2Ae4GPqb +RcThsvcbqhJ7TPUuK2VBAq5XVH1cxp4jXwl2GEpCbsG/7TzcFOK6M66yKlIS +NPZrj4phKxuu2VU2JQm04OBYNWwPqwv33wxKQc81DT0n7I6AqGjZ19LACqSx +bmN/uZWR5isgA79WjXHUYk9PlRXdtpGBp3VOBk3YQjEjXZueycCwnfxyL7b1 +yT1Gvg9koVzvuKIYD4UaijfMl+bLgcm3n/ePYBePLceaxSjC+shGqTBeCm1z +OfUlukIRYM7FMgF7ukVqa8W4IghuNc5IwzYqXi+t7K4EMiVPj5Zht/j7VPNa +rIFWE2bj/7BnZwYPTSQrwz+VajVhfBSSCrOuqXZUBasOXJyfQuPFQkHOwaoQ +HB5L5GE/7OtU+JaqCpdGI/dWYXs5eCevfaYKtRzTWT3Yxdqxu64YqEHb3vdh +6vg7MJq8xUyUpcGobePlVuw9gcI69kPqQNFTnygJUQjFuhjs/a0OsSulXxph +a6XkbyTk1kLqocwpe2yOIkPLxJ1roe2qy+lD2BVfPPfef74WNnQOi7/D5nMt +Py5fqAG/+8A7XRj3s3b8MOmvCR4Nwn3SohQq2p39eTFRE+S1zvjqYWf4Dw3y +XNOEfK73HHbYxLGDU0pdmiCb1ZWVgC3xKJdjt5UWPD3mKDSGHWxIaTWqacPv +N2ZajWIUUlA9n5Q2uh7Mr1LGCeIUenR2TnOJSwdof4xKr2F7fXfvJlV0wLab +f1Mjdl4LTdPSRwf8Tjo0LWOrBja8+9GjAzXO6nvjJfB6y8fUyde6ICtUlnNC +kkKKCkqksrs+DI7ujri9kkLrS2JEfiIDSP3uIOAmRyF/Inlex8kAnOveTyVg +56hlfvH1MoD05D1TBdjchZX3WuMMQLhWx2Iauzdvck9mlQF8eapseEIe/09z +fHM11QyBVzHbrVoB72+ag64bnxE0vpxJ0VKiUEEUzfkBwxh0tQ7xh6pRqDMW +bTxZYgpO4U2D2/QppOLz3sk7dDPs/i9j+wcLCtH/1t5VPAxgezm0V8aJQrJT +D/ll/S1BaonmGuRLoRhD875MLWsYt+3KVo7G/b/9apOatAFZ6rIsKxXvp2U0 +f36HLZBEtAZ3Hn5/5oKfl2fZgdsvx52zNRT6sWVVe0vSdvAI8lhn2UGhfg5u +1pCfI/hVtrMOTVIofHXEheNqO2DXUk7Bb54ZdHd/27N/U5whPWPF7gnVGXTk +u9yi9v6dUCC0NaYTzaB5+62uL/ftAvlbBZ9kfWeQqefFLWM7d8OELqlVcGwG +vZPLDW4x3AO5PZ538vNnkPzN5Eel61xAoWhQnPF8Bj0c1HJwEnWFVp4mW8Xh +GaTUzQyM/eYKjRqqy/ycTGT478XyosG9kBpvX3tAkolyeb7rZja7QQY9ZblK +lYlqt+j1ptS7g4rxvAwyYqKcjWclfpV5APPdOg0XGybq+FySapjuCZ+f7Z+X +cGGiB47XaQeOeYGVtERbD52JWGG7OcIJb7CItrXTOMhE81s1gygrH6hv1st/ +kcxEpd8+/YjesA+mlyt711xiIreCkgBvEV+wSOhT/XqDiarvb9/HfcoXpk98 +adGuZCJThXdLZ5Z84VSVB4vRyERqg4G9b/f7gRdRSzv8kolGhUN2XB/xgxjt +KHHbLibqzHAKsHXxh4PvXLdE9DNRVly+8MFOfzhaVSEe9ZWJHj35uxRgFwBC +p0bpG5hMtMILThk2BEDxdIYSuchEyitfdqx+FAAyHqvXJGPrMxxX8T0JgHXT +8yI3sHeZe97++DwAGB0n7n3Czlod+/rofwFgpFMv4/CDieT776xo+xgAk1H2 +3jpLTETzkc3xWgyAt54Tz4aW8Xp8qdIUIwKuu4y6SvxhoptXmNFOGwhwejG6 +rIG9smvWQtaEgLQnYhkW2JTNYnfpJgL+/u45HoJdrM3BybAk4Ei7SH4Lttii +hLvkTgIEmaF3o//i53HOWDA/jAAVr7qVLzhYaOfLjd2BEQS0nj909RP2Ew6z +fP1IApo8NFdQ2FeiLYybYgiIl/R8IcPJQk7utn5j8QRw9LQRgdj1NPd67bME +ROX4hvNysVBGY8L+hzcJkM3bV2DEzUJhBtmmcaUEJPsMlWzFdrhdJWhSRoCr +5psrbthC2eO36yoIGIGRHQnYKVHOk7U1BAREds81YSdo0kIeNBFwpSdP2ZGH +hYKzX4fe/0IA7/fYhT28LGQnNm4eNUiAAKt+jMBel8IhajBMwIWkzS0x2ONR +xhVVYwSYunDuyML2c8r/dm+agEov92vvsN14o8MrlwmQmTYTc+BjIdto+QPl +MnTw/nh6jwE/CzXlp9pnrqKDP9clly3Y5oxZWpw8HXb6Nlg6Y+urv/5kpYTn +G3kOhWHL9cRbfVang6PQU71S7CmzfhkhYzpUvx1ZISfAQue5bjwO3E2HO6PF +3VPYQnoiOY4udLi1g+H6A/ukZ1yU4V46cDhNtPAIslBcjbPGXw86XA1ZIhSx +/UjOi5f96aDs71vjiG34yp94EUmH9/x258uwey6qC6tdoMNCFU3XRYiF7iLR +oImLdChWcDrhg33y21xLxSU6OKWPtwRiG9i1JJpk08Es1U/6CHYGR8CsYx4d +BG1CRnKxt0bc+BRXTofeDzqGw9iKiqc3WNylQ6UQK2wSe+5VxCXue3SQ/CGb +PYtduBY5ZlTTgeGdUcMlzEK/+/ufFTXQ4ctG4dWq2DUOCqVv2ujwdOzhdW/s +tGUu3qxXdKBVhDwmsP1LJ/3cGXTI2R7HCMEW52lQGO2gQ1/r9QeHsUMb3c4v +faCDmwx3TRa2mtblWNoYHZqfM3xfYi/3HO363zgd7uV9JtuxO1Po+pUTdCD7 +Nnl2YScOGU2aTtMhJYMSG8Duzeny3vGdDq/urCicx87kl7A5wknCqdC+2DUi +LPRott8zhpuEB85i32nYX/vLosJ5SdhXrOuuhW1eY33DX5CElREmI0bY475x +P+0lSJga9KO2YYs72EjaSJHgduxHvSP2po2SmkiahOGowxG7sC+IlrsaypHg +F2aS48kebxioUlAhQWspdzAUmywpb5NWI0Ek4MjPA+z5Fw4PrFAnQSBzM8dB +9v1IKVEeTRJKCmNfJrDHpWyDpvVJUGkqdUjDbvgjlTRuQILk4Xu1Gdhj/xv8 +d9CIhML5a0KZ2GbPjjR3m5CgMbn6QA72aOhdpcdAwqOvj/8pxhZzizeusyTh +83Dv5E1sU6ttDlXWJNQYfDp3GztDbvhwyTYSzjTFXbyL/ZCn8kK+PQmix+Vm +72GPzMTfuuJAgu/Fq+bV2Cat0u/POZMg99j8fB22f9Xw1KldJPQHeWfXY5+7 +Xsl1Yg8JZqe8zzRiD0fZ6ce6kcDt8lPrKbaoj4ztAQ8SKm/m9D5j59mNeAd7 +kRBcuTKmiX39mqNpPr4kSFmVEi/YfYTsC938SVh14mljKztvXqZ+F0GC92DN +r5fsvKGRDgeShGObT2v8x85j3BvfGoT7xpuav2L3qzv6G4JJWJHYZvaanV9o +v3JTKAkj2sZqDHb+OVlt43ASQsOS5tkejhvdoneAhEidW1Xt2CJElZtmFAmL +buV732Bv3JEYoRZDguVAxle2/c22pyrGktBe5eTXgZ2uvipXNo6EHS1TLWzX +io9VSxwhoUGElOzEHvpZ9Uo4gQTb5Md2bIt8TRziTSRhj+psMNsb3m3/8TeJ +hMxx7li2/w8Ek9XM "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "PlotRange" -> {{0, 180}, {0.9376867477005346, + 1.0656284913988299`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9376867477005367}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1561,131 +6264,132 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.9376867477005346, + 1.0656284913988299`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.9376867477005367}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{115.12306105754324`, - 253.30690491292427`}, {-15.402138689748767`, 5.769736310251233}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX +1:eJwV1Hk8Fd0fB3D7TpYQIsuVkOWxFJLzzZIIaSF7lrlD1ixJEZVoIZU80YJs +JZFEhFYkT11RlBLZ5YfGvbJE2+/cP+Y1r/frnPnM58yZGRX/iF10Lg4Ojm/4 +YJ8j3+hq1HW+sXBLDSo6xUkhC6rY2N+6HBk2t1axPZi/IYtm/QidTBzsY9uZ +aOcTMXyBztY+oJ3GropLaua1ZiCZoK1n2D7TuupZUtlbNJiRKXQGu74zMu+X +wXt0Xv1qKduTva8SDjd+RNrq3gFnseXH1DwXrPrQQspnszTs7TMJptGMAXTe +QlovHfvJr0nhuLIhVGQtBOewPxyXja8NH0Hn0hvCMrApPuvJOYMx5Cy49uF5 +bL70A+6Gi+OIv8JhzUVsJYnctsjGCUQL0i3KxHZSWLhJWU2jh0OqnJexyRuq +MjoCFLKPN/6cjZ2kviMlhDGD+oe53l3B/ijb/U9MGQsttbRL52ETHsH7L6XP +ok/ir/1vYDOvcxTcD/+OsttPMAqxBVR1xFkG84jSVVm4hZ1FNNuKSy+gVdf4 +a8uwlW+5J+ktLiBv/tLMCmyT9alUWOMP1OInU1iNHbRhgDFp9QvN0kvknmPP +xR3kEVr7G9Wquj1twT7WKGyuKfAHOTQ3H2/DzgGTO4GMv6hf8IVXJ7tfSZt1 +VBknOAwHhwxhl7VeGjyuwAUiywMLY+y+X30SLqZzwduzIvmT2Ala89X3wrlh +wi7NZo7dt1JFbcaAF777yU0JcFGot3P6yZ8iXkgIsfYSw1aerfMQk+aDcCP1 +SSnsciOnTJ1FPrCU4Pdag91Sf4QztFEA/vLY5GzEnm/uGpiwEoE6h/CoMGxJ +BxHx+CcikJg5v/0gtn63NYiaioLJgLHtUezg0Qc3/tEVg9jZgcJz2Ae4GPqb +RcThsvcbqhJ7TPUuK2VBAq5XVH1cxp4jXwl2GEpCbsG/7TzcFOK6M66yKlIS +NPZrj4phKxuu2VU2JQm04OBYNWwPqwv33wxKQc81DT0n7I6AqGjZ19LACqSx +bmN/uZWR5isgA79WjXHUYk9PlRXdtpGBp3VOBk3YQjEjXZueycCwnfxyL7b1 +yT1Gvg9koVzvuKIYD4UaijfMl+bLgcm3n/ePYBePLceaxSjC+shGqTBeCm1z +OfUlukIRYM7FMgF7ukVqa8W4IghuNc5IwzYqXi+t7K4EMiVPj5Zht/j7VPNa +rIFWE2bj/7BnZwYPTSQrwz+VajVhfBSSCrOuqXZUBasOXJyfQuPFQkHOwaoQ +HB5L5GE/7OtU+JaqCpdGI/dWYXs5eCevfaYKtRzTWT3Yxdqxu64YqEHb3vdh +6vg7MJq8xUyUpcGobePlVuw9gcI69kPqQNFTnygJUQjFuhjs/a0OsSulXxph +a6XkbyTk1kLqocwpe2yOIkPLxJ1roe2qy+lD2BVfPPfef74WNnQOi7/D5nMt +Py5fqAG/+8A7XRj3s3b8MOmvCR4Nwn3SohQq2p39eTFRE+S1zvjqYWf4Dw3y +XNOEfK73HHbYxLGDU0pdmiCb1ZWVgC3xKJdjt5UWPD3mKDSGHWxIaTWqacPv +N2ZajWIUUlA9n5Q2uh7Mr1LGCeIUenR2TnOJSwdof4xKr2F7fXfvJlV0wLab +f1Mjdl4LTdPSRwf8Tjo0LWOrBja8+9GjAzXO6nvjJfB6y8fUyde6ICtUlnNC +kkKKCkqksrs+DI7ujri9kkLrS2JEfiIDSP3uIOAmRyF/Inlex8kAnOveTyVg +56hlfvH1MoD05D1TBdjchZX3WuMMQLhWx2Iauzdvck9mlQF8eapseEIe/09z +fHM11QyBVzHbrVoB72+ag64bnxE0vpxJ0VKiUEEUzfkBwxh0tQ7xh6pRqDMW +bTxZYgpO4U2D2/QppOLz3sk7dDPs/i9j+wcLCtH/1t5VPAxgezm0V8aJQrJT +D/ll/S1BaonmGuRLoRhD875MLWsYt+3KVo7G/b/9apOatAFZ6rIsKxXvp2U0 +f36HLZBEtAZ3Hn5/5oKfl2fZgdsvx52zNRT6sWVVe0vSdvAI8lhn2UGhfg5u +1pCfI/hVtrMOTVIofHXEheNqO2DXUk7Bb54ZdHd/27N/U5whPWPF7gnVGXTk +u9yi9v6dUCC0NaYTzaB5+62uL/ftAvlbBZ9kfWeQqefFLWM7d8OELqlVcGwG +vZPLDW4x3AO5PZ538vNnkPzN5Eel61xAoWhQnPF8Bj0c1HJwEnWFVp4mW8Xh +GaTUzQyM/eYKjRqqy/ycTGT478XyosG9kBpvX3tAkolyeb7rZja7QQY9ZblK +lYlqt+j1ptS7g4rxvAwyYqKcjWclfpV5APPdOg0XGybq+FySapjuCZ+f7Z+X +cGGiB47XaQeOeYGVtERbD52JWGG7OcIJb7CItrXTOMhE81s1gygrH6hv1st/ +kcxEpd8+/YjesA+mlyt711xiIreCkgBvEV+wSOhT/XqDiarvb9/HfcoXpk98 +adGuZCJThXdLZ5Z84VSVB4vRyERqg4G9b/f7gRdRSzv8kolGhUN2XB/xgxjt +KHHbLibqzHAKsHXxh4PvXLdE9DNRVly+8MFOfzhaVSEe9ZWJHj35uxRgFwBC +p0bpG5hMtMILThk2BEDxdIYSuchEyitfdqx+FAAyHqvXJGPrMxxX8T0JgHXT +8yI3sHeZe97++DwAGB0n7n3Czlod+/rofwFgpFMv4/CDieT776xo+xgAk1H2 +3jpLTETzkc3xWgyAt54Tz4aW8Xp8qdIUIwKuu4y6SvxhoptXmNFOGwhwejG6 +rIG9smvWQtaEgLQnYhkW2JTNYnfpJgL+/u45HoJdrM3BybAk4Ei7SH4Lttii +hLvkTgIEmaF3o//i53HOWDA/jAAVr7qVLzhYaOfLjd2BEQS0nj909RP2Ew6z +fP1IApo8NFdQ2FeiLYybYgiIl/R8IcPJQk7utn5j8QRw9LQRgdj1NPd67bME +ROX4hvNysVBGY8L+hzcJkM3bV2DEzUJhBtmmcaUEJPsMlWzFdrhdJWhSRoCr +5psrbthC2eO36yoIGIGRHQnYKVHOk7U1BAREds81YSdo0kIeNBFwpSdP2ZGH +hYKzX4fe/0IA7/fYhT28LGQnNm4eNUiAAKt+jMBel8IhajBMwIWkzS0x2ONR +xhVVYwSYunDuyML2c8r/dm+agEov92vvsN14o8MrlwmQmTYTc+BjIdto+QPl +MnTw/nh6jwE/CzXlp9pnrqKDP9clly3Y5oxZWpw8HXb6Nlg6Y+urv/5kpYTn +G3kOhWHL9cRbfVang6PQU71S7CmzfhkhYzpUvx1ZISfAQue5bjwO3E2HO6PF +3VPYQnoiOY4udLi1g+H6A/ukZ1yU4V46cDhNtPAIslBcjbPGXw86XA1ZIhSx +/UjOi5f96aDs71vjiG34yp94EUmH9/x258uwey6qC6tdoMNCFU3XRYiF7iLR +oImLdChWcDrhg33y21xLxSU6OKWPtwRiG9i1JJpk08Es1U/6CHYGR8CsYx4d +BG1CRnKxt0bc+BRXTofeDzqGw9iKiqc3WNylQ6UQK2wSe+5VxCXue3SQ/CGb +PYtduBY5ZlTTgeGdUcMlzEK/+/ufFTXQ4ctG4dWq2DUOCqVv2ujwdOzhdW/s +tGUu3qxXdKBVhDwmsP1LJ/3cGXTI2R7HCMEW52lQGO2gQ1/r9QeHsUMb3c4v +faCDmwx3TRa2mtblWNoYHZqfM3xfYi/3HO363zgd7uV9JtuxO1Po+pUTdCD7 +Nnl2YScOGU2aTtMhJYMSG8Duzeny3vGdDq/urCicx87kl7A5wknCqdC+2DUi +LPRott8zhpuEB85i32nYX/vLosJ5SdhXrOuuhW1eY33DX5CElREmI0bY475x +P+0lSJga9KO2YYs72EjaSJHgduxHvSP2po2SmkiahOGowxG7sC+IlrsaypHg +F2aS48kebxioUlAhQWspdzAUmywpb5NWI0Ek4MjPA+z5Fw4PrFAnQSBzM8dB +9v1IKVEeTRJKCmNfJrDHpWyDpvVJUGkqdUjDbvgjlTRuQILk4Xu1Gdhj/xv8 +d9CIhML5a0KZ2GbPjjR3m5CgMbn6QA72aOhdpcdAwqOvj/8pxhZzizeusyTh +83Dv5E1sU6ttDlXWJNQYfDp3GztDbvhwyTYSzjTFXbyL/ZCn8kK+PQmix+Vm +72GPzMTfuuJAgu/Fq+bV2Cat0u/POZMg99j8fB22f9Xw1KldJPQHeWfXY5+7 +Xsl1Yg8JZqe8zzRiD0fZ6ce6kcDt8lPrKbaoj4ztAQ8SKm/m9D5j59mNeAd7 +kRBcuTKmiX39mqNpPr4kSFmVEi/YfYTsC938SVh14mljKztvXqZ+F0GC92DN +r5fsvKGRDgeShGObT2v8x85j3BvfGoT7xpuav2L3qzv6G4JJWJHYZvaanV9o +v3JTKAkj2sZqDHb+OVlt43ASQsOS5tkejhvdoneAhEidW1Xt2CJElZtmFAmL +buV732Bv3JEYoRZDguVAxle2/c22pyrGktBe5eTXgZ2uvipXNo6EHS1TLWzX +io9VSxwhoUGElOzEHvpZ9Uo4gQTb5Md2bIt8TRziTSRhj+psMNsb3m3/8TeJ +hMxx7li2/w8Ek9XM "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.9376867477005346, 1.0656284913988299`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.9376867477005367}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1695,7 +6399,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.7504249066936067}, + AxesOrigin->{0, 0.9376867477005367}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1723,7 +6428,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9376867477005346, 1.0656284913988299`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1731,9 +6437,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913440619685707`*^9}, - CellLabel-> - "Out[417]=",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] + CellChangeTimes->{3.9913440619685707`*^9, 3.9939175741886473`*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"41487def-de69-4149-891a-a70fc16b360c"] }, Open ]], Cell[CellGroupData[{ @@ -1796,340 +6501,157 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ -e1a61565f71e"], + CellChangeTimes->{3.9918501659425144`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 418, - 441, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913440621885586`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.856039527146448`*^-270\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 97, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.99391757434796*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +In[95]:=",ExpressionUUID->"36c0cb67-5c58-4ca1-9a37-18236945aaa3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 418, 442, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913440621975574`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.0441033050814418`*^-282\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 98, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.99391757435783*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +In[95]:=",ExpressionUUID->"ab78bbdf-e8f0-4056-b81a-6a261a4f703d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 418, 443, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991344062205559*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.5900604239014973`*^-295\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, + 99, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.993917574367618*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +In[95]:=",ExpressionUUID->"951a6074-ecec-4169-b888-5127033af8b7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134406221356*^9}, +during this calculation.\"", 2, 95, 100, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.9939175743745604`*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +In[95]:=",ExpressionUUID->"3eda865d-0ef2-46f8-99c8-4f178f401bdb"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0Vd8XAHBRQqlQpgzv3feQKUMi8eydQkgSShnSN9IgKtIkU4mSEvqK +EknKEJfK2CAKyZAp09fcIEX0TFH5nd8fd931WXete8/Z++x9zmX+473dnZeH +h+cvuf5/n+x++5odkWo00sRX4B0FRs13JE9vaAuB+bO5AOMygCvq/5FsiwYT +S9f1f7hq4Lcto5WvLQWSMzZKNnINQWREIvpXax7UtRQKxnK3QM+zrd7jrWXw +ODB+adNPJzBlD3WNtTZCxYLA8aEfnvCrVe/GaGs/qPbXGDh+9IfyjQ9SG1K4 +8NXf1n7mUyTI9BR9/kftD7gnibwTnb4Byz33ZCzcyIdjR54WGNy4DdFapiVb +7QXwz9tMl0U5d6H9pmbp2DJhDL2ZKPE9ORUiUgPreaVEUC7Csinp8gOQiB24 +FJMohtdUhj+dEc+AMDtzo8bJFfj8gK4GpZwF0k/qpHnniaOOHOeVr1YWZIvZ +TWktEsc9WQ8uvdLPgg+NLvR1eXH0FqkvMrfIAraNL2WzWRyLTD76Lz+cBWVW +Sfzv48WRvy20NDozC/6YTtTVGkrgB/FqPbVVj8BH/+6etyGSqDs3pZy+NBss +kpeMW16RxC1+ZfeWiGcDtdA/vO6GJOb18A95yWTD++YduU0PJfHuQ58OeeVs +WH10MV93nSR+f3YINxpnw2DaybSf0lLoP7W88ZpPNjgt3zq88rEUuqp+GuA0 +ZsOasyXBd55JYQjNa/G7NRuE+leJMyukkFaV9nnalQ1FOXyg2C6F3mYHhSW/ +ZoO4ZVGU5pwUNkfqO9+ZI98PZuuYWErjz7DxjTmqObDpx8wZrwFpvP3hwpa+ +wBw4vTlW5dV3adzmx9brvpAD2XfVO8QmpfHLA78VHy7lgKSdq36RwEpcMyP3 +KD8mB74XvpniW70SbWqNNhs8yIGYkCjf+FMrMUBPQHN7bQ70r1D0ei0sg4M/ +/a52CtEg4f1SVkJCBodnI0wFhWnYUuVQe5Ahg8kNh07rLKUh/0yE2tI1Mqji +W299XoyGyz2jQ7scZHAuzPEVrwwN2uklHj9SZHAg8n11uBoNwYY2e6XXyeIC +IeU1eZY0bHa581PPWBaPcbYMFljRsCTo23n7LbLoWjE/o9iahtvloWlRrrL4 +pXHWtsCWhkKL4m/8l2SxYfiWWaQjDaMOLD9uuyxuazbpyjxEg8uJics1Z+Ww +aDev59OLNCjEGcsMhcrhdE0HyzmcJvO/9mhhlBxOLJQcnXeZhjO/ld8bp8qh +hBC3wjiShhvnXVYU1cjhj7ZCv7sxNNRcr0y6LyuPPHkpCk1JNKzPjn8S8FIe +T9alsoXyadjUWvdnpEoeoxqt5owKaNjKM99sT6M8mrUVOhwrpGHfdq92+CSP +Cy2Zl+qKaTA9ywwMWsBAkUafr4de0nBUfvLeBlUGyrW856pW0TDxOKrqlwYD +19yv7F/3loxvs+pwrg4DZW9N2m+spiH0mKsuZcTARfze1dtqaEgor67itWGg +ZqbApNV7Gl57JA2X+zGwpa8os6GVBvPf+qL+ZxnIDiwTKmijoS6qWVcniIFH +YMl4fDsN7UWCQamXGHiva4GHQycNI4t8RUNvM1Bo8ZP2gm4aJOnNeqZlDGxz ++WA17xMNiZsGHP9WMDDxwkDwS2Kq/VxQ/jsG7gysNz37mQZ13sdvFVsYeAX/ +Xvj2hQZjO1mnhYPkeepwd/YQDZ7TY0FVwkw0uXzd89UPEs9j+8U/izLx+Jha +oPsoDQJDHZl8kky8Vyf6gn+Mhvud5R+MKCZ6xMqW408aul/cUHuqy8SMdxMz +0eM0ZOkJlTUaMPGJYVoQY4LEiw7YOYpMDP/HRy+TWDzFI0TVkokLMjrWF07S +YB2q33Z3DxNNbU0y6Gka5P4+OvLSjYl94UbVSr/I+vCj+LoOMrGq1I5xmzj8 +wKLVkr5MPNvhfsx/hoZSy67zV8OZGH+eWbTyNw1XX9tIZUUy0eb+/Nv+xE6c +iuy30Uz8aqpd3EH8a3VO+/xEJnbME8m8+ofUg2iwxtlcJkbkBRxr+UsDT8TE +65v5TNS2td3AmCP54Tu0O7+EieugxuYA8eGJ7aFjb8h8m930RonXe1VKL33H +RCOZAWFNnlwQ+GJAq71n4s2hMqUjxKlt7E6PDiaufX54VQ/xcZv4o6E9TNR7 +cXPZ8nm5gNXC/Pc+MvG20Q8jU+IlG0NulX5lYt5n6skJ4q6SSc3uESZaCgwe +TSHO0jlcMctlouMd7oka4jOPehylfpF8bZkt5xKLJ1VdtOOj0KyyjbOeNxc+ +SnBkjgtQqEzJHt5FnBeVm3tNmEInev3HE8RBgopmj0QpzN41lH6N2Dok4b9q +CQpfZ356lkYsN7vk+KAMhantn2VLiL/7nF/IT1G4peRhbQ1x8fep2ywlClfV +fq7pJA5399TeoEZhuoazzCDxju7eShctCsvTqp6NEbN32jv761IYFP85e5r4 +Z/3bn/EGxCInuL+JSzcbhRcgcbF2xF/iq6/yZFtMKBzp6/b7Q+y0XunxTwsK +Xfz0C34Rqzy+tXnZNgqVFvJZcYl/qS7rVrensKn897oh4slE6eA1uymMuj1V +2E08vlSBrb+HQjU3i/T3xGPBGpVGbhReTXkkVEo8wtU/tOkghY+Pd3RlEX9z +3yRs4UWhZchlVhzxYOtW2tqHQiORU/8FEH8y32Vrf4pCGHMWdCPuL9k3ufsc +he6hUxmmxD3qXvGuIRTmveIpUyT+L+mU4f4wCjNVdK3nE7eLnO85fIXCj812 +tj0kfx/OR4Ycu05hhJt0fQFx00Scwsl/KRQSNimPJH7vkVLlf4vEJypGcy9x +tWXBkvD7FIpOx5/mIa58/io3MoPCTYqNO2rIenutUWMXk0PyWbaavkH8Qqwv +4U4RhVKDjh0M4pLQb5zUFxQGyOdm9ZP1XDg10ZteTuERps7fu8R5nUJKT2sp +7O1sZEoR51itqC5uJPmPPznxntRL1kv5I6WtFGqqOFleJE67p/P4XR+FV/J/ +B30l9ZVw2AX6Jyhc3uiqHE3qL67rQP+XGQovvHrD1iWOtfYJHZ4j+VJ5+LB1 +ltTvmvB304Is1F+3xEqMOGQ2d+dSORY+aY+XO0LqP/DIs5nlLBZuu8z0/UP6 +hX9PRaL0KhYaFYY6RBD7lXcOKGizMK5cpiFpitRrxIKjhqYsFLHVvvn//nPg +z1IxY0sWPpc0O7uKeL+3dL7ZNhaafijgppD+5Wqr8Xv7bhae8Zh8EMWlwW7l +rvCDXiz8Es231pr0P8PMrOR//2XhVeHGW7u+09DJyEwyucXCZp+4pyXfSL/7 +N/3OeBILYxu7SlcSFwSn3d6ezkLuATq75SvpNw7JN5c8Y+FikZYZTdKPlRfE +Rl3sY2FTS8BYaB8NVWeir639zEIX9QG/yl4yvtGoqx+HWDii9Huanzi1M/KK +8TgLX71kTwaS/YCRFxb+l5+NbyasB3eR/UJ8z9kgPzU2CvGutMpupuFp8+lA +BS02JrV3cuubyHwsTgU0r2WjbnV7yo9GGqLXnvDXBja2qZ6RUW6gQXix96kR +GzZ+etgRfaGWhvlF/xzdf5KNVwrCtLrf0DAmauG6o4yNycvDjjGf0tDmSb0/ +VMlGFZHpE8OPST+umIHAGjbuL1lhWpBHQ9SZTPmHH9h4+Kix1SaaBs3+xT2/ +hsj7Dn4S3ZRJg1duvXOimAIOPEhx6EymYcja3vGjmwLa+Xyr9ibngcZ09XfT +BxVwuWiW1hQ5LxTz8RsIeytg2FH5C/5hNFwqyJfWPa2AmjZrR4Mu0LBKXrIj +LFIBG5fWzzsWQIPHSIeDar4CpnkYj40co+HjFdcdxxcqYvShyE0Hd5LvD6lR +mosVsT2v5EatPQ1TZr+Gh5cpYqyolI6mHQ1CfNGhB6UVkWHY4Di6jYz/dPkT +V3VFlLuz3dvJgoZz7opi1rbEl4QPfDQk8Tf6Xq+apIiL4mSfFjHIfv/jpPkn +XSX83SJYZ1+ZAzJachcFDJXQrbay/ndZDowcf12mukEJDXieOSS/yIHYyWWG +xy2VMIXfXbDraQ50/0lfPbdHCe9FJSiop+bA8cX/iUldUsLo8lPmKkE5kKCM +3Vs6lfCF/zOLh2vJeXKfgM+TwFWoFG6krROXTf4vJHjDypQRzima7IRHIFqr +eJX+oYItm4yDu7syQSY8Z5uurhr2e3kamW/MgJuq+svEPNTR7OLO9sTch1At +vWEt9/pqFF1QZK0s+wDWy5RFaXzQQDnDzXtX7b0PS/hSfPeGaOKP3LKLSeX3 +QC5Y3nCXohbemRHYyieUAoIKTvnbK7VwSv5FspRbMqzmSOWcdNbG0phe1X0N +iXC8W7TcgmcNxn2N+NL7MgF+cK/Ym99cg8JRewKOCt0EM42KBHN1Hdy7I793 +XcQNeME1mJ2q08HQ673vvBbEgJeadkeD+1q8LpzuM689Cjgjbs27BHUxwCWu +tsk1EkzYklbCKbpYwX3T0J5/CVYFXT5VpqeH4+p7o1gnLoKKu/5LhQ49nFyv +rWFgfh7cXxy48OTYOnSfiRz5cj8IXiY3u42t0McHazuKaUN/GH84N6VRoI8m +c58vHxo4CfsUMgUTrNaj7ymtjtodvjCmEqObN7oei+cmJBP+HoXC1Nm+iXAD +DOYOLngQ7wm7N7HQQM4QW03qXl0RPAArj4QVrS41RLG/8hVidftghZBnrtVO +DpYHPhLP9XGF1I3nzozu4mBwTda1IXdX0D53dWOMEwfjBGpEVzu4wtZRuqVt +LwfXPPkq32ToChc/TPza58nBxyqxubH8rjCdEmh8JphD9jsX7T69PdBhENOU +lsnBa8ejDSpuOcOBE6m3zbM5+DzeecP9EGeYzH7q/p3moCUn6Nu/B51BlGqb +0srnYGbvyFyunjNYCsjKPC/l4P4jDqNvmp3gWXOaW1MLB5cL1Os4ijqBxZJC +db82DiYyWWZ7ZhyhzeztpGQnB0fSbLac6HeE8eJv4S69HOwd9eNrzXME9bua +j74OcXBzvjvX284RnnVs8LsyzEHlvrFDvBxHsFhuCxqjHBweMghIU3CE/WEn +GnwnONi2o24La2o3jJdeTJCY5uBe/gs/Z3t2Q8hM3L7iGQ5aaTYKfK7aDct0 +0tWc/3DQyXPmQl/ubrhzpHhibo6Dzo+NnUYSdsP/ANP+Xn0= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2143,299 +6665,113 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== +1:eJwV13k0Vd8XAHBRQqlQpgzv3feQKUMi8eydQkgSShnSN9IgKtIkU4mSEvqK +EknKEJfK2CAKyZAp09fcIEX0TFH5nd8fd931WXete8/Z++x9zmX+473dnZeH +h+cvuf5/n+x++5odkWo00sRX4B0FRs13JE9vaAuB+bO5AOMygCvq/5FsiwYT +S9f1f7hq4Lcto5WvLQWSMzZKNnINQWREIvpXax7UtRQKxnK3QM+zrd7jrWXw +ODB+adNPJzBlD3WNtTZCxYLA8aEfnvCrVe/GaGs/qPbXGDh+9IfyjQ9SG1K4 +8NXf1n7mUyTI9BR9/kftD7gnibwTnb4Byz33ZCzcyIdjR54WGNy4DdFapiVb +7QXwz9tMl0U5d6H9pmbp2DJhDL2ZKPE9ORUiUgPreaVEUC7Csinp8gOQiB24 +FJMohtdUhj+dEc+AMDtzo8bJFfj8gK4GpZwF0k/qpHnniaOOHOeVr1YWZIvZ +TWktEsc9WQ8uvdLPgg+NLvR1eXH0FqkvMrfIAraNL2WzWRyLTD76Lz+cBWVW +Sfzv48WRvy20NDozC/6YTtTVGkrgB/FqPbVVj8BH/+6etyGSqDs3pZy+NBss +kpeMW16RxC1+ZfeWiGcDtdA/vO6GJOb18A95yWTD++YduU0PJfHuQ58OeeVs +WH10MV93nSR+f3YINxpnw2DaybSf0lLoP7W88ZpPNjgt3zq88rEUuqp+GuA0 +ZsOasyXBd55JYQjNa/G7NRuE+leJMyukkFaV9nnalQ1FOXyg2C6F3mYHhSW/ +ZoO4ZVGU5pwUNkfqO9+ZI98PZuuYWErjz7DxjTmqObDpx8wZrwFpvP3hwpa+ +wBw4vTlW5dV3adzmx9brvpAD2XfVO8QmpfHLA78VHy7lgKSdq36RwEpcMyP3 +KD8mB74XvpniW70SbWqNNhs8yIGYkCjf+FMrMUBPQHN7bQ70r1D0ei0sg4M/ +/a52CtEg4f1SVkJCBodnI0wFhWnYUuVQe5Ahg8kNh07rLKUh/0yE2tI1Mqji +W299XoyGyz2jQ7scZHAuzPEVrwwN2uklHj9SZHAg8n11uBoNwYY2e6XXyeIC +IeU1eZY0bHa581PPWBaPcbYMFljRsCTo23n7LbLoWjE/o9iahtvloWlRrrL4 +pXHWtsCWhkKL4m/8l2SxYfiWWaQjDaMOLD9uuyxuazbpyjxEg8uJics1Z+Ww +aDev59OLNCjEGcsMhcrhdE0HyzmcJvO/9mhhlBxOLJQcnXeZhjO/ld8bp8qh +hBC3wjiShhvnXVYU1cjhj7ZCv7sxNNRcr0y6LyuPPHkpCk1JNKzPjn8S8FIe +T9alsoXyadjUWvdnpEoeoxqt5owKaNjKM99sT6M8mrUVOhwrpGHfdq92+CSP +Cy2Zl+qKaTA9ywwMWsBAkUafr4de0nBUfvLeBlUGyrW856pW0TDxOKrqlwYD +19yv7F/3loxvs+pwrg4DZW9N2m+spiH0mKsuZcTARfze1dtqaEgor67itWGg +ZqbApNV7Gl57JA2X+zGwpa8os6GVBvPf+qL+ZxnIDiwTKmijoS6qWVcniIFH +YMl4fDsN7UWCQamXGHiva4GHQycNI4t8RUNvM1Bo8ZP2gm4aJOnNeqZlDGxz ++WA17xMNiZsGHP9WMDDxwkDwS2Kq/VxQ/jsG7gysNz37mQZ13sdvFVsYeAX/ +Xvj2hQZjO1mnhYPkeepwd/YQDZ7TY0FVwkw0uXzd89UPEs9j+8U/izLx+Jha +oPsoDQJDHZl8kky8Vyf6gn+Mhvud5R+MKCZ6xMqW408aul/cUHuqy8SMdxMz +0eM0ZOkJlTUaMPGJYVoQY4LEiw7YOYpMDP/HRy+TWDzFI0TVkokLMjrWF07S +YB2q33Z3DxNNbU0y6Gka5P4+OvLSjYl94UbVSr/I+vCj+LoOMrGq1I5xmzj8 +wKLVkr5MPNvhfsx/hoZSy67zV8OZGH+eWbTyNw1XX9tIZUUy0eb+/Nv+xE6c +iuy30Uz8aqpd3EH8a3VO+/xEJnbME8m8+ofUg2iwxtlcJkbkBRxr+UsDT8TE +65v5TNS2td3AmCP54Tu0O7+EieugxuYA8eGJ7aFjb8h8m930RonXe1VKL33H +RCOZAWFNnlwQ+GJAq71n4s2hMqUjxKlt7E6PDiaufX54VQ/xcZv4o6E9TNR7 +cXPZ8nm5gNXC/Pc+MvG20Q8jU+IlG0NulX5lYt5n6skJ4q6SSc3uESZaCgwe +TSHO0jlcMctlouMd7oka4jOPehylfpF8bZkt5xKLJ1VdtOOj0KyyjbOeNxc+ +SnBkjgtQqEzJHt5FnBeVm3tNmEInev3HE8RBgopmj0QpzN41lH6N2Dok4b9q +CQpfZ356lkYsN7vk+KAMhantn2VLiL/7nF/IT1G4peRhbQ1x8fep2ywlClfV +fq7pJA5399TeoEZhuoazzCDxju7eShctCsvTqp6NEbN32jv761IYFP85e5r4 +Z/3bn/EGxCInuL+JSzcbhRcgcbF2xF/iq6/yZFtMKBzp6/b7Q+y0XunxTwsK +Xfz0C34Rqzy+tXnZNgqVFvJZcYl/qS7rVrensKn897oh4slE6eA1uymMuj1V +2E08vlSBrb+HQjU3i/T3xGPBGpVGbhReTXkkVEo8wtU/tOkghY+Pd3RlEX9z +3yRs4UWhZchlVhzxYOtW2tqHQiORU/8FEH8y32Vrf4pCGHMWdCPuL9k3ufsc +he6hUxmmxD3qXvGuIRTmveIpUyT+L+mU4f4wCjNVdK3nE7eLnO85fIXCj812 +tj0kfx/OR4Ycu05hhJt0fQFx00Scwsl/KRQSNimPJH7vkVLlf4vEJypGcy9x +tWXBkvD7FIpOx5/mIa58/io3MoPCTYqNO2rIenutUWMXk0PyWbaavkH8Qqwv +4U4RhVKDjh0M4pLQb5zUFxQGyOdm9ZP1XDg10ZteTuERps7fu8R5nUJKT2sp +7O1sZEoR51itqC5uJPmPPznxntRL1kv5I6WtFGqqOFleJE67p/P4XR+FV/J/ +B30l9ZVw2AX6Jyhc3uiqHE3qL67rQP+XGQovvHrD1iWOtfYJHZ4j+VJ5+LB1 +ltTvmvB304Is1F+3xEqMOGQ2d+dSORY+aY+XO0LqP/DIs5nlLBZuu8z0/UP6 +hX9PRaL0KhYaFYY6RBD7lXcOKGizMK5cpiFpitRrxIKjhqYsFLHVvvn//nPg +z1IxY0sWPpc0O7uKeL+3dL7ZNhaafijgppD+5Wqr8Xv7bhae8Zh8EMWlwW7l +rvCDXiz8Es231pr0P8PMrOR//2XhVeHGW7u+09DJyEwyucXCZp+4pyXfSL/7 +N/3OeBILYxu7SlcSFwSn3d6ezkLuATq75SvpNw7JN5c8Y+FikZYZTdKPlRfE +Rl3sY2FTS8BYaB8NVWeir639zEIX9QG/yl4yvtGoqx+HWDii9Huanzi1M/KK +8TgLX71kTwaS/YCRFxb+l5+NbyasB3eR/UJ8z9kgPzU2CvGutMpupuFp8+lA +BS02JrV3cuubyHwsTgU0r2WjbnV7yo9GGqLXnvDXBja2qZ6RUW6gQXix96kR +GzZ+etgRfaGWhvlF/xzdf5KNVwrCtLrf0DAmauG6o4yNycvDjjGf0tDmSb0/ +VMlGFZHpE8OPST+umIHAGjbuL1lhWpBHQ9SZTPmHH9h4+Kix1SaaBs3+xT2/ +hsj7Dn4S3ZRJg1duvXOimAIOPEhx6EymYcja3vGjmwLa+Xyr9ibngcZ09XfT +BxVwuWiW1hQ5LxTz8RsIeytg2FH5C/5hNFwqyJfWPa2AmjZrR4Mu0LBKXrIj +LFIBG5fWzzsWQIPHSIeDar4CpnkYj40co+HjFdcdxxcqYvShyE0Hd5LvD6lR +mosVsT2v5EatPQ1TZr+Gh5cpYqyolI6mHQ1CfNGhB6UVkWHY4Di6jYz/dPkT +V3VFlLuz3dvJgoZz7opi1rbEl4QPfDQk8Tf6Xq+apIiL4mSfFjHIfv/jpPkn +XSX83SJYZ1+ZAzJachcFDJXQrbay/ndZDowcf12mukEJDXieOSS/yIHYyWWG +xy2VMIXfXbDraQ50/0lfPbdHCe9FJSiop+bA8cX/iUldUsLo8lPmKkE5kKCM +3Vs6lfCF/zOLh2vJeXKfgM+TwFWoFG6krROXTf4vJHjDypQRzima7IRHIFqr +eJX+oYItm4yDu7syQSY8Z5uurhr2e3kamW/MgJuq+svEPNTR7OLO9sTch1At +vWEt9/pqFF1QZK0s+wDWy5RFaXzQQDnDzXtX7b0PS/hSfPeGaOKP3LKLSeX3 +QC5Y3nCXohbemRHYyieUAoIKTvnbK7VwSv5FspRbMqzmSOWcdNbG0phe1X0N +iXC8W7TcgmcNxn2N+NL7MgF+cK/Ym99cg8JRewKOCt0EM42KBHN1Hdy7I793 +XcQNeME1mJ2q08HQ673vvBbEgJeadkeD+1q8LpzuM689Cjgjbs27BHUxwCWu +tsk1EkzYklbCKbpYwX3T0J5/CVYFXT5VpqeH4+p7o1gnLoKKu/5LhQ49nFyv +rWFgfh7cXxy48OTYOnSfiRz5cj8IXiY3u42t0McHazuKaUN/GH84N6VRoI8m +c58vHxo4CfsUMgUTrNaj7ymtjtodvjCmEqObN7oei+cmJBP+HoXC1Nm+iXAD +DOYOLngQ7wm7N7HQQM4QW03qXl0RPAArj4QVrS41RLG/8hVidftghZBnrtVO +DpYHPhLP9XGF1I3nzozu4mBwTda1IXdX0D53dWOMEwfjBGpEVzu4wtZRuqVt +LwfXPPkq32ToChc/TPza58nBxyqxubH8rjCdEmh8JphD9jsX7T69PdBhENOU +lsnBa8ejDSpuOcOBE6m3zbM5+DzeecP9EGeYzH7q/p3moCUn6Nu/B51BlGqb +0srnYGbvyFyunjNYCsjKPC/l4P4jDqNvmp3gWXOaW1MLB5cL1Os4ijqBxZJC +db82DiYyWWZ7ZhyhzeztpGQnB0fSbLac6HeE8eJv4S69HOwd9eNrzXME9bua +j74OcXBzvjvX284RnnVs8LsyzEHlvrFDvBxHsFhuCxqjHBweMghIU3CE/WEn +GnwnONi2o24La2o3jJdeTJCY5uBe/gs/Z3t2Q8hM3L7iGQ5aaTYKfK7aDct0 +0tWc/3DQyXPmQl/ubrhzpHhibo6Dzo+NnUYSdsP/ANP+Xn0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06645193956749473}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2447,19 +6783,19 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06645193956749473}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2473,298 +6809,112 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== +1:eJwV13k0Vd8XAHBRQqlQpgzv3feQKUMi8eydQkgSShnSN9IgKtIkU4mSEvqK +EknKEJfK2CAKyZAp09fcIEX0TFH5nd8fd931WXete8/Z++x9zmX+473dnZeH +h+cvuf5/n+x++5odkWo00sRX4B0FRs13JE9vaAuB+bO5AOMygCvq/5FsiwYT +S9f1f7hq4Lcto5WvLQWSMzZKNnINQWREIvpXax7UtRQKxnK3QM+zrd7jrWXw +ODB+adNPJzBlD3WNtTZCxYLA8aEfnvCrVe/GaGs/qPbXGDh+9IfyjQ9SG1K4 +8NXf1n7mUyTI9BR9/kftD7gnibwTnb4Byz33ZCzcyIdjR54WGNy4DdFapiVb +7QXwz9tMl0U5d6H9pmbp2DJhDL2ZKPE9ORUiUgPreaVEUC7Csinp8gOQiB24 +FJMohtdUhj+dEc+AMDtzo8bJFfj8gK4GpZwF0k/qpHnniaOOHOeVr1YWZIvZ +TWktEsc9WQ8uvdLPgg+NLvR1eXH0FqkvMrfIAraNL2WzWRyLTD76Lz+cBWVW +Sfzv48WRvy20NDozC/6YTtTVGkrgB/FqPbVVj8BH/+6etyGSqDs3pZy+NBss +kpeMW16RxC1+ZfeWiGcDtdA/vO6GJOb18A95yWTD++YduU0PJfHuQ58OeeVs +WH10MV93nSR+f3YINxpnw2DaybSf0lLoP7W88ZpPNjgt3zq88rEUuqp+GuA0 +ZsOasyXBd55JYQjNa/G7NRuE+leJMyukkFaV9nnalQ1FOXyg2C6F3mYHhSW/ +ZoO4ZVGU5pwUNkfqO9+ZI98PZuuYWErjz7DxjTmqObDpx8wZrwFpvP3hwpa+ +wBw4vTlW5dV3adzmx9brvpAD2XfVO8QmpfHLA78VHy7lgKSdq36RwEpcMyP3 +KD8mB74XvpniW70SbWqNNhs8yIGYkCjf+FMrMUBPQHN7bQ70r1D0ei0sg4M/ +/a52CtEg4f1SVkJCBodnI0wFhWnYUuVQe5Ahg8kNh07rLKUh/0yE2tI1Mqji +W299XoyGyz2jQ7scZHAuzPEVrwwN2uklHj9SZHAg8n11uBoNwYY2e6XXyeIC +IeU1eZY0bHa581PPWBaPcbYMFljRsCTo23n7LbLoWjE/o9iahtvloWlRrrL4 +pXHWtsCWhkKL4m/8l2SxYfiWWaQjDaMOLD9uuyxuazbpyjxEg8uJics1Z+Ww +aDev59OLNCjEGcsMhcrhdE0HyzmcJvO/9mhhlBxOLJQcnXeZhjO/ld8bp8qh +hBC3wjiShhvnXVYU1cjhj7ZCv7sxNNRcr0y6LyuPPHkpCk1JNKzPjn8S8FIe +T9alsoXyadjUWvdnpEoeoxqt5owKaNjKM99sT6M8mrUVOhwrpGHfdq92+CSP +Cy2Zl+qKaTA9ywwMWsBAkUafr4de0nBUfvLeBlUGyrW856pW0TDxOKrqlwYD +19yv7F/3loxvs+pwrg4DZW9N2m+spiH0mKsuZcTARfze1dtqaEgor67itWGg +ZqbApNV7Gl57JA2X+zGwpa8os6GVBvPf+qL+ZxnIDiwTKmijoS6qWVcniIFH +YMl4fDsN7UWCQamXGHiva4GHQycNI4t8RUNvM1Bo8ZP2gm4aJOnNeqZlDGxz ++WA17xMNiZsGHP9WMDDxwkDwS2Kq/VxQ/jsG7gysNz37mQZ13sdvFVsYeAX/ +Xvj2hQZjO1mnhYPkeepwd/YQDZ7TY0FVwkw0uXzd89UPEs9j+8U/izLx+Jha +oPsoDQJDHZl8kky8Vyf6gn+Mhvud5R+MKCZ6xMqW408aul/cUHuqy8SMdxMz +0eM0ZOkJlTUaMPGJYVoQY4LEiw7YOYpMDP/HRy+TWDzFI0TVkokLMjrWF07S +YB2q33Z3DxNNbU0y6Gka5P4+OvLSjYl94UbVSr/I+vCj+LoOMrGq1I5xmzj8 +wKLVkr5MPNvhfsx/hoZSy67zV8OZGH+eWbTyNw1XX9tIZUUy0eb+/Nv+xE6c +iuy30Uz8aqpd3EH8a3VO+/xEJnbME8m8+ofUg2iwxtlcJkbkBRxr+UsDT8TE +65v5TNS2td3AmCP54Tu0O7+EieugxuYA8eGJ7aFjb8h8m930RonXe1VKL33H +RCOZAWFNnlwQ+GJAq71n4s2hMqUjxKlt7E6PDiaufX54VQ/xcZv4o6E9TNR7 +cXPZ8nm5gNXC/Pc+MvG20Q8jU+IlG0NulX5lYt5n6skJ4q6SSc3uESZaCgwe +TSHO0jlcMctlouMd7oka4jOPehylfpF8bZkt5xKLJ1VdtOOj0KyyjbOeNxc+ +SnBkjgtQqEzJHt5FnBeVm3tNmEInev3HE8RBgopmj0QpzN41lH6N2Dok4b9q +CQpfZ356lkYsN7vk+KAMhantn2VLiL/7nF/IT1G4peRhbQ1x8fep2ywlClfV +fq7pJA5399TeoEZhuoazzCDxju7eShctCsvTqp6NEbN32jv761IYFP85e5r4 +Z/3bn/EGxCInuL+JSzcbhRcgcbF2xF/iq6/yZFtMKBzp6/b7Q+y0XunxTwsK +Xfz0C34Rqzy+tXnZNgqVFvJZcYl/qS7rVrensKn897oh4slE6eA1uymMuj1V +2E08vlSBrb+HQjU3i/T3xGPBGpVGbhReTXkkVEo8wtU/tOkghY+Pd3RlEX9z +3yRs4UWhZchlVhzxYOtW2tqHQiORU/8FEH8y32Vrf4pCGHMWdCPuL9k3ufsc +he6hUxmmxD3qXvGuIRTmveIpUyT+L+mU4f4wCjNVdK3nE7eLnO85fIXCj812 +tj0kfx/OR4Ycu05hhJt0fQFx00Scwsl/KRQSNimPJH7vkVLlf4vEJypGcy9x +tWXBkvD7FIpOx5/mIa58/io3MoPCTYqNO2rIenutUWMXk0PyWbaavkH8Qqwv +4U4RhVKDjh0M4pLQb5zUFxQGyOdm9ZP1XDg10ZteTuERps7fu8R5nUJKT2sp +7O1sZEoR51itqC5uJPmPPznxntRL1kv5I6WtFGqqOFleJE67p/P4XR+FV/J/ +B30l9ZVw2AX6Jyhc3uiqHE3qL67rQP+XGQovvHrD1iWOtfYJHZ4j+VJ5+LB1 +ltTvmvB304Is1F+3xEqMOGQ2d+dSORY+aY+XO0LqP/DIs5nlLBZuu8z0/UP6 +hX9PRaL0KhYaFYY6RBD7lXcOKGizMK5cpiFpitRrxIKjhqYsFLHVvvn//nPg +z1IxY0sWPpc0O7uKeL+3dL7ZNhaafijgppD+5Wqr8Xv7bhae8Zh8EMWlwW7l +rvCDXiz8Es231pr0P8PMrOR//2XhVeHGW7u+09DJyEwyucXCZp+4pyXfSL/7 +N/3OeBILYxu7SlcSFwSn3d6ezkLuATq75SvpNw7JN5c8Y+FikZYZTdKPlRfE +Rl3sY2FTS8BYaB8NVWeir639zEIX9QG/yl4yvtGoqx+HWDii9Huanzi1M/KK +8TgLX71kTwaS/YCRFxb+l5+NbyasB3eR/UJ8z9kgPzU2CvGutMpupuFp8+lA +BS02JrV3cuubyHwsTgU0r2WjbnV7yo9GGqLXnvDXBja2qZ6RUW6gQXix96kR +GzZ+etgRfaGWhvlF/xzdf5KNVwrCtLrf0DAmauG6o4yNycvDjjGf0tDmSb0/ +VMlGFZHpE8OPST+umIHAGjbuL1lhWpBHQ9SZTPmHH9h4+Kix1SaaBs3+xT2/ +hsj7Dn4S3ZRJg1duvXOimAIOPEhx6EymYcja3vGjmwLa+Xyr9ibngcZ09XfT +BxVwuWiW1hQ5LxTz8RsIeytg2FH5C/5hNFwqyJfWPa2AmjZrR4Mu0LBKXrIj +LFIBG5fWzzsWQIPHSIeDar4CpnkYj40co+HjFdcdxxcqYvShyE0Hd5LvD6lR +mosVsT2v5EatPQ1TZr+Gh5cpYqyolI6mHQ1CfNGhB6UVkWHY4Di6jYz/dPkT +V3VFlLuz3dvJgoZz7opi1rbEl4QPfDQk8Tf6Xq+apIiL4mSfFjHIfv/jpPkn +XSX83SJYZ1+ZAzJachcFDJXQrbay/ndZDowcf12mukEJDXieOSS/yIHYyWWG +xy2VMIXfXbDraQ50/0lfPbdHCe9FJSiop+bA8cX/iUldUsLo8lPmKkE5kKCM +3Vs6lfCF/zOLh2vJeXKfgM+TwFWoFG6krROXTf4vJHjDypQRzima7IRHIFqr +eJX+oYItm4yDu7syQSY8Z5uurhr2e3kamW/MgJuq+svEPNTR7OLO9sTch1At +vWEt9/pqFF1QZK0s+wDWy5RFaXzQQDnDzXtX7b0PS/hSfPeGaOKP3LKLSeX3 +QC5Y3nCXohbemRHYyieUAoIKTvnbK7VwSv5FspRbMqzmSOWcdNbG0phe1X0N +iXC8W7TcgmcNxn2N+NL7MgF+cK/Ym99cg8JRewKOCt0EM42KBHN1Hdy7I793 +XcQNeME1mJ2q08HQ673vvBbEgJeadkeD+1q8LpzuM689Cjgjbs27BHUxwCWu +tsk1EkzYklbCKbpYwX3T0J5/CVYFXT5VpqeH4+p7o1gnLoKKu/5LhQ49nFyv +rWFgfh7cXxy48OTYOnSfiRz5cj8IXiY3u42t0McHazuKaUN/GH84N6VRoI8m +c58vHxo4CfsUMgUTrNaj7ymtjtodvjCmEqObN7oei+cmJBP+HoXC1Nm+iXAD +DOYOLngQ7wm7N7HQQM4QW03qXl0RPAArj4QVrS41RLG/8hVidftghZBnrtVO +DpYHPhLP9XGF1I3nzozu4mBwTda1IXdX0D53dWOMEwfjBGpEVzu4wtZRuqVt +LwfXPPkq32ToChc/TPza58nBxyqxubH8rjCdEmh8JphD9jsX7T69PdBhENOU +lsnBa8ejDSpuOcOBE6m3zbM5+DzeecP9EGeYzH7q/p3moCUn6Nu/B51BlGqb +0srnYGbvyFyunjNYCsjKPC/l4P4jDqNvmp3gWXOaW1MLB5cL1Os4ijqBxZJC +db82DiYyWWZ7ZhyhzeztpGQnB0fSbLac6HeE8eJv4S69HOwd9eNrzXME9bua +j74OcXBzvjvX284RnnVs8LsyzEHlvrFDvBxHsFhuCxqjHBweMghIU3CE/WEn +GnwnONi2o24La2o3jJdeTJCY5uBe/gs/Z3t2Q8hM3L7iGQ5aaTYKfK7aDct0 +0tWc/3DQyXPmQl/ubrhzpHhibo6Dzo+NnUYSdsP/ANP+Xn0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06645193956749473}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2775,6 +6925,7 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2802,7 +6953,8 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06645193956749473}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2810,25 +6962,854 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.99134491550045*^9}, - CellLabel-> - "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] + CellChangeTimes->{3.99134491550045*^9, 3.993917845237369*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"23d5c7fb-df0d-4428-aa3f-dd12423ccbe5"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ -b938908ab9a4"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.005275"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.015632"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.025463"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.034444"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.042305"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.048862"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.053992"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.05763"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.05981"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.060594"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.060116"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.058529"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.056023"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.052783"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.049014"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.044891"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.04059"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.036252"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.032004"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.027939"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.024133"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.020631"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.017466"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.014645"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.012169"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.01002"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.008181"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.006622"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.005319"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.004237"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.00335"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993916476806035*^9}, + CellLabel->"In[96]:=",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.060594}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993917845336657*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"0f436621-2f92-4b23-9f7b-019b8e97b2ef"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ -b6e82cb2e939"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0Vd8XAHBRQqlQpgzv3feQKUMi8eydQkgSShnSN9IgKtIkU4mSEvqK +EknKEJfK2CAKyZAp09fcIEX0TFH5nd8fd931WXete8/Z++x9zmX+473dnZeH +h+cvuf5/n+x++5odkWo00sRX4B0FRs13JE9vaAuB+bO5AOMygCvq/5FsiwYT +S9f1f7hq4Lcto5WvLQWSMzZKNnINQWREIvpXax7UtRQKxnK3QM+zrd7jrWXw +ODB+adNPJzBlD3WNtTZCxYLA8aEfnvCrVe/GaGs/qPbXGDh+9IfyjQ9SG1K4 +8NXf1n7mUyTI9BR9/kftD7gnibwTnb4Byz33ZCzcyIdjR54WGNy4DdFapiVb +7QXwz9tMl0U5d6H9pmbp2DJhDL2ZKPE9ORUiUgPreaVEUC7Csinp8gOQiB24 +FJMohtdUhj+dEc+AMDtzo8bJFfj8gK4GpZwF0k/qpHnniaOOHOeVr1YWZIvZ +TWktEsc9WQ8uvdLPgg+NLvR1eXH0FqkvMrfIAraNL2WzWRyLTD76Lz+cBWVW +Sfzv48WRvy20NDozC/6YTtTVGkrgB/FqPbVVj8BH/+6etyGSqDs3pZy+NBss +kpeMW16RxC1+ZfeWiGcDtdA/vO6GJOb18A95yWTD++YduU0PJfHuQ58OeeVs +WH10MV93nSR+f3YINxpnw2DaybSf0lLoP7W88ZpPNjgt3zq88rEUuqp+GuA0 +ZsOasyXBd55JYQjNa/G7NRuE+leJMyukkFaV9nnalQ1FOXyg2C6F3mYHhSW/ +ZoO4ZVGU5pwUNkfqO9+ZI98PZuuYWErjz7DxjTmqObDpx8wZrwFpvP3hwpa+ +wBw4vTlW5dV3adzmx9brvpAD2XfVO8QmpfHLA78VHy7lgKSdq36RwEpcMyP3 +KD8mB74XvpniW70SbWqNNhs8yIGYkCjf+FMrMUBPQHN7bQ70r1D0ei0sg4M/ +/a52CtEg4f1SVkJCBodnI0wFhWnYUuVQe5Ahg8kNh07rLKUh/0yE2tI1Mqji +W299XoyGyz2jQ7scZHAuzPEVrwwN2uklHj9SZHAg8n11uBoNwYY2e6XXyeIC +IeU1eZY0bHa581PPWBaPcbYMFljRsCTo23n7LbLoWjE/o9iahtvloWlRrrL4 +pXHWtsCWhkKL4m/8l2SxYfiWWaQjDaMOLD9uuyxuazbpyjxEg8uJics1Z+Ww +aDev59OLNCjEGcsMhcrhdE0HyzmcJvO/9mhhlBxOLJQcnXeZhjO/ld8bp8qh +hBC3wjiShhvnXVYU1cjhj7ZCv7sxNNRcr0y6LyuPPHkpCk1JNKzPjn8S8FIe +T9alsoXyadjUWvdnpEoeoxqt5owKaNjKM99sT6M8mrUVOhwrpGHfdq92+CSP +Cy2Zl+qKaTA9ywwMWsBAkUafr4de0nBUfvLeBlUGyrW856pW0TDxOKrqlwYD +19yv7F/3loxvs+pwrg4DZW9N2m+spiH0mKsuZcTARfze1dtqaEgor67itWGg +ZqbApNV7Gl57JA2X+zGwpa8os6GVBvPf+qL+ZxnIDiwTKmijoS6qWVcniIFH +YMl4fDsN7UWCQamXGHiva4GHQycNI4t8RUNvM1Bo8ZP2gm4aJOnNeqZlDGxz ++WA17xMNiZsGHP9WMDDxwkDwS2Kq/VxQ/jsG7gysNz37mQZ13sdvFVsYeAX/ +Xvj2hQZjO1mnhYPkeepwd/YQDZ7TY0FVwkw0uXzd89UPEs9j+8U/izLx+Jha +oPsoDQJDHZl8kky8Vyf6gn+Mhvud5R+MKCZ6xMqW408aul/cUHuqy8SMdxMz +0eM0ZOkJlTUaMPGJYVoQY4LEiw7YOYpMDP/HRy+TWDzFI0TVkokLMjrWF07S +YB2q33Z3DxNNbU0y6Gka5P4+OvLSjYl94UbVSr/I+vCj+LoOMrGq1I5xmzj8 +wKLVkr5MPNvhfsx/hoZSy67zV8OZGH+eWbTyNw1XX9tIZUUy0eb+/Nv+xE6c +iuy30Uz8aqpd3EH8a3VO+/xEJnbME8m8+ofUg2iwxtlcJkbkBRxr+UsDT8TE +65v5TNS2td3AmCP54Tu0O7+EieugxuYA8eGJ7aFjb8h8m930RonXe1VKL33H +RCOZAWFNnlwQ+GJAq71n4s2hMqUjxKlt7E6PDiaufX54VQ/xcZv4o6E9TNR7 +cXPZ8nm5gNXC/Pc+MvG20Q8jU+IlG0NulX5lYt5n6skJ4q6SSc3uESZaCgwe +TSHO0jlcMctlouMd7oka4jOPehylfpF8bZkt5xKLJ1VdtOOj0KyyjbOeNxc+ +SnBkjgtQqEzJHt5FnBeVm3tNmEInev3HE8RBgopmj0QpzN41lH6N2Dok4b9q +CQpfZ356lkYsN7vk+KAMhantn2VLiL/7nF/IT1G4peRhbQ1x8fep2ywlClfV +fq7pJA5399TeoEZhuoazzCDxju7eShctCsvTqp6NEbN32jv761IYFP85e5r4 +Z/3bn/EGxCInuL+JSzcbhRcgcbF2xF/iq6/yZFtMKBzp6/b7Q+y0XunxTwsK +Xfz0C34Rqzy+tXnZNgqVFvJZcYl/qS7rVrensKn897oh4slE6eA1uymMuj1V +2E08vlSBrb+HQjU3i/T3xGPBGpVGbhReTXkkVEo8wtU/tOkghY+Pd3RlEX9z +3yRs4UWhZchlVhzxYOtW2tqHQiORU/8FEH8y32Vrf4pCGHMWdCPuL9k3ufsc +he6hUxmmxD3qXvGuIRTmveIpUyT+L+mU4f4wCjNVdK3nE7eLnO85fIXCj812 +tj0kfx/OR4Ycu05hhJt0fQFx00Scwsl/KRQSNimPJH7vkVLlf4vEJypGcy9x +tWXBkvD7FIpOx5/mIa58/io3MoPCTYqNO2rIenutUWMXk0PyWbaavkH8Qqwv +4U4RhVKDjh0M4pLQb5zUFxQGyOdm9ZP1XDg10ZteTuERps7fu8R5nUJKT2sp +7O1sZEoR51itqC5uJPmPPznxntRL1kv5I6WtFGqqOFleJE67p/P4XR+FV/J/ +B30l9ZVw2AX6Jyhc3uiqHE3qL67rQP+XGQovvHrD1iWOtfYJHZ4j+VJ5+LB1 +ltTvmvB304Is1F+3xEqMOGQ2d+dSORY+aY+XO0LqP/DIs5nlLBZuu8z0/UP6 +hX9PRaL0KhYaFYY6RBD7lXcOKGizMK5cpiFpitRrxIKjhqYsFLHVvvn//nPg +z1IxY0sWPpc0O7uKeL+3dL7ZNhaafijgppD+5Wqr8Xv7bhae8Zh8EMWlwW7l +rvCDXiz8Es231pr0P8PMrOR//2XhVeHGW7u+09DJyEwyucXCZp+4pyXfSL/7 +N/3OeBILYxu7SlcSFwSn3d6ezkLuATq75SvpNw7JN5c8Y+FikZYZTdKPlRfE +Rl3sY2FTS8BYaB8NVWeir639zEIX9QG/yl4yvtGoqx+HWDii9Huanzi1M/KK +8TgLX71kTwaS/YCRFxb+l5+NbyasB3eR/UJ8z9kgPzU2CvGutMpupuFp8+lA +BS02JrV3cuubyHwsTgU0r2WjbnV7yo9GGqLXnvDXBja2qZ6RUW6gQXix96kR +GzZ+etgRfaGWhvlF/xzdf5KNVwrCtLrf0DAmauG6o4yNycvDjjGf0tDmSb0/ +VMlGFZHpE8OPST+umIHAGjbuL1lhWpBHQ9SZTPmHH9h4+Kix1SaaBs3+xT2/ +hsj7Dn4S3ZRJg1duvXOimAIOPEhx6EymYcja3vGjmwLa+Xyr9ibngcZ09XfT +BxVwuWiW1hQ5LxTz8RsIeytg2FH5C/5hNFwqyJfWPa2AmjZrR4Mu0LBKXrIj +LFIBG5fWzzsWQIPHSIeDar4CpnkYj40co+HjFdcdxxcqYvShyE0Hd5LvD6lR +mosVsT2v5EatPQ1TZr+Gh5cpYqyolI6mHQ1CfNGhB6UVkWHY4Di6jYz/dPkT +V3VFlLuz3dvJgoZz7opi1rbEl4QPfDQk8Tf6Xq+apIiL4mSfFjHIfv/jpPkn +XSX83SJYZ1+ZAzJachcFDJXQrbay/ndZDowcf12mukEJDXieOSS/yIHYyWWG +xy2VMIXfXbDraQ50/0lfPbdHCe9FJSiop+bA8cX/iUldUsLo8lPmKkE5kKCM +3Vs6lfCF/zOLh2vJeXKfgM+TwFWoFG6krROXTf4vJHjDypQRzima7IRHIFqr +eJX+oYItm4yDu7syQSY8Z5uurhr2e3kamW/MgJuq+svEPNTR7OLO9sTch1At +vWEt9/pqFF1QZK0s+wDWy5RFaXzQQDnDzXtX7b0PS/hSfPeGaOKP3LKLSeX3 +QC5Y3nCXohbemRHYyieUAoIKTvnbK7VwSv5FspRbMqzmSOWcdNbG0phe1X0N +iXC8W7TcgmcNxn2N+NL7MgF+cK/Ym99cg8JRewKOCt0EM42KBHN1Hdy7I793 +XcQNeME1mJ2q08HQ673vvBbEgJeadkeD+1q8LpzuM689Cjgjbs27BHUxwCWu +tsk1EkzYklbCKbpYwX3T0J5/CVYFXT5VpqeH4+p7o1gnLoKKu/5LhQ49nFyv +rWFgfh7cXxy48OTYOnSfiRz5cj8IXiY3u42t0McHazuKaUN/GH84N6VRoI8m +c58vHxo4CfsUMgUTrNaj7ymtjtodvjCmEqObN7oei+cmJBP+HoXC1Nm+iXAD +DOYOLngQ7wm7N7HQQM4QW03qXl0RPAArj4QVrS41RLG/8hVidftghZBnrtVO +DpYHPhLP9XGF1I3nzozu4mBwTda1IXdX0D53dWOMEwfjBGpEVzu4wtZRuqVt +LwfXPPkq32ToChc/TPza58nBxyqxubH8rjCdEmh8JphD9jsX7T69PdBhENOU +lsnBa8ejDSpuOcOBE6m3zbM5+DzeecP9EGeYzH7q/p3moCUn6Nu/B51BlGqb +0srnYGbvyFyunjNYCsjKPC/l4P4jDqNvmp3gWXOaW1MLB5cL1Os4ijqBxZJC +db82DiYyWWZ7ZhyhzeztpGQnB0fSbLac6HeE8eJv4S69HOwd9eNrzXME9bua +j74OcXBzvjvX284RnnVs8LsyzEHlvrFDvBxHsFhuCxqjHBweMghIU3CE/WEn +GnwnONi2o24La2o3jJdeTJCY5uBe/gs/Z3t2Q8hM3L7iGQ5aaTYKfK7aDct0 +0tWc/3DQyXPmQl/ubrhzpHhibo6Dzo+NnUYSdsP/ANP+Xn0= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Vd8XAHBRQqlQpgzv3feQKUMi8eydQkgSShnSN9IgKtIkU4mSEvqK +EknKEJfK2CAKyZAp09fcIEX0TFH5nd8fd931WXete8/Z++x9zmX+473dnZeH +h+cvuf5/n+x++5odkWo00sRX4B0FRs13JE9vaAuB+bO5AOMygCvq/5FsiwYT +S9f1f7hq4Lcto5WvLQWSMzZKNnINQWREIvpXax7UtRQKxnK3QM+zrd7jrWXw +ODB+adNPJzBlD3WNtTZCxYLA8aEfnvCrVe/GaGs/qPbXGDh+9IfyjQ9SG1K4 +8NXf1n7mUyTI9BR9/kftD7gnibwTnb4Byz33ZCzcyIdjR54WGNy4DdFapiVb +7QXwz9tMl0U5d6H9pmbp2DJhDL2ZKPE9ORUiUgPreaVEUC7Csinp8gOQiB24 +FJMohtdUhj+dEc+AMDtzo8bJFfj8gK4GpZwF0k/qpHnniaOOHOeVr1YWZIvZ +TWktEsc9WQ8uvdLPgg+NLvR1eXH0FqkvMrfIAraNL2WzWRyLTD76Lz+cBWVW +Sfzv48WRvy20NDozC/6YTtTVGkrgB/FqPbVVj8BH/+6etyGSqDs3pZy+NBss +kpeMW16RxC1+ZfeWiGcDtdA/vO6GJOb18A95yWTD++YduU0PJfHuQ58OeeVs +WH10MV93nSR+f3YINxpnw2DaybSf0lLoP7W88ZpPNjgt3zq88rEUuqp+GuA0 +ZsOasyXBd55JYQjNa/G7NRuE+leJMyukkFaV9nnalQ1FOXyg2C6F3mYHhSW/ +ZoO4ZVGU5pwUNkfqO9+ZI98PZuuYWErjz7DxjTmqObDpx8wZrwFpvP3hwpa+ +wBw4vTlW5dV3adzmx9brvpAD2XfVO8QmpfHLA78VHy7lgKSdq36RwEpcMyP3 +KD8mB74XvpniW70SbWqNNhs8yIGYkCjf+FMrMUBPQHN7bQ70r1D0ei0sg4M/ +/a52CtEg4f1SVkJCBodnI0wFhWnYUuVQe5Ahg8kNh07rLKUh/0yE2tI1Mqji +W299XoyGyz2jQ7scZHAuzPEVrwwN2uklHj9SZHAg8n11uBoNwYY2e6XXyeIC +IeU1eZY0bHa581PPWBaPcbYMFljRsCTo23n7LbLoWjE/o9iahtvloWlRrrL4 +pXHWtsCWhkKL4m/8l2SxYfiWWaQjDaMOLD9uuyxuazbpyjxEg8uJics1Z+Ww +aDev59OLNCjEGcsMhcrhdE0HyzmcJvO/9mhhlBxOLJQcnXeZhjO/ld8bp8qh +hBC3wjiShhvnXVYU1cjhj7ZCv7sxNNRcr0y6LyuPPHkpCk1JNKzPjn8S8FIe +T9alsoXyadjUWvdnpEoeoxqt5owKaNjKM99sT6M8mrUVOhwrpGHfdq92+CSP +Cy2Zl+qKaTA9ywwMWsBAkUafr4de0nBUfvLeBlUGyrW856pW0TDxOKrqlwYD +19yv7F/3loxvs+pwrg4DZW9N2m+spiH0mKsuZcTARfze1dtqaEgor67itWGg +ZqbApNV7Gl57JA2X+zGwpa8os6GVBvPf+qL+ZxnIDiwTKmijoS6qWVcniIFH +YMl4fDsN7UWCQamXGHiva4GHQycNI4t8RUNvM1Bo8ZP2gm4aJOnNeqZlDGxz ++WA17xMNiZsGHP9WMDDxwkDwS2Kq/VxQ/jsG7gysNz37mQZ13sdvFVsYeAX/ +Xvj2hQZjO1mnhYPkeepwd/YQDZ7TY0FVwkw0uXzd89UPEs9j+8U/izLx+Jha +oPsoDQJDHZl8kky8Vyf6gn+Mhvud5R+MKCZ6xMqW408aul/cUHuqy8SMdxMz +0eM0ZOkJlTUaMPGJYVoQY4LEiw7YOYpMDP/HRy+TWDzFI0TVkokLMjrWF07S +YB2q33Z3DxNNbU0y6Gka5P4+OvLSjYl94UbVSr/I+vCj+LoOMrGq1I5xmzj8 +wKLVkr5MPNvhfsx/hoZSy67zV8OZGH+eWbTyNw1XX9tIZUUy0eb+/Nv+xE6c +iuy30Uz8aqpd3EH8a3VO+/xEJnbME8m8+ofUg2iwxtlcJkbkBRxr+UsDT8TE +65v5TNS2td3AmCP54Tu0O7+EieugxuYA8eGJ7aFjb8h8m930RonXe1VKL33H +RCOZAWFNnlwQ+GJAq71n4s2hMqUjxKlt7E6PDiaufX54VQ/xcZv4o6E9TNR7 +cXPZ8nm5gNXC/Pc+MvG20Q8jU+IlG0NulX5lYt5n6skJ4q6SSc3uESZaCgwe +TSHO0jlcMctlouMd7oka4jOPehylfpF8bZkt5xKLJ1VdtOOj0KyyjbOeNxc+ +SnBkjgtQqEzJHt5FnBeVm3tNmEInev3HE8RBgopmj0QpzN41lH6N2Dok4b9q +CQpfZ356lkYsN7vk+KAMhantn2VLiL/7nF/IT1G4peRhbQ1x8fep2ywlClfV +fq7pJA5399TeoEZhuoazzCDxju7eShctCsvTqp6NEbN32jv761IYFP85e5r4 +Z/3bn/EGxCInuL+JSzcbhRcgcbF2xF/iq6/yZFtMKBzp6/b7Q+y0XunxTwsK +Xfz0C34Rqzy+tXnZNgqVFvJZcYl/qS7rVrensKn897oh4slE6eA1uymMuj1V +2E08vlSBrb+HQjU3i/T3xGPBGpVGbhReTXkkVEo8wtU/tOkghY+Pd3RlEX9z +3yRs4UWhZchlVhzxYOtW2tqHQiORU/8FEH8y32Vrf4pCGHMWdCPuL9k3ufsc +he6hUxmmxD3qXvGuIRTmveIpUyT+L+mU4f4wCjNVdK3nE7eLnO85fIXCj812 +tj0kfx/OR4Ycu05hhJt0fQFx00Scwsl/KRQSNimPJH7vkVLlf4vEJypGcy9x +tWXBkvD7FIpOx5/mIa58/io3MoPCTYqNO2rIenutUWMXk0PyWbaavkH8Qqwv +4U4RhVKDjh0M4pLQb5zUFxQGyOdm9ZP1XDg10ZteTuERps7fu8R5nUJKT2sp +7O1sZEoR51itqC5uJPmPPznxntRL1kv5I6WtFGqqOFleJE67p/P4XR+FV/J/ +B30l9ZVw2AX6Jyhc3uiqHE3qL67rQP+XGQovvHrD1iWOtfYJHZ4j+VJ5+LB1 +ltTvmvB304Is1F+3xEqMOGQ2d+dSORY+aY+XO0LqP/DIs5nlLBZuu8z0/UP6 +hX9PRaL0KhYaFYY6RBD7lXcOKGizMK5cpiFpitRrxIKjhqYsFLHVvvn//nPg +z1IxY0sWPpc0O7uKeL+3dL7ZNhaafijgppD+5Wqr8Xv7bhae8Zh8EMWlwW7l +rvCDXiz8Es231pr0P8PMrOR//2XhVeHGW7u+09DJyEwyucXCZp+4pyXfSL/7 +N/3OeBILYxu7SlcSFwSn3d6ezkLuATq75SvpNw7JN5c8Y+FikZYZTdKPlRfE +Rl3sY2FTS8BYaB8NVWeir639zEIX9QG/yl4yvtGoqx+HWDii9Huanzi1M/KK +8TgLX71kTwaS/YCRFxb+l5+NbyasB3eR/UJ8z9kgPzU2CvGutMpupuFp8+lA +BS02JrV3cuubyHwsTgU0r2WjbnV7yo9GGqLXnvDXBja2qZ6RUW6gQXix96kR +GzZ+etgRfaGWhvlF/xzdf5KNVwrCtLrf0DAmauG6o4yNycvDjjGf0tDmSb0/ +VMlGFZHpE8OPST+umIHAGjbuL1lhWpBHQ9SZTPmHH9h4+Kix1SaaBs3+xT2/ +hsj7Dn4S3ZRJg1duvXOimAIOPEhx6EymYcja3vGjmwLa+Xyr9ibngcZ09XfT +BxVwuWiW1hQ5LxTz8RsIeytg2FH5C/5hNFwqyJfWPa2AmjZrR4Mu0LBKXrIj +LFIBG5fWzzsWQIPHSIeDar4CpnkYj40co+HjFdcdxxcqYvShyE0Hd5LvD6lR +mosVsT2v5EatPQ1TZr+Gh5cpYqyolI6mHQ1CfNGhB6UVkWHY4Di6jYz/dPkT +V3VFlLuz3dvJgoZz7opi1rbEl4QPfDQk8Tf6Xq+apIiL4mSfFjHIfv/jpPkn +XSX83SJYZ1+ZAzJachcFDJXQrbay/ndZDowcf12mukEJDXieOSS/yIHYyWWG +xy2VMIXfXbDraQ50/0lfPbdHCe9FJSiop+bA8cX/iUldUsLo8lPmKkE5kKCM +3Vs6lfCF/zOLh2vJeXKfgM+TwFWoFG6krROXTf4vJHjDypQRzima7IRHIFqr +eJX+oYItm4yDu7syQSY8Z5uurhr2e3kamW/MgJuq+svEPNTR7OLO9sTch1At +vWEt9/pqFF1QZK0s+wDWy5RFaXzQQDnDzXtX7b0PS/hSfPeGaOKP3LKLSeX3 +QC5Y3nCXohbemRHYyieUAoIKTvnbK7VwSv5FspRbMqzmSOWcdNbG0phe1X0N +iXC8W7TcgmcNxn2N+NL7MgF+cK/Ym99cg8JRewKOCt0EM42KBHN1Hdy7I793 +XcQNeME1mJ2q08HQ673vvBbEgJeadkeD+1q8LpzuM689Cjgjbs27BHUxwCWu +tsk1EkzYklbCKbpYwX3T0J5/CVYFXT5VpqeH4+p7o1gnLoKKu/5LhQ49nFyv +rWFgfh7cXxy48OTYOnSfiRz5cj8IXiY3u42t0McHazuKaUN/GH84N6VRoI8m +c58vHxo4CfsUMgUTrNaj7ymtjtodvjCmEqObN7oei+cmJBP+HoXC1Nm+iXAD +DOYOLngQ7wm7N7HQQM4QW03qXl0RPAArj4QVrS41RLG/8hVidftghZBnrtVO +DpYHPhLP9XGF1I3nzozu4mBwTda1IXdX0D53dWOMEwfjBGpEVzu4wtZRuqVt +LwfXPPkq32ToChc/TPza58nBxyqxubH8rjCdEmh8JphD9jsX7T69PdBhENOU +lsnBa8ejDSpuOcOBE6m3zbM5+DzeecP9EGeYzH7q/p3moCUn6Nu/B51BlGqb +0srnYGbvyFyunjNYCsjKPC/l4P4jDqNvmp3gWXOaW1MLB5cL1Os4ijqBxZJC +db82DiYyWWZ7ZhyhzeztpGQnB0fSbLac6HeE8eJv4S69HOwd9eNrzXME9bua +j74OcXBzvjvX284RnnVs8LsyzEHlvrFDvBxHsFhuCxqjHBweMghIU3CE/WEn +GnwnONi2o24La2o3jJdeTJCY5uBe/gs/Z3t2Q8hM3L7iGQ5aaTYKfK7aDct0 +0tWc/3DQyXPmQl/ubrhzpHhibo6Dzo+NnUYSdsP/ANP+Xn0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06645193956749473}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06645193956749473}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Vd8XAHBRQqlQpgzv3feQKUMi8eydQkgSShnSN9IgKtIkU4mSEvqK +EknKEJfK2CAKyZAp09fcIEX0TFH5nd8fd931WXete8/Z++x9zmX+473dnZeH +h+cvuf5/n+x++5odkWo00sRX4B0FRs13JE9vaAuB+bO5AOMygCvq/5FsiwYT +S9f1f7hq4Lcto5WvLQWSMzZKNnINQWREIvpXax7UtRQKxnK3QM+zrd7jrWXw +ODB+adNPJzBlD3WNtTZCxYLA8aEfnvCrVe/GaGs/qPbXGDh+9IfyjQ9SG1K4 +8NXf1n7mUyTI9BR9/kftD7gnibwTnb4Byz33ZCzcyIdjR54WGNy4DdFapiVb +7QXwz9tMl0U5d6H9pmbp2DJhDL2ZKPE9ORUiUgPreaVEUC7Csinp8gOQiB24 +FJMohtdUhj+dEc+AMDtzo8bJFfj8gK4GpZwF0k/qpHnniaOOHOeVr1YWZIvZ +TWktEsc9WQ8uvdLPgg+NLvR1eXH0FqkvMrfIAraNL2WzWRyLTD76Lz+cBWVW +Sfzv48WRvy20NDozC/6YTtTVGkrgB/FqPbVVj8BH/+6etyGSqDs3pZy+NBss +kpeMW16RxC1+ZfeWiGcDtdA/vO6GJOb18A95yWTD++YduU0PJfHuQ58OeeVs +WH10MV93nSR+f3YINxpnw2DaybSf0lLoP7W88ZpPNjgt3zq88rEUuqp+GuA0 +ZsOasyXBd55JYQjNa/G7NRuE+leJMyukkFaV9nnalQ1FOXyg2C6F3mYHhSW/ +ZoO4ZVGU5pwUNkfqO9+ZI98PZuuYWErjz7DxjTmqObDpx8wZrwFpvP3hwpa+ +wBw4vTlW5dV3adzmx9brvpAD2XfVO8QmpfHLA78VHy7lgKSdq36RwEpcMyP3 +KD8mB74XvpniW70SbWqNNhs8yIGYkCjf+FMrMUBPQHN7bQ70r1D0ei0sg4M/ +/a52CtEg4f1SVkJCBodnI0wFhWnYUuVQe5Ahg8kNh07rLKUh/0yE2tI1Mqji +W299XoyGyz2jQ7scZHAuzPEVrwwN2uklHj9SZHAg8n11uBoNwYY2e6XXyeIC +IeU1eZY0bHa581PPWBaPcbYMFljRsCTo23n7LbLoWjE/o9iahtvloWlRrrL4 +pXHWtsCWhkKL4m/8l2SxYfiWWaQjDaMOLD9uuyxuazbpyjxEg8uJics1Z+Ww +aDev59OLNCjEGcsMhcrhdE0HyzmcJvO/9mhhlBxOLJQcnXeZhjO/ld8bp8qh +hBC3wjiShhvnXVYU1cjhj7ZCv7sxNNRcr0y6LyuPPHkpCk1JNKzPjn8S8FIe +T9alsoXyadjUWvdnpEoeoxqt5owKaNjKM99sT6M8mrUVOhwrpGHfdq92+CSP +Cy2Zl+qKaTA9ywwMWsBAkUafr4de0nBUfvLeBlUGyrW856pW0TDxOKrqlwYD +19yv7F/3loxvs+pwrg4DZW9N2m+spiH0mKsuZcTARfze1dtqaEgor67itWGg +ZqbApNV7Gl57JA2X+zGwpa8os6GVBvPf+qL+ZxnIDiwTKmijoS6qWVcniIFH +YMl4fDsN7UWCQamXGHiva4GHQycNI4t8RUNvM1Bo8ZP2gm4aJOnNeqZlDGxz ++WA17xMNiZsGHP9WMDDxwkDwS2Kq/VxQ/jsG7gysNz37mQZ13sdvFVsYeAX/ +Xvj2hQZjO1mnhYPkeepwd/YQDZ7TY0FVwkw0uXzd89UPEs9j+8U/izLx+Jha +oPsoDQJDHZl8kky8Vyf6gn+Mhvud5R+MKCZ6xMqW408aul/cUHuqy8SMdxMz +0eM0ZOkJlTUaMPGJYVoQY4LEiw7YOYpMDP/HRy+TWDzFI0TVkokLMjrWF07S +YB2q33Z3DxNNbU0y6Gka5P4+OvLSjYl94UbVSr/I+vCj+LoOMrGq1I5xmzj8 +wKLVkr5MPNvhfsx/hoZSy67zV8OZGH+eWbTyNw1XX9tIZUUy0eb+/Nv+xE6c +iuy30Uz8aqpd3EH8a3VO+/xEJnbME8m8+ofUg2iwxtlcJkbkBRxr+UsDT8TE +65v5TNS2td3AmCP54Tu0O7+EieugxuYA8eGJ7aFjb8h8m930RonXe1VKL33H +RCOZAWFNnlwQ+GJAq71n4s2hMqUjxKlt7E6PDiaufX54VQ/xcZv4o6E9TNR7 +cXPZ8nm5gNXC/Pc+MvG20Q8jU+IlG0NulX5lYt5n6skJ4q6SSc3uESZaCgwe +TSHO0jlcMctlouMd7oka4jOPehylfpF8bZkt5xKLJ1VdtOOj0KyyjbOeNxc+ +SnBkjgtQqEzJHt5FnBeVm3tNmEInev3HE8RBgopmj0QpzN41lH6N2Dok4b9q +CQpfZ356lkYsN7vk+KAMhantn2VLiL/7nF/IT1G4peRhbQ1x8fep2ywlClfV +fq7pJA5399TeoEZhuoazzCDxju7eShctCsvTqp6NEbN32jv761IYFP85e5r4 +Z/3bn/EGxCInuL+JSzcbhRcgcbF2xF/iq6/yZFtMKBzp6/b7Q+y0XunxTwsK +Xfz0C34Rqzy+tXnZNgqVFvJZcYl/qS7rVrensKn897oh4slE6eA1uymMuj1V +2E08vlSBrb+HQjU3i/T3xGPBGpVGbhReTXkkVEo8wtU/tOkghY+Pd3RlEX9z +3yRs4UWhZchlVhzxYOtW2tqHQiORU/8FEH8y32Vrf4pCGHMWdCPuL9k3ufsc +he6hUxmmxD3qXvGuIRTmveIpUyT+L+mU4f4wCjNVdK3nE7eLnO85fIXCj812 +tj0kfx/OR4Ycu05hhJt0fQFx00Scwsl/KRQSNimPJH7vkVLlf4vEJypGcy9x +tWXBkvD7FIpOx5/mIa58/io3MoPCTYqNO2rIenutUWMXk0PyWbaavkH8Qqwv +4U4RhVKDjh0M4pLQb5zUFxQGyOdm9ZP1XDg10ZteTuERps7fu8R5nUJKT2sp +7O1sZEoR51itqC5uJPmPPznxntRL1kv5I6WtFGqqOFleJE67p/P4XR+FV/J/ +B30l9ZVw2AX6Jyhc3uiqHE3qL67rQP+XGQovvHrD1iWOtfYJHZ4j+VJ5+LB1 +ltTvmvB304Is1F+3xEqMOGQ2d+dSORY+aY+XO0LqP/DIs5nlLBZuu8z0/UP6 +hX9PRaL0KhYaFYY6RBD7lXcOKGizMK5cpiFpitRrxIKjhqYsFLHVvvn//nPg +z1IxY0sWPpc0O7uKeL+3dL7ZNhaafijgppD+5Wqr8Xv7bhae8Zh8EMWlwW7l +rvCDXiz8Es231pr0P8PMrOR//2XhVeHGW7u+09DJyEwyucXCZp+4pyXfSL/7 +N/3OeBILYxu7SlcSFwSn3d6ezkLuATq75SvpNw7JN5c8Y+FikZYZTdKPlRfE +Rl3sY2FTS8BYaB8NVWeir639zEIX9QG/yl4yvtGoqx+HWDii9Huanzi1M/KK +8TgLX71kTwaS/YCRFxb+l5+NbyasB3eR/UJ8z9kgPzU2CvGutMpupuFp8+lA +BS02JrV3cuubyHwsTgU0r2WjbnV7yo9GGqLXnvDXBja2qZ6RUW6gQXix96kR +GzZ+etgRfaGWhvlF/xzdf5KNVwrCtLrf0DAmauG6o4yNycvDjjGf0tDmSb0/ +VMlGFZHpE8OPST+umIHAGjbuL1lhWpBHQ9SZTPmHH9h4+Kix1SaaBs3+xT2/ +hsj7Dn4S3ZRJg1duvXOimAIOPEhx6EymYcja3vGjmwLa+Xyr9ibngcZ09XfT +BxVwuWiW1hQ5LxTz8RsIeytg2FH5C/5hNFwqyJfWPa2AmjZrR4Mu0LBKXrIj +LFIBG5fWzzsWQIPHSIeDar4CpnkYj40co+HjFdcdxxcqYvShyE0Hd5LvD6lR +mosVsT2v5EatPQ1TZr+Gh5cpYqyolI6mHQ1CfNGhB6UVkWHY4Di6jYz/dPkT +V3VFlLuz3dvJgoZz7opi1rbEl4QPfDQk8Tf6Xq+apIiL4mSfFjHIfv/jpPkn +XSX83SJYZ1+ZAzJachcFDJXQrbay/ndZDowcf12mukEJDXieOSS/yIHYyWWG +xy2VMIXfXbDraQ50/0lfPbdHCe9FJSiop+bA8cX/iUldUsLo8lPmKkE5kKCM +3Vs6lfCF/zOLh2vJeXKfgM+TwFWoFG6krROXTf4vJHjDypQRzima7IRHIFqr +eJX+oYItm4yDu7syQSY8Z5uurhr2e3kamW/MgJuq+svEPNTR7OLO9sTch1At +vWEt9/pqFF1QZK0s+wDWy5RFaXzQQDnDzXtX7b0PS/hSfPeGaOKP3LKLSeX3 +QC5Y3nCXohbemRHYyieUAoIKTvnbK7VwSv5FspRbMqzmSOWcdNbG0phe1X0N +iXC8W7TcgmcNxn2N+NL7MgF+cK/Ym99cg8JRewKOCt0EM42KBHN1Hdy7I793 +XcQNeME1mJ2q08HQ673vvBbEgJeadkeD+1q8LpzuM689Cjgjbs27BHUxwCWu +tsk1EkzYklbCKbpYwX3T0J5/CVYFXT5VpqeH4+p7o1gnLoKKu/5LhQ49nFyv +rWFgfh7cXxy48OTYOnSfiRz5cj8IXiY3u42t0McHazuKaUN/GH84N6VRoI8m +c58vHxo4CfsUMgUTrNaj7ymtjtodvjCmEqObN7oei+cmJBP+HoXC1Nm+iXAD +DOYOLngQ7wm7N7HQQM4QW03qXl0RPAArj4QVrS41RLG/8hVidftghZBnrtVO +DpYHPhLP9XGF1I3nzozu4mBwTda1IXdX0D53dWOMEwfjBGpEVzu4wtZRuqVt +LwfXPPkq32ToChc/TPza58nBxyqxubH8rjCdEmh8JphD9jsX7T69PdBhENOU +lsnBa8ejDSpuOcOBE6m3zbM5+DzeecP9EGeYzH7q/p3moCUn6Nu/B51BlGqb +0srnYGbvyFyunjNYCsjKPC/l4P4jDqNvmp3gWXOaW1MLB5cL1Os4ijqBxZJC +db82DiYyWWZ7ZhyhzeztpGQnB0fSbLac6HeE8eJv4S69HOwd9eNrzXME9bua +j74OcXBzvjvX284RnnVs8LsyzEHlvrFDvBxHsFhuCxqjHBweMghIU3CE/WEn +GnwnONi2o24La2o3jJdeTJCY5uBe/gs/Z3t2Q8hM3L7iGQ5aaTYKfK7aDct0 +0tWc/3DQyXPmQl/ubrhzpHhibo6Dzo+NnUYSdsP/ANP+Xn0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06645193956749473}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06645193956749473}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993917845372864*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"491b9f57-4324-454e-a986-57df3a373bbd"] +}, Open ]], Cell[CellGroupData[{ @@ -2837,14 +7818,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ -ac86e3a0e3fd"], + CellChangeTimes->{3.9918501819649506`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[BoxData["10.362747935330784`"], "Output", - CellChangeTimes->{3.9913453868532257`*^9}, - CellLabel-> - "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +Cell[BoxData["12.086486093352779`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9, 3.993917845416368*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"6ed0d7bf-064b-473b-a4e2-5dee2f1c19af"] }, Open ]], Cell[CellGroupData[{ @@ -2900,171 +7879,159 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ -da901e49f6f1"], + CellChangeTimes->{3.991850184857586*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 421, 449, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387062414*^9}, - CellLabel-> - "During evaluation of \ -In[421]:=",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ -\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 421, 450, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387076412*^9}, - CellLabel-> - "During evaluation of \ -In[421]:=",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.344453946666014`*^-259\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 421, 451, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387088339*^9}, +\"", 2, 99, 101, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.9939178455098333`*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +In[99]:=",ExpressionUUID->"576137eb-995e-4594-9c73-4c93786c4871"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.434928651550588`*^-268\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 102, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.993917845519225*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"c1d40e2f-3107-456b-b2d9-7a801cd74b78"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.678019671329384`*^-277\\\", \ +\\\"70359079638545882374689246780656119576032161719910400000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 99, 103, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.993917845528399*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"7a7d04fe-8d11-4f34-b4f9-ec39831af23b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913453870973415`*^9}, +during this calculation.\"", 2, 99, 104, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.993917845537209*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +In[99]:=",ExpressionUUID->"a5a4cdb7-abca-4253-a7ef-53c17a6a7b27"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0VW0XAHClgcqcebz33IsyZYiUa2+SoTlpUKZwlYxJKkOhTKESJUrG +FLr3XPISKl7RIClDmYpC5VWmMoTKd76/zvqts9Zez37Os/ezD83Vz5a9kI+P +j38BH9//n1M9L+oY8XmmlUFqlX6WJqZtt2ROm3VEgr/i6dbeUVlAydeuMh1X +4KOaz0Te6CoI2lnYzt+RA9aVh9hnR41BbET6ykx7CSx9ukhl66gN9D7c7jfR +XguPpI1jeSP2YMkY+jDe3gKly2MEDn73hJl2o6tj7X3wOF8kTKL/NDzZeCev +OecnBIZh8semC6DQW/HFVfMPbDmZk3r+QTKs9HYuXLqRH0fyP8cmlaTBFV3L +qu17BHDwyzbtkg+Z0Hl9Tc24qBAe7zCp6MrOgfi8s68XyophVqKXL8fuNkin +9MclZ0jgCm+eoHHFHYixszFtmZJEpxN+8t2lBSBX2iS3cIEU5tStsP/6sAC4 +EnbTusul8Lh+zouRugJ41+LES1KWwkCLARhtKwDGrkD6LmspfKPm4lE2UQC1 +2zKXvEmTQtHskUYH/UL4YznZ9MpEGkVEzd7zcwrhuHG284tIGXQX7n96MakI +NmcJT2xJkEE/b60tw6lFQF8aGtt0VQaVmJtPWN0qgjdte4tb78pgW7pkxUhh +EWj7r+DvaZLBodKxcYG6IhjMP5n/Q04WDTN21HlNFoHDyu3D8vdlkXWwmX/Q +7h5YjM4G+/bLYa6Ou+udJRw4bZ2y+t/vcrhJ3qe9eTkHuNlaXRJTcug4t0Tw +lygHZOxcjCsE5NHtnn62kTwHvj+on+bXlscHbSlZ53Q4kBx5OTDtlDz2q/0s +376PA32Sqr51QgpYZ1vgysvlgLRftaK0tAK+/y5J2N7lwNbn+195qijg8G3D +m6P3OFAWHK8poq+ABoMODxTLOHChd2zIfr8CsraNXbN8zgG9gqrDozkKKDaj +8KXhGwciTHYdkluniCGXzzzP0OGCtdOtH0bmiij0LClBxIALwuHfzu3ZqogW +P3ytQtdx4eaTqPzLLopYunog29KMCw82V35bEqeIBg+Svt+y5cLYfiLoZ6ci +mj7SmnAM5ILTickLjSFKqLeIPixVygVmqrnCUJQSxgqpNX8t51L5X+IsvayE +Lr8Ciu9XcSH496o35nlKWNk1eNjkCReunnOSrGhUQnzecV+shQuNSc8ybysq +47k3oQKNI1xYz00rPVOtjHdS9EcjGCRYtDf9GXmujK0ptsdC1UjYzrfIyrlF +GY/yMTMDVpPgZuvbCZ+VsS7efH7XGhIsQ2hnwxer4La7Gt3vN5DgrzyVa6ah +gtHjRrsJWxLqDmcOPwlSwd2HPBcGhZBg89tYPDREBd9Evi77EkZC0+U2Q4Nw +FXS5xyV2h5PQWSEYnhengp++kOrKUSSMLA8Uj7qpgnrnO76fu0iCDM/ayLJW +BbO9M16EZ5Hg/Ws8/LkQDR8/bXDb8i8J6495SH0Rp2HLfvqkwxMSBIa6ivhl +aCg8xb3iWU/C7e4n70zpNJQqtZs8/oKEnsdXNf8xpKGYWorPtmYSdkQZd2Q7 +07D5ybdWiY8kKP3l+FS709AmcDDy3ScSvgfR+T940rBf0mFzSj8JsUeWa8sE +0vBHah9zwVcSarZ8OHcxlob7Gq1Us4ZJ0BOP0AkppmFTofrSiRkS+OIn666X +0ZDP7kPWkTkqf/6jB8qqaKjbH+zS8ZsEr0nbqPF6Gnb2TdoVzJOQ18HoPtxF +w8Tpr1djF/IgYFeaf1QvDRcrtUXr8PMAG4SW5A7Q0O+ZtXAb5Q9VU2t6Rmio +FJLVJ7mYB1KZz6Pt+OnUfs5yQpfyYECapRAgQMeT92RcRAV4UHK5uPiSEB1P +W528l015R2T6+wZpyi8+SD4S5EEs21vPTJOOBpmP17Uv58GMhmiP1h46vnCV +0EwT4cFUhlyE/gE6phbO1SwS5cGECJNh7ExHo7U/hHwpj/w0PmrhScd27nSz +sRgP+qrcpg6EUe93zouUifOgV8s3zSWSjjM24wEiEjx4n3nKxCOGjsW5nUke +lN+dS4w8lkRHq/4Li4VX8qBhS7lw7G06On481WImyYNnj/4tTiykI18ZQcRR +rtNptEsm6bjCp1G/ifJjiU/ptyroGHiMkbpLigdVUd9YeY/pOHy0e+gS5QfT +kx8LntDxcEYmXyPlku5lav+8oqO8pXsgS5oH5DbJhsoWKt91/q0BlO9VK/vU +tNOx0SFr6jbl/FyD+y8/0VGTHRe/WIYHuZKwt/kLHd8m7PqrSzkrxmbm3Tc6 +dno5GDlQTvdygr5JOr777fi3gHLqhyN9X2fpeIg8nPiKcsqO41HD83Rsku0a +GKGc9G+Y+s9FBK75DIuFZXlwUT/25S9BAm+vYYyuphx/+4rvX2ECLZLEczdR +jpXOEFu0ksDrYqk0J8pRcXdKBWUJPKtr6hVIOXKueJ+IEoGPPqeEx1I+6/Nw +diVBYHmqums65dDepxly6gRqMGNECymf3tWMKloE9vaaJpRTDnrS3c/UI3B3 +Ys/bWsrH136J1jAi8LDH5PBLyv53xlbpmhDIkJZ420LZV3au0dCMQPvHz+Lb +KXvFL/Y3sSTwwHCueBflI39EJMy3EHjrzrqj/7eHn1yZ1U4Cr7hKJ3dQdvvE +sN+2h0Dm4pbENsouu3V+2x4gMO7r7IEmyo71xpn7nQkca2HM1VM+YGRh7uRO +7deCft8qyvsKtn928yTwqMKLMi5lO3n7WE9fAl+YerVmUt6V6Kbhd5xAgx+O +9Rcpb5/3aQo8ReCkjmFiCOUtx04dCw4jMMAlTsODsnV/5MrwSALbDgxnbae8 +aU9ieVQMgWXuv4YNKJs/Sz0Qn0DgD10zCVnKJkX3sq5dI9B/2X+DXdT37FYp +ytx0g8C9zmlzlZSDrxXcmsik8lPxWpNGuTwi/6ZtAYHDU64Ld1LeO513YwGX +QK2+iCx1yhPeuem8EgIj+++7zlPnT29/1nXhh9T+2VruuUO5+dWt1Ec1BLYr +50Sfouy/MeOadz2Bpf8u7bGizNVOT2loIvBr+RDfJ+q8r1qccjn6E4HeB38x +/lD18jz4yqW1X6j1RcelVFP2GLt8cWCIwPolNO1wynndiQnmEwT+p3r40xxV +jyolMbF/lzAQW8P2fqDqtVotOoaznIFHj/kwkig7ZZyPdhBl4I744yobKd+I +jThfKcvA0AXNedlU/Us5h4QHaTJQZ7f5sDXVH/5pO32WqcvADaJ71o9Q/cNu +86kzbWsZ2JqVXZFE+craE6F6wEDVyPmdrVT/EVrhd2pkFwNHgiLGUZgHiypc +/T1OMpBdu8r/6TKqHrUP+UmGMtB6VFNlB2XzPGffunAGeh0aXPaO6m9nLzl4 +0y8wMCy1+EoP1f9m2XuP9Nxk4My+6uCuJTwYF9/ssreWgc7nTNXOUP23w5v+ +5ugzBnamJBv1LOBBzdNZONvIwA4zEZYJ5cvBRcp33zHQ5uNtuwGqf6/pW9E7 +M8TAm0NSFvGzJPgWv3bMkGDiQ+3O7dKjJOxdfvdVsQwTw+qSaq5R94UpO5z1 +VJGJr4O5+uLfSRCS1VUcVWOiR/gP4s8gCffCr7xHEybuu9yzJ7ePhKEdew4O +uDPRd6P1Fr23JLQUaL385clE2/SS8wGtJFTyL9kg5MdES45VO5e63+LKy+QM +TzNRLHP2lXwTCerKMl0xiUzsDevXePaUhMMjXfs1ypgYWN70172chIEEl70B +S1Xxlea5F8+uUusf0qSvWaGKIsLluqXJJExbzQwPi6qifV+5U0YSCcv4r0R5 +ylFmWK7wSKTyP/2k1EVLFe3SSjvfnCchjK0qsWO3Kv7N0nIROk6ClOn31xqZ +qriIT3ijxjYSsm48uPFfrioWdjxtKNlMwqqZ84fv3FVFx4cmZkbWJJiUKs7T +S1RRor9s3nAjNY+s3qEtV6+KEbSDg2LGJPCkShIEvqni9tfGVw2pecZm9KTN +Z0M19FJOeGvxiwsKukrRAiZqiG0bO3QmuTASUFerYaaGIfsEAqV/cCFlStQk +YIsaOq56EPb+Gxd6/hRozzurocLwy2WmvVwIWPFeQjZODR85tFx1qedC+irs +2dqthnSadavOJWoecxM4XnpWHeWZmYyDslT8WxaPqs+ro88/IdEJklwY7Qxf ++jJOHc9t2itSJcaFHztmbnxKVsfX8WM3RZZxYXrDUJ3wXXVM+qrXcW2WAwtX +Nkp5vlHH/MH9u5W7OSBbd6lSkbYKHVcUxTLSOdT/ivTCmNpVaDig1HiImo/F +X6le5I2uxsIoJ2PNqSJQiCV3GhpqYgSjfqwhrxCuaxiLShzWQj23fDhpWwAN +cmZrfyZpY+d7sQ2RU3dgvULtZZ13Ouil19BY458Pwvw5gYci16C/QlJ25d88 +UIpQNrFX1UWVsFOhBt65IMh0KLN9pouaCYJTRweyQZslS5501MOn+5qEPoRl +QUCP+JPNfPpoKqpmZi5wC0Z/Juyxua6PfwWqPU4cugFWOk/TbbQM8C7794zA +5+vw+OeGuekmA7S7QBfJ2XsNfDX1uprZa1G2vt0+SSYFWCPubfaChsiE6I7x +1iTYxJDZJpRjiHatQlNVVZdAPfzCqVojI+QluTI6tRNgNdu4mtllhHghrbLq +biywHx85X3psHaZ5HVO+WhQF1Vlt7uOSxkgzFrkqVx0JE3fnp3XKjfETs7dG +TDsc3JhFgunb1uP9n8LTXpKhML462bBkbD3+ueHhMD99Eh7kzX2ajN2A1xar +NLenBMIBCwI3KJlg8c8TAoJ3joG8T0yFdo0JDrK/96jX+IDkMu/ibftYmHbp +98B78IS8jWHBY/YsnFseK6Su5Ql6YRc3JjuwUPv9wr9n5Dxh+xjvbcchFib8 +3aOyc/IIRL+bnHHzZmFIbearM0VH4FfOWfPgCBYmBy4eFJA7Al0bklvzi1gI +TGJTwbwHHDmRd9OGy0KJM5G5riMeMMX9h/2dx8KRQ1dl1D54gDi9Y1q3jIVl +Pgt0mys9YIuAosKjGhYuWeMdWRDkAQ/b8t1b37Jw9383v7LH2LBZ+IFWUAcL +awMWMJt62dBh9WJKppuF0vLOdLPXbJio/Bbr9JGFxJEoKysuG7Sy13D+G2Lh +6iLL263ebHjYZRaUMMzCozH6W5McqHgrd4POGAtV326Itd/KBo+YE82Bkyw0 +rrApFNSk4tVEp0v/YqGp4d2ocXk2RM6mulXOsvDVz9aP/cvZIGpQoOn4h4UN +baFlH+fc4ZZP5eT8PAvHlewWDH5zh/8B6kdRRg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3078,130 +8045,115 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= +1:eJwV13k0VW0XAHClgcqcebz33IsyZYiUa2+SoTlpUKZwlYxJKkOhTKESJUrG +FLr3XPISKl7RIClDmYpC5VWmMoTKd76/zvqts9Zez37Os/ezD83Vz5a9kI+P +j38BH9//n1M9L+oY8XmmlUFqlX6WJqZtt2ROm3VEgr/i6dbeUVlAydeuMh1X +4KOaz0Te6CoI2lnYzt+RA9aVh9hnR41BbET6ykx7CSx9ukhl66gN9D7c7jfR +XguPpI1jeSP2YMkY+jDe3gKly2MEDn73hJl2o6tj7X3wOF8kTKL/NDzZeCev +OecnBIZh8semC6DQW/HFVfMPbDmZk3r+QTKs9HYuXLqRH0fyP8cmlaTBFV3L +qu17BHDwyzbtkg+Z0Hl9Tc24qBAe7zCp6MrOgfi8s68XyophVqKXL8fuNkin +9MclZ0jgCm+eoHHFHYixszFtmZJEpxN+8t2lBSBX2iS3cIEU5tStsP/6sAC4 +EnbTusul8Lh+zouRugJ41+LES1KWwkCLARhtKwDGrkD6LmspfKPm4lE2UQC1 +2zKXvEmTQtHskUYH/UL4YznZ9MpEGkVEzd7zcwrhuHG284tIGXQX7n96MakI +NmcJT2xJkEE/b60tw6lFQF8aGtt0VQaVmJtPWN0qgjdte4tb78pgW7pkxUhh +EWj7r+DvaZLBodKxcYG6IhjMP5n/Q04WDTN21HlNFoHDyu3D8vdlkXWwmX/Q +7h5YjM4G+/bLYa6Ou+udJRw4bZ2y+t/vcrhJ3qe9eTkHuNlaXRJTcug4t0Tw +lygHZOxcjCsE5NHtnn62kTwHvj+on+bXlscHbSlZ53Q4kBx5OTDtlDz2q/0s +376PA32Sqr51QgpYZ1vgysvlgLRftaK0tAK+/y5J2N7lwNbn+195qijg8G3D +m6P3OFAWHK8poq+ABoMODxTLOHChd2zIfr8CsraNXbN8zgG9gqrDozkKKDaj +8KXhGwciTHYdkluniCGXzzzP0OGCtdOtH0bmiij0LClBxIALwuHfzu3ZqogW +P3ytQtdx4eaTqPzLLopYunog29KMCw82V35bEqeIBg+Svt+y5cLYfiLoZ6ci +mj7SmnAM5ILTickLjSFKqLeIPixVygVmqrnCUJQSxgqpNX8t51L5X+IsvayE +Lr8Ciu9XcSH496o35nlKWNk1eNjkCReunnOSrGhUQnzecV+shQuNSc8ybysq +47k3oQKNI1xYz00rPVOtjHdS9EcjGCRYtDf9GXmujK0ptsdC1UjYzrfIyrlF +GY/yMTMDVpPgZuvbCZ+VsS7efH7XGhIsQ2hnwxer4La7Gt3vN5DgrzyVa6ah +gtHjRrsJWxLqDmcOPwlSwd2HPBcGhZBg89tYPDREBd9Evi77EkZC0+U2Q4Nw +FXS5xyV2h5PQWSEYnhengp++kOrKUSSMLA8Uj7qpgnrnO76fu0iCDM/ayLJW +BbO9M16EZ5Hg/Ws8/LkQDR8/bXDb8i8J6495SH0Rp2HLfvqkwxMSBIa6ivhl +aCg8xb3iWU/C7e4n70zpNJQqtZs8/oKEnsdXNf8xpKGYWorPtmYSdkQZd2Q7 +07D5ybdWiY8kKP3l+FS709AmcDDy3ScSvgfR+T940rBf0mFzSj8JsUeWa8sE +0vBHah9zwVcSarZ8OHcxlob7Gq1Us4ZJ0BOP0AkppmFTofrSiRkS+OIn666X +0ZDP7kPWkTkqf/6jB8qqaKjbH+zS8ZsEr0nbqPF6Gnb2TdoVzJOQ18HoPtxF +w8Tpr1djF/IgYFeaf1QvDRcrtUXr8PMAG4SW5A7Q0O+ZtXAb5Q9VU2t6Rmio +FJLVJ7mYB1KZz6Pt+OnUfs5yQpfyYECapRAgQMeT92RcRAV4UHK5uPiSEB1P +W528l015R2T6+wZpyi8+SD4S5EEs21vPTJOOBpmP17Uv58GMhmiP1h46vnCV +0EwT4cFUhlyE/gE6phbO1SwS5cGECJNh7ExHo7U/hHwpj/w0PmrhScd27nSz +sRgP+qrcpg6EUe93zouUifOgV8s3zSWSjjM24wEiEjx4n3nKxCOGjsW5nUke +lN+dS4w8lkRHq/4Li4VX8qBhS7lw7G06On481WImyYNnj/4tTiykI18ZQcRR +rtNptEsm6bjCp1G/ifJjiU/ptyroGHiMkbpLigdVUd9YeY/pOHy0e+gS5QfT +kx8LntDxcEYmXyPlku5lav+8oqO8pXsgS5oH5DbJhsoWKt91/q0BlO9VK/vU +tNOx0SFr6jbl/FyD+y8/0VGTHRe/WIYHuZKwt/kLHd8m7PqrSzkrxmbm3Tc6 +dno5GDlQTvdygr5JOr777fi3gHLqhyN9X2fpeIg8nPiKcsqO41HD83Rsku0a +GKGc9G+Y+s9FBK75DIuFZXlwUT/25S9BAm+vYYyuphx/+4rvX2ECLZLEczdR +jpXOEFu0ksDrYqk0J8pRcXdKBWUJPKtr6hVIOXKueJ+IEoGPPqeEx1I+6/Nw +diVBYHmqums65dDepxly6gRqMGNECymf3tWMKloE9vaaJpRTDnrS3c/UI3B3 +Ys/bWsrH136J1jAi8LDH5PBLyv53xlbpmhDIkJZ420LZV3au0dCMQPvHz+Lb +KXvFL/Y3sSTwwHCueBflI39EJMy3EHjrzrqj/7eHn1yZ1U4Cr7hKJ3dQdvvE +sN+2h0Dm4pbENsouu3V+2x4gMO7r7IEmyo71xpn7nQkca2HM1VM+YGRh7uRO +7deCft8qyvsKtn928yTwqMKLMi5lO3n7WE9fAl+YerVmUt6V6Kbhd5xAgx+O +9Rcpb5/3aQo8ReCkjmFiCOUtx04dCw4jMMAlTsODsnV/5MrwSALbDgxnbae8 +aU9ieVQMgWXuv4YNKJs/Sz0Qn0DgD10zCVnKJkX3sq5dI9B/2X+DXdT37FYp +ytx0g8C9zmlzlZSDrxXcmsik8lPxWpNGuTwi/6ZtAYHDU64Ld1LeO513YwGX +QK2+iCx1yhPeuem8EgIj+++7zlPnT29/1nXhh9T+2VruuUO5+dWt1Ec1BLYr +50Sfouy/MeOadz2Bpf8u7bGizNVOT2loIvBr+RDfJ+q8r1qccjn6E4HeB38x +/lD18jz4yqW1X6j1RcelVFP2GLt8cWCIwPolNO1wynndiQnmEwT+p3r40xxV +jyolMbF/lzAQW8P2fqDqtVotOoaznIFHj/kwkig7ZZyPdhBl4I744yobKd+I +jThfKcvA0AXNedlU/Us5h4QHaTJQZ7f5sDXVH/5pO32WqcvADaJ71o9Q/cNu +86kzbWsZ2JqVXZFE+craE6F6wEDVyPmdrVT/EVrhd2pkFwNHgiLGUZgHiypc +/T1OMpBdu8r/6TKqHrUP+UmGMtB6VFNlB2XzPGffunAGeh0aXPaO6m9nLzl4 +0y8wMCy1+EoP1f9m2XuP9Nxk4My+6uCuJTwYF9/ssreWgc7nTNXOUP23w5v+ +5ugzBnamJBv1LOBBzdNZONvIwA4zEZYJ5cvBRcp33zHQ5uNtuwGqf6/pW9E7 +M8TAm0NSFvGzJPgWv3bMkGDiQ+3O7dKjJOxdfvdVsQwTw+qSaq5R94UpO5z1 +VJGJr4O5+uLfSRCS1VUcVWOiR/gP4s8gCffCr7xHEybuu9yzJ7ePhKEdew4O +uDPRd6P1Fr23JLQUaL385clE2/SS8wGtJFTyL9kg5MdES45VO5e63+LKy+QM +TzNRLHP2lXwTCerKMl0xiUzsDevXePaUhMMjXfs1ypgYWN70172chIEEl70B +S1Xxlea5F8+uUusf0qSvWaGKIsLluqXJJExbzQwPi6qifV+5U0YSCcv4r0R5 +ylFmWK7wSKTyP/2k1EVLFe3SSjvfnCchjK0qsWO3Kv7N0nIROk6ClOn31xqZ +qriIT3ijxjYSsm48uPFfrioWdjxtKNlMwqqZ84fv3FVFx4cmZkbWJJiUKs7T +S1RRor9s3nAjNY+s3qEtV6+KEbSDg2LGJPCkShIEvqni9tfGVw2pecZm9KTN +Z0M19FJOeGvxiwsKukrRAiZqiG0bO3QmuTASUFerYaaGIfsEAqV/cCFlStQk +YIsaOq56EPb+Gxd6/hRozzurocLwy2WmvVwIWPFeQjZODR85tFx1qedC+irs +2dqthnSadavOJWoecxM4XnpWHeWZmYyDslT8WxaPqs+ro88/IdEJklwY7Qxf ++jJOHc9t2itSJcaFHztmbnxKVsfX8WM3RZZxYXrDUJ3wXXVM+qrXcW2WAwtX +Nkp5vlHH/MH9u5W7OSBbd6lSkbYKHVcUxTLSOdT/ivTCmNpVaDig1HiImo/F +X6le5I2uxsIoJ2PNqSJQiCV3GhpqYgSjfqwhrxCuaxiLShzWQj23fDhpWwAN +cmZrfyZpY+d7sQ2RU3dgvULtZZ13Ouil19BY458Pwvw5gYci16C/QlJ25d88 +UIpQNrFX1UWVsFOhBt65IMh0KLN9pouaCYJTRweyQZslS5501MOn+5qEPoRl +QUCP+JPNfPpoKqpmZi5wC0Z/Juyxua6PfwWqPU4cugFWOk/TbbQM8C7794zA +5+vw+OeGuekmA7S7QBfJ2XsNfDX1uprZa1G2vt0+SSYFWCPubfaChsiE6I7x +1iTYxJDZJpRjiHatQlNVVZdAPfzCqVojI+QluTI6tRNgNdu4mtllhHghrbLq +biywHx85X3psHaZ5HVO+WhQF1Vlt7uOSxkgzFrkqVx0JE3fnp3XKjfETs7dG +TDsc3JhFgunb1uP9n8LTXpKhML462bBkbD3+ueHhMD99Eh7kzX2ajN2A1xar +NLenBMIBCwI3KJlg8c8TAoJ3joG8T0yFdo0JDrK/96jX+IDkMu/ibftYmHbp +98B78IS8jWHBY/YsnFseK6Su5Ql6YRc3JjuwUPv9wr9n5Dxh+xjvbcchFib8 +3aOyc/IIRL+bnHHzZmFIbearM0VH4FfOWfPgCBYmBy4eFJA7Al0bklvzi1gI +TGJTwbwHHDmRd9OGy0KJM5G5riMeMMX9h/2dx8KRQ1dl1D54gDi9Y1q3jIVl +Pgt0mys9YIuAosKjGhYuWeMdWRDkAQ/b8t1b37Jw9383v7LH2LBZ+IFWUAcL +awMWMJt62dBh9WJKppuF0vLOdLPXbJio/Bbr9JGFxJEoKysuG7Sy13D+G2Lh +6iLL263ebHjYZRaUMMzCozH6W5McqHgrd4POGAtV326Itd/KBo+YE82Bkyw0 +rrApFNSk4tVEp0v/YqGp4d2ocXk2RM6mulXOsvDVz9aP/cvZIGpQoOn4h4UN +baFlH+fc4ZZP5eT8PAvHlewWDH5zh/8B6kdRRg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06289448827069896}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -3213,19 +8165,19 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06289448827069896}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3239,129 +8191,114 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= +1:eJwV13k0VW0XAHClgcqcebz33IsyZYiUa2+SoTlpUKZwlYxJKkOhTKESJUrG +FLr3XPISKl7RIClDmYpC5VWmMoTKd76/zvqts9Zez37Os/ezD83Vz5a9kI+P +j38BH9//n1M9L+oY8XmmlUFqlX6WJqZtt2ROm3VEgr/i6dbeUVlAydeuMh1X +4KOaz0Te6CoI2lnYzt+RA9aVh9hnR41BbET6ykx7CSx9ukhl66gN9D7c7jfR +XguPpI1jeSP2YMkY+jDe3gKly2MEDn73hJl2o6tj7X3wOF8kTKL/NDzZeCev +OecnBIZh8semC6DQW/HFVfMPbDmZk3r+QTKs9HYuXLqRH0fyP8cmlaTBFV3L +qu17BHDwyzbtkg+Z0Hl9Tc24qBAe7zCp6MrOgfi8s68XyophVqKXL8fuNkin +9MclZ0jgCm+eoHHFHYixszFtmZJEpxN+8t2lBSBX2iS3cIEU5tStsP/6sAC4 +EnbTusul8Lh+zouRugJ41+LES1KWwkCLARhtKwDGrkD6LmspfKPm4lE2UQC1 +2zKXvEmTQtHskUYH/UL4YznZ9MpEGkVEzd7zcwrhuHG284tIGXQX7n96MakI +NmcJT2xJkEE/b60tw6lFQF8aGtt0VQaVmJtPWN0qgjdte4tb78pgW7pkxUhh +EWj7r+DvaZLBodKxcYG6IhjMP5n/Q04WDTN21HlNFoHDyu3D8vdlkXWwmX/Q +7h5YjM4G+/bLYa6Ou+udJRw4bZ2y+t/vcrhJ3qe9eTkHuNlaXRJTcug4t0Tw +lygHZOxcjCsE5NHtnn62kTwHvj+on+bXlscHbSlZ53Q4kBx5OTDtlDz2q/0s +376PA32Sqr51QgpYZ1vgysvlgLRftaK0tAK+/y5J2N7lwNbn+195qijg8G3D +m6P3OFAWHK8poq+ABoMODxTLOHChd2zIfr8CsraNXbN8zgG9gqrDozkKKDaj +8KXhGwciTHYdkluniCGXzzzP0OGCtdOtH0bmiij0LClBxIALwuHfzu3ZqogW +P3ytQtdx4eaTqPzLLopYunog29KMCw82V35bEqeIBg+Svt+y5cLYfiLoZ6ci +mj7SmnAM5ILTickLjSFKqLeIPixVygVmqrnCUJQSxgqpNX8t51L5X+IsvayE +Lr8Ciu9XcSH496o35nlKWNk1eNjkCReunnOSrGhUQnzecV+shQuNSc8ybysq +47k3oQKNI1xYz00rPVOtjHdS9EcjGCRYtDf9GXmujK0ptsdC1UjYzrfIyrlF +GY/yMTMDVpPgZuvbCZ+VsS7efH7XGhIsQ2hnwxer4La7Gt3vN5DgrzyVa6ah +gtHjRrsJWxLqDmcOPwlSwd2HPBcGhZBg89tYPDREBd9Evi77EkZC0+U2Q4Nw +FXS5xyV2h5PQWSEYnhengp++kOrKUSSMLA8Uj7qpgnrnO76fu0iCDM/ayLJW +BbO9M16EZ5Hg/Ws8/LkQDR8/bXDb8i8J6495SH0Rp2HLfvqkwxMSBIa6ivhl +aCg8xb3iWU/C7e4n70zpNJQqtZs8/oKEnsdXNf8xpKGYWorPtmYSdkQZd2Q7 +07D5ybdWiY8kKP3l+FS709AmcDDy3ScSvgfR+T940rBf0mFzSj8JsUeWa8sE +0vBHah9zwVcSarZ8OHcxlob7Gq1Us4ZJ0BOP0AkppmFTofrSiRkS+OIn666X +0ZDP7kPWkTkqf/6jB8qqaKjbH+zS8ZsEr0nbqPF6Gnb2TdoVzJOQ18HoPtxF +w8Tpr1djF/IgYFeaf1QvDRcrtUXr8PMAG4SW5A7Q0O+ZtXAb5Q9VU2t6Rmio +FJLVJ7mYB1KZz6Pt+OnUfs5yQpfyYECapRAgQMeT92RcRAV4UHK5uPiSEB1P +W528l015R2T6+wZpyi8+SD4S5EEs21vPTJOOBpmP17Uv58GMhmiP1h46vnCV +0EwT4cFUhlyE/gE6phbO1SwS5cGECJNh7ExHo7U/hHwpj/w0PmrhScd27nSz +sRgP+qrcpg6EUe93zouUifOgV8s3zSWSjjM24wEiEjx4n3nKxCOGjsW5nUke +lN+dS4w8lkRHq/4Li4VX8qBhS7lw7G06On481WImyYNnj/4tTiykI18ZQcRR +rtNptEsm6bjCp1G/ifJjiU/ptyroGHiMkbpLigdVUd9YeY/pOHy0e+gS5QfT +kx8LntDxcEYmXyPlku5lav+8oqO8pXsgS5oH5DbJhsoWKt91/q0BlO9VK/vU +tNOx0SFr6jbl/FyD+y8/0VGTHRe/WIYHuZKwt/kLHd8m7PqrSzkrxmbm3Tc6 +dno5GDlQTvdygr5JOr777fi3gHLqhyN9X2fpeIg8nPiKcsqO41HD83Rsku0a +GKGc9G+Y+s9FBK75DIuFZXlwUT/25S9BAm+vYYyuphx/+4rvX2ECLZLEczdR +jpXOEFu0ksDrYqk0J8pRcXdKBWUJPKtr6hVIOXKueJ+IEoGPPqeEx1I+6/Nw +diVBYHmqums65dDepxly6gRqMGNECymf3tWMKloE9vaaJpRTDnrS3c/UI3B3 +Ys/bWsrH136J1jAi8LDH5PBLyv53xlbpmhDIkJZ420LZV3au0dCMQPvHz+Lb +KXvFL/Y3sSTwwHCueBflI39EJMy3EHjrzrqj/7eHn1yZ1U4Cr7hKJ3dQdvvE +sN+2h0Dm4pbENsouu3V+2x4gMO7r7IEmyo71xpn7nQkca2HM1VM+YGRh7uRO +7deCft8qyvsKtn928yTwqMKLMi5lO3n7WE9fAl+YerVmUt6V6Kbhd5xAgx+O +9Rcpb5/3aQo8ReCkjmFiCOUtx04dCw4jMMAlTsODsnV/5MrwSALbDgxnbae8 +aU9ieVQMgWXuv4YNKJs/Sz0Qn0DgD10zCVnKJkX3sq5dI9B/2X+DXdT37FYp +ytx0g8C9zmlzlZSDrxXcmsik8lPxWpNGuTwi/6ZtAYHDU64Ld1LeO513YwGX +QK2+iCx1yhPeuem8EgIj+++7zlPnT29/1nXhh9T+2VruuUO5+dWt1Ec1BLYr +50Sfouy/MeOadz2Bpf8u7bGizNVOT2loIvBr+RDfJ+q8r1qccjn6E4HeB38x +/lD18jz4yqW1X6j1RcelVFP2GLt8cWCIwPolNO1wynndiQnmEwT+p3r40xxV +jyolMbF/lzAQW8P2fqDqtVotOoaznIFHj/kwkig7ZZyPdhBl4I744yobKd+I +jThfKcvA0AXNedlU/Us5h4QHaTJQZ7f5sDXVH/5pO32WqcvADaJ71o9Q/cNu +86kzbWsZ2JqVXZFE+craE6F6wEDVyPmdrVT/EVrhd2pkFwNHgiLGUZgHiypc +/T1OMpBdu8r/6TKqHrUP+UmGMtB6VFNlB2XzPGffunAGeh0aXPaO6m9nLzl4 +0y8wMCy1+EoP1f9m2XuP9Nxk4My+6uCuJTwYF9/ssreWgc7nTNXOUP23w5v+ +5ugzBnamJBv1LOBBzdNZONvIwA4zEZYJ5cvBRcp33zHQ5uNtuwGqf6/pW9E7 +M8TAm0NSFvGzJPgWv3bMkGDiQ+3O7dKjJOxdfvdVsQwTw+qSaq5R94UpO5z1 +VJGJr4O5+uLfSRCS1VUcVWOiR/gP4s8gCffCr7xHEybuu9yzJ7ePhKEdew4O +uDPRd6P1Fr23JLQUaL385clE2/SS8wGtJFTyL9kg5MdES45VO5e63+LKy+QM +TzNRLHP2lXwTCerKMl0xiUzsDevXePaUhMMjXfs1ypgYWN70172chIEEl70B +S1Xxlea5F8+uUusf0qSvWaGKIsLluqXJJExbzQwPi6qifV+5U0YSCcv4r0R5 +ylFmWK7wSKTyP/2k1EVLFe3SSjvfnCchjK0qsWO3Kv7N0nIROk6ClOn31xqZ +qriIT3ijxjYSsm48uPFfrioWdjxtKNlMwqqZ84fv3FVFx4cmZkbWJJiUKs7T +S1RRor9s3nAjNY+s3qEtV6+KEbSDg2LGJPCkShIEvqni9tfGVw2pecZm9KTN +Z0M19FJOeGvxiwsKukrRAiZqiG0bO3QmuTASUFerYaaGIfsEAqV/cCFlStQk +YIsaOq56EPb+Gxd6/hRozzurocLwy2WmvVwIWPFeQjZODR85tFx1qedC+irs +2dqthnSadavOJWoecxM4XnpWHeWZmYyDslT8WxaPqs+ro88/IdEJklwY7Qxf ++jJOHc9t2itSJcaFHztmbnxKVsfX8WM3RZZxYXrDUJ3wXXVM+qrXcW2WAwtX +Nkp5vlHH/MH9u5W7OSBbd6lSkbYKHVcUxTLSOdT/ivTCmNpVaDig1HiImo/F +X6le5I2uxsIoJ2PNqSJQiCV3GhpqYgSjfqwhrxCuaxiLShzWQj23fDhpWwAN +cmZrfyZpY+d7sQ2RU3dgvULtZZ13Ouil19BY458Pwvw5gYci16C/QlJ25d88 +UIpQNrFX1UWVsFOhBt65IMh0KLN9pouaCYJTRweyQZslS5501MOn+5qEPoRl +QUCP+JPNfPpoKqpmZi5wC0Z/Juyxua6PfwWqPU4cugFWOk/TbbQM8C7794zA +5+vw+OeGuekmA7S7QBfJ2XsNfDX1uprZa1G2vt0+SSYFWCPubfaChsiE6I7x +1iTYxJDZJpRjiHatQlNVVZdAPfzCqVojI+QluTI6tRNgNdu4mtllhHghrbLq +biywHx85X3psHaZ5HVO+WhQF1Vlt7uOSxkgzFrkqVx0JE3fnp3XKjfETs7dG +TDsc3JhFgunb1uP9n8LTXpKhML462bBkbD3+ueHhMD99Eh7kzX2ajN2A1xar +NLenBMIBCwI3KJlg8c8TAoJ3joG8T0yFdo0JDrK/96jX+IDkMu/ibftYmHbp +98B78IS8jWHBY/YsnFseK6Su5Ql6YRc3JjuwUPv9wr9n5Dxh+xjvbcchFib8 +3aOyc/IIRL+bnHHzZmFIbearM0VH4FfOWfPgCBYmBy4eFJA7Al0bklvzi1gI +TGJTwbwHHDmRd9OGy0KJM5G5riMeMMX9h/2dx8KRQ1dl1D54gDi9Y1q3jIVl +Pgt0mys9YIuAosKjGhYuWeMdWRDkAQ/b8t1b37Jw9383v7LH2LBZ+IFWUAcL +awMWMJt62dBh9WJKppuF0vLOdLPXbJio/Bbr9JGFxJEoKysuG7Sy13D+G2Lh +6iLL263ebHjYZRaUMMzCozH6W5McqHgrd4POGAtV326Itd/KBo+YE82Bkyw0 +rrApFNSk4tVEp0v/YqGp4d2ocXk2RM6mulXOsvDVz9aP/cvZIGpQoOn4h4UN +baFlH+fc4ZZP5eT8PAvHlewWDH5zh/8B6kdRRg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06289448827069896}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3372,6 +8309,7 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3399,7 +8337,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06289448827069896}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3407,9 +8346,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913457856953163`*^9}, - CellLabel-> - "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] + CellChangeTimes->{3.9913457856953163`*^9, 3.993918331469925*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"e2680614-98d2-4bda-b4ae-21e481aae9c7"] }, Open ]], Cell[CellGroupData[{ @@ -3462,66 +8400,76 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + "In[100]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 422, 453, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785749161*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.674027049605898`*^-160\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 105, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.993918331534718*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], +In[100]:=",ExpressionUUID->"09194e85-3d5c-48d0-ac29-6142f27a013e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 422, 454, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785759161*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.12220909992833`*^-163\\\", \ +RowBox[{\\\"\ +552513857212233842570175958778312308519209260189278753959051363142168\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1583212683407106418618000954093361543354777600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 106, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.9939183315422983`*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], +In[100]:=",ExpressionUUID->"eef03200-8155-4645-9e6f-07fd7c09382d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 422, 455, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785767502*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4665897454365333`*^-165\\\", \ +RowBox[{\\\"\ +192330073695578600598678251250730514595536743471887934253145779509789\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1163350940137443209261321198991532417980825600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 107, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.9939183315508423`*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +In[100]:=",ExpressionUUID->"8595cde8-a9ac-410c-a4ee-0853c6dac0d4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457857765007`*^9}, +during this calculation.\"", 2, 100, 108, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.993918331557405*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +In[100]:=",ExpressionUUID->"b2c4ffca-c3f8-4605-94aa-02bd5822cb7e"], -Cell[BoxData["10.362747935330768`"], "Output", - CellChangeTimes->{3.991345792196575*^9}, +Cell[BoxData["12.076987980861112`"], "Output", + CellChangeTimes->{3.991345792196575*^9, 3.993918379323977*^9}, CellLabel-> - "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] + "Out[100]=",ExpressionUUID->"d73b0087-df07-4d4c-8b31-e3b7df6ad72c"] }, Open ]], Cell[CellGroupData[{ @@ -3588,68 +8536,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918501903071613`*^9, - 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ -96e59dd43e6a"], + CellChangeTimes->{{3.9918501903071613`*^9, 3.9918501951272774`*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 457, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345792232563*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.695901893837715`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 101, 109, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.993918379375021*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], +In[101]:=",ExpressionUUID->"7386caca-1ee4-4ab0-8552-ef237df8f654"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 458, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345792242544*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1204065162631015`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 101, 110, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.9939183793819647`*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +In[101]:=",ExpressionUUID->"9ea47641-b548-4504-bb9b-b37b6409f674"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 459, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457922505417`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2652106226216078`*^-243\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 101, 111, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.9939183793904*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +In[101]:=",ExpressionUUID->"29bcebd0-3f12-4556-a38d-a89b312205f1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457922595577`*^9}, +during this calculation.\"", 2, 101, 112, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.993918379398487*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +In[101]:=",ExpressionUUID->"80d64a97-e745-4d14-a13b-bdee4f6aed9f"], -Cell[BoxData["0.32136877427435395`"], "Output", - CellChangeTimes->{3.991345799137081*^9}, +Cell[BoxData["0.02081260075373762`"], "Output", + CellChangeTimes->{3.991345799137081*^9, 3.993918385728897*^9}, CellLabel-> - "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] + "Out[101]=",ExpressionUUID->"0c85f023-1d91-436e-a8e8-a3f766ca2267"] }, Open ]], Cell[CellGroupData[{ @@ -3670,8 +8621,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3716,68 +8666,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185020477277*^9, - 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ -d2e0cc5d1484"], + CellChangeTimes->{{3.99185020477277*^9, 3.991850207864538*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 461, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457991730843`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.695901893837715`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 102, 113, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.993918385775045*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], +In[102]:=",ExpressionUUID->"d485bfc0-dd3b-44aa-80c8-32e3d523b758"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 462, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457991830807`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1204065162631015`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 114, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.9939183857823887`*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +In[102]:=",ExpressionUUID->"d2e726ea-085c-48ba-82a2-bf0de5d11b65"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 463, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345799191578*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2652106226216078`*^-243\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 102, 115, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.993918385790011*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +In[102]:=",ExpressionUUID->"a78d3ab0-81f2-4d94-9b3d-33cf85c9e4c6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457992005787`*^9}, +during this calculation.\"", 2, 102, 116, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.993918385797985*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +In[102]:=",ExpressionUUID->"b4bcf81a-ce88-4055-85bd-14884e20370b"], -Cell[BoxData["6.886509882261309`"], "Output", - CellChangeTimes->{3.991345804559931*^9}, +Cell[BoxData["35.75638589836607`"], "Output", + CellChangeTimes->{3.991345804559931*^9, 3.993918391694043*^9}, CellLabel-> - "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] + "Out[102]=",ExpressionUUID->"8ac96486-157f-4469-a4e9-db0e1d833154"] }, Open ]], Cell[CellGroupData[{ @@ -3798,8 +8751,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3844,68 +8796,71 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918502122939777`*^9, - 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ -ca10003188eb"], + CellChangeTimes->{{3.9918502122939777`*^9, 3.991850217343153*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 465, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046014442`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.695901893837715`*^-231\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 103, 117, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.9939183917360907`*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], +In[103]:=",ExpressionUUID->"e04156e6-66a7-404e-9fe3-46debe973c00"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 466, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046114445`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.1204065162631015`*^-237\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 118, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.993918391745181*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +In[103]:=",ExpressionUUID->"bc523c18-9014-4f24-8968-697156c12ff8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 467, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345804619444*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.2652106226216078`*^-243\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 103, 119, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.9939183917537003`*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +In[103]:=",ExpressionUUID->"2a5f6722-f63e-45b4-a6cd-5a9c487cfc44"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046274433`*^9}, +during this calculation.\"", 2, 103, 120, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.993918391761751*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +In[103]:=",ExpressionUUID->"16c695de-fad4-4b71-9053-b8a15039fcd3"], -Cell[BoxData["18.478556086442907`"], "Output", - CellChangeTimes->{3.991345807954506*^9}, +Cell[BoxData["5.277230711529444`"], "Output", + CellChangeTimes->{3.991345807954506*^9, 3.993918395493218*^9}, CellLabel-> - "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] + "Out[103]=",ExpressionUUID->"9ee172de-bb9a-450a-aad4-2d9109955a48"] }, Open ]], Cell[CellGroupData[{ @@ -3914,22 +8869,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991850221900238*^9, - 3.9918502257325497`*^9}},ExpressionUUID->"350334c7-7c47-c24c-8adc-\ -781173809e57"], - -Cell[BoxData["0.028488532115740543`"], "Output", - CellChangeTimes->{3.991345807987507*^9}, + CellChangeTimes->{{3.991850221900238*^9, 3.9918502257325497`*^9}}, CellLabel-> - "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] + "In[104]:=",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], + +Cell[BoxData["0.001515118164143734`"], "Output", + CellChangeTimes->{3.991345807987507*^9, 3.993918395529955*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"ba3821e3-4c62-41c8-a946-f812b97d72b2"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991850228782873*^9, 3.991850231287325*^9}, - 3.9919246253575134`*^9},ExpressionUUID->"597921e5-69d3-564d-a8fa-\ -092e912c15e0"], + 3.9919246253575134`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ @@ -3952,12 +8908,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + "In[106]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.991345808020666*^9}, +Cell[BoxData["8.558724821385`"], "Output", + CellChangeTimes->{3.991345808020666*^9, 3.993918395546699*^9}, CellLabel-> - "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] + "Out[106]=",ExpressionUUID->"993c377b-561c-44a4-99bb-b49da279adfb"] }, Open ]], Cell[CellGroupData[{ @@ -3967,12 +8923,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + "In[107]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913458080616665`*^9}, +Cell[BoxData["1.8002205359855907`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9, 3.993918395557053*^9}, CellLabel-> - "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] + "Out[107]=",ExpressionUUID->"6601911a-f0d8-4a27-a3b9-fbe052d24dbb"] }, Open ]], Cell[CellGroupData[{ @@ -3982,12 +8938,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + "In[108]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.991345808188246*^9}, +Cell[BoxData["15.407592185306886`"], "Output", + CellChangeTimes->{3.991345808188246*^9, 3.993918395566283*^9}, CellLabel-> - "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] + "Out[108]=",ExpressionUUID->"e4a14b6a-f348-48e8-b910-b11acac7318f"] }, Open ]], Cell[CellGroupData[{ @@ -4177,12 +9133,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + "In[109]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[BoxData["0.04214145338799881`"], "Output", - CellChangeTimes->{3.991345808220566*^9}, +Cell[BoxData["0.006248710471016935`"], "Output", + CellChangeTimes->{3.991345808220566*^9, 3.993918395579886*^9}, CellLabel-> - "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] + "Out[109]=",ExpressionUUID->"402bafa6-33fb-4b19-920d-81b1b4d6dcf6"] }, Open ]], Cell[CellGroupData[{ @@ -4196,12 +9152,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + "In[110]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[BoxData["4.317080886816563`"], "Output", - CellChangeTimes->{3.9913458083195686`*^9}, +Cell[BoxData["11.211139059559118`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9, 3.993918395688188*^9}, CellLabel-> - "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] + "Out[110]=",ExpressionUUID->"8c61f411-84ef-486d-b16d-74ee0513cb97"] }, Open ]], Cell[CellGroupData[{ @@ -4393,12 +9349,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + "In[111]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[BoxData["0.012862376162526763`"], "Output", - CellChangeTimes->{3.991345808334568*^9}, +Cell[BoxData["0.05553555016056216`"], "Output", + CellChangeTimes->{3.991345808334568*^9, 3.993918395702816*^9}, CellLabel-> - "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] + "Out[111]=",ExpressionUUID->"8de146df-9669-460d-88b7-cd20aa9f33a0"] }, Open ]], Cell[CellGroupData[{ @@ -4412,12 +9368,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + "In[112]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[BoxData["7.814196669618258`"], "Output", - CellChangeTimes->{3.991345808432392*^9}, +Cell[BoxData["3.760619567031113`"], "Output", + CellChangeTimes->{3.991345808432392*^9, 3.993918395810721*^9}, CellLabel-> - "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] + "Out[112]=",ExpressionUUID->"ecc4a3f4-abbb-4477-89ec-0d3a3c05adac"] }, Open ]], Cell[CellGroupData[{ @@ -4510,12 +9466,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + "In[113]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991345808448488*^9}, +Cell[BoxData["0.11820585579367623`"], "Output", + CellChangeTimes->{3.991345808448488*^9, 3.9939183958212957`*^9}, CellLabel-> - "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] + "Out[113]=",ExpressionUUID->"c658310b-0121-479b-8db8-c858a2db5356"] }, Open ]], Cell[CellGroupData[{ @@ -4605,12 +9561,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + "In[114]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913458084773808`*^9}, +Cell[BoxData["0.8817941442063238`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9, 3.993918395835322*^9}, CellLabel-> - "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] + "Out[114]=",ExpressionUUID->"5d23e91d-d3c9-4cfc-8e4c-d5359ea3b9c9"] }, Open ]], Cell[CellGroupData[{ @@ -4733,12 +9689,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + "In[115]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913458085134735`*^9}, +Cell[BoxData["0.10423323144976085`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9, 3.9939183958465548`*^9}, CellLabel-> - "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] + "Out[115]=",ExpressionUUID->"d6402d33-59e8-4bd3-a339-8616fa9a3e11"] }, Open ]], Cell[CellGroupData[{ @@ -4800,67 +9756,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185025346871*^9},ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], + CellChangeTimes->{3.99185025346871*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 441, - 469, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085463753`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.327215419655424`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 116, 121, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.9939183958619843`*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +In[116]:=",ExpressionUUID->"ca174e0a-85c8-45dc-8e99-0007517eedb1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 441, - 470, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085563755`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.55944054112354`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 116, 122, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.99391839587108*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +In[116]:=",ExpressionUUID->"22c82b48-dd5d-4202-91d5-9232d7dd02a5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 441, 471, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345808564377*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.935699048197833`*^-235\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 116, 123, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.9939183958803577`*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +In[116]:=",ExpressionUUID->"48e0f59f-1f4e-4cda-a280-27f1d416ad09"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085733776`*^9}, +during this calculation.\"", 2, 116, 124, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.993918395889285*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +In[116]:=",ExpressionUUID->"c019fe24-f460-4410-b8ed-7ec96eb83590"], -Cell[BoxData["4.317080886816564`"], "Output", - CellChangeTimes->{3.9913458125059433`*^9}, +Cell[BoxData["11.21113905955911`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9, 3.993918399442944*^9}, CellLabel-> - "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] + "Out[116]=",ExpressionUUID->"468915a9-ca93-4adc-a157-9edf2840899f"] }, Open ]], Cell[CellGroupData[{ @@ -4922,68 +9883,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918502579298553`*^9},ExpressionUUID->"baacd3f7-96e4-2949-b9f9-\ -9afb90e551d9"], + CellChangeTimes->{3.9918502579298553`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 442, - 473, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812542961*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.327215419655424`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 117, 125, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.993918399492456*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +In[117]:=",ExpressionUUID->"b814dd48-e3fa-44e9-9005-74e2525f8a95"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 442, - 474, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812552984*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.55944054112354`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 117, 126, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.993918399500989*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +In[117]:=",ExpressionUUID->"cc6faf11-4161-4ace-9879-6dc8d5676def"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 442, 475, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134581256196*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.935699048197833`*^-235\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 117, 127, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.993918399510398*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +In[117]:=",ExpressionUUID->"c5895287-0cdb-4235-a727-4931eb492817"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812570959*^9}, +during this calculation.\"", 2, 117, 128, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.9939183995183353`*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +In[117]:=",ExpressionUUID->"e5d902d8-35c6-408e-a969-60472f5f5fd0"], -Cell[BoxData["7.8141966696182585`"], "Output", - CellChangeTimes->{3.991345816415531*^9}, +Cell[BoxData["3.760619567031109`"], "Output", + CellChangeTimes->{3.991345816415531*^9, 3.993918402986513*^9}, CellLabel-> - "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] + "Out[117]=",ExpressionUUID->"863a1b85-c844-4946-82f3-d9b3587cff94"] }, Open ]], Cell[CellGroupData[{ @@ -5041,95 +10006,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918502605597496`*^9},ExpressionUUID->"ea08a5a9-d446-9147-ba82-\ -e3924f732df2"], + CellChangeTimes->{3.9918502605597496`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk8Fd0fB3BZSkVZsqes9SNKLlnyON+sJWSpEHm47h1ryPbcKLRIESWE +slVI1igUHo9QWoRKhVLWm2W498rSIv3O/WNe83q/5sznfGbOmVGkBjnQeXl4 +eKbxwT0f79y+ta670/jbu8qtzDkOMp4p0KWalSHnXgVJrgfzdqWpmDUihnj4 +0Bi2He3VSiHKExR7qewi11WMmFYBsw60xrp9HdcXn0o3x5S8RsruT4JHsR91 +H89d0n6HLN4UVY5gT/a/OHmioRdRG/xfDmPLjim7Lph+Qh92bGgbwt7POmkQ +2vEFhe/LzxrEblqaXMsoGUKnVEWsv2C/Py0VVRs4gm6Oen0cwJ5ZaTY5pz2G ++EtvWH7CXnkp2IWyyER/5ddd6cfeJJrz7HjDOLJl1dX2YtvKLRTNmJLIzJnI +6sEm8pUkNQVnkG/fhsNvsGNUD8T5d7DQ2JliVhd2r1TPzrASDtIzjX30Apt2 +xM839dIs6v7UNtGOzc7muVkd+A3ZFLAW2rAFlTRFONrzaO/49ztN2Gm0VksR +iQW0jq93fwO2wh2XmB2LC8jqQm5HHba+xvmZYw3fUazOCO0ets+uLx2Tpkvo +QNwhdh72HCOcf82W3+iXdWTUDezYhrVGaoLLyDrn4sg17EzQL/Xu+INMin2t +krj9Cp+ZhZSsgKZ+o1AGdsnT1MHTcrzQaNI6FsLt+9X9ZMolXojW1Nc9hn1S +ff7+vUA+uPuc5efJ7VupqMzSFgC+lKKde7H7u8mm5dsCkO9flbiH23+27sg6 +iZUwklvZYohdpmN7VXNxJcQ2XGjXwG57FLkioEEQREwea6zHnm99+2XcVAic +/Wfpr75xkJi1kEhUkxDsciroasXW6jEDYQNh0FSmiNRj+43W5O/cvg54B6Yk +irCDeTu0/hISgdUBk5ST2GNKFZy4BVEQFddqUMCeI16s7qKIAc8ipG7A5i1l +KkofF4PFURMTQWwFymaHkikxYCRvVmXNctAR0yvVnYPiUDdFW67H7vIKCZV6 +KQG+n8J59mN/vpOc6CEoCX/K9+81wianSm7fNZcEps82b03sNWEjb3c3S8LT +iPXq67HNzh3U8aiRgjXL19u6ORxUX7BrvjhPBuSDnGytsQvGfkYYhslDQpl0 +iwqbg/Yeiv8cWi4P7/WPgRg22SZuUc6Uhz9jJjf+sDhIp0BDQsFlE1A3nmD2 +YbdR3e8LGG+GzaIWby9hz7IG/xk/qwCHPCQFyRkOEj9m9uC+jRIceDtJXp7m +IGbBGh87PyUwKjT7w8B++Klbbvq8EqwRp854YrtZHz27pVkJgn+xqRTsgm0R +DlnaysC2zy/sIfH8k3fY0VIqYCjomiqCfdB7rabVkCq4MwoVAyc5CEUc0nb6 +rQpzE6VHHLHV4/L0aDJbICtNMUQfm+c2xSTafgv0jdKMeLHLP7s6VT/eAjJ2 +acZpE/j7PFx2WvbWVsi7/vVX1TjuZ2bzfpKqBu0tycd6mBx02zHj42K0GkSY +156owU6mDg3y31CDeEYh7Ro2LTZ8atNbNbDsYr53whZtzOFxNFUHK8F9mn1j +eP9QZtQblLdBorBOwbtRDpJTuhyTOKoBGnkXumuGOagxYU7tB68msEynmi9j +u31z6SEUNUFlqDzBFzu3TUXNxF0TtJVoJRuxlbzr33z/oAn/hAvLnR7Cz1s2 +pkq83A6s5i1PTAY5SF5uE6HgogUGIeOudwc4SKMwTOgX0oay3n+z+Xs5iEo7 +O69pqw1JYm56vR/w96p89bOHmzaIy3lUlWLz3aq895ShDQsdJaYO2P25kwev +VmmD56vWoZz3+H+a6ZGjpkyBiefvV+14h9c30Xq780odqCIrZQ3ecNDNEBW7 +mg5d+LK8y336JQd1RyC9c4UGEG515caNRg5SdH9nezTgL7gbxeE7VspB9D+1 +FfInAEaSRdZey+IgqamHq6SoJhChFXmCeo6DwihGn66qm0HqCs/mxUDcf3rp +mfikOWzKDgxPccbraRK6Kq/LEhjVy2U9xnj/zPk9LkvbBzqm/kXXVTno+x7p +V20x+0G+OmlIajUHDfDwcYY8bcDX+ZWuBMlGgRuDrpxWPgCZlONaJt1sVOH7 +rDk9zg4Iz4BYehUbRX6TWdzmaw/SnXwUqTQ2mreyONz+twMov0gqnQ1lIwPX +lD1j9o7Ay5vguvUgG72RyfFroxwElHkp1W8XG8kWnW0s/t8h+EJzaNktyUYP +B9WtbYUPw2bn+foGNgtt6mF7R0wfhklmkeK/tSxESU8puz3oBJGOktXVDBbK +4f+2/WqrMzRND7u/RyxUu2dHf9wjF4i9duZoCh8LZeoliC6VHIHaioX+pecz +qOtj4XnKJVco2dt1eSh9BtXYZKsEx7qBwbGXFjZ/zyDOMUeeQNpR0D91v99+ ++wyat1DzmTF1h/wMKd69PDOoeLrve+iuv+HOgIdjRfc0cr5Z6HVUyAM+iIzU +ZBVNo/vV+//mi/eAz+wfnMKoaWQg9+bHxR8eEBBdUqd6eBopD3r3v/b1hHN5 +/mUTlGk0utb/QPaIJzzcmbD5vug06k629bI8RIUn5jvj0+dIlMbIWxveTYWi +lnsPNXpJ1Nj054fXPi8QWWU3ev4/Eq13g3hKvRfksnTsokpJpLChvWtjoxcM +8R+oUcfW6rCRXtnkBf0a9+z6S0jkYOR6t/exFzzUcVQ3xE7bGPHy1HMvWFYJ +8F0qJpHsQOn6Z71esCGIKpNYRCIVd6lMt0UvWEC1jq9vksjAY6Y4TocGwhM3 +nqzIIlFRFjvUdhcNFhJ1TVozSbTh7ayxlD4NmmorZ85hz5gv9hTvpsE6U5sP +gtgF23hWdJjQYKMe9atYBonWLYq6iNnj8Uev8Wulk2g0SXd13jEazBhOoeQU +Etm36/V4B9FgBa9a4yHsJh7DPK3jNAi3OO0jj50VaqzbEkaD/zZesC+/QiJb +F0vPsSgatJ3aRO+6TKJHKi6PtiXQoGV8NHVjMomSG076PiyiQXvKX3IfE0h0 +TDvDgFFMg9d9uTfuYlvfrVqtX0KDRwMBVgzsNRnMu3XlNKjrPEiRxI4LsZus +fUCDuaUo7YMXSXRSTcW/poUGCSoeX3vjSeSX8TKg+jMNThv/1BGII9G+dUyj +kEEauO7Jjus7R6L/xfEIaw/TIPHXO/4KbGaIbnnVGA02ZEhcdsL2tM2bvkfS +4IfK+JuysyRyFggNrPxJg1W9U9IeZ0hkGSobXCZJhy6HiqKJGBK15J23uipN +h/Sg7IxmbKOOWRWGLB0ujyT/l4Gtpfqyz3QTHSTszz+wwJb5EGX6UZUOaofH +tO9Ek2jKcEByjS4dvLySz4ScItFl3vx/vR3pcNIkKkI7Cj//DqFMm0N0aNga +aSWCfc6VEUJxwvM1Fx6aiSQR44Hd1j9H6HA+K160FNuTWJFyjUqH1IPpm7di +U15QaU+O0+GCfGe62gkSfUhRXat8hQ7Xg35xnP4hUQUS9hlPocOpgepoY+xz +03Nt5al0qElM2a2Krb2vLVo/gw7+me3m3yLw+vF4zdrk0uF5qXp2CrZFUH4f +o4wOT/t87T+Ek0he/sIu4wo6gPvkYDP23IugVL57dNhqmJNfgn1rC7JJvk+H +1UnZ96Kxfw8MNN+up0OKm7i4GvYDa7nizmc4j+03fD6MRIk/eQXSXtBh2N01 +PBSbWjzp6dJBB+J1vL4Htgh/vdxoF+7/+9oBQ+yABufLP97TQb4up5kdSiJl +9WsRKmP4/Ru3VBDYPz+cejvBpEPmq2rzw9jdcXStynE66BZ+FbLAjh7SmTQg +6ZAmpKCxBbs/8+3RA9/o8D6ht3w8hERXV4maR64ggE/xRVMEduPsgGsYHwFh +7pmd3thfB0pCAgUIeFCVJuuCbfTALJ+6moDlGhlvI2ymB+OXlSgBK+K83ghg +i1ibi5mLE2DTea/1+3ES7dYTU0MSBChv1+JMYV8RLjtMkSHg56p2nrfc6/Vf +quQUCRhP9Jy9jU0Ulj2TUCZgaXn/k0zu+CsnvqxXxf7t35OEzSTEhfnVCBjW +sr3D4F4Xt/QhtQiInizcbI9dvywew9Qm4OF+yx5L7LGJwfRBHQJWKis+McY2 +bI5s7dEnQDo2xlUTezSgYtO/QMD8JdYRYex1zlG6dSYELFge5QhgG5juta4y +IyChV6BtORjvF5nhE4V7CXCLFdzEwX7IX3klz4oAHwmvwknsEVbUnSxrAk5H +/fAZxdZ/KvEuyY4A29z+gl5satXwVLwDAQHtqvJvsZOyK3nPHCQg/Hr561fY +wyH7tCKcCRhdDmW1Ygu7S1oGH8Hjp6qd/+Pm7Rs56udGwJTejuV67v2bTyW6 +exAgc3nwdzW3zxqrW85UnDci4VzJzZuXfORAIwC2XZwp5eYNjXRZEwQ8jzN8 +XMzN67jHtPAhIF5EvbuQ26/u1G/ww/MxneRuc/NvWW3YHUBApELbrXxufpLU +Nt1AArzfBRK53HzG6J4dwQR0yjgT2dhCtCpntRACZHlib13H1jsQHaQcRkBO +JlM2i5tvuP+8fAQBgZzErgzsS6rSOVIMApwkg5uvYdeKjN0XjSTAUjR1Oh17 +6FfVi7UnCXg0MXeYa6Gv0UMC0Xg9C9OX0rB3vdn//U8MASUW4Z+5/j9Jf1qq + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5143,107 +10108,107 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= +1:eJwV1Hk8Fd0fB3BZSkVZsqes9SNKLlnyON+sJWSpEHm47h1ryPbcKLRIESWE +slVI1igUHo9QWoRKhVLWm2W498rSIv3O/WNe83q/5sznfGbOmVGkBjnQeXl4 +eKbxwT0f79y+ta670/jbu8qtzDkOMp4p0KWalSHnXgVJrgfzdqWpmDUihnj4 +0Bi2He3VSiHKExR7qewi11WMmFYBsw60xrp9HdcXn0o3x5S8RsruT4JHsR91 +H89d0n6HLN4UVY5gT/a/OHmioRdRG/xfDmPLjim7Lph+Qh92bGgbwt7POmkQ +2vEFhe/LzxrEblqaXMsoGUKnVEWsv2C/Py0VVRs4gm6Oen0cwJ5ZaTY5pz2G ++EtvWH7CXnkp2IWyyER/5ddd6cfeJJrz7HjDOLJl1dX2YtvKLRTNmJLIzJnI +6sEm8pUkNQVnkG/fhsNvsGNUD8T5d7DQ2JliVhd2r1TPzrASDtIzjX30Apt2 +xM839dIs6v7UNtGOzc7muVkd+A3ZFLAW2rAFlTRFONrzaO/49ztN2Gm0VksR +iQW0jq93fwO2wh2XmB2LC8jqQm5HHba+xvmZYw3fUazOCO0ets+uLx2Tpkvo +QNwhdh72HCOcf82W3+iXdWTUDezYhrVGaoLLyDrn4sg17EzQL/Xu+INMin2t +krj9Cp+ZhZSsgKZ+o1AGdsnT1MHTcrzQaNI6FsLt+9X9ZMolXojW1Nc9hn1S +ff7+vUA+uPuc5efJ7VupqMzSFgC+lKKde7H7u8mm5dsCkO9flbiH23+27sg6 +iZUwklvZYohdpmN7VXNxJcQ2XGjXwG57FLkioEEQREwea6zHnm99+2XcVAic +/Wfpr75xkJi1kEhUkxDsciroasXW6jEDYQNh0FSmiNRj+43W5O/cvg54B6Yk +irCDeTu0/hISgdUBk5ST2GNKFZy4BVEQFddqUMCeI16s7qKIAc8ipG7A5i1l +KkofF4PFURMTQWwFymaHkikxYCRvVmXNctAR0yvVnYPiUDdFW67H7vIKCZV6 +KQG+n8J59mN/vpOc6CEoCX/K9+81wianSm7fNZcEps82b03sNWEjb3c3S8LT +iPXq67HNzh3U8aiRgjXL19u6ORxUX7BrvjhPBuSDnGytsQvGfkYYhslDQpl0 +iwqbg/Yeiv8cWi4P7/WPgRg22SZuUc6Uhz9jJjf+sDhIp0BDQsFlE1A3nmD2 +YbdR3e8LGG+GzaIWby9hz7IG/xk/qwCHPCQFyRkOEj9m9uC+jRIceDtJXp7m +IGbBGh87PyUwKjT7w8B++Klbbvq8EqwRp854YrtZHz27pVkJgn+xqRTsgm0R +DlnaysC2zy/sIfH8k3fY0VIqYCjomiqCfdB7rabVkCq4MwoVAyc5CEUc0nb6 +rQpzE6VHHLHV4/L0aDJbICtNMUQfm+c2xSTafgv0jdKMeLHLP7s6VT/eAjJ2 +acZpE/j7PFx2WvbWVsi7/vVX1TjuZ2bzfpKqBu0tycd6mBx02zHj42K0GkSY +156owU6mDg3y31CDeEYh7Ro2LTZ8atNbNbDsYr53whZtzOFxNFUHK8F9mn1j +eP9QZtQblLdBorBOwbtRDpJTuhyTOKoBGnkXumuGOagxYU7tB68msEynmi9j +u31z6SEUNUFlqDzBFzu3TUXNxF0TtJVoJRuxlbzr33z/oAn/hAvLnR7Cz1s2 +pkq83A6s5i1PTAY5SF5uE6HgogUGIeOudwc4SKMwTOgX0oay3n+z+Xs5iEo7 +O69pqw1JYm56vR/w96p89bOHmzaIy3lUlWLz3aq895ShDQsdJaYO2P25kwev +VmmD56vWoZz3+H+a6ZGjpkyBiefvV+14h9c30Xq780odqCIrZQ3ecNDNEBW7 +mg5d+LK8y336JQd1RyC9c4UGEG515caNRg5SdH9nezTgL7gbxeE7VspB9D+1 +FfInAEaSRdZey+IgqamHq6SoJhChFXmCeo6DwihGn66qm0HqCs/mxUDcf3rp +mfikOWzKDgxPccbraRK6Kq/LEhjVy2U9xnj/zPk9LkvbBzqm/kXXVTno+x7p +V20x+0G+OmlIajUHDfDwcYY8bcDX+ZWuBMlGgRuDrpxWPgCZlONaJt1sVOH7 +rDk9zg4Iz4BYehUbRX6TWdzmaw/SnXwUqTQ2mreyONz+twMov0gqnQ1lIwPX +lD1j9o7Ay5vguvUgG72RyfFroxwElHkp1W8XG8kWnW0s/t8h+EJzaNktyUYP +B9WtbYUPw2bn+foGNgtt6mF7R0wfhklmkeK/tSxESU8puz3oBJGOktXVDBbK +4f+2/WqrMzRND7u/RyxUu2dHf9wjF4i9duZoCh8LZeoliC6VHIHaioX+pecz +qOtj4XnKJVco2dt1eSh9BtXYZKsEx7qBwbGXFjZ/zyDOMUeeQNpR0D91v99+ ++wyat1DzmTF1h/wMKd69PDOoeLrve+iuv+HOgIdjRfc0cr5Z6HVUyAM+iIzU +ZBVNo/vV+//mi/eAz+wfnMKoaWQg9+bHxR8eEBBdUqd6eBopD3r3v/b1hHN5 +/mUTlGk0utb/QPaIJzzcmbD5vug06k629bI8RIUn5jvj0+dIlMbIWxveTYWi +lnsPNXpJ1Nj054fXPi8QWWU3ev4/Eq13g3hKvRfksnTsokpJpLChvWtjoxcM +8R+oUcfW6rCRXtnkBf0a9+z6S0jkYOR6t/exFzzUcVQ3xE7bGPHy1HMvWFYJ +8F0qJpHsQOn6Z71esCGIKpNYRCIVd6lMt0UvWEC1jq9vksjAY6Y4TocGwhM3 +nqzIIlFRFjvUdhcNFhJ1TVozSbTh7ayxlD4NmmorZ85hz5gv9hTvpsE6U5sP +gtgF23hWdJjQYKMe9atYBonWLYq6iNnj8Uev8Wulk2g0SXd13jEazBhOoeQU +Etm36/V4B9FgBa9a4yHsJh7DPK3jNAi3OO0jj50VaqzbEkaD/zZesC+/QiJb +F0vPsSgatJ3aRO+6TKJHKi6PtiXQoGV8NHVjMomSG076PiyiQXvKX3IfE0h0 +TDvDgFFMg9d9uTfuYlvfrVqtX0KDRwMBVgzsNRnMu3XlNKjrPEiRxI4LsZus +fUCDuaUo7YMXSXRSTcW/poUGCSoeX3vjSeSX8TKg+jMNThv/1BGII9G+dUyj +kEEauO7Jjus7R6L/xfEIaw/TIPHXO/4KbGaIbnnVGA02ZEhcdsL2tM2bvkfS +4IfK+JuysyRyFggNrPxJg1W9U9IeZ0hkGSobXCZJhy6HiqKJGBK15J23uipN +h/Sg7IxmbKOOWRWGLB0ujyT/l4Gtpfqyz3QTHSTszz+wwJb5EGX6UZUOaofH +tO9Ek2jKcEByjS4dvLySz4ScItFl3vx/vR3pcNIkKkI7Cj//DqFMm0N0aNga +aSWCfc6VEUJxwvM1Fx6aiSQR44Hd1j9H6HA+K160FNuTWJFyjUqH1IPpm7di +U15QaU+O0+GCfGe62gkSfUhRXat8hQ7Xg35xnP4hUQUS9hlPocOpgepoY+xz +03Nt5al0qElM2a2Krb2vLVo/gw7+me3m3yLw+vF4zdrk0uF5qXp2CrZFUH4f +o4wOT/t87T+Ek0he/sIu4wo6gPvkYDP23IugVL57dNhqmJNfgn1rC7JJvk+H +1UnZ96Kxfw8MNN+up0OKm7i4GvYDa7nizmc4j+03fD6MRIk/eQXSXtBh2N01 +PBSbWjzp6dJBB+J1vL4Htgh/vdxoF+7/+9oBQ+yABufLP97TQb4up5kdSiJl +9WsRKmP4/Ru3VBDYPz+cejvBpEPmq2rzw9jdcXStynE66BZ+FbLAjh7SmTQg +6ZAmpKCxBbs/8+3RA9/o8D6ht3w8hERXV4maR64ggE/xRVMEduPsgGsYHwFh +7pmd3thfB0pCAgUIeFCVJuuCbfTALJ+6moDlGhlvI2ymB+OXlSgBK+K83ghg +i1ibi5mLE2DTea/1+3ES7dYTU0MSBChv1+JMYV8RLjtMkSHg56p2nrfc6/Vf +quQUCRhP9Jy9jU0Ulj2TUCZgaXn/k0zu+CsnvqxXxf7t35OEzSTEhfnVCBjW +sr3D4F4Xt/QhtQiInizcbI9dvywew9Qm4OF+yx5L7LGJwfRBHQJWKis+McY2 +bI5s7dEnQDo2xlUTezSgYtO/QMD8JdYRYex1zlG6dSYELFge5QhgG5juta4y +IyChV6BtORjvF5nhE4V7CXCLFdzEwX7IX3klz4oAHwmvwknsEVbUnSxrAk5H +/fAZxdZ/KvEuyY4A29z+gl5satXwVLwDAQHtqvJvsZOyK3nPHCQg/Hr561fY +wyH7tCKcCRhdDmW1Ygu7S1oGH8Hjp6qd/+Pm7Rs56udGwJTejuV67v2bTyW6 +exAgc3nwdzW3zxqrW85UnDci4VzJzZuXfORAIwC2XZwp5eYNjXRZEwQ8jzN8 +XMzN67jHtPAhIF5EvbuQ26/u1G/ww/MxneRuc/NvWW3YHUBApELbrXxufpLU +Nt1AArzfBRK53HzG6J4dwQR0yjgT2dhCtCpntRACZHlib13H1jsQHaQcRkBO +JlM2i5tvuP+8fAQBgZzErgzsS6rSOVIMApwkg5uvYdeKjN0XjSTAUjR1Oh17 +6FfVi7UnCXg0MXeYa6Gv0UMC0Xg9C9OX0rB3vdn//U8MASUW4Z+5/j9Jf1qq + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.8887428612599326, + 1.1222898054378418`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.8887428612599346}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5255,21 +10220,21 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.8887428612599326, + 1.1222898054378418`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.8887428612599346}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5283,105 +10248,105 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= +1:eJwV1Hk8Fd0fB3BZSkVZsqes9SNKLlnyON+sJWSpEHm47h1ryPbcKLRIESWE +slVI1igUHo9QWoRKhVLWm2W498rSIv3O/WNe83q/5sznfGbOmVGkBjnQeXl4 +eKbxwT0f79y+ta670/jbu8qtzDkOMp4p0KWalSHnXgVJrgfzdqWpmDUihnj4 +0Bi2He3VSiHKExR7qewi11WMmFYBsw60xrp9HdcXn0o3x5S8RsruT4JHsR91 +H89d0n6HLN4UVY5gT/a/OHmioRdRG/xfDmPLjim7Lph+Qh92bGgbwt7POmkQ +2vEFhe/LzxrEblqaXMsoGUKnVEWsv2C/Py0VVRs4gm6Oen0cwJ5ZaTY5pz2G ++EtvWH7CXnkp2IWyyER/5ddd6cfeJJrz7HjDOLJl1dX2YtvKLRTNmJLIzJnI +6sEm8pUkNQVnkG/fhsNvsGNUD8T5d7DQ2JliVhd2r1TPzrASDtIzjX30Apt2 +xM839dIs6v7UNtGOzc7muVkd+A3ZFLAW2rAFlTRFONrzaO/49ztN2Gm0VksR +iQW0jq93fwO2wh2XmB2LC8jqQm5HHba+xvmZYw3fUazOCO0ets+uLx2Tpkvo +QNwhdh72HCOcf82W3+iXdWTUDezYhrVGaoLLyDrn4sg17EzQL/Xu+INMin2t +krj9Cp+ZhZSsgKZ+o1AGdsnT1MHTcrzQaNI6FsLt+9X9ZMolXojW1Nc9hn1S +ff7+vUA+uPuc5efJ7VupqMzSFgC+lKKde7H7u8mm5dsCkO9flbiH23+27sg6 +iZUwklvZYohdpmN7VXNxJcQ2XGjXwG57FLkioEEQREwea6zHnm99+2XcVAic +/Wfpr75xkJi1kEhUkxDsciroasXW6jEDYQNh0FSmiNRj+43W5O/cvg54B6Yk +irCDeTu0/hISgdUBk5ST2GNKFZy4BVEQFddqUMCeI16s7qKIAc8ipG7A5i1l +KkofF4PFURMTQWwFymaHkikxYCRvVmXNctAR0yvVnYPiUDdFW67H7vIKCZV6 +KQG+n8J59mN/vpOc6CEoCX/K9+81wianSm7fNZcEps82b03sNWEjb3c3S8LT +iPXq67HNzh3U8aiRgjXL19u6ORxUX7BrvjhPBuSDnGytsQvGfkYYhslDQpl0 +iwqbg/Yeiv8cWi4P7/WPgRg22SZuUc6Uhz9jJjf+sDhIp0BDQsFlE1A3nmD2 +YbdR3e8LGG+GzaIWby9hz7IG/xk/qwCHPCQFyRkOEj9m9uC+jRIceDtJXp7m +IGbBGh87PyUwKjT7w8B++Klbbvq8EqwRp854YrtZHz27pVkJgn+xqRTsgm0R +DlnaysC2zy/sIfH8k3fY0VIqYCjomiqCfdB7rabVkCq4MwoVAyc5CEUc0nb6 +rQpzE6VHHLHV4/L0aDJbICtNMUQfm+c2xSTafgv0jdKMeLHLP7s6VT/eAjJ2 +acZpE/j7PFx2WvbWVsi7/vVX1TjuZ2bzfpKqBu0tycd6mBx02zHj42K0GkSY +156owU6mDg3y31CDeEYh7Ro2LTZ8atNbNbDsYr53whZtzOFxNFUHK8F9mn1j +eP9QZtQblLdBorBOwbtRDpJTuhyTOKoBGnkXumuGOagxYU7tB68msEynmi9j +u31z6SEUNUFlqDzBFzu3TUXNxF0TtJVoJRuxlbzr33z/oAn/hAvLnR7Cz1s2 +pkq83A6s5i1PTAY5SF5uE6HgogUGIeOudwc4SKMwTOgX0oay3n+z+Xs5iEo7 +O69pqw1JYm56vR/w96p89bOHmzaIy3lUlWLz3aq895ShDQsdJaYO2P25kwev +VmmD56vWoZz3+H+a6ZGjpkyBiefvV+14h9c30Xq780odqCIrZQ3ecNDNEBW7 +mg5d+LK8y336JQd1RyC9c4UGEG515caNRg5SdH9nezTgL7gbxeE7VspB9D+1 +FfInAEaSRdZey+IgqamHq6SoJhChFXmCeo6DwihGn66qm0HqCs/mxUDcf3rp +mfikOWzKDgxPccbraRK6Kq/LEhjVy2U9xnj/zPk9LkvbBzqm/kXXVTno+x7p +V20x+0G+OmlIajUHDfDwcYY8bcDX+ZWuBMlGgRuDrpxWPgCZlONaJt1sVOH7 +rDk9zg4Iz4BYehUbRX6TWdzmaw/SnXwUqTQ2mreyONz+twMov0gqnQ1lIwPX +lD1j9o7Ay5vguvUgG72RyfFroxwElHkp1W8XG8kWnW0s/t8h+EJzaNktyUYP +B9WtbYUPw2bn+foGNgtt6mF7R0wfhklmkeK/tSxESU8puz3oBJGOktXVDBbK +4f+2/WqrMzRND7u/RyxUu2dHf9wjF4i9duZoCh8LZeoliC6VHIHaioX+pecz +qOtj4XnKJVco2dt1eSh9BtXYZKsEx7qBwbGXFjZ/zyDOMUeeQNpR0D91v99+ ++wyat1DzmTF1h/wMKd69PDOoeLrve+iuv+HOgIdjRfc0cr5Z6HVUyAM+iIzU +ZBVNo/vV+//mi/eAz+wfnMKoaWQg9+bHxR8eEBBdUqd6eBopD3r3v/b1hHN5 +/mUTlGk0utb/QPaIJzzcmbD5vug06k629bI8RIUn5jvj0+dIlMbIWxveTYWi +lnsPNXpJ1Nj054fXPi8QWWU3ev4/Eq13g3hKvRfksnTsokpJpLChvWtjoxcM +8R+oUcfW6rCRXtnkBf0a9+z6S0jkYOR6t/exFzzUcVQ3xE7bGPHy1HMvWFYJ +8F0qJpHsQOn6Z71esCGIKpNYRCIVd6lMt0UvWEC1jq9vksjAY6Y4TocGwhM3 +nqzIIlFRFjvUdhcNFhJ1TVozSbTh7ayxlD4NmmorZ85hz5gv9hTvpsE6U5sP +gtgF23hWdJjQYKMe9atYBonWLYq6iNnj8Uev8Wulk2g0SXd13jEazBhOoeQU +Etm36/V4B9FgBa9a4yHsJh7DPK3jNAi3OO0jj50VaqzbEkaD/zZesC+/QiJb +F0vPsSgatJ3aRO+6TKJHKi6PtiXQoGV8NHVjMomSG076PiyiQXvKX3IfE0h0 +TDvDgFFMg9d9uTfuYlvfrVqtX0KDRwMBVgzsNRnMu3XlNKjrPEiRxI4LsZus +fUCDuaUo7YMXSXRSTcW/poUGCSoeX3vjSeSX8TKg+jMNThv/1BGII9G+dUyj +kEEauO7Jjus7R6L/xfEIaw/TIPHXO/4KbGaIbnnVGA02ZEhcdsL2tM2bvkfS +4IfK+JuysyRyFggNrPxJg1W9U9IeZ0hkGSobXCZJhy6HiqKJGBK15J23uipN +h/Sg7IxmbKOOWRWGLB0ujyT/l4Gtpfqyz3QTHSTszz+wwJb5EGX6UZUOaofH +tO9Ek2jKcEByjS4dvLySz4ScItFl3vx/vR3pcNIkKkI7Cj//DqFMm0N0aNga +aSWCfc6VEUJxwvM1Fx6aiSQR44Hd1j9H6HA+K160FNuTWJFyjUqH1IPpm7di +U15QaU+O0+GCfGe62gkSfUhRXat8hQ7Xg35xnP4hUQUS9hlPocOpgepoY+xz +03Nt5al0qElM2a2Krb2vLVo/gw7+me3m3yLw+vF4zdrk0uF5qXp2CrZFUH4f +o4wOT/t87T+Ek0he/sIu4wo6gPvkYDP23IugVL57dNhqmJNfgn1rC7JJvk+H +1UnZ96Kxfw8MNN+up0OKm7i4GvYDa7nizmc4j+03fD6MRIk/eQXSXtBh2N01 +PBSbWjzp6dJBB+J1vL4Htgh/vdxoF+7/+9oBQ+yABufLP97TQb4up5kdSiJl +9WsRKmP4/Ru3VBDYPz+cejvBpEPmq2rzw9jdcXStynE66BZ+FbLAjh7SmTQg +6ZAmpKCxBbs/8+3RA9/o8D6ht3w8hERXV4maR64ggE/xRVMEduPsgGsYHwFh +7pmd3thfB0pCAgUIeFCVJuuCbfTALJ+6moDlGhlvI2ymB+OXlSgBK+K83ghg +i1ibi5mLE2DTea/1+3ES7dYTU0MSBChv1+JMYV8RLjtMkSHg56p2nrfc6/Vf +quQUCRhP9Jy9jU0Ulj2TUCZgaXn/k0zu+CsnvqxXxf7t35OEzSTEhfnVCBjW +sr3D4F4Xt/QhtQiInizcbI9dvywew9Qm4OF+yx5L7LGJwfRBHQJWKis+McY2 +bI5s7dEnQDo2xlUTezSgYtO/QMD8JdYRYex1zlG6dSYELFge5QhgG5juta4y +IyChV6BtORjvF5nhE4V7CXCLFdzEwX7IX3klz4oAHwmvwknsEVbUnSxrAk5H +/fAZxdZ/KvEuyY4A29z+gl5satXwVLwDAQHtqvJvsZOyK3nPHCQg/Hr561fY +wyH7tCKcCRhdDmW1Ygu7S1oGH8Hjp6qd/+Pm7Rs56udGwJTejuV67v2bTyW6 +exAgc3nwdzW3zxqrW85UnDci4VzJzZuXfORAIwC2XZwp5eYNjXRZEwQ8jzN8 +XMzN67jHtPAhIF5EvbuQ26/u1G/ww/MxneRuc/NvWW3YHUBApELbrXxufpLU +Nt1AArzfBRK53HzG6J4dwQR0yjgT2dhCtCpntRACZHlib13H1jsQHaQcRkBO +JlM2i5tvuP+8fAQBgZzErgzsS6rSOVIMApwkg5uvYdeKjN0XjSTAUjR1Oh17 +6FfVi7UnCXg0MXeYa6Gv0UMC0Xg9C9OX0rB3vdn//U8MASUW4Z+5/j9Jf1qq + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "PlotRange" -> {{0, 180}, {0.8887428612599326, 1.1222898054378418`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8887428612599346}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5391,7 +10356,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.4834141591801878}, + AxesOrigin->{0, 0.8887428612599346}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5419,7 +10385,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8887428612599326, 1.1222898054378418`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5427,9 +10394,9 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913460797739086`*^9}, + CellChangeTimes->{3.9913460797739086`*^9, 3.993918699017208*^9}, CellLabel-> - "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] + "Out[118]=",ExpressionUUID->"98817243-97ec-4a34-b150-d7c1a5bbd9ec"] }, Open ]], Cell[CellGroupData[{ @@ -5492,207 +10459,159 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918502644064465`*^9, - 3.9918502684162617`*^9}},ExpressionUUID->"42ddbf41-0bd8-b749-bead-\ -56c89a9b7467"], + CellChangeTimes->{{3.9918502644064465`*^9, 3.9918502684162617`*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.284892357225496`*^-268\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 129, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993918699160939*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"28d59419-7741-430f-b5ba-20a025a11f7c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.000797901962639`*^-280\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 130, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993918699169236*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"767decf2-bd24-4e6b-9af3-8c47ae954ca7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3464144019679595`*^-292\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 444, - 477, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080016945*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 131, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.9939186991778927`*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 444, 478, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080026985*^9}, - CellLabel-> - "During evaluation of \ -In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 444, 479, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913460800358925`*^9}, - CellLabel-> - "During evaluation of \ -In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +In[119]:=",ExpressionUUID->"df589d29-8ef6-43d3-80c3-85e154eda6de"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080043894*^9}, +during this calculation.\"", 2, 119, 132, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993918699186282*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +In[119]:=",ExpressionUUID->"310feb34-1c11-4d51-ba44-78aa4e07c2d3"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VV0XAHBRoQwh83TPvRdvhWTMcK2llCmKuMhYhmggU6KSoUFRVFI0 +KKQyntNgSINQSimVMvSl0sArhAyVyrff8895fs85z9777L32WvtQG8JdggQF +yDVDQOC/+0T3o0ZuWqHl1N1NAZFhaNl2TiHOqiMZUmYsDTXWUAOUfbZBoeMY +TO9qSR/h6sL2NcXtQh35sD4mRaORawlSQ/LHfrZfBYf+L4eTuE7w7pZT+Fh7 +PXRo3bhBc3xhJbf/7Uj7C0jbbepwiBUGP9tNTgy398CExPEVgvMToGH5pcLn ++d/h4aHtooOqGaDyrubLBu0/YN8fcvhKVzbM3+JXLLxcCJcP33AMrDoLx5as +rHVyE8F4uXDldN986DylVzcyTxyNZJNHHUMuQlrhnmeCilIo1/Om3y34Mshn +fTx4/KwMGgu+SpITKAGFRTf2/iiSwRy5mt3qoiWgVL9/jw8tg11KRpEc6RJQ +G14Qo9Ugg32DIajCLQGNVdv8a/tkcEX6MpfnNiVgMPOP8UeD+ag4NOhqe6QE +VkfLfdJvno8JzVERG+RL4YCrneWLCVlsS0IhKaUyULr+VElwhhzyoMksll0G +5TKuk0vmyqHavWVW7QvL4PULX/qouhw+11tVtde8DLjO0WxnWzmM8MvQOeFd +BvWOebNbc+TQ+ZJuXNrZMvizcvxpi4U8cjvKmSalcogyveD3KFkBD7qdHuQL +VoD9eYkxh3QFNL6S+qpSpALYwrtSn55QwPt0/xIpyQpobeMzLy8roIJy9cob +yhWgu01MqPupApoYJ7ffNKyAvqLYolElRRydG7u2NqgCvOc7DSpfU8RATdHJ +jIYKMNhZm3TuliJmfef08h5VwJyef+SoB4oY/oVj/eVpBdRUCIFmpyIyho7W +ml0VIOdQk6k3rYh+jWOeAcOk/ySu4QoHJVRzvdTTJ06D9bdf8WEflZDveDkf +TGiIs81aeG9ACZUqB1/QpjSUX9DpkplQwlG7j67qFjQouPqb1ogo4wJq2nEM +aRiovj8ppKuMP/SF5BLsaTienBmds0MZ6zhfhKV8aOiR1QxrFFfBINGhQcNE +GuTD76rKy6tghohXxJpkGlY99GgJZalgfPVr29C9NFTGp2lLGqjgZHjM2LFU +Gg69G+739FDBAtfXVg8yadC/UrvxW74Kduacf1l6noYkC+f1SktVMXpl+tf4 +OzTY+p4bNVmmim93lVZvrKNBIvFritsqVZRafzfYuZ6GMw37ijL9VXH2vcfB +yg9oqLa/+XX2QVV8r6L492ALDcMenO3fO1XxvlTwo+dvaKiK3yYs9UkVGwrX +NqW/pSHhzO1TukOqeOZvZ7H1OxrE3rvXhgqqofGbX5ySHhq0NqYLvF+ohtsN +7/e6/EuDb8z4oSc71TDYaamgxAQNGieXqfTvU8PsFvPkk5P/zV9GmXCmGmY+ +CRlU/UlD/O8FrcsK1VBcqGE/9ZuGEym+sjVP1PDBautWIUEGnhxtyruoqo48 +twZ5I3EGzMpzrifcVcdCvmSEI8WAdfvTP0MP1dEwJCdiPZsBJ4GZNn4v1HGj +nvOzSA4DAS5hnfBZHSN+dhcc1mBg5U5qT+IsFio9Lr5VsICBbeoTBVaLWKhv +1CbisoSB8WuZD38uZqF3uJC4hT4D8baLBhlDFqa4/43mGDCwL8LfmG3Jwmf0 +/Mh+QwZyG5ofCjqzULBxvo7nUgYaN+YNNmxn4dbs0Tk3LRmw+20qvWsnCy9K +eCbFAwNPM9uMDRNZeLL04YalyEBnjWhi4UEWfpS8HFJqxcDQ3GjpfWdY2K7e +fDjGmoGo8xImvAssVDPqCKVWMPDD8IrX+EUWesU+vN5MLOTbXRhUQdrzscmR +tWFAgbY1WVnPwrbWouJ0OwbOWn/0+vuAvL+seC7XngF25+7EyscsbP125F01 +sY7gtUear1goWTa7p8uBgWWuqt7CfSwMmKPsL+DEQFNfVeLdARZWnM4ITiFe +tdvlYuwIC33/J/pJaDUD7kUHhnp/sTD3tPbKP8RbfowkPhSnsHi9fOVzZ7Je +EcFyX6QpzOf9umbnwoBIf1eJkAKF1oqbb90hvvim4bUlm0Kdy3e/5a1lINp1 +6RZvLQoXVYuqiLmS8bSUzojXppCXWO4WQ9x954T2DWMKPcPffrd0Y6DUZE79 +C3MKVVXbPPOI4+kE92GkcEvG32e/ieXyNyYvcqAwwLj1WzmfgdX7TDsu+FE4 +aF4rNezOgNrfsq13AymcXp8nburBwMB2ttDbUOL3h9X3EKeGzNVViKZwa1xK +qqAnA/wPexqM4ijsNhb9AMTcdWMeaxMoNM/KdoknrnN4m3IklcK3uS0pX4iP +NDorlh6mcPnzKWuFdQx48x6UPzpG4aM6M7YN8cJKM+vekxRW73VSiSL+qVvR +OfMshb2jUwZniB9e4oSz8yk0PS2yqZ44m3VqJl6iULrJ7O5n4sAcsVyfUgpf +7/A0nO3FgL500uKdDIUhm7WbOcQCaeONpyopzJPalWRJ/FRo07rKWgqrTkh5 +8YnP7Or+9rKOwvcdle6biTePu+wbuU/hlUjjHbuJzcKalCQfU7iD9rqdTizS +a05rt1IodWJUK4f4tR+9wv4VhX/am6rziQs7uG82dlE4//PlbVeII51ztu17 +R2H/m4A1ZcTYLD674BOFqzKaPMqJJZYnn677l8KbewsOlRK/rZ3Q6x6isPN7 +05dLxKWGmx9Mfadw7P6ssPPE8WXvvBR/kvU9oUtlE9tquo4Y/6VQv2z+jIPE +cnkP97sKsdFKJE0ijviTPE8lUoSNUs5B9sHEVzMZJkOcjTIfYm+sIU4U1bQp +k2Yjq+7kmqXEq5Nz/9csz8apglwVVWK1KYnIPhU23vnGV5om8z0QlSI8m81G +l2sF9t3EqUFb9K202Rhl6bQyi5jf/b7Jdwkb5yX5yGwm5rq7+ewyZuN+PX85 +IK6ztUytQjaaqBff6/4vPu5dVX21go2hCy9vLib2NtO6NmrPRr6p8Ooo4p+L +5nXruLEx08jn/m8SjxNnlZIM1rFRa639wTvEY5IaXFM/NjpeKy3YTTz03XST +dSgb3yxgvftO4vtrkLW4fRgbbxl3zSgh7mt3oldHsZET6ZXgR9xTGzCxbjf5 +voG5qXVkf7zTCcvxTybz19Mnt5X4f3k7LIIPsLEvok9Qnvh1yuHkiKNs3G7F +jG8g+6vZoUoi9SIb9waa+L4h+7fp9j3mcDHpr3V0MJK4cfET1+MVbKwrLfgg +THxH5kPuuRo2Jois+7GA7P+rb+Zo3WhhY8uajVNOa0g+3ewLPeNs9AuwV1Fd +xcDJtyE9vb/YGKH5j2sayU9Zq6P2DU6zMTlK/O8EyV9HDFIf/xDl4F3f/SUP +SL5LnmLcJdU4aGUXs9+G5MPNabO2WazkYK8hJdJK8mvIH0mZZQ4cHJN3b5El +Dg5XqrRZw0GxAD0ZT5KP/dcu/u2yjoNmRvu5HSR/uyp7poaGcVBx+t/YanMG +LEpKz2dnc7C8L+26oBEDb1gleStOc9Cj9ZelHqkH8dlXzo3lcTAoI7TYi9SL +qqSiMy5XOJjTGKhVSuqLvsf5UxK3ODjLpuaZgS4DC2ZlZe7/wEG9eeaHujVJ +/PrtTNyuzcXezCzzS3IM3GiL26OxhIuGklrhx2TJeOx3JLQZcTHqmfPZnfMZ +OGYUs0sfuDgkWDNgI82AuFj4jiFnLj7+/TbsIamXM2s2bAuOJc+/TNeEzmRg +RNren1/PRWqfhI3BMA0dW9itm5q4GMSijtcP0VD34BfsecLFWSGG51YP0pAZ +X6J++TUXfYRvj2/op0GvR+zdz34uxivNfRT2iYYw5pnPWRkNPLozdFK5g4b+ +1W5enwI1MHxTlnnbbRo+pfvzI4U1Mcm5t3SKnH/C+rXZemKa6NoduUQjiYZJ +m5+Dg/M0MUcj5O+qPTTMETq2L1RJE8snvWJO7iT9xTVc99fRxOEbs0flo2nY +HaQps3qtJhbZfJxqCqRBznLg2aI8TbQZuT7rqzUNdt9i7T4ba+HWw+tnRgmQ +80aASNT1Pf+gftsj+hVdTv4P5AUP1C/ANj92TIpZGUi3aB6hvy3EhGp2teid +ElBJrVhjbKyNuyTWSNqJFMOpRabzZDbq4DxD/tAlv8vQrGRl9P2oLjal5Sha +VRWBmUp95uLXi3FYaI10VV8hSAjlR69P1kOt16EHvloUgFqSuoWn5hKM58X4 +GcReAFEN70qXpiV4rllDNvpoHujyFCtiffRxtLBkmXfmGYjslm6wFzBAy4aa +DYlxOfDte7qb3SkDPNY0w2lOYzbYLH6Qa6djiKJ9HjFjtllw57v51ORTQ/R2 +ypShHx+FMG39rudBRtgcIODZ6poBvKHANk9RY+Tf+nhxM5UGK7gKjuL5xmg6 +cFTG/eQB+Cfx0I56ExPMNHX8cCl2LywMMr2r0WWCjYY9YhcjkyDoTsje6xFL +cV98+Ee1f3fD3fNtgSOypmgNNjuHFsbB2OXpycVVptjNkqm7rx4DARolormO +Zjhanu1T3hkBIwuPG18dNkP/++JvH2dtherCqQ/jqeZYKxYn7seEwDprDpqr +WeCuKxtPR2UHgvLWAzW6dRbYIqvwXLLVH45MBxul1VugZK771yUN/iB4bCXT +22iBe8qjTnpX+kN/5awr5x9ZYPj0wLHHZ/zhpsDeU9IvLdCvty9bcpM/rMtK +jJ34bIF7J9Q7Fs32h1O1cUZ35vJQcK3MtkUHfUF2zhbG0Z2HqlqNW8OvekHh +8t3xw548PLpFM0Uv1wv0dx9Zftybh63K941mJnuB0zD9qmM9Dx3NBK0/OnvB +/tfjPwO28HCWQdadhNF18CN/z7L4JB5qTDWIUSbroMv8+MuiEh4Wnzwo1dDi +ASExhWfsynl4Kkj30L0qD5govxE0QPNw+naBwfMLHiDN7phcUsnDRrvqAc52 +D3AQUVW5XcfD23/y60+oe8CttqLAl694mDBoG3whxh3sJap1tnfwsHPGhftl +/u7QYfNoQuEND3dovitqdnCHsZtfU33f87De7U+DEdsddC7olf3bz0P+ZT+L +1md8uNVltT19kIfaaYEJfrV8sJ+/FhYP83DSp2zgbxEfgg/EPI8e5+EIN5sT +lsCHsbr9ufI/eMjrE27nbeJD8q+TATd/8dDBdH26Kp8P8wyvaPv8Ie1pyJuK +L+PDua03x6eneaiVVfBCTJcP/wfbSxmC "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5706,166 +10625,114 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb +1:eJwV13k4VV0XAHBRoQwh83TPvRdvhWTMcK2llCmKuMhYhmggU6KSoUFRVFI0 +KKQyntNgSINQSimVMvSl0sArhAyVyrff8895fs85z9777L32WvtQG8JdggQF +yDVDQOC/+0T3o0ZuWqHl1N1NAZFhaNl2TiHOqiMZUmYsDTXWUAOUfbZBoeMY +TO9qSR/h6sL2NcXtQh35sD4mRaORawlSQ/LHfrZfBYf+L4eTuE7w7pZT+Fh7 +PXRo3bhBc3xhJbf/7Uj7C0jbbepwiBUGP9tNTgy398CExPEVgvMToGH5pcLn ++d/h4aHtooOqGaDyrubLBu0/YN8fcvhKVzbM3+JXLLxcCJcP33AMrDoLx5as +rHVyE8F4uXDldN986DylVzcyTxyNZJNHHUMuQlrhnmeCilIo1/Om3y34Mshn +fTx4/KwMGgu+SpITKAGFRTf2/iiSwRy5mt3qoiWgVL9/jw8tg11KRpEc6RJQ +G14Qo9Ugg32DIajCLQGNVdv8a/tkcEX6MpfnNiVgMPOP8UeD+ag4NOhqe6QE +VkfLfdJvno8JzVERG+RL4YCrneWLCVlsS0IhKaUyULr+VElwhhzyoMksll0G +5TKuk0vmyqHavWVW7QvL4PULX/qouhw+11tVtde8DLjO0WxnWzmM8MvQOeFd +BvWOebNbc+TQ+ZJuXNrZMvizcvxpi4U8cjvKmSalcogyveD3KFkBD7qdHuQL +VoD9eYkxh3QFNL6S+qpSpALYwrtSn55QwPt0/xIpyQpobeMzLy8roIJy9cob +yhWgu01MqPupApoYJ7ffNKyAvqLYolElRRydG7u2NqgCvOc7DSpfU8RATdHJ +jIYKMNhZm3TuliJmfef08h5VwJyef+SoB4oY/oVj/eVpBdRUCIFmpyIyho7W +ml0VIOdQk6k3rYh+jWOeAcOk/ySu4QoHJVRzvdTTJ06D9bdf8WEflZDveDkf +TGiIs81aeG9ACZUqB1/QpjSUX9DpkplQwlG7j67qFjQouPqb1ogo4wJq2nEM +aRiovj8ppKuMP/SF5BLsaTienBmds0MZ6zhfhKV8aOiR1QxrFFfBINGhQcNE +GuTD76rKy6tghohXxJpkGlY99GgJZalgfPVr29C9NFTGp2lLGqjgZHjM2LFU +Gg69G+739FDBAtfXVg8yadC/UrvxW74Kduacf1l6noYkC+f1SktVMXpl+tf4 +OzTY+p4bNVmmim93lVZvrKNBIvFritsqVZRafzfYuZ6GMw37ijL9VXH2vcfB +yg9oqLa/+XX2QVV8r6L492ALDcMenO3fO1XxvlTwo+dvaKiK3yYs9UkVGwrX +NqW/pSHhzO1TukOqeOZvZ7H1OxrE3rvXhgqqofGbX5ySHhq0NqYLvF+ohtsN +7/e6/EuDb8z4oSc71TDYaamgxAQNGieXqfTvU8PsFvPkk5P/zV9GmXCmGmY+ +CRlU/UlD/O8FrcsK1VBcqGE/9ZuGEym+sjVP1PDBautWIUEGnhxtyruoqo48 +twZ5I3EGzMpzrifcVcdCvmSEI8WAdfvTP0MP1dEwJCdiPZsBJ4GZNn4v1HGj +nvOzSA4DAS5hnfBZHSN+dhcc1mBg5U5qT+IsFio9Lr5VsICBbeoTBVaLWKhv +1CbisoSB8WuZD38uZqF3uJC4hT4D8baLBhlDFqa4/43mGDCwL8LfmG3Jwmf0 +/Mh+QwZyG5ofCjqzULBxvo7nUgYaN+YNNmxn4dbs0Tk3LRmw+20qvWsnCy9K +eCbFAwNPM9uMDRNZeLL04YalyEBnjWhi4UEWfpS8HFJqxcDQ3GjpfWdY2K7e +fDjGmoGo8xImvAssVDPqCKVWMPDD8IrX+EUWesU+vN5MLOTbXRhUQdrzscmR +tWFAgbY1WVnPwrbWouJ0OwbOWn/0+vuAvL+seC7XngF25+7EyscsbP125F01 +sY7gtUear1goWTa7p8uBgWWuqt7CfSwMmKPsL+DEQFNfVeLdARZWnM4ITiFe +tdvlYuwIC33/J/pJaDUD7kUHhnp/sTD3tPbKP8RbfowkPhSnsHi9fOVzZ7Je +EcFyX6QpzOf9umbnwoBIf1eJkAKF1oqbb90hvvim4bUlm0Kdy3e/5a1lINp1 +6RZvLQoXVYuqiLmS8bSUzojXppCXWO4WQ9x954T2DWMKPcPffrd0Y6DUZE79 +C3MKVVXbPPOI4+kE92GkcEvG32e/ieXyNyYvcqAwwLj1WzmfgdX7TDsu+FE4 +aF4rNezOgNrfsq13AymcXp8nburBwMB2ttDbUOL3h9X3EKeGzNVViKZwa1xK +qqAnA/wPexqM4ijsNhb9AMTcdWMeaxMoNM/KdoknrnN4m3IklcK3uS0pX4iP +NDorlh6mcPnzKWuFdQx48x6UPzpG4aM6M7YN8cJKM+vekxRW73VSiSL+qVvR +OfMshb2jUwZniB9e4oSz8yk0PS2yqZ44m3VqJl6iULrJ7O5n4sAcsVyfUgpf +7/A0nO3FgL500uKdDIUhm7WbOcQCaeONpyopzJPalWRJ/FRo07rKWgqrTkh5 +8YnP7Or+9rKOwvcdle6biTePu+wbuU/hlUjjHbuJzcKalCQfU7iD9rqdTizS +a05rt1IodWJUK4f4tR+9wv4VhX/am6rziQs7uG82dlE4//PlbVeII51ztu17 +R2H/m4A1ZcTYLD674BOFqzKaPMqJJZYnn677l8KbewsOlRK/rZ3Q6x6isPN7 +05dLxKWGmx9Mfadw7P6ssPPE8WXvvBR/kvU9oUtlE9tquo4Y/6VQv2z+jIPE +cnkP97sKsdFKJE0ijviTPE8lUoSNUs5B9sHEVzMZJkOcjTIfYm+sIU4U1bQp +k2Yjq+7kmqXEq5Nz/9csz8apglwVVWK1KYnIPhU23vnGV5om8z0QlSI8m81G +l2sF9t3EqUFb9K202Rhl6bQyi5jf/b7Jdwkb5yX5yGwm5rq7+ewyZuN+PX85 +IK6ztUytQjaaqBff6/4vPu5dVX21go2hCy9vLib2NtO6NmrPRr6p8Ooo4p+L +5nXruLEx08jn/m8SjxNnlZIM1rFRa639wTvEY5IaXFM/NjpeKy3YTTz03XST +dSgb3yxgvftO4vtrkLW4fRgbbxl3zSgh7mt3oldHsZET6ZXgR9xTGzCxbjf5 +voG5qXVkf7zTCcvxTybz19Mnt5X4f3k7LIIPsLEvok9Qnvh1yuHkiKNs3G7F +jG8g+6vZoUoi9SIb9waa+L4h+7fp9j3mcDHpr3V0MJK4cfET1+MVbKwrLfgg +THxH5kPuuRo2Jois+7GA7P+rb+Zo3WhhY8uajVNOa0g+3ewLPeNs9AuwV1Fd +xcDJtyE9vb/YGKH5j2sayU9Zq6P2DU6zMTlK/O8EyV9HDFIf/xDl4F3f/SUP +SL5LnmLcJdU4aGUXs9+G5MPNabO2WazkYK8hJdJK8mvIH0mZZQ4cHJN3b5El +Dg5XqrRZw0GxAD0ZT5KP/dcu/u2yjoNmRvu5HSR/uyp7poaGcVBx+t/YanMG +LEpKz2dnc7C8L+26oBEDb1gleStOc9Cj9ZelHqkH8dlXzo3lcTAoI7TYi9SL +qqSiMy5XOJjTGKhVSuqLvsf5UxK3ODjLpuaZgS4DC2ZlZe7/wEG9eeaHujVJ +/PrtTNyuzcXezCzzS3IM3GiL26OxhIuGklrhx2TJeOx3JLQZcTHqmfPZnfMZ +OGYUs0sfuDgkWDNgI82AuFj4jiFnLj7+/TbsIamXM2s2bAuOJc+/TNeEzmRg +RNren1/PRWqfhI3BMA0dW9itm5q4GMSijtcP0VD34BfsecLFWSGG51YP0pAZ +X6J++TUXfYRvj2/op0GvR+zdz34uxivNfRT2iYYw5pnPWRkNPLozdFK5g4b+ +1W5enwI1MHxTlnnbbRo+pfvzI4U1Mcm5t3SKnH/C+rXZemKa6NoduUQjiYZJ +m5+Dg/M0MUcj5O+qPTTMETq2L1RJE8snvWJO7iT9xTVc99fRxOEbs0flo2nY +HaQps3qtJhbZfJxqCqRBznLg2aI8TbQZuT7rqzUNdt9i7T4ba+HWw+tnRgmQ +80aASNT1Pf+gftsj+hVdTv4P5AUP1C/ANj92TIpZGUi3aB6hvy3EhGp2teid +ElBJrVhjbKyNuyTWSNqJFMOpRabzZDbq4DxD/tAlv8vQrGRl9P2oLjal5Sha +VRWBmUp95uLXi3FYaI10VV8hSAjlR69P1kOt16EHvloUgFqSuoWn5hKM58X4 +GcReAFEN70qXpiV4rllDNvpoHujyFCtiffRxtLBkmXfmGYjslm6wFzBAy4aa +DYlxOfDte7qb3SkDPNY0w2lOYzbYLH6Qa6djiKJ9HjFjtllw57v51ORTQ/R2 +ypShHx+FMG39rudBRtgcIODZ6poBvKHANk9RY+Tf+nhxM5UGK7gKjuL5xmg6 +cFTG/eQB+Cfx0I56ExPMNHX8cCl2LywMMr2r0WWCjYY9YhcjkyDoTsje6xFL +cV98+Ee1f3fD3fNtgSOypmgNNjuHFsbB2OXpycVVptjNkqm7rx4DARolormO +Zjhanu1T3hkBIwuPG18dNkP/++JvH2dtherCqQ/jqeZYKxYn7seEwDprDpqr +WeCuKxtPR2UHgvLWAzW6dRbYIqvwXLLVH45MBxul1VugZK771yUN/iB4bCXT +22iBe8qjTnpX+kN/5awr5x9ZYPj0wLHHZ/zhpsDeU9IvLdCvty9bcpM/rMtK +jJ34bIF7J9Q7Fs32h1O1cUZ35vJQcK3MtkUHfUF2zhbG0Z2HqlqNW8OvekHh +8t3xw548PLpFM0Uv1wv0dx9Zftybh63K941mJnuB0zD9qmM9Dx3NBK0/OnvB +/tfjPwO28HCWQdadhNF18CN/z7L4JB5qTDWIUSbroMv8+MuiEh4Wnzwo1dDi +ASExhWfsynl4Kkj30L0qD5govxE0QPNw+naBwfMLHiDN7phcUsnDRrvqAc52 +D3AQUVW5XcfD23/y60+oe8CttqLAl694mDBoG3whxh3sJap1tnfwsHPGhftl +/u7QYfNoQuEND3dovitqdnCHsZtfU33f87De7U+DEdsddC7olf3bz0P+ZT+L +1md8uNVltT19kIfaaYEJfrV8sJ+/FhYP83DSp2zgbxEfgg/EPI8e5+EIN5sT +lsCHsbr9ufI/eMjrE27nbeJD8q+TATd/8dDBdH26Kp8P8wyvaPv8Ie1pyJuK +L+PDua03x6eneaiVVfBCTJcP/wfbSxmC "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.0678051916834736}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5877,19 +10744,19 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.0678051916834736}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5903,165 +10770,113 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb +1:eJwV13k4VV0XAHBRoQwh83TPvRdvhWTMcK2llCmKuMhYhmggU6KSoUFRVFI0 +KKQyntNgSINQSimVMvSl0sArhAyVyrff8895fs85z9777L32WvtQG8JdggQF +yDVDQOC/+0T3o0ZuWqHl1N1NAZFhaNl2TiHOqiMZUmYsDTXWUAOUfbZBoeMY +TO9qSR/h6sL2NcXtQh35sD4mRaORawlSQ/LHfrZfBYf+L4eTuE7w7pZT+Fh7 +PXRo3bhBc3xhJbf/7Uj7C0jbbepwiBUGP9tNTgy398CExPEVgvMToGH5pcLn ++d/h4aHtooOqGaDyrubLBu0/YN8fcvhKVzbM3+JXLLxcCJcP33AMrDoLx5as +rHVyE8F4uXDldN986DylVzcyTxyNZJNHHUMuQlrhnmeCilIo1/Om3y34Mshn +fTx4/KwMGgu+SpITKAGFRTf2/iiSwRy5mt3qoiWgVL9/jw8tg11KRpEc6RJQ +G14Qo9Ugg32DIajCLQGNVdv8a/tkcEX6MpfnNiVgMPOP8UeD+ag4NOhqe6QE +VkfLfdJvno8JzVERG+RL4YCrneWLCVlsS0IhKaUyULr+VElwhhzyoMksll0G +5TKuk0vmyqHavWVW7QvL4PULX/qouhw+11tVtde8DLjO0WxnWzmM8MvQOeFd +BvWOebNbc+TQ+ZJuXNrZMvizcvxpi4U8cjvKmSalcogyveD3KFkBD7qdHuQL +VoD9eYkxh3QFNL6S+qpSpALYwrtSn55QwPt0/xIpyQpobeMzLy8roIJy9cob +yhWgu01MqPupApoYJ7ffNKyAvqLYolElRRydG7u2NqgCvOc7DSpfU8RATdHJ +jIYKMNhZm3TuliJmfef08h5VwJyef+SoB4oY/oVj/eVpBdRUCIFmpyIyho7W +ml0VIOdQk6k3rYh+jWOeAcOk/ySu4QoHJVRzvdTTJ06D9bdf8WEflZDveDkf +TGiIs81aeG9ACZUqB1/QpjSUX9DpkplQwlG7j67qFjQouPqb1ogo4wJq2nEM +aRiovj8ppKuMP/SF5BLsaTienBmds0MZ6zhfhKV8aOiR1QxrFFfBINGhQcNE +GuTD76rKy6tghohXxJpkGlY99GgJZalgfPVr29C9NFTGp2lLGqjgZHjM2LFU +Gg69G+739FDBAtfXVg8yadC/UrvxW74Kduacf1l6noYkC+f1SktVMXpl+tf4 +OzTY+p4bNVmmim93lVZvrKNBIvFritsqVZRafzfYuZ6GMw37ijL9VXH2vcfB +yg9oqLa/+XX2QVV8r6L492ALDcMenO3fO1XxvlTwo+dvaKiK3yYs9UkVGwrX +NqW/pSHhzO1TukOqeOZvZ7H1OxrE3rvXhgqqofGbX5ySHhq0NqYLvF+ohtsN +7/e6/EuDb8z4oSc71TDYaamgxAQNGieXqfTvU8PsFvPkk5P/zV9GmXCmGmY+ +CRlU/UlD/O8FrcsK1VBcqGE/9ZuGEym+sjVP1PDBautWIUEGnhxtyruoqo48 +twZ5I3EGzMpzrifcVcdCvmSEI8WAdfvTP0MP1dEwJCdiPZsBJ4GZNn4v1HGj +nvOzSA4DAS5hnfBZHSN+dhcc1mBg5U5qT+IsFio9Lr5VsICBbeoTBVaLWKhv +1CbisoSB8WuZD38uZqF3uJC4hT4D8baLBhlDFqa4/43mGDCwL8LfmG3Jwmf0 +/Mh+QwZyG5ofCjqzULBxvo7nUgYaN+YNNmxn4dbs0Tk3LRmw+20qvWsnCy9K +eCbFAwNPM9uMDRNZeLL04YalyEBnjWhi4UEWfpS8HFJqxcDQ3GjpfWdY2K7e +fDjGmoGo8xImvAssVDPqCKVWMPDD8IrX+EUWesU+vN5MLOTbXRhUQdrzscmR +tWFAgbY1WVnPwrbWouJ0OwbOWn/0+vuAvL+seC7XngF25+7EyscsbP125F01 +sY7gtUear1goWTa7p8uBgWWuqt7CfSwMmKPsL+DEQFNfVeLdARZWnM4ITiFe +tdvlYuwIC33/J/pJaDUD7kUHhnp/sTD3tPbKP8RbfowkPhSnsHi9fOVzZ7Je +EcFyX6QpzOf9umbnwoBIf1eJkAKF1oqbb90hvvim4bUlm0Kdy3e/5a1lINp1 +6RZvLQoXVYuqiLmS8bSUzojXppCXWO4WQ9x954T2DWMKPcPffrd0Y6DUZE79 +C3MKVVXbPPOI4+kE92GkcEvG32e/ieXyNyYvcqAwwLj1WzmfgdX7TDsu+FE4 +aF4rNezOgNrfsq13AymcXp8nburBwMB2ttDbUOL3h9X3EKeGzNVViKZwa1xK +qqAnA/wPexqM4ijsNhb9AMTcdWMeaxMoNM/KdoknrnN4m3IklcK3uS0pX4iP +NDorlh6mcPnzKWuFdQx48x6UPzpG4aM6M7YN8cJKM+vekxRW73VSiSL+qVvR +OfMshb2jUwZniB9e4oSz8yk0PS2yqZ44m3VqJl6iULrJ7O5n4sAcsVyfUgpf +7/A0nO3FgL500uKdDIUhm7WbOcQCaeONpyopzJPalWRJ/FRo07rKWgqrTkh5 +8YnP7Or+9rKOwvcdle6biTePu+wbuU/hlUjjHbuJzcKalCQfU7iD9rqdTizS +a05rt1IodWJUK4f4tR+9wv4VhX/am6rziQs7uG82dlE4//PlbVeII51ztu17 +R2H/m4A1ZcTYLD674BOFqzKaPMqJJZYnn677l8KbewsOlRK/rZ3Q6x6isPN7 +05dLxKWGmx9Mfadw7P6ssPPE8WXvvBR/kvU9oUtlE9tquo4Y/6VQv2z+jIPE +cnkP97sKsdFKJE0ijviTPE8lUoSNUs5B9sHEVzMZJkOcjTIfYm+sIU4U1bQp +k2Yjq+7kmqXEq5Nz/9csz8apglwVVWK1KYnIPhU23vnGV5om8z0QlSI8m81G +l2sF9t3EqUFb9K202Rhl6bQyi5jf/b7Jdwkb5yX5yGwm5rq7+ewyZuN+PX85 +IK6ztUytQjaaqBff6/4vPu5dVX21go2hCy9vLib2NtO6NmrPRr6p8Ooo4p+L +5nXruLEx08jn/m8SjxNnlZIM1rFRa639wTvEY5IaXFM/NjpeKy3YTTz03XST +dSgb3yxgvftO4vtrkLW4fRgbbxl3zSgh7mt3oldHsZET6ZXgR9xTGzCxbjf5 +voG5qXVkf7zTCcvxTybz19Mnt5X4f3k7LIIPsLEvok9Qnvh1yuHkiKNs3G7F +jG8g+6vZoUoi9SIb9waa+L4h+7fp9j3mcDHpr3V0MJK4cfET1+MVbKwrLfgg +THxH5kPuuRo2Jois+7GA7P+rb+Zo3WhhY8uajVNOa0g+3ewLPeNs9AuwV1Fd +xcDJtyE9vb/YGKH5j2sayU9Zq6P2DU6zMTlK/O8EyV9HDFIf/xDl4F3f/SUP +SL5LnmLcJdU4aGUXs9+G5MPNabO2WazkYK8hJdJK8mvIH0mZZQ4cHJN3b5El +Dg5XqrRZw0GxAD0ZT5KP/dcu/u2yjoNmRvu5HSR/uyp7poaGcVBx+t/YanMG +LEpKz2dnc7C8L+26oBEDb1gleStOc9Cj9ZelHqkH8dlXzo3lcTAoI7TYi9SL +qqSiMy5XOJjTGKhVSuqLvsf5UxK3ODjLpuaZgS4DC2ZlZe7/wEG9eeaHujVJ +/PrtTNyuzcXezCzzS3IM3GiL26OxhIuGklrhx2TJeOx3JLQZcTHqmfPZnfMZ +OGYUs0sfuDgkWDNgI82AuFj4jiFnLj7+/TbsIamXM2s2bAuOJc+/TNeEzmRg +RNren1/PRWqfhI3BMA0dW9itm5q4GMSijtcP0VD34BfsecLFWSGG51YP0pAZ +X6J++TUXfYRvj2/op0GvR+zdz34uxivNfRT2iYYw5pnPWRkNPLozdFK5g4b+ +1W5enwI1MHxTlnnbbRo+pfvzI4U1Mcm5t3SKnH/C+rXZemKa6NoduUQjiYZJ +m5+Dg/M0MUcj5O+qPTTMETq2L1RJE8snvWJO7iT9xTVc99fRxOEbs0flo2nY +HaQps3qtJhbZfJxqCqRBznLg2aI8TbQZuT7rqzUNdt9i7T4ba+HWw+tnRgmQ +80aASNT1Pf+gftsj+hVdTv4P5AUP1C/ANj92TIpZGUi3aB6hvy3EhGp2teid +ElBJrVhjbKyNuyTWSNqJFMOpRabzZDbq4DxD/tAlv8vQrGRl9P2oLjal5Sha +VRWBmUp95uLXi3FYaI10VV8hSAjlR69P1kOt16EHvloUgFqSuoWn5hKM58X4 +GcReAFEN70qXpiV4rllDNvpoHujyFCtiffRxtLBkmXfmGYjslm6wFzBAy4aa +DYlxOfDte7qb3SkDPNY0w2lOYzbYLH6Qa6djiKJ9HjFjtllw57v51ORTQ/R2 +ypShHx+FMG39rudBRtgcIODZ6poBvKHANk9RY+Tf+nhxM5UGK7gKjuL5xmg6 +cFTG/eQB+Cfx0I56ExPMNHX8cCl2LywMMr2r0WWCjYY9YhcjkyDoTsje6xFL +cV98+Ee1f3fD3fNtgSOypmgNNjuHFsbB2OXpycVVptjNkqm7rx4DARolormO +Zjhanu1T3hkBIwuPG18dNkP/++JvH2dtherCqQ/jqeZYKxYn7seEwDprDpqr +WeCuKxtPR2UHgvLWAzW6dRbYIqvwXLLVH45MBxul1VugZK771yUN/iB4bCXT +22iBe8qjTnpX+kN/5awr5x9ZYPj0wLHHZ/zhpsDeU9IvLdCvty9bcpM/rMtK +jJ34bIF7J9Q7Fs32h1O1cUZ35vJQcK3MtkUHfUF2zhbG0Z2HqlqNW8OvekHh +8t3xw548PLpFM0Uv1wv0dx9Zftybh63K941mJnuB0zD9qmM9Dx3NBK0/OnvB +/tfjPwO28HCWQdadhNF18CN/z7L4JB5qTDWIUSbroMv8+MuiEh4Wnzwo1dDi +ASExhWfsynl4Kkj30L0qD5govxE0QPNw+naBwfMLHiDN7phcUsnDRrvqAc52 +D3AQUVW5XcfD23/y60+oe8CttqLAl694mDBoG3whxh3sJap1tnfwsHPGhftl +/u7QYfNoQuEND3dovitqdnCHsZtfU33f87De7U+DEdsddC7olf3bz0P+ZT+L +1md8uNVltT19kIfaaYEJfrV8sJ+/FhYP83DSp2zgbxEfgg/EPI8e5+EIN5sT +lsCHsbr9ufI/eMjrE27nbeJD8q+TATd/8dDBdH26Kp8P8wyvaPv8Ie1pyJuK +L+PDua03x6eneaiVVfBCTJcP/wfbSxmC "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.0678051916834736}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6072,6 +10887,7 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6099,7 +10915,8 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0678051916834736}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6107,17 +10924,562 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913465524249306`*^9}, + CellChangeTimes->{3.9913465524249306`*^9, 3.993919131368519*^9}, CellLabel-> - "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] + "Out[119]=",ExpressionUUID->"b8bdc15c-2fd3-4b41-91bf-90b18757f216"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ -ae60c73e9e82"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VV0XAHBRoQwh83TPvRdvhWTMcK2llCmKuMhYhmggU6KSoUFRVFI0 +KKQyntNgSINQSimVMvSl0sArhAyVyrff8895fs85z9777L32WvtQG8JdggQF +yDVDQOC/+0T3o0ZuWqHl1N1NAZFhaNl2TiHOqiMZUmYsDTXWUAOUfbZBoeMY +TO9qSR/h6sL2NcXtQh35sD4mRaORawlSQ/LHfrZfBYf+L4eTuE7w7pZT+Fh7 +PXRo3bhBc3xhJbf/7Uj7C0jbbepwiBUGP9tNTgy398CExPEVgvMToGH5pcLn ++d/h4aHtooOqGaDyrubLBu0/YN8fcvhKVzbM3+JXLLxcCJcP33AMrDoLx5as +rHVyE8F4uXDldN986DylVzcyTxyNZJNHHUMuQlrhnmeCilIo1/Om3y34Mshn +fTx4/KwMGgu+SpITKAGFRTf2/iiSwRy5mt3qoiWgVL9/jw8tg11KRpEc6RJQ +G14Qo9Ugg32DIajCLQGNVdv8a/tkcEX6MpfnNiVgMPOP8UeD+ag4NOhqe6QE +VkfLfdJvno8JzVERG+RL4YCrneWLCVlsS0IhKaUyULr+VElwhhzyoMksll0G +5TKuk0vmyqHavWVW7QvL4PULX/qouhw+11tVtde8DLjO0WxnWzmM8MvQOeFd +BvWOebNbc+TQ+ZJuXNrZMvizcvxpi4U8cjvKmSalcogyveD3KFkBD7qdHuQL +VoD9eYkxh3QFNL6S+qpSpALYwrtSn55QwPt0/xIpyQpobeMzLy8roIJy9cob +yhWgu01MqPupApoYJ7ffNKyAvqLYolElRRydG7u2NqgCvOc7DSpfU8RATdHJ +jIYKMNhZm3TuliJmfef08h5VwJyef+SoB4oY/oVj/eVpBdRUCIFmpyIyho7W +ml0VIOdQk6k3rYh+jWOeAcOk/ySu4QoHJVRzvdTTJ06D9bdf8WEflZDveDkf +TGiIs81aeG9ACZUqB1/QpjSUX9DpkplQwlG7j67qFjQouPqb1ogo4wJq2nEM +aRiovj8ppKuMP/SF5BLsaTienBmds0MZ6zhfhKV8aOiR1QxrFFfBINGhQcNE +GuTD76rKy6tghohXxJpkGlY99GgJZalgfPVr29C9NFTGp2lLGqjgZHjM2LFU +Gg69G+739FDBAtfXVg8yadC/UrvxW74Kduacf1l6noYkC+f1SktVMXpl+tf4 +OzTY+p4bNVmmim93lVZvrKNBIvFritsqVZRafzfYuZ6GMw37ijL9VXH2vcfB +yg9oqLa/+XX2QVV8r6L492ALDcMenO3fO1XxvlTwo+dvaKiK3yYs9UkVGwrX +NqW/pSHhzO1TukOqeOZvZ7H1OxrE3rvXhgqqofGbX5ySHhq0NqYLvF+ohtsN +7/e6/EuDb8z4oSc71TDYaamgxAQNGieXqfTvU8PsFvPkk5P/zV9GmXCmGmY+ +CRlU/UlD/O8FrcsK1VBcqGE/9ZuGEym+sjVP1PDBautWIUEGnhxtyruoqo48 +twZ5I3EGzMpzrifcVcdCvmSEI8WAdfvTP0MP1dEwJCdiPZsBJ4GZNn4v1HGj +nvOzSA4DAS5hnfBZHSN+dhcc1mBg5U5qT+IsFio9Lr5VsICBbeoTBVaLWKhv +1CbisoSB8WuZD38uZqF3uJC4hT4D8baLBhlDFqa4/43mGDCwL8LfmG3Jwmf0 +/Mh+QwZyG5ofCjqzULBxvo7nUgYaN+YNNmxn4dbs0Tk3LRmw+20qvWsnCy9K +eCbFAwNPM9uMDRNZeLL04YalyEBnjWhi4UEWfpS8HFJqxcDQ3GjpfWdY2K7e +fDjGmoGo8xImvAssVDPqCKVWMPDD8IrX+EUWesU+vN5MLOTbXRhUQdrzscmR +tWFAgbY1WVnPwrbWouJ0OwbOWn/0+vuAvL+seC7XngF25+7EyscsbP125F01 +sY7gtUear1goWTa7p8uBgWWuqt7CfSwMmKPsL+DEQFNfVeLdARZWnM4ITiFe +tdvlYuwIC33/J/pJaDUD7kUHhnp/sTD3tPbKP8RbfowkPhSnsHi9fOVzZ7Je +EcFyX6QpzOf9umbnwoBIf1eJkAKF1oqbb90hvvim4bUlm0Kdy3e/5a1lINp1 +6RZvLQoXVYuqiLmS8bSUzojXppCXWO4WQ9x954T2DWMKPcPffrd0Y6DUZE79 +C3MKVVXbPPOI4+kE92GkcEvG32e/ieXyNyYvcqAwwLj1WzmfgdX7TDsu+FE4 +aF4rNezOgNrfsq13AymcXp8nburBwMB2ttDbUOL3h9X3EKeGzNVViKZwa1xK +qqAnA/wPexqM4ijsNhb9AMTcdWMeaxMoNM/KdoknrnN4m3IklcK3uS0pX4iP +NDorlh6mcPnzKWuFdQx48x6UPzpG4aM6M7YN8cJKM+vekxRW73VSiSL+qVvR +OfMshb2jUwZniB9e4oSz8yk0PS2yqZ44m3VqJl6iULrJ7O5n4sAcsVyfUgpf +7/A0nO3FgL500uKdDIUhm7WbOcQCaeONpyopzJPalWRJ/FRo07rKWgqrTkh5 +8YnP7Or+9rKOwvcdle6biTePu+wbuU/hlUjjHbuJzcKalCQfU7iD9rqdTizS +a05rt1IodWJUK4f4tR+9wv4VhX/am6rziQs7uG82dlE4//PlbVeII51ztu17 +R2H/m4A1ZcTYLD674BOFqzKaPMqJJZYnn677l8KbewsOlRK/rZ3Q6x6isPN7 +05dLxKWGmx9Mfadw7P6ssPPE8WXvvBR/kvU9oUtlE9tquo4Y/6VQv2z+jIPE +cnkP97sKsdFKJE0ijviTPE8lUoSNUs5B9sHEVzMZJkOcjTIfYm+sIU4U1bQp +k2Yjq+7kmqXEq5Nz/9csz8apglwVVWK1KYnIPhU23vnGV5om8z0QlSI8m81G +l2sF9t3EqUFb9K202Rhl6bQyi5jf/b7Jdwkb5yX5yGwm5rq7+ewyZuN+PX85 +IK6ztUytQjaaqBff6/4vPu5dVX21go2hCy9vLib2NtO6NmrPRr6p8Ooo4p+L +5nXruLEx08jn/m8SjxNnlZIM1rFRa639wTvEY5IaXFM/NjpeKy3YTTz03XST +dSgb3yxgvftO4vtrkLW4fRgbbxl3zSgh7mt3oldHsZET6ZXgR9xTGzCxbjf5 +voG5qXVkf7zTCcvxTybz19Mnt5X4f3k7LIIPsLEvok9Qnvh1yuHkiKNs3G7F +jG8g+6vZoUoi9SIb9waa+L4h+7fp9j3mcDHpr3V0MJK4cfET1+MVbKwrLfgg +THxH5kPuuRo2Jois+7GA7P+rb+Zo3WhhY8uajVNOa0g+3ewLPeNs9AuwV1Fd +xcDJtyE9vb/YGKH5j2sayU9Zq6P2DU6zMTlK/O8EyV9HDFIf/xDl4F3f/SUP +SL5LnmLcJdU4aGUXs9+G5MPNabO2WazkYK8hJdJK8mvIH0mZZQ4cHJN3b5El +Dg5XqrRZw0GxAD0ZT5KP/dcu/u2yjoNmRvu5HSR/uyp7poaGcVBx+t/YanMG +LEpKz2dnc7C8L+26oBEDb1gleStOc9Cj9ZelHqkH8dlXzo3lcTAoI7TYi9SL +qqSiMy5XOJjTGKhVSuqLvsf5UxK3ODjLpuaZgS4DC2ZlZe7/wEG9eeaHujVJ +/PrtTNyuzcXezCzzS3IM3GiL26OxhIuGklrhx2TJeOx3JLQZcTHqmfPZnfMZ +OGYUs0sfuDgkWDNgI82AuFj4jiFnLj7+/TbsIamXM2s2bAuOJc+/TNeEzmRg +RNren1/PRWqfhI3BMA0dW9itm5q4GMSijtcP0VD34BfsecLFWSGG51YP0pAZ +X6J++TUXfYRvj2/op0GvR+zdz34uxivNfRT2iYYw5pnPWRkNPLozdFK5g4b+ +1W5enwI1MHxTlnnbbRo+pfvzI4U1Mcm5t3SKnH/C+rXZemKa6NoduUQjiYZJ +m5+Dg/M0MUcj5O+qPTTMETq2L1RJE8snvWJO7iT9xTVc99fRxOEbs0flo2nY +HaQps3qtJhbZfJxqCqRBznLg2aI8TbQZuT7rqzUNdt9i7T4ba+HWw+tnRgmQ +80aASNT1Pf+gftsj+hVdTv4P5AUP1C/ANj92TIpZGUi3aB6hvy3EhGp2teid +ElBJrVhjbKyNuyTWSNqJFMOpRabzZDbq4DxD/tAlv8vQrGRl9P2oLjal5Sha +VRWBmUp95uLXi3FYaI10VV8hSAjlR69P1kOt16EHvloUgFqSuoWn5hKM58X4 +GcReAFEN70qXpiV4rllDNvpoHujyFCtiffRxtLBkmXfmGYjslm6wFzBAy4aa +DYlxOfDte7qb3SkDPNY0w2lOYzbYLH6Qa6djiKJ9HjFjtllw57v51ORTQ/R2 +ypShHx+FMG39rudBRtgcIODZ6poBvKHANk9RY+Tf+nhxM5UGK7gKjuL5xmg6 +cFTG/eQB+Cfx0I56ExPMNHX8cCl2LywMMr2r0WWCjYY9YhcjkyDoTsje6xFL +cV98+Ee1f3fD3fNtgSOypmgNNjuHFsbB2OXpycVVptjNkqm7rx4DARolormO +Zjhanu1T3hkBIwuPG18dNkP/++JvH2dtherCqQ/jqeZYKxYn7seEwDprDpqr +WeCuKxtPR2UHgvLWAzW6dRbYIqvwXLLVH45MBxul1VugZK771yUN/iB4bCXT +22iBe8qjTnpX+kN/5awr5x9ZYPj0wLHHZ/zhpsDeU9IvLdCvty9bcpM/rMtK +jJ34bIF7J9Q7Fs32h1O1cUZ35vJQcK3MtkUHfUF2zhbG0Z2HqlqNW8OvekHh +8t3xw548PLpFM0Uv1wv0dx9Zftybh63K941mJnuB0zD9qmM9Dx3NBK0/OnvB +/tfjPwO28HCWQdadhNF18CN/z7L4JB5qTDWIUSbroMv8+MuiEh4Wnzwo1dDi +ASExhWfsynl4Kkj30L0qD5govxE0QPNw+naBwfMLHiDN7phcUsnDRrvqAc52 +D3AQUVW5XcfD23/y60+oe8CttqLAl694mDBoG3whxh3sJap1tnfwsHPGhftl +/u7QYfNoQuEND3dovitqdnCHsZtfU33f87De7U+DEdsddC7olf3bz0P+ZT+L +1md8uNVltT19kIfaaYEJfrV8sJ+/FhYP83DSp2zgbxEfgg/EPI8e5+EIN5sT +lsCHsbr9ufI/eMjrE27nbeJD8q+TATd/8dDBdH26Kp8P8wyvaPv8Ie1pyJuK +L+PDua03x6eneaiVVfBCTJcP/wfbSxmC + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHBRoQwh83TPvRdvhWTMcK2llCmKuMhYhmggU6KSoUFRVFI0 +KKQyntNgSINQSimVMvSl0sArhAyVyrff8895fs85z9777L32WvtQG8JdggQF +yDVDQOC/+0T3o0ZuWqHl1N1NAZFhaNl2TiHOqiMZUmYsDTXWUAOUfbZBoeMY +TO9qSR/h6sL2NcXtQh35sD4mRaORawlSQ/LHfrZfBYf+L4eTuE7w7pZT+Fh7 +PXRo3bhBc3xhJbf/7Uj7C0jbbepwiBUGP9tNTgy398CExPEVgvMToGH5pcLn ++d/h4aHtooOqGaDyrubLBu0/YN8fcvhKVzbM3+JXLLxcCJcP33AMrDoLx5as +rHVyE8F4uXDldN986DylVzcyTxyNZJNHHUMuQlrhnmeCilIo1/Om3y34Mshn +fTx4/KwMGgu+SpITKAGFRTf2/iiSwRy5mt3qoiWgVL9/jw8tg11KRpEc6RJQ +G14Qo9Ugg32DIajCLQGNVdv8a/tkcEX6MpfnNiVgMPOP8UeD+ag4NOhqe6QE +VkfLfdJvno8JzVERG+RL4YCrneWLCVlsS0IhKaUyULr+VElwhhzyoMksll0G +5TKuk0vmyqHavWVW7QvL4PULX/qouhw+11tVtde8DLjO0WxnWzmM8MvQOeFd +BvWOebNbc+TQ+ZJuXNrZMvizcvxpi4U8cjvKmSalcogyveD3KFkBD7qdHuQL +VoD9eYkxh3QFNL6S+qpSpALYwrtSn55QwPt0/xIpyQpobeMzLy8roIJy9cob +yhWgu01MqPupApoYJ7ffNKyAvqLYolElRRydG7u2NqgCvOc7DSpfU8RATdHJ +jIYKMNhZm3TuliJmfef08h5VwJyef+SoB4oY/oVj/eVpBdRUCIFmpyIyho7W +ml0VIOdQk6k3rYh+jWOeAcOk/ySu4QoHJVRzvdTTJ06D9bdf8WEflZDveDkf +TGiIs81aeG9ACZUqB1/QpjSUX9DpkplQwlG7j67qFjQouPqb1ogo4wJq2nEM +aRiovj8ppKuMP/SF5BLsaTienBmds0MZ6zhfhKV8aOiR1QxrFFfBINGhQcNE +GuTD76rKy6tghohXxJpkGlY99GgJZalgfPVr29C9NFTGp2lLGqjgZHjM2LFU +Gg69G+739FDBAtfXVg8yadC/UrvxW74Kduacf1l6noYkC+f1SktVMXpl+tf4 +OzTY+p4bNVmmim93lVZvrKNBIvFritsqVZRafzfYuZ6GMw37ijL9VXH2vcfB +yg9oqLa/+XX2QVV8r6L492ALDcMenO3fO1XxvlTwo+dvaKiK3yYs9UkVGwrX +NqW/pSHhzO1TukOqeOZvZ7H1OxrE3rvXhgqqofGbX5ySHhq0NqYLvF+ohtsN +7/e6/EuDb8z4oSc71TDYaamgxAQNGieXqfTvU8PsFvPkk5P/zV9GmXCmGmY+ +CRlU/UlD/O8FrcsK1VBcqGE/9ZuGEym+sjVP1PDBautWIUEGnhxtyruoqo48 +twZ5I3EGzMpzrifcVcdCvmSEI8WAdfvTP0MP1dEwJCdiPZsBJ4GZNn4v1HGj +nvOzSA4DAS5hnfBZHSN+dhcc1mBg5U5qT+IsFio9Lr5VsICBbeoTBVaLWKhv +1CbisoSB8WuZD38uZqF3uJC4hT4D8baLBhlDFqa4/43mGDCwL8LfmG3Jwmf0 +/Mh+QwZyG5ofCjqzULBxvo7nUgYaN+YNNmxn4dbs0Tk3LRmw+20qvWsnCy9K +eCbFAwNPM9uMDRNZeLL04YalyEBnjWhi4UEWfpS8HFJqxcDQ3GjpfWdY2K7e +fDjGmoGo8xImvAssVDPqCKVWMPDD8IrX+EUWesU+vN5MLOTbXRhUQdrzscmR +tWFAgbY1WVnPwrbWouJ0OwbOWn/0+vuAvL+seC7XngF25+7EyscsbP125F01 +sY7gtUear1goWTa7p8uBgWWuqt7CfSwMmKPsL+DEQFNfVeLdARZWnM4ITiFe +tdvlYuwIC33/J/pJaDUD7kUHhnp/sTD3tPbKP8RbfowkPhSnsHi9fOVzZ7Je +EcFyX6QpzOf9umbnwoBIf1eJkAKF1oqbb90hvvim4bUlm0Kdy3e/5a1lINp1 +6RZvLQoXVYuqiLmS8bSUzojXppCXWO4WQ9x954T2DWMKPcPffrd0Y6DUZE79 +C3MKVVXbPPOI4+kE92GkcEvG32e/ieXyNyYvcqAwwLj1WzmfgdX7TDsu+FE4 +aF4rNezOgNrfsq13AymcXp8nburBwMB2ttDbUOL3h9X3EKeGzNVViKZwa1xK +qqAnA/wPexqM4ijsNhb9AMTcdWMeaxMoNM/KdoknrnN4m3IklcK3uS0pX4iP +NDorlh6mcPnzKWuFdQx48x6UPzpG4aM6M7YN8cJKM+vekxRW73VSiSL+qVvR +OfMshb2jUwZniB9e4oSz8yk0PS2yqZ44m3VqJl6iULrJ7O5n4sAcsVyfUgpf +7/A0nO3FgL500uKdDIUhm7WbOcQCaeONpyopzJPalWRJ/FRo07rKWgqrTkh5 +8YnP7Or+9rKOwvcdle6biTePu+wbuU/hlUjjHbuJzcKalCQfU7iD9rqdTizS +a05rt1IodWJUK4f4tR+9wv4VhX/am6rziQs7uG82dlE4//PlbVeII51ztu17 +R2H/m4A1ZcTYLD674BOFqzKaPMqJJZYnn677l8KbewsOlRK/rZ3Q6x6isPN7 +05dLxKWGmx9Mfadw7P6ssPPE8WXvvBR/kvU9oUtlE9tquo4Y/6VQv2z+jIPE +cnkP97sKsdFKJE0ijviTPE8lUoSNUs5B9sHEVzMZJkOcjTIfYm+sIU4U1bQp +k2Yjq+7kmqXEq5Nz/9csz8apglwVVWK1KYnIPhU23vnGV5om8z0QlSI8m81G +l2sF9t3EqUFb9K202Rhl6bQyi5jf/b7Jdwkb5yX5yGwm5rq7+ewyZuN+PX85 +IK6ztUytQjaaqBff6/4vPu5dVX21go2hCy9vLib2NtO6NmrPRr6p8Ooo4p+L +5nXruLEx08jn/m8SjxNnlZIM1rFRa639wTvEY5IaXFM/NjpeKy3YTTz03XST +dSgb3yxgvftO4vtrkLW4fRgbbxl3zSgh7mt3oldHsZET6ZXgR9xTGzCxbjf5 +voG5qXVkf7zTCcvxTybz19Mnt5X4f3k7LIIPsLEvok9Qnvh1yuHkiKNs3G7F +jG8g+6vZoUoi9SIb9waa+L4h+7fp9j3mcDHpr3V0MJK4cfET1+MVbKwrLfgg +THxH5kPuuRo2Jois+7GA7P+rb+Zo3WhhY8uajVNOa0g+3ewLPeNs9AuwV1Fd +xcDJtyE9vb/YGKH5j2sayU9Zq6P2DU6zMTlK/O8EyV9HDFIf/xDl4F3f/SUP +SL5LnmLcJdU4aGUXs9+G5MPNabO2WazkYK8hJdJK8mvIH0mZZQ4cHJN3b5El +Dg5XqrRZw0GxAD0ZT5KP/dcu/u2yjoNmRvu5HSR/uyp7poaGcVBx+t/YanMG +LEpKz2dnc7C8L+26oBEDb1gleStOc9Cj9ZelHqkH8dlXzo3lcTAoI7TYi9SL +qqSiMy5XOJjTGKhVSuqLvsf5UxK3ODjLpuaZgS4DC2ZlZe7/wEG9eeaHujVJ +/PrtTNyuzcXezCzzS3IM3GiL26OxhIuGklrhx2TJeOx3JLQZcTHqmfPZnfMZ +OGYUs0sfuDgkWDNgI82AuFj4jiFnLj7+/TbsIamXM2s2bAuOJc+/TNeEzmRg +RNren1/PRWqfhI3BMA0dW9itm5q4GMSijtcP0VD34BfsecLFWSGG51YP0pAZ +X6J++TUXfYRvj2/op0GvR+zdz34uxivNfRT2iYYw5pnPWRkNPLozdFK5g4b+ +1W5enwI1MHxTlnnbbRo+pfvzI4U1Mcm5t3SKnH/C+rXZemKa6NoduUQjiYZJ +m5+Dg/M0MUcj5O+qPTTMETq2L1RJE8snvWJO7iT9xTVc99fRxOEbs0flo2nY +HaQps3qtJhbZfJxqCqRBznLg2aI8TbQZuT7rqzUNdt9i7T4ba+HWw+tnRgmQ +80aASNT1Pf+gftsj+hVdTv4P5AUP1C/ANj92TIpZGUi3aB6hvy3EhGp2teid +ElBJrVhjbKyNuyTWSNqJFMOpRabzZDbq4DxD/tAlv8vQrGRl9P2oLjal5Sha +VRWBmUp95uLXi3FYaI10VV8hSAjlR69P1kOt16EHvloUgFqSuoWn5hKM58X4 +GcReAFEN70qXpiV4rllDNvpoHujyFCtiffRxtLBkmXfmGYjslm6wFzBAy4aa +DYlxOfDte7qb3SkDPNY0w2lOYzbYLH6Qa6djiKJ9HjFjtllw57v51ORTQ/R2 +ypShHx+FMG39rudBRtgcIODZ6poBvKHANk9RY+Tf+nhxM5UGK7gKjuL5xmg6 +cFTG/eQB+Cfx0I56ExPMNHX8cCl2LywMMr2r0WWCjYY9YhcjkyDoTsje6xFL +cV98+Ee1f3fD3fNtgSOypmgNNjuHFsbB2OXpycVVptjNkqm7rx4DARolormO +Zjhanu1T3hkBIwuPG18dNkP/++JvH2dtherCqQ/jqeZYKxYn7seEwDprDpqr +WeCuKxtPR2UHgvLWAzW6dRbYIqvwXLLVH45MBxul1VugZK771yUN/iB4bCXT +22iBe8qjTnpX+kN/5awr5x9ZYPj0wLHHZ/zhpsDeU9IvLdCvty9bcpM/rMtK +jJ34bIF7J9Q7Fs32h1O1cUZ35vJQcK3MtkUHfUF2zhbG0Z2HqlqNW8OvekHh +8t3xw548PLpFM0Uv1wv0dx9Zftybh63K941mJnuB0zD9qmM9Dx3NBK0/OnvB +/tfjPwO28HCWQdadhNF18CN/z7L4JB5qTDWIUSbroMv8+MuiEh4Wnzwo1dDi +ASExhWfsynl4Kkj30L0qD5govxE0QPNw+naBwfMLHiDN7phcUsnDRrvqAc52 +D3AQUVW5XcfD23/y60+oe8CttqLAl694mDBoG3whxh3sJap1tnfwsHPGhftl +/u7QYfNoQuEND3dovitqdnCHsZtfU33f87De7U+DEdsddC7olf3bz0P+ZT+L +1md8uNVltT19kIfaaYEJfrV8sJ+/FhYP83DSp2zgbxEfgg/EPI8e5+EIN5sT +lsCHsbr9ufI/eMjrE27nbeJD8q+TATd/8dDBdH26Kp8P8wyvaPv8Ie1pyJuK +L+PDua03x6eneaiVVfBCTJcP/wfbSxmC + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0678051916834736}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.0678051916834736}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHBRoQwh83TPvRdvhWTMcK2llCmKuMhYhmggU6KSoUFRVFI0 +KKQyntNgSINQSimVMvSl0sArhAyVyrff8895fs85z9777L32WvtQG8JdggQF +yDVDQOC/+0T3o0ZuWqHl1N1NAZFhaNl2TiHOqiMZUmYsDTXWUAOUfbZBoeMY +TO9qSR/h6sL2NcXtQh35sD4mRaORawlSQ/LHfrZfBYf+L4eTuE7w7pZT+Fh7 +PXRo3bhBc3xhJbf/7Uj7C0jbbepwiBUGP9tNTgy398CExPEVgvMToGH5pcLn ++d/h4aHtooOqGaDyrubLBu0/YN8fcvhKVzbM3+JXLLxcCJcP33AMrDoLx5as +rHVyE8F4uXDldN986DylVzcyTxyNZJNHHUMuQlrhnmeCilIo1/Om3y34Mshn +fTx4/KwMGgu+SpITKAGFRTf2/iiSwRy5mt3qoiWgVL9/jw8tg11KRpEc6RJQ +G14Qo9Ugg32DIajCLQGNVdv8a/tkcEX6MpfnNiVgMPOP8UeD+ag4NOhqe6QE +VkfLfdJvno8JzVERG+RL4YCrneWLCVlsS0IhKaUyULr+VElwhhzyoMksll0G +5TKuk0vmyqHavWVW7QvL4PULX/qouhw+11tVtde8DLjO0WxnWzmM8MvQOeFd +BvWOebNbc+TQ+ZJuXNrZMvizcvxpi4U8cjvKmSalcogyveD3KFkBD7qdHuQL +VoD9eYkxh3QFNL6S+qpSpALYwrtSn55QwPt0/xIpyQpobeMzLy8roIJy9cob +yhWgu01MqPupApoYJ7ffNKyAvqLYolElRRydG7u2NqgCvOc7DSpfU8RATdHJ +jIYKMNhZm3TuliJmfef08h5VwJyef+SoB4oY/oVj/eVpBdRUCIFmpyIyho7W +ml0VIOdQk6k3rYh+jWOeAcOk/ySu4QoHJVRzvdTTJ06D9bdf8WEflZDveDkf +TGiIs81aeG9ACZUqB1/QpjSUX9DpkplQwlG7j67qFjQouPqb1ogo4wJq2nEM +aRiovj8ppKuMP/SF5BLsaTienBmds0MZ6zhfhKV8aOiR1QxrFFfBINGhQcNE +GuTD76rKy6tghohXxJpkGlY99GgJZalgfPVr29C9NFTGp2lLGqjgZHjM2LFU +Gg69G+739FDBAtfXVg8yadC/UrvxW74Kduacf1l6noYkC+f1SktVMXpl+tf4 +OzTY+p4bNVmmim93lVZvrKNBIvFritsqVZRafzfYuZ6GMw37ijL9VXH2vcfB +yg9oqLa/+XX2QVV8r6L492ALDcMenO3fO1XxvlTwo+dvaKiK3yYs9UkVGwrX +NqW/pSHhzO1TukOqeOZvZ7H1OxrE3rvXhgqqofGbX5ySHhq0NqYLvF+ohtsN +7/e6/EuDb8z4oSc71TDYaamgxAQNGieXqfTvU8PsFvPkk5P/zV9GmXCmGmY+ +CRlU/UlD/O8FrcsK1VBcqGE/9ZuGEym+sjVP1PDBautWIUEGnhxtyruoqo48 +twZ5I3EGzMpzrifcVcdCvmSEI8WAdfvTP0MP1dEwJCdiPZsBJ4GZNn4v1HGj +nvOzSA4DAS5hnfBZHSN+dhcc1mBg5U5qT+IsFio9Lr5VsICBbeoTBVaLWKhv +1CbisoSB8WuZD38uZqF3uJC4hT4D8baLBhlDFqa4/43mGDCwL8LfmG3Jwmf0 +/Mh+QwZyG5ofCjqzULBxvo7nUgYaN+YNNmxn4dbs0Tk3LRmw+20qvWsnCy9K +eCbFAwNPM9uMDRNZeLL04YalyEBnjWhi4UEWfpS8HFJqxcDQ3GjpfWdY2K7e +fDjGmoGo8xImvAssVDPqCKVWMPDD8IrX+EUWesU+vN5MLOTbXRhUQdrzscmR +tWFAgbY1WVnPwrbWouJ0OwbOWn/0+vuAvL+seC7XngF25+7EyscsbP125F01 +sY7gtUear1goWTa7p8uBgWWuqt7CfSwMmKPsL+DEQFNfVeLdARZWnM4ITiFe +tdvlYuwIC33/J/pJaDUD7kUHhnp/sTD3tPbKP8RbfowkPhSnsHi9fOVzZ7Je +EcFyX6QpzOf9umbnwoBIf1eJkAKF1oqbb90hvvim4bUlm0Kdy3e/5a1lINp1 +6RZvLQoXVYuqiLmS8bSUzojXppCXWO4WQ9x954T2DWMKPcPffrd0Y6DUZE79 +C3MKVVXbPPOI4+kE92GkcEvG32e/ieXyNyYvcqAwwLj1WzmfgdX7TDsu+FE4 +aF4rNezOgNrfsq13AymcXp8nburBwMB2ttDbUOL3h9X3EKeGzNVViKZwa1xK +qqAnA/wPexqM4ijsNhb9AMTcdWMeaxMoNM/KdoknrnN4m3IklcK3uS0pX4iP +NDorlh6mcPnzKWuFdQx48x6UPzpG4aM6M7YN8cJKM+vekxRW73VSiSL+qVvR +OfMshb2jUwZniB9e4oSz8yk0PS2yqZ44m3VqJl6iULrJ7O5n4sAcsVyfUgpf +7/A0nO3FgL500uKdDIUhm7WbOcQCaeONpyopzJPalWRJ/FRo07rKWgqrTkh5 +8YnP7Or+9rKOwvcdle6biTePu+wbuU/hlUjjHbuJzcKalCQfU7iD9rqdTizS +a05rt1IodWJUK4f4tR+9wv4VhX/am6rziQs7uG82dlE4//PlbVeII51ztu17 +R2H/m4A1ZcTYLD674BOFqzKaPMqJJZYnn677l8KbewsOlRK/rZ3Q6x6isPN7 +05dLxKWGmx9Mfadw7P6ssPPE8WXvvBR/kvU9oUtlE9tquo4Y/6VQv2z+jIPE +cnkP97sKsdFKJE0ijviTPE8lUoSNUs5B9sHEVzMZJkOcjTIfYm+sIU4U1bQp +k2Yjq+7kmqXEq5Nz/9csz8apglwVVWK1KYnIPhU23vnGV5om8z0QlSI8m81G +l2sF9t3EqUFb9K202Rhl6bQyi5jf/b7Jdwkb5yX5yGwm5rq7+ewyZuN+PX85 +IK6ztUytQjaaqBff6/4vPu5dVX21go2hCy9vLib2NtO6NmrPRr6p8Ooo4p+L +5nXruLEx08jn/m8SjxNnlZIM1rFRa639wTvEY5IaXFM/NjpeKy3YTTz03XST +dSgb3yxgvftO4vtrkLW4fRgbbxl3zSgh7mt3oldHsZET6ZXgR9xTGzCxbjf5 +voG5qXVkf7zTCcvxTybz19Mnt5X4f3k7LIIPsLEvok9Qnvh1yuHkiKNs3G7F +jG8g+6vZoUoi9SIb9waa+L4h+7fp9j3mcDHpr3V0MJK4cfET1+MVbKwrLfgg +THxH5kPuuRo2Jois+7GA7P+rb+Zo3WhhY8uajVNOa0g+3ewLPeNs9AuwV1Fd +xcDJtyE9vb/YGKH5j2sayU9Zq6P2DU6zMTlK/O8EyV9HDFIf/xDl4F3f/SUP +SL5LnmLcJdU4aGUXs9+G5MPNabO2WazkYK8hJdJK8mvIH0mZZQ4cHJN3b5El +Dg5XqrRZw0GxAD0ZT5KP/dcu/u2yjoNmRvu5HSR/uyp7poaGcVBx+t/YanMG +LEpKz2dnc7C8L+26oBEDb1gleStOc9Cj9ZelHqkH8dlXzo3lcTAoI7TYi9SL +qqSiMy5XOJjTGKhVSuqLvsf5UxK3ODjLpuaZgS4DC2ZlZe7/wEG9eeaHujVJ +/PrtTNyuzcXezCzzS3IM3GiL26OxhIuGklrhx2TJeOx3JLQZcTHqmfPZnfMZ +OGYUs0sfuDgkWDNgI82AuFj4jiFnLj7+/TbsIamXM2s2bAuOJc+/TNeEzmRg +RNren1/PRWqfhI3BMA0dW9itm5q4GMSijtcP0VD34BfsecLFWSGG51YP0pAZ +X6J++TUXfYRvj2/op0GvR+zdz34uxivNfRT2iYYw5pnPWRkNPLozdFK5g4b+ +1W5enwI1MHxTlnnbbRo+pfvzI4U1Mcm5t3SKnH/C+rXZemKa6NoduUQjiYZJ +m5+Dg/M0MUcj5O+qPTTMETq2L1RJE8snvWJO7iT9xTVc99fRxOEbs0flo2nY +HaQps3qtJhbZfJxqCqRBznLg2aI8TbQZuT7rqzUNdt9i7T4ba+HWw+tnRgmQ +80aASNT1Pf+gftsj+hVdTv4P5AUP1C/ANj92TIpZGUi3aB6hvy3EhGp2teid +ElBJrVhjbKyNuyTWSNqJFMOpRabzZDbq4DxD/tAlv8vQrGRl9P2oLjal5Sha +VRWBmUp95uLXi3FYaI10VV8hSAjlR69P1kOt16EHvloUgFqSuoWn5hKM58X4 +GcReAFEN70qXpiV4rllDNvpoHujyFCtiffRxtLBkmXfmGYjslm6wFzBAy4aa +DYlxOfDte7qb3SkDPNY0w2lOYzbYLH6Qa6djiKJ9HjFjtllw57v51ORTQ/R2 +ypShHx+FMG39rudBRtgcIODZ6poBvKHANk9RY+Tf+nhxM5UGK7gKjuL5xmg6 +cFTG/eQB+Cfx0I56ExPMNHX8cCl2LywMMr2r0WWCjYY9YhcjkyDoTsje6xFL +cV98+Ee1f3fD3fNtgSOypmgNNjuHFsbB2OXpycVVptjNkqm7rx4DARolormO +Zjhanu1T3hkBIwuPG18dNkP/++JvH2dtherCqQ/jqeZYKxYn7seEwDprDpqr +WeCuKxtPR2UHgvLWAzW6dRbYIqvwXLLVH45MBxul1VugZK771yUN/iB4bCXT +22iBe8qjTnpX+kN/5awr5x9ZYPj0wLHHZ/zhpsDeU9IvLdCvty9bcpM/rMtK +jJ34bIF7J9Q7Fs32h1O1cUZ35vJQcK3MtkUHfUF2zhbG0Z2HqlqNW8OvekHh +8t3xw548PLpFM0Uv1wv0dx9Zftybh63K941mJnuB0zD9qmM9Dx3NBK0/OnvB +/tfjPwO28HCWQdadhNF18CN/z7L4JB5qTDWIUSbroMv8+MuiEh4Wnzwo1dDi +ASExhWfsynl4Kkj30L0qD5govxE0QPNw+naBwfMLHiDN7phcUsnDRrvqAc52 +D3AQUVW5XcfD23/y60+oe8CttqLAl694mDBoG3whxh3sJap1tnfwsHPGhftl +/u7QYfNoQuEND3dovitqdnCHsZtfU33f87De7U+DEdsddC7olf3bz0P+ZT+L +1md8uNVltT19kIfaaYEJfrV8sJ+/FhYP83DSp2zgbxEfgg/EPI8e5+EIN5sT +lsCHsbr9ufI/eMjrE27nbeJD8q+TATd/8dDBdH26Kp8P8wyvaPv8Ie1pyJuK +L+PDua03x6eneaiVVfBCTJcP/wfbSxmC + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0678051916834736}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0678051916834736}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99391915706234*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"1ffe90a6-bcb3-491b-95c2-66bc39c83e3c"] +}, Open ]], Cell[CellGroupData[{ @@ -6169,66 +11531,76 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[448]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], + "In[121]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347571140808*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.239337122414287`*^-150\\\", \ +RowBox[{\\\"\ +692388265304082962155241704502629852543932276498796563311324806235240\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"25\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8063384494795553340756316369516704730972160000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 133, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.993919206426415*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +In[121]:=",ExpressionUUID->"c20658d3-e868-4a44-998f-9ee7b207d5a5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711508217`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.6987157529147114`*^-152\\\", \ +RowBox[{\\\"\ +257637673519649270217965438245428568131597200085202201208143960400132\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3853705134253980954253210971658303947407360000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 134, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.993919248635518*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +In[121]:=",ExpressionUUID->"5bbc92ac-7017-4ef5-904b-e054b0640a3a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ -\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ -2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711592274`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.839384293691745`*^-155\\\", \ +RowBox[{\\\"\ +990359217009531794717859144615427415897859637127517261444105383778111\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"32\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3642536072302788149342975054520373833891840000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 135, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.9939192932350397`*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +In[121]:=",ExpressionUUID->"7acd0f22-9efd-4188-9a18-f13696d107dc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711683846`*^9}, +during this calculation.\"", 2, 121, 136, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.9939193372811337`*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +In[121]:=",ExpressionUUID->"2149a106-7ee3-4638-a05e-f6bbbfa8114f"], -Cell[BoxData["10.362747935330763`"], "Output", - CellChangeTimes->{3.991347578228073*^9}, +Cell[BoxData["12.019147722956827`"], "Output", + CellChangeTimes->{3.991347578228073*^9, 3.993920364259284*^9}, CellLabel-> - "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] + "Out[121]=",ExpressionUUID->"758643e8-be53-4fdf-8d4b-48734d818286"] }, Open ]], Cell[CellGroupData[{ @@ -6295,68 +11667,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918503106317043`*^9, - 3.9918503148567924`*^9}},ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-\ -2a98ba29b602"], + CellChangeTimes->{{3.9918503106317043`*^9, 3.9918503148567924`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 449, - 493, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347578265545*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.327215419655424`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 122, 137, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.993920364339158*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +In[122]:=",ExpressionUUID->"7516f435-edc3-42f3-a697-7660f68b60a3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 449, - 494, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347578275551*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.55944054112354`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 138, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.9939203643496637`*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +In[122]:=",ExpressionUUID->"f3e15b0b-826e-4023-a18e-0a23e0b55999"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 449, 495, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475782835484`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.935699048197833`*^-235\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 122, 139, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.993920364356574*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +In[122]:=",ExpressionUUID->"d2ee29c1-aedf-4012-9992-2bab938f2d88"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475782930756`*^9}, +during this calculation.\"", 2, 122, 140, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.9939203643632593`*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +In[122]:=",ExpressionUUID->"9815205f-8282-472b-ba05-2aac4fc8b4a0"], -Cell[BoxData["1.4359199941844076`"], "Output", - CellChangeTimes->{3.9913475858902473`*^9}, +Cell[BoxData["0.05795002572909359`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9, 3.993920370263483*^9}, CellLabel-> - "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] + "Out[122]=",ExpressionUUID->"dc7320a3-a2cd-438c-bd7c-e8960bd970eb"] }, Open ]], Cell[CellGroupData[{ @@ -6377,8 +11753,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6423,68 +11798,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850318596199*^9, - 3.991850321359722*^9}},ExpressionUUID->"edfdd675-c60b-304e-9e16-\ -68452b971319"], + CellChangeTimes->{{3.991850318596199*^9, 3.991850321359722*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 450, - 497, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859272156`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.327215419655424`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 123, 141, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.9939203703064547`*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +In[123]:=",ExpressionUUID->"8e774b24-aad4-420f-a217-3e2e60baa724"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 450, - 498, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347585937319*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.55944054112354`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 123, 142, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993920370314856*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +In[123]:=",ExpressionUUID->"3094366e-e232-4df1-aee5-82cbebf69f05"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 450, 499, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859463177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.935699048197833`*^-235\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 123, 143, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993920370321336*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +In[123]:=",ExpressionUUID->"85b7622f-9b25-429d-ba3b-e54385332478"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859543304`*^9}, +during this calculation.\"", 2, 123, 144, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993920370327794*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +In[123]:=",ExpressionUUID->"b856196c-47bd-4556-9323-197ac05b98c1"], -Cell[BoxData["5.09241659576143`"], "Output", - CellChangeTimes->{3.9913475931276417`*^9}, +Cell[BoxData["34.34337974177681`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9, 3.993920376203273*^9}, CellLabel-> - "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] + "Out[123]=",ExpressionUUID->"88d87827-32df-49f1-a04d-73ada7c69fc6"] }, Open ]], Cell[CellGroupData[{ @@ -6505,8 +11884,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6551,68 +11929,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850325611994*^9, - 3.991850328926569*^9}},ExpressionUUID->"d0469d46-2e74-494a-be85-\ -b41cb2f3fa92"], + CellChangeTimes->{{3.991850325611994*^9, 3.991850328926569*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 451, - 501, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134759316485*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.327215419655424`*^-223\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 124, 145, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.9939203762495737`*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +In[124]:=",ExpressionUUID->"14f44d32-e54f-438e-8f75-05d4102f24de"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 451, - 502, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347593173849*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.55944054112354`*^-229\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 146, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.9939203762581253`*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +In[124]:=",ExpressionUUID->"d689ef6c-22f7-4cf2-91b4-1d2b1b820d41"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 451, 503, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347593182852*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.935699048197833`*^-235\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 124, 147, 31385386164681285117, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.9939203762670937`*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +In[124]:=",ExpressionUUID->"70d1fbd5-e470-42a5-81dc-cd5d5a85aecc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475931908703`*^9}, +during this calculation.\"", 2, 124, 148, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.9939203762757807`*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +In[124]:=",ExpressionUUID->"b7459590-c619-4fd7-aeab-4b5dff543984"], -Cell[BoxData["16.684462799943017`"], "Output", - CellChangeTimes->{3.9913475973006153`*^9}, +Cell[BoxData["3.864224554940097`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9, 3.993920380224581*^9}, CellLabel-> - "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] + "Out[124]=",ExpressionUUID->"dc241965-5aeb-49fd-ad77-67e1e46a7406"] }, Open ]], Cell[CellGroupData[{ @@ -6621,22 +12003,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.99185033265069*^9, - 3.9918503366548977`*^9}},ExpressionUUID->"58b5e243-0972-1946-bd17-\ -aca0f3e8a35b"], - -Cell[BoxData["0.15578016747845222`"], "Output", - CellChangeTimes->{3.991347597341627*^9}, + CellChangeTimes->{{3.99185033265069*^9, 3.9918503366548977`*^9}}, CellLabel-> - "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] + "In[125]:=",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], + +Cell[BoxData["0.00503038168945463`"], "Output", + CellChangeTimes->{3.991347597341627*^9, 3.993920380262484*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"2bf9d88b-4faf-4c3e-a3c0-ef39aaa8743b"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918503408077297`*^9, 3.99185034363356*^9}, - 3.991924645514969*^9},ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-\ -a3711ba632a4"], + 3.991924645514969*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ @@ -6659,12 +12042,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + "In[127]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.991347597372614*^9}, +Cell[BoxData["14.782524307790979`"], "Output", + CellChangeTimes->{3.991347597372614*^9, 3.993920380301074*^9}, CellLabel-> - "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] + "Out[127]=",ExpressionUUID->"059a64a9-651e-4bc4-97d2-1da4d210e76b"] }, Open ]], Cell[CellGroupData[{ @@ -6674,12 +12057,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + "In[128]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.991347597428034*^9}, +Cell[BoxData["1.3697961534241638`"], "Output", + CellChangeTimes->{3.991347597428034*^9, 3.993920380309317*^9}, CellLabel-> - "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] + "Out[128]=",ExpressionUUID->"6dcff01a-c715-4609-b1a0-72e94f3cf1d8"] }, Open ]], Cell[CellGroupData[{ @@ -6689,12 +12072,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + "In[129]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.9913475974971066`*^9}, +Cell[BoxData["20.249044934711282`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9, 3.993920380319912*^9}, CellLabel-> - "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] + "Out[129]=",ExpressionUUID->"44b20e13-0fc1-406c-b41b-ed3e66e69c3b"] }, Open ]], Cell[CellGroupData[{ @@ -6884,12 +12267,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + "In[130]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[BoxData["0.038908834568544604`"], "Output", - CellChangeTimes->{3.991347597528105*^9}, +Cell[BoxData["0.00606522035144793`"], "Output", + CellChangeTimes->{3.991347597528105*^9, 3.9939203803337793`*^9}, CellLabel-> - "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] + "Out[130]=",ExpressionUUID->"3b9ffdff-9d6d-44f0-ba9f-61588c9a6146"] }, Open ]], Cell[CellGroupData[{ @@ -6903,12 +12286,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + "In[131]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[BoxData["4.492838724335521`"], "Output", - CellChangeTimes->{3.9913475976441536`*^9}, +Cell[BoxData["11.379459877794282`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9, 3.993920380441104*^9}, CellLabel-> - "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] + "Out[131]=",ExpressionUUID->"b927c949-ff05-4f16-993d-c6c1d816a885"] }, Open ]], Cell[CellGroupData[{ @@ -7100,12 +12483,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + "In[132]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[BoxData["0.012544276227890849`"], "Output", - CellChangeTimes->{3.991347597671173*^9}, +Cell[BoxData["0.043767628006879986`"], "Output", + CellChangeTimes->{3.991347597671173*^9, 3.993920380482092*^9}, CellLabel-> - "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] + "Out[132]=",ExpressionUUID->"a991dfce-0fcf-4a63-9a7e-ba5cd6b510f3"] }, Open ]], Cell[CellGroupData[{ @@ -7119,12 +12502,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + "In[133]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[BoxData["7.912653285153153`"], "Output", - CellChangeTimes->{3.9913475977705975`*^9}, +Cell[BoxData["4.236121767075989`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9, 3.9939203806010427`*^9}, CellLabel-> - "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] + "Out[133]=",ExpressionUUID->"8ae57c24-6a0a-4107-a5a8-1be8579c3829"] }, Open ]], Cell[CellGroupData[{ @@ -7217,12 +12600,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + "In[134]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913475977856007`*^9}, +Cell[BoxData["0.11820585579367623`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9, 3.993920380648679*^9}, CellLabel-> - "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] + "Out[134]=",ExpressionUUID->"f67bd560-988a-4206-b72a-ed540e0b19c9"] }, Open ]], Cell[CellGroupData[{ @@ -7312,12 +12695,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + "In[135]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991347597813669*^9}, +Cell[BoxData["0.8817941442063238`"], "Output", + CellChangeTimes->{3.991347597813669*^9, 3.99392038069272*^9}, CellLabel-> - "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] + "Out[135]=",ExpressionUUID->"4ebca907-9d83-49f0-b72c-303f571bf4f0"] }, Open ]], Cell[CellGroupData[{ @@ -7440,12 +12823,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + "In[136]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913475978426323`*^9}, +Cell[BoxData["0.10423323144976085`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9, 3.993920380732905*^9}, CellLabel-> - "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] + "Out[136]=",ExpressionUUID->"6b5ec7e7-cf4b-4434-9b90-e84537139a04"] }, Open ]], Cell[CellGroupData[{ @@ -7507,68 +12890,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918503626529236`*^9},ExpressionUUID->"ba508068-6b78-254c-87d6-\ -cf1adc0753dd"], + CellChangeTimes->{3.9918503626529236`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 505, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597872814*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.320505466039798`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 137, 149, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.9939203807654247`*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +In[137]:=",ExpressionUUID->"4c0ce0ae-69b4-49b4-9cb4-35459f1917da"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 506, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475978828144`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7856154543520227`*^-248\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 137, 150, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.993920380774144*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +In[137]:=",ExpressionUUID->"cab599df-5735-4473-8dd7-2f31a2336fd3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 507, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597891815*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4584429071737333`*^-255\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 137, 151, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.993920380783493*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +In[137]:=",ExpressionUUID->"73fdb417-b64f-4ddb-8dbd-ed13a128d891"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597900812*^9}, +during this calculation.\"", 2, 137, 152, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.993920380792638*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +In[137]:=",ExpressionUUID->"b0df9c9c-1760-498a-bbf3-32f5312e8707"], -Cell[BoxData["4.492838724335523`"], "Output", - CellChangeTimes->{3.9913476018505497`*^9}, +Cell[BoxData["11.37945987779427`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9, 3.993920383778225*^9}, CellLabel-> - "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] + "Out[137]=",ExpressionUUID->"e360cd3c-738a-45c7-a777-2d6258bb7762"] }, Open ]], Cell[CellGroupData[{ @@ -7630,68 +13014,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918503657638073`*^9},ExpressionUUID->"842e33e4-ae06-f746-ab8b-\ -97489285cc9c"], + CellChangeTimes->{3.9918503657638073`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 509, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476018885117`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.320505466039798`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 138, 153, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.993920383818667*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +In[138]:=",ExpressionUUID->"d964fc0c-fb44-411b-8c62-d5a155cbd6fc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 510, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134760189851*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7856154543520227`*^-248\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 154, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.9939203838265553`*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +In[138]:=",ExpressionUUID->"49ae7578-179c-4bff-9111-5b0874ac4954"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 511, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476019065113`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4584429071737333`*^-255\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 138, 155, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.993920383833536*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +In[138]:=",ExpressionUUID->"04172d13-48c3-4d18-9b29-0d7629ff959e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476019158936`*^9}, +during this calculation.\"", 2, 138, 156, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.993920383841851*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +In[138]:=",ExpressionUUID->"d9eb930f-10fa-4834-b5cf-edc83f75b357"], -Cell[BoxData["7.912653285153152`"], "Output", - CellChangeTimes->{3.9913476058912296`*^9}, +Cell[BoxData["4.236121767075987`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9, 3.993920386693771*^9}, CellLabel-> - "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] + "Out[138]=",ExpressionUUID->"4ef0c637-b308-49cc-a7d4-77ef66a7fe2b"] }, Open ]], Cell[CellGroupData[{ @@ -7749,93 +13134,93 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850369070572*^9},ExpressionUUID->"b2e314f8-a6f0-6942-a94c-\ -5ac1cacd7190"], + CellChangeTimes->{3.991850369070572*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwd1Xk0Vd0bB3AUmQuZI3MhQ9dcsp8Mqcg8TxnuPaaQIUmht6IiKpQUyVDJ +S6IoQ/JGUhRpHhSKpLg3mYrq99zfH2ed9Vl7ne/6nn322VsxMMqJwcXBwTGO +F/se/Vh71c3ex2bUmlLer7ZMYjZRZhBoWUlmxb4LsT1QZJirYtlM2iPeyLHt +QH/EI6h3j+iYbDdmuyYhpY3bspukxKX4sn20Q6o1peIJ6ZZbn8l2Q2/0+QXa +c5JAy77P9tibh/v2NL0iMdWHBL+hZYaVvWcs3pFvJ0R92LZh7jOJ7f5AgvrW +17PdsjAmkFAxSCSjOGTH0S/+kdxbH/mRFAf4p7M9wWM5NkUbJh9KvRdPoHmO +7fTUmx0hGjqTR9iWFynsjG4aJXoLylJMtJ3szKUJi29Ez9TTjYWmLihJaPFO +kM5CH+7v6BRV+9TwbiY5JT/fwvYryWdr4yq+k0EXPqcfaLpXWGjOsUliP5Wg +OYVmFXAU10b+IOsPH1w6jeZV0lr2nTZN5lxCZ2fQufQ262XiM0Rrl+X8LFrh +smeKzuwMueTcyPcTbbwmbSKiaY7ILYvfNI8OMfzQPWaxQPg6NAnHNiaZSti1 +mF/tN+Fc8TaPE72/ScBUnfcPiaxQmedCnwHjf4O7/5IrSmmD3Gj6xU7LmApO +uGe2X0sQXdGRM/CPLBfskfn7RgjN+uy37+QxLmg8KJmzFL1PY/r6tchF0HB+ +ubIYOrdaUZlJ44bnehvuyqDf9H5r+VPKDVG3U9tXoBUmb3oJi/OAEnfwE3l0 +pb5dttYsD6h6/+BXRrc3JHLuaOKFrvc6vzXR021PP4xaCII4WfGeoEVtBZft +bREE6/2DbeZo3WeWIGQiBE1FUvVW6LBPdRfWagtDW/3bOzbonVzduhsEl0H2 +o+oQD/Sw0tXvqTMiML8uYGkce36oh3w9eqJwg2tN8240178jilLRoqBjxdi1 +l91Xb6VTxVdRYFgpCR1Ee1mcqH08IAaBbneeZKN7gmJiJbvEQU3PtvoG+v3l +rAx/XgmQcRlQakB/+1pResVKAs61vi+5jeaP+/h0fasEGLlKd3agLQ+56PvX +SUKBRtLl1+jGMsPp8iJpEO5vbOC0Y5Ky4V/x6+LkoDXgjro3erPr4fexVXIQ +/eRxmz/6W7vYpqoROXAYuxxCofXL1ogreMpDzrO6vmh0e6DfdW6zlfAg22j1 +UfQkc2D36EEF4OM8+qoBLRZheeP6NiVwdZixUbZnkpEy/hCHMCX4xJljpoG+ +9a5XdjxNCTLlJtavRfvY+h5Ua1WCm4veuxF0mWa8Uz5NGc7uzhfyQeuPXWYl +S6qAyA6V5Dy0S7CA1tZBVUiPOB0i4cAkJN6V5v5bFcLvJx6RR2ukFhnRpdVA +9fTFWjU0R6meebKjGjT0dqsaoavee7vX/qcGDxxcD3ugedwq/5EpWQVG/l8M +C9G3LLe9GAtUh8t9Ly21HZmk1Dnv7WyyOvw6d6nSCJ0VODiw+Jw6uLdWym9E +0/fv+ir/VB3aRHwVXdAizYUczhYaEJRCihPRYXoTGk3KmrCKdTr9AVpW6XhK +xqc1oHb88d9IJyZpTp9S/8mlBRY+VacS0T4/PJ9RilowbJxklIY+366ibu6n +BVe1x88XopWCG/vmXmqBEfm50I3WqBxWpbq0YZ+49LSWM5PIycpTCp66UNDM +2zuHXnMxTnCe0CCFdoOr1pVJAukHp7XsaFDacvXUHfQZ5ez3/j40kGkbpD1C +LyqpvtaRQINw2kTGKPrN+TGX7BoazCdk3FrphvvpGf9CdWU9SDdeM38cPZJh +q+3Bow9aupkKCe5MUhyj4lDXbQCCP1RaKE8m6Y0nRocumkDNx/SGlX5Mouj3 +3M53xwbQy7FdiAtiEsbf+qtyewA0DzC5+EKZRPLrrSWSgeYQwTNpfCuKSeL0 +TN9la1iCMvl28kg89h9f6BQbs4ITPprKjUn4Pc1jlxT1WIOXrtjq5Wm4fqbC +/qvM3QILoZv/eGUxydxGqUftKTZQkOA09CSPSfo5Fn0fDNgGpWc5M7OLmSRy +RdSJf5Tt4QPVEiLwL5NcDe1sPZXqAJtN6PRrdUyS+EN6VjPUEaQ6DFSYd3D/ +2LrJ7f52J5jh6+J36WISE++TG4cdnUFLvbOm7QWT9EkXhrXruQCP89BcwSCe +J5cONpevdoV1Gq6yaeO4vgY0bO2E3MC9MFz19hyeB89YwfHjbrC98My9j5ws +onfqZGXpgDvUOAZvGVzCIoWLf2hnt3mAwb1NX2OEWKR+o86b1AZP0N/tmhkl +xiJnjNJFFiq8YCj/7ZSpNIv0vL2YpnfMG2x0a/2Py7NI3bYClZ37faBDvznE +QIVFvkc4c0TSfaF6iyanhzqLTG9SD5mw8IPBnv7wddosUj7+ei7WcDusqtx3 +yU2PRTyKLwb5CvqD/JtX0aNGLHK91mb7osP+cGZeIqPIlEVMZPt+Hv3pD3kO +JeGdwCLKA8FvnoQGgJd2SFGhJYt8Egi3L/gYAH5uxb8TN7NIb5ZdkLVrILwL +V5jusmGR3IQigV29gdDrqFokbM8izS1/fwZtCQKmosK7z44sstQHDus1BkF1 +eUOMqQuLKCy/37OiOQj+LKe9skLrdm+T4mkJglixdCN7tJOp95VX/wXB2pfP +Pwagc1fEdyU9CIIhns7JNLRM/79LO18FQftC3JcetIqf5Bmf2SC4MPpT39cV +38d/ojxVnw7aLoflGW4scimfFWtnSAcbr03RO9DLn06aSRrToaLqSEssesJq +9ln5ejrkm57afABdpsnB2W1Oh7VirTJFaOFZEU9RRzqEn5uof4n+lGnAVxRB +h95dTl2W7izieN/oWXAUHS5Q6RE26BaOdUW60XTY5WfI74TOjzUzuBtHh4Kc +Udp2tJ2ndcDwXjrs3Htl4x50g4png2Y6HfKaTFwq0VlN+0JvXaLD0LWMrcIe +LBJByzNJKKfD8JO8FcvRtldq+Iwr6PCS1/yLNJo/b+TKzSo6hK6NilFFp8Y4 +jNXfoANfj6KlKXqfukp43V06WMfmfgpBh+V17ah9T4fqCmXJFvQW4RHTmAE6 +yN9db9qGXp3KIUQbogNv0Ih3J3okxqCqZpgOxz5/T+9DB9gVjV/7RodPZ19d +HkF7cMdGVv/CPn1n3wl5soh1rMzOSgkGRGTU63ig7xalbc2WYkDjYqclvmjT +7kmVBBkGdP1JehWA1lXtem0hz4DImdTgcLT0y70Wb1UZ8CfPxjgZ/XVdvwS/ +AQMyQ33KStDHuS7cDnZmQFilStkIml9H8Mw2Vwas2KhQNYY+5J0Qo+fOgDnn +4uoJdMINh1V/vTC/jlY8gw6gOE+eDmSAUvdRQx4v/F8fBtLvRTNAQKJDXQX9 +8qSqgPIJBiyZ263rjb5KhEJGTzLATSuf5oc+ND7VXpXDgDtxwjoBaNqW9mTj +PAZohE9JBKOzOIImt51nwAV6eUkMelPUhdcJlQxgmqVeOYKWkztiaHaVAWtW +9TpkoKceRuUsusYAMbEdk5noEjWyLes6A9rJaZUc9O/+/tbSRgYIL6m2LETf +sJUtf9zJgNGg7thr6IxfXNy5Dxkg/0u0tRYdWD4W4NnNgMWjl3nq0MsWN8p+ +6mGAi1bzgQb0jiaP4z9fYJ5quuFdtLLG6XiVYQacszx3rA/962XS0y8jDCio +rEt6hu5NZehWjzLgp9KK0Bfo5EH9MZNvDJiq69Z+g35z5qmv/Q8GPBy9tWsQ +nb1ExCqRk4JMRsn3CXTzZL933CIKHj/dWM9Cf+6viInkpuBBflvsJNr0huWF +QD4KePMiXk+jR/wT5reKUDDu526/wO5vayVqJUaB7HHut7/R641E1Yk45v3K +3f4XfUKo0k1PmgIVLndnLm8cb/xQI6tIQex2+vASNHWxslNcmYKiGSljPvSJ +E3s+LFWloOBp1UF+9AglJrRYnYKzzN3cQuxxMeuQb7oUON5Lvy6CbvwjljJC +o2BPgdkjUfTwl4FTA/oUbBh78kEMva41se2ZMQXbM08zxdGfdlyVvw0UFGad +apBGC3vsNbhpTsGLWvOzMmgTi822NZYUzJY9jpVFZ0kP7bm4mYIlFQdE5NC3 +FlefKNpKAdfZiudsf2TuvZxvS8FfkZpsebRxh/jzTAcKmr08Z1eiA2uGvh52 +osBTaP68AjqzoJrrgAsFNwX2EkX0UMwW3XgPCpbWi4croYX8JKx3elHQsll3 +hm3jLR99w3woyJhanajMfn5lUoafPwXp4Td2qLD78G8t8QikYKOS9Vu2h6Yl +GpzoFMg9uGmuys4b/NhjS1EQ5M5TyrZx97WRTSEUTLbTFtgOvJn0G8Jwvvg3 +2Kmx80u2Ll+/gwI3BdV8tm9lSmoaRFIwwfH1HdtDCZ826uykwPpSlvQqtCC9 +xkM9hgJLgWX2bBvZJ0cpx1HgpxmVxHbgOps0uXgKKrgqy9g+pipVKJlAwevM +jna265cNXxdJpMDgYUs/24PzNQ8F9lFQXJfL/H/+5+RB7mQK8u02/2LbsM9m +7m8KBSa5r3+z/T8gAuuz "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7849,105 +13234,105 @@ wTw= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= +1:eJwd1Xk0Vd0bB3AUmQuZI3MhQ9dcsp8Mqcg8TxnuPaaQIUmht6IiKpQUyVDJ +S6IoQ/JGUhRpHhSKpLg3mYrq99zfH2ed9Vl7ne/6nn322VsxMMqJwcXBwTGO +F/se/Vh71c3ex2bUmlLer7ZMYjZRZhBoWUlmxb4LsT1QZJirYtlM2iPeyLHt +QH/EI6h3j+iYbDdmuyYhpY3bspukxKX4sn20Q6o1peIJ6ZZbn8l2Q2/0+QXa +c5JAy77P9tibh/v2NL0iMdWHBL+hZYaVvWcs3pFvJ0R92LZh7jOJ7f5AgvrW +17PdsjAmkFAxSCSjOGTH0S/+kdxbH/mRFAf4p7M9wWM5NkUbJh9KvRdPoHmO +7fTUmx0hGjqTR9iWFynsjG4aJXoLylJMtJ3szKUJi29Ez9TTjYWmLihJaPFO +kM5CH+7v6BRV+9TwbiY5JT/fwvYryWdr4yq+k0EXPqcfaLpXWGjOsUliP5Wg +OYVmFXAU10b+IOsPH1w6jeZV0lr2nTZN5lxCZ2fQufQ262XiM0Rrl+X8LFrh +smeKzuwMueTcyPcTbbwmbSKiaY7ILYvfNI8OMfzQPWaxQPg6NAnHNiaZSti1 +mF/tN+Fc8TaPE72/ScBUnfcPiaxQmedCnwHjf4O7/5IrSmmD3Gj6xU7LmApO +uGe2X0sQXdGRM/CPLBfskfn7RgjN+uy37+QxLmg8KJmzFL1PY/r6tchF0HB+ +ubIYOrdaUZlJ44bnehvuyqDf9H5r+VPKDVG3U9tXoBUmb3oJi/OAEnfwE3l0 +pb5dttYsD6h6/+BXRrc3JHLuaOKFrvc6vzXR021PP4xaCII4WfGeoEVtBZft +bREE6/2DbeZo3WeWIGQiBE1FUvVW6LBPdRfWagtDW/3bOzbonVzduhsEl0H2 +o+oQD/Sw0tXvqTMiML8uYGkce36oh3w9eqJwg2tN8240178jilLRoqBjxdi1 +l91Xb6VTxVdRYFgpCR1Ee1mcqH08IAaBbneeZKN7gmJiJbvEQU3PtvoG+v3l +rAx/XgmQcRlQakB/+1pResVKAs61vi+5jeaP+/h0fasEGLlKd3agLQ+56PvX +SUKBRtLl1+jGMsPp8iJpEO5vbOC0Y5Ky4V/x6+LkoDXgjro3erPr4fexVXIQ +/eRxmz/6W7vYpqoROXAYuxxCofXL1ogreMpDzrO6vmh0e6DfdW6zlfAg22j1 +UfQkc2D36EEF4OM8+qoBLRZheeP6NiVwdZixUbZnkpEy/hCHMCX4xJljpoG+ +9a5XdjxNCTLlJtavRfvY+h5Ua1WCm4veuxF0mWa8Uz5NGc7uzhfyQeuPXWYl +S6qAyA6V5Dy0S7CA1tZBVUiPOB0i4cAkJN6V5v5bFcLvJx6RR2ukFhnRpdVA +9fTFWjU0R6meebKjGjT0dqsaoavee7vX/qcGDxxcD3ugedwq/5EpWQVG/l8M +C9G3LLe9GAtUh8t9Ly21HZmk1Dnv7WyyOvw6d6nSCJ0VODiw+Jw6uLdWym9E +0/fv+ir/VB3aRHwVXdAizYUczhYaEJRCihPRYXoTGk3KmrCKdTr9AVpW6XhK +xqc1oHb88d9IJyZpTp9S/8mlBRY+VacS0T4/PJ9RilowbJxklIY+366ibu6n +BVe1x88XopWCG/vmXmqBEfm50I3WqBxWpbq0YZ+49LSWM5PIycpTCp66UNDM +2zuHXnMxTnCe0CCFdoOr1pVJAukHp7XsaFDacvXUHfQZ5ez3/j40kGkbpD1C +LyqpvtaRQINw2kTGKPrN+TGX7BoazCdk3FrphvvpGf9CdWU9SDdeM38cPZJh +q+3Bow9aupkKCe5MUhyj4lDXbQCCP1RaKE8m6Y0nRocumkDNx/SGlX5Mouj3 +3M53xwbQy7FdiAtiEsbf+qtyewA0DzC5+EKZRPLrrSWSgeYQwTNpfCuKSeL0 +TN9la1iCMvl28kg89h9f6BQbs4ITPprKjUn4Pc1jlxT1WIOXrtjq5Wm4fqbC +/qvM3QILoZv/eGUxydxGqUftKTZQkOA09CSPSfo5Fn0fDNgGpWc5M7OLmSRy +RdSJf5Tt4QPVEiLwL5NcDe1sPZXqAJtN6PRrdUyS+EN6VjPUEaQ6DFSYd3D/ +2LrJ7f52J5jh6+J36WISE++TG4cdnUFLvbOm7QWT9EkXhrXruQCP89BcwSCe +J5cONpevdoV1Gq6yaeO4vgY0bO2E3MC9MFz19hyeB89YwfHjbrC98My9j5ws +onfqZGXpgDvUOAZvGVzCIoWLf2hnt3mAwb1NX2OEWKR+o86b1AZP0N/tmhkl +xiJnjNJFFiq8YCj/7ZSpNIv0vL2YpnfMG2x0a/2Py7NI3bYClZ37faBDvznE +QIVFvkc4c0TSfaF6iyanhzqLTG9SD5mw8IPBnv7wddosUj7+ei7WcDusqtx3 +yU2PRTyKLwb5CvqD/JtX0aNGLHK91mb7osP+cGZeIqPIlEVMZPt+Hv3pD3kO +JeGdwCLKA8FvnoQGgJd2SFGhJYt8Egi3L/gYAH5uxb8TN7NIb5ZdkLVrILwL +V5jusmGR3IQigV29gdDrqFokbM8izS1/fwZtCQKmosK7z44sstQHDus1BkF1 +eUOMqQuLKCy/37OiOQj+LKe9skLrdm+T4mkJglixdCN7tJOp95VX/wXB2pfP +Pwagc1fEdyU9CIIhns7JNLRM/79LO18FQftC3JcetIqf5Bmf2SC4MPpT39cV +38d/ojxVnw7aLoflGW4scimfFWtnSAcbr03RO9DLn06aSRrToaLqSEssesJq +9ln5ejrkm57afABdpsnB2W1Oh7VirTJFaOFZEU9RRzqEn5uof4n+lGnAVxRB +h95dTl2W7izieN/oWXAUHS5Q6RE26BaOdUW60XTY5WfI74TOjzUzuBtHh4Kc +Udp2tJ2ndcDwXjrs3Htl4x50g4png2Y6HfKaTFwq0VlN+0JvXaLD0LWMrcIe +LBJByzNJKKfD8JO8FcvRtldq+Iwr6PCS1/yLNJo/b+TKzSo6hK6NilFFp8Y4 +jNXfoANfj6KlKXqfukp43V06WMfmfgpBh+V17ah9T4fqCmXJFvQW4RHTmAE6 +yN9db9qGXp3KIUQbogNv0Ih3J3okxqCqZpgOxz5/T+9DB9gVjV/7RodPZ19d +HkF7cMdGVv/CPn1n3wl5soh1rMzOSgkGRGTU63ig7xalbc2WYkDjYqclvmjT +7kmVBBkGdP1JehWA1lXtem0hz4DImdTgcLT0y70Wb1UZ8CfPxjgZ/XVdvwS/ +AQMyQ33KStDHuS7cDnZmQFilStkIml9H8Mw2Vwas2KhQNYY+5J0Qo+fOgDnn +4uoJdMINh1V/vTC/jlY8gw6gOE+eDmSAUvdRQx4v/F8fBtLvRTNAQKJDXQX9 +8qSqgPIJBiyZ263rjb5KhEJGTzLATSuf5oc+ND7VXpXDgDtxwjoBaNqW9mTj +PAZohE9JBKOzOIImt51nwAV6eUkMelPUhdcJlQxgmqVeOYKWkztiaHaVAWtW +9TpkoKceRuUsusYAMbEdk5noEjWyLes6A9rJaZUc9O/+/tbSRgYIL6m2LETf +sJUtf9zJgNGg7thr6IxfXNy5Dxkg/0u0tRYdWD4W4NnNgMWjl3nq0MsWN8p+ +6mGAi1bzgQb0jiaP4z9fYJ5quuFdtLLG6XiVYQacszx3rA/962XS0y8jDCio +rEt6hu5NZehWjzLgp9KK0Bfo5EH9MZNvDJiq69Z+g35z5qmv/Q8GPBy9tWsQ +nb1ExCqRk4JMRsn3CXTzZL933CIKHj/dWM9Cf+6viInkpuBBflvsJNr0huWF +QD4KePMiXk+jR/wT5reKUDDu526/wO5vayVqJUaB7HHut7/R641E1Yk45v3K +3f4XfUKo0k1PmgIVLndnLm8cb/xQI6tIQex2+vASNHWxslNcmYKiGSljPvSJ +E3s+LFWloOBp1UF+9AglJrRYnYKzzN3cQuxxMeuQb7oUON5Lvy6CbvwjljJC +o2BPgdkjUfTwl4FTA/oUbBh78kEMva41se2ZMQXbM08zxdGfdlyVvw0UFGad +apBGC3vsNbhpTsGLWvOzMmgTi822NZYUzJY9jpVFZ0kP7bm4mYIlFQdE5NC3 +FlefKNpKAdfZiudsf2TuvZxvS8FfkZpsebRxh/jzTAcKmr08Z1eiA2uGvh52 +osBTaP68AjqzoJrrgAsFNwX2EkX0UMwW3XgPCpbWi4croYX8JKx3elHQsll3 +hm3jLR99w3woyJhanajMfn5lUoafPwXp4Td2qLD78G8t8QikYKOS9Vu2h6Yl +GpzoFMg9uGmuys4b/NhjS1EQ5M5TyrZx97WRTSEUTLbTFtgOvJn0G8Jwvvg3 +2Kmx80u2Ll+/gwI3BdV8tm9lSmoaRFIwwfH1HdtDCZ826uykwPpSlvQqtCC9 +xkM9hgJLgWX2bBvZJ0cpx1HgpxmVxHbgOps0uXgKKrgqy9g+pipVKJlAwevM +jna265cNXxdJpMDgYUs/24PzNQ8F9lFQXJfL/H/+5+RB7mQK8u02/2LbsM9m +7m8KBSa5r3+z/T8gAuuz "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.9781394165705819, + 1.0222549358379764`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.9781394165705841}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7959,21 +13344,21 @@ wTw= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.9781394165705819, + 1.0222549358379764`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.9781394165705841}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7987,103 +13372,103 @@ wTw= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= +1:eJwd1Xk0Vd0bB3AUmQuZI3MhQ9dcsp8Mqcg8TxnuPaaQIUmht6IiKpQUyVDJ +S6IoQ/JGUhRpHhSKpLg3mYrq99zfH2ed9Vl7ne/6nn322VsxMMqJwcXBwTGO +F/se/Vh71c3ex2bUmlLer7ZMYjZRZhBoWUlmxb4LsT1QZJirYtlM2iPeyLHt +QH/EI6h3j+iYbDdmuyYhpY3bspukxKX4sn20Q6o1peIJ6ZZbn8l2Q2/0+QXa +c5JAy77P9tibh/v2NL0iMdWHBL+hZYaVvWcs3pFvJ0R92LZh7jOJ7f5AgvrW +17PdsjAmkFAxSCSjOGTH0S/+kdxbH/mRFAf4p7M9wWM5NkUbJh9KvRdPoHmO +7fTUmx0hGjqTR9iWFynsjG4aJXoLylJMtJ3szKUJi29Ez9TTjYWmLihJaPFO +kM5CH+7v6BRV+9TwbiY5JT/fwvYryWdr4yq+k0EXPqcfaLpXWGjOsUliP5Wg +OYVmFXAU10b+IOsPH1w6jeZV0lr2nTZN5lxCZ2fQufQ262XiM0Rrl+X8LFrh +smeKzuwMueTcyPcTbbwmbSKiaY7ILYvfNI8OMfzQPWaxQPg6NAnHNiaZSti1 +mF/tN+Fc8TaPE72/ScBUnfcPiaxQmedCnwHjf4O7/5IrSmmD3Gj6xU7LmApO +uGe2X0sQXdGRM/CPLBfskfn7RgjN+uy37+QxLmg8KJmzFL1PY/r6tchF0HB+ +ubIYOrdaUZlJ44bnehvuyqDf9H5r+VPKDVG3U9tXoBUmb3oJi/OAEnfwE3l0 +pb5dttYsD6h6/+BXRrc3JHLuaOKFrvc6vzXR021PP4xaCII4WfGeoEVtBZft +bREE6/2DbeZo3WeWIGQiBE1FUvVW6LBPdRfWagtDW/3bOzbonVzduhsEl0H2 +o+oQD/Sw0tXvqTMiML8uYGkce36oh3w9eqJwg2tN8240178jilLRoqBjxdi1 +l91Xb6VTxVdRYFgpCR1Ee1mcqH08IAaBbneeZKN7gmJiJbvEQU3PtvoG+v3l +rAx/XgmQcRlQakB/+1pResVKAs61vi+5jeaP+/h0fasEGLlKd3agLQ+56PvX +SUKBRtLl1+jGMsPp8iJpEO5vbOC0Y5Ky4V/x6+LkoDXgjro3erPr4fexVXIQ +/eRxmz/6W7vYpqoROXAYuxxCofXL1ogreMpDzrO6vmh0e6DfdW6zlfAg22j1 +UfQkc2D36EEF4OM8+qoBLRZheeP6NiVwdZixUbZnkpEy/hCHMCX4xJljpoG+ +9a5XdjxNCTLlJtavRfvY+h5Ua1WCm4veuxF0mWa8Uz5NGc7uzhfyQeuPXWYl +S6qAyA6V5Dy0S7CA1tZBVUiPOB0i4cAkJN6V5v5bFcLvJx6RR2ukFhnRpdVA +9fTFWjU0R6meebKjGjT0dqsaoavee7vX/qcGDxxcD3ugedwq/5EpWQVG/l8M +C9G3LLe9GAtUh8t9Ly21HZmk1Dnv7WyyOvw6d6nSCJ0VODiw+Jw6uLdWym9E +0/fv+ir/VB3aRHwVXdAizYUczhYaEJRCihPRYXoTGk3KmrCKdTr9AVpW6XhK +xqc1oHb88d9IJyZpTp9S/8mlBRY+VacS0T4/PJ9RilowbJxklIY+366ibu6n +BVe1x88XopWCG/vmXmqBEfm50I3WqBxWpbq0YZ+49LSWM5PIycpTCp66UNDM +2zuHXnMxTnCe0CCFdoOr1pVJAukHp7XsaFDacvXUHfQZ5ez3/j40kGkbpD1C +LyqpvtaRQINw2kTGKPrN+TGX7BoazCdk3FrphvvpGf9CdWU9SDdeM38cPZJh +q+3Bow9aupkKCe5MUhyj4lDXbQCCP1RaKE8m6Y0nRocumkDNx/SGlX5Mouj3 +3M53xwbQy7FdiAtiEsbf+qtyewA0DzC5+EKZRPLrrSWSgeYQwTNpfCuKSeL0 +TN9la1iCMvl28kg89h9f6BQbs4ITPprKjUn4Pc1jlxT1WIOXrtjq5Wm4fqbC +/qvM3QILoZv/eGUxydxGqUftKTZQkOA09CSPSfo5Fn0fDNgGpWc5M7OLmSRy +RdSJf5Tt4QPVEiLwL5NcDe1sPZXqAJtN6PRrdUyS+EN6VjPUEaQ6DFSYd3D/ +2LrJ7f52J5jh6+J36WISE++TG4cdnUFLvbOm7QWT9EkXhrXruQCP89BcwSCe +J5cONpevdoV1Gq6yaeO4vgY0bO2E3MC9MFz19hyeB89YwfHjbrC98My9j5ws +onfqZGXpgDvUOAZvGVzCIoWLf2hnt3mAwb1NX2OEWKR+o86b1AZP0N/tmhkl +xiJnjNJFFiq8YCj/7ZSpNIv0vL2YpnfMG2x0a/2Py7NI3bYClZ37faBDvznE +QIVFvkc4c0TSfaF6iyanhzqLTG9SD5mw8IPBnv7wddosUj7+ei7WcDusqtx3 +yU2PRTyKLwb5CvqD/JtX0aNGLHK91mb7osP+cGZeIqPIlEVMZPt+Hv3pD3kO +JeGdwCLKA8FvnoQGgJd2SFGhJYt8Egi3L/gYAH5uxb8TN7NIb5ZdkLVrILwL +V5jusmGR3IQigV29gdDrqFokbM8izS1/fwZtCQKmosK7z44sstQHDus1BkF1 +eUOMqQuLKCy/37OiOQj+LKe9skLrdm+T4mkJglixdCN7tJOp95VX/wXB2pfP +Pwagc1fEdyU9CIIhns7JNLRM/79LO18FQftC3JcetIqf5Bmf2SC4MPpT39cV +38d/ojxVnw7aLoflGW4scimfFWtnSAcbr03RO9DLn06aSRrToaLqSEssesJq +9ln5ejrkm57afABdpsnB2W1Oh7VirTJFaOFZEU9RRzqEn5uof4n+lGnAVxRB +h95dTl2W7izieN/oWXAUHS5Q6RE26BaOdUW60XTY5WfI74TOjzUzuBtHh4Kc +Udp2tJ2ndcDwXjrs3Htl4x50g4png2Y6HfKaTFwq0VlN+0JvXaLD0LWMrcIe +LBJByzNJKKfD8JO8FcvRtldq+Iwr6PCS1/yLNJo/b+TKzSo6hK6NilFFp8Y4 +jNXfoANfj6KlKXqfukp43V06WMfmfgpBh+V17ah9T4fqCmXJFvQW4RHTmAE6 +yN9db9qGXp3KIUQbogNv0Ih3J3okxqCqZpgOxz5/T+9DB9gVjV/7RodPZ19d +HkF7cMdGVv/CPn1n3wl5soh1rMzOSgkGRGTU63ig7xalbc2WYkDjYqclvmjT +7kmVBBkGdP1JehWA1lXtem0hz4DImdTgcLT0y70Wb1UZ8CfPxjgZ/XVdvwS/ +AQMyQ33KStDHuS7cDnZmQFilStkIml9H8Mw2Vwas2KhQNYY+5J0Qo+fOgDnn +4uoJdMINh1V/vTC/jlY8gw6gOE+eDmSAUvdRQx4v/F8fBtLvRTNAQKJDXQX9 +8qSqgPIJBiyZ263rjb5KhEJGTzLATSuf5oc+ND7VXpXDgDtxwjoBaNqW9mTj +PAZohE9JBKOzOIImt51nwAV6eUkMelPUhdcJlQxgmqVeOYKWkztiaHaVAWtW +9TpkoKceRuUsusYAMbEdk5noEjWyLes6A9rJaZUc9O/+/tbSRgYIL6m2LETf +sJUtf9zJgNGg7thr6IxfXNy5Dxkg/0u0tRYdWD4W4NnNgMWjl3nq0MsWN8p+ +6mGAi1bzgQb0jiaP4z9fYJ5quuFdtLLG6XiVYQacszx3rA/962XS0y8jDCio +rEt6hu5NZehWjzLgp9KK0Bfo5EH9MZNvDJiq69Z+g35z5qmv/Q8GPBy9tWsQ +nb1ExCqRk4JMRsn3CXTzZL933CIKHj/dWM9Cf+6viInkpuBBflvsJNr0huWF +QD4KePMiXk+jR/wT5reKUDDu526/wO5vayVqJUaB7HHut7/R641E1Yk45v3K +3f4XfUKo0k1PmgIVLndnLm8cb/xQI6tIQex2+vASNHWxslNcmYKiGSljPvSJ +E3s+LFWloOBp1UF+9AglJrRYnYKzzN3cQuxxMeuQb7oUON5Lvy6CbvwjljJC +o2BPgdkjUfTwl4FTA/oUbBh78kEMva41se2ZMQXbM08zxdGfdlyVvw0UFGad +apBGC3vsNbhpTsGLWvOzMmgTi822NZYUzJY9jpVFZ0kP7bm4mYIlFQdE5NC3 +FlefKNpKAdfZiudsf2TuvZxvS8FfkZpsebRxh/jzTAcKmr08Z1eiA2uGvh52 +osBTaP68AjqzoJrrgAsFNwX2EkX0UMwW3XgPCpbWi4croYX8JKx3elHQsll3 +hm3jLR99w3woyJhanajMfn5lUoafPwXp4Td2qLD78G8t8QikYKOS9Vu2h6Yl +GpzoFMg9uGmuys4b/NhjS1EQ5M5TyrZx97WRTSEUTLbTFtgOvJn0G8Jwvvg3 +2Kmx80u2Ll+/gwI3BdV8tm9lSmoaRFIwwfH1HdtDCZ826uykwPpSlvQqtCC9 +xkM9hgJLgWX2bBvZJ0cpx1HgpxmVxHbgOps0uXgKKrgqy9g+pipVKJlAwevM +jna265cNXxdJpMDgYUs/24PzNQ8F9lFQXJfL/H/+5+RB7mQK8u02/2LbsM9m +7m8KBSa5r3+z/T8gAuuz "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.9781394165705819, 1.0222549358379764`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.9781394165705841}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8093,7 +13478,8 @@ wTw= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5511670383120088}, + AxesOrigin->{0, 0.9781394165705841}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8121,7 +13507,8 @@ wTw= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.9781394165705819, 1.0222549358379764`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8129,9 +13516,9 @@ wTw= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991347865018469*^9}, + CellChangeTimes->{3.991347865018469*^9, 3.993920664273616*^9}, CellLabel-> - "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] + "Out[139]=",ExpressionUUID->"b111075f-306a-421c-9d8c-ef1253301c61"] }, Open ]], Cell[CellGroupData[{ @@ -8195,199 +13582,158 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918503718899097`*^9, {3.991850469268881*^9, - 3.9918504694651966`*^9}},ExpressionUUID->"497f9779-a3e4-c84e-a207-\ -0aac70483e3c"], + 3.9918503718899097`*^9, {3.991850469268881*^9, 3.9918504694651966`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 470, - 513, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652482224`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.477139390573511`*^-275\\\", \ +\\\"5919012181389927685417441689600000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 140, 157, + 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.993920664434299*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +In[140]:=",ExpressionUUID->"6a1cb525-f146-4970-9eeb-6423dadf7843"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 470, 514, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652572174`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4703551627189031`*^-288\\\", \ +\\\"2610284371992958109269091785113600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 158, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.9939206644410152`*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], +In[140]:=",ExpressionUUID->"f2afd1a1-749c-4157-8bc3-16f1a01a4ce9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 470, 515, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652662163`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.8914056453992435`*^-302\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 159, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.9939206644469147`*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +In[140]:=",ExpressionUUID->"75037d27-662c-416e-a9f0-fa4ff4edbf8a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347865275215*^9}, +during this calculation.\"", 2, 140, 160, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.993920664453244*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +In[140]:=",ExpressionUUID->"2f03062b-4852-4421-b3b6-681e27ca062c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8Fd8bB3BRimyRfb1z76WyRcWXXM+T7Cop+maLsqVCVAot6KtIJEUl +EqFN7lxKkSLKWiopIkS0CNlFqd/5/TGveb3/mJkz55zn+cwwdgRt8uHn4+Ob +Jcf/z5OddU9Z8Tmmuov9w9v6wLT5ilzYmtZomHzuUH/JTBlQ+uUOudZkcPgW +IPyvmTaEbrzVItCaDbXB45s1zTiwaEg2ebqlEEQjhlQG1qyHrrINQeMtlaCy +7qCaxhp3sGT1d4y0NAHP1hh1TQNgusUwZbilB9i6krSn/hGoWns953X2GOQE +xb9jGySCUlfJ5x1as6C22Stks34qLN7jcWv+WgFsmywQ6uhKh2Q9y4cbnBbg +QLDssMGHLHh/cXnFiIQounw3NLdqzoH4nGMv+eUX4cebwQcsq66D7PlPcecy +pNDPrPRh3aZbcNLRxrRpUhqrrdsbdvnlg8LdRgX+OTK4yxFbK4PyoUDKcUpv +oQz6f83lkz6UD++attFnVWVQ+MvlrOux+cBy2E85WMugzehToRM386Fyfabg +q0syKOr8T556fz7MWk40vjCRxXH/eVIjvndgn1GWR120HN5fDgeiNhSA7VWx +cbvTcth6tmm4z7EAqPmHYxtT5DAoyJ2ycC2AV81beG9uyKH+3g+5Y34FoLNX +RKCzUQ5rqZ2sRVEF8DXvYN6ogjy+NhgrWl9YAG6LNwwqFsmjkLaIWIMEF1ZE +PIy6UiaPip5H8mNkuCDcs0SGUS2Pu+50TBkrcaGEKwDq7+UxzpR7PkWDCzJ2 +JUnL/8rjqdCqbmFTLryKYq20sFPAL/5/rk/4c8H8x0x44CcFZEYtYTc84kKY +9fllTwYU0FW6jn5SyYWCLO02qUkFLHY7rlhUwwU5R0+jkgWKOPnWIvHEay4M +PHg2JaCjiEr1m7/96OXCueik/ZcOKaIVv4Wp7zwaeqTVA5+KKuHpgQf1W5bS +IBtUriwrq4QfW+eLR2rSsK526wt/NSV8Pqv9NE+bhuLweC3xFUroVu4UNaBH +w6mu4X7nrUr4NjHJxtmYBv2bD/1+ZCuhpugzjQe2NESZOGxX+EcZq+f1Dcb7 +02C97cqooZkyVhZZRsTvpkEs8vtxp3XKeCBdQDg2gIb0qpi8JE9llFzop3Uo +mIYHtqXfBeOU0YY9eGplGA3DW5mhY++VUUYio0c5loZtByZOPY9QQUeB3TV3 +r9HAvmCm1B+jggNCNtOOuTR5/zN35iepoNU//StH82gI/730lVmOCu6NKKtn +3qIh5fg26ZLnKijdXBbmRdPw/GxNZq6yKnZ8bFzuVEaDccGlu0fLVfFZaXf8 +3CYazFsaZ4dqVVE0vUJb7w0NG/jmWnk0qeLI8SIL12YavDYFvoc+VdzVu+L9 +9Xc0WEYwjkXOU8Ng6y0XqXYa9qpOXlujqYZXXFqqr3yiYaIoqXZaVw2rdtqM +Z/eS8VlrDvJWqqHq1jMZOX00xAR7GlCmathzX9Hn6hca0qrqa/kd1DAldbop +7DsNT/0yB6tC1XBx6suou6M02Pw2kjwcoYa5ijaXk8ZoaExqNlgZSTw5aLBr +nIb3JUKROXFquKXda1J6koahhfslY9LJ9Y9qsuynaZCjrQ0tK9WQ4x4nvO4v +DRnmn1z/VKvhd+HWMD4+HlDvj0QWN6hhW61JSCGxNn9RnfpbNfzxXoZPnJ8H +Zo7KbvO/qmGG1uv0W3N5sOfnSGStKAN/LF5vtkeIB8bBvjKfJRlYN3e30Txh +Hizob7stIMdAKYaY42Xi3Paqd6YUA5+3uU8+XsiDzscpWvcMGMgozebrFeVB +vqFwZdNqBo4ae7N9xXgQTh/9dxgZaCJfGNJHLJPtF61px8DNh/+LaxfngX2M +UWuWBwOvRWiU5i7igcqfOwHl3gzk+O5atUiSBwOhlECHPwPz8oI6w4hjdy7U +kdvPwGXv/MvMpHiwpftY1aowBs7ruzuaTcxyGd+6+SgD18UGOvMt5kGFXcfx +xFgGLs3oLi0kTnzqIJ+fwMDG9sni+dI8cONUF9QlM1DGWv+zM/G0Dvf93AwG +jvC1f5wg1peM0o3gkfGHbXERkeUBX/zE04vFDAwpm+G3I24U2OVS/JCBxtNO +vSeId09sihl5xkDHfkHHSWLjwBoF8QYGZivUfVoqR+bzy2pa6xUDE1crcl2I +c1pZ7X5tDKyptv9VRBzicGlvTBcD76vkHPlAjPWigtd6GZi8Zo8pvzwPxNZG +X674xsDPb3eYsok7Hk4u7xxioKjO2qMWxPkrd1f/GmNgrVXdnx3E4Xe6XOWn +GVjQwKs4Qmyt7jhi8IeB1SKlT1OIZTJrTzgKUPhr/tWFt4l7ZTlKIQsoLPKi +Uh8RFybxeGdEKTQL4vN5QRwppG51R5LCCGrmUBuxfXTah3pZCg2UXzX1Eqv8 +Egv5qkRhXd7afQPEA/uOzxekKDx/R8Z1hLh0YCqdqUFhbPXC+DHiWJ89+mu0 +KLyp9Vng/97S+bFmmx6Fpyr8q38Qs/51cj9sQGHHfNc334hHX9aNXlpN4Xet +Y5rdxBXWprH3kULmn8sv3xInPilUfmtB4bnBgxU1xG7GGkWjthQGS7T9KSZe +VnTZWmIjhRkqp+KvEU9rSnRqO1GoErLRL4F4MkMhaoULhR83uYseIB4XZ7OM +PChc93pKyYV4JEq3xtSbQnOzrlQT4qExo13m/hSGnXkToUT83cdc1DaQwrmG +Kc+nyfp9bdlA2++j8LNtX1wzcc9Dr0mXIxQmfjRcH03cpR14yTOawgGfckcn +4g+Zh0x8T1LY4t7VwCZ+dzwhOvgshXNGfy4sJ/vpzcQF9sFUCtVVD787SfzK +L7v28GUKH3XdktpAXG93Xyw2l8K8QNa3Jhke1Dx6wku4RWH+utnos8RPdZ87 +nuNSeOtDRvJ64sdS3WlXSig8Yr9V5jHZ74Xtwhr3XlD4n9CTZ5GkXrjrpetL +myjsVOhhahLnl6sGVLRQaJ2p/KeJ1FvetZVFDd1kPktklykSp+3eBj0TFAZs +uBqaQOr5QsfOni8zFPZYyj9nEp+33xcz+JfCIGEq574EWa8VsQ0/hZi4h9bo +aiH9IPoX719xFSYqfJ1zcYb0k2MBZTOLmUzMnBqTO0J8uKs6Q2EJE483izBn +RXgQWtX+ia3PxBizBe8mSD/aHT9vr4kluX7/hcY60s92zopLmdkx8Vi7Nv0P +sW+QQrHVRiYGN2YzchfwwHOz7u9NLkzsKUm4HzqfB46KzrH+gUw0mrau+U36 +o8nt/KupqUxsmfppkEL6bbva7UyLy0x0e7hq9NsfkgepN6+MZzJxLeNMmgnx +/ai89E03mZj/Ivhe+2+St1uvXhQrY2ITxbdkzgwNS+edTzrRzcRDb7lZ30j/ +rw1PPrPqMxPnrp/5T5nYdzgpsbefie0BI572JC9y2hNOm40zsSHu7bw7wzSo +FZ6M/SPIwoIHMnIbB2mQ8YiIDNVi4aWxtLkGn2m41xx2jK3HwqAVYQ02JJ8c +bQ8dbV7Fwijzb6muJL+SVx04rA8sjFl73DSshwZRkaBDQw4s7Oxs7EvvpGFu +yY69vgdZuDPVAk6QfByRtPXcUsnCV06WUZ+f0tC6h3q1q4aFW3WEBa9V0VBR +PQPHnrOwp2ruZvdKGpLCb6veeMfCPMnrNg3lNCzvEema7mehiv3Ys9OlNATy +XrpnSLExA0I687g09Ns7ufZ6s5HemVZuepGGppvaDT/92Vhmb2JZnEpDqYDg +atEgNua/FizWTKEh7n6xgkEYG6+32ThJJNOwRFWu7WQCG0uCBOmKeBr8htq2 +ahazMafUsurxURp6T3tuCZmvjjK/ocXQizy/X4taLqKOOhEH5RK20zBlNT04 +KKGOE+PBuR89aBAWSI7xV1DHcF/DvGg3Mv6wqrue2uoo6FzlWuhEwxEfdSn7 +zcRXAtyfWJH5Nx14qZmpjuWXt/28tozk+4+DNn0GGih+rmPQtYULSnoqJxaY +aKB+nMXX7iYuDIU8rdRco4E3Z774ezdy4fykhEmInQZ6JOqLeDzjQufsTZ2/ +Hhroz7UW0yziQojIByn5OA3MWnVpsVoiF9KWYue6dg18HLonNXEN+X70WrDv +7rElaL+0yHtOZgH5n5DlP1m5FF+9tRC2gDsg+UI9kf6xDPs01znVv7sNSrHc +jQYGWhjhKK+ktuoWXNQ0kpDy00a+rBNNezNuQL3CmlVjZ3VQK6P6RanAdTBW +qkzSfaeLJ7kvjzaa5YKYQPb+7dHLMcq2J3Vf1jVQiVI1cVbXQ7mewqGE3iwQ +YrsVb6rRw7Dy08XmJldBhyPPPeiuj7euMXuqjv5/1SWrbPlWoOBa74MJu9Pg +x9hpJ5uLK0ieSzk23bsAVrrVaTbaK3FSaYGYv2EKPB5b/WuqcSU2ed3oSCpK +hkAt/bbXPqvQLO7lm8a4JOAMeTc7Cxlgovjh1kd1p8GCJbdeNNsA33y8f7hY +Iw6WRJ46VGloiJ0vRHrPDsXAMh+jcnabIa5433n+1PNo8Hm887+7wf9gea6e +6GP9SCi/2uw9Im2Eg5fM6/V2R8D4jb9TuveNcEX71bUs9YPgxb4tlLbeGJMc ++KM/3t4HI8vOGRQOG2NqPy+izHcvPMj51T0Ruxpvtafyn43fDS7mTFytYoL/ +HeJsdlfwA8WAkyU6FSZ49Ym3X9/sDpAW3sNb/y8HD+gOO09EeEDO2iPhw84c +lGr9UW6z3QP0jySuPefGwW55ozaepQdsGKbftm7n4Hh1/u+yRR6kRiemvfZw +sIWrzXt0Yxv8zD5mFh7FwWqfu9e3tblD2+pzb/Juc/DEMi2tRjs32HkgJ92m +gIOGCsP50SvcYLLgns8AzcFj/WdCbBTdQJJqndIr5uCdB5mZot9dwW6BstKj +Cg6apWdbB8W7QllznvebtxzcW/aXkfjSBWzFHmiHtnLQ2bW7dPsDF2i1qpuU +a+fg36WXvlhmucB46ffYbR856MD48spinwtoZy2/862fgzXiEYWL5VygrG1N +6OlBDqZZB5Tsm0Put3gz6A5z8LbjjtlP/c7ge/LA6/0TZPwvcdHPR84wXnEi +TfYnB1UP3W64fN0ZomcueJXOcHDGT/HixrPOILHyppb7LAeXRH/YLRPhDFcC +Sif+/uXgSS0wGfR2hv8BYysptQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8401,158 +13747,113 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= +1:eJwV13k8Fd8bB3BRimyRfb1z76WyRcWXXM+T7Cop+maLsqVCVAot6KtIJEUl +EqFN7lxKkSLKWiopIkS0CNlFqd/5/TGveb3/mJkz55zn+cwwdgRt8uHn4+Ob +Jcf/z5OddU9Z8Tmmuov9w9v6wLT5ilzYmtZomHzuUH/JTBlQ+uUOudZkcPgW +IPyvmTaEbrzVItCaDbXB45s1zTiwaEg2ebqlEEQjhlQG1qyHrrINQeMtlaCy +7qCaxhp3sGT1d4y0NAHP1hh1TQNgusUwZbilB9i6krSn/hGoWns953X2GOQE +xb9jGySCUlfJ5x1as6C22Stks34qLN7jcWv+WgFsmywQ6uhKh2Q9y4cbnBbg +QLDssMGHLHh/cXnFiIQounw3NLdqzoH4nGMv+eUX4cebwQcsq66D7PlPcecy +pNDPrPRh3aZbcNLRxrRpUhqrrdsbdvnlg8LdRgX+OTK4yxFbK4PyoUDKcUpv +oQz6f83lkz6UD++attFnVWVQ+MvlrOux+cBy2E85WMugzehToRM386Fyfabg +q0syKOr8T556fz7MWk40vjCRxXH/eVIjvndgn1GWR120HN5fDgeiNhSA7VWx +cbvTcth6tmm4z7EAqPmHYxtT5DAoyJ2ycC2AV81beG9uyKH+3g+5Y34FoLNX +RKCzUQ5rqZ2sRVEF8DXvYN6ogjy+NhgrWl9YAG6LNwwqFsmjkLaIWIMEF1ZE +PIy6UiaPip5H8mNkuCDcs0SGUS2Pu+50TBkrcaGEKwDq7+UxzpR7PkWDCzJ2 +JUnL/8rjqdCqbmFTLryKYq20sFPAL/5/rk/4c8H8x0x44CcFZEYtYTc84kKY +9fllTwYU0FW6jn5SyYWCLO02qUkFLHY7rlhUwwU5R0+jkgWKOPnWIvHEay4M +PHg2JaCjiEr1m7/96OXCueik/ZcOKaIVv4Wp7zwaeqTVA5+KKuHpgQf1W5bS +IBtUriwrq4QfW+eLR2rSsK526wt/NSV8Pqv9NE+bhuLweC3xFUroVu4UNaBH +w6mu4X7nrUr4NjHJxtmYBv2bD/1+ZCuhpugzjQe2NESZOGxX+EcZq+f1Dcb7 +02C97cqooZkyVhZZRsTvpkEs8vtxp3XKeCBdQDg2gIb0qpi8JE9llFzop3Uo +mIYHtqXfBeOU0YY9eGplGA3DW5mhY++VUUYio0c5loZtByZOPY9QQUeB3TV3 +r9HAvmCm1B+jggNCNtOOuTR5/zN35iepoNU//StH82gI/730lVmOCu6NKKtn +3qIh5fg26ZLnKijdXBbmRdPw/GxNZq6yKnZ8bFzuVEaDccGlu0fLVfFZaXf8 +3CYazFsaZ4dqVVE0vUJb7w0NG/jmWnk0qeLI8SIL12YavDYFvoc+VdzVu+L9 +9Xc0WEYwjkXOU8Ng6y0XqXYa9qpOXlujqYZXXFqqr3yiYaIoqXZaVw2rdtqM +Z/eS8VlrDvJWqqHq1jMZOX00xAR7GlCmathzX9Hn6hca0qrqa/kd1DAldbop +7DsNT/0yB6tC1XBx6suou6M02Pw2kjwcoYa5ijaXk8ZoaExqNlgZSTw5aLBr +nIb3JUKROXFquKXda1J6koahhfslY9LJ9Y9qsuynaZCjrQ0tK9WQ4x4nvO4v +DRnmn1z/VKvhd+HWMD4+HlDvj0QWN6hhW61JSCGxNn9RnfpbNfzxXoZPnJ8H +Zo7KbvO/qmGG1uv0W3N5sOfnSGStKAN/LF5vtkeIB8bBvjKfJRlYN3e30Txh +Hizob7stIMdAKYaY42Xi3Paqd6YUA5+3uU8+XsiDzscpWvcMGMgozebrFeVB +vqFwZdNqBo4ae7N9xXgQTh/9dxgZaCJfGNJHLJPtF61px8DNh/+LaxfngX2M +UWuWBwOvRWiU5i7igcqfOwHl3gzk+O5atUiSBwOhlECHPwPz8oI6w4hjdy7U +kdvPwGXv/MvMpHiwpftY1aowBs7ruzuaTcxyGd+6+SgD18UGOvMt5kGFXcfx +xFgGLs3oLi0kTnzqIJ+fwMDG9sni+dI8cONUF9QlM1DGWv+zM/G0Dvf93AwG +jvC1f5wg1peM0o3gkfGHbXERkeUBX/zE04vFDAwpm+G3I24U2OVS/JCBxtNO +vSeId09sihl5xkDHfkHHSWLjwBoF8QYGZivUfVoqR+bzy2pa6xUDE1crcl2I +c1pZ7X5tDKyptv9VRBzicGlvTBcD76vkHPlAjPWigtd6GZi8Zo8pvzwPxNZG +X674xsDPb3eYsok7Hk4u7xxioKjO2qMWxPkrd1f/GmNgrVXdnx3E4Xe6XOWn +GVjQwKs4Qmyt7jhi8IeB1SKlT1OIZTJrTzgKUPhr/tWFt4l7ZTlKIQsoLPKi +Uh8RFybxeGdEKTQL4vN5QRwppG51R5LCCGrmUBuxfXTah3pZCg2UXzX1Eqv8 +Egv5qkRhXd7afQPEA/uOzxekKDx/R8Z1hLh0YCqdqUFhbPXC+DHiWJ89+mu0 +KLyp9Vng/97S+bFmmx6Fpyr8q38Qs/51cj9sQGHHfNc334hHX9aNXlpN4Xet +Y5rdxBXWprH3kULmn8sv3xInPilUfmtB4bnBgxU1xG7GGkWjthQGS7T9KSZe +VnTZWmIjhRkqp+KvEU9rSnRqO1GoErLRL4F4MkMhaoULhR83uYseIB4XZ7OM +PChc93pKyYV4JEq3xtSbQnOzrlQT4qExo13m/hSGnXkToUT83cdc1DaQwrmG +Kc+nyfp9bdlA2++j8LNtX1wzcc9Dr0mXIxQmfjRcH03cpR14yTOawgGfckcn +4g+Zh0x8T1LY4t7VwCZ+dzwhOvgshXNGfy4sJ/vpzcQF9sFUCtVVD787SfzK +L7v28GUKH3XdktpAXG93Xyw2l8K8QNa3Jhke1Dx6wku4RWH+utnos8RPdZ87 +nuNSeOtDRvJ64sdS3WlXSig8Yr9V5jHZ74Xtwhr3XlD4n9CTZ5GkXrjrpetL +myjsVOhhahLnl6sGVLRQaJ2p/KeJ1FvetZVFDd1kPktklykSp+3eBj0TFAZs +uBqaQOr5QsfOni8zFPZYyj9nEp+33xcz+JfCIGEq574EWa8VsQ0/hZi4h9bo +aiH9IPoX719xFSYqfJ1zcYb0k2MBZTOLmUzMnBqTO0J8uKs6Q2EJE483izBn +RXgQWtX+ia3PxBizBe8mSD/aHT9vr4kluX7/hcY60s92zopLmdkx8Vi7Nv0P +sW+QQrHVRiYGN2YzchfwwHOz7u9NLkzsKUm4HzqfB46KzrH+gUw0mrau+U36 +o8nt/KupqUxsmfppkEL6bbva7UyLy0x0e7hq9NsfkgepN6+MZzJxLeNMmgnx +/ai89E03mZj/Ivhe+2+St1uvXhQrY2ITxbdkzgwNS+edTzrRzcRDb7lZ30j/ +rw1PPrPqMxPnrp/5T5nYdzgpsbefie0BI572JC9y2hNOm40zsSHu7bw7wzSo +FZ6M/SPIwoIHMnIbB2mQ8YiIDNVi4aWxtLkGn2m41xx2jK3HwqAVYQ02JJ8c +bQ8dbV7Fwijzb6muJL+SVx04rA8sjFl73DSshwZRkaBDQw4s7Oxs7EvvpGFu +yY69vgdZuDPVAk6QfByRtPXcUsnCV06WUZ+f0tC6h3q1q4aFW3WEBa9V0VBR +PQPHnrOwp2ruZvdKGpLCb6veeMfCPMnrNg3lNCzvEema7mehiv3Ys9OlNATy +XrpnSLExA0I687g09Ns7ufZ6s5HemVZuepGGppvaDT/92Vhmb2JZnEpDqYDg +atEgNua/FizWTKEh7n6xgkEYG6+32ThJJNOwRFWu7WQCG0uCBOmKeBr8htq2 +ahazMafUsurxURp6T3tuCZmvjjK/ocXQizy/X4taLqKOOhEH5RK20zBlNT04 +KKGOE+PBuR89aBAWSI7xV1DHcF/DvGg3Mv6wqrue2uoo6FzlWuhEwxEfdSn7 +zcRXAtyfWJH5Nx14qZmpjuWXt/28tozk+4+DNn0GGih+rmPQtYULSnoqJxaY +aKB+nMXX7iYuDIU8rdRco4E3Z774ezdy4fykhEmInQZ6JOqLeDzjQufsTZ2/ +Hhroz7UW0yziQojIByn5OA3MWnVpsVoiF9KWYue6dg18HLonNXEN+X70WrDv +7rElaL+0yHtOZgH5n5DlP1m5FF+9tRC2gDsg+UI9kf6xDPs01znVv7sNSrHc +jQYGWhjhKK+ktuoWXNQ0kpDy00a+rBNNezNuQL3CmlVjZ3VQK6P6RanAdTBW +qkzSfaeLJ7kvjzaa5YKYQPb+7dHLMcq2J3Vf1jVQiVI1cVbXQ7mewqGE3iwQ +YrsVb6rRw7Dy08XmJldBhyPPPeiuj7euMXuqjv5/1SWrbPlWoOBa74MJu9Pg +x9hpJ5uLK0ieSzk23bsAVrrVaTbaK3FSaYGYv2EKPB5b/WuqcSU2ed3oSCpK +hkAt/bbXPqvQLO7lm8a4JOAMeTc7Cxlgovjh1kd1p8GCJbdeNNsA33y8f7hY +Iw6WRJ46VGloiJ0vRHrPDsXAMh+jcnabIa5433n+1PNo8Hm887+7wf9gea6e +6GP9SCi/2uw9Im2Eg5fM6/V2R8D4jb9TuveNcEX71bUs9YPgxb4tlLbeGJMc ++KM/3t4HI8vOGRQOG2NqPy+izHcvPMj51T0Ruxpvtafyn43fDS7mTFytYoL/ +HeJsdlfwA8WAkyU6FSZ49Ym3X9/sDpAW3sNb/y8HD+gOO09EeEDO2iPhw84c +lGr9UW6z3QP0jySuPefGwW55ozaepQdsGKbftm7n4Hh1/u+yRR6kRiemvfZw +sIWrzXt0Yxv8zD5mFh7FwWqfu9e3tblD2+pzb/Juc/DEMi2tRjs32HkgJ92m +gIOGCsP50SvcYLLgns8AzcFj/WdCbBTdQJJqndIr5uCdB5mZot9dwW6BstKj +Cg6apWdbB8W7QllznvebtxzcW/aXkfjSBWzFHmiHtnLQ2bW7dPsDF2i1qpuU +a+fg36WXvlhmucB46ffYbR856MD48spinwtoZy2/862fgzXiEYWL5VygrG1N +6OlBDqZZB5Tsm0Put3gz6A5z8LbjjtlP/c7ge/LA6/0TZPwvcdHPR84wXnEi +TfYnB1UP3W64fN0ZomcueJXOcHDGT/HixrPOILHyppb7LAeXRH/YLRPhDFcC +Sif+/uXgSS0wGfR2hv8BYysptQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06680223602941215}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8564,183 +13865,138 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06680223602941215}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{117.9605728938093, - 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= +1:eJwV13k8Fd8bB3BRimyRfb1z76WyRcWXXM+T7Cop+maLsqVCVAot6KtIJEUl +EqFN7lxKkSLKWiopIkS0CNlFqd/5/TGveb3/mJkz55zn+cwwdgRt8uHn4+Ob +Jcf/z5OddU9Z8Tmmuov9w9v6wLT5ilzYmtZomHzuUH/JTBlQ+uUOudZkcPgW +IPyvmTaEbrzVItCaDbXB45s1zTiwaEg2ebqlEEQjhlQG1qyHrrINQeMtlaCy +7qCaxhp3sGT1d4y0NAHP1hh1TQNgusUwZbilB9i6krSn/hGoWns953X2GOQE +xb9jGySCUlfJ5x1as6C22Stks34qLN7jcWv+WgFsmywQ6uhKh2Q9y4cbnBbg +QLDssMGHLHh/cXnFiIQounw3NLdqzoH4nGMv+eUX4cebwQcsq66D7PlPcecy +pNDPrPRh3aZbcNLRxrRpUhqrrdsbdvnlg8LdRgX+OTK4yxFbK4PyoUDKcUpv +oQz6f83lkz6UD++attFnVWVQ+MvlrOux+cBy2E85WMugzehToRM386Fyfabg +q0syKOr8T556fz7MWk40vjCRxXH/eVIjvndgn1GWR120HN5fDgeiNhSA7VWx +cbvTcth6tmm4z7EAqPmHYxtT5DAoyJ2ycC2AV81beG9uyKH+3g+5Y34FoLNX +RKCzUQ5rqZ2sRVEF8DXvYN6ogjy+NhgrWl9YAG6LNwwqFsmjkLaIWIMEF1ZE +PIy6UiaPip5H8mNkuCDcs0SGUS2Pu+50TBkrcaGEKwDq7+UxzpR7PkWDCzJ2 +JUnL/8rjqdCqbmFTLryKYq20sFPAL/5/rk/4c8H8x0x44CcFZEYtYTc84kKY +9fllTwYU0FW6jn5SyYWCLO02qUkFLHY7rlhUwwU5R0+jkgWKOPnWIvHEay4M +PHg2JaCjiEr1m7/96OXCueik/ZcOKaIVv4Wp7zwaeqTVA5+KKuHpgQf1W5bS +IBtUriwrq4QfW+eLR2rSsK526wt/NSV8Pqv9NE+bhuLweC3xFUroVu4UNaBH +w6mu4X7nrUr4NjHJxtmYBv2bD/1+ZCuhpugzjQe2NESZOGxX+EcZq+f1Dcb7 +02C97cqooZkyVhZZRsTvpkEs8vtxp3XKeCBdQDg2gIb0qpi8JE9llFzop3Uo +mIYHtqXfBeOU0YY9eGplGA3DW5mhY++VUUYio0c5loZtByZOPY9QQUeB3TV3 +r9HAvmCm1B+jggNCNtOOuTR5/zN35iepoNU//StH82gI/730lVmOCu6NKKtn +3qIh5fg26ZLnKijdXBbmRdPw/GxNZq6yKnZ8bFzuVEaDccGlu0fLVfFZaXf8 +3CYazFsaZ4dqVVE0vUJb7w0NG/jmWnk0qeLI8SIL12YavDYFvoc+VdzVu+L9 +9Xc0WEYwjkXOU8Ng6y0XqXYa9qpOXlujqYZXXFqqr3yiYaIoqXZaVw2rdtqM +Z/eS8VlrDvJWqqHq1jMZOX00xAR7GlCmathzX9Hn6hca0qrqa/kd1DAldbop +7DsNT/0yB6tC1XBx6suou6M02Pw2kjwcoYa5ijaXk8ZoaExqNlgZSTw5aLBr +nIb3JUKROXFquKXda1J6koahhfslY9LJ9Y9qsuynaZCjrQ0tK9WQ4x4nvO4v +DRnmn1z/VKvhd+HWMD4+HlDvj0QWN6hhW61JSCGxNn9RnfpbNfzxXoZPnJ8H +Zo7KbvO/qmGG1uv0W3N5sOfnSGStKAN/LF5vtkeIB8bBvjKfJRlYN3e30Txh +Hizob7stIMdAKYaY42Xi3Paqd6YUA5+3uU8+XsiDzscpWvcMGMgozebrFeVB +vqFwZdNqBo4ae7N9xXgQTh/9dxgZaCJfGNJHLJPtF61px8DNh/+LaxfngX2M +UWuWBwOvRWiU5i7igcqfOwHl3gzk+O5atUiSBwOhlECHPwPz8oI6w4hjdy7U +kdvPwGXv/MvMpHiwpftY1aowBs7ruzuaTcxyGd+6+SgD18UGOvMt5kGFXcfx +xFgGLs3oLi0kTnzqIJ+fwMDG9sni+dI8cONUF9QlM1DGWv+zM/G0Dvf93AwG +jvC1f5wg1peM0o3gkfGHbXERkeUBX/zE04vFDAwpm+G3I24U2OVS/JCBxtNO +vSeId09sihl5xkDHfkHHSWLjwBoF8QYGZivUfVoqR+bzy2pa6xUDE1crcl2I +c1pZ7X5tDKyptv9VRBzicGlvTBcD76vkHPlAjPWigtd6GZi8Zo8pvzwPxNZG +X674xsDPb3eYsok7Hk4u7xxioKjO2qMWxPkrd1f/GmNgrVXdnx3E4Xe6XOWn +GVjQwKs4Qmyt7jhi8IeB1SKlT1OIZTJrTzgKUPhr/tWFt4l7ZTlKIQsoLPKi +Uh8RFybxeGdEKTQL4vN5QRwppG51R5LCCGrmUBuxfXTah3pZCg2UXzX1Eqv8 +Egv5qkRhXd7afQPEA/uOzxekKDx/R8Z1hLh0YCqdqUFhbPXC+DHiWJ89+mu0 +KLyp9Vng/97S+bFmmx6Fpyr8q38Qs/51cj9sQGHHfNc334hHX9aNXlpN4Xet +Y5rdxBXWprH3kULmn8sv3xInPilUfmtB4bnBgxU1xG7GGkWjthQGS7T9KSZe +VnTZWmIjhRkqp+KvEU9rSnRqO1GoErLRL4F4MkMhaoULhR83uYseIB4XZ7OM +PChc93pKyYV4JEq3xtSbQnOzrlQT4qExo13m/hSGnXkToUT83cdc1DaQwrmG +Kc+nyfp9bdlA2++j8LNtX1wzcc9Dr0mXIxQmfjRcH03cpR14yTOawgGfckcn +4g+Zh0x8T1LY4t7VwCZ+dzwhOvgshXNGfy4sJ/vpzcQF9sFUCtVVD787SfzK +L7v28GUKH3XdktpAXG93Xyw2l8K8QNa3Jhke1Dx6wku4RWH+utnos8RPdZ87 +nuNSeOtDRvJ64sdS3WlXSig8Yr9V5jHZ74Xtwhr3XlD4n9CTZ5GkXrjrpetL +myjsVOhhahLnl6sGVLRQaJ2p/KeJ1FvetZVFDd1kPktklykSp+3eBj0TFAZs +uBqaQOr5QsfOni8zFPZYyj9nEp+33xcz+JfCIGEq574EWa8VsQ0/hZi4h9bo +aiH9IPoX719xFSYqfJ1zcYb0k2MBZTOLmUzMnBqTO0J8uKs6Q2EJE483izBn +RXgQWtX+ia3PxBizBe8mSD/aHT9vr4kluX7/hcY60s92zopLmdkx8Vi7Nv0P +sW+QQrHVRiYGN2YzchfwwHOz7u9NLkzsKUm4HzqfB46KzrH+gUw0mrau+U36 +o8nt/KupqUxsmfppkEL6bbva7UyLy0x0e7hq9NsfkgepN6+MZzJxLeNMmgnx +/ai89E03mZj/Ivhe+2+St1uvXhQrY2ITxbdkzgwNS+edTzrRzcRDb7lZ30j/ +rw1PPrPqMxPnrp/5T5nYdzgpsbefie0BI572JC9y2hNOm40zsSHu7bw7wzSo +FZ6M/SPIwoIHMnIbB2mQ8YiIDNVi4aWxtLkGn2m41xx2jK3HwqAVYQ02JJ8c +bQ8dbV7Fwijzb6muJL+SVx04rA8sjFl73DSshwZRkaBDQw4s7Oxs7EvvpGFu +yY69vgdZuDPVAk6QfByRtPXcUsnCV06WUZ+f0tC6h3q1q4aFW3WEBa9V0VBR +PQPHnrOwp2ruZvdKGpLCb6veeMfCPMnrNg3lNCzvEema7mehiv3Ys9OlNATy +XrpnSLExA0I687g09Ns7ufZ6s5HemVZuepGGppvaDT/92Vhmb2JZnEpDqYDg +atEgNua/FizWTKEh7n6xgkEYG6+32ThJJNOwRFWu7WQCG0uCBOmKeBr8htq2 +ahazMafUsurxURp6T3tuCZmvjjK/ocXQizy/X4taLqKOOhEH5RK20zBlNT04 +KKGOE+PBuR89aBAWSI7xV1DHcF/DvGg3Mv6wqrue2uoo6FzlWuhEwxEfdSn7 +zcRXAtyfWJH5Nx14qZmpjuWXt/28tozk+4+DNn0GGih+rmPQtYULSnoqJxaY +aKB+nMXX7iYuDIU8rdRco4E3Z774ezdy4fykhEmInQZ6JOqLeDzjQufsTZ2/ +Hhroz7UW0yziQojIByn5OA3MWnVpsVoiF9KWYue6dg18HLonNXEN+X70WrDv +7rElaL+0yHtOZgH5n5DlP1m5FF+9tRC2gDsg+UI9kf6xDPs01znVv7sNSrHc +jQYGWhjhKK+ktuoWXNQ0kpDy00a+rBNNezNuQL3CmlVjZ3VQK6P6RanAdTBW +qkzSfaeLJ7kvjzaa5YKYQPb+7dHLMcq2J3Vf1jVQiVI1cVbXQ7mewqGE3iwQ +YrsVb6rRw7Dy08XmJldBhyPPPeiuj7euMXuqjv5/1SWrbPlWoOBa74MJu9Pg +x9hpJ5uLK0ieSzk23bsAVrrVaTbaK3FSaYGYv2EKPB5b/WuqcSU2ed3oSCpK +hkAt/bbXPqvQLO7lm8a4JOAMeTc7Cxlgovjh1kd1p8GCJbdeNNsA33y8f7hY +Iw6WRJ46VGloiJ0vRHrPDsXAMh+jcnabIa5433n+1PNo8Hm887+7wf9gea6e +6GP9SCi/2uw9Im2Eg5fM6/V2R8D4jb9TuveNcEX71bUs9YPgxb4tlLbeGJMc ++KM/3t4HI8vOGRQOG2NqPy+izHcvPMj51T0Ruxpvtafyn43fDS7mTFytYoL/ +HeJsdlfwA8WAkyU6FSZ49Ym3X9/sDpAW3sNb/y8HD+gOO09EeEDO2iPhw84c +lGr9UW6z3QP0jySuPefGwW55ozaepQdsGKbftm7n4Hh1/u+yRR6kRiemvfZw +sIWrzXt0Yxv8zD5mFh7FwWqfu9e3tblD2+pzb/Juc/DEMi2tRjs32HkgJ92m +gIOGCsP50SvcYLLgns8AzcFj/WdCbBTdQJJqndIr5uCdB5mZot9dwW6BstKj +Cg6apWdbB8W7QllznvebtxzcW/aXkfjSBWzFHmiHtnLQ2bW7dPsDF2i1qpuU +a+fg36WXvlhmucB46ffYbR856MD48spinwtoZy2/862fgzXiEYWL5VygrG1N +6OlBDqZZB5Tsm0Put3gz6A5z8LbjjtlP/c7ge/LA6/0TZPwvcdHPR84wXnEi +TfYnB1UP3W64fN0ZomcueJXOcHDGT/HixrPOILHyppb7LAeXRH/YLRPhDFcC +Sif+/uXgSS0wGfR2hv8BYysptQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06680223602941215}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8751,6 +14007,7 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8778,7 +14035,8 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06680223602941215}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8786,17 +14044,559 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913483238131485`*^9}, + CellChangeTimes->{3.9913483238131485`*^9, 3.993920886751392*^9}, CellLabel-> - "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] + "Out[140]=",ExpressionUUID->"fab712ab-3cca-4a45-a7a8-c124c1391bc6"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ -76427bb63659"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[141]:=",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8Fd8bB3BRimyRfb1z76WyRcWXXM+T7Cop+maLsqVCVAot6KtIJEUl +EqFN7lxKkSLKWiopIkS0CNlFqd/5/TGveb3/mJkz55zn+cwwdgRt8uHn4+Ob +Jcf/z5OddU9Z8Tmmuov9w9v6wLT5ilzYmtZomHzuUH/JTBlQ+uUOudZkcPgW +IPyvmTaEbrzVItCaDbXB45s1zTiwaEg2ebqlEEQjhlQG1qyHrrINQeMtlaCy +7qCaxhp3sGT1d4y0NAHP1hh1TQNgusUwZbilB9i6krSn/hGoWns953X2GOQE +xb9jGySCUlfJ5x1as6C22Stks34qLN7jcWv+WgFsmywQ6uhKh2Q9y4cbnBbg +QLDssMGHLHh/cXnFiIQounw3NLdqzoH4nGMv+eUX4cebwQcsq66D7PlPcecy +pNDPrPRh3aZbcNLRxrRpUhqrrdsbdvnlg8LdRgX+OTK4yxFbK4PyoUDKcUpv +oQz6f83lkz6UD++attFnVWVQ+MvlrOux+cBy2E85WMugzehToRM386Fyfabg +q0syKOr8T556fz7MWk40vjCRxXH/eVIjvndgn1GWR120HN5fDgeiNhSA7VWx +cbvTcth6tmm4z7EAqPmHYxtT5DAoyJ2ycC2AV81beG9uyKH+3g+5Y34FoLNX +RKCzUQ5rqZ2sRVEF8DXvYN6ogjy+NhgrWl9YAG6LNwwqFsmjkLaIWIMEF1ZE +PIy6UiaPip5H8mNkuCDcs0SGUS2Pu+50TBkrcaGEKwDq7+UxzpR7PkWDCzJ2 +JUnL/8rjqdCqbmFTLryKYq20sFPAL/5/rk/4c8H8x0x44CcFZEYtYTc84kKY +9fllTwYU0FW6jn5SyYWCLO02qUkFLHY7rlhUwwU5R0+jkgWKOPnWIvHEay4M +PHg2JaCjiEr1m7/96OXCueik/ZcOKaIVv4Wp7zwaeqTVA5+KKuHpgQf1W5bS +IBtUriwrq4QfW+eLR2rSsK526wt/NSV8Pqv9NE+bhuLweC3xFUroVu4UNaBH +w6mu4X7nrUr4NjHJxtmYBv2bD/1+ZCuhpugzjQe2NESZOGxX+EcZq+f1Dcb7 +02C97cqooZkyVhZZRsTvpkEs8vtxp3XKeCBdQDg2gIb0qpi8JE9llFzop3Uo +mIYHtqXfBeOU0YY9eGplGA3DW5mhY++VUUYio0c5loZtByZOPY9QQUeB3TV3 +r9HAvmCm1B+jggNCNtOOuTR5/zN35iepoNU//StH82gI/730lVmOCu6NKKtn +3qIh5fg26ZLnKijdXBbmRdPw/GxNZq6yKnZ8bFzuVEaDccGlu0fLVfFZaXf8 +3CYazFsaZ4dqVVE0vUJb7w0NG/jmWnk0qeLI8SIL12YavDYFvoc+VdzVu+L9 +9Xc0WEYwjkXOU8Ng6y0XqXYa9qpOXlujqYZXXFqqr3yiYaIoqXZaVw2rdtqM +Z/eS8VlrDvJWqqHq1jMZOX00xAR7GlCmathzX9Hn6hca0qrqa/kd1DAldbop +7DsNT/0yB6tC1XBx6suou6M02Pw2kjwcoYa5ijaXk8ZoaExqNlgZSTw5aLBr +nIb3JUKROXFquKXda1J6koahhfslY9LJ9Y9qsuynaZCjrQ0tK9WQ4x4nvO4v +DRnmn1z/VKvhd+HWMD4+HlDvj0QWN6hhW61JSCGxNn9RnfpbNfzxXoZPnJ8H +Zo7KbvO/qmGG1uv0W3N5sOfnSGStKAN/LF5vtkeIB8bBvjKfJRlYN3e30Txh +Hizob7stIMdAKYaY42Xi3Paqd6YUA5+3uU8+XsiDzscpWvcMGMgozebrFeVB +vqFwZdNqBo4ae7N9xXgQTh/9dxgZaCJfGNJHLJPtF61px8DNh/+LaxfngX2M +UWuWBwOvRWiU5i7igcqfOwHl3gzk+O5atUiSBwOhlECHPwPz8oI6w4hjdy7U +kdvPwGXv/MvMpHiwpftY1aowBs7ruzuaTcxyGd+6+SgD18UGOvMt5kGFXcfx +xFgGLs3oLi0kTnzqIJ+fwMDG9sni+dI8cONUF9QlM1DGWv+zM/G0Dvf93AwG +jvC1f5wg1peM0o3gkfGHbXERkeUBX/zE04vFDAwpm+G3I24U2OVS/JCBxtNO +vSeId09sihl5xkDHfkHHSWLjwBoF8QYGZivUfVoqR+bzy2pa6xUDE1crcl2I +c1pZ7X5tDKyptv9VRBzicGlvTBcD76vkHPlAjPWigtd6GZi8Zo8pvzwPxNZG +X674xsDPb3eYsok7Hk4u7xxioKjO2qMWxPkrd1f/GmNgrVXdnx3E4Xe6XOWn +GVjQwKs4Qmyt7jhi8IeB1SKlT1OIZTJrTzgKUPhr/tWFt4l7ZTlKIQsoLPKi +Uh8RFybxeGdEKTQL4vN5QRwppG51R5LCCGrmUBuxfXTah3pZCg2UXzX1Eqv8 +Egv5qkRhXd7afQPEA/uOzxekKDx/R8Z1hLh0YCqdqUFhbPXC+DHiWJ89+mu0 +KLyp9Vng/97S+bFmmx6Fpyr8q38Qs/51cj9sQGHHfNc334hHX9aNXlpN4Xet +Y5rdxBXWprH3kULmn8sv3xInPilUfmtB4bnBgxU1xG7GGkWjthQGS7T9KSZe +VnTZWmIjhRkqp+KvEU9rSnRqO1GoErLRL4F4MkMhaoULhR83uYseIB4XZ7OM +PChc93pKyYV4JEq3xtSbQnOzrlQT4qExo13m/hSGnXkToUT83cdc1DaQwrmG +Kc+nyfp9bdlA2++j8LNtX1wzcc9Dr0mXIxQmfjRcH03cpR14yTOawgGfckcn +4g+Zh0x8T1LY4t7VwCZ+dzwhOvgshXNGfy4sJ/vpzcQF9sFUCtVVD787SfzK +L7v28GUKH3XdktpAXG93Xyw2l8K8QNa3Jhke1Dx6wku4RWH+utnos8RPdZ87 +nuNSeOtDRvJ64sdS3WlXSig8Yr9V5jHZ74Xtwhr3XlD4n9CTZ5GkXrjrpetL +myjsVOhhahLnl6sGVLRQaJ2p/KeJ1FvetZVFDd1kPktklykSp+3eBj0TFAZs +uBqaQOr5QsfOni8zFPZYyj9nEp+33xcz+JfCIGEq574EWa8VsQ0/hZi4h9bo +aiH9IPoX719xFSYqfJ1zcYb0k2MBZTOLmUzMnBqTO0J8uKs6Q2EJE483izBn +RXgQWtX+ia3PxBizBe8mSD/aHT9vr4kluX7/hcY60s92zopLmdkx8Vi7Nv0P +sW+QQrHVRiYGN2YzchfwwHOz7u9NLkzsKUm4HzqfB46KzrH+gUw0mrau+U36 +o8nt/KupqUxsmfppkEL6bbva7UyLy0x0e7hq9NsfkgepN6+MZzJxLeNMmgnx +/ai89E03mZj/Ivhe+2+St1uvXhQrY2ITxbdkzgwNS+edTzrRzcRDb7lZ30j/ +rw1PPrPqMxPnrp/5T5nYdzgpsbefie0BI572JC9y2hNOm40zsSHu7bw7wzSo +FZ6M/SPIwoIHMnIbB2mQ8YiIDNVi4aWxtLkGn2m41xx2jK3HwqAVYQ02JJ8c +bQ8dbV7Fwijzb6muJL+SVx04rA8sjFl73DSshwZRkaBDQw4s7Oxs7EvvpGFu +yY69vgdZuDPVAk6QfByRtPXcUsnCV06WUZ+f0tC6h3q1q4aFW3WEBa9V0VBR +PQPHnrOwp2ruZvdKGpLCb6veeMfCPMnrNg3lNCzvEema7mehiv3Ys9OlNATy +XrpnSLExA0I687g09Ns7ufZ6s5HemVZuepGGppvaDT/92Vhmb2JZnEpDqYDg +atEgNua/FizWTKEh7n6xgkEYG6+32ThJJNOwRFWu7WQCG0uCBOmKeBr8htq2 +ahazMafUsurxURp6T3tuCZmvjjK/ocXQizy/X4taLqKOOhEH5RK20zBlNT04 +KKGOE+PBuR89aBAWSI7xV1DHcF/DvGg3Mv6wqrue2uoo6FzlWuhEwxEfdSn7 +zcRXAtyfWJH5Nx14qZmpjuWXt/28tozk+4+DNn0GGih+rmPQtYULSnoqJxaY +aKB+nMXX7iYuDIU8rdRco4E3Z774ezdy4fykhEmInQZ6JOqLeDzjQufsTZ2/ +Hhroz7UW0yziQojIByn5OA3MWnVpsVoiF9KWYue6dg18HLonNXEN+X70WrDv +7rElaL+0yHtOZgH5n5DlP1m5FF+9tRC2gDsg+UI9kf6xDPs01znVv7sNSrHc +jQYGWhjhKK+ktuoWXNQ0kpDy00a+rBNNezNuQL3CmlVjZ3VQK6P6RanAdTBW +qkzSfaeLJ7kvjzaa5YKYQPb+7dHLMcq2J3Vf1jVQiVI1cVbXQ7mewqGE3iwQ +YrsVb6rRw7Dy08XmJldBhyPPPeiuj7euMXuqjv5/1SWrbPlWoOBa74MJu9Pg +x9hpJ5uLK0ieSzk23bsAVrrVaTbaK3FSaYGYv2EKPB5b/WuqcSU2ed3oSCpK +hkAt/bbXPqvQLO7lm8a4JOAMeTc7Cxlgovjh1kd1p8GCJbdeNNsA33y8f7hY +Iw6WRJ46VGloiJ0vRHrPDsXAMh+jcnabIa5433n+1PNo8Hm887+7wf9gea6e +6GP9SCi/2uw9Im2Eg5fM6/V2R8D4jb9TuveNcEX71bUs9YPgxb4tlLbeGJMc ++KM/3t4HI8vOGRQOG2NqPy+izHcvPMj51T0Ruxpvtafyn43fDS7mTFytYoL/ +HeJsdlfwA8WAkyU6FSZ49Ym3X9/sDpAW3sNb/y8HD+gOO09EeEDO2iPhw84c +lGr9UW6z3QP0jySuPefGwW55ozaepQdsGKbftm7n4Hh1/u+yRR6kRiemvfZw +sIWrzXt0Yxv8zD5mFh7FwWqfu9e3tblD2+pzb/Juc/DEMi2tRjs32HkgJ92m +gIOGCsP50SvcYLLgns8AzcFj/WdCbBTdQJJqndIr5uCdB5mZot9dwW6BstKj +Cg6apWdbB8W7QllznvebtxzcW/aXkfjSBWzFHmiHtnLQ2bW7dPsDF2i1qpuU +a+fg36WXvlhmucB46ffYbR856MD48spinwtoZy2/862fgzXiEYWL5VygrG1N +6OlBDqZZB5Tsm0Put3gz6A5z8LbjjtlP/c7ge/LA6/0TZPwvcdHPR84wXnEi +TfYnB1UP3W64fN0ZomcueJXOcHDGT/HixrPOILHyppb7LAeXRH/YLRPhDFcC +Sif+/uXgSS0wGfR2hv8BYysptQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8Fd8bB3BRimyRfb1z76WyRcWXXM+T7Cop+maLsqVCVAot6KtIJEUl +EqFN7lxKkSLKWiopIkS0CNlFqd/5/TGveb3/mJkz55zn+cwwdgRt8uHn4+Ob +Jcf/z5OddU9Z8Tmmuov9w9v6wLT5ilzYmtZomHzuUH/JTBlQ+uUOudZkcPgW +IPyvmTaEbrzVItCaDbXB45s1zTiwaEg2ebqlEEQjhlQG1qyHrrINQeMtlaCy +7qCaxhp3sGT1d4y0NAHP1hh1TQNgusUwZbilB9i6krSn/hGoWns953X2GOQE +xb9jGySCUlfJ5x1as6C22Stks34qLN7jcWv+WgFsmywQ6uhKh2Q9y4cbnBbg +QLDssMGHLHh/cXnFiIQounw3NLdqzoH4nGMv+eUX4cebwQcsq66D7PlPcecy +pNDPrPRh3aZbcNLRxrRpUhqrrdsbdvnlg8LdRgX+OTK4yxFbK4PyoUDKcUpv +oQz6f83lkz6UD++attFnVWVQ+MvlrOux+cBy2E85WMugzehToRM386Fyfabg +q0syKOr8T556fz7MWk40vjCRxXH/eVIjvndgn1GWR120HN5fDgeiNhSA7VWx +cbvTcth6tmm4z7EAqPmHYxtT5DAoyJ2ycC2AV81beG9uyKH+3g+5Y34FoLNX +RKCzUQ5rqZ2sRVEF8DXvYN6ogjy+NhgrWl9YAG6LNwwqFsmjkLaIWIMEF1ZE +PIy6UiaPip5H8mNkuCDcs0SGUS2Pu+50TBkrcaGEKwDq7+UxzpR7PkWDCzJ2 +JUnL/8rjqdCqbmFTLryKYq20sFPAL/5/rk/4c8H8x0x44CcFZEYtYTc84kKY +9fllTwYU0FW6jn5SyYWCLO02qUkFLHY7rlhUwwU5R0+jkgWKOPnWIvHEay4M +PHg2JaCjiEr1m7/96OXCueik/ZcOKaIVv4Wp7zwaeqTVA5+KKuHpgQf1W5bS +IBtUriwrq4QfW+eLR2rSsK526wt/NSV8Pqv9NE+bhuLweC3xFUroVu4UNaBH +w6mu4X7nrUr4NjHJxtmYBv2bD/1+ZCuhpugzjQe2NESZOGxX+EcZq+f1Dcb7 +02C97cqooZkyVhZZRsTvpkEs8vtxp3XKeCBdQDg2gIb0qpi8JE9llFzop3Uo +mIYHtqXfBeOU0YY9eGplGA3DW5mhY++VUUYio0c5loZtByZOPY9QQUeB3TV3 +r9HAvmCm1B+jggNCNtOOuTR5/zN35iepoNU//StH82gI/730lVmOCu6NKKtn +3qIh5fg26ZLnKijdXBbmRdPw/GxNZq6yKnZ8bFzuVEaDccGlu0fLVfFZaXf8 +3CYazFsaZ4dqVVE0vUJb7w0NG/jmWnk0qeLI8SIL12YavDYFvoc+VdzVu+L9 +9Xc0WEYwjkXOU8Ng6y0XqXYa9qpOXlujqYZXXFqqr3yiYaIoqXZaVw2rdtqM +Z/eS8VlrDvJWqqHq1jMZOX00xAR7GlCmathzX9Hn6hca0qrqa/kd1DAldbop +7DsNT/0yB6tC1XBx6suou6M02Pw2kjwcoYa5ijaXk8ZoaExqNlgZSTw5aLBr +nIb3JUKROXFquKXda1J6koahhfslY9LJ9Y9qsuynaZCjrQ0tK9WQ4x4nvO4v +DRnmn1z/VKvhd+HWMD4+HlDvj0QWN6hhW61JSCGxNn9RnfpbNfzxXoZPnJ8H +Zo7KbvO/qmGG1uv0W3N5sOfnSGStKAN/LF5vtkeIB8bBvjKfJRlYN3e30Txh +Hizob7stIMdAKYaY42Xi3Paqd6YUA5+3uU8+XsiDzscpWvcMGMgozebrFeVB +vqFwZdNqBo4ae7N9xXgQTh/9dxgZaCJfGNJHLJPtF61px8DNh/+LaxfngX2M +UWuWBwOvRWiU5i7igcqfOwHl3gzk+O5atUiSBwOhlECHPwPz8oI6w4hjdy7U +kdvPwGXv/MvMpHiwpftY1aowBs7ruzuaTcxyGd+6+SgD18UGOvMt5kGFXcfx +xFgGLs3oLi0kTnzqIJ+fwMDG9sni+dI8cONUF9QlM1DGWv+zM/G0Dvf93AwG +jvC1f5wg1peM0o3gkfGHbXERkeUBX/zE04vFDAwpm+G3I24U2OVS/JCBxtNO +vSeId09sihl5xkDHfkHHSWLjwBoF8QYGZivUfVoqR+bzy2pa6xUDE1crcl2I +c1pZ7X5tDKyptv9VRBzicGlvTBcD76vkHPlAjPWigtd6GZi8Zo8pvzwPxNZG +X674xsDPb3eYsok7Hk4u7xxioKjO2qMWxPkrd1f/GmNgrVXdnx3E4Xe6XOWn +GVjQwKs4Qmyt7jhi8IeB1SKlT1OIZTJrTzgKUPhr/tWFt4l7ZTlKIQsoLPKi +Uh8RFybxeGdEKTQL4vN5QRwppG51R5LCCGrmUBuxfXTah3pZCg2UXzX1Eqv8 +Egv5qkRhXd7afQPEA/uOzxekKDx/R8Z1hLh0YCqdqUFhbPXC+DHiWJ89+mu0 +KLyp9Vng/97S+bFmmx6Fpyr8q38Qs/51cj9sQGHHfNc334hHX9aNXlpN4Xet +Y5rdxBXWprH3kULmn8sv3xInPilUfmtB4bnBgxU1xG7GGkWjthQGS7T9KSZe +VnTZWmIjhRkqp+KvEU9rSnRqO1GoErLRL4F4MkMhaoULhR83uYseIB4XZ7OM +PChc93pKyYV4JEq3xtSbQnOzrlQT4qExo13m/hSGnXkToUT83cdc1DaQwrmG +Kc+nyfp9bdlA2++j8LNtX1wzcc9Dr0mXIxQmfjRcH03cpR14yTOawgGfckcn +4g+Zh0x8T1LY4t7VwCZ+dzwhOvgshXNGfy4sJ/vpzcQF9sFUCtVVD787SfzK +L7v28GUKH3XdktpAXG93Xyw2l8K8QNa3Jhke1Dx6wku4RWH+utnos8RPdZ87 +nuNSeOtDRvJ64sdS3WlXSig8Yr9V5jHZ74Xtwhr3XlD4n9CTZ5GkXrjrpetL +myjsVOhhahLnl6sGVLRQaJ2p/KeJ1FvetZVFDd1kPktklykSp+3eBj0TFAZs +uBqaQOr5QsfOni8zFPZYyj9nEp+33xcz+JfCIGEq574EWa8VsQ0/hZi4h9bo +aiH9IPoX719xFSYqfJ1zcYb0k2MBZTOLmUzMnBqTO0J8uKs6Q2EJE483izBn +RXgQWtX+ia3PxBizBe8mSD/aHT9vr4kluX7/hcY60s92zopLmdkx8Vi7Nv0P +sW+QQrHVRiYGN2YzchfwwHOz7u9NLkzsKUm4HzqfB46KzrH+gUw0mrau+U36 +o8nt/KupqUxsmfppkEL6bbva7UyLy0x0e7hq9NsfkgepN6+MZzJxLeNMmgnx +/ai89E03mZj/Ivhe+2+St1uvXhQrY2ITxbdkzgwNS+edTzrRzcRDb7lZ30j/ +rw1PPrPqMxPnrp/5T5nYdzgpsbefie0BI572JC9y2hNOm40zsSHu7bw7wzSo +FZ6M/SPIwoIHMnIbB2mQ8YiIDNVi4aWxtLkGn2m41xx2jK3HwqAVYQ02JJ8c +bQ8dbV7Fwijzb6muJL+SVx04rA8sjFl73DSshwZRkaBDQw4s7Oxs7EvvpGFu +yY69vgdZuDPVAk6QfByRtPXcUsnCV06WUZ+f0tC6h3q1q4aFW3WEBa9V0VBR +PQPHnrOwp2ruZvdKGpLCb6veeMfCPMnrNg3lNCzvEema7mehiv3Ys9OlNATy +XrpnSLExA0I687g09Ns7ufZ6s5HemVZuepGGppvaDT/92Vhmb2JZnEpDqYDg +atEgNua/FizWTKEh7n6xgkEYG6+32ThJJNOwRFWu7WQCG0uCBOmKeBr8htq2 +ahazMafUsurxURp6T3tuCZmvjjK/ocXQizy/X4taLqKOOhEH5RK20zBlNT04 +KKGOE+PBuR89aBAWSI7xV1DHcF/DvGg3Mv6wqrue2uoo6FzlWuhEwxEfdSn7 +zcRXAtyfWJH5Nx14qZmpjuWXt/28tozk+4+DNn0GGih+rmPQtYULSnoqJxaY +aKB+nMXX7iYuDIU8rdRco4E3Z774ezdy4fykhEmInQZ6JOqLeDzjQufsTZ2/ +Hhroz7UW0yziQojIByn5OA3MWnVpsVoiF9KWYue6dg18HLonNXEN+X70WrDv +7rElaL+0yHtOZgH5n5DlP1m5FF+9tRC2gDsg+UI9kf6xDPs01znVv7sNSrHc +jQYGWhjhKK+ktuoWXNQ0kpDy00a+rBNNezNuQL3CmlVjZ3VQK6P6RanAdTBW +qkzSfaeLJ7kvjzaa5YKYQPb+7dHLMcq2J3Vf1jVQiVI1cVbXQ7mewqGE3iwQ +YrsVb6rRw7Dy08XmJldBhyPPPeiuj7euMXuqjv5/1SWrbPlWoOBa74MJu9Pg +x9hpJ5uLK0ieSzk23bsAVrrVaTbaK3FSaYGYv2EKPB5b/WuqcSU2ed3oSCpK +hkAt/bbXPqvQLO7lm8a4JOAMeTc7Cxlgovjh1kd1p8GCJbdeNNsA33y8f7hY +Iw6WRJ46VGloiJ0vRHrPDsXAMh+jcnabIa5433n+1PNo8Hm887+7wf9gea6e +6GP9SCi/2uw9Im2Eg5fM6/V2R8D4jb9TuveNcEX71bUs9YPgxb4tlLbeGJMc ++KM/3t4HI8vOGRQOG2NqPy+izHcvPMj51T0Ruxpvtafyn43fDS7mTFytYoL/ +HeJsdlfwA8WAkyU6FSZ49Ym3X9/sDpAW3sNb/y8HD+gOO09EeEDO2iPhw84c +lGr9UW6z3QP0jySuPefGwW55ozaepQdsGKbftm7n4Hh1/u+yRR6kRiemvfZw +sIWrzXt0Yxv8zD5mFh7FwWqfu9e3tblD2+pzb/Juc/DEMi2tRjs32HkgJ92m +gIOGCsP50SvcYLLgns8AzcFj/WdCbBTdQJJqndIr5uCdB5mZot9dwW6BstKj +Cg6apWdbB8W7QllznvebtxzcW/aXkfjSBWzFHmiHtnLQ2bW7dPsDF2i1qpuU +a+fg36WXvlhmucB46ffYbR856MD48spinwtoZy2/862fgzXiEYWL5VygrG1N +6OlBDqZZB5Tsm0Put3gz6A5z8LbjjtlP/c7ge/LA6/0TZPwvcdHPR84wXnEi +TfYnB1UP3W64fN0ZomcueJXOcHDGT/HixrPOILHyppb7LAeXRH/YLRPhDFcC +Sif+/uXgSS0wGfR2hv8BYysptQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06680223602941215}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06680223602941215}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8Fd8bB3BRimyRfb1z76WyRcWXXM+T7Cop+maLsqVCVAot6KtIJEUl +EqFN7lxKkSLKWiopIkS0CNlFqd/5/TGveb3/mJkz55zn+cwwdgRt8uHn4+Ob +Jcf/z5OddU9Z8Tmmuov9w9v6wLT5ilzYmtZomHzuUH/JTBlQ+uUOudZkcPgW +IPyvmTaEbrzVItCaDbXB45s1zTiwaEg2ebqlEEQjhlQG1qyHrrINQeMtlaCy +7qCaxhp3sGT1d4y0NAHP1hh1TQNgusUwZbilB9i6krSn/hGoWns953X2GOQE +xb9jGySCUlfJ5x1as6C22Stks34qLN7jcWv+WgFsmywQ6uhKh2Q9y4cbnBbg +QLDssMGHLHh/cXnFiIQounw3NLdqzoH4nGMv+eUX4cebwQcsq66D7PlPcecy +pNDPrPRh3aZbcNLRxrRpUhqrrdsbdvnlg8LdRgX+OTK4yxFbK4PyoUDKcUpv +oQz6f83lkz6UD++attFnVWVQ+MvlrOux+cBy2E85WMugzehToRM386Fyfabg +q0syKOr8T556fz7MWk40vjCRxXH/eVIjvndgn1GWR120HN5fDgeiNhSA7VWx +cbvTcth6tmm4z7EAqPmHYxtT5DAoyJ2ycC2AV81beG9uyKH+3g+5Y34FoLNX +RKCzUQ5rqZ2sRVEF8DXvYN6ogjy+NhgrWl9YAG6LNwwqFsmjkLaIWIMEF1ZE +PIy6UiaPip5H8mNkuCDcs0SGUS2Pu+50TBkrcaGEKwDq7+UxzpR7PkWDCzJ2 +JUnL/8rjqdCqbmFTLryKYq20sFPAL/5/rk/4c8H8x0x44CcFZEYtYTc84kKY +9fllTwYU0FW6jn5SyYWCLO02qUkFLHY7rlhUwwU5R0+jkgWKOPnWIvHEay4M +PHg2JaCjiEr1m7/96OXCueik/ZcOKaIVv4Wp7zwaeqTVA5+KKuHpgQf1W5bS +IBtUriwrq4QfW+eLR2rSsK526wt/NSV8Pqv9NE+bhuLweC3xFUroVu4UNaBH +w6mu4X7nrUr4NjHJxtmYBv2bD/1+ZCuhpugzjQe2NESZOGxX+EcZq+f1Dcb7 +02C97cqooZkyVhZZRsTvpkEs8vtxp3XKeCBdQDg2gIb0qpi8JE9llFzop3Uo +mIYHtqXfBeOU0YY9eGplGA3DW5mhY++VUUYio0c5loZtByZOPY9QQUeB3TV3 +r9HAvmCm1B+jggNCNtOOuTR5/zN35iepoNU//StH82gI/730lVmOCu6NKKtn +3qIh5fg26ZLnKijdXBbmRdPw/GxNZq6yKnZ8bFzuVEaDccGlu0fLVfFZaXf8 +3CYazFsaZ4dqVVE0vUJb7w0NG/jmWnk0qeLI8SIL12YavDYFvoc+VdzVu+L9 +9Xc0WEYwjkXOU8Ng6y0XqXYa9qpOXlujqYZXXFqqr3yiYaIoqXZaVw2rdtqM +Z/eS8VlrDvJWqqHq1jMZOX00xAR7GlCmathzX9Hn6hca0qrqa/kd1DAldbop +7DsNT/0yB6tC1XBx6suou6M02Pw2kjwcoYa5ijaXk8ZoaExqNlgZSTw5aLBr +nIb3JUKROXFquKXda1J6koahhfslY9LJ9Y9qsuynaZCjrQ0tK9WQ4x4nvO4v +DRnmn1z/VKvhd+HWMD4+HlDvj0QWN6hhW61JSCGxNn9RnfpbNfzxXoZPnJ8H +Zo7KbvO/qmGG1uv0W3N5sOfnSGStKAN/LF5vtkeIB8bBvjKfJRlYN3e30Txh +Hizob7stIMdAKYaY42Xi3Paqd6YUA5+3uU8+XsiDzscpWvcMGMgozebrFeVB +vqFwZdNqBo4ae7N9xXgQTh/9dxgZaCJfGNJHLJPtF61px8DNh/+LaxfngX2M +UWuWBwOvRWiU5i7igcqfOwHl3gzk+O5atUiSBwOhlECHPwPz8oI6w4hjdy7U +kdvPwGXv/MvMpHiwpftY1aowBs7ruzuaTcxyGd+6+SgD18UGOvMt5kGFXcfx +xFgGLs3oLi0kTnzqIJ+fwMDG9sni+dI8cONUF9QlM1DGWv+zM/G0Dvf93AwG +jvC1f5wg1peM0o3gkfGHbXERkeUBX/zE04vFDAwpm+G3I24U2OVS/JCBxtNO +vSeId09sihl5xkDHfkHHSWLjwBoF8QYGZivUfVoqR+bzy2pa6xUDE1crcl2I +c1pZ7X5tDKyptv9VRBzicGlvTBcD76vkHPlAjPWigtd6GZi8Zo8pvzwPxNZG +X674xsDPb3eYsok7Hk4u7xxioKjO2qMWxPkrd1f/GmNgrVXdnx3E4Xe6XOWn +GVjQwKs4Qmyt7jhi8IeB1SKlT1OIZTJrTzgKUPhr/tWFt4l7ZTlKIQsoLPKi +Uh8RFybxeGdEKTQL4vN5QRwppG51R5LCCGrmUBuxfXTah3pZCg2UXzX1Eqv8 +Egv5qkRhXd7afQPEA/uOzxekKDx/R8Z1hLh0YCqdqUFhbPXC+DHiWJ89+mu0 +KLyp9Vng/97S+bFmmx6Fpyr8q38Qs/51cj9sQGHHfNc334hHX9aNXlpN4Xet +Y5rdxBXWprH3kULmn8sv3xInPilUfmtB4bnBgxU1xG7GGkWjthQGS7T9KSZe +VnTZWmIjhRkqp+KvEU9rSnRqO1GoErLRL4F4MkMhaoULhR83uYseIB4XZ7OM +PChc93pKyYV4JEq3xtSbQnOzrlQT4qExo13m/hSGnXkToUT83cdc1DaQwrmG +Kc+nyfp9bdlA2++j8LNtX1wzcc9Dr0mXIxQmfjRcH03cpR14yTOawgGfckcn +4g+Zh0x8T1LY4t7VwCZ+dzwhOvgshXNGfy4sJ/vpzcQF9sFUCtVVD787SfzK +L7v28GUKH3XdktpAXG93Xyw2l8K8QNa3Jhke1Dx6wku4RWH+utnos8RPdZ87 +nuNSeOtDRvJ64sdS3WlXSig8Yr9V5jHZ74Xtwhr3XlD4n9CTZ5GkXrjrpetL +myjsVOhhahLnl6sGVLRQaJ2p/KeJ1FvetZVFDd1kPktklykSp+3eBj0TFAZs +uBqaQOr5QsfOni8zFPZYyj9nEp+33xcz+JfCIGEq574EWa8VsQ0/hZi4h9bo +aiH9IPoX719xFSYqfJ1zcYb0k2MBZTOLmUzMnBqTO0J8uKs6Q2EJE483izBn +RXgQWtX+ia3PxBizBe8mSD/aHT9vr4kluX7/hcY60s92zopLmdkx8Vi7Nv0P +sW+QQrHVRiYGN2YzchfwwHOz7u9NLkzsKUm4HzqfB46KzrH+gUw0mrau+U36 +o8nt/KupqUxsmfppkEL6bbva7UyLy0x0e7hq9NsfkgepN6+MZzJxLeNMmgnx +/ai89E03mZj/Ivhe+2+St1uvXhQrY2ITxbdkzgwNS+edTzrRzcRDb7lZ30j/ +rw1PPrPqMxPnrp/5T5nYdzgpsbefie0BI572JC9y2hNOm40zsSHu7bw7wzSo +FZ6M/SPIwoIHMnIbB2mQ8YiIDNVi4aWxtLkGn2m41xx2jK3HwqAVYQ02JJ8c +bQ8dbV7Fwijzb6muJL+SVx04rA8sjFl73DSshwZRkaBDQw4s7Oxs7EvvpGFu +yY69vgdZuDPVAk6QfByRtPXcUsnCV06WUZ+f0tC6h3q1q4aFW3WEBa9V0VBR +PQPHnrOwp2ruZvdKGpLCb6veeMfCPMnrNg3lNCzvEema7mehiv3Ys9OlNATy +XrpnSLExA0I687g09Ns7ufZ6s5HemVZuepGGppvaDT/92Vhmb2JZnEpDqYDg +atEgNua/FizWTKEh7n6xgkEYG6+32ThJJNOwRFWu7WQCG0uCBOmKeBr8htq2 +ahazMafUsurxURp6T3tuCZmvjjK/ocXQizy/X4taLqKOOhEH5RK20zBlNT04 +KKGOE+PBuR89aBAWSI7xV1DHcF/DvGg3Mv6wqrue2uoo6FzlWuhEwxEfdSn7 +zcRXAtyfWJH5Nx14qZmpjuWXt/28tozk+4+DNn0GGih+rmPQtYULSnoqJxaY +aKB+nMXX7iYuDIU8rdRco4E3Z774ezdy4fykhEmInQZ6JOqLeDzjQufsTZ2/ +Hhroz7UW0yziQojIByn5OA3MWnVpsVoiF9KWYue6dg18HLonNXEN+X70WrDv +7rElaL+0yHtOZgH5n5DlP1m5FF+9tRC2gDsg+UI9kf6xDPs01znVv7sNSrHc +jQYGWhjhKK+ktuoWXNQ0kpDy00a+rBNNezNuQL3CmlVjZ3VQK6P6RanAdTBW +qkzSfaeLJ7kvjzaa5YKYQPb+7dHLMcq2J3Vf1jVQiVI1cVbXQ7mewqGE3iwQ +YrsVb6rRw7Dy08XmJldBhyPPPeiuj7euMXuqjv5/1SWrbPlWoOBa74MJu9Pg +x9hpJ5uLK0ieSzk23bsAVrrVaTbaK3FSaYGYv2EKPB5b/WuqcSU2ed3oSCpK +hkAt/bbXPqvQLO7lm8a4JOAMeTc7Cxlgovjh1kd1p8GCJbdeNNsA33y8f7hY +Iw6WRJ46VGloiJ0vRHrPDsXAMh+jcnabIa5433n+1PNo8Hm887+7wf9gea6e +6GP9SCi/2uw9Im2Eg5fM6/V2R8D4jb9TuveNcEX71bUs9YPgxb4tlLbeGJMc ++KM/3t4HI8vOGRQOG2NqPy+izHcvPMj51T0Ruxpvtafyn43fDS7mTFytYoL/ +HeJsdlfwA8WAkyU6FSZ49Ym3X9/sDpAW3sNb/y8HD+gOO09EeEDO2iPhw84c +lGr9UW6z3QP0jySuPefGwW55ozaepQdsGKbftm7n4Hh1/u+yRR6kRiemvfZw +sIWrzXt0Yxv8zD5mFh7FwWqfu9e3tblD2+pzb/Juc/DEMi2tRjs32HkgJ92m +gIOGCsP50SvcYLLgns8AzcFj/WdCbBTdQJJqndIr5uCdB5mZot9dwW6BstKj +Cg6apWdbB8W7QllznvebtxzcW/aXkfjSBWzFHmiHtnLQ2bW7dPsDF2i1qpuU +a+fg36WXvlhmucB46ffYbR856MD48spinwtoZy2/862fgzXiEYWL5VygrG1N +6OlBDqZZB5Tsm0Put3gz6A5z8LbjjtlP/c7ge/LA6/0TZPwvcdHPR84wXnEi +TfYnB1UP3W64fN0ZomcueJXOcHDGT/HixrPOILHyppb7LAeXRH/YLRPhDFcC +Sif+/uXgSS0wGfR2hv8BYysptQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06680223602941215}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQNx3ifYbWeX2kN4H+yfTRY9fJVxApTP4LDHloPx +p9AsKJ/DYY212O0lixZC+QIOsxVe2TGsXArlizioneBYUcCyEsqXcKg6XPvk +2pLVUL6Mg1lZ56u1jWuhfAWHNRM+Tc6avw7KV3L4/WqVgy7beihfxWHG4XfW +bcdh8moOP4z3RDZ/h+nXcNA6tfQj9/o1UL6Wg8zZiVPj2WD26TgYLBB/FyMB +c4+eg9yfI4xffi+D8g0c+G6LpZqdWALlGzqku15xmd+/CMo3cli9fh3XlaQF +UL6xg9AexV6uOXOgfBMHnkoW86BtM6B8UwfdaUo/vRSmQvlmDq4ftbJnP5oI +5Zs7lNqkLTD61wvlWzicsDfu4H/TAeVbOui3FS2KbW2B8q0cWNZPszY+2ADl +Wzvkyn+atlq+Gsq3cVhtf8gg4SQs/mwdThu8Y7sYVQjl2zkET1PsKy3MtgcA +LJyCOg== + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.060594}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06680223602941215}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993920886840272*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"54edb610-1608-49ae-b1f8-083288458548"] +}, Open ]], Cell[CellGroupData[{ @@ -8846,18 +14646,78 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.946146855868765`*^-156\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 161, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920886877007*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"3e9ecd16-a80f-42a8-83c4-3cd838214a87"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3172532950096688`*^-158\\\", \ +RowBox[{\\\"\ +552513857212233842570175958778312308519209260189278753959051363142168\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1583212683407106418618000954093361543354777600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 162, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920886884375*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"32f468fa-e2f8-4ad8-93fb-23fb5625cbf2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.49801260931851`*^-161\\\", \ +RowBox[{\\\"\ +192330073695578600598678251250730514595536743471887934253145779509789\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1163350940137443209261321198991532417980825600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 163, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920886891108*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8f2c130f-b256-4c80-a357-dce79a62b4f5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 164, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920886897387*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"371c1d86-5c74-496f-afa3-108f999ba1d9"], + +Cell[BoxData["12.069354062494101`"], "Output", + CellChangeTimes->{3.993920928847165*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"56d85ad7-382c-453b-9635-fa153ebc33dc"] }, Open ]], Cell[CellGroupData[{ @@ -8924,27 +14784,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850391956293*^9, - 3.9918503966918755`*^9}},ExpressionUUID->"a3e3d205-e3b4-874a-a36c-\ -53cfa72184b4"], + CellChangeTimes->{{3.991850391956293*^9, 3.9918503966918755`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.320505466039798`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 143, 165, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920928885812*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"cd9e07f3-ace5-4f81-aed2-79ba0dd261e4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7856154543520227`*^-248\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 143, 166, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920928892543*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"203c9ac6-0c40-4d5a-a034-5e7b175e3c19"], -Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4584429071737333`*^-255\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 143, 167, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920928898597*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"efe30a4a-0113-4be8-8261-3e3d462a67ca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 168, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939209289044027`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"939d8d7c-e9b5-45cf-a31a-7241d6de80a3"], + +Cell[BoxData["0.002375925728352875`"], "Output", + CellChangeTimes->{3.993920934264357*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"f0142436-f977-4f6c-a45e-b2c8ad6b9053"] }, Open ]], Cell[CellGroupData[{ @@ -8965,8 +14867,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9011,27 +14912,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918504007528324`*^9, - 3.991850403970867*^9}},ExpressionUUID->"6977f025-454e-0e4a-b118-\ -07bad9ba3e82"], + CellChangeTimes->{{3.9918504007528324`*^9, 3.991850403970867*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566a849f-fc85-4d42-a545-a46d44cf7346"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.320505466039798`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 144, 169, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939209343025923`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"216fccf7-696e-429a-9fa0-4d25026eb3dc"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7856154543520227`*^-248\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 170, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920934310042*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"b11dcf50-b94f-4ed2-9a28-db0fa7de2f51"], -Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4584429071737333`*^-255\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 144, 171, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920934318102*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"fde9cf17-f630-433a-bb5c-e8470c561121"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 172, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920934325365*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"9c4d6459-1a53-4b19-acfe-5086e48601f7"], + +Cell[BoxData["35.38236439362341`"], "Output", + CellChangeTimes->{3.9939209392615433`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"8d6a6645-e847-482f-9def-b6a9a3a2eb90"] }, Open ]], Cell[CellGroupData[{ @@ -9052,8 +14995,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9098,27 +15040,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918504078476295`*^9, - 3.9918504110344543`*^9}},ExpressionUUID->"df8ecb01-788a-604d-b773-\ -f29bb610eb30"], + CellChangeTimes->{{3.9918504078476295`*^9, 3.9918504110344543`*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.320505466039798`*^-241\\\", \ +\\\"75400004869168930545357990649971986599716210864717937665638400000000000000\ +\\\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 145, 173, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939209393039503`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"759ca7ac-8f0d-40cc-9903-0cd6fa162742"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.7856154543520227`*^-248\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 174, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920939311769*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"3d0992bd-17fc-4f50-b9f4-73af04b789f0"], -Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4584429071737333`*^-255\\\", \ +\\\"10677394689523012254528145055942533022385812620552707152831053824000000000\ +0000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 145, 175, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9939209393180027`*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2f31b597-a9e0-491e-ad97-dc23815c1c37"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 176, 31385386164681285117, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993920939325807*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e146f04-19de-4216-930a-5a200174ddeb"], + +Cell[BoxData["4.903209206786734`"], "Output", + CellChangeTimes->{3.993920942402224*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"2b3e335f-3c16-4290-bc4c-d0152eafdf16"] }, Open ]], Cell[CellGroupData[{ @@ -9127,17 +15111,26 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918504490520267`*^9, - 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ -d2cfa007cfcf"], + CellChangeTimes->{{3.9918504490520267`*^9, 3.991850453720993*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] -}, Open ]] +Cell[BoxData["0.0001803845025537172`"], "Output", + CellChangeTimes->{3.993920942440322*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"2e7076bb-1009-4277-9129-1f2a4605bb6f"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"NotebookSave", "[", "]"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"78d5e6e9-1aa1-40c4-9d17-99d56a171e36"] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +Evaluator->"kernel 4", +WindowSize->{714, 288}, +WindowMargins->{{-3, Automatic}, {3, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" ] @@ -9152,359 +15145,641 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], -Cell[706, 26, 154, 3, 28, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], -Cell[863, 31, 149, 4, 28, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], -Cell[1015, 37, 154, 3, 28, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ -Cell[1194, 44, 1301, 43, 113, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[2498, 89, 178, 3, 32, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[576, 22, 302, 5, 29, "Input",ExpressionUUID->"3235bbf8-da8e-40de-a6fe-cb44aeded391"], +Cell[881, 29, 268, 4, 33, "Output",ExpressionUUID->"71694dee-141b-405f-a78e-95a6b2036bcc"] }, Open ]], Cell[CellGroupData[{ -Cell[2713, 97, 908, 31, 56, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[3624, 130, 177, 3, 32, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[1186, 38, 246, 4, 29, "Input",ExpressionUUID->"bd0cf5d4-d368-4e36-8938-b6a0f83a3831"], +Cell[1435, 44, 273, 4, 33, "Output",ExpressionUUID->"c9e1ef46-32d8-42d7-bd92-3941f6feddb8"] }, Open ]], Cell[CellGroupData[{ -Cell[3838, 138, 889, 30, 56, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[4730, 170, 178, 3, 32, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[1745, 53, 223, 4, 29, "Input",ExpressionUUID->"9c07cf49-7265-4900-9960-936947713953"], +Cell[1971, 59, 271, 4, 33, "Output",ExpressionUUID->"2f19bdd2-72b4-49e6-b945-e4b26a4ccd5b"] }, Open ]], Cell[CellGroupData[{ -Cell[4945, 178, 558, 19, 52, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[5506, 199, 172, 3, 32, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[2279, 68, 175, 3, 29, "Input",ExpressionUUID->"8cb9b55f-070c-4625-a6d7-f782b4ce93ee"], +Cell[2457, 73, 270, 4, 33, "Output",ExpressionUUID->"2904de36-0e80-409a-abbb-30e1d19674f6"] }, Open ]], Cell[CellGroupData[{ -Cell[5715, 207, 651, 22, 52, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[6369, 231, 167, 3, 32, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[2764, 82, 257, 7, 42, "Input",ExpressionUUID->"e30a864e-a575-4b47-8ff8-424faf479ef1"], +Cell[3024, 91, 280, 4, 33, "Output",ExpressionUUID->"b1594c7f-a59a-41db-b09b-83171f431a91"] }, Open ]], Cell[CellGroupData[{ -Cell[6573, 239, 170, 5, 56, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[6746, 246, 172, 3, 32, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[3341, 100, 131, 2, 29, "Input",ExpressionUUID->"24d14c6e-1019-48b3-b766-5fcbd77da083"], +Cell[3475, 104, 279, 4, 33, "Output",ExpressionUUID->"5f17b7ca-c1f4-471d-ab57-9c38f97fbd9a"] }, Open ]], Cell[CellGroupData[{ -Cell[6955, 254, 170, 5, 55, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[7128, 261, 173, 3, 70, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[3791, 113, 276, 6, 29, "Input",ExpressionUUID->"4141a19d-1262-4a1d-b152-6978db5a6523"], +Cell[4070, 121, 286, 4, 33, "Output",ExpressionUUID->"d110cd2c-97d8-4966-9097-4de673fd1d4c"] }, Open ]], Cell[CellGroupData[{ -Cell[7338, 269, 181, 5, 70, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[7522, 276, 171, 3, 70, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[4393, 130, 257, 7, 29, "Input",ExpressionUUID->"6aadd5e5-cc36-44c2-9bb6-f3e991296a6e"], +Cell[4653, 139, 285, 4, 33, "Output",ExpressionUUID->"81bdd47b-0fd0-4331-888e-7627dd622c7c"] }, Open ]], Cell[CellGroupData[{ -Cell[7730, 284, 181, 5, 70, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[7914, 291, 172, 3, 70, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[4975, 148, 226, 4, 29, "Input",ExpressionUUID->"125eac33-36db-46f5-9dbf-4ce375c7fe67"], +Cell[5204, 154, 249, 4, 33, "Output",ExpressionUUID->"e2e59838-fad8-4b19-bcff-6a4be2167d52"] }, Open ]], Cell[CellGroupData[{ -Cell[8123, 299, 6055, 185, 70, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[14181, 486, 174, 3, 70, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[5490, 163, 225, 4, 29, "Input",ExpressionUUID->"b95bc0b5-76c1-4424-b9c4-99fa3d71a00e"], +Cell[5718, 169, 262, 4, 33, "Output",ExpressionUUID->"b04e3ad7-14e3-4ae7-8809-82565891672e"] }, Open ]], Cell[CellGroupData[{ -Cell[14392, 494, 368, 9, 70, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[14763, 505, 172, 3, 70, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[6017, 178, 129, 2, 29, "Input",ExpressionUUID->"101aab11-fc81-4955-b4a9-98a600e67d14"], +Cell[6149, 182, 274, 4, 33, "Output",ExpressionUUID->"10f8a807-028b-4769-999b-45790f2a721a"] }, Open ]], Cell[CellGroupData[{ -Cell[14972, 513, 6122, 187, 70, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[21097, 702, 175, 3, 70, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[6460, 191, 129, 2, 29, "Input",ExpressionUUID->"74bd6134-ee73-43ed-bd51-8c8dd29d117e"], +Cell[6592, 195, 274, 4, 33, "Output",ExpressionUUID->"ebb05eb8-8995-4cd6-a396-2f84d1fb1def"] }, Open ]], Cell[CellGroupData[{ -Cell[21309, 710, 368, 9, 70, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[21680, 721, 172, 3, 70, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[6903, 204, 557, 19, 79, "Input",ExpressionUUID->"74c42d72-2d69-49dc-95c0-040f6497baf3"], +Cell[7463, 225, 291, 4, 33, "Output",ExpressionUUID->"f79dabe1-4421-4172-92f9-8ac11e163c99"] }, Open ]], Cell[CellGroupData[{ -Cell[21889, 729, 2663, 88, 70, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[24555, 819, 171, 3, 70, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[7791, 234, 557, 19, 79, "Input",ExpressionUUID->"280a7804-a118-4d98-b122-a6f17256ef5c"], +Cell[8351, 255, 289, 4, 33, "Output",ExpressionUUID->"6078c4cc-8b6e-45e6-a00e-47f52e8e5248"] }, Open ]], Cell[CellGroupData[{ -Cell[24763, 827, 2603, 85, 70, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[27369, 914, 173, 3, 70, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[8677, 264, 1492, 48, 79, "Input",ExpressionUUID->"72b8a81e-f1b3-4cf4-ac1c-d07022e335bd"], +Cell[10172, 314, 291, 4, 33, "Output",ExpressionUUID->"b2cba5eb-5c23-4108-a1e3-5fd0579395d4"] }, Open ]], Cell[CellGroupData[{ -Cell[27579, 922, 3712, 118, 70, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[31294, 1042, 174, 3, 70, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] -}, Open ]], -Cell[31483, 1048, 138, 3, 70, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], -Cell[CellGroupData[{ -Cell[31646, 1055, 2054, 59, 70, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], -Cell[33703, 1116, 559, 12, 70, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], -Cell[34265, 1130, 560, 12, 70, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], -Cell[34828, 1144, 565, 12, 70, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], -Cell[35396, 1158, 456, 10, 70, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], -Cell[35855, 1170, 170, 3, 70, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[10500, 323, 1331, 44, 79, "Input",ExpressionUUID->"68620a86-4122-4554-a239-6e6334a50f04"], +Cell[11834, 369, 306, 5, 33, "Output",ExpressionUUID->"ce81c24a-8e2e-4382-b446-f57c8c21375d"] }, Open ]], Cell[CellGroupData[{ -Cell[36062, 1178, 2054, 59, 70, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], -Cell[38119, 1239, 559, 12, 70, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], -Cell[38681, 1253, 559, 12, 70, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], -Cell[39243, 1267, 565, 12, 70, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], -Cell[39811, 1281, 458, 10, 70, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], -Cell[40272, 1293, 170, 3, 70, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[12177, 379, 1331, 44, 79, "Input",ExpressionUUID->"6bfcc9f3-1b86-47b4-9561-7b66074da604"], +Cell[13511, 425, 306, 5, 33, "Output",ExpressionUUID->"d9412d47-5602-4f88-a0be-2ce56d437272"] }, Open ]], Cell[CellGroupData[{ -Cell[40479, 1301, 1938, 53, 70, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], -Cell[42420, 1356, 20196, 379, 70, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +Cell[13854, 435, 1492, 48, 79, "Input",ExpressionUUID->"4739ec10-3cf8-47d0-9709-c4a00f34cea6"], +Cell[15349, 485, 284, 4, 33, "Output",ExpressionUUID->"2586394e-9220-45c8-b0b4-7ece3d468c3c"] }, Open ]], Cell[CellGroupData[{ -Cell[62653, 1740, 2094, 60, 70, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], -Cell[64750, 1802, 503, 11, 70, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], -Cell[65256, 1815, 505, 11, 70, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], -Cell[65764, 1828, 506, 11, 70, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], -Cell[66273, 1841, 455, 10, 70, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], -Cell[66731, 1853, 55770, 961, 70, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] -}, Open ]], -Cell[122516, 2817, 232, 6, 70, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], -Cell[122751, 2825, 209, 5, 70, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], -Cell[CellGroupData[{ -Cell[122985, 2834, 217, 7, 70, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[123205, 2843, 173, 3, 70, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +Cell[15670, 494, 131, 2, 29, "Input",ExpressionUUID->"cb15b970-5a8f-45f5-8e23-8f42eb2e9f95"], +Cell[15804, 498, 268, 4, 33, "Output",ExpressionUUID->"c3ab7154-9804-4ae3-a786-c98afd62af6c"] }, Open ]], Cell[CellGroupData[{ -Cell[123415, 2851, 1814, 53, 70, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], -Cell[125232, 2906, 506, 11, 70, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], -Cell[125741, 2919, 508, 11, 70, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], -Cell[126252, 2932, 509, 11, 70, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], -Cell[126764, 2945, 458, 10, 70, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], -Cell[127225, 2957, 24818, 454, 70, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +Cell[16109, 507, 133, 2, 29, "Input",ExpressionUUID->"d01a55e9-2f1a-4b11-8e9d-9dec4e17b173"], +Cell[16245, 511, 273, 4, 33, "Output",ExpressionUUID->"fa620a48-bdec-48dd-adf5-d1d253396554"] }, Open ]], Cell[CellGroupData[{ -Cell[152080, 3416, 1616, 48, 70, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], -Cell[153699, 3466, 582, 12, 70, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], -Cell[154284, 3480, 588, 12, 70, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], -Cell[154875, 3494, 590, 12, 70, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], -Cell[155468, 3508, 458, 10, 70, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], -Cell[155929, 3520, 171, 3, 70, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +Cell[16555, 520, 134, 2, 29, "Input",ExpressionUUID->"e7895c1b-819d-4dc5-b27a-2097571638fe"], +Cell[16692, 524, 275, 4, 33, "Output",ExpressionUUID->"ed454e7e-3049-45ba-b04c-2f2ea7fe0e28"] }, Open ]], Cell[CellGroupData[{ -Cell[156137, 3528, 2251, 64, 70, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], -Cell[158391, 3594, 557, 12, 70, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], -Cell[158951, 3608, 560, 12, 70, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], -Cell[159514, 3622, 565, 12, 70, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], -Cell[160082, 3636, 458, 10, 70, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], -Cell[160543, 3648, 172, 3, 70, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +Cell[17004, 533, 219, 4, 29, "Input",ExpressionUUID->"ea19f017-261d-4f4c-a642-04351dbe973f"], +Cell[17226, 539, 287, 5, 33, "Output",ExpressionUUID->"b0f59fa2-6ea8-43e6-99ae-e66ad19f28bd"] }, Open ]], Cell[CellGroupData[{ -Cell[160752, 3656, 2218, 64, 70, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], -Cell[162973, 3722, 559, 12, 70, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], -Cell[163535, 3736, 562, 12, 70, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], -Cell[164100, 3750, 563, 12, 70, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], -Cell[164666, 3764, 458, 10, 70, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], -Cell[165127, 3776, 170, 3, 70, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +Cell[17550, 549, 134, 2, 29, "Input",ExpressionUUID->"b3c1d11a-2f84-4189-9e48-84352f007605"], +Cell[17687, 553, 280, 4, 33, "Output",ExpressionUUID->"9b435774-5825-4a4d-b626-d6ee868b974f"] }, Open ]], Cell[CellGroupData[{ -Cell[165334, 3784, 2221, 64, 70, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], -Cell[167558, 3850, 559, 12, 70, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], -Cell[168120, 3864, 562, 12, 70, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], -Cell[168685, 3878, 563, 12, 70, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], -Cell[169251, 3892, 458, 10, 70, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], -Cell[169712, 3904, 171, 3, 70, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +Cell[18004, 562, 324, 5, 29, "Input",ExpressionUUID->"5248ded4-8ebe-421b-a3ea-d4c48915d94f"], +Cell[18331, 569, 274, 4, 33, "Output",ExpressionUUID->"f75e1eb1-17c3-4f16-82f5-0789651ac8fc"] }, Open ]], Cell[CellGroupData[{ -Cell[169920, 3912, 213, 6, 70, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], -Cell[170136, 3920, 173, 3, 70, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] -}, Open ]], -Cell[170324, 3926, 245, 5, 70, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], -Cell[CellGroupData[{ -Cell[170594, 3935, 558, 19, 70, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[171155, 3956, 170, 3, 70, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +Cell[18642, 578, 296, 5, 29, "Input",ExpressionUUID->"d2d0972b-5caf-4de1-9a95-52f8cdf2d3d2"], +Cell[18941, 585, 272, 4, 33, "Output",ExpressionUUID->"8bc961ad-095b-4a56-8f92-7521b37539d6"] }, Open ]], Cell[CellGroupData[{ -Cell[171362, 3964, 170, 5, 70, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[171535, 3971, 173, 3, 70, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +Cell[19250, 594, 219, 4, 29, "Input",ExpressionUUID->"af3b9a3b-4a8a-434b-853f-7ee90245c03b"], +Cell[19472, 600, 275, 4, 33, "Output",ExpressionUUID->"43d7a721-e50b-4f3f-9d21-5fd543cf2bb0"] }, Open ]], Cell[CellGroupData[{ -Cell[171745, 3979, 181, 5, 70, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[171929, 3986, 171, 3, 70, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +Cell[19784, 609, 350, 10, 42, "Input",ExpressionUUID->"588c4eca-bf5d-4641-8975-06032766e60f"], +Cell[20137, 621, 291, 4, 33, "Output",ExpressionUUID->"a03b5184-b4d1-402b-90cc-bbe620889ac7"] }, Open ]], Cell[CellGroupData[{ -Cell[172137, 3994, 6055, 185, 70, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[178195, 4181, 172, 3, 70, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +Cell[20465, 630, 350, 10, 42, "Input",ExpressionUUID->"d8f13563-327e-4dee-8ebe-3800f0404fa0"], +Cell[20818, 642, 306, 5, 33, "Output",ExpressionUUID->"f6eb3ee6-aa36-4f6a-9d14-1ea4aa960fde"] }, Open ]], Cell[CellGroupData[{ -Cell[178404, 4189, 368, 9, 70, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[178775, 4200, 172, 3, 70, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +Cell[21161, 652, 994, 26, 43, "Input",ExpressionUUID->"af147681-d2bd-49f5-9c74-f8a15f9efa03"], +Cell[22158, 680, 287, 4, 33, "Output",ExpressionUUID->"05afe1d7-ba3c-4bdb-ae60-544af3797eea"] }, Open ]], Cell[CellGroupData[{ -Cell[178984, 4208, 6122, 187, 70, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[185109, 4397, 173, 3, 70, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +Cell[22482, 689, 199, 3, 29, "Input",ExpressionUUID->"05e6a1e9-953e-4b01-84b3-0e2e8dbe1069"], +Cell[22684, 694, 272, 4, 33, "Output",ExpressionUUID->"602080a2-aca0-42f6-a2e3-a4a9b8ed207a"] }, Open ]], Cell[CellGroupData[{ -Cell[185319, 4405, 368, 9, 70, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[185690, 4416, 170, 3, 70, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +Cell[22993, 703, 325, 5, 29, "Input",ExpressionUUID->"e27bfe21-8cab-4d46-80db-7ce42d777150"], +Cell[23321, 710, 249, 4, 33, "Output",ExpressionUUID->"34c9b4d2-0237-4ae8-94a6-b67d0ef28b5d"] +}, Open ]], +Cell[23585, 717, 173, 2, 29, "Input",ExpressionUUID->"7a8de3c3-9e00-4679-909b-1b172ad0f302"], +Cell[CellGroupData[{ +Cell[23783, 723, 327, 5, 29, "Input",ExpressionUUID->"0ffbd7d6-4ef3-443b-ae11-f7b2b173c9c1"], +Cell[24113, 730, 255, 4, 33, "Output",ExpressionUUID->"c1ff0e51-cbf3-4a1a-bde1-e9e2abf0e797"] +}, Open ]], +Cell[24383, 737, 173, 2, 29, "Input",ExpressionUUID->"24d1218f-aca4-4e1e-af92-009ce7a8236d"], +Cell[CellGroupData[{ +Cell[24581, 743, 330, 5, 29, "Input",ExpressionUUID->"b95b7010-0e26-4222-9786-e77f66b112ad"], +Cell[24914, 750, 259, 4, 33, "Output",ExpressionUUID->"d4fbc857-86f1-4ee3-92a5-56f0190b06f7"] +}, Open ]], +Cell[25188, 757, 173, 2, 29, "Input",ExpressionUUID->"803d8367-18c3-4f7c-ab32-062e1fcc3bdd"], +Cell[CellGroupData[{ +Cell[25386, 763, 351, 5, 29, "Input",ExpressionUUID->"daf1fa6f-8992-41d3-934a-8941400d9cac"], +Cell[25740, 770, 257, 4, 33, "Output",ExpressionUUID->"d56dfcf4-dafb-485f-80db-dd5153707ba7"] +}, Open ]], +Cell[26012, 777, 171, 2, 29, "Input",ExpressionUUID->"eb0762a6-fb92-4334-9b50-70c79f936898"], +Cell[CellGroupData[{ +Cell[26208, 783, 301, 5, 29, "Input",ExpressionUUID->"cf4792b2-7d4b-4891-830f-2e9ebaf00577"], +Cell[26512, 790, 251, 4, 33, "Output",ExpressionUUID->"f72a07cc-e132-4cf5-912f-cb8c569686b8"] +}, Open ]], +Cell[26778, 797, 171, 2, 29, "Input",ExpressionUUID->"108913a2-6dfa-42c6-b688-2f352d95ffb2"], +Cell[CellGroupData[{ +Cell[26974, 803, 303, 5, 29, "Input",ExpressionUUID->"b2890949-f971-4a94-884b-976d0f872b04"], +Cell[27280, 810, 251, 4, 33, "Output",ExpressionUUID->"d9e09a96-d232-473d-9dc9-df9e81e48617"] +}, Open ]], +Cell[27546, 817, 173, 2, 29, "Input",ExpressionUUID->"175aa9ad-bfa6-4047-b6f9-5da7a57ed4d4"], +Cell[CellGroupData[{ +Cell[27744, 823, 307, 5, 29, "Input",ExpressionUUID->"806d6a7d-e84e-499b-8c48-7fee38f0587e"], +Cell[28054, 830, 254, 4, 33, "Output",ExpressionUUID->"ed256617-321b-49ed-9d31-a9d5bebef00d"] +}, Open ]], +Cell[28323, 837, 172, 2, 29, "Input",ExpressionUUID->"55b98510-505a-45f5-9535-531564a81716"], +Cell[CellGroupData[{ +Cell[28520, 843, 275, 4, 29, "Input",ExpressionUUID->"1fa20fc6-2836-4435-94b4-2b0c2aab5ef1"], +Cell[28798, 849, 255, 4, 33, "Output",ExpressionUUID->"ad182484-6e67-4b97-96a6-9d159d91fe24"] +}, Open ]], +Cell[29068, 856, 175, 2, 29, "Input",ExpressionUUID->"c3f49d31-4f36-494c-a60f-c1a6dc325eff"], +Cell[CellGroupData[{ +Cell[29268, 862, 19809, 485, 1100, "Input",ExpressionUUID->"6d15d766-a35c-4956-b426-adee02c8c890"], +Cell[49080, 1349, 291, 4, 33, "Output",ExpressionUUID->"18bf17da-2828-467e-bb06-cb0bc6e1c908"] }, Open ]], Cell[CellGroupData[{ -Cell[185897, 4424, 2663, 88, 70, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[188563, 4514, 171, 3, 70, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +Cell[49408, 1358, 19748, 489, 1100, "Input",ExpressionUUID->"67ead024-9cca-4bc0-8576-9678d088c046"], +Cell[69159, 1849, 287, 4, 33, "Output",ExpressionUUID->"fd6ff706-623e-4520-a21a-7e3d02b1868e"] }, Open ]], Cell[CellGroupData[{ -Cell[188771, 4522, 2603, 85, 70, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[191377, 4609, 173, 3, 70, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +Cell[69483, 1858, 19748, 483, 1099, "Input",ExpressionUUID->"41bb8323-f3a2-4c37-877b-19863b406be8"], +Cell[89234, 2343, 302, 5, 33, "Output",ExpressionUUID->"537d50a5-6017-4b1e-8926-6b128375f8e2"] }, Open ]], Cell[CellGroupData[{ -Cell[191587, 4617, 3712, 118, 70, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[195302, 4737, 174, 3, 70, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +Cell[89573, 2353, 22534, 553, 1235, "Input",ExpressionUUID->"e7be57cb-9256-4ada-b3c3-d995c6fbc707"], +Cell[112110, 2908, 304, 5, 33, "Output",ExpressionUUID->"c35da129-c7a9-47cf-95e4-cab6f6530fc2"] }, Open ]], Cell[CellGroupData[{ -Cell[195513, 4745, 2049, 58, 70, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], -Cell[197565, 4805, 579, 12, 70, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], -Cell[198147, 4819, 582, 12, 70, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], -Cell[198732, 4833, 584, 12, 70, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], -Cell[199319, 4847, 458, 10, 70, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], -Cell[199780, 4859, 172, 3, 70, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +Cell[112451, 2918, 22535, 553, 1235, "Input",ExpressionUUID->"243991e9-4dc6-49a0-b2c7-e218016faa0c"], +Cell[134989, 3473, 309, 5, 33, "Output",ExpressionUUID->"16f1119c-e7e1-4cd6-860a-52e57c3cc069"] }, Open ]], Cell[CellGroupData[{ -Cell[199989, 4867, 2054, 59, 70, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], -Cell[202046, 4928, 577, 12, 70, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], -Cell[202626, 4942, 580, 12, 70, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], -Cell[203209, 4956, 583, 12, 70, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], -Cell[203795, 4970, 456, 10, 70, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], -Cell[204254, 4982, 171, 3, 70, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +Cell[135335, 3483, 25491, 626, 1350, "Input",ExpressionUUID->"96b3762f-4689-49ef-9539-8fd4b9c74a6f"], +Cell[160829, 4111, 302, 5, 33, "Output",ExpressionUUID->"5210d035-db65-4a21-953e-adda35980499"] }, Open ]], Cell[CellGroupData[{ -Cell[204462, 4990, 2030, 55, 70, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], -Cell[206495, 5047, 20493, 384, 70, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +Cell[161168, 4121, 130, 2, 29, "Input",ExpressionUUID->"c2390247-c1c8-4bf5-a215-7e65e6c8be37"], +Cell[161301, 4125, 272, 4, 33, "Output",ExpressionUUID->"640d67ea-f2aa-403b-9fbb-6c23f19e1a22"] }, Open ]], Cell[CellGroupData[{ -Cell[227025, 5436, 2120, 60, 70, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], -Cell[229148, 5498, 501, 11, 70, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], -Cell[229652, 5511, 504, 11, 70, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], -Cell[230159, 5524, 508, 11, 70, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], -Cell[230670, 5537, 456, 10, 70, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], -Cell[231129, 5549, 31462, 562, 70, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] -}, Open ]], -Cell[262606, 6114, 209, 5, 70, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], -Cell[CellGroupData[{ -Cell[262840, 6123, 1616, 48, 70, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], -Cell[264459, 6173, 596, 12, 70, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], -Cell[265058, 6187, 602, 12, 70, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], -Cell[265663, 6201, 605, 12, 70, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], -Cell[266271, 6215, 458, 10, 70, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], -Cell[266732, 6227, 171, 3, 70, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +Cell[161610, 4134, 130, 2, 29, "Input",ExpressionUUID->"d0191392-f6e7-402e-a95c-2e3585349110"], +Cell[161743, 4138, 271, 4, 33, "Output",ExpressionUUID->"8f56319c-d9e7-443f-ba13-39952c108f9e"] }, Open ]], Cell[CellGroupData[{ -Cell[266940, 6235, 2251, 64, 70, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], -Cell[269194, 6301, 577, 12, 70, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], -Cell[269774, 6315, 580, 12, 70, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], -Cell[270357, 6329, 586, 12, 70, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], -Cell[270946, 6343, 458, 10, 70, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], -Cell[271407, 6355, 173, 3, 70, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +Cell[162051, 4147, 1144, 39, 55, "Input",ExpressionUUID->"abd2baff-d090-46d8-8498-4320ff81f8a8"], +Cell[163198, 4188, 286, 4, 33, "Output",ExpressionUUID->"107ab08f-346e-480d-8fb7-d2cf9a895c46"] }, Open ]], Cell[CellGroupData[{ -Cell[271617, 6363, 2219, 64, 70, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], -Cell[273839, 6429, 579, 12, 70, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], -Cell[274421, 6443, 580, 12, 70, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], -Cell[275004, 6457, 586, 12, 70, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], -Cell[275593, 6471, 458, 10, 70, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], -Cell[276054, 6483, 171, 3, 70, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +Cell[163521, 4197, 1041, 35, 55, "Input",ExpressionUUID->"418b109a-0fe1-419f-9333-75c60545378f"], +Cell[164565, 4234, 301, 5, 33, "Output",ExpressionUUID->"f5a13f62-7863-4bb4-851d-8a2e4bf5e58d"] }, Open ]], Cell[CellGroupData[{ -Cell[276262, 6491, 2219, 64, 70, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], -Cell[278484, 6557, 576, 12, 70, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], -Cell[279063, 6571, 580, 12, 70, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], -Cell[279646, 6585, 584, 12, 70, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], -Cell[280233, 6599, 458, 10, 70, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], -Cell[280694, 6611, 173, 3, 70, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +Cell[164903, 4244, 1144, 39, 55, "Input",ExpressionUUID->"d8b3b587-7f8e-4b06-b76c-2825de0f2394"], +Cell[166050, 4285, 292, 4, 33, "Output",ExpressionUUID->"49aee616-d16e-4025-b1ff-34744ebeae76"] }, Open ]], Cell[CellGroupData[{ -Cell[280904, 6619, 212, 6, 70, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], -Cell[281119, 6627, 172, 3, 70, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] -}, Open ]], -Cell[281306, 6633, 244, 5, 70, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], -Cell[CellGroupData[{ -Cell[281575, 6642, 558, 19, 70, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[282136, 6663, 171, 3, 70, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +Cell[166379, 4294, 108, 1, 29, "Input",ExpressionUUID->"8148770f-baaf-45d0-9c9a-49558cf8ed36"], +Cell[166490, 4297, 293, 4, 33, "Output",ExpressionUUID->"281293ac-7d8a-427f-9cf7-321847c3d084"] }, Open ]], Cell[CellGroupData[{ -Cell[282344, 6671, 170, 5, 70, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[282517, 6678, 171, 3, 70, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +Cell[166820, 4306, 108, 1, 29, "Input",ExpressionUUID->"011ad14a-a48a-4894-b4a2-eb1ca40f1287"], +Cell[166931, 4309, 308, 5, 33, "Output",ExpressionUUID->"89b69685-bcee-4eeb-98d0-850e47f612a9"] }, Open ]], Cell[CellGroupData[{ -Cell[282725, 6686, 181, 5, 70, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[282909, 6693, 173, 3, 70, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +Cell[167276, 4319, 108, 1, 29, "Input",ExpressionUUID->"0a0fc77f-7192-4edc-a9eb-7f8bdd8e5be7"], +Cell[167387, 4322, 306, 5, 33, "Output",ExpressionUUID->"8469963a-cadb-4825-8c01-4afa80d80848"] }, Open ]], Cell[CellGroupData[{ -Cell[283119, 6701, 6055, 185, 70, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[289177, 6888, 173, 3, 70, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +Cell[167730, 4332, 108, 1, 29, "Input",ExpressionUUID->"445d3563-9281-4f3f-b221-5512d1a5d6a6"], +Cell[167841, 4335, 290, 4, 33, "Output",ExpressionUUID->"556452b9-3b93-47e4-b131-1d56b5b5ee3c"] }, Open ]], Cell[CellGroupData[{ -Cell[289387, 6896, 368, 9, 70, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[289758, 6907, 172, 3, 70, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +Cell[168168, 4344, 107, 1, 29, "Input",ExpressionUUID->"d3053f3f-f93a-4d23-92d5-cd89ba821790"], +Cell[168278, 4347, 290, 4, 33, "Output",ExpressionUUID->"529d9c64-b5ca-4164-88ab-e654cbdc5c59"] }, Open ]], Cell[CellGroupData[{ -Cell[289967, 6915, 6122, 187, 70, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[296092, 7104, 173, 3, 70, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +Cell[168605, 4356, 107, 1, 29, "Input",ExpressionUUID->"01ffdf21-d666-415a-84b8-6301939400d0"], +Cell[168715, 4359, 289, 4, 33, "Output",ExpressionUUID->"42ab4c8d-ae6d-44b8-9bbc-632719d7d89a"] }, Open ]], Cell[CellGroupData[{ -Cell[296302, 7112, 368, 9, 70, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[296673, 7123, 172, 3, 70, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +Cell[169041, 4368, 497, 16, 55, "Input",ExpressionUUID->"f88a16e2-35d7-4ccf-9d96-e055f2fe78af"], +Cell[169541, 4386, 307, 5, 33, "Output",ExpressionUUID->"49a5e7a1-a9b4-46be-b66a-2b81309c6b4e"] }, Open ]], Cell[CellGroupData[{ -Cell[296882, 7131, 2663, 88, 70, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[299548, 7221, 173, 3, 70, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +Cell[169885, 4396, 497, 16, 55, "Input",ExpressionUUID->"a9a6bbef-82df-4a94-b59e-4d24434c91f6"], +Cell[170385, 4414, 309, 5, 33, "Output",ExpressionUUID->"c4f89755-2805-4a4f-add9-cb2ba0935bab"] }, Open ]], Cell[CellGroupData[{ -Cell[299758, 7229, 2603, 85, 70, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[302364, 7316, 171, 3, 70, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +Cell[170731, 4424, 1788, 60, 55, "Input",ExpressionUUID->"a6502cee-2ac3-4f4c-a190-93c980fabdca"], +Cell[172522, 4486, 289, 4, 33, "Output",ExpressionUUID->"99d8e306-918c-4ac1-b812-1b5f2abe83c4"] }, Open ]], Cell[CellGroupData[{ -Cell[302572, 7324, 3712, 118, 70, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[306287, 7444, 174, 3, 70, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +Cell[172848, 4495, 1101, 36, 55, "Input",ExpressionUUID->"bc70c33f-23d9-40d3-9ab7-9edab6724579"], +Cell[173952, 4533, 305, 5, 33, "Output",ExpressionUUID->"bebff362-73cf-45d3-92dc-15cc34beec0d"] }, Open ]], Cell[CellGroupData[{ -Cell[306498, 7452, 2054, 59, 70, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], -Cell[308555, 7513, 574, 12, 70, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], -Cell[309132, 7527, 580, 12, 70, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], -Cell[309715, 7541, 580, 12, 70, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], -Cell[310298, 7555, 456, 10, 70, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], -Cell[310757, 7567, 172, 3, 70, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +Cell[174294, 4543, 1818, 61, 107, "Input",ExpressionUUID->"f936e74b-4d2b-46e6-b556-b8a9361c9126"], +Cell[176115, 4606, 285, 4, 33, "Output",ExpressionUUID->"338b1765-d916-43c3-a47e-28a6a5ac0450"] }, Open ]], Cell[CellGroupData[{ -Cell[310966, 7575, 2054, 59, 70, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], -Cell[313023, 7636, 576, 12, 70, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], -Cell[313602, 7650, 577, 12, 70, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], -Cell[314182, 7664, 582, 12, 70, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], -Cell[314767, 7678, 458, 10, 70, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], -Cell[315228, 7690, 172, 3, 70, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +Cell[176437, 4615, 1631, 53, 79, "Input",ExpressionUUID->"3ecce7ab-9e54-4e99-8722-2226b3e8dfd5"], +Cell[178071, 4670, 285, 4, 33, "Output",ExpressionUUID->"e60f0372-5d68-4142-9840-12fc2389a751"] }, Open ]], Cell[CellGroupData[{ -Cell[315437, 7698, 2028, 55, 70, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], -Cell[317468, 7755, 20021, 378, 70, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +Cell[178393, 4679, 1631, 53, 79, "Input",ExpressionUUID->"e403924d-4d25-4004-8020-0d7c43ca7a2c"], +Cell[180027, 4734, 290, 4, 33, "Output",ExpressionUUID->"db2efec4-ea7d-4cd0-ba8d-37c6415a6944"] }, Open ]], Cell[CellGroupData[{ -Cell[337526, 8138, 2146, 61, 70, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], -Cell[339675, 8201, 502, 11, 70, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], -Cell[340180, 8214, 506, 11, 70, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], -Cell[340689, 8227, 508, 11, 70, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], -Cell[341200, 8240, 456, 10, 70, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], -Cell[341659, 8252, 30015, 538, 70, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +Cell[180354, 4743, 226, 4, 29, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[180583, 4749, 155, 2, 33, "Output",ExpressionUUID->"2f36b226-2148-4840-b09a-4154b17a6c3b"] }, Open ]], -Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[180753, 4754, 173, 2, 29, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], Cell[CellGroupData[{ -Cell[371923, 8802, 1590, 47, 70, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], -Cell[373516, 8851, 342, 6, 70, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], -Cell[373861, 8859, 101, 0, 70, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[180951, 4760, 228, 4, 29, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[181182, 4766, 156, 2, 33, "Output",ExpressionUUID->"7f1539d4-19ab-41b5-852a-7b95a297f790"] +}, Open ]], +Cell[181353, 4771, 173, 2, 29, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[181551, 4777, 1297, 42, 47, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[182851, 4821, 198, 2, 33, "Output",ExpressionUUID->"4f967220-21bb-4dc6-a526-cc8174f0715a"] }, Open ]], Cell[CellGroupData[{ -Cell[373999, 8864, 2249, 64, 70, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], -Cell[376251, 8930, 342, 6, 70, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], -Cell[376596, 8938, 342, 6, 70, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], -Cell[376941, 8946, 101, 0, 70, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[183086, 4828, 927, 30, 55, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[184016, 4860, 196, 2, 33, "Output",ExpressionUUID->"43f55ade-e5ec-4497-9343-06cd2ade8114"] }, Open ]], Cell[CellGroupData[{ -Cell[377079, 8951, 2221, 64, 70, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], -Cell[379303, 9017, 342, 6, 70, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], -Cell[379648, 9025, 342, 6, 70, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], -Cell[379993, 9033, 100, 0, 70, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[184249, 4867, 908, 29, 55, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[185160, 4898, 196, 2, 33, "Output",ExpressionUUID->"d2477961-6f95-48aa-bb2a-c1495833f0f8"] }, Open ]], Cell[CellGroupData[{ -Cell[380130, 9038, 2223, 64, 70, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], -Cell[382356, 9104, 342, 6, 70, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], -Cell[382701, 9112, 342, 6, 70, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], -Cell[383046, 9120, 101, 0, 70, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[185393, 4905, 554, 18, 51, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[185950, 4925, 192, 2, 33, "Output",ExpressionUUID->"3e520032-a248-4f19-bfaf-e2c8a829ae20"] }, Open ]], Cell[CellGroupData[{ -Cell[383184, 9125, 213, 6, 70, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[383400, 9133, 102, 0, 70, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] -}, Open ]] +Cell[186179, 4932, 647, 21, 51, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[186829, 4955, 188, 2, 33, "Output",ExpressionUUID->"ce0482a0-edbe-4bf8-8a5d-cd12b483277d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187054, 4962, 166, 4, 55, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[187223, 4968, 189, 2, 33, "Output",ExpressionUUID->"15d48f3c-e633-4570-b8a6-07a9d0c6fe84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187449, 4975, 166, 4, 54, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[187618, 4981, 190, 2, 33, "Output",ExpressionUUID->"14dcc668-025f-4a7f-9107-53b5682dd10b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[187845, 4988, 177, 4, 43, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[188025, 4994, 190, 2, 33, "Output",ExpressionUUID->"d4c8812a-ba1e-4e3a-9f37-dd706cc6b322"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188252, 5001, 177, 4, 43, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[188432, 5007, 193, 2, 33, "Output",ExpressionUUID->"0aead870-2e0b-44c2-b809-b87a1e1cace7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[188662, 5014, 6051, 184, 183, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[194716, 5200, 195, 2, 33, "Output",ExpressionUUID->"db718652-2b48-4338-9552-13b4accc45f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194948, 5207, 364, 8, 41, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[195315, 5217, 191, 2, 33, "Output",ExpressionUUID->"a6f96a21-eeb1-46e5-bc27-ad8dfca41fbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[195543, 5224, 6118, 186, 183, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[201664, 5412, 193, 2, 33, "Output",ExpressionUUID->"b5450c92-89e6-4a77-a621-17b0ec2d0f79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201894, 5419, 364, 8, 41, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[202261, 5429, 190, 2, 33, "Output",ExpressionUUID->"66fd6269-0b81-4091-9217-4aaad6305bea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202488, 5436, 2659, 87, 107, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[205150, 5525, 189, 2, 33, "Output",ExpressionUUID->"87abfc81-ca35-4e00-93df-6a0cfd7789ff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205376, 5532, 2599, 84, 107, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[207978, 5618, 191, 2, 33, "Output",ExpressionUUID->"0acfa219-4202-4446-ad81-3ac17b916b5e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208206, 5625, 3708, 117, 160, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[211917, 5744, 192, 2, 33, "Output",ExpressionUUID->"9002327a-07a3-4ba6-a912-d6e939859cdb"] +}, Open ]], +Cell[212124, 5749, 160, 3, 29, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[212309, 5756, 2073, 58, 99, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[214385, 5816, 571, 12, 40, "Message",ExpressionUUID->"e6660c87-646c-48f6-921b-92bcf67a6627"], +Cell[214959, 5830, 579, 13, 40, "Message",ExpressionUUID->"c26f6f1f-0590-4f77-b9cc-c012484ed67a"], +Cell[215541, 5845, 581, 13, 26, "Message",ExpressionUUID->"7fac0da0-c8f6-46d3-ab75-dded728187a6"], +Cell[216125, 5860, 493, 11, 26, "Message",ExpressionUUID->"595489b9-1d97-4bbc-88f9-7a6561d59dff"], +Cell[216621, 5873, 189, 2, 33, "Output",ExpressionUUID->"a1039a5e-5d6e-484f-b3db-411b42d8ae92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216847, 5880, 2073, 58, 99, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[218923, 5940, 573, 12, 40, "Message",ExpressionUUID->"f4e44c7d-9bcf-42b9-9ca9-37adce721add"], +Cell[219499, 5954, 581, 13, 40, "Message",ExpressionUUID->"e2c852d2-5308-48a0-ba3d-b8deef18ea45"], +Cell[220083, 5969, 582, 13, 26, "Message",ExpressionUUID->"2af376ec-7e46-4159-9c1f-8a872f074117"], +Cell[220668, 5984, 493, 11, 26, "Message",ExpressionUUID->"5c9396cd-805e-4018-aa7a-e2a25934a619"], +Cell[221164, 5997, 188, 2, 33, "Output",ExpressionUUID->"ee07190f-2179-4cbe-9ebc-441d55a2e33d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221389, 6004, 1957, 52, 102, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[223349, 6058, 20297, 382, 232, "Output",ExpressionUUID->"41487def-de69-4149-891a-a70fc16b360c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[243683, 6445, 2113, 59, 261, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[245799, 6506, 528, 12, 59, "Message",ExpressionUUID->"36c0cb67-5c58-4ca1-9a37-18236945aaa3"], +Cell[246330, 6520, 532, 12, 59, "Message",ExpressionUUID->"ab78bbdf-e8f0-4056-b81a-6a261a4f703d"], +Cell[246865, 6534, 535, 12, 59, "Message",ExpressionUUID->"951a6074-ecec-4169-b888-5127033af8b7"], +Cell[247403, 6548, 496, 11, 26, "Message",ExpressionUUID->"3eda865d-0ef2-46f8-99c8-4f178f401bdb"], +Cell[247902, 6561, 21841, 404, 237, "Output",ExpressionUUID->"23d5c7fb-df0d-4428-aa3f-dd12423ccbe5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[269780, 6970, 2473, 69, 169, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[272256, 7041, 9504, 222, 239, "Output",ExpressionUUID->"0f436621-2f92-4b23-9f7b-019b8e97b2ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[281797, 7268, 228, 4, 29, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[282028, 7274, 28216, 536, 237, "Output",ExpressionUUID->"491b9f57-4324-454e-a986-57df3a373bbd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310281, 7815, 236, 6, 47, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[310520, 7823, 191, 2, 33, "Output",ExpressionUUID->"6ed0d7bf-064b-473b-a4e2-5dee2f1c19af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310748, 7830, 1833, 52, 190, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[312584, 7884, 547, 12, 59, "Message",ExpressionUUID->"576137eb-995e-4594-9c73-4c93786c4871"], +Cell[313134, 7898, 548, 12, 59, "Message",ExpressionUUID->"c1d40e2f-3107-456b-b2d9-7a801cd74b78"], +Cell[313685, 7912, 551, 12, 59, "Message",ExpressionUUID->"7a7d04fe-8d11-4f34-b4f9-ec39831af23b"], +Cell[314239, 7926, 492, 11, 26, "Message",ExpressionUUID->"a5a4cdb7-abca-4253-a7ef-53c17a6a7b27"], +Cell[314734, 7939, 22186, 410, 232, "Output",ExpressionUUID->"e2680614-98d2-4bda-b4ae-21e481aae9c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[336957, 8354, 1616, 48, 104, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[338576, 8404, 726, 15, 80, "Message",ExpressionUUID->"09194e85-3d5c-48d0-ac29-6142f27a013e"], +Cell[339305, 8421, 727, 15, 80, "Message",ExpressionUUID->"eef03200-8155-4645-9e6f-07fd7c09382d"], +Cell[340035, 8438, 729, 15, 80, "Message",ExpressionUUID->"8595cde8-a9ac-410c-a4ee-0853c6dac0d4"], +Cell[340767, 8455, 494, 11, 26, "Message",ExpressionUUID->"b2c4ffca-c3f8-4605-94aa-02bd5822cb7e"], +Cell[341264, 8468, 193, 3, 33, "Output",ExpressionUUID->"d73b0087-df07-4d4c-8b31-e3b7df6ad72c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[341494, 8476, 2274, 64, 212, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[343771, 8542, 572, 12, 59, "Message",ExpressionUUID->"7386caca-1ee4-4ab0-8552-ef237df8f654"], +Cell[344346, 8556, 582, 13, 83, "Message",ExpressionUUID->"9ea47641-b548-4504-bb9b-b37b6409f674"], +Cell[344931, 8571, 581, 13, 63, "Message",ExpressionUUID->"29bcebd0-3f12-4556-a38d-a89b312205f1"], +Cell[345515, 8586, 494, 11, 26, "Message",ExpressionUUID->"80d64a97-e745-4d14-a13b-bdee4f6aed9f"], +Cell[346012, 8599, 194, 3, 33, "Output",ExpressionUUID->"0c85f023-1d91-436e-a8e8-a3f766ca2267"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346243, 8607, 2230, 63, 212, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[348476, 8672, 574, 12, 59, "Message",ExpressionUUID->"d485bfc0-dd3b-44aa-80c8-32e3d523b758"], +Cell[349053, 8686, 584, 13, 83, "Message",ExpressionUUID->"d2e726ea-085c-48ba-82a2-bf0de5d11b65"], +Cell[349640, 8701, 585, 13, 63, "Message",ExpressionUUID->"a78d3ab0-81f2-4d94-9b3d-33cf85c9e4c6"], +Cell[350228, 8716, 496, 11, 26, "Message",ExpressionUUID->"b4bcf81a-ce88-4055-85bd-14884e20370b"], +Cell[350727, 8729, 192, 3, 33, "Output",ExpressionUUID->"8ac96486-157f-4469-a4e9-db0e1d833154"] +}, Open ]], +Cell[CellGroupData[{ +Cell[350956, 8737, 2233, 63, 212, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[353192, 8802, 576, 12, 59, "Message",ExpressionUUID->"e04156e6-66a7-404e-9fe3-46debe973c00"], +Cell[353771, 8816, 582, 13, 83, "Message",ExpressionUUID->"bc523c18-9014-4f24-8968-697156c12ff8"], +Cell[354356, 8831, 587, 13, 63, "Message",ExpressionUUID->"2a5f6722-f63e-45b4-a6cd-5a9c487cfc44"], +Cell[354946, 8846, 496, 11, 26, "Message",ExpressionUUID->"16c695de-fad4-4b71-9053-b8a15039fcd3"], +Cell[355445, 8859, 192, 3, 33, "Output",ExpressionUUID->"9ee172de-bb9a-450a-aad4-2d9109955a48"] +}, Open ]], +Cell[CellGroupData[{ +Cell[355674, 8867, 236, 6, 46, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[355913, 8875, 195, 3, 33, "Output",ExpressionUUID->"ba3821e3-4c62-41c8-a946-f812b97d72b2"] +}, Open ]], +Cell[356123, 8881, 271, 6, 29, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[356419, 8891, 558, 19, 51, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[356980, 8912, 189, 3, 33, "Output",ExpressionUUID->"993c377b-561c-44a4-99bb-b49da279adfb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357206, 8920, 170, 5, 55, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[357379, 8927, 195, 3, 33, "Output",ExpressionUUID->"6601911a-f0d8-4a27-a3b9-fbe052d24dbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357611, 8935, 181, 5, 43, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[357795, 8942, 193, 3, 33, "Output",ExpressionUUID->"e4a14b6a-f348-48e8-b910-b11acac7318f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358025, 8950, 6055, 185, 474, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[364083, 9137, 195, 3, 33, "Output",ExpressionUUID->"402bafa6-33fb-4b19-920d-81b1b4d6dcf6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364315, 9145, 368, 9, 41, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[364686, 9156, 195, 3, 33, "Output",ExpressionUUID->"8c61f411-84ef-486d-b16d-74ee0513cb97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[364918, 9164, 6122, 187, 474, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[371043, 9353, 194, 3, 33, "Output",ExpressionUUID->"8de146df-9669-460d-88b7-cd20aa9f33a0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371274, 9361, 368, 9, 41, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[371645, 9372, 192, 3, 33, "Output",ExpressionUUID->"ecc4a3f4-abbb-4477-89ec-0d3a3c05adac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371874, 9380, 2663, 88, 285, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[374540, 9470, 196, 3, 33, "Output",ExpressionUUID->"c658310b-0121-479b-8db8-c858a2db5356"] +}, Open ]], +Cell[CellGroupData[{ +Cell[374773, 9478, 2603, 85, 211, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[377379, 9565, 195, 3, 33, "Output",ExpressionUUID->"5d23e91d-d3c9-4cfc-8e4c-d5359ea3b9c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377611, 9573, 3712, 118, 327, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[381326, 9693, 198, 3, 33, "Output",ExpressionUUID->"d6402d33-59e8-4bd3-a339-8616fa9a3e11"] +}, Open ]], +Cell[CellGroupData[{ +Cell[381561, 9701, 2074, 59, 234, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[383638, 9762, 589, 13, 63, "Message",ExpressionUUID->"ca174e0a-85c8-45dc-8e99-0007517eedb1"], +Cell[384230, 9777, 588, 13, 80, "Message",ExpressionUUID->"22c82b48-dd5d-4202-91d5-9232d7dd02a5"], +Cell[384821, 9792, 596, 13, 80, "Message",ExpressionUUID->"48e0f59f-1f4e-4cda-a280-27f1d416ad09"], +Cell[385420, 9807, 496, 11, 26, "Message",ExpressionUUID->"c019fe24-f460-4410-b8ed-7ec96eb83590"], +Cell[385919, 9820, 194, 3, 33, "Output",ExpressionUUID->"468915a9-ca93-4adc-a157-9edf2840899f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386150, 9828, 2077, 59, 234, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[388230, 9889, 585, 13, 63, "Message",ExpressionUUID->"b814dd48-e3fa-44e9-9005-74e2525f8a95"], +Cell[388818, 9904, 587, 13, 80, "Message",ExpressionUUID->"cc6faf11-4161-4ace-9879-6dc8d5676def"], +Cell[389408, 9919, 592, 13, 80, "Message",ExpressionUUID->"c5895287-0cdb-4235-a727-4931eb492817"], +Cell[390003, 9934, 496, 11, 26, "Message",ExpressionUUID->"e5d902d8-35c6-408e-a969-60472f5f5fd0"], +Cell[390502, 9947, 192, 3, 33, "Output",ExpressionUUID->"863a1b85-c844-4946-82f3-d9b3587cff94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390731, 9955, 2053, 55, 151, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[392787, 10012, 20434, 386, 232, "Output",ExpressionUUID->"98817243-97ec-4a34-b150-d7c1a5bbd9ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[413258, 10403, 2143, 60, 261, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[415404, 10465, 533, 12, 59, "Message",ExpressionUUID->"28d59419-7741-430f-b5ba-20a025a11f7c"], +Cell[415940, 10479, 535, 12, 59, "Message",ExpressionUUID->"767decf2-bd24-4e6b-9af3-8c47ae954ca7"], +Cell[416478, 10493, 541, 12, 59, "Message",ExpressionUUID->"df589d29-8ef6-43d3-80c3-85e154eda6de"], +Cell[417022, 10507, 494, 11, 26, "Message",ExpressionUUID->"310feb34-1c11-4d51-ba44-78aa4e07c2d3"], +Cell[417519, 10520, 21979, 408, 233, "Output",ExpressionUUID->"b8bdc15c-2fd3-4b41-91bf-90b18757f216"] +}, Open ]], +Cell[CellGroupData[{ +Cell[439535, 10933, 232, 5, 29, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[439770, 10940, 28350, 540, 233, "Output",ExpressionUUID->"1ffe90a6-bcb3-491b-95c2-66bc39c83e3c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[468157, 11485, 1616, 48, 104, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[469776, 11535, 726, 15, 80, "Message",ExpressionUUID->"c20658d3-e868-4a44-998f-9ee7b207d5a5"], +Cell[470505, 11552, 727, 15, 80, "Message",ExpressionUUID->"5bbc92ac-7017-4ef5-904b-e054b0640a3a"], +Cell[471235, 11569, 728, 15, 80, "Message",ExpressionUUID->"7acd0f22-9efd-4188-9a18-f13696d107dc"], +Cell[471966, 11586, 496, 11, 26, "Message",ExpressionUUID->"2149a106-7ee3-4638-a05e-f6bbbfa8114f"], +Cell[472465, 11599, 193, 3, 33, "Output",ExpressionUUID->"758643e8-be53-4fdf-8d4b-48734d818286"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472695, 11607, 2274, 64, 212, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[474972, 11673, 585, 13, 63, "Message",ExpressionUUID->"7516f435-edc3-42f3-a697-7660f68b60a3"], +Cell[475560, 11688, 589, 13, 80, "Message",ExpressionUUID->"f3e15b0b-826e-4023-a18e-0a23e0b55999"], +Cell[476152, 11703, 592, 13, 80, "Message",ExpressionUUID->"d2ee29c1-aedf-4012-9992-2bab938f2d88"], +Cell[476747, 11718, 496, 11, 26, "Message",ExpressionUUID->"9815205f-8282-472b-ba05-2aac4fc8b4a0"], +Cell[477246, 11731, 196, 3, 33, "Output",ExpressionUUID->"dc7320a3-a2cd-438c-bd7c-e8960bd970eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[477479, 11739, 2231, 63, 212, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[479713, 11804, 589, 13, 63, "Message",ExpressionUUID->"8e774b24-aad4-420f-a217-3e2e60baa724"], +Cell[480305, 11819, 589, 13, 80, "Message",ExpressionUUID->"3094366e-e232-4df1-aee5-82cbebf69f05"], +Cell[480897, 11834, 594, 13, 80, "Message",ExpressionUUID->"85b7622f-9b25-429d-ba3b-e54385332478"], +Cell[481494, 11849, 496, 11, 26, "Message",ExpressionUUID->"b856196c-47bd-4556-9323-197ac05b98c1"], +Cell[481993, 11862, 194, 3, 33, "Output",ExpressionUUID->"88d87827-32df-49f1-a04d-73ada7c69fc6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482224, 11870, 2231, 63, 212, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[484458, 11935, 586, 13, 63, "Message",ExpressionUUID->"14f44d32-e54f-438e-8f75-05d4102f24de"], +Cell[485047, 11950, 588, 13, 80, "Message",ExpressionUUID->"d689ef6c-22f7-4cf2-91b4-1d2b1b820d41"], +Cell[485638, 11965, 593, 13, 80, "Message",ExpressionUUID->"70d1fbd5-e470-42a5-81dc-cd5d5a85aecc"], +Cell[486234, 11980, 495, 11, 26, "Message",ExpressionUUID->"b7459590-c619-4fd7-aeab-4b5dff543984"], +Cell[486732, 11993, 194, 3, 33, "Output",ExpressionUUID->"dc241965-5aeb-49fd-ad77-67e1e46a7406"] +}, Open ]], +Cell[CellGroupData[{ +Cell[486963, 12001, 235, 6, 46, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[487201, 12009, 194, 3, 33, "Output",ExpressionUUID->"2bf9d88b-4faf-4c3e-a3c0-ef39aaa8743b"] +}, Open ]], +Cell[487410, 12015, 270, 6, 29, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[487705, 12025, 558, 19, 51, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[488266, 12046, 193, 3, 33, "Output",ExpressionUUID->"059a64a9-651e-4bc4-97d2-1da4d210e76b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488496, 12054, 170, 5, 55, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[488669, 12061, 193, 3, 33, "Output",ExpressionUUID->"6dcff01a-c715-4609-b1a0-72e94f3cf1d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488899, 12069, 181, 5, 43, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[489083, 12076, 195, 3, 33, "Output",ExpressionUUID->"44b20e13-0fc1-406c-b41b-ed3e66e69c3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489315, 12084, 6055, 185, 474, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[495373, 12271, 196, 3, 33, "Output",ExpressionUUID->"3b9ffdff-9d6d-44f0-ba9f-61588c9a6146"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495606, 12279, 368, 9, 41, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[495977, 12290, 195, 3, 33, "Output",ExpressionUUID->"b927c949-ff05-4f16-993d-c6c1d816a885"] +}, Open ]], +Cell[CellGroupData[{ +Cell[496209, 12298, 6122, 187, 474, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[502334, 12487, 195, 3, 33, "Output",ExpressionUUID->"a991dfce-0fcf-4a63-9a7e-ba5cd6b510f3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502566, 12495, 368, 9, 41, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[502937, 12506, 196, 3, 33, "Output",ExpressionUUID->"8ae57c24-6a0a-4107-a5a8-1be8579c3829"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503170, 12514, 2663, 88, 285, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[505836, 12604, 196, 3, 33, "Output",ExpressionUUID->"f67bd560-988a-4206-b72a-ed540e0b19c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[506069, 12612, 2603, 85, 211, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[508675, 12699, 192, 3, 33, "Output",ExpressionUUID->"4ebca907-9d83-49f0-b72c-303f571bf4f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508904, 12707, 3712, 118, 327, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[512619, 12827, 196, 3, 33, "Output",ExpressionUUID->"6b5ec7e7-cf4b-4434-9b90-e84537139a04"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512852, 12835, 2077, 59, 234, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[514932, 12896, 564, 12, 59, "Message",ExpressionUUID->"4c0ce0ae-69b4-49b4-9cb4-35459f1917da"], +Cell[515499, 12910, 566, 12, 59, "Message",ExpressionUUID->"cab599df-5735-4473-8dd7-2f31a2336fd3"], +Cell[516068, 12924, 570, 12, 59, "Message",ExpressionUUID->"73fdb417-b64f-4ddb-8dbd-ed13a128d891"], +Cell[516641, 12938, 494, 11, 26, "Message",ExpressionUUID->"b0df9c9c-1760-498a-bbf3-32f5312e8707"], +Cell[517138, 12951, 194, 3, 33, "Output",ExpressionUUID->"e360cd3c-738a-45c7-a777-2d6258bb7762"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517369, 12959, 2077, 59, 234, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[519449, 13020, 564, 12, 59, "Message",ExpressionUUID->"d964fc0c-fb44-411b-8c62-d5a155cbd6fc"], +Cell[520016, 13034, 570, 12, 59, "Message",ExpressionUUID->"49ae7578-179c-4bff-9111-5b0874ac4954"], +Cell[520589, 13048, 572, 12, 59, "Message",ExpressionUUID->"04172d13-48c3-4d18-9b29-0d7629ff959e"], +Cell[521164, 13062, 496, 11, 26, "Message",ExpressionUUID->"d9eb930f-10fa-4834-b5cf-edc83f75b357"], +Cell[521663, 13075, 194, 3, 33, "Output",ExpressionUUID->"4ef0c637-b308-49cc-a7d4-77ef66a7fe2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[521894, 13083, 2051, 55, 151, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[523948, 13140, 20126, 380, 232, "Output",ExpressionUUID->"b111075f-306a-421c-9d8c-ef1253301c61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[544111, 13525, 2168, 61, 261, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[546282, 13588, 529, 12, 59, "Message",ExpressionUUID->"6a1cb525-f146-4970-9eeb-6423dadf7843"], +Cell[546814, 13602, 535, 12, 59, "Message",ExpressionUUID->"f2afd1a1-749c-4157-8bc3-16f1a01a4ce9"], +Cell[547352, 13616, 538, 12, 59, "Message",ExpressionUUID->"75037d27-662c-416e-a9f0-fa4ff4edbf8a"], +Cell[547893, 13630, 496, 11, 26, "Message",ExpressionUUID->"2f03062b-4852-4421-b3b6-681e27ca062c"], +Cell[548392, 13643, 21788, 405, 236, "Output",ExpressionUUID->"fab712ab-3cca-4a45-a7a8-c124c1391bc6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[570217, 14053, 232, 5, 29, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[570452, 14060, 28160, 537, 236, "Output",ExpressionUUID->"54edb610-1608-49ae-b1f8-083288458548"] +}, Open ]], +Cell[CellGroupData[{ +Cell[598649, 14602, 1616, 48, 104, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[600268, 14652, 704, 15, 80, "Message",ExpressionUUID->"3e9ecd16-a80f-42a8-83c4-3cd838214a87"], +Cell[600975, 14669, 705, 15, 80, "Message",ExpressionUUID->"32f468fa-e2f8-4ad8-93fb-23fb5625cbf2"], +Cell[601683, 14686, 703, 15, 80, "Message",ExpressionUUID->"8f2c130f-b256-4c80-a357-dce79a62b4f5"], +Cell[602389, 14703, 472, 11, 26, "Message",ExpressionUUID->"371c1d86-5c74-496f-afa3-108f999ba1d9"], +Cell[602864, 14716, 171, 3, 33, "Output",ExpressionUUID->"56d85ad7-382c-453b-9635-fa153ebc33dc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[603072, 14724, 2272, 64, 212, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[605347, 14790, 540, 12, 59, "Message",ExpressionUUID->"cd9e07f3-ace5-4f81-aed2-79ba0dd261e4"], +Cell[605890, 14804, 544, 12, 59, "Message",ExpressionUUID->"203c9ac6-0c40-4d5a-a034-5e7b175e3c19"], +Cell[606437, 14818, 548, 12, 59, "Message",ExpressionUUID->"efe30a4a-0113-4be8-8261-3e3d462a67ca"], +Cell[606988, 14832, 474, 11, 26, "Message",ExpressionUUID->"939d8d7c-e9b5-45cf-a31a-7241d6de80a3"], +Cell[607465, 14845, 173, 3, 33, "Output",ExpressionUUID->"f0142436-f977-4f6c-a45e-b2c8ad6b9053"] +}, Open ]], +Cell[CellGroupData[{ +Cell[607675, 14853, 2233, 63, 212, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[609911, 14918, 542, 12, 59, "Message",ExpressionUUID->"216fccf7-696e-429a-9fa0-4d25026eb3dc"], +Cell[610456, 14932, 544, 12, 59, "Message",ExpressionUUID->"b11dcf50-b94f-4ed2-9a28-db0fa7de2f51"], +Cell[611003, 14946, 548, 12, 59, "Message",ExpressionUUID->"fde9cf17-f630-433a-bb5c-e8470c561121"], +Cell[611554, 14960, 472, 11, 26, "Message",ExpressionUUID->"9c4d6459-1a53-4b19-acfe-5086e48601f7"], +Cell[612029, 14973, 172, 3, 33, "Output",ExpressionUUID->"8d6a6645-e847-482f-9def-b6a9a3a2eb90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[612238, 14981, 2235, 63, 212, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[614476, 15046, 542, 12, 59, "Message",ExpressionUUID->"759ca7ac-8f0d-40cc-9903-0cd6fa162742"], +Cell[615021, 15060, 544, 12, 59, "Message",ExpressionUUID->"3d0992bd-17fc-4f50-b9f4-73af04b789f0"], +Cell[615568, 15074, 550, 12, 59, "Message",ExpressionUUID->"2f31b597-a9e0-491e-ad97-dc23815c1c37"], +Cell[616121, 15088, 472, 11, 26, "Message",ExpressionUUID->"2e146f04-19de-4216-930a-5a200174ddeb"], +Cell[616596, 15101, 170, 3, 33, "Output",ExpressionUUID->"2b3e335f-3c16-4290-bc4c-d0152eafdf16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[616803, 15109, 236, 6, 46, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[617042, 15117, 174, 3, 33, "Output",ExpressionUUID->"2e7076bb-1009-4277-9129-1f2a4605bb6f"] +}, Open ]], +Cell[617231, 15123, 143, 3, 29, "Input",ExpressionUUID->"78d5e6e9-1aa1-40c4-9d17-99d56a171e36"] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw1.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw1.nb index 148e4fe..4851695 100755 --- a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 683828, 16260] -NotebookOptionsPosition[ 643973, 15618] -NotebookOutlinePosition[ 644420, 15636] -CellTagsIndexPosition[ 644377, 15633] +NotebookDataLength[ 707674, 16570] +NotebookOptionsPosition[ 667369, 15923] +NotebookOutlinePosition[ 667833, 15942] +CellTagsIndexPosition[ 667790, 15939] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -28,16 +28,16 @@ Cell[BoxData[ 3.9931205775772543`*^9, 3.9931205930074*^9}, {3.99312068244851*^9, 3.993120683031312*^9}, {3.993120763928855*^9, 3.993120796207575*^9}, { 3.993120826638487*^9, 3.99312091050727*^9}, {3.9938200779452133`*^9, - 3.993820078648109*^9}},ExpressionUUID->"271fe1ed-be37-42ae-9e61-\ -4864b7a72f68"], + 3.993820078648109*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"271fe1ed-be37-42ae-9e61-4864b7a72f68"], -Cell[BoxData["1.8`"], "Output", +Cell[BoxData["2"], "Output", CellChangeTimes->{{3.99312071481172*^9, 3.993120733996957*^9}, 3.993120778405978*^9, {3.993120808982645*^9, 3.993120917972237*^9}, 3.9931263962514753`*^9, 3.993127107949593*^9, 3.9931273269905376`*^9, - 3.993129929766796*^9}, - CellLabel-> - "(Debug) Out[4]=",ExpressionUUID->"ebefacdd-7c8f-4a47-ae8e-c1f8f105d41e"] + 3.993129929766796*^9, 3.993820659117201*^9, 3.9938260410863953`*^9, + 3.993826219599202*^9, 3.9938264023223124`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"e409b478-d6b4-4d1e-be61-4b7ac1fd7dad"] }, Open ]], Cell[CellGroupData[{ @@ -46,8 +46,7 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.9921791748924236`*^9, 3.992179175479521*^9}}, - CellLabel-> - "(Debug) In[5]:=",ExpressionUUID->"9cd63ee4-4ab5-4c2c-8ee8-5d4dc579ec08"], + CellLabel->"In[2]:=",ExpressionUUID->"9cd63ee4-4ab5-4c2c-8ee8-5d4dc579ec08"], Cell[BoxData["240"], "Output", CellChangeTimes->{ @@ -55,9 +54,9 @@ Cell[BoxData["240"], "Output", 3.992572317060832*^9, 3.993119177905259*^9, 3.993120125010063*^9, 3.9931206200212383`*^9, 3.993120734031558*^9, 3.993120778440694*^9, { 3.9931208090163393`*^9, 3.993120918005108*^9}, 3.993126396590149*^9, - 3.99312710802812*^9, 3.993127327031427*^9, 3.993129929806696*^9}, - CellLabel-> - "(Debug) Out[5]=",ExpressionUUID->"bb1df696-37fa-4a20-8ec5-05ece139f6ca"] + 3.99312710802812*^9, 3.993127327031427*^9, 3.993129929806696*^9, + 3.9938260411526423`*^9, 3.993826219703516*^9, 3.993826402780938*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"696fd7af-9dcb-4f9c-963e-624b950e752b"] }, Open ]], Cell[CellGroupData[{ @@ -66,8 +65,7 @@ Cell[BoxData[ RowBox[{"A1", "=", " ", "174"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.992179210458246*^9, 3.9921792125496464`*^9}}, - CellLabel-> - "(Debug) In[6]:=",ExpressionUUID->"fb64ed71-2f89-4ffd-a85b-88f0e717228e"], + CellLabel->"In[3]:=",ExpressionUUID->"fb64ed71-2f89-4ffd-a85b-88f0e717228e"], Cell[BoxData["174"], "Output", CellChangeTimes->{ @@ -75,9 +73,9 @@ Cell[BoxData["174"], "Output", 3.9931191779262667`*^9, 3.993120125034624*^9, 3.993120620044674*^9, 3.993120734050745*^9, 3.993120778464333*^9, {3.9931208090398912`*^9, 3.993120918033216*^9}, 3.9931263966177673`*^9, 3.993127108045971*^9, - 3.993127327055435*^9, 3.99312992983158*^9}, - CellLabel-> - "(Debug) Out[6]=",ExpressionUUID->"7f69aaf4-4125-4adf-bcc7-37fe98ba68a1"] + 3.993127327055435*^9, 3.99312992983158*^9, 3.993826041166013*^9, + 3.993826219716419*^9, 3.993826402814907*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"b769ca55-3b53-45d5-a994-87bd28889181"] }, Open ]], Cell[CellGroupData[{ @@ -85,8 +83,7 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "(Debug) In[7]:=",ExpressionUUID->"47510b32-ee4a-4496-acc3-48b173a35079"], + CellLabel->"In[4]:=",ExpressionUUID->"47510b32-ee4a-4496-acc3-48b173a35079"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ @@ -94,9 +91,9 @@ Cell[BoxData["0.55`"], "Output", 3.993119177946436*^9, 3.993120125058119*^9, 3.993120620068224*^9, 3.993120734070492*^9, 3.993120778487204*^9, {3.993120809063224*^9, 3.993120918037675*^9}, 3.9931263966592207`*^9, 3.993127108062867*^9, - 3.9931273270590353`*^9, 3.993129929855886*^9}, - CellLabel-> - "(Debug) Out[7]=",ExpressionUUID->"51e72b23-65ad-49dd-958e-f23cdd456570"] + 3.9931273270590353`*^9, 3.993129929855886*^9, 3.9938260411795607`*^9, + 3.9938262197316227`*^9, 3.993826402852569*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"28589080-de23-4302-b25c-795086b03d69"] }, Open ]], Cell[CellGroupData[{ @@ -108,8 +105,7 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "(Debug) In[8]:=",ExpressionUUID->"76a29ca9-f66e-471a-a5b3-2720107b703f"], + CellLabel->"In[5]:=",ExpressionUUID->"76a29ca9-f66e-471a-a5b3-2720107b703f"], Cell[BoxData["0.54325`"], "Output", CellChangeTimes->{ @@ -117,17 +113,16 @@ Cell[BoxData["0.54325`"], "Output", 3.993119177966724*^9, 3.993120125061846*^9, 3.993120620073361*^9, 3.993120734074827*^9, 3.993120778491198*^9, {3.993120809067272*^9, 3.993120918063335*^9}, 3.9931263966877337`*^9, 3.993127108066464*^9, - 3.993127327083083*^9, 3.99312992986033*^9}, - CellLabel-> - "(Debug) Out[8]=",ExpressionUUID->"8cd9f6e5-5b6a-41f5-95f0-22c9292a7f1d"] + 3.993127327083083*^9, 3.99312992986033*^9, 3.993826041193674*^9, + 3.993826219745085*^9, 3.9938264028829536`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"582cb31b-6af9-4d64-90d7-20df8f0a0dfb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "(Debug) In[9]:=",ExpressionUUID->"a9a537d4-3477-43ed-9561-f1c27109561d"], + CellLabel->"In[6]:=",ExpressionUUID->"a9a537d4-3477-43ed-9561-f1c27109561d"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ @@ -135,9 +130,9 @@ Cell[BoxData["0.17`"], "Output", 3.993119177986623*^9, 3.993120125088593*^9, 3.993120620099668*^9, 3.993120734095941*^9, 3.99312077851781*^9, {3.993120809095289*^9, 3.993120918090218*^9}, 3.993126396714637*^9, 3.993127108084917*^9, - 3.993127327106142*^9, 3.993129929903006*^9}, - CellLabel-> - "(Debug) Out[9]=",ExpressionUUID->"1a534a8a-4070-4f55-a155-8e910726f0a5"] + 3.993127327106142*^9, 3.993129929903006*^9, 3.993826041207491*^9, + 3.993826219758456*^9, 3.993826402911872*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"810a9d9d-323d-4dd9-a366-6c2047b0eccb"] }, Open ]], Cell[CellGroupData[{ @@ -148,8 +143,7 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "(Debug) In[10]:=",ExpressionUUID->"f35fd140-9381-4b0b-8fc5-46fb9ab06ffc"], + CellLabel->"In[7]:=",ExpressionUUID->"f35fd140-9381-4b0b-8fc5-46fb9ab06ffc"], Cell[BoxData["6.4760133991237705`"], "Output", CellChangeTimes->{ @@ -157,9 +151,9 @@ Cell[BoxData["6.4760133991237705`"], "Output", 3.99311917800653*^9, 3.9931201251119223`*^9, 3.993120620121489*^9, 3.993120734114851*^9, 3.993120778540956*^9, {3.993120809118425*^9, 3.9931209181194077`*^9}, 3.993126396741642*^9, 3.993127108102049*^9, - 3.993127327128428*^9, 3.993129929926125*^9}, - CellLabel-> - "(Debug) Out[10]=",ExpressionUUID->"d4213a27-68d2-4b73-ba2e-285739cc4330"] + 3.993127327128428*^9, 3.993129929926125*^9, 3.9938260412251472`*^9, + 3.99382621977195*^9, 3.993826402945207*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"94efffb8-f93d-4f0c-9afa-b448896c343a"] }, Open ]], Cell[CellGroupData[{ @@ -171,8 +165,7 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "(Debug) In[11]:=",ExpressionUUID->"2abdd448-7a98-4918-89e8-046050715ba9"], + CellLabel->"In[8]:=",ExpressionUUID->"2abdd448-7a98-4918-89e8-046050715ba9"], Cell[BoxData["4.6878384239217405`"], "Output", CellChangeTimes->{ @@ -180,9 +173,9 @@ Cell[BoxData["4.6878384239217405`"], "Output", 3.993119178026596*^9, 3.993120125135309*^9, 3.9931206201430807`*^9, 3.9931207341331453`*^9, 3.993120778564814*^9, {3.993120809140911*^9, 3.993120918144981*^9}, 3.993126396766501*^9, 3.9931271081205463`*^9, - 3.99312732715136*^9, 3.993129929948636*^9}, - CellLabel-> - "(Debug) Out[11]=",ExpressionUUID->"bf7971ec-4fc2-46bf-a38e-dd60e54755f9"] + 3.99312732715136*^9, 3.993129929948636*^9, 3.99382604123941*^9, + 3.9938262197956257`*^9, 3.993826402980301*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"d4601ab3-625f-451a-af40-6419349f8470"] }, Open ]], Cell[CellGroupData[{ @@ -191,8 +184,7 @@ Cell[BoxData[ RowBox[{"b1", "=", " ", "0.787635594208527"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.992179227142147*^9, 3.9921792274418793`*^9}}, - CellLabel-> - "(Debug) In[12]:=",ExpressionUUID->"b226a67e-f233-4c25-9708-fe8587a7cd30"], + CellLabel->"In[9]:=",ExpressionUUID->"b226a67e-f233-4c25-9708-fe8587a7cd30"], Cell[BoxData["0.787635594208527`"], "Output", CellChangeTimes->{ @@ -200,9 +192,9 @@ Cell[BoxData["0.787635594208527`"], "Output", 3.993119178046308*^9, 3.993120125158621*^9, 3.993120620165731*^9, 3.993120734151725*^9, 3.993120778587878*^9, {3.993120809163859*^9, 3.993120918172269*^9}, 3.9931263967899513`*^9, 3.9931271081375427`*^9, - 3.993127327173975*^9, 3.9931299299716787`*^9}, - CellLabel-> - "(Debug) Out[12]=",ExpressionUUID->"639775c3-d20a-44fa-ae71-8969fa44aa82"] + 3.993127327173975*^9, 3.9931299299716787`*^9, 3.993826041253097*^9, + 3.9938262198121853`*^9, 3.993826403014515*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"fb89802d-479b-4442-b86e-f0a98372614c"] }, Open ]], Cell[CellGroupData[{ @@ -211,8 +203,7 @@ Cell[BoxData[ RowBox[{"b2", "=", " ", "0.446333511300556"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.9921792384900284`*^9, 3.9921792388312874`*^9}}, - CellLabel-> - "(Debug) In[13]:=",ExpressionUUID->"61818bf8-739c-47e1-bc6c-0aa1f2b677d0"], + CellLabel->"In[10]:=",ExpressionUUID->"61818bf8-739c-47e1-bc6c-0aa1f2b677d0"], Cell[BoxData["0.446333511300556`"], "Output", CellChangeTimes->{ @@ -220,17 +211,16 @@ Cell[BoxData["0.446333511300556`"], "Output", 3.9931191780661097`*^9, 3.9931201251823397`*^9, 3.9931206201876802`*^9, 3.993120734170333*^9, 3.993120778610222*^9, {3.993120809186323*^9, 3.99312091819843*^9}, 3.993126396813437*^9, 3.993127108161908*^9, - 3.993127327196413*^9, 3.993129929995016*^9}, - CellLabel-> - "(Debug) Out[13]=",ExpressionUUID->"cb639b5b-e780-4e31-ab19-32e2980db4e2"] + 3.993127327196413*^9, 3.993129929995016*^9, 3.9938260412670603`*^9, + 3.9938262198308907`*^9, 3.993826403047969*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"ef3e5e3a-63a1-42a5-97b0-e1ce8adcd674"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "(Debug) In[14]:=",ExpressionUUID->"e8f86f84-d79c-4e94-ae80-1dca0472ec6f"], + CellLabel->"In[11]:=",ExpressionUUID->"e8f86f84-d79c-4e94-ae80-1dca0472ec6f"], Cell[BoxData["0"], "Output", CellChangeTimes->{ @@ -238,17 +228,16 @@ Cell[BoxData["0"], "Output", 3.99311917808567*^9, 3.9931201252072067`*^9, 3.993120620211128*^9, 3.9931207341889687`*^9, 3.99312077863275*^9, {3.9931208092095003`*^9, 3.993120918224504*^9}, 3.993126396838297*^9, 3.993127108181823*^9, - 3.993127327218768*^9, 3.993129930018751*^9}, - CellLabel-> - "(Debug) Out[14]=",ExpressionUUID->"831f8196-7226-40d0-b021-2e3ed7f7a69a"] + 3.993127327218768*^9, 3.993129930018751*^9, 3.993826041282175*^9, + 3.993826219845448*^9, 3.993826403081732*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"abf32630-e12f-40b4-94ee-1752274ebf52"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "(Debug) In[15]:=",ExpressionUUID->"591e45a1-73ec-48a8-b273-8c08db5c8439"], + CellLabel->"In[12]:=",ExpressionUUID->"591e45a1-73ec-48a8-b273-8c08db5c8439"], Cell[BoxData["0"], "Output", CellChangeTimes->{ @@ -256,9 +245,9 @@ Cell[BoxData["0"], "Output", 3.9931191781051207`*^9, 3.993120125230564*^9, 3.9931206202335043`*^9, 3.99312073420716*^9, 3.993120778655138*^9, {3.993120809232238*^9, 3.993120918250256*^9}, 3.9931263968628597`*^9, 3.9931271081993628`*^9, - 3.9931273272409983`*^9, 3.993129930042575*^9}, - CellLabel-> - "(Debug) Out[15]=",ExpressionUUID->"3464a13f-8362-47ef-b4e3-27e939379e07"] + 3.9931273272409983`*^9, 3.993129930042575*^9, 3.993826041296115*^9, + 3.9938262198601427`*^9, 3.9938264031151114`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"2a81021f-00fe-48f6-aabe-45f87a23a8f6"] }, Open ]], Cell[CellGroupData[{ @@ -282,8 +271,7 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "(Debug) In[16]:=",ExpressionUUID->"0940f8ce-9e49-412d-be4c-599647770f21"], + CellLabel->"In[13]:=",ExpressionUUID->"0940f8ce-9e49-412d-be4c-599647770f21"], Cell[BoxData["2.061265729478835`"], "Output", CellChangeTimes->{ @@ -291,9 +279,9 @@ Cell[BoxData["2.061265729478835`"], "Output", 3.993119178124851*^9, 3.993120125254407*^9, 3.993120620254471*^9, 3.993120734225675*^9, 3.9931207786779127`*^9, {3.993120809254608*^9, 3.993120918276112*^9}, 3.9931263968879843`*^9, 3.993127108217485*^9, - 3.993127327263125*^9, 3.993129930068864*^9}, - CellLabel-> - "(Debug) Out[16]=",ExpressionUUID->"0e1f689a-2c0f-44e5-91bf-a418d704fd59"] + 3.993127327263125*^9, 3.993129930068864*^9, 3.993826041311152*^9, + 3.993826219875345*^9, 3.9938264031939583`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"cdf6dab6-b3ba-48b1-b623-abe0c0db7a9c"] }, Open ]], Cell[CellGroupData[{ @@ -317,8 +305,7 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "(Debug) In[17]:=",ExpressionUUID->"359bcdad-aa6b-4b8f-91c2-ebb5cf618c9c"], + CellLabel->"In[14]:=",ExpressionUUID->"359bcdad-aa6b-4b8f-91c2-ebb5cf618c9c"], Cell[BoxData["1.500736140386642`"], "Output", CellChangeTimes->{ @@ -326,9 +313,9 @@ Cell[BoxData["1.500736140386642`"], "Output", 3.993119178144163*^9, 3.9931201252777433`*^9, 3.9931206202755957`*^9, 3.993120734243594*^9, 3.9931207787003393`*^9, {3.993120809276908*^9, 3.99312091830203*^9}, 3.993126396911474*^9, 3.993127108235187*^9, - 3.993127327285036*^9, 3.993129930093583*^9}, - CellLabel-> - "(Debug) Out[17]=",ExpressionUUID->"05f87329-b707-4cee-adee-ca48e8ff5a75"] + 3.993127327285036*^9, 3.993129930093583*^9, 3.9938260413257637`*^9, + 3.9938262198909903`*^9, 3.99382640323414*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"c794ca79-84cf-4168-8c2a-c23ca13d1d2d"] }, Open ]], Cell[CellGroupData[{ @@ -381,18 +368,17 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel-> - "(Debug) In[18]:=",ExpressionUUID->"e027fafe-fd13-4595-bbfc-2bc4bc0c7fe0"], + CellLabel->"In[15]:=",ExpressionUUID->"e027fafe-fd13-4595-bbfc-2bc4bc0c7fe0"], -Cell[BoxData["0.4893939523240862`"], "Output", +Cell[BoxData["0.4819667641075124`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.992572214413184*^9, 3.99257231732421*^9, 3.993119178164648*^9, 3.993120125301038*^9, 3.9931206202958717`*^9, 3.993120734262151*^9, 3.993120778723154*^9, {3.993120809300878*^9, 3.99312091832813*^9}, 3.993126396937214*^9, 3.9931271082526913`*^9, - 3.993127327307868*^9, 3.9931299301179867`*^9}, - CellLabel-> - "(Debug) Out[18]=",ExpressionUUID->"667b2fd1-147a-47a4-b488-118bdfd47ba2"] + 3.993127327307868*^9, 3.9931299301179867`*^9, 3.99382604134072*^9, + 3.993826219909511*^9, 3.993826403269574*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"011c2a2d-7eb6-41d3-8590-11726aea5a66"] }, Open ]], Cell[CellGroupData[{ @@ -441,19 +427,18 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "(Debug) In[19]:=",ExpressionUUID->"b5fcad0f-f1ce-473f-8fd1-052a3498bcc7"], + CellLabel->"In[16]:=",ExpressionUUID->"b5fcad0f-f1ce-473f-8fd1-052a3498bcc7"], Cell[BoxData[ - RowBox[{"-", "0.11691975046471094`"}]], "Output", + RowBox[{"-", "0.11350137337476086`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.992572214437451*^9, 3.9925723173458*^9, 3.993119178185848*^9, 3.993120125324417*^9, 3.9931206203183327`*^9, 3.993120734281169*^9, 3.9931207787467546`*^9, {3.9931208093296213`*^9, 3.99312091835464*^9}, 3.993126396963295*^9, 3.993127108270629*^9, - 3.993127327330381*^9, 3.9931299301418533`*^9}, - CellLabel-> - "(Debug) Out[19]=",ExpressionUUID->"8a4aecc1-ffc9-481d-a476-225407926f30"] + 3.993127327330381*^9, 3.9931299301418533`*^9, 3.993826041356285*^9, + 3.9938262199258842`*^9, 3.993826403309264*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"33756010-6a00-4829-b7e6-c09d2ea51b9c"] }, Open ]], Cell[CellGroupData[{ @@ -502,19 +487,18 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "(Debug) In[20]:=",ExpressionUUID->"37f45029-2ca4-4af1-9f80-2482ab313a91"], + CellLabel->"In[17]:=",ExpressionUUID->"37f45029-2ca4-4af1-9f80-2482ab313a91"], Cell[BoxData[ - RowBox[{"-", "0.47923841529777084`"}]], "Output", + RowBox[{"-", "0.4652269449262844`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.992572214463674*^9, 3.992572317369649*^9, 3.9931191782082033`*^9, 3.99312012534838*^9, 3.993120620340795*^9, 3.993120734300748*^9, 3.993120778771158*^9, {3.993120809354206*^9, 3.993120918381035*^9}, 3.993126396990156*^9, 3.9931271082880383`*^9, - 3.993127327353141*^9, 3.993129930165496*^9}, - CellLabel-> - "(Debug) Out[20]=",ExpressionUUID->"73988b34-4594-416f-9ca3-2e839f8d096a"] + 3.993127327353141*^9, 3.993129930165496*^9, 3.993826041372806*^9, + 3.993826219931785*^9, 3.993826403341539*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"5aeb699b-0bda-4c81-a49e-e8098209f4d6"] }, Open ]], Cell[CellGroupData[{ @@ -567,26 +551,24 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel-> - "(Debug) In[21]:=",ExpressionUUID->"4d48a5b7-4072-401d-8044-36ca3ea5b772"], + CellLabel->"In[18]:=",ExpressionUUID->"4d48a5b7-4072-401d-8044-36ca3ea5b772"], -Cell[BoxData["0.6645788995097195`"], "Output", +Cell[BoxData["0.6581300944010081`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.992572214489163*^9, 3.992572317393075*^9, 3.993119178231051*^9, 3.9931201253721113`*^9, 3.99312062036334*^9, 3.993120734321094*^9, 3.993120778795766*^9, {3.993120809378998*^9, 3.993120918385751*^9}, 3.9931263970193033`*^9, 3.993127108305181*^9, - 3.9931273273757467`*^9, 3.993129930188332*^9}, - CellLabel-> - "(Debug) Out[21]=",ExpressionUUID->"a016c299-cc56-4abc-bb4b-f95bf1c292a1"] + 3.9931273273757467`*^9, 3.993129930188332*^9, 3.993826041389311*^9, + 3.993826219959257*^9, 3.99382640343118*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"ac8a9506-5e33-4eda-b30c-50a3a1945f91"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "(Debug) In[22]:=",ExpressionUUID->"0939852a-6299-46a6-8f0e-68d50f0449fc"], + CellLabel->"In[19]:=",ExpressionUUID->"0939852a-6299-46a6-8f0e-68d50f0449fc"], Cell[BoxData["300"], "Output", CellChangeTimes->{ @@ -594,17 +576,16 @@ Cell[BoxData["300"], "Output", 3.993119178253972*^9, 3.993120125375824*^9, 3.993120620387291*^9, 3.993120734341495*^9, 3.993120778819956*^9, {3.9931208093832693`*^9, 3.9931209184116087`*^9}, 3.99312639704468*^9, 3.993127108308776*^9, - 3.993127327398494*^9, 3.9931299302114077`*^9}, - CellLabel-> - "(Debug) Out[22]=",ExpressionUUID->"94f9036b-1675-4c6a-b299-09dd10991902"] + 3.993127327398494*^9, 3.9931299302114077`*^9, 3.993826041405302*^9, + 3.993826219974873*^9, 3.9938264034409122`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"2d563434-5c60-44da-a4ab-18afbff6c377"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "(Debug) In[23]:=",ExpressionUUID->"3cd03327-b0ac-478a-96c2-9ade72bfa53e"], + CellLabel->"In[20]:=",ExpressionUUID->"3cd03327-b0ac-478a-96c2-9ade72bfa53e"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ @@ -612,17 +593,16 @@ Cell[BoxData["0.09`"], "Output", 3.993119178277193*^9, 3.9931201254011793`*^9, 3.993120620412382*^9, 3.9931207343622217`*^9, 3.9931207788442707`*^9, {3.99312080941044*^9, 3.9931209184381313`*^9}, 3.993126397071262*^9, 3.99312710832703*^9, - 3.9931273274216337`*^9, 3.993129930233728*^9}, - CellLabel-> - "(Debug) Out[23]=",ExpressionUUID->"59bfc96b-dd8d-480a-832c-32eef115bbc9"] + 3.9931273274216337`*^9, 3.993129930233728*^9, 3.993826041420837*^9, + 3.9938262199940777`*^9, 3.9938264034983883`*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"60e08fd6-7b40-4e3e-bfd5-cf86b972c1f2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "(Debug) In[24]:=",ExpressionUUID->"6107329f-32aa-40a4-8e39-6ec72a5e7c48"], + CellLabel->"In[21]:=",ExpressionUUID->"6107329f-32aa-40a4-8e39-6ec72a5e7c48"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ @@ -630,9 +610,9 @@ Cell[BoxData["0.42`"], "Output", 3.993119178300417*^9, 3.9931201254244537`*^9, 3.9931206204363203`*^9, 3.993120734383583*^9, 3.9931207788686132`*^9, {3.9931208094353867`*^9, 3.9931209184643908`*^9}, 3.993126397099202*^9, 3.993127108343864*^9, - 3.993127327445428*^9, 3.9931299302566557`*^9}, - CellLabel-> - "(Debug) Out[24]=",ExpressionUUID->"2151269a-6045-4948-8a1c-deb3037e6171"] + 3.993127327445428*^9, 3.9931299302566557`*^9, 3.993826041436515*^9, + 3.9938262200097923`*^9, 3.9938264035221977`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"34e62d31-a2e5-4cf3-b43b-99c8c247bec4"] }, Open ]], Cell[CellGroupData[{ @@ -641,8 +621,7 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "(Debug) In[25]:=",ExpressionUUID->"208dc8fd-7d0a-4d4c-8c24-ba03a4a539fc"], + CellLabel->"In[22]:=",ExpressionUUID->"208dc8fd-7d0a-4d4c-8c24-ba03a4a539fc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", @@ -651,17 +630,16 @@ Cell[BoxData[ 3.993119178323925*^9, 3.993120125448517*^9, 3.993120620460043*^9, 3.993120734387587*^9, 3.993120778893586*^9, {3.99312080946041*^9, 3.993120918489931*^9}, 3.993126397126109*^9, 3.993127108360798*^9, - 3.9931273274692783`*^9, 3.993129930279661*^9}, - CellLabel-> - "(Debug) Out[25]=",ExpressionUUID->"d21eef27-2174-4652-a8f8-eb8857a48287"] + 3.9931273274692783`*^9, 3.993129930279661*^9, 3.993826041453867*^9, + 3.9938262200251827`*^9, 3.993826403548707*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"38808247-09e0-4294-a7ca-f5c8606e3382"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "(Debug) In[26]:=",ExpressionUUID->"03f697ec-0902-4c3d-be6e-7e81a5d22949"], + CellLabel->"In[23]:=",ExpressionUUID->"03f697ec-0902-4c3d-be6e-7e81a5d22949"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ @@ -669,9 +647,9 @@ Cell[BoxData["0.54`"], "Output", 3.9931191783485727`*^9, 3.993120125472217*^9, 3.993120620483555*^9, 3.9931207344112377`*^9, 3.993120778917965*^9, {3.9931208094855137`*^9, 3.993120918515835*^9}, 3.9931263971541853`*^9, 3.9931271083779078`*^9, - 3.99312732750038*^9, 3.9931299303028812`*^9}, - CellLabel-> - "(Debug) Out[26]=",ExpressionUUID->"710d879c-8dfb-490e-afae-915b42bdb057"] + 3.99312732750038*^9, 3.9931299303028812`*^9, 3.993826041469551*^9, + 3.993826220040967*^9, 3.993826403574946*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"1bda3e1b-2f5c-4fb4-bd4b-3a8a679aaaa2"] }, Open ]], Cell[CellGroupData[{ @@ -681,8 +659,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.992179334842106*^9, 3.992179335687786*^9}}, - CellLabel-> - "(Debug) In[27]:=",ExpressionUUID->"549b305c-5dd2-41d0-942c-83e2182ed50c"], + CellLabel->"In[24]:=",ExpressionUUID->"549b305c-5dd2-41d0-942c-83e2182ed50c"], Cell[BoxData["64"], "Output", CellChangeTimes->{ @@ -690,9 +667,9 @@ Cell[BoxData["64"], "Output", 3.9931191783727818`*^9, 3.99312012549559*^9, 3.993120620507852*^9, 3.99312073443309*^9, 3.9931207789437017`*^9, {3.993120809511362*^9, 3.993120918541663*^9}, 3.993126397182165*^9, 3.9931271083947906`*^9, - 3.993127327526623*^9, 3.993129930307193*^9}, - CellLabel-> - "(Debug) Out[27]=",ExpressionUUID->"082ddb53-534e-4b83-8a07-c0da22a76d8d"] + 3.993127327526623*^9, 3.993129930307193*^9, 3.993826041485642*^9, + 3.9938262200568533`*^9, 3.993826403608094*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"f69f9930-16dc-4ac0-b350-a4494f2a0acf"] }, Open ]], Cell[CellGroupData[{ @@ -702,8 +679,7 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9921793256443367`*^9, 3.992179330522312*^9}}, - CellLabel-> - "(Debug) In[28]:=",ExpressionUUID->"c84c8225-36b0-48ad-88a0-e38415676c68"], + CellLabel->"In[25]:=",ExpressionUUID->"c84c8225-36b0-48ad-88a0-e38415676c68"], Cell[BoxData["30"], "Output", CellChangeTimes->{ @@ -711,9 +687,9 @@ Cell[BoxData["30"], "Output", 3.9925723175551643`*^9, 3.993119178397065*^9, 3.9931201255193787`*^9, 3.993120620532507*^9, 3.993120734454447*^9, 3.9931207789693117`*^9, { 3.993120809536613*^9, 3.9931209185672503`*^9}, 3.993126397209779*^9, - 3.993127108411848*^9, 3.993127327550788*^9, 3.993129930331666*^9}, - CellLabel-> - "(Debug) Out[28]=",ExpressionUUID->"e7bdefd6-cad3-4bf2-8ea4-7eed405830d5"] + 3.993127108411848*^9, 3.993127327550788*^9, 3.993129930331666*^9, + 3.9938260415018044`*^9, 3.993826220072378*^9, 3.993826403645892*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"58a97bfb-6250-43e1-9b4e-be07ebaf8fc8"] }, Open ]], Cell[CellGroupData[{ @@ -722,8 +698,7 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "(Debug) In[29]:=",ExpressionUUID->"9a4cd3be-dd3c-4275-a42c-2cb1e2691517"], + CellLabel->"In[26]:=",ExpressionUUID->"9a4cd3be-dd3c-4275-a42c-2cb1e2691517"], Cell[BoxData["66"], "Output", CellChangeTimes->{ @@ -731,9 +706,9 @@ Cell[BoxData["66"], "Output", 3.993119178422393*^9, 3.993120125544594*^9, 3.9931206205571127`*^9, 3.993120734475452*^9, 3.993120778995337*^9, {3.993120809563072*^9, 3.993120918592782*^9}, 3.993126397236918*^9, 3.9931271084302473`*^9, - 3.9931273275743093`*^9, 3.9931299303548107`*^9}, - CellLabel-> - "(Debug) Out[29]=",ExpressionUUID->"8eedb5d0-2985-4a64-a2f9-2c4ac83fae38"] + 3.9931273275743093`*^9, 3.9931299303548107`*^9, 3.993826041518203*^9, + 3.9938262200883007`*^9, 3.993826403679738*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"4890abf0-7b8d-4a26-8444-550821a7faa3"] }, Open ]], Cell[CellGroupData[{ @@ -748,8 +723,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "(Debug) In[30]:=",ExpressionUUID->"3d2b5f54-d499-44d7-bb25-e459635e5ebe"], + CellLabel->"In[27]:=",ExpressionUUID->"3d2b5f54-d499-44d7-bb25-e459635e5ebe"], Cell[BoxData["0.10009404388714734`"], "Output", CellChangeTimes->{ @@ -757,9 +731,9 @@ Cell[BoxData["0.10009404388714734`"], "Output", 3.993119178447468*^9, 3.9931201255690928`*^9, 3.99312062058057*^9, 3.993120734496913*^9, 3.9931207790217533`*^9, {3.993120809589333*^9, 3.993120918618535*^9}, 3.993126397265643*^9, 3.993127108447774*^9, - 3.993127327597167*^9, 3.993129930377665*^9}, - CellLabel-> - "(Debug) Out[30]=",ExpressionUUID->"55929cc6-4d59-49dd-8dd4-e7d1d043b31d"] + 3.993127327597167*^9, 3.993129930377665*^9, 3.993826041534566*^9, + 3.993826220104559*^9, 3.993826403706871*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"7bb159bb-9888-469b-a5bd-24c25f288789"] }, Open ]], Cell[CellGroupData[{ @@ -774,8 +748,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "(Debug) In[31]:=",ExpressionUUID->"29b3fd1f-47d5-4619-b1d4-ce04a95b9b2c"], + CellLabel->"In[28]:=",ExpressionUUID->"29b3fd1f-47d5-4619-b1d4-ce04a95b9b2c"], Cell[BoxData[ RowBox[{"-", "2.5770219435736674`"}]], "Output", @@ -784,9 +757,9 @@ Cell[BoxData[ 3.99311917847161*^9, 3.9931201255928173`*^9, 3.993120620603883*^9, 3.99312073451705*^9, 3.993120779047393*^9, {3.993120809616363*^9, 3.99312091864408*^9}, 3.993126397321745*^9, 3.9931271084650297`*^9, - 3.993127327619956*^9, 3.9931299304007187`*^9}, - CellLabel-> - "(Debug) Out[31]=",ExpressionUUID->"a3b35340-7b20-4d1d-a111-c9aeef292259"] + 3.993127327619956*^9, 3.9931299304007187`*^9, 3.993826041551136*^9, + 3.993826220120119*^9, 3.993826403737561*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"fc7d7843-cf40-44c3-abec-199407b72b83"] }, Open ]], Cell[CellGroupData[{ @@ -817,18 +790,17 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "(Debug) In[32]:=",ExpressionUUID->"2bdbfe37-41d1-4574-83d6-34dcfa23e750"], + CellLabel->"In[29]:=",ExpressionUUID->"2bdbfe37-41d1-4574-83d6-34dcfa23e750"], -Cell[BoxData["17.107103859214785`"], "Output", +Cell[BoxData["17.307103859214784`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.9925722147917547`*^9, 3.992572317642908*^9, 3.9931191784953337`*^9, 3.9931201256157637`*^9, 3.993120620627388*^9, 3.993120734537298*^9, 3.993120779073007*^9, {3.993120809642799*^9, 3.99312091866967*^9}, 3.993126397349163*^9, 3.993127108482143*^9, - 3.993127327644107*^9, 3.993129930424616*^9}, - CellLabel-> - "(Debug) Out[32]=",ExpressionUUID->"a4a08d2b-5679-45de-93f7-abab7d09c36b"] + 3.993127327644107*^9, 3.993129930424616*^9, 3.993826041568207*^9, + 3.993826220136548*^9, 3.9938264037695312`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"c9b27856-ce08-4172-a802-c99419c44e48"] }, Open ]], Cell[CellGroupData[{ @@ -836,8 +808,7 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "(Debug) In[33]:=",ExpressionUUID->"99dc226c-1b4e-4f0a-bbd8-93adb991a39a"], + CellLabel->"In[30]:=",ExpressionUUID->"99dc226c-1b4e-4f0a-bbd8-93adb991a39a"], Cell[BoxData["300"], "Output", CellChangeTimes->{ @@ -845,9 +816,9 @@ Cell[BoxData["300"], "Output", 3.993119178519957*^9, 3.9931201256394*^9, 3.993120620650062*^9, 3.9931207345574923`*^9, 3.9931207790984907`*^9, {3.99312080966818*^9, 3.993120918694831*^9}, 3.9931263973740883`*^9, 3.99312710849828*^9, - 3.993127327666795*^9, 3.993129930447353*^9}, - CellLabel-> - "(Debug) Out[33]=",ExpressionUUID->"8b3f81f6-962b-479d-9739-64fa88cf1341"] + 3.993127327666795*^9, 3.993129930447353*^9, 3.9938260415850773`*^9, + 3.9938262201527367`*^9, 3.99382640379394*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"d4984d6f-d82e-4c72-9a90-3f01b6beb871"] }, Open ]], Cell[CellGroupData[{ @@ -857,8 +828,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.99217938935705*^9, 3.9921793928277493`*^9}}, - CellLabel-> - "(Debug) In[34]:=",ExpressionUUID->"f48ec7bd-dc86-47c4-b76b-d162a14a7041"], + CellLabel->"In[31]:=",ExpressionUUID->"f48ec7bd-dc86-47c4-b76b-d162a14a7041"], Cell[BoxData["1.73`"], "Output", CellChangeTimes->{ @@ -866,15 +836,14 @@ Cell[BoxData["1.73`"], "Output", 3.993119178543579*^9, 3.993120125662697*^9, 3.993120620672945*^9, 3.993120734577505*^9, 3.99312077912435*^9, {3.993120809694366*^9, 3.9931209187201843`*^9}, 3.993126397400276*^9, 3.993127108513898*^9, - 3.9931273276905518`*^9, 3.993129930470989*^9}, - CellLabel-> - "(Debug) Out[34]=",ExpressionUUID->"ab8d9c52-9947-4c10-86be-736d8ac5babd"] + 3.9931273276905518`*^9, 3.993129930470989*^9, 3.993826041601057*^9, + 3.993826220169179*^9, 3.993826403822534*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"15a5092f-b069-4306-a30f-874c494e9da3"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "(Debug) In[35]:=",ExpressionUUID->"6143058e-d48f-4e50-ab88-a67fcfe19c2f"], + CellLabel->"In[32]:=",ExpressionUUID->"6143058e-d48f-4e50-ab88-a67fcfe19c2f"], Cell[CellGroupData[{ @@ -883,8 +852,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.992179397583227*^9, 3.992179400444868*^9}}, - CellLabel-> - "(Debug) In[36]:=",ExpressionUUID->"309c17e7-0272-49aa-adfc-a68234384595"], + CellLabel->"In[33]:=",ExpressionUUID->"309c17e7-0272-49aa-adfc-a68234384595"], Cell[BoxData["0.76`"], "Output", CellChangeTimes->{ @@ -892,15 +860,14 @@ Cell[BoxData["0.76`"], "Output", 3.993119178580999*^9, 3.993120125699438*^9, 3.993120620708702*^9, 3.993120734611329*^9, 3.993120779164959*^9, {3.9931208097375097`*^9, 3.993120918756428*^9}, 3.993126397434441*^9, 3.99312710854491*^9, - 3.993127327734688*^9, 3.993129930499295*^9}, - CellLabel-> - "(Debug) Out[36]=",ExpressionUUID->"ee588178-2057-4965-8183-a754de3d7dee"] + 3.993127327734688*^9, 3.993129930499295*^9, 3.993826041619883*^9, + 3.993826220199127*^9, 3.993826403878479*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"22aa3ecd-2ba4-4664-9269-1570c13dc927"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "(Debug) In[37]:=",ExpressionUUID->"a746702c-1b33-4ace-93f7-a4df59bb032e"], + CellLabel->"In[34]:=",ExpressionUUID->"a746702c-1b33-4ace-93f7-a4df59bb032e"], Cell[CellGroupData[{ @@ -909,8 +876,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.9921794031483917`*^9, 3.9921794061884384`*^9}}, - CellLabel-> - "(Debug) In[38]:=",ExpressionUUID->"0f32b9a6-42f4-447a-8cea-879fe8270596"], + CellLabel->"In[35]:=",ExpressionUUID->"0f32b9a6-42f4-447a-8cea-879fe8270596"], Cell[BoxData["2.4`"], "Output", CellChangeTimes->{ @@ -918,15 +884,14 @@ Cell[BoxData["2.4`"], "Output", 3.993119178617138*^9, 3.993120125731515*^9, 3.993120620741789*^9, 3.99312073464296*^9, 3.993120779203336*^9, {3.993120809773469*^9, 3.993120918792803*^9}, 3.993126397467867*^9, 3.993127108575645*^9, - 3.993127327780107*^9, 3.993129930527397*^9}, - CellLabel-> - "(Debug) Out[38]=",ExpressionUUID->"58349dd2-d771-42a1-98f5-11365127674a"] + 3.993127327780107*^9, 3.993129930527397*^9, 3.993826041636002*^9, + 3.993826220230406*^9, 3.993826403930828*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"2dbf6141-0fe9-49fc-8a4e-bf20f4655de2"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "(Debug) In[39]:=",ExpressionUUID->"ff06262d-2a7d-4bf2-9889-3482d88544e6"], + CellLabel->"In[36]:=",ExpressionUUID->"ff06262d-2a7d-4bf2-9889-3482d88544e6"], Cell[CellGroupData[{ @@ -935,8 +900,7 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.992179410033045*^9, 3.9921794153030643`*^9}}, - CellLabel-> - "(Debug) In[40]:=",ExpressionUUID->"32f78082-dea1-4601-b18d-c381615ae618"], + CellLabel->"In[37]:=",ExpressionUUID->"32f78082-dea1-4601-b18d-c381615ae618"], Cell[BoxData["1.105`"], "Output", CellChangeTimes->{ @@ -944,15 +908,14 @@ Cell[BoxData["1.105`"], "Output", 3.9931191786546717`*^9, 3.993120125772245*^9, 3.993120620774741*^9, 3.993120734674015*^9, 3.993120779246025*^9, {3.9931208098102417`*^9, 3.993120918832294*^9}, 3.9931263974996033`*^9, 3.9931271086069736`*^9, - 3.993127327858879*^9, 3.9931299305553226`*^9}, - CellLabel-> - "(Debug) Out[40]=",ExpressionUUID->"d9a056a7-1bf8-42e7-9d97-48db084449e1"] + 3.993127327858879*^9, 3.9931299305553226`*^9, 3.993826041652142*^9, + 3.9938262202592907`*^9, 3.993826403981802*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"1ee21bc3-126a-4296-9655-beed396abf18"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "(Debug) In[41]:=",ExpressionUUID->"2aafa00d-a8c1-4bad-a089-c7f42ec9638d"], + CellLabel->"In[38]:=",ExpressionUUID->"2aafa00d-a8c1-4bad-a089-c7f42ec9638d"], Cell[CellGroupData[{ @@ -961,8 +924,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.9921794177283573`*^9, 3.992179423583313*^9}}, - CellLabel-> - "(Debug) In[42]:=",ExpressionUUID->"9785ea3b-ac47-43e2-a47f-ae9c169e6d42"], + CellLabel->"In[39]:=",ExpressionUUID->"9785ea3b-ac47-43e2-a47f-ae9c169e6d42"], Cell[BoxData["1.4012`"], "Output", CellChangeTimes->{ @@ -970,15 +932,14 @@ Cell[BoxData["1.4012`"], "Output", 3.993119178721389*^9, 3.9931201258041277`*^9, 3.993120620807364*^9, 3.9931207347045813`*^9, 3.99312077928405*^9, {3.993120809849883*^9, 3.993120918882786*^9}, 3.9931263975308533`*^9, 3.993127108637912*^9, - 3.9931273279852*^9, 3.993129930582982*^9}, - CellLabel-> - "(Debug) Out[42]=",ExpressionUUID->"bb68f11a-a81a-4ae5-ad78-c76bdbed485b"] + 3.9931273279852*^9, 3.993129930582982*^9, 3.9938260416683073`*^9, + 3.993826220288229*^9, 3.993826404029818*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"2b3bc05f-0df7-4283-8487-9aeb5fa8d7a7"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "(Debug) In[43]:=",ExpressionUUID->"ff11fa55-f797-455b-8b66-5cc8b90fb113"], + CellLabel->"In[40]:=",ExpressionUUID->"ff11fa55-f797-455b-8b66-5cc8b90fb113"], Cell[CellGroupData[{ @@ -987,8 +948,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9921794277801266`*^9, 3.9921794329809513`*^9}}, - CellLabel-> - "(Debug) In[44]:=",ExpressionUUID->"73c20400-1de0-4e8b-8b8e-e79c0739ef44"], + CellLabel->"In[41]:=",ExpressionUUID->"73c20400-1de0-4e8b-8b8e-e79c0739ef44"], Cell[BoxData["0.5547`"], "Output", CellChangeTimes->{ @@ -996,15 +956,14 @@ Cell[BoxData["0.5547`"], "Output", 3.9931191787561502`*^9, 3.993120125890787*^9, 3.9931206208406067`*^9, 3.993120734738842*^9, 3.993120779339178*^9, {3.993120809889782*^9, 3.993120918919759*^9}, 3.993126397559119*^9, 3.993127108670261*^9, - 3.993127328084579*^9, 3.993129930610573*^9}, - CellLabel-> - "(Debug) Out[44]=",ExpressionUUID->"9b9cf5d8-064b-43db-b84d-8dc11486eded"] + 3.993127328084579*^9, 3.993129930610573*^9, 3.9938260416841803`*^9, + 3.993826220316453*^9, 3.993826404089089*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"b954d309-5d46-4ba4-b70e-a5d46c22ab96"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "(Debug) In[45]:=",ExpressionUUID->"cdd81c82-7dd4-4ea6-9c96-b8308c603ac5"], + CellLabel->"In[42]:=",ExpressionUUID->"cdd81c82-7dd4-4ea6-9c96-b8308c603ac5"], Cell[CellGroupData[{ @@ -1013,8 +972,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9921794404678802`*^9, 3.992179445208559*^9}}, - CellLabel-> - "(Debug) In[46]:=",ExpressionUUID->"10e11c9a-e95d-4c66-9815-1f1664c00891"], + CellLabel->"In[43]:=",ExpressionUUID->"10e11c9a-e95d-4c66-9815-1f1664c00891"], Cell[BoxData["1.1338`"], "Output", CellChangeTimes->{ @@ -1022,15 +980,14 @@ Cell[BoxData["1.1338`"], "Output", 3.99311917879039*^9, 3.9931201260449333`*^9, 3.993120620873763*^9, 3.993120734773638*^9, 3.993120779536425*^9, {3.993120809930094*^9, 3.993120918956725*^9}, 3.993126397589849*^9, 3.9931271087029333`*^9, - 3.993127328126643*^9, 3.9931299306393948`*^9}, - CellLabel-> - "(Debug) Out[46]=",ExpressionUUID->"038ee047-fe21-4a0b-8b4f-84b7a3ffee1c"] + 3.993127328126643*^9, 3.9931299306393948`*^9, 3.993826041700238*^9, + 3.993826220345563*^9, 3.993826404155912*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"4cdfc62a-9f26-47e6-b30f-912c68ef55b1"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "(Debug) In[47]:=",ExpressionUUID->"315686a4-25e8-483d-92e8-dda064ea9ad6"], + CellLabel->"In[44]:=",ExpressionUUID->"315686a4-25e8-483d-92e8-dda064ea9ad6"], Cell[CellGroupData[{ @@ -1038,8 +995,7 @@ Cell[BoxData[ RowBox[{"nn2", "=", " ", "0.8500"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.9921794486072216`*^9, 3.992179451994211*^9}}, - CellLabel-> - "(Debug) In[48]:=",ExpressionUUID->"0fabce16-24b0-4623-8e95-3d3e5f5dc8fa"], + CellLabel->"In[45]:=",ExpressionUUID->"0fabce16-24b0-4623-8e95-3d3e5f5dc8fa"], Cell[BoxData["0.85`"], "Output", CellChangeTimes->{ @@ -1047,15 +1003,14 @@ Cell[BoxData["0.85`"], "Output", 3.9931191788237534`*^9, 3.993120126088036*^9, 3.993120620906579*^9, 3.993120734815996*^9, 3.99312077958954*^9, {3.993120809970735*^9, 3.993120919005844*^9}, 3.9931263976232653`*^9, 3.993127108734625*^9, - 3.9931273281682453`*^9, 3.9931299306665077`*^9}, - CellLabel-> - "(Debug) Out[48]=",ExpressionUUID->"3f3daab7-2be3-4e5e-aa43-7906df30b338"] + 3.9931273281682453`*^9, 3.9931299306665077`*^9, 3.9938260417162952`*^9, + 3.993826220376287*^9, 3.9938264042082*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"056ebd54-f236-4605-8602-d5f95819edd9"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "(Debug) In[49]:=",ExpressionUUID->"01631860-7c61-4e51-8053-3b30ffca80a4"], + CellLabel->"In[46]:=",ExpressionUUID->"01631860-7c61-4e51-8053-3b30ffca80a4"], Cell[CellGroupData[{ @@ -1544,18 +1499,17 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "(Debug) In[50]:=",ExpressionUUID->"2fa4e45f-3062-48db-9f6e-ce327bff9a00"], + CellLabel->"In[47]:=",ExpressionUUID->"2fa4e45f-3062-48db-9f6e-ce327bff9a00"], -Cell[BoxData["0.2740681472438999`"], "Output", +Cell[BoxData["0.20251257452349652`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9925722152487392`*^9, 3.99257231801375*^9, 3.993119178932695*^9, 3.9931201261547956`*^9, 3.993120621085143*^9, 3.993120734882799*^9, 3.993120779663743*^9, {3.9931208100453367`*^9, 3.993120919069702*^9}, 3.993126397737794*^9, 3.993127108801776*^9, - 3.993127328244122*^9, 3.99312993079362*^9}, - CellLabel-> - "(Debug) Out[50]=",ExpressionUUID->"ea5a3f16-6c3b-49f9-b156-90fa4f409bde"] + 3.993127328244122*^9, 3.99312993079362*^9, 3.993826041805862*^9, + 3.9938262204208517`*^9, 3.993826404376081*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"e50df9b2-c3ed-4ab9-81e5-f0a5aab204c8"] }, Open ]], Cell[CellGroupData[{ @@ -2049,18 +2003,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "(Debug) In[51]:=",ExpressionUUID->"43ec8d96-7b69-43c2-937b-1c891c72816f"], + CellLabel->"In[48]:=",ExpressionUUID->"43ec8d96-7b69-43c2-937b-1c891c72816f"], -Cell[BoxData["6.729727276682354`"], "Output", +Cell[BoxData["5.409861784548971`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.992572215281089*^9, 3.992572318073772*^9, 3.993119178961668*^9, 3.9931201261913633`*^9, 3.9931206212251253`*^9, 3.993120734908091*^9, 3.993120779691341*^9, {3.993120810074683*^9, 3.9931209190984907`*^9}, 3.993126397786759*^9, 3.9931271088494673`*^9, - 3.993127328284951*^9, 3.9931299308716*^9}, - CellLabel-> - "(Debug) Out[51]=",ExpressionUUID->"3dbb75d7-abe4-41b4-93ba-2c446d0dd472"] + 3.993127328284951*^9, 3.9931299308716*^9, 3.9938260418365*^9, + 3.99382622044974*^9, 3.993826404493042*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"94eec03d-59ee-4be0-b085-884b4eba33f6"] }, Open ]], Cell[CellGroupData[{ @@ -2548,19 +2501,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "(Debug) In[52]:=",ExpressionUUID->"6d71eb66-26f6-49c5-8a6f-6d4ab5736a74"], + CellLabel->"In[49]:=",ExpressionUUID->"6d71eb66-26f6-49c5-8a6f-6d4ab5736a74"], Cell[BoxData[ - RowBox[{"-", "33.539435872430126`"}]], "Output", + RowBox[{"-", "26.71933695492077`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.992572215310524*^9, 3.9925723181046333`*^9, 3.9931191789891367`*^9, 3.993120126228422*^9, 3.9931206213349524`*^9, 3.993120734934422*^9, 3.993120779718647*^9, {3.993120810103335*^9, 3.9931209191268253`*^9}, 3.993126397844788*^9, 3.993127108888278*^9, - 3.993127328322741*^9, 3.993129930913966*^9}, - CellLabel-> - "(Debug) Out[52]=",ExpressionUUID->"f2f166ea-878e-4576-82d5-a4238865cde8"] + 3.993127328322741*^9, 3.993129930913966*^9, 3.9938260418668137`*^9, + 3.993826220477952*^9, 3.993826404547016*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"4100cdd5-adb1-4869-8ee2-ee3d669dbe5c"] }, Open ]], Cell[CellGroupData[{ @@ -3118,19 +3070,18 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "(Debug) In[53]:=",ExpressionUUID->"a0ccfd8f-a2a2-4336-a0a2-35083139f5e1"], + CellLabel->"In[50]:=",ExpressionUUID->"a0ccfd8f-a2a2-4336-a0a2-35083139f5e1"], Cell[BoxData[ - RowBox[{"-", "42.596524206199966`"}]], "Output", + RowBox[{"-", "33.90805078336294`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9925722153471212`*^9, 3.992572318139402*^9, 3.993119179022643*^9, 3.993120126260621*^9, 3.99312062146356*^9, 3.993120734966599*^9, 3.993120779750485*^9, {3.9931208101344213`*^9, 3.993120919158321*^9}, 3.993126397903695*^9, 3.993127108944912*^9, - 3.993127328366109*^9, 3.993129930961933*^9}, - CellLabel-> - "(Debug) Out[53]=",ExpressionUUID->"40197109-de31-4159-bf58-2f693f0908e9"] + 3.993127328366109*^9, 3.993129930961933*^9, 3.9938260419025993`*^9, + 3.993826220519285*^9, 3.993826404632524*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"0e68a602-2f3d-45d8-a9ad-84095a679c3f"] }, Open ]], Cell[CellGroupData[{ @@ -3688,19 +3639,18 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "(Debug) In[54]:=",ExpressionUUID->"8a22c72b-903e-4c44-a421-1707f3155c10"], + CellLabel->"In[51]:=",ExpressionUUID->"8a22c72b-903e-4c44-a421-1707f3155c10"], Cell[BoxData[ - RowBox[{"-", "101.06737781470315`"}]], "Output", + RowBox[{"-", "80.51800540734116`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.992572215384285*^9, 3.992572318174841*^9, 3.9931191790553703`*^9, 3.993120126295026*^9, 3.993120621602091*^9, 3.993120734997818*^9, 3.9931207797928047`*^9, {3.993120810164044*^9, 3.993120919189701*^9}, 3.9931263979617987`*^9, 3.993127109001227*^9, - 3.993127328408454*^9, 3.993129931011693*^9}, - CellLabel-> - "(Debug) Out[54]=",ExpressionUUID->"59ba51cd-46e1-4c22-866a-d93630eb6024"] + 3.993127328408454*^9, 3.993129931011693*^9, 3.9938260443510647`*^9, + 3.993826220553792*^9, 3.993826404712422*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"ca20dd8b-da52-474e-8ccc-ee4dc84fcd8e"] }, Open ]], Cell[CellGroupData[{ @@ -4331,27 +4281,25 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "(Debug) In[55]:=",ExpressionUUID->"d7ac7cec-a30d-4b76-a656-0a157644dee5"], + CellLabel->"In[52]:=",ExpressionUUID->"d7ac7cec-a30d-4b76-a656-0a157644dee5"], Cell[BoxData[ - RowBox[{"-", "257.9635659781649`"}]], "Output", + RowBox[{"-", "205.49185741459576`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.992572215426282*^9, 3.992572318215456*^9, 3.993119179092291*^9, 3.9931201263315697`*^9, 3.9931206217665358`*^9, 3.993120735034762*^9, 3.993120779834642*^9, {3.993120810200284*^9, 3.993120919227768*^9}, 3.993126398030951*^9, 3.99312710912798*^9, - 3.993127328460342*^9, 3.993129931077551*^9}, - CellLabel-> - "(Debug) Out[55]=",ExpressionUUID->"79d3b66c-77b5-4612-a113-f6bb4711a0a0"] + 3.993127328460342*^9, 3.993129931077551*^9, 3.9938260445563717`*^9, + 3.9938262205915422`*^9, 3.993826404781953*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"024539f9-1eb6-46bc-a685-d809fbb8e905"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "(Debug) In[56]:=",ExpressionUUID->"9b7ebd55-dba8-4456-8559-93398d4bd488"], + CellLabel->"In[53]:=",ExpressionUUID->"9b7ebd55-dba8-4456-8559-93398d4bd488"], Cell[BoxData["0"], "Output", CellChangeTimes->{ @@ -4359,17 +4307,16 @@ Cell[BoxData["0"], "Output", 3.993119179114964*^9, 3.993120126352831*^9, 3.993120621792342*^9, 3.99312073505088*^9, 3.9931207798622704`*^9, {3.993120810226747*^9, 3.9931209192549257`*^9}, 3.9931263980390377`*^9, 3.9931271092133408`*^9, - 3.9931273284825706`*^9, 3.9931299311037893`*^9}, - CellLabel-> - "(Debug) Out[56]=",ExpressionUUID->"f7fe0523-5b49-4502-82a9-a2ef8d4c9a65"] + 3.9931273284825706`*^9, 3.9931299311037893`*^9, 3.993826044571926*^9, + 3.993826220609427*^9, 3.993826404825335*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"9a9b8954-f75d-4954-990c-e8e4f3230dbf"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "(Debug) In[57]:=",ExpressionUUID->"0299b24a-b678-4d36-a234-69dc62f13a9d"], + CellLabel->"In[54]:=",ExpressionUUID->"0299b24a-b678-4d36-a234-69dc62f13a9d"], Cell[BoxData["0"], "Output", CellChangeTimes->{ @@ -4377,9 +4324,9 @@ Cell[BoxData["0"], "Output", 3.9931191791375523`*^9, 3.993120126374206*^9, 3.993120621815301*^9, 3.993120735073701*^9, 3.993120779889783*^9, {3.993120810252183*^9, 3.993120919282319*^9}, 3.9931263980458927`*^9, 3.993127109244834*^9, - 3.993127328504586*^9, 3.993129931127369*^9}, - CellLabel-> - "(Debug) Out[57]=",ExpressionUUID->"42f973a9-ce53-4ffc-a7ed-c6379f5c5455"] + 3.993127328504586*^9, 3.993129931127369*^9, 3.993826044583891*^9, + 3.993826220641005*^9, 3.993826404856049*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"f1f9b885-c470-4a61-9ed3-6f9a8ac9a526"] }, Open ]], Cell[CellGroupData[{ @@ -4423,18 +4370,17 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "(Debug) In[58]:=",ExpressionUUID->"014750f8-e22d-4a2e-9e29-9da66fd52d3a"], + CellLabel->"In[55]:=",ExpressionUUID->"014750f8-e22d-4a2e-9e29-9da66fd52d3a"], -Cell[BoxData["206.09321333582264`"], "Output", +Cell[BoxData["157.0651890700479`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.992572215502891*^9, 3.9925723182776947`*^9, 3.9931191791602383`*^9, 3.9931201263788633`*^9, 3.993120622314225*^9, 3.9931207350960493`*^9, 3.993120779914585*^9, {3.9931208102780457`*^9, 3.9931209193092546`*^9}, 3.993126398052409*^9, 3.993127109275919*^9, - 3.993127328527534*^9, 3.9931299311534243`*^9}, - CellLabel-> - "(Debug) Out[58]=",ExpressionUUID->"9a16edf3-c7c5-4ea2-8c04-f62d4f5f12a1"] + 3.993127328527534*^9, 3.9931299311534243`*^9, 3.993826044596599*^9, + 3.993826220671315*^9, 3.9938264048929453`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"6168e7fb-ffd8-4ad4-84f0-42167b86f4d5"] }, Open ]], Cell[CellGroupData[{ @@ -4474,19 +4420,18 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "(Debug) In[59]:=",ExpressionUUID->"2baf8cdb-f278-4e84-a711-91de26ed4a3c"], + CellLabel->"In[56]:=",ExpressionUUID->"2baf8cdb-f278-4e84-a711-91de26ed4a3c"], Cell[BoxData[ - RowBox[{"-", "161.1868287134346`"}]], "Output", + RowBox[{"-", "123.3235530299229`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.992572215526945*^9, 3.992572318297956*^9, 3.993119179182555*^9, 3.993120126400342*^9, 3.99312062277221*^9, 3.9931207351051397`*^9, 3.993120779938876*^9, {3.9931208103040047`*^9, 3.9931209193366623`*^9}, 3.99312639805881*^9, 3.993127109307798*^9, - 3.993127328549741*^9, 3.9931299311778517`*^9}, - CellLabel-> - "(Debug) Out[59]=",ExpressionUUID->"8234b272-0f62-4e83-b8f5-6770359d0cda"] + 3.993127328549741*^9, 3.9931299311778517`*^9, 3.993826044609192*^9, + 3.993826220687798*^9, 3.993826404930435*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"34235601-305a-4204-a81f-8d1b13fcfd21"] }, Open ]], Cell[CellGroupData[{ @@ -4530,95 +4475,89 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "(Debug) In[60]:=",ExpressionUUID->"ec1bf389-eb3b-44b1-b8ec-3e5dad509450"], + CellLabel->"In[57]:=",ExpressionUUID->"ec1bf389-eb3b-44b1-b8ec-3e5dad509450"], -Cell[BoxData["193.7537427380251`"], "Output", +Cell[BoxData["151.17585622424423`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9925722155553827`*^9, 3.9925723183190947`*^9, 3.9931191792047863`*^9, 3.993120126422503*^9, 3.99312062328085*^9, 3.993120735114328*^9, 3.993120779966241*^9, {3.993120810329393*^9, 3.993120919363965*^9}, 3.99312639806597*^9, 3.993127109343749*^9, - 3.9931273285713377`*^9, 3.993129931200837*^9}, - CellLabel-> - "(Debug) Out[60]=",ExpressionUUID->"7aed2862-15f8-45f0-8ff3-2e43fad48da5"] + 3.9931273285713377`*^9, 3.993129931200837*^9, 3.9938260446221027`*^9, + 3.993826220703888*^9, 3.993826404962881*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"b133a750-2823-4ebf-b54e-8616e565284c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "(Debug) In[61]:=",ExpressionUUID->"7cc5c200-d23a-4aab-8dd4-dd2b39dfb629"], + CellLabel->"In[58]:=",ExpressionUUID->"7cc5c200-d23a-4aab-8dd4-dd2b39dfb629"], -Cell[BoxData["0.4893939523240862`"], "Output", +Cell[BoxData["0.4819667641075124`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.992572215581643*^9, 3.9925723183400307`*^9, 3.9931191792269573`*^9, 3.993120126444304*^9, 3.993120623323575*^9, 3.993120735122086*^9, 3.993120779991181*^9, {3.993120810354744*^9, 3.993120919368601*^9}, 3.9931263980726233`*^9, 3.993127109381337*^9, - 3.993127328593055*^9, 3.99312993122449*^9}, - CellLabel-> - "(Debug) Out[61]=",ExpressionUUID->"9e0da62e-f7cd-4621-ae8a-18f8d1a4dd94"] + 3.993127328593055*^9, 3.99312993122449*^9, 3.9938260446338873`*^9, + 3.993826220719865*^9, 3.993826404995552*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"8aba4b33-5a20-45ff-bec7-b54a9f7c82dd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "(Debug) In[62]:=",ExpressionUUID->"1d636216-0388-4ec1-9061-7a8f850c1529"], + CellLabel->"In[59]:=",ExpressionUUID->"1d636216-0388-4ec1-9061-7a8f850c1529"], Cell[BoxData[ - RowBox[{"-", "0.11691975046471094`"}]], "Output", + RowBox[{"-", "0.11350137337476086`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.9925722156071453`*^9, 3.9925723183603783`*^9, 3.9931191792492533`*^9, 3.993120126466148*^9, 3.993120623346512*^9, 3.9931207351443777`*^9, 3.993120780015463*^9, {3.9931208103803673`*^9, 3.993120919396596*^9}, 3.993126398079549*^9, 3.9931271094149017`*^9, - 3.9931273286142263`*^9, 3.993129931247855*^9}, - CellLabel-> - "(Debug) Out[62]=",ExpressionUUID->"40f7067e-7234-4ee4-b319-e760495efaca"] + 3.9931273286142263`*^9, 3.993129931247855*^9, 3.993826044646298*^9, + 3.9938262207362833`*^9, 3.9938264050232553`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"ffda4059-ea19-44e2-a8dd-7e73b0a1d22b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "(Debug) In[63]:=",ExpressionUUID->"2b611e92-f5d7-4a75-a966-8087a81cb945"], + CellLabel->"In[60]:=",ExpressionUUID->"2b611e92-f5d7-4a75-a966-8087a81cb945"], Cell[BoxData[ - RowBox[{"-", "0.47923841529777084`"}]], "Output", + RowBox[{"-", "0.4652269449262844`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.992572215632304*^9, 3.992572318380674*^9, 3.993119179271516*^9, 3.993120126487928*^9, 3.9931206233692617`*^9, 3.993120735165653*^9, 3.993120780040511*^9, {3.993120810385436*^9, 3.993120919423568*^9}, 3.993126398086187*^9, 3.993127109447815*^9, - 3.9931273286352787`*^9, 3.993129931271668*^9}, - CellLabel-> - "(Debug) Out[63]=",ExpressionUUID->"f01ae50f-ea4f-47f0-844f-4a862ace4f6e"] + 3.9931273286352787`*^9, 3.993129931271668*^9, 3.9938260446592093`*^9, + 3.993826220755527*^9, 3.993826405049773*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"41a636e1-4871-4440-93bc-0dfa3f215abb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "(Debug) In[64]:=",ExpressionUUID->"bfd19aa0-e31d-4c48-af85-0609e9cece67"], + CellLabel->"In[61]:=",ExpressionUUID->"bfd19aa0-e31d-4c48-af85-0609e9cece67"], -Cell[BoxData["0.6645788995097195`"], "Output", +Cell[BoxData["0.6581300944010081`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.992572215657671*^9, 3.9925723183847733`*^9, 3.993119179293789*^9, 3.9931201265097437`*^9, 3.9931206233734407`*^9, 3.99312073518717*^9, 3.9931207800652113`*^9, {3.993120810412512*^9, 3.993120919451396*^9}, 3.993126398093424*^9, 3.993127109479258*^9, - 3.9931273286560917`*^9, 3.993129931295282*^9}, - CellLabel-> - "(Debug) Out[64]=",ExpressionUUID->"d1def81e-2fae-4b69-9f76-40f86be8b607"] + 3.9931273286560917`*^9, 3.993129931295282*^9, 3.993826044671669*^9, + 3.9938262207720823`*^9, 3.9938264050892553`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"a2d72902-0469-4671-b4cf-435161538cbb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "(Debug) In[65]:=",ExpressionUUID->"7968bc87-c156-4586-9548-c0f484bc9993"], + CellLabel->"In[62]:=",ExpressionUUID->"7968bc87-c156-4586-9548-c0f484bc9993"], Cell[BoxData["2.061265729478835`"], "Output", CellChangeTimes->{ @@ -4626,16 +4565,15 @@ Cell[BoxData["2.061265729478835`"], "Output", 3.993119179315935*^9, 3.993120126531769*^9, 3.993120623396599*^9, 3.9931207352098637`*^9, 3.993120780089756*^9, {3.9931208104374*^9, 3.9931209194800158`*^9}, 3.9931263980999727`*^9, 3.993127109512844*^9, - 3.9931273286772337`*^9, 3.9931299313180227`*^9}, - CellLabel-> - "(Debug) Out[65]=",ExpressionUUID->"d764b154-b19d-4d4c-b0f4-bf3fe23a9da3"] + 3.9931273286772337`*^9, 3.9931299313180227`*^9, 3.993826044683947*^9, + 3.993826220787836*^9, 3.9938264051492434`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"b98191bb-4793-41f6-a8a0-35c2c103720f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "(Debug) In[66]:=",ExpressionUUID->"36690ea4-3542-490f-be49-8e8a3e2cf11e"], + CellLabel->"In[63]:=",ExpressionUUID->"36690ea4-3542-490f-be49-8e8a3e2cf11e"], Cell[BoxData["1.500736140386642`"], "Output", CellChangeTimes->{ @@ -4643,9 +4581,9 @@ Cell[BoxData["1.500736140386642`"], "Output", 3.993119179337996*^9, 3.9931201265538*^9, 3.993120623423506*^9, 3.993120735231386*^9, 3.993120780114184*^9, {3.993120810463977*^9, 3.993120919508306*^9}, 3.993126398108006*^9, 3.993127109545864*^9, - 3.993127328698331*^9, 3.99312993132206*^9}, - CellLabel-> - "(Debug) Out[66]=",ExpressionUUID->"863cdf5d-f8f2-41de-91da-b49111eae39f"] + 3.993127328698331*^9, 3.99312993132206*^9, 3.993826044696253*^9, + 3.993826220803935*^9, 3.993826405184195*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"81237eaf-9aa1-4062-a9a0-7859b9d74a3b"] }, Open ]], Cell[CellGroupData[{ @@ -4666,19 +4604,18 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "(Debug) In[67]:=",ExpressionUUID->"28e155e6-d777-43b5-ab9a-9d65def3bf50"], + CellLabel->"In[64]:=",ExpressionUUID->"28e155e6-d777-43b5-ab9a-9d65def3bf50"], Cell[BoxData[ - RowBox[{"-", "32.4727450296612`"}]], "Output", + RowBox[{"-", "31.35994404137113`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.992572215734977*^9, 3.992572318447076*^9, 3.993119179360752*^9, 3.9931201265765343`*^9, 3.993120623446788*^9, 3.993120735251999*^9, 3.9931207801392517`*^9, {3.993120810491658*^9, 3.993120919536584*^9}, 3.993126398115017*^9, 3.993127109578094*^9, - 3.993127328719265*^9, 3.993129931348179*^9}, - CellLabel-> - "(Debug) Out[67]=",ExpressionUUID->"758564e0-e462-4e8c-957d-3cd8c9522525"] + 3.993127328719265*^9, 3.993129931348179*^9, 3.993826044709017*^9, + 3.9938262208199453`*^9, 3.993826405216135*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"6f997e8b-ca74-496f-8c05-44b990812c57"] }, Open ]], Cell[CellGroupData[{ @@ -4699,19 +4636,18 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "(Debug) In[68]:=",ExpressionUUID->"83bdd55e-e946-4e82-965c-da9c55a23023"], + CellLabel->"In[65]:=",ExpressionUUID->"83bdd55e-e946-4e82-965c-da9c55a23023"], Cell[BoxData[ - RowBox[{"-", "8.129129787064175`"}]], "Output", + RowBox[{"-", "7.850554518705422`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.9925722157597923`*^9, 3.992572318468158*^9, 3.993119179384171*^9, 3.9931201265982*^9, 3.99312062346908*^9, 3.9931207352722187`*^9, 3.993120780163753*^9, {3.993120810569303*^9, 3.9931209195640697`*^9}, 3.9931263981223907`*^9, 3.99312710961084*^9, - 3.993127328741523*^9, 3.993129931371181*^9}, - CellLabel-> - "(Debug) Out[68]=",ExpressionUUID->"581ae010-1231-4ca0-b981-88f1c24ff227"] + 3.993127328741523*^9, 3.993129931371181*^9, 3.9938260447217283`*^9, + 3.993826220837183*^9, 3.9938264052458344`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"54cff728-9995-4b89-8637-7d0bd0263ed3"] }, Open ]], Cell[CellGroupData[{ @@ -4776,18 +4712,17 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "(Debug) In[69]:=",ExpressionUUID->"f8f823be-8610-4f22-9dbc-533917357c84"], + CellLabel->"In[66]:=",ExpressionUUID->"f8f823be-8610-4f22-9dbc-533917357c84"], -Cell[BoxData["173.62046830616146`"], "Output", +Cell[BoxData["125.70524502867676`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.992572215787087*^9, 3.992572318490714*^9, 3.993119179407145*^9, 3.993120126619657*^9, 3.993120624387237*^9, 3.993120735294096*^9, 3.993120780189163*^9, {3.9931208106477613`*^9, 3.9931209195925417`*^9}, 3.99312639812998*^9, 3.9931271096448097`*^9, - 3.993127328762958*^9, 3.993129931395224*^9}, - CellLabel-> - "(Debug) Out[69]=",ExpressionUUID->"d4d851c7-cd70-4ac3-b109-95f55c8d0761"] + 3.993127328762958*^9, 3.993129931395224*^9, 3.9938260447354727`*^9, + 3.99382622085375*^9, 3.9938264052775927`*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"490d651f-7424-45a7-a382-1c7838dc4a5e"] }, Open ]], Cell[CellGroupData[{ @@ -4828,19 +4763,18 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "(Debug) In[70]:=",ExpressionUUID->"dbe3cd19-4cd0-48c1-af8e-a0d307ca0803"], + CellLabel->"In[67]:=",ExpressionUUID->"dbe3cd19-4cd0-48c1-af8e-a0d307ca0803"], Cell[BoxData[ - RowBox[{"-", "161.1868287134346`"}]], "Output", + RowBox[{"-", "123.3235530299229`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.992572215791572*^9, 3.992572318513729*^9, 3.993119179431038*^9, 3.993120126641369*^9, 3.9931206250374393`*^9, 3.993120735303513*^9, 3.993120780214625*^9, {3.993120810674247*^9, 3.993120919619622*^9}, 3.993126398136746*^9, 3.9931271096761827`*^9, - 3.993127328784665*^9, 3.993129931420856*^9}, - CellLabel-> - "(Debug) Out[70]=",ExpressionUUID->"39503f31-36c9-47a9-a139-692afb97a7dd"] + 3.993127328784665*^9, 3.993129931420856*^9, 3.993826044748728*^9, + 3.993826220869858*^9, 3.993826405318976*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"47c626fa-86ea-4aa0-b385-9d73751a076a"] }, Open ]], Cell[CellGroupData[{ @@ -4906,18 +4840,17 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "(Debug) In[71]:=",ExpressionUUID->"6092ca40-2509-433e-a8b8-29bb7669c5e0"], + CellLabel->"In[68]:=",ExpressionUUID->"6092ca40-2509-433e-a8b8-29bb7669c5e0"], -Cell[BoxData["185.6246129509609`"], "Output", +Cell[BoxData["143.3253017055388`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.992572215816564*^9, 3.992572318536264*^9, 3.993119179456161*^9, 3.99312012666339*^9, 3.993120625976398*^9, 3.993120735311919*^9, 3.993120780234991*^9, {3.993120810701437*^9, 3.993120919646469*^9}, 3.993126398145216*^9, 3.9931271097094097`*^9, - 3.993127328806025*^9, 3.9931299314504623`*^9}, - CellLabel-> - "(Debug) Out[71]=",ExpressionUUID->"a98597ef-364c-45c0-9ea5-1b4825faa800"] + 3.993127328806025*^9, 3.9931299314504623`*^9, 3.993826044761198*^9, + 3.9938262208863697`*^9, 3.993826405354545*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"6c82d92f-5593-496d-8021-e23c33300ab9"] }, Open ]], Cell[CellGroupData[{ @@ -4975,18 +4908,17 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "(Debug) In[72]:=",ExpressionUUID->"1d9f9507-a838-4c18-a92c-bedcb4632ee9"], + CellLabel->"In[69]:=",ExpressionUUID->"1d9f9507-a838-4c18-a92c-bedcb4632ee9"], -Cell[BoxData["127.62329334000697`"], "Output", +Cell[BoxData["93.76881016546349`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.992572215864458*^9, 3.992572318557802*^9, 3.993119179480179*^9, 3.993120126684946*^9, 3.9931206278422623`*^9, 3.993120735320333*^9, 3.993120780256549*^9, {3.993120810728241*^9, 3.993120919673271*^9}, 3.993126398152495*^9, 3.9931271097434998`*^9, - 3.993127328827194*^9, 3.993129931478958*^9}, - CellLabel-> - "(Debug) Out[72]=",ExpressionUUID->"33858819-69a1-403d-ba28-550554811b9d"] + 3.993127328827194*^9, 3.993129931478958*^9, 3.9938260447778378`*^9, + 3.993826220904634*^9, 3.993826405396278*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"cd2e5757-f555-4fda-995c-6e01e1ac192a"] }, Open ]], Cell[CellGroupData[{ @@ -5044,18 +4976,17 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "(Debug) In[73]:=",ExpressionUUID->"c4d4b328-ee8c-4b5a-9b11-265fc528d103"], + CellLabel->"In[70]:=",ExpressionUUID->"c4d4b328-ee8c-4b5a-9b11-265fc528d103"], -Cell[BoxData["1146.2262301533601`"], "Output", +Cell[BoxData["873.0988230281508`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.9925722158897552`*^9, 3.99257231857898*^9, 3.9931191795053587`*^9, 3.9931201267064877`*^9, 3.993120629931678*^9, 3.9931207353284397`*^9, 3.993120780277225*^9, {3.993120810753913*^9, 3.993120919701824*^9}, 3.993126398158984*^9, 3.993127109775078*^9, - 3.993127328849209*^9, 3.993129931506402*^9}, - CellLabel-> - "(Debug) Out[73]=",ExpressionUUID->"35e0da26-fbb1-4202-8ff0-863867bf4c08"] + 3.993127328849209*^9, 3.993129931506402*^9, 3.993826044791193*^9, + 3.993826220922607*^9, 3.9938264054517717`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"a9a27c69-5995-4efa-a519-3fd3e339536c"] }, Open ]], Cell[CellGroupData[{ @@ -5064,14 +4995,13 @@ Cell[BoxData[ RowBox[{"f1", "=", " ", "0.356750214360086"}]], "Input", CellChangeTimes->{ 3.991849227197853*^9, {3.993121614826783*^9, 3.993121658847418*^9}}, - CellLabel-> - "(Debug) In[74]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + CellLabel->"In[71]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], Cell[BoxData["0.356750214360086`"], "Output", CellChangeTimes->{3.993126398166068*^9, 3.993127109807927*^9, - 3.99312732887147*^9, 3.993129931531604*^9}, - CellLabel-> - "(Debug) Out[74]=",ExpressionUUID->"7a9ba5d8-5dcb-402a-a462-b815122c9391"] + 3.99312732887147*^9, 3.993129931531604*^9, 3.993826044803669*^9, + 3.993826220928177*^9, 3.993826405481682*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"0083830a-f040-4c8c-a1ae-608d0658fb48"] }, Open ]], Cell[CellGroupData[{ @@ -5080,14 +5010,13 @@ Cell[BoxData[ RowBox[{"f2", "=", "0.144218611066051"}]], "Input", CellChangeTimes->{ 3.9918492290557346`*^9, {3.993121638035821*^9, 3.9931216687363377`*^9}}, - CellLabel-> - "(Debug) In[75]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + CellLabel->"In[72]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[BoxData["0.144218611066051`"], "Output", CellChangeTimes->{3.9931263981726437`*^9, 3.99312710984081*^9, - 3.993127328893229*^9, 3.993129931556403*^9}, - CellLabel-> - "(Debug) Out[75]=",ExpressionUUID->"9f00d3e9-d0d0-457e-9324-48c3219c82c2"] + 3.993127328893229*^9, 3.993129931556403*^9, 3.9938260448167267`*^9, + 3.993826220944092*^9, 3.993826405515332*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"fc35e01b-60fd-424c-aad0-6ba5dacc52b5"] }, Open ]], Cell[CellGroupData[{ @@ -5134,14 +5063,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "(Debug) In[76]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + CellLabel->"In[73]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[BoxData["1.3915391096243312`*^-53"], "Output", +Cell[BoxData["1.4406889235574582`*^-53"], "Output", CellChangeTimes->{3.9913335367025833`*^9, 3.993126398180801*^9, - 3.993127109871058*^9, 3.993127328914906*^9, 3.9931299315829363`*^9}, - CellLabel-> - "(Debug) Out[76]=",ExpressionUUID->"7cc2287a-c99f-448e-a0b1-225c4a5aefdf"] + 3.993127109871058*^9, 3.993127328914906*^9, 3.9931299315829363`*^9, + 3.993826044830431*^9, 3.993826220972838*^9, 3.993826405541567*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"e006fb54-e4f9-4748-bd19-29a2cfd6890c"] }, Open ]], Cell[CellGroupData[{ @@ -5176,14 +5104,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.9915575926932735`*^9}, - CellLabel-> - "(Debug) In[77]:=",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], + CellLabel->"In[74]:=",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], Cell[BoxData["4.807668619842694`*^-55"], "Output", CellChangeTimes->{3.991333536726557*^9, 3.993126398190411*^9, - 3.993127109902104*^9, 3.993127328936863*^9, 3.993129931608074*^9}, - CellLabel-> - "(Debug) Out[77]=",ExpressionUUID->"2a8ffee7-0b21-4081-8eec-27e8822a95a8"] + 3.993127109902104*^9, 3.993127328936863*^9, 3.993129931608074*^9, + 3.993826044845014*^9, 3.9938262209894133`*^9, 3.9938264055776167`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"ebda3add-30af-4505-b223-515ff04c2d0b"] }, Open ]], Cell[CellGroupData[{ @@ -5217,14 +5144,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}}, - CellLabel-> - "(Debug) In[78]:=",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], + CellLabel->"In[75]:=",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], Cell[BoxData["8.297867719396083`*^-55"], "Output", CellChangeTimes->{3.9913335367515736`*^9, 3.9931263981986027`*^9, - 3.99312710993598*^9, 3.9931273289588633`*^9, 3.9931299316337757`*^9}, - CellLabel-> - "(Debug) Out[78]=",ExpressionUUID->"0c1670f5-9b46-4689-8480-fa32ee2f2507"] + 3.99312710993598*^9, 3.9931273289588633`*^9, 3.9931299316337757`*^9, + 3.9938260448587627`*^9, 3.99382622100674*^9, 3.993826405610235*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"e71c65c4-6b8f-407f-9857-4c437a38c3a3"] }, Open ]], Cell[CellGroupData[{ @@ -5247,14 +5173,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "(Debug) In[79]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + CellLabel->"In[76]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[BoxData["11.364577453200564`"], "Output", +Cell[BoxData["11.386437748710877`"], "Output", CellChangeTimes->{3.9913335367605553`*^9, 3.9931263982053547`*^9, - 3.993127109967596*^9, 3.993127328981167*^9, 3.993129931659111*^9}, - CellLabel-> - "(Debug) Out[79]=",ExpressionUUID->"acfe3526-cff7-428c-940e-86625b711309"] + 3.993127109967596*^9, 3.993127328981167*^9, 3.993129931659111*^9, + 3.993826044873336*^9, 3.993826221025661*^9, 3.993826405639052*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"c4494742-109b-472c-8ca0-fa7f3fc38928"] }, Open ]], Cell[CellGroupData[{ @@ -5279,14 +5204,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel-> - "(Debug) In[80]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + CellLabel->"In[77]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[BoxData["17.38230441180636`"], "Output", +Cell[BoxData["17.433496956855663`"], "Output", CellChangeTimes->{3.991333536783556*^9, 3.993126398211788*^9, - 3.9931271099997797`*^9, 3.993127329003345*^9, 3.9931299316840076`*^9}, - CellLabel-> - "(Debug) Out[80]=",ExpressionUUID->"10dfc282-d4e4-412b-9d74-03a285c0a8b8"] + 3.9931271099997797`*^9, 3.993127329003345*^9, 3.9931299316840076`*^9, + 3.993826044887451*^9, 3.9938262210429783`*^9, 3.99382640567439*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"94245f20-4ba2-494e-9d9b-fe98b7d76448"] }, Open ]], Cell[CellGroupData[{ @@ -5295,14 +5219,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "(Debug) In[81]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + CellLabel->"In[78]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[BoxData["3.3511072495835865`"], "Output", +Cell[BoxData["2.869691851631786`"], "Output", CellChangeTimes->{3.9913335367915726`*^9, 3.9931263982181597`*^9, - 3.993127110032962*^9, 3.993127329024397*^9, 3.993129931709456*^9}, - CellLabel-> - "(Debug) Out[81]=",ExpressionUUID->"d3950c65-8a0b-4b6c-ab97-bd5a3cfc888e"] + 3.993127110032962*^9, 3.993127329024397*^9, 3.993129931709456*^9, + 3.993826044901005*^9, 3.993826221060968*^9, 3.9938264056989937`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"e9f00217-c758-43e8-bb0b-066fc891a150"] }, Open ]], Cell[CellGroupData[{ @@ -5311,14 +5234,13 @@ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel-> - "(Debug) In[82]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + CellLabel->"In[79]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[BoxData["8.12047615876537`"], "Output", +Cell[BoxData["7.076841132197015`"], "Output", CellChangeTimes->{3.99133353681583*^9, 3.993126398224197*^9, - 3.993127110070685*^9, 3.993127329046073*^9, 3.9931299317347927`*^9}, - CellLabel-> - "(Debug) Out[82]=",ExpressionUUID->"ae509a1d-0ca7-4772-9cf9-b2b08b7424c7"] + 3.993127110070685*^9, 3.993127329046073*^9, 3.9931299317347927`*^9, + 3.9938260449164352`*^9, 3.9938262210785303`*^9, 3.993826405734591*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"fdba4dcf-61b4-49ac-9e9d-4e98e06b31cb"] }, Open ]], Cell[CellGroupData[{ @@ -5327,14 +5249,13 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "(Debug) In[83]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + CellLabel->"In[80]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[BoxData["141.15258856047566`"], "Output", +Cell[BoxData["123.37408834230764`"], "Output", CellChangeTimes->{3.991333536826782*^9, 3.993126398230122*^9, - 3.99312711010113*^9, 3.99312732906721*^9, 3.993129931760734*^9}, - CellLabel-> - "(Debug) Out[83]=",ExpressionUUID->"71470758-bc8b-47fa-a8b8-44523e4c936a"] + 3.99312711010113*^9, 3.99312732906721*^9, 3.993129931760734*^9, + 3.993826044922098*^9, 3.993826221096349*^9, 3.9938264057662497`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"d2c155ff-f1c3-4b5b-8a09-5b2e25537dce"] }, Open ]], Cell[CellGroupData[{ @@ -5343,14 +5264,13 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "(Debug) In[84]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + CellLabel->"In[81]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[BoxData["38.083917891874584`"], "Output", +Cell[BoxData["32.67556762658818`"], "Output", CellChangeTimes->{3.9913335368508377`*^9, 3.99312639823732*^9, - 3.993127110130691*^9, 3.993127329096725*^9, 3.9931299317880363`*^9}, - CellLabel-> - "(Debug) Out[84]=",ExpressionUUID->"5c5821e6-5130-43c6-8a40-27f6a96f620c"] + 3.993127110130691*^9, 3.993127329096725*^9, 3.9931299317880363`*^9, + 3.993826044946917*^9, 3.993826221114141*^9, 3.993826405797243*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"f9f0787a-0551-4765-b137-dc470152b307"] }, Open ]], Cell[CellGroupData[{ @@ -5539,14 +5459,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "(Debug) In[85]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + CellLabel->"In[82]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[BoxData["0.006180788025435743`"], "Output", +Cell[BoxData["0.0071021700625752545`"], "Output", CellChangeTimes->{3.9913335368758316`*^9, 3.993126398249929*^9, - 3.993127110162187*^9, 3.9931273291203413`*^9, 3.9931299318141537`*^9}, - CellLabel-> - "(Debug) Out[85]=",ExpressionUUID->"e0c11602-0281-4957-b63f-587d7d1160f4"] + 3.993127110162187*^9, 3.9931273291203413`*^9, 3.9931299318141537`*^9, + 3.9938260449607897`*^9, 3.993826221132944*^9, 3.993826405835286*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"2292012d-fe90-420c-a3b3-41341f32309d"] }, Open ]], Cell[CellGroupData[{ @@ -5559,14 +5478,13 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "(Debug) In[86]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + CellLabel->"In[83]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[BoxData["11.272571949995445`"], "Output", +Cell[BoxData["10.515971659481613`"], "Output", CellChangeTimes->{3.991333536973074*^9, 3.993126398434402*^9, - 3.993127110230137*^9, 3.993127329188464*^9, 3.993129931922463*^9}, - CellLabel-> - "(Debug) Out[86]=",ExpressionUUID->"929107ad-62cd-4d27-969c-09f03ec8ab40"] + 3.993127110230137*^9, 3.993127329188464*^9, 3.993129931922463*^9, + 3.993826045128498*^9, 3.993826221198591*^9, 3.993826406072893*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"560e5f27-d8a1-4f7f-9801-f9b90b680898"] }, Open ]], Cell[CellGroupData[{ @@ -5757,14 +5675,13 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "(Debug) In[87]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + CellLabel->"In[84]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[BoxData["0.025867172173930968`"], "Output", +Cell[BoxData["0.030140227158076387`"], "Output", CellChangeTimes->{3.9913335369870644`*^9, 3.9931263985177402`*^9, - 3.9931271102609262`*^9, 3.9931273292121773`*^9, 3.993129931950283*^9}, - CellLabel-> - "(Debug) Out[87]=",ExpressionUUID->"6cd718e0-3375-4a53-8cb0-824dd0c04b69"] + 3.9931271102609262`*^9, 3.9931273292121773`*^9, 3.993129931950283*^9, + 3.993826045142322*^9, 3.9938262212165813`*^9, 3.993826406107977*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"870a78fd-e1ab-4030-bcc8-ce56d2e485af"] }, Open ]], Cell[CellGroupData[{ @@ -5777,14 +5694,13 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "(Debug) In[88]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + CellLabel->"In[85]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[BoxData["5.5102393492541655`"], "Output", +Cell[BoxData["5.1047171156519395`"], "Output", CellChangeTimes->{3.9913335370800858`*^9, 3.993126398580374*^9, - 3.993127110330127*^9, 3.9931273292921143`*^9, 3.993129932012121*^9}, - CellLabel-> - "(Debug) Out[88]=",ExpressionUUID->"1470f1c2-f609-4878-a556-2a0cc37f2d51"] + 3.993127110330127*^9, 3.9931273292921143`*^9, 3.993129932012121*^9, + 3.993826045189228*^9, 3.993826221276187*^9, 3.993826406190134*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"aacd7aeb-f536-478b-bdeb-c27f56e170a4"] }, Open ]], Cell[CellGroupData[{ @@ -5876,14 +5792,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "(Debug) In[89]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + CellLabel->"In[86]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], Cell[BoxData["0.063831488074104`"], "Output", CellChangeTimes->{3.9913335370930634`*^9, 3.993126398590087*^9, - 3.9931271103593073`*^9, 3.9931273293157988`*^9, 3.99312993204004*^9}, - CellLabel-> - "(Debug) Out[89]=",ExpressionUUID->"41648c74-eb0b-437f-b4ec-5aeb63bb86d9"] + 3.9931271103593073`*^9, 3.9931273293157988`*^9, 3.99312993204004*^9, + 3.993826045203475*^9, 3.993826221298603*^9, 3.993826406219832*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"d2db3b66-08a8-4fc6-9d9c-d454586abee1"] }, Open ]], Cell[CellGroupData[{ @@ -5972,14 +5887,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "(Debug) In[90]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + CellLabel->"In[87]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], Cell[BoxData["0.9361685119258959`"], "Output", CellChangeTimes->{3.991333537118065*^9, 3.9931263985991697`*^9, - 3.9931271103862247`*^9, 3.993127329337902*^9, 3.993129932067175*^9}, - CellLabel-> - "(Debug) Out[90]=",ExpressionUUID->"46893405-0948-4f8e-a687-afb44851e6bd"] + 3.9931271103862247`*^9, 3.993127329337902*^9, 3.993129932067175*^9, + 3.9938260452169847`*^9, 3.993826221317156*^9, 3.9938264062459173`*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"73b113f3-bcb7-4368-a590-47e396bd0de8"] }, Open ]], Cell[CellGroupData[{ @@ -6101,21 +6015,19 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "(Debug) In[91]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + CellLabel->"In[88]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], Cell[BoxData["0.05975702920434953`"], "Output", CellChangeTimes->{3.9913335371420746`*^9, 3.9931263986084757`*^9, - 3.993127110415257*^9, 3.993127329360895*^9, 3.9931299320937853`*^9}, - CellLabel-> - "(Debug) Out[91]=",ExpressionUUID->"79750704-94b1-4c94-a61a-6f7e93f91252"] + 3.993127110415257*^9, 3.993127329360895*^9, 3.9931299320937853`*^9, + 3.993826045230915*^9, 3.993826221334115*^9, 3.993826406276043*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"f98e7bfe-faac-4c9e-b0a4-3a585bb6812b"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", - CellLabel-> - "(Debug) In[92]:=",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], + CellLabel->"In[89]:=",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ @@ -6177,72 +6089,79 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991849241512779*^9}, - CellLabel-> - "(Debug) In[93]:=",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], + CellLabel->"In[90]:=",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.523821465765944`*^-204\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.243023871146658`*^-199\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 93, 6, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +a normalized machine number; precision may be lost.\"", 2, 90, 1, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913335371540604`*^9, 3.993126398647735*^9, - 3.993127110464561*^9, 3.993127329400042*^9, 3.9931299321298513`*^9}, + 3.993127110464561*^9, 3.993127329400042*^9, 3.9931299321298513`*^9, + 3.993826045273608*^9, 3.993826221368663*^9, 3.9938264063484907`*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[93]:=",ExpressionUUID->"fa387332-d748-40d7-abb8-f8dc67c30ca4"], + "During evaluation of \ +In[90]:=",ExpressionUUID->"bb877d0b-caa5-408d-be34-0a9630c9581b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6803529553299851`*^-208\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.459507876133783`*^-203\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 93, 7, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +as a normalized machine number; precision may be lost.\"", 2, 90, 2, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913335371540604`*^9, 3.993126398647735*^9, - 3.993127110464561*^9, 3.993127329400042*^9, 3.993129932133155*^9}, + 3.993127110464561*^9, 3.993127329400042*^9, 3.9931299321298513`*^9, + 3.993826045273608*^9, 3.993826221368663*^9, 3.9938264064182243`*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[93]:=",ExpressionUUID->"da2bc801-d228-484e-a808-c6c989d20bd3"], + "During evaluation of \ +In[90]:=",ExpressionUUID->"2516d232-ce18-4eb3-961f-9264ef7d5394"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.1116533580700926`*^-213\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.689501622317295`*^-208\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 93, 8, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +represent as a normalized machine number; precision may be lost.\"", 2, 90, 3, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913335371540604`*^9, 3.993126398647735*^9, - 3.993127110464561*^9, 3.993127329400042*^9, 3.9931299321356363`*^9}, + 3.993127110464561*^9, 3.993127329400042*^9, 3.9931299321298513`*^9, + 3.993826045273608*^9, 3.993826221368663*^9, 3.993826406425291*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[93]:=",ExpressionUUID->"1a6bc40a-a87a-4639-8370-fe7df5a778a0"], + "During evaluation of \ +In[90]:=",ExpressionUUID->"1fd60472-db0c-4320-8b9a-e7a9b01a6871"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 93, 9, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 90, 4, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913335371540604`*^9, 3.993126398647735*^9, - 3.993127110464561*^9, 3.993127329400042*^9, 3.993129932137561*^9}, + 3.993127110464561*^9, 3.993127329400042*^9, 3.9931299321298513`*^9, + 3.993826045273608*^9, 3.993826221368663*^9, 3.993826406433241*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[93]:=",ExpressionUUID->"03379fc2-13b7-4652-b6bc-27f60ae80517"], + "During evaluation of \ +In[90]:=",ExpressionUUID->"641cab47-2e3f-40f8-b7a4-ce743c57b282"], -Cell[BoxData["11.272571949995436`"], "Output", +Cell[BoxData["10.51597165948162`"], "Output", CellChangeTimes->{3.9913335399194164`*^9, 3.993126400712997*^9, - 3.993127112857092*^9, 3.993127331852377*^9, 3.99312993459098*^9}, - CellLabel-> - "(Debug) Out[93]=",ExpressionUUID->"16020b0e-a0ea-46f9-a413-1a75747d7807"] + 3.993127112857092*^9, 3.993127331852377*^9, 3.99312993459098*^9, + 3.993826046616947*^9, 3.993826223322362*^9, 3.99382640922775*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"3497bfd1-ce48-4109-917b-0d1c128d21f9"] }, Open ]], Cell[CellGroupData[{ @@ -6305,72 +6224,79 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9918492463930817`*^9}, - CellLabel-> - "(Debug) In[94]:=",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], + CellLabel->"In[91]:=",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.523821465765944`*^-204\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.243023871146658`*^-199\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 94, 10, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +a normalized machine number; precision may be lost.\"", 2, 91, 5, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913335399544125`*^9, 3.993126400753316*^9, - 3.993127112895788*^9, 3.9931273318886557`*^9, 3.99312993467347*^9}, + 3.993127112895788*^9, 3.9931273318886557`*^9, 3.99312993467347*^9, + 3.993826046699052*^9, 3.993826223364048*^9, 3.9938264094008904`*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[94]:=",ExpressionUUID->"444729df-4cf2-4bbb-8351-ae7b66972d10"], + "During evaluation of \ +In[91]:=",ExpressionUUID->"d7771102-a804-4957-b22a-6054244acce8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6803529553299851`*^-208\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.459507876133783`*^-203\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 94, 11, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +as a normalized machine number; precision may be lost.\"", 2, 91, 6, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913335399544125`*^9, 3.993126400753316*^9, - 3.993127112895788*^9, 3.9931273318886557`*^9, 3.993129934675859*^9}, + 3.993127112895788*^9, 3.9931273318886557`*^9, 3.99312993467347*^9, + 3.993826046699052*^9, 3.993826223364048*^9, 3.993826409406901*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[94]:=",ExpressionUUID->"7753222d-063b-48dd-9058-bf3297812306"], + "During evaluation of \ +In[91]:=",ExpressionUUID->"fcdd6906-2d30-4e93-96fc-559e0dee6512"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.1116533580700926`*^-213\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.689501622317295`*^-208\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 94, - 12, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +represent as a normalized machine number; precision may be lost.\"", 2, 91, 7, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913335399544125`*^9, 3.993126400753316*^9, - 3.993127112895788*^9, 3.9931273318886557`*^9, 3.993129934678021*^9}, + 3.993127112895788*^9, 3.9931273318886557`*^9, 3.99312993467347*^9, + 3.993826046699052*^9, 3.993826223364048*^9, 3.993826409414914*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[94]:=",ExpressionUUID->"78d7eb9c-730a-4116-8f6e-359dcb39d6e5"], + "During evaluation of \ +In[91]:=",ExpressionUUID->"57a12462-94d0-46e5-9a6b-ff324d8a7628"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 94, 13, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 91, 8, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913335399544125`*^9, 3.993126400753316*^9, - 3.993127112895788*^9, 3.9931273318886557`*^9, 3.993129934680065*^9}, + 3.993127112895788*^9, 3.9931273318886557`*^9, 3.99312993467347*^9, + 3.993826046699052*^9, 3.993826223364048*^9, 3.9938264094217863`*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[94]:=",ExpressionUUID->"612d1970-272d-4415-a2b6-367f92a5591d"], + "During evaluation of \ +In[91]:=",ExpressionUUID->"bbabadfa-db85-413e-930a-bc41af648212"], -Cell[BoxData["5.510239349254163`"], "Output", +Cell[BoxData["5.104717115651942`"], "Output", CellChangeTimes->{3.991333542631773*^9, 3.993126402745738*^9, - 3.993127115387978*^9, 3.9931273343339376`*^9, 3.993129937038766*^9}, - CellLabel-> - "(Debug) Out[94]=",ExpressionUUID->"7e8a05a5-2935-4bac-a180-696536d5ea81"] + 3.993127115387978*^9, 3.9931273343339376`*^9, 3.993129937038766*^9, + 3.993826048044986*^9, 3.993826225264285*^9, 3.9938264123451653`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"9aa07968-44fd-4440-b28e-717265101e8a"] }, Open ]], Cell[CellGroupData[{ @@ -6427,94 +6353,93 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9918492535482903`*^9}, - CellLabel-> - "(Debug) In[95]:=",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], + CellLabel->"In[92]:=",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VdsbB3AZSoYyXCSRTF1jrmNs8L4hIlQajEmcsw2ZqSiXJrpFioQG -ESnJFGlAUvmVShFSuqV9DCeZkgxxdrff6o/97OfzrGd917v2evd+9jLfMBeO -oICAwAC5ft8jXhksv9P6yjLcYrc/VUiD5egVE1+bEhB/ROX+Np1rmqFhUwcq -p7bZ+RNvYr+cK8H6H9A3zHYGEN+MSXgsYtMMH3QkPwcSH3+yqCGh+DWoanV2 -7ya+1xpxiTF6A6oP0m1DiQffP4+LrX0HD1SsVSKIF/ere05ZfwCvPZ850cQb -vsZZRDV/gsrZBOUY4npmUDymmAsCoxLr4og7DykcuB3aC91nUz8cJB6dazM4 -YdQPASjSl0g8NyXcnTXNAw3rCM9kYhXpnKaI2gFgZtus0oidlaaujloPwzL1 -2F2XiKk8NXl90VE4EFmfXUicoLkxcXfzV9A14UMp8TuFjr+ii78BW2NH931i -tkdQ4JmUcUjdfeTNE+KxiwKXK0O/g4FnwepWYlE1falvRpPQVtPm0UecwX5s -JyU3BT0He6W/Eqtec09YMT0FmRfGzGeJzfWSRkNqf0BTs+Bb6as0BJh+ah60 -ZqCsQnmLLfFEzB5hMa2f8D52+YmtxAdrxVdri/4HE1uN//IjzkbzG/7Nv2BQ -z7PlEDG7sMkmsngOSsTMbmgkLn5yhj6kJIjvKyyEOonHPnvHpaUI4mjGUZ0B -4jidyaqKUCH8ZG71TPIaqbd8mfpXIxHsSDpo5038vnW4/r8CEQyIw4QoYtXx -Ox4L5OZic7r88uPEJcbO6frTc/HZF7Gn1cSN9/bPCa4VxQwPy/V/FNEw+bj9 -04C1BMrHW2zmEcs4SkgdqJdA+qvgmPB1Ggw7bFDSQhJzJYpkNIiD+qrz/jJY -gDj/VK8fcbhgs+EaCSm0y5O/9YW4X63sW+KUNKak+MosuEGeD/V8fgtLBg0e -qo4ZEwve4C1bFCGDV7bwNnsRq7KWuhQPyWAj78zlEmIP69OVr2hZ5Lm+jthS -QkOLX2SUwgs5tK+rfXevlIbua6nJPqLySEnu+zFAPDxUXHB9nTzm3Qu7uKiM -BrHo3vZVDfKoJf5nRCyxzdGtxj7VCuiivdR5bTkNNVdMJ4tyFbGuM6frSwUN -V/pn966MVkYj47Ktl27RsH7bse6oUmW8Gpn6tIt4uFHWtpSnjGLVRmVy1TQY -X9GTU3VXQch825lK3OjrXSViuRQX35mbmXSbhvGv9L6BI6rofa6qJfkuDbIh -NreqnNTwq0vpxpE6GnhXxAI2BamhbOxxa7P7NNz90Ko0kqSG85bV3jhE7OW4 -44hWgxqeM2Z1KdST+nT3upwzUkemU+S6/QOy/uC1sXgFDaxf81z18UMatvqL -6ztwNbHzjHyW5FMaYO82I9efmjio4+TLJtZJzDVjK2rhpON/ObXEAgUsq/jN -Wmg1y6N2N9FQ2u3pWvlQC7UkoqD1GXk/t5ccWpy/HPuSM6XKm0l9Nk6dg77a -2Pzj5I6HbTQUbMn6dzpeGzXqiqy12mlI9eXSwhe0UcZE8EIyMfvgniGVdm10 -u52c49pBg3RdjsAWax3My6wan3hD+oc1qlOrros1r6x7bbpoUFI7lZDcp4fu -Yc4LVtI01J2Y0J4R1MenCoFjt4m9vrt3UMv0UU+mxc2YS8OlRg1tK299FAsu -qDPsoUHNv6btx1t9VJiJe72ij+y3pF+TemGANTOp5nYDNCgrqVCq7obkfFSt -/x2jQa8wWoIPRhhmx88/L8QFX/aRSX1nI1yQrPrSQJgL2erp3T5eRsh0nQt9 -TCyUX17xJMYIL6pUKIyKcOH9pcGt6TeN8F32ISF7US4cz/bJ0VZnoeXRow5y -klzgJTsauM01RraLcPc8BS5cjtTYVN1sgjN9ztGuelyo7G5IXvTBBFMGs+8t -0ufCI4cdTw8MmWDPPrPU98R9apmWVmKmeDiorH/nCi5otc/Tb7EzxZYW3Y0R -RlwoYQ3N//LIFH/KPVMsN+fC3Ymbj5fcM8NI+y+zmeu40LoXzI4WWuB5R+0D -Sru4sMz7jfOO4DWo07vG7FMOFzi/bpcpxyKK6e1SedXNBYWhu/MUfK1QvlD3 -dZJBD0SzVn9I17FB151NdkKHe8B3hGmSHVyHenfUf5V+6IFSq6h5uS12qPvP -A/vt9r1wZSLoYUmGPR4Rdi9vutsLP9YuetmYsAHPl1dOSazpg48CQt+4u5zw -1eVKsXkv+iB0SdjpQ+ob8aWki8ljj34oC2xqOJu4CdP2JW3IEOLB/u+K07qB -m/HOSLBPaykPJh1stz/d6YIpsbZqFdGfwcIzbW3/5i3owcs6rGY3AG2KOUGN -rK0ob1ogelrxCyy+eqSu6M9t+ERir9VlyUG4S+s4Oktux33e8gOfBYZApWPM -f+/IdmwpETT8678hYJ1NKymgXfFncbbY62UjkCP83SD9sRvaRUVbDq0dhdtr -V7xPvOeOO/j716Qkf4VssxPSTLEHyg6bN1mGj0HLv4VJrBRPfLP7ZNAD+W9Q -7XRRI/ygF7rlL0ySbv8G30K2CISyd6CSrUNMxvFxmLTVDhi19saZNfLmf1h9 -h6KRrh9RpjuxY+2b2YSFE+B2udBvh4QPbp7jHvKhbQKqKjfsFDrmg9O5Xk/E -rk+ChVLbzPEZH0x4YYGHI6ZAnfZ//zpwF5Zsbs5KM56GPvHdGy/27kJ6Tnu1 -nPAPaE119rPb5ouu6+Ud9z34ARkxueJ7Wn0xfNWQVOnBGair/zXjZ++HsV4G -5/GvWVjohcdYNX7ofy3QcvfTWbDwGS1KNGZjck+gqacrH66eG4tyNmVjfFdn -1QZ3PvzRPm6pYM7G2L5fEys9+TC6brqjaBUboz11G+R28sn3S2BOsxUb6cz9 -gXUUHxZMS7vLbGZjnUNk4ss9fOg7aTI/N4SN7+arfZxN50NqbVzg3atsjNLv -fOv7jA8hRlkWMUVslOr0vzX9nA+O12/ONy9mo9LHuZDczAexLN71O6VsbHiZ -4FXWwofEyE2Dt2+xkW35vbjvDR/itDV2Vz9iY3Fisa50Dx+Csl4EV3azsfNt -dRw1wwf7BbzVkTQbTXT2GbXO8uHPRAFJox42TmUeOWbO8IEXaVJ6s5+N+z3v -S4r84sMu59yRimE2ihckxZ8UZsBNJCq0fJaNcuKr0zwXMmAXtTi8RJ6DB9cV -nfyizsCj3CSH9EUclN3GYq3VZGB187hGzGIO/vmtTztLiwFDzRdd1ioc/DDv -gailNgOKbw9Y/6vJwffjR+P3GTAwtPKjvJgJB6nnXz5mmzNwSjDvvv8WDoY8 -1l2evoEBsRUS2U7bOHiinS9S5cjAUc+YSJYrB+/nLV/e5sRAzK1Ny395cHD3 -Eq6B+CYGdlFz0jJ9ObikWmN9wFYGWM992f+L4KDXJNi+8mLgbZqmuPppDg6X -bbxlG0z+c0AyYCCNg8az3heXhpD8kYnG0jMcbIy9MTlFbGTfGG+excGplo+z -eWEMpAr4jTtd4qBd+1e7nkgGbMPyumJKOPgoqbRCMZYBZeV/TC3LODjaI5HS -RTzxPOyMUAUHNeOCOrL2M5CvBU6pVRw87Kp2Y2EcAz8/fmwoqOHgQl5Z4HA8 -A7cclYpeNXFQrWvVlPtRBpJnBUUynnMwrb/pqEAiA75Fg7vcmzkodzgrrpBY -SrhGqa+Fg4buS64NJjEQXOt2aqaT1GvWyd11nAF1ncy9Gv0cPB+wqUEolYHZ -t3+3f+Fx0O+a+vPTxK2JHMPyAQ7umxFYueQUA/Fc40GLYQ5GhKhsMDjNwPvs -9h0bv3OwPLRHH9IZSJ8nvW7/HArr2WtaZDMZqBv/6BktRCHvAjcqg/jzx+LI -UBEK92x3kJfNIv1wyybPdz6Ftv9mbBHLZoDnE8N3kKZQqiqkmD5H6ndcJ7NO -lkKm9pTZ5vMMrDKT0QY5kqfa2/CA+LRkyXaWIoUlfuynmRfIeM2nm0rLKDR4 -OXxJL4cBqrCkSU6dQsm2ctGTxKdPx35aqElh5ZhtyBAxj5KVFNam0GHERSv/ -EhmXtQsYNqQw5ljtlulcBmr+k03gGVEYJ/X9lF0eA/1f6LO0MYXdN97+7yzx -yob9jzvMKXz4QENF7zIDfcFlKveRwgNF1N+Yz8ACtwMmd6woHF187shBYgvr -9Y43bcj6Sv8cridOVeyJLVxPYdgjVpBxAQN3hctP5zpQGHq83iWYuPfrgWvn -HCkcV81n5RObP5F7c3IThWLhit3zrpDzvtkzdMyFwmz1w9fMiE9eLBc8vJVC -OnckgEPcE2lvuNeNwmceB9triCW95e3CPSicG3UkrofY3L53R5AXheHz1iqL -FpL5S/9O9vah0PdFyTon4rtiDvluvhT631rzMpi4Z1L+ngubwsYUZ8cTxJLc -3hZHisJzb9seFRKbN1fwbAPI/Il6wwfEvnf+/olBFL5TEc3s/J2f7/DHqmAK -VcOujA/9zj+poGsSSmFh1wnbX7/zY/rWrgincPuKqjSpqwxIsG+6aUdSmKIs -37GU2GxjfJh6NIXKBqWS+sS+KzckKe+lkHoaaWlOnKK5KEchhkKWni+1lvi2 -VH+V9H7SPwf2Ja4n5vJvPhePo7CosvyC0+/8z/FckXgKnxSJXt9EbNq24cev -BAqjZA+Vbib+P4rqAUI= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk01dsXAHCkMj9DGSNzXUW6ZsreZRaSSpTxuvcbEkLySrxeqVchSdEg +muVRaaCkforkRRGaZLjXcCtT5ul+q9/pj7PO+qy9zj577XXOWUeLFeXFERES +EvpKxu951xujJWWNb2zD98R97X/NBduhq2Ys+yJIGovRHCDm5pln6dpXQOW5 +8Nrf9mS/nidl8gKWJWzjDhKXJCRXzbWvh+lch9DvxEdrlCuTC9/CWz1G0Ajx +o8ZdF2nmO9hnPK92jLiv9VXin48/giO/LW+SWLVXZ9ukXRukxRd/mSFe9z3R +Kra+E+yVE/J+ED+l+yQTCnngJ776pfAbLrw/oLSvNLIb2CfogHnEQ/Ps+8aZ +vfBjspSSJJ6XGu1rMsUH56yIDlliDbnc2l2Pv8Kh5+o1isQeapPXh+wGoDok +rleHmMrXVjQUGwKpu6rqy4iT9dan7Kj/DnednlYziT8qtayMKxyB6fW/QuyI +2VvDw06ljoLtx9xtbsTDF4Qu3Y0cA9dmm6rNxGLahrIjzAlwzk3oCiPOYlc5 +yS6cBL8K5XNxxJo3fJNXTE1CzFD5s2Riy+WHh3Y+ngbrRLHgbOJQ8876Pjsa +VCM6OuuIxxN2i0ro/4Aa9WtKrcR/PZZcxRD7CRUH4v73lTgHLf/dXv8L/rBZ +GTi/gdR3rdY+plAYWfOg04W4sOYU94CaCFoUbs/eRjz8JSDxZKoIhsVe+t9O +4kSDiXt3IufgVmv3oFPEWbe1dL4z5+K5zIKubuLWxoGnP6/MxYP6+9VmiDVH +y7bKLJyH9/V3Vss0cqHI1CPTcGoeWqteo2yIqx/tFY54LIYtyy4OnCWeqGru +/Gonhfl8JaGIt1yQd5OS3fdUCtdXcPKPERu32KO0lTRG9mVV3yQO73mQv9JI +Bof5+TnfiKNF6o1XS8mibtn9qKgmLvRq3xpJmZTDiTSltlPNpD/UK/EGE3m8 +kHL7cTmxyL98LeVd8pjyYuPiLmJNk8Vehf3yKLPqdQyzhQtb7TLuvuEq4JD4 +Z9dPxA0hMbFKdQvR+6jNc3jPhY4b6ceDxBTxY7RyTyTxQH/hlZsOiniuyPzY +RWKJuO5mm0pFfPLCIeQXsf2hTaZBD5TwhKWSy8sPXCi/aj5RkKeCEVpD/KhP +XLjaOxtvHaeO5Sll/+i2c8F585GO2GJ1zIzv+xFIPFCt4FjMV0fp6i7+eWLT +q8sXavpqYHiiyYKFHaSfrIB7c20XY7rDyzapTi6Mfufu+XpQE9UuBDHkeVxQ +2Gl//567NipZMBtie7nAvyoR6hmuja8GOS+eED9sa1QbPKyNt4YGV4jxueDn +5n9Qv1Ibo0tkWBeJry6L9zrL1EFzDU2bxi9k/74bw0lKuig7d84Llz4ubNou +aejK08NuO5Z/1ncuQPxm5pYfevivZ4ZBP7FBSp4FW0Uf3z40DV07zAWhKyZr +kzbo4yXBpOkocXHHti13n+njSNKvBVtGyf30LjqgenkJNp1kjJtNkPrs3d/3 +sRhoGXLZx1nAhSsbsz9PJTGQXTkDxcTpLB5X9DwDI7X+yZGnyfn+a3e/RjMD +dXtCcjuI5SpyhTbaGeCFkjeT+36S82MyZPBYZxm6a9kN1QnzQE37RPLxnuVo +0Fq8+JkYDyqOjTNmRAwxIOOtsK04eVfGfFsoLUOsecIMf0x8sVqXsTbAEI1s +ml+XSfBAe3t50/QHQwxXzuaVSvHAoKhXj6ozwpjGXLs3sjxQV9OgNH2NMdPD +w4KlwoPl1+KkBMDEnz/Ml2kt5wGLfXDC0IOJK05UeT4gztHJ7AjyY2KbcNqg +iyEP5ly+facmgYnHNv1IjTPiQevFvk2ZJUy88J7NbjDmwdGcoFyGjgkaHRzZ +f96MB/zjbkY+80yxevby5TTgwaUYXc8H9WboqbJHqG0TD+52VB5XbjPDFUsb +LHM38+C5q//Lff1m6G6wQSjQmwc92mds10qYY5aWzOqeLTzQb55v2OBkjk7t +klETW3lQZNIv/u25OepZWD1nBvPg4XhJ1aJHFuhz73yGSiQPGuPB4tA1K9RX +tnQ9f5QHWgHvPPwjVuOrujep3jU84PwqvaX+J2LJ1I6PlvO7QKn/4Xwl1lrs +88pVaPfugjiTVW2ZBvbYXaiMtoVdwBqkaxX6HJDnlZhdLdoNxWtj5+c1OGHP +wXwNy13dcHU8/FlRlgsucpxQDud2w/Qa5dfVyevwW0Dp35vYPdAuNGeEF+yO +j+ZmL+wY6YHIRVEZB3TWo+LumfNKB3rhVlht5ekUT3Tpfz9rxeDD3jGVqWVh +G1C8Z0/7rSY+TLg6er8M9MLzNVNCR3O+gNW2k2t6N2zEglx1yRdhX6FJJTe8 +2mQTZnaHO7ZafwPV6wcrCpZuxj0poSuYhn3wkGvg5iHtjRVqp0uyNPpBo2V4 +e/ygN84yeJfKVAbA5PTJoivcLWh45Kj5VetByBUdM8qs8sFPSjaNH7YMQema +Fa0pj3wxTs/7WGfud8ixOCZHF27FqM5L29l7hqHh87XDJqnbsLLVv7ZGbQQe +uF/Qjf7LD7usJJ4dfjcCIzs3CkWy/XFSwnZ54NFRmHBkhA7ZBWDl7P1hIRiD +gsFP07HmgZg7uNNcTHwcfC5dC/GXCsJu8eveM7XjcO/uusA5R4Lw6QHf0yvP +T4CVWtPM0ZkgPPeuTvxZ4CTocLe3vg0LxpyDb+taNKagR3LH+gvdwWgWe/fv +vm9T0JjuEeK0mYU1SyLWaV6ahqyEPMndjSw0b3IL7vCfgYqnv2ZCXELQ5sHW +1RYSs/CHHx4xKQ/BpfFyzsUXZsEqaKggxZSNuX4qxtNLBXD97HCshzkbL2qf +GP1sIIAFzaO2SpZsZArXJT9dLoAhh6mWAhsSH98wnWwsIO+XkHD9WjZmHn23 +YdxCADJTcr7yG9h4JHYz47KjAHrSzMTzdrLRWHlPmkyIANIfJ4Y9vM7G65dk +zaVyBLCTmW2VUMDG6IS2/WfOCsDtZom4ZSEb+RPv9i0+LwCJbP7NsmI2VpUl +5BheFEBKjGdf6X02zhHLc7K+KoBEhu6OB8/Z+C09VWnhHQGEZ9dF3O1g46Ni +CHpdIwAXGf6qGC4bMxZVphvWCmBpipA0s4uNaUGOnNT/BMCPMSsu6WUjb3ep +mGO9AII98gbvDLDRYc0e9ZtvBeAzNzby9iwb23xstY3aBOAUqxpdpMjBg/4b +XhkPC+B53mHXTGUOdka6eyWPCGBV/ahugioH3fb6mdePCsBYr+6TnQYHGzrq +ZIMnBKDyYZ/dZz0OLph6KLxnVgD91u2KEmYc/Hyoa8dGURpOiOQ/2b6Rg876 +e6BOkQaJFVI57ps5eMdCObRHiYZD2xJiTLZwcOW5vA6BMg0J9z2X/NrKwa7l +z+/pqdEQTAmfPMPiIOO0+hh7MQ0mr1jsF7s4+CLbN/LkEho+nNST1Mng4Lrg +72V55jTcAunQryc5WOr4+XWMBck/OF5dfIqDBWWHAu0taWC6VCdZZnPQX/7n +eJcVDelCIaPuFzmYbKfPk15Ng2NU/qeEIg7m/l1xSJX8m9TV/zG3vcXBIy4B +Fu+Ix19FnZpzh4NLbxcFp9vTcFkf3NPvcbDsD79FtAMNP9rbK6+Uk/7k/qnz +wpmG+25qBW9qOTiaNewg7UHD8VmRuVmvOIhWHVtuE7MK+oJ96znIjulpX7+e +BlnRcrWeBg6mTVMOqZ40RDz2OTHznoPKN84kjnrRoGNwJl63l4MZ+R8D47bQ +MPthf/M3Pgeb1hw//4O4MYVjfPsrB/mSa51TfGhI4pn2WQ1wcLhYbPyELw2t +Oc3+68c4WH7HKCNzGw2Z8+Uc9gpTuPSZUalbIA0Vo+3b4uZQmPG/5bz/iL+0 +F8ZEzqWwuPaZkkMQDavu2+ezxCn8eKr3ulkwDfygBIGrHIVPl5Q4/WKR+t0c +5B0UKJSgf/4XEUKDjYU8AxZSeGww2PsjcYZ0kbeJCoUxiQ9Sb7JJvLyzRE2L +wpGmnnBTigbqWlHtQh0K23Yvscokzsj4s/MPPQpduo1lh4j5lIK0KIPClT5C +H/O2k7iCU+iAMYWRVTmv+kNpKP+pkMxnUuijr/DZKoyG3m/c01xTCvcOWI2l +EFtX7q1qsaSQ+0XGWjmchp6IWxpPkEJt6ywNvR00yPjsMytbS2FdPiMshNjK +ztmtxJ5CEZOU8jzidJWuP685UzjjvGyXfAQND0VvZ+S5UnhN1vG9M3H39303 +zrpRWHv85Zr9xJY1C9+leVKYxShYxiVmlXT1H/GiUFSz46bMThrSLtwW+XsT +hSW7lhrZEHfFuBjH+1Co+eGOczqxdICiU/RWCpU31HfcJ7Z06fYP96Pw7Wjp +3k+/1y/efzwgiMKalCdViyJJPRKul31YFD7c9STahrhrQvGRF5vC0b2bdHyI +pXndDW4UhYXF8Z9jiC3r7/AdQynkf1U+e5yYVbb/B4ZTeKjD2O8ycdpl1wU2 +ERQGKTzQLfudP01pmVkkhTqdF0b/+50/oWfNimgKUyO4L1qJpdglPowYCt0e +JVz8RmyxPilKJ47090xg4uTv/NbrDqvHU/jh+olA4SgaUvWUc5USKHRliTpL +EJfK9t6T20thtHy5mRwxT1DySjKRwvUtxUsViaW+JPHmJlGomtOuqUJs3rRu ++lcyhbpazhqqxP8HQ90JWg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6528,107 +6453,107 @@ BAqjZA+Vbib+P4rqAUI= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AZSoYyXCSRTF1jrmNs8L4hIlQajEmcsw2ZqSiXJrpFioQG -ESnJFGlAUvmVShFSuqV9DCeZkgxxdrff6o/97OfzrGd917v2evd+9jLfMBeO -oICAwAC5ft8jXhksv9P6yjLcYrc/VUiD5egVE1+bEhB/ROX+Np1rmqFhUwcq -p7bZ+RNvYr+cK8H6H9A3zHYGEN+MSXgsYtMMH3QkPwcSH3+yqCGh+DWoanV2 -7ya+1xpxiTF6A6oP0m1DiQffP4+LrX0HD1SsVSKIF/ere05ZfwCvPZ850cQb -vsZZRDV/gsrZBOUY4npmUDymmAsCoxLr4og7DykcuB3aC91nUz8cJB6dazM4 -YdQPASjSl0g8NyXcnTXNAw3rCM9kYhXpnKaI2gFgZtus0oidlaaujloPwzL1 -2F2XiKk8NXl90VE4EFmfXUicoLkxcXfzV9A14UMp8TuFjr+ii78BW2NH931i -tkdQ4JmUcUjdfeTNE+KxiwKXK0O/g4FnwepWYlE1falvRpPQVtPm0UecwX5s -JyU3BT0He6W/Eqtec09YMT0FmRfGzGeJzfWSRkNqf0BTs+Bb6as0BJh+ah60 -ZqCsQnmLLfFEzB5hMa2f8D52+YmtxAdrxVdri/4HE1uN//IjzkbzG/7Nv2BQ -z7PlEDG7sMkmsngOSsTMbmgkLn5yhj6kJIjvKyyEOonHPnvHpaUI4mjGUZ0B -4jidyaqKUCH8ZG71TPIaqbd8mfpXIxHsSDpo5038vnW4/r8CEQyIw4QoYtXx -Ox4L5OZic7r88uPEJcbO6frTc/HZF7Gn1cSN9/bPCa4VxQwPy/V/FNEw+bj9 -04C1BMrHW2zmEcs4SkgdqJdA+qvgmPB1Ggw7bFDSQhJzJYpkNIiD+qrz/jJY -gDj/VK8fcbhgs+EaCSm0y5O/9YW4X63sW+KUNKak+MosuEGeD/V8fgtLBg0e -qo4ZEwve4C1bFCGDV7bwNnsRq7KWuhQPyWAj78zlEmIP69OVr2hZ5Lm+jthS -QkOLX2SUwgs5tK+rfXevlIbua6nJPqLySEnu+zFAPDxUXHB9nTzm3Qu7uKiM -BrHo3vZVDfKoJf5nRCyxzdGtxj7VCuiivdR5bTkNNVdMJ4tyFbGuM6frSwUN -V/pn966MVkYj47Ktl27RsH7bse6oUmW8Gpn6tIt4uFHWtpSnjGLVRmVy1TQY -X9GTU3VXQch825lK3OjrXSViuRQX35mbmXSbhvGv9L6BI6rofa6qJfkuDbIh -NreqnNTwq0vpxpE6GnhXxAI2BamhbOxxa7P7NNz90Ko0kqSG85bV3jhE7OW4 -44hWgxqeM2Z1KdST+nT3upwzUkemU+S6/QOy/uC1sXgFDaxf81z18UMatvqL -6ztwNbHzjHyW5FMaYO82I9efmjio4+TLJtZJzDVjK2rhpON/ObXEAgUsq/jN -Wmg1y6N2N9FQ2u3pWvlQC7UkoqD1GXk/t5ccWpy/HPuSM6XKm0l9Nk6dg77a -2Pzj5I6HbTQUbMn6dzpeGzXqiqy12mlI9eXSwhe0UcZE8EIyMfvgniGVdm10 -u52c49pBg3RdjsAWax3My6wan3hD+oc1qlOrros1r6x7bbpoUFI7lZDcp4fu -Yc4LVtI01J2Y0J4R1MenCoFjt4m9vrt3UMv0UU+mxc2YS8OlRg1tK299FAsu -qDPsoUHNv6btx1t9VJiJe72ij+y3pF+TemGANTOp5nYDNCgrqVCq7obkfFSt -/x2jQa8wWoIPRhhmx88/L8QFX/aRSX1nI1yQrPrSQJgL2erp3T5eRsh0nQt9 -TCyUX17xJMYIL6pUKIyKcOH9pcGt6TeN8F32ISF7US4cz/bJ0VZnoeXRow5y -klzgJTsauM01RraLcPc8BS5cjtTYVN1sgjN9ztGuelyo7G5IXvTBBFMGs+8t -0ufCI4cdTw8MmWDPPrPU98R9apmWVmKmeDiorH/nCi5otc/Tb7EzxZYW3Y0R -RlwoYQ3N//LIFH/KPVMsN+fC3Ymbj5fcM8NI+y+zmeu40LoXzI4WWuB5R+0D -Sru4sMz7jfOO4DWo07vG7FMOFzi/bpcpxyKK6e1SedXNBYWhu/MUfK1QvlD3 -dZJBD0SzVn9I17FB151NdkKHe8B3hGmSHVyHenfUf5V+6IFSq6h5uS12qPvP -A/vt9r1wZSLoYUmGPR4Rdi9vutsLP9YuetmYsAHPl1dOSazpg48CQt+4u5zw -1eVKsXkv+iB0SdjpQ+ob8aWki8ljj34oC2xqOJu4CdP2JW3IEOLB/u+K07qB -m/HOSLBPaykPJh1stz/d6YIpsbZqFdGfwcIzbW3/5i3owcs6rGY3AG2KOUGN -rK0ob1ogelrxCyy+eqSu6M9t+ERir9VlyUG4S+s4Oktux33e8gOfBYZApWPM -f+/IdmwpETT8678hYJ1NKymgXfFncbbY62UjkCP83SD9sRvaRUVbDq0dhdtr -V7xPvOeOO/j716Qkf4VssxPSTLEHyg6bN1mGj0HLv4VJrBRPfLP7ZNAD+W9Q -7XRRI/ygF7rlL0ySbv8G30K2CISyd6CSrUNMxvFxmLTVDhi19saZNfLmf1h9 -h6KRrh9RpjuxY+2b2YSFE+B2udBvh4QPbp7jHvKhbQKqKjfsFDrmg9O5Xk/E -rk+ChVLbzPEZH0x4YYGHI6ZAnfZ//zpwF5Zsbs5KM56GPvHdGy/27kJ6Tnu1 -nPAPaE119rPb5ouu6+Ud9z34ARkxueJ7Wn0xfNWQVOnBGair/zXjZ++HsV4G -5/GvWVjohcdYNX7ofy3QcvfTWbDwGS1KNGZjck+gqacrH66eG4tyNmVjfFdn -1QZ3PvzRPm6pYM7G2L5fEys9+TC6brqjaBUboz11G+R28sn3S2BOsxUb6cz9 -gXUUHxZMS7vLbGZjnUNk4ss9fOg7aTI/N4SN7+arfZxN50NqbVzg3atsjNLv -fOv7jA8hRlkWMUVslOr0vzX9nA+O12/ONy9mo9LHuZDczAexLN71O6VsbHiZ -4FXWwofEyE2Dt2+xkW35vbjvDR/itDV2Vz9iY3Fisa50Dx+Csl4EV3azsfNt -dRw1wwf7BbzVkTQbTXT2GbXO8uHPRAFJox42TmUeOWbO8IEXaVJ6s5+N+z3v -S4r84sMu59yRimE2ihckxZ8UZsBNJCq0fJaNcuKr0zwXMmAXtTi8RJ6DB9cV -nfyizsCj3CSH9EUclN3GYq3VZGB187hGzGIO/vmtTztLiwFDzRdd1ioc/DDv -gailNgOKbw9Y/6vJwffjR+P3GTAwtPKjvJgJB6nnXz5mmzNwSjDvvv8WDoY8 -1l2evoEBsRUS2U7bOHiinS9S5cjAUc+YSJYrB+/nLV/e5sRAzK1Ny395cHD3 -Eq6B+CYGdlFz0jJ9ObikWmN9wFYGWM992f+L4KDXJNi+8mLgbZqmuPppDg6X -bbxlG0z+c0AyYCCNg8az3heXhpD8kYnG0jMcbIy9MTlFbGTfGG+excGplo+z -eWEMpAr4jTtd4qBd+1e7nkgGbMPyumJKOPgoqbRCMZYBZeV/TC3LODjaI5HS -RTzxPOyMUAUHNeOCOrL2M5CvBU6pVRw87Kp2Y2EcAz8/fmwoqOHgQl5Z4HA8 -A7cclYpeNXFQrWvVlPtRBpJnBUUynnMwrb/pqEAiA75Fg7vcmzkodzgrrpBY -SrhGqa+Fg4buS64NJjEQXOt2aqaT1GvWyd11nAF1ncy9Gv0cPB+wqUEolYHZ -t3+3f+Fx0O+a+vPTxK2JHMPyAQ7umxFYueQUA/Fc40GLYQ5GhKhsMDjNwPvs -9h0bv3OwPLRHH9IZSJ8nvW7/HArr2WtaZDMZqBv/6BktRCHvAjcqg/jzx+LI -UBEK92x3kJfNIv1wyybPdz6Ftv9mbBHLZoDnE8N3kKZQqiqkmD5H6ndcJ7NO -lkKm9pTZ5vMMrDKT0QY5kqfa2/CA+LRkyXaWIoUlfuynmRfIeM2nm0rLKDR4 -OXxJL4cBqrCkSU6dQsm2ctGTxKdPx35aqElh5ZhtyBAxj5KVFNam0GHERSv/ -EhmXtQsYNqQw5ljtlulcBmr+k03gGVEYJ/X9lF0eA/1f6LO0MYXdN97+7yzx -yob9jzvMKXz4QENF7zIDfcFlKveRwgNF1N+Yz8ACtwMmd6woHF187shBYgvr -9Y43bcj6Sv8cridOVeyJLVxPYdgjVpBxAQN3hctP5zpQGHq83iWYuPfrgWvn -HCkcV81n5RObP5F7c3IThWLhit3zrpDzvtkzdMyFwmz1w9fMiE9eLBc8vJVC -OnckgEPcE2lvuNeNwmceB9triCW95e3CPSicG3UkrofY3L53R5AXheHz1iqL -FpL5S/9O9vah0PdFyTon4rtiDvluvhT631rzMpi4Z1L+ngubwsYUZ8cTxJLc -3hZHisJzb9seFRKbN1fwbAPI/Il6wwfEvnf+/olBFL5TEc3s/J2f7/DHqmAK -VcOujA/9zj+poGsSSmFh1wnbX7/zY/rWrgincPuKqjSpqwxIsG+6aUdSmKIs -37GU2GxjfJh6NIXKBqWS+sS+KzckKe+lkHoaaWlOnKK5KEchhkKWni+1lvi2 -VH+V9H7SPwf2Ja4n5vJvPhePo7CosvyC0+/8z/FckXgKnxSJXt9EbNq24cev -BAqjZA+Vbib+P4rqAUI= +1:eJwV1nk01dsXAHCkMj9DGSNzXUW6ZsreZRaSSpTxuvcbEkLySrxeqVchSdEg +muVRaaCkforkRRGaZLjXcCtT5ul+q9/pj7PO+qy9zj577XXOWUeLFeXFERES +EvpKxu951xujJWWNb2zD98R97X/NBduhq2Ys+yJIGovRHCDm5pln6dpXQOW5 +8Nrf9mS/nidl8gKWJWzjDhKXJCRXzbWvh+lch9DvxEdrlCuTC9/CWz1G0Ajx +o8ZdF2nmO9hnPK92jLiv9VXin48/giO/LW+SWLVXZ9ukXRukxRd/mSFe9z3R +Kra+E+yVE/J+ED+l+yQTCnngJ776pfAbLrw/oLSvNLIb2CfogHnEQ/Ps+8aZ +vfBjspSSJJ6XGu1rMsUH56yIDlliDbnc2l2Pv8Kh5+o1isQeapPXh+wGoDok +rleHmMrXVjQUGwKpu6rqy4iT9dan7Kj/DnednlYziT8qtayMKxyB6fW/QuyI +2VvDw06ljoLtx9xtbsTDF4Qu3Y0cA9dmm6rNxGLahrIjzAlwzk3oCiPOYlc5 +yS6cBL8K5XNxxJo3fJNXTE1CzFD5s2Riy+WHh3Y+ngbrRLHgbOJQ8876Pjsa +VCM6OuuIxxN2i0ro/4Aa9WtKrcR/PZZcxRD7CRUH4v73lTgHLf/dXv8L/rBZ +GTi/gdR3rdY+plAYWfOg04W4sOYU94CaCFoUbs/eRjz8JSDxZKoIhsVe+t9O +4kSDiXt3IufgVmv3oFPEWbe1dL4z5+K5zIKubuLWxoGnP6/MxYP6+9VmiDVH +y7bKLJyH9/V3Vss0cqHI1CPTcGoeWqteo2yIqx/tFY54LIYtyy4OnCWeqGru +/Gonhfl8JaGIt1yQd5OS3fdUCtdXcPKPERu32KO0lTRG9mVV3yQO73mQv9JI +Bof5+TnfiKNF6o1XS8mibtn9qKgmLvRq3xpJmZTDiTSltlPNpD/UK/EGE3m8 +kHL7cTmxyL98LeVd8pjyYuPiLmJNk8Vehf3yKLPqdQyzhQtb7TLuvuEq4JD4 +Z9dPxA0hMbFKdQvR+6jNc3jPhY4b6ceDxBTxY7RyTyTxQH/hlZsOiniuyPzY +RWKJuO5mm0pFfPLCIeQXsf2hTaZBD5TwhKWSy8sPXCi/aj5RkKeCEVpD/KhP +XLjaOxtvHaeO5Sll/+i2c8F585GO2GJ1zIzv+xFIPFCt4FjMV0fp6i7+eWLT +q8sXavpqYHiiyYKFHaSfrIB7c20XY7rDyzapTi6Mfufu+XpQE9UuBDHkeVxQ +2Gl//567NipZMBtie7nAvyoR6hmuja8GOS+eED9sa1QbPKyNt4YGV4jxueDn +5n9Qv1Ibo0tkWBeJry6L9zrL1EFzDU2bxi9k/74bw0lKuig7d84Llz4ubNou +aejK08NuO5Z/1ncuQPxm5pYfevivZ4ZBP7FBSp4FW0Uf3z40DV07zAWhKyZr +kzbo4yXBpOkocXHHti13n+njSNKvBVtGyf30LjqgenkJNp1kjJtNkPrs3d/3 +sRhoGXLZx1nAhSsbsz9PJTGQXTkDxcTpLB5X9DwDI7X+yZGnyfn+a3e/RjMD +dXtCcjuI5SpyhTbaGeCFkjeT+36S82MyZPBYZxm6a9kN1QnzQE37RPLxnuVo +0Fq8+JkYDyqOjTNmRAwxIOOtsK04eVfGfFsoLUOsecIMf0x8sVqXsTbAEI1s +ml+XSfBAe3t50/QHQwxXzuaVSvHAoKhXj6ozwpjGXLs3sjxQV9OgNH2NMdPD +w4KlwoPl1+KkBMDEnz/Ml2kt5wGLfXDC0IOJK05UeT4gztHJ7AjyY2KbcNqg +iyEP5ly+facmgYnHNv1IjTPiQevFvk2ZJUy88J7NbjDmwdGcoFyGjgkaHRzZ +f96MB/zjbkY+80yxevby5TTgwaUYXc8H9WboqbJHqG0TD+52VB5XbjPDFUsb +LHM38+C5q//Lff1m6G6wQSjQmwc92mds10qYY5aWzOqeLTzQb55v2OBkjk7t +klETW3lQZNIv/u25OepZWD1nBvPg4XhJ1aJHFuhz73yGSiQPGuPB4tA1K9RX +tnQ9f5QHWgHvPPwjVuOrujep3jU84PwqvaX+J2LJ1I6PlvO7QKn/4Xwl1lrs +88pVaPfugjiTVW2ZBvbYXaiMtoVdwBqkaxX6HJDnlZhdLdoNxWtj5+c1OGHP +wXwNy13dcHU8/FlRlgsucpxQDud2w/Qa5dfVyevwW0Dp35vYPdAuNGeEF+yO +j+ZmL+wY6YHIRVEZB3TWo+LumfNKB3rhVlht5ekUT3Tpfz9rxeDD3jGVqWVh +G1C8Z0/7rSY+TLg6er8M9MLzNVNCR3O+gNW2k2t6N2zEglx1yRdhX6FJJTe8 +2mQTZnaHO7ZafwPV6wcrCpZuxj0poSuYhn3wkGvg5iHtjRVqp0uyNPpBo2V4 +e/ygN84yeJfKVAbA5PTJoivcLWh45Kj5VetByBUdM8qs8sFPSjaNH7YMQema +Fa0pj3wxTs/7WGfud8ixOCZHF27FqM5L29l7hqHh87XDJqnbsLLVv7ZGbQQe +uF/Qjf7LD7usJJ4dfjcCIzs3CkWy/XFSwnZ54NFRmHBkhA7ZBWDl7P1hIRiD +gsFP07HmgZg7uNNcTHwcfC5dC/GXCsJu8eveM7XjcO/uusA5R4Lw6QHf0yvP +T4CVWtPM0ZkgPPeuTvxZ4CTocLe3vg0LxpyDb+taNKagR3LH+gvdwWgWe/fv +vm9T0JjuEeK0mYU1SyLWaV6ahqyEPMndjSw0b3IL7vCfgYqnv2ZCXELQ5sHW +1RYSs/CHHx4xKQ/BpfFyzsUXZsEqaKggxZSNuX4qxtNLBXD97HCshzkbL2qf +GP1sIIAFzaO2SpZsZArXJT9dLoAhh6mWAhsSH98wnWwsIO+XkHD9WjZmHn23 +YdxCADJTcr7yG9h4JHYz47KjAHrSzMTzdrLRWHlPmkyIANIfJ4Y9vM7G65dk +zaVyBLCTmW2VUMDG6IS2/WfOCsDtZom4ZSEb+RPv9i0+LwCJbP7NsmI2VpUl +5BheFEBKjGdf6X02zhHLc7K+KoBEhu6OB8/Z+C09VWnhHQGEZ9dF3O1g46Ni +CHpdIwAXGf6qGC4bMxZVphvWCmBpipA0s4uNaUGOnNT/BMCPMSsu6WUjb3ep +mGO9AII98gbvDLDRYc0e9ZtvBeAzNzby9iwb23xstY3aBOAUqxpdpMjBg/4b +XhkPC+B53mHXTGUOdka6eyWPCGBV/ahugioH3fb6mdePCsBYr+6TnQYHGzrq +ZIMnBKDyYZ/dZz0OLph6KLxnVgD91u2KEmYc/Hyoa8dGURpOiOQ/2b6Rg876 +e6BOkQaJFVI57ps5eMdCObRHiYZD2xJiTLZwcOW5vA6BMg0J9z2X/NrKwa7l +z+/pqdEQTAmfPMPiIOO0+hh7MQ0mr1jsF7s4+CLbN/LkEho+nNST1Mng4Lrg +72V55jTcAunQryc5WOr4+XWMBck/OF5dfIqDBWWHAu0taWC6VCdZZnPQX/7n +eJcVDelCIaPuFzmYbKfPk15Ng2NU/qeEIg7m/l1xSJX8m9TV/zG3vcXBIy4B +Fu+Ix19FnZpzh4NLbxcFp9vTcFkf3NPvcbDsD79FtAMNP9rbK6+Uk/7k/qnz +wpmG+25qBW9qOTiaNewg7UHD8VmRuVmvOIhWHVtuE7MK+oJ96znIjulpX7+e +BlnRcrWeBg6mTVMOqZ40RDz2OTHznoPKN84kjnrRoGNwJl63l4MZ+R8D47bQ +MPthf/M3Pgeb1hw//4O4MYVjfPsrB/mSa51TfGhI4pn2WQ1wcLhYbPyELw2t +Oc3+68c4WH7HKCNzGw2Z8+Uc9gpTuPSZUalbIA0Vo+3b4uZQmPG/5bz/iL+0 +F8ZEzqWwuPaZkkMQDavu2+ezxCn8eKr3ulkwDfygBIGrHIVPl5Q4/WKR+t0c +5B0UKJSgf/4XEUKDjYU8AxZSeGww2PsjcYZ0kbeJCoUxiQ9Sb7JJvLyzRE2L +wpGmnnBTigbqWlHtQh0K23Yvscokzsj4s/MPPQpduo1lh4j5lIK0KIPClT5C +H/O2k7iCU+iAMYWRVTmv+kNpKP+pkMxnUuijr/DZKoyG3m/c01xTCvcOWI2l +EFtX7q1qsaSQ+0XGWjmchp6IWxpPkEJt6ywNvR00yPjsMytbS2FdPiMshNjK +ztmtxJ5CEZOU8jzidJWuP685UzjjvGyXfAQND0VvZ+S5UnhN1vG9M3H39303 +zrpRWHv85Zr9xJY1C9+leVKYxShYxiVmlXT1H/GiUFSz46bMThrSLtwW+XsT +hSW7lhrZEHfFuBjH+1Co+eGOczqxdICiU/RWCpU31HfcJ7Z06fYP96Pw7Wjp +3k+/1y/efzwgiMKalCdViyJJPRKul31YFD7c9STahrhrQvGRF5vC0b2bdHyI +pXndDW4UhYXF8Z9jiC3r7/AdQynkf1U+e5yYVbb/B4ZTeKjD2O8ycdpl1wU2 +ERQGKTzQLfudP01pmVkkhTqdF0b/+50/oWfNimgKUyO4L1qJpdglPowYCt0e +JVz8RmyxPilKJ47090xg4uTv/NbrDqvHU/jh+olA4SgaUvWUc5USKHRliTpL +EJfK9t6T20thtHy5mRwxT1DySjKRwvUtxUsViaW+JPHmJlGomtOuqUJs3rRu ++lcyhbpazhqqxP8HQ90JWg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.520190431585247, - 1.7906052377231532`}}, + "PlotRange" -> {{0, 180}, {0.5251369037757574, + 1.7771245177155572`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5201904315852481}, + "AxesOrigin" -> {0, 0.5251369037757586}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6640,20 +6565,21 @@ BAqjZA+Vbib+P4rqAUI= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.520190431585247, 1.7906052377231532`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5201904315852481}, + "PlotRange" -> {{0, 180}, {0.5251369037757574, + 1.7771245177155572`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5251369037757586}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6667,105 +6593,105 @@ BAqjZA+Vbib+P4rqAUI= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AZSoYyXCSRTF1jrmNs8L4hIlQajEmcsw2ZqSiXJrpFioQG -ESnJFGlAUvmVShFSuqV9DCeZkgxxdrff6o/97OfzrGd917v2evd+9jLfMBeO -oICAwAC5ft8jXhksv9P6yjLcYrc/VUiD5egVE1+bEhB/ROX+Np1rmqFhUwcq -p7bZ+RNvYr+cK8H6H9A3zHYGEN+MSXgsYtMMH3QkPwcSH3+yqCGh+DWoanV2 -7ya+1xpxiTF6A6oP0m1DiQffP4+LrX0HD1SsVSKIF/ere05ZfwCvPZ850cQb -vsZZRDV/gsrZBOUY4npmUDymmAsCoxLr4og7DykcuB3aC91nUz8cJB6dazM4 -YdQPASjSl0g8NyXcnTXNAw3rCM9kYhXpnKaI2gFgZtus0oidlaaujloPwzL1 -2F2XiKk8NXl90VE4EFmfXUicoLkxcXfzV9A14UMp8TuFjr+ii78BW2NH931i -tkdQ4JmUcUjdfeTNE+KxiwKXK0O/g4FnwepWYlE1falvRpPQVtPm0UecwX5s -JyU3BT0He6W/Eqtec09YMT0FmRfGzGeJzfWSRkNqf0BTs+Bb6as0BJh+ah60 -ZqCsQnmLLfFEzB5hMa2f8D52+YmtxAdrxVdri/4HE1uN//IjzkbzG/7Nv2BQ -z7PlEDG7sMkmsngOSsTMbmgkLn5yhj6kJIjvKyyEOonHPnvHpaUI4mjGUZ0B -4jidyaqKUCH8ZG71TPIaqbd8mfpXIxHsSDpo5038vnW4/r8CEQyIw4QoYtXx -Ox4L5OZic7r88uPEJcbO6frTc/HZF7Gn1cSN9/bPCa4VxQwPy/V/FNEw+bj9 -04C1BMrHW2zmEcs4SkgdqJdA+qvgmPB1Ggw7bFDSQhJzJYpkNIiD+qrz/jJY -gDj/VK8fcbhgs+EaCSm0y5O/9YW4X63sW+KUNKak+MosuEGeD/V8fgtLBg0e -qo4ZEwve4C1bFCGDV7bwNnsRq7KWuhQPyWAj78zlEmIP69OVr2hZ5Lm+jthS -QkOLX2SUwgs5tK+rfXevlIbua6nJPqLySEnu+zFAPDxUXHB9nTzm3Qu7uKiM -BrHo3vZVDfKoJf5nRCyxzdGtxj7VCuiivdR5bTkNNVdMJ4tyFbGuM6frSwUN -V/pn966MVkYj47Ktl27RsH7bse6oUmW8Gpn6tIt4uFHWtpSnjGLVRmVy1TQY -X9GTU3VXQch825lK3OjrXSViuRQX35mbmXSbhvGv9L6BI6rofa6qJfkuDbIh -NreqnNTwq0vpxpE6GnhXxAI2BamhbOxxa7P7NNz90Ko0kqSG85bV3jhE7OW4 -44hWgxqeM2Z1KdST+nT3upwzUkemU+S6/QOy/uC1sXgFDaxf81z18UMatvqL -6ztwNbHzjHyW5FMaYO82I9efmjio4+TLJtZJzDVjK2rhpON/ObXEAgUsq/jN -Wmg1y6N2N9FQ2u3pWvlQC7UkoqD1GXk/t5ccWpy/HPuSM6XKm0l9Nk6dg77a -2Pzj5I6HbTQUbMn6dzpeGzXqiqy12mlI9eXSwhe0UcZE8EIyMfvgniGVdm10 -u52c49pBg3RdjsAWax3My6wan3hD+oc1qlOrros1r6x7bbpoUFI7lZDcp4fu -Yc4LVtI01J2Y0J4R1MenCoFjt4m9vrt3UMv0UU+mxc2YS8OlRg1tK299FAsu -qDPsoUHNv6btx1t9VJiJe72ij+y3pF+TemGANTOp5nYDNCgrqVCq7obkfFSt -/x2jQa8wWoIPRhhmx88/L8QFX/aRSX1nI1yQrPrSQJgL2erp3T5eRsh0nQt9 -TCyUX17xJMYIL6pUKIyKcOH9pcGt6TeN8F32ISF7US4cz/bJ0VZnoeXRow5y -klzgJTsauM01RraLcPc8BS5cjtTYVN1sgjN9ztGuelyo7G5IXvTBBFMGs+8t -0ufCI4cdTw8MmWDPPrPU98R9apmWVmKmeDiorH/nCi5otc/Tb7EzxZYW3Y0R -RlwoYQ3N//LIFH/KPVMsN+fC3Ymbj5fcM8NI+y+zmeu40LoXzI4WWuB5R+0D -Sru4sMz7jfOO4DWo07vG7FMOFzi/bpcpxyKK6e1SedXNBYWhu/MUfK1QvlD3 -dZJBD0SzVn9I17FB151NdkKHe8B3hGmSHVyHenfUf5V+6IFSq6h5uS12qPvP -A/vt9r1wZSLoYUmGPR4Rdi9vutsLP9YuetmYsAHPl1dOSazpg48CQt+4u5zw -1eVKsXkv+iB0SdjpQ+ob8aWki8ljj34oC2xqOJu4CdP2JW3IEOLB/u+K07qB -m/HOSLBPaykPJh1stz/d6YIpsbZqFdGfwcIzbW3/5i3owcs6rGY3AG2KOUGN -rK0ob1ogelrxCyy+eqSu6M9t+ERir9VlyUG4S+s4Oktux33e8gOfBYZApWPM -f+/IdmwpETT8678hYJ1NKymgXfFncbbY62UjkCP83SD9sRvaRUVbDq0dhdtr -V7xPvOeOO/j716Qkf4VssxPSTLEHyg6bN1mGj0HLv4VJrBRPfLP7ZNAD+W9Q -7XRRI/ygF7rlL0ySbv8G30K2CISyd6CSrUNMxvFxmLTVDhi19saZNfLmf1h9 -h6KRrh9RpjuxY+2b2YSFE+B2udBvh4QPbp7jHvKhbQKqKjfsFDrmg9O5Xk/E -rk+ChVLbzPEZH0x4YYGHI6ZAnfZ//zpwF5Zsbs5KM56GPvHdGy/27kJ6Tnu1 -nPAPaE119rPb5ouu6+Ud9z34ARkxueJ7Wn0xfNWQVOnBGair/zXjZ++HsV4G -5/GvWVjohcdYNX7ofy3QcvfTWbDwGS1KNGZjck+gqacrH66eG4tyNmVjfFdn -1QZ3PvzRPm6pYM7G2L5fEys9+TC6brqjaBUboz11G+R28sn3S2BOsxUb6cz9 -gXUUHxZMS7vLbGZjnUNk4ss9fOg7aTI/N4SN7+arfZxN50NqbVzg3atsjNLv -fOv7jA8hRlkWMUVslOr0vzX9nA+O12/ONy9mo9LHuZDczAexLN71O6VsbHiZ -4FXWwofEyE2Dt2+xkW35vbjvDR/itDV2Vz9iY3Fisa50Dx+Csl4EV3azsfNt -dRw1wwf7BbzVkTQbTXT2GbXO8uHPRAFJox42TmUeOWbO8IEXaVJ6s5+N+z3v -S4r84sMu59yRimE2ihckxZ8UZsBNJCq0fJaNcuKr0zwXMmAXtTi8RJ6DB9cV -nfyizsCj3CSH9EUclN3GYq3VZGB187hGzGIO/vmtTztLiwFDzRdd1ioc/DDv -gailNgOKbw9Y/6vJwffjR+P3GTAwtPKjvJgJB6nnXz5mmzNwSjDvvv8WDoY8 -1l2evoEBsRUS2U7bOHiinS9S5cjAUc+YSJYrB+/nLV/e5sRAzK1Ny395cHD3 -Eq6B+CYGdlFz0jJ9ObikWmN9wFYGWM992f+L4KDXJNi+8mLgbZqmuPppDg6X -bbxlG0z+c0AyYCCNg8az3heXhpD8kYnG0jMcbIy9MTlFbGTfGG+excGplo+z -eWEMpAr4jTtd4qBd+1e7nkgGbMPyumJKOPgoqbRCMZYBZeV/TC3LODjaI5HS -RTzxPOyMUAUHNeOCOrL2M5CvBU6pVRw87Kp2Y2EcAz8/fmwoqOHgQl5Z4HA8 -A7cclYpeNXFQrWvVlPtRBpJnBUUynnMwrb/pqEAiA75Fg7vcmzkodzgrrpBY -SrhGqa+Fg4buS64NJjEQXOt2aqaT1GvWyd11nAF1ncy9Gv0cPB+wqUEolYHZ -t3+3f+Fx0O+a+vPTxK2JHMPyAQ7umxFYueQUA/Fc40GLYQ5GhKhsMDjNwPvs -9h0bv3OwPLRHH9IZSJ8nvW7/HArr2WtaZDMZqBv/6BktRCHvAjcqg/jzx+LI -UBEK92x3kJfNIv1wyybPdz6Ftv9mbBHLZoDnE8N3kKZQqiqkmD5H6ndcJ7NO -lkKm9pTZ5vMMrDKT0QY5kqfa2/CA+LRkyXaWIoUlfuynmRfIeM2nm0rLKDR4 -OXxJL4cBqrCkSU6dQsm2ctGTxKdPx35aqElh5ZhtyBAxj5KVFNam0GHERSv/ -EhmXtQsYNqQw5ljtlulcBmr+k03gGVEYJ/X9lF0eA/1f6LO0MYXdN97+7yzx -yob9jzvMKXz4QENF7zIDfcFlKveRwgNF1N+Yz8ACtwMmd6woHF187shBYgvr -9Y43bcj6Sv8cridOVeyJLVxPYdgjVpBxAQN3hctP5zpQGHq83iWYuPfrgWvn -HCkcV81n5RObP5F7c3IThWLhit3zrpDzvtkzdMyFwmz1w9fMiE9eLBc8vJVC -OnckgEPcE2lvuNeNwmceB9triCW95e3CPSicG3UkrofY3L53R5AXheHz1iqL -FpL5S/9O9vah0PdFyTon4rtiDvluvhT631rzMpi4Z1L+ngubwsYUZ8cTxJLc -3hZHisJzb9seFRKbN1fwbAPI/Il6wwfEvnf+/olBFL5TEc3s/J2f7/DHqmAK -VcOujA/9zj+poGsSSmFh1wnbX7/zY/rWrgincPuKqjSpqwxIsG+6aUdSmKIs -37GU2GxjfJh6NIXKBqWS+sS+KzckKe+lkHoaaWlOnKK5KEchhkKWni+1lvi2 -VH+V9H7SPwf2Ja4n5vJvPhePo7CosvyC0+/8z/FckXgKnxSJXt9EbNq24cev -BAqjZA+Vbib+P4rqAUI= +1:eJwV1nk01dsXAHCkMj9DGSNzXUW6ZsreZRaSSpTxuvcbEkLySrxeqVchSdEg +muVRaaCkforkRRGaZLjXcCtT5ul+q9/pj7PO+qy9zj577XXOWUeLFeXFERES +EvpKxu951xujJWWNb2zD98R97X/NBduhq2Ys+yJIGovRHCDm5pln6dpXQOW5 +8Nrf9mS/nidl8gKWJWzjDhKXJCRXzbWvh+lch9DvxEdrlCuTC9/CWz1G0Ajx +o8ZdF2nmO9hnPK92jLiv9VXin48/giO/LW+SWLVXZ9ukXRukxRd/mSFe9z3R +Kra+E+yVE/J+ED+l+yQTCnngJ776pfAbLrw/oLSvNLIb2CfogHnEQ/Ps+8aZ +vfBjspSSJJ6XGu1rMsUH56yIDlliDbnc2l2Pv8Kh5+o1isQeapPXh+wGoDok +rleHmMrXVjQUGwKpu6rqy4iT9dan7Kj/DnednlYziT8qtayMKxyB6fW/QuyI +2VvDw06ljoLtx9xtbsTDF4Qu3Y0cA9dmm6rNxGLahrIjzAlwzk3oCiPOYlc5 +yS6cBL8K5XNxxJo3fJNXTE1CzFD5s2Riy+WHh3Y+ngbrRLHgbOJQ8876Pjsa +VCM6OuuIxxN2i0ro/4Aa9WtKrcR/PZZcxRD7CRUH4v73lTgHLf/dXv8L/rBZ +GTi/gdR3rdY+plAYWfOg04W4sOYU94CaCFoUbs/eRjz8JSDxZKoIhsVe+t9O +4kSDiXt3IufgVmv3oFPEWbe1dL4z5+K5zIKubuLWxoGnP6/MxYP6+9VmiDVH +y7bKLJyH9/V3Vss0cqHI1CPTcGoeWqteo2yIqx/tFY54LIYtyy4OnCWeqGru +/Gonhfl8JaGIt1yQd5OS3fdUCtdXcPKPERu32KO0lTRG9mVV3yQO73mQv9JI +Bof5+TnfiKNF6o1XS8mibtn9qKgmLvRq3xpJmZTDiTSltlPNpD/UK/EGE3m8 +kHL7cTmxyL98LeVd8pjyYuPiLmJNk8Vehf3yKLPqdQyzhQtb7TLuvuEq4JD4 +Z9dPxA0hMbFKdQvR+6jNc3jPhY4b6ceDxBTxY7RyTyTxQH/hlZsOiniuyPzY +RWKJuO5mm0pFfPLCIeQXsf2hTaZBD5TwhKWSy8sPXCi/aj5RkKeCEVpD/KhP +XLjaOxtvHaeO5Sll/+i2c8F585GO2GJ1zIzv+xFIPFCt4FjMV0fp6i7+eWLT +q8sXavpqYHiiyYKFHaSfrIB7c20XY7rDyzapTi6Mfufu+XpQE9UuBDHkeVxQ +2Gl//567NipZMBtie7nAvyoR6hmuja8GOS+eED9sa1QbPKyNt4YGV4jxueDn +5n9Qv1Ibo0tkWBeJry6L9zrL1EFzDU2bxi9k/74bw0lKuig7d84Llz4ubNou +aejK08NuO5Z/1ncuQPxm5pYfevivZ4ZBP7FBSp4FW0Uf3z40DV07zAWhKyZr +kzbo4yXBpOkocXHHti13n+njSNKvBVtGyf30LjqgenkJNp1kjJtNkPrs3d/3 +sRhoGXLZx1nAhSsbsz9PJTGQXTkDxcTpLB5X9DwDI7X+yZGnyfn+a3e/RjMD +dXtCcjuI5SpyhTbaGeCFkjeT+36S82MyZPBYZxm6a9kN1QnzQE37RPLxnuVo +0Fq8+JkYDyqOjTNmRAwxIOOtsK04eVfGfFsoLUOsecIMf0x8sVqXsTbAEI1s +ml+XSfBAe3t50/QHQwxXzuaVSvHAoKhXj6ozwpjGXLs3sjxQV9OgNH2NMdPD +w4KlwoPl1+KkBMDEnz/Ml2kt5wGLfXDC0IOJK05UeT4gztHJ7AjyY2KbcNqg +iyEP5ly+facmgYnHNv1IjTPiQevFvk2ZJUy88J7NbjDmwdGcoFyGjgkaHRzZ +f96MB/zjbkY+80yxevby5TTgwaUYXc8H9WboqbJHqG0TD+52VB5XbjPDFUsb +LHM38+C5q//Lff1m6G6wQSjQmwc92mds10qYY5aWzOqeLTzQb55v2OBkjk7t +klETW3lQZNIv/u25OepZWD1nBvPg4XhJ1aJHFuhz73yGSiQPGuPB4tA1K9RX +tnQ9f5QHWgHvPPwjVuOrujep3jU84PwqvaX+J2LJ1I6PlvO7QKn/4Xwl1lrs +88pVaPfugjiTVW2ZBvbYXaiMtoVdwBqkaxX6HJDnlZhdLdoNxWtj5+c1OGHP +wXwNy13dcHU8/FlRlgsucpxQDud2w/Qa5dfVyevwW0Dp35vYPdAuNGeEF+yO +j+ZmL+wY6YHIRVEZB3TWo+LumfNKB3rhVlht5ekUT3Tpfz9rxeDD3jGVqWVh +G1C8Z0/7rSY+TLg6er8M9MLzNVNCR3O+gNW2k2t6N2zEglx1yRdhX6FJJTe8 +2mQTZnaHO7ZafwPV6wcrCpZuxj0poSuYhn3wkGvg5iHtjRVqp0uyNPpBo2V4 +e/ygN84yeJfKVAbA5PTJoivcLWh45Kj5VetByBUdM8qs8sFPSjaNH7YMQema +Fa0pj3wxTs/7WGfud8ixOCZHF27FqM5L29l7hqHh87XDJqnbsLLVv7ZGbQQe +uF/Qjf7LD7usJJ4dfjcCIzs3CkWy/XFSwnZ54NFRmHBkhA7ZBWDl7P1hIRiD +gsFP07HmgZg7uNNcTHwcfC5dC/GXCsJu8eveM7XjcO/uusA5R4Lw6QHf0yvP +T4CVWtPM0ZkgPPeuTvxZ4CTocLe3vg0LxpyDb+taNKagR3LH+gvdwWgWe/fv +vm9T0JjuEeK0mYU1SyLWaV6ahqyEPMndjSw0b3IL7vCfgYqnv2ZCXELQ5sHW +1RYSs/CHHx4xKQ/BpfFyzsUXZsEqaKggxZSNuX4qxtNLBXD97HCshzkbL2qf +GP1sIIAFzaO2SpZsZArXJT9dLoAhh6mWAhsSH98wnWwsIO+XkHD9WjZmHn23 +YdxCADJTcr7yG9h4JHYz47KjAHrSzMTzdrLRWHlPmkyIANIfJ4Y9vM7G65dk +zaVyBLCTmW2VUMDG6IS2/WfOCsDtZom4ZSEb+RPv9i0+LwCJbP7NsmI2VpUl +5BheFEBKjGdf6X02zhHLc7K+KoBEhu6OB8/Z+C09VWnhHQGEZ9dF3O1g46Ni +CHpdIwAXGf6qGC4bMxZVphvWCmBpipA0s4uNaUGOnNT/BMCPMSsu6WUjb3ep +mGO9AII98gbvDLDRYc0e9ZtvBeAzNzby9iwb23xstY3aBOAUqxpdpMjBg/4b +XhkPC+B53mHXTGUOdka6eyWPCGBV/ahugioH3fb6mdePCsBYr+6TnQYHGzrq +ZIMnBKDyYZ/dZz0OLph6KLxnVgD91u2KEmYc/Hyoa8dGURpOiOQ/2b6Rg876 +e6BOkQaJFVI57ps5eMdCObRHiYZD2xJiTLZwcOW5vA6BMg0J9z2X/NrKwa7l +z+/pqdEQTAmfPMPiIOO0+hh7MQ0mr1jsF7s4+CLbN/LkEho+nNST1Mng4Lrg +72V55jTcAunQryc5WOr4+XWMBck/OF5dfIqDBWWHAu0taWC6VCdZZnPQX/7n +eJcVDelCIaPuFzmYbKfPk15Ng2NU/qeEIg7m/l1xSJX8m9TV/zG3vcXBIy4B +Fu+Ix19FnZpzh4NLbxcFp9vTcFkf3NPvcbDsD79FtAMNP9rbK6+Uk/7k/qnz +wpmG+25qBW9qOTiaNewg7UHD8VmRuVmvOIhWHVtuE7MK+oJ96znIjulpX7+e +BlnRcrWeBg6mTVMOqZ40RDz2OTHznoPKN84kjnrRoGNwJl63l4MZ+R8D47bQ +MPthf/M3Pgeb1hw//4O4MYVjfPsrB/mSa51TfGhI4pn2WQ1wcLhYbPyELw2t +Oc3+68c4WH7HKCNzGw2Z8+Uc9gpTuPSZUalbIA0Vo+3b4uZQmPG/5bz/iL+0 +F8ZEzqWwuPaZkkMQDavu2+ezxCn8eKr3ulkwDfygBIGrHIVPl5Q4/WKR+t0c +5B0UKJSgf/4XEUKDjYU8AxZSeGww2PsjcYZ0kbeJCoUxiQ9Sb7JJvLyzRE2L +wpGmnnBTigbqWlHtQh0K23Yvscokzsj4s/MPPQpduo1lh4j5lIK0KIPClT5C +H/O2k7iCU+iAMYWRVTmv+kNpKP+pkMxnUuijr/DZKoyG3m/c01xTCvcOWI2l +EFtX7q1qsaSQ+0XGWjmchp6IWxpPkEJt6ywNvR00yPjsMytbS2FdPiMshNjK +ztmtxJ5CEZOU8jzidJWuP685UzjjvGyXfAQND0VvZ+S5UnhN1vG9M3H39303 +zrpRWHv85Zr9xJY1C9+leVKYxShYxiVmlXT1H/GiUFSz46bMThrSLtwW+XsT +hSW7lhrZEHfFuBjH+1Co+eGOczqxdICiU/RWCpU31HfcJ7Z06fYP96Pw7Wjp +3k+/1y/efzwgiMKalCdViyJJPRKul31YFD7c9STahrhrQvGRF5vC0b2bdHyI +pXndDW4UhYXF8Z9jiC3r7/AdQynkf1U+e5yYVbb/B4ZTeKjD2O8ycdpl1wU2 +ERQGKTzQLfudP01pmVkkhTqdF0b/+50/oWfNimgKUyO4L1qJpdglPowYCt0e +JVz8RmyxPilKJ47090xg4uTv/NbrDqvHU/jh+olA4SgaUvWUc5USKHRliTpL +EJfK9t6T20thtHy5mRwxT1DySjKRwvUtxUsViaW+JPHmJlGomtOuqUJs3rRu ++lcyhbpazhqqxP8HQ90JWg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.520190431585247, 1.7906052377231532`}}, + "PlotRange" -> {{0, 180}, {0.5251369037757574, 1.7771245177155572`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5201904315852481}, + "AxesOrigin" -> {0, 0.5251369037757586}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6775,7 +6701,8 @@ BAqjZA+Vbib+P4rqAUI= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5201904315852481}, + AxesOrigin->{0, 0.5251369037757586}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6803,7 +6730,8 @@ BAqjZA+Vbib+P4rqAUI= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.520190431585247, 1.7906052377231532`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5251369037757574, 1.7771245177155572`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6812,8 +6740,9 @@ BAqjZA+Vbib+P4rqAUI= Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991333813212965*^9, 3.99312657158841*^9, - 3.993127288714654*^9, 3.99312751488517*^9, 3.99313010343771*^9}, - CellLabel->"Out[95]=",ExpressionUUID->"a176a917-4301-4cc9-8844-2f9902b92236"] + 3.993127288714654*^9, 3.99312751488517*^9, 3.99313010343771*^9, + 3.993826119669635*^9, 3.993826311756353*^9, 3.9938266856086073`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"c24ca772-3c5b-48b4-a350-985f4a458f02"] }, Open ]], Cell[CellGroupData[{ @@ -6877,163 +6806,175 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.991849261714945*^9}, - CellLabel->"In[96]:=",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], + CellLabel->"In[93]:=",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4496567919369405`*^-263\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 96, - 14, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813432829*^9, 3.993126571953257*^9, - 3.993127288939659*^9, 3.9931275151364117`*^9, 3.993129490503615*^9, - 3.993130103643903*^9}, - CellLabel-> - "During evaluation of \ -In[96]:=",ExpressionUUID->"b9d646c9-aec1-4240-adcd-99a477981970"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7988822445465775`*^-274\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.7959455339902947`*^-271\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 96, - 15, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +to represent as a normalized machine number; precision may be lost.\"", 2, 93, + 9, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991333813432829*^9, 3.993126571953257*^9, 3.993127288939659*^9, 3.9931275151364117`*^9, 3.993129490503615*^9, - 3.993130103647066*^9}, + 3.993130103643903*^9, 3.9938266859641*^9}, CellLabel-> "During evaluation of \ -In[96]:=",ExpressionUUID->"d07729d2-cb4e-4d8a-b07e-16cb6b697d94"], +In[93]:=",ExpressionUUID->"aeb10b84-7d69-475d-b577-368db9e507fa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1978936170254115`*^-285\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.6574486908262383`*^-282\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 96, 16, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", + 2, 93, 10, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991333813432829*^9, 3.993126571953257*^9, 3.993127288939659*^9, 3.9931275151364117`*^9, 3.993129490503615*^9, - 3.993130103649454*^9}, + 3.993130103643903*^9, 3.9938266859825993`*^9}, CellLabel-> "During evaluation of \ -In[96]:=",ExpressionUUID->"d759ad1c-e4f4-4626-b70f-844b973e69ba"], +In[93]:=",ExpressionUUID->"55ae6890-9794-445f-bc5b-66948f0d7e77"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.932209196056971`*^-293\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 93, 11, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333813432829*^9, 3.993126571953257*^9, + 3.993127288939659*^9, 3.9931275151364117`*^9, 3.993129490503615*^9, + 3.993130103643903*^9, 3.993826685989856*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"a76b4098-4422-4f38-8c9c-c126dc6043e6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 96, 17, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 93, 12, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991333813432829*^9, 3.993126571953257*^9, 3.993127288939659*^9, 3.9931275151364117`*^9, 3.993129490503615*^9, - 3.993130103651752*^9}, + 3.993130103643903*^9, 3.993826685995438*^9}, CellLabel-> "During evaluation of \ -In[96]:=",ExpressionUUID->"fca31b9c-2817-4a8d-a14a-c9553846e112"], +In[93]:=",ExpressionUUID->"6f52c85d-7f90-463a-ae8b-f8ffbfdaddcf"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VdsbB3AZCkWizMM5+xxDMo/hnN63gdCNiEhmqXSVklKiUKJQSFGX -DKEIZ2+kKw1CooSKTEVXk4SQqYnf/v21n8+zn2e9a797fdfam+kb5OjPz8fH -t2gBH9//r9N9TfXs+Lw1vN0SRlWIa9qvyR5b2xUNunhxcOsLJcAVrb6yXSng -rLCnfekLbTiypahToCsXDGx+ir1v48KyUZmUH51lIPx3dVVO22bov2cXNNlZ -Cz3DPXYdrR5gxR56O975Ehb2Dm+sad4HPzpNL411DkAlOzExoiYC6tbfyHuR -+x0yfi9uZjeeB8X+qk++Wn9AbL1GllfGZVge6FW0aL0Ait6cECnanQkp+lbV -ds7COL5GYdxNJxe60/VqxiXEsEG4tSNdPx/i80628sstw8d80ocUNW+CTOr7 -sxczpfBEgEQms6YIYp1s1rycXoH9obG2+l3FIF/RIs+/QBo7qU2JKe+KoVTK -aUZ/sTT+daqwemSwGF6/9CSTVaTxm5dPZ/KPYmA7hBAO1tL45cbpsST5Eqjd -nLWw7Yo0ZnOy+wJ2lMAfq6mW5xwZjDENeRTZVQKHzHK8mqJlccL3lK18TSnY -ZotPbkqQRR0W6IY3lAKxKDyu5ZIslq56lN3VXApt7duoVzdl8WpluUZUdyno -HFgi0Ncii+qfh2uTJkphsCC0YEJeDt/4lfcUsnjgvtxuRKFcDn01Lt59FMUD -w+PVUdfuyWFdm0thSCwPRAc0pJkNcmi6pVaRSORBFU8A1LrlcPXcSFJgOg+k -N1Ul6c3L4bbU6qKHpTxoi2IbWW6SR0uG+jnPHh5s+PYzbP97eRTS4XEeSpNw -zDpV89GwPJ5vemtnJEdCaY52j9S0PI4cfX6/QIEEWSdvsyphBbytKlh2ikHC -8L+PZwR0FDA4P3pSSZOEi9FJIVeOKqBtOPXlFYeEgRVq++vFFPH7+6+zlt4k -yAQ9VJKRUcREpt7dXb4k/NXo+jyAoYgtQ5o9p3eSUBkWr7XUUBE/aFImVXtI -ONc/NrTdVRFfzjL9+Q+SYFBYvftbriIu0ekrk44iIYrj4CO/Wglll/2z1DqL -BGvPaxOm65TwsozVjEUOCeKRX085/6WEBY/7n2ldJyGjLqYgyVsJ+ae6OEI3 -SPjX9u7XhWeV0Ord0IbkUhLGXFlHvncr4dDwMw3p+yTcCTuwaNkHJXwSnDDX -9YCEExn303VGlZCbnfA4vYaEJe9cqgP4lfF560mNpfUkqO9O4HunqYyFxS22 -nU9J8Dw8da75uDKO17y37ugkQTVtneJQjDIexHjX3d3/79+FkkVJyjgqWeg5 -3UNC2O+VbevylLEVKuwX95Fw6ZTniqpmZew9p98q8YGE5uQnWflKKrjMZzDt -3DcSzEuvVJx4qILX7UKUOYIUbOhs+TPaqILPfa18twtRYMcnuNHrpQrK+4Qs -CVlIgZ/j/m74qIJ+6Tsv5QhTYHWceTJSiIEPDnNOv11CwQGV6etrVzFQelBE -u3s5BVPlSY0/dBkoqzYp+HwFBWHWq0YoIwZuiD5t80CagpiD3ibEGgbqVoP8 -FVkKrtY9beR3YOCqHb0fdRUpqN+dNVJ3hIEzORExAwQFNr/NJMOP0/WaHrqV -sChoSWo3MYpkoF/P+euH2RR0V4lE5p1loIN3bvKcKgWji0MkYzIYuLlm1/C4 -BgWHssVNuTkMrGp4tffmSgpmjQp3TOUz8ItXmLe7JgUCnn15/jwGjtQ7l99b -RYEsaW1qVcvAN5ZJgl46FGRueL9jroGBjbclbBfoUkB0R0RWPmPgovoM0Rza -2vzlTWodDIz/99lclx4F65yU3BcNMrB+essjTUMKAmfHIxvFmHjtibHKNlMK -zA/ukv4kycTp1qYjPbSFh3puCcgysTBcZmDHagrye+teryGY2Dx+btrZjIK+ -B5e0bpswMXPdrZXqFhQUm4rWvrRgIkfonX4q7TDyhMsYMtE5cfXWOdrSubuj -V21iYriL7IcmDgX2MWZdOV70eBeWO65ZQ4HyXMm+hzuZ+HvyvUkq7eEjhMDb -ACYaOx40/0w7bs9iHdkQJjop5WSfBgq2/XeyzvgYE+smywRbabPdJl23nmDi -1ss+56SRgppNb0+dj2PiuET4nwza5+sd5IoTmdiv5jHcS9ud21DalEI/38nH -8zJrKfihw+sWzGRip59yWiztxhusICKXianfzipW077MSBfEG0x8ez+46Stt -A8ko3eMUE1l/qjI2rKOAL36qPr2SiX+YV+oDabcI7HWrrGai/Ni0dArtjPC+ -b69qmHgm5lJqBe2/pxxjxh8zUa/CdE07bfP9T+SXPmPikQU5y8dpC3+2ILXa -mFiQf0l28XoKXnuRlrYdTDwU32NL0M7rYvfu7mFihL1xsQntYIcrB2L66X5A -INeaNj4VW3j9AxO1dljNb6Mtvj76n5ovTBRwiJ/wpf22elqvb5SJgZECsoG0 -i43+bvj1nYnDM6EHgmmHlfTvkPvBxIGQst+HaVurOY2bzDFx3jfi/hHa0lmN -Z5wECGzqvV4eQvuDDFcxWJjA5QXj/UG0y5Io6oIYgbHGhuv30I4UUdtYIkmg -UJFxnwdt++irb57KEIitDdQW2sq/xIMHFQlUU7z9AGkPHzq1aCFB4I6yViEd -2neHZzJY6gTWeXyKlaUd5x9osFaLwG8Xmyz5aG/re/fEU5/AjEO2+JHuH9vF -2SPchECjevOjT2hPtDZNXLGg600FjhbQrrFeE3cHCfyiVHH9FO3zj8qUOiwJ -3Pf7fboHbXdz9fIJWwLzptpajGj/WCXRp+1MoIKIKV8v/f6nM+WjDN0ITHaS -+lJEe3KpKtvMi0CbKQ/do7RHv5vt3RBA4KWa/Z2itL/6bxCz3U+g9a0W8zZ6 -/Q122pH2hwg8tbdtLoX2QLXftFsEgXre329J0O7X3n/FO5rACpHyy8/o9f0m -6yhnVyyBXwMdPp6i/fpUYvTBZALri/ZRw3Q+nm66Ix6XT+BzOwXFLC4FT+4/ -ohKLCFw2V8expF2v2+x0kUeg2+d3Twbp/D2Q+u/qtSoC06abGRq0y3pF1W8/ -p+tv+zAZa04Bb/OKp3df0uNr5UTK0S5+qLKvppPAN+/iI27S+S+4blT+7D8C -j5k6tjyg94erf3vCwBSBtqdT3zebUJD2ds/A558Evt1SKmFLO9X+UMzIPIGD -DS9v1xvT/TaMezYrwsIqu4q/y4woiP5FuSxVZiHVuf5akAGdj3ihAxwrFrrp -ZL4/qE3Bnj9LpdZtYmFFydWfDVoU7AqSr9y4hYV6k4/S5Gh7b9X97ejGwhvx -6nvu0Punk8L2uID9LCxqvBbWoU4B51Zx9uXLLIzY62aQwaSgl3Ery/Ifun4B -w7mLQa/3y4XXJrNYmLzS2kOS9p2oggzHQhZmlT5kRCrTeXfNThe/x0L+1TFn -1ylQsFIoNenMfyzk9Rom+tHnS2NYygXjTyz85OHkc0KKnt9Y0vkPQyw0Wb9M -PU2SzmtvYsK6SRZuHA07VytBAaMsNm5uIRsHXHsb+MToPHkdjzyixcbLDfaP -Fejz7nb7sZOq+my80C60TJo+D51sj55oN2bj8plBN3EBClKMD4cbABtnmv2H -Z/koEFsSdHTUgY1qWy4rVv4mQbDK98CuUDY+lrvj/+I7CeOStt7batmonpFj -k/yOhK5Aom3vEzaW+j7y0+8noabhJ5xsZuOwpjq2viUhKeyWys3X9H1rwQ2C -vSToDSzp/zHERtabjktbO0jYT7V6ZEqp4p25eIe4JhKG7J13fNipinmZwlUO -JAkvC7WfzQao4t6j9vrF9PfIXYGFFmJBqijCF3VesISEs3cq5U2OqWKRlfjv -0kISNFRke2ITVXEwv6l2KJeE3aM9rqsqVVFx6MjMXCoJHxK8twUvUsOof1pf -5ITS9Ye0CL0lanis73Ni72ESZjb+GBmRUEMd85iLUiEkiAqkxATIq2Fm24KT -Jw7Q8z9WV+GtrYa5DqNjEEBChL+alP1WNfwmES0R7EaC9Jrh1lVZahijc6Dh -igUJNt9CbT6aqGPZVlacywQPFPWVzwhz1NFBx809Z4QHo8H1tavWquMmN96/ -nwd5kDotwQnepI6i7w9K7e3nQd+fQp15L3WUmE+6ZNnMg+Alb6TkzqrjeHL5 -6PZ8HlxdiX1/9aqj5D5dSRFnHgz7CR+qOKmBirNh4aK3Sun/ERn+2NqVKN2Q -M7uYWwKSz9XOk980UVd8S/Pwk1ugGMfbYmKihSUnYkfPyhVB+iozCand2uiW -RNrIh96Ep/Jrjb8n66D5zcXvlrQXgLlibZLua10MTSkSCBbNB3GB3BCfaD1s -kvV8s8f3OihHqXC2q+njp8bn115n5YCIqnul4xN9dHdMWLb8cxbocOV4oR4G -mBXHWhQ+mAHBfZJ1tnyG+PbQ/a+PXl6Bb98TnG3SDdHwp/3cAqU02KjbcNVG -2wjXOVtLnMlOhQffLX7NtBihqwB5tpCRAvu1DHpe+BtjasAlBmf2AnBHd7Zv -FzHBq1miCX/diwdLtuxmsVwTdJ54FGuwMg40Is8drTU1xcjQIPtf86dB09/s -oWqPKc42ah1YORYF/g/2nK44uBqvJ8jXp7eegIfZ7TvHV5ihiZf6QcNfx2Dy -5vyM7h0zFDImvlb1HAY/1VsiVzeb40j1defwqGAY17xoUjZmjmOmrX9+39sP -/+b9+m8qzgI3DpjfkL4TAG4bWGihzMGsgpAlj8P9QWFfbJVODQd9CoIKWGk+ -cH5+l3F8LQf3Wma1vj7rA/wpVtTneg76s6MqUsJ9YKhSqDC7iYPyOiJZbF8f -uMt3Ol3yFQfvqJiHkto+4JYaGTr9kYOTmR5mOxu8Ib36mPGDxVxsL9GYXv3b -C1aIBlKbXbj4szt/mlzsAXnrI8LGtnMxKcejNHnCHQwizq+/6M5FIdeavTHd -7mA3RnZ0+XAxUKa0Nv+GO5x5PfXDL5CLGd2WNxs3uMNs7sl1YVFc1HDMJRKj -d0CPxcVXBbe4OPOnNqFmsRvsOZyXYVPKReau8qivk9thuvS2/zDJxa+VkWIa -fdtBkuia0a/k4gkbo/sd5HbYJKykeL+Gi7y4NCt+l+1wr71g56sOLibsTfO4 -XOAKtuL/ah/p4qKi7M6LHUmu0LWxaVq2l4udOy1I1eOuMHn3a5znOy6u/Xn3 -0Ky9K2jn6JV8GeKiHKv/+66fLnCvZ+2RhBEualI1hlofXcB2+VbQHeOiGpwT -5G9zgV2xh1+ETHHx8SJlnf58F5isOXNVZpaL/UHpBz8luUD0zzS/uz+5eM9g -h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8Vd3XAHDRIGWW2XXuNSQZMue6t7VSmYfIlBCJUKZSioxRiiRKqITk +l4h7T0WGkKFMDU8hlVA0PEI8ZWiQ97x/nc/3j73PPmvvtdY+9D2hjn68PDw8 +tCU8PP//nB3saFVOLd6U2Mp3ZL7cdFNPvvSxzf2JsH3r51/5dDrgmmd7pPsz +YUfK6bxIug4c2X7rFV9/EWQPT7/0oG8G0UmpzJ+vSPgTYyqlR3eAoXq70B+v +miFk3UhvOeEDZspj76ZfvYCYgmy7Ylo4/HxldHHq1QcIW2PXnCaZAC1b/lf8 +T9F3+MD+p1ml9DzID9V82qOxAE1bJtaNfcoFiQO7b63YwofvVqf3DD0pgEwd +szo7Z34UUHFZ2VVVDK9zNjRNiwgiFuha8AvfhNTiuGe8MqKYr7FWpMC2DKQu +jJzOuiqOi8Z1LukiFSC9/l7SfIk4lhS+114uWwGyzSfjPDniOOFc0xqpVAG0 +qXWH17aI48y3WnkLwwpQsQnzrvsijnwLen5Xd1WA3tIFwxE9CXQwiHWTuVEB +9hGSo7qdEpj/WHyTvV4lnHKy3PRidg2+X17+aRONA7J3n8ryLpHEjx95aCcY +HKgQd5rTWSWJguk2J1pUOdD3wotzXlESzXrpfRu1OaDsEMFwsJBEt6kz52eA +A82215Y/z5VEPmaoQLU3BxbMZp4+YUmhwgrjMtdrHMgoiSpbMJPCBP3RKeI6 +NX45T4qmgxSe6Frr/qmEAzZtApvP+kmh+fFz2X4VHMjbQtyxSZfCGUYfx+AB +Bzai9aWuISnc8qIW5N9w4JBx4e6ORGm0TAmrXiLKBasCoR/WadL4UYIUlJLg +AmPF8ZSnF6WxMqKAd50UF573uHBf3pRGzRDPdlMFLmiFreYbfCqNAdWnm23X +ceFLSWTJf7Iy+MejM+QhcsFDwm5C7o4MGvR3tSsGc0Evui4hv14GW1RvzraH +ckHgg5ok/ZEMrtgt0hpykAs1lXyg+loGo/2/sDmRXJC0rsnYsCiD86zbHIFE +6v0JyvrbrGWx6mjVbYVsLmz99isqZEQWwzq9JB/UceGYxQX1h+Oy+J9vMfPb +Ay5UFGq+EZ+VxUoBYRVaExeknbyNa/jlkCdK2/ZgKxfG77fN8WnJofyd3qnv +3VzISsyIyD0qh54dF2s93nHhwxrVkFZBeRxMG9d+9JsLUqGNClJS8vglXe7i ++QUu2LS7PQkk5HGkW6pj5yIXqqJSNYT15PH74878YV4SzgxNje10k8cCgfMC +7StJ0C2t2/etSB7D58x0/0qSkMBy8JHdqICyNif8BbRJsPDK/8/IVAFV1V4X +pW8gQSj+6wlnGwV0NipdL6xLwpWW5JIMbwWU0vqlvMyAhPtWtV+Xn1bAkqUH +H7UySZhyUzry/bUCXrikY5m1jYTqqLAVoqMKuMzXN2vAjITYKw9ytCYV0Kmh +UI9hQcLqYde6QF4amj3852iRFQlr96XxDKvTMJ9HUS3SngSvwzNnuqNpeOiQ +XmW4Gwkql0zlx5Jp6GavVhq/k6Tid+72igwa/sv6yJfmTkLUn3XPTYtpODN0 +dvCSBwkXT3itqemm4eRgFSvJmwSPG2UlfX00TF+yxOGIDwmMx/NGP4ZpOO/y +rmvvHhI4Alnu2jM0FL1vNm+4l4Tu84+v3VBQxMbLU8jZR0LWHQmdlrWKeG24 +Pz85gAT3Xp/mYR1FBIG9ga6BJHyR/jMqZ6aIy0XizaeCSOAr2KCeGaKIX136 +2HPBJDArcu/GNirilEXNI/dDJGx99XRhsl0Rz/XqTY9TtuNZar77hSK6v/22 +8ngECb6OIa/hoyL6JI7xnz9Mglk0PS5+GYFaJy23Z0eS0CVcf32jAIGrLq/j +ETlKwvZil/YpIQJbR99eP0l515NUUR9pAhNY6R1Bx0gIU5y9vnk9gaXKRkVC +0STM3Mlo/6lNYGYuZ2kY5SiL9RNcfQL3Jzd4P6WcHO5tyNhEjfc+xZ94nASB +5b/d35gSeI+33vkV5Yy8i3GZ5gQ+jz96bV0MCXktne28DgRq1ietb6Os6OY3 +UetM4KimU6hQLAnF44uih9wJ9B+5RTpRrlxjsGvEl0BDcobZT1n/1rO4ywEE +hoeHJqyJI6F2U1DxjmAC7RqjO+0pt+67NtFyhECxA7v31VG2/GMsdjyawM2O +zfXjlJ9m9BjqxxOY0fNUSi6eBCeV0F3jSQQuptgcM6P8umZlfPFpAnUa+T6E +UPayKy72SCfwU9wDxwuURz9s6pDIIvBY2pbuKsqBka8nui8RGODlbd9HeXJV +hFjyFQIbVIcG/qN8qEDIiF1IYO6T1MOrE0iY1y/dNXODwIppXVklyrEdW+Jv +3yLw/ufCLkPKfF6DxX6VBP6uKTljTjnlv6MdCncJbF8r4uZMWeiU+GTvfQKH +i2/re1POkqsQS39A4Oqd9vQAytIcCyOzZgKTFB/Rgilf3Tqy6+8jAo+fHNEM +pcx4HRNf1UXg6afH7EMo3wyWvhHynEDtsV1JQZQ1ee90qPYS6BDj+cSXMplt +Ozn4mkDOgON6d8ob138RuzRIfa+g6DVbyg8aE43sRwj0aA1et4myqZOCx4ov +BLb5Qdd6yo+/VMc3jhN4aalnsiRlmxjHG5HTBAruyXf7S8XnhehEh/YsgSIT +b7eNUHYtOTX5+ReBLQ8nbdsoDzAZ4gWLBH67yQkvprznWb2R21I6Rkv94cZT +PjA/Hd8uSMev1VdSN1BmhvtLfhKj4+77X6x4KPOPvSnjk6bjzp6o0m5q/2+8 +benbxKBjwJUBi12UI5w2HvBYS0d7zdFUBcqmT8qXRGnQ8WFh4cEB6rwNNlzU +uGdIx8uT1drbKZcbCTS/MKEj9709/zLKUZxY1ymkI21c7nQVdZ4li/Ylrrem +Y4dF/ylhyvbJxv2Fu+n4MrcrN5fKF9rf28GNe+mYmfD5pR7l8SMMvneBdBTy +8mrsjKL2O2CVlnQEHY9P8FROUvnYZP3uRHoKNb9Om6gwla/prQ4y5WfpePSo +11w6ld8e7EcVHZl0dOrjXFpF+adW5eulV+mY9gMEf1P1QFcsQTuaS8ektWET +JFU/eFJnWnOq6Nhcpt8pTfkpX5B7VR0d36wy2x99kIT9M47J02107HuptmgY +TuVjv/LbfW/oaNkjmHEqhISDDrlhyUN07HrhyH1J1SvsFFx+fZSOn8LLC+Qp +v6ub3TA4Sce4lIzJ4v1UPK61n3TiY+Bw8njgOaoejkqx5Q/yM9AmrJDWTNVL +MoPLPSfIQA9pv7JpfypeiXkDnVIMnNym7GjuR8XD74DuZg0GPv5nYa6bqsc/ +14sMajoz8Kb+gRZTqp7PXpVN0HNn4MHR61ssqHr/Q1hF2Xg3A3u6prutqH4w ++d04aGsgAxUzmxfNXEj4UOc76x7DQK27f/jlHUnotK4WSrnBQGaqRLOxJXVe +Hzzknr1Fje8OChSh+k+rdrdTViUD+V+MaY5S/alB/H1efg0Du0YSxU9spdb/ +VmDtvScMfCI7FZEPVH3b7wUfZhhoeCyXa0P1v0vvAj58/sVAAamxthk9Ei7Y +H0qeWGSgiIzE6itUv0zXS+maX6mEPTv19Yap/pr4m+sqTFPC187Joubq1H6k +LgtjmSmh53VtowwaCayy8oLsbCVcmh2bIrOMhLdE2bVtl5Uw/MmN2BQ+6jxm +l+b/uKaE5SKJ62aWUP01oeSKY6kS9rY+L3z8lwu6bgU5QvVKqJYjx3KY58K6 +ZRcyTr5XwhpVdfH5Meo+szs6/oiGMu78tZ955SkX7vUci1PRUcZQX7W5Fur+ +4WR1NLbHQBnb3k6n/dvJhUyDw8d1QRnZ3tYWWo+5ILg69OikgzIKySXR8hu5 +sLRmT5h/pDJW/s/aVprDhWkxK2+XZmV0P980EnuOC/0HGM+DHlPzJe1zNjzL +haZHvyCuWxmPzSnt/3qGCxlRZYo3+5RRo/Nrit1JLmz4sHro55gyjsdq3J8/ +zoUQ7jPPq+IqGKuykjkYyIUxe+ddo3tV0EWwJGZ+MxdG07xdDq5QRSer5zua +vnLA8luk5UfDtVj/Xc9xoyEHxn35D92NU8MjYoTnOU4F9X8gxXuqeR2qsJMW +mnrLQeyJajrnmzpa1X1Oc+EtA/mUyu2GhhoYtJD9KGHuJuSsNxYR36eJNbyr +8q1W/g86ZTcbfD+vhX/SPubeVr0BTPnmDO0+bTxnHDxeonwdhPiKInwSN+CS +Cf35vh2FQEtQZO1U1cE2+Q+zJ0byYaWKR5XjYx10fDjkEud3GbTYMpWRnrrY +uH9vsKlbDhwcFGux4tHDiobXC1fMLsK372nOljl6OHCENa95IxPMtR/lWWrq +Y2hKS+crywxo+G7ye+6pPkZ4rvrp/yMVQjR03/zjZ4AGfuq7TkqlAHtyb8/O +lYYY98FMpWh3EmxTlrYVLDJEaZG0UHBIALX4M0ebjYzQ687NzANeMaDuZ9yo +8sYIx4tcGXP7joJfQ0DS3fCNGJtnamYXFAGNBT17p9cY42JpccO/1WHw4+bi +nHa1Mfr9dJhZYr8fPrmYFZyuMcY3BTuUJZn7oX/pWYuROmM8o6G3aKSyH+q8 +ZXOzm4wxaZvZ1eLfQZAobcBc6DBGQZZmPVEaBCIpQcc7B4yxULbpYv7yINDY +18vjx8vEr80+WQldAeCrUrYyz5aJ72tLZMKj/SGqzStIdTsT+ci8WXaAP2T4 +iXWRjkwUl1/zQ9rZH+pvHEvrcmXitNWqDT+1/EFC1UJ4wYeJkUnp7T4jfvBI +9aOE9xEmFmlPBXTb+YG6miKheo2JOz99d32mvRem1bMMySkmrn3YtqFHeg/0 +d+M28e9MTDpn3TO/cg80hUzuiJhhYowwSqj99oF00jLc8BcT76gqO5S88wF1 +Jk95LZ8J9pnIrKFf94E9lsH0FkkTlEtoihXY4AM9+8xX97BM0OuhgdgJB2+4 +X/z7/UyKCfIMRG1J8fUEwy0Rc1apJrg6ucQQrD3h3vvx1QVnTdDmuGjrCj1P +IGmDRlaZJigzPHHiCa8nlOc0nc2/bIJ5FoUR6tc9oCAt2di8wgR9F/2F6J93 +wekI4fM5L00wOpCZXxPtDu5bldCExsIGuaqYwF5XWOjhF2ohWJh+LHAuvtEV +Cvwm31opsfB05TnWrVJX+HSyJtJdjYWPa7R+6sS6wsEO+8pjuiycet81LqHm +CmfsjtPum7Hw8JJHbrQ4F6h16/2jH8qi+tM28wljZ5ALPlWj1cRCERE+2t8h +R0hf9DdIbWbheyueX57PHIE304z7uZWFZQUJg50NjjBWtay0oIOFaVJ5+V1X +HaGWJylH7CULMxWfCQR4OIL7hfjI2Y8sjPwQQFs24AA5dccMGlax8X32rN/F +0e2wRuAA19aVjalO1pCqawfFW2KipnaycTKYxq8kYQe6MelbsjzYuGxHIKtv +xhbspji9/T5s/Gw8m5leYwsn+2Z++h5g480dGWVbTW1hvijONCqBjcMPArbf +dbOBNyZZL0vK2DjQ1yYjlmsFAYeLr1hWsHFVTvGObzFWMFtxz2+cw0Z104ED +H/dYgRijf06nio1CQ38n5TStwJpfQf5BExtXVFiJcJotob6nZO/LXjbWS74b +8v3PAqyE7mse6WfjnpCan239FtBv3jEr/ZaNeGimARot4Eft1xSvYTbaLNfg +iUqzAM3CDbf/HWNjtV389hVqFlD/ZvORtAk2GlX8qFYWpuaT2AHaU2wkRTca +7Jw1B/9Th/+JmGHjoNbmtSvazOFH08k8qXlqvRe0IuPLzSHx1yXf2l/U99ow +s0QumIOIfqmG5wIb25TWBFZHm0N+cO3M4iIbz4VHf4rwNYf/A/JUB3Q= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7047,116 +6988,124 @@ h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VdsbB3AZCkWizMM5+xxDMo/hnN63gdCNiEhmqXSVklKiUKJQSFGX -DKEIZ2+kKw1CooSKTEVXk4SQqYnf/v21n8+zn2e9a797fdfam+kb5OjPz8fH -t2gBH9//r9N9TfXs+Lw1vN0SRlWIa9qvyR5b2xUNunhxcOsLJcAVrb6yXSng -rLCnfekLbTiypahToCsXDGx+ir1v48KyUZmUH51lIPx3dVVO22bov2cXNNlZ -Cz3DPXYdrR5gxR56O975Ehb2Dm+sad4HPzpNL411DkAlOzExoiYC6tbfyHuR -+x0yfi9uZjeeB8X+qk++Wn9AbL1GllfGZVge6FW0aL0Ait6cECnanQkp+lbV -ds7COL5GYdxNJxe60/VqxiXEsEG4tSNdPx/i80628sstw8d80ocUNW+CTOr7 -sxczpfBEgEQms6YIYp1s1rycXoH9obG2+l3FIF/RIs+/QBo7qU2JKe+KoVTK -aUZ/sTT+daqwemSwGF6/9CSTVaTxm5dPZ/KPYmA7hBAO1tL45cbpsST5Eqjd -nLWw7Yo0ZnOy+wJ2lMAfq6mW5xwZjDENeRTZVQKHzHK8mqJlccL3lK18TSnY -ZotPbkqQRR0W6IY3lAKxKDyu5ZIslq56lN3VXApt7duoVzdl8WpluUZUdyno -HFgi0Ncii+qfh2uTJkphsCC0YEJeDt/4lfcUsnjgvtxuRKFcDn01Lt59FMUD -w+PVUdfuyWFdm0thSCwPRAc0pJkNcmi6pVaRSORBFU8A1LrlcPXcSFJgOg+k -N1Ul6c3L4bbU6qKHpTxoi2IbWW6SR0uG+jnPHh5s+PYzbP97eRTS4XEeSpNw -zDpV89GwPJ5vemtnJEdCaY52j9S0PI4cfX6/QIEEWSdvsyphBbytKlh2ikHC -8L+PZwR0FDA4P3pSSZOEi9FJIVeOKqBtOPXlFYeEgRVq++vFFPH7+6+zlt4k -yAQ9VJKRUcREpt7dXb4k/NXo+jyAoYgtQ5o9p3eSUBkWr7XUUBE/aFImVXtI -ONc/NrTdVRFfzjL9+Q+SYFBYvftbriIu0ekrk44iIYrj4CO/Wglll/2z1DqL -BGvPaxOm65TwsozVjEUOCeKRX085/6WEBY/7n2ldJyGjLqYgyVsJ+ae6OEI3 -SPjX9u7XhWeV0Ord0IbkUhLGXFlHvncr4dDwMw3p+yTcCTuwaNkHJXwSnDDX -9YCEExn303VGlZCbnfA4vYaEJe9cqgP4lfF560mNpfUkqO9O4HunqYyFxS22 -nU9J8Dw8da75uDKO17y37ugkQTVtneJQjDIexHjX3d3/79+FkkVJyjgqWeg5 -3UNC2O+VbevylLEVKuwX95Fw6ZTniqpmZew9p98q8YGE5uQnWflKKrjMZzDt -3DcSzEuvVJx4qILX7UKUOYIUbOhs+TPaqILPfa18twtRYMcnuNHrpQrK+4Qs -CVlIgZ/j/m74qIJ+6Tsv5QhTYHWceTJSiIEPDnNOv11CwQGV6etrVzFQelBE -u3s5BVPlSY0/dBkoqzYp+HwFBWHWq0YoIwZuiD5t80CagpiD3ibEGgbqVoP8 -FVkKrtY9beR3YOCqHb0fdRUpqN+dNVJ3hIEzORExAwQFNr/NJMOP0/WaHrqV -sChoSWo3MYpkoF/P+euH2RR0V4lE5p1loIN3bvKcKgWji0MkYzIYuLlm1/C4 -BgWHssVNuTkMrGp4tffmSgpmjQp3TOUz8ItXmLe7JgUCnn15/jwGjtQ7l99b -RYEsaW1qVcvAN5ZJgl46FGRueL9jroGBjbclbBfoUkB0R0RWPmPgovoM0Rza -2vzlTWodDIz/99lclx4F65yU3BcNMrB+essjTUMKAmfHIxvFmHjtibHKNlMK -zA/ukv4kycTp1qYjPbSFh3puCcgysTBcZmDHagrye+teryGY2Dx+btrZjIK+ -B5e0bpswMXPdrZXqFhQUm4rWvrRgIkfonX4q7TDyhMsYMtE5cfXWOdrSubuj -V21iYriL7IcmDgX2MWZdOV70eBeWO65ZQ4HyXMm+hzuZ+HvyvUkq7eEjhMDb -ACYaOx40/0w7bs9iHdkQJjop5WSfBgq2/XeyzvgYE+smywRbabPdJl23nmDi -1ss+56SRgppNb0+dj2PiuET4nwza5+sd5IoTmdiv5jHcS9ud21DalEI/38nH -8zJrKfihw+sWzGRip59yWiztxhusICKXianfzipW077MSBfEG0x8ez+46Stt -A8ko3eMUE1l/qjI2rKOAL36qPr2SiX+YV+oDabcI7HWrrGai/Ni0dArtjPC+ -b69qmHgm5lJqBe2/pxxjxh8zUa/CdE07bfP9T+SXPmPikQU5y8dpC3+2ILXa -mFiQf0l28XoKXnuRlrYdTDwU32NL0M7rYvfu7mFihL1xsQntYIcrB2L66X5A -INeaNj4VW3j9AxO1dljNb6Mtvj76n5ovTBRwiJ/wpf22elqvb5SJgZECsoG0 -i43+bvj1nYnDM6EHgmmHlfTvkPvBxIGQst+HaVurOY2bzDFx3jfi/hHa0lmN -Z5wECGzqvV4eQvuDDFcxWJjA5QXj/UG0y5Io6oIYgbHGhuv30I4UUdtYIkmg -UJFxnwdt++irb57KEIitDdQW2sq/xIMHFQlUU7z9AGkPHzq1aCFB4I6yViEd -2neHZzJY6gTWeXyKlaUd5x9osFaLwG8Xmyz5aG/re/fEU5/AjEO2+JHuH9vF -2SPchECjevOjT2hPtDZNXLGg600FjhbQrrFeE3cHCfyiVHH9FO3zj8qUOiwJ -3Pf7fboHbXdz9fIJWwLzptpajGj/WCXRp+1MoIKIKV8v/f6nM+WjDN0ITHaS -+lJEe3KpKtvMi0CbKQ/do7RHv5vt3RBA4KWa/Z2itL/6bxCz3U+g9a0W8zZ6 -/Q122pH2hwg8tbdtLoX2QLXftFsEgXre329J0O7X3n/FO5rACpHyy8/o9f0m -6yhnVyyBXwMdPp6i/fpUYvTBZALri/ZRw3Q+nm66Ix6XT+BzOwXFLC4FT+4/ -ohKLCFw2V8expF2v2+x0kUeg2+d3Twbp/D2Q+u/qtSoC06abGRq0y3pF1W8/ -p+tv+zAZa04Bb/OKp3df0uNr5UTK0S5+qLKvppPAN+/iI27S+S+4blT+7D8C -j5k6tjyg94erf3vCwBSBtqdT3zebUJD2ds/A558Evt1SKmFLO9X+UMzIPIGD -DS9v1xvT/TaMezYrwsIqu4q/y4woiP5FuSxVZiHVuf5akAGdj3ihAxwrFrrp -ZL4/qE3Bnj9LpdZtYmFFydWfDVoU7AqSr9y4hYV6k4/S5Gh7b9X97ejGwhvx -6nvu0Punk8L2uID9LCxqvBbWoU4B51Zx9uXLLIzY62aQwaSgl3Ery/Ifun4B -w7mLQa/3y4XXJrNYmLzS2kOS9p2oggzHQhZmlT5kRCrTeXfNThe/x0L+1TFn -1ylQsFIoNenMfyzk9Rom+tHnS2NYygXjTyz85OHkc0KKnt9Y0vkPQyw0Wb9M -PU2SzmtvYsK6SRZuHA07VytBAaMsNm5uIRsHXHsb+MToPHkdjzyixcbLDfaP -Fejz7nb7sZOq+my80C60TJo+D51sj55oN2bj8plBN3EBClKMD4cbABtnmv2H -Z/koEFsSdHTUgY1qWy4rVv4mQbDK98CuUDY+lrvj/+I7CeOStt7batmonpFj -k/yOhK5Aom3vEzaW+j7y0+8noabhJ5xsZuOwpjq2viUhKeyWys3X9H1rwQ2C -vSToDSzp/zHERtabjktbO0jYT7V6ZEqp4p25eIe4JhKG7J13fNipinmZwlUO -JAkvC7WfzQao4t6j9vrF9PfIXYGFFmJBqijCF3VesISEs3cq5U2OqWKRlfjv -0kISNFRke2ITVXEwv6l2KJeE3aM9rqsqVVFx6MjMXCoJHxK8twUvUsOof1pf -5ITS9Ye0CL0lanis73Ni72ESZjb+GBmRUEMd85iLUiEkiAqkxATIq2Fm24KT -Jw7Q8z9WV+GtrYa5DqNjEEBChL+alP1WNfwmES0R7EaC9Jrh1lVZahijc6Dh -igUJNt9CbT6aqGPZVlacywQPFPWVzwhz1NFBx809Z4QHo8H1tavWquMmN96/ -nwd5kDotwQnepI6i7w9K7e3nQd+fQp15L3WUmE+6ZNnMg+Alb6TkzqrjeHL5 -6PZ8HlxdiX1/9aqj5D5dSRFnHgz7CR+qOKmBirNh4aK3Sun/ERn+2NqVKN2Q -M7uYWwKSz9XOk980UVd8S/Pwk1ugGMfbYmKihSUnYkfPyhVB+iozCand2uiW -RNrIh96Ep/Jrjb8n66D5zcXvlrQXgLlibZLua10MTSkSCBbNB3GB3BCfaD1s -kvV8s8f3OihHqXC2q+njp8bn115n5YCIqnul4xN9dHdMWLb8cxbocOV4oR4G -mBXHWhQ+mAHBfZJ1tnyG+PbQ/a+PXl6Bb98TnG3SDdHwp/3cAqU02KjbcNVG -2wjXOVtLnMlOhQffLX7NtBihqwB5tpCRAvu1DHpe+BtjasAlBmf2AnBHd7Zv -FzHBq1miCX/diwdLtuxmsVwTdJ54FGuwMg40Is8drTU1xcjQIPtf86dB09/s -oWqPKc42ah1YORYF/g/2nK44uBqvJ8jXp7eegIfZ7TvHV5ihiZf6QcNfx2Dy -5vyM7h0zFDImvlb1HAY/1VsiVzeb40j1defwqGAY17xoUjZmjmOmrX9+39sP -/+b9+m8qzgI3DpjfkL4TAG4bWGihzMGsgpAlj8P9QWFfbJVODQd9CoIKWGk+ -cH5+l3F8LQf3Wma1vj7rA/wpVtTneg76s6MqUsJ9YKhSqDC7iYPyOiJZbF8f -uMt3Ol3yFQfvqJiHkto+4JYaGTr9kYOTmR5mOxu8Ib36mPGDxVxsL9GYXv3b -C1aIBlKbXbj4szt/mlzsAXnrI8LGtnMxKcejNHnCHQwizq+/6M5FIdeavTHd -7mA3RnZ0+XAxUKa0Nv+GO5x5PfXDL5CLGd2WNxs3uMNs7sl1YVFc1HDMJRKj -d0CPxcVXBbe4OPOnNqFmsRvsOZyXYVPKReau8qivk9thuvS2/zDJxa+VkWIa -fdtBkuia0a/k4gkbo/sd5HbYJKykeL+Gi7y4NCt+l+1wr71g56sOLibsTfO4 -XOAKtuL/ah/p4qKi7M6LHUmu0LWxaVq2l4udOy1I1eOuMHn3a5znOy6u/Xn3 -0Ky9K2jn6JV8GeKiHKv/+66fLnCvZ+2RhBEualI1hlofXcB2+VbQHeOiGpwT -5G9zgV2xh1+ETHHx8SJlnf58F5isOXNVZpaL/UHpBz8luUD0zzS/uz+5eM9g -h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= +1:eJwV13k8Vd3XAHDRIGWW2XXuNSQZMue6t7VSmYfIlBCJUKZSioxRiiRKqITk +l4h7T0WGkKFMDU8hlVA0PEI8ZWiQ97x/nc/3j73PPmvvtdY+9D2hjn68PDw8 +tCU8PP//nB3saFVOLd6U2Mp3ZL7cdFNPvvSxzf2JsH3r51/5dDrgmmd7pPsz +YUfK6bxIug4c2X7rFV9/EWQPT7/0oG8G0UmpzJ+vSPgTYyqlR3eAoXq70B+v +miFk3UhvOeEDZspj76ZfvYCYgmy7Ylo4/HxldHHq1QcIW2PXnCaZAC1b/lf8 +T9F3+MD+p1ml9DzID9V82qOxAE1bJtaNfcoFiQO7b63YwofvVqf3DD0pgEwd +szo7Z34UUHFZ2VVVDK9zNjRNiwgiFuha8AvfhNTiuGe8MqKYr7FWpMC2DKQu +jJzOuiqOi8Z1LukiFSC9/l7SfIk4lhS+114uWwGyzSfjPDniOOFc0xqpVAG0 +qXWH17aI48y3WnkLwwpQsQnzrvsijnwLen5Xd1WA3tIFwxE9CXQwiHWTuVEB +9hGSo7qdEpj/WHyTvV4lnHKy3PRidg2+X17+aRONA7J3n8ryLpHEjx95aCcY +HKgQd5rTWSWJguk2J1pUOdD3wotzXlESzXrpfRu1OaDsEMFwsJBEt6kz52eA +A82215Y/z5VEPmaoQLU3BxbMZp4+YUmhwgrjMtdrHMgoiSpbMJPCBP3RKeI6 +NX45T4qmgxSe6Frr/qmEAzZtApvP+kmh+fFz2X4VHMjbQtyxSZfCGUYfx+AB +Bzai9aWuISnc8qIW5N9w4JBx4e6ORGm0TAmrXiLKBasCoR/WadL4UYIUlJLg +AmPF8ZSnF6WxMqKAd50UF573uHBf3pRGzRDPdlMFLmiFreYbfCqNAdWnm23X +ceFLSWTJf7Iy+MejM+QhcsFDwm5C7o4MGvR3tSsGc0Evui4hv14GW1RvzraH +ckHgg5ok/ZEMrtgt0hpykAs1lXyg+loGo/2/sDmRXJC0rsnYsCiD86zbHIFE +6v0JyvrbrGWx6mjVbYVsLmz99isqZEQWwzq9JB/UceGYxQX1h+Oy+J9vMfPb +Ay5UFGq+EZ+VxUoBYRVaExeknbyNa/jlkCdK2/ZgKxfG77fN8WnJofyd3qnv +3VzISsyIyD0qh54dF2s93nHhwxrVkFZBeRxMG9d+9JsLUqGNClJS8vglXe7i ++QUu2LS7PQkk5HGkW6pj5yIXqqJSNYT15PH74878YV4SzgxNje10k8cCgfMC +7StJ0C2t2/etSB7D58x0/0qSkMBy8JHdqICyNif8BbRJsPDK/8/IVAFV1V4X +pW8gQSj+6wlnGwV0NipdL6xLwpWW5JIMbwWU0vqlvMyAhPtWtV+Xn1bAkqUH +H7UySZhyUzry/bUCXrikY5m1jYTqqLAVoqMKuMzXN2vAjITYKw9ytCYV0Kmh +UI9hQcLqYde6QF4amj3852iRFQlr96XxDKvTMJ9HUS3SngSvwzNnuqNpeOiQ +XmW4Gwkql0zlx5Jp6GavVhq/k6Tid+72igwa/sv6yJfmTkLUn3XPTYtpODN0 +dvCSBwkXT3itqemm4eRgFSvJmwSPG2UlfX00TF+yxOGIDwmMx/NGP4ZpOO/y +rmvvHhI4Alnu2jM0FL1vNm+4l4Tu84+v3VBQxMbLU8jZR0LWHQmdlrWKeG24 +Pz85gAT3Xp/mYR1FBIG9ga6BJHyR/jMqZ6aIy0XizaeCSOAr2KCeGaKIX136 +2HPBJDArcu/GNirilEXNI/dDJGx99XRhsl0Rz/XqTY9TtuNZar77hSK6v/22 +8ngECb6OIa/hoyL6JI7xnz9Mglk0PS5+GYFaJy23Z0eS0CVcf32jAIGrLq/j +ETlKwvZil/YpIQJbR99eP0l515NUUR9pAhNY6R1Bx0gIU5y9vnk9gaXKRkVC +0STM3Mlo/6lNYGYuZ2kY5SiL9RNcfQL3Jzd4P6WcHO5tyNhEjfc+xZ94nASB +5b/d35gSeI+33vkV5Yy8i3GZ5gQ+jz96bV0MCXktne28DgRq1ietb6Os6OY3 +UetM4KimU6hQLAnF44uih9wJ9B+5RTpRrlxjsGvEl0BDcobZT1n/1rO4ywEE +hoeHJqyJI6F2U1DxjmAC7RqjO+0pt+67NtFyhECxA7v31VG2/GMsdjyawM2O +zfXjlJ9m9BjqxxOY0fNUSi6eBCeV0F3jSQQuptgcM6P8umZlfPFpAnUa+T6E +UPayKy72SCfwU9wDxwuURz9s6pDIIvBY2pbuKsqBka8nui8RGODlbd9HeXJV +hFjyFQIbVIcG/qN8qEDIiF1IYO6T1MOrE0iY1y/dNXODwIppXVklyrEdW+Jv +3yLw/ufCLkPKfF6DxX6VBP6uKTljTjnlv6MdCncJbF8r4uZMWeiU+GTvfQKH +i2/re1POkqsQS39A4Oqd9vQAytIcCyOzZgKTFB/Rgilf3Tqy6+8jAo+fHNEM +pcx4HRNf1UXg6afH7EMo3wyWvhHynEDtsV1JQZQ1ee90qPYS6BDj+cSXMplt +Ozn4mkDOgON6d8ob138RuzRIfa+g6DVbyg8aE43sRwj0aA1et4myqZOCx4ov +BLb5Qdd6yo+/VMc3jhN4aalnsiRlmxjHG5HTBAruyXf7S8XnhehEh/YsgSIT +b7eNUHYtOTX5+ReBLQ8nbdsoDzAZ4gWLBH67yQkvprznWb2R21I6Rkv94cZT +PjA/Hd8uSMev1VdSN1BmhvtLfhKj4+77X6x4KPOPvSnjk6bjzp6o0m5q/2+8 +benbxKBjwJUBi12UI5w2HvBYS0d7zdFUBcqmT8qXRGnQ8WFh4cEB6rwNNlzU +uGdIx8uT1drbKZcbCTS/MKEj9709/zLKUZxY1ymkI21c7nQVdZ4li/Ylrrem +Y4dF/ylhyvbJxv2Fu+n4MrcrN5fKF9rf28GNe+mYmfD5pR7l8SMMvneBdBTy +8mrsjKL2O2CVlnQEHY9P8FROUvnYZP3uRHoKNb9Om6gwla/prQ4y5WfpePSo +11w6ld8e7EcVHZl0dOrjXFpF+adW5eulV+mY9gMEf1P1QFcsQTuaS8ektWET +JFU/eFJnWnOq6Nhcpt8pTfkpX5B7VR0d36wy2x99kIT9M47J02107HuptmgY +TuVjv/LbfW/oaNkjmHEqhISDDrlhyUN07HrhyH1J1SvsFFx+fZSOn8LLC+Qp +v6ub3TA4Sce4lIzJ4v1UPK61n3TiY+Bw8njgOaoejkqx5Q/yM9AmrJDWTNVL +MoPLPSfIQA9pv7JpfypeiXkDnVIMnNym7GjuR8XD74DuZg0GPv5nYa6bqsc/ +14sMajoz8Kb+gRZTqp7PXpVN0HNn4MHR61ssqHr/Q1hF2Xg3A3u6prutqH4w ++d04aGsgAxUzmxfNXEj4UOc76x7DQK27f/jlHUnotK4WSrnBQGaqRLOxJXVe +Hzzknr1Fje8OChSh+k+rdrdTViUD+V+MaY5S/alB/H1efg0Du0YSxU9spdb/ +VmDtvScMfCI7FZEPVH3b7wUfZhhoeCyXa0P1v0vvAj58/sVAAamxthk9Ei7Y +H0qeWGSgiIzE6itUv0zXS+maX6mEPTv19Yap/pr4m+sqTFPC187Joubq1H6k +LgtjmSmh53VtowwaCayy8oLsbCVcmh2bIrOMhLdE2bVtl5Uw/MmN2BQ+6jxm +l+b/uKaE5SKJ62aWUP01oeSKY6kS9rY+L3z8lwu6bgU5QvVKqJYjx3KY58K6 +ZRcyTr5XwhpVdfH5Meo+szs6/oiGMu78tZ955SkX7vUci1PRUcZQX7W5Fur+ +4WR1NLbHQBnb3k6n/dvJhUyDw8d1QRnZ3tYWWo+5ILg69OikgzIKySXR8hu5 +sLRmT5h/pDJW/s/aVprDhWkxK2+XZmV0P980EnuOC/0HGM+DHlPzJe1zNjzL +haZHvyCuWxmPzSnt/3qGCxlRZYo3+5RRo/Nrit1JLmz4sHro55gyjsdq3J8/ +zoUQ7jPPq+IqGKuykjkYyIUxe+ddo3tV0EWwJGZ+MxdG07xdDq5QRSer5zua +vnLA8luk5UfDtVj/Xc9xoyEHxn35D92NU8MjYoTnOU4F9X8gxXuqeR2qsJMW +mnrLQeyJajrnmzpa1X1Oc+EtA/mUyu2GhhoYtJD9KGHuJuSsNxYR36eJNbyr +8q1W/g86ZTcbfD+vhX/SPubeVr0BTPnmDO0+bTxnHDxeonwdhPiKInwSN+CS +Cf35vh2FQEtQZO1U1cE2+Q+zJ0byYaWKR5XjYx10fDjkEud3GbTYMpWRnrrY +uH9vsKlbDhwcFGux4tHDiobXC1fMLsK372nOljl6OHCENa95IxPMtR/lWWrq +Y2hKS+crywxo+G7ye+6pPkZ4rvrp/yMVQjR03/zjZ4AGfuq7TkqlAHtyb8/O +lYYY98FMpWh3EmxTlrYVLDJEaZG0UHBIALX4M0ebjYzQ687NzANeMaDuZ9yo +8sYIx4tcGXP7joJfQ0DS3fCNGJtnamYXFAGNBT17p9cY42JpccO/1WHw4+bi +nHa1Mfr9dJhZYr8fPrmYFZyuMcY3BTuUJZn7oX/pWYuROmM8o6G3aKSyH+q8 +ZXOzm4wxaZvZ1eLfQZAobcBc6DBGQZZmPVEaBCIpQcc7B4yxULbpYv7yINDY +18vjx8vEr80+WQldAeCrUrYyz5aJ72tLZMKj/SGqzStIdTsT+ci8WXaAP2T4 +iXWRjkwUl1/zQ9rZH+pvHEvrcmXitNWqDT+1/EFC1UJ4wYeJkUnp7T4jfvBI +9aOE9xEmFmlPBXTb+YG6miKheo2JOz99d32mvRem1bMMySkmrn3YtqFHeg/0 +d+M28e9MTDpn3TO/cg80hUzuiJhhYowwSqj99oF00jLc8BcT76gqO5S88wF1 +Jk95LZ8J9pnIrKFf94E9lsH0FkkTlEtoihXY4AM9+8xX97BM0OuhgdgJB2+4 +X/z7/UyKCfIMRG1J8fUEwy0Rc1apJrg6ucQQrD3h3vvx1QVnTdDmuGjrCj1P +IGmDRlaZJigzPHHiCa8nlOc0nc2/bIJ5FoUR6tc9oCAt2di8wgR9F/2F6J93 +wekI4fM5L00wOpCZXxPtDu5bldCExsIGuaqYwF5XWOjhF2ohWJh+LHAuvtEV +Cvwm31opsfB05TnWrVJX+HSyJtJdjYWPa7R+6sS6wsEO+8pjuiycet81LqHm +CmfsjtPum7Hw8JJHbrQ4F6h16/2jH8qi+tM28wljZ5ALPlWj1cRCERE+2t8h +R0hf9DdIbWbheyueX57PHIE304z7uZWFZQUJg50NjjBWtay0oIOFaVJ5+V1X +HaGWJylH7CULMxWfCQR4OIL7hfjI2Y8sjPwQQFs24AA5dccMGlax8X32rN/F +0e2wRuAA19aVjalO1pCqawfFW2KipnaycTKYxq8kYQe6MelbsjzYuGxHIKtv +xhbspji9/T5s/Gw8m5leYwsn+2Z++h5g480dGWVbTW1hvijONCqBjcMPArbf +dbOBNyZZL0vK2DjQ1yYjlmsFAYeLr1hWsHFVTvGObzFWMFtxz2+cw0Z104ED +H/dYgRijf06nio1CQ38n5TStwJpfQf5BExtXVFiJcJotob6nZO/LXjbWS74b +8v3PAqyE7mse6WfjnpCan239FtBv3jEr/ZaNeGimARot4Eft1xSvYTbaLNfg +iUqzAM3CDbf/HWNjtV389hVqFlD/ZvORtAk2GlX8qFYWpuaT2AHaU2wkRTca +7Jw1B/9Th/+JmGHjoNbmtSvazOFH08k8qXlqvRe0IuPLzSHx1yXf2l/U99ow +s0QumIOIfqmG5wIb25TWBFZHm0N+cO3M4iIbz4VHf4rwNYf/A/JUB3Q= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06743566633430119}}, + "PlotRange" -> {{0, 30}, {0., 0.07228751058894461}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7168,19 +7117,19 @@ h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06743566633430119}}, + "PlotRange" -> {{0, 30}, {0., 0.07228751058894461}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7194,115 +7143,123 @@ h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VdsbB3AZCkWizMM5+xxDMo/hnN63gdCNiEhmqXSVklKiUKJQSFGX -DKEIZ2+kKw1CooSKTEVXk4SQqYnf/v21n8+zn2e9a797fdfam+kb5OjPz8fH -t2gBH9//r9N9TfXs+Lw1vN0SRlWIa9qvyR5b2xUNunhxcOsLJcAVrb6yXSng -rLCnfekLbTiypahToCsXDGx+ir1v48KyUZmUH51lIPx3dVVO22bov2cXNNlZ -Cz3DPXYdrR5gxR56O975Ehb2Dm+sad4HPzpNL411DkAlOzExoiYC6tbfyHuR -+x0yfi9uZjeeB8X+qk++Wn9AbL1GllfGZVge6FW0aL0Ait6cECnanQkp+lbV -ds7COL5GYdxNJxe60/VqxiXEsEG4tSNdPx/i80628sstw8d80ocUNW+CTOr7 -sxczpfBEgEQms6YIYp1s1rycXoH9obG2+l3FIF/RIs+/QBo7qU2JKe+KoVTK -aUZ/sTT+daqwemSwGF6/9CSTVaTxm5dPZ/KPYmA7hBAO1tL45cbpsST5Eqjd -nLWw7Yo0ZnOy+wJ2lMAfq6mW5xwZjDENeRTZVQKHzHK8mqJlccL3lK18TSnY -ZotPbkqQRR0W6IY3lAKxKDyu5ZIslq56lN3VXApt7duoVzdl8WpluUZUdyno -HFgi0Ncii+qfh2uTJkphsCC0YEJeDt/4lfcUsnjgvtxuRKFcDn01Lt59FMUD -w+PVUdfuyWFdm0thSCwPRAc0pJkNcmi6pVaRSORBFU8A1LrlcPXcSFJgOg+k -N1Ul6c3L4bbU6qKHpTxoi2IbWW6SR0uG+jnPHh5s+PYzbP97eRTS4XEeSpNw -zDpV89GwPJ5vemtnJEdCaY52j9S0PI4cfX6/QIEEWSdvsyphBbytKlh2ikHC -8L+PZwR0FDA4P3pSSZOEi9FJIVeOKqBtOPXlFYeEgRVq++vFFPH7+6+zlt4k -yAQ9VJKRUcREpt7dXb4k/NXo+jyAoYgtQ5o9p3eSUBkWr7XUUBE/aFImVXtI -ONc/NrTdVRFfzjL9+Q+SYFBYvftbriIu0ekrk44iIYrj4CO/Wglll/2z1DqL -BGvPaxOm65TwsozVjEUOCeKRX085/6WEBY/7n2ldJyGjLqYgyVsJ+ae6OEI3 -SPjX9u7XhWeV0Ord0IbkUhLGXFlHvncr4dDwMw3p+yTcCTuwaNkHJXwSnDDX -9YCEExn303VGlZCbnfA4vYaEJe9cqgP4lfF560mNpfUkqO9O4HunqYyFxS22 -nU9J8Dw8da75uDKO17y37ugkQTVtneJQjDIexHjX3d3/79+FkkVJyjgqWeg5 -3UNC2O+VbevylLEVKuwX95Fw6ZTniqpmZew9p98q8YGE5uQnWflKKrjMZzDt -3DcSzEuvVJx4qILX7UKUOYIUbOhs+TPaqILPfa18twtRYMcnuNHrpQrK+4Qs -CVlIgZ/j/m74qIJ+6Tsv5QhTYHWceTJSiIEPDnNOv11CwQGV6etrVzFQelBE -u3s5BVPlSY0/dBkoqzYp+HwFBWHWq0YoIwZuiD5t80CagpiD3ibEGgbqVoP8 -FVkKrtY9beR3YOCqHb0fdRUpqN+dNVJ3hIEzORExAwQFNr/NJMOP0/WaHrqV -sChoSWo3MYpkoF/P+euH2RR0V4lE5p1loIN3bvKcKgWji0MkYzIYuLlm1/C4 -BgWHssVNuTkMrGp4tffmSgpmjQp3TOUz8ItXmLe7JgUCnn15/jwGjtQ7l99b -RYEsaW1qVcvAN5ZJgl46FGRueL9jroGBjbclbBfoUkB0R0RWPmPgovoM0Rza -2vzlTWodDIz/99lclx4F65yU3BcNMrB+essjTUMKAmfHIxvFmHjtibHKNlMK -zA/ukv4kycTp1qYjPbSFh3puCcgysTBcZmDHagrye+teryGY2Dx+btrZjIK+ -B5e0bpswMXPdrZXqFhQUm4rWvrRgIkfonX4q7TDyhMsYMtE5cfXWOdrSubuj -V21iYriL7IcmDgX2MWZdOV70eBeWO65ZQ4HyXMm+hzuZ+HvyvUkq7eEjhMDb -ACYaOx40/0w7bs9iHdkQJjop5WSfBgq2/XeyzvgYE+smywRbabPdJl23nmDi -1ss+56SRgppNb0+dj2PiuET4nwza5+sd5IoTmdiv5jHcS9ud21DalEI/38nH -8zJrKfihw+sWzGRip59yWiztxhusICKXianfzipW077MSBfEG0x8ez+46Stt -A8ko3eMUE1l/qjI2rKOAL36qPr2SiX+YV+oDabcI7HWrrGai/Ni0dArtjPC+ -b69qmHgm5lJqBe2/pxxjxh8zUa/CdE07bfP9T+SXPmPikQU5y8dpC3+2ILXa -mFiQf0l28XoKXnuRlrYdTDwU32NL0M7rYvfu7mFihL1xsQntYIcrB2L66X5A -INeaNj4VW3j9AxO1dljNb6Mtvj76n5ovTBRwiJ/wpf22elqvb5SJgZECsoG0 -i43+bvj1nYnDM6EHgmmHlfTvkPvBxIGQst+HaVurOY2bzDFx3jfi/hHa0lmN -Z5wECGzqvV4eQvuDDFcxWJjA5QXj/UG0y5Io6oIYgbHGhuv30I4UUdtYIkmg -UJFxnwdt++irb57KEIitDdQW2sq/xIMHFQlUU7z9AGkPHzq1aCFB4I6yViEd -2neHZzJY6gTWeXyKlaUd5x9osFaLwG8Xmyz5aG/re/fEU5/AjEO2+JHuH9vF -2SPchECjevOjT2hPtDZNXLGg600FjhbQrrFeE3cHCfyiVHH9FO3zj8qUOiwJ -3Pf7fboHbXdz9fIJWwLzptpajGj/WCXRp+1MoIKIKV8v/f6nM+WjDN0ITHaS -+lJEe3KpKtvMi0CbKQ/do7RHv5vt3RBA4KWa/Z2itL/6bxCz3U+g9a0W8zZ6 -/Q122pH2hwg8tbdtLoX2QLXftFsEgXre329J0O7X3n/FO5rACpHyy8/o9f0m -6yhnVyyBXwMdPp6i/fpUYvTBZALri/ZRw3Q+nm66Ix6XT+BzOwXFLC4FT+4/ -ohKLCFw2V8expF2v2+x0kUeg2+d3Twbp/D2Q+u/qtSoC06abGRq0y3pF1W8/ -p+tv+zAZa04Bb/OKp3df0uNr5UTK0S5+qLKvppPAN+/iI27S+S+4blT+7D8C -j5k6tjyg94erf3vCwBSBtqdT3zebUJD2ds/A558Evt1SKmFLO9X+UMzIPIGD -DS9v1xvT/TaMezYrwsIqu4q/y4woiP5FuSxVZiHVuf5akAGdj3ihAxwrFrrp -ZL4/qE3Bnj9LpdZtYmFFydWfDVoU7AqSr9y4hYV6k4/S5Gh7b9X97ejGwhvx -6nvu0Punk8L2uID9LCxqvBbWoU4B51Zx9uXLLIzY62aQwaSgl3Ery/Ifun4B -w7mLQa/3y4XXJrNYmLzS2kOS9p2oggzHQhZmlT5kRCrTeXfNThe/x0L+1TFn -1ylQsFIoNenMfyzk9Rom+tHnS2NYygXjTyz85OHkc0KKnt9Y0vkPQyw0Wb9M -PU2SzmtvYsK6SRZuHA07VytBAaMsNm5uIRsHXHsb+MToPHkdjzyixcbLDfaP -Fejz7nb7sZOq+my80C60TJo+D51sj55oN2bj8plBN3EBClKMD4cbABtnmv2H -Z/koEFsSdHTUgY1qWy4rVv4mQbDK98CuUDY+lrvj/+I7CeOStt7batmonpFj -k/yOhK5Aom3vEzaW+j7y0+8noabhJ5xsZuOwpjq2viUhKeyWys3X9H1rwQ2C -vSToDSzp/zHERtabjktbO0jYT7V6ZEqp4p25eIe4JhKG7J13fNipinmZwlUO -JAkvC7WfzQao4t6j9vrF9PfIXYGFFmJBqijCF3VesISEs3cq5U2OqWKRlfjv -0kISNFRke2ITVXEwv6l2KJeE3aM9rqsqVVFx6MjMXCoJHxK8twUvUsOof1pf -5ITS9Ye0CL0lanis73Ni72ESZjb+GBmRUEMd85iLUiEkiAqkxATIq2Fm24KT -Jw7Q8z9WV+GtrYa5DqNjEEBChL+alP1WNfwmES0R7EaC9Jrh1lVZahijc6Dh -igUJNt9CbT6aqGPZVlacywQPFPWVzwhz1NFBx809Z4QHo8H1tavWquMmN96/ -nwd5kDotwQnepI6i7w9K7e3nQd+fQp15L3WUmE+6ZNnMg+Alb6TkzqrjeHL5 -6PZ8HlxdiX1/9aqj5D5dSRFnHgz7CR+qOKmBirNh4aK3Sun/ERn+2NqVKN2Q -M7uYWwKSz9XOk980UVd8S/Pwk1ugGMfbYmKihSUnYkfPyhVB+iozCand2uiW -RNrIh96Ep/Jrjb8n66D5zcXvlrQXgLlibZLua10MTSkSCBbNB3GB3BCfaD1s -kvV8s8f3OihHqXC2q+njp8bn115n5YCIqnul4xN9dHdMWLb8cxbocOV4oR4G -mBXHWhQ+mAHBfZJ1tnyG+PbQ/a+PXl6Bb98TnG3SDdHwp/3cAqU02KjbcNVG -2wjXOVtLnMlOhQffLX7NtBihqwB5tpCRAvu1DHpe+BtjasAlBmf2AnBHd7Zv -FzHBq1miCX/diwdLtuxmsVwTdJ54FGuwMg40Is8drTU1xcjQIPtf86dB09/s -oWqPKc42ah1YORYF/g/2nK44uBqvJ8jXp7eegIfZ7TvHV5ihiZf6QcNfx2Dy -5vyM7h0zFDImvlb1HAY/1VsiVzeb40j1defwqGAY17xoUjZmjmOmrX9+39sP -/+b9+m8qzgI3DpjfkL4TAG4bWGihzMGsgpAlj8P9QWFfbJVODQd9CoIKWGk+ -cH5+l3F8LQf3Wma1vj7rA/wpVtTneg76s6MqUsJ9YKhSqDC7iYPyOiJZbF8f -uMt3Ol3yFQfvqJiHkto+4JYaGTr9kYOTmR5mOxu8Ib36mPGDxVxsL9GYXv3b -C1aIBlKbXbj4szt/mlzsAXnrI8LGtnMxKcejNHnCHQwizq+/6M5FIdeavTHd -7mA3RnZ0+XAxUKa0Nv+GO5x5PfXDL5CLGd2WNxs3uMNs7sl1YVFc1HDMJRKj -d0CPxcVXBbe4OPOnNqFmsRvsOZyXYVPKReau8qivk9thuvS2/zDJxa+VkWIa -fdtBkuia0a/k4gkbo/sd5HbYJKykeL+Gi7y4NCt+l+1wr71g56sOLibsTfO4 -XOAKtuL/ah/p4qKi7M6LHUmu0LWxaVq2l4udOy1I1eOuMHn3a5znOy6u/Xn3 -0Ky9K2jn6JV8GeKiHKv/+66fLnCvZ+2RhBEualI1hlofXcB2+VbQHeOiGpwT -5G9zgV2xh1+ETHHx8SJlnf58F5isOXNVZpaL/UHpBz8luUD0zzS/uz+5eM9g -h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= +1:eJwV13k8Vd3XAHDRIGWW2XXuNSQZMue6t7VSmYfIlBCJUKZSioxRiiRKqITk +l4h7T0WGkKFMDU8hlVA0PEI8ZWiQ97x/nc/3j73PPmvvtdY+9D2hjn68PDw8 +tCU8PP//nB3saFVOLd6U2Mp3ZL7cdFNPvvSxzf2JsH3r51/5dDrgmmd7pPsz +YUfK6bxIug4c2X7rFV9/EWQPT7/0oG8G0UmpzJ+vSPgTYyqlR3eAoXq70B+v +miFk3UhvOeEDZspj76ZfvYCYgmy7Ylo4/HxldHHq1QcIW2PXnCaZAC1b/lf8 +T9F3+MD+p1ml9DzID9V82qOxAE1bJtaNfcoFiQO7b63YwofvVqf3DD0pgEwd +szo7Z34UUHFZ2VVVDK9zNjRNiwgiFuha8AvfhNTiuGe8MqKYr7FWpMC2DKQu +jJzOuiqOi8Z1LukiFSC9/l7SfIk4lhS+114uWwGyzSfjPDniOOFc0xqpVAG0 +qXWH17aI48y3WnkLwwpQsQnzrvsijnwLen5Xd1WA3tIFwxE9CXQwiHWTuVEB +9hGSo7qdEpj/WHyTvV4lnHKy3PRidg2+X17+aRONA7J3n8ryLpHEjx95aCcY +HKgQd5rTWSWJguk2J1pUOdD3wotzXlESzXrpfRu1OaDsEMFwsJBEt6kz52eA +A82215Y/z5VEPmaoQLU3BxbMZp4+YUmhwgrjMtdrHMgoiSpbMJPCBP3RKeI6 +NX45T4qmgxSe6Frr/qmEAzZtApvP+kmh+fFz2X4VHMjbQtyxSZfCGUYfx+AB +Bzai9aWuISnc8qIW5N9w4JBx4e6ORGm0TAmrXiLKBasCoR/WadL4UYIUlJLg +AmPF8ZSnF6WxMqKAd50UF573uHBf3pRGzRDPdlMFLmiFreYbfCqNAdWnm23X +ceFLSWTJf7Iy+MejM+QhcsFDwm5C7o4MGvR3tSsGc0Evui4hv14GW1RvzraH +ckHgg5ok/ZEMrtgt0hpykAs1lXyg+loGo/2/sDmRXJC0rsnYsCiD86zbHIFE +6v0JyvrbrGWx6mjVbYVsLmz99isqZEQWwzq9JB/UceGYxQX1h+Oy+J9vMfPb +Ay5UFGq+EZ+VxUoBYRVaExeknbyNa/jlkCdK2/ZgKxfG77fN8WnJofyd3qnv +3VzISsyIyD0qh54dF2s93nHhwxrVkFZBeRxMG9d+9JsLUqGNClJS8vglXe7i ++QUu2LS7PQkk5HGkW6pj5yIXqqJSNYT15PH74878YV4SzgxNje10k8cCgfMC +7StJ0C2t2/etSB7D58x0/0qSkMBy8JHdqICyNif8BbRJsPDK/8/IVAFV1V4X +pW8gQSj+6wlnGwV0NipdL6xLwpWW5JIMbwWU0vqlvMyAhPtWtV+Xn1bAkqUH +H7UySZhyUzry/bUCXrikY5m1jYTqqLAVoqMKuMzXN2vAjITYKw9ytCYV0Kmh +UI9hQcLqYde6QF4amj3852iRFQlr96XxDKvTMJ9HUS3SngSvwzNnuqNpeOiQ +XmW4Gwkql0zlx5Jp6GavVhq/k6Tid+72igwa/sv6yJfmTkLUn3XPTYtpODN0 +dvCSBwkXT3itqemm4eRgFSvJmwSPG2UlfX00TF+yxOGIDwmMx/NGP4ZpOO/y +rmvvHhI4Alnu2jM0FL1vNm+4l4Tu84+v3VBQxMbLU8jZR0LWHQmdlrWKeG24 +Pz85gAT3Xp/mYR1FBIG9ga6BJHyR/jMqZ6aIy0XizaeCSOAr2KCeGaKIX136 +2HPBJDArcu/GNirilEXNI/dDJGx99XRhsl0Rz/XqTY9TtuNZar77hSK6v/22 +8ngECb6OIa/hoyL6JI7xnz9Mglk0PS5+GYFaJy23Z0eS0CVcf32jAIGrLq/j +ETlKwvZil/YpIQJbR99eP0l515NUUR9pAhNY6R1Bx0gIU5y9vnk9gaXKRkVC +0STM3Mlo/6lNYGYuZ2kY5SiL9RNcfQL3Jzd4P6WcHO5tyNhEjfc+xZ94nASB +5b/d35gSeI+33vkV5Yy8i3GZ5gQ+jz96bV0MCXktne28DgRq1ietb6Os6OY3 +UetM4KimU6hQLAnF44uih9wJ9B+5RTpRrlxjsGvEl0BDcobZT1n/1rO4ywEE +hoeHJqyJI6F2U1DxjmAC7RqjO+0pt+67NtFyhECxA7v31VG2/GMsdjyawM2O +zfXjlJ9m9BjqxxOY0fNUSi6eBCeV0F3jSQQuptgcM6P8umZlfPFpAnUa+T6E +UPayKy72SCfwU9wDxwuURz9s6pDIIvBY2pbuKsqBka8nui8RGODlbd9HeXJV +hFjyFQIbVIcG/qN8qEDIiF1IYO6T1MOrE0iY1y/dNXODwIppXVklyrEdW+Jv +3yLw/ufCLkPKfF6DxX6VBP6uKTljTjnlv6MdCncJbF8r4uZMWeiU+GTvfQKH +i2/re1POkqsQS39A4Oqd9vQAytIcCyOzZgKTFB/Rgilf3Tqy6+8jAo+fHNEM +pcx4HRNf1UXg6afH7EMo3wyWvhHynEDtsV1JQZQ1ee90qPYS6BDj+cSXMplt +Ozn4mkDOgON6d8ob138RuzRIfa+g6DVbyg8aE43sRwj0aA1et4myqZOCx4ov +BLb5Qdd6yo+/VMc3jhN4aalnsiRlmxjHG5HTBAruyXf7S8XnhehEh/YsgSIT +b7eNUHYtOTX5+ReBLQ8nbdsoDzAZ4gWLBH67yQkvprznWb2R21I6Rkv94cZT +PjA/Hd8uSMev1VdSN1BmhvtLfhKj4+77X6x4KPOPvSnjk6bjzp6o0m5q/2+8 +benbxKBjwJUBi12UI5w2HvBYS0d7zdFUBcqmT8qXRGnQ8WFh4cEB6rwNNlzU +uGdIx8uT1drbKZcbCTS/MKEj9709/zLKUZxY1ymkI21c7nQVdZ4li/Ylrrem +Y4dF/ylhyvbJxv2Fu+n4MrcrN5fKF9rf28GNe+mYmfD5pR7l8SMMvneBdBTy +8mrsjKL2O2CVlnQEHY9P8FROUvnYZP3uRHoKNb9Om6gwla/prQ4y5WfpePSo +11w6ld8e7EcVHZl0dOrjXFpF+adW5eulV+mY9gMEf1P1QFcsQTuaS8ektWET +JFU/eFJnWnOq6Nhcpt8pTfkpX5B7VR0d36wy2x99kIT9M47J02107HuptmgY +TuVjv/LbfW/oaNkjmHEqhISDDrlhyUN07HrhyH1J1SvsFFx+fZSOn8LLC+Qp +v6ub3TA4Sce4lIzJ4v1UPK61n3TiY+Bw8njgOaoejkqx5Q/yM9AmrJDWTNVL +MoPLPSfIQA9pv7JpfypeiXkDnVIMnNym7GjuR8XD74DuZg0GPv5nYa6bqsc/ +14sMajoz8Kb+gRZTqp7PXpVN0HNn4MHR61ssqHr/Q1hF2Xg3A3u6prutqH4w ++d04aGsgAxUzmxfNXEj4UOc76x7DQK27f/jlHUnotK4WSrnBQGaqRLOxJXVe +Hzzknr1Fje8OChSh+k+rdrdTViUD+V+MaY5S/alB/H1efg0Du0YSxU9spdb/ +VmDtvScMfCI7FZEPVH3b7wUfZhhoeCyXa0P1v0vvAj58/sVAAamxthk9Ei7Y +H0qeWGSgiIzE6itUv0zXS+maX6mEPTv19Yap/pr4m+sqTFPC187Joubq1H6k +LgtjmSmh53VtowwaCayy8oLsbCVcmh2bIrOMhLdE2bVtl5Uw/MmN2BQ+6jxm +l+b/uKaE5SKJ62aWUP01oeSKY6kS9rY+L3z8lwu6bgU5QvVKqJYjx3KY58K6 +ZRcyTr5XwhpVdfH5Meo+szs6/oiGMu78tZ955SkX7vUci1PRUcZQX7W5Fur+ +4WR1NLbHQBnb3k6n/dvJhUyDw8d1QRnZ3tYWWo+5ILg69OikgzIKySXR8hu5 +sLRmT5h/pDJW/s/aVprDhWkxK2+XZmV0P980EnuOC/0HGM+DHlPzJe1zNjzL +haZHvyCuWxmPzSnt/3qGCxlRZYo3+5RRo/Nrit1JLmz4sHro55gyjsdq3J8/ +zoUQ7jPPq+IqGKuykjkYyIUxe+ddo3tV0EWwJGZ+MxdG07xdDq5QRSer5zua +vnLA8luk5UfDtVj/Xc9xoyEHxn35D92NU8MjYoTnOU4F9X8gxXuqeR2qsJMW +mnrLQeyJajrnmzpa1X1Oc+EtA/mUyu2GhhoYtJD9KGHuJuSsNxYR36eJNbyr +8q1W/g86ZTcbfD+vhX/SPubeVr0BTPnmDO0+bTxnHDxeonwdhPiKInwSN+CS +Cf35vh2FQEtQZO1U1cE2+Q+zJ0byYaWKR5XjYx10fDjkEud3GbTYMpWRnrrY +uH9vsKlbDhwcFGux4tHDiobXC1fMLsK372nOljl6OHCENa95IxPMtR/lWWrq +Y2hKS+crywxo+G7ye+6pPkZ4rvrp/yMVQjR03/zjZ4AGfuq7TkqlAHtyb8/O +lYYY98FMpWh3EmxTlrYVLDJEaZG0UHBIALX4M0ebjYzQ687NzANeMaDuZ9yo +8sYIx4tcGXP7joJfQ0DS3fCNGJtnamYXFAGNBT17p9cY42JpccO/1WHw4+bi +nHa1Mfr9dJhZYr8fPrmYFZyuMcY3BTuUJZn7oX/pWYuROmM8o6G3aKSyH+q8 +ZXOzm4wxaZvZ1eLfQZAobcBc6DBGQZZmPVEaBCIpQcc7B4yxULbpYv7yINDY +18vjx8vEr80+WQldAeCrUrYyz5aJ72tLZMKj/SGqzStIdTsT+ci8WXaAP2T4 +iXWRjkwUl1/zQ9rZH+pvHEvrcmXitNWqDT+1/EFC1UJ4wYeJkUnp7T4jfvBI +9aOE9xEmFmlPBXTb+YG6miKheo2JOz99d32mvRem1bMMySkmrn3YtqFHeg/0 +d+M28e9MTDpn3TO/cg80hUzuiJhhYowwSqj99oF00jLc8BcT76gqO5S88wF1 +Jk95LZ8J9pnIrKFf94E9lsH0FkkTlEtoihXY4AM9+8xX97BM0OuhgdgJB2+4 +X/z7/UyKCfIMRG1J8fUEwy0Rc1apJrg6ucQQrD3h3vvx1QVnTdDmuGjrCj1P +IGmDRlaZJigzPHHiCa8nlOc0nc2/bIJ5FoUR6tc9oCAt2di8wgR9F/2F6J93 +wekI4fM5L00wOpCZXxPtDu5bldCExsIGuaqYwF5XWOjhF2ohWJh+LHAuvtEV +Cvwm31opsfB05TnWrVJX+HSyJtJdjYWPa7R+6sS6wsEO+8pjuiycet81LqHm +CmfsjtPum7Hw8JJHbrQ4F6h16/2jH8qi+tM28wljZ5ALPlWj1cRCERE+2t8h +R0hf9DdIbWbheyueX57PHIE304z7uZWFZQUJg50NjjBWtay0oIOFaVJ5+V1X +HaGWJylH7CULMxWfCQR4OIL7hfjI2Y8sjPwQQFs24AA5dccMGlax8X32rN/F +0e2wRuAA19aVjalO1pCqawfFW2KipnaycTKYxq8kYQe6MelbsjzYuGxHIKtv +xhbspji9/T5s/Gw8m5leYwsn+2Z++h5g480dGWVbTW1hvijONCqBjcMPArbf +dbOBNyZZL0vK2DjQ1yYjlmsFAYeLr1hWsHFVTvGObzFWMFtxz2+cw0Z104ED +H/dYgRijf06nio1CQ38n5TStwJpfQf5BExtXVFiJcJotob6nZO/LXjbWS74b +8v3PAqyE7mse6WfjnpCan239FtBv3jEr/ZaNeGimARot4Eft1xSvYTbaLNfg +iUqzAM3CDbf/HWNjtV389hVqFlD/ZvORtAk2GlX8qFYWpuaT2AHaU2wkRTca +7Jw1B/9Th/+JmGHjoNbmtSvazOFH08k8qXlqvRe0IuPLzSHx1yXf2l/U99ow +s0QumIOIfqmG5wIb25TWBFZHm0N+cO3M4iIbz4VHf4rwNYf/A/JUB3Q= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06743566633430119}}, + "PlotRange" -> {{0, 30}, {0., 0.07228751058894461}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7313,6 +7270,7 @@ h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7340,7 +7298,8 @@ h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06743566633430119}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07228751058894461}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7350,8 +7309,8 @@ h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991334471589432*^9, 3.993126808646118*^9, 3.993127324305475*^9, 3.993127762032987*^9, 3.993129914266333*^9, - 3.993130298071371*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"2d6814a3-f40d-49db-a210-8e29726f9394"] + 3.993130298071371*^9, 3.993827083781824*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"0facb4c0-a77c-467a-93fc-0bd710eddce8"] }, Open ]], Cell[CellGroupData[{ @@ -7427,17 +7386,18 @@ Cell[BoxData[ CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, { 3.993121548955904*^9, 3.9931215512243633`*^9}, {3.993127096914473*^9, 3.9931270988414803`*^9}, {3.993127317653944*^9, 3.993127320382461*^9}, { - 3.993129462779653*^9, 3.993129464066414*^9}}, + 3.993129462779653*^9, 3.993129464066414*^9}, {3.993820723703188*^9, + 3.993820759908181*^9}}, Background->RGBColor[0.87, 0.94, 1], - CellLabel->"In[97]:=",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + CellLabel->"In[94]:=",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], Cell[BoxData[ GraphicsBox[{{}, InterpretationBox[{ TagBox[ TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ - 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl 8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ @@ -7460,7 +7420,7 @@ A4x/ Annotation[{ Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl @@ -7484,12 +7444,12 @@ A4x/ GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7507,12 +7467,12 @@ A4x/ GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7527,7 +7487,7 @@ A4x/ Annotation[{ Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl @@ -7549,12 +7509,12 @@ A4x/ "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7566,6 +7526,7 @@ A4x/ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7584,62 +7545,65 @@ A4x/ "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "DefaultPlotStyle" -> { Directive[ - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Directive[ - RGBColor[0.880722, 0.611041, 0.142051], + RGBColor[0.95, 0.627, 0.1425], AbsoluteThickness[2]], Directive[ - RGBColor[0.560181, 0.691569, 0.194885], + RGBColor[0.455, 0.7, 0.21], AbsoluteThickness[2]], Directive[ RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[2]], Directive[ - RGBColor[0.528488, 0.470624, 0.701351], + RGBColor[0.578, 0.51, 0.85], AbsoluteThickness[2]], Directive[ RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[2]], Directive[ - RGBColor[0.363898, 0.618501, 0.782349], + RGBColor[0., 0.6, 0.6], AbsoluteThickness[2]], Directive[ - RGBColor[1, 0.75, 0], + RGBColor[0.9, 0.36, 0.684], AbsoluteThickness[2]], Directive[ - RGBColor[0.647624, 0.37816, 0.614037], + RGBColor[0.56, 0.7, 0.], AbsoluteThickness[2]], Directive[ - RGBColor[0.571589, 0.586483, 0.], + RGBColor[0.9, 0.54, 0.], AbsoluteThickness[2]], Directive[ - RGBColor[0.915, 0.3325, 0.2125], + RGBColor[0.585, 0.5976, 0.9], AbsoluteThickness[2]], Directive[ - RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + RGBColor[0.9, 0.45, 0.45], AbsoluteThickness[2]], Directive[ - RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], AbsoluteThickness[2]], Directive[ - RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], AbsoluteThickness[2]], Directive[ - RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], - "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& )}}, + PlotInteractivity:>True, PlotRange->{{0, 30.}, {0, 0.054971}}, PlotRangeClipping->True, PlotRangePadding->{{ @@ -7649,8 +7613,8 @@ A4x/ Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9931277621145897`*^9, 3.9931294654460983`*^9, - 3.993130298123993*^9}, - CellLabel->"Out[97]=",ExpressionUUID->"43effa24-9c82-4a92-b2c0-33b55f2b3d47"] + 3.993130298123993*^9, 3.993827083973864*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"7c34ada0-6415-474c-a6fb-6e765245826a"] }, Open ]], Cell[CellGroupData[{ @@ -7659,104 +7623,112 @@ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, - CellLabel->"In[98]:=",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], + CellLabel->"In[95]:=",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], Cell[BoxData[ GraphicsBox[{ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VdsbB3AZCkWizMM5+xxDMo/hnN63gdCNiEhmqXSVklKiUKJQSFGX -DKEIZ2+kKw1CooSKTEVXk4SQqYnf/v21n8+zn2e9a797fdfam+kb5OjPz8fH -t2gBH9//r9N9TfXs+Lw1vN0SRlWIa9qvyR5b2xUNunhxcOsLJcAVrb6yXSng -rLCnfekLbTiypahToCsXDGx+ir1v48KyUZmUH51lIPx3dVVO22bov2cXNNlZ -Cz3DPXYdrR5gxR56O975Ehb2Dm+sad4HPzpNL411DkAlOzExoiYC6tbfyHuR -+x0yfi9uZjeeB8X+qk++Wn9AbL1GllfGZVge6FW0aL0Ait6cECnanQkp+lbV -ds7COL5GYdxNJxe60/VqxiXEsEG4tSNdPx/i80628sstw8d80ocUNW+CTOr7 -sxczpfBEgEQms6YIYp1s1rycXoH9obG2+l3FIF/RIs+/QBo7qU2JKe+KoVTK -aUZ/sTT+daqwemSwGF6/9CSTVaTxm5dPZ/KPYmA7hBAO1tL45cbpsST5Eqjd -nLWw7Yo0ZnOy+wJ2lMAfq6mW5xwZjDENeRTZVQKHzHK8mqJlccL3lK18TSnY -ZotPbkqQRR0W6IY3lAKxKDyu5ZIslq56lN3VXApt7duoVzdl8WpluUZUdyno -HFgi0Ncii+qfh2uTJkphsCC0YEJeDt/4lfcUsnjgvtxuRKFcDn01Lt59FMUD -w+PVUdfuyWFdm0thSCwPRAc0pJkNcmi6pVaRSORBFU8A1LrlcPXcSFJgOg+k -N1Ul6c3L4bbU6qKHpTxoi2IbWW6SR0uG+jnPHh5s+PYzbP97eRTS4XEeSpNw -zDpV89GwPJ5vemtnJEdCaY52j9S0PI4cfX6/QIEEWSdvsyphBbytKlh2ikHC -8L+PZwR0FDA4P3pSSZOEi9FJIVeOKqBtOPXlFYeEgRVq++vFFPH7+6+zlt4k -yAQ9VJKRUcREpt7dXb4k/NXo+jyAoYgtQ5o9p3eSUBkWr7XUUBE/aFImVXtI -ONc/NrTdVRFfzjL9+Q+SYFBYvftbriIu0ekrk44iIYrj4CO/Wglll/2z1DqL -BGvPaxOm65TwsozVjEUOCeKRX085/6WEBY/7n2ldJyGjLqYgyVsJ+ae6OEI3 -SPjX9u7XhWeV0Ord0IbkUhLGXFlHvncr4dDwMw3p+yTcCTuwaNkHJXwSnDDX -9YCEExn303VGlZCbnfA4vYaEJe9cqgP4lfF560mNpfUkqO9O4HunqYyFxS22 -nU9J8Dw8da75uDKO17y37ugkQTVtneJQjDIexHjX3d3/79+FkkVJyjgqWeg5 -3UNC2O+VbevylLEVKuwX95Fw6ZTniqpmZew9p98q8YGE5uQnWflKKrjMZzDt -3DcSzEuvVJx4qILX7UKUOYIUbOhs+TPaqILPfa18twtRYMcnuNHrpQrK+4Qs -CVlIgZ/j/m74qIJ+6Tsv5QhTYHWceTJSiIEPDnNOv11CwQGV6etrVzFQelBE -u3s5BVPlSY0/dBkoqzYp+HwFBWHWq0YoIwZuiD5t80CagpiD3ibEGgbqVoP8 -FVkKrtY9beR3YOCqHb0fdRUpqN+dNVJ3hIEzORExAwQFNr/NJMOP0/WaHrqV -sChoSWo3MYpkoF/P+euH2RR0V4lE5p1loIN3bvKcKgWji0MkYzIYuLlm1/C4 -BgWHssVNuTkMrGp4tffmSgpmjQp3TOUz8ItXmLe7JgUCnn15/jwGjtQ7l99b -RYEsaW1qVcvAN5ZJgl46FGRueL9jroGBjbclbBfoUkB0R0RWPmPgovoM0Rza -2vzlTWodDIz/99lclx4F65yU3BcNMrB+essjTUMKAmfHIxvFmHjtibHKNlMK -zA/ukv4kycTp1qYjPbSFh3puCcgysTBcZmDHagrye+teryGY2Dx+btrZjIK+ -B5e0bpswMXPdrZXqFhQUm4rWvrRgIkfonX4q7TDyhMsYMtE5cfXWOdrSubuj -V21iYriL7IcmDgX2MWZdOV70eBeWO65ZQ4HyXMm+hzuZ+HvyvUkq7eEjhMDb -ACYaOx40/0w7bs9iHdkQJjop5WSfBgq2/XeyzvgYE+smywRbabPdJl23nmDi -1ss+56SRgppNb0+dj2PiuET4nwza5+sd5IoTmdiv5jHcS9ud21DalEI/38nH -8zJrKfihw+sWzGRip59yWiztxhusICKXianfzipW077MSBfEG0x8ez+46Stt -A8ko3eMUE1l/qjI2rKOAL36qPr2SiX+YV+oDabcI7HWrrGai/Ni0dArtjPC+ -b69qmHgm5lJqBe2/pxxjxh8zUa/CdE07bfP9T+SXPmPikQU5y8dpC3+2ILXa -mFiQf0l28XoKXnuRlrYdTDwU32NL0M7rYvfu7mFihL1xsQntYIcrB2L66X5A -INeaNj4VW3j9AxO1dljNb6Mtvj76n5ovTBRwiJ/wpf22elqvb5SJgZECsoG0 -i43+bvj1nYnDM6EHgmmHlfTvkPvBxIGQst+HaVurOY2bzDFx3jfi/hHa0lmN -Z5wECGzqvV4eQvuDDFcxWJjA5QXj/UG0y5Io6oIYgbHGhuv30I4UUdtYIkmg -UJFxnwdt++irb57KEIitDdQW2sq/xIMHFQlUU7z9AGkPHzq1aCFB4I6yViEd -2neHZzJY6gTWeXyKlaUd5x9osFaLwG8Xmyz5aG/re/fEU5/AjEO2+JHuH9vF -2SPchECjevOjT2hPtDZNXLGg600FjhbQrrFeE3cHCfyiVHH9FO3zj8qUOiwJ -3Pf7fboHbXdz9fIJWwLzptpajGj/WCXRp+1MoIKIKV8v/f6nM+WjDN0ITHaS -+lJEe3KpKtvMi0CbKQ/do7RHv5vt3RBA4KWa/Z2itL/6bxCz3U+g9a0W8zZ6 -/Q122pH2hwg8tbdtLoX2QLXftFsEgXre329J0O7X3n/FO5rACpHyy8/o9f0m -6yhnVyyBXwMdPp6i/fpUYvTBZALri/ZRw3Q+nm66Ix6XT+BzOwXFLC4FT+4/ -ohKLCFw2V8expF2v2+x0kUeg2+d3Twbp/D2Q+u/qtSoC06abGRq0y3pF1W8/ -p+tv+zAZa04Bb/OKp3df0uNr5UTK0S5+qLKvppPAN+/iI27S+S+4blT+7D8C -j5k6tjyg94erf3vCwBSBtqdT3zebUJD2ds/A558Evt1SKmFLO9X+UMzIPIGD -DS9v1xvT/TaMezYrwsIqu4q/y4woiP5FuSxVZiHVuf5akAGdj3ihAxwrFrrp -ZL4/qE3Bnj9LpdZtYmFFydWfDVoU7AqSr9y4hYV6k4/S5Gh7b9X97ejGwhvx -6nvu0Punk8L2uID9LCxqvBbWoU4B51Zx9uXLLIzY62aQwaSgl3Ery/Ifun4B -w7mLQa/3y4XXJrNYmLzS2kOS9p2oggzHQhZmlT5kRCrTeXfNThe/x0L+1TFn -1ylQsFIoNenMfyzk9Rom+tHnS2NYygXjTyz85OHkc0KKnt9Y0vkPQyw0Wb9M -PU2SzmtvYsK6SRZuHA07VytBAaMsNm5uIRsHXHsb+MToPHkdjzyixcbLDfaP -Fejz7nb7sZOq+my80C60TJo+D51sj55oN2bj8plBN3EBClKMD4cbABtnmv2H -Z/koEFsSdHTUgY1qWy4rVv4mQbDK98CuUDY+lrvj/+I7CeOStt7batmonpFj -k/yOhK5Aom3vEzaW+j7y0+8noabhJ5xsZuOwpjq2viUhKeyWys3X9H1rwQ2C -vSToDSzp/zHERtabjktbO0jYT7V6ZEqp4p25eIe4JhKG7J13fNipinmZwlUO -JAkvC7WfzQao4t6j9vrF9PfIXYGFFmJBqijCF3VesISEs3cq5U2OqWKRlfjv -0kISNFRke2ITVXEwv6l2KJeE3aM9rqsqVVFx6MjMXCoJHxK8twUvUsOof1pf -5ITS9Ye0CL0lanis73Ni72ESZjb+GBmRUEMd85iLUiEkiAqkxATIq2Fm24KT -Jw7Q8z9WV+GtrYa5DqNjEEBChL+alP1WNfwmES0R7EaC9Jrh1lVZahijc6Dh -igUJNt9CbT6aqGPZVlacywQPFPWVzwhz1NFBx809Z4QHo8H1tavWquMmN96/ -nwd5kDotwQnepI6i7w9K7e3nQd+fQp15L3WUmE+6ZNnMg+Alb6TkzqrjeHL5 -6PZ8HlxdiX1/9aqj5D5dSRFnHgz7CR+qOKmBirNh4aK3Sun/ERn+2NqVKN2Q -M7uYWwKSz9XOk980UVd8S/Pwk1ugGMfbYmKihSUnYkfPyhVB+iozCand2uiW -RNrIh96Ep/Jrjb8n66D5zcXvlrQXgLlibZLua10MTSkSCBbNB3GB3BCfaD1s -kvV8s8f3OihHqXC2q+njp8bn115n5YCIqnul4xN9dHdMWLb8cxbocOV4oR4G -mBXHWhQ+mAHBfZJ1tnyG+PbQ/a+PXl6Bb98TnG3SDdHwp/3cAqU02KjbcNVG -2wjXOVtLnMlOhQffLX7NtBihqwB5tpCRAvu1DHpe+BtjasAlBmf2AnBHd7Zv -FzHBq1miCX/diwdLtuxmsVwTdJ54FGuwMg40Is8drTU1xcjQIPtf86dB09/s -oWqPKc42ah1YORYF/g/2nK44uBqvJ8jXp7eegIfZ7TvHV5ihiZf6QcNfx2Dy -5vyM7h0zFDImvlb1HAY/1VsiVzeb40j1defwqGAY17xoUjZmjmOmrX9+39sP -/+b9+m8qzgI3DpjfkL4TAG4bWGihzMGsgpAlj8P9QWFfbJVODQd9CoIKWGk+ -cH5+l3F8LQf3Wma1vj7rA/wpVtTneg76s6MqUsJ9YKhSqDC7iYPyOiJZbF8f -uMt3Ol3yFQfvqJiHkto+4JYaGTr9kYOTmR5mOxu8Ib36mPGDxVxsL9GYXv3b -C1aIBlKbXbj4szt/mlzsAXnrI8LGtnMxKcejNHnCHQwizq+/6M5FIdeavTHd -7mA3RnZ0+XAxUKa0Nv+GO5x5PfXDL5CLGd2WNxs3uMNs7sl1YVFc1HDMJRKj -d0CPxcVXBbe4OPOnNqFmsRvsOZyXYVPKReau8qivk9thuvS2/zDJxa+VkWIa -fdtBkuia0a/k4gkbo/sd5HbYJKykeL+Gi7y4NCt+l+1wr71g56sOLibsTfO4 -XOAKtuL/ah/p4qKi7M6LHUmu0LWxaVq2l4udOy1I1eOuMHn3a5znOy6u/Xn3 -0Ky9K2jn6JV8GeKiHKv/+66fLnCvZ+2RhBEualI1hlofXcB2+VbQHeOiGpwT -5G9zgV2xh1+ETHHx8SJlnf58F5isOXNVZpaL/UHpBz8luUD0zzS/uz+5eM9g -h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8Vd3XAHDRIGWW2XXuNSQZMue6t7VSmYfIlBCJUKZSioxRiiRKqITk +l4h7T0WGkKFMDU8hlVA0PEI8ZWiQ97x/nc/3j73PPmvvtdY+9D2hjn68PDw8 +tCU8PP//nB3saFVOLd6U2Mp3ZL7cdFNPvvSxzf2JsH3r51/5dDrgmmd7pPsz +YUfK6bxIug4c2X7rFV9/EWQPT7/0oG8G0UmpzJ+vSPgTYyqlR3eAoXq70B+v +miFk3UhvOeEDZspj76ZfvYCYgmy7Ylo4/HxldHHq1QcIW2PXnCaZAC1b/lf8 +T9F3+MD+p1ml9DzID9V82qOxAE1bJtaNfcoFiQO7b63YwofvVqf3DD0pgEwd +szo7Z34UUHFZ2VVVDK9zNjRNiwgiFuha8AvfhNTiuGe8MqKYr7FWpMC2DKQu +jJzOuiqOi8Z1LukiFSC9/l7SfIk4lhS+114uWwGyzSfjPDniOOFc0xqpVAG0 +qXWH17aI48y3WnkLwwpQsQnzrvsijnwLen5Xd1WA3tIFwxE9CXQwiHWTuVEB +9hGSo7qdEpj/WHyTvV4lnHKy3PRidg2+X17+aRONA7J3n8ryLpHEjx95aCcY +HKgQd5rTWSWJguk2J1pUOdD3wotzXlESzXrpfRu1OaDsEMFwsJBEt6kz52eA +A82215Y/z5VEPmaoQLU3BxbMZp4+YUmhwgrjMtdrHMgoiSpbMJPCBP3RKeI6 +NX45T4qmgxSe6Frr/qmEAzZtApvP+kmh+fFz2X4VHMjbQtyxSZfCGUYfx+AB +Bzai9aWuISnc8qIW5N9w4JBx4e6ORGm0TAmrXiLKBasCoR/WadL4UYIUlJLg +AmPF8ZSnF6WxMqKAd50UF573uHBf3pRGzRDPdlMFLmiFreYbfCqNAdWnm23X +ceFLSWTJf7Iy+MejM+QhcsFDwm5C7o4MGvR3tSsGc0Evui4hv14GW1RvzraH +ckHgg5ok/ZEMrtgt0hpykAs1lXyg+loGo/2/sDmRXJC0rsnYsCiD86zbHIFE +6v0JyvrbrGWx6mjVbYVsLmz99isqZEQWwzq9JB/UceGYxQX1h+Oy+J9vMfPb +Ay5UFGq+EZ+VxUoBYRVaExeknbyNa/jlkCdK2/ZgKxfG77fN8WnJofyd3qnv +3VzISsyIyD0qh54dF2s93nHhwxrVkFZBeRxMG9d+9JsLUqGNClJS8vglXe7i ++QUu2LS7PQkk5HGkW6pj5yIXqqJSNYT15PH74878YV4SzgxNje10k8cCgfMC +7StJ0C2t2/etSB7D58x0/0qSkMBy8JHdqICyNif8BbRJsPDK/8/IVAFV1V4X +pW8gQSj+6wlnGwV0NipdL6xLwpWW5JIMbwWU0vqlvMyAhPtWtV+Xn1bAkqUH +H7UySZhyUzry/bUCXrikY5m1jYTqqLAVoqMKuMzXN2vAjITYKw9ytCYV0Kmh +UI9hQcLqYde6QF4amj3852iRFQlr96XxDKvTMJ9HUS3SngSvwzNnuqNpeOiQ +XmW4Gwkql0zlx5Jp6GavVhq/k6Tid+72igwa/sv6yJfmTkLUn3XPTYtpODN0 +dvCSBwkXT3itqemm4eRgFSvJmwSPG2UlfX00TF+yxOGIDwmMx/NGP4ZpOO/y +rmvvHhI4Alnu2jM0FL1vNm+4l4Tu84+v3VBQxMbLU8jZR0LWHQmdlrWKeG24 +Pz85gAT3Xp/mYR1FBIG9ga6BJHyR/jMqZ6aIy0XizaeCSOAr2KCeGaKIX136 +2HPBJDArcu/GNirilEXNI/dDJGx99XRhsl0Rz/XqTY9TtuNZar77hSK6v/22 +8ngECb6OIa/hoyL6JI7xnz9Mglk0PS5+GYFaJy23Z0eS0CVcf32jAIGrLq/j +ETlKwvZil/YpIQJbR99eP0l515NUUR9pAhNY6R1Bx0gIU5y9vnk9gaXKRkVC +0STM3Mlo/6lNYGYuZ2kY5SiL9RNcfQL3Jzd4P6WcHO5tyNhEjfc+xZ94nASB +5b/d35gSeI+33vkV5Yy8i3GZ5gQ+jz96bV0MCXktne28DgRq1ietb6Os6OY3 +UetM4KimU6hQLAnF44uih9wJ9B+5RTpRrlxjsGvEl0BDcobZT1n/1rO4ywEE +hoeHJqyJI6F2U1DxjmAC7RqjO+0pt+67NtFyhECxA7v31VG2/GMsdjyawM2O +zfXjlJ9m9BjqxxOY0fNUSi6eBCeV0F3jSQQuptgcM6P8umZlfPFpAnUa+T6E +UPayKy72SCfwU9wDxwuURz9s6pDIIvBY2pbuKsqBka8nui8RGODlbd9HeXJV +hFjyFQIbVIcG/qN8qEDIiF1IYO6T1MOrE0iY1y/dNXODwIppXVklyrEdW+Jv +3yLw/ufCLkPKfF6DxX6VBP6uKTljTjnlv6MdCncJbF8r4uZMWeiU+GTvfQKH +i2/re1POkqsQS39A4Oqd9vQAytIcCyOzZgKTFB/Rgilf3Tqy6+8jAo+fHNEM +pcx4HRNf1UXg6afH7EMo3wyWvhHynEDtsV1JQZQ1ee90qPYS6BDj+cSXMplt +Ozn4mkDOgON6d8ob138RuzRIfa+g6DVbyg8aE43sRwj0aA1et4myqZOCx4ov +BLb5Qdd6yo+/VMc3jhN4aalnsiRlmxjHG5HTBAruyXf7S8XnhehEh/YsgSIT +b7eNUHYtOTX5+ReBLQ8nbdsoDzAZ4gWLBH67yQkvprznWb2R21I6Rkv94cZT +PjA/Hd8uSMev1VdSN1BmhvtLfhKj4+77X6x4KPOPvSnjk6bjzp6o0m5q/2+8 +benbxKBjwJUBi12UI5w2HvBYS0d7zdFUBcqmT8qXRGnQ8WFh4cEB6rwNNlzU +uGdIx8uT1drbKZcbCTS/MKEj9709/zLKUZxY1ymkI21c7nQVdZ4li/Ylrrem +Y4dF/ylhyvbJxv2Fu+n4MrcrN5fKF9rf28GNe+mYmfD5pR7l8SMMvneBdBTy +8mrsjKL2O2CVlnQEHY9P8FROUvnYZP3uRHoKNb9Om6gwla/prQ4y5WfpePSo +11w6ld8e7EcVHZl0dOrjXFpF+adW5eulV+mY9gMEf1P1QFcsQTuaS8ektWET +JFU/eFJnWnOq6Nhcpt8pTfkpX5B7VR0d36wy2x99kIT9M47J02107HuptmgY +TuVjv/LbfW/oaNkjmHEqhISDDrlhyUN07HrhyH1J1SvsFFx+fZSOn8LLC+Qp +v6ub3TA4Sce4lIzJ4v1UPK61n3TiY+Bw8njgOaoejkqx5Q/yM9AmrJDWTNVL +MoPLPSfIQA9pv7JpfypeiXkDnVIMnNym7GjuR8XD74DuZg0GPv5nYa6bqsc/ +14sMajoz8Kb+gRZTqp7PXpVN0HNn4MHR61ssqHr/Q1hF2Xg3A3u6prutqH4w ++d04aGsgAxUzmxfNXEj4UOc76x7DQK27f/jlHUnotK4WSrnBQGaqRLOxJXVe +Hzzknr1Fje8OChSh+k+rdrdTViUD+V+MaY5S/alB/H1efg0Du0YSxU9spdb/ +VmDtvScMfCI7FZEPVH3b7wUfZhhoeCyXa0P1v0vvAj58/sVAAamxthk9Ei7Y +H0qeWGSgiIzE6itUv0zXS+maX6mEPTv19Yap/pr4m+sqTFPC187Joubq1H6k +LgtjmSmh53VtowwaCayy8oLsbCVcmh2bIrOMhLdE2bVtl5Uw/MmN2BQ+6jxm +l+b/uKaE5SKJ62aWUP01oeSKY6kS9rY+L3z8lwu6bgU5QvVKqJYjx3KY58K6 +ZRcyTr5XwhpVdfH5Meo+szs6/oiGMu78tZ955SkX7vUci1PRUcZQX7W5Fur+ +4WR1NLbHQBnb3k6n/dvJhUyDw8d1QRnZ3tYWWo+5ILg69OikgzIKySXR8hu5 +sLRmT5h/pDJW/s/aVprDhWkxK2+XZmV0P980EnuOC/0HGM+DHlPzJe1zNjzL +haZHvyCuWxmPzSnt/3qGCxlRZYo3+5RRo/Nrit1JLmz4sHro55gyjsdq3J8/ +zoUQ7jPPq+IqGKuykjkYyIUxe+ddo3tV0EWwJGZ+MxdG07xdDq5QRSer5zua +vnLA8luk5UfDtVj/Xc9xoyEHxn35D92NU8MjYoTnOU4F9X8gxXuqeR2qsJMW +mnrLQeyJajrnmzpa1X1Oc+EtA/mUyu2GhhoYtJD9KGHuJuSsNxYR36eJNbyr +8q1W/g86ZTcbfD+vhX/SPubeVr0BTPnmDO0+bTxnHDxeonwdhPiKInwSN+CS +Cf35vh2FQEtQZO1U1cE2+Q+zJ0byYaWKR5XjYx10fDjkEud3GbTYMpWRnrrY +uH9vsKlbDhwcFGux4tHDiobXC1fMLsK372nOljl6OHCENa95IxPMtR/lWWrq +Y2hKS+crywxo+G7ye+6pPkZ4rvrp/yMVQjR03/zjZ4AGfuq7TkqlAHtyb8/O +lYYY98FMpWh3EmxTlrYVLDJEaZG0UHBIALX4M0ebjYzQ687NzANeMaDuZ9yo +8sYIx4tcGXP7joJfQ0DS3fCNGJtnamYXFAGNBT17p9cY42JpccO/1WHw4+bi +nHa1Mfr9dJhZYr8fPrmYFZyuMcY3BTuUJZn7oX/pWYuROmM8o6G3aKSyH+q8 +ZXOzm4wxaZvZ1eLfQZAobcBc6DBGQZZmPVEaBCIpQcc7B4yxULbpYv7yINDY +18vjx8vEr80+WQldAeCrUrYyz5aJ72tLZMKj/SGqzStIdTsT+ci8WXaAP2T4 +iXWRjkwUl1/zQ9rZH+pvHEvrcmXitNWqDT+1/EFC1UJ4wYeJkUnp7T4jfvBI +9aOE9xEmFmlPBXTb+YG6miKheo2JOz99d32mvRem1bMMySkmrn3YtqFHeg/0 +d+M28e9MTDpn3TO/cg80hUzuiJhhYowwSqj99oF00jLc8BcT76gqO5S88wF1 +Jk95LZ8J9pnIrKFf94E9lsH0FkkTlEtoihXY4AM9+8xX97BM0OuhgdgJB2+4 +X/z7/UyKCfIMRG1J8fUEwy0Rc1apJrg6ucQQrD3h3vvx1QVnTdDmuGjrCj1P +IGmDRlaZJigzPHHiCa8nlOc0nc2/bIJ5FoUR6tc9oCAt2di8wgR9F/2F6J93 +wekI4fM5L00wOpCZXxPtDu5bldCExsIGuaqYwF5XWOjhF2ohWJh+LHAuvtEV +Cvwm31opsfB05TnWrVJX+HSyJtJdjYWPa7R+6sS6wsEO+8pjuiycet81LqHm +CmfsjtPum7Hw8JJHbrQ4F6h16/2jH8qi+tM28wljZ5ALPlWj1cRCERE+2t8h +R0hf9DdIbWbheyueX57PHIE304z7uZWFZQUJg50NjjBWtay0oIOFaVJ5+V1X +HaGWJylH7CULMxWfCQR4OIL7hfjI2Y8sjPwQQFs24AA5dccMGlax8X32rN/F +0e2wRuAA19aVjalO1pCqawfFW2KipnaycTKYxq8kYQe6MelbsjzYuGxHIKtv +xhbspji9/T5s/Gw8m5leYwsn+2Z++h5g480dGWVbTW1hvijONCqBjcMPArbf +dbOBNyZZL0vK2DjQ1yYjlmsFAYeLr1hWsHFVTvGObzFWMFtxz2+cw0Z104ED +H/dYgRijf06nio1CQ38n5TStwJpfQf5BExtXVFiJcJotob6nZO/LXjbWS74b +8v3PAqyE7mse6WfjnpCan239FtBv3jEr/ZaNeGimARot4Eft1xSvYTbaLNfg +iUqzAM3CDbf/HWNjtV389hVqFlD/ZvORtAk2GlX8qFYWpuaT2AHaU2wkRTca +7Jw1B/9Th/+JmGHjoNbmtSvazOFH08k8qXlqvRe0IuPLzSHx1yXf2l/U99ow +s0QumIOIfqmG5wIb25TWBFZHm0N+cO3M4iIbz4VHf4rwNYf/A/JUB3Q= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7770,116 +7742,124 @@ h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VdsbB3AZCkWizMM5+xxDMo/hnN63gdCNiEhmqXSVklKiUKJQSFGX -DKEIZ2+kKw1CooSKTEVXk4SQqYnf/v21n8+zn2e9a797fdfam+kb5OjPz8fH -t2gBH9//r9N9TfXs+Lw1vN0SRlWIa9qvyR5b2xUNunhxcOsLJcAVrb6yXSng -rLCnfekLbTiypahToCsXDGx+ir1v48KyUZmUH51lIPx3dVVO22bov2cXNNlZ -Cz3DPXYdrR5gxR56O975Ehb2Dm+sad4HPzpNL411DkAlOzExoiYC6tbfyHuR -+x0yfi9uZjeeB8X+qk++Wn9AbL1GllfGZVge6FW0aL0Ait6cECnanQkp+lbV -ds7COL5GYdxNJxe60/VqxiXEsEG4tSNdPx/i80628sstw8d80ocUNW+CTOr7 -sxczpfBEgEQms6YIYp1s1rycXoH9obG2+l3FIF/RIs+/QBo7qU2JKe+KoVTK -aUZ/sTT+daqwemSwGF6/9CSTVaTxm5dPZ/KPYmA7hBAO1tL45cbpsST5Eqjd -nLWw7Yo0ZnOy+wJ2lMAfq6mW5xwZjDENeRTZVQKHzHK8mqJlccL3lK18TSnY -ZotPbkqQRR0W6IY3lAKxKDyu5ZIslq56lN3VXApt7duoVzdl8WpluUZUdyno -HFgi0Ncii+qfh2uTJkphsCC0YEJeDt/4lfcUsnjgvtxuRKFcDn01Lt59FMUD -w+PVUdfuyWFdm0thSCwPRAc0pJkNcmi6pVaRSORBFU8A1LrlcPXcSFJgOg+k -N1Ul6c3L4bbU6qKHpTxoi2IbWW6SR0uG+jnPHh5s+PYzbP97eRTS4XEeSpNw -zDpV89GwPJ5vemtnJEdCaY52j9S0PI4cfX6/QIEEWSdvsyphBbytKlh2ikHC -8L+PZwR0FDA4P3pSSZOEi9FJIVeOKqBtOPXlFYeEgRVq++vFFPH7+6+zlt4k -yAQ9VJKRUcREpt7dXb4k/NXo+jyAoYgtQ5o9p3eSUBkWr7XUUBE/aFImVXtI -ONc/NrTdVRFfzjL9+Q+SYFBYvftbriIu0ekrk44iIYrj4CO/Wglll/2z1DqL -BGvPaxOm65TwsozVjEUOCeKRX085/6WEBY/7n2ldJyGjLqYgyVsJ+ae6OEI3 -SPjX9u7XhWeV0Ord0IbkUhLGXFlHvncr4dDwMw3p+yTcCTuwaNkHJXwSnDDX -9YCEExn303VGlZCbnfA4vYaEJe9cqgP4lfF560mNpfUkqO9O4HunqYyFxS22 -nU9J8Dw8da75uDKO17y37ugkQTVtneJQjDIexHjX3d3/79+FkkVJyjgqWeg5 -3UNC2O+VbevylLEVKuwX95Fw6ZTniqpmZew9p98q8YGE5uQnWflKKrjMZzDt -3DcSzEuvVJx4qILX7UKUOYIUbOhs+TPaqILPfa18twtRYMcnuNHrpQrK+4Qs -CVlIgZ/j/m74qIJ+6Tsv5QhTYHWceTJSiIEPDnNOv11CwQGV6etrVzFQelBE -u3s5BVPlSY0/dBkoqzYp+HwFBWHWq0YoIwZuiD5t80CagpiD3ibEGgbqVoP8 -FVkKrtY9beR3YOCqHb0fdRUpqN+dNVJ3hIEzORExAwQFNr/NJMOP0/WaHrqV -sChoSWo3MYpkoF/P+euH2RR0V4lE5p1loIN3bvKcKgWji0MkYzIYuLlm1/C4 -BgWHssVNuTkMrGp4tffmSgpmjQp3TOUz8ItXmLe7JgUCnn15/jwGjtQ7l99b -RYEsaW1qVcvAN5ZJgl46FGRueL9jroGBjbclbBfoUkB0R0RWPmPgovoM0Rza -2vzlTWodDIz/99lclx4F65yU3BcNMrB+essjTUMKAmfHIxvFmHjtibHKNlMK -zA/ukv4kycTp1qYjPbSFh3puCcgysTBcZmDHagrye+teryGY2Dx+btrZjIK+ -B5e0bpswMXPdrZXqFhQUm4rWvrRgIkfonX4q7TDyhMsYMtE5cfXWOdrSubuj -V21iYriL7IcmDgX2MWZdOV70eBeWO65ZQ4HyXMm+hzuZ+HvyvUkq7eEjhMDb -ACYaOx40/0w7bs9iHdkQJjop5WSfBgq2/XeyzvgYE+smywRbabPdJl23nmDi -1ss+56SRgppNb0+dj2PiuET4nwza5+sd5IoTmdiv5jHcS9ud21DalEI/38nH -8zJrKfihw+sWzGRip59yWiztxhusICKXianfzipW077MSBfEG0x8ez+46Stt -A8ko3eMUE1l/qjI2rKOAL36qPr2SiX+YV+oDabcI7HWrrGai/Ni0dArtjPC+ -b69qmHgm5lJqBe2/pxxjxh8zUa/CdE07bfP9T+SXPmPikQU5y8dpC3+2ILXa -mFiQf0l28XoKXnuRlrYdTDwU32NL0M7rYvfu7mFihL1xsQntYIcrB2L66X5A -INeaNj4VW3j9AxO1dljNb6Mtvj76n5ovTBRwiJ/wpf22elqvb5SJgZECsoG0 -i43+bvj1nYnDM6EHgmmHlfTvkPvBxIGQst+HaVurOY2bzDFx3jfi/hHa0lmN -Z5wECGzqvV4eQvuDDFcxWJjA5QXj/UG0y5Io6oIYgbHGhuv30I4UUdtYIkmg -UJFxnwdt++irb57KEIitDdQW2sq/xIMHFQlUU7z9AGkPHzq1aCFB4I6yViEd -2neHZzJY6gTWeXyKlaUd5x9osFaLwG8Xmyz5aG/re/fEU5/AjEO2+JHuH9vF -2SPchECjevOjT2hPtDZNXLGg600FjhbQrrFeE3cHCfyiVHH9FO3zj8qUOiwJ -3Pf7fboHbXdz9fIJWwLzptpajGj/WCXRp+1MoIKIKV8v/f6nM+WjDN0ITHaS -+lJEe3KpKtvMi0CbKQ/do7RHv5vt3RBA4KWa/Z2itL/6bxCz3U+g9a0W8zZ6 -/Q122pH2hwg8tbdtLoX2QLXftFsEgXre329J0O7X3n/FO5rACpHyy8/o9f0m -6yhnVyyBXwMdPp6i/fpUYvTBZALri/ZRw3Q+nm66Ix6XT+BzOwXFLC4FT+4/ -ohKLCFw2V8expF2v2+x0kUeg2+d3Twbp/D2Q+u/qtSoC06abGRq0y3pF1W8/ -p+tv+zAZa04Bb/OKp3df0uNr5UTK0S5+qLKvppPAN+/iI27S+S+4blT+7D8C -j5k6tjyg94erf3vCwBSBtqdT3zebUJD2ds/A558Evt1SKmFLO9X+UMzIPIGD -DS9v1xvT/TaMezYrwsIqu4q/y4woiP5FuSxVZiHVuf5akAGdj3ihAxwrFrrp -ZL4/qE3Bnj9LpdZtYmFFydWfDVoU7AqSr9y4hYV6k4/S5Gh7b9X97ejGwhvx -6nvu0Punk8L2uID9LCxqvBbWoU4B51Zx9uXLLIzY62aQwaSgl3Ery/Ifun4B -w7mLQa/3y4XXJrNYmLzS2kOS9p2oggzHQhZmlT5kRCrTeXfNThe/x0L+1TFn -1ylQsFIoNenMfyzk9Rom+tHnS2NYygXjTyz85OHkc0KKnt9Y0vkPQyw0Wb9M -PU2SzmtvYsK6SRZuHA07VytBAaMsNm5uIRsHXHsb+MToPHkdjzyixcbLDfaP -Fejz7nb7sZOq+my80C60TJo+D51sj55oN2bj8plBN3EBClKMD4cbABtnmv2H -Z/koEFsSdHTUgY1qWy4rVv4mQbDK98CuUDY+lrvj/+I7CeOStt7batmonpFj -k/yOhK5Aom3vEzaW+j7y0+8noabhJ5xsZuOwpjq2viUhKeyWys3X9H1rwQ2C -vSToDSzp/zHERtabjktbO0jYT7V6ZEqp4p25eIe4JhKG7J13fNipinmZwlUO -JAkvC7WfzQao4t6j9vrF9PfIXYGFFmJBqijCF3VesISEs3cq5U2OqWKRlfjv -0kISNFRke2ITVXEwv6l2KJeE3aM9rqsqVVFx6MjMXCoJHxK8twUvUsOof1pf -5ITS9Ye0CL0lanis73Ni72ESZjb+GBmRUEMd85iLUiEkiAqkxATIq2Fm24KT -Jw7Q8z9WV+GtrYa5DqNjEEBChL+alP1WNfwmES0R7EaC9Jrh1lVZahijc6Dh -igUJNt9CbT6aqGPZVlacywQPFPWVzwhz1NFBx809Z4QHo8H1tavWquMmN96/ -nwd5kDotwQnepI6i7w9K7e3nQd+fQp15L3WUmE+6ZNnMg+Alb6TkzqrjeHL5 -6PZ8HlxdiX1/9aqj5D5dSRFnHgz7CR+qOKmBirNh4aK3Sun/ERn+2NqVKN2Q -M7uYWwKSz9XOk980UVd8S/Pwk1ugGMfbYmKihSUnYkfPyhVB+iozCand2uiW -RNrIh96Ep/Jrjb8n66D5zcXvlrQXgLlibZLua10MTSkSCBbNB3GB3BCfaD1s -kvV8s8f3OihHqXC2q+njp8bn115n5YCIqnul4xN9dHdMWLb8cxbocOV4oR4G -mBXHWhQ+mAHBfZJ1tnyG+PbQ/a+PXl6Bb98TnG3SDdHwp/3cAqU02KjbcNVG -2wjXOVtLnMlOhQffLX7NtBihqwB5tpCRAvu1DHpe+BtjasAlBmf2AnBHd7Zv -FzHBq1miCX/diwdLtuxmsVwTdJ54FGuwMg40Is8drTU1xcjQIPtf86dB09/s -oWqPKc42ah1YORYF/g/2nK44uBqvJ8jXp7eegIfZ7TvHV5ihiZf6QcNfx2Dy -5vyM7h0zFDImvlb1HAY/1VsiVzeb40j1defwqGAY17xoUjZmjmOmrX9+39sP -/+b9+m8qzgI3DpjfkL4TAG4bWGihzMGsgpAlj8P9QWFfbJVODQd9CoIKWGk+ -cH5+l3F8LQf3Wma1vj7rA/wpVtTneg76s6MqUsJ9YKhSqDC7iYPyOiJZbF8f -uMt3Ol3yFQfvqJiHkto+4JYaGTr9kYOTmR5mOxu8Ib36mPGDxVxsL9GYXv3b -C1aIBlKbXbj4szt/mlzsAXnrI8LGtnMxKcejNHnCHQwizq+/6M5FIdeavTHd -7mA3RnZ0+XAxUKa0Nv+GO5x5PfXDL5CLGd2WNxs3uMNs7sl1YVFc1HDMJRKj -d0CPxcVXBbe4OPOnNqFmsRvsOZyXYVPKReau8qivk9thuvS2/zDJxa+VkWIa -fdtBkuia0a/k4gkbo/sd5HbYJKykeL+Gi7y4NCt+l+1wr71g56sOLibsTfO4 -XOAKtuL/ah/p4qKi7M6LHUmu0LWxaVq2l4udOy1I1eOuMHn3a5znOy6u/Xn3 -0Ky9K2jn6JV8GeKiHKv/+66fLnCvZ+2RhBEualI1hlofXcB2+VbQHeOiGpwT -5G9zgV2xh1+ETHHx8SJlnf58F5isOXNVZpaL/UHpBz8luUD0zzS/uz+5eM9g -h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= +1:eJwV13k8Vd3XAHDRIGWW2XXuNSQZMue6t7VSmYfIlBCJUKZSioxRiiRKqITk +l4h7T0WGkKFMDU8hlVA0PEI8ZWiQ97x/nc/3j73PPmvvtdY+9D2hjn68PDw8 +tCU8PP//nB3saFVOLd6U2Mp3ZL7cdFNPvvSxzf2JsH3r51/5dDrgmmd7pPsz +YUfK6bxIug4c2X7rFV9/EWQPT7/0oG8G0UmpzJ+vSPgTYyqlR3eAoXq70B+v +miFk3UhvOeEDZspj76ZfvYCYgmy7Ylo4/HxldHHq1QcIW2PXnCaZAC1b/lf8 +T9F3+MD+p1ml9DzID9V82qOxAE1bJtaNfcoFiQO7b63YwofvVqf3DD0pgEwd +szo7Z34UUHFZ2VVVDK9zNjRNiwgiFuha8AvfhNTiuGe8MqKYr7FWpMC2DKQu +jJzOuiqOi8Z1LukiFSC9/l7SfIk4lhS+114uWwGyzSfjPDniOOFc0xqpVAG0 +qXWH17aI48y3WnkLwwpQsQnzrvsijnwLen5Xd1WA3tIFwxE9CXQwiHWTuVEB +9hGSo7qdEpj/WHyTvV4lnHKy3PRidg2+X17+aRONA7J3n8ryLpHEjx95aCcY +HKgQd5rTWSWJguk2J1pUOdD3wotzXlESzXrpfRu1OaDsEMFwsJBEt6kz52eA +A82215Y/z5VEPmaoQLU3BxbMZp4+YUmhwgrjMtdrHMgoiSpbMJPCBP3RKeI6 +NX45T4qmgxSe6Frr/qmEAzZtApvP+kmh+fFz2X4VHMjbQtyxSZfCGUYfx+AB +Bzai9aWuISnc8qIW5N9w4JBx4e6ORGm0TAmrXiLKBasCoR/WadL4UYIUlJLg +AmPF8ZSnF6WxMqKAd50UF573uHBf3pRGzRDPdlMFLmiFreYbfCqNAdWnm23X +ceFLSWTJf7Iy+MejM+QhcsFDwm5C7o4MGvR3tSsGc0Evui4hv14GW1RvzraH +ckHgg5ok/ZEMrtgt0hpykAs1lXyg+loGo/2/sDmRXJC0rsnYsCiD86zbHIFE +6v0JyvrbrGWx6mjVbYVsLmz99isqZEQWwzq9JB/UceGYxQX1h+Oy+J9vMfPb +Ay5UFGq+EZ+VxUoBYRVaExeknbyNa/jlkCdK2/ZgKxfG77fN8WnJofyd3qnv +3VzISsyIyD0qh54dF2s93nHhwxrVkFZBeRxMG9d+9JsLUqGNClJS8vglXe7i ++QUu2LS7PQkk5HGkW6pj5yIXqqJSNYT15PH74878YV4SzgxNje10k8cCgfMC +7StJ0C2t2/etSB7D58x0/0qSkMBy8JHdqICyNif8BbRJsPDK/8/IVAFV1V4X +pW8gQSj+6wlnGwV0NipdL6xLwpWW5JIMbwWU0vqlvMyAhPtWtV+Xn1bAkqUH +H7UySZhyUzry/bUCXrikY5m1jYTqqLAVoqMKuMzXN2vAjITYKw9ytCYV0Kmh +UI9hQcLqYde6QF4amj3852iRFQlr96XxDKvTMJ9HUS3SngSvwzNnuqNpeOiQ +XmW4Gwkql0zlx5Jp6GavVhq/k6Tid+72igwa/sv6yJfmTkLUn3XPTYtpODN0 +dvCSBwkXT3itqemm4eRgFSvJmwSPG2UlfX00TF+yxOGIDwmMx/NGP4ZpOO/y +rmvvHhI4Alnu2jM0FL1vNm+4l4Tu84+v3VBQxMbLU8jZR0LWHQmdlrWKeG24 +Pz85gAT3Xp/mYR1FBIG9ga6BJHyR/jMqZ6aIy0XizaeCSOAr2KCeGaKIX136 +2HPBJDArcu/GNirilEXNI/dDJGx99XRhsl0Rz/XqTY9TtuNZar77hSK6v/22 +8ngECb6OIa/hoyL6JI7xnz9Mglk0PS5+GYFaJy23Z0eS0CVcf32jAIGrLq/j +ETlKwvZil/YpIQJbR99eP0l515NUUR9pAhNY6R1Bx0gIU5y9vnk9gaXKRkVC +0STM3Mlo/6lNYGYuZ2kY5SiL9RNcfQL3Jzd4P6WcHO5tyNhEjfc+xZ94nASB +5b/d35gSeI+33vkV5Yy8i3GZ5gQ+jz96bV0MCXktne28DgRq1ietb6Os6OY3 +UetM4KimU6hQLAnF44uih9wJ9B+5RTpRrlxjsGvEl0BDcobZT1n/1rO4ywEE +hoeHJqyJI6F2U1DxjmAC7RqjO+0pt+67NtFyhECxA7v31VG2/GMsdjyawM2O +zfXjlJ9m9BjqxxOY0fNUSi6eBCeV0F3jSQQuptgcM6P8umZlfPFpAnUa+T6E +UPayKy72SCfwU9wDxwuURz9s6pDIIvBY2pbuKsqBka8nui8RGODlbd9HeXJV +hFjyFQIbVIcG/qN8qEDIiF1IYO6T1MOrE0iY1y/dNXODwIppXVklyrEdW+Jv +3yLw/ufCLkPKfF6DxX6VBP6uKTljTjnlv6MdCncJbF8r4uZMWeiU+GTvfQKH +i2/re1POkqsQS39A4Oqd9vQAytIcCyOzZgKTFB/Rgilf3Tqy6+8jAo+fHNEM +pcx4HRNf1UXg6afH7EMo3wyWvhHynEDtsV1JQZQ1ee90qPYS6BDj+cSXMplt +Ozn4mkDOgON6d8ob138RuzRIfa+g6DVbyg8aE43sRwj0aA1et4myqZOCx4ov +BLb5Qdd6yo+/VMc3jhN4aalnsiRlmxjHG5HTBAruyXf7S8XnhehEh/YsgSIT +b7eNUHYtOTX5+ReBLQ8nbdsoDzAZ4gWLBH67yQkvprznWb2R21I6Rkv94cZT +PjA/Hd8uSMev1VdSN1BmhvtLfhKj4+77X6x4KPOPvSnjk6bjzp6o0m5q/2+8 +benbxKBjwJUBi12UI5w2HvBYS0d7zdFUBcqmT8qXRGnQ8WFh4cEB6rwNNlzU +uGdIx8uT1drbKZcbCTS/MKEj9709/zLKUZxY1ymkI21c7nQVdZ4li/Ylrrem +Y4dF/ylhyvbJxv2Fu+n4MrcrN5fKF9rf28GNe+mYmfD5pR7l8SMMvneBdBTy +8mrsjKL2O2CVlnQEHY9P8FROUvnYZP3uRHoKNb9Om6gwla/prQ4y5WfpePSo +11w6ld8e7EcVHZl0dOrjXFpF+adW5eulV+mY9gMEf1P1QFcsQTuaS8ektWET +JFU/eFJnWnOq6Nhcpt8pTfkpX5B7VR0d36wy2x99kIT9M47J02107HuptmgY +TuVjv/LbfW/oaNkjmHEqhISDDrlhyUN07HrhyH1J1SvsFFx+fZSOn8LLC+Qp +v6ub3TA4Sce4lIzJ4v1UPK61n3TiY+Bw8njgOaoejkqx5Q/yM9AmrJDWTNVL +MoPLPSfIQA9pv7JpfypeiXkDnVIMnNym7GjuR8XD74DuZg0GPv5nYa6bqsc/ +14sMajoz8Kb+gRZTqp7PXpVN0HNn4MHR61ssqHr/Q1hF2Xg3A3u6prutqH4w ++d04aGsgAxUzmxfNXEj4UOc76x7DQK27f/jlHUnotK4WSrnBQGaqRLOxJXVe +Hzzknr1Fje8OChSh+k+rdrdTViUD+V+MaY5S/alB/H1efg0Du0YSxU9spdb/ +VmDtvScMfCI7FZEPVH3b7wUfZhhoeCyXa0P1v0vvAj58/sVAAamxthk9Ei7Y +H0qeWGSgiIzE6itUv0zXS+maX6mEPTv19Yap/pr4m+sqTFPC187Joubq1H6k +LgtjmSmh53VtowwaCayy8oLsbCVcmh2bIrOMhLdE2bVtl5Uw/MmN2BQ+6jxm +l+b/uKaE5SKJ62aWUP01oeSKY6kS9rY+L3z8lwu6bgU5QvVKqJYjx3KY58K6 +ZRcyTr5XwhpVdfH5Meo+szs6/oiGMu78tZ955SkX7vUci1PRUcZQX7W5Fur+ +4WR1NLbHQBnb3k6n/dvJhUyDw8d1QRnZ3tYWWo+5ILg69OikgzIKySXR8hu5 +sLRmT5h/pDJW/s/aVprDhWkxK2+XZmV0P980EnuOC/0HGM+DHlPzJe1zNjzL +haZHvyCuWxmPzSnt/3qGCxlRZYo3+5RRo/Nrit1JLmz4sHro55gyjsdq3J8/ +zoUQ7jPPq+IqGKuykjkYyIUxe+ddo3tV0EWwJGZ+MxdG07xdDq5QRSer5zua +vnLA8luk5UfDtVj/Xc9xoyEHxn35D92NU8MjYoTnOU4F9X8gxXuqeR2qsJMW +mnrLQeyJajrnmzpa1X1Oc+EtA/mUyu2GhhoYtJD9KGHuJuSsNxYR36eJNbyr +8q1W/g86ZTcbfD+vhX/SPubeVr0BTPnmDO0+bTxnHDxeonwdhPiKInwSN+CS +Cf35vh2FQEtQZO1U1cE2+Q+zJ0byYaWKR5XjYx10fDjkEud3GbTYMpWRnrrY +uH9vsKlbDhwcFGux4tHDiobXC1fMLsK372nOljl6OHCENa95IxPMtR/lWWrq +Y2hKS+crywxo+G7ye+6pPkZ4rvrp/yMVQjR03/zjZ4AGfuq7TkqlAHtyb8/O +lYYY98FMpWh3EmxTlrYVLDJEaZG0UHBIALX4M0ebjYzQ687NzANeMaDuZ9yo +8sYIx4tcGXP7joJfQ0DS3fCNGJtnamYXFAGNBT17p9cY42JpccO/1WHw4+bi +nHa1Mfr9dJhZYr8fPrmYFZyuMcY3BTuUJZn7oX/pWYuROmM8o6G3aKSyH+q8 +ZXOzm4wxaZvZ1eLfQZAobcBc6DBGQZZmPVEaBCIpQcc7B4yxULbpYv7yINDY +18vjx8vEr80+WQldAeCrUrYyz5aJ72tLZMKj/SGqzStIdTsT+ci8WXaAP2T4 +iXWRjkwUl1/zQ9rZH+pvHEvrcmXitNWqDT+1/EFC1UJ4wYeJkUnp7T4jfvBI +9aOE9xEmFmlPBXTb+YG6miKheo2JOz99d32mvRem1bMMySkmrn3YtqFHeg/0 +d+M28e9MTDpn3TO/cg80hUzuiJhhYowwSqj99oF00jLc8BcT76gqO5S88wF1 +Jk95LZ8J9pnIrKFf94E9lsH0FkkTlEtoihXY4AM9+8xX97BM0OuhgdgJB2+4 +X/z7/UyKCfIMRG1J8fUEwy0Rc1apJrg6ucQQrD3h3vvx1QVnTdDmuGjrCj1P +IGmDRlaZJigzPHHiCa8nlOc0nc2/bIJ5FoUR6tc9oCAt2di8wgR9F/2F6J93 +wekI4fM5L00wOpCZXxPtDu5bldCExsIGuaqYwF5XWOjhF2ohWJh+LHAuvtEV +Cvwm31opsfB05TnWrVJX+HSyJtJdjYWPa7R+6sS6wsEO+8pjuiycet81LqHm +CmfsjtPum7Hw8JJHbrQ4F6h16/2jH8qi+tM28wljZ5ALPlWj1cRCERE+2t8h +R0hf9DdIbWbheyueX57PHIE304z7uZWFZQUJg50NjjBWtay0oIOFaVJ5+V1X +HaGWJylH7CULMxWfCQR4OIL7hfjI2Y8sjPwQQFs24AA5dccMGlax8X32rN/F +0e2wRuAA19aVjalO1pCqawfFW2KipnaycTKYxq8kYQe6MelbsjzYuGxHIKtv +xhbspji9/T5s/Gw8m5leYwsn+2Z++h5g480dGWVbTW1hvijONCqBjcMPArbf +dbOBNyZZL0vK2DjQ1yYjlmsFAYeLr1hWsHFVTvGObzFWMFtxz2+cw0Z104ED +H/dYgRijf06nio1CQ38n5TStwJpfQf5BExtXVFiJcJotob6nZO/LXjbWS74b +8v3PAqyE7mse6WfjnpCan239FtBv3jEr/ZaNeGimARot4Eft1xSvYTbaLNfg +iUqzAM3CDbf/HWNjtV389hVqFlD/ZvORtAk2GlX8qFYWpuaT2AHaU2wkRTca +7Jw1B/9Th/+JmGHjoNbmtSvazOFH08k8qXlqvRe0IuPLzSHx1yXf2l/U99ow +s0QumIOIfqmG5wIb25TWBFZHm0N+cO3M4iIbz4VHf4rwNYf/A/JUB3Q= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06743566633430119}}, + "PlotRange" -> {{0, 30}, {0., 0.07228751058894461}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7891,19 +7871,19 @@ h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06743566633430119}}, + "PlotRange" -> {{0, 30}, {0., 0.07228751058894461}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7918,115 +7898,123 @@ h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VdsbB3AZCkWizMM5+xxDMo/hnN63gdCNiEhmqXSVklKiUKJQSFGX -DKEIZ2+kKw1CooSKTEVXk4SQqYnf/v21n8+zn2e9a797fdfam+kb5OjPz8fH -t2gBH9//r9N9TfXs+Lw1vN0SRlWIa9qvyR5b2xUNunhxcOsLJcAVrb6yXSng -rLCnfekLbTiypahToCsXDGx+ir1v48KyUZmUH51lIPx3dVVO22bov2cXNNlZ -Cz3DPXYdrR5gxR56O975Ehb2Dm+sad4HPzpNL411DkAlOzExoiYC6tbfyHuR -+x0yfi9uZjeeB8X+qk++Wn9AbL1GllfGZVge6FW0aL0Ait6cECnanQkp+lbV -ds7COL5GYdxNJxe60/VqxiXEsEG4tSNdPx/i80628sstw8d80ocUNW+CTOr7 -sxczpfBEgEQms6YIYp1s1rycXoH9obG2+l3FIF/RIs+/QBo7qU2JKe+KoVTK -aUZ/sTT+daqwemSwGF6/9CSTVaTxm5dPZ/KPYmA7hBAO1tL45cbpsST5Eqjd -nLWw7Yo0ZnOy+wJ2lMAfq6mW5xwZjDENeRTZVQKHzHK8mqJlccL3lK18TSnY -ZotPbkqQRR0W6IY3lAKxKDyu5ZIslq56lN3VXApt7duoVzdl8WpluUZUdyno -HFgi0Ncii+qfh2uTJkphsCC0YEJeDt/4lfcUsnjgvtxuRKFcDn01Lt59FMUD -w+PVUdfuyWFdm0thSCwPRAc0pJkNcmi6pVaRSORBFU8A1LrlcPXcSFJgOg+k -N1Ul6c3L4bbU6qKHpTxoi2IbWW6SR0uG+jnPHh5s+PYzbP97eRTS4XEeSpNw -zDpV89GwPJ5vemtnJEdCaY52j9S0PI4cfX6/QIEEWSdvsyphBbytKlh2ikHC -8L+PZwR0FDA4P3pSSZOEi9FJIVeOKqBtOPXlFYeEgRVq++vFFPH7+6+zlt4k -yAQ9VJKRUcREpt7dXb4k/NXo+jyAoYgtQ5o9p3eSUBkWr7XUUBE/aFImVXtI -ONc/NrTdVRFfzjL9+Q+SYFBYvftbriIu0ekrk44iIYrj4CO/Wglll/2z1DqL -BGvPaxOm65TwsozVjEUOCeKRX085/6WEBY/7n2ldJyGjLqYgyVsJ+ae6OEI3 -SPjX9u7XhWeV0Ord0IbkUhLGXFlHvncr4dDwMw3p+yTcCTuwaNkHJXwSnDDX -9YCEExn303VGlZCbnfA4vYaEJe9cqgP4lfF560mNpfUkqO9O4HunqYyFxS22 -nU9J8Dw8da75uDKO17y37ugkQTVtneJQjDIexHjX3d3/79+FkkVJyjgqWeg5 -3UNC2O+VbevylLEVKuwX95Fw6ZTniqpmZew9p98q8YGE5uQnWflKKrjMZzDt -3DcSzEuvVJx4qILX7UKUOYIUbOhs+TPaqILPfa18twtRYMcnuNHrpQrK+4Qs -CVlIgZ/j/m74qIJ+6Tsv5QhTYHWceTJSiIEPDnNOv11CwQGV6etrVzFQelBE -u3s5BVPlSY0/dBkoqzYp+HwFBWHWq0YoIwZuiD5t80CagpiD3ibEGgbqVoP8 -FVkKrtY9beR3YOCqHb0fdRUpqN+dNVJ3hIEzORExAwQFNr/NJMOP0/WaHrqV -sChoSWo3MYpkoF/P+euH2RR0V4lE5p1loIN3bvKcKgWji0MkYzIYuLlm1/C4 -BgWHssVNuTkMrGp4tffmSgpmjQp3TOUz8ItXmLe7JgUCnn15/jwGjtQ7l99b -RYEsaW1qVcvAN5ZJgl46FGRueL9jroGBjbclbBfoUkB0R0RWPmPgovoM0Rza -2vzlTWodDIz/99lclx4F65yU3BcNMrB+essjTUMKAmfHIxvFmHjtibHKNlMK -zA/ukv4kycTp1qYjPbSFh3puCcgysTBcZmDHagrye+teryGY2Dx+btrZjIK+ -B5e0bpswMXPdrZXqFhQUm4rWvrRgIkfonX4q7TDyhMsYMtE5cfXWOdrSubuj -V21iYriL7IcmDgX2MWZdOV70eBeWO65ZQ4HyXMm+hzuZ+HvyvUkq7eEjhMDb -ACYaOx40/0w7bs9iHdkQJjop5WSfBgq2/XeyzvgYE+smywRbabPdJl23nmDi -1ss+56SRgppNb0+dj2PiuET4nwza5+sd5IoTmdiv5jHcS9ud21DalEI/38nH -8zJrKfihw+sWzGRip59yWiztxhusICKXianfzipW077MSBfEG0x8ez+46Stt -A8ko3eMUE1l/qjI2rKOAL36qPr2SiX+YV+oDabcI7HWrrGai/Ni0dArtjPC+ -b69qmHgm5lJqBe2/pxxjxh8zUa/CdE07bfP9T+SXPmPikQU5y8dpC3+2ILXa -mFiQf0l28XoKXnuRlrYdTDwU32NL0M7rYvfu7mFihL1xsQntYIcrB2L66X5A -INeaNj4VW3j9AxO1dljNb6Mtvj76n5ovTBRwiJ/wpf22elqvb5SJgZECsoG0 -i43+bvj1nYnDM6EHgmmHlfTvkPvBxIGQst+HaVurOY2bzDFx3jfi/hHa0lmN -Z5wECGzqvV4eQvuDDFcxWJjA5QXj/UG0y5Io6oIYgbHGhuv30I4UUdtYIkmg -UJFxnwdt++irb57KEIitDdQW2sq/xIMHFQlUU7z9AGkPHzq1aCFB4I6yViEd -2neHZzJY6gTWeXyKlaUd5x9osFaLwG8Xmyz5aG/re/fEU5/AjEO2+JHuH9vF -2SPchECjevOjT2hPtDZNXLGg600FjhbQrrFeE3cHCfyiVHH9FO3zj8qUOiwJ -3Pf7fboHbXdz9fIJWwLzptpajGj/WCXRp+1MoIKIKV8v/f6nM+WjDN0ITHaS -+lJEe3KpKtvMi0CbKQ/do7RHv5vt3RBA4KWa/Z2itL/6bxCz3U+g9a0W8zZ6 -/Q122pH2hwg8tbdtLoX2QLXftFsEgXre329J0O7X3n/FO5rACpHyy8/o9f0m -6yhnVyyBXwMdPp6i/fpUYvTBZALri/ZRw3Q+nm66Ix6XT+BzOwXFLC4FT+4/ -ohKLCFw2V8expF2v2+x0kUeg2+d3Twbp/D2Q+u/qtSoC06abGRq0y3pF1W8/ -p+tv+zAZa04Bb/OKp3df0uNr5UTK0S5+qLKvppPAN+/iI27S+S+4blT+7D8C -j5k6tjyg94erf3vCwBSBtqdT3zebUJD2ds/A558Evt1SKmFLO9X+UMzIPIGD -DS9v1xvT/TaMezYrwsIqu4q/y4woiP5FuSxVZiHVuf5akAGdj3ihAxwrFrrp -ZL4/qE3Bnj9LpdZtYmFFydWfDVoU7AqSr9y4hYV6k4/S5Gh7b9X97ejGwhvx -6nvu0Punk8L2uID9LCxqvBbWoU4B51Zx9uXLLIzY62aQwaSgl3Ery/Ifun4B -w7mLQa/3y4XXJrNYmLzS2kOS9p2oggzHQhZmlT5kRCrTeXfNThe/x0L+1TFn -1ylQsFIoNenMfyzk9Rom+tHnS2NYygXjTyz85OHkc0KKnt9Y0vkPQyw0Wb9M -PU2SzmtvYsK6SRZuHA07VytBAaMsNm5uIRsHXHsb+MToPHkdjzyixcbLDfaP -Fejz7nb7sZOq+my80C60TJo+D51sj55oN2bj8plBN3EBClKMD4cbABtnmv2H -Z/koEFsSdHTUgY1qWy4rVv4mQbDK98CuUDY+lrvj/+I7CeOStt7batmonpFj -k/yOhK5Aom3vEzaW+j7y0+8noabhJ5xsZuOwpjq2viUhKeyWys3X9H1rwQ2C -vSToDSzp/zHERtabjktbO0jYT7V6ZEqp4p25eIe4JhKG7J13fNipinmZwlUO -JAkvC7WfzQao4t6j9vrF9PfIXYGFFmJBqijCF3VesISEs3cq5U2OqWKRlfjv -0kISNFRke2ITVXEwv6l2KJeE3aM9rqsqVVFx6MjMXCoJHxK8twUvUsOof1pf -5ITS9Ye0CL0lanis73Ni72ESZjb+GBmRUEMd85iLUiEkiAqkxATIq2Fm24KT -Jw7Q8z9WV+GtrYa5DqNjEEBChL+alP1WNfwmES0R7EaC9Jrh1lVZahijc6Dh -igUJNt9CbT6aqGPZVlacywQPFPWVzwhz1NFBx809Z4QHo8H1tavWquMmN96/ -nwd5kDotwQnepI6i7w9K7e3nQd+fQp15L3WUmE+6ZNnMg+Alb6TkzqrjeHL5 -6PZ8HlxdiX1/9aqj5D5dSRFnHgz7CR+qOKmBirNh4aK3Sun/ERn+2NqVKN2Q -M7uYWwKSz9XOk980UVd8S/Pwk1ugGMfbYmKihSUnYkfPyhVB+iozCand2uiW -RNrIh96Ep/Jrjb8n66D5zcXvlrQXgLlibZLua10MTSkSCBbNB3GB3BCfaD1s -kvV8s8f3OihHqXC2q+njp8bn115n5YCIqnul4xN9dHdMWLb8cxbocOV4oR4G -mBXHWhQ+mAHBfZJ1tnyG+PbQ/a+PXl6Bb98TnG3SDdHwp/3cAqU02KjbcNVG -2wjXOVtLnMlOhQffLX7NtBihqwB5tpCRAvu1DHpe+BtjasAlBmf2AnBHd7Zv -FzHBq1miCX/diwdLtuxmsVwTdJ54FGuwMg40Is8drTU1xcjQIPtf86dB09/s -oWqPKc42ah1YORYF/g/2nK44uBqvJ8jXp7eegIfZ7TvHV5ihiZf6QcNfx2Dy -5vyM7h0zFDImvlb1HAY/1VsiVzeb40j1defwqGAY17xoUjZmjmOmrX9+39sP -/+b9+m8qzgI3DpjfkL4TAG4bWGihzMGsgpAlj8P9QWFfbJVODQd9CoIKWGk+ -cH5+l3F8LQf3Wma1vj7rA/wpVtTneg76s6MqUsJ9YKhSqDC7iYPyOiJZbF8f -uMt3Ol3yFQfvqJiHkto+4JYaGTr9kYOTmR5mOxu8Ib36mPGDxVxsL9GYXv3b -C1aIBlKbXbj4szt/mlzsAXnrI8LGtnMxKcejNHnCHQwizq+/6M5FIdeavTHd -7mA3RnZ0+XAxUKa0Nv+GO5x5PfXDL5CLGd2WNxs3uMNs7sl1YVFc1HDMJRKj -d0CPxcVXBbe4OPOnNqFmsRvsOZyXYVPKReau8qivk9thuvS2/zDJxa+VkWIa -fdtBkuia0a/k4gkbo/sd5HbYJKykeL+Gi7y4NCt+l+1wr71g56sOLibsTfO4 -XOAKtuL/ah/p4qKi7M6LHUmu0LWxaVq2l4udOy1I1eOuMHn3a5znOy6u/Xn3 -0Ky9K2jn6JV8GeKiHKv/+66fLnCvZ+2RhBEualI1hlofXcB2+VbQHeOiGpwT -5G9zgV2xh1+ETHHx8SJlnf58F5isOXNVZpaL/UHpBz8luUD0zzS/uz+5eM9g -h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= +1:eJwV13k8Vd3XAHDRIGWW2XXuNSQZMue6t7VSmYfIlBCJUKZSioxRiiRKqITk +l4h7T0WGkKFMDU8hlVA0PEI8ZWiQ97x/nc/3j73PPmvvtdY+9D2hjn68PDw8 +tCU8PP//nB3saFVOLd6U2Mp3ZL7cdFNPvvSxzf2JsH3r51/5dDrgmmd7pPsz +YUfK6bxIug4c2X7rFV9/EWQPT7/0oG8G0UmpzJ+vSPgTYyqlR3eAoXq70B+v +miFk3UhvOeEDZspj76ZfvYCYgmy7Ylo4/HxldHHq1QcIW2PXnCaZAC1b/lf8 +T9F3+MD+p1ml9DzID9V82qOxAE1bJtaNfcoFiQO7b63YwofvVqf3DD0pgEwd +szo7Z34UUHFZ2VVVDK9zNjRNiwgiFuha8AvfhNTiuGe8MqKYr7FWpMC2DKQu +jJzOuiqOi8Z1LukiFSC9/l7SfIk4lhS+114uWwGyzSfjPDniOOFc0xqpVAG0 +qXWH17aI48y3WnkLwwpQsQnzrvsijnwLen5Xd1WA3tIFwxE9CXQwiHWTuVEB +9hGSo7qdEpj/WHyTvV4lnHKy3PRidg2+X17+aRONA7J3n8ryLpHEjx95aCcY +HKgQd5rTWSWJguk2J1pUOdD3wotzXlESzXrpfRu1OaDsEMFwsJBEt6kz52eA +A82215Y/z5VEPmaoQLU3BxbMZp4+YUmhwgrjMtdrHMgoiSpbMJPCBP3RKeI6 +NX45T4qmgxSe6Frr/qmEAzZtApvP+kmh+fFz2X4VHMjbQtyxSZfCGUYfx+AB +Bzai9aWuISnc8qIW5N9w4JBx4e6ORGm0TAmrXiLKBasCoR/WadL4UYIUlJLg +AmPF8ZSnF6WxMqKAd50UF573uHBf3pRGzRDPdlMFLmiFreYbfCqNAdWnm23X +ceFLSWTJf7Iy+MejM+QhcsFDwm5C7o4MGvR3tSsGc0Evui4hv14GW1RvzraH +ckHgg5ok/ZEMrtgt0hpykAs1lXyg+loGo/2/sDmRXJC0rsnYsCiD86zbHIFE +6v0JyvrbrGWx6mjVbYVsLmz99isqZEQWwzq9JB/UceGYxQX1h+Oy+J9vMfPb +Ay5UFGq+EZ+VxUoBYRVaExeknbyNa/jlkCdK2/ZgKxfG77fN8WnJofyd3qnv +3VzISsyIyD0qh54dF2s93nHhwxrVkFZBeRxMG9d+9JsLUqGNClJS8vglXe7i ++QUu2LS7PQkk5HGkW6pj5yIXqqJSNYT15PH74878YV4SzgxNje10k8cCgfMC +7StJ0C2t2/etSB7D58x0/0qSkMBy8JHdqICyNif8BbRJsPDK/8/IVAFV1V4X +pW8gQSj+6wlnGwV0NipdL6xLwpWW5JIMbwWU0vqlvMyAhPtWtV+Xn1bAkqUH +H7UySZhyUzry/bUCXrikY5m1jYTqqLAVoqMKuMzXN2vAjITYKw9ytCYV0Kmh +UI9hQcLqYde6QF4amj3852iRFQlr96XxDKvTMJ9HUS3SngSvwzNnuqNpeOiQ +XmW4Gwkql0zlx5Jp6GavVhq/k6Tid+72igwa/sv6yJfmTkLUn3XPTYtpODN0 +dvCSBwkXT3itqemm4eRgFSvJmwSPG2UlfX00TF+yxOGIDwmMx/NGP4ZpOO/y +rmvvHhI4Alnu2jM0FL1vNm+4l4Tu84+v3VBQxMbLU8jZR0LWHQmdlrWKeG24 +Pz85gAT3Xp/mYR1FBIG9ga6BJHyR/jMqZ6aIy0XizaeCSOAr2KCeGaKIX136 +2HPBJDArcu/GNirilEXNI/dDJGx99XRhsl0Rz/XqTY9TtuNZar77hSK6v/22 +8ngECb6OIa/hoyL6JI7xnz9Mglk0PS5+GYFaJy23Z0eS0CVcf32jAIGrLq/j +ETlKwvZil/YpIQJbR99eP0l515NUUR9pAhNY6R1Bx0gIU5y9vnk9gaXKRkVC +0STM3Mlo/6lNYGYuZ2kY5SiL9RNcfQL3Jzd4P6WcHO5tyNhEjfc+xZ94nASB +5b/d35gSeI+33vkV5Yy8i3GZ5gQ+jz96bV0MCXktne28DgRq1ietb6Os6OY3 +UetM4KimU6hQLAnF44uih9wJ9B+5RTpRrlxjsGvEl0BDcobZT1n/1rO4ywEE +hoeHJqyJI6F2U1DxjmAC7RqjO+0pt+67NtFyhECxA7v31VG2/GMsdjyawM2O +zfXjlJ9m9BjqxxOY0fNUSi6eBCeV0F3jSQQuptgcM6P8umZlfPFpAnUa+T6E +UPayKy72SCfwU9wDxwuURz9s6pDIIvBY2pbuKsqBka8nui8RGODlbd9HeXJV +hFjyFQIbVIcG/qN8qEDIiF1IYO6T1MOrE0iY1y/dNXODwIppXVklyrEdW+Jv +3yLw/ufCLkPKfF6DxX6VBP6uKTljTjnlv6MdCncJbF8r4uZMWeiU+GTvfQKH +i2/re1POkqsQS39A4Oqd9vQAytIcCyOzZgKTFB/Rgilf3Tqy6+8jAo+fHNEM +pcx4HRNf1UXg6afH7EMo3wyWvhHynEDtsV1JQZQ1ee90qPYS6BDj+cSXMplt +Ozn4mkDOgON6d8ob138RuzRIfa+g6DVbyg8aE43sRwj0aA1et4myqZOCx4ov +BLb5Qdd6yo+/VMc3jhN4aalnsiRlmxjHG5HTBAruyXf7S8XnhehEh/YsgSIT +b7eNUHYtOTX5+ReBLQ8nbdsoDzAZ4gWLBH67yQkvprznWb2R21I6Rkv94cZT +PjA/Hd8uSMev1VdSN1BmhvtLfhKj4+77X6x4KPOPvSnjk6bjzp6o0m5q/2+8 +benbxKBjwJUBi12UI5w2HvBYS0d7zdFUBcqmT8qXRGnQ8WFh4cEB6rwNNlzU +uGdIx8uT1drbKZcbCTS/MKEj9709/zLKUZxY1ymkI21c7nQVdZ4li/Ylrrem +Y4dF/ylhyvbJxv2Fu+n4MrcrN5fKF9rf28GNe+mYmfD5pR7l8SMMvneBdBTy +8mrsjKL2O2CVlnQEHY9P8FROUvnYZP3uRHoKNb9Om6gwla/prQ4y5WfpePSo +11w6ld8e7EcVHZl0dOrjXFpF+adW5eulV+mY9gMEf1P1QFcsQTuaS8ektWET +JFU/eFJnWnOq6Nhcpt8pTfkpX5B7VR0d36wy2x99kIT9M47J02107HuptmgY +TuVjv/LbfW/oaNkjmHEqhISDDrlhyUN07HrhyH1J1SvsFFx+fZSOn8LLC+Qp +v6ub3TA4Sce4lIzJ4v1UPK61n3TiY+Bw8njgOaoejkqx5Q/yM9AmrJDWTNVL +MoPLPSfIQA9pv7JpfypeiXkDnVIMnNym7GjuR8XD74DuZg0GPv5nYa6bqsc/ +14sMajoz8Kb+gRZTqp7PXpVN0HNn4MHR61ssqHr/Q1hF2Xg3A3u6prutqH4w ++d04aGsgAxUzmxfNXEj4UOc76x7DQK27f/jlHUnotK4WSrnBQGaqRLOxJXVe +Hzzknr1Fje8OChSh+k+rdrdTViUD+V+MaY5S/alB/H1efg0Du0YSxU9spdb/ +VmDtvScMfCI7FZEPVH3b7wUfZhhoeCyXa0P1v0vvAj58/sVAAamxthk9Ei7Y +H0qeWGSgiIzE6itUv0zXS+maX6mEPTv19Yap/pr4m+sqTFPC187Joubq1H6k +LgtjmSmh53VtowwaCayy8oLsbCVcmh2bIrOMhLdE2bVtl5Uw/MmN2BQ+6jxm +l+b/uKaE5SKJ62aWUP01oeSKY6kS9rY+L3z8lwu6bgU5QvVKqJYjx3KY58K6 +ZRcyTr5XwhpVdfH5Meo+szs6/oiGMu78tZ955SkX7vUci1PRUcZQX7W5Fur+ +4WR1NLbHQBnb3k6n/dvJhUyDw8d1QRnZ3tYWWo+5ILg69OikgzIKySXR8hu5 +sLRmT5h/pDJW/s/aVprDhWkxK2+XZmV0P980EnuOC/0HGM+DHlPzJe1zNjzL +haZHvyCuWxmPzSnt/3qGCxlRZYo3+5RRo/Nrit1JLmz4sHro55gyjsdq3J8/ +zoUQ7jPPq+IqGKuykjkYyIUxe+ddo3tV0EWwJGZ+MxdG07xdDq5QRSer5zua +vnLA8luk5UfDtVj/Xc9xoyEHxn35D92NU8MjYoTnOU4F9X8gxXuqeR2qsJMW +mnrLQeyJajrnmzpa1X1Oc+EtA/mUyu2GhhoYtJD9KGHuJuSsNxYR36eJNbyr +8q1W/g86ZTcbfD+vhX/SPubeVr0BTPnmDO0+bTxnHDxeonwdhPiKInwSN+CS +Cf35vh2FQEtQZO1U1cE2+Q+zJ0byYaWKR5XjYx10fDjkEud3GbTYMpWRnrrY +uH9vsKlbDhwcFGux4tHDiobXC1fMLsK372nOljl6OHCENa95IxPMtR/lWWrq +Y2hKS+crywxo+G7ye+6pPkZ4rvrp/yMVQjR03/zjZ4AGfuq7TkqlAHtyb8/O +lYYY98FMpWh3EmxTlrYVLDJEaZG0UHBIALX4M0ebjYzQ687NzANeMaDuZ9yo +8sYIx4tcGXP7joJfQ0DS3fCNGJtnamYXFAGNBT17p9cY42JpccO/1WHw4+bi +nHa1Mfr9dJhZYr8fPrmYFZyuMcY3BTuUJZn7oX/pWYuROmM8o6G3aKSyH+q8 +ZXOzm4wxaZvZ1eLfQZAobcBc6DBGQZZmPVEaBCIpQcc7B4yxULbpYv7yINDY +18vjx8vEr80+WQldAeCrUrYyz5aJ72tLZMKj/SGqzStIdTsT+ci8WXaAP2T4 +iXWRjkwUl1/zQ9rZH+pvHEvrcmXitNWqDT+1/EFC1UJ4wYeJkUnp7T4jfvBI +9aOE9xEmFmlPBXTb+YG6miKheo2JOz99d32mvRem1bMMySkmrn3YtqFHeg/0 +d+M28e9MTDpn3TO/cg80hUzuiJhhYowwSqj99oF00jLc8BcT76gqO5S88wF1 +Jk95LZ8J9pnIrKFf94E9lsH0FkkTlEtoihXY4AM9+8xX97BM0OuhgdgJB2+4 +X/z7/UyKCfIMRG1J8fUEwy0Rc1apJrg6ucQQrD3h3vvx1QVnTdDmuGjrCj1P +IGmDRlaZJigzPHHiCa8nlOc0nc2/bIJ5FoUR6tc9oCAt2di8wgR9F/2F6J93 +wekI4fM5L00wOpCZXxPtDu5bldCExsIGuaqYwF5XWOjhF2ohWJh+LHAuvtEV +Cvwm31opsfB05TnWrVJX+HSyJtJdjYWPa7R+6sS6wsEO+8pjuiycet81LqHm +CmfsjtPum7Hw8JJHbrQ4F6h16/2jH8qi+tM28wljZ5ALPlWj1cRCERE+2t8h +R0hf9DdIbWbheyueX57PHIE304z7uZWFZQUJg50NjjBWtay0oIOFaVJ5+V1X +HaGWJylH7CULMxWfCQR4OIL7hfjI2Y8sjPwQQFs24AA5dccMGlax8X32rN/F +0e2wRuAA19aVjalO1pCqawfFW2KipnaycTKYxq8kYQe6MelbsjzYuGxHIKtv +xhbspji9/T5s/Gw8m5leYwsn+2Z++h5g480dGWVbTW1hvijONCqBjcMPArbf +dbOBNyZZL0vK2DjQ1yYjlmsFAYeLr1hWsHFVTvGObzFWMFtxz2+cw0Z104ED +H/dYgRijf06nio1CQ38n5TStwJpfQf5BExtXVFiJcJotob6nZO/LXjbWS74b +8v3PAqyE7mse6WfjnpCan239FtBv3jEr/ZaNeGimARot4Eft1xSvYTbaLNfg +iUqzAM3CDbf/HWNjtV389hVqFlD/ZvORtAk2GlX8qFYWpuaT2AHaU2wkRTca +7Jw1B/9Th/+JmGHjoNbmtSvazOFH08k8qXlqvRe0IuPLzSHx1yXf2l/U99ow +s0QumIOIfqmG5wIb25TWBFZHm0N+cO3M4iIbz4VHf4rwNYf/A/JUB3Q= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06743566633430119}}, + "PlotRange" -> {{0, 30}, {0., 0.07228751058894461}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8036,9 +8024,8 @@ h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= InterpretationBox[{ TagBox[ TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ - 0.012833333333333334`], AbsoluteThickness[2], - PointBox[CompressedData[" + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl 8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ @@ -8061,7 +8048,7 @@ A4x/ Annotation[{ Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl @@ -8085,12 +8072,12 @@ A4x/ GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8109,12 +8096,12 @@ A4x/ GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8129,7 +8116,7 @@ A4x/ Annotation[{ Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl @@ -8152,12 +8139,12 @@ A4x/ "DefaultStyle" -> { Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8169,6 +8156,7 @@ A4x/ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8196,7 +8184,8 @@ A4x/ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06743566633430119}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07228751058894461}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8205,8 +8194,8 @@ A4x/ Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.993126808829454*^9, 3.99312776213076*^9, - 3.993129468229682*^9, 3.993130298140637*^9}, - CellLabel->"Out[98]=",ExpressionUUID->"5f95558d-8db7-48cc-944e-ccd23c0a8e7a"] + 3.993129468229682*^9, 3.993130298140637*^9, 3.9938270840085163`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"5576b544-f157-44b3-9869-9d34608f5035"] }, Open ]], Cell[CellGroupData[{ @@ -8217,12 +8206,12 @@ Cell[BoxData[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", CellChangeTimes->{3.9918492800964603`*^9}, - CellLabel->"In[99]:=",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], + CellLabel->"In[96]:=",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[BoxData["10.52905426969551`"], "Output", +Cell[BoxData["9.843667121295953`"], "Output", CellChangeTimes->{3.991334803166374*^9, 3.993126808848978*^9, - 3.993127762150346*^9, 3.9931302981640577`*^9}, - CellLabel->"Out[99]=",ExpressionUUID->"730c5742-c84b-426c-9800-dc5efcdf30a9"] + 3.993127762150346*^9, 3.9931302981640577`*^9, 3.993827084043172*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"842267c5-c648-4186-86ce-4bd58a9f89dd"] }, Open ]], Cell[CellGroupData[{ @@ -8279,169 +8268,180 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9918492818821335`*^9}, - CellLabel-> - "In[100]:=",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], + CellLabel->"In[97]:=",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.078211292794601`*^-261\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.5939240123856676`*^-257\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 100, 18, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", + 2, 97, 13, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.99133480336051*^9, 3.993126809017433*^9, - 3.993127762337482*^9, 3.993130298317121*^9}, + 3.993127762337482*^9, 3.993130298317121*^9, 3.9938270841313553`*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"976efa94-b5e2-4982-aa8f-60f62186578f"], +In[97]:=",ExpressionUUID->"a8847b6e-2dc5-41a1-9901-0cb2134fa653"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.255780481927353`*^-271\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.914144189436822`*^-267\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 100, 19, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +\"", 2, 97, 14, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.99133480336051*^9, 3.993126809017433*^9, - 3.993127762337482*^9, 3.9931302983204727`*^9}, + 3.993127762337482*^9, 3.993130298317121*^9, 3.993827084138598*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"13ef69c2-851a-4481-8d73-3e736103fb67"], +In[97]:=",ExpressionUUID->"d9ca93c1-16f2-4143-acce-91d5fa03fb8e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.1006629176126437`*^-280\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.5150542263574712`*^-276\\\", \ \\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 100, 20, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +\"", 2, 97, 15, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.99133480336051*^9, 3.993126809017433*^9, - 3.993127762337482*^9, 3.9931302983231363`*^9}, + 3.993127762337482*^9, 3.993130298317121*^9, 3.993827084144765*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"fd1971c8-bfb8-414c-9ddd-f261b1b86e83"], +In[97]:=",ExpressionUUID->"821410b6-f599-4938-b12f-111698996ded"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 100, 21, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 97, 16, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.99133480336051*^9, 3.993126809017433*^9, - 3.993127762337482*^9, 3.993130298325582*^9}, + 3.993127762337482*^9, 3.993130298317121*^9, 3.993827084150366*^9}, CellLabel-> "During evaluation of \ -In[100]:=",ExpressionUUID->"0f3f0242-2be6-4541-ae6c-7ee363959a05"], +In[97]:=",ExpressionUUID->"c8719088-d3df-4c23-b3b9-6e3f1ccdc11f"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vv8XAHBRaarIzLjPY8tMtsc5RcYjZMum0JBRVkZ2EUkoUkZCyXqe -m5QRQqTQkihR6lu+fY1UaMnv/v66r/frdef5nHM+59K8A218ODk4OMSXcXD8 -/zg/2tMplVZqIO4+9Vzoyk6DgUKh4zuGEqDh1NebjQI0QP7H3kJDWTBz9OOR -bAE1CNtz4yXXUAn4jYbfjRDYAZumBbN+viSh4NIbFSsBaxhrtgz8/rIdRBJX -Xujh9wJjqc9vZl8+A1O2UkkHXzD8fKl1/svLcaCf/r63fm08dBheK31a8g2K -UHtxdeE5EB1r+OituAiGfzqrXgxehM3+Hje4Dblwh58O7UpHMWSpGTdZ2q/C -Jdu+K9E3SmE4T7VtduN6fBtVcU9h2XVIK419zCm8CTuMOpMSDSpBMOd9anYB -HxLev8ZJjhoQ2nor6Uc5H7boWY7KrakBkfaTsW4sPmR3Cl7O46sB8S/yobId -fMgZx3T2kakB6d1Bnk0TfCgl4tZ207wG1Jcvar5X34xlYbfVJc/XgFWIwIdt -Dzcj/315xV2StXDKzszg2Tw/Oqslr1cVYIFIXb8I5zIBDLad2BoiwoIaPrsF -tbUCWPdAJbpOnAWDz9xZ5yQEsMq8gyUvywIp6xC6takAev+pc/+oxYJ2i6KV -Ty4KoJWKZ8R1JxYsGs/19+kL4kW7nbssclmQWR5ZuWgsiD2DadMCl6jrV3Kk -KFkLYoSwSetIIQt231+z44yPIHatkR10LWdBviFxc3eGIJoWHH6ufIsF2mie -+2hMEKPfPhgTfsaCYzpXPHoShJC/QEFh7Wo2MIt5vpunC2HW3mZL2jo20Lmj -U/rPC6FdjD7/9g1seDLgwH5+XQizHUdPWfGzQTloHddovxCuqL/H6U5jw0R5 -ePlXEWFcMPQ0H9Zmg+tmy6ktN4XRtMvD0MyHDepRTfGFzcKYcGax7JsfG9aM -ywnQuoSxu5dZmX+IDQ21XCAzLIzJB2wLRwPZIGDekKm6RN1PaV7OIJJ6frzU -9l3mIniTt/WzSwYbjGZ+RQa8F8ESLjV5vjo2HDfNUbg3KYIiaYkjxvVsqLmi -9IpvXgQPz444hd9hg5Cdp07Dqi042RlV3d/Mhsk79xe4lLdgvmxCr8N9NmQn -ZIZcjNiCmTGn+ftesGGcXyagc70oqg5LX7X9zgbBwFYxQUFRpGdYzRLzbNj9 -wKnvICGK1qeXbfpvgQ31kWmKG9RF0XzRvCv0NxtOj335vNdJFPOf9W7y4SRh -W0WT30yJKKof54is3EBCvL61l4i2GHLafJV/JUuCqXvhV62dYpjSOTfgKU8C -T9x/ifa7xbCPGf74vQIJlzuSyzM9xZCWqXJrVImEO8zG/1amiuGLADvb6+ok -fHGSDPs2LIYJl5luaQYk3I4M4t70QQxVMtN2vQQSTly+m6c8LYbVNq0nJXaQ -sO6tY9NBTnE8xEwWKDMkQdYvneOtgjg2VoTGJJmS4B46d7o3Shy7OP7+zrEm -QTp3p+jnZHEcb469V25DUvE7W82dKY5tY5mf62xJiPwj/2RnqTi2c6se6rIn -4XyiO39Drzhqzxurt+wlwbWssnxwUBx3yNDkbzqTQO/+ofX9rTjKzRullLqQ -wFqT7awyJ443Ul2So91I6D3XXVQmJoF/jYrPLvMiIfvmZrUOWQl8knTpwzBl -5xde7W/VJJDn49vrNd4kTAj9+bDFWAI5P7gnWOwngatYVSErQAL3PpjL8PQj -QbfmYt2JVgnclhTTNuJPgtHL/sXpBxIo4PLuRfAREiw5lpt4PJNAD9OG11wB -JOyzCRiGfyTwcXN0k3ggCcZRtNi4FQT+0IsfVQkm4dGG5qvaawi8G1R7uory -nlKHB194CLQhBxRljpLg0pe2yUuIQP9zA/Ybj5EQJDF/dcdWAq8pn7RsCyFh -7mbmg58qBLY/NmyRCqXiZ7p1ir2dwKC+KvmTlJODPTXpBgSuCz84D2EkrFn5 -2/nVTgLNrdX35lHOzD8fm2VC4L33OY1TlPM7Hj7gtCbQtpcv+mw4CRJOPlON -9gRyWVS/eU25dHJp0zFnAolXgygdQUItv4bL+30E+uW+4qmlvP3G49hLBwi8 -OKoZNUO50eBQqe0RAo09ZCcVj5PQ6Vc01RFGfa/F09FCymZ/dHijowhcU8vr -/Zxyf+aA5vY4AntUfkwujyTBTjrQZTKJwPP5JnHqlIcbVseVphIocaxb1IOy -u2VpqWsGgblzBh2nKH8YN+jZnE2gvkBYSDXlg+HDU725BD6N01B7Qnl6bQhv -8mUCxfOMf81QPlbMo8W4QuCR0GNP1kWR8GN7hctcGYFrJ07WyVA+0WMYV32D -wI6Q3dcYlLncR0t9agnca59ZYU055WtEj1gddX6ERLM3ZZ5TfNMv7hC4IrZ7 -LIhy9pYa3oy7BH5vdeCPpizEMtUybqfW0/CyWxLlAqP3Ln+7CPTu9GtIpUwf -jomrf0StR22qfDrl60eEygKeEDgg+bwmjbIS580emRcEts3wM1MokxcspkeH -CeTOlvoTT1l76wRv7iiBHIxn9yMo321N0LJ6T6Bd79dr/pR32om5ck8QGNXv -fNWNcvfE7bjWSQJVY8fumFPeHWNTFj5L4FS3w7+alJ9tmupRmScwDHI1JCg7 -lp+a/vSLQG35iMLllEd06XzFSwS+DHkq9YmKp/fjZi2n5TS8djeqp4uy/4/Z -uAfraaiyVj44hrJusK/AR14alo5kvN9DedXnV5VcQjTcudZsgaBc9rpj0IBO -Q3sjUe7bVD6E2Gn7u8rSMCr0wIoYyjv7qpZFKtIw1yqwAiiPtpxXvKVJQwcN -sU+NVL5Vaa1pf6ZHwzd5fxOOUY5knXD8gjTMtt3QI0dZoMQvYas5DWuNGE6p -VD5bJesMXfGgYXFBcAmdyn/xv9VHWvfTUGdVQG0bVT+TYXSuNwdpKJJQHehC -OeXAWmWhEBqmLZ3lOUXVX5v5m8SMFBoOpJp/rKfqNaPTWrjqDA27e9qrdSm7 -MrpqerJoGD/XrdZE1fdP5drh5QU0/JOoFkIGUf2cN14lik3DdfRyrkiqX3Ck -zXXm1dNwJKnyyXuqn/RzHXKub6KhrFbrPiblw3M2ybP3abi4693b9VT/KR2S -eu33ioYsxn9OAQdJOGp9MSh5jIZe+doRLQdIwIfrV179QMOhTFO/tZTfNM2r -jk5T7xtzseGSLxWPogcn7bjouNE5zfrCPqp+BBmiR1fRsXFZyKY+qh+SmWz2 -2fV0DHuyopKDslVC/shDQToqN8oEuXtS8fDx37ZDkY7venN8vrtS37d146iS -PR3/7mIKp1H9e75AJF7dmY517KcVOXYkfN8gLaXjQUdyxQujS1S/n/6mc8jo -IB2f7dMuKqL2h/GmffPOMXR86jHHnWxBwkPz2zwpZXSk3TjR2mFE5evde+wz -N+g4We6XXkjtN50qvXbZtXSE5sbwsJ0ktPC9yy9soOPKbFaNGFLv/3qN7K0+ -OgYGhN0z06P622F3GJ+j4+USnYvCaiTkvjkw/ukXHZWqV3/sUiEhx+pY8tQS -HcVX9vsEK1PrqZ7y6MdqSex1OsTVspWEhN9sxw3ikiiRffa1hgy1HmkrgvSN -JbHV2kTmiggJ+pVVxRcuSGLO0+mwwGUkvCYqi3ZdksSCFfHHx5fYEHmhovB7 -kSRanItRs/3Lhtvx5ZdtKiTxhpp0lxK1329zKs7jaZbEc5csr3RT84L8ipzM -k+8ksT5MTvjsJ2qe8YiKC1OUwqZhsdmQR2y4NXA8VlpNCgcv7e4r7mGDHTPi -xICGFP4aW5b4sJsNWRqh0dtACr0+58YKdrJh/brAiGlrKZzIqXiTS80vyxu8 -g3zDpVB/crmqejUbZnmZng7tUlheYrFnJJ0NQ/70J4e6pdAaLU3yTrOhresX -xPZKYTZ3zbh1ChsyIyslrg9KIadJ5rqWRDaojq8b+/lZCkN9NjtGUvNWAPux -WwGfNJrTWcJJ1Lz22cre5cN+aWRa3134CGz4kO7pcJRbBiu43P6Fzywwmwk3 -+0dTFu+P3dDo0GDB5L5Vx+pi5fAug3PbU3YN9X8gyHmqXR6Z2ivLl4aqgLdP -JoM1o4A7/4zeM+KuBNGU2j2amopospqIWff3OuRt1dnI56eEezdkEmKbrsFD -kR0a384p47Sd5GCKShnoirZnqgyqYHP9/C9P5avAw1US4pWgihlFi0nS7ldA -PF5Cf6+MGoZmCe349KMQVku71tt0q6GHDV1eLeoSKDOEa8PdtuGbhtwtb4/k -wdFR3g4mhzrKa6c2P3I5DzPf0u3N8tSxSLFRuqYhC0xUuvLNlLZjxh6DA2Fu -mdDyTe/3Qv92nFW7F+cinA4BittePfXRwE8C0QuCuinAmN4/sHe1JsqZXJQP -jE2CXVJCFutLNLEqQ2bRIyAe5OJOR7RraeGQhESbb3YMKPjotEq/0kI61w5B -y9wI8Gk5kFQXrI3ZSpkXzuaEQGvxwP5Zfh2cmC0NnRkJgu/XlxZUbuugr9se -37Czh+Gjg3FxaoMO/ljhvP1A5GEYWn7G9H2TDib2Tt3x8zkMTZ4iFy+06eCB -pciHZ/UOQ4KQhu5ijw56T87tSZw4BBtTDkU/HKHuLz/+d9boECj6veDw4dRF -0zR6fwv3QdgnXbk630IXs5KdZa7e9IXI++6HZPboYmv1mTsWxb6Q6cP7iLTR -xUqj1IiVZ3yhuex4+iNHXWQPWHmV+PrCZhnTDYteuvhf2fjXBBFf6JL5Z7Nn -mC7aY8Pyt0k+oCAnQcgU6eLZTKmxp/v2w6xCtib5RRe7X0p/GTH1hqFe3MX3 -TRdlxBrZH3S8oS1g2jZkTheDN53csqDgDRmkWbDmL1386xvyWG+9NyjoclQ1 -cunhptuTPEbPvMDb7AitQ0APz/dblTHdvWDAz2TdgL4emg2O+K084Ql3Sn+/ -m0vRQw1FOenxW26gaRiywEzTw28ZfDq+BW5w693kuuIzeuiRfm3xd5IbkOKj -WswsPbzcsTrQ1c4NqvLazhRe0sOr+9wez3xzheL0ZB2TGj10e/wgwlHTFVJD -NpzLe66HOQrZQ+PdzuBsJIl64vpYNBkc3bjFCRYHVvF0EPror5zUUbzCCYp9 -pl8zJfWRPy1zJm/GET6ebAh3ltPH3hsnulo6HOFoj1Xt8W36uHDQgBjzd4TT -ltHid4z10aEHRA60O0Cj04s/2wP1cUqrm9ss0h62HDnVoNymjwzPdNUHIraQ -seSrkdauj0O2rC9Lq22BM8uY/alTH42s9/Yb/bSBz/UrKop79HHNVE3r3Esb -aORIyuN9Tj3v3/jUb+dtwDknLnz+H32MttFDx802kNd0XKNlLQOv5QSYJIlY -A/8af7aFIwOnhO2t7c9bQqlhTOSXvQx8s8d4ojDMErbFZBhmuzLwfunxLcud -LMHyC+vFkBcDS12/LqNtsYSTg3M/9/kz0E/wa1xJiQX8KIndGRnPwK6rnYvs -+t3wSi/7eXklA+UfLcgf+8qEA6Gll81qGOiS2Ci/6iUT5mtu+UyyGBg1FqxV -38QEXvrQglo9A88ek1B2S2aC+Sox0bttDLR6cmf/gDATmgfK9z9/wUDemD9L -DiZmwOS5oxQ2xECzNu57x5TMYMikZ17oNQP57Kecr/OZwffG/1Lc3zJww9eC -Pqe3pqB0RbX6388MLB6MLxqINIXmVzvC0qcYKLfrl2CNlykwN9uCyhcG3h2W -f15oagq+p0Kfhswx0EEmsvu+gCl8bzuZL/iDgdXsgte/F00g4VfuvsZfDNzK -dWLC9B8T2Li9QtFtkYH+AQ2vq3pNoPBI49zSEgNVn/4ska0zgf8BtTMT+w== - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0ld0XB3DxSkrKPN8BqYQG073uvfZGSeZMIaHMDVRkakJCyGuqVKaQ +ksK9T2SqhLdoUCGkkmgUUsYUfs/vr2d91rPWWWeds/d3H/qeIDsffj4+PsYi +Pr7/f6f6WptVk4oMs8RDXjrabjHszJWNMOqJgfCpG6YqZ1UApZ7vke1Jh4fP +G/mnkrUh1PZGt0BPAUydOLeqK9kExEZl0n938+BbQrD5lWR7eF9vHTTR3Qj3 +qvdrjSd5ganq0Luf3e2gEmOYa3UmGH53658b6x6AL94D0HziFDSZXCt6WTAO +vT4na/6hZYLi+5rPezTmoK+37IlfaA5I7ve4IWQigIo17sIyYoWQvtG0ztpx +CR7v6vGY3HcNXmdtaPi5cjlGEeXS52VLIano5HN+OTHcFTu/QS6rDMx1AsSl +VMQwf/rFTFNRGSxptnNcrSmGheM/OL7cMogdXPXGwkgMO30j9NIel8Ex5aef +MwPE8Pwqj9yov2UQmC87r1YrhlN2p0ya3MthezZXw2KnOM6Pmxp5i1aATObg +mYwcCbzTauK76X4FyK6rjJ0plsBjgTUmUs0VIN8Yd3JXhQQ+efBHf6KlAihj +a4+sbpLAm7OX9xS3V8Aqy4OedV8lMLPxXMWbTxWg/c+c3qC2JFoyqqvOLOOC +TYj0x02PJdFk+eLJH/ZcsF32te9ChyQ6cgNvOjhzwa6g5vXft5I4H6W1r9KN +C04v3J4//CGJJ5LXzu314cIujcJaVykp5I+75F8cyoV9H9enxXhKYYBljah7 +FhfiHbYZtk9JoVL3vYNtPVyQv90mz79IGvMMY92E3nGhTMJheuMyaSx6eDuN +9YELXe3uFWlUabxz2aH73DcuqG4PUd5uJo2KjB8tYrNcaLTKW/ziojS2V7Fk +VsvzYM50su0ZWwYTbN7teOjEg9TiyNI5UxkMm5eR93flgepivgTN7TKIlNN0 +QXceWP631Oisjwzar5pa2ODDg0smNMIyRQaftOT+sQnmAQMtLjx5L4Nrpj5N +30jhQTDzikdrjCwqXT9e++oBD8zzRScskmWx4OIm3s1mHigLHUtoOyeLpzS/ +nD35iAcvOp24Hddlseul3C/ZZzzQOigi0Ncmi3p1UcHyPTz4WhxW/EteDrPv +Tp51HuGBm6T1iAIhh5wu6tImSQK0j9ZF59bLYagFY0FahoClA2uk6Q/l8JGo +9wdfOQJqygVA7bUcHlIJC5xVIkDaoiZ1w4IcvtP3qRpTI+BFtKrOFgt5TPC+ +5yzPIGDzj9nIwEF53G1+eanPDgIizDLVHwzLI9Vz3l7LhYCyK5q9ElPy+NlK +68G4KwGyDp7MmiUKGH70H+FgdwKGq/+bFtBSwHRjzi4THwIyYlJDLoYrYNfG +iLR1hwloebNWdThaAZ9SlzrfCSbgr05Th2GSAs5xdCzgCAG+XyY3fcxRwBk7 +bo1JOAEGljt/ajUp4IdoSgvlBAEDUmqBzcsVccuCii7lDAEyQfeVZGQUsXf/ +DdEDiQRYtjg/C6ApopdxC6U6iYCqyCSNFdqKKFZ4+JNxCgGJ78eGXJwVsX+r +O3VdBgGbSur8fhQo4p4dOv2m2QT48TvKGN9UxKBg2yMuOQRk7xx9mFmpiOvv +qFv65xKwWJSuZtCiiNYCyxoj8wnoPRz3MXZEEZca2w0eLiIgmr19tzxDCas1 +XIsrSgkwc8/9pW+shGFvfj+7eJMA0ajvpxwtlXDysVD2iVvk+k2ni1M9lfA3 +J2k9q5yAavPa74vPKCGcs9oexSPg5H6h46oZStjx7VCrKUGAaYqDqHGOEs7U +e48tuU1A58vRDce5SjjMx28TVUnAmLNK6PhrJdybGX2AVU3AnciDQmIflTB8 +TWjke9Insu9maY0q4Ydt04YnawgQ6d9RF8BPwfpiuXFuLQEdi65axotQ8PKt +Px831xFwSeXXuyJpCl7r+p7eQXq1XzJfvzoF8x7Fr/5YT8Bowuu0OR0KjhEn +V/reJeD2DTUVBaDgWmFK7SBp49GGLU72FDQsnbRvv0eA+5HJxKdHKdgqMtl4 +rIGAVReMFYdOU/Bs8ezLtw3/r59/bwmlUnDURL6U8YCAyL9rXxgXUZCecLRh +kLQRJWy3ZxkFdS+oL2xqJGAJNv86Xk1Bs/A2kROkz51yl6p5SkH+fX0XhZoI +cLtaWtzVRUHz6kYFU9LKj2b0J/opyLNMPhRF+tvXLa1i3ymYkxeZXUW6YmmG +6/pJCsYeb8v5SjpMo/+75QIFPyx+HCrdTIChtebxvcJU1CivWIOkBQ9GiiZI +ULGa9ei2D+mnaY/yripR8WqjvWI86QxCcmPTaip2l+R4FpF2fbW7sX8jFZ9d +HYm5S5o+XWY/z6JiWvXZ2HbSX2X/flQwpWLDhlbfQdLlBttCmbZUZF0fVh8j +Hep2XmiHKxVtBUzbZ0izTwxmhXhT8VCQqvscaYH8DerpgVRk7Ol5/n8/fnC8 +rjycikZZxJpZ0qmDjy2fxVBxlaTw3l+kdwjK9g0lU9FCSfPcZ9KU1T5BSy5Q +scfwSGkX6U9mPD61K1TMNWWUNZK+uXchzaSUiuMmbbk3SAcnW6rsrqRiflzq +iRTSBmUXb5+4T8WnOa+tA0lv7m6bG22horswK9eStDXfP1s92qnoJDXou5q0 +81pm6vM35H70R0vmyfP2sgt8DZ+oqNwR4d9OOvBooXLFKBWzWEWFBaTDi3r2 +0WaoqFiR7BZE2vQo/WSUIA3FXOQs58n7f7KivpCxlIb11/hON5C2LXJqGROl +oZeuBp4kvfNZkthuWRq+suo3+kXWU/9uNT05JRqqc4jEYtK+Uw2uL+k0FND2 +cN1B+iB1qtBoHQ2XfuxPLyPrc5JIbfm9noZlOkvmHUhHmq0b4erQcEll6cT0 +fQJOH/LUUzakYaiu5Blt0peaHrfwb6fhXbEdQdFkP1CdfUZqHWk4HLNlhwjp +ouEFsWBXGla20TozyH4ql9LdOehFQ16rb1oW2W/NfnkjTaE0LJx6x4og+3Xb +X6b4saM0HO3pHf5K9nNbaqeeThQNRT32sx1Jv64Rjio6Q8N4w431KnfI/lwW +In46m4ZFkjc9s8i8CM4X1edcoaEeH2/NCJknMzolOyevkvvpXnvRkLSAe1+R +TzkNN4QdCO/mkvleYaZv2kjD2hJv+w9lBORsHtw5/5CGPhGSMQqklV8fj6p6 +QkM7161edmSeafITrWqvaNg/bGVcReafsYOSm9BXGupol593uk7A/pmfUS3L +6VjMaKuZJfPT4JCv9GdxOn5akhT3PY/s56HeUgFZOh4xtkvsIfP26pumLkNl +Oh4Pq+VcI/O57945jUo9OtZcNzklk0WAzWlmzxUPOoabCQhtIfOdMn/rwH1v +Op7tt145m0zmSaiywLsAOvL/4dtfSs6DBP9lWrIh5H9GGl2AnB8NFu9OpSTQ +sVxsd1XcKXIeiEevP8ql41MDnlh/GAF8SZPNWVV0ZPzjL7kzlDxvgb2uVXV0 +XMd8fro9hIB9k3anf/5HRyOXwbqqQ+R99qi+8eul49f+0msO+8h5m9cS5yCg +jCzDB5JfdxHwe93KPk1HZbSrmFSLRAKmcuSjtV2VsfR9ZuW/hgRMrFilyvRQ +xvZvAyIFbPL+xpl7Nwco43bKHcW75HweqPOacj2ujKMFmeNPN5D9bXFHNOGq +Mh761CHuSCPrbZ87DEwqo62i3FuJOR5ceOc/8GVWGVcfXSv4cJYHmTbBp0cW +lNH6k9/GIzM8SNFOeDIjrIKiwYOXHo/zIOYPd8cKigou16N/3j7Eg31JggfZ +pioYdu7aos4uHrBLb+afP6+Ck/5iscQtHryhleZtuayCOZ7/NeiX8iDyfEnu +RJ4KUlQeZdVc58Gd6OJsuxIVjD0wTKsq5MEm5/ws0XoVHHy44276RR6sFcxM +jfuggklnnGLfxPJA2uNoVKiGKvZVZm6ucuHBT3FzT6dGVTSZGeL/9pcLH5M9 +nQ4LqaEWCSU5Lmz7Ebbtk95qZJX4fypeWwHDXkuCb59cg6t5X4fN6WXke1+G +P75xLcYnJbb3vi0F8WdqKRU/1NH99uMoCq8EFBPKbfX0NFB1udkDD6drkLWO +uVLCTxP/lh0eclO/Co/ljXTH07SQ/qD3g5NsIRgoNqau71qP2a3a04E/80FU +oCBkd8wGfHL+xkCKdC5QoqlsF7WNSAn9KpVieAmEV7lV2T3aiGXv5/bL/Hce +tDhy5WG7NmG2XFRha1sGHO4TbzLn08ZC8eobql9S4cd4suO2LG2cu6J57P14 +Mmxd//DSNk0dDExQe7ezKgHujbP+TLfpYFB/nVt6SSwEamzqfemji9MvbMds +3aOBM+rd6SKshwZ+Ltdupx2DLaqyVssL9FAnLskgpygM1kQlhjfq62OziO6A +amww1LOuCloa6OOxRu6BkuBgsJ2+n/6KrY/S8kcLmV7BEB44efOrkT4ads5P +HjMOhhY3zw+ilvpId9n2b8qiYPBn6pnv9NRHIrXLpSf6MJT8+qAwkaCPkxct +q98mHgJ1H+b9Vb36GN9mVHcvMgj+VbaePfVWH1936/IkdwfBxPs9ugN9+thg +UxF4bGsQ3HNNLs0d1MeaS9IS0ZJBYGf7/oLMiD4Kl2otdi8PhAjW6YPCfAzs +r7gc5f71ALSIvaSPrGLgq+15/zL99oPPPf/Y24cYOKzLfLDrfACMHhgK2xLC +QDMPh2SxkwEQrrR/X1coA616//7b7RcAiceC7GaOMvD2suuSl5gBUGEQSmPH +MdBBWaRv+p0//K06Vd90iYEf3dtfiqj7Q3p57kR7EwN5EXv5bJ/7wv38Tu+f +UkwkuDe5nyy8od+S7hEqy8Tsi98T1zG9ge/3AZc/8kx0+NjpHaXmDcbbhawF +aUwMWGk64bTIGx4uMtCXU2ei9sunR6rueMHTPXnCRoZM9NrTW6G32gt6VfeW +pfoy8eLZfN3ZlXtg4vrC9Po7TLTWEzRLWu4Jn51M88/UMDEn24CdPe8BPf+c +NRusY+LU/V/LGAMeUOcpf/F8AxM7Njx/xy3xgBhZXYO5ViZebbFuusn0gJUJ +e489fsvEjKMOAcQud9Dwe8Xnw2+AErbSk4WVbuC1qlT4kpUBTrW+mFYpcIHI +/9z3qtkaoGhjjNOLBBdI9RF/wrMzwKX+5S/Sg1yg/mpE8pMdBqgrtafbheMC +kmpmK+Z2G+DEFceg0dfO8FDtk6RnqAGqv9ozoiLjDOprqDS1PAP0ltn63e6K +E/xUz9DjjRmg+IaJykM/7aHnKW6RGDdAq0Wnhk712UND4Kh9yKQBxj8eUSp+ +Yg8pvG2H9GYNUK/ojr18sT2oG/DdrBVgoUad6N2GnfawZ9sBepM0CzmOcyV/ +Wu2g02+rSCebheJ+SvCWux2qi/58mExgYX1iQPxbFxvQMwmZNk9i4QWVn5kj +LBuo/DAskn+WhcccrECWYgM8Sp++eToLha+lUmsHrOFmVsPZ3Mss7Ds3JKB1 +wBryk08zt5axMPVF6LqHcVZwJmRFWlYHC+9tuZ3BeGoBrptVkEVho+fvXGfL +bDOY61wi2kRj4y+byi6NGDPI9xl9Y67CRuqBNQ5q/mbwOa4mzHUNG0d5/rNe +OmZwuNWmPGITGy8oUW8LtW2FROtjlGpTNo40fFz8XnAr1Dq/+qsTxEbnjicM +o/gtoHAgvkargY0SK+fV8p4aQ8qCr25SIxtdTvp1xtQYA3+6KfdLMxuXJQdR +w4uNYahKsCS/lY2hI+ccL0QZQy1fbJZ4B5t8n72pKtY1BtfMqLCpT2xsZEeu +nCswgqy6CN17yzh4SX6T7JpEBBFrF668KAf54h8Vq0YgRPUzNMNWcrCYvZGy +0R/BX3BGdYMUBxdFYEaEKYK+TahkAYWDJa6H1R8JIHQNHB4/vZGDVo/azmXw +A0gt3c+12sHBulUvRdeu4ECRyfHIMRcO0uq0ov1H2LDpeIpJhhsHe98333ry +hA3WYxWvenZzcGbvpoq/CWyI65r87bWfg+sXumsEBdkwU3DSODKagxIfbDdd +EGBBLyujo7iUg0YijiHdckzwP1KUva2Mg28Trwba/GXAVFmlz3AFB71DFq/5 +0scAceWe6Y1VHAwNEvY4UsQAiyVKincbyPV7mjOFNzKgvrPYu+MVB+UZ/crT +NvpgLlqtGdrDwTOBKRK7dPShZ2vrlOwbDv61ch7ql9WHidrvCe79HNzWyew2 +GtADzSsbbn0b4mD4M3qKT6ge1PcahSaPcPB57XTKnZ16YC5pD+vHOPhGmpGu +ZqQHvvFHXoZMcvAKvXP9ThE9mGiIuyQzw0H7F07ptF+6EDN7wat2loOv29Pi ++Xt0YaVOicauOQ46Bbwc57unC7kHaicXFjjIDgqvUyjShf8BVF7eyA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8455,125 +8455,133 @@ dWLC9B8T2Li9QtFtkYH+AQ2vq3pNoPBI49zSEgNVn/4ska0zgf8BtTMT+w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vv8XAHBRaarIzLjPY8tMtsc5RcYjZMum0JBRVkZ2EUkoUkZCyXqe -m5QRQqTQkihR6lu+fY1UaMnv/v66r/frdef5nHM+59K8A218ODk4OMSXcXD8 -/zg/2tMplVZqIO4+9Vzoyk6DgUKh4zuGEqDh1NebjQI0QP7H3kJDWTBz9OOR -bAE1CNtz4yXXUAn4jYbfjRDYAZumBbN+viSh4NIbFSsBaxhrtgz8/rIdRBJX -Xujh9wJjqc9vZl8+A1O2UkkHXzD8fKl1/svLcaCf/r63fm08dBheK31a8g2K -UHtxdeE5EB1r+OituAiGfzqrXgxehM3+Hje4Dblwh58O7UpHMWSpGTdZ2q/C -Jdu+K9E3SmE4T7VtduN6fBtVcU9h2XVIK419zCm8CTuMOpMSDSpBMOd9anYB -HxLev8ZJjhoQ2nor6Uc5H7boWY7KrakBkfaTsW4sPmR3Cl7O46sB8S/yobId -fMgZx3T2kakB6d1Bnk0TfCgl4tZ207wG1Jcvar5X34xlYbfVJc/XgFWIwIdt -Dzcj/315xV2StXDKzszg2Tw/Oqslr1cVYIFIXb8I5zIBDLad2BoiwoIaPrsF -tbUCWPdAJbpOnAWDz9xZ5yQEsMq8gyUvywIp6xC6takAev+pc/+oxYJ2i6KV -Ty4KoJWKZ8R1JxYsGs/19+kL4kW7nbssclmQWR5ZuWgsiD2DadMCl6jrV3Kk -KFkLYoSwSetIIQt231+z44yPIHatkR10LWdBviFxc3eGIJoWHH6ufIsF2mie -+2hMEKPfPhgTfsaCYzpXPHoShJC/QEFh7Wo2MIt5vpunC2HW3mZL2jo20Lmj -U/rPC6FdjD7/9g1seDLgwH5+XQizHUdPWfGzQTloHddovxCuqL/H6U5jw0R5 -ePlXEWFcMPQ0H9Zmg+tmy6ktN4XRtMvD0MyHDepRTfGFzcKYcGax7JsfG9aM -ywnQuoSxu5dZmX+IDQ21XCAzLIzJB2wLRwPZIGDekKm6RN1PaV7OIJJ6frzU -9l3mIniTt/WzSwYbjGZ+RQa8F8ESLjV5vjo2HDfNUbg3KYIiaYkjxvVsqLmi -9IpvXgQPz444hd9hg5Cdp07Dqi042RlV3d/Mhsk79xe4lLdgvmxCr8N9NmQn -ZIZcjNiCmTGn+ftesGGcXyagc70oqg5LX7X9zgbBwFYxQUFRpGdYzRLzbNj9 -wKnvICGK1qeXbfpvgQ31kWmKG9RF0XzRvCv0NxtOj335vNdJFPOf9W7y4SRh -W0WT30yJKKof54is3EBCvL61l4i2GHLafJV/JUuCqXvhV62dYpjSOTfgKU8C -T9x/ifa7xbCPGf74vQIJlzuSyzM9xZCWqXJrVImEO8zG/1amiuGLADvb6+ok -fHGSDPs2LIYJl5luaQYk3I4M4t70QQxVMtN2vQQSTly+m6c8LYbVNq0nJXaQ -sO6tY9NBTnE8xEwWKDMkQdYvneOtgjg2VoTGJJmS4B46d7o3Shy7OP7+zrEm -QTp3p+jnZHEcb469V25DUvE7W82dKY5tY5mf62xJiPwj/2RnqTi2c6se6rIn -4XyiO39Drzhqzxurt+wlwbWssnxwUBx3yNDkbzqTQO/+ofX9rTjKzRullLqQ -wFqT7awyJ443Ul2So91I6D3XXVQmJoF/jYrPLvMiIfvmZrUOWQl8knTpwzBl -5xde7W/VJJDn49vrNd4kTAj9+bDFWAI5P7gnWOwngatYVSErQAL3PpjL8PQj -QbfmYt2JVgnclhTTNuJPgtHL/sXpBxIo4PLuRfAREiw5lpt4PJNAD9OG11wB -JOyzCRiGfyTwcXN0k3ggCcZRtNi4FQT+0IsfVQkm4dGG5qvaawi8G1R7uory -nlKHB194CLQhBxRljpLg0pe2yUuIQP9zA/Ybj5EQJDF/dcdWAq8pn7RsCyFh -7mbmg58qBLY/NmyRCqXiZ7p1ir2dwKC+KvmTlJODPTXpBgSuCz84D2EkrFn5 -2/nVTgLNrdX35lHOzD8fm2VC4L33OY1TlPM7Hj7gtCbQtpcv+mw4CRJOPlON -9gRyWVS/eU25dHJp0zFnAolXgygdQUItv4bL+30E+uW+4qmlvP3G49hLBwi8 -OKoZNUO50eBQqe0RAo09ZCcVj5PQ6Vc01RFGfa/F09FCymZ/dHijowhcU8vr -/Zxyf+aA5vY4AntUfkwujyTBTjrQZTKJwPP5JnHqlIcbVseVphIocaxb1IOy -u2VpqWsGgblzBh2nKH8YN+jZnE2gvkBYSDXlg+HDU725BD6N01B7Qnl6bQhv -8mUCxfOMf81QPlbMo8W4QuCR0GNP1kWR8GN7hctcGYFrJ07WyVA+0WMYV32D -wI6Q3dcYlLncR0t9agnca59ZYU055WtEj1gddX6ERLM3ZZ5TfNMv7hC4IrZ7 -LIhy9pYa3oy7BH5vdeCPpizEMtUybqfW0/CyWxLlAqP3Ln+7CPTu9GtIpUwf -jomrf0StR22qfDrl60eEygKeEDgg+bwmjbIS580emRcEts3wM1MokxcspkeH -CeTOlvoTT1l76wRv7iiBHIxn9yMo321N0LJ6T6Bd79dr/pR32om5ck8QGNXv -fNWNcvfE7bjWSQJVY8fumFPeHWNTFj5L4FS3w7+alJ9tmupRmScwDHI1JCg7 -lp+a/vSLQG35iMLllEd06XzFSwS+DHkq9YmKp/fjZi2n5TS8djeqp4uy/4/Z -uAfraaiyVj44hrJusK/AR14alo5kvN9DedXnV5VcQjTcudZsgaBc9rpj0IBO -Q3sjUe7bVD6E2Gn7u8rSMCr0wIoYyjv7qpZFKtIw1yqwAiiPtpxXvKVJQwcN -sU+NVL5Vaa1pf6ZHwzd5fxOOUY5knXD8gjTMtt3QI0dZoMQvYas5DWuNGE6p -VD5bJesMXfGgYXFBcAmdyn/xv9VHWvfTUGdVQG0bVT+TYXSuNwdpKJJQHehC -OeXAWmWhEBqmLZ3lOUXVX5v5m8SMFBoOpJp/rKfqNaPTWrjqDA27e9qrdSm7 -MrpqerJoGD/XrdZE1fdP5drh5QU0/JOoFkIGUf2cN14lik3DdfRyrkiqX3Ck -zXXm1dNwJKnyyXuqn/RzHXKub6KhrFbrPiblw3M2ybP3abi4693b9VT/KR2S -eu33ioYsxn9OAQdJOGp9MSh5jIZe+doRLQdIwIfrV179QMOhTFO/tZTfNM2r -jk5T7xtzseGSLxWPogcn7bjouNE5zfrCPqp+BBmiR1fRsXFZyKY+qh+SmWz2 -2fV0DHuyopKDslVC/shDQToqN8oEuXtS8fDx37ZDkY7venN8vrtS37d146iS -PR3/7mIKp1H9e75AJF7dmY517KcVOXYkfN8gLaXjQUdyxQujS1S/n/6mc8jo -IB2f7dMuKqL2h/GmffPOMXR86jHHnWxBwkPz2zwpZXSk3TjR2mFE5evde+wz -N+g4We6XXkjtN50qvXbZtXSE5sbwsJ0ktPC9yy9soOPKbFaNGFLv/3qN7K0+ -OgYGhN0z06P622F3GJ+j4+USnYvCaiTkvjkw/ukXHZWqV3/sUiEhx+pY8tQS -HcVX9vsEK1PrqZ7y6MdqSex1OsTVspWEhN9sxw3ikiiRffa1hgy1HmkrgvSN -JbHV2kTmiggJ+pVVxRcuSGLO0+mwwGUkvCYqi3ZdksSCFfHHx5fYEHmhovB7 -kSRanItRs/3Lhtvx5ZdtKiTxhpp0lxK1329zKs7jaZbEc5csr3RT84L8ipzM -k+8ksT5MTvjsJ2qe8YiKC1OUwqZhsdmQR2y4NXA8VlpNCgcv7e4r7mGDHTPi -xICGFP4aW5b4sJsNWRqh0dtACr0+58YKdrJh/brAiGlrKZzIqXiTS80vyxu8 -g3zDpVB/crmqejUbZnmZng7tUlheYrFnJJ0NQ/70J4e6pdAaLU3yTrOhresX -xPZKYTZ3zbh1ChsyIyslrg9KIadJ5rqWRDaojq8b+/lZCkN9NjtGUvNWAPux -WwGfNJrTWcJJ1Lz22cre5cN+aWRa3134CGz4kO7pcJRbBiu43P6Fzywwmwk3 -+0dTFu+P3dDo0GDB5L5Vx+pi5fAug3PbU3YN9X8gyHmqXR6Z2ivLl4aqgLdP -JoM1o4A7/4zeM+KuBNGU2j2amopospqIWff3OuRt1dnI56eEezdkEmKbrsFD -kR0a384p47Sd5GCKShnoirZnqgyqYHP9/C9P5avAw1US4pWgihlFi0nS7ldA -PF5Cf6+MGoZmCe349KMQVku71tt0q6GHDV1eLeoSKDOEa8PdtuGbhtwtb4/k -wdFR3g4mhzrKa6c2P3I5DzPf0u3N8tSxSLFRuqYhC0xUuvLNlLZjxh6DA2Fu -mdDyTe/3Qv92nFW7F+cinA4BittePfXRwE8C0QuCuinAmN4/sHe1JsqZXJQP -jE2CXVJCFutLNLEqQ2bRIyAe5OJOR7RraeGQhESbb3YMKPjotEq/0kI61w5B -y9wI8Gk5kFQXrI3ZSpkXzuaEQGvxwP5Zfh2cmC0NnRkJgu/XlxZUbuugr9se -37Czh+Gjg3FxaoMO/ljhvP1A5GEYWn7G9H2TDib2Tt3x8zkMTZ4iFy+06eCB -pciHZ/UOQ4KQhu5ijw56T87tSZw4BBtTDkU/HKHuLz/+d9boECj6veDw4dRF -0zR6fwv3QdgnXbk630IXs5KdZa7e9IXI++6HZPboYmv1mTsWxb6Q6cP7iLTR -xUqj1IiVZ3yhuex4+iNHXWQPWHmV+PrCZhnTDYteuvhf2fjXBBFf6JL5Z7Nn -mC7aY8Pyt0k+oCAnQcgU6eLZTKmxp/v2w6xCtib5RRe7X0p/GTH1hqFe3MX3 -TRdlxBrZH3S8oS1g2jZkTheDN53csqDgDRmkWbDmL1386xvyWG+9NyjoclQ1 -cunhptuTPEbPvMDb7AitQ0APz/dblTHdvWDAz2TdgL4emg2O+K084Ql3Sn+/ -m0vRQw1FOenxW26gaRiywEzTw28ZfDq+BW5w693kuuIzeuiRfm3xd5IbkOKj -WswsPbzcsTrQ1c4NqvLazhRe0sOr+9wez3xzheL0ZB2TGj10e/wgwlHTFVJD -NpzLe66HOQrZQ+PdzuBsJIl64vpYNBkc3bjFCRYHVvF0EPror5zUUbzCCYp9 -pl8zJfWRPy1zJm/GET6ebAh3ltPH3hsnulo6HOFoj1Xt8W36uHDQgBjzd4TT -ltHid4z10aEHRA60O0Cj04s/2wP1cUqrm9ss0h62HDnVoNymjwzPdNUHIraQ -seSrkdauj0O2rC9Lq22BM8uY/alTH42s9/Yb/bSBz/UrKop79HHNVE3r3Esb -aORIyuN9Tj3v3/jUb+dtwDknLnz+H32MttFDx802kNd0XKNlLQOv5QSYJIlY -A/8af7aFIwOnhO2t7c9bQqlhTOSXvQx8s8d4ojDMErbFZBhmuzLwfunxLcud -LMHyC+vFkBcDS12/LqNtsYSTg3M/9/kz0E/wa1xJiQX8KIndGRnPwK6rnYvs -+t3wSi/7eXklA+UfLcgf+8qEA6Gll81qGOiS2Ci/6iUT5mtu+UyyGBg1FqxV -38QEXvrQglo9A88ek1B2S2aC+Sox0bttDLR6cmf/gDATmgfK9z9/wUDemD9L -DiZmwOS5oxQ2xECzNu57x5TMYMikZ17oNQP57Kecr/OZwffG/1Lc3zJww9eC -Pqe3pqB0RbX6388MLB6MLxqINIXmVzvC0qcYKLfrl2CNlykwN9uCyhcG3h2W -f15oagq+p0Kfhswx0EEmsvu+gCl8bzuZL/iDgdXsgte/F00g4VfuvsZfDNzK -dWLC9B8T2Li9QtFtkYH+AQ2vq3pNoPBI49zSEgNVn/4ska0zgf8BtTMT+w== - +1:eJwV1nk0ld0XB3DxSkrKPN8BqYQG073uvfZGSeZMIaHMDVRkakJCyGuqVKaQ +ksK9T2SqhLdoUCGkkmgUUsYUfs/vr2d91rPWWWeds/d3H/qeIDsffj4+PsYi +Pr7/f6f6WptVk4oMs8RDXjrabjHszJWNMOqJgfCpG6YqZ1UApZ7vke1Jh4fP +G/mnkrUh1PZGt0BPAUydOLeqK9kExEZl0n938+BbQrD5lWR7eF9vHTTR3Qj3 +qvdrjSd5ganq0Luf3e2gEmOYa3UmGH53658b6x6AL94D0HziFDSZXCt6WTAO +vT4na/6hZYLi+5rPezTmoK+37IlfaA5I7ve4IWQigIo17sIyYoWQvtG0ztpx +CR7v6vGY3HcNXmdtaPi5cjlGEeXS52VLIano5HN+OTHcFTu/QS6rDMx1AsSl +VMQwf/rFTFNRGSxptnNcrSmGheM/OL7cMogdXPXGwkgMO30j9NIel8Ex5aef +MwPE8Pwqj9yov2UQmC87r1YrhlN2p0ya3MthezZXw2KnOM6Pmxp5i1aATObg +mYwcCbzTauK76X4FyK6rjJ0plsBjgTUmUs0VIN8Yd3JXhQQ+efBHf6KlAihj +a4+sbpLAm7OX9xS3V8Aqy4OedV8lMLPxXMWbTxWg/c+c3qC2JFoyqqvOLOOC +TYj0x02PJdFk+eLJH/ZcsF32te9ChyQ6cgNvOjhzwa6g5vXft5I4H6W1r9KN +C04v3J4//CGJJ5LXzu314cIujcJaVykp5I+75F8cyoV9H9enxXhKYYBljah7 +FhfiHbYZtk9JoVL3vYNtPVyQv90mz79IGvMMY92E3nGhTMJheuMyaSx6eDuN +9YELXe3uFWlUabxz2aH73DcuqG4PUd5uJo2KjB8tYrNcaLTKW/ziojS2V7Fk +VsvzYM50su0ZWwYTbN7teOjEg9TiyNI5UxkMm5eR93flgepivgTN7TKIlNN0 +QXceWP631Oisjwzar5pa2ODDg0smNMIyRQaftOT+sQnmAQMtLjx5L4Nrpj5N +30jhQTDzikdrjCwqXT9e++oBD8zzRScskmWx4OIm3s1mHigLHUtoOyeLpzS/ +nD35iAcvOp24Hddlseul3C/ZZzzQOigi0Ncmi3p1UcHyPTz4WhxW/EteDrPv +Tp51HuGBm6T1iAIhh5wu6tImSQK0j9ZF59bLYagFY0FahoClA2uk6Q/l8JGo +9wdfOQJqygVA7bUcHlIJC5xVIkDaoiZ1w4IcvtP3qRpTI+BFtKrOFgt5TPC+ +5yzPIGDzj9nIwEF53G1+eanPDgIizDLVHwzLI9Vz3l7LhYCyK5q9ElPy+NlK +68G4KwGyDp7MmiUKGH70H+FgdwKGq/+bFtBSwHRjzi4THwIyYlJDLoYrYNfG +iLR1hwloebNWdThaAZ9SlzrfCSbgr05Th2GSAs5xdCzgCAG+XyY3fcxRwBk7 +bo1JOAEGljt/ajUp4IdoSgvlBAEDUmqBzcsVccuCii7lDAEyQfeVZGQUsXf/ +DdEDiQRYtjg/C6ApopdxC6U6iYCqyCSNFdqKKFZ4+JNxCgGJ78eGXJwVsX+r +O3VdBgGbSur8fhQo4p4dOv2m2QT48TvKGN9UxKBg2yMuOQRk7xx9mFmpiOvv +qFv65xKwWJSuZtCiiNYCyxoj8wnoPRz3MXZEEZca2w0eLiIgmr19tzxDCas1 +XIsrSgkwc8/9pW+shGFvfj+7eJMA0ajvpxwtlXDysVD2iVvk+k2ni1M9lfA3 +J2k9q5yAavPa74vPKCGcs9oexSPg5H6h46oZStjx7VCrKUGAaYqDqHGOEs7U +e48tuU1A58vRDce5SjjMx28TVUnAmLNK6PhrJdybGX2AVU3AnciDQmIflTB8 +TWjke9Insu9maY0q4Ydt04YnawgQ6d9RF8BPwfpiuXFuLQEdi65axotQ8PKt +Px831xFwSeXXuyJpCl7r+p7eQXq1XzJfvzoF8x7Fr/5YT8Bowuu0OR0KjhEn +V/reJeD2DTUVBaDgWmFK7SBp49GGLU72FDQsnbRvv0eA+5HJxKdHKdgqMtl4 +rIGAVReMFYdOU/Bs8ezLtw3/r59/bwmlUnDURL6U8YCAyL9rXxgXUZCecLRh +kLQRJWy3ZxkFdS+oL2xqJGAJNv86Xk1Bs/A2kROkz51yl6p5SkH+fX0XhZoI +cLtaWtzVRUHz6kYFU9LKj2b0J/opyLNMPhRF+tvXLa1i3ymYkxeZXUW6YmmG +6/pJCsYeb8v5SjpMo/+75QIFPyx+HCrdTIChtebxvcJU1CivWIOkBQ9GiiZI +ULGa9ei2D+mnaY/yripR8WqjvWI86QxCcmPTaip2l+R4FpF2fbW7sX8jFZ9d +HYm5S5o+XWY/z6JiWvXZ2HbSX2X/flQwpWLDhlbfQdLlBttCmbZUZF0fVh8j +Hep2XmiHKxVtBUzbZ0izTwxmhXhT8VCQqvscaYH8DerpgVRk7Ol5/n8/fnC8 +rjycikZZxJpZ0qmDjy2fxVBxlaTw3l+kdwjK9g0lU9FCSfPcZ9KU1T5BSy5Q +scfwSGkX6U9mPD61K1TMNWWUNZK+uXchzaSUiuMmbbk3SAcnW6rsrqRiflzq +iRTSBmUXb5+4T8WnOa+tA0lv7m6bG22horswK9eStDXfP1s92qnoJDXou5q0 +81pm6vM35H70R0vmyfP2sgt8DZ+oqNwR4d9OOvBooXLFKBWzWEWFBaTDi3r2 +0WaoqFiR7BZE2vQo/WSUIA3FXOQs58n7f7KivpCxlIb11/hON5C2LXJqGROl +oZeuBp4kvfNZkthuWRq+suo3+kXWU/9uNT05JRqqc4jEYtK+Uw2uL+k0FND2 +cN1B+iB1qtBoHQ2XfuxPLyPrc5JIbfm9noZlOkvmHUhHmq0b4erQcEll6cT0 +fQJOH/LUUzakYaiu5Blt0peaHrfwb6fhXbEdQdFkP1CdfUZqHWk4HLNlhwjp +ouEFsWBXGla20TozyH4ql9LdOehFQ16rb1oW2W/NfnkjTaE0LJx6x4og+3Xb +X6b4saM0HO3pHf5K9nNbaqeeThQNRT32sx1Jv64Rjio6Q8N4w431KnfI/lwW +In46m4ZFkjc9s8i8CM4X1edcoaEeH2/NCJknMzolOyevkvvpXnvRkLSAe1+R +TzkNN4QdCO/mkvleYaZv2kjD2hJv+w9lBORsHtw5/5CGPhGSMQqklV8fj6p6 +QkM7161edmSeafITrWqvaNg/bGVcReafsYOSm9BXGupol593uk7A/pmfUS3L +6VjMaKuZJfPT4JCv9GdxOn5akhT3PY/s56HeUgFZOh4xtkvsIfP26pumLkNl +Oh4Pq+VcI/O57945jUo9OtZcNzklk0WAzWlmzxUPOoabCQhtIfOdMn/rwH1v +Op7tt145m0zmSaiywLsAOvL/4dtfSs6DBP9lWrIh5H9GGl2AnB8NFu9OpSTQ +sVxsd1XcKXIeiEevP8ql41MDnlh/GAF8SZPNWVV0ZPzjL7kzlDxvgb2uVXV0 +XMd8fro9hIB9k3anf/5HRyOXwbqqQ+R99qi+8eul49f+0msO+8h5m9cS5yCg +jCzDB5JfdxHwe93KPk1HZbSrmFSLRAKmcuSjtV2VsfR9ZuW/hgRMrFilyvRQ +xvZvAyIFbPL+xpl7Nwco43bKHcW75HweqPOacj2ujKMFmeNPN5D9bXFHNOGq +Mh761CHuSCPrbZ87DEwqo62i3FuJOR5ceOc/8GVWGVcfXSv4cJYHmTbBp0cW +lNH6k9/GIzM8SNFOeDIjrIKiwYOXHo/zIOYPd8cKigou16N/3j7Eg31JggfZ +pioYdu7aos4uHrBLb+afP6+Ck/5iscQtHryhleZtuayCOZ7/NeiX8iDyfEnu +RJ4KUlQeZdVc58Gd6OJsuxIVjD0wTKsq5MEm5/ws0XoVHHy44276RR6sFcxM +jfuggklnnGLfxPJA2uNoVKiGKvZVZm6ucuHBT3FzT6dGVTSZGeL/9pcLH5M9 +nQ4LqaEWCSU5Lmz7Ebbtk95qZJX4fypeWwHDXkuCb59cg6t5X4fN6WXke1+G +P75xLcYnJbb3vi0F8WdqKRU/1NH99uMoCq8EFBPKbfX0NFB1udkDD6drkLWO +uVLCTxP/lh0eclO/Co/ljXTH07SQ/qD3g5NsIRgoNqau71qP2a3a04E/80FU +oCBkd8wGfHL+xkCKdC5QoqlsF7WNSAn9KpVieAmEV7lV2T3aiGXv5/bL/Hce +tDhy5WG7NmG2XFRha1sGHO4TbzLn08ZC8eobql9S4cd4suO2LG2cu6J57P14 +Mmxd//DSNk0dDExQe7ezKgHujbP+TLfpYFB/nVt6SSwEamzqfemji9MvbMds +3aOBM+rd6SKshwZ+Ltdupx2DLaqyVssL9FAnLskgpygM1kQlhjfq62OziO6A +amww1LOuCloa6OOxRu6BkuBgsJ2+n/6KrY/S8kcLmV7BEB44efOrkT4ads5P +HjMOhhY3zw+ilvpId9n2b8qiYPBn6pnv9NRHIrXLpSf6MJT8+qAwkaCPkxct +q98mHgJ1H+b9Vb36GN9mVHcvMgj+VbaePfVWH1936/IkdwfBxPs9ugN9+thg +UxF4bGsQ3HNNLs0d1MeaS9IS0ZJBYGf7/oLMiD4Kl2otdi8PhAjW6YPCfAzs +r7gc5f71ALSIvaSPrGLgq+15/zL99oPPPf/Y24cYOKzLfLDrfACMHhgK2xLC +QDMPh2SxkwEQrrR/X1coA616//7b7RcAiceC7GaOMvD2suuSl5gBUGEQSmPH +MdBBWaRv+p0//K06Vd90iYEf3dtfiqj7Q3p57kR7EwN5EXv5bJ/7wv38Tu+f +UkwkuDe5nyy8od+S7hEqy8Tsi98T1zG9ge/3AZc/8kx0+NjpHaXmDcbbhawF +aUwMWGk64bTIGx4uMtCXU2ei9sunR6rueMHTPXnCRoZM9NrTW6G32gt6VfeW +pfoy8eLZfN3ZlXtg4vrC9Po7TLTWEzRLWu4Jn51M88/UMDEn24CdPe8BPf+c +NRusY+LU/V/LGAMeUOcpf/F8AxM7Njx/xy3xgBhZXYO5ViZebbFuusn0gJUJ +e489fsvEjKMOAcQud9Dwe8Xnw2+AErbSk4WVbuC1qlT4kpUBTrW+mFYpcIHI +/9z3qtkaoGhjjNOLBBdI9RF/wrMzwKX+5S/Sg1yg/mpE8pMdBqgrtafbheMC +kmpmK+Z2G+DEFceg0dfO8FDtk6RnqAGqv9ozoiLjDOprqDS1PAP0ltn63e6K +E/xUz9DjjRmg+IaJykM/7aHnKW6RGDdAq0Wnhk712UND4Kh9yKQBxj8eUSp+ +Yg8pvG2H9GYNUK/ojr18sT2oG/DdrBVgoUad6N2GnfawZ9sBepM0CzmOcyV/ +Wu2g02+rSCebheJ+SvCWux2qi/58mExgYX1iQPxbFxvQMwmZNk9i4QWVn5kj +LBuo/DAskn+WhcccrECWYgM8Sp++eToLha+lUmsHrOFmVsPZ3Mss7Ds3JKB1 +wBryk08zt5axMPVF6LqHcVZwJmRFWlYHC+9tuZ3BeGoBrptVkEVho+fvXGfL +bDOY61wi2kRj4y+byi6NGDPI9xl9Y67CRuqBNQ5q/mbwOa4mzHUNG0d5/rNe +OmZwuNWmPGITGy8oUW8LtW2FROtjlGpTNo40fFz8XnAr1Dq/+qsTxEbnjicM +o/gtoHAgvkargY0SK+fV8p4aQ8qCr25SIxtdTvp1xtQYA3+6KfdLMxuXJQdR +w4uNYahKsCS/lY2hI+ccL0QZQy1fbJZ4B5t8n72pKtY1BtfMqLCpT2xsZEeu +nCswgqy6CN17yzh4SX6T7JpEBBFrF668KAf54h8Vq0YgRPUzNMNWcrCYvZGy +0R/BX3BGdYMUBxdFYEaEKYK+TahkAYWDJa6H1R8JIHQNHB4/vZGDVo/azmXw +A0gt3c+12sHBulUvRdeu4ECRyfHIMRcO0uq0ov1H2LDpeIpJhhsHe98333ry +hA3WYxWvenZzcGbvpoq/CWyI65r87bWfg+sXumsEBdkwU3DSODKagxIfbDdd +EGBBLyujo7iUg0YijiHdckzwP1KUva2Mg28Trwba/GXAVFmlz3AFB71DFq/5 +0scAceWe6Y1VHAwNEvY4UsQAiyVKincbyPV7mjOFNzKgvrPYu+MVB+UZ/crT +NvpgLlqtGdrDwTOBKRK7dPShZ2vrlOwbDv61ch7ql9WHidrvCe79HNzWyew2 +GtADzSsbbn0b4mD4M3qKT6ge1PcahSaPcPB57XTKnZ16YC5pD+vHOPhGmpGu +ZqQHvvFHXoZMcvAKvXP9ThE9mGiIuyQzw0H7F07ptF+6EDN7wat2loOv29Pi ++Xt0YaVOicauOQ46Bbwc57unC7kHaicXFjjIDgqvUyjShf8BVF7eyA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07219768537623762}}, + "PlotRange" -> {{0, 30}, {0., 0.07722460102412121}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8585,19 +8593,19 @@ dWLC9B8T2Li9QtFtkYH+AQ2vq3pNoPBI49zSEgNVn/4ska0zgf8BtTMT+w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07219768537623762}}, + "PlotRange" -> {{0, 30}, {0., 0.07722460102412121}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8611,124 +8619,132 @@ dWLC9B8T2Li9QtFtkYH+AQ2vq3pNoPBI49zSEgNVn/4ska0zgf8BtTMT+w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vv8XAHBRaarIzLjPY8tMtsc5RcYjZMum0JBRVkZ2EUkoUkZCyXqe -m5QRQqTQkihR6lu+fY1UaMnv/v66r/frdef5nHM+59K8A218ODk4OMSXcXD8 -/zg/2tMplVZqIO4+9Vzoyk6DgUKh4zuGEqDh1NebjQI0QP7H3kJDWTBz9OOR -bAE1CNtz4yXXUAn4jYbfjRDYAZumBbN+viSh4NIbFSsBaxhrtgz8/rIdRBJX -Xujh9wJjqc9vZl8+A1O2UkkHXzD8fKl1/svLcaCf/r63fm08dBheK31a8g2K -UHtxdeE5EB1r+OituAiGfzqrXgxehM3+Hje4Dblwh58O7UpHMWSpGTdZ2q/C -Jdu+K9E3SmE4T7VtduN6fBtVcU9h2XVIK419zCm8CTuMOpMSDSpBMOd9anYB -HxLev8ZJjhoQ2nor6Uc5H7boWY7KrakBkfaTsW4sPmR3Cl7O46sB8S/yobId -fMgZx3T2kakB6d1Bnk0TfCgl4tZ207wG1Jcvar5X34xlYbfVJc/XgFWIwIdt -Dzcj/315xV2StXDKzszg2Tw/Oqslr1cVYIFIXb8I5zIBDLad2BoiwoIaPrsF -tbUCWPdAJbpOnAWDz9xZ5yQEsMq8gyUvywIp6xC6takAev+pc/+oxYJ2i6KV -Ty4KoJWKZ8R1JxYsGs/19+kL4kW7nbssclmQWR5ZuWgsiD2DadMCl6jrV3Kk -KFkLYoSwSetIIQt231+z44yPIHatkR10LWdBviFxc3eGIJoWHH6ufIsF2mie -+2hMEKPfPhgTfsaCYzpXPHoShJC/QEFh7Wo2MIt5vpunC2HW3mZL2jo20Lmj -U/rPC6FdjD7/9g1seDLgwH5+XQizHUdPWfGzQTloHddovxCuqL/H6U5jw0R5 -ePlXEWFcMPQ0H9Zmg+tmy6ktN4XRtMvD0MyHDepRTfGFzcKYcGax7JsfG9aM -ywnQuoSxu5dZmX+IDQ21XCAzLIzJB2wLRwPZIGDekKm6RN1PaV7OIJJ6frzU -9l3mIniTt/WzSwYbjGZ+RQa8F8ESLjV5vjo2HDfNUbg3KYIiaYkjxvVsqLmi -9IpvXgQPz444hd9hg5Cdp07Dqi042RlV3d/Mhsk79xe4lLdgvmxCr8N9NmQn -ZIZcjNiCmTGn+ftesGGcXyagc70oqg5LX7X9zgbBwFYxQUFRpGdYzRLzbNj9 -wKnvICGK1qeXbfpvgQ31kWmKG9RF0XzRvCv0NxtOj335vNdJFPOf9W7y4SRh -W0WT30yJKKof54is3EBCvL61l4i2GHLafJV/JUuCqXvhV62dYpjSOTfgKU8C -T9x/ifa7xbCPGf74vQIJlzuSyzM9xZCWqXJrVImEO8zG/1amiuGLADvb6+ok -fHGSDPs2LIYJl5luaQYk3I4M4t70QQxVMtN2vQQSTly+m6c8LYbVNq0nJXaQ -sO6tY9NBTnE8xEwWKDMkQdYvneOtgjg2VoTGJJmS4B46d7o3Shy7OP7+zrEm -QTp3p+jnZHEcb469V25DUvE7W82dKY5tY5mf62xJiPwj/2RnqTi2c6se6rIn -4XyiO39Drzhqzxurt+wlwbWssnxwUBx3yNDkbzqTQO/+ofX9rTjKzRullLqQ -wFqT7awyJ443Ul2So91I6D3XXVQmJoF/jYrPLvMiIfvmZrUOWQl8knTpwzBl -5xde7W/VJJDn49vrNd4kTAj9+bDFWAI5P7gnWOwngatYVSErQAL3PpjL8PQj -QbfmYt2JVgnclhTTNuJPgtHL/sXpBxIo4PLuRfAREiw5lpt4PJNAD9OG11wB -JOyzCRiGfyTwcXN0k3ggCcZRtNi4FQT+0IsfVQkm4dGG5qvaawi8G1R7uory -nlKHB194CLQhBxRljpLg0pe2yUuIQP9zA/Ybj5EQJDF/dcdWAq8pn7RsCyFh -7mbmg58qBLY/NmyRCqXiZ7p1ir2dwKC+KvmTlJODPTXpBgSuCz84D2EkrFn5 -2/nVTgLNrdX35lHOzD8fm2VC4L33OY1TlPM7Hj7gtCbQtpcv+mw4CRJOPlON -9gRyWVS/eU25dHJp0zFnAolXgygdQUItv4bL+30E+uW+4qmlvP3G49hLBwi8 -OKoZNUO50eBQqe0RAo09ZCcVj5PQ6Vc01RFGfa/F09FCymZ/dHijowhcU8vr -/Zxyf+aA5vY4AntUfkwujyTBTjrQZTKJwPP5JnHqlIcbVseVphIocaxb1IOy -u2VpqWsGgblzBh2nKH8YN+jZnE2gvkBYSDXlg+HDU725BD6N01B7Qnl6bQhv -8mUCxfOMf81QPlbMo8W4QuCR0GNP1kWR8GN7hctcGYFrJ07WyVA+0WMYV32D -wI6Q3dcYlLncR0t9agnca59ZYU055WtEj1gddX6ERLM3ZZ5TfNMv7hC4IrZ7 -LIhy9pYa3oy7BH5vdeCPpizEMtUybqfW0/CyWxLlAqP3Ln+7CPTu9GtIpUwf -jomrf0StR22qfDrl60eEygKeEDgg+bwmjbIS580emRcEts3wM1MokxcspkeH -CeTOlvoTT1l76wRv7iiBHIxn9yMo321N0LJ6T6Bd79dr/pR32om5ck8QGNXv -fNWNcvfE7bjWSQJVY8fumFPeHWNTFj5L4FS3w7+alJ9tmupRmScwDHI1JCg7 -lp+a/vSLQG35iMLllEd06XzFSwS+DHkq9YmKp/fjZi2n5TS8djeqp4uy/4/Z -uAfraaiyVj44hrJusK/AR14alo5kvN9DedXnV5VcQjTcudZsgaBc9rpj0IBO -Q3sjUe7bVD6E2Gn7u8rSMCr0wIoYyjv7qpZFKtIw1yqwAiiPtpxXvKVJQwcN -sU+NVL5Vaa1pf6ZHwzd5fxOOUY5knXD8gjTMtt3QI0dZoMQvYas5DWuNGE6p -VD5bJesMXfGgYXFBcAmdyn/xv9VHWvfTUGdVQG0bVT+TYXSuNwdpKJJQHehC -OeXAWmWhEBqmLZ3lOUXVX5v5m8SMFBoOpJp/rKfqNaPTWrjqDA27e9qrdSm7 -MrpqerJoGD/XrdZE1fdP5drh5QU0/JOoFkIGUf2cN14lik3DdfRyrkiqX3Ck -zXXm1dNwJKnyyXuqn/RzHXKub6KhrFbrPiblw3M2ybP3abi4693b9VT/KR2S -eu33ioYsxn9OAQdJOGp9MSh5jIZe+doRLQdIwIfrV179QMOhTFO/tZTfNM2r -jk5T7xtzseGSLxWPogcn7bjouNE5zfrCPqp+BBmiR1fRsXFZyKY+qh+SmWz2 -2fV0DHuyopKDslVC/shDQToqN8oEuXtS8fDx37ZDkY7venN8vrtS37d146iS -PR3/7mIKp1H9e75AJF7dmY517KcVOXYkfN8gLaXjQUdyxQujS1S/n/6mc8jo -IB2f7dMuKqL2h/GmffPOMXR86jHHnWxBwkPz2zwpZXSk3TjR2mFE5evde+wz -N+g4We6XXkjtN50qvXbZtXSE5sbwsJ0ktPC9yy9soOPKbFaNGFLv/3qN7K0+ -OgYGhN0z06P622F3GJ+j4+USnYvCaiTkvjkw/ukXHZWqV3/sUiEhx+pY8tQS -HcVX9vsEK1PrqZ7y6MdqSex1OsTVspWEhN9sxw3ikiiRffa1hgy1HmkrgvSN -JbHV2kTmiggJ+pVVxRcuSGLO0+mwwGUkvCYqi3ZdksSCFfHHx5fYEHmhovB7 -kSRanItRs/3Lhtvx5ZdtKiTxhpp0lxK1329zKs7jaZbEc5csr3RT84L8ipzM -k+8ksT5MTvjsJ2qe8YiKC1OUwqZhsdmQR2y4NXA8VlpNCgcv7e4r7mGDHTPi -xICGFP4aW5b4sJsNWRqh0dtACr0+58YKdrJh/brAiGlrKZzIqXiTS80vyxu8 -g3zDpVB/crmqejUbZnmZng7tUlheYrFnJJ0NQ/70J4e6pdAaLU3yTrOhresX -xPZKYTZ3zbh1ChsyIyslrg9KIadJ5rqWRDaojq8b+/lZCkN9NjtGUvNWAPux -WwGfNJrTWcJJ1Lz22cre5cN+aWRa3134CGz4kO7pcJRbBiu43P6Fzywwmwk3 -+0dTFu+P3dDo0GDB5L5Vx+pi5fAug3PbU3YN9X8gyHmqXR6Z2ivLl4aqgLdP -JoM1o4A7/4zeM+KuBNGU2j2amopospqIWff3OuRt1dnI56eEezdkEmKbrsFD -kR0a384p47Sd5GCKShnoirZnqgyqYHP9/C9P5avAw1US4pWgihlFi0nS7ldA -PF5Cf6+MGoZmCe349KMQVku71tt0q6GHDV1eLeoSKDOEa8PdtuGbhtwtb4/k -wdFR3g4mhzrKa6c2P3I5DzPf0u3N8tSxSLFRuqYhC0xUuvLNlLZjxh6DA2Fu -mdDyTe/3Qv92nFW7F+cinA4BittePfXRwE8C0QuCuinAmN4/sHe1JsqZXJQP -jE2CXVJCFutLNLEqQ2bRIyAe5OJOR7RraeGQhESbb3YMKPjotEq/0kI61w5B -y9wI8Gk5kFQXrI3ZSpkXzuaEQGvxwP5Zfh2cmC0NnRkJgu/XlxZUbuugr9se -37Czh+Gjg3FxaoMO/ljhvP1A5GEYWn7G9H2TDib2Tt3x8zkMTZ4iFy+06eCB -pciHZ/UOQ4KQhu5ijw56T87tSZw4BBtTDkU/HKHuLz/+d9boECj6veDw4dRF -0zR6fwv3QdgnXbk630IXs5KdZa7e9IXI++6HZPboYmv1mTsWxb6Q6cP7iLTR -xUqj1IiVZ3yhuex4+iNHXWQPWHmV+PrCZhnTDYteuvhf2fjXBBFf6JL5Z7Nn -mC7aY8Pyt0k+oCAnQcgU6eLZTKmxp/v2w6xCtib5RRe7X0p/GTH1hqFe3MX3 -TRdlxBrZH3S8oS1g2jZkTheDN53csqDgDRmkWbDmL1386xvyWG+9NyjoclQ1 -cunhptuTPEbPvMDb7AitQ0APz/dblTHdvWDAz2TdgL4emg2O+K084Ql3Sn+/ -m0vRQw1FOenxW26gaRiywEzTw28ZfDq+BW5w693kuuIzeuiRfm3xd5IbkOKj -WswsPbzcsTrQ1c4NqvLazhRe0sOr+9wez3xzheL0ZB2TGj10e/wgwlHTFVJD -NpzLe66HOQrZQ+PdzuBsJIl64vpYNBkc3bjFCRYHVvF0EPror5zUUbzCCYp9 -pl8zJfWRPy1zJm/GET6ebAh3ltPH3hsnulo6HOFoj1Xt8W36uHDQgBjzd4TT -ltHid4z10aEHRA60O0Cj04s/2wP1cUqrm9ss0h62HDnVoNymjwzPdNUHIraQ -seSrkdauj0O2rC9Lq22BM8uY/alTH42s9/Yb/bSBz/UrKop79HHNVE3r3Esb -aORIyuN9Tj3v3/jUb+dtwDknLnz+H32MttFDx802kNd0XKNlLQOv5QSYJIlY -A/8af7aFIwOnhO2t7c9bQqlhTOSXvQx8s8d4ojDMErbFZBhmuzLwfunxLcud -LMHyC+vFkBcDS12/LqNtsYSTg3M/9/kz0E/wa1xJiQX8KIndGRnPwK6rnYvs -+t3wSi/7eXklA+UfLcgf+8qEA6Gll81qGOiS2Ci/6iUT5mtu+UyyGBg1FqxV -38QEXvrQglo9A88ek1B2S2aC+Sox0bttDLR6cmf/gDATmgfK9z9/wUDemD9L -DiZmwOS5oxQ2xECzNu57x5TMYMikZ17oNQP57Kecr/OZwffG/1Lc3zJww9eC -Pqe3pqB0RbX6388MLB6MLxqINIXmVzvC0qcYKLfrl2CNlykwN9uCyhcG3h2W -f15oagq+p0Kfhswx0EEmsvu+gCl8bzuZL/iDgdXsgte/F00g4VfuvsZfDNzK -dWLC9B8T2Li9QtFtkYH+AQ2vq3pNoPBI49zSEgNVn/4ska0zgf8BtTMT+w== - +1:eJwV1nk0ld0XB3DxSkrKPN8BqYQG073uvfZGSeZMIaHMDVRkakJCyGuqVKaQ +ksK9T2SqhLdoUCGkkmgUUsYUfs/vr2d91rPWWWeds/d3H/qeIDsffj4+PsYi +Pr7/f6f6WptVk4oMs8RDXjrabjHszJWNMOqJgfCpG6YqZ1UApZ7vke1Jh4fP +G/mnkrUh1PZGt0BPAUydOLeqK9kExEZl0n938+BbQrD5lWR7eF9vHTTR3Qj3 +qvdrjSd5ganq0Luf3e2gEmOYa3UmGH53658b6x6AL94D0HziFDSZXCt6WTAO +vT4na/6hZYLi+5rPezTmoK+37IlfaA5I7ve4IWQigIo17sIyYoWQvtG0ztpx +CR7v6vGY3HcNXmdtaPi5cjlGEeXS52VLIano5HN+OTHcFTu/QS6rDMx1AsSl +VMQwf/rFTFNRGSxptnNcrSmGheM/OL7cMogdXPXGwkgMO30j9NIel8Ex5aef +MwPE8Pwqj9yov2UQmC87r1YrhlN2p0ya3MthezZXw2KnOM6Pmxp5i1aATObg +mYwcCbzTauK76X4FyK6rjJ0plsBjgTUmUs0VIN8Yd3JXhQQ+efBHf6KlAihj +a4+sbpLAm7OX9xS3V8Aqy4OedV8lMLPxXMWbTxWg/c+c3qC2JFoyqqvOLOOC +TYj0x02PJdFk+eLJH/ZcsF32te9ChyQ6cgNvOjhzwa6g5vXft5I4H6W1r9KN +C04v3J4//CGJJ5LXzu314cIujcJaVykp5I+75F8cyoV9H9enxXhKYYBljah7 +FhfiHbYZtk9JoVL3vYNtPVyQv90mz79IGvMMY92E3nGhTMJheuMyaSx6eDuN +9YELXe3uFWlUabxz2aH73DcuqG4PUd5uJo2KjB8tYrNcaLTKW/ziojS2V7Fk +VsvzYM50su0ZWwYTbN7teOjEg9TiyNI5UxkMm5eR93flgepivgTN7TKIlNN0 +QXceWP631Oisjwzar5pa2ODDg0smNMIyRQaftOT+sQnmAQMtLjx5L4Nrpj5N +30jhQTDzikdrjCwqXT9e++oBD8zzRScskmWx4OIm3s1mHigLHUtoOyeLpzS/ +nD35iAcvOp24Hddlseul3C/ZZzzQOigi0Ncmi3p1UcHyPTz4WhxW/EteDrPv +Tp51HuGBm6T1iAIhh5wu6tImSQK0j9ZF59bLYagFY0FahoClA2uk6Q/l8JGo +9wdfOQJqygVA7bUcHlIJC5xVIkDaoiZ1w4IcvtP3qRpTI+BFtKrOFgt5TPC+ +5yzPIGDzj9nIwEF53G1+eanPDgIizDLVHwzLI9Vz3l7LhYCyK5q9ElPy+NlK +68G4KwGyDp7MmiUKGH70H+FgdwKGq/+bFtBSwHRjzi4THwIyYlJDLoYrYNfG +iLR1hwloebNWdThaAZ9SlzrfCSbgr05Th2GSAs5xdCzgCAG+XyY3fcxRwBk7 +bo1JOAEGljt/ajUp4IdoSgvlBAEDUmqBzcsVccuCii7lDAEyQfeVZGQUsXf/ +DdEDiQRYtjg/C6ApopdxC6U6iYCqyCSNFdqKKFZ4+JNxCgGJ78eGXJwVsX+r +O3VdBgGbSur8fhQo4p4dOv2m2QT48TvKGN9UxKBg2yMuOQRk7xx9mFmpiOvv +qFv65xKwWJSuZtCiiNYCyxoj8wnoPRz3MXZEEZca2w0eLiIgmr19tzxDCas1 +XIsrSgkwc8/9pW+shGFvfj+7eJMA0ajvpxwtlXDysVD2iVvk+k2ni1M9lfA3 +J2k9q5yAavPa74vPKCGcs9oexSPg5H6h46oZStjx7VCrKUGAaYqDqHGOEs7U +e48tuU1A58vRDce5SjjMx28TVUnAmLNK6PhrJdybGX2AVU3AnciDQmIflTB8 +TWjke9Insu9maY0q4Ydt04YnawgQ6d9RF8BPwfpiuXFuLQEdi65axotQ8PKt +Px831xFwSeXXuyJpCl7r+p7eQXq1XzJfvzoF8x7Fr/5YT8Bowuu0OR0KjhEn +V/reJeD2DTUVBaDgWmFK7SBp49GGLU72FDQsnbRvv0eA+5HJxKdHKdgqMtl4 +rIGAVReMFYdOU/Bs8ezLtw3/r59/bwmlUnDURL6U8YCAyL9rXxgXUZCecLRh +kLQRJWy3ZxkFdS+oL2xqJGAJNv86Xk1Bs/A2kROkz51yl6p5SkH+fX0XhZoI +cLtaWtzVRUHz6kYFU9LKj2b0J/opyLNMPhRF+tvXLa1i3ymYkxeZXUW6YmmG +6/pJCsYeb8v5SjpMo/+75QIFPyx+HCrdTIChtebxvcJU1CivWIOkBQ9GiiZI +ULGa9ei2D+mnaY/yripR8WqjvWI86QxCcmPTaip2l+R4FpF2fbW7sX8jFZ9d +HYm5S5o+XWY/z6JiWvXZ2HbSX2X/flQwpWLDhlbfQdLlBttCmbZUZF0fVh8j +Hep2XmiHKxVtBUzbZ0izTwxmhXhT8VCQqvscaYH8DerpgVRk7Ol5/n8/fnC8 +rjycikZZxJpZ0qmDjy2fxVBxlaTw3l+kdwjK9g0lU9FCSfPcZ9KU1T5BSy5Q +scfwSGkX6U9mPD61K1TMNWWUNZK+uXchzaSUiuMmbbk3SAcnW6rsrqRiflzq +iRTSBmUXb5+4T8WnOa+tA0lv7m6bG22horswK9eStDXfP1s92qnoJDXou5q0 +81pm6vM35H70R0vmyfP2sgt8DZ+oqNwR4d9OOvBooXLFKBWzWEWFBaTDi3r2 +0WaoqFiR7BZE2vQo/WSUIA3FXOQs58n7f7KivpCxlIb11/hON5C2LXJqGROl +oZeuBp4kvfNZkthuWRq+suo3+kXWU/9uNT05JRqqc4jEYtK+Uw2uL+k0FND2 +cN1B+iB1qtBoHQ2XfuxPLyPrc5JIbfm9noZlOkvmHUhHmq0b4erQcEll6cT0 +fQJOH/LUUzakYaiu5Blt0peaHrfwb6fhXbEdQdFkP1CdfUZqHWk4HLNlhwjp +ouEFsWBXGla20TozyH4ql9LdOehFQ16rb1oW2W/NfnkjTaE0LJx6x4og+3Xb +X6b4saM0HO3pHf5K9nNbaqeeThQNRT32sx1Jv64Rjio6Q8N4w431KnfI/lwW +In46m4ZFkjc9s8i8CM4X1edcoaEeH2/NCJknMzolOyevkvvpXnvRkLSAe1+R +TzkNN4QdCO/mkvleYaZv2kjD2hJv+w9lBORsHtw5/5CGPhGSMQqklV8fj6p6 +QkM7161edmSeafITrWqvaNg/bGVcReafsYOSm9BXGupol593uk7A/pmfUS3L +6VjMaKuZJfPT4JCv9GdxOn5akhT3PY/s56HeUgFZOh4xtkvsIfP26pumLkNl +Oh4Pq+VcI/O57945jUo9OtZcNzklk0WAzWlmzxUPOoabCQhtIfOdMn/rwH1v +Op7tt145m0zmSaiywLsAOvL/4dtfSs6DBP9lWrIh5H9GGl2AnB8NFu9OpSTQ +sVxsd1XcKXIeiEevP8ql41MDnlh/GAF8SZPNWVV0ZPzjL7kzlDxvgb2uVXV0 +XMd8fro9hIB9k3anf/5HRyOXwbqqQ+R99qi+8eul49f+0msO+8h5m9cS5yCg +jCzDB5JfdxHwe93KPk1HZbSrmFSLRAKmcuSjtV2VsfR9ZuW/hgRMrFilyvRQ +xvZvAyIFbPL+xpl7Nwco43bKHcW75HweqPOacj2ujKMFmeNPN5D9bXFHNOGq +Mh761CHuSCPrbZ87DEwqo62i3FuJOR5ceOc/8GVWGVcfXSv4cJYHmTbBp0cW +lNH6k9/GIzM8SNFOeDIjrIKiwYOXHo/zIOYPd8cKigou16N/3j7Eg31JggfZ +pioYdu7aos4uHrBLb+afP6+Ck/5iscQtHryhleZtuayCOZ7/NeiX8iDyfEnu +RJ4KUlQeZdVc58Gd6OJsuxIVjD0wTKsq5MEm5/ws0XoVHHy44276RR6sFcxM +jfuggklnnGLfxPJA2uNoVKiGKvZVZm6ucuHBT3FzT6dGVTSZGeL/9pcLH5M9 +nQ4LqaEWCSU5Lmz7Ebbtk95qZJX4fypeWwHDXkuCb59cg6t5X4fN6WXke1+G +P75xLcYnJbb3vi0F8WdqKRU/1NH99uMoCq8EFBPKbfX0NFB1udkDD6drkLWO +uVLCTxP/lh0eclO/Co/ljXTH07SQ/qD3g5NsIRgoNqau71qP2a3a04E/80FU +oCBkd8wGfHL+xkCKdC5QoqlsF7WNSAn9KpVieAmEV7lV2T3aiGXv5/bL/Hce +tDhy5WG7NmG2XFRha1sGHO4TbzLn08ZC8eobql9S4cd4suO2LG2cu6J57P14 +Mmxd//DSNk0dDExQe7ezKgHujbP+TLfpYFB/nVt6SSwEamzqfemji9MvbMds +3aOBM+rd6SKshwZ+Ltdupx2DLaqyVssL9FAnLskgpygM1kQlhjfq62OziO6A +amww1LOuCloa6OOxRu6BkuBgsJ2+n/6KrY/S8kcLmV7BEB44efOrkT4ads5P +HjMOhhY3zw+ilvpId9n2b8qiYPBn6pnv9NRHIrXLpSf6MJT8+qAwkaCPkxct +q98mHgJ1H+b9Vb36GN9mVHcvMgj+VbaePfVWH1936/IkdwfBxPs9ugN9+thg +UxF4bGsQ3HNNLs0d1MeaS9IS0ZJBYGf7/oLMiD4Kl2otdi8PhAjW6YPCfAzs +r7gc5f71ALSIvaSPrGLgq+15/zL99oPPPf/Y24cYOKzLfLDrfACMHhgK2xLC +QDMPh2SxkwEQrrR/X1coA616//7b7RcAiceC7GaOMvD2suuSl5gBUGEQSmPH +MdBBWaRv+p0//K06Vd90iYEf3dtfiqj7Q3p57kR7EwN5EXv5bJ/7wv38Tu+f +UkwkuDe5nyy8od+S7hEqy8Tsi98T1zG9ge/3AZc/8kx0+NjpHaXmDcbbhawF +aUwMWGk64bTIGx4uMtCXU2ei9sunR6rueMHTPXnCRoZM9NrTW6G32gt6VfeW +pfoy8eLZfN3ZlXtg4vrC9Po7TLTWEzRLWu4Jn51M88/UMDEn24CdPe8BPf+c +NRusY+LU/V/LGAMeUOcpf/F8AxM7Njx/xy3xgBhZXYO5ViZebbFuusn0gJUJ +e489fsvEjKMOAcQud9Dwe8Xnw2+AErbSk4WVbuC1qlT4kpUBTrW+mFYpcIHI +/9z3qtkaoGhjjNOLBBdI9RF/wrMzwKX+5S/Sg1yg/mpE8pMdBqgrtafbheMC +kmpmK+Z2G+DEFceg0dfO8FDtk6RnqAGqv9ozoiLjDOprqDS1PAP0ltn63e6K +E/xUz9DjjRmg+IaJykM/7aHnKW6RGDdAq0Wnhk712UND4Kh9yKQBxj8eUSp+ +Yg8pvG2H9GYNUK/ojr18sT2oG/DdrBVgoUad6N2GnfawZ9sBepM0CzmOcyV/ +Wu2g02+rSCebheJ+SvCWux2qi/58mExgYX1iQPxbFxvQMwmZNk9i4QWVn5kj +LBuo/DAskn+WhcccrECWYgM8Sp++eToLha+lUmsHrOFmVsPZ3Mss7Ds3JKB1 +wBryk08zt5axMPVF6LqHcVZwJmRFWlYHC+9tuZ3BeGoBrptVkEVho+fvXGfL +bDOY61wi2kRj4y+byi6NGDPI9xl9Y67CRuqBNQ5q/mbwOa4mzHUNG0d5/rNe +OmZwuNWmPGITGy8oUW8LtW2FROtjlGpTNo40fFz8XnAr1Dq/+qsTxEbnjicM +o/gtoHAgvkargY0SK+fV8p4aQ8qCr25SIxtdTvp1xtQYA3+6KfdLMxuXJQdR +w4uNYahKsCS/lY2hI+ccL0QZQy1fbJZ4B5t8n72pKtY1BtfMqLCpT2xsZEeu +nCswgqy6CN17yzh4SX6T7JpEBBFrF668KAf54h8Vq0YgRPUzNMNWcrCYvZGy +0R/BX3BGdYMUBxdFYEaEKYK+TahkAYWDJa6H1R8JIHQNHB4/vZGDVo/azmXw +A0gt3c+12sHBulUvRdeu4ECRyfHIMRcO0uq0ov1H2LDpeIpJhhsHe98333ry +hA3WYxWvenZzcGbvpoq/CWyI65r87bWfg+sXumsEBdkwU3DSODKagxIfbDdd +EGBBLyujo7iUg0YijiHdckzwP1KUva2Mg28Trwba/GXAVFmlz3AFB71DFq/5 +0scAceWe6Y1VHAwNEvY4UsQAiyVKincbyPV7mjOFNzKgvrPYu+MVB+UZ/crT +NvpgLlqtGdrDwTOBKRK7dPShZ2vrlOwbDv61ch7ql9WHidrvCe79HNzWyew2 +GtADzSsbbn0b4mD4M3qKT6ge1PcahSaPcPB57XTKnZ16YC5pD+vHOPhGmpGu +ZqQHvvFHXoZMcvAKvXP9ThE9mGiIuyQzw0H7F07ptF+6EDN7wat2loOv29Pi ++Xt0YaVOicauOQ46Bbwc57unC7kHaicXFjjIDgqvUyjShf8BVF7eyA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07219768537623762}}, + "PlotRange" -> {{0, 30}, {0., 0.07722460102412121}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8739,6 +8755,7 @@ dWLC9B8T2Li9QtFtkYH+AQ2vq3pNoPBI49zSEgNVn/4ska0zgf8BtTMT+w== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8766,7 +8783,8 @@ dWLC9B8T2Li9QtFtkYH+AQ2vq3pNoPBI49zSEgNVn/4ska0zgf8BtTMT+w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07219768537623762}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07722460102412121}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8775,9 +8793,8 @@ dWLC9B8T2Li9QtFtkYH+AQ2vq3pNoPBI49zSEgNVn/4ska0zgf8BtTMT+w== Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991335257344549*^9, 3.993127086670192*^9, - 3.993128094314238*^9, 3.993130581461596*^9}, - CellLabel-> - "Out[100]=",ExpressionUUID->"b5b3f018-6ec0-44b3-bf5d-7c3c11f46d40"] + 3.993128094314238*^9, 3.993130581461596*^9, 3.993827638281281*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"b36b8f9e-b125-4e60-8b18-26a27895b23a"] }, Open ]], Cell[CellGroupData[{ @@ -8829,71 +8846,73 @@ Cell[BoxData[ FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", - CellLabel-> - "In[101]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + CellLabel->"In[98]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.540477732565921`*^-171\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 101, 22, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257395241*^9, 3.9931280943935328`*^9, - 3.993130581494383*^9}, - CellLabel-> - "During evaluation of \ -In[101]:=",ExpressionUUID->"85785846-2c11-4b8d-8369-ff24bf7f4ed1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5351125117669132`*^-174\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.3449629870780748`*^-167\\\", \ \\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ 116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 101, 23, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +lost.\"", 2, 98, 17, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335257395241*^9, 3.9931280943935328`*^9, - 3.993130581499096*^9}, + 3.993130581494383*^9, 3.993827638390621*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"7faab678-e3f0-4125-9fef-24d618f6e45a"], +In[98]:=",ExpressionUUID->"601a8f5c-f681-4639-ba57-ddfb4daecc0d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.276091632588918`*^-178\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.9248538933296334`*^-170\\\", \ \\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ 2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ \\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 101, 24, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +be lost.\"", 2, 98, 18, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335257395241*^9, 3.9931280943935328`*^9, - 3.993130581502068*^9}, + 3.993130581494383*^9, 3.993827638403027*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"aa6ac2ba-0d33-478f-81c0-629594873046"], +In[98]:=",ExpressionUUID->"feae34d1-06fc-4144-8d17-602a66fc4367"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5800089515625626`*^-173\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 98, 19, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991335257395241*^9, 3.9931280943935328`*^9, + 3.993130581494383*^9, 3.993827638411448*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"ef977af8-f0c5-41a1-a345-bd0cccf767d3"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 101, 25, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 98, 20, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335257395241*^9, 3.9931280943935328`*^9, - 3.9931305815047827`*^9}, + 3.993130581494383*^9, 3.993827638418878*^9}, CellLabel-> "During evaluation of \ -In[101]:=",ExpressionUUID->"33fb49df-408f-43e8-8a52-13de15857ef0"], +In[98]:=",ExpressionUUID->"f33df6a4-9f1f-49b8-af22-ee1b4b241746"], -Cell[BoxData["10.529037083302406`"], "Output", - CellChangeTimes->{3.993130604654729*^9}, - CellLabel-> - "Out[101]=",ExpressionUUID->"21174f4e-34c9-44d7-bb77-c87817e92dbe"] +Cell[BoxData["9.843651432154463`"], "Output", + CellChangeTimes->{3.993130604654729*^9, 3.9938276835784903`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"15f687ea-ad33-451c-b5a2-b8cde2cdf781"] }, Open ]], Cell[CellGroupData[{ @@ -8961,72 +8980,74 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849285445259*^9, 3.991849289419262*^9}}, - CellLabel-> - "In[102]:=",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], + CellLabel->"In[99]:=",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.523821465765944`*^-204\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.243023871146658`*^-199\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 102, 26, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +a normalized machine number; precision may be lost.\"", 2, 99, 21, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335263710146*^9, 3.99312809442749*^9, - 3.993130604694119*^9}, + 3.993130604694119*^9, 3.993827683640561*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"441d5705-ab90-4cf4-a2ac-9b32cd8148ef"], +In[99]:=",ExpressionUUID->"95a6711a-fa21-4a52-bd83-0556730d9948"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6803529553299851`*^-208\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.459507876133783`*^-203\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 102, 27, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +as a normalized machine number; precision may be lost.\"", 2, 99, 22, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335263710146*^9, 3.99312809442749*^9, - 3.993130604698469*^9}, + 3.993130604694119*^9, 3.993827683649371*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"cf8235ea-ccc2-49fd-9233-1e5d1f08b197"], +In[99]:=",ExpressionUUID->"cd54ebb7-7ecb-4050-9650-124224ac9b9e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.1116533580700926`*^-213\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.689501622317295`*^-208\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 102, - 28, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +represent as a normalized machine number; precision may be lost.\"", 2, 99, + 23, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335263710146*^9, 3.99312809442749*^9, - 3.993130604701387*^9}, + 3.993130604694119*^9, 3.9938276836572742`*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"8315b4be-4c23-43a0-889d-a96db194521e"], +In[99]:=",ExpressionUUID->"a1fa00d1-29fa-4954-94b4-d25e10c36fe7"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 102, 29, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 99, 24, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335263710146*^9, 3.99312809442749*^9, - 3.993130604703668*^9}, + 3.993130604694119*^9, 3.9938276836641006`*^9}, CellLabel-> "During evaluation of \ -In[102]:=",ExpressionUUID->"d89cadba-c3eb-498c-9d49-5d74a8cbc6a9"], +In[99]:=",ExpressionUUID->"c28f63a8-423b-47fe-9703-b20fc7153a32"], -Cell[BoxData["2.202353366489576`"], "Output", +Cell[BoxData["1.855598141805208`"], "Output", CellChangeTimes->{3.991335268779545*^9, 3.9931280993974524`*^9, - 3.9931306088738747`*^9}, - CellLabel-> - "Out[102]=",ExpressionUUID->"5db61bfb-21ae-45f5-a071-779932252f1a"] + 3.9931306088738747`*^9, 3.99382769117924*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"8ccf974a-5122-4a4c-a9bb-34c39a53b1b3"] }, Open ]], Cell[CellGroupData[{ @@ -9047,8 +9068,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9095,71 +9115,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849293744112*^9, 3.9918492959939384`*^9}}, CellLabel-> - "In[103]:=",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], + "In[100]:=",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.523821465765944`*^-204\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.243023871146658`*^-199\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 103, 30, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +a normalized machine number; precision may be lost.\"", 2, 100, 25, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335268812542*^9, 3.993128099431786*^9, - 3.99313060889823*^9}, + 3.99313060889823*^9, 3.993827691219891*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"bdd13af8-289e-4eed-94b7-88cec3dc4f89"], +In[100]:=",ExpressionUUID->"9d58e30d-25f1-4c2f-b4c0-6d54846e16c4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6803529553299851`*^-208\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.459507876133783`*^-203\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 103, 31, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +as a normalized machine number; precision may be lost.\"", 2, 100, 26, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335268812542*^9, 3.993128099431786*^9, - 3.993130608901898*^9}, + 3.99313060889823*^9, 3.993827691226252*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"b0c2e87c-7079-4c32-817f-1f4307a9dcff"], +In[100]:=",ExpressionUUID->"dd98cbf1-17a8-468e-847c-310559ed8ede"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.1116533580700926`*^-213\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.689501622317295`*^-208\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 103, - 32, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 27, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335268812542*^9, 3.993128099431786*^9, - 3.993130608904532*^9}, + 3.99313060889823*^9, 3.993827691232635*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"53219602-5b40-4514-a645-274b643f2d1f"], +In[100]:=",ExpressionUUID->"82cb535b-6f6f-466b-8660-86169458be5d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 103, 33, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 100, 28, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335268812542*^9, 3.993128099431786*^9, - 3.993130608907177*^9}, + 3.99313060889823*^9, 3.993827691238716*^9}, CellLabel-> "During evaluation of \ -In[103]:=",ExpressionUUID->"d9deeb1f-34c3-4b21-895a-4ff1eb07211d"], +In[100]:=",ExpressionUUID->"3d052153-19fc-4422-a068-356cb3afafc4"], -Cell[BoxData["34.72078895432144`"], "Output", +Cell[BoxData["30.216375377068548`"], "Output", CellChangeTimes->{3.991335272704685*^9, 3.9931281036348743`*^9, - 3.993130612332436*^9}, + 3.993130612332436*^9, 3.993827698429139*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"21c86686-0dd5-4780-b7e7-9d52d1825548"] + "Out[100]=",ExpressionUUID->"899d30c6-430c-42e3-8cec-a4a7615d0151"] }, Open ]], Cell[CellGroupData[{ @@ -9180,8 +9204,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9228,71 +9251,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918492993108063`*^9, 3.991849303274454*^9}}, CellLabel-> - "In[104]:=",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], + "In[101]:=",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.523821465765944`*^-204\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.243023871146658`*^-199\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 104, 34, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +a normalized machine number; precision may be lost.\"", 2, 101, 29, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913352727386665`*^9, 3.993128103668577*^9, - 3.9931306123575363`*^9}, + 3.9931306123575363`*^9, 3.9938276984685917`*^9}, CellLabel-> "During evaluation of \ -In[104]:=",ExpressionUUID->"0a9f4a1e-bb28-4d0f-a738-1dbe74440d25"], +In[101]:=",ExpressionUUID->"b674c254-ef03-4a19-999c-a254255b06e5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6803529553299851`*^-208\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.459507876133783`*^-203\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 104, 35, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +as a normalized machine number; precision may be lost.\"", 2, 101, 30, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913352727386665`*^9, 3.993128103668577*^9, - 3.9931306123601313`*^9}, + 3.9931306123575363`*^9, 3.993827698477056*^9}, CellLabel-> "During evaluation of \ -In[104]:=",ExpressionUUID->"36274ffd-c990-43fc-aaa8-be20aa2e5936"], +In[101]:=",ExpressionUUID->"a1e4aa6e-78d6-4a8d-a56e-cc8c3a31d75f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.1116533580700926`*^-213\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.689501622317295`*^-208\\\", \ \\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ 358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 104, - 36, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 31, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913352727386665`*^9, 3.993128103668577*^9, - 3.993130612362732*^9}, + 3.9931306123575363`*^9, 3.9938276984844217`*^9}, CellLabel-> "During evaluation of \ -In[104]:=",ExpressionUUID->"cfbc26e2-4d26-42fb-a862-9c96cc7f9b6c"], +In[101]:=",ExpressionUUID->"1c51dab3-e857-4aa1-9a2b-8f6332ef8fd2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 104, 37, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 101, 32, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913352727386665`*^9, 3.993128103668577*^9, - 3.9931306123658037`*^9}, + 3.9931306123575363`*^9, 3.993827698491082*^9}, CellLabel-> "During evaluation of \ -In[104]:=",ExpressionUUID->"cef7fbc8-f261-4b0e-a214-d19b1c8caa1e"], +In[101]:=",ExpressionUUID->"935e264a-bf7c-4291-99ee-2a882a2ae335"], -Cell[BoxData["8.296300622254655`"], "Output", +Cell[BoxData["7.120113444302511`"], "Output", CellChangeTimes->{3.991335275154251*^9, 3.993128106281466*^9, - 3.993130614393072*^9}, + 3.993130614393072*^9, 3.993827702968277*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"e10e35a1-bf3d-4f3f-a535-691c6e08ce18"] + "Out[101]=",ExpressionUUID->"2b8556e6-5e22-4806-b139-ddc4c8b4d744"] }, Open ]], Cell[CellGroupData[{ @@ -9303,13 +9330,13 @@ Cell[BoxData[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918493065908413`*^9, 3.9918493103344364`*^9}}, CellLabel-> - "In[105]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], + "In[102]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[BoxData["0.12976272877870831`"], "Output", +Cell[BoxData["0.12650837835229034`"], "Output", CellChangeTimes->{3.991335275186266*^9, 3.9931281063116693`*^9, - 3.9931306144136744`*^9}, + 3.9931306144136744`*^9, 3.9938277030087976`*^9}, CellLabel-> - "Out[105]=",ExpressionUUID->"1949145f-7067-4f65-8d56-c5bb75f73ff0"] + "Out[102]=",ExpressionUUID->"7871ac7e-3730-44d0-a8b3-fc674b274814"] }, Open ]], Cell[BoxData[ @@ -9318,7 +9345,7 @@ Cell[BoxData[ CellChangeTimes->{{3.991849314761318*^9, 3.9918493173333225`*^9}, 3.991924798063732*^9}, CellLabel-> - "In[106]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], + "In[103]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ @@ -9341,13 +9368,13 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[107]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + "In[104]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], Cell[BoxData["4.417612498227356`"], "Output", CellChangeTimes->{3.9913352752142563`*^9, 3.993128106318952*^9, - 3.9931306144211397`*^9}, + 3.9931306144211397`*^9, 3.993827703024858*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"a079d42c-ac8e-413e-804f-ab0179408faa"] + "Out[104]=",ExpressionUUID->"a7a8da6d-2d20-44fe-9125-be8cb5bdceae"] }, Open ]], Cell[CellGroupData[{ @@ -9357,13 +9384,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[108]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + "In[105]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[BoxData["5.374909605435661`"], "Output", +Cell[BoxData["4.607182263903014`"], "Output", CellChangeTimes->{3.9913352752482567`*^9, 3.993128106323305*^9, - 3.993130614424696*^9}, + 3.993130614424696*^9, 3.9938277030336237`*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"3282426b-10f7-46d8-a76b-fb60ee0335b1"] + "Out[105]=",ExpressionUUID->"488188be-654f-4f8a-8de8-ba47fd312b42"] }, Open ]], Cell[CellGroupData[{ @@ -9373,13 +9400,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[109]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + "In[106]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[BoxData["23.744267849814847`"], "Output", +Cell[BoxData["20.352745950629362`"], "Output", CellChangeTimes->{3.9913352753089123`*^9, 3.99312810632734*^9, - 3.993130614428152*^9}, + 3.993130614428152*^9, 3.993827703045018*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"c84eaebc-bad6-46b8-ad39-58dee74584c2"] + "Out[106]=",ExpressionUUID->"f780b913-5a4f-437f-bcc6-453e89680884"] }, Open ]], Cell[CellGroupData[{ @@ -9569,13 +9596,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[110]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + "In[107]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[BoxData["0.006781867202945728`"], "Output", +Cell[BoxData["0.007783360215527646`"], "Output", CellChangeTimes->{3.9913352753341656`*^9, 3.99312810633534*^9, - 3.993130614435039*^9}, + 3.993130614435039*^9, 3.993827703063636*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"d7dbd410-95ad-49bb-a32c-5a85a74fc1b6"] + "Out[107]=",ExpressionUUID->"a228d94f-c2a2-4827-8c00-3405781bb089"] }, Open ]], Cell[CellGroupData[{ @@ -9589,13 +9616,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[111]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + "In[108]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[BoxData["10.761437801754388`"], "Output", +Cell[BoxData["10.045264477894467`"], "Output", CellChangeTimes->{3.9913352754296722`*^9, 3.9931281064091187`*^9, - 3.99313061449463*^9}, + 3.99313061449463*^9, 3.993827703187974*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"b4e02bff-debc-471d-b030-250677ecf167"] + "Out[108]=",ExpressionUUID->"288a5249-4c7d-4589-af7a-d0eb34951f9a"] }, Open ]], Cell[CellGroupData[{ @@ -9787,13 +9814,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[112]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + "In[109]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[BoxData["0.041119455351893486`"], "Output", +Cell[BoxData["0.047949146441403155`"], "Output", CellChangeTimes->{3.9913352754426765`*^9, 3.993128106418623*^9, - 3.99313061450315*^9}, + 3.99313061450315*^9, 3.993827703201769*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"a9f9f854-8937-4fc0-b1c3-532c65749727"] + "Out[109]=",ExpressionUUID->"33ecc80a-cc1f-4ef7-b7e4-c1ff0cd8030d"] }, Open ]], Cell[CellGroupData[{ @@ -9807,13 +9834,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[113]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + "In[110]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[BoxData["4.3704007687251165`"], "Output", +Cell[BoxData["4.047198453085484`"], "Output", CellChangeTimes->{3.991335275540678*^9, 3.9931281064897537`*^9, - 3.9931306145608892`*^9}, + 3.9931306145608892`*^9, 3.993827703304105*^9}, CellLabel-> - "Out[113]=",ExpressionUUID->"6fda62a8-8545-46e2-8528-ea4d20c42a2c"] + "Out[110]=",ExpressionUUID->"145f03f8-9d97-4378-9717-76271045e617"] }, Open ]], Cell[CellGroupData[{ @@ -9906,13 +9933,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[114]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + "In[111]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], Cell[BoxData["0.063831488074104`"], "Output", CellChangeTimes->{3.9913352755566807`*^9, 3.993128106496667*^9, - 3.9931306145670013`*^9}, + 3.9931306145670013`*^9, 3.99382770331514*^9}, CellLabel-> - "Out[114]=",ExpressionUUID->"54a0a6dd-c147-44f9-850e-0bfe7fccf58b"] + "Out[111]=",ExpressionUUID->"4be6388c-e7f8-4087-915b-0cc7f3299ecc"] }, Open ]], Cell[CellGroupData[{ @@ -10002,13 +10029,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[115]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + "In[112]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], Cell[BoxData["0.9361685119258959`"], "Output", CellChangeTimes->{3.991335275581682*^9, 3.9931281065023413`*^9, - 3.9931306145719633`*^9}, + 3.9931306145719633`*^9, 3.9938277033263283`*^9}, CellLabel-> - "Out[115]=",ExpressionUUID->"4f52a8e1-3220-48b2-bd13-1ea45e1765c9"] + "Out[112]=",ExpressionUUID->"692d3520-1da1-42d8-84fa-c05a2143f680"] }, Open ]], Cell[CellGroupData[{ @@ -10131,13 +10158,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[116]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + "In[113]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], Cell[BoxData["0.05975702920434953`"], "Output", CellChangeTimes->{3.9913352756087036`*^9, 3.9931281065089006`*^9, - 3.993130614580435*^9}, + 3.993130614580435*^9, 3.993827703340102*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"471760c1-35fc-4edf-9500-d61c40383a26"] + "Out[113]=",ExpressionUUID->"5270cacd-65a8-450f-8a3d-b3f03ad1126f"] }, Open ]], Cell[CellGroupData[{ @@ -10201,71 +10228,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991849332835844*^9}, CellLabel-> - "In[117]:=",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], + "In[114]:=",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1338321752578242`*^-206\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.059756524504783`*^-202\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 117, 38, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +normalized machine number; precision may be lost.\"", 2, 114, 33, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335275636673*^9, 3.9931281065163307`*^9, - 3.9931306145901423`*^9}, + 3.9931306145901423`*^9, 3.9938277033552303`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"b3c393ff-5392-4f95-8882-99ddc0b57846"], +In[114]:=",ExpressionUUID->"4a0c7826-f105-47da-bc3d-17b8c8a7c4ce"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.365758123889588`*^-211\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.6193068618298437`*^-206\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 117, 39, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +a normalized machine number; precision may be lost.\"", 2, 114, 34, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335275636673*^9, 3.9931281065163307`*^9, - 3.9931306145927687`*^9}, + 3.9931306145901423`*^9, 3.993827703361506*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"5573bc15-46ec-4b1c-bbd9-e8173b9cd316"], +In[114]:=",ExpressionUUID->"b0f20a7f-5413-41af-891f-5276bd21b78a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.936190401791086`*^-216\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.327161829300568`*^-211\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 117, 40, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +as a normalized machine number; precision may be lost.\"", 2, 114, 35, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335275636673*^9, 3.9931281065163307`*^9, - 3.993130614594912*^9}, + 3.9931306145901423`*^9, 3.993827703367506*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"82dc4722-1fec-4048-a2b1-dfc58417119f"], +In[114]:=",ExpressionUUID->"a659050e-e4c4-4280-87d2-1427452051e4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 117, 41, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 114, 36, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335275636673*^9, 3.9931281065163307`*^9, - 3.993130614597053*^9}, + 3.9931306145901423`*^9, 3.993827703373725*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"18adc1bf-9fe3-4f47-a871-089cf631321f"], +In[114]:=",ExpressionUUID->"67f79efd-6249-45a4-aba5-35970481e7f0"], -Cell[BoxData["10.761437801754386`"], "Output", +Cell[BoxData["10.04526447789447`"], "Output", CellChangeTimes->{3.991335279487499*^9, 3.993128109226737*^9, - 3.993130616745694*^9}, + 3.993130616745694*^9, 3.9938277072126417`*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"8b0ee44e-7362-48b3-a047-7462adcfca69"] + "Out[114]=",ExpressionUUID->"a6fd3afd-3170-4848-acee-7dd25d3044d0"] }, Open ]], Cell[CellGroupData[{ @@ -10329,71 +10360,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9918493361354027`*^9}, CellLabel-> - "In[118]:=",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], + "In[115]:=",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1338321752578242`*^-206\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.059756524504783`*^-202\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 118, 42, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +normalized machine number; precision may be lost.\"", 2, 115, 37, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335279522499*^9, 3.993128109264668*^9, - 3.9931306167712383`*^9}, + 3.9931306167712383`*^9, 3.993827707251603*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"b383a66f-b565-449f-a46d-8fec83f279da"], +In[115]:=",ExpressionUUID->"7f241c49-7fa0-4ead-a262-04f7a22160d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.365758123889588`*^-211\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.6193068618298437`*^-206\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 118, 43, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +a normalized machine number; precision may be lost.\"", 2, 115, 38, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335279522499*^9, 3.993128109264668*^9, - 3.9931306167735043`*^9}, + 3.9931306167712383`*^9, 3.9938277072576857`*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"ea0b6074-3d21-4372-8ebe-45d89575fbae"], +In[115]:=",ExpressionUUID->"6f2886f5-7b5f-4831-948b-8f322b768ebb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.936190401791086`*^-216\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.327161829300568`*^-211\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 118, 44, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +as a normalized machine number; precision may be lost.\"", 2, 115, 39, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335279522499*^9, 3.993128109264668*^9, - 3.993130616776093*^9}, + 3.9931306167712383`*^9, 3.9938277072650747`*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"f05cc589-e94c-4578-8126-bced46b4d0f0"], +In[115]:=",ExpressionUUID->"1285f803-858f-4443-af72-4779eeeedeb0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 118, 45, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 115, 40, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991335279522499*^9, 3.993128109264668*^9, - 3.993130616779014*^9}, + 3.9931306167712383`*^9, 3.993827707272194*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"dd53749a-7c20-4caa-aec5-1e1b869f0778"], +In[115]:=",ExpressionUUID->"32999119-467d-43f8-be20-4dab676dc7b0"], -Cell[BoxData["4.370400768725118`"], "Output", +Cell[BoxData["4.047198453085487`"], "Output", CellChangeTimes->{3.991335283631424*^9, 3.993128111980301*^9, - 3.9931306189665327`*^9}, + 3.9931306189665327`*^9, 3.993827711161742*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"f75a24a8-0684-4cde-9500-124bdfb906b2"] + "Out[115]=",ExpressionUUID->"bb3d1b17-54b4-49cd-b410-03cc42e1b89b"] }, Open ]], Cell[CellGroupData[{ @@ -10453,92 +10488,92 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9918494105860615`*^9}, CellLabel-> - "In[119]:=",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], + "In[116]:=",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk8VN0fB3DJvi/ZIwz1UNZBlGfOV6jsokSLNGZutiTkkbK0ICWE0Eqo -JJIty3j8WtQjKQqlxZaZydYIw03r7/THfZ3X+3Ve53O/33POvTr0A15MQQEB -gTH8/BkPvjBe1dD9gsZQmPxqymEjGq/Uku5QgWhuDkZm2MOFVrl6Di0oO9y1 -4489Gc9FpKiPUeuRpd3m2NWxiY+EHTpReXwwzQI77Ynq/cTyl6g/KUHJCrup -++DVH+Z9iHZ+wzZr7Il3HUcPs/rRxRf1P9dhq3MoOxfsP6B5+34ZGrbL9FGb -qM4htEau/JQdduuPCcnY8hF0dsvqUEfs18dUjtwLH0VfDHbdc8LmiThM8M05 -6EmrbYg7tkh6hB+V5KIVNs9TvLG15K+0H2SNoeOPpaX8sN01Fm7w7KfQuf5C -TyY2UaSrbCTGQ7SOGdkw7ER9j+TQzmnEL+GvjcLuV+k1iy6fQbVSMg+PYzN2 -hATnpM8ic4q+3hnsL5cFrtWEz6FHpjxeDraYrpHcjPk82rAvv/UGdi7j0SY5 -pQVkZRH76C629k2/RBNyAW0GKTMWtvWaFN5+1lcknOyx8SV2kNVQ54T9D2Sf -4+YnyGUjfuwhIYmVP9EphZ4SWewklqStgdgvZCQlu10TuwCsb+/r/I3SPCpI -G2zG9XaHyPIlkCZ6WicWu/xJzvAxDUFoNX1ZfQr7yyf/o+fSBSFl7lX5Beyj -hvO1d8OXQmOB2JsW7NwqHcq0uTDYRbipin1io3fdU62/SoShbkccTwNbe7Zh -h4ySCNwdIYxMsSss3LONSBE4dvoYxw+7rSluSRhLDFoiX9JqsOcf9QyN2UuB -XsmpvJgxNlJwlZI70ioFXeJfLXOwTXsdQNpGGvhz2Z53sUPY9UVmxjJg8NuD -nMSOEOw0/VtKDtY0ikkGj7MRR/fOTPKCPHBFclzjJvD+EB3iXVQFSP/qWXgV -W/A2V0f1oAIM+3jsf4StTV3hVT6pABSkeERmko122GfVvBhWhFcqH3eXY3cF -RkapPFOCxYe/7Ban2GjwZsaZADFlUE5LcNL/zEZTk+UltxyV4WKab+cWbIno -0Z7195WB8NV1qMB2OLnVIqBeBSwU4AfBY6PmUqv5skI1qNd2yZqbZqNSzreY -ddGa0MHo3xY8x0abt6UORlVqAret900R9lSb4sZKribEBeQ97se2KF2jpO2n -BdIyB9lOfLyfdP9aYdoKaAljmZjNs9Hs9PA/Yye0wTA7+JciyUaK+x3qat10 -QahN+YzhdzbilkoEeYboQlHXw7QD2I0fujU+p+hCCvUwvw57l+vuEyvv64LD -ZRkZux+4vtUxXhfMKRA8tsLL/yd+/8TNLwkqeiAhKaZd+ZuNtu6TNHIe0Qe/ -PnHOJSEOQjHbzLf/1IcXpfEdU9iGyYVrGWor4XqDmipNmIMESqgbErasBAWi -b3IEu3Jw5/aaBysht+/GIWNRDhLxqTimXrwKIvyXK70X56BGB7fXE3QDmM7x -yj8uy0El3vnvyQQDUC+xSx3GzqCPDAtdMoDNa+uHaHIcxEg6NKnVYwBrvK06 -fmDLt1wR8LY3hIEuMjlegYNCqDxDFmU1dDvTLmUrcZCGbmbiGfYa+CehwVty -OQe1nOYbLAoaQeTZ1IOJ2Lvm/HoJHSOo29Qtwce+2qZnsMHfCMRKB6oGNTlI -d1/zq69vjMCSRrQ1rcD9VnD0iWfGoHzBRCOVwkGaGlqEtp8pLPRnFiWs5qA1 -16OlviNzEE5y0f5oy0F0xol5I3dzUOtrDQv9m4MKKNmDAbvMobu+R38ee2lx -1d0nseaQbcQfEEcc9O7qxNbsanOYNc0krO04KK0g4IoBhQoj78wGbjlyEPeM -q7GviAW0MueSBt056Fqknmd9pyUEl4jUZtI5qDsGrT153QbGLXiiK3M4SMe/ -z3132N+waPZ3/vMODmL+vndH8zBAZdB40GdhLlKZbBRVoW8A22erVou5c1E0 -1fZDtqEDxNT1mn4r4CL65x/tihOOUB5Pn24a56LKDVGihV2bIEhkQrvY6RMq -5Yc8qMh1gnTWlWWStz+hr3aqz9sSXeB/Mtc2h2qOoQGBpTMje93g4LeapH/z -xlD48gNZxygeQKqNlynIjaM7we33zyd7gpLRB/OGy+Mobk6NXB28Bdb1Xy7N -/GsCzTtv9PlvjxcYfV++JPHpBLLZec6Os8UbeNkKT0UPTqJXaldC2qhbwddc -9+1zpSmkfuNES9lf2+DJfy4XL76cQo3Dhq7u0j7AF5Yc2Zv2GWn1ftkX89kH -wmRbCv525CHq+XMVJcPbYXuUdLW72jS6IjRnnP3IF/JpAZJnudPonp3Ju+Qm -P3jXPztAJb6ggrWn5X+U74DcFx/a9737grreX0+hpu+EpG2ioYTTDKp3u6wX -kbQLilLilVTbZtDMfm+BcMZuELt8cS9Yz6L5jQZBPHt/+JZ2o0Ly9iwq+/z2 -a5TVHnBWo1WNrppDvteuB+6WCoCXLovE20tzqLbGZc/S1ACgnn4uJKzKRzYa -rxbTFgPgt1GhaGYaH1GG9717GbwXFuwV+27O8xFbMtTj8uhecHn5tsiEmEfd -Ge6Bm7bR4c2DJFbN03mUG1soeaibDnGpZtOuxguopfX3YqBTIPRoDpxLObWA -ZHdBKrU5EI6qnWAI9i4g7WX/dS1vCYTMpqZRy74FZNrppirSGgiH5k7XBr1e -QF62O2/1PwiE/U2j9p39Cyh3ecyz+KeBQM1/uOLMwAJSH7gt294fCGdC16Z+ -4i4gPX+Vgl1kIPDzPKlqiwvIJoBXlmzBgOxf+bu2aJDoxoUvUe5WDFjfm5jj -uJxEy3pmaSrWDLjiIEux0SQRz5HsLVvPADuxnS5aK0j8/xJY0rmBAdofV7KG -dUkkQ8r7KWxhwBHJ+UlHQxKxz1qKF+5nQFhx0fosaxJlsI4GN95ggMQdYzt1 -bxLtN8+3iS1jwMAXjuUQtuutanHrcgYoZKUnlGwlkUQ+91ZDJa5PW1TS0IdE -yZGeE/fqGFCk4i1l4keiowZ6ofUPGWD7qvms6h4SheQ/C6sZZMCGEKGEoBAS -OclwbSOHGUCdoVxXCSXRX8kC0uYfGfB6IVjjCTY30rKymsMA1vd+vvZ+Eu11 -L/x8d4oBEY0+218cIJGvcFR41TcGnEofZIkeItGmKPWICmUmvMjJUeAnkOhh -YYpztioTAioMn19IJJFt56xerDoTZloyamhJJDLVf/bWXosJ/mEaP5OPkUjt -zRH79/pM+LFnJF3iJIkm1w0oS1gy4WTG+ejJUyTKFCz6d583E8pbLu2QzMb9 -m0gVuG1jgnzEICUP++TO2EjqdiZUCqxX1M4hUWyd56rfO5hwqK4x0CwX108s -OZdHZ4JqqUK7Ux6JqB10xuODTDiq5H5sy0USvTmnL0nJYkKQi9Zb1jUS3UHS -QWPnmFDcmdVCKcb5n/ltlTlMUONxB09jmzu1JVjnM6HGmj3kU4LPTyBw1u0q -E24s3uvmlJJo44Git7EVTJB8z94xdJNEmpqnrGh3cP7aPbrry0jE7ziQs/Qu -Ex4nBa3Kwy5eidwyaplg5tc/7nSLRD8HBu6XNDPBt0ncvaycRHWuGmUv2plw -ylfnBFSS6Mw3QeHcDibofMtUz8Kml03s9etkgmMCnTeILSfUrMHuYsL2NTzn -uDskCmP5Zi6+xv1ufdJ3s4pEFMO8GD0OE4wqrfQGq0n07U18zziXCZPC+nE6 -NSTqTmaaVo0xYSQ6RpKBnTBiMWEzxYR8S7FhLva7gp7dHnNMiBHw9RitJVG2 -qLxj3BICnCJY6xrqSdQyO7AzeikB6l11F/jYnwbKI8OFCQjPKBI0u4fvQ51D -EV2cgJ9a0rM3sLkBsd+d5QkYfBrnmNqA63d1VHBUJKD8guNsC/b6tQoGSIkA -m/jkshnsLOkKH6oaAWFvDM18G/F881C1hg4Bm3+lVKs1kYi4XtGuRCFAlhVV -tgk7K+vwkKw+AdpKwWXR2FxCUVrIgIBtwbaPnv2ZV9wUNGVKgNrb9YHhzSRq -/qWYyDUnwJancy0XmzM+fH7YgoBY+fpPTdjr7sc96rUm4PTDpowlLPw9h93R -+hcIMAg1tk/GlvE9YtmwgQCiJuxxCbaN/WbXagecFy7t+QA7Q+3j4eubCYgX -9ElYxG4UqsoqdCYgjsHTWdZCotHpIzcvuBJg6t7x3Ajb+olS31lPAniNpjR/ -bHr1x8lULwI82JWCh7DPXq4SPL6VAOMp767T2B8jnUxjfAl43SN4rBZb2l95 -U8QO3G+iAPHkT57T6O6QXQQ8uCrn3f9n/Yr4M/4BBCz731bHRexGCediXzoB -0ZWJzmL/4rx55SYvBgGNE+XblbGlR0a7XAkCoOBVGAXbuvMud2MQAc0ac2km -2PSG+J8QQoD0CvGqddhni52XrQ8jIClL/oMDduNZldWW4QRcLBaXd/+TH8u2 -M4kgwLqT5+aDLcWo9jWIJOB4e2v2buy1HgkHKNG4/7x/hgL/5K9zSdGMIcDz -iIpFMHa6vuoVlVgCun5eztqPfU+OUysfh+/ThMh8BPbI9+oOyaMEeHlv3Rv1 -J/9TwohwAgGb0k/2RWNbvXL5+juRAJpJ/pZD2P8HJ8gGtQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0VVscB3CJylTmIZG5KJJrSNP+iVJCosGU4br3iFCEd5MhiVRSNGlC +QjJGUiJPpRIyVC+pzM7FNU/3IPJ2f5x11mftdX7nu4ffVqYft2Xy8vDw9OHn +79u/XmfN88b67d7zfQa3JEm0fTjdgG6Wi3pv9nn9dUeK4XU1s3Ik96ObPwnb +hvFpiTDtHdpe90PgNnYhK+Itv1kdSg36FHQH+8J72cqI7CZk1FW25x52aaN/ +8pzef2i7cmZ0MjbnR03oqbLv6OjOOM0H2CtJVSeu6S9UyPAzSMfeOxJqfLKu +HV1Msnz8CLtijiPEyu5E9fMa0TnY3yJlTpf4daPs4vnqAuzhJWacST0SVXU0 +BhZjL4k74UCj2Ej8cWpsKbai2P1q/7I+xDHy5fsX21qemzlsOojGPOZptdhE +qoq09rJhVEe87m3CjlDfF32sbgTl/z67uAX7u8zXjYHZY8iibiGgD5vh6O11 +LW4c/Rdb9n4Ue/Qez4Mivwmk0hJ0dgZ7mYq26JjeFGp16t0oLEWi64y35qJS +XGSglaIuja30yCFiA8VF6lWHIpWwN62PGfYtm0bKL96fMMQ+athexzGdQyzO +0w2e2JOsID5BjXmkuTvQIxD7TJnQVs1lfxAnymghEjsJNuV41i0gW9dqv2Rs +Rka1WUD2IvBjK+n8ws5+f60jUp4XJo/wpw1ij/a6hCbE8cLb5NGweexQramn +T/wWg1NRq6+SNM5boKw6oscPxvYqOsewfzQOVvx5yA+vjK26wrGVxp87Lpda +An5ZUX8SsXP1rRO1qSVwq0HqeDl2VWnIIp+yZVDn36UrKUOiqbdf2vtMhWEh +6rVRM7a4pbDo6QphyDIUz5zA1v1qBiLGIuC54mW8qCyJvHuepW7UWQ5G6RIN +e7FP8NbpbhMWhVWs5cLV2KRK/lg0Vwz0ZvRYzXJ4fYgagQaaOKydPBf3G5s3 +h60s6y8OfFwTeaWVOC9ttW32gDg8ecyb5Y3taHq1qL5DAtLFP4Tzy5OowSPg +pEytFAQZ56nYriJR26P4S27LpKHez70tDHtwIPvh453SYKl3WzIbWzCw+8uW +SmkYXHNndLECiczOHdB3eyYDjdrinq+wX6YbTmWlyMGhFp995qtJlE7OBm8O +VACRfhv55yok2n3wfNvJPAVYStpuG8YerJLYlcdWAJqMc426Kon009dLKTko +wpaIS+o3savoLk/5t6+G7R8TO06rkWh8pOOfvigl+LFi3NtJg0QSvmbFT61U +wMxZqd1bi0TsdMGjNt4qIDnWyizAfvGrUX4oRgU+ED2HJ7GdLY9EaVSqwCHx +/8Ii1uF864Jtb+upwo7Z6KY76/H/OY9Gw2XUQL3V4A6pQ6IDnkLaFp3q8K2b +500tjUQo+KDe4Xl1iJMfkVulTyKt6BQjhpwGqN01b/HB5nlI2xG+XwP2ZJrE +rzAgUV6b0+Gi1xogJpDW5GCI+/NQbuTKtDUANNfKRcY4n5nVNw5dEzr+VNuk +bCfRQ7tbP6lwTfDPWH93Djue3tnBd1cTZNfbWjkifL7PBA0oftEE/fvDfdJA +IrHy+zx2plqgI1U5f90Enx/asFaZ6jp4nu+Zmm5GInmVKxGXetYD+25Yu9he +EpVfnNSc4dWGOYdJnWhs5wmHr4SyNvAwpqensZOr1DR3uGiD6eHSuU5LEql4 +vvw83awNZuduvi21xvPNJdWJWh3IWXrR9owtiRTkFQklB134KZJw3cuRROsz +AoV/Iz3YuijmSd4xEtEZUVPa1nrgb5y/2NAH96tqYpubsx7ci733pgJ7cVrB +k/csPXCI+xXV5Iv7LZlzILFQD4JK6JJzx/F9muR2X1OVBrt+HPRnBuL9vWSp +Y79EHw4Eso0vhJHoQYCazbM6A9C6+H2pdAKJGoOR0bkMY6hfezjN5jWJlF3+ +sz7isw1qBHQqLk2TiLlQkq9wCmBZNM1Ln8ZGMgMvlsrQd4DFjTTGixA2CqRt +/ZWoZQZP7JOdl75jI/rQXLUEZyeo3DizVVSqF+XtOLk0pcEcTFo9b0sF9qL0 +Se/Xudf3wAXRgpjLX3vRtInsp6qIvbBm16zyu519qJVn8VinuxVsbhJpqnvV +h/xWHb8aqboPZmiWKh8M+lG+V3XljWgb8Cn57feush+FTMhR67z2Q29LfXGP +BQdNWew69MHVFiKrQ3dX9HOQsVOCCbnfDkyKN/L9iR9An+Xue1fRDkDtm9kX +nhsH0crMqPKstQdho1kbjztnEL3o0LK0FjkEU9OneiFlCCl+HfUMHjoEnXeP +DfLYDyPajYTchx2H4d9VEs8Za0fQfb4JncS39iDg4cvbPzaCSkw2/IgudYDu +HK+3RV6jKMnoothctiPsX3CdvflzFDX8zIihxTlB2sQhtvnuMfTM6p7aiTPO +8Ohqq7xt5Rga87Xj8WMcgX/b9pb/2jiOpnZpHh02dYF7Pg3bZh6Mo6yhlumT +hq7gesfVv0Z+Atk/yPA4IuwGTbllz77FTaCnRXtdF593g+Fzg83V/JPIWP7z +zIUZN9g7duG+eeAkUu3w/NHk5Q5xQjkCzNZJ1CN0bN+9bndIVdYSLbeYQo3x +1h7mB+kwVhyx0zFnCl1npQgFNdLBKtPv25QwF5VXLMx47PEA71VnJk4wuGiF +M5ynvfQAr4Z1W27mcZGS5IeGVeUe8LTl8+rKfC7SrbOSXVLhARTfkEN/ARfZ +bnV6/P21BywN8PtkXMRF11cF14Z99IDbFQezP5dw0crWnBXV3z2gi//Gop5/ +uUjNRSbJmfKAgfrvjlFNXGTsNpwVrc+A8Van95njXJR5e/SktSED+k16tl+b +4CLJL+PbZTYx4KzGvGTEJBcN76S+Zm1hQJyhUssBLhffXzyL6nYw4EjzSNn0 +DBctp8QcxPczQHkf7Y3yIgr1XDYQSPFlgP/OZZeo5RSKLwv1epHJABbZtiVr +LYV89W4Zs7IYIFmr2E5oUsjycaHApmwG9Hgl/FTTopDgLfbj53kMeDcU1J68 +jkLRATackmIGMI9IrrikQ6FQTbVjz94wQPZx3aCpPoW8b9X6FLUxYH5N+gND +RKE9y9lbAzoYQK3wUe3AXhvNI6LXxYCO2ZaZWKAQO8Agr5BkgOI/iunfTSjk +bp0y9GSQARtcr3COm1HInv+kX8EsA8TvZyiH76GQ+cmVJ3KlmcB6P2cna0eh +NykxFomyTCjbbFz4Antr3bgaayUTfFf/RvYHKKSrXttiqsiEYyOBY9cPUkiu ++bTpT3Um0AfEU/nsKTSwuVVa0IAJo0XqQq+cKXSFN/WVpx0TAk92yCcw8fw3 +CCdZHWSC56cEugxBoXNOrADaYSaI0/d/u4fNKrZZs+DIhN3LT5lleOL8xKKE +m3QmRAiwjXK9KESroTPe+TNhW0CJa6IvhZoT1IVUrzLh9TtWZ0UghfKRyNG+ +BCaoDnHcVYNw/aHJqrxrTDDaFrLmPLbenqrwTbeYUMNzN9IyGO8fj8e4VTIT +bHckHa//h0K7jqe2sHKZ0Jh7V6kghEIKCrGG2/Px/Pds7F96mkKTNcevLX7C +hGZW6pQrdpoGsop/yoRNyytbREIpNN/aWvnwJRN09efq3MIoVGwpn1VfzYTs +hZx93REUujTLy3+9hgm9nXZWumcoRM/iuDvUMUHQofRyKLYo30v5nga8HuGn +v4lHUsinzP7KzDcmZJasjDE8SyFVrZvBaiQTPpcb2zieo9Bsc9iXfjYTWt3d +Au5iN0YzdQv6mCDw2ubbT+zwTn2O8SATStBhD8doCv1I+nJk3wTeL+UzV61j +KJS4VGxnyCIC9sPwOolYCpXjxglcTEBMaXasNXZva3aAHz8BHyXcqVjsrcVm +qXQBAoSKQgV/Y7PdWL8txAgQD3rP//UCzm+5U3ynBAFc2UejSy9SaIuRuCaS +IuBihuDQZuyrIrmHaHIEEC9VVyb/HX/ZXiivTEBjynozh0sUIjJyq6VUCbh2 +s7A0Gvvq1VPtK9QJGAyxhUJsNiEhwqdJQOD+0jP8cXhcwvzooC4Bo2u76tKw +X/6RiGDrEcB+JVTzAZvs77jRoU/AUdvZ5gHszZUhb79uwvk+LqhvvIz72Sdf +8RUQELk158IT7OX2pw2e7yDA5sCsUD22seluy0IzAjSSPiRzsOPluk5l7CYg +lq9iSimeQi/4Cq6mWBDACf9euhm7e+T0o9uWBAh+tIu3w970Xuq/yzYE7Day +PXoWm17YNXDeloCIomrfJOzL9wp4zx4goCAnJioPuytgj26wPZ7v5TftX7FF +XKTNTzgS0PLFQKP3b7093Ue8nQlg7f8ZOv33+9Vhl1zcCOgJynaUvYLzCFqk +2dMJKI6o7dTA7pqSLrVlELDrvMgpfWyRzu4GS4KA1R0+SibYm+qesHcdJeC2 +IrvZEpv+PGwevAlokwlOOYx9Oc1CcosPAcOdcv+4/61/WWadgR8BWV/qXbz/ +1mf1mGw4QUDlucRDAdjCjEJ7zQACaj7RXU5hG+0LP64aSIB29bbgiL/1N++N +UQgmwLheOfkcdpy67H0ZFgGyp0W+xWKXiJJPxULwecheUIjD7vxdWCMUSoB1 +CBUU/7d+b3gnfzgBzuaTrVewDT/vnV6IIODRk6mDV7H/B0Wa8HM= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10552,106 +10587,106 @@ J/9TwohwAgGb0k/2RWNbvXL5+juRAJpJ/pZD2P8HJ8gGtQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk8VN0fB3DJvi/ZIwz1UNZBlGfOV6jsokSLNGZutiTkkbK0ICWE0Eqo -JJIty3j8WtQjKQqlxZaZydYIw03r7/THfZ3X+3Ve53O/33POvTr0A15MQQEB -gTH8/BkPvjBe1dD9gsZQmPxqymEjGq/Uku5QgWhuDkZm2MOFVrl6Di0oO9y1 -4489Gc9FpKiPUeuRpd3m2NWxiY+EHTpReXwwzQI77Ynq/cTyl6g/KUHJCrup -++DVH+Z9iHZ+wzZr7Il3HUcPs/rRxRf1P9dhq3MoOxfsP6B5+34ZGrbL9FGb -qM4htEau/JQdduuPCcnY8hF0dsvqUEfs18dUjtwLH0VfDHbdc8LmiThM8M05 -6EmrbYg7tkh6hB+V5KIVNs9TvLG15K+0H2SNoeOPpaX8sN01Fm7w7KfQuf5C -TyY2UaSrbCTGQ7SOGdkw7ER9j+TQzmnEL+GvjcLuV+k1iy6fQbVSMg+PYzN2 -hATnpM8ic4q+3hnsL5cFrtWEz6FHpjxeDraYrpHcjPk82rAvv/UGdi7j0SY5 -pQVkZRH76C629k2/RBNyAW0GKTMWtvWaFN5+1lcknOyx8SV2kNVQ54T9D2Sf -4+YnyGUjfuwhIYmVP9EphZ4SWewklqStgdgvZCQlu10TuwCsb+/r/I3SPCpI -G2zG9XaHyPIlkCZ6WicWu/xJzvAxDUFoNX1ZfQr7yyf/o+fSBSFl7lX5Beyj -hvO1d8OXQmOB2JsW7NwqHcq0uTDYRbipin1io3fdU62/SoShbkccTwNbe7Zh -h4ySCNwdIYxMsSss3LONSBE4dvoYxw+7rSluSRhLDFoiX9JqsOcf9QyN2UuB -XsmpvJgxNlJwlZI70ioFXeJfLXOwTXsdQNpGGvhz2Z53sUPY9UVmxjJg8NuD -nMSOEOw0/VtKDtY0ikkGj7MRR/fOTPKCPHBFclzjJvD+EB3iXVQFSP/qWXgV -W/A2V0f1oAIM+3jsf4StTV3hVT6pABSkeERmko122GfVvBhWhFcqH3eXY3cF -RkapPFOCxYe/7Ban2GjwZsaZADFlUE5LcNL/zEZTk+UltxyV4WKab+cWbIno -0Z7195WB8NV1qMB2OLnVIqBeBSwU4AfBY6PmUqv5skI1qNd2yZqbZqNSzreY -ddGa0MHo3xY8x0abt6UORlVqAret900R9lSb4sZKribEBeQ97se2KF2jpO2n -BdIyB9lOfLyfdP9aYdoKaAljmZjNs9Hs9PA/Yye0wTA7+JciyUaK+x3qat10 -QahN+YzhdzbilkoEeYboQlHXw7QD2I0fujU+p+hCCvUwvw57l+vuEyvv64LD -ZRkZux+4vtUxXhfMKRA8tsLL/yd+/8TNLwkqeiAhKaZd+ZuNtu6TNHIe0Qe/ -PnHOJSEOQjHbzLf/1IcXpfEdU9iGyYVrGWor4XqDmipNmIMESqgbErasBAWi -b3IEu3Jw5/aaBysht+/GIWNRDhLxqTimXrwKIvyXK70X56BGB7fXE3QDmM7x -yj8uy0El3vnvyQQDUC+xSx3GzqCPDAtdMoDNa+uHaHIcxEg6NKnVYwBrvK06 -fmDLt1wR8LY3hIEuMjlegYNCqDxDFmU1dDvTLmUrcZCGbmbiGfYa+CehwVty -OQe1nOYbLAoaQeTZ1IOJ2Lvm/HoJHSOo29Qtwce+2qZnsMHfCMRKB6oGNTlI -d1/zq69vjMCSRrQ1rcD9VnD0iWfGoHzBRCOVwkGaGlqEtp8pLPRnFiWs5qA1 -16OlviNzEE5y0f5oy0F0xol5I3dzUOtrDQv9m4MKKNmDAbvMobu+R38ee2lx -1d0nseaQbcQfEEcc9O7qxNbsanOYNc0krO04KK0g4IoBhQoj78wGbjlyEPeM -q7GviAW0MueSBt056Fqknmd9pyUEl4jUZtI5qDsGrT153QbGLXiiK3M4SMe/ -z3132N+waPZ3/vMODmL+vndH8zBAZdB40GdhLlKZbBRVoW8A22erVou5c1E0 -1fZDtqEDxNT1mn4r4CL65x/tihOOUB5Pn24a56LKDVGihV2bIEhkQrvY6RMq -5Yc8qMh1gnTWlWWStz+hr3aqz9sSXeB/Mtc2h2qOoQGBpTMje93g4LeapH/z -xlD48gNZxygeQKqNlynIjaM7we33zyd7gpLRB/OGy+Mobk6NXB28Bdb1Xy7N -/GsCzTtv9PlvjxcYfV++JPHpBLLZec6Os8UbeNkKT0UPTqJXaldC2qhbwddc -9+1zpSmkfuNES9lf2+DJfy4XL76cQo3Dhq7u0j7AF5Yc2Zv2GWn1ftkX89kH -wmRbCv525CHq+XMVJcPbYXuUdLW72jS6IjRnnP3IF/JpAZJnudPonp3Ju+Qm -P3jXPztAJb6ggrWn5X+U74DcFx/a9737grreX0+hpu+EpG2ioYTTDKp3u6wX -kbQLilLilVTbZtDMfm+BcMZuELt8cS9Yz6L5jQZBPHt/+JZ2o0Ly9iwq+/z2 -a5TVHnBWo1WNrppDvteuB+6WCoCXLovE20tzqLbGZc/S1ACgnn4uJKzKRzYa -rxbTFgPgt1GhaGYaH1GG9717GbwXFuwV+27O8xFbMtTj8uhecHn5tsiEmEfd -Ge6Bm7bR4c2DJFbN03mUG1soeaibDnGpZtOuxguopfX3YqBTIPRoDpxLObWA -ZHdBKrU5EI6qnWAI9i4g7WX/dS1vCYTMpqZRy74FZNrppirSGgiH5k7XBr1e -QF62O2/1PwiE/U2j9p39Cyh3ecyz+KeBQM1/uOLMwAJSH7gt294fCGdC16Z+ -4i4gPX+Vgl1kIPDzPKlqiwvIJoBXlmzBgOxf+bu2aJDoxoUvUe5WDFjfm5jj -uJxEy3pmaSrWDLjiIEux0SQRz5HsLVvPADuxnS5aK0j8/xJY0rmBAdofV7KG -dUkkQ8r7KWxhwBHJ+UlHQxKxz1qKF+5nQFhx0fosaxJlsI4GN95ggMQdYzt1 -bxLtN8+3iS1jwMAXjuUQtuutanHrcgYoZKUnlGwlkUQ+91ZDJa5PW1TS0IdE -yZGeE/fqGFCk4i1l4keiowZ6ofUPGWD7qvms6h4SheQ/C6sZZMCGEKGEoBAS -OclwbSOHGUCdoVxXCSXRX8kC0uYfGfB6IVjjCTY30rKymsMA1vd+vvZ+Eu11 -L/x8d4oBEY0+218cIJGvcFR41TcGnEofZIkeItGmKPWICmUmvMjJUeAnkOhh -YYpztioTAioMn19IJJFt56xerDoTZloyamhJJDLVf/bWXosJ/mEaP5OPkUjt -zRH79/pM+LFnJF3iJIkm1w0oS1gy4WTG+ejJUyTKFCz6d583E8pbLu2QzMb9 -m0gVuG1jgnzEICUP++TO2EjqdiZUCqxX1M4hUWyd56rfO5hwqK4x0CwX108s -OZdHZ4JqqUK7Ux6JqB10xuODTDiq5H5sy0USvTmnL0nJYkKQi9Zb1jUS3UHS -QWPnmFDcmdVCKcb5n/ltlTlMUONxB09jmzu1JVjnM6HGmj3kU4LPTyBw1u0q -E24s3uvmlJJo44Git7EVTJB8z94xdJNEmpqnrGh3cP7aPbrry0jE7ziQs/Qu -Ex4nBa3Kwy5eidwyaplg5tc/7nSLRD8HBu6XNDPBt0ncvaycRHWuGmUv2plw -ylfnBFSS6Mw3QeHcDibofMtUz8Kml03s9etkgmMCnTeILSfUrMHuYsL2NTzn -uDskCmP5Zi6+xv1ufdJ3s4pEFMO8GD0OE4wqrfQGq0n07U18zziXCZPC+nE6 -NSTqTmaaVo0xYSQ6RpKBnTBiMWEzxYR8S7FhLva7gp7dHnNMiBHw9RitJVG2 -qLxj3BICnCJY6xrqSdQyO7AzeikB6l11F/jYnwbKI8OFCQjPKBI0u4fvQ51D -EV2cgJ9a0rM3sLkBsd+d5QkYfBrnmNqA63d1VHBUJKD8guNsC/b6tQoGSIkA -m/jkshnsLOkKH6oaAWFvDM18G/F881C1hg4Bm3+lVKs1kYi4XtGuRCFAlhVV -tgk7K+vwkKw+AdpKwWXR2FxCUVrIgIBtwbaPnv2ZV9wUNGVKgNrb9YHhzSRq -/qWYyDUnwJancy0XmzM+fH7YgoBY+fpPTdjr7sc96rUm4PTDpowlLPw9h93R -+hcIMAg1tk/GlvE9YtmwgQCiJuxxCbaN/WbXagecFy7t+QA7Q+3j4eubCYgX -9ElYxG4UqsoqdCYgjsHTWdZCotHpIzcvuBJg6t7x3Ajb+olS31lPAniNpjR/ -bHr1x8lULwI82JWCh7DPXq4SPL6VAOMp767T2B8jnUxjfAl43SN4rBZb2l95 -U8QO3G+iAPHkT57T6O6QXQQ8uCrn3f9n/Yr4M/4BBCz731bHRexGCediXzoB -0ZWJzmL/4rx55SYvBgGNE+XblbGlR0a7XAkCoOBVGAXbuvMud2MQAc0ac2km -2PSG+J8QQoD0CvGqddhni52XrQ8jIClL/oMDduNZldWW4QRcLBaXd/+TH8u2 -M4kgwLqT5+aDLcWo9jWIJOB4e2v2buy1HgkHKNG4/7x/hgL/5K9zSdGMIcDz -iIpFMHa6vuoVlVgCun5eztqPfU+OUysfh+/ThMh8BPbI9+oOyaMEeHlv3Rv1 -J/9TwohwAgGb0k/2RWNbvXL5+juRAJpJ/pZD2P8HJ8gGtQ== +1:eJwV1Hk0VVscB3CJylTmIZG5KJJrSNP+iVJCosGU4br3iFCEd5MhiVRSNGlC +QjJGUiJPpRIyVC+pzM7FNU/3IPJ2f5x11mftdX7nu4ffVqYft2Xy8vDw9OHn +79u/XmfN88b67d7zfQa3JEm0fTjdgG6Wi3pv9nn9dUeK4XU1s3Ik96ObPwnb +hvFpiTDtHdpe90PgNnYhK+Itv1kdSg36FHQH+8J72cqI7CZk1FW25x52aaN/ +8pzef2i7cmZ0MjbnR03oqbLv6OjOOM0H2CtJVSeu6S9UyPAzSMfeOxJqfLKu +HV1Msnz8CLtijiPEyu5E9fMa0TnY3yJlTpf4daPs4vnqAuzhJWacST0SVXU0 +BhZjL4k74UCj2Ej8cWpsKbai2P1q/7I+xDHy5fsX21qemzlsOojGPOZptdhE +qoq09rJhVEe87m3CjlDfF32sbgTl/z67uAX7u8zXjYHZY8iibiGgD5vh6O11 +LW4c/Rdb9n4Ue/Qez4Mivwmk0hJ0dgZ7mYq26JjeFGp16t0oLEWi64y35qJS +XGSglaIuja30yCFiA8VF6lWHIpWwN62PGfYtm0bKL96fMMQ+athexzGdQyzO +0w2e2JOsID5BjXmkuTvQIxD7TJnQVs1lfxAnymghEjsJNuV41i0gW9dqv2Rs +Rka1WUD2IvBjK+n8ws5+f60jUp4XJo/wpw1ij/a6hCbE8cLb5NGweexQramn +T/wWg1NRq6+SNM5boKw6oscPxvYqOsewfzQOVvx5yA+vjK26wrGVxp87Lpda +An5ZUX8SsXP1rRO1qSVwq0HqeDl2VWnIIp+yZVDn36UrKUOiqbdf2vtMhWEh +6rVRM7a4pbDo6QphyDIUz5zA1v1qBiLGIuC54mW8qCyJvHuepW7UWQ5G6RIN +e7FP8NbpbhMWhVWs5cLV2KRK/lg0Vwz0ZvRYzXJ4fYgagQaaOKydPBf3G5s3 +h60s6y8OfFwTeaWVOC9ttW32gDg8ecyb5Y3taHq1qL5DAtLFP4Tzy5OowSPg +pEytFAQZ56nYriJR26P4S27LpKHez70tDHtwIPvh453SYKl3WzIbWzCw+8uW +SmkYXHNndLECiczOHdB3eyYDjdrinq+wX6YbTmWlyMGhFp995qtJlE7OBm8O +VACRfhv55yok2n3wfNvJPAVYStpuG8YerJLYlcdWAJqMc426Kon009dLKTko +wpaIS+o3savoLk/5t6+G7R8TO06rkWh8pOOfvigl+LFi3NtJg0QSvmbFT61U +wMxZqd1bi0TsdMGjNt4qIDnWyizAfvGrUX4oRgU+ED2HJ7GdLY9EaVSqwCHx +/8Ii1uF864Jtb+upwo7Z6KY76/H/OY9Gw2XUQL3V4A6pQ6IDnkLaFp3q8K2b +500tjUQo+KDe4Xl1iJMfkVulTyKt6BQjhpwGqN01b/HB5nlI2xG+XwP2ZJrE +rzAgUV6b0+Gi1xogJpDW5GCI+/NQbuTKtDUANNfKRcY4n5nVNw5dEzr+VNuk +bCfRQ7tbP6lwTfDPWH93Djue3tnBd1cTZNfbWjkifL7PBA0oftEE/fvDfdJA +IrHy+zx2plqgI1U5f90Enx/asFaZ6jp4nu+Zmm5GInmVKxGXetYD+25Yu9he +EpVfnNSc4dWGOYdJnWhs5wmHr4SyNvAwpqensZOr1DR3uGiD6eHSuU5LEql4 +vvw83awNZuduvi21xvPNJdWJWh3IWXrR9owtiRTkFQklB134KZJw3cuRROsz +AoV/Iz3YuijmSd4xEtEZUVPa1nrgb5y/2NAH96tqYpubsx7ci733pgJ7cVrB +k/csPXCI+xXV5Iv7LZlzILFQD4JK6JJzx/F9muR2X1OVBrt+HPRnBuL9vWSp +Y79EHw4Eso0vhJHoQYCazbM6A9C6+H2pdAKJGoOR0bkMY6hfezjN5jWJlF3+ +sz7isw1qBHQqLk2TiLlQkq9wCmBZNM1Ln8ZGMgMvlsrQd4DFjTTGixA2CqRt +/ZWoZQZP7JOdl75jI/rQXLUEZyeo3DizVVSqF+XtOLk0pcEcTFo9b0sF9qL0 +Se/Xudf3wAXRgpjLX3vRtInsp6qIvbBm16zyu519qJVn8VinuxVsbhJpqnvV +h/xWHb8aqboPZmiWKh8M+lG+V3XljWgb8Cn57feush+FTMhR67z2Q29LfXGP +BQdNWew69MHVFiKrQ3dX9HOQsVOCCbnfDkyKN/L9iR9An+Xue1fRDkDtm9kX +nhsH0crMqPKstQdho1kbjztnEL3o0LK0FjkEU9OneiFlCCl+HfUMHjoEnXeP +DfLYDyPajYTchx2H4d9VEs8Za0fQfb4JncS39iDg4cvbPzaCSkw2/IgudYDu +HK+3RV6jKMnoothctiPsX3CdvflzFDX8zIihxTlB2sQhtvnuMfTM6p7aiTPO +8Ohqq7xt5Rga87Xj8WMcgX/b9pb/2jiOpnZpHh02dYF7Pg3bZh6Mo6yhlumT +hq7gesfVv0Z+Atk/yPA4IuwGTbllz77FTaCnRXtdF593g+Fzg83V/JPIWP7z +zIUZN9g7duG+eeAkUu3w/NHk5Q5xQjkCzNZJ1CN0bN+9bndIVdYSLbeYQo3x +1h7mB+kwVhyx0zFnCl1npQgFNdLBKtPv25QwF5VXLMx47PEA71VnJk4wuGiF +M5ynvfQAr4Z1W27mcZGS5IeGVeUe8LTl8+rKfC7SrbOSXVLhARTfkEN/ARfZ +bnV6/P21BywN8PtkXMRF11cF14Z99IDbFQezP5dw0crWnBXV3z2gi//Gop5/ +uUjNRSbJmfKAgfrvjlFNXGTsNpwVrc+A8Van95njXJR5e/SktSED+k16tl+b +4CLJL+PbZTYx4KzGvGTEJBcN76S+Zm1hQJyhUssBLhffXzyL6nYw4EjzSNn0 +DBctp8QcxPczQHkf7Y3yIgr1XDYQSPFlgP/OZZeo5RSKLwv1epHJABbZtiVr +LYV89W4Zs7IYIFmr2E5oUsjycaHApmwG9Hgl/FTTopDgLfbj53kMeDcU1J68 +jkLRATackmIGMI9IrrikQ6FQTbVjz94wQPZx3aCpPoW8b9X6FLUxYH5N+gND +RKE9y9lbAzoYQK3wUe3AXhvNI6LXxYCO2ZaZWKAQO8Agr5BkgOI/iunfTSjk +bp0y9GSQARtcr3COm1HInv+kX8EsA8TvZyiH76GQ+cmVJ3KlmcB6P2cna0eh +NykxFomyTCjbbFz4Antr3bgaayUTfFf/RvYHKKSrXttiqsiEYyOBY9cPUkiu ++bTpT3Um0AfEU/nsKTSwuVVa0IAJo0XqQq+cKXSFN/WVpx0TAk92yCcw8fw3 +CCdZHWSC56cEugxBoXNOrADaYSaI0/d/u4fNKrZZs+DIhN3LT5lleOL8xKKE +m3QmRAiwjXK9KESroTPe+TNhW0CJa6IvhZoT1IVUrzLh9TtWZ0UghfKRyNG+ +BCaoDnHcVYNw/aHJqrxrTDDaFrLmPLbenqrwTbeYUMNzN9IyGO8fj8e4VTIT +bHckHa//h0K7jqe2sHKZ0Jh7V6kghEIKCrGG2/Px/Pds7F96mkKTNcevLX7C +hGZW6pQrdpoGsop/yoRNyytbREIpNN/aWvnwJRN09efq3MIoVGwpn1VfzYTs +hZx93REUujTLy3+9hgm9nXZWumcoRM/iuDvUMUHQofRyKLYo30v5nga8HuGn +v4lHUsinzP7KzDcmZJasjDE8SyFVrZvBaiQTPpcb2zieo9Bsc9iXfjYTWt3d +Au5iN0YzdQv6mCDw2ubbT+zwTn2O8SATStBhD8doCv1I+nJk3wTeL+UzV61j +KJS4VGxnyCIC9sPwOolYCpXjxglcTEBMaXasNXZva3aAHz8BHyXcqVjsrcVm +qXQBAoSKQgV/Y7PdWL8txAgQD3rP//UCzm+5U3ynBAFc2UejSy9SaIuRuCaS +IuBihuDQZuyrIrmHaHIEEC9VVyb/HX/ZXiivTEBjynozh0sUIjJyq6VUCbh2 +s7A0Gvvq1VPtK9QJGAyxhUJsNiEhwqdJQOD+0jP8cXhcwvzooC4Bo2u76tKw +X/6RiGDrEcB+JVTzAZvs77jRoU/AUdvZ5gHszZUhb79uwvk+LqhvvIz72Sdf +8RUQELk158IT7OX2pw2e7yDA5sCsUD22seluy0IzAjSSPiRzsOPluk5l7CYg +lq9iSimeQi/4Cq6mWBDACf9euhm7e+T0o9uWBAh+tIu3w970Xuq/yzYE7Day +PXoWm17YNXDeloCIomrfJOzL9wp4zx4goCAnJioPuytgj26wPZ7v5TftX7FF +XKTNTzgS0PLFQKP3b7093Ue8nQlg7f8ZOv33+9Vhl1zcCOgJynaUvYLzCFqk +2dMJKI6o7dTA7pqSLrVlELDrvMgpfWyRzu4GS4KA1R0+SibYm+qesHcdJeC2 +IrvZEpv+PGwevAlokwlOOYx9Oc1CcosPAcOdcv+4/61/WWadgR8BWV/qXbz/ +1mf1mGw4QUDlucRDAdjCjEJ7zQACaj7RXU5hG+0LP64aSIB29bbgiL/1N++N +UQgmwLheOfkcdpy67H0ZFgGyp0W+xWKXiJJPxULwecheUIjD7vxdWCMUSoB1 +CBUU/7d+b3gnfzgBzuaTrVewDT/vnV6IIODRk6mDV7H/B0Wa8HM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6529774533924635, - 1.4837544619685583`}}, + "PlotRange" -> {{0, 180}, {0.6587635090763062, + 1.4725497587014986`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6529774533924649}, + "AxesOrigin" -> {0, 0.6587635090763077}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10663,21 +10698,21 @@ J/9TwohwAgGb0k/2RWNbvXL5+juRAJpJ/pZD2P8HJ8gGtQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6529774533924635, - 1.4837544619685583`}}, + "PlotRange" -> {{0, 180}, {0.6587635090763062, + 1.4725497587014986`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6529774533924649}, + "AxesOrigin" -> {0, 0.6587635090763077}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10691,104 +10726,104 @@ J/9TwohwAgGb0k/2RWNbvXL5+juRAJpJ/pZD2P8HJ8gGtQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk8VN0fB3DJvi/ZIwz1UNZBlGfOV6jsokSLNGZutiTkkbK0ICWE0Eqo -JJIty3j8WtQjKQqlxZaZydYIw03r7/THfZ3X+3Ve53O/33POvTr0A15MQQEB -gTH8/BkPvjBe1dD9gsZQmPxqymEjGq/Uku5QgWhuDkZm2MOFVrl6Di0oO9y1 -4489Gc9FpKiPUeuRpd3m2NWxiY+EHTpReXwwzQI77Ynq/cTyl6g/KUHJCrup -++DVH+Z9iHZ+wzZr7Il3HUcPs/rRxRf1P9dhq3MoOxfsP6B5+34ZGrbL9FGb -qM4htEau/JQdduuPCcnY8hF0dsvqUEfs18dUjtwLH0VfDHbdc8LmiThM8M05 -6EmrbYg7tkh6hB+V5KIVNs9TvLG15K+0H2SNoeOPpaX8sN01Fm7w7KfQuf5C -TyY2UaSrbCTGQ7SOGdkw7ER9j+TQzmnEL+GvjcLuV+k1iy6fQbVSMg+PYzN2 -hATnpM8ic4q+3hnsL5cFrtWEz6FHpjxeDraYrpHcjPk82rAvv/UGdi7j0SY5 -pQVkZRH76C629k2/RBNyAW0GKTMWtvWaFN5+1lcknOyx8SV2kNVQ54T9D2Sf -4+YnyGUjfuwhIYmVP9EphZ4SWewklqStgdgvZCQlu10TuwCsb+/r/I3SPCpI -G2zG9XaHyPIlkCZ6WicWu/xJzvAxDUFoNX1ZfQr7yyf/o+fSBSFl7lX5Beyj -hvO1d8OXQmOB2JsW7NwqHcq0uTDYRbipin1io3fdU62/SoShbkccTwNbe7Zh -h4ySCNwdIYxMsSss3LONSBE4dvoYxw+7rSluSRhLDFoiX9JqsOcf9QyN2UuB -XsmpvJgxNlJwlZI70ioFXeJfLXOwTXsdQNpGGvhz2Z53sUPY9UVmxjJg8NuD -nMSOEOw0/VtKDtY0ikkGj7MRR/fOTPKCPHBFclzjJvD+EB3iXVQFSP/qWXgV -W/A2V0f1oAIM+3jsf4StTV3hVT6pABSkeERmko122GfVvBhWhFcqH3eXY3cF -RkapPFOCxYe/7Ban2GjwZsaZADFlUE5LcNL/zEZTk+UltxyV4WKab+cWbIno -0Z7195WB8NV1qMB2OLnVIqBeBSwU4AfBY6PmUqv5skI1qNd2yZqbZqNSzreY -ddGa0MHo3xY8x0abt6UORlVqAret900R9lSb4sZKribEBeQ97se2KF2jpO2n -BdIyB9lOfLyfdP9aYdoKaAljmZjNs9Hs9PA/Yye0wTA7+JciyUaK+x3qat10 -QahN+YzhdzbilkoEeYboQlHXw7QD2I0fujU+p+hCCvUwvw57l+vuEyvv64LD -ZRkZux+4vtUxXhfMKRA8tsLL/yd+/8TNLwkqeiAhKaZd+ZuNtu6TNHIe0Qe/ -PnHOJSEOQjHbzLf/1IcXpfEdU9iGyYVrGWor4XqDmipNmIMESqgbErasBAWi -b3IEu3Jw5/aaBysht+/GIWNRDhLxqTimXrwKIvyXK70X56BGB7fXE3QDmM7x -yj8uy0El3vnvyQQDUC+xSx3GzqCPDAtdMoDNa+uHaHIcxEg6NKnVYwBrvK06 -fmDLt1wR8LY3hIEuMjlegYNCqDxDFmU1dDvTLmUrcZCGbmbiGfYa+CehwVty -OQe1nOYbLAoaQeTZ1IOJ2Lvm/HoJHSOo29Qtwce+2qZnsMHfCMRKB6oGNTlI -d1/zq69vjMCSRrQ1rcD9VnD0iWfGoHzBRCOVwkGaGlqEtp8pLPRnFiWs5qA1 -16OlviNzEE5y0f5oy0F0xol5I3dzUOtrDQv9m4MKKNmDAbvMobu+R38ee2lx -1d0nseaQbcQfEEcc9O7qxNbsanOYNc0krO04KK0g4IoBhQoj78wGbjlyEPeM -q7GviAW0MueSBt056Fqknmd9pyUEl4jUZtI5qDsGrT153QbGLXiiK3M4SMe/ -z3132N+waPZ3/vMODmL+vndH8zBAZdB40GdhLlKZbBRVoW8A22erVou5c1E0 -1fZDtqEDxNT1mn4r4CL65x/tihOOUB5Pn24a56LKDVGihV2bIEhkQrvY6RMq -5Yc8qMh1gnTWlWWStz+hr3aqz9sSXeB/Mtc2h2qOoQGBpTMje93g4LeapH/z -xlD48gNZxygeQKqNlynIjaM7we33zyd7gpLRB/OGy+Mobk6NXB28Bdb1Xy7N -/GsCzTtv9PlvjxcYfV++JPHpBLLZec6Os8UbeNkKT0UPTqJXaldC2qhbwddc -9+1zpSmkfuNES9lf2+DJfy4XL76cQo3Dhq7u0j7AF5Yc2Zv2GWn1ftkX89kH -wmRbCv525CHq+XMVJcPbYXuUdLW72jS6IjRnnP3IF/JpAZJnudPonp3Ju+Qm -P3jXPztAJb6ggrWn5X+U74DcFx/a9737grreX0+hpu+EpG2ioYTTDKp3u6wX -kbQLilLilVTbZtDMfm+BcMZuELt8cS9Yz6L5jQZBPHt/+JZ2o0Ly9iwq+/z2 -a5TVHnBWo1WNrppDvteuB+6WCoCXLovE20tzqLbGZc/S1ACgnn4uJKzKRzYa -rxbTFgPgt1GhaGYaH1GG9717GbwXFuwV+27O8xFbMtTj8uhecHn5tsiEmEfd -Ge6Bm7bR4c2DJFbN03mUG1soeaibDnGpZtOuxguopfX3YqBTIPRoDpxLObWA -ZHdBKrU5EI6qnWAI9i4g7WX/dS1vCYTMpqZRy74FZNrppirSGgiH5k7XBr1e -QF62O2/1PwiE/U2j9p39Cyh3ecyz+KeBQM1/uOLMwAJSH7gt294fCGdC16Z+ -4i4gPX+Vgl1kIPDzPKlqiwvIJoBXlmzBgOxf+bu2aJDoxoUvUe5WDFjfm5jj -uJxEy3pmaSrWDLjiIEux0SQRz5HsLVvPADuxnS5aK0j8/xJY0rmBAdofV7KG -dUkkQ8r7KWxhwBHJ+UlHQxKxz1qKF+5nQFhx0fosaxJlsI4GN95ggMQdYzt1 -bxLtN8+3iS1jwMAXjuUQtuutanHrcgYoZKUnlGwlkUQ+91ZDJa5PW1TS0IdE -yZGeE/fqGFCk4i1l4keiowZ6ofUPGWD7qvms6h4SheQ/C6sZZMCGEKGEoBAS -OclwbSOHGUCdoVxXCSXRX8kC0uYfGfB6IVjjCTY30rKymsMA1vd+vvZ+Eu11 -L/x8d4oBEY0+218cIJGvcFR41TcGnEofZIkeItGmKPWICmUmvMjJUeAnkOhh -YYpztioTAioMn19IJJFt56xerDoTZloyamhJJDLVf/bWXosJ/mEaP5OPkUjt -zRH79/pM+LFnJF3iJIkm1w0oS1gy4WTG+ejJUyTKFCz6d583E8pbLu2QzMb9 -m0gVuG1jgnzEICUP++TO2EjqdiZUCqxX1M4hUWyd56rfO5hwqK4x0CwX108s -OZdHZ4JqqUK7Ux6JqB10xuODTDiq5H5sy0USvTmnL0nJYkKQi9Zb1jUS3UHS -QWPnmFDcmdVCKcb5n/ltlTlMUONxB09jmzu1JVjnM6HGmj3kU4LPTyBw1u0q -E24s3uvmlJJo44Git7EVTJB8z94xdJNEmpqnrGh3cP7aPbrry0jE7ziQs/Qu -Ex4nBa3Kwy5eidwyaplg5tc/7nSLRD8HBu6XNDPBt0ncvaycRHWuGmUv2plw -ylfnBFSS6Mw3QeHcDibofMtUz8Kml03s9etkgmMCnTeILSfUrMHuYsL2NTzn -uDskCmP5Zi6+xv1ufdJ3s4pEFMO8GD0OE4wqrfQGq0n07U18zziXCZPC+nE6 -NSTqTmaaVo0xYSQ6RpKBnTBiMWEzxYR8S7FhLva7gp7dHnNMiBHw9RitJVG2 -qLxj3BICnCJY6xrqSdQyO7AzeikB6l11F/jYnwbKI8OFCQjPKBI0u4fvQ51D -EV2cgJ9a0rM3sLkBsd+d5QkYfBrnmNqA63d1VHBUJKD8guNsC/b6tQoGSIkA -m/jkshnsLOkKH6oaAWFvDM18G/F881C1hg4Bm3+lVKs1kYi4XtGuRCFAlhVV -tgk7K+vwkKw+AdpKwWXR2FxCUVrIgIBtwbaPnv2ZV9wUNGVKgNrb9YHhzSRq -/qWYyDUnwJancy0XmzM+fH7YgoBY+fpPTdjr7sc96rUm4PTDpowlLPw9h93R -+hcIMAg1tk/GlvE9YtmwgQCiJuxxCbaN/WbXagecFy7t+QA7Q+3j4eubCYgX -9ElYxG4UqsoqdCYgjsHTWdZCotHpIzcvuBJg6t7x3Ajb+olS31lPAniNpjR/ -bHr1x8lULwI82JWCh7DPXq4SPL6VAOMp767T2B8jnUxjfAl43SN4rBZb2l95 -U8QO3G+iAPHkT57T6O6QXQQ8uCrn3f9n/Yr4M/4BBCz731bHRexGCediXzoB -0ZWJzmL/4rx55SYvBgGNE+XblbGlR0a7XAkCoOBVGAXbuvMud2MQAc0ac2km -2PSG+J8QQoD0CvGqddhni52XrQ8jIClL/oMDduNZldWW4QRcLBaXd/+TH8u2 -M4kgwLqT5+aDLcWo9jWIJOB4e2v2buy1HgkHKNG4/7x/hgL/5K9zSdGMIcDz -iIpFMHa6vuoVlVgCun5eztqPfU+OUysfh+/ThMh8BPbI9+oOyaMEeHlv3Rv1 -J/9TwohwAgGb0k/2RWNbvXL5+juRAJpJ/pZD2P8HJ8gGtQ== +1:eJwV1Hk0VVscB3CJylTmIZG5KJJrSNP+iVJCosGU4br3iFCEd5MhiVRSNGlC +QjJGUiJPpRIyVC+pzM7FNU/3IPJ2f5x11mftdX7nu4ffVqYft2Xy8vDw9OHn +79u/XmfN88b67d7zfQa3JEm0fTjdgG6Wi3pv9nn9dUeK4XU1s3Ik96ObPwnb +hvFpiTDtHdpe90PgNnYhK+Itv1kdSg36FHQH+8J72cqI7CZk1FW25x52aaN/ +8pzef2i7cmZ0MjbnR03oqbLv6OjOOM0H2CtJVSeu6S9UyPAzSMfeOxJqfLKu +HV1Msnz8CLtijiPEyu5E9fMa0TnY3yJlTpf4daPs4vnqAuzhJWacST0SVXU0 +BhZjL4k74UCj2Ej8cWpsKbai2P1q/7I+xDHy5fsX21qemzlsOojGPOZptdhE +qoq09rJhVEe87m3CjlDfF32sbgTl/z67uAX7u8zXjYHZY8iibiGgD5vh6O11 +LW4c/Rdb9n4Ue/Qez4Mivwmk0hJ0dgZ7mYq26JjeFGp16t0oLEWi64y35qJS +XGSglaIuja30yCFiA8VF6lWHIpWwN62PGfYtm0bKL96fMMQ+athexzGdQyzO +0w2e2JOsID5BjXmkuTvQIxD7TJnQVs1lfxAnymghEjsJNuV41i0gW9dqv2Rs +Rka1WUD2IvBjK+n8ws5+f60jUp4XJo/wpw1ij/a6hCbE8cLb5NGweexQramn +T/wWg1NRq6+SNM5boKw6oscPxvYqOsewfzQOVvx5yA+vjK26wrGVxp87Lpda +An5ZUX8SsXP1rRO1qSVwq0HqeDl2VWnIIp+yZVDn36UrKUOiqbdf2vtMhWEh +6rVRM7a4pbDo6QphyDIUz5zA1v1qBiLGIuC54mW8qCyJvHuepW7UWQ5G6RIN +e7FP8NbpbhMWhVWs5cLV2KRK/lg0Vwz0ZvRYzXJ4fYgagQaaOKydPBf3G5s3 +h60s6y8OfFwTeaWVOC9ttW32gDg8ecyb5Y3taHq1qL5DAtLFP4Tzy5OowSPg +pEytFAQZ56nYriJR26P4S27LpKHez70tDHtwIPvh453SYKl3WzIbWzCw+8uW +SmkYXHNndLECiczOHdB3eyYDjdrinq+wX6YbTmWlyMGhFp995qtJlE7OBm8O +VACRfhv55yok2n3wfNvJPAVYStpuG8YerJLYlcdWAJqMc426Kon009dLKTko +wpaIS+o3savoLk/5t6+G7R8TO06rkWh8pOOfvigl+LFi3NtJg0QSvmbFT61U +wMxZqd1bi0TsdMGjNt4qIDnWyizAfvGrUX4oRgU+ED2HJ7GdLY9EaVSqwCHx +/8Ii1uF864Jtb+upwo7Z6KY76/H/OY9Gw2XUQL3V4A6pQ6IDnkLaFp3q8K2b +500tjUQo+KDe4Xl1iJMfkVulTyKt6BQjhpwGqN01b/HB5nlI2xG+XwP2ZJrE +rzAgUV6b0+Gi1xogJpDW5GCI+/NQbuTKtDUANNfKRcY4n5nVNw5dEzr+VNuk +bCfRQ7tbP6lwTfDPWH93Djue3tnBd1cTZNfbWjkifL7PBA0oftEE/fvDfdJA +IrHy+zx2plqgI1U5f90Enx/asFaZ6jp4nu+Zmm5GInmVKxGXetYD+25Yu9he +EpVfnNSc4dWGOYdJnWhs5wmHr4SyNvAwpqensZOr1DR3uGiD6eHSuU5LEql4 +vvw83awNZuduvi21xvPNJdWJWh3IWXrR9owtiRTkFQklB134KZJw3cuRROsz +AoV/Iz3YuijmSd4xEtEZUVPa1nrgb5y/2NAH96tqYpubsx7ci733pgJ7cVrB +k/csPXCI+xXV5Iv7LZlzILFQD4JK6JJzx/F9muR2X1OVBrt+HPRnBuL9vWSp +Y79EHw4Eso0vhJHoQYCazbM6A9C6+H2pdAKJGoOR0bkMY6hfezjN5jWJlF3+ +sz7isw1qBHQqLk2TiLlQkq9wCmBZNM1Ln8ZGMgMvlsrQd4DFjTTGixA2CqRt +/ZWoZQZP7JOdl75jI/rQXLUEZyeo3DizVVSqF+XtOLk0pcEcTFo9b0sF9qL0 +Se/Xudf3wAXRgpjLX3vRtInsp6qIvbBm16zyu519qJVn8VinuxVsbhJpqnvV +h/xWHb8aqboPZmiWKh8M+lG+V3XljWgb8Cn57feush+FTMhR67z2Q29LfXGP +BQdNWew69MHVFiKrQ3dX9HOQsVOCCbnfDkyKN/L9iR9An+Xue1fRDkDtm9kX +nhsH0crMqPKstQdho1kbjztnEL3o0LK0FjkEU9OneiFlCCl+HfUMHjoEnXeP +DfLYDyPajYTchx2H4d9VEs8Za0fQfb4JncS39iDg4cvbPzaCSkw2/IgudYDu +HK+3RV6jKMnoothctiPsX3CdvflzFDX8zIihxTlB2sQhtvnuMfTM6p7aiTPO +8Ohqq7xt5Rga87Xj8WMcgX/b9pb/2jiOpnZpHh02dYF7Pg3bZh6Mo6yhlumT +hq7gesfVv0Z+Atk/yPA4IuwGTbllz77FTaCnRXtdF593g+Fzg83V/JPIWP7z +zIUZN9g7duG+eeAkUu3w/NHk5Q5xQjkCzNZJ1CN0bN+9bndIVdYSLbeYQo3x +1h7mB+kwVhyx0zFnCl1npQgFNdLBKtPv25QwF5VXLMx47PEA71VnJk4wuGiF +M5ynvfQAr4Z1W27mcZGS5IeGVeUe8LTl8+rKfC7SrbOSXVLhARTfkEN/ARfZ +bnV6/P21BywN8PtkXMRF11cF14Z99IDbFQezP5dw0crWnBXV3z2gi//Gop5/ +uUjNRSbJmfKAgfrvjlFNXGTsNpwVrc+A8Van95njXJR5e/SktSED+k16tl+b +4CLJL+PbZTYx4KzGvGTEJBcN76S+Zm1hQJyhUssBLhffXzyL6nYw4EjzSNn0 +DBctp8QcxPczQHkf7Y3yIgr1XDYQSPFlgP/OZZeo5RSKLwv1epHJABbZtiVr +LYV89W4Zs7IYIFmr2E5oUsjycaHApmwG9Hgl/FTTopDgLfbj53kMeDcU1J68 +jkLRATackmIGMI9IrrikQ6FQTbVjz94wQPZx3aCpPoW8b9X6FLUxYH5N+gND +RKE9y9lbAzoYQK3wUe3AXhvNI6LXxYCO2ZaZWKAQO8Agr5BkgOI/iunfTSjk +bp0y9GSQARtcr3COm1HInv+kX8EsA8TvZyiH76GQ+cmVJ3KlmcB6P2cna0eh +NykxFomyTCjbbFz4Antr3bgaayUTfFf/RvYHKKSrXttiqsiEYyOBY9cPUkiu ++bTpT3Um0AfEU/nsKTSwuVVa0IAJo0XqQq+cKXSFN/WVpx0TAk92yCcw8fw3 +CCdZHWSC56cEugxBoXNOrADaYSaI0/d/u4fNKrZZs+DIhN3LT5lleOL8xKKE +m3QmRAiwjXK9KESroTPe+TNhW0CJa6IvhZoT1IVUrzLh9TtWZ0UghfKRyNG+ +BCaoDnHcVYNw/aHJqrxrTDDaFrLmPLbenqrwTbeYUMNzN9IyGO8fj8e4VTIT +bHckHa//h0K7jqe2sHKZ0Jh7V6kghEIKCrGG2/Px/Pds7F96mkKTNcevLX7C +hGZW6pQrdpoGsop/yoRNyytbREIpNN/aWvnwJRN09efq3MIoVGwpn1VfzYTs +hZx93REUujTLy3+9hgm9nXZWumcoRM/iuDvUMUHQofRyKLYo30v5nga8HuGn +v4lHUsinzP7KzDcmZJasjDE8SyFVrZvBaiQTPpcb2zieo9Bsc9iXfjYTWt3d +Au5iN0YzdQv6mCDw2ubbT+zwTn2O8SATStBhD8doCv1I+nJk3wTeL+UzV61j +KJS4VGxnyCIC9sPwOolYCpXjxglcTEBMaXasNXZva3aAHz8BHyXcqVjsrcVm +qXQBAoSKQgV/Y7PdWL8txAgQD3rP//UCzm+5U3ynBAFc2UejSy9SaIuRuCaS +IuBihuDQZuyrIrmHaHIEEC9VVyb/HX/ZXiivTEBjynozh0sUIjJyq6VUCbh2 +s7A0Gvvq1VPtK9QJGAyxhUJsNiEhwqdJQOD+0jP8cXhcwvzooC4Bo2u76tKw +X/6RiGDrEcB+JVTzAZvs77jRoU/AUdvZ5gHszZUhb79uwvk+LqhvvIz72Sdf +8RUQELk158IT7OX2pw2e7yDA5sCsUD22seluy0IzAjSSPiRzsOPluk5l7CYg +lq9iSimeQi/4Cq6mWBDACf9euhm7e+T0o9uWBAh+tIu3w970Xuq/yzYE7Day +PXoWm17YNXDeloCIomrfJOzL9wp4zx4goCAnJioPuytgj26wPZ7v5TftX7FF +XKTNTzgS0PLFQKP3b7093Ue8nQlg7f8ZOv33+9Vhl1zcCOgJynaUvYLzCFqk +2dMJKI6o7dTA7pqSLrVlELDrvMgpfWyRzu4GS4KA1R0+SibYm+qesHcdJeC2 +IrvZEpv+PGwevAlokwlOOYx9Oc1CcosPAcOdcv+4/61/WWadgR8BWV/qXbz/ +1mf1mGw4QUDlucRDAdjCjEJ7zQACaj7RXU5hG+0LP64aSIB29bbgiL/1N++N +UQgmwLheOfkcdpy67H0ZFgGyp0W+xWKXiJJPxULwecheUIjD7vxdWCMUSoB1 +CBUU/7d+b3gnfzgBzuaTrVewDT/vnV6IIODRk6mDV7H/B0Wa8HM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6529774533924635, 1.4837544619685583`}}, + "PlotRange" -> {{0, 180}, {0.6587635090763062, 1.4725497587014986`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6529774533924649}, + "AxesOrigin" -> {0, 0.6587635090763077}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10798,7 +10833,8 @@ J/9TwohwAgGb0k/2RWNbvXL5+juRAJpJ/pZD2P8HJ8gGtQ== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6529774533924649}, + AxesOrigin->{0, 0.6587635090763077}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10826,7 +10862,8 @@ J/9TwohwAgGb0k/2RWNbvXL5+juRAJpJ/pZD2P8HJ8gGtQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6529774533924635, 1.4837544619685583`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6587635090763062, 1.4725497587014986`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10835,9 +10872,9 @@ J/9TwohwAgGb0k/2RWNbvXL5+juRAJpJ/pZD2P8HJ8gGtQ== Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913355426284504`*^9, 3.993128300889401*^9, - 3.9931307718828077`*^9}, + 3.9931307718828077`*^9, 3.993827989649954*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"9960643e-bc5b-4f6a-bf3b-b83b210acbb1"] + "Out[116]=",ExpressionUUID->"83077d5f-bac7-4a11-934f-28c88104e434"] }, Open ]], Cell[CellGroupData[{ @@ -10903,159 +10940,181 @@ Cell[BoxData[ CellChangeTimes->{ 3.9918494141657047`*^9, {3.991849451432905*^9, 3.991849451715925*^9}}, CellLabel-> - "In[120]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], + "In[117]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.879795302182945`*^-267\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.091992496464936`*^-264\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 120, - 46, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.993128301107984*^9, 3.993130772055571*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 117, + 41, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993128301107984*^9, 3.993130772055571*^9, + 3.99382798979471*^9}, CellLabel-> "During evaluation of \ -In[120]:=",ExpressionUUID->"7b0079d2-f09e-4719-94f1-7e0cddcca131"], +In[117]:=",ExpressionUUID->"1c60f3ff-f096-4263-ac4c-854f75e3d53b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.2568447587924138`*^-278\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0960040014864174`*^-275\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 120, 47, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.993128301107984*^9, 3.99313077205805*^9}, + 117, 42, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993128301107984*^9, 3.993130772055571*^9, + 3.9938279898028803`*^9}, CellLabel-> "During evaluation of \ -In[120]:=",ExpressionUUID->"9b908c30-d98b-4c53-9466-0e6cdb79d29c"], +In[117]:=",ExpressionUUID->"11f66c7b-12e4-441b-a267-9f879b7e0bcc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7686494110980474`*^-289\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.1000302430308965`*^-286\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 120, 48, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.993128301107984*^9, 3.993130772060047*^9}, + 2, 117, 43, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993128301107984*^9, 3.993130772055571*^9, + 3.993827989811358*^9}, CellLabel-> "During evaluation of \ -In[120]:=",ExpressionUUID->"63d39deb-3ee1-467b-85a8-b1c2adddc14d"], +In[117]:=",ExpressionUUID->"2a0d9b73-be27-4c8c-bbb0-f41eaaba73b9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 120, 49, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.993128301107984*^9, 3.9931307720640497`*^9}, +during this calculation.\"", 2, 117, 44, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993128301107984*^9, 3.993130772055571*^9, + 3.9938279898195887`*^9}, CellLabel-> "During evaluation of \ -In[120]:=",ExpressionUUID->"9afe6205-5c63-4ea7-9287-13b93c8d275e"], +In[117]:=",ExpressionUUID->"8a4f6a49-7d0e-4463-a68e-f89c54792531"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VF0YAHAlWbIPZpJlZgzJvktM71tKKGt2shUtKiplSVlKiZIkVCpb -ImTuFNmKUFlKG9KmTZGQXZR89/vrPr/nnnvuc88573IZ/sGOAQt5eHgkFvDw -/H+d6mlpYiXlrzYQzVLx6FyzuuMqLWJNdxz8zO7W6PSkA0o/86d1p0J78O6i -Mk8dOGR/8zVvdy70/Vi3L90TQWKYmjrzmgtdfXl/gj3t4WOtbfDE6wZIynjl -NenhCxasgQ+jr1+C0yTtqqx7CMy8Nr4w8voLXDc/faLKIQYazW/kv8gdh52O -hSecPqaA3Meq7/4ac9DsIHo0qyETpHb73OQ350XjwmL/aEo2pOpa1Ng6C+Cc -TcWy4q48eJOpUz8qLoLR+9pWaEvegKT86GcLl0pgWbrq0VSTm0BN+3rq/BUK -fmr/l2oxXAI09fLjvwsouNKxuenidAnINpyI3sKhoGL5Q/U+nlJQGFlxcHkj -BTNjr6eFUEpBeVOIb00/BcvPBhLslaWgv2jO6Ku+FLba3KDVx5SCXahMr16r -FK5WGBL3FrkFJ52sVr+ckkbmZ7HUZqkykL3TLrtwgQxObVisYi1fBrcoTtO6 -S2TQJ3BXXpNyGXS99OacU5RBibFfLvlGZcByCGU6WMrgYBw3QdStDBpsri1+ -flEGywy/bjlzsQzmLCbbn5pRkW55oDljCQdSCiKL5yyouFs4MTBQjAOsxTwJ -mg5UfF7O2aNL4cCmh0JrzgRQMSddoqJWlgOXzOm3NyVTccfRguWFKziwEjdm -tH2k4guXdJeXFhw4YJLj0xJHQ8F08937j3LAOlt0YuNpGlaHm9elxXKAyR+V -0H6Bhp+Uun7ePs6B5x0uxKtCGtbtc3rRn8gBrRBh3p52Gga62rdpZHCgvyCs -YEx2Kaa4uAfJl3HAS8p2aNntpbhgNlcs5z0H9A/XxF6tXYr7zlpFeH/kgNAX -VRnGo6V4cWxbDe0LB6rKeEHlzVJ09aa2HOvjgMzGqhSd+aXYabJnicEY+f5Y -lsH6jbLIPyplPLeYgHW/ZiP3fpVFi3rJCj0tAiIs09QeDMpi9K4r8dE6BNzK -0XxLmZLFbH/CrkWPAJqTr0mVwDL827uwY7MxAYOVD6d5tZah3phnzjok4Hxc -SujF8GUo+FF//wUHAr5Iq+xtEpFDq8zz+pP7CKAG18lTqXKoXs1X9PkAAZua -3Z7upMthJldEse0gARWRSRpi+nI4yPdG5EIEAYkfRwbc3eRwUZHv3KJYAvSK -arb/ypVDsW5eH+ezBMSaOfjJrpTHdWq8WtVFBFh6Xx0zXiuPS3PC3u8oJkA0 -5ucx503yKDV/RlSqlICsxviCFF95bH+1bd6HQ0CldfXPxafk8fKEC729goAR -N6VD42/k8Y/ug8e8jQTcjQzhl+iVRxOFS32RTQQczbqXqTUsj9OP81OHHxIg -/Mm1ZudCBfwj6H66rZmA5dtP83xSU8Atw7VyXu0EeB+cTHxyWAElTX+odncT -oJyxVm4gXgENz+ib0t7+v35nS/lTFPCBjsNnp3cERP5d8XxtvgJKRG7+2fiB -gAvHvKWrnihgtkfL4ogvBDw59/jadXlF7INjn+Enud63pXQblyuifLR6uNUg -AR6dfg2fdBVx/3rHErshAvppf3uXWSiiamXRL4dfBPBm66il7lXE53uyJjTH -CVh16+Kdo3WKqLm+PGndLHkeXrfPDTcrYvPv1JVCfwiw5Vm0weelIpbuX//3 -CemtjnvfwDdFPKsa3Go1R4DFYUZ0DB8dFxb8PEfn4UKbWG3eSiE6/t0dw/eM -tH2+S/OIKB3ZnafSIhdwwfNpkoQfjY5r17rxtyzkQojiVN4adTre7r1sb87H -hcnbKc0z2nS0mU3gvCUdaak+RBjQ8WRrpU7wYi7E7/M1Yq6m42UD57Sz/Fy4 -1NjavNCBjlNj3TOlglxQdAsYqnYm5yvQ2qMlxIX8wXmJAx50NLzUwFdCukza -0PPrVjq22OsUXV3Chabt14YaD9FRfC21zU+EC1Z/TSSjDtPRz8U2so10e0qH -kUEMHVc//LlZT5QLb6oEY/JP0TH06WzCNGlv2/x8r2Q6ShXe/+YsxoXeL6tb -pM7Tcdb7TDBBenhJqGR8Fh3z3KaFfcW5cCBb1JidQ8d4iwHGbdK/DYo8J6/T -kS8wI5BXggu83j35AWXk+NGu2MukE8bCW+Tv0PHttkfuX0mLnqQMd1bSUYCq -tk1Vkgs0jqWxRQMdB9LEKDdJX1n31fPfIzo+Lh+v/E6a+eZITEUbHWl14ml0 -Chc0F95uUemkY1LIg8Ek0tx0m+GeN3TsK60Nukd6pXq/ZEYPHa3m6piDpNc6 -yXvx99PRlVVuukaKC4/778bUDdJRq5FybTvpTUccr4eN0jFmgRM7ifRLiaEW -7Sk6DvdoUktIuxacHO6bpaP6vLtmK+n3q5iU7Hly/YrOxXwj7f+s1thtEQM1 -mpMl/pHu2+rqJS7IQP/+JZ8p0lzY/Xs0plmEgQEmTb9USK/aFyjzXZKBcl2T -UStJCwy8LealMVDgyodnFqS7/O3WMOQZKBy++4cD6evvGrtWMxl4UCut1Z10 -qNPK3V7LGWixbUOoN+m1T0sWRGowMOFiRJ8PaXELRkaGLgMLVygq/3+/5/4F -jXIjBj6w1tT6//kSY6GGl6YM/CF8iff/+SM5R11HkIGp7l4F60lbrhgfFLFg -4NOxIKoxaZnc7XHqGxl4ff8DV2XSvbLvqVb2DNxr7bJDnDT3vH1poDMDRRpY -1r/J748Rfrj2uAcDPaeX/3tP2i7epDvHh4G+Hzzj75NW+Fe6p24bA++Y3vuU -RXrwEJP3w04GtpZaSYSTrv6Vnjm7l4GGufNUe9IJO5Zo0ULJ+T16JlmkXT5H -NxpGMFC1/1vxFLm/LI8Jt81HGRiuQzV9SLp+44djyQkMfJ7yr9+NdHKTw9KS -Mwwcjq4WVCDtxX50qyWVgZSuYv5P5Pma0Sp7s+gKA+3Q/JoH6eYbSsHMXAYe -ypxcRSGdTs9chDfI7+mZvNtMnl89yVjtwwQDo8IWeKiR5kmabMqsYOCuAMXY -LjIe2nl3eVTUMFDoIOdMNOmgScf40YcMnGlz92wm4ym/m/Vu+1sGLjlj+N2A -jL/9DhdD4j8ycA42uzST8YqtIovzehl48/nmO26kP9RM6fQMMzBw3Hx1iDC5 -H9eaTzjxMvGpzfSNSDIf9FLZcvsFmLi6kH19kswf3BSCOCvCxKMG/Bf3kLaL -u/S+lcrER2pxO5wEyPUM2K23RoOJHtEdD+fI/DSjLt6j6cxE6VW6++vJfDd1 -RTZW34OJMx61XFHSE2LKLBMfJgY9WEr1mCdgeNxk17qdTJSJyrTrJ/Pnl5qt -Ux5HmEhV/3blC5l/WzfeFU24zsQfG5rz7CYIeHzvAXHmJhPNXj/LCyHzdZP2 -E6fzZUxUm1R5kzxGwH3K50tXq5gYXbKyv2GEAO47oeXlT5koIcu+K0jm/0tB -3vBlkonT1vbSlG8EZHzY8aVvlol3a0xG+XsJSLM7ED80z8SQ2VNSs2R9SdZP -aPstqIQLqn4bdn0iIO4P4SqmoIRGqlsX7X1PQFASX4iZhRKKveh8JfeKALPi -kuz0dCVUM7aPir5PwDt68bX1l5Uwjn+zi/E9sp6lF12duKaEpo8sxwdryHoa -W5DlWKSElW1zEQ5VZD13y84UrVXCDlHjrvnbBKzgS0s58VkJdRWcC8cKCZDx -ORxzSIOFHalhlcbnCCjviIhW1mXh6Mmxj0Vk/XeyDj/aYchC19ykgaXJBKQa -HozSAxa6C+mXjicSICIcHD7swMLS80y+5OMELKryDwkMY2HxzdffvcMIGJW0 -9nVpYGFExKvqcE8Cunczn+96zEKpOf8/se4E1D+ahegnLNS+yt+X4EpASmSx -YmEXC5+N/m46u5kAnS/CH2cGWFhvGvQgdiMBe4lnW65QlDEgSGpoehUBA3bO -nr3blPGD/qE8IxoBvad9Xfbzq+Cj8ynCG59wYO+ABlNHWAV5qZ9LJ1o4ML1h -ZmhIXAVvXXdOy3pM9ne8qfE7ZVXwn5u5YV8DB3QiGu/4aqrgh2b/vu1VHDgS -oEKx26yCiy2zRGkFZL+3evCZ+jUVjLgSe8SU7EetfoVZfTNajjzGex88I/vX -wa0CB+5Eq2JQW2zepbpb5P8GdeHJhhVYUl1RelywFCSfqiRzfqlhTBknOcK5 -GOQSyuyNjDQwW+03p3dHEWSqm4hTtmui/r2k7zOpN6BVdo3h+DktfPa4+is0 -XYdVcg0p2l3aGOB8Z5PVqzwQ5c0N9YvTwUhbA0E90VxQiFU0c1fRRbFF+jt2 -GGSDoLJXheNjXQwOezlbM5YFWuylZWFb9HDOzm9a7vtF2N8j2WjNo48dOZl/ -09vT4df4aWerTNL+I/n+zDTYoP3okpWmAY563P7qU3kO7o+b/pluN0BL6Vf5 -628mw14NvbcvAgyxXtZGIDsvEdjD2zrcBY2wcWd7/bnqE7CeRbMRyTVCU+8P -7+hRx0A1JjG8wdgYLS/mLDK6GQNqASZ1ym+NcSQlxO7B1GEIuL/j+J19K/HU -laCPay6HQV12x7ZRaRM0ikjclnzyAEwUzk9r3zVBj+fRbAf5ENiqXCx4yWYV -ql/unFnXtgtG1c4bcUdWYa7ierHipwFQmf/n82SCKRJxps5RX/3AyDx02jrJ -FF/r1A0Fd/pB+edB4ewzpnisWVVhz2M/4Cr0GFunmuKkUJnu8WI/KMmsP3P1 -sinaGY2nsEL9IPt0vMmGW6boyRuWs4LfD06Fip3LfGWKnxcO/6Ib+ILHOjIW -FczwnHZckqPDFpjrEBBtpJuhJEgdvmO8BbIDht9ZK5nh+/trBdUUtsD3E1Vh -HqpmqErZ+dzupxfsb7Eri9AzwwLfnNvHT3hBom2UQqWFGXKrYzRO1XtCtVvn -X4NgcvxDq77CtR6wbM/JKq16MwwppMjeiXKF5PlAw6QGM9zlF3RFYKcrLEy1 -IPqazFA/oLs0yNkVBir4irJbzPAgzcBxi5YrVPMcz5R8ZYZXSi6UDX1yAY+0 -mLCpb2YoVHb7X7WlC2TWRBjeX8LGXBB62Mp0Bmmh3YSNKxsjtH20vvxzhHzz -I5Ej7mwUncxIIwYdQe9Isvl5LzbeDV4WnvLWEWxHOJ3dfmx88jYzMarCEU50 -Tc5s3c1Gab7nN4SDHeF3bvTayFg2ijQ6r+D96gBvTc+/Kihmo8PT7qK5TnvY -cTA/y+oWGzcltuTdeGgPU7fKAwY5bPRuqm/wKbcHSWb3tG4FG/evMLWYTbOH -jQLycvfq2ZjX/2PNayd7qO0o2Paqk40vKi1U7G/ZgbVopeahbjbOU2plfM7a -QfeGlinaOzbq0ZYLnQqxg4nqnwnen9i4pTOvSFPfDjRzdEp/DLCxyVM6626V -LdS+XXPo9BAbl2x5FJp12RaspTaD9ggbbTfIEZeP2ELgyYMvQifZuELrK9+P -NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I -8cMGru6pnpyfZ+O4wfHZ2jYb+A9FvKVq + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Ve8fAPAbRanI3te914qMbHf5fFBGJJERkpEUGuQrSV+jyCgZJWkh +NGTce1OhbwkZbaWsolBKZkYS+Z3fX+f1fp3nnOd5necznkP1O+AUwEcikRhL +SKT/X2d6WhpUUgvNCnUWRU4e3mDWdkXmiHlHPCS8rDCyaKQBSr7yk+nIhIOH +/7ZLNepDhOOtdv6OAuga/Fs0+8QCREelM3+3c0HU5G5s0xMn6H3gcGCqvQ5i +tJm1ak/8wEpl6ONE+xuY2zDVWVkXBr/bTc6Nt/fB6yJJr7/346He8npha8Ek ++LDzhO64ZIFCb9VXP60FcM/vSD7sdAkkQnbeErTkR+3Xg/pf3QogU8+qxsFl +OQ7rdv7tTyuGzpz1tRNrVqPp1beqbtRbkFoY84pPVhQTc5j1VqdLYZPhXjFJ +ZVFc9kfq5r0LpbC8wclFXVsUHzbo5VOKS+FEv2q3nbkoRqc8f9j1sBSiac+/ +nt0rihe8RvaPjZXC/jyZv2rVoui7XeNmjmMZbL3E0bLzFEPht+ph3SvLQfps +f3LWZXEc3MG612VYATLrKk/MFosjwzVJ5A69AuTqEmN2VIij5JcPj5LNKoA8 +rvGPer04+qy1VtO0qQBV+4M+Nd/EMceYNGfmWQEGSxeM+w0kcH7oKN6PrYAt +4VID+k8lsPvDy9tfmivAceW3nvNvJVAl5ve8zYsKcCqo6pz/IIGpoqRzN1or +wPW116vGMQm8lzqT69VVATu0rlV7SEpiTPi6yfM/KiB4QDcj3kcSHXpZ/3qu +5sDJbbZmb2YkMfaZdaa4Awfk7ryU41sihfpTDsXOThwoE9/2S2+lFI5KKDqc +ceXA+zfeFRlKUpjU98zttzcHVLaG07baSGHDgpBdzgEO1G2+KvD6ghSC54dD +S9I5sGA1/fIFSxptLvBbxbzgQHpxVMmClTQWvbu5Xa+VeF6AlKS9VRpzlyTN +9bRxwP6JkPnpAGl0mTzbr/WBA7mWFJ59mjRe2z3lmDXEAVO0O/+sVxor296k +pQhw4RA9f2dLvAyuP/mmiMbkwqY84Sm7UzK4c1WuhKgZF2iC0Ukvz8ngj8jj +1/4gF163uXLe3pDB/HYd2hMrLugcXMXf81IGp7VdizWcuPCt+HDxTzlZtBau +/m66hwteEg4j8jxZvP+tJy80gwsGR2virjwg7J2xayCLC0J9a6WojbIY9jrO +wTmbC1Xl/KDWKYsn7phkq17kgpRdVfr6RVl8NzY/f7GQmD9OxXCjnRyuZW4O +eX2XCxvG5qL298thXWaNiUcHF47YnNV8PCyHN4R48TZdXCjL1+4Sn5FD0xdU +VYMPXJDZ5kOvWi6Pp+sEwxZ6uTB8/8kvfh15HBwpNtk9yIWs+PTwC5HyGP4y +7G3SNBeauzVUhuPkcUzIsoX1iwvzhvVvzVLlMaf0vOLILBd2D07rD1yWx1vp +9/st5rnAsPec0KmXx6vXYybr+HjQJ6m2v2G1AlbnTmdIivBA+sAjRWlpBczZ +8bzkzBoe2De7v9hLUUD1K45aAmI8uBuVqiVioIBjkxn+3yR4kNI7PrTdXQEn +ChKr4+R4oH+zJnCsQAFJAropy1V5EMjnIm1xWwGlgx852arx4JLnaOPZSgU8 +eYKRmqjOAwFhqhqjWQGZcgEOMxo86ApLHDgxooCZUlM6JTo8iGNt9ZUzVcSN +LvmDQSY8sPG+8tPEQhHd7G5bJpvyQDj2x3EXe0X85agedY1OvL8+oTjdRxGv +tA8cecbkwf1N1T8EkhUxkizy8TvwICZE8JhKliL+XEpTHUQeWKVtE7a4rIi3 +W+45fDLnQVvr6PpjHEVsuiqyqdGSB+PuyhGTnYpoJW7yx8eaB/eiDgqKDihi +dLviXrYND/699F+OziixPr+fjyRtebDqk1vNXj4y6iw31KrexAP1wFOkT5pk +/B4qIvdmMw9GkzozFgzJaP/Scei0Aw/u3FJTlgcyljLMSzZu4YHFaO1GV2cy +jq7T4L/pyAPvf6ZTnh8l45dwQ3Vw5oHqeQuFoQQyfl699EIX4eH7Z0oF08ko +k5fDH7aNB1HzGq8tCsno52vYdNaFB+bkw74+ZWS0KXCkUVx5sBwbfh67T0bm +X8+o64TPHfeWrHpORkerSNVbbjzwKiopfv+ejLLxN6JU3XlAa5o1mfpExuAI +gdZLhCuEsjx0p8mI8jkJMdt58Dyj6WqRohKOtx3UkvTkQRZPQq9eXQltQnfd +PEjY451v3Sc9JWxOhvXNhL/JzA/IWynhwj2KT7AXD8oZthF0RyVMUtu18h7h +CK9sQTcP4n7tiid/CfPnrdfM3K+EeoX8e+J38ODp42M15ZFKyF591fkh4fT+ +p/Yv4on5P2k6zRB2WybTM3RKCa3vvtil6c0DsnrAgeXnlTDEvfyUB+EvNlyS +Wr4Sfngy+zSR8O2gxQzLEiXcrttGKSd86JS9sm+lEor/CjnzljCj7MKdfx8p +4eXyMekpwhvaXy6MNithTbnQuPBOHjiQllrvfKOEJT7qAWqE3TXo6a+6lfBC +FSuSQdjfaX8nfFHCgnMWmnaE9x+9RqsYVUINnl60O+HIwo5gyqwSruPxH/Aj +/PhrokcziYIpMjz+vYStjlJjYpdRcK81kxlC+JnIg2umQhQMPZEj9X87Fro2 +jwtTUGuqKXsP4femE8M3xCnokNv0wJew54tUUV8ZCgpuz052I/zJV81YVpGC +ruMGf20J756p9WilUtBzIU+eTvhHimdMshoFL/zu6VMhfFBp5pr5Ogq6Mca3 +rSY8zUtv/q1Lwc9j7WE/ie8RZbNuhGNIWCWX3UaY9PGJaBCdgkX/Me9yCSeE ++hjTzCgYfrju42nCQgJ/PLosKNg+aFgZQDg991xMpjUFR47mshmEc+ufNvNt +paDFtE9AJ7GfSu4BI9UuFNw60CZQSLhweFH0kAcFLVf47QgmXC5p5NnvT0F1 +zV/a40S8GN56FXNxDwWPv5a5VUq42iyo0HkfBXVIJ3sDCTcEXh2pj6CglHNC +1BsiHm3n6WLRRyk4cMuoL57wy/Q2Y8NYCt6cDBNcT7izakVsYTIFhYs+psV6 +EPnoUFjolUbBxkq9SWXCA31mLRJZFDQV8JFtIPJhdGW4WMIlCmoezS+fI/Ll +UJ6wCTufgjmFn6kZhGcNb3pOF1GQIeXqoUKY37unMKCcgs5xZjRzIv9kKmxM +rOoo+KH7h9Y2In8vb+j3/NtIwWyN62OvifymdR6LvfuMWI/1wbhNhLX5eC1q +7yj43e66lCFRDyy2KXoJfqPg6q366p+J+hEyOxHbvJqKZon/9l6zI+I5dLfU +VzEqBoqV8nqI+rR8qKuEX4aKxxkpHyUJF3XXvzejUXGdvYXpEaK+9Tw8p1Vp +TMUV3ccMJDbyYEsCvSN/JxVfdkxkXmIT+fW3dN+jXVS8LrI74jKLqEcRNP6P +e6nICq5tyiXqb9KelToy4VS84udanULU51q7j8fTkqi4UjFeCI2IfiEWp3uU +Q8Wz7PzKJVpE/KRON+TcpSJpolX/qSaxH/xBHndrqPhrYKXJGaI/BE87JUw8 +oWJZJ1+3MNE/CjtUugO7qBivs/jfAJUHUlebE7fx0zBF8I/HsBQPfq9b06Pt +QsOD2Z6hEX+5MHNZLs7Ag4Y3/5jd7iL64ZSIqgp9Jw0rFQweM/9wYXSSHrRh +Lw2DSqtjpoh+2lfjP+NxjIYhjoHROMGFp3b3hJOKaLiZ4tRr2c+F3GBv6Jum +4SHljAb+J1w4/3FP3+AcDfOeMIME6rlwdsuhhJFFGjZFnSILPOZCmkHSs9kV +yrhDp7Nq/gEX4v9w3ETIyliTaj/UeIcLwanLDrKslPF0XHnp62tcYJXczsvO +Vsa0fRcrnsRwoZtScnXjRWX8EeC8eO4YF6Kyb16ZuqqMXq/tRv2PcuFeXPEl +p5vKeJ5RwJ2N4IK+e16O8ANlTP57aH7Zfi5oLDubnvhZGfe+kHxT4UmcX3Ye +jY3QUkEdAYWYrUZcmBDb5ONap4Jr7c2OiPRxoCOE9jqoSQUbH35ukO7lQG3j +HMQ8V8FFX12uInF+S48qUbrxXgXfLVgcob3nwPq+Vb2/h1Qw+tHNEZGnHNjP +ebXjsrgqft8yLhbN4cDQFhfPgV2q+Ls1Maz4Xw4MnPJxDRNUwy5F7o/bYhyw +HTts+8VYHQuUL3mGGlXAsP/yQ3di1uKc0AmT5B1lxP+GNN/JOg1MvG74jxv9 +Noi9UEurGNNE+mdS2eO1t0AhqdzR2FgLRy7Lv701cB1y1tHXiAdqoyrp5KzK +0yJ4KmduNJmhg7RyXdZEwzVgKNSl677XRf0QDar59XwQ5i8I941fj//wxLsp +qVeBHKfE2q6mh6WWVXO5dy7CClWvu05Neli/OX2pg1EO6LBlyw/v0Ee//uFD +yw3PQViPWP0mkgHKnZblZDMzYWzylIttjgHGtkhsZkecAWvdxlxbbUMMu+id +LC2cCg8nmX9+vTTEDYeG8mJeJcJ+Lf2u1gAjvNX6rGvVtuPAHt3Vtn2FMQrz +My8LCsXCRhWZzasLjJH+I9L4WmMUrI1NiawzMUH/j3oyaBcBmgH0R6pdJlhU +8GO/h3oYnKE5zB3/YILtx0PWG8uGwVSvn1FfjwnGD7saya8Mg4cep0qu9Jtg +lemVX6SxUHBy7D0vPWKCsznZnxn3QuEIM+HgCpIp/gz7N2iXbSg0i7ZSR1RN +sVRsZ+iB8IMQ8HDPiTuhpshMCp/63LwPRvcNHd4Yborv+/gjZ8r2QaRiSPD7 +CFNsc7bXIZ/bBynRB5xmj5pi+EKf4HXffVDBiKCwEk3R4c8988t/QmD+7vEH +9bmm6DwXtU/MIAQyy69Mvak3RfSVUXlXHgSP8tp2TUjS8dUry9zQnkD4ZE/d +GSFDxyWRC6f8WwKB9Hvf9j9ydHShnTgWcCcQLLYKOiyj0LHFYk7vQkogNC5h +mMhq0lHuK/Y+NAmE535XV5ib0XF7/tKVf87uhi6VoLL03XRsnF9qO+0RAFM3 +Fn/p3qPjYjOla1zMH766WuUlV9FRIFdtXT2fP3QsPW3TX0PHR2fTg/N/+kGN +j9yF7Fo6vr/sciXujR/EyxgxFlroOPQlU+B1ph+sSQqKfvqBGM+tfHxF0g+0 +At+RAvgYGHQyfM9bZV/wVy1ZkbuZgYvT7i6sOm+IeuIdpObIQJ1EZ9F1Rd6Q +HiD2jOvEwGWZE1/0krzhQdGRU8/cGLgxqfH8SQdvkFCzEVnwZeA2awPXrR92 +QKPaFwmfCAamJavIOs57geZaJYraVQaumggTTd3sCROaWcbccQbqLxyqzdBz +h47nuFF8koHcvfp/L8i7Q+3+UefwaQYmtyZ84i1zhzSubajxHAM3x/3nr9Dl +BpoM0u1qfibalATIPzruBn62+6j1Uky8KnFC1rzLFdoCrVe1sZh4P6+p/muW +C9wv/PN5OomJdjFzJ61MnMHYMvzXplQmkgqtou+rOkPl5+FVeaeZKNaTUGUq +4Qxcco/Jpkwmbk84P+g/4QS3c2pPX7nIRM2LhqRdt50g71QC3bqMiSkfxYr4 +VJ0gOVwkI+ctE+/0RLyKoGwFjw3KyCSz0G1M9/ruaAdYaFsuXE9hoXX+88H9 +OxwgL2C0e5MyCweMl3pmmTnA18Sqwx5rWSgfFxK3fokDhLVsKT+iz0KlM3JB +VSc3Q4pDNPm+FQs5Tqcrf16wh2r3d/OGB1iowi3U3/9mE8jvO1mlU8vCVhK1 +UOiMNaQt7jZKrWPh8I2ySHKkNfBlWnEGG1j4KVou2MrXGobuLruZ18JCO919 +IW8MrKGadCJH7C0Ll+mqmHR2WoHH2djDM19YOPVsoeashhXk1BwxeriSjSk+ +6h2e7RtglcN2jpwwGyNnVh95X7cBYj+Zah9ew0Z/DUUf/7INsGfZrMp6STaa +/ZVo5iVsAJMtERIFZDZ2CE+GaxttgPd9YZMJemwUDndfGXneEiSFQjib3dhY +lvifqdBeCyi0PBY1vp2NR158eJexzQL0j6VZZnmx8SvrvpQOWoDDeMW7Dl82 +Wr34xCiUtoDE99O//UPYWLg0WiyhyRxmC2IsouLYePr5ZpcV68yhi5n1triE +jTXFy47mkxD2/FN4ybaMjfm3d580/ggwU1YZMFzBxoepNUu3VAGI0Tp+6d1l +Y07vAbPRUAC75YoK/9WykWu/XrRvwAwetBXvevuOjekLjpfjW9mwSfi+dkQH +G+vqWWmV5WzosG6Zkelmo5/FZb+VaWyYqv6R5P2Jjd8XB4yV7Nignb++9PsQ +GxszPsgNNLLgQZd5xKkRNt6QkrijWcyCTUQM6o6zkZ98xCgrgQW7T/7TGj7N +xrDMwfCWDSyYqk3MlZ5l46Vd9OlsFRbEz533r55jY2ywbV/CUhasMbyptWOB +jddkIxSzB5hwZV/19OIiMV7GKKmpgQn/Awo/wnM= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -11069,120 +11128,134 @@ NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VF0YAHAlWbIPZpJlZgzJvktM71tKKGt2shUtKiplSVlKiZIkVCpb -ImTuFNmKUFlKG9KmTZGQXZR89/vrPr/nnnvuc88573IZ/sGOAQt5eHgkFvDw -/H+d6mlpYiXlrzYQzVLx6FyzuuMqLWJNdxz8zO7W6PSkA0o/86d1p0J78O6i -Mk8dOGR/8zVvdy70/Vi3L90TQWKYmjrzmgtdfXl/gj3t4WOtbfDE6wZIynjl -NenhCxasgQ+jr1+C0yTtqqx7CMy8Nr4w8voLXDc/faLKIQYazW/kv8gdh52O -hSecPqaA3Meq7/4ac9DsIHo0qyETpHb73OQ350XjwmL/aEo2pOpa1Ng6C+Cc -TcWy4q48eJOpUz8qLoLR+9pWaEvegKT86GcLl0pgWbrq0VSTm0BN+3rq/BUK -fmr/l2oxXAI09fLjvwsouNKxuenidAnINpyI3sKhoGL5Q/U+nlJQGFlxcHkj -BTNjr6eFUEpBeVOIb00/BcvPBhLslaWgv2jO6Ku+FLba3KDVx5SCXahMr16r -FK5WGBL3FrkFJ52sVr+ckkbmZ7HUZqkykL3TLrtwgQxObVisYi1fBrcoTtO6 -S2TQJ3BXXpNyGXS99OacU5RBibFfLvlGZcByCGU6WMrgYBw3QdStDBpsri1+ -flEGywy/bjlzsQzmLCbbn5pRkW55oDljCQdSCiKL5yyouFs4MTBQjAOsxTwJ -mg5UfF7O2aNL4cCmh0JrzgRQMSddoqJWlgOXzOm3NyVTccfRguWFKziwEjdm -tH2k4guXdJeXFhw4YJLj0xJHQ8F08937j3LAOlt0YuNpGlaHm9elxXKAyR+V -0H6Bhp+Uun7ePs6B5x0uxKtCGtbtc3rRn8gBrRBh3p52Gga62rdpZHCgvyCs -YEx2Kaa4uAfJl3HAS8p2aNntpbhgNlcs5z0H9A/XxF6tXYr7zlpFeH/kgNAX -VRnGo6V4cWxbDe0LB6rKeEHlzVJ09aa2HOvjgMzGqhSd+aXYabJnicEY+f5Y -lsH6jbLIPyplPLeYgHW/ZiP3fpVFi3rJCj0tAiIs09QeDMpi9K4r8dE6BNzK -0XxLmZLFbH/CrkWPAJqTr0mVwDL827uwY7MxAYOVD6d5tZah3phnzjok4Hxc -SujF8GUo+FF//wUHAr5Iq+xtEpFDq8zz+pP7CKAG18lTqXKoXs1X9PkAAZua -3Z7upMthJldEse0gARWRSRpi+nI4yPdG5EIEAYkfRwbc3eRwUZHv3KJYAvSK -arb/ypVDsW5eH+ezBMSaOfjJrpTHdWq8WtVFBFh6Xx0zXiuPS3PC3u8oJkA0 -5ucx503yKDV/RlSqlICsxviCFF95bH+1bd6HQ0CldfXPxafk8fKEC729goAR -N6VD42/k8Y/ug8e8jQTcjQzhl+iVRxOFS32RTQQczbqXqTUsj9OP81OHHxIg -/Mm1ZudCBfwj6H66rZmA5dtP83xSU8Atw7VyXu0EeB+cTHxyWAElTX+odncT -oJyxVm4gXgENz+ib0t7+v35nS/lTFPCBjsNnp3cERP5d8XxtvgJKRG7+2fiB -gAvHvKWrnihgtkfL4ogvBDw59/jadXlF7INjn+Enud63pXQblyuifLR6uNUg -AR6dfg2fdBVx/3rHErshAvppf3uXWSiiamXRL4dfBPBm66il7lXE53uyJjTH -CVh16+Kdo3WKqLm+PGndLHkeXrfPDTcrYvPv1JVCfwiw5Vm0weelIpbuX//3 -CemtjnvfwDdFPKsa3Go1R4DFYUZ0DB8dFxb8PEfn4UKbWG3eSiE6/t0dw/eM -tH2+S/OIKB3ZnafSIhdwwfNpkoQfjY5r17rxtyzkQojiVN4adTre7r1sb87H -hcnbKc0z2nS0mU3gvCUdaak+RBjQ8WRrpU7wYi7E7/M1Yq6m42UD57Sz/Fy4 -1NjavNCBjlNj3TOlglxQdAsYqnYm5yvQ2qMlxIX8wXmJAx50NLzUwFdCukza -0PPrVjq22OsUXV3Chabt14YaD9FRfC21zU+EC1Z/TSSjDtPRz8U2so10e0qH -kUEMHVc//LlZT5QLb6oEY/JP0TH06WzCNGlv2/x8r2Q6ShXe/+YsxoXeL6tb -pM7Tcdb7TDBBenhJqGR8Fh3z3KaFfcW5cCBb1JidQ8d4iwHGbdK/DYo8J6/T -kS8wI5BXggu83j35AWXk+NGu2MukE8bCW+Tv0PHttkfuX0mLnqQMd1bSUYCq -tk1Vkgs0jqWxRQMdB9LEKDdJX1n31fPfIzo+Lh+v/E6a+eZITEUbHWl14ml0 -Chc0F95uUemkY1LIg8Ek0tx0m+GeN3TsK60Nukd6pXq/ZEYPHa3m6piDpNc6 -yXvx99PRlVVuukaKC4/778bUDdJRq5FybTvpTUccr4eN0jFmgRM7ifRLiaEW -7Sk6DvdoUktIuxacHO6bpaP6vLtmK+n3q5iU7Hly/YrOxXwj7f+s1thtEQM1 -mpMl/pHu2+rqJS7IQP/+JZ8p0lzY/Xs0plmEgQEmTb9USK/aFyjzXZKBcl2T -UStJCwy8LealMVDgyodnFqS7/O3WMOQZKBy++4cD6evvGrtWMxl4UCut1Z10 -qNPK3V7LGWixbUOoN+m1T0sWRGowMOFiRJ8PaXELRkaGLgMLVygq/3+/5/4F -jXIjBj6w1tT6//kSY6GGl6YM/CF8iff/+SM5R11HkIGp7l4F60lbrhgfFLFg -4NOxIKoxaZnc7XHqGxl4ff8DV2XSvbLvqVb2DNxr7bJDnDT3vH1poDMDRRpY -1r/J748Rfrj2uAcDPaeX/3tP2i7epDvHh4G+Hzzj75NW+Fe6p24bA++Y3vuU -RXrwEJP3w04GtpZaSYSTrv6Vnjm7l4GGufNUe9IJO5Zo0ULJ+T16JlmkXT5H -NxpGMFC1/1vxFLm/LI8Jt81HGRiuQzV9SLp+44djyQkMfJ7yr9+NdHKTw9KS -Mwwcjq4WVCDtxX50qyWVgZSuYv5P5Pma0Sp7s+gKA+3Q/JoH6eYbSsHMXAYe -ypxcRSGdTs9chDfI7+mZvNtMnl89yVjtwwQDo8IWeKiR5kmabMqsYOCuAMXY -LjIe2nl3eVTUMFDoIOdMNOmgScf40YcMnGlz92wm4ym/m/Vu+1sGLjlj+N2A -jL/9DhdD4j8ycA42uzST8YqtIovzehl48/nmO26kP9RM6fQMMzBw3Hx1iDC5 -H9eaTzjxMvGpzfSNSDIf9FLZcvsFmLi6kH19kswf3BSCOCvCxKMG/Bf3kLaL -u/S+lcrER2pxO5wEyPUM2K23RoOJHtEdD+fI/DSjLt6j6cxE6VW6++vJfDd1 -RTZW34OJMx61XFHSE2LKLBMfJgY9WEr1mCdgeNxk17qdTJSJyrTrJ/Pnl5qt -Ux5HmEhV/3blC5l/WzfeFU24zsQfG5rz7CYIeHzvAXHmJhPNXj/LCyHzdZP2 -E6fzZUxUm1R5kzxGwH3K50tXq5gYXbKyv2GEAO47oeXlT5koIcu+K0jm/0tB -3vBlkonT1vbSlG8EZHzY8aVvlol3a0xG+XsJSLM7ED80z8SQ2VNSs2R9SdZP -aPstqIQLqn4bdn0iIO4P4SqmoIRGqlsX7X1PQFASX4iZhRKKveh8JfeKALPi -kuz0dCVUM7aPir5PwDt68bX1l5Uwjn+zi/E9sp6lF12duKaEpo8sxwdryHoa -W5DlWKSElW1zEQ5VZD13y84UrVXCDlHjrvnbBKzgS0s58VkJdRWcC8cKCZDx -ORxzSIOFHalhlcbnCCjviIhW1mXh6Mmxj0Vk/XeyDj/aYchC19ykgaXJBKQa -HozSAxa6C+mXjicSICIcHD7swMLS80y+5OMELKryDwkMY2HxzdffvcMIGJW0 -9nVpYGFExKvqcE8Cunczn+96zEKpOf8/se4E1D+ahegnLNS+yt+X4EpASmSx -YmEXC5+N/m46u5kAnS/CH2cGWFhvGvQgdiMBe4lnW65QlDEgSGpoehUBA3bO -nr3blPGD/qE8IxoBvad9Xfbzq+Cj8ynCG59wYO+ABlNHWAV5qZ9LJ1o4ML1h -ZmhIXAVvXXdOy3pM9ne8qfE7ZVXwn5u5YV8DB3QiGu/4aqrgh2b/vu1VHDgS -oEKx26yCiy2zRGkFZL+3evCZ+jUVjLgSe8SU7EetfoVZfTNajjzGex88I/vX -wa0CB+5Eq2JQW2zepbpb5P8GdeHJhhVYUl1RelywFCSfqiRzfqlhTBknOcK5 -GOQSyuyNjDQwW+03p3dHEWSqm4hTtmui/r2k7zOpN6BVdo3h+DktfPa4+is0 -XYdVcg0p2l3aGOB8Z5PVqzwQ5c0N9YvTwUhbA0E90VxQiFU0c1fRRbFF+jt2 -GGSDoLJXheNjXQwOezlbM5YFWuylZWFb9HDOzm9a7vtF2N8j2WjNo48dOZl/ -09vT4df4aWerTNL+I/n+zDTYoP3okpWmAY563P7qU3kO7o+b/pluN0BL6Vf5 -628mw14NvbcvAgyxXtZGIDsvEdjD2zrcBY2wcWd7/bnqE7CeRbMRyTVCU+8P -7+hRx0A1JjG8wdgYLS/mLDK6GQNqASZ1ym+NcSQlxO7B1GEIuL/j+J19K/HU -laCPay6HQV12x7ZRaRM0ikjclnzyAEwUzk9r3zVBj+fRbAf5ENiqXCx4yWYV -ql/unFnXtgtG1c4bcUdWYa7ierHipwFQmf/n82SCKRJxps5RX/3AyDx02jrJ -FF/r1A0Fd/pB+edB4ewzpnisWVVhz2M/4Cr0GFunmuKkUJnu8WI/KMmsP3P1 -sinaGY2nsEL9IPt0vMmGW6boyRuWs4LfD06Fip3LfGWKnxcO/6Ib+ILHOjIW -FczwnHZckqPDFpjrEBBtpJuhJEgdvmO8BbIDht9ZK5nh+/trBdUUtsD3E1Vh -HqpmqErZ+dzupxfsb7Eri9AzwwLfnNvHT3hBom2UQqWFGXKrYzRO1XtCtVvn -X4NgcvxDq77CtR6wbM/JKq16MwwppMjeiXKF5PlAw6QGM9zlF3RFYKcrLEy1 -IPqazFA/oLs0yNkVBir4irJbzPAgzcBxi5YrVPMcz5R8ZYZXSi6UDX1yAY+0 -mLCpb2YoVHb7X7WlC2TWRBjeX8LGXBB62Mp0Bmmh3YSNKxsjtH20vvxzhHzz -I5Ej7mwUncxIIwYdQe9Isvl5LzbeDV4WnvLWEWxHOJ3dfmx88jYzMarCEU50 -Tc5s3c1Gab7nN4SDHeF3bvTayFg2ijQ6r+D96gBvTc+/Kihmo8PT7qK5TnvY -cTA/y+oWGzcltuTdeGgPU7fKAwY5bPRuqm/wKbcHSWb3tG4FG/evMLWYTbOH -jQLycvfq2ZjX/2PNayd7qO0o2Paqk40vKi1U7G/ZgbVopeahbjbOU2plfM7a -QfeGlinaOzbq0ZYLnQqxg4nqnwnen9i4pTOvSFPfDjRzdEp/DLCxyVM6626V -LdS+XXPo9BAbl2x5FJp12RaspTaD9ggbbTfIEZeP2ELgyYMvQifZuELrK9+P -NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I -8cMGru6pnpyfZ+O4wfHZ2jYb+A9FvKVq +1:eJwV13c8Ve8fAPAbRanI3te914qMbHf5fFBGJJERkpEUGuQrSV+jyCgZJWkh +NGTce1OhbwkZbaWsolBKZkYS+Z3fX+f1fp3nnOd5necznkP1O+AUwEcikRhL +SKT/X2d6WhpUUgvNCnUWRU4e3mDWdkXmiHlHPCS8rDCyaKQBSr7yk+nIhIOH +/7ZLNepDhOOtdv6OAuga/Fs0+8QCREelM3+3c0HU5G5s0xMn6H3gcGCqvQ5i +tJm1ak/8wEpl6ONE+xuY2zDVWVkXBr/bTc6Nt/fB6yJJr7/346He8npha8Ek ++LDzhO64ZIFCb9VXP60FcM/vSD7sdAkkQnbeErTkR+3Xg/pf3QogU8+qxsFl +OQ7rdv7tTyuGzpz1tRNrVqPp1beqbtRbkFoY84pPVhQTc5j1VqdLYZPhXjFJ +ZVFc9kfq5r0LpbC8wclFXVsUHzbo5VOKS+FEv2q3nbkoRqc8f9j1sBSiac+/ +nt0rihe8RvaPjZXC/jyZv2rVoui7XeNmjmMZbL3E0bLzFEPht+ph3SvLQfps +f3LWZXEc3MG612VYATLrKk/MFosjwzVJ5A69AuTqEmN2VIij5JcPj5LNKoA8 +rvGPer04+qy1VtO0qQBV+4M+Nd/EMceYNGfmWQEGSxeM+w0kcH7oKN6PrYAt +4VID+k8lsPvDy9tfmivAceW3nvNvJVAl5ve8zYsKcCqo6pz/IIGpoqRzN1or +wPW116vGMQm8lzqT69VVATu0rlV7SEpiTPi6yfM/KiB4QDcj3kcSHXpZ/3qu +5sDJbbZmb2YkMfaZdaa4Awfk7ryU41sihfpTDsXOThwoE9/2S2+lFI5KKDqc +ceXA+zfeFRlKUpjU98zttzcHVLaG07baSGHDgpBdzgEO1G2+KvD6ghSC54dD +S9I5sGA1/fIFSxptLvBbxbzgQHpxVMmClTQWvbu5Xa+VeF6AlKS9VRpzlyTN +9bRxwP6JkPnpAGl0mTzbr/WBA7mWFJ59mjRe2z3lmDXEAVO0O/+sVxor296k +pQhw4RA9f2dLvAyuP/mmiMbkwqY84Sm7UzK4c1WuhKgZF2iC0Ukvz8ngj8jj +1/4gF163uXLe3pDB/HYd2hMrLugcXMXf81IGp7VdizWcuPCt+HDxTzlZtBau +/m66hwteEg4j8jxZvP+tJy80gwsGR2virjwg7J2xayCLC0J9a6WojbIY9jrO +wTmbC1Xl/KDWKYsn7phkq17kgpRdVfr6RVl8NzY/f7GQmD9OxXCjnRyuZW4O +eX2XCxvG5qL298thXWaNiUcHF47YnNV8PCyHN4R48TZdXCjL1+4Sn5FD0xdU +VYMPXJDZ5kOvWi6Pp+sEwxZ6uTB8/8kvfh15HBwpNtk9yIWs+PTwC5HyGP4y +7G3SNBeauzVUhuPkcUzIsoX1iwvzhvVvzVLlMaf0vOLILBd2D07rD1yWx1vp +9/st5rnAsPec0KmXx6vXYybr+HjQJ6m2v2G1AlbnTmdIivBA+sAjRWlpBczZ +8bzkzBoe2De7v9hLUUD1K45aAmI8uBuVqiVioIBjkxn+3yR4kNI7PrTdXQEn +ChKr4+R4oH+zJnCsQAFJAropy1V5EMjnIm1xWwGlgx852arx4JLnaOPZSgU8 +eYKRmqjOAwFhqhqjWQGZcgEOMxo86ApLHDgxooCZUlM6JTo8iGNt9ZUzVcSN +LvmDQSY8sPG+8tPEQhHd7G5bJpvyQDj2x3EXe0X85agedY1OvL8+oTjdRxGv +tA8cecbkwf1N1T8EkhUxkizy8TvwICZE8JhKliL+XEpTHUQeWKVtE7a4rIi3 +W+45fDLnQVvr6PpjHEVsuiqyqdGSB+PuyhGTnYpoJW7yx8eaB/eiDgqKDihi +dLviXrYND/699F+OziixPr+fjyRtebDqk1vNXj4y6iw31KrexAP1wFOkT5pk +/B4qIvdmMw9GkzozFgzJaP/Scei0Aw/u3FJTlgcyljLMSzZu4YHFaO1GV2cy +jq7T4L/pyAPvf6ZTnh8l45dwQ3Vw5oHqeQuFoQQyfl699EIX4eH7Z0oF08ko +k5fDH7aNB1HzGq8tCsno52vYdNaFB+bkw74+ZWS0KXCkUVx5sBwbfh67T0bm +X8+o64TPHfeWrHpORkerSNVbbjzwKiopfv+ejLLxN6JU3XlAa5o1mfpExuAI +gdZLhCuEsjx0p8mI8jkJMdt58Dyj6WqRohKOtx3UkvTkQRZPQq9eXQltQnfd +PEjY451v3Sc9JWxOhvXNhL/JzA/IWynhwj2KT7AXD8oZthF0RyVMUtu18h7h +CK9sQTcP4n7tiid/CfPnrdfM3K+EeoX8e+J38ODp42M15ZFKyF591fkh4fT+ +p/Yv4on5P2k6zRB2WybTM3RKCa3vvtil6c0DsnrAgeXnlTDEvfyUB+EvNlyS +Wr4Sfngy+zSR8O2gxQzLEiXcrttGKSd86JS9sm+lEor/CjnzljCj7MKdfx8p +4eXyMekpwhvaXy6MNithTbnQuPBOHjiQllrvfKOEJT7qAWqE3TXo6a+6lfBC +FSuSQdjfaX8nfFHCgnMWmnaE9x+9RqsYVUINnl60O+HIwo5gyqwSruPxH/Aj +/PhrokcziYIpMjz+vYStjlJjYpdRcK81kxlC+JnIg2umQhQMPZEj9X87Fro2 +jwtTUGuqKXsP4femE8M3xCnokNv0wJew54tUUV8ZCgpuz052I/zJV81YVpGC +ruMGf20J756p9WilUtBzIU+eTvhHimdMshoFL/zu6VMhfFBp5pr5Ogq6Mca3 +rSY8zUtv/q1Lwc9j7WE/ie8RZbNuhGNIWCWX3UaY9PGJaBCdgkX/Me9yCSeE ++hjTzCgYfrju42nCQgJ/PLosKNg+aFgZQDg991xMpjUFR47mshmEc+ufNvNt +paDFtE9AJ7GfSu4BI9UuFNw60CZQSLhweFH0kAcFLVf47QgmXC5p5NnvT0F1 +zV/a40S8GN56FXNxDwWPv5a5VUq42iyo0HkfBXVIJ3sDCTcEXh2pj6CglHNC +1BsiHm3n6WLRRyk4cMuoL57wy/Q2Y8NYCt6cDBNcT7izakVsYTIFhYs+psV6 +EPnoUFjolUbBxkq9SWXCA31mLRJZFDQV8JFtIPJhdGW4WMIlCmoezS+fI/Ll +UJ6wCTufgjmFn6kZhGcNb3pOF1GQIeXqoUKY37unMKCcgs5xZjRzIv9kKmxM +rOoo+KH7h9Y2In8vb+j3/NtIwWyN62OvifymdR6LvfuMWI/1wbhNhLX5eC1q +7yj43e66lCFRDyy2KXoJfqPg6q366p+J+hEyOxHbvJqKZon/9l6zI+I5dLfU +VzEqBoqV8nqI+rR8qKuEX4aKxxkpHyUJF3XXvzejUXGdvYXpEaK+9Tw8p1Vp +TMUV3ccMJDbyYEsCvSN/JxVfdkxkXmIT+fW3dN+jXVS8LrI74jKLqEcRNP6P +e6nICq5tyiXqb9KelToy4VS84udanULU51q7j8fTkqi4UjFeCI2IfiEWp3uU +Q8Wz7PzKJVpE/KRON+TcpSJpolX/qSaxH/xBHndrqPhrYKXJGaI/BE87JUw8 +oWJZJ1+3MNE/CjtUugO7qBivs/jfAJUHUlebE7fx0zBF8I/HsBQPfq9b06Pt +QsOD2Z6hEX+5MHNZLs7Ag4Y3/5jd7iL64ZSIqgp9Jw0rFQweM/9wYXSSHrRh +Lw2DSqtjpoh+2lfjP+NxjIYhjoHROMGFp3b3hJOKaLiZ4tRr2c+F3GBv6Jum +4SHljAb+J1w4/3FP3+AcDfOeMIME6rlwdsuhhJFFGjZFnSILPOZCmkHSs9kV +yrhDp7Nq/gEX4v9w3ETIyliTaj/UeIcLwanLDrKslPF0XHnp62tcYJXczsvO +Vsa0fRcrnsRwoZtScnXjRWX8EeC8eO4YF6Kyb16ZuqqMXq/tRv2PcuFeXPEl +p5vKeJ5RwJ2N4IK+e16O8ANlTP57aH7Zfi5oLDubnvhZGfe+kHxT4UmcX3Ye +jY3QUkEdAYWYrUZcmBDb5ONap4Jr7c2OiPRxoCOE9jqoSQUbH35ukO7lQG3j +HMQ8V8FFX12uInF+S48qUbrxXgXfLVgcob3nwPq+Vb2/h1Qw+tHNEZGnHNjP +ebXjsrgqft8yLhbN4cDQFhfPgV2q+Ls1Maz4Xw4MnPJxDRNUwy5F7o/bYhyw +HTts+8VYHQuUL3mGGlXAsP/yQ3di1uKc0AmT5B1lxP+GNN/JOg1MvG74jxv9 +Noi9UEurGNNE+mdS2eO1t0AhqdzR2FgLRy7Lv701cB1y1tHXiAdqoyrp5KzK +0yJ4KmduNJmhg7RyXdZEwzVgKNSl677XRf0QDar59XwQ5i8I941fj//wxLsp +qVeBHKfE2q6mh6WWVXO5dy7CClWvu05Neli/OX2pg1EO6LBlyw/v0Ee//uFD +yw3PQViPWP0mkgHKnZblZDMzYWzylIttjgHGtkhsZkecAWvdxlxbbUMMu+id +LC2cCg8nmX9+vTTEDYeG8mJeJcJ+Lf2u1gAjvNX6rGvVtuPAHt3Vtn2FMQrz +My8LCsXCRhWZzasLjJH+I9L4WmMUrI1NiawzMUH/j3oyaBcBmgH0R6pdJlhU +8GO/h3oYnKE5zB3/YILtx0PWG8uGwVSvn1FfjwnGD7saya8Mg4cep0qu9Jtg +lemVX6SxUHBy7D0vPWKCsznZnxn3QuEIM+HgCpIp/gz7N2iXbSg0i7ZSR1RN +sVRsZ+iB8IMQ8HDPiTuhpshMCp/63LwPRvcNHd4Yborv+/gjZ8r2QaRiSPD7 +CFNsc7bXIZ/bBynRB5xmj5pi+EKf4HXffVDBiKCwEk3R4c8988t/QmD+7vEH +9bmm6DwXtU/MIAQyy69Mvak3RfSVUXlXHgSP8tp2TUjS8dUry9zQnkD4ZE/d +GSFDxyWRC6f8WwKB9Hvf9j9ydHShnTgWcCcQLLYKOiyj0LHFYk7vQkogNC5h +mMhq0lHuK/Y+NAmE535XV5ib0XF7/tKVf87uhi6VoLL03XRsnF9qO+0RAFM3 +Fn/p3qPjYjOla1zMH766WuUlV9FRIFdtXT2fP3QsPW3TX0PHR2fTg/N/+kGN +j9yF7Fo6vr/sciXujR/EyxgxFlroOPQlU+B1ph+sSQqKfvqBGM+tfHxF0g+0 +At+RAvgYGHQyfM9bZV/wVy1ZkbuZgYvT7i6sOm+IeuIdpObIQJ1EZ9F1Rd6Q +HiD2jOvEwGWZE1/0krzhQdGRU8/cGLgxqfH8SQdvkFCzEVnwZeA2awPXrR92 +QKPaFwmfCAamJavIOs57geZaJYraVQaumggTTd3sCROaWcbccQbqLxyqzdBz +h47nuFF8koHcvfp/L8i7Q+3+UefwaQYmtyZ84i1zhzSubajxHAM3x/3nr9Dl +BpoM0u1qfibalATIPzruBn62+6j1Uky8KnFC1rzLFdoCrVe1sZh4P6+p/muW +C9wv/PN5OomJdjFzJ61MnMHYMvzXplQmkgqtou+rOkPl5+FVeaeZKNaTUGUq +4Qxcco/Jpkwmbk84P+g/4QS3c2pPX7nIRM2LhqRdt50g71QC3bqMiSkfxYr4 +VJ0gOVwkI+ctE+/0RLyKoGwFjw3KyCSz0G1M9/ruaAdYaFsuXE9hoXX+88H9 +OxwgL2C0e5MyCweMl3pmmTnA18Sqwx5rWSgfFxK3fokDhLVsKT+iz0KlM3JB +VSc3Q4pDNPm+FQs5Tqcrf16wh2r3d/OGB1iowi3U3/9mE8jvO1mlU8vCVhK1 +UOiMNaQt7jZKrWPh8I2ySHKkNfBlWnEGG1j4KVou2MrXGobuLruZ18JCO919 +IW8MrKGadCJH7C0Ll+mqmHR2WoHH2djDM19YOPVsoeashhXk1BwxeriSjSk+ +6h2e7RtglcN2jpwwGyNnVh95X7cBYj+Zah9ew0Z/DUUf/7INsGfZrMp6STaa +/ZVo5iVsAJMtERIFZDZ2CE+GaxttgPd9YZMJemwUDndfGXneEiSFQjib3dhY +lvifqdBeCyi0PBY1vp2NR158eJexzQL0j6VZZnmx8SvrvpQOWoDDeMW7Dl82 +Wr34xCiUtoDE99O//UPYWLg0WiyhyRxmC2IsouLYePr5ZpcV68yhi5n1triE +jTXFy47mkxD2/FN4ybaMjfm3d580/ggwU1YZMFzBxoepNUu3VAGI0Tp+6d1l +Y07vAbPRUAC75YoK/9WykWu/XrRvwAwetBXvevuOjekLjpfjW9mwSfi+dkQH +G+vqWWmV5WzosG6Zkelmo5/FZb+VaWyYqv6R5P2Jjd8XB4yV7Nignb++9PsQ +GxszPsgNNLLgQZd5xKkRNt6QkrijWcyCTUQM6o6zkZ98xCgrgQW7T/7TGj7N +xrDMwfCWDSyYqk3MlZ5l46Vd9OlsFRbEz533r55jY2ywbV/CUhasMbyptWOB +jddkIxSzB5hwZV/19OIiMV7GKKmpgQn/Awo/wnM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07063865090603916}}, + "PlotRange" -> {{0, 30}, {0., 0.0756747860534951}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -11194,19 +11267,19 @@ NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07063865090603916}}, + "PlotRange" -> {{0, 30}, {0., 0.0756747860534951}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -11220,119 +11293,133 @@ NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VF0YAHAlWbIPZpJlZgzJvktM71tKKGt2shUtKiplSVlKiZIkVCpb -ImTuFNmKUFlKG9KmTZGQXZR89/vrPr/nnnvuc88573IZ/sGOAQt5eHgkFvDw -/H+d6mlpYiXlrzYQzVLx6FyzuuMqLWJNdxz8zO7W6PSkA0o/86d1p0J78O6i -Mk8dOGR/8zVvdy70/Vi3L90TQWKYmjrzmgtdfXl/gj3t4WOtbfDE6wZIynjl -NenhCxasgQ+jr1+C0yTtqqx7CMy8Nr4w8voLXDc/faLKIQYazW/kv8gdh52O -hSecPqaA3Meq7/4ac9DsIHo0qyETpHb73OQ350XjwmL/aEo2pOpa1Ng6C+Cc -TcWy4q48eJOpUz8qLoLR+9pWaEvegKT86GcLl0pgWbrq0VSTm0BN+3rq/BUK -fmr/l2oxXAI09fLjvwsouNKxuenidAnINpyI3sKhoGL5Q/U+nlJQGFlxcHkj -BTNjr6eFUEpBeVOIb00/BcvPBhLslaWgv2jO6Ku+FLba3KDVx5SCXahMr16r -FK5WGBL3FrkFJ52sVr+ckkbmZ7HUZqkykL3TLrtwgQxObVisYi1fBrcoTtO6 -S2TQJ3BXXpNyGXS99OacU5RBibFfLvlGZcByCGU6WMrgYBw3QdStDBpsri1+ -flEGywy/bjlzsQzmLCbbn5pRkW55oDljCQdSCiKL5yyouFs4MTBQjAOsxTwJ -mg5UfF7O2aNL4cCmh0JrzgRQMSddoqJWlgOXzOm3NyVTccfRguWFKziwEjdm -tH2k4guXdJeXFhw4YJLj0xJHQ8F08937j3LAOlt0YuNpGlaHm9elxXKAyR+V -0H6Bhp+Uun7ePs6B5x0uxKtCGtbtc3rRn8gBrRBh3p52Gga62rdpZHCgvyCs -YEx2Kaa4uAfJl3HAS8p2aNntpbhgNlcs5z0H9A/XxF6tXYr7zlpFeH/kgNAX -VRnGo6V4cWxbDe0LB6rKeEHlzVJ09aa2HOvjgMzGqhSd+aXYabJnicEY+f5Y -lsH6jbLIPyplPLeYgHW/ZiP3fpVFi3rJCj0tAiIs09QeDMpi9K4r8dE6BNzK -0XxLmZLFbH/CrkWPAJqTr0mVwDL827uwY7MxAYOVD6d5tZah3phnzjok4Hxc -SujF8GUo+FF//wUHAr5Iq+xtEpFDq8zz+pP7CKAG18lTqXKoXs1X9PkAAZua -3Z7upMthJldEse0gARWRSRpi+nI4yPdG5EIEAYkfRwbc3eRwUZHv3KJYAvSK -arb/ypVDsW5eH+ezBMSaOfjJrpTHdWq8WtVFBFh6Xx0zXiuPS3PC3u8oJkA0 -5ucx503yKDV/RlSqlICsxviCFF95bH+1bd6HQ0CldfXPxafk8fKEC729goAR -N6VD42/k8Y/ug8e8jQTcjQzhl+iVRxOFS32RTQQczbqXqTUsj9OP81OHHxIg -/Mm1ZudCBfwj6H66rZmA5dtP83xSU8Atw7VyXu0EeB+cTHxyWAElTX+odncT -oJyxVm4gXgENz+ib0t7+v35nS/lTFPCBjsNnp3cERP5d8XxtvgJKRG7+2fiB -gAvHvKWrnihgtkfL4ogvBDw59/jadXlF7INjn+Enud63pXQblyuifLR6uNUg -AR6dfg2fdBVx/3rHErshAvppf3uXWSiiamXRL4dfBPBm66il7lXE53uyJjTH -CVh16+Kdo3WKqLm+PGndLHkeXrfPDTcrYvPv1JVCfwiw5Vm0weelIpbuX//3 -CemtjnvfwDdFPKsa3Go1R4DFYUZ0DB8dFxb8PEfn4UKbWG3eSiE6/t0dw/eM -tH2+S/OIKB3ZnafSIhdwwfNpkoQfjY5r17rxtyzkQojiVN4adTre7r1sb87H -hcnbKc0z2nS0mU3gvCUdaak+RBjQ8WRrpU7wYi7E7/M1Yq6m42UD57Sz/Fy4 -1NjavNCBjlNj3TOlglxQdAsYqnYm5yvQ2qMlxIX8wXmJAx50NLzUwFdCukza -0PPrVjq22OsUXV3Chabt14YaD9FRfC21zU+EC1Z/TSSjDtPRz8U2so10e0qH -kUEMHVc//LlZT5QLb6oEY/JP0TH06WzCNGlv2/x8r2Q6ShXe/+YsxoXeL6tb -pM7Tcdb7TDBBenhJqGR8Fh3z3KaFfcW5cCBb1JidQ8d4iwHGbdK/DYo8J6/T -kS8wI5BXggu83j35AWXk+NGu2MukE8bCW+Tv0PHttkfuX0mLnqQMd1bSUYCq -tk1Vkgs0jqWxRQMdB9LEKDdJX1n31fPfIzo+Lh+v/E6a+eZITEUbHWl14ml0 -Chc0F95uUemkY1LIg8Ek0tx0m+GeN3TsK60Nukd6pXq/ZEYPHa3m6piDpNc6 -yXvx99PRlVVuukaKC4/778bUDdJRq5FybTvpTUccr4eN0jFmgRM7ifRLiaEW -7Sk6DvdoUktIuxacHO6bpaP6vLtmK+n3q5iU7Hly/YrOxXwj7f+s1thtEQM1 -mpMl/pHu2+rqJS7IQP/+JZ8p0lzY/Xs0plmEgQEmTb9USK/aFyjzXZKBcl2T -UStJCwy8LealMVDgyodnFqS7/O3WMOQZKBy++4cD6evvGrtWMxl4UCut1Z10 -qNPK3V7LGWixbUOoN+m1T0sWRGowMOFiRJ8PaXELRkaGLgMLVygq/3+/5/4F -jXIjBj6w1tT6//kSY6GGl6YM/CF8iff/+SM5R11HkIGp7l4F60lbrhgfFLFg -4NOxIKoxaZnc7XHqGxl4ff8DV2XSvbLvqVb2DNxr7bJDnDT3vH1poDMDRRpY -1r/J748Rfrj2uAcDPaeX/3tP2i7epDvHh4G+Hzzj75NW+Fe6p24bA++Y3vuU -RXrwEJP3w04GtpZaSYSTrv6Vnjm7l4GGufNUe9IJO5Zo0ULJ+T16JlmkXT5H -NxpGMFC1/1vxFLm/LI8Jt81HGRiuQzV9SLp+44djyQkMfJ7yr9+NdHKTw9KS -Mwwcjq4WVCDtxX50qyWVgZSuYv5P5Pma0Sp7s+gKA+3Q/JoH6eYbSsHMXAYe -ypxcRSGdTs9chDfI7+mZvNtMnl89yVjtwwQDo8IWeKiR5kmabMqsYOCuAMXY -LjIe2nl3eVTUMFDoIOdMNOmgScf40YcMnGlz92wm4ym/m/Vu+1sGLjlj+N2A -jL/9DhdD4j8ycA42uzST8YqtIovzehl48/nmO26kP9RM6fQMMzBw3Hx1iDC5 -H9eaTzjxMvGpzfSNSDIf9FLZcvsFmLi6kH19kswf3BSCOCvCxKMG/Bf3kLaL -u/S+lcrER2pxO5wEyPUM2K23RoOJHtEdD+fI/DSjLt6j6cxE6VW6++vJfDd1 -RTZW34OJMx61XFHSE2LKLBMfJgY9WEr1mCdgeNxk17qdTJSJyrTrJ/Pnl5qt -Ux5HmEhV/3blC5l/WzfeFU24zsQfG5rz7CYIeHzvAXHmJhPNXj/LCyHzdZP2 -E6fzZUxUm1R5kzxGwH3K50tXq5gYXbKyv2GEAO47oeXlT5koIcu+K0jm/0tB -3vBlkonT1vbSlG8EZHzY8aVvlol3a0xG+XsJSLM7ED80z8SQ2VNSs2R9SdZP -aPstqIQLqn4bdn0iIO4P4SqmoIRGqlsX7X1PQFASX4iZhRKKveh8JfeKALPi -kuz0dCVUM7aPir5PwDt68bX1l5Uwjn+zi/E9sp6lF12duKaEpo8sxwdryHoa -W5DlWKSElW1zEQ5VZD13y84UrVXCDlHjrvnbBKzgS0s58VkJdRWcC8cKCZDx -ORxzSIOFHalhlcbnCCjviIhW1mXh6Mmxj0Vk/XeyDj/aYchC19ykgaXJBKQa -HozSAxa6C+mXjicSICIcHD7swMLS80y+5OMELKryDwkMY2HxzdffvcMIGJW0 -9nVpYGFExKvqcE8Cunczn+96zEKpOf8/se4E1D+ahegnLNS+yt+X4EpASmSx -YmEXC5+N/m46u5kAnS/CH2cGWFhvGvQgdiMBe4lnW65QlDEgSGpoehUBA3bO -nr3blPGD/qE8IxoBvad9Xfbzq+Cj8ynCG59wYO+ABlNHWAV5qZ9LJ1o4ML1h -ZmhIXAVvXXdOy3pM9ne8qfE7ZVXwn5u5YV8DB3QiGu/4aqrgh2b/vu1VHDgS -oEKx26yCiy2zRGkFZL+3evCZ+jUVjLgSe8SU7EetfoVZfTNajjzGex88I/vX -wa0CB+5Eq2JQW2zepbpb5P8GdeHJhhVYUl1RelywFCSfqiRzfqlhTBknOcK5 -GOQSyuyNjDQwW+03p3dHEWSqm4hTtmui/r2k7zOpN6BVdo3h+DktfPa4+is0 -XYdVcg0p2l3aGOB8Z5PVqzwQ5c0N9YvTwUhbA0E90VxQiFU0c1fRRbFF+jt2 -GGSDoLJXheNjXQwOezlbM5YFWuylZWFb9HDOzm9a7vtF2N8j2WjNo48dOZl/ -09vT4df4aWerTNL+I/n+zDTYoP3okpWmAY563P7qU3kO7o+b/pluN0BL6Vf5 -628mw14NvbcvAgyxXtZGIDsvEdjD2zrcBY2wcWd7/bnqE7CeRbMRyTVCU+8P -7+hRx0A1JjG8wdgYLS/mLDK6GQNqASZ1ym+NcSQlxO7B1GEIuL/j+J19K/HU -laCPay6HQV12x7ZRaRM0ikjclnzyAEwUzk9r3zVBj+fRbAf5ENiqXCx4yWYV -ql/unFnXtgtG1c4bcUdWYa7ierHipwFQmf/n82SCKRJxps5RX/3AyDx02jrJ -FF/r1A0Fd/pB+edB4ewzpnisWVVhz2M/4Cr0GFunmuKkUJnu8WI/KMmsP3P1 -sinaGY2nsEL9IPt0vMmGW6boyRuWs4LfD06Fip3LfGWKnxcO/6Ib+ILHOjIW -FczwnHZckqPDFpjrEBBtpJuhJEgdvmO8BbIDht9ZK5nh+/trBdUUtsD3E1Vh -HqpmqErZ+dzupxfsb7Eri9AzwwLfnNvHT3hBom2UQqWFGXKrYzRO1XtCtVvn -X4NgcvxDq77CtR6wbM/JKq16MwwppMjeiXKF5PlAw6QGM9zlF3RFYKcrLEy1 -IPqazFA/oLs0yNkVBir4irJbzPAgzcBxi5YrVPMcz5R8ZYZXSi6UDX1yAY+0 -mLCpb2YoVHb7X7WlC2TWRBjeX8LGXBB62Mp0Bmmh3YSNKxsjtH20vvxzhHzz -I5Ej7mwUncxIIwYdQe9Isvl5LzbeDV4WnvLWEWxHOJ3dfmx88jYzMarCEU50 -Tc5s3c1Gab7nN4SDHeF3bvTayFg2ijQ6r+D96gBvTc+/Kihmo8PT7qK5TnvY -cTA/y+oWGzcltuTdeGgPU7fKAwY5bPRuqm/wKbcHSWb3tG4FG/evMLWYTbOH -jQLycvfq2ZjX/2PNayd7qO0o2Paqk40vKi1U7G/ZgbVopeahbjbOU2plfM7a -QfeGlinaOzbq0ZYLnQqxg4nqnwnen9i4pTOvSFPfDjRzdEp/DLCxyVM6626V -LdS+XXPo9BAbl2x5FJp12RaspTaD9ggbbTfIEZeP2ELgyYMvQifZuELrK9+P -NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I -8cMGru6pnpyfZ+O4wfHZ2jYb+A9FvKVq +1:eJwV13c8Ve8fAPAbRanI3te914qMbHf5fFBGJJERkpEUGuQrSV+jyCgZJWkh +NGTce1OhbwkZbaWsolBKZkYS+Z3fX+f1fp3nnOd5necznkP1O+AUwEcikRhL +SKT/X2d6WhpUUgvNCnUWRU4e3mDWdkXmiHlHPCS8rDCyaKQBSr7yk+nIhIOH +/7ZLNepDhOOtdv6OAuga/Fs0+8QCREelM3+3c0HU5G5s0xMn6H3gcGCqvQ5i +tJm1ak/8wEpl6ONE+xuY2zDVWVkXBr/bTc6Nt/fB6yJJr7/346He8npha8Ek ++LDzhO64ZIFCb9VXP60FcM/vSD7sdAkkQnbeErTkR+3Xg/pf3QogU8+qxsFl +OQ7rdv7tTyuGzpz1tRNrVqPp1beqbtRbkFoY84pPVhQTc5j1VqdLYZPhXjFJ +ZVFc9kfq5r0LpbC8wclFXVsUHzbo5VOKS+FEv2q3nbkoRqc8f9j1sBSiac+/ +nt0rihe8RvaPjZXC/jyZv2rVoui7XeNmjmMZbL3E0bLzFEPht+ph3SvLQfps +f3LWZXEc3MG612VYATLrKk/MFosjwzVJ5A69AuTqEmN2VIij5JcPj5LNKoA8 +rvGPer04+qy1VtO0qQBV+4M+Nd/EMceYNGfmWQEGSxeM+w0kcH7oKN6PrYAt +4VID+k8lsPvDy9tfmivAceW3nvNvJVAl5ve8zYsKcCqo6pz/IIGpoqRzN1or +wPW116vGMQm8lzqT69VVATu0rlV7SEpiTPi6yfM/KiB4QDcj3kcSHXpZ/3qu +5sDJbbZmb2YkMfaZdaa4Awfk7ryU41sihfpTDsXOThwoE9/2S2+lFI5KKDqc +ceXA+zfeFRlKUpjU98zttzcHVLaG07baSGHDgpBdzgEO1G2+KvD6ghSC54dD +S9I5sGA1/fIFSxptLvBbxbzgQHpxVMmClTQWvbu5Xa+VeF6AlKS9VRpzlyTN +9bRxwP6JkPnpAGl0mTzbr/WBA7mWFJ59mjRe2z3lmDXEAVO0O/+sVxor296k +pQhw4RA9f2dLvAyuP/mmiMbkwqY84Sm7UzK4c1WuhKgZF2iC0Ukvz8ngj8jj +1/4gF163uXLe3pDB/HYd2hMrLugcXMXf81IGp7VdizWcuPCt+HDxTzlZtBau +/m66hwteEg4j8jxZvP+tJy80gwsGR2virjwg7J2xayCLC0J9a6WojbIY9jrO +wTmbC1Xl/KDWKYsn7phkq17kgpRdVfr6RVl8NzY/f7GQmD9OxXCjnRyuZW4O +eX2XCxvG5qL298thXWaNiUcHF47YnNV8PCyHN4R48TZdXCjL1+4Sn5FD0xdU +VYMPXJDZ5kOvWi6Pp+sEwxZ6uTB8/8kvfh15HBwpNtk9yIWs+PTwC5HyGP4y +7G3SNBeauzVUhuPkcUzIsoX1iwvzhvVvzVLlMaf0vOLILBd2D07rD1yWx1vp +9/st5rnAsPec0KmXx6vXYybr+HjQJ6m2v2G1AlbnTmdIivBA+sAjRWlpBczZ +8bzkzBoe2De7v9hLUUD1K45aAmI8uBuVqiVioIBjkxn+3yR4kNI7PrTdXQEn +ChKr4+R4oH+zJnCsQAFJAropy1V5EMjnIm1xWwGlgx852arx4JLnaOPZSgU8 +eYKRmqjOAwFhqhqjWQGZcgEOMxo86ApLHDgxooCZUlM6JTo8iGNt9ZUzVcSN +LvmDQSY8sPG+8tPEQhHd7G5bJpvyQDj2x3EXe0X85agedY1OvL8+oTjdRxGv +tA8cecbkwf1N1T8EkhUxkizy8TvwICZE8JhKliL+XEpTHUQeWKVtE7a4rIi3 +W+45fDLnQVvr6PpjHEVsuiqyqdGSB+PuyhGTnYpoJW7yx8eaB/eiDgqKDihi +dLviXrYND/699F+OziixPr+fjyRtebDqk1vNXj4y6iw31KrexAP1wFOkT5pk +/B4qIvdmMw9GkzozFgzJaP/Scei0Aw/u3FJTlgcyljLMSzZu4YHFaO1GV2cy +jq7T4L/pyAPvf6ZTnh8l45dwQ3Vw5oHqeQuFoQQyfl699EIX4eH7Z0oF08ko +k5fDH7aNB1HzGq8tCsno52vYdNaFB+bkw74+ZWS0KXCkUVx5sBwbfh67T0bm +X8+o64TPHfeWrHpORkerSNVbbjzwKiopfv+ejLLxN6JU3XlAa5o1mfpExuAI +gdZLhCuEsjx0p8mI8jkJMdt58Dyj6WqRohKOtx3UkvTkQRZPQq9eXQltQnfd +PEjY451v3Sc9JWxOhvXNhL/JzA/IWynhwj2KT7AXD8oZthF0RyVMUtu18h7h +CK9sQTcP4n7tiid/CfPnrdfM3K+EeoX8e+J38ODp42M15ZFKyF591fkh4fT+ +p/Yv4on5P2k6zRB2WybTM3RKCa3vvtil6c0DsnrAgeXnlTDEvfyUB+EvNlyS +Wr4Sfngy+zSR8O2gxQzLEiXcrttGKSd86JS9sm+lEor/CjnzljCj7MKdfx8p +4eXyMekpwhvaXy6MNithTbnQuPBOHjiQllrvfKOEJT7qAWqE3TXo6a+6lfBC +FSuSQdjfaX8nfFHCgnMWmnaE9x+9RqsYVUINnl60O+HIwo5gyqwSruPxH/Aj +/PhrokcziYIpMjz+vYStjlJjYpdRcK81kxlC+JnIg2umQhQMPZEj9X87Fro2 +jwtTUGuqKXsP4femE8M3xCnokNv0wJew54tUUV8ZCgpuz052I/zJV81YVpGC +ruMGf20J756p9WilUtBzIU+eTvhHimdMshoFL/zu6VMhfFBp5pr5Ogq6Mca3 +rSY8zUtv/q1Lwc9j7WE/ie8RZbNuhGNIWCWX3UaY9PGJaBCdgkX/Me9yCSeE ++hjTzCgYfrju42nCQgJ/PLosKNg+aFgZQDg991xMpjUFR47mshmEc+ufNvNt +paDFtE9AJ7GfSu4BI9UuFNw60CZQSLhweFH0kAcFLVf47QgmXC5p5NnvT0F1 +zV/a40S8GN56FXNxDwWPv5a5VUq42iyo0HkfBXVIJ3sDCTcEXh2pj6CglHNC +1BsiHm3n6WLRRyk4cMuoL57wy/Q2Y8NYCt6cDBNcT7izakVsYTIFhYs+psV6 +EPnoUFjolUbBxkq9SWXCA31mLRJZFDQV8JFtIPJhdGW4WMIlCmoezS+fI/Ll +UJ6wCTufgjmFn6kZhGcNb3pOF1GQIeXqoUKY37unMKCcgs5xZjRzIv9kKmxM +rOoo+KH7h9Y2In8vb+j3/NtIwWyN62OvifymdR6LvfuMWI/1wbhNhLX5eC1q +7yj43e66lCFRDyy2KXoJfqPg6q366p+J+hEyOxHbvJqKZon/9l6zI+I5dLfU +VzEqBoqV8nqI+rR8qKuEX4aKxxkpHyUJF3XXvzejUXGdvYXpEaK+9Tw8p1Vp +TMUV3ccMJDbyYEsCvSN/JxVfdkxkXmIT+fW3dN+jXVS8LrI74jKLqEcRNP6P +e6nICq5tyiXqb9KelToy4VS84udanULU51q7j8fTkqi4UjFeCI2IfiEWp3uU +Q8Wz7PzKJVpE/KRON+TcpSJpolX/qSaxH/xBHndrqPhrYKXJGaI/BE87JUw8 +oWJZJ1+3MNE/CjtUugO7qBivs/jfAJUHUlebE7fx0zBF8I/HsBQPfq9b06Pt +QsOD2Z6hEX+5MHNZLs7Ag4Y3/5jd7iL64ZSIqgp9Jw0rFQweM/9wYXSSHrRh +Lw2DSqtjpoh+2lfjP+NxjIYhjoHROMGFp3b3hJOKaLiZ4tRr2c+F3GBv6Jum +4SHljAb+J1w4/3FP3+AcDfOeMIME6rlwdsuhhJFFGjZFnSILPOZCmkHSs9kV +yrhDp7Nq/gEX4v9w3ETIyliTaj/UeIcLwanLDrKslPF0XHnp62tcYJXczsvO +Vsa0fRcrnsRwoZtScnXjRWX8EeC8eO4YF6Kyb16ZuqqMXq/tRv2PcuFeXPEl +p5vKeJ5RwJ2N4IK+e16O8ANlTP57aH7Zfi5oLDubnvhZGfe+kHxT4UmcX3Ye +jY3QUkEdAYWYrUZcmBDb5ONap4Jr7c2OiPRxoCOE9jqoSQUbH35ukO7lQG3j +HMQ8V8FFX12uInF+S48qUbrxXgXfLVgcob3nwPq+Vb2/h1Qw+tHNEZGnHNjP +ebXjsrgqft8yLhbN4cDQFhfPgV2q+Ls1Maz4Xw4MnPJxDRNUwy5F7o/bYhyw +HTts+8VYHQuUL3mGGlXAsP/yQ3di1uKc0AmT5B1lxP+GNN/JOg1MvG74jxv9 +Noi9UEurGNNE+mdS2eO1t0AhqdzR2FgLRy7Lv701cB1y1tHXiAdqoyrp5KzK +0yJ4KmduNJmhg7RyXdZEwzVgKNSl677XRf0QDar59XwQ5i8I941fj//wxLsp +qVeBHKfE2q6mh6WWVXO5dy7CClWvu05Neli/OX2pg1EO6LBlyw/v0Ee//uFD +yw3PQViPWP0mkgHKnZblZDMzYWzylIttjgHGtkhsZkecAWvdxlxbbUMMu+id +LC2cCg8nmX9+vTTEDYeG8mJeJcJ+Lf2u1gAjvNX6rGvVtuPAHt3Vtn2FMQrz +My8LCsXCRhWZzasLjJH+I9L4WmMUrI1NiawzMUH/j3oyaBcBmgH0R6pdJlhU +8GO/h3oYnKE5zB3/YILtx0PWG8uGwVSvn1FfjwnGD7saya8Mg4cep0qu9Jtg +lemVX6SxUHBy7D0vPWKCsznZnxn3QuEIM+HgCpIp/gz7N2iXbSg0i7ZSR1RN +sVRsZ+iB8IMQ8HDPiTuhpshMCp/63LwPRvcNHd4Yborv+/gjZ8r2QaRiSPD7 +CFNsc7bXIZ/bBynRB5xmj5pi+EKf4HXffVDBiKCwEk3R4c8988t/QmD+7vEH +9bmm6DwXtU/MIAQyy69Mvak3RfSVUXlXHgSP8tp2TUjS8dUry9zQnkD4ZE/d +GSFDxyWRC6f8WwKB9Hvf9j9ydHShnTgWcCcQLLYKOiyj0LHFYk7vQkogNC5h +mMhq0lHuK/Y+NAmE535XV5ib0XF7/tKVf87uhi6VoLL03XRsnF9qO+0RAFM3 +Fn/p3qPjYjOla1zMH766WuUlV9FRIFdtXT2fP3QsPW3TX0PHR2fTg/N/+kGN +j9yF7Fo6vr/sciXujR/EyxgxFlroOPQlU+B1ph+sSQqKfvqBGM+tfHxF0g+0 +At+RAvgYGHQyfM9bZV/wVy1ZkbuZgYvT7i6sOm+IeuIdpObIQJ1EZ9F1Rd6Q +HiD2jOvEwGWZE1/0krzhQdGRU8/cGLgxqfH8SQdvkFCzEVnwZeA2awPXrR92 +QKPaFwmfCAamJavIOs57geZaJYraVQaumggTTd3sCROaWcbccQbqLxyqzdBz +h47nuFF8koHcvfp/L8i7Q+3+UefwaQYmtyZ84i1zhzSubajxHAM3x/3nr9Dl +BpoM0u1qfibalATIPzruBn62+6j1Uky8KnFC1rzLFdoCrVe1sZh4P6+p/muW +C9wv/PN5OomJdjFzJ61MnMHYMvzXplQmkgqtou+rOkPl5+FVeaeZKNaTUGUq +4Qxcco/Jpkwmbk84P+g/4QS3c2pPX7nIRM2LhqRdt50g71QC3bqMiSkfxYr4 +VJ0gOVwkI+ctE+/0RLyKoGwFjw3KyCSz0G1M9/ruaAdYaFsuXE9hoXX+88H9 +OxwgL2C0e5MyCweMl3pmmTnA18Sqwx5rWSgfFxK3fokDhLVsKT+iz0KlM3JB +VSc3Q4pDNPm+FQs5Tqcrf16wh2r3d/OGB1iowi3U3/9mE8jvO1mlU8vCVhK1 +UOiMNaQt7jZKrWPh8I2ySHKkNfBlWnEGG1j4KVou2MrXGobuLruZ18JCO919 +IW8MrKGadCJH7C0Ll+mqmHR2WoHH2djDM19YOPVsoeashhXk1BwxeriSjSk+ +6h2e7RtglcN2jpwwGyNnVh95X7cBYj+Zah9ew0Z/DUUf/7INsGfZrMp6STaa +/ZVo5iVsAJMtERIFZDZ2CE+GaxttgPd9YZMJemwUDndfGXneEiSFQjib3dhY +lvifqdBeCyi0PBY1vp2NR158eJexzQL0j6VZZnmx8SvrvpQOWoDDeMW7Dl82 +Wr34xCiUtoDE99O//UPYWLg0WiyhyRxmC2IsouLYePr5ZpcV68yhi5n1triE +jTXFy47mkxD2/FN4ybaMjfm3d580/ggwU1YZMFzBxoepNUu3VAGI0Tp+6d1l +Y07vAbPRUAC75YoK/9WykWu/XrRvwAwetBXvevuOjekLjpfjW9mwSfi+dkQH +G+vqWWmV5WzosG6Zkelmo5/FZb+VaWyYqv6R5P2Jjd8XB4yV7Nignb++9PsQ +GxszPsgNNLLgQZd5xKkRNt6QkrijWcyCTUQM6o6zkZ98xCgrgQW7T/7TGj7N +xrDMwfCWDSyYqk3MlZ5l46Vd9OlsFRbEz533r55jY2ywbV/CUhasMbyptWOB +jddkIxSzB5hwZV/19OIiMV7GKKmpgQn/Awo/wnM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07063865090603916}}, + "PlotRange" -> {{0, 30}, {0., 0.0756747860534951}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -11343,6 +11430,7 @@ NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -11370,7 +11458,8 @@ NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07063865090603916}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0756747860534951}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -11378,9 +11467,10 @@ NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993128551520615*^9, 3.993130973250785*^9}, + CellChangeTimes->{3.993128551520615*^9, 3.993130973250785*^9, + 3.993828423635648*^9}, CellLabel-> - "Out[120]=",ExpressionUUID->"9b72d10d-33d9-433d-a747-8876b19d31a9"] + "Out[117]=",ExpressionUUID->"5b3fb5ce-67d2-4eaa-a6e9-43c55fe44bb1"] }, Open ]], Cell[CellGroupData[{ @@ -11389,108 +11479,122 @@ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellLabel-> - "In[121]:=",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], + "In[118]:=",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], Cell[BoxData[ GraphicsBox[{ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VF0YAHAlWbIPZpJlZgzJvktM71tKKGt2shUtKiplSVlKiZIkVCpb -ImTuFNmKUFlKG9KmTZGQXZR89/vrPr/nnnvuc88573IZ/sGOAQt5eHgkFvDw -/H+d6mlpYiXlrzYQzVLx6FyzuuMqLWJNdxz8zO7W6PSkA0o/86d1p0J78O6i -Mk8dOGR/8zVvdy70/Vi3L90TQWKYmjrzmgtdfXl/gj3t4WOtbfDE6wZIynjl -NenhCxasgQ+jr1+C0yTtqqx7CMy8Nr4w8voLXDc/faLKIQYazW/kv8gdh52O -hSecPqaA3Meq7/4ac9DsIHo0qyETpHb73OQ350XjwmL/aEo2pOpa1Ng6C+Cc -TcWy4q48eJOpUz8qLoLR+9pWaEvegKT86GcLl0pgWbrq0VSTm0BN+3rq/BUK -fmr/l2oxXAI09fLjvwsouNKxuenidAnINpyI3sKhoGL5Q/U+nlJQGFlxcHkj -BTNjr6eFUEpBeVOIb00/BcvPBhLslaWgv2jO6Ku+FLba3KDVx5SCXahMr16r -FK5WGBL3FrkFJ52sVr+ckkbmZ7HUZqkykL3TLrtwgQxObVisYi1fBrcoTtO6 -S2TQJ3BXXpNyGXS99OacU5RBibFfLvlGZcByCGU6WMrgYBw3QdStDBpsri1+ -flEGywy/bjlzsQzmLCbbn5pRkW55oDljCQdSCiKL5yyouFs4MTBQjAOsxTwJ -mg5UfF7O2aNL4cCmh0JrzgRQMSddoqJWlgOXzOm3NyVTccfRguWFKziwEjdm -tH2k4guXdJeXFhw4YJLj0xJHQ8F08937j3LAOlt0YuNpGlaHm9elxXKAyR+V -0H6Bhp+Uun7ePs6B5x0uxKtCGtbtc3rRn8gBrRBh3p52Gga62rdpZHCgvyCs -YEx2Kaa4uAfJl3HAS8p2aNntpbhgNlcs5z0H9A/XxF6tXYr7zlpFeH/kgNAX -VRnGo6V4cWxbDe0LB6rKeEHlzVJ09aa2HOvjgMzGqhSd+aXYabJnicEY+f5Y -lsH6jbLIPyplPLeYgHW/ZiP3fpVFi3rJCj0tAiIs09QeDMpi9K4r8dE6BNzK -0XxLmZLFbH/CrkWPAJqTr0mVwDL827uwY7MxAYOVD6d5tZah3phnzjok4Hxc -SujF8GUo+FF//wUHAr5Iq+xtEpFDq8zz+pP7CKAG18lTqXKoXs1X9PkAAZua -3Z7upMthJldEse0gARWRSRpi+nI4yPdG5EIEAYkfRwbc3eRwUZHv3KJYAvSK -arb/ypVDsW5eH+ezBMSaOfjJrpTHdWq8WtVFBFh6Xx0zXiuPS3PC3u8oJkA0 -5ucx503yKDV/RlSqlICsxviCFF95bH+1bd6HQ0CldfXPxafk8fKEC729goAR -N6VD42/k8Y/ug8e8jQTcjQzhl+iVRxOFS32RTQQczbqXqTUsj9OP81OHHxIg -/Mm1ZudCBfwj6H66rZmA5dtP83xSU8Atw7VyXu0EeB+cTHxyWAElTX+odncT -oJyxVm4gXgENz+ib0t7+v35nS/lTFPCBjsNnp3cERP5d8XxtvgJKRG7+2fiB -gAvHvKWrnihgtkfL4ogvBDw59/jadXlF7INjn+Enud63pXQblyuifLR6uNUg -AR6dfg2fdBVx/3rHErshAvppf3uXWSiiamXRL4dfBPBm66il7lXE53uyJjTH -CVh16+Kdo3WKqLm+PGndLHkeXrfPDTcrYvPv1JVCfwiw5Vm0weelIpbuX//3 -CemtjnvfwDdFPKsa3Go1R4DFYUZ0DB8dFxb8PEfn4UKbWG3eSiE6/t0dw/eM -tH2+S/OIKB3ZnafSIhdwwfNpkoQfjY5r17rxtyzkQojiVN4adTre7r1sb87H -hcnbKc0z2nS0mU3gvCUdaak+RBjQ8WRrpU7wYi7E7/M1Yq6m42UD57Sz/Fy4 -1NjavNCBjlNj3TOlglxQdAsYqnYm5yvQ2qMlxIX8wXmJAx50NLzUwFdCukza -0PPrVjq22OsUXV3Chabt14YaD9FRfC21zU+EC1Z/TSSjDtPRz8U2so10e0qH -kUEMHVc//LlZT5QLb6oEY/JP0TH06WzCNGlv2/x8r2Q6ShXe/+YsxoXeL6tb -pM7Tcdb7TDBBenhJqGR8Fh3z3KaFfcW5cCBb1JidQ8d4iwHGbdK/DYo8J6/T -kS8wI5BXggu83j35AWXk+NGu2MukE8bCW+Tv0PHttkfuX0mLnqQMd1bSUYCq -tk1Vkgs0jqWxRQMdB9LEKDdJX1n31fPfIzo+Lh+v/E6a+eZITEUbHWl14ml0 -Chc0F95uUemkY1LIg8Ek0tx0m+GeN3TsK60Nukd6pXq/ZEYPHa3m6piDpNc6 -yXvx99PRlVVuukaKC4/778bUDdJRq5FybTvpTUccr4eN0jFmgRM7ifRLiaEW -7Sk6DvdoUktIuxacHO6bpaP6vLtmK+n3q5iU7Hly/YrOxXwj7f+s1thtEQM1 -mpMl/pHu2+rqJS7IQP/+JZ8p0lzY/Xs0plmEgQEmTb9USK/aFyjzXZKBcl2T -UStJCwy8LealMVDgyodnFqS7/O3WMOQZKBy++4cD6evvGrtWMxl4UCut1Z10 -qNPK3V7LGWixbUOoN+m1T0sWRGowMOFiRJ8PaXELRkaGLgMLVygq/3+/5/4F -jXIjBj6w1tT6//kSY6GGl6YM/CF8iff/+SM5R11HkIGp7l4F60lbrhgfFLFg -4NOxIKoxaZnc7XHqGxl4ff8DV2XSvbLvqVb2DNxr7bJDnDT3vH1poDMDRRpY -1r/J748Rfrj2uAcDPaeX/3tP2i7epDvHh4G+Hzzj75NW+Fe6p24bA++Y3vuU -RXrwEJP3w04GtpZaSYSTrv6Vnjm7l4GGufNUe9IJO5Zo0ULJ+T16JlmkXT5H -NxpGMFC1/1vxFLm/LI8Jt81HGRiuQzV9SLp+44djyQkMfJ7yr9+NdHKTw9KS -Mwwcjq4WVCDtxX50qyWVgZSuYv5P5Pma0Sp7s+gKA+3Q/JoH6eYbSsHMXAYe -ypxcRSGdTs9chDfI7+mZvNtMnl89yVjtwwQDo8IWeKiR5kmabMqsYOCuAMXY -LjIe2nl3eVTUMFDoIOdMNOmgScf40YcMnGlz92wm4ym/m/Vu+1sGLjlj+N2A -jL/9DhdD4j8ycA42uzST8YqtIovzehl48/nmO26kP9RM6fQMMzBw3Hx1iDC5 -H9eaTzjxMvGpzfSNSDIf9FLZcvsFmLi6kH19kswf3BSCOCvCxKMG/Bf3kLaL -u/S+lcrER2pxO5wEyPUM2K23RoOJHtEdD+fI/DSjLt6j6cxE6VW6++vJfDd1 -RTZW34OJMx61XFHSE2LKLBMfJgY9WEr1mCdgeNxk17qdTJSJyrTrJ/Pnl5qt -Ux5HmEhV/3blC5l/WzfeFU24zsQfG5rz7CYIeHzvAXHmJhPNXj/LCyHzdZP2 -E6fzZUxUm1R5kzxGwH3K50tXq5gYXbKyv2GEAO47oeXlT5koIcu+K0jm/0tB -3vBlkonT1vbSlG8EZHzY8aVvlol3a0xG+XsJSLM7ED80z8SQ2VNSs2R9SdZP -aPstqIQLqn4bdn0iIO4P4SqmoIRGqlsX7X1PQFASX4iZhRKKveh8JfeKALPi -kuz0dCVUM7aPir5PwDt68bX1l5Uwjn+zi/E9sp6lF12duKaEpo8sxwdryHoa -W5DlWKSElW1zEQ5VZD13y84UrVXCDlHjrvnbBKzgS0s58VkJdRWcC8cKCZDx -ORxzSIOFHalhlcbnCCjviIhW1mXh6Mmxj0Vk/XeyDj/aYchC19ykgaXJBKQa -HozSAxa6C+mXjicSICIcHD7swMLS80y+5OMELKryDwkMY2HxzdffvcMIGJW0 -9nVpYGFExKvqcE8Cunczn+96zEKpOf8/se4E1D+ahegnLNS+yt+X4EpASmSx -YmEXC5+N/m46u5kAnS/CH2cGWFhvGvQgdiMBe4lnW65QlDEgSGpoehUBA3bO -nr3blPGD/qE8IxoBvad9Xfbzq+Cj8ynCG59wYO+ABlNHWAV5qZ9LJ1o4ML1h -ZmhIXAVvXXdOy3pM9ne8qfE7ZVXwn5u5YV8DB3QiGu/4aqrgh2b/vu1VHDgS -oEKx26yCiy2zRGkFZL+3evCZ+jUVjLgSe8SU7EetfoVZfTNajjzGex88I/vX -wa0CB+5Eq2JQW2zepbpb5P8GdeHJhhVYUl1RelywFCSfqiRzfqlhTBknOcK5 -GOQSyuyNjDQwW+03p3dHEWSqm4hTtmui/r2k7zOpN6BVdo3h+DktfPa4+is0 -XYdVcg0p2l3aGOB8Z5PVqzwQ5c0N9YvTwUhbA0E90VxQiFU0c1fRRbFF+jt2 -GGSDoLJXheNjXQwOezlbM5YFWuylZWFb9HDOzm9a7vtF2N8j2WjNo48dOZl/ -09vT4df4aWerTNL+I/n+zDTYoP3okpWmAY563P7qU3kO7o+b/pluN0BL6Vf5 -628mw14NvbcvAgyxXtZGIDsvEdjD2zrcBY2wcWd7/bnqE7CeRbMRyTVCU+8P -7+hRx0A1JjG8wdgYLS/mLDK6GQNqASZ1ym+NcSQlxO7B1GEIuL/j+J19K/HU -laCPay6HQV12x7ZRaRM0ikjclnzyAEwUzk9r3zVBj+fRbAf5ENiqXCx4yWYV -ql/unFnXtgtG1c4bcUdWYa7ierHipwFQmf/n82SCKRJxps5RX/3AyDx02jrJ -FF/r1A0Fd/pB+edB4ewzpnisWVVhz2M/4Cr0GFunmuKkUJnu8WI/KMmsP3P1 -sinaGY2nsEL9IPt0vMmGW6boyRuWs4LfD06Fip3LfGWKnxcO/6Ib+ILHOjIW -FczwnHZckqPDFpjrEBBtpJuhJEgdvmO8BbIDht9ZK5nh+/trBdUUtsD3E1Vh -HqpmqErZ+dzupxfsb7Eri9AzwwLfnNvHT3hBom2UQqWFGXKrYzRO1XtCtVvn -X4NgcvxDq77CtR6wbM/JKq16MwwppMjeiXKF5PlAw6QGM9zlF3RFYKcrLEy1 -IPqazFA/oLs0yNkVBir4irJbzPAgzcBxi5YrVPMcz5R8ZYZXSi6UDX1yAY+0 -mLCpb2YoVHb7X7WlC2TWRBjeX8LGXBB62Mp0Bmmh3YSNKxsjtH20vvxzhHzz -I5Ej7mwUncxIIwYdQe9Isvl5LzbeDV4WnvLWEWxHOJ3dfmx88jYzMarCEU50 -Tc5s3c1Gab7nN4SDHeF3bvTayFg2ijQ6r+D96gBvTc+/Kihmo8PT7qK5TnvY -cTA/y+oWGzcltuTdeGgPU7fKAwY5bPRuqm/wKbcHSWb3tG4FG/evMLWYTbOH -jQLycvfq2ZjX/2PNayd7qO0o2Paqk40vKi1U7G/ZgbVopeahbjbOU2plfM7a -QfeGlinaOzbq0ZYLnQqxg4nqnwnen9i4pTOvSFPfDjRzdEp/DLCxyVM6626V -LdS+XXPo9BAbl2x5FJp12RaspTaD9ggbbTfIEZeP2ELgyYMvQifZuELrK9+P -NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I -8cMGru6pnpyfZ+O4wfHZ2jYb+A9FvKVq + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c8Ve8fAPAbRanI3te914qMbHf5fFBGJJERkpEUGuQrSV+jyCgZJWkh +NGTce1OhbwkZbaWsolBKZkYS+Z3fX+f1fp3nnOd5necznkP1O+AUwEcikRhL +SKT/X2d6WhpUUgvNCnUWRU4e3mDWdkXmiHlHPCS8rDCyaKQBSr7yk+nIhIOH +/7ZLNepDhOOtdv6OAuga/Fs0+8QCREelM3+3c0HU5G5s0xMn6H3gcGCqvQ5i +tJm1ak/8wEpl6ONE+xuY2zDVWVkXBr/bTc6Nt/fB6yJJr7/346He8npha8Ek ++LDzhO64ZIFCb9VXP60FcM/vSD7sdAkkQnbeErTkR+3Xg/pf3QogU8+qxsFl +OQ7rdv7tTyuGzpz1tRNrVqPp1beqbtRbkFoY84pPVhQTc5j1VqdLYZPhXjFJ +ZVFc9kfq5r0LpbC8wclFXVsUHzbo5VOKS+FEv2q3nbkoRqc8f9j1sBSiac+/ +nt0rihe8RvaPjZXC/jyZv2rVoui7XeNmjmMZbL3E0bLzFEPht+ph3SvLQfps +f3LWZXEc3MG612VYATLrKk/MFosjwzVJ5A69AuTqEmN2VIij5JcPj5LNKoA8 +rvGPer04+qy1VtO0qQBV+4M+Nd/EMceYNGfmWQEGSxeM+w0kcH7oKN6PrYAt +4VID+k8lsPvDy9tfmivAceW3nvNvJVAl5ve8zYsKcCqo6pz/IIGpoqRzN1or +wPW116vGMQm8lzqT69VVATu0rlV7SEpiTPi6yfM/KiB4QDcj3kcSHXpZ/3qu +5sDJbbZmb2YkMfaZdaa4Awfk7ryU41sihfpTDsXOThwoE9/2S2+lFI5KKDqc +ceXA+zfeFRlKUpjU98zttzcHVLaG07baSGHDgpBdzgEO1G2+KvD6ghSC54dD +S9I5sGA1/fIFSxptLvBbxbzgQHpxVMmClTQWvbu5Xa+VeF6AlKS9VRpzlyTN +9bRxwP6JkPnpAGl0mTzbr/WBA7mWFJ59mjRe2z3lmDXEAVO0O/+sVxor296k +pQhw4RA9f2dLvAyuP/mmiMbkwqY84Sm7UzK4c1WuhKgZF2iC0Ukvz8ngj8jj +1/4gF163uXLe3pDB/HYd2hMrLugcXMXf81IGp7VdizWcuPCt+HDxTzlZtBau +/m66hwteEg4j8jxZvP+tJy80gwsGR2virjwg7J2xayCLC0J9a6WojbIY9jrO +wTmbC1Xl/KDWKYsn7phkq17kgpRdVfr6RVl8NzY/f7GQmD9OxXCjnRyuZW4O +eX2XCxvG5qL298thXWaNiUcHF47YnNV8PCyHN4R48TZdXCjL1+4Sn5FD0xdU +VYMPXJDZ5kOvWi6Pp+sEwxZ6uTB8/8kvfh15HBwpNtk9yIWs+PTwC5HyGP4y +7G3SNBeauzVUhuPkcUzIsoX1iwvzhvVvzVLlMaf0vOLILBd2D07rD1yWx1vp +9/st5rnAsPec0KmXx6vXYybr+HjQJ6m2v2G1AlbnTmdIivBA+sAjRWlpBczZ +8bzkzBoe2De7v9hLUUD1K45aAmI8uBuVqiVioIBjkxn+3yR4kNI7PrTdXQEn +ChKr4+R4oH+zJnCsQAFJAropy1V5EMjnIm1xWwGlgx852arx4JLnaOPZSgU8 +eYKRmqjOAwFhqhqjWQGZcgEOMxo86ApLHDgxooCZUlM6JTo8iGNt9ZUzVcSN +LvmDQSY8sPG+8tPEQhHd7G5bJpvyQDj2x3EXe0X85agedY1OvL8+oTjdRxGv +tA8cecbkwf1N1T8EkhUxkizy8TvwICZE8JhKliL+XEpTHUQeWKVtE7a4rIi3 +W+45fDLnQVvr6PpjHEVsuiqyqdGSB+PuyhGTnYpoJW7yx8eaB/eiDgqKDihi +dLviXrYND/699F+OziixPr+fjyRtebDqk1vNXj4y6iw31KrexAP1wFOkT5pk +/B4qIvdmMw9GkzozFgzJaP/Scei0Aw/u3FJTlgcyljLMSzZu4YHFaO1GV2cy +jq7T4L/pyAPvf6ZTnh8l45dwQ3Vw5oHqeQuFoQQyfl699EIX4eH7Z0oF08ko +k5fDH7aNB1HzGq8tCsno52vYdNaFB+bkw74+ZWS0KXCkUVx5sBwbfh67T0bm +X8+o64TPHfeWrHpORkerSNVbbjzwKiopfv+ejLLxN6JU3XlAa5o1mfpExuAI +gdZLhCuEsjx0p8mI8jkJMdt58Dyj6WqRohKOtx3UkvTkQRZPQq9eXQltQnfd +PEjY451v3Sc9JWxOhvXNhL/JzA/IWynhwj2KT7AXD8oZthF0RyVMUtu18h7h +CK9sQTcP4n7tiid/CfPnrdfM3K+EeoX8e+J38ODp42M15ZFKyF591fkh4fT+ +p/Yv4on5P2k6zRB2WybTM3RKCa3vvtil6c0DsnrAgeXnlTDEvfyUB+EvNlyS +Wr4Sfngy+zSR8O2gxQzLEiXcrttGKSd86JS9sm+lEor/CjnzljCj7MKdfx8p +4eXyMekpwhvaXy6MNithTbnQuPBOHjiQllrvfKOEJT7qAWqE3TXo6a+6lfBC +FSuSQdjfaX8nfFHCgnMWmnaE9x+9RqsYVUINnl60O+HIwo5gyqwSruPxH/Aj +/PhrokcziYIpMjz+vYStjlJjYpdRcK81kxlC+JnIg2umQhQMPZEj9X87Fro2 +jwtTUGuqKXsP4femE8M3xCnokNv0wJew54tUUV8ZCgpuz052I/zJV81YVpGC +ruMGf20J756p9WilUtBzIU+eTvhHimdMshoFL/zu6VMhfFBp5pr5Ogq6Mca3 +rSY8zUtv/q1Lwc9j7WE/ie8RZbNuhGNIWCWX3UaY9PGJaBCdgkX/Me9yCSeE ++hjTzCgYfrju42nCQgJ/PLosKNg+aFgZQDg991xMpjUFR47mshmEc+ufNvNt +paDFtE9AJ7GfSu4BI9UuFNw60CZQSLhweFH0kAcFLVf47QgmXC5p5NnvT0F1 +zV/a40S8GN56FXNxDwWPv5a5VUq42iyo0HkfBXVIJ3sDCTcEXh2pj6CglHNC +1BsiHm3n6WLRRyk4cMuoL57wy/Q2Y8NYCt6cDBNcT7izakVsYTIFhYs+psV6 +EPnoUFjolUbBxkq9SWXCA31mLRJZFDQV8JFtIPJhdGW4WMIlCmoezS+fI/Ll +UJ6wCTufgjmFn6kZhGcNb3pOF1GQIeXqoUKY37unMKCcgs5xZjRzIv9kKmxM +rOoo+KH7h9Y2In8vb+j3/NtIwWyN62OvifymdR6LvfuMWI/1wbhNhLX5eC1q +7yj43e66lCFRDyy2KXoJfqPg6q366p+J+hEyOxHbvJqKZon/9l6zI+I5dLfU +VzEqBoqV8nqI+rR8qKuEX4aKxxkpHyUJF3XXvzejUXGdvYXpEaK+9Tw8p1Vp +TMUV3ccMJDbyYEsCvSN/JxVfdkxkXmIT+fW3dN+jXVS8LrI74jKLqEcRNP6P +e6nICq5tyiXqb9KelToy4VS84udanULU51q7j8fTkqi4UjFeCI2IfiEWp3uU +Q8Wz7PzKJVpE/KRON+TcpSJpolX/qSaxH/xBHndrqPhrYKXJGaI/BE87JUw8 +oWJZJ1+3MNE/CjtUugO7qBivs/jfAJUHUlebE7fx0zBF8I/HsBQPfq9b06Pt +QsOD2Z6hEX+5MHNZLs7Ag4Y3/5jd7iL64ZSIqgp9Jw0rFQweM/9wYXSSHrRh +Lw2DSqtjpoh+2lfjP+NxjIYhjoHROMGFp3b3hJOKaLiZ4tRr2c+F3GBv6Jum +4SHljAb+J1w4/3FP3+AcDfOeMIME6rlwdsuhhJFFGjZFnSILPOZCmkHSs9kV +yrhDp7Nq/gEX4v9w3ETIyliTaj/UeIcLwanLDrKslPF0XHnp62tcYJXczsvO +Vsa0fRcrnsRwoZtScnXjRWX8EeC8eO4YF6Kyb16ZuqqMXq/tRv2PcuFeXPEl +p5vKeJ5RwJ2N4IK+e16O8ANlTP57aH7Zfi5oLDubnvhZGfe+kHxT4UmcX3Ye +jY3QUkEdAYWYrUZcmBDb5ONap4Jr7c2OiPRxoCOE9jqoSQUbH35ukO7lQG3j +HMQ8V8FFX12uInF+S48qUbrxXgXfLVgcob3nwPq+Vb2/h1Qw+tHNEZGnHNjP +ebXjsrgqft8yLhbN4cDQFhfPgV2q+Ls1Maz4Xw4MnPJxDRNUwy5F7o/bYhyw +HTts+8VYHQuUL3mGGlXAsP/yQ3di1uKc0AmT5B1lxP+GNN/JOg1MvG74jxv9 +Noi9UEurGNNE+mdS2eO1t0AhqdzR2FgLRy7Lv701cB1y1tHXiAdqoyrp5KzK +0yJ4KmduNJmhg7RyXdZEwzVgKNSl677XRf0QDar59XwQ5i8I941fj//wxLsp +qVeBHKfE2q6mh6WWVXO5dy7CClWvu05Neli/OX2pg1EO6LBlyw/v0Ee//uFD +yw3PQViPWP0mkgHKnZblZDMzYWzylIttjgHGtkhsZkecAWvdxlxbbUMMu+id +LC2cCg8nmX9+vTTEDYeG8mJeJcJ+Lf2u1gAjvNX6rGvVtuPAHt3Vtn2FMQrz +My8LCsXCRhWZzasLjJH+I9L4WmMUrI1NiawzMUH/j3oyaBcBmgH0R6pdJlhU +8GO/h3oYnKE5zB3/YILtx0PWG8uGwVSvn1FfjwnGD7saya8Mg4cep0qu9Jtg +lemVX6SxUHBy7D0vPWKCsznZnxn3QuEIM+HgCpIp/gz7N2iXbSg0i7ZSR1RN +sVRsZ+iB8IMQ8HDPiTuhpshMCp/63LwPRvcNHd4Yborv+/gjZ8r2QaRiSPD7 +CFNsc7bXIZ/bBynRB5xmj5pi+EKf4HXffVDBiKCwEk3R4c8988t/QmD+7vEH +9bmm6DwXtU/MIAQyy69Mvak3RfSVUXlXHgSP8tp2TUjS8dUry9zQnkD4ZE/d +GSFDxyWRC6f8WwKB9Hvf9j9ydHShnTgWcCcQLLYKOiyj0LHFYk7vQkogNC5h +mMhq0lHuK/Y+NAmE535XV5ib0XF7/tKVf87uhi6VoLL03XRsnF9qO+0RAFM3 +Fn/p3qPjYjOla1zMH766WuUlV9FRIFdtXT2fP3QsPW3TX0PHR2fTg/N/+kGN +j9yF7Fo6vr/sciXujR/EyxgxFlroOPQlU+B1ph+sSQqKfvqBGM+tfHxF0g+0 +At+RAvgYGHQyfM9bZV/wVy1ZkbuZgYvT7i6sOm+IeuIdpObIQJ1EZ9F1Rd6Q +HiD2jOvEwGWZE1/0krzhQdGRU8/cGLgxqfH8SQdvkFCzEVnwZeA2awPXrR92 +QKPaFwmfCAamJavIOs57geZaJYraVQaumggTTd3sCROaWcbccQbqLxyqzdBz +h47nuFF8koHcvfp/L8i7Q+3+UefwaQYmtyZ84i1zhzSubajxHAM3x/3nr9Dl +BpoM0u1qfibalATIPzruBn62+6j1Uky8KnFC1rzLFdoCrVe1sZh4P6+p/muW +C9wv/PN5OomJdjFzJ61MnMHYMvzXplQmkgqtou+rOkPl5+FVeaeZKNaTUGUq +4Qxcco/Jpkwmbk84P+g/4QS3c2pPX7nIRM2LhqRdt50g71QC3bqMiSkfxYr4 +VJ0gOVwkI+ctE+/0RLyKoGwFjw3KyCSz0G1M9/ruaAdYaFsuXE9hoXX+88H9 +OxwgL2C0e5MyCweMl3pmmTnA18Sqwx5rWSgfFxK3fokDhLVsKT+iz0KlM3JB +VSc3Q4pDNPm+FQs5Tqcrf16wh2r3d/OGB1iowi3U3/9mE8jvO1mlU8vCVhK1 +UOiMNaQt7jZKrWPh8I2ySHKkNfBlWnEGG1j4KVou2MrXGobuLruZ18JCO919 +IW8MrKGadCJH7C0Ll+mqmHR2WoHH2djDM19YOPVsoeashhXk1BwxeriSjSk+ +6h2e7RtglcN2jpwwGyNnVh95X7cBYj+Zah9ew0Z/DUUf/7INsGfZrMp6STaa +/ZVo5iVsAJMtERIFZDZ2CE+GaxttgPd9YZMJemwUDndfGXneEiSFQjib3dhY +lvifqdBeCyi0PBY1vp2NR158eJexzQL0j6VZZnmx8SvrvpQOWoDDeMW7Dl82 +Wr34xCiUtoDE99O//UPYWLg0WiyhyRxmC2IsouLYePr5ZpcV68yhi5n1triE +jTXFy47mkxD2/FN4ybaMjfm3d580/ggwU1YZMFzBxoepNUu3VAGI0Tp+6d1l +Y07vAbPRUAC75YoK/9WykWu/XrRvwAwetBXvevuOjekLjpfjW9mwSfi+dkQH +G+vqWWmV5WzosG6Zkelmo5/FZb+VaWyYqv6R5P2Jjd8XB4yV7Nignb++9PsQ +GxszPsgNNLLgQZd5xKkRNt6QkrijWcyCTUQM6o6zkZ98xCgrgQW7T/7TGj7N +xrDMwfCWDSyYqk3MlZ5l46Vd9OlsFRbEz533r55jY2ywbV/CUhasMbyptWOB +jddkIxSzB5hwZV/19OIiMV7GKKmpgQn/Awo/wnM= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -11504,120 +11608,134 @@ NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VF0YAHAlWbIPZpJlZgzJvktM71tKKGt2shUtKiplSVlKiZIkVCpb -ImTuFNmKUFlKG9KmTZGQXZR89/vrPr/nnnvuc88573IZ/sGOAQt5eHgkFvDw -/H+d6mlpYiXlrzYQzVLx6FyzuuMqLWJNdxz8zO7W6PSkA0o/86d1p0J78O6i -Mk8dOGR/8zVvdy70/Vi3L90TQWKYmjrzmgtdfXl/gj3t4WOtbfDE6wZIynjl -NenhCxasgQ+jr1+C0yTtqqx7CMy8Nr4w8voLXDc/faLKIQYazW/kv8gdh52O -hSecPqaA3Meq7/4ac9DsIHo0qyETpHb73OQ350XjwmL/aEo2pOpa1Ng6C+Cc -TcWy4q48eJOpUz8qLoLR+9pWaEvegKT86GcLl0pgWbrq0VSTm0BN+3rq/BUK -fmr/l2oxXAI09fLjvwsouNKxuenidAnINpyI3sKhoGL5Q/U+nlJQGFlxcHkj -BTNjr6eFUEpBeVOIb00/BcvPBhLslaWgv2jO6Ku+FLba3KDVx5SCXahMr16r -FK5WGBL3FrkFJ52sVr+ckkbmZ7HUZqkykL3TLrtwgQxObVisYi1fBrcoTtO6 -S2TQJ3BXXpNyGXS99OacU5RBibFfLvlGZcByCGU6WMrgYBw3QdStDBpsri1+ -flEGywy/bjlzsQzmLCbbn5pRkW55oDljCQdSCiKL5yyouFs4MTBQjAOsxTwJ -mg5UfF7O2aNL4cCmh0JrzgRQMSddoqJWlgOXzOm3NyVTccfRguWFKziwEjdm -tH2k4guXdJeXFhw4YJLj0xJHQ8F08937j3LAOlt0YuNpGlaHm9elxXKAyR+V -0H6Bhp+Uun7ePs6B5x0uxKtCGtbtc3rRn8gBrRBh3p52Gga62rdpZHCgvyCs -YEx2Kaa4uAfJl3HAS8p2aNntpbhgNlcs5z0H9A/XxF6tXYr7zlpFeH/kgNAX -VRnGo6V4cWxbDe0LB6rKeEHlzVJ09aa2HOvjgMzGqhSd+aXYabJnicEY+f5Y -lsH6jbLIPyplPLeYgHW/ZiP3fpVFi3rJCj0tAiIs09QeDMpi9K4r8dE6BNzK -0XxLmZLFbH/CrkWPAJqTr0mVwDL827uwY7MxAYOVD6d5tZah3phnzjok4Hxc -SujF8GUo+FF//wUHAr5Iq+xtEpFDq8zz+pP7CKAG18lTqXKoXs1X9PkAAZua -3Z7upMthJldEse0gARWRSRpi+nI4yPdG5EIEAYkfRwbc3eRwUZHv3KJYAvSK -arb/ypVDsW5eH+ezBMSaOfjJrpTHdWq8WtVFBFh6Xx0zXiuPS3PC3u8oJkA0 -5ucx503yKDV/RlSqlICsxviCFF95bH+1bd6HQ0CldfXPxafk8fKEC729goAR -N6VD42/k8Y/ug8e8jQTcjQzhl+iVRxOFS32RTQQczbqXqTUsj9OP81OHHxIg -/Mm1ZudCBfwj6H66rZmA5dtP83xSU8Atw7VyXu0EeB+cTHxyWAElTX+odncT -oJyxVm4gXgENz+ib0t7+v35nS/lTFPCBjsNnp3cERP5d8XxtvgJKRG7+2fiB -gAvHvKWrnihgtkfL4ogvBDw59/jadXlF7INjn+Enud63pXQblyuifLR6uNUg -AR6dfg2fdBVx/3rHErshAvppf3uXWSiiamXRL4dfBPBm66il7lXE53uyJjTH -CVh16+Kdo3WKqLm+PGndLHkeXrfPDTcrYvPv1JVCfwiw5Vm0weelIpbuX//3 -CemtjnvfwDdFPKsa3Go1R4DFYUZ0DB8dFxb8PEfn4UKbWG3eSiE6/t0dw/eM -tH2+S/OIKB3ZnafSIhdwwfNpkoQfjY5r17rxtyzkQojiVN4adTre7r1sb87H -hcnbKc0z2nS0mU3gvCUdaak+RBjQ8WRrpU7wYi7E7/M1Yq6m42UD57Sz/Fy4 -1NjavNCBjlNj3TOlglxQdAsYqnYm5yvQ2qMlxIX8wXmJAx50NLzUwFdCukza -0PPrVjq22OsUXV3Chabt14YaD9FRfC21zU+EC1Z/TSSjDtPRz8U2so10e0qH -kUEMHVc//LlZT5QLb6oEY/JP0TH06WzCNGlv2/x8r2Q6ShXe/+YsxoXeL6tb -pM7Tcdb7TDBBenhJqGR8Fh3z3KaFfcW5cCBb1JidQ8d4iwHGbdK/DYo8J6/T -kS8wI5BXggu83j35AWXk+NGu2MukE8bCW+Tv0PHttkfuX0mLnqQMd1bSUYCq -tk1Vkgs0jqWxRQMdB9LEKDdJX1n31fPfIzo+Lh+v/E6a+eZITEUbHWl14ml0 -Chc0F95uUemkY1LIg8Ek0tx0m+GeN3TsK60Nukd6pXq/ZEYPHa3m6piDpNc6 -yXvx99PRlVVuukaKC4/778bUDdJRq5FybTvpTUccr4eN0jFmgRM7ifRLiaEW -7Sk6DvdoUktIuxacHO6bpaP6vLtmK+n3q5iU7Hly/YrOxXwj7f+s1thtEQM1 -mpMl/pHu2+rqJS7IQP/+JZ8p0lzY/Xs0plmEgQEmTb9USK/aFyjzXZKBcl2T -UStJCwy8LealMVDgyodnFqS7/O3WMOQZKBy++4cD6evvGrtWMxl4UCut1Z10 -qNPK3V7LGWixbUOoN+m1T0sWRGowMOFiRJ8PaXELRkaGLgMLVygq/3+/5/4F -jXIjBj6w1tT6//kSY6GGl6YM/CF8iff/+SM5R11HkIGp7l4F60lbrhgfFLFg -4NOxIKoxaZnc7XHqGxl4ff8DV2XSvbLvqVb2DNxr7bJDnDT3vH1poDMDRRpY -1r/J748Rfrj2uAcDPaeX/3tP2i7epDvHh4G+Hzzj75NW+Fe6p24bA++Y3vuU -RXrwEJP3w04GtpZaSYSTrv6Vnjm7l4GGufNUe9IJO5Zo0ULJ+T16JlmkXT5H -NxpGMFC1/1vxFLm/LI8Jt81HGRiuQzV9SLp+44djyQkMfJ7yr9+NdHKTw9KS -Mwwcjq4WVCDtxX50qyWVgZSuYv5P5Pma0Sp7s+gKA+3Q/JoH6eYbSsHMXAYe -ypxcRSGdTs9chDfI7+mZvNtMnl89yVjtwwQDo8IWeKiR5kmabMqsYOCuAMXY -LjIe2nl3eVTUMFDoIOdMNOmgScf40YcMnGlz92wm4ym/m/Vu+1sGLjlj+N2A -jL/9DhdD4j8ycA42uzST8YqtIovzehl48/nmO26kP9RM6fQMMzBw3Hx1iDC5 -H9eaTzjxMvGpzfSNSDIf9FLZcvsFmLi6kH19kswf3BSCOCvCxKMG/Bf3kLaL -u/S+lcrER2pxO5wEyPUM2K23RoOJHtEdD+fI/DSjLt6j6cxE6VW6++vJfDd1 -RTZW34OJMx61XFHSE2LKLBMfJgY9WEr1mCdgeNxk17qdTJSJyrTrJ/Pnl5qt -Ux5HmEhV/3blC5l/WzfeFU24zsQfG5rz7CYIeHzvAXHmJhPNXj/LCyHzdZP2 -E6fzZUxUm1R5kzxGwH3K50tXq5gYXbKyv2GEAO47oeXlT5koIcu+K0jm/0tB -3vBlkonT1vbSlG8EZHzY8aVvlol3a0xG+XsJSLM7ED80z8SQ2VNSs2R9SdZP -aPstqIQLqn4bdn0iIO4P4SqmoIRGqlsX7X1PQFASX4iZhRKKveh8JfeKALPi -kuz0dCVUM7aPir5PwDt68bX1l5Uwjn+zi/E9sp6lF12duKaEpo8sxwdryHoa -W5DlWKSElW1zEQ5VZD13y84UrVXCDlHjrvnbBKzgS0s58VkJdRWcC8cKCZDx -ORxzSIOFHalhlcbnCCjviIhW1mXh6Mmxj0Vk/XeyDj/aYchC19ykgaXJBKQa -HozSAxa6C+mXjicSICIcHD7swMLS80y+5OMELKryDwkMY2HxzdffvcMIGJW0 -9nVpYGFExKvqcE8Cunczn+96zEKpOf8/se4E1D+ahegnLNS+yt+X4EpASmSx -YmEXC5+N/m46u5kAnS/CH2cGWFhvGvQgdiMBe4lnW65QlDEgSGpoehUBA3bO -nr3blPGD/qE8IxoBvad9Xfbzq+Cj8ynCG59wYO+ABlNHWAV5qZ9LJ1o4ML1h -ZmhIXAVvXXdOy3pM9ne8qfE7ZVXwn5u5YV8DB3QiGu/4aqrgh2b/vu1VHDgS -oEKx26yCiy2zRGkFZL+3evCZ+jUVjLgSe8SU7EetfoVZfTNajjzGex88I/vX -wa0CB+5Eq2JQW2zepbpb5P8GdeHJhhVYUl1RelywFCSfqiRzfqlhTBknOcK5 -GOQSyuyNjDQwW+03p3dHEWSqm4hTtmui/r2k7zOpN6BVdo3h+DktfPa4+is0 -XYdVcg0p2l3aGOB8Z5PVqzwQ5c0N9YvTwUhbA0E90VxQiFU0c1fRRbFF+jt2 -GGSDoLJXheNjXQwOezlbM5YFWuylZWFb9HDOzm9a7vtF2N8j2WjNo48dOZl/ -09vT4df4aWerTNL+I/n+zDTYoP3okpWmAY563P7qU3kO7o+b/pluN0BL6Vf5 -628mw14NvbcvAgyxXtZGIDsvEdjD2zrcBY2wcWd7/bnqE7CeRbMRyTVCU+8P -7+hRx0A1JjG8wdgYLS/mLDK6GQNqASZ1ym+NcSQlxO7B1GEIuL/j+J19K/HU -laCPay6HQV12x7ZRaRM0ikjclnzyAEwUzk9r3zVBj+fRbAf5ENiqXCx4yWYV -ql/unFnXtgtG1c4bcUdWYa7ierHipwFQmf/n82SCKRJxps5RX/3AyDx02jrJ -FF/r1A0Fd/pB+edB4ewzpnisWVVhz2M/4Cr0GFunmuKkUJnu8WI/KMmsP3P1 -sinaGY2nsEL9IPt0vMmGW6boyRuWs4LfD06Fip3LfGWKnxcO/6Ib+ILHOjIW -FczwnHZckqPDFpjrEBBtpJuhJEgdvmO8BbIDht9ZK5nh+/trBdUUtsD3E1Vh -HqpmqErZ+dzupxfsb7Eri9AzwwLfnNvHT3hBom2UQqWFGXKrYzRO1XtCtVvn -X4NgcvxDq77CtR6wbM/JKq16MwwppMjeiXKF5PlAw6QGM9zlF3RFYKcrLEy1 -IPqazFA/oLs0yNkVBir4irJbzPAgzcBxi5YrVPMcz5R8ZYZXSi6UDX1yAY+0 -mLCpb2YoVHb7X7WlC2TWRBjeX8LGXBB62Mp0Bmmh3YSNKxsjtH20vvxzhHzz -I5Ej7mwUncxIIwYdQe9Isvl5LzbeDV4WnvLWEWxHOJ3dfmx88jYzMarCEU50 -Tc5s3c1Gab7nN4SDHeF3bvTayFg2ijQ6r+D96gBvTc+/Kihmo8PT7qK5TnvY -cTA/y+oWGzcltuTdeGgPU7fKAwY5bPRuqm/wKbcHSWb3tG4FG/evMLWYTbOH -jQLycvfq2ZjX/2PNayd7qO0o2Paqk40vKi1U7G/ZgbVopeahbjbOU2plfM7a -QfeGlinaOzbq0ZYLnQqxg4nqnwnen9i4pTOvSFPfDjRzdEp/DLCxyVM6626V -LdS+XXPo9BAbl2x5FJp12RaspTaD9ggbbTfIEZeP2ELgyYMvQifZuELrK9+P -NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I -8cMGru6pnpyfZ+O4wfHZ2jYb+A9FvKVq +1:eJwV13c8Ve8fAPAbRanI3te914qMbHf5fFBGJJERkpEUGuQrSV+jyCgZJWkh +NGTce1OhbwkZbaWsolBKZkYS+Z3fX+f1fp3nnOd5necznkP1O+AUwEcikRhL +SKT/X2d6WhpUUgvNCnUWRU4e3mDWdkXmiHlHPCS8rDCyaKQBSr7yk+nIhIOH +/7ZLNepDhOOtdv6OAuga/Fs0+8QCREelM3+3c0HU5G5s0xMn6H3gcGCqvQ5i +tJm1ak/8wEpl6ONE+xuY2zDVWVkXBr/bTc6Nt/fB6yJJr7/346He8npha8Ek ++LDzhO64ZIFCb9VXP60FcM/vSD7sdAkkQnbeErTkR+3Xg/pf3QogU8+qxsFl +OQ7rdv7tTyuGzpz1tRNrVqPp1beqbtRbkFoY84pPVhQTc5j1VqdLYZPhXjFJ +ZVFc9kfq5r0LpbC8wclFXVsUHzbo5VOKS+FEv2q3nbkoRqc8f9j1sBSiac+/ +nt0rihe8RvaPjZXC/jyZv2rVoui7XeNmjmMZbL3E0bLzFEPht+ph3SvLQfps +f3LWZXEc3MG612VYATLrKk/MFosjwzVJ5A69AuTqEmN2VIij5JcPj5LNKoA8 +rvGPer04+qy1VtO0qQBV+4M+Nd/EMceYNGfmWQEGSxeM+w0kcH7oKN6PrYAt +4VID+k8lsPvDy9tfmivAceW3nvNvJVAl5ve8zYsKcCqo6pz/IIGpoqRzN1or +wPW116vGMQm8lzqT69VVATu0rlV7SEpiTPi6yfM/KiB4QDcj3kcSHXpZ/3qu +5sDJbbZmb2YkMfaZdaa4Awfk7ryU41sihfpTDsXOThwoE9/2S2+lFI5KKDqc +ceXA+zfeFRlKUpjU98zttzcHVLaG07baSGHDgpBdzgEO1G2+KvD6ghSC54dD +S9I5sGA1/fIFSxptLvBbxbzgQHpxVMmClTQWvbu5Xa+VeF6AlKS9VRpzlyTN +9bRxwP6JkPnpAGl0mTzbr/WBA7mWFJ59mjRe2z3lmDXEAVO0O/+sVxor296k +pQhw4RA9f2dLvAyuP/mmiMbkwqY84Sm7UzK4c1WuhKgZF2iC0Ukvz8ngj8jj +1/4gF163uXLe3pDB/HYd2hMrLugcXMXf81IGp7VdizWcuPCt+HDxTzlZtBau +/m66hwteEg4j8jxZvP+tJy80gwsGR2virjwg7J2xayCLC0J9a6WojbIY9jrO +wTmbC1Xl/KDWKYsn7phkq17kgpRdVfr6RVl8NzY/f7GQmD9OxXCjnRyuZW4O +eX2XCxvG5qL298thXWaNiUcHF47YnNV8PCyHN4R48TZdXCjL1+4Sn5FD0xdU +VYMPXJDZ5kOvWi6Pp+sEwxZ6uTB8/8kvfh15HBwpNtk9yIWs+PTwC5HyGP4y +7G3SNBeauzVUhuPkcUzIsoX1iwvzhvVvzVLlMaf0vOLILBd2D07rD1yWx1vp +9/st5rnAsPec0KmXx6vXYybr+HjQJ6m2v2G1AlbnTmdIivBA+sAjRWlpBczZ +8bzkzBoe2De7v9hLUUD1K45aAmI8uBuVqiVioIBjkxn+3yR4kNI7PrTdXQEn +ChKr4+R4oH+zJnCsQAFJAropy1V5EMjnIm1xWwGlgx852arx4JLnaOPZSgU8 +eYKRmqjOAwFhqhqjWQGZcgEOMxo86ApLHDgxooCZUlM6JTo8iGNt9ZUzVcSN +LvmDQSY8sPG+8tPEQhHd7G5bJpvyQDj2x3EXe0X85agedY1OvL8+oTjdRxGv +tA8cecbkwf1N1T8EkhUxkizy8TvwICZE8JhKliL+XEpTHUQeWKVtE7a4rIi3 +W+45fDLnQVvr6PpjHEVsuiqyqdGSB+PuyhGTnYpoJW7yx8eaB/eiDgqKDihi +dLviXrYND/699F+OziixPr+fjyRtebDqk1vNXj4y6iw31KrexAP1wFOkT5pk +/B4qIvdmMw9GkzozFgzJaP/Scei0Aw/u3FJTlgcyljLMSzZu4YHFaO1GV2cy +jq7T4L/pyAPvf6ZTnh8l45dwQ3Vw5oHqeQuFoQQyfl699EIX4eH7Z0oF08ko +k5fDH7aNB1HzGq8tCsno52vYdNaFB+bkw74+ZWS0KXCkUVx5sBwbfh67T0bm +X8+o64TPHfeWrHpORkerSNVbbjzwKiopfv+ejLLxN6JU3XlAa5o1mfpExuAI +gdZLhCuEsjx0p8mI8jkJMdt58Dyj6WqRohKOtx3UkvTkQRZPQq9eXQltQnfd +PEjY451v3Sc9JWxOhvXNhL/JzA/IWynhwj2KT7AXD8oZthF0RyVMUtu18h7h +CK9sQTcP4n7tiid/CfPnrdfM3K+EeoX8e+J38ODp42M15ZFKyF591fkh4fT+ +p/Yv4on5P2k6zRB2WybTM3RKCa3vvtil6c0DsnrAgeXnlTDEvfyUB+EvNlyS +Wr4Sfngy+zSR8O2gxQzLEiXcrttGKSd86JS9sm+lEor/CjnzljCj7MKdfx8p +4eXyMekpwhvaXy6MNithTbnQuPBOHjiQllrvfKOEJT7qAWqE3TXo6a+6lfBC +FSuSQdjfaX8nfFHCgnMWmnaE9x+9RqsYVUINnl60O+HIwo5gyqwSruPxH/Aj +/PhrokcziYIpMjz+vYStjlJjYpdRcK81kxlC+JnIg2umQhQMPZEj9X87Fro2 +jwtTUGuqKXsP4femE8M3xCnokNv0wJew54tUUV8ZCgpuz052I/zJV81YVpGC +ruMGf20J756p9WilUtBzIU+eTvhHimdMshoFL/zu6VMhfFBp5pr5Ogq6Mca3 +rSY8zUtv/q1Lwc9j7WE/ie8RZbNuhGNIWCWX3UaY9PGJaBCdgkX/Me9yCSeE ++hjTzCgYfrju42nCQgJ/PLosKNg+aFgZQDg991xMpjUFR47mshmEc+ufNvNt +paDFtE9AJ7GfSu4BI9UuFNw60CZQSLhweFH0kAcFLVf47QgmXC5p5NnvT0F1 +zV/a40S8GN56FXNxDwWPv5a5VUq42iyo0HkfBXVIJ3sDCTcEXh2pj6CglHNC +1BsiHm3n6WLRRyk4cMuoL57wy/Q2Y8NYCt6cDBNcT7izakVsYTIFhYs+psV6 +EPnoUFjolUbBxkq9SWXCA31mLRJZFDQV8JFtIPJhdGW4WMIlCmoezS+fI/Ll +UJ6wCTufgjmFn6kZhGcNb3pOF1GQIeXqoUKY37unMKCcgs5xZjRzIv9kKmxM +rOoo+KH7h9Y2In8vb+j3/NtIwWyN62OvifymdR6LvfuMWI/1wbhNhLX5eC1q +7yj43e66lCFRDyy2KXoJfqPg6q366p+J+hEyOxHbvJqKZon/9l6zI+I5dLfU +VzEqBoqV8nqI+rR8qKuEX4aKxxkpHyUJF3XXvzejUXGdvYXpEaK+9Tw8p1Vp +TMUV3ccMJDbyYEsCvSN/JxVfdkxkXmIT+fW3dN+jXVS8LrI74jKLqEcRNP6P +e6nICq5tyiXqb9KelToy4VS84udanULU51q7j8fTkqi4UjFeCI2IfiEWp3uU +Q8Wz7PzKJVpE/KRON+TcpSJpolX/qSaxH/xBHndrqPhrYKXJGaI/BE87JUw8 +oWJZJ1+3MNE/CjtUugO7qBivs/jfAJUHUlebE7fx0zBF8I/HsBQPfq9b06Pt +QsOD2Z6hEX+5MHNZLs7Ag4Y3/5jd7iL64ZSIqgp9Jw0rFQweM/9wYXSSHrRh +Lw2DSqtjpoh+2lfjP+NxjIYhjoHROMGFp3b3hJOKaLiZ4tRr2c+F3GBv6Jum +4SHljAb+J1w4/3FP3+AcDfOeMIME6rlwdsuhhJFFGjZFnSILPOZCmkHSs9kV +yrhDp7Nq/gEX4v9w3ETIyliTaj/UeIcLwanLDrKslPF0XHnp62tcYJXczsvO +Vsa0fRcrnsRwoZtScnXjRWX8EeC8eO4YF6Kyb16ZuqqMXq/tRv2PcuFeXPEl +p5vKeJ5RwJ2N4IK+e16O8ANlTP57aH7Zfi5oLDubnvhZGfe+kHxT4UmcX3Ye +jY3QUkEdAYWYrUZcmBDb5ONap4Jr7c2OiPRxoCOE9jqoSQUbH35ukO7lQG3j +HMQ8V8FFX12uInF+S48qUbrxXgXfLVgcob3nwPq+Vb2/h1Qw+tHNEZGnHNjP +ebXjsrgqft8yLhbN4cDQFhfPgV2q+Ls1Maz4Xw4MnPJxDRNUwy5F7o/bYhyw +HTts+8VYHQuUL3mGGlXAsP/yQ3di1uKc0AmT5B1lxP+GNN/JOg1MvG74jxv9 +Noi9UEurGNNE+mdS2eO1t0AhqdzR2FgLRy7Lv701cB1y1tHXiAdqoyrp5KzK +0yJ4KmduNJmhg7RyXdZEwzVgKNSl677XRf0QDar59XwQ5i8I941fj//wxLsp +qVeBHKfE2q6mh6WWVXO5dy7CClWvu05Neli/OX2pg1EO6LBlyw/v0Ee//uFD +yw3PQViPWP0mkgHKnZblZDMzYWzylIttjgHGtkhsZkecAWvdxlxbbUMMu+id +LC2cCg8nmX9+vTTEDYeG8mJeJcJ+Lf2u1gAjvNX6rGvVtuPAHt3Vtn2FMQrz +My8LCsXCRhWZzasLjJH+I9L4WmMUrI1NiawzMUH/j3oyaBcBmgH0R6pdJlhU +8GO/h3oYnKE5zB3/YILtx0PWG8uGwVSvn1FfjwnGD7saya8Mg4cep0qu9Jtg +lemVX6SxUHBy7D0vPWKCsznZnxn3QuEIM+HgCpIp/gz7N2iXbSg0i7ZSR1RN +sVRsZ+iB8IMQ8HDPiTuhpshMCp/63LwPRvcNHd4Yborv+/gjZ8r2QaRiSPD7 +CFNsc7bXIZ/bBynRB5xmj5pi+EKf4HXffVDBiKCwEk3R4c8988t/QmD+7vEH +9bmm6DwXtU/MIAQyy69Mvak3RfSVUXlXHgSP8tp2TUjS8dUry9zQnkD4ZE/d +GSFDxyWRC6f8WwKB9Hvf9j9ydHShnTgWcCcQLLYKOiyj0LHFYk7vQkogNC5h +mMhq0lHuK/Y+NAmE535XV5ib0XF7/tKVf87uhi6VoLL03XRsnF9qO+0RAFM3 +Fn/p3qPjYjOla1zMH766WuUlV9FRIFdtXT2fP3QsPW3TX0PHR2fTg/N/+kGN +j9yF7Fo6vr/sciXujR/EyxgxFlroOPQlU+B1ph+sSQqKfvqBGM+tfHxF0g+0 +At+RAvgYGHQyfM9bZV/wVy1ZkbuZgYvT7i6sOm+IeuIdpObIQJ1EZ9F1Rd6Q +HiD2jOvEwGWZE1/0krzhQdGRU8/cGLgxqfH8SQdvkFCzEVnwZeA2awPXrR92 +QKPaFwmfCAamJavIOs57geZaJYraVQaumggTTd3sCROaWcbccQbqLxyqzdBz +h47nuFF8koHcvfp/L8i7Q+3+UefwaQYmtyZ84i1zhzSubajxHAM3x/3nr9Dl +BpoM0u1qfibalATIPzruBn62+6j1Uky8KnFC1rzLFdoCrVe1sZh4P6+p/muW +C9wv/PN5OomJdjFzJ61MnMHYMvzXplQmkgqtou+rOkPl5+FVeaeZKNaTUGUq +4Qxcco/Jpkwmbk84P+g/4QS3c2pPX7nIRM2LhqRdt50g71QC3bqMiSkfxYr4 +VJ0gOVwkI+ctE+/0RLyKoGwFjw3KyCSz0G1M9/ruaAdYaFsuXE9hoXX+88H9 +OxwgL2C0e5MyCweMl3pmmTnA18Sqwx5rWSgfFxK3fokDhLVsKT+iz0KlM3JB +VSc3Q4pDNPm+FQs5Tqcrf16wh2r3d/OGB1iowi3U3/9mE8jvO1mlU8vCVhK1 +UOiMNaQt7jZKrWPh8I2ySHKkNfBlWnEGG1j4KVou2MrXGobuLruZ18JCO919 +IW8MrKGadCJH7C0Ll+mqmHR2WoHH2djDM19YOPVsoeashhXk1BwxeriSjSk+ +6h2e7RtglcN2jpwwGyNnVh95X7cBYj+Zah9ew0Z/DUUf/7INsGfZrMp6STaa +/ZVo5iVsAJMtERIFZDZ2CE+GaxttgPd9YZMJemwUDndfGXneEiSFQjib3dhY +lvifqdBeCyi0PBY1vp2NR158eJexzQL0j6VZZnmx8SvrvpQOWoDDeMW7Dl82 +Wr34xCiUtoDE99O//UPYWLg0WiyhyRxmC2IsouLYePr5ZpcV68yhi5n1triE +jTXFy47mkxD2/FN4ybaMjfm3d580/ggwU1YZMFzBxoepNUu3VAGI0Tp+6d1l +Y07vAbPRUAC75YoK/9WykWu/XrRvwAwetBXvevuOjekLjpfjW9mwSfi+dkQH +G+vqWWmV5WzosG6Zkelmo5/FZb+VaWyYqv6R5P2Jjd8XB4yV7Nignb++9PsQ +GxszPsgNNLLgQZd5xKkRNt6QkrijWcyCTUQM6o6zkZ98xCgrgQW7T/7TGj7N +xrDMwfCWDSyYqk3MlZ5l46Vd9OlsFRbEz533r55jY2ywbV/CUhasMbyptWOB +jddkIxSzB5hwZV/19OIiMV7GKKmpgQn/Awo/wnM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07063865090603916}}, + "PlotRange" -> {{0, 30}, {0., 0.0756747860534951}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -11629,19 +11747,19 @@ NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07063865090603916}}, + "PlotRange" -> {{0, 30}, {0., 0.0756747860534951}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -11656,119 +11774,133 @@ NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VF0YAHAlWbIPZpJlZgzJvktM71tKKGt2shUtKiplSVlKiZIkVCpb -ImTuFNmKUFlKG9KmTZGQXZR89/vrPr/nnnvuc88573IZ/sGOAQt5eHgkFvDw -/H+d6mlpYiXlrzYQzVLx6FyzuuMqLWJNdxz8zO7W6PSkA0o/86d1p0J78O6i -Mk8dOGR/8zVvdy70/Vi3L90TQWKYmjrzmgtdfXl/gj3t4WOtbfDE6wZIynjl -NenhCxasgQ+jr1+C0yTtqqx7CMy8Nr4w8voLXDc/faLKIQYazW/kv8gdh52O -hSecPqaA3Meq7/4ac9DsIHo0qyETpHb73OQ350XjwmL/aEo2pOpa1Ng6C+Cc -TcWy4q48eJOpUz8qLoLR+9pWaEvegKT86GcLl0pgWbrq0VSTm0BN+3rq/BUK -fmr/l2oxXAI09fLjvwsouNKxuenidAnINpyI3sKhoGL5Q/U+nlJQGFlxcHkj -BTNjr6eFUEpBeVOIb00/BcvPBhLslaWgv2jO6Ku+FLba3KDVx5SCXahMr16r -FK5WGBL3FrkFJ52sVr+ckkbmZ7HUZqkykL3TLrtwgQxObVisYi1fBrcoTtO6 -S2TQJ3BXXpNyGXS99OacU5RBibFfLvlGZcByCGU6WMrgYBw3QdStDBpsri1+ -flEGywy/bjlzsQzmLCbbn5pRkW55oDljCQdSCiKL5yyouFs4MTBQjAOsxTwJ -mg5UfF7O2aNL4cCmh0JrzgRQMSddoqJWlgOXzOm3NyVTccfRguWFKziwEjdm -tH2k4guXdJeXFhw4YJLj0xJHQ8F08937j3LAOlt0YuNpGlaHm9elxXKAyR+V -0H6Bhp+Uun7ePs6B5x0uxKtCGtbtc3rRn8gBrRBh3p52Gga62rdpZHCgvyCs -YEx2Kaa4uAfJl3HAS8p2aNntpbhgNlcs5z0H9A/XxF6tXYr7zlpFeH/kgNAX -VRnGo6V4cWxbDe0LB6rKeEHlzVJ09aa2HOvjgMzGqhSd+aXYabJnicEY+f5Y -lsH6jbLIPyplPLeYgHW/ZiP3fpVFi3rJCj0tAiIs09QeDMpi9K4r8dE6BNzK -0XxLmZLFbH/CrkWPAJqTr0mVwDL827uwY7MxAYOVD6d5tZah3phnzjok4Hxc -SujF8GUo+FF//wUHAr5Iq+xtEpFDq8zz+pP7CKAG18lTqXKoXs1X9PkAAZua -3Z7upMthJldEse0gARWRSRpi+nI4yPdG5EIEAYkfRwbc3eRwUZHv3KJYAvSK -arb/ypVDsW5eH+ezBMSaOfjJrpTHdWq8WtVFBFh6Xx0zXiuPS3PC3u8oJkA0 -5ucx503yKDV/RlSqlICsxviCFF95bH+1bd6HQ0CldfXPxafk8fKEC729goAR -N6VD42/k8Y/ug8e8jQTcjQzhl+iVRxOFS32RTQQczbqXqTUsj9OP81OHHxIg -/Mm1ZudCBfwj6H66rZmA5dtP83xSU8Atw7VyXu0EeB+cTHxyWAElTX+odncT -oJyxVm4gXgENz+ib0t7+v35nS/lTFPCBjsNnp3cERP5d8XxtvgJKRG7+2fiB -gAvHvKWrnihgtkfL4ogvBDw59/jadXlF7INjn+Enud63pXQblyuifLR6uNUg -AR6dfg2fdBVx/3rHErshAvppf3uXWSiiamXRL4dfBPBm66il7lXE53uyJjTH -CVh16+Kdo3WKqLm+PGndLHkeXrfPDTcrYvPv1JVCfwiw5Vm0weelIpbuX//3 -CemtjnvfwDdFPKsa3Go1R4DFYUZ0DB8dFxb8PEfn4UKbWG3eSiE6/t0dw/eM -tH2+S/OIKB3ZnafSIhdwwfNpkoQfjY5r17rxtyzkQojiVN4adTre7r1sb87H -hcnbKc0z2nS0mU3gvCUdaak+RBjQ8WRrpU7wYi7E7/M1Yq6m42UD57Sz/Fy4 -1NjavNCBjlNj3TOlglxQdAsYqnYm5yvQ2qMlxIX8wXmJAx50NLzUwFdCukza -0PPrVjq22OsUXV3Chabt14YaD9FRfC21zU+EC1Z/TSSjDtPRz8U2so10e0qH -kUEMHVc//LlZT5QLb6oEY/JP0TH06WzCNGlv2/x8r2Q6ShXe/+YsxoXeL6tb -pM7Tcdb7TDBBenhJqGR8Fh3z3KaFfcW5cCBb1JidQ8d4iwHGbdK/DYo8J6/T -kS8wI5BXggu83j35AWXk+NGu2MukE8bCW+Tv0PHttkfuX0mLnqQMd1bSUYCq -tk1Vkgs0jqWxRQMdB9LEKDdJX1n31fPfIzo+Lh+v/E6a+eZITEUbHWl14ml0 -Chc0F95uUemkY1LIg8Ek0tx0m+GeN3TsK60Nukd6pXq/ZEYPHa3m6piDpNc6 -yXvx99PRlVVuukaKC4/778bUDdJRq5FybTvpTUccr4eN0jFmgRM7ifRLiaEW -7Sk6DvdoUktIuxacHO6bpaP6vLtmK+n3q5iU7Hly/YrOxXwj7f+s1thtEQM1 -mpMl/pHu2+rqJS7IQP/+JZ8p0lzY/Xs0plmEgQEmTb9USK/aFyjzXZKBcl2T -UStJCwy8LealMVDgyodnFqS7/O3WMOQZKBy++4cD6evvGrtWMxl4UCut1Z10 -qNPK3V7LGWixbUOoN+m1T0sWRGowMOFiRJ8PaXELRkaGLgMLVygq/3+/5/4F -jXIjBj6w1tT6//kSY6GGl6YM/CF8iff/+SM5R11HkIGp7l4F60lbrhgfFLFg -4NOxIKoxaZnc7XHqGxl4ff8DV2XSvbLvqVb2DNxr7bJDnDT3vH1poDMDRRpY -1r/J748Rfrj2uAcDPaeX/3tP2i7epDvHh4G+Hzzj75NW+Fe6p24bA++Y3vuU -RXrwEJP3w04GtpZaSYSTrv6Vnjm7l4GGufNUe9IJO5Zo0ULJ+T16JlmkXT5H -NxpGMFC1/1vxFLm/LI8Jt81HGRiuQzV9SLp+44djyQkMfJ7yr9+NdHKTw9KS -Mwwcjq4WVCDtxX50qyWVgZSuYv5P5Pma0Sp7s+gKA+3Q/JoH6eYbSsHMXAYe -ypxcRSGdTs9chDfI7+mZvNtMnl89yVjtwwQDo8IWeKiR5kmabMqsYOCuAMXY -LjIe2nl3eVTUMFDoIOdMNOmgScf40YcMnGlz92wm4ym/m/Vu+1sGLjlj+N2A -jL/9DhdD4j8ycA42uzST8YqtIovzehl48/nmO26kP9RM6fQMMzBw3Hx1iDC5 -H9eaTzjxMvGpzfSNSDIf9FLZcvsFmLi6kH19kswf3BSCOCvCxKMG/Bf3kLaL -u/S+lcrER2pxO5wEyPUM2K23RoOJHtEdD+fI/DSjLt6j6cxE6VW6++vJfDd1 -RTZW34OJMx61XFHSE2LKLBMfJgY9WEr1mCdgeNxk17qdTJSJyrTrJ/Pnl5qt -Ux5HmEhV/3blC5l/WzfeFU24zsQfG5rz7CYIeHzvAXHmJhPNXj/LCyHzdZP2 -E6fzZUxUm1R5kzxGwH3K50tXq5gYXbKyv2GEAO47oeXlT5koIcu+K0jm/0tB -3vBlkonT1vbSlG8EZHzY8aVvlol3a0xG+XsJSLM7ED80z8SQ2VNSs2R9SdZP -aPstqIQLqn4bdn0iIO4P4SqmoIRGqlsX7X1PQFASX4iZhRKKveh8JfeKALPi -kuz0dCVUM7aPir5PwDt68bX1l5Uwjn+zi/E9sp6lF12duKaEpo8sxwdryHoa -W5DlWKSElW1zEQ5VZD13y84UrVXCDlHjrvnbBKzgS0s58VkJdRWcC8cKCZDx -ORxzSIOFHalhlcbnCCjviIhW1mXh6Mmxj0Vk/XeyDj/aYchC19ykgaXJBKQa -HozSAxa6C+mXjicSICIcHD7swMLS80y+5OMELKryDwkMY2HxzdffvcMIGJW0 -9nVpYGFExKvqcE8Cunczn+96zEKpOf8/se4E1D+ahegnLNS+yt+X4EpASmSx -YmEXC5+N/m46u5kAnS/CH2cGWFhvGvQgdiMBe4lnW65QlDEgSGpoehUBA3bO -nr3blPGD/qE8IxoBvad9Xfbzq+Cj8ynCG59wYO+ABlNHWAV5qZ9LJ1o4ML1h -ZmhIXAVvXXdOy3pM9ne8qfE7ZVXwn5u5YV8DB3QiGu/4aqrgh2b/vu1VHDgS -oEKx26yCiy2zRGkFZL+3evCZ+jUVjLgSe8SU7EetfoVZfTNajjzGex88I/vX -wa0CB+5Eq2JQW2zepbpb5P8GdeHJhhVYUl1RelywFCSfqiRzfqlhTBknOcK5 -GOQSyuyNjDQwW+03p3dHEWSqm4hTtmui/r2k7zOpN6BVdo3h+DktfPa4+is0 -XYdVcg0p2l3aGOB8Z5PVqzwQ5c0N9YvTwUhbA0E90VxQiFU0c1fRRbFF+jt2 -GGSDoLJXheNjXQwOezlbM5YFWuylZWFb9HDOzm9a7vtF2N8j2WjNo48dOZl/ -09vT4df4aWerTNL+I/n+zDTYoP3okpWmAY563P7qU3kO7o+b/pluN0BL6Vf5 -628mw14NvbcvAgyxXtZGIDsvEdjD2zrcBY2wcWd7/bnqE7CeRbMRyTVCU+8P -7+hRx0A1JjG8wdgYLS/mLDK6GQNqASZ1ym+NcSQlxO7B1GEIuL/j+J19K/HU -laCPay6HQV12x7ZRaRM0ikjclnzyAEwUzk9r3zVBj+fRbAf5ENiqXCx4yWYV -ql/unFnXtgtG1c4bcUdWYa7ierHipwFQmf/n82SCKRJxps5RX/3AyDx02jrJ -FF/r1A0Fd/pB+edB4ewzpnisWVVhz2M/4Cr0GFunmuKkUJnu8WI/KMmsP3P1 -sinaGY2nsEL9IPt0vMmGW6boyRuWs4LfD06Fip3LfGWKnxcO/6Ib+ILHOjIW -FczwnHZckqPDFpjrEBBtpJuhJEgdvmO8BbIDht9ZK5nh+/trBdUUtsD3E1Vh -HqpmqErZ+dzupxfsb7Eri9AzwwLfnNvHT3hBom2UQqWFGXKrYzRO1XtCtVvn -X4NgcvxDq77CtR6wbM/JKq16MwwppMjeiXKF5PlAw6QGM9zlF3RFYKcrLEy1 -IPqazFA/oLs0yNkVBir4irJbzPAgzcBxi5YrVPMcz5R8ZYZXSi6UDX1yAY+0 -mLCpb2YoVHb7X7WlC2TWRBjeX8LGXBB62Mp0Bmmh3YSNKxsjtH20vvxzhHzz -I5Ej7mwUncxIIwYdQe9Isvl5LzbeDV4WnvLWEWxHOJ3dfmx88jYzMarCEU50 -Tc5s3c1Gab7nN4SDHeF3bvTayFg2ijQ6r+D96gBvTc+/Kihmo8PT7qK5TnvY -cTA/y+oWGzcltuTdeGgPU7fKAwY5bPRuqm/wKbcHSWb3tG4FG/evMLWYTbOH -jQLycvfq2ZjX/2PNayd7qO0o2Paqk40vKi1U7G/ZgbVopeahbjbOU2plfM7a -QfeGlinaOzbq0ZYLnQqxg4nqnwnen9i4pTOvSFPfDjRzdEp/DLCxyVM6626V -LdS+XXPo9BAbl2x5FJp12RaspTaD9ggbbTfIEZeP2ELgyYMvQifZuELrK9+P -NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I -8cMGru6pnpyfZ+O4wfHZ2jYb+A9FvKVq +1:eJwV13c8Ve8fAPAbRanI3te914qMbHf5fFBGJJERkpEUGuQrSV+jyCgZJWkh +NGTce1OhbwkZbaWsolBKZkYS+Z3fX+f1fp3nnOd5necznkP1O+AUwEcikRhL +SKT/X2d6WhpUUgvNCnUWRU4e3mDWdkXmiHlHPCS8rDCyaKQBSr7yk+nIhIOH +/7ZLNepDhOOtdv6OAuga/Fs0+8QCREelM3+3c0HU5G5s0xMn6H3gcGCqvQ5i +tJm1ak/8wEpl6ONE+xuY2zDVWVkXBr/bTc6Nt/fB6yJJr7/346He8npha8Ek ++LDzhO64ZIFCb9VXP60FcM/vSD7sdAkkQnbeErTkR+3Xg/pf3QogU8+qxsFl +OQ7rdv7tTyuGzpz1tRNrVqPp1beqbtRbkFoY84pPVhQTc5j1VqdLYZPhXjFJ +ZVFc9kfq5r0LpbC8wclFXVsUHzbo5VOKS+FEv2q3nbkoRqc8f9j1sBSiac+/ +nt0rihe8RvaPjZXC/jyZv2rVoui7XeNmjmMZbL3E0bLzFEPht+ph3SvLQfps +f3LWZXEc3MG612VYATLrKk/MFosjwzVJ5A69AuTqEmN2VIij5JcPj5LNKoA8 +rvGPer04+qy1VtO0qQBV+4M+Nd/EMceYNGfmWQEGSxeM+w0kcH7oKN6PrYAt +4VID+k8lsPvDy9tfmivAceW3nvNvJVAl5ve8zYsKcCqo6pz/IIGpoqRzN1or +wPW116vGMQm8lzqT69VVATu0rlV7SEpiTPi6yfM/KiB4QDcj3kcSHXpZ/3qu +5sDJbbZmb2YkMfaZdaa4Awfk7ryU41sihfpTDsXOThwoE9/2S2+lFI5KKDqc +ceXA+zfeFRlKUpjU98zttzcHVLaG07baSGHDgpBdzgEO1G2+KvD6ghSC54dD +S9I5sGA1/fIFSxptLvBbxbzgQHpxVMmClTQWvbu5Xa+VeF6AlKS9VRpzlyTN +9bRxwP6JkPnpAGl0mTzbr/WBA7mWFJ59mjRe2z3lmDXEAVO0O/+sVxor296k +pQhw4RA9f2dLvAyuP/mmiMbkwqY84Sm7UzK4c1WuhKgZF2iC0Ukvz8ngj8jj +1/4gF163uXLe3pDB/HYd2hMrLugcXMXf81IGp7VdizWcuPCt+HDxTzlZtBau +/m66hwteEg4j8jxZvP+tJy80gwsGR2virjwg7J2xayCLC0J9a6WojbIY9jrO +wTmbC1Xl/KDWKYsn7phkq17kgpRdVfr6RVl8NzY/f7GQmD9OxXCjnRyuZW4O +eX2XCxvG5qL298thXWaNiUcHF47YnNV8PCyHN4R48TZdXCjL1+4Sn5FD0xdU +VYMPXJDZ5kOvWi6Pp+sEwxZ6uTB8/8kvfh15HBwpNtk9yIWs+PTwC5HyGP4y +7G3SNBeauzVUhuPkcUzIsoX1iwvzhvVvzVLlMaf0vOLILBd2D07rD1yWx1vp +9/st5rnAsPec0KmXx6vXYybr+HjQJ6m2v2G1AlbnTmdIivBA+sAjRWlpBczZ +8bzkzBoe2De7v9hLUUD1K45aAmI8uBuVqiVioIBjkxn+3yR4kNI7PrTdXQEn +ChKr4+R4oH+zJnCsQAFJAropy1V5EMjnIm1xWwGlgx852arx4JLnaOPZSgU8 +eYKRmqjOAwFhqhqjWQGZcgEOMxo86ApLHDgxooCZUlM6JTo8iGNt9ZUzVcSN +LvmDQSY8sPG+8tPEQhHd7G5bJpvyQDj2x3EXe0X85agedY1OvL8+oTjdRxGv +tA8cecbkwf1N1T8EkhUxkizy8TvwICZE8JhKliL+XEpTHUQeWKVtE7a4rIi3 +W+45fDLnQVvr6PpjHEVsuiqyqdGSB+PuyhGTnYpoJW7yx8eaB/eiDgqKDihi +dLviXrYND/699F+OziixPr+fjyRtebDqk1vNXj4y6iw31KrexAP1wFOkT5pk +/B4qIvdmMw9GkzozFgzJaP/Scei0Aw/u3FJTlgcyljLMSzZu4YHFaO1GV2cy +jq7T4L/pyAPvf6ZTnh8l45dwQ3Vw5oHqeQuFoQQyfl699EIX4eH7Z0oF08ko +k5fDH7aNB1HzGq8tCsno52vYdNaFB+bkw74+ZWS0KXCkUVx5sBwbfh67T0bm +X8+o64TPHfeWrHpORkerSNVbbjzwKiopfv+ejLLxN6JU3XlAa5o1mfpExuAI +gdZLhCuEsjx0p8mI8jkJMdt58Dyj6WqRohKOtx3UkvTkQRZPQq9eXQltQnfd +PEjY451v3Sc9JWxOhvXNhL/JzA/IWynhwj2KT7AXD8oZthF0RyVMUtu18h7h +CK9sQTcP4n7tiid/CfPnrdfM3K+EeoX8e+J38ODp42M15ZFKyF591fkh4fT+ +p/Yv4on5P2k6zRB2WybTM3RKCa3vvtil6c0DsnrAgeXnlTDEvfyUB+EvNlyS +Wr4Sfngy+zSR8O2gxQzLEiXcrttGKSd86JS9sm+lEor/CjnzljCj7MKdfx8p +4eXyMekpwhvaXy6MNithTbnQuPBOHjiQllrvfKOEJT7qAWqE3TXo6a+6lfBC +FSuSQdjfaX8nfFHCgnMWmnaE9x+9RqsYVUINnl60O+HIwo5gyqwSruPxH/Aj +/PhrokcziYIpMjz+vYStjlJjYpdRcK81kxlC+JnIg2umQhQMPZEj9X87Fro2 +jwtTUGuqKXsP4femE8M3xCnokNv0wJew54tUUV8ZCgpuz052I/zJV81YVpGC +ruMGf20J756p9WilUtBzIU+eTvhHimdMshoFL/zu6VMhfFBp5pr5Ogq6Mca3 +rSY8zUtv/q1Lwc9j7WE/ie8RZbNuhGNIWCWX3UaY9PGJaBCdgkX/Me9yCSeE ++hjTzCgYfrju42nCQgJ/PLosKNg+aFgZQDg991xMpjUFR47mshmEc+ufNvNt +paDFtE9AJ7GfSu4BI9UuFNw60CZQSLhweFH0kAcFLVf47QgmXC5p5NnvT0F1 +zV/a40S8GN56FXNxDwWPv5a5VUq42iyo0HkfBXVIJ3sDCTcEXh2pj6CglHNC +1BsiHm3n6WLRRyk4cMuoL57wy/Q2Y8NYCt6cDBNcT7izakVsYTIFhYs+psV6 +EPnoUFjolUbBxkq9SWXCA31mLRJZFDQV8JFtIPJhdGW4WMIlCmoezS+fI/Ll +UJ6wCTufgjmFn6kZhGcNb3pOF1GQIeXqoUKY37unMKCcgs5xZjRzIv9kKmxM +rOoo+KH7h9Y2In8vb+j3/NtIwWyN62OvifymdR6LvfuMWI/1wbhNhLX5eC1q +7yj43e66lCFRDyy2KXoJfqPg6q366p+J+hEyOxHbvJqKZon/9l6zI+I5dLfU +VzEqBoqV8nqI+rR8qKuEX4aKxxkpHyUJF3XXvzejUXGdvYXpEaK+9Tw8p1Vp +TMUV3ccMJDbyYEsCvSN/JxVfdkxkXmIT+fW3dN+jXVS8LrI74jKLqEcRNP6P +e6nICq5tyiXqb9KelToy4VS84udanULU51q7j8fTkqi4UjFeCI2IfiEWp3uU +Q8Wz7PzKJVpE/KRON+TcpSJpolX/qSaxH/xBHndrqPhrYKXJGaI/BE87JUw8 +oWJZJ1+3MNE/CjtUugO7qBivs/jfAJUHUlebE7fx0zBF8I/HsBQPfq9b06Pt +QsOD2Z6hEX+5MHNZLs7Ag4Y3/5jd7iL64ZSIqgp9Jw0rFQweM/9wYXSSHrRh +Lw2DSqtjpoh+2lfjP+NxjIYhjoHROMGFp3b3hJOKaLiZ4tRr2c+F3GBv6Jum +4SHljAb+J1w4/3FP3+AcDfOeMIME6rlwdsuhhJFFGjZFnSILPOZCmkHSs9kV +yrhDp7Nq/gEX4v9w3ETIyliTaj/UeIcLwanLDrKslPF0XHnp62tcYJXczsvO +Vsa0fRcrnsRwoZtScnXjRWX8EeC8eO4YF6Kyb16ZuqqMXq/tRv2PcuFeXPEl +p5vKeJ5RwJ2N4IK+e16O8ANlTP57aH7Zfi5oLDubnvhZGfe+kHxT4UmcX3Ye +jY3QUkEdAYWYrUZcmBDb5ONap4Jr7c2OiPRxoCOE9jqoSQUbH35ukO7lQG3j +HMQ8V8FFX12uInF+S48qUbrxXgXfLVgcob3nwPq+Vb2/h1Qw+tHNEZGnHNjP +ebXjsrgqft8yLhbN4cDQFhfPgV2q+Ls1Maz4Xw4MnPJxDRNUwy5F7o/bYhyw +HTts+8VYHQuUL3mGGlXAsP/yQ3di1uKc0AmT5B1lxP+GNN/JOg1MvG74jxv9 +Noi9UEurGNNE+mdS2eO1t0AhqdzR2FgLRy7Lv701cB1y1tHXiAdqoyrp5KzK +0yJ4KmduNJmhg7RyXdZEwzVgKNSl677XRf0QDar59XwQ5i8I941fj//wxLsp +qVeBHKfE2q6mh6WWVXO5dy7CClWvu05Neli/OX2pg1EO6LBlyw/v0Ee//uFD +yw3PQViPWP0mkgHKnZblZDMzYWzylIttjgHGtkhsZkecAWvdxlxbbUMMu+id +LC2cCg8nmX9+vTTEDYeG8mJeJcJ+Lf2u1gAjvNX6rGvVtuPAHt3Vtn2FMQrz +My8LCsXCRhWZzasLjJH+I9L4WmMUrI1NiawzMUH/j3oyaBcBmgH0R6pdJlhU +8GO/h3oYnKE5zB3/YILtx0PWG8uGwVSvn1FfjwnGD7saya8Mg4cep0qu9Jtg +lemVX6SxUHBy7D0vPWKCsznZnxn3QuEIM+HgCpIp/gz7N2iXbSg0i7ZSR1RN +sVRsZ+iB8IMQ8HDPiTuhpshMCp/63LwPRvcNHd4Yborv+/gjZ8r2QaRiSPD7 +CFNsc7bXIZ/bBynRB5xmj5pi+EKf4HXffVDBiKCwEk3R4c8988t/QmD+7vEH +9bmm6DwXtU/MIAQyy69Mvak3RfSVUXlXHgSP8tp2TUjS8dUry9zQnkD4ZE/d +GSFDxyWRC6f8WwKB9Hvf9j9ydHShnTgWcCcQLLYKOiyj0LHFYk7vQkogNC5h +mMhq0lHuK/Y+NAmE535XV5ib0XF7/tKVf87uhi6VoLL03XRsnF9qO+0RAFM3 +Fn/p3qPjYjOla1zMH766WuUlV9FRIFdtXT2fP3QsPW3TX0PHR2fTg/N/+kGN +j9yF7Fo6vr/sciXujR/EyxgxFlroOPQlU+B1ph+sSQqKfvqBGM+tfHxF0g+0 +At+RAvgYGHQyfM9bZV/wVy1ZkbuZgYvT7i6sOm+IeuIdpObIQJ1EZ9F1Rd6Q +HiD2jOvEwGWZE1/0krzhQdGRU8/cGLgxqfH8SQdvkFCzEVnwZeA2awPXrR92 +QKPaFwmfCAamJavIOs57geZaJYraVQaumggTTd3sCROaWcbccQbqLxyqzdBz +h47nuFF8koHcvfp/L8i7Q+3+UefwaQYmtyZ84i1zhzSubajxHAM3x/3nr9Dl +BpoM0u1qfibalATIPzruBn62+6j1Uky8KnFC1rzLFdoCrVe1sZh4P6+p/muW +C9wv/PN5OomJdjFzJ61MnMHYMvzXplQmkgqtou+rOkPl5+FVeaeZKNaTUGUq +4Qxcco/Jpkwmbk84P+g/4QS3c2pPX7nIRM2LhqRdt50g71QC3bqMiSkfxYr4 +VJ0gOVwkI+ctE+/0RLyKoGwFjw3KyCSz0G1M9/ruaAdYaFsuXE9hoXX+88H9 +OxwgL2C0e5MyCweMl3pmmTnA18Sqwx5rWSgfFxK3fokDhLVsKT+iz0KlM3JB +VSc3Q4pDNPm+FQs5Tqcrf16wh2r3d/OGB1iowi3U3/9mE8jvO1mlU8vCVhK1 +UOiMNaQt7jZKrWPh8I2ySHKkNfBlWnEGG1j4KVou2MrXGobuLruZ18JCO919 +IW8MrKGadCJH7C0Ll+mqmHR2WoHH2djDM19YOPVsoeashhXk1BwxeriSjSk+ +6h2e7RtglcN2jpwwGyNnVh95X7cBYj+Zah9ew0Z/DUUf/7INsGfZrMp6STaa +/ZVo5iVsAJMtERIFZDZ2CE+GaxttgPd9YZMJemwUDndfGXneEiSFQjib3dhY +lvifqdBeCyi0PBY1vp2NR158eJexzQL0j6VZZnmx8SvrvpQOWoDDeMW7Dl82 +Wr34xCiUtoDE99O//UPYWLg0WiyhyRxmC2IsouLYePr5ZpcV68yhi5n1triE +jTXFy47mkxD2/FN4ybaMjfm3d580/ggwU1YZMFzBxoepNUu3VAGI0Tp+6d1l +Y07vAbPRUAC75YoK/9WykWu/XrRvwAwetBXvevuOjekLjpfjW9mwSfi+dkQH +G+vqWWmV5WzosG6Zkelmo5/FZb+VaWyYqv6R5P2Jjd8XB4yV7Nignb++9PsQ +GxszPsgNNLLgQZd5xKkRNt6QkrijWcyCTUQM6o6zkZ98xCgrgQW7T/7TGj7N +xrDMwfCWDSyYqk3MlZ5l46Vd9OlsFRbEz533r55jY2ywbV/CUhasMbyptWOB +jddkIxSzB5hwZV/19OIiMV7GKKmpgQn/Awo/wnM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07063865090603916}}, + "PlotRange" -> {{0, 30}, {0., 0.0756747860534951}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -11778,9 +11910,8 @@ NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I InterpretationBox[{ TagBox[ TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ - 0.012833333333333334`], AbsoluteThickness[2], - PointBox[CompressedData[" + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl 8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ @@ -11803,7 +11934,7 @@ A4x/ Annotation[{ Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl @@ -11827,12 +11958,12 @@ A4x/ GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -11851,12 +11982,12 @@ A4x/ GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -11871,7 +12002,7 @@ A4x/ Annotation[{ Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Point[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl @@ -11894,12 +12025,12 @@ A4x/ "DefaultStyle" -> { Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -11911,6 +12042,7 @@ A4x/ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -11938,7 +12070,8 @@ A4x/ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07063865090603916}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0756747860534951}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -11946,9 +12079,10 @@ A4x/ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993128551588084*^9, 3.99313097328303*^9}, + CellChangeTimes->{3.993128551588084*^9, 3.99313097328303*^9, + 3.993828423695936*^9}, CellLabel-> - "Out[121]=",ExpressionUUID->"07dde160-c052-47df-b468-fb1deddb6a93"] + "Out[118]=",ExpressionUUID->"c94096cb-3a32-4c8f-8630-8457ad73a911"] }, Open ]], Cell[CellGroupData[{ @@ -12001,70 +12135,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[122]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], + "In[119]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.330251890072051`*^-161\\\", \ -\\\"16424312045547973917068250855478962797836184904556443340043143969743430318\ -444318157938322185531163516963194464925547245426704384000000000000000000000000\ -00\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 122, 50, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337269930374*^9, 3.9931285516092367`*^9, - 3.993130973300117*^9}, - CellLabel-> - "During evaluation of \ -In[122]:=",ExpressionUUID->"2a3e76f8-6266-4fe9-a88a-e55aa0c9228b"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2949369621597828`*^-163\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.530053728870725`*^-156\\\", \ \\\"55251385721223384257017595877831230851920926018927875395905136314216899591\ 246686283304515832126834071064186180009540933615433547776000000000000000000000\ 00000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 122, 51, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +precision may be lost.\"", 2, 119, 45, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991337269930374*^9, 3.9931285516092367`*^9, - 3.9931309733026857`*^9}, + 3.993130973300117*^9, 3.993828423738907*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"2e43766c-2201-4a85-92e7-fc36791090ef"], +In[119]:=",ExpressionUUID->"30afc662-9646-41e6-a402-f32d975e7ac9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.0129784286188043`*^-166\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.5931626298431544`*^-158\\\", \ \\\"19233007369557860059867825125073051459553674347188793425314577950978902747\ 712971495218301961163350940137443209261321198991532417980825600000000000000000\ 000000000\\\"]\\) is too small to represent as a normalized machine number; \ -precision may be lost.\"", 2, 122, 52, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +precision may be lost.\"", 2, 119, 46, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991337269930374*^9, 3.9931285516092367`*^9, - 3.9931309733048*^9}, + 3.993130973300117*^9, 3.99382842374576*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"45bf1502-e2b4-44c4-b08b-8efba935cd14"], +In[119]:=",ExpressionUUID->"4174ac91-340e-4e99-9408-82a4a06d09c9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3707158760332023`*^-161\\\", \ +\\\"69238826530408296215524170450262985254393227649879656331132480623524049891\ +766697382785887060188063384494795553340756316369516704730972160000000000000000\ +000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 119, 47, 31384841579516711335, + "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337269930374*^9, 3.9931285516092367`*^9, + 3.993130973300117*^9, 3.993828423752884*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"33056e5d-4b93-4804-a60a-bfc593db9545"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 122, 53, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 119, 48, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991337269930374*^9, 3.9931285516092367`*^9, - 3.993130973306826*^9}, + 3.993130973300117*^9, 3.993828423759439*^9}, CellLabel-> "During evaluation of \ -In[122]:=",ExpressionUUID->"9aa69291-742b-40ef-a902-181fa7b88ee3"], +In[119]:=",ExpressionUUID->"e2d33071-053d-476c-bf79-fbd7c36f0fd6"], -Cell[BoxData["10.52785064365192`"], "Output", - CellChangeTimes->{3.993130999780815*^9}, +Cell[BoxData["9.842516133096831`"], "Output", + CellChangeTimes->{3.993130999780815*^9, 3.9938284779887047`*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"8aacbadb-7dda-4b86-8555-f222f26e20f8"] + "Out[119]=",ExpressionUUID->"26094c0b-6eee-45b3-a372-77286ebc44de"] }, Open ]], Cell[CellGroupData[{ @@ -12133,71 +12272,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918494640512295`*^9, 3.991849468375696*^9}}, CellLabel-> - "In[123]:=",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], + "In[120]:=",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1338321752578242`*^-206\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.059756524504783`*^-202\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 123, 54, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +normalized machine number; precision may be lost.\"", 2, 120, 49, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913372767181473`*^9, 3.993128551622918*^9, - 3.993130999803473*^9}, + 3.993130999803473*^9, 3.993828478026805*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"dc234405-c2fb-45a6-8d1c-c8bf859a436f"], +In[120]:=",ExpressionUUID->"1c517623-6c3c-43d0-8718-6e4d2fb8c724"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.365758123889588`*^-211\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.6193068618298437`*^-206\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 123, 55, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +a normalized machine number; precision may be lost.\"", 2, 120, 50, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913372767181473`*^9, 3.993128551622918*^9, - 3.993130999805719*^9}, + 3.993130999803473*^9, 3.993828478033615*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"f433d206-d023-4888-8305-dd29597c9a08"], +In[120]:=",ExpressionUUID->"4c6db11c-9eb7-45a9-a961-95286dbe7bd4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.936190401791086`*^-216\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.327161829300568`*^-211\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 123, 56, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +as a normalized machine number; precision may be lost.\"", 2, 120, 51, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913372767181473`*^9, 3.993128551622918*^9, - 3.993130999807589*^9}, + 3.993130999803473*^9, 3.993828478039721*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"c1737bf9-b500-4463-84e1-327451df1e96"], +In[120]:=",ExpressionUUID->"fc108d4a-3374-4845-915b-3bc0e8d6d17b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 123, 57, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 120, 52, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913372767181473`*^9, 3.993128551622918*^9, - 3.9931309998094063`*^9}, + 3.993130999803473*^9, 3.9938284780470324`*^9}, CellLabel-> "During evaluation of \ -In[123]:=",ExpressionUUID->"6efc6a5d-a36d-47f4-a0d2-b37ed18fb7ae"], +In[120]:=",ExpressionUUID->"ebaaf9ff-680a-49f2-857e-3faa056a6bd4"], -Cell[BoxData["0.7716940409274702`"], "Output", +Cell[BoxData["0.641656593013454`"], "Output", CellChangeTimes->{3.991337284091696*^9, 3.993128556282365*^9, - 3.9931310038014708`*^9}, + 3.9931310038014708`*^9, 3.993828485284761*^9}, CellLabel-> - "Out[123]=",ExpressionUUID->"4ee304bd-535c-41ed-a92c-8a6a14de6092"] + "Out[120]=",ExpressionUUID->"2a38a605-d49b-4caf-a3ff-66da33ce6901"] }, Open ]], Cell[CellGroupData[{ @@ -12218,8 +12361,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -12266,71 +12408,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918494737320137`*^9, 3.9918494774550457`*^9}}, CellLabel-> - "In[124]:=",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], + "In[121]:=",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1338321752578242`*^-206\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.059756524504783`*^-202\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 124, 58, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +normalized machine number; precision may be lost.\"", 2, 121, 53, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991337284131695*^9, 3.993128556318377*^9, - 3.993131003827796*^9}, + 3.993131003827796*^9, 3.993828485320581*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"72159c33-5954-4854-8755-4eb266235b84"], +In[121]:=",ExpressionUUID->"caa5cd01-5c41-49ea-9dda-c0ad0c505c0d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.365758123889588`*^-211\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.6193068618298437`*^-206\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 124, 59, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +a normalized machine number; precision may be lost.\"", 2, 121, 54, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991337284131695*^9, 3.993128556318377*^9, - 3.993131003830274*^9}, + 3.993131003827796*^9, 3.993828485328065*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"70202078-d43f-4eae-a028-fbfaf3409261"], +In[121]:=",ExpressionUUID->"0060bf5f-9983-42f6-bb30-c0d1ee69fcd4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.936190401791086`*^-216\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.327161829300568`*^-211\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 124, 60, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +as a normalized machine number; precision may be lost.\"", 2, 121, 55, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991337284131695*^9, 3.993128556318377*^9, - 3.993131003833153*^9}, + 3.993131003827796*^9, 3.99382848533762*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"d2cfdf69-b206-48cf-8357-2622500f1549"], +In[121]:=",ExpressionUUID->"fb1e5581-e3a2-4159-9ee8-68ffd0d3bcee"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 124, 61, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 121, 56, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991337284131695*^9, 3.993128556318377*^9, - 3.9931310038360167`*^9}, + 3.993131003827796*^9, 3.993828485346088*^9}, CellLabel-> "During evaluation of \ -In[124]:=",ExpressionUUID->"2431faaf-6110-4592-b9f5-c1189a33e948"], +In[121]:=",ExpressionUUID->"e61a7da6-2255-4eaa-80ef-09e4caf44b41"], -Cell[BoxData["31.643473719057514`"], "Output", +Cell[BoxData["27.571875213282055`"], "Output", CellChangeTimes->{3.9913372907074146`*^9, 3.993128560256538*^9, - 3.9931310073179626`*^9}, + 3.9931310073179626`*^9, 3.993828492774296*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"5f0db9b0-7598-402c-a682-4ff9e19c7e34"] + "Out[121]=",ExpressionUUID->"c6d09d3b-b8ed-45f5-a32e-c7f42d702755"] }, Open ]], Cell[CellGroupData[{ @@ -12351,8 +12497,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -12399,71 +12544,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849482271084*^9, 3.9918494852683945`*^9}}, CellLabel-> - "In[125]:=",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], + "In[122]:=",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.1338321752578242`*^-206\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.059756524504783`*^-202\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 125, 62, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +normalized machine number; precision may be lost.\"", 2, 122, 57, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991337290744484*^9, 3.9931285602907047`*^9, - 3.9931310073431*^9}, + 3.9931310073431*^9, 3.993828492827956*^9}, CellLabel-> "During evaluation of \ -In[125]:=",ExpressionUUID->"b31f5c5a-cef8-493e-96b7-d2d426d6dbad"], +In[122]:=",ExpressionUUID->"92af1c99-fc9e-4c3c-9453-8fa45b0c9f93"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.365758123889588`*^-211\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.6193068618298437`*^-206\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 125, 63, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +a normalized machine number; precision may be lost.\"", 2, 122, 58, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991337290744484*^9, 3.9931285602907047`*^9, - 3.993131007345487*^9}, + 3.9931310073431*^9, 3.9938284928346443`*^9}, CellLabel-> "During evaluation of \ -In[125]:=",ExpressionUUID->"f6591778-a3e1-4226-818b-eff0bc22ad79"], +In[122]:=",ExpressionUUID->"9f6d821a-cc73-46fe-9ddc-e4bcaf4379c9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.936190401791086`*^-216\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.327161829300568`*^-211\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 125, 64, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +as a normalized machine number; precision may be lost.\"", 2, 122, 59, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991337290744484*^9, 3.9931285602907047`*^9, - 3.993131007347789*^9}, + 3.9931310073431*^9, 3.993828492841997*^9}, CellLabel-> "During evaluation of \ -In[125]:=",ExpressionUUID->"98cbc908-95a1-4add-8100-3264b22eca8a"], +In[122]:=",ExpressionUUID->"ead057c6-c441-40c9-9375-03987a2fe14d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 125, 65, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 122, 60, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.991337290744484*^9, 3.9931285602907047`*^9, - 3.9931310073498497`*^9}, + 3.9931310073431*^9, 3.993828492850217*^9}, CellLabel-> "During evaluation of \ -In[125]:=",ExpressionUUID->"260b5979-99a4-44ad-9c4d-5fd62b78a7dd"], +In[122]:=",ExpressionUUID->"e271a27c-e445-4f76-b92b-3fd1c61330de"], -Cell[BoxData["5.218985386990781`"], "Output", +Cell[BoxData["4.475613280516022`"], "Output", CellChangeTimes->{3.991337294569908*^9, 3.99312856274135*^9, - 3.9931310092947598`*^9}, + 3.9931310092947598`*^9, 3.993828497234984*^9}, CellLabel-> - "Out[125]=",ExpressionUUID->"0860c78b-128d-4158-a506-3ab4eb4644c2"] + "Out[122]=",ExpressionUUID->"b0ca52aa-282f-4087-9df7-3b7bf174cd5a"] }, Open ]], Cell[CellGroupData[{ @@ -12474,13 +12623,13 @@ Cell[BoxData[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.9918494889040737`*^9, 3.9918494971484394`*^9}}, CellLabel-> - "In[126]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], + "In[123]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[BoxData["0.060049587679804534`"], "Output", +Cell[BoxData["0.057762134296448345`"], "Output", CellChangeTimes->{3.9913372946009064`*^9, 3.993128562774433*^9, - 3.99313100931358*^9}, + 3.99313100931358*^9, 3.993828497270151*^9}, CellLabel-> - "Out[126]=",ExpressionUUID->"238c7521-11d6-4e4d-9afd-eb23254e72db"] + "Out[123]=",ExpressionUUID->"e05ff325-cc7c-4b2c-8667-f6f3d77b3800"] }, Open ]], Cell[BoxData[ @@ -12489,7 +12638,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, 3.9919248636163254`*^9}, CellLabel-> - "In[127]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], + "In[124]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ @@ -12512,13 +12661,13 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[128]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + "In[125]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[BoxData["6.7441112131889085`"], "Output", +Cell[BoxData["6.7518035693072855`"], "Output", CellChangeTimes->{3.991337294629921*^9, 3.9931285627849207`*^9, - 3.993131009320539*^9}, + 3.993131009320539*^9, 3.993828497285777*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"f03d60e4-1511-48ee-b444-a714177e98d1"] + "Out[125]=",ExpressionUUID->"ab87e033-21b5-4994-95af-7284b5e2664a"] }, Open ]], Cell[CellGroupData[{ @@ -12528,13 +12677,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + "In[126]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[BoxData["4.350133769963735`"], "Output", +Cell[BoxData["3.7266559780893704`"], "Output", CellChangeTimes->{3.9913372946629753`*^9, 3.993128562789411*^9, - 3.993131009324382*^9}, + 3.993131009324382*^9, 3.993828497297819*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"1f451e81-f163-46b7-8eed-a78b04b50d10"] + "Out[126]=",ExpressionUUID->"869ad003-31f5-4b50-9d4d-21c2f59474da"] }, Open ]], Cell[CellGroupData[{ @@ -12544,13 +12693,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[130]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + "In[127]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[BoxData["29.337785936884167`"], "Output", +Cell[BoxData["25.161649134444144`"], "Output", CellChangeTimes->{3.9913372947367725`*^9, 3.993128562793687*^9, - 3.993131009328977*^9}, + 3.993131009328977*^9, 3.993828497306877*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"b075fd3e-2f3b-41e4-b738-56bda35d3d9d"] + "Out[127]=",ExpressionUUID->"986c601a-61ce-4b5c-bd0d-db0e3eac208b"] }, Open ]], Cell[CellGroupData[{ @@ -12740,13 +12889,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[131]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + "In[128]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[BoxData["0.006534003083467988`"], "Output", +Cell[BoxData["0.007502544291257788`"], "Output", CellChangeTimes->{3.9913372947513313`*^9, 3.993128562802326*^9, - 3.993131009334507*^9}, + 3.993131009334507*^9, 3.993828497321493*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"8f2ea1cd-53fd-4840-819d-1b9c22244214"] + "Out[128]=",ExpressionUUID->"b10b9f16-af36-4df5-9192-1a869cd61d19"] }, Open ]], Cell[CellGroupData[{ @@ -12760,13 +12909,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[132]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + "In[129]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[BoxData["10.963652785159836`"], "Output", +Cell[BoxData["10.23153176017025`"], "Output", CellChangeTimes->{3.9913372948636913`*^9, 3.993128562874551*^9, - 3.993131009395611*^9}, + 3.993131009395611*^9, 3.993828497424733*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"4c7da448-c919-4091-8844-0ebf1bb221a2"] + "Out[129]=",ExpressionUUID->"89b7e0d3-aee1-4a0f-8b10-2ec8ec5e6fc8"] }, Open ]], Cell[CellGroupData[{ @@ -12958,13 +13107,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[133]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + "In[130]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[BoxData["0.03343038580698027`"], "Output", +Cell[BoxData["0.03896458354948687`"], "Output", CellChangeTimes->{3.991337294877693*^9, 3.993128562882676*^9, - 3.9931310094016438`*^9}, + 3.9931310094016438`*^9, 3.993828497436734*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"a3265a6f-358f-4b61-9d40-a52c9448e296"] + "Out[130]=",ExpressionUUID->"5a9b0c26-c4fd-4b7c-b501-4e670fbe6d13"] }, Open ]], Cell[CellGroupData[{ @@ -12978,13 +13127,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[134]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + "In[131]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[BoxData["4.847013690076369`"], "Output", +Cell[BoxData["4.489623486126849`"], "Output", CellChangeTimes->{3.991337294976324*^9, 3.993128562953268*^9, - 3.993131009459901*^9}, + 3.993131009459901*^9, 3.9938284975399227`*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"b3186920-fa31-43da-b44c-70610fdb24c7"] + "Out[131]=",ExpressionUUID->"99e74050-25b7-4df4-a1b5-eb6b86f0a826"] }, Open ]], Cell[CellGroupData[{ @@ -13077,13 +13226,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[135]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + "In[132]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], Cell[BoxData["0.063831488074104`"], "Output", CellChangeTimes->{3.9913372950022793`*^9, 3.99312856296004*^9, - 3.993131009465251*^9}, + 3.993131009465251*^9, 3.993828497555299*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"831a7896-3e3d-49b2-bd98-cb392bd58e7a"] + "Out[132]=",ExpressionUUID->"0aab0881-f113-43d8-8c96-4d842c43f5f5"] }, Open ]], Cell[CellGroupData[{ @@ -13173,13 +13322,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[136]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + "In[133]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], Cell[BoxData["0.9361685119258959`"], "Output", CellChangeTimes->{3.991337295013279*^9, 3.993128562966445*^9, - 3.993131009470179*^9}, + 3.993131009470179*^9, 3.9938284975691032`*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"333fbc34-dfbe-411b-8139-3065ee20c7c9"] + "Out[133]=",ExpressionUUID->"1d610c54-ddb3-4131-abe1-6e58ad5b7eee"] }, Open ]], Cell[CellGroupData[{ @@ -13302,13 +13451,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[137]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + "In[134]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], Cell[BoxData["0.05975702920434953`"], "Output", CellChangeTimes->{3.991337295041279*^9, 3.993128562974463*^9, - 3.993131009475337*^9}, + 3.993131009475337*^9, 3.993828497581828*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"4759d739-6c3a-44ac-9aa3-0767926fd09f"] + "Out[134]=",ExpressionUUID->"24b720e1-d93f-4a13-b94d-5a653b729076"] }, Open ]], Cell[CellGroupData[{ @@ -13372,71 +13521,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991849517192892*^9}, CellLabel-> - "In[138]:=",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], + "In[135]:=",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.447325249968292`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 138, 66, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950662746`*^9, 3.99312856298381*^9, - 3.993131009482092*^9}, - CellLabel-> - "During evaluation of \ -In[138]:=",ExpressionUUID->"3dbcd7eb-e500-42aa-9428-8ca86a8885cb"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8975015829005278`*^-207\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.7272638454698027`*^-202\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 138, 67, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +a normalized machine number; precision may be lost.\"", 2, 135, 61, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913372950662746`*^9, 3.99312856298381*^9, - 3.993131009484282*^9}, + 3.993131009482092*^9, 3.993828497596273*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"6b1f23ee-d9f2-4cfc-ab10-479fe608da7d"], +In[135]:=",ExpressionUUID->"c533c357-e843-49e8-9876-ebf7c370742a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.834638123432755`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.6721072118221974`*^-207\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 138, 68, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +as a normalized machine number; precision may be lost.\"", 2, 135, 62, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913372950662746`*^9, 3.99312856298381*^9, - 3.9931310094861193`*^9}, + 3.993131009482092*^9, 3.993828497603043*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"48494406-dd53-49c5-ac1b-b145417d3a97"], +In[135]:=",ExpressionUUID->"cf9c410c-6a71-4738-8bd2-1bbda9abb23d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.862645380251946`*^-211\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 63, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372950662746`*^9, 3.99312856298381*^9, + 3.993131009482092*^9, 3.993828497609439*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"6b3aa01c-a358-49b9-a1af-174564008cbe"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 138, 69, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 135, 64, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913372950662746`*^9, 3.99312856298381*^9, - 3.9931310094879417`*^9}, + 3.993131009482092*^9, 3.993828497618291*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"14cea65a-4651-4c19-99c0-83d3ca22063b"], +In[135]:=",ExpressionUUID->"f23581c8-a7dd-47d1-87ab-05efd8efca8e"], -Cell[BoxData["10.963652785159823`"], "Output", +Cell[BoxData["10.231531760170256`"], "Output", CellChangeTimes->{3.991337298790371*^9, 3.993128565543841*^9, - 3.993131011639268*^9}, + 3.993131011639268*^9, 3.993828501484322*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"64cfaf38-af20-4788-8b95-3b0770c267ce"] + "Out[135]=",ExpressionUUID->"a58be707-2cc8-4314-bcd9-1dc31f34a2ea"] }, Open ]], Cell[CellGroupData[{ @@ -13500,71 +13653,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991849520751028*^9}, CellLabel-> - "In[139]:=",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], + "In[136]:=",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.447325249968292`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 139, 70, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988243732`*^9, 3.993128565582634*^9, - 3.993131011663927*^9}, - CellLabel-> - "During evaluation of \ -In[139]:=",ExpressionUUID->"e6a2e91e-fea7-4140-a6e9-5b00ffdfb2a0"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8975015829005278`*^-207\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.7272638454698027`*^-202\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 139, 71, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +a normalized machine number; precision may be lost.\"", 2, 136, 65, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913372988243732`*^9, 3.993128565582634*^9, - 3.9931310116662703`*^9}, + 3.993131011663927*^9, 3.993828501527964*^9}, CellLabel-> "During evaluation of \ -In[139]:=",ExpressionUUID->"4f96666f-4e66-4091-a9d6-2f66e20bccc5"], +In[136]:=",ExpressionUUID->"6fcc8c26-d424-4a0d-b781-57168194d966"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.834638123432755`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.6721072118221974`*^-207\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 139, 72, - 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +as a normalized machine number; precision may be lost.\"", 2, 136, 66, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913372988243732`*^9, 3.993128565582634*^9, - 3.993131011668239*^9}, + 3.993131011663927*^9, 3.993828501535495*^9}, CellLabel-> "During evaluation of \ -In[139]:=",ExpressionUUID->"1395affe-60c6-4fe0-bffa-50a55d4b21a9"], +In[136]:=",ExpressionUUID->"7d2f0d7f-7f5f-4820-95c2-fff75ae083db"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.862645380251946`*^-211\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 136, + 67, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913372988243732`*^9, 3.993128565582634*^9, + 3.993131011663927*^9, 3.993828501544083*^9}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"0a26529c-3943-479a-af70-6ce32998ee62"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 139, 73, 25985975399914684936, "Local"}, - "MessageTemplate"]], "Message", "MSG", +during this calculation.\"", 2, 136, 68, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913372988243732`*^9, 3.993128565582634*^9, - 3.9931310116700897`*^9}, + 3.993131011663927*^9, 3.993828501552245*^9}, CellLabel-> "During evaluation of \ -In[139]:=",ExpressionUUID->"5c3ca0a5-5da6-437e-89a8-a046c6e54f1d"], +In[136]:=",ExpressionUUID->"1abc42db-fff8-44b4-94ce-82ea0ef30833"], -Cell[BoxData["4.847013690076369`"], "Output", +Cell[BoxData["4.48962348612685`"], "Output", CellChangeTimes->{3.991337302457178*^9, 3.993128568156102*^9, - 3.993131013910429*^9}, + 3.993131013910429*^9, 3.9938285054659147`*^9}, CellLabel-> - "Out[139]=",ExpressionUUID->"cd6b9476-2b2f-4cf4-83fb-514d331cb8a2"] + "Out[136]=",ExpressionUUID->"f20123de-3bbc-4b45-bfa0-ddb017250a78"] }, Open ]], Cell[CellGroupData[{ @@ -13624,93 +13781,93 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.991849523511486*^9}, CellLabel-> - "In[140]:=",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], + "In[137]:=",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk0VVsYAHBDUXHL8BClMhYhXXPi+zKWkAohStx7yENlyhRN8hoUmjQY -KkWesQgZKml4UqaSlHAv0pUxck+Tt/vjrL1+a+/zDfs76yj57NnCFhIQEBgk -z5913yud5eXNr8zd+TbvP41ywHwk28DHKh+8bFykBol7Mg3PqVpVQ3tIbPkf -O7FeiojrPYGxhOqGz8QlkfGPZ1s1wsokGfsh4uNPFz6Mz2uBU1cSTYeJK5v3 -ZfxkvoHI/6QujRLzOhtio6o6oEa/nDVBrNCvsv2b5QfIEgjPmCLeOBprEtrY -DZUu9jY0ce1PnlhkXi9o+Zh5/iJuPyQXcy+YC9Hu63sExzgwImLFm2T2Q1xY -UKsIscipve560wOQN57PFCdeIpn+fF/VIOT+JSooRey46NutEcsv8E+E+OAS -YipLWVZ7zgj82lYhoE4cr7Yp4e/GUbiiejBRm7hD7vXqsLxx0BFgd5sRszwC -dp89NQHGXYeLbYjHrgpcuxP8FXzW1Y5uIp6jrC0xzpyCjogzFb7E51iPbSVk -vsGxdeoWwcTLctzjV01/g8XHPphEERtrHRsJquID69/bocnE/obdjTzLn3Ch -s12inngyMnzWPPVfUF0XJdZKfLBKbK3GnN8QNX9dWA9xGhr/69c4AxfyIfn3 -n/puPrcKyRNEXQOpCRjnQN7Tsz2HFgmhrc2w12bisU87YlNOCWHkzISRL3Gs -5tTd4mBh9P96yPAf4nNFSiqjzNlY0vLM6y1xZ/OX2t83ZuOTYUnTL8TLJso9 -5suIoPfm08cEJziQr++Yqj0tguFqyv7axPWV0YKBVXNwVdFrlxPEU4/bugct -xdE7NvCD21cOSNmLS8TUiqNWFIMfQaz72goZJgzkTa4/f544oK8sa7XOfPxw -9ILza+K9Qo26ZuISWBz8YGDbJAf6lQvHE75J4gWdnx77p8j9UA1zm/SksP+j -Rko6sdC/A0oL90lhW6/khnriZXpLt+QNSaFEp7y59DcOeFgm33nVI418CTuz -cuIm35BQuRcyeER4faocnwMfc06f9J4ji7qlRv3WxF+G8m7ctpbF67Pm3g8j -nhfGbTN9KIv3vLZ/biO2Ouqs710mhxnx4jvTaA7czzacys2Ux7mxardNfnAg -u/97xJowRUzm9L7s+s2B9S6JH0MLFDE+XNFk4QyJXy9tUzCgiK8qh2W2Eutn -a8ksc1+CVqvdVBuI63123J1tvhTnydw+VyPAhYnRnv2DR5ZhN2P0SaUQF6SD -rErvOiijQunbQ6KiXBjInufvFKCMH3a0qjkRV3xoXjR8TBm/ebwwvUTsae91 -RP2hMv439bRGaw4XsldGbLnEVMGaCnsF97lc0OfljMXJqSKH0W/8TIwLzn5i -2na9aqjVNnsFLcEFiHBhbvulhvdTq70cJbmgmZBpxJJXxzCleMFsYoEbehZx -m9VRTsP4rJMUFwo+bt9255E6ZgWNdBdKc0HENf+QwvXlKGKkpHxQltRn5dDO -89HAiKTt/uGLuXBj68X303EaqF3A8+sgPu3T2zPrigbKU9LtpopcYB0MH1rS -poFd5Va/hZdwQbI6XWCrpSbCyYK4S0u5EKA3olmlshJX+n20fKfMhUXKZ+JP -9mlhS/GMUL4GF6pPTGrQQtr4O8k1XF2T3MdX99eUkjZGVqQEXCPOqFfVsNih -jVYZzV1pK7mg7He/lf9WG2990BtM0ib95verUS90UP/bw9Tk1VxQXLSEWuau -i/W64/v4JlzQuhkm/gOYONP8RNTZngs+rCNT2o5M1EyTEesnTlNJ/ejtycTY -GrnDEQ5cEL5eVPw0kokdHpteXHbkQmcGzzm1hImeZ7e8GHTiwvE073QNFT08 -JziWeNmFzPekvY6biD6m2r1Rd9nJhWshqk5ljQYo0i2RsyKMC3c+Pjy58IMB -CjvKBvYT19l5PYsZMsDCcqy6Hs6FPuUL5hbzDDFQcRV/yX4uqLeJajfZGmLO -6oxhxWgu5OsNzf1cZ4jLZ9Y2Gxwk85kseby40gibIosfvTzFheYIMDp60wRz -ozzas3K4oLTjjaNXoBn6WpvZV3G4wJ65V6gYhXi49vSqEqU+kBuqEJXzsUDR -FjfV8uA+CNNb+yFV0worbG2vMx70gc/wz+fSPGvUrQw9NCLTDwUWoaKZTbZ4 -ouD42VMH+iF7MuBR/rkN+MRrzzurT/3AX7fwZX38Rmy4ffX4LNYAdAkIj/fu -csA5t1yLJT8PQPDiPcmHVDahV8fRvt7gT1C4+/nD8wlOGBUtuWZk3iBEf5Wf -Xrl7M+Yo85QW5gzClJ2N67OdW/DXfX9LMc/PYLI9ZV3/5q24bE3LnFZ5HrTK -pwfU6zmj+DdZre43PFC4daQ6d4ULOhl8Pz9QMAQVPZr2jgxXXOBzkrngyBdY -8nrML2LYFUeZCo0PdgyD3vmU/Bs92zC7433fmNsIpM/6qpP62A1Ddqrsd3AY -hXvrVnUmVLpjnWZ9+HPdMUgzOiH5M88DS/WyL76rGYOm9zeP6Z3ajjFL3SN5 -1uNQ5nBVde9BT7wr/E73Tdc4jAdtFQhmeeHZ94yQpXsmYMpGw3/Ecgcyis5n -Kgp8hdzhd/xQw5145+dxCSrzK7hdu+nrJe6Nyo2BFh36k3D3zsadwoneWGrK -HI9unwSTRa30cdobW5wv+9f8PQUqPX6dLbt34W1rhwz1H1PQJ/b3pqvcXeil -L9v+MuUbNJ929LV18UGFoJ+vdBdOw7nITLHwZh+8+oVDa1ybhuraGdp3gy/u -DEOn6cV8WOCJiXr3fbG4KdvNLIEPJt4juQn6LJxZac50GeTDrUtjoY6GLOzb -pXXm9mc+/NU2YS5nzMIHx5Pn/uLxYcR6+nWuKQvZ+wNcrg3zyf9LQLDRgoUr -Xq7F7gk+zJ+WdJfazMLt7Hx53V986EsymJsZxEJjpX8yVSRpOF0Vu7viFgvN -C9klaEhDEPOiSWQuyR9YF+RsRIP97ZK5xnks9Kq8aOZnTMO8iwO3ywtYuNkh -XfbEGhoSQpx490pZGJJTcavenIZYDdW/y+pYaKRCz2LY0hBw8UXgnY8sPC+a -MDHoSsOG+QNrQ3rI+cNZGR+30bAiQYDB5LDw5S0l1zY3GgZCDApK+ll4OcZ7 -oNKDhl2OmcPFX1hYaqGdELODBrfZocFF31mYpZKV2MymwTZUYW++LBtNfm2d -8zCUhrrMY3apC9mYJqDUnRtGw9rGCdVIBTZ68mKSksNp0FV78c5yCRvnlz3b -47mfBvm3MZbv1djI4ZpbDkTTMLSmS3aeARtFc6Z5jw7RcEYoq8ZvKxs3pTGi -Lp4m/a8ST3NwYaPAlFqdxxkajm6PDNHbxkYx05edi5NpiCx1Wj7jwUbe8Meo -9BRSPyWYcsGHjW2fa/2Tz9Gg1+DDerKPjdw8iY61l2l4m6ImppLMRi+G0tHC -bBoKgeE/mMJGQee0XrxJ4g9P1hecZeNPR33dVmLmhvo444ts7HyAWeO3yPwE -fCccMsj5LYnPVG7TYLMn611kPhvZu05LuRTQoKj4jyGZLU5a9extJ55s2HNW -uJiNst8X1LoW0nBdHRxO32Wjas1BVeciGn51dT28cZ+NIb6/FS1KaCi1X5T7 -6jm537i5ObxSGk5+F5p9roGN4NLB9SijwSeXt8u9kY16r44yGoglZt1f1NfE -xt2+Astv3qMhsMrtDN3OxkyG6x7HChpUNC9EqPazMYE5xyyoiobvbw+0fR5g -4/hIwJpG4uYEtm7RINmf91VZs5qGuF59nskXNj42X1DGIe5Ma/Pa9JWN/vca -Om1qaUgVlbSOFqRQaN1bufcPaaie6NoeJkzhlRzBO6sf0fCpKy8keDaFeUXe -48eI15ZaZfnMpbDffONO7TryvXlH/rCTpNC+omVy92NSv721lLU0hfpUelkZ -samRlAbIUKh76amCQD0NyYx8Vz15CtcmvWpJJja9312ySIlC+S8Lx649oYG6 -mf9cRoXCs+9Wt3CIk5OjuheoUcgXHXFRfkryUdKMWRoUXk3/sSGdOFna1v+L -LoWJGw06Dz+j4f5v6fgBJoU6pTrtFcT9n3vO9+hT+J+MTvgw8ZqH0Y9fG1MY -/4h/ZctzGvoCC5fUIOlvxfAJ8f9omO8WY1BuQWHtRYt0I2ITy/X2JVYU+rUq -btlFfFqeE3VzPYUWZjo3iokrZhUlZ9pRKPl+PbQTc0djci7ZU3h3aemB78TG -T2XeJDlRyIi37zVvIPMu4QwlbqFQtchHZCdx0tUiocPOFL4tvvLyADEnZINu -hBuF9dsdLMqJGTtkbfd6ULjm8Z3RFmLjDVyvAE8KGyP/gqE/7y89cHKHN8nv -/O9j+Reknnl21918yH5vM1+HmDMlW7mFRWFdUluTBTGjl9tkT1FoVpK/3oXY -uLF4wMafwjcKrr4UsU/5gV8YQOGJ+Q1LI4iTrtv9ZRpIYam1cNzRP/GT5FYa -BFMoPvrzQMqf+JF961btJfUW3lmaTizOKnHTCKHQP2OZbw6x0aa4PSphFP62 -t1xf/Cf+mo3HFCMo/F4r11ROfEptYbpcJIWWwVema4jvSfTflYym0NCu8VEd -ce+PkgaxWApvledqP/0T/1Nc7+w4CvuSV5k+JzZs3cifiaewXM2b98f/A17v -GY0= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1XlYTd0XB/CKiIoGSqU0oonc24zWUmnSLImU3O49kiGSftHopXglDYq8 +VIo0aDQklaSSEE3IWHGaNCpNx/jb/XGe83ye/ZzvXvvstc9R4vg58wT4+Pj6 +yDVzP/Ry1Yp7TS9NFpnR9q/laDAZvq7HMc+Dc+wnkTPuTNNPVDWvALTx03hD +7Mh9MUeE/RgWxH5Y10ZcHBReI2jeAEsXijx4S/xv3ZKq8NxmePOR7+Z74vtN +h1J/sV7D4MKyOZ+I+98/Czla/hacHhs0dRDLdqu4T5p9BK1lx+bSxJtGQowO +N3TAvI3H83qIK3/1CwflfoYQb7uH/cRvjksHlxygISOvHUaIh+eY94+zuqFo +q96qceI5Zw9uY0/1gEK60xmGWEE8pf5QeR/kPmO7/CW2l5u8MWw2CFkdNmtE +ltJAXVWW0hYahk6fCHNJ4nA1h8i9DSPwVTT0sSzxW+lXawJyR0FI6YWYJjF3 +u++e82fHYMJV6QOb+NsVvvRbB77DCUMTyfXEQsraYqOsCdhf39rgSJzIrbEU +WzwJuT529u7EilnbwldPTcKZ5Pj1FLGhVtTw/vJpWPU4mBdK7KPf0dBv9guM +rHvfFxGPBx2ZPX/5b/A3evyskjiiXHidutAfaA71X/mCOBkNb+5u+Au/69dr +D8zUl1lv7p/Lj44/b+7Qkqcht+5853E5AdzLLClfT/yt1zMk/qwAFnm5n3Ig +DtGYuF10YBbavvPeE0CcWKikMsISxBWpVzbXEL9vGqz8c00QUwZfKL4lVhy7 +t33B4jlYPe+j+xBxnq59gvbUHFz9JEFORoGG2vvH+PeVC2GA5OlHR4gnalo7 ++sxEUH57fLbZMhokbEXEgitF0Ix/MG8Xsc4rcxQ1EsVGwRBWBLFv192ra1Yt +QCFRs0eVxAcFGnTWi4hhxUTq0AZFGrqVC0YjJ8UxeZ7eCS8l8n6oZ/Ma2RLo +drLmchSxwM0epSWHJDDB5IZePrEie5lz7oAEKq48NPSTeLtZ3K2XnZK4guO+ +P02ZhkZv/8PSzxfj5eaYoj8qNLRnnYv2EpJC0ayADi1VGgYHcq/lbJTChPbX +se7E8wPo1rVVUniDET9SRmx+0kXX6640cpUqnMLUaCi7rj+RnSaD+fw2rgor +aLje/SPQOEAe/Sxd0x9q0GC15VT74Xx5TP/nfjtDPFgraZHfI4+OL11idDVp +0L2utVhxmwLWS4PJTeJajudtQZNlOL1CdyRFi4axkc7/9Z1QRM4AxCWvokFy +v/md23bKqLb1Z9cXFg091+f7OPoqY6bvdgdNNg2lH5vkhqKUkSfophlAvMPW +48TyKmW8sGC94VxdUp9moPMllgpOOkveYOmR+fuzvoVJq2JGofrrVAMaXHYL +a9t8VsNXg12XG9bRAIFbWFt/q+Fqb60YpfU0aESmGXBllqP6l2WDgcR819im +YU7LMWxK9ruyCQ357e5bbz1ajk8jW9QigJxP17zjshkr0KunQ8nBlNRnbvem +n6OOSUs3JIAVDdc2X/wwFaaOdpYrNmQQn+N87px9WR0PTJt6ClqT/o44MqDQ +qo5X92vTDcTiFSl8m800UMHYacmuTaR/2MMa5SqaeCGQYafa0yCnHBse3aWF +Apd+Ou/dQkPFmXF1RkAbNxkP7Owm3vF92ytKSRv3RpuN7HSlIbVWVd3UUxvP +ilonuW6lQXl3Wct0mzbqPuL+td5G1pvXrUY9X4WVv9udrD1okJdToBS36eBa +WSulXB4NWpkBIj+BhfUf84Un/0cDh3tiQtuehXYPX8VHBZHzqpLQ7rWDhZVd +utHSR2mYlVFYVBfEwji7ijbjY+S8pfa7JBSz8Ixo9tuoEPI9TfZKUVdhY0zN +3Ajd42R/o21Xuc3RxSTn5As9Z2hI91d1vNugh7OL2cez0mi41V4VveSjHoqI +lV/2vkpDtY3Hk+ABPVxWWweK6TR0KV8wMZ2vj+/2J6pezqBheetc7UZLfTwk +r8m5mEnOM3tg3tdqfTxm6FeSc5Psz3hxzdL7Bmh3QnCBfikNTYFgcDLTCEWc +93aPtNCg5Pna3mPfejTU89NvEu0C3t+SAvmjiCUJn7eetO0C6YHSudIcU9yp +syVK91IXBLDXfUzQMEeHf6RdNb92AWfoV71k/0akPfmvp0A35JsenpvWaIlJ +pb9MC250w/Vx30d5idao386Leb6wB6Y3LHlRG74Jk7lVqXXRPfCJb9bo5112 ++CJyUePowl44sNQv7riKA2r+yf/5IrEXCvbUVyVFOmLhF6/i7NV9cOy7zJTm +Hif8k61ldeZZH0zYWLg+2emMRaX9mt2hX8HIPX5Dt9Nm1H2ruKDTqB9aZFJ8 +a9kueCGbahAc7wfZGycqslduwY6M2y0lTwegtFPD1l7UFV2XiKnsuTIICq++ +7Q4ccsW7Mtt1dh8ZAnZSfN61zq14NyL90+Z9w5Ay+/uqhBo3HA3e+NDWYwRK +Nqx+H3l/Gx4xim14qP8Nkg3OiP/K3Y7X3u5yTXn0DRo/ZEaxz7rjceqlykHL +Ubhrd0X1YMQONJEdm3Pv4yiM7t/Md4DrgVL8wd/c9pL/koW6z7CZJ/4DBgGx +zBhkD72bPqy/E9XkLLquJ30Ht/RMbw8RL7T2Gcv/vmIcbt/atHPWKS90Fcyp +Fa4bByO5FuZfxgsXPm2607N1AlQ6d79v3rMLe8P1mgfoCegS3utwhd6F+RfV +ZtOBk9B0zt7bcgsHJfuED3Yyk5AYlCZ8pImDITtOD1mFT0FF5V/G29obS0Zj +0uumpmDhDjzFLvPGT0eNlFke02DkNZwdqctF3nN8EvlgGm5c+nbYXp+LfvLi +Z5sqp2FR65iJtCEXs9fIBchWTcPwxqlX2Wu52N33X97N6mny/eLjbzDlYuij +yJKaJ9OwYEp8m4QTF5cfDut72jwNXTF689L2c1Fs5eV0re5pOFcesqf0Bher +m4Jp43kM7GddNArK5mKORmqFxXwGbHOK5xnmctHleFKhkzAD8y/25NzL5+JK +X74vXFEGIv0d+0vucDH4WuWhCHEGQtRV996t5mJNmaHgWRkGfC8+33ernYud +Qmzr7ysZsF7Qs86/k4v1CzfSn9UZWBnJJ8r6wsVtbwJiGzUY6PHXyy/u5mKY +lLl8thYDu+zThooGSb64jZC9DgNugocPFP7g4lmP3q/7DBiwPCx7ME+Kh490 +57tOmDNQnRZlk7CEhzKZqw+2bWRgXcOYapAsD9/Ya/uWWjCgo/b8nZkCD0cn +cn4FWjEg0xZs9kGNhyyLqMSeTQwMGH+Smq/Hw2yl8q2xzgzEClx9sHszDxWj +J4MFd5L1rxZJttvCQ5W5ftI1xCfdg/zZW3l4SlQ+OtyLgaA7jiv+buch+57x +j/FdpH6KP/4Ch4eqOUdGm7kMsJ9xuI8P8TDIu26Riy8DbfFqwipxPDw6KPnk +fwEMFICoT188D//45rcLHiH5Q+O1+ed5WDLXYCSBmGVdG2Z4kYd106d+5AQy +cI7Pe8wuleQ1aJU8D2LAwu/qu6A8Hi7670HGpxAG5OVP65sU8FD+5W1D91AG +xp/5nZ9VxEOd5v2P24gzloPduds8NN55s/pFGAO/P32qulbGw7VqL63yIxi4 +YyuX/bKeh51xKT7GJxmI/iEgmPiMhwUeqjuyiDnZ/bu2NfDw8pooc8lIBsRm +l8l1NfLQc7Hv917ifeVuscwbHpb23qw7eYoBFY0LgardPNSWqNE8e4aBH22h +rV97eHgn3cGrj7gpkqdT2MdDWl7ytFk0A2GfdfuNBnno4dxRNEn8PrnVw+E7 +Dys1/3IdYxhImCu+8Rg/hcv03pg1xzJQMfbJPWAWhbKtQZvV4hjo/ZTrf0CQ +wknlwxJBxOvumF/lzKNwZ5ZAqkw86TevoJ824hT+/VrYZ5tA6rfdKLFRksKX +D1cfvEC81kBCHRZTaCJsfKOdOE40z5UtQ2FfTKz83vNkvKyjWE6JQlXtR/oB +iQxQmXn1i1Uo1EtepHObOC7uaMdCNQotarDtG3EPJSk6W51ChVstq3ySyLik +pc+gDoV1l6r4LC8wUPZHMryHReFQZhkVTNz9tTOpU5fCZu7U0QJi46pjNa8M +KQzVmcwSu8hA174ChQdI4ZOndoqPiRe4BevdM6XwgVba8DCxkZmVbbE5hRNM +6R7pZNIvMl+OZlpRWDImRnGJS2cXxqXZUFhRq9d7mpgeCc66ZEuhjP23RXnE +hnWLX8c4UiidNn1kmJhT/GXglDOFv//VyRG9xEDMlUKBf1zI/P4tpzWJv/hb +6wS6UejupG3nTSzqKWV5cDuFa/pa14QSG1rTHr47KJR4+LA6aeb5ZaHRnl4U +rlpv+bWauHS+TYYbh8w/+1VY20zehNR9Zy6FyTanq/pn8j7TjbYUhdalHgW/ +ZvIainosfCis4tpbif5H6rsX+ht9KTzV5nJuKXFMhs2itfvI/gjti9AgLo2R +1tQ7QKGkZ6yCAfGXoK4Nqw9S+LaozMeUWIRb7KbuTyFj2e9pS2zgEOanEkCh +yAdZ/i0z+cabouQDKUyJt3bYQXxWbUmKdBBZ76wAaw5xiVj3bfFjFI4ZJI9Q +xJ9/Fj8TDqFwedadDb4z+b1hnwXDKKw3rId9xPotm6b/hlNYad7ydcb/Bwfi +29k= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -13724,107 +13881,107 @@ GY0= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VVsYAHBDUXHL8BClMhYhXXPi+zKWkAohStx7yENlyhRN8hoUmjQY -KkWesQgZKml4UqaSlHAv0pUxck+Tt/vjrL1+a+/zDfs76yj57NnCFhIQEBgk -z5913yud5eXNr8zd+TbvP41ywHwk28DHKh+8bFykBol7Mg3PqVpVQ3tIbPkf -O7FeiojrPYGxhOqGz8QlkfGPZ1s1wsokGfsh4uNPFz6Mz2uBU1cSTYeJK5v3 -ZfxkvoHI/6QujRLzOhtio6o6oEa/nDVBrNCvsv2b5QfIEgjPmCLeOBprEtrY -DZUu9jY0ce1PnlhkXi9o+Zh5/iJuPyQXcy+YC9Hu63sExzgwImLFm2T2Q1xY -UKsIscipve560wOQN57PFCdeIpn+fF/VIOT+JSooRey46NutEcsv8E+E+OAS -YipLWVZ7zgj82lYhoE4cr7Yp4e/GUbiiejBRm7hD7vXqsLxx0BFgd5sRszwC -dp89NQHGXYeLbYjHrgpcuxP8FXzW1Y5uIp6jrC0xzpyCjogzFb7E51iPbSVk -vsGxdeoWwcTLctzjV01/g8XHPphEERtrHRsJquID69/bocnE/obdjTzLn3Ch -s12inngyMnzWPPVfUF0XJdZKfLBKbK3GnN8QNX9dWA9xGhr/69c4AxfyIfn3 -n/puPrcKyRNEXQOpCRjnQN7Tsz2HFgmhrc2w12bisU87YlNOCWHkzISRL3Gs -5tTd4mBh9P96yPAf4nNFSiqjzNlY0vLM6y1xZ/OX2t83ZuOTYUnTL8TLJso9 -5suIoPfm08cEJziQr++Yqj0tguFqyv7axPWV0YKBVXNwVdFrlxPEU4/bugct -xdE7NvCD21cOSNmLS8TUiqNWFIMfQaz72goZJgzkTa4/f544oK8sa7XOfPxw -9ILza+K9Qo26ZuISWBz8YGDbJAf6lQvHE75J4gWdnx77p8j9UA1zm/SksP+j -Rko6sdC/A0oL90lhW6/khnriZXpLt+QNSaFEp7y59DcOeFgm33nVI418CTuz -cuIm35BQuRcyeER4faocnwMfc06f9J4ji7qlRv3WxF+G8m7ctpbF67Pm3g8j -nhfGbTN9KIv3vLZ/biO2Ouqs710mhxnx4jvTaA7czzacys2Ux7mxardNfnAg -u/97xJowRUzm9L7s+s2B9S6JH0MLFDE+XNFk4QyJXy9tUzCgiK8qh2W2Eutn -a8ksc1+CVqvdVBuI63123J1tvhTnydw+VyPAhYnRnv2DR5ZhN2P0SaUQF6SD -rErvOiijQunbQ6KiXBjInufvFKCMH3a0qjkRV3xoXjR8TBm/ebwwvUTsae91 -RP2hMv439bRGaw4XsldGbLnEVMGaCnsF97lc0OfljMXJqSKH0W/8TIwLzn5i -2na9aqjVNnsFLcEFiHBhbvulhvdTq70cJbmgmZBpxJJXxzCleMFsYoEbehZx -m9VRTsP4rJMUFwo+bt9255E6ZgWNdBdKc0HENf+QwvXlKGKkpHxQltRn5dDO -89HAiKTt/uGLuXBj68X303EaqF3A8+sgPu3T2zPrigbKU9LtpopcYB0MH1rS -poFd5Va/hZdwQbI6XWCrpSbCyYK4S0u5EKA3olmlshJX+n20fKfMhUXKZ+JP -9mlhS/GMUL4GF6pPTGrQQtr4O8k1XF2T3MdX99eUkjZGVqQEXCPOqFfVsNih -jVYZzV1pK7mg7He/lf9WG2990BtM0ib95verUS90UP/bw9Tk1VxQXLSEWuau -i/W64/v4JlzQuhkm/gOYONP8RNTZngs+rCNT2o5M1EyTEesnTlNJ/ejtycTY -GrnDEQ5cEL5eVPw0kokdHpteXHbkQmcGzzm1hImeZ7e8GHTiwvE073QNFT08 -JziWeNmFzPekvY6biD6m2r1Rd9nJhWshqk5ljQYo0i2RsyKMC3c+Pjy58IMB -CjvKBvYT19l5PYsZMsDCcqy6Hs6FPuUL5hbzDDFQcRV/yX4uqLeJajfZGmLO -6oxhxWgu5OsNzf1cZ4jLZ9Y2Gxwk85kseby40gibIosfvTzFheYIMDp60wRz -ozzas3K4oLTjjaNXoBn6WpvZV3G4wJ65V6gYhXi49vSqEqU+kBuqEJXzsUDR -FjfV8uA+CNNb+yFV0worbG2vMx70gc/wz+fSPGvUrQw9NCLTDwUWoaKZTbZ4 -ouD42VMH+iF7MuBR/rkN+MRrzzurT/3AX7fwZX38Rmy4ffX4LNYAdAkIj/fu -csA5t1yLJT8PQPDiPcmHVDahV8fRvt7gT1C4+/nD8wlOGBUtuWZk3iBEf5Wf -Xrl7M+Yo85QW5gzClJ2N67OdW/DXfX9LMc/PYLI9ZV3/5q24bE3LnFZ5HrTK -pwfU6zmj+DdZre43PFC4daQ6d4ULOhl8Pz9QMAQVPZr2jgxXXOBzkrngyBdY -8nrML2LYFUeZCo0PdgyD3vmU/Bs92zC7433fmNsIpM/6qpP62A1Ddqrsd3AY -hXvrVnUmVLpjnWZ9+HPdMUgzOiH5M88DS/WyL76rGYOm9zeP6Z3ajjFL3SN5 -1uNQ5nBVde9BT7wr/E73Tdc4jAdtFQhmeeHZ94yQpXsmYMpGw3/Ecgcyis5n -Kgp8hdzhd/xQw5145+dxCSrzK7hdu+nrJe6Nyo2BFh36k3D3zsadwoneWGrK -HI9unwSTRa30cdobW5wv+9f8PQUqPX6dLbt34W1rhwz1H1PQJ/b3pqvcXeil -L9v+MuUbNJ929LV18UGFoJ+vdBdOw7nITLHwZh+8+oVDa1ybhuraGdp3gy/u -DEOn6cV8WOCJiXr3fbG4KdvNLIEPJt4juQn6LJxZac50GeTDrUtjoY6GLOzb -pXXm9mc+/NU2YS5nzMIHx5Pn/uLxYcR6+nWuKQvZ+wNcrg3zyf9LQLDRgoUr -Xq7F7gk+zJ+WdJfazMLt7Hx53V986EsymJsZxEJjpX8yVSRpOF0Vu7viFgvN -C9klaEhDEPOiSWQuyR9YF+RsRIP97ZK5xnks9Kq8aOZnTMO8iwO3ywtYuNkh -XfbEGhoSQpx490pZGJJTcavenIZYDdW/y+pYaKRCz2LY0hBw8UXgnY8sPC+a -MDHoSsOG+QNrQ3rI+cNZGR+30bAiQYDB5LDw5S0l1zY3GgZCDApK+ll4OcZ7 -oNKDhl2OmcPFX1hYaqGdELODBrfZocFF31mYpZKV2MymwTZUYW++LBtNfm2d -8zCUhrrMY3apC9mYJqDUnRtGw9rGCdVIBTZ68mKSksNp0FV78c5yCRvnlz3b -47mfBvm3MZbv1djI4ZpbDkTTMLSmS3aeARtFc6Z5jw7RcEYoq8ZvKxs3pTGi -Lp4m/a8ST3NwYaPAlFqdxxkajm6PDNHbxkYx05edi5NpiCx1Wj7jwUbe8Meo -9BRSPyWYcsGHjW2fa/2Tz9Gg1+DDerKPjdw8iY61l2l4m6ImppLMRi+G0tHC -bBoKgeE/mMJGQee0XrxJ4g9P1hecZeNPR33dVmLmhvo444ts7HyAWeO3yPwE -fCccMsj5LYnPVG7TYLMn611kPhvZu05LuRTQoKj4jyGZLU5a9extJ55s2HNW -uJiNst8X1LoW0nBdHRxO32Wjas1BVeciGn51dT28cZ+NIb6/FS1KaCi1X5T7 -6jm537i5ObxSGk5+F5p9roGN4NLB9SijwSeXt8u9kY16r44yGoglZt1f1NfE -xt2+Astv3qMhsMrtDN3OxkyG6x7HChpUNC9EqPazMYE5xyyoiobvbw+0fR5g -4/hIwJpG4uYEtm7RINmf91VZs5qGuF59nskXNj42X1DGIe5Ma/Pa9JWN/vca -Om1qaUgVlbSOFqRQaN1bufcPaaie6NoeJkzhlRzBO6sf0fCpKy8keDaFeUXe -48eI15ZaZfnMpbDffONO7TryvXlH/rCTpNC+omVy92NSv721lLU0hfpUelkZ -samRlAbIUKh76amCQD0NyYx8Vz15CtcmvWpJJja9312ySIlC+S8Lx649oYG6 -mf9cRoXCs+9Wt3CIk5OjuheoUcgXHXFRfkryUdKMWRoUXk3/sSGdOFna1v+L -LoWJGw06Dz+j4f5v6fgBJoU6pTrtFcT9n3vO9+hT+J+MTvgw8ZqH0Y9fG1MY -/4h/ZctzGvoCC5fUIOlvxfAJ8f9omO8WY1BuQWHtRYt0I2ITy/X2JVYU+rUq -btlFfFqeE3VzPYUWZjo3iokrZhUlZ9pRKPl+PbQTc0djci7ZU3h3aemB78TG -T2XeJDlRyIi37zVvIPMu4QwlbqFQtchHZCdx0tUiocPOFL4tvvLyADEnZINu -hBuF9dsdLMqJGTtkbfd6ULjm8Z3RFmLjDVyvAE8KGyP/gqE/7y89cHKHN8nv -/O9j+Reknnl21918yH5vM1+HmDMlW7mFRWFdUluTBTGjl9tkT1FoVpK/3oXY -uLF4wMafwjcKrr4UsU/5gV8YQOGJ+Q1LI4iTrtv9ZRpIYam1cNzRP/GT5FYa -BFMoPvrzQMqf+JF961btJfUW3lmaTizOKnHTCKHQP2OZbw6x0aa4PSphFP62 -t1xf/Cf+mo3HFCMo/F4r11ROfEptYbpcJIWWwVema4jvSfTflYym0NCu8VEd -ce+PkgaxWApvledqP/0T/1Nc7+w4CvuSV5k+JzZs3cifiaewXM2b98f/A17v -GY0= +1:eJwV1XlYTd0XB/CKiIoGSqU0oonc24zWUmnSLImU3O49kiGSftHopXglDYq8 +VIo0aDQklaSSEE3IWHGaNCpNx/jb/XGe83ye/ZzvXvvstc9R4vg58wT4+Pj6 +yDVzP/Ry1Yp7TS9NFpnR9q/laDAZvq7HMc+Dc+wnkTPuTNNPVDWvALTx03hD +7Mh9MUeE/RgWxH5Y10ZcHBReI2jeAEsXijx4S/xv3ZKq8NxmePOR7+Z74vtN +h1J/sV7D4MKyOZ+I+98/Czla/hacHhs0dRDLdqu4T5p9BK1lx+bSxJtGQowO +N3TAvI3H83qIK3/1CwflfoYQb7uH/cRvjksHlxygISOvHUaIh+eY94+zuqFo +q96qceI5Zw9uY0/1gEK60xmGWEE8pf5QeR/kPmO7/CW2l5u8MWw2CFkdNmtE +ltJAXVWW0hYahk6fCHNJ4nA1h8i9DSPwVTT0sSzxW+lXawJyR0FI6YWYJjF3 +u++e82fHYMJV6QOb+NsVvvRbB77DCUMTyfXEQsraYqOsCdhf39rgSJzIrbEU +WzwJuT529u7EilnbwldPTcKZ5Pj1FLGhVtTw/vJpWPU4mBdK7KPf0dBv9guM +rHvfFxGPBx2ZPX/5b/A3evyskjiiXHidutAfaA71X/mCOBkNb+5u+Au/69dr +D8zUl1lv7p/Lj44/b+7Qkqcht+5853E5AdzLLClfT/yt1zMk/qwAFnm5n3Ig +DtGYuF10YBbavvPeE0CcWKikMsISxBWpVzbXEL9vGqz8c00QUwZfKL4lVhy7 +t33B4jlYPe+j+xBxnq59gvbUHFz9JEFORoGG2vvH+PeVC2GA5OlHR4gnalo7 ++sxEUH57fLbZMhokbEXEgitF0Ix/MG8Xsc4rcxQ1EsVGwRBWBLFv192ra1Yt +QCFRs0eVxAcFGnTWi4hhxUTq0AZFGrqVC0YjJ8UxeZ7eCS8l8n6oZ/Ma2RLo +drLmchSxwM0epSWHJDDB5IZePrEie5lz7oAEKq48NPSTeLtZ3K2XnZK4guO+ +P02ZhkZv/8PSzxfj5eaYoj8qNLRnnYv2EpJC0ayADi1VGgYHcq/lbJTChPbX +se7E8wPo1rVVUniDET9SRmx+0kXX6640cpUqnMLUaCi7rj+RnSaD+fw2rgor +aLje/SPQOEAe/Sxd0x9q0GC15VT74Xx5TP/nfjtDPFgraZHfI4+OL11idDVp +0L2utVhxmwLWS4PJTeJajudtQZNlOL1CdyRFi4axkc7/9Z1QRM4AxCWvokFy +v/md23bKqLb1Z9cXFg091+f7OPoqY6bvdgdNNg2lH5vkhqKUkSfophlAvMPW +48TyKmW8sGC94VxdUp9moPMllgpOOkveYOmR+fuzvoVJq2JGofrrVAMaXHYL +a9t8VsNXg12XG9bRAIFbWFt/q+Fqb60YpfU0aESmGXBllqP6l2WDgcR819im +YU7LMWxK9ruyCQ357e5bbz1ajk8jW9QigJxP17zjshkr0KunQ8nBlNRnbvem +n6OOSUs3JIAVDdc2X/wwFaaOdpYrNmQQn+N87px9WR0PTJt6ClqT/o44MqDQ +qo5X92vTDcTiFSl8m800UMHYacmuTaR/2MMa5SqaeCGQYafa0yCnHBse3aWF +Apd+Ou/dQkPFmXF1RkAbNxkP7Owm3vF92ytKSRv3RpuN7HSlIbVWVd3UUxvP +ilonuW6lQXl3Wct0mzbqPuL+td5G1pvXrUY9X4WVv9udrD1okJdToBS36eBa +WSulXB4NWpkBIj+BhfUf84Un/0cDh3tiQtuehXYPX8VHBZHzqpLQ7rWDhZVd +utHSR2mYlVFYVBfEwji7ijbjY+S8pfa7JBSz8Ixo9tuoEPI9TfZKUVdhY0zN +3Ajd42R/o21Xuc3RxSTn5As9Z2hI91d1vNugh7OL2cez0mi41V4VveSjHoqI +lV/2vkpDtY3Hk+ABPVxWWweK6TR0KV8wMZ2vj+/2J6pezqBheetc7UZLfTwk +r8m5mEnOM3tg3tdqfTxm6FeSc5Psz3hxzdL7Bmh3QnCBfikNTYFgcDLTCEWc +93aPtNCg5Pna3mPfejTU89NvEu0C3t+SAvmjiCUJn7eetO0C6YHSudIcU9yp +syVK91IXBLDXfUzQMEeHf6RdNb92AWfoV71k/0akPfmvp0A35JsenpvWaIlJ +pb9MC250w/Vx30d5idao386Leb6wB6Y3LHlRG74Jk7lVqXXRPfCJb9bo5112 ++CJyUePowl44sNQv7riKA2r+yf/5IrEXCvbUVyVFOmLhF6/i7NV9cOy7zJTm +Hif8k61ldeZZH0zYWLg+2emMRaX9mt2hX8HIPX5Dt9Nm1H2ruKDTqB9aZFJ8 +a9kueCGbahAc7wfZGycqslduwY6M2y0lTwegtFPD1l7UFV2XiKnsuTIICq++ +7Q4ccsW7Mtt1dh8ZAnZSfN61zq14NyL90+Z9w5Ay+/uqhBo3HA3e+NDWYwRK +Nqx+H3l/Gx4xim14qP8Nkg3OiP/K3Y7X3u5yTXn0DRo/ZEaxz7rjceqlykHL +Ubhrd0X1YMQONJEdm3Pv4yiM7t/Md4DrgVL8wd/c9pL/koW6z7CZJ/4DBgGx +zBhkD72bPqy/E9XkLLquJ30Ht/RMbw8RL7T2Gcv/vmIcbt/atHPWKS90Fcyp +Fa4bByO5FuZfxgsXPm2607N1AlQ6d79v3rMLe8P1mgfoCegS3utwhd6F+RfV +ZtOBk9B0zt7bcgsHJfuED3Yyk5AYlCZ8pImDITtOD1mFT0FF5V/G29obS0Zj +0uumpmDhDjzFLvPGT0eNlFke02DkNZwdqctF3nN8EvlgGm5c+nbYXp+LfvLi +Z5sqp2FR65iJtCEXs9fIBchWTcPwxqlX2Wu52N33X97N6mny/eLjbzDlYuij +yJKaJ9OwYEp8m4QTF5cfDut72jwNXTF689L2c1Fs5eV0re5pOFcesqf0Bher +m4Jp43kM7GddNArK5mKORmqFxXwGbHOK5xnmctHleFKhkzAD8y/25NzL5+JK +X74vXFEGIv0d+0vucDH4WuWhCHEGQtRV996t5mJNmaHgWRkGfC8+33ernYud +Qmzr7ysZsF7Qs86/k4v1CzfSn9UZWBnJJ8r6wsVtbwJiGzUY6PHXyy/u5mKY +lLl8thYDu+zThooGSb64jZC9DgNugocPFP7g4lmP3q/7DBiwPCx7ME+Kh490 +57tOmDNQnRZlk7CEhzKZqw+2bWRgXcOYapAsD9/Ya/uWWjCgo/b8nZkCD0cn +cn4FWjEg0xZs9kGNhyyLqMSeTQwMGH+Smq/Hw2yl8q2xzgzEClx9sHszDxWj +J4MFd5L1rxZJttvCQ5W5ftI1xCfdg/zZW3l4SlQ+OtyLgaA7jiv+buch+57x +j/FdpH6KP/4Ch4eqOUdGm7kMsJ9xuI8P8TDIu26Riy8DbfFqwipxPDw6KPnk +fwEMFICoT188D//45rcLHiH5Q+O1+ed5WDLXYCSBmGVdG2Z4kYd106d+5AQy +cI7Pe8wuleQ1aJU8D2LAwu/qu6A8Hi7670HGpxAG5OVP65sU8FD+5W1D91AG +xp/5nZ9VxEOd5v2P24gzloPduds8NN55s/pFGAO/P32qulbGw7VqL63yIxi4 +YyuX/bKeh51xKT7GJxmI/iEgmPiMhwUeqjuyiDnZ/bu2NfDw8pooc8lIBsRm +l8l1NfLQc7Hv917ifeVuscwbHpb23qw7eYoBFY0LgardPNSWqNE8e4aBH22h +rV97eHgn3cGrj7gpkqdT2MdDWl7ytFk0A2GfdfuNBnno4dxRNEn8PrnVw+E7 +Dys1/3IdYxhImCu+8Rg/hcv03pg1xzJQMfbJPWAWhbKtQZvV4hjo/ZTrf0CQ +wknlwxJBxOvumF/lzKNwZ5ZAqkw86TevoJ824hT+/VrYZ5tA6rfdKLFRksKX +D1cfvEC81kBCHRZTaCJsfKOdOE40z5UtQ2FfTKz83vNkvKyjWE6JQlXtR/oB +iQxQmXn1i1Uo1EtepHObOC7uaMdCNQotarDtG3EPJSk6W51ChVstq3ySyLik +pc+gDoV1l6r4LC8wUPZHMryHReFQZhkVTNz9tTOpU5fCZu7U0QJi46pjNa8M +KQzVmcwSu8hA174ChQdI4ZOndoqPiRe4BevdM6XwgVba8DCxkZmVbbE5hRNM +6R7pZNIvMl+OZlpRWDImRnGJS2cXxqXZUFhRq9d7mpgeCc66ZEuhjP23RXnE +hnWLX8c4UiidNn1kmJhT/GXglDOFv//VyRG9xEDMlUKBf1zI/P4tpzWJv/hb +6wS6UejupG3nTSzqKWV5cDuFa/pa14QSG1rTHr47KJR4+LA6aeb5ZaHRnl4U +rlpv+bWauHS+TYYbh8w/+1VY20zehNR9Zy6FyTanq/pn8j7TjbYUhdalHgW/ +ZvIainosfCis4tpbif5H6rsX+ht9KTzV5nJuKXFMhs2itfvI/gjti9AgLo2R +1tQ7QKGkZ6yCAfGXoK4Nqw9S+LaozMeUWIRb7KbuTyFj2e9pS2zgEOanEkCh +yAdZ/i0z+cabouQDKUyJt3bYQXxWbUmKdBBZ76wAaw5xiVj3bfFjFI4ZJI9Q +xJ9/Fj8TDqFwedadDb4z+b1hnwXDKKw3rId9xPotm6b/hlNYad7ydcb/Bwfi +29k= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5917853625067081, - 1.6122521548553388`}}, + "PlotRange" -> {{0, 180}, {0.5971476116920678, + 1.6002015241286212`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5917853625067094}, + "AxesOrigin" -> {0, 0.5971476116920691}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13836,21 +13993,21 @@ GY0= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5917853625067081, - 1.6122521548553388`}}, + "PlotRange" -> {{0, 180}, {0.5971476116920678, + 1.6002015241286212`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5917853625067094}, + "AxesOrigin" -> {0, 0.5971476116920691}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13864,105 +14021,105 @@ GY0= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VVsYAHBDUXHL8BClMhYhXXPi+zKWkAohStx7yENlyhRN8hoUmjQY -KkWesQgZKml4UqaSlHAv0pUxck+Tt/vjrL1+a+/zDfs76yj57NnCFhIQEBgk -z5913yud5eXNr8zd+TbvP41ywHwk28DHKh+8bFykBol7Mg3PqVpVQ3tIbPkf -O7FeiojrPYGxhOqGz8QlkfGPZ1s1wsokGfsh4uNPFz6Mz2uBU1cSTYeJK5v3 -ZfxkvoHI/6QujRLzOhtio6o6oEa/nDVBrNCvsv2b5QfIEgjPmCLeOBprEtrY -DZUu9jY0ce1PnlhkXi9o+Zh5/iJuPyQXcy+YC9Hu63sExzgwImLFm2T2Q1xY -UKsIscipve560wOQN57PFCdeIpn+fF/VIOT+JSooRey46NutEcsv8E+E+OAS -YipLWVZ7zgj82lYhoE4cr7Yp4e/GUbiiejBRm7hD7vXqsLxx0BFgd5sRszwC -dp89NQHGXYeLbYjHrgpcuxP8FXzW1Y5uIp6jrC0xzpyCjogzFb7E51iPbSVk -vsGxdeoWwcTLctzjV01/g8XHPphEERtrHRsJquID69/bocnE/obdjTzLn3Ch -s12inngyMnzWPPVfUF0XJdZKfLBKbK3GnN8QNX9dWA9xGhr/69c4AxfyIfn3 -n/puPrcKyRNEXQOpCRjnQN7Tsz2HFgmhrc2w12bisU87YlNOCWHkzISRL3Gs -5tTd4mBh9P96yPAf4nNFSiqjzNlY0vLM6y1xZ/OX2t83ZuOTYUnTL8TLJso9 -5suIoPfm08cEJziQr++Yqj0tguFqyv7axPWV0YKBVXNwVdFrlxPEU4/bugct -xdE7NvCD21cOSNmLS8TUiqNWFIMfQaz72goZJgzkTa4/f544oK8sa7XOfPxw -9ILza+K9Qo26ZuISWBz8YGDbJAf6lQvHE75J4gWdnx77p8j9UA1zm/SksP+j -Rko6sdC/A0oL90lhW6/khnriZXpLt+QNSaFEp7y59DcOeFgm33nVI418CTuz -cuIm35BQuRcyeER4faocnwMfc06f9J4ji7qlRv3WxF+G8m7ctpbF67Pm3g8j -nhfGbTN9KIv3vLZ/biO2Ouqs710mhxnx4jvTaA7czzacys2Ux7mxardNfnAg -u/97xJowRUzm9L7s+s2B9S6JH0MLFDE+XNFk4QyJXy9tUzCgiK8qh2W2Eutn -a8ksc1+CVqvdVBuI63123J1tvhTnydw+VyPAhYnRnv2DR5ZhN2P0SaUQF6SD -rErvOiijQunbQ6KiXBjInufvFKCMH3a0qjkRV3xoXjR8TBm/ebwwvUTsae91 -RP2hMv439bRGaw4XsldGbLnEVMGaCnsF97lc0OfljMXJqSKH0W/8TIwLzn5i -2na9aqjVNnsFLcEFiHBhbvulhvdTq70cJbmgmZBpxJJXxzCleMFsYoEbehZx -m9VRTsP4rJMUFwo+bt9255E6ZgWNdBdKc0HENf+QwvXlKGKkpHxQltRn5dDO -89HAiKTt/uGLuXBj68X303EaqF3A8+sgPu3T2zPrigbKU9LtpopcYB0MH1rS -poFd5Va/hZdwQbI6XWCrpSbCyYK4S0u5EKA3olmlshJX+n20fKfMhUXKZ+JP -9mlhS/GMUL4GF6pPTGrQQtr4O8k1XF2T3MdX99eUkjZGVqQEXCPOqFfVsNih -jVYZzV1pK7mg7He/lf9WG2990BtM0ib95verUS90UP/bw9Tk1VxQXLSEWuau -i/W64/v4JlzQuhkm/gOYONP8RNTZngs+rCNT2o5M1EyTEesnTlNJ/ejtycTY -GrnDEQ5cEL5eVPw0kokdHpteXHbkQmcGzzm1hImeZ7e8GHTiwvE073QNFT08 -JziWeNmFzPekvY6biD6m2r1Rd9nJhWshqk5ljQYo0i2RsyKMC3c+Pjy58IMB -CjvKBvYT19l5PYsZMsDCcqy6Hs6FPuUL5hbzDDFQcRV/yX4uqLeJajfZGmLO -6oxhxWgu5OsNzf1cZ4jLZ9Y2Gxwk85kseby40gibIosfvTzFheYIMDp60wRz -ozzas3K4oLTjjaNXoBn6WpvZV3G4wJ65V6gYhXi49vSqEqU+kBuqEJXzsUDR -FjfV8uA+CNNb+yFV0worbG2vMx70gc/wz+fSPGvUrQw9NCLTDwUWoaKZTbZ4 -ouD42VMH+iF7MuBR/rkN+MRrzzurT/3AX7fwZX38Rmy4ffX4LNYAdAkIj/fu -csA5t1yLJT8PQPDiPcmHVDahV8fRvt7gT1C4+/nD8wlOGBUtuWZk3iBEf5Wf -Xrl7M+Yo85QW5gzClJ2N67OdW/DXfX9LMc/PYLI9ZV3/5q24bE3LnFZ5HrTK -pwfU6zmj+DdZre43PFC4daQ6d4ULOhl8Pz9QMAQVPZr2jgxXXOBzkrngyBdY -8nrML2LYFUeZCo0PdgyD3vmU/Bs92zC7433fmNsIpM/6qpP62A1Ddqrsd3AY -hXvrVnUmVLpjnWZ9+HPdMUgzOiH5M88DS/WyL76rGYOm9zeP6Z3ajjFL3SN5 -1uNQ5nBVde9BT7wr/E73Tdc4jAdtFQhmeeHZ94yQpXsmYMpGw3/Ecgcyis5n -Kgp8hdzhd/xQw5145+dxCSrzK7hdu+nrJe6Nyo2BFh36k3D3zsadwoneWGrK -HI9unwSTRa30cdobW5wv+9f8PQUqPX6dLbt34W1rhwz1H1PQJ/b3pqvcXeil -L9v+MuUbNJ929LV18UGFoJ+vdBdOw7nITLHwZh+8+oVDa1ybhuraGdp3gy/u -DEOn6cV8WOCJiXr3fbG4KdvNLIEPJt4juQn6LJxZac50GeTDrUtjoY6GLOzb -pXXm9mc+/NU2YS5nzMIHx5Pn/uLxYcR6+nWuKQvZ+wNcrg3zyf9LQLDRgoUr -Xq7F7gk+zJ+WdJfazMLt7Hx53V986EsymJsZxEJjpX8yVSRpOF0Vu7viFgvN -C9klaEhDEPOiSWQuyR9YF+RsRIP97ZK5xnks9Kq8aOZnTMO8iwO3ywtYuNkh -XfbEGhoSQpx490pZGJJTcavenIZYDdW/y+pYaKRCz2LY0hBw8UXgnY8sPC+a -MDHoSsOG+QNrQ3rI+cNZGR+30bAiQYDB5LDw5S0l1zY3GgZCDApK+ll4OcZ7 -oNKDhl2OmcPFX1hYaqGdELODBrfZocFF31mYpZKV2MymwTZUYW++LBtNfm2d -8zCUhrrMY3apC9mYJqDUnRtGw9rGCdVIBTZ68mKSksNp0FV78c5yCRvnlz3b -47mfBvm3MZbv1djI4ZpbDkTTMLSmS3aeARtFc6Z5jw7RcEYoq8ZvKxs3pTGi -Lp4m/a8ST3NwYaPAlFqdxxkajm6PDNHbxkYx05edi5NpiCx1Wj7jwUbe8Meo -9BRSPyWYcsGHjW2fa/2Tz9Gg1+DDerKPjdw8iY61l2l4m6ImppLMRi+G0tHC -bBoKgeE/mMJGQee0XrxJ4g9P1hecZeNPR33dVmLmhvo444ts7HyAWeO3yPwE -fCccMsj5LYnPVG7TYLMn611kPhvZu05LuRTQoKj4jyGZLU5a9extJ55s2HNW -uJiNst8X1LoW0nBdHRxO32Wjas1BVeciGn51dT28cZ+NIb6/FS1KaCi1X5T7 -6jm537i5ObxSGk5+F5p9roGN4NLB9SijwSeXt8u9kY16r44yGoglZt1f1NfE -xt2+Astv3qMhsMrtDN3OxkyG6x7HChpUNC9EqPazMYE5xyyoiobvbw+0fR5g -4/hIwJpG4uYEtm7RINmf91VZs5qGuF59nskXNj42X1DGIe5Ma/Pa9JWN/vca -Om1qaUgVlbSOFqRQaN1bufcPaaie6NoeJkzhlRzBO6sf0fCpKy8keDaFeUXe -48eI15ZaZfnMpbDffONO7TryvXlH/rCTpNC+omVy92NSv721lLU0hfpUelkZ -samRlAbIUKh76amCQD0NyYx8Vz15CtcmvWpJJja9312ySIlC+S8Lx649oYG6 -mf9cRoXCs+9Wt3CIk5OjuheoUcgXHXFRfkryUdKMWRoUXk3/sSGdOFna1v+L -LoWJGw06Dz+j4f5v6fgBJoU6pTrtFcT9n3vO9+hT+J+MTvgw8ZqH0Y9fG1MY -/4h/ZctzGvoCC5fUIOlvxfAJ8f9omO8WY1BuQWHtRYt0I2ITy/X2JVYU+rUq -btlFfFqeE3VzPYUWZjo3iokrZhUlZ9pRKPl+PbQTc0djci7ZU3h3aemB78TG -T2XeJDlRyIi37zVvIPMu4QwlbqFQtchHZCdx0tUiocPOFL4tvvLyADEnZINu -hBuF9dsdLMqJGTtkbfd6ULjm8Z3RFmLjDVyvAE8KGyP/gqE/7y89cHKHN8nv -/O9j+Reknnl21918yH5vM1+HmDMlW7mFRWFdUluTBTGjl9tkT1FoVpK/3oXY -uLF4wMafwjcKrr4UsU/5gV8YQOGJ+Q1LI4iTrtv9ZRpIYam1cNzRP/GT5FYa -BFMoPvrzQMqf+JF961btJfUW3lmaTizOKnHTCKHQP2OZbw6x0aa4PSphFP62 -t1xf/Cf+mo3HFCMo/F4r11ROfEptYbpcJIWWwVema4jvSfTflYym0NCu8VEd -ce+PkgaxWApvledqP/0T/1Nc7+w4CvuSV5k+JzZs3cifiaewXM2b98f/A17v -GY0= +1:eJwV1XlYTd0XB/CKiIoGSqU0oonc24zWUmnSLImU3O49kiGSftHopXglDYq8 +VIo0aDQklaSSEE3IWHGaNCpNx/jb/XGe83ye/ZzvXvvstc9R4vg58wT4+Pj6 +yDVzP/Ry1Yp7TS9NFpnR9q/laDAZvq7HMc+Dc+wnkTPuTNNPVDWvALTx03hD +7Mh9MUeE/RgWxH5Y10ZcHBReI2jeAEsXijx4S/xv3ZKq8NxmePOR7+Z74vtN +h1J/sV7D4MKyOZ+I+98/Czla/hacHhs0dRDLdqu4T5p9BK1lx+bSxJtGQowO +N3TAvI3H83qIK3/1CwflfoYQb7uH/cRvjksHlxygISOvHUaIh+eY94+zuqFo +q96qceI5Zw9uY0/1gEK60xmGWEE8pf5QeR/kPmO7/CW2l5u8MWw2CFkdNmtE +ltJAXVWW0hYahk6fCHNJ4nA1h8i9DSPwVTT0sSzxW+lXawJyR0FI6YWYJjF3 +u++e82fHYMJV6QOb+NsVvvRbB77DCUMTyfXEQsraYqOsCdhf39rgSJzIrbEU +WzwJuT529u7EilnbwldPTcKZ5Pj1FLGhVtTw/vJpWPU4mBdK7KPf0dBv9guM +rHvfFxGPBx2ZPX/5b/A3evyskjiiXHidutAfaA71X/mCOBkNb+5u+Au/69dr +D8zUl1lv7p/Lj44/b+7Qkqcht+5853E5AdzLLClfT/yt1zMk/qwAFnm5n3Ig +DtGYuF10YBbavvPeE0CcWKikMsISxBWpVzbXEL9vGqz8c00QUwZfKL4lVhy7 +t33B4jlYPe+j+xBxnq59gvbUHFz9JEFORoGG2vvH+PeVC2GA5OlHR4gnalo7 ++sxEUH57fLbZMhokbEXEgitF0Ix/MG8Xsc4rcxQ1EsVGwRBWBLFv192ra1Yt +QCFRs0eVxAcFGnTWi4hhxUTq0AZFGrqVC0YjJ8UxeZ7eCS8l8n6oZ/Ma2RLo +drLmchSxwM0epSWHJDDB5IZePrEie5lz7oAEKq48NPSTeLtZ3K2XnZK4guO+ +P02ZhkZv/8PSzxfj5eaYoj8qNLRnnYv2EpJC0ayADi1VGgYHcq/lbJTChPbX +se7E8wPo1rVVUniDET9SRmx+0kXX6640cpUqnMLUaCi7rj+RnSaD+fw2rgor +aLje/SPQOEAe/Sxd0x9q0GC15VT74Xx5TP/nfjtDPFgraZHfI4+OL11idDVp +0L2utVhxmwLWS4PJTeJajudtQZNlOL1CdyRFi4axkc7/9Z1QRM4AxCWvokFy +v/md23bKqLb1Z9cXFg091+f7OPoqY6bvdgdNNg2lH5vkhqKUkSfophlAvMPW +48TyKmW8sGC94VxdUp9moPMllgpOOkveYOmR+fuzvoVJq2JGofrrVAMaXHYL +a9t8VsNXg12XG9bRAIFbWFt/q+Fqb60YpfU0aESmGXBllqP6l2WDgcR819im +YU7LMWxK9ruyCQ357e5bbz1ajk8jW9QigJxP17zjshkr0KunQ8nBlNRnbvem +n6OOSUs3JIAVDdc2X/wwFaaOdpYrNmQQn+N87px9WR0PTJt6ClqT/o44MqDQ +qo5X92vTDcTiFSl8m800UMHYacmuTaR/2MMa5SqaeCGQYafa0yCnHBse3aWF +Apd+Ou/dQkPFmXF1RkAbNxkP7Owm3vF92ytKSRv3RpuN7HSlIbVWVd3UUxvP +ilonuW6lQXl3Wct0mzbqPuL+td5G1pvXrUY9X4WVv9udrD1okJdToBS36eBa +WSulXB4NWpkBIj+BhfUf84Un/0cDh3tiQtuehXYPX8VHBZHzqpLQ7rWDhZVd +utHSR2mYlVFYVBfEwji7ijbjY+S8pfa7JBSz8Ixo9tuoEPI9TfZKUVdhY0zN +3Ajd42R/o21Xuc3RxSTn5As9Z2hI91d1vNugh7OL2cez0mi41V4VveSjHoqI +lV/2vkpDtY3Hk+ABPVxWWweK6TR0KV8wMZ2vj+/2J6pezqBheetc7UZLfTwk +r8m5mEnOM3tg3tdqfTxm6FeSc5Psz3hxzdL7Bmh3QnCBfikNTYFgcDLTCEWc +93aPtNCg5Pna3mPfejTU89NvEu0C3t+SAvmjiCUJn7eetO0C6YHSudIcU9yp +syVK91IXBLDXfUzQMEeHf6RdNb92AWfoV71k/0akPfmvp0A35JsenpvWaIlJ +pb9MC250w/Vx30d5idao386Leb6wB6Y3LHlRG74Jk7lVqXXRPfCJb9bo5112 ++CJyUePowl44sNQv7riKA2r+yf/5IrEXCvbUVyVFOmLhF6/i7NV9cOy7zJTm +Hif8k61ldeZZH0zYWLg+2emMRaX9mt2hX8HIPX5Dt9Nm1H2ruKDTqB9aZFJ8 +a9kueCGbahAc7wfZGycqslduwY6M2y0lTwegtFPD1l7UFV2XiKnsuTIICq++ +7Q4ccsW7Mtt1dh8ZAnZSfN61zq14NyL90+Z9w5Ay+/uqhBo3HA3e+NDWYwRK +Nqx+H3l/Gx4xim14qP8Nkg3OiP/K3Y7X3u5yTXn0DRo/ZEaxz7rjceqlykHL +Ubhrd0X1YMQONJEdm3Pv4yiM7t/Md4DrgVL8wd/c9pL/koW6z7CZJ/4DBgGx +zBhkD72bPqy/E9XkLLquJ30Ht/RMbw8RL7T2Gcv/vmIcbt/atHPWKS90Fcyp +Fa4bByO5FuZfxgsXPm2607N1AlQ6d79v3rMLe8P1mgfoCegS3utwhd6F+RfV +ZtOBk9B0zt7bcgsHJfuED3Yyk5AYlCZ8pImDITtOD1mFT0FF5V/G29obS0Zj +0uumpmDhDjzFLvPGT0eNlFke02DkNZwdqctF3nN8EvlgGm5c+nbYXp+LfvLi +Z5sqp2FR65iJtCEXs9fIBchWTcPwxqlX2Wu52N33X97N6mny/eLjbzDlYuij +yJKaJ9OwYEp8m4QTF5cfDut72jwNXTF689L2c1Fs5eV0re5pOFcesqf0Bher +m4Jp43kM7GddNArK5mKORmqFxXwGbHOK5xnmctHleFKhkzAD8y/25NzL5+JK +X74vXFEGIv0d+0vucDH4WuWhCHEGQtRV996t5mJNmaHgWRkGfC8+33ernYud +Qmzr7ysZsF7Qs86/k4v1CzfSn9UZWBnJJ8r6wsVtbwJiGzUY6PHXyy/u5mKY +lLl8thYDu+zThooGSb64jZC9DgNugocPFP7g4lmP3q/7DBiwPCx7ME+Kh490 +57tOmDNQnRZlk7CEhzKZqw+2bWRgXcOYapAsD9/Ya/uWWjCgo/b8nZkCD0cn +cn4FWjEg0xZs9kGNhyyLqMSeTQwMGH+Smq/Hw2yl8q2xzgzEClx9sHszDxWj +J4MFd5L1rxZJttvCQ5W5ftI1xCfdg/zZW3l4SlQ+OtyLgaA7jiv+buch+57x +j/FdpH6KP/4Ch4eqOUdGm7kMsJ9xuI8P8TDIu26Riy8DbfFqwipxPDw6KPnk +fwEMFICoT188D//45rcLHiH5Q+O1+ed5WDLXYCSBmGVdG2Z4kYd106d+5AQy +cI7Pe8wuleQ1aJU8D2LAwu/qu6A8Hi7670HGpxAG5OVP65sU8FD+5W1D91AG +xp/5nZ9VxEOd5v2P24gzloPduds8NN55s/pFGAO/P32qulbGw7VqL63yIxi4 +YyuX/bKeh51xKT7GJxmI/iEgmPiMhwUeqjuyiDnZ/bu2NfDw8pooc8lIBsRm +l8l1NfLQc7Hv917ifeVuscwbHpb23qw7eYoBFY0LgardPNSWqNE8e4aBH22h +rV97eHgn3cGrj7gpkqdT2MdDWl7ytFk0A2GfdfuNBnno4dxRNEn8PrnVw+E7 +Dys1/3IdYxhImCu+8Rg/hcv03pg1xzJQMfbJPWAWhbKtQZvV4hjo/ZTrf0CQ +wknlwxJBxOvumF/lzKNwZ5ZAqkw86TevoJ824hT+/VrYZ5tA6rfdKLFRksKX +D1cfvEC81kBCHRZTaCJsfKOdOE40z5UtQ2FfTKz83vNkvKyjWE6JQlXtR/oB +iQxQmXn1i1Uo1EtepHObOC7uaMdCNQotarDtG3EPJSk6W51ChVstq3ySyLik +pc+gDoV1l6r4LC8wUPZHMryHReFQZhkVTNz9tTOpU5fCZu7U0QJi46pjNa8M +KQzVmcwSu8hA174ChQdI4ZOndoqPiRe4BevdM6XwgVba8DCxkZmVbbE5hRNM +6R7pZNIvMl+OZlpRWDImRnGJS2cXxqXZUFhRq9d7mpgeCc66ZEuhjP23RXnE +hnWLX8c4UiidNn1kmJhT/GXglDOFv//VyRG9xEDMlUKBf1zI/P4tpzWJv/hb +6wS6UejupG3nTSzqKWV5cDuFa/pa14QSG1rTHr47KJR4+LA6aeb5ZaHRnl4U +rlpv+bWauHS+TYYbh8w/+1VY20zehNR9Zy6FyTanq/pn8j7TjbYUhdalHgW/ +ZvIainosfCis4tpbif5H6rsX+ht9KTzV5nJuKXFMhs2itfvI/gjti9AgLo2R +1tQ7QKGkZ6yCAfGXoK4Nqw9S+LaozMeUWIRb7KbuTyFj2e9pS2zgEOanEkCh +yAdZ/i0z+cabouQDKUyJt3bYQXxWbUmKdBBZ76wAaw5xiVj3bfFjFI4ZJI9Q +xJ9/Fj8TDqFwedadDb4z+b1hnwXDKKw3rId9xPotm6b/hlNYad7ydcb/Bwfi +29k= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5917853625067081, 1.6122521548553388`}}, + "PlotRange" -> {{0, 180}, {0.5971476116920678, 1.6002015241286212`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5917853625067094}, + "AxesOrigin" -> {0, 0.5971476116920691}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13972,7 +14129,8 @@ GY0= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5917853625067094}, + AxesOrigin->{0, 0.5971476116920691}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -14000,7 +14158,8 @@ GY0= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5917853625067081, 1.6122521548553388`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5971476116920678, 1.6002015241286212`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -14008,9 +14167,10 @@ GY0= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991337564416748*^9, 3.9931287585478888`*^9}, + CellChangeTimes->{3.991337564416748*^9, 3.9931287585478888`*^9, + 3.993828748120131*^9}, CellLabel-> - "(Debug) Out[325]=",ExpressionUUID->"b7dadcdb-0cb1-491b-9de2-cc40be12ed2b"] + "Out[137]=",ExpressionUUID->"12e37e68-0064-4a41-b0ee-5a7378e5c4c6"] }, Open ]], Cell[CellGroupData[{ @@ -14076,157 +14236,180 @@ Cell[BoxData[ CellChangeTimes->{ 3.9918495265156612`*^9, {3.991849580574194*^9, 3.9918495807911797`*^9}}, CellLabel-> - "(Debug) In[326]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], + "In[138]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.4802297553517854`*^-265\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.536392110066166`*^-262\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 326, - 91, 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337564646551*^9, 3.993128758774954*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 69, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993128758774954*^9, + 3.993828748231045*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[326]:=",ExpressionUUID->"1d46097d-8b7e-41f6-905d-96dc4018a19c"], + "During evaluation of \ +In[138]:=",ExpressionUUID->"4f7d89d1-1233-443e-b024-2461e8432e56"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3304908563463025`*^-276\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.8949873757585085`*^-273\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 326, 92, 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337564646551*^9, 3.9931287587775593`*^9}, + 138, 70, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993128758774954*^9, + 3.993828748239489*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[326]:=",ExpressionUUID->"66622d03-1fee-48a8-ac48-ebd8f33b7ad5"], + "During evaluation of \ +In[138]:=",ExpressionUUID->"68e3b77d-6bb0-43e1-848a-8e2272945904"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.187194560114644`*^-287\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.3372790909017824`*^-284\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 326, 93, 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337564646551*^9, 3.993128758779606*^9}, + 2, 138, 71, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993128758774954*^9, + 3.9938287482465343`*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[326]:=",ExpressionUUID->"92491d40-9f3e-4cd6-8c8e-fa15f51bce36"], + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e6cf7da-aa67-4b91-98c8-d08d1caebb39"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 326, 94, 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337564646551*^9, 3.9931287587816772`*^9}, +during this calculation.\"", 2, 138, 72, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991337564646551*^9, 3.993128758774954*^9, + 3.9938287482521267`*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[326]:=",ExpressionUUID->"68e04625-4642-437f-a255-a2a663de8d07"], + "During evaluation of \ +In[138]:=",ExpressionUUID->"6ba2d253-57ba-4065-a1b6-f30f4e497589"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k0Vd0bB3CREFKUmXvPdU0ZSiTi9jwiJUqGzBUVpYRkKJEhSqFEmTNl -SBnuiYQMhaRIXlGoyJDkLUOmSt5+5/fXWZ911tp77bOf57v3IQ57WbpycnBw -CCzj4Pj/c77/RRMzOnfbaKKPVYi6wbauDPFzBj3hcGGPlGxsJA1w3evD4j3x -sDLk0rxR5Abw33fvHVdPDkT7mQ6vjQRYMyEW/+vdAyjntfzQFmEOAzV7vWbf -NcC9j45fxi4eAmPm+Mfpd50gJH3GJSDUC36923Jr6t0QXDNuFmzyCYFGw4Lc -f3JmQErrui23YRxID1SNHlZdgn8XHawXB5JgrcehezyGXJiQab8jnjsT4jWM -H+/dz4vXy0J2myjdgd7kjU+mVwtijHfijl9m+RCdG/KaU2INEi5ponEuhSB2 -c/hKwm0RfLWOlMaVRSCu8jDiZ74IBquyhnxEikCy4VLIAbYI2t6Y1MmSLgLZ -KWU/xUYRfDtMvzWuXgTyZt7Oj8dEULfg6hjLqgg0ly9pD2uuxYi2D38/phaB -ua/oyKaXa/FLpKPXH/liuGxtsq1zfh2W1+TzBamUgGR5uyTnMlGUrok8MaNZ -AiUi1gsa/KJ4Xu8S/ah+CbztPMi+QRPFlGm9KI09JcC08GVY7BJFvW5NtSDP -EmjYk7miI0UUNV9I8neUlsCS8Vz7K30xvHzcLsJDrRTi8gPvLxmLYfFW2oTA -5lJgruCIUrMQw4MByjfz9UvB7NlKg1hXMVTPuxb/zLQUUg3pZWbXxNCH2bHz -gXsp6KBpUuuAGH7tqF5nnFsKZ3SzD70IF8dnBz6NKK9kw+6sVbOmMeJoFFPe -aSXIBgZPUFT7LXGMnzR5HriaDR1dNuSbu+Koy63ZVC/KBnVvAa7+dnHc1BnN -pyDHhrH8gPwfkhL40aCy8IgeG5zW7v0uVSaBQeeZ93Lc2aB5/nFYRo0EPtWM -xlMebFg5pCRKNEug+Jdt77W82FBVygUKvRJYey5Q5rEvG0RNq+I2/pXAT15T -XXdCqPnDmFo7TCWRP0tt9ehNNhhN/g70HJbEeSDH1GrZcG7XzfVPv0ni2kT/ -rzH1bCjJVusTmZdEpqW14NenbBC3dtat4pVC5hV2XXIzG75VPlvgUpfCtN3B -L7tfsyEhPM435awUiqyJud08yIahdQqeTYLSmOM9KRLBRYKYV72MmJg0xv4W -Ji9zk2DWYvfKnS6Npaei/aJ4SKgIjFYV0pTGD03afmH8JFwdmBq3t5PGKOUm -awsREjYVPj42mSONnF13nh5nkBCmb+EiqSODadpZgwHbSNh1MOPHlu0y+E2/ -ocMISVgV+u/F/WYy6Bhd4blqOwnpjZH5cc4y2B8XVpm0g4TK3dX/rrgig1ft -WmPDzUiYspPzn+mVQZE3bxKq7El4FOjNs2ZEBo9pdKRbOJJwIb02WX1CBmta -GxxGnUgQ+GT72J1TFpXHtBe4nUlQPBbD8Wm9LA4N7ayTcSPhoN/c1bbzsjhr -+vBL6WkS5JO2S49HyqJH6T5fkTMk9f2uF/PEyWJWK3ftGV8SAv8od2zPlUUH -m7sR6wNIuHXx4LqqNllcznHmt3cQCW03nmfmydBwl477lMslEhLK1mo0KtIw -NUIt8MZlEhy6XRo+adDQIU+xpTaKhDHxPyNSxjQsqPz8QCCaBK6sjevjPWn4 -UbCn8+J1EraWpJRfqKehSLp09bskEozetS9NtNDQLSCBuzGZhL0cy3ce6qTh -77uqUfdTSDhi6dkLn2lIJFdo+aaRYHyeCAnlpmMW57DOSAYJrUI1d3RW0jFo -DcO0KpOEfbk2LVOr6HjupH9ydBYJjq+i17iI01H3vOuoYg4J3rT5OwYqdIxw -YR+APBLmyuJafm2gY4P9mM1/lAN3qXwntehoq2J9vTqfhMjTztqMbXT85+Rw -/fq7JKQ2vmzhtKDjja0v1cfvkdB0LPN7oz8dh5O0aj+XkmDyR1c46Dwda/mt -x8+ySWiP69LWCqVjidvRQ3wkCb1VfKG5V6j5Fm/LMR6QMMHvKxyZTkeTgYtM -zXISzmSt2sLKpmMZa3M2m/JPrULHuTw6Ho31PaHykPqeB/tzXUvpqFC4MCJe -QYI4e9cW4wY62n0ovvrmEQm3jYYd/2um4xX740F6lSQweoNDK1rpKBfmX59F -WY2z7IVCNx3/u/VH70gVCQ8S90z099LxlG+x/xPKOipjwkn9dOzsl+OWqiZh -u7WME88YHQ/z9tFaKD8fexRa/42Oa+7ZFks+pvop2DIvYJqOP9NEb5ygbJt/ -eeLLbzqKzvQd4KwhwePndGiLIIHe4hqywrXU/p92Ex0VJtAkLd3fmjLveN99 -LnECYyt5yhMo571vfLuNQWCnitIgbx0JvtY6Hk6KBOoZR3Zuo7z9VdGyQFUC -S8I1ik5T7q+7pfpQm0DXyddS7ZSLtqxs6NQjcLu3d9kC5UD2BdspJFC1rEZb -tp7qV+WZb4LGBAZ/ic03oCyacyxcxZRARf46rsOURyQ/iJnsI5BvXNE8hPKD -hH3FbvsJPC5TcCWFcqjAs+0RDgQa8ouXsymbR+r2ZB8isPWz7esmyrL/FZ+q -P0pg/T2jD92Uv/kzuD66E/iOUft+mHL1ZGLyb08C6YNZ7ROUo47zq4v7Eui3 -vePhPGWbwZDGzeeo9Xuoxi9SZjrM2lldILBhb9LRJco/Oo9PeF8k8EnGjNof -yk9MP168FkVgRh9zcoHytSYLiaJYAr8bCxVOUXZiNZe8iCfQaSLJaZTy+oqt -Rl+SCJTOzl3ZS/mXemnv8tsEGs9KlbdQbimQ82LkEIgGn+0fUk6kJy/HAgKl -8sb+ZFA+miKQeqCIQA4OoYxIypuEwzacJwm8OmuwzZ0yR/RcU3IFgeu/nOw3 -odzOdcKh4jGBMUsBIYqU04P6J988IfCPjCWDk/LJOcvI6WfUeiZGn/dS+7XV -87mkUCuBEd1yp0so837RY6t2EFgxPy8bSjm3h/n+WB+BchulYyQp+1ikeEcO -EOi/Y++eYap+8KXgijsjBDKuvRUtpPzx8fzG/gkCjVrIZhXKRVonmxdnCBS5 -OV4yRtVnYPGAo8QvAh8Y77iTQ1k0s+WSNRcDdVdplQtSHhFjSfvwMrCtuayz -jqrvB3EkeV2QgUZFqstOUTYPT/3wUoyBvYyvN55Q/RHl6rHJQJWBX73abxtR -/WTT/+n5QQ0GDrOsbfup/mPa7j8QpM1A/HBHyY/yk13boh4hA72YiaKpVP/+ -Ulndr7afgXYluXpPqX6fvy0ZpunAQNs8IcKY8qyQPFP3EAN1HoxjC5UPEzO6 -J4zcGXg4u0mzqYyEocdH5h2CGRhaPMORRuXNgJpninM4A7OfNXf9P38+ZJ7V -d7vMQONNT8f9qHx6ezE2/PQNBiabiQzuoPLrpemjVVF5DAyQzxZ+VkT1e+1T -MvYeA8/q00RkKTdtaLNOKGWgYVvOAd/7JNSJDKZmVDHQr6y8S5zKwwfvVyo+ -fMVA+W9/3AwKqLw8eRCG5hj4waN9aU02CUkfjw99+c3A6R9qYkjl803zM5Hf -/zJQQLv+6kkqv69pRrX+5JNDgbpbEdW3SQhfJG2FZOVwkp/vk04qVS/R3N76 -xnK4SS6UVhlPgv79oqzERDmccl2h1BJGwnv6/cwdaXL4zKHE6VEotb+JhRmz -mXLYF2PikhtCna9h+emWhXI4bTf6MSCYql+7rORVNXL4wiO/dvk5EpS5b8Zd -GpTDkajXAxVeVD0cOh/qr8rEVdqbuS9S5/HDrnMh8hpM7OD9Na/mQIL17rMX -ujYzcb61pvutHQnxm/2CNgET3wctHmDYkCAo4HV2woKJIzwnyrL2kbC86rC3 -WwATry67b6hH3QemhXc72zQwMatp4NaEKgk9HoyOE8+ZmC+0dENbhaqP5t8Q -0sZEIT0VgyBlEuIC79PuvmVi8XheLYcCCRuHBAZ+jTOxmpZqMSFLgif5+sBt -EXl0VGr+7bSahHHz/Y4jR+VR8MoJwRvTbBiJcbbx4VFAxopKrrRiNniOqzI2 -Ciig1vgRtdD7bFjY+ev799UKuCf/cvqRQuq+xxUf6S6pgE93eZnL57Fh47nG -cmc1BXxfaSV/M50Nwa4KIuZWCijYd+UCPZq6/2379lolUwHPXF5vs+jGBpPJ -AJPP2oqYIuniPSdB3d+O8J4pD1FCA+fuwZ31JdT/hxjn5QZlvHJowM1foRiE -XylcY0+ux5LSMZGG6PsgHVW6T1tbFZf2rktcelQIySq6q0WOqWFss9eFw/MF -8FLSYPPMDXWc/PFjvlAnH7ZKN8RteLsBI1ds4GywyYVVXDm+LuEbMXOM9TMs -PQdkw2j69goaeGcwVJe/NQv45J0qLJ9r4JktR3qfKGeAOkuiNODAJjywkNrc -SE8Dn37hxt0cmrh8wNnsNU8yTM7E7DdJ1kTOEJfn3ftvwc4Nzakmalo4oyEr -kDkUD3UzeosL7VpYcFdLn+YTB56qm/r+cd2MTxNTvP7WxwBr4miXPZ82Nqqb -Bc0+iIIdTPE9gjnaKNs6SZ7eFwlKoVfPNmzZgm5p4jL99uGw3lW3Xr5vC/5X -dYXzDncIuNYdjyg/rYOkmIp916FAqM/qOjq9Thd/JqvQvi35wezdvwsbHumi -gMvytT67feCI/H2+1D1b8SxHTsibXE+YXp+g/WBqK8pyrRmNlXeHytzFwbko -Pcy2sXMyaTsKDkZyqCerj4W2Uoq66i6w1MW7qpGuj9Vyf4o7aC6Q5Trxfrec -Psa+o1X5rHGB0UtVAQ5K+lhiGWX4dtYZfF6Yl57bpI9caU1BkjXOcHVvkGyl -sT4+Z55RjDdzhmq77j9aXvrYpSUupDR+EKROXa5Sf6KPbMUqW7VmR7j2121z -dIM+rjC/sLe31BE4443JL036+GjX2hW3UhxhvIK7MOsFNZ77vgS9U45QzRGR -LPxGH3vGpJWM1jmCw83QgPnP1HjSkrZ6xx0g+fG5zXX8LKzLHD58UcIe1q30 -IPfYslB6KeV0fIEN5BoGB07Zs9DG471/XbwNbAq+ZpjgxEJWysLxxWAb2DvF -7u5xYaGx6IrRAmsbuPR27tcRDxYqt95c/pLTBn7mhGwPDGOhyWP+CaXD+6FP -L+FN/n0WSlzhO8KlZg3H/XLTTUpY+MKvzXCLpDXMlzx0/cZmITH2tTiQxxqE -GT0LGhUsFEhUm9kwZAWmvDLStU9YGEXrXmeVbAU1XflH33Sz0HGJOOXDYwW7 -V1Wq+fewsCCrbzhlzhJ6dr6YF3/PQpIDt3YMW8Js9b9RBz+xUCjE2cn9iSWo -ZW8s/jrOwkFDcyuzQEuo6TPwj/nOwoMmmblfj1vC7rVWsGGKhbUnnoXfsrUE -t8t+//jOsfBkWmyN+GZqvCeXUsV+spCnsoprSs4Swn8nHan+zcJgvo6SbmFL -WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0lP8XB3CRaCP72MbMGCpLWoQZxr0oZUuEhLIlspQka2VJlkhCQikk +LbaZR5ulEhKylJBKWmiXKCTL1+/5/TXndc5znvOZ+/nc930+dI+Dtl78fHx8 +Ogv4+P7/OznQ0shMLjI8fy0551i1iWH3JUq4UV8snPHPS35NYQBKdXpQ+tJh +lK3QzaWsh5DtN18K9BWCklaeaCbFGMRGZNL/vSTASK1syT6KLbyr3XZw/GU9 +nBH1jX4m4wGmzO9vx152QZ24ZXOyVBD8e6l7bvTlR0js3+gStywWGkyuFT0v +/APdXHE15tV0UHhX9dlDYw7WfLYivHdcAEl/15tCJgK44+TKhle3CyB9nWnN +NnthfC4RMrCw/Sq8yl5bN7ZiORb0Xdw8tuUGJBdFdfLLimGCtMJEb0EpmGvv +F5dSJv1NWl2svBSEG23tV2qKYej6db9NqkshblDljYWRGNa9K1XL6CqFo4y2 +z5n7xfDakueCffxlcCCf8p9qtRgmib4M/edeBjYXeRoWzuL4xGFTSopcOchk +DiZl5EmgvYkfMzG4Aijqt+OmiiWw30e/VOV4BcjVx0ft5kog39d3O2oTKoA6 +uvrIygYJFFv0Za47twJULAPdar5KYK8jXqysq4ANC+d0BjdI4la7gNh0QS5Y +B0sPrW+VxOGGmVQfKy5sX/p14PwLSazM9zBqtuGCbWHVq9l+SWRKSx9mOnDB +4ZlLZ9MvSdxmXmjbtYcLuzWuVDtJSaFAs82kQCAX/Ia0zsa6SeGFIc3gB2e5 +kGBnZtg1KYU7K9+VnO7igtytDjn+BdL4cv9Oy+e9XCiXsPu7bqk0NlBv1a14 +w4Ve8qVnlaQxyaZE+cQgF5g2wQybrdL45NrL5o3jXKi3urzoWY405iiObumS +5MGc6URHu4EM/nbQXvvZlgdpxRElc6YySOwKr77iwAPmIr5ETRsZvH1wx4rd +TjywfLzE6LSXDG5K0KQ2uPMg14RWaZkqgz9vX33gEsgDPbQ4//SdDIpoR/17 +nMKDw6wC15ZYCn7uzxs6WM8D83yRcYsUCvY8eqIe+JgHDKGjiR3nKGho6PXE +v5kHz7odeC+uU5Drs3rWqYMHawKXCQx0ULApyW330tc8+FocWvxbThYz9g6K +1I7ywEVy20/5SllkdG8c2y1PwIbImphLtbKo+SF0/KsiAUs+rpKmN8ni6pQJ +60AaAVUVAqD6ShYd6gJWBKsQIG1RlbZ2XhbVT8vdt9Yi4FkMU3uzhRz2GWX8 +3WlMwKZf0xEHBuWQU2dfV+ZFQPjWTLVHw3LoEW/fXOVNQHmB5muJSTn8QDO0 +r99PAMXOjVUlLI/p2lLzzQEEDN97/FdgjTxSS1Uulh4hICM2LTgnTB5df+SY +tccR0PxmNXM4Rh4tvdRaCuIJmNVueGGYLI/L5C1eBCUSsO/LxPqhPHk0SHua +uCSFALal89iaBnnUbPh8YkUGAR+lVA80LldAvhs90qH5BMgcfKgoI6OAUpV6 +gZKFBFg2O7bvpymg/ZZ+p/IrBNyJSNYQ3aCAM3dvfXpZTMCpd6PfdzkqoPTN +tIEFZQSsv1Hj/atQAcdY/k949wjw5reXMS5VwEc+GECpJuCi80hT5m0FXFUk +VBpZQ8AiEboqu1kBd5w4Pqn7gIDXQfFDcT8VsD2ooj2hgYAYAxt3OT1F7O5y +motrJ2Drnku/dY0VkW3Wod7ZQYBI9I8T9paKuHuM4in1jHx/w8niNDdFXD7G +/HWui4B75tU/FiUpYtvvqbPeZI5F+QsdY2Yo4tj0nHx6HwGmqXYixnmKeC18 +4Na9VwR0Px9Ze4yniEStpfT0GwJGHZVD/rxSxHttH8us3hNwNyJQSGxIEXOG +HjQ6fiDg+MX72WtGFPFbefuo60cClr3fWbOfn4rLtz5J9hgiYKV3Ct97NSqG +8VkN6X0lYM+RiVNtkVSsutXbr/aLAJXzxgrfT1LxR/rBkr+//r/fZ8qE0qio +ktB/sW6UgIjZ1c+Mi6iYdbDph+lvAs6d2CNV1UZFs7urdqhMEOBytaS4t5eK +RsrXbV6QZjyZ0h1/T8UPNcYRxyYJ4C7JcNKaoGLSyAmrpr8EtJ19cvmqohJK +XUiXVpsmz1Ol5LqGlUo4iRBdRdqpx73+/TolvD6fK795hoCvlNkheVPyeW38 +sX2WgAq2WQhruxImth+lPycd4pIltNNJCS8/3nbaao4Agfy1aukHlFD529XF ++v8R0ProWE1FmBImn1ypUEo6bbDVsj1WCb+66frIzhNAXel1UPi8Enp6CPG+ +kmaX59w6/lAJa8I76U4LKmHTy465kWYlXNaWWnaN9Da+hVtcu5QwMPf75Bhp +T9sDr+CTErIYrx4f5a+EA5FXGNwRJbS4Q7W6TzqsqM+PNqWE+RH7zk2TNo2k +R0UL0pCa4efvJ1AJT0Vrr+gtoeHq6I+zl0hvL3JoHhWh4cKODptO0r16Y8PX +JWjY7CrqP0vauT1ZzJ1CQ8efJyxVF1bCe3dVHVlFGj7mXz5uSXrfZJ3TczoN +iflkz0DSP045RyWp0rBWevBCGulApckrRuo0/Gw5kVdGeqIyrfmfFg3Hwop9 +n5CO2Kr+k6dNw6fGb/gHSPO9fSzmy6LhCCPce4z0yUNuOgxDGra678tZIFgJ +SxbNOL02pqGyzKkcEdJpueei0rfQ8NjqNh8KaSmttUXmljQMtJISViKd29Da +zG9DQyVB6zAGaSVHr5/V9jRMv+xZ/X8XDc+LHXaiobSeYef/n1eLydVRd6Xh +tdutd2VJV0htdB70pKF560TwCtLaNzujLvjQMPJ3qdBC0tWGvkU7AmgYGzwQ +OE6uF14sbFkaRMMB13DeB9KN3pd/NoTQsDgloPUpabNZlvjRSLIeuSW1BOmO +tG4d7WgaCv5mJmWRtlM56DwcR0NG3dO1oaRfVS2OLkqiYcS/9Ft2pPdsKypy +SaVh484DUlqkhz4atkhm0PDcLlu7RaRHlgaLn7xIw8vSSwJLyP07nC+iyymg +IbegdVs46SntG84TV0kfCBDdRFpgz0CRVwUNCx/rs5+R5yXxd1iL4i0ammg6 +FZ8lLZIgMdJzj4ZTaThlTZrC3aprWk/DTpMdNg3keczbNOj8XxMNnX3DnMJI +M14di77zlIbn2Tut1Ehr8le2qPbQcLpYfzyOrxKILKuRgVdkvfnwpiZpPfWv +4ucHyPpFzli9IPvB2E7RRegrDR125nlIkX7y9W70w2Eaftqc2MMj+8nymO3V +0DEa9hzawLYgvbM4YeTLNLne+Df9wWQ/+k+NRTcvp6NPoVjRFbKf2Yf2SX8W +pyOEhusqkhb+/rpEgEJHC4soTgbZ/1ffNPQaMuhoKcUtDv5HwMCDcxq3deho +WvRNfDmZH6W6S+q79Om4Vfm4my+ZLxHc4ztHkY6yl13VG8n8kS70jlW3oGPr +1yDDgHECrE+y+gpc6bhh8WjUuTGy3/8rC3i4l45c1Zm3vWS+DYcwBN7up+Pp +QU6jJOlEn6VrKMF0LOgZXRM/QkCdxdsTqYl03Pth+Ar8IOeLeIxWJI+OufZM +UxEyX/mSJxqz79DxkPmmTsogAR0Cvk53aug4Y6LwV4nMY78J25Njj+k47Ees +YpL5XdTHfOP9mo5Z7Ff6C/vJ9V5ujrcTYGDdlw5v5gsChmQ4CkHCDHzS5Xfq +33MCiDQe78xyBq5dR/F8Ss4X69jc/lYZBp5adNbAi5w/iV7+6400GGjp01p1 +qIWAf+orBjTtGXiUKrHmFznPJvPkYjY4MXAme7Y36z4B46IqTJYrA2NHK/z0 +awkY+cPy3bSfgfgb90RWkfO4xnPS6RgD9de3pvVWkvlpcVck8SoDv3QmHJ65 +RkCu3x74OMHA8f3v0xanEnD+rc/HL9MMDDPSSLUh53um9eGTP+cZqFvYV5x1 +ioDUDYlPpxYr4ylqwFpKAgGxM7ydolRlPGnk1DkVRdYnWTDQwFQZw0LLMtcd +IsCgpDQ/K0sZdYO05VNsCHhDK7m8+YIyyrgEmF2yJvc768al8cvKyAwjqOVW +5DyMKb5oe0MZ52QSGprMyP1xzM8WqVVG1YFguX4jAlYLZqbFf1DGszUmStnr +yHq7RkaHaDDRqDPhyh5RAsbEzd0c6pn4l3o88GAjD/r8Gc98nzBxvKZz9uEj +HtQ1TUNUGxMnbR6sFnlIfl9GlChd72Wi9DJ7/ytVPFj7cdm7f9+ZaCF2vZFX +zoMDvM7deRIqGNSYtck1mwffre2dh/aq4BaD8ILFvjwYSnFzCBJSxYHBoG1z +i3hg9ivU7JPOSuT5tXlMsLgw7Cl8+FbUKry1XSk0JaGcvN/I8CfUr8bZazfE +WqJLQbxdNZX7Sw3PzDheDku8CQqJFdt1dDQQ0k6UtTtdh2x11goJb038XEmz +s7cphlY5o41/zq7BcVunQuVdRcBWqE/T6tXC/OWlC8M3F4KIQGGwe+xaHPe8 +3hq6Px+oMUoGu1TXoYJ0/3bHBXmwWMXlju2TdTiczc5ZE50DaziyFaG712Om +hOz66dAsCBoQbzDn24A+Vj+0Nx/OgF9/UuzNsjegcoVbTuNgGmzRaso109RG +uwjLkGaD0/Dgj/7M3w5trDA6O5rRnQgHNNa/fu61Ed9+EdUc0zoJnJG93bsW +6+Ab4W+PmPdiYDOTYrW8UAfV5I8OJrcfg1XRp8LqdXXRsZ5/6AhfOKh5sR6q +vNbF8jVJ528nBIPXA5+4W4f00O9i/azxdCCMBHwP3Rysh992FdtLDQdCmKK/ +X2+IHh6sjCkZexsIp44etJ2K1MPd2las5keBwGWH0Azi9XAmrsJiOCkQZu+c +qG3I1cMrlgX1SxUCIb3i0nhXgx5+sfTqEDpzAB7md+8dk2JhQkGJVliwH7y3 +pLuGUFg4E9osxNrtB3z/AnbNyLFwtUpkxRJTPzC2EdomSGOhxITX1vcyftC0 +gK0rq8bCS3o6F3fU+kKbx+XFRoYsfOAjVGkr7Auvmb7laftYuFGL6RJU6gPj +1+f/at1l4fDoEVVD5X3w2cE0P6mKhZpi8Xy6Yvugb+HprYM1LFyVwU4wmPeC +Gje5nKw6FgoKxBwPeOMFsZSN7LkWFmbbndm+L9MLViT6Hm3tZ2Fhg4FvmbAX +aHj38Hnxs3FgIZXpPu0Jnioli3Ot2CgUuTpjkM8DIh7v8VXdzka3QUHB06Pu +kOYl/pSwZeNnDa67yXt3qL0anvJ0Jxs35qRW9z50B0nVraJz7mz8ab5E8HyU +OzSpfpJ0C2GjY8v+/pAF7qC2SommepmN8ockDCJF3GBMLUOHGGXjMr2GC/fP +u0BfG26W+MNGkS1GX9uPu0DdgZEdwRNszPD6z2bMywVSCbNDOtNsjB+Xtjqk +7QJqbL7SagF9RN6idLsuZ/AwC6A3SOuj+8Djb3liztDtvWVZt4E+Lhi+d/hb +3i64VzTzYSJRHx/mLWv68N0BdEyC/5on66NS5t3Rxl4HuP1heFn+aX20Grte +e7feAQjqgK55uj55P+wWbct1gNLsutOXLuijgnhiYrmFA+SnnGRtKdfH0+kZ +szZce0gKFj2b/UIfNVV9ytrj7MBpkzLqUw0w5pu10zFHW5jrFhZpoBngbxnF +S+dMbSHfa+SNubIB8pmvCLmvbQuf46tCnVYZ4ERf0i19MVsIarGuCF9vgG43 +V2iMtdrAqW1HqfdMDVCvSV1Bx8gGqh17ZrUPGmDXVvu5V3rbQT4goWpNnQGG +/ZmvdS6yhNT5fRuT6w3I7yO3vxlJlsCfbsr70miANrs/3vh4wBK+3xG8kd9i +gMLW13QaWJZQzReXLf7CAFWTbmuceWYBTpnRoZOfDFB5oXrmJn4LyK4J3/hg +KQcX/Lfa/+4RM5Ba4s+z2snBKHe/Dt8cUygyORYxuouDjo8Fd2yKMYX1x1JN +Mlw4+KlNiLFxvylsG+X29Llz0L/Q18aFZQrxvRP/PP05GMeX+fLB680wVRhl +HBHDwWqFzuoG+mZ4rZ/xoriEgxO/a43N6kzA50jRRbNyDra6cbd/uWkCk+W3 +vYa5HLx4Is4295wJiDP6/q67w0HdaybfDf1MwEJYUeF+HQfFN82FRsuYQG13 +8d4XPRxsuutxpeewMZiL3NMM6eNgVaFjcbWrMfRtaZmkvOFgbUVCXKWFMYxX +/0jc856DRfPLU98rG4Nmwdqyb985mFf7aEqlxwhqXxuFpPzkIHVu/dS1R0Zg +LrkDtEY5mNW+zIJTbgT7Eo48D57gIHvtn2sFCUYwXhefKzNF/r+GnLTAYCOI +nT7vWT3NQdd3/Um27kawQvuGxu45DnnfUz2xZZsRXAqonpif5+CDHz/9rPWN +4H+dQ7xY "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -14240,118 +14423,133 @@ WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0Vd0bB3CREFKUmXvPdU0ZSiTi9jwiJUqGzBUVpYRkKJEhSqFEmTNl -SBnuiYQMhaRIXlGoyJDkLUOmSt5+5/fXWZ911tp77bOf57v3IQ57WbpycnBw -CCzj4Pj/c77/RRMzOnfbaKKPVYi6wbauDPFzBj3hcGGPlGxsJA1w3evD4j3x -sDLk0rxR5Abw33fvHVdPDkT7mQ6vjQRYMyEW/+vdAyjntfzQFmEOAzV7vWbf -NcC9j45fxi4eAmPm+Mfpd50gJH3GJSDUC36923Jr6t0QXDNuFmzyCYFGw4Lc -f3JmQErrui23YRxID1SNHlZdgn8XHawXB5JgrcehezyGXJiQab8jnjsT4jWM -H+/dz4vXy0J2myjdgd7kjU+mVwtijHfijl9m+RCdG/KaU2INEi5ponEuhSB2 -c/hKwm0RfLWOlMaVRSCu8jDiZ74IBquyhnxEikCy4VLIAbYI2t6Y1MmSLgLZ -KWU/xUYRfDtMvzWuXgTyZt7Oj8dEULfg6hjLqgg0ly9pD2uuxYi2D38/phaB -ua/oyKaXa/FLpKPXH/liuGxtsq1zfh2W1+TzBamUgGR5uyTnMlGUrok8MaNZ -AiUi1gsa/KJ4Xu8S/ah+CbztPMi+QRPFlGm9KI09JcC08GVY7BJFvW5NtSDP -EmjYk7miI0UUNV9I8neUlsCS8Vz7K30xvHzcLsJDrRTi8gPvLxmLYfFW2oTA -5lJgruCIUrMQw4MByjfz9UvB7NlKg1hXMVTPuxb/zLQUUg3pZWbXxNCH2bHz -gXsp6KBpUuuAGH7tqF5nnFsKZ3SzD70IF8dnBz6NKK9kw+6sVbOmMeJoFFPe -aSXIBgZPUFT7LXGMnzR5HriaDR1dNuSbu+Koy63ZVC/KBnVvAa7+dnHc1BnN -pyDHhrH8gPwfkhL40aCy8IgeG5zW7v0uVSaBQeeZ93Lc2aB5/nFYRo0EPtWM -xlMebFg5pCRKNEug+Jdt77W82FBVygUKvRJYey5Q5rEvG0RNq+I2/pXAT15T -XXdCqPnDmFo7TCWRP0tt9ehNNhhN/g70HJbEeSDH1GrZcG7XzfVPv0ni2kT/ -rzH1bCjJVusTmZdEpqW14NenbBC3dtat4pVC5hV2XXIzG75VPlvgUpfCtN3B -L7tfsyEhPM435awUiqyJud08yIahdQqeTYLSmOM9KRLBRYKYV72MmJg0xv4W -Ji9zk2DWYvfKnS6Npaei/aJ4SKgIjFYV0pTGD03afmH8JFwdmBq3t5PGKOUm -awsREjYVPj42mSONnF13nh5nkBCmb+EiqSODadpZgwHbSNh1MOPHlu0y+E2/ -ocMISVgV+u/F/WYy6Bhd4blqOwnpjZH5cc4y2B8XVpm0g4TK3dX/rrgig1ft -WmPDzUiYspPzn+mVQZE3bxKq7El4FOjNs2ZEBo9pdKRbOJJwIb02WX1CBmta -GxxGnUgQ+GT72J1TFpXHtBe4nUlQPBbD8Wm9LA4N7ayTcSPhoN/c1bbzsjhr -+vBL6WkS5JO2S49HyqJH6T5fkTMk9f2uF/PEyWJWK3ftGV8SAv8od2zPlUUH -m7sR6wNIuHXx4LqqNllcznHmt3cQCW03nmfmydBwl477lMslEhLK1mo0KtIw -NUIt8MZlEhy6XRo+adDQIU+xpTaKhDHxPyNSxjQsqPz8QCCaBK6sjevjPWn4 -UbCn8+J1EraWpJRfqKehSLp09bskEozetS9NtNDQLSCBuzGZhL0cy3ce6qTh -77uqUfdTSDhi6dkLn2lIJFdo+aaRYHyeCAnlpmMW57DOSAYJrUI1d3RW0jFo -DcO0KpOEfbk2LVOr6HjupH9ydBYJjq+i17iI01H3vOuoYg4J3rT5OwYqdIxw -YR+APBLmyuJafm2gY4P9mM1/lAN3qXwntehoq2J9vTqfhMjTztqMbXT85+Rw -/fq7JKQ2vmzhtKDjja0v1cfvkdB0LPN7oz8dh5O0aj+XkmDyR1c46Dwda/mt -x8+ySWiP69LWCqVjidvRQ3wkCb1VfKG5V6j5Fm/LMR6QMMHvKxyZTkeTgYtM -zXISzmSt2sLKpmMZa3M2m/JPrULHuTw6Ho31PaHykPqeB/tzXUvpqFC4MCJe -QYI4e9cW4wY62n0ovvrmEQm3jYYd/2um4xX740F6lSQweoNDK1rpKBfmX59F -WY2z7IVCNx3/u/VH70gVCQ8S90z099LxlG+x/xPKOipjwkn9dOzsl+OWqiZh -u7WME88YHQ/z9tFaKD8fexRa/42Oa+7ZFks+pvop2DIvYJqOP9NEb5ygbJt/ -eeLLbzqKzvQd4KwhwePndGiLIIHe4hqywrXU/p92Ex0VJtAkLd3fmjLveN99 -LnECYyt5yhMo571vfLuNQWCnitIgbx0JvtY6Hk6KBOoZR3Zuo7z9VdGyQFUC -S8I1ik5T7q+7pfpQm0DXyddS7ZSLtqxs6NQjcLu3d9kC5UD2BdspJFC1rEZb -tp7qV+WZb4LGBAZ/ic03oCyacyxcxZRARf46rsOURyQ/iJnsI5BvXNE8hPKD -hH3FbvsJPC5TcCWFcqjAs+0RDgQa8ouXsymbR+r2ZB8isPWz7esmyrL/FZ+q -P0pg/T2jD92Uv/kzuD66E/iOUft+mHL1ZGLyb08C6YNZ7ROUo47zq4v7Eui3 -vePhPGWbwZDGzeeo9Xuoxi9SZjrM2lldILBhb9LRJco/Oo9PeF8k8EnGjNof -yk9MP168FkVgRh9zcoHytSYLiaJYAr8bCxVOUXZiNZe8iCfQaSLJaZTy+oqt -Rl+SCJTOzl3ZS/mXemnv8tsEGs9KlbdQbimQ82LkEIgGn+0fUk6kJy/HAgKl -8sb+ZFA+miKQeqCIQA4OoYxIypuEwzacJwm8OmuwzZ0yR/RcU3IFgeu/nOw3 -odzOdcKh4jGBMUsBIYqU04P6J988IfCPjCWDk/LJOcvI6WfUeiZGn/dS+7XV -87mkUCuBEd1yp0so837RY6t2EFgxPy8bSjm3h/n+WB+BchulYyQp+1ikeEcO -EOi/Y++eYap+8KXgijsjBDKuvRUtpPzx8fzG/gkCjVrIZhXKRVonmxdnCBS5 -OV4yRtVnYPGAo8QvAh8Y77iTQ1k0s+WSNRcDdVdplQtSHhFjSfvwMrCtuayz -jqrvB3EkeV2QgUZFqstOUTYPT/3wUoyBvYyvN55Q/RHl6rHJQJWBX73abxtR -/WTT/+n5QQ0GDrOsbfup/mPa7j8QpM1A/HBHyY/yk13boh4hA72YiaKpVP/+ -Ulndr7afgXYluXpPqX6fvy0ZpunAQNs8IcKY8qyQPFP3EAN1HoxjC5UPEzO6 -J4zcGXg4u0mzqYyEocdH5h2CGRhaPMORRuXNgJpninM4A7OfNXf9P38+ZJ7V -d7vMQONNT8f9qHx6ezE2/PQNBiabiQzuoPLrpemjVVF5DAyQzxZ+VkT1e+1T -MvYeA8/q00RkKTdtaLNOKGWgYVvOAd/7JNSJDKZmVDHQr6y8S5zKwwfvVyo+ -fMVA+W9/3AwKqLw8eRCG5hj4waN9aU02CUkfjw99+c3A6R9qYkjl803zM5Hf -/zJQQLv+6kkqv69pRrX+5JNDgbpbEdW3SQhfJG2FZOVwkp/vk04qVS/R3N76 -xnK4SS6UVhlPgv79oqzERDmccl2h1BJGwnv6/cwdaXL4zKHE6VEotb+JhRmz -mXLYF2PikhtCna9h+emWhXI4bTf6MSCYql+7rORVNXL4wiO/dvk5EpS5b8Zd -GpTDkajXAxVeVD0cOh/qr8rEVdqbuS9S5/HDrnMh8hpM7OD9Na/mQIL17rMX -ujYzcb61pvutHQnxm/2CNgET3wctHmDYkCAo4HV2woKJIzwnyrL2kbC86rC3 -WwATry67b6hH3QemhXc72zQwMatp4NaEKgk9HoyOE8+ZmC+0dENbhaqP5t8Q -0sZEIT0VgyBlEuIC79PuvmVi8XheLYcCCRuHBAZ+jTOxmpZqMSFLgif5+sBt -EXl0VGr+7bSahHHz/Y4jR+VR8MoJwRvTbBiJcbbx4VFAxopKrrRiNniOqzI2 -Ciig1vgRtdD7bFjY+ev799UKuCf/cvqRQuq+xxUf6S6pgE93eZnL57Fh47nG -cmc1BXxfaSV/M50Nwa4KIuZWCijYd+UCPZq6/2379lolUwHPXF5vs+jGBpPJ -AJPP2oqYIuniPSdB3d+O8J4pD1FCA+fuwZ31JdT/hxjn5QZlvHJowM1foRiE -XylcY0+ux5LSMZGG6PsgHVW6T1tbFZf2rktcelQIySq6q0WOqWFss9eFw/MF -8FLSYPPMDXWc/PFjvlAnH7ZKN8RteLsBI1ds4GywyYVVXDm+LuEbMXOM9TMs -PQdkw2j69goaeGcwVJe/NQv45J0qLJ9r4JktR3qfKGeAOkuiNODAJjywkNrc -SE8Dn37hxt0cmrh8wNnsNU8yTM7E7DdJ1kTOEJfn3ftvwc4Nzakmalo4oyEr -kDkUD3UzeosL7VpYcFdLn+YTB56qm/r+cd2MTxNTvP7WxwBr4miXPZ82Nqqb -Bc0+iIIdTPE9gjnaKNs6SZ7eFwlKoVfPNmzZgm5p4jL99uGw3lW3Xr5vC/5X -dYXzDncIuNYdjyg/rYOkmIp916FAqM/qOjq9Thd/JqvQvi35wezdvwsbHumi -gMvytT67feCI/H2+1D1b8SxHTsibXE+YXp+g/WBqK8pyrRmNlXeHytzFwbko -Pcy2sXMyaTsKDkZyqCerj4W2Uoq66i6w1MW7qpGuj9Vyf4o7aC6Q5Trxfrec -Psa+o1X5rHGB0UtVAQ5K+lhiGWX4dtYZfF6Yl57bpI9caU1BkjXOcHVvkGyl -sT4+Z55RjDdzhmq77j9aXvrYpSUupDR+EKROXa5Sf6KPbMUqW7VmR7j2121z -dIM+rjC/sLe31BE4443JL036+GjX2hW3UhxhvIK7MOsFNZ77vgS9U45QzRGR -LPxGH3vGpJWM1jmCw83QgPnP1HjSkrZ6xx0g+fG5zXX8LKzLHD58UcIe1q30 -IPfYslB6KeV0fIEN5BoGB07Zs9DG471/XbwNbAq+ZpjgxEJWysLxxWAb2DvF -7u5xYaGx6IrRAmsbuPR27tcRDxYqt95c/pLTBn7mhGwPDGOhyWP+CaXD+6FP -L+FN/n0WSlzhO8KlZg3H/XLTTUpY+MKvzXCLpDXMlzx0/cZmITH2tTiQxxqE -GT0LGhUsFEhUm9kwZAWmvDLStU9YGEXrXmeVbAU1XflH33Sz0HGJOOXDYwW7 -V1Wq+fewsCCrbzhlzhJ6dr6YF3/PQpIDt3YMW8Js9b9RBz+xUCjE2cn9iSWo -ZW8s/jrOwkFDcyuzQEuo6TPwj/nOwoMmmblfj1vC7rVWsGGKhbUnnoXfsrUE -t8t+//jOsfBkWmyN+GZqvCeXUsV+spCnsoprSs4Swn8nHan+zcJgvo6SbmFL -WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs +1:eJwV13k0lP8XB3CRaCP72MbMGCpLWoQZxr0oZUuEhLIlspQka2VJlkhCQikk +LbaZR5ulEhKylJBKWmiXKCTL1+/5/TXndc5znvOZ+/nc930+dI+Dtl78fHx8 +Ogv4+P7/OznQ0shMLjI8fy0551i1iWH3JUq4UV8snPHPS35NYQBKdXpQ+tJh +lK3QzaWsh5DtN18K9BWCklaeaCbFGMRGZNL/vSTASK1syT6KLbyr3XZw/GU9 +nBH1jX4m4wGmzO9vx152QZ24ZXOyVBD8e6l7bvTlR0js3+gStywWGkyuFT0v +/APdXHE15tV0UHhX9dlDYw7WfLYivHdcAEl/15tCJgK44+TKhle3CyB9nWnN +NnthfC4RMrCw/Sq8yl5bN7ZiORb0Xdw8tuUGJBdFdfLLimGCtMJEb0EpmGvv +F5dSJv1NWl2svBSEG23tV2qKYej6db9NqkshblDljYWRGNa9K1XL6CqFo4y2 +z5n7xfDakueCffxlcCCf8p9qtRgmib4M/edeBjYXeRoWzuL4xGFTSopcOchk +DiZl5EmgvYkfMzG4Aijqt+OmiiWw30e/VOV4BcjVx0ft5kog39d3O2oTKoA6 +uvrIygYJFFv0Za47twJULAPdar5KYK8jXqysq4ANC+d0BjdI4la7gNh0QS5Y +B0sPrW+VxOGGmVQfKy5sX/p14PwLSazM9zBqtuGCbWHVq9l+SWRKSx9mOnDB +4ZlLZ9MvSdxmXmjbtYcLuzWuVDtJSaFAs82kQCAX/Ia0zsa6SeGFIc3gB2e5 +kGBnZtg1KYU7K9+VnO7igtytDjn+BdL4cv9Oy+e9XCiXsPu7bqk0NlBv1a14 +w4Ve8qVnlaQxyaZE+cQgF5g2wQybrdL45NrL5o3jXKi3urzoWY405iiObumS +5MGc6URHu4EM/nbQXvvZlgdpxRElc6YySOwKr77iwAPmIr5ETRsZvH1wx4rd +TjywfLzE6LSXDG5K0KQ2uPMg14RWaZkqgz9vX33gEsgDPbQ4//SdDIpoR/17 +nMKDw6wC15ZYCn7uzxs6WM8D83yRcYsUCvY8eqIe+JgHDKGjiR3nKGho6PXE +v5kHz7odeC+uU5Drs3rWqYMHawKXCQx0ULApyW330tc8+FocWvxbThYz9g6K +1I7ywEVy20/5SllkdG8c2y1PwIbImphLtbKo+SF0/KsiAUs+rpKmN8ni6pQJ +60AaAVUVAqD6ShYd6gJWBKsQIG1RlbZ2XhbVT8vdt9Yi4FkMU3uzhRz2GWX8 +3WlMwKZf0xEHBuWQU2dfV+ZFQPjWTLVHw3LoEW/fXOVNQHmB5muJSTn8QDO0 +r99PAMXOjVUlLI/p2lLzzQEEDN97/FdgjTxSS1Uulh4hICM2LTgnTB5df+SY +tccR0PxmNXM4Rh4tvdRaCuIJmNVueGGYLI/L5C1eBCUSsO/LxPqhPHk0SHua +uCSFALal89iaBnnUbPh8YkUGAR+lVA80LldAvhs90qH5BMgcfKgoI6OAUpV6 +gZKFBFg2O7bvpymg/ZZ+p/IrBNyJSNYQ3aCAM3dvfXpZTMCpd6PfdzkqoPTN +tIEFZQSsv1Hj/atQAcdY/k949wjw5reXMS5VwEc+GECpJuCi80hT5m0FXFUk +VBpZQ8AiEboqu1kBd5w4Pqn7gIDXQfFDcT8VsD2ooj2hgYAYAxt3OT1F7O5y +motrJ2Drnku/dY0VkW3Wod7ZQYBI9I8T9paKuHuM4in1jHx/w8niNDdFXD7G +/HWui4B75tU/FiUpYtvvqbPeZI5F+QsdY2Yo4tj0nHx6HwGmqXYixnmKeC18 +4Na9VwR0Px9Ze4yniEStpfT0GwJGHZVD/rxSxHttH8us3hNwNyJQSGxIEXOG +HjQ6fiDg+MX72WtGFPFbefuo60cClr3fWbOfn4rLtz5J9hgiYKV3Ct97NSqG +8VkN6X0lYM+RiVNtkVSsutXbr/aLAJXzxgrfT1LxR/rBkr+//r/fZ8qE0qio +ktB/sW6UgIjZ1c+Mi6iYdbDph+lvAs6d2CNV1UZFs7urdqhMEOBytaS4t5eK +RsrXbV6QZjyZ0h1/T8UPNcYRxyYJ4C7JcNKaoGLSyAmrpr8EtJ19cvmqohJK +XUiXVpsmz1Ol5LqGlUo4iRBdRdqpx73+/TolvD6fK795hoCvlNkheVPyeW38 +sX2WgAq2WQhruxImth+lPycd4pIltNNJCS8/3nbaao4Agfy1aukHlFD529XF ++v8R0ProWE1FmBImn1ypUEo6bbDVsj1WCb+66frIzhNAXel1UPi8Enp6CPG+ +kmaX59w6/lAJa8I76U4LKmHTy465kWYlXNaWWnaN9Da+hVtcu5QwMPf75Bhp +T9sDr+CTErIYrx4f5a+EA5FXGNwRJbS4Q7W6TzqsqM+PNqWE+RH7zk2TNo2k +R0UL0pCa4efvJ1AJT0Vrr+gtoeHq6I+zl0hvL3JoHhWh4cKODptO0r16Y8PX +JWjY7CrqP0vauT1ZzJ1CQ8efJyxVF1bCe3dVHVlFGj7mXz5uSXrfZJ3TczoN +iflkz0DSP045RyWp0rBWevBCGulApckrRuo0/Gw5kVdGeqIyrfmfFg3Hwop9 +n5CO2Kr+k6dNw6fGb/gHSPO9fSzmy6LhCCPce4z0yUNuOgxDGra678tZIFgJ +SxbNOL02pqGyzKkcEdJpueei0rfQ8NjqNh8KaSmttUXmljQMtJISViKd29Da +zG9DQyVB6zAGaSVHr5/V9jRMv+xZ/X8XDc+LHXaiobSeYef/n1eLydVRd6Xh +tdutd2VJV0htdB70pKF560TwCtLaNzujLvjQMPJ3qdBC0tWGvkU7AmgYGzwQ +OE6uF14sbFkaRMMB13DeB9KN3pd/NoTQsDgloPUpabNZlvjRSLIeuSW1BOmO +tG4d7WgaCv5mJmWRtlM56DwcR0NG3dO1oaRfVS2OLkqiYcS/9Ft2pPdsKypy +SaVh484DUlqkhz4atkhm0PDcLlu7RaRHlgaLn7xIw8vSSwJLyP07nC+iyymg +IbegdVs46SntG84TV0kfCBDdRFpgz0CRVwUNCx/rs5+R5yXxd1iL4i0ammg6 +FZ8lLZIgMdJzj4ZTaThlTZrC3aprWk/DTpMdNg3keczbNOj8XxMNnX3DnMJI +M14di77zlIbn2Tut1Ehr8le2qPbQcLpYfzyOrxKILKuRgVdkvfnwpiZpPfWv +4ucHyPpFzli9IPvB2E7RRegrDR125nlIkX7y9W70w2Eaftqc2MMj+8nymO3V +0DEa9hzawLYgvbM4YeTLNLne+Df9wWQ/+k+NRTcvp6NPoVjRFbKf2Yf2SX8W +pyOEhusqkhb+/rpEgEJHC4soTgbZ/1ffNPQaMuhoKcUtDv5HwMCDcxq3deho +WvRNfDmZH6W6S+q79Om4Vfm4my+ZLxHc4ztHkY6yl13VG8n8kS70jlW3oGPr +1yDDgHECrE+y+gpc6bhh8WjUuTGy3/8rC3i4l45c1Zm3vWS+DYcwBN7up+Pp +QU6jJOlEn6VrKMF0LOgZXRM/QkCdxdsTqYl03Pth+Ar8IOeLeIxWJI+OufZM +UxEyX/mSJxqz79DxkPmmTsogAR0Cvk53aug4Y6LwV4nMY78J25Njj+k47Ees +YpL5XdTHfOP9mo5Z7Ff6C/vJ9V5ujrcTYGDdlw5v5gsChmQ4CkHCDHzS5Xfq +33MCiDQe78xyBq5dR/F8Ss4X69jc/lYZBp5adNbAi5w/iV7+6400GGjp01p1 +qIWAf+orBjTtGXiUKrHmFznPJvPkYjY4MXAme7Y36z4B46IqTJYrA2NHK/z0 +awkY+cPy3bSfgfgb90RWkfO4xnPS6RgD9de3pvVWkvlpcVck8SoDv3QmHJ65 +RkCu3x74OMHA8f3v0xanEnD+rc/HL9MMDDPSSLUh53um9eGTP+cZqFvYV5x1 +ioDUDYlPpxYr4ylqwFpKAgGxM7ydolRlPGnk1DkVRdYnWTDQwFQZw0LLMtcd +IsCgpDQ/K0sZdYO05VNsCHhDK7m8+YIyyrgEmF2yJvc768al8cvKyAwjqOVW +5DyMKb5oe0MZ52QSGprMyP1xzM8WqVVG1YFguX4jAlYLZqbFf1DGszUmStnr +yHq7RkaHaDDRqDPhyh5RAsbEzd0c6pn4l3o88GAjD/r8Gc98nzBxvKZz9uEj +HtQ1TUNUGxMnbR6sFnlIfl9GlChd72Wi9DJ7/ytVPFj7cdm7f9+ZaCF2vZFX +zoMDvM7deRIqGNSYtck1mwffre2dh/aq4BaD8ILFvjwYSnFzCBJSxYHBoG1z +i3hg9ivU7JPOSuT5tXlMsLgw7Cl8+FbUKry1XSk0JaGcvN/I8CfUr8bZazfE +WqJLQbxdNZX7Sw3PzDheDku8CQqJFdt1dDQQ0k6UtTtdh2x11goJb038XEmz +s7cphlY5o41/zq7BcVunQuVdRcBWqE/T6tXC/OWlC8M3F4KIQGGwe+xaHPe8 +3hq6Px+oMUoGu1TXoYJ0/3bHBXmwWMXlju2TdTiczc5ZE50DaziyFaG712Om +hOz66dAsCBoQbzDn24A+Vj+0Nx/OgF9/UuzNsjegcoVbTuNgGmzRaso109RG +uwjLkGaD0/Dgj/7M3w5trDA6O5rRnQgHNNa/fu61Ed9+EdUc0zoJnJG93bsW +6+Ab4W+PmPdiYDOTYrW8UAfV5I8OJrcfg1XRp8LqdXXRsZ5/6AhfOKh5sR6q +vNbF8jVJ528nBIPXA5+4W4f00O9i/azxdCCMBHwP3Rysh992FdtLDQdCmKK/ +X2+IHh6sjCkZexsIp44etJ2K1MPd2las5keBwGWH0Azi9XAmrsJiOCkQZu+c +qG3I1cMrlgX1SxUCIb3i0nhXgx5+sfTqEDpzAB7md+8dk2JhQkGJVliwH7y3 +pLuGUFg4E9osxNrtB3z/AnbNyLFwtUpkxRJTPzC2EdomSGOhxITX1vcyftC0 +gK0rq8bCS3o6F3fU+kKbx+XFRoYsfOAjVGkr7Auvmb7laftYuFGL6RJU6gPj +1+f/at1l4fDoEVVD5X3w2cE0P6mKhZpi8Xy6Yvugb+HprYM1LFyVwU4wmPeC +Gje5nKw6FgoKxBwPeOMFsZSN7LkWFmbbndm+L9MLViT6Hm3tZ2Fhg4FvmbAX +aHj38Hnxs3FgIZXpPu0Jnioli3Ot2CgUuTpjkM8DIh7v8VXdzka3QUHB06Pu +kOYl/pSwZeNnDa67yXt3qL0anvJ0Jxs35qRW9z50B0nVraJz7mz8ab5E8HyU +OzSpfpJ0C2GjY8v+/pAF7qC2SommepmN8ockDCJF3GBMLUOHGGXjMr2GC/fP +u0BfG26W+MNGkS1GX9uPu0DdgZEdwRNszPD6z2bMywVSCbNDOtNsjB+Xtjqk +7QJqbL7SagF9RN6idLsuZ/AwC6A3SOuj+8Djb3liztDtvWVZt4E+Lhi+d/hb +3i64VzTzYSJRHx/mLWv68N0BdEyC/5on66NS5t3Rxl4HuP1heFn+aX20Grte +e7feAQjqgK55uj55P+wWbct1gNLsutOXLuijgnhiYrmFA+SnnGRtKdfH0+kZ +szZce0gKFj2b/UIfNVV9ytrj7MBpkzLqUw0w5pu10zFHW5jrFhZpoBngbxnF +S+dMbSHfa+SNubIB8pmvCLmvbQuf46tCnVYZ4ERf0i19MVsIarGuCF9vgG43 +V2iMtdrAqW1HqfdMDVCvSV1Bx8gGqh17ZrUPGmDXVvu5V3rbQT4goWpNnQGG +/ZmvdS6yhNT5fRuT6w3I7yO3vxlJlsCfbsr70miANrs/3vh4wBK+3xG8kd9i +gMLW13QaWJZQzReXLf7CAFWTbmuceWYBTpnRoZOfDFB5oXrmJn4LyK4J3/hg +KQcX/Lfa/+4RM5Ba4s+z2snBKHe/Dt8cUygyORYxuouDjo8Fd2yKMYX1x1JN +Mlw4+KlNiLFxvylsG+X29Llz0L/Q18aFZQrxvRP/PP05GMeX+fLB680wVRhl +HBHDwWqFzuoG+mZ4rZ/xoriEgxO/a43N6kzA50jRRbNyDra6cbd/uWkCk+W3 +vYa5HLx4Is4295wJiDP6/q67w0HdaybfDf1MwEJYUeF+HQfFN82FRsuYQG13 +8d4XPRxsuutxpeewMZiL3NMM6eNgVaFjcbWrMfRtaZmkvOFgbUVCXKWFMYxX +/0jc856DRfPLU98rG4Nmwdqyb985mFf7aEqlxwhqXxuFpPzkIHVu/dS1R0Zg +LrkDtEY5mNW+zIJTbgT7Eo48D57gIHvtn2sFCUYwXhefKzNF/r+GnLTAYCOI +nT7vWT3NQdd3/Um27kawQvuGxu45DnnfUz2xZZsRXAqonpif5+CDHz/9rPWN +4H+dQ7xY "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06933578210674354}}, + "PlotRange" -> {{0, 30}, {0., 0.07429711390034147}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -14363,19 +14561,19 @@ WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06933578210674354}}, + "PlotRange" -> {{0, 30}, {0., 0.07429711390034147}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -14389,117 +14587,132 @@ WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0Vd0bB3CREFKUmXvPdU0ZSiTi9jwiJUqGzBUVpYRkKJEhSqFEmTNl -SBnuiYQMhaRIXlGoyJDkLUOmSt5+5/fXWZ911tp77bOf57v3IQ57WbpycnBw -CCzj4Pj/c77/RRMzOnfbaKKPVYi6wbauDPFzBj3hcGGPlGxsJA1w3evD4j3x -sDLk0rxR5Abw33fvHVdPDkT7mQ6vjQRYMyEW/+vdAyjntfzQFmEOAzV7vWbf -NcC9j45fxi4eAmPm+Mfpd50gJH3GJSDUC36923Jr6t0QXDNuFmzyCYFGw4Lc -f3JmQErrui23YRxID1SNHlZdgn8XHawXB5JgrcehezyGXJiQab8jnjsT4jWM -H+/dz4vXy0J2myjdgd7kjU+mVwtijHfijl9m+RCdG/KaU2INEi5ponEuhSB2 -c/hKwm0RfLWOlMaVRSCu8jDiZ74IBquyhnxEikCy4VLIAbYI2t6Y1MmSLgLZ -KWU/xUYRfDtMvzWuXgTyZt7Oj8dEULfg6hjLqgg0ly9pD2uuxYi2D38/phaB -ua/oyKaXa/FLpKPXH/liuGxtsq1zfh2W1+TzBamUgGR5uyTnMlGUrok8MaNZ -AiUi1gsa/KJ4Xu8S/ah+CbztPMi+QRPFlGm9KI09JcC08GVY7BJFvW5NtSDP -EmjYk7miI0UUNV9I8neUlsCS8Vz7K30xvHzcLsJDrRTi8gPvLxmLYfFW2oTA -5lJgruCIUrMQw4MByjfz9UvB7NlKg1hXMVTPuxb/zLQUUg3pZWbXxNCH2bHz -gXsp6KBpUuuAGH7tqF5nnFsKZ3SzD70IF8dnBz6NKK9kw+6sVbOmMeJoFFPe -aSXIBgZPUFT7LXGMnzR5HriaDR1dNuSbu+Koy63ZVC/KBnVvAa7+dnHc1BnN -pyDHhrH8gPwfkhL40aCy8IgeG5zW7v0uVSaBQeeZ93Lc2aB5/nFYRo0EPtWM -xlMebFg5pCRKNEug+Jdt77W82FBVygUKvRJYey5Q5rEvG0RNq+I2/pXAT15T -XXdCqPnDmFo7TCWRP0tt9ehNNhhN/g70HJbEeSDH1GrZcG7XzfVPv0ni2kT/ -rzH1bCjJVusTmZdEpqW14NenbBC3dtat4pVC5hV2XXIzG75VPlvgUpfCtN3B -L7tfsyEhPM435awUiqyJud08yIahdQqeTYLSmOM9KRLBRYKYV72MmJg0xv4W -Ji9zk2DWYvfKnS6Npaei/aJ4SKgIjFYV0pTGD03afmH8JFwdmBq3t5PGKOUm -awsREjYVPj42mSONnF13nh5nkBCmb+EiqSODadpZgwHbSNh1MOPHlu0y+E2/ -ocMISVgV+u/F/WYy6Bhd4blqOwnpjZH5cc4y2B8XVpm0g4TK3dX/rrgig1ft -WmPDzUiYspPzn+mVQZE3bxKq7El4FOjNs2ZEBo9pdKRbOJJwIb02WX1CBmta -GxxGnUgQ+GT72J1TFpXHtBe4nUlQPBbD8Wm9LA4N7ayTcSPhoN/c1bbzsjhr -+vBL6WkS5JO2S49HyqJH6T5fkTMk9f2uF/PEyWJWK3ftGV8SAv8od2zPlUUH -m7sR6wNIuHXx4LqqNllcznHmt3cQCW03nmfmydBwl477lMslEhLK1mo0KtIw -NUIt8MZlEhy6XRo+adDQIU+xpTaKhDHxPyNSxjQsqPz8QCCaBK6sjevjPWn4 -UbCn8+J1EraWpJRfqKehSLp09bskEozetS9NtNDQLSCBuzGZhL0cy3ce6qTh -77uqUfdTSDhi6dkLn2lIJFdo+aaRYHyeCAnlpmMW57DOSAYJrUI1d3RW0jFo -DcO0KpOEfbk2LVOr6HjupH9ydBYJjq+i17iI01H3vOuoYg4J3rT5OwYqdIxw -YR+APBLmyuJafm2gY4P9mM1/lAN3qXwntehoq2J9vTqfhMjTztqMbXT85+Rw -/fq7JKQ2vmzhtKDjja0v1cfvkdB0LPN7oz8dh5O0aj+XkmDyR1c46Dwda/mt -x8+ySWiP69LWCqVjidvRQ3wkCb1VfKG5V6j5Fm/LMR6QMMHvKxyZTkeTgYtM -zXISzmSt2sLKpmMZa3M2m/JPrULHuTw6Ho31PaHykPqeB/tzXUvpqFC4MCJe -QYI4e9cW4wY62n0ovvrmEQm3jYYd/2um4xX740F6lSQweoNDK1rpKBfmX59F -WY2z7IVCNx3/u/VH70gVCQ8S90z099LxlG+x/xPKOipjwkn9dOzsl+OWqiZh -u7WME88YHQ/z9tFaKD8fexRa/42Oa+7ZFks+pvop2DIvYJqOP9NEb5ygbJt/ -eeLLbzqKzvQd4KwhwePndGiLIIHe4hqywrXU/p92Ex0VJtAkLd3fmjLveN99 -LnECYyt5yhMo571vfLuNQWCnitIgbx0JvtY6Hk6KBOoZR3Zuo7z9VdGyQFUC -S8I1ik5T7q+7pfpQm0DXyddS7ZSLtqxs6NQjcLu3d9kC5UD2BdspJFC1rEZb -tp7qV+WZb4LGBAZ/ic03oCyacyxcxZRARf46rsOURyQ/iJnsI5BvXNE8hPKD -hH3FbvsJPC5TcCWFcqjAs+0RDgQa8ouXsymbR+r2ZB8isPWz7esmyrL/FZ+q -P0pg/T2jD92Uv/kzuD66E/iOUft+mHL1ZGLyb08C6YNZ7ROUo47zq4v7Eui3 -vePhPGWbwZDGzeeo9Xuoxi9SZjrM2lldILBhb9LRJco/Oo9PeF8k8EnGjNof -yk9MP168FkVgRh9zcoHytSYLiaJYAr8bCxVOUXZiNZe8iCfQaSLJaZTy+oqt -Rl+SCJTOzl3ZS/mXemnv8tsEGs9KlbdQbimQ82LkEIgGn+0fUk6kJy/HAgKl -8sb+ZFA+miKQeqCIQA4OoYxIypuEwzacJwm8OmuwzZ0yR/RcU3IFgeu/nOw3 -odzOdcKh4jGBMUsBIYqU04P6J988IfCPjCWDk/LJOcvI6WfUeiZGn/dS+7XV -87mkUCuBEd1yp0so837RY6t2EFgxPy8bSjm3h/n+WB+BchulYyQp+1ikeEcO -EOi/Y++eYap+8KXgijsjBDKuvRUtpPzx8fzG/gkCjVrIZhXKRVonmxdnCBS5 -OV4yRtVnYPGAo8QvAh8Y77iTQ1k0s+WSNRcDdVdplQtSHhFjSfvwMrCtuayz -jqrvB3EkeV2QgUZFqstOUTYPT/3wUoyBvYyvN55Q/RHl6rHJQJWBX73abxtR -/WTT/+n5QQ0GDrOsbfup/mPa7j8QpM1A/HBHyY/yk13boh4hA72YiaKpVP/+ -Ulndr7afgXYluXpPqX6fvy0ZpunAQNs8IcKY8qyQPFP3EAN1HoxjC5UPEzO6 -J4zcGXg4u0mzqYyEocdH5h2CGRhaPMORRuXNgJpninM4A7OfNXf9P38+ZJ7V -d7vMQONNT8f9qHx6ezE2/PQNBiabiQzuoPLrpemjVVF5DAyQzxZ+VkT1e+1T -MvYeA8/q00RkKTdtaLNOKGWgYVvOAd/7JNSJDKZmVDHQr6y8S5zKwwfvVyo+ -fMVA+W9/3AwKqLw8eRCG5hj4waN9aU02CUkfjw99+c3A6R9qYkjl803zM5Hf -/zJQQLv+6kkqv69pRrX+5JNDgbpbEdW3SQhfJG2FZOVwkp/vk04qVS/R3N76 -xnK4SS6UVhlPgv79oqzERDmccl2h1BJGwnv6/cwdaXL4zKHE6VEotb+JhRmz -mXLYF2PikhtCna9h+emWhXI4bTf6MSCYql+7rORVNXL4wiO/dvk5EpS5b8Zd -GpTDkajXAxVeVD0cOh/qr8rEVdqbuS9S5/HDrnMh8hpM7OD9Na/mQIL17rMX -ujYzcb61pvutHQnxm/2CNgET3wctHmDYkCAo4HV2woKJIzwnyrL2kbC86rC3 -WwATry67b6hH3QemhXc72zQwMatp4NaEKgk9HoyOE8+ZmC+0dENbhaqP5t8Q -0sZEIT0VgyBlEuIC79PuvmVi8XheLYcCCRuHBAZ+jTOxmpZqMSFLgif5+sBt -EXl0VGr+7bSahHHz/Y4jR+VR8MoJwRvTbBiJcbbx4VFAxopKrrRiNniOqzI2 -Ciig1vgRtdD7bFjY+ev799UKuCf/cvqRQuq+xxUf6S6pgE93eZnL57Fh47nG -cmc1BXxfaSV/M50Nwa4KIuZWCijYd+UCPZq6/2379lolUwHPXF5vs+jGBpPJ -AJPP2oqYIuniPSdB3d+O8J4pD1FCA+fuwZ31JdT/hxjn5QZlvHJowM1foRiE -XylcY0+ux5LSMZGG6PsgHVW6T1tbFZf2rktcelQIySq6q0WOqWFss9eFw/MF -8FLSYPPMDXWc/PFjvlAnH7ZKN8RteLsBI1ds4GywyYVVXDm+LuEbMXOM9TMs -PQdkw2j69goaeGcwVJe/NQv45J0qLJ9r4JktR3qfKGeAOkuiNODAJjywkNrc -SE8Dn37hxt0cmrh8wNnsNU8yTM7E7DdJ1kTOEJfn3ftvwc4Nzakmalo4oyEr -kDkUD3UzeosL7VpYcFdLn+YTB56qm/r+cd2MTxNTvP7WxwBr4miXPZ82Nqqb -Bc0+iIIdTPE9gjnaKNs6SZ7eFwlKoVfPNmzZgm5p4jL99uGw3lW3Xr5vC/5X -dYXzDncIuNYdjyg/rYOkmIp916FAqM/qOjq9Thd/JqvQvi35wezdvwsbHumi -gMvytT67feCI/H2+1D1b8SxHTsibXE+YXp+g/WBqK8pyrRmNlXeHytzFwbko -Pcy2sXMyaTsKDkZyqCerj4W2Uoq66i6w1MW7qpGuj9Vyf4o7aC6Q5Trxfrec -Psa+o1X5rHGB0UtVAQ5K+lhiGWX4dtYZfF6Yl57bpI9caU1BkjXOcHVvkGyl -sT4+Z55RjDdzhmq77j9aXvrYpSUupDR+EKROXa5Sf6KPbMUqW7VmR7j2121z -dIM+rjC/sLe31BE4443JL036+GjX2hW3UhxhvIK7MOsFNZ77vgS9U45QzRGR -LPxGH3vGpJWM1jmCw83QgPnP1HjSkrZ6xx0g+fG5zXX8LKzLHD58UcIe1q30 -IPfYslB6KeV0fIEN5BoGB07Zs9DG471/XbwNbAq+ZpjgxEJWysLxxWAb2DvF -7u5xYaGx6IrRAmsbuPR27tcRDxYqt95c/pLTBn7mhGwPDGOhyWP+CaXD+6FP -L+FN/n0WSlzhO8KlZg3H/XLTTUpY+MKvzXCLpDXMlzx0/cZmITH2tTiQxxqE -GT0LGhUsFEhUm9kwZAWmvDLStU9YGEXrXmeVbAU1XflH33Sz0HGJOOXDYwW7 -V1Wq+fewsCCrbzhlzhJ6dr6YF3/PQpIDt3YMW8Js9b9RBz+xUCjE2cn9iSWo -ZW8s/jrOwkFDcyuzQEuo6TPwj/nOwoMmmblfj1vC7rVWsGGKhbUnnoXfsrUE -t8t+//jOsfBkWmyN+GZqvCeXUsV+spCnsoprSs4Swn8nHan+zcJgvo6SbmFL -WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs +1:eJwV13k0lP8XB3CRaCP72MbMGCpLWoQZxr0oZUuEhLIlspQka2VJlkhCQikk +LbaZR5ulEhKylJBKWmiXKCTL1+/5/TXndc5znvOZ+/nc930+dI+Dtl78fHx8 +Ogv4+P7/OznQ0shMLjI8fy0551i1iWH3JUq4UV8snPHPS35NYQBKdXpQ+tJh +lK3QzaWsh5DtN18K9BWCklaeaCbFGMRGZNL/vSTASK1syT6KLbyr3XZw/GU9 +nBH1jX4m4wGmzO9vx152QZ24ZXOyVBD8e6l7bvTlR0js3+gStywWGkyuFT0v +/APdXHE15tV0UHhX9dlDYw7WfLYivHdcAEl/15tCJgK44+TKhle3CyB9nWnN +NnthfC4RMrCw/Sq8yl5bN7ZiORb0Xdw8tuUGJBdFdfLLimGCtMJEb0EpmGvv +F5dSJv1NWl2svBSEG23tV2qKYej6db9NqkshblDljYWRGNa9K1XL6CqFo4y2 +z5n7xfDakueCffxlcCCf8p9qtRgmib4M/edeBjYXeRoWzuL4xGFTSopcOchk +DiZl5EmgvYkfMzG4Aijqt+OmiiWw30e/VOV4BcjVx0ft5kog39d3O2oTKoA6 +uvrIygYJFFv0Za47twJULAPdar5KYK8jXqysq4ANC+d0BjdI4la7gNh0QS5Y +B0sPrW+VxOGGmVQfKy5sX/p14PwLSazM9zBqtuGCbWHVq9l+SWRKSx9mOnDB +4ZlLZ9MvSdxmXmjbtYcLuzWuVDtJSaFAs82kQCAX/Ia0zsa6SeGFIc3gB2e5 +kGBnZtg1KYU7K9+VnO7igtytDjn+BdL4cv9Oy+e9XCiXsPu7bqk0NlBv1a14 +w4Ve8qVnlaQxyaZE+cQgF5g2wQybrdL45NrL5o3jXKi3urzoWY405iiObumS +5MGc6URHu4EM/nbQXvvZlgdpxRElc6YySOwKr77iwAPmIr5ETRsZvH1wx4rd +TjywfLzE6LSXDG5K0KQ2uPMg14RWaZkqgz9vX33gEsgDPbQ4//SdDIpoR/17 +nMKDw6wC15ZYCn7uzxs6WM8D83yRcYsUCvY8eqIe+JgHDKGjiR3nKGho6PXE +v5kHz7odeC+uU5Drs3rWqYMHawKXCQx0ULApyW330tc8+FocWvxbThYz9g6K +1I7ywEVy20/5SllkdG8c2y1PwIbImphLtbKo+SF0/KsiAUs+rpKmN8ni6pQJ +60AaAVUVAqD6ShYd6gJWBKsQIG1RlbZ2XhbVT8vdt9Yi4FkMU3uzhRz2GWX8 +3WlMwKZf0xEHBuWQU2dfV+ZFQPjWTLVHw3LoEW/fXOVNQHmB5muJSTn8QDO0 +r99PAMXOjVUlLI/p2lLzzQEEDN97/FdgjTxSS1Uulh4hICM2LTgnTB5df+SY +tccR0PxmNXM4Rh4tvdRaCuIJmNVueGGYLI/L5C1eBCUSsO/LxPqhPHk0SHua +uCSFALal89iaBnnUbPh8YkUGAR+lVA80LldAvhs90qH5BMgcfKgoI6OAUpV6 +gZKFBFg2O7bvpymg/ZZ+p/IrBNyJSNYQ3aCAM3dvfXpZTMCpd6PfdzkqoPTN +tIEFZQSsv1Hj/atQAcdY/k949wjw5reXMS5VwEc+GECpJuCi80hT5m0FXFUk +VBpZQ8AiEboqu1kBd5w4Pqn7gIDXQfFDcT8VsD2ooj2hgYAYAxt3OT1F7O5y +motrJ2Drnku/dY0VkW3Wod7ZQYBI9I8T9paKuHuM4in1jHx/w8niNDdFXD7G +/HWui4B75tU/FiUpYtvvqbPeZI5F+QsdY2Yo4tj0nHx6HwGmqXYixnmKeC18 +4Na9VwR0Px9Ze4yniEStpfT0GwJGHZVD/rxSxHttH8us3hNwNyJQSGxIEXOG +HjQ6fiDg+MX72WtGFPFbefuo60cClr3fWbOfn4rLtz5J9hgiYKV3Ct97NSqG +8VkN6X0lYM+RiVNtkVSsutXbr/aLAJXzxgrfT1LxR/rBkr+//r/fZ8qE0qio +ktB/sW6UgIjZ1c+Mi6iYdbDph+lvAs6d2CNV1UZFs7urdqhMEOBytaS4t5eK +RsrXbV6QZjyZ0h1/T8UPNcYRxyYJ4C7JcNKaoGLSyAmrpr8EtJ19cvmqohJK +XUiXVpsmz1Ol5LqGlUo4iRBdRdqpx73+/TolvD6fK795hoCvlNkheVPyeW38 +sX2WgAq2WQhruxImth+lPycd4pIltNNJCS8/3nbaao4Agfy1aukHlFD529XF ++v8R0ProWE1FmBImn1ypUEo6bbDVsj1WCb+66frIzhNAXel1UPi8Enp6CPG+ +kmaX59w6/lAJa8I76U4LKmHTy465kWYlXNaWWnaN9Da+hVtcu5QwMPf75Bhp +T9sDr+CTErIYrx4f5a+EA5FXGNwRJbS4Q7W6TzqsqM+PNqWE+RH7zk2TNo2k +R0UL0pCa4efvJ1AJT0Vrr+gtoeHq6I+zl0hvL3JoHhWh4cKODptO0r16Y8PX +JWjY7CrqP0vauT1ZzJ1CQ8efJyxVF1bCe3dVHVlFGj7mXz5uSXrfZJ3TczoN +iflkz0DSP045RyWp0rBWevBCGulApckrRuo0/Gw5kVdGeqIyrfmfFg3Hwop9 +n5CO2Kr+k6dNw6fGb/gHSPO9fSzmy6LhCCPce4z0yUNuOgxDGra678tZIFgJ +SxbNOL02pqGyzKkcEdJpueei0rfQ8NjqNh8KaSmttUXmljQMtJISViKd29Da +zG9DQyVB6zAGaSVHr5/V9jRMv+xZ/X8XDc+LHXaiobSeYef/n1eLydVRd6Xh +tdutd2VJV0htdB70pKF560TwCtLaNzujLvjQMPJ3qdBC0tWGvkU7AmgYGzwQ +OE6uF14sbFkaRMMB13DeB9KN3pd/NoTQsDgloPUpabNZlvjRSLIeuSW1BOmO +tG4d7WgaCv5mJmWRtlM56DwcR0NG3dO1oaRfVS2OLkqiYcS/9Ft2pPdsKypy +SaVh484DUlqkhz4atkhm0PDcLlu7RaRHlgaLn7xIw8vSSwJLyP07nC+iyymg +IbegdVs46SntG84TV0kfCBDdRFpgz0CRVwUNCx/rs5+R5yXxd1iL4i0ammg6 +FZ8lLZIgMdJzj4ZTaThlTZrC3aprWk/DTpMdNg3keczbNOj8XxMNnX3DnMJI +M14di77zlIbn2Tut1Ehr8le2qPbQcLpYfzyOrxKILKuRgVdkvfnwpiZpPfWv +4ucHyPpFzli9IPvB2E7RRegrDR125nlIkX7y9W70w2Eaftqc2MMj+8nymO3V +0DEa9hzawLYgvbM4YeTLNLne+Df9wWQ/+k+NRTcvp6NPoVjRFbKf2Yf2SX8W +pyOEhusqkhb+/rpEgEJHC4soTgbZ/1ffNPQaMuhoKcUtDv5HwMCDcxq3deho +WvRNfDmZH6W6S+q79Om4Vfm4my+ZLxHc4ztHkY6yl13VG8n8kS70jlW3oGPr +1yDDgHECrE+y+gpc6bhh8WjUuTGy3/8rC3i4l45c1Zm3vWS+DYcwBN7up+Pp +QU6jJOlEn6VrKMF0LOgZXRM/QkCdxdsTqYl03Pth+Ar8IOeLeIxWJI+OufZM +UxEyX/mSJxqz79DxkPmmTsogAR0Cvk53aug4Y6LwV4nMY78J25Njj+k47Ees +YpL5XdTHfOP9mo5Z7Ff6C/vJ9V5ujrcTYGDdlw5v5gsChmQ4CkHCDHzS5Xfq +33MCiDQe78xyBq5dR/F8Ss4X69jc/lYZBp5adNbAi5w/iV7+6400GGjp01p1 +qIWAf+orBjTtGXiUKrHmFznPJvPkYjY4MXAme7Y36z4B46IqTJYrA2NHK/z0 +awkY+cPy3bSfgfgb90RWkfO4xnPS6RgD9de3pvVWkvlpcVck8SoDv3QmHJ65 +RkCu3x74OMHA8f3v0xanEnD+rc/HL9MMDDPSSLUh53um9eGTP+cZqFvYV5x1 +ioDUDYlPpxYr4ylqwFpKAgGxM7ydolRlPGnk1DkVRdYnWTDQwFQZw0LLMtcd +IsCgpDQ/K0sZdYO05VNsCHhDK7m8+YIyyrgEmF2yJvc768al8cvKyAwjqOVW +5DyMKb5oe0MZ52QSGprMyP1xzM8WqVVG1YFguX4jAlYLZqbFf1DGszUmStnr +yHq7RkaHaDDRqDPhyh5RAsbEzd0c6pn4l3o88GAjD/r8Gc98nzBxvKZz9uEj +HtQ1TUNUGxMnbR6sFnlIfl9GlChd72Wi9DJ7/ytVPFj7cdm7f9+ZaCF2vZFX +zoMDvM7deRIqGNSYtck1mwffre2dh/aq4BaD8ILFvjwYSnFzCBJSxYHBoG1z +i3hg9ivU7JPOSuT5tXlMsLgw7Cl8+FbUKry1XSk0JaGcvN/I8CfUr8bZazfE +WqJLQbxdNZX7Sw3PzDheDku8CQqJFdt1dDQQ0k6UtTtdh2x11goJb038XEmz +s7cphlY5o41/zq7BcVunQuVdRcBWqE/T6tXC/OWlC8M3F4KIQGGwe+xaHPe8 +3hq6Px+oMUoGu1TXoYJ0/3bHBXmwWMXlju2TdTiczc5ZE50DaziyFaG712Om +hOz66dAsCBoQbzDn24A+Vj+0Nx/OgF9/UuzNsjegcoVbTuNgGmzRaso109RG +uwjLkGaD0/Dgj/7M3w5trDA6O5rRnQgHNNa/fu61Ed9+EdUc0zoJnJG93bsW +6+Ab4W+PmPdiYDOTYrW8UAfV5I8OJrcfg1XRp8LqdXXRsZ5/6AhfOKh5sR6q +vNbF8jVJ528nBIPXA5+4W4f00O9i/azxdCCMBHwP3Rysh992FdtLDQdCmKK/ +X2+IHh6sjCkZexsIp44etJ2K1MPd2las5keBwGWH0Azi9XAmrsJiOCkQZu+c +qG3I1cMrlgX1SxUCIb3i0nhXgx5+sfTqEDpzAB7md+8dk2JhQkGJVliwH7y3 +pLuGUFg4E9osxNrtB3z/AnbNyLFwtUpkxRJTPzC2EdomSGOhxITX1vcyftC0 +gK0rq8bCS3o6F3fU+kKbx+XFRoYsfOAjVGkr7Auvmb7laftYuFGL6RJU6gPj +1+f/at1l4fDoEVVD5X3w2cE0P6mKhZpi8Xy6Yvugb+HprYM1LFyVwU4wmPeC +Gje5nKw6FgoKxBwPeOMFsZSN7LkWFmbbndm+L9MLViT6Hm3tZ2Fhg4FvmbAX +aHj38Hnxs3FgIZXpPu0Jnioli3Ot2CgUuTpjkM8DIh7v8VXdzka3QUHB06Pu +kOYl/pSwZeNnDa67yXt3qL0anvJ0Jxs35qRW9z50B0nVraJz7mz8ab5E8HyU +OzSpfpJ0C2GjY8v+/pAF7qC2SommepmN8ockDCJF3GBMLUOHGGXjMr2GC/fP +u0BfG26W+MNGkS1GX9uPu0DdgZEdwRNszPD6z2bMywVSCbNDOtNsjB+Xtjqk +7QJqbL7SagF9RN6idLsuZ/AwC6A3SOuj+8Djb3liztDtvWVZt4E+Lhi+d/hb +3i64VzTzYSJRHx/mLWv68N0BdEyC/5on66NS5t3Rxl4HuP1heFn+aX20Grte +e7feAQjqgK55uj55P+wWbct1gNLsutOXLuijgnhiYrmFA+SnnGRtKdfH0+kZ +szZce0gKFj2b/UIfNVV9ytrj7MBpkzLqUw0w5pu10zFHW5jrFhZpoBngbxnF +S+dMbSHfa+SNubIB8pmvCLmvbQuf46tCnVYZ4ERf0i19MVsIarGuCF9vgG43 +V2iMtdrAqW1HqfdMDVCvSV1Bx8gGqh17ZrUPGmDXVvu5V3rbQT4goWpNnQGG +/ZmvdS6yhNT5fRuT6w3I7yO3vxlJlsCfbsr70miANrs/3vh4wBK+3xG8kd9i +gMLW13QaWJZQzReXLf7CAFWTbmuceWYBTpnRoZOfDFB5oXrmJn4LyK4J3/hg +KQcX/Lfa/+4RM5Ba4s+z2snBKHe/Dt8cUygyORYxuouDjo8Fd2yKMYX1x1JN +Mlw4+KlNiLFxvylsG+X29Llz0L/Q18aFZQrxvRP/PP05GMeX+fLB680wVRhl +HBHDwWqFzuoG+mZ4rZ/xoriEgxO/a43N6kzA50jRRbNyDra6cbd/uWkCk+W3 +vYa5HLx4Is4295wJiDP6/q67w0HdaybfDf1MwEJYUeF+HQfFN82FRsuYQG13 +8d4XPRxsuutxpeewMZiL3NMM6eNgVaFjcbWrMfRtaZmkvOFgbUVCXKWFMYxX +/0jc856DRfPLU98rG4Nmwdqyb985mFf7aEqlxwhqXxuFpPzkIHVu/dS1R0Zg +LrkDtEY5mNW+zIJTbgT7Eo48D57gIHvtn2sFCUYwXhefKzNF/r+GnLTAYCOI +nT7vWT3NQdd3/Um27kawQvuGxu45DnnfUz2xZZsRXAqonpif5+CDHz/9rPWN +4H+dQ7xY "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06933578210674354}}, + "PlotRange" -> {{0, 30}, {0., 0.07429711390034147}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -14510,6 +14723,7 @@ WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -14537,7 +14751,8 @@ WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06933578210674354}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07429711390034147}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -14545,9 +14760,10 @@ WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913381496467495`*^9, 3.993129007887402*^9}, + CellChangeTimes->{3.9913381496467495`*^9, 3.993129007887402*^9, + 3.9938289829504023`*^9}, CellLabel-> - "(Debug) Out[326]=",ExpressionUUID->"ebac424d-0249-44fb-b9cd-12d07f270f8a"] + "Out[138]=",ExpressionUUID->"a8e2c494-7d4e-4273-8d3f-2200f76f608b"] }, Open ]], Cell[CellGroupData[{ @@ -14557,106 +14773,121 @@ Cell[BoxData[ RowBox[{"x", ",", "xx"}], "]"}]], "Input", CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, CellLabel-> - "(Debug) In[327]:=",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], + "In[139]:=",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], Cell[BoxData[ GraphicsBox[{ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k0Vd0bB3CREFKUmXvPdU0ZSiTi9jwiJUqGzBUVpYRkKJEhSqFEmTNl -SBnuiYQMhaRIXlGoyJDkLUOmSt5+5/fXWZ911tp77bOf57v3IQ57WbpycnBw -CCzj4Pj/c77/RRMzOnfbaKKPVYi6wbauDPFzBj3hcGGPlGxsJA1w3evD4j3x -sDLk0rxR5Abw33fvHVdPDkT7mQ6vjQRYMyEW/+vdAyjntfzQFmEOAzV7vWbf -NcC9j45fxi4eAmPm+Mfpd50gJH3GJSDUC36923Jr6t0QXDNuFmzyCYFGw4Lc -f3JmQErrui23YRxID1SNHlZdgn8XHawXB5JgrcehezyGXJiQab8jnjsT4jWM -H+/dz4vXy0J2myjdgd7kjU+mVwtijHfijl9m+RCdG/KaU2INEi5ponEuhSB2 -c/hKwm0RfLWOlMaVRSCu8jDiZ74IBquyhnxEikCy4VLIAbYI2t6Y1MmSLgLZ -KWU/xUYRfDtMvzWuXgTyZt7Oj8dEULfg6hjLqgg0ly9pD2uuxYi2D38/phaB -ua/oyKaXa/FLpKPXH/liuGxtsq1zfh2W1+TzBamUgGR5uyTnMlGUrok8MaNZ -AiUi1gsa/KJ4Xu8S/ah+CbztPMi+QRPFlGm9KI09JcC08GVY7BJFvW5NtSDP -EmjYk7miI0UUNV9I8neUlsCS8Vz7K30xvHzcLsJDrRTi8gPvLxmLYfFW2oTA -5lJgruCIUrMQw4MByjfz9UvB7NlKg1hXMVTPuxb/zLQUUg3pZWbXxNCH2bHz -gXsp6KBpUuuAGH7tqF5nnFsKZ3SzD70IF8dnBz6NKK9kw+6sVbOmMeJoFFPe -aSXIBgZPUFT7LXGMnzR5HriaDR1dNuSbu+Koy63ZVC/KBnVvAa7+dnHc1BnN -pyDHhrH8gPwfkhL40aCy8IgeG5zW7v0uVSaBQeeZ93Lc2aB5/nFYRo0EPtWM -xlMebFg5pCRKNEug+Jdt77W82FBVygUKvRJYey5Q5rEvG0RNq+I2/pXAT15T -XXdCqPnDmFo7TCWRP0tt9ehNNhhN/g70HJbEeSDH1GrZcG7XzfVPv0ni2kT/ -rzH1bCjJVusTmZdEpqW14NenbBC3dtat4pVC5hV2XXIzG75VPlvgUpfCtN3B -L7tfsyEhPM435awUiqyJud08yIahdQqeTYLSmOM9KRLBRYKYV72MmJg0xv4W -Ji9zk2DWYvfKnS6Npaei/aJ4SKgIjFYV0pTGD03afmH8JFwdmBq3t5PGKOUm -awsREjYVPj42mSONnF13nh5nkBCmb+EiqSODadpZgwHbSNh1MOPHlu0y+E2/ -ocMISVgV+u/F/WYy6Bhd4blqOwnpjZH5cc4y2B8XVpm0g4TK3dX/rrgig1ft -WmPDzUiYspPzn+mVQZE3bxKq7El4FOjNs2ZEBo9pdKRbOJJwIb02WX1CBmta -GxxGnUgQ+GT72J1TFpXHtBe4nUlQPBbD8Wm9LA4N7ayTcSPhoN/c1bbzsjhr -+vBL6WkS5JO2S49HyqJH6T5fkTMk9f2uF/PEyWJWK3ftGV8SAv8od2zPlUUH -m7sR6wNIuHXx4LqqNllcznHmt3cQCW03nmfmydBwl477lMslEhLK1mo0KtIw -NUIt8MZlEhy6XRo+adDQIU+xpTaKhDHxPyNSxjQsqPz8QCCaBK6sjevjPWn4 -UbCn8+J1EraWpJRfqKehSLp09bskEozetS9NtNDQLSCBuzGZhL0cy3ce6qTh -77uqUfdTSDhi6dkLn2lIJFdo+aaRYHyeCAnlpmMW57DOSAYJrUI1d3RW0jFo -DcO0KpOEfbk2LVOr6HjupH9ydBYJjq+i17iI01H3vOuoYg4J3rT5OwYqdIxw -YR+APBLmyuJafm2gY4P9mM1/lAN3qXwntehoq2J9vTqfhMjTztqMbXT85+Rw -/fq7JKQ2vmzhtKDjja0v1cfvkdB0LPN7oz8dh5O0aj+XkmDyR1c46Dwda/mt -x8+ySWiP69LWCqVjidvRQ3wkCb1VfKG5V6j5Fm/LMR6QMMHvKxyZTkeTgYtM -zXISzmSt2sLKpmMZa3M2m/JPrULHuTw6Ho31PaHykPqeB/tzXUvpqFC4MCJe -QYI4e9cW4wY62n0ovvrmEQm3jYYd/2um4xX740F6lSQweoNDK1rpKBfmX59F -WY2z7IVCNx3/u/VH70gVCQ8S90z099LxlG+x/xPKOipjwkn9dOzsl+OWqiZh -u7WME88YHQ/z9tFaKD8fexRa/42Oa+7ZFks+pvop2DIvYJqOP9NEb5ygbJt/ -eeLLbzqKzvQd4KwhwePndGiLIIHe4hqywrXU/p92Ex0VJtAkLd3fmjLveN99 -LnECYyt5yhMo571vfLuNQWCnitIgbx0JvtY6Hk6KBOoZR3Zuo7z9VdGyQFUC -S8I1ik5T7q+7pfpQm0DXyddS7ZSLtqxs6NQjcLu3d9kC5UD2BdspJFC1rEZb -tp7qV+WZb4LGBAZ/ic03oCyacyxcxZRARf46rsOURyQ/iJnsI5BvXNE8hPKD -hH3FbvsJPC5TcCWFcqjAs+0RDgQa8ouXsymbR+r2ZB8isPWz7esmyrL/FZ+q -P0pg/T2jD92Uv/kzuD66E/iOUft+mHL1ZGLyb08C6YNZ7ROUo47zq4v7Eui3 -vePhPGWbwZDGzeeo9Xuoxi9SZjrM2lldILBhb9LRJco/Oo9PeF8k8EnGjNof -yk9MP168FkVgRh9zcoHytSYLiaJYAr8bCxVOUXZiNZe8iCfQaSLJaZTy+oqt -Rl+SCJTOzl3ZS/mXemnv8tsEGs9KlbdQbimQ82LkEIgGn+0fUk6kJy/HAgKl -8sb+ZFA+miKQeqCIQA4OoYxIypuEwzacJwm8OmuwzZ0yR/RcU3IFgeu/nOw3 -odzOdcKh4jGBMUsBIYqU04P6J988IfCPjCWDk/LJOcvI6WfUeiZGn/dS+7XV -87mkUCuBEd1yp0so837RY6t2EFgxPy8bSjm3h/n+WB+BchulYyQp+1ikeEcO -EOi/Y++eYap+8KXgijsjBDKuvRUtpPzx8fzG/gkCjVrIZhXKRVonmxdnCBS5 -OV4yRtVnYPGAo8QvAh8Y77iTQ1k0s+WSNRcDdVdplQtSHhFjSfvwMrCtuayz -jqrvB3EkeV2QgUZFqstOUTYPT/3wUoyBvYyvN55Q/RHl6rHJQJWBX73abxtR -/WTT/+n5QQ0GDrOsbfup/mPa7j8QpM1A/HBHyY/yk13boh4hA72YiaKpVP/+ -Ulndr7afgXYluXpPqX6fvy0ZpunAQNs8IcKY8qyQPFP3EAN1HoxjC5UPEzO6 -J4zcGXg4u0mzqYyEocdH5h2CGRhaPMORRuXNgJpninM4A7OfNXf9P38+ZJ7V -d7vMQONNT8f9qHx6ezE2/PQNBiabiQzuoPLrpemjVVF5DAyQzxZ+VkT1e+1T -MvYeA8/q00RkKTdtaLNOKGWgYVvOAd/7JNSJDKZmVDHQr6y8S5zKwwfvVyo+ -fMVA+W9/3AwKqLw8eRCG5hj4waN9aU02CUkfjw99+c3A6R9qYkjl803zM5Hf -/zJQQLv+6kkqv69pRrX+5JNDgbpbEdW3SQhfJG2FZOVwkp/vk04qVS/R3N76 -xnK4SS6UVhlPgv79oqzERDmccl2h1BJGwnv6/cwdaXL4zKHE6VEotb+JhRmz -mXLYF2PikhtCna9h+emWhXI4bTf6MSCYql+7rORVNXL4wiO/dvk5EpS5b8Zd -GpTDkajXAxVeVD0cOh/qr8rEVdqbuS9S5/HDrnMh8hpM7OD9Na/mQIL17rMX -ujYzcb61pvutHQnxm/2CNgET3wctHmDYkCAo4HV2woKJIzwnyrL2kbC86rC3 -WwATry67b6hH3QemhXc72zQwMatp4NaEKgk9HoyOE8+ZmC+0dENbhaqP5t8Q -0sZEIT0VgyBlEuIC79PuvmVi8XheLYcCCRuHBAZ+jTOxmpZqMSFLgif5+sBt -EXl0VGr+7bSahHHz/Y4jR+VR8MoJwRvTbBiJcbbx4VFAxopKrrRiNniOqzI2 -Ciig1vgRtdD7bFjY+ev799UKuCf/cvqRQuq+xxUf6S6pgE93eZnL57Fh47nG -cmc1BXxfaSV/M50Nwa4KIuZWCijYd+UCPZq6/2379lolUwHPXF5vs+jGBpPJ -AJPP2oqYIuniPSdB3d+O8J4pD1FCA+fuwZ31JdT/hxjn5QZlvHJowM1foRiE -XylcY0+ux5LSMZGG6PsgHVW6T1tbFZf2rktcelQIySq6q0WOqWFss9eFw/MF -8FLSYPPMDXWc/PFjvlAnH7ZKN8RteLsBI1ds4GywyYVVXDm+LuEbMXOM9TMs -PQdkw2j69goaeGcwVJe/NQv45J0qLJ9r4JktR3qfKGeAOkuiNODAJjywkNrc -SE8Dn37hxt0cmrh8wNnsNU8yTM7E7DdJ1kTOEJfn3ftvwc4Nzakmalo4oyEr -kDkUD3UzeosL7VpYcFdLn+YTB56qm/r+cd2MTxNTvP7WxwBr4miXPZ82Nqqb -Bc0+iIIdTPE9gjnaKNs6SZ7eFwlKoVfPNmzZgm5p4jL99uGw3lW3Xr5vC/5X -dYXzDncIuNYdjyg/rYOkmIp916FAqM/qOjq9Thd/JqvQvi35wezdvwsbHumi -gMvytT67feCI/H2+1D1b8SxHTsibXE+YXp+g/WBqK8pyrRmNlXeHytzFwbko -Pcy2sXMyaTsKDkZyqCerj4W2Uoq66i6w1MW7qpGuj9Vyf4o7aC6Q5Trxfrec -Psa+o1X5rHGB0UtVAQ5K+lhiGWX4dtYZfF6Yl57bpI9caU1BkjXOcHVvkGyl -sT4+Z55RjDdzhmq77j9aXvrYpSUupDR+EKROXa5Sf6KPbMUqW7VmR7j2121z -dIM+rjC/sLe31BE4443JL036+GjX2hW3UhxhvIK7MOsFNZ77vgS9U45QzRGR -LPxGH3vGpJWM1jmCw83QgPnP1HjSkrZ6xx0g+fG5zXX8LKzLHD58UcIe1q30 -IPfYslB6KeV0fIEN5BoGB07Zs9DG471/XbwNbAq+ZpjgxEJWysLxxWAb2DvF -7u5xYaGx6IrRAmsbuPR27tcRDxYqt95c/pLTBn7mhGwPDGOhyWP+CaXD+6FP -L+FN/n0WSlzhO8KlZg3H/XLTTUpY+MKvzXCLpDXMlzx0/cZmITH2tTiQxxqE -GT0LGhUsFEhUm9kwZAWmvDLStU9YGEXrXmeVbAU1XflH33Sz0HGJOOXDYwW7 -V1Wq+fewsCCrbzhlzhJ6dr6YF3/PQpIDt3YMW8Js9b9RBz+xUCjE2cn9iSWo -ZW8s/jrOwkFDcyuzQEuo6TPwj/nOwoMmmblfj1vC7rVWsGGKhbUnnoXfsrUE -t8t+//jOsfBkWmyN+GZqvCeXUsV+spCnsoprSs4Swn8nHan+zcJgvo6SbmFL -WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k0lP8XB3CRaCP72MbMGCpLWoQZxr0oZUuEhLIlspQka2VJlkhCQikk +LbaZR5ulEhKylJBKWmiXKCTL1+/5/TXndc5znvOZ+/nc930+dI+Dtl78fHx8 +Ogv4+P7/OznQ0shMLjI8fy0551i1iWH3JUq4UV8snPHPS35NYQBKdXpQ+tJh +lK3QzaWsh5DtN18K9BWCklaeaCbFGMRGZNL/vSTASK1syT6KLbyr3XZw/GU9 +nBH1jX4m4wGmzO9vx152QZ24ZXOyVBD8e6l7bvTlR0js3+gStywWGkyuFT0v +/APdXHE15tV0UHhX9dlDYw7WfLYivHdcAEl/15tCJgK44+TKhle3CyB9nWnN +NnthfC4RMrCw/Sq8yl5bN7ZiORb0Xdw8tuUGJBdFdfLLimGCtMJEb0EpmGvv +F5dSJv1NWl2svBSEG23tV2qKYej6db9NqkshblDljYWRGNa9K1XL6CqFo4y2 +z5n7xfDakueCffxlcCCf8p9qtRgmib4M/edeBjYXeRoWzuL4xGFTSopcOchk +DiZl5EmgvYkfMzG4Aijqt+OmiiWw30e/VOV4BcjVx0ft5kog39d3O2oTKoA6 +uvrIygYJFFv0Za47twJULAPdar5KYK8jXqysq4ANC+d0BjdI4la7gNh0QS5Y +B0sPrW+VxOGGmVQfKy5sX/p14PwLSazM9zBqtuGCbWHVq9l+SWRKSx9mOnDB +4ZlLZ9MvSdxmXmjbtYcLuzWuVDtJSaFAs82kQCAX/Ia0zsa6SeGFIc3gB2e5 +kGBnZtg1KYU7K9+VnO7igtytDjn+BdL4cv9Oy+e9XCiXsPu7bqk0NlBv1a14 +w4Ve8qVnlaQxyaZE+cQgF5g2wQybrdL45NrL5o3jXKi3urzoWY405iiObumS +5MGc6URHu4EM/nbQXvvZlgdpxRElc6YySOwKr77iwAPmIr5ETRsZvH1wx4rd +TjywfLzE6LSXDG5K0KQ2uPMg14RWaZkqgz9vX33gEsgDPbQ4//SdDIpoR/17 +nMKDw6wC15ZYCn7uzxs6WM8D83yRcYsUCvY8eqIe+JgHDKGjiR3nKGho6PXE +v5kHz7odeC+uU5Drs3rWqYMHawKXCQx0ULApyW330tc8+FocWvxbThYz9g6K +1I7ywEVy20/5SllkdG8c2y1PwIbImphLtbKo+SF0/KsiAUs+rpKmN8ni6pQJ +60AaAVUVAqD6ShYd6gJWBKsQIG1RlbZ2XhbVT8vdt9Yi4FkMU3uzhRz2GWX8 +3WlMwKZf0xEHBuWQU2dfV+ZFQPjWTLVHw3LoEW/fXOVNQHmB5muJSTn8QDO0 +r99PAMXOjVUlLI/p2lLzzQEEDN97/FdgjTxSS1Uulh4hICM2LTgnTB5df+SY +tccR0PxmNXM4Rh4tvdRaCuIJmNVueGGYLI/L5C1eBCUSsO/LxPqhPHk0SHua +uCSFALal89iaBnnUbPh8YkUGAR+lVA80LldAvhs90qH5BMgcfKgoI6OAUpV6 +gZKFBFg2O7bvpymg/ZZ+p/IrBNyJSNYQ3aCAM3dvfXpZTMCpd6PfdzkqoPTN +tIEFZQSsv1Hj/atQAcdY/k949wjw5reXMS5VwEc+GECpJuCi80hT5m0FXFUk +VBpZQ8AiEboqu1kBd5w4Pqn7gIDXQfFDcT8VsD2ooj2hgYAYAxt3OT1F7O5y +motrJ2Drnku/dY0VkW3Wod7ZQYBI9I8T9paKuHuM4in1jHx/w8niNDdFXD7G +/HWui4B75tU/FiUpYtvvqbPeZI5F+QsdY2Yo4tj0nHx6HwGmqXYixnmKeC18 +4Na9VwR0Px9Ze4yniEStpfT0GwJGHZVD/rxSxHttH8us3hNwNyJQSGxIEXOG +HjQ6fiDg+MX72WtGFPFbefuo60cClr3fWbOfn4rLtz5J9hgiYKV3Ct97NSqG +8VkN6X0lYM+RiVNtkVSsutXbr/aLAJXzxgrfT1LxR/rBkr+//r/fZ8qE0qio +ktB/sW6UgIjZ1c+Mi6iYdbDph+lvAs6d2CNV1UZFs7urdqhMEOBytaS4t5eK +RsrXbV6QZjyZ0h1/T8UPNcYRxyYJ4C7JcNKaoGLSyAmrpr8EtJ19cvmqohJK +XUiXVpsmz1Ol5LqGlUo4iRBdRdqpx73+/TolvD6fK795hoCvlNkheVPyeW38 +sX2WgAq2WQhruxImth+lPycd4pIltNNJCS8/3nbaao4Agfy1aukHlFD529XF ++v8R0ProWE1FmBImn1ypUEo6bbDVsj1WCb+66frIzhNAXel1UPi8Enp6CPG+ +kmaX59w6/lAJa8I76U4LKmHTy465kWYlXNaWWnaN9Da+hVtcu5QwMPf75Bhp +T9sDr+CTErIYrx4f5a+EA5FXGNwRJbS4Q7W6TzqsqM+PNqWE+RH7zk2TNo2k +R0UL0pCa4efvJ1AJT0Vrr+gtoeHq6I+zl0hvL3JoHhWh4cKODptO0r16Y8PX +JWjY7CrqP0vauT1ZzJ1CQ8efJyxVF1bCe3dVHVlFGj7mXz5uSXrfZJ3TczoN +iflkz0DSP045RyWp0rBWevBCGulApckrRuo0/Gw5kVdGeqIyrfmfFg3Hwop9 +n5CO2Kr+k6dNw6fGb/gHSPO9fSzmy6LhCCPce4z0yUNuOgxDGra678tZIFgJ +SxbNOL02pqGyzKkcEdJpueei0rfQ8NjqNh8KaSmttUXmljQMtJISViKd29Da +zG9DQyVB6zAGaSVHr5/V9jRMv+xZ/X8XDc+LHXaiobSeYef/n1eLydVRd6Xh +tdutd2VJV0htdB70pKF560TwCtLaNzujLvjQMPJ3qdBC0tWGvkU7AmgYGzwQ +OE6uF14sbFkaRMMB13DeB9KN3pd/NoTQsDgloPUpabNZlvjRSLIeuSW1BOmO +tG4d7WgaCv5mJmWRtlM56DwcR0NG3dO1oaRfVS2OLkqiYcS/9Ft2pPdsKypy +SaVh484DUlqkhz4atkhm0PDcLlu7RaRHlgaLn7xIw8vSSwJLyP07nC+iyymg +IbegdVs46SntG84TV0kfCBDdRFpgz0CRVwUNCx/rs5+R5yXxd1iL4i0ammg6 +FZ8lLZIgMdJzj4ZTaThlTZrC3aprWk/DTpMdNg3keczbNOj8XxMNnX3DnMJI +M14di77zlIbn2Tut1Ehr8le2qPbQcLpYfzyOrxKILKuRgVdkvfnwpiZpPfWv +4ucHyPpFzli9IPvB2E7RRegrDR125nlIkX7y9W70w2Eaftqc2MMj+8nymO3V +0DEa9hzawLYgvbM4YeTLNLne+Df9wWQ/+k+NRTcvp6NPoVjRFbKf2Yf2SX8W +pyOEhusqkhb+/rpEgEJHC4soTgbZ/1ffNPQaMuhoKcUtDv5HwMCDcxq3deho +WvRNfDmZH6W6S+q79Om4Vfm4my+ZLxHc4ztHkY6yl13VG8n8kS70jlW3oGPr +1yDDgHECrE+y+gpc6bhh8WjUuTGy3/8rC3i4l45c1Zm3vWS+DYcwBN7up+Pp +QU6jJOlEn6VrKMF0LOgZXRM/QkCdxdsTqYl03Pth+Ar8IOeLeIxWJI+OufZM +UxEyX/mSJxqz79DxkPmmTsogAR0Cvk53aug4Y6LwV4nMY78J25Njj+k47Ees +YpL5XdTHfOP9mo5Z7Ff6C/vJ9V5ujrcTYGDdlw5v5gsChmQ4CkHCDHzS5Xfq +33MCiDQe78xyBq5dR/F8Ss4X69jc/lYZBp5adNbAi5w/iV7+6400GGjp01p1 +qIWAf+orBjTtGXiUKrHmFznPJvPkYjY4MXAme7Y36z4B46IqTJYrA2NHK/z0 +awkY+cPy3bSfgfgb90RWkfO4xnPS6RgD9de3pvVWkvlpcVck8SoDv3QmHJ65 +RkCu3x74OMHA8f3v0xanEnD+rc/HL9MMDDPSSLUh53um9eGTP+cZqFvYV5x1 +ioDUDYlPpxYr4ylqwFpKAgGxM7ydolRlPGnk1DkVRdYnWTDQwFQZw0LLMtcd +IsCgpDQ/K0sZdYO05VNsCHhDK7m8+YIyyrgEmF2yJvc768al8cvKyAwjqOVW +5DyMKb5oe0MZ52QSGprMyP1xzM8WqVVG1YFguX4jAlYLZqbFf1DGszUmStnr +yHq7RkaHaDDRqDPhyh5RAsbEzd0c6pn4l3o88GAjD/r8Gc98nzBxvKZz9uEj +HtQ1TUNUGxMnbR6sFnlIfl9GlChd72Wi9DJ7/ytVPFj7cdm7f9+ZaCF2vZFX +zoMDvM7deRIqGNSYtck1mwffre2dh/aq4BaD8ILFvjwYSnFzCBJSxYHBoG1z +i3hg9ivU7JPOSuT5tXlMsLgw7Cl8+FbUKry1XSk0JaGcvN/I8CfUr8bZazfE +WqJLQbxdNZX7Sw3PzDheDku8CQqJFdt1dDQQ0k6UtTtdh2x11goJb038XEmz +s7cphlY5o41/zq7BcVunQuVdRcBWqE/T6tXC/OWlC8M3F4KIQGGwe+xaHPe8 +3hq6Px+oMUoGu1TXoYJ0/3bHBXmwWMXlju2TdTiczc5ZE50DaziyFaG712Om +hOz66dAsCBoQbzDn24A+Vj+0Nx/OgF9/UuzNsjegcoVbTuNgGmzRaso109RG +uwjLkGaD0/Dgj/7M3w5trDA6O5rRnQgHNNa/fu61Ed9+EdUc0zoJnJG93bsW +6+Ab4W+PmPdiYDOTYrW8UAfV5I8OJrcfg1XRp8LqdXXRsZ5/6AhfOKh5sR6q +vNbF8jVJ528nBIPXA5+4W4f00O9i/azxdCCMBHwP3Rysh992FdtLDQdCmKK/ +X2+IHh6sjCkZexsIp44etJ2K1MPd2las5keBwGWH0Azi9XAmrsJiOCkQZu+c +qG3I1cMrlgX1SxUCIb3i0nhXgx5+sfTqEDpzAB7md+8dk2JhQkGJVliwH7y3 +pLuGUFg4E9osxNrtB3z/AnbNyLFwtUpkxRJTPzC2EdomSGOhxITX1vcyftC0 +gK0rq8bCS3o6F3fU+kKbx+XFRoYsfOAjVGkr7Auvmb7laftYuFGL6RJU6gPj +1+f/at1l4fDoEVVD5X3w2cE0P6mKhZpi8Xy6Yvugb+HprYM1LFyVwU4wmPeC +Gje5nKw6FgoKxBwPeOMFsZSN7LkWFmbbndm+L9MLViT6Hm3tZ2Fhg4FvmbAX +aHj38Hnxs3FgIZXpPu0Jnioli3Ot2CgUuTpjkM8DIh7v8VXdzka3QUHB06Pu +kOYl/pSwZeNnDa67yXt3qL0anvJ0Jxs35qRW9z50B0nVraJz7mz8ab5E8HyU +OzSpfpJ0C2GjY8v+/pAF7qC2SommepmN8ockDCJF3GBMLUOHGGXjMr2GC/fP +u0BfG26W+MNGkS1GX9uPu0DdgZEdwRNszPD6z2bMywVSCbNDOtNsjB+Xtjqk +7QJqbL7SagF9RN6idLsuZ/AwC6A3SOuj+8Djb3liztDtvWVZt4E+Lhi+d/hb +3i64VzTzYSJRHx/mLWv68N0BdEyC/5on66NS5t3Rxl4HuP1heFn+aX20Grte +e7feAQjqgK55uj55P+wWbct1gNLsutOXLuijgnhiYrmFA+SnnGRtKdfH0+kZ +szZce0gKFj2b/UIfNVV9ytrj7MBpkzLqUw0w5pu10zFHW5jrFhZpoBngbxnF +S+dMbSHfa+SNubIB8pmvCLmvbQuf46tCnVYZ4ERf0i19MVsIarGuCF9vgG43 +V2iMtdrAqW1HqfdMDVCvSV1Bx8gGqh17ZrUPGmDXVvu5V3rbQT4goWpNnQGG +/ZmvdS6yhNT5fRuT6w3I7yO3vxlJlsCfbsr70miANrs/3vh4wBK+3xG8kd9i +gMLW13QaWJZQzReXLf7CAFWTbmuceWYBTpnRoZOfDFB5oXrmJn4LyK4J3/hg +KQcX/Lfa/+4RM5Ba4s+z2snBKHe/Dt8cUygyORYxuouDjo8Fd2yKMYX1x1JN +Mlw4+KlNiLFxvylsG+X29Llz0L/Q18aFZQrxvRP/PP05GMeX+fLB680wVRhl +HBHDwWqFzuoG+mZ4rZ/xoriEgxO/a43N6kzA50jRRbNyDra6cbd/uWkCk+W3 +vYa5HLx4Is4295wJiDP6/q67w0HdaybfDf1MwEJYUeF+HQfFN82FRsuYQG13 +8d4XPRxsuutxpeewMZiL3NMM6eNgVaFjcbWrMfRtaZmkvOFgbUVCXKWFMYxX +/0jc856DRfPLU98rG4Nmwdqyb985mFf7aEqlxwhqXxuFpPzkIHVu/dS1R0Zg +LrkDtEY5mNW+zIJTbgT7Eo48D57gIHvtn2sFCUYwXhefKzNF/r+GnLTAYCOI +nT7vWT3NQdd3/Um27kawQvuGxu45DnnfUz2xZZsRXAqonpif5+CDHz/9rPWN +4H+dQ7xY "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -14670,118 +14901,133 @@ WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0Vd0bB3CREFKUmXvPdU0ZSiTi9jwiJUqGzBUVpYRkKJEhSqFEmTNl -SBnuiYQMhaRIXlGoyJDkLUOmSt5+5/fXWZ911tp77bOf57v3IQ57WbpycnBw -CCzj4Pj/c77/RRMzOnfbaKKPVYi6wbauDPFzBj3hcGGPlGxsJA1w3evD4j3x -sDLk0rxR5Abw33fvHVdPDkT7mQ6vjQRYMyEW/+vdAyjntfzQFmEOAzV7vWbf -NcC9j45fxi4eAmPm+Mfpd50gJH3GJSDUC36923Jr6t0QXDNuFmzyCYFGw4Lc -f3JmQErrui23YRxID1SNHlZdgn8XHawXB5JgrcehezyGXJiQab8jnjsT4jWM -H+/dz4vXy0J2myjdgd7kjU+mVwtijHfijl9m+RCdG/KaU2INEi5ponEuhSB2 -c/hKwm0RfLWOlMaVRSCu8jDiZ74IBquyhnxEikCy4VLIAbYI2t6Y1MmSLgLZ -KWU/xUYRfDtMvzWuXgTyZt7Oj8dEULfg6hjLqgg0ly9pD2uuxYi2D38/phaB -ua/oyKaXa/FLpKPXH/liuGxtsq1zfh2W1+TzBamUgGR5uyTnMlGUrok8MaNZ -AiUi1gsa/KJ4Xu8S/ah+CbztPMi+QRPFlGm9KI09JcC08GVY7BJFvW5NtSDP -EmjYk7miI0UUNV9I8neUlsCS8Vz7K30xvHzcLsJDrRTi8gPvLxmLYfFW2oTA -5lJgruCIUrMQw4MByjfz9UvB7NlKg1hXMVTPuxb/zLQUUg3pZWbXxNCH2bHz -gXsp6KBpUuuAGH7tqF5nnFsKZ3SzD70IF8dnBz6NKK9kw+6sVbOmMeJoFFPe -aSXIBgZPUFT7LXGMnzR5HriaDR1dNuSbu+Koy63ZVC/KBnVvAa7+dnHc1BnN -pyDHhrH8gPwfkhL40aCy8IgeG5zW7v0uVSaBQeeZ93Lc2aB5/nFYRo0EPtWM -xlMebFg5pCRKNEug+Jdt77W82FBVygUKvRJYey5Q5rEvG0RNq+I2/pXAT15T -XXdCqPnDmFo7TCWRP0tt9ehNNhhN/g70HJbEeSDH1GrZcG7XzfVPv0ni2kT/ -rzH1bCjJVusTmZdEpqW14NenbBC3dtat4pVC5hV2XXIzG75VPlvgUpfCtN3B -L7tfsyEhPM435awUiqyJud08yIahdQqeTYLSmOM9KRLBRYKYV72MmJg0xv4W -Ji9zk2DWYvfKnS6Npaei/aJ4SKgIjFYV0pTGD03afmH8JFwdmBq3t5PGKOUm -awsREjYVPj42mSONnF13nh5nkBCmb+EiqSODadpZgwHbSNh1MOPHlu0y+E2/ -ocMISVgV+u/F/WYy6Bhd4blqOwnpjZH5cc4y2B8XVpm0g4TK3dX/rrgig1ft -WmPDzUiYspPzn+mVQZE3bxKq7El4FOjNs2ZEBo9pdKRbOJJwIb02WX1CBmta -GxxGnUgQ+GT72J1TFpXHtBe4nUlQPBbD8Wm9LA4N7ayTcSPhoN/c1bbzsjhr -+vBL6WkS5JO2S49HyqJH6T5fkTMk9f2uF/PEyWJWK3ftGV8SAv8od2zPlUUH -m7sR6wNIuHXx4LqqNllcznHmt3cQCW03nmfmydBwl477lMslEhLK1mo0KtIw -NUIt8MZlEhy6XRo+adDQIU+xpTaKhDHxPyNSxjQsqPz8QCCaBK6sjevjPWn4 -UbCn8+J1EraWpJRfqKehSLp09bskEozetS9NtNDQLSCBuzGZhL0cy3ce6qTh -77uqUfdTSDhi6dkLn2lIJFdo+aaRYHyeCAnlpmMW57DOSAYJrUI1d3RW0jFo -DcO0KpOEfbk2LVOr6HjupH9ydBYJjq+i17iI01H3vOuoYg4J3rT5OwYqdIxw -YR+APBLmyuJafm2gY4P9mM1/lAN3qXwntehoq2J9vTqfhMjTztqMbXT85+Rw -/fq7JKQ2vmzhtKDjja0v1cfvkdB0LPN7oz8dh5O0aj+XkmDyR1c46Dwda/mt -x8+ySWiP69LWCqVjidvRQ3wkCb1VfKG5V6j5Fm/LMR6QMMHvKxyZTkeTgYtM -zXISzmSt2sLKpmMZa3M2m/JPrULHuTw6Ho31PaHykPqeB/tzXUvpqFC4MCJe -QYI4e9cW4wY62n0ovvrmEQm3jYYd/2um4xX740F6lSQweoNDK1rpKBfmX59F -WY2z7IVCNx3/u/VH70gVCQ8S90z099LxlG+x/xPKOipjwkn9dOzsl+OWqiZh -u7WME88YHQ/z9tFaKD8fexRa/42Oa+7ZFks+pvop2DIvYJqOP9NEb5ygbJt/ -eeLLbzqKzvQd4KwhwePndGiLIIHe4hqywrXU/p92Ex0VJtAkLd3fmjLveN99 -LnECYyt5yhMo571vfLuNQWCnitIgbx0JvtY6Hk6KBOoZR3Zuo7z9VdGyQFUC -S8I1ik5T7q+7pfpQm0DXyddS7ZSLtqxs6NQjcLu3d9kC5UD2BdspJFC1rEZb -tp7qV+WZb4LGBAZ/ic03oCyacyxcxZRARf46rsOURyQ/iJnsI5BvXNE8hPKD -hH3FbvsJPC5TcCWFcqjAs+0RDgQa8ouXsymbR+r2ZB8isPWz7esmyrL/FZ+q -P0pg/T2jD92Uv/kzuD66E/iOUft+mHL1ZGLyb08C6YNZ7ROUo47zq4v7Eui3 -vePhPGWbwZDGzeeo9Xuoxi9SZjrM2lldILBhb9LRJco/Oo9PeF8k8EnGjNof -yk9MP168FkVgRh9zcoHytSYLiaJYAr8bCxVOUXZiNZe8iCfQaSLJaZTy+oqt -Rl+SCJTOzl3ZS/mXemnv8tsEGs9KlbdQbimQ82LkEIgGn+0fUk6kJy/HAgKl -8sb+ZFA+miKQeqCIQA4OoYxIypuEwzacJwm8OmuwzZ0yR/RcU3IFgeu/nOw3 -odzOdcKh4jGBMUsBIYqU04P6J988IfCPjCWDk/LJOcvI6WfUeiZGn/dS+7XV -87mkUCuBEd1yp0so837RY6t2EFgxPy8bSjm3h/n+WB+BchulYyQp+1ikeEcO -EOi/Y++eYap+8KXgijsjBDKuvRUtpPzx8fzG/gkCjVrIZhXKRVonmxdnCBS5 -OV4yRtVnYPGAo8QvAh8Y77iTQ1k0s+WSNRcDdVdplQtSHhFjSfvwMrCtuayz -jqrvB3EkeV2QgUZFqstOUTYPT/3wUoyBvYyvN55Q/RHl6rHJQJWBX73abxtR -/WTT/+n5QQ0GDrOsbfup/mPa7j8QpM1A/HBHyY/yk13boh4hA72YiaKpVP/+ -Ulndr7afgXYluXpPqX6fvy0ZpunAQNs8IcKY8qyQPFP3EAN1HoxjC5UPEzO6 -J4zcGXg4u0mzqYyEocdH5h2CGRhaPMORRuXNgJpninM4A7OfNXf9P38+ZJ7V -d7vMQONNT8f9qHx6ezE2/PQNBiabiQzuoPLrpemjVVF5DAyQzxZ+VkT1e+1T -MvYeA8/q00RkKTdtaLNOKGWgYVvOAd/7JNSJDKZmVDHQr6y8S5zKwwfvVyo+ -fMVA+W9/3AwKqLw8eRCG5hj4waN9aU02CUkfjw99+c3A6R9qYkjl803zM5Hf -/zJQQLv+6kkqv69pRrX+5JNDgbpbEdW3SQhfJG2FZOVwkp/vk04qVS/R3N76 -xnK4SS6UVhlPgv79oqzERDmccl2h1BJGwnv6/cwdaXL4zKHE6VEotb+JhRmz -mXLYF2PikhtCna9h+emWhXI4bTf6MSCYql+7rORVNXL4wiO/dvk5EpS5b8Zd -GpTDkajXAxVeVD0cOh/qr8rEVdqbuS9S5/HDrnMh8hpM7OD9Na/mQIL17rMX -ujYzcb61pvutHQnxm/2CNgET3wctHmDYkCAo4HV2woKJIzwnyrL2kbC86rC3 -WwATry67b6hH3QemhXc72zQwMatp4NaEKgk9HoyOE8+ZmC+0dENbhaqP5t8Q -0sZEIT0VgyBlEuIC79PuvmVi8XheLYcCCRuHBAZ+jTOxmpZqMSFLgif5+sBt -EXl0VGr+7bSahHHz/Y4jR+VR8MoJwRvTbBiJcbbx4VFAxopKrrRiNniOqzI2 -Ciig1vgRtdD7bFjY+ev799UKuCf/cvqRQuq+xxUf6S6pgE93eZnL57Fh47nG -cmc1BXxfaSV/M50Nwa4KIuZWCijYd+UCPZq6/2379lolUwHPXF5vs+jGBpPJ -AJPP2oqYIuniPSdB3d+O8J4pD1FCA+fuwZ31JdT/hxjn5QZlvHJowM1foRiE -XylcY0+ux5LSMZGG6PsgHVW6T1tbFZf2rktcelQIySq6q0WOqWFss9eFw/MF -8FLSYPPMDXWc/PFjvlAnH7ZKN8RteLsBI1ds4GywyYVVXDm+LuEbMXOM9TMs -PQdkw2j69goaeGcwVJe/NQv45J0qLJ9r4JktR3qfKGeAOkuiNODAJjywkNrc -SE8Dn37hxt0cmrh8wNnsNU8yTM7E7DdJ1kTOEJfn3ftvwc4Nzakmalo4oyEr -kDkUD3UzeosL7VpYcFdLn+YTB56qm/r+cd2MTxNTvP7WxwBr4miXPZ82Nqqb -Bc0+iIIdTPE9gjnaKNs6SZ7eFwlKoVfPNmzZgm5p4jL99uGw3lW3Xr5vC/5X -dYXzDncIuNYdjyg/rYOkmIp916FAqM/qOjq9Thd/JqvQvi35wezdvwsbHumi -gMvytT67feCI/H2+1D1b8SxHTsibXE+YXp+g/WBqK8pyrRmNlXeHytzFwbko -Pcy2sXMyaTsKDkZyqCerj4W2Uoq66i6w1MW7qpGuj9Vyf4o7aC6Q5Trxfrec -Psa+o1X5rHGB0UtVAQ5K+lhiGWX4dtYZfF6Yl57bpI9caU1BkjXOcHVvkGyl -sT4+Z55RjDdzhmq77j9aXvrYpSUupDR+EKROXa5Sf6KPbMUqW7VmR7j2121z -dIM+rjC/sLe31BE4443JL036+GjX2hW3UhxhvIK7MOsFNZ77vgS9U45QzRGR -LPxGH3vGpJWM1jmCw83QgPnP1HjSkrZ6xx0g+fG5zXX8LKzLHD58UcIe1q30 -IPfYslB6KeV0fIEN5BoGB07Zs9DG471/XbwNbAq+ZpjgxEJWysLxxWAb2DvF -7u5xYaGx6IrRAmsbuPR27tcRDxYqt95c/pLTBn7mhGwPDGOhyWP+CaXD+6FP -L+FN/n0WSlzhO8KlZg3H/XLTTUpY+MKvzXCLpDXMlzx0/cZmITH2tTiQxxqE -GT0LGhUsFEhUm9kwZAWmvDLStU9YGEXrXmeVbAU1XflH33Sz0HGJOOXDYwW7 -V1Wq+fewsCCrbzhlzhJ6dr6YF3/PQpIDt3YMW8Js9b9RBz+xUCjE2cn9iSWo -ZW8s/jrOwkFDcyuzQEuo6TPwj/nOwoMmmblfj1vC7rVWsGGKhbUnnoXfsrUE -t8t+//jOsfBkWmyN+GZqvCeXUsV+spCnsoprSs4Swn8nHan+zcJgvo6SbmFL -WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs +1:eJwV13k0lP8XB3CRaCP72MbMGCpLWoQZxr0oZUuEhLIlspQka2VJlkhCQikk +LbaZR5ulEhKylJBKWmiXKCTL1+/5/TXndc5znvOZ+/nc930+dI+Dtl78fHx8 +Ogv4+P7/OznQ0shMLjI8fy0551i1iWH3JUq4UV8snPHPS35NYQBKdXpQ+tJh +lK3QzaWsh5DtN18K9BWCklaeaCbFGMRGZNL/vSTASK1syT6KLbyr3XZw/GU9 +nBH1jX4m4wGmzO9vx152QZ24ZXOyVBD8e6l7bvTlR0js3+gStywWGkyuFT0v +/APdXHE15tV0UHhX9dlDYw7WfLYivHdcAEl/15tCJgK44+TKhle3CyB9nWnN +NnthfC4RMrCw/Sq8yl5bN7ZiORb0Xdw8tuUGJBdFdfLLimGCtMJEb0EpmGvv +F5dSJv1NWl2svBSEG23tV2qKYej6db9NqkshblDljYWRGNa9K1XL6CqFo4y2 +z5n7xfDakueCffxlcCCf8p9qtRgmib4M/edeBjYXeRoWzuL4xGFTSopcOchk +DiZl5EmgvYkfMzG4Aijqt+OmiiWw30e/VOV4BcjVx0ft5kog39d3O2oTKoA6 +uvrIygYJFFv0Za47twJULAPdar5KYK8jXqysq4ANC+d0BjdI4la7gNh0QS5Y +B0sPrW+VxOGGmVQfKy5sX/p14PwLSazM9zBqtuGCbWHVq9l+SWRKSx9mOnDB +4ZlLZ9MvSdxmXmjbtYcLuzWuVDtJSaFAs82kQCAX/Ia0zsa6SeGFIc3gB2e5 +kGBnZtg1KYU7K9+VnO7igtytDjn+BdL4cv9Oy+e9XCiXsPu7bqk0NlBv1a14 +w4Ve8qVnlaQxyaZE+cQgF5g2wQybrdL45NrL5o3jXKi3urzoWY405iiObumS +5MGc6URHu4EM/nbQXvvZlgdpxRElc6YySOwKr77iwAPmIr5ETRsZvH1wx4rd +TjywfLzE6LSXDG5K0KQ2uPMg14RWaZkqgz9vX33gEsgDPbQ4//SdDIpoR/17 +nMKDw6wC15ZYCn7uzxs6WM8D83yRcYsUCvY8eqIe+JgHDKGjiR3nKGho6PXE +v5kHz7odeC+uU5Drs3rWqYMHawKXCQx0ULApyW330tc8+FocWvxbThYz9g6K +1I7ywEVy20/5SllkdG8c2y1PwIbImphLtbKo+SF0/KsiAUs+rpKmN8ni6pQJ +60AaAVUVAqD6ShYd6gJWBKsQIG1RlbZ2XhbVT8vdt9Yi4FkMU3uzhRz2GWX8 +3WlMwKZf0xEHBuWQU2dfV+ZFQPjWTLVHw3LoEW/fXOVNQHmB5muJSTn8QDO0 +r99PAMXOjVUlLI/p2lLzzQEEDN97/FdgjTxSS1Uulh4hICM2LTgnTB5df+SY +tccR0PxmNXM4Rh4tvdRaCuIJmNVueGGYLI/L5C1eBCUSsO/LxPqhPHk0SHua +uCSFALal89iaBnnUbPh8YkUGAR+lVA80LldAvhs90qH5BMgcfKgoI6OAUpV6 +gZKFBFg2O7bvpymg/ZZ+p/IrBNyJSNYQ3aCAM3dvfXpZTMCpd6PfdzkqoPTN +tIEFZQSsv1Hj/atQAcdY/k949wjw5reXMS5VwEc+GECpJuCi80hT5m0FXFUk +VBpZQ8AiEboqu1kBd5w4Pqn7gIDXQfFDcT8VsD2ooj2hgYAYAxt3OT1F7O5y +motrJ2Drnku/dY0VkW3Wod7ZQYBI9I8T9paKuHuM4in1jHx/w8niNDdFXD7G +/HWui4B75tU/FiUpYtvvqbPeZI5F+QsdY2Yo4tj0nHx6HwGmqXYixnmKeC18 +4Na9VwR0Px9Ze4yniEStpfT0GwJGHZVD/rxSxHttH8us3hNwNyJQSGxIEXOG +HjQ6fiDg+MX72WtGFPFbefuo60cClr3fWbOfn4rLtz5J9hgiYKV3Ct97NSqG +8VkN6X0lYM+RiVNtkVSsutXbr/aLAJXzxgrfT1LxR/rBkr+//r/fZ8qE0qio +ktB/sW6UgIjZ1c+Mi6iYdbDph+lvAs6d2CNV1UZFs7urdqhMEOBytaS4t5eK +RsrXbV6QZjyZ0h1/T8UPNcYRxyYJ4C7JcNKaoGLSyAmrpr8EtJ19cvmqohJK +XUiXVpsmz1Ol5LqGlUo4iRBdRdqpx73+/TolvD6fK795hoCvlNkheVPyeW38 +sX2WgAq2WQhruxImth+lPycd4pIltNNJCS8/3nbaao4Agfy1aukHlFD529XF ++v8R0ProWE1FmBImn1ypUEo6bbDVsj1WCb+66frIzhNAXel1UPi8Enp6CPG+ +kmaX59w6/lAJa8I76U4LKmHTy465kWYlXNaWWnaN9Da+hVtcu5QwMPf75Bhp +T9sDr+CTErIYrx4f5a+EA5FXGNwRJbS4Q7W6TzqsqM+PNqWE+RH7zk2TNo2k +R0UL0pCa4efvJ1AJT0Vrr+gtoeHq6I+zl0hvL3JoHhWh4cKODptO0r16Y8PX +JWjY7CrqP0vauT1ZzJ1CQ8efJyxVF1bCe3dVHVlFGj7mXz5uSXrfZJ3TczoN +iflkz0DSP045RyWp0rBWevBCGulApckrRuo0/Gw5kVdGeqIyrfmfFg3Hwop9 +n5CO2Kr+k6dNw6fGb/gHSPO9fSzmy6LhCCPce4z0yUNuOgxDGra678tZIFgJ +SxbNOL02pqGyzKkcEdJpueei0rfQ8NjqNh8KaSmttUXmljQMtJISViKd29Da +zG9DQyVB6zAGaSVHr5/V9jRMv+xZ/X8XDc+LHXaiobSeYef/n1eLydVRd6Xh +tdutd2VJV0htdB70pKF560TwCtLaNzujLvjQMPJ3qdBC0tWGvkU7AmgYGzwQ +OE6uF14sbFkaRMMB13DeB9KN3pd/NoTQsDgloPUpabNZlvjRSLIeuSW1BOmO +tG4d7WgaCv5mJmWRtlM56DwcR0NG3dO1oaRfVS2OLkqiYcS/9Ft2pPdsKypy +SaVh484DUlqkhz4atkhm0PDcLlu7RaRHlgaLn7xIw8vSSwJLyP07nC+iyymg +IbegdVs46SntG84TV0kfCBDdRFpgz0CRVwUNCx/rs5+R5yXxd1iL4i0ammg6 +FZ8lLZIgMdJzj4ZTaThlTZrC3aprWk/DTpMdNg3keczbNOj8XxMNnX3DnMJI +M14di77zlIbn2Tut1Ehr8le2qPbQcLpYfzyOrxKILKuRgVdkvfnwpiZpPfWv +4ucHyPpFzli9IPvB2E7RRegrDR125nlIkX7y9W70w2Eaftqc2MMj+8nymO3V +0DEa9hzawLYgvbM4YeTLNLne+Df9wWQ/+k+NRTcvp6NPoVjRFbKf2Yf2SX8W +pyOEhusqkhb+/rpEgEJHC4soTgbZ/1ffNPQaMuhoKcUtDv5HwMCDcxq3deho +WvRNfDmZH6W6S+q79Om4Vfm4my+ZLxHc4ztHkY6yl13VG8n8kS70jlW3oGPr +1yDDgHECrE+y+gpc6bhh8WjUuTGy3/8rC3i4l45c1Zm3vWS+DYcwBN7up+Pp +QU6jJOlEn6VrKMF0LOgZXRM/QkCdxdsTqYl03Pth+Ar8IOeLeIxWJI+OufZM +UxEyX/mSJxqz79DxkPmmTsogAR0Cvk53aug4Y6LwV4nMY78J25Njj+k47Ees +YpL5XdTHfOP9mo5Z7Ff6C/vJ9V5ujrcTYGDdlw5v5gsChmQ4CkHCDHzS5Xfq +33MCiDQe78xyBq5dR/F8Ss4X69jc/lYZBp5adNbAi5w/iV7+6400GGjp01p1 +qIWAf+orBjTtGXiUKrHmFznPJvPkYjY4MXAme7Y36z4B46IqTJYrA2NHK/z0 +awkY+cPy3bSfgfgb90RWkfO4xnPS6RgD9de3pvVWkvlpcVck8SoDv3QmHJ65 +RkCu3x74OMHA8f3v0xanEnD+rc/HL9MMDDPSSLUh53um9eGTP+cZqFvYV5x1 +ioDUDYlPpxYr4ylqwFpKAgGxM7ydolRlPGnk1DkVRdYnWTDQwFQZw0LLMtcd +IsCgpDQ/K0sZdYO05VNsCHhDK7m8+YIyyrgEmF2yJvc768al8cvKyAwjqOVW +5DyMKb5oe0MZ52QSGprMyP1xzM8WqVVG1YFguX4jAlYLZqbFf1DGszUmStnr +yHq7RkaHaDDRqDPhyh5RAsbEzd0c6pn4l3o88GAjD/r8Gc98nzBxvKZz9uEj +HtQ1TUNUGxMnbR6sFnlIfl9GlChd72Wi9DJ7/ytVPFj7cdm7f9+ZaCF2vZFX +zoMDvM7deRIqGNSYtck1mwffre2dh/aq4BaD8ILFvjwYSnFzCBJSxYHBoG1z +i3hg9ivU7JPOSuT5tXlMsLgw7Cl8+FbUKry1XSk0JaGcvN/I8CfUr8bZazfE +WqJLQbxdNZX7Sw3PzDheDku8CQqJFdt1dDQQ0k6UtTtdh2x11goJb038XEmz +s7cphlY5o41/zq7BcVunQuVdRcBWqE/T6tXC/OWlC8M3F4KIQGGwe+xaHPe8 +3hq6Px+oMUoGu1TXoYJ0/3bHBXmwWMXlju2TdTiczc5ZE50DaziyFaG712Om +hOz66dAsCBoQbzDn24A+Vj+0Nx/OgF9/UuzNsjegcoVbTuNgGmzRaso109RG +uwjLkGaD0/Dgj/7M3w5trDA6O5rRnQgHNNa/fu61Ed9+EdUc0zoJnJG93bsW +6+Ab4W+PmPdiYDOTYrW8UAfV5I8OJrcfg1XRp8LqdXXRsZ5/6AhfOKh5sR6q +vNbF8jVJ528nBIPXA5+4W4f00O9i/azxdCCMBHwP3Rysh992FdtLDQdCmKK/ +X2+IHh6sjCkZexsIp44etJ2K1MPd2las5keBwGWH0Azi9XAmrsJiOCkQZu+c +qG3I1cMrlgX1SxUCIb3i0nhXgx5+sfTqEDpzAB7md+8dk2JhQkGJVliwH7y3 +pLuGUFg4E9osxNrtB3z/AnbNyLFwtUpkxRJTPzC2EdomSGOhxITX1vcyftC0 +gK0rq8bCS3o6F3fU+kKbx+XFRoYsfOAjVGkr7Auvmb7laftYuFGL6RJU6gPj +1+f/at1l4fDoEVVD5X3w2cE0P6mKhZpi8Xy6Yvugb+HprYM1LFyVwU4wmPeC +Gje5nKw6FgoKxBwPeOMFsZSN7LkWFmbbndm+L9MLViT6Hm3tZ2Fhg4FvmbAX +aHj38Hnxs3FgIZXpPu0Jnioli3Ot2CgUuTpjkM8DIh7v8VXdzka3QUHB06Pu +kOYl/pSwZeNnDa67yXt3qL0anvJ0Jxs35qRW9z50B0nVraJz7mz8ab5E8HyU +OzSpfpJ0C2GjY8v+/pAF7qC2SommepmN8ockDCJF3GBMLUOHGGXjMr2GC/fP +u0BfG26W+MNGkS1GX9uPu0DdgZEdwRNszPD6z2bMywVSCbNDOtNsjB+Xtjqk +7QJqbL7SagF9RN6idLsuZ/AwC6A3SOuj+8Djb3liztDtvWVZt4E+Lhi+d/hb +3i64VzTzYSJRHx/mLWv68N0BdEyC/5on66NS5t3Rxl4HuP1heFn+aX20Grte +e7feAQjqgK55uj55P+wWbct1gNLsutOXLuijgnhiYrmFA+SnnGRtKdfH0+kZ +szZce0gKFj2b/UIfNVV9ytrj7MBpkzLqUw0w5pu10zFHW5jrFhZpoBngbxnF +S+dMbSHfa+SNubIB8pmvCLmvbQuf46tCnVYZ4ERf0i19MVsIarGuCF9vgG43 +V2iMtdrAqW1HqfdMDVCvSV1Bx8gGqh17ZrUPGmDXVvu5V3rbQT4goWpNnQGG +/ZmvdS6yhNT5fRuT6w3I7yO3vxlJlsCfbsr70miANrs/3vh4wBK+3xG8kd9i +gMLW13QaWJZQzReXLf7CAFWTbmuceWYBTpnRoZOfDFB5oXrmJn4LyK4J3/hg +KQcX/Lfa/+4RM5Ba4s+z2snBKHe/Dt8cUygyORYxuouDjo8Fd2yKMYX1x1JN +Mlw4+KlNiLFxvylsG+X29Llz0L/Q18aFZQrxvRP/PP05GMeX+fLB680wVRhl +HBHDwWqFzuoG+mZ4rZ/xoriEgxO/a43N6kzA50jRRbNyDra6cbd/uWkCk+W3 +vYa5HLx4Is4295wJiDP6/q67w0HdaybfDf1MwEJYUeF+HQfFN82FRsuYQG13 +8d4XPRxsuutxpeewMZiL3NMM6eNgVaFjcbWrMfRtaZmkvOFgbUVCXKWFMYxX +/0jc856DRfPLU98rG4Nmwdqyb985mFf7aEqlxwhqXxuFpPzkIHVu/dS1R0Zg +LrkDtEY5mNW+zIJTbgT7Eo48D57gIHvtn2sFCUYwXhefKzNF/r+GnLTAYCOI +nT7vWT3NQdd3/Um27kawQvuGxu45DnnfUz2xZZsRXAqonpif5+CDHz/9rPWN +4H+dQ7xY "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06933578210674354}}, + "PlotRange" -> {{0, 30}, {0., 0.07429711390034147}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -14793,19 +15039,19 @@ WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06933578210674354}}, + "PlotRange" -> {{0, 30}, {0., 0.07429711390034147}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -14820,117 +15066,132 @@ WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k0Vd0bB3CREFKUmXvPdU0ZSiTi9jwiJUqGzBUVpYRkKJEhSqFEmTNl -SBnuiYQMhaRIXlGoyJDkLUOmSt5+5/fXWZ911tp77bOf57v3IQ57WbpycnBw -CCzj4Pj/c77/RRMzOnfbaKKPVYi6wbauDPFzBj3hcGGPlGxsJA1w3evD4j3x -sDLk0rxR5Abw33fvHVdPDkT7mQ6vjQRYMyEW/+vdAyjntfzQFmEOAzV7vWbf -NcC9j45fxi4eAmPm+Mfpd50gJH3GJSDUC36923Jr6t0QXDNuFmzyCYFGw4Lc -f3JmQErrui23YRxID1SNHlZdgn8XHawXB5JgrcehezyGXJiQab8jnjsT4jWM -H+/dz4vXy0J2myjdgd7kjU+mVwtijHfijl9m+RCdG/KaU2INEi5ponEuhSB2 -c/hKwm0RfLWOlMaVRSCu8jDiZ74IBquyhnxEikCy4VLIAbYI2t6Y1MmSLgLZ -KWU/xUYRfDtMvzWuXgTyZt7Oj8dEULfg6hjLqgg0ly9pD2uuxYi2D38/phaB -ua/oyKaXa/FLpKPXH/liuGxtsq1zfh2W1+TzBamUgGR5uyTnMlGUrok8MaNZ -AiUi1gsa/KJ4Xu8S/ah+CbztPMi+QRPFlGm9KI09JcC08GVY7BJFvW5NtSDP -EmjYk7miI0UUNV9I8neUlsCS8Vz7K30xvHzcLsJDrRTi8gPvLxmLYfFW2oTA -5lJgruCIUrMQw4MByjfz9UvB7NlKg1hXMVTPuxb/zLQUUg3pZWbXxNCH2bHz -gXsp6KBpUuuAGH7tqF5nnFsKZ3SzD70IF8dnBz6NKK9kw+6sVbOmMeJoFFPe -aSXIBgZPUFT7LXGMnzR5HriaDR1dNuSbu+Koy63ZVC/KBnVvAa7+dnHc1BnN -pyDHhrH8gPwfkhL40aCy8IgeG5zW7v0uVSaBQeeZ93Lc2aB5/nFYRo0EPtWM -xlMebFg5pCRKNEug+Jdt77W82FBVygUKvRJYey5Q5rEvG0RNq+I2/pXAT15T -XXdCqPnDmFo7TCWRP0tt9ehNNhhN/g70HJbEeSDH1GrZcG7XzfVPv0ni2kT/ -rzH1bCjJVusTmZdEpqW14NenbBC3dtat4pVC5hV2XXIzG75VPlvgUpfCtN3B -L7tfsyEhPM435awUiqyJud08yIahdQqeTYLSmOM9KRLBRYKYV72MmJg0xv4W -Ji9zk2DWYvfKnS6Npaei/aJ4SKgIjFYV0pTGD03afmH8JFwdmBq3t5PGKOUm -awsREjYVPj42mSONnF13nh5nkBCmb+EiqSODadpZgwHbSNh1MOPHlu0y+E2/ -ocMISVgV+u/F/WYy6Bhd4blqOwnpjZH5cc4y2B8XVpm0g4TK3dX/rrgig1ft -WmPDzUiYspPzn+mVQZE3bxKq7El4FOjNs2ZEBo9pdKRbOJJwIb02WX1CBmta -GxxGnUgQ+GT72J1TFpXHtBe4nUlQPBbD8Wm9LA4N7ayTcSPhoN/c1bbzsjhr -+vBL6WkS5JO2S49HyqJH6T5fkTMk9f2uF/PEyWJWK3ftGV8SAv8od2zPlUUH -m7sR6wNIuHXx4LqqNllcznHmt3cQCW03nmfmydBwl477lMslEhLK1mo0KtIw -NUIt8MZlEhy6XRo+adDQIU+xpTaKhDHxPyNSxjQsqPz8QCCaBK6sjevjPWn4 -UbCn8+J1EraWpJRfqKehSLp09bskEozetS9NtNDQLSCBuzGZhL0cy3ce6qTh -77uqUfdTSDhi6dkLn2lIJFdo+aaRYHyeCAnlpmMW57DOSAYJrUI1d3RW0jFo -DcO0KpOEfbk2LVOr6HjupH9ydBYJjq+i17iI01H3vOuoYg4J3rT5OwYqdIxw -YR+APBLmyuJafm2gY4P9mM1/lAN3qXwntehoq2J9vTqfhMjTztqMbXT85+Rw -/fq7JKQ2vmzhtKDjja0v1cfvkdB0LPN7oz8dh5O0aj+XkmDyR1c46Dwda/mt -x8+ySWiP69LWCqVjidvRQ3wkCb1VfKG5V6j5Fm/LMR6QMMHvKxyZTkeTgYtM -zXISzmSt2sLKpmMZa3M2m/JPrULHuTw6Ho31PaHykPqeB/tzXUvpqFC4MCJe -QYI4e9cW4wY62n0ovvrmEQm3jYYd/2um4xX740F6lSQweoNDK1rpKBfmX59F -WY2z7IVCNx3/u/VH70gVCQ8S90z099LxlG+x/xPKOipjwkn9dOzsl+OWqiZh -u7WME88YHQ/z9tFaKD8fexRa/42Oa+7ZFks+pvop2DIvYJqOP9NEb5ygbJt/ -eeLLbzqKzvQd4KwhwePndGiLIIHe4hqywrXU/p92Ex0VJtAkLd3fmjLveN99 -LnECYyt5yhMo571vfLuNQWCnitIgbx0JvtY6Hk6KBOoZR3Zuo7z9VdGyQFUC -S8I1ik5T7q+7pfpQm0DXyddS7ZSLtqxs6NQjcLu3d9kC5UD2BdspJFC1rEZb -tp7qV+WZb4LGBAZ/ic03oCyacyxcxZRARf46rsOURyQ/iJnsI5BvXNE8hPKD -hH3FbvsJPC5TcCWFcqjAs+0RDgQa8ouXsymbR+r2ZB8isPWz7esmyrL/FZ+q -P0pg/T2jD92Uv/kzuD66E/iOUft+mHL1ZGLyb08C6YNZ7ROUo47zq4v7Eui3 -vePhPGWbwZDGzeeo9Xuoxi9SZjrM2lldILBhb9LRJco/Oo9PeF8k8EnGjNof -yk9MP168FkVgRh9zcoHytSYLiaJYAr8bCxVOUXZiNZe8iCfQaSLJaZTy+oqt -Rl+SCJTOzl3ZS/mXemnv8tsEGs9KlbdQbimQ82LkEIgGn+0fUk6kJy/HAgKl -8sb+ZFA+miKQeqCIQA4OoYxIypuEwzacJwm8OmuwzZ0yR/RcU3IFgeu/nOw3 -odzOdcKh4jGBMUsBIYqU04P6J988IfCPjCWDk/LJOcvI6WfUeiZGn/dS+7XV -87mkUCuBEd1yp0so837RY6t2EFgxPy8bSjm3h/n+WB+BchulYyQp+1ikeEcO -EOi/Y++eYap+8KXgijsjBDKuvRUtpPzx8fzG/gkCjVrIZhXKRVonmxdnCBS5 -OV4yRtVnYPGAo8QvAh8Y77iTQ1k0s+WSNRcDdVdplQtSHhFjSfvwMrCtuayz -jqrvB3EkeV2QgUZFqstOUTYPT/3wUoyBvYyvN55Q/RHl6rHJQJWBX73abxtR -/WTT/+n5QQ0GDrOsbfup/mPa7j8QpM1A/HBHyY/yk13boh4hA72YiaKpVP/+ -Ulndr7afgXYluXpPqX6fvy0ZpunAQNs8IcKY8qyQPFP3EAN1HoxjC5UPEzO6 -J4zcGXg4u0mzqYyEocdH5h2CGRhaPMORRuXNgJpninM4A7OfNXf9P38+ZJ7V -d7vMQONNT8f9qHx6ezE2/PQNBiabiQzuoPLrpemjVVF5DAyQzxZ+VkT1e+1T -MvYeA8/q00RkKTdtaLNOKGWgYVvOAd/7JNSJDKZmVDHQr6y8S5zKwwfvVyo+ -fMVA+W9/3AwKqLw8eRCG5hj4waN9aU02CUkfjw99+c3A6R9qYkjl803zM5Hf -/zJQQLv+6kkqv69pRrX+5JNDgbpbEdW3SQhfJG2FZOVwkp/vk04qVS/R3N76 -xnK4SS6UVhlPgv79oqzERDmccl2h1BJGwnv6/cwdaXL4zKHE6VEotb+JhRmz -mXLYF2PikhtCna9h+emWhXI4bTf6MSCYql+7rORVNXL4wiO/dvk5EpS5b8Zd -GpTDkajXAxVeVD0cOh/qr8rEVdqbuS9S5/HDrnMh8hpM7OD9Na/mQIL17rMX -ujYzcb61pvutHQnxm/2CNgET3wctHmDYkCAo4HV2woKJIzwnyrL2kbC86rC3 -WwATry67b6hH3QemhXc72zQwMatp4NaEKgk9HoyOE8+ZmC+0dENbhaqP5t8Q -0sZEIT0VgyBlEuIC79PuvmVi8XheLYcCCRuHBAZ+jTOxmpZqMSFLgif5+sBt -EXl0VGr+7bSahHHz/Y4jR+VR8MoJwRvTbBiJcbbx4VFAxopKrrRiNniOqzI2 -Ciig1vgRtdD7bFjY+ev799UKuCf/cvqRQuq+xxUf6S6pgE93eZnL57Fh47nG -cmc1BXxfaSV/M50Nwa4KIuZWCijYd+UCPZq6/2379lolUwHPXF5vs+jGBpPJ -AJPP2oqYIuniPSdB3d+O8J4pD1FCA+fuwZ31JdT/hxjn5QZlvHJowM1foRiE -XylcY0+ux5LSMZGG6PsgHVW6T1tbFZf2rktcelQIySq6q0WOqWFss9eFw/MF -8FLSYPPMDXWc/PFjvlAnH7ZKN8RteLsBI1ds4GywyYVVXDm+LuEbMXOM9TMs -PQdkw2j69goaeGcwVJe/NQv45J0qLJ9r4JktR3qfKGeAOkuiNODAJjywkNrc -SE8Dn37hxt0cmrh8wNnsNU8yTM7E7DdJ1kTOEJfn3ftvwc4Nzakmalo4oyEr -kDkUD3UzeosL7VpYcFdLn+YTB56qm/r+cd2MTxNTvP7WxwBr4miXPZ82Nqqb -Bc0+iIIdTPE9gjnaKNs6SZ7eFwlKoVfPNmzZgm5p4jL99uGw3lW3Xr5vC/5X -dYXzDncIuNYdjyg/rYOkmIp916FAqM/qOjq9Thd/JqvQvi35wezdvwsbHumi -gMvytT67feCI/H2+1D1b8SxHTsibXE+YXp+g/WBqK8pyrRmNlXeHytzFwbko -Pcy2sXMyaTsKDkZyqCerj4W2Uoq66i6w1MW7qpGuj9Vyf4o7aC6Q5Trxfrec -Psa+o1X5rHGB0UtVAQ5K+lhiGWX4dtYZfF6Yl57bpI9caU1BkjXOcHVvkGyl -sT4+Z55RjDdzhmq77j9aXvrYpSUupDR+EKROXa5Sf6KPbMUqW7VmR7j2121z -dIM+rjC/sLe31BE4443JL036+GjX2hW3UhxhvIK7MOsFNZ77vgS9U45QzRGR -LPxGH3vGpJWM1jmCw83QgPnP1HjSkrZ6xx0g+fG5zXX8LKzLHD58UcIe1q30 -IPfYslB6KeV0fIEN5BoGB07Zs9DG471/XbwNbAq+ZpjgxEJWysLxxWAb2DvF -7u5xYaGx6IrRAmsbuPR27tcRDxYqt95c/pLTBn7mhGwPDGOhyWP+CaXD+6FP -L+FN/n0WSlzhO8KlZg3H/XLTTUpY+MKvzXCLpDXMlzx0/cZmITH2tTiQxxqE -GT0LGhUsFEhUm9kwZAWmvDLStU9YGEXrXmeVbAU1XflH33Sz0HGJOOXDYwW7 -V1Wq+fewsCCrbzhlzhJ6dr6YF3/PQpIDt3YMW8Js9b9RBz+xUCjE2cn9iSWo -ZW8s/jrOwkFDcyuzQEuo6TPwj/nOwoMmmblfj1vC7rVWsGGKhbUnnoXfsrUE -t8t+//jOsfBkWmyN+GZqvCeXUsV+spCnsoprSs4Swn8nHan+zcJgvo6SbmFL -WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs +1:eJwV13k0lP8XB3CRaCP72MbMGCpLWoQZxr0oZUuEhLIlspQka2VJlkhCQikk +LbaZR5ulEhKylJBKWmiXKCTL1+/5/TXndc5znvOZ+/nc930+dI+Dtl78fHx8 +Ogv4+P7/OznQ0shMLjI8fy0551i1iWH3JUq4UV8snPHPS35NYQBKdXpQ+tJh +lK3QzaWsh5DtN18K9BWCklaeaCbFGMRGZNL/vSTASK1syT6KLbyr3XZw/GU9 +nBH1jX4m4wGmzO9vx152QZ24ZXOyVBD8e6l7bvTlR0js3+gStywWGkyuFT0v +/APdXHE15tV0UHhX9dlDYw7WfLYivHdcAEl/15tCJgK44+TKhle3CyB9nWnN +NnthfC4RMrCw/Sq8yl5bN7ZiORb0Xdw8tuUGJBdFdfLLimGCtMJEb0EpmGvv +F5dSJv1NWl2svBSEG23tV2qKYej6db9NqkshblDljYWRGNa9K1XL6CqFo4y2 +z5n7xfDakueCffxlcCCf8p9qtRgmib4M/edeBjYXeRoWzuL4xGFTSopcOchk +DiZl5EmgvYkfMzG4Aijqt+OmiiWw30e/VOV4BcjVx0ft5kog39d3O2oTKoA6 +uvrIygYJFFv0Za47twJULAPdar5KYK8jXqysq4ANC+d0BjdI4la7gNh0QS5Y +B0sPrW+VxOGGmVQfKy5sX/p14PwLSazM9zBqtuGCbWHVq9l+SWRKSx9mOnDB +4ZlLZ9MvSdxmXmjbtYcLuzWuVDtJSaFAs82kQCAX/Ia0zsa6SeGFIc3gB2e5 +kGBnZtg1KYU7K9+VnO7igtytDjn+BdL4cv9Oy+e9XCiXsPu7bqk0NlBv1a14 +w4Ve8qVnlaQxyaZE+cQgF5g2wQybrdL45NrL5o3jXKi3urzoWY405iiObumS +5MGc6URHu4EM/nbQXvvZlgdpxRElc6YySOwKr77iwAPmIr5ETRsZvH1wx4rd +TjywfLzE6LSXDG5K0KQ2uPMg14RWaZkqgz9vX33gEsgDPbQ4//SdDIpoR/17 +nMKDw6wC15ZYCn7uzxs6WM8D83yRcYsUCvY8eqIe+JgHDKGjiR3nKGho6PXE +v5kHz7odeC+uU5Drs3rWqYMHawKXCQx0ULApyW330tc8+FocWvxbThYz9g6K +1I7ywEVy20/5SllkdG8c2y1PwIbImphLtbKo+SF0/KsiAUs+rpKmN8ni6pQJ +60AaAVUVAqD6ShYd6gJWBKsQIG1RlbZ2XhbVT8vdt9Yi4FkMU3uzhRz2GWX8 +3WlMwKZf0xEHBuWQU2dfV+ZFQPjWTLVHw3LoEW/fXOVNQHmB5muJSTn8QDO0 +r99PAMXOjVUlLI/p2lLzzQEEDN97/FdgjTxSS1Uulh4hICM2LTgnTB5df+SY +tccR0PxmNXM4Rh4tvdRaCuIJmNVueGGYLI/L5C1eBCUSsO/LxPqhPHk0SHua +uCSFALal89iaBnnUbPh8YkUGAR+lVA80LldAvhs90qH5BMgcfKgoI6OAUpV6 +gZKFBFg2O7bvpymg/ZZ+p/IrBNyJSNYQ3aCAM3dvfXpZTMCpd6PfdzkqoPTN +tIEFZQSsv1Hj/atQAcdY/k949wjw5reXMS5VwEc+GECpJuCi80hT5m0FXFUk +VBpZQ8AiEboqu1kBd5w4Pqn7gIDXQfFDcT8VsD2ooj2hgYAYAxt3OT1F7O5y +motrJ2Drnku/dY0VkW3Wod7ZQYBI9I8T9paKuHuM4in1jHx/w8niNDdFXD7G +/HWui4B75tU/FiUpYtvvqbPeZI5F+QsdY2Yo4tj0nHx6HwGmqXYixnmKeC18 +4Na9VwR0Px9Ze4yniEStpfT0GwJGHZVD/rxSxHttH8us3hNwNyJQSGxIEXOG +HjQ6fiDg+MX72WtGFPFbefuo60cClr3fWbOfn4rLtz5J9hgiYKV3Ct97NSqG +8VkN6X0lYM+RiVNtkVSsutXbr/aLAJXzxgrfT1LxR/rBkr+//r/fZ8qE0qio +ktB/sW6UgIjZ1c+Mi6iYdbDph+lvAs6d2CNV1UZFs7urdqhMEOBytaS4t5eK +RsrXbV6QZjyZ0h1/T8UPNcYRxyYJ4C7JcNKaoGLSyAmrpr8EtJ19cvmqohJK +XUiXVpsmz1Ol5LqGlUo4iRBdRdqpx73+/TolvD6fK795hoCvlNkheVPyeW38 +sX2WgAq2WQhruxImth+lPycd4pIltNNJCS8/3nbaao4Agfy1aukHlFD529XF ++v8R0ProWE1FmBImn1ypUEo6bbDVsj1WCb+66frIzhNAXel1UPi8Enp6CPG+ +kmaX59w6/lAJa8I76U4LKmHTy465kWYlXNaWWnaN9Da+hVtcu5QwMPf75Bhp +T9sDr+CTErIYrx4f5a+EA5FXGNwRJbS4Q7W6TzqsqM+PNqWE+RH7zk2TNo2k +R0UL0pCa4efvJ1AJT0Vrr+gtoeHq6I+zl0hvL3JoHhWh4cKODptO0r16Y8PX +JWjY7CrqP0vauT1ZzJ1CQ8efJyxVF1bCe3dVHVlFGj7mXz5uSXrfZJ3TczoN +iflkz0DSP045RyWp0rBWevBCGulApckrRuo0/Gw5kVdGeqIyrfmfFg3Hwop9 +n5CO2Kr+k6dNw6fGb/gHSPO9fSzmy6LhCCPce4z0yUNuOgxDGra678tZIFgJ +SxbNOL02pqGyzKkcEdJpueei0rfQ8NjqNh8KaSmttUXmljQMtJISViKd29Da +zG9DQyVB6zAGaSVHr5/V9jRMv+xZ/X8XDc+LHXaiobSeYef/n1eLydVRd6Xh +tdutd2VJV0htdB70pKF560TwCtLaNzujLvjQMPJ3qdBC0tWGvkU7AmgYGzwQ +OE6uF14sbFkaRMMB13DeB9KN3pd/NoTQsDgloPUpabNZlvjRSLIeuSW1BOmO +tG4d7WgaCv5mJmWRtlM56DwcR0NG3dO1oaRfVS2OLkqiYcS/9Ft2pPdsKypy +SaVh484DUlqkhz4atkhm0PDcLlu7RaRHlgaLn7xIw8vSSwJLyP07nC+iyymg +IbegdVs46SntG84TV0kfCBDdRFpgz0CRVwUNCx/rs5+R5yXxd1iL4i0ammg6 +FZ8lLZIgMdJzj4ZTaThlTZrC3aprWk/DTpMdNg3keczbNOj8XxMNnX3DnMJI +M14di77zlIbn2Tut1Ehr8le2qPbQcLpYfzyOrxKILKuRgVdkvfnwpiZpPfWv +4ucHyPpFzli9IPvB2E7RRegrDR125nlIkX7y9W70w2Eaftqc2MMj+8nymO3V +0DEa9hzawLYgvbM4YeTLNLne+Df9wWQ/+k+NRTcvp6NPoVjRFbKf2Yf2SX8W +pyOEhusqkhb+/rpEgEJHC4soTgbZ/1ffNPQaMuhoKcUtDv5HwMCDcxq3deho +WvRNfDmZH6W6S+q79Om4Vfm4my+ZLxHc4ztHkY6yl13VG8n8kS70jlW3oGPr +1yDDgHECrE+y+gpc6bhh8WjUuTGy3/8rC3i4l45c1Zm3vWS+DYcwBN7up+Pp +QU6jJOlEn6VrKMF0LOgZXRM/QkCdxdsTqYl03Pth+Ar8IOeLeIxWJI+OufZM +UxEyX/mSJxqz79DxkPmmTsogAR0Cvk53aug4Y6LwV4nMY78J25Njj+k47Ees +YpL5XdTHfOP9mo5Z7Ff6C/vJ9V5ujrcTYGDdlw5v5gsChmQ4CkHCDHzS5Xfq +33MCiDQe78xyBq5dR/F8Ss4X69jc/lYZBp5adNbAi5w/iV7+6400GGjp01p1 +qIWAf+orBjTtGXiUKrHmFznPJvPkYjY4MXAme7Y36z4B46IqTJYrA2NHK/z0 +awkY+cPy3bSfgfgb90RWkfO4xnPS6RgD9de3pvVWkvlpcVck8SoDv3QmHJ65 +RkCu3x74OMHA8f3v0xanEnD+rc/HL9MMDDPSSLUh53um9eGTP+cZqFvYV5x1 +ioDUDYlPpxYr4ylqwFpKAgGxM7ydolRlPGnk1DkVRdYnWTDQwFQZw0LLMtcd +IsCgpDQ/K0sZdYO05VNsCHhDK7m8+YIyyrgEmF2yJvc768al8cvKyAwjqOVW +5DyMKb5oe0MZ52QSGprMyP1xzM8WqVVG1YFguX4jAlYLZqbFf1DGszUmStnr +yHq7RkaHaDDRqDPhyh5RAsbEzd0c6pn4l3o88GAjD/r8Gc98nzBxvKZz9uEj +HtQ1TUNUGxMnbR6sFnlIfl9GlChd72Wi9DJ7/ytVPFj7cdm7f9+ZaCF2vZFX +zoMDvM7deRIqGNSYtck1mwffre2dh/aq4BaD8ILFvjwYSnFzCBJSxYHBoG1z +i3hg9ivU7JPOSuT5tXlMsLgw7Cl8+FbUKry1XSk0JaGcvN/I8CfUr8bZazfE +WqJLQbxdNZX7Sw3PzDheDku8CQqJFdt1dDQQ0k6UtTtdh2x11goJb038XEmz +s7cphlY5o41/zq7BcVunQuVdRcBWqE/T6tXC/OWlC8M3F4KIQGGwe+xaHPe8 +3hq6Px+oMUoGu1TXoYJ0/3bHBXmwWMXlju2TdTiczc5ZE50DaziyFaG712Om +hOz66dAsCBoQbzDn24A+Vj+0Nx/OgF9/UuzNsjegcoVbTuNgGmzRaso109RG +uwjLkGaD0/Dgj/7M3w5trDA6O5rRnQgHNNa/fu61Ed9+EdUc0zoJnJG93bsW +6+Ab4W+PmPdiYDOTYrW8UAfV5I8OJrcfg1XRp8LqdXXRsZ5/6AhfOKh5sR6q +vNbF8jVJ528nBIPXA5+4W4f00O9i/azxdCCMBHwP3Rysh992FdtLDQdCmKK/ +X2+IHh6sjCkZexsIp44etJ2K1MPd2las5keBwGWH0Azi9XAmrsJiOCkQZu+c +qG3I1cMrlgX1SxUCIb3i0nhXgx5+sfTqEDpzAB7md+8dk2JhQkGJVliwH7y3 +pLuGUFg4E9osxNrtB3z/AnbNyLFwtUpkxRJTPzC2EdomSGOhxITX1vcyftC0 +gK0rq8bCS3o6F3fU+kKbx+XFRoYsfOAjVGkr7Auvmb7laftYuFGL6RJU6gPj +1+f/at1l4fDoEVVD5X3w2cE0P6mKhZpi8Xy6Yvugb+HprYM1LFyVwU4wmPeC +Gje5nKw6FgoKxBwPeOMFsZSN7LkWFmbbndm+L9MLViT6Hm3tZ2Fhg4FvmbAX +aHj38Hnxs3FgIZXpPu0Jnioli3Ot2CgUuTpjkM8DIh7v8VXdzka3QUHB06Pu +kOYl/pSwZeNnDa67yXt3qL0anvJ0Jxs35qRW9z50B0nVraJz7mz8ab5E8HyU +OzSpfpJ0C2GjY8v+/pAF7qC2SommepmN8ockDCJF3GBMLUOHGGXjMr2GC/fP +u0BfG26W+MNGkS1GX9uPu0DdgZEdwRNszPD6z2bMywVSCbNDOtNsjB+Xtjqk +7QJqbL7SagF9RN6idLsuZ/AwC6A3SOuj+8Djb3liztDtvWVZt4E+Lhi+d/hb +3i64VzTzYSJRHx/mLWv68N0BdEyC/5on66NS5t3Rxl4HuP1heFn+aX20Grte +e7feAQjqgK55uj55P+wWbct1gNLsutOXLuijgnhiYrmFA+SnnGRtKdfH0+kZ +szZce0gKFj2b/UIfNVV9ytrj7MBpkzLqUw0w5pu10zFHW5jrFhZpoBngbxnF +S+dMbSHfa+SNubIB8pmvCLmvbQuf46tCnVYZ4ERf0i19MVsIarGuCF9vgG43 +V2iMtdrAqW1HqfdMDVCvSV1Bx8gGqh17ZrUPGmDXVvu5V3rbQT4goWpNnQGG +/ZmvdS6yhNT5fRuT6w3I7yO3vxlJlsCfbsr70miANrs/3vh4wBK+3xG8kd9i +gMLW13QaWJZQzReXLf7CAFWTbmuceWYBTpnRoZOfDFB5oXrmJn4LyK4J3/hg +KQcX/Lfa/+4RM5Ba4s+z2snBKHe/Dt8cUygyORYxuouDjo8Fd2yKMYX1x1JN +Mlw4+KlNiLFxvylsG+X29Llz0L/Q18aFZQrxvRP/PP05GMeX+fLB680wVRhl +HBHDwWqFzuoG+mZ4rZ/xoriEgxO/a43N6kzA50jRRbNyDra6cbd/uWkCk+W3 +vYa5HLx4Is4295wJiDP6/q67w0HdaybfDf1MwEJYUeF+HQfFN82FRsuYQG13 +8d4XPRxsuutxpeewMZiL3NMM6eNgVaFjcbWrMfRtaZmkvOFgbUVCXKWFMYxX +/0jc856DRfPLU98rG4Nmwdqyb985mFf7aEqlxwhqXxuFpPzkIHVu/dS1R0Zg +LrkDtEY5mNW+zIJTbgT7Eo48D57gIHvtn2sFCUYwXhefKzNF/r+GnLTAYCOI +nT7vWT3NQdd3/Um27kawQvuGxu45DnnfUz2xZZsRXAqonpif5+CDHz/9rPWN +4H+dQ7xY "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06933578210674354}}, + "PlotRange" -> {{0, 30}, {0., 0.07429711390034147}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -14940,18 +15201,17 @@ WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs InterpretationBox[{ TagBox[ TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ - 0.012833333333333334`], AbsoluteThickness[2], - PointBox[CompressedData[" -1:eJxTTMoPSmViYGCQB2IQDQN7WJbbTdgz2R7C+2D/vD8zV+r2aiifwWHjEeZT -y2K2QvkcDi9yGBd+/bATyhdwUFEX3s6VtAfKF3H4suLHfmUtGF/CwTj3/ymv -ybugfBmHIqlFXPVt26F8BYfX4Vby81S3QPlKDk4qzn1r0zdA+SoODEzXVsUK -r4Ly1Rwc9O/sNLi0GMrXcODTcT/hMG8ulK/lEHhLuibRaCqUr+Mg9OPw+Xr+ -Pihfz2HdzsX/n0a1QPkGDtI7mEtPLa6G8g0dmqwDltvsKoTyjRyW9OxgMPFK -h/KNHZinfnxvrBcD5Zs4cN168sFTPQjKN3XIOOVnv6LbBco3c5j5SXGF1F4r -KN/cwf/UkjYzBm0o38Kh87Lntl1zlKB8S4erZ6K4PH7zQ/lWDiFPBAqLtTih -fGuH7fF2kYYxb+0gfBsH+9Vnply7/wnKt3VgQAF2Dr1vty74fuyBHQAPh36Q - + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ "]]}, Annotation[#, "Charting`Private`Tag#1"]& ], {"WolframDynamicHighlight", <| @@ -14965,36 +15225,36 @@ fGuH7fF2kYYxb+0gfBsH+9Vnply7/wnKt3VgQAF2Dr1vty74fuyBHQAPh36Q Annotation[{ Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Point[CompressedData[" -1:eJxTTMoPSmViYGCQB2IQDQN7WJbbTdgz2R7C+2D/vD8zV+r2aiifwWHjEeZT -y2K2QvkcDi9yGBd+/bATyhdwUFEX3s6VtAfKF3H4suLHfmUtGF/CwTj3/ymv -ybugfBmHIqlFXPVt26F8BYfX4Vby81S3QPlKDk4qzn1r0zdA+SoODEzXVsUK -r4Ly1Rwc9O/sNLi0GMrXcODTcT/hMG8ulK/lEHhLuibRaCqUr+Mg9OPw+Xr+ -Pihfz2HdzsX/n0a1QPkGDtI7mEtPLa6G8g0dmqwDltvsKoTyjRyW9OxgMPFK -h/KNHZinfnxvrBcD5Zs4cN168sFTPQjKN3XIOOVnv6LbBco3c5j5SXGF1F4r -KN/cwf/UkjYzBm0o38Kh87Lntl1zlKB8S4erZ6K4PH7zQ/lWDiFPBAqLtTih -fGuH7fF2kYYxb+0gfBsH+9Vnply7/wnKt3VgQAF2Dr1vty74fuyBHQAPh36Q - +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30.}, {0, 0.110871}}, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -15006,19 +15266,19 @@ fGuH7fF2kYYxb+0gfBsH+9Vnply7/wnKt3VgQAF2Dr1vty74fuyBHQAPh36Q "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30.}, {0, 0.110871}}, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -15033,35 +15293,35 @@ fGuH7fF2kYYxb+0gfBsH+9Vnply7/wnKt3VgQAF2Dr1vty74fuyBHQAPh36Q Annotation[{ Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Point[CompressedData[" -1:eJxTTMoPSmViYGCQB2IQDQN7WJbbTdgz2R7C+2D/vD8zV+r2aiifwWHjEeZT -y2K2QvkcDi9yGBd+/bATyhdwUFEX3s6VtAfKF3H4suLHfmUtGF/CwTj3/ymv -ybugfBmHIqlFXPVt26F8BYfX4Vby81S3QPlKDk4qzn1r0zdA+SoODEzXVsUK -r4Ly1Rwc9O/sNLi0GMrXcODTcT/hMG8ulK/lEHhLuibRaCqUr+Mg9OPw+Xr+ -Pihfz2HdzsX/n0a1QPkGDtI7mEtPLa6G8g0dmqwDltvsKoTyjRyW9OxgMPFK -h/KNHZinfnxvrBcD5Zs4cN168sFTPQjKN3XIOOVnv6LbBco3c5j5SXGF1F4r -KN/cwf/UkjYzBm0o38Kh87Lntl1zlKB8S4erZ6K4PH7zQ/lWDiFPBAqLtTih -fGuH7fF2kYYxb+0gfBsH+9Vnply7/wnKt3VgQAF2Dr1vty74fuyBHQAPh36Q - +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ "]]}, "Charting`Private`Tag#1"]}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.110871}}, + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ PointSize[0.012833333333333334`], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -15073,6 +15333,7 @@ fGuH7fF2kYYxb+0gfBsH+9Vnply7/wnKt3VgQAF2Dr1vty74fuyBHQAPh36Q Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -15100,7 +15361,8 @@ fGuH7fF2kYYxb+0gfBsH+9Vnply7/wnKt3VgQAF2Dr1vty74fuyBHQAPh36Q Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06933578210674354}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07429711390034147}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -15108,9 +15370,9 @@ fGuH7fF2kYYxb+0gfBsH+9Vnply7/wnKt3VgQAF2Dr1vty74fuyBHQAPh36Q Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.993129007968964*^9}, + CellChangeTimes->{3.993129007968964*^9, 3.993828982990947*^9}, CellLabel-> - "(Debug) Out[327]=",ExpressionUUID->"1b3f0e6c-e600-42f2-84ec-8d3b68e20971"] + "Out[139]=",ExpressionUUID->"54a00ac2-a4db-442f-ac37-95c3f44a2c4b"] }, Open ]], Cell[CellGroupData[{ @@ -15163,57 +15425,74 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "(Debug) In[328]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + "In[140]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], Cell[BoxData[ TemplateBox[{ - "Integrate", "intnest", - "\"The integral \\!\\(\\*RowBox[{SubsuperscriptBox[\\\"\[Integral]\\\", \\\ -\"0\\\", \\\"\[Infinity]\\\"], \ -TagBox[RowBox[{TagBox[FractionBox[TagBox[RowBox[{\\\"4\\\", \\\"*\\\", \ -\\\"x\\\", \\\"*\\\", \\\"x\\\", \\\"*\\\", \\\"y\\\", \\\"*\\\", \\\"\[Pi]\\\ -\", \\\"*\\\", TagBox[RowBox[{\\\"(\\\", \ -TagBox[RowBox[{TagBox[UnderoverscriptBox[\\\"\[Sum]\\\", TagBox[RowBox[{\\\"n\ -\\\", \\\"=\\\", \\\"0\\\"}], DebugTag[224561]], \\\"100\\\"], \ -DebugTag[224545]], \ -TagBox[RowBox[{TagBox[SuperscriptBox[TagBox[RowBox[{\\\"(\\\", \ -TagBox[FractionBox[TagBox[RowBox[{\\\"2\\\", TagBox[RowBox[{\\\"(\\\", \ -TagBox[FractionBox[\\\"h2\\\", \\\"Cb\\\"], DebugTag[224673]], \\\")\\\"}], \ -DebugTag[224657]], \\\"*\\\", \\\"x\\\", \\\"*\\\", \\\"y\\\"}], \ -DebugTag[224641]], \\\"2\\\"], DebugTag[224625]], \\\")\\\"}], \ -DebugTag[224609]], TagBox[RowBox[{\\\"2\\\", \\\"*\\\", \\\"n\\\"}], \ -DebugTag[224689]]], DebugTag[224593]], \\\"*\\\", \ -TagBox[SuperscriptBox[TagBox[RowBox[{\\\"(\\\", TagBox[FractionBox[\\\"1\\\", \ -TagBox[RowBox[{\\\"Factorial\\\", \\\"[\\\", \\\"n\\\", \\\"]\\\"}], \ -DebugTag[224753]]], DebugTag[224737]], \\\")\\\"}], DebugTag[224721]], \ -\\\"2\\\"], DebugTag[224705]]}], DebugTag[224577]]}], DebugTag[224529]], \ -\\\")\\\"}], DebugTag[224513]]}], DebugTag[224497]], TagBox[RowBox[{\\\"\[Pi]\ -\\\", \\\"*\\\", \\\"Cw\\\", \\\"*\\\", \\\"Cb\\\"}], DebugTag[224769]]], \ -DebugTag[224481]], \\\"*\\\", TagBox[SuperscriptBox[\\\"\[ExponentialE]\\\", \ -TagBox[RowBox[{TagBox[RowBox[{\\\"-\\\", \ -TagBox[FractionBox[TagBox[SuperscriptBox[TagBox[RowBox[{\\\"(\\\", \\\"x\\\", \ -\\\")\\\"}], DebugTag[224865]], \\\"2\\\"], DebugTag[224849]], \\\"1\\\"], \ -DebugTag[224833]]}], DebugTag[224817]], TagBox[RowBox[{\\\"(\\\", \ -TagBox[RowBox[{TagBox[FractionBox[\\\"1\\\", \\\"Cw\\\"], DebugTag[224913]], \ -\\\"+\\\", TagBox[FractionBox[TagBox[RowBox[{\\\"h2\\\", \\\"*\\\", \ -\\\"h2\\\"}], DebugTag[224945]], \\\"Cb\\\"], DebugTag[224929]]}], \ -DebugTag[224897]], \\\")\\\"}], DebugTag[224881]]}], DebugTag[224801]]], \ -DebugTag[224785]], \\\"*\\\", TagBox[SuperscriptBox[\\\"\[ExponentialE]\\\", \ -TagBox[RowBox[{TagBox[RowBox[{\\\"-\\\", TagBox[FractionBox[TagBox[RowBox[{\\\ -\"y\\\", \\\"*\\\", \\\"y\\\"}], DebugTag[225025]], \\\"1\\\"], \ -DebugTag[225009]]}], DebugTag[224993]], TagBox[RowBox[{\\\"(\\\", \ -TagBox[FractionBox[\\\"1\\\", \\\"Cb\\\"], DebugTag[225057]], \\\")\\\"}], \ -DebugTag[225041]]}], DebugTag[224977]]], DebugTag[224961]], TagBox[RowBox[{\\\ -\"\[DifferentialD]\\\", \\\"y\\\"}], DebugTag[225073]], TagBox[RowBox[{\\\"\ -\[DifferentialD]\\\", \\\"x\\\"}], DebugTag[225089]]}], \ -DebugTag[224465]]}]\\) cannot be interpreted. The number of definite and \ -indefinite integral operators must match the number of differential \ -operators.\"", 2, 328, 95, 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133920579224*^9, 3.993129007991238*^9}, + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.107218463884705`*^-161\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 140, 73, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993129007991238*^9, + 3.993828983013032*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[328]:=",ExpressionUUID->"06262046-f098-46f5-855f-35dcfeea8d7e"] + "During evaluation of \ +In[140]:=",ExpressionUUID->"43e6966e-7f59-4021-9c1a-698a217a3c35"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1222813114095932`*^-163\\\", \ +\\\"16424312045547973917068250855478962797836184904556443340043143969743430318\ +444318157938322185531163516963194464925547245426704384000000000000000000000000\ +00\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 140, 74, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993129007991238*^9, + 3.993828983017535*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"60da9307-9e8c-4988-befc-9d79d0287ad9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5535727173876088`*^-166\\\", \ +\\\"55251385721223384257017595877831230851920926018927875395905136314216899591\ +246686283304515832126834071064186180009540933615433547776000000000000000000000\ +00000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 140, 75, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993129007991238*^9, + 3.993828983021819*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"06093306-be42-4892-9e74-b8450e4453b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 140, 76, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99133920579224*^9, 3.993129007991238*^9, + 3.993828983026066*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"38a050de-1651-4958-ab6d-97768495cc1e"], + +Cell[BoxData["9.843461398704681`"], "Output", + CellChangeTimes->{3.99382900698343*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"b3d308f6-d45c-4dec-b9c3-01b93adc1948"] }, Open ]], Cell[CellGroupData[{ @@ -15282,66 +15561,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849547748472*^9, 3.9918495528702526`*^9}}, CellLabel-> - "(Debug) In[328]:=",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], + "In[141]:=",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.447325249968292`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 328, 96, - 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125258827`*^9, 3.993129008005121*^9}, - CellLabel-> - "(Debug) During evaluation of \ -In[328]:=",ExpressionUUID->"dc1b2063-9c6f-4169-a5e1-ca943a0815db"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8975015829005278`*^-207\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.7272638454698027`*^-202\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 328, 97, - 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125258827`*^9, 3.9931290080073547`*^9}, +a normalized machine number; precision may be lost.\"", 2, 141, 77, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993129008005121*^9, + 3.993829007007913*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[328]:=",ExpressionUUID->"bfad3723-f014-4a66-bc1f-5ad06d7e2f41"], + "During evaluation of \ +In[141]:=",ExpressionUUID->"43ea6a2c-ddb3-4b62-a490-43f600477544"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.834638123432755`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.6721072118221974`*^-207\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 328, 98, - 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125258827`*^9, 3.9931290080094833`*^9}, +as a normalized machine number; precision may be lost.\"", 2, 141, 78, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993129008005121*^9, + 3.993829007012341*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[328]:=",ExpressionUUID->"8a6c8e1c-b568-42d8-8ac8-8a30e28c308b"], + "During evaluation of \ +In[141]:=",ExpressionUUID->"9d45a1d6-8553-4178-847f-e32c9a717a96"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.862645380251946`*^-211\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 141, + 79, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993129008005121*^9, + 3.993829007017254*^9}, + CellLabel-> + "During evaluation of \ +In[141]:=",ExpressionUUID->"dd521eff-b497-41f8-8208-5efebed8da48"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 328, 99, 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125258827`*^9, 3.9931290080114393`*^9}, +during this calculation.\"", 2, 141, 80, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392125258827`*^9, 3.993129008005121*^9, + 3.993829007020907*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[328]:=",ExpressionUUID->"7d0985f4-ff53-4006-a651-1dfc9d887795"], + "During evaluation of \ +In[141]:=",ExpressionUUID->"2880a9fb-971c-4403-aa2e-9ff2fe95ccdc"], -Cell[BoxData["1.2757077226181863`"], "Output", - CellChangeTimes->{3.9913392196090164`*^9, 3.993129012789092*^9}, +Cell[BoxData["1.0686729021053252`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.993129012789092*^9, + 3.9938290104699163`*^9}, CellLabel-> - "(Debug) Out[328]=",ExpressionUUID->"d0963cc4-859d-4542-bac8-ed629be0e663"] + "Out[141]=",ExpressionUUID->"c5abd424-c102-481e-85c4-ae78ec52fb5d"] }, Open ]], Cell[CellGroupData[{ @@ -15362,8 +15650,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -15410,66 +15697,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.9918495568340263`*^9, 3.991849559359928*^9}}, CellLabel-> - "(Debug) In[329]:=",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], + "In[142]:=",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.447325249968292`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 329, 100, - 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196440163`*^9, 3.9931290128810787`*^9}, - CellLabel-> - "(Debug) During evaluation of \ -In[329]:=",ExpressionUUID->"47c6abb5-8d1b-4ca0-a440-623ff2d2051a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8975015829005278`*^-207\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.7272638454698027`*^-202\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 329, 101, - 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196440163`*^9, 3.993129012887306*^9}, +a normalized machine number; precision may be lost.\"", 2, 142, 81, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9931290128810787`*^9, + 3.9938290104948273`*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[329]:=",ExpressionUUID->"c3b7ed70-321d-43df-8bee-3161beaa0240"], + "During evaluation of \ +In[142]:=",ExpressionUUID->"189bec77-b924-437a-936e-e8a7ecd6bdac"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.834638123432755`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.6721072118221974`*^-207\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 329, 102, - 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196440163`*^9, 3.993129012890543*^9}, +as a normalized machine number; precision may be lost.\"", 2, 142, 82, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9931290128810787`*^9, + 3.9938290104990797`*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[329]:=",ExpressionUUID->"d0eaa79d-ebe3-4dcf-b550-5b92c118ba2d"], + "During evaluation of \ +In[142]:=",ExpressionUUID->"efde539d-8356-4931-af71-30063dd4a0fb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.862645380251946`*^-211\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 142, + 83, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9931290128810787`*^9, + 3.993829010503063*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"af80defd-45a6-42ed-89cc-9e05857bb768"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 329, 103, 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196440163`*^9, 3.993129012893436*^9}, +during this calculation.\"", 2, 142, 84, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392196440163`*^9, 3.9931290128810787`*^9, + 3.99382901050672*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[329]:=",ExpressionUUID->"0446f28f-a985-49a4-b3a9-17193853e55d"], + "During evaluation of \ +In[142]:=",ExpressionUUID->"b04ea18c-2536-4a57-9871-5fd0f86438fd"], -Cell[BoxData["32.84385297361225`"], "Output", - CellChangeTimes->{3.9913392268711624`*^9, 3.9931290170909977`*^9}, +Cell[BoxData["28.60387466857252`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.9931290170909977`*^9, + 3.993829013846279*^9}, CellLabel-> - "(Debug) Out[329]=",ExpressionUUID->"d4bc6433-9f3b-46d4-a47e-ce1dc8d9f31e"] + "Out[142]=",ExpressionUUID->"00d8ba53-9fa0-4e5e-a09c-36a55e3681fe"] }, Open ]], Cell[CellGroupData[{ @@ -15490,8 +15786,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -15538,66 +15833,75 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.991849563755764*^9, 3.991849566543682*^9}}, CellLabel-> - "(Debug) In[330]:=",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], + "In[143]:=",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.447325249968292`*^-203\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 330, 104, - 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226907137*^9, 3.993129017132255*^9}, - CellLabel-> - "(Debug) During evaluation of \ -In[330]:=",ExpressionUUID->"e461b031-ad96-430d-b27f-92cbab03a5cf"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8975015829005278`*^-207\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.7272638454698027`*^-202\\\", \ \\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ 445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 330, 105, - 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226907137*^9, 3.9931290171359262`*^9}, +a normalized machine number; precision may be lost.\"", 2, 143, 85, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993129017132255*^9, + 3.993829013869603*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[330]:=",ExpressionUUID->"b66a5eed-9a05-4e21-92db-ce2cb6bfbd95"], + "During evaluation of \ +In[143]:=",ExpressionUUID->"5ffdabd9-ab92-4123-88ee-4b2de8e15741"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.834638123432755`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.6721072118221974`*^-207\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 330, 106, - 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226907137*^9, 3.9931290171381683`*^9}, +as a normalized machine number; precision may be lost.\"", 2, 143, 86, + 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993129017132255*^9, + 3.993829013873762*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[330]:=",ExpressionUUID->"66afc9ba-9ad2-4435-b70d-528769fea26d"], + "During evaluation of \ +In[143]:=",ExpressionUUID->"13fe89e9-0084-4036-982a-1a80d8e7713f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.862645380251946`*^-211\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 143, + 87, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993129017132255*^9, + 3.993829013877743*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"de6c92b6-af45-42e5-8595-66eecb0c9e1e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 330, 107, 25985956970763524062, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226907137*^9, 3.993129017140272*^9}, +during this calculation.\"", 2, 143, 88, 31384841579516711335, "kernel 3"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339226907137*^9, 3.993129017132255*^9, + 3.993829013881382*^9}, CellLabel-> - "(Debug) During evaluation of \ -In[330]:=",ExpressionUUID->"bf8c52c9-8f7f-4433-85da-8e8d84989640"], + "During evaluation of \ +In[143]:=",ExpressionUUID->"e6df683e-044a-44eb-be90-72cb3f2bf61e"], -Cell[BoxData["6.419364641545448`"], "Output", - CellChangeTimes->{3.9913392304284153`*^9, 3.993129019591264*^9}, +Cell[BoxData["5.507612735806548`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.993129019591264*^9, + 3.9938290159469757`*^9}, CellLabel-> - "(Debug) Out[330]=",ExpressionUUID->"4d9fc2da-fe98-442b-909d-dbcba12a7a47"] + "Out[143]=",ExpressionUUID->"b166cdde-1339-4326-84df-a477020dbd9e"] }, Open ]], Cell[CellGroupData[{ @@ -15608,16 +15912,18 @@ Cell[BoxData[ RowBox[{"S1", "*", "S2"}]]]], "Input", CellChangeTimes->{{3.991849569404436*^9, 3.991849573855135*^9}}, CellLabel-> - "(Debug) In[331]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], + "In[144]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[BoxData["0.08785735249201765`"], "Output", - CellChangeTimes->{3.9913392304624157`*^9, 3.993129019625201*^9}, +Cell[BoxData["0.08514333679448519`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.993129019625201*^9, + 3.9938290159678583`*^9}, CellLabel-> - "(Debug) Out[331]=",ExpressionUUID->"6159abac-cad3-4118-bbe2-3fea1af77e48"] + "Out[144]=",ExpressionUUID->"4775dc45-8a13-4da0-b796-f98bdd78166c"] }, Open ]] }, -WindowSize->{714, 214.5}, -WindowMargins->{{-3, Automatic}, {223.5, Automatic}}, +Evaluator->"kernel 3", +WindowSize->{1440, 882}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, Magnification:>0.8 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -15636,635 +15942,637 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 521, 9, 23, "Input",ExpressionUUID->"271fe1ed-be37-42ae-9e61-4864b7a72f68"], -Cell[1100, 33, 357, 6, 38, "Output",ExpressionUUID->"ebefacdd-7c8f-4a47-ae8e-c1f8f105d41e"] +Cell[576, 22, 542, 9, 23, "Input",ExpressionUUID->"271fe1ed-be37-42ae-9e61-4864b7a72f68"], +Cell[1121, 33, 439, 6, 26, "Output",ExpressionUUID->"e409b478-d6b4-4d1e-be61-4b7ac1fd7dad"] }, Open ]], Cell[CellGroupData[{ -Cell[1494, 44, 259, 5, 35, "Input",ExpressionUUID->"9cd63ee4-4ab5-4c2c-8ee8-5d4dc579ec08"], -Cell[1756, 51, 495, 8, 38, "Output",ExpressionUUID->"bb1df696-37fa-4a20-8ec5-05ece139f6ca"] +Cell[1597, 44, 248, 4, 23, "Input",ExpressionUUID->"9cd63ee4-4ab5-4c2c-8ee8-5d4dc579ec08"], +Cell[1848, 50, 556, 8, 26, "Output",ExpressionUUID->"696fd7af-9dcb-4f9c-963e-624b950e752b"] }, Open ]], Cell[CellGroupData[{ -Cell[2288, 64, 239, 5, 35, "Input",ExpressionUUID->"fb64ed71-2f89-4ffd-a85b-88f0e717228e"], -Cell[2530, 71, 473, 8, 38, "Output",ExpressionUUID->"7f69aaf4-4125-4adf-bcc7-37fe98ba68a1"] +Cell[2441, 63, 228, 4, 23, "Input",ExpressionUUID->"fb64ed71-2f89-4ffd-a85b-88f0e717228e"], +Cell[2672, 69, 532, 8, 26, "Output",ExpressionUUID->"b769ca55-3b53-45d5-a994-87bd28889181"] }, Open ]], Cell[CellGroupData[{ -Cell[3040, 84, 186, 4, 35, "Input",ExpressionUUID->"47510b32-ee4a-4496-acc3-48b173a35079"], -Cell[3229, 90, 474, 8, 38, "Output",ExpressionUUID->"51e72b23-65ad-49dd-958e-f23cdd456570"] +Cell[3241, 82, 175, 3, 23, "Input",ExpressionUUID->"47510b32-ee4a-4496-acc3-48b173a35079"], +Cell[3419, 87, 537, 8, 26, "Output",ExpressionUUID->"28589080-de23-4302-b25c-795086b03d69"] }, Open ]], Cell[CellGroupData[{ -Cell[3740, 103, 268, 8, 47, "Input",ExpressionUUID->"76a29ca9-f66e-471a-a5b3-2720107b703f"], -Cell[4011, 113, 476, 8, 38, "Output",ExpressionUUID->"8cd9f6e5-5b6a-41f5-95f0-22c9292a7f1d"] +Cell[3993, 100, 257, 7, 35, "Input",ExpressionUUID->"76a29ca9-f66e-471a-a5b3-2720107b703f"], +Cell[4253, 109, 537, 8, 26, "Output",ExpressionUUID->"582cb31b-6af9-4d64-90d7-20df8f0a0dfb"] }, Open ]], Cell[CellGroupData[{ -Cell[4524, 126, 142, 3, 35, "Input",ExpressionUUID->"a9a537d4-3477-43ed-9561-f1c27109561d"], -Cell[4669, 131, 471, 8, 38, "Output",ExpressionUUID->"1a534a8a-4070-4f55-a155-8e910726f0a5"] +Cell[4827, 122, 131, 2, 23, "Input",ExpressionUUID->"a9a537d4-3477-43ed-9561-f1c27109561d"], +Cell[4961, 126, 530, 8, 26, "Output",ExpressionUUID->"810a9d9d-323d-4dd9-a366-6c2047b0eccb"] }, Open ]], Cell[CellGroupData[{ -Cell[5177, 144, 288, 7, 35, "Input",ExpressionUUID->"f35fd140-9381-4b0b-8fc5-46fb9ab06ffc"], -Cell[5468, 153, 490, 8, 38, "Output",ExpressionUUID->"d4213a27-68d2-4b73-ba2e-285739cc4330"] +Cell[5528, 139, 276, 6, 23, "Input",ExpressionUUID->"f35fd140-9381-4b0b-8fc5-46fb9ab06ffc"], +Cell[5807, 147, 549, 8, 26, "Output",ExpressionUUID->"94efffb8-f93d-4f0c-9afa-b448896c343a"] }, Open ]], Cell[CellGroupData[{ -Cell[5995, 166, 269, 8, 35, "Input",ExpressionUUID->"2abdd448-7a98-4918-89e8-046050715ba9"], -Cell[6267, 176, 494, 8, 38, "Output",ExpressionUUID->"bf7971ec-4fc2-46bf-a38e-dd60e54755f9"] +Cell[6393, 160, 257, 7, 23, "Input",ExpressionUUID->"2abdd448-7a98-4918-89e8-046050715ba9"], +Cell[6653, 169, 553, 8, 26, "Output",ExpressionUUID->"d4601ab3-625f-451a-af40-6419349f8470"] }, Open ]], Cell[CellGroupData[{ -Cell[6798, 189, 254, 5, 35, "Input",ExpressionUUID->"b226a67e-f233-4c25-9708-fe8587a7cd30"], -Cell[7055, 196, 492, 8, 38, "Output",ExpressionUUID->"639775c3-d20a-44fa-ae71-8969fa44aa82"] +Cell[7243, 182, 242, 4, 23, "Input",ExpressionUUID->"b226a67e-f233-4c25-9708-fe8587a7cd30"], +Cell[7488, 188, 552, 8, 26, "Output",ExpressionUUID->"fb89802d-479b-4442-b86e-f0a98372614c"] }, Open ]], Cell[CellGroupData[{ -Cell[7584, 209, 256, 5, 35, "Input",ExpressionUUID->"61818bf8-739c-47e1-bc6c-0aa1f2b677d0"], -Cell[7843, 216, 488, 8, 38, "Output",ExpressionUUID->"cb639b5b-e780-4e31-ab19-32e2980db4e2"] +Cell[8077, 201, 245, 4, 23, "Input",ExpressionUUID->"61818bf8-739c-47e1-bc6c-0aa1f2b677d0"], +Cell[8325, 207, 551, 8, 26, "Output",ExpressionUUID->"ef3e5e3a-63a1-42a5-97b0-e1ce8adcd674"] }, Open ]], Cell[CellGroupData[{ -Cell[8368, 229, 140, 3, 35, "Input",ExpressionUUID->"e8f86f84-d79c-4e94-ae80-1dca0472ec6f"], -Cell[8511, 234, 473, 8, 38, "Output",ExpressionUUID->"831f8196-7226-40d0-b021-2e3ed7f7a69a"] +Cell[8913, 220, 129, 2, 23, "Input",ExpressionUUID->"e8f86f84-d79c-4e94-ae80-1dca0472ec6f"], +Cell[9045, 224, 532, 8, 26, "Output",ExpressionUUID->"abf32630-e12f-40b4-94ee-1752274ebf52"] }, Open ]], Cell[CellGroupData[{ -Cell[9021, 247, 140, 3, 35, "Input",ExpressionUUID->"591e45a1-73ec-48a8-b273-8c08db5c8439"], -Cell[9164, 252, 477, 8, 38, "Output",ExpressionUUID->"3464a13f-8362-47ef-b4e3-27e939379e07"] +Cell[9614, 237, 129, 2, 23, "Input",ExpressionUUID->"591e45a1-73ec-48a8-b273-8c08db5c8439"], +Cell[9746, 241, 540, 8, 26, "Output",ExpressionUUID->"2a81021f-00fe-48f6-aabe-45f87a23a8f6"] }, Open ]], Cell[CellGroupData[{ -Cell[9678, 265, 568, 20, 79, "Input",ExpressionUUID->"0940f8ce-9e49-412d-be4c-599647770f21"], -Cell[10249, 287, 492, 8, 38, "Output",ExpressionUUID->"0e1f689a-2c0f-44e5-91bf-a418d704fd59"] +Cell[10323, 254, 557, 19, 67, "Input",ExpressionUUID->"0940f8ce-9e49-412d-be4c-599647770f21"], +Cell[10883, 275, 553, 8, 26, "Output",ExpressionUUID->"cdf6dab6-b3ba-48b1-b623-abe0c0db7a9c"] }, Open ]], Cell[CellGroupData[{ -Cell[10778, 300, 568, 20, 79, "Input",ExpressionUUID->"359bcdad-aa6b-4b8f-91c2-ebb5cf618c9c"], -Cell[11349, 322, 491, 8, 38, "Output",ExpressionUUID->"05f87329-b707-4cee-adee-ca48e8ff5a75"] +Cell[11473, 288, 557, 19, 67, "Input",ExpressionUUID->"359bcdad-aa6b-4b8f-91c2-ebb5cf618c9c"], +Cell[12033, 309, 553, 8, 26, "Output",ExpressionUUID->"c794ca79-84cf-4168-8c2a-c23ca13d1d2d"] }, Open ]], Cell[CellGroupData[{ -Cell[11877, 335, 1503, 49, 79, "Input",ExpressionUUID->"e027fafe-fd13-4595-bbfc-2bc4bc0c7fe0"], -Cell[13383, 386, 489, 8, 38, "Output",ExpressionUUID->"667b2fd1-147a-47a4-b488-118bdfd47ba2"] +Cell[12623, 322, 1492, 48, 67, "Input",ExpressionUUID->"e027fafe-fd13-4595-bbfc-2bc4bc0c7fe0"], +Cell[14118, 372, 547, 8, 26, "Output",ExpressionUUID->"011c2a2d-7eb6-41d3-8590-11726aea5a66"] }, Open ]], Cell[CellGroupData[{ -Cell[13909, 399, 1342, 45, 79, "Input",ExpressionUUID->"b5fcad0f-f1ce-473f-8fd1-052a3498bcc7"], -Cell[15254, 446, 508, 9, 70, "Output",ExpressionUUID->"8a4aecc1-ffc9-481d-a476-225407926f30"] +Cell[14702, 385, 1331, 44, 67, "Input",ExpressionUUID->"b5fcad0f-f1ce-473f-8fd1-052a3498bcc7"], +Cell[16036, 431, 569, 9, 26, "Output",ExpressionUUID->"33756010-6a00-4829-b7e6-c09d2ea51b9c"] }, Open ]], Cell[CellGroupData[{ -Cell[15799, 460, 1342, 45, 70, "Input",ExpressionUUID->"37f45029-2ca4-4af1-9f80-2482ab313a91"], -Cell[17144, 507, 508, 9, 70, "Output",ExpressionUUID->"73988b34-4594-416f-9ca3-2e839f8d096a"] +Cell[16642, 445, 1331, 44, 67, "Input",ExpressionUUID->"37f45029-2ca4-4af1-9f80-2482ab313a91"], +Cell[17976, 491, 566, 9, 26, "Output",ExpressionUUID->"5aeb699b-0bda-4c81-a49e-e8098209f4d6"] }, Open ]], Cell[CellGroupData[{ -Cell[17689, 521, 1503, 49, 70, "Input",ExpressionUUID->"4d48a5b7-4072-401d-8044-36ca3ea5b772"], -Cell[19195, 572, 488, 8, 70, "Output",ExpressionUUID->"a016c299-cc56-4abc-bb4b-f95bf1c292a1"] +Cell[18579, 505, 1492, 48, 67, "Input",ExpressionUUID->"4d48a5b7-4072-401d-8044-36ca3ea5b772"], +Cell[20074, 555, 546, 8, 26, "Output",ExpressionUUID->"ac8a9506-5e33-4eda-b30c-50a3a1945f91"] }, Open ]], Cell[CellGroupData[{ -Cell[19720, 585, 142, 3, 70, "Input",ExpressionUUID->"0939852a-6299-46a6-8f0e-68d50f0449fc"], -Cell[19865, 590, 473, 8, 70, "Output",ExpressionUUID->"94f9036b-1675-4c6a-b299-09dd10991902"] +Cell[20657, 568, 131, 2, 23, "Input",ExpressionUUID->"0939852a-6299-46a6-8f0e-68d50f0449fc"], +Cell[20791, 572, 534, 8, 26, "Output",ExpressionUUID->"2d563434-5c60-44da-a4ab-18afbff6c377"] }, Open ]], Cell[CellGroupData[{ -Cell[20375, 603, 144, 3, 70, "Input",ExpressionUUID->"3cd03327-b0ac-478a-96c2-9ade72bfa53e"], -Cell[20522, 608, 481, 8, 70, "Output",ExpressionUUID->"59bfc96b-dd8d-480a-832c-32eef115bbc9"] +Cell[21362, 585, 133, 2, 23, "Input",ExpressionUUID->"3cd03327-b0ac-478a-96c2-9ade72bfa53e"], +Cell[21498, 589, 544, 8, 26, "Output",ExpressionUUID->"60e08fd6-7b40-4e3e-bfd5-cf86b972c1f2"] }, Open ]], Cell[CellGroupData[{ -Cell[21040, 621, 145, 3, 70, "Input",ExpressionUUID->"6107329f-32aa-40a4-8e39-6ec72a5e7c48"], -Cell[21188, 626, 485, 8, 70, "Output",ExpressionUUID->"2151269a-6045-4948-8a1c-deb3037e6171"] +Cell[22079, 602, 134, 2, 23, "Input",ExpressionUUID->"6107329f-32aa-40a4-8e39-6ec72a5e7c48"], +Cell[22216, 606, 548, 8, 26, "Output",ExpressionUUID->"34e62d31-a2e5-4cf3-b43b-99c8c247bec4"] }, Open ]], Cell[CellGroupData[{ -Cell[21710, 639, 230, 5, 70, "Input",ExpressionUUID->"208dc8fd-7d0a-4d4c-8c24-ba03a4a539fc"], -Cell[21943, 646, 485, 9, 70, "Output",ExpressionUUID->"d21eef27-2174-4652-a8f8-eb8857a48287"] +Cell[22801, 619, 219, 4, 23, "Input",ExpressionUUID->"208dc8fd-7d0a-4d4c-8c24-ba03a4a539fc"], +Cell[23023, 625, 546, 9, 26, "Output",ExpressionUUID->"38808247-09e0-4294-a7ca-f5c8606e3382"] }, Open ]], Cell[CellGroupData[{ -Cell[22465, 660, 145, 3, 70, "Input",ExpressionUUID->"03f697ec-0902-4c3d-be6e-7e81a5d22949"], -Cell[22613, 665, 484, 8, 70, "Output",ExpressionUUID->"710d879c-8dfb-490e-afae-915b42bdb057"] +Cell[23606, 639, 134, 2, 23, "Input",ExpressionUUID->"03f697ec-0902-4c3d-be6e-7e81a5d22949"], +Cell[23743, 643, 543, 8, 26, "Output",ExpressionUUID->"1bda3e1b-2f5c-4fb4-bd4b-3a8a679aaaa2"] }, Open ]], Cell[CellGroupData[{ -Cell[23134, 678, 338, 6, 70, "Input",ExpressionUUID->"549b305c-5dd2-41d0-942c-83e2182ed50c"], -Cell[23475, 686, 474, 8, 70, "Output",ExpressionUUID->"082ddb53-534e-4b83-8a07-c0da22a76d8d"] +Cell[24323, 656, 327, 5, 23, "Input",ExpressionUUID->"549b305c-5dd2-41d0-942c-83e2182ed50c"], +Cell[24653, 663, 535, 8, 26, "Output",ExpressionUUID->"f69f9930-16dc-4ac0-b350-a4494f2a0acf"] }, Open ]], Cell[CellGroupData[{ -Cell[23986, 699, 309, 6, 70, "Input",ExpressionUUID->"c84c8225-36b0-48ad-88a0-e38415676c68"], -Cell[24298, 707, 504, 8, 70, "Output",ExpressionUUID->"e7bdefd6-cad3-4bf2-8ea4-7eed405830d5"] +Cell[25225, 676, 298, 5, 23, "Input",ExpressionUUID->"c84c8225-36b0-48ad-88a0-e38415676c68"], +Cell[25526, 683, 565, 8, 26, "Output",ExpressionUUID->"58a97bfb-6250-43e1-9b4e-be07ebaf8fc8"] }, Open ]], Cell[CellGroupData[{ -Cell[24839, 720, 230, 5, 70, "Input",ExpressionUUID->"9a4cd3be-dd3c-4275-a42c-2cb1e2691517"], -Cell[25072, 727, 478, 8, 70, "Output",ExpressionUUID->"8eedb5d0-2985-4a64-a2f9-2c4ac83fae38"] +Cell[26128, 696, 219, 4, 23, "Input",ExpressionUUID->"9a4cd3be-dd3c-4275-a42c-2cb1e2691517"], +Cell[26350, 702, 539, 8, 26, "Output",ExpressionUUID->"4890abf0-7b8d-4a26-8444-550821a7faa3"] }, Open ]], Cell[CellGroupData[{ -Cell[25587, 740, 361, 11, 70, "Input",ExpressionUUID->"3d2b5f54-d499-44d7-bb25-e459635e5ebe"], -Cell[25951, 753, 495, 8, 70, "Output",ExpressionUUID->"55929cc6-4d59-49dd-8dd4-e7d1d043b31d"] +Cell[26926, 715, 350, 10, 35, "Input",ExpressionUUID->"3d2b5f54-d499-44d7-bb25-e459635e5ebe"], +Cell[27279, 727, 554, 8, 26, "Output",ExpressionUUID->"7bb159bb-9888-469b-a5bd-24c25f288789"] }, Open ]], Cell[CellGroupData[{ -Cell[26483, 766, 361, 11, 70, "Input",ExpressionUUID->"29b3fd1f-47d5-4619-b1d4-ce04a95b9b2c"], -Cell[26847, 779, 509, 9, 70, "Output",ExpressionUUID->"a3b35340-7b20-4d1d-a111-c9aeef292259"] +Cell[27870, 740, 350, 10, 35, "Input",ExpressionUUID->"29b3fd1f-47d5-4619-b1d4-ce04a95b9b2c"], +Cell[28223, 752, 568, 9, 26, "Output",ExpressionUUID->"fc7d7843-cf40-44c3-abec-199407b72b83"] }, Open ]], Cell[CellGroupData[{ -Cell[27393, 793, 1005, 27, 70, "Input",ExpressionUUID->"2bdbfe37-41d1-4574-83d6-34dcfa23e750"], -Cell[28401, 822, 492, 8, 70, "Output",ExpressionUUID->"a4a08d2b-5679-45de-93f7-abab7d09c36b"] +Cell[28828, 766, 994, 26, 72, "Input",ExpressionUUID->"2bdbfe37-41d1-4574-83d6-34dcfa23e750"], +Cell[29825, 794, 553, 8, 26, "Output",ExpressionUUID->"c9b27856-ce08-4172-a802-c99419c44e48"] }, Open ]], Cell[CellGroupData[{ -Cell[28930, 835, 210, 4, 70, "Input",ExpressionUUID->"99dc226c-1b4e-4f0a-bbd8-93adb991a39a"], -Cell[29143, 841, 471, 8, 70, "Output",ExpressionUUID->"8b3f81f6-962b-479d-9739-64fa88cf1341"] +Cell[30415, 807, 199, 3, 23, "Input",ExpressionUUID->"99dc226c-1b4e-4f0a-bbd8-93adb991a39a"], +Cell[30617, 812, 533, 8, 26, "Output",ExpressionUUID->"d4984d6f-d82e-4c72-9a90-3f01b6beb871"] }, Open ]], Cell[CellGroupData[{ -Cell[29651, 854, 345, 6, 70, "Input",ExpressionUUID->"f48ec7bd-dc86-47c4-b76b-d162a14a7041"], -Cell[29999, 862, 475, 8, 70, "Output",ExpressionUUID->"ab8d9c52-9947-4c10-86be-736d8ac5babd"] +Cell[31187, 825, 334, 5, 23, "Input",ExpressionUUID->"f48ec7bd-dc86-47c4-b76b-d162a14a7041"], +Cell[31524, 832, 534, 8, 26, "Output",ExpressionUUID->"15a5092f-b069-4306-a30f-874c494e9da3"] }, Open ]], -Cell[30489, 873, 184, 3, 70, "Input",ExpressionUUID->"6143058e-d48f-4e50-ab88-a67fcfe19c2f"], +Cell[32073, 843, 173, 2, 23, "Input",ExpressionUUID->"6143058e-d48f-4e50-ab88-a67fcfe19c2f"], Cell[CellGroupData[{ -Cell[30698, 880, 344, 6, 70, "Input",ExpressionUUID->"309c17e7-0272-49aa-adfc-a68234384595"], -Cell[31045, 888, 472, 8, 70, "Output",ExpressionUUID->"ee588178-2057-4965-8183-a754de3d7dee"] +Cell[32271, 849, 333, 5, 23, "Input",ExpressionUUID->"309c17e7-0272-49aa-adfc-a68234384595"], +Cell[32607, 856, 531, 8, 26, "Output",ExpressionUUID->"22aa3ecd-2ba4-4664-9269-1570c13dc927"] }, Open ]], -Cell[31532, 899, 184, 3, 70, "Input",ExpressionUUID->"a746702c-1b33-4ace-93f7-a4df59bb032e"], +Cell[33153, 867, 173, 2, 23, "Input",ExpressionUUID->"a746702c-1b33-4ace-93f7-a4df59bb032e"], Cell[CellGroupData[{ -Cell[31741, 906, 348, 6, 70, "Input",ExpressionUUID->"0f32b9a6-42f4-447a-8cea-879fe8270596"], -Cell[32092, 914, 471, 8, 70, "Output",ExpressionUUID->"58349dd2-d771-42a1-98f5-11365127674a"] +Cell[33351, 873, 337, 5, 23, "Input",ExpressionUUID->"0f32b9a6-42f4-447a-8cea-879fe8270596"], +Cell[33691, 880, 530, 8, 26, "Output",ExpressionUUID->"2dbf6141-0fe9-49fc-8a4e-bf20f4655de2"] }, Open ]], -Cell[32578, 925, 184, 3, 70, "Input",ExpressionUUID->"ff06262d-2a7d-4bf2-9889-3482d88544e6"], +Cell[34236, 891, 173, 2, 23, "Input",ExpressionUUID->"ff06262d-2a7d-4bf2-9889-3482d88544e6"], Cell[CellGroupData[{ -Cell[32787, 932, 371, 6, 70, "Input",ExpressionUUID->"32f78082-dea1-4601-b18d-c381615ae618"], -Cell[33161, 940, 482, 8, 70, "Output",ExpressionUUID->"d9a056a7-1bf8-42e7-9d97-48db084449e1"] +Cell[34434, 897, 360, 5, 23, "Input",ExpressionUUID->"32f78082-dea1-4601-b18d-c381615ae618"], +Cell[34797, 904, 543, 8, 26, "Output",ExpressionUUID->"1ee21bc3-126a-4296-9655-beed396abf18"] }, Open ]], -Cell[33658, 951, 182, 3, 70, "Input",ExpressionUUID->"2aafa00d-a8c1-4bad-a089-c7f42ec9638d"], +Cell[35355, 915, 171, 2, 23, "Input",ExpressionUUID->"2aafa00d-a8c1-4bad-a089-c7f42ec9638d"], Cell[CellGroupData[{ -Cell[33865, 958, 318, 6, 70, "Input",ExpressionUUID->"9785ea3b-ac47-43e2-a47f-ae9c169e6d42"], -Cell[34186, 966, 480, 8, 70, "Output",ExpressionUUID->"bb68f11a-a81a-4ae5-ad78-c76bdbed485b"] +Cell[35551, 921, 307, 5, 23, "Input",ExpressionUUID->"9785ea3b-ac47-43e2-a47f-ae9c169e6d42"], +Cell[35861, 928, 541, 8, 26, "Output",ExpressionUUID->"2b3bc05f-0df7-4283-8487-9aeb5fa8d7a7"] }, Open ]], -Cell[34681, 977, 182, 3, 70, "Input",ExpressionUUID->"ff11fa55-f797-455b-8b66-5cc8b90fb113"], +Cell[36417, 939, 171, 2, 23, "Input",ExpressionUUID->"ff11fa55-f797-455b-8b66-5cc8b90fb113"], Cell[CellGroupData[{ -Cell[34888, 984, 324, 6, 70, "Input",ExpressionUUID->"73c20400-1de0-4e8b-8b8e-e79c0739ef44"], -Cell[35215, 992, 479, 8, 70, "Output",ExpressionUUID->"9b9cf5d8-064b-43db-b84d-8dc11486eded"] +Cell[36613, 945, 313, 5, 23, "Input",ExpressionUUID->"73c20400-1de0-4e8b-8b8e-e79c0739ef44"], +Cell[36929, 952, 540, 8, 26, "Output",ExpressionUUID->"b954d309-5d46-4ba4-b70e-a5d46c22ab96"] }, Open ]], -Cell[35709, 1003, 184, 3, 70, "Input",ExpressionUUID->"cdd81c82-7dd4-4ea6-9c96-b8308c603ac5"], +Cell[37484, 963, 173, 2, 23, "Input",ExpressionUUID->"cdd81c82-7dd4-4ea6-9c96-b8308c603ac5"], Cell[CellGroupData[{ -Cell[35918, 1010, 325, 6, 70, "Input",ExpressionUUID->"10e11c9a-e95d-4c66-9815-1f1664c00891"], -Cell[36246, 1018, 477, 8, 70, "Output",ExpressionUUID->"038ee047-fe21-4a0b-8b4f-84b7a3ffee1c"] +Cell[37682, 969, 314, 5, 23, "Input",ExpressionUUID->"10e11c9a-e95d-4c66-9815-1f1664c00891"], +Cell[37999, 976, 536, 8, 26, "Output",ExpressionUUID->"4cdfc62a-9f26-47e6-b30f-912c68ef55b1"] }, Open ]], -Cell[36738, 1029, 183, 3, 70, "Input",ExpressionUUID->"315686a4-25e8-483d-92e8-dda064ea9ad6"], +Cell[38550, 987, 172, 2, 23, "Input",ExpressionUUID->"315686a4-25e8-483d-92e8-dda064ea9ad6"], Cell[CellGroupData[{ -Cell[36946, 1036, 294, 5, 70, "Input",ExpressionUUID->"0fabce16-24b0-4623-8e95-3d3e5f5dc8fa"], -Cell[37243, 1043, 479, 8, 70, "Output",ExpressionUUID->"3f3daab7-2be3-4e5e-aa43-7906df30b338"] +Cell[38747, 993, 283, 4, 23, "Input",ExpressionUUID->"0fabce16-24b0-4623-8e95-3d3e5f5dc8fa"], +Cell[39033, 999, 538, 8, 26, "Output",ExpressionUUID->"056ebd54-f236-4605-8602-d5f95819edd9"] }, Open ]], -Cell[37737, 1054, 186, 3, 70, "Input",ExpressionUUID->"01631860-7c61-4e51-8053-3b30ffca80a4"], +Cell[39586, 1010, 175, 2, 23, "Input",ExpressionUUID->"01631860-7c61-4e51-8053-3b30ffca80a4"], Cell[CellGroupData[{ -Cell[37948, 1061, 19820, 486, 70, "Input",ExpressionUUID->"2fa4e45f-3062-48db-9f6e-ce327bff9a00"], -Cell[57771, 1549, 489, 8, 70, "Output",ExpressionUUID->"ea5a3f16-6c3b-49f9-b156-90fa4f409bde"] +Cell[39786, 1016, 19809, 485, 1218, "Input",ExpressionUUID->"2fa4e45f-3062-48db-9f6e-ce327bff9a00"], +Cell[59598, 1503, 551, 8, 26, "Output",ExpressionUUID->"e50df9b2-c3ed-4ab9-81e5-f0a5aab204c8"] }, Open ]], Cell[CellGroupData[{ -Cell[58297, 1562, 19759, 490, 70, "Input",ExpressionUUID->"43ec8d96-7b69-43c2-937b-1c891c72816f"], -Cell[78059, 2054, 490, 8, 70, "Output",ExpressionUUID->"3dbb75d7-abe4-41b4-93ba-2c446d0dd472"] +Cell[60186, 1516, 19748, 489, 1218, "Input",ExpressionUUID->"43ec8d96-7b69-43c2-937b-1c891c72816f"], +Cell[79937, 2007, 546, 8, 26, "Output",ExpressionUUID->"94eec03d-59ee-4be0-b085-884b4eba33f6"] }, Open ]], Cell[CellGroupData[{ -Cell[78586, 2067, 19759, 484, 70, "Input",ExpressionUUID->"6d71eb66-26f6-49c5-8a6f-6d4ab5736a74"], -Cell[98348, 2553, 510, 9, 70, "Output",ExpressionUUID->"f2f166ea-878e-4576-82d5-a4238865cde8"] +Cell[80520, 2020, 19748, 483, 1218, "Input",ExpressionUUID->"6d71eb66-26f6-49c5-8a6f-6d4ab5736a74"], +Cell[100271, 2505, 570, 9, 26, "Output",ExpressionUUID->"4100cdd5-adb1-4869-8ee2-ee3d669dbe5c"] }, Open ]], Cell[CellGroupData[{ -Cell[98895, 2567, 22545, 554, 70, "Input",ExpressionUUID->"a0ccfd8f-a2a2-4336-a0a2-35083139f5e1"], -Cell[121443, 3123, 505, 9, 70, "Output",ExpressionUUID->"40197109-de31-4159-bf58-2f693f0908e9"] +Cell[100878, 2519, 22534, 553, 1356, "Input",ExpressionUUID->"a0ccfd8f-a2a2-4336-a0a2-35083139f5e1"], +Cell[123415, 3074, 565, 9, 26, "Output",ExpressionUUID->"0e68a602-2f3d-45d8-a9ad-84095a679c3f"] }, Open ]], Cell[CellGroupData[{ -Cell[121985, 3137, 22546, 554, 70, "Input",ExpressionUUID->"8a22c72b-903e-4c44-a421-1707f3155c10"], -Cell[144534, 3693, 510, 9, 70, "Output",ExpressionUUID->"59ba51cd-46e1-4c22-866a-d93630eb6024"] +Cell[124017, 3088, 22535, 553, 1356, "Input",ExpressionUUID->"8a22c72b-903e-4c44-a421-1707f3155c10"], +Cell[146555, 3643, 570, 9, 26, "Output",ExpressionUUID->"ca20dd8b-da52-474e-8ccc-ee4dc84fcd8e"] }, Open ]], Cell[CellGroupData[{ -Cell[145081, 3707, 25502, 627, 70, "Input",ExpressionUUID->"d7ac7cec-a30d-4b76-a656-0a157644dee5"], -Cell[170586, 4336, 504, 9, 70, "Output",ExpressionUUID->"79d3b66c-77b5-4612-a113-f6bb4711a0a0"] +Cell[147162, 3657, 25491, 626, 1512, "Input",ExpressionUUID->"d7ac7cec-a30d-4b76-a656-0a157644dee5"], +Cell[172656, 4285, 568, 9, 26, "Output",ExpressionUUID->"024539f9-1eb6-46bc-a685-d809fbb8e905"] }, Open ]], Cell[CellGroupData[{ -Cell[171127, 4350, 141, 3, 70, "Input",ExpressionUUID->"9b7ebd55-dba8-4456-8559-93398d4bd488"], -Cell[171271, 4355, 484, 8, 70, "Output",ExpressionUUID->"f7fe0523-5b49-4502-82a9-a2ef8d4c9a65"] +Cell[173261, 4299, 130, 2, 23, "Input",ExpressionUUID->"9b7ebd55-dba8-4456-8559-93398d4bd488"], +Cell[173394, 4303, 543, 8, 26, "Output",ExpressionUUID->"9a9b8954-f75d-4954-990c-e8e4f3230dbf"] }, Open ]], Cell[CellGroupData[{ -Cell[171792, 4368, 141, 3, 70, "Input",ExpressionUUID->"0299b24a-b678-4d36-a234-69dc62f13a9d"], -Cell[171936, 4373, 473, 8, 70, "Output",ExpressionUUID->"42f973a9-ce53-4ffc-a7ed-c6379f5c5455"] +Cell[173974, 4316, 130, 2, 23, "Input",ExpressionUUID->"0299b24a-b678-4d36-a234-69dc62f13a9d"], +Cell[174107, 4320, 532, 8, 26, "Output",ExpressionUUID->"f1f9b885-c470-4a61-9ed3-6f9a8ac9a526"] }, Open ]], Cell[CellGroupData[{ -Cell[172446, 4386, 1155, 40, 70, "Input",ExpressionUUID->"014750f8-e22d-4a2e-9e29-9da66fd52d3a"], -Cell[173604, 4428, 499, 8, 70, "Output",ExpressionUUID->"9a16edf3-c7c5-4ea2-8c04-f62d4f5f12a1"] +Cell[174676, 4333, 1144, 39, 95, "Input",ExpressionUUID->"014750f8-e22d-4a2e-9e29-9da66fd52d3a"], +Cell[175823, 4374, 559, 8, 26, "Output",ExpressionUUID->"6168e7fb-ffd8-4ad4-84f0-42167b86f4d5"] }, Open ]], Cell[CellGroupData[{ -Cell[174140, 4441, 1052, 36, 70, "Input",ExpressionUUID->"2baf8cdb-f278-4e84-a711-91de26ed4a3c"], -Cell[175195, 4479, 507, 9, 70, "Output",ExpressionUUID->"8234b272-0f62-4e83-b8f5-6770359d0cda"] +Cell[176419, 4387, 1041, 35, 129, "Input",ExpressionUUID->"2baf8cdb-f278-4e84-a711-91de26ed4a3c"], +Cell[177463, 4424, 566, 9, 26, "Output",ExpressionUUID->"34235601-305a-4204-a81f-8d1b13fcfd21"] }, Open ]], Cell[CellGroupData[{ -Cell[175739, 4493, 1155, 40, 70, "Input",ExpressionUUID->"ec1bf389-eb3b-44b1-b8ec-3e5dad509450"], -Cell[176897, 4535, 492, 8, 70, "Output",ExpressionUUID->"7aed2862-15f8-45f0-8ff3-2e43fad48da5"] +Cell[178066, 4438, 1144, 39, 95, "Input",ExpressionUUID->"ec1bf389-eb3b-44b1-b8ec-3e5dad509450"], +Cell[179213, 4479, 554, 8, 26, "Output",ExpressionUUID->"b133a750-2823-4ebf-b54e-8616e565284c"] }, Open ]], Cell[CellGroupData[{ -Cell[177426, 4548, 119, 2, 70, "Input",ExpressionUUID->"7cc5c200-d23a-4aab-8dd4-dd2b39dfb629"], -Cell[177548, 4552, 492, 8, 70, "Output",ExpressionUUID->"9e0da62e-f7cd-4621-ae8a-18f8d1a4dd94"] +Cell[179804, 4492, 108, 1, 23, "Input",ExpressionUUID->"7cc5c200-d23a-4aab-8dd4-dd2b39dfb629"], +Cell[179915, 4495, 553, 8, 26, "Output",ExpressionUUID->"8aba4b33-5a20-45ff-bec7-b54a9f7c82dd"] }, Open ]], Cell[CellGroupData[{ -Cell[178077, 4565, 119, 2, 70, "Input",ExpressionUUID->"1d636216-0388-4ec1-9061-7a8f850c1529"], -Cell[178199, 4569, 519, 9, 70, "Output",ExpressionUUID->"40f7067e-7234-4ee4-b319-e760495efaca"] +Cell[180505, 4508, 108, 1, 23, "Input",ExpressionUUID->"1d636216-0388-4ec1-9061-7a8f850c1529"], +Cell[180616, 4511, 582, 9, 26, "Output",ExpressionUUID->"ffda4059-ea19-44e2-a8dd-7e73b0a1d22b"] }, Open ]], Cell[CellGroupData[{ -Cell[178755, 4583, 119, 2, 70, "Input",ExpressionUUID->"2b611e92-f5d7-4a75-a966-8087a81cb945"], -Cell[178877, 4587, 507, 9, 70, "Output",ExpressionUUID->"f01ae50f-ea4f-47f0-844f-4a862ace4f6e"] +Cell[181235, 4525, 108, 1, 23, "Input",ExpressionUUID->"2b611e92-f5d7-4a75-a966-8087a81cb945"], +Cell[181346, 4528, 567, 9, 26, "Output",ExpressionUUID->"41a636e1-4871-4440-93bc-0dfa3f215abb"] }, Open ]], Cell[CellGroupData[{ -Cell[179421, 4601, 119, 2, 70, "Input",ExpressionUUID->"bfd19aa0-e31d-4c48-af85-0609e9cece67"], -Cell[179543, 4605, 494, 8, 70, "Output",ExpressionUUID->"d1def81e-2fae-4b69-9f76-40f86be8b607"] +Cell[181950, 4542, 108, 1, 23, "Input",ExpressionUUID->"bfd19aa0-e31d-4c48-af85-0609e9cece67"], +Cell[182061, 4545, 557, 8, 26, "Output",ExpressionUUID->"a2d72902-0469-4671-b4cf-435161538cbb"] }, Open ]], Cell[CellGroupData[{ -Cell[180074, 4618, 118, 2, 70, "Input",ExpressionUUID->"7968bc87-c156-4586-9548-c0f484bc9993"], -Cell[180195, 4622, 496, 8, 70, "Output",ExpressionUUID->"d764b154-b19d-4d4c-b0f4-bf3fe23a9da3"] +Cell[182655, 4558, 107, 1, 23, "Input",ExpressionUUID->"7968bc87-c156-4586-9548-c0f484bc9993"], +Cell[182765, 4561, 557, 8, 26, "Output",ExpressionUUID->"b98191bb-4793-41f6-a8a0-35c2c103720f"] }, Open ]], Cell[CellGroupData[{ -Cell[180728, 4635, 118, 2, 70, "Input",ExpressionUUID->"36690ea4-3542-490f-be49-8e8a3e2cf11e"], -Cell[180849, 4639, 483, 8, 70, "Output",ExpressionUUID->"863cdf5d-f8f2-41de-91da-b49111eae39f"] +Cell[183359, 4574, 107, 1, 23, "Input",ExpressionUUID->"36690ea4-3542-490f-be49-8e8a3e2cf11e"], +Cell[183469, 4577, 542, 8, 26, "Output",ExpressionUUID->"81237eaf-9aa1-4062-a9a0-7859b9d74a3b"] }, Open ]], Cell[CellGroupData[{ -Cell[181369, 4652, 508, 17, 70, "Input",ExpressionUUID->"28e155e6-d777-43b5-ab9a-9d65def3bf50"], -Cell[181880, 4671, 506, 9, 70, "Output",ExpressionUUID->"758564e0-e462-4e8c-957d-3cd8c9522525"] +Cell[184048, 4590, 497, 16, 46, "Input",ExpressionUUID->"28e155e6-d777-43b5-ab9a-9d65def3bf50"], +Cell[184548, 4608, 568, 9, 26, "Output",ExpressionUUID->"6f997e8b-ca74-496f-8c05-44b990812c57"] }, Open ]], Cell[CellGroupData[{ -Cell[182423, 4685, 508, 17, 70, "Input",ExpressionUUID->"83bdd55e-e946-4e82-965c-da9c55a23023"], -Cell[182934, 4704, 505, 9, 70, "Output",ExpressionUUID->"581ae010-1231-4ca0-b981-88f1c24ff227"] +Cell[185153, 4622, 497, 16, 46, "Input",ExpressionUUID->"83bdd55e-e946-4e82-965c-da9c55a23023"], +Cell[185653, 4640, 568, 9, 26, "Output",ExpressionUUID->"54cff728-9995-4b89-8637-7d0bd0263ed3"] }, Open ]], Cell[CellGroupData[{ -Cell[183476, 4718, 1799, 61, 70, "Input",ExpressionUUID->"f8f823be-8610-4f22-9dbc-533917357c84"], -Cell[185278, 4781, 492, 8, 70, "Output",ExpressionUUID->"d4d851c7-cd70-4ac3-b109-95f55c8d0761"] +Cell[186258, 4654, 1788, 60, 160, "Input",ExpressionUUID->"f8f823be-8610-4f22-9dbc-533917357c84"], +Cell[188049, 4716, 554, 8, 26, "Output",ExpressionUUID->"490d651f-7424-45a7-a382-1c7838dc4a5e"] }, Open ]], Cell[CellGroupData[{ -Cell[185807, 4794, 1112, 37, 70, "Input",ExpressionUUID->"dbe3cd19-4cd0-48c1-af8e-a0d307ca0803"], -Cell[186922, 4833, 507, 9, 70, "Output",ExpressionUUID->"39503f31-36c9-47a9-a139-692afb97a7dd"] +Cell[188640, 4729, 1101, 36, 114, "Input",ExpressionUUID->"dbe3cd19-4cd0-48c1-af8e-a0d307ca0803"], +Cell[189744, 4767, 566, 9, 26, "Output",ExpressionUUID->"47c626fa-86ea-4aa0-b385-9d73751a076a"] }, Open ]], Cell[CellGroupData[{ -Cell[187466, 4847, 1829, 62, 70, "Input",ExpressionUUID->"6092ca40-2509-433e-a8b8-29bb7669c5e0"], -Cell[189298, 4911, 487, 8, 70, "Output",ExpressionUUID->"a98597ef-364c-45c0-9ea5-1b4825faa800"] +Cell[190347, 4781, 1818, 61, 95, "Input",ExpressionUUID->"6092ca40-2509-433e-a8b8-29bb7669c5e0"], +Cell[192168, 4844, 548, 8, 26, "Output",ExpressionUUID->"6c82d92f-5593-496d-8021-e23c33300ab9"] }, Open ]], Cell[CellGroupData[{ -Cell[189822, 4924, 1642, 54, 70, "Input",ExpressionUUID->"1d9f9507-a838-4c18-a92c-bedcb4632ee9"], -Cell[191467, 4980, 491, 8, 70, "Output",ExpressionUUID->"33858819-69a1-403d-ba28-550554811b9d"] +Cell[192753, 4857, 1631, 53, 67, "Input",ExpressionUUID->"1d9f9507-a838-4c18-a92c-bedcb4632ee9"], +Cell[194387, 4912, 551, 8, 26, "Output",ExpressionUUID->"cd2e5757-f555-4fda-995c-6e01e1ac192a"] }, Open ]], Cell[CellGroupData[{ -Cell[191995, 4993, 1642, 54, 70, "Input",ExpressionUUID->"c4d4b328-ee8c-4b5a-9b11-265fc528d103"], -Cell[193640, 5049, 492, 8, 70, "Output",ExpressionUUID->"35e0da26-fbb1-4202-8ff0-863867bf4c08"] +Cell[194975, 4925, 1631, 53, 67, "Input",ExpressionUUID->"c4d4b328-ee8c-4b5a-9b11-265fc528d103"], +Cell[196609, 4980, 552, 8, 26, "Output",ExpressionUUID->"a9a27c69-5995-4efa-a519-3fd3e339536c"] }, Open ]], Cell[CellGroupData[{ -Cell[194169, 5062, 252, 5, 70, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], -Cell[194424, 5069, 245, 4, 70, "Output",ExpressionUUID->"7a9ba5d8-5dcb-402a-a462-b815122c9391"] +Cell[197198, 4993, 241, 4, 23, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[197442, 4999, 303, 4, 26, "Output",ExpressionUUID->"0083830a-f040-4c8c-a1ae-608d0658fb48"] }, Open ]], Cell[CellGroupData[{ -Cell[194706, 5078, 251, 5, 70, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], -Cell[194960, 5085, 247, 4, 70, "Output",ExpressionUUID->"9f00d3e9-d0d0-457e-9324-48c3219c82c2"] +Cell[197782, 5008, 240, 4, 23, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[198025, 5014, 307, 4, 26, "Output",ExpressionUUID->"fc35e01b-60fd-424c-aad0-6ba5dacc52b5"] }, Open ]], Cell[CellGroupData[{ -Cell[195244, 5094, 1308, 43, 70, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[196555, 5139, 278, 4, 70, "Output",ExpressionUUID->"7cc2287a-c99f-448e-a0b1-225c4a5aefdf"] +Cell[198369, 5023, 1297, 42, 59, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[199669, 5067, 336, 4, 26, "Output",ExpressionUUID->"e006fb54-e4f9-4748-bd19-29a2cfd6890c"] }, Open ]], Cell[CellGroupData[{ -Cell[196870, 5148, 940, 31, 70, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], -Cell[197813, 5181, 273, 4, 70, "Output",ExpressionUUID->"2a8ffee7-0b21-4081-8eec-27e8822a95a8"] +Cell[200042, 5076, 929, 30, 48, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[200974, 5108, 335, 4, 26, "Output",ExpressionUUID->"ebda3add-30af-4505-b223-515ff04c2d0b"] }, Open ]], Cell[CellGroupData[{ -Cell[198123, 5190, 915, 30, 70, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], -Cell[199041, 5222, 280, 4, 70, "Output",ExpressionUUID->"0c1670f5-9b46-4689-8480-fa32ee2f2507"] +Cell[201346, 5117, 904, 29, 48, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[202253, 5148, 339, 4, 26, "Output",ExpressionUUID->"e71c65c4-6b8f-407f-9857-4c437a38c3a3"] }, Open ]], Cell[CellGroupData[{ -Cell[199358, 5231, 565, 19, 70, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[199926, 5252, 273, 4, 70, "Output",ExpressionUUID->"acfe3526-cff7-428c-940e-86625b711309"] +Cell[202629, 5157, 554, 18, 43, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[203186, 5177, 331, 4, 26, "Output",ExpressionUUID->"c4494742-109b-472c-8ca0-fa7f3fc38928"] }, Open ]], Cell[CellGroupData[{ -Cell[200236, 5261, 630, 21, 70, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[200869, 5284, 272, 4, 70, "Output",ExpressionUUID->"10dfc282-d4e4-412b-9d74-03a285c0a8b8"] +Cell[203554, 5186, 619, 20, 43, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[204176, 5208, 332, 4, 26, "Output",ExpressionUUID->"94245f20-4ba2-494e-9d9b-fe98b7d76448"] }, Open ]], Cell[CellGroupData[{ -Cell[201178, 5293, 177, 5, 70, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[201358, 5300, 273, 4, 70, "Output",ExpressionUUID->"d3950c65-8a0b-4b6c-ab97-bd5a3cfc888e"] +Cell[204545, 5217, 166, 4, 47, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[204714, 5223, 332, 4, 26, "Output",ExpressionUUID->"e9f00217-c758-43e8-bb0b-066fc891a150"] }, Open ]], Cell[CellGroupData[{ -Cell[201668, 5309, 177, 5, 70, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[201848, 5316, 268, 4, 70, "Output",ExpressionUUID->"ae509a1d-0ca7-4772-9cf9-b2b08b7424c7"] +Cell[205083, 5232, 166, 4, 46, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[205252, 5238, 331, 4, 26, "Output",ExpressionUUID->"fdba4dcf-61b4-49ac-9e9d-4e98e06b31cb"] }, Open ]], Cell[CellGroupData[{ -Cell[202153, 5325, 188, 5, 70, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[202344, 5332, 267, 4, 70, "Output",ExpressionUUID->"71470758-bc8b-47fa-a8b8-44523e4c936a"] +Cell[205620, 5247, 177, 4, 36, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[205800, 5253, 327, 4, 26, "Output",ExpressionUUID->"d2c155ff-f1c3-4b5b-8a09-5b2e25537dce"] }, Open ]], Cell[CellGroupData[{ -Cell[202648, 5341, 188, 5, 70, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[202839, 5348, 272, 4, 70, "Output",ExpressionUUID->"5c5821e6-5130-43c6-8a40-27f6a96f620c"] +Cell[206164, 5262, 177, 4, 36, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[206344, 5268, 329, 4, 26, "Output",ExpressionUUID->"f9f0787a-0551-4765-b137-dc470152b307"] }, Open ]], Cell[CellGroupData[{ -Cell[203148, 5357, 6062, 185, 70, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[209213, 5544, 277, 4, 70, "Output",ExpressionUUID->"e0c11602-0281-4957-b63f-587d7d1160f4"] +Cell[206710, 5277, 6051, 184, 413, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[212764, 5463, 338, 4, 26, "Output",ExpressionUUID->"2292012d-fe90-420c-a3b3-41341f32309d"] }, Open ]], Cell[CellGroupData[{ -Cell[209527, 5553, 375, 9, 70, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[209905, 5564, 269, 4, 70, "Output",ExpressionUUID->"929107ad-62cd-4d27-969c-09f03ec8ab40"] +Cell[213139, 5472, 364, 8, 33, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[213506, 5482, 327, 4, 26, "Output",ExpressionUUID->"560e5f27-d8a1-4f7f-9801-f9b90b680898"] }, Open ]], Cell[CellGroupData[{ -Cell[210211, 5573, 6129, 187, 70, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[216343, 5762, 279, 4, 70, "Output",ExpressionUUID->"6cd718e0-3375-4a53-8cb0-824dd0c04b69"] +Cell[213870, 5491, 6118, 186, 413, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[219991, 5679, 339, 4, 26, "Output",ExpressionUUID->"870a78fd-e1ab-4030-bcc8-ce56d2e485af"] }, Open ]], Cell[CellGroupData[{ -Cell[216659, 5771, 375, 9, 70, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[217037, 5782, 273, 4, 70, "Output",ExpressionUUID->"1470f1c2-f609-4878-a556-2a0cc37f2d51"] +Cell[220367, 5688, 364, 8, 33, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[220734, 5698, 331, 4, 26, "Output",ExpressionUUID->"aacd7aeb-f536-478b-bdeb-c27f56e170a4"] }, Open ]], Cell[CellGroupData[{ -Cell[217347, 5791, 2670, 88, 70, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[220020, 5881, 273, 4, 70, "Output",ExpressionUUID->"41648c74-eb0b-437f-b4ec-5aeb63bb86d9"] +Cell[221102, 5707, 2659, 87, 142, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[223764, 5796, 331, 4, 26, "Output",ExpressionUUID->"d2db3b66-08a8-4fc6-9d9c-d454586abee1"] }, Open ]], Cell[CellGroupData[{ -Cell[220330, 5890, 2610, 85, 70, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[222943, 5977, 273, 4, 70, "Output",ExpressionUUID->"46893405-0948-4f8e-a687-afb44851e6bd"] +Cell[224132, 5805, 2599, 84, 142, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[226734, 5891, 335, 4, 26, "Output",ExpressionUUID->"73b113f3-bcb7-4368-a590-47e396bd0de8"] }, Open ]], Cell[CellGroupData[{ -Cell[223253, 5986, 3719, 118, 70, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[226975, 6106, 276, 4, 70, "Output",ExpressionUUID->"79750704-94b1-4c94-a61a-6f7e93f91252"] +Cell[227106, 5900, 3708, 117, 208, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[230817, 6019, 334, 4, 26, "Output",ExpressionUUID->"f98e7bfe-faac-4c9e-b0a4-3a585bb6812b"] }, Open ]], -Cell[227266, 6113, 171, 4, 70, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[231166, 6026, 160, 3, 23, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ -Cell[227462, 6121, 2082, 59, 70, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], -Cell[229547, 6182, 666, 13, 70, "Message",ExpressionUUID->"fa387332-d748-40d7-abb8-f8dc67c30ca4"], -Cell[230216, 6197, 668, 13, 70, "Message",ExpressionUUID->"da2bc801-d228-484e-a808-c6c989d20bd3"], -Cell[230887, 6212, 673, 13, 70, "Message",ExpressionUUID->"1a6bc40a-a87a-4639-8370-fe7df5a778a0"], -Cell[231563, 6227, 553, 11, 70, "Message",ExpressionUUID->"03379fc2-13b7-4652-b6bc-27f60ae80517"], -Cell[232119, 6240, 270, 4, 70, "Output",ExpressionUUID->"16020b0e-a0ea-46f9-a413-1a75747d7807"] +Cell[231351, 6033, 2071, 58, 83, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[233425, 6093, 745, 15, 69, "Message",ExpressionUUID->"bb877d0b-caa5-408d-be34-0a9630c9581b"], +Cell[234173, 6110, 748, 15, 51, "Message",ExpressionUUID->"2516d232-ce18-4eb3-961f-9264ef7d5394"], +Cell[234924, 6127, 749, 15, 51, "Message",ExpressionUUID->"1fd60472-db0c-4320-8b9a-e7a9b01a6871"], +Cell[235676, 6144, 632, 13, 20, "Message",ExpressionUUID->"641cab47-2e3f-40f8-b7a4-ce743c57b282"], +Cell[236311, 6159, 326, 4, 26, "Output",ExpressionUUID->"3497bfd1-ce48-4109-917b-0d1c128d21f9"] }, Open ]], Cell[CellGroupData[{ -Cell[232426, 6249, 2084, 59, 70, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], -Cell[234513, 6310, 666, 13, 70, "Message",ExpressionUUID->"444729df-4cf2-4bbb-8351-ae7b66972d10"], -Cell[235182, 6325, 671, 13, 70, "Message",ExpressionUUID->"7753222d-063b-48dd-9058-bf3297812306"], -Cell[235856, 6340, 674, 13, 70, "Message",ExpressionUUID->"78d7eb9c-730a-4116-8f6e-359dcb39d6e5"], -Cell[236533, 6355, 556, 11, 70, "Message",ExpressionUUID->"612d1970-272d-4415-a2b6-367f92a5591d"], -Cell[237092, 6368, 270, 4, 70, "Output",ExpressionUUID->"7e8a05a5-2935-4bac-a180-696536d5ea81"] +Cell[236674, 6168, 2073, 58, 83, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[238750, 6228, 744, 15, 69, "Message",ExpressionUUID->"d7771102-a804-4957-b22a-6054244acce8"], +Cell[239497, 6245, 745, 15, 51, "Message",ExpressionUUID->"fcdd6906-2d30-4e93-96fc-559e0dee6512"], +Cell[240245, 6262, 748, 15, 51, "Message",ExpressionUUID->"57a12462-94d0-46e5-9a6b-ff324d8a7628"], +Cell[240996, 6279, 633, 13, 20, "Message",ExpressionUUID->"bbabadfa-db85-413e-930a-bc41af648212"], +Cell[241632, 6294, 330, 4, 26, "Output",ExpressionUUID->"9aa07968-44fd-4440-b28e-717265101e8a"] }, Open ]], Cell[CellGroupData[{ -Cell[237399, 6377, 1968, 53, 70, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], -Cell[239370, 6432, 20502, 383, 70, "Output",ExpressionUUID->"a176a917-4301-4cc9-8844-2f9902b92236"] +Cell[241999, 6303, 1957, 52, 61, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[243959, 6357, 20637, 387, 189, "Output",ExpressionUUID->"c24ca772-3c5b-48b4-a350-985f4a458f02"] }, Open ]], Cell[CellGroupData[{ -Cell[259909, 6820, 2111, 59, 70, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], -Cell[262023, 6881, 616, 13, 70, "Message",ExpressionUUID->"b9d646c9-aec1-4240-adcd-99a477981970"], -Cell[262642, 6896, 619, 13, 70, "Message",ExpressionUUID->"d07729d2-cb4e-4d8a-b07e-16cb6b697d94"], -Cell[263264, 6911, 622, 13, 70, "Message",ExpressionUUID->"d759ad1c-e4f4-4626-b70f-844b973e69ba"], -Cell[263889, 6926, 571, 12, 70, "Message",ExpressionUUID->"fca31b9c-2817-4a8d-a14a-c9553846e112"], -Cell[264463, 6940, 22474, 413, 70, "Output",ExpressionUUID->"2d6814a3-f40d-49db-a210-8e29726f9394"] +Cell[264633, 6749, 2111, 59, 112, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[266747, 6810, 654, 14, 49, "Message",ExpressionUUID->"aeb10b84-7d69-475d-b577-368db9e507fa"], +Cell[267404, 6826, 662, 14, 49, "Message",ExpressionUUID->"55ae6890-9794-445f-bc5b-66948f0d7e77"], +Cell[268069, 6842, 662, 14, 49, "Message",ExpressionUUID->"a76b4098-4422-4f38-8c9c-c126dc6043e6"], +Cell[268734, 6858, 609, 13, 20, "Message",ExpressionUUID->"6f52c85d-7f90-463a-ae8b-f8ffbfdaddcf"], +Cell[269346, 6873, 23995, 439, 186, "Output",ExpressionUUID->"0facb4c0-a77c-467a-93fc-0bd710eddce8"] }, Open ]], Cell[CellGroupData[{ -Cell[286974, 7358, 2714, 73, 70, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], -Cell[289691, 7433, 9473, 219, 70, "Output",ExpressionUUID->"43effa24-9c82-4a92-b2c0-33b55f2b3d47"] +Cell[293378, 7317, 2763, 74, 119, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[296144, 7393, 9565, 223, 191, "Output",ExpressionUUID->"7c34ada0-6415-474c-a6fb-6e765245826a"] }, Open ]], Cell[CellGroupData[{ -Cell[299201, 7657, 228, 4, 70, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], -Cell[299432, 7663, 28862, 545, 70, "Output",ExpressionUUID->"5f95558d-8db7-48cc-944e-ccd23c0a8e7a"] +Cell[305746, 7621, 228, 4, 23, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[305977, 7627, 30333, 570, 186, "Output",ExpressionUUID->"5576b544-f157-44b3-9869-9d34608f5035"] }, Open ]], Cell[CellGroupData[{ -Cell[328331, 8213, 236, 6, 70, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], -Cell[328570, 8221, 237, 3, 70, "Output",ExpressionUUID->"730c5742-c84b-426c-9800-dc5efcdf30a9"] +Cell[336347, 8202, 236, 6, 40, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[336586, 8210, 259, 3, 26, "Output",ExpressionUUID->"842267c5-c648-4186-86ce-4bd58a9f89dd"] }, Open ]], Cell[CellGroupData[{ -Cell[328844, 8229, 1839, 53, 70, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], -Cell[330686, 8284, 576, 12, 70, "Message",ExpressionUUID->"976efa94-b5e2-4982-aa8f-60f62186578f"], -Cell[331265, 8298, 578, 12, 70, "Message",ExpressionUUID->"13ef69c2-851a-4481-8d73-3e736103fb67"], -Cell[331846, 8312, 582, 12, 70, "Message",ExpressionUUID->"fd1971c8-bfb8-414c-9ddd-f261b1b86e83"], -Cell[332431, 8326, 523, 11, 70, "Message",ExpressionUUID->"0f3f0242-2be6-4541-ae6c-7ee363959a05"], -Cell[332957, 8339, 23910, 440, 70, "Output",ExpressionUUID->"b5b3f018-6ec0-44b3-bf5d-7c3c11f46d40"] +Cell[336882, 8218, 1835, 52, 83, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[338720, 8272, 615, 13, 49, "Message",ExpressionUUID->"a8847b6e-2dc5-41a1-9901-0cb2134fa653"], +Cell[339338, 8287, 612, 13, 49, "Message",ExpressionUUID->"d9ca93c1-16f2-4143-acce-91d5fa03fb8e"], +Cell[339953, 8302, 616, 13, 49, "Message",ExpressionUUID->"821410b6-f599-4938-b12f-111698996ded"], +Cell[340572, 8317, 559, 12, 20, "Message",ExpressionUUID->"c8719088-d3df-4c23-b3b9-6e3f1ccdc11f"], +Cell[341134, 8331, 25595, 465, 187, "Output",ExpressionUUID->"b36b8f9e-b125-4e60-8b18-26a27895b23a"] }, Open ]], Cell[CellGroupData[{ -Cell[356904, 8784, 1616, 48, 70, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], -Cell[358523, 8834, 640, 13, 70, "Message",ExpressionUUID->"85785846-2c11-4b8d-8369-ff24bf7f4ed1"], -Cell[359166, 8849, 644, 13, 70, "Message",ExpressionUUID->"7faab678-e3f0-4125-9fef-24d618f6e45a"], -Cell[359813, 8864, 647, 13, 70, "Message",ExpressionUUID->"aa6ac2ba-0d33-478f-81c0-629594873046"], -Cell[360463, 8879, 506, 11, 70, "Message",ExpressionUUID->"33fb49df-408f-43e8-8a52-13de15857ef0"], -Cell[360972, 8892, 171, 3, 70, "Output",ExpressionUUID->"21174f4e-34c9-44d7-bb77-c87817e92dbe"] +Cell[366766, 8801, 1612, 47, 60, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[368381, 8850, 680, 14, 51, "Message",ExpressionUUID->"601a8f5c-f681-4639-ba57-ddfb4daecc0d"], +Cell[369064, 8866, 684, 14, 51, "Message",ExpressionUUID->"feae34d1-06fc-4144-8d17-602a66fc4367"], +Cell[369751, 8882, 687, 14, 64, "Message",ExpressionUUID->"ef977af8-f0c5-41a1-a345-bd0cccf767d3"], +Cell[370441, 8898, 540, 12, 20, "Message",ExpressionUUID->"f33df6a4-9f1f-49b8-af22-ee1b4b241746"], +Cell[370984, 8912, 190, 2, 26, "Output",ExpressionUUID->"15f687ea-ad33-451c-b5a2-b8cde2cdf781"] }, Open ]], Cell[CellGroupData[{ -Cell[361180, 8900, 2270, 64, 70, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], -Cell[363453, 8966, 612, 13, 70, "Message",ExpressionUUID->"441d5705-ab90-4cf4-a2ac-9b32cd8148ef"], -Cell[364068, 8981, 616, 13, 70, "Message",ExpressionUUID->"cf8235ea-ccc2-49fd-9233-1e5d1f08b197"], -Cell[364687, 8996, 619, 13, 70, "Message",ExpressionUUID->"8315b4be-4c23-43a0-889d-a96db194521e"], -Cell[365309, 9011, 501, 11, 70, "Message",ExpressionUUID->"d89cadba-c3eb-498c-9d49-5d74a8cbc6a9"], -Cell[365813, 9024, 221, 4, 70, "Output",ExpressionUUID->"5db61bfb-21ae-45f5-a071-779932252f1a"] +Cell[371211, 8919, 2266, 63, 128, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[373480, 8984, 648, 14, 69, "Message",ExpressionUUID->"95a6711a-fa21-4a52-bd83-0556730d9948"], +Cell[374131, 9000, 651, 14, 51, "Message",ExpressionUUID->"cd54ebb7-7ecb-4050-9650-124224ac9b9e"], +Cell[374785, 9016, 656, 14, 51, "Message",ExpressionUUID->"a1fa00d1-29fa-4954-94b4-d25e10c36fe7"], +Cell[375444, 9032, 539, 12, 20, "Message",ExpressionUUID->"c28f63a8-423b-47fe-9703-b20fc7153a32"], +Cell[375986, 9046, 238, 3, 26, "Output",ExpressionUUID->"8ccf974a-5122-4a4c-a9bb-34c39a53b1b3"] }, Open ]], Cell[CellGroupData[{ -Cell[366071, 9033, 2244, 64, 70, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], -Cell[368318, 9099, 612, 13, 70, "Message",ExpressionUUID->"bdd13af8-289e-4eed-94b7-88cec3dc4f89"], -Cell[368933, 9114, 617, 13, 70, "Message",ExpressionUUID->"b0c2e87c-7079-4c32-817f-1f4307a9dcff"], -Cell[369553, 9129, 620, 13, 70, "Message",ExpressionUUID->"53219602-5b40-4514-a645-274b643f2d1f"], -Cell[370176, 9144, 502, 11, 70, "Message",ExpressionUUID->"d9deeb1f-34c3-4b21-895a-4ff1eb07211d"], -Cell[370681, 9157, 219, 4, 70, "Output",ExpressionUUID->"21c86686-0dd5-4780-b7e7-9d52d1825548"] +Cell[376261, 9054, 2233, 63, 54, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[378497, 9119, 650, 14, 34, "Message",ExpressionUUID->"9d58e30d-25f1-4c2f-b4c0-6d54846e16c4"], +Cell[379150, 9135, 653, 14, 20, "Message",ExpressionUUID->"dd98cbf1-17a8-468e-847c-310559ed8ede"], +Cell[379806, 9151, 656, 14, 20, "Message",ExpressionUUID->"82cb535b-6f6f-466b-8660-86169458be5d"], +Cell[380465, 9167, 539, 12, 20, "Message",ExpressionUUID->"3d052153-19fc-4422-a068-356cb3afafc4"], +Cell[381007, 9181, 242, 4, 38, "Output",ExpressionUUID->"899d30c6-430c-42e3-8cec-a4a7615d0151"] }, Open ]], Cell[CellGroupData[{ -Cell[370937, 9166, 2244, 64, 70, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], -Cell[373184, 9232, 617, 13, 70, "Message",ExpressionUUID->"0a9f4a1e-bb28-4d0f-a738-1dbe74440d25"], -Cell[373804, 9247, 621, 13, 70, "Message",ExpressionUUID->"36274ffd-c990-43fc-aaa8-be20aa2e5936"], -Cell[374428, 9262, 622, 13, 70, "Message",ExpressionUUID->"cfbc26e2-4d26-42fb-a862-9c96cc7f9b6c"], -Cell[375053, 9277, 506, 11, 70, "Message",ExpressionUUID->"cef7fbc8-f261-4b0e-a214-d19b1c8caa1e"], -Cell[375562, 9290, 217, 4, 70, "Output",ExpressionUUID->"e10e35a1-bf3d-4f3f-a535-691c6e08ce18"] +Cell[381286, 9190, 2233, 63, 54, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[383522, 9255, 657, 14, 34, "Message",ExpressionUUID->"b674c254-ef03-4a19-999c-a254255b06e5"], +Cell[384182, 9271, 658, 14, 20, "Message",ExpressionUUID->"a1e4aa6e-78d6-4a8d-a56e-cc8c3a31d75f"], +Cell[384843, 9287, 663, 14, 20, "Message",ExpressionUUID->"1c51dab3-e857-4aa1-9a2b-8f6332ef8fd2"], +Cell[385509, 9303, 544, 12, 20, "Message",ExpressionUUID->"935e264a-bf7c-4291-99ee-2a882a2ae335"], +Cell[386056, 9317, 239, 4, 38, "Output",ExpressionUUID->"2b8556e6-5e22-4806-b139-ddc4c8b4d744"] }, Open ]], Cell[CellGroupData[{ -Cell[375816, 9299, 238, 6, 70, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], -Cell[376057, 9307, 223, 4, 70, "Output",ExpressionUUID->"1949145f-7067-4f65-8d56-c5bb75f73ff0"] +Cell[386332, 9326, 238, 6, 39, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[386573, 9334, 247, 4, 38, "Output",ExpressionUUID->"7871ac7e-3730-44d0-a8b3-fc674b274814"] }, Open ]], -Cell[376295, 9314, 271, 6, 70, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[386835, 9341, 271, 6, 23, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ -Cell[376591, 9324, 558, 19, 70, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[377152, 9345, 221, 4, 70, "Output",ExpressionUUID->"a079d42c-ac8e-413e-804f-ab0179408faa"] +Cell[387131, 9351, 558, 19, 43, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[387692, 9372, 243, 4, 38, "Output",ExpressionUUID->"a7a8da6d-2d20-44fe-9125-be8cb5bdceae"] }, Open ]], Cell[CellGroupData[{ -Cell[377410, 9354, 170, 5, 70, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[377583, 9361, 219, 4, 70, "Output",ExpressionUUID->"3282426b-10f7-46d8-a76b-fb60ee0335b1"] +Cell[387972, 9381, 170, 5, 47, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[388145, 9388, 243, 4, 38, "Output",ExpressionUUID->"488188be-654f-4f8a-8de8-ba47fd312b42"] }, Open ]], Cell[CellGroupData[{ -Cell[377839, 9370, 181, 5, 70, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[378023, 9377, 219, 4, 70, "Output",ExpressionUUID->"c84eaebc-bad6-46b8-ad39-58dee74584c2"] +Cell[388425, 9397, 181, 5, 36, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[388609, 9404, 241, 4, 38, "Output",ExpressionUUID->"f780b913-5a4f-437f-bcc6-453e89680884"] }, Open ]], Cell[CellGroupData[{ -Cell[378279, 9386, 6055, 185, 70, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[384337, 9573, 221, 4, 70, "Output",ExpressionUUID->"d7dbd410-95ad-49bb-a32c-5a85a74fc1b6"] +Cell[388887, 9413, 6055, 185, 161, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[394945, 9600, 243, 4, 38, "Output",ExpressionUUID->"a228d94f-c2a2-4827-8c00-3405781bb089"] }, Open ]], Cell[CellGroupData[{ -Cell[384595, 9582, 368, 9, 70, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[384966, 9593, 221, 4, 70, "Output",ExpressionUUID->"b4e02bff-debc-471d-b030-250677ecf167"] +Cell[395225, 9609, 368, 9, 33, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[395596, 9620, 243, 4, 38, "Output",ExpressionUUID->"288a5249-4c7d-4589-af7a-d0eb34951f9a"] }, Open ]], Cell[CellGroupData[{ -Cell[385224, 9602, 6122, 187, 70, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[391349, 9791, 221, 4, 70, "Output",ExpressionUUID->"a9f9f854-8937-4fc0-b1c3-532c65749727"] +Cell[395876, 9629, 6122, 187, 161, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[402001, 9818, 243, 4, 38, "Output",ExpressionUUID->"33ecc80a-cc1f-4ef7-b7e4-c1ff0cd8030d"] }, Open ]], Cell[CellGroupData[{ -Cell[391607, 9800, 368, 9, 70, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[391978, 9811, 222, 4, 70, "Output",ExpressionUUID->"6fda62a8-8545-46e2-8528-ea4d20c42a2c"] +Cell[402281, 9827, 368, 9, 33, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[402652, 9838, 243, 4, 38, "Output",ExpressionUUID->"145f03f8-9d97-4378-9717-76271045e617"] }, Open ]], Cell[CellGroupData[{ -Cell[392237, 9820, 2663, 88, 70, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[394903, 9910, 221, 4, 70, "Output",ExpressionUUID->"54a0a6dd-c147-44f9-850e-0bfe7fccf58b"] +Cell[402932, 9847, 2663, 88, 95, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[405598, 9937, 242, 4, 38, "Output",ExpressionUUID->"4be6388c-e7f8-4087-915b-0cc7f3299ecc"] }, Open ]], Cell[CellGroupData[{ -Cell[395161, 9919, 2603, 85, 70, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[397767, 10006, 222, 4, 70, "Output",ExpressionUUID->"4f52a8e1-3220-48b2-bd13-1ea45e1765c9"] +Cell[405877, 9946, 2603, 85, 95, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[408483, 10033, 246, 4, 38, "Output",ExpressionUUID->"692d3520-1da1-42d8-84fa-c05a2143f680"] }, Open ]], Cell[CellGroupData[{ -Cell[398026, 10015, 3712, 118, 70, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[401741, 10135, 223, 4, 70, "Output",ExpressionUUID->"471760c1-35fc-4edf-9500-d61c40383a26"] +Cell[408766, 10042, 3712, 118, 142, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[412481, 10162, 245, 4, 38, "Output",ExpressionUUID->"5270cacd-65a8-450f-8a3d-b3f03ad1126f"] }, Open ]], Cell[CellGroupData[{ -Cell[402001, 10144, 2075, 59, 70, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], -Cell[404079, 10205, 614, 13, 70, "Message",ExpressionUUID->"b3c393ff-5392-4f95-8882-99ddc0b57846"], -Cell[404696, 10220, 617, 13, 70, "Message",ExpressionUUID->"5573bc15-46ec-4b1c-bbd9-e8173b9cd316"], -Cell[405316, 10235, 618, 13, 70, "Message",ExpressionUUID->"82dc4722-1fec-4048-a2b1-dfc58417119f"], -Cell[405937, 10250, 504, 11, 70, "Message",ExpressionUUID->"18adc1bf-9fe3-4f47-a871-089cf631321f"], -Cell[406444, 10263, 218, 4, 70, "Output",ExpressionUUID->"8b0ee44e-7362-48b3-a047-7462adcfca69"] +Cell[412763, 10171, 2075, 59, 83, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[414841, 10232, 653, 14, 34, "Message",ExpressionUUID->"4a0c7826-f105-47da-bc3d-17b8c8a7c4ce"], +Cell[415497, 10248, 656, 14, 34, "Message",ExpressionUUID->"b0f20a7f-5413-41af-891f-5276bd21b78a"], +Cell[416156, 10264, 658, 14, 20, "Message",ExpressionUUID->"a659050e-e4c4-4280-87d2-1427452051e4"], +Cell[416817, 10280, 544, 12, 20, "Message",ExpressionUUID->"67f79efd-6249-45a4-aba5-35970481e7f0"], +Cell[417364, 10294, 241, 4, 38, "Output",ExpressionUUID->"a6fd3afd-3170-4848-acee-7dd25d3044d0"] }, Open ]], Cell[CellGroupData[{ -Cell[406699, 10272, 2077, 59, 70, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], -Cell[408779, 10333, 612, 13, 70, "Message",ExpressionUUID->"b383a66f-b565-449f-a46d-8fec83f279da"], -Cell[409394, 10348, 615, 13, 70, "Message",ExpressionUUID->"ea0b6074-3d21-4372-8ebe-45d89575fbae"], -Cell[410012, 10363, 616, 13, 70, "Message",ExpressionUUID->"f05cc589-e94c-4578-8126-bced46b4d0f0"], -Cell[410631, 10378, 502, 11, 70, "Message",ExpressionUUID->"dd53749a-7c20-4caa-aec5-1e1b869f0778"], -Cell[411136, 10391, 219, 4, 70, "Output",ExpressionUUID->"f75a24a8-0684-4cde-9500-124bdfb906b2"] +Cell[417642, 10303, 2077, 59, 83, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[419722, 10364, 649, 14, 34, "Message",ExpressionUUID->"7f241c49-7fa0-4ead-a262-04f7a22160d7"], +Cell[420374, 10380, 656, 14, 34, "Message",ExpressionUUID->"6f2886f5-7b5f-4831-948b-8f322b768ebb"], +Cell[421033, 10396, 658, 14, 20, "Message",ExpressionUUID->"1285f803-858f-4443-af72-4779eeeedeb0"], +Cell[421694, 10412, 542, 12, 20, "Message",ExpressionUUID->"32999119-467d-43f8-be20-4dab676dc7b0"], +Cell[422239, 10426, 241, 4, 38, "Output",ExpressionUUID->"bb3d1b17-54b4-49cd-b410-03cc42e1b89b"] }, Open ]], Cell[CellGroupData[{ -Cell[411392, 10400, 2053, 55, 70, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], -Cell[413448, 10457, 20387, 382, 70, "Output",ExpressionUUID->"9960643e-bc5b-4f6a-bf3b-b83b210acbb1"] +Cell[422517, 10435, 2053, 55, 45, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[424573, 10492, 20456, 384, 200, "Output",ExpressionUUID->"83077d5f-bac7-4a11-934f-28c88104e434"] }, Open ]], Cell[CellGroupData[{ -Cell[433872, 10844, 2166, 61, 70, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], -Cell[436041, 10907, 521, 11, 70, "Message",ExpressionUUID->"7b0079d2-f09e-4719-94f1-7e0cddcca131"], -Cell[436565, 10920, 524, 11, 70, "Message",ExpressionUUID->"9b908c30-d98b-4c53-9466-0e6cdb79d29c"], -Cell[437092, 10933, 528, 11, 70, "Message",ExpressionUUID->"63d39deb-3ee1-467b-85a8-b1c2adddc14d"], -Cell[437623, 10946, 479, 10, 70, "Message",ExpressionUUID->"9afe6205-5c63-4ea7-9287-13b93c8d275e"], -Cell[438105, 10958, 23044, 424, 70, "Output",ExpressionUUID->"9b72d10d-33d9-433d-a747-8876b19d31a9"] +Cell[445066, 10881, 2166, 61, 83, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[447235, 10944, 561, 13, 34, "Message",ExpressionUUID->"1c60f3ff-f096-4263-ac4c-854f75e3d53b"], +Cell[447799, 10959, 568, 13, 34, "Message",ExpressionUUID->"11f66c7b-12e4-441b-a267-9f879b7e0bcc"], +Cell[448370, 10974, 569, 13, 34, "Message",ExpressionUUID->"2a0d9b73-be27-4c8c-bbb0-f41eaaba73b9"], +Cell[448942, 10989, 520, 12, 20, "Message",ExpressionUUID->"8a4f6a49-7d0e-4463-a68e-f89c54792531"], +Cell[449465, 11003, 25686, 469, 197, "Output",ExpressionUUID->"5b3fb5ce-67d2-4eaa-a6e9-43c55fe44bb1"] }, Open ]], Cell[CellGroupData[{ -Cell[461186, 11387, 164, 4, 70, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], -Cell[461353, 11393, 29479, 557, 70, "Output",ExpressionUUID->"07dde160-c052-47df-b468-fb1deddb6a93"] +Cell[475188, 11477, 164, 4, 23, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[475355, 11483, 32069, 601, 197, "Output",ExpressionUUID->"c94096cb-3a32-4c8f-8630-8457ad73a911"] }, Open ]], Cell[CellGroupData[{ -Cell[490869, 11955, 1616, 48, 70, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], -Cell[492488, 12005, 654, 13, 70, "Message",ExpressionUUID->"2a3e76f8-6266-4fe9-a88a-e55aa0c9228b"], -Cell[493145, 12020, 660, 13, 70, "Message",ExpressionUUID->"2e43766c-2201-4a85-92e7-fc36791090ef"], -Cell[493808, 12035, 660, 13, 70, "Message",ExpressionUUID->"45bf1502-e2b4-44c4-b08b-8efba935cd14"], -Cell[494471, 12050, 504, 11, 70, "Message",ExpressionUUID->"9aa69291-742b-40ef-a902-181fa7b88ee3"], -Cell[494978, 12063, 170, 3, 70, "Output",ExpressionUUID->"8aacbadb-7dda-4b86-8555-f222f26e20f8"] +Cell[507461, 12089, 1616, 48, 60, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[509080, 12139, 695, 14, 20, "Message",ExpressionUUID->"30afc662-9646-41e6-a402-f32d975e7ac9"], +Cell[509778, 12155, 699, 14, 20, "Message",ExpressionUUID->"4174ac91-340e-4e99-9408-82a4a06d09c9"], +Cell[510480, 12171, 707, 15, 20, "Message",ExpressionUUID->"33056e5d-4b93-4804-a60a-bfc593db9545"], +Cell[511190, 12188, 542, 12, 20, "Message",ExpressionUUID->"e2d33071-053d-476c-bf79-fbd7c36f0fd6"], +Cell[511735, 12202, 194, 3, 38, "Output",ExpressionUUID->"26094c0b-6eee-45b3-a372-77286ebc44de"] }, Open ]], Cell[CellGroupData[{ -Cell[495185, 12071, 2272, 64, 70, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], -Cell[497460, 12137, 612, 13, 70, "Message",ExpressionUUID->"dc234405-c2fb-45a6-8d1c-c8bf859a436f"], -Cell[498075, 12152, 615, 13, 70, "Message",ExpressionUUID->"f433d206-d023-4888-8305-dd29597c9a08"], -Cell[498693, 12167, 618, 13, 70, "Message",ExpressionUUID->"c1737bf9-b500-4463-84e1-327451df1e96"], -Cell[499314, 12182, 506, 11, 70, "Message",ExpressionUUID->"6efc6a5d-a36d-47f4-a0d2-b37ed18fb7ae"], -Cell[499823, 12195, 220, 4, 70, "Output",ExpressionUUID->"4ee304bd-535c-41ed-a92c-8a6a14de6092"] +Cell[511966, 12210, 2272, 64, 54, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[514241, 12276, 649, 14, 34, "Message",ExpressionUUID->"1c517623-6c3c-43d0-8718-6e4d2fb8c724"], +Cell[514893, 12292, 654, 14, 34, "Message",ExpressionUUID->"4c6db11c-9eb7-45a9-a961-95286dbe7bd4"], +Cell[515550, 12308, 656, 14, 20, "Message",ExpressionUUID->"fc108d4a-3374-4845-915b-3bc0e8d6d17b"], +Cell[516209, 12324, 544, 12, 20, "Message",ExpressionUUID->"ebaaf9ff-680a-49f2-857e-3faa056a6bd4"], +Cell[516756, 12338, 241, 4, 38, "Output",ExpressionUUID->"2a38a605-d49b-4caf-a3ff-66da33ce6901"] }, Open ]], Cell[CellGroupData[{ -Cell[500080, 12204, 2246, 64, 70, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], -Cell[502329, 12270, 610, 13, 70, "Message",ExpressionUUID->"72159c33-5954-4854-8755-4eb266235b84"], -Cell[502942, 12285, 613, 13, 70, "Message",ExpressionUUID->"70202078-d43f-4eae-a028-fbfaf3409261"], -Cell[503558, 12300, 616, 13, 70, "Message",ExpressionUUID->"d2cfdf69-b206-48cf-8357-2622500f1549"], -Cell[504177, 12315, 504, 11, 70, "Message",ExpressionUUID->"2431faaf-6110-4592-b9f5-c1189a33e948"], -Cell[504684, 12328, 222, 4, 70, "Output",ExpressionUUID->"5f0db9b0-7598-402c-a682-4ff9e19c7e34"] +Cell[517034, 12347, 2235, 63, 54, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[519272, 12412, 647, 14, 34, "Message",ExpressionUUID->"caa5cd01-5c41-49ea-9dda-c0ad0c505c0d"], +Cell[519922, 12428, 652, 14, 34, "Message",ExpressionUUID->"0060bf5f-9983-42f6-bb30-c0d1ee69fcd4"], +Cell[520577, 12444, 653, 14, 20, "Message",ExpressionUUID->"fb1e5581-e3a2-4159-9ee8-68ffd0d3bcee"], +Cell[521233, 12460, 540, 12, 20, "Message",ExpressionUUID->"e61a7da6-2255-4eaa-80ef-09e4caf44b41"], +Cell[521776, 12474, 244, 4, 38, "Output",ExpressionUUID->"c6d09d3b-b8ed-45f5-a32e-c7f42d702755"] }, Open ]], Cell[CellGroupData[{ -Cell[504943, 12337, 2244, 64, 70, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], -Cell[507190, 12403, 610, 13, 70, "Message",ExpressionUUID->"b31f5c5a-cef8-493e-96b7-d2d426d6dbad"], -Cell[507803, 12418, 615, 13, 70, "Message",ExpressionUUID->"f6591778-a3e1-4226-818b-eff0bc22ad79"], -Cell[508421, 12433, 618, 13, 70, "Message",ExpressionUUID->"98cbc908-95a1-4add-8100-3264b22eca8a"], -Cell[509042, 12448, 506, 11, 70, "Message",ExpressionUUID->"260b5979-99a4-44ad-9c4d-5fd62b78a7dd"], -Cell[509551, 12461, 218, 4, 70, "Output",ExpressionUUID->"0860c78b-128d-4158-a506-3ab4eb4644c2"] +Cell[522057, 12483, 2233, 63, 54, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[524293, 12548, 647, 14, 34, "Message",ExpressionUUID->"92af1c99-fc9e-4c3c-9453-8fa45b0c9f93"], +Cell[524943, 12564, 654, 14, 34, "Message",ExpressionUUID->"9f6d821a-cc73-46fe-9ddc-e4bcaf4379c9"], +Cell[525600, 12580, 654, 14, 20, "Message",ExpressionUUID->"ead057c6-c441-40c9-9375-03987a2fe14d"], +Cell[526257, 12596, 540, 12, 20, "Message",ExpressionUUID->"e271a27c-e445-4f76-b92b-3fd1c61330de"], +Cell[526800, 12610, 240, 4, 38, "Output",ExpressionUUID->"b0ca52aa-282f-4087-9df7-3b7bf174cd5a"] }, Open ]], Cell[CellGroupData[{ -Cell[509806, 12470, 238, 6, 70, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], -Cell[510047, 12478, 221, 4, 70, "Output",ExpressionUUID->"238c7521-11d6-4e4d-9afd-eb23254e72db"] +Cell[527077, 12619, 238, 6, 39, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[527318, 12627, 243, 4, 38, "Output",ExpressionUUID->"e05ff325-cc7c-4b2c-8667-f6f3d77b3800"] }, Open ]], -Cell[510283, 12485, 275, 6, 70, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[527576, 12634, 275, 6, 23, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], Cell[CellGroupData[{ -Cell[510583, 12495, 558, 19, 70, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], -Cell[511144, 12516, 220, 4, 70, "Output",ExpressionUUID->"f03d60e4-1511-48ee-b444-a714177e98d1"] +Cell[527876, 12644, 558, 19, 43, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[528437, 12665, 242, 4, 38, "Output",ExpressionUUID->"ab87e033-21b5-4994-95af-7284b5e2664a"] }, Open ]], Cell[CellGroupData[{ -Cell[511401, 12525, 170, 5, 70, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], -Cell[511574, 12532, 219, 4, 70, "Output",ExpressionUUID->"1f451e81-f163-46b7-8eed-a78b04b50d10"] +Cell[528716, 12674, 170, 5, 47, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[528889, 12681, 242, 4, 38, "Output",ExpressionUUID->"869ad003-31f5-4b50-9d4d-21c2f59474da"] }, Open ]], Cell[CellGroupData[{ -Cell[511830, 12541, 181, 5, 70, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], -Cell[512014, 12548, 220, 4, 70, "Output",ExpressionUUID->"b075fd3e-2f3b-41e4-b738-56bda35d3d9d"] +Cell[529168, 12690, 181, 5, 36, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[529352, 12697, 242, 4, 38, "Output",ExpressionUUID->"986c601a-61ce-4b5c-bd0d-db0e3eac208b"] }, Open ]], Cell[CellGroupData[{ -Cell[512271, 12557, 6055, 185, 70, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], -Cell[518329, 12744, 222, 4, 70, "Output",ExpressionUUID->"8f2ea1cd-53fd-4840-819d-1b9c22244214"] +Cell[529631, 12706, 6055, 185, 161, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[535689, 12893, 244, 4, 38, "Output",ExpressionUUID->"b10b9f16-af36-4df5-9192-1a869cd61d19"] }, Open ]], Cell[CellGroupData[{ -Cell[518588, 12753, 368, 9, 70, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], -Cell[518959, 12764, 220, 4, 70, "Output",ExpressionUUID->"4c7da448-c919-4091-8844-0ebf1bb221a2"] +Cell[535970, 12902, 368, 9, 33, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[536341, 12913, 241, 4, 38, "Output",ExpressionUUID->"89b7e0d3-aee1-4a0f-8b10-2ec8ec5e6fc8"] }, Open ]], Cell[CellGroupData[{ -Cell[519216, 12773, 6122, 187, 70, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], -Cell[525341, 12962, 221, 4, 70, "Output",ExpressionUUID->"a3265a6f-358f-4b61-9d40-a52c9448e296"] +Cell[536619, 12922, 6122, 187, 161, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[542744, 13111, 243, 4, 38, "Output",ExpressionUUID->"5a9b0c26-c4fd-4b7c-b501-4e670fbe6d13"] }, Open ]], Cell[CellGroupData[{ -Cell[525599, 12971, 368, 9, 70, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], -Cell[525970, 12982, 217, 4, 70, "Output",ExpressionUUID->"b3186920-fa31-43da-b44c-70610fdb24c7"] +Cell[543024, 13120, 368, 9, 33, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[543395, 13131, 241, 4, 38, "Output",ExpressionUUID->"99e74050-25b7-4df4-a1b5-eb6b86f0a826"] }, Open ]], Cell[CellGroupData[{ -Cell[526224, 12991, 2663, 88, 70, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], -Cell[528890, 13081, 218, 4, 70, "Output",ExpressionUUID->"831a7896-3e3d-49b2-bd98-cb392bd58e7a"] +Cell[543673, 13140, 2663, 88, 95, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[546339, 13230, 240, 4, 38, "Output",ExpressionUUID->"0aab0881-f113-43d8-8c96-4d842c43f5f5"] }, Open ]], Cell[CellGroupData[{ -Cell[529145, 13090, 2603, 85, 70, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], -Cell[531751, 13177, 218, 4, 70, "Output",ExpressionUUID->"333fbc34-dfbe-411b-8139-3065ee20c7c9"] +Cell[546616, 13239, 2603, 85, 95, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[549222, 13326, 242, 4, 38, "Output",ExpressionUUID->"1d610c54-ddb3-4131-abe1-6e58ad5b7eee"] }, Open ]], Cell[CellGroupData[{ -Cell[532006, 13186, 3712, 118, 70, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], -Cell[535721, 13306, 219, 4, 70, "Output",ExpressionUUID->"4759d739-6c3a-44ac-9aa3-0767926fd09f"] +Cell[549501, 13335, 3712, 118, 142, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[553216, 13455, 241, 4, 38, "Output",ExpressionUUID->"24b720e1-d93f-4a13-b94d-5a653b729076"] }, Open ]], Cell[CellGroupData[{ -Cell[535977, 13315, 2075, 59, 70, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], -Cell[538055, 13376, 610, 13, 70, "Message",ExpressionUUID->"3dbcd7eb-e500-42aa-9428-8ca86a8885cb"], -Cell[538668, 13391, 615, 13, 70, "Message",ExpressionUUID->"6b1f23ee-d9f2-4cfc-ab10-479fe608da7d"], -Cell[539286, 13406, 619, 13, 70, "Message",ExpressionUUID->"48494406-dd53-49c5-ac1b-b145417d3a97"], -Cell[539908, 13421, 505, 11, 70, "Message",ExpressionUUID->"14cea65a-4651-4c19-99c0-83d3ca22063b"], -Cell[540416, 13434, 218, 4, 70, "Output",ExpressionUUID->"64cfaf38-af20-4788-8b95-3b0770c267ce"] +Cell[553494, 13464, 2075, 59, 83, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[555572, 13525, 653, 14, 34, "Message",ExpressionUUID->"c533c357-e843-49e8-9876-ebf7c370742a"], +Cell[556228, 13541, 656, 14, 20, "Message",ExpressionUUID->"cf9c410c-6a71-4738-8bd2-1bbda9abb23d"], +Cell[556887, 13557, 658, 14, 20, "Message",ExpressionUUID->"6b3aa01c-a358-49b9-a1af-174564008cbe"], +Cell[557548, 13573, 541, 12, 20, "Message",ExpressionUUID->"f23581c8-a7dd-47d1-87ab-05efd8efca8e"], +Cell[558092, 13587, 240, 4, 38, "Output",ExpressionUUID->"a58be707-2cc8-4314-bcd9-1dc31f34a2ea"] }, Open ]], Cell[CellGroupData[{ -Cell[540671, 13443, 2075, 59, 70, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], -Cell[542749, 13504, 611, 13, 70, "Message",ExpressionUUID->"e6a2e91e-fea7-4140-a6e9-5b00ffdfb2a0"], -Cell[543363, 13519, 618, 13, 70, "Message",ExpressionUUID->"4f96666f-4e66-4091-a9d6-2f66e20bccc5"], -Cell[543984, 13534, 618, 13, 70, "Message",ExpressionUUID->"1395affe-60c6-4fe0-bffa-50a55d4b21a9"], -Cell[544605, 13549, 506, 11, 70, "Message",ExpressionUUID->"5c3ca0a5-5da6-437e-89a8-a046c6e54f1d"], -Cell[545114, 13562, 217, 4, 70, "Output",ExpressionUUID->"cd6b9476-2b2f-4cf4-83fb-514d331cb8a2"] +Cell[558369, 13596, 2075, 59, 83, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[560447, 13657, 654, 14, 34, "Message",ExpressionUUID->"6fcc8c26-d424-4a0d-b781-57168194d966"], +Cell[561104, 13673, 657, 14, 20, "Message",ExpressionUUID->"7d2f0d7f-7f5f-4820-95c2-fff75ae083db"], +Cell[561764, 13689, 659, 14, 20, "Message",ExpressionUUID->"0a26529c-3943-479a-af70-6ce32998ee62"], +Cell[562426, 13705, 542, 12, 20, "Message",ExpressionUUID->"1abc42db-fff8-44b4-94ce-82ea0ef30833"], +Cell[562971, 13719, 240, 4, 38, "Output",ExpressionUUID->"f20123de-3bbc-4b45-bfa0-ddb017250a78"] }, Open ]], Cell[CellGroupData[{ -Cell[545368, 13571, 2051, 55, 70, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], -Cell[547422, 13628, 20419, 384, 70, "Output",ExpressionUUID->"b7dadcdb-0cb1-491b-9de2-cc40be12ed2b"] +Cell[563248, 13728, 2051, 55, 45, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[565302, 13785, 20471, 387, 200, "Output",ExpressionUUID->"12e37e68-0064-4a41-b0ee-5a7378e5c4c6"] }, Open ]], Cell[CellGroupData[{ -Cell[567878, 14017, 2176, 61, 70, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], -Cell[570057, 14080, 530, 11, 70, "Message",ExpressionUUID->"1d46097d-8b7e-41f6-905d-96dc4018a19c"], -Cell[570590, 14093, 535, 11, 70, "Message",ExpressionUUID->"66622d03-1fee-48a8-ac48-ebd8f33b7ad5"], -Cell[571128, 14106, 535, 11, 70, "Message",ExpressionUUID->"92491d40-9f3e-4cd6-8c8e-fa15f51bce36"], -Cell[571666, 14119, 487, 10, 70, "Message",ExpressionUUID->"68e04625-4642-437f-a255-a2a663de8d07"], -Cell[572156, 14131, 22736, 418, 70, "Output",ExpressionUUID->"ebac424d-0249-44fb-b9cd-12d07f270f8a"] +Cell[585810, 14177, 2168, 61, 83, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[587981, 14240, 562, 13, 34, "Message",ExpressionUUID->"4f7d89d1-1233-443e-b024-2461e8432e56"], +Cell[588546, 14255, 566, 13, 34, "Message",ExpressionUUID->"68e3b77d-6bb0-43e1-848a-8e2272945904"], +Cell[589115, 14270, 571, 13, 34, "Message",ExpressionUUID->"4e6cf7da-aa67-4b91-98c8-d08d1caebb39"], +Cell[589689, 14285, 520, 12, 20, "Message",ExpressionUUID->"6ba2d253-57ba-4065-a1b6-f30f4e497589"], +Cell[590212, 14299, 25415, 466, 186, "Output",ExpressionUUID->"a8e2c494-7d4e-4273-8d3f-2200f76f608b"] }, Open ]], Cell[CellGroupData[{ -Cell[594929, 14554, 240, 5, 70, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], -Cell[595172, 14561, 29136, 551, 70, "Output",ExpressionUUID->"1b3f0e6c-e600-42f2-84ec-8d3b68e20971"] +Cell[615664, 14770, 232, 5, 23, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[615899, 14777, 31770, 597, 186, "Output",ExpressionUUID->"54a00ac2-a4db-442f-ac37-95c3f44a2c4b"] }, Open ]], Cell[CellGroupData[{ -Cell[624345, 15117, 1624, 48, 70, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], -Cell[625972, 15167, 3097, 48, 70, "Message",ExpressionUUID->"06262046-f098-46f5-855f-35dcfeea8d7e"] +Cell[647706, 15379, 1616, 48, 60, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[649325, 15429, 663, 14, 34, "Message",ExpressionUUID->"43e6966e-7f59-4021-9c1a-698a217a3c35"], +Cell[649991, 15445, 668, 14, 34, "Message",ExpressionUUID->"60da9307-9e8c-4988-befc-9d79d0287ad9"], +Cell[650662, 15461, 671, 14, 34, "Message",ExpressionUUID->"06093306-be42-4892-9e74-b8450e4453b9"], +Cell[651336, 15477, 517, 12, 20, "Message",ExpressionUUID->"38a050de-1651-4958-ab6d-97768495cc1e"], +Cell[651856, 15491, 169, 3, 38, "Output",ExpressionUUID->"b3d308f6-d45c-4dec-b9c3-01b93adc1948"] }, Open ]], Cell[CellGroupData[{ -Cell[629106, 15220, 2280, 64, 70, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], -Cell[631389, 15286, 594, 12, 70, "Message",ExpressionUUID->"dc1b2063-9c6f-4169-a5e1-ca943a0815db"], -Cell[631986, 15300, 601, 12, 70, "Message",ExpressionUUID->"bfad3723-f014-4a66-bc1f-5ad06d7e2f41"], -Cell[632590, 15314, 603, 12, 70, "Message",ExpressionUUID->"8a6c8e1c-b568-42d8-8ac8-8a30e28c308b"], -Cell[633196, 15328, 489, 10, 70, "Message",ExpressionUUID->"7d0985f4-ff53-4006-a651-1dfc9d887795"], -Cell[633688, 15340, 203, 3, 70, "Output",ExpressionUUID->"d0963cc4-859d-4542-bac8-ed629be0e663"] +Cell[652062, 15499, 2272, 64, 54, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[654337, 15565, 632, 14, 34, "Message",ExpressionUUID->"43ea6a2c-ddb3-4b62-a490-43f600477544"], +Cell[654972, 15581, 635, 14, 34, "Message",ExpressionUUID->"9d45a1d6-8553-4178-847f-e32c9a717a96"], +Cell[655610, 15597, 637, 14, 34, "Message",ExpressionUUID->"dd521eff-b497-41f8-8208-5efebed8da48"], +Cell[656250, 15613, 520, 12, 20, "Message",ExpressionUUID->"2880a9fb-971c-4403-aa2e-9ff2fe95ccdc"], +Cell[656773, 15627, 222, 4, 38, "Output",ExpressionUUID->"c5abd424-c102-481e-85c4-ae78ec52fb5d"] }, Open ]], Cell[CellGroupData[{ -Cell[633928, 15348, 2252, 64, 70, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], -Cell[636183, 15414, 597, 12, 70, "Message",ExpressionUUID->"47c6abb5-8d1b-4ca0-a440-623ff2d2051a"], -Cell[636783, 15428, 600, 12, 70, "Message",ExpressionUUID->"c3b7ed70-321d-43df-8bee-3161beaa0240"], -Cell[637386, 15442, 602, 12, 70, "Message",ExpressionUUID->"d0eaa79d-ebe3-4dcf-b550-5b92c118ba2d"], -Cell[637991, 15456, 488, 10, 70, "Message",ExpressionUUID->"0446f28f-a985-49a4-b3a9-17193853e55d"], -Cell[638482, 15468, 204, 3, 70, "Output",ExpressionUUID->"d4bc6433-9f3b-46d4-a47e-ce1dc8d9f31e"] +Cell[657032, 15636, 2233, 63, 54, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[659268, 15701, 636, 14, 34, "Message",ExpressionUUID->"189bec77-b924-437a-936e-e8a7ecd6bdac"], +Cell[659907, 15717, 639, 14, 34, "Message",ExpressionUUID->"efde539d-8356-4931-af71-30063dd4a0fb"], +Cell[660549, 15733, 639, 14, 34, "Message",ExpressionUUID->"af80defd-45a6-42ed-89cc-9e05857bb768"], +Cell[661191, 15749, 521, 12, 20, "Message",ExpressionUUID->"b04ea18c-2536-4a57-9871-5fd0f86438fd"], +Cell[661715, 15763, 221, 4, 38, "Output",ExpressionUUID->"00d8ba53-9fa0-4e5e-a09c-36a55e3681fe"] }, Open ]], Cell[CellGroupData[{ -Cell[638723, 15476, 2250, 64, 70, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], -Cell[640976, 15542, 593, 12, 70, "Message",ExpressionUUID->"e461b031-ad96-430d-b27f-92cbab03a5cf"], -Cell[641572, 15556, 600, 12, 70, "Message",ExpressionUUID->"b66a5eed-9a05-4e21-92db-ce2cb6bfbd95"], -Cell[642175, 15570, 602, 12, 70, "Message",ExpressionUUID->"66afc9ba-9ad2-4435-b70d-528769fea26d"], -Cell[642780, 15584, 486, 10, 70, "Message",ExpressionUUID->"bf8c52c9-8f7f-4433-85da-8e8d84989640"], -Cell[643269, 15596, 202, 3, 70, "Output",ExpressionUUID->"4d9fc2da-fe98-442b-909d-dbcba12a7a47"] +Cell[661973, 15772, 2231, 63, 54, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[664207, 15837, 630, 14, 34, "Message",ExpressionUUID->"5ffdabd9-ab92-4123-88ee-4b2de8e15741"], +Cell[664840, 15853, 633, 14, 34, "Message",ExpressionUUID->"13fe89e9-0084-4036-982a-1a80d8e7713f"], +Cell[665476, 15869, 635, 14, 34, "Message",ExpressionUUID->"de6c92b6-af45-42e5-8595-66eecb0c9e1e"], +Cell[666114, 15885, 518, 12, 20, "Message",ExpressionUUID->"e6df683e-044a-44eb-be90-72cb3f2bf61e"], +Cell[666635, 15899, 221, 4, 38, "Output",ExpressionUUID->"b166cdde-1339-4326-84df-a477020dbd9e"] }, Open ]], Cell[CellGroupData[{ -Cell[643508, 15604, 242, 6, 70, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], -Cell[643753, 15612, 204, 3, 70, "Output",ExpressionUUID->"6159abac-cad3-4118-bbe2-3fea1af77e48"] +Cell[666893, 15908, 234, 6, 39, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[667130, 15916, 223, 4, 38, "Output",ExpressionUUID->"4775dc45-8a13-4da0-b796-f98bdd78166c"] }, Open ]] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw2.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw2.nb index 1f902d9..04bd874 100755 --- a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw2.nb +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw2.nb @@ -3,42 +3,5025 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 243505, 7911] -NotebookOptionsPosition[ 219988, 7552] -NotebookOutlinePosition[ 220412, 7569] -CellTagsIndexPosition[ 220369, 7566] +NotebookDataLength[ 684888, 16243] +NotebookOptionsPosition[ 644423, 15595] +NotebookOutlinePosition[ 644857, 15613] +CellTagsIndexPosition[ 644814, 15610] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918505481678543`*^9},ExpressionUUID->"83cccf0d-dccb-fb42-a058-\ -5e950c758893"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991850549355442*^9, - 3.991850549360302*^9}},ExpressionUUID->"7730e455-e5f4-194b-b761-\ -e7a6896afd10"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "2"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993120093374651*^9, 3.993120098406262*^9}, { + 3.9931205775772543`*^9, 3.9931205930074*^9}, {3.99312068244851*^9, + 3.993120683031312*^9}, {3.993120763928855*^9, 3.993120796207575*^9}, { + 3.993120826638487*^9, 3.99312091050727*^9}, {3.9938200779452133`*^9, + 3.993820078648109*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"d6e5dbec-3a1c-4b94-addd-8a69a59ba427"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{{3.99312071481172*^9, 3.993120733996957*^9}, + 3.993120778405978*^9, {3.993120808982645*^9, 3.993120917972237*^9}, + 3.9931263962514753`*^9, 3.993127107949593*^9, 3.9931273269905376`*^9, + 3.993129929766796*^9, 3.993820659117201*^9, 3.9938209219867153`*^9, + 3.9938213248523483`*^9, 3.99382619442096*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"098b02f9-bd83-463f-b862-747e1ef4622b"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9921791748924236`*^9, 3.992179175479521*^9}}, + CellLabel->"In[2]:=",ExpressionUUID->"a33448e2-7bab-4fd5-a7dd-2a5b8f37d9d5"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ -5e27a96171a9"], + 3.9913196497381973`*^9, 3.992179197984804*^9, 3.992572214097535*^9, + 3.992572317060832*^9, 3.993119177905259*^9, 3.993120125010063*^9, + 3.9931206200212383`*^9, 3.993120734031558*^9, 3.993120778440694*^9, { + 3.9931208090163393`*^9, 3.993120918005108*^9}, 3.993126396590149*^9, + 3.99312710802812*^9, 3.993127327031427*^9, 3.993129929806696*^9, + 3.993820922243906*^9, 3.993821325040292*^9, 3.993826194484734*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"0b6cd4ae-c400-4fc0-9e69-df39201229d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "174"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.992179210458246*^9, 3.9921792125496464`*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"a386dd89-6a85-410a-a5bf-856a47873560"], + +Cell[BoxData["174"], "Output", + CellChangeTimes->{ + 3.992179213346216*^9, 3.992572214121804*^9, 3.992572317082644*^9, + 3.9931191779262667`*^9, 3.993120125034624*^9, 3.993120620044674*^9, + 3.993120734050745*^9, 3.993120778464333*^9, {3.9931208090398912`*^9, + 3.993120918033216*^9}, 3.9931263966177673`*^9, 3.993127108045971*^9, + 3.993127327055435*^9, 3.99312992983158*^9, 3.993820922264188*^9, + 3.993821325060758*^9, 3.993826194497525*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"24a5080c-cd8b-43ed-9046-8ebe67f6a10a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"2abc42cd-33b6-4d4e-b82f-28c3af1b1daf"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.992572214146598*^9, 3.992572317086834*^9, + 3.993119177946436*^9, 3.993120125058119*^9, 3.993120620068224*^9, + 3.993120734070492*^9, 3.993120778487204*^9, {3.993120809063224*^9, + 3.993120918037675*^9}, 3.9931263966592207`*^9, 3.993127108062867*^9, + 3.9931273270590353`*^9, 3.993129929855886*^9, 3.9938209222814407`*^9, + 3.993821325081142*^9, 3.993826194510252*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"e79accb6-b5c8-4430-be68-450116d1f5b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"e4a16bd8-96ae-4cfe-aa25-977db59658c2"], + +Cell[BoxData["0.54325`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.992572214170871*^9, 3.992572317111895*^9, + 3.993119177966724*^9, 3.993120125061846*^9, 3.993120620073361*^9, + 3.993120734074827*^9, 3.993120778491198*^9, {3.993120809067272*^9, + 3.993120918063335*^9}, 3.9931263966877337`*^9, 3.993127108066464*^9, + 3.993127327083083*^9, 3.99312992986033*^9, 3.99382092229881*^9, + 3.993821325101738*^9, 3.993826194522952*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"a1d0c927-f109-469b-b0fc-156325d1001c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"6323524b-a315-4a0b-92a6-b4bcb1a1762d"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.992572214197208*^9, 3.992572317132773*^9, + 3.993119177986623*^9, 3.993120125088593*^9, 3.993120620099668*^9, + 3.993120734095941*^9, 3.99312077851781*^9, {3.993120809095289*^9, + 3.993120918090218*^9}, 3.993126396714637*^9, 3.993127108084917*^9, + 3.993127327106142*^9, 3.993129929903006*^9, 3.9938209223161383`*^9, + 3.9938213251220818`*^9, 3.99382619453563*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"73cfa33a-1d3b-4129-900c-7ec16287373c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[7]:=",ExpressionUUID->"f7575093-2226-40a9-bcd5-502c54e37a76"], + +Cell[BoxData["6.4760133991237705`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.992572214222725*^9, 3.992572317154562*^9, + 3.99311917800653*^9, 3.9931201251119223`*^9, 3.993120620121489*^9, + 3.993120734114851*^9, 3.993120778540956*^9, {3.993120809118425*^9, + 3.9931209181194077`*^9}, 3.993126396741642*^9, 3.993127108102049*^9, + 3.993127327128428*^9, 3.993129929926125*^9, 3.993820922333848*^9, + 3.993821325144353*^9, 3.993826194548183*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"1f53d8ab-0103-422c-9f13-3cc445440e8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"41817baa-8136-45f0-bf07-2b770c688b9f"], + +Cell[BoxData["4.6878384239217405`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992572214247353*^9, 3.9925723171758833`*^9, + 3.993119178026596*^9, 3.993120125135309*^9, 3.9931206201430807`*^9, + 3.9931207341331453`*^9, 3.993120778564814*^9, {3.993120809140911*^9, + 3.993120918144981*^9}, 3.993126396766501*^9, 3.9931271081205463`*^9, + 3.99312732715136*^9, 3.993129929948636*^9, 3.993820922349847*^9, + 3.9938213251706743`*^9, 3.993826194560729*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"d9dd9b8e-c7c8-4000-8088-79c4b00ec9df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", " ", "0.787635594208527"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.992179227142147*^9, 3.9921792274418793`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"b83e38da-90f1-41f0-b713-931625d01482"], + +Cell[BoxData["0.787635594208527`"], "Output", + CellChangeTimes->{ + 3.9921792420000687`*^9, 3.992572214271277*^9, 3.992572317197154*^9, + 3.993119178046308*^9, 3.993120125158621*^9, 3.993120620165731*^9, + 3.993120734151725*^9, 3.993120778587878*^9, {3.993120809163859*^9, + 3.993120918172269*^9}, 3.9931263967899513`*^9, 3.9931271081375427`*^9, + 3.993127327173975*^9, 3.9931299299716787`*^9, 3.993820922366026*^9, + 3.99382132519131*^9, 3.9938261945736237`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"433b84b0-03c3-4e66-b8de-45a934a519f3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", " ", "0.446333511300556"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.9921792384900284`*^9, 3.9921792388312874`*^9}}, + CellLabel->"In[10]:=",ExpressionUUID->"b909fb64-b8a4-4c8f-82ef-7189fe1216fe"], + +Cell[BoxData["0.446333511300556`"], "Output", + CellChangeTimes->{ + 3.9921792398346214`*^9, 3.992572214295*^9, 3.992572317218054*^9, + 3.9931191780661097`*^9, 3.9931201251823397`*^9, 3.9931206201876802`*^9, + 3.993120734170333*^9, 3.993120778610222*^9, {3.993120809186323*^9, + 3.99312091819843*^9}, 3.993126396813437*^9, 3.993127108161908*^9, + 3.993127327196413*^9, 3.993129929995016*^9, 3.993820922383264*^9, + 3.993821325212247*^9, 3.993826194586205*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"3af677ff-1531-4cb7-a305-01ccbc052a66"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"8b16625d-76df-4659-9a75-754a70162587"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992572214318672*^9, 3.992572317239251*^9, + 3.99311917808567*^9, 3.9931201252072067`*^9, 3.993120620211128*^9, + 3.9931207341889687`*^9, 3.99312077863275*^9, {3.9931208092095003`*^9, + 3.993120918224504*^9}, 3.993126396838297*^9, 3.993127108181823*^9, + 3.993127327218768*^9, 3.993129930018751*^9, 3.993820922401799*^9, + 3.993821325232583*^9, 3.993826194598633*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"605503d9-a2e7-49fb-83eb-9b0520c35bd6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"933082c0-4165-47fd-ad39-33b3b85dfa58"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.992572214341442*^9, 3.99257231726003*^9, + 3.9931191781051207`*^9, 3.993120125230564*^9, 3.9931206202335043`*^9, + 3.99312073420716*^9, 3.993120778655138*^9, {3.993120809232238*^9, + 3.993120918250256*^9}, 3.9931263968628597`*^9, 3.9931271081993628`*^9, + 3.9931273272409983`*^9, 3.993129930042575*^9, 3.9938209224218187`*^9, + 3.993821325253791*^9, 3.993826194611216*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8a67ff2e-6699-4965-a6f2-e9b87ebc83c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[13]:=",ExpressionUUID->"36ed2d17-4a01-48aa-a83c-6a16c44201cc"], + +Cell[BoxData["2.061265729478835`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9925722143657017`*^9, 3.992572317280959*^9, + 3.993119178124851*^9, 3.993120125254407*^9, 3.993120620254471*^9, + 3.993120734225675*^9, 3.9931207786779127`*^9, {3.993120809254608*^9, + 3.993120918276112*^9}, 3.9931263968879843`*^9, 3.993127108217485*^9, + 3.993127327263125*^9, 3.993129930068864*^9, 3.993820922442368*^9, + 3.993821325274584*^9, 3.993826194623904*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"07a7c125-b3d1-4e9b-a536-b6c5c99b7ec0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"f9667d52-a466-4505-8498-095d65b67cd1"], + +Cell[BoxData["1.500736140386642`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992572214389948*^9, 3.992572317303102*^9, + 3.993119178144163*^9, 3.9931201252777433`*^9, 3.9931206202755957`*^9, + 3.993120734243594*^9, 3.9931207787003393`*^9, {3.993120809276908*^9, + 3.99312091830203*^9}, 3.993126396911474*^9, 3.993127108235187*^9, + 3.993127327285036*^9, 3.993129930093583*^9, 3.993820922464366*^9, + 3.993821325296948*^9, 3.9938261946369267`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"716b98f3-e26c-42e0-9990-c5d5b7b240ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[15]:=",ExpressionUUID->"6be43e9d-50b5-487b-81c0-7f53d676efdd"], + +Cell[BoxData["0.4819667641075124`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992572214413184*^9, 3.99257231732421*^9, + 3.993119178164648*^9, 3.993120125301038*^9, 3.9931206202958717`*^9, + 3.993120734262151*^9, 3.993120778723154*^9, {3.993120809300878*^9, + 3.99312091832813*^9}, 3.993126396937214*^9, 3.9931271082526913`*^9, + 3.993127327307868*^9, 3.9931299301179867`*^9, 3.993820922485868*^9, + 3.993821325318647*^9, 3.9938261946510973`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"a7a1fd05-f778-4355-bf87-9a52c3fe00d9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[16]:=",ExpressionUUID->"e2f6ce26-c7ab-4f49-bfae-454a1717dfc6"], + +Cell[BoxData[ + RowBox[{"-", "0.11350137337476086`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992572214437451*^9, 3.9925723173458*^9, + 3.993119178185848*^9, 3.993120125324417*^9, 3.9931206203183327`*^9, + 3.993120734281169*^9, 3.9931207787467546`*^9, {3.9931208093296213`*^9, + 3.99312091835464*^9}, 3.993126396963295*^9, 3.993127108270629*^9, + 3.993127327330381*^9, 3.9931299301418533`*^9, 3.99382092250697*^9, + 3.993821325323758*^9, 3.993826194665312*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"6ec4bf3b-1e06-4657-b6e1-d7e0690b6872"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"d6ecd94f-f0d9-4eb5-89d3-7ec7d47cd21e"], + +Cell[BoxData[ + RowBox[{"-", "0.4652269449262844`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992572214463674*^9, 3.992572317369649*^9, + 3.9931191782082033`*^9, 3.99312012534838*^9, 3.993120620340795*^9, + 3.993120734300748*^9, 3.993120778771158*^9, {3.993120809354206*^9, + 3.993120918381035*^9}, 3.993126396990156*^9, 3.9931271082880383`*^9, + 3.993127327353141*^9, 3.993129930165496*^9, 3.993820922527863*^9, + 3.9938213253592663`*^9, 3.993826194680153*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"4a31172c-bf80-4b03-bf9a-c5dbedca84ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"9bf7f8ba-fa1f-4526-bcb5-7f46a98d64a7"], + +Cell[BoxData["0.6581300944010081`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.992572214489163*^9, 3.992572317393075*^9, + 3.993119178231051*^9, 3.9931201253721113`*^9, 3.99312062036334*^9, + 3.993120734321094*^9, 3.993120778795766*^9, {3.993120809378998*^9, + 3.993120918385751*^9}, 3.9931263970193033`*^9, 3.993127108305181*^9, + 3.9931273273757467`*^9, 3.993129930188332*^9, 3.9938209225487947`*^9, + 3.993821325380507*^9, 3.9938261946969137`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"b7f0109e-33fc-403c-ba28-3a8179378be7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[19]:=",ExpressionUUID->"80cabeba-5fc0-4943-bf9b-8956a8dba043"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.992572214515427*^9, 3.99257231741498*^9, + 3.993119178253972*^9, 3.993120125375824*^9, 3.993120620387291*^9, + 3.993120734341495*^9, 3.993120778819956*^9, {3.9931208093832693`*^9, + 3.9931209184116087`*^9}, 3.99312639704468*^9, 3.993127108308776*^9, + 3.993127327398494*^9, 3.9931299302114077`*^9, 3.993820922569104*^9, + 3.993821325402446*^9, 3.993826194711275*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"496b6f34-acec-4181-8fb7-80f0f7f3e21d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"88e076ea-c127-4386-84df-5b5d4a42bbf0"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9925722145429707`*^9, 3.992572317437202*^9, + 3.993119178277193*^9, 3.9931201254011793`*^9, 3.993120620412382*^9, + 3.9931207343622217`*^9, 3.9931207788442707`*^9, {3.99312080941044*^9, + 3.9931209184381313`*^9}, 3.993126397071262*^9, 3.99312710832703*^9, + 3.9931273274216337`*^9, 3.993129930233728*^9, 3.993820922588461*^9, + 3.993821325422915*^9, 3.993826194729813*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"ebfe10c6-609a-471f-a433-a46447d2cb8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"0e21c6ce-d6ef-4839-9d8e-c53c9135c57a"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992572214574439*^9, 3.992572317459443*^9, + 3.993119178300417*^9, 3.9931201254244537`*^9, 3.9931206204363203`*^9, + 3.993120734383583*^9, 3.9931207788686132`*^9, {3.9931208094353867`*^9, + 3.9931209184643908`*^9}, 3.993126397099202*^9, 3.993127108343864*^9, + 3.993127327445428*^9, 3.9931299302566557`*^9, 3.9938209226073112`*^9, + 3.993821325443508*^9, 3.9938261947429457`*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"3d8d5b4b-537a-4348-8e60-6474134848d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"bf0fe2cb-61a2-4c16-9c74-d436b9a39142"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992572214602646*^9, 3.9925723174828*^9, + 3.993119178323925*^9, 3.993120125448517*^9, 3.993120620460043*^9, + 3.993120734387587*^9, 3.993120778893586*^9, {3.99312080946041*^9, + 3.993120918489931*^9}, 3.993126397126109*^9, 3.993127108360798*^9, + 3.9931273274692783`*^9, 3.993129930279661*^9, 3.993820922626377*^9, + 3.993821325463908*^9, 3.9938261947557983`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"f904330f-fcb9-423c-8e08-a9543f061f07"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[23]:=",ExpressionUUID->"e2deac66-08d5-456e-accb-fa49c2b17d62"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992572214629313*^9, 3.992572317507607*^9, + 3.9931191783485727`*^9, 3.993120125472217*^9, 3.993120620483555*^9, + 3.9931207344112377`*^9, 3.993120778917965*^9, {3.9931208094855137`*^9, + 3.993120918515835*^9}, 3.9931263971541853`*^9, 3.9931271083779078`*^9, + 3.99312732750038*^9, 3.9931299303028812`*^9, 3.993820922647743*^9, + 3.993821325485675*^9, 3.993826194770073*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"9fc04a35-578f-487d-b326-c727d856fef9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", " ", "64"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.992179334842106*^9, 3.992179335687786*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"a76c2931-07c4-4f01-99aa-50017685829a"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.992179336847067*^9, 3.9925722146573257`*^9, 3.992572317531928*^9, + 3.9931191783727818`*^9, 3.99312012549559*^9, 3.993120620507852*^9, + 3.99312073443309*^9, 3.9931207789437017`*^9, {3.993120809511362*^9, + 3.993120918541663*^9}, 3.993126397182165*^9, 3.9931271083947906`*^9, + 3.993127327526623*^9, 3.993129930307193*^9, 3.993820922668882*^9, + 3.993821325506364*^9, 3.9938261947852373`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"96c20007-b469-4ad9-9225-94e1343350f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9921793256443367`*^9, 3.992179330522312*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"c6564cdc-ccb7-4df3-a285-62c0f4cd5d56"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9921793318030663`*^9, 3.9925722146853657`*^9, + 3.9925723175551643`*^9, 3.993119178397065*^9, 3.9931201255193787`*^9, + 3.993120620532507*^9, 3.993120734454447*^9, 3.9931207789693117`*^9, { + 3.993120809536613*^9, 3.9931209185672503`*^9}, 3.993126397209779*^9, + 3.993127108411848*^9, 3.993127327550788*^9, 3.993129930331666*^9, + 3.993820922690579*^9, 3.993821325527898*^9, 3.993826194800334*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"82902619-e091-42e7-97d7-a304467bd03a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"2e75291e-baac-4ffe-a98a-0b062d96729d"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992572214711643*^9, 3.9925723175775127`*^9, + 3.993119178422393*^9, 3.993120125544594*^9, 3.9931206205571127`*^9, + 3.993120734475452*^9, 3.993120778995337*^9, {3.993120809563072*^9, + 3.993120918592782*^9}, 3.993126397236918*^9, 3.9931271084302473`*^9, + 3.9931273275743093`*^9, 3.9931299303548107`*^9, 3.9938209227139177`*^9, + 3.993821325548872*^9, 3.99382619481488*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"f36bd445-d5af-40df-99e1-53f46d7a0754"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[27]:=",ExpressionUUID->"0fcbd4ef-22d9-4769-9ef7-64a79be54340"], + +Cell[BoxData["0.10009404388714734`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9925722147384853`*^9, 3.9925723175992517`*^9, + 3.993119178447468*^9, 3.9931201255690928`*^9, 3.99312062058057*^9, + 3.993120734496913*^9, 3.9931207790217533`*^9, {3.993120809589333*^9, + 3.993120918618535*^9}, 3.993126397265643*^9, 3.993127108447774*^9, + 3.993127327597167*^9, 3.993129930377665*^9, 3.993820922736074*^9, + 3.993821325571004*^9, 3.993826194831819*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"705be61e-eaca-47e1-9542-0b00d369ad0e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel->"In[28]:=",ExpressionUUID->"6ab2b44e-c72c-4e2a-9441-3cbdcde8d5cb"], + +Cell[BoxData[ + RowBox[{"-", "2.5770219435736674`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9925722147662983`*^9, 3.992572317620441*^9, + 3.99311917847161*^9, 3.9931201255928173`*^9, 3.993120620603883*^9, + 3.99312073451705*^9, 3.993120779047393*^9, {3.993120809616363*^9, + 3.99312091864408*^9}, 3.993126397321745*^9, 3.9931271084650297`*^9, + 3.993127327619956*^9, 3.9931299304007187`*^9, 3.9938209227580633`*^9, + 3.993821325594208*^9, 3.993826194850192*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"1baedb1a-5901-4d0b-b6bd-47d65a85ef00"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"922e01e2-de78-4872-ab8e-fd1fdc43708f"], + +Cell[BoxData["17.307103859214784`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9925722147917547`*^9, 3.992572317642908*^9, + 3.9931191784953337`*^9, 3.9931201256157637`*^9, 3.993120620627388*^9, + 3.993120734537298*^9, 3.993120779073007*^9, {3.993120809642799*^9, + 3.99312091866967*^9}, 3.993126397349163*^9, 3.993127108482143*^9, + 3.993127327644107*^9, 3.993129930424616*^9, 3.9938209227870483`*^9, + 3.993821325616982*^9, 3.993826194867538*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"1cc11f16-bb93-4a7b-9c5b-529f3f685468"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"64c918ea-72a8-4d2d-aeee-18faa0af62c6"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992572214844244*^9, 3.992572317663885*^9, + 3.993119178519957*^9, 3.9931201256394*^9, 3.993120620650062*^9, + 3.9931207345574923`*^9, 3.9931207790984907`*^9, {3.99312080966818*^9, + 3.993120918694831*^9}, 3.9931263973740883`*^9, 3.99312710849828*^9, + 3.993127327666795*^9, 3.993129930447353*^9, 3.993820922809124*^9, + 3.99382132563982*^9, 3.993826194885755*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"e6011927-c680-4a75-b5e5-b0cdab7e147b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", " ", "1.7300"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.99217938935705*^9, 3.9921793928277493`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"66227da0-3c90-4364-8c15-843def3d1aac"], + +Cell[BoxData["1.73`"], "Output", + CellChangeTimes->{ + 3.992179393619543*^9, 3.99257221486978*^9, 3.9925723176844263`*^9, + 3.993119178543579*^9, 3.993120125662697*^9, 3.993120620672945*^9, + 3.993120734577505*^9, 3.99312077912435*^9, {3.993120809694366*^9, + 3.9931209187201843`*^9}, 3.993126397400276*^9, 3.993127108513898*^9, + 3.9931273276905518`*^9, 3.993129930470989*^9, 3.993820922835219*^9, + 3.993821325664843*^9, 3.9938261949020777`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"e197fbb4-56fe-40fa-96e7-57e7008a903d"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918505524437046`*^9, - 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ -8c5c5be10fe8"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"14f47334-6f12-4a88-8f47-06973016e6b4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", " ", "0.7600"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.992179397583227*^9, 3.992179400444868*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"ae291cbb-6567-4707-90f6-3ddb979aa1f7"], + +Cell[BoxData["0.76`"], "Output", + CellChangeTimes->{ + 3.992179401201977*^9, 3.992572214909528*^9, 3.992572317717004*^9, + 3.993119178580999*^9, 3.993120125699438*^9, 3.993120620708702*^9, + 3.993120734611329*^9, 3.993120779164959*^9, {3.9931208097375097`*^9, + 3.993120918756428*^9}, 3.993126397434441*^9, 3.99312710854491*^9, + 3.993127327734688*^9, 3.993129930499295*^9, 3.993820922907363*^9, + 3.993821325729994*^9, 3.993826194924675*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"a5086636-e98b-427c-86f9-141d4d39403e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"86d56e31-d34b-4be7-9807-2608bcc7242a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", " ", "2.400"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9921794031483917`*^9, 3.9921794061884384`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"817cff8a-3903-4687-8449-1a71f4607e23"], + +Cell[BoxData["2.4`"], "Output", + CellChangeTimes->{ + 3.992179407540327*^9, 3.992572214945683*^9, 3.9925723177561007`*^9, + 3.993119178617138*^9, 3.993120125731515*^9, 3.993120620741789*^9, + 3.99312073464296*^9, 3.993120779203336*^9, {3.993120809773469*^9, + 3.993120918792803*^9}, 3.993126397467867*^9, 3.993127108575645*^9, + 3.993127327780107*^9, 3.993129930527397*^9, 3.99382092297139*^9, + 3.993821325794901*^9, 3.993826194966878*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"b3981374-0dd0-48c9-b10c-ffe6cc1b3da8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"5d887328-08a6-4e32-9881-0e6679325304"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", " ", "1.1050"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.992179410033045*^9, 3.9921794153030643`*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"93110c89-90a8-4b8f-ae4c-40fc397ece21"], + +Cell[BoxData["1.105`"], "Output", + CellChangeTimes->{ + 3.992179415754301*^9, 3.992572214981649*^9, 3.992572317797142*^9, + 3.9931191786546717`*^9, 3.993120125772245*^9, 3.993120620774741*^9, + 3.993120734674015*^9, 3.993120779246025*^9, {3.9931208098102417`*^9, + 3.993120918832294*^9}, 3.9931263974996033`*^9, 3.9931271086069736`*^9, + 3.993127327858879*^9, 3.9931299305553226`*^9, 3.993820923074497*^9, + 3.993821325903837*^9, 3.993826194999557*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"6059693a-a633-4b6d-87d1-b9a91e539779"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"7264e235-b0e0-49ee-840e-71aafcfdc52d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", " ", "1.4012"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9921794177283573`*^9, + 3.992179423583313*^9}}, + CellLabel->"In[39]:=",ExpressionUUID->"4b59611d-a7dd-4648-b506-10add649af21"], + +Cell[BoxData["1.4012`"], "Output", + CellChangeTimes->{ + 3.9921794257836323`*^9, 3.992572215020274*^9, 3.9925723178372593`*^9, + 3.993119178721389*^9, 3.9931201258041277`*^9, 3.993120620807364*^9, + 3.9931207347045813`*^9, 3.99312077928405*^9, {3.993120809849883*^9, + 3.993120918882786*^9}, 3.9931263975308533`*^9, 3.993127108637912*^9, + 3.9931273279852*^9, 3.993129930582982*^9, 3.993820923150923*^9, + 3.993821326101439*^9, 3.9938261950331*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"7ef02157-6058-4dc5-a4fb-307750be79da"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"e0124dd1-bc6f-4a8c-ae81-6e076d670269"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", " ", "0.5547"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9921794277801266`*^9, + 3.9921794329809513`*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"64867a18-7a9f-450e-9922-2b793d336a0c"], + +Cell[BoxData["0.5547`"], "Output", + CellChangeTimes->{ + 3.9921794363325005`*^9, 3.992572215056624*^9, 3.992572317866984*^9, + 3.9931191787561502`*^9, 3.993120125890787*^9, 3.9931206208406067`*^9, + 3.993120734738842*^9, 3.993120779339178*^9, {3.993120809889782*^9, + 3.993120918919759*^9}, 3.993126397559119*^9, 3.993127108670261*^9, + 3.993127328084579*^9, 3.993129930610573*^9, 3.993820923263421*^9, + 3.993821326258257*^9, 3.99382619506534*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"22a5eb66-9b20-4228-80b4-29b80583058f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"97b1daf8-a219-475b-9cf5-314954c80c69"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", " ", "1.1338"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9921794404678802`*^9, + 3.992179445208559*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"d8b23794-bb04-42d0-80fb-42cd109129d1"], + +Cell[BoxData["1.1338`"], "Output", + CellChangeTimes->{ + 3.99217944657938*^9, 3.992572215093463*^9, 3.992572317906247*^9, + 3.99311917879039*^9, 3.9931201260449333`*^9, 3.993120620873763*^9, + 3.993120734773638*^9, 3.993120779536425*^9, {3.993120809930094*^9, + 3.993120918956725*^9}, 3.993126397589849*^9, 3.9931271087029333`*^9, + 3.993127328126643*^9, 3.9931299306393948`*^9, 3.993820923352148*^9, + 3.993821326352581*^9, 3.99382619509676*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"656f740a-d337-40b0-8634-dacbcdf63d2d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"ea171895-9e45-4a58-aefe-3c289dd7153d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", " ", "0.8500"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.9921794486072216`*^9, 3.992179451994211*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"0367a718-f69b-4c32-92e9-c94e89618562"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{ + 3.992179452410452*^9, 3.9925722151320877`*^9, 3.99257231794547*^9, + 3.9931191788237534`*^9, 3.993120126088036*^9, 3.993120620906579*^9, + 3.993120734815996*^9, 3.99312077958954*^9, {3.993120809970735*^9, + 3.993120919005844*^9}, 3.9931263976232653`*^9, 3.993127108734625*^9, + 3.9931273281682453`*^9, 3.9931299306665077`*^9, 3.993820923454094*^9, + 3.993821326423518*^9, 3.9938261951286907`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"9eb3301a-ec83-4ca3-b3d4-342e69bb57c3"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"e214600a-4d55-42a3-a120-9c4c19a2329d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel->"In[47]:=",ExpressionUUID->"28df397a-f26d-4c30-995a-951d011153d3"], + +Cell[BoxData["0.20251257452349652`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9925722152487392`*^9, 3.99257231801375*^9, + 3.993119178932695*^9, 3.9931201261547956`*^9, 3.993120621085143*^9, + 3.993120734882799*^9, 3.993120779663743*^9, {3.9931208100453367`*^9, + 3.993120919069702*^9}, 3.993126397737794*^9, 3.993127108801776*^9, + 3.993127328244122*^9, 3.99312993079362*^9, 3.993820923644393*^9, + 3.993821326570694*^9, 3.993826195217638*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"16b261aa-e6d3-4205-b034-1edb0df501fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[48]:=",ExpressionUUID->"32abaf7a-f340-4bbf-bffa-f559b02cabba"], + +Cell[BoxData["5.409861784548971`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.992572215281089*^9, 3.992572318073772*^9, + 3.993119178961668*^9, 3.9931201261913633`*^9, 3.9931206212251253`*^9, + 3.993120734908091*^9, 3.993120779691341*^9, {3.993120810074683*^9, + 3.9931209190984907`*^9}, 3.993126397786759*^9, 3.9931271088494673`*^9, + 3.993127328284951*^9, 3.9931299308716*^9, 3.993820923677984*^9, + 3.993821326623522*^9, 3.993826195248809*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"73369c67-ba4d-4a74-b892-533eaa305e90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"c0152b77-1bf4-409d-b114-795369715824"], + +Cell[BoxData[ + RowBox[{"-", "26.71933695492077`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.992572215310524*^9, 3.9925723181046333`*^9, + 3.9931191789891367`*^9, 3.993120126228422*^9, 3.9931206213349524`*^9, + 3.993120734934422*^9, 3.993120779718647*^9, {3.993120810103335*^9, + 3.9931209191268253`*^9}, 3.993126397844788*^9, 3.993127108888278*^9, + 3.993127328322741*^9, 3.993129930913966*^9, 3.993820923711501*^9, + 3.993821326675551*^9, 3.9938261978099823`*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"523181b9-fc1d-4cb3-965c-9eeba63e32da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[50]:=",ExpressionUUID->"61c1361a-edca-4531-90e0-7e1c2ed94bbf"], + +Cell[BoxData[ + RowBox[{"-", "33.90805078336294`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9925722153471212`*^9, 3.992572318139402*^9, + 3.993119179022643*^9, 3.993120126260621*^9, 3.99312062146356*^9, + 3.993120734966599*^9, 3.993120779750485*^9, {3.9931208101344213`*^9, + 3.993120919158321*^9}, 3.993126397903695*^9, 3.993127108944912*^9, + 3.993127328366109*^9, 3.993129930961933*^9, 3.993820923754127*^9, + 3.9938213267356653`*^9, 3.99382619806985*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"fd38d983-76d3-4706-afdd-f154a786453c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[51]:=",ExpressionUUID->"40ac5ed9-1af0-478d-bd86-86ea03b55495"], + +Cell[BoxData[ + RowBox[{"-", "80.51800540734116`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992572215384285*^9, 3.992572318174841*^9, + 3.9931191790553703`*^9, 3.993120126295026*^9, 3.993120621602091*^9, + 3.993120734997818*^9, 3.9931207797928047`*^9, {3.993120810164044*^9, + 3.993120919189701*^9}, 3.9931263979617987`*^9, 3.993127109001227*^9, + 3.993127328408454*^9, 3.993129931011693*^9, 3.9938209237970457`*^9, + 3.993821326789933*^9, 3.99382619811812*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"1cb3d827-1433-4b0c-94bc-733c01847edb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"7c8fb4f5-2cc3-4552-83c7-ea24e337be91"], + +Cell[BoxData[ + RowBox[{"-", "205.49185741459576`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.992572215426282*^9, 3.992572318215456*^9, + 3.993119179092291*^9, 3.9931201263315697`*^9, 3.9931206217665358`*^9, + 3.993120735034762*^9, 3.993120779834642*^9, {3.993120810200284*^9, + 3.993120919227768*^9}, 3.993126398030951*^9, 3.99312710912798*^9, + 3.993127328460342*^9, 3.993129931077551*^9, 3.993820923848447*^9, + 3.993821326859296*^9, 3.993826198164369*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"07cbdbd3-656e-4865-bf14-2ec9296c09d2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[53]:=",ExpressionUUID->"8a3c3f55-0948-4753-9f4d-b731512e11a7"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9925722154529037`*^9, 3.9925723182371407`*^9, + 3.993119179114964*^9, 3.993120126352831*^9, 3.993120621792342*^9, + 3.99312073505088*^9, 3.9931207798622704`*^9, {3.993120810226747*^9, + 3.9931209192549257`*^9}, 3.9931263980390377`*^9, 3.9931271092133408`*^9, + 3.9931273284825706`*^9, 3.9931299311037893`*^9, 3.993820923874393*^9, + 3.993821326886731*^9, 3.993826198182262*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"6594a0ee-e132-4278-82f7-1d4df91a0622"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[54]:=",ExpressionUUID->"6d9ec2cd-fecc-40a2-9faf-256ba00b75da"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.992572215478106*^9, 3.992572318257779*^9, + 3.9931191791375523`*^9, 3.993120126374206*^9, 3.993120621815301*^9, + 3.993120735073701*^9, 3.993120779889783*^9, {3.993120810252183*^9, + 3.993120919282319*^9}, 3.9931263980458927`*^9, 3.993127109244834*^9, + 3.993127328504586*^9, 3.993129931127369*^9, 3.993820923899918*^9, + 3.9938213269126997`*^9, 3.993826198197961*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"00d86b37-1054-47aa-af04-3fe9d979cb01"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"0f567a49-c20f-4319-ae6e-ab7d9eceeb8c"], + +Cell[BoxData["157.0651890700479`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.992572215502891*^9, 3.9925723182776947`*^9, + 3.9931191791602383`*^9, 3.9931201263788633`*^9, 3.993120622314225*^9, + 3.9931207350960493`*^9, 3.993120779914585*^9, {3.9931208102780457`*^9, + 3.9931209193092546`*^9}, 3.993126398052409*^9, 3.993127109275919*^9, + 3.993127328527534*^9, 3.9931299311534243`*^9, 3.993820923927566*^9, + 3.993821327021174*^9, 3.993826198213233*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"e1bb1a75-5223-42b1-94a4-d42901c58894"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"f5b8e075-dc82-4d64-9313-c344a2fac812"], + +Cell[BoxData[ + RowBox[{"-", "123.3235530299229`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.992572215526945*^9, 3.992572318297956*^9, + 3.993119179182555*^9, 3.993120126400342*^9, 3.99312062277221*^9, + 3.9931207351051397`*^9, 3.993120779938876*^9, {3.9931208103040047`*^9, + 3.9931209193366623`*^9}, 3.99312639805881*^9, 3.993127109307798*^9, + 3.993127328549741*^9, 3.9931299311778517`*^9, 3.993820923953031*^9, + 3.9938213270470047`*^9, 3.9938261982302628`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"f3d92670-e071-4f7c-91e9-7aad3ff533ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"ec940a34-3bf2-4471-aac3-287f6d500ea7"], + +Cell[BoxData["151.17585622424423`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9925722155553827`*^9, 3.9925723183190947`*^9, + 3.9931191792047863`*^9, 3.993120126422503*^9, 3.99312062328085*^9, + 3.993120735114328*^9, 3.993120779966241*^9, {3.993120810329393*^9, + 3.993120919363965*^9}, 3.99312639806597*^9, 3.993127109343749*^9, + 3.9931273285713377`*^9, 3.993129931200837*^9, 3.993820923983398*^9, + 3.993821327073053*^9, 3.993826198246581*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"0005204d-c88a-494f-993c-73374034c83a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[58]:=",ExpressionUUID->"e6487c56-e8b2-4625-b3df-7ef35e87d43a"], + +Cell[BoxData["0.4819667641075124`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.992572215581643*^9, 3.9925723183400307`*^9, + 3.9931191792269573`*^9, 3.993120126444304*^9, 3.993120623323575*^9, + 3.993120735122086*^9, 3.993120779991181*^9, {3.993120810354744*^9, + 3.993120919368601*^9}, 3.9931263980726233`*^9, 3.993127109381337*^9, + 3.993127328593055*^9, 3.99312993122449*^9, 3.9938209240090227`*^9, + 3.993821327098587*^9, 3.9938261982631474`*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"9f9211b6-d9dc-44e7-a205-7578bcf69c95"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[59]:=",ExpressionUUID->"db30e9aa-7c77-4fe5-847f-c07765bd5d9f"], + +Cell[BoxData[ + RowBox[{"-", "0.11350137337476086`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9925722156071453`*^9, 3.9925723183603783`*^9, + 3.9931191792492533`*^9, 3.993120126466148*^9, 3.993120623346512*^9, + 3.9931207351443777`*^9, 3.993120780015463*^9, {3.9931208103803673`*^9, + 3.993120919396596*^9}, 3.993126398079549*^9, 3.9931271094149017`*^9, + 3.9931273286142263`*^9, 3.993129931247855*^9, 3.99382092403294*^9, + 3.9938213271263742`*^9, 3.993826198279414*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"10ba973c-57e8-4204-97d3-4c7ec58b5929"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[60]:=",ExpressionUUID->"b9441ef9-edb5-45e3-8614-cbc99ab03fb0"], + +Cell[BoxData[ + RowBox[{"-", "0.4652269449262844`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992572215632304*^9, 3.992572318380674*^9, + 3.993119179271516*^9, 3.993120126487928*^9, 3.9931206233692617`*^9, + 3.993120735165653*^9, 3.993120780040511*^9, {3.993120810385436*^9, + 3.993120919423568*^9}, 3.993126398086187*^9, 3.993127109447815*^9, + 3.9931273286352787`*^9, 3.993129931271668*^9, 3.99382092412751*^9, + 3.993821327151004*^9, 3.9938261982949533`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"780b3007-3032-4489-b46b-09d12b158662"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"9b41484a-9b01-4b91-abd3-ea66d5f8d28e"], + +Cell[BoxData["0.6581300944010081`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992572215657671*^9, 3.9925723183847733`*^9, + 3.993119179293789*^9, 3.9931201265097437`*^9, 3.9931206233734407`*^9, + 3.99312073518717*^9, 3.9931207800652113`*^9, {3.993120810412512*^9, + 3.993120919451396*^9}, 3.993126398093424*^9, 3.993127109479258*^9, + 3.9931273286560917`*^9, 3.993129931295282*^9, 3.993820924152907*^9, + 3.9938213271773853`*^9, 3.9938261983123417`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"a0e373fa-59a6-4175-8d0c-7aceee38cd6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[62]:=",ExpressionUUID->"3e2aff89-ce97-4ad6-b3c7-fc6f4c8960f8"], + +Cell[BoxData["2.061265729478835`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9925722156840057`*^9, 3.992572318405039*^9, + 3.993119179315935*^9, 3.993120126531769*^9, 3.993120623396599*^9, + 3.9931207352098637`*^9, 3.993120780089756*^9, {3.9931208104374*^9, + 3.9931209194800158`*^9}, 3.9931263980999727`*^9, 3.993127109512844*^9, + 3.9931273286772337`*^9, 3.9931299313180227`*^9, 3.9938209241778717`*^9, + 3.993821327204084*^9, 3.9938261983289557`*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"953d2ab6-3a44-4f6e-830e-3f57b34ede4a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[63]:=",ExpressionUUID->"f9f4e82d-2088-460b-b67a-1e148ed8d5d2"], + +Cell[BoxData["1.500736140386642`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.992572215708795*^9, 3.992572318425254*^9, + 3.993119179337996*^9, 3.9931201265538*^9, 3.993120623423506*^9, + 3.993120735231386*^9, 3.993120780114184*^9, {3.993120810463977*^9, + 3.993120919508306*^9}, 3.993126398108006*^9, 3.993127109545864*^9, + 3.993127328698331*^9, 3.99312993132206*^9, 3.993820924201363*^9, + 3.9938213272346487`*^9, 3.9938261983454533`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"5eb66097-eb7b-4627-9bb8-cc384e7b6956"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel->"In[64]:=",ExpressionUUID->"390da225-cbe4-4373-b090-dddaff84bf3d"], + +Cell[BoxData[ + RowBox[{"-", "31.35994404137113`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.992572215734977*^9, 3.992572318447076*^9, + 3.993119179360752*^9, 3.9931201265765343`*^9, 3.993120623446788*^9, + 3.993120735251999*^9, 3.9931207801392517`*^9, {3.993120810491658*^9, + 3.993120919536584*^9}, 3.993126398115017*^9, 3.993127109578094*^9, + 3.993127328719265*^9, 3.993129931348179*^9, 3.9938209242262497`*^9, + 3.9938213272683496`*^9, 3.993826198363463*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"bead8b13-1555-4b28-a901-fab8c9185122"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel->"In[65]:=",ExpressionUUID->"f75c93f3-5075-4034-8b3d-3d9cf66d3b21"], + +Cell[BoxData[ + RowBox[{"-", "7.850554518705422`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.9925722157597923`*^9, 3.992572318468158*^9, + 3.993119179384171*^9, 3.9931201265982*^9, 3.99312062346908*^9, + 3.9931207352722187`*^9, 3.993120780163753*^9, {3.993120810569303*^9, + 3.9931209195640697`*^9}, 3.9931263981223907`*^9, 3.99312710961084*^9, + 3.993127328741523*^9, 3.993129931371181*^9, 3.9938209242502613`*^9, + 3.993821327301214*^9, 3.9938261983780813`*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"8fdec669-39ca-42a9-b808-23a3288693f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[66]:=",ExpressionUUID->"b74c307c-1b22-4423-bbc3-fe0fe3127e7a"], + +Cell[BoxData["125.70524502867676`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.992572215787087*^9, 3.992572318490714*^9, + 3.993119179407145*^9, 3.993120126619657*^9, 3.993120624387237*^9, + 3.993120735294096*^9, 3.993120780189163*^9, {3.9931208106477613`*^9, + 3.9931209195925417`*^9}, 3.99312639812998*^9, 3.9931271096448097`*^9, + 3.993127328762958*^9, 3.993129931395224*^9, 3.993820924278158*^9, + 3.9938213273338842`*^9, 3.993826198392468*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"3f65fa64-4b0f-4eaa-9e12-c035a1f82398"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel->"In[67]:=",ExpressionUUID->"3563c4f5-076a-4bf2-a7ef-5ce8e79a9590"], + +Cell[BoxData[ + RowBox[{"-", "123.3235530299229`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.992572215791572*^9, 3.992572318513729*^9, + 3.993119179431038*^9, 3.993120126641369*^9, 3.9931206250374393`*^9, + 3.993120735303513*^9, 3.993120780214625*^9, {3.993120810674247*^9, + 3.993120919619622*^9}, 3.993126398136746*^9, 3.9931271096761827`*^9, + 3.993127328784665*^9, 3.993129931420856*^9, 3.993820924299933*^9, + 3.993821327339868*^9, 3.993826198408132*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"ef266e56-fca5-4507-b3c6-010cd812a38c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel->"In[68]:=",ExpressionUUID->"d76bbf79-b8b1-48c5-9555-49f8c3a386b5"], + +Cell[BoxData["143.3253017055388`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.992572215816564*^9, 3.992572318536264*^9, + 3.993119179456161*^9, 3.99312012666339*^9, 3.993120625976398*^9, + 3.993120735311919*^9, 3.993120780234991*^9, {3.993120810701437*^9, + 3.993120919646469*^9}, 3.993126398145216*^9, 3.9931271097094097`*^9, + 3.993127328806025*^9, 3.9931299314504623`*^9, 3.993820924322805*^9, + 3.993821327391417*^9, 3.9938261984239283`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"d61a4d1a-18e8-4b27-b495-74e0d9286c34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[69]:=",ExpressionUUID->"3f046409-f44d-49e2-8c27-47facabdde5b"], + +Cell[BoxData["93.76881016546349`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992572215864458*^9, 3.992572318557802*^9, + 3.993119179480179*^9, 3.993120126684946*^9, 3.9931206278422623`*^9, + 3.993120735320333*^9, 3.993120780256549*^9, {3.993120810728241*^9, + 3.993120919673271*^9}, 3.993126398152495*^9, 3.9931271097434998`*^9, + 3.993127328827194*^9, 3.993129931478958*^9, 3.993820924328*^9, + 3.993821327419663*^9, 3.9938261984387302`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"a0ef28ee-7279-490c-b284-9a33e100b02f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"63265243-d007-4c9b-a40d-131cb895d562"], + +Cell[BoxData["873.0988230281508`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9925722158897552`*^9, 3.99257231857898*^9, + 3.9931191795053587`*^9, 3.9931201267064877`*^9, 3.993120629931678*^9, + 3.9931207353284397`*^9, 3.993120780277225*^9, {3.993120810753913*^9, + 3.993120919701824*^9}, 3.993126398158984*^9, 3.993127109775078*^9, + 3.993127328849209*^9, 3.993129931506402*^9, 3.9938209243670683`*^9, + 3.9938213274445333`*^9, 3.9938261984532557`*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"99630dda-a034-46f8-a578-bddcc85c398f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.35675"}]], "Input", + CellChangeTimes->{ + 3.9918505481678543`*^9, {3.993821632306704*^9, 3.993821637717581*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], + +Cell[BoxData["0.35675`"], "Output", + CellChangeTimes->{3.993826198469007*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"b0ee07fb-1b41-49d6-af6b-bfdd90509717"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991850549355442*^9, 3.991850549360302*^9}}, + CellLabel->"In[72]:=",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.14422"}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9, {3.993821639495171*^9, 3.9938216519543858`*^9}}, + CellLabel->"In[73]:=",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], + +Cell[BoxData["0.14422`"], "Output", + CellChangeTimes->{3.993826198486025*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"29816dcb-55e6-4bf4-a947-0efa3b49f6d1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, 3.991850552447544*^9}}, + CellLabel->"In[74]:=",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ @@ -83,9 +5066,12 @@ Cell[BoxData[ RowBox[{"1.16", "*", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], - ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + ")"}]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[BoxData["1.4406889235574582`*^-53"], "Output", + CellChangeTimes->{3.993826198503389*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"fc480a82-aeb2-43be-ad42-a2337c070998"] }, Open ]], Cell[CellGroupData[{ @@ -119,11 +5105,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ -a9b137c5e3b6"], + CellChangeTimes->{3.9915577064670105`*^9}, + CellLabel->"In[76]:=",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[BoxData["4.807665731064448`*^-55"], "Output", + CellChangeTimes->{3.993826198517784*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"9b8eb911-b57c-462d-b8f2-c0d1f3e49228"] }, Open ]], Cell[CellGroupData[{ @@ -156,11 +5143,12 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557709328657*^9, - 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ -8010347227f7"], + CellChangeTimes->{{3.991557709328657*^9, 3.991557711123291*^9}}, + CellLabel->"In[77]:=",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[BoxData["8.297947634117868`*^-55"], "Output", + CellChangeTimes->{3.99382619853393*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"e6068595-8af7-4421-9fd3-5f0824ec4e48"] }, Open ]], Cell[CellGroupData[{ @@ -182,10 +5170,12 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ih", "*", "Ir"}], - RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ -e247-a132-b43b2736212a"], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[BoxData["11.386541436572342`"], "Output", + CellChangeTimes->{3.993826198549076*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"162250d3-b81e-4dce-b595-22ab7625a544"] }, Open ]], Cell[CellGroupData[{ @@ -210,10 +5200,12 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", RowBox[{"(", - RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ -ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[BoxData["20.74964266740561`"], "Output", + CellChangeTimes->{3.993826198563553*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"7baf51cc-6a0a-4377-af49-0b6933d170a2"] }, Open ]], Cell[CellGroupData[{ @@ -221,10 +5213,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ -88a4-7c75445a4f32"], + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[BoxData["2.8696787856411072`"], "Output", + CellChangeTimes->{3.993826198578237*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"671f15af-a1f0-4dd6-82bf-5de4dc68cf54"] }, Open ]], Cell[CellGroupData[{ @@ -232,10 +5226,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ - FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ -a9f8-bc957ede9a68"], + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[BoxData["6.486738496901743`"], "Output", + CellChangeTimes->{3.9938261985937977`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"ac7e1e67-0de9-4b93-bdd2-2ef7cecc74d8"] }, Open ]], Cell[CellGroupData[{ @@ -243,10 +5239,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ - RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ -eb8f-4944-8d03-7bcd77a7b4b4"], + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[BoxData["134.59750588761494`"], "Output", + CellChangeTimes->{3.993826198607836*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"67c47ff3-98ad-4351-8471-dac2aff96962"] }, Open ]], Cell[CellGroupData[{ @@ -254,10 +5252,12 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ -08dc-e64f-8823-2a55ad6b8ca8"], + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[83]:=",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[BoxData["32.675716402355064`"], "Output", + CellChangeTimes->{3.993826198621421*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"a90c27fe-4300-459e-a753-175a09d2265a"] }, Open ]], Cell[CellGroupData[{ @@ -445,10 +5445,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ -bf8f-1350d0b8a0bb"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[84]:=",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[BoxData["0.006638415251977015`"], "Output", + CellChangeTimes->{3.993826198636157*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"e724a7ee-4e49-471e-8567-62af6bba59d5"] }, Open ]], Cell[CellGroupData[{ @@ -460,18 +5462,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"65edd566-\ -4493-2440-9c51-9fca28ce324b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[85]:=",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], - -Cell[BoxData["4.366771860185336`"], "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[BoxData["10.877090275973753`"], "Output", + CellChangeTimes->{3.99382619876235*^9}, + CellLabel->"Out[85]=",ExpressionUUID->"a4907619-3e7a-47b6-a484-08e3e5fa5263"] }, Open ]], Cell[CellGroupData[{ @@ -661,10 +5657,12 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ -afec-31463f4946cd"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[86]:=",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[BoxData["0.03009859797139617`"], "Output", + CellChangeTimes->{3.9938261987761383`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"5743ccf6-8ae8-4b5f-8bd9-d984ea6a0f7c"] }, Open ]], Cell[CellGroupData[{ @@ -676,18 +5674,12 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"56b1717f-\ -bc75-4047-98f0-7a0dede3f8a9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[87]:=",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], - -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[BoxData["5.108246047365983`"], "Output", + CellChangeTimes->{3.993826198818416*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"e9bcf065-623a-4d10-bc19-7f65909ee0ec"] }, Open ]], Cell[CellGroupData[{ @@ -778,10 +5770,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ -f74418e31aeb"], + ")"}]}]}]], "Input", + CellLabel->"In[88]:=",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[BoxData["0.06383209948544989`"], "Output", + CellChangeTimes->{3.993826198889511*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"f2727f6f-08cd-4494-983a-bedf74a4ae77"] }, Open ]], Cell[CellGroupData[{ @@ -869,10 +5863,12 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ -91d5391478d5"], + ")"}]}]}]], "Input", + CellLabel->"In[89]:=",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[BoxData["0.93616790051455`"], "Output", + CellChangeTimes->{3.993826198907227*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"ff52118a-c646-41f1-accf-9fa12d267e4e"] }, Open ]], Cell[CellGroupData[{ @@ -993,16 +5989,18 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ -ef4e-9454-9d4e027f5fa2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[90]:=",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +Cell[BoxData["0.059757562560729505`"], "Output", + CellChangeTimes->{3.993826198921948*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"346df0e2-c7c7-4430-b201-0f23736344e2"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ -2048-8697-fe84d79611fa"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel->"In[91]:=",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], Cell[CellGroupData[{ @@ -1063,27 +6061,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918505674491863`*^9},ExpressionUUID->"f8b12d93-5bd9-8641-aa98-\ -3d78ebb0f21b"], + CellChangeTimes->{3.9918505674491863`*^9}, + CellLabel->"In[92]:=",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1987130600361978`*^-203\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 92, 1, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993826198946542*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"fe629823-9309-425b-ae9d-0df360688c1b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"42c1a263-2456-664a-bb33-c5fe841cb412"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.89701531966475`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 92, 2, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993826198982601*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"afdac857-88f3-4ee8-9373-c885d6109313"], -Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1634846849414328`*^-212\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 92, 3, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993826198986414*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b8c4e70d-b28e-4c13-8e83-0ca44014bdc6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 92, 4, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993826198990275*^9}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"8e17e384-c97c-4b9a-a2fe-f12ba92c92dc"], + +Cell[BoxData["10.87709027597376`"], "Output", + CellChangeTimes->{3.9938262002934923`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"e4961d13-457f-4dc9-9518-be74ef02586b"] }, Open ]], Cell[CellGroupData[{ @@ -1145,26 +6186,70 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185057022003*^9},ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], + CellChangeTimes->{3.99185057022003*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"be4d7bfb-c18e-564a-93ce-3f42607886e7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1987130600361978`*^-203\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 93, 5, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993826200350855*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"decdec1c-8a0b-427c-8bc5-c97c1268fa66"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.89701531966475`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 93, 6, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938262003550653`*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"1711e79b-c75d-4d9f-b4b2-4182293adf93"], -Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1634846849414328`*^-212\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993826200357958*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"27a4a110-9a2c-4667-8e1f-334d9f04c304"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 93, 8, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993826200360656*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"22c36a7d-8e5a-4dc9-8e69-96ef4bb43c53"], + +Cell[BoxData["5.108246047365988`"], "Output", + CellChangeTimes->{3.993826201639628*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"51be1725-f8aa-4939-a45d-0915acd3e57c"] }, Open ]], Cell[CellGroupData[{ @@ -1220,415 +6305,395 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505747312756`*^9},ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-\ -12d8b19f0936"], + CellChangeTimes->{3.9918505747312756`*^9}, + CellLabel->"In[94]:=",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d3cb6fbc-3803-0541-80d1-8cab47341c44"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d8687e0f-2f42-0543-a749-78a1ff3c9572"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -2.67879 2.97603 [ -[.15608 .28474 -6 -9 ] -[.15608 .28474 6 0 ] -[.28836 .28474 -6 -9 ] -[.28836 .28474 6 0 ] -[.42063 .28474 -6 -9 ] -[.42063 .28474 6 0 ] -[.55291 .28474 -9 -9 ] -[.55291 .28474 9 0 ] -[.68519 .28474 -9 -9 ] -[.68519 .28474 9 0 ] -[.81746 .28474 -9 -9 ] -[.81746 .28474 9 0 ] -[.94974 .28474 -9 -9 ] -[.94974 .28474 9 0 ] -[.01131 .14844 -24 -4.5 ] -[.01131 .14844 0 4.5 ] -[.01131 .44604 -24 -4.5 ] -[.01131 .44604 0 4.5 ] -[.01131 .59484 -18 -4.5 ] -[.01131 .59484 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .29724 m -.15608 .30349 L -s -[(25)] .15608 .28474 0 1 Mshowa -.28836 .29724 m -.28836 .30349 L -s -[(50)] .28836 .28474 0 1 Mshowa -.42063 .29724 m -.42063 .30349 L -s -[(75)] .42063 .28474 0 1 Mshowa -.55291 .29724 m -.55291 .30349 L -s -[(100)] .55291 .28474 0 1 Mshowa -.68519 .29724 m -.68519 .30349 L -s -[(125)] .68519 .28474 0 1 Mshowa -.81746 .29724 m -.81746 .30349 L -s -[(150)] .81746 .28474 0 1 Mshowa -.94974 .29724 m -.94974 .30349 L -s -[(175)] .94974 .28474 0 1 Mshowa -.125 Mabswid -.05026 .29724 m -.05026 .30099 L -s -.07672 .29724 m -.07672 .30099 L -s -.10317 .29724 m -.10317 .30099 L -s -.12963 .29724 m -.12963 .30099 L -s -.18254 .29724 m -.18254 .30099 L -s -.20899 .29724 m -.20899 .30099 L -s -.23545 .29724 m -.23545 .30099 L -s -.2619 .29724 m -.2619 .30099 L -s -.31481 .29724 m -.31481 .30099 L -s -.34127 .29724 m -.34127 .30099 L -s -.36772 .29724 m -.36772 .30099 L -s -.39418 .29724 m -.39418 .30099 L -s -.44709 .29724 m -.44709 .30099 L -s -.47354 .29724 m -.47354 .30099 L -s -.5 .29724 m -.5 .30099 L -s -.52646 .29724 m -.52646 .30099 L -s -.57937 .29724 m -.57937 .30099 L -s -.60582 .29724 m -.60582 .30099 L -s -.63228 .29724 m -.63228 .30099 L -s -.65873 .29724 m -.65873 .30099 L -s -.71164 .29724 m -.71164 .30099 L -s -.7381 .29724 m -.7381 .30099 L -s -.76455 .29724 m -.76455 .30099 L -s -.79101 .29724 m -.79101 .30099 L -s -.84392 .29724 m -.84392 .30099 L -s -.87037 .29724 m -.87037 .30099 L -s -.89683 .29724 m -.89683 .30099 L -s -.92328 .29724 m -.92328 .30099 L -s -.97619 .29724 m -.97619 .30099 L -s -.25 Mabswid -0 .29724 m -1 .29724 L -s -.02381 .14844 m -.03006 .14844 L -s -[(0.95)] .01131 .14844 1 0 Mshowa -.02381 .44604 m -.03006 .44604 L -s -[(1.05)] .01131 .44604 1 0 Mshowa -.02381 .59484 m -.03006 .59484 L -s -[(1.1)] .01131 .59484 1 0 Mshowa -.125 Mabswid -.02381 .02939 m -.02756 .02939 L -s -.02381 .05915 m -.02756 .05915 L -s -.02381 .08892 m -.02756 .08892 L -s -.02381 .11868 m -.02756 .11868 L -s -.02381 .1782 m -.02756 .1782 L -s -.02381 .20796 m -.02756 .20796 L -s -.02381 .23772 m -.02756 .23772 L -s -.02381 .26748 m -.02756 .26748 L -s -.02381 .327 m -.02756 .327 L -s -.02381 .35676 m -.02756 .35676 L -s -.02381 .38652 m -.02756 .38652 L -s -.02381 .41628 m -.02756 .41628 L -s -.02381 .4758 m -.02756 .4758 L -s -.02381 .50556 m -.02756 .50556 L -s -.02381 .53532 m -.02756 .53532 L -s -.02381 .56508 m -.02756 .56508 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.02499 .01472 L -.02605 .01472 L -.02729 .01473 L -.02846 .01474 L -.03053 .01478 L -.03279 .01482 L -.03527 .01489 L -.0379 .01499 L -.04262 .0152 L -.04749 .01548 L -.05205 .0158 L -.06244 .01675 L -.07305 .01801 L -.08274 .01944 L -.10458 .02358 L -.12357 .02821 L -.14429 .03435 L -.18493 .04963 L -.22406 .06826 L -.26565 .09204 L -.30571 .11858 L -.34426 .14717 L -.38527 .1805 L -.42475 .215 L -.46273 .24996 L -.50315 .28853 L -.54206 .3264 L -.58342 .36674 L -.62326 .40497 L -.66159 .44044 L -.70238 .47601 L -.74164 .50741 L -.77939 .53432 L -.8196 .55879 L -.85828 .57771 L -.87793 .58543 L -.89942 .59234 L -.91995 .59741 L -.92911 .59917 L -.93905 .60073 L -.94426 .60141 L -.94906 .60194 L -.95356 .60236 L -.95851 .60273 L -.96295 .60299 L -.9671 .60316 L -.96939 .60323 L -.97148 .60328 L -.97264 .6033 L -Mistroke -.9739 .60331 L -.97509 .60332 L -.97619 .60332 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJzlnAmUFMUZx3t3jl1Yl0MwogJZAUEWIWrU6CjPGx6eGBXj8eCt6AhGhQdo -jMeLJ15RGw8UD0DAeB+5OvHCvMQzXom3TuJ94RnvKzhOVXdXV838/1U9uytq -so8pZv71q6++/uqb3qrq7t21Y860gw/vmDN9akfb+FkdM6dNnzq7bdyMWRUp -0+B5DTdXXj3bPPG+7HlxUa78K/9WFEL5Zt+vL//LeGHH5fAlyrnfo/peYewq -747lrVpE2azI2ZzsJ8qcIo/g5ABRZhV5KCcHijKvyIM4OcTsfYpGSnCEeifr -D+CW2k1yX06ONslJnNxQlI2K3IuTG5s29+Dkpia5Gyc3N3vfhZMF0+YETo41 -yXGc3MbsfQdObmeS23FyB5Pcpnq0x5nejeWWJpiWtuTkzia5BSd3NcmfcHJ3 -k9yUk3sATZYb8zY/Na1byL1MckNOTmJ+jOZt9jGtW8h9mfV23mY/07pOSvAA -s359bmky63093maKad1CdjDrQ3ibA03rFvIgk2zjZJH5MYi3OcS0biGnM+tr -8zaHmtYt5GEmOYCTRzA/1qjOjxmM7M+tzzT9sJCzmPW+vM1s1qYPbzPH9MhC -HsWst/I2v2BtVuNtjjY9ishG+V/OK5cCr1jwwp9C0QtKUpVWgmIk+4GXhXzB -K1bqclFd4Be9uKpS6RWDkpcHHh3DjqJH6JvXHMklz49ckp9l15XPYtJS62Ho -Rd4rxXjlFQhXC75XEhEQQpOUCkVfYaXAl04Xg+TAdceOZc42R85mQkm4Ugyi -Txmv5Fe68UvyU2/N21iL4xK3E5+yoKvjzNEzO407yQBjvXWtEgJrp3ISeDw7 -0lzqTlvibgItE8SQiSAX/CYViIKMNzvoXzFPsqk96RkNd7lcSZqKL35QUknk -R1nRqIIiGP1H5HUJpe4J5nCY/sij1vzRc6An8DFOyXLJF/0lhyr9kYnu9QBO -nMTC0xC5k02+P0Ut+UXgQ6uGR1qEYo/ElyLQvkcuj05mHmknmooJv1BQKeFX -zLfGdUH1iaOcDKo2ODLwspvkMFD+nAK0rzx6hjwVaCs5PlflgAU6HWhfcPwM -oH3O8TOB9hnHz1Ie65Bkzgb4x9zSOUD7iOPnAu1DjvtA+4Dj84D2PsfPU1Gw -QBcA7V2OXwi0dzg+H2hvc/wioL3F8YuB9ibHFwBtRXV+XKKCtoJbugxor3H8 -cqC9yvGFQHuF44uA9jLHFwPtJY5fAbQXOb4EaC9wfCnQnuf4MqA9x/Er1Vha -oKuAVqrOiqsB9Cy3eQ3QnuH4tUB7muPXAe0pjl8PtCc5fgPQnuD4jUB7nOMj -I03/LScnY5Vfs/EMKX6h6bXcTiNTbzxlD+fTsS9i6lEIJ8jWafxqwPfVYxtB -MnnKRL4XjOlMGfpg828QtZ3VbMuY5eoIFzdb63K9IeW2M4btxjpD35NnT3uk -hWuaQJoKzbd44TzTXAqxdU+4W2JfG6nJKl+VKR/FPM+P6jMpbKPs6m+xZfMh -jZ8/pLa7Hktuu+vxRbbzneyvB0+rUZFWEtPyyBW0fhkZO6Bp8hV+RsugEUBr -BqZRRvSzjFrtsipv9OFwazAwnU0ZBdS2uf7IIDP5lNFq5mO5gTrbiDQKTfcA -JthYRl2jOI9QppMTGfKuFbi1OjhaFJXG+t1CgcyljEI9Y1mnC/mU0bKM5WgV -ppI0Lb7GsQl9SyUeS11zeIzO3Gi3phdwq++qHct8yijYxrKOyCAzTSmjpY+l -jNkY5XuSh45dqOH2ah5oPMBwQLDpeFz1se6zase6qf54tVEPuxxDm4d1xDXl -hC5OomTj2pyE6Hty5jIi1PTN3uqj0r1FS4FGYE9esJGrR1sS1PaGfxEXcNhR -iDOdDMpQm5udCJQ1QR3Bs1zTaY8NCRNeYjqcrOk5b5q0jnmy9euhvd9hWkjj -/vQLJLFWHdI1gf9hOufUPEnsI8chylJ/mgx/wpfd53Wc/dQfw7ZUvtcfX7ev -9cfekkKj9O7UuSbcY0+7jz4sJWfbzx+uDi055YWe5sC3NFke6/b7geMLUywr -wx4ukWWYchZXspa6wXZzXYniQGw62w3BJV5XXwrtTMwtc85bgHY/x28F2n0c -vw1o93L8dqDdw/E7gHY3x5cD7S6O3wm0v3H8L0D7a4jLZb24bufNE0UDN9Kc -Umv6lrj/FV8y0fdQ16IhUnsA/8/x+WZ84TdidlIbBrSWLtjbCGj9uOt3AW05 -x+8G2h0cvwdot3P8XqDdxvH7gHYrx+8H2i0c/zvQ/szxB4D2J44/CLRAw2XN -QwD6I7f5MND+wPFHgPZ7jv8DaL/j+D+BZrkj/lGg3czxx4B2E8cfB9qNHH8C -aDdw/EmgXc/xp4B2HcefBtq11ZnyDICu4TafBdrVHC8B7SqO/wtov+H4v4F2 -JcefA9oyjj8PtKUcfwFoSzj+ItCu4PhLQFvM8ZeBtojjrwBtYXWmyJsY5Lx+ -Ibf0OtAu5fgbQLuE4yuAtoDjbwLtYo6/BbSLOP420OZz/B2gXcjxd4F2Acff -A9r5HP8P0M6rHvD3ATSP2/wAaD7HPwTauRz/SGWfBfoEaL/m+KdAO4vjnwHt -TI5/DrQzOP4F0E4PcU+7C9eLb6HA191r7xnG1/PjHYS0dzV/CbTTQu/iNTq6 -JFV7k3W669v13sf8X6DN5e7FF2BrL6yam6Jp72NeCbRT3d27tuTtdzSvVN+I -buzKdfOyLBtAxUmd8QFcQw43cpLto4K6eRiNezmMQW3FiekG33SnqXYz33Fr -sCwzoOKE6Jubj9K3Zqc0vm6cbvM4hRf8VvPIbs3mWi8V1tr9uK7coCzLnMrO -yAl0zpMlWkYf52iDltmW50tliSJ3jKMN2g75paNNizpyF4nuHThKayNrpIyu -TB/psN4bVMxxtOkDKixP48qyrzpeF4l2v2c62vQHFTMcbdYAFZYnhWX5A1Bx -uKMNumB0mKPNAFDxc0ebtVSEXeQ6oGIazKiBgDzEYX0QqCg62gxWvrvINlAx -1dFmXVBxoKPNEOWRi0Q7bFMcbdYDFZMdbYYrj1wkqtjf0WYkqNjP0aZdeaST -SfZsABru47A5Wtl0kT9S5N4OciNF7ukgfwwqJjrabKKsu8jNFGl5Ql6WyWPy -lifkZVlQ5E4OcitQMd7RZqyy7iK3VuSOMBe2VfXbOyxtr8htHeSOitzaQY5X -pOX5e1kmD+Fbnr+X5c7qADd3kLspm5s5yInKZpiJ5t2W0U8mKl0ru2zKtmhm -Kss9lTfRU/jxVMS1iEM3h6H1oiwnqeiM4b30rsfiz5Tfo7rJojx7yvXUiE5Y -TP6+yGT1cWg3eSZ/9zUJeWA3WZSPwMvrfmvqOYjv5Gi11KEpuyzlzKxVyNF9 -YOEFKbL0qJGp3e/SX7Sx1Mv3q+ivA3kNXwM/7XZb\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-19.394, 0.892147, 0.709611, \ -0.0012616}},ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-\ -c578eb57eb6a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk8FtsbAHB72cqS7YrsXUXJvnYeS6RoUfa1t3eGyBJyhahf0aKEkLrZ +s0ayr3VVUklxQ26LGFuyZkveKf1Of8xnPt/PmXnOc2bO8xx5RqAdwcHGxjaO +r9/3E6+3ba7rer2z2vc+KzGBQjtn7ugwLEpRN2+aZhL2YJZuipJFM6qWNn// +2weYr3gEtJ4i45K6uWTsivCYJ9wWHUi5bSE8BftSm2RLTMm/qCtuOTANu6Hr +ROYPzV6kz/fkbTr2xPv2qFNN/yGukw5lf2P/Maro+s38I7o1X7GQib13Nsog +pGMALVb3FudiP/wxwR9eQqFXi486C7DfnpWIrA0YRmfmwoi72DM8FhOLmqOI +fW7R9z42z5UgZ63lMaQCxoM12LLCGc9PNI0jbU3bp03Y+6S/FcyYT6Fx/1ef +nmOT2Qri6mtnUHWMiWgXdozy/li/jlmU1Bpe14f9n0TPjtCSOST3yG7/ODbT +xffY9SvzyCps3mwO++tttpzKgAXk4+xZwMJeq6AuNKe5hF5M5zavu0ahFOYT +KyGxb2jk34hAKWy5QueY7cvf0E1rhWQlbH21uBn/pu8oLXdIxRjbR3egY8L8 +B7psYJIQhL0YfpKLT+UnqnyR/0809pkmfmPVtauo7fuw11XsdNC/693xC22o +H5m/i83Mf24RXMIOxp3C9jPYJW3XB89KcwAYm3KzJeJ8P3tEJV3hgN2rtsoi +2FFblqruB3DC7Q+cNXrYKeXyirOa3LBjlE30Ivb7rqmHq3ncUFJraJaBLTdf +57JOjAc8drpSldil2vuS1Zd5ICfLPnAAu7Uhgv1401rw8LVvN0mi0NKT7oFx +cwGwXPv09PpkConYCAhFPhQA2SEOoW3YGj0WIGggCGOBlLIttu9ITfaObevg +gPelj1ewgzg6NEwEhGAtf+tJkesUGlW4Nxf7TRjuJPxw1k3B34ds5+3UEoGP +4LnZHZvj7pi85AkR6Oy5FH4eW05rk13JpAi8KTct6MF2MU+sfD0oCj3p8dsj +UynUeTQ4ROKlGNwrkv8xmEahT4UJ8V5rxeG8xpE1QjcoNDVZkle8SxyIX+lp +CJsvdLjbqEUcTr5ehWxsi/OHtb1qJECokaPNO51CjXd0l4qypOC2NU/K+lsU +ujPKCjMMlYEzJ6tdHmdQaLf9hU8hZTLQMJBd8RN7qlXUsmxMBq7Fro0yyKSQ +9h01MTlnWUiTd/KrxG5leFRx79wEbcFe1cVZFJqfHfxr/JwcKOn7LZTlUEjU +36K6ylYBio5dMBUsoNDYHT6fA74KULM+dL0jdv3HLunpOAVYNfI4mIPtZuN+ +TqVFASwsTXboFeL8tobZ3dRUhOzYgiM+RXj+icKv0RJKQHWhS4O47g5786vv +oZThHlun2J/3KYTC7DUdfyqDUzldHo29JTZLjymlAhoRxo292Gx5WmbRB1Xg +W+u6TbEVFCr75OpY+UgFok3jtnypxPXpUHr2j9zN8LnUwbatBudnYft2gqEK +4xFnxnuaKJR36MaH5WhVsFS5fM2gmUIJDGqQ629VMLVzLMzEZp45OSnbrQpq +Lw+p+j6gkHBzBtsh8y2gyhP1F88/eP9ozWxpUtwKv0R6TQ8/ppC0wrWY+BE1 +IGqdGy1eUKj58qLqCoc6FOxs3fUI223BuYeUV4fl2g6Hne0UymxVUjXzUIcd +z97xGr6kkIJ345vvfepwK/5ttd4rvN7SUWXy5TbIsORVsfmXQjLSsqScswa4 +HsqufveOQmr5oQI00gS5srBbl6YoxGCeW1LfpwmLyezmMtO4XhWTP3m5acLJ +mTWMCmzO3PL7beGakKFdwvlhBtdb5sTh5ApNOPTA+K3WHO6n6V4ZqopakC4d +0EIv4f8bb7PNiUcbTGL5voz8olBOsNKBmg4dkBZvy5EVG0KVn1riJT/qwN7K +RbEB7Md73J9FTuqAU7usZLb4EBpRSNtpxqcLr4dvtSlKDiGV7jXqnVa6MMJ+ +99UO6SFUqjXJ++WxLvB/4E/0kR9C9YsVTzY26MFDvyeWptuGUFcY0jufbwCn +/nHNzbUeQvIevfvcj5vA2Zw9VvxxQ4j4VXtP5hRAWGhn4Pm2ISQxWb9GgmEG +lIjn0jWxYRSqZfwxeYsFRIYsX9DxGUaM6R/PRSd2QcjESdeuR8OozCxkTVan +FbgLekSvqo2gO4u+j0pTrMGSax1ZeWsEfTeVfNUasxccWcdy0jeOon42zjnq +iC3QG4ycywpHUcDGwMSzivuhNdg4dKP2GLp37HlLauwBaJQN3p363xiKWJBa +3nrsIMSJhVbOnP6MlvZYOjzztIPk/unuv3aOIwPXJNPRg4fAjfGxNoL3C3oj +leHbqnUYHA0WLzR3f0F/FJxrLvrTHl7Oys74PZhA9YNbbPYJOsCla0LaZP4k +ku356h027QD23xtWZlKnkFZqUmneoCOcO6yTVFA8jTK4FrYlP3ECwacx19vq +Z1Ct6fb3sQ3OIEZdNzo1PYvS9S4L/yhxAbWn/kYJqV9R54f8OK0rrtDSfquB +2j6HamxvKwWdcQPL/DLJs/1zaM7/EFsA0x2kHmV6vj8/j5YsVX1mzD3AZnxE +UU59ARVNv/seousJx9W9bgZ9XkBOOflH3QW8YJ/M0Su5NxZRVeVeT84LXiDo +3HCl1nEJGUi/Wbm04gWrOjAfwfcNKQ56v//32BFIaLobfrYOn2P8fvtvDx+B +DapjobcCllFXwr6jVvYMMAkRWysu+h2lhGfxn+xigKYdc/cHfK41P/y1ctT6 +KLgoRFZ42q+g9W5wQavxKAgFdPARfSvIwGumKFabCYTJxGriIRYquPk1ZJ8u +E5rVKy4a27PQhu75nRL6TBCgPv8Yc2ChmV3LPUVGTHh8sC1X34WF+xcbe4cZ +E2aVoe+1FwutWxZ2FjnIhHuJpZFt/iw0clWHN8ufCaalff8biGOhhKaoY/UF +THgQOd2fVcNC/po3DMKLmGDY+TaOrmUhm+IKXv0SJkw2yPA51LMQ342x4roy +HO8BylzTxEKxwQcmaquZ4BljPu/WwkJRqkp+NY+ZIBNbuNTZzkK+N14er/zE +BF/F0A89n1jIet2YcfAgE0o2rpfiH2ShP2PZBDWHmBDO8lUGioXGgnXKKkaZ +8HQTd3HBMAsd2Zc1fX+KCSrfdtgR4yzkxB0SUM5iwo/kocGiORayCvkjqFSc +gNUqIs+Sk0aPs+L2JEsSILiSsMGfi0bGHfNK4X8QQIRtFEnmppGG8st35rIE +RBO99/vW0EiqL9L8gzIe9587cRB3qknDfnE+HQJmtw6XrW6g0TWO7Afehwi4 +Z3DqtIkyjfi2C6Tb2hNQXFn9WFuFRuddw4O1HAn4IttycctmGoVXH9j8y4WA +Qc7FVGFVGh0h2ZPSGASw5xbefaVGI612BvPpCQICctKifmrRqC9JmV8xkYCS +PI8kA1Ma3UOCPuNJBPQ4WkosYJ+fXmwtu06AT4Oy1V0z3EmtW6P1bxBwSnYq +T8KCRglsR+dtMwnwi0/aO2hJI8vA7HfhpQRs53RR2mFDIxmZi7o77xEwX+ih +0Yu92B54nfM+AS5c/MN/2dIoVwXZJlQRIP8sxahhH41+9ve35DUS8FVEsnrr +QRpV20gXvX5OANfuKzc77WkUz+LgTmknYOpZ8Yq7A40YRRNHnDsIcNSM/TmB +LcTVKD3SScDr6BezbE40Ot7kdG3lLQFG78ZPbXShkeKWtDClUQKEqig2EQ8a +sfpOd38ZI+CCbdyly9hdsYRG+TgB6cbeVeyeNIqmtCcMpghI22QzMYn9Pr3b +ff8CAT/JpsHyIzRKXiO8K4KdBO4VpzdLTBo1z/e7hnKSUD9S8OAoQaPP/SXB +AdwkPLU3nuvENq62yGbwkrDglq6RR9JozCuc3iNMglxRFb+OD87fZpfILlES +TvT1aadiG+mJqCIxEuJrefMXsBMFSx20pEjoF+BxuXsMjzcOVEjLk/CiMFmE +x49GZH7pczFFEpr2Hgxywk5MPDWwXpmEgx2CG4qxx0hRQS5VEjjZuNV3Hcfj +olY+Uxok0Kcrcnz8adS4KhozpkmCQM0mtTLs0S+DqYPaJCRpF9Cz2IYtEU96 +9ElQfJd6LCiARiPH78k+ABJ4opyj3QJptM4pUqfOjAQb8YFt17ENzHfbVFiQ +sLXvkeJz7ASpoVP5u0kQGbB9rxZEo3qu8sSsPSTUOHf97YY9PBtZeNOGBGsG +I+cytn6bWO/VAySMvwsIp7AZFUOTF+xIOPzmmTXfCRpdvV3O8b/DJFz0m/bY +gT0UbK0R5kTCtknG4QhsQQ9xqyAXErIr07RvY+tbD7v7upGw+tHDqfn3+5tO +x3t4kfAmLNJ3Gbueb0+uE4OEOLkGJ5FgHG9JvMGOSUJejvvlrdiC1HCnDYnn +M/f8ZYat33F/zNKHhLes6jonbEbd6Z/gS0Kmt0PVceyruXs2GB0nwaHXaD4a +u/6qxFadAPy8oUfotd/xw0dMtweREGNYZ5CJLcCscFINJuFPBVOzu9h6+6MD +FUPx/pj8drX2d3zDvXEyYSSAYc/GFuwrypIZEuEkzHr2zjzDrhUarRKOIEHU +aZnzNTZFV7TzR5Gg0a7n9uZ3/M/RFHc0Cfa8qcs92Lpv9n7/FUOC1IZ1b3ux +/w9ADAQJ + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk8FtsbAHB72cqS7YrsXUXJvnYeS6RoUfa1t3eGyBJyhahf0aKEkLrZ +s0ayr3VVUklxQ26LGFuyZkveKf1Of8xnPt/PmXnOc2bO8xx5RqAdwcHGxjaO +r9/3E6+3ba7rer2z2vc+KzGBQjtn7ugwLEpRN2+aZhL2YJZuipJFM6qWNn// +2weYr3gEtJ4i45K6uWTsivCYJ9wWHUi5bSE8BftSm2RLTMm/qCtuOTANu6Hr +ROYPzV6kz/fkbTr2xPv2qFNN/yGukw5lf2P/Maro+s38I7o1X7GQib13Nsog +pGMALVb3FudiP/wxwR9eQqFXi486C7DfnpWIrA0YRmfmwoi72DM8FhOLmqOI +fW7R9z42z5UgZ63lMaQCxoM12LLCGc9PNI0jbU3bp03Y+6S/FcyYT6Fx/1ef +nmOT2Qri6mtnUHWMiWgXdozy/li/jlmU1Bpe14f9n0TPjtCSOST3yG7/ODbT +xffY9SvzyCps3mwO++tttpzKgAXk4+xZwMJeq6AuNKe5hF5M5zavu0ahFOYT +KyGxb2jk34hAKWy5QueY7cvf0E1rhWQlbH21uBn/pu8oLXdIxRjbR3egY8L8 +B7psYJIQhL0YfpKLT+UnqnyR/0809pkmfmPVtauo7fuw11XsdNC/693xC22o +H5m/i83Mf24RXMIOxp3C9jPYJW3XB89KcwAYm3KzJeJ8P3tEJV3hgN2rtsoi +2FFblqruB3DC7Q+cNXrYKeXyirOa3LBjlE30Ivb7rqmHq3ncUFJraJaBLTdf +57JOjAc8drpSldil2vuS1Zd5ICfLPnAAu7Uhgv1401rw8LVvN0mi0NKT7oFx +cwGwXPv09PpkConYCAhFPhQA2SEOoW3YGj0WIGggCGOBlLIttu9ITfaObevg +gPelj1ewgzg6NEwEhGAtf+tJkesUGlW4Nxf7TRjuJPxw1k3B34ds5+3UEoGP +4LnZHZvj7pi85AkR6Oy5FH4eW05rk13JpAi8KTct6MF2MU+sfD0oCj3p8dsj +UynUeTQ4ROKlGNwrkv8xmEahT4UJ8V5rxeG8xpE1QjcoNDVZkle8SxyIX+lp +CJsvdLjbqEUcTr5ehWxsi/OHtb1qJECokaPNO51CjXd0l4qypOC2NU/K+lsU +ujPKCjMMlYEzJ6tdHmdQaLf9hU8hZTLQMJBd8RN7qlXUsmxMBq7Fro0yyKSQ +9h01MTlnWUiTd/KrxG5leFRx79wEbcFe1cVZFJqfHfxr/JwcKOn7LZTlUEjU +36K6ylYBio5dMBUsoNDYHT6fA74KULM+dL0jdv3HLunpOAVYNfI4mIPtZuN+ +TqVFASwsTXboFeL8tobZ3dRUhOzYgiM+RXj+icKv0RJKQHWhS4O47g5786vv +oZThHlun2J/3KYTC7DUdfyqDUzldHo29JTZLjymlAhoRxo292Gx5WmbRB1Xg +W+u6TbEVFCr75OpY+UgFok3jtnypxPXpUHr2j9zN8LnUwbatBudnYft2gqEK +4xFnxnuaKJR36MaH5WhVsFS5fM2gmUIJDGqQ629VMLVzLMzEZp45OSnbrQpq +Lw+p+j6gkHBzBtsh8y2gyhP1F88/eP9ozWxpUtwKv0R6TQ8/ppC0wrWY+BE1 +IGqdGy1eUKj58qLqCoc6FOxs3fUI223BuYeUV4fl2g6Hne0UymxVUjXzUIcd +z97xGr6kkIJ345vvfepwK/5ttd4rvN7SUWXy5TbIsORVsfmXQjLSsqScswa4 +HsqufveOQmr5oQI00gS5srBbl6YoxGCeW1LfpwmLyezmMtO4XhWTP3m5acLJ +mTWMCmzO3PL7beGakKFdwvlhBtdb5sTh5ApNOPTA+K3WHO6n6V4ZqopakC4d +0EIv4f8bb7PNiUcbTGL5voz8olBOsNKBmg4dkBZvy5EVG0KVn1riJT/qwN7K +RbEB7Md73J9FTuqAU7usZLb4EBpRSNtpxqcLr4dvtSlKDiGV7jXqnVa6MMJ+ +99UO6SFUqjXJ++WxLvB/4E/0kR9C9YsVTzY26MFDvyeWptuGUFcY0jufbwCn +/nHNzbUeQvIevfvcj5vA2Zw9VvxxQ4j4VXtP5hRAWGhn4Pm2ISQxWb9GgmEG +lIjn0jWxYRSqZfwxeYsFRIYsX9DxGUaM6R/PRSd2QcjESdeuR8OozCxkTVan +FbgLekSvqo2gO4u+j0pTrMGSax1ZeWsEfTeVfNUasxccWcdy0jeOon42zjnq +iC3QG4ycywpHUcDGwMSzivuhNdg4dKP2GLp37HlLauwBaJQN3p363xiKWJBa +3nrsIMSJhVbOnP6MlvZYOjzztIPk/unuv3aOIwPXJNPRg4fAjfGxNoL3C3oj +leHbqnUYHA0WLzR3f0F/FJxrLvrTHl7Oys74PZhA9YNbbPYJOsCla0LaZP4k +ku356h027QD23xtWZlKnkFZqUmneoCOcO6yTVFA8jTK4FrYlP3ECwacx19vq +Z1Ct6fb3sQ3OIEZdNzo1PYvS9S4L/yhxAbWn/kYJqV9R54f8OK0rrtDSfquB +2j6HamxvKwWdcQPL/DLJs/1zaM7/EFsA0x2kHmV6vj8/j5YsVX1mzD3AZnxE +UU59ARVNv/seousJx9W9bgZ9XkBOOflH3QW8YJ/M0Su5NxZRVeVeT84LXiDo +3HCl1nEJGUi/Wbm04gWrOjAfwfcNKQ56v//32BFIaLobfrYOn2P8fvtvDx+B +DapjobcCllFXwr6jVvYMMAkRWysu+h2lhGfxn+xigKYdc/cHfK41P/y1ctT6 +KLgoRFZ42q+g9W5wQavxKAgFdPARfSvIwGumKFabCYTJxGriIRYquPk1ZJ8u +E5rVKy4a27PQhu75nRL6TBCgPv8Yc2ChmV3LPUVGTHh8sC1X34WF+xcbe4cZ +E2aVoe+1FwutWxZ2FjnIhHuJpZFt/iw0clWHN8ufCaalff8biGOhhKaoY/UF +THgQOd2fVcNC/po3DMKLmGDY+TaOrmUhm+IKXv0SJkw2yPA51LMQ342x4roy +HO8BylzTxEKxwQcmaquZ4BljPu/WwkJRqkp+NY+ZIBNbuNTZzkK+N14er/zE +BF/F0A89n1jIet2YcfAgE0o2rpfiH2ShP2PZBDWHmBDO8lUGioXGgnXKKkaZ +8HQTd3HBMAsd2Zc1fX+KCSrfdtgR4yzkxB0SUM5iwo/kocGiORayCvkjqFSc +gNUqIs+Sk0aPs+L2JEsSILiSsMGfi0bGHfNK4X8QQIRtFEnmppGG8st35rIE +RBO99/vW0EiqL9L8gzIe9587cRB3qknDfnE+HQJmtw6XrW6g0TWO7Afehwi4 +Z3DqtIkyjfi2C6Tb2hNQXFn9WFuFRuddw4O1HAn4IttycctmGoVXH9j8y4WA +Qc7FVGFVGh0h2ZPSGASw5xbefaVGI612BvPpCQICctKifmrRqC9JmV8xkYCS +PI8kA1Ma3UOCPuNJBPQ4WkosYJ+fXmwtu06AT4Oy1V0z3EmtW6P1bxBwSnYq +T8KCRglsR+dtMwnwi0/aO2hJI8vA7HfhpQRs53RR2mFDIxmZi7o77xEwX+ih +0Yu92B54nfM+AS5c/MN/2dIoVwXZJlQRIP8sxahhH41+9ve35DUS8FVEsnrr +QRpV20gXvX5OANfuKzc77WkUz+LgTmknYOpZ8Yq7A40YRRNHnDsIcNSM/TmB +LcTVKD3SScDr6BezbE40Ot7kdG3lLQFG78ZPbXShkeKWtDClUQKEqig2EQ8a +sfpOd38ZI+CCbdyly9hdsYRG+TgB6cbeVeyeNIqmtCcMpghI22QzMYn9Pr3b +ff8CAT/JpsHyIzRKXiO8K4KdBO4VpzdLTBo1z/e7hnKSUD9S8OAoQaPP/SXB +AdwkPLU3nuvENq62yGbwkrDglq6RR9JozCuc3iNMglxRFb+OD87fZpfILlES +TvT1aadiG+mJqCIxEuJrefMXsBMFSx20pEjoF+BxuXsMjzcOVEjLk/CiMFmE +x49GZH7pczFFEpr2Hgxywk5MPDWwXpmEgx2CG4qxx0hRQS5VEjjZuNV3Hcfj +olY+Uxok0Kcrcnz8adS4KhozpkmCQM0mtTLs0S+DqYPaJCRpF9Cz2IYtEU96 +9ElQfJd6LCiARiPH78k+ABJ4opyj3QJptM4pUqfOjAQb8YFt17ENzHfbVFiQ +sLXvkeJz7ASpoVP5u0kQGbB9rxZEo3qu8sSsPSTUOHf97YY9PBtZeNOGBGsG +I+cytn6bWO/VAySMvwsIp7AZFUOTF+xIOPzmmTXfCRpdvV3O8b/DJFz0m/bY +gT0UbK0R5kTCtknG4QhsQQ9xqyAXErIr07RvY+tbD7v7upGw+tHDqfn3+5tO +x3t4kfAmLNJ3Gbueb0+uE4OEOLkGJ5FgHG9JvMGOSUJejvvlrdiC1HCnDYnn +M/f8ZYat33F/zNKHhLes6jonbEbd6Z/gS0Kmt0PVceyruXs2GB0nwaHXaD4a +u/6qxFadAPy8oUfotd/xw0dMtweREGNYZ5CJLcCscFINJuFPBVOzu9h6+6MD +FUPx/pj8drX2d3zDvXEyYSSAYc/GFuwrypIZEuEkzHr2zjzDrhUarRKOIEHU +aZnzNTZFV7TzR5Gg0a7n9uZ3/M/RFHc0Cfa8qcs92Lpv9n7/FUOC1IZ1b3ux +/w9ADAQJ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5486531158706698, + 1.7155359612963876`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.548653115870671}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.5486531158706698, + 1.7155359612963876`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.548653115870671}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk8FtsbAHB72cqS7YrsXUXJvnYeS6RoUfa1t3eGyBJyhahf0aKEkLrZ +s0ayr3VVUklxQ26LGFuyZkveKf1Of8xnPt/PmXnOc2bO8xx5RqAdwcHGxjaO +r9/3E6+3ba7rer2z2vc+KzGBQjtn7ugwLEpRN2+aZhL2YJZuipJFM6qWNn// +2weYr3gEtJ4i45K6uWTsivCYJ9wWHUi5bSE8BftSm2RLTMm/qCtuOTANu6Hr +ROYPzV6kz/fkbTr2xPv2qFNN/yGukw5lf2P/Maro+s38I7o1X7GQib13Nsog +pGMALVb3FudiP/wxwR9eQqFXi486C7DfnpWIrA0YRmfmwoi72DM8FhOLmqOI +fW7R9z42z5UgZ63lMaQCxoM12LLCGc9PNI0jbU3bp03Y+6S/FcyYT6Fx/1ef +nmOT2Qri6mtnUHWMiWgXdozy/li/jlmU1Bpe14f9n0TPjtCSOST3yG7/ODbT +xffY9SvzyCps3mwO++tttpzKgAXk4+xZwMJeq6AuNKe5hF5M5zavu0ahFOYT +KyGxb2jk34hAKWy5QueY7cvf0E1rhWQlbH21uBn/pu8oLXdIxRjbR3egY8L8 +B7psYJIQhL0YfpKLT+UnqnyR/0809pkmfmPVtauo7fuw11XsdNC/693xC22o +H5m/i83Mf24RXMIOxp3C9jPYJW3XB89KcwAYm3KzJeJ8P3tEJV3hgN2rtsoi +2FFblqruB3DC7Q+cNXrYKeXyirOa3LBjlE30Ivb7rqmHq3ncUFJraJaBLTdf +57JOjAc8drpSldil2vuS1Zd5ICfLPnAAu7Uhgv1401rw8LVvN0mi0NKT7oFx +cwGwXPv09PpkConYCAhFPhQA2SEOoW3YGj0WIGggCGOBlLIttu9ITfaObevg +gPelj1ewgzg6NEwEhGAtf+tJkesUGlW4Nxf7TRjuJPxw1k3B34ds5+3UEoGP +4LnZHZvj7pi85AkR6Oy5FH4eW05rk13JpAi8KTct6MF2MU+sfD0oCj3p8dsj +UynUeTQ4ROKlGNwrkv8xmEahT4UJ8V5rxeG8xpE1QjcoNDVZkle8SxyIX+lp +CJsvdLjbqEUcTr5ehWxsi/OHtb1qJECokaPNO51CjXd0l4qypOC2NU/K+lsU +ujPKCjMMlYEzJ6tdHmdQaLf9hU8hZTLQMJBd8RN7qlXUsmxMBq7Fro0yyKSQ +9h01MTlnWUiTd/KrxG5leFRx79wEbcFe1cVZFJqfHfxr/JwcKOn7LZTlUEjU +36K6ylYBio5dMBUsoNDYHT6fA74KULM+dL0jdv3HLunpOAVYNfI4mIPtZuN+ +TqVFASwsTXboFeL8tobZ3dRUhOzYgiM+RXj+icKv0RJKQHWhS4O47g5786vv +oZThHlun2J/3KYTC7DUdfyqDUzldHo29JTZLjymlAhoRxo292Gx5WmbRB1Xg +W+u6TbEVFCr75OpY+UgFok3jtnypxPXpUHr2j9zN8LnUwbatBudnYft2gqEK +4xFnxnuaKJR36MaH5WhVsFS5fM2gmUIJDGqQ629VMLVzLMzEZp45OSnbrQpq +Lw+p+j6gkHBzBtsh8y2gyhP1F88/eP9ozWxpUtwKv0R6TQ8/ppC0wrWY+BE1 +IGqdGy1eUKj58qLqCoc6FOxs3fUI223BuYeUV4fl2g6Hne0UymxVUjXzUIcd +z97xGr6kkIJ345vvfepwK/5ttd4rvN7SUWXy5TbIsORVsfmXQjLSsqScswa4 +HsqufveOQmr5oQI00gS5srBbl6YoxGCeW1LfpwmLyezmMtO4XhWTP3m5acLJ +mTWMCmzO3PL7beGakKFdwvlhBtdb5sTh5ApNOPTA+K3WHO6n6V4ZqopakC4d +0EIv4f8bb7PNiUcbTGL5voz8olBOsNKBmg4dkBZvy5EVG0KVn1riJT/qwN7K +RbEB7Md73J9FTuqAU7usZLb4EBpRSNtpxqcLr4dvtSlKDiGV7jXqnVa6MMJ+ +99UO6SFUqjXJ++WxLvB/4E/0kR9C9YsVTzY26MFDvyeWptuGUFcY0jufbwCn +/nHNzbUeQvIevfvcj5vA2Zw9VvxxQ4j4VXtP5hRAWGhn4Pm2ISQxWb9GgmEG +lIjn0jWxYRSqZfwxeYsFRIYsX9DxGUaM6R/PRSd2QcjESdeuR8OozCxkTVan +FbgLekSvqo2gO4u+j0pTrMGSax1ZeWsEfTeVfNUasxccWcdy0jeOon42zjnq +iC3QG4ycywpHUcDGwMSzivuhNdg4dKP2GLp37HlLauwBaJQN3p363xiKWJBa +3nrsIMSJhVbOnP6MlvZYOjzztIPk/unuv3aOIwPXJNPRg4fAjfGxNoL3C3oj +leHbqnUYHA0WLzR3f0F/FJxrLvrTHl7Oys74PZhA9YNbbPYJOsCla0LaZP4k +ku356h027QD23xtWZlKnkFZqUmneoCOcO6yTVFA8jTK4FrYlP3ECwacx19vq +Z1Ct6fb3sQ3OIEZdNzo1PYvS9S4L/yhxAbWn/kYJqV9R54f8OK0rrtDSfquB +2j6HamxvKwWdcQPL/DLJs/1zaM7/EFsA0x2kHmV6vj8/j5YsVX1mzD3AZnxE +UU59ARVNv/seousJx9W9bgZ9XkBOOflH3QW8YJ/M0Su5NxZRVeVeT84LXiDo +3HCl1nEJGUi/Wbm04gWrOjAfwfcNKQ56v//32BFIaLobfrYOn2P8fvtvDx+B +DapjobcCllFXwr6jVvYMMAkRWysu+h2lhGfxn+xigKYdc/cHfK41P/y1ctT6 +KLgoRFZ42q+g9W5wQavxKAgFdPARfSvIwGumKFabCYTJxGriIRYquPk1ZJ8u +E5rVKy4a27PQhu75nRL6TBCgPv8Yc2ChmV3LPUVGTHh8sC1X34WF+xcbe4cZ +E2aVoe+1FwutWxZ2FjnIhHuJpZFt/iw0clWHN8ufCaalff8biGOhhKaoY/UF +THgQOd2fVcNC/po3DMKLmGDY+TaOrmUhm+IKXv0SJkw2yPA51LMQ342x4roy +HO8BylzTxEKxwQcmaquZ4BljPu/WwkJRqkp+NY+ZIBNbuNTZzkK+N14er/zE +BF/F0A89n1jIet2YcfAgE0o2rpfiH2ShP2PZBDWHmBDO8lUGioXGgnXKKkaZ +8HQTd3HBMAsd2Zc1fX+KCSrfdtgR4yzkxB0SUM5iwo/kocGiORayCvkjqFSc +gNUqIs+Sk0aPs+L2JEsSILiSsMGfi0bGHfNK4X8QQIRtFEnmppGG8st35rIE +RBO99/vW0EiqL9L8gzIe9587cRB3qknDfnE+HQJmtw6XrW6g0TWO7Afehwi4 +Z3DqtIkyjfi2C6Tb2hNQXFn9WFuFRuddw4O1HAn4IttycctmGoVXH9j8y4WA +Qc7FVGFVGh0h2ZPSGASw5xbefaVGI612BvPpCQICctKifmrRqC9JmV8xkYCS +PI8kA1Ma3UOCPuNJBPQ4WkosYJ+fXmwtu06AT4Oy1V0z3EmtW6P1bxBwSnYq +T8KCRglsR+dtMwnwi0/aO2hJI8vA7HfhpQRs53RR2mFDIxmZi7o77xEwX+ih +0Yu92B54nfM+AS5c/MN/2dIoVwXZJlQRIP8sxahhH41+9ve35DUS8FVEsnrr +QRpV20gXvX5OANfuKzc77WkUz+LgTmknYOpZ8Yq7A40YRRNHnDsIcNSM/TmB +LcTVKD3SScDr6BezbE40Ot7kdG3lLQFG78ZPbXShkeKWtDClUQKEqig2EQ8a +sfpOd38ZI+CCbdyly9hdsYRG+TgB6cbeVeyeNIqmtCcMpghI22QzMYn9Pr3b +ff8CAT/JpsHyIzRKXiO8K4KdBO4VpzdLTBo1z/e7hnKSUD9S8OAoQaPP/SXB +AdwkPLU3nuvENq62yGbwkrDglq6RR9JozCuc3iNMglxRFb+OD87fZpfILlES +TvT1aadiG+mJqCIxEuJrefMXsBMFSx20pEjoF+BxuXsMjzcOVEjLk/CiMFmE +x49GZH7pczFFEpr2Hgxywk5MPDWwXpmEgx2CG4qxx0hRQS5VEjjZuNV3Hcfj +olY+Uxok0Kcrcnz8adS4KhozpkmCQM0mtTLs0S+DqYPaJCRpF9Cz2IYtEU96 +9ElQfJd6LCiARiPH78k+ABJ4opyj3QJptM4pUqfOjAQb8YFt17ENzHfbVFiQ +sLXvkeJz7ASpoVP5u0kQGbB9rxZEo3qu8sSsPSTUOHf97YY9PBtZeNOGBGsG +I+cytn6bWO/VAySMvwsIp7AZFUOTF+xIOPzmmTXfCRpdvV3O8b/DJFz0m/bY +gT0UbK0R5kTCtknG4QhsQQ9xqyAXErIr07RvY+tbD7v7upGw+tHDqfn3+5tO +x3t4kfAmLNJ3Gbueb0+uE4OEOLkGJ5FgHG9JvMGOSUJejvvlrdiC1HCnDYnn +M/f8ZYat33F/zNKHhLes6jonbEbd6Z/gS0Kmt0PVceyruXs2GB0nwaHXaD4a +u/6qxFadAPy8oUfotd/xw0dMtweREGNYZ5CJLcCscFINJuFPBVOzu9h6+6MD +FUPx/pj8drX2d3zDvXEyYSSAYc/GFuwrypIZEuEkzHr2zjzDrhUarRKOIEHU +aZnzNTZFV7TzR5Gg0a7n9uZ3/M/RFHc0Cfa8qcs92Lpv9n7/FUOC1IZ1b3ux +/w9ADAQJ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5486531158706698, 1.7155359612963876`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.548653115870671}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.548653115870671}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5486531158706698, 1.7155359612963876`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993826413795884*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"df5517fd-0fbf-46fe-9776-12b07b7d7e14"] }, Open ]], Cell[CellGroupData[{ @@ -1691,420 +6756,1352 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918505781608486`*^9},ExpressionUUID->"4b73592e-b155-8f42-b33d-\ -562f8b3faecd"], + CellChangeTimes->{3.9918505781608486`*^9}, + CellLabel->"In[95]:=",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.117611741008122`*^-263\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 95, 9, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993826414224461*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"a76795bc-fc4e-4cfc-b1a2-02471e5907cb"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"a2ecd22c-b766-5347-9e03-9d459620be75"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.029460758715628`*^-274\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 95, + 10, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99382641423656*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"add66837-86c8-4a78-9b41-3163dd3c941b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.103781779609983`*^-285\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 95, 11, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993826414244216*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"856907a1-f2b1-4eee-beed-2da6880e2155"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 6.72103 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .14914 -24 -4.5 ] -[.01131 .14914 0 4.5 ] -[.01131 .28356 -24 -4.5 ] -[.01131 .28356 0 4.5 ] -[.01131 .41798 -24 -4.5 ] -[.01131 .41798 0 4.5 ] -[.01131 .5524 -24 -4.5 ] -[.01131 .5524 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .14914 m -.03006 .14914 L -s -[(0.02)] .01131 .14914 1 0 Mshowa -.02381 .28356 m -.03006 .28356 L -s -[(0.04)] .01131 .28356 1 0 Mshowa -.02381 .41798 m -.03006 .41798 L -s -[(0.06)] .01131 .41798 1 0 Mshowa -.02381 .5524 m -.03006 .5524 L -s -[(0.08)] .01131 .5524 1 0 Mshowa -.125 Mabswid -.02381 .04832 m -.02756 .04832 L -s -.02381 .08193 m -.02756 .08193 L -s -.02381 .11553 m -.02756 .11553 L -s -.02381 .18274 m -.02756 .18274 L -s -.02381 .21635 m -.02756 .21635 L -s -.02381 .24995 m -.02756 .24995 L -s -.02381 .31716 m -.02756 .31716 L -s -.02381 .35077 m -.02756 .35077 L -s -.02381 .38437 m -.02756 .38437 L -s -.02381 .45158 m -.02756 .45158 L -s -.02381 .48519 m -.02756 .48519 L -s -.02381 .51879 m -.02756 .51879 L -s -.02381 .586 m -.02756 .586 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .18263 L -.10458 .34796 L -.12507 .41668 L -.14415 .47199 L -.16371 .51906 L -.18221 .55405 L -.192 .56876 L -.20263 .58172 L -.21228 .59082 L -.2212 .59698 L -.22586 .59936 L -.22843 .60043 L -.23087 .60129 L -.23313 .60195 L -.2356 .60252 L -.23669 .60272 L -.23784 .6029 L -.23886 .60304 L -.23993 .60315 L -.24059 .6032 L -.24132 .60325 L -.2426 .60331 L -.24332 .60332 L -.2441 .60332 L -.24483 .6033 L -.2455 .60328 L -.24679 .6032 L -.24752 .60314 L -.24819 .60307 L -.25074 .60272 L -.253 .60228 L -.2555 .60165 L -.26055 .59995 L -.26547 .59774 L -.27064 .59486 L -.2799 .58832 L -.30075 .56765 L -.3205 .54159 L -.33886 .51282 L -.37791 .44198 L -.41941 .36071 L -.45939 .28487 L -.49785 .21945 L -.53877 .16105 L -.57818 .1166 L -.61606 .08416 L -.63714 .07001 L -.6564 .05921 L -.69523 .04269 L -Mistroke -.71425 .03672 L -.73499 .0315 L -.7547 .02757 L -.77569 .0243 L -.79714 .02174 L -.81732 .01991 L -.83744 .01853 L -.85592 .01756 L -.87479 .01681 L -.89546 .0162 L -.91501 .01578 L -.93594 .01545 L -.95662 .01522 L -.97619 .01507 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAmwHEUZxyd7vDMBA4kQjuQJihGPnEBcVLwALywtlfIoj2eSNU+NQABL -SgoRBUQEFgEVSi4PTjkCsoqiCMghhxyKKAMiIIKIIOKBiKwz3TO9PW9/3870 -7swCVbzK67z9dX//75uenp6Zb3p2t8l91qxeO7nP1MrJiV3XTe65Zmrl3hO7 -7LEuQOUZnjfj/OB3bMIL/255Xly0gn+t9WERkvS/V6v/ql6zUfdqXvxT8+pN -39tO1ZW9VrNuasqqHPVqDV/Vml+/6dVjgVrda/otb4mDPflfFNu3Au2ophLZ -15utVP+LHezJ/xKpb4LYK1Ed+dV13ir137DXDOpr9Ybn+9qV32wouTCEHaIQ -G7Wa14jqy5Fdq+UHXEu2NzH4HPy9rItdN39xl+o2Tc8PPpUUG/fCvZTsFtn/ -Yged9HiGlU2sY+/OcJiUMvSH3nZvyh5xgVz4aXuxq5LtShHzGzUzOpeC7QjY -xt3qB6wWhVjN6GMx2I6Brd7lQwmmfvXnMkiXeuuVTomkbdZeMcef2lG6bSWj -jyVgO9olFrsd9TL5mNY94TiNx21R3WP7MJuoxrXmrj5sW/Khd0HFmoKDmJqt -rG5K9kw2lJhIrclwRc6dVe7ubrk9rTvu8mWibbq7cIR5PY2wVbZXT89YO6ZM -S9Nl06alMviIt9YeEfHWdsz22iftt0WizDCcNNruV7i76tJhWq1q5slG0zcd -UDHtAxaeaqyOa9a1fXtL0jSmd2Bw6vHDU1a7s/UpLDkWsvnOqgUx6HOkOf31 -EgN2r/4pmcuzdvPl8ewRyOqLIOWuGvViaB72XnztE0aylE0qGT0mdpA5DOvW -Durmlu3Kzr4b7Us6Tw/5br6jyz3pCnth5D78MUdAWB7y7KhfEP6nbi6ODosZ -stVYH2z0OduB2BYSy8KQjEPtyHOD5dls249eeD3Vmh2SmTkr24NKzeOvgUav -AvbqjO3UhflISCoZLTpCaunDIihGw4+7Y/1WYTEUfvww1s8PC5WwWM3HkWk5 -z7ScSmk517Rcm9Jytmm5V0rLWablvnbLSqKL4sZqLyuR/dIbD5sO2T+9cdU0 -PsBqXDH1ZVN/oC1WTYjFG/aUCfOg9MZPGuWD0xs/YRofmt74cdP4MN4J4W8J -2GPG8HA3w0eN4RFuho8Yw6PcDB8G5ijxkPH9VdmwDOxBYI4SDxjfx7kZ3g/M -llA1ZHif8fgN2SNNXfcCc5S4B9jxbhJ3AzvBTeIu0wMnyoZVYHcCc5S4A9hJ -bhI+sJPdJG4HdoosMQTst8BOdZO4Ddi33CRuNbvyu26GvwbWRWIY2C3ATrMk -VA0Z3gzsdDffNwE7w03iRmBnyhIjwG4AdpabxPXAzh64xHXAvucmcS2wc2QJ -uly9Bti5WkKftviBUXyAx0naWqPpVbu0T6aJ9I++JionEm108qCwrwZ2ng47 -6qkuz14qEHzFjFn5kU07PzX9EVI5kTGk+Z824ipg50cboTsizsxS4pGeuHTL -8tpPa2gwUYRXAlufiDD2RM+nxrpEY7czttYTEZo96NbqCmAX5B5hIlsbPbxQ -M7waw9RzlwO7MPe4zBM76+EAnXup59IjjJP6aaMvGeFQol34G2XhY5m0Q4WC -vQzY96NgK+3jXSeSKY9s4u3IN48n2uljXs53U+9SHulSYBfpgM28CpnZWV3q -4owuZYzpcoPC+ikwPZTwjEESPwH2AzeJS4D9UJagdMyP+5f4EbCL3SQuFmWL -kpgl9j71T2aJJrBLLAlVQ4YXiSMks29HiQ2AXSgO9cwSFwC7dOAS64H9TJbY -ENh5wC4buMS5wC53kzgH2BWyxPOAnQ3s5wOXOAvYlW4SZwK7ypJQNbOh0Rkp -htOqSOJ0YFe7SZwG7JpCJTYC9h1gvxi4xLeBXVuoxMbATgV2nZvEKcCuH7jE -ycBukCXmADspRULVkOGJwH7p5vubwG4sVGIusBOA3TRwieOB3VyoxPOBfR3Y -LW4SXwP2q9wk8szLtOsa1oJhfX9GtzqbADsWmE51FpiLGbLs4pvJPALOL+9S -7SPCY4Ddmoiwt+xBtWMtbthGP8hLT8QNMtIxXjVsLX6K+rWdhqHwjgb2mxzC -o91fVe1iFu92ujPfFFgD2G0dg9I9HSMMA3Vo6dXqeUbaZy4m2U5vaMXkY2q1 -9h7PEOdRwPQTpJ5TMLHreHGy1G3zgB0ph0MnBZI4AtjvBi7xFWC3yxKbATu8 -f4kvA/MHLnEYsDtkic2BfSlFQtWQ4aHA7nTznYPEIcB+L0tsAezg/iW+COyu -gUt8AdgfZIktgR3Uv8Tngd09cIkDgd0jS8wH9rn+JQ4Adm++EqpmATTaH9gf -Zd8FSXwW2H2FSkwA2w/Yn9wkPgPs/kIlXgDs08AeGLjEvsD+XKjEVsD2BvZg -vhKqhgzXAfuL7HtrYHv1L7EnsIcGLrEHsL/KEi8E9qn+JdYCe9hN4pPAHpEl -XgTsE/1LfBzY37REEamXZt1KvNT03RDlCRxDLS71Er/sqO4r7VRCeO9Zb2aN -fQrYo1Hs/WRhhjvWH+hFR/C+Wk3fytIihG2ArUmNuLdkwjjnOsJ1JrX2S+hq -F9SjMaUSHtSrHwP292JiDO/Kwx60liPU6vL4pR4tKtrhzmit9xNpvc6Lga0G -9ljHCM0nJaMPw5jR+izXCHNNxZTMgaLX76nlb36LVmlRnKuA/UPH2Wsqpv1K -p5+cQuNDZJo7mv1XymFRc2IfBfZPWeIlwCb7l/gIsH8VKrEtsA8B+7ebxAeB -PV6oxEuBfQDYfywJVdOLYQbf7wf2hCzxMmDv61/ivcD+K0u8HNjuwJ4cuMR7 -gP1PlngFsHf3L/EuYE8VKrEI2DuBtdwk3iFJdHnJumcdVb0YWr5dsi7JUeSl -swTY2ySd8tOj81ZJpyLrLAX2Zkmn+vTovEnSGZJ1lgHbNSedXSSdYVlnObCd -c9J5o6Qz4qbzBklnVNbZDtjrs+ioarJ+nWQ9JkexPbDX5qSzk6QzLuvsAIxe -6lblzOJ1VgDbUdKZVbzOKzMyVW4g69QyxtiLDvW9KvWi1VyTQrjGP0pd0INm -6nM6llSpF5YW/oKUvvlOfDeeurusiy9Q0FbQvKTK2dFW9JMj6nxHJfqc9R0V -+koFOkNAxL1lNPhb9Grtb9Gzv1lLRaxSRNSzdGZV5UY5xCktjAnfPVNrONRg -kdZN0JRGF26q3DiHcCGtFSUGE2M3CFlKa9FXedD1uyrndIzdPN6vmvbtZGlj -lyKmWydVzo0iLuYlK7uf/XaCjvqZzr5052pH3e+bVnZqs9ubVnSFQakJVerV -nnj2IR3K1ahyE1mHrpwoLafKTWUdun6jpLMq58k6dD1JD7JUuZmbDj0cVOXm -sg5dJ09IOlvIOnTdTksIVLmlrEP3EbS+RJXzLR1Vre5m1PcR0PocVS6QfdO9 -Ga2kVOWErPMWYHNMZOrz1rI13bHSmw9pOnQHvWEyim1k691Mn85M2iyUbVQm -Y6Zpua3cUpXPkK/IS6tXf6d8Ebc34/9GSkZ2\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-3.23234, -0.00806918, 0.118269, \ -0.000558628}},ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 95, 12, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993826414252103*^9}, + CellLabel-> + "During evaluation of \ +In[95]:=",ExpressionUUID->"e9a3f61e-8a93-4430-961b-7e5e7184b9cb"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ -04dec8739bf5"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VV0XAHAZopKKzNM910VlnjPc1jK8ipIhFcpQkuqVoUSUDCFpIAkp +Q5IyxD3JLBUVSUWZGijS8MqYKRp8+/vrPL/n7Geffc5ee611qN1+Dl7cXFxc +yxZwcf3/Ot379BHrTO46yY+C3U2BpuvaMyVCTLuj4KhmJAt5GICiL3dLdCdB +5m+uIGkeTQiyK+ji6c4BxtGEYW4ehBUj4kmzXXfAJuzJQA+3HXyo3ew32VUP +iqt17fZxe4Ala7BnvOsV2D9463mNyx9muwwujXX1w4HH75PlJsKhwfxmblvO +BKiZZdr0RSeCzIeqL7tV/4DbsF/ZCUiDlT7uBfzmPNhXSy9KC8+CJC3Lms1b +BTB7t5ljd8B1eJOm+WB8+VJMsVE7p5+dB2dyw19yS67A1xMtpS9r80E8+dPp +ixkiqPFkQqnwQBFIqJRF/8wjfpTFO3S4CKTqY8NdOSIYqzC+STmsCOTGVh9R +bhDBWf5OiXMJRaC4yd+j5psIzmltChO9WwQ6vH/0P+msxNah+WMSv4vANlBs +QLt5Jb7vam/6cOo2nHK0WvdqWhSDRLd7sM8Xg9TdF1LcC8SQFoPkqpRiKBZx +nNFaIoasYtkx9axi6HzlxrkgL4bMGzIyfJxiYNkHMu03iKGQq6mqe1sx1Ntk +LWy9LIaKoz6+T4VL4I/l1IvnJuLYIjojEJBYAol5oYV/LMVRmvn91vK0EmAt +5IpTsxfHqzPJTvlZJbDp8WLTc17iyBtUMPC4uATSzRmlm86L44VdLVmFLSWw +FjemPvsgjrEtL5OTeThw2PCa+9MoCVx/Ujwv0JgD1tlCkxvPSuCWR5evX1nH +ASb/8bgXlyRwqWhf8n1TDrS2b6Nf35LA1q8bHP6u54C6vyBP7wsJ7OkM1tvu +yIFvecF5P6Qk0WrT2rggHw7sXLl5WLpUEl3THL4eSOeAzrGayMxaSfwvYVRP +M4MDi/tXiVFPJDFTZl/QjywOVJXwgNIbSbxSPtRy8AYHxDZWJWrOS6JB5PFW +4JDnR7J0/9kohWkpofr2jzlgMToX6vtJClNUnr5ePcyBkA3Jax4OSWH9fJtv +5CgHiq+pvRWZlsLfnr3SneMckHD0MKwSkMY/0X5FQdMcGKp8PMOjLo1OTdkF +yfMcuBiVGHj5qDR22O80sFhBQ7+oku+jpTJo3diVcUibBnG/+7Li4jL4N+7d +PR9dGjY1OT3fz5DBmX96Jj31aSgPPaO6TEcGN/aX3LIyoiH+w9igs5MMxron +qf0wpUE7v8Z7NEcGWwv/662woyHSxH6X1FpZrJAayRD3oWGDW+YPAzNZbBNw +EO8+SINQxPeTWzfJ4oFqa7VLfjRcbYjJS/SQxbmQeE2+wzRUWld/X3haFld1 ++GbVhtAw5qQQNPFGFtVLLx07HUtDRag//4oBWdwWsmVUJI6GE1fvpamPyOKV +dPeFV07TIPhxe81+bjlsuKrHyDpLg7L3Wa6Pa+TQ8Un7svAkGtyOTMW3HJPD +Z/0S1pkZNCimmskMxshha8pplYlMmny/hNv8iXJoeWhRpUU2DaG/V7ea5cqh +tIx1e08ODZdOuolWtZDxexJWfbtJQ8uFxqwbsvLYvONAlStNw8XSlVoNyvLo +uEvhbNgdGlw6dtV/1JLHdauKhNNLafgm8XtA2lIeY1zD2U/LaODJ1lyT5CuP +BsrXpbiqaTAqvnz3xH15fHyhJqT1IQ0WXS/+jDTJo79rkUpRPQ2buXjXu7+S +x8i3gvwxDTR4Ovi+gc/y6PlV00T9MQ2Wx6jwCD4GyvRVFrs10fBsWe31tYsZ +aNXWUa3wlAa73G1NY0IMVG2+OvmZeMfzMyt2STCQy2nLxK5nNPjLT183VWFg +wf5S1bUvaJgqTWya1WCg5Tqfsi/EoRtUhmldBn5W0fdPeklDTICHPnMdAw/M +sE/0tdKQ3tDcxG3PwMVMAUG31zQ88s4abghiYGuPuH9bFw1Wvw2Fjx9jYLZO +r9uWbhpeJLbr60YwUGhg4elXxG+qFkXknmbgQcnvF5re0DCyJFA45ioDk5TF +Tl18R8PhbCED9jXyPn8W7J4n/qmbv2PqBgM5bWvD9r0n39OtN9erhIFKugLB +2j00SHA2GFjWM3CVTdfpG700ZFh82vH3CQMvTd0/+ouY+SYsovwZA1M+8N3e +/IEGNe7Sp0odDNzWtO7bEPGdFJuR3jdk/Xwnxgw+0rBW5Ztwai8DTy8oxQhi +M0fZnfzfGMiTl1Ej0EdD47eKiPtDZL3puV83EG8Kc7gRPM5AzQFzt1ji7Xmn +Rr7OMZB7fFJtlvi9EVMke56Bf+d3xqn307D7Za2BEy+FdXOLNHcR+/wcj2ha +SuE76S/764iNAvaKfRGmcPEj64AhYoHBt4U8EhTmFjnZiX+ioXO3rSklS+F6 +3lF+IL7xrqFzHZNCs7bhNE/iQMe1PjuVKewf0+ONITZ7XrQgVJXML5ZvfZ14 +uSWVmqpFYUHL6oN1xL11l1TL9Cn87n/Fp5O4yGBx/StjCh/o91t9Jw7lnNg+ +hhTqKH7i+0O8YfXE0FJLCk+LRV9bMkCDWI53lMpGCvMqCmXFiQek3otb2VEY +fMr0mDzxnYt2t/dupVC3U62GRRwh+Ngs2oXCnkfOvUrEtjGG3dfcKYy2KPms +SCz39/bB+3soLBaVfEURDwUxeXr2U1jaGJUrRVw9mpI250uhRGW363LiuH1L +1CUCKRxeITDPTbytL7xBL4TCNc//xv0g62W5TDptOUEhf3Hh717iH6/2jfif +pNDD4q9LE/GDjT0nz8eR+9+/5BYTn39kL1l0jkKqcdu7C8Q72U+KnyZReK4R +5gOI15QbWXxNpVAtN3mFLfGseskb3gwKbXo2iKwmbrqp4MfMofBXtR0fF3EK +I40Xb1K4a9O1b6/JfmoLR2ocoylMz5uMPUTMdWbqUVo5hb7/fjZnE7/gOeBS +XkNh2du5KV7if6ccYsYfk/HyR9lnSDwZ+TZKLXtGodTy9nYrYoGvxhzVVgqP +fzDx4iPO7Wa9835L4USO4pHDJH4P2V/2j/lA4fuarGlFYmxeuvD6AIULfksd +6SDx31Mzrdk7QqFMwIqDKsRiWU2xjjxM5F2xzKuUnK8BcbbMIQEmeizJHLQh +vpNI0wlLmahhb3TkMzmPtlHp75vFmdhwuzhjCXGcl4+2qSoT/wkwctJ9S/aj +92OjmxYT7wf3MyvIeWdt3+p6XJ+JAuav5vSJH2xYF1eBTDR4X9qpRvLDrMry +XrWtTFwr3bbjZwcN0xlSkTouTGy+Xe6zl3hymSLL0J2Jv2UcitvaSf6YMDxg +sZ+JBTc4jVkkH/XXeE67hDGRS9nFT6qNhuaNFUJxN5g4+qUzKJ7kv8Z7D+lz +BUxc+E5qaUszyV8aLY4XS5h4uTdwYDFxnUhfemYVE91d01wiSH69826xctlz +Mp/lr0hrkn/T/3WD/ikm3vZYXLCzjobUnn39X+fI+8XqtB66R0Oy7eGY4Xkm +Umb/boitJfGkE/fs5yIFnA5x0rlB8n/UL3r7MjkFLHgVu6KhnOzvGT5/E0sF +/O96/6fwYhpMCouyU1IU0G2o+RrfVRreMQqz/rmigPPXZ3J70sl5TMnPnMxS +wCbbfYdKL5N6GZl31SFfAVX+e+bnlEriyyk7TahWAY1GioTiSD1czZecGNtH +bBJdfILUUzH3YxFBqixcyP9RtPUQDWXtIeGKWix8OOmr6xlAg6P10RPteiy8 +dOuK8SSp30l6R45rAwtpdgn/clLflwr6HR2xZ+HfP1O0ujcNvFW7/fcGs9B4 +H7160Q4axoWtPbbVs7D57JZ4Q9I/dPswWw80stB7Z4GqN5D9fjIH4S0s/BLi +dyKJTUNiaKH8rU4y/uoevX5DGjT7BT/MDrKw/8jwyr2kf/GlX7pmiCiij6By +DZcCDYO2W3cM7FFEc1W16nhuEp9nPbYd4lfCArcEeeMaDvgOqjI1BZWwictP +n7+KAzPrZ4eHlyvh+9TdSW3lpH/jSYrZL6WEP8K/yO66wwHNkIa7HmpKOFsg +lPNvPgfCvJREbLco4RVmhaNGKunn1g29VMlSwuu8bImQAA5YjQZbfdZXRiox +WMiRIv2Yp8Dhu+GrkDdFY+z+g2LyPyHOfap+NT4PuBcRLX0bhJ8rneeMrsHy +pcwm/qBCkIkrsdPXV8V7Ez/681PzIU3FcLmItxpSq33Ktj+/Cc1SpnoTF9Tx +lbOujpVAHhjJ1CdqdGrgdLL8sU75XBDiyQncFaWJ9R0/jNo9ckAuUt7EWUkL +vXycQvPOZMMixZ3lDo1amJBV+U9QXgaosyVLgl210UXo1rbUK+lwqFe4wZpL +Bxd5WMCnqFQYnTi71SpNBw9vtZ0UfJ0M6zWepFup6eKSSr4HQZ5JUDdh/Gvm +hS7OvGxIyBtLAF9V7bdtXnpocP3i1fjuM8Ae2dPuvEgfXRo49l5vT8E/LAmb +pTn6yH2KNhmKjYZVEfFH6w0MMD4vr7w8KxLWeBneV3xrgPp/nmnplYaBV92+ +6LsBazHx2c/0DtUQuJ/dvmdc1BCDHncEKAwFwuSt+RmNCkOUnoll9G0PAE/F +wkXpNkY47L1lqnbaB8bXXNS/M2aEHTZbDkqXeENl7q++qThjDGv5tO9WjCfo +mwfOWJ8xxuE3yj4lQZ5Q1jckmH3OGFmKdR4PvD3hjlyvgXWSMTb/GBXgsvaE +orQH5zKvGOPneOWGKSFPyD4bY7i+2BiznZQcytN3w+nAZRfSXhvjx9X7n3pX +7QIXCwU0ljNB74ddM/7CHvCnXUCogWGCB6XZ8VW8HpDtNfLOWsEEueFRvsSI +O3yJrQp2WWWCS9IuTmZXuMOhp7YlIdomeEnYsTR3ozvEbz4uV2lpghZRoUq+ +wW5Q7dTxW9fPBDdHP9xzt2cnSB88VaX+wAT/tlsPhvQ7w/n5vXpn6sn4ZOZK +m+fOwJ1kSX99ZIIZafePa1Q6w2A5X372UxN0yqC+UOedoZorOk34tQmGzhjJ +1ho5g0tyRPD0ZxM0u7bHsi7FCdJqQvTqlrBRYF7wQo3zdhBd7EPbbGej6Nab +7uWLtkKueVjomDO5r3xUV2DaEbTDzptf3MlG+8WLXA70O8LmMU5H9y42PszT +PuBe4wixnVOznj5srDzp6LnE1xF+5oSbhUaysUe+cMyjcwu8Nb74Oq+QjYU3 +gneU3XGAfUdyr1oVszFhKqn5V7YDTBeXeQ1x2LjwpK2KfYIDCDO7Z7TK2bgx +3iR1lY8DbBSQlbn3gI3XUgXH45QcoLY9b8/rDjY+DmwMX5hpD9ZClWpB3Wys +v2cubXDOHrrXP52WeMdGK2/GgqDj9jBZ/T3O7SMbjyUPRsntsAe1a5q3/xtk +o75wFEpK2kPtW9Ogs8NsvPwyfXmNAJlv5RbQGGPjWbXINwd+2sHeU0faAqfY ++LLbUW2yyw4mH8Smi/9kY9d9udznjXYQNZfqWT3Hxrqjft/vVtjBct18Vdc/ +bIzqNZvNv2kHmQerp+bn2Wiun95QlGoH/wM9Ds/i + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHAZopKKzNM910VlnjPc1jK8ipIhFcpQkuqVoUSUDCFpIAkp +Q5IyxD3JLBUVSUWZGijS8MqYKRp8+/vrPL/n7Geffc5ee611qN1+Dl7cXFxc +yxZwcf3/Ot379BHrTO46yY+C3U2BpuvaMyVCTLuj4KhmJAt5GICiL3dLdCdB +5m+uIGkeTQiyK+ji6c4BxtGEYW4ehBUj4kmzXXfAJuzJQA+3HXyo3ew32VUP +iqt17fZxe4Ala7BnvOsV2D9463mNyx9muwwujXX1w4HH75PlJsKhwfxmblvO +BKiZZdr0RSeCzIeqL7tV/4DbsF/ZCUiDlT7uBfzmPNhXSy9KC8+CJC3Lms1b +BTB7t5ljd8B1eJOm+WB8+VJMsVE7p5+dB2dyw19yS67A1xMtpS9r80E8+dPp +ixkiqPFkQqnwQBFIqJRF/8wjfpTFO3S4CKTqY8NdOSIYqzC+STmsCOTGVh9R +bhDBWf5OiXMJRaC4yd+j5psIzmltChO9WwQ6vH/0P+msxNah+WMSv4vANlBs +QLt5Jb7vam/6cOo2nHK0WvdqWhSDRLd7sM8Xg9TdF1LcC8SQFoPkqpRiKBZx +nNFaIoasYtkx9axi6HzlxrkgL4bMGzIyfJxiYNkHMu03iKGQq6mqe1sx1Ntk +LWy9LIaKoz6+T4VL4I/l1IvnJuLYIjojEJBYAol5oYV/LMVRmvn91vK0EmAt +5IpTsxfHqzPJTvlZJbDp8WLTc17iyBtUMPC4uATSzRmlm86L44VdLVmFLSWw +FjemPvsgjrEtL5OTeThw2PCa+9MoCVx/Ujwv0JgD1tlCkxvPSuCWR5evX1nH +ASb/8bgXlyRwqWhf8n1TDrS2b6Nf35LA1q8bHP6u54C6vyBP7wsJ7OkM1tvu +yIFvecF5P6Qk0WrT2rggHw7sXLl5WLpUEl3THL4eSOeAzrGayMxaSfwvYVRP +M4MDi/tXiVFPJDFTZl/QjywOVJXwgNIbSbxSPtRy8AYHxDZWJWrOS6JB5PFW +4JDnR7J0/9kohWkpofr2jzlgMToX6vtJClNUnr5ePcyBkA3Jax4OSWH9fJtv +5CgHiq+pvRWZlsLfnr3SneMckHD0MKwSkMY/0X5FQdMcGKp8PMOjLo1OTdkF +yfMcuBiVGHj5qDR22O80sFhBQ7+oku+jpTJo3diVcUibBnG/+7Li4jL4N+7d +PR9dGjY1OT3fz5DBmX96Jj31aSgPPaO6TEcGN/aX3LIyoiH+w9igs5MMxron +qf0wpUE7v8Z7NEcGWwv/662woyHSxH6X1FpZrJAayRD3oWGDW+YPAzNZbBNw +EO8+SINQxPeTWzfJ4oFqa7VLfjRcbYjJS/SQxbmQeE2+wzRUWld/X3haFld1 ++GbVhtAw5qQQNPFGFtVLLx07HUtDRag//4oBWdwWsmVUJI6GE1fvpamPyOKV +dPeFV07TIPhxe81+bjlsuKrHyDpLg7L3Wa6Pa+TQ8Un7svAkGtyOTMW3HJPD +Z/0S1pkZNCimmskMxshha8pplYlMmny/hNv8iXJoeWhRpUU2DaG/V7ea5cqh +tIx1e08ODZdOuolWtZDxexJWfbtJQ8uFxqwbsvLYvONAlStNw8XSlVoNyvLo +uEvhbNgdGlw6dtV/1JLHdauKhNNLafgm8XtA2lIeY1zD2U/LaODJ1lyT5CuP +BsrXpbiqaTAqvnz3xH15fHyhJqT1IQ0WXS/+jDTJo79rkUpRPQ2buXjXu7+S +x8i3gvwxDTR4Ovi+gc/y6PlV00T9MQ2Wx6jwCD4GyvRVFrs10fBsWe31tYsZ +aNXWUa3wlAa73G1NY0IMVG2+OvmZeMfzMyt2STCQy2nLxK5nNPjLT183VWFg +wf5S1bUvaJgqTWya1WCg5Tqfsi/EoRtUhmldBn5W0fdPeklDTICHPnMdAw/M +sE/0tdKQ3tDcxG3PwMVMAUG31zQ88s4abghiYGuPuH9bFw1Wvw2Fjx9jYLZO +r9uWbhpeJLbr60YwUGhg4elXxG+qFkXknmbgQcnvF5re0DCyJFA45ioDk5TF +Tl18R8PhbCED9jXyPn8W7J4n/qmbv2PqBgM5bWvD9r0n39OtN9erhIFKugLB +2j00SHA2GFjWM3CVTdfpG700ZFh82vH3CQMvTd0/+ouY+SYsovwZA1M+8N3e +/IEGNe7Sp0odDNzWtO7bEPGdFJuR3jdk/Xwnxgw+0rBW5Ztwai8DTy8oxQhi +M0fZnfzfGMiTl1Ej0EdD47eKiPtDZL3puV83EG8Kc7gRPM5AzQFzt1ji7Xmn +Rr7OMZB7fFJtlvi9EVMke56Bf+d3xqn307D7Za2BEy+FdXOLNHcR+/wcj2ha +SuE76S/764iNAvaKfRGmcPEj64AhYoHBt4U8EhTmFjnZiX+ioXO3rSklS+F6 +3lF+IL7xrqFzHZNCs7bhNE/iQMe1PjuVKewf0+ONITZ7XrQgVJXML5ZvfZ14 +uSWVmqpFYUHL6oN1xL11l1TL9Cn87n/Fp5O4yGBx/StjCh/o91t9Jw7lnNg+ +hhTqKH7i+0O8YfXE0FJLCk+LRV9bMkCDWI53lMpGCvMqCmXFiQek3otb2VEY +fMr0mDzxnYt2t/dupVC3U62GRRwh+Ngs2oXCnkfOvUrEtjGG3dfcKYy2KPms +SCz39/bB+3soLBaVfEURDwUxeXr2U1jaGJUrRVw9mpI250uhRGW363LiuH1L +1CUCKRxeITDPTbytL7xBL4TCNc//xv0g62W5TDptOUEhf3Hh717iH6/2jfif +pNDD4q9LE/GDjT0nz8eR+9+/5BYTn39kL1l0jkKqcdu7C8Q72U+KnyZReK4R +5gOI15QbWXxNpVAtN3mFLfGseskb3gwKbXo2iKwmbrqp4MfMofBXtR0fF3EK +I40Xb1K4a9O1b6/JfmoLR2ocoylMz5uMPUTMdWbqUVo5hb7/fjZnE7/gOeBS +XkNh2du5KV7if6ccYsYfk/HyR9lnSDwZ+TZKLXtGodTy9nYrYoGvxhzVVgqP +fzDx4iPO7Wa9835L4USO4pHDJH4P2V/2j/lA4fuarGlFYmxeuvD6AIULfksd +6SDx31Mzrdk7QqFMwIqDKsRiWU2xjjxM5F2xzKuUnK8BcbbMIQEmeizJHLQh +vpNI0wlLmahhb3TkMzmPtlHp75vFmdhwuzhjCXGcl4+2qSoT/wkwctJ9S/aj +92OjmxYT7wf3MyvIeWdt3+p6XJ+JAuav5vSJH2xYF1eBTDR4X9qpRvLDrMry +XrWtTFwr3bbjZwcN0xlSkTouTGy+Xe6zl3hymSLL0J2Jv2UcitvaSf6YMDxg +sZ+JBTc4jVkkH/XXeE67hDGRS9nFT6qNhuaNFUJxN5g4+qUzKJ7kv8Z7D+lz +BUxc+E5qaUszyV8aLY4XS5h4uTdwYDFxnUhfemYVE91d01wiSH69826xctlz +Mp/lr0hrkn/T/3WD/ikm3vZYXLCzjobUnn39X+fI+8XqtB66R0Oy7eGY4Xkm +Umb/boitJfGkE/fs5yIFnA5x0rlB8n/UL3r7MjkFLHgVu6KhnOzvGT5/E0sF +/O96/6fwYhpMCouyU1IU0G2o+RrfVRreMQqz/rmigPPXZ3J70sl5TMnPnMxS +wCbbfYdKL5N6GZl31SFfAVX+e+bnlEriyyk7TahWAY1GioTiSD1czZecGNtH +bBJdfILUUzH3YxFBqixcyP9RtPUQDWXtIeGKWix8OOmr6xlAg6P10RPteiy8 +dOuK8SSp30l6R45rAwtpdgn/clLflwr6HR2xZ+HfP1O0ujcNvFW7/fcGs9B4 +H7160Q4axoWtPbbVs7D57JZ4Q9I/dPswWw80stB7Z4GqN5D9fjIH4S0s/BLi +dyKJTUNiaKH8rU4y/uoevX5DGjT7BT/MDrKw/8jwyr2kf/GlX7pmiCiij6By +DZcCDYO2W3cM7FFEc1W16nhuEp9nPbYd4lfCArcEeeMaDvgOqjI1BZWwictP +n7+KAzPrZ4eHlyvh+9TdSW3lpH/jSYrZL6WEP8K/yO66wwHNkIa7HmpKOFsg +lPNvPgfCvJREbLco4RVmhaNGKunn1g29VMlSwuu8bImQAA5YjQZbfdZXRiox +WMiRIv2Yp8Dhu+GrkDdFY+z+g2LyPyHOfap+NT4PuBcRLX0bhJ8rneeMrsHy +pcwm/qBCkIkrsdPXV8V7Ez/681PzIU3FcLmItxpSq33Ktj+/Cc1SpnoTF9Tx +lbOujpVAHhjJ1CdqdGrgdLL8sU75XBDiyQncFaWJ9R0/jNo9ckAuUt7EWUkL +vXycQvPOZMMixZ3lDo1amJBV+U9QXgaosyVLgl210UXo1rbUK+lwqFe4wZpL +Bxd5WMCnqFQYnTi71SpNBw9vtZ0UfJ0M6zWepFup6eKSSr4HQZ5JUDdh/Gvm +hS7OvGxIyBtLAF9V7bdtXnpocP3i1fjuM8Ae2dPuvEgfXRo49l5vT8E/LAmb +pTn6yH2KNhmKjYZVEfFH6w0MMD4vr7w8KxLWeBneV3xrgPp/nmnplYaBV92+ +6LsBazHx2c/0DtUQuJ/dvmdc1BCDHncEKAwFwuSt+RmNCkOUnoll9G0PAE/F +wkXpNkY47L1lqnbaB8bXXNS/M2aEHTZbDkqXeENl7q++qThjDGv5tO9WjCfo +mwfOWJ8xxuE3yj4lQZ5Q1jckmH3OGFmKdR4PvD3hjlyvgXWSMTb/GBXgsvaE +orQH5zKvGOPneOWGKSFPyD4bY7i+2BiznZQcytN3w+nAZRfSXhvjx9X7n3pX +7QIXCwU0ljNB74ddM/7CHvCnXUCogWGCB6XZ8VW8HpDtNfLOWsEEueFRvsSI +O3yJrQp2WWWCS9IuTmZXuMOhp7YlIdomeEnYsTR3ozvEbz4uV2lpghZRoUq+ +wW5Q7dTxW9fPBDdHP9xzt2cnSB88VaX+wAT/tlsPhvQ7w/n5vXpn6sn4ZOZK +m+fOwJ1kSX99ZIIZafePa1Q6w2A5X372UxN0yqC+UOedoZorOk34tQmGzhjJ +1ho5g0tyRPD0ZxM0u7bHsi7FCdJqQvTqlrBRYF7wQo3zdhBd7EPbbGej6Nab +7uWLtkKueVjomDO5r3xUV2DaEbTDzptf3MlG+8WLXA70O8LmMU5H9y42PszT +PuBe4wixnVOznj5srDzp6LnE1xF+5oSbhUaysUe+cMyjcwu8Nb74Oq+QjYU3 +gneU3XGAfUdyr1oVszFhKqn5V7YDTBeXeQ1x2LjwpK2KfYIDCDO7Z7TK2bgx +3iR1lY8DbBSQlbn3gI3XUgXH45QcoLY9b8/rDjY+DmwMX5hpD9ZClWpB3Wys +v2cubXDOHrrXP52WeMdGK2/GgqDj9jBZ/T3O7SMbjyUPRsntsAe1a5q3/xtk +o75wFEpK2kPtW9Ogs8NsvPwyfXmNAJlv5RbQGGPjWbXINwd+2sHeU0faAqfY ++LLbUW2yyw4mH8Smi/9kY9d9udznjXYQNZfqWT3Hxrqjft/vVtjBct18Vdc/ +bIzqNZvNv2kHmQerp+bn2Wiun95QlGoH/wM9Ds/i + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06988757065279878}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06988757065279878}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHAZopKKzNM910VlnjPc1jK8ipIhFcpQkuqVoUSUDCFpIAkp +Q5IyxD3JLBUVSUWZGijS8MqYKRp8+/vrPL/n7Geffc5ee611qN1+Dl7cXFxc +yxZwcf3/Ot379BHrTO46yY+C3U2BpuvaMyVCTLuj4KhmJAt5GICiL3dLdCdB +5m+uIGkeTQiyK+ji6c4BxtGEYW4ehBUj4kmzXXfAJuzJQA+3HXyo3ew32VUP +iqt17fZxe4Ala7BnvOsV2D9463mNyx9muwwujXX1w4HH75PlJsKhwfxmblvO +BKiZZdr0RSeCzIeqL7tV/4DbsF/ZCUiDlT7uBfzmPNhXSy9KC8+CJC3Lms1b +BTB7t5ljd8B1eJOm+WB8+VJMsVE7p5+dB2dyw19yS67A1xMtpS9r80E8+dPp +ixkiqPFkQqnwQBFIqJRF/8wjfpTFO3S4CKTqY8NdOSIYqzC+STmsCOTGVh9R +bhDBWf5OiXMJRaC4yd+j5psIzmltChO9WwQ6vH/0P+msxNah+WMSv4vANlBs +QLt5Jb7vam/6cOo2nHK0WvdqWhSDRLd7sM8Xg9TdF1LcC8SQFoPkqpRiKBZx +nNFaIoasYtkx9axi6HzlxrkgL4bMGzIyfJxiYNkHMu03iKGQq6mqe1sx1Ntk +LWy9LIaKoz6+T4VL4I/l1IvnJuLYIjojEJBYAol5oYV/LMVRmvn91vK0EmAt +5IpTsxfHqzPJTvlZJbDp8WLTc17iyBtUMPC4uATSzRmlm86L44VdLVmFLSWw +FjemPvsgjrEtL5OTeThw2PCa+9MoCVx/Ujwv0JgD1tlCkxvPSuCWR5evX1nH +ASb/8bgXlyRwqWhf8n1TDrS2b6Nf35LA1q8bHP6u54C6vyBP7wsJ7OkM1tvu +yIFvecF5P6Qk0WrT2rggHw7sXLl5WLpUEl3THL4eSOeAzrGayMxaSfwvYVRP +M4MDi/tXiVFPJDFTZl/QjywOVJXwgNIbSbxSPtRy8AYHxDZWJWrOS6JB5PFW +4JDnR7J0/9kohWkpofr2jzlgMToX6vtJClNUnr5ePcyBkA3Jax4OSWH9fJtv +5CgHiq+pvRWZlsLfnr3SneMckHD0MKwSkMY/0X5FQdMcGKp8PMOjLo1OTdkF +yfMcuBiVGHj5qDR22O80sFhBQ7+oku+jpTJo3diVcUibBnG/+7Li4jL4N+7d +PR9dGjY1OT3fz5DBmX96Jj31aSgPPaO6TEcGN/aX3LIyoiH+w9igs5MMxron +qf0wpUE7v8Z7NEcGWwv/662woyHSxH6X1FpZrJAayRD3oWGDW+YPAzNZbBNw +EO8+SINQxPeTWzfJ4oFqa7VLfjRcbYjJS/SQxbmQeE2+wzRUWld/X3haFld1 ++GbVhtAw5qQQNPFGFtVLLx07HUtDRag//4oBWdwWsmVUJI6GE1fvpamPyOKV +dPeFV07TIPhxe81+bjlsuKrHyDpLg7L3Wa6Pa+TQ8Un7svAkGtyOTMW3HJPD +Z/0S1pkZNCimmskMxshha8pplYlMmny/hNv8iXJoeWhRpUU2DaG/V7ea5cqh +tIx1e08ODZdOuolWtZDxexJWfbtJQ8uFxqwbsvLYvONAlStNw8XSlVoNyvLo +uEvhbNgdGlw6dtV/1JLHdauKhNNLafgm8XtA2lIeY1zD2U/LaODJ1lyT5CuP +BsrXpbiqaTAqvnz3xH15fHyhJqT1IQ0WXS/+jDTJo79rkUpRPQ2buXjXu7+S +x8i3gvwxDTR4Ovi+gc/y6PlV00T9MQ2Wx6jwCD4GyvRVFrs10fBsWe31tYsZ +aNXWUa3wlAa73G1NY0IMVG2+OvmZeMfzMyt2STCQy2nLxK5nNPjLT183VWFg +wf5S1bUvaJgqTWya1WCg5Tqfsi/EoRtUhmldBn5W0fdPeklDTICHPnMdAw/M +sE/0tdKQ3tDcxG3PwMVMAUG31zQ88s4abghiYGuPuH9bFw1Wvw2Fjx9jYLZO +r9uWbhpeJLbr60YwUGhg4elXxG+qFkXknmbgQcnvF5re0DCyJFA45ioDk5TF +Tl18R8PhbCED9jXyPn8W7J4n/qmbv2PqBgM5bWvD9r0n39OtN9erhIFKugLB +2j00SHA2GFjWM3CVTdfpG700ZFh82vH3CQMvTd0/+ouY+SYsovwZA1M+8N3e +/IEGNe7Sp0odDNzWtO7bEPGdFJuR3jdk/Xwnxgw+0rBW5Ztwai8DTy8oxQhi +M0fZnfzfGMiTl1Ej0EdD47eKiPtDZL3puV83EG8Kc7gRPM5AzQFzt1ji7Xmn +Rr7OMZB7fFJtlvi9EVMke56Bf+d3xqn307D7Za2BEy+FdXOLNHcR+/wcj2ha +SuE76S/764iNAvaKfRGmcPEj64AhYoHBt4U8EhTmFjnZiX+ioXO3rSklS+F6 +3lF+IL7xrqFzHZNCs7bhNE/iQMe1PjuVKewf0+ONITZ7XrQgVJXML5ZvfZ14 +uSWVmqpFYUHL6oN1xL11l1TL9Cn87n/Fp5O4yGBx/StjCh/o91t9Jw7lnNg+ +hhTqKH7i+0O8YfXE0FJLCk+LRV9bMkCDWI53lMpGCvMqCmXFiQek3otb2VEY +fMr0mDzxnYt2t/dupVC3U62GRRwh+Ngs2oXCnkfOvUrEtjGG3dfcKYy2KPms +SCz39/bB+3soLBaVfEURDwUxeXr2U1jaGJUrRVw9mpI250uhRGW363LiuH1L +1CUCKRxeITDPTbytL7xBL4TCNc//xv0g62W5TDptOUEhf3Hh717iH6/2jfif +pNDD4q9LE/GDjT0nz8eR+9+/5BYTn39kL1l0jkKqcdu7C8Q72U+KnyZReK4R +5gOI15QbWXxNpVAtN3mFLfGseskb3gwKbXo2iKwmbrqp4MfMofBXtR0fF3EK +I40Xb1K4a9O1b6/JfmoLR2ocoylMz5uMPUTMdWbqUVo5hb7/fjZnE7/gOeBS +XkNh2du5KV7if6ccYsYfk/HyR9lnSDwZ+TZKLXtGodTy9nYrYoGvxhzVVgqP +fzDx4iPO7Wa9835L4USO4pHDJH4P2V/2j/lA4fuarGlFYmxeuvD6AIULfksd +6SDx31Mzrdk7QqFMwIqDKsRiWU2xjjxM5F2xzKuUnK8BcbbMIQEmeizJHLQh +vpNI0wlLmahhb3TkMzmPtlHp75vFmdhwuzhjCXGcl4+2qSoT/wkwctJ9S/aj +92OjmxYT7wf3MyvIeWdt3+p6XJ+JAuav5vSJH2xYF1eBTDR4X9qpRvLDrMry +XrWtTFwr3bbjZwcN0xlSkTouTGy+Xe6zl3hymSLL0J2Jv2UcitvaSf6YMDxg +sZ+JBTc4jVkkH/XXeE67hDGRS9nFT6qNhuaNFUJxN5g4+qUzKJ7kv8Z7D+lz +BUxc+E5qaUszyV8aLY4XS5h4uTdwYDFxnUhfemYVE91d01wiSH69826xctlz +Mp/lr0hrkn/T/3WD/ikm3vZYXLCzjobUnn39X+fI+8XqtB66R0Oy7eGY4Xkm +Umb/boitJfGkE/fs5yIFnA5x0rlB8n/UL3r7MjkFLHgVu6KhnOzvGT5/E0sF +/O96/6fwYhpMCouyU1IU0G2o+RrfVRreMQqz/rmigPPXZ3J70sl5TMnPnMxS +wCbbfYdKL5N6GZl31SFfAVX+e+bnlEriyyk7TahWAY1GioTiSD1czZecGNtH +bBJdfILUUzH3YxFBqixcyP9RtPUQDWXtIeGKWix8OOmr6xlAg6P10RPteiy8 +dOuK8SSp30l6R45rAwtpdgn/clLflwr6HR2xZ+HfP1O0ujcNvFW7/fcGs9B4 +H7160Q4axoWtPbbVs7D57JZ4Q9I/dPswWw80stB7Z4GqN5D9fjIH4S0s/BLi +dyKJTUNiaKH8rU4y/uoevX5DGjT7BT/MDrKw/8jwyr2kf/GlX7pmiCiij6By +DZcCDYO2W3cM7FFEc1W16nhuEp9nPbYd4lfCArcEeeMaDvgOqjI1BZWwictP +n7+KAzPrZ4eHlyvh+9TdSW3lpH/jSYrZL6WEP8K/yO66wwHNkIa7HmpKOFsg +lPNvPgfCvJREbLco4RVmhaNGKunn1g29VMlSwuu8bImQAA5YjQZbfdZXRiox +WMiRIv2Yp8Dhu+GrkDdFY+z+g2LyPyHOfap+NT4PuBcRLX0bhJ8rneeMrsHy +pcwm/qBCkIkrsdPXV8V7Ez/681PzIU3FcLmItxpSq33Ktj+/Cc1SpnoTF9Tx +lbOujpVAHhjJ1CdqdGrgdLL8sU75XBDiyQncFaWJ9R0/jNo9ckAuUt7EWUkL +vXycQvPOZMMixZ3lDo1amJBV+U9QXgaosyVLgl210UXo1rbUK+lwqFe4wZpL +Bxd5WMCnqFQYnTi71SpNBw9vtZ0UfJ0M6zWepFup6eKSSr4HQZ5JUDdh/Gvm +hS7OvGxIyBtLAF9V7bdtXnpocP3i1fjuM8Ae2dPuvEgfXRo49l5vT8E/LAmb +pTn6yH2KNhmKjYZVEfFH6w0MMD4vr7w8KxLWeBneV3xrgPp/nmnplYaBV92+ +6LsBazHx2c/0DtUQuJ/dvmdc1BCDHncEKAwFwuSt+RmNCkOUnoll9G0PAE/F +wkXpNkY47L1lqnbaB8bXXNS/M2aEHTZbDkqXeENl7q++qThjDGv5tO9WjCfo +mwfOWJ8xxuE3yj4lQZ5Q1jckmH3OGFmKdR4PvD3hjlyvgXWSMTb/GBXgsvaE +orQH5zKvGOPneOWGKSFPyD4bY7i+2BiznZQcytN3w+nAZRfSXhvjx9X7n3pX +7QIXCwU0ljNB74ddM/7CHvCnXUCogWGCB6XZ8VW8HpDtNfLOWsEEueFRvsSI +O3yJrQp2WWWCS9IuTmZXuMOhp7YlIdomeEnYsTR3ozvEbz4uV2lpghZRoUq+ +wW5Q7dTxW9fPBDdHP9xzt2cnSB88VaX+wAT/tlsPhvQ7w/n5vXpn6sn4ZOZK +m+fOwJ1kSX99ZIIZafePa1Q6w2A5X372UxN0yqC+UOedoZorOk34tQmGzhjJ +1ho5g0tyRPD0ZxM0u7bHsi7FCdJqQvTqlrBRYF7wQo3zdhBd7EPbbGej6Nab +7uWLtkKueVjomDO5r3xUV2DaEbTDzptf3MlG+8WLXA70O8LmMU5H9y42PszT +PuBe4wixnVOznj5srDzp6LnE1xF+5oSbhUaysUe+cMyjcwu8Nb74Oq+QjYU3 +gneU3XGAfUdyr1oVszFhKqn5V7YDTBeXeQ1x2LjwpK2KfYIDCDO7Z7TK2bgx +3iR1lY8DbBSQlbn3gI3XUgXH45QcoLY9b8/rDjY+DmwMX5hpD9ZClWpB3Wys +v2cubXDOHrrXP52WeMdGK2/GgqDj9jBZ/T3O7SMbjyUPRsntsAe1a5q3/xtk +o75wFEpK2kPtW9Ogs8NsvPwyfXmNAJlv5RbQGGPjWbXINwd+2sHeU0faAqfY ++LLbUW2yyw4mH8Smi/9kY9d9udznjXYQNZfqWT3Hxrqjft/vVtjBct18Vdc/ +bIzqNZvNv2kHmQerp+bn2Wiun95QlGoH/wM9Ds/i + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06988757065279878}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06988757065279878}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993826795045621*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"cef2e608-3735-4761-a47f-4333ebb86a1d"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ -5e6c7b4b5678"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.004388"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.013039"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.021317"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.028996"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.035881"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.041813"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.046685"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.050429"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.053035"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.054525"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.054971"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.054465"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.053131"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.051096"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.045494"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.042194"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.038723"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.03519"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.031681"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.028272"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.025018"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.021962"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.019131"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.016543"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.014202"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.01211"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.010256"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.00863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.007216"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.005996"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993821782973521*^9}, + Background->RGBColor[0.4, 0.6, 1, 0.33], + CellLabel->"In[96]:=",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.054971}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993826795253991*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"97919401-86d9-409a-8117-6a78da9200ae"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ -3f60fcfd9a79"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VV0XAHAZopKKzNM910VlnjPc1jK8ipIhFcpQkuqVoUSUDCFpIAkp +Q5IyxD3JLBUVSUWZGijS8MqYKRp8+/vrPL/n7Geffc5ee611qN1+Dl7cXFxc +yxZwcf3/Ot379BHrTO46yY+C3U2BpuvaMyVCTLuj4KhmJAt5GICiL3dLdCdB +5m+uIGkeTQiyK+ji6c4BxtGEYW4ehBUj4kmzXXfAJuzJQA+3HXyo3ew32VUP +iqt17fZxe4Ala7BnvOsV2D9463mNyx9muwwujXX1w4HH75PlJsKhwfxmblvO +BKiZZdr0RSeCzIeqL7tV/4DbsF/ZCUiDlT7uBfzmPNhXSy9KC8+CJC3Lms1b +BTB7t5ljd8B1eJOm+WB8+VJMsVE7p5+dB2dyw19yS67A1xMtpS9r80E8+dPp +ixkiqPFkQqnwQBFIqJRF/8wjfpTFO3S4CKTqY8NdOSIYqzC+STmsCOTGVh9R +bhDBWf5OiXMJRaC4yd+j5psIzmltChO9WwQ6vH/0P+msxNah+WMSv4vANlBs +QLt5Jb7vam/6cOo2nHK0WvdqWhSDRLd7sM8Xg9TdF1LcC8SQFoPkqpRiKBZx +nNFaIoasYtkx9axi6HzlxrkgL4bMGzIyfJxiYNkHMu03iKGQq6mqe1sx1Ntk +LWy9LIaKoz6+T4VL4I/l1IvnJuLYIjojEJBYAol5oYV/LMVRmvn91vK0EmAt +5IpTsxfHqzPJTvlZJbDp8WLTc17iyBtUMPC4uATSzRmlm86L44VdLVmFLSWw +FjemPvsgjrEtL5OTeThw2PCa+9MoCVx/Ujwv0JgD1tlCkxvPSuCWR5evX1nH +ASb/8bgXlyRwqWhf8n1TDrS2b6Nf35LA1q8bHP6u54C6vyBP7wsJ7OkM1tvu +yIFvecF5P6Qk0WrT2rggHw7sXLl5WLpUEl3THL4eSOeAzrGayMxaSfwvYVRP +M4MDi/tXiVFPJDFTZl/QjywOVJXwgNIbSbxSPtRy8AYHxDZWJWrOS6JB5PFW +4JDnR7J0/9kohWkpofr2jzlgMToX6vtJClNUnr5ePcyBkA3Jax4OSWH9fJtv +5CgHiq+pvRWZlsLfnr3SneMckHD0MKwSkMY/0X5FQdMcGKp8PMOjLo1OTdkF +yfMcuBiVGHj5qDR22O80sFhBQ7+oku+jpTJo3diVcUibBnG/+7Li4jL4N+7d +PR9dGjY1OT3fz5DBmX96Jj31aSgPPaO6TEcGN/aX3LIyoiH+w9igs5MMxron +qf0wpUE7v8Z7NEcGWwv/662woyHSxH6X1FpZrJAayRD3oWGDW+YPAzNZbBNw +EO8+SINQxPeTWzfJ4oFqa7VLfjRcbYjJS/SQxbmQeE2+wzRUWld/X3haFld1 ++GbVhtAw5qQQNPFGFtVLLx07HUtDRag//4oBWdwWsmVUJI6GE1fvpamPyOKV +dPeFV07TIPhxe81+bjlsuKrHyDpLg7L3Wa6Pa+TQ8Un7svAkGtyOTMW3HJPD +Z/0S1pkZNCimmskMxshha8pplYlMmny/hNv8iXJoeWhRpUU2DaG/V7ea5cqh +tIx1e08ODZdOuolWtZDxexJWfbtJQ8uFxqwbsvLYvONAlStNw8XSlVoNyvLo +uEvhbNgdGlw6dtV/1JLHdauKhNNLafgm8XtA2lIeY1zD2U/LaODJ1lyT5CuP +BsrXpbiqaTAqvnz3xH15fHyhJqT1IQ0WXS/+jDTJo79rkUpRPQ2buXjXu7+S +x8i3gvwxDTR4Ovi+gc/y6PlV00T9MQ2Wx6jwCD4GyvRVFrs10fBsWe31tYsZ +aNXWUa3wlAa73G1NY0IMVG2+OvmZeMfzMyt2STCQy2nLxK5nNPjLT183VWFg +wf5S1bUvaJgqTWya1WCg5Tqfsi/EoRtUhmldBn5W0fdPeklDTICHPnMdAw/M +sE/0tdKQ3tDcxG3PwMVMAUG31zQ88s4abghiYGuPuH9bFw1Wvw2Fjx9jYLZO +r9uWbhpeJLbr60YwUGhg4elXxG+qFkXknmbgQcnvF5re0DCyJFA45ioDk5TF +Tl18R8PhbCED9jXyPn8W7J4n/qmbv2PqBgM5bWvD9r0n39OtN9erhIFKugLB +2j00SHA2GFjWM3CVTdfpG700ZFh82vH3CQMvTd0/+ouY+SYsovwZA1M+8N3e +/IEGNe7Sp0odDNzWtO7bEPGdFJuR3jdk/Xwnxgw+0rBW5Ztwai8DTy8oxQhi +M0fZnfzfGMiTl1Ej0EdD47eKiPtDZL3puV83EG8Kc7gRPM5AzQFzt1ji7Xmn +Rr7OMZB7fFJtlvi9EVMke56Bf+d3xqn307D7Za2BEy+FdXOLNHcR+/wcj2ha +SuE76S/764iNAvaKfRGmcPEj64AhYoHBt4U8EhTmFjnZiX+ioXO3rSklS+F6 +3lF+IL7xrqFzHZNCs7bhNE/iQMe1PjuVKewf0+ONITZ7XrQgVJXML5ZvfZ14 +uSWVmqpFYUHL6oN1xL11l1TL9Cn87n/Fp5O4yGBx/StjCh/o91t9Jw7lnNg+ +hhTqKH7i+0O8YfXE0FJLCk+LRV9bMkCDWI53lMpGCvMqCmXFiQek3otb2VEY +fMr0mDzxnYt2t/dupVC3U62GRRwh+Ngs2oXCnkfOvUrEtjGG3dfcKYy2KPms +SCz39/bB+3soLBaVfEURDwUxeXr2U1jaGJUrRVw9mpI250uhRGW363LiuH1L +1CUCKRxeITDPTbytL7xBL4TCNc//xv0g62W5TDptOUEhf3Hh717iH6/2jfif +pNDD4q9LE/GDjT0nz8eR+9+/5BYTn39kL1l0jkKqcdu7C8Q72U+KnyZReK4R +5gOI15QbWXxNpVAtN3mFLfGseskb3gwKbXo2iKwmbrqp4MfMofBXtR0fF3EK +I40Xb1K4a9O1b6/JfmoLR2ocoylMz5uMPUTMdWbqUVo5hb7/fjZnE7/gOeBS +XkNh2du5KV7if6ccYsYfk/HyR9lnSDwZ+TZKLXtGodTy9nYrYoGvxhzVVgqP +fzDx4iPO7Wa9835L4USO4pHDJH4P2V/2j/lA4fuarGlFYmxeuvD6AIULfksd +6SDx31Mzrdk7QqFMwIqDKsRiWU2xjjxM5F2xzKuUnK8BcbbMIQEmeizJHLQh +vpNI0wlLmahhb3TkMzmPtlHp75vFmdhwuzhjCXGcl4+2qSoT/wkwctJ9S/aj +92OjmxYT7wf3MyvIeWdt3+p6XJ+JAuav5vSJH2xYF1eBTDR4X9qpRvLDrMry +XrWtTFwr3bbjZwcN0xlSkTouTGy+Xe6zl3hymSLL0J2Jv2UcitvaSf6YMDxg +sZ+JBTc4jVkkH/XXeE67hDGRS9nFT6qNhuaNFUJxN5g4+qUzKJ7kv8Z7D+lz +BUxc+E5qaUszyV8aLY4XS5h4uTdwYDFxnUhfemYVE91d01wiSH69826xctlz +Mp/lr0hrkn/T/3WD/ikm3vZYXLCzjobUnn39X+fI+8XqtB66R0Oy7eGY4Xkm +Umb/boitJfGkE/fs5yIFnA5x0rlB8n/UL3r7MjkFLHgVu6KhnOzvGT5/E0sF +/O96/6fwYhpMCouyU1IU0G2o+RrfVRreMQqz/rmigPPXZ3J70sl5TMnPnMxS +wCbbfYdKL5N6GZl31SFfAVX+e+bnlEriyyk7TahWAY1GioTiSD1czZecGNtH +bBJdfILUUzH3YxFBqixcyP9RtPUQDWXtIeGKWix8OOmr6xlAg6P10RPteiy8 +dOuK8SSp30l6R45rAwtpdgn/clLflwr6HR2xZ+HfP1O0ujcNvFW7/fcGs9B4 +H7160Q4axoWtPbbVs7D57JZ4Q9I/dPswWw80stB7Z4GqN5D9fjIH4S0s/BLi +dyKJTUNiaKH8rU4y/uoevX5DGjT7BT/MDrKw/8jwyr2kf/GlX7pmiCiij6By +DZcCDYO2W3cM7FFEc1W16nhuEp9nPbYd4lfCArcEeeMaDvgOqjI1BZWwictP +n7+KAzPrZ4eHlyvh+9TdSW3lpH/jSYrZL6WEP8K/yO66wwHNkIa7HmpKOFsg +lPNvPgfCvJREbLco4RVmhaNGKunn1g29VMlSwuu8bImQAA5YjQZbfdZXRiox +WMiRIv2Yp8Dhu+GrkDdFY+z+g2LyPyHOfap+NT4PuBcRLX0bhJ8rneeMrsHy +pcwm/qBCkIkrsdPXV8V7Ez/681PzIU3FcLmItxpSq33Ktj+/Cc1SpnoTF9Tx +lbOujpVAHhjJ1CdqdGrgdLL8sU75XBDiyQncFaWJ9R0/jNo9ckAuUt7EWUkL +vXycQvPOZMMixZ3lDo1amJBV+U9QXgaosyVLgl210UXo1rbUK+lwqFe4wZpL +Bxd5WMCnqFQYnTi71SpNBw9vtZ0UfJ0M6zWepFup6eKSSr4HQZ5JUDdh/Gvm +hS7OvGxIyBtLAF9V7bdtXnpocP3i1fjuM8Ae2dPuvEgfXRo49l5vT8E/LAmb +pTn6yH2KNhmKjYZVEfFH6w0MMD4vr7w8KxLWeBneV3xrgPp/nmnplYaBV92+ +6LsBazHx2c/0DtUQuJ/dvmdc1BCDHncEKAwFwuSt+RmNCkOUnoll9G0PAE/F +wkXpNkY47L1lqnbaB8bXXNS/M2aEHTZbDkqXeENl7q++qThjDGv5tO9WjCfo +mwfOWJ8xxuE3yj4lQZ5Q1jckmH3OGFmKdR4PvD3hjlyvgXWSMTb/GBXgsvaE +orQH5zKvGOPneOWGKSFPyD4bY7i+2BiznZQcytN3w+nAZRfSXhvjx9X7n3pX +7QIXCwU0ljNB74ddM/7CHvCnXUCogWGCB6XZ8VW8HpDtNfLOWsEEueFRvsSI +O3yJrQp2WWWCS9IuTmZXuMOhp7YlIdomeEnYsTR3ozvEbz4uV2lpghZRoUq+ +wW5Q7dTxW9fPBDdHP9xzt2cnSB88VaX+wAT/tlsPhvQ7w/n5vXpn6sn4ZOZK +m+fOwJ1kSX99ZIIZafePa1Q6w2A5X372UxN0yqC+UOedoZorOk34tQmGzhjJ +1ho5g0tyRPD0ZxM0u7bHsi7FCdJqQvTqlrBRYF7wQo3zdhBd7EPbbGej6Nab +7uWLtkKueVjomDO5r3xUV2DaEbTDzptf3MlG+8WLXA70O8LmMU5H9y42PszT +PuBe4wixnVOznj5srDzp6LnE1xF+5oSbhUaysUe+cMyjcwu8Nb74Oq+QjYU3 +gneU3XGAfUdyr1oVszFhKqn5V7YDTBeXeQ1x2LjwpK2KfYIDCDO7Z7TK2bgx +3iR1lY8DbBSQlbn3gI3XUgXH45QcoLY9b8/rDjY+DmwMX5hpD9ZClWpB3Wys +v2cubXDOHrrXP52WeMdGK2/GgqDj9jBZ/T3O7SMbjyUPRsntsAe1a5q3/xtk +o75wFEpK2kPtW9Ogs8NsvPwyfXmNAJlv5RbQGGPjWbXINwd+2sHeU0faAqfY ++LLbUW2yyw4mH8Smi/9kY9d9udznjXYQNZfqWT3Hxrqjft/vVtjBct18Vdc/ +bIzqNZvNv2kHmQerp+bn2Wiun95QlGoH/wM9Ds/i + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHAZopKKzNM910VlnjPc1jK8ipIhFcpQkuqVoUSUDCFpIAkp +Q5IyxD3JLBUVSUWZGijS8MqYKRp8+/vrPL/n7Geffc5ee611qN1+Dl7cXFxc +yxZwcf3/Ot379BHrTO46yY+C3U2BpuvaMyVCTLuj4KhmJAt5GICiL3dLdCdB +5m+uIGkeTQiyK+ji6c4BxtGEYW4ehBUj4kmzXXfAJuzJQA+3HXyo3ew32VUP +iqt17fZxe4Ala7BnvOsV2D9463mNyx9muwwujXX1w4HH75PlJsKhwfxmblvO +BKiZZdr0RSeCzIeqL7tV/4DbsF/ZCUiDlT7uBfzmPNhXSy9KC8+CJC3Lms1b +BTB7t5ljd8B1eJOm+WB8+VJMsVE7p5+dB2dyw19yS67A1xMtpS9r80E8+dPp +ixkiqPFkQqnwQBFIqJRF/8wjfpTFO3S4CKTqY8NdOSIYqzC+STmsCOTGVh9R +bhDBWf5OiXMJRaC4yd+j5psIzmltChO9WwQ6vH/0P+msxNah+WMSv4vANlBs +QLt5Jb7vam/6cOo2nHK0WvdqWhSDRLd7sM8Xg9TdF1LcC8SQFoPkqpRiKBZx +nNFaIoasYtkx9axi6HzlxrkgL4bMGzIyfJxiYNkHMu03iKGQq6mqe1sx1Ntk +LWy9LIaKoz6+T4VL4I/l1IvnJuLYIjojEJBYAol5oYV/LMVRmvn91vK0EmAt +5IpTsxfHqzPJTvlZJbDp8WLTc17iyBtUMPC4uATSzRmlm86L44VdLVmFLSWw +FjemPvsgjrEtL5OTeThw2PCa+9MoCVx/Ujwv0JgD1tlCkxvPSuCWR5evX1nH +ASb/8bgXlyRwqWhf8n1TDrS2b6Nf35LA1q8bHP6u54C6vyBP7wsJ7OkM1tvu +yIFvecF5P6Qk0WrT2rggHw7sXLl5WLpUEl3THL4eSOeAzrGayMxaSfwvYVRP +M4MDi/tXiVFPJDFTZl/QjywOVJXwgNIbSbxSPtRy8AYHxDZWJWrOS6JB5PFW +4JDnR7J0/9kohWkpofr2jzlgMToX6vtJClNUnr5ePcyBkA3Jax4OSWH9fJtv +5CgHiq+pvRWZlsLfnr3SneMckHD0MKwSkMY/0X5FQdMcGKp8PMOjLo1OTdkF +yfMcuBiVGHj5qDR22O80sFhBQ7+oku+jpTJo3diVcUibBnG/+7Li4jL4N+7d +PR9dGjY1OT3fz5DBmX96Jj31aSgPPaO6TEcGN/aX3LIyoiH+w9igs5MMxron +qf0wpUE7v8Z7NEcGWwv/662woyHSxH6X1FpZrJAayRD3oWGDW+YPAzNZbBNw +EO8+SINQxPeTWzfJ4oFqa7VLfjRcbYjJS/SQxbmQeE2+wzRUWld/X3haFld1 ++GbVhtAw5qQQNPFGFtVLLx07HUtDRag//4oBWdwWsmVUJI6GE1fvpamPyOKV +dPeFV07TIPhxe81+bjlsuKrHyDpLg7L3Wa6Pa+TQ8Un7svAkGtyOTMW3HJPD +Z/0S1pkZNCimmskMxshha8pplYlMmny/hNv8iXJoeWhRpUU2DaG/V7ea5cqh +tIx1e08ODZdOuolWtZDxexJWfbtJQ8uFxqwbsvLYvONAlStNw8XSlVoNyvLo +uEvhbNgdGlw6dtV/1JLHdauKhNNLafgm8XtA2lIeY1zD2U/LaODJ1lyT5CuP +BsrXpbiqaTAqvnz3xH15fHyhJqT1IQ0WXS/+jDTJo79rkUpRPQ2buXjXu7+S +x8i3gvwxDTR4Ovi+gc/y6PlV00T9MQ2Wx6jwCD4GyvRVFrs10fBsWe31tYsZ +aNXWUa3wlAa73G1NY0IMVG2+OvmZeMfzMyt2STCQy2nLxK5nNPjLT183VWFg +wf5S1bUvaJgqTWya1WCg5Tqfsi/EoRtUhmldBn5W0fdPeklDTICHPnMdAw/M +sE/0tdKQ3tDcxG3PwMVMAUG31zQ88s4abghiYGuPuH9bFw1Wvw2Fjx9jYLZO +r9uWbhpeJLbr60YwUGhg4elXxG+qFkXknmbgQcnvF5re0DCyJFA45ioDk5TF +Tl18R8PhbCED9jXyPn8W7J4n/qmbv2PqBgM5bWvD9r0n39OtN9erhIFKugLB +2j00SHA2GFjWM3CVTdfpG700ZFh82vH3CQMvTd0/+ouY+SYsovwZA1M+8N3e +/IEGNe7Sp0odDNzWtO7bEPGdFJuR3jdk/Xwnxgw+0rBW5Ztwai8DTy8oxQhi +M0fZnfzfGMiTl1Ej0EdD47eKiPtDZL3puV83EG8Kc7gRPM5AzQFzt1ji7Xmn +Rr7OMZB7fFJtlvi9EVMke56Bf+d3xqn307D7Za2BEy+FdXOLNHcR+/wcj2ha +SuE76S/764iNAvaKfRGmcPEj64AhYoHBt4U8EhTmFjnZiX+ioXO3rSklS+F6 +3lF+IL7xrqFzHZNCs7bhNE/iQMe1PjuVKewf0+ONITZ7XrQgVJXML5ZvfZ14 +uSWVmqpFYUHL6oN1xL11l1TL9Cn87n/Fp5O4yGBx/StjCh/o91t9Jw7lnNg+ +hhTqKH7i+0O8YfXE0FJLCk+LRV9bMkCDWI53lMpGCvMqCmXFiQek3otb2VEY +fMr0mDzxnYt2t/dupVC3U62GRRwh+Ngs2oXCnkfOvUrEtjGG3dfcKYy2KPms +SCz39/bB+3soLBaVfEURDwUxeXr2U1jaGJUrRVw9mpI250uhRGW363LiuH1L +1CUCKRxeITDPTbytL7xBL4TCNc//xv0g62W5TDptOUEhf3Hh717iH6/2jfif +pNDD4q9LE/GDjT0nz8eR+9+/5BYTn39kL1l0jkKqcdu7C8Q72U+KnyZReK4R +5gOI15QbWXxNpVAtN3mFLfGseskb3gwKbXo2iKwmbrqp4MfMofBXtR0fF3EK +I40Xb1K4a9O1b6/JfmoLR2ocoylMz5uMPUTMdWbqUVo5hb7/fjZnE7/gOeBS +XkNh2du5KV7if6ccYsYfk/HyR9lnSDwZ+TZKLXtGodTy9nYrYoGvxhzVVgqP +fzDx4iPO7Wa9835L4USO4pHDJH4P2V/2j/lA4fuarGlFYmxeuvD6AIULfksd +6SDx31Mzrdk7QqFMwIqDKsRiWU2xjjxM5F2xzKuUnK8BcbbMIQEmeizJHLQh +vpNI0wlLmahhb3TkMzmPtlHp75vFmdhwuzhjCXGcl4+2qSoT/wkwctJ9S/aj +92OjmxYT7wf3MyvIeWdt3+p6XJ+JAuav5vSJH2xYF1eBTDR4X9qpRvLDrMry +XrWtTFwr3bbjZwcN0xlSkTouTGy+Xe6zl3hymSLL0J2Jv2UcitvaSf6YMDxg +sZ+JBTc4jVkkH/XXeE67hDGRS9nFT6qNhuaNFUJxN5g4+qUzKJ7kv8Z7D+lz +BUxc+E5qaUszyV8aLY4XS5h4uTdwYDFxnUhfemYVE91d01wiSH69826xctlz +Mp/lr0hrkn/T/3WD/ikm3vZYXLCzjobUnn39X+fI+8XqtB66R0Oy7eGY4Xkm +Umb/boitJfGkE/fs5yIFnA5x0rlB8n/UL3r7MjkFLHgVu6KhnOzvGT5/E0sF +/O96/6fwYhpMCouyU1IU0G2o+RrfVRreMQqz/rmigPPXZ3J70sl5TMnPnMxS +wCbbfYdKL5N6GZl31SFfAVX+e+bnlEriyyk7TahWAY1GioTiSD1czZecGNtH +bBJdfILUUzH3YxFBqixcyP9RtPUQDWXtIeGKWix8OOmr6xlAg6P10RPteiy8 +dOuK8SSp30l6R45rAwtpdgn/clLflwr6HR2xZ+HfP1O0ujcNvFW7/fcGs9B4 +H7160Q4axoWtPbbVs7D57JZ4Q9I/dPswWw80stB7Z4GqN5D9fjIH4S0s/BLi +dyKJTUNiaKH8rU4y/uoevX5DGjT7BT/MDrKw/8jwyr2kf/GlX7pmiCiij6By +DZcCDYO2W3cM7FFEc1W16nhuEp9nPbYd4lfCArcEeeMaDvgOqjI1BZWwictP +n7+KAzPrZ4eHlyvh+9TdSW3lpH/jSYrZL6WEP8K/yO66wwHNkIa7HmpKOFsg +lPNvPgfCvJREbLco4RVmhaNGKunn1g29VMlSwuu8bImQAA5YjQZbfdZXRiox +WMiRIv2Yp8Dhu+GrkDdFY+z+g2LyPyHOfap+NT4PuBcRLX0bhJ8rneeMrsHy +pcwm/qBCkIkrsdPXV8V7Ez/681PzIU3FcLmItxpSq33Ktj+/Cc1SpnoTF9Tx +lbOujpVAHhjJ1CdqdGrgdLL8sU75XBDiyQncFaWJ9R0/jNo9ckAuUt7EWUkL +vXycQvPOZMMixZ3lDo1amJBV+U9QXgaosyVLgl210UXo1rbUK+lwqFe4wZpL +Bxd5WMCnqFQYnTi71SpNBw9vtZ0UfJ0M6zWepFup6eKSSr4HQZ5JUDdh/Gvm +hS7OvGxIyBtLAF9V7bdtXnpocP3i1fjuM8Ae2dPuvEgfXRo49l5vT8E/LAmb +pTn6yH2KNhmKjYZVEfFH6w0MMD4vr7w8KxLWeBneV3xrgPp/nmnplYaBV92+ +6LsBazHx2c/0DtUQuJ/dvmdc1BCDHncEKAwFwuSt+RmNCkOUnoll9G0PAE/F +wkXpNkY47L1lqnbaB8bXXNS/M2aEHTZbDkqXeENl7q++qThjDGv5tO9WjCfo +mwfOWJ8xxuE3yj4lQZ5Q1jckmH3OGFmKdR4PvD3hjlyvgXWSMTb/GBXgsvaE +orQH5zKvGOPneOWGKSFPyD4bY7i+2BiznZQcytN3w+nAZRfSXhvjx9X7n3pX +7QIXCwU0ljNB74ddM/7CHvCnXUCogWGCB6XZ8VW8HpDtNfLOWsEEueFRvsSI +O3yJrQp2WWWCS9IuTmZXuMOhp7YlIdomeEnYsTR3ozvEbz4uV2lpghZRoUq+ +wW5Q7dTxW9fPBDdHP9xzt2cnSB88VaX+wAT/tlsPhvQ7w/n5vXpn6sn4ZOZK +m+fOwJ1kSX99ZIIZafePa1Q6w2A5X372UxN0yqC+UOedoZorOk34tQmGzhjJ +1ho5g0tyRPD0ZxM0u7bHsi7FCdJqQvTqlrBRYF7wQo3zdhBd7EPbbGej6Nab +7uWLtkKueVjomDO5r3xUV2DaEbTDzptf3MlG+8WLXA70O8LmMU5H9y42PszT +PuBe4wixnVOznj5srDzp6LnE1xF+5oSbhUaysUe+cMyjcwu8Nb74Oq+QjYU3 +gneU3XGAfUdyr1oVszFhKqn5V7YDTBeXeQ1x2LjwpK2KfYIDCDO7Z7TK2bgx +3iR1lY8DbBSQlbn3gI3XUgXH45QcoLY9b8/rDjY+DmwMX5hpD9ZClWpB3Wys +v2cubXDOHrrXP52WeMdGK2/GgqDj9jBZ/T3O7SMbjyUPRsntsAe1a5q3/xtk +o75wFEpK2kPtW9Ogs8NsvPwyfXmNAJlv5RbQGGPjWbXINwd+2sHeU0faAqfY ++LLbUW2yyw4mH8Smi/9kY9d9udznjXYQNZfqWT3Hxrqjft/vVtjBct18Vdc/ +bIzqNZvNv2kHmQerp+bn2Wiun95QlGoH/wM9Ds/i + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06988757065279878}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06988757065279878}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VV0XAHAZopKKzNM910VlnjPc1jK8ipIhFcpQkuqVoUSUDCFpIAkp +Q5IyxD3JLBUVSUWZGijS8MqYKRp8+/vrPL/n7Geffc5ee611qN1+Dl7cXFxc +yxZwcf3/Ot379BHrTO46yY+C3U2BpuvaMyVCTLuj4KhmJAt5GICiL3dLdCdB +5m+uIGkeTQiyK+ji6c4BxtGEYW4ehBUj4kmzXXfAJuzJQA+3HXyo3ew32VUP +iqt17fZxe4Ala7BnvOsV2D9463mNyx9muwwujXX1w4HH75PlJsKhwfxmblvO +BKiZZdr0RSeCzIeqL7tV/4DbsF/ZCUiDlT7uBfzmPNhXSy9KC8+CJC3Lms1b +BTB7t5ljd8B1eJOm+WB8+VJMsVE7p5+dB2dyw19yS67A1xMtpS9r80E8+dPp +ixkiqPFkQqnwQBFIqJRF/8wjfpTFO3S4CKTqY8NdOSIYqzC+STmsCOTGVh9R +bhDBWf5OiXMJRaC4yd+j5psIzmltChO9WwQ6vH/0P+msxNah+WMSv4vANlBs +QLt5Jb7vam/6cOo2nHK0WvdqWhSDRLd7sM8Xg9TdF1LcC8SQFoPkqpRiKBZx +nNFaIoasYtkx9axi6HzlxrkgL4bMGzIyfJxiYNkHMu03iKGQq6mqe1sx1Ntk +LWy9LIaKoz6+T4VL4I/l1IvnJuLYIjojEJBYAol5oYV/LMVRmvn91vK0EmAt +5IpTsxfHqzPJTvlZJbDp8WLTc17iyBtUMPC4uATSzRmlm86L44VdLVmFLSWw +FjemPvsgjrEtL5OTeThw2PCa+9MoCVx/Ujwv0JgD1tlCkxvPSuCWR5evX1nH +ASb/8bgXlyRwqWhf8n1TDrS2b6Nf35LA1q8bHP6u54C6vyBP7wsJ7OkM1tvu +yIFvecF5P6Qk0WrT2rggHw7sXLl5WLpUEl3THL4eSOeAzrGayMxaSfwvYVRP +M4MDi/tXiVFPJDFTZl/QjywOVJXwgNIbSbxSPtRy8AYHxDZWJWrOS6JB5PFW +4JDnR7J0/9kohWkpofr2jzlgMToX6vtJClNUnr5ePcyBkA3Jax4OSWH9fJtv +5CgHiq+pvRWZlsLfnr3SneMckHD0MKwSkMY/0X5FQdMcGKp8PMOjLo1OTdkF +yfMcuBiVGHj5qDR22O80sFhBQ7+oku+jpTJo3diVcUibBnG/+7Li4jL4N+7d +PR9dGjY1OT3fz5DBmX96Jj31aSgPPaO6TEcGN/aX3LIyoiH+w9igs5MMxron +qf0wpUE7v8Z7NEcGWwv/662woyHSxH6X1FpZrJAayRD3oWGDW+YPAzNZbBNw +EO8+SINQxPeTWzfJ4oFqa7VLfjRcbYjJS/SQxbmQeE2+wzRUWld/X3haFld1 ++GbVhtAw5qQQNPFGFtVLLx07HUtDRag//4oBWdwWsmVUJI6GE1fvpamPyOKV +dPeFV07TIPhxe81+bjlsuKrHyDpLg7L3Wa6Pa+TQ8Un7svAkGtyOTMW3HJPD +Z/0S1pkZNCimmskMxshha8pplYlMmny/hNv8iXJoeWhRpUU2DaG/V7ea5cqh +tIx1e08ODZdOuolWtZDxexJWfbtJQ8uFxqwbsvLYvONAlStNw8XSlVoNyvLo +uEvhbNgdGlw6dtV/1JLHdauKhNNLafgm8XtA2lIeY1zD2U/LaODJ1lyT5CuP +BsrXpbiqaTAqvnz3xH15fHyhJqT1IQ0WXS/+jDTJo79rkUpRPQ2buXjXu7+S +x8i3gvwxDTR4Ovi+gc/y6PlV00T9MQ2Wx6jwCD4GyvRVFrs10fBsWe31tYsZ +aNXWUa3wlAa73G1NY0IMVG2+OvmZeMfzMyt2STCQy2nLxK5nNPjLT183VWFg +wf5S1bUvaJgqTWya1WCg5Tqfsi/EoRtUhmldBn5W0fdPeklDTICHPnMdAw/M +sE/0tdKQ3tDcxG3PwMVMAUG31zQ88s4abghiYGuPuH9bFw1Wvw2Fjx9jYLZO +r9uWbhpeJLbr60YwUGhg4elXxG+qFkXknmbgQcnvF5re0DCyJFA45ioDk5TF +Tl18R8PhbCED9jXyPn8W7J4n/qmbv2PqBgM5bWvD9r0n39OtN9erhIFKugLB +2j00SHA2GFjWM3CVTdfpG700ZFh82vH3CQMvTd0/+ouY+SYsovwZA1M+8N3e +/IEGNe7Sp0odDNzWtO7bEPGdFJuR3jdk/Xwnxgw+0rBW5Ztwai8DTy8oxQhi +M0fZnfzfGMiTl1Ej0EdD47eKiPtDZL3puV83EG8Kc7gRPM5AzQFzt1ji7Xmn +Rr7OMZB7fFJtlvi9EVMke56Bf+d3xqn307D7Za2BEy+FdXOLNHcR+/wcj2ha +SuE76S/764iNAvaKfRGmcPEj64AhYoHBt4U8EhTmFjnZiX+ioXO3rSklS+F6 +3lF+IL7xrqFzHZNCs7bhNE/iQMe1PjuVKewf0+ONITZ7XrQgVJXML5ZvfZ14 +uSWVmqpFYUHL6oN1xL11l1TL9Cn87n/Fp5O4yGBx/StjCh/o91t9Jw7lnNg+ +hhTqKH7i+0O8YfXE0FJLCk+LRV9bMkCDWI53lMpGCvMqCmXFiQek3otb2VEY +fMr0mDzxnYt2t/dupVC3U62GRRwh+Ngs2oXCnkfOvUrEtjGG3dfcKYy2KPms +SCz39/bB+3soLBaVfEURDwUxeXr2U1jaGJUrRVw9mpI250uhRGW363LiuH1L +1CUCKRxeITDPTbytL7xBL4TCNc//xv0g62W5TDptOUEhf3Hh717iH6/2jfif +pNDD4q9LE/GDjT0nz8eR+9+/5BYTn39kL1l0jkKqcdu7C8Q72U+KnyZReK4R +5gOI15QbWXxNpVAtN3mFLfGseskb3gwKbXo2iKwmbrqp4MfMofBXtR0fF3EK +I40Xb1K4a9O1b6/JfmoLR2ocoylMz5uMPUTMdWbqUVo5hb7/fjZnE7/gOeBS +XkNh2du5KV7if6ccYsYfk/HyR9lnSDwZ+TZKLXtGodTy9nYrYoGvxhzVVgqP +fzDx4iPO7Wa9835L4USO4pHDJH4P2V/2j/lA4fuarGlFYmxeuvD6AIULfksd +6SDx31Mzrdk7QqFMwIqDKsRiWU2xjjxM5F2xzKuUnK8BcbbMIQEmeizJHLQh +vpNI0wlLmahhb3TkMzmPtlHp75vFmdhwuzhjCXGcl4+2qSoT/wkwctJ9S/aj +92OjmxYT7wf3MyvIeWdt3+p6XJ+JAuav5vSJH2xYF1eBTDR4X9qpRvLDrMry +XrWtTFwr3bbjZwcN0xlSkTouTGy+Xe6zl3hymSLL0J2Jv2UcitvaSf6YMDxg +sZ+JBTc4jVkkH/XXeE67hDGRS9nFT6qNhuaNFUJxN5g4+qUzKJ7kv8Z7D+lz +BUxc+E5qaUszyV8aLY4XS5h4uTdwYDFxnUhfemYVE91d01wiSH69826xctlz +Mp/lr0hrkn/T/3WD/ikm3vZYXLCzjobUnn39X+fI+8XqtB66R0Oy7eGY4Xkm +Umb/boitJfGkE/fs5yIFnA5x0rlB8n/UL3r7MjkFLHgVu6KhnOzvGT5/E0sF +/O96/6fwYhpMCouyU1IU0G2o+RrfVRreMQqz/rmigPPXZ3J70sl5TMnPnMxS +wCbbfYdKL5N6GZl31SFfAVX+e+bnlEriyyk7TahWAY1GioTiSD1czZecGNtH +bBJdfILUUzH3YxFBqixcyP9RtPUQDWXtIeGKWix8OOmr6xlAg6P10RPteiy8 +dOuK8SSp30l6R45rAwtpdgn/clLflwr6HR2xZ+HfP1O0ujcNvFW7/fcGs9B4 +H7160Q4axoWtPbbVs7D57JZ4Q9I/dPswWw80stB7Z4GqN5D9fjIH4S0s/BLi +dyKJTUNiaKH8rU4y/uoevX5DGjT7BT/MDrKw/8jwyr2kf/GlX7pmiCiij6By +DZcCDYO2W3cM7FFEc1W16nhuEp9nPbYd4lfCArcEeeMaDvgOqjI1BZWwictP +n7+KAzPrZ4eHlyvh+9TdSW3lpH/jSYrZL6WEP8K/yO66wwHNkIa7HmpKOFsg +lPNvPgfCvJREbLco4RVmhaNGKunn1g29VMlSwuu8bImQAA5YjQZbfdZXRiox +WMiRIv2Yp8Dhu+GrkDdFY+z+g2LyPyHOfap+NT4PuBcRLX0bhJ8rneeMrsHy +pcwm/qBCkIkrsdPXV8V7Ez/681PzIU3FcLmItxpSq33Ktj+/Cc1SpnoTF9Tx +lbOujpVAHhjJ1CdqdGrgdLL8sU75XBDiyQncFaWJ9R0/jNo9ckAuUt7EWUkL +vXycQvPOZMMixZ3lDo1amJBV+U9QXgaosyVLgl210UXo1rbUK+lwqFe4wZpL +Bxd5WMCnqFQYnTi71SpNBw9vtZ0UfJ0M6zWepFup6eKSSr4HQZ5JUDdh/Gvm +hS7OvGxIyBtLAF9V7bdtXnpocP3i1fjuM8Ae2dPuvEgfXRo49l5vT8E/LAmb +pTn6yH2KNhmKjYZVEfFH6w0MMD4vr7w8KxLWeBneV3xrgPp/nmnplYaBV92+ +6LsBazHx2c/0DtUQuJ/dvmdc1BCDHncEKAwFwuSt+RmNCkOUnoll9G0PAE/F +wkXpNkY47L1lqnbaB8bXXNS/M2aEHTZbDkqXeENl7q++qThjDGv5tO9WjCfo +mwfOWJ8xxuE3yj4lQZ5Q1jckmH3OGFmKdR4PvD3hjlyvgXWSMTb/GBXgsvaE +orQH5zKvGOPneOWGKSFPyD4bY7i+2BiznZQcytN3w+nAZRfSXhvjx9X7n3pX +7QIXCwU0ljNB74ddM/7CHvCnXUCogWGCB6XZ8VW8HpDtNfLOWsEEueFRvsSI +O3yJrQp2WWWCS9IuTmZXuMOhp7YlIdomeEnYsTR3ozvEbz4uV2lpghZRoUq+ +wW5Q7dTxW9fPBDdHP9xzt2cnSB88VaX+wAT/tlsPhvQ7w/n5vXpn6sn4ZOZK +m+fOwJ1kSX99ZIIZafePa1Q6w2A5X372UxN0yqC+UOedoZorOk34tQmGzhjJ +1ho5g0tyRPD0ZxM0u7bHsi7FCdJqQvTqlrBRYF7wQo3zdhBd7EPbbGej6Nab +7uWLtkKueVjomDO5r3xUV2DaEbTDzptf3MlG+8WLXA70O8LmMU5H9y42PszT +PuBe4wixnVOznj5srDzp6LnE1xF+5oSbhUaysUe+cMyjcwu8Nb74Oq+QjYU3 +gneU3XGAfUdyr1oVszFhKqn5V7YDTBeXeQ1x2LjwpK2KfYIDCDO7Z7TK2bgx +3iR1lY8DbBSQlbn3gI3XUgXH45QcoLY9b8/rDjY+DmwMX5hpD9ZClWpB3Wys +v2cubXDOHrrXP52WeMdGK2/GgqDj9jBZ/T3O7SMbjyUPRsntsAe1a5q3/xtk +o75wFEpK2kPtW9Ogs8NsvPwyfXmNAJlv5RbQGGPjWbXINwd+2sHeU0faAqfY ++LLbUW2yyw4mH8Smi/9kY9d9udznjXYQNZfqWT3Hxrqjft/vVtjBct18Vdc/ +bIzqNZvNv2kHmQerp+bn2Wiun95QlGoH/wM9Ds/i + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06988757065279878}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06988757065279878}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993826795283867*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"55431e71-16e2-4f3c-9618-597ccbd0779d"] +}, Open ]], Cell[CellGroupData[{ @@ -2113,11 +8110,12 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ -fe19384187c3"], + CellChangeTimes->{3.991850610344879*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[BoxData["10.281664939201725`"], "Output", + CellChangeTimes->{3.993826795315248*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"0024d7ae-18a5-46a7-9eab-6783372badf4"] }, Open ]], Cell[CellGroupData[{ @@ -2173,416 +8171,523 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850612616415*^9},ExpressionUUID->"3764dfb4-9656-4349-b0a1-\ -77ebd1a3e048"], + CellChangeTimes->{3.991850612616415*^9}, + CellLabel->"In[99]:=",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5934759670774584`*^-257\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 99, 13, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938267953941097`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"bd8be06a-7f71-48e6-ba01-6d2fa13e2b9b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"05911c33-7605-8b49-a7ba-7fc8c8f30741"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.912711690784276`*^-267\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 14, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938267954020653`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"e236f6fa-ba2a-4e8b-9fcf-c3b223baac74"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5145968094538158`*^-276\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 99, 15, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993826795409719*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"4e712763-1eab-4987-9dcd-1bdb5b73ac09"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.031746 0.0147151 12.2218 [ -[.18254 .00222 -3 -9 ] -[.18254 .00222 3 0 ] -[.34127 .00222 -6 -9 ] -[.34127 .00222 6 0 ] -[.5 .00222 -6 -9 ] -[.5 .00222 6 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.81746 .00222 -6 -9 ] -[.81746 .00222 6 0 ] -[.97619 .00222 -6 -9 ] -[.97619 .00222 6 0 ] -[.01131 .13693 -24 -4.5 ] -[.01131 .13693 0 4.5 ] -[.01131 .25915 -24 -4.5 ] -[.01131 .25915 0 4.5 ] -[.01131 .38137 -24 -4.5 ] -[.01131 .38137 0 4.5 ] -[.01131 .50359 -24 -4.5 ] -[.01131 .50359 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.18254 .01472 m -.18254 .02097 L -s -[(5)] .18254 .00222 0 1 Mshowa -.34127 .01472 m -.34127 .02097 L -s -[(10)] .34127 .00222 0 1 Mshowa -.5 .01472 m -.5 .02097 L -s -[(15)] .5 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(20)] .65873 .00222 0 1 Mshowa -.81746 .01472 m -.81746 .02097 L -s -[(25)] .81746 .00222 0 1 Mshowa -.97619 .01472 m -.97619 .02097 L -s -[(30)] .97619 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.15079 .01472 m -.15079 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.27778 .01472 m -.27778 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.40476 .01472 m -.40476 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.53175 .01472 m -.53175 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.78571 .01472 m -.78571 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.9127 .01472 m -.9127 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .13693 m -.03006 .13693 L -s -[(0.01)] .01131 .13693 1 0 Mshowa -.02381 .25915 m -.03006 .25915 L -s -[(0.02)] .01131 .25915 1 0 Mshowa -.02381 .38137 m -.03006 .38137 L -s -[(0.03)] .01131 .38137 1 0 Mshowa -.02381 .50359 m -.03006 .50359 L -s -[(0.04)] .01131 .50359 1 0 Mshowa -.125 Mabswid -.02381 .03916 m -.02756 .03916 L -s -.02381 .0636 m -.02756 .0636 L -s -.02381 .08805 m -.02756 .08805 L -s -.02381 .11249 m -.02756 .11249 L -s -.02381 .16138 m -.02756 .16138 L -s -.02381 .18582 m -.02756 .18582 L -s -.02381 .21026 m -.02756 .21026 L -s -.02381 .23471 m -.02756 .23471 L -s -.02381 .2836 m -.02756 .2836 L -s -.02381 .30804 m -.02756 .30804 L -s -.02381 .33248 m -.02756 .33248 L -s -.02381 .35693 m -.02756 .35693 L -s -.02381 .40581 m -.02756 .40581 L -s -.02381 .43026 m -.02756 .43026 L -s -.02381 .4547 m -.02756 .4547 L -s -.02381 .47914 m -.02756 .47914 L -s -.02381 .52803 m -.02756 .52803 L -s -.02381 .55248 m -.02756 .55248 L -s -.02381 .57692 m -.02756 .57692 L -s -.02381 .60136 m -.02756 .60136 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .10806 L -.10458 .20681 L -.14415 .29388 L -.18221 .37017 L -.22272 .44131 L -.26171 .49847 L -.30316 .54591 L -.32392 .56431 L -.34309 .5781 L -.36173 .58858 L -.37125 .59283 L -.3815 .59658 L -.3917 .59947 L -.40103 .60141 L -.40552 .6021 L -.40789 .6024 L -.41042 .60267 L -.41284 .60289 L -.41504 .60305 L -.41725 .60317 L -.41834 .60322 L -.41933 .60325 L -.4205 .60328 L -.42174 .60331 L -.4229 .60332 L -.42399 .60332 L -.42526 .60331 L -.42644 .60329 L -.42773 .60326 L -.4291 .60321 L -.43163 .60308 L -.434 .60293 L -.43941 .60241 L -.44405 .60181 L -.4483 .60112 L -.45788 .59913 L -.46769 .59645 L -.47681 .59341 L -.49751 .58461 L -.53655 .56157 L -.57805 .52937 L -.61803 .49268 L -.6565 .45377 L -.69742 .4102 L -.73682 .36757 L -.77471 .32713 L -.81505 .2857 L -.85387 .24819 L -.89515 .21147 L -Mistroke -.93491 .17954 L -.97316 .15219 L -.97619 .15016 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQFNUVhnt3ZhZ20WDUGNQo6xPxxe6CgIMgKgI+ACMqoiiswAgK8hTf -ARR8oXE0iXloLBNjtBJTPmt85E3FMiYpUyZRKzUpraTyKC0tLS1TsUxlMn1v -9+3ume/cme7phbXKqd3e3v+c85/Tt2/fvvf06ZnVv37Z0pX965cv7u+esbZ/ -9bLli9d1T1+1tgpl2hyn7bHqb1e34+5XHMffVKo/lcfdjYs03l+q/uScUrHg -5B3/k3cKpbJzjJJlnEqpYCQZte108sWykprfcskp+AT5glMqV5zeGPbkf4xv -X6lye5KsZ18oVRr674lhT/57pbapxp71ZORXy5wl6s8Qp1SV5wtFp1zWrsql -oqJzQ5jghVjM552iJ894dpVKuYpryuAQq/9X98da7Gz+/CbVOiWnXP2vXWHD -HPcsRZtF9t8Tg6dxPEOUjc8TPp1uN2lvoj30sTvLwz2uSuf+N15sqqheu4eV -i3nTO/vAdijY+s1armJ5L8Rckz56wLYLbPUp74hg6lf/nwHq9mStUk8RtW22 -Vcz1p06U1s026aMXbDstsYT1qJXJR03zuP3U77cD1TxhH+YQVb/WeFwfYVvy -oU9BNjQEV2MqVZp10x4eyToiA2loMJyYcmNl7O7GhYf1mKd8rGjb2J3bw5xE -PWxJ2KujR6xJDYalWtpGw1IGfPhHG+4R/tHWjfbaJ523MSLNELhpBO4nxndl -aTDNljPjZLFUNg2QNfpVzL3VhBquVND2wZE04qhtwOqtp+zesoLG1rewaF9o -znezXBCDvkea21+SGLB59afdTM8C9XH+6FGl1ZMg5S7ntaJr7raeP/dxI+lj -k2yTHiMnyFyGhdAJsrllu0xs38VgSufoLm/z7U33pBn2YZ5792OuAHd74ydD -PtL9oxYXd7qbNtmqqwWs81PbHWI7mGJp1nZoqMupC3fYIA/4U9vBFUvijjYF -lI4DbHLKeuFAQiL1190Thm6WZyPUvsrW9FVyEZVIQFtCejreTKBQ8W44N/BR -ub/tgKnt5p1vk5FsNqVrk5VsNqZrk5NsvtSijRInYe+QbK5L12aIZHNtujZD -JZtrdr4NjZVqe3WLNkpMo67aXiWz7ygbmlWo7ZXp2uwi2VyRrs2uks2GFm2U -OAn7ZySby9O1GS7ZrE/XZjfJZl1yG30H4gcL/tjpJ/PyxZKTs+hH0tzex7/7 -hh/A0N2oUZze4GJJymchWo3Zc/n+UYazWzSaf1aKcK0XoT4sPx9H6SbKs1PC -LZtuSD41PYboAveUWhRDUhM1MZA1Oy6QGve7D76Q9pBCWl3Xg8IhST3IlrJN -LaRscNnpRB/l+UxUdfnAzoieanDIhdKkZk8pslVOdOCCFNmuFlnWtE8kYxgr -hCUgENZQVp7FIOiUeT4n8SxyN2oFuUsC64UgsPDsJfEsMFEMD1krRdHmfBAM -l31/XuKZD4LdEvDMM8ewRwLrc8QrDHlGSDxzTRR7JbA+UzxpyLO3xDPHRLF3 -AuvZojLy7CPxnC4qx+M5DQT71vbTfSXrmaYt9pd9i9YzQJCEZzoIRso8X5B4 -poGgOwHPSSA4QObZT+I5AQQHJuCZCoKDZJ79JZ7J5mwfmsCaMmxhnkzQjcB6 -EghGyVGMlHiOBcFhCXgmgmC0zNMt8YwHweEJeI4BwREyzwEST585x0cnsO4F -gYXnQIlnDAjGJOA5GgQ9Ms9BEs+RIOit7bui9REg6EsQxeEgGCvzHCzxjDLn -eHwC60NBYOE5ROIhBxMS8FBz6asz1VV8tChAf3Q2PhMpq6BVPDWZ2tKFpEeo -AVzZB0uV2qrBTKRIhLLW4pHQwJT3jiS9DIDBQlV6lF4dJYVJ95dJkTDTWPka -21A5HK2kxDDpVn5c6mFG6nW88rUgeSEGR/OwyakHZwo3QzVi9NRCLJygKe+U -uh4ZP6PQEdFzf72KLJ+m0TU0WoqYli7HexG3mHAYVpdwsBVAUTuLUdOyT884 -W0xGcB0RpWvE2GiBrWfV2G/oBqu2lKo4MQEP5ZVOknlo4qC2lFicloCH0ssn -yzw0DVJbejwwPcSjJKI1PcSYIUdxlMRDj4FmJuChx1anyDw0yVRbujOdmoCH -bh2nJeChS+d0mYcm4WpLg9qsBDw0VZot8/RIPG0gmFPb+8j6f+5WTYTPlN3S -mua/gMWk+BiwuTJFH2AfAXZWPIr/AHa2TDEWsH8Ddk48ig8BmydTjAPsA8DO -jUfxPmDzZQpacb8H2Hm1PZEM3wXsfNk3ZQ3eAWxBPIq3AbtAppgA2FuAXRiP -4k3AFsoUlIn5F2CL4lH8E7B+mYLySv9oneLvgF0kU+QB+xtgi2v7JBn+FbAl -sm/K0L0B2NJ4FK8DVpApKMv4F8AujkdRBmyZTEEVhn8GTL/0lGqewp870+uS -NAGg4srXALtEhzrQaQn7S4i0MKEDeBWwS70DSC8b0QF6NDc6HrA/AbYiEmGq -i+iyfRG98yLM+K0WfTUuSENQaH8AbOXANp5lZTwVsJcBu6yuA7ZazuB3wEYZ -B3qQ9HvAvBqCAUg2WN6aoialgF8CzCvHaD3PUP+uEY2VJwL2O8C8Whq6M9Cz -wd8AtjYexYuAWcrf6Ennr1uneAEwS+HeyYA9D1i4xlBJyPBXgFmKIOmZ8XbA -LJWdRPFLwCxFqPQE/OeAWeplieJngFkKh2cC9hPALPXKpwD2HGCWcmyieBYw -S+X4qYA9DVhdOTwZlgDbKPumQoqnANs0oBRUFvIEYJYXKYjiccCulylmAfYo -YJZXTahO5keAbYlH8QhgW2WKOYD9ADDLS5xnAPYwYDfV9kkyfAiwm2XfXwTs -QcBukSmoauoBwG6VKeYC9h3AtsWjuB+w22SKswC7D7DbZYqzAbsXsC/Ho7gH -sDtkCqqm+yZgRZliHmBfB+zO2j5JhncDdpfs+1zAvgrYV2QKqmq8S6RFivPE -BotiX4tHcYfYPkhBZZ63i+cm1TRBICuG0gR6GUEz8gWAbQPsGzrUgUsT0Jqn -2YBvFS+dNNMCuSYjvACwmwH7ViTCZCvbXN0XFrk6+lXRxvUrFwJ2I2D3pBBp -F3+1UugbIrx2DVIEFN4WwO5NITw6/Tml52P+aacF5CLArgfs23WdstVUQbBE -di8tnU2LG+lmwO7zIm0xZRDVM0khr0Yhnw/OeI3/fsDU9F491tPTjMT5gUiC -z5Eb6yLArgXMC4duBfTOw9WAfVemoNcvrgTsAZliKWAbAPtePIrLAXswRKEk -BVBaB9j3Zd8XA7YGsIdkimWArQLsYZliOWArTJf8oWx4SZNYTAqK5xGZ4lLA -Cib8R2XDFU32SQvFyiYvrsdkissAW2jCf7K219G5pRvzk7LH1YDRzO4pmWKN -CXC+2XtaVqfLglYWFor1gNEq6xmZgq7qM0z4P5YNNxil2Wbvp7I6jWGUsLFQ -XGX8zDR7v5DVrzFK08ze9tqecx0YTgVsu+wnuFFNMXvPy+qbADvWGL4gG242 -ShPM3ouy+g1Gqc8c7W9l9a1G/Sij/pKsfpNRH232XpbVbzFKh5i9P8rq20wI -3Ub9FVldLdXVJHKE2Xut9kyrteUId68sM6ntIPmysEZytd/gK4mdtv8DOhP8 -Ww==\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-3.23234, -0.00443741, 0.118269, \ -0.000307202}},ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 16, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938267954156113`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"e9ca3991-3bb9-4cd5-a3da-eabc98ff8d5b"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ -baecb9a57d9b"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8Fe8XB3BRod1+rXfutVT2LbmX6xxL9ohs2ZIiFKUkS2UpIpKyVCok +lBL3jlLoW7JFabVGpaRNiCxJ229+f83r/Zo/5nnO+TxnZhj+u5wD+Pn4+LTn +8fH9/zrzpq1JKa3YpPhJVatXqrlJZz4t2rQ3Ebxc93S0fmUASjz1p/WeggSr +oNSCrzoQueFqj0BvEVjm9zIPfzUFkTGpUz97SNhy6/oX169OMHDHYddUTwMI +xocaNg5vAUul4dcTPS/APH7J7dTP4fCzZ23OeM8gmJam81UOJECj+eXi50WT +0M50l2TvPwVyAzUf/dX/gNDToLNCIudAfOfmq4LmAmhKmydQknYRTulY1jm4 +CmGdw974fXkl8PKMdv3EiqV46mnr7KrlZZBWHPeUX1oEI0UvqhtuKwdb/WBR +CUURpOe5JG3dXQ5CTc6uKzVEsPf8lRNHD5TDkffK/XamIrhIU4Nbk10OB5jt +H7ODRbB8Un+wuakcwgppf1VqRfAefCAOKF4Hp/M8dTsvUcy91ezv1H8dpLLf +p2ZdEEOx8PUq+vqVQFO7eWS2VAxf2B2MfsSpBJmG5DgfrhhqJxoJe1tVgsL4 +6n0rG8WQrlj0MsizEpTtd/vVfab8ZJO8Tnwl6M3/Y/BeTxylvPfqxj6sBMcI +ySHdh+J4bPt6kR/qXNiw+POb0x3iKDtvbq+rDheci2pe/n4ljufvs7Zx13DB +7Zn305Zv4rgu+PpXLxMu+KhfqvWUkEC7f+bHUh25sGNI62SinwTKW8uVmYRz +4aiLjcmLGQmcNfNrWkpyQebGExn+eZJYheUfnKq5UCHm8kNnsSS+tgz6erKW +C90vfLkn6ZKo6nWjaEEjF5ScIphO1pJ4UiWnuq6DCw3rCxY+OyuJ8y0qVvlP +ceGP5fSTx8ZS6DlXZZCry4PM0phrfyylMFVKa72bAQ+UFvKlaDhJoW+yH4iy +eWDfvMj0eIAU5lhxqg+a8iDPnKiyz5DCeMz7wtzAA0O0O/1oQAqNftNsS3fy +YC/r4ua2RBqu+Djjl1nEA9vCZVN26TTsNT03mF3CA6bggZQnOTQceGvRknOF +B8863XgdV2g41dJclV7BA83dSwTePKHhxo+nVjnW8uBz6f7S7zLSeDpoMknl +OQ+8xR1GZaukMTxnRxX9Nw/0YusS8u9I46LAV3ncvzxYNLhKktEijXFZqZ84 +80ioqRQAlZfS6AWOvPULSZC0q8nU/ieN+h+aFputIOFZgpL+OjsZ/N4stuiQ +IgkW3+Ziwt7L4AzvbreFFQnR1tmq90dksDVjjZ6HDQkVFzX6xGZk0JIdTgTZ +kUBz8WPVCMninm87Kw46kjByu/mHgKYsPolefTHOnYSsxMyIs1GyuKOzWnUg +kITW/tVKIwmySLqM19QFkfBbv7HDJE0WfX5xBrJDSAj8NK07dEEW53yOjxqH +kcC295rQbJTFZediFLftI2FQQiWsaakc0kKe2C0/TILUrnvyUlJyuGomIOTm +ERLsWz0eBxNyODq1TdkjmYTqmDT15XpyGLvUaU9WKgnHBsaHN3nI4QVresS7 +EyToltVt/1Ykh9P3ag70nyMhwdhpi4yhPGrISv+15ZFg7Zv/fa2ZPHrb+6ws +JElYFv/1sKu9PBZ3Xg+YqCLhfGNSaaafPK4gzZVSqkm4bVv7dWGqPDoHs/5L +riNh3EMxcvKlPErfNORvayLhVsxuQZEheUxusOgYaCbh0Pn/zmiOyePSQe3m +7y0kLHnrXhfMr4C/zzxctrSNhJXb0/neqipgxDFdR7HHJPjumz7WHquA90s3 +sbd3kqB82kxuOEkBtYZeR2PX/+t/4rpgpgI2XnL7JNFNQszv1c/MihUwOT7H +8SY1F3MO+0rUtCtgUUdeaEsfCd4l10q7uxXQ4vGSNQn9JDAfzK6dequAq2T2 +6Bi+IoG7KMtTa1oBhbnl7XmvSWg/+aCgRJ6O/z3glOq+pfpbJa7TuJKOLOF8 +zaeUPbu2NLzVoaOhivHk9nckfKb9HpK1pGOF16h+xiAJlWybSNYGOp5c/K5K +9j0Jkd65gu6edDRq6thTQlmgUFv1VBgdTRhHblwfIuHh/YN1lVF0dE1VY6l/ +ICHz/UP7x4l0VIgvmXeZssLKgF1Cp+m4gDGx5eRHKi8VZ28cukfH6xmWsazP +VJ57nvwZa6Wj8GH9N1mUHfjmW21+QUeecpjgV8pbncNewgc6li4V5J74QkJY +7CUmd4yOS28J67ymHFXcu4OYpWNHV37symESLGMZcfELCHwX+Gw3SfnR8juX +DBcR6P5BUn6S8oZit9bxZQTuHTfP1f5KQrfhxMgVMQI18jVfh1D2epwmsoVG +4I3uiu8XKb/domIgLU8gufFCTxflwJl6z+cMAnsKOtIXjpCwmz5zyVSNwNPv +Enb4Up6uymz9qUWgzG9ubhLlGGu1UZ4+9TzN3Jwyynyvm0VCWAT6LF8e/JBy +UrifAdOEQFmBOZHPlBct/OXZZ0ZgNdvgJP8oVc+8nLhTVgSer7r0SZqyhJZ2 +sa09tT8DRUlNynmND1v5nQjkeuTKA2W6R8BorSuBTfsH/tpTLh75J7LXk8D6 +O+9q3SmrJuQZqG2m1iud4LyZcqXEGq/3WwkUtClq2UpZ/+rTuHNBBH56rEoL +oFxrElK8MZTA4u981v+/Dx3z2xbvIfBs62J3X8pN2wtGGyMJjFupZ+lG2eY3 +S/RALIEd5Zsl7Sg/yew00I8ncG1dTKsxZRflXV4jRwj8Fh3mo0b5ZY1wfHEq +tf9O5W5Jyr4OxcXeGQTaRqXr/aPqMTRo0iaeReDjnozIIcrB+1+Otp8mUEpF +prCF8tjiCNGk8wSqesjxSijvLVy2lnORQH6lI1cTKM/ql3lNlxA4/A+Pe1I+ +1GYef/0qgT8Z5p7alAV83xQHVBK4KS5WVIByyveoNvkbBDY86q9+QfV72VGx +sa7bBL6OcrMuoEzjWq+1bCCwLDTIQIvyBYv3Xn9bCLxr/Tn7O5Uv5suD8dWP +CKRd3Tj0//xp8Fe1qXQRaK7bskmVMpm7fuzNSwJ3NdYlvKPya6j2WfT0GwI3 +V0Tn51A2c5H3FvxMIOGuVztF5f/B51vx90ao+psp1hVQtj/oXLJ/gkCxwcYb +VpTdS4+OfZojcChUMDfjEwk7ZyfiW5cy8MnZDeqz1PljhwdKfhRl4HJt6YYE +ykLDfdcEaAz88M3jhSDlkv7GbhMmA6/N27xdmDrPb+7mqN80YGDLoqKjg9R8 +KF+7qOGFEQPVulkSGyjHcA+5jyMDb0VdWllLzRPJou2JanYMzNmo9vbwAAmO +Sazei5sZWGkw1zRKzSeFv9dD721jIE1EMB8oj0QyBV4HM3D+pdiFGdQ8Swla +rEmLYKCu0Owxgpp39XavD2ekUOtxnDoqR81DXdEErVgeAy9fykgMf0adn7Tp +pjPVDPQRvDGV/pTKl0CIZ3UdA7+PSi4peULCjmnnpIlmBj7KW6X9qJ3Kf69S +//Y+Bt5h8yK+tVLrLWhNdhFgYh9ZpXa2nsqXFEdujxATW+9fzou7R/Unk8c7 +sZSJUYykZv+71H4S8149lGLisZMNLvQ71HoDduqaqjMxcddgQvgtEn6qrXij +4crEFj0B39jrJMxckEnQ82TiWl/dTfrlJEwtV1Zibaaeh6vXDV+l8jrJCrEI +ZmK0mui0/RXqfVm3dcbzIBPLNoS/Gi2i5qndrWUpJUz8VZwqVHCaOt87fGFw +momaXMnx1kMknH4dNPhpjon72q8+Yh4kIdtxb9LoPyaa9rq3RMeSkKGX8mhW +WBGFXMYU6FEkJP7iuS9XUETzYy3JVuFUfdIW7Da2VMTv3WT8iq0kGF8rL8zN +VcT3Fz/dOG5BQj9xrWDdOUWUnt/3hWtG9Tu3LH+qQBFpLn8ePEfq/ZhQet65 +jLqv9erIEg7VH4/CM8vuKGKQv55S4BoSVi/Izkx+p0itX0b8mjJV782x8ZHq +Shh681DBkfkkTIja+rk1KOE+64uJd+t40LuT+SzkgRIWr1TpYdTwoL5lDuLa +lTCNFdOeWE19/8Vco1/pVkLvbLtCDo8H2oNLBn4OK2G1eIPs6VIehPGe+lwQ +U8ZqKcNXfZk8GHZ09RrapoyOztJ+vK08GEr3c9sjqIJHaS4ff/LzwObbfpsP +BiuxM0Bkny6bCyNbhfbeiFuFKuHCi+9mVlD/H1L8RxtW41lPK/8XJ8tB9LFK +BvebKobO5igKF14FuZTKDQYG6ligyPywP+oKnFFjrRDbroG785iON/eWwkMZ +0zWTJzWRdtlvhWZcMbDlGjK1urXQ6MAut7CwIlgmUBSxJVEbBXLjedrZhaCQ +QDfepKKDn76nK5V5XABhZe9q5wc6iBOPHNJ6zoImR7pyv48ultStMJl7nAt7 +3og22vLpYZZLRcPBliz4NpnuanNGD+mqfjbb9E6ClVZLno2GPp51ahhP6DgO +dyeNfv14oo9HQsySev1SIUxdt+95wBpsb5sur+IlAWdsW+cmYQN8YMFnI66Z +COuUaOuXFhlg3my4hfKlQ7Aq/lhUw9q1WLGxeDS1PhpUA1j3lPvW4j53MQcT +nX0QcDfoyI1wQ/S68PFH54lwGAsd3r8uwhCDCu/s2ZgQDlHyO3d0RxriYsjn +f7UnHI4d2OU8G2uIorFj9ovdwoHLjiSMkynf7vv1Ti4cflcfvtOYZ4jqZWmW +O8p3w6nK/KkXjYYortRUm1WyC+4Vdm6bkGDhxNOePNb+nfDWnrE5ksbCJU+z +/Pw37wS+n6Gbfsmw0AllVc9b7QQzJ0GHBQQLB1OyL5nRdkLLPPZaaVUWRqh/ +0fCs3QHt/gXCpiYsfFAcmXNt3g7oUwqpyAxkYclWrZ7T54Nh6sq/H1q3WJh9 +MGt3wbzt8NHNsjC1hoXusT3/JL8FQu/849bv61i46nXnjnOvAqHOT+Zsbj0L +z2nOv/vwViAk0taw/7SxsOvG+6MNYYGwIiXkwMNXLAwI/H5hxUAAqG/v4gvg +Z6NAr0PxTOs22Kp8TThvPRv/yoVX7qr3h5hm3xCVDWwUuWYun1fpD5kBoo9I +Zzb+22hX+TzfH+6URKc/cmej76Q0PeigP4irWC//s4WN9f+ZW+sY+UOLygdx +v0g27nmWVaBRswVUV9EJlQI2+vwX/Dfnrh9MqGYZkONslD6QynvZ5wO97bhO +bJKNNgmuMVL3faA+bGxjxDQbT7DGG4Iu+0AGaRNuMMdGpZVWl9ZF+IAqm6+8 +VsAIb9gnO35a5gP+NqGMRkkjnOYbfXPPyhs6t1st6TQ2QuLvBsW9DzzhdvGv +d9MpRkiffPHB+7c7GJhH/LBNM8KV8gFhqZ/c4ea7kSWFx41QJmfrZPMLdyAV +3qy1PWWEnkmdbWFl7lB+pv54/jkj9Ch+lnbI3R0K05NYVhVG6Op67PjxajdI +jVh+8kyHEQodbG1QjHcFTwtFNFIwRh2L3FoR2Ah/OoWWNRLGmFm/YTxWfSMU +Boz12yoaY15/En1GeiN8TK7Z77nKGPfPX2osM+0Me9ocK6N1jfFif7EqUe4M +xxwOKNy2NEYXxlAfTd4Zaj26fuvvMkY/XRNe2CInkA09WqNZb4yaBVkjpwgH +yPgXuCatwRhT64OfVc13AP5TlrxPTcb4Y/6qp18/r4fh6gVlhW3GGMgZ6C/k +rYdaviNnRDuMsXJdTbC8xXrwzI7fP/PBGHU1V2s7h9rDmbroNXcXczAycvwP ++5ktSCzayVvvzsHoy6EtVzutoNj8YMz4Jg7Wxh6dF1VnBboHM8yzvDk47+xq +9CmyAodxblfvFg5eNf4StWu3FSR3T//cupODmyLdeNylVjBbFGcWk8DB1NoX +Wjn2ltBnlNVReo2DghU6aX79FhC0r/i8TQUHq2L0u4SaLWCm4mbACJeDn4V/ +3G+psABRZu8PnWoO5h39wD6caAF2QvJy/9VzcN+4UeVvVQu401m6raOLgx5P +t4y/izMH22W3NSJ7OWh1Pn2mP8Qceq3aZmj9HJTKLEoYdjWHqdqvKb5vOVg6 +XP/WQt0cNC5qX/8yzMFzobWvRl6awZ0+08j0UQ5mpLxWTG02A1vxjaA1zsEu +r8MBLJ4ZBB7d9zximoOPtednd6WYwVR9cp7ULAfF1Tp870eYQeLc6a21cxz0 +aV7ytt7PDFbol6n7/OHgoFfrwk57M8gPrZ3+94+D3vNWN8wZmsH/APBVrBo= + + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8Fe8XB3BRod1+rXfutVT2LbmX6xxL9ohs2ZIiFKUkS2UpIpKyVCok +lBL3jlLoW7JFabVGpaRNiCxJ229+f83r/Zo/5nnO+TxnZhj+u5wD+Pn4+LTn +8fH9/zrzpq1JKa3YpPhJVatXqrlJZz4t2rQ3Ebxc93S0fmUASjz1p/WeggSr +oNSCrzoQueFqj0BvEVjm9zIPfzUFkTGpUz97SNhy6/oX169OMHDHYddUTwMI +xocaNg5vAUul4dcTPS/APH7J7dTP4fCzZ23OeM8gmJam81UOJECj+eXi50WT +0M50l2TvPwVyAzUf/dX/gNDToLNCIudAfOfmq4LmAmhKmydQknYRTulY1jm4 +CmGdw974fXkl8PKMdv3EiqV46mnr7KrlZZBWHPeUX1oEI0UvqhtuKwdb/WBR +CUURpOe5JG3dXQ5CTc6uKzVEsPf8lRNHD5TDkffK/XamIrhIU4Nbk10OB5jt +H7ODRbB8Un+wuakcwgppf1VqRfAefCAOKF4Hp/M8dTsvUcy91ezv1H8dpLLf +p2ZdEEOx8PUq+vqVQFO7eWS2VAxf2B2MfsSpBJmG5DgfrhhqJxoJe1tVgsL4 +6n0rG8WQrlj0MsizEpTtd/vVfab8ZJO8Tnwl6M3/Y/BeTxylvPfqxj6sBMcI +ySHdh+J4bPt6kR/qXNiw+POb0x3iKDtvbq+rDheci2pe/n4ljufvs7Zx13DB +7Zn305Zv4rgu+PpXLxMu+KhfqvWUkEC7f+bHUh25sGNI62SinwTKW8uVmYRz +4aiLjcmLGQmcNfNrWkpyQebGExn+eZJYheUfnKq5UCHm8kNnsSS+tgz6erKW +C90vfLkn6ZKo6nWjaEEjF5ScIphO1pJ4UiWnuq6DCw3rCxY+OyuJ8y0qVvlP +ceGP5fSTx8ZS6DlXZZCry4PM0phrfyylMFVKa72bAQ+UFvKlaDhJoW+yH4iy +eWDfvMj0eIAU5lhxqg+a8iDPnKiyz5DCeMz7wtzAA0O0O/1oQAqNftNsS3fy +YC/r4ua2RBqu+Djjl1nEA9vCZVN26TTsNT03mF3CA6bggZQnOTQceGvRknOF +B8863XgdV2g41dJclV7BA83dSwTePKHhxo+nVjnW8uBz6f7S7zLSeDpoMknl +OQ+8xR1GZaukMTxnRxX9Nw/0YusS8u9I46LAV3ncvzxYNLhKktEijXFZqZ84 +80ioqRQAlZfS6AWOvPULSZC0q8nU/ieN+h+aFputIOFZgpL+OjsZ/N4stuiQ +IgkW3+Ziwt7L4AzvbreFFQnR1tmq90dksDVjjZ6HDQkVFzX6xGZk0JIdTgTZ +kUBz8WPVCMninm87Kw46kjByu/mHgKYsPolefTHOnYSsxMyIs1GyuKOzWnUg +kITW/tVKIwmySLqM19QFkfBbv7HDJE0WfX5xBrJDSAj8NK07dEEW53yOjxqH +kcC295rQbJTFZediFLftI2FQQiWsaakc0kKe2C0/TILUrnvyUlJyuGomIOTm +ERLsWz0eBxNyODq1TdkjmYTqmDT15XpyGLvUaU9WKgnHBsaHN3nI4QVresS7 +EyToltVt/1Ykh9P3ag70nyMhwdhpi4yhPGrISv+15ZFg7Zv/fa2ZPHrb+6ws +JElYFv/1sKu9PBZ3Xg+YqCLhfGNSaaafPK4gzZVSqkm4bVv7dWGqPDoHs/5L +riNh3EMxcvKlPErfNORvayLhVsxuQZEheUxusOgYaCbh0Pn/zmiOyePSQe3m +7y0kLHnrXhfMr4C/zzxctrSNhJXb0/neqipgxDFdR7HHJPjumz7WHquA90s3 +sbd3kqB82kxuOEkBtYZeR2PX/+t/4rpgpgI2XnL7JNFNQszv1c/MihUwOT7H +8SY1F3MO+0rUtCtgUUdeaEsfCd4l10q7uxXQ4vGSNQn9JDAfzK6dequAq2T2 +6Bi+IoG7KMtTa1oBhbnl7XmvSWg/+aCgRJ6O/z3glOq+pfpbJa7TuJKOLOF8 +zaeUPbu2NLzVoaOhivHk9nckfKb9HpK1pGOF16h+xiAJlWybSNYGOp5c/K5K +9j0Jkd65gu6edDRq6thTQlmgUFv1VBgdTRhHblwfIuHh/YN1lVF0dE1VY6l/ +ICHz/UP7x4l0VIgvmXeZssLKgF1Cp+m4gDGx5eRHKi8VZ28cukfH6xmWsazP +VJ57nvwZa6Wj8GH9N1mUHfjmW21+QUeecpjgV8pbncNewgc6li4V5J74QkJY +7CUmd4yOS28J67ymHFXcu4OYpWNHV37symESLGMZcfELCHwX+Gw3SfnR8juX +DBcR6P5BUn6S8oZit9bxZQTuHTfP1f5KQrfhxMgVMQI18jVfh1D2epwmsoVG +4I3uiu8XKb/domIgLU8gufFCTxflwJl6z+cMAnsKOtIXjpCwmz5zyVSNwNPv +Enb4Up6uymz9qUWgzG9ubhLlGGu1UZ4+9TzN3Jwyynyvm0VCWAT6LF8e/JBy +UrifAdOEQFmBOZHPlBct/OXZZ0ZgNdvgJP8oVc+8nLhTVgSer7r0SZqyhJZ2 +sa09tT8DRUlNynmND1v5nQjkeuTKA2W6R8BorSuBTfsH/tpTLh75J7LXk8D6 +O+9q3SmrJuQZqG2m1iud4LyZcqXEGq/3WwkUtClq2UpZ/+rTuHNBBH56rEoL +oFxrElK8MZTA4u981v+/Dx3z2xbvIfBs62J3X8pN2wtGGyMJjFupZ+lG2eY3 +S/RALIEd5Zsl7Sg/yew00I8ncG1dTKsxZRflXV4jRwj8Fh3mo0b5ZY1wfHEq +tf9O5W5Jyr4OxcXeGQTaRqXr/aPqMTRo0iaeReDjnozIIcrB+1+Otp8mUEpF +prCF8tjiCNGk8wSqesjxSijvLVy2lnORQH6lI1cTKM/ql3lNlxA4/A+Pe1I+ +1GYef/0qgT8Z5p7alAV83xQHVBK4KS5WVIByyveoNvkbBDY86q9+QfV72VGx +sa7bBL6OcrMuoEzjWq+1bCCwLDTIQIvyBYv3Xn9bCLxr/Tn7O5Uv5suD8dWP +CKRd3Tj0//xp8Fe1qXQRaK7bskmVMpm7fuzNSwJ3NdYlvKPya6j2WfT0GwI3 +V0Tn51A2c5H3FvxMIOGuVztF5f/B51vx90ao+psp1hVQtj/oXLJ/gkCxwcYb +VpTdS4+OfZojcChUMDfjEwk7ZyfiW5cy8MnZDeqz1PljhwdKfhRl4HJt6YYE +ykLDfdcEaAz88M3jhSDlkv7GbhMmA6/N27xdmDrPb+7mqN80YGDLoqKjg9R8 +KF+7qOGFEQPVulkSGyjHcA+5jyMDb0VdWllLzRPJou2JanYMzNmo9vbwAAmO +Sazei5sZWGkw1zRKzSeFv9dD721jIE1EMB8oj0QyBV4HM3D+pdiFGdQ8Swla +rEmLYKCu0Owxgpp39XavD2ekUOtxnDoqR81DXdEErVgeAy9fykgMf0adn7Tp +pjPVDPQRvDGV/pTKl0CIZ3UdA7+PSi4peULCjmnnpIlmBj7KW6X9qJ3Kf69S +//Y+Bt5h8yK+tVLrLWhNdhFgYh9ZpXa2nsqXFEdujxATW+9fzou7R/Unk8c7 +sZSJUYykZv+71H4S8149lGLisZMNLvQ71HoDduqaqjMxcddgQvgtEn6qrXij +4crEFj0B39jrJMxckEnQ82TiWl/dTfrlJEwtV1Zibaaeh6vXDV+l8jrJCrEI +ZmK0mui0/RXqfVm3dcbzIBPLNoS/Gi2i5qndrWUpJUz8VZwqVHCaOt87fGFw +momaXMnx1kMknH4dNPhpjon72q8+Yh4kIdtxb9LoPyaa9rq3RMeSkKGX8mhW +WBGFXMYU6FEkJP7iuS9XUETzYy3JVuFUfdIW7Da2VMTv3WT8iq0kGF8rL8zN +VcT3Fz/dOG5BQj9xrWDdOUWUnt/3hWtG9Tu3LH+qQBFpLn8ePEfq/ZhQet65 +jLqv9erIEg7VH4/CM8vuKGKQv55S4BoSVi/Izkx+p0itX0b8mjJV782x8ZHq +Shh681DBkfkkTIja+rk1KOE+64uJd+t40LuT+SzkgRIWr1TpYdTwoL5lDuLa +lTCNFdOeWE19/8Vco1/pVkLvbLtCDo8H2oNLBn4OK2G1eIPs6VIehPGe+lwQ +U8ZqKcNXfZk8GHZ09RrapoyOztJ+vK08GEr3c9sjqIJHaS4ff/LzwObbfpsP +BiuxM0Bkny6bCyNbhfbeiFuFKuHCi+9mVlD/H1L8RxtW41lPK/8XJ8tB9LFK +BvebKobO5igKF14FuZTKDQYG6ligyPywP+oKnFFjrRDbroG785iON/eWwkMZ +0zWTJzWRdtlvhWZcMbDlGjK1urXQ6MAut7CwIlgmUBSxJVEbBXLjedrZhaCQ +QDfepKKDn76nK5V5XABhZe9q5wc6iBOPHNJ6zoImR7pyv48ultStMJl7nAt7 +3og22vLpYZZLRcPBliz4NpnuanNGD+mqfjbb9E6ClVZLno2GPp51ahhP6DgO +dyeNfv14oo9HQsySev1SIUxdt+95wBpsb5sur+IlAWdsW+cmYQN8YMFnI66Z +COuUaOuXFhlg3my4hfKlQ7Aq/lhUw9q1WLGxeDS1PhpUA1j3lPvW4j53MQcT +nX0QcDfoyI1wQ/S68PFH54lwGAsd3r8uwhCDCu/s2ZgQDlHyO3d0RxriYsjn +f7UnHI4d2OU8G2uIorFj9ovdwoHLjiSMkynf7vv1Ti4cflcfvtOYZ4jqZWmW +O8p3w6nK/KkXjYYortRUm1WyC+4Vdm6bkGDhxNOePNb+nfDWnrE5ksbCJU+z +/Pw37wS+n6Gbfsmw0AllVc9b7QQzJ0GHBQQLB1OyL5nRdkLLPPZaaVUWRqh/ +0fCs3QHt/gXCpiYsfFAcmXNt3g7oUwqpyAxkYclWrZ7T54Nh6sq/H1q3WJh9 +MGt3wbzt8NHNsjC1hoXusT3/JL8FQu/849bv61i46nXnjnOvAqHOT+Zsbj0L +z2nOv/vwViAk0taw/7SxsOvG+6MNYYGwIiXkwMNXLAwI/H5hxUAAqG/v4gvg +Z6NAr0PxTOs22Kp8TThvPRv/yoVX7qr3h5hm3xCVDWwUuWYun1fpD5kBoo9I +Zzb+22hX+TzfH+6URKc/cmej76Q0PeigP4irWC//s4WN9f+ZW+sY+UOLygdx +v0g27nmWVaBRswVUV9EJlQI2+vwX/Dfnrh9MqGYZkONslD6QynvZ5wO97bhO +bJKNNgmuMVL3faA+bGxjxDQbT7DGG4Iu+0AGaRNuMMdGpZVWl9ZF+IAqm6+8 +VsAIb9gnO35a5gP+NqGMRkkjnOYbfXPPyhs6t1st6TQ2QuLvBsW9DzzhdvGv +d9MpRkiffPHB+7c7GJhH/LBNM8KV8gFhqZ/c4ea7kSWFx41QJmfrZPMLdyAV +3qy1PWWEnkmdbWFl7lB+pv54/jkj9Ch+lnbI3R0K05NYVhVG6Op67PjxajdI +jVh+8kyHEQodbG1QjHcFTwtFNFIwRh2L3FoR2Ah/OoWWNRLGmFm/YTxWfSMU +Boz12yoaY15/En1GeiN8TK7Z77nKGPfPX2osM+0Me9ocK6N1jfFif7EqUe4M +xxwOKNy2NEYXxlAfTd4Zaj26fuvvMkY/XRNe2CInkA09WqNZb4yaBVkjpwgH +yPgXuCatwRhT64OfVc13AP5TlrxPTcb4Y/6qp18/r4fh6gVlhW3GGMgZ6C/k +rYdaviNnRDuMsXJdTbC8xXrwzI7fP/PBGHU1V2s7h9rDmbroNXcXczAycvwP ++5ktSCzayVvvzsHoy6EtVzutoNj8YMz4Jg7Wxh6dF1VnBboHM8yzvDk47+xq +9CmyAodxblfvFg5eNf4StWu3FSR3T//cupODmyLdeNylVjBbFGcWk8DB1NoX +Wjn2ltBnlNVReo2DghU6aX79FhC0r/i8TQUHq2L0u4SaLWCm4mbACJeDn4V/ +3G+psABRZu8PnWoO5h39wD6caAF2QvJy/9VzcN+4UeVvVQu401m6raOLgx5P +t4y/izMH22W3NSJ7OWh1Pn2mP8Qceq3aZmj9HJTKLEoYdjWHqdqvKb5vOVg6 +XP/WQt0cNC5qX/8yzMFzobWvRl6awZ0+08j0UQ5mpLxWTG02A1vxjaA1zsEu +r8MBLJ4ZBB7d9zximoOPtednd6WYwVR9cp7ULAfF1Tp870eYQeLc6a21cxz0 +aV7ytt7PDFbol6n7/OHgoFfrwk57M8gPrZ3+94+D3vNWN8wZmsH/APBVrBo= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07393485870380055}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.07393485870380055}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8Fe8XB3BRod1+rXfutVT2LbmX6xxL9ohs2ZIiFKUkS2UpIpKyVCok +lBL3jlLoW7JFabVGpaRNiCxJ229+f83r/Zo/5nnO+TxnZhj+u5wD+Pn4+LTn +8fH9/zrzpq1JKa3YpPhJVatXqrlJZz4t2rQ3Ebxc93S0fmUASjz1p/WeggSr +oNSCrzoQueFqj0BvEVjm9zIPfzUFkTGpUz97SNhy6/oX169OMHDHYddUTwMI +xocaNg5vAUul4dcTPS/APH7J7dTP4fCzZ23OeM8gmJam81UOJECj+eXi50WT +0M50l2TvPwVyAzUf/dX/gNDToLNCIudAfOfmq4LmAmhKmydQknYRTulY1jm4 +CmGdw974fXkl8PKMdv3EiqV46mnr7KrlZZBWHPeUX1oEI0UvqhtuKwdb/WBR +CUURpOe5JG3dXQ5CTc6uKzVEsPf8lRNHD5TDkffK/XamIrhIU4Nbk10OB5jt +H7ODRbB8Un+wuakcwgppf1VqRfAefCAOKF4Hp/M8dTsvUcy91ezv1H8dpLLf +p2ZdEEOx8PUq+vqVQFO7eWS2VAxf2B2MfsSpBJmG5DgfrhhqJxoJe1tVgsL4 +6n0rG8WQrlj0MsizEpTtd/vVfab8ZJO8Tnwl6M3/Y/BeTxylvPfqxj6sBMcI +ySHdh+J4bPt6kR/qXNiw+POb0x3iKDtvbq+rDheci2pe/n4ljufvs7Zx13DB +7Zn305Zv4rgu+PpXLxMu+KhfqvWUkEC7f+bHUh25sGNI62SinwTKW8uVmYRz +4aiLjcmLGQmcNfNrWkpyQebGExn+eZJYheUfnKq5UCHm8kNnsSS+tgz6erKW +C90vfLkn6ZKo6nWjaEEjF5ScIphO1pJ4UiWnuq6DCw3rCxY+OyuJ8y0qVvlP +ceGP5fSTx8ZS6DlXZZCry4PM0phrfyylMFVKa72bAQ+UFvKlaDhJoW+yH4iy +eWDfvMj0eIAU5lhxqg+a8iDPnKiyz5DCeMz7wtzAA0O0O/1oQAqNftNsS3fy +YC/r4ua2RBqu+Djjl1nEA9vCZVN26TTsNT03mF3CA6bggZQnOTQceGvRknOF +B8863XgdV2g41dJclV7BA83dSwTePKHhxo+nVjnW8uBz6f7S7zLSeDpoMknl +OQ+8xR1GZaukMTxnRxX9Nw/0YusS8u9I46LAV3ncvzxYNLhKktEijXFZqZ84 +80ioqRQAlZfS6AWOvPULSZC0q8nU/ieN+h+aFputIOFZgpL+OjsZ/N4stuiQ +IgkW3+Ziwt7L4AzvbreFFQnR1tmq90dksDVjjZ6HDQkVFzX6xGZk0JIdTgTZ +kUBz8WPVCMninm87Kw46kjByu/mHgKYsPolefTHOnYSsxMyIs1GyuKOzWnUg +kITW/tVKIwmySLqM19QFkfBbv7HDJE0WfX5xBrJDSAj8NK07dEEW53yOjxqH +kcC295rQbJTFZediFLftI2FQQiWsaakc0kKe2C0/TILUrnvyUlJyuGomIOTm +ERLsWz0eBxNyODq1TdkjmYTqmDT15XpyGLvUaU9WKgnHBsaHN3nI4QVresS7 +EyToltVt/1Ykh9P3ag70nyMhwdhpi4yhPGrISv+15ZFg7Zv/fa2ZPHrb+6ws +JElYFv/1sKu9PBZ3Xg+YqCLhfGNSaaafPK4gzZVSqkm4bVv7dWGqPDoHs/5L +riNh3EMxcvKlPErfNORvayLhVsxuQZEheUxusOgYaCbh0Pn/zmiOyePSQe3m +7y0kLHnrXhfMr4C/zzxctrSNhJXb0/neqipgxDFdR7HHJPjumz7WHquA90s3 +sbd3kqB82kxuOEkBtYZeR2PX/+t/4rpgpgI2XnL7JNFNQszv1c/MihUwOT7H +8SY1F3MO+0rUtCtgUUdeaEsfCd4l10q7uxXQ4vGSNQn9JDAfzK6dequAq2T2 +6Bi+IoG7KMtTa1oBhbnl7XmvSWg/+aCgRJ6O/z3glOq+pfpbJa7TuJKOLOF8 +zaeUPbu2NLzVoaOhivHk9nckfKb9HpK1pGOF16h+xiAJlWybSNYGOp5c/K5K +9j0Jkd65gu6edDRq6thTQlmgUFv1VBgdTRhHblwfIuHh/YN1lVF0dE1VY6l/ +ICHz/UP7x4l0VIgvmXeZssLKgF1Cp+m4gDGx5eRHKi8VZ28cukfH6xmWsazP +VJ57nvwZa6Wj8GH9N1mUHfjmW21+QUeecpjgV8pbncNewgc6li4V5J74QkJY +7CUmd4yOS28J67ymHFXcu4OYpWNHV37symESLGMZcfELCHwX+Gw3SfnR8juX +DBcR6P5BUn6S8oZit9bxZQTuHTfP1f5KQrfhxMgVMQI18jVfh1D2epwmsoVG +4I3uiu8XKb/domIgLU8gufFCTxflwJl6z+cMAnsKOtIXjpCwmz5zyVSNwNPv +Enb4Up6uymz9qUWgzG9ubhLlGGu1UZ4+9TzN3Jwyynyvm0VCWAT6LF8e/JBy +UrifAdOEQFmBOZHPlBct/OXZZ0ZgNdvgJP8oVc+8nLhTVgSer7r0SZqyhJZ2 +sa09tT8DRUlNynmND1v5nQjkeuTKA2W6R8BorSuBTfsH/tpTLh75J7LXk8D6 +O+9q3SmrJuQZqG2m1iud4LyZcqXEGq/3WwkUtClq2UpZ/+rTuHNBBH56rEoL +oFxrElK8MZTA4u981v+/Dx3z2xbvIfBs62J3X8pN2wtGGyMJjFupZ+lG2eY3 +S/RALIEd5Zsl7Sg/yew00I8ncG1dTKsxZRflXV4jRwj8Fh3mo0b5ZY1wfHEq +tf9O5W5Jyr4OxcXeGQTaRqXr/aPqMTRo0iaeReDjnozIIcrB+1+Otp8mUEpF +prCF8tjiCNGk8wSqesjxSijvLVy2lnORQH6lI1cTKM/ql3lNlxA4/A+Pe1I+ +1GYef/0qgT8Z5p7alAV83xQHVBK4KS5WVIByyveoNvkbBDY86q9+QfV72VGx +sa7bBL6OcrMuoEzjWq+1bCCwLDTIQIvyBYv3Xn9bCLxr/Tn7O5Uv5suD8dWP +CKRd3Tj0//xp8Fe1qXQRaK7bskmVMpm7fuzNSwJ3NdYlvKPya6j2WfT0GwI3 +V0Tn51A2c5H3FvxMIOGuVztF5f/B51vx90ao+psp1hVQtj/oXLJ/gkCxwcYb +VpTdS4+OfZojcChUMDfjEwk7ZyfiW5cy8MnZDeqz1PljhwdKfhRl4HJt6YYE +ykLDfdcEaAz88M3jhSDlkv7GbhMmA6/N27xdmDrPb+7mqN80YGDLoqKjg9R8 +KF+7qOGFEQPVulkSGyjHcA+5jyMDb0VdWllLzRPJou2JanYMzNmo9vbwAAmO +Sazei5sZWGkw1zRKzSeFv9dD721jIE1EMB8oj0QyBV4HM3D+pdiFGdQ8Swla +rEmLYKCu0Owxgpp39XavD2ekUOtxnDoqR81DXdEErVgeAy9fykgMf0adn7Tp +pjPVDPQRvDGV/pTKl0CIZ3UdA7+PSi4peULCjmnnpIlmBj7KW6X9qJ3Kf69S +//Y+Bt5h8yK+tVLrLWhNdhFgYh9ZpXa2nsqXFEdujxATW+9fzou7R/Unk8c7 +sZSJUYykZv+71H4S8149lGLisZMNLvQ71HoDduqaqjMxcddgQvgtEn6qrXij +4crEFj0B39jrJMxckEnQ82TiWl/dTfrlJEwtV1Zibaaeh6vXDV+l8jrJCrEI +ZmK0mui0/RXqfVm3dcbzIBPLNoS/Gi2i5qndrWUpJUz8VZwqVHCaOt87fGFw +momaXMnx1kMknH4dNPhpjon72q8+Yh4kIdtxb9LoPyaa9rq3RMeSkKGX8mhW +WBGFXMYU6FEkJP7iuS9XUETzYy3JVuFUfdIW7Da2VMTv3WT8iq0kGF8rL8zN +VcT3Fz/dOG5BQj9xrWDdOUWUnt/3hWtG9Tu3LH+qQBFpLn8ePEfq/ZhQet65 +jLqv9erIEg7VH4/CM8vuKGKQv55S4BoSVi/Izkx+p0itX0b8mjJV782x8ZHq +Shh681DBkfkkTIja+rk1KOE+64uJd+t40LuT+SzkgRIWr1TpYdTwoL5lDuLa +lTCNFdOeWE19/8Vco1/pVkLvbLtCDo8H2oNLBn4OK2G1eIPs6VIehPGe+lwQ +U8ZqKcNXfZk8GHZ09RrapoyOztJ+vK08GEr3c9sjqIJHaS4ff/LzwObbfpsP +BiuxM0Bkny6bCyNbhfbeiFuFKuHCi+9mVlD/H1L8RxtW41lPK/8XJ8tB9LFK +BvebKobO5igKF14FuZTKDQYG6ligyPywP+oKnFFjrRDbroG785iON/eWwkMZ +0zWTJzWRdtlvhWZcMbDlGjK1urXQ6MAut7CwIlgmUBSxJVEbBXLjedrZhaCQ +QDfepKKDn76nK5V5XABhZe9q5wc6iBOPHNJ6zoImR7pyv48ultStMJl7nAt7 +3og22vLpYZZLRcPBliz4NpnuanNGD+mqfjbb9E6ClVZLno2GPp51ahhP6DgO +dyeNfv14oo9HQsySev1SIUxdt+95wBpsb5sur+IlAWdsW+cmYQN8YMFnI66Z +COuUaOuXFhlg3my4hfKlQ7Aq/lhUw9q1WLGxeDS1PhpUA1j3lPvW4j53MQcT +nX0QcDfoyI1wQ/S68PFH54lwGAsd3r8uwhCDCu/s2ZgQDlHyO3d0RxriYsjn +f7UnHI4d2OU8G2uIorFj9ovdwoHLjiSMkynf7vv1Ti4cflcfvtOYZ4jqZWmW +O8p3w6nK/KkXjYYortRUm1WyC+4Vdm6bkGDhxNOePNb+nfDWnrE5ksbCJU+z +/Pw37wS+n6Gbfsmw0AllVc9b7QQzJ0GHBQQLB1OyL5nRdkLLPPZaaVUWRqh/ +0fCs3QHt/gXCpiYsfFAcmXNt3g7oUwqpyAxkYclWrZ7T54Nh6sq/H1q3WJh9 +MGt3wbzt8NHNsjC1hoXusT3/JL8FQu/849bv61i46nXnjnOvAqHOT+Zsbj0L +z2nOv/vwViAk0taw/7SxsOvG+6MNYYGwIiXkwMNXLAwI/H5hxUAAqG/v4gvg +Z6NAr0PxTOs22Kp8TThvPRv/yoVX7qr3h5hm3xCVDWwUuWYun1fpD5kBoo9I +Zzb+22hX+TzfH+6URKc/cmej76Q0PeigP4irWC//s4WN9f+ZW+sY+UOLygdx +v0g27nmWVaBRswVUV9EJlQI2+vwX/Dfnrh9MqGYZkONslD6QynvZ5wO97bhO +bJKNNgmuMVL3faA+bGxjxDQbT7DGG4Iu+0AGaRNuMMdGpZVWl9ZF+IAqm6+8 +VsAIb9gnO35a5gP+NqGMRkkjnOYbfXPPyhs6t1st6TQ2QuLvBsW9DzzhdvGv +d9MpRkiffPHB+7c7GJhH/LBNM8KV8gFhqZ/c4ea7kSWFx41QJmfrZPMLdyAV +3qy1PWWEnkmdbWFl7lB+pv54/jkj9Ch+lnbI3R0K05NYVhVG6Op67PjxajdI +jVh+8kyHEQodbG1QjHcFTwtFNFIwRh2L3FoR2Ah/OoWWNRLGmFm/YTxWfSMU +Boz12yoaY15/En1GeiN8TK7Z77nKGPfPX2osM+0Me9ocK6N1jfFif7EqUe4M +xxwOKNy2NEYXxlAfTd4Zaj26fuvvMkY/XRNe2CInkA09WqNZb4yaBVkjpwgH +yPgXuCatwRhT64OfVc13AP5TlrxPTcb4Y/6qp18/r4fh6gVlhW3GGMgZ6C/k +rYdaviNnRDuMsXJdTbC8xXrwzI7fP/PBGHU1V2s7h9rDmbroNXcXczAycvwP ++5ktSCzayVvvzsHoy6EtVzutoNj8YMz4Jg7Wxh6dF1VnBboHM8yzvDk47+xq +9CmyAodxblfvFg5eNf4StWu3FSR3T//cupODmyLdeNylVjBbFGcWk8DB1NoX +Wjn2ltBnlNVReo2DghU6aX79FhC0r/i8TQUHq2L0u4SaLWCm4mbACJeDn4V/ +3G+psABRZu8PnWoO5h39wD6caAF2QvJy/9VzcN+4UeVvVQu401m6raOLgx5P +t4y/izMH22W3NSJ7OWh1Pn2mP8Qceq3aZmj9HJTKLEoYdjWHqdqvKb5vOVg6 +XP/WQt0cNC5qX/8yzMFzobWvRl6awZ0+08j0UQ5mpLxWTG02A1vxjaA1zsEu +r8MBLJ4ZBB7d9zximoOPtednd6WYwVR9cp7ULAfF1Tp870eYQeLc6a21cxz0 +aV7ytt7PDFbol6n7/OHgoFfrwk57M8gPrZ3+94+D3vNWN8wZmsH/APBVrBo= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07393485870380055}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07393485870380055}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993827322241662*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"1e4dbdc7-be9f-4f40-8ac4-b0abcf279bb0"] }, Open ]], Cell[CellGroupData[{ @@ -2633,18 +8738,76 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[100]:=",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.343644853980736`*^-167\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 100, 17, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827322369331*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"e54bee80-744b-4825-b67f-65c1448ef9f1"], -Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.923751877808069`*^-170\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 18, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827322378701*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"982290ba-219d-4aa9-aa75-549877ee598c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5790879241298566`*^-173\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 100, 19, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938273223900127`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"2a2abc06-779a-4898-a4b2-5d73557e9352"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 20, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827322398253*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"388636d4-1929-4464-9e8d-7d8a257e7db0"], + +Cell[BoxData["10.281617503720419`"], "Output", + CellChangeTimes->{3.993827368296879*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"bf07d8c6-ce19-4a12-b4c7-c6f6bb9258d2"] }, Open ]], Cell[CellGroupData[{ @@ -2711,27 +8874,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850595832054*^9, - 3.991850600247154*^9}},ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-\ -8e83e9537fdc"], + CellChangeTimes->{{3.991850595832054*^9, 3.991850600247154*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56921c73-2b67-0e4a-9808-5f61de992c7e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1987130600361978`*^-203\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 101, 21, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827368359943*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"c600277a-af8a-4a10-acaa-980efe76d09a"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.89701531966475`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 101, 22, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827368368294*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"dce518c4-5162-4d1d-b751-3d5a249c0b3b"], -Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1634846849414328`*^-212\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 101, + 23, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827368375141*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"dadae8ae-edc7-44b4-a782-91cbcb67af49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 101, 24, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827368381493*^9}, + CellLabel-> + "During evaluation of \ +In[101]:=",ExpressionUUID->"b2a79e27-f69f-409f-b7fd-d2dd9a42eb18"], + +Cell[BoxData["1.6972054246170756`"], "Output", + CellChangeTimes->{3.993827376448785*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f0bd8832-a7f4-4a6f-b41a-700e55f9c469"] }, Open ]], Cell[CellGroupData[{ @@ -2752,8 +8960,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -2798,27 +9005,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850617546938*^9, - 3.991850621692934*^9}},ExpressionUUID->"ccaee6a3-c390-0444-bf16-\ -3471356a3614"], + CellChangeTimes->{{3.991850617546938*^9, 3.991850621692934*^9}}, + CellLabel-> + "In[102]:=",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"1795c3b9-0182-224c-b986-6414d6712c04"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1987130600361978`*^-203\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 102, 25, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827376486124*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"42a1c502-f322-4343-becb-a06ed80f7202"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c3b31753-a67f-9b45-b822-068e1df11f68"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.89701531966475`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 102, 26, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827376493607*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"095e90dd-cfaf-4324-8049-fde1fb8ab4e5"], -Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1634846849414328`*^-212\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 27, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99382737650362*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"78e4cfc8-bece-4e48-8b61-392c2a3ea3a1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 102, 28, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827376513217*^9}, + CellLabel-> + "During evaluation of \ +In[102]:=",ExpressionUUID->"a8274c8e-4fb7-40b8-b4af-7cc0d622b75d"], + +Cell[BoxData["32.32726915337818`"], "Output", + CellChangeTimes->{3.9938273842592793`*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"7df67037-ac95-4daf-a266-1e384b246b72"] }, Open ]], Cell[CellGroupData[{ @@ -2839,8 +9091,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -2885,27 +9136,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918506254460773`*^9, - 3.991850628958872*^9}},ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-\ -286954db37c5"], + CellChangeTimes->{{3.9918506254460773`*^9, 3.991850628958872*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1987130600361978`*^-203\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 103, 29, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827384322981*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"abe77ecc-60c3-4bb9-847d-4e54b7410047"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4e2b22f2-1724-7649-93fc-33cd27bb415e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.89701531966475`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 103, 30, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827384332938*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"2894bf3e-4f56-47c8-bb3a-cba95048e79e"], -Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1634846849414328`*^-212\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 31, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938273843400106`*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"bde2bf10-ba2d-4d1f-8293-a63728fa2084"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 103, 32, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827384347971*^9}, + CellLabel-> + "During evaluation of \ +In[103]:=",ExpressionUUID->"f28c7ab6-7089-4919-9179-691f9c7e912a"], + +Cell[BoxData["7.129961229639215`"], "Output", + CellChangeTimes->{3.993827388884646*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"8afaaf2a-c600-41c1-aa71-0e52555b0f4b"] }, Open ]], Cell[CellGroupData[{ @@ -2914,19 +9210,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918506775260105`*^9, - 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ -20e078d734cd"], + CellChangeTimes->{{3.9918506775260105`*^9, 3.9918506840946693`*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +Cell[BoxData["0.11179086522730756`"], "Output", + CellChangeTimes->{3.993827388925003*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"2de76758-7818-4e92-9bf5-c8b70c4a4a6b"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918506873951664`*^9, 3.991850690050791*^9}, - 3.9919245116307106`*^9},ExpressionUUID->"ca329276-48d7-8943-8408-\ -dd2997d3499c"], + 3.9919245116307106`*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], Cell[CellGroupData[{ @@ -2947,10 +9247,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Il", "*", "Ih"}], - RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ -ae4b-824f-5eb2b3081f6d"], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[BoxData["4.417626424757889`"], "Output", + CellChangeTimes->{3.9938273889414577`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"56488310-10d3-490d-9acb-538a64b65977"] }, Open ]], Cell[CellGroupData[{ @@ -2958,10 +9262,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ -89cd-559587f30b91"], + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[BoxData["4.607175001845422`"], "Output", + CellChangeTimes->{3.993827388952341*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a9caffa3-53df-456f-be0e-bdb16b9997ed"] }, Open ]], Cell[CellGroupData[{ @@ -2969,10 +9277,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ -afc4-be40-8f37-0116656ecd38"], + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[BoxData["20.352778031636312`"], "Output", + CellChangeTimes->{3.993827388961787*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"4674e222-4f49-404c-8166-2d702cfb7fd5"] }, Open ]], Cell[CellGroupData[{ @@ -3160,10 +9472,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ -82a6-7cf06f61e28f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[BoxData["0.0072298516939011395`"], "Output", + CellChangeTimes->{3.9938273889752893`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"57811768-0224-44df-b9a1-73fa391cb38c"] }, Open ]], Cell[CellGroupData[{ @@ -3175,18 +9491,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"b88b1a94-\ -22d7-2843-88e3-f607b95c8af9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"def6b331-c871-b04d-a16e-4fc00b03d009"], - -Cell[BoxData["3.36857007702114`"], "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[BoxData["10.422700211924951`"], "Output", + CellChangeTimes->{3.9938273890798492`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"4ae4796e-c1dc-4218-81a0-63bff2721f32"] }, Open ]], Cell[CellGroupData[{ @@ -3376,10 +9688,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ -9b53-9472e00c4d82"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[BoxData["0.04784414168541665`"], "Output", + CellChangeTimes->{3.9938273890925913`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"88faa163-ff51-4ed6-84a8-f127f892b734"] }, Open ]], Cell[CellGroupData[{ @@ -3391,18 +9707,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"47e2a8e8-\ -6af3-374f-9eea-9c2b6faaaf4a"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c6c8676e-4601-144e-b83c-769e22949175"], - -Cell[BoxData["8.161099076568318`"], "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[BoxData["4.051637263675976`"], "Output", + CellChangeTimes->{3.99382738920787*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"9756aebd-6101-46ab-8c22-277cde20193e"] }, Open ]], Cell[CellGroupData[{ @@ -3493,10 +9805,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ -6b0985b9b3bc"], + ")"}]}]}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[BoxData["0.06383209948544989`"], "Output", + CellChangeTimes->{3.993827389217861*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"935a3328-9c9d-4951-a902-336a1a812602"] }, Open ]], Cell[CellGroupData[{ @@ -3584,10 +9900,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ -4868d83e9702"], + ")"}]}]}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[BoxData["0.93616790051455`"], "Output", + CellChangeTimes->{3.993827389228297*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"53e33109-d96a-4396-84d8-e40bb4b1dac1"] }, Open ]], Cell[CellGroupData[{ @@ -3708,10 +10028,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ -9940-98cd-9460e2c074b2"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[BoxData["0.059757562560729505`"], "Output", + CellChangeTimes->{3.993827389241143*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"a53b1938-2a27-4428-8c78-dc73cc84c86a"] }, Open ]], Cell[CellGroupData[{ @@ -3773,27 +10097,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991850710120125*^9},ExpressionUUID->"db0784f6-51d0-fd44-b0e8-\ -05d6af1a6e52"], + CellChangeTimes->{3.991850710120125*^9}, + CellLabel-> + "In[116]:=",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7fd60dea-f794-4744-8801-bfb1a50a0e07"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6742229535370675`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 116, 33, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938273892577963`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"43aff6c2-1ec3-4afe-90e5-909e5955fd74"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0b8c0718-41d2-4542-8afe-212a15805650"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.399595096044404`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 116, 34, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99382738926497*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"073da31e-8d26-4a2e-843d-99aa8e357eef"], -Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.090246688768564`*^-216\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 116, 35, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827389273119*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"0585fdc3-9a47-46f9-a7c4-4e81b5a7eb5c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 116, 36, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938273892816057`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96f85d98-f9be-474f-ac14-7ee48c02b8d2"], + +Cell[BoxData["10.422700211924951`"], "Output", + CellChangeTimes->{3.993827393460775*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"392ae60a-5c60-443c-a6a4-4100de3361f6"] }, Open ]], Cell[CellGroupData[{ @@ -3855,27 +10224,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507152152424`*^9},ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-\ -f69c33a31448"], + CellChangeTimes->{3.9918507152152424`*^9}, + CellLabel-> + "In[117]:=",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b6f0ccc2-ff83-124b-a341-e143319c7670"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6742229535370675`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 37, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827393497938*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"45ebee31-dbe4-4e57-993d-19cb46fea762"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.399595096044404`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 117, 38, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827393506543*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"c77cf42c-a87b-4fea-96cb-e24c0a5852e1"], -Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.090246688768564`*^-216\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 117, 39, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827393515174*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"241b67f4-466e-43e5-94db-01c1968c6782"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 117, 40, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99382739352282*^9}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"d8f4d6cf-59c6-4572-a9cf-4d3c8444c849"], + +Cell[BoxData["4.05163726367598`"], "Output", + CellChangeTimes->{3.993827397668016*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"75590459-3239-44fd-a9bd-1c15a258429a"] }, Open ]], Cell[CellGroupData[{ @@ -3933,489 +10347,394 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507183992805`*^9},ExpressionUUID->"611f92ea-b199-2643-9788-\ -194fae57c34e"], + CellChangeTimes->{3.9918507183992805`*^9}, + CellLabel-> + "In[118]:=",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7797a546-4085-124a-83da-5f3c472cdc4c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"ca7472ca-7b27-a54a-84a1-e603fa592207"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC -MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 -5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX -nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v -yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi -sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG -tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W -tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw -WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq -Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz -IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A -nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc -Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td -rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 -63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp -CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el -jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD -f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA -eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb -uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa -UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au -6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 -BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ -5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX -XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 -jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO -JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme -IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG -gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ -9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ -ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL -bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD -pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN -ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 -ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j -6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE -iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k -d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz -+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ -6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C -2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K -wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 -xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 -9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 -OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm -yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj -GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz -mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W -ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 -pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu -KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH -65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD -bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ -LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW -2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx -bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU -E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 -7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 -5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 -brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT -OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o -Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL -hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl -D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm -v/odiPr3KLwBMhrzH2bRmaY=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-14.8518, 0.65382, 0.693802, \ -0.00448812}},ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-\ -49e8ffb5e8c8"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc4V3scB3AjKqPsmTLrcq2M7L6frCKzSUb6+f1OqCjJpUIZbbIK9ybZ +I0QyQkqEpCi0yfod+tnrSCn364/znOf1nOd5n8845zxHjua3h8HBxsY2go+V +86k36lsqO95sf/coYSyfxUTbJ7J0aeaF6EbKy40F2H1p2xIVzWuRRc/R8hU7 +0F9z82m/QF0RviX3sUuDwhq4zNtQe0LP+iLsq00Sz8IK3iK6WHlnMfbjjlN3 +l7S6kbH4/K8SbNbn1vPBNR9RblbqlTJsKaaCC2X2FT1qLw6uwN49ed7gdNs3 +9OX+X+2PseuWWLxBBf1orz3v1SfY7y+Kn6vwHUSd7w7k1mNPcJuz5rSY6KUj +r0oTNveNk87aCyQyYf0l+Ap7o2Bqy6maEVRb+8C1A9tOmsqZMBtDBmmLsl+x +iXvyYmprJlD479qUAewwJfuoY22TyFyLFfgd+6N419aAgml05GO4+w9s+iEf +74QbM2iocMKLbZSJpu6wpT/0nUX8G198WIO9Rl5NYFprHsk/fjgghZ1Ib9gp +IEqh1S6toYrYsrnOYRoLFDpz1TZMHVtf9dLEiZof6GxyUpEZtte2b20ssyXk +72X61B97LujMKp7Nv9GkRV1oGPaFGl5j5TV/UClfXsYN7GTQv3+0bRlxVTSJ +52HTs1vM/QvY4VyeYeUgdkFTQt9FaQ5YmND4d3al3mH383E3OEBK/nY/5xgT +nVeZLyvx5YQc9spUJezEB3IKk1pcoCpz8NUJ7M8dY3V/MrkgXL3v7QVs2ZnK +Q+tEucH3fY9xInahjl282gI3mEzpQy124+Oz7Mdr1kDC2pAlgXEmmm/o/DZi +xgdy5jW7X2ML2fAJnKvjA/mw3U9HsDW7zIHfgB9CIxbyVk0wkc9Q+b2t6utA +dU9Orwn2SY42TRM+AdhX/k9nOTZTvng6ihIEjZrqwZpJPB+idW27thDoup55 +3IvNcZ+UkzglBO/5XLg4pnC92pv2FIwKgfno/WUr7ENmsQ/f9AlD4dXw0G/Y +7Z7+p8VficKTw9w5sjNM1Jsbc91jjRgkXPvZa409NlqQmW8hBhH/qcacweYJ +GOw0eiYG79Pt7duwzSP36XiUi0M1vcI1bJaJqrO2zeelSYJluFH2rzkmymL+ +DDQMkIFruEGbH0y0a//l3tNFMiBPSmqGY481ClsWkTIQZz7dXomtk6UqKuu8 +EXRjvCwUF/E8ae5lXNs3wWBU+mqOn0w0M9n3z0iELJyDy6yOX0wkfML8UZmt +PFzM+aNTu8xEZBaPl4OPPPSnZDr9wa762iE9fkkehjtrBoGNRK42bhGbn8mD +gpitZjN21t+Be1K0FODOdsXMj+wk0mHlToWKK0L1aoPpdatItO8or5p1vxII +WCkav1xDIhS4X+vgbyUoaU5vEFtLIpWoND265GbQlGsppmOzZWqbhjpuhk8a +4iXsPCQq6nU5+LB+M7C9m3cHXhJxHyi8KJWxBRpvnfHr4CdRlbntexZNGfqn +fnsbCZMoc2/Sl4VQZQhjXvW5hR1D6+9b9Z8yCEazt09i0y+cGd3YqQweY7UN +2SIkEqxNZdtrpgIWmpmuYmIk8tGeUKlR+BtMIjTseCRJJC1/M+z6kCpEu7wG +k00kqr02p7zIoQay3OpBhdius85dhJwamIqdV9ogS6K7jYrKpu5qsGQ33r+E +LX+0+t2PD2pQoBI20CCP+y1kKhGv1CFyypTLazOJZKQ3ErLOmrDgsjyyRp1E +qtkBfL+QFrz5d2CqaDuJaPSIeTU7LRjJLNu/FZEoWSG+18NVC/7145Qvx+bM +eFDSFKQFlKHq9BMg0ee7rH3xpVpw5OZv7y5TEl1N9khVVtCGn5UhLSI7SURe +t1F34taBvFYnh0F7EqX7KzqUt+kC95co2yoaiToCkV5ktgGw7eKeV4wjkZx7 +t53bcRP4+MnLEppIxFiuKJYJBqjzM9O7/YdE4qNVq8Vppvj5zLJXMxtGAdrG +X+NVzMHJdey/A9eGEW18qUWYZQE3iguiv74fRkWmp1ente+EjK0n2KK3jqCs +OZ/6wkQrEPjvoeGp6BH0Y4fE68aw3cDzPdJ0/eII6mHjnO4/Ygs7yru7B3y+ +I98NfrEXFewhvifKkP71Oyr2bnl2K8oBJG9LrI0+zEJnZyUX/vZ2hL2hbEtX ++llo3tryQPPhPRB1ySMsOXAUGbjE7WA67oX4/vx6NcEx9E4y1adRex9w1KTX +ZuSNIamciNq8v/bDZqtut7h946iqT8XGjv8AqNsOzcosjaONXVNHA8cPwMWm +kqGinAmkfSuuMLPvIOx3qDf2ICZR6qpZ9fgGJ8hNndK/sn4KVezQ+Bz12BmY +Lnfp/wROoWS9a4JLBYdAqt/7+JreKdT+JfuS9g0XuDGiF3oeplG57R3Fkxdc +QWKbo2Fr4TSaPrGXzZfuBlf8Z53eCc2geUtlrwkzd4j1Ws2r8c8Myhv/9OP0 +tsNQ8rL56ZvBGeSUnu3pxucByneXTPR3zaKyh7sPc172gNJIEDIum0UG0u8W +ry56gI7/q6QMkTmk0Hf081vvI2D9TTT/x8k5NMR7zP7O4BHQFNxSUtIxhzpi +7Dx37qdB5yX/VcuK8ygxKI33TAcN1K13MIeD51Ft3fKip5Un5Ogp73/5Yh6t +d4XL2tWeIJaYISvMRSFZkeb2DbWewGpxSxThppBmm60Ed50nHL550F90NYX2 +GLvkf6z3hIpgjeOiaymUuCHwVchLT3hzJ95xHT+FpHrur2/56AlBIZGPBkUo +pOgunuy64Al6s3LHpBUpZOAxkRelQwcOs7GTZUChnJSp03bb6JBCWnqE7aCQ +SOfMdnF9OvjNCT63NqXQhMVCV54RHSI/Hf76zYzC3y829jZTOnRfKjrKuZNC +6xYEnYUc6cBuOl2pYUuhoWjdtWkn6OCoPWi4wZlCMTXnvaty6HDK2m7B2I9C +J7SSDILy6FCzyVyqH9smv3StfgEdyhfzCiNPUognicyvLML3U7fc1HqKQlH+ +DqyKR3QwEryobxdAofPKisfKn2M3f5U1CqaQT9Kr4w97cT1Pj/zOCaeQ1TrS +2L+PDg4Oyt36ERT6K4qNX2uADtHlzyVasUl/3aJSJh3y538PsCIpdMQubbxk +jA6HKu9dULpMISeu074PfuJ+OtDL0OsU2nla6mShGAPeBl/7/CyBQs/TLlnH +SzBAf3bTU+tEChm3zSgGSTHg2qnQ6U5sTaVXn8w2MiBWfwMaukUhyQ/nzL4o +MSDN7vrZpSQKjRr2iPHoMkCpeZsT7x0K3eS49+ToXgZ0h8eT6Zm4fw2+ZNv9 +DFAV690tmkWhSJcgf+2DDHA95P3rMnbQI4cty4cYcHb6g/6xbFw/wR53m8YA +oT4bFeVcCmm30ugvTjFg7F3n2/ACCn2IU+JViGXA67mA6MISChUjfq+ROFy/ +qsgARynOH59rLEpgwNXG4VtO2FpWjaH6SQzgzByR4niI98fmOWN7lwHjRWHJ +tmUUsvS79ymokIH/D3r2NpVTSEbmyrbtxQwIviudKFRBoblWvwTOEgbwqcdo +uWNnbEa2MWUMmEvqvjqL/bun51lmNQMcvuy5J1ZFoUc20nlvWhgw/zDZY3s1 +ha7/5OBKbGVARjA95AI2LY91xLmNAZkxkQv12AKrqqWH2hlA9kdzmtVQ6HiN +083F9wx49uFIsEkthRRUbgcqMhmwbsn1rXAdhX5+COn8TjIgYe7uk93YHVEM +zQcjDFhdEMAdgR3ar8MyGMP9XnlQNIn9ObnTzX6WAV+f6jnWP6VQ/GpBi7Ps +BOywTx+0qKdQ7UyPSwAnAdleY5+CsId7Cvx9uQhQ5njJeR/b+JH5PdpaAji0 +uWb4nuPnzSPol7UgAUN/DPSasQVsLIQshAmQU33WMottpCekjEQJaJ4Jjt7U +QKFY/sID2pIETIi7lQRgG1V/K5WWI0CTVndItJFCRHZhi6gCAX9SaiONsGNj +g7+tVyKgQSm13wObJIT5VykTMOnUp52/cl14p9eYJgEiSkEGmi8oVP1HOIzU +IkAnLnbRHpv5ve9Wnw4B16ssx3yxDZ+dbejSJ+Bl6QnvAuyh48UbnwABjKdf +6sWb8PvudE630hTXJygmthXbwGyXTak5AVtMKu5YYcdIDgRn7yIgYG79jiDs +qlUPYtOsCXAcfeIegz04eS43xYaAuNjq4kxs/SbR7mgHArjGrzFfYdNKB0Yv +7yHAKHdfWy929J0HHOH7COgXdWZOYQ/4W2kGOhGguoutWKiZQvzuYjtPHiKA +lvuvmzy2vtWgm48rnteMO9qKHb0p5Lq7BwF1ZQdSbLCreKwznGgEjLtHCDpj +D8yLPd5DJyDSva2GvpLXP9huQxAQ06ae7LeS11ZCWnoRoEfl5gRj0ypDfoMP +AW0uusPhK/kZ1iJGxwnoLOlyvr6SHy3+t64v3veXiD/xK/lBQzs0ThLQSkF3 +CjYfvdRJ2Z+Ay3Y8vWnYevahfgoBeB+evRLZK/mGuy/JBBKgOFITlY99Q0ki +VTyIgK6GdMUi7AoBZpngWbzf9TfnH2D3/ypt5T2P5ysZ8aN0JX84tJ8rlAB2 +jxC1Muxt73b/WA4jQDcpJHHF/wMQxSZ1 + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc4V3scB3AjKqPsmTLrcq2M7L6frCKzSUb6+f1OqCjJpUIZbbIK9ybZ +I0QyQkqEpCi0yfod+tnrSCn364/znOf1nOd5n8845zxHjua3h8HBxsY2go+V +86k36lsqO95sf/coYSyfxUTbJ7J0aeaF6EbKy40F2H1p2xIVzWuRRc/R8hU7 +0F9z82m/QF0RviX3sUuDwhq4zNtQe0LP+iLsq00Sz8IK3iK6WHlnMfbjjlN3 +l7S6kbH4/K8SbNbn1vPBNR9RblbqlTJsKaaCC2X2FT1qLw6uwN49ed7gdNs3 +9OX+X+2PseuWWLxBBf1orz3v1SfY7y+Kn6vwHUSd7w7k1mNPcJuz5rSY6KUj +r0oTNveNk87aCyQyYf0l+Ap7o2Bqy6maEVRb+8C1A9tOmsqZMBtDBmmLsl+x +iXvyYmprJlD479qUAewwJfuoY22TyFyLFfgd+6N419aAgml05GO4+w9s+iEf +74QbM2iocMKLbZSJpu6wpT/0nUX8G198WIO9Rl5NYFprHsk/fjgghZ1Ib9gp +IEqh1S6toYrYsrnOYRoLFDpz1TZMHVtf9dLEiZof6GxyUpEZtte2b20ssyXk +72X61B97LujMKp7Nv9GkRV1oGPaFGl5j5TV/UClfXsYN7GTQv3+0bRlxVTSJ +52HTs1vM/QvY4VyeYeUgdkFTQt9FaQ5YmND4d3al3mH383E3OEBK/nY/5xgT +nVeZLyvx5YQc9spUJezEB3IKk1pcoCpz8NUJ7M8dY3V/MrkgXL3v7QVs2ZnK +Q+tEucH3fY9xInahjl282gI3mEzpQy124+Oz7Mdr1kDC2pAlgXEmmm/o/DZi +xgdy5jW7X2ML2fAJnKvjA/mw3U9HsDW7zIHfgB9CIxbyVk0wkc9Q+b2t6utA +dU9Orwn2SY42TRM+AdhX/k9nOTZTvng6ihIEjZrqwZpJPB+idW27thDoup55 +3IvNcZ+UkzglBO/5XLg4pnC92pv2FIwKgfno/WUr7ENmsQ/f9AlD4dXw0G/Y +7Z7+p8VficKTw9w5sjNM1Jsbc91jjRgkXPvZa409NlqQmW8hBhH/qcacweYJ +GOw0eiYG79Pt7duwzSP36XiUi0M1vcI1bJaJqrO2zeelSYJluFH2rzkmymL+ +DDQMkIFruEGbH0y0a//l3tNFMiBPSmqGY481ClsWkTIQZz7dXomtk6UqKuu8 +EXRjvCwUF/E8ae5lXNs3wWBU+mqOn0w0M9n3z0iELJyDy6yOX0wkfML8UZmt +PFzM+aNTu8xEZBaPl4OPPPSnZDr9wa762iE9fkkehjtrBoGNRK42bhGbn8mD +gpitZjN21t+Be1K0FODOdsXMj+wk0mHlToWKK0L1aoPpdatItO8or5p1vxII +WCkav1xDIhS4X+vgbyUoaU5vEFtLIpWoND265GbQlGsppmOzZWqbhjpuhk8a +4iXsPCQq6nU5+LB+M7C9m3cHXhJxHyi8KJWxBRpvnfHr4CdRlbntexZNGfqn +fnsbCZMoc2/Sl4VQZQhjXvW5hR1D6+9b9Z8yCEazt09i0y+cGd3YqQweY7UN +2SIkEqxNZdtrpgIWmpmuYmIk8tGeUKlR+BtMIjTseCRJJC1/M+z6kCpEu7wG +k00kqr02p7zIoQay3OpBhdius85dhJwamIqdV9ogS6K7jYrKpu5qsGQ33r+E +LX+0+t2PD2pQoBI20CCP+y1kKhGv1CFyypTLazOJZKQ3ErLOmrDgsjyyRp1E +qtkBfL+QFrz5d2CqaDuJaPSIeTU7LRjJLNu/FZEoWSG+18NVC/7145Qvx+bM +eFDSFKQFlKHq9BMg0ee7rH3xpVpw5OZv7y5TEl1N9khVVtCGn5UhLSI7SURe +t1F34taBvFYnh0F7EqX7KzqUt+kC95co2yoaiToCkV5ktgGw7eKeV4wjkZx7 +t53bcRP4+MnLEppIxFiuKJYJBqjzM9O7/YdE4qNVq8Vppvj5zLJXMxtGAdrG +X+NVzMHJdey/A9eGEW18qUWYZQE3iguiv74fRkWmp1ente+EjK0n2KK3jqCs +OZ/6wkQrEPjvoeGp6BH0Y4fE68aw3cDzPdJ0/eII6mHjnO4/Ygs7yru7B3y+ +I98NfrEXFewhvifKkP71Oyr2bnl2K8oBJG9LrI0+zEJnZyUX/vZ2hL2hbEtX ++llo3tryQPPhPRB1ySMsOXAUGbjE7WA67oX4/vx6NcEx9E4y1adRex9w1KTX +ZuSNIamciNq8v/bDZqtut7h946iqT8XGjv8AqNsOzcosjaONXVNHA8cPwMWm +kqGinAmkfSuuMLPvIOx3qDf2ICZR6qpZ9fgGJ8hNndK/sn4KVezQ+Bz12BmY +Lnfp/wROoWS9a4JLBYdAqt/7+JreKdT+JfuS9g0XuDGiF3oeplG57R3Fkxdc +QWKbo2Fr4TSaPrGXzZfuBlf8Z53eCc2geUtlrwkzd4j1Ws2r8c8Myhv/9OP0 +tsNQ8rL56ZvBGeSUnu3pxucByneXTPR3zaKyh7sPc172gNJIEDIum0UG0u8W +ry56gI7/q6QMkTmk0Hf081vvI2D9TTT/x8k5NMR7zP7O4BHQFNxSUtIxhzpi +7Dx37qdB5yX/VcuK8ygxKI33TAcN1K13MIeD51Ft3fKip5Un5Ogp73/5Yh6t +d4XL2tWeIJaYISvMRSFZkeb2DbWewGpxSxThppBmm60Ed50nHL550F90NYX2 +GLvkf6z3hIpgjeOiaymUuCHwVchLT3hzJ95xHT+FpHrur2/56AlBIZGPBkUo +pOgunuy64Al6s3LHpBUpZOAxkRelQwcOs7GTZUChnJSp03bb6JBCWnqE7aCQ +SOfMdnF9OvjNCT63NqXQhMVCV54RHSI/Hf76zYzC3y829jZTOnRfKjrKuZNC +6xYEnYUc6cBuOl2pYUuhoWjdtWkn6OCoPWi4wZlCMTXnvaty6HDK2m7B2I9C +J7SSDILy6FCzyVyqH9smv3StfgEdyhfzCiNPUognicyvLML3U7fc1HqKQlH+ +DqyKR3QwEryobxdAofPKisfKn2M3f5U1CqaQT9Kr4w97cT1Pj/zOCaeQ1TrS +2L+PDg4Oyt36ERT6K4qNX2uADtHlzyVasUl/3aJSJh3y538PsCIpdMQubbxk +jA6HKu9dULpMISeu074PfuJ+OtDL0OsU2nla6mShGAPeBl/7/CyBQs/TLlnH +SzBAf3bTU+tEChm3zSgGSTHg2qnQ6U5sTaVXn8w2MiBWfwMaukUhyQ/nzL4o +MSDN7vrZpSQKjRr2iPHoMkCpeZsT7x0K3eS49+ToXgZ0h8eT6Zm4fw2+ZNv9 +DFAV690tmkWhSJcgf+2DDHA95P3rMnbQI4cty4cYcHb6g/6xbFw/wR53m8YA +oT4bFeVcCmm30ugvTjFg7F3n2/ACCn2IU+JViGXA67mA6MISChUjfq+ROFy/ +qsgARynOH59rLEpgwNXG4VtO2FpWjaH6SQzgzByR4niI98fmOWN7lwHjRWHJ +tmUUsvS79ymokIH/D3r2NpVTSEbmyrbtxQwIviudKFRBoblWvwTOEgbwqcdo +uWNnbEa2MWUMmEvqvjqL/bun51lmNQMcvuy5J1ZFoUc20nlvWhgw/zDZY3s1 +ha7/5OBKbGVARjA95AI2LY91xLmNAZkxkQv12AKrqqWH2hlA9kdzmtVQ6HiN +083F9wx49uFIsEkthRRUbgcqMhmwbsn1rXAdhX5+COn8TjIgYe7uk93YHVEM +zQcjDFhdEMAdgR3ar8MyGMP9XnlQNIn9ObnTzX6WAV+f6jnWP6VQ/GpBi7Ps +BOywTx+0qKdQ7UyPSwAnAdleY5+CsId7Cvx9uQhQ5njJeR/b+JH5PdpaAji0 +uWb4nuPnzSPol7UgAUN/DPSasQVsLIQshAmQU33WMottpCekjEQJaJ4Jjt7U +QKFY/sID2pIETIi7lQRgG1V/K5WWI0CTVndItJFCRHZhi6gCAX9SaiONsGNj +g7+tVyKgQSm13wObJIT5VykTMOnUp52/cl14p9eYJgEiSkEGmi8oVP1HOIzU +IkAnLnbRHpv5ve9Wnw4B16ssx3yxDZ+dbejSJ+Bl6QnvAuyh48UbnwABjKdf +6sWb8PvudE630hTXJygmthXbwGyXTak5AVtMKu5YYcdIDgRn7yIgYG79jiDs +qlUPYtOsCXAcfeIegz04eS43xYaAuNjq4kxs/SbR7mgHArjGrzFfYdNKB0Yv +7yHAKHdfWy929J0HHOH7COgXdWZOYQ/4W2kGOhGguoutWKiZQvzuYjtPHiKA +lvuvmzy2vtWgm48rnteMO9qKHb0p5Lq7BwF1ZQdSbLCreKwznGgEjLtHCDpj +D8yLPd5DJyDSva2GvpLXP9huQxAQ06ae7LeS11ZCWnoRoEfl5gRj0ypDfoMP +AW0uusPhK/kZ1iJGxwnoLOlyvr6SHy3+t64v3veXiD/xK/lBQzs0ThLQSkF3 +CjYfvdRJ2Z+Ay3Y8vWnYevahfgoBeB+evRLZK/mGuy/JBBKgOFITlY99Q0ki +VTyIgK6GdMUi7AoBZpngWbzf9TfnH2D3/ypt5T2P5ysZ8aN0JX84tJ8rlAB2 +jxC1Muxt73b/WA4jQDcpJHHF/wMQxSZ1 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6848954792636965, + 1.4237552452481854`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6848954792636981}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.6848954792636965, + 1.4237552452481854`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6848954792636981}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc4V3scB3AjKqPsmTLrcq2M7L6frCKzSUb6+f1OqCjJpUIZbbIK9ybZ +I0QyQkqEpCi0yfod+tnrSCn364/znOf1nOd5n8845zxHjua3h8HBxsY2go+V +86k36lsqO95sf/coYSyfxUTbJ7J0aeaF6EbKy40F2H1p2xIVzWuRRc/R8hU7 +0F9z82m/QF0RviX3sUuDwhq4zNtQe0LP+iLsq00Sz8IK3iK6WHlnMfbjjlN3 +l7S6kbH4/K8SbNbn1vPBNR9RblbqlTJsKaaCC2X2FT1qLw6uwN49ed7gdNs3 +9OX+X+2PseuWWLxBBf1orz3v1SfY7y+Kn6vwHUSd7w7k1mNPcJuz5rSY6KUj +r0oTNveNk87aCyQyYf0l+Ap7o2Bqy6maEVRb+8C1A9tOmsqZMBtDBmmLsl+x +iXvyYmprJlD479qUAewwJfuoY22TyFyLFfgd+6N419aAgml05GO4+w9s+iEf +74QbM2iocMKLbZSJpu6wpT/0nUX8G198WIO9Rl5NYFprHsk/fjgghZ1Ib9gp +IEqh1S6toYrYsrnOYRoLFDpz1TZMHVtf9dLEiZof6GxyUpEZtte2b20ssyXk +72X61B97LujMKp7Nv9GkRV1oGPaFGl5j5TV/UClfXsYN7GTQv3+0bRlxVTSJ +52HTs1vM/QvY4VyeYeUgdkFTQt9FaQ5YmND4d3al3mH383E3OEBK/nY/5xgT +nVeZLyvx5YQc9spUJezEB3IKk1pcoCpz8NUJ7M8dY3V/MrkgXL3v7QVs2ZnK +Q+tEucH3fY9xInahjl282gI3mEzpQy124+Oz7Mdr1kDC2pAlgXEmmm/o/DZi +xgdy5jW7X2ML2fAJnKvjA/mw3U9HsDW7zIHfgB9CIxbyVk0wkc9Q+b2t6utA +dU9Orwn2SY42TRM+AdhX/k9nOTZTvng6ihIEjZrqwZpJPB+idW27thDoup55 +3IvNcZ+UkzglBO/5XLg4pnC92pv2FIwKgfno/WUr7ENmsQ/f9AlD4dXw0G/Y +7Z7+p8VficKTw9w5sjNM1Jsbc91jjRgkXPvZa409NlqQmW8hBhH/qcacweYJ +GOw0eiYG79Pt7duwzSP36XiUi0M1vcI1bJaJqrO2zeelSYJluFH2rzkmymL+ +DDQMkIFruEGbH0y0a//l3tNFMiBPSmqGY481ClsWkTIQZz7dXomtk6UqKuu8 +EXRjvCwUF/E8ae5lXNs3wWBU+mqOn0w0M9n3z0iELJyDy6yOX0wkfML8UZmt +PFzM+aNTu8xEZBaPl4OPPPSnZDr9wa762iE9fkkehjtrBoGNRK42bhGbn8mD +gpitZjN21t+Be1K0FODOdsXMj+wk0mHlToWKK0L1aoPpdatItO8or5p1vxII +WCkav1xDIhS4X+vgbyUoaU5vEFtLIpWoND265GbQlGsppmOzZWqbhjpuhk8a +4iXsPCQq6nU5+LB+M7C9m3cHXhJxHyi8KJWxBRpvnfHr4CdRlbntexZNGfqn +fnsbCZMoc2/Sl4VQZQhjXvW5hR1D6+9b9Z8yCEazt09i0y+cGd3YqQweY7UN +2SIkEqxNZdtrpgIWmpmuYmIk8tGeUKlR+BtMIjTseCRJJC1/M+z6kCpEu7wG +k00kqr02p7zIoQay3OpBhdius85dhJwamIqdV9ogS6K7jYrKpu5qsGQ33r+E +LX+0+t2PD2pQoBI20CCP+y1kKhGv1CFyypTLazOJZKQ3ErLOmrDgsjyyRp1E +qtkBfL+QFrz5d2CqaDuJaPSIeTU7LRjJLNu/FZEoWSG+18NVC/7145Qvx+bM +eFDSFKQFlKHq9BMg0ee7rH3xpVpw5OZv7y5TEl1N9khVVtCGn5UhLSI7SURe +t1F34taBvFYnh0F7EqX7KzqUt+kC95co2yoaiToCkV5ktgGw7eKeV4wjkZx7 +t53bcRP4+MnLEppIxFiuKJYJBqjzM9O7/YdE4qNVq8Vppvj5zLJXMxtGAdrG +X+NVzMHJdey/A9eGEW18qUWYZQE3iguiv74fRkWmp1ente+EjK0n2KK3jqCs +OZ/6wkQrEPjvoeGp6BH0Y4fE68aw3cDzPdJ0/eII6mHjnO4/Ygs7yru7B3y+ +I98NfrEXFewhvifKkP71Oyr2bnl2K8oBJG9LrI0+zEJnZyUX/vZ2hL2hbEtX ++llo3tryQPPhPRB1ySMsOXAUGbjE7WA67oX4/vx6NcEx9E4y1adRex9w1KTX +ZuSNIamciNq8v/bDZqtut7h946iqT8XGjv8AqNsOzcosjaONXVNHA8cPwMWm +kqGinAmkfSuuMLPvIOx3qDf2ICZR6qpZ9fgGJ8hNndK/sn4KVezQ+Bz12BmY +Lnfp/wROoWS9a4JLBYdAqt/7+JreKdT+JfuS9g0XuDGiF3oeplG57R3Fkxdc +QWKbo2Fr4TSaPrGXzZfuBlf8Z53eCc2geUtlrwkzd4j1Ws2r8c8Myhv/9OP0 +tsNQ8rL56ZvBGeSUnu3pxucByneXTPR3zaKyh7sPc172gNJIEDIum0UG0u8W +ry56gI7/q6QMkTmk0Hf081vvI2D9TTT/x8k5NMR7zP7O4BHQFNxSUtIxhzpi +7Dx37qdB5yX/VcuK8ygxKI33TAcN1K13MIeD51Ft3fKip5Un5Ogp73/5Yh6t +d4XL2tWeIJaYISvMRSFZkeb2DbWewGpxSxThppBmm60Ed50nHL550F90NYX2 +GLvkf6z3hIpgjeOiaymUuCHwVchLT3hzJ95xHT+FpHrur2/56AlBIZGPBkUo +pOgunuy64Al6s3LHpBUpZOAxkRelQwcOs7GTZUChnJSp03bb6JBCWnqE7aCQ +SOfMdnF9OvjNCT63NqXQhMVCV54RHSI/Hf76zYzC3y829jZTOnRfKjrKuZNC +6xYEnYUc6cBuOl2pYUuhoWjdtWkn6OCoPWi4wZlCMTXnvaty6HDK2m7B2I9C +J7SSDILy6FCzyVyqH9smv3StfgEdyhfzCiNPUognicyvLML3U7fc1HqKQlH+ +DqyKR3QwEryobxdAofPKisfKn2M3f5U1CqaQT9Kr4w97cT1Pj/zOCaeQ1TrS +2L+PDg4Oyt36ERT6K4qNX2uADtHlzyVasUl/3aJSJh3y538PsCIpdMQubbxk +jA6HKu9dULpMISeu074PfuJ+OtDL0OsU2nla6mShGAPeBl/7/CyBQs/TLlnH +SzBAf3bTU+tEChm3zSgGSTHg2qnQ6U5sTaVXn8w2MiBWfwMaukUhyQ/nzL4o +MSDN7vrZpSQKjRr2iPHoMkCpeZsT7x0K3eS49+ToXgZ0h8eT6Zm4fw2+ZNv9 +DFAV690tmkWhSJcgf+2DDHA95P3rMnbQI4cty4cYcHb6g/6xbFw/wR53m8YA +oT4bFeVcCmm30ugvTjFg7F3n2/ACCn2IU+JViGXA67mA6MISChUjfq+ROFy/ +qsgARynOH59rLEpgwNXG4VtO2FpWjaH6SQzgzByR4niI98fmOWN7lwHjRWHJ +tmUUsvS79ymokIH/D3r2NpVTSEbmyrbtxQwIviudKFRBoblWvwTOEgbwqcdo +uWNnbEa2MWUMmEvqvjqL/bun51lmNQMcvuy5J1ZFoUc20nlvWhgw/zDZY3s1 +ha7/5OBKbGVARjA95AI2LY91xLmNAZkxkQv12AKrqqWH2hlA9kdzmtVQ6HiN +083F9wx49uFIsEkthRRUbgcqMhmwbsn1rXAdhX5+COn8TjIgYe7uk93YHVEM +zQcjDFhdEMAdgR3ar8MyGMP9XnlQNIn9ObnTzX6WAV+f6jnWP6VQ/GpBi7Ps +BOywTx+0qKdQ7UyPSwAnAdleY5+CsId7Cvx9uQhQ5njJeR/b+JH5PdpaAji0 +uWb4nuPnzSPol7UgAUN/DPSasQVsLIQshAmQU33WMottpCekjEQJaJ4Jjt7U +QKFY/sID2pIETIi7lQRgG1V/K5WWI0CTVndItJFCRHZhi6gCAX9SaiONsGNj +g7+tVyKgQSm13wObJIT5VykTMOnUp52/cl14p9eYJgEiSkEGmi8oVP1HOIzU +IkAnLnbRHpv5ve9Wnw4B16ssx3yxDZ+dbejSJ+Bl6QnvAuyh48UbnwABjKdf +6sWb8PvudE630hTXJygmthXbwGyXTak5AVtMKu5YYcdIDgRn7yIgYG79jiDs +qlUPYtOsCXAcfeIegz04eS43xYaAuNjq4kxs/SbR7mgHArjGrzFfYdNKB0Yv +7yHAKHdfWy929J0HHOH7COgXdWZOYQ/4W2kGOhGguoutWKiZQvzuYjtPHiKA +lvuvmzy2vtWgm48rnteMO9qKHb0p5Lq7BwF1ZQdSbLCreKwznGgEjLtHCDpj +D8yLPd5DJyDSva2GvpLXP9huQxAQ06ae7LeS11ZCWnoRoEfl5gRj0ypDfoMP +AW0uusPhK/kZ1iJGxwnoLOlyvr6SHy3+t64v3veXiD/xK/lBQzs0ThLQSkF3 +CjYfvdRJ2Z+Ay3Y8vWnYevahfgoBeB+evRLZK/mGuy/JBBKgOFITlY99Q0ki +VTyIgK6GdMUi7AoBZpngWbzf9TfnH2D3/ypt5T2P5ysZ8aN0JX84tJ8rlAB2 +jxC1Muxt73b/WA4jQDcpJHHF/wMQxSZ1 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6848954792636965, 1.4237552452481854`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6848954792636981}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.6848954792636981}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6848954792636965, 1.4237552452481854`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938276839702053`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"1c4eaf69-0d15-4830-8fdd-082f1abb8ee3"] }, Open ]], Cell[CellGroupData[{ @@ -4478,427 +10797,1075 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918507211663303`*^9, - 3.991850725479061*^9}},ExpressionUUID->"f4c3d53a-1214-a145-beb0-\ -494cdae35e56"], + CellChangeTimes->{{3.9918507211663303`*^9, 3.991850725479061*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b9265795-17b8-4e47-bd29-fee31586537e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3096947132839227`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 119, + 41, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827684114861*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"c8611f2a-0531-4690-96a3-6382ec1c417b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"072fb53f-7116-0f41-a298-6891351a3192"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.932353336506771`*^-279\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 119, 42, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827684121694*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"13827ece-c377-454c-a9f5-87d047dbda54"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.53241513465825`*^-290\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 119, 43, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993827684129916*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"737d473a-8b4e-4095-bf3b-ca708940bfe9"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ -GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM -b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ -1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 -9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX -KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 -1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu -UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV -Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX -r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO -rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q -pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq -b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk -+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj -oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi -z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp -jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd -dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw -cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 -Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe -TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj -UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE -/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM -opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 -RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ -u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y -XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV -nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi -T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 -OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U -ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY -E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S -Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT -vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ -zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO -nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm -oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU -fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd -G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han -eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao -n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv -6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 -gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF -hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 -d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS -0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 -bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 -wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF -7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 -ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe -37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg -X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu -TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 -CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 -FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX -A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs -LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr -AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo -2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr -rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 -1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 -dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO -endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 -mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK -Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-1.61617, -0.0100934, 0.0591342, \ -0.000698765}},ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 119, 44, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938276841375237`*^9}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"92da8ec8-de40-417e-bdc8-dbc3eb243789"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ -87bc9c72594a"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1mk4VG8bAHCRooQQYz8zlsqaJZphuu8U2QuJkF1KspQokqVEWZJKkiyF +bDFzKmXpn0i2SguSSqSNkBJRyXveT+f6fTjnea57PXTvYHs/Xh4eHtoCHp7/ +P6f72x4oJxeur8kQWjrKu3F9Vy7t8IbeeFiY2ckfEUIHXNHpTevNAIGBuk+2 +IToQvrXsJV/vFWCunj6qF7IBlo9LZcy+JGFX+K4AgRA7eFdvG/zzZSMsdJXw +jA72AjPlkbffXz6HMBU7Xu99oTD70vD8xMv3ICYd6DPvGwdNG68VPrsyCYqW +2f9OzZ4BuXc1n7w15kCk3y/QxDUbJAI9yhZv5MPBXTsnZ6QKIEPHrM7WUQAv +Fto2NYgUwausNQ3fRZfh46Z6ut6BEkgujOnklV6OnicCTW7WloPUuaGTZy+L +Y+J1y3Wf4yuBpn7r+EyxOL4oTxIOTKkEmcYTMTs54jgsxQoeOV8JChOrD65s +Ekfmdv2OFyWVoGId4ln3RRxFujmPnJ9Ugt7COYMhPQn8439yWo1WBVvCJD/o +tkugenaK95fiKkjcZrH++fQKvFKz6ZCFMwdkbj6R4V0gic2p/BJpbhyoFN/2 +S2epJAYF6N1/4smBnufunDOKknhKHmw37eGAsl0Yw85cEiWvWa3iieRAo03e +oqcXJfG7yd9TtdkcmDObevLYWApX5+s8N3zFgfTiyPI5MynkVlZNzr2h3l/E +k6RpR1m8R65hgAPWzUs2pPpJIW+eZcK6LxzI3kjcsE6TQvPa4NLZaQ6sQ6sL +He+kcORYJu2uOBcOMAs82uJp+PTtde5mSy5Y5gv/tEqhYf0aYmi7DRcYi48k +PTlPw+fuVy95b+XC067t3BclNGwP6iwI3s4FrRAhvv4nNFz66yqvpzcXvhRH +FP+QkcbsdiXp7MNccJOwHZO9IY2eU31fDxRxQS+qLi63Xhp5g5OEJUq4sOT9 +Kkn6Q2nM11hUyynjQk0VH6i+ksZAnanyd1VckLSqSV8zL425TvvnxWup8+OU +9U2tZLDHTCix5zEXNn37HRk0JIMr16j5PPjBhcPm59Tuj8rg8FHziZGfXKgs +0OwTn5bBErUbWsK/uEDb5smsEZDFnvC9DZZ/uDB6p/kXn5YsCg2dXp/DR8LZ ++PSwi4dkUaRN7n2+OAmtr1crj8bJoiGr5WrGChL+6je9WJ8si3n1qrJxUlQf +fJ7S/XBZFgeEN2hskyWBZe36XatJFrd43x14ziDh/QrVoAfL5PD2wY43ujok +SAXfk5eSkkN+xmNiQpcE61bnx3sIOUwVGlIs0yehOjJZQ0RPDj3OPNgqsY6E +U+8mRnY4y+GJjMHE++tJ0C2t8/92RQ4DZa5fibEiIc7YzktmnTy+2uISlupN +grl77g9DE3mM+yHVNO9DgnDs12OO1vK4cviMeZAfCTlNCcXpnvI4e1v3N+wm +4Y5l7ddFJ+WRKlzB6n0kTDgrhU++ksfqAdmAsQgSbkeGLF7+QR4NcG2o0mES +jubczdIal8fxrYdqHCNJEBpwqtvDq4CotUG06ggJK/1TeAbUFDBfJ2lEP44E +94NTpx5FKeCtWGIy9SQJKhdM5EYSFDBN6oB30imSiv/p64vTFfA1cVohJpmE +yL+rn5oUKqCoh36sVyoJ54+5r6h5pIBzTcP/ZtNJcCsqL+7pUUCukMFIzxkS +GC0zhj8HFFDQNHkVJ4MEzpKzLtpTCjgzmlDgdI6ER2da8orkFZGuGXop8gKV +3xsSOk0rFTFFlFzLyiLBpdurcUBHEftnj62epvyF9veDrJkiflqtT/fJJoEv +f41aRpAi3hI9uHv5ZRLa70fXVR1SxB6/j59uUE4fard+HK+Iv5ZWN9vnkqCw +0i9Y4IIiLnz481pCHlUPlRdvHr2niC+WpUg1FJCw6eWTufFWRTwqfPut8RUS +bHkWbvZ4rogV8jvjqyn72Ae9go+KaLxkaUD+VRKCoq4yOOOK6MBOrRQtJOFQ +Ye9eYkYRt62O6YqmbBZFj4nlJ9CvoqrFtoiEDpH6q+uWEPiKNziTpLy1cHvr +hDCB307nWYgXk+D6OHm5F43AzlPunh2UQxSnr25QJ/DhYIuvZAkJUzfSW2e1 +CeRnxQR6UY40Vx/j6hM4fOepeynlhFBPA8Z6Alui/BatKSVhyaI/Ln0mlJ2M +7wZRTs8+H5OxmcCAk11eZZSzm9pbee0IlMs8FEErI0HR2W+s1pHAM9oKI5aU +C0fnlx9wIdAj+45NJGW1uGwDdQ8CQy9LXi2mXLVireuQD4Ed9xd/7aSsX9YZ +c2k3gaL2bqrTlGvXBxQ67CPw846PjtLlJMCLhW1L9xMYVRQWyaT8wD9vrCmc +wNGGN+e2U7b4yxQ7EkV979dEUQjlJ+ldBvqxBJ7YllCZSHmbSrDr6HECh/KC +qi5RflUjGFt4ksBDnvGlFZTdbQsL3dIIlOjLvFxL+cP79W0SZwncsOxYSjPl +PRGvxh5dIJCsVoh4THl8aZhYQg5lWxP355QP5AsbsgsIzBdoMemiPKNf6jpV +RKDP8xMqLygfbdsYe72MwC4Ht8WdlPnc+wv9qghkjTOGWygn/TjUJn+TwPt1 +1R13KQsnio933yGwN+1nFYfyWdlKsbS7BDZ+r8nMp0zjmBuaNRI4pvIxNpXy +5U1Drv8eErhfyTE4gjLjVXRsdQeBKVnD3u6US/bRioKeEvjvS7ybCWVN3htt +qt0EHtfk3alEmcy0Ge9/RaCjnoXfAsrr1L+IXegnMD6KFf6GyofJNnm3xV8I +dHAqvXWScsuX27H3RgmM3fvtoytl62j7oojvBM7fD2GoU3YqThz//JvALz13 +mxqoennDYojnzxN4MtdJLZGyd2e9ofNCOnbWtOZbUg6c+R7buoyOA8e7Glqp +emSF7pL8JEbH/wonIqIpC4z0lfPR6NhlX3pPi3LR66ae9Qw6MtUK+BOvkRC2 +bV2g20o6OgkZLdKibPK4YkGkBh3PjKrmPKP6of+/8xq3DOhYvvZmijDlCsMl +jc+N6Ehevz18jeqnSM5RpwmkYxA+G2BTlrziH69uRcfUDokrHlQ/bklg9hZ4 +0NHamsyIpPpZ4d/1ffd86bhVYu37Gar/R8MZfG/30PGma1z3AcpJu5dq0cLo ++O+zZ4VHPgkNVm+PpSXRUU+rhy1CzRNdsTjtKC4dCTn24k5qPvEkTz3Iqqbj +ZPGlVTTKT/gCXKrr6ChBf7bAnZpve6fsE74301E0d3Dg3Xmqv3qVX/v30VE6 +sfxgPTUfJfNaT2zjY+DZ8/LyfdS8/SDFltsvwECfX4FO36h5TKZzuaeXMZDH +/oD7Aspb4rPftEsxcNh/5qVsEnVfv0DdDRoM1B/bnqt2nIRZddF+TUcGcrpD +izlRJExflonTc2GgisPBlCxqP/wUUVFmejCwk7wVGk3tj/FJZsCmPQzkVinB +emq/vK/zmXaJZuCaUKclOfup+Wp1WzipiIG3Au1PtlH7KXuvO7yfYuBFZaHj +U/YkXHi7+/3n39T5djIfYuxIOLflQMLYPAOV0q2CFm8lIU0vqWNGUAkTyEuL +hG1IiP/DdRJRUMKYo5x9s2ZUfJL5Q4zNlND+uo+NJYsE4/KK/MxMJbzwV16j +X4GE10R5nuklJXR+mH5HW57Kd2Zp7s88JSyLffPzKLXfb8cV59iXKiFva0Wc +JI3Kj3N+lnC9Emo38S9TW07Cav5z6ScGlfDPtMuPIV4q3h5RseEayqj6MMCs +/AMXvotZem5vVMYCPYztKOBCbyDjaUCLMkYce6HpnceFhoe/IeaRMgrx/Bc9 +ncOF9MhyxZIeZeyWGFlCy+LCmvdC72ZHlLFEcngRpHEhiNu587K4ClU/5Bf5 +SC6MbHF0/eCrgoEltYfVqP+1Dyme2/cvVsVxb3pl7xQHLL5FWHw0WIlDzLbP +D9dxYNRH4MDNmFXo/bX9qGBxJfX/LsWb2Lgar9o9Hf5VXwFij1XTON/UcJey +QUfM2zKQS6raamCggX/v/F2g21ICWepMUXF/TTzRLOgy3FkM7TIb1k6e0cLo +pcx//J8KgSXXmK7do41h4gcXf3t7BYT5roR5xa/BsG2egiqCBaAQp2i8Q1UH +1WO6E+bMc0FQxa3avkUHHVx+lGi3ZYMWW7oqYqcuBuy5d3eo/gLs7xdrsuTR +wy7jvtn6ynPwbTLF0SJLDz38um6eEMuAzdoPsy009VGgzulZVtRp+G/S6M+v +J/rIrQjoNxo7BUEaun3P/NZi0Gb7kff0RGCP+3btEDRAm8POwbpHj4GpMs1m +2RUDvP/0iDDzWCysij11qNHQEC9WiPgmfIkCNT/mPZU+Qzy9hEVck4kAv/92 +H78Zug6jG23SIjYcgHv5Xb7fVzAR+6KTpncHw8+S+V/at5m4tyKnLzxlD3za +bpZ/soaJX1PtkmMO7YHehanmQ3VMzLzLe/G87x6o85S5mNnAxIb5hqph4z0Q +T1vLmmtjYrHdoKDO+G4QTQo40v6Gieeb9UIMHHaDhn83jx8vCzMXcT1HVf3B +R6VcMNuGhTLch09TJ30hstk9QHUrC3P0ud02g76Q7ifWQdqzMHRq7qJspy/U +Fx1O6XBiYeTzORgo8wUJVXOROS8W2nZMyC3z8YWHqh8lPMNZmCJ37d9Ytw+o +rVIkVPNYWOQmIXmu2Ru+q501ICdY+DqysvxOuyf0PkJT8UkWevsfDSut94SG +oHGHsCkWyrkvOl5Y6QlppEWowW8WFu6YdK/J8AQ1Fk9FLZ8R6sfecNnp6gne +FvvoTZJGeO9BpYXYWw/o8t8s1GVshIO8G0pS1rnDncI/g1NJRjguquXOWOUK +BhvDflkmG6HuYHwXLHeFW4OjQvmpRqj5TGBj0G8XIBX6DS0zjLBUhPlu7pEL +VGQ1pOZeMkJIEpv8tN8F8lMSmJsrjfCb3L/Ul/d3wMkwkTNZL4zw9tuvOV/3 +OoPLJiU0UjBGk9w3mbfGHWGuS0C4iTBGvd0fW1X7HCHfb/y1pZIxWs/dFC5t +doRPJ2oiXFYZo6Qbq3ggxxH2t22pOqxrjDnlyrUy1o5wyvaIwh0zY2wt/KvL +ub4Nap27/+oHG+Of7b+TRKIdQHZfYo1WgzEur7QbUbe0g7T5XWuTG42x5OJM +QyHLDngzzLifHxgj61qjoJq6HYxU85fmtxmjyvqRzh1CdlDLczxL7IUxLq7M +NbHp3Aou52Ijpj8ao5jVnpAjTlshq+7w2v+WsnFs3dfE44O2sGJJINfGiY1q +pa43nU9ZQeHG6MiJHWzcmCNNigVZgW502sazbmzMSI2498nOCmwnON29Xmyc +di6ofiNtBSd6pmZ9AtnITtjSO1dmCTNXYkwi49job+OqyPfcAvqMzr4oLmdj +T/mmv6m65rD7YGGORSUb1YM/jHhLm8N05S2/UQ4bK+wc9m3hMQcxRu8vnWo2 +lv9zHQx6shmsBOTl7jawUdhzbH/z3s1Q31Xs+6KbjZ/+GLU3lJmBpfAdzfBe +NgYK/1VYdNYMeje3TdNes/F9x9Rrrygz+Fn7Ncl9gLrPKgdTN2sz0CxYc314 +hI3JHuEvXb6ZQn3fhvCUMTbGpoQG2/WagqWEA2hPsDHHy6F/531T2JV48FnY +FBvF1RbM3j5rCj8bTmRLzVDxieCP4482hfjfF3xqf7MxRcora/cuUxDVL9XY +OcdGlb02moNbTCF3X+3U/Dwbdx0S0QpmmsL/AD2P/kI= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VG8bAHCRooQQYz8zlsqaJZphuu8U2QuJkF1KspQokqVEWZJKkiyF +bDFzKmXpn0i2SguSSqSNkBJRyXveT+f6fTjnea57PXTvYHs/Xh4eHtoCHp7/ +P6f72x4oJxeur8kQWjrKu3F9Vy7t8IbeeFiY2ckfEUIHXNHpTevNAIGBuk+2 +IToQvrXsJV/vFWCunj6qF7IBlo9LZcy+JGFX+K4AgRA7eFdvG/zzZSMsdJXw +jA72AjPlkbffXz6HMBU7Xu99oTD70vD8xMv3ICYd6DPvGwdNG68VPrsyCYqW +2f9OzZ4BuXc1n7w15kCk3y/QxDUbJAI9yhZv5MPBXTsnZ6QKIEPHrM7WUQAv +Fto2NYgUwausNQ3fRZfh46Z6ut6BEkgujOnklV6OnicCTW7WloPUuaGTZy+L +Y+J1y3Wf4yuBpn7r+EyxOL4oTxIOTKkEmcYTMTs54jgsxQoeOV8JChOrD65s +Ekfmdv2OFyWVoGId4ln3RRxFujmPnJ9Ugt7COYMhPQn8439yWo1WBVvCJD/o +tkugenaK95fiKkjcZrH++fQKvFKz6ZCFMwdkbj6R4V0gic2p/BJpbhyoFN/2 +S2epJAYF6N1/4smBnufunDOKknhKHmw37eGAsl0Yw85cEiWvWa3iieRAo03e +oqcXJfG7yd9TtdkcmDObevLYWApX5+s8N3zFgfTiyPI5MynkVlZNzr2h3l/E +k6RpR1m8R65hgAPWzUs2pPpJIW+eZcK6LxzI3kjcsE6TQvPa4NLZaQ6sQ6sL +He+kcORYJu2uOBcOMAs82uJp+PTtde5mSy5Y5gv/tEqhYf0aYmi7DRcYi48k +PTlPw+fuVy95b+XC067t3BclNGwP6iwI3s4FrRAhvv4nNFz66yqvpzcXvhRH +FP+QkcbsdiXp7MNccJOwHZO9IY2eU31fDxRxQS+qLi63Xhp5g5OEJUq4sOT9 +Kkn6Q2nM11hUyynjQk0VH6i+ksZAnanyd1VckLSqSV8zL425TvvnxWup8+OU +9U2tZLDHTCix5zEXNn37HRk0JIMr16j5PPjBhcPm59Tuj8rg8FHziZGfXKgs +0OwTn5bBErUbWsK/uEDb5smsEZDFnvC9DZZ/uDB6p/kXn5YsCg2dXp/DR8LZ ++PSwi4dkUaRN7n2+OAmtr1crj8bJoiGr5WrGChL+6je9WJ8si3n1qrJxUlQf +fJ7S/XBZFgeEN2hskyWBZe36XatJFrd43x14ziDh/QrVoAfL5PD2wY43ujok +SAXfk5eSkkN+xmNiQpcE61bnx3sIOUwVGlIs0yehOjJZQ0RPDj3OPNgqsY6E +U+8mRnY4y+GJjMHE++tJ0C2t8/92RQ4DZa5fibEiIc7YzktmnTy+2uISlupN +grl77g9DE3mM+yHVNO9DgnDs12OO1vK4cviMeZAfCTlNCcXpnvI4e1v3N+wm +4Y5l7ddFJ+WRKlzB6n0kTDgrhU++ksfqAdmAsQgSbkeGLF7+QR4NcG2o0mES +jubczdIal8fxrYdqHCNJEBpwqtvDq4CotUG06ggJK/1TeAbUFDBfJ2lEP44E +94NTpx5FKeCtWGIy9SQJKhdM5EYSFDBN6oB30imSiv/p64vTFfA1cVohJpmE +yL+rn5oUKqCoh36sVyoJ54+5r6h5pIBzTcP/ZtNJcCsqL+7pUUCukMFIzxkS +GC0zhj8HFFDQNHkVJ4MEzpKzLtpTCjgzmlDgdI6ER2da8orkFZGuGXop8gKV +3xsSOk0rFTFFlFzLyiLBpdurcUBHEftnj62epvyF9veDrJkiflqtT/fJJoEv +f41aRpAi3hI9uHv5ZRLa70fXVR1SxB6/j59uUE4fard+HK+Iv5ZWN9vnkqCw +0i9Y4IIiLnz481pCHlUPlRdvHr2niC+WpUg1FJCw6eWTufFWRTwqfPut8RUS +bHkWbvZ4rogV8jvjqyn72Ae9go+KaLxkaUD+VRKCoq4yOOOK6MBOrRQtJOFQ +Ye9eYkYRt62O6YqmbBZFj4nlJ9CvoqrFtoiEDpH6q+uWEPiKNziTpLy1cHvr +hDCB307nWYgXk+D6OHm5F43AzlPunh2UQxSnr25QJ/DhYIuvZAkJUzfSW2e1 +CeRnxQR6UY40Vx/j6hM4fOepeynlhFBPA8Z6Alui/BatKSVhyaI/Ln0mlJ2M +7wZRTs8+H5OxmcCAk11eZZSzm9pbee0IlMs8FEErI0HR2W+s1pHAM9oKI5aU +C0fnlx9wIdAj+45NJGW1uGwDdQ8CQy9LXi2mXLVireuQD4Ed9xd/7aSsX9YZ +c2k3gaL2bqrTlGvXBxQ67CPw846PjtLlJMCLhW1L9xMYVRQWyaT8wD9vrCmc +wNGGN+e2U7b4yxQ7EkV979dEUQjlJ+ldBvqxBJ7YllCZSHmbSrDr6HECh/KC +qi5RflUjGFt4ksBDnvGlFZTdbQsL3dIIlOjLvFxL+cP79W0SZwncsOxYSjPl +PRGvxh5dIJCsVoh4THl8aZhYQg5lWxP355QP5AsbsgsIzBdoMemiPKNf6jpV +RKDP8xMqLygfbdsYe72MwC4Ht8WdlPnc+wv9qghkjTOGWygn/TjUJn+TwPt1 +1R13KQsnio933yGwN+1nFYfyWdlKsbS7BDZ+r8nMp0zjmBuaNRI4pvIxNpXy +5U1Drv8eErhfyTE4gjLjVXRsdQeBKVnD3u6US/bRioKeEvjvS7ybCWVN3htt +qt0EHtfk3alEmcy0Ge9/RaCjnoXfAsrr1L+IXegnMD6KFf6GyofJNnm3xV8I +dHAqvXWScsuX27H3RgmM3fvtoytl62j7oojvBM7fD2GoU3YqThz//JvALz13 +mxqoennDYojnzxN4MtdJLZGyd2e9ofNCOnbWtOZbUg6c+R7buoyOA8e7Glqp +emSF7pL8JEbH/wonIqIpC4z0lfPR6NhlX3pPi3LR66ae9Qw6MtUK+BOvkRC2 +bV2g20o6OgkZLdKibPK4YkGkBh3PjKrmPKP6of+/8xq3DOhYvvZmijDlCsMl +jc+N6Ehevz18jeqnSM5RpwmkYxA+G2BTlrziH69uRcfUDokrHlQ/bklg9hZ4 +0NHamsyIpPpZ4d/1ffd86bhVYu37Gar/R8MZfG/30PGma1z3AcpJu5dq0cLo ++O+zZ4VHPgkNVm+PpSXRUU+rhy1CzRNdsTjtKC4dCTn24k5qPvEkTz3Iqqbj +ZPGlVTTKT/gCXKrr6ChBf7bAnZpve6fsE74301E0d3Dg3Xmqv3qVX/v30VE6 +sfxgPTUfJfNaT2zjY+DZ8/LyfdS8/SDFltsvwECfX4FO36h5TKZzuaeXMZDH +/oD7Aspb4rPftEsxcNh/5qVsEnVfv0DdDRoM1B/bnqt2nIRZddF+TUcGcrpD +izlRJExflonTc2GgisPBlCxqP/wUUVFmejCwk7wVGk3tj/FJZsCmPQzkVinB +emq/vK/zmXaJZuCaUKclOfup+Wp1WzipiIG3Au1PtlH7KXuvO7yfYuBFZaHj +U/YkXHi7+/3n39T5djIfYuxIOLflQMLYPAOV0q2CFm8lIU0vqWNGUAkTyEuL +hG1IiP/DdRJRUMKYo5x9s2ZUfJL5Q4zNlND+uo+NJYsE4/KK/MxMJbzwV16j +X4GE10R5nuklJXR+mH5HW57Kd2Zp7s88JSyLffPzKLXfb8cV59iXKiFva0Wc +JI3Kj3N+lnC9Emo38S9TW07Cav5z6ScGlfDPtMuPIV4q3h5RseEayqj6MMCs +/AMXvotZem5vVMYCPYztKOBCbyDjaUCLMkYce6HpnceFhoe/IeaRMgrx/Bc9 +ncOF9MhyxZIeZeyWGFlCy+LCmvdC72ZHlLFEcngRpHEhiNu587K4ClU/5Bf5 +SC6MbHF0/eCrgoEltYfVqP+1Dyme2/cvVsVxb3pl7xQHLL5FWHw0WIlDzLbP +D9dxYNRH4MDNmFXo/bX9qGBxJfX/LsWb2Lgar9o9Hf5VXwFij1XTON/UcJey +QUfM2zKQS6raamCggX/v/F2g21ICWepMUXF/TTzRLOgy3FkM7TIb1k6e0cLo +pcx//J8KgSXXmK7do41h4gcXf3t7BYT5roR5xa/BsG2egiqCBaAQp2i8Q1UH +1WO6E+bMc0FQxa3avkUHHVx+lGi3ZYMWW7oqYqcuBuy5d3eo/gLs7xdrsuTR +wy7jvtn6ynPwbTLF0SJLDz38um6eEMuAzdoPsy009VGgzulZVtRp+G/S6M+v +J/rIrQjoNxo7BUEaun3P/NZi0Gb7kff0RGCP+3btEDRAm8POwbpHj4GpMs1m +2RUDvP/0iDDzWCysij11qNHQEC9WiPgmfIkCNT/mPZU+Qzy9hEVck4kAv/92 +H78Zug6jG23SIjYcgHv5Xb7fVzAR+6KTpncHw8+S+V/at5m4tyKnLzxlD3za +bpZ/soaJX1PtkmMO7YHehanmQ3VMzLzLe/G87x6o85S5mNnAxIb5hqph4z0Q +T1vLmmtjYrHdoKDO+G4QTQo40v6Gieeb9UIMHHaDhn83jx8vCzMXcT1HVf3B +R6VcMNuGhTLch09TJ30hstk9QHUrC3P0ud02g76Q7ifWQdqzMHRq7qJspy/U +Fx1O6XBiYeTzORgo8wUJVXOROS8W2nZMyC3z8YWHqh8lPMNZmCJ37d9Ytw+o +rVIkVPNYWOQmIXmu2Ru+q501ICdY+DqysvxOuyf0PkJT8UkWevsfDSut94SG +oHGHsCkWyrkvOl5Y6QlppEWowW8WFu6YdK/J8AQ1Fk9FLZ8R6sfecNnp6gne +FvvoTZJGeO9BpYXYWw/o8t8s1GVshIO8G0pS1rnDncI/g1NJRjguquXOWOUK +BhvDflkmG6HuYHwXLHeFW4OjQvmpRqj5TGBj0G8XIBX6DS0zjLBUhPlu7pEL +VGQ1pOZeMkJIEpv8tN8F8lMSmJsrjfCb3L/Ul/d3wMkwkTNZL4zw9tuvOV/3 +OoPLJiU0UjBGk9w3mbfGHWGuS0C4iTBGvd0fW1X7HCHfb/y1pZIxWs/dFC5t +doRPJ2oiXFYZo6Qbq3ggxxH2t22pOqxrjDnlyrUy1o5wyvaIwh0zY2wt/KvL +ub4Nap27/+oHG+Of7b+TRKIdQHZfYo1WgzEur7QbUbe0g7T5XWuTG42x5OJM +QyHLDngzzLifHxgj61qjoJq6HYxU85fmtxmjyvqRzh1CdlDLczxL7IUxLq7M +NbHp3Aou52Ijpj8ao5jVnpAjTlshq+7w2v+WsnFs3dfE44O2sGJJINfGiY1q +pa43nU9ZQeHG6MiJHWzcmCNNigVZgW502sazbmzMSI2498nOCmwnON29Xmyc +di6ofiNtBSd6pmZ9AtnITtjSO1dmCTNXYkwi49job+OqyPfcAvqMzr4oLmdj +T/mmv6m65rD7YGGORSUb1YM/jHhLm8N05S2/UQ4bK+wc9m3hMQcxRu8vnWo2 +lv9zHQx6shmsBOTl7jawUdhzbH/z3s1Q31Xs+6KbjZ/+GLU3lJmBpfAdzfBe +NgYK/1VYdNYMeje3TdNes/F9x9Rrrygz+Fn7Ncl9gLrPKgdTN2sz0CxYc314 +hI3JHuEvXb6ZQn3fhvCUMTbGpoQG2/WagqWEA2hPsDHHy6F/531T2JV48FnY +FBvF1RbM3j5rCj8bTmRLzVDxieCP4482hfjfF3xqf7MxRcora/cuUxDVL9XY +OcdGlb02moNbTCF3X+3U/Dwbdx0S0QpmmsL/AD2P/kI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07293440466222245}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.07293440466222245}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VG8bAHCRooQQYz8zlsqaJZphuu8U2QuJkF1KspQokqVEWZJKkiyF +bDFzKmXpn0i2SguSSqSNkBJRyXveT+f6fTjnea57PXTvYHs/Xh4eHtoCHp7/ +P6f72x4oJxeur8kQWjrKu3F9Vy7t8IbeeFiY2ckfEUIHXNHpTevNAIGBuk+2 +IToQvrXsJV/vFWCunj6qF7IBlo9LZcy+JGFX+K4AgRA7eFdvG/zzZSMsdJXw +jA72AjPlkbffXz6HMBU7Xu99oTD70vD8xMv3ICYd6DPvGwdNG68VPrsyCYqW +2f9OzZ4BuXc1n7w15kCk3y/QxDUbJAI9yhZv5MPBXTsnZ6QKIEPHrM7WUQAv +Fto2NYgUwausNQ3fRZfh46Z6ut6BEkgujOnklV6OnicCTW7WloPUuaGTZy+L +Y+J1y3Wf4yuBpn7r+EyxOL4oTxIOTKkEmcYTMTs54jgsxQoeOV8JChOrD65s +Ekfmdv2OFyWVoGId4ln3RRxFujmPnJ9Ugt7COYMhPQn8439yWo1WBVvCJD/o +tkugenaK95fiKkjcZrH++fQKvFKz6ZCFMwdkbj6R4V0gic2p/BJpbhyoFN/2 +S2epJAYF6N1/4smBnufunDOKknhKHmw37eGAsl0Yw85cEiWvWa3iieRAo03e +oqcXJfG7yd9TtdkcmDObevLYWApX5+s8N3zFgfTiyPI5MynkVlZNzr2h3l/E +k6RpR1m8R65hgAPWzUs2pPpJIW+eZcK6LxzI3kjcsE6TQvPa4NLZaQ6sQ6sL +He+kcORYJu2uOBcOMAs82uJp+PTtde5mSy5Y5gv/tEqhYf0aYmi7DRcYi48k +PTlPw+fuVy95b+XC067t3BclNGwP6iwI3s4FrRAhvv4nNFz66yqvpzcXvhRH +FP+QkcbsdiXp7MNccJOwHZO9IY2eU31fDxRxQS+qLi63Xhp5g5OEJUq4sOT9 +Kkn6Q2nM11hUyynjQk0VH6i+ksZAnanyd1VckLSqSV8zL425TvvnxWup8+OU +9U2tZLDHTCix5zEXNn37HRk0JIMr16j5PPjBhcPm59Tuj8rg8FHziZGfXKgs +0OwTn5bBErUbWsK/uEDb5smsEZDFnvC9DZZ/uDB6p/kXn5YsCg2dXp/DR8LZ ++PSwi4dkUaRN7n2+OAmtr1crj8bJoiGr5WrGChL+6je9WJ8si3n1qrJxUlQf +fJ7S/XBZFgeEN2hskyWBZe36XatJFrd43x14ziDh/QrVoAfL5PD2wY43ujok +SAXfk5eSkkN+xmNiQpcE61bnx3sIOUwVGlIs0yehOjJZQ0RPDj3OPNgqsY6E +U+8mRnY4y+GJjMHE++tJ0C2t8/92RQ4DZa5fibEiIc7YzktmnTy+2uISlupN +grl77g9DE3mM+yHVNO9DgnDs12OO1vK4cviMeZAfCTlNCcXpnvI4e1v3N+wm +4Y5l7ddFJ+WRKlzB6n0kTDgrhU++ksfqAdmAsQgSbkeGLF7+QR4NcG2o0mES +jubczdIal8fxrYdqHCNJEBpwqtvDq4CotUG06ggJK/1TeAbUFDBfJ2lEP44E +94NTpx5FKeCtWGIy9SQJKhdM5EYSFDBN6oB30imSiv/p64vTFfA1cVohJpmE +yL+rn5oUKqCoh36sVyoJ54+5r6h5pIBzTcP/ZtNJcCsqL+7pUUCukMFIzxkS +GC0zhj8HFFDQNHkVJ4MEzpKzLtpTCjgzmlDgdI6ER2da8orkFZGuGXop8gKV +3xsSOk0rFTFFlFzLyiLBpdurcUBHEftnj62epvyF9veDrJkiflqtT/fJJoEv +f41aRpAi3hI9uHv5ZRLa70fXVR1SxB6/j59uUE4fard+HK+Iv5ZWN9vnkqCw +0i9Y4IIiLnz481pCHlUPlRdvHr2niC+WpUg1FJCw6eWTufFWRTwqfPut8RUS +bHkWbvZ4rogV8jvjqyn72Ae9go+KaLxkaUD+VRKCoq4yOOOK6MBOrRQtJOFQ +Ye9eYkYRt62O6YqmbBZFj4nlJ9CvoqrFtoiEDpH6q+uWEPiKNziTpLy1cHvr +hDCB307nWYgXk+D6OHm5F43AzlPunh2UQxSnr25QJ/DhYIuvZAkJUzfSW2e1 +CeRnxQR6UY40Vx/j6hM4fOepeynlhFBPA8Z6Alui/BatKSVhyaI/Ln0mlJ2M +7wZRTs8+H5OxmcCAk11eZZSzm9pbee0IlMs8FEErI0HR2W+s1pHAM9oKI5aU +C0fnlx9wIdAj+45NJGW1uGwDdQ8CQy9LXi2mXLVireuQD4Ed9xd/7aSsX9YZ +c2k3gaL2bqrTlGvXBxQ67CPw846PjtLlJMCLhW1L9xMYVRQWyaT8wD9vrCmc +wNGGN+e2U7b4yxQ7EkV979dEUQjlJ+ldBvqxBJ7YllCZSHmbSrDr6HECh/KC +qi5RflUjGFt4ksBDnvGlFZTdbQsL3dIIlOjLvFxL+cP79W0SZwncsOxYSjPl +PRGvxh5dIJCsVoh4THl8aZhYQg5lWxP355QP5AsbsgsIzBdoMemiPKNf6jpV +RKDP8xMqLygfbdsYe72MwC4Ht8WdlPnc+wv9qghkjTOGWygn/TjUJn+TwPt1 +1R13KQsnio933yGwN+1nFYfyWdlKsbS7BDZ+r8nMp0zjmBuaNRI4pvIxNpXy +5U1Drv8eErhfyTE4gjLjVXRsdQeBKVnD3u6US/bRioKeEvjvS7ybCWVN3htt +qt0EHtfk3alEmcy0Ge9/RaCjnoXfAsrr1L+IXegnMD6KFf6GyofJNnm3xV8I +dHAqvXWScsuX27H3RgmM3fvtoytl62j7oojvBM7fD2GoU3YqThz//JvALz13 +mxqoennDYojnzxN4MtdJLZGyd2e9ofNCOnbWtOZbUg6c+R7buoyOA8e7Glqp +emSF7pL8JEbH/wonIqIpC4z0lfPR6NhlX3pPi3LR66ae9Qw6MtUK+BOvkRC2 +bV2g20o6OgkZLdKibPK4YkGkBh3PjKrmPKP6of+/8xq3DOhYvvZmijDlCsMl +jc+N6Ehevz18jeqnSM5RpwmkYxA+G2BTlrziH69uRcfUDokrHlQ/bklg9hZ4 +0NHamsyIpPpZ4d/1ffd86bhVYu37Gar/R8MZfG/30PGma1z3AcpJu5dq0cLo ++O+zZ4VHPgkNVm+PpSXRUU+rhy1CzRNdsTjtKC4dCTn24k5qPvEkTz3Iqqbj +ZPGlVTTKT/gCXKrr6ChBf7bAnZpve6fsE74301E0d3Dg3Xmqv3qVX/v30VE6 +sfxgPTUfJfNaT2zjY+DZ8/LyfdS8/SDFltsvwECfX4FO36h5TKZzuaeXMZDH +/oD7Aspb4rPftEsxcNh/5qVsEnVfv0DdDRoM1B/bnqt2nIRZddF+TUcGcrpD +izlRJExflonTc2GgisPBlCxqP/wUUVFmejCwk7wVGk3tj/FJZsCmPQzkVinB +emq/vK/zmXaJZuCaUKclOfup+Wp1WzipiIG3Au1PtlH7KXuvO7yfYuBFZaHj +U/YkXHi7+/3n39T5djIfYuxIOLflQMLYPAOV0q2CFm8lIU0vqWNGUAkTyEuL +hG1IiP/DdRJRUMKYo5x9s2ZUfJL5Q4zNlND+uo+NJYsE4/KK/MxMJbzwV16j +X4GE10R5nuklJXR+mH5HW57Kd2Zp7s88JSyLffPzKLXfb8cV59iXKiFva0Wc +JI3Kj3N+lnC9Emo38S9TW07Cav5z6ScGlfDPtMuPIV4q3h5RseEayqj6MMCs +/AMXvotZem5vVMYCPYztKOBCbyDjaUCLMkYce6HpnceFhoe/IeaRMgrx/Bc9 +ncOF9MhyxZIeZeyWGFlCy+LCmvdC72ZHlLFEcngRpHEhiNu587K4ClU/5Bf5 +SC6MbHF0/eCrgoEltYfVqP+1Dyme2/cvVsVxb3pl7xQHLL5FWHw0WIlDzLbP +D9dxYNRH4MDNmFXo/bX9qGBxJfX/LsWb2Lgar9o9Hf5VXwFij1XTON/UcJey +QUfM2zKQS6raamCggX/v/F2g21ICWepMUXF/TTzRLOgy3FkM7TIb1k6e0cLo +pcx//J8KgSXXmK7do41h4gcXf3t7BYT5roR5xa/BsG2egiqCBaAQp2i8Q1UH +1WO6E+bMc0FQxa3avkUHHVx+lGi3ZYMWW7oqYqcuBuy5d3eo/gLs7xdrsuTR +wy7jvtn6ynPwbTLF0SJLDz38um6eEMuAzdoPsy009VGgzulZVtRp+G/S6M+v +J/rIrQjoNxo7BUEaun3P/NZi0Gb7kff0RGCP+3btEDRAm8POwbpHj4GpMs1m +2RUDvP/0iDDzWCysij11qNHQEC9WiPgmfIkCNT/mPZU+Qzy9hEVck4kAv/92 +H78Zug6jG23SIjYcgHv5Xb7fVzAR+6KTpncHw8+S+V/at5m4tyKnLzxlD3za +bpZ/soaJX1PtkmMO7YHehanmQ3VMzLzLe/G87x6o85S5mNnAxIb5hqph4z0Q +T1vLmmtjYrHdoKDO+G4QTQo40v6Gieeb9UIMHHaDhn83jx8vCzMXcT1HVf3B +R6VcMNuGhTLch09TJ30hstk9QHUrC3P0ud02g76Q7ifWQdqzMHRq7qJspy/U +Fx1O6XBiYeTzORgo8wUJVXOROS8W2nZMyC3z8YWHqh8lPMNZmCJ37d9Ytw+o +rVIkVPNYWOQmIXmu2Ru+q501ICdY+DqysvxOuyf0PkJT8UkWevsfDSut94SG +oHGHsCkWyrkvOl5Y6QlppEWowW8WFu6YdK/J8AQ1Fk9FLZ8R6sfecNnp6gne +FvvoTZJGeO9BpYXYWw/o8t8s1GVshIO8G0pS1rnDncI/g1NJRjguquXOWOUK +BhvDflkmG6HuYHwXLHeFW4OjQvmpRqj5TGBj0G8XIBX6DS0zjLBUhPlu7pEL +VGQ1pOZeMkJIEpv8tN8F8lMSmJsrjfCb3L/Ul/d3wMkwkTNZL4zw9tuvOV/3 +OoPLJiU0UjBGk9w3mbfGHWGuS0C4iTBGvd0fW1X7HCHfb/y1pZIxWs/dFC5t +doRPJ2oiXFYZo6Qbq3ggxxH2t22pOqxrjDnlyrUy1o5wyvaIwh0zY2wt/KvL +ub4Nap27/+oHG+Of7b+TRKIdQHZfYo1WgzEur7QbUbe0g7T5XWuTG42x5OJM +QyHLDngzzLifHxgj61qjoJq6HYxU85fmtxmjyvqRzh1CdlDLczxL7IUxLq7M +NbHp3Aou52Ijpj8ao5jVnpAjTlshq+7w2v+WsnFs3dfE44O2sGJJINfGiY1q +pa43nU9ZQeHG6MiJHWzcmCNNigVZgW502sazbmzMSI2498nOCmwnON29Xmyc +di6ofiNtBSd6pmZ9AtnITtjSO1dmCTNXYkwi49job+OqyPfcAvqMzr4oLmdj +T/mmv6m65rD7YGGORSUb1YM/jHhLm8N05S2/UQ4bK+wc9m3hMQcxRu8vnWo2 +lv9zHQx6shmsBOTl7jawUdhzbH/z3s1Q31Xs+6KbjZ/+GLU3lJmBpfAdzfBe +NgYK/1VYdNYMeje3TdNes/F9x9Rrrygz+Fn7Ncl9gLrPKgdTN2sz0CxYc314 +hI3JHuEvXb6ZQn3fhvCUMTbGpoQG2/WagqWEA2hPsDHHy6F/531T2JV48FnY +FBvF1RbM3j5rCj8bTmRLzVDxieCP4482hfjfF3xqf7MxRcora/cuUxDVL9XY +OcdGlb02moNbTCF3X+3U/Dwbdx0S0QpmmsL/AD2P/kI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07293440466222245}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07293440466222245}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993828079154623*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"9ac8c08c-c832-4f21-9437-70509ca4d7b3"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ -53b7ef04b97c"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1mk4VG8bAHCRooQQYz8zlsqaJZphuu8U2QuJkF1KspQokqVEWZJKkiyF +bDFzKmXpn0i2SguSSqSNkBJRyXveT+f6fTjnea57PXTvYHs/Xh4eHtoCHp7/ +P6f72x4oJxeur8kQWjrKu3F9Vy7t8IbeeFiY2ckfEUIHXNHpTevNAIGBuk+2 +IToQvrXsJV/vFWCunj6qF7IBlo9LZcy+JGFX+K4AgRA7eFdvG/zzZSMsdJXw +jA72AjPlkbffXz6HMBU7Xu99oTD70vD8xMv3ICYd6DPvGwdNG68VPrsyCYqW +2f9OzZ4BuXc1n7w15kCk3y/QxDUbJAI9yhZv5MPBXTsnZ6QKIEPHrM7WUQAv +Fto2NYgUwausNQ3fRZfh46Z6ut6BEkgujOnklV6OnicCTW7WloPUuaGTZy+L +Y+J1y3Wf4yuBpn7r+EyxOL4oTxIOTKkEmcYTMTs54jgsxQoeOV8JChOrD65s +Ekfmdv2OFyWVoGId4ln3RRxFujmPnJ9Ugt7COYMhPQn8439yWo1WBVvCJD/o +tkugenaK95fiKkjcZrH++fQKvFKz6ZCFMwdkbj6R4V0gic2p/BJpbhyoFN/2 +S2epJAYF6N1/4smBnufunDOKknhKHmw37eGAsl0Yw85cEiWvWa3iieRAo03e +oqcXJfG7yd9TtdkcmDObevLYWApX5+s8N3zFgfTiyPI5MynkVlZNzr2h3l/E +k6RpR1m8R65hgAPWzUs2pPpJIW+eZcK6LxzI3kjcsE6TQvPa4NLZaQ6sQ6sL +He+kcORYJu2uOBcOMAs82uJp+PTtde5mSy5Y5gv/tEqhYf0aYmi7DRcYi48k +PTlPw+fuVy95b+XC067t3BclNGwP6iwI3s4FrRAhvv4nNFz66yqvpzcXvhRH +FP+QkcbsdiXp7MNccJOwHZO9IY2eU31fDxRxQS+qLi63Xhp5g5OEJUq4sOT9 +Kkn6Q2nM11hUyynjQk0VH6i+ksZAnanyd1VckLSqSV8zL425TvvnxWup8+OU +9U2tZLDHTCix5zEXNn37HRk0JIMr16j5PPjBhcPm59Tuj8rg8FHziZGfXKgs +0OwTn5bBErUbWsK/uEDb5smsEZDFnvC9DZZ/uDB6p/kXn5YsCg2dXp/DR8LZ ++PSwi4dkUaRN7n2+OAmtr1crj8bJoiGr5WrGChL+6je9WJ8si3n1qrJxUlQf +fJ7S/XBZFgeEN2hskyWBZe36XatJFrd43x14ziDh/QrVoAfL5PD2wY43ujok +SAXfk5eSkkN+xmNiQpcE61bnx3sIOUwVGlIs0yehOjJZQ0RPDj3OPNgqsY6E +U+8mRnY4y+GJjMHE++tJ0C2t8/92RQ4DZa5fibEiIc7YzktmnTy+2uISlupN +grl77g9DE3mM+yHVNO9DgnDs12OO1vK4cviMeZAfCTlNCcXpnvI4e1v3N+wm +4Y5l7ddFJ+WRKlzB6n0kTDgrhU++ksfqAdmAsQgSbkeGLF7+QR4NcG2o0mES +jubczdIal8fxrYdqHCNJEBpwqtvDq4CotUG06ggJK/1TeAbUFDBfJ2lEP44E +94NTpx5FKeCtWGIy9SQJKhdM5EYSFDBN6oB30imSiv/p64vTFfA1cVohJpmE +yL+rn5oUKqCoh36sVyoJ54+5r6h5pIBzTcP/ZtNJcCsqL+7pUUCukMFIzxkS +GC0zhj8HFFDQNHkVJ4MEzpKzLtpTCjgzmlDgdI6ER2da8orkFZGuGXop8gKV +3xsSOk0rFTFFlFzLyiLBpdurcUBHEftnj62epvyF9veDrJkiflqtT/fJJoEv +f41aRpAi3hI9uHv5ZRLa70fXVR1SxB6/j59uUE4fard+HK+Iv5ZWN9vnkqCw +0i9Y4IIiLnz481pCHlUPlRdvHr2niC+WpUg1FJCw6eWTufFWRTwqfPut8RUS +bHkWbvZ4rogV8jvjqyn72Ae9go+KaLxkaUD+VRKCoq4yOOOK6MBOrRQtJOFQ +Ye9eYkYRt62O6YqmbBZFj4nlJ9CvoqrFtoiEDpH6q+uWEPiKNziTpLy1cHvr +hDCB307nWYgXk+D6OHm5F43AzlPunh2UQxSnr25QJ/DhYIuvZAkJUzfSW2e1 +CeRnxQR6UY40Vx/j6hM4fOepeynlhFBPA8Z6Alui/BatKSVhyaI/Ln0mlJ2M +7wZRTs8+H5OxmcCAk11eZZSzm9pbee0IlMs8FEErI0HR2W+s1pHAM9oKI5aU +C0fnlx9wIdAj+45NJGW1uGwDdQ8CQy9LXi2mXLVireuQD4Ed9xd/7aSsX9YZ +c2k3gaL2bqrTlGvXBxQ67CPw846PjtLlJMCLhW1L9xMYVRQWyaT8wD9vrCmc +wNGGN+e2U7b4yxQ7EkV979dEUQjlJ+ldBvqxBJ7YllCZSHmbSrDr6HECh/KC +qi5RflUjGFt4ksBDnvGlFZTdbQsL3dIIlOjLvFxL+cP79W0SZwncsOxYSjPl +PRGvxh5dIJCsVoh4THl8aZhYQg5lWxP355QP5AsbsgsIzBdoMemiPKNf6jpV +RKDP8xMqLygfbdsYe72MwC4Ht8WdlPnc+wv9qghkjTOGWygn/TjUJn+TwPt1 +1R13KQsnio933yGwN+1nFYfyWdlKsbS7BDZ+r8nMp0zjmBuaNRI4pvIxNpXy +5U1Drv8eErhfyTE4gjLjVXRsdQeBKVnD3u6US/bRioKeEvjvS7ybCWVN3htt +qt0EHtfk3alEmcy0Ge9/RaCjnoXfAsrr1L+IXegnMD6KFf6GyofJNnm3xV8I +dHAqvXWScsuX27H3RgmM3fvtoytl62j7oojvBM7fD2GoU3YqThz//JvALz13 +mxqoennDYojnzxN4MtdJLZGyd2e9ofNCOnbWtOZbUg6c+R7buoyOA8e7Glqp +emSF7pL8JEbH/wonIqIpC4z0lfPR6NhlX3pPi3LR66ae9Qw6MtUK+BOvkRC2 +bV2g20o6OgkZLdKibPK4YkGkBh3PjKrmPKP6of+/8xq3DOhYvvZmijDlCsMl +jc+N6Ehevz18jeqnSM5RpwmkYxA+G2BTlrziH69uRcfUDokrHlQ/bklg9hZ4 +0NHamsyIpPpZ4d/1ffd86bhVYu37Gar/R8MZfG/30PGma1z3AcpJu5dq0cLo ++O+zZ4VHPgkNVm+PpSXRUU+rhy1CzRNdsTjtKC4dCTn24k5qPvEkTz3Iqqbj +ZPGlVTTKT/gCXKrr6ChBf7bAnZpve6fsE74301E0d3Dg3Xmqv3qVX/v30VE6 +sfxgPTUfJfNaT2zjY+DZ8/LyfdS8/SDFltsvwECfX4FO36h5TKZzuaeXMZDH +/oD7Aspb4rPftEsxcNh/5qVsEnVfv0DdDRoM1B/bnqt2nIRZddF+TUcGcrpD +izlRJExflonTc2GgisPBlCxqP/wUUVFmejCwk7wVGk3tj/FJZsCmPQzkVinB +emq/vK/zmXaJZuCaUKclOfup+Wp1WzipiIG3Au1PtlH7KXuvO7yfYuBFZaHj +U/YkXHi7+/3n39T5djIfYuxIOLflQMLYPAOV0q2CFm8lIU0vqWNGUAkTyEuL +hG1IiP/DdRJRUMKYo5x9s2ZUfJL5Q4zNlND+uo+NJYsE4/KK/MxMJbzwV16j +X4GE10R5nuklJXR+mH5HW57Kd2Zp7s88JSyLffPzKLXfb8cV59iXKiFva0Wc +JI3Kj3N+lnC9Emo38S9TW07Cav5z6ScGlfDPtMuPIV4q3h5RseEayqj6MMCs +/AMXvotZem5vVMYCPYztKOBCbyDjaUCLMkYce6HpnceFhoe/IeaRMgrx/Bc9 +ncOF9MhyxZIeZeyWGFlCy+LCmvdC72ZHlLFEcngRpHEhiNu587K4ClU/5Bf5 +SC6MbHF0/eCrgoEltYfVqP+1Dyme2/cvVsVxb3pl7xQHLL5FWHw0WIlDzLbP +D9dxYNRH4MDNmFXo/bX9qGBxJfX/LsWb2Lgar9o9Hf5VXwFij1XTON/UcJey +QUfM2zKQS6raamCggX/v/F2g21ICWepMUXF/TTzRLOgy3FkM7TIb1k6e0cLo +pcx//J8KgSXXmK7do41h4gcXf3t7BYT5roR5xa/BsG2egiqCBaAQp2i8Q1UH +1WO6E+bMc0FQxa3avkUHHVx+lGi3ZYMWW7oqYqcuBuy5d3eo/gLs7xdrsuTR +wy7jvtn6ynPwbTLF0SJLDz38um6eEMuAzdoPsy009VGgzulZVtRp+G/S6M+v +J/rIrQjoNxo7BUEaun3P/NZi0Gb7kff0RGCP+3btEDRAm8POwbpHj4GpMs1m +2RUDvP/0iDDzWCysij11qNHQEC9WiPgmfIkCNT/mPZU+Qzy9hEVck4kAv/92 +H78Zug6jG23SIjYcgHv5Xb7fVzAR+6KTpncHw8+S+V/at5m4tyKnLzxlD3za +bpZ/soaJX1PtkmMO7YHehanmQ3VMzLzLe/G87x6o85S5mNnAxIb5hqph4z0Q +T1vLmmtjYrHdoKDO+G4QTQo40v6Gieeb9UIMHHaDhn83jx8vCzMXcT1HVf3B +R6VcMNuGhTLch09TJ30hstk9QHUrC3P0ud02g76Q7ifWQdqzMHRq7qJspy/U +Fx1O6XBiYeTzORgo8wUJVXOROS8W2nZMyC3z8YWHqh8lPMNZmCJ37d9Ytw+o +rVIkVPNYWOQmIXmu2Ru+q501ICdY+DqysvxOuyf0PkJT8UkWevsfDSut94SG +oHGHsCkWyrkvOl5Y6QlppEWowW8WFu6YdK/J8AQ1Fk9FLZ8R6sfecNnp6gne +FvvoTZJGeO9BpYXYWw/o8t8s1GVshIO8G0pS1rnDncI/g1NJRjguquXOWOUK +BhvDflkmG6HuYHwXLHeFW4OjQvmpRqj5TGBj0G8XIBX6DS0zjLBUhPlu7pEL +VGQ1pOZeMkJIEpv8tN8F8lMSmJsrjfCb3L/Ul/d3wMkwkTNZL4zw9tuvOV/3 +OoPLJiU0UjBGk9w3mbfGHWGuS0C4iTBGvd0fW1X7HCHfb/y1pZIxWs/dFC5t +doRPJ2oiXFYZo6Qbq3ggxxH2t22pOqxrjDnlyrUy1o5wyvaIwh0zY2wt/KvL +ub4Nap27/+oHG+Of7b+TRKIdQHZfYo1WgzEur7QbUbe0g7T5XWuTG42x5OJM +QyHLDngzzLifHxgj61qjoJq6HYxU85fmtxmjyvqRzh1CdlDLczxL7IUxLq7M +NbHp3Aou52Ijpj8ao5jVnpAjTlshq+7w2v+WsnFs3dfE44O2sGJJINfGiY1q +pa43nU9ZQeHG6MiJHWzcmCNNigVZgW502sazbmzMSI2498nOCmwnON29Xmyc +di6ofiNtBSd6pmZ9AtnITtjSO1dmCTNXYkwi49job+OqyPfcAvqMzr4oLmdj +T/mmv6m65rD7YGGORSUb1YM/jHhLm8N05S2/UQ4bK+wc9m3hMQcxRu8vnWo2 +lv9zHQx6shmsBOTl7jawUdhzbH/z3s1Q31Xs+6KbjZ/+GLU3lJmBpfAdzfBe +NgYK/1VYdNYMeje3TdNes/F9x9Rrrygz+Fn7Ncl9gLrPKgdTN2sz0CxYc314 +hI3JHuEvXb6ZQn3fhvCUMTbGpoQG2/WagqWEA2hPsDHHy6F/531T2JV48FnY +FBvF1RbM3j5rCj8bTmRLzVDxieCP4482hfjfF3xqf7MxRcora/cuUxDVL9XY +OcdGlb02moNbTCF3X+3U/Dwbdx0S0QpmmsL/AD2P/kI= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VG8bAHCRooQQYz8zlsqaJZphuu8U2QuJkF1KspQokqVEWZJKkiyF +bDFzKmXpn0i2SguSSqSNkBJRyXveT+f6fTjnea57PXTvYHs/Xh4eHtoCHp7/ +P6f72x4oJxeur8kQWjrKu3F9Vy7t8IbeeFiY2ckfEUIHXNHpTevNAIGBuk+2 +IToQvrXsJV/vFWCunj6qF7IBlo9LZcy+JGFX+K4AgRA7eFdvG/zzZSMsdJXw +jA72AjPlkbffXz6HMBU7Xu99oTD70vD8xMv3ICYd6DPvGwdNG68VPrsyCYqW +2f9OzZ4BuXc1n7w15kCk3y/QxDUbJAI9yhZv5MPBXTsnZ6QKIEPHrM7WUQAv +Fto2NYgUwausNQ3fRZfh46Z6ut6BEkgujOnklV6OnicCTW7WloPUuaGTZy+L +Y+J1y3Wf4yuBpn7r+EyxOL4oTxIOTKkEmcYTMTs54jgsxQoeOV8JChOrD65s +Ekfmdv2OFyWVoGId4ln3RRxFujmPnJ9Ugt7COYMhPQn8439yWo1WBVvCJD/o +tkugenaK95fiKkjcZrH++fQKvFKz6ZCFMwdkbj6R4V0gic2p/BJpbhyoFN/2 +S2epJAYF6N1/4smBnufunDOKknhKHmw37eGAsl0Yw85cEiWvWa3iieRAo03e +oqcXJfG7yd9TtdkcmDObevLYWApX5+s8N3zFgfTiyPI5MynkVlZNzr2h3l/E +k6RpR1m8R65hgAPWzUs2pPpJIW+eZcK6LxzI3kjcsE6TQvPa4NLZaQ6sQ6sL +He+kcORYJu2uOBcOMAs82uJp+PTtde5mSy5Y5gv/tEqhYf0aYmi7DRcYi48k +PTlPw+fuVy95b+XC067t3BclNGwP6iwI3s4FrRAhvv4nNFz66yqvpzcXvhRH +FP+QkcbsdiXp7MNccJOwHZO9IY2eU31fDxRxQS+qLi63Xhp5g5OEJUq4sOT9 +Kkn6Q2nM11hUyynjQk0VH6i+ksZAnanyd1VckLSqSV8zL425TvvnxWup8+OU +9U2tZLDHTCix5zEXNn37HRk0JIMr16j5PPjBhcPm59Tuj8rg8FHziZGfXKgs +0OwTn5bBErUbWsK/uEDb5smsEZDFnvC9DZZ/uDB6p/kXn5YsCg2dXp/DR8LZ ++PSwi4dkUaRN7n2+OAmtr1crj8bJoiGr5WrGChL+6je9WJ8si3n1qrJxUlQf +fJ7S/XBZFgeEN2hskyWBZe36XatJFrd43x14ziDh/QrVoAfL5PD2wY43ujok +SAXfk5eSkkN+xmNiQpcE61bnx3sIOUwVGlIs0yehOjJZQ0RPDj3OPNgqsY6E +U+8mRnY4y+GJjMHE++tJ0C2t8/92RQ4DZa5fibEiIc7YzktmnTy+2uISlupN +grl77g9DE3mM+yHVNO9DgnDs12OO1vK4cviMeZAfCTlNCcXpnvI4e1v3N+wm +4Y5l7ddFJ+WRKlzB6n0kTDgrhU++ksfqAdmAsQgSbkeGLF7+QR4NcG2o0mES +jubczdIal8fxrYdqHCNJEBpwqtvDq4CotUG06ggJK/1TeAbUFDBfJ2lEP44E +94NTpx5FKeCtWGIy9SQJKhdM5EYSFDBN6oB30imSiv/p64vTFfA1cVohJpmE +yL+rn5oUKqCoh36sVyoJ54+5r6h5pIBzTcP/ZtNJcCsqL+7pUUCukMFIzxkS +GC0zhj8HFFDQNHkVJ4MEzpKzLtpTCjgzmlDgdI6ER2da8orkFZGuGXop8gKV +3xsSOk0rFTFFlFzLyiLBpdurcUBHEftnj62epvyF9veDrJkiflqtT/fJJoEv +f41aRpAi3hI9uHv5ZRLa70fXVR1SxB6/j59uUE4fard+HK+Iv5ZWN9vnkqCw +0i9Y4IIiLnz481pCHlUPlRdvHr2niC+WpUg1FJCw6eWTufFWRTwqfPut8RUS +bHkWbvZ4rogV8jvjqyn72Ae9go+KaLxkaUD+VRKCoq4yOOOK6MBOrRQtJOFQ +Ye9eYkYRt62O6YqmbBZFj4nlJ9CvoqrFtoiEDpH6q+uWEPiKNziTpLy1cHvr +hDCB307nWYgXk+D6OHm5F43AzlPunh2UQxSnr25QJ/DhYIuvZAkJUzfSW2e1 +CeRnxQR6UY40Vx/j6hM4fOepeynlhFBPA8Z6Alui/BatKSVhyaI/Ln0mlJ2M +7wZRTs8+H5OxmcCAk11eZZSzm9pbee0IlMs8FEErI0HR2W+s1pHAM9oKI5aU +C0fnlx9wIdAj+45NJGW1uGwDdQ8CQy9LXi2mXLVireuQD4Ed9xd/7aSsX9YZ +c2k3gaL2bqrTlGvXBxQ67CPw846PjtLlJMCLhW1L9xMYVRQWyaT8wD9vrCmc +wNGGN+e2U7b4yxQ7EkV979dEUQjlJ+ldBvqxBJ7YllCZSHmbSrDr6HECh/KC +qi5RflUjGFt4ksBDnvGlFZTdbQsL3dIIlOjLvFxL+cP79W0SZwncsOxYSjPl +PRGvxh5dIJCsVoh4THl8aZhYQg5lWxP355QP5AsbsgsIzBdoMemiPKNf6jpV +RKDP8xMqLygfbdsYe72MwC4Ht8WdlPnc+wv9qghkjTOGWygn/TjUJn+TwPt1 +1R13KQsnio933yGwN+1nFYfyWdlKsbS7BDZ+r8nMp0zjmBuaNRI4pvIxNpXy +5U1Drv8eErhfyTE4gjLjVXRsdQeBKVnD3u6US/bRioKeEvjvS7ybCWVN3htt +qt0EHtfk3alEmcy0Ge9/RaCjnoXfAsrr1L+IXegnMD6KFf6GyofJNnm3xV8I +dHAqvXWScsuX27H3RgmM3fvtoytl62j7oojvBM7fD2GoU3YqThz//JvALz13 +mxqoennDYojnzxN4MtdJLZGyd2e9ofNCOnbWtOZbUg6c+R7buoyOA8e7Glqp +emSF7pL8JEbH/wonIqIpC4z0lfPR6NhlX3pPi3LR66ae9Qw6MtUK+BOvkRC2 +bV2g20o6OgkZLdKibPK4YkGkBh3PjKrmPKP6of+/8xq3DOhYvvZmijDlCsMl +jc+N6Ehevz18jeqnSM5RpwmkYxA+G2BTlrziH69uRcfUDokrHlQ/bklg9hZ4 +0NHamsyIpPpZ4d/1ffd86bhVYu37Gar/R8MZfG/30PGma1z3AcpJu5dq0cLo ++O+zZ4VHPgkNVm+PpSXRUU+rhy1CzRNdsTjtKC4dCTn24k5qPvEkTz3Iqqbj +ZPGlVTTKT/gCXKrr6ChBf7bAnZpve6fsE74301E0d3Dg3Xmqv3qVX/v30VE6 +sfxgPTUfJfNaT2zjY+DZ8/LyfdS8/SDFltsvwECfX4FO36h5TKZzuaeXMZDH +/oD7Aspb4rPftEsxcNh/5qVsEnVfv0DdDRoM1B/bnqt2nIRZddF+TUcGcrpD +izlRJExflonTc2GgisPBlCxqP/wUUVFmejCwk7wVGk3tj/FJZsCmPQzkVinB +emq/vK/zmXaJZuCaUKclOfup+Wp1WzipiIG3Au1PtlH7KXuvO7yfYuBFZaHj +U/YkXHi7+/3n39T5djIfYuxIOLflQMLYPAOV0q2CFm8lIU0vqWNGUAkTyEuL +hG1IiP/DdRJRUMKYo5x9s2ZUfJL5Q4zNlND+uo+NJYsE4/KK/MxMJbzwV16j +X4GE10R5nuklJXR+mH5HW57Kd2Zp7s88JSyLffPzKLXfb8cV59iXKiFva0Wc +JI3Kj3N+lnC9Emo38S9TW07Cav5z6ScGlfDPtMuPIV4q3h5RseEayqj6MMCs +/AMXvotZem5vVMYCPYztKOBCbyDjaUCLMkYce6HpnceFhoe/IeaRMgrx/Bc9 +ncOF9MhyxZIeZeyWGFlCy+LCmvdC72ZHlLFEcngRpHEhiNu587K4ClU/5Bf5 +SC6MbHF0/eCrgoEltYfVqP+1Dyme2/cvVsVxb3pl7xQHLL5FWHw0WIlDzLbP +D9dxYNRH4MDNmFXo/bX9qGBxJfX/LsWb2Lgar9o9Hf5VXwFij1XTON/UcJey +QUfM2zKQS6raamCggX/v/F2g21ICWepMUXF/TTzRLOgy3FkM7TIb1k6e0cLo +pcx//J8KgSXXmK7do41h4gcXf3t7BYT5roR5xa/BsG2egiqCBaAQp2i8Q1UH +1WO6E+bMc0FQxa3avkUHHVx+lGi3ZYMWW7oqYqcuBuy5d3eo/gLs7xdrsuTR +wy7jvtn6ynPwbTLF0SJLDz38um6eEMuAzdoPsy009VGgzulZVtRp+G/S6M+v +J/rIrQjoNxo7BUEaun3P/NZi0Gb7kff0RGCP+3btEDRAm8POwbpHj4GpMs1m +2RUDvP/0iDDzWCysij11qNHQEC9WiPgmfIkCNT/mPZU+Qzy9hEVck4kAv/92 +H78Zug6jG23SIjYcgHv5Xb7fVzAR+6KTpncHw8+S+V/at5m4tyKnLzxlD3za +bpZ/soaJX1PtkmMO7YHehanmQ3VMzLzLe/G87x6o85S5mNnAxIb5hqph4z0Q +T1vLmmtjYrHdoKDO+G4QTQo40v6Gieeb9UIMHHaDhn83jx8vCzMXcT1HVf3B +R6VcMNuGhTLch09TJ30hstk9QHUrC3P0ud02g76Q7ifWQdqzMHRq7qJspy/U +Fx1O6XBiYeTzORgo8wUJVXOROS8W2nZMyC3z8YWHqh8lPMNZmCJ37d9Ytw+o +rVIkVPNYWOQmIXmu2Ru+q501ICdY+DqysvxOuyf0PkJT8UkWevsfDSut94SG +oHGHsCkWyrkvOl5Y6QlppEWowW8WFu6YdK/J8AQ1Fk9FLZ8R6sfecNnp6gne +FvvoTZJGeO9BpYXYWw/o8t8s1GVshIO8G0pS1rnDncI/g1NJRjguquXOWOUK +BhvDflkmG6HuYHwXLHeFW4OjQvmpRqj5TGBj0G8XIBX6DS0zjLBUhPlu7pEL +VGQ1pOZeMkJIEpv8tN8F8lMSmJsrjfCb3L/Ul/d3wMkwkTNZL4zw9tuvOV/3 +OoPLJiU0UjBGk9w3mbfGHWGuS0C4iTBGvd0fW1X7HCHfb/y1pZIxWs/dFC5t +doRPJ2oiXFYZo6Qbq3ggxxH2t22pOqxrjDnlyrUy1o5wyvaIwh0zY2wt/KvL +ub4Nap27/+oHG+Of7b+TRKIdQHZfYo1WgzEur7QbUbe0g7T5XWuTG42x5OJM +QyHLDngzzLifHxgj61qjoJq6HYxU85fmtxmjyvqRzh1CdlDLczxL7IUxLq7M +NbHp3Aou52Ijpj8ao5jVnpAjTlshq+7w2v+WsnFs3dfE44O2sGJJINfGiY1q +pa43nU9ZQeHG6MiJHWzcmCNNigVZgW502sazbmzMSI2498nOCmwnON29Xmyc +di6ofiNtBSd6pmZ9AtnITtjSO1dmCTNXYkwi49job+OqyPfcAvqMzr4oLmdj +T/mmv6m65rD7YGGORSUb1YM/jHhLm8N05S2/UQ4bK+wc9m3hMQcxRu8vnWo2 +lv9zHQx6shmsBOTl7jawUdhzbH/z3s1Q31Xs+6KbjZ/+GLU3lJmBpfAdzfBe +NgYK/1VYdNYMeje3TdNes/F9x9Rrrygz+Fn7Ncl9gLrPKgdTN2sz0CxYc314 +hI3JHuEvXb6ZQn3fhvCUMTbGpoQG2/WagqWEA2hPsDHHy6F/531T2JV48FnY +FBvF1RbM3j5rCj8bTmRLzVDxieCP4482hfjfF3xqf7MxRcora/cuUxDVL9XY +OcdGlb02moNbTCF3X+3U/Dwbdx0S0QpmmsL/AD2P/kI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07293440466222245}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.07293440466222245}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk4VG8bAHCRooQQYz8zlsqaJZphuu8U2QuJkF1KspQokqVEWZJKkiyF +bDFzKmXpn0i2SguSSqSNkBJRyXveT+f6fTjnea57PXTvYHs/Xh4eHtoCHp7/ +P6f72x4oJxeur8kQWjrKu3F9Vy7t8IbeeFiY2ckfEUIHXNHpTevNAIGBuk+2 +IToQvrXsJV/vFWCunj6qF7IBlo9LZcy+JGFX+K4AgRA7eFdvG/zzZSMsdJXw +jA72AjPlkbffXz6HMBU7Xu99oTD70vD8xMv3ICYd6DPvGwdNG68VPrsyCYqW +2f9OzZ4BuXc1n7w15kCk3y/QxDUbJAI9yhZv5MPBXTsnZ6QKIEPHrM7WUQAv +Fto2NYgUwausNQ3fRZfh46Z6ut6BEkgujOnklV6OnicCTW7WloPUuaGTZy+L +Y+J1y3Wf4yuBpn7r+EyxOL4oTxIOTKkEmcYTMTs54jgsxQoeOV8JChOrD65s +Ekfmdv2OFyWVoGId4ln3RRxFujmPnJ9Ugt7COYMhPQn8439yWo1WBVvCJD/o +tkugenaK95fiKkjcZrH++fQKvFKz6ZCFMwdkbj6R4V0gic2p/BJpbhyoFN/2 +S2epJAYF6N1/4smBnufunDOKknhKHmw37eGAsl0Yw85cEiWvWa3iieRAo03e +oqcXJfG7yd9TtdkcmDObevLYWApX5+s8N3zFgfTiyPI5MynkVlZNzr2h3l/E +k6RpR1m8R65hgAPWzUs2pPpJIW+eZcK6LxzI3kjcsE6TQvPa4NLZaQ6sQ6sL +He+kcORYJu2uOBcOMAs82uJp+PTtde5mSy5Y5gv/tEqhYf0aYmi7DRcYi48k +PTlPw+fuVy95b+XC067t3BclNGwP6iwI3s4FrRAhvv4nNFz66yqvpzcXvhRH +FP+QkcbsdiXp7MNccJOwHZO9IY2eU31fDxRxQS+qLi63Xhp5g5OEJUq4sOT9 +Kkn6Q2nM11hUyynjQk0VH6i+ksZAnanyd1VckLSqSV8zL425TvvnxWup8+OU +9U2tZLDHTCix5zEXNn37HRk0JIMr16j5PPjBhcPm59Tuj8rg8FHziZGfXKgs +0OwTn5bBErUbWsK/uEDb5smsEZDFnvC9DZZ/uDB6p/kXn5YsCg2dXp/DR8LZ ++PSwi4dkUaRN7n2+OAmtr1crj8bJoiGr5WrGChL+6je9WJ8si3n1qrJxUlQf +fJ7S/XBZFgeEN2hskyWBZe36XatJFrd43x14ziDh/QrVoAfL5PD2wY43ujok +SAXfk5eSkkN+xmNiQpcE61bnx3sIOUwVGlIs0yehOjJZQ0RPDj3OPNgqsY6E +U+8mRnY4y+GJjMHE++tJ0C2t8/92RQ4DZa5fibEiIc7YzktmnTy+2uISlupN +grl77g9DE3mM+yHVNO9DgnDs12OO1vK4cviMeZAfCTlNCcXpnvI4e1v3N+wm +4Y5l7ddFJ+WRKlzB6n0kTDgrhU++ksfqAdmAsQgSbkeGLF7+QR4NcG2o0mES +jubczdIal8fxrYdqHCNJEBpwqtvDq4CotUG06ggJK/1TeAbUFDBfJ2lEP44E +94NTpx5FKeCtWGIy9SQJKhdM5EYSFDBN6oB30imSiv/p64vTFfA1cVohJpmE +yL+rn5oUKqCoh36sVyoJ54+5r6h5pIBzTcP/ZtNJcCsqL+7pUUCukMFIzxkS +GC0zhj8HFFDQNHkVJ4MEzpKzLtpTCjgzmlDgdI6ER2da8orkFZGuGXop8gKV +3xsSOk0rFTFFlFzLyiLBpdurcUBHEftnj62epvyF9veDrJkiflqtT/fJJoEv +f41aRpAi3hI9uHv5ZRLa70fXVR1SxB6/j59uUE4fard+HK+Iv5ZWN9vnkqCw +0i9Y4IIiLnz481pCHlUPlRdvHr2niC+WpUg1FJCw6eWTufFWRTwqfPut8RUS +bHkWbvZ4rogV8jvjqyn72Ae9go+KaLxkaUD+VRKCoq4yOOOK6MBOrRQtJOFQ +Ye9eYkYRt62O6YqmbBZFj4nlJ9CvoqrFtoiEDpH6q+uWEPiKNziTpLy1cHvr +hDCB307nWYgXk+D6OHm5F43AzlPunh2UQxSnr25QJ/DhYIuvZAkJUzfSW2e1 +CeRnxQR6UY40Vx/j6hM4fOepeynlhFBPA8Z6Alui/BatKSVhyaI/Ln0mlJ2M +7wZRTs8+H5OxmcCAk11eZZSzm9pbee0IlMs8FEErI0HR2W+s1pHAM9oKI5aU +C0fnlx9wIdAj+45NJGW1uGwDdQ8CQy9LXi2mXLVireuQD4Ed9xd/7aSsX9YZ +c2k3gaL2bqrTlGvXBxQ67CPw846PjtLlJMCLhW1L9xMYVRQWyaT8wD9vrCmc +wNGGN+e2U7b4yxQ7EkV979dEUQjlJ+ldBvqxBJ7YllCZSHmbSrDr6HECh/KC +qi5RflUjGFt4ksBDnvGlFZTdbQsL3dIIlOjLvFxL+cP79W0SZwncsOxYSjPl +PRGvxh5dIJCsVoh4THl8aZhYQg5lWxP355QP5AsbsgsIzBdoMemiPKNf6jpV +RKDP8xMqLygfbdsYe72MwC4Ht8WdlPnc+wv9qghkjTOGWygn/TjUJn+TwPt1 +1R13KQsnio933yGwN+1nFYfyWdlKsbS7BDZ+r8nMp0zjmBuaNRI4pvIxNpXy +5U1Drv8eErhfyTE4gjLjVXRsdQeBKVnD3u6US/bRioKeEvjvS7ybCWVN3htt +qt0EHtfk3alEmcy0Ge9/RaCjnoXfAsrr1L+IXegnMD6KFf6GyofJNnm3xV8I +dHAqvXWScsuX27H3RgmM3fvtoytl62j7oojvBM7fD2GoU3YqThz//JvALz13 +mxqoennDYojnzxN4MtdJLZGyd2e9ofNCOnbWtOZbUg6c+R7buoyOA8e7Glqp +emSF7pL8JEbH/wonIqIpC4z0lfPR6NhlX3pPi3LR66ae9Qw6MtUK+BOvkRC2 +bV2g20o6OgkZLdKibPK4YkGkBh3PjKrmPKP6of+/8xq3DOhYvvZmijDlCsMl +jc+N6Ehevz18jeqnSM5RpwmkYxA+G2BTlrziH69uRcfUDokrHlQ/bklg9hZ4 +0NHamsyIpPpZ4d/1ffd86bhVYu37Gar/R8MZfG/30PGma1z3AcpJu5dq0cLo ++O+zZ4VHPgkNVm+PpSXRUU+rhy1CzRNdsTjtKC4dCTn24k5qPvEkTz3Iqqbj +ZPGlVTTKT/gCXKrr6ChBf7bAnZpve6fsE74301E0d3Dg3Xmqv3qVX/v30VE6 +sfxgPTUfJfNaT2zjY+DZ8/LyfdS8/SDFltsvwECfX4FO36h5TKZzuaeXMZDH +/oD7Aspb4rPftEsxcNh/5qVsEnVfv0DdDRoM1B/bnqt2nIRZddF+TUcGcrpD +izlRJExflonTc2GgisPBlCxqP/wUUVFmejCwk7wVGk3tj/FJZsCmPQzkVinB +emq/vK/zmXaJZuCaUKclOfup+Wp1WzipiIG3Au1PtlH7KXuvO7yfYuBFZaHj +U/YkXHi7+/3n39T5djIfYuxIOLflQMLYPAOV0q2CFm8lIU0vqWNGUAkTyEuL +hG1IiP/DdRJRUMKYo5x9s2ZUfJL5Q4zNlND+uo+NJYsE4/KK/MxMJbzwV16j +X4GE10R5nuklJXR+mH5HW57Kd2Zp7s88JSyLffPzKLXfb8cV59iXKiFva0Wc +JI3Kj3N+lnC9Emo38S9TW07Cav5z6ScGlfDPtMuPIV4q3h5RseEayqj6MMCs +/AMXvotZem5vVMYCPYztKOBCbyDjaUCLMkYce6HpnceFhoe/IeaRMgrx/Bc9 +ncOF9MhyxZIeZeyWGFlCy+LCmvdC72ZHlLFEcngRpHEhiNu587K4ClU/5Bf5 +SC6MbHF0/eCrgoEltYfVqP+1Dyme2/cvVsVxb3pl7xQHLL5FWHw0WIlDzLbP +D9dxYNRH4MDNmFXo/bX9qGBxJfX/LsWb2Lgar9o9Hf5VXwFij1XTON/UcJey +QUfM2zKQS6raamCggX/v/F2g21ICWepMUXF/TTzRLOgy3FkM7TIb1k6e0cLo +pcx//J8KgSXXmK7do41h4gcXf3t7BYT5roR5xa/BsG2egiqCBaAQp2i8Q1UH +1WO6E+bMc0FQxa3avkUHHVx+lGi3ZYMWW7oqYqcuBuy5d3eo/gLs7xdrsuTR +wy7jvtn6ynPwbTLF0SJLDz38um6eEMuAzdoPsy009VGgzulZVtRp+G/S6M+v +J/rIrQjoNxo7BUEaun3P/NZi0Gb7kff0RGCP+3btEDRAm8POwbpHj4GpMs1m +2RUDvP/0iDDzWCysij11qNHQEC9WiPgmfIkCNT/mPZU+Qzy9hEVck4kAv/92 +H78Zug6jG23SIjYcgHv5Xb7fVzAR+6KTpncHw8+S+V/at5m4tyKnLzxlD3za +bpZ/soaJX1PtkmMO7YHehanmQ3VMzLzLe/G87x6o85S5mNnAxIb5hqph4z0Q +T1vLmmtjYrHdoKDO+G4QTQo40v6Gieeb9UIMHHaDhn83jx8vCzMXcT1HVf3B +R6VcMNuGhTLch09TJ30hstk9QHUrC3P0ud02g76Q7ifWQdqzMHRq7qJspy/U +Fx1O6XBiYeTzORgo8wUJVXOROS8W2nZMyC3z8YWHqh8lPMNZmCJ37d9Ytw+o +rVIkVPNYWOQmIXmu2Ru+q501ICdY+DqysvxOuyf0PkJT8UkWevsfDSut94SG +oHGHsCkWyrkvOl5Y6QlppEWowW8WFu6YdK/J8AQ1Fk9FLZ8R6sfecNnp6gne +FvvoTZJGeO9BpYXYWw/o8t8s1GVshIO8G0pS1rnDncI/g1NJRjguquXOWOUK +BhvDflkmG6HuYHwXLHeFW4OjQvmpRqj5TGBj0G8XIBX6DS0zjLBUhPlu7pEL +VGQ1pOZeMkJIEpv8tN8F8lMSmJsrjfCb3L/Ul/d3wMkwkTNZL4zw9tuvOV/3 +OoPLJiU0UjBGk9w3mbfGHWGuS0C4iTBGvd0fW1X7HCHfb/y1pZIxWs/dFC5t +doRPJ2oiXFYZo6Qbq3ggxxH2t22pOqxrjDnlyrUy1o5wyvaIwh0zY2wt/KvL +ub4Nap27/+oHG+Of7b+TRKIdQHZfYo1WgzEur7QbUbe0g7T5XWuTG42x5OJM +QyHLDngzzLifHxgj61qjoJq6HYxU85fmtxmjyvqRzh1CdlDLczxL7IUxLq7M +NbHp3Aou52Ijpj8ao5jVnpAjTlshq+7w2v+WsnFs3dfE44O2sGJJINfGiY1q +pa43nU9ZQeHG6MiJHWzcmCNNigVZgW502sazbmzMSI2498nOCmwnON29Xmyc +di6ofiNtBSd6pmZ9AtnITtjSO1dmCTNXYkwi49job+OqyPfcAvqMzr4oLmdj +T/mmv6m65rD7YGGORSUb1YM/jHhLm8N05S2/UQ4bK+wc9m3hMQcxRu8vnWo2 +lv9zHQx6shmsBOTl7jawUdhzbH/z3s1Q31Xs+6KbjZ/+GLU3lJmBpfAdzfBe +NgYK/1VYdNYMeje3TdNes/F9x9Rrrygz+Fn7Ncl9gLrPKgdTN2sz0CxYc314 +hI3JHuEvXb6ZQn3fhvCUMTbGpoQG2/WagqWEA2hPsDHHy6F/531T2JV48FnY +FBvF1RbM3j5rCj8bTmRLzVDxieCP4482hfjfF3xqf7MxRcora/cuUxDVL9XY +OcdGlb02moNbTCF3X+3U/Dwbdx0S0QpmmsL/AD2P/kI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07293440466222245}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07293440466222245}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993828079224345*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"cd077f9e-453c-427d-8777-ae5576bdaa20"] +}, Open ]], Cell[CellGroupData[{ @@ -4948,18 +11915,78 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"01995149-3665-fe4e-b326-b20429031afd"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"52cff8eb-0c77-c944-a54f-e282b00ce766"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.528106675674676`*^-156\\\", \ +RowBox[{\\\"\ +552513857212233842570175958778312308519209260189278753959051363142168\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1583212683407106418618000954093361543354777600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 45, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828079276276*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"6cac5023-b446-43de-8b7e-40e1674474a2"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5927435826819823`*^-158\\\", \ +RowBox[{\\\"\ +192330073695578600598678251250730514595536743471887934253145779509789\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"22\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1163350940137443209261321198991532417980825600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 46, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828079283992*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"ef697ddd-4f4d-44c0-a4f1-2f3fb2534445"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3698142567132043`*^-161\\\", \ +RowBox[{\\\"\ +692388265304082962155241704502629852543932276498796563311324806235240\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"25\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"8063384494795553340756316369516704730972160000000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 121, 47, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938280792908583`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"84045527-a3a4-4fc3-b85a-4c7ef0f29bd3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 121, 48, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938280792985086`*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"875c79c9-82cc-4b83-bcf8-813a05411c4c"], + +Cell[BoxData["10.279083452132488`"], "Output", + CellChangeTimes->{3.993828129839365*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"3e90121a-3156-4fe8-a426-2532c96c8b8d"] }, Open ]], Cell[CellGroupData[{ @@ -5026,27 +12053,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507468132763`*^9, - 3.9918507511809216`*^9}},ExpressionUUID->"11b1e372-f457-5a4d-bcee-\ -062a3c04ed96"], + CellChangeTimes->{{3.9918507468132763`*^9, 3.9918507511809216`*^9}}, + CellLabel-> + "In[122]:=",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cb5a1193-7562-6446-a279-d9f6295d156e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6742229535370675`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 122, 49, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828129879148*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"293ee980-50dc-427b-94c7-dc154d6858a9"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566b0ad4-7f4e-b04f-8294-646ce1913fac"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.399595096044404`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 122, 50, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828129886487*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"a48e0b4c-070c-4060-b15d-f15cbd09f799"], -Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.090246688768564`*^-216\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 122, 51, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828129895063*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"b5a761bc-a2be-4b62-8394-61b047a484ab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 122, 52, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938281299048023`*^9}, + CellLabel-> + "During evaluation of \ +In[122]:=",ExpressionUUID->"7d5382e8-c3b9-4773-ad10-30d8fb8f3592"], + +Cell[BoxData["0.5551793376567974`"], "Output", + CellChangeTimes->{3.993828137858778*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"dc4de957-5730-4b57-b809-7d06be46866c"] }, Open ]], Cell[CellGroupData[{ @@ -5067,8 +12139,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5113,27 +12184,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185075434021*^9, - 3.9918507570104733`*^9}},ExpressionUUID->"8cb4e371-90a5-d347-adec-\ -3382e7679ba8"], + CellChangeTimes->{{3.99185075434021*^9, 3.9918507570104733`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4cd45900-7eb0-6b4b-830a-a339e8117392"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6742229535370675`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 53, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828137901411*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"e4f4e70d-058b-4a05-ae6b-4721681bed66"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.399595096044404`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 123, 54, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828137909741*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"5b11d649-d8ca-4752-838e-368a7867daff"], -Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.090246688768564`*^-216\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 123, 55, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828137919608*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"030e7499-6e0c-4231-b649-37c2c367f31f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 123, 56, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938281379275093`*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"d2c27c6d-de96-4985-af58-fc09793a3db4"], + +Cell[BoxData["29.68274394668191`"], "Output", + CellChangeTimes->{3.9938281456755133`*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"17f82cfe-1d31-4ff7-85e4-908aaf79fa61"] }, Open ]], Cell[CellGroupData[{ @@ -5154,8 +12270,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5200,27 +12315,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918507598219967`*^9, - 3.9918507622107697`*^9}},ExpressionUUID->"732b358a-c98a-0347-8b16-\ -2462b23d6249"], + CellChangeTimes->{{3.9918507598219967`*^9, 3.9918507622107697`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6742229535370675`*^-207\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 57, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828145721992*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"662bd77d-5be4-4cf4-a561-b629609fd606"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"61220452-df6a-154e-8b5c-fecd0ab287a1"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.399595096044404`*^-212\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 124, 58, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828145730603*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"54901a8f-cc80-4439-97f2-136b854b9b55"], -Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.090246688768564`*^-216\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 124, 59, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828145737731*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"b085d053-c9d6-4fd6-9521-74d244a05c53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 124, 60, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828145744416*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"7152ba11-ae80-4e95-b2c7-1b00bbe74f5b"], + +Cell[BoxData["4.485436022942896`"], "Output", + CellChangeTimes->{3.993828150276031*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"564b9393-8d2c-48b2-8283-853df8a3a161"] }, Open ]], Cell[CellGroupData[{ @@ -5229,19 +12389,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918507652122154`*^9, - 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ -168ec8f367e1"], + CellChangeTimes->{{3.9918507652122154`*^9, 3.9918507685850487`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +Cell[BoxData["0.04811482807143176`"], "Output", + CellChangeTimes->{3.993828150312105*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"f5dfb1f7-de07-42d5-b9ad-9f79671df8f9"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918507716362114`*^9, 3.991850773604473*^9}, - 3.9919245563167305`*^9},ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-\ -e661a25a7ba1"], + 3.9919245563167305`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], Cell[CellGroupData[{ @@ -5262,10 +12426,14 @@ Cell[BoxData[ RowBox[{"-", "1"}]], "*", FractionBox[ RowBox[{"Ir", "*", "Il"}], - RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ -c74d-891b-10a6d009e34b"], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[BoxData["6.751799643369834`"], "Output", + CellChangeTimes->{3.9938281503284807`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"b5990166-c3b1-40e9-8f78-06680fc6461a"] }, Open ]], Cell[CellGroupData[{ @@ -5273,10 +12441,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ - FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ -bb01-e9142212274d"], + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[BoxData["3.726657061549849`"], "Output", + CellChangeTimes->{3.993828150340972*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"256c766e-ecc7-424e-9c70-ca9fab591158"] }, Open ]], Cell[CellGroupData[{ @@ -5284,10 +12456,14 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ - RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ -cb9a-bc4b-93f0-a7873f982a23"], + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[BoxData["25.161641819133944`"], "Output", + CellChangeTimes->{3.9938281503526793`*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"c88930b6-8909-4782-ba42-aa20a7bc65d0"] }, Open ]], Cell[CellGroupData[{ @@ -5475,10 +12651,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ -b13c-0185de64c37f"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[BoxData["0.006986934348276569`"], "Output", + CellChangeTimes->{3.9938281503673897`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"ab70f505-69d8-4564-9761-a945e7e03493"] }, Open ]], Cell[CellGroupData[{ @@ -5490,18 +12670,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"731f0e35-\ -7798-8b45-a769-075ac4b3983f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], - -Cell[BoxData["3.486503585502317`"], "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[BoxData["10.602337124162268`"], "Output", + CellChangeTimes->{3.9938281504910927`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"1594f949-6c11-43ef-92b4-110305badb9c"] }, Open ]], Cell[CellGroupData[{ @@ -5691,10 +12867,14 @@ Cell[BoxData[ RowBox[{"1.6", "*", SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ -9ccb-23aebae2e6d5"], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[BoxData["0.03889527413417352`"], "Output", + CellChangeTimes->{3.993828150504425*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"549be1e4-f341-440f-9142-2143def3d4cf"] }, Open ]], Cell[CellGroupData[{ @@ -5706,18 +12886,14 @@ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",ExpressionUUID->"e11d7eb8-\ -00a8-f540-98a0-89164ac4bae9"], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], - -Cell[BoxData["8.21047995098231`"], "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[BoxData["4.493621846922248`"], "Output", + CellChangeTimes->{3.993828150620839*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"7d50ac0e-9f6d-4d31-8b94-6f1d7dbb7747"] }, Open ]], Cell[CellGroupData[{ @@ -5808,10 +12984,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ -1ee89e798d8f"], + ")"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[BoxData["0.06383209948544989`"], "Output", + CellChangeTimes->{3.9938281506314573`*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"fa22a92f-48aa-4ca8-bb40-291d1fb2187a"] }, Open ]], Cell[CellGroupData[{ @@ -5899,10 +13079,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ -f30d036fcdd2"], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[BoxData["0.93616790051455`"], "Output", + CellChangeTimes->{3.993828150642571*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"defb8f53-9037-46b8-af1f-dbbc9c3789de"] }, Open ]], Cell[CellGroupData[{ @@ -6023,10 +13207,14 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ -7240-acd2-307af56b44db"], + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[BoxData["0.059757562560729505`"], "Output", + CellChangeTimes->{3.993828150657242*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"9ff9548f-9aba-4e72-8e81-419f83187f51"] }, Open ]], Cell[CellGroupData[{ @@ -6088,27 +13276,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507910247746`*^9},ExpressionUUID->"cd516020-ac7f-224d-b1ff-\ -af0307420662"], + CellChangeTimes->{3.9918507910247746`*^9}, + CellLabel-> + "In[137]:=",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"b82c1933-5313-1d4c-a858-68be8f118333"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.404719598709121`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 137, 61, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828150672162*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"aa8c1c98-3a26-4420-8424-270f13b23855"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1473298282087184`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 137, 62, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828150679749*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"24737e2f-9903-402a-8c8b-c8f496236bca"], -Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.486233463187866`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 137, 63, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828150685978*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"d5c91a2b-e0d6-4022-bc7d-639c7d424245"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 137, 64, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828150692163*^9}, + CellLabel-> + "During evaluation of \ +In[137]:=",ExpressionUUID->"d0a1e86d-5e90-4f1a-8540-c107ca39c6b2"], + +Cell[BoxData["10.602337124162279`"], "Output", + CellChangeTimes->{3.993828154831361*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"8129e512-383c-4748-83ce-9e609919c476"] }, Open ]], Cell[CellGroupData[{ @@ -6170,27 +13403,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918507936164455`*^9},ExpressionUUID->"a9d0e817-a1c8-6546-a901-\ -34313c6ec04d"], + CellChangeTimes->{3.9918507936164455`*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.404719598709121`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 65, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828154868322*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"bd433309-9459-43d7-8a20-d41f644fada0"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"56712e4d-1aa7-524a-8254-bcfd8978eea0"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1473298282087184`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 138, 66, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828154875187*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"b0a885f0-9ff3-4615-8bf1-754e1e351cfe"], -Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.486233463187866`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 138, 67, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938281548842373`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"e20a3c31-e45b-4264-b876-8286bdf2f188"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 68, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938281548919697`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"8b31624e-9214-4fc9-b6e4-5db9bed6b64d"], + +Cell[BoxData["4.493621846922249`"], "Output", + CellChangeTimes->{3.993828159013771*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"22534933-e950-4e45-ab72-da4e03c7b35c"] }, Open ]], Cell[CellGroupData[{ @@ -6248,489 +13526,391 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918507961174965`*^9},ExpressionUUID->"f68960b0-cff6-3245-b906-\ -ad38cf07d634"], + CellChangeTimes->{3.9918507961174965`*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9c6ce535-b42f-3c43-a89e-eda48c04121e"], + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0VesbB3AZusoUMiUyhxKdg0j1PBlSCGkylo5ztogSck+SbkndypUp +cW+lTEkks6RuV5LKD6WUBuEc0jFkPruUfm9/7PWuz3r2893vsNdeW5t1wIMj +KiIi0kuuX+PBlhVLq9ta1tU8jTxpOcCDdSO5Fiz7Ivh0mlP7y91Zlml69nXw +ZKG57ypid/b/5kozH4E7tzvIiriUe+yhhH0zZNwL5lkTn2lUfXCs8DmETb5o +siG+03bwynfGKzBcqbZoHbHg7dOYw3ffQErC2tdIvKhP12fa7j0M6KKIPbHz +lxjriOaP8F1V+4Ij8f3vAiluYQ8YpHRfcCbuOK5ypGo/D1bWxoq6E4/MtRdM +Mvog7MHM223EcxPCvJjCfqh7s3OJN7Gm/OWmg3cHYKtNautuYlf16fwRuyE4 +97ogIoSYuqqjbCI5An4ZcYERxMf03eL3NX+BodJ1j6OJ36i8XBlZOAZs051P +zxKzvYODUhPG4fC6ytBU4tFLItfK9k9A9/fJmEvEkjomC8YYU1Aop/6xhDiN +/dBxgdI02DFFGbXEWte9jpkKp+F+bvNoA7HV8lMjoXdpOLNepuwd8V7Lj80C +u+/QIudsJ/uZB5PcQ+LzDX6Ar5n3lDrxH3el1hhJzoJlhbuiMXEGWt0MbP4J +uGE6xZGYnddkH144BwUrLa6dJi5sTO0+ri6K04NJZRnEo592xSQniKIIdJoW +EscYT5Xf3i+GlVcZ+1uI00q0db8wJHB5j8Y3dQEP3rYN3Z/NkUDR9olgM2Kt +8WpvWaW5WF9e5+hAXGTummIinIvcemOHMOKGO9FzQu5KoiA12e0Z8dTD9o8D +dtKo0MDOuTDIAwUX6QVH7ktjTZOtTjmx2Ut7lLGWQdE1ilrPiYP5lVdXrpDF +hh3JGbJDPAgTbTZbK70A3ymaHD1P3Kdzayx+Wh4L/3VRvjFM9od6Oq+VqYBV +DXLxLcSiN/u1VQ8qoFjhx/BJYi3mEo/CQQU0PFf8bP0ID7ztkspauhVxlfWq +8F7i1oDwCJVnSmi17GGazSgPuq4nnvOXVMbENpzaSzw0WJhzw0EZnWYGX6YT +z4/ktds8UMah3nb5SWL7k9vM/StVcHmA8YmKMR7U5lpOFWSp4dmaebB5gge5 +fd+iVkdqYGR+ik3XNA82bj/dFVGsga4/WsNVhCS/QXFDcb8G9pSsUttCbJ67 +XEnLSxPTZ8+XPyJuYO0ql1i3BDX1CjUraB6Mf+n+fSBOC2/P1LflfeOBYqh9 +RflmHXwRd6D6/SwP+nPn73UP1kG5sIWduj95UPO+TX34lA6WedgE7yP2dfGL +M3igg60G6u9miHOXRXlkMnSRtf6wUHsOH8wF10djVfRwoWWYRpwYH7YFSpk4 +9eij9Al7i0xJPkDUdsbOH/qoYCNybYjYOD5rFVvNALXnuHFxHh9Ecpi2sVsM +UNOnPOgzcXGXz86y/wzw73rhTpTiw9wdRccXZS/F52uPc0Rl+VBjv7lDwDLC +ekOJXa8V+ZCz9eI7YawRul2Us7NayIdEVk+3+D9GyGPppGUSs/84NKjZboRn +X4dF+ynxQb7usshWO2NUT9TyFCjzIZg5YnxXdxlGNG31UV3EB3Wd88fO8Zej +e8CyK4+0+FB3dtLoq6gJXmI4h67V5oPvhNdLStsE32Ua1lUSX2nQM7LdZYLj +4szO6zp80AmsfUG/NsFNrKXyKXpkvUV9+tSzFbjr7Y2jsYZ80FDXpLS8zLA+ +RDui2owPy/MipWeAge1y85g3bfnAYsdNmbgy8FbBvm9WdnzI0E3p8vdl4JaL +hxiPicWyS243chl4Iz99km/Ph7dXBNtSShno8vz2f/qOfDiT4X/ZSJeJHlTo +yTpnPvSfc1nhOdccN6YadKzbzodr4Xrulc0W6KvtPy8jiA9tUbDqZJ41ZptO +p7/+hw/au165+oWsxUZfl0/cV3zg/Ky6pXEY8bOmzovHCn2gMljzmwrLFu/c +edJY6NcHkcw171OM7bEwvm9b7s0+YA1/b1IUOOCgX1tr688+KLaN+C2r1REj +++3VZgP6IXcy+L+itE2ophyy+NuTfqDXq/6v4Zgzshr8Fsy1/QQfRMTGevZs +xo9pD2Oq/vsE+xcfSDqu64aRDrW3GtcPwK2gpgcX4t3x3k5f5aKOAYieUBMu +C9qCrKA8FfN9n2HKacOOx7s9sDV7u/kdZQFY+ySv79uyFf1kzjwceyKAF2qX +gxuY2zDIQq7xY/QgLMqPqysw3I4Frc+TtjoMQU23sYurzA5M8DsdaSc9DJov +RwOjhndgctGZlog3w8C8kFyU070TNWoP2wj/HYHL4hMrUh56orto/D7pa1+g +ar3p2/g7Xpg2bG+y1G0UMladlf9e6I1/eg2EvmgdhdZ3eaeYCT4Y/fv7yC3O +Y1C5+ZJe2B++GJ57yeX4yzEYC90qsp/th9viOhMkd47D1AajvSN2u9DOlNqY +/2YcCoY76QjL3ShcI5HsRk2A57W8AD9pfzT+UybzrGACysucd4ud9se1v/u3 +tHMnwVr9xdczX/1xGWP7pcSZSdDtDnz7PGgP9sd3bUnlTgFfap/bJd4eZG4V +r3KemYK2RNcAx+0srM77cGLPgWlI42ZJHWpjYXDTaCezbxrq7v/8GrApAP8O +DUi1dxOCnC+eZtYGYK7r+/tOBUKw9h8piDdn4/nZNJns70LIzxyNcLVkY9eX +YteHP4SwsH18nYoVG6UfbW7mzQphxEH4ssCGjdtZi2N05tDk+yIyp9mWjUr6 +r/LTJWiQFcp7KWxho1iL4aiXLA38vyzmZYWykfocd8FpCQ2Jd2OCavLZePGb +fn3jOhpCGRetuQVsVHmmdu420OByo3SeVSEbD0tdPJOJNMy/2H+jupiNHrt8 +DYJsaYgPdxdUVbBR6qp/56wDDTFGevsq69nom7uBFttMQ/DFZyFlXWyUcbtx +J8Kbhk2y/WvCu9k49NPjuZ0PDYbxIjKMXjaaOG9UVfSloT/cori0j41JU57M +Ej8a9rhmDd8eYmP6yHjGB38aPCUi9pd8Y+PaF39/VQikwTFiUViRMgdHNNw6 +usJpqM865ZSiykGZoDZeTgQNa5rH9biLOGggvnAqMJIGM/1nnXaaHGysltEZ +PkSD2usjdu/0OWg3OO/qIJeGwdUflOdbcFBc8ctsTSwN50Wv3gvcykHfdNmh +1DNk/abSGZu3c/DWk2o567M0nPThhjN3ctAnc8bsAzG3wn3pT28Ouu7P2qeT +QOZPzUlOZ5F+v6N1VxNpYD5lsR8d5ODzjkv5Iak0vE7Wl9JN4qC31/NovETD +LZDZO5DMwTafwGV1xCeHJxuKUznYoZQ0bXmZBsamhlirixzMu6v73ugKOT+R +gPHNVzjIe6PfI36Vhg0HrnZyizj4T0jHnfM5NGho/Gm57hYHNa+Yz/1BPPn0 +QKrYbQ4KllD7gnJpyDaAzYnlHGTmvj0GeTT8+PDhQU4tB8uSV7d059NQ4aJe +0NLEwU+dCwaFN2g4901UIu0pB+s2vKnZUUgDq0Cwx6uZg8vVBZcriBeI16rz +WzkYsSmlOPQmDSF3Pc9/7eBgueip7pdFNOgap0fp9ZH+dJsTv5fQ8O310fbP +/RxcfO9I7WPitniOWckAeX5thaTKbRpie8wF1kMc1DvS0F9G/Daj3c9tgoOJ +Kq7XP5bSkPKbvEP0HApVb3kby1TQUDf+wSdSjMLKSHTaQfzpQ2H4fgkK47bp +OVwhXlNhf5U1j9wfc/6ZcSV53/y5M07yFD44kq9qWUXm7+Kg4KBI4Z4KE9ko +YptVCkagRKGVhWxXBXGSTNEOphqFNpbnpU2rSb32Y6m6NoVHridnK9XQQOUV +NSnpUrjIsGevC3FS0uGPcvoU1sOM5AnifkpRRtyIwvvhrh2ff9UVHfcOmVEY +ofhvzs07NNTOKh7rZ1BYMb/EspO473P3hW5zCgu1xrIlamlY/SD64UsrCg3n +W/7mQ8wPuaV5Dym8K7H7h5BY1vOIRbUthWUVh70Wk/9ca7uNLqX2FHbtPJkI +xIlqvYfzNlIYKwlxJ4hrxEuSspwozK97a5tNzPty5HqmC4UHyta+e0Bs1aj0 +6i93Uj9jnv6NmFXaO3jag8LkrqoapToa/rpUInpiG4Xavh/KTYl7wzeZRXlS +eD1FyPQnltml7BjmTZzwviaK2GoTzy/Yl8LQlRuVE371Lzl6bpc/ha/eZHqX +E9fMd8r2ZFFYLohY/+hX3pTyHQ82hZ8f1Yl0/Mrr4bW6UBTmeBzI6PuV13y7 +f8NeCsdfnJKcJGZVH/2BwRQ+6Z11n3OP5Gc7LbQJoXDi9/aDMsQ1f6kss9hP +oX6vyD5V4l4uf71pGIXTT+PW6BBLs0s9jcIpHLPw6jcmXuUWe0A3kuzXH7F7 +GcSs1c6nNKIonN0zVm9FnKCvelmFS2HdYMnUWuKqBX3l8tGk/88aEVvinpnS +p1IxFDbPzuPb/8r/FNsjEUvhwZCcrA3Eli+c6Z/HKBxwOsl0JP4/JyboGQ== -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB3AZusoUMiUyhxKdg0j1PBlSCGkylo5ztogSck+SbkndypUp +cW+lTEkks6RuV5LKD6WUBuEc0jFkPruUfm9/7PWuz3r2893vsNdeW5t1wIMj +KiIi0kuuX+PBlhVLq9ta1tU8jTxpOcCDdSO5Fiz7Ivh0mlP7y91Zlml69nXw +ZKG57ypid/b/5kozH4E7tzvIiriUe+yhhH0zZNwL5lkTn2lUfXCs8DmETb5o +siG+03bwynfGKzBcqbZoHbHg7dOYw3ffQErC2tdIvKhP12fa7j0M6KKIPbHz +lxjriOaP8F1V+4Ij8f3vAiluYQ8YpHRfcCbuOK5ypGo/D1bWxoq6E4/MtRdM +Mvog7MHM223EcxPCvJjCfqh7s3OJN7Gm/OWmg3cHYKtNautuYlf16fwRuyE4 +97ogIoSYuqqjbCI5An4ZcYERxMf03eL3NX+BodJ1j6OJ36i8XBlZOAZs051P +zxKzvYODUhPG4fC6ytBU4tFLItfK9k9A9/fJmEvEkjomC8YYU1Aop/6xhDiN +/dBxgdI02DFFGbXEWte9jpkKp+F+bvNoA7HV8lMjoXdpOLNepuwd8V7Lj80C +u+/QIudsJ/uZB5PcQ+LzDX6Ar5n3lDrxH3el1hhJzoJlhbuiMXEGWt0MbP4J +uGE6xZGYnddkH144BwUrLa6dJi5sTO0+ri6K04NJZRnEo592xSQniKIIdJoW +EscYT5Xf3i+GlVcZ+1uI00q0db8wJHB5j8Y3dQEP3rYN3Z/NkUDR9olgM2Kt +8WpvWaW5WF9e5+hAXGTummIinIvcemOHMOKGO9FzQu5KoiA12e0Z8dTD9o8D +dtKo0MDOuTDIAwUX6QVH7ktjTZOtTjmx2Ut7lLGWQdE1ilrPiYP5lVdXrpDF +hh3JGbJDPAgTbTZbK70A3ymaHD1P3Kdzayx+Wh4L/3VRvjFM9od6Oq+VqYBV +DXLxLcSiN/u1VQ8qoFjhx/BJYi3mEo/CQQU0PFf8bP0ID7ztkspauhVxlfWq +8F7i1oDwCJVnSmi17GGazSgPuq4nnvOXVMbENpzaSzw0WJhzw0EZnWYGX6YT +z4/ktds8UMah3nb5SWL7k9vM/StVcHmA8YmKMR7U5lpOFWSp4dmaebB5gge5 +fd+iVkdqYGR+ik3XNA82bj/dFVGsga4/WsNVhCS/QXFDcb8G9pSsUttCbJ67 +XEnLSxPTZ8+XPyJuYO0ql1i3BDX1CjUraB6Mf+n+fSBOC2/P1LflfeOBYqh9 +RflmHXwRd6D6/SwP+nPn73UP1kG5sIWduj95UPO+TX34lA6WedgE7yP2dfGL +M3igg60G6u9miHOXRXlkMnSRtf6wUHsOH8wF10djVfRwoWWYRpwYH7YFSpk4 +9eij9Al7i0xJPkDUdsbOH/qoYCNybYjYOD5rFVvNALXnuHFxHh9Ecpi2sVsM +UNOnPOgzcXGXz86y/wzw73rhTpTiw9wdRccXZS/F52uPc0Rl+VBjv7lDwDLC +ekOJXa8V+ZCz9eI7YawRul2Us7NayIdEVk+3+D9GyGPppGUSs/84NKjZboRn +X4dF+ynxQb7usshWO2NUT9TyFCjzIZg5YnxXdxlGNG31UV3EB3Wd88fO8Zej +e8CyK4+0+FB3dtLoq6gJXmI4h67V5oPvhNdLStsE32Ua1lUSX2nQM7LdZYLj +4szO6zp80AmsfUG/NsFNrKXyKXpkvUV9+tSzFbjr7Y2jsYZ80FDXpLS8zLA+ +RDui2owPy/MipWeAge1y85g3bfnAYsdNmbgy8FbBvm9WdnzI0E3p8vdl4JaL +hxiPicWyS243chl4Iz99km/Ph7dXBNtSShno8vz2f/qOfDiT4X/ZSJeJHlTo +yTpnPvSfc1nhOdccN6YadKzbzodr4Xrulc0W6KvtPy8jiA9tUbDqZJ41ZptO +p7/+hw/au165+oWsxUZfl0/cV3zg/Ky6pXEY8bOmzovHCn2gMljzmwrLFu/c +edJY6NcHkcw171OM7bEwvm9b7s0+YA1/b1IUOOCgX1tr688+KLaN+C2r1REj +++3VZgP6IXcy+L+itE2ophyy+NuTfqDXq/6v4Zgzshr8Fsy1/QQfRMTGevZs +xo9pD2Oq/vsE+xcfSDqu64aRDrW3GtcPwK2gpgcX4t3x3k5f5aKOAYieUBMu +C9qCrKA8FfN9n2HKacOOx7s9sDV7u/kdZQFY+ySv79uyFf1kzjwceyKAF2qX +gxuY2zDIQq7xY/QgLMqPqysw3I4Frc+TtjoMQU23sYurzA5M8DsdaSc9DJov +RwOjhndgctGZlog3w8C8kFyU070TNWoP2wj/HYHL4hMrUh56orto/D7pa1+g +ar3p2/g7Xpg2bG+y1G0UMladlf9e6I1/eg2EvmgdhdZ3eaeYCT4Y/fv7yC3O +Y1C5+ZJe2B++GJ57yeX4yzEYC90qsp/th9viOhMkd47D1AajvSN2u9DOlNqY +/2YcCoY76QjL3ShcI5HsRk2A57W8AD9pfzT+UybzrGACysucd4ud9se1v/u3 +tHMnwVr9xdczX/1xGWP7pcSZSdDtDnz7PGgP9sd3bUnlTgFfap/bJd4eZG4V +r3KemYK2RNcAx+0srM77cGLPgWlI42ZJHWpjYXDTaCezbxrq7v/8GrApAP8O +DUi1dxOCnC+eZtYGYK7r+/tOBUKw9h8piDdn4/nZNJns70LIzxyNcLVkY9eX +YteHP4SwsH18nYoVG6UfbW7mzQphxEH4ssCGjdtZi2N05tDk+yIyp9mWjUr6 +r/LTJWiQFcp7KWxho1iL4aiXLA38vyzmZYWykfocd8FpCQ2Jd2OCavLZePGb +fn3jOhpCGRetuQVsVHmmdu420OByo3SeVSEbD0tdPJOJNMy/2H+jupiNHrt8 +DYJsaYgPdxdUVbBR6qp/56wDDTFGevsq69nom7uBFttMQ/DFZyFlXWyUcbtx +J8Kbhk2y/WvCu9k49NPjuZ0PDYbxIjKMXjaaOG9UVfSloT/cori0j41JU57M +Ej8a9rhmDd8eYmP6yHjGB38aPCUi9pd8Y+PaF39/VQikwTFiUViRMgdHNNw6 +usJpqM865ZSiykGZoDZeTgQNa5rH9biLOGggvnAqMJIGM/1nnXaaHGysltEZ +PkSD2usjdu/0OWg3OO/qIJeGwdUflOdbcFBc8ctsTSwN50Wv3gvcykHfdNmh +1DNk/abSGZu3c/DWk2o567M0nPThhjN3ctAnc8bsAzG3wn3pT28Ouu7P2qeT +QOZPzUlOZ5F+v6N1VxNpYD5lsR8d5ODzjkv5Iak0vE7Wl9JN4qC31/NovETD +LZDZO5DMwTafwGV1xCeHJxuKUznYoZQ0bXmZBsamhlirixzMu6v73ugKOT+R +gPHNVzjIe6PfI36Vhg0HrnZyizj4T0jHnfM5NGho/Gm57hYHNa+Yz/1BPPn0 +QKrYbQ4KllD7gnJpyDaAzYnlHGTmvj0GeTT8+PDhQU4tB8uSV7d059NQ4aJe +0NLEwU+dCwaFN2g4901UIu0pB+s2vKnZUUgDq0Cwx6uZg8vVBZcriBeI16rz +WzkYsSmlOPQmDSF3Pc9/7eBgueip7pdFNOgap0fp9ZH+dJsTv5fQ8O310fbP +/RxcfO9I7WPitniOWckAeX5thaTKbRpie8wF1kMc1DvS0F9G/Daj3c9tgoOJ +Kq7XP5bSkPKbvEP0HApVb3kby1TQUDf+wSdSjMLKSHTaQfzpQ2H4fgkK47bp +OVwhXlNhf5U1j9wfc/6ZcSV53/y5M07yFD44kq9qWUXm7+Kg4KBI4Z4KE9ko +YptVCkagRKGVhWxXBXGSTNEOphqFNpbnpU2rSb32Y6m6NoVHridnK9XQQOUV +NSnpUrjIsGevC3FS0uGPcvoU1sOM5AnifkpRRtyIwvvhrh2ff9UVHfcOmVEY +ofhvzs07NNTOKh7rZ1BYMb/EspO473P3hW5zCgu1xrIlamlY/SD64UsrCg3n +W/7mQ8wPuaV5Dym8K7H7h5BY1vOIRbUthWUVh70Wk/9ca7uNLqX2FHbtPJkI +xIlqvYfzNlIYKwlxJ4hrxEuSspwozK97a5tNzPty5HqmC4UHyta+e0Bs1aj0 +6i93Uj9jnv6NmFXaO3jag8LkrqoapToa/rpUInpiG4Xavh/KTYl7wzeZRXlS +eD1FyPQnltml7BjmTZzwviaK2GoTzy/Yl8LQlRuVE371Lzl6bpc/ha/eZHqX +E9fMd8r2ZFFYLohY/+hX3pTyHQ82hZ8f1Yl0/Mrr4bW6UBTmeBzI6PuV13y7 +f8NeCsdfnJKcJGZVH/2BwRQ+6Z11n3OP5Gc7LbQJoXDi9/aDMsQ1f6kss9hP +oX6vyD5V4l4uf71pGIXTT+PW6BBLs0s9jcIpHLPw6jcmXuUWe0A3kuzXH7F7 +GcSs1c6nNKIonN0zVm9FnKCvelmFS2HdYMnUWuKqBX3l8tGk/88aEVvinpnS +p1IxFDbPzuPb/8r/FNsjEUvhwZCcrA3Eli+c6Z/HKBxwOsl0JP4/JyboGQ== -Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6220963084254754, + 1.5462104809163808`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6220963084254767}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.6220963084254754, + 1.5462104809163808`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6220963084254767}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk0VesbB3AZusoUMiUyhxKdg0j1PBlSCGkylo5ztogSck+SbkndypUp +cW+lTEkks6RuV5LKD6WUBuEc0jFkPruUfm9/7PWuz3r2893vsNdeW5t1wIMj +KiIi0kuuX+PBlhVLq9ta1tU8jTxpOcCDdSO5Fiz7Ivh0mlP7y91Zlml69nXw +ZKG57ypid/b/5kozH4E7tzvIiriUe+yhhH0zZNwL5lkTn2lUfXCs8DmETb5o +siG+03bwynfGKzBcqbZoHbHg7dOYw3ffQErC2tdIvKhP12fa7j0M6KKIPbHz +lxjriOaP8F1V+4Ij8f3vAiluYQ8YpHRfcCbuOK5ypGo/D1bWxoq6E4/MtRdM +Mvog7MHM223EcxPCvJjCfqh7s3OJN7Gm/OWmg3cHYKtNautuYlf16fwRuyE4 +97ogIoSYuqqjbCI5An4ZcYERxMf03eL3NX+BodJ1j6OJ36i8XBlZOAZs051P +zxKzvYODUhPG4fC6ytBU4tFLItfK9k9A9/fJmEvEkjomC8YYU1Aop/6xhDiN +/dBxgdI02DFFGbXEWte9jpkKp+F+bvNoA7HV8lMjoXdpOLNepuwd8V7Lj80C +u+/QIudsJ/uZB5PcQ+LzDX6Ar5n3lDrxH3el1hhJzoJlhbuiMXEGWt0MbP4J +uGE6xZGYnddkH144BwUrLa6dJi5sTO0+ri6K04NJZRnEo592xSQniKIIdJoW +EscYT5Xf3i+GlVcZ+1uI00q0db8wJHB5j8Y3dQEP3rYN3Z/NkUDR9olgM2Kt +8WpvWaW5WF9e5+hAXGTummIinIvcemOHMOKGO9FzQu5KoiA12e0Z8dTD9o8D +dtKo0MDOuTDIAwUX6QVH7ktjTZOtTjmx2Ut7lLGWQdE1ilrPiYP5lVdXrpDF +hh3JGbJDPAgTbTZbK70A3ymaHD1P3Kdzayx+Wh4L/3VRvjFM9od6Oq+VqYBV +DXLxLcSiN/u1VQ8qoFjhx/BJYi3mEo/CQQU0PFf8bP0ID7ztkspauhVxlfWq +8F7i1oDwCJVnSmi17GGazSgPuq4nnvOXVMbENpzaSzw0WJhzw0EZnWYGX6YT +z4/ktds8UMah3nb5SWL7k9vM/StVcHmA8YmKMR7U5lpOFWSp4dmaebB5gge5 +fd+iVkdqYGR+ik3XNA82bj/dFVGsga4/WsNVhCS/QXFDcb8G9pSsUttCbJ67 +XEnLSxPTZ8+XPyJuYO0ql1i3BDX1CjUraB6Mf+n+fSBOC2/P1LflfeOBYqh9 +RflmHXwRd6D6/SwP+nPn73UP1kG5sIWduj95UPO+TX34lA6WedgE7yP2dfGL +M3igg60G6u9miHOXRXlkMnSRtf6wUHsOH8wF10djVfRwoWWYRpwYH7YFSpk4 +9eij9Al7i0xJPkDUdsbOH/qoYCNybYjYOD5rFVvNALXnuHFxHh9Ecpi2sVsM +UNOnPOgzcXGXz86y/wzw73rhTpTiw9wdRccXZS/F52uPc0Rl+VBjv7lDwDLC +ekOJXa8V+ZCz9eI7YawRul2Us7NayIdEVk+3+D9GyGPppGUSs/84NKjZboRn +X4dF+ynxQb7usshWO2NUT9TyFCjzIZg5YnxXdxlGNG31UV3EB3Wd88fO8Zej +e8CyK4+0+FB3dtLoq6gJXmI4h67V5oPvhNdLStsE32Ua1lUSX2nQM7LdZYLj +4szO6zp80AmsfUG/NsFNrKXyKXpkvUV9+tSzFbjr7Y2jsYZ80FDXpLS8zLA+ +RDui2owPy/MipWeAge1y85g3bfnAYsdNmbgy8FbBvm9WdnzI0E3p8vdl4JaL +hxiPicWyS243chl4Iz99km/Ph7dXBNtSShno8vz2f/qOfDiT4X/ZSJeJHlTo +yTpnPvSfc1nhOdccN6YadKzbzodr4Xrulc0W6KvtPy8jiA9tUbDqZJ41ZptO +p7/+hw/au165+oWsxUZfl0/cV3zg/Ky6pXEY8bOmzovHCn2gMljzmwrLFu/c +edJY6NcHkcw171OM7bEwvm9b7s0+YA1/b1IUOOCgX1tr688+KLaN+C2r1REj +++3VZgP6IXcy+L+itE2ophyy+NuTfqDXq/6v4Zgzshr8Fsy1/QQfRMTGevZs +xo9pD2Oq/vsE+xcfSDqu64aRDrW3GtcPwK2gpgcX4t3x3k5f5aKOAYieUBMu +C9qCrKA8FfN9n2HKacOOx7s9sDV7u/kdZQFY+ySv79uyFf1kzjwceyKAF2qX +gxuY2zDIQq7xY/QgLMqPqysw3I4Frc+TtjoMQU23sYurzA5M8DsdaSc9DJov +RwOjhndgctGZlog3w8C8kFyU070TNWoP2wj/HYHL4hMrUh56orto/D7pa1+g +ar3p2/g7Xpg2bG+y1G0UMladlf9e6I1/eg2EvmgdhdZ3eaeYCT4Y/fv7yC3O +Y1C5+ZJe2B++GJ57yeX4yzEYC90qsp/th9viOhMkd47D1AajvSN2u9DOlNqY +/2YcCoY76QjL3ShcI5HsRk2A57W8AD9pfzT+UybzrGACysucd4ud9se1v/u3 +tHMnwVr9xdczX/1xGWP7pcSZSdDtDnz7PGgP9sd3bUnlTgFfap/bJd4eZG4V +r3KemYK2RNcAx+0srM77cGLPgWlI42ZJHWpjYXDTaCezbxrq7v/8GrApAP8O +DUi1dxOCnC+eZtYGYK7r+/tOBUKw9h8piDdn4/nZNJns70LIzxyNcLVkY9eX +YteHP4SwsH18nYoVG6UfbW7mzQphxEH4ssCGjdtZi2N05tDk+yIyp9mWjUr6 +r/LTJWiQFcp7KWxho1iL4aiXLA38vyzmZYWykfocd8FpCQ2Jd2OCavLZePGb +fn3jOhpCGRetuQVsVHmmdu420OByo3SeVSEbD0tdPJOJNMy/2H+jupiNHrt8 +DYJsaYgPdxdUVbBR6qp/56wDDTFGevsq69nom7uBFttMQ/DFZyFlXWyUcbtx +J8Kbhk2y/WvCu9k49NPjuZ0PDYbxIjKMXjaaOG9UVfSloT/cori0j41JU57M +Ej8a9rhmDd8eYmP6yHjGB38aPCUi9pd8Y+PaF39/VQikwTFiUViRMgdHNNw6 +usJpqM865ZSiykGZoDZeTgQNa5rH9biLOGggvnAqMJIGM/1nnXaaHGysltEZ +PkSD2usjdu/0OWg3OO/qIJeGwdUflOdbcFBc8ctsTSwN50Wv3gvcykHfdNmh +1DNk/abSGZu3c/DWk2o567M0nPThhjN3ctAnc8bsAzG3wn3pT28Ouu7P2qeT +QOZPzUlOZ5F+v6N1VxNpYD5lsR8d5ODzjkv5Iak0vE7Wl9JN4qC31/NovETD +LZDZO5DMwTafwGV1xCeHJxuKUznYoZQ0bXmZBsamhlirixzMu6v73ugKOT+R +gPHNVzjIe6PfI36Vhg0HrnZyizj4T0jHnfM5NGho/Gm57hYHNa+Yz/1BPPn0 +QKrYbQ4KllD7gnJpyDaAzYnlHGTmvj0GeTT8+PDhQU4tB8uSV7d059NQ4aJe +0NLEwU+dCwaFN2g4901UIu0pB+s2vKnZUUgDq0Cwx6uZg8vVBZcriBeI16rz +WzkYsSmlOPQmDSF3Pc9/7eBgueip7pdFNOgap0fp9ZH+dJsTv5fQ8O310fbP +/RxcfO9I7WPitniOWckAeX5thaTKbRpie8wF1kMc1DvS0F9G/Daj3c9tgoOJ +Kq7XP5bSkPKbvEP0HApVb3kby1TQUDf+wSdSjMLKSHTaQfzpQ2H4fgkK47bp +OVwhXlNhf5U1j9wfc/6ZcSV53/y5M07yFD44kq9qWUXm7+Kg4KBI4Z4KE9ko +YptVCkagRKGVhWxXBXGSTNEOphqFNpbnpU2rSb32Y6m6NoVHridnK9XQQOUV +NSnpUrjIsGevC3FS0uGPcvoU1sOM5AnifkpRRtyIwvvhrh2ff9UVHfcOmVEY +ofhvzs07NNTOKh7rZ1BYMb/EspO473P3hW5zCgu1xrIlamlY/SD64UsrCg3n +W/7mQ8wPuaV5Dym8K7H7h5BY1vOIRbUthWUVh70Wk/9ca7uNLqX2FHbtPJkI +xIlqvYfzNlIYKwlxJ4hrxEuSspwozK97a5tNzPty5HqmC4UHyta+e0Bs1aj0 +6i93Uj9jnv6NmFXaO3jag8LkrqoapToa/rpUInpiG4Xavh/KTYl7wzeZRXlS +eD1FyPQnltml7BjmTZzwviaK2GoTzy/Yl8LQlRuVE371Lzl6bpc/ha/eZHqX +E9fMd8r2ZFFYLohY/+hX3pTyHQ82hZ8f1Yl0/Mrr4bW6UBTmeBzI6PuV13y7 +f8NeCsdfnJKcJGZVH/2BwRQ+6Z11n3OP5Gc7LbQJoXDi9/aDMsQ1f6kss9hP +oX6vyD5V4l4uf71pGIXTT+PW6BBLs0s9jcIpHLPw6jcmXuUWe0A3kuzXH7F7 +GcSs1c6nNKIonN0zVm9FnKCvelmFS2HdYMnUWuKqBX3l8tGk/88aEVvinpnS +p1IxFDbPzuPb/8r/FNsjEUvhwZCcrA3Eli+c6Z/HKBxwOsl0JP4/JyboGQ== -Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.00529101 -0.551091 0.817918 [ -[.15608 .25433 -6 -9 ] -[.15608 .25433 6 0 ] -[.28836 .25433 -6 -9 ] -[.28836 .25433 6 0 ] -[.42063 .25433 -6 -9 ] -[.42063 .25433 6 0 ] -[.55291 .25433 -9 -9 ] -[.55291 .25433 9 0 ] -[.68519 .25433 -9 -9 ] -[.68519 .25433 9 0 ] -[.81746 .25433 -9 -9 ] -[.81746 .25433 9 0 ] -[.94974 .25433 -9 -9 ] -[.94974 .25433 9 0 ] -[.01131 .02145 -18 -4.5 ] -[.01131 .02145 0 4.5 ] -[.01131 .10324 -18 -4.5 ] -[.01131 .10324 0 4.5 ] -[.01131 .18504 -18 -4.5 ] -[.01131 .18504 0 4.5 ] -[.01131 .34862 -18 -4.5 ] -[.01131 .34862 0 4.5 ] -[.01131 .43041 -18 -4.5 ] -[.01131 .43041 0 4.5 ] -[.01131 .5122 -18 -4.5 ] -[.01131 .5122 0 4.5 ] -[.01131 .59399 -18 -4.5 ] -[.01131 .59399 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15608 .26683 m -.15608 .27308 L -s -[(25)] .15608 .25433 0 1 Mshowa -.28836 .26683 m -.28836 .27308 L -s -[(50)] .28836 .25433 0 1 Mshowa -.42063 .26683 m -.42063 .27308 L -s -[(75)] .42063 .25433 0 1 Mshowa -.55291 .26683 m -.55291 .27308 L -s -[(100)] .55291 .25433 0 1 Mshowa -.68519 .26683 m -.68519 .27308 L -s -[(125)] .68519 .25433 0 1 Mshowa -.81746 .26683 m -.81746 .27308 L -s -[(150)] .81746 .25433 0 1 Mshowa -.94974 .26683 m -.94974 .27308 L -s -[(175)] .94974 .25433 0 1 Mshowa -.125 Mabswid -.05026 .26683 m -.05026 .27058 L -s -.07672 .26683 m -.07672 .27058 L -s -.10317 .26683 m -.10317 .27058 L -s -.12963 .26683 m -.12963 .27058 L -s -.18254 .26683 m -.18254 .27058 L -s -.20899 .26683 m -.20899 .27058 L -s -.23545 .26683 m -.23545 .27058 L -s -.2619 .26683 m -.2619 .27058 L -s -.31481 .26683 m -.31481 .27058 L -s -.34127 .26683 m -.34127 .27058 L -s -.36772 .26683 m -.36772 .27058 L -s -.39418 .26683 m -.39418 .27058 L -s -.44709 .26683 m -.44709 .27058 L -s -.47354 .26683 m -.47354 .27058 L -s -.5 .26683 m -.5 .27058 L -s -.52646 .26683 m -.52646 .27058 L -s -.57937 .26683 m -.57937 .27058 L -s -.60582 .26683 m -.60582 .27058 L -s -.63228 .26683 m -.63228 .27058 L -s -.65873 .26683 m -.65873 .27058 L -s -.71164 .26683 m -.71164 .27058 L -s -.7381 .26683 m -.7381 .27058 L -s -.76455 .26683 m -.76455 .27058 L -s -.79101 .26683 m -.79101 .27058 L -s -.84392 .26683 m -.84392 .27058 L -s -.87037 .26683 m -.87037 .27058 L -s -.89683 .26683 m -.89683 .27058 L -s -.92328 .26683 m -.92328 .27058 L -s -.97619 .26683 m -.97619 .27058 L -s -.25 Mabswid -0 .26683 m -1 .26683 L -s -.02381 .02145 m -.03006 .02145 L -s -[(0.7)] .01131 .02145 1 0 Mshowa -.02381 .10324 m -.03006 .10324 L -s -[(0.8)] .01131 .10324 1 0 Mshowa -.02381 .18504 m -.03006 .18504 L -s -[(0.9)] .01131 .18504 1 0 Mshowa -.02381 .34862 m -.03006 .34862 L -s -[(1.1)] .01131 .34862 1 0 Mshowa -.02381 .43041 m -.03006 .43041 L -s -[(1.2)] .01131 .43041 1 0 Mshowa -.02381 .5122 m -.03006 .5122 L -s -[(1.3)] .01131 .5122 1 0 Mshowa -.02381 .59399 m -.03006 .59399 L -s -[(1.4)] .01131 .59399 1 0 Mshowa -.125 Mabswid -.02381 .03781 m -.02756 .03781 L -s -.02381 .05417 m -.02756 .05417 L -s -.02381 .07053 m -.02756 .07053 L -s -.02381 .08689 m -.02756 .08689 L -s -.02381 .1196 m -.02756 .1196 L -s -.02381 .13596 m -.02756 .13596 L -s -.02381 .15232 m -.02756 .15232 L -s -.02381 .16868 m -.02756 .16868 L -s -.02381 .20139 m -.02756 .20139 L -s -.02381 .21775 m -.02756 .21775 L -s -.02381 .23411 m -.02756 .23411 L -s -.02381 .25047 m -.02756 .25047 L -s -.02381 .28319 m -.02756 .28319 L -s -.02381 .29954 m -.02756 .29954 L -s -.02381 .3159 m -.02756 .3159 L -s -.02381 .33226 m -.02756 .33226 L -s -.02381 .36498 m -.02756 .36498 L -s -.02381 .38134 m -.02756 .38134 L -s -.02381 .39769 m -.02756 .39769 L -s -.02381 .41405 m -.02756 .41405 L -s -.02381 .44677 m -.02756 .44677 L -s -.02381 .46313 m -.02756 .46313 L -s -.02381 .47949 m -.02756 .47949 L -s -.02381 .49584 m -.02756 .49584 L -s -.02381 .52856 m -.02756 .52856 L -s -.02381 .54492 m -.02756 .54492 L -s -.02381 .56128 m -.02756 .56128 L -s -.02381 .57764 m -.02756 .57764 L -s -.02381 .00509 m -.02756 .00509 L -s -.02381 .61035 m -.02756 .61035 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .60332 m -.02499 .60331 L -.02605 .6033 L -.02729 .60328 L -.02846 .60326 L -.03053 .60319 L -.03279 .60309 L -.03527 .60295 L -.0379 .60276 L -.04262 .60232 L -.04749 .60174 L -.05205 .60108 L -.06244 .59913 L -.07305 .59653 L -.08274 .59362 L -.10458 .58527 L -.14429 .56405 L -.18248 .53718 L -.22313 .50297 L -.26226 .46595 L -.30384 .4238 L -.34391 .38185 L -.38246 .3414 L -.42346 .29931 L -.46295 .26047 L -.50092 .22522 L -.54134 .19038 L -.58025 .1597 L -.62161 .13033 L -.66146 .10526 L -.69979 .08415 L -.74057 .06487 L -.77984 .04937 L -.81759 .03723 L -.85779 .02721 L -.87627 .0236 L -.89648 .02036 L -.91652 .01788 L -.92745 .01682 L -.93762 .01604 L -.9426 .01572 L -.94801 .01542 L -.95278 .0152 L -.95783 .01501 L -.96238 .01488 L -.96496 .01483 L -.96738 .01478 L -.9696 .01475 L -.97163 .01473 L -.97275 .01473 L -Mistroke -.97397 .01472 L -.97512 .01472 L -.97619 .01472 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztXAmQHFUZ7uzM7JnsJhCSEI5sYpLdHCQhESODQSHRcFSioIgiIEvIkmAC -MQTQgMilIiIZLxQNXmhUrOIsxyqPKkBULMqrBAGnKEGMIIgRBBFBxnlH//O6 -5/vem55dKE05yfROf/393//3/16/9/r1sWpoy7q1G4e2rF8z1L9y89CmdevX -nN3/prM216DcmCgac1Pt290fqd/VKIoX1dr/6s1qoZDWf/frP7nIiFbNVy2v -yrC9zcRV+7VtFFU929v0n0JUrZSj4WJkPsXhqFzRqLYtD1u4VI7aLVatlKJi -sRRVamudzMf5atGl4G7jzVKr1UpUsk70unZeW69W88Bnh8VKxWJUsiYdzOdG -tehV8J7WZ85sVIrDZbuWiyqlYk28otfGAYw6OF0t2hU8PeEgNo4dxA5dB27W -tIOclPe71aJTrQ40LdsLEtPO4j5eHCzM7MBNDHVwjCRmaUPmXQeuWC9IDHWw -WjK2zDrI16vTsDZuk+qja5Ne6xasnqU2gBWY36PF7xtSB021rHMfHzRKaWyq -Akc6D2Y5XK6Kcp55W6kWeQUvDxzCKySulbAJOVy2HxVQWiY+VwWYBwvzmADz -IGEeF2AuljjfGWAukh08Ee7xAlE6OaA0TwyHAsw5wlwTYM4W72sDzJmiuS7A -nCHMMwLMeio2wNxMk9UzA0r7CnNTgDlVmJsDzCnC3BJgThLmuQHmRGG+L8Dc -Q5hbYW4myOoFAaVeYV4YYI4V5kWGmbWrLVh+RbWfUfwx7RXtnbrF6yXGa2td -rsE6TNtd6wwqsQ/d1JqWjrbTnRLDZTaGcBfcDbA2J7C46aSNdLs4/XDCqa97 -63awosVip26fWpADW6/nxdXlTbvqiQuzVHNVk1b/VP7VftHCbBNHV2TcJyWp -CriULLmaQ28Pq31d2VBorPdO5C9job0EsNhzhm69IzF0kJodGR7a0RdlR7el -jkvQm4+Lt7nHoN2Giu0FgHlG8v8CWCndQj0vvz7FlZ4DmIf+rGhezUnPAMxD -f1o0r+GkpwDmoe8Sze3ptOwC9O1c6UmAXcvpT4ifL3PS4wDz0B8Tzes46VGA -eeg7RXNHOkE7AX0HV3oEYN/g9IfFz/Wc9BDAPPTfA+zbnP6ghHBDet8fBPQb -uFIFYDdy+gPi5xZDytq15yG/1iPUtqGz6fsBZl231r+boNqjSkyvfdW5UGQa -UtRu3gewW20M4f69zwkixlC3cK+ktpzQ9nV5fS5WLFHtewDWvJcem7J0V1Au -6/5Hp0xr/wa4+W7TbhL9txrtlStSoCVbQqh4fi2J+15DoTTTf0ep8Y/qVoc9 -BfUrgMWeM52Wuzsa8yq1nJY9p+W/BNj3U4dis725GoiRQdgvAPYD3iz8HGA/ -5PS7pcRuc0gauBvQb+NKPwPY7Zx+F8Du4PSfAuxHnP4TgN3J6T+mmJOPO+XX -XVzpDrqrkH47TSSkz01UV/PRsxtRV2JeR33LpXT9qkSDtu6hbbg7MI35HOd4 -jIe5BY/WVBB7fAhVnUmpnI09bgvkC2Lwxbc/1c472jpnhQzp4rKNIWdNKdfO -JbTbMqa+h9eeeVHcABblfNrI9yTOlPTuaE5J+mbVGCpXiqOnmGptlY/TZjme -IYHUKvcsN9eE9hSwb10eLV8MzcTZT7VHnkuuPfL8Iu32Fv1182o132J6isiG -gjr1uXEADqa/Zh2NDQYB1gmkJ4GwuumeorFGe8JHIKxpQDrfZBaQbWf2zCCZ -9iaz1cXL8gBpbVQ1MtJdQIKVpXWN8jwo0o0X7VzeXiCsHk9ZNk7WZQoLJbLQ -ZBaylGXGEHyXOFlZ6rHJQklORQuqgzc2VAd43DDFJehigThRe90BpCeCEhwL -bF/GEmxvMgu+EsyQGSTju2DsSnuOxnpZ1uuhJMgZAkr/X6oM+DfzlOOihkWD -pdFxOw7k4GUs9Y7s+ZpOIxxxDn0RZshrkwO6uDrFA4P0IMSom4FB8jQiOUuN -ptHdaNGpQBvQmwziRbcK5Khf3CUXcQGgZOdaTM9MX5gtpMxbVQNp7A2Vvr32 -ENWlzbDNrf1JSW/p16dLIjRfMstJafI2ho4Elk4pGqCZLqEgIyY19xKnKE/j -6UjEY77+mPcN+smew+lNxZ49v+FYs+feU4Xmu+6k1THzVMkabz56hKE1GqtE -iOebExuQXas3fibSAjhK6yfKrr6egNWOx+v1vE62OUXWySl4Ash7tk3zy40k -d/th6fwopJREnZ6HbyXTnhFLGWD3cPp3AHavQ9c7jUi/5Zq3Auw+Tr8FYPdz -+s0Ae4DTbwLY7zj9RoCZPsS0oPpm0c+rxRgugiaR0fWckWCvhI9Xzm8+gdU+ -6NrG/8au7M7F9P/aPso+1Gd3yd/uVUawqi8ZAdYFsIFR9rEnD/16gD3E6d8C -2MOc/k2A/cGh62EEIj3CNXcA7I+c/nWA7eT0rwHsT5x+HcAe5fSvAuwxTv8K -wP6cTh8iPc41vwSwJzj9iwD7C6dfC7AnOX07wP7K6V8A2K50PhDpb1zzGoA9 -xemfA9jTnP5ZgP2d068G2DOc/hmAPcvpnwbYP9LpQ6TnuOYnAfZPTv8EwJ43 -9Mi5TSiKr57jS66NN0uFL9eiJypKADM3XQodXX1o5emjbQB7gbvqa1L2KoC9 -OHLZjwPs3y3IaoUrgdhLI4/xYwCrjlz2CiZrT+zsKQiYB4rvH0JTRGhA8VHm -yVRzW9sbJgp6MYw8XM485PgR+hFmk3dsdEtBmQWu/iFm085tLmM2HdzmUmbj -GcVdwmw80yoXMxvPZfmLmI17QcF5NAQwx3L1C5nNOG7zAWbjmaG8gNn0cZvz -mc14brOV2UzgNu9nNnukM0yZniHzecxm4ujanMts9uI25zCbSdxmC7OZnM4W -ZU7h6puZzd7c5r3MZiq32cRs9jE2LQ4v0IRxbBt6YPMsFpK5mND0GMO9vpC8 -pSn8IM2ZLIb9eAzywLNzxww6Td3ItPfn2vVHeutXgnWbrGU2MMVpXFHu73bu -KEAd+3uYdj/XHu+WvsXRFOQZTHs6164/Cpy+CBou1fXM3wxb2QODFP91NbSH -65jHVxmP3sEKvhaDCul05mYmP/KHmc0sx0a3X1R9Fldfy2xmc5vTmM0At1nD -bAa5zanMZg63GWI2c7nNKcxmXjrDlDmfq5/MbA7gNicxmwXc5kRms5DbvIvZ -LOI2JzCbA9PZoszFXP0dzGYJtzme2bya2xwnUer1pZz5NqbusXkrs3kttzmW -2RyczitlFrn6W5jNIdzmzczmdcamxTEHvYu8ZocazdUsDPsijGzjDHMLTuKx -bnuXvIob9Q2rmP9Duf8JFnPvy0I93dHJangYV5S+uuLvq49i0Xq05ZxbJpnU -E0nV+hzHkUz08CYD9nS9RzDt5eH0hgYSK5n2CluDwwMJU1vkPvfQQOKNyQK1 -7yYJDh9K9ec0PI9krWC7474CJbV9ObM5wrHRAVPmkVz9MGbjeenK65Mp8rx0 -5VCm7rFZxmxWc5tDkhF5Xu5SZOquTZspRcI8lqsvTcbheXXMa5i6x+YgZvN2 -brMkGZHnFTWLmbrH5kBmc0I6m4uScZzENRcwTY/N/KT6KZw5N8k8lTMHk8zT -OHN2kjmc3vdZye2el+bMSDI9L83pTzI3cKY+kc4J074+p8Wu37SYBXt6Vv+o -Bg+1pvskwzQTJ013+J0OFvcSyMveSS9ncy/jm1ScnFQ8hyvGp8nqvt34k7PL -hgkYvWFiskDOC2nbu9ud++hs9KiH0bMNBRHfysXlcoAK3I5w4rQgZT37mxfl -D4aVzYyHGZf5lLVGhyhfamso7dr7Yis7R1As1tNRl7EvnSE9twxubH3zvsnm -v/odiPr3KLwBMhrzH2bRmaY=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-14.8518, 0.65382, 0.693802, \ -0.00448812}},ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], - -Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-\ -8b4ad9ffca61"] + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6220963084254754, 1.5462104809163808`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6220963084254767}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.6220963084254767}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6220963084254754, 1.5462104809163808`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993828438223815*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"95360c2d-f87f-430f-b21c-38ec526fdd0d"] }, Open ]], Cell[CellGroupData[{ @@ -6794,425 +13974,1092 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.99185079904813*^9, {3.9918508647235966`*^9, - 3.991850864992861*^9}},ExpressionUUID->"d43bf17b-b492-0e4a-af4a-\ -6a3bc399953c"], + 3.99185079904813*^9, {3.9918508647235966`*^9, 3.991850864992861*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.717549624516859`*^-265\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 140, + 69, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828438352715*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"f451d889-ffd2-48a7-9b14-f43b111470fe"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"71d4e039-c2b8-d74d-819a-80d2051e4273"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.5673917758959018`*^-276\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 140, 70, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938284383591213`*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"4ac0f7bb-391f-4b38-ad26-2ca84108466b"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"63625e13-15ef-1f45-89dc-998a1b63a626"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.423299045909483`*^-287\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 140, 71, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828438366395*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"cf983703-a61d-4673-9445-aabf8b517b56"], Cell[BoxData[ - RowBox[{ - RowBox[{"General", "::", "\<\"stop\"\>"}], ":", - " ", "\<\"Further output of \\!\\(Integrate :: \\\"gener\\\"\\) will be \ -suppressed during this calculation. \ -\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ -\\\", ButtonFrame->None, ButtonData:>\\\"General::stop\\\"]\\)\"\>"}]], \ -"Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], - -Cell[GraphicsData["PostScript", "\<\ -%! -%%Creator: Mathematica -%%AspectRatio: .61803 -MathPictureStart -/Mabs { -Mgmatrix idtransform -Mtmatrix dtransform -} bind def -/Mabsadd { Mabs -3 -1 roll add -3 1 roll add -exch } bind def -%% Graphics -%%IncludeResource: font Courier -%%IncludeFont: Courier -/Courier findfont 10 scalefont setfont -% Scaling calculations -0.0238095 0.0634921 0.0147151 5.37313 [ -[.15079 .00222 -3 -9 ] -[.15079 .00222 3 0 ] -[.27778 .00222 -3 -9 ] -[.27778 .00222 3 0 ] -[.40476 .00222 -3 -9 ] -[.40476 .00222 3 0 ] -[.53175 .00222 -3 -9 ] -[.53175 .00222 3 0 ] -[.65873 .00222 -6 -9 ] -[.65873 .00222 6 0 ] -[.78571 .00222 -6 -9 ] -[.78571 .00222 6 0 ] -[.9127 .00222 -6 -9 ] -[.9127 .00222 6 0 ] -[.01131 .12218 -24 -4.5 ] -[.01131 .12218 0 4.5 ] -[.01131 .22964 -24 -4.5 ] -[.01131 .22964 0 4.5 ] -[.01131 .3371 -24 -4.5 ] -[.01131 .3371 0 4.5 ] -[.01131 .44457 -24 -4.5 ] -[.01131 .44457 0 4.5 ] -[.01131 .55203 -18 -4.5 ] -[.01131 .55203 0 4.5 ] -[ 0 0 0 0 ] -[ 1 .61803 0 0 ] -] MathScale -% Start of Graphics -1 setlinecap -1 setlinejoin -newpath -0 g -.25 Mabswid -[ ] 0 setdash -.15079 .01472 m -.15079 .02097 L -s -[(2)] .15079 .00222 0 1 Mshowa -.27778 .01472 m -.27778 .02097 L -s -[(4)] .27778 .00222 0 1 Mshowa -.40476 .01472 m -.40476 .02097 L -s -[(6)] .40476 .00222 0 1 Mshowa -.53175 .01472 m -.53175 .02097 L -s -[(8)] .53175 .00222 0 1 Mshowa -.65873 .01472 m -.65873 .02097 L -s -[(10)] .65873 .00222 0 1 Mshowa -.78571 .01472 m -.78571 .02097 L -s -[(12)] .78571 .00222 0 1 Mshowa -.9127 .01472 m -.9127 .02097 L -s -[(14)] .9127 .00222 0 1 Mshowa -.125 Mabswid -.05556 .01472 m -.05556 .01847 L -s -.0873 .01472 m -.0873 .01847 L -s -.11905 .01472 m -.11905 .01847 L -s -.18254 .01472 m -.18254 .01847 L -s -.21429 .01472 m -.21429 .01847 L -s -.24603 .01472 m -.24603 .01847 L -s -.30952 .01472 m -.30952 .01847 L -s -.34127 .01472 m -.34127 .01847 L -s -.37302 .01472 m -.37302 .01847 L -s -.43651 .01472 m -.43651 .01847 L -s -.46825 .01472 m -.46825 .01847 L -s -.5 .01472 m -.5 .01847 L -s -.56349 .01472 m -.56349 .01847 L -s -.59524 .01472 m -.59524 .01847 L -s -.62698 .01472 m -.62698 .01847 L -s -.69048 .01472 m -.69048 .01847 L -s -.72222 .01472 m -.72222 .01847 L -s -.75397 .01472 m -.75397 .01847 L -s -.81746 .01472 m -.81746 .01847 L -s -.84921 .01472 m -.84921 .01847 L -s -.88095 .01472 m -.88095 .01847 L -s -.94444 .01472 m -.94444 .01847 L -s -.97619 .01472 m -.97619 .01847 L -s -.25 Mabswid -0 .01472 m -1 .01472 L -s -.02381 .12218 m -.03006 .12218 L -s -[(0.02)] .01131 .12218 1 0 Mshowa -.02381 .22964 m -.03006 .22964 L -s -[(0.04)] .01131 .22964 1 0 Mshowa -.02381 .3371 m -.03006 .3371 L -s -[(0.06)] .01131 .3371 1 0 Mshowa -.02381 .44457 m -.03006 .44457 L -s -[(0.08)] .01131 .44457 1 0 Mshowa -.02381 .55203 m -.03006 .55203 L -s -[(0.1)] .01131 .55203 1 0 Mshowa -.125 Mabswid -.02381 .04158 m -.02756 .04158 L -s -.02381 .06845 m -.02756 .06845 L -s -.02381 .09531 m -.02756 .09531 L -s -.02381 .14904 m -.02756 .14904 L -s -.02381 .17591 m -.02756 .17591 L -s -.02381 .20277 m -.02756 .20277 L -s -.02381 .25651 m -.02756 .25651 L -s -.02381 .28337 m -.02756 .28337 L -s -.02381 .31024 m -.02756 .31024 L -s -.02381 .36397 m -.02756 .36397 L -s -.02381 .39083 m -.02756 .39083 L -s -.02381 .4177 m -.02756 .4177 L -s -.02381 .47143 m -.02756 .47143 L -s -.02381 .4983 m -.02756 .4983 L -s -.02381 .52516 m -.02756 .52516 L -s -.02381 .57889 m -.02756 .57889 L -s -.02381 .60576 m -.02756 .60576 L -s -.25 Mabswid -.02381 0 m -.02381 .61803 L -s -0 0 m -1 0 L -1 .61803 L -0 .61803 L -closepath -clip -newpath -.5 Mabswid -.02381 .01472 m -.06244 .12073 L -.10458 .23188 L -.14415 .32802 L -.18221 .40977 L -.22272 .48259 L -.26171 .53704 L -.28302 .55995 L -.30316 .57709 L -.31285 .58377 L -.32313 .58977 L -.33276 .59437 L -.34157 .59772 L -.35098 .60043 L -.35617 .60154 L -.3611 .60234 L -.3633 .60262 L -.36564 .60287 L -.36785 .60305 L -.36985 .60318 L -.37108 .60323 L -.37222 .60327 L -.37346 .6033 L -.37477 .60332 L -.37591 .60332 L -.37698 .60331 L -.37815 .60328 L -.3794 .60324 L -.38062 .60319 L -.38197 .60311 L -.38469 .60291 L -.38721 .60266 L -.38958 .60237 L -.3949 .60153 L -.40064 .60035 L -.41114 .59744 L -.42077 .59396 L -.43969 .58496 L -.46039 .57209 L -.50095 .53905 L -.54 .49958 L -.58149 .45213 L -.62148 .40358 L -.65994 .3563 L -.70086 .30723 L -.74026 .26259 L -.77815 .22302 L -.81849 .18514 L -.85731 .15313 L -.89859 .12393 L -Mistroke -.93835 .10033 L -.97619 .08171 L -Mfstroke -% End of Graphics -MathPictureEnd -\ -\>"], "Graphics", - ImageSize->{288, 177.938}, - ImageMargins->{{43, 0}, {0, 0}}, - ImageRegion->{{0, 1}, {0, - 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ -eJztnAuQHEUZx+fudu/gQhAJIkZiLsAl5HJ3gRheC+EVTAgkBAiSXB6Ey2PJ -GfLgEt6PBCQgCLgRBBR8CyoIBpAVBEEEXwglUuJrkZJCpaSU8lFqaanrTvdM -b8/s75vdmd1NYhVXucnc/+vv319/801P9zfdM2dw46qVawY3Di0f7Jo5PLh+ -1dDyDV0z1g2XoLYWx2nZVvrt7HLc86Lj+Idi6V/xAffgItXP56v/2krHvJN1 -9E9KHducbF6VVL+T1DHtFAs5J+OUf9wy/Z4sn7UkmZxTKKF9nqyQz1p6GSdX -KDoH+nXns0bSpo67ltQLpm71WyjZ5xNksk6+pH+AqJ+y9FW70tCkcaJ6W6D6 -1oim76u9uMCjcj2QyeZVy1sN5phq+wHTHmp3Cjmt61erPJbN96o/OpSVPrUu -UnBy2axyZI9Hm8tox/qXVOm55TyHlR1Z+rt0Pl7Uq96UbtDtgHKehwY8kWqV -Z84UKN4biEdN3Wpjpbgqx2Ob9pp3scjMiRFNLOqCAV2bj5qYgnZQHRGuWOhX -r66EVumzqg/Hoh2zPVY0lOpX7ijYV7bUnF6reZlQ82wTo1xDbrXdRa5JQ7sO -rFJHVFtHa3ctMkoFReMW6fXuGX3r6mB2Ec/bfb6X3DvWDRir88lkQx1Tzr2Q -pdY6GXVfuPSTGuyZdmjCBLEOsVljtEMWB24Hrd1rWpMxlvih12eX91gPMkGq -b6lAr1LyQqEY1ask80IH2E09UCqiLWMq+1s/ZOjuN08t1SxHmezL7b7Yb8pk -+9apo1cJ61brVdpqbI/cI3EbA+7y7genrFrIl//u88m8Mhnl/GK/qUOPD9Qj -oeDB5TvMxE+hHGMT/OvodZW5fMEYnjLNdp9iudBTphz5+1XliG7V/hH67dxi -z2cDtqYZt+jnrR0m/khgsnUZAgOhksP8vqYIXBONg0t6bl+kLU8burwy2Fbp -jlYhiwWVDmiI135pwOj36O6P31Or4zX/H/Kx7n9qrLzVPbTIWp11YLu+pbtd -dHcmW2rV3cUKuVZXMGInN/gt3Z3LlsSBdjAUOqhGbHIduoSNCxun4Gst1FIw -cqGTZ3kqUKFfZEvji6QDRQIGXW2V8yc5pkDRezR9MAFZyJ2tgKnjlY3VaZN0 -Nu94nZSks2nH66QlnSvCAVJTyZC8XdK5fMfrdEg6lyXQWe8eVHfRmUB7rdHe -TdbeRdJebbR3T6A9ZLT3kLWpZ1fHrNHeMxwvos4Ko7NXghqXGe29ZW166qjj -UqO9TwLtJUZ7dALtxSCI4KHRlzoOGCvGJNCeb7THytq7SdrvB4HHU05HV2bE -/b7Dz2hncnknHVE+kFn1RJT9p95YtH2eabmevTveTRGRiU6B3WZ6H5HALqcM -opPV1GOL9p8OAr8l2hF+pouyYX5YVksuG8xKJFPnMVIyc65xc3fAOL8SynJ3 -RhhilzO6VipX9aoqOETPzTEmTWi4SYGMkZdDpceR6K/ZIGi8mSYJbiU56Ym+ -u2TmLOPDnoqYs42TYi5oXHugnPvrpRjLGcfou0S080QQ+Banyve7zu1Ras8Y -XZECHBEop+95OcVH3n2bZPUMEOgkcblfhYzbyAiZSVdD2o0CVLTtBHPldXYV -nxii9nQQRPDsIfEca6w4OIH2MSBIwjPNWDFV1n67pH0kCGweJRG1MyA4RLZi -T4nnMNOGwxNoHwqCJDyHgOAImWeUxDPFtOaoBNqUeYjg2UvioSzEtAQ8/SA4 -OgFPr/HKcbL2OyTtHhAk4ZkIguPD8S5qU1XTZSv2lni6jS9mJNA+AAQRPO+U -ePYDwcwEPONAcGICni4QzJJ59pF43gOCkxLwjAHByTLPuySed4NgdgKe0SCY -E45dUZsEp8hWUGXqSJdvbgIeCu9TZR5yojpSh3NaAh7qkE9PwEOPl3kyz74S -Dz3wz0jAQ8MgPWdu6Py4LKtc+kXjTtFeGkafqe1t3uy43dLzx/hkNXUJ6kgT -vfme1Y2bCafrNZNyMAsCZiab2aUD5XweWkqoeNXcWDSSEm0DDTCys8JIYfUQ -zUXooaKOlIlY2ABrKRp4pU8scynju6giUONPn4WogJU2ZO5YyVyK7sWeuXXO -nYPldGsrlrjEMpayAku0sUmnzGY9nLXshGyisZM60purs7RN9BgReVpAsFTm -oTHhfwE7Ox7FfwAbjEfxb8CWyRQ0SP4XYMstCiUhxX8CtkKue3/A/gHYyngU -fwcsG4/ib4CdI1PQjOWvgK2KR/EXwIZkim7A/gTYB5pKMR6wNwFbHY/ij4Cd -G4/iD4CtCYf1BCj0BmBr5bqJ4veArZMpCHsdsPXxKH4H2HkyBSUTfgPY8Han -eA2wDTIFZVdeBWxjPIpfA3a+TDEJsFcAuyAck6T4K8AujFf3y4BdJFP0Alao -n+KXgF0sU/QB9nPALolH8TPALpUpKGn4EmARCxtiUjRjLku7tGhASqb+BDBv -6UfzprH+rghhgxTZTmniFwHzltQ49UxmOypesVXbu0QjarL4x4BtClicbBI2 -gqeMwnYi5V81tyUbfwTY5ubYGLGZh2KAFh02y9qOSmutzTY09acXIs8DdmVF -hDZmFhvc90LTfbLwOcCu8ixs6MS11dwogW0nNM+fAtizgHmLLJPOWcsbMir3 -d1D4kVk/ACxiTed7Aft+/RTfA2xLPIrvAhax/2IqYM8AJqz+lSieBuxDFoWS -0PvPpwC7Tq67ART0NvdJwK6PR/EEYB+WKQ4D7HHAbohH8RhgN8oUhwP2KGA3 -bXeKRwD7iExxBGB5wHLxKB4GbGs4rGmRwkOAfVSumygeBOxmmYIWWjxQP8U2 -wG6RKY4C7H7APhaP4j7AbpUppgF2L2C3xaO4B7DbZYqjAfsSYB9vLIWSHAOF -7gbsE3LdRHEXYHfIFMcC9nnA7oxH8TnAPilTHAfYZwD7VFMpjheLB7FPyxS0 -ruxO0bKGzlhxZZ2TEVfWkal3APZZbWqzlyVHf7ODxowniHcZxWJ909bKlaHe -37WuDCVjbxfvvfrmV+04Yy251qep2BCvJqxk4m1NMlF6s1n5dQkK3fcBditg -X2iApTC1jvgKBMUpraK9BbC7KuK0ESuYvTK1xikZezNgd3vGNmfxsvCNBPLu -TMC2AvZFbXC965bpowQUomRWDjA9VMBnCa0ZvwmwL8sUswC7sX6KGwC7R6Y4 -CbDrAbs3HsV1gH3FolCSk6HQtYDdJ9dNFNcAdr9MQbspttRPcTVgX5Up5gB2 -FWDbZIpTANsMWMTnL4hiE2APyhRzAbscsIdkilMBuywexWmAXQLY18IxSYoX -A/awXDfturoQsLxMMQ+w8wH7ukxxBmAbAHskHsUwYI/KFLT7bz1g35ApzgRs -LWCPxaNYA9jjMsV8wFYD9k2ZYgFgQ4A9IVMMAHYOYE+Gw5oUs4B9S657IWAr -AHtKplgE2DLAvi1T0JbYswF7Oh7FUsCekSmW1Ih9R6Y4q0b/6AS1tzu39tmo -2WRY5ZOQtB+WnEEBpNPv3ggyeh5J80//FQh9X67a5VV3tNqh8axtRPUluiNr -rHQQMOoPQ9VXm03VUz09FH7YoOrVJJMqpefhc81p83LAaDTxfOUVj3pLWGv1 -1JfNNmH2QqjSKm/9Or3blb7WRq/+VgJG4+oXQr2BOFMSP5Bms9ETgGY2+vU9 -dmP09KF56osyxSrAphvHvyQrlj9EQdnBCEV6cFOu+KcyxbmAHWns+YWsSOMO -endiUygJjXkONTW+LNe4zhSaas5ekYufBxitQIigGDb19JuzV+XiG02hHnP2 -mlz8AlNovDn7rVz8IuPBLnP2ulz8UlNI7chSHeMbcvErTPFR5uxNubhaBDHK -Rf4cvr6qwE7yacFqcnVe5XvcTsv/APllRnA=\ -\>", "ImageResolution" -> 72.],ImageRangeCache->{{{0., 258.6}, {159.525, 0.}} -> \ -{-1.61617, -0.0100934, 0.0591342, \ -0.000698765}},ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 140, 72, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828438374802*^9}, + CellLabel-> + "During evaluation of \ +In[140]:=",ExpressionUUID->"cf5dc2e3-6edd-4aae-8bb8-2b270852a2af"], Cell[BoxData[ - TagBox[ - RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], - False, - Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ -1872f77ea023"] + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VO0XAHClTUlC9uHOGFqs2ZcZ51TCIPvOaw0tkiJllzZlSbTQW1Gh +JMy9KWslKlsqRZaK0i5rlvbX7/7+ms/3n/t5zjnPOecZZsBOx6C5AgICxBwB +gf//zvS33GenFphKVWpWBPmuN+28IB29ricZNkolBkf1EYArngRI92RBxI0Z +0q5PC6Lsr3UL9lyCynB+rF4fwvJRqayf3RQwBRvGhfvsYaDOdudUdwPMih4e +PdbrB+bsodcT3c8gpEpYIbs7HH52G5wa7x6EysgW9TtPkqBxw5WCjkuTsL3o +5MBxvxMgP1D9MUDtL4irTqg/j88FiVDfaws3CKLemJPsp2P5kLXWvNbWZRHG +z3F0cQgugN4crfoJ0aX4cXfDU8eKK5BakPhkrsxy7Igxdr45dA2kTr47mn1e +HFvPzJHkXy0FadWbB38UiaNZRe92OaoUZBsOJ/7DF8fSqfDipNpSUBhfvWdl +ozhG9DG6DR+XgrJNuF/tZ3FMlrr+0neyFHTm/dV/pyOBp/Xg2BFOGdhFSr7X +bpXASJHAMb3WMjjizDN9NrMCQ6STOL3PykG24rHs3DmSuKTAW9DvZTmUiTt/ +X7tEEo/ru3sMvCuHF898+CcUJbGxwby8aaoc2A6RLAdLScwQGdmjuIQPDZvy +FjzNlcSYgDlx71T58Nd8+nE7RwoTdrcandvGh8yimJK/5lLov/pod0gYH9gL +BFLUHaSw/eBPUnM3H2weLF6XHiSFZVXf5Cqi+XB2A3HDJkMKXY3Kbx9P4YMh +Wp9pG5DCFFHdRVmFfIgwuujbkiyNRRrbku+94oNVvsiUdZo0vmAsHH45wAfW +wriUx6ek0Sk0U2hykA9PO13J51el8bqFmp/UFz5ohAsL9j+WRtZTIsZwmg+f +i/YWfZOVwbuaGh6vhEnwlrAdkbshgy/Xbqi7ZkSCTmzt/gt1MhhrpH/Wi0PC +4sFVksyHMujfrKsmBCRUlwuCSq8M3mk/H+ppRoKkdXWm1qwMLpbx9O+yJeHp +frbuRmtZ3CJXoqkeSILZ2K+YsHeyuFU4xjToKAnRlifX3BuWRevtN/0vppJQ +dlG9T3xGFqcthv/pSydB2tnPqHqRHOpoLBlcn0XCcNWD74Iacij9bK/C6FkS +spMzI3P3yeGGVV6nS0tIGFyhEnZ/qTzG2XLYz1pJkNp5lyElJY9fHUM7ix+R +YNPs3r6VkMfwUfOghMck3IpJVVumI4+8XPU1Cs9IODYwPuThLo8iZZt4hr0k +aBfXhoxdkkciUoHd/ZGE/RwHf1lDBjolXblxb5YES58L3wzWM/DAouyLLnMo +EEn6esDFhoGPWFVjH+ZScK7xUFGmHwMfn2wo+z2fgiqrmq8LjjJwy8+LD38v +oWDcXSlqspeBZ3UudNtKUVAZE75w+XsGTtQ8ESqWpiDh3O0cjVEGbnQRKZyV +oUD4jVvt1rkKiHHLZC7JU7AyJE3gzRoFNMj6srCOSYHPnuljj2IVUOHBx2Nm +qhQon1kvP3RIAYmPUmeC1Cg6f8dLF2YqYImXleQBdQpi/qx+ur5AAeUmXMNv +aFJw6oDPiupHClgX9KDwiw4F3oUlRS9eKOAqFt97VJcCVtMPg6k3Cnjt3mzq +mB4F/MXZnprTCtg+lu36yYCCRyea8goZiujWblB+3YSC7BsSaxtXKuKygS+c +UxwKPLv8G96sVcRF0sWWMVwKPkv/eS9nrojpZgavjYACwXytNVlhimiqu3LZ +8fUUGJflViTcVUSD1cGmWZYUmHU//jvarIjrIos2GfAosBWYZ+H7jP6eRo5H +L+1Ax7Be+KCIU5+Y2ySsKTCPZSYmzSdwu8H3xOBNFLQtq7tsuJjADKePhydp +2xe4No+LEMih7hyPt6XAqz11ub80gXnHu4pT7CgIV5y5vE6VQCHnMLFYBwqm +b2Q2/9QkMK4+0mScdoyl6gipS+CV/EfbAxwpOLTLT59lSmDgX+0PXCcKFi/4 +7dm3nkCviALNK7Qzz55KzLIgcNxW/eBSZwrONrY2z3Ug8As42XbQVnQPGqlx +IXBI3eOBhgsFBcOzyyM8CXyy1pJ3lHb5Cj2vd4EECmrUxui5UnA/JG+kMYrA +XW7Lc7a5UcD7YyQWF0vgTuO9x/i0H2d26usmEZjgmnZ8knZvtVBSwVECF3yo +6Ax3p++LbUGBdwaBAhHrJUtovx80bZHIJlA8PGLHIO3RJZFih84RyCBrfS09 +KIjIFzHgXiRwinL8E0X7h26x13QhgYUX0shLtBNaNiSVXqPPJ6aa1EZb0Ke/ +IKicwFrv8S0TtFO+7WthVBD4MTEvVMKT7pcj4qNdVQQmqv9J1aWdLVcmlnGb +wLGm1iYH2tJ8SwPzBrpe/k+JUNrnzd55/feQQOW6Z2cO0Gb1xifdaqPra5mj +nkP76g7pwrCnBOYqfx4spq0+90aLSheBncSxqira1OlNo/29BDZVmJffp22o ++lnsTD8dr9Cnpnbat+8mG9i9I7B7Qlewk/Z6Z4b3ws8EGo398u+m3fS5Munu +MIG9avM+/N828Y6FeycI9N4vn95F+9nykRbNGfr8O0S9ntJ2Kzoy+ukXgfWM +Urtm2q+MWeL5swQmB9Vvv0074Emdgfs8Jn5rkOaX0/4U6OYtKsREW+9DjDza +oT8mkpqXMnFgtqsilbbxrmDJj2JM9PjWvDeC9qKhvhJBaSYapp/45Eb7RYDd +OiaDifESJvONaBe+bHxhymKiDdnRIUk70tkw1HslEyV2Bdj+vx7r26/PiVFj +4muz37HNtPvvnFK7qc9EYc/9o6G0rxssbnhmwsSrnzP0jGnH8BPcxpGJuuwP +a+fRlrwUkqxqzcTagZu2Gf+/P7KvpHj2TPQvcdtlS5vKti8NdmFiS3XmpiW0 +7Q4Z9Vz0ZeL3SsIglr6PCv+V7ri7mYnHegvNNWgPR7EEX29l4liegkQ/fb9T +tizRkI5k4ni//YgObde3iY160Uxc6Aa/e+l+YHtOuTslMNFzV2pbHO1669cH +MlLo+FrLK6vofsq47yBzPZ2JYrcbuxxoe3MflrVkMXGy+nrNJ7off2qU9847 +z8SlbgmvhWhri+3XjCWZyK3sKFpJ97dA6vT9nFtMjGs0krtiT/eT4DbPW7VM +nM9K91WivX3a8dDEAybWu2V6i9HzoqCH/TKkj87PwzDLVhsKdjvkhh8aoOs1 +eMJbiza2Ll1w+T0TA8e+8LLp+fS6dkarf5SJXlnDFXZWdD7zmg87C7KwRc1h +5JIFnU8prvzuRSxsPao6PGZO5zOTJI8vZaEy51a7EW275LOvWqVYWNhwlXvf +jM5XUKj2OjUWtkve+3ZjHR2fqmi/ugsLY2YUG2aNKZg5L7tfx5P+3l8BUpH2 +1DJltpEvC5d9XUdxjOh+nzTaZraVhaRT7vgOep4P1gbOeMazUKm4Nr6U3get +1pUiKYUs/KPX8f4ivV+abt8j06+xsE7YOSV7DT2PNB85Z5ezsELG3SF5NQV3 +xN+evVDNwqSv99zdVtLnf7l45c12FrKq7X0HWPT82+4Dg9Ms5JiN+Wyh99uZ +11sGP/1iYbNT04gavf9O2kUcGplloWfc65ujknQ9dVLafggp4YOoppmtEhQk +/ybdlikoYdyDZh9YRtcjdX44x1wJdYrnvAueRwGn5Hr+6dNKKMWQrCCHSXhJ +lORt/FcJ3Re0LDH5SkLM6eILU3lKuKPgl3zDFxIq9xedcyxWQl85IryF3vfa +7vk5InVKuDpg9/e6NySsnn8y8/BbJRQT58UadtLvHd/YpCg1NhosfjqRUk3C +zc7oROW1bFwiQJ5oqyTB2WpfQqceG3+T75YK3yIhS29PnDawsWtfad5hioSl +wjv3jTqwsaB32CKAfr/Mqw4ID97Lxs83ugsqzpEwIWbl59rAxrATZqHt8ST0 +hLKebmti4y+Le76XYkmof/gLEh+xcV/k1p+R0SRkxpQoXn3BxtaDIsrie0jQ +GhQe+DnExpvf4g7rhJIQRj7557y4MppOhFXP9yRhyM7F6/1mZfQ54rzmlw4J +79P8XHcvVMEMToJb1Fs+hA2psbSEVZAh+W/9aD8fvlv8HBkRVcEWvnJ4EP3+ +XCyYdWirrApq54Ze2dTNB63oxgo/dRU8b8PMFWrnQ3yQiridkwrivB3ntKr4 +IGk6/EQ1TwWT5yfWb0jnA29sL++D/kr0uGB5qlGbD8OBiyIqEleh5ULP/HeV +ZfT/E6m5RxpWo+xtl2z20HUQa1fJ4I+tQTvZ7LBOZgnIp5Tb6+urIWt3smEB +sxhyVI1ExUPU8ScrvfGLyRVolV2nN3lCA+UMvslp+hWCsXxDpuYLTZQPc7X4 +G3gZRAQvRfona+Glyx5BsmcugsJ+RY6HyloMT19QE7gzD4SUvW85Nq3F1Lt+ +7MLJf0GDK1O+9x9t3OTx/D/Fjzmwu1+s0UpAB5+RbIuBjlMwNpnmwsvRQU/S +7/dqtWyw0Hx4lqeui19Web8yaMuEO5Mmv78/1kVDtrpl7Oc0CFPT7usI0sOo +tg8XNP6kAHd0c6eHkD4eWLHV2VH7EGxkS29aekkf567Obzkglgyrko7tazAw +wFLDPu99dxJgTZDRXeU+A9wrG3xf9HI0BN3ZcrBilyGKGfJ6Zw/sgbv5nZsn +VhihhFRRB7t8F0xdnf2uWWmETdZptav/C4VA5RKhs5uMkWX/PXtqMgRiHvhs +U7E3RkaDjkv/QAhkBom1UY7GqHvnXtqLthCoK4xOa3Mzxv+uxZl+uxwCEiqW +y/76G6Pqh9zWLucQeKjyQcIvyhjrt6cnmFcHw5pVioRKnjFSJl//PZ0WBBNr +svWpcWMUtaoYN/EKhJ5HuFF80hhjrXTe5FsHQn3YqFPktDHukG+rEuUEQgbF +26X/yxjv/vwtvJwRCGuMBa7XCJpg+auOM9kDARDA28FslDTByx3eE2eDA6Az +xEK4k2OCOw4EjKbE+UNVwe+30ykmmPDfZi29dF/Q3xD53SrVBKOLRx/lRvjC +zbfDwvnpJpgkL3ta1NMXKIV+A6ssE6yN331Qd6UvXM+pT7/wrwnyhpquOzf4 +QH7aISOLMhNUVmpcMfL7HzgauexEznMTlD83HKgf5w2eZkpoosDBLye4RT/K +POBv5yKRRoKDezTqzZvPeEB+0OhLKyUODp4T8ryW5AEfD1fv9VzFQWupfVcL +HT1gd4tdebQ2B0vLrmTt/e4Ox2zjFKrMOXjBwZ+RYOYONe5df3R3cnCL0X6d +xq+uILfjSLVGPQcHWo4nXg11hozZYL3UBg42iEzv/+PpDHOzzMlP9zk4tnGu +lA/PGYZuzS/Ob+Hgvh7ZFzwVZ6gROJgj9pyD5oPOFQ1vnMDzZNLemQ8cXO7S +4qPt7gQ5tdF6d5ZwUbDvVHm7vSOsWBxKbnLj4jXbzTlKIfZQsCE+ZtyDi2+8 +JAe+uNqDdnzGhmxvLgZ67Iy7Y24PtuP8rh5/Luq+nZ+ZpWIPh19M/wwM5eKN +cLvXLe128ONS4vqY/Vx8nhMW7dhpC30m2c+LSrgYxUh40z5tA1v2FJzjlXGx +MkfXrKnHBmbKbgYN87lYsVWrtq/WBsRYPd/X3uJicsqLLLtkG7BexJC/Xc/F +PI3DNWGiNlDXWbT5eRcXLRWt8nattQYrkSr1qB4u9rvd/TpX0hp6LFpmpF9y +cebARtHSX1YwVfM1xecNF1XF7E9a37cC9YtapV+GuMgWjQord7eCur51UWkj +XOSdMvKfb2oFVhJOoDlOxxvdkRWhZAXBR/Z0RE5z8YRSbXDOKA+m6g+flfrB +xS0Clu9sO3mQ/OtMYM0vOt4ARSdGDQ9EdYvV/vnLxdyY2MuC+Ty4sKNmenaW +i9yPF+/NOcyD/wGABxRd + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VO0XAHClTUlC9uHOGFqs2ZcZ51TCIPvOaw0tkiJllzZlSbTQW1Gh +JMy9KWslKlsqRZaK0i5rlvbX7/7+ms/3n/t5zjnPOecZZsBOx6C5AgICxBwB +gf//zvS33GenFphKVWpWBPmuN+28IB29ricZNkolBkf1EYArngRI92RBxI0Z +0q5PC6Lsr3UL9lyCynB+rF4fwvJRqayf3RQwBRvGhfvsYaDOdudUdwPMih4e +PdbrB+bsodcT3c8gpEpYIbs7HH52G5wa7x6EysgW9TtPkqBxw5WCjkuTsL3o +5MBxvxMgP1D9MUDtL4irTqg/j88FiVDfaws3CKLemJPsp2P5kLXWvNbWZRHG +z3F0cQgugN4crfoJ0aX4cXfDU8eKK5BakPhkrsxy7Igxdr45dA2kTr47mn1e +HFvPzJHkXy0FadWbB38UiaNZRe92OaoUZBsOJ/7DF8fSqfDipNpSUBhfvWdl +ozhG9DG6DR+XgrJNuF/tZ3FMlrr+0neyFHTm/dV/pyOBp/Xg2BFOGdhFSr7X +bpXASJHAMb3WMjjizDN9NrMCQ6STOL3PykG24rHs3DmSuKTAW9DvZTmUiTt/ +X7tEEo/ru3sMvCuHF898+CcUJbGxwby8aaoc2A6RLAdLScwQGdmjuIQPDZvy +FjzNlcSYgDlx71T58Nd8+nE7RwoTdrcandvGh8yimJK/5lLov/pod0gYH9gL +BFLUHaSw/eBPUnM3H2weLF6XHiSFZVXf5Cqi+XB2A3HDJkMKXY3Kbx9P4YMh +Wp9pG5DCFFHdRVmFfIgwuujbkiyNRRrbku+94oNVvsiUdZo0vmAsHH45wAfW +wriUx6ek0Sk0U2hykA9PO13J51el8bqFmp/UFz5ohAsL9j+WRtZTIsZwmg+f +i/YWfZOVwbuaGh6vhEnwlrAdkbshgy/Xbqi7ZkSCTmzt/gt1MhhrpH/Wi0PC +4sFVksyHMujfrKsmBCRUlwuCSq8M3mk/H+ppRoKkdXWm1qwMLpbx9O+yJeHp +frbuRmtZ3CJXoqkeSILZ2K+YsHeyuFU4xjToKAnRlifX3BuWRevtN/0vppJQ +dlG9T3xGFqcthv/pSydB2tnPqHqRHOpoLBlcn0XCcNWD74Iacij9bK/C6FkS +spMzI3P3yeGGVV6nS0tIGFyhEnZ/qTzG2XLYz1pJkNp5lyElJY9fHUM7ix+R +YNPs3r6VkMfwUfOghMck3IpJVVumI4+8XPU1Cs9IODYwPuThLo8iZZt4hr0k +aBfXhoxdkkciUoHd/ZGE/RwHf1lDBjolXblxb5YES58L3wzWM/DAouyLLnMo +EEn6esDFhoGPWFVjH+ZScK7xUFGmHwMfn2wo+z2fgiqrmq8LjjJwy8+LD38v +oWDcXSlqspeBZ3UudNtKUVAZE75w+XsGTtQ8ESqWpiDh3O0cjVEGbnQRKZyV +oUD4jVvt1rkKiHHLZC7JU7AyJE3gzRoFNMj6srCOSYHPnuljj2IVUOHBx2Nm +qhQon1kvP3RIAYmPUmeC1Cg6f8dLF2YqYImXleQBdQpi/qx+ur5AAeUmXMNv +aFJw6oDPiupHClgX9KDwiw4F3oUlRS9eKOAqFt97VJcCVtMPg6k3Cnjt3mzq +mB4F/MXZnprTCtg+lu36yYCCRyea8goZiujWblB+3YSC7BsSaxtXKuKygS+c +UxwKPLv8G96sVcRF0sWWMVwKPkv/eS9nrojpZgavjYACwXytNVlhimiqu3LZ +8fUUGJflViTcVUSD1cGmWZYUmHU//jvarIjrIos2GfAosBWYZ+H7jP6eRo5H +L+1Ax7Be+KCIU5+Y2ySsKTCPZSYmzSdwu8H3xOBNFLQtq7tsuJjADKePhydp +2xe4No+LEMih7hyPt6XAqz11ub80gXnHu4pT7CgIV5y5vE6VQCHnMLFYBwqm +b2Q2/9QkMK4+0mScdoyl6gipS+CV/EfbAxwpOLTLT59lSmDgX+0PXCcKFi/4 +7dm3nkCviALNK7Qzz55KzLIgcNxW/eBSZwrONrY2z3Ug8As42XbQVnQPGqlx +IXBI3eOBhgsFBcOzyyM8CXyy1pJ3lHb5Cj2vd4EECmrUxui5UnA/JG+kMYrA +XW7Lc7a5UcD7YyQWF0vgTuO9x/i0H2d26usmEZjgmnZ8knZvtVBSwVECF3yo +6Ax3p++LbUGBdwaBAhHrJUtovx80bZHIJlA8PGLHIO3RJZFih84RyCBrfS09 +KIjIFzHgXiRwinL8E0X7h26x13QhgYUX0shLtBNaNiSVXqPPJ6aa1EZb0Ke/ +IKicwFrv8S0TtFO+7WthVBD4MTEvVMKT7pcj4qNdVQQmqv9J1aWdLVcmlnGb +wLGm1iYH2tJ8SwPzBrpe/k+JUNrnzd55/feQQOW6Z2cO0Gb1xifdaqPra5mj +nkP76g7pwrCnBOYqfx4spq0+90aLSheBncSxqira1OlNo/29BDZVmJffp22o ++lnsTD8dr9Cnpnbat+8mG9i9I7B7Qlewk/Z6Z4b3ws8EGo398u+m3fS5Munu +MIG9avM+/N828Y6FeycI9N4vn95F+9nykRbNGfr8O0S9ntJ2Kzoy+ukXgfWM +Urtm2q+MWeL5swQmB9Vvv0074Emdgfs8Jn5rkOaX0/4U6OYtKsREW+9DjDza +oT8mkpqXMnFgtqsilbbxrmDJj2JM9PjWvDeC9qKhvhJBaSYapp/45Eb7RYDd +OiaDifESJvONaBe+bHxhymKiDdnRIUk70tkw1HslEyV2Bdj+vx7r26/PiVFj +4muz37HNtPvvnFK7qc9EYc/9o6G0rxssbnhmwsSrnzP0jGnH8BPcxpGJuuwP +a+fRlrwUkqxqzcTagZu2Gf+/P7KvpHj2TPQvcdtlS5vKti8NdmFiS3XmpiW0 +7Q4Z9Vz0ZeL3SsIglr6PCv+V7ri7mYnHegvNNWgPR7EEX29l4liegkQ/fb9T +tizRkI5k4ni//YgObde3iY160Uxc6Aa/e+l+YHtOuTslMNFzV2pbHO1669cH +MlLo+FrLK6vofsq47yBzPZ2JYrcbuxxoe3MflrVkMXGy+nrNJ7off2qU9847 +z8SlbgmvhWhri+3XjCWZyK3sKFpJ97dA6vT9nFtMjGs0krtiT/eT4DbPW7VM +nM9K91WivX3a8dDEAybWu2V6i9HzoqCH/TKkj87PwzDLVhsKdjvkhh8aoOs1 +eMJbiza2Ll1w+T0TA8e+8LLp+fS6dkarf5SJXlnDFXZWdD7zmg87C7KwRc1h +5JIFnU8prvzuRSxsPao6PGZO5zOTJI8vZaEy51a7EW275LOvWqVYWNhwlXvf +jM5XUKj2OjUWtkve+3ZjHR2fqmi/ugsLY2YUG2aNKZg5L7tfx5P+3l8BUpH2 +1DJltpEvC5d9XUdxjOh+nzTaZraVhaRT7vgOep4P1gbOeMazUKm4Nr6U3get +1pUiKYUs/KPX8f4ivV+abt8j06+xsE7YOSV7DT2PNB85Z5ezsELG3SF5NQV3 +xN+evVDNwqSv99zdVtLnf7l45c12FrKq7X0HWPT82+4Dg9Ms5JiN+Wyh99uZ +11sGP/1iYbNT04gavf9O2kUcGplloWfc65ujknQ9dVLafggp4YOoppmtEhQk +/ybdlikoYdyDZh9YRtcjdX44x1wJdYrnvAueRwGn5Hr+6dNKKMWQrCCHSXhJ +lORt/FcJ3Re0LDH5SkLM6eILU3lKuKPgl3zDFxIq9xedcyxWQl85IryF3vfa +7vk5InVKuDpg9/e6NySsnn8y8/BbJRQT58UadtLvHd/YpCg1NhosfjqRUk3C +zc7oROW1bFwiQJ5oqyTB2WpfQqceG3+T75YK3yIhS29PnDawsWtfad5hioSl +wjv3jTqwsaB32CKAfr/Mqw4ID97Lxs83ugsqzpEwIWbl59rAxrATZqHt8ST0 +hLKebmti4y+Le76XYkmof/gLEh+xcV/k1p+R0SRkxpQoXn3BxtaDIsrie0jQ +GhQe+DnExpvf4g7rhJIQRj7557y4MppOhFXP9yRhyM7F6/1mZfQ54rzmlw4J +79P8XHcvVMEMToJb1Fs+hA2psbSEVZAh+W/9aD8fvlv8HBkRVcEWvnJ4EP3+ +XCyYdWirrApq54Ze2dTNB63oxgo/dRU8b8PMFWrnQ3yQiridkwrivB3ntKr4 +IGk6/EQ1TwWT5yfWb0jnA29sL++D/kr0uGB5qlGbD8OBiyIqEleh5ULP/HeV +ZfT/E6m5RxpWo+xtl2z20HUQa1fJ4I+tQTvZ7LBOZgnIp5Tb6+urIWt3smEB +sxhyVI1ExUPU8ScrvfGLyRVolV2nN3lCA+UMvslp+hWCsXxDpuYLTZQPc7X4 +G3gZRAQvRfona+Glyx5BsmcugsJ+RY6HyloMT19QE7gzD4SUvW85Nq3F1Lt+ +7MLJf0GDK1O+9x9t3OTx/D/Fjzmwu1+s0UpAB5+RbIuBjlMwNpnmwsvRQU/S +7/dqtWyw0Hx4lqeui19Web8yaMuEO5Mmv78/1kVDtrpl7Oc0CFPT7usI0sOo +tg8XNP6kAHd0c6eHkD4eWLHV2VH7EGxkS29aekkf567Obzkglgyrko7tazAw +wFLDPu99dxJgTZDRXeU+A9wrG3xf9HI0BN3ZcrBilyGKGfJ6Zw/sgbv5nZsn +VhihhFRRB7t8F0xdnf2uWWmETdZptav/C4VA5RKhs5uMkWX/PXtqMgRiHvhs +U7E3RkaDjkv/QAhkBom1UY7GqHvnXtqLthCoK4xOa3Mzxv+uxZl+uxwCEiqW +y/76G6Pqh9zWLucQeKjyQcIvyhjrt6cnmFcHw5pVioRKnjFSJl//PZ0WBBNr +svWpcWMUtaoYN/EKhJ5HuFF80hhjrXTe5FsHQn3YqFPktDHukG+rEuUEQgbF +26X/yxjv/vwtvJwRCGuMBa7XCJpg+auOM9kDARDA28FslDTByx3eE2eDA6Az +xEK4k2OCOw4EjKbE+UNVwe+30ykmmPDfZi29dF/Q3xD53SrVBKOLRx/lRvjC +zbfDwvnpJpgkL3ta1NMXKIV+A6ssE6yN331Qd6UvXM+pT7/wrwnyhpquOzf4 +QH7aISOLMhNUVmpcMfL7HzgauexEznMTlD83HKgf5w2eZkpoosDBLye4RT/K +POBv5yKRRoKDezTqzZvPeEB+0OhLKyUODp4T8ryW5AEfD1fv9VzFQWupfVcL +HT1gd4tdebQ2B0vLrmTt/e4Ox2zjFKrMOXjBwZ+RYOYONe5df3R3cnCL0X6d +xq+uILfjSLVGPQcHWo4nXg11hozZYL3UBg42iEzv/+PpDHOzzMlP9zk4tnGu +lA/PGYZuzS/Ob+Hgvh7ZFzwVZ6gROJgj9pyD5oPOFQ1vnMDzZNLemQ8cXO7S +4qPt7gQ5tdF6d5ZwUbDvVHm7vSOsWBxKbnLj4jXbzTlKIfZQsCE+ZtyDi2+8 +JAe+uNqDdnzGhmxvLgZ67Iy7Y24PtuP8rh5/Luq+nZ+ZpWIPh19M/wwM5eKN +cLvXLe128ONS4vqY/Vx8nhMW7dhpC30m2c+LSrgYxUh40z5tA1v2FJzjlXGx +MkfXrKnHBmbKbgYN87lYsVWrtq/WBsRYPd/X3uJicsqLLLtkG7BexJC/Xc/F +PI3DNWGiNlDXWbT5eRcXLRWt8nattQYrkSr1qB4u9rvd/TpX0hp6LFpmpF9y +cebARtHSX1YwVfM1xecNF1XF7E9a37cC9YtapV+GuMgWjQord7eCur51UWkj +XOSdMvKfb2oFVhJOoDlOxxvdkRWhZAXBR/Z0RE5z8YRSbXDOKA+m6g+flfrB +xS0Clu9sO3mQ/OtMYM0vOt4ARSdGDQ9EdYvV/vnLxdyY2MuC+Ty4sKNmenaW +i9yPF+/NOcyD/wGABxRd + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07169865933626642}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.07169865933626642}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VO0XAHClTUlC9uHOGFqs2ZcZ51TCIPvOaw0tkiJllzZlSbTQW1Gh +JMy9KWslKlsqRZaK0i5rlvbX7/7+ms/3n/t5zjnPOecZZsBOx6C5AgICxBwB +gf//zvS33GenFphKVWpWBPmuN+28IB29ricZNkolBkf1EYArngRI92RBxI0Z +0q5PC6Lsr3UL9lyCynB+rF4fwvJRqayf3RQwBRvGhfvsYaDOdudUdwPMih4e +PdbrB+bsodcT3c8gpEpYIbs7HH52G5wa7x6EysgW9TtPkqBxw5WCjkuTsL3o +5MBxvxMgP1D9MUDtL4irTqg/j88FiVDfaws3CKLemJPsp2P5kLXWvNbWZRHG +z3F0cQgugN4crfoJ0aX4cXfDU8eKK5BakPhkrsxy7Igxdr45dA2kTr47mn1e +HFvPzJHkXy0FadWbB38UiaNZRe92OaoUZBsOJ/7DF8fSqfDipNpSUBhfvWdl +ozhG9DG6DR+XgrJNuF/tZ3FMlrr+0neyFHTm/dV/pyOBp/Xg2BFOGdhFSr7X +bpXASJHAMb3WMjjizDN9NrMCQ6STOL3PykG24rHs3DmSuKTAW9DvZTmUiTt/ +X7tEEo/ru3sMvCuHF898+CcUJbGxwby8aaoc2A6RLAdLScwQGdmjuIQPDZvy +FjzNlcSYgDlx71T58Nd8+nE7RwoTdrcandvGh8yimJK/5lLov/pod0gYH9gL +BFLUHaSw/eBPUnM3H2weLF6XHiSFZVXf5Cqi+XB2A3HDJkMKXY3Kbx9P4YMh +Wp9pG5DCFFHdRVmFfIgwuujbkiyNRRrbku+94oNVvsiUdZo0vmAsHH45wAfW +wriUx6ek0Sk0U2hykA9PO13J51el8bqFmp/UFz5ohAsL9j+WRtZTIsZwmg+f +i/YWfZOVwbuaGh6vhEnwlrAdkbshgy/Xbqi7ZkSCTmzt/gt1MhhrpH/Wi0PC +4sFVksyHMujfrKsmBCRUlwuCSq8M3mk/H+ppRoKkdXWm1qwMLpbx9O+yJeHp +frbuRmtZ3CJXoqkeSILZ2K+YsHeyuFU4xjToKAnRlifX3BuWRevtN/0vppJQ +dlG9T3xGFqcthv/pSydB2tnPqHqRHOpoLBlcn0XCcNWD74Iacij9bK/C6FkS +spMzI3P3yeGGVV6nS0tIGFyhEnZ/qTzG2XLYz1pJkNp5lyElJY9fHUM7ix+R +YNPs3r6VkMfwUfOghMck3IpJVVumI4+8XPU1Cs9IODYwPuThLo8iZZt4hr0k +aBfXhoxdkkciUoHd/ZGE/RwHf1lDBjolXblxb5YES58L3wzWM/DAouyLLnMo +EEn6esDFhoGPWFVjH+ZScK7xUFGmHwMfn2wo+z2fgiqrmq8LjjJwy8+LD38v +oWDcXSlqspeBZ3UudNtKUVAZE75w+XsGTtQ8ESqWpiDh3O0cjVEGbnQRKZyV +oUD4jVvt1rkKiHHLZC7JU7AyJE3gzRoFNMj6srCOSYHPnuljj2IVUOHBx2Nm +qhQon1kvP3RIAYmPUmeC1Cg6f8dLF2YqYImXleQBdQpi/qx+ur5AAeUmXMNv +aFJw6oDPiupHClgX9KDwiw4F3oUlRS9eKOAqFt97VJcCVtMPg6k3Cnjt3mzq +mB4F/MXZnprTCtg+lu36yYCCRyea8goZiujWblB+3YSC7BsSaxtXKuKygS+c +UxwKPLv8G96sVcRF0sWWMVwKPkv/eS9nrojpZgavjYACwXytNVlhimiqu3LZ +8fUUGJflViTcVUSD1cGmWZYUmHU//jvarIjrIos2GfAosBWYZ+H7jP6eRo5H +L+1Ax7Be+KCIU5+Y2ySsKTCPZSYmzSdwu8H3xOBNFLQtq7tsuJjADKePhydp +2xe4No+LEMih7hyPt6XAqz11ub80gXnHu4pT7CgIV5y5vE6VQCHnMLFYBwqm +b2Q2/9QkMK4+0mScdoyl6gipS+CV/EfbAxwpOLTLT59lSmDgX+0PXCcKFi/4 +7dm3nkCviALNK7Qzz55KzLIgcNxW/eBSZwrONrY2z3Ug8As42XbQVnQPGqlx +IXBI3eOBhgsFBcOzyyM8CXyy1pJ3lHb5Cj2vd4EECmrUxui5UnA/JG+kMYrA +XW7Lc7a5UcD7YyQWF0vgTuO9x/i0H2d26usmEZjgmnZ8knZvtVBSwVECF3yo +6Ax3p++LbUGBdwaBAhHrJUtovx80bZHIJlA8PGLHIO3RJZFih84RyCBrfS09 +KIjIFzHgXiRwinL8E0X7h26x13QhgYUX0shLtBNaNiSVXqPPJ6aa1EZb0Ke/ +IKicwFrv8S0TtFO+7WthVBD4MTEvVMKT7pcj4qNdVQQmqv9J1aWdLVcmlnGb +wLGm1iYH2tJ8SwPzBrpe/k+JUNrnzd55/feQQOW6Z2cO0Gb1xifdaqPra5mj +nkP76g7pwrCnBOYqfx4spq0+90aLSheBncSxqira1OlNo/29BDZVmJffp22o ++lnsTD8dr9Cnpnbat+8mG9i9I7B7Qlewk/Z6Z4b3ws8EGo398u+m3fS5Munu +MIG9avM+/N828Y6FeycI9N4vn95F+9nykRbNGfr8O0S9ntJ2Kzoy+ukXgfWM +Urtm2q+MWeL5swQmB9Vvv0074Emdgfs8Jn5rkOaX0/4U6OYtKsREW+9DjDza +oT8mkpqXMnFgtqsilbbxrmDJj2JM9PjWvDeC9qKhvhJBaSYapp/45Eb7RYDd +OiaDifESJvONaBe+bHxhymKiDdnRIUk70tkw1HslEyV2Bdj+vx7r26/PiVFj +4muz37HNtPvvnFK7qc9EYc/9o6G0rxssbnhmwsSrnzP0jGnH8BPcxpGJuuwP +a+fRlrwUkqxqzcTagZu2Gf+/P7KvpHj2TPQvcdtlS5vKti8NdmFiS3XmpiW0 +7Q4Z9Vz0ZeL3SsIglr6PCv+V7ri7mYnHegvNNWgPR7EEX29l4liegkQ/fb9T +tizRkI5k4ni//YgObde3iY160Uxc6Aa/e+l+YHtOuTslMNFzV2pbHO1669cH +MlLo+FrLK6vofsq47yBzPZ2JYrcbuxxoe3MflrVkMXGy+nrNJ7off2qU9847 +z8SlbgmvhWhri+3XjCWZyK3sKFpJ97dA6vT9nFtMjGs0krtiT/eT4DbPW7VM +nM9K91WivX3a8dDEAybWu2V6i9HzoqCH/TKkj87PwzDLVhsKdjvkhh8aoOs1 +eMJbiza2Ll1w+T0TA8e+8LLp+fS6dkarf5SJXlnDFXZWdD7zmg87C7KwRc1h +5JIFnU8prvzuRSxsPao6PGZO5zOTJI8vZaEy51a7EW275LOvWqVYWNhwlXvf +jM5XUKj2OjUWtkve+3ZjHR2fqmi/ugsLY2YUG2aNKZg5L7tfx5P+3l8BUpH2 +1DJltpEvC5d9XUdxjOh+nzTaZraVhaRT7vgOep4P1gbOeMazUKm4Nr6U3get +1pUiKYUs/KPX8f4ivV+abt8j06+xsE7YOSV7DT2PNB85Z5ezsELG3SF5NQV3 +xN+evVDNwqSv99zdVtLnf7l45c12FrKq7X0HWPT82+4Dg9Ms5JiN+Wyh99uZ +11sGP/1iYbNT04gavf9O2kUcGplloWfc65ujknQ9dVLafggp4YOoppmtEhQk +/ybdlikoYdyDZh9YRtcjdX44x1wJdYrnvAueRwGn5Hr+6dNKKMWQrCCHSXhJ +lORt/FcJ3Re0LDH5SkLM6eILU3lKuKPgl3zDFxIq9xedcyxWQl85IryF3vfa +7vk5InVKuDpg9/e6NySsnn8y8/BbJRQT58UadtLvHd/YpCg1NhosfjqRUk3C +zc7oROW1bFwiQJ5oqyTB2WpfQqceG3+T75YK3yIhS29PnDawsWtfad5hioSl +wjv3jTqwsaB32CKAfr/Mqw4ID97Lxs83ugsqzpEwIWbl59rAxrATZqHt8ST0 +hLKebmti4y+Le76XYkmof/gLEh+xcV/k1p+R0SRkxpQoXn3BxtaDIsrie0jQ +GhQe+DnExpvf4g7rhJIQRj7557y4MppOhFXP9yRhyM7F6/1mZfQ54rzmlw4J +79P8XHcvVMEMToJb1Fs+hA2psbSEVZAh+W/9aD8fvlv8HBkRVcEWvnJ4EP3+ +XCyYdWirrApq54Ze2dTNB63oxgo/dRU8b8PMFWrnQ3yQiridkwrivB3ntKr4 +IGk6/EQ1TwWT5yfWb0jnA29sL++D/kr0uGB5qlGbD8OBiyIqEleh5ULP/HeV +ZfT/E6m5RxpWo+xtl2z20HUQa1fJ4I+tQTvZ7LBOZgnIp5Tb6+urIWt3smEB +sxhyVI1ExUPU8ScrvfGLyRVolV2nN3lCA+UMvslp+hWCsXxDpuYLTZQPc7X4 +G3gZRAQvRfona+Glyx5BsmcugsJ+RY6HyloMT19QE7gzD4SUvW85Nq3F1Lt+ +7MLJf0GDK1O+9x9t3OTx/D/Fjzmwu1+s0UpAB5+RbIuBjlMwNpnmwsvRQU/S +7/dqtWyw0Hx4lqeui19Web8yaMuEO5Mmv78/1kVDtrpl7Oc0CFPT7usI0sOo +tg8XNP6kAHd0c6eHkD4eWLHV2VH7EGxkS29aekkf567Obzkglgyrko7tazAw +wFLDPu99dxJgTZDRXeU+A9wrG3xf9HI0BN3ZcrBilyGKGfJ6Zw/sgbv5nZsn +VhihhFRRB7t8F0xdnf2uWWmETdZptav/C4VA5RKhs5uMkWX/PXtqMgRiHvhs +U7E3RkaDjkv/QAhkBom1UY7GqHvnXtqLthCoK4xOa3Mzxv+uxZl+uxwCEiqW +y/76G6Pqh9zWLucQeKjyQcIvyhjrt6cnmFcHw5pVioRKnjFSJl//PZ0WBBNr +svWpcWMUtaoYN/EKhJ5HuFF80hhjrXTe5FsHQn3YqFPktDHukG+rEuUEQgbF +26X/yxjv/vwtvJwRCGuMBa7XCJpg+auOM9kDARDA28FslDTByx3eE2eDA6Az +xEK4k2OCOw4EjKbE+UNVwe+30ykmmPDfZi29dF/Q3xD53SrVBKOLRx/lRvjC +zbfDwvnpJpgkL3ta1NMXKIV+A6ssE6yN331Qd6UvXM+pT7/wrwnyhpquOzf4 +QH7aISOLMhNUVmpcMfL7HzgauexEznMTlD83HKgf5w2eZkpoosDBLye4RT/K +POBv5yKRRoKDezTqzZvPeEB+0OhLKyUODp4T8ryW5AEfD1fv9VzFQWupfVcL +HT1gd4tdebQ2B0vLrmTt/e4Ox2zjFKrMOXjBwZ+RYOYONe5df3R3cnCL0X6d +xq+uILfjSLVGPQcHWo4nXg11hozZYL3UBg42iEzv/+PpDHOzzMlP9zk4tnGu +lA/PGYZuzS/Ob+Hgvh7ZFzwVZ6gROJgj9pyD5oPOFQ1vnMDzZNLemQ8cXO7S +4qPt7gQ5tdF6d5ZwUbDvVHm7vSOsWBxKbnLj4jXbzTlKIfZQsCE+ZtyDi2+8 +JAe+uNqDdnzGhmxvLgZ67Iy7Y24PtuP8rh5/Luq+nZ+ZpWIPh19M/wwM5eKN +cLvXLe128ONS4vqY/Vx8nhMW7dhpC30m2c+LSrgYxUh40z5tA1v2FJzjlXGx +MkfXrKnHBmbKbgYN87lYsVWrtq/WBsRYPd/X3uJicsqLLLtkG7BexJC/Xc/F +PI3DNWGiNlDXWbT5eRcXLRWt8nattQYrkSr1qB4u9rvd/TpX0hp6LFpmpF9y +cebARtHSX1YwVfM1xecNF1XF7E9a37cC9YtapV+GuMgWjQord7eCur51UWkj +XOSdMvKfb2oFVhJOoDlOxxvdkRWhZAXBR/Z0RE5z8YRSbXDOKA+m6g+flfrB +xS0Clu9sO3mQ/OtMYM0vOt4ARSdGDQ9EdYvV/vnLxdyY2MuC+Ty4sKNmenaW +i9yPF+/NOcyD/wGABxRd + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07169865933626642}}, + "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.24, 0.6, 0.8], + 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}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07169865933626642}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993828789324935*^9}, + CellLabel-> + "Out[140]=",ExpressionUUID->"9a2f2f38-56b5-4a82-b52c-fa468e48de79"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ -5240-aa41-ba7c8ff64fb9"], + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellLabel-> + "In[141]:=",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8VO0XAHClTUlC9uHOGFqs2ZcZ51TCIPvOaw0tkiJllzZlSbTQW1Gh +JMy9KWslKlsqRZaK0i5rlvbX7/7+ms/3n/t5zjnPOecZZsBOx6C5AgICxBwB +gf//zvS33GenFphKVWpWBPmuN+28IB29ricZNkolBkf1EYArngRI92RBxI0Z +0q5PC6Lsr3UL9lyCynB+rF4fwvJRqayf3RQwBRvGhfvsYaDOdudUdwPMih4e +PdbrB+bsodcT3c8gpEpYIbs7HH52G5wa7x6EysgW9TtPkqBxw5WCjkuTsL3o +5MBxvxMgP1D9MUDtL4irTqg/j88FiVDfaws3CKLemJPsp2P5kLXWvNbWZRHG +z3F0cQgugN4crfoJ0aX4cXfDU8eKK5BakPhkrsxy7Igxdr45dA2kTr47mn1e +HFvPzJHkXy0FadWbB38UiaNZRe92OaoUZBsOJ/7DF8fSqfDipNpSUBhfvWdl +ozhG9DG6DR+XgrJNuF/tZ3FMlrr+0neyFHTm/dV/pyOBp/Xg2BFOGdhFSr7X +bpXASJHAMb3WMjjizDN9NrMCQ6STOL3PykG24rHs3DmSuKTAW9DvZTmUiTt/ +X7tEEo/ru3sMvCuHF898+CcUJbGxwby8aaoc2A6RLAdLScwQGdmjuIQPDZvy +FjzNlcSYgDlx71T58Nd8+nE7RwoTdrcandvGh8yimJK/5lLov/pod0gYH9gL +BFLUHaSw/eBPUnM3H2weLF6XHiSFZVXf5Cqi+XB2A3HDJkMKXY3Kbx9P4YMh +Wp9pG5DCFFHdRVmFfIgwuujbkiyNRRrbku+94oNVvsiUdZo0vmAsHH45wAfW +wriUx6ek0Sk0U2hykA9PO13J51el8bqFmp/UFz5ohAsL9j+WRtZTIsZwmg+f +i/YWfZOVwbuaGh6vhEnwlrAdkbshgy/Xbqi7ZkSCTmzt/gt1MhhrpH/Wi0PC +4sFVksyHMujfrKsmBCRUlwuCSq8M3mk/H+ppRoKkdXWm1qwMLpbx9O+yJeHp +frbuRmtZ3CJXoqkeSILZ2K+YsHeyuFU4xjToKAnRlifX3BuWRevtN/0vppJQ +dlG9T3xGFqcthv/pSydB2tnPqHqRHOpoLBlcn0XCcNWD74Iacij9bK/C6FkS +spMzI3P3yeGGVV6nS0tIGFyhEnZ/qTzG2XLYz1pJkNp5lyElJY9fHUM7ix+R +YNPs3r6VkMfwUfOghMck3IpJVVumI4+8XPU1Cs9IODYwPuThLo8iZZt4hr0k +aBfXhoxdkkciUoHd/ZGE/RwHf1lDBjolXblxb5YES58L3wzWM/DAouyLLnMo +EEn6esDFhoGPWFVjH+ZScK7xUFGmHwMfn2wo+z2fgiqrmq8LjjJwy8+LD38v +oWDcXSlqspeBZ3UudNtKUVAZE75w+XsGTtQ8ESqWpiDh3O0cjVEGbnQRKZyV +oUD4jVvt1rkKiHHLZC7JU7AyJE3gzRoFNMj6srCOSYHPnuljj2IVUOHBx2Nm +qhQon1kvP3RIAYmPUmeC1Cg6f8dLF2YqYImXleQBdQpi/qx+ur5AAeUmXMNv +aFJw6oDPiupHClgX9KDwiw4F3oUlRS9eKOAqFt97VJcCVtMPg6k3Cnjt3mzq +mB4F/MXZnprTCtg+lu36yYCCRyea8goZiujWblB+3YSC7BsSaxtXKuKygS+c +UxwKPLv8G96sVcRF0sWWMVwKPkv/eS9nrojpZgavjYACwXytNVlhimiqu3LZ +8fUUGJflViTcVUSD1cGmWZYUmHU//jvarIjrIos2GfAosBWYZ+H7jP6eRo5H +L+1Ax7Be+KCIU5+Y2ySsKTCPZSYmzSdwu8H3xOBNFLQtq7tsuJjADKePhydp +2xe4No+LEMih7hyPt6XAqz11ub80gXnHu4pT7CgIV5y5vE6VQCHnMLFYBwqm +b2Q2/9QkMK4+0mScdoyl6gipS+CV/EfbAxwpOLTLT59lSmDgX+0PXCcKFi/4 +7dm3nkCviALNK7Qzz55KzLIgcNxW/eBSZwrONrY2z3Ug8As42XbQVnQPGqlx +IXBI3eOBhgsFBcOzyyM8CXyy1pJ3lHb5Cj2vd4EECmrUxui5UnA/JG+kMYrA +XW7Lc7a5UcD7YyQWF0vgTuO9x/i0H2d26usmEZjgmnZ8knZvtVBSwVECF3yo +6Ax3p++LbUGBdwaBAhHrJUtovx80bZHIJlA8PGLHIO3RJZFih84RyCBrfS09 +KIjIFzHgXiRwinL8E0X7h26x13QhgYUX0shLtBNaNiSVXqPPJ6aa1EZb0Ke/ +IKicwFrv8S0TtFO+7WthVBD4MTEvVMKT7pcj4qNdVQQmqv9J1aWdLVcmlnGb +wLGm1iYH2tJ8SwPzBrpe/k+JUNrnzd55/feQQOW6Z2cO0Gb1xifdaqPra5mj +nkP76g7pwrCnBOYqfx4spq0+90aLSheBncSxqira1OlNo/29BDZVmJffp22o ++lnsTD8dr9Cnpnbat+8mG9i9I7B7Qlewk/Z6Z4b3ws8EGo398u+m3fS5Munu +MIG9avM+/N828Y6FeycI9N4vn95F+9nykRbNGfr8O0S9ntJ2Kzoy+ukXgfWM +Urtm2q+MWeL5swQmB9Vvv0074Emdgfs8Jn5rkOaX0/4U6OYtKsREW+9DjDza +oT8mkpqXMnFgtqsilbbxrmDJj2JM9PjWvDeC9qKhvhJBaSYapp/45Eb7RYDd +OiaDifESJvONaBe+bHxhymKiDdnRIUk70tkw1HslEyV2Bdj+vx7r26/PiVFj +4muz37HNtPvvnFK7qc9EYc/9o6G0rxssbnhmwsSrnzP0jGnH8BPcxpGJuuwP +a+fRlrwUkqxqzcTagZu2Gf+/P7KvpHj2TPQvcdtlS5vKti8NdmFiS3XmpiW0 +7Q4Z9Vz0ZeL3SsIglr6PCv+V7ri7mYnHegvNNWgPR7EEX29l4liegkQ/fb9T +tizRkI5k4ni//YgObde3iY160Uxc6Aa/e+l+YHtOuTslMNFzV2pbHO1669cH +MlLo+FrLK6vofsq47yBzPZ2JYrcbuxxoe3MflrVkMXGy+nrNJ7off2qU9847 +z8SlbgmvhWhri+3XjCWZyK3sKFpJ97dA6vT9nFtMjGs0krtiT/eT4DbPW7VM +nM9K91WivX3a8dDEAybWu2V6i9HzoqCH/TKkj87PwzDLVhsKdjvkhh8aoOs1 +eMJbiza2Ll1w+T0TA8e+8LLp+fS6dkarf5SJXlnDFXZWdD7zmg87C7KwRc1h +5JIFnU8prvzuRSxsPao6PGZO5zOTJI8vZaEy51a7EW275LOvWqVYWNhwlXvf +jM5XUKj2OjUWtkve+3ZjHR2fqmi/ugsLY2YUG2aNKZg5L7tfx5P+3l8BUpH2 +1DJltpEvC5d9XUdxjOh+nzTaZraVhaRT7vgOep4P1gbOeMazUKm4Nr6U3get +1pUiKYUs/KPX8f4ivV+abt8j06+xsE7YOSV7DT2PNB85Z5ezsELG3SF5NQV3 +xN+evVDNwqSv99zdVtLnf7l45c12FrKq7X0HWPT82+4Dg9Ms5JiN+Wyh99uZ +11sGP/1iYbNT04gavf9O2kUcGplloWfc65ujknQ9dVLafggp4YOoppmtEhQk +/ybdlikoYdyDZh9YRtcjdX44x1wJdYrnvAueRwGn5Hr+6dNKKMWQrCCHSXhJ +lORt/FcJ3Re0LDH5SkLM6eILU3lKuKPgl3zDFxIq9xedcyxWQl85IryF3vfa +7vk5InVKuDpg9/e6NySsnn8y8/BbJRQT58UadtLvHd/YpCg1NhosfjqRUk3C +zc7oROW1bFwiQJ5oqyTB2WpfQqceG3+T75YK3yIhS29PnDawsWtfad5hioSl +wjv3jTqwsaB32CKAfr/Mqw4ID97Lxs83ugsqzpEwIWbl59rAxrATZqHt8ST0 +hLKebmti4y+Le76XYkmof/gLEh+xcV/k1p+R0SRkxpQoXn3BxtaDIsrie0jQ +GhQe+DnExpvf4g7rhJIQRj7557y4MppOhFXP9yRhyM7F6/1mZfQ54rzmlw4J +79P8XHcvVMEMToJb1Fs+hA2psbSEVZAh+W/9aD8fvlv8HBkRVcEWvnJ4EP3+ +XCyYdWirrApq54Ze2dTNB63oxgo/dRU8b8PMFWrnQ3yQiridkwrivB3ntKr4 +IGk6/EQ1TwWT5yfWb0jnA29sL++D/kr0uGB5qlGbD8OBiyIqEleh5ULP/HeV +ZfT/E6m5RxpWo+xtl2z20HUQa1fJ4I+tQTvZ7LBOZgnIp5Tb6+urIWt3smEB +sxhyVI1ExUPU8ScrvfGLyRVolV2nN3lCA+UMvslp+hWCsXxDpuYLTZQPc7X4 +G3gZRAQvRfona+Glyx5BsmcugsJ+RY6HyloMT19QE7gzD4SUvW85Nq3F1Lt+ +7MLJf0GDK1O+9x9t3OTx/D/Fjzmwu1+s0UpAB5+RbIuBjlMwNpnmwsvRQU/S +7/dqtWyw0Hx4lqeui19Web8yaMuEO5Mmv78/1kVDtrpl7Oc0CFPT7usI0sOo +tg8XNP6kAHd0c6eHkD4eWLHV2VH7EGxkS29aekkf567Obzkglgyrko7tazAw +wFLDPu99dxJgTZDRXeU+A9wrG3xf9HI0BN3ZcrBilyGKGfJ6Zw/sgbv5nZsn +VhihhFRRB7t8F0xdnf2uWWmETdZptav/C4VA5RKhs5uMkWX/PXtqMgRiHvhs +U7E3RkaDjkv/QAhkBom1UY7GqHvnXtqLthCoK4xOa3Mzxv+uxZl+uxwCEiqW +y/76G6Pqh9zWLucQeKjyQcIvyhjrt6cnmFcHw5pVioRKnjFSJl//PZ0WBBNr +svWpcWMUtaoYN/EKhJ5HuFF80hhjrXTe5FsHQn3YqFPktDHukG+rEuUEQgbF +26X/yxjv/vwtvJwRCGuMBa7XCJpg+auOM9kDARDA28FslDTByx3eE2eDA6Az +xEK4k2OCOw4EjKbE+UNVwe+30ykmmPDfZi29dF/Q3xD53SrVBKOLRx/lRvjC +zbfDwvnpJpgkL3ta1NMXKIV+A6ssE6yN331Qd6UvXM+pT7/wrwnyhpquOzf4 +QH7aISOLMhNUVmpcMfL7HzgauexEznMTlD83HKgf5w2eZkpoosDBLye4RT/K +POBv5yKRRoKDezTqzZvPeEB+0OhLKyUODp4T8ryW5AEfD1fv9VzFQWupfVcL +HT1gd4tdebQ2B0vLrmTt/e4Ox2zjFKrMOXjBwZ+RYOYONe5df3R3cnCL0X6d +xq+uILfjSLVGPQcHWo4nXg11hozZYL3UBg42iEzv/+PpDHOzzMlP9zk4tnGu +lA/PGYZuzS/Ob+Hgvh7ZFzwVZ6gROJgj9pyD5oPOFQ1vnMDzZNLemQ8cXO7S +4qPt7gQ5tdF6d5ZwUbDvVHm7vSOsWBxKbnLj4jXbzTlKIfZQsCE+ZtyDi2+8 +JAe+uNqDdnzGhmxvLgZ67Iy7Y24PtuP8rh5/Luq+nZ+ZpWIPh19M/wwM5eKN +cLvXLe128ONS4vqY/Vx8nhMW7dhpC30m2c+LSrgYxUh40z5tA1v2FJzjlXGx +MkfXrKnHBmbKbgYN87lYsVWrtq/WBsRYPd/X3uJicsqLLLtkG7BexJC/Xc/F +PI3DNWGiNlDXWbT5eRcXLRWt8nattQYrkSr1qB4u9rvd/TpX0hp6LFpmpF9y +cebARtHSX1YwVfM1xecNF1XF7E9a37cC9YtapV+GuMgWjQord7eCur51UWkj +XOSdMvKfb2oFVhJOoDlOxxvdkRWhZAXBR/Z0RE5z8YRSbXDOKA+m6g+flfrB +xS0Clu9sO3mQ/OtMYM0vOt4ARSdGDQ9EdYvV/vnLxdyY2MuC+Ty4sKNmenaW +i9yPF+/NOcyD/wGABxRd + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VO0XAHClTUlC9uHOGFqs2ZcZ51TCIPvOaw0tkiJllzZlSbTQW1Gh +JMy9KWslKlsqRZaK0i5rlvbX7/7+ms/3n/t5zjnPOecZZsBOx6C5AgICxBwB +gf//zvS33GenFphKVWpWBPmuN+28IB29ricZNkolBkf1EYArngRI92RBxI0Z +0q5PC6Lsr3UL9lyCynB+rF4fwvJRqayf3RQwBRvGhfvsYaDOdudUdwPMih4e +PdbrB+bsodcT3c8gpEpYIbs7HH52G5wa7x6EysgW9TtPkqBxw5WCjkuTsL3o +5MBxvxMgP1D9MUDtL4irTqg/j88FiVDfaws3CKLemJPsp2P5kLXWvNbWZRHG +z3F0cQgugN4crfoJ0aX4cXfDU8eKK5BakPhkrsxy7Igxdr45dA2kTr47mn1e +HFvPzJHkXy0FadWbB38UiaNZRe92OaoUZBsOJ/7DF8fSqfDipNpSUBhfvWdl +ozhG9DG6DR+XgrJNuF/tZ3FMlrr+0neyFHTm/dV/pyOBp/Xg2BFOGdhFSr7X +bpXASJHAMb3WMjjizDN9NrMCQ6STOL3PykG24rHs3DmSuKTAW9DvZTmUiTt/ +X7tEEo/ru3sMvCuHF898+CcUJbGxwby8aaoc2A6RLAdLScwQGdmjuIQPDZvy +FjzNlcSYgDlx71T58Nd8+nE7RwoTdrcandvGh8yimJK/5lLov/pod0gYH9gL +BFLUHaSw/eBPUnM3H2weLF6XHiSFZVXf5Cqi+XB2A3HDJkMKXY3Kbx9P4YMh +Wp9pG5DCFFHdRVmFfIgwuujbkiyNRRrbku+94oNVvsiUdZo0vmAsHH45wAfW +wriUx6ek0Sk0U2hykA9PO13J51el8bqFmp/UFz5ohAsL9j+WRtZTIsZwmg+f +i/YWfZOVwbuaGh6vhEnwlrAdkbshgy/Xbqi7ZkSCTmzt/gt1MhhrpH/Wi0PC +4sFVksyHMujfrKsmBCRUlwuCSq8M3mk/H+ppRoKkdXWm1qwMLpbx9O+yJeHp +frbuRmtZ3CJXoqkeSILZ2K+YsHeyuFU4xjToKAnRlifX3BuWRevtN/0vppJQ +dlG9T3xGFqcthv/pSydB2tnPqHqRHOpoLBlcn0XCcNWD74Iacij9bK/C6FkS +spMzI3P3yeGGVV6nS0tIGFyhEnZ/qTzG2XLYz1pJkNp5lyElJY9fHUM7ix+R +YNPs3r6VkMfwUfOghMck3IpJVVumI4+8XPU1Cs9IODYwPuThLo8iZZt4hr0k +aBfXhoxdkkciUoHd/ZGE/RwHf1lDBjolXblxb5YES58L3wzWM/DAouyLLnMo +EEn6esDFhoGPWFVjH+ZScK7xUFGmHwMfn2wo+z2fgiqrmq8LjjJwy8+LD38v +oWDcXSlqspeBZ3UudNtKUVAZE75w+XsGTtQ8ESqWpiDh3O0cjVEGbnQRKZyV +oUD4jVvt1rkKiHHLZC7JU7AyJE3gzRoFNMj6srCOSYHPnuljj2IVUOHBx2Nm +qhQon1kvP3RIAYmPUmeC1Cg6f8dLF2YqYImXleQBdQpi/qx+ur5AAeUmXMNv +aFJw6oDPiupHClgX9KDwiw4F3oUlRS9eKOAqFt97VJcCVtMPg6k3Cnjt3mzq +mB4F/MXZnprTCtg+lu36yYCCRyea8goZiujWblB+3YSC7BsSaxtXKuKygS+c +UxwKPLv8G96sVcRF0sWWMVwKPkv/eS9nrojpZgavjYACwXytNVlhimiqu3LZ +8fUUGJflViTcVUSD1cGmWZYUmHU//jvarIjrIos2GfAosBWYZ+H7jP6eRo5H +L+1Ax7Be+KCIU5+Y2ySsKTCPZSYmzSdwu8H3xOBNFLQtq7tsuJjADKePhydp +2xe4No+LEMih7hyPt6XAqz11ub80gXnHu4pT7CgIV5y5vE6VQCHnMLFYBwqm +b2Q2/9QkMK4+0mScdoyl6gipS+CV/EfbAxwpOLTLT59lSmDgX+0PXCcKFi/4 +7dm3nkCviALNK7Qzz55KzLIgcNxW/eBSZwrONrY2z3Ug8As42XbQVnQPGqlx +IXBI3eOBhgsFBcOzyyM8CXyy1pJ3lHb5Cj2vd4EECmrUxui5UnA/JG+kMYrA +XW7Lc7a5UcD7YyQWF0vgTuO9x/i0H2d26usmEZjgmnZ8knZvtVBSwVECF3yo +6Ax3p++LbUGBdwaBAhHrJUtovx80bZHIJlA8PGLHIO3RJZFih84RyCBrfS09 +KIjIFzHgXiRwinL8E0X7h26x13QhgYUX0shLtBNaNiSVXqPPJ6aa1EZb0Ke/ +IKicwFrv8S0TtFO+7WthVBD4MTEvVMKT7pcj4qNdVQQmqv9J1aWdLVcmlnGb +wLGm1iYH2tJ8SwPzBrpe/k+JUNrnzd55/feQQOW6Z2cO0Gb1xifdaqPra5mj +nkP76g7pwrCnBOYqfx4spq0+90aLSheBncSxqira1OlNo/29BDZVmJffp22o ++lnsTD8dr9Cnpnbat+8mG9i9I7B7Qlewk/Z6Z4b3ws8EGo398u+m3fS5Munu +MIG9avM+/N828Y6FeycI9N4vn95F+9nykRbNGfr8O0S9ntJ2Kzoy+ukXgfWM +Urtm2q+MWeL5swQmB9Vvv0074Emdgfs8Jn5rkOaX0/4U6OYtKsREW+9DjDza +oT8mkpqXMnFgtqsilbbxrmDJj2JM9PjWvDeC9qKhvhJBaSYapp/45Eb7RYDd +OiaDifESJvONaBe+bHxhymKiDdnRIUk70tkw1HslEyV2Bdj+vx7r26/PiVFj +4muz37HNtPvvnFK7qc9EYc/9o6G0rxssbnhmwsSrnzP0jGnH8BPcxpGJuuwP +a+fRlrwUkqxqzcTagZu2Gf+/P7KvpHj2TPQvcdtlS5vKti8NdmFiS3XmpiW0 +7Q4Z9Vz0ZeL3SsIglr6PCv+V7ri7mYnHegvNNWgPR7EEX29l4liegkQ/fb9T +tizRkI5k4ni//YgObde3iY160Uxc6Aa/e+l+YHtOuTslMNFzV2pbHO1669cH +MlLo+FrLK6vofsq47yBzPZ2JYrcbuxxoe3MflrVkMXGy+nrNJ7off2qU9847 +z8SlbgmvhWhri+3XjCWZyK3sKFpJ97dA6vT9nFtMjGs0krtiT/eT4DbPW7VM +nM9K91WivX3a8dDEAybWu2V6i9HzoqCH/TKkj87PwzDLVhsKdjvkhh8aoOs1 +eMJbiza2Ll1w+T0TA8e+8LLp+fS6dkarf5SJXlnDFXZWdD7zmg87C7KwRc1h +5JIFnU8prvzuRSxsPao6PGZO5zOTJI8vZaEy51a7EW275LOvWqVYWNhwlXvf +jM5XUKj2OjUWtkve+3ZjHR2fqmi/ugsLY2YUG2aNKZg5L7tfx5P+3l8BUpH2 +1DJltpEvC5d9XUdxjOh+nzTaZraVhaRT7vgOep4P1gbOeMazUKm4Nr6U3get +1pUiKYUs/KPX8f4ivV+abt8j06+xsE7YOSV7DT2PNB85Z5ezsELG3SF5NQV3 +xN+evVDNwqSv99zdVtLnf7l45c12FrKq7X0HWPT82+4Dg9Ms5JiN+Wyh99uZ +11sGP/1iYbNT04gavf9O2kUcGplloWfc65ujknQ9dVLafggp4YOoppmtEhQk +/ybdlikoYdyDZh9YRtcjdX44x1wJdYrnvAueRwGn5Hr+6dNKKMWQrCCHSXhJ +lORt/FcJ3Re0LDH5SkLM6eILU3lKuKPgl3zDFxIq9xedcyxWQl85IryF3vfa +7vk5InVKuDpg9/e6NySsnn8y8/BbJRQT58UadtLvHd/YpCg1NhosfjqRUk3C +zc7oROW1bFwiQJ5oqyTB2WpfQqceG3+T75YK3yIhS29PnDawsWtfad5hioSl +wjv3jTqwsaB32CKAfr/Mqw4ID97Lxs83ugsqzpEwIWbl59rAxrATZqHt8ST0 +hLKebmti4y+Le76XYkmof/gLEh+xcV/k1p+R0SRkxpQoXn3BxtaDIsrie0jQ +GhQe+DnExpvf4g7rhJIQRj7557y4MppOhFXP9yRhyM7F6/1mZfQ54rzmlw4J +79P8XHcvVMEMToJb1Fs+hA2psbSEVZAh+W/9aD8fvlv8HBkRVcEWvnJ4EP3+ +XCyYdWirrApq54Ze2dTNB63oxgo/dRU8b8PMFWrnQ3yQiridkwrivB3ntKr4 +IGk6/EQ1TwWT5yfWb0jnA29sL++D/kr0uGB5qlGbD8OBiyIqEleh5ULP/HeV +ZfT/E6m5RxpWo+xtl2z20HUQa1fJ4I+tQTvZ7LBOZgnIp5Tb6+urIWt3smEB +sxhyVI1ExUPU8ScrvfGLyRVolV2nN3lCA+UMvslp+hWCsXxDpuYLTZQPc7X4 +G3gZRAQvRfona+Glyx5BsmcugsJ+RY6HyloMT19QE7gzD4SUvW85Nq3F1Lt+ +7MLJf0GDK1O+9x9t3OTx/D/Fjzmwu1+s0UpAB5+RbIuBjlMwNpnmwsvRQU/S +7/dqtWyw0Hx4lqeui19Web8yaMuEO5Mmv78/1kVDtrpl7Oc0CFPT7usI0sOo +tg8XNP6kAHd0c6eHkD4eWLHV2VH7EGxkS29aekkf567Obzkglgyrko7tazAw +wFLDPu99dxJgTZDRXeU+A9wrG3xf9HI0BN3ZcrBilyGKGfJ6Zw/sgbv5nZsn +VhihhFRRB7t8F0xdnf2uWWmETdZptav/C4VA5RKhs5uMkWX/PXtqMgRiHvhs +U7E3RkaDjkv/QAhkBom1UY7GqHvnXtqLthCoK4xOa3Mzxv+uxZl+uxwCEiqW +y/76G6Pqh9zWLucQeKjyQcIvyhjrt6cnmFcHw5pVioRKnjFSJl//PZ0WBBNr +svWpcWMUtaoYN/EKhJ5HuFF80hhjrXTe5FsHQn3YqFPktDHukG+rEuUEQgbF +26X/yxjv/vwtvJwRCGuMBa7XCJpg+auOM9kDARDA28FslDTByx3eE2eDA6Az +xEK4k2OCOw4EjKbE+UNVwe+30ykmmPDfZi29dF/Q3xD53SrVBKOLRx/lRvjC +zbfDwvnpJpgkL3ta1NMXKIV+A6ssE6yN331Qd6UvXM+pT7/wrwnyhpquOzf4 +QH7aISOLMhNUVmpcMfL7HzgauexEznMTlD83HKgf5w2eZkpoosDBLye4RT/K +POBv5yKRRoKDezTqzZvPeEB+0OhLKyUODp4T8ryW5AEfD1fv9VzFQWupfVcL +HT1gd4tdebQ2B0vLrmTt/e4Ox2zjFKrMOXjBwZ+RYOYONe5df3R3cnCL0X6d +xq+uILfjSLVGPQcHWo4nXg11hozZYL3UBg42iEzv/+PpDHOzzMlP9zk4tnGu +lA/PGYZuzS/Ob+Hgvh7ZFzwVZ6gROJgj9pyD5oPOFQ1vnMDzZNLemQ8cXO7S +4qPt7gQ5tdF6d5ZwUbDvVHm7vSOsWBxKbnLj4jXbzTlKIfZQsCE+ZtyDi2+8 +JAe+uNqDdnzGhmxvLgZ67Iy7Y24PtuP8rh5/Luq+nZ+ZpWIPh19M/wwM5eKN +cLvXLe128ONS4vqY/Vx8nhMW7dhpC30m2c+LSrgYxUh40z5tA1v2FJzjlXGx +MkfXrKnHBmbKbgYN87lYsVWrtq/WBsRYPd/X3uJicsqLLLtkG7BexJC/Xc/F +PI3DNWGiNlDXWbT5eRcXLRWt8nattQYrkSr1qB4u9rvd/TpX0hp6LFpmpF9y +cebARtHSX1YwVfM1xecNF1XF7E9a37cC9YtapV+GuMgWjQord7eCur51UWkj +XOSdMvKfb2oFVhJOoDlOxxvdkRWhZAXBR/Z0RE5z8YRSbXDOKA+m6g+flfrB +xS0Clu9sO3mQ/OtMYM0vOt4ARSdGDQ9EdYvV/vnLxdyY2MuC+Ty4sKNmenaW +i9yPF+/NOcyD/wGABxRd + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07169865933626642}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.07169865933626642}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8VO0XAHClTUlC9uHOGFqs2ZcZ51TCIPvOaw0tkiJllzZlSbTQW1Gh +JMy9KWslKlsqRZaK0i5rlvbX7/7+ms/3n/t5zjnPOecZZsBOx6C5AgICxBwB +gf//zvS33GenFphKVWpWBPmuN+28IB29ricZNkolBkf1EYArngRI92RBxI0Z +0q5PC6Lsr3UL9lyCynB+rF4fwvJRqayf3RQwBRvGhfvsYaDOdudUdwPMih4e +PdbrB+bsodcT3c8gpEpYIbs7HH52G5wa7x6EysgW9TtPkqBxw5WCjkuTsL3o +5MBxvxMgP1D9MUDtL4irTqg/j88FiVDfaws3CKLemJPsp2P5kLXWvNbWZRHG +z3F0cQgugN4crfoJ0aX4cXfDU8eKK5BakPhkrsxy7Igxdr45dA2kTr47mn1e +HFvPzJHkXy0FadWbB38UiaNZRe92OaoUZBsOJ/7DF8fSqfDipNpSUBhfvWdl +ozhG9DG6DR+XgrJNuF/tZ3FMlrr+0neyFHTm/dV/pyOBp/Xg2BFOGdhFSr7X +bpXASJHAMb3WMjjizDN9NrMCQ6STOL3PykG24rHs3DmSuKTAW9DvZTmUiTt/ +X7tEEo/ru3sMvCuHF898+CcUJbGxwby8aaoc2A6RLAdLScwQGdmjuIQPDZvy +FjzNlcSYgDlx71T58Nd8+nE7RwoTdrcandvGh8yimJK/5lLov/pod0gYH9gL +BFLUHaSw/eBPUnM3H2weLF6XHiSFZVXf5Cqi+XB2A3HDJkMKXY3Kbx9P4YMh +Wp9pG5DCFFHdRVmFfIgwuujbkiyNRRrbku+94oNVvsiUdZo0vmAsHH45wAfW +wriUx6ek0Sk0U2hykA9PO13J51el8bqFmp/UFz5ohAsL9j+WRtZTIsZwmg+f +i/YWfZOVwbuaGh6vhEnwlrAdkbshgy/Xbqi7ZkSCTmzt/gt1MhhrpH/Wi0PC +4sFVksyHMujfrKsmBCRUlwuCSq8M3mk/H+ppRoKkdXWm1qwMLpbx9O+yJeHp +frbuRmtZ3CJXoqkeSILZ2K+YsHeyuFU4xjToKAnRlifX3BuWRevtN/0vppJQ +dlG9T3xGFqcthv/pSydB2tnPqHqRHOpoLBlcn0XCcNWD74Iacij9bK/C6FkS +spMzI3P3yeGGVV6nS0tIGFyhEnZ/qTzG2XLYz1pJkNp5lyElJY9fHUM7ix+R +YNPs3r6VkMfwUfOghMck3IpJVVumI4+8XPU1Cs9IODYwPuThLo8iZZt4hr0k +aBfXhoxdkkciUoHd/ZGE/RwHf1lDBjolXblxb5YES58L3wzWM/DAouyLLnMo +EEn6esDFhoGPWFVjH+ZScK7xUFGmHwMfn2wo+z2fgiqrmq8LjjJwy8+LD38v +oWDcXSlqspeBZ3UudNtKUVAZE75w+XsGTtQ8ESqWpiDh3O0cjVEGbnQRKZyV +oUD4jVvt1rkKiHHLZC7JU7AyJE3gzRoFNMj6srCOSYHPnuljj2IVUOHBx2Nm +qhQon1kvP3RIAYmPUmeC1Cg6f8dLF2YqYImXleQBdQpi/qx+ur5AAeUmXMNv +aFJw6oDPiupHClgX9KDwiw4F3oUlRS9eKOAqFt97VJcCVtMPg6k3Cnjt3mzq +mB4F/MXZnprTCtg+lu36yYCCRyea8goZiujWblB+3YSC7BsSaxtXKuKygS+c +UxwKPLv8G96sVcRF0sWWMVwKPkv/eS9nrojpZgavjYACwXytNVlhimiqu3LZ +8fUUGJflViTcVUSD1cGmWZYUmHU//jvarIjrIos2GfAosBWYZ+H7jP6eRo5H +L+1Ax7Be+KCIU5+Y2ySsKTCPZSYmzSdwu8H3xOBNFLQtq7tsuJjADKePhydp +2xe4No+LEMih7hyPt6XAqz11ub80gXnHu4pT7CgIV5y5vE6VQCHnMLFYBwqm +b2Q2/9QkMK4+0mScdoyl6gipS+CV/EfbAxwpOLTLT59lSmDgX+0PXCcKFi/4 +7dm3nkCviALNK7Qzz55KzLIgcNxW/eBSZwrONrY2z3Ug8As42XbQVnQPGqlx +IXBI3eOBhgsFBcOzyyM8CXyy1pJ3lHb5Cj2vd4EECmrUxui5UnA/JG+kMYrA +XW7Lc7a5UcD7YyQWF0vgTuO9x/i0H2d26usmEZjgmnZ8knZvtVBSwVECF3yo +6Ax3p++LbUGBdwaBAhHrJUtovx80bZHIJlA8PGLHIO3RJZFih84RyCBrfS09 +KIjIFzHgXiRwinL8E0X7h26x13QhgYUX0shLtBNaNiSVXqPPJ6aa1EZb0Ke/ +IKicwFrv8S0TtFO+7WthVBD4MTEvVMKT7pcj4qNdVQQmqv9J1aWdLVcmlnGb +wLGm1iYH2tJ8SwPzBrpe/k+JUNrnzd55/feQQOW6Z2cO0Gb1xifdaqPra5mj +nkP76g7pwrCnBOYqfx4spq0+90aLSheBncSxqira1OlNo/29BDZVmJffp22o ++lnsTD8dr9Cnpnbat+8mG9i9I7B7Qlewk/Z6Z4b3ws8EGo398u+m3fS5Munu +MIG9avM+/N828Y6FeycI9N4vn95F+9nykRbNGfr8O0S9ntJ2Kzoy+ukXgfWM +Urtm2q+MWeL5swQmB9Vvv0074Emdgfs8Jn5rkOaX0/4U6OYtKsREW+9DjDza +oT8mkpqXMnFgtqsilbbxrmDJj2JM9PjWvDeC9qKhvhJBaSYapp/45Eb7RYDd +OiaDifESJvONaBe+bHxhymKiDdnRIUk70tkw1HslEyV2Bdj+vx7r26/PiVFj +4muz37HNtPvvnFK7qc9EYc/9o6G0rxssbnhmwsSrnzP0jGnH8BPcxpGJuuwP +a+fRlrwUkqxqzcTagZu2Gf+/P7KvpHj2TPQvcdtlS5vKti8NdmFiS3XmpiW0 +7Q4Z9Vz0ZeL3SsIglr6PCv+V7ri7mYnHegvNNWgPR7EEX29l4liegkQ/fb9T +tizRkI5k4ni//YgObde3iY160Uxc6Aa/e+l+YHtOuTslMNFzV2pbHO1669cH +MlLo+FrLK6vofsq47yBzPZ2JYrcbuxxoe3MflrVkMXGy+nrNJ7off2qU9847 +z8SlbgmvhWhri+3XjCWZyK3sKFpJ97dA6vT9nFtMjGs0krtiT/eT4DbPW7VM +nM9K91WivX3a8dDEAybWu2V6i9HzoqCH/TKkj87PwzDLVhsKdjvkhh8aoOs1 +eMJbiza2Ll1w+T0TA8e+8LLp+fS6dkarf5SJXlnDFXZWdD7zmg87C7KwRc1h +5JIFnU8prvzuRSxsPao6PGZO5zOTJI8vZaEy51a7EW275LOvWqVYWNhwlXvf +jM5XUKj2OjUWtkve+3ZjHR2fqmi/ugsLY2YUG2aNKZg5L7tfx5P+3l8BUpH2 +1DJltpEvC5d9XUdxjOh+nzTaZraVhaRT7vgOep4P1gbOeMazUKm4Nr6U3get +1pUiKYUs/KPX8f4ivV+abt8j06+xsE7YOSV7DT2PNB85Z5ezsELG3SF5NQV3 +xN+evVDNwqSv99zdVtLnf7l45c12FrKq7X0HWPT82+4Dg9Ms5JiN+Wyh99uZ +11sGP/1iYbNT04gavf9O2kUcGplloWfc65ujknQ9dVLafggp4YOoppmtEhQk +/ybdlikoYdyDZh9YRtcjdX44x1wJdYrnvAueRwGn5Hr+6dNKKMWQrCCHSXhJ +lORt/FcJ3Re0LDH5SkLM6eILU3lKuKPgl3zDFxIq9xedcyxWQl85IryF3vfa +7vk5InVKuDpg9/e6NySsnn8y8/BbJRQT58UadtLvHd/YpCg1NhosfjqRUk3C +zc7oROW1bFwiQJ5oqyTB2WpfQqceG3+T75YK3yIhS29PnDawsWtfad5hioSl +wjv3jTqwsaB32CKAfr/Mqw4ID97Lxs83ugsqzpEwIWbl59rAxrATZqHt8ST0 +hLKebmti4y+Le76XYkmof/gLEh+xcV/k1p+R0SRkxpQoXn3BxtaDIsrie0jQ +GhQe+DnExpvf4g7rhJIQRj7557y4MppOhFXP9yRhyM7F6/1mZfQ54rzmlw4J +79P8XHcvVMEMToJb1Fs+hA2psbSEVZAh+W/9aD8fvlv8HBkRVcEWvnJ4EP3+ +XCyYdWirrApq54Ze2dTNB63oxgo/dRU8b8PMFWrnQ3yQiridkwrivB3ntKr4 +IGk6/EQ1TwWT5yfWb0jnA29sL++D/kr0uGB5qlGbD8OBiyIqEleh5ULP/HeV +ZfT/E6m5RxpWo+xtl2z20HUQa1fJ4I+tQTvZ7LBOZgnIp5Tb6+urIWt3smEB +sxhyVI1ExUPU8ScrvfGLyRVolV2nN3lCA+UMvslp+hWCsXxDpuYLTZQPc7X4 +G3gZRAQvRfona+Glyx5BsmcugsJ+RY6HyloMT19QE7gzD4SUvW85Nq3F1Lt+ +7MLJf0GDK1O+9x9t3OTx/D/Fjzmwu1+s0UpAB5+RbIuBjlMwNpnmwsvRQU/S +7/dqtWyw0Hx4lqeui19Web8yaMuEO5Mmv78/1kVDtrpl7Oc0CFPT7usI0sOo +tg8XNP6kAHd0c6eHkD4eWLHV2VH7EGxkS29aekkf567Obzkglgyrko7tazAw +wFLDPu99dxJgTZDRXeU+A9wrG3xf9HI0BN3ZcrBilyGKGfJ6Zw/sgbv5nZsn +VhihhFRRB7t8F0xdnf2uWWmETdZptav/C4VA5RKhs5uMkWX/PXtqMgRiHvhs +U7E3RkaDjkv/QAhkBom1UY7GqHvnXtqLthCoK4xOa3Mzxv+uxZl+uxwCEiqW +y/76G6Pqh9zWLucQeKjyQcIvyhjrt6cnmFcHw5pVioRKnjFSJl//PZ0WBBNr +svWpcWMUtaoYN/EKhJ5HuFF80hhjrXTe5FsHQn3YqFPktDHukG+rEuUEQgbF +26X/yxjv/vwtvJwRCGuMBa7XCJpg+auOM9kDARDA28FslDTByx3eE2eDA6Az +xEK4k2OCOw4EjKbE+UNVwe+30ykmmPDfZi29dF/Q3xD53SrVBKOLRx/lRvjC +zbfDwvnpJpgkL3ta1NMXKIV+A6ssE6yN331Qd6UvXM+pT7/wrwnyhpquOzf4 +QH7aISOLMhNUVmpcMfL7HzgauexEznMTlD83HKgf5w2eZkpoosDBLye4RT/K +POBv5yKRRoKDezTqzZvPeEB+0OhLKyUODp4T8ryW5AEfD1fv9VzFQWupfVcL +HT1gd4tdebQ2B0vLrmTt/e4Ox2zjFKrMOXjBwZ+RYOYONe5df3R3cnCL0X6d +xq+uILfjSLVGPQcHWo4nXg11hozZYL3UBg42iEzv/+PpDHOzzMlP9zk4tnGu +lA/PGYZuzS/Ob+Hgvh7ZFzwVZ6gROJgj9pyD5oPOFQ1vnMDzZNLemQ8cXO7S +4qPt7gQ5tdF6d5ZwUbDvVHm7vSOsWBxKbnLj4jXbzTlKIfZQsCE+ZtyDi2+8 +JAe+uNqDdnzGhmxvLgZ67Iy7Y24PtuP8rh5/Luq+nZ+ZpWIPh19M/wwM5eKN +cLvXLe128ONS4vqY/Vx8nhMW7dhpC30m2c+LSrgYxUh40z5tA1v2FJzjlXGx +MkfXrKnHBmbKbgYN87lYsVWrtq/WBsRYPd/X3uJicsqLLLtkG7BexJC/Xc/F +PI3DNWGiNlDXWbT5eRcXLRWt8nattQYrkSr1qB4u9rvd/TpX0hp6LFpmpF9y +cebARtHSX1YwVfM1xecNF1XF7E9a37cC9YtapV+GuMgWjQord7eCur51UWkj +XOSdMvKfb2oFVhJOoDlOxxvdkRWhZAXBR/Z0RE5z8YRSbXDOKA+m6g+flfrB +xS0Clu9sO3mQ/OtMYM0vOt4ARSdGDQ9EdYvV/vnLxdyY2MuC+Ty4sKNmenaW +i9yPF+/NOcyD/wGABxRd + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07169865933626642}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07169865933626642}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938287893679867`*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"323984b9-205a-4d9d-a66d-180e9221f5e3"] +}, Open ]], Cell[CellGroupData[{ @@ -7262,18 +15109,78 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.106889437985284`*^-161\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 73, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828789397975*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"ceafaf3d-6d7d-4b31-9e7e-34ad3fc2842e"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1222349510697162`*^-163\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 74, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828789402903*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"817f17c1-a0a1-4527-878d-d3d30338e565"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5535074149419207`*^-166\\\", \ +RowBox[{\\\"\ +552513857212233842570175958778312308519209260189278753959051363142168\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1583212683407106418618000954093361543354777600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 142, 75, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828789407982*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"b24a0822-c201-4a72-b71c-1002cc0aabc9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 142, 76, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828789412726*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"e41a62ea-069c-46b3-9a48-f0ac1ec86cfd"], + +Cell[BoxData["10.281142926562369`"], "Output", + CellChangeTimes->{3.993828818862657*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"99676e87-7109-4975-b1cf-0f7af005d266"] }, Open ]], Cell[CellGroupData[{ @@ -7340,27 +15247,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850818889292*^9, - 3.9918508230677433`*^9}},ExpressionUUID->"d2148290-3e90-8347-bddd-\ -5dd8190b0268"], + CellChangeTimes->{{3.991850818889292*^9, 3.9918508230677433`*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"905b237c-0e51-ab4b-895d-05994c6f1d5f"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.404719598709121`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 143, 77, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828818892642*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"40ffc391-bcd3-40ab-a0ed-a15a3cc1425a"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ad8c79e-9570-a44d-b593-07aa87056e21"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1473298282087184`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 143, 78, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828818897552*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"012728f6-4e12-4022-8682-ff25a8db931e"], -Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.486233463187866`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 143, 79, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938288189025517`*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"3e9716d0-00e5-4272-bdd5-eff0d75d18b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 143, 80, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828818907057*^9}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"0fbe2b41-0bb9-44ec-8805-532917774a16"], + +Cell[BoxData["0.9533438932031195`"], "Output", + CellChangeTimes->{3.99382882330722*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"405ba989-f6ff-414e-8bfe-43640c06041a"] }, Open ]], Cell[CellGroupData[{ @@ -7381,8 +15333,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7427,27 +15378,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850826380268*^9, - 3.991850829169306*^9}},ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-\ -98d71f8a8458"], + CellChangeTimes->{{3.991850826380268*^9, 3.991850829169306*^9}}, + CellLabel-> + "In[144]:=",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"c516c31a-74b4-f24d-a16a-678221cde87e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.404719598709121`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 144, 81, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938288233321667`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"88a2564d-7dcb-4312-bae5-f464fd66cfa0"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"5c50b555-9ebe-f94d-801f-34634555f622"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1473298282087184`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 144, 82, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828823337202*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"388d16da-d882-4013-93d3-caec5766a6b5"], -Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.486233463187866`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 144, 83, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828823342286*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e3e9d4d0-dce0-44b9-ab19-47d40994b669"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 144, 84, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938288233471317`*^9}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"58882fb8-ca87-4252-a146-699f4289b53d"], + +Cell[BoxData["30.714734947450456`"], "Output", + CellChangeTimes->{3.993828827673697*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"da1c583d-8e17-4ee4-a5ec-6c048c9bfc03"] }, Open ]], Cell[CellGroupData[{ @@ -7468,8 +15464,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -7514,27 +15509,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918508329145336`*^9, - 3.991850837197098*^9}},ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-\ -57c1fe1d0585"], + CellChangeTimes->{{3.9918508329145336`*^9, 3.991850837197098*^9}}, + CellLabel-> + "In[145]:=",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"7ca591cf-a5ce-ce41-8101-8edfca50e890"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.404719598709121`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 145, 85, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828827841564*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a0be7877-7a8f-483b-9ba1-4199988b18bb"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"cbafd11a-4be0-b541-81e4-e62191ae7695"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1473298282087184`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 145, 86, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828827846642*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"bdd482c9-498f-4faf-a6d2-ab8b2a3f7d6c"], -Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.486233463187866`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 145, 87, + 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828827851522*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"0d302e9e-7402-40e0-a1ca-3fb32b3658bf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 145, 88, 31384840255682485329, "kernel 5"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828827857091*^9}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"871f107c-92f2-460a-8a42-c225bec170fa"], + +Cell[BoxData["5.517427023711401`"], "Output", + CellChangeTimes->{3.993828830930636*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"ed574ba6-3502-41ac-9451-a433004656a9"] }, Open ]], Cell[CellGroupData[{ @@ -7543,17 +15583,21 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918508397421246`*^9, - 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ -1ca469b254bd"], + CellChangeTimes->{{3.9918508397421246`*^9, 3.9918508449867363`*^9}}, + CellLabel-> + "In[146]:=",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +Cell[BoxData["0.07323318190184272`"], "Output", + CellChangeTimes->{3.9938288309980307`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"4ff3b4b8-229b-4ebb-8ba1-04d892a5f072"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +Evaluator->"kernel 5", +WindowSize->{1440, 882}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" ] @@ -7568,354 +15612,640 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], -Cell[706, 26, 152, 3, 28, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], -Cell[861, 31, 147, 4, 28, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], -Cell[1011, 37, 154, 3, 28, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], Cell[CellGroupData[{ -Cell[1190, 44, 1273, 41, 113, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], -Cell[2466, 87, 106, 0, 32, "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +Cell[576, 22, 542, 9, 29, "Input",ExpressionUUID->"d6e5dbec-3a1c-4b94-addd-8a69a59ba427"], +Cell[1121, 33, 438, 6, 33, "Output",ExpressionUUID->"098b02f9-bd83-463f-b862-747e1ef4622b"] }, Open ]], Cell[CellGroupData[{ -Cell[2609, 92, 910, 31, 56, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], -Cell[3522, 125, 106, 0, 32, "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +Cell[1596, 44, 248, 4, 29, "Input",ExpressionUUID->"a33448e2-7bab-4fd5-a7dd-2a5b8f37d9d5"], +Cell[1847, 50, 554, 8, 33, "Output",ExpressionUUID->"0b6cd4ae-c400-4fc0-9e69-df39201229d2"] }, Open ]], Cell[CellGroupData[{ -Cell[3665, 130, 885, 30, 56, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], -Cell[4553, 162, 106, 0, 32, "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +Cell[2438, 63, 228, 4, 29, "Input",ExpressionUUID->"a386dd89-6a85-410a-a5bf-856a47873560"], +Cell[2669, 69, 532, 8, 33, "Output",ExpressionUUID->"24a5080c-cd8b-43ed-9046-8ebe67f6a10a"] }, Open ]], Cell[CellGroupData[{ -Cell[4696, 167, 532, 18, 52, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], -Cell[5231, 187, 101, 0, 32, "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +Cell[3238, 82, 175, 3, 29, "Input",ExpressionUUID->"2abc42cd-33b6-4d4e-b82f-28c3af1b1daf"], +Cell[3416, 87, 535, 8, 33, "Output",ExpressionUUID->"e79accb6-b5c8-4430-be68-450116d1f5b7"] }, Open ]], Cell[CellGroupData[{ -Cell[5369, 192, 625, 21, 52, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], -Cell[5997, 215, 100, 0, 32, "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +Cell[3988, 100, 257, 7, 42, "Input",ExpressionUUID->"e4a16bd8-96ae-4cfe-aa25-977db59658c2"], +Cell[4248, 109, 534, 8, 33, "Output",ExpressionUUID->"a1d0c927-f109-469b-b0fc-156325d1001c"] }, Open ]], Cell[CellGroupData[{ -Cell[6134, 220, 144, 4, 56, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], -Cell[6281, 226, 101, 0, 32, "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +Cell[4819, 122, 131, 2, 29, "Input",ExpressionUUID->"6323524b-a315-4a0b-92a6-b4bcb1a1762d"], +Cell[4953, 126, 533, 8, 33, "Output",ExpressionUUID->"73cfa33a-1d3b-4129-900c-7ec16287373c"] }, Open ]], Cell[CellGroupData[{ -Cell[6419, 231, 144, 4, 55, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], -Cell[6566, 237, 100, 0, 70, "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +Cell[5523, 139, 276, 6, 29, "Input",ExpressionUUID->"f7575093-2226-40a9-bcd5-502c54e37a76"], +Cell[5802, 147, 548, 8, 33, "Output",ExpressionUUID->"1f53d8ab-0103-422c-9f13-3cc445440e8f"] }, Open ]], Cell[CellGroupData[{ -Cell[6703, 242, 155, 4, 70, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], -Cell[6861, 248, 101, 0, 70, "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +Cell[6387, 160, 257, 7, 29, "Input",ExpressionUUID->"41817baa-8136-45f0-bf07-2b770c688b9f"], +Cell[6647, 169, 554, 8, 33, "Output",ExpressionUUID->"d9dd9b8e-c7c8-4000-8088-79c4b00ec9df"] }, Open ]], Cell[CellGroupData[{ -Cell[6999, 253, 155, 4, 70, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], -Cell[7157, 259, 101, 0, 70, "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +Cell[7238, 182, 242, 4, 29, "Input",ExpressionUUID->"b83e38da-90f1-41f0-b713-931625d01482"], +Cell[7483, 188, 551, 8, 33, "Output",ExpressionUUID->"433b84b0-03c3-4e66-b8de-45a934a519f3"] }, Open ]], Cell[CellGroupData[{ -Cell[7295, 264, 6029, 184, 70, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], -Cell[13327, 450, 102, 0, 70, "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +Cell[8071, 201, 245, 4, 29, "Input",ExpressionUUID->"b909fb64-b8a4-4c8f-82ef-7189fe1216fe"], +Cell[8319, 207, 547, 8, 33, "Output",ExpressionUUID->"3af677ff-1531-4cb7-a305-01ccbc052a66"] }, Open ]], Cell[CellGroupData[{ -Cell[13466, 455, 342, 8, 70, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], -Cell[13811, 465, 342, 6, 70, "Message",ExpressionUUID->"b04cf5cc-6c74-f842-9fba-c737c46f5a7b"], -Cell[14156, 473, 100, 0, 70, "Output",ExpressionUUID->"32922499-707a-964c-90f0-b2630d16ee29"] +Cell[8903, 220, 129, 2, 29, "Input",ExpressionUUID->"8b16625d-76df-4659-9a75-754a70162587"], +Cell[9035, 224, 532, 8, 33, "Output",ExpressionUUID->"605503d9-a2e7-49fb-83eb-9b0520c35bd6"] }, Open ]], Cell[CellGroupData[{ -Cell[14293, 478, 6096, 186, 70, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], -Cell[20392, 666, 103, 0, 70, "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +Cell[9604, 237, 129, 2, 29, "Input",ExpressionUUID->"933082c0-4165-47fd-ad39-33b3b85dfa58"], +Cell[9736, 241, 538, 8, 33, "Output",ExpressionUUID->"8a67ff2e-6699-4965-a6f2-e9b87ebc83c0"] }, Open ]], Cell[CellGroupData[{ -Cell[20532, 671, 342, 8, 70, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], -Cell[20877, 681, 342, 6, 70, "Message",ExpressionUUID->"6f900e99-9e38-fb4c-84fd-e99588ed1cc5"], -Cell[21222, 689, 100, 0, 70, "Output",ExpressionUUID->"e5a93687-7c76-eb48-a79a-098cbe08792a"] +Cell[10311, 254, 557, 19, 79, "Input",ExpressionUUID->"36ed2d17-4a01-48aa-a83c-6a16c44201cc"], +Cell[10871, 275, 551, 8, 33, "Output",ExpressionUUID->"07a7c125-b3d1-4e9b-a536-b6c5c99b7ec0"] }, Open ]], Cell[CellGroupData[{ -Cell[21359, 694, 2637, 87, 70, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], -Cell[23999, 783, 101, 0, 70, "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +Cell[11459, 288, 557, 19, 79, "Input",ExpressionUUID->"f9667d52-a466-4505-8498-095d65b67cd1"], +Cell[12019, 309, 552, 8, 33, "Output",ExpressionUUID->"716b98f3-e26c-42e0-9990-c5d5b7b240ed"] }, Open ]], Cell[CellGroupData[{ -Cell[24137, 788, 2577, 84, 70, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], -Cell[26717, 874, 102, 0, 70, "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +Cell[12608, 322, 1492, 48, 79, "Input",ExpressionUUID->"6be43e9d-50b5-487b-81c0-7f53d676efdd"], +Cell[14103, 372, 550, 8, 33, "Output",ExpressionUUID->"a7a1fd05-f778-4355-bf87-9a52c3fe00d9"] }, Open ]], Cell[CellGroupData[{ -Cell[26856, 879, 3686, 117, 70, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], -Cell[30545, 998, 102, 0, 70, "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] -}, Open ]], -Cell[30662, 1001, 138, 3, 70, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], -Cell[CellGroupData[{ -Cell[30825, 1008, 2054, 59, 70, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], -Cell[32882, 1069, 342, 6, 70, "Message",ExpressionUUID->"4105bae1-ec8c-fc46-bc8a-9d70c37ec32c"], -Cell[33227, 1077, 342, 6, 70, "Message",ExpressionUUID->"42c1a263-2456-664a-bb33-c5fe841cb412"], -Cell[33572, 1085, 100, 0, 70, "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +Cell[14690, 385, 1331, 44, 79, "Input",ExpressionUUID->"e2f6ce26-c7ab-4f49-bfae-454a1717dfc6"], +Cell[16024, 431, 566, 9, 33, "Output",ExpressionUUID->"6ec4bf3b-1e06-4657-b6e1-d7e0690b6872"] }, Open ]], Cell[CellGroupData[{ -Cell[33709, 1090, 2049, 58, 70, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], -Cell[35761, 1150, 342, 6, 70, "Message",ExpressionUUID->"be4d7bfb-c18e-564a-93ce-3f42607886e7"], -Cell[36106, 1158, 342, 6, 70, "Message",ExpressionUUID->"b768ca5f-6b93-1f43-97bf-08f74ea2facd"], -Cell[36451, 1166, 100, 0, 70, "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +Cell[16627, 445, 1331, 44, 79, "Input",ExpressionUUID->"d6ecd94f-f0d9-4eb5-89d3-7ec7d47cd21e"], +Cell[17961, 491, 568, 9, 33, "Output",ExpressionUUID->"4a31172c-bf80-4b03-bf9a-c5dbedca84ea"] }, Open ]], Cell[CellGroupData[{ -Cell[36588, 1171, 1938, 53, 70, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], -Cell[38529, 1226, 342, 6, 70, "Message",ExpressionUUID->"d3cb6fbc-3803-0541-80d1-8cab47341c44"], -Cell[38874, 1234, 342, 6, 70, "Message",ExpressionUUID->"635ef23c-be29-f947-b49d-c0d2f59f2ba8"], -Cell[39219, 1242, 342, 6, 70, "Message",ExpressionUUID->"d8687e0f-2f42-0543-a749-78a1ff3c9572"], -Cell[39564, 1250, 407, 7, 70, "Message",ExpressionUUID->"b055d243-2255-1f40-80bd-55bc54524667"], -Cell[39974, 1259, 8018, 364, 70, 4231, 300, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"8a200671-82f1-364d-8dba-8342607ad7b7"], -Cell[47995, 1625, 191, 5, 70, "Output",ExpressionUUID->"e49c1b8d-fabe-b944-a6dd-c578eb57eb6a"] +Cell[18566, 505, 1492, 48, 79, "Input",ExpressionUUID->"9bf7f8ba-fa1f-4526-bcb5-7f46a98d64a7"], +Cell[20061, 555, 551, 8, 33, "Output",ExpressionUUID->"b7f0109e-33fc-403c-ba28-3a8179378be7"] }, Open ]], Cell[CellGroupData[{ -Cell[48223, 1635, 2094, 60, 70, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], -Cell[50320, 1697, 342, 6, 70, "Message",ExpressionUUID->"9f5fa53c-8bea-a349-9c29-e4614f56cc98"], -Cell[50665, 1705, 342, 6, 70, "Message",ExpressionUUID->"a2ecd22c-b766-5347-9e03-9d459620be75"], -Cell[51010, 1713, 342, 6, 70, "Message",ExpressionUUID->"45a49c2b-98f0-ca4e-ab79-bb0334e26ffd"], -Cell[51355, 1721, 407, 7, 70, "Message",ExpressionUUID->"258782e2-0da4-1143-8b36-76da0d2ac6df"], -Cell[51765, 1730, 8024, 353, 70, 4113, 287, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"06204099-db57-8e4e-bcc4-fa1ae37c0063"], -Cell[59792, 2085, 191, 5, 70, "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-04dec8739bf5"] -}, Open ]], -Cell[59998, 2093, 232, 6, 70, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], -Cell[60233, 2101, 209, 5, 70, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], -Cell[CellGroupData[{ -Cell[60467, 2110, 215, 7, 70, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], -Cell[60685, 2119, 100, 0, 70, "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +Cell[20649, 568, 131, 2, 29, "Input",ExpressionUUID->"80cabeba-5fc0-4943-bf9b-8956a8dba043"], +Cell[20783, 572, 532, 8, 33, "Output",ExpressionUUID->"496b6f34-acec-4181-8fb7-80f0f7f3e21d"] }, Open ]], Cell[CellGroupData[{ -Cell[60822, 2124, 1814, 53, 70, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], -Cell[62639, 2179, 342, 6, 70, "Message",ExpressionUUID->"12d513db-13cc-bc48-b9a3-22b17d8aeb9a"], -Cell[62984, 2187, 342, 6, 70, "Message",ExpressionUUID->"05911c33-7605-8b49-a7ba-7fc8c8f30741"], -Cell[63329, 2195, 342, 6, 70, "Message",ExpressionUUID->"2192e048-2875-9f4a-aa0c-9cbbd447dfe1"], -Cell[63674, 2203, 407, 7, 70, "Message",ExpressionUUID->"b6990f5f-359f-464b-ac16-44cdfeae3c8e"], -Cell[64084, 2212, 8187, 365, 70, 4186, 297, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"899e43aa-c372-6647-a3e4-4952f308ab17"], -Cell[72274, 2579, 191, 5, 70, "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-baecb9a57d9b"] +Cell[21352, 585, 133, 2, 29, "Input",ExpressionUUID->"88e076ea-c127-4386-84df-5b5d4a42bbf0"], +Cell[21488, 589, 540, 8, 33, "Output",ExpressionUUID->"ebfe10c6-609a-471f-a433-a46447d2cb8d"] }, Open ]], Cell[CellGroupData[{ -Cell[72502, 2589, 1590, 47, 70, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], -Cell[74095, 2638, 342, 6, 70, "Message",ExpressionUUID->"d7dfab56-fefd-0149-8a26-6ee16f94ab37"], -Cell[74440, 2646, 101, 0, 70, "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +Cell[22065, 602, 134, 2, 29, "Input",ExpressionUUID->"0e21c6ce-d6ef-4839-9d8e-c53c9135c57a"], +Cell[22202, 606, 548, 8, 33, "Output",ExpressionUUID->"3d8d5b4b-537a-4348-8e60-6474134848d8"] }, Open ]], Cell[CellGroupData[{ -Cell[74578, 2651, 2247, 64, 70, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], -Cell[76828, 2717, 342, 6, 70, "Message",ExpressionUUID->"56921c73-2b67-0e4a-9808-5f61de992c7e"], -Cell[77173, 2725, 342, 6, 70, "Message",ExpressionUUID->"8ae663ad-3729-254b-9ec7-7f5d00ef81af"], -Cell[77518, 2733, 103, 0, 70, "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +Cell[22787, 619, 219, 4, 29, "Input",ExpressionUUID->"bf0fe2cb-61a2-4c16-9c74-d436b9a39142"], +Cell[23009, 625, 546, 9, 33, "Output",ExpressionUUID->"f904330f-fcb9-423c-8e08-a9543f061f07"] }, Open ]], Cell[CellGroupData[{ -Cell[77658, 2738, 2219, 64, 70, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], -Cell[79880, 2804, 342, 6, 70, "Message",ExpressionUUID->"1795c3b9-0182-224c-b986-6414d6712c04"], -Cell[80225, 2812, 342, 6, 70, "Message",ExpressionUUID->"c3b31753-a67f-9b45-b822-068e1df11f68"], -Cell[80570, 2820, 100, 0, 70, "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +Cell[23592, 639, 134, 2, 29, "Input",ExpressionUUID->"e2deac66-08d5-456e-accb-fa49c2b17d62"], +Cell[23729, 643, 543, 8, 33, "Output",ExpressionUUID->"9fc04a35-578f-487d-b326-c727d856fef9"] }, Open ]], Cell[CellGroupData[{ -Cell[80707, 2825, 2221, 64, 70, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], -Cell[82931, 2891, 342, 6, 70, "Message",ExpressionUUID->"32db1bf6-ba11-cb4a-955a-52e174a44e5f"], -Cell[83276, 2899, 342, 6, 70, "Message",ExpressionUUID->"4e2b22f2-1724-7649-93fc-33cd27bb415e"], -Cell[83621, 2907, 101, 0, 70, "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +Cell[24309, 656, 327, 5, 29, "Input",ExpressionUUID->"a76c2931-07c4-4f01-99aa-50017685829a"], +Cell[24639, 663, 535, 8, 33, "Output",ExpressionUUID->"96c20007-b469-4ad9-9225-94e1343350f5"] }, Open ]], Cell[CellGroupData[{ -Cell[83759, 2912, 215, 6, 70, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], -Cell[83977, 2920, 104, 0, 70, "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] -}, Open ]], -Cell[84096, 2923, 247, 5, 70, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], -Cell[CellGroupData[{ -Cell[84368, 2932, 532, 18, 70, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], -Cell[84903, 2952, 100, 0, 70, "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +Cell[25211, 676, 298, 5, 29, "Input",ExpressionUUID->"c6564cdc-ccb7-4df3-a285-62c0f4cd5d56"], +Cell[25512, 683, 563, 8, 33, "Output",ExpressionUUID->"82902619-e091-42e7-97d7-a304467bd03a"] }, Open ]], Cell[CellGroupData[{ -Cell[85040, 2957, 144, 4, 70, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], -Cell[85187, 2963, 100, 0, 70, "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +Cell[26112, 696, 219, 4, 29, "Input",ExpressionUUID->"2e75291e-baac-4ffe-a98a-0b062d96729d"], +Cell[26334, 702, 538, 8, 33, "Output",ExpressionUUID->"f36bd445-d5af-40df-99e1-53f46d7a0754"] }, Open ]], Cell[CellGroupData[{ -Cell[85324, 2968, 155, 4, 70, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], -Cell[85482, 2974, 100, 0, 70, "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +Cell[26909, 715, 350, 10, 42, "Input",ExpressionUUID->"0fcbd4ef-22d9-4769-9ef7-64a79be54340"], +Cell[27262, 727, 554, 8, 33, "Output",ExpressionUUID->"705be61e-eaca-47e1-9542-0b00d369ad0e"] }, Open ]], Cell[CellGroupData[{ -Cell[85619, 2979, 6029, 184, 70, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], -Cell[91651, 3165, 102, 0, 70, "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +Cell[27853, 740, 350, 10, 42, "Input",ExpressionUUID->"6ab2b44e-c72c-4e2a-9441-3cbdcde8d5cb"], +Cell[28206, 752, 570, 9, 33, "Output",ExpressionUUID->"1baedb1a-5901-4d0b-b6bd-47d65a85ef00"] }, Open ]], Cell[CellGroupData[{ -Cell[91790, 3170, 342, 8, 70, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], -Cell[92135, 3180, 342, 6, 70, "Message",ExpressionUUID->"def6b331-c871-b04d-a16e-4fc00b03d009"], -Cell[92480, 3188, 99, 0, 70, "Output",ExpressionUUID->"332f8da7-4eec-ed47-b124-edf7e2bf43d7"] +Cell[28813, 766, 994, 26, 43, "Input",ExpressionUUID->"922e01e2-de78-4872-ab8e-fd1fdc43708f"], +Cell[29810, 794, 553, 8, 33, "Output",ExpressionUUID->"1cc11f16-bb93-4a7b-9c5b-529f3f685468"] }, Open ]], Cell[CellGroupData[{ -Cell[92616, 3193, 6096, 186, 70, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], -Cell[98715, 3381, 102, 0, 70, "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +Cell[30400, 807, 199, 3, 29, "Input",ExpressionUUID->"64c918ea-72a8-4d2d-aeee-18faa0af62c6"], +Cell[30602, 812, 529, 8, 33, "Output",ExpressionUUID->"e6011927-c680-4a75-b5e5-b0cdab7e147b"] }, Open ]], Cell[CellGroupData[{ -Cell[98854, 3386, 342, 8, 70, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], -Cell[99199, 3396, 342, 6, 70, "Message",ExpressionUUID->"c6c8676e-4601-144e-b83c-769e22949175"], -Cell[99544, 3404, 100, 0, 70, "Output",ExpressionUUID->"bd9f2dfb-0880-624c-8a61-fa3104084faf"] +Cell[31168, 825, 334, 5, 29, "Input",ExpressionUUID->"66227da0-3c90-4364-8c15-843def3d1aac"], +Cell[31505, 832, 536, 8, 33, "Output",ExpressionUUID->"e197fbb4-56fe-40fa-96e7-57e7008a903d"] +}, Open ]], +Cell[32056, 843, 173, 2, 70, "Input",ExpressionUUID->"14f47334-6f12-4a88-8f47-06973016e6b4"], +Cell[CellGroupData[{ +Cell[32254, 849, 333, 5, 29, "Input",ExpressionUUID->"ae291cbb-6567-4707-90f6-3ddb979aa1f7"], +Cell[32590, 856, 531, 8, 33, "Output",ExpressionUUID->"a5086636-e98b-427c-86f9-141d4d39403e"] +}, Open ]], +Cell[33136, 867, 173, 2, 70, "Input",ExpressionUUID->"86d56e31-d34b-4be7-9807-2608bcc7242a"], +Cell[CellGroupData[{ +Cell[33334, 873, 337, 5, 29, "Input",ExpressionUUID->"817cff8a-3903-4687-8449-1a71f4607e23"], +Cell[33674, 880, 529, 8, 33, "Output",ExpressionUUID->"b3981374-0dd0-48c9-b10c-ffe6cc1b3da8"] +}, Open ]], +Cell[34218, 891, 173, 2, 70, "Input",ExpressionUUID->"5d887328-08a6-4e32-9881-0e6679325304"], +Cell[CellGroupData[{ +Cell[34416, 897, 360, 5, 29, "Input",ExpressionUUID->"93110c89-90a8-4b8f-ae4c-40fc397ece21"], +Cell[34779, 904, 541, 8, 33, "Output",ExpressionUUID->"6059693a-a633-4b6d-87d1-b9a91e539779"] +}, Open ]], +Cell[35335, 915, 171, 2, 70, "Input",ExpressionUUID->"7264e235-b0e0-49ee-840e-71aafcfdc52d"], +Cell[CellGroupData[{ +Cell[35531, 921, 307, 5, 29, "Input",ExpressionUUID->"4b59611d-a7dd-4648-b506-10add649af21"], +Cell[35841, 928, 537, 8, 33, "Output",ExpressionUUID->"7ef02157-6058-4dc5-a4fb-307750be79da"] +}, Open ]], +Cell[36393, 939, 171, 2, 70, "Input",ExpressionUUID->"e0124dd1-bc6f-4a8c-ae81-6e076d670269"], +Cell[CellGroupData[{ +Cell[36589, 945, 313, 5, 29, "Input",ExpressionUUID->"64867a18-7a9f-450e-9922-2b793d336a0c"], +Cell[36905, 952, 537, 8, 33, "Output",ExpressionUUID->"22a5eb66-9b20-4228-80b4-29b80583058f"] +}, Open ]], +Cell[37457, 963, 173, 2, 70, "Input",ExpressionUUID->"97b1daf8-a219-475b-9cf5-314954c80c69"], +Cell[CellGroupData[{ +Cell[37655, 969, 314, 5, 29, "Input",ExpressionUUID->"d8b23794-bb04-42d0-80fb-42cd109129d1"], +Cell[37972, 976, 535, 8, 33, "Output",ExpressionUUID->"656f740a-d337-40b0-8634-dacbcdf63d2d"] +}, Open ]], +Cell[38522, 987, 172, 2, 70, "Input",ExpressionUUID->"ea171895-9e45-4a58-aefe-3c289dd7153d"], +Cell[CellGroupData[{ +Cell[38719, 993, 283, 4, 29, "Input",ExpressionUUID->"0367a718-f69b-4c32-92e9-c94e89618562"], +Cell[39005, 999, 540, 8, 33, "Output",ExpressionUUID->"9eb3301a-ec83-4ca3-b3d4-342e69bb57c3"] +}, Open ]], +Cell[39560, 1010, 175, 2, 70, "Input",ExpressionUUID->"e214600a-4d55-42a3-a120-9c4c19a2329d"], +Cell[CellGroupData[{ +Cell[39760, 1016, 19809, 485, 1100, "Input",ExpressionUUID->"28df397a-f26d-4c30-995a-951d011153d3"], +Cell[59572, 1503, 549, 8, 33, "Output",ExpressionUUID->"16b261aa-e6d3-4205-b034-1edb0df501fa"] }, Open ]], Cell[CellGroupData[{ -Cell[99681, 3409, 2637, 87, 70, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], -Cell[102321, 3498, 101, 0, 70, "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +Cell[60158, 1516, 19748, 489, 1100, "Input",ExpressionUUID->"32abaf7a-f340-4bbf-bffa-f559b02cabba"], +Cell[79909, 2007, 549, 8, 33, "Output",ExpressionUUID->"73369c67-ba4d-4a74-b892-533eaa305e90"] }, Open ]], Cell[CellGroupData[{ -Cell[102459, 3503, 2577, 84, 70, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], -Cell[105039, 3589, 102, 0, 70, "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +Cell[80495, 2020, 19748, 483, 1099, "Input",ExpressionUUID->"c0152b77-1bf4-409d-b114-795369715824"], +Cell[100246, 2505, 570, 9, 33, "Output",ExpressionUUID->"523181b9-fc1d-4cb3-965c-9eeba63e32da"] }, Open ]], Cell[CellGroupData[{ -Cell[105178, 3594, 3686, 117, 70, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], -Cell[108867, 3713, 102, 0, 70, "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +Cell[100853, 2519, 22534, 553, 1235, "Input",ExpressionUUID->"61c1361a-edca-4531-90e0-7e1c2ed94bbf"], +Cell[123390, 3074, 564, 9, 33, "Output",ExpressionUUID->"fd38d983-76d3-4706-afdd-f154a786453c"] }, Open ]], Cell[CellGroupData[{ -Cell[109006, 3718, 2052, 59, 70, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], -Cell[111061, 3779, 342, 6, 70, "Message",ExpressionUUID->"7fd60dea-f794-4744-8801-bfb1a50a0e07"], -Cell[111406, 3787, 342, 6, 70, "Message",ExpressionUUID->"0b8c0718-41d2-4542-8afe-212a15805650"], -Cell[111751, 3795, 101, 0, 70, "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +Cell[123991, 3088, 22535, 553, 1235, "Input",ExpressionUUID->"40ac5ed9-1af0-478d-bd86-86ea03b55495"], +Cell[146529, 3643, 569, 9, 33, "Output",ExpressionUUID->"1cb3d827-1433-4b0c-94bc-733c01847edb"] }, Open ]], Cell[CellGroupData[{ -Cell[111889, 3800, 2054, 59, 70, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], -Cell[113946, 3861, 342, 6, 70, "Message",ExpressionUUID->"b6f0ccc2-ff83-124b-a341-e143319c7670"], -Cell[114291, 3869, 342, 6, 70, "Message",ExpressionUUID->"d4b50e17-5ee4-384c-b81f-c2a36a80320e"], -Cell[114636, 3877, 100, 0, 70, "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +Cell[147135, 3657, 25491, 626, 1350, "Input",ExpressionUUID->"7c8fb4f5-2cc3-4552-83c7-ea24e337be91"], +Cell[172629, 4285, 564, 9, 33, "Output",ExpressionUUID->"07cbdbd3-656e-4865-bf14-2ec9296c09d2"] }, Open ]], Cell[CellGroupData[{ -Cell[114773, 3882, 2030, 55, 70, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], -Cell[116806, 3939, 342, 6, 70, "Message",ExpressionUUID->"7797a546-4085-124a-83da-5f3c472cdc4c"], -Cell[117151, 3947, 342, 6, 70, "Message",ExpressionUUID->"bf75ebeb-fc95-1d45-8487-ceed40ec633c"], -Cell[117496, 3955, 342, 6, 70, "Message",ExpressionUUID->"ca7472ca-7b27-a54a-84a1-e603fa592207"], -Cell[117841, 3963, 407, 7, 70, "Message",ExpressionUUID->"86b3b7d9-f0e9-0a4b-9079-b341ca597ab4"], -Cell[118251, 3972, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"f3c0c3aa-fd64-8e41-bc0a-ae36b33a37ec"], -Cell[127686, 4412, 191, 5, 70, "Output",ExpressionUUID->"23cfff6f-2c67-ce46-9cc6-49e8ffb5e8c8"] +Cell[173230, 4299, 130, 2, 29, "Input",ExpressionUUID->"8a3c3f55-0948-4753-9f4d-b731512e11a7"], +Cell[173363, 4303, 543, 8, 33, "Output",ExpressionUUID->"6594a0ee-e132-4278-82f7-1d4df91a0622"] }, Open ]], Cell[CellGroupData[{ -Cell[127914, 4422, 2118, 60, 70, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], -Cell[130035, 4484, 342, 6, 70, "Message",ExpressionUUID->"b9265795-17b8-4e47-bd29-fee31586537e"], -Cell[130380, 4492, 342, 6, 70, "Message",ExpressionUUID->"072fb53f-7116-0f41-a298-6891351a3192"], -Cell[130725, 4500, 342, 6, 70, "Message",ExpressionUUID->"7f686ca7-db7f-0b40-bbd8-c08a80d2c198"], -Cell[131070, 4508, 407, 7, 70, "Message",ExpressionUUID->"3aaeaf29-5b60-ab47-b674-24d071c511f8"], -Cell[131480, 4517, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"fb5ee406-78d5-a849-9c81-3ea500ee883f"], -Cell[140029, 4887, 191, 5, 70, "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-87bc9c72594a"] -}, Open ]], -Cell[140235, 4895, 209, 5, 70, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], -Cell[CellGroupData[{ -Cell[140469, 4904, 1590, 47, 70, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], -Cell[142062, 4953, 342, 6, 70, "Message",ExpressionUUID->"52cff8eb-0c77-c944-a54f-e282b00ce766"], -Cell[142407, 4961, 101, 0, 70, "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +Cell[173943, 4316, 130, 2, 29, "Input",ExpressionUUID->"6d9ec2cd-fecc-40a2-9faf-256ba00b75da"], +Cell[174076, 4320, 534, 8, 33, "Output",ExpressionUUID->"00d86b37-1054-47aa-af04-3fe9d979cb01"] }, Open ]], Cell[CellGroupData[{ -Cell[142545, 4966, 2251, 64, 70, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], -Cell[144799, 5032, 342, 6, 70, "Message",ExpressionUUID->"cb5a1193-7562-6446-a279-d9f6295d156e"], -Cell[145144, 5040, 342, 6, 70, "Message",ExpressionUUID->"566b0ad4-7f4e-b04f-8294-646ce1913fac"], -Cell[145489, 5048, 101, 0, 70, "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +Cell[174647, 4333, 1144, 39, 55, "Input",ExpressionUUID->"0f567a49-c20f-4319-ae6e-ab7d9eceeb8c"], +Cell[175794, 4374, 557, 8, 33, "Output",ExpressionUUID->"e1bb1a75-5223-42b1-94a4-d42901c58894"] }, Open ]], Cell[CellGroupData[{ -Cell[145627, 5053, 2220, 64, 70, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], -Cell[147850, 5119, 342, 6, 70, "Message",ExpressionUUID->"4cd45900-7eb0-6b4b-830a-a339e8117392"], -Cell[148195, 5127, 342, 6, 70, "Message",ExpressionUUID->"0ddcf174-f6c5-2546-b6d3-f17f46d6e8a3"], -Cell[148540, 5135, 101, 0, 70, "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +Cell[176388, 4387, 1041, 35, 55, "Input",ExpressionUUID->"f5b8e075-dc82-4d64-9313-c344a2fac812"], +Cell[177432, 4424, 570, 9, 33, "Output",ExpressionUUID->"f3d92670-e071-4f7c-91e9-7aad3ff533ab"] }, Open ]], Cell[CellGroupData[{ -Cell[148678, 5140, 2223, 64, 70, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], -Cell[150904, 5206, 342, 6, 70, "Message",ExpressionUUID->"f702ec8b-e3a1-2f4f-bfef-4278a2688935"], -Cell[151249, 5214, 342, 6, 70, "Message",ExpressionUUID->"61220452-df6a-154e-8b5c-fecd0ab287a1"], -Cell[151594, 5222, 101, 0, 70, "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +Cell[178039, 4438, 1144, 39, 55, "Input",ExpressionUUID->"ec940a34-3bf2-4471-aac3-287f6d500ea7"], +Cell[179186, 4479, 552, 8, 33, "Output",ExpressionUUID->"0005204d-c88a-494f-993c-73374034c83a"] }, Open ]], Cell[CellGroupData[{ -Cell[151732, 5227, 215, 6, 70, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], -Cell[151950, 5235, 102, 0, 70, "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] -}, Open ]], -Cell[152067, 5238, 247, 5, 70, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], -Cell[CellGroupData[{ -Cell[152339, 5247, 532, 18, 70, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], -Cell[152874, 5267, 101, 0, 70, "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +Cell[179775, 4492, 108, 1, 29, "Input",ExpressionUUID->"e6487c56-e8b2-4625-b3df-7ef35e87d43a"], +Cell[179886, 4495, 555, 8, 33, "Output",ExpressionUUID->"9f9211b6-d9dc-44e7-a205-7578bcf69c95"] }, Open ]], Cell[CellGroupData[{ -Cell[153012, 5272, 144, 4, 70, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], -Cell[153159, 5278, 101, 0, 70, "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +Cell[180478, 4508, 108, 1, 29, "Input",ExpressionUUID->"db30e9aa-7c77-4fe5-847f-c07765bd5d9f"], +Cell[180589, 4511, 579, 9, 33, "Output",ExpressionUUID->"10ba973c-57e8-4204-97d3-4c7ec58b5929"] }, Open ]], Cell[CellGroupData[{ -Cell[153297, 5283, 155, 4, 70, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], -Cell[153455, 5289, 100, 0, 70, "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +Cell[181205, 4525, 108, 1, 29, "Input",ExpressionUUID->"b9441ef9-edb5-45e3-8614-cbc99ab03fb0"], +Cell[181316, 4528, 566, 9, 33, "Output",ExpressionUUID->"780b3007-3032-4489-b46b-09d12b158662"] }, Open ]], Cell[CellGroupData[{ -Cell[153592, 5294, 6029, 184, 70, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], -Cell[159624, 5480, 102, 0, 70, "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +Cell[181919, 4542, 108, 1, 29, "Input",ExpressionUUID->"9b41484a-9b01-4b91-abd3-ea66d5f8d28e"], +Cell[182030, 4545, 557, 8, 33, "Output",ExpressionUUID->"a0e373fa-59a6-4175-8d0c-7aceee38cd6b"] }, Open ]], Cell[CellGroupData[{ -Cell[159763, 5485, 342, 8, 70, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], -Cell[160108, 5495, 342, 6, 70, "Message",ExpressionUUID->"4870a5d4-b6fc-9044-ae55-fcbd2b9d41eb"], -Cell[160453, 5503, 100, 0, 70, "Output",ExpressionUUID->"4263cd25-e2b6-5c4b-8834-28c6ca12b863"] +Cell[182624, 4558, 107, 1, 29, "Input",ExpressionUUID->"3e2aff89-ce97-4ad6-b3c7-fc6f4c8960f8"], +Cell[182734, 4561, 559, 8, 33, "Output",ExpressionUUID->"953d2ab6-3a44-4f6e-830e-3f57b34ede4a"] }, Open ]], Cell[CellGroupData[{ -Cell[160590, 5508, 6096, 186, 70, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], -Cell[166689, 5696, 102, 0, 70, "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +Cell[183330, 4574, 107, 1, 29, "Input",ExpressionUUID->"f9f4e82d-2088-460b-b67a-1e148ed8d5d2"], +Cell[183440, 4577, 546, 8, 33, "Output",ExpressionUUID->"5eb66097-eb7b-4627-9bb8-cc384e7b6956"] }, Open ]], Cell[CellGroupData[{ -Cell[166828, 5701, 342, 8, 70, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], -Cell[167173, 5711, 342, 6, 70, "Message",ExpressionUUID->"d6f4e6b1-3d45-7649-b7dd-944c4a1de3e4"], -Cell[167518, 5719, 99, 0, 70, "Output",ExpressionUUID->"27fdf87b-577e-d74b-99f1-6a0486be19bc"] +Cell[184023, 4590, 497, 16, 55, "Input",ExpressionUUID->"390da225-cbe4-4373-b090-dddaff84bf3d"], +Cell[184523, 4608, 570, 9, 33, "Output",ExpressionUUID->"bead8b13-1555-4b28-a901-fab8c9185122"] }, Open ]], Cell[CellGroupData[{ -Cell[167654, 5724, 2637, 87, 70, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], -Cell[170294, 5813, 101, 0, 70, "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +Cell[185130, 4622, 497, 16, 55, "Input",ExpressionUUID->"f75c93f3-5075-4034-8b3d-3d9cf66d3b21"], +Cell[185630, 4640, 568, 9, 33, "Output",ExpressionUUID->"8fdec669-39ca-42a9-b808-23a3288693f2"] }, Open ]], Cell[CellGroupData[{ -Cell[170432, 5818, 2577, 84, 70, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], -Cell[173012, 5904, 102, 0, 70, "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +Cell[186235, 4654, 1788, 60, 55, "Input",ExpressionUUID->"b74c307c-1b22-4423-bbc3-fe0fe3127e7a"], +Cell[188026, 4716, 553, 8, 33, "Output",ExpressionUUID->"3f65fa64-4b0f-4eaa-9e12-c035a1f82398"] }, Open ]], Cell[CellGroupData[{ -Cell[173151, 5909, 3686, 117, 70, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], -Cell[176840, 6028, 102, 0, 70, "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +Cell[188616, 4729, 1101, 36, 55, "Input",ExpressionUUID->"3563c4f5-076a-4bf2-a7ef-5ce8e79a9590"], +Cell[189720, 4767, 566, 9, 33, "Output",ExpressionUUID->"ef266e56-fca5-4507-b3c6-010cd812a38c"] }, Open ]], Cell[CellGroupData[{ -Cell[176979, 6033, 2054, 59, 70, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], -Cell[179036, 6094, 342, 6, 70, "Message",ExpressionUUID->"b82c1933-5313-1d4c-a858-68be8f118333"], -Cell[179381, 6102, 342, 6, 70, "Message",ExpressionUUID->"3b3475f7-7db7-054a-b7f5-20d8f7d491bf"], -Cell[179726, 6110, 100, 0, 70, "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +Cell[190323, 4781, 1818, 61, 107, "Input",ExpressionUUID->"d76bbf79-b8b1-48c5-9555-49f8c3a386b5"], +Cell[192144, 4844, 548, 8, 33, "Output",ExpressionUUID->"d61a4d1a-18e8-4b27-b495-74e0d9286c34"] }, Open ]], Cell[CellGroupData[{ -Cell[179863, 6115, 2054, 59, 70, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], -Cell[181920, 6176, 342, 6, 70, "Message",ExpressionUUID->"9e0b92f8-7fe2-e84e-89cd-c02c9da3e5b7"], -Cell[182265, 6184, 342, 6, 70, "Message",ExpressionUUID->"56712e4d-1aa7-524a-8254-bcfd8978eea0"], -Cell[182610, 6192, 100, 0, 70, "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +Cell[192729, 4857, 1631, 53, 79, "Input",ExpressionUUID->"3f046409-f44d-49e2-8c27-47facabdde5b"], +Cell[194363, 4912, 548, 8, 33, "Output",ExpressionUUID->"a0ef28ee-7279-490c-b284-9a33e100b02f"] }, Open ]], Cell[CellGroupData[{ -Cell[182747, 6197, 2030, 55, 70, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], -Cell[184780, 6254, 342, 6, 70, "Message",ExpressionUUID->"9c6ce535-b42f-3c43-a89e-eda48c04121e"], -Cell[185125, 6262, 342, 6, 70, "Message",ExpressionUUID->"e2ce6bda-7d9b-6149-bf5b-dd4c91908e28"], -Cell[185470, 6270, 342, 6, 70, "Message",ExpressionUUID->"2bed6df2-09cb-4d4d-b247-4fe79fd38fd6"], -Cell[185815, 6278, 407, 7, 70, "Message",ExpressionUUID->"64a64e18-e609-d54b-8225-64fa7909a948"], -Cell[186225, 6287, 9432, 438, 70, 5172, 366, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"7758daab-adf8-2a49-9166-50457409d355"], -Cell[195660, 6727, 191, 5, 70, "Output",ExpressionUUID->"4f7705b8-e954-b341-ab6d-8b4ad9ffca61"] +Cell[194948, 4925, 1631, 53, 79, "Input",ExpressionUUID->"63265243-d007-4c9b-a40d-131cb895d562"], +Cell[196582, 4980, 556, 8, 33, "Output",ExpressionUUID->"99630dda-a034-46f8-a578-bddcc85c398f"] }, Open ]], Cell[CellGroupData[{ -Cell[195888, 6737, 2143, 61, 70, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], -Cell[198034, 6800, 342, 6, 70, "Message",ExpressionUUID->"2059be4f-bbb2-da49-9e23-3fc4d150d7a8"], -Cell[198379, 6808, 342, 6, 70, "Message",ExpressionUUID->"71d4e039-c2b8-d74d-819a-80d2051e4273"], -Cell[198724, 6816, 342, 6, 70, "Message",ExpressionUUID->"63625e13-15ef-1f45-89dc-998a1b63a626"], -Cell[199069, 6824, 407, 7, 70, "Message",ExpressionUUID->"ff96fc2b-5ddb-2142-a985-58ccc6f07e00"], -Cell[199479, 6833, 8546, 368, 70, 4269, 296, "GraphicsData", "PostScript", "Graphics",ExpressionUUID->"a63f48d3-505f-0a45-b944-e872edd94d6c"], -Cell[208028, 7203, 191, 5, 70, "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-1872f77ea023"] +Cell[197175, 4993, 228, 4, 29, "Input",ExpressionUUID->"83cccf0d-dccb-fb42-a058-5e950c758893"], +Cell[197406, 4999, 156, 2, 33, "Output",ExpressionUUID->"b0ee07fb-1b41-49d6-af6b-bfdd90509717"] }, Open ]], -Cell[208234, 7211, 138, 3, 70, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[197577, 5004, 171, 2, 29, "Input",ExpressionUUID->"7730e455-e5f4-194b-b761-e7a6896afd10"], Cell[CellGroupData[{ -Cell[208397, 7218, 1590, 47, 70, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], -Cell[209990, 7267, 342, 6, 70, "Message",ExpressionUUID->"2b38d1a8-4a7e-7b4f-8cdd-5298fced63d9"], -Cell[210335, 7275, 101, 0, 70, "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +Cell[197773, 5010, 228, 4, 29, "Input",ExpressionUUID->"b70cfd2b-21a1-8344-9518-5e27a96171a9"], +Cell[198004, 5016, 156, 2, 33, "Output",ExpressionUUID->"29816dcb-55e6-4bf4-a947-0efa3b49f6d1"] +}, Open ]], +Cell[198175, 5021, 173, 2, 29, "Input",ExpressionUUID->"86df0a71-aa65-aa41-b8f1-8c5c5be10fe8"], +Cell[CellGroupData[{ +Cell[198373, 5027, 1297, 42, 47, "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], +Cell[199673, 5071, 172, 2, 33, "Output",ExpressionUUID->"fc480a82-aeb2-43be-ad42-a2337c070998"] }, Open ]], Cell[CellGroupData[{ -Cell[210473, 7280, 2249, 64, 70, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], -Cell[212725, 7346, 342, 6, 70, "Message",ExpressionUUID->"905b237c-0e51-ab4b-895d-05994c6f1d5f"], -Cell[213070, 7354, 342, 6, 70, "Message",ExpressionUUID->"7ad8c79e-9570-a44d-b593-07aa87056e21"], -Cell[213415, 7362, 100, 0, 70, "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +Cell[199882, 5078, 929, 30, 55, "Input",ExpressionUUID->"c16f367e-d189-2745-b3b8-a9b137c5e3b6"], +Cell[200814, 5110, 171, 2, 33, "Output",ExpressionUUID->"9b8eb911-b57c-462d-b8f2-c0d1f3e49228"] }, Open ]], Cell[CellGroupData[{ -Cell[213552, 7367, 2219, 64, 70, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], -Cell[215774, 7433, 342, 6, 70, "Message",ExpressionUUID->"c516c31a-74b4-f24d-a16a-678221cde87e"], -Cell[216119, 7441, 342, 6, 70, "Message",ExpressionUUID->"5c50b555-9ebe-f94d-801f-34634555f622"], -Cell[216464, 7449, 99, 0, 70, "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +Cell[201022, 5117, 904, 29, 55, "Input",ExpressionUUID->"b7d001ae-480c-4b41-8df9-8010347227f7"], +Cell[201929, 5148, 170, 2, 33, "Output",ExpressionUUID->"e6068595-8af7-4421-9fd3-5f0824ec4e48"] }, Open ]], Cell[CellGroupData[{ -Cell[216600, 7454, 2221, 64, 70, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], -Cell[218824, 7520, 342, 6, 70, "Message",ExpressionUUID->"7ca591cf-a5ce-ce41-8101-8edfca50e890"], -Cell[219169, 7528, 342, 6, 70, "Message",ExpressionUUID->"cbafd11a-4be0-b541-81e4-e62191ae7695"], -Cell[219514, 7536, 101, 0, 70, "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +Cell[202136, 5155, 554, 18, 51, "Input",ExpressionUUID->"d15e5e59-9ad8-e247-a132-b43b2736212a"], +Cell[202693, 5175, 167, 2, 33, "Output",ExpressionUUID->"162250d3-b81e-4dce-b595-22ab7625a544"] }, Open ]], Cell[CellGroupData[{ -Cell[219652, 7541, 215, 6, 70, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], -Cell[219870, 7549, 102, 0, 70, "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +Cell[202897, 5182, 647, 21, 51, "Input",ExpressionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], +Cell[203547, 5205, 166, 2, 33, "Output",ExpressionUUID->"7baf51cc-6a0a-4377-af49-0b6933d170a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203750, 5212, 166, 4, 55, "Input",ExpressionUUID->"906db7f6-73f3-8a4e-88a4-7c75445a4f32"], +Cell[203919, 5218, 167, 2, 33, "Output",ExpressionUUID->"671f15af-a1f0-4dd6-82bf-5de4dc68cf54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204123, 5225, 166, 4, 54, "Input",ExpressionUUID->"731b68b1-c44a-6c4a-a9f8-bc957ede9a68"], +Cell[204292, 5231, 168, 2, 33, "Output",ExpressionUUID->"ac7e1e67-0de9-4b93-bdd2-2ef7cecc74d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204497, 5238, 177, 4, 43, "Input",ExpressionUUID->"71af6813-eb8f-4944-8d03-7bcd77a7b4b4"], +Cell[204677, 5244, 167, 2, 33, "Output",ExpressionUUID->"67c47ff3-98ad-4351-8471-dac2aff96962"] +}, Open ]], +Cell[CellGroupData[{ +Cell[204881, 5251, 177, 4, 43, "Input",ExpressionUUID->"28815b73-08dc-e64f-8823-2a55ad6b8ca8"], +Cell[205061, 5257, 167, 2, 33, "Output",ExpressionUUID->"a90c27fe-4300-459e-a753-175a09d2265a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[205265, 5264, 6051, 184, 183, "Input",ExpressionUUID->"137e8d46-8eff-3c47-bf8f-1350d0b8a0bb"], +Cell[211319, 5450, 169, 2, 33, "Output",ExpressionUUID->"e724a7ee-4e49-471e-8567-62af6bba59d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211525, 5457, 364, 8, 41, "Input",ExpressionUUID->"65edd566-4493-2440-9c51-9fca28ce324b"], +Cell[211892, 5467, 166, 2, 33, "Output",ExpressionUUID->"a4907619-3e7a-47b6-a484-08e3e5fa5263"] +}, Open ]], +Cell[CellGroupData[{ +Cell[212095, 5474, 6118, 186, 183, "Input",ExpressionUUID->"d808e80b-1928-8046-afec-31463f4946cd"], +Cell[218216, 5662, 170, 2, 33, "Output",ExpressionUUID->"5743ccf6-8ae8-4b5f-8bd9-d984ea6a0f7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218423, 5669, 364, 8, 41, "Input",ExpressionUUID->"56b1717f-bc75-4047-98f0-7a0dede3f8a9"], +Cell[218790, 5679, 166, 2, 33, "Output",ExpressionUUID->"e9bcf065-623a-4d10-bc19-7f65909ee0ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[218993, 5686, 2659, 87, 107, "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-f74418e31aeb"], +Cell[221655, 5775, 168, 2, 33, "Output",ExpressionUUID->"f2727f6f-08cd-4494-983a-bedf74a4ae77"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221860, 5782, 2599, 84, 107, "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-91d5391478d5"], +Cell[224462, 5868, 165, 2, 33, "Output",ExpressionUUID->"ff52118a-c646-41f1-accf-9fa12d267e4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224664, 5875, 3708, 117, 160, "Input",ExpressionUUID->"bea639c9-f172-ef4e-9454-9d4e027f5fa2"], +Cell[228375, 5994, 169, 2, 33, "Output",ExpressionUUID->"346df0e2-c7c7-4430-b201-0f23736344e2"] +}, Open ]], +Cell[228559, 5999, 160, 3, 29, "Input",ExpressionUUID->"752e2dd5-bee6-2048-8697-fe84d79611fa"], +Cell[CellGroupData[{ +Cell[228744, 6006, 2073, 58, 99, "Input",ExpressionUUID->"f8b12d93-5bd9-8641-aa98-3d78ebb0f21b"], +Cell[230820, 6066, 580, 13, 40, "Message",ExpressionUUID->"fe629823-9309-425b-ae9d-0df360688c1b"], +Cell[231403, 6081, 581, 13, 40, "Message",ExpressionUUID->"afdac857-88f3-4ee8-9373-c885d6109313"], +Cell[231987, 6096, 586, 13, 40, "Message",ExpressionUUID->"b8c4e70d-b28e-4c13-8e83-0ca44014bdc6"], +Cell[232576, 6111, 468, 11, 26, "Message",ExpressionUUID->"8e17e384-c97c-4b9a-a2fe-f12ba92c92dc"], +Cell[233047, 6124, 168, 2, 33, "Output",ExpressionUUID->"e4961d13-457f-4dc9-9518-be74ef02586b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[233252, 6131, 2070, 58, 99, "Input",ExpressionUUID->"cbefe077-df46-c24c-b854-69741ca50d38"], +Cell[235325, 6191, 580, 13, 40, "Message",ExpressionUUID->"decdec1c-8a0b-427c-8bc5-c97c1268fa66"], +Cell[235908, 6206, 583, 13, 40, "Message",ExpressionUUID->"1711e79b-c75d-4d9f-b4b2-4182293adf93"], +Cell[236494, 6221, 586, 13, 40, "Message",ExpressionUUID->"27a4a110-9a2c-4667-8e1f-334d9f04c304"], +Cell[237083, 6236, 468, 11, 26, "Message",ExpressionUUID->"22c36a7d-8e5a-4dc9-8e69-96ef4bb43c53"], +Cell[237554, 6249, 166, 2, 33, "Output",ExpressionUUID->"51be1725-f8aa-4939-a45d-0915acd3e57c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[237757, 6256, 1957, 52, 70, "Input",ExpressionUUID->"b9a7e2d9-7e48-cb4c-89bc-12d8b19f0936"], +Cell[239717, 6310, 20426, 385, 236, "Output",ExpressionUUID->"df5517fd-0fbf-46fe-9776-12b07b7d7e14"] +}, Open ]], +Cell[CellGroupData[{ +Cell[260180, 6700, 2113, 59, 99, "Input",ExpressionUUID->"4b73592e-b155-8f42-b33d-562f8b3faecd"], +Cell[262296, 6761, 512, 12, 40, "Message",ExpressionUUID->"a76795bc-fc4e-4cfc-b1a2-02471e5907cb"], +Cell[262811, 6775, 515, 12, 40, "Message",ExpressionUUID->"add66837-86c8-4a78-9b41-3163dd3c941b"], +Cell[263329, 6789, 519, 12, 40, "Message",ExpressionUUID->"856907a1-f2b1-4eee-beed-2da6880e2155"], +Cell[263851, 6803, 469, 11, 26, "Message",ExpressionUUID->"e9a3f61e-8a93-4430-961b-7e5e7184b9cb"], +Cell[264323, 6816, 22894, 422, 232, "Output",ExpressionUUID->"cef2e608-3735-4761-a47f-4333ebb86a1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[287254, 7243, 2517, 70, 105, "Input",ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-5e6c7b4b5678"], +Cell[289774, 7315, 9492, 222, 239, "Output",ExpressionUUID->"97919401-86d9-409a-8117-6a78da9200ae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299303, 7542, 228, 4, 29, "Input",ExpressionUUID->"cd9a8165-891b-9245-aca1-3f60fcfd9a79"], +Cell[299534, 7548, 29278, 554, 232, "Output",ExpressionUUID->"55431e71-16e2-4f3c-9618-597ccbd0779d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328849, 8107, 234, 6, 47, "Input",ExpressionUUID->"c213919d-017d-a948-8e46-fe19384187c3"], +Cell[329086, 8115, 167, 2, 33, "Output",ExpressionUUID->"0024d7ae-18a5-46a7-9eab-6783372badf4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[329290, 8122, 1833, 52, 99, "Input",ExpressionUUID->"3764dfb4-9656-4349-b0a1-77ebd1a3e048"], +Cell[331126, 8176, 525, 12, 40, "Message",ExpressionUUID->"bd8be06a-7f71-48e6-ba01-6d2fa13e2b9b"], +Cell[331654, 8190, 524, 12, 40, "Message",ExpressionUUID->"e236f6fa-ba2a-4e8b-9fcf-c3b223baac74"], +Cell[332181, 8204, 526, 12, 40, "Message",ExpressionUUID->"4e712763-1eab-4987-9dcd-1bdb5b73ac09"], +Cell[332710, 8218, 471, 11, 26, "Message",ExpressionUUID->"e9ca3991-3bb9-4cd5-a3da-eabc98ff8d5b"], +Cell[333184, 8231, 24970, 458, 232, "Output",ExpressionUUID->"1e4dbdc7-be9f-4f40-8ac4-b0abcf279bb0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358191, 8694, 1616, 48, 71, "Input",ExpressionUUID->"7899a8a7-561e-a946-a6c9-870ef14ce01b"], +Cell[359810, 8744, 610, 13, 43, "Message",ExpressionUUID->"e54bee80-744b-4825-b67f-65c1448ef9f1"], +Cell[360423, 8759, 702, 15, 43, "Message",ExpressionUUID->"982290ba-219d-4aa9-aa75-549877ee598c"], +Cell[361128, 8776, 706, 15, 43, "Message",ExpressionUUID->"2a2abc06-779a-4898-a4b2-5d73557e9352"], +Cell[361837, 8793, 471, 11, 26, "Message",ExpressionUUID->"388636d4-1929-4464-9e8d-7d8a257e7db0"], +Cell[362311, 8806, 171, 3, 33, "Output",ExpressionUUID->"bf07d8c6-ce19-4a12-b4c7-c6f6bb9258d2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362519, 8814, 2270, 64, 64, "Input",ExpressionUUID->"6fd9b05c-8008-7b42-b1b4-8e83e9537fdc"], +Cell[364792, 8880, 583, 13, 26, "Message",ExpressionUUID->"c600277a-af8a-4a10-acaa-980efe76d09a"], +Cell[365378, 8895, 584, 13, 26, "Message",ExpressionUUID->"dce518c4-5162-4d1d-b751-3d5a249c0b3b"], +Cell[365965, 8910, 589, 13, 26, "Message",ExpressionUUID->"dadae8ae-edc7-44b4-a782-91cbcb67af49"], +Cell[366557, 8925, 471, 11, 26, "Message",ExpressionUUID->"b2a79e27-f69f-409f-b7fd-d2dd9a42eb18"], +Cell[367031, 8938, 171, 3, 33, "Output",ExpressionUUID->"f0bd8832-a7f4-4a6f-b41a-700e55f9c469"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367239, 8946, 2231, 63, 64, "Input",ExpressionUUID->"ccaee6a3-c390-0444-bf16-3471356a3614"], +Cell[369473, 9011, 583, 13, 26, "Message",ExpressionUUID->"42a1c502-f322-4343-becb-a06ed80f7202"], +Cell[370059, 9026, 584, 13, 26, "Message",ExpressionUUID->"095e90dd-cfaf-4324-8049-fde1fb8ab4e5"], +Cell[370646, 9041, 588, 13, 26, "Message",ExpressionUUID->"78e4cfc8-bece-4e48-8b61-392c2a3ea3a1"], +Cell[371237, 9056, 471, 11, 26, "Message",ExpressionUUID->"a8274c8e-4fb7-40b8-b4af-7cc0d622b75d"], +Cell[371711, 9069, 172, 3, 33, "Output",ExpressionUUID->"7df67037-ac95-4daf-a266-1e384b246b72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371920, 9077, 2233, 63, 64, "Input",ExpressionUUID->"ca0cc669-d7ba-5b4a-b58b-286954db37c5"], +Cell[374156, 9142, 583, 13, 26, "Message",ExpressionUUID->"abe77ecc-60c3-4bb9-847d-4e54b7410047"], +Cell[374742, 9157, 584, 13, 26, "Message",ExpressionUUID->"2894bf3e-4f56-47c8-bb3a-cba95048e79e"], +Cell[375329, 9172, 591, 13, 26, "Message",ExpressionUUID->"bde2bf10-ba2d-4d1f-8293-a63728fa2084"], +Cell[375923, 9187, 471, 11, 26, "Message",ExpressionUUID->"f28c7ab6-7089-4919-9179-691f9c7e912a"], +Cell[376397, 9200, 170, 3, 33, "Output",ExpressionUUID->"8afaaf2a-c600-41c1-aa71-0e52555b0f4b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376604, 9208, 238, 6, 46, "Input",ExpressionUUID->"7ec678fd-8398-414a-aeba-20e078d734cd"], +Cell[376845, 9216, 172, 3, 33, "Output",ExpressionUUID->"2de76758-7818-4e92-9bf5-c8b70c4a4a6b"] +}, Open ]], +Cell[377032, 9222, 273, 6, 29, "Input",ExpressionUUID->"ca329276-48d7-8943-8408-dd2997d3499c"], +Cell[CellGroupData[{ +Cell[377330, 9232, 558, 19, 51, "Input",ExpressionUUID->"681c316f-cd82-ae4b-824f-5eb2b3081f6d"], +Cell[377891, 9253, 172, 3, 33, "Output",ExpressionUUID->"56488310-10d3-490d-9acb-538a64b65977"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378100, 9261, 170, 5, 55, "Input",ExpressionUUID->"11e77a67-96b2-a645-89cd-559587f30b91"], +Cell[378273, 9268, 170, 3, 33, "Output",ExpressionUUID->"a9caffa3-53df-456f-be0e-bdb16b9997ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378480, 9276, 181, 5, 43, "Input",ExpressionUUID->"3c5f43e9-afc4-be40-8f37-0116656ecd38"], +Cell[378664, 9283, 171, 3, 33, "Output",ExpressionUUID->"4674e222-4f49-404c-8166-2d702cfb7fd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378872, 9291, 6055, 185, 183, "Input",ExpressionUUID->"f07a8476-d7bc-1049-82a6-7cf06f61e28f"], +Cell[384930, 9478, 176, 3, 33, "Output",ExpressionUUID->"57811768-0224-44df-b9a1-73fa391cb38c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385143, 9486, 368, 9, 41, "Input",ExpressionUUID->"b88b1a94-22d7-2843-88e3-f607b95c8af9"], +Cell[385514, 9497, 173, 3, 33, "Output",ExpressionUUID->"4ae4796e-c1dc-4218-81a0-63bff2721f32"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385724, 9505, 6122, 187, 183, "Input",ExpressionUUID->"9d771aab-c0b4-f24c-9b53-9472e00c4d82"], +Cell[391849, 9694, 174, 3, 33, "Output",ExpressionUUID->"88faa163-ff51-4ed6-84a8-f127f892b734"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392060, 9702, 368, 9, 41, "Input",ExpressionUUID->"47e2a8e8-6af3-374f-9eea-9c2b6faaaf4a"], +Cell[392431, 9713, 169, 3, 33, "Output",ExpressionUUID->"9756aebd-6101-46ab-8c22-277cde20193e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392637, 9721, 2663, 88, 107, "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-6b0985b9b3bc"], +Cell[395303, 9811, 172, 3, 33, "Output",ExpressionUUID->"935a3328-9c9d-4951-a902-336a1a812602"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395512, 9819, 2603, 85, 107, "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-4868d83e9702"], +Cell[398118, 9906, 169, 3, 33, "Output",ExpressionUUID->"53e33109-d96a-4396-84d8-e40bb4b1dac1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398324, 9914, 3712, 118, 160, "Input",ExpressionUUID->"5caf1614-7e5c-9940-98cd-9460e2c074b2"], +Cell[402039, 10034, 173, 3, 33, "Output",ExpressionUUID->"a53b1938-2a27-4428-8c78-dc73cc84c86a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[402249, 10042, 2075, 59, 99, "Input",ExpressionUUID->"db0784f6-51d0-fd44-b0e8-05d6af1a6e52"], +Cell[404327, 10103, 581, 13, 26, "Message",ExpressionUUID->"43aff6c2-1ec3-4afe-90e5-909e5955fd74"], +Cell[404911, 10118, 581, 13, 26, "Message",ExpressionUUID->"073da31e-8d26-4a2e-843d-99aa8e357eef"], +Cell[405495, 10133, 585, 13, 26, "Message",ExpressionUUID->"0585fdc3-9a47-46f9-a7c4-4e81b5a7eb5c"], +Cell[406083, 10148, 473, 11, 26, "Message",ExpressionUUID->"96f85d98-f9be-474f-ac14-7ee48c02b8d2"], +Cell[406559, 10161, 171, 3, 33, "Output",ExpressionUUID->"392ae60a-5c60-443c-a6a4-4100de3361f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[406767, 10169, 2077, 59, 99, "Input",ExpressionUUID->"7ca6aa7a-7318-6f41-95dc-f69c33a31448"], +Cell[408847, 10230, 579, 13, 26, "Message",ExpressionUUID->"45ebee31-dbe4-4e57-993d-19cb46fea762"], +Cell[409429, 10245, 582, 13, 26, "Message",ExpressionUUID->"c77cf42c-a87b-4fea-96cb-e24c0a5852e1"], +Cell[410014, 10260, 585, 13, 26, "Message",ExpressionUUID->"241b67f4-466e-43e5-94db-01c1968c6782"], +Cell[410602, 10275, 470, 11, 26, "Message",ExpressionUUID->"d8f4d6cf-59c6-4572-a9cf-4d3c8444c849"], +Cell[411075, 10288, 169, 3, 33, "Output",ExpressionUUID->"75590459-3239-44fd-a9bd-1c15a258429a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411281, 10296, 2053, 55, 53, "Input",ExpressionUUID->"611f92ea-b199-2643-9788-194fae57c34e"], +Cell[413337, 10353, 20325, 383, 236, "Output",ExpressionUUID->"1c4eaf69-0d15-4830-8fdd-082f1abb8ee3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[433699, 10741, 2141, 60, 99, "Input",ExpressionUUID->"f4c3d53a-1214-a145-beb0-494cdae35e56"], +Cell[435843, 10803, 516, 12, 40, "Message",ExpressionUUID->"c8611f2a-0531-4690-96a3-6382ec1c417b"], +Cell[436362, 10817, 518, 12, 40, "Message",ExpressionUUID->"13827ece-c377-454c-a9f5-87d047dbda54"], +Cell[436883, 10831, 520, 12, 40, "Message",ExpressionUUID->"737d473a-8b4e-4095-bf3b-ca708940bfe9"], +Cell[437406, 10845, 473, 11, 26, "Message",ExpressionUUID->"92da8ec8-de40-417e-bdc8-dbc3eb243789"], +Cell[437882, 10858, 23459, 432, 232, "Output",ExpressionUUID->"9ac8c08c-c832-4f21-9437-70509ca4d7b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461378, 11295, 232, 5, 29, "Input",ExpressionUUID->"2335a158-7588-4c40-bdb5-53b7ef04b97c"], +Cell[461613, 11302, 29843, 564, 232, "Output",ExpressionUUID->"cd077f9e-453c-427d-8777-ae5576bdaa20"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491493, 11871, 1616, 48, 71, "Input",ExpressionUUID->"01995149-3665-fe4e-b326-b20429031afd"], +Cell[493112, 11921, 703, 15, 43, "Message",ExpressionUUID->"6cac5023-b446-43de-8b7e-40e1674474a2"], +Cell[493818, 11938, 704, 15, 43, "Message",ExpressionUUID->"ef697ddd-4f4d-44c0-a4f1-2f3fb2534445"], +Cell[494525, 11955, 706, 15, 43, "Message",ExpressionUUID->"84045527-a3a4-4fc3-b85a-4c7ef0f29bd3"], +Cell[495234, 11972, 473, 11, 26, "Message",ExpressionUUID->"875c79c9-82cc-4b83-bcf8-813a05411c4c"], +Cell[495710, 11985, 171, 3, 33, "Output",ExpressionUUID->"3e90121a-3156-4fe8-a426-2532c96c8b8d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495918, 11993, 2274, 64, 64, "Input",ExpressionUUID->"11b1e372-f457-5a4d-bcee-062a3c04ed96"], +Cell[498195, 12059, 579, 13, 26, "Message",ExpressionUUID->"293ee980-50dc-427b-94c7-dc154d6858a9"], +Cell[498777, 12074, 582, 13, 26, "Message",ExpressionUUID->"a48e0b4c-070c-4060-b15d-f15cbd09f799"], +Cell[499362, 12089, 585, 13, 26, "Message",ExpressionUUID->"b5a761bc-a2be-4b62-8394-61b047a484ab"], +Cell[499950, 12104, 473, 11, 26, "Message",ExpressionUUID->"7d5382e8-c3b9-4773-ad10-30d8fb8f3592"], +Cell[500426, 12117, 171, 3, 33, "Output",ExpressionUUID->"dc4de957-5730-4b57-b809-7d06be46866c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[500634, 12125, 2232, 63, 64, "Input",ExpressionUUID->"8cb4e371-90a5-d347-adec-3382e7679ba8"], +Cell[502869, 12190, 579, 13, 26, "Message",ExpressionUUID->"e4f4e70d-058b-4a05-ae6b-4721681bed66"], +Cell[503451, 12205, 582, 13, 26, "Message",ExpressionUUID->"5b11d649-d8ca-4752-838e-368a7867daff"], +Cell[504036, 12220, 585, 13, 26, "Message",ExpressionUUID->"030e7499-6e0c-4231-b649-37c2c367f31f"], +Cell[504624, 12235, 473, 11, 26, "Message",ExpressionUUID->"d2c27c6d-de96-4985-af58-fc09793a3db4"], +Cell[505100, 12248, 172, 3, 33, "Output",ExpressionUUID->"17f82cfe-1d31-4ff7-85e4-908aaf79fa61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[505309, 12256, 2235, 63, 64, "Input",ExpressionUUID->"732b358a-c98a-0347-8b16-2462b23d6249"], +Cell[507547, 12321, 579, 13, 26, "Message",ExpressionUUID->"662bd77d-5be4-4cf4-a561-b629609fd606"], +Cell[508129, 12336, 582, 13, 26, "Message",ExpressionUUID->"54901a8f-cc80-4439-97f2-136b854b9b55"], +Cell[508714, 12351, 585, 13, 26, "Message",ExpressionUUID->"b085d053-c9d6-4fd6-9521-74d244a05c53"], +Cell[509302, 12366, 471, 11, 26, "Message",ExpressionUUID->"7152ba11-ae80-4e95-b2c7-1b00bbe74f5b"], +Cell[509776, 12379, 170, 3, 33, "Output",ExpressionUUID->"564b9393-8d2c-48b2-8283-853df8a3a161"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509983, 12387, 238, 6, 46, "Input",ExpressionUUID->"3d20548b-905d-0343-8df1-168ec8f367e1"], +Cell[510224, 12395, 172, 3, 33, "Output",ExpressionUUID->"f5dfb1f7-de07-42d5-b9ad-9f79671df8f9"] +}, Open ]], +Cell[510411, 12401, 273, 6, 29, "Input",ExpressionUUID->"ca34450b-ff3b-f34a-a2ed-e661a25a7ba1"], +Cell[CellGroupData[{ +Cell[510709, 12411, 558, 19, 51, "Input",ExpressionUUID->"601c24ee-3f7b-c74d-891b-10a6d009e34b"], +Cell[511270, 12432, 172, 3, 33, "Output",ExpressionUUID->"b5990166-c3b1-40e9-8f78-06680fc6461a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511479, 12440, 170, 5, 55, "Input",ExpressionUUID->"05949206-8ee0-5646-bb01-e9142212274d"], +Cell[511652, 12447, 170, 3, 33, "Output",ExpressionUUID->"256c766e-ecc7-424e-9c70-ca9fab591158"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511859, 12455, 181, 5, 43, "Input",ExpressionUUID->"25a02cc2-cb9a-bc4b-93f0-a7873f982a23"], +Cell[512043, 12462, 173, 3, 33, "Output",ExpressionUUID->"c88930b6-8909-4782-ba42-aa20a7bc65d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512253, 12470, 6055, 185, 183, "Input",ExpressionUUID->"df51ca6a-83a1-6340-b13c-0185de64c37f"], +Cell[518311, 12657, 175, 3, 33, "Output",ExpressionUUID->"ab70f505-69d8-4564-9761-a945e7e03493"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518523, 12665, 368, 9, 41, "Input",ExpressionUUID->"731f0e35-7798-8b45-a769-075ac4b3983f"], +Cell[518894, 12676, 173, 3, 33, "Output",ExpressionUUID->"1594f949-6c11-43ef-92b4-110305badb9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519104, 12684, 6122, 187, 183, "Input",ExpressionUUID->"413c8e7d-149c-5d4a-9ccb-23aebae2e6d5"], +Cell[525229, 12873, 172, 3, 33, "Output",ExpressionUUID->"549be1e4-f341-440f-9142-2143def3d4cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[525438, 12881, 368, 9, 41, "Input",ExpressionUUID->"e11d7eb8-00a8-f540-98a0-89164ac4bae9"], +Cell[525809, 12892, 170, 3, 33, "Output",ExpressionUUID->"7d50ac0e-9f6d-4d31-8b94-6f1d7dbb7747"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526016, 12900, 2663, 88, 107, "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-1ee89e798d8f"], +Cell[528682, 12990, 174, 3, 33, "Output",ExpressionUUID->"fa22a92f-48aa-4ca8-bb40-291d1fb2187a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528893, 12998, 2603, 85, 107, "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-f30d036fcdd2"], +Cell[531499, 13085, 169, 3, 33, "Output",ExpressionUUID->"defb8f53-9037-46b8-af1f-dbbc9c3789de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531705, 13093, 3712, 118, 160, "Input",ExpressionUUID->"46af1283-32d6-7240-acd2-307af56b44db"], +Cell[535420, 13213, 173, 3, 33, "Output",ExpressionUUID->"9ff9548f-9aba-4e72-8e81-419f83187f51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[535630, 13221, 2077, 59, 99, "Input",ExpressionUUID->"cd516020-ac7f-224d-b1ff-af0307420662"], +Cell[537710, 13282, 578, 13, 26, "Message",ExpressionUUID->"aa8c1c98-3a26-4420-8424-270f13b23855"], +Cell[538291, 13297, 583, 13, 26, "Message",ExpressionUUID->"24737e2f-9903-402a-8c8b-c8f496236bca"], +Cell[538877, 13312, 585, 13, 26, "Message",ExpressionUUID->"d5c91a2b-e0d6-4022-bc7d-639c7d424245"], +Cell[539465, 13327, 471, 11, 26, "Message",ExpressionUUID->"d0a1e86d-5e90-4f1a-8540-c107ca39c6b2"], +Cell[539939, 13340, 171, 3, 33, "Output",ExpressionUUID->"8129e512-383c-4748-83ce-9e609919c476"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540147, 13348, 2077, 59, 99, "Input",ExpressionUUID->"a9d0e817-a1c8-6546-a901-34313c6ec04d"], +Cell[542227, 13409, 578, 13, 26, "Message",ExpressionUUID->"bd433309-9459-43d7-8a20-d41f644fada0"], +Cell[542808, 13424, 583, 13, 26, "Message",ExpressionUUID->"b0a885f0-9ff3-4615-8bf1-754e1e351cfe"], +Cell[543394, 13439, 587, 13, 26, "Message",ExpressionUUID->"e20a3c31-e45b-4264-b876-8286bdf2f188"], +Cell[543984, 13454, 473, 11, 26, "Message",ExpressionUUID->"8b31624e-9214-4fc9-b6e4-5db9bed6b64d"], +Cell[544460, 13467, 170, 3, 33, "Output",ExpressionUUID->"22534933-e950-4e45-ab72-da4e03c7b35c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[544667, 13475, 2053, 55, 53, "Input",ExpressionUUID->"f68960b0-cff6-3245-b906-ad38cf07d634"], +Cell[546723, 13532, 20044, 380, 236, "Output",ExpressionUUID->"95360c2d-f87f-430f-b21c-38ec526fdd0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566804, 13917, 2165, 61, 99, "Input",ExpressionUUID->"d43bf17b-b492-0e4a-af4a-6a3bc399953c"], +Cell[568972, 13980, 515, 12, 40, "Message",ExpressionUUID->"f451d889-ffd2-48a7-9b14-f43b111470fe"], +Cell[569490, 13994, 521, 12, 40, "Message",ExpressionUUID->"4ac0f7bb-391f-4b38-ad26-2ca84108466b"], +Cell[570014, 14008, 521, 12, 40, "Message",ExpressionUUID->"cf983703-a61d-4673-9445-aabf8b517b56"], +Cell[570538, 14022, 471, 11, 26, "Message",ExpressionUUID->"cf5dc2e3-6edd-4aae-8bb8-2b270852a2af"], +Cell[571012, 14035, 23936, 441, 232, "Output",ExpressionUUID->"9a2f2f38-56b5-4a82-b52c-fa468e48de79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[594985, 14481, 164, 4, 29, "Input",ExpressionUUID->"4ad58a38-0776-5240-aa41-ba7c8ff64fb9"], +Cell[595152, 14487, 30322, 573, 232, "Output",ExpressionUUID->"323984b9-205a-4d9d-a66d-180e9221f5e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[625511, 15065, 1616, 48, 71, "Input",ExpressionUUID->"3edaf53b-bb09-6646-b79e-9350413e0b42"], +Cell[627130, 15115, 703, 15, 43, "Message",ExpressionUUID->"ceafaf3d-6d7d-4b31-9e7e-34ad3fc2842e"], +Cell[627836, 15132, 704, 15, 43, "Message",ExpressionUUID->"817f17c1-a0a1-4527-878d-d3d30338e565"], +Cell[628543, 15149, 704, 15, 43, "Message",ExpressionUUID->"b24a0822-c201-4a72-b71c-1002cc0aabc9"], +Cell[629250, 15166, 471, 11, 26, "Message",ExpressionUUID->"e41a62ea-069c-46b3-9a48-f0ac1ec86cfd"], +Cell[629724, 15179, 171, 3, 33, "Output",ExpressionUUID->"99676e87-7109-4975-b1cf-0f7af005d266"] +}, Open ]], +Cell[CellGroupData[{ +Cell[629932, 15187, 2272, 64, 64, "Input",ExpressionUUID->"d2148290-3e90-8347-bddd-5dd8190b0268"], +Cell[632207, 15253, 578, 13, 26, "Message",ExpressionUUID->"40ffc391-bcd3-40ab-a0ed-a15a3cc1425a"], +Cell[632788, 15268, 583, 13, 26, "Message",ExpressionUUID->"012728f6-4e12-4022-8682-ff25a8db931e"], +Cell[633374, 15283, 587, 13, 26, "Message",ExpressionUUID->"3e9716d0-00e5-4272-bdd5-eff0d75d18b1"], +Cell[633964, 15298, 471, 11, 26, "Message",ExpressionUUID->"0fbe2b41-0bb9-44ec-8805-532917774a16"], +Cell[634438, 15311, 170, 3, 33, "Output",ExpressionUUID->"405ba989-f6ff-414e-8bfe-43640c06041a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[634645, 15319, 2231, 63, 64, "Input",ExpressionUUID->"3cdd2064-36e7-b44d-bb0f-98d71f8a8458"], +Cell[636879, 15384, 580, 13, 26, "Message",ExpressionUUID->"88a2564d-7dcb-4312-bae5-f464fd66cfa0"], +Cell[637462, 15399, 583, 13, 26, "Message",ExpressionUUID->"388d16da-d882-4013-93d3-caec5766a6b5"], +Cell[638048, 15414, 585, 13, 26, "Message",ExpressionUUID->"e3e9d4d0-dce0-44b9-ab19-47d40994b669"], +Cell[638636, 15429, 473, 11, 26, "Message",ExpressionUUID->"58882fb8-ca87-4252-a146-699f4289b53d"], +Cell[639112, 15442, 171, 3, 33, "Output",ExpressionUUID->"da1c583d-8e17-4ee4-a5ec-6c048c9bfc03"] +}, Open ]], +Cell[CellGroupData[{ +Cell[639320, 15450, 2233, 63, 64, "Input",ExpressionUUID->"c1d3ae3d-f5ac-b04d-af0f-57c1fe1d0585"], +Cell[641556, 15515, 578, 13, 40, "Message",ExpressionUUID->"a0be7877-7a8f-483b-9ba1-4199988b18bb"], +Cell[642137, 15530, 583, 13, 40, "Message",ExpressionUUID->"bdd482c9-498f-4faf-a6d2-ab8b2a3f7d6c"], +Cell[642723, 15545, 585, 13, 40, "Message",ExpressionUUID->"0d302e9e-7402-40e0-a1ca-3fb32b3658bf"], +Cell[643311, 15560, 471, 11, 26, "Message",ExpressionUUID->"871f107c-92f2-460a-8a42-c225bec170fa"], +Cell[643785, 15573, 170, 3, 33, "Output",ExpressionUUID->"ed574ba6-3502-41ac-9451-a433004656a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[643992, 15581, 238, 6, 46, "Input",ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-1ca469b254bd"], +Cell[644233, 15589, 174, 3, 33, "Output",ExpressionUUID->"4ff3b4b8-229b-4ebb-8ba1-04d892a5f072"] }, Open ]] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb index 5a30b85..db0e055 100755 --- a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 620640, 15002] -NotebookOptionsPosition[ 578131, 14320] -NotebookOutlinePosition[ 578913, 14347] -CellTagsIndexPosition[ 578833, 14342] +NotebookDataLength[ 723226, 16950] +NotebookOptionsPosition[ 680079, 16255] +NotebookOutlinePosition[ 680891, 16283] +CellTagsIndexPosition[ 680811, 16278] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -35,8 +35,7 @@ Cell[BoxData[ 3.99379588501084*^9}, {3.993797995002406*^9, 3.993797995597159*^9}, { 3.993798072981077*^9, 3.993798075654434*^9}, {3.9937986726317673`*^9, 3.9937987633828897`*^9}}, - CellLabel-> - "In[767]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], + CellLabel->"In[1]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], Cell[BoxData["2"], "Output", CellChangeTimes->{{3.99312071481172*^9, 3.993120733996957*^9}, @@ -47,9 +46,8 @@ Cell[BoxData["2"], "Output", 3.993795020572113*^9, 3.993795700216778*^9, {3.993798060729582*^9, 3.9937980859991283`*^9}, 3.993798620911396*^9, {3.993798685866233*^9, 3.993798702104156*^9}, {3.993798732179296*^9, 3.993798771847027*^9}, - 3.993798841155717*^9}, - CellLabel-> - "Out[767]=",ExpressionUUID->"147b6933-c62b-4156-b7a4-aaf0065eb2c3"] + 3.993798841155717*^9, 3.993826323633601*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"acb8d615-2d32-45be-90b2-ccadfcb2920d"] }, Open ]], Cell[CellGroupData[{ @@ -58,8 +56,7 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.9921791748924236`*^9, 3.992179175479521*^9}}, - CellLabel-> - "In[768]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + CellLabel->"In[2]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], Cell[BoxData["240"], "Output", CellChangeTimes->{ @@ -72,9 +69,8 @@ Cell[BoxData["240"], "Output", 3.993795020616522*^9, 3.9937957002531433`*^9, {3.993798060980855*^9, 3.993798086090968*^9}, 3.993798620962517*^9, {3.9937986859055767`*^9, 3.9937987021446333`*^9}, {3.993798732231279*^9, 3.9937987718889723`*^9}, - 3.9937988412297173`*^9}, - CellLabel-> - "Out[768]=",ExpressionUUID->"7ccf4373-6e61-42d7-8b75-d08cb074934f"] + 3.9937988412297173`*^9, 3.993826323709978*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"11f63d43-d7d3-4af1-a8c3-5802e2ed73fd"] }, Open ]], Cell[CellGroupData[{ @@ -83,8 +79,7 @@ Cell[BoxData[ RowBox[{"A1", "=", " ", "174"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.992179210458246*^9, 3.9921792125496464`*^9}}, - CellLabel-> - "In[769]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + CellLabel->"In[3]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], Cell[BoxData["174"], "Output", CellChangeTimes->{ @@ -96,9 +91,9 @@ Cell[BoxData["174"], "Output", 3.9937948729071608`*^9, 3.993794932627572*^9, 3.993795020633936*^9, 3.9937957002717133`*^9, {3.993798060996162*^9, 3.993798086109489*^9}, 3.993798620980781*^9, {3.993798685922394*^9, 3.993798702162208*^9}, { - 3.993798732253098*^9, 3.993798771906349*^9}, 3.9937988412487297`*^9}, - CellLabel-> - "Out[769]=",ExpressionUUID->"05fb1dbb-e208-44fe-bffd-88c4d5dd5146"] + 3.993798732253098*^9, 3.993798771906349*^9}, 3.9937988412487297`*^9, + 3.993826323750927*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"dd7952fe-0471-445a-ba61-beecab1af315"] }, Open ]], Cell[CellGroupData[{ @@ -106,8 +101,7 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[770]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ @@ -119,9 +113,9 @@ Cell[BoxData["0.55`"], "Output", 3.993794872911087*^9, 3.993794932645258*^9, 3.993795020650996*^9, 3.993795700288512*^9, {3.9937980610115337`*^9, 3.993798086127802*^9}, 3.993798620998911*^9, {3.993798685939197*^9, 3.993798702179904*^9}, { - 3.993798732271491*^9, 3.9937987719238787`*^9}, 3.993798841267548*^9}, - CellLabel-> - "Out[770]=",ExpressionUUID->"f86b44bb-314c-49ec-9c41-05e52497d85d"] + 3.993798732271491*^9, 3.9937987719238787`*^9}, 3.993798841267548*^9, + 3.993826323791727*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"29965db2-02ca-4f11-8af3-5712ba3d4e76"] }, Open ]], Cell[CellGroupData[{ @@ -133,8 +127,7 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[771]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], Cell[BoxData["0.54325`"], "Output", CellChangeTimes->{ @@ -146,17 +139,16 @@ Cell[BoxData["0.54325`"], "Output", 3.993794872939663*^9, 3.993794932661824*^9, 3.993795020668054*^9, 3.9937957003043747`*^9, {3.993798061026519*^9, 3.993798086144475*^9}, 3.993798621017126*^9, {3.993798685956204*^9, 3.993798702197459*^9}, { - 3.9937987322775173`*^9, 3.99379877194127*^9}, 3.993798841270944*^9}, - CellLabel-> - "Out[771]=",ExpressionUUID->"8e250f63-677e-41a0-8eca-b4045d96f3b9"] + 3.9937987322775173`*^9, 3.99379877194127*^9}, 3.993798841270944*^9, + 3.993826323836926*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"aef1f94e-d0c3-4dc7-bd50-6538744abd69"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[772]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ @@ -168,9 +160,9 @@ Cell[BoxData["0.17`"], "Output", 3.9937948729435797`*^9, 3.993794932678007*^9, 3.9937950206852093`*^9, 3.993795700320052*^9, {3.99379806104138*^9, 3.9937980861621857`*^9}, 3.993798621035027*^9, {3.9937986859595623`*^9, 3.993798702215567*^9}, { - 3.99379873231223*^9, 3.993798771959084*^9}, 3.993798841303673*^9}, - CellLabel-> - "Out[772]=",ExpressionUUID->"12d6d264-3c55-44a7-ace3-e7ef0190937a"] + 3.99379873231223*^9, 3.993798771959084*^9}, 3.993798841303673*^9, + 3.9938263238686934`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"5c5e5166-12fb-4064-8050-e351c6399bef"] }, Open ]], Cell[CellGroupData[{ @@ -181,8 +173,7 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[773]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], + CellLabel->"In[7]:=",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], Cell[BoxData["6.4760133991237705`"], "Output", CellChangeTimes->{ @@ -194,9 +185,9 @@ Cell[BoxData["6.4760133991237705`"], "Output", 3.993794872971607*^9, 3.993794932694338*^9, 3.993795020702243*^9, 3.993795700335631*^9, {3.993798061056366*^9, 3.993798086179875*^9}, 3.993798621052681*^9, {3.993798685989624*^9, 3.9937987022191057`*^9}, { - 3.9937987323332977`*^9, 3.993798771976695*^9}, 3.993798841321019*^9}, - CellLabel-> - "Out[773]=",ExpressionUUID->"866dacc4-63b8-4232-9d9d-2d7ee3a82d6b"] + 3.9937987323332977`*^9, 3.993798771976695*^9}, 3.993798841321019*^9, + 3.993826323913875*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"0ab4e373-b97a-4c98-af12-978d048ecece"] }, Open ]], Cell[CellGroupData[{ @@ -208,8 +199,7 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel-> - "In[774]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], Cell[BoxData["4.6878384239217405`"], "Output", CellChangeTimes->{ @@ -221,9 +211,9 @@ Cell[BoxData["4.6878384239217405`"], "Output", 3.993794872986589*^9, 3.993794932710455*^9, 3.9937950207060347`*^9, 3.993795700352378*^9, {3.99379806107127*^9, 3.993798086197353*^9}, 3.993798621070546*^9, {3.99379868600655*^9, 3.9937987022494173`*^9}, { - 3.993798732353589*^9, 3.993798771994101*^9}, 3.993798841339295*^9}, - CellLabel-> - "Out[774]=",ExpressionUUID->"8dba1b1c-bcfd-4780-8440-feb83bb8e2de"] + 3.993798732353589*^9, 3.993798771994101*^9}, 3.993798841339295*^9, + 3.993826323920988*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"00026760-acd6-4467-90e4-a92a2fc2b22e"] }, Open ]], Cell[CellGroupData[{ @@ -232,8 +222,7 @@ Cell[BoxData[ RowBox[{"b1", "=", " ", "0.787635594208527"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.992179227142147*^9, 3.9921792274418793`*^9}}, - CellLabel-> - "In[775]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + CellLabel->"In[9]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], Cell[BoxData["0.787635594208527`"], "Output", CellChangeTimes->{ @@ -245,9 +234,9 @@ Cell[BoxData["0.787635594208527`"], "Output", 3.993794873001521*^9, 3.993794932725163*^9, 3.9937950207328367`*^9, 3.9937957003705683`*^9, {3.99379806108606*^9, 3.99379808621487*^9}, 3.993798621073843*^9, {3.993798686025004*^9, 3.993798702266568*^9}, { - 3.993798732371293*^9, 3.993798772012259*^9}, 3.9937988413578167`*^9}, - CellLabel-> - "Out[775]=",ExpressionUUID->"d60a8c01-f35d-4eb4-8c37-4a76de517a45"] + 3.993798732371293*^9, 3.993798772012259*^9}, 3.9937988413578167`*^9, + 3.993826323979766*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"590dc27a-e576-4720-88ab-5f80d7cd78d2"] }, Open ]], Cell[CellGroupData[{ @@ -256,8 +245,7 @@ Cell[BoxData[ RowBox[{"b2", "=", " ", "0.446333511300556"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.9921792384900284`*^9, 3.9921792388312874`*^9}}, - CellLabel-> - "In[776]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + CellLabel->"In[10]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[BoxData["0.446333511300556`"], "Output", CellChangeTimes->{ @@ -269,17 +257,16 @@ Cell[BoxData["0.446333511300556`"], "Output", 3.993794873016811*^9, 3.9937949327398663`*^9, 3.9937950207484293`*^9, 3.993795700374606*^9, {3.993798061100806*^9, 3.993798086234116*^9}, 3.9937986211039343`*^9, {3.993798686042634*^9, 3.9937987022838173`*^9}, { - 3.993798732389052*^9, 3.993798772029704*^9}, 3.9937988413765182`*^9}, - CellLabel-> - "Out[776]=",ExpressionUUID->"1fcdaa3a-8f1d-4b29-819d-05d48586f5a7"] + 3.993798732389052*^9, 3.993798772029704*^9}, 3.9937988413765182`*^9, + 3.993826324014558*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"6bc4e8b5-97ec-4456-955e-11d80fc81846"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel-> - "In[777]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], Cell[BoxData["0"], "Output", CellChangeTimes->{ @@ -291,17 +278,16 @@ Cell[BoxData["0"], "Output", 3.993794873031765*^9, 3.9937949327545233`*^9, 3.9937950207643023`*^9, 3.993795700402536*^9, {3.9937980611153727`*^9, 3.993798086253433*^9}, 3.993798621121111*^9, {3.9937986860595303`*^9, 3.9937987023011208`*^9}, { - 3.993798732406805*^9, 3.993798772047222*^9}, 3.993798841393628*^9}, - CellLabel-> - "Out[777]=",ExpressionUUID->"f226542e-de3b-49a8-8803-336b5dde8f71"] + 3.993798732406805*^9, 3.993798772047222*^9}, 3.993798841393628*^9, + 3.993826324055855*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"61169ee3-45e4-4b1a-b8fc-06753c39cdb0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel-> - "In[778]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], Cell[BoxData["0"], "Output", CellChangeTimes->{ @@ -313,9 +299,9 @@ Cell[BoxData["0"], "Output", 3.99379487304661*^9, 3.99379493276891*^9, 3.993795020779561*^9, 3.993795700419928*^9, {3.9937980611298313`*^9, 3.9937980862710447`*^9}, 3.9937986211378717`*^9, {3.993798686076598*^9, 3.993798702320932*^9}, { - 3.993798732424757*^9, 3.9937987720647*^9}, 3.9937988414105453`*^9}, - CellLabel-> - "Out[778]=",ExpressionUUID->"56d03cda-7150-4518-b531-2f75deea4b8d"] + 3.993798732424757*^9, 3.9937987720647*^9}, 3.9937988414105453`*^9, + 3.993826324093927*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"cb59c3ce-8808-4be4-82ef-04f1f271af26"] }, Open ]], Cell[CellGroupData[{ @@ -339,8 +325,7 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[779]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], Cell[BoxData["2.061265729478835`"], "Output", CellChangeTimes->{ @@ -352,9 +337,9 @@ Cell[BoxData["2.061265729478835`"], "Output", 3.9937948730615873`*^9, 3.993794932784338*^9, 3.9937950207950583`*^9, 3.9937957004358597`*^9, {3.993798061144067*^9, 3.993798086288992*^9}, 3.993798621155683*^9, {3.993798686094529*^9, 3.9937987023409777`*^9}, { - 3.993798732442604*^9, 3.993798772082213*^9}, 3.993798841427685*^9}, - CellLabel-> - "Out[779]=",ExpressionUUID->"1c38103b-b289-4cbc-85c9-74f3a52e940d"] + 3.993798732442604*^9, 3.993798772082213*^9}, 3.993798841427685*^9, + 3.993826324137249*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"47298fc9-5dac-45f5-90d2-398943f2f34f"] }, Open ]], Cell[CellGroupData[{ @@ -378,8 +363,7 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel-> - "In[780]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], Cell[BoxData["1.500736140386642`"], "Output", CellChangeTimes->{ @@ -391,9 +375,9 @@ Cell[BoxData["1.500736140386642`"], "Output", 3.993794873076414*^9, 3.993794932798293*^9, 3.9937950208104677`*^9, 3.993795700450973*^9, {3.9937980611572104`*^9, 3.9937980862925577`*^9}, 3.9937986211725187`*^9, {3.993798686111991*^9, 3.993798702358638*^9}, { - 3.993798732460044*^9, 3.993798772099781*^9}, 3.993798841444951*^9}, - CellLabel-> - "Out[780]=",ExpressionUUID->"c1a7b5f5-d927-40f8-b54c-92c6625d4836"] + 3.993798732460044*^9, 3.993798772099781*^9}, 3.993798841444951*^9, + 3.993826324175041*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"16a54adc-212a-40b3-9f79-806b16bd3631"] }, Open ]], Cell[CellGroupData[{ @@ -446,8 +430,7 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel-> - "In[781]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + CellLabel->"In[15]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], Cell[BoxData["0.4819667641075124`"], "Output", CellChangeTimes->{ @@ -459,9 +442,9 @@ Cell[BoxData["0.4819667641075124`"], "Output", 3.993794873091277*^9, 3.993794932811591*^9, 3.9937950208258333`*^9, 3.993795700466288*^9, {3.9937980611706753`*^9, 3.993798086324789*^9}, 3.993798621190061*^9, {3.9937986861293097`*^9, 3.993798702376257*^9}, { - 3.993798732477643*^9, 3.9937987721172333`*^9}, 3.993798841462565*^9}, - CellLabel-> - "Out[781]=",ExpressionUUID->"ebb0b8e6-1245-4773-b6b7-7e1531d23d62"] + 3.993798732477643*^9, 3.9937987721172333`*^9}, 3.993798841462565*^9, + 3.993826324221839*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"8685d217-f9ad-4aff-ad03-69fba9a39608"] }, Open ]], Cell[CellGroupData[{ @@ -510,8 +493,7 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[782]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + CellLabel->"In[16]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], Cell[BoxData[ RowBox[{"-", "0.11350137337476086`"}]], "Output", @@ -524,9 +506,9 @@ Cell[BoxData[ 3.99379487310629*^9, 3.993794932825947*^9, 3.99379502084134*^9, 3.993795700481373*^9, {3.993798061184978*^9, 3.993798086343355*^9}, 3.993798621207243*^9, {3.993798686146491*^9, 3.9937987023940983`*^9}, { - 3.993798732495412*^9, 3.993798772134856*^9}, 3.9937988414801483`*^9}, - CellLabel-> - "Out[782]=",ExpressionUUID->"ebe10f5f-d031-4b9c-b183-57ca3342c78c"] + 3.993798732495412*^9, 3.993798772134856*^9}, 3.9937988414801483`*^9, + 3.993826324264237*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"0530d5b9-b067-47c1-8d8f-3efa49f48563"] }, Open ]], Cell[CellGroupData[{ @@ -575,8 +557,7 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel-> - "In[783]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + CellLabel->"In[17]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], Cell[BoxData[ RowBox[{"-", "0.4652269449262844`"}]], "Output", @@ -589,9 +570,9 @@ Cell[BoxData[ 3.993794873122693*^9, 3.9937949328399553`*^9, 3.99379502085678*^9, 3.9937957004976053`*^9, {3.993798061200165*^9, 3.993798086361764*^9}, 3.993798621224462*^9, {3.993798686163246*^9, 3.9937987024116*^9}, { - 3.993798732513069*^9, 3.993798772152532*^9}, 3.993798841497816*^9}, - CellLabel-> - "Out[783]=",ExpressionUUID->"bcd5a811-4568-4281-8cf1-b16f7d074bc7"] + 3.993798732513069*^9, 3.993798772152532*^9}, 3.993798841497816*^9, + 3.993826324306542*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"02041163-1403-4f35-8c6f-e2cd605bb88b"] }, Open ]], Cell[CellGroupData[{ @@ -644,8 +625,7 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel-> - "In[784]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + CellLabel->"In[18]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], Cell[BoxData["0.6581300944010081`"], "Output", CellChangeTimes->{ @@ -657,17 +637,16 @@ Cell[BoxData["0.6581300944010081`"], "Output", 3.9937948731392937`*^9, 3.99379493285434*^9, 3.993795020872367*^9, 3.9937957005140743`*^9, {3.993798061214583*^9, 3.993798086379448*^9}, 3.993798621241591*^9, {3.993798686180276*^9, 3.9937987024287663`*^9}, { - 3.993798732530777*^9, 3.993798772170006*^9}, 3.993798841515443*^9}, - CellLabel-> - "Out[784]=",ExpressionUUID->"e71c5077-7203-43ae-b0ff-967382c9d525"] + 3.993798732530777*^9, 3.993798772170006*^9}, 3.993798841515443*^9, + 3.993826324340582*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"a32e28e5-96cc-4013-a5e7-baccd4467cb9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel-> - "In[785]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + CellLabel->"In[19]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], Cell[BoxData["300"], "Output", CellChangeTimes->{ @@ -679,17 +658,16 @@ Cell[BoxData["300"], "Output", 3.993794873155264*^9, 3.993794932857842*^9, 3.993795020887725*^9, 3.993795700529841*^9, {3.9937980612297993`*^9, 3.993798086396819*^9}, 3.993798621258458*^9, {3.993798686197248*^9, 3.993798702448009*^9}, { - 3.993798732548608*^9, 3.993798772187413*^9}, 3.9937988415326147`*^9}, - CellLabel-> - "Out[785]=",ExpressionUUID->"d7217afb-669c-406f-af63-3db0e718374f"] + 3.993798732548608*^9, 3.993798772187413*^9}, 3.9937988415326147`*^9, + 3.993826324385623*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"5a756a67-0474-4e61-b1cd-086bff401e2a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel-> - "In[786]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + CellLabel->"In[20]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ @@ -701,17 +679,16 @@ Cell[BoxData["0.09`"], "Output", 3.993794873170282*^9, 3.9937949328736258`*^9, 3.993795020903088*^9, 3.993795700545506*^9, {3.993798061244912*^9, 3.993798086414193*^9}, 3.9937986212753973`*^9, {3.9937986862144623`*^9, 3.993798702465192*^9}, { - 3.993798732566139*^9, 3.993798772204845*^9}, 3.993798841551992*^9}, - CellLabel-> - "Out[786]=",ExpressionUUID->"3d138742-68b9-421b-8fc2-da8e240b45bc"] + 3.993798732566139*^9, 3.993798772204845*^9}, 3.993798841551992*^9, + 3.993826324428557*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"ccfae6d3-b756-496c-8998-1289fb4c0e5b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel-> - "In[787]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + CellLabel->"In[21]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ @@ -723,9 +700,9 @@ Cell[BoxData["0.42`"], "Output", 3.9937948731855288`*^9, 3.9937949328878603`*^9, 3.99379502090658*^9, 3.9937957005606337`*^9, {3.993798061259197*^9, 3.993798086431823*^9}, 3.9937986212922*^9, {3.9937986862313128`*^9, 3.993798702482245*^9}, { - 3.993798732584234*^9, 3.993798772222371*^9}, 3.993798841570882*^9}, - CellLabel-> - "Out[787]=",ExpressionUUID->"0c3d7d0d-c02f-4787-b4dc-c21bd9b79ab5"] + 3.993798732584234*^9, 3.993798772222371*^9}, 3.993798841570882*^9, + 3.993826324463718*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"1648507c-09c6-45d1-b87b-4e9628519ce8"] }, Open ]], Cell[CellGroupData[{ @@ -734,8 +711,7 @@ Cell[BoxData[ RowBox[{"fex", "=", RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, - CellLabel-> - "In[788]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], + CellLabel->"In[22]:=",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", @@ -748,17 +724,16 @@ Cell[BoxData[ 3.993794873202032*^9, 3.9937949329018373`*^9, 3.99379502093326*^9, 3.993795700575653*^9, {3.9937980612735853`*^9, 3.993798086449173*^9}, 3.9937986213093357`*^9, {3.993798686248622*^9, 3.9937987024989157`*^9}, { - 3.99379873260214*^9, 3.9937987722398577`*^9}, 3.9937988415899754`*^9}, - CellLabel-> - "Out[788]=",ExpressionUUID->"68305102-390f-444f-864a-7b79898d4194"] + 3.99379873260214*^9, 3.9937987722398577`*^9}, 3.9937988415899754`*^9, + 3.9938263244966373`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"87619020-7528-45ff-a9d0-862bbc0ab126"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel-> - "In[789]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + CellLabel->"In[23]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ @@ -770,9 +745,9 @@ Cell[BoxData["0.54`"], "Output", 3.993794873219458*^9, 3.993794932905304*^9, 3.9937950209487667`*^9, 3.993795700590906*^9, {3.993798061289504*^9, 3.993798086466404*^9}, 3.993798621326445*^9, {3.993798686265643*^9, 3.993798702517417*^9}, { - 3.993798732619825*^9, 3.993798772257511*^9}, 3.993798841607325*^9}, - CellLabel-> - "Out[789]=",ExpressionUUID->"c8bc2dc3-61e6-4bbe-8666-b00624193723"] + 3.993798732619825*^9, 3.993798772257511*^9}, 3.993798841607325*^9, + 3.9938263245330763`*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"b0b63fb9-51ed-45d4-8db0-bcfc0c9bb712"] }, Open ]], Cell[CellGroupData[{ @@ -782,8 +757,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.992179334842106*^9, 3.992179335687786*^9}}, - CellLabel-> - "In[790]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + CellLabel->"In[24]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], Cell[BoxData["64"], "Output", CellChangeTimes->{ @@ -795,9 +769,9 @@ Cell[BoxData["64"], "Output", 3.99379487323498*^9, 3.993794932933638*^9, 3.993795020964237*^9, 3.993795700605435*^9, {3.993798061304089*^9, 3.9937980864835987`*^9}, 3.993798621343388*^9, {3.993798686282789*^9, 3.9937987025357513`*^9}, { - 3.993798732637539*^9, 3.993798772274995*^9}, 3.993798841624874*^9}, - CellLabel-> - "Out[790]=",ExpressionUUID->"508ac096-4167-40f9-a4c6-3c88da5cbde0"] + 3.993798732637539*^9, 3.993798772274995*^9}, 3.993798841624874*^9, + 3.993826324563085*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"5728bd92-9897-4b41-9201-e82cbc85a06f"] }, Open ]], Cell[CellGroupData[{ @@ -807,8 +781,7 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9921793256443367`*^9, 3.992179330522312*^9}}, - CellLabel-> - "In[791]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + CellLabel->"In[25]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], Cell[BoxData["30"], "Output", CellChangeTimes->{ @@ -821,9 +794,8 @@ Cell[BoxData["30"], "Output", 3.993795020979795*^9, 3.993795700621004*^9, {3.993798061321505*^9, 3.9937980865007887`*^9}, 3.993798621360662*^9, {3.993798686299972*^9, 3.9937987025529623`*^9}, {3.993798732655143*^9, 3.9937987722925177`*^9}, - 3.9937988416416607`*^9}, - CellLabel-> - "Out[791]=",ExpressionUUID->"02bd96a1-db31-4fc6-8ed1-1d3d3a220fc3"] + 3.9937988416416607`*^9, 3.993826324592037*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"6958804d-97e1-4015-8d67-eac1719d075b"] }, Open ]], Cell[CellGroupData[{ @@ -832,8 +804,7 @@ Cell[BoxData[ RowBox[{"A2", "=", RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, - CellLabel-> - "In[792]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + CellLabel->"In[26]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], Cell[BoxData["66"], "Output", CellChangeTimes->{ @@ -845,9 +816,9 @@ Cell[BoxData["66"], "Output", 3.993794873266762*^9, 3.9937949329650517`*^9, 3.993795020995246*^9, 3.993795700637072*^9, {3.99379806133776*^9, 3.993798086517845*^9}, 3.9937986213777857`*^9, {3.993798686317053*^9, 3.993798702570177*^9}, { - 3.9937987326728888`*^9, 3.9937987723097982`*^9}, 3.9937988416583548`*^9}, - CellLabel-> - "Out[792]=",ExpressionUUID->"ca546511-7731-4a8b-ae23-4446401e97fe"] + 3.9937987326728888`*^9, 3.9937987723097982`*^9}, 3.9937988416583548`*^9, + 3.9938263246269617`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"ea3c89b8-c589-4905-8990-d325646cde72"] }, Open ]], Cell[CellGroupData[{ @@ -862,8 +833,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[793]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + CellLabel->"In[27]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], Cell[BoxData["0.10009404388714734`"], "Output", CellChangeTimes->{ @@ -875,9 +845,9 @@ Cell[BoxData["0.10009404388714734`"], "Output", 3.993794873282228*^9, 3.993794932980536*^9, 3.993795021010798*^9, 3.993795700652451*^9, {3.993798061353931*^9, 3.993798086535883*^9}, 3.9937986213946667`*^9, {3.99379868633457*^9, 3.993798702587508*^9}, { - 3.993798732690464*^9, 3.9937987723273487`*^9}, 3.9937988416752872`*^9}, - CellLabel-> - "Out[793]=",ExpressionUUID->"914546d0-35d0-4756-b4ed-40c4f07c1dc7"] + 3.993798732690464*^9, 3.9937987723273487`*^9}, 3.9937988416752872`*^9, + 3.993826324661875*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"0451444f-ccfa-4e1f-a350-912a9b86e287"] }, Open ]], Cell[CellGroupData[{ @@ -892,8 +862,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel-> - "In[794]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + CellLabel->"In[28]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], Cell[BoxData[ RowBox[{"-", "2.5770219435736674`"}]], "Output", @@ -906,9 +875,9 @@ Cell[BoxData[ 3.9937948732976437`*^9, 3.993794932994926*^9, 3.993795021026412*^9, 3.9937957006680927`*^9, {3.993798061368864*^9, 3.993798086553877*^9}, 3.993798621411665*^9, {3.993798686351886*^9, 3.993798702604752*^9}, { - 3.993798732708255*^9, 3.993798772345071*^9}, 3.993798841692172*^9}, - CellLabel-> - "Out[794]=",ExpressionUUID->"82ce5494-69b8-4685-b52c-a71ea30cea1b"] + 3.993798732708255*^9, 3.993798772345071*^9}, 3.993798841692172*^9, + 3.9938263247303753`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"ab6ca25b-dec6-4555-9776-892fc531bb9c"] }, Open ]], Cell[CellGroupData[{ @@ -939,8 +908,7 @@ Cell[BoxData[ CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, - CellLabel-> - "In[795]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], + CellLabel->"In[29]:=",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], Cell[BoxData["17.307103859214784`"], "Output", CellChangeTimes->{ @@ -952,9 +920,9 @@ Cell[BoxData["17.307103859214784`"], "Output", 3.993794873313184*^9, 3.99379493300996*^9, 3.99379502104211*^9, 3.993795700683703*^9, {3.99379806138338*^9, 3.9937980865713463`*^9}, 3.993798621428762*^9, {3.99379868636935*^9, 3.993798702622053*^9}, { - 3.993798732726411*^9, 3.993798772362884*^9}, 3.99379884170927*^9}, - CellLabel-> - "Out[795]=",ExpressionUUID->"27993b68-4225-458c-90ef-a7fb46887d44"] + 3.993798732726411*^9, 3.993798772362884*^9}, 3.99379884170927*^9, + 3.993826324756855*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"9585d1e9-f88e-45e1-b7d3-b697193820e4"] }, Open ]], Cell[CellGroupData[{ @@ -962,8 +930,7 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, - CellLabel-> - "In[796]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + CellLabel->"In[30]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], Cell[BoxData["300"], "Output", CellChangeTimes->{ @@ -975,9 +942,9 @@ Cell[BoxData["300"], "Output", 3.9937948733296137`*^9, 3.993794933031815*^9, 3.9937950210586243`*^9, 3.993795700699382*^9, {3.993798061399227*^9, 3.993798086587878*^9}, 3.9937986214458513`*^9, {3.9937986863863497`*^9, 3.993798702639308*^9}, { - 3.9937987327442017`*^9, 3.993798772380602*^9}, 3.993798841726067*^9}, - CellLabel-> - "Out[796]=",ExpressionUUID->"fdd2b3ab-7c09-4672-8668-aab33d42f853"] + 3.9937987327442017`*^9, 3.993798772380602*^9}, 3.993798841726067*^9, + 3.993826324788383*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"62aeb77a-0cb8-4829-8580-7fef555d5630"] }, Open ]], Cell[CellGroupData[{ @@ -987,8 +954,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.99217938935705*^9, 3.9921793928277493`*^9}}, - CellLabel-> - "In[797]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + CellLabel->"In[31]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], Cell[BoxData["1.73`"], "Output", CellChangeTimes->{ @@ -1000,15 +966,14 @@ Cell[BoxData["1.73`"], "Output", 3.993794873345028*^9, 3.993794933047366*^9, 3.9937950210744123`*^9, 3.993795700715005*^9, {3.993798061413508*^9, 3.993798086605692*^9}, 3.9937986214626417`*^9, {3.9937986864031057`*^9, 3.993798702656475*^9}, { - 3.993798732761773*^9, 3.993798772398363*^9}, 3.9937988417430277`*^9}, - CellLabel-> - "Out[797]=",ExpressionUUID->"39819aba-1061-454b-8b92-469edb566edd"] + 3.993798732761773*^9, 3.993798772398363*^9}, 3.9937988417430277`*^9, + 3.99382632482225*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"98a6d365-3802-483a-bf87-a91e29c41fdb"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, - CellLabel-> - "In[798]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], + CellLabel->"In[32]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ @@ -1017,8 +982,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.992179397583227*^9, 3.992179400444868*^9}}, - CellLabel-> - "In[799]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + CellLabel->"In[33]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], Cell[BoxData["0.76`"], "Output", CellChangeTimes->{ @@ -1030,15 +994,14 @@ Cell[BoxData["0.76`"], "Output", 3.993794873374126*^9, 3.993794933069954*^9, 3.993795021103754*^9, 3.993795700744494*^9, {3.9937980614316807`*^9, 3.9937980866378183`*^9}, 3.993798621495171*^9, {3.9937986864362803`*^9, 3.993798702689391*^9}, { - 3.993798732795567*^9, 3.993798772431962*^9}, 3.9937988417756567`*^9}, - CellLabel-> - "Out[799]=",ExpressionUUID->"66f9f528-0194-4252-81ab-13beba4775a0"] + 3.993798732795567*^9, 3.993798772431962*^9}, 3.9937988417756567`*^9, + 3.993826324859189*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"f5c9e92c-ada1-4cb4-a6f0-03689b9ff82f"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, - CellLabel-> - "In[800]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], + CellLabel->"In[34]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ @@ -1047,8 +1010,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.9921794031483917`*^9, 3.9921794061884384`*^9}}, - CellLabel-> - "In[801]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + CellLabel->"In[35]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], Cell[BoxData["2.4`"], "Output", CellChangeTimes->{ @@ -1060,15 +1022,14 @@ Cell[BoxData["2.4`"], "Output", 3.993794873403276*^9, 3.993794933089445*^9, 3.9937950211336393`*^9, 3.99379570077335*^9, {3.993798061447587*^9, 3.993798086669197*^9}, 3.9937986215277863`*^9, {3.993798686468545*^9, 3.993798702722108*^9}, { - 3.993798732815753*^9, 3.993798772465597*^9}, 3.9937988418073587`*^9}, - CellLabel-> - "Out[801]=",ExpressionUUID->"9e97c194-e123-496f-9e39-bd0f738ac2ec"] + 3.993798732815753*^9, 3.993798772465597*^9}, 3.9937988418073587`*^9, + 3.993826324923127*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"f9ccb6b8-bcec-45cc-85b5-bb85cd73ab50"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, - CellLabel-> - "In[802]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], + CellLabel->"In[36]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ @@ -1077,8 +1038,7 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.992179410033045*^9, 3.9921794153030643`*^9}}, - CellLabel-> - "In[803]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + CellLabel->"In[37]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], Cell[BoxData["1.105`"], "Output", CellChangeTimes->{ @@ -1090,15 +1050,14 @@ Cell[BoxData["1.105`"], "Output", 3.9937948734328833`*^9, 3.9937949331078987`*^9, 3.9937950211638947`*^9, 3.993795700801763*^9, {3.993798061463689*^9, 3.993798086700941*^9}, 3.9937986215604486`*^9, {3.993798686500635*^9, 3.99379870275546*^9}, { - 3.993798732862917*^9, 3.993798772499421*^9}, 3.9937988418435783`*^9}, - CellLabel-> - "Out[803]=",ExpressionUUID->"39587092-a017-4305-8154-53db624df562"] + 3.993798732862917*^9, 3.993798772499421*^9}, 3.9937988418435783`*^9, + 3.993826324980228*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"593b9352-4cd7-4118-87ec-81f6aa3d6167"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, - CellLabel-> - "In[804]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], + CellLabel->"In[38]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ @@ -1107,8 +1066,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.9921794177283573`*^9, 3.992179423583313*^9}}, - CellLabel-> - "In[805]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + CellLabel->"In[39]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], Cell[BoxData["1.4012`"], "Output", CellChangeTimes->{ @@ -1120,15 +1078,14 @@ Cell[BoxData["1.4012`"], "Output", 3.993794873463707*^9, 3.993794933127647*^9, 3.993795021193186*^9, 3.9937957008299007`*^9, {3.993798061479611*^9, 3.99379808673225*^9}, 3.993798621592955*^9, {3.993798686533493*^9, 3.993798702788329*^9}, { - 3.993798732897976*^9, 3.993798772532955*^9}, 3.993798841879326*^9}, - CellLabel-> - "Out[805]=",ExpressionUUID->"c1ecdea4-6bc3-4b2b-9d54-a81692f14dab"] + 3.993798732897976*^9, 3.993798772532955*^9}, 3.993798841879326*^9, + 3.9938263250411053`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"f6f24f32-2d65-4f7e-bf15-4c0bc15b1b5d"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, - CellLabel-> - "In[806]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], + CellLabel->"In[40]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ @@ -1137,8 +1094,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9921794277801266`*^9, 3.9921794329809513`*^9}}, - CellLabel-> - "In[807]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + CellLabel->"In[41]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], Cell[BoxData["0.5547`"], "Output", CellChangeTimes->{ @@ -1150,15 +1106,14 @@ Cell[BoxData["0.5547`"], "Output", 3.9937948734947557`*^9, 3.993794933154345*^9, 3.993795021223008*^9, 3.993795700858131*^9, {3.9937980614955673`*^9, 3.993798086766595*^9}, 3.993798621625429*^9, {3.993798686566753*^9, 3.993798702808468*^9}, { - 3.99379873293123*^9, 3.993798772566778*^9}, 3.993798841912648*^9}, - CellLabel-> - "Out[807]=",ExpressionUUID->"bcfa37ac-cfda-485c-abb7-f76b6e0b9b4f"] + 3.99379873293123*^9, 3.993798772566778*^9}, 3.993798841912648*^9, + 3.993826325109168*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"dd6d8be5-17fb-4fbb-8a72-d62d958298cf"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, - CellLabel-> - "In[808]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], + CellLabel->"In[42]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ @@ -1167,8 +1122,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9921794404678802`*^9, 3.992179445208559*^9}}, - CellLabel-> - "In[809]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + CellLabel->"In[43]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], Cell[BoxData["1.1338`"], "Output", CellChangeTimes->{ @@ -1180,15 +1134,14 @@ Cell[BoxData["1.1338`"], "Output", 3.993794873523952*^9, 3.993794933175005*^9, 3.993795021256377*^9, 3.993795700887363*^9, {3.993798061511506*^9, 3.993798086799383*^9}, 3.9937986216578712`*^9, {3.9937986866012278`*^9, 3.993798702854663*^9}, { - 3.9937987329645157`*^9, 3.993798772600534*^9}, 3.9937988419473543`*^9}, - CellLabel-> - "Out[809]=",ExpressionUUID->"86ff056f-fced-41dd-84a7-c9cafeeb0c09"] + 3.9937987329645157`*^9, 3.993798772600534*^9}, 3.9937988419473543`*^9, + 3.993826325173607*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"07ad6615-f699-456e-8d3b-d69664a475c2"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, - CellLabel-> - "In[810]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], + CellLabel->"In[44]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ @@ -1196,8 +1149,7 @@ Cell[BoxData[ RowBox[{"nn2", "=", " ", "0.8500"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.9921794486072216`*^9, 3.992179451994211*^9}}, - CellLabel-> - "In[811]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + CellLabel->"In[45]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], Cell[BoxData["0.85`"], "Output", CellChangeTimes->{ @@ -1209,15 +1161,14 @@ Cell[BoxData["0.85`"], "Output", 3.993794873557049*^9, 3.993794933193095*^9, 3.9937950212927523`*^9, 3.993795700904361*^9, {3.9937980615275583`*^9, 3.993798086818811*^9}, 3.9937986216904*^9, {3.993798686633555*^9, 3.993798702888071*^9}, { - 3.993798732998324*^9, 3.993798772634285*^9}, 3.9937988419837923`*^9}, - CellLabel-> - "Out[811]=",ExpressionUUID->"b30b5ce4-9c56-4bdf-adc8-508226b668aa"] + 3.993798732998324*^9, 3.993798772634285*^9}, 3.9937988419837923`*^9, + 3.9938263252458153`*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"0954795c-9eb3-4da2-be74-b2334971cfa3"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, - CellLabel-> - "In[812]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], + CellLabel->"In[46]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1706,8 +1657,7 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel-> - "In[813]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + CellLabel->"In[47]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], Cell[BoxData["0.20251257452349652`"], "Output", CellChangeTimes->{ @@ -1719,9 +1669,9 @@ Cell[BoxData["0.20251257452349652`"], "Output", 3.9937948736077642`*^9, 3.993794933231779*^9, 3.993795021333706*^9, 3.99379570095816*^9, {3.9937980616012907`*^9, 3.9937980868768463`*^9}, 3.993798621732422*^9, {3.9937986866760263`*^9, 3.993798702931054*^9}, { - 3.9937987330406837`*^9, 3.993798772677342*^9}, 3.9937988420320597`*^9}, - CellLabel-> - "Out[813]=",ExpressionUUID->"49138c02-ab82-49f9-ade2-4564e3467881"] + 3.9937987330406837`*^9, 3.993798772677342*^9}, 3.9937988420320597`*^9, + 3.993826325347465*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"c6037475-0ae3-4e0a-9d06-4ebe817ba224"] }, Open ]], Cell[CellGroupData[{ @@ -2215,8 +2165,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[814]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + CellLabel->"In[48]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], Cell[BoxData["5.409861784548971`"], "Output", CellChangeTimes->{ @@ -2228,9 +2177,9 @@ Cell[BoxData["5.409861784548971`"], "Output", 3.993794873632731*^9, 3.993794933258212*^9, 3.9937950213553677`*^9, 3.993795700980199*^9, {3.993798061627906*^9, 3.993798086902638*^9}, 3.9937986217556963`*^9, {3.99379868670056*^9, 3.9937987029546423`*^9}, { - 3.99379873306563*^9, 3.99379877270221*^9}, 3.993798842067617*^9}, - CellLabel-> - "Out[814]=",ExpressionUUID->"46fdf130-6aa9-469c-b092-034fd0a0a512"] + 3.99379873306563*^9, 3.99379877270221*^9}, 3.993798842067617*^9, + 3.993826325431901*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"e71bdfc2-cef3-4070-b80f-d7f1ba3e473a"] }, Open ]], Cell[CellGroupData[{ @@ -2718,8 +2667,7 @@ Cell[BoxData[ CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, - CellLabel-> - "In[815]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], + CellLabel->"In[49]:=",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], Cell[BoxData[ RowBox[{"-", "26.71933695492077`"}]], "Output", @@ -2732,9 +2680,9 @@ Cell[BoxData[ 3.9937948736565237`*^9, 3.993794933280348*^9, 3.9937950213767853`*^9, 3.9937957010017853`*^9, {3.9937980616543627`*^9, 3.9937980869279137`*^9}, 3.9937986217794123`*^9, {3.9937986867235813`*^9, 3.993798702978299*^9}, { - 3.9937987330896893`*^9, 3.993798772726368*^9}, 3.993798842104063*^9}, - CellLabel-> - "Out[815]=",ExpressionUUID->"d205449f-fd13-4b41-9f9b-667e6d1660d0"] + 3.9937987330896893`*^9, 3.993798772726368*^9}, 3.993798842104063*^9, + 3.99382632551017*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"5a3457d6-5496-4a8e-bb52-5bbcd5a3c507"] }, Open ]], Cell[CellGroupData[{ @@ -3292,8 +3240,7 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[816]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + CellLabel->"In[50]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], Cell[BoxData[ RowBox[{"-", "33.90805078336294`"}]], "Output", @@ -3306,9 +3253,9 @@ Cell[BoxData[ 3.993794873686226*^9, 3.993794933308016*^9, 3.993795021403448*^9, 3.993795701025825*^9, {3.993798061685501*^9, 3.993798086957966*^9}, 3.9937986218072157`*^9, {3.993798686751264*^9, 3.993798703005465*^9}, { - 3.9937987331189947`*^9, 3.993798772755694*^9}, 3.99379884214079*^9}, - CellLabel-> - "Out[816]=",ExpressionUUID->"840925e6-fbaa-48da-9b7e-f2c3b09d9979"] + 3.9937987331189947`*^9, 3.993798772755694*^9}, 3.99379884214079*^9, + 3.993826325585691*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"8aa38237-a49b-41ca-8e4e-4ece19ecf9b9"] }, Open ]], Cell[CellGroupData[{ @@ -3866,8 +3813,7 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[817]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + CellLabel->"In[51]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], Cell[BoxData[ RowBox[{"-", "80.51800540734116`"}]], "Output", @@ -3880,9 +3826,9 @@ Cell[BoxData[ 3.993794873783832*^9, 3.993794933334504*^9, 3.9937950214302197`*^9, 3.993795701051656*^9, {3.993798061717634*^9, 3.9937980869883947`*^9}, 3.993798621835867*^9, {3.99379868677954*^9, 3.9937987030336742`*^9}, { - 3.993798733149712*^9, 3.9937987727864532`*^9}, 3.9937988421768103`*^9}, - CellLabel-> - "Out[817]=",ExpressionUUID->"5636bd0a-14b4-4a4f-8e06-125737d4eaec"] + 3.993798733149712*^9, 3.9937987727864532`*^9}, 3.9937988421768103`*^9, + 3.993826325649477*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"910327df-af2a-4d04-8f38-cb0acfb4e4e2"] }, Open ]], Cell[CellGroupData[{ @@ -4513,8 +4459,7 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[818]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + CellLabel->"In[52]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], Cell[BoxData[ RowBox[{"-", "205.49185741459576`"}]], "Output", @@ -4527,17 +4472,16 @@ Cell[BoxData[ 3.99379487383742*^9, 3.993794933364225*^9, 3.993795021461669*^9, 3.9937957010816097`*^9, {3.993798061753223*^9, 3.9937980870240927`*^9}, 3.9937986218687983`*^9, {3.993798686813334*^9, 3.993798703067431*^9}, { - 3.993798733183406*^9, 3.99379877282058*^9}, 3.993798842244454*^9}, - CellLabel-> - "Out[818]=",ExpressionUUID->"e581774f-e750-47b3-b5f0-db526daea513"] + 3.993798733183406*^9, 3.99379877282058*^9}, 3.993798842244454*^9, + 3.993826325740863*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"08fe4da6-b6f4-46e4-8797-75a9c9697566"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel-> - "In[819]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + CellLabel->"In[53]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], Cell[BoxData["0"], "Output", CellChangeTimes->{ @@ -4549,17 +4493,16 @@ Cell[BoxData["0"], "Output", 3.993794873852001*^9, 3.9937949333812227`*^9, 3.993795021483603*^9, 3.993795701099402*^9, {3.99379806179733*^9, 3.993798087068728*^9}, 3.993798621890764*^9, {3.99379868683501*^9, 3.993798703090989*^9}, { - 3.993798733205879*^9, 3.993798772825362*^9}, 3.993798842262638*^9}, - CellLabel-> - "Out[819]=",ExpressionUUID->"a478ac51-d8b5-4da2-9512-04c4856f1b73"] + 3.993798733205879*^9, 3.993798772825362*^9}, 3.993798842262638*^9, + 3.9938263258170033`*^9}, + CellLabel->"Out[53]=",ExpressionUUID->"cb0c6e11-afbb-4239-9f28-d42f9a58e901"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel-> - "In[820]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + CellLabel->"In[54]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], Cell[BoxData["0"], "Output", CellChangeTimes->{ @@ -4571,9 +4514,9 @@ Cell[BoxData["0"], "Output", 3.9937948738900223`*^9, 3.993794933397153*^9, 3.993795021499218*^9, 3.99379570111512*^9, {3.993798061811036*^9, 3.993798087086144*^9}, 3.993798621907934*^9, {3.99379868685196*^9, 3.993798703108383*^9}, { - 3.993798733239622*^9, 3.9937987728572693`*^9}, 3.993798842281269*^9}, - CellLabel-> - "Out[820]=",ExpressionUUID->"5b46a4d4-755b-4748-850d-81deb8e8e7c8"] + 3.993798733239622*^9, 3.9937987728572693`*^9}, 3.993798842281269*^9, + 3.9938263258524227`*^9}, + CellLabel->"Out[54]=",ExpressionUUID->"b187cd77-f9bf-4a9a-a35f-64bc72883621"] }, Open ]], Cell[CellGroupData[{ @@ -4617,8 +4560,7 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[821]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + CellLabel->"In[55]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], Cell[BoxData["157.0651890700479`"], "Output", CellChangeTimes->{ @@ -4630,9 +4572,9 @@ Cell[BoxData["157.0651890700479`"], "Output", 3.99379487390521*^9, 3.9937949334115067`*^9, 3.993795021515266*^9, 3.993795701130774*^9, {3.9937980618145533`*^9, 3.993798087103599*^9}, 3.993798621924924*^9, {3.993798686869008*^9, 3.993798703142301*^9}, { - 3.99379873325657*^9, 3.9937987728910847`*^9}, 3.9937988422982063`*^9}, - CellLabel-> - "Out[821]=",ExpressionUUID->"6e19cf87-eded-4ac7-b641-76486b14ef2b"] + 3.99379873325657*^9, 3.9937987728910847`*^9}, 3.9937988422982063`*^9, + 3.9938263258848963`*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"c0383bf5-b279-4cd3-8b58-4862b3ba30a0"] }, Open ]], Cell[CellGroupData[{ @@ -4672,8 +4614,7 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[822]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + CellLabel->"In[56]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], Cell[BoxData[ RowBox[{"-", "123.3235530299229`"}]], "Output", @@ -4686,9 +4627,9 @@ Cell[BoxData[ 3.993794873908779*^9, 3.9937949334260597`*^9, 3.993795021531925*^9, 3.993795701146491*^9, {3.993798061828635*^9, 3.9937980871212597`*^9}, 3.993798621958197*^9, {3.99379868690247*^9, 3.99379870315996*^9}, { - 3.993798733274534*^9, 3.993798772908839*^9}, 3.993798842316742*^9}, - CellLabel-> - "Out[822]=",ExpressionUUID->"823e3edb-51ce-4f43-bd61-1d5ec46bbf5f"] + 3.993798733274534*^9, 3.993798772908839*^9}, 3.993798842316742*^9, + 3.993826325924471*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"c94099ed-a3cb-41a2-8c90-4d61af29a1a0"] }, Open ]], Cell[CellGroupData[{ @@ -4732,8 +4673,7 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel-> - "In[823]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + CellLabel->"In[57]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], Cell[BoxData["151.17585622424423`"], "Output", CellChangeTimes->{ @@ -4745,16 +4685,15 @@ Cell[BoxData["151.17585622424423`"], "Output", 3.993794873935433*^9, 3.993794933440748*^9, 3.993795021547913*^9, 3.993795701162116*^9, {3.993798061843708*^9, 3.993798087138774*^9}, 3.993798621975258*^9, {3.993798686919578*^9, 3.9937987031775827`*^9}, { - 3.9937987332922297`*^9, 3.993798772925891*^9}, 3.993798842335659*^9}, - CellLabel-> - "Out[823]=",ExpressionUUID->"8c7e528f-562f-49de-80ad-da2475485808"] + 3.9937987332922297`*^9, 3.993798772925891*^9}, 3.993798842335659*^9, + 3.993826325933651*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"adc5a205-8904-4dc4-8231-8a29c59e3333"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel-> - "In[824]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + CellLabel->"In[58]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], Cell[BoxData["0.4819667641075124`"], "Output", CellChangeTimes->{ @@ -4766,16 +4705,15 @@ Cell[BoxData["0.4819667641075124`"], "Output", 3.993794873951779*^9, 3.993794933454986*^9, 3.993795021563548*^9, 3.993795701177721*^9, {3.9937980618568068`*^9, 3.993798087156118*^9}, 3.9937986219923286`*^9, {3.993798686936906*^9, 3.993798703195135*^9}, { - 3.993798733309744*^9, 3.99379877294284*^9}, 3.9937988423539953`*^9}, - CellLabel-> - "Out[824]=",ExpressionUUID->"cbadab50-7241-44a2-b601-3ad4ff51079b"] + 3.993798733309744*^9, 3.99379877294284*^9}, 3.9937988423539953`*^9, + 3.993826325959478*^9}, + CellLabel->"Out[58]=",ExpressionUUID->"6baf363e-15a6-4b80-b38b-e30c61f31cc4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel-> - "In[825]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + CellLabel->"In[59]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], Cell[BoxData[ RowBox[{"-", "0.11350137337476086`"}]], "Output", @@ -4788,16 +4726,15 @@ Cell[BoxData[ 3.993794873967908*^9, 3.993794933469367*^9, 3.993795021579414*^9, 3.99379570119339*^9, {3.993798061869903*^9, 3.993798087173719*^9}, 3.9937986220097523`*^9, {3.993798686954363*^9, 3.99379870321231*^9}, { - 3.993798733327363*^9, 3.993798772959847*^9}, 3.993798842372876*^9}, - CellLabel-> - "Out[825]=",ExpressionUUID->"9e52f8c3-4739-4b4e-b71f-bb51e4685979"] + 3.993798733327363*^9, 3.993798772959847*^9}, 3.993798842372876*^9, + 3.9938263259882383`*^9}, + CellLabel->"Out[59]=",ExpressionUUID->"2219bd39-bd5d-4bae-8a48-9517ef1e622c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel-> - "In[826]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + CellLabel->"In[60]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], Cell[BoxData[ RowBox[{"-", "0.4652269449262844`"}]], "Output", @@ -4810,16 +4747,15 @@ Cell[BoxData[ 3.993794873985714*^9, 3.993794933484049*^9, 3.9937950216104937`*^9, 3.993795701209157*^9, {3.99379806188336*^9, 3.9937980871913767`*^9}, 3.9937986220262203`*^9, {3.9937986869718018`*^9, 3.99379870322972*^9}, { - 3.99379873334508*^9, 3.993798772977345*^9}, 3.993798842392817*^9}, - CellLabel-> - "Out[826]=",ExpressionUUID->"1a3bbb0e-670c-4ebb-a184-ec45f82b1f2b"] + 3.99379873334508*^9, 3.993798772977345*^9}, 3.993798842392817*^9, + 3.993826326015416*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"3cbc47b1-03b4-4a15-b620-3f7b685f1d21"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel-> - "In[827]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + CellLabel->"In[61]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], Cell[BoxData["0.6581300944010081`"], "Output", CellChangeTimes->{ @@ -4831,16 +4767,15 @@ Cell[BoxData["0.6581300944010081`"], "Output", 3.993794874002565*^9, 3.993794933499496*^9, 3.993795021626628*^9, 3.9937957012247257`*^9, {3.9937980618966627`*^9, 3.9937980872087307`*^9}, 3.993798622042392*^9, {3.993798686988817*^9, 3.993798703247024*^9}, { - 3.993798733362656*^9, 3.9937987729943733`*^9}, 3.993798842412065*^9}, - CellLabel-> - "Out[827]=",ExpressionUUID->"3f4f6abc-3396-4956-a56f-af4a22af155e"] + 3.993798733362656*^9, 3.9937987729943733`*^9}, 3.993798842412065*^9, + 3.9938263260490427`*^9}, + CellLabel->"Out[61]=",ExpressionUUID->"ae5e375f-aa27-4a63-8a87-53133a6027e4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel-> - "In[828]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + CellLabel->"In[62]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], Cell[BoxData["2.061265729478835`"], "Output", CellChangeTimes->{ @@ -4852,16 +4787,15 @@ Cell[BoxData["2.061265729478835`"], "Output", 3.993794874017774*^9, 3.9937949335146933`*^9, 3.993795021642297*^9, 3.993795701255369*^9, {3.993798061910685*^9, 3.9937980872262087`*^9}, 3.993798622058572*^9, {3.993798687005842*^9, 3.993798703264271*^9}, { - 3.9937987333804398`*^9, 3.993798773011484*^9}, 3.99379884243119*^9}, - CellLabel-> - "Out[828]=",ExpressionUUID->"004550b4-646f-42f5-a339-bd131d20111a"] + 3.9937987333804398`*^9, 3.993798773011484*^9}, 3.99379884243119*^9, + 3.993826326082259*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"8b58da2e-9594-40fa-8561-b83ebbe717b0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel-> - "In[829]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + CellLabel->"In[63]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], Cell[BoxData["1.500736140386642`"], "Output", CellChangeTimes->{ @@ -4873,9 +4807,9 @@ Cell[BoxData["1.500736140386642`"], "Output", 3.993794874032816*^9, 3.993794933529769*^9, 3.9937950216577797`*^9, 3.993795701272051*^9, {3.993798061924266*^9, 3.993798087243655*^9}, 3.9937986220748243`*^9, {3.993798687023011*^9, 3.9937987032815638`*^9}, { - 3.9937987333981943`*^9, 3.993798773028345*^9}, 3.993798842449202*^9}, - CellLabel-> - "Out[829]=",ExpressionUUID->"f241f58a-d4c2-4394-a9de-ccf8334f57ab"] + 3.9937987333981943`*^9, 3.993798773028345*^9}, 3.993798842449202*^9, + 3.993826326114183*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"d28d43c7-46aa-4659-9e6c-b43d3054c70e"] }, Open ]], Cell[CellGroupData[{ @@ -4896,8 +4830,7 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel-> - "In[830]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + CellLabel->"In[64]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], Cell[BoxData[ RowBox[{"-", "31.35994404137113`"}]], "Output", @@ -4910,9 +4843,9 @@ Cell[BoxData[ 3.993794874049397*^9, 3.993794933545217*^9, 3.99379502167412*^9, 3.993795701288185*^9, {3.993798061938146*^9, 3.993798087261326*^9}, 3.9937986220913467`*^9, {3.993798687040245*^9, 3.993798703298964*^9}, { - 3.993798733417775*^9, 3.993798773046424*^9}, 3.9937988424680433`*^9}, - CellLabel-> - "Out[830]=",ExpressionUUID->"94601c55-afa7-441b-bcfc-43cb276f02f9"] + 3.993798733417775*^9, 3.993798773046424*^9}, 3.9937988424680433`*^9, + 3.993826326149837*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"b094f877-ace6-48cc-9c69-7696f2fcfbfb"] }, Open ]], Cell[CellGroupData[{ @@ -4933,8 +4866,7 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel-> - "In[831]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + CellLabel->"In[65]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], Cell[BoxData[ RowBox[{"-", "7.850554518705422`"}]], "Output", @@ -4947,9 +4879,9 @@ Cell[BoxData[ 3.993794874065866*^9, 3.993794933562932*^9, 3.993795021689763*^9, 3.993795701303646*^9, {3.9937980619528646`*^9, 3.993798087279035*^9}, 3.9937986221081753`*^9, {3.993798687057583*^9, 3.993798703316317*^9}, { - 3.993798733435467*^9, 3.9937987730646257`*^9}, 3.993798842487122*^9}, - CellLabel-> - "Out[831]=",ExpressionUUID->"7d7eb11c-3618-438c-b1e9-9f569b0bb6f3"] + 3.993798733435467*^9, 3.9937987730646257`*^9}, 3.993798842487122*^9, + 3.993826326177005*^9}, + CellLabel->"Out[65]=",ExpressionUUID->"c4ba0b97-b0d4-4155-9194-1cc9ffc1be73"] }, Open ]], Cell[CellGroupData[{ @@ -5014,8 +4946,7 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[832]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + CellLabel->"In[66]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], Cell[BoxData["125.70524502867676`"], "Output", CellChangeTimes->{ @@ -5027,9 +4958,9 @@ Cell[BoxData["125.70524502867676`"], "Output", 3.993794874081472*^9, 3.9937949335805473`*^9, 3.993795021705645*^9, 3.993795701320002*^9, {3.99379806196882*^9, 3.9937980872968407`*^9}, 3.9937986221295347`*^9, {3.993798687074811*^9, 3.993798703333783*^9}, { - 3.9937987334531813`*^9, 3.9937987730827312`*^9}, 3.993798842505597*^9}, - CellLabel-> - "Out[832]=",ExpressionUUID->"a5b5be0d-d0c4-441b-b3a5-c336ba2a4dfd"] + 3.9937987334531813`*^9, 3.9937987730827312`*^9}, 3.993798842505597*^9, + 3.993826326208405*^9}, + CellLabel->"Out[66]=",ExpressionUUID->"98949ae3-fac0-431c-a6a2-598f7ed33ca3"] }, Open ]], Cell[CellGroupData[{ @@ -5070,8 +5001,7 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[833]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + CellLabel->"In[67]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], Cell[BoxData[ RowBox[{"-", "123.3235530299229`"}]], "Output", @@ -5084,9 +5014,9 @@ Cell[BoxData[ 3.9937948740977497`*^9, 3.993794933623646*^9, 3.993795021721365*^9, 3.993795701335375*^9, {3.9937980619840918`*^9, 3.993798087314501*^9}, 3.993798622147451*^9, {3.9937986870920877`*^9, 3.9937987033513527`*^9}, { - 3.9937987334707003`*^9, 3.9937987731006603`*^9}, 3.99379884252439*^9}, - CellLabel-> - "Out[833]=",ExpressionUUID->"bc84ae7a-8dd2-476c-bd49-a2e4bfc08a74"] + 3.9937987334707003`*^9, 3.9937987731006603`*^9}, 3.99379884252439*^9, + 3.993826326236971*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"df281b97-208c-44fe-9600-1c86d7ed57ae"] }, Open ]], Cell[CellGroupData[{ @@ -5152,8 +5082,7 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel-> - "In[834]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + CellLabel->"In[68]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], Cell[BoxData["143.3253017055388`"], "Output", CellChangeTimes->{ @@ -5165,9 +5094,9 @@ Cell[BoxData["143.3253017055388`"], "Output", 3.993794874114809*^9, 3.9937949336390553`*^9, 3.9937950217371817`*^9, 3.993795701351478*^9, {3.993798061999138*^9, 3.993798087332402*^9}, 3.993798622164464*^9, {3.993798687109394*^9, 3.993798703370576*^9}, { - 3.993798733488462*^9, 3.993798773119027*^9}, 3.993798842543335*^9}, - CellLabel-> - "Out[834]=",ExpressionUUID->"6e46f94b-c380-4f68-bd12-447d0d9c5391"] + 3.993798733488462*^9, 3.993798773119027*^9}, 3.993798842543335*^9, + 3.993826326262679*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"ed225333-3b69-4687-8ba3-be5166adfd1b"] }, Open ]], Cell[CellGroupData[{ @@ -5225,8 +5154,7 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[835]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + CellLabel->"In[69]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], Cell[BoxData["93.76881016546349`"], "Output", CellChangeTimes->{ @@ -5238,9 +5166,9 @@ Cell[BoxData["93.76881016546349`"], "Output", 3.993794874133234*^9, 3.9937949336544724`*^9, 3.9937950217530537`*^9, 3.993795701367551*^9, {3.9937980620139227`*^9, 3.993798087350192*^9}, 3.993798622183618*^9, {3.993798687127508*^9, 3.993798703388733*^9}, { - 3.9937987335061417`*^9, 3.993798773136997*^9}, 3.993798842562296*^9}, - CellLabel-> - "Out[835]=",ExpressionUUID->"17c06275-6895-4e2a-8b24-1919a77cde29"] + 3.9937987335061417`*^9, 3.993798773136997*^9}, 3.993798842562296*^9, + 3.993826326294441*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"7e9071b5-476c-4d53-b3c1-f079846984db"] }, Open ]], Cell[CellGroupData[{ @@ -5298,8 +5226,7 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel-> - "In[836]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + CellLabel->"In[70]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], Cell[BoxData["873.0988230281508`"], "Output", CellChangeTimes->{ @@ -5311,9 +5238,9 @@ Cell[BoxData["873.0988230281508`"], "Output", 3.993794874148573*^9, 3.993794933668934*^9, 3.993795021768878*^9, 3.9937957013835487`*^9, {3.993798062029521*^9, 3.993798087368185*^9}, 3.993798622203019*^9, {3.993798687144706*^9, 3.993798703406261*^9}, { - 3.993798733524321*^9, 3.993798773154924*^9}, 3.99379884257968*^9}, - CellLabel-> - "Out[836]=",ExpressionUUID->"252f66ce-05f9-4243-9b31-8a2fa4824248"] + 3.993798733524321*^9, 3.993798773154924*^9}, 3.99379884257968*^9, + 3.993826326324808*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"bc7a35b8-572d-40b1-9448-03bf169e950e"] }, Open ]], Cell[CellGroupData[{ @@ -5323,8 +5250,7 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799412462593*^9, 3.992572229806829*^9, {3.992572279435697*^9, 3.992572282385153*^9}}, - CellLabel-> - "In[837]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + CellLabel->"In[71]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], Cell[BoxData["0.8333468042`"], "Output", CellChangeTimes->{ @@ -5336,15 +5262,13 @@ Cell[BoxData["0.8333468042`"], "Output", 3.993795021785182*^9, 3.993795701399385*^9, {3.993798062044868*^9, 3.993798087385491*^9}, 3.99379862222287*^9, {3.993798687161861*^9, 3.9937987034236403`*^9}, {3.993798733542089*^9, 3.993798773173064*^9}, - 3.9937988425984983`*^9}, - CellLabel-> - "Out[837]=",ExpressionUUID->"8e8c6507-ca9d-4fd4-b000-d391ed6653a4"] + 3.9937988425984983`*^9, 3.9938263263606577`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"ab7f8cf9-2911-4d66-a86f-464154e65084"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184866880085*^9, 3.9918486688048573`*^9}}, - CellLabel-> - "In[838]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + CellLabel->"In[72]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ @@ -5352,8 +5276,7 @@ Cell[BoxData[ RowBox[{"f2", "=", "0.6106568045"}]], "Input", CellChangeTimes->{ 3.991799414288656*^9, {3.992572286410081*^9, 3.992572288591158*^9}}, - CellLabel-> - "In[839]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + CellLabel->"In[73]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], Cell[BoxData["0.6106568045`"], "Output", CellChangeTimes->{ @@ -5365,15 +5288,13 @@ Cell[BoxData["0.6106568045`"], "Output", 3.993795021818904*^9, 3.993795701431674*^9, {3.993798062063714*^9, 3.99379808741858*^9}, 3.9937986222572327`*^9, {3.993798687194228*^9, 3.99379870345643*^9}, {3.993798733575569*^9, 3.993798773207382*^9}, - 3.993798842635302*^9}, - CellLabel-> - "Out[839]=",ExpressionUUID->"b09b3776-57a6-4659-8c56-f390d9e69470"] + 3.993798842635302*^9, 3.993826326420741*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"b1df6735-eff6-4379-a0e0-8d573f6421ea"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, - CellLabel-> - "In[840]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], + CellLabel->"In[74]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -5419,8 +5340,7 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel-> - "In[841]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + CellLabel->"In[75]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], Cell[BoxData["1.4406889235574582`*^-53"], "Output", CellChangeTimes->{ @@ -5432,9 +5352,9 @@ Cell[BoxData["1.4406889235574582`*^-53"], "Output", 3.993794874224799*^9, 3.993794933725119*^9, 3.993795021848783*^9, 3.993795701462039*^9, {3.993798062079783*^9, 3.9937980874524193`*^9}, 3.993798622291089*^9, {3.9937986872265387`*^9, 3.9937987034902277`*^9}, { - 3.993798733609593*^9, 3.993798773242073*^9}, 3.993798842671361*^9}, - CellLabel-> - "Out[841]=",ExpressionUUID->"572b08da-30b1-456e-b2a6-28950bfa94d3"] + 3.993798733609593*^9, 3.993798773242073*^9}, 3.993798842671361*^9, + 3.993826326475507*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"91494725-f62a-46e4-ab19-0facc06f3a4a"] }, Open ]], Cell[CellGroupData[{ @@ -5469,8 +5389,7 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", CellChangeTimes->{3.991557471461853*^9}, - CellLabel-> - "In[842]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], + CellLabel->"In[76]:=",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], Cell[BoxData["1.1230421507062127`*^-54"], "Output", CellChangeTimes->{ @@ -5482,9 +5401,9 @@ Cell[BoxData["1.1230421507062127`*^-54"], "Output", 3.993794874240404*^9, 3.993794933742278*^9, 3.993795021864667*^9, 3.993795701478064*^9, {3.993798062093173*^9, 3.9937980874702177`*^9}, 3.993798622309763*^9, {3.993798687243669*^9, 3.993798703507802*^9}, { - 3.993798733627486*^9, 3.993798773260178*^9}, 3.993798842689934*^9}, - CellLabel-> - "Out[842]=",ExpressionUUID->"39408de4-349a-46f2-bfdf-4c3ac4a76cf1"] + 3.993798733627486*^9, 3.993798773260178*^9}, 3.993798842689934*^9, + 3.9938263265155277`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"d0162c8b-55cb-4ee2-93bc-e9d0a5c4e6a0"] }, Open ]], Cell[CellGroupData[{ @@ -5518,8 +5437,7 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", CellChangeTimes->{{3.991557474366678*^9, 3.99155747655138*^9}}, - CellLabel-> - "In[843]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], + CellLabel->"In[77]:=",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], Cell[BoxData["3.51351975187821`*^-54"], "Output", CellChangeTimes->{ @@ -5531,9 +5449,9 @@ Cell[BoxData["3.51351975187821`*^-54"], "Output", 3.993794874255986*^9, 3.993794933758143*^9, 3.993795021880485*^9, 3.9937957014962187`*^9, {3.993798062106846*^9, 3.993798087487856*^9}, 3.9937986223282633`*^9, {3.993798687260754*^9, 3.99379870352637*^9}, { - 3.993798733645443*^9, 3.993798773278282*^9}, 3.993798842710423*^9}, - CellLabel-> - "Out[843]=",ExpressionUUID->"52b897b4-4831-4ad5-ad04-d14e756adbcb"] + 3.993798733645443*^9, 3.993798773278282*^9}, 3.993798842710423*^9, + 3.993826326543442*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"5cd201f0-e6b7-4c39-80db-0d2f9d9718ec"] }, Open ]], Cell[CellGroupData[{ @@ -5556,8 +5474,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel-> - "In[844]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + CellLabel->"In[78]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], Cell[BoxData["12.350478336256169`"], "Output", CellChangeTimes->{ @@ -5575,9 +5492,8 @@ Cell[BoxData["12.350478336256169`"], "Output", 3.993795021896441*^9, 3.993795701512106*^9, {3.993798062121463*^9, 3.993798087505437*^9}, 3.9937986223451843`*^9, {3.9937986872780113`*^9, 3.993798703544107*^9}, {3.9937987336632767`*^9, 3.9937987732966347`*^9}, - 3.9937988427295237`*^9}, - CellLabel-> - "Out[844]=",ExpressionUUID->"984be6b6-5106-4408-9121-e3e28ae42629"] + 3.9937988427295237`*^9, 3.993826326586604*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"5c9c4894-0a7d-4eeb-90d6-6e22f4bc685b"] }, Open ]], Cell[CellGroupData[{ @@ -5603,8 +5519,7 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, - CellLabel-> - "In[845]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + CellLabel->"In[79]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], Cell[BoxData["50.905183603196456`"], "Output", CellChangeTimes->{ @@ -5621,9 +5536,9 @@ Cell[BoxData["50.905183603196456`"], "Output", 3.993794874288866*^9, 3.9937949337931347`*^9, 3.993795021900139*^9, 3.9937957015287123`*^9, {3.993798062135578*^9, 3.993798087522798*^9}, 3.993798622363585*^9, {3.993798687295788*^9, 3.993798703561652*^9}, { - 3.9937987336809*^9, 3.993798773314704*^9}, 3.993798842748839*^9}, - CellLabel-> - "Out[845]=",ExpressionUUID->"a32056e2-f627-4025-bb98-be079a9821bf"] + 3.9937987336809*^9, 3.993798773314704*^9}, 3.993798842748839*^9, + 3.993826326617031*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"e9bd4141-f6d3-480a-8146-63179c4ca3d1"] }, Open ]], Cell[CellGroupData[{ @@ -5632,8 +5547,7 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel-> - "In[846]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + CellLabel->"In[80]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], Cell[BoxData["2.7554168730580613`"], "Output", CellChangeTimes->{ @@ -5651,9 +5565,8 @@ Cell[BoxData["2.7554168730580613`"], "Output", 3.993795021927956*^9, 3.993795701544168*^9, {3.993798062149445*^9, 3.993798087540303*^9}, 3.993798622381042*^9, {3.993798687312921*^9, 3.993798703579246*^9}, {3.993798733698612*^9, 3.993798773332747*^9}, - 3.9937988427680893`*^9}, - CellLabel-> - "Out[846]=",ExpressionUUID->"9214576e-b2b8-4ac3-8512-2f702754bfcd"] + 3.9937988427680893`*^9, 3.9938263266499*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"a0919432-ce02-4699-b5cb-872c85232eb5"] }, Open ]], Cell[CellGroupData[{ @@ -5663,8 +5576,7 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, - CellLabel-> - "In[847]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + CellLabel->"In[81]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], Cell[BoxData["4.141433548781928`"], "Output", CellChangeTimes->{ @@ -5681,9 +5593,8 @@ Cell[BoxData["4.141433548781928`"], "Output", 3.9937949338275557`*^9, 3.993795021946162*^9, 3.993795701559331*^9, { 3.993798062162876*^9, 3.993798087557925*^9}, 3.9937986224015703`*^9, { 3.99379868732997*^9, 3.9937987035967093`*^9}, {3.993798733716448*^9, - 3.993798773350625*^9}, 3.9937988427869043`*^9}, - CellLabel-> - "Out[847]=",ExpressionUUID->"8ce71d4d-4244-4e49-bf8a-a7801a464cda"] + 3.993798773350625*^9}, 3.9937988427869043`*^9, 3.993826326680666*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"cd9bb053-51c5-4215-9685-b336d36bcf4b"] }, Open ]], Cell[CellGroupData[{ @@ -5693,8 +5604,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, - CellLabel-> - "In[848]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + CellLabel->"In[82]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], Cell[BoxData["210.8204351811815`"], "Output", CellChangeTimes->{ @@ -5711,9 +5621,9 @@ Cell[BoxData["210.8204351811815`"], "Output", 3.993794874340974*^9, 3.993794933844941*^9, 3.99379502196349*^9, 3.993795701575573*^9, {3.993798062179266*^9, 3.993798087575354*^9}, 3.9937986224220324`*^9, {3.993798687346868*^9, 3.993798703618656*^9}, { - 3.993798733734242*^9, 3.993798773368575*^9}, 3.9937988428069677`*^9}, - CellLabel-> - "Out[848]=",ExpressionUUID->"91488d10-a8b8-47f7-9907-3c52ac925c36"] + 3.993798733734242*^9, 3.993798773368575*^9}, 3.9937988428069677`*^9, + 3.9938263267296753`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"2f88e732-a4ab-4f46-aecf-e0e5192b792c"] }, Open ]], Cell[CellGroupData[{ @@ -5722,8 +5632,7 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[849]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + CellLabel->"In[83]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], Cell[BoxData["34.030716398058296`"], "Output", CellChangeTimes->{ @@ -5741,9 +5650,8 @@ Cell[BoxData["34.030716398058296`"], "Output", 3.99379502198343*^9, 3.99379570159094*^9, {3.993798062199368*^9, 3.993798087592688*^9}, 3.993798622444441*^9, {3.9937986873639*^9, 3.993798703636301*^9}, {3.993798733751998*^9, 3.9937987733864737`*^9}, - 3.9937988428115997`*^9}, - CellLabel-> - "Out[849]=",ExpressionUUID->"c28189fd-73a8-4bf1-bbcb-969bdc49abd9"] + 3.9937988428115997`*^9, 3.99382632675983*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"24fe837d-146e-4acd-8b76-e5b79907d06f"] }, Open ]], Cell[CellGroupData[{ @@ -5932,8 +5840,7 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[850]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + CellLabel->"In[84]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], Cell[BoxData["0.004974574767815458`"], "Output", CellChangeTimes->{ @@ -5950,9 +5857,9 @@ Cell[BoxData["0.004974574767815458`"], "Output", 3.993794874372365*^9, 3.9937949338801928`*^9, 3.993795022001565*^9, 3.993795701606421*^9, {3.993798062219396*^9, 3.993798087611133*^9}, 3.9937986224648123`*^9, {3.9937986873809977`*^9, 3.993798703654282*^9}, { - 3.993798733769857*^9, 3.9937987734050303`*^9}, 3.993798842841997*^9}, - CellLabel-> - "Out[850]=",ExpressionUUID->"36105ec5-90e1-49a9-b367-2496ad06b46e"] + 3.993798733769857*^9, 3.9937987734050303`*^9}, 3.993798842841997*^9, + 3.993826326817089*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"10d6172c-b1a9-449f-b14b-ab525a31f032"] }, Open ]], Cell[CellGroupData[{ @@ -5965,8 +5872,7 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[851]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + CellLabel->"In[85]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], Cell[BoxData["12.565129222699294`"], "Output", CellFrame->{{0, 0}, {0, 0}}, @@ -5984,10 +5890,9 @@ Cell[BoxData["12.565129222699294`"], "Output", 3.9937949339306602`*^9, 3.993795022039091*^9, 3.993795701645813*^9, { 3.993798062330724*^9, 3.993798087649127*^9}, 3.9937986225016108`*^9, { 3.99379868742645*^9, 3.993798703704879*^9}, {3.993798733814673*^9, - 3.993798773448196*^9}, 3.993798842889584*^9}, + 3.993798773448196*^9}, 3.993798842889584*^9, 3.993826326947404*^9}, Background->RGBColor[0.88, 1, 0.88], - CellLabel-> - "Out[851]=",ExpressionUUID->"dcbce89b-2223-434e-a59a-1dcb7a1a4b1f"] + CellLabel->"Out[85]=",ExpressionUUID->"fec69902-e952-4c61-bbf7-b724285172eb"] }, Open ]], Cell[BoxData[ @@ -5999,8 +5904,7 @@ Cell[BoxData[ 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { 3.9920869541635437`*^9, 3.992086954848522*^9}}, - CellLabel-> - "In[852]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + CellLabel->"In[86]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -6022,8 +5926,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[853]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + CellLabel->"In[87]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], Cell[BoxData["40.992658443272305`"], "Output", CellChangeTimes->{ @@ -6035,9 +5938,8 @@ Cell[BoxData["40.992658443272305`"], "Output", 3.993794933967904*^9, 3.9937950220699797`*^9, 3.993795701673514*^9, { 3.9937980623525543`*^9, 3.993798087690496*^9}, 3.9937986225354977`*^9, { 3.993798687459681*^9, 3.993798703739234*^9}, {3.993798733848922*^9, - 3.993798773482623*^9}, 3.9937988429216537`*^9}, - CellLabel-> - "Out[853]=",ExpressionUUID->"47e36843-3922-4371-9f76-b8dc4e67dc02"] + 3.993798773482623*^9}, 3.9937988429216537`*^9, 3.993826327044479*^9}, + CellLabel->"Out[87]=",ExpressionUUID->"681f41ee-453d-4beb-a7d4-37929339457a"] }, Open ]], Cell[CellGroupData[{ @@ -6065,8 +5967,7 @@ Cell[BoxData[ CellFrame->{{0, 0}, {0, 0}}, Background->RGBColor[0.87, 0.94, 1], CellTags->"evaluate for d", - CellLabel-> - "In[854]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + CellLabel->"In[88]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], Cell[BoxData["50.905183603196456`"], "Output", CellFrame->{{0, 0}, {0, 0}}, @@ -6078,11 +5979,10 @@ Cell[BoxData["50.905183603196456`"], "Output", 3.993794933987238*^9, 3.9937950220870867`*^9, 3.993795701689497*^9, { 3.9937980623663073`*^9, 3.993798087710561*^9}, 3.993798622554988*^9, { 3.993798687477092*^9, 3.993798703756913*^9}, {3.9937987338665113`*^9, - 3.99379877350078*^9}, 3.993798842938384*^9}, + 3.99379877350078*^9}, 3.993798842938384*^9, 3.9938263270722847`*^9}, Background->RGBColor[0.87, 0.94, 1], CellTags->"evaluate for d", - CellLabel-> - "Out[854]=",ExpressionUUID->"433805b9-be08-4aa6-8b54-1fe1b555c628"] + CellLabel->"Out[88]=",ExpressionUUID->"aafdff16-b87f-4129-ae6c-7af3a28459de"] }, Open ]], Cell[CellGroupData[{ @@ -6091,17 +5991,15 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel-> - "In[855]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + CellLabel->"In[89]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], Cell[BoxData["1.5124330554579029`"], "Output", CellChangeTimes->{ 3.991320421698473*^9, 3.993121005879211*^9, 3.993121056496807*^9, { 3.993798062380032*^9, 3.9937980877303333`*^9}, 3.993798622572345*^9, { 3.993798687494553*^9, 3.993798703774548*^9}, {3.9937987338843822`*^9, - 3.993798773518771*^9}, 3.993798842956616*^9}, - CellLabel-> - "Out[855]=",ExpressionUUID->"93ea9c75-33a3-4ba5-b6e2-b58e830a80b9"] + 3.993798773518771*^9}, 3.993798842956616*^9, 3.993826327103401*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"5084d9cc-b000-49e4-95bd-8b96fcde722c"] }, Open ]], Cell[CellGroupData[{ @@ -6112,17 +6010,15 @@ Cell[BoxData[ FractionBox["Kw", "Qw3"]]}]], "Input", CellChangeTimes->{{3.993120043433605*^9, 3.993120080888587*^9}, { 3.9937980122403173`*^9, 3.993798013190155*^9}}, - CellLabel-> - "In[856]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + CellLabel->"In[90]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], Cell[BoxData["4.141433548781928`"], "Output", CellChangeTimes->{ 3.991320421726494*^9, 3.993121005887855*^9, 3.993121056518838*^9, { 3.993798062393764*^9, 3.993798087749446*^9}, 3.9937986225896873`*^9, { 3.993798687511326*^9, 3.993798703791963*^9}, {3.9937987339036627`*^9, - 3.993798773536716*^9}, 3.993798842974411*^9}, - CellLabel-> - "Out[856]=",ExpressionUUID->"28c1668e-6943-4533-8e50-3e9c10178262"] + 3.993798773536716*^9}, 3.993798842974411*^9, 3.993826327134365*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"49d14398-9a85-49ab-883a-275351144e10"] }, Open ]], Cell[CellGroupData[{ @@ -6131,17 +6027,15 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel-> - "In[857]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + CellLabel->"In[91]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], Cell[BoxData["210.8204351811815`"], "Output", CellChangeTimes->{ 3.9913204217554817`*^9, 3.9931210058981657`*^9, 3.993121056541285*^9, { 3.99379806240757*^9, 3.993798087768424*^9}, 3.993798622607502*^9, { 3.993798687530957*^9, 3.993798703809649*^9}, {3.993798733922576*^9, - 3.993798773555025*^9}, 3.99379884299193*^9}, - CellLabel-> - "Out[857]=",ExpressionUUID->"79293da6-6b81-4013-9252-8f7b1f3177c0"] + 3.993798773555025*^9}, 3.99379884299193*^9, 3.9938263271669397`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"c8bcc095-ace5-4b32-9fc4-8b3c2cf3ef18"] }, Open ]], Cell[CellGroupData[{ @@ -6150,17 +6044,15 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[858]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + CellLabel->"In[92]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], Cell[BoxData["61.99865166070053`"], "Output", CellChangeTimes->{ 3.9913204217855225`*^9, 3.993121005907679*^9, 3.993121056563224*^9, { 3.993798062421178*^9, 3.993798087787828*^9}, 3.993798622624959*^9, { 3.993798687547456*^9, 3.993798703813374*^9}, {3.993798733941412*^9, - 3.993798773573119*^9}, 3.9937988430087023`*^9}, - CellLabel-> - "Out[858]=",ExpressionUUID->"575e82a5-e433-46c9-b341-8f707fbfbf95"] + 3.993798773573119*^9}, 3.9937988430087023`*^9, 3.993826327194476*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"b2c0fd15-fd81-4a66-aabf-d12851e170f9"] }, Open ]], Cell[CellGroupData[{ @@ -6349,17 +6241,15 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[859]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + CellLabel->"In[93]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], Cell[BoxData["0.00436700020790866`"], "Output", CellChangeTimes->{ 3.9913204218154297`*^9, 3.9931210059165583`*^9, 3.993121056585721*^9, { 3.993798062435758*^9, 3.9937980878081207`*^9}, 3.993798622643169*^9, { 3.9937986875651093`*^9, 3.993798703843587*^9}, {3.9937987339593887`*^9, - 3.993798773592197*^9}, 3.993798843026176*^9}, - CellLabel-> - "Out[859]=",ExpressionUUID->"8f12cd5c-79d6-4786-b1f8-7e826ae0907b"] + 3.993798773592197*^9}, 3.993798843026176*^9, 3.9938263272390213`*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"fbe88276-43a5-4620-9aba-6a41b5ca4ee8"] }, Open ]], Cell[CellGroupData[{ @@ -6373,8 +6263,7 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->RGBColor[0.4, 0.6, 1, 0.33], - CellLabel-> - "In[860]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + CellLabel->"In[94]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], Cell[BoxData["13.410758269852968`"], "Output", CellChangeTimes->{ @@ -6382,10 +6271,9 @@ Cell[BoxData["13.410758269852968`"], "Output", 3.993798062477036*^9, 3.9937980878492517`*^9}, {3.993798622678007*^9, 3.9937986357514753`*^9}, {3.9937986876176863`*^9, 3.9937987038914967`*^9}, {3.993798734002857*^9, 3.9937987736400557`*^9}, - 3.993798843079463*^9}, + 3.993798843079463*^9, 3.993826327335005*^9}, Background->RGBColor[0.14, 0.8, 0.14, 0.33], - CellLabel-> - "Out[860]=",ExpressionUUID->"3e98c128-8bdc-4ac8-ab25-62e0a82f6525"] + CellLabel->"Out[94]=",ExpressionUUID->"8c75b09c-dde1-4275-a5ff-c1709e390500"] }, Open ]], Cell[CellGroupData[{ @@ -6576,16 +6464,14 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[861]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + CellLabel->"In[95]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], Cell[BoxData["0.015491986341570578`"], "Output", CellChangeTimes->{ 3.9913204229248886`*^9, 3.993121006658537*^9, 3.993121056705227*^9, { 3.993798062493713*^9, 3.9937980878686857`*^9}, 3.9937986226979437`*^9, - 3.993798843099059*^9}, - CellLabel-> - "Out[861]=",ExpressionUUID->"aba12b73-5a6a-480a-9157-749a58469f5d"] + 3.993798843099059*^9, 3.993826327370598*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"f68f3a3c-5d0b-4798-93aa-d02cc8861ea2"] }, Open ]], Cell[CellGroupData[{ @@ -6599,17 +6485,15 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", Background->None, - CellLabel-> - "In[862]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + CellLabel->"In[96]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], Cell[BoxData["7.120186805817189`"], "Output", CellChangeTimes->{ 3.9913204230053368`*^9, 3.993121007336217*^9, 3.993121056800115*^9, { 3.993798062535441*^9, 3.993798087906747*^9}, 3.993798622732478*^9, - 3.9937988431452713`*^9}, + 3.9937988431452713`*^9, 3.993826327504403*^9}, Background->None, - CellLabel-> - "Out[862]=",ExpressionUUID->"b3562db5-2d90-403e-8c9b-2f4fb084237d"] + CellLabel->"Out[96]=",ExpressionUUID->"9ca47b9a-2d3d-4acf-9650-1fafa34e40f1"] }, Open ]], Cell[CellGroupData[{ @@ -6701,14 +6585,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[863]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + CellLabel->"In[97]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], Cell[BoxData["0.10999833674656989`"], "Output", CellChangeTimes->{3.9913204230393543`*^9, 3.9931210073669453`*^9, - 3.993121056824998*^9, 3.993798622754242*^9, 3.993798843163168*^9}, - CellLabel-> - "Out[863]=",ExpressionUUID->"c7a36389-df19-4494-8a52-7df38bed173c"] + 3.993121056824998*^9, 3.993798622754242*^9, 3.993798843163168*^9, + 3.993826327538026*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"2807222d-61f0-4504-a9d2-b0e5530cc05e"] }, Open ]], Cell[CellGroupData[{ @@ -6797,14 +6680,13 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel-> - "In[864]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + CellLabel->"In[98]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], Cell[BoxData["0.8900016632534301`"], "Output", CellChangeTimes->{3.9913204230728855`*^9, 3.99312100737821*^9, - 3.993121056847259*^9, 3.993798622771224*^9, 3.993798843182561*^9}, - CellLabel-> - "Out[864]=",ExpressionUUID->"df31e323-a507-44f1-be89-7812c7ec5aea"] + 3.993121056847259*^9, 3.993798622771224*^9, 3.993798843182561*^9, + 3.993826327567788*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"650d6d03-9e77-4691-b8f2-9cb418b42ef4"] }, Open ]], Cell[CellGroupData[{ @@ -6926,21 +6808,20 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[865]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + CellLabel->"In[99]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], Cell[BoxData["0.0978987026595581`"], "Output", CellChangeTimes->{3.9913204231038837`*^9, 3.9931210073885508`*^9, - 3.993121056869521*^9, 3.993798622789006*^9, 3.993798843199868*^9}, - CellLabel-> - "Out[865]=",ExpressionUUID->"7eaa7d99-e779-4c74-89b1-db243b2effed"] + 3.993121056869521*^9, 3.993798622789006*^9, 3.993798843199868*^9, + 3.993826327612034*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"ce612472-6a26-404c-8b47-c609b9cb5c7d"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel-> - "In[866]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], + "In[100]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -7003,7 +6884,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.991799443370365*^9}, CellLabel-> - "In[867]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], + "In[101]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], Cell[BoxData[ TemplateBox[{ @@ -7011,15 +6892,16 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.055941673302348`*^-210\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 867, 9, - 31384655379123623332, "Local"}, +normalized machine number; precision may be lost.\"", 2, 101, 17, + 31384839246403033844, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204231548862`*^9, 3.9931210076232777`*^9, - 3.993121057095438*^9, 3.993798622822413*^9, 3.993798843274344*^9}, + 3.993121057095438*^9, 3.993798622822413*^9, 3.993798843274344*^9, + 3.993826327647481*^9}, CellLabel-> "During evaluation of \ -In[867]:=",ExpressionUUID->"f1f82686-f0fc-4d7b-88ea-d1896b6e3e06"], +In[101]:=",ExpressionUUID->"7d9e518d-e003-4f78-b423-bff75d578f89"], Cell[BoxData[ TemplateBox[{ @@ -7027,15 +6909,16 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.0573110848014097`*^-215\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 867, 10, - 31384655379123623332, "Local"}, +normalized machine number; precision may be lost.\"", 2, 101, 18, + 31384839246403033844, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204231548862`*^9, 3.9931210076232777`*^9, - 3.993121057095438*^9, 3.993798622822413*^9, 3.9937988432782497`*^9}, + 3.993121057095438*^9, 3.993798622822413*^9, 3.993798843274344*^9, + 3.993826327655067*^9}, CellLabel-> "During evaluation of \ -In[867]:=",ExpressionUUID->"47c38ad7-316f-4a00-a71a-07c57014b59c"], +In[101]:=",ExpressionUUID->"5c23f0a8-b85f-4c93-b012-d904e389f9ba"], Cell[BoxData[ TemplateBox[{ @@ -7043,35 +6926,38 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.0586822722393335`*^-220\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 867, 11, - 31384655379123623332, "Local"}, +normalized machine number; precision may be lost.\"", 2, 101, 19, + 31384839246403033844, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204231548862`*^9, 3.9931210076232777`*^9, - 3.993121057095438*^9, 3.993798622822413*^9, 3.993798843282566*^9}, + 3.993121057095438*^9, 3.993798622822413*^9, 3.993798843274344*^9, + 3.993826327661203*^9}, CellLabel-> "During evaluation of \ -In[867]:=",ExpressionUUID->"ab649682-d050-441b-8fdf-226b96b32b10"], +In[101]:=",ExpressionUUID->"1a3087ac-03c7-4aef-af7b-f3bd98370d92"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 867, 12, 31384655379123623332, "Local"}, +during this calculation.\"", 2, 101, 20, 31384839246403033844, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204231548862`*^9, 3.9931210076232777`*^9, - 3.993121057095438*^9, 3.993798622822413*^9, 3.9937988432852182`*^9}, + 3.993121057095438*^9, 3.993798622822413*^9, 3.993798843274344*^9, + 3.993826327667029*^9}, CellLabel-> "During evaluation of \ -In[867]:=",ExpressionUUID->"6c749ce2-2f75-4f5a-aebc-ceadab0998ec"], +In[101]:=",ExpressionUUID->"dbd1c291-de03-4fa8-a3ce-1211642255a6"], Cell[BoxData["13.410758269852955`"], "Output", CellChangeTimes->{3.9913204260017204`*^9, 3.993121041511737*^9, - 3.9931211682294207`*^9, 3.993798624067566*^9, 3.993798844986964*^9}, + 3.9931211682294207`*^9, 3.993798624067566*^9, 3.993798844986964*^9, + 3.9938263315466423`*^9}, CellLabel-> - "Out[867]=",ExpressionUUID->"f693270e-ad05-428c-94ca-41764e340b83"] + "Out[101]=",ExpressionUUID->"a3b4d42d-9bfc-4f76-af76-63e91759da29"] }, Open ]], Cell[CellGroupData[{ @@ -7135,7 +7021,7 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{3.9917994459475594`*^9}, CellLabel-> - "In[868]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], + "In[102]:=",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], Cell[BoxData[ TemplateBox[{ @@ -7143,15 +7029,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.055941673302348`*^-210\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 868, 13, - 31384655379123623332, "Local"}, +normalized machine number; precision may be lost.\"", 2, 102, 21, + 31384839246403033844, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204262354183`*^9, 3.993121168521811*^9, - 3.9937986241108637`*^9, 3.993798845038229*^9}, + 3.9937986241108637`*^9, 3.993798845038229*^9, 3.993826331652994*^9}, CellLabel-> "During evaluation of \ -In[868]:=",ExpressionUUID->"117dbaf3-69a5-4982-ac63-00cdb4e62103"], +In[102]:=",ExpressionUUID->"a2117334-a917-4b62-829e-e34372e89c90"], Cell[BoxData[ TemplateBox[{ @@ -7159,15 +7045,15 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.0573110848014097`*^-215\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 868, 14, - 31384655379123623332, "Local"}, +normalized machine number; precision may be lost.\"", 2, 102, 22, + 31384839246403033844, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204262354183`*^9, 3.993121168521811*^9, - 3.9937986241108637`*^9, 3.993798845041243*^9}, + 3.9937986241108637`*^9, 3.993798845038229*^9, 3.993826331660796*^9}, CellLabel-> "During evaluation of \ -In[868]:=",ExpressionUUID->"0cbbdb60-1ec2-47d2-a951-078870b33e5d"], +In[102]:=",ExpressionUUID->"07191a69-e0ff-4cd3-a604-285a6972ee3e"], Cell[BoxData[ TemplateBox[{ @@ -7175,35 +7061,35 @@ Cell[BoxData[ "\"\\!\\(\\*FractionBox[\\\"1.0586822722393335`*^-220\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 868, 15, - 31384655379123623332, "Local"}, +normalized machine number; precision may be lost.\"", 2, 102, 23, + 31384839246403033844, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204262354183`*^9, 3.993121168521811*^9, - 3.9937986241108637`*^9, 3.993798845043592*^9}, + 3.9937986241108637`*^9, 3.993798845038229*^9, 3.993826331667883*^9}, CellLabel-> "During evaluation of \ -In[868]:=",ExpressionUUID->"dd6bd31b-100a-4bf8-b964-abceba8621cf"], +In[102]:=",ExpressionUUID->"18bfdf92-5709-4cfa-8f6c-d0d4820a99d4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 868, 16, 31384655379123623332, "Local"}, +during this calculation.\"", 2, 102, 24, 31384839246403033844, "kernel 1"}, "MessageTemplate", BaseStyle->"MSG"]], "Message", CellChangeTimes->{3.9913204262354183`*^9, 3.993121168521811*^9, - 3.9937986241108637`*^9, 3.993798845045743*^9}, + 3.9937986241108637`*^9, 3.993798845038229*^9, 3.9938263316735888`*^9}, CellLabel-> "During evaluation of \ -In[868]:=",ExpressionUUID->"5fcb8407-72eb-4536-8c25-5258681abbca"], +In[102]:=",ExpressionUUID->"d8ef8d47-c574-4ed4-b2e6-11179b7819a0"], Cell[BoxData["7.120186805817185`"], "Output", CellChangeTimes->{3.991320428882721*^9, 3.993121282011409*^9, - 3.993798625302651*^9, 3.9937988466457157`*^9}, + 3.993798625302651*^9, 3.9937988466457157`*^9, 3.993826335255014*^9}, CellLabel-> - "Out[868]=",ExpressionUUID->"4ed580b8-8fe6-4ea2-b605-609c224f5a8a"] + "Out[102]=",ExpressionUUID->"3a66de60-7258-4e7d-a32c-526066f71c62"] }, Open ]], Cell[CellGroupData[{ @@ -7261,13 +7147,396 @@ Cell[BoxData[ RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.9917994505623856`*^9}, CellLabel-> - "In[869]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], + "In[103]:=",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[BoxData["$Aborted"], "Output", +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk0Vd0bB3CzTGUoksxDUeR1EeXneUIpGZojkuGeQ0KRJIokGkhIc6hE +QkpKRL1C8kqRZhXuNSTzPJyr+u3+OGuvz9prf/f37LPOOepeezdRAnx8fN3k ++jsGvTFY9LjxjWXX5+A5xz9wwHLglomXTT4ozlja/nVbhmmqlk05lF7NGPjr +DezXIpKsF+D/PFU4jrgwLKpK2KYe1h9RSThBfKpmfkVU7luo67Q4doq4tDEo +fcboA3xRGPoRT9zTXHf4UNlnqDE1e5pIvKBT03XC+huw/ecJpBCvHzxsvr++ +FZq6TxSfJ3420yMRlsuBF9yzzZeJP0YrRBQHtoPhRf3AdOIBEZueMaNOKFjn +GZRJLJKwz4U12QVCNks6cohVZNJqg8q64erH+JoCYkeliewB6z5o15ZtLiOm +r2vI688agO2ZZhJVxFHaTrF76gchacVkXh3xZ4X3/4TkDkNmpKXFV2L2Dr/d +5xJGIFe1dkkH8dA1vhsPAkfhc2Xv6X7iWRr60sNG45BrKXiJ/yMHUtlVttLz +JmDCcmq1JLHabZeoZZMTkJx0yluB2Gxp3EBA2RS8eBrTb0Dsa9pa32M9A7kV +Py28icfCDgiJ6/yChxnvfYKIj5ZJWOjO+g2dNz0FjhJfQrM8n/o/4H6Iiksn +ZmfV2gTn8uOdOP26NuLcmnNt0UoCeDDcKniEeOiH++HkBAE8zcd/WugTBw7r +jRfdDxTEq2ORs/SIU++paw4aCeNai7RV4cTNjX3PfmcKI99WZZ+zxGojj3fM +nieCrmIbZm4R5xs7puhPiuAD66YDb4mrS8P5/ctm4SL3wKxlnzkwXvWutdta +ElVX/G+K7wsHZO0lpSOeSWK98K7DqsSG721QylwKI1e1x1gS+3U8uv6PwWyc +fVBJOZJ4n0C94f8kpfFgw4kwwWYOdGoUDMdOyOAzZssHna/kfOg6sQaWLLrL +3E1yIBbI61KfHySLJ7edaQghVmOpbsrtlcUG2eFP1cQ7rJMevGmTw+zGZLk9 +3zjQ4B28X+HVPJQJKDVr/M6BltuJ8R6z5HHcrkv/D3Ffb27mndXySE/8l23Q +wgHxkPZ3KyvkMSy1UvMssc3xLcYejxTQafS93bZWDjy5ZTqek6GIBokRG361 +ceBWJxO6IkQZn71N2FzQwYG1W0+07L+rjCf5Z878JO6rlltzt0sZ61zvrNTu +5IDxraXz1FxUUCCzfiiNuNrLvUjYUhV3RV2uTO3iwMhg28HuGDU8eueY6KVu +DsgF2DwsctBA1brsf8b7ONB1S9x3g58GXjBZ+tWynwMl3xqV+uM08JhNwNRJ +Yjf7nTE6FRo4+i8rUWWA9FsSuumykSYavnZY5DRI9u+5PRSpoIVV3nfkaoY5 +sMVHQt+Oo43Lq6fHxSc5AKFbjbb/0kZaRIrtSawXm7GcraiDNr6Dq0qI+TJZ +VpEbddBf18TBZ4oDd1tctz94roMSG51u1k2T93NbfvSCm4tw/uLF67NnSD8b +h489Xrq46ZpAeaEAFzI3X/w6GamLxZpD+vKCXEj04rQJXdXFwGtbpSOI2UcP +9Kq808W1yhk6a4S4IFOexrfZWg/3Ntdf5ghzwY81oFemuQS70/Iy9MW4oKRx +Niq+Yymaih/dvECaC+Wnx3SnBfTRJyzxygVit1GX97S6Pt4Z+UzLyXAhvVpL +18pdHxWkrM/OluWChs+TpqlP+ljzaouaxFwu6OV3atOvDFBsVZOd8nwuKCup +0Gouhthfo/A7S40LS7NCJHlghMezNDh2LC54sWPG9R2N0MY+yLCF+JJmSouH +mxG+OfB2PMiYC4I3792vCTNCY/Vu7hUTLjSn92xJKTTCkgk325HlXDh1ySNN +V5OFyt09+NiCC13x9gbOIsYoqqBmfGUNF24Ea214VG+C3fSphTWuXHjQUhE/ +/5sJLg3WlY5z40Kl3c6XEb0m2Ce0NHnNTi50aFywtBI3xby5CSv/c+eCzjtR +/QZbU1RbqM764MmFfFav2M9KU+yXFSkV9eVCyVhh1cLS5RjsWXf4UwgXGkNh ++fEscyx82vdTK4kL6u4fHHf6/w95fbWhO+u5QP0pLlA+hOiW/p90mmQ7KPSW +iCp4WWHMmjf2Lq7tEMKy+JaiZ4M3I05X3bjbDl79M7VyPavRqHBq4JVIB9y1 +2i+a0WCLb1Zp7vMO6oBbY37P81PXYcLQNXpPSwdMrZr/ujpqPfbv+pd/765O ++M4nOMzxdMDtUevyDvzshMCFe5OiNZ3QJu5ixuOQLijYXVtxPnYDSkq/rclT ++AHho4qTS3ZvxIuVoxXby37AuN2abS93bcIeKW58+aFuMHdNXtW5cTMWQeG9 +1VY/oUkxza+atQXPO25S+SzWAwuyY8pzFm/F0pcCeYuHeqCkTc/eUWobyk97 +XDj2vhdU3g/5hPZvQ8kLkta/K/qAdT45P7NtO3bne8o/auiHNKFRg5QqZzSn +TmD8lwEoXrWsObbUBTPCAxZ0CA7BpeWnZWZyd+Aj1bRo7YwhaPiaFcdKcMXa +b76fXpoMwyOHa1r7jrrh7ytFZbyWYRgO2MwXyN6Jzr8UljZEj8D4Gl3fAWt3 +5Os7qWerPQo5/V+m9pvuwhp3sQjmyyg438jy3inpgbP/8/Y9f3wMih6s3yV4 +wgOVb3n1WFmOg7lS0/SpaQ80DeZv/a9nHDTbfJrf7vbEveoC6ceTJ6BDYo/T +tXZP9GuSv1KwahIaEx29bbd6YbrLyfii1klIDcuQONDohT5Bp65fi56C8md/ +pr3XeWNzeurL+3OnYY4bnmA98UbWltY7C5OnwdxjICfWmI1sjakPDaIMZF8e +2u9oykZVs5pNvmIMzH03YqlgxkbFTRPVf8QZGFg9+T5nJRuXdz47sWQ2Q75f +fPz1VmwUvv06PHQuA7MnZVxkN7Jxn/3B4i9qDHScMRHLCGDjHoN1CU1mDCSW +Hd5dks3GWfM+loRSDAQYXTQPyyHzOprXK2kG7O8UipnlstH9sX6glC8D4he7 +7jy+y8a6PpmnGX4MxAZv6Cl+yEbot1r4eC8Dh3W19jyqZOMDvuiU+4cY8Lv4 +yv9BCxtz3aZ+vUpgYN3sLovgNjYOD9bJjp1hYHEsn5QRl41f4ayg0lkGuoJN +7hZ2stHzcdZBKpkBT8eM/vt9bIxW1bnRd54BZ+H9gfcYNu5utSqqSmfAdv+C +ffnyFIYJ7CtMucdAZUacXcp8CkX9l6Xl3WfAon5EK2wBhXNjS7WrChkw1H71 +xVqFQq2YMomBIgYUP0VYf9Wm0H9/oDqrhIHeFd/lxU0odO9/oBVewcBZgetP +fTZTmFbkrzfdQO5/meQlh60UlouDUGcjA8ddw4JZ2ym8prVwX8NbBsIeblj0 +ZweFJsblMxnvSH+aP/mCF4Xdi+dyln1igFXnxX4RROH5mKxz4i0MfErWltBM +olCi7cKtOz0MFICUb3cyhfRgT+KOXpLfP1Z99xyFXXpNRuJ9DBitq440u0hh +yODpbKqfPD8+7xGHdAonTs0xkxpiYM3e61/C8insL+76pDLOgLLySVPLAgqH +w7qsy4jH6vaeE7xP4ddRmt42wcBNHXBILKIw0dXozclJBn59/16R+YTCzcX8 +Wi3TDDy0V8p5U0vhdgOjSrvfDMQzAsKpdRSqB0VENxF75fR4utRTKP0tecz5 +DwPSQk+UOhooLA6IG/fk44F/mfPZ6Y8U8p1d7c4W4IGm3oVQrU4KPU7K5eqJ +8ID5dOTdzy4Kl0ViahpxYyxleK+bwsjaH8vmiPIgkmPcY95H4ZSoSsQAcfOl +dzudRikMiIrfmSbGgxRRmdXh/DTu+lVhWk7+NOUj311DBGksP1rLpy3Fgx/f +c4MDhWkUZ2IXJRBbPLS57iVGo3L4qdNbZ/OgyyOMZydDI9cp8+b7OTyQtl8t +u1qORoMfaxwNpXmwcrmsLsyjcUHSka2niZOk8rexFGkMMlQJNZch809aC5XU +aZw4mjUTI8sDOiu/dp4mjXLm26KbiJOSDrXO0aYxRDbdQ1WO7EfLSQnp0rj3 +9VGDh8RJcra+fYY0vmKlCtXN5cGT33JRXUY0Ukd4OyTm8aDzZ9v5NmMaaQ1t +ifXEKyrCq96b0ZhS4xH2grjDv0DlKZJ+P4SOZ8vzYLZzhMljKxo/64tkNxOb +W6+1L7ShsdRrobqUAg8SFbmHstbSqHPRQiOAuEToXlKGHY28Gxo5V4jbByNu +X7an8Xbhh7gaYrOaeR/ObKDRutLTUXE+D7wKub0nNtG4rkJpORKfuXZP4NgW +GuOessMoYm7wOsNQZxoh0l8oj1jKXd523w4anY1knF4Rm61r3+nnRs6rRnrk +59/1qkfi3T1o9LEeRQ1F0kfc7qazF40vpZ/3rSTmjsuXbmLTWHvq36HNxFKc +9gZ7mkapgk57P2Kz+vtda3xpHFRawh9F7PX4yC/0ozFX+qRUCvGZm3ZzV/rT +uNZ3PCjzb/4ZhSUmgTQ+TfM3KPqbH9axatk+Gj/W/bB6TizJLnTWDabRNsfz +3mvi5U6RezVDaKw682H/57/5K9bHKYfS2BEESRziBO35aQphNC7ruSr0k7hY +urNIJpxG0yXdjQPEHF5hncRhGg/N0hgf+Zv/I5IjHEnjwTHboHFi06b1U3+i +aCzmc1k9Qfx//Lb3Dw== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vd0bB3CzTGUoksxDUeR1EeXneUIpGZojkuGeQ0KRJIokGkhIc6hE +QkpKRL1C8kqRZhXuNSTzPJyr+u3+OGuvz9prf/f37LPOOepeezdRAnx8fN3k ++jsGvTFY9LjxjWXX5+A5xz9wwHLglomXTT4ozlja/nVbhmmqlk05lF7NGPjr +DezXIpKsF+D/PFU4jrgwLKpK2KYe1h9RSThBfKpmfkVU7luo67Q4doq4tDEo +fcboA3xRGPoRT9zTXHf4UNlnqDE1e5pIvKBT03XC+huw/ecJpBCvHzxsvr++ +FZq6TxSfJ3420yMRlsuBF9yzzZeJP0YrRBQHtoPhRf3AdOIBEZueMaNOKFjn +GZRJLJKwz4U12QVCNks6cohVZNJqg8q64erH+JoCYkeliewB6z5o15ZtLiOm +r2vI688agO2ZZhJVxFHaTrF76gchacVkXh3xZ4X3/4TkDkNmpKXFV2L2Dr/d +5xJGIFe1dkkH8dA1vhsPAkfhc2Xv6X7iWRr60sNG45BrKXiJ/yMHUtlVttLz +JmDCcmq1JLHabZeoZZMTkJx0yluB2Gxp3EBA2RS8eBrTb0Dsa9pa32M9A7kV +Py28icfCDgiJ6/yChxnvfYKIj5ZJWOjO+g2dNz0FjhJfQrM8n/o/4H6Iiksn +ZmfV2gTn8uOdOP26NuLcmnNt0UoCeDDcKniEeOiH++HkBAE8zcd/WugTBw7r +jRfdDxTEq2ORs/SIU++paw4aCeNai7RV4cTNjX3PfmcKI99WZZ+zxGojj3fM +nieCrmIbZm4R5xs7puhPiuAD66YDb4mrS8P5/ctm4SL3wKxlnzkwXvWutdta +ElVX/G+K7wsHZO0lpSOeSWK98K7DqsSG721QylwKI1e1x1gS+3U8uv6PwWyc +fVBJOZJ4n0C94f8kpfFgw4kwwWYOdGoUDMdOyOAzZssHna/kfOg6sQaWLLrL +3E1yIBbI61KfHySLJ7edaQghVmOpbsrtlcUG2eFP1cQ7rJMevGmTw+zGZLk9 +3zjQ4B28X+HVPJQJKDVr/M6BltuJ8R6z5HHcrkv/D3Ffb27mndXySE/8l23Q +wgHxkPZ3KyvkMSy1UvMssc3xLcYejxTQafS93bZWDjy5ZTqek6GIBokRG361 +ceBWJxO6IkQZn71N2FzQwYG1W0+07L+rjCf5Z878JO6rlltzt0sZ61zvrNTu +5IDxraXz1FxUUCCzfiiNuNrLvUjYUhV3RV2uTO3iwMhg28HuGDU8eueY6KVu +DsgF2DwsctBA1brsf8b7ONB1S9x3g58GXjBZ+tWynwMl3xqV+uM08JhNwNRJ +Yjf7nTE6FRo4+i8rUWWA9FsSuumykSYavnZY5DRI9u+5PRSpoIVV3nfkaoY5 +sMVHQt+Oo43Lq6fHxSc5AKFbjbb/0kZaRIrtSawXm7GcraiDNr6Dq0qI+TJZ +VpEbddBf18TBZ4oDd1tctz94roMSG51u1k2T93NbfvSCm4tw/uLF67NnSD8b +h489Xrq46ZpAeaEAFzI3X/w6GamLxZpD+vKCXEj04rQJXdXFwGtbpSOI2UcP +9Kq808W1yhk6a4S4IFOexrfZWg/3Ntdf5ghzwY81oFemuQS70/Iy9MW4oKRx +Niq+Yymaih/dvECaC+Wnx3SnBfTRJyzxygVit1GX97S6Pt4Z+UzLyXAhvVpL +18pdHxWkrM/OluWChs+TpqlP+ljzaouaxFwu6OV3atOvDFBsVZOd8nwuKCup +0Gouhthfo/A7S40LS7NCJHlghMezNDh2LC54sWPG9R2N0MY+yLCF+JJmSouH +mxG+OfB2PMiYC4I3792vCTNCY/Vu7hUTLjSn92xJKTTCkgk325HlXDh1ySNN +V5OFyt09+NiCC13x9gbOIsYoqqBmfGUNF24Ea214VG+C3fSphTWuXHjQUhE/ +/5sJLg3WlY5z40Kl3c6XEb0m2Ce0NHnNTi50aFywtBI3xby5CSv/c+eCzjtR +/QZbU1RbqM764MmFfFav2M9KU+yXFSkV9eVCyVhh1cLS5RjsWXf4UwgXGkNh ++fEscyx82vdTK4kL6u4fHHf6/w95fbWhO+u5QP0pLlA+hOiW/p90mmQ7KPSW +iCp4WWHMmjf2Lq7tEMKy+JaiZ4M3I05X3bjbDl79M7VyPavRqHBq4JVIB9y1 +2i+a0WCLb1Zp7vMO6oBbY37P81PXYcLQNXpPSwdMrZr/ujpqPfbv+pd/765O ++M4nOMzxdMDtUevyDvzshMCFe5OiNZ3QJu5ixuOQLijYXVtxPnYDSkq/rclT ++AHho4qTS3ZvxIuVoxXby37AuN2abS93bcIeKW58+aFuMHdNXtW5cTMWQeG9 +1VY/oUkxza+atQXPO25S+SzWAwuyY8pzFm/F0pcCeYuHeqCkTc/eUWobyk97 +XDj2vhdU3g/5hPZvQ8kLkta/K/qAdT45P7NtO3bne8o/auiHNKFRg5QqZzSn +TmD8lwEoXrWsObbUBTPCAxZ0CA7BpeWnZWZyd+Aj1bRo7YwhaPiaFcdKcMXa +b76fXpoMwyOHa1r7jrrh7ytFZbyWYRgO2MwXyN6Jzr8UljZEj8D4Gl3fAWt3 +5Os7qWerPQo5/V+m9pvuwhp3sQjmyyg438jy3inpgbP/8/Y9f3wMih6s3yV4 +wgOVb3n1WFmOg7lS0/SpaQ80DeZv/a9nHDTbfJrf7vbEveoC6ceTJ6BDYo/T +tXZP9GuSv1KwahIaEx29bbd6YbrLyfii1klIDcuQONDohT5Bp65fi56C8md/ +pr3XeWNzeurL+3OnYY4bnmA98UbWltY7C5OnwdxjICfWmI1sjakPDaIMZF8e +2u9oykZVs5pNvmIMzH03YqlgxkbFTRPVf8QZGFg9+T5nJRuXdz47sWQ2Q75f +fPz1VmwUvv06PHQuA7MnZVxkN7Jxn/3B4i9qDHScMRHLCGDjHoN1CU1mDCSW +Hd5dks3GWfM+loRSDAQYXTQPyyHzOprXK2kG7O8UipnlstH9sX6glC8D4he7 +7jy+y8a6PpmnGX4MxAZv6Cl+yEbot1r4eC8Dh3W19jyqZOMDvuiU+4cY8Lv4 +yv9BCxtz3aZ+vUpgYN3sLovgNjYOD9bJjp1hYHEsn5QRl41f4ayg0lkGuoJN +7hZ2stHzcdZBKpkBT8eM/vt9bIxW1bnRd54BZ+H9gfcYNu5utSqqSmfAdv+C +ffnyFIYJ7CtMucdAZUacXcp8CkX9l6Xl3WfAon5EK2wBhXNjS7WrChkw1H71 +xVqFQq2YMomBIgYUP0VYf9Wm0H9/oDqrhIHeFd/lxU0odO9/oBVewcBZgetP +fTZTmFbkrzfdQO5/meQlh60UlouDUGcjA8ddw4JZ2ym8prVwX8NbBsIeblj0 +ZweFJsblMxnvSH+aP/mCF4Xdi+dyln1igFXnxX4RROH5mKxz4i0MfErWltBM +olCi7cKtOz0MFICUb3cyhfRgT+KOXpLfP1Z99xyFXXpNRuJ9DBitq440u0hh +yODpbKqfPD8+7xGHdAonTs0xkxpiYM3e61/C8insL+76pDLOgLLySVPLAgqH +w7qsy4jH6vaeE7xP4ddRmt42wcBNHXBILKIw0dXozclJBn59/16R+YTCzcX8 +Wi3TDDy0V8p5U0vhdgOjSrvfDMQzAsKpdRSqB0VENxF75fR4utRTKP0tecz5 +DwPSQk+UOhooLA6IG/fk44F/mfPZ6Y8U8p1d7c4W4IGm3oVQrU4KPU7K5eqJ +8ID5dOTdzy4Kl0ViahpxYyxleK+bwsjaH8vmiPIgkmPcY95H4ZSoSsQAcfOl +dzudRikMiIrfmSbGgxRRmdXh/DTu+lVhWk7+NOUj311DBGksP1rLpy3Fgx/f +c4MDhWkUZ2IXJRBbPLS57iVGo3L4qdNbZ/OgyyOMZydDI9cp8+b7OTyQtl8t +u1qORoMfaxwNpXmwcrmsLsyjcUHSka2niZOk8rexFGkMMlQJNZch809aC5XU +aZw4mjUTI8sDOiu/dp4mjXLm26KbiJOSDrXO0aYxRDbdQ1WO7EfLSQnp0rj3 +9VGDh8RJcra+fYY0vmKlCtXN5cGT33JRXUY0Ukd4OyTm8aDzZ9v5NmMaaQ1t +ifXEKyrCq96b0ZhS4xH2grjDv0DlKZJ+P4SOZ8vzYLZzhMljKxo/64tkNxOb +W6+1L7ShsdRrobqUAg8SFbmHstbSqHPRQiOAuEToXlKGHY28Gxo5V4jbByNu +X7an8Xbhh7gaYrOaeR/ObKDRutLTUXE+D7wKub0nNtG4rkJpORKfuXZP4NgW +GuOessMoYm7wOsNQZxoh0l8oj1jKXd523w4anY1knF4Rm61r3+nnRs6rRnrk +59/1qkfi3T1o9LEeRQ1F0kfc7qazF40vpZ/3rSTmjsuXbmLTWHvq36HNxFKc +9gZ7mkapgk57P2Kz+vtda3xpHFRawh9F7PX4yC/0ozFX+qRUCvGZm3ZzV/rT +uNZ3PCjzb/4ZhSUmgTQ+TfM3KPqbH9axatk+Gj/W/bB6TizJLnTWDabRNsfz +3mvi5U6RezVDaKw682H/57/5K9bHKYfS2BEESRziBO35aQphNC7ruSr0k7hY +urNIJpxG0yXdjQPEHF5hncRhGg/N0hgf+Zv/I5IjHEnjwTHboHFi06b1U3+i +aCzmc1k9Qfx//Lb3Dw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5573139478426838, + 1.6938383778470274`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5573139478426851}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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, 180}, {0.5573139478426838, + 1.6938383778470274`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5573139478426851}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0Vd0bB3CzTGUoksxDUeR1EeXneUIpGZojkuGeQ0KRJIokGkhIc6hE +QkpKRL1C8kqRZhXuNSTzPJyr+u3+OGuvz9prf/f37LPOOepeezdRAnx8fN3k ++jsGvTFY9LjxjWXX5+A5xz9wwHLglomXTT4ozlja/nVbhmmqlk05lF7NGPjr +DezXIpKsF+D/PFU4jrgwLKpK2KYe1h9RSThBfKpmfkVU7luo67Q4doq4tDEo +fcboA3xRGPoRT9zTXHf4UNlnqDE1e5pIvKBT03XC+huw/ecJpBCvHzxsvr++ +FZq6TxSfJ3420yMRlsuBF9yzzZeJP0YrRBQHtoPhRf3AdOIBEZueMaNOKFjn +GZRJLJKwz4U12QVCNks6cohVZNJqg8q64erH+JoCYkeliewB6z5o15ZtLiOm +r2vI688agO2ZZhJVxFHaTrF76gchacVkXh3xZ4X3/4TkDkNmpKXFV2L2Dr/d +5xJGIFe1dkkH8dA1vhsPAkfhc2Xv6X7iWRr60sNG45BrKXiJ/yMHUtlVttLz +JmDCcmq1JLHabZeoZZMTkJx0yluB2Gxp3EBA2RS8eBrTb0Dsa9pa32M9A7kV +Py28icfCDgiJ6/yChxnvfYKIj5ZJWOjO+g2dNz0FjhJfQrM8n/o/4H6Iiksn +ZmfV2gTn8uOdOP26NuLcmnNt0UoCeDDcKniEeOiH++HkBAE8zcd/WugTBw7r +jRfdDxTEq2ORs/SIU++paw4aCeNai7RV4cTNjX3PfmcKI99WZZ+zxGojj3fM +nieCrmIbZm4R5xs7puhPiuAD66YDb4mrS8P5/ctm4SL3wKxlnzkwXvWutdta +ElVX/G+K7wsHZO0lpSOeSWK98K7DqsSG721QylwKI1e1x1gS+3U8uv6PwWyc +fVBJOZJ4n0C94f8kpfFgw4kwwWYOdGoUDMdOyOAzZssHna/kfOg6sQaWLLrL +3E1yIBbI61KfHySLJ7edaQghVmOpbsrtlcUG2eFP1cQ7rJMevGmTw+zGZLk9 +3zjQ4B28X+HVPJQJKDVr/M6BltuJ8R6z5HHcrkv/D3Ffb27mndXySE/8l23Q +wgHxkPZ3KyvkMSy1UvMssc3xLcYejxTQafS93bZWDjy5ZTqek6GIBokRG361 +ceBWJxO6IkQZn71N2FzQwYG1W0+07L+rjCf5Z878JO6rlltzt0sZ61zvrNTu +5IDxraXz1FxUUCCzfiiNuNrLvUjYUhV3RV2uTO3iwMhg28HuGDU8eueY6KVu +DsgF2DwsctBA1brsf8b7ONB1S9x3g58GXjBZ+tWynwMl3xqV+uM08JhNwNRJ +Yjf7nTE6FRo4+i8rUWWA9FsSuumykSYavnZY5DRI9u+5PRSpoIVV3nfkaoY5 +sMVHQt+Oo43Lq6fHxSc5AKFbjbb/0kZaRIrtSawXm7GcraiDNr6Dq0qI+TJZ +VpEbddBf18TBZ4oDd1tctz94roMSG51u1k2T93NbfvSCm4tw/uLF67NnSD8b +h489Xrq46ZpAeaEAFzI3X/w6GamLxZpD+vKCXEj04rQJXdXFwGtbpSOI2UcP +9Kq808W1yhk6a4S4IFOexrfZWg/3Ntdf5ghzwY81oFemuQS70/Iy9MW4oKRx +Niq+Yymaih/dvECaC+Wnx3SnBfTRJyzxygVit1GX97S6Pt4Z+UzLyXAhvVpL +18pdHxWkrM/OluWChs+TpqlP+ljzaouaxFwu6OV3atOvDFBsVZOd8nwuKCup +0Gouhthfo/A7S40LS7NCJHlghMezNDh2LC54sWPG9R2N0MY+yLCF+JJmSouH +mxG+OfB2PMiYC4I3792vCTNCY/Vu7hUTLjSn92xJKTTCkgk325HlXDh1ySNN +V5OFyt09+NiCC13x9gbOIsYoqqBmfGUNF24Ea214VG+C3fSphTWuXHjQUhE/ +/5sJLg3WlY5z40Kl3c6XEb0m2Ce0NHnNTi50aFywtBI3xby5CSv/c+eCzjtR +/QZbU1RbqM764MmFfFav2M9KU+yXFSkV9eVCyVhh1cLS5RjsWXf4UwgXGkNh ++fEscyx82vdTK4kL6u4fHHf6/w95fbWhO+u5QP0pLlA+hOiW/p90mmQ7KPSW +iCp4WWHMmjf2Lq7tEMKy+JaiZ4M3I05X3bjbDl79M7VyPavRqHBq4JVIB9y1 +2i+a0WCLb1Zp7vMO6oBbY37P81PXYcLQNXpPSwdMrZr/ujpqPfbv+pd/765O ++M4nOMzxdMDtUevyDvzshMCFe5OiNZ3QJu5ixuOQLijYXVtxPnYDSkq/rclT ++AHho4qTS3ZvxIuVoxXby37AuN2abS93bcIeKW58+aFuMHdNXtW5cTMWQeG9 +1VY/oUkxza+atQXPO25S+SzWAwuyY8pzFm/F0pcCeYuHeqCkTc/eUWobyk97 +XDj2vhdU3g/5hPZvQ8kLkta/K/qAdT45P7NtO3bne8o/auiHNKFRg5QqZzSn +TmD8lwEoXrWsObbUBTPCAxZ0CA7BpeWnZWZyd+Aj1bRo7YwhaPiaFcdKcMXa +b76fXpoMwyOHa1r7jrrh7ytFZbyWYRgO2MwXyN6Jzr8UljZEj8D4Gl3fAWt3 +5Os7qWerPQo5/V+m9pvuwhp3sQjmyyg438jy3inpgbP/8/Y9f3wMih6s3yV4 +wgOVb3n1WFmOg7lS0/SpaQ80DeZv/a9nHDTbfJrf7vbEveoC6ceTJ6BDYo/T +tXZP9GuSv1KwahIaEx29bbd6YbrLyfii1klIDcuQONDohT5Bp65fi56C8md/ +pr3XeWNzeurL+3OnYY4bnmA98UbWltY7C5OnwdxjICfWmI1sjakPDaIMZF8e +2u9oykZVs5pNvmIMzH03YqlgxkbFTRPVf8QZGFg9+T5nJRuXdz47sWQ2Q75f +fPz1VmwUvv06PHQuA7MnZVxkN7Jxn/3B4i9qDHScMRHLCGDjHoN1CU1mDCSW +Hd5dks3GWfM+loRSDAQYXTQPyyHzOprXK2kG7O8UipnlstH9sX6glC8D4he7 +7jy+y8a6PpmnGX4MxAZv6Cl+yEbot1r4eC8Dh3W19jyqZOMDvuiU+4cY8Lv4 +yv9BCxtz3aZ+vUpgYN3sLovgNjYOD9bJjp1hYHEsn5QRl41f4ayg0lkGuoJN +7hZ2stHzcdZBKpkBT8eM/vt9bIxW1bnRd54BZ+H9gfcYNu5utSqqSmfAdv+C +ffnyFIYJ7CtMucdAZUacXcp8CkX9l6Xl3WfAon5EK2wBhXNjS7WrChkw1H71 +xVqFQq2YMomBIgYUP0VYf9Wm0H9/oDqrhIHeFd/lxU0odO9/oBVewcBZgetP +fTZTmFbkrzfdQO5/meQlh60UlouDUGcjA8ddw4JZ2ym8prVwX8NbBsIeblj0 +ZweFJsblMxnvSH+aP/mCF4Xdi+dyln1igFXnxX4RROH5mKxz4i0MfErWltBM +olCi7cKtOz0MFICUb3cyhfRgT+KOXpLfP1Z99xyFXXpNRuJ9DBitq440u0hh +yODpbKqfPD8+7xGHdAonTs0xkxpiYM3e61/C8insL+76pDLOgLLySVPLAgqH +w7qsy4jH6vaeE7xP4ddRmt42wcBNHXBILKIw0dXozclJBn59/16R+YTCzcX8 +Wi3TDDy0V8p5U0vhdgOjSrvfDMQzAsKpdRSqB0VENxF75fR4utRTKP0tecz5 +DwPSQk+UOhooLA6IG/fk44F/mfPZ6Y8U8p1d7c4W4IGm3oVQrU4KPU7K5eqJ +8ID5dOTdzy4Kl0ViahpxYyxleK+bwsjaH8vmiPIgkmPcY95H4ZSoSsQAcfOl +dzudRikMiIrfmSbGgxRRmdXh/DTu+lVhWk7+NOUj311DBGksP1rLpy3Fgx/f +c4MDhWkUZ2IXJRBbPLS57iVGo3L4qdNbZ/OgyyOMZydDI9cp8+b7OTyQtl8t +u1qORoMfaxwNpXmwcrmsLsyjcUHSka2niZOk8rexFGkMMlQJNZch809aC5XU +aZw4mjUTI8sDOiu/dp4mjXLm26KbiJOSDrXO0aYxRDbdQ1WO7EfLSQnp0rj3 +9VGDh8RJcra+fYY0vmKlCtXN5cGT33JRXUY0Ukd4OyTm8aDzZ9v5NmMaaQ1t +ifXEKyrCq96b0ZhS4xH2grjDv0DlKZJ+P4SOZ8vzYLZzhMljKxo/64tkNxOb +W6+1L7ShsdRrobqUAg8SFbmHstbSqHPRQiOAuEToXlKGHY28Gxo5V4jbByNu +X7an8Xbhh7gaYrOaeR/ObKDRutLTUXE+D7wKub0nNtG4rkJpORKfuXZP4NgW +GuOessMoYm7wOsNQZxoh0l8oj1jKXd523w4anY1knF4Rm61r3+nnRs6rRnrk +59/1qkfi3T1o9LEeRQ1F0kfc7qazF40vpZ/3rSTmjsuXbmLTWHvq36HNxFKc +9gZ7mkapgk57P2Kz+vtda3xpHFRawh9F7PX4yC/0ozFX+qRUCvGZm3ZzV/rT +uNZ3PCjzb/4ZhSUmgTQ+TfM3KPqbH9axatk+Gj/W/bB6TizJLnTWDabRNsfz +3mvi5U6RezVDaKw682H/57/5K9bHKYfS2BEESRziBO35aQphNC7ruSr0k7hY +urNIJpxG0yXdjQPEHF5hncRhGg/N0hgf+Zv/I5IjHEnjwTHboHFi06b1U3+i +aCzmc1k9Qfx//Lb3Dw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5573139478426838, 1.6938383778470274`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5573139478426851}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.24, 0.6, 0.8], + 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.5573139478426851}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5573139478426838, 1.6938383778470274`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9913206956809444`*^9, 3.9931218653621607`*^9, - 3.993798632938286*^9, 3.993799002345874*^9}, + 3.993798632938286*^9, 3.993799002345874*^9, 3.99382661435528*^9}, CellLabel-> - "Out[869]=",ExpressionUUID->"b78413b0-ca2d-4311-8437-ae66c7c5453a"] + "Out[103]=",ExpressionUUID->"f1978f83-fcdf-43bb-975c-4913e1a7bfdc"] }, Open ]], Cell[CellGroupData[{ @@ -7330,274 +7599,156 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ -9aed2c391662"], + CellChangeTimes->{3.9917994543716736`*^9}, + CellLabel-> + "In[104]:=",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.408444618926015`*^-275\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696298666*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 25, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993826614734332*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +In[104]:=",ExpressionUUID->"d7a14792-f25b-4fb7-ba33-d78ee5fb6336"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.4100940767262845`*^-286\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 86, - 10, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696309664*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, + 104, 26, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993826614748828*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +In[104]:=",ExpressionUUID->"02b2b4da-3178-4e10-b14f-68fe35f4f611"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.06390521268883`*^-298\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 86, 11, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320696318653*^9}, + 2, 104, 27, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.9938266147584457`*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +In[104]:=",ExpressionUUID->"cc7a056a-9b68-43a3-912f-f5a2ed74ca16"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913206963286114`*^9}, +during this calculation.\"", 2, 104, 28, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991320696298666*^9, 3.993826614767499*^9}, CellLabel-> "During evaluation of \ -In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +In[104]:=",ExpressionUUID->"51013170-4a78-40bf-a290-b3282ce97405"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk81NsbB3BFxb0lS5bsM+Y7ZKdSlul5UEQlVCq5WUKSpEKmZLtZUykt +tpTdmK+iW1SELNGmhWstlZabnWxR8ju/P+Y1r/frO68zz/mecz7PYbgfdvCc +LyAg8IN8/v892f2kjnUmZx3N5BwKnjJc15IhyzVrjwQnXsq7jeJSgFIv3WXb +L8K64Fyv5eIUBNkVtgm2Z4G5us7WX2KrQXxI5uJ0221Y1J+1rV1sA7yvsD08 +3lYDXiJdV/3FdoAlq+/daNsb0Lh5qvmLqCdMt625PNLWA0dOvuuvFw6EWov8 +nNdZY6Dq9j3za1MUKLy//9VdaxbaV6XZn5BIhGW+LoWLLASxmWH9rf33Jbio +b1luu0MYvbP1FO1UUqEjWa96VGwJBsryl2bRGXAmJ+zl/OXiKOY8/odwXibI +XPoUl3RNEhvK70QYVWZDzHbrdW8mpXAB75lZTHQuHDPKdHkSKYvD0rkhs2b5 +sH545oTfJznUsplrMC8qAO7GSxqPBuRw11iT9uHbBXAzU7tTclIOZSY9o5PL +CkB2u6vRfWF5nPiaJ9rzqAAG7tVPCerIY/WBR0ftWgsgKTIxICVYHmPcnm1I +/V0APVJsv7olCvjG1E/+w2YeRJjau8mtVUSp+C3F7A882Lg34/sac0U0Oyy6 +a/AzD0TD+//esVkRGc//dCzu5UF6bVReoqsiShj1bdMc48E9mwf9C+MU0esG +z35iQSGM7FINGutQRIW3qZodGoWwN3Ai/vlJJezLFTV6f6QQjG+m3AmtUsZ0 +jYch3eOFsL6taXaoURkN/nO6efxHIdgKCFm5vFHGXOdW3pJfhbDPwa8Dvihj +spHPb11BPlieZISFL1DBRQoWSrbifPBXnsw201RBO+NbpiNafKjbf32wNkgF +D5zKW/XcjQ/Wv4wkQk6qoGVc/K3fHnxoSmwxXBWuguyx5Altbz503BcJz4lT +wUBezKdIPz4M/RkgEZWugikmEtYLT/JBtnjjGssaFex1WGR3LIkPvj9GwxuX +MFA5Nl76v0d8MD7iJf1VgoEpjKXUcB0fhPs6+YKyDGQsij421sCH3K7a1nVM +Bs78I/165AUfuisva901ZOABh6hLlR182Bpl1J7pwkDuHodDeSN8MJCI0D1Z +wsD37IUyPHkaBM5M1CWXMvDJxM/LRko0NAn6OJWWM1Bz40vnxyo0HJxwiBqt +Z2B9uFltC0VDTjura38nA5tLv/ys06VB+npj9HZBJqLjln1j5jRMa4p1a+9g +YsSmRN94Lxomr8lFrHRiorgOqyLVm4bxpRTLyIWJ9Z014fk+NAyNGfmsP8BE +oVc3fEr9aOgp3zfpdIqJASaxz3hBNDzdVCYam0vG+5Cy/L8oGhoePio5W8jE +auaOb5UxNNTpPt+edIuJUraHDJLiaKiU/JiacZ+JjavdjPXP0nC76w+1uy+Y +aJGzhrK4REPqwb3QM8HE8ooPDZWZNFx9593z3wwTb9ZJh+/NpuHS1mNRg3NM +VNhLP5jJoeHcythnP0RUUbGo6Z56AQ2RP0t2LlVSxTXqAl+dbpL3c2aBv6ml +KjpOP/WTfUCDKZ++ceWKKuolO93+2URDlwr/+oY0VdQpMTOUfUXDiSu8jPHr +qhgv3lyp/5qGsoi8dAeeKsrll73f00yDwa4byaIVqigl/cM3oY2GFQsuJUZ/ +VEXh2f1yLu9paDxx8fzqr6o4l/9MafMHGrxGEs997lNFKzlFXcOPZH26ziaY +j6tiWZNP4LxPNKjcjon9vZCFBUsmcwO+kvVyORkepMVCV73g+U0DNNxt4YZR ++iz8Kagwd2aQhu02waEtq1nIOHNgqdUQDRdXB4YYAAunmgUO3RmmYcniw8FD +9iwMub1Sw/c7DXTEoePXHFmob7f6jcQYDTZTB4M272Gh7j99F0qJY3u8Awo9 +WKjnE+o0MU6D0H13f6/jLHzMrlGym6IhW8ftsFQIC4/atV18T2ye4+JXF07q +ZTcwfX/QEHbe2ZcZz8LYWofkkGkaZjwdvbvTyfgDE99O/KQhpWv7/rOZLHSP +v28zRrzWfpuXaR4LvZhpz71/0RBkaueReouFO017DDbN0jAqYePqWMPCpr8q +kwd/09Duy3zl08DCrTl5ajvnaKh+PANhz1m4gSvt9JA48QRfuaCVzPeGGx0m +UATBLX+fr+hioUZbwYsuYlcd57lXH1gY5bH18qp5RaDXs/j9dB+p/2my3Fti +WdMvtqIjLLQAukNjfhEIXHlYyZxgYaiZgHkQ8Utrv4xNcyxUu2IvLihYBKXZ +lqKuQhQO6dVx1xNnzCqFBohQ6NHrdi6S2K/k5V/XJCnMzllaNU7s+GfBixJZ +Cv0vpLxVFyqCdZ7hnMeKFOoeNuftJmZX7SrqZFJIZzVSMcRLlusrDqtRyFTt +dyghHj8qclZQm8JJ7gH9duK3zz/+kjEg/1cjWPOTuI79wFdrDYWivBMLFBYU +AR1+8S2aUlh18PyvtcSXOn027zCjcLZdsMCBOGSVRcUBSwortqYKHyD2OCev +FbqJQqEqKeUQ4k3fxtIu2lGYnms0cIbYwPz5n/k7KLwu/tQ/mVguPedkuROF +xjfOFGUSz58M6X/pQqHVKYvsfOK+rTv2fPagcNi9zKGQ+A1P+9mPAxS6phRV +8IgfCC40WXKY1D858DGXOOuv7kJGAKn/nWltBnFcWamcIZc853i6XSL2Fz8f +bxNKocAlnYfRxLsO7p/Z+zeFd3rd2gKJsR58jsVSaNjcWOxGrK4s2xlzlsJH +/to2NsRi3BHr9IsUPj7klKNL/ONN4/3iqxRyBeSrxYk/aGWuqE+nMLHXOGOE +vM/GaG5KRyaFX45Fw3Pi4g/2IkN5FC4MeJqTQ5xsrMGdT1M4YdXSxCXeP9S5 +S7OUQqXEIwFyxLYb/2mEcgr1fLNGv5D1N8w6s3Z7NYVzfc2GN4kXOprKnnpK +4fzjXIXVxEO3lsVeeEnhshXnK8fIfmsVGZzKbaFw5PE3zVvEeQ+vtTV1U5jc +WnxQgficTJDVp08UdinVQxPZv0FHbMumvpH5z3n3hBBvoOauqIxRqDJQfOUV +2f+fE1wdjy5io5tU8ht7cl78+rSYeovZyFBSXjlKzteU1fTgoBgb17A3vj5L +/IfgxagDcmyMEcQnleQ86nFr77hqs9FEXL58jpzfB63nw5UM2AhhggpxxBar +nDe/NWSjLVemeimx4/D4p53IxvLF51qWzdBwypMtuXUbG50T95r/JvmxsPZ7 +9+JdbCxItn51hDhRparwqTMbdd/Oy++Z/H8+7jS39GLj0pkS/YoJ0l/s445w +uGy0dl/8ypbklfS6gZea19nYMnX/9XeShzfS7qX1ZrPRqSra3IR4xfTp/fkF +bFQPLFwUQfLT9I7iHPM2G5+lf7kg1E/DPo2tOnL1bJyVaXjQ/x8NxdK3E4T7 +2TjtaSpkQvLZOCB01+NhNta+1ZPcTfK79rUN6/Q4GwXANTKA5HtrwqfyuVk2 +7i0NOJ39joZf86X6J8XUUL+cp9XTQYP18HHrL4Zq+HSX0L0e0j8U9JWihU3V +cFuDP7+a9Jeho3U1mmZq6PUuITntJelnk2KmRzepYQ8+3rfxBQ3dszydORc1 +DFCf7DjVSMPRxW8ll8ep4f3646zdlaQ/rsDuzV1qmOVxzaw9nwbfg1/l/D+o +4T9XvZ135tEARQk7k76ooWuvxYVm0h8/63W86hhWQzs9hy21pJ/qrD1a6yWk +ji6jE5rhaWR+ljkF4drqaOH+4ZD/ORoG9gkfuxOmjjUavw8aHCX1Zqx/WHVa +HZ3uSEa6+NMw3BG+6FmcOh5JKR6MI/eB71un0z4mqeNsVeqTVnJfmDLpqxMt +UMfLwjPFdvtomL/sufSBV+podHcl9XgbDcvrzj9QZKzAqm01g5UGNLmfy8yP +qVmBpjaiHNVePvS6WxWYNKzAq6MlFu1f+ZCQedx25NkKdBV1WXnmMx+aldpT +d/+7Ak3k3V/3veeD6/KUlVrfVqCV0IDKhVY+cEXlPV8v0UDr0fR/T9Tygf6h +1Ci/WwPv3NHobEzjg8QL9rniYQ30Z9QMR1jyQSH2lp2hoRZul1koez6gEJI1 +jcQk92tj9ZiqtchlHjyVM1s9dkEHWyTC+TPZBWCsUJOo26qLn2xPKa+OzwdR +wawAt0g9RPt5/VoBeaAUoWy6m62Pxu8UNPjGuSBCOZc6NOhjyFpFN/7vbNDh +LL91/C8DnLr2cfmCliw42i1RayOwEq/FdTc7nM+E4bGEHdbJK3FSb7viDvcb +YKX7ONVaexUu5SrpbwvLgMoxk59TTavQ/2FP/HKZdPDTMuh87bkaJWq3XS7q +TQHOkEfLbhFDXHutLJqZcxU2sGS3LMkyRF3fKSGta5dBPTw+uGbNGnzvu9t6 ++F4SaHgaVVGda3Awom7Bi8YL4FnpffrOkbX4zUO3REk6EaputHiMShnhLl5/ +POdhAowXzE3plhlhki291ycjDvZRfJHULcbYb+ARKjkUDaMaSYa3R4zx1x4X +Qy6ehns5Pz9OxJpgqrpG99OpCHBar4omSqa4dFF9mXJHGMgfirmvU22Kq7y5 +MX+3nASpP3xLtuzk4PGhUzqJx4Ihx+LUiZHdHPTJ+jfbzDMYDE6ds0hy5uDG +iqZn047BYDtS/G+7GwdL7L5rhhoHQ3TrxPQ+Xw7a7xWZap0XDD+ywsxPRHCQ +O1e/qOHCceg0SWrO43NwIOlWaFJpEHgH5qRb3+SgrsZgjAwvCCZv3vUcKOZg +2f78BVlpQSDBbJ/SL+Xgmi/ljk/Dg2CTsKLCw2oObm4IlfXeFAQVLXkezf9y +EPNi3Fs/BoKN6D3toHYOvmn8o7G6JRDarZ5MynZx8MTK1MiShkAYf9Afu/cD +BxV6Z4ZyiwJBO1OvqLeP/F416lAnNxAqOs2CEgY5WMDQXj/lS8Zbtg10RzjY +/V3aVc41ELxiAl8HTHBQgm5wOWZJxquOTpX5wUGv3ynAMwqEyJmr+x7McEh+ +1jl/0QoEsVU8rb9mObhnbMtdNZVAyDj0YGJujoMTssZW/pKB8D9uYxvm "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7611,233 +7762,111 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV1nk81NsbB3BFxb0lS5bsM+Y7ZKdSlul5UEQlVCq5WUKSpEKmZLtZUykt +tpTdmK+iW1SELNGmhWstlZabnWxR8ju/P+Y1r/frO68zz/mecz7PYbgfdvCc +LyAg8IN8/v892f2kjnUmZx3N5BwKnjJc15IhyzVrjwQnXsq7jeJSgFIv3WXb +L8K64Fyv5eIUBNkVtgm2Z4G5us7WX2KrQXxI5uJ0221Y1J+1rV1sA7yvsD08 +3lYDXiJdV/3FdoAlq+/daNsb0Lh5qvmLqCdMt625PNLWA0dOvuuvFw6EWov8 +nNdZY6Dq9j3za1MUKLy//9VdaxbaV6XZn5BIhGW+LoWLLASxmWH9rf33Jbio +b1luu0MYvbP1FO1UUqEjWa96VGwJBsryl2bRGXAmJ+zl/OXiKOY8/odwXibI +XPoUl3RNEhvK70QYVWZDzHbrdW8mpXAB75lZTHQuHDPKdHkSKYvD0rkhs2b5 +sH545oTfJznUsplrMC8qAO7GSxqPBuRw11iT9uHbBXAzU7tTclIOZSY9o5PL +CkB2u6vRfWF5nPiaJ9rzqAAG7tVPCerIY/WBR0ftWgsgKTIxICVYHmPcnm1I +/V0APVJsv7olCvjG1E/+w2YeRJjau8mtVUSp+C3F7A882Lg34/sac0U0Oyy6 +a/AzD0TD+//esVkRGc//dCzu5UF6bVReoqsiShj1bdMc48E9mwf9C+MU0esG +z35iQSGM7FINGutQRIW3qZodGoWwN3Ai/vlJJezLFTV6f6QQjG+m3AmtUsZ0 +jYch3eOFsL6taXaoURkN/nO6efxHIdgKCFm5vFHGXOdW3pJfhbDPwa8Dvihj +spHPb11BPlieZISFL1DBRQoWSrbifPBXnsw201RBO+NbpiNafKjbf32wNkgF +D5zKW/XcjQ/Wv4wkQk6qoGVc/K3fHnxoSmwxXBWuguyx5Altbz503BcJz4lT +wUBezKdIPz4M/RkgEZWugikmEtYLT/JBtnjjGssaFex1WGR3LIkPvj9GwxuX +MFA5Nl76v0d8MD7iJf1VgoEpjKXUcB0fhPs6+YKyDGQsij421sCH3K7a1nVM +Bs78I/165AUfuisva901ZOABh6hLlR182Bpl1J7pwkDuHodDeSN8MJCI0D1Z +wsD37IUyPHkaBM5M1CWXMvDJxM/LRko0NAn6OJWWM1Bz40vnxyo0HJxwiBqt +Z2B9uFltC0VDTjura38nA5tLv/ys06VB+npj9HZBJqLjln1j5jRMa4p1a+9g +YsSmRN94Lxomr8lFrHRiorgOqyLVm4bxpRTLyIWJ9Z014fk+NAyNGfmsP8BE +oVc3fEr9aOgp3zfpdIqJASaxz3hBNDzdVCYam0vG+5Cy/L8oGhoePio5W8jE +auaOb5UxNNTpPt+edIuJUraHDJLiaKiU/JiacZ+JjavdjPXP0nC76w+1uy+Y +aJGzhrK4REPqwb3QM8HE8ooPDZWZNFx9593z3wwTb9ZJh+/NpuHS1mNRg3NM +VNhLP5jJoeHcythnP0RUUbGo6Z56AQ2RP0t2LlVSxTXqAl+dbpL3c2aBv6ml +KjpOP/WTfUCDKZ++ceWKKuolO93+2URDlwr/+oY0VdQpMTOUfUXDiSu8jPHr +qhgv3lyp/5qGsoi8dAeeKsrll73f00yDwa4byaIVqigl/cM3oY2GFQsuJUZ/ +VEXh2f1yLu9paDxx8fzqr6o4l/9MafMHGrxGEs997lNFKzlFXcOPZH26ziaY +j6tiWZNP4LxPNKjcjon9vZCFBUsmcwO+kvVyORkepMVCV73g+U0DNNxt4YZR ++iz8Kagwd2aQhu02waEtq1nIOHNgqdUQDRdXB4YYAAunmgUO3RmmYcniw8FD +9iwMub1Sw/c7DXTEoePXHFmob7f6jcQYDTZTB4M272Gh7j99F0qJY3u8Awo9 +WKjnE+o0MU6D0H13f6/jLHzMrlGym6IhW8ftsFQIC4/atV18T2ye4+JXF07q +ZTcwfX/QEHbe2ZcZz8LYWofkkGkaZjwdvbvTyfgDE99O/KQhpWv7/rOZLHSP +v28zRrzWfpuXaR4LvZhpz71/0RBkaueReouFO017DDbN0jAqYePqWMPCpr8q +kwd/09Duy3zl08DCrTl5ajvnaKh+PANhz1m4gSvt9JA48QRfuaCVzPeGGx0m +UATBLX+fr+hioUZbwYsuYlcd57lXH1gY5bH18qp5RaDXs/j9dB+p/2my3Fti +WdMvtqIjLLQAukNjfhEIXHlYyZxgYaiZgHkQ8Utrv4xNcyxUu2IvLihYBKXZ +lqKuQhQO6dVx1xNnzCqFBohQ6NHrdi6S2K/k5V/XJCnMzllaNU7s+GfBixJZ +Cv0vpLxVFyqCdZ7hnMeKFOoeNuftJmZX7SrqZFJIZzVSMcRLlusrDqtRyFTt +dyghHj8qclZQm8JJ7gH9duK3zz/+kjEg/1cjWPOTuI79wFdrDYWivBMLFBYU +AR1+8S2aUlh18PyvtcSXOn027zCjcLZdsMCBOGSVRcUBSwortqYKHyD2OCev +FbqJQqEqKeUQ4k3fxtIu2lGYnms0cIbYwPz5n/k7KLwu/tQ/mVguPedkuROF +xjfOFGUSz58M6X/pQqHVKYvsfOK+rTv2fPagcNi9zKGQ+A1P+9mPAxS6phRV +8IgfCC40WXKY1D858DGXOOuv7kJGAKn/nWltBnFcWamcIZc853i6XSL2Fz8f +bxNKocAlnYfRxLsO7p/Z+zeFd3rd2gKJsR58jsVSaNjcWOxGrK4s2xlzlsJH +/to2NsRi3BHr9IsUPj7klKNL/ONN4/3iqxRyBeSrxYk/aGWuqE+nMLHXOGOE +vM/GaG5KRyaFX45Fw3Pi4g/2IkN5FC4MeJqTQ5xsrMGdT1M4YdXSxCXeP9S5 +S7OUQqXEIwFyxLYb/2mEcgr1fLNGv5D1N8w6s3Z7NYVzfc2GN4kXOprKnnpK +4fzjXIXVxEO3lsVeeEnhshXnK8fIfmsVGZzKbaFw5PE3zVvEeQ+vtTV1U5jc +WnxQgficTJDVp08UdinVQxPZv0FHbMumvpH5z3n3hBBvoOauqIxRqDJQfOUV +2f+fE1wdjy5io5tU8ht7cl78+rSYeovZyFBSXjlKzteU1fTgoBgb17A3vj5L +/IfgxagDcmyMEcQnleQ86nFr77hqs9FEXL58jpzfB63nw5UM2AhhggpxxBar +nDe/NWSjLVemeimx4/D4p53IxvLF51qWzdBwypMtuXUbG50T95r/JvmxsPZ7 +9+JdbCxItn51hDhRparwqTMbdd/Oy++Z/H8+7jS39GLj0pkS/YoJ0l/s445w +uGy0dl/8ypbklfS6gZea19nYMnX/9XeShzfS7qX1ZrPRqSra3IR4xfTp/fkF +bFQPLFwUQfLT9I7iHPM2G5+lf7kg1E/DPo2tOnL1bJyVaXjQ/x8NxdK3E4T7 +2TjtaSpkQvLZOCB01+NhNta+1ZPcTfK79rUN6/Q4GwXANTKA5HtrwqfyuVk2 +7i0NOJ39joZf86X6J8XUUL+cp9XTQYP18HHrL4Zq+HSX0L0e0j8U9JWihU3V +cFuDP7+a9Jeho3U1mmZq6PUuITntJelnk2KmRzepYQ8+3rfxBQ3dszydORc1 +DFCf7DjVSMPRxW8ll8ep4f3646zdlaQ/rsDuzV1qmOVxzaw9nwbfg1/l/D+o +4T9XvZ135tEARQk7k76ooWuvxYVm0h8/63W86hhWQzs9hy21pJ/qrD1a6yWk +ji6jE5rhaWR+ljkF4drqaOH+4ZD/ORoG9gkfuxOmjjUavw8aHCX1Zqx/WHVa +HZ3uSEa6+NMw3BG+6FmcOh5JKR6MI/eB71un0z4mqeNsVeqTVnJfmDLpqxMt +UMfLwjPFdvtomL/sufSBV+podHcl9XgbDcvrzj9QZKzAqm01g5UGNLmfy8yP +qVmBpjaiHNVePvS6WxWYNKzAq6MlFu1f+ZCQedx25NkKdBV1WXnmMx+aldpT +d/+7Ak3k3V/3veeD6/KUlVrfVqCV0IDKhVY+cEXlPV8v0UDr0fR/T9Tygf6h +1Ci/WwPv3NHobEzjg8QL9rniYQ30Z9QMR1jyQSH2lp2hoRZul1koez6gEJI1 +jcQk92tj9ZiqtchlHjyVM1s9dkEHWyTC+TPZBWCsUJOo26qLn2xPKa+OzwdR +wawAt0g9RPt5/VoBeaAUoWy6m62Pxu8UNPjGuSBCOZc6NOhjyFpFN/7vbNDh +LL91/C8DnLr2cfmCliw42i1RayOwEq/FdTc7nM+E4bGEHdbJK3FSb7viDvcb +YKX7ONVaexUu5SrpbwvLgMoxk59TTavQ/2FP/HKZdPDTMuh87bkaJWq3XS7q +TQHOkEfLbhFDXHutLJqZcxU2sGS3LMkyRF3fKSGta5dBPTw+uGbNGnzvu9t6 ++F4SaHgaVVGda3Awom7Bi8YL4FnpffrOkbX4zUO3REk6EaputHiMShnhLl5/ +POdhAowXzE3plhlhki291ycjDvZRfJHULcbYb+ARKjkUDaMaSYa3R4zx1x4X +Qy6ehns5Pz9OxJpgqrpG99OpCHBar4omSqa4dFF9mXJHGMgfirmvU22Kq7y5 +MX+3nASpP3xLtuzk4PGhUzqJx4Ihx+LUiZHdHPTJ+jfbzDMYDE6ds0hy5uDG +iqZn047BYDtS/G+7GwdL7L5rhhoHQ3TrxPQ+Xw7a7xWZap0XDD+ywsxPRHCQ +O1e/qOHCceg0SWrO43NwIOlWaFJpEHgH5qRb3+SgrsZgjAwvCCZv3vUcKOZg +2f78BVlpQSDBbJ/SL+Xgmi/ljk/Dg2CTsKLCw2oObm4IlfXeFAQVLXkezf9y +EPNi3Fs/BoKN6D3toHYOvmn8o7G6JRDarZ5MynZx8MTK1MiShkAYf9Afu/cD +BxV6Z4ZyiwJBO1OvqLeP/F416lAnNxAqOs2CEgY5WMDQXj/lS8Zbtg10RzjY +/V3aVc41ELxiAl8HTHBQgm5wOWZJxquOTpX5wUGv3ynAMwqEyJmr+x7McEh+ +1jl/0QoEsVU8rb9mObhnbMtdNZVAyDj0YGJujoMTssZW/pKB8D9uYxvm "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.056683847996913055`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7849,19 +7878,19 @@ HbLGog== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.056683847996913055`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7875,232 +7904,110 @@ HbLGog== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVmHk4VV8Xx0XGMs9jppCZy3WvYe+lAVEoGdOPZCoylMxFkiEyVkKZMqUS -ShnvFVFUkjmEioyRIhR67/vPOc/nWfvsdfZa37X3OkfKxfeoGz0dHZ017fL/ -++/R9peyCYWo9o3zk23jDqg3RyjEcDAKV7/iO81bQsLA/95FaDANO976fqCv -2AQHWpYNMAwWYB6P5o+3i+0w94Jg2vpAFS7yCdRjLPbEYw3mvssDzXjDfGVq -8l4wNpKd/bQ00I2rp05PX86Ow+sDOjd/DHzBSqcapUVCb+OWfSWFHwp+4W0i -l2uqp0ux2FjtNxflTfyxRT1csrcS0/3yv91+ZBMnBScMDU1V4gkmRVP1oE3M -P5neGv+3Ej9SzXq0+WITR3Ew8rdKV2F0KTTgtu0WfsYeeqrCrwo7ievRd0b9 -w+STMzqWbE/wB5XRpDvzdLBctb7LS+sp5vN2KmPexwCn5ed6504+w4rM99os -bRmg1ziTcfz8MwwF375kejGA8eaT2Zarz7D34FlR5RsM4M1DKnO4/wy/3B+e -aDnJALJOrHPNi89wgHimT2bsdviBjIQDQ57jns5uTaW3jBC5OO+tEFmDp08L -WASMM0LELmfjbSk1eGu7g1fjMiOY/5fR8Dq3Bivqfb5nIc4EgQMe9jLUGhxV -ssgX4MMEk4z3kpk2a7Bm5M7VBi5msJ1y6Lh0oRanaRjVm1uzwMNT+cms9nVY -bdje2MCTBZr3B+Y3udXht9Fne5TCWCCj+uaox7k6zDR4Y44lnwW0ROs7YhLq -cNilr6It8yzw3gFtMTbWYdc3keE60ayAn6YUMInXY6JbvYHkEzb4eUMi609X -Pe7heN/O0cYGJZUFkRXD9div5ov15iAb+JKi1G2+1eOyHWw+Q1tsELqsOOH3 -tx7vqrLLuWG6AwYOe7l9lW3ALP9Wtli+7ICzQ8XH6gMa8Mfb6k1LXOzA6HBL -W5WlEWf1POAM3M0OvP1V2encjdiBQ97pD5kdtHf0v50UacQjV8S36E+xw5rW -zWRLlUY87sOmz1fNDrsT9TPwkUY8vX/iOdGeA3hKvi5fudmI70c4Mdef5YD5 -PcMyz+424jN1QzY0sUA9XYNsX1Ejnlf7sGL8gAPKXOrzPlY34h8iFIL9JgfI -KBUWbfQ24rUfGY/D8jkhWtth/0NOCq5V4v33r5oTSofT9z4UoOBQ9yTz6A5O -SGB6o5IpTsEbw9HfE39xAuFKWS9ZiYIjv9bwv5fmgneODWW3DlBwdGeR1XgA -F3gW0883BVLwhNepMOkILsj0MNlKCafgA6xS91zjueBSiZKyeRQFM+2/83P6 -LhesTu2cSb5OwXG1aalLbVxQelnKQuMeBScURrynF+YGkS93TBY7KNhU6zQP -vww3+NRseV58T8EsL49ay6tww8ST5rT1Hpr/r7uHzQy5oY1vP1/DCAWHS7/9 -duM0N2imp1qc+U7BulXVe0rOc8PjuGXd00sUvGaY6117kRvU/u20tlmh4Asn -z/38lMoNoIv3/N2gYJ88oS25Otp4ettx3x1UrKxOb0h+yQ0Ck/nvxzmoeJY6 -d8WskxtUtJkEgYeKPcYorH5fuOHL5t+WdiEqdpZw469l44FkOU0C224qlig3 -t3vDxwOl4BuxIE/FIwak7E8SPJB9TOLIC0UqtjuxQ4qewANCHEV3NNWp+Mid -SmWz4zww5XP20n5dKuZSzvY94cYD+Vvfcu/qU3FnfXSVry8P7M2nD55EVGw6 -bEu6cYUHrjzsczPcR8UsXoZhxdd54PtEYpz1ASpu+6NIqcnggYWKyTA7Yyre -K7K179MDHhA0FV9UNKNiurKpmMVqHjBQ8A//c4iKKeQP7duaeCDzjuVKjTkV -69kXWsj18oCSs14r/VEq/jN9PY00ygM3dqgpJllRcU1wUJ/pNA90TV66xWJN -xVq3TY/7bvDAeZG8/A5bKv4pr5VzmYkXJiXemPPYU3HFc/HP6Vy8sHiVUfKg -AxX7GDPLFovwAvPOXDHf41SsMvDDvUaWF64arZhFO1LxvPvQ/Q5VXnBNP18d -d4KKy363zI+QeKGPJd05/D8qlhPIOLftMC+kb3zK1HCm4omiyGpeW15QfIh1 -ftG4QPvM2u6TvPC2tVyr8CQtP61WeiQvXtDcNp2534WWH2uDS6YXeIHOq9qn -l8YjE3IvHCN4YcFqoc7qFBVnBXBt943nBR4Iimmmsd32P0aX03lhe7/hR0lX -Kha88TU+/S4vMHYeqvehsZBSdfRaMS8cFgq6VUpjkeaYiBMVvKASraTRS2Mx -e7vQ5lpeGHvEmLZEY4kfey7It/BCz0QZlc6NiiVj//omvuWFuF0dTdtoLC3x -7sxSHy/cXBS9s0wbL1ud42YzxgveF1zsPtJ49yE/5/ppXtA/dnrjMY3lvhoe -l/zJC+1FjMnBNFYI5bW5+pcX5Bf4BQk0VuSetJzdzgfJnFHZY7T1KJc+M7Pg -4ANmpCdzicaqOM7oqSAfqP7Sq+agsXq/vaGwFB8Mfo61S6XFR/Oskv4lRT5o -mlHiY6IxYfsm8SuBD4g70KI3Lb5a2Z0aJgZ8kOnw6UcrLf5EzTzlR0Z8wLas -IclNY1K7vzyPJR8sL3hHmztRsa7zPukgez5IP/Ja9hItn/qrfOIjLnwQuD2W -JY+Wb5T0TdDQmw/o25aJT2l6MGyIZ98RwQcelqTUJzT97LU6zuIXR/N/9MOb -HJq+9s8qM/Sl8sF/9bk+4XZUbCLUtZZTyAeybM1snDZUbBEgMKHZwQe1dAZ+ -aZZUbLljejSjhw8qFd2o3BZUfLSg9uPGCB9Qr3s+uXKYim26HN+3LfIBX9ZS -KTal4hPK9+oc+PkhS9O9UIhWb/+1BFRTJfhh98fYZRVDmr4cjCpkFfiBoYeo -QMRU7Bo3U7Sgyw8SX5UcdulRsdeEWmqUMz+w0T1ot9akYu+wbYlTp/nh/jRJ -kIFW/z48PTGHzvODZdda3D0VKj4HgeECMfxw1HZxvVGBikPuNHiUPeAHimbA -ur0EFcceO4i6f/PDUL7kS21mmt6edorQbxMAwc32sD4GKi7nPbaqsUMApNlF -nrrTUXF/938VqbsEoKmzt/vEOgXLHgmQPmIiAPn3q//lzlJw8+Fcpq5MAQi8 -kj13kbb/2jyS/frvngBM+u+f122j4NmdZVS1cgFo7+OXnn1BwdxvnwYnNwvA -rwT/47tqKdjZtGPWfE4AWvWDTL8VU/Cm0UrnO31B8Oj3OvEjgoJTikMfbBoJ -wmBPolJ/KM0/E12cyhFBiFhVmiu/QMGHWtkMr7sJwvXH333IXhSctU/yyaEk -QdjZu3voiTUFk8As482YIGj9mho3UaDg8+R8p/YoIbjmuPrt4MtGbJrHsWyW -KAQ53VqLApRGLM0cHtd5UwggjX3h4/NG3NVrU9lTKgR37d+sGT5oxKp+OxlG -O4XAP6LuVHYq7bwtDir+KSIMmRMfC8IdG7Ejn/l30SfC8KjF+pvhXAPev/gn -1OerCKjYCTySW6zHISY3FF/Mi0BG1jgs0PqF8nyVId7fIlAgwFpTPlqPhY45 -k2tZRGFjuDBYpLMez9e0rjKoioLYjUOOOQ/rcXpUSkBmsCgYU/8LdPasx1/4 -5XxesovBKaM4cb7hOnxZ/8hJEZI4KLPdeOv+uBbrlmc+vUTdBRdLjG8oz9H6 -t7WlyNfsUqB7IPW+sfpTvK7ENapiLQ0F52Q9KKRKrP/gYd6tWzKwShkuqhl6 -iJd4TJ1tmmUB3hxS1mEsxROJzjbnmOVA7XfOXX2Le/jgYtDBSaI89O7+HsG+ -lIPFNCRiWPTl4YhJXi65OwcvnHvZrGQoD1bjtx+FPsnBN35z6Z8zk4fsjJxU -vcAcPLp5X/WfkzyQmiRcajbu4nM7R3iF4+WhhaIreZf9Ls7aA6OHhuVhI8qh -kgln4/lTLOefRijAFwG+2edjGXghZ38jNVoBzPNsuK+2ZeDFj5HMb+IVILbx -Yanbowz802I9+3O6AvQpFfOeDMvAq3qzLzlKFUBJy+wQCGVger63Aqe7aCzJ -WpptfQsLv0yuE5faA8UBn51zRm/Q+ndB+tjmPSAW8mjOVyENz7gYl+q92gOM -1MtbB/nTcGJ+kPmPN3sgtu3OTQJ9Gu6RGMyy79sDmaOJOtojqdhZOJOgPL0H -1sb2ZS6lpOIQDlG3D+yKUN4wrHNwMwU/XJN4LWqvCE3FxyoSmpOxhY6FT9cJ -RUj/OFbHnJeMf16I4LvqoghaKW1y+ReTMfnXmPOClyIwbwnPKZGTcdv3vPWm -S4pg1sqbm1uZhMe+SCu5FyqCbfdxl18l1zHPO7mkikVFYGRlU5q+n4C3FtWL -OpYVwavz/neHuAQ8y6PXMLGuCHutiGIL7gm42c5iVmi7EtwTuOt/QTYBn58I -MrospAQCa4VzjPnXcO/f11tHDJUg4HN3gHhePM5Q9PL9laYEL0yRWV51LI4+ -fCGG/bYSHDvXEPY3Ixb7+UXclb+rBPsPsFQEhMZik2fpb46XKEGjamVfE46l -9VcN8i/rlcBvj9iPxjcx2MGeffzGhBJMLxWp6M5cxWJxjy2JRGWQdOd+XEGO -xmXlj1rWdZUBFCHNSSoak/oeEBuxMtiM2YTKsUbjY9KlYvsPKoNwRp3QxuAV -nNiQN33EURm+kbo7XoZcwX9/pEaejVKGV8Te6UZqFB6yD6go7FQGEr2w9ajj -ZewZeU7Gs0cZHnwsy/Uxvox/F/vdUhpUhoZrTvN8mpcxz7J3eNVnZfB4oX3o -HvNlbJrkZtK0rAxtacrurU8icW2zzfiwiAoEnqnm5OaKxLeVyFy8HiqgsY9k -U15xEVubvUuheKlA7LXC+M6Ei5jH6yT3GT8VyEgrMeD3uIgTyuJ5XoSoQK5C -ZSW/xEV8ac8Qn2+iCgj6S6WPXQ/HrvJhwm8qVUCMPTbnYkAY1pBplL6yoQL1 -LOU3BE+E4IW9R+6pblMFOQrZ9b1+CC5zmZQZYlQFpeIk/jKxECxbwL5bg1MV -Pv5iffhqJBgLSf0nPyalCpUFecl5/wXjLYl/SnrGqnDB8EVihWcQ7hAx1P6V -qgrnr1+zj7l5AXdJPJbbnqEKBqmagfRBF3C/tLgQ/x1V2Dv9Lvae3QX8WXH9 -D7GYZs+i/LMSu4DXdCubQutUoclLPeJMUQCWOy51iP6rKhiVOAxYUM7jqOxt -p7i11KDaeFKHi+0cjsv1PSZNVoOzHxQOzCz646R7nw4QkBqU/+cs8LXPH2c+ -qFWwNlGDFVOJK6QCf1xR779w21EN4o7+3HLX98ejw59DJK+qQdJXhqvPAv2w -rlhzilq/Gvw8UBYbu90Hf5GRHZ0ZUgPBoYSS6aGzOF4pRqlwTA3cX4ztDK88 -iwd1TduEZtQg7EXMBMnpLA6y7/67bUMN0neMBDI2emMHM3/CLJc6/DHdpGu6 -7IVvxV3OaSCqg3ghMdVX9TQ+k6jZKkxWh/3cp5Ya2E5jlPJ1LlBPHXxtNp4S -pzzxZMYBsgaoQ/4RnqryPE+sVcLaW3RQHRTbn2c/4PfE3a2prMmO6qD2dNSi -itkDczAUBJyMUocq69HkZjY3zLROtVqKVofGwwrrdTOueGvhk+blWHVwYnaV -//zaFS8OCS/lJdKeV71E9yzWFXdVpZ4dv6UO8RVsi2HMrjjN5bK70wN1uP3f -rZtmnKewQLOz3Yledag99+dEJjqJOWou6XzvV4eZv1YPp6RPYqbyOwIXP6rD -YnDHxRPMJ/Fq5mDvnVF1cNj9bJ7S5YwH/S2PjEyrw2N7mX4rN2ecJQWmxzfV -IVmEJVBXyQlLXN6lby+nATc1i9K/Sjvi8vMs0p8UNODO3qipmJXjGLkvMZ9U -0gC2cPObXq+P4xNmLT2e6hrA9LKGsupzHN/h9/AK1tUA4yWeTB6qAxYuK8/K -MNcAgvK1UXYve8zXY7DeF6gBL78kKzD+sMGFrXJj9iG0+d7s24U6bDChhrP1 -U5gG1J9M/VNeaIOP3v2cMhmpAZm7tvbqONjgVI+rCivXNMCqOtp96JU15th4 -a8uXqwFXZA10VB8dw6y7HZ8dfUV733efGLVyjuIzwtj0QbsGbA816duKPIo7 -2KVHGd5qQL/L422/Th3Fib+nGKu7NMA237PYRvEo5nh93lpwiGY3FLjLWHuE -Vu8Jy8PzGpCzRHnb/8kSi1XWabrxaMIxjWnBmVhzHF50t62RTxPOi90PELI1 -x58yIx0EBDXhmrdlepKcOc6JMop6JaoJ75oZKw63HcaSx7o/7NmtCbuH6B6z -sx7Gu1dn/BZ0NEG9V1fFJNsMqxoIPw46oQn5mnm9x36Y4Ccyp//SO2tCReHU -DtOXJpjEVmuc5KIJwxfqOGNum+C9A3bjhR6a4COcPN9laIJt/G9zd/trwoPL -hlIlGcY4okgwQDlGEwK6CTJ0lka4i12A/LlcEw54tAp9+LEPWy+7XfWu1ISf -oHDs29t9eGio+sPqE00owzsqiPf34YkS6zMctZrgMXXaL9ZlH23/v5mt16IJ -hGaFhrGBvVgqkG/r5oAmpGUcFJZ+Z4jPjfK0mNIRgEe6QMyXivHrNsfGMnoC -fI+esqeLx1jicfFzNkYCLBNKtKaOYtwRofuwg5UAhX+tvjyZQlhayuWmKS8B -7m81ierzI/zhVKWHqRwBPAY4mvIj9LH6jMVO00ME0C/7PvIgiYxjPmQylZkT -4Kmemj+PCxmP1H6lYztCgFC/iZImbTKOuxa00m5NgAgtduefn0h4XCl39KAT -AdTNhztzNUg4xWeh4uA5Arg3R4x2TBLx4q9E64O3CfDOPuJxwyUtPDKYb3M3 -iwCHBm1ecB7Xwh2Nz2yX7hAg0XZO4Y6OFi6MHbfPzCfAgpnSI6clAnYQ1fpv -powACcVjCXEeBNy6d9g9vpEABwSubhP9TxNnp+4Jbv9CABmKqJX0OXUcF4hC -xCcJQLik9pzJWh0HHrcK9Z8iwLE6ifciJHVsuftiuPA8AapLf2/lb6phptqu -yNMrBOCz3O8/LKaG/ceD4llZtIB0ivTBzlsFG6u1ZR1U0YIr2cr2Y2aK2I7J -5FiXmhbsFD2zkSikiM98ame31dQC6fKu3IzJPTgp4V2kq44WQOa+qBeRe3D/ -VK97hKEWnKS4y9rWK2DXvK+a1dZa8Pj38V0shvI4invbG8lLWtBnL3Mp55os -vjEdFV0SqQXZjRxqPSdlcTF1O1K9ogUzgc7mVmRZ3HGWpVIvTguo2X1DhBkZ -zN3BmWGTpgWNln/dPQ/J4LwoiVOJxVpwwdY1jSApjSm/9P6udmpBoaHEEcLy -Lpz/9rmL1QctOO/LorTyfBeOLiJ0lPdoQZzcKTap8F34oK1SptugFhz+z0Dl -KeMu3FsnotPzWQuKf/JFV4tL4NnL6+fKl7Xg6XHXm+nOYliA6/msq4g2mEeN -nHdXEcbr05pHm8S0YfuImpraphAeeVFeK7pLG2rSTCzM3wnh/PPFcd0y2hBH -JkRf9xHCygM35UBFGybbPxynqxbEe3MCXERBG0psngI+IoB9lDWHPrhpg1Do -338xLbz4wqrIHydPbZBiunZrLJMXhzcziCyc0YYDFgyR1/x4cYJdnz2bnzag -+t2/eiV4cWl08Me9odqQF6wmqxzBg7+MUAafJGkDnfhjMTdzbjxTUrJmmKoN -yxaTwTl7uPGPcylCXenawPmXQJBi5Mb/WFzs5m9rg7X1j0K6Ri4sps04KHtP -G7AQ2xchdS5sc91s4OZzGudqRocYceATdlqrMnXa8DJTvfkOIwd2lREXrGrQ -hj++s1l7W9nx+doFm84X2rBIV2HOY8SOUyZT+5neasOLa/uDSw7vxB0Gg31B -49rw1Kmmdfg8GzZYcO21ZyXC1/D4R1YCzFig3rigYQcRdqY7tzpPMeGFWEW/ -XRxEYCm3ev2qhgnnSP3YMclDhNHRTs58Rya8dSxsn58YERKMo518SxkxtT61 -KkaNCMkfXgkuW2zHt+MCImc0iKDu1b1uI7cd+1nbmh/SIgJHXZ8u2yYDllwU -m+UmE2Gu0fG20wMGHCldKnV3LxFecO5XeraDARvGU1KeWBNhml55/fbQNixi -k/+fgB0RuHz3MzRVb8M/paOVQxyIUK557b1q6jZc0HDwNXIiwts04eLPJtsw -/Y/ef+2eRPhC9xEl1dPhFps5n/EwIojyownF4//QAVmhw+wFRGD//qpWPeov -evq9Vcq1kGY3U2quPvgXyT4//7uumAj8FVGnS7n/ou2m73M9HxDBZjQ1tKfg -D2r2jfnZ8pQI6WE7tJU61hGqX84IfUWEhld375OV11B5dIH3h3YiPD3bqoD+ -rCJxc0tDhbdEsFw74Fv4ehVtjD+Y7esigkwqITbdfRXVMZ0y0Bgigu3VklvT -xb8R8eiHL1PzRAhYvpw1QFpBxaIRz9EiEZgWh+VKdq4g/knlxJtLRHCbV+95 -N76MloPitPf9JoIL4zCLxLVlVHUXx+X8IwLlsFVyzfgvpDbzSMWaRwckv7RU -mN/9iRQirwU36+iAs5Kz77rFD9SgV8R4SFcH7qp5OeUr/kCWq9S0Pn0duBg+ -5prF+AMF+6w8nDbUgbIwZ50/wYvotaPzZ45DOvD9u8Snb8cXkCeZaHrcWQe2 -TMmBmmgebSxbDky46EDIeog65+YcSqnwcvVx0wHPyT1XQxvmUI18/qXLZ3Tg -ukLy6TX9OcQisPNJSYAOFDDbXfPfP4vu//wsuhynA3hKJu6U9zRC5RulFxN0 -YJErf7WQMI26TwsSmZN0AIwuFJ/6O4X+jB+yFEnXgfXExapjiVPI9P3zaLir -A03O/+JnnnxDsw+uf0+s1IEjTjPx24UnkaIbmbp7SAfuvVe/nab1BSVLm/+5 -MqIDQiNFNy/v/IKWx1y0v4zqgFv2pZCXE58RxSHxQc5XHZC3Cflv363P6Kjl -WIbgdx1w3N/cxrs5jkL0rvqx0pGgNsTqyHTVGBpdy3zgQU+ClrLvbx56j6G9 -z8q/tW4nwY0EOz9G+TG0U2PQMYqVBEZFK9k+d0dRnpzSwb88JCjWWK6jS/2E -XnN/kPq+mwQMfVp9ymnDSOX9pKOZAgmKAphly48No7TEPxn3FUmwmfhbukpw -GDkyy3K4q5Gg4P1nIZQ7hBY3Av+MkkiQZyJQfPDpRyQwLdbTZUaifd8xBVit -DCA3imf0U38SpM3qp1e+7UULZ2eDDgSQILnb4nprZi8KFvf26g8kgateRail -Ry+6Fu57dC2MBMQPI3yvGHpRhW6gpH4MCe5nrDCI7u1BG8+uNLRkkUAyqD48 -qucDinFnrDh2lwSZJoTRpJIPiFMg9t5kLgn69BKf04d/QNIXrl1jLiLB81V5 -krjcB2RMSLUze0wCxrmlou0RXSjtcc5ydwsJlM8V19Re7URiTpLTp9pIMES9 -wrlE7kRFHAXDy69JENO5rDqy8A7VnC1qFugkwUAFIfiVwzv0SelhisMgCVIv -ODe36b5FCqW1yl/mSdB1idNYUKQDUfN6XZf4yeCgE1kjcqgNjR+ScgoUIsPw -cVbBTb42RLd+1v6vCBkyJtzenRxtRXuPMJszSpIhQESw4tG5VtS2TVdHWJEM -yOLCR7X8l+itSy6rIaLZhSjvZ/ha0HeOeYY2IENDKOny2clmxFFP2jLdR4bd -+05ZuTxrRpa83T+PmZBhJf6sQ7Z9M+pp2T7ieZQMaWb1PmpFL9CQ7JnyFHcy -RDYG27JZNqG/Xc9K+U+TQSy2NkhZvgmJXWS4l+VFhjnO18dOblLRib47GYV+ -ZMhb10x9foKKxq++j6wJJcPhe821B+UpaOqbltV4EhkG+3/tSBmpR8ul/1bV -ntPWvyrlW/3yOfpmY5QXX0uGsDderJ6Jz9Hg9usmX+vJILV6KSHr2HNU7yyS -eauJDK1EppXQb89QlJC27mY7GbSkNrN2cD1DXHFnwjtGyFB2tE3xashTRE+s -lJUdI0Ove++uWpOnaPnr6tuLn8lgUD750FHoKRrAV8U1vpGh2GJHy0LNE5Sz -mkvJWCTDtnqfGtl/VUjZo4/OjV4Xeqi73u/MrUQS/GL3Kdt1YfpV5tG3AZWI -q8XliBCzLpgc7Rb+blqJfkn8yH+zQxd2ZopLWKxVoLp+tn2a/LowEijJesm2 -ApkYwdV/8rpQwyuaUna4HJ3a/YA167AuxEVyXrJnKUOhrf+dkbPUBbfN+b3j -LfdRihvPm6qjujA0nCTJF3kfNRSFJL6x1QXxivN54X9KEZ+cCefmSV3AFWbD -MqslqE1uks85UBcqZX6d9OMoRiNtty/MB+uCTT/jjZ29Rein+6H+4DBdOJDz -/bRBVhHaVfIkIzVSF1y0Ax1tFYpQsHyUSMs12nwsDSkHzAqRosIuSblcXfB+ -cVh7rKwAwevuyKp8Xfg47T4rHVKAbDxjPqNCXeiUrhL7ZlyArpR+L7C9rwtn -HhoKffuWj0YUGnbHP9GFRSfHyTLFfJS0x15p/pUu3EhmdopPyUVLiunEqh+6 -kNU1EHikNAsNvoUDvL90QX4Ansi6ZaEmnwWrgBVdGHgxspIlnYWSqg76E//o -woXZlXtncjORoi7dwzoGPXBbZ/t9Nu82cjl4VqpFQA+Impln2ym30ME5EXVZ -YT1w+Pj7gPTVW0j9+mt0VVQPLIPG55gP3UJbXTKOxpJ6sL9hLixg+CbKthu6 -9WaPHnDufHH4Md1N1OthvLNXXw+MQ8RGM0+lo3rWFRFtrAccXPv5lTTTUcGD -gj23DPVgY0O0XXtbOvJb3DSyM9KDzXms9iQvDbEHPb08YqEHisQlPbXJVGQU -I7U64aIH6k4TMehKCqop/Pt5JU4PzAV+W8cLJyLivoBV0wQ9OO1omB7WnYCq -P8/vzLuuByfymxVEExNQlcSojmmaHpQfb2dy3JaAHt5uup6TrQf24VsbNb/i -UV7iVbJxuR78ZpWLSfodiySUtszvVOjBquclt9zaWHS3PdB1qUoPcvCb7gMX -Y1EWk2dy9nM9yOxnGjjMFItuRJpOLjbpwc9KjkrZXTEoPoAz9XaPHlwWlPj0 -+kw0YuGNK/7epwep7/b0pxOjUUwlXcPeQT14x1P1bIw+GkUvLH2bH9GDZxPX -PFfuXEGXPHv1Db/pwUnBMMpqfxQ655g5PbNGi6/SWyOHk5eRw34Z0JPQB7cA -HdFjKRfRZi8LR4ukPkxw2ST5GlxEeW4Lw6Yy+hBycSPHay4cfYupDXJQ0Icd -RS2BGwfD0bl2i8chmvrAMtljvpc7DF0zD5eoMdKH2BA2mbC2YKQydnIeH9SH -xGs+05mRwajL17julZk+aE5eNwjSC0YCqTw2A5b6wMv2tN3tSRAq6Cm9/ttB -Hw4yUj+NPAhEdXZ9G1q++pB+Q1biVmMAOjFT19Hgrw9yNYuPG6MCEF1o3u39 -AfrQHeVAiTEJQEbZXlrHQvRBsnOp9HffedT9aZv3+Sv6sMdDnlly7RyadVEd -rszQByn+J10kO38keja2VrVJH6YqfuXf+uONkv65ayc068PLhbVdPx56I/o0 -o8qpl/rA/uY9E6+zN5p9xng/r10f7o6PEh699kJ1dNG3eXr04RVnAt9mwRnk -cCMy6PekPmTMeSidCfVEnXLOv45O64MqcYM1mOSJ9tZi38ez+jAX/uKnxqoH -Uhzdcvdc1AfMe0L6XqAHWpe/aDO0pg+z6RczD110R7frQ7QpOwxAw8Shx7rU -Fe00t68U4TCAqZ3Zmyf9XFHkOEkliMvg//8HftORXZEn45qsOr8B1LrUxS+9 -OYV0LAL5CiQM4DtQT15Yc0H9X879uqphAHspwtG9Z04ifjbvysO2BmCiUdaz -aXsCFe67GPrD3gAejhv5O205Is2LSfvSHQ0g/B2rW0eRIzL/UdE3eNIArOzO -h1asHkcx/Svrp7wNICwj/4h3iQNaK4jYG3rZAGJ0mOm1tOxQzEjKDvFoA1A5 -c8t7cMYW8QkU9FJjDGD31CdnhzxbpB7/0p0x0QDkfk4vz3PaotO+rAkptwyA -73NkOcu6NRrSS+8pfmAAMlY3DDiXrJDnhcI7B8sNQDpZo8X3iRX6XV7tNl9h -AOJHJZjjA60Qj/TgqsYzA6DLGfD7tHUUmbGIizU2GcD8x6C8XsGjqKG32LWn -jxavQ1PnDpy2RKYcNSqBgwbwwitYbB/REg0at/8WGjaArHOHi4YYLNFy3Vzc -f+MG0G/BXJZnaIFU8tUfzcwagN+GUOShlsOoYcgwMPG7ASRKUUuuuh9GpnxW -WO2HAbwR/xM/wHYYucde+BCwQuOYqPIam0NouSkmS3DNANzDk3MNt8xQ1J+M -U3V/DCDfNaK0v9gMcWndVz6xaQBXhz8+C7A0Qzln61b+/aPli3GwSeivKfof -HbLGog== +1:eJwV1nk81NsbB3BFxb0lS5bsM+Y7ZKdSlul5UEQlVCq5WUKSpEKmZLtZUykt +tpTdmK+iW1SELNGmhWstlZabnWxR8ju/P+Y1r/frO68zz/mecz7PYbgfdvCc +LyAg8IN8/v892f2kjnUmZx3N5BwKnjJc15IhyzVrjwQnXsq7jeJSgFIv3WXb +L8K64Fyv5eIUBNkVtgm2Z4G5us7WX2KrQXxI5uJ0221Y1J+1rV1sA7yvsD08 +3lYDXiJdV/3FdoAlq+/daNsb0Lh5qvmLqCdMt625PNLWA0dOvuuvFw6EWov8 +nNdZY6Dq9j3za1MUKLy//9VdaxbaV6XZn5BIhGW+LoWLLASxmWH9rf33Jbio +b1luu0MYvbP1FO1UUqEjWa96VGwJBsryl2bRGXAmJ+zl/OXiKOY8/odwXibI +XPoUl3RNEhvK70QYVWZDzHbrdW8mpXAB75lZTHQuHDPKdHkSKYvD0rkhs2b5 +sH545oTfJznUsplrMC8qAO7GSxqPBuRw11iT9uHbBXAzU7tTclIOZSY9o5PL +CkB2u6vRfWF5nPiaJ9rzqAAG7tVPCerIY/WBR0ftWgsgKTIxICVYHmPcnm1I +/V0APVJsv7olCvjG1E/+w2YeRJjau8mtVUSp+C3F7A882Lg34/sac0U0Oyy6 +a/AzD0TD+//esVkRGc//dCzu5UF6bVReoqsiShj1bdMc48E9mwf9C+MU0esG +z35iQSGM7FINGutQRIW3qZodGoWwN3Ai/vlJJezLFTV6f6QQjG+m3AmtUsZ0 +jYch3eOFsL6taXaoURkN/nO6efxHIdgKCFm5vFHGXOdW3pJfhbDPwa8Dvihj +spHPb11BPlieZISFL1DBRQoWSrbifPBXnsw201RBO+NbpiNafKjbf32wNkgF +D5zKW/XcjQ/Wv4wkQk6qoGVc/K3fHnxoSmwxXBWuguyx5Altbz503BcJz4lT +wUBezKdIPz4M/RkgEZWugikmEtYLT/JBtnjjGssaFex1WGR3LIkPvj9GwxuX +MFA5Nl76v0d8MD7iJf1VgoEpjKXUcB0fhPs6+YKyDGQsij421sCH3K7a1nVM +Bs78I/165AUfuisva901ZOABh6hLlR182Bpl1J7pwkDuHodDeSN8MJCI0D1Z +wsD37IUyPHkaBM5M1CWXMvDJxM/LRko0NAn6OJWWM1Bz40vnxyo0HJxwiBqt +Z2B9uFltC0VDTjura38nA5tLv/ys06VB+npj9HZBJqLjln1j5jRMa4p1a+9g +YsSmRN94Lxomr8lFrHRiorgOqyLVm4bxpRTLyIWJ9Z014fk+NAyNGfmsP8BE +oVc3fEr9aOgp3zfpdIqJASaxz3hBNDzdVCYam0vG+5Cy/L8oGhoePio5W8jE +auaOb5UxNNTpPt+edIuJUraHDJLiaKiU/JiacZ+JjavdjPXP0nC76w+1uy+Y +aJGzhrK4REPqwb3QM8HE8ooPDZWZNFx9593z3wwTb9ZJh+/NpuHS1mNRg3NM +VNhLP5jJoeHcythnP0RUUbGo6Z56AQ2RP0t2LlVSxTXqAl+dbpL3c2aBv6ml +KjpOP/WTfUCDKZ++ceWKKuolO93+2URDlwr/+oY0VdQpMTOUfUXDiSu8jPHr +qhgv3lyp/5qGsoi8dAeeKsrll73f00yDwa4byaIVqigl/cM3oY2GFQsuJUZ/ +VEXh2f1yLu9paDxx8fzqr6o4l/9MafMHGrxGEs997lNFKzlFXcOPZH26ziaY +j6tiWZNP4LxPNKjcjon9vZCFBUsmcwO+kvVyORkepMVCV73g+U0DNNxt4YZR ++iz8Kagwd2aQhu02waEtq1nIOHNgqdUQDRdXB4YYAAunmgUO3RmmYcniw8FD +9iwMub1Sw/c7DXTEoePXHFmob7f6jcQYDTZTB4M272Gh7j99F0qJY3u8Awo9 +WKjnE+o0MU6D0H13f6/jLHzMrlGym6IhW8ftsFQIC4/atV18T2ye4+JXF07q +ZTcwfX/QEHbe2ZcZz8LYWofkkGkaZjwdvbvTyfgDE99O/KQhpWv7/rOZLHSP +v28zRrzWfpuXaR4LvZhpz71/0RBkaueReouFO017DDbN0jAqYePqWMPCpr8q +kwd/09Duy3zl08DCrTl5ajvnaKh+PANhz1m4gSvt9JA48QRfuaCVzPeGGx0m +UATBLX+fr+hioUZbwYsuYlcd57lXH1gY5bH18qp5RaDXs/j9dB+p/2my3Fti +WdMvtqIjLLQAukNjfhEIXHlYyZxgYaiZgHkQ8Utrv4xNcyxUu2IvLihYBKXZ +lqKuQhQO6dVx1xNnzCqFBohQ6NHrdi6S2K/k5V/XJCnMzllaNU7s+GfBixJZ +Cv0vpLxVFyqCdZ7hnMeKFOoeNuftJmZX7SrqZFJIZzVSMcRLlusrDqtRyFTt +dyghHj8qclZQm8JJ7gH9duK3zz/+kjEg/1cjWPOTuI79wFdrDYWivBMLFBYU +AR1+8S2aUlh18PyvtcSXOn027zCjcLZdsMCBOGSVRcUBSwortqYKHyD2OCev +FbqJQqEqKeUQ4k3fxtIu2lGYnms0cIbYwPz5n/k7KLwu/tQ/mVguPedkuROF +xjfOFGUSz58M6X/pQqHVKYvsfOK+rTv2fPagcNi9zKGQ+A1P+9mPAxS6phRV +8IgfCC40WXKY1D858DGXOOuv7kJGAKn/nWltBnFcWamcIZc853i6XSL2Fz8f +bxNKocAlnYfRxLsO7p/Z+zeFd3rd2gKJsR58jsVSaNjcWOxGrK4s2xlzlsJH +/to2NsRi3BHr9IsUPj7klKNL/ONN4/3iqxRyBeSrxYk/aGWuqE+nMLHXOGOE +vM/GaG5KRyaFX45Fw3Pi4g/2IkN5FC4MeJqTQ5xsrMGdT1M4YdXSxCXeP9S5 +S7OUQqXEIwFyxLYb/2mEcgr1fLNGv5D1N8w6s3Z7NYVzfc2GN4kXOprKnnpK +4fzjXIXVxEO3lsVeeEnhshXnK8fIfmsVGZzKbaFw5PE3zVvEeQ+vtTV1U5jc +WnxQgficTJDVp08UdinVQxPZv0FHbMumvpH5z3n3hBBvoOauqIxRqDJQfOUV +2f+fE1wdjy5io5tU8ht7cl78+rSYeovZyFBSXjlKzteU1fTgoBgb17A3vj5L +/IfgxagDcmyMEcQnleQ86nFr77hqs9FEXL58jpzfB63nw5UM2AhhggpxxBar +nDe/NWSjLVemeimx4/D4p53IxvLF51qWzdBwypMtuXUbG50T95r/JvmxsPZ7 +9+JdbCxItn51hDhRparwqTMbdd/Oy++Z/H8+7jS39GLj0pkS/YoJ0l/s445w +uGy0dl/8ypbklfS6gZea19nYMnX/9XeShzfS7qX1ZrPRqSra3IR4xfTp/fkF +bFQPLFwUQfLT9I7iHPM2G5+lf7kg1E/DPo2tOnL1bJyVaXjQ/x8NxdK3E4T7 +2TjtaSpkQvLZOCB01+NhNta+1ZPcTfK79rUN6/Q4GwXANTKA5HtrwqfyuVk2 +7i0NOJ39joZf86X6J8XUUL+cp9XTQYP18HHrL4Zq+HSX0L0e0j8U9JWihU3V +cFuDP7+a9Jeho3U1mmZq6PUuITntJelnk2KmRzepYQ8+3rfxBQ3dszydORc1 +DFCf7DjVSMPRxW8ll8ep4f3646zdlaQ/rsDuzV1qmOVxzaw9nwbfg1/l/D+o +4T9XvZ135tEARQk7k76ooWuvxYVm0h8/63W86hhWQzs9hy21pJ/qrD1a6yWk +ji6jE5rhaWR+ljkF4drqaOH+4ZD/ORoG9gkfuxOmjjUavw8aHCX1Zqx/WHVa +HZ3uSEa6+NMw3BG+6FmcOh5JKR6MI/eB71un0z4mqeNsVeqTVnJfmDLpqxMt +UMfLwjPFdvtomL/sufSBV+podHcl9XgbDcvrzj9QZKzAqm01g5UGNLmfy8yP +qVmBpjaiHNVePvS6WxWYNKzAq6MlFu1f+ZCQedx25NkKdBV1WXnmMx+aldpT +d/+7Ak3k3V/3veeD6/KUlVrfVqCV0IDKhVY+cEXlPV8v0UDr0fR/T9Tygf6h +1Ci/WwPv3NHobEzjg8QL9rniYQ30Z9QMR1jyQSH2lp2hoRZul1koez6gEJI1 +jcQk92tj9ZiqtchlHjyVM1s9dkEHWyTC+TPZBWCsUJOo26qLn2xPKa+OzwdR +wawAt0g9RPt5/VoBeaAUoWy6m62Pxu8UNPjGuSBCOZc6NOhjyFpFN/7vbNDh +LL91/C8DnLr2cfmCliw42i1RayOwEq/FdTc7nM+E4bGEHdbJK3FSb7viDvcb +YKX7ONVaexUu5SrpbwvLgMoxk59TTavQ/2FP/HKZdPDTMuh87bkaJWq3XS7q +TQHOkEfLbhFDXHutLJqZcxU2sGS3LMkyRF3fKSGta5dBPTw+uGbNGnzvu9t6 ++F4SaHgaVVGda3Awom7Bi8YL4FnpffrOkbX4zUO3REk6EaputHiMShnhLl5/ +POdhAowXzE3plhlhki291ycjDvZRfJHULcbYb+ARKjkUDaMaSYa3R4zx1x4X +Qy6ehns5Pz9OxJpgqrpG99OpCHBar4omSqa4dFF9mXJHGMgfirmvU22Kq7y5 +MX+3nASpP3xLtuzk4PGhUzqJx4Ihx+LUiZHdHPTJ+jfbzDMYDE6ds0hy5uDG +iqZn047BYDtS/G+7GwdL7L5rhhoHQ3TrxPQ+Xw7a7xWZap0XDD+ywsxPRHCQ +O1e/qOHCceg0SWrO43NwIOlWaFJpEHgH5qRb3+SgrsZgjAwvCCZv3vUcKOZg +2f78BVlpQSDBbJ/SL+Xgmi/ljk/Dg2CTsKLCw2oObm4IlfXeFAQVLXkezf9y +EPNi3Fs/BoKN6D3toHYOvmn8o7G6JRDarZ5MynZx8MTK1MiShkAYf9Afu/cD +BxV6Z4ZyiwJBO1OvqLeP/F416lAnNxAqOs2CEgY5WMDQXj/lS8Zbtg10RzjY +/V3aVc41ELxiAl8HTHBQgm5wOWZJxquOTpX5wUGv3ynAMwqEyJmr+x7McEh+ +1jl/0QoEsVU8rb9mObhnbMtdNZVAyDj0YGJujoMTssZW/pKB8D9uYxvm "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "PlotRange" -> {{0, 30}, {0., 0.056683847996913055`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8111,6 +8018,7 @@ HbLGog== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8138,7 +8046,8 @@ HbLGog== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.056683847996913055`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8146,24 +8055,853 @@ HbLGog== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913218813523655`*^9}, - CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] + CellChangeTimes->{3.9913218813523655`*^9, 3.9938269348793707`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"51789872-084a-4434-8313-6375a091b817"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ -9e93d345c648"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.004388"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.013039"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.021317"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.028996"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.035881"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.041813"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.046685"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.050429"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.053035"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.054525"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.054971"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.054465"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.053131"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.051096"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.045494"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.042194"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.038723"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.03519"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.031681"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.028272"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.025018"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.021962"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.019131"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.016543"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.014202"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.01211"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.010256"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.00863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.007216"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.005996"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.99382617555124*^9}, + CellLabel-> + "In[105]:=",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.054971}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938269350392838`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"4a16ab23-3783-4e1c-888a-6afe5ae88fea"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ -ec28b28907cc"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk81NsbB3BFxb0lS5bsM+Y7ZKdSlul5UEQlVCq5WUKSpEKmZLtZUykt +tpTdmK+iW1SELNGmhWstlZabnWxR8ju/P+Y1r/frO68zz/mecz7PYbgfdvCc +LyAg8IN8/v892f2kjnUmZx3N5BwKnjJc15IhyzVrjwQnXsq7jeJSgFIv3WXb +L8K64Fyv5eIUBNkVtgm2Z4G5us7WX2KrQXxI5uJ0221Y1J+1rV1sA7yvsD08 +3lYDXiJdV/3FdoAlq+/daNsb0Lh5qvmLqCdMt625PNLWA0dOvuuvFw6EWov8 +nNdZY6Dq9j3za1MUKLy//9VdaxbaV6XZn5BIhGW+LoWLLASxmWH9rf33Jbio +b1luu0MYvbP1FO1UUqEjWa96VGwJBsryl2bRGXAmJ+zl/OXiKOY8/odwXibI +XPoUl3RNEhvK70QYVWZDzHbrdW8mpXAB75lZTHQuHDPKdHkSKYvD0rkhs2b5 +sH545oTfJznUsplrMC8qAO7GSxqPBuRw11iT9uHbBXAzU7tTclIOZSY9o5PL +CkB2u6vRfWF5nPiaJ9rzqAAG7tVPCerIY/WBR0ftWgsgKTIxICVYHmPcnm1I +/V0APVJsv7olCvjG1E/+w2YeRJjau8mtVUSp+C3F7A882Lg34/sac0U0Oyy6 +a/AzD0TD+//esVkRGc//dCzu5UF6bVReoqsiShj1bdMc48E9mwf9C+MU0esG +z35iQSGM7FINGutQRIW3qZodGoWwN3Ai/vlJJezLFTV6f6QQjG+m3AmtUsZ0 +jYch3eOFsL6taXaoURkN/nO6efxHIdgKCFm5vFHGXOdW3pJfhbDPwa8Dvihj +spHPb11BPlieZISFL1DBRQoWSrbifPBXnsw201RBO+NbpiNafKjbf32wNkgF +D5zKW/XcjQ/Wv4wkQk6qoGVc/K3fHnxoSmwxXBWuguyx5Altbz503BcJz4lT +wUBezKdIPz4M/RkgEZWugikmEtYLT/JBtnjjGssaFex1WGR3LIkPvj9GwxuX +MFA5Nl76v0d8MD7iJf1VgoEpjKXUcB0fhPs6+YKyDGQsij421sCH3K7a1nVM +Bs78I/165AUfuisva901ZOABh6hLlR182Bpl1J7pwkDuHodDeSN8MJCI0D1Z +wsD37IUyPHkaBM5M1CWXMvDJxM/LRko0NAn6OJWWM1Bz40vnxyo0HJxwiBqt +Z2B9uFltC0VDTjura38nA5tLv/ys06VB+npj9HZBJqLjln1j5jRMa4p1a+9g +YsSmRN94Lxomr8lFrHRiorgOqyLVm4bxpRTLyIWJ9Z014fk+NAyNGfmsP8BE +oVc3fEr9aOgp3zfpdIqJASaxz3hBNDzdVCYam0vG+5Cy/L8oGhoePio5W8jE +auaOb5UxNNTpPt+edIuJUraHDJLiaKiU/JiacZ+JjavdjPXP0nC76w+1uy+Y +aJGzhrK4REPqwb3QM8HE8ooPDZWZNFx9593z3wwTb9ZJh+/NpuHS1mNRg3NM +VNhLP5jJoeHcythnP0RUUbGo6Z56AQ2RP0t2LlVSxTXqAl+dbpL3c2aBv6ml +KjpOP/WTfUCDKZ++ceWKKuolO93+2URDlwr/+oY0VdQpMTOUfUXDiSu8jPHr +qhgv3lyp/5qGsoi8dAeeKsrll73f00yDwa4byaIVqigl/cM3oY2GFQsuJUZ/ +VEXh2f1yLu9paDxx8fzqr6o4l/9MafMHGrxGEs997lNFKzlFXcOPZH26ziaY +j6tiWZNP4LxPNKjcjon9vZCFBUsmcwO+kvVyORkepMVCV73g+U0DNNxt4YZR ++iz8Kagwd2aQhu02waEtq1nIOHNgqdUQDRdXB4YYAAunmgUO3RmmYcniw8FD +9iwMub1Sw/c7DXTEoePXHFmob7f6jcQYDTZTB4M272Gh7j99F0qJY3u8Awo9 +WKjnE+o0MU6D0H13f6/jLHzMrlGym6IhW8ftsFQIC4/atV18T2ye4+JXF07q +ZTcwfX/QEHbe2ZcZz8LYWofkkGkaZjwdvbvTyfgDE99O/KQhpWv7/rOZLHSP +v28zRrzWfpuXaR4LvZhpz71/0RBkaueReouFO017DDbN0jAqYePqWMPCpr8q +kwd/09Duy3zl08DCrTl5ajvnaKh+PANhz1m4gSvt9JA48QRfuaCVzPeGGx0m +UATBLX+fr+hioUZbwYsuYlcd57lXH1gY5bH18qp5RaDXs/j9dB+p/2my3Fti +WdMvtqIjLLQAukNjfhEIXHlYyZxgYaiZgHkQ8Utrv4xNcyxUu2IvLihYBKXZ +lqKuQhQO6dVx1xNnzCqFBohQ6NHrdi6S2K/k5V/XJCnMzllaNU7s+GfBixJZ +Cv0vpLxVFyqCdZ7hnMeKFOoeNuftJmZX7SrqZFJIZzVSMcRLlusrDqtRyFTt +dyghHj8qclZQm8JJ7gH9duK3zz/+kjEg/1cjWPOTuI79wFdrDYWivBMLFBYU +AR1+8S2aUlh18PyvtcSXOn027zCjcLZdsMCBOGSVRcUBSwortqYKHyD2OCev +FbqJQqEqKeUQ4k3fxtIu2lGYnms0cIbYwPz5n/k7KLwu/tQ/mVguPedkuROF +xjfOFGUSz58M6X/pQqHVKYvsfOK+rTv2fPagcNi9zKGQ+A1P+9mPAxS6phRV +8IgfCC40WXKY1D858DGXOOuv7kJGAKn/nWltBnFcWamcIZc853i6XSL2Fz8f +bxNKocAlnYfRxLsO7p/Z+zeFd3rd2gKJsR58jsVSaNjcWOxGrK4s2xlzlsJH +/to2NsRi3BHr9IsUPj7klKNL/ONN4/3iqxRyBeSrxYk/aGWuqE+nMLHXOGOE +vM/GaG5KRyaFX45Fw3Pi4g/2IkN5FC4MeJqTQ5xsrMGdT1M4YdXSxCXeP9S5 +S7OUQqXEIwFyxLYb/2mEcgr1fLNGv5D1N8w6s3Z7NYVzfc2GN4kXOprKnnpK +4fzjXIXVxEO3lsVeeEnhshXnK8fIfmsVGZzKbaFw5PE3zVvEeQ+vtTV1U5jc +WnxQgficTJDVp08UdinVQxPZv0FHbMumvpH5z3n3hBBvoOauqIxRqDJQfOUV +2f+fE1wdjy5io5tU8ht7cl78+rSYeovZyFBSXjlKzteU1fTgoBgb17A3vj5L +/IfgxagDcmyMEcQnleQ86nFr77hqs9FEXL58jpzfB63nw5UM2AhhggpxxBar +nDe/NWSjLVemeimx4/D4p53IxvLF51qWzdBwypMtuXUbG50T95r/JvmxsPZ7 +9+JdbCxItn51hDhRparwqTMbdd/Oy++Z/H8+7jS39GLj0pkS/YoJ0l/s445w +uGy0dl/8ypbklfS6gZea19nYMnX/9XeShzfS7qX1ZrPRqSra3IR4xfTp/fkF +bFQPLFwUQfLT9I7iHPM2G5+lf7kg1E/DPo2tOnL1bJyVaXjQ/x8NxdK3E4T7 +2TjtaSpkQvLZOCB01+NhNta+1ZPcTfK79rUN6/Q4GwXANTKA5HtrwqfyuVk2 +7i0NOJ39joZf86X6J8XUUL+cp9XTQYP18HHrL4Zq+HSX0L0e0j8U9JWihU3V +cFuDP7+a9Jeho3U1mmZq6PUuITntJelnk2KmRzepYQ8+3rfxBQ3dszydORc1 +DFCf7DjVSMPRxW8ll8ep4f3646zdlaQ/rsDuzV1qmOVxzaw9nwbfg1/l/D+o +4T9XvZ135tEARQk7k76ooWuvxYVm0h8/63W86hhWQzs9hy21pJ/qrD1a6yWk +ji6jE5rhaWR+ljkF4drqaOH+4ZD/ORoG9gkfuxOmjjUavw8aHCX1Zqx/WHVa +HZ3uSEa6+NMw3BG+6FmcOh5JKR6MI/eB71un0z4mqeNsVeqTVnJfmDLpqxMt +UMfLwjPFdvtomL/sufSBV+podHcl9XgbDcvrzj9QZKzAqm01g5UGNLmfy8yP +qVmBpjaiHNVePvS6WxWYNKzAq6MlFu1f+ZCQedx25NkKdBV1WXnmMx+aldpT +d/+7Ak3k3V/3veeD6/KUlVrfVqCV0IDKhVY+cEXlPV8v0UDr0fR/T9Tygf6h +1Ci/WwPv3NHobEzjg8QL9rniYQ30Z9QMR1jyQSH2lp2hoRZul1koez6gEJI1 +jcQk92tj9ZiqtchlHjyVM1s9dkEHWyTC+TPZBWCsUJOo26qLn2xPKa+OzwdR +wawAt0g9RPt5/VoBeaAUoWy6m62Pxu8UNPjGuSBCOZc6NOhjyFpFN/7vbNDh +LL91/C8DnLr2cfmCliw42i1RayOwEq/FdTc7nM+E4bGEHdbJK3FSb7viDvcb +YKX7ONVaexUu5SrpbwvLgMoxk59TTavQ/2FP/HKZdPDTMuh87bkaJWq3XS7q +TQHOkEfLbhFDXHutLJqZcxU2sGS3LMkyRF3fKSGta5dBPTw+uGbNGnzvu9t6 ++F4SaHgaVVGda3Awom7Bi8YL4FnpffrOkbX4zUO3REk6EaputHiMShnhLl5/ +POdhAowXzE3plhlhki291ycjDvZRfJHULcbYb+ARKjkUDaMaSYa3R4zx1x4X +Qy6ehns5Pz9OxJpgqrpG99OpCHBar4omSqa4dFF9mXJHGMgfirmvU22Kq7y5 +MX+3nASpP3xLtuzk4PGhUzqJx4Ihx+LUiZHdHPTJ+jfbzDMYDE6ds0hy5uDG +iqZn047BYDtS/G+7GwdL7L5rhhoHQ3TrxPQ+Xw7a7xWZap0XDD+ywsxPRHCQ +O1e/qOHCceg0SWrO43NwIOlWaFJpEHgH5qRb3+SgrsZgjAwvCCZv3vUcKOZg +2f78BVlpQSDBbJ/SL+Xgmi/ljk/Dg2CTsKLCw2oObm4IlfXeFAQVLXkezf9y +EPNi3Fs/BoKN6D3toHYOvmn8o7G6JRDarZ5MynZx8MTK1MiShkAYf9Afu/cD +BxV6Z4ZyiwJBO1OvqLeP/F416lAnNxAqOs2CEgY5WMDQXj/lS8Zbtg10RzjY +/V3aVc41ELxiAl8HTHBQgm5wOWZJxquOTpX5wUGv3ynAMwqEyJmr+x7McEh+ +1jl/0QoEsVU8rb9mObhnbMtdNZVAyDj0YGJujoMTssZW/pKB8D9uYxvm + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk81NsbB3BFxb0lS5bsM+Y7ZKdSlul5UEQlVCq5WUKSpEKmZLtZUykt +tpTdmK+iW1SELNGmhWstlZabnWxR8ju/P+Y1r/frO68zz/mecz7PYbgfdvCc +LyAg8IN8/v892f2kjnUmZx3N5BwKnjJc15IhyzVrjwQnXsq7jeJSgFIv3WXb +L8K64Fyv5eIUBNkVtgm2Z4G5us7WX2KrQXxI5uJ0221Y1J+1rV1sA7yvsD08 +3lYDXiJdV/3FdoAlq+/daNsb0Lh5qvmLqCdMt625PNLWA0dOvuuvFw6EWov8 +nNdZY6Dq9j3za1MUKLy//9VdaxbaV6XZn5BIhGW+LoWLLASxmWH9rf33Jbio +b1luu0MYvbP1FO1UUqEjWa96VGwJBsryl2bRGXAmJ+zl/OXiKOY8/odwXibI +XPoUl3RNEhvK70QYVWZDzHbrdW8mpXAB75lZTHQuHDPKdHkSKYvD0rkhs2b5 +sH545oTfJznUsplrMC8qAO7GSxqPBuRw11iT9uHbBXAzU7tTclIOZSY9o5PL +CkB2u6vRfWF5nPiaJ9rzqAAG7tVPCerIY/WBR0ftWgsgKTIxICVYHmPcnm1I +/V0APVJsv7olCvjG1E/+w2YeRJjau8mtVUSp+C3F7A882Lg34/sac0U0Oyy6 +a/AzD0TD+//esVkRGc//dCzu5UF6bVReoqsiShj1bdMc48E9mwf9C+MU0esG +z35iQSGM7FINGutQRIW3qZodGoWwN3Ai/vlJJezLFTV6f6QQjG+m3AmtUsZ0 +jYch3eOFsL6taXaoURkN/nO6efxHIdgKCFm5vFHGXOdW3pJfhbDPwa8Dvihj +spHPb11BPlieZISFL1DBRQoWSrbifPBXnsw201RBO+NbpiNafKjbf32wNkgF +D5zKW/XcjQ/Wv4wkQk6qoGVc/K3fHnxoSmwxXBWuguyx5Altbz503BcJz4lT +wUBezKdIPz4M/RkgEZWugikmEtYLT/JBtnjjGssaFex1WGR3LIkPvj9GwxuX +MFA5Nl76v0d8MD7iJf1VgoEpjKXUcB0fhPs6+YKyDGQsij421sCH3K7a1nVM +Bs78I/165AUfuisva901ZOABh6hLlR182Bpl1J7pwkDuHodDeSN8MJCI0D1Z +wsD37IUyPHkaBM5M1CWXMvDJxM/LRko0NAn6OJWWM1Bz40vnxyo0HJxwiBqt +Z2B9uFltC0VDTjura38nA5tLv/ys06VB+npj9HZBJqLjln1j5jRMa4p1a+9g +YsSmRN94Lxomr8lFrHRiorgOqyLVm4bxpRTLyIWJ9Z014fk+NAyNGfmsP8BE +oVc3fEr9aOgp3zfpdIqJASaxz3hBNDzdVCYam0vG+5Cy/L8oGhoePio5W8jE +auaOb5UxNNTpPt+edIuJUraHDJLiaKiU/JiacZ+JjavdjPXP0nC76w+1uy+Y +aJGzhrK4REPqwb3QM8HE8ooPDZWZNFx9593z3wwTb9ZJh+/NpuHS1mNRg3NM +VNhLP5jJoeHcythnP0RUUbGo6Z56AQ2RP0t2LlVSxTXqAl+dbpL3c2aBv6ml +KjpOP/WTfUCDKZ++ceWKKuolO93+2URDlwr/+oY0VdQpMTOUfUXDiSu8jPHr +qhgv3lyp/5qGsoi8dAeeKsrll73f00yDwa4byaIVqigl/cM3oY2GFQsuJUZ/ +VEXh2f1yLu9paDxx8fzqr6o4l/9MafMHGrxGEs997lNFKzlFXcOPZH26ziaY +j6tiWZNP4LxPNKjcjon9vZCFBUsmcwO+kvVyORkepMVCV73g+U0DNNxt4YZR ++iz8Kagwd2aQhu02waEtq1nIOHNgqdUQDRdXB4YYAAunmgUO3RmmYcniw8FD +9iwMub1Sw/c7DXTEoePXHFmob7f6jcQYDTZTB4M272Gh7j99F0qJY3u8Awo9 +WKjnE+o0MU6D0H13f6/jLHzMrlGym6IhW8ftsFQIC4/atV18T2ye4+JXF07q +ZTcwfX/QEHbe2ZcZz8LYWofkkGkaZjwdvbvTyfgDE99O/KQhpWv7/rOZLHSP +v28zRrzWfpuXaR4LvZhpz71/0RBkaueReouFO017DDbN0jAqYePqWMPCpr8q +kwd/09Duy3zl08DCrTl5ajvnaKh+PANhz1m4gSvt9JA48QRfuaCVzPeGGx0m +UATBLX+fr+hioUZbwYsuYlcd57lXH1gY5bH18qp5RaDXs/j9dB+p/2my3Fti +WdMvtqIjLLQAukNjfhEIXHlYyZxgYaiZgHkQ8Utrv4xNcyxUu2IvLihYBKXZ +lqKuQhQO6dVx1xNnzCqFBohQ6NHrdi6S2K/k5V/XJCnMzllaNU7s+GfBixJZ +Cv0vpLxVFyqCdZ7hnMeKFOoeNuftJmZX7SrqZFJIZzVSMcRLlusrDqtRyFTt +dyghHj8qclZQm8JJ7gH9duK3zz/+kjEg/1cjWPOTuI79wFdrDYWivBMLFBYU +AR1+8S2aUlh18PyvtcSXOn027zCjcLZdsMCBOGSVRcUBSwortqYKHyD2OCev +FbqJQqEqKeUQ4k3fxtIu2lGYnms0cIbYwPz5n/k7KLwu/tQ/mVguPedkuROF +xjfOFGUSz58M6X/pQqHVKYvsfOK+rTv2fPagcNi9zKGQ+A1P+9mPAxS6phRV +8IgfCC40WXKY1D858DGXOOuv7kJGAKn/nWltBnFcWamcIZc853i6XSL2Fz8f +bxNKocAlnYfRxLsO7p/Z+zeFd3rd2gKJsR58jsVSaNjcWOxGrK4s2xlzlsJH +/to2NsRi3BHr9IsUPj7klKNL/ONN4/3iqxRyBeSrxYk/aGWuqE+nMLHXOGOE +vM/GaG5KRyaFX45Fw3Pi4g/2IkN5FC4MeJqTQ5xsrMGdT1M4YdXSxCXeP9S5 +S7OUQqXEIwFyxLYb/2mEcgr1fLNGv5D1N8w6s3Z7NYVzfc2GN4kXOprKnnpK +4fzjXIXVxEO3lsVeeEnhshXnK8fIfmsVGZzKbaFw5PE3zVvEeQ+vtTV1U5jc +WnxQgficTJDVp08UdinVQxPZv0FHbMumvpH5z3n3hBBvoOauqIxRqDJQfOUV +2f+fE1wdjy5io5tU8ht7cl78+rSYeovZyFBSXjlKzteU1fTgoBgb17A3vj5L +/IfgxagDcmyMEcQnleQ86nFr77hqs9FEXL58jpzfB63nw5UM2AhhggpxxBar +nDe/NWSjLVemeimx4/D4p53IxvLF51qWzdBwypMtuXUbG50T95r/JvmxsPZ7 +9+JdbCxItn51hDhRparwqTMbdd/Oy++Z/H8+7jS39GLj0pkS/YoJ0l/s445w +uGy0dl/8ypbklfS6gZea19nYMnX/9XeShzfS7qX1ZrPRqSra3IR4xfTp/fkF +bFQPLFwUQfLT9I7iHPM2G5+lf7kg1E/DPo2tOnL1bJyVaXjQ/x8NxdK3E4T7 +2TjtaSpkQvLZOCB01+NhNta+1ZPcTfK79rUN6/Q4GwXANTKA5HtrwqfyuVk2 +7i0NOJ39joZf86X6J8XUUL+cp9XTQYP18HHrL4Zq+HSX0L0e0j8U9JWihU3V +cFuDP7+a9Jeho3U1mmZq6PUuITntJelnk2KmRzepYQ8+3rfxBQ3dszydORc1 +DFCf7DjVSMPRxW8ll8ep4f3646zdlaQ/rsDuzV1qmOVxzaw9nwbfg1/l/D+o +4T9XvZ135tEARQk7k76ooWuvxYVm0h8/63W86hhWQzs9hy21pJ/qrD1a6yWk +ji6jE5rhaWR+ljkF4drqaOH+4ZD/ORoG9gkfuxOmjjUavw8aHCX1Zqx/WHVa +HZ3uSEa6+NMw3BG+6FmcOh5JKR6MI/eB71un0z4mqeNsVeqTVnJfmDLpqxMt +UMfLwjPFdvtomL/sufSBV+podHcl9XgbDcvrzj9QZKzAqm01g5UGNLmfy8yP +qVmBpjaiHNVePvS6WxWYNKzAq6MlFu1f+ZCQedx25NkKdBV1WXnmMx+aldpT +d/+7Ak3k3V/3veeD6/KUlVrfVqCV0IDKhVY+cEXlPV8v0UDr0fR/T9Tygf6h +1Ci/WwPv3NHobEzjg8QL9rniYQ30Z9QMR1jyQSH2lp2hoRZul1koez6gEJI1 +jcQk92tj9ZiqtchlHjyVM1s9dkEHWyTC+TPZBWCsUJOo26qLn2xPKa+OzwdR +wawAt0g9RPt5/VoBeaAUoWy6m62Pxu8UNPjGuSBCOZc6NOhjyFpFN/7vbNDh +LL91/C8DnLr2cfmCliw42i1RayOwEq/FdTc7nM+E4bGEHdbJK3FSb7viDvcb +YKX7ONVaexUu5SrpbwvLgMoxk59TTavQ/2FP/HKZdPDTMuh87bkaJWq3XS7q +TQHOkEfLbhFDXHutLJqZcxU2sGS3LMkyRF3fKSGta5dBPTw+uGbNGnzvu9t6 ++F4SaHgaVVGda3Awom7Bi8YL4FnpffrOkbX4zUO3REk6EaputHiMShnhLl5/ +POdhAowXzE3plhlhki291ycjDvZRfJHULcbYb+ARKjkUDaMaSYa3R4zx1x4X +Qy6ehns5Pz9OxJpgqrpG99OpCHBar4omSqa4dFF9mXJHGMgfirmvU22Kq7y5 +MX+3nASpP3xLtuzk4PGhUzqJx4Ihx+LUiZHdHPTJ+jfbzDMYDE6ds0hy5uDG +iqZn047BYDtS/G+7GwdL7L5rhhoHQ3TrxPQ+Xw7a7xWZap0XDD+ywsxPRHCQ +O1e/qOHCceg0SWrO43NwIOlWaFJpEHgH5qRb3+SgrsZgjAwvCCZv3vUcKOZg +2f78BVlpQSDBbJ/SL+Xgmi/ljk/Dg2CTsKLCw2oObm4IlfXeFAQVLXkezf9y +EPNi3Fs/BoKN6D3toHYOvmn8o7G6JRDarZ5MynZx8MTK1MiShkAYf9Afu/cD +BxV6Z4ZyiwJBO1OvqLeP/F416lAnNxAqOs2CEgY5WMDQXj/lS8Zbtg10RzjY +/V3aVc41ELxiAl8HTHBQgm5wOWZJxquOTpX5wUGv3ynAMwqEyJmr+x7McEh+ +1jl/0QoEsVU8rb9mObhnbMtdNZVAyDj0YGJujoMTssZW/pKB8D9uYxvm + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.056683847996913055`}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.056683847996913055`}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk81NsbB3BFxb0lS5bsM+Y7ZKdSlul5UEQlVCq5WUKSpEKmZLtZUykt +tpTdmK+iW1SELNGmhWstlZabnWxR8ju/P+Y1r/frO68zz/mecz7PYbgfdvCc +LyAg8IN8/v892f2kjnUmZx3N5BwKnjJc15IhyzVrjwQnXsq7jeJSgFIv3WXb +L8K64Fyv5eIUBNkVtgm2Z4G5us7WX2KrQXxI5uJ0221Y1J+1rV1sA7yvsD08 +3lYDXiJdV/3FdoAlq+/daNsb0Lh5qvmLqCdMt625PNLWA0dOvuuvFw6EWov8 +nNdZY6Dq9j3za1MUKLy//9VdaxbaV6XZn5BIhGW+LoWLLASxmWH9rf33Jbio +b1luu0MYvbP1FO1UUqEjWa96VGwJBsryl2bRGXAmJ+zl/OXiKOY8/odwXibI +XPoUl3RNEhvK70QYVWZDzHbrdW8mpXAB75lZTHQuHDPKdHkSKYvD0rkhs2b5 +sH545oTfJznUsplrMC8qAO7GSxqPBuRw11iT9uHbBXAzU7tTclIOZSY9o5PL +CkB2u6vRfWF5nPiaJ9rzqAAG7tVPCerIY/WBR0ftWgsgKTIxICVYHmPcnm1I +/V0APVJsv7olCvjG1E/+w2YeRJjau8mtVUSp+C3F7A882Lg34/sac0U0Oyy6 +a/AzD0TD+//esVkRGc//dCzu5UF6bVReoqsiShj1bdMc48E9mwf9C+MU0esG +z35iQSGM7FINGutQRIW3qZodGoWwN3Ai/vlJJezLFTV6f6QQjG+m3AmtUsZ0 +jYch3eOFsL6taXaoURkN/nO6efxHIdgKCFm5vFHGXOdW3pJfhbDPwa8Dvihj +spHPb11BPlieZISFL1DBRQoWSrbifPBXnsw201RBO+NbpiNafKjbf32wNkgF +D5zKW/XcjQ/Wv4wkQk6qoGVc/K3fHnxoSmwxXBWuguyx5Altbz503BcJz4lT +wUBezKdIPz4M/RkgEZWugikmEtYLT/JBtnjjGssaFex1WGR3LIkPvj9GwxuX +MFA5Nl76v0d8MD7iJf1VgoEpjKXUcB0fhPs6+YKyDGQsij421sCH3K7a1nVM +Bs78I/165AUfuisva901ZOABh6hLlR182Bpl1J7pwkDuHodDeSN8MJCI0D1Z +wsD37IUyPHkaBM5M1CWXMvDJxM/LRko0NAn6OJWWM1Bz40vnxyo0HJxwiBqt +Z2B9uFltC0VDTjura38nA5tLv/ys06VB+npj9HZBJqLjln1j5jRMa4p1a+9g +YsSmRN94Lxomr8lFrHRiorgOqyLVm4bxpRTLyIWJ9Z014fk+NAyNGfmsP8BE +oVc3fEr9aOgp3zfpdIqJASaxz3hBNDzdVCYam0vG+5Cy/L8oGhoePio5W8jE +auaOb5UxNNTpPt+edIuJUraHDJLiaKiU/JiacZ+JjavdjPXP0nC76w+1uy+Y +aJGzhrK4REPqwb3QM8HE8ooPDZWZNFx9593z3wwTb9ZJh+/NpuHS1mNRg3NM +VNhLP5jJoeHcythnP0RUUbGo6Z56AQ2RP0t2LlVSxTXqAl+dbpL3c2aBv6ml +KjpOP/WTfUCDKZ++ceWKKuolO93+2URDlwr/+oY0VdQpMTOUfUXDiSu8jPHr +qhgv3lyp/5qGsoi8dAeeKsrll73f00yDwa4byaIVqigl/cM3oY2GFQsuJUZ/ +VEXh2f1yLu9paDxx8fzqr6o4l/9MafMHGrxGEs997lNFKzlFXcOPZH26ziaY +j6tiWZNP4LxPNKjcjon9vZCFBUsmcwO+kvVyORkepMVCV73g+U0DNNxt4YZR ++iz8Kagwd2aQhu02waEtq1nIOHNgqdUQDRdXB4YYAAunmgUO3RmmYcniw8FD +9iwMub1Sw/c7DXTEoePXHFmob7f6jcQYDTZTB4M272Gh7j99F0qJY3u8Awo9 +WKjnE+o0MU6D0H13f6/jLHzMrlGym6IhW8ftsFQIC4/atV18T2ye4+JXF07q +ZTcwfX/QEHbe2ZcZz8LYWofkkGkaZjwdvbvTyfgDE99O/KQhpWv7/rOZLHSP +v28zRrzWfpuXaR4LvZhpz71/0RBkaueReouFO017DDbN0jAqYePqWMPCpr8q +kwd/09Duy3zl08DCrTl5ajvnaKh+PANhz1m4gSvt9JA48QRfuaCVzPeGGx0m +UATBLX+fr+hioUZbwYsuYlcd57lXH1gY5bH18qp5RaDXs/j9dB+p/2my3Fti +WdMvtqIjLLQAukNjfhEIXHlYyZxgYaiZgHkQ8Utrv4xNcyxUu2IvLihYBKXZ +lqKuQhQO6dVx1xNnzCqFBohQ6NHrdi6S2K/k5V/XJCnMzllaNU7s+GfBixJZ +Cv0vpLxVFyqCdZ7hnMeKFOoeNuftJmZX7SrqZFJIZzVSMcRLlusrDqtRyFTt +dyghHj8qclZQm8JJ7gH9duK3zz/+kjEg/1cjWPOTuI79wFdrDYWivBMLFBYU +AR1+8S2aUlh18PyvtcSXOn027zCjcLZdsMCBOGSVRcUBSwortqYKHyD2OCev +FbqJQqEqKeUQ4k3fxtIu2lGYnms0cIbYwPz5n/k7KLwu/tQ/mVguPedkuROF +xjfOFGUSz58M6X/pQqHVKYvsfOK+rTv2fPagcNi9zKGQ+A1P+9mPAxS6phRV +8IgfCC40WXKY1D858DGXOOuv7kJGAKn/nWltBnFcWamcIZc853i6XSL2Fz8f +bxNKocAlnYfRxLsO7p/Z+zeFd3rd2gKJsR58jsVSaNjcWOxGrK4s2xlzlsJH +/to2NsRi3BHr9IsUPj7klKNL/ONN4/3iqxRyBeSrxYk/aGWuqE+nMLHXOGOE +vM/GaG5KRyaFX45Fw3Pi4g/2IkN5FC4MeJqTQ5xsrMGdT1M4YdXSxCXeP9S5 +S7OUQqXEIwFyxLYb/2mEcgr1fLNGv5D1N8w6s3Z7NYVzfc2GN4kXOprKnnpK +4fzjXIXVxEO3lsVeeEnhshXnK8fIfmsVGZzKbaFw5PE3zVvEeQ+vtTV1U5jc +WnxQgficTJDVp08UdinVQxPZv0FHbMumvpH5z3n3hBBvoOauqIxRqDJQfOUV +2f+fE1wdjy5io5tU8ht7cl78+rSYeovZyFBSXjlKzteU1fTgoBgb17A3vj5L +/IfgxagDcmyMEcQnleQ86nFr77hqs9FEXL58jpzfB63nw5UM2AhhggpxxBar +nDe/NWSjLVemeimx4/D4p53IxvLF51qWzdBwypMtuXUbG50T95r/JvmxsPZ7 +9+JdbCxItn51hDhRparwqTMbdd/Oy++Z/H8+7jS39GLj0pkS/YoJ0l/s445w +uGy0dl/8ypbklfS6gZea19nYMnX/9XeShzfS7qX1ZrPRqSra3IR4xfTp/fkF +bFQPLFwUQfLT9I7iHPM2G5+lf7kg1E/DPo2tOnL1bJyVaXjQ/x8NxdK3E4T7 +2TjtaSpkQvLZOCB01+NhNta+1ZPcTfK79rUN6/Q4GwXANTKA5HtrwqfyuVk2 +7i0NOJ39joZf86X6J8XUUL+cp9XTQYP18HHrL4Zq+HSX0L0e0j8U9JWihU3V +cFuDP7+a9Jeho3U1mmZq6PUuITntJelnk2KmRzepYQ8+3rfxBQ3dszydORc1 +DFCf7DjVSMPRxW8ll8ep4f3646zdlaQ/rsDuzV1qmOVxzaw9nwbfg1/l/D+o +4T9XvZ135tEARQk7k76ooWuvxYVm0h8/63W86hhWQzs9hy21pJ/qrD1a6yWk +ji6jE5rhaWR+ljkF4drqaOH+4ZD/ORoG9gkfuxOmjjUavw8aHCX1Zqx/WHVa +HZ3uSEa6+NMw3BG+6FmcOh5JKR6MI/eB71un0z4mqeNsVeqTVnJfmDLpqxMt +UMfLwjPFdvtomL/sufSBV+podHcl9XgbDcvrzj9QZKzAqm01g5UGNLmfy8yP +qVmBpjaiHNVePvS6WxWYNKzAq6MlFu1f+ZCQedx25NkKdBV1WXnmMx+aldpT +d/+7Ak3k3V/3veeD6/KUlVrfVqCV0IDKhVY+cEXlPV8v0UDr0fR/T9Tygf6h +1Ci/WwPv3NHobEzjg8QL9rniYQ30Z9QMR1jyQSH2lp2hoRZul1koez6gEJI1 +jcQk92tj9ZiqtchlHjyVM1s9dkEHWyTC+TPZBWCsUJOo26qLn2xPKa+OzwdR +wawAt0g9RPt5/VoBeaAUoWy6m62Pxu8UNPjGuSBCOZc6NOhjyFpFN/7vbNDh +LL91/C8DnLr2cfmCliw42i1RayOwEq/FdTc7nM+E4bGEHdbJK3FSb7viDvcb +YKX7ONVaexUu5SrpbwvLgMoxk59TTavQ/2FP/HKZdPDTMuh87bkaJWq3XS7q +TQHOkEfLbhFDXHutLJqZcxU2sGS3LMkyRF3fKSGta5dBPTw+uGbNGnzvu9t6 ++F4SaHgaVVGda3Awom7Bi8YL4FnpffrOkbX4zUO3REk6EaputHiMShnhLl5/ +POdhAowXzE3plhlhki291ycjDvZRfJHULcbYb+ARKjkUDaMaSYa3R4zx1x4X +Qy6ehns5Pz9OxJpgqrpG99OpCHBar4omSqa4dFF9mXJHGMgfirmvU22Kq7y5 +MX+3nASpP3xLtuzk4PGhUzqJx4Ihx+LUiZHdHPTJ+jfbzDMYDE6ds0hy5uDG +iqZn047BYDtS/G+7GwdL7L5rhhoHQ3TrxPQ+Xw7a7xWZap0XDD+ywsxPRHCQ +O1e/qOHCceg0SWrO43NwIOlWaFJpEHgH5qRb3+SgrsZgjAwvCCZv3vUcKOZg +2f78BVlpQSDBbJ/SL+Xgmi/ljk/Dg2CTsKLCw2oObm4IlfXeFAQVLXkezf9y +EPNi3Fs/BoKN6D3toHYOvmn8o7G6JRDarZ5MynZx8MTK1MiShkAYf9Afu/cD +BxV6Z4ZyiwJBO1OvqLeP/F416lAnNxAqOs2CEgY5WMDQXj/lS8Zbtg10RzjY +/V3aVc41ELxiAl8HTHBQgm5wOWZJxquOTpX5wUGv3ynAMwqEyJmr+x7McEh+ +1jl/0QoEsVU8rb9mObhnbMtdNZVAyDj0YGJujoMTssZW/pKB8D9uYxvm + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.056683847996913055`}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.056683847996913055`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993826935065933*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"dbbf0568-fbf4-47e6-9d29-f09b7977583d"] +}, Open ]], Cell[CellGroupData[{ @@ -8172,12 +8910,14 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + CellChangeTimes->{3.99179966106703*^9}, + CellLabel-> + "In[107]:=",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[BoxData["11.27534350842078`"], "Output", - CellChangeTimes->{3.9913229040054893`*^9}, - CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[BoxData["12.867710853059714`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9, 3.993826935095232*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"28b5111a-e61a-4197-9f36-9ffd94750a3c"] }, Open ]], Cell[CellGroupData[{ @@ -8233,158 +8973,161 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991799666995865*^9},ExpressionUUID->"7116d4f3-8ab8-b741-8264-\ -0a5eeac170a0"], + CellChangeTimes->{3.991799666995865*^9}, + CellLabel-> + "In[108]:=",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.2797553168987896`*^-263\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 17, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042538757`*^9}, + 2, 108, 29, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993826935179143*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +In[108]:=",ExpressionUUID->"47dd8687-ded9-433e-899a-bfbc2837ce82"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.905185065819221`*^-274\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 89, 18, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042728806`*^9}, + 2, 108, 30, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993826935185914*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +In[108]:=",ExpressionUUID->"7d6a3f67-2edd-4fb5-830a-30b745dd9ea0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.66651952076925`*^-284\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 89, 19, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229042938766`*^9}, +\"", 2, 108, 31, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993826935191587*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +In[108]:=",ExpressionUUID->"dbfff2b6-8f60-49bf-a519-217cc0c586ae"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 89, 20, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913229043127804`*^9}, +during this calculation.\"", 2, 108, 32, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913229042538757`*^9, 3.993826935197144*^9}, CellLabel-> "During evaluation of \ -In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +In[108]:=",ExpressionUUID->"37080254-dda8-4475-8a0f-17a97d06e765"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VV0XAHClSRGRQhnuvede8zzLtVb0EpVKgwwvMlTGDEWoDEUqlRAy +FUmGe26oZEi8EUoUlTGKZmRI5sp3vr/O83vOfs5z9tp7DTTno1Zui3l4eJYu +4uH5/3Oq71kdcTHHqPKSlZ3GTz2jN5liwZs7I0H88f26DQPrAEVfOot1xoPd ++1drvvWzIHBXQQdvZzbsEL73uaFfB9aMrI+f7SgBrj89KrPfFN4/sjz6q+MJ +TGq5coj+/WBKDPaOd7TBPa1crT3vD8Fsh+61sY4BmN4SSop3BkKtyZ2c1uwJ +OFEu6J3FOQcb35d/cVb6AwkW21PCjl6FtV6OBctNeHFLwbNCu/+SIF7dtNJy +3wp8q6RtF2aWDl0pajXjQgJIezecGZ9wEy7mhL1cLL4G1wadcHzOdwvWJ348 +n5Ahgrt8/Irs8Tac22tu1DYliik7cssGJe9AgH6W47NIMbSnL9x1/pYHW0bn +Qnw+SqDWlU8zi2wLIHhrosJ/wxKoQC5L1HMsAG6WcrfIlAT6Lv1R5OlaAGJ7 +nfTLV2zA6fpPPg0+BTBc9nSaV2UDjgxWT+w9UwAJkXHHrp/YgH9db3xuKCyA +AVGWT53ARuTIP32waq4AIgx3H5TQk0SXk4oDCxcLYatD5k9dY0lMy9+/615c +IawOHzqzb7skrhY6muB8rRDSa6Ny45wk0Wz5j+T7mYVQZlExtOy8JF7v+5PE +Ki6EsQOMwIkuSYzzabc2flsIDscnL7wIlULvoX+9D0hwgJlsvHEwSgpj5P7Z +HS3Fof73Crk8TgrLPQxWFNE5EPJb/pVxjhQOuViPTilw4NoZB9HyF1K48VJL +ttUmDry42nDjtqQ09k+l3d5sxwED7vX7p6ulkckujf6bzIEtHS1/Rhql0cDr +qv2RNA5Y8iwxc2yTRlOBW1dbMjngYuXTBZ+lse9vh3jcbQ6YhtLCwpfKYFd/ +6e2vJRzwlZ66tVlRBlcKKjV8e8GBusM3ftQGyqD02hEdrb8cMP+tL3wyVAZ3 +NwjpKiwioSXujY5WuAxeFjVN27iEhK5yvvCc8zKYJvcgboqPhJFVx4Sj0mVw +1PiQdpgoCWJFW3VNn8hgTmNo0kdFErxmxsMbBWi4VM/eaW4fCQZ+h9Z9Eabh +u4ZJ5r0DJKwY7C7kFaOhQ6Tkw8N2JNzuqW03otMQR+LYdU4k9D2+pvRAh4Z3 +J698tvAkYWeUfmeWIw3Xa9jMXg4jQeov6V3tSkOXWMHcJZEkDAfSeXvdaTjl +nE8EniUh5sgqFbFjNOQ3Mrq+/TwJNdt6z1yOoeEujoxXQzwJGsIRqqHFNJSf +OC05mUMCz8XJupRSGm5d91xS7g61f14P29JKGh7k4PT+fBI8J62ixp/S8GdH +tm4eSUJOJ9FzuJuGY4FrfouVkrDuRmP0Xl465odZLtWqJ2FWUahPeR8dfQqb +2/d8JGEqQyJC05aODnpurPlPJPwSZBL6jnT8uNU2OvMLFc8JfY8t7nTs4ckO +7vpOwkCly5TtKTqaNZexZcZIeL7t4eqY23RM1dGuHp8noaHqv+JLBXSs6fOw +tf1DQp3qi70Jd+noq+crWP2XhMci/amZ5XR0ue387OQiLpT0rJR90EzHqj2O +l58t40KqpwMMTNLx3LToUJ4QF5J7jwx8naNjUhb/0ddruJC4MyDqxwId+SeE +1s8Jc+GyZkzTDB8Dj1n/eLtJlAuR88XWglIMbGxvol0V50KY96O5tQwGnuVZ +1JUuwYWT7+szJOQYaOdCluds4EJgbc9HpgYDFxOqc3mSXPC8uNTX0JSBhToH +Lp6hceHIH0ER420MbAmqzfKlc+HQUYlSs10MzGXjVxsGF5z2qP62smWgwHPz +xTQmF/ZusIlx92Hgxzf1sRFyXDAs5NxMSmJgnqBscqwKF3pkCm/8k8bA96Mn +1dVVuRCSlJ/56wYD387vOttG+WFEbrpVPgM3tw/uW6XOBY0DN1NWP2Kg6zfT +in2aXGhtzkyuqmFg780h+Q+UfU0ykryeMjBNdZX1YS0ucFVSE5+3MFDS32TY +U5sL8ksT46L7GdgqErDWUpcLjSHxV7S/MFDe6GnEY8qHxuIufxpk4KZjxcWK +elzI6bkUa/yLgbI143a/KZvsjr04PsPAyWWJHY76XBiov3Dh5h8GDlR4idVQ +lik5F/N3GYEHU1yGAw24UC0bfY5cReCI3JvwZsoOGWej7YUIHJuQ7pXZxIW0 +mIizFeIESjRMjFZRNvgbdsZdisBh57Y7yw250BlwOlKMQaCyk76CJeV1jqHh +gUoEbrbZc7WV8oM3wWFMdQL/4T8YtJpNxdvixOk32gRev8xR2Ep5ojrw1BkD +ApPPfio8TTle+/hJDaDei5bNF1NWLwwI7TchkDvULjFA+ZWMf0jcVgJBc5xP +0IgLAvxHT4zsJrDJqsfWkTInwjsoYz+BE/yrH0dStpj2DNxuR6Dj70W/sil/ +9/I4Pu9I4NK37n+qKccMHDlW4EpgbNNMdxdl2QOHA2zcCfyY6HxpjHJ9s5v/ +Ch8CZ9zsRJcAF9xMXP0e+hMYN5EcsJbyknJn30NBBD71a86jUb6lcvCo6EkC +hxKKHyhSNs5x9KkLJ5AZO5eqQfmDuIN3QBSBjFWONjqUw67Ye9EvENgHSeP/ +t9RSO8/WywTqdFi7alF+FGLjEZ5AYPm8XYkKZbsxa3fVFAJ377N7x6Q857b/ +SF86td8Vgh/FKV/v2Xv4UhaB+8vUGlZS1tu955BhLoEFESHnZ6j9dNTvdhsq +INBoIVfhI+VAw12uqXcJNDfzK3xOWbTE0sX8PoFRQ4n8dynfl93hPFNG4PhM +s2UcZauMbQfvVBF4errT34fyuLCF0/4nBNZ/9w82p9zpRX/l0UCgyNmUbknK +NfVzEPaCwA+twQkj1Pnlyby+m9BKoPoA3+1KynEhhdJ57VR8PQ2FoiifeHPm +yqMeAjnNS9stKDup2C+8+kDgN367aX7KagP872cHCXwYEr4rmrpfYoafLVeP +EZg+wb7ApsyTVPWYPkngq96DjHHqvr4098nctkBgZMnjoB2UfYpf/pshwsSR +4Q113VQ+7F+V11wsxkSxeeu1xykbuYWz6yWZKO7R0rSKsoC4uuSoLBONPJyO +qVD5xQmPf4eGTHSYnWzYqkPVt26P7fs2M7Elv9e7nsrfk1omj9xNmVg6Nh+J +lLd9m0iL38VEXqkvf+WpfB/cuc/ukysTO7Q6bdqoetGWr9w0485E1eiOa5qU +K3iXbRI4ysTpeTXzq2pcOP+wVEInmInaSYISxlS9kZMW6z53iYnDpe4RwUpc +EAoeM0+PZ6IZi7j2WJELM22N5UXJTFxXHCnHQ7kxOvh6VxYTC83s207Ic+Hw +SPcBxVIm3rWa2IksLlhuvdcIlUw8bGd42p2qhzrZF/X21jCxYiRF6wrBhWX7 +DcVOPWei1IGX7FdUPc2tyuho6WNi8xHGBzlpLnyKddrvv5yFtrat+7TXU/Ed +VKKr8bOwxdQgTX8dF6bNZn/8EGLhDfX1gwZUvV/JGx/lLsHC3vCaO1oi1HkG +1953UmbhgtVY5RJBLpxyY4ns3MNC3i3CwmJUf1lW+7OP/wC13qXb9scS6r7I +VBc8t2ehpU5CZTXv/+uftbHpIRZazJ5ptKP60/Pd5/3YwSzc3qSh4Peb6qdG +wy8Vb7Bwpc2ld2t+knAzrSzt+y0WGsX6i5RT/VB+9uzhO3ksNG+S8/t3lATD ++5IL9BIWhqQ352QMk+CisFNF4ikLL27zW/6b6q9F60piVwyxMPWr6BX1HhLM +R4PMP+vI4nTh74PR/5GwUV0qeoWhLJoIJHy5W031Y/+6J4qbZXGHiqVuexUJ +iVNChv7bZNFbXNdYvIKaT/7kqyw4yiJarKIFl5Dgz/9ORPy8LDokfJfMyiYh +VR77tvfIYrwtc0laODUPeX6R8P0gi5M/ks44nSYByFjrhM+yeKpaeoZ+koRP +al2vukZl0dKz6GlmEAkqev61h5bIoYTesfX+PiTUmubkhSvL4X/HxipjqHlp +2GVFwP0wOXzxaNgyTJP638wtVdVn5VBS/CrjpxoJo13hy5vOy6G93h4NZxUS +fu6cTetPkMNnodt5DeRJmN40WLc6Tw5LYz8nNUqRsHjti3Xur+TQwVQ7x5ma +78TrrlRI0uRxj8ezgwnvqHmSWL/43BN5bBd4e0UtlAPfnc3yNjXI4zfDyi2a +JzgQmxVkOdYkj/zD1zs1j3PgtVRnqs1beXxvn5ylcpQDTuLXNZW+yVPnPd2+ +0oUDwas3uLUKKODm5q9PHCw4wJmRatxgo4AmLteNT67ngHAz63LRqAKq52Vb +NRUWwsaYu7t0dJRQrW2yPji/AFIU9YVEDitjW8293sqMfHgusVl74qoKCjYf +deiPzAODjU/iVNtVcWjZM0dFozuwmjf72MFINfwR0qnYszgXpCKkDW1Y6ng8 +qGtxSE4O8DHtS60a1DFjmnPJcOstUGGL3w36VwNdU8p/WfBmg3+fcK0FjyZ+ +V3rEZ597E0YnYveZp2ji3ntyD282Z4KZan2qubIWnt//5VuoZzo8ntg0P92i +hVq9hd5bhq+Dj5JGd6ubNloecKK1FiUDe8T1jQ2fDk6/oJXlu1yDfwixHQLZ +Osj3Wvmdsn0CyIVfOPFEVxe/hhxesfzUVVBw069mdutic8eyNZOqV8Dt8ZGz +9/308G1Ob4Pzt4tQffON67ioPuay9CtXZsfAr7yFadWH+njiuKeXYEkUuDAL ++VJ3GGDQDolrphpnYFwhQadkzADTdMvMoCocynLm+ydjNuHtIL68Z9anwHYL +NatIGeIOw48LYUXBsMH7XLlKjSH2PaEbRDIDQXSlV/EOazYGuOlK7dEOgByT +UyFjNmwcD/i2fUYuADROXTZJsGfjk8uzvDkbA8ByrOht50E2vlRuXSS4JACi +2ydnXbzYGHXNc07jtT/MZIcZh0Sw8eyXla+K/P2he1PC69xCNrJ8fiYGlPrB +keM56eZcNiY3ReHnAj+Y4j5wGy5io+YGHfl/b/iBML1zWr2UjQkt5/McY/xg +2wrJjVU1bCyY2yp519YPHr3JdX39lo2VX9+3HufxA4vVZcqBnWzUeNSkbTHp +C51mz6bEethodtOqmBj0hV8VQzEOH6j1195+HnrtC8pZauT3QTam7NXirb3j +C4+6NwfG/mDj/RehAw3pvmCxdg+ojrExVqWgvu2qLxw6d7z12CQbw+JcE+dC +qe/VRKeun2Hjbo9/gtf7+ULkXLJLxRwbKwZKbQwO+YKQVr7Sv3/YWNrmouli +5wuZ3hWTCwtsrIJp3vhdvvA/h/VohA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8398,117 +9141,116 @@ U0FU/w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== +1:eJwV1nk4VV0XAHClSRGRQhnuvede8zzLtVb0EpVKgwwvMlTGDEWoDEUqlRAy +FUmGe26oZEi8EUoUlTGKZmRI5sp3vr/O83vOfs5z9tp7DTTno1Zui3l4eJYu +4uH5/3Oq71kdcTHHqPKSlZ3GTz2jN5liwZs7I0H88f26DQPrAEVfOot1xoPd ++1drvvWzIHBXQQdvZzbsEL73uaFfB9aMrI+f7SgBrj89KrPfFN4/sjz6q+MJ +TGq5coj+/WBKDPaOd7TBPa1crT3vD8Fsh+61sY4BmN4SSop3BkKtyZ2c1uwJ +OFEu6J3FOQcb35d/cVb6AwkW21PCjl6FtV6OBctNeHFLwbNCu/+SIF7dtNJy +3wp8q6RtF2aWDl0pajXjQgJIezecGZ9wEy7mhL1cLL4G1wadcHzOdwvWJ348 +n5Ahgrt8/Irs8Tac22tu1DYliik7cssGJe9AgH6W47NIMbSnL9x1/pYHW0bn +Qnw+SqDWlU8zi2wLIHhrosJ/wxKoQC5L1HMsAG6WcrfIlAT6Lv1R5OlaAGJ7 +nfTLV2zA6fpPPg0+BTBc9nSaV2UDjgxWT+w9UwAJkXHHrp/YgH9db3xuKCyA +AVGWT53ARuTIP32waq4AIgx3H5TQk0SXk4oDCxcLYatD5k9dY0lMy9+/615c +IawOHzqzb7skrhY6muB8rRDSa6Ny45wk0Wz5j+T7mYVQZlExtOy8JF7v+5PE +Ki6EsQOMwIkuSYzzabc2flsIDscnL7wIlULvoX+9D0hwgJlsvHEwSgpj5P7Z +HS3Fof73Crk8TgrLPQxWFNE5EPJb/pVxjhQOuViPTilw4NoZB9HyF1K48VJL +ttUmDry42nDjtqQ09k+l3d5sxwED7vX7p6ulkckujf6bzIEtHS1/Rhql0cDr +qv2RNA5Y8iwxc2yTRlOBW1dbMjngYuXTBZ+lse9vh3jcbQ6YhtLCwpfKYFd/ +6e2vJRzwlZ66tVlRBlcKKjV8e8GBusM3ftQGyqD02hEdrb8cMP+tL3wyVAZ3 +NwjpKiwioSXujY5WuAxeFjVN27iEhK5yvvCc8zKYJvcgboqPhJFVx4Sj0mVw +1PiQdpgoCWJFW3VNn8hgTmNo0kdFErxmxsMbBWi4VM/eaW4fCQZ+h9Z9Eabh +u4ZJ5r0DJKwY7C7kFaOhQ6Tkw8N2JNzuqW03otMQR+LYdU4k9D2+pvRAh4Z3 +J698tvAkYWeUfmeWIw3Xa9jMXg4jQeov6V3tSkOXWMHcJZEkDAfSeXvdaTjl +nE8EniUh5sgqFbFjNOQ3Mrq+/TwJNdt6z1yOoeEujoxXQzwJGsIRqqHFNJSf +OC05mUMCz8XJupRSGm5d91xS7g61f14P29JKGh7k4PT+fBI8J62ixp/S8GdH +tm4eSUJOJ9FzuJuGY4FrfouVkrDuRmP0Xl465odZLtWqJ2FWUahPeR8dfQqb +2/d8JGEqQyJC05aODnpurPlPJPwSZBL6jnT8uNU2OvMLFc8JfY8t7nTs4ckO +7vpOwkCly5TtKTqaNZexZcZIeL7t4eqY23RM1dGuHp8noaHqv+JLBXSs6fOw +tf1DQp3qi70Jd+noq+crWP2XhMci/amZ5XR0ue387OQiLpT0rJR90EzHqj2O +l58t40KqpwMMTNLx3LToUJ4QF5J7jwx8naNjUhb/0ddruJC4MyDqxwId+SeE +1s8Jc+GyZkzTDB8Dj1n/eLtJlAuR88XWglIMbGxvol0V50KY96O5tQwGnuVZ +1JUuwYWT7+szJOQYaOdCluds4EJgbc9HpgYDFxOqc3mSXPC8uNTX0JSBhToH +Lp6hceHIH0ER420MbAmqzfKlc+HQUYlSs10MzGXjVxsGF5z2qP62smWgwHPz +xTQmF/ZusIlx92Hgxzf1sRFyXDAs5NxMSmJgnqBscqwKF3pkCm/8k8bA96Mn +1dVVuRCSlJ/56wYD387vOttG+WFEbrpVPgM3tw/uW6XOBY0DN1NWP2Kg6zfT +in2aXGhtzkyuqmFg780h+Q+UfU0ykryeMjBNdZX1YS0ucFVSE5+3MFDS32TY +U5sL8ksT46L7GdgqErDWUpcLjSHxV7S/MFDe6GnEY8qHxuIufxpk4KZjxcWK +elzI6bkUa/yLgbI143a/KZvsjr04PsPAyWWJHY76XBiov3Dh5h8GDlR4idVQ +lik5F/N3GYEHU1yGAw24UC0bfY5cReCI3JvwZsoOGWej7YUIHJuQ7pXZxIW0 +mIizFeIESjRMjFZRNvgbdsZdisBh57Y7yw250BlwOlKMQaCyk76CJeV1jqHh +gUoEbrbZc7WV8oM3wWFMdQL/4T8YtJpNxdvixOk32gRev8xR2Ep5ojrw1BkD +ApPPfio8TTle+/hJDaDei5bNF1NWLwwI7TchkDvULjFA+ZWMf0jcVgJBc5xP +0IgLAvxHT4zsJrDJqsfWkTInwjsoYz+BE/yrH0dStpj2DNxuR6Dj70W/sil/ +9/I4Pu9I4NK37n+qKccMHDlW4EpgbNNMdxdl2QOHA2zcCfyY6HxpjHJ9s5v/ +Ch8CZ9zsRJcAF9xMXP0e+hMYN5EcsJbyknJn30NBBD71a86jUb6lcvCo6EkC +hxKKHyhSNs5x9KkLJ5AZO5eqQfmDuIN3QBSBjFWONjqUw67Ye9EvENgHSeP/ +t9RSO8/WywTqdFi7alF+FGLjEZ5AYPm8XYkKZbsxa3fVFAJ377N7x6Q857b/ +SF86td8Vgh/FKV/v2Xv4UhaB+8vUGlZS1tu955BhLoEFESHnZ6j9dNTvdhsq +INBoIVfhI+VAw12uqXcJNDfzK3xOWbTE0sX8PoFRQ4n8dynfl93hPFNG4PhM +s2UcZauMbQfvVBF4errT34fyuLCF0/4nBNZ/9w82p9zpRX/l0UCgyNmUbknK +NfVzEPaCwA+twQkj1Pnlyby+m9BKoPoA3+1KynEhhdJ57VR8PQ2FoiifeHPm +yqMeAjnNS9stKDup2C+8+kDgN367aX7KagP872cHCXwYEr4rmrpfYoafLVeP +EZg+wb7ApsyTVPWYPkngq96DjHHqvr4098nctkBgZMnjoB2UfYpf/pshwsSR +4Q113VQ+7F+V11wsxkSxeeu1xykbuYWz6yWZKO7R0rSKsoC4uuSoLBONPJyO +qVD5xQmPf4eGTHSYnWzYqkPVt26P7fs2M7Elv9e7nsrfk1omj9xNmVg6Nh+J +lLd9m0iL38VEXqkvf+WpfB/cuc/ukysTO7Q6bdqoetGWr9w0485E1eiOa5qU +K3iXbRI4ysTpeTXzq2pcOP+wVEInmInaSYISxlS9kZMW6z53iYnDpe4RwUpc +EAoeM0+PZ6IZi7j2WJELM22N5UXJTFxXHCnHQ7kxOvh6VxYTC83s207Ic+Hw +SPcBxVIm3rWa2IksLlhuvdcIlUw8bGd42p2qhzrZF/X21jCxYiRF6wrBhWX7 +DcVOPWei1IGX7FdUPc2tyuho6WNi8xHGBzlpLnyKddrvv5yFtrat+7TXU/Ed +VKKr8bOwxdQgTX8dF6bNZn/8EGLhDfX1gwZUvV/JGx/lLsHC3vCaO1oi1HkG +1953UmbhgtVY5RJBLpxyY4ns3MNC3i3CwmJUf1lW+7OP/wC13qXb9scS6r7I +VBc8t2ehpU5CZTXv/+uftbHpIRZazJ5ptKP60/Pd5/3YwSzc3qSh4Peb6qdG +wy8Vb7Bwpc2ld2t+knAzrSzt+y0WGsX6i5RT/VB+9uzhO3ksNG+S8/t3lATD ++5IL9BIWhqQ352QMk+CisFNF4ikLL27zW/6b6q9F60piVwyxMPWr6BX1HhLM +R4PMP+vI4nTh74PR/5GwUV0qeoWhLJoIJHy5W031Y/+6J4qbZXGHiqVuexUJ +iVNChv7bZNFbXNdYvIKaT/7kqyw4yiJarKIFl5Dgz/9ORPy8LDokfJfMyiYh +VR77tvfIYrwtc0laODUPeX6R8P0gi5M/ks44nSYByFjrhM+yeKpaeoZ+koRP +al2vukZl0dKz6GlmEAkqev61h5bIoYTesfX+PiTUmubkhSvL4X/HxipjqHlp +2GVFwP0wOXzxaNgyTJP638wtVdVn5VBS/CrjpxoJo13hy5vOy6G93h4NZxUS +fu6cTetPkMNnodt5DeRJmN40WLc6Tw5LYz8nNUqRsHjti3Xur+TQwVQ7x5ma +78TrrlRI0uRxj8ezgwnvqHmSWL/43BN5bBd4e0UtlAPfnc3yNjXI4zfDyi2a +JzgQmxVkOdYkj/zD1zs1j3PgtVRnqs1beXxvn5ylcpQDTuLXNZW+yVPnPd2+ +0oUDwas3uLUKKODm5q9PHCw4wJmRatxgo4AmLteNT67ngHAz63LRqAKq52Vb +NRUWwsaYu7t0dJRQrW2yPji/AFIU9YVEDitjW8293sqMfHgusVl74qoKCjYf +deiPzAODjU/iVNtVcWjZM0dFozuwmjf72MFINfwR0qnYszgXpCKkDW1Y6ng8 +qGtxSE4O8DHtS60a1DFjmnPJcOstUGGL3w36VwNdU8p/WfBmg3+fcK0FjyZ+ +V3rEZ597E0YnYveZp2ji3ntyD282Z4KZan2qubIWnt//5VuoZzo8ntg0P92i +hVq9hd5bhq+Dj5JGd6ubNloecKK1FiUDe8T1jQ2fDk6/oJXlu1yDfwixHQLZ +Osj3Wvmdsn0CyIVfOPFEVxe/hhxesfzUVVBw069mdutic8eyNZOqV8Dt8ZGz +9/308G1Ob4Pzt4tQffON67ioPuay9CtXZsfAr7yFadWH+njiuKeXYEkUuDAL ++VJ3GGDQDolrphpnYFwhQadkzADTdMvMoCocynLm+ydjNuHtIL68Z9anwHYL +NatIGeIOw48LYUXBsMH7XLlKjSH2PaEbRDIDQXSlV/EOazYGuOlK7dEOgByT +UyFjNmwcD/i2fUYuADROXTZJsGfjk8uzvDkbA8ByrOht50E2vlRuXSS4JACi +2ydnXbzYGHXNc07jtT/MZIcZh0Sw8eyXla+K/P2he1PC69xCNrJ8fiYGlPrB +keM56eZcNiY3ReHnAj+Y4j5wGy5io+YGHfl/b/iBML1zWr2UjQkt5/McY/xg +2wrJjVU1bCyY2yp519YPHr3JdX39lo2VX9+3HufxA4vVZcqBnWzUeNSkbTHp +C51mz6bEethodtOqmBj0hV8VQzEOH6j1195+HnrtC8pZauT3QTam7NXirb3j +C4+6NwfG/mDj/RehAw3pvmCxdg+ojrExVqWgvu2qLxw6d7z12CQbw+JcE+dC +qe/VRKeun2Hjbo9/gtf7+ULkXLJLxRwbKwZKbQwO+YKQVr7Sv3/YWNrmouli +5wuZ3hWTCwtsrIJp3vhdvvA/h/VohA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.0590760393052958}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8520,19 +9262,19 @@ U0FU/w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.0590760393052958}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8546,116 +9288,115 @@ U0FU/w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwd13k4VV0XAHAvoQlFpmu699xrKHOmDNdaSQNKJUUy9SpTUhkzlKGEiqQU -RSKUTOeUlChCIqE3MyXRIMlQKE2+0/fXeX7PGfZea++19z6sfw/Y7OXl4eER -/IeH5+91pr+xjnMqx9RRIPNqkSmatl+RClndHQ0VmTo7zzXLAYq3/ivVnQwp -zr82bW5Wh6AtN7v4urNBga8ykWjmwtIxyeTZrlsg0vVmw5tnm+B1pfWBqa4a -OLHVe4n4MydYxxl5Ndn1AngyD7fyNO6H2S6DlImuQaj0EVnxqPII1K65nvNf -9lfIvXvcw7ouEWRfl7//V+03iK7O0ryQdgGW+bjcFFzDhwnHlG9L7cmAZO11 -Fdbb56PnhY3lK9WyoSdVq3pyiRCuWrH4saJmLpzKiWjllV6Kgal9/V7KN0Dy -/FD8uQwxdDhUObTmwU2ItbUwfTEjjr4p71S5HYXAKG1h8P4jgWf8h3SuvCqE -YjHbb9qLJPDW4hqV2XeF0PnCmTyrIIG+t7Z0pM8UAmdrALF1gwQWfwtQuCxZ -BDWbMgWep0mgv9KLQj/7Ivi9brql2UQS7cjzNbEdReBvmOXSGC2FusYHw1kP -isHyqvCU1WkptD8+EHisthgIwfC4lhQp7BJX//26sRiet++g2m5IYfG8mdtx -ncWgcXAxX3+LFL5wf3kvdbwYhvOC874wpNHZr7PnFrMEHJdZf5a5LY1TDxUv -NR8tAZ2wiqgrldKoXv5PdeTxElg4qCLBqpfGRL1z+zROlkB5CR8o9UjjwWmj -bSEpJSBhVZ6kNSeN5im3XJsLSuB5FEd3rRUD+WLmOfh2lYD5+I9Q3yEG3tdu -yLYQJyFkw/kVj0YZmKziOvBQkoTiLPVesRkGHu80CNNmkCBl62pYPl8G5w2W -NwgrkDB67/E3Pg0Z1H9zrzZfhYRz0UkBaYdl0Hf24OrdxiQMiiv51gnJYkxZ -/8NOZxIkD1TJSUrK4msZmYpvriRsbLBv9mLKInNpnISEGwlloafURHRk8YK4 -6ydLDxJOvp4Y2Wkvi9Wk4pKUAySszK/wGM+Wxdlktd0FESREmWzdzVglh2ue -9ci9ySBhg/OVLwZmcpgqeX97RyYJwpGfjm3fKIelTqJh9VkkpNfG5CW5yqF8 -M/tMZi4J9yzvfxKIl8NXgs+G1IpImLBnB33tkcPrhSahpRUk3A09KLj0rRwe -bS24EfyAhKPpD1I1xuSQX22gwaCKhMUDdhVevPLYHdz0uriGBGWP0zwDK+Rx -G2l28HAjCc6B0yefhcljbt5Wt5BOEhQvmsmOxMhjqONQ26Luv/k7UySYJI+p -v32ML/eQEPpr+XOzHHl8fLJtgnxJQsoxZ/HyZ/J4cb/I3N1BEp6dfZKZK6eA -rWEqv3XHSDAqTis9WqWAMv9pbvzMS4F5V8vvsQYF9K8UmV04jwJrnnnrXV4o -YPB06WIlfgrcbHx74J0Cpg+1eNkKUrAujBURyc/E988G+JMXUXBQYebaalUm -flGIlz0rRsH07aSGWU0mMtp+usUsoyB0g+pnSpeJOdtCpYLFKYg55KpPmDKR -Nbn6qY0kBZdqnzbwbmWirhLp+IlBQZ1H5ufaICaehfz0LBYFFr8MRcPDmLjD -4NYHH4KClqR2fd1IJu6ZzM/TY1PQU74gMieeiaWOOtFVHArGFgWIxqQzEWd8 -K0uVKfC/KmzAzWJi9YObt/epUPBdN3/XdC4Tn/yIIJjLKeBz7s/ZW8JEJZsu -z6gVFEiRGwzW1TBx0udIrqI6BRnmQ7v+1DPRrKrOvYE20XMksqyJidHnA695 -alCgznu7UamDiRm1AmezNCkws5VzFBxmYhGj0HJamwKf75ORDUIstO4VuMHR -p8DokLvEe1EW8o3zn86nPX+kt4BPioVOairHVQ0oyO2r7TQlWLh+LuK20ioK -+h+mqN3RZ+Gq2o2sH4YUFBosrHlhzELxMM1yDyM6v+RRuwlk4c7udO8XtCWy -PaJVrVg4crFHNtOYgs0xht1ZLizMTNz2QpxLgfyfov1Ve1jYnvTHwof2aBDB -98qLhWIPmwaqaMd5LtKQCmChp1eer7MpBTveRNTqhbDQLIfwyKfNcZiy33aU -hRXRV6ImaVdbvTqWGMfCBzdCFUKAgsS6rdKFCSzcE7E55x5tR259cWMyCz9K -CFlP057VKOmZl8HCkhQdMXekoOE6+wCRzcKUFgmtS7QvMFPn4XUWZnl3BTTR -XikapRlGsdB/w+fDiqsp4Dk1XZdaxsLDiTWG1rRb+LwdyirofECgYgDt9PD+ -8bZqFuozn5hcpL1v2iZm8jEL0wpCI+/SNvJ9whBpYqGl8LbJdtrzPxiTas9Z -uFxlWdI47U4Xcq1lBwtdTkU7CZpRkNPN6fPoZeGHMDcHWdp+W9MOxrxm4Z+x -8FgN2vhUSODaWxbeOZnyjktbeE305eqP9HjkBgRa0n5VMaPVP8ZC/rWDBra0 -C3X31f/8ykIhhevqu2iHFr3eJT3LwoSLp+1caG9Qsp3U/8PCjmrHMlfaEpkN -J2z5CJxyGLT8e/+tJFfWbz6BGm3D4n/fv5VEUWeECAxZYyL19/uRC5TWF4kS -+P1Qvs3f9jdHX3r5VJLAI89/P/7bP/mfwn7DsgTOhQn6/+3/qP8xQQGCQBmT -lP/Hd3/0WzpbmcD46KAjf+OP2+uzcrUageneYS//5mdH/8ATZ20Cq+4FHO6g -zbHb7hSuT+Bkj47NPdpfWhu/pBkTqDV00juVdvUG07i7SODSsxtrAmknProl -17GWQOb6jQ5baDsaKd/+Ykmgt4izjgrtWdUl/erbCWSYLCpspcd/JoMRpeNA -oKTgfP2rtKdEFDmGLnS8RbVyvrTHvhp6m3sRaPMgbwEv7U97zYUsfennjTxE -Guj5NtxlTW72J3D0rlTQKdqDFW4zDkfo+LfHei2k/VrdN801msCPxoPfHtPz -+WXmYRP3WALXF3mNHKXdeSwh+tBZAqVZODdM18dTq7vCcbkEiovN/skwoeDJ -g0dUwk0Cg+ZnPzanXaf5zPZcCYH3tiz8NkzX30OxN5eulBPYtHB/xnLat/oW -Kt9pJnDPwAeR03Q9l2wSf3r/BYEc7ak18n/ru0phf3UXgdYVQR+L6PrPu6Z7 -u+kNgUp+5qcf0+vDpX3OMDhNYELJyIZOPQouvvIc/PCDwAy9BKYt7fOb/WM+ -zxHowxN5sFWXzrdOXNP3BWy0z24Of6hDQfRPyk5Eno2/A71cjtLr075T/AdN -1rHxob7z0hNqFHj+FhEzs2JjbM6yrj5VCtwPMMrWb2Gj2YguW5O26zbNXzYO -bMywtrJpoddPW5mdcV6+bIy5Kq44rkSBSUHh1QsX2HjPYtyzgklBH7Mgc+1l -NnLWGK/8rkDP9wv5V6Yy2ajuIfNmJe27UXnpNvlsXHHv8pcsObre7a+mCley -UVW4cdad3g+W859POvGGjU+Ou65JoPeXhtDkM3rv2egzJfrohijdv4mkxLcj -bBxXSNKqWUrXa1/CabMpNoaYzhseE6GAeSs27o8AB0300lo0F9P15BIWGaTG -wYTkO8u30PvdnfaQCEVtDrZOV7Os+Oh4LA8fbdfjYPMqtpQ5vT8m6wWGrwQO -Xk1g8GnxUCC0+MDhsa0c1BJePjz+k4R55f8edA/mYKewd/aSryRMilq67qjh -oPVKleN9r0no9iGeez/hINVp7hzeT0J1/Q+IeMbByk/NPxivSEgKLVC40clB -9yNuEVt7SdAaXPx6doSD0mZu7dfaSfClWp0yxBRRi5+R0d9Awsjm7bve7lFE -Sftr+qUlJLzIV2/67qWIciK8/iLFJNznEzAWOqCI/M7u5z0LSYi/W8bQD1HE -jBM3Ti7LJ0FFQao3NkERG2d59mzLJsFjrNdetUwRz7/fW7P/PAlvT7vu8BNU -wveTN+Zkg+n2R9QIrcVKeCx3faBdIAnf1s9+/rxECS8Jhegm+ZOwkC85xouh -hJ991p77RZ+3tEJqS13VlfDOJs/Rak8SjuxVEtu8TQndso6//L6TBAnT0VbV -TCXs2vjTUI0+71mMB1u801fG5xGCRMFkCchqy5+Yb6JMny+GT86MlsCYX12N -6mpl/P6sP8x0uATOzywx8bNSRiWf2rna/hLo/52vMeeijEnhKW25TSXgt/il -mHS8Mn7aZtZcn1MCl5Zj/8Y+ZXywtIJ1xrYERt3m+5dGqGC9p158zc1i+n9E -kje2ZjmKvQ3MYHOLQLRZKZEcX4FFU1F/7BsKQDauZIu+vhqab5KctWTchFRV -wyViHuoI5o9aiMM34Cljtd7Xsxpo2OS5bltHHhjJ1iRpdmqilOTm/MlFuSDM -lx2wO1oLWaSR1bI910A+SsFkp5I25rW9Gc3LyoIFio5lNk+0MatRmTE8kgka -XOmSYKeV2N0mo+Q7mg5+/aK1ljw6qLvU+nhNZxqMfz293SJVB88oNF/kYV2E -9Zr1lyzUdXG2q7E5MOc8PPxq/PNbiy5qcKEgnJMMvmore//bq4eafO5OaXNn -gDu2p33nAn0UPEMFW9SegrUcqU1C2fqoG/9Bp1EzDlQiTx6uMTBAw7XhCYoC -MbBir2GVYq8BrswKsuuejoK9Dz2Plx5ahad/nXJZ1HsUqq6275kUN8S8n9ae -1+eFwtSNuW+adw1Rbt6aiVVDgeCmWLDg0iYjLKJ4huTj/WByxTn9WxNGmH85 -JSjsqS/cy/n5ZjrOGL98GmoRqPUCB3M2GsuboLBXe6dF7F6Q2R9brlFtglYL -h2xMr+6GxDl3vVM1JrhrOX/gaPJu4E1eR32oM0H2cJnttZjdMFLGn3+10QSD -eYONVPfthvs8x1NF20xQ8VSowjX93eBwPjJ45p0JinDbbTVbXSG1IkTv4SIu -igZuHkoTcAXxhT7UJjsuSrwrWh4p4wQ5a46ETuzkojcr9NYOXidYeSRxzTlH -LuqtP2uOHx3BeoLs6N7NxWPR9ds33nWEE53Ts24+XJQWdH63ztYRvmdHmIVG -cfFoz/KzFWd3Qa/xuba8Ai4mwsRzG4YDeAbmpFsUc/HPeo0VAXwOMFN8Z+8o -ycV4/T7566M7QZTo/qZdxsVlTf8Ur67aCVbz5WQfVHOxff9C9Q17d0Jle96e -tg4uWkS2Ljhbag+WwvfUg7q5KH6obrT+ij10r2+ckerjYkj4xgqheHuYuv8p -znmAi1u968abnexBPUur6OMIF8sNiTjJ+fZQ2bs66PRnLjqFOqW1fbEDy2Xb -QHOCi60DfHj1lR24xwb+FzDNxX383cS+23YwVX3ikuR3LjbGl1p4XbGD6B8X -3e7/4GJ29c6+4Hg7WKKbr+b0m4vaAyuaLwTYwZX996fn5rgY1XNmWb2LHfwP -U0FU/w== +1:eJwV1nk4VV0XAHClSRGRQhnuvede8zzLtVb0EpVKgwwvMlTGDEWoDEUqlRAy +FUmGe26oZEi8EUoUlTGKZmRI5sp3vr/O83vOfs5z9tp7DTTno1Zui3l4eJYu +4uH5/3Oq71kdcTHHqPKSlZ3GTz2jN5liwZs7I0H88f26DQPrAEVfOot1xoPd ++1drvvWzIHBXQQdvZzbsEL73uaFfB9aMrI+f7SgBrj89KrPfFN4/sjz6q+MJ +TGq5coj+/WBKDPaOd7TBPa1crT3vD8Fsh+61sY4BmN4SSop3BkKtyZ2c1uwJ +OFEu6J3FOQcb35d/cVb6AwkW21PCjl6FtV6OBctNeHFLwbNCu/+SIF7dtNJy +3wp8q6RtF2aWDl0pajXjQgJIezecGZ9wEy7mhL1cLL4G1wadcHzOdwvWJ348 +n5Ahgrt8/Irs8Tac22tu1DYliik7cssGJe9AgH6W47NIMbSnL9x1/pYHW0bn +Qnw+SqDWlU8zi2wLIHhrosJ/wxKoQC5L1HMsAG6WcrfIlAT6Lv1R5OlaAGJ7 +nfTLV2zA6fpPPg0+BTBc9nSaV2UDjgxWT+w9UwAJkXHHrp/YgH9db3xuKCyA +AVGWT53ARuTIP32waq4AIgx3H5TQk0SXk4oDCxcLYatD5k9dY0lMy9+/615c +IawOHzqzb7skrhY6muB8rRDSa6Ny45wk0Wz5j+T7mYVQZlExtOy8JF7v+5PE +Ki6EsQOMwIkuSYzzabc2flsIDscnL7wIlULvoX+9D0hwgJlsvHEwSgpj5P7Z +HS3Fof73Crk8TgrLPQxWFNE5EPJb/pVxjhQOuViPTilw4NoZB9HyF1K48VJL +ttUmDry42nDjtqQ09k+l3d5sxwED7vX7p6ulkckujf6bzIEtHS1/Rhql0cDr +qv2RNA5Y8iwxc2yTRlOBW1dbMjngYuXTBZ+lse9vh3jcbQ6YhtLCwpfKYFd/ +6e2vJRzwlZ66tVlRBlcKKjV8e8GBusM3ftQGyqD02hEdrb8cMP+tL3wyVAZ3 +NwjpKiwioSXujY5WuAxeFjVN27iEhK5yvvCc8zKYJvcgboqPhJFVx4Sj0mVw +1PiQdpgoCWJFW3VNn8hgTmNo0kdFErxmxsMbBWi4VM/eaW4fCQZ+h9Z9Eabh +u4ZJ5r0DJKwY7C7kFaOhQ6Tkw8N2JNzuqW03otMQR+LYdU4k9D2+pvRAh4Z3 +J698tvAkYWeUfmeWIw3Xa9jMXg4jQeov6V3tSkOXWMHcJZEkDAfSeXvdaTjl +nE8EniUh5sgqFbFjNOQ3Mrq+/TwJNdt6z1yOoeEujoxXQzwJGsIRqqHFNJSf +OC05mUMCz8XJupRSGm5d91xS7g61f14P29JKGh7k4PT+fBI8J62ixp/S8GdH +tm4eSUJOJ9FzuJuGY4FrfouVkrDuRmP0Xl465odZLtWqJ2FWUahPeR8dfQqb +2/d8JGEqQyJC05aODnpurPlPJPwSZBL6jnT8uNU2OvMLFc8JfY8t7nTs4ckO +7vpOwkCly5TtKTqaNZexZcZIeL7t4eqY23RM1dGuHp8noaHqv+JLBXSs6fOw +tf1DQp3qi70Jd+noq+crWP2XhMci/amZ5XR0ue387OQiLpT0rJR90EzHqj2O +l58t40KqpwMMTNLx3LToUJ4QF5J7jwx8naNjUhb/0ddruJC4MyDqxwId+SeE +1s8Jc+GyZkzTDB8Dj1n/eLtJlAuR88XWglIMbGxvol0V50KY96O5tQwGnuVZ +1JUuwYWT7+szJOQYaOdCluds4EJgbc9HpgYDFxOqc3mSXPC8uNTX0JSBhToH +Lp6hceHIH0ER420MbAmqzfKlc+HQUYlSs10MzGXjVxsGF5z2qP62smWgwHPz +xTQmF/ZusIlx92Hgxzf1sRFyXDAs5NxMSmJgnqBscqwKF3pkCm/8k8bA96Mn +1dVVuRCSlJ/56wYD387vOttG+WFEbrpVPgM3tw/uW6XOBY0DN1NWP2Kg6zfT +in2aXGhtzkyuqmFg780h+Q+UfU0ykryeMjBNdZX1YS0ucFVSE5+3MFDS32TY +U5sL8ksT46L7GdgqErDWUpcLjSHxV7S/MFDe6GnEY8qHxuIufxpk4KZjxcWK +elzI6bkUa/yLgbI143a/KZvsjr04PsPAyWWJHY76XBiov3Dh5h8GDlR4idVQ +lik5F/N3GYEHU1yGAw24UC0bfY5cReCI3JvwZsoOGWej7YUIHJuQ7pXZxIW0 +mIizFeIESjRMjFZRNvgbdsZdisBh57Y7yw250BlwOlKMQaCyk76CJeV1jqHh +gUoEbrbZc7WV8oM3wWFMdQL/4T8YtJpNxdvixOk32gRev8xR2Ep5ojrw1BkD +ApPPfio8TTle+/hJDaDei5bNF1NWLwwI7TchkDvULjFA+ZWMf0jcVgJBc5xP +0IgLAvxHT4zsJrDJqsfWkTInwjsoYz+BE/yrH0dStpj2DNxuR6Dj70W/sil/ +9/I4Pu9I4NK37n+qKccMHDlW4EpgbNNMdxdl2QOHA2zcCfyY6HxpjHJ9s5v/ +Ch8CZ9zsRJcAF9xMXP0e+hMYN5EcsJbyknJn30NBBD71a86jUb6lcvCo6EkC +hxKKHyhSNs5x9KkLJ5AZO5eqQfmDuIN3QBSBjFWONjqUw67Ye9EvENgHSeP/ +t9RSO8/WywTqdFi7alF+FGLjEZ5AYPm8XYkKZbsxa3fVFAJ377N7x6Q857b/ +SF86td8Vgh/FKV/v2Xv4UhaB+8vUGlZS1tu955BhLoEFESHnZ6j9dNTvdhsq +INBoIVfhI+VAw12uqXcJNDfzK3xOWbTE0sX8PoFRQ4n8dynfl93hPFNG4PhM +s2UcZauMbQfvVBF4errT34fyuLCF0/4nBNZ/9w82p9zpRX/l0UCgyNmUbknK +NfVzEPaCwA+twQkj1Pnlyby+m9BKoPoA3+1KynEhhdJ57VR8PQ2FoiifeHPm +yqMeAjnNS9stKDup2C+8+kDgN367aX7KagP872cHCXwYEr4rmrpfYoafLVeP +EZg+wb7ApsyTVPWYPkngq96DjHHqvr4098nctkBgZMnjoB2UfYpf/pshwsSR +4Q113VQ+7F+V11wsxkSxeeu1xykbuYWz6yWZKO7R0rSKsoC4uuSoLBONPJyO +qVD5xQmPf4eGTHSYnWzYqkPVt26P7fs2M7Elv9e7nsrfk1omj9xNmVg6Nh+J +lLd9m0iL38VEXqkvf+WpfB/cuc/ukysTO7Q6bdqoetGWr9w0485E1eiOa5qU +K3iXbRI4ysTpeTXzq2pcOP+wVEInmInaSYISxlS9kZMW6z53iYnDpe4RwUpc +EAoeM0+PZ6IZi7j2WJELM22N5UXJTFxXHCnHQ7kxOvh6VxYTC83s207Ic+Hw +SPcBxVIm3rWa2IksLlhuvdcIlUw8bGd42p2qhzrZF/X21jCxYiRF6wrBhWX7 +DcVOPWei1IGX7FdUPc2tyuho6WNi8xHGBzlpLnyKddrvv5yFtrat+7TXU/Ed +VKKr8bOwxdQgTX8dF6bNZn/8EGLhDfX1gwZUvV/JGx/lLsHC3vCaO1oi1HkG +1953UmbhgtVY5RJBLpxyY4ns3MNC3i3CwmJUf1lW+7OP/wC13qXb9scS6r7I +VBc8t2ehpU5CZTXv/+uftbHpIRZazJ5ptKP60/Pd5/3YwSzc3qSh4Peb6qdG +wy8Vb7Bwpc2ld2t+knAzrSzt+y0WGsX6i5RT/VB+9uzhO3ksNG+S8/t3lATD ++5IL9BIWhqQ352QMk+CisFNF4ikLL27zW/6b6q9F60piVwyxMPWr6BX1HhLM +R4PMP+vI4nTh74PR/5GwUV0qeoWhLJoIJHy5W031Y/+6J4qbZXGHiqVuexUJ +iVNChv7bZNFbXNdYvIKaT/7kqyw4yiJarKIFl5Dgz/9ORPy8LDokfJfMyiYh +VR77tvfIYrwtc0laODUPeX6R8P0gi5M/ks44nSYByFjrhM+yeKpaeoZ+koRP +al2vukZl0dKz6GlmEAkqev61h5bIoYTesfX+PiTUmubkhSvL4X/HxipjqHlp +2GVFwP0wOXzxaNgyTJP638wtVdVn5VBS/CrjpxoJo13hy5vOy6G93h4NZxUS +fu6cTetPkMNnodt5DeRJmN40WLc6Tw5LYz8nNUqRsHjti3Xur+TQwVQ7x5ma +78TrrlRI0uRxj8ezgwnvqHmSWL/43BN5bBd4e0UtlAPfnc3yNjXI4zfDyi2a +JzgQmxVkOdYkj/zD1zs1j3PgtVRnqs1beXxvn5ylcpQDTuLXNZW+yVPnPd2+ +0oUDwas3uLUKKODm5q9PHCw4wJmRatxgo4AmLteNT67ngHAz63LRqAKq52Vb +NRUWwsaYu7t0dJRQrW2yPji/AFIU9YVEDitjW8293sqMfHgusVl74qoKCjYf +deiPzAODjU/iVNtVcWjZM0dFozuwmjf72MFINfwR0qnYszgXpCKkDW1Y6ng8 +qGtxSE4O8DHtS60a1DFjmnPJcOstUGGL3w36VwNdU8p/WfBmg3+fcK0FjyZ+ +V3rEZ597E0YnYveZp2ji3ntyD282Z4KZan2qubIWnt//5VuoZzo8ntg0P92i +hVq9hd5bhq+Dj5JGd6ubNloecKK1FiUDe8T1jQ2fDk6/oJXlu1yDfwixHQLZ +Osj3Wvmdsn0CyIVfOPFEVxe/hhxesfzUVVBw069mdutic8eyNZOqV8Dt8ZGz +9/308G1Ob4Pzt4tQffON67ioPuay9CtXZsfAr7yFadWH+njiuKeXYEkUuDAL ++VJ3GGDQDolrphpnYFwhQadkzADTdMvMoCocynLm+ydjNuHtIL68Z9anwHYL +NatIGeIOw48LYUXBsMH7XLlKjSH2PaEbRDIDQXSlV/EOazYGuOlK7dEOgByT +UyFjNmwcD/i2fUYuADROXTZJsGfjk8uzvDkbA8ByrOht50E2vlRuXSS4JACi +2ydnXbzYGHXNc07jtT/MZIcZh0Sw8eyXla+K/P2he1PC69xCNrJ8fiYGlPrB +keM56eZcNiY3ReHnAj+Y4j5wGy5io+YGHfl/b/iBML1zWr2UjQkt5/McY/xg +2wrJjVU1bCyY2yp519YPHr3JdX39lo2VX9+3HufxA4vVZcqBnWzUeNSkbTHp +C51mz6bEethodtOqmBj0hV8VQzEOH6j1195+HnrtC8pZauT3QTam7NXirb3j +C4+6NwfG/mDj/RehAw3pvmCxdg+ojrExVqWgvu2qLxw6d7z12CQbw+JcE+dC +qe/VRKeun2Hjbo9/gtf7+ULkXLJLxRwbKwZKbQwO+YKQVr7Sv3/YWNrmouli +5wuZ3hWTCwtsrIJp3vhdvvA/h/VohA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "PlotRange" -> {{0, 30}, {0., 0.0590760393052958}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8666,6 +9407,7 @@ U0FU/w== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8693,7 +9435,8 @@ U0FU/w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0590760393052958}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8701,8 +9444,9 @@ U0FU/w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913236646248627`*^9}, - CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] + CellChangeTimes->{3.9913236646248627`*^9, 3.993827347939818*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"6b4b0bcb-9e37-44fd-a5c1-072dc46b0e49"] }, Open ]], Cell[CellGroupData[{ @@ -8754,65 +9498,71 @@ Cell[BoxData[ FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", - CellLabel->"In[90]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], + CellLabel-> + "In[109]:=",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.021776323822914`*^-185\\\", \ \\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ 7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, 90, - 21, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323664732767*^9}, +to represent as a normalized machine number; precision may be lost.\"", 2, + 109, 33, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.993827348052806*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +In[109]:=",ExpressionUUID->"395f0b50-b7d5-4886-a473-a5678a90ed95"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0348431090773775`*^-188\\\", \ \\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ 35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 22, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132366476486*^9}, + 2, 109, 34, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.993827348063094*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +In[109]:=",ExpressionUUID->"4469f26e-2559-45f1-8a37-9f7a6deb1fdd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.1325128626790204`*^-192\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 90, 23, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236647877655`*^9}, + 2, 109, 35, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.993827348071208*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +In[109]:=",ExpressionUUID->"53f40c78-9e84-4538-aba8-d1d27f4d05ca"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 90, 24, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236648078594`*^9}, +during this calculation.\"", 2, 109, 36, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323664732767*^9, 3.993827348077512*^9}, CellLabel-> "During evaluation of \ -In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +In[109]:=",ExpressionUUID->"0df81271-e817-4cd8-a025-aaa3fcab2435"], -Cell[BoxData["11.275343508420768`"], "Output", - CellChangeTimes->{3.9913236764669056`*^9}, - CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[BoxData["12.867705193318667`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9, 3.993827387916147*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"8859b022-a0f8-4b03-bf0f-64ce1e6f9e9d"] }, Open ]], Cell[CellGroupData[{ @@ -8879,67 +9629,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917996753598194`*^9, - 3.991799698091812*^9}},ExpressionUUID->"18d0289f-01fd-a740-8fac-\ -540622282b2c"], + CellChangeTimes->{{3.9917996753598194`*^9, 3.991799698091812*^9}}, + CellLabel-> + "In[110]:=",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.055941673302348`*^-210\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 25, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765399036`*^9}, +normalized machine number; precision may be lost.\"", 2, 110, 37, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993827387971143*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +In[110]:=",ExpressionUUID->"33ca114b-33ab-4c3a-95ca-1454b839b10a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0573110848014097`*^-215\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 26, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236765679016`*^9}, +normalized machine number; precision may be lost.\"", 2, 110, 38, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.99382738797791*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +In[110]:=",ExpressionUUID->"638e8cae-e152-4e99-8501-6ad8063b5bac"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0586822722393335`*^-220\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 91, 27, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323676587904*^9}, +normalized machine number; precision may be lost.\"", 2, 110, 39, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993827387984232*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +In[110]:=",ExpressionUUID->"89eabdb2-f1b3-4cc5-8dd7-a2284177f499"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 91, 28, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236766039066`*^9}, +during this calculation.\"", 2, 110, 40, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913236765399036`*^9, 3.993827387992016*^9}, CellLabel-> "During evaluation of \ -In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +In[110]:=",ExpressionUUID->"64f8ebe5-08a6-4815-abfd-ce1db2473eea"], -Cell[BoxData["0.5376063675902706`"], "Output", - CellChangeTimes->{3.9913236883162384`*^9}, - CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[BoxData["2.7832507347301614`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9, 3.9938273952488003`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"9be105b1-c85d-4141-8c76-381ca49a818f"] }, Open ]], Cell[CellGroupData[{ @@ -8960,8 +9715,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9006,67 +9760,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997261183853`*^9, - 3.991799730012718*^9}},ExpressionUUID->"33f25e29-8e2f-5249-9603-\ -4bb381db84df"], + CellChangeTimes->{{3.9917997261183853`*^9, 3.991799730012718*^9}}, + CellLabel-> + "In[111]:=",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.055941673302348`*^-210\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 29, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132368839011*^9}, +normalized machine number; precision may be lost.\"", 2, 111, 41, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.993827395290812*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +In[111]:=",ExpressionUUID->"679f513a-a576-4dc3-acc6-6d856702b614"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0573110848014097`*^-215\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 30, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884141064`*^9}, +normalized machine number; precision may be lost.\"", 2, 111, 42, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.99382739529705*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +In[111]:=",ExpressionUUID->"229b7ace-cf5f-418e-9da5-1778a3da5171"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0586822722393335`*^-220\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 92, 31, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323688443001*^9}, +normalized machine number; precision may be lost.\"", 2, 111, 43, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.993827395304575*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +In[111]:=",ExpressionUUID->"0ef86041-8015-452a-98cd-a4cc18bf28d5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 92, 32, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913236884570007`*^9}, +during this calculation.\"", 2, 111, 44, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99132368839011*^9, 3.993827395311717*^9}, CellLabel-> "During evaluation of \ -In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +In[111]:=",ExpressionUUID->"f78d7dfa-a918-43d2-82a2-d6a5e5a63d6e"], -Cell[BoxData["10.498798062085507`"], "Output", - CellChangeTimes->{3.9913236988049507`*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[BoxData["49.14170514897316`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9, 3.993827402153243*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"4ed8a400-b10b-45b0-9b73-a01094640f34"] }, Open ]], Cell[CellGroupData[{ @@ -9087,8 +9846,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9133,67 +9891,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917997336698074`*^9, - 3.9917997367747993`*^9}},ExpressionUUID->"88e14da9-8532-e842-b722-\ -1b0781de8eeb"], + CellChangeTimes->{{3.9917997336698074`*^9, 3.9917997367747993`*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0214398527195236`*^-209\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.055941673302348`*^-210\\\", \ \\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ 29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 33, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698915848*^9}, +normalized machine number; precision may be lost.\"", 2, 112, 45, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.993827402197111*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +In[112]:=",ExpressionUUID->"8bb30d48-c36d-4623-863c-a7fa80483462"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2768543829593313`*^-214\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0573110848014097`*^-215\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 34, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698943981*^9}, +normalized machine number; precision may be lost.\"", 2, 112, 46, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.9938274022034082`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +In[112]:=",ExpressionUUID->"d9e68f7e-5b7e-4297-b4de-4546ce22ec5c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.553860136403171`*^-219\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0586822722393335`*^-220\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 93, 35, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698971981*^9}, +normalized machine number; precision may be lost.\"", 2, 112, 47, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.9938274022133923`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +In[112]:=",ExpressionUUID->"44946a3e-05bd-4802-b3d3-bf4c60dfdc89"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 93, 36, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323698986994*^9}, +during this calculation.\"", 2, 112, 48, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991323698915848*^9, 3.9938274022224703`*^9}, CellLabel-> "During evaluation of \ -In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +In[112]:=",ExpressionUUID->"758e6155-52da-4973-acc5-cc49ad068da2"], -Cell[BoxData["18.521732102530788`"], "Output", - CellChangeTimes->{3.991323706795576*^9}, - CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[BoxData["13.852441634724222`"], "Output", + CellChangeTimes->{3.991323706795576*^9, 3.993827406405897*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"3dba417f-1e91-46a8-940c-6d4c7abb9ed6"] }, Open ]], Cell[CellGroupData[{ @@ -9202,21 +9965,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991799742384985*^9, - 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ -e5f89f4ec38f"], + CellChangeTimes->{{3.991799742384985*^9, 3.9917997459840527`*^9}}, + CellLabel-> + "In[113]:=",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[BoxData["0.038552612544494616`"], "Output", - CellChangeTimes->{3.991323706858589*^9}, - CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[BoxData["0.10667534521771646`"], "Output", + CellChangeTimes->{3.991323706858589*^9, 3.993827406442793*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"ff67df1a-0a5a-498f-af2f-63fcb7a043f2"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9917997487290344`*^9, 3.991799750684988*^9}, - 3.9919243164025135`*^9},ExpressionUUID->"c771f2bd-f081-e54a-b4e5-\ -bf0dbc996ac3"], + 3.9919243164025135`*^9}, + CellLabel-> + "In[114]:=",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ @@ -9238,11 +10003,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", - CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + CellLabel-> + "In[115]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.991323706886154*^9}, - CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[BoxData["12.350478336256169`"], "Output", + CellChangeTimes->{3.991323706886154*^9, 3.993827406457676*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"279f3db5-e782-4ef9-bc8c-9c2cf316326b"] }, Open ]], Cell[CellGroupData[{ @@ -9251,11 +10018,13 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", - CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + CellLabel-> + "In[116]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.9913237069236546`*^9}, - CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[BoxData["2.7554168730580613`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9, 3.9938274064682302`*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"7d4d5c39-9a3e-4d7c-9afd-a8c81a71619d"] }, Open ]], Cell[CellGroupData[{ @@ -9265,12 +10034,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + "In[117]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913237069753113`*^9}, +Cell[BoxData["34.030716398058296`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9, 3.9938274064762497`*^9}, CellLabel-> - "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] + "Out[117]=",ExpressionUUID->"8dc62179-4268-4af6-85b9-2e61345ce5e1"] }, Open ]], Cell[CellGroupData[{ @@ -9460,12 +10229,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + "In[118]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[BoxData["0.02467166981689615`"], "Output", - CellChangeTimes->{3.991323707000412*^9}, +Cell[BoxData["0.004974574767815458`"], "Output", + CellChangeTimes->{3.991323707000412*^9, 3.993827406489543*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] + "Out[118]=",ExpressionUUID->"1ab40c9e-ceb1-42ef-8eb0-7be5b65d6d0f"] }, Open ]], Cell[CellGroupData[{ @@ -9479,12 +10248,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + "In[119]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[BoxData["5.642163519289108`"], "Output", - CellChangeTimes->{3.991323707203314*^9}, +Cell[BoxData["12.565129222699294`"], "Output", + CellChangeTimes->{3.991323707203314*^9, 3.9938274065809402`*^9}, CellLabel-> - "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] + "Out[119]=",ExpressionUUID->"3ef47c74-d6f9-4efd-9588-e48261be3a59"] }, Open ]], Cell[CellGroupData[{ @@ -9676,12 +10445,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + "In[120]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[BoxData["0.012834083028601704`"], "Output", - CellChangeTimes->{3.9913237072224197`*^9}, +Cell[BoxData["0.027336172151175005`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9, 3.993827406592108*^9}, CellLabel-> - "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] + "Out[120]=",ExpressionUUID->"f17d93e6-488e-4729-ade3-aa9c0fc24a81"] }, Open ]], Cell[CellGroupData[{ @@ -9695,12 +10464,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + "In[121]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[BoxData["7.82280524717004`"], "Output", - CellChangeTimes->{3.991323707432623*^9}, +Cell[BoxData["5.360139472106603`"], "Output", + CellChangeTimes->{3.991323707432623*^9, 3.993827406702055*^9}, CellLabel-> - "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] + "Out[121]=",ExpressionUUID->"46a44e38-d7bf-4a88-9501-ce364a4d0d53"] }, Open ]], Cell[CellGroupData[{ @@ -9793,12 +10562,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + "In[122]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913237074497375`*^9}, +Cell[BoxData["0.10999833674656989`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9, 3.993827406712912*^9}, CellLabel-> - "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] + "Out[122]=",ExpressionUUID->"2f9d7d3b-815c-49ce-98a9-505519bab031"] }, Open ]], Cell[CellGroupData[{ @@ -9888,12 +10657,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + "In[123]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991323707467621*^9}, +Cell[BoxData["0.8900016632534301`"], "Output", + CellChangeTimes->{3.991323707467621*^9, 3.993827406725758*^9}, CellLabel-> - "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] + "Out[123]=",ExpressionUUID->"13a35c05-5732-485e-822e-0c8a7e5fcbdc"] }, Open ]], Cell[CellGroupData[{ @@ -10016,12 +10785,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + "In[124]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991323707488617*^9}, +Cell[BoxData["0.0978987026595581`"], "Output", + CellChangeTimes->{3.991323707488617*^9, 3.993827406736504*^9}, CellLabel-> - "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] + "Out[124]=",ExpressionUUID->"8e0a3f21-ef38-478b-b2ee-487e7779d460"] }, Open ]], Cell[CellGroupData[{ @@ -10083,68 +10852,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799766323864*^9},ExpressionUUID->"ee2d2671-1677-5943-bf7a-\ -6ffa36275fe8"], + CellChangeTimes->{3.991799766323864*^9}, + CellLabel-> + "In[125]:=",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 109, 37, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075117207`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.8314057325572496`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 125, 49, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993827406750043*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +In[125]:=",ExpressionUUID->"5ff6c828-4112-4a8e-92e5-3b11b394b378"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 38, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323707545618*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6833535842032898`*^-224\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 125, 50, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993827406758205*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +In[125]:=",ExpressionUUID->"9f294a3a-c6a4-4b33-86a5-14eb958fd4e8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 109, - 39, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075757256`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.865123830016658`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 51, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993827406766345*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +In[125]:=",ExpressionUUID->"2c8d1e00-3cb6-411a-b49f-8193cf8ad5a6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 109, 40, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237075926247`*^9}, +during this calculation.\"", 2, 125, 52, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237075117207`*^9, 3.993827406772565*^9}, CellLabel-> "During evaluation of \ -In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +In[125]:=",ExpressionUUID->"7201ff84-cdd2-44f5-8a32-cae82729aee4"], -Cell[BoxData["5.642163519289105`"], "Output", - CellChangeTimes->{3.9913237161181736`*^9}, +Cell[BoxData["12.565129222699289`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9, 3.993827410379345*^9}, CellLabel-> - "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] + "Out[125]=",ExpressionUUID->"0e0d25fd-f421-4d53-939b-49ff1293602a"] }, Open ]], Cell[CellGroupData[{ @@ -10206,68 +10979,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917997699328365`*^9},ExpressionUUID->"b0b1035a-0fdf-b146-a71f-\ -1ab9142a9a90"], + CellChangeTimes->{3.9917997699328365`*^9}, + CellLabel-> + "In[126]:=",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 110, 41, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237161871567`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.8314057325572496`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 126, 53, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.9938274104249077`*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +In[126]:=",ExpressionUUID->"fec2ef22-7c6b-436f-a4dd-1c16c9d1c07a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 42, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162070637`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6833535842032898`*^-224\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 126, 54, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993827410432109*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +In[126]:=",ExpressionUUID->"2ea6647d-bfe5-43ab-a5da-a651abbaa2a1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 110, - 43, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991323716227171*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.865123830016658`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 126, 55, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993827410439093*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +In[126]:=",ExpressionUUID->"a1893b93-e642-49ff-98bc-4fce17f3f751"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 110, 44, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913237162481613`*^9}, +during this calculation.\"", 2, 126, 56, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913237161871567`*^9, 3.993827410446394*^9}, CellLabel-> "During evaluation of \ -In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +In[126]:=",ExpressionUUID->"2c7a7301-9244-4408-ba0a-fb668038721e"], -Cell[BoxData["7.822805247170038`"], "Output", - CellChangeTimes->{3.991323724852854*^9}, +Cell[BoxData["5.360139472106598`"], "Output", + CellChangeTimes->{3.991323724852854*^9, 3.993827414007402*^9}, CellLabel-> - "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] + "Out[126]=",ExpressionUUID->"2fe21f48-52d7-4b38-81f2-71ec9193c239"] }, Open ]], Cell[CellGroupData[{ @@ -10325,95 +11102,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917997843341885`*^9},ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-\ -ff25938e6592"], + CellChangeTimes->{3.9917997843341885`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk8Fd8bB3BZSpYi2SN7SbfsW8t5QonsRfa4y4SKQlJEJalvUbRpVaHs +siZLv0SlskVFyu7q3mt3B1HyO/6Y17zer3PmM88588xRpgY5MXh5eHhY+Fq8 +H2vctO5Fc+P2TFPP8QftLLR9NM2AapGDVlsnyj7E7kkxvKFmUYlSMyk3F+1A +b1gqovcWlbnp0FKwC8KjawQs6lGZ+/2YR9iX3sm8js76jCRyA6cfY79sPvbw +r+5XVO+YUZGKzen4GHmyoh3dsrJqTceWY6p6TJv/RIU3HbdlYO8ZizQJqe9G +LkbVs1nYr/5yhMOzetH05mTBPOxvZ6UjSgP7kdrZb/4F2KNLLTikLhOVboxU +KMFeeuWom97MIIrRv6T6EltR/EHdsQoW+nh3PqIK205++umo+TBqubxG7T02 +8UhFiiI4im7Lvw+px45Wt489VD+G5iW+S7Zgt0t/0QnNmkB+1nqOXdh09wD/ +61cmUWtCBGcAe/w+z+PCQC66s1vr2xC2oApFbEJ3Cs1sqE6bw75Br7EUk5xG +zh7P4ni/s5DSM7fozTPTKEJsqlII23jjhdEjFb9Rs9x7xTXYfobd9Rzzv0hc +d9f/zLDJ8OP8Qhrz6LuQv4Et9pkK4a2agv/Q3avc+f3YyWCcfbB+AW0tQhcC +senpdRbBWUvAXrgkJAU76931nrPyvJDOljydgz3+yzsy8QovEOld7S+xIzdM +FT0P5AO+z8/ivmLfyFdWHdMVANm3sm/EOlioo3n41b9UAWC6lXsrYStNvnBf +IbkUBAVrbLWxc/TtkigzS+HQZxFVR+zal6eWHK4QhDbBmKxb2FM1rd0scxHY +v5KXovODhVbZiIhFvBKBx6YLhZbY2l8sQNREFKIC2+54YwcMlDzS2bQCGjVk +/4vHPspbr71NRAymGP3kGDZTJW8idlocRDc+4r77ifeH+Li8SW8VeFbti+vH +5s0eVJY5tgoarZkRPJ24Xr21TllDq6Dpwd24Ldju5tcKG3skIFPIVbMUu4kW +HCL9SRLOtVJuVXWxUNezhMs+glLgezbLqAd7eCgrNXOnFKxz5Dfl62YhodD+ +1i2vpcDsqb2vNbbF+X36PiXSEHvA0rQTuzzNcCojRRZKAhokJXtZKI05F2Ya +qgBeB5tCGvpZaLdzXFdIrgLYndssOYs9XCuxK3dQAWKuCgirD7CQftpGSSU3 +RdjWIkGexq6lehcJbF8Lj40qKvSYLDQ51nOCFaMEBxoslfMHWUjiiEVxka0K +6GiM7WSyWWgwTcjPIUAFQooMw+Q5LFT2s1l+5IIKuLKn5xyxPW28YjReq8CB +7N4lr7HTtMKc7uiqQoYoTeDREH4/59l4lLQaDGVr9geNsNC+g8IU6151eJJ1 +aM5ugoVQmLPu/nl1qHDiCU3A3hCbYkSX1QDqobrtjdg8qXpmUY4a8NaK+95u +koVyuzz2F1ZrwAGj0oy9XPx/uuSclXuyDuqq+dMOT+H6LGy/caiaEH6ddu7H +LAul7r39YyZKEwL2Jamoz7FQArW3h/+eJvi7z0gEYdPPHB9SbNWEQwl0Dt8f +FhKvfMCz13wDhPI2MnT+4v7RG91QoaoFwnbjt+79YyF5lavRlwc2gtwbwf4c +Pjaq/I/UnOWlQOXHovfL+NnIk+v2hVCmwMX2CWEa9sNaNU0zbwrs8l9XJCfA +RioHy1t+t1Ggfk1EZMJSNtqQw1QnPm0CXv2OubjlbKQgr0gouWlDxbzMszcr +2WhjeqjIH6QLt5mj1S4KbESlx0xR7HTBlsrtrsZOVk3q8vHUhat7TB0pimzE +9yT/+btwXbhz9ipFYC0bdTzk7Esq0AXz7a4NZUpsdCnZ54Gmqh4wpfwyN6ux +0eBlm02uS/WhYuhOq4cWGz0OVnMoqTcAdJo1lmvKRs1hyOh8ugn0XJKac/Nh +I2Xvr3Zeh7eB4shzN8vLbMRYKM1TOAngeq+XkVLGRtJDZcukqWZAys8yro2x +Uaje1p9JGywgc/3aELP1HEQd+VsnwdkJX3dd2t9H56Bcs5BlKU2WcK7uzArL +HA5KIwOqc25YwVYend1rSQ76vUOmoTZ6D/yeL3ROtRxCnTx8E72+tqCxpvIa +pAyhwDVB186q2gMzqESeOTWE8vzrXt+MdYBh5W4NZbdhdIorO6Pl7wgSSVlV +CeXDaMp6l8v7A05gGfhnbJPmCDLxSNzBdNwLAV13tQrujqAW2QcBtXr7YGZk +pW0FPsflnsZUZqx3Boeui/E7z4+isp4NNnaiLpBfT+ZZ/RlFil/GD4aNuMCg +G+OIZMgY0ruZmJPasx8+bH3JXft7DD3g525KqnGFWo+kH95bxlHpjs0dsS/d +4F5xiMHKs+Mo2eg/8b9Z7uB3/1aT+btx1PQj/YLeFQ+QvsGmmS6bQCW299WO +nvGEr5GWCh9sJ9DEkb08gXQvaHC19fG/OoGmdmn6jZp7w1ii4/LNTRMoY+T7 +7xDDA3AvPI/HQ2ISuT5Op3mJ+EBzmo7TPcdJVFS45wBfnA+IWqWKal6fRCby +LbOXZn1AK1v4mXLjJFLtOdjx2d8Xlvi05x8V4KIB4UP29/t9ocqcf3zjdi5q +TrCjWTpTYVTs4q2nQVx0IzxF+HgzFWLn8zcJPOaiylcLszQrGnQa77tdXc9F +Kz0hTq+cBpHrRyjT41yktPp905pKGvg6LScvTnCRdr2tzNJXNBirqfKRn+Qi +p60eme3VNLhXl0hBXJy/JuzT6Q808BR0Szo3xUVyndkr69ppEPNLOfT3LBep +eUsne87Q4E6cxGwKL4lMfEYzYvXp8NiX1/D7KhI9vTMeYmdIB8pP5SobCRKt +bp3cLm1Mh1zlxIn/YY/unPmSsYUOiV4K1PTVJD6/eJbUm9EhWU7V57AUiVbM +iLutcqTDdEF5NUeWRAPxBstTjtDhdqBgToYSiRIqIv3LntIhiC+vTp1CoiO6 +t03CM+gQ+lTB/hy2TWbBcuMsOiiUHz/XhS10ezDzRS6e35o9dnMTiWKDHTil +xXQQTvjYx6NNokhNtUMlb+jQOvBJ6b0uiQJufzpc2EUHmSUj6auNSWS1YnBr +cA8d/sy7FBDY62N5RHX76DDhoepXhj0YbJBbwKSDFq2kzd2ERL52KSPPh+kw +qH2m6p4piVwFQgLz5+jQcqPvjug2ElmGyB3NkWLAePNrq4IdJHqTcsE6SYYB +eW2RZf+wt9ZPqoXLMSC6YNmbPWYk0lb/9N1ckQFXCl3SB7Bl2yLMf6gz4In5 +iWxxCxINmXZKCRkwYE1nX5brLhJd5X1UdXAvA+Rd3qjctcbr3yySbOvMgOPr +a1s7sM97hAfr7WeAZLacovweEoUXO6xbcGdATMvdqLvYvsSSxFtUBvxseHXk +hg2J9D5S6W+PYZfG/gm1I1Fborqw6jUGiKwTvMZyJFEeEvVjJTKg/0v7gIwT +zh8ha3OvM8DRz6B7N7auVW2U8W0GFG8Jq32GncBDm7R9iNfv4Ozgu5dEu4Ie +fQ/PYcDD8cyDNftIpKBw0XB7HgMEo4VXjWKTH4Ou8z1nQHxDgq+MM4meaCDb +hCIG2A33jh3Cnu/sfJ1azoCTP1Z+WOFComIb+YzGOga0yNL8zPeT6PIcr8CN +jwwouC9J9cOmZnB83eoZYNx9hSceW4y/XH6giQGiusVaX7EPV7henf3GAKsu +J1NfVxKpbrgVpsZkwInDVH0/NxLNtZ1uZQ8ywENr9kQcdnMsQzufxQCxYX6f +p9hRvfock2EGLDj7K/RjdyS3etlz8XrG2Dau7iRKWia+89QSAlZuk47Q8SBR +5WSnRygfASXXzaZtsX91ZgUHChBgXLxswR97a7HFI+pyAqq/W798hD3oE/7H +WpyA4N+azYKeuH6bnat2ShDQaJv8Qhl7i9EqTSRJgMLdkxtNsa+J5rjoyRKQ +uiXmlf/ieHl3gbwyAV16pjE12ER6Tp2kKgG/0Puv7Yvzr53sXqlOwHB2eskI +9iAhIcqvSQCHsFSQ8sLjEpZ+w9oEWLuUXfbFLv8nET2oS0Bxpf/uEGwmu+dm +jz4B/loOSeexTV+fqvliTIBTbH5DOvbA4TzFKiCgIIre14e9wjXC4IUZAX2/ +/AUnsE3Md9sUWBDQZh5f8Q87QbbvZPpuAo59V/0g402iMv78aynWBJywTlJV +x+4fi3h2x4YAAQVJYR1s43eSX+MdCAjaZn/WEpta0DcU50TAgUO8Yk7Y8ffz +ec/tI2CmvFrLE7sv2Eo7zJUA6kEvoSBsUW8py6PuBCy3NWw4sZhn1e8V4Im/ +F7Fa4czi82tPX/b2IUBlYwft6mI9QtZPXKkE9Ar9z/3WYt6U1EsnOgEhZ1K7 +7i/m9fY32RAERLpfGHuymFf/fHCXHwFVEUR8xmJ9L07PQwABa3+aleUu5j+x +Xr3lMAHpF+WOFi7mx0trGQQScDR1uLh0MT98YMfmo7gfaGUXyrFF6AWumsEE +LEieZlZhG9lHBamGEpArb/r59WK+6Z4LCmG4X4ZGrWqwr6jLPJAOJ0Bc/J79 +W+xSMWaR+Cm8n5Ttfe+we/8UfBSOJCBjum1J3WL+r6hegSgCWoz88hZt2LLn +90I0AWafR38t+v+mNAMB "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10427,107 +11203,105 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1Hk8Fd8bB3BZSpYi2SN7SbfsW8t5QonsRfa4y4SKQlJEJalvUbRpVaHs +siZLv0SlskVFyu7q3mt3B1HyO/6Y17zer3PmM88588xRpgY5MXh5eHhY+Fq8 +H2vctO5Fc+P2TFPP8QftLLR9NM2AapGDVlsnyj7E7kkxvKFmUYlSMyk3F+1A +b1gqovcWlbnp0FKwC8KjawQs6lGZ+/2YR9iX3sm8js76jCRyA6cfY79sPvbw +r+5XVO+YUZGKzen4GHmyoh3dsrJqTceWY6p6TJv/RIU3HbdlYO8ZizQJqe9G +LkbVs1nYr/5yhMOzetH05mTBPOxvZ6UjSgP7kdrZb/4F2KNLLTikLhOVboxU +KMFeeuWom97MIIrRv6T6EltR/EHdsQoW+nh3PqIK205++umo+TBqubxG7T02 +8UhFiiI4im7Lvw+px45Wt489VD+G5iW+S7Zgt0t/0QnNmkB+1nqOXdh09wD/ +61cmUWtCBGcAe/w+z+PCQC66s1vr2xC2oApFbEJ3Cs1sqE6bw75Br7EUk5xG +zh7P4ni/s5DSM7fozTPTKEJsqlII23jjhdEjFb9Rs9x7xTXYfobd9Rzzv0hc +d9f/zLDJ8OP8Qhrz6LuQv4Et9pkK4a2agv/Q3avc+f3YyWCcfbB+AW0tQhcC +senpdRbBWUvAXrgkJAU76931nrPyvJDOljydgz3+yzsy8QovEOld7S+xIzdM +FT0P5AO+z8/ivmLfyFdWHdMVANm3sm/EOlioo3n41b9UAWC6lXsrYStNvnBf +IbkUBAVrbLWxc/TtkigzS+HQZxFVR+zal6eWHK4QhDbBmKxb2FM1rd0scxHY +v5KXovODhVbZiIhFvBKBx6YLhZbY2l8sQNREFKIC2+54YwcMlDzS2bQCGjVk +/4vHPspbr71NRAymGP3kGDZTJW8idlocRDc+4r77ifeH+Li8SW8VeFbti+vH +5s0eVJY5tgoarZkRPJ24Xr21TllDq6Dpwd24Ldju5tcKG3skIFPIVbMUu4kW +HCL9SRLOtVJuVXWxUNezhMs+glLgezbLqAd7eCgrNXOnFKxz5Dfl62YhodD+ +1i2vpcDsqb2vNbbF+X36PiXSEHvA0rQTuzzNcCojRRZKAhokJXtZKI05F2Ya +qgBeB5tCGvpZaLdzXFdIrgLYndssOYs9XCuxK3dQAWKuCgirD7CQftpGSSU3 +RdjWIkGexq6lehcJbF8Lj40qKvSYLDQ51nOCFaMEBxoslfMHWUjiiEVxka0K +6GiM7WSyWWgwTcjPIUAFQooMw+Q5LFT2s1l+5IIKuLKn5xyxPW28YjReq8CB +7N4lr7HTtMKc7uiqQoYoTeDREH4/59l4lLQaDGVr9geNsNC+g8IU6151eJJ1 +aM5ugoVQmLPu/nl1qHDiCU3A3hCbYkSX1QDqobrtjdg8qXpmUY4a8NaK+95u +koVyuzz2F1ZrwAGj0oy9XPx/uuSclXuyDuqq+dMOT+H6LGy/caiaEH6ddu7H +LAul7r39YyZKEwL2Jamoz7FQArW3h/+eJvi7z0gEYdPPHB9SbNWEQwl0Dt8f +FhKvfMCz13wDhPI2MnT+4v7RG91QoaoFwnbjt+79YyF5lavRlwc2gtwbwf4c +Pjaq/I/UnOWlQOXHovfL+NnIk+v2hVCmwMX2CWEa9sNaNU0zbwrs8l9XJCfA +RioHy1t+t1Ggfk1EZMJSNtqQw1QnPm0CXv2OubjlbKQgr0gouWlDxbzMszcr +2WhjeqjIH6QLt5mj1S4KbESlx0xR7HTBlsrtrsZOVk3q8vHUhat7TB0pimzE +9yT/+btwXbhz9ipFYC0bdTzk7Esq0AXz7a4NZUpsdCnZ54Gmqh4wpfwyN6ux +0eBlm02uS/WhYuhOq4cWGz0OVnMoqTcAdJo1lmvKRs1hyOh8ugn0XJKac/Nh +I2Xvr3Zeh7eB4shzN8vLbMRYKM1TOAngeq+XkVLGRtJDZcukqWZAys8yro2x +Uaje1p9JGywgc/3aELP1HEQd+VsnwdkJX3dd2t9H56Bcs5BlKU2WcK7uzArL +HA5KIwOqc25YwVYend1rSQ76vUOmoTZ6D/yeL3ROtRxCnTx8E72+tqCxpvIa +pAyhwDVB186q2gMzqESeOTWE8vzrXt+MdYBh5W4NZbdhdIorO6Pl7wgSSVlV +CeXDaMp6l8v7A05gGfhnbJPmCDLxSNzBdNwLAV13tQrujqAW2QcBtXr7YGZk +pW0FPsflnsZUZqx3Boeui/E7z4+isp4NNnaiLpBfT+ZZ/RlFil/GD4aNuMCg +G+OIZMgY0ruZmJPasx8+bH3JXft7DD3g525KqnGFWo+kH95bxlHpjs0dsS/d +4F5xiMHKs+Mo2eg/8b9Z7uB3/1aT+btx1PQj/YLeFQ+QvsGmmS6bQCW299WO +nvGEr5GWCh9sJ9DEkb08gXQvaHC19fG/OoGmdmn6jZp7w1ii4/LNTRMoY+T7 +7xDDA3AvPI/HQ2ISuT5Op3mJ+EBzmo7TPcdJVFS45wBfnA+IWqWKal6fRCby +LbOXZn1AK1v4mXLjJFLtOdjx2d8Xlvi05x8V4KIB4UP29/t9ocqcf3zjdi5q +TrCjWTpTYVTs4q2nQVx0IzxF+HgzFWLn8zcJPOaiylcLszQrGnQa77tdXc9F +Kz0hTq+cBpHrRyjT41yktPp905pKGvg6LScvTnCRdr2tzNJXNBirqfKRn+Qi +p60eme3VNLhXl0hBXJy/JuzT6Q808BR0Szo3xUVyndkr69ppEPNLOfT3LBep +eUsne87Q4E6cxGwKL4lMfEYzYvXp8NiX1/D7KhI9vTMeYmdIB8pP5SobCRKt +bp3cLm1Mh1zlxIn/YY/unPmSsYUOiV4K1PTVJD6/eJbUm9EhWU7V57AUiVbM +iLutcqTDdEF5NUeWRAPxBstTjtDhdqBgToYSiRIqIv3LntIhiC+vTp1CoiO6 +t03CM+gQ+lTB/hy2TWbBcuMsOiiUHz/XhS10ezDzRS6e35o9dnMTiWKDHTil +xXQQTvjYx6NNokhNtUMlb+jQOvBJ6b0uiQJufzpc2EUHmSUj6auNSWS1YnBr +cA8d/sy7FBDY62N5RHX76DDhoepXhj0YbJBbwKSDFq2kzd2ERL52KSPPh+kw +qH2m6p4piVwFQgLz5+jQcqPvjug2ElmGyB3NkWLAePNrq4IdJHqTcsE6SYYB +eW2RZf+wt9ZPqoXLMSC6YNmbPWYk0lb/9N1ckQFXCl3SB7Bl2yLMf6gz4In5 +iWxxCxINmXZKCRkwYE1nX5brLhJd5X1UdXAvA+Rd3qjctcbr3yySbOvMgOPr +a1s7sM97hAfr7WeAZLacovweEoUXO6xbcGdATMvdqLvYvsSSxFtUBvxseHXk +hg2J9D5S6W+PYZfG/gm1I1Fborqw6jUGiKwTvMZyJFEeEvVjJTKg/0v7gIwT +zh8ha3OvM8DRz6B7N7auVW2U8W0GFG8Jq32GncBDm7R9iNfv4Ozgu5dEu4Ie +fQ/PYcDD8cyDNftIpKBw0XB7HgMEo4VXjWKTH4Ou8z1nQHxDgq+MM4meaCDb +hCIG2A33jh3Cnu/sfJ1azoCTP1Z+WOFComIb+YzGOga0yNL8zPeT6PIcr8CN +jwwouC9J9cOmZnB83eoZYNx9hSceW4y/XH6giQGiusVaX7EPV7henf3GAKsu +J1NfVxKpbrgVpsZkwInDVH0/NxLNtZ1uZQ8ywENr9kQcdnMsQzufxQCxYX6f +p9hRvfock2EGLDj7K/RjdyS3etlz8XrG2Dau7iRKWia+89QSAlZuk47Q8SBR +5WSnRygfASXXzaZtsX91ZgUHChBgXLxswR97a7HFI+pyAqq/W798hD3oE/7H +WpyA4N+azYKeuH6bnat2ShDQaJv8Qhl7i9EqTSRJgMLdkxtNsa+J5rjoyRKQ +uiXmlf/ieHl3gbwyAV16pjE12ER6Tp2kKgG/0Puv7Yvzr53sXqlOwHB2eskI +9iAhIcqvSQCHsFSQ8sLjEpZ+w9oEWLuUXfbFLv8nET2oS0Bxpf/uEGwmu+dm +jz4B/loOSeexTV+fqvliTIBTbH5DOvbA4TzFKiCgIIre14e9wjXC4IUZAX2/ +/AUnsE3Md9sUWBDQZh5f8Q87QbbvZPpuAo59V/0g402iMv78aynWBJywTlJV +x+4fi3h2x4YAAQVJYR1s43eSX+MdCAjaZn/WEpta0DcU50TAgUO8Yk7Y8ffz +ec/tI2CmvFrLE7sv2Eo7zJUA6kEvoSBsUW8py6PuBCy3NWw4sZhn1e8V4Im/ +F7Fa4czi82tPX/b2IUBlYwft6mI9QtZPXKkE9Ar9z/3WYt6U1EsnOgEhZ1K7 +7i/m9fY32RAERLpfGHuymFf/fHCXHwFVEUR8xmJ9L07PQwABa3+aleUu5j+x +Xr3lMAHpF+WOFi7mx0trGQQScDR1uLh0MT98YMfmo7gfaGUXyrFF6AWumsEE +LEieZlZhG9lHBamGEpArb/r59WK+6Z4LCmG4X4ZGrWqwr6jLPJAOJ0Bc/J79 +W+xSMWaR+Cm8n5Ttfe+we/8UfBSOJCBjum1J3WL+r6hegSgCWoz88hZt2LLn +90I0AWafR38t+v+mNAMB "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.776442498639729, 1.273140817630591}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.7764424986397308}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10539,21 +11313,20 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, - 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.776442498639729, 1.273140817630591}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.7764424986397308}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10567,105 +11340,104 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk0VesbB3ARGYvckKkIhURm5XqeMmVMInOGc842JOqQUNFEk0TDTfcq -kgoZkiTykyKJUxTNqW2sZJ6rc/J7/bHXXp/1rP3d3/d913pVgiJdWfx8fHzf -yDP33v1izcqK1hcWf2Lzgtx0eWAxlGsUZFUI8cfcjm4lprOMz6tZVUOjRsh3 -F2IX5nMhcYMncG5DT7ojcWlsYp2gFQdk/JsO2BCfaJCrTSx4CS9yFIssiCtb -d1/h6r+GJk7HMiPi/g9N++MevIN4M6k3msTyvSt8piw/QX1nVYsiscPwfrMo -zhfo9v4ivpC4htsvFlvQCclvjpzmreHBm0Oy++5FdMNt1eItP4iHhKz6J/R7 -oSmf6fWWWChll5fBdB+cZxfnPiJWlrrcuPvBN5Bcfs6ggNhZYerGkOUA5D52 -VowhprJVZXSEh0BTzDTGizhRfXPSDs4wqHyhpdcTv5NtXxtdMAquyZnyP3V4 -wPQOCz2XMgYOqQ1HXhOPZPJdvRMxDlqnPuvdJhZW1ZEc1Z+E84ckPAKIzzPr -bCWXTIFoGrYaES+/6ZWoOz0F8v+7dFqE2HR18tDOBzNwdjOv/dZqHoQYf+H0 -W3JBOYKR8VGbBxOxe+aLavDgis1lw2vEBx+ImWsK/wGthpNLQokz0PRWMGcW -gkXarg9rkX7XG63YBfPQszae/5smDwoaztGHFPgx83ZJw1Xika/b96en8OOF -PMdWL+L9WpNltyMEMDpA7W79KtK3RGXFsL4grv3X8FHSSh58aB2o+XNNEH8b -nSlbS7x8rMJ74RIhZA+uHvhIehUaOp/VmRZCl6ICPW3i+sr4eeEPhDFIYrlo -uRoPJuvavnyzFMdUzUjFGBUeLHYUl9xXI46cYQMx3nIe6LVboYSZBCrP8548 -RBzWU569ds1C/Bp+oTppGQ928XP0/haXxKsGxxT3KPGgV7V4NGlKCkeHx13H -5cj+UE0iLQaL8USku5Q3Mf+tPhW53YuRW5j7okaW9DVY5lrwYzFGjInZHpbh -gbdl2p0XtDQOPV9pPCrNgxYGO0q2eQn6aZ2wi1zIg883U08FCMvg3/0MmXsS -PBj4UXAt31oGc14f6/slzgPR6O629bUyGDLZkZ4gxgOro26GAeWy+Etkq1KE -MA+qco0n87KWYkkH23loHg9ye3/FrItWwrxz8/ftGefCJvdjn6OKlLCj89Lr -02NcGKiXtinqU8KxDfYJuaNcMMxdvWS5lzIWq9o84AxzoT5oe5mgxTJcU9Ey -IDzAhbFheu+3I8txrZ1enF4PF6R3Wt0tc1LFxXoVhRZtXOjLFQ1xCVPFXH+l -PSqvuHD/U6vCYLIqshbN/sP/kgu+jn5HNGpV0bfoybeHL7iQqx3jekl/BSqM -sFs0msj/+2+OJMiq4eujOQI3arngFiymY9+pjnZyvpPhhVyAGHd9D546tord -9Fa9xQWtpCwT5lIN/GzUZvwmnwt81ww2JmzRQKxNdje7yYWizz4edx5p4H9y -caaDV7kgtK3wkHzOShR7Oj0ldpH0s3J60x+kiR49owdXHeSCguqZxFM9qzG9 -0v3wjBMXqk9OaP7k18ErHoPa2o6k/7hXO6Wig8VOFtq+9ly4Uq+muXG7Dk5s -rNeptOGCanDVq5m3OiiYcdTdH0i/wl51qnkNLin6t8lXjwtKCsrUci89FFrx -zzoVKS6svh4t/hv0MVTOUvvn899wla3mUs4xQquEvWELN/yG1hgwOXrdDN0U -oVnh/C9Q2f7a2S/8b6ytLdL9+/1PYM3eK1aKQzTs7i6sU/4Jsj/uL5AN2ojG -0lsuZdjPQLSB+aezWlb4y661VDphGoIGuY3S/dboXDHJlLwzBUUboxZktdii -9liN+ta2ScidCHtUeN4OXUoDLjvPn4SZDXLP6xMd0N/aquedxgR08AmMdgY6 -oUZep4ua6zhEKEamHVqxGa0/lSWuSx+D4tDG2gtJLlhT1jkl+HQU4seXTmuH -bsEDi/4TzJUahUl7m21P/V2xPVCJVeE+AmY+6Rt6t2xF3/yXD/Mdh+HV0sth -9QZuCD2RFUoyQyB/40h13ip3XHM6xa3u7QDcp7UcnSW2YUBd5qLihz9AuX0k -OGZwG+ZUJR8cr+4HgwvphddoD7RI8q/JKf8Ol+ePrzlb54k3P/zSqWv5Bvc2 -6H5IqvTC2FTPC65fv0KGyUkpboE3bhw6HseQ/gotH68nG6T4IPues8h1nz4o -d8pU23XQF+vTQncM5vTC6M6tfBFMP+xxVxROFeiFSRvNkCHL7Sj3ZGSBQFQP -5A2+n4ky9kf87Fd5q6sbPK9eZ/iJB+Cd6ANqhsHdUHbHwV/gWAAmqsVXCwx2 -gZnCq58nfgagVrhgSGBSF6yggz+8DA3EGQlRFy3NLugR27E5szsQIz6vFjBp -6YTWVGeGrXsQzr+abuJ9tBPOx2aJ7WkNwjvPnug+Nu+E6prZnww7BhpcmFr9 -dJaGtY8MTVc6MNAdgssm/tBwoy40pt+RgZL//ilXJU5vbBvb5cLAkZAQ3YNc -GqhXN38c8GBg4I7/RvEnDVJ9mzsussj8v7U334+RuUR2bfMhBlqw/GKC+2hY -5IvHDKoYyF9qWjn6goblfz1tUaxmoFW7S9UaYj2Ok5xQDQPfF8TZhT+nwdXc -J//dIwaeV38o9b2ZhvOKMc0HnjGQkx+86XsjDfIdtxY1vmPgXvkGnF9Hg9p2 -2QzfaQYeF7s/ca2CBrOAobwkQyZ2mZRbH8sh67k0EuVszMTx25Wjo1dp+Ktt -zELWlImx+2Jl/IiHrKfb89Yz8bv972eG2TS5b/jmcTYycXv6+Nvvl2lYOC3l -tXgLE5O4Fclhl2joOW0kkrWTiZlLznx/kkbDlqcm7cGRTOwfs7oExDV867L0 -djPx8Zq9tZVnaLgUZWH0OJqJWnrae0pSaXD2sg3s3cfEMW1OTHYKDZVqXpXa -J5nIaeh+lXGchtQH+0Pv32CiRk9+SddBGnbqXzSLzWOi2G+3CzuJHfNLRUwL -mLharH5gJpEG0Yt9+RVFTBS68GJEkjiJ7dJ/7y4TFcOrHG0O0LBfU21H+WMm -mgvpOjXE0RB2sTn8zmcmrlugZa4QRYPdwj5zNs1EWuCqw102DauS+CT0u5iY -EjLU7ETcxzYqKu1lYsjdEeXDu2kIdM4avD3ARAHhNomRSBo8BaMiSn4xUVlQ -XaQznAbbKPldhTIszHhnsUk2mIbHWcn2Z+VYGDNDd9yjaDDnjKnFyrNwm0Dg -9DZiPfXm95bKLHzj8qk8g0XD0rf7LD+qszB464C/KpOGH+s6ZESNWOh4ZCbQ -OZCGM/zZ/wveykJ+SfkBYV+yfl3xDCd3Fgr7Rw/f96HhqE8s28CDhZ+MOHtC -iWPvuqyc9WahiqaPGMeb9Kfmpf8TxCLnYet10YsGg6Yg5pPdLBQ15t9n40HD -23R1sRVpLOTWxRUJbaWhGCRCvqWzMKejZmOzK8kfnKgvOsfCqpIouzRifbv6 -BNOLLOxapnhLgTiVjzHmdIWFD7yma0y20GATmf0+tpCFus5h6kmbaVBSOm5s -UczCsA2tLS7EE02R5wRus1BmQcgPReIcDXBKLWOh2zXlmHvONPA6OmqvVZG+ -otbvh5xouOuokPeikYXVhXvboh1pOPWLX/B8Ewu9hX3O2BIH5fUHenFYeEF7 -XbU8seT8KoWeFhaOeX4JeexAQ/gDzzM/37CweCpSQpZ4hdY/MWq9LIw1WXro -tR0Nv94eaPvex0JjbTeHEuLWJJZeyTcWnrnrm3yCOKHTsN9sgKxXguMMxB8y -2vw2j7Mwbv2nVbc30XB2gZR1/DwKM9dnzd6wpaF6rMMnWoBCt6BZ86PEXzsK -2BGCFJ48XisURGx+1yo7SITCAX5vWEbcFxD7216KwsO5l6yybUh/R+vF1tIU -agWX9hwiXm+yWBOWUOhXLy3FJE6TKNxmsJTCHv7ihVpz86ovpQoqFGasGs+s -tib30fXCxiUrKCzll8/KIU5Li/uySJ3CbYqxOieI+yhpifmaFNbavhzymJtL -24YM6FHIrKwW4FrRUPVHOrFPn0KbPUHBfcS93+kLtCGFe5fperwkXlcbX9du -SiE/z+hjHnFPeLHy/5BCjfvPorcTL/TcZ1SxkUKpnTFmTsRmlpscS60oTGs0 -P2lOnLq0K+76JrL+cslWReL780vSsuwpvHJM4YkEcffwvpuXHCmMTlxnM2tJ -g2nDktenXSjM6ysZ6CYOKu36ccyVwokpgcVviU9nlvAfdqPQOjK4rom4i22n -F+NJYby/Z1MZscR2Gdtd3sTvu5flz+XZdfuF+VJ442H8vKy575cdOLU9gEIH -76chKcT3Re1zPIMoXMTeN3RkLm9SptKVSSG72oRv/1xeZ3eLI0X6nfh9OXou -j3O7zyaEQmOjhqc75/pVHOBhGIXDKy8eCJ7Lz7H/a304hSJvdj4MnMs/Latt -FEH2r9butO9cfmzPBt1dFKawtb56EIszSz012eR/yYuebyU22ZwQuSKanGf2 -jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc -+bu0SWw/hdXtDxNs5/K/JnQKJlB4L7Cy0IbY+JXDzGwihXdellNz/j8009f0 - +1:eJwV1Hk8Fd8bB3BZSpYi2SN7SbfsW8t5QonsRfa4y4SKQlJEJalvUbRpVaHs +siZLv0SlskVFyu7q3mt3B1HyO/6Y17zer3PmM88588xRpgY5MXh5eHhY+Fq8 +H2vctO5Fc+P2TFPP8QftLLR9NM2AapGDVlsnyj7E7kkxvKFmUYlSMyk3F+1A +b1gqovcWlbnp0FKwC8KjawQs6lGZ+/2YR9iX3sm8js76jCRyA6cfY79sPvbw +r+5XVO+YUZGKzen4GHmyoh3dsrJqTceWY6p6TJv/RIU3HbdlYO8ZizQJqe9G +LkbVs1nYr/5yhMOzetH05mTBPOxvZ6UjSgP7kdrZb/4F2KNLLTikLhOVboxU +KMFeeuWom97MIIrRv6T6EltR/EHdsQoW+nh3PqIK205++umo+TBqubxG7T02 +8UhFiiI4im7Lvw+px45Wt489VD+G5iW+S7Zgt0t/0QnNmkB+1nqOXdh09wD/ +61cmUWtCBGcAe/w+z+PCQC66s1vr2xC2oApFbEJ3Cs1sqE6bw75Br7EUk5xG +zh7P4ni/s5DSM7fozTPTKEJsqlII23jjhdEjFb9Rs9x7xTXYfobd9Rzzv0hc +d9f/zLDJ8OP8Qhrz6LuQv4Et9pkK4a2agv/Q3avc+f3YyWCcfbB+AW0tQhcC +senpdRbBWUvAXrgkJAU76931nrPyvJDOljydgz3+yzsy8QovEOld7S+xIzdM +FT0P5AO+z8/ivmLfyFdWHdMVANm3sm/EOlioo3n41b9UAWC6lXsrYStNvnBf +IbkUBAVrbLWxc/TtkigzS+HQZxFVR+zal6eWHK4QhDbBmKxb2FM1rd0scxHY +v5KXovODhVbZiIhFvBKBx6YLhZbY2l8sQNREFKIC2+54YwcMlDzS2bQCGjVk +/4vHPspbr71NRAymGP3kGDZTJW8idlocRDc+4r77ifeH+Li8SW8VeFbti+vH +5s0eVJY5tgoarZkRPJ24Xr21TllDq6Dpwd24Ldju5tcKG3skIFPIVbMUu4kW +HCL9SRLOtVJuVXWxUNezhMs+glLgezbLqAd7eCgrNXOnFKxz5Dfl62YhodD+ +1i2vpcDsqb2vNbbF+X36PiXSEHvA0rQTuzzNcCojRRZKAhokJXtZKI05F2Ya +qgBeB5tCGvpZaLdzXFdIrgLYndssOYs9XCuxK3dQAWKuCgirD7CQftpGSSU3 +RdjWIkGexq6lehcJbF8Lj40qKvSYLDQ51nOCFaMEBxoslfMHWUjiiEVxka0K +6GiM7WSyWWgwTcjPIUAFQooMw+Q5LFT2s1l+5IIKuLKn5xyxPW28YjReq8CB +7N4lr7HTtMKc7uiqQoYoTeDREH4/59l4lLQaDGVr9geNsNC+g8IU6151eJJ1 +aM5ugoVQmLPu/nl1qHDiCU3A3hCbYkSX1QDqobrtjdg8qXpmUY4a8NaK+95u +koVyuzz2F1ZrwAGj0oy9XPx/uuSclXuyDuqq+dMOT+H6LGy/caiaEH6ddu7H +LAul7r39YyZKEwL2Jamoz7FQArW3h/+eJvi7z0gEYdPPHB9SbNWEQwl0Dt8f +FhKvfMCz13wDhPI2MnT+4v7RG91QoaoFwnbjt+79YyF5lavRlwc2gtwbwf4c +Pjaq/I/UnOWlQOXHovfL+NnIk+v2hVCmwMX2CWEa9sNaNU0zbwrs8l9XJCfA +RioHy1t+t1Ggfk1EZMJSNtqQw1QnPm0CXv2OubjlbKQgr0gouWlDxbzMszcr +2WhjeqjIH6QLt5mj1S4KbESlx0xR7HTBlsrtrsZOVk3q8vHUhat7TB0pimzE +9yT/+btwXbhz9ipFYC0bdTzk7Esq0AXz7a4NZUpsdCnZ54Gmqh4wpfwyN6ux +0eBlm02uS/WhYuhOq4cWGz0OVnMoqTcAdJo1lmvKRs1hyOh8ugn0XJKac/Nh +I2Xvr3Zeh7eB4shzN8vLbMRYKM1TOAngeq+XkVLGRtJDZcukqWZAys8yro2x +Uaje1p9JGywgc/3aELP1HEQd+VsnwdkJX3dd2t9H56Bcs5BlKU2WcK7uzArL +HA5KIwOqc25YwVYend1rSQ76vUOmoTZ6D/yeL3ROtRxCnTx8E72+tqCxpvIa +pAyhwDVB186q2gMzqESeOTWE8vzrXt+MdYBh5W4NZbdhdIorO6Pl7wgSSVlV +CeXDaMp6l8v7A05gGfhnbJPmCDLxSNzBdNwLAV13tQrujqAW2QcBtXr7YGZk +pW0FPsflnsZUZqx3Boeui/E7z4+isp4NNnaiLpBfT+ZZ/RlFil/GD4aNuMCg +G+OIZMgY0ruZmJPasx8+bH3JXft7DD3g525KqnGFWo+kH95bxlHpjs0dsS/d +4F5xiMHKs+Mo2eg/8b9Z7uB3/1aT+btx1PQj/YLeFQ+QvsGmmS6bQCW299WO +nvGEr5GWCh9sJ9DEkb08gXQvaHC19fG/OoGmdmn6jZp7w1ii4/LNTRMoY+T7 +7xDDA3AvPI/HQ2ISuT5Op3mJ+EBzmo7TPcdJVFS45wBfnA+IWqWKal6fRCby +LbOXZn1AK1v4mXLjJFLtOdjx2d8Xlvi05x8V4KIB4UP29/t9ocqcf3zjdi5q +TrCjWTpTYVTs4q2nQVx0IzxF+HgzFWLn8zcJPOaiylcLszQrGnQa77tdXc9F +Kz0hTq+cBpHrRyjT41yktPp905pKGvg6LScvTnCRdr2tzNJXNBirqfKRn+Qi +p60eme3VNLhXl0hBXJy/JuzT6Q808BR0Szo3xUVyndkr69ppEPNLOfT3LBep +eUsne87Q4E6cxGwKL4lMfEYzYvXp8NiX1/D7KhI9vTMeYmdIB8pP5SobCRKt +bp3cLm1Mh1zlxIn/YY/unPmSsYUOiV4K1PTVJD6/eJbUm9EhWU7V57AUiVbM +iLutcqTDdEF5NUeWRAPxBstTjtDhdqBgToYSiRIqIv3LntIhiC+vTp1CoiO6 +t03CM+gQ+lTB/hy2TWbBcuMsOiiUHz/XhS10ezDzRS6e35o9dnMTiWKDHTil +xXQQTvjYx6NNokhNtUMlb+jQOvBJ6b0uiQJufzpc2EUHmSUj6auNSWS1YnBr +cA8d/sy7FBDY62N5RHX76DDhoepXhj0YbJBbwKSDFq2kzd2ERL52KSPPh+kw +qH2m6p4piVwFQgLz5+jQcqPvjug2ElmGyB3NkWLAePNrq4IdJHqTcsE6SYYB +eW2RZf+wt9ZPqoXLMSC6YNmbPWYk0lb/9N1ckQFXCl3SB7Bl2yLMf6gz4In5 +iWxxCxINmXZKCRkwYE1nX5brLhJd5X1UdXAvA+Rd3qjctcbr3yySbOvMgOPr +a1s7sM97hAfr7WeAZLacovweEoUXO6xbcGdATMvdqLvYvsSSxFtUBvxseHXk +hg2J9D5S6W+PYZfG/gm1I1Fborqw6jUGiKwTvMZyJFEeEvVjJTKg/0v7gIwT +zh8ha3OvM8DRz6B7N7auVW2U8W0GFG8Jq32GncBDm7R9iNfv4Ozgu5dEu4Ie +fQ/PYcDD8cyDNftIpKBw0XB7HgMEo4VXjWKTH4Ou8z1nQHxDgq+MM4meaCDb +hCIG2A33jh3Cnu/sfJ1azoCTP1Z+WOFComIb+YzGOga0yNL8zPeT6PIcr8CN +jwwouC9J9cOmZnB83eoZYNx9hSceW4y/XH6giQGiusVaX7EPV7henf3GAKsu +J1NfVxKpbrgVpsZkwInDVH0/NxLNtZ1uZQ8ywENr9kQcdnMsQzufxQCxYX6f +p9hRvfock2EGLDj7K/RjdyS3etlz8XrG2Dau7iRKWia+89QSAlZuk47Q8SBR +5WSnRygfASXXzaZtsX91ZgUHChBgXLxswR97a7HFI+pyAqq/W798hD3oE/7H +WpyA4N+azYKeuH6bnat2ShDQaJv8Qhl7i9EqTSRJgMLdkxtNsa+J5rjoyRKQ +uiXmlf/ieHl3gbwyAV16pjE12ER6Tp2kKgG/0Puv7Yvzr53sXqlOwHB2eskI +9iAhIcqvSQCHsFSQ8sLjEpZ+w9oEWLuUXfbFLv8nET2oS0Bxpf/uEGwmu+dm +jz4B/loOSeexTV+fqvliTIBTbH5DOvbA4TzFKiCgIIre14e9wjXC4IUZAX2/ +/AUnsE3Md9sUWBDQZh5f8Q87QbbvZPpuAo59V/0g402iMv78aynWBJywTlJV +x+4fi3h2x4YAAQVJYR1s43eSX+MdCAjaZn/WEpta0DcU50TAgUO8Yk7Y8ffz +ec/tI2CmvFrLE7sv2Eo7zJUA6kEvoSBsUW8py6PuBCy3NWw4sZhn1e8V4Im/ +F7Fa4czi82tPX/b2IUBlYwft6mI9QtZPXKkE9Ar9z/3WYt6U1EsnOgEhZ1K7 +7i/m9fY32RAERLpfGHuymFf/fHCXHwFVEUR8xmJ9L07PQwABa3+aleUu5j+x +Xr3lMAHpF+WOFi7mx0trGQQScDR1uLh0MT98YMfmo7gfaGUXyrFF6AWumsEE +LEieZlZhG9lHBamGEpArb/r59WK+6Z4LCmG4X4ZGrWqwr6jLPJAOJ0Bc/J79 +W+xSMWaR+Cm8n5Ttfe+we/8UfBSOJCBjum1J3WL+r6hegSgCWoz88hZt2LLn +90I0AWafR38t+v+mNAMB "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "PlotRange" -> {{0, 180}, {0.776442498639729, 1.273140817630591}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5082122808512888}, + "AxesOrigin" -> {0, 0.7764424986397308}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10675,7 +11447,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5082122808512888}, + AxesOrigin->{0, 0.7764424986397308}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10703,7 +11476,8 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.776442498639729, 1.273140817630591}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10711,9 +11485,9 @@ jIXLXP46h2SlGApd2b3mTsQp6nKXZWMpzL7/usGe+J5kb5lUPIXfzJ992kTc Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913242457281837`*^9}, + CellChangeTimes->{3.9913242457281837`*^9, 3.993827694145596*^9}, CellLabel-> - "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] + "Out[127]=",ExpressionUUID->"55e0a170-a158-45ea-a002-c167aec2e635"] }, Open ]], Cell[CellGroupData[{ @@ -10776,158 +11550,161 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9917997871187477`*^9, - 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ -d12d9d52c36b"], + CellChangeTimes->{{3.9917997871187477`*^9, 3.991799792469698*^9}}, + CellLabel-> + "In[128]:=",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 112, - 45, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246104725*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.862592414322355`*^-274\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 57, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993827694304721*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +In[128]:=",ExpressionUUID->"14cdeb27-3423-4ccc-9d29-349836a8ab11"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.877419838456823`*^-281\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.363385153241874`*^-286\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 128, + 58, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993827694311721*^9}, + CellLabel-> + "During evaluation of \ +In[128]:=",ExpressionUUID->"f7e05102-d738-4fa3-bddb-4d12b5479c52"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.327383247099088`*^-298\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 112, 46, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461217346`*^9}, + 128, 59, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993827694319477*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.990320554242227`*^-292\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 112, 47, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913242461427383`*^9}, - CellLabel-> - "During evaluation of \ -In[112]:=",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +In[128]:=",ExpressionUUID->"04ba4eb1-972c-422c-a4a1-f9cb98129bac"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 112, 48, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991324246159645*^9}, +during this calculation.\"", 2, 128, 60, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991324246104725*^9, 3.993827694327895*^9}, CellLabel-> "During evaluation of \ -In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +In[128]:=",ExpressionUUID->"6f76f299-8700-42fd-8ede-b63130bfe153"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nlcTlsXB/CuSKSiokHj85ynWRNKw2MtCRWJVGQqkuZB0USaNEozEkWD +ND2HupQMlQpxFY0a3LpF0UCl0ZDe/f51Pt8/zv6cffZev7XkjntaOCzi4uLi ++YuL6//PmZ5XddTF3M2Cc5HLA5T0NrdmigVs6QgD123PpnMXRAFXvz0u1pEM +jg9l8zwWFMB3T+F77o5sCHrJFbtrQQdWfRNN/vG+FN7mDBTKLOyA3ie7Pafe +18CtQ7Nz1/7sh+3U8L8T75tBdcZeI/23I/x4r3N5/H0/WLLl5fOn/KB2653c +puxJGNossr6lKRokeysGj6vOQ/YMQ913WzKIuNkWLt3KjZ+Salyk2q5Csub2 +x7uteNEtojqQSsuAzjSN6omV/Oh9Z1t3p2UWXMwNfrtIfBXCuG5SQ18OiKZ+ +jEnJEMbvnV8+DCrlQZSlyebmmdV47bbRIArng49ulu2rMDHUlKz0OTZQAKa3 +BKZ2xolhD3fE68KRAmAsPRfdeFkMtYKvmo1PFMC7VuuSlnwx3LU6s93zTwGo +ea3g7mkUQ3+zo4MoWghf8vzyvkuIo+OCTJKycSEcFtn9de3f4niEsvkidqcQ +jMZ+Bnp8lECNxSMWO22KIMA4VfnZqASWp1blhB4tAjprXZfwjAQKz+qp37cv +AjFLO90K3rU4asac5vcogtGHz2e51dai0Ze2jalhRZASlnj6mv9abOZ3tx4p +LIL+1fIedfyS6FfhkVkzVwSinlVSoqKS6G/S0h48XwS76g80OMtKou0ux626 +i4qhLPCiquB6STyXFvXwFl8xxPaOD9sckMRrgpUChtLFoFXw2HEsm/i+2+5G +w2IINdh7TGKTFN5+icdXxBSD8dHM7zqGUtjaPxBefKkYBEJGwq12SeH6jx1K +xsnFcKM2Ii/RTgo3hnkv8r5eDA9NH43wxEjhe6beQAKnGMYPMH0nO6XQmkfA +depdMRw9Mx375qw09iUfCLcT4QDrqqHkcIQ05u5XUj4lxiH7T+AsTZTG5tE6 +qyBJDgT+VnpnmCuNrase6kdTHLgcfnR1xRtpdOwx2+a0gQNvkl7evC0lg1Xr +/nPau48DevS1++erZLBh5Z4f9Zc4YPS+cf5bvQyWqC8kCCRxYDfX4h22zTLY +pqFptCeVA/YWHp0wIIN8w11L6tM5sP2sXHDIElmc782cjL7DAS+ZmZwtKrL4 +aZVz3p5qDtQ53vxa6yuLx0K/L8x944DJb12hc2dlkatYoLRmggONia3aG0Jk +UWM9KyZ6igOdFctCcmNkUc/r5B3enxz4xndaKOKGLJ6edy7uWkyD2D1jne01 +siiamyL5QpwGt7mJkHp+OQzHN71PkAa9UyfXDArJYePSAmBvpYF3uKuIW0wO +JyUPUxXbaLjdXdu+mSGHVIPe+RxTGnoqL6s+0JbD3ldvQg0taTCP0O3IspVD +7a6d+oUnaZD+w3GvOiGHayIusD460TDqy+D+11kOF2Y+3hB1pSHaiU9N7LQc +KrWZb/TxpKF657/h8dFy2NeWJTntR4OWUKj62RI5/D1dvZ2KpoHr4nRdWpkc +3n6kbLwmloZGbpeDZY/lcHRc5D/uOBpcpy0iJp7LYfmTT21NCTTkdlDdjl1y +qOjHNbLpKg1rbtZHWnIzcPLSoOmG2zR8EmVLevMy8OlAOdd/eTSUJpaUJPAz +MKHDYX9UPtlPWPqH16IMzNuxari+iHyvg5vWFlUG6ihNlIuW0vBDZWXPOisG +1sYeSfn0lIaZDInQ9QfJei6OikZVNEwJsihdWwa2/PUy6WY1Dd8mdV2MnBl4 +Zdjqk0ktDf2P7WcOBjHwsWrsDbd6GnrXeVyzC2PgAxHhL4WvaPhw09/gZBQD +N764zT/wmob28Ethp5IYuEe7ZWhXAw2vd5YLRN9mYPS7oZ/DTTS8fPqs5FIh +A6ddrFV4W2ioU39jmXKXgXTlQ325VhoqhfvSMysYWDp2YmF7O9lv93KFBw0M +zJwpVzjWRUO661Hon2Zg+MhMwbs+Gq7+69T/+ScDZcK3aBf305Bq7hPxdYGB +n97N0+EfaYhfH/3P3DImak0vdZYfoCHsV8l+QWkm5sTprNH/QkOw+5OfIkwm +dqn0Ss4Qn+t9kSGhyERmfeQazhANvrXdH1laTDQuUx0UGCHnd3GJl8F2Jopq +2glkf6XBaV5Q2HAnE2Wex9cZfKPhpKdE2Y49TDz1Lfh0C7HdPvXfFgeZaJYt +8XxqjIYjz3VvHrBl4peg847B4zQc1DEyPHqCib8TxJfyTNBgudYm2tmDiSKV +3luWfqdh7yV7FU8fJorHTPwbSrx7wb3xtD8Tb31WPDtHbPwxTCQkjIkS7jsf +d07SYFBUfOvKFSbKj+11dZumoVu26Oa260xc7cJUekYceKUgc+omE/NiZXyE +ZmgoD827YVHAxOGbsXQhsfVs7vW/aCbWnT2dNUE85ZaTfq+UiX2vzzM3zpL7 +fuBWmsATJl6bHn9fQtzUkHn1aTUT7x/u4Bsh9tqaccXtORM9zXqbZOdoEKy4 +fnntaybq/XmhvI+YVktPfd3IROtNe0XDiM1y01ICWpiYuh/TOMSj4leTFTuY ++N1kP91GHJtwOen9ByZuSbA5+JNYaUlqYmQfE7s38WWs/UFDfWBywsZBJm4Y +0vDTJT45nhj/aZicb0vC0D7iJScTLqWMkfUef51yIc7tvhRnOMXEFTMr088T +b90bd3Fijon3HKo744n7X8TG3ppnIt/52vvXiUMNYmLMF1F4Yku/ym1i2dKo +6D88FDbjABQRVylERnH4KPzn+uUJDvHRjAuRh1dSOLTwZMv//VsoPIJvNYXe ++SzNAuLr0aEXHolTKHs0vTqLWO9PcLizNIV3fQfHrxB3+JwPE2NSGN/aVhNN +7Dd0LvSlAoVJgxt0/IjX2J4N8VWlMPzOu93HiR+0BgSzNCnsz/Bdbkpsaep/ +vnUjhb7dUy5qxJNVvkHhehQunhc/JUicvPHMOS0g36f0QOor+Z+aRT5n+7ZS +2Cp85dRL4ney3oGJxhTunYlzzyTmX+Hp/20vhV8MuY4ZEheHuvtlWFOY3Sxz +UJDYdNbVd9chCi/cvv6ng5x/dL/T6cITFLoaTO06TqxwwNHHxpnCQEf/OTni +Fw0O3rweFArn3LHoIfdrccVxr5N+FI4OHlpjRpyjdsxz9TkK7ePiQhfIfTXM +tfWoC6FQ+lxVJk0cnHDYjRFL4QatmO+LiKWXHHJtiqewuPqtcv4UDU8CbVxC +Uij8T9FfzJT4p4O1U88NCm/W7RO9QOrjWrel46Uscl69esqSxJv27jtpkEeh +Vc7I9D1ST74Ge06k36WQJ0n08TtSjxNCpnbWNRTauv4tMkTqt8ON8c7lJYWL +FD/3HCKufvETgt9QuFxArP01qffEwCKZ/HYKa2sHzDNIPmj0r+j9MUyhi15k +ogjJDzGDgd0C4xR2N072OQ2TfnHlaSVjmsIiFRvnCpI3b008MncuUDjrflna +nOSRR8nbIxnCLGxurzY0I/llzZffUCJG/KDVPvwTDZsdQtgvpFjYJ8hT94Dk +Hb+4ptSYAgvVb9htFyR5WByS/AENWLjM8YzP5R4ahs2tDn06wcJO2c1nxki+ +Nhes+2fOmYXbA9VEhttoeMTNo8/vycLq1MVL+kgex5SXSWgHsPDjZuW+2mYa +FGXEuqIusdDw0GzukUYaHL91HVApY+FyvQDn/jqST8Z/18NjFrYtCinPJv1D +O/viJstqFh7/q9XFtoYGHmsDsaDXLNRwsuBpJP0n72nG+8YeFpb82rM+5BHp +d3F21t5L5THje8A53btk/8OqDI0V8vjd7ctwJ4eG2R0/vn5dKY9jzPbtfsU0 +LOdOjnCWkMcXfub/5BeQ/x1Qe99unTy2W5YyP+fQEOQgL2y+Tx4f4v5fTf/v +r5tH36rclMcnX1i5jkE03Lr+8PpQjjzOBlS9unOW5MuPC4538uVxciTjz6cA +kqf3pRYYpfJoNHs23dqXBntlczWJ5/IY0CxUsYbMA/fWlMbxjshj5e64CD47 +GkzG/EwGtBWwUUmJ/y3QIKkpHclroIDx7kq/I9ikv3rX1ahsUcA9it23dPVJ +v5pZaeC9UwGLh5avuqpN5pX5ArUFWwVs3vX4vvI6GrxXfBAWj1HANL+6nWVk +HkpXwp5d3QrYoGnR5zRO5kN7Xp/7wYrYsGxhfTyZ375lGj2tuqCIU2VJtnFk +vhvrDFn6T4wi5tZZPIqK58B38x/X+1IUUdFDjts3mgOz+sN1AvmKeLfTZLnm +OQ4sEnmzxvmdIrpyO2kx7DkgXpfwSEpOCWe/NAn/UiPzICW6KKpGCQ2PB1Od +lcUg1CAff29MGXkXusqmWopAMvruHm1tVZz7ze9kcb8Q0lR0Vwo7rkOhgdwU +xfgCeC2xZeNkkhrORcuklxzMBz3JmkT1dnVMa5LZJDWfBwLc2aePhWngB+Pn +q24U3wbpUBkDG3lN3NF298JD3VxYxjpcZvFSEwvUn1QufpMNamzxu35HtHAN ++7fK9oAs8O4RqjXlWo+jfl0JsitvwdhknJVJ2np8GNSiEpSQATvUX6SbrNuA +H4o0gktkr0PlpP6v2cYNyDf7kVmZlgYeqlpdTQ4bcZanoz/a5gqwv51otVmm +jduO7jxduiIVtlFiZvzZ2vjAyURz07JkUAyJ9a/R0cHcizzlgpqJoOygW8Xq +0kHlEr8aCU4cOFQ6Xbh/ahMWuo63dAbFQNWt1hMTq3XR6q+2f0etImEqf2FW +vVwXsztfPZ+KDAd7VtGydDM9HAyyMJ5TCIUJ5RTt0nE99D0SNfvsbhA8zP3V +Nx2tj+EOiiPYEgAHjZioL22ABZ+fPWvx8oW17lEVatUGmPNUgidc3QdWL3cr +MdvPxsXJk+4Y5gW5W4MCx23YGLrV14rPzwu0guK3phxmo/lJ/dQPrl6we/xe +W8cxNv7Nv5c/2coLItunf9i7sZGrTCjPWMkL5rKDDQND2aikNO5al+MJXfop +LXlFbHRbrvDD2dwDnM7k3jCh2XhH9Hn5RT0PmKEfOIzeI+8vkQirYHmAEKNj +VrOMjW+z/mbp/naHnbxSkk+r2agqbb22vsAdnrTmnWhpY2NIy9B+2aXuYCrw +cJ1vBxsVewXOcE26QceOVzNi3WzUSbAzG+1xg6lHI9FH/2Njvdn5tZ/L3GBd +lgZnaJis98s/y8nRDZ50bfGN+8rGM6xWvrx9bmAqsg/Ux9nY+Nl62Ri4wcmo +M02np9loJN1TkCNG1quOTBedY6N++5Ch4BI3CPt51f7RTzYa3lM5FDnhCis3 +FKgemWejP6PgK2+PK2S6P5peWGAj2jlNX3ntCv8DX1G2GQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10941,117 +11718,116 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV1nlcTlsXB/CuSKSiokHj85ynWRNKw2MtCRWJVGQqkuZB0USaNEozEkWD +ND2HupQMlQpxFY0a3LpF0UCl0ZDe/f51Pt8/zv6cffZev7XkjntaOCzi4uLi ++YuL6//PmZ5XddTF3M2Cc5HLA5T0NrdmigVs6QgD123PpnMXRAFXvz0u1pEM +jg9l8zwWFMB3T+F77o5sCHrJFbtrQQdWfRNN/vG+FN7mDBTKLOyA3ie7Pafe +18CtQ7Nz1/7sh+3U8L8T75tBdcZeI/23I/x4r3N5/H0/WLLl5fOn/KB2653c +puxJGNossr6lKRokeysGj6vOQ/YMQ913WzKIuNkWLt3KjZ+Salyk2q5Csub2 +x7uteNEtojqQSsuAzjSN6omV/Oh9Z1t3p2UWXMwNfrtIfBXCuG5SQ18OiKZ+ +jEnJEMbvnV8+DCrlQZSlyebmmdV47bbRIArng49ulu2rMDHUlKz0OTZQAKa3 +BKZ2xolhD3fE68KRAmAsPRfdeFkMtYKvmo1PFMC7VuuSlnwx3LU6s93zTwGo +ea3g7mkUQ3+zo4MoWghf8vzyvkuIo+OCTJKycSEcFtn9de3f4niEsvkidqcQ +jMZ+Bnp8lECNxSMWO22KIMA4VfnZqASWp1blhB4tAjprXZfwjAQKz+qp37cv +AjFLO90K3rU4asac5vcogtGHz2e51dai0Ze2jalhRZASlnj6mv9abOZ3tx4p +LIL+1fIedfyS6FfhkVkzVwSinlVSoqKS6G/S0h48XwS76g80OMtKou0ux626 +i4qhLPCiquB6STyXFvXwFl8xxPaOD9sckMRrgpUChtLFoFXw2HEsm/i+2+5G +w2IINdh7TGKTFN5+icdXxBSD8dHM7zqGUtjaPxBefKkYBEJGwq12SeH6jx1K +xsnFcKM2Ii/RTgo3hnkv8r5eDA9NH43wxEjhe6beQAKnGMYPMH0nO6XQmkfA +depdMRw9Mx375qw09iUfCLcT4QDrqqHkcIQ05u5XUj4lxiH7T+AsTZTG5tE6 +qyBJDgT+VnpnmCuNrase6kdTHLgcfnR1xRtpdOwx2+a0gQNvkl7evC0lg1Xr +/nPau48DevS1++erZLBh5Z4f9Zc4YPS+cf5bvQyWqC8kCCRxYDfX4h22zTLY +pqFptCeVA/YWHp0wIIN8w11L6tM5sP2sXHDIElmc782cjL7DAS+ZmZwtKrL4 +aZVz3p5qDtQ53vxa6yuLx0K/L8x944DJb12hc2dlkatYoLRmggONia3aG0Jk +UWM9KyZ6igOdFctCcmNkUc/r5B3enxz4xndaKOKGLJ6edy7uWkyD2D1jne01 +siiamyL5QpwGt7mJkHp+OQzHN71PkAa9UyfXDArJYePSAmBvpYF3uKuIW0wO +JyUPUxXbaLjdXdu+mSGHVIPe+RxTGnoqL6s+0JbD3ldvQg0taTCP0O3IspVD +7a6d+oUnaZD+w3GvOiGHayIusD460TDqy+D+11kOF2Y+3hB1pSHaiU9N7LQc +KrWZb/TxpKF657/h8dFy2NeWJTntR4OWUKj62RI5/D1dvZ2KpoHr4nRdWpkc +3n6kbLwmloZGbpeDZY/lcHRc5D/uOBpcpy0iJp7LYfmTT21NCTTkdlDdjl1y +qOjHNbLpKg1rbtZHWnIzcPLSoOmG2zR8EmVLevMy8OlAOdd/eTSUJpaUJPAz +MKHDYX9UPtlPWPqH16IMzNuxari+iHyvg5vWFlUG6ihNlIuW0vBDZWXPOisG +1sYeSfn0lIaZDInQ9QfJei6OikZVNEwJsihdWwa2/PUy6WY1Dd8mdV2MnBl4 +Zdjqk0ktDf2P7WcOBjHwsWrsDbd6GnrXeVyzC2PgAxHhL4WvaPhw09/gZBQD +N764zT/wmob28Ethp5IYuEe7ZWhXAw2vd5YLRN9mYPS7oZ/DTTS8fPqs5FIh +A6ddrFV4W2ioU39jmXKXgXTlQ325VhoqhfvSMysYWDp2YmF7O9lv93KFBw0M +zJwpVzjWRUO661Hon2Zg+MhMwbs+Gq7+69T/+ScDZcK3aBf305Bq7hPxdYGB +n97N0+EfaYhfH/3P3DImak0vdZYfoCHsV8l+QWkm5sTprNH/QkOw+5OfIkwm +dqn0Ss4Qn+t9kSGhyERmfeQazhANvrXdH1laTDQuUx0UGCHnd3GJl8F2Jopq +2glkf6XBaV5Q2HAnE2Wex9cZfKPhpKdE2Y49TDz1Lfh0C7HdPvXfFgeZaJYt +8XxqjIYjz3VvHrBl4peg847B4zQc1DEyPHqCib8TxJfyTNBgudYm2tmDiSKV +3luWfqdh7yV7FU8fJorHTPwbSrx7wb3xtD8Tb31WPDtHbPwxTCQkjIkS7jsf +d07SYFBUfOvKFSbKj+11dZumoVu26Oa260xc7cJUekYceKUgc+omE/NiZXyE +ZmgoD827YVHAxOGbsXQhsfVs7vW/aCbWnT2dNUE85ZaTfq+UiX2vzzM3zpL7 +fuBWmsATJl6bHn9fQtzUkHn1aTUT7x/u4Bsh9tqaccXtORM9zXqbZOdoEKy4 +fnntaybq/XmhvI+YVktPfd3IROtNe0XDiM1y01ICWpiYuh/TOMSj4leTFTuY ++N1kP91GHJtwOen9ByZuSbA5+JNYaUlqYmQfE7s38WWs/UFDfWBywsZBJm4Y +0vDTJT45nhj/aZicb0vC0D7iJScTLqWMkfUef51yIc7tvhRnOMXEFTMr088T +b90bd3Fijon3HKo744n7X8TG3ppnIt/52vvXiUMNYmLMF1F4Yku/ym1i2dKo +6D88FDbjABQRVylERnH4KPzn+uUJDvHRjAuRh1dSOLTwZMv//VsoPIJvNYXe ++SzNAuLr0aEXHolTKHs0vTqLWO9PcLizNIV3fQfHrxB3+JwPE2NSGN/aVhNN +7Dd0LvSlAoVJgxt0/IjX2J4N8VWlMPzOu93HiR+0BgSzNCnsz/Bdbkpsaep/ +vnUjhb7dUy5qxJNVvkHhehQunhc/JUicvPHMOS0g36f0QOor+Z+aRT5n+7ZS +2Cp85dRL4ney3oGJxhTunYlzzyTmX+Hp/20vhV8MuY4ZEheHuvtlWFOY3Sxz +UJDYdNbVd9chCi/cvv6ng5x/dL/T6cITFLoaTO06TqxwwNHHxpnCQEf/OTni +Fw0O3rweFArn3LHoIfdrccVxr5N+FI4OHlpjRpyjdsxz9TkK7ePiQhfIfTXM +tfWoC6FQ+lxVJk0cnHDYjRFL4QatmO+LiKWXHHJtiqewuPqtcv4UDU8CbVxC +Uij8T9FfzJT4p4O1U88NCm/W7RO9QOrjWrel46Uscl69esqSxJv27jtpkEeh +Vc7I9D1ST74Ge06k36WQJ0n08TtSjxNCpnbWNRTauv4tMkTqt8ON8c7lJYWL +FD/3HCKufvETgt9QuFxArP01qffEwCKZ/HYKa2sHzDNIPmj0r+j9MUyhi15k +ogjJDzGDgd0C4xR2N072OQ2TfnHlaSVjmsIiFRvnCpI3b008MncuUDjrflna +nOSRR8nbIxnCLGxurzY0I/llzZffUCJG/KDVPvwTDZsdQtgvpFjYJ8hT94Dk +Hb+4ptSYAgvVb9htFyR5WByS/AENWLjM8YzP5R4ahs2tDn06wcJO2c1nxki+ +Nhes+2fOmYXbA9VEhttoeMTNo8/vycLq1MVL+kgex5SXSWgHsPDjZuW+2mYa +FGXEuqIusdDw0GzukUYaHL91HVApY+FyvQDn/jqST8Z/18NjFrYtCinPJv1D +O/viJstqFh7/q9XFtoYGHmsDsaDXLNRwsuBpJP0n72nG+8YeFpb82rM+5BHp +d3F21t5L5THje8A53btk/8OqDI0V8vjd7ctwJ4eG2R0/vn5dKY9jzPbtfsU0 +LOdOjnCWkMcXfub/5BeQ/x1Qe99unTy2W5YyP+fQEOQgL2y+Tx4f4v5fTf/v +r5tH36rclMcnX1i5jkE03Lr+8PpQjjzOBlS9unOW5MuPC4538uVxciTjz6cA +kqf3pRYYpfJoNHs23dqXBntlczWJ5/IY0CxUsYbMA/fWlMbxjshj5e64CD47 +GkzG/EwGtBWwUUmJ/y3QIKkpHclroIDx7kq/I9ikv3rX1ahsUcA9it23dPVJ +v5pZaeC9UwGLh5avuqpN5pX5ArUFWwVs3vX4vvI6GrxXfBAWj1HANL+6nWVk +HkpXwp5d3QrYoGnR5zRO5kN7Xp/7wYrYsGxhfTyZ375lGj2tuqCIU2VJtnFk +vhvrDFn6T4wi5tZZPIqK58B38x/X+1IUUdFDjts3mgOz+sN1AvmKeLfTZLnm +OQ4sEnmzxvmdIrpyO2kx7DkgXpfwSEpOCWe/NAn/UiPzICW6KKpGCQ2PB1Od +lcUg1CAff29MGXkXusqmWopAMvruHm1tVZz7ze9kcb8Q0lR0Vwo7rkOhgdwU +xfgCeC2xZeNkkhrORcuklxzMBz3JmkT1dnVMa5LZJDWfBwLc2aePhWngB+Pn +q24U3wbpUBkDG3lN3NF298JD3VxYxjpcZvFSEwvUn1QufpMNamzxu35HtHAN ++7fK9oAs8O4RqjXlWo+jfl0JsitvwdhknJVJ2np8GNSiEpSQATvUX6SbrNuA +H4o0gktkr0PlpP6v2cYNyDf7kVmZlgYeqlpdTQ4bcZanoz/a5gqwv51otVmm +jduO7jxduiIVtlFiZvzZ2vjAyURz07JkUAyJ9a/R0cHcizzlgpqJoOygW8Xq +0kHlEr8aCU4cOFQ6Xbh/ahMWuo63dAbFQNWt1hMTq3XR6q+2f0etImEqf2FW +vVwXsztfPZ+KDAd7VtGydDM9HAyyMJ5TCIUJ5RTt0nE99D0SNfvsbhA8zP3V +Nx2tj+EOiiPYEgAHjZioL22ABZ+fPWvx8oW17lEVatUGmPNUgidc3QdWL3cr +MdvPxsXJk+4Y5gW5W4MCx23YGLrV14rPzwu0guK3phxmo/lJ/dQPrl6we/xe +W8cxNv7Nv5c/2coLItunf9i7sZGrTCjPWMkL5rKDDQND2aikNO5al+MJXfop +LXlFbHRbrvDD2dwDnM7k3jCh2XhH9Hn5RT0PmKEfOIzeI+8vkQirYHmAEKNj +VrOMjW+z/mbp/naHnbxSkk+r2agqbb22vsAdnrTmnWhpY2NIy9B+2aXuYCrw +cJ1vBxsVewXOcE26QceOVzNi3WzUSbAzG+1xg6lHI9FH/2Njvdn5tZ/L3GBd +lgZnaJis98s/y8nRDZ50bfGN+8rGM6xWvrx9bmAqsg/Ux9nY+Nl62Ri4wcmo +M02np9loJN1TkCNG1quOTBedY6N++5Ch4BI3CPt51f7RTzYa3lM5FDnhCis3 +FKgemWejP6PgK2+PK2S6P5peWGAj2jlNX3ntCv8DX1G2GQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06049865316418098}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -11063,19 +11839,19 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06049865316418098}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -11089,116 +11865,115 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k8VN0bAHBRGIyZuYNBlrIWBsmSyPNUUtImFUlota+lQmXpJRUlbVIh -pCRb9v2OvFkSZcuWNuWNbFlKJb/7++t+vp977znnc86z3Lv0oM/OI/x8fHxC -C/j4/n+d6W+oVbl03Wynho8eY9UOs/ZE6cC1Xf6wYH1tiTePCyjZclC6Kxwe -hEY0avDWwIkdj98IdMXBYr4zSn/JrcAa5cTNvkmB3W1aopXkfnhXsc1n6s1T -4E/IDpio9gILlaG3E29qYMOj5oJ3FWdg9o3RjfE3rcCwpQk+zo2BZ+sfpr1O -+QSqTsD4VJwIcu9KvxzUGoG0VL1VV2PTQcLT6bHQ+knIThTPjLbLgrgVFuXb -dv+EQHr4ASPVp9Adr0tOMOfA1NqCsUq9EC6lhbTwyyzAfw6scs9WKAHO9U8X -rt0TwJxmMvZPfhmc32Vp1jqzCAenaHJZLypAtqBZln+BIH5Xun+Y3l4B2exd -P1aICuIXM5NEl74K6Gx1zL2qKIh6g+nvaSMVoGJ9XMl6kyAaeUhHLRKvhJqt -SYKvbgvisLzuza5tlTBnMd380lQI3//DrB18UQnHjO87NYQL47ONSpNh+VWw -OVl8yipaGEPGHLUHSqtASeh0VPMNYbS1+P0LySp41b4nr+2RMI7XDFsMNVWB -tq+YQH+zMLYnrkj+/bkK/ks/mf5dloZuWRksGU41OEhsG1mcT8PZhVfoawKq -YWVweVhiBQ2Lu04OjAdVg8jHZVJLn9OwnhthnhRaDaU5AqDWTUPXJ95Jw5eq -QcqqNFZ3noaX5M9UrEuphldhKvobrEQwzCDx1NDLajAf+xXk/UkEs1N3ll5h -khC46boG75sIZpxvDF/EJiH7PreHPSOC14cXZ56SJEF6l7NxqbAo6gvul7aV -JeFbyb8/BLRF8eKFP0emlEm4Fh57/PYpUWz7s7gj15CEj5Jq3rV0MVwrW3xw -hT0JHJ9qeQ5HDDOnNeVtHEjYUm/30m2JGC5c67DK35GEoqBLWoyVYigVvffq -o4MkXHw3PrTXTgx/dXS8mnYnQS+j3GUsRQx1fCOTiWASwkytD8iuoqPX35Lg -PbdJ2OSY+N1oHR3tP4YWWd0hQTx0+NzuLXQcNj7zfs09Eu4+i0iPdaZjqjlN -QOY+CSWby4YFL9DRuXnfhcePSBi3Uz4x2U3H1tItHauLSSgO8hViDdAxisNS -mi8h4ezdynjtUTrq06wOkmUkiL23LXfjF0cBr+1VxlUkqLtE873XEMd7p2VH -hP4lwTFg+mJTsDhaTKR5Eq0kqN5aJzcUIY7d2npS6W3/378rWUKx4ijWZ19i -2EFC0J/lr9aliWMT+WVwWxcJN845SpY2iaOv6OScfT8JTVfrkh7IM3AkQGjv -x68krM6+XXC2moFSo+5Xc/+SYP6meW60noE3FbOutsyTsI1v4UanVgbe7qT9 -GubjwaGd3t3wmYE+J68slBfggUXw0pDQRUysndgj6izEA1/FmdS1mkxsW2Zq -6M7gwXR+bP2sDhMfBYl+cWLyIGiT5kiePhMZvToLbVg8iPBzNlQyY6LU2OKY -FWweJDxrrOe3ZqJX8JK3LVI8qHVJGnl2gon7aC3tV+V5YPnHmDgdzMQ4W8+7 -jgo8aI5tN9QPZeJuC4PuZYo86C6lhaZdYOLcZYmCwiU8GBU9TkTcZeLNmPzf -uco8OJYsbrTmPhM/BO0KdFPhwU/9jH3TD5i47vC/PoqqPBBw7E87ksPEn8en -6s+p8UA6d5ORRQ0TPUQKjbWX8+Ce+ad9f58zURvmL7ZSVuo+E1r0gol36Z/s -jmvwgMuf36DWwUQHfRfPXE0erNsl7yD0HxMjnjFCRbR54PlzIrSezsJV0doN -Fno8WO13VOoLwcKwaIFjLykLD/VkCkiz8HGwtZ71Sh486H3WaabEQnw+N7ld -nwf9VTe0Cg1ZWDNreVPDkAdPjERqWk1Y6Mx/7e9tykG5Z23HkYWZI/lhgkY8 -kEpxCde0YqGuvklvJ+XtEcZd951YePlp6eguYx4o/M3yqj7MwhxSam0W5W8n -lATeurFwf1xPPv9qHkS5impLH2fh82mPuTTKez6EPDMIZOFiqfSOCcoq9lN2 -NmdZaCq15LWJCQ9Iq7fnLkex0K6tQL+O8uVaa5knMSzkjK5NFDblgcOa59kN -cSxcljrJ3Uh5Vjune+E9FvqH59WUU65/qOyjlMLCngaDhgnKN5fEL8SHLJwa -aP6psoYHekSYTnAeCyMfGHWGU+a7NF0bX8TCek5ERBblZgF3+6JyFprPfHTu -oHz3dP9YG8nCTUMst1+UPaZ3Rkz8y8KYHW2JcmbU/nvXyTJesLBu1Vd+U8rC -gya5Wq+o9R6RumlHudMpd8PmDhYmWCrs9aec1qXS69LDwrei/265QNnf+rZv -xDsWOoS3+N2jjI10wdQBForoCzRkUxZfH36H/MrCWls1m0rKb8tndPtHWdjb -Ns9soPxE3+P570kWnltjK9BKOSjr3T6ZWRYe7ZrS6KK8SW3XhOFfFrJu3o/q -pSyVVB+5S4DA45Lq8n2UBzhr5PyFCXRN2f61m/LT2Ly8K3QClQy+jLRTDqWp -bcwiCKzwK9J8SXl7eEJfI4fA1IfRqTWUFX6L+/8nR6Dia4M9hZS/HTsnJKhE -YEtciPkDymXfftxVVqfum6zyiaMcdcRTb60WgS942m9OU97T/77OcQWBdnV6 -Zw5TVrHdvf+0IYFXrksctKT8vaXh+20TAmdlHkRqUiY3mUUVI4HOY4XDIpQv -857Kd2wgcJ2NTNwgdT4Oq9Xzv28mcKdGShCP8qwms5+7m8AUvmOSXpRn7smG -rbQn8HXEoUdAeYqhqmLsRKDTACeBQXl00tjd3I3AHv4fdx9S8TN8xJy+2ZvA -vIclOT6U/3uzLXf7MQLLRj1UDCh/LD80Y3+GQPXUXsMSKl7fcb1vO4cT+P7B -ys4Ayn1Jp0yPnicw8nhBjy7lznMx4X5XCdRZ4C2VRMV/o1WxeNQDAqd6rvg4 -UPlTV8nLi3lMYLXO7LZFlGt1mnZdyyGwzkoyIXMVD6rYHxISSwl0Ty48MU7l -49NeEfXCl9T8EQPO+6j8zdkq2VjWSmDlILdwzICKj2pFL/INNZ5CV3AY5fRU -/fwXHwicu5J76B5VDxI8HOHjNHW+j1YXFlH149Zb14+DvwgsndteYEj5+vZj -ESPzBJpuvaVVsILa75VRL37S2MhI045+qMuD8N95tgwFNt7ZylP0peqTx6VF -vqYWbOTvN3S4QNU31zkGe50V9bzt9J4Py3hw1Ee2aOMONpoEjHQZUna20fmz -056NxDGFEz1Uvdy1eG+Umzcb/1v8WHshVV9NM58k37zJxu781Yc+UvW7d0lm -0oY7bDx4mr1xKeWgmxmJU0lsvHZZleUox4PisPS7OzPYeMp72v61LJXvdsnx -4hVs1Jrf05PI4cHyRddjIz+wcUnD2xWdVD+pD4q7YvCFjcrv+NonqX5zdDz2 -8sAQG78oRrgyKKf1xkSvm2KjvnCdB9J5sOTp+ai/ghJI29E3foFG5ZNTcOgJ -LQnkM6pKLV/Ag8L2wBDVFRL4pUWvoYTqd7s2nzrbbiCBu+cjRvKpfhhnEHBa -D6j3U78bpM2RQBfzOTVqLYGP2hX7PGdJWFh60PfoSQnsO5ysmzROwgSx2XlP -jQSutjmRHPOWhC5PpVfudRIYeeD+oG4fCeTzXxDSJIGF7YUTr3tIiA3KVHzU -KYER1u076VT/1v0o9m52SALthmOOulH93zuvZf89tiQqle2sKX5OwtD23fsG -Dktiyu7VrwqySGjN4L746SaJq+8InCeekFAmIGhC95HEdF0NZe/HJFwoLpI1 -DJRES59JhuJDEpYpSvecj5FE/YH1PS7JJLiM9thpFkmin7nZ8ptxJAxEO+/x -F5LCiUOmQV4B1PxDWkq6YlJo/Ul90+NjJPzYODsywpTCxKxWp89+JIgIxEW4 -yUrh2kG27x5vav2BzwqcuVJIW8LQVnEh4cwRNfZ2Gyk0etww6m1HgpTZtxbN -JClM6mjnrzcmwXLspOVnQw726du0B45Vg9wKhUhhUw5Wrvxg3zhUDaP+tTWa -azm4RO6oG+dLNVyfYZr6W3HwvYvgsod91dA/l6E978RB95kLPvcaqsFfrI8t -c4GDBbEJGwep79eE5di/pZeDLxwbVBfYVMO3Q8LHCkKksd/qkmNnRhX1P8Lh -P18jgxlDd6Y811QC8VLtcu6YLE4O/dYoaCgHuaicHYaGcpiYtGhhqVwZxGsa -M9ku8rhyyDD0VHAJNMquNZi8qoAy6+3j/bqLYLVcTaxOpyIKKaXkNDALQVwg -5fiB8CX4OSrzeJBbPiiEKZruVVuKESNmX/55mAc0VYeinXVLUWii2tPqRw5o -r5HJOblfCe2yJwtXzj4B/37i2WY+ZXwQ2/m6+FMGjE1G77aMV0ahxmaDce5D -2KjzPMGSq4JMtR2LDPPSoGrS5PePZhWMuSI39V43Bby19HpeH1HF3PUd1uWi -ybBm9HD7Xpoa6jV+HxvrvgMbVKS30lPUsGU20FV1QzwsC714qsZIHUVvSFoq -y94AjSPG1ao96vhDXVp3o3AcHKly/afAbxnaaLaIjf++DNXJ7YcnJJfjxYMt -r2yUL8LUo/kfOsXLkfs7Wb3pbwQcUs2kJWzVQLPvoSOD98NhQuOa4dNxDfSb -32q7ZeYslKT9/jAdpYl6pdpXmr4Ggr25MpooaGGwsLR7QEYALPY6X6pNauF+ -lyyPtko/uDx/1OBSjRZmDtSa+eX6AX+cRd5grRY2tB/r4KT6wVDRoozkBi3M -D7IwCYnygzK+f+KJNi2sE2p3LbLxA/vroSdnPmvh8oXjO2qGfSG+PNCgSpSL -QYUCTbpKviAp4pm31ZaLRIzK2w/bvCBt/Zmg8b1cJM2F9t0y8AK9M5fXX3Pg -YqKs1oSTnBdsG8/t6DrAxQ+6jkYaQ54Q2Tk9e8iTi9UM24H7kZ7wMyVkXVAY -F5v8zt5iP/OAHpNrbemZXJQwXMDItXQH14C0u5bZXES/JuOneu4wk1145Fsu -Fw/cey3+fLE7EEpdP1YUcbGijf+S0qgbWAnLy1WSXOTfa3sj65obVLSnH27r -4OKNwhEr/o+usFm8hHuii4vivubfZJpcoWtjw4x0Lxf3ifdGrityhamy4SjH -99T6TbxDnl90Be593ayvQ1wcpJPb4/VdoaJn7YnoEep+StQ1Q0VqPAkb0Bnn -4qiSXfBnmiscPR/w+vg0F6NHN4kFvHOBKTIygfOTix4REsm7G10g/NetQ2W/ -uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs - +1:eJwV1nlcTlsXB/CuSKSiokHj85ynWRNKw2MtCRWJVGQqkuZB0USaNEozEkWD +ND2HupQMlQpxFY0a3LpF0UCl0ZDe/f51Pt8/zv6cffZev7XkjntaOCzi4uLi ++YuL6//PmZ5XddTF3M2Cc5HLA5T0NrdmigVs6QgD123PpnMXRAFXvz0u1pEM +jg9l8zwWFMB3T+F77o5sCHrJFbtrQQdWfRNN/vG+FN7mDBTKLOyA3ie7Pafe +18CtQ7Nz1/7sh+3U8L8T75tBdcZeI/23I/x4r3N5/H0/WLLl5fOn/KB2653c +puxJGNossr6lKRokeysGj6vOQ/YMQ913WzKIuNkWLt3KjZ+Salyk2q5Csub2 +x7uteNEtojqQSsuAzjSN6omV/Oh9Z1t3p2UWXMwNfrtIfBXCuG5SQ18OiKZ+ +jEnJEMbvnV8+DCrlQZSlyebmmdV47bbRIArng49ulu2rMDHUlKz0OTZQAKa3 +BKZ2xolhD3fE68KRAmAsPRfdeFkMtYKvmo1PFMC7VuuSlnwx3LU6s93zTwGo +ea3g7mkUQ3+zo4MoWghf8vzyvkuIo+OCTJKycSEcFtn9de3f4niEsvkidqcQ +jMZ+Bnp8lECNxSMWO22KIMA4VfnZqASWp1blhB4tAjprXZfwjAQKz+qp37cv +AjFLO90K3rU4asac5vcogtGHz2e51dai0Ze2jalhRZASlnj6mv9abOZ3tx4p +LIL+1fIedfyS6FfhkVkzVwSinlVSoqKS6G/S0h48XwS76g80OMtKou0ux626 +i4qhLPCiquB6STyXFvXwFl8xxPaOD9sckMRrgpUChtLFoFXw2HEsm/i+2+5G +w2IINdh7TGKTFN5+icdXxBSD8dHM7zqGUtjaPxBefKkYBEJGwq12SeH6jx1K +xsnFcKM2Ii/RTgo3hnkv8r5eDA9NH43wxEjhe6beQAKnGMYPMH0nO6XQmkfA +depdMRw9Mx375qw09iUfCLcT4QDrqqHkcIQ05u5XUj4lxiH7T+AsTZTG5tE6 +qyBJDgT+VnpnmCuNrase6kdTHLgcfnR1xRtpdOwx2+a0gQNvkl7evC0lg1Xr +/nPau48DevS1++erZLBh5Z4f9Zc4YPS+cf5bvQyWqC8kCCRxYDfX4h22zTLY +pqFptCeVA/YWHp0wIIN8w11L6tM5sP2sXHDIElmc782cjL7DAS+ZmZwtKrL4 +aZVz3p5qDtQ53vxa6yuLx0K/L8x944DJb12hc2dlkatYoLRmggONia3aG0Jk +UWM9KyZ6igOdFctCcmNkUc/r5B3enxz4xndaKOKGLJ6edy7uWkyD2D1jne01 +siiamyL5QpwGt7mJkHp+OQzHN71PkAa9UyfXDArJYePSAmBvpYF3uKuIW0wO +JyUPUxXbaLjdXdu+mSGHVIPe+RxTGnoqL6s+0JbD3ldvQg0taTCP0O3IspVD +7a6d+oUnaZD+w3GvOiGHayIusD460TDqy+D+11kOF2Y+3hB1pSHaiU9N7LQc +KrWZb/TxpKF657/h8dFy2NeWJTntR4OWUKj62RI5/D1dvZ2KpoHr4nRdWpkc +3n6kbLwmloZGbpeDZY/lcHRc5D/uOBpcpy0iJp7LYfmTT21NCTTkdlDdjl1y +qOjHNbLpKg1rbtZHWnIzcPLSoOmG2zR8EmVLevMy8OlAOdd/eTSUJpaUJPAz +MKHDYX9UPtlPWPqH16IMzNuxari+iHyvg5vWFlUG6ihNlIuW0vBDZWXPOisG +1sYeSfn0lIaZDInQ9QfJei6OikZVNEwJsihdWwa2/PUy6WY1Dd8mdV2MnBl4 +Zdjqk0ktDf2P7WcOBjHwsWrsDbd6GnrXeVyzC2PgAxHhL4WvaPhw09/gZBQD +N764zT/wmob28Ethp5IYuEe7ZWhXAw2vd5YLRN9mYPS7oZ/DTTS8fPqs5FIh +A6ddrFV4W2ioU39jmXKXgXTlQ325VhoqhfvSMysYWDp2YmF7O9lv93KFBw0M +zJwpVzjWRUO661Hon2Zg+MhMwbs+Gq7+69T/+ScDZcK3aBf305Bq7hPxdYGB +n97N0+EfaYhfH/3P3DImak0vdZYfoCHsV8l+QWkm5sTprNH/QkOw+5OfIkwm +dqn0Ss4Qn+t9kSGhyERmfeQazhANvrXdH1laTDQuUx0UGCHnd3GJl8F2Jopq +2glkf6XBaV5Q2HAnE2Wex9cZfKPhpKdE2Y49TDz1Lfh0C7HdPvXfFgeZaJYt +8XxqjIYjz3VvHrBl4peg847B4zQc1DEyPHqCib8TxJfyTNBgudYm2tmDiSKV +3luWfqdh7yV7FU8fJorHTPwbSrx7wb3xtD8Tb31WPDtHbPwxTCQkjIkS7jsf +d07SYFBUfOvKFSbKj+11dZumoVu26Oa260xc7cJUekYceKUgc+omE/NiZXyE +ZmgoD827YVHAxOGbsXQhsfVs7vW/aCbWnT2dNUE85ZaTfq+UiX2vzzM3zpL7 +fuBWmsATJl6bHn9fQtzUkHn1aTUT7x/u4Bsh9tqaccXtORM9zXqbZOdoEKy4 +fnntaybq/XmhvI+YVktPfd3IROtNe0XDiM1y01ICWpiYuh/TOMSj4leTFTuY ++N1kP91GHJtwOen9ByZuSbA5+JNYaUlqYmQfE7s38WWs/UFDfWBywsZBJm4Y +0vDTJT45nhj/aZicb0vC0D7iJScTLqWMkfUef51yIc7tvhRnOMXEFTMr088T +b90bd3Fijon3HKo744n7X8TG3ppnIt/52vvXiUMNYmLMF1F4Yku/ym1i2dKo +6D88FDbjABQRVylERnH4KPzn+uUJDvHRjAuRh1dSOLTwZMv//VsoPIJvNYXe ++SzNAuLr0aEXHolTKHs0vTqLWO9PcLizNIV3fQfHrxB3+JwPE2NSGN/aVhNN +7Dd0LvSlAoVJgxt0/IjX2J4N8VWlMPzOu93HiR+0BgSzNCnsz/Bdbkpsaep/ +vnUjhb7dUy5qxJNVvkHhehQunhc/JUicvPHMOS0g36f0QOor+Z+aRT5n+7ZS +2Cp85dRL4ney3oGJxhTunYlzzyTmX+Hp/20vhV8MuY4ZEheHuvtlWFOY3Sxz +UJDYdNbVd9chCi/cvv6ng5x/dL/T6cITFLoaTO06TqxwwNHHxpnCQEf/OTni +Fw0O3rweFArn3LHoIfdrccVxr5N+FI4OHlpjRpyjdsxz9TkK7ePiQhfIfTXM +tfWoC6FQ+lxVJk0cnHDYjRFL4QatmO+LiKWXHHJtiqewuPqtcv4UDU8CbVxC +Uij8T9FfzJT4p4O1U88NCm/W7RO9QOrjWrel46Uscl69esqSxJv27jtpkEeh +Vc7I9D1ST74Ge06k36WQJ0n08TtSjxNCpnbWNRTauv4tMkTqt8ON8c7lJYWL +FD/3HCKufvETgt9QuFxArP01qffEwCKZ/HYKa2sHzDNIPmj0r+j9MUyhi15k +ogjJDzGDgd0C4xR2N072OQ2TfnHlaSVjmsIiFRvnCpI3b008MncuUDjrflna +nOSRR8nbIxnCLGxurzY0I/llzZffUCJG/KDVPvwTDZsdQtgvpFjYJ8hT94Dk +Hb+4ptSYAgvVb9htFyR5WByS/AENWLjM8YzP5R4ahs2tDn06wcJO2c1nxki+ +Nhes+2fOmYXbA9VEhttoeMTNo8/vycLq1MVL+kgex5SXSWgHsPDjZuW+2mYa +FGXEuqIusdDw0GzukUYaHL91HVApY+FyvQDn/jqST8Z/18NjFrYtCinPJv1D +O/viJstqFh7/q9XFtoYGHmsDsaDXLNRwsuBpJP0n72nG+8YeFpb82rM+5BHp +d3F21t5L5THje8A53btk/8OqDI0V8vjd7ctwJ4eG2R0/vn5dKY9jzPbtfsU0 +LOdOjnCWkMcXfub/5BeQ/x1Qe99unTy2W5YyP+fQEOQgL2y+Tx4f4v5fTf/v +r5tH36rclMcnX1i5jkE03Lr+8PpQjjzOBlS9unOW5MuPC4538uVxciTjz6cA +kqf3pRYYpfJoNHs23dqXBntlczWJ5/IY0CxUsYbMA/fWlMbxjshj5e64CD47 +GkzG/EwGtBWwUUmJ/y3QIKkpHclroIDx7kq/I9ikv3rX1ahsUcA9it23dPVJ +v5pZaeC9UwGLh5avuqpN5pX5ArUFWwVs3vX4vvI6GrxXfBAWj1HANL+6nWVk +HkpXwp5d3QrYoGnR5zRO5kN7Xp/7wYrYsGxhfTyZ375lGj2tuqCIU2VJtnFk +vhvrDFn6T4wi5tZZPIqK58B38x/X+1IUUdFDjts3mgOz+sN1AvmKeLfTZLnm +OQ4sEnmzxvmdIrpyO2kx7DkgXpfwSEpOCWe/NAn/UiPzICW6KKpGCQ2PB1Od +lcUg1CAff29MGXkXusqmWopAMvruHm1tVZz7ze9kcb8Q0lR0Vwo7rkOhgdwU +xfgCeC2xZeNkkhrORcuklxzMBz3JmkT1dnVMa5LZJDWfBwLc2aePhWngB+Pn +q24U3wbpUBkDG3lN3NF298JD3VxYxjpcZvFSEwvUn1QufpMNamzxu35HtHAN ++7fK9oAs8O4RqjXlWo+jfl0JsitvwdhknJVJ2np8GNSiEpSQATvUX6SbrNuA +H4o0gktkr0PlpP6v2cYNyDf7kVmZlgYeqlpdTQ4bcZanoz/a5gqwv51otVmm +jduO7jxduiIVtlFiZvzZ2vjAyURz07JkUAyJ9a/R0cHcizzlgpqJoOygW8Xq +0kHlEr8aCU4cOFQ6Xbh/ahMWuo63dAbFQNWt1hMTq3XR6q+2f0etImEqf2FW +vVwXsztfPZ+KDAd7VtGydDM9HAyyMJ5TCIUJ5RTt0nE99D0SNfvsbhA8zP3V +Nx2tj+EOiiPYEgAHjZioL22ABZ+fPWvx8oW17lEVatUGmPNUgidc3QdWL3cr +MdvPxsXJk+4Y5gW5W4MCx23YGLrV14rPzwu0guK3phxmo/lJ/dQPrl6we/xe +W8cxNv7Nv5c/2coLItunf9i7sZGrTCjPWMkL5rKDDQND2aikNO5al+MJXfop +LXlFbHRbrvDD2dwDnM7k3jCh2XhH9Hn5RT0PmKEfOIzeI+8vkQirYHmAEKNj +VrOMjW+z/mbp/naHnbxSkk+r2agqbb22vsAdnrTmnWhpY2NIy9B+2aXuYCrw +cJ1vBxsVewXOcE26QceOVzNi3WzUSbAzG+1xg6lHI9FH/2Njvdn5tZ/L3GBd +lgZnaJis98s/y8nRDZ50bfGN+8rGM6xWvrx9bmAqsg/Ux9nY+Nl62Ri4wcmo +M02np9loJN1TkCNG1quOTBedY6N++5Ch4BI3CPt51f7RTzYa3lM5FDnhCis3 +FKgemWejP6PgK2+PK2S6P5peWGAj2jlNX3ntCv8DX1G2GQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "PlotRange" -> {{0, 30}, {0., 0.06049865316418098}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -11209,6 +11984,7 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -11236,7 +12012,8 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06049865316418098}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -11244,22 +12021,574 @@ uDiUaJJlUegCTP0Mrf1zXDRZprh8U7ILJHqVTc/Pc/FsrQrN/pIL/A8dEWBs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991324915847246*^9}, + CellChangeTimes->{3.991324915847246*^9, 3.993828006338995*^9}, CellLabel-> - "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] + "Out[128]=",ExpressionUUID->"cbf08135-e0cb-410b-852e-9f86341f7e83"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, - 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ -4f98a6653ef7"], + 3.991924419552084*^9}, + CellLabel-> + "In[129]:=",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799819852022*^9, - 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ -6e6b94590d4b"], + CellChangeTimes->{{3.991799819852022*^9, 3.9917998213158054`*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nlcTlsXB/CuSKSiokHj85ynWRNKw2MtCRWJVGQqkuZB0USaNEozEkWD +ND2HupQMlQpxFY0a3LpF0UCl0ZDe/f51Pt8/zv6cffZev7XkjntaOCzi4uLi ++YuL6//PmZ5XddTF3M2Cc5HLA5T0NrdmigVs6QgD123PpnMXRAFXvz0u1pEM +jg9l8zwWFMB3T+F77o5sCHrJFbtrQQdWfRNN/vG+FN7mDBTKLOyA3ie7Pafe +18CtQ7Nz1/7sh+3U8L8T75tBdcZeI/23I/x4r3N5/H0/WLLl5fOn/KB2653c +puxJGNossr6lKRokeysGj6vOQ/YMQ913WzKIuNkWLt3KjZ+Salyk2q5Csub2 +x7uteNEtojqQSsuAzjSN6omV/Oh9Z1t3p2UWXMwNfrtIfBXCuG5SQ18OiKZ+ +jEnJEMbvnV8+DCrlQZSlyebmmdV47bbRIArng49ulu2rMDHUlKz0OTZQAKa3 +BKZ2xolhD3fE68KRAmAsPRfdeFkMtYKvmo1PFMC7VuuSlnwx3LU6s93zTwGo +ea3g7mkUQ3+zo4MoWghf8vzyvkuIo+OCTJKycSEcFtn9de3f4niEsvkidqcQ +jMZ+Bnp8lECNxSMWO22KIMA4VfnZqASWp1blhB4tAjprXZfwjAQKz+qp37cv +AjFLO90K3rU4asac5vcogtGHz2e51dai0Ze2jalhRZASlnj6mv9abOZ3tx4p +LIL+1fIedfyS6FfhkVkzVwSinlVSoqKS6G/S0h48XwS76g80OMtKou0ux626 +i4qhLPCiquB6STyXFvXwFl8xxPaOD9sckMRrgpUChtLFoFXw2HEsm/i+2+5G +w2IINdh7TGKTFN5+icdXxBSD8dHM7zqGUtjaPxBefKkYBEJGwq12SeH6jx1K +xsnFcKM2Ii/RTgo3hnkv8r5eDA9NH43wxEjhe6beQAKnGMYPMH0nO6XQmkfA +depdMRw9Mx375qw09iUfCLcT4QDrqqHkcIQ05u5XUj4lxiH7T+AsTZTG5tE6 +qyBJDgT+VnpnmCuNrase6kdTHLgcfnR1xRtpdOwx2+a0gQNvkl7evC0lg1Xr +/nPau48DevS1++erZLBh5Z4f9Zc4YPS+cf5bvQyWqC8kCCRxYDfX4h22zTLY +pqFptCeVA/YWHp0wIIN8w11L6tM5sP2sXHDIElmc782cjL7DAS+ZmZwtKrL4 +aZVz3p5qDtQ53vxa6yuLx0K/L8x944DJb12hc2dlkatYoLRmggONia3aG0Jk +UWM9KyZ6igOdFctCcmNkUc/r5B3enxz4xndaKOKGLJ6edy7uWkyD2D1jne01 +siiamyL5QpwGt7mJkHp+OQzHN71PkAa9UyfXDArJYePSAmBvpYF3uKuIW0wO +JyUPUxXbaLjdXdu+mSGHVIPe+RxTGnoqL6s+0JbD3ldvQg0taTCP0O3IspVD +7a6d+oUnaZD+w3GvOiGHayIusD460TDqy+D+11kOF2Y+3hB1pSHaiU9N7LQc +KrWZb/TxpKF657/h8dFy2NeWJTntR4OWUKj62RI5/D1dvZ2KpoHr4nRdWpkc +3n6kbLwmloZGbpeDZY/lcHRc5D/uOBpcpy0iJp7LYfmTT21NCTTkdlDdjl1y +qOjHNbLpKg1rbtZHWnIzcPLSoOmG2zR8EmVLevMy8OlAOdd/eTSUJpaUJPAz +MKHDYX9UPtlPWPqH16IMzNuxari+iHyvg5vWFlUG6ihNlIuW0vBDZWXPOisG +1sYeSfn0lIaZDInQ9QfJei6OikZVNEwJsihdWwa2/PUy6WY1Dd8mdV2MnBl4 +Zdjqk0ktDf2P7WcOBjHwsWrsDbd6GnrXeVyzC2PgAxHhL4WvaPhw09/gZBQD +N764zT/wmob28Ethp5IYuEe7ZWhXAw2vd5YLRN9mYPS7oZ/DTTS8fPqs5FIh +A6ddrFV4W2ioU39jmXKXgXTlQ325VhoqhfvSMysYWDp2YmF7O9lv93KFBw0M +zJwpVzjWRUO661Hon2Zg+MhMwbs+Gq7+69T/+ScDZcK3aBf305Bq7hPxdYGB +n97N0+EfaYhfH/3P3DImak0vdZYfoCHsV8l+QWkm5sTprNH/QkOw+5OfIkwm +dqn0Ss4Qn+t9kSGhyERmfeQazhANvrXdH1laTDQuUx0UGCHnd3GJl8F2Jopq +2glkf6XBaV5Q2HAnE2Wex9cZfKPhpKdE2Y49TDz1Lfh0C7HdPvXfFgeZaJYt +8XxqjIYjz3VvHrBl4peg847B4zQc1DEyPHqCib8TxJfyTNBgudYm2tmDiSKV +3luWfqdh7yV7FU8fJorHTPwbSrx7wb3xtD8Tb31WPDtHbPwxTCQkjIkS7jsf +d07SYFBUfOvKFSbKj+11dZumoVu26Oa260xc7cJUekYceKUgc+omE/NiZXyE +ZmgoD827YVHAxOGbsXQhsfVs7vW/aCbWnT2dNUE85ZaTfq+UiX2vzzM3zpL7 +fuBWmsATJl6bHn9fQtzUkHn1aTUT7x/u4Bsh9tqaccXtORM9zXqbZOdoEKy4 +fnntaybq/XmhvI+YVktPfd3IROtNe0XDiM1y01ICWpiYuh/TOMSj4leTFTuY ++N1kP91GHJtwOen9ByZuSbA5+JNYaUlqYmQfE7s38WWs/UFDfWBywsZBJm4Y +0vDTJT45nhj/aZicb0vC0D7iJScTLqWMkfUef51yIc7tvhRnOMXEFTMr088T +b90bd3Fijon3HKo744n7X8TG3ppnIt/52vvXiUMNYmLMF1F4Yku/ym1i2dKo +6D88FDbjABQRVylERnH4KPzn+uUJDvHRjAuRh1dSOLTwZMv//VsoPIJvNYXe ++SzNAuLr0aEXHolTKHs0vTqLWO9PcLizNIV3fQfHrxB3+JwPE2NSGN/aVhNN +7Dd0LvSlAoVJgxt0/IjX2J4N8VWlMPzOu93HiR+0BgSzNCnsz/Bdbkpsaep/ +vnUjhb7dUy5qxJNVvkHhehQunhc/JUicvPHMOS0g36f0QOor+Z+aRT5n+7ZS +2Cp85dRL4ney3oGJxhTunYlzzyTmX+Hp/20vhV8MuY4ZEheHuvtlWFOY3Sxz +UJDYdNbVd9chCi/cvv6ng5x/dL/T6cITFLoaTO06TqxwwNHHxpnCQEf/OTni +Fw0O3rweFArn3LHoIfdrccVxr5N+FI4OHlpjRpyjdsxz9TkK7ePiQhfIfTXM +tfWoC6FQ+lxVJk0cnHDYjRFL4QatmO+LiKWXHHJtiqewuPqtcv4UDU8CbVxC +Uij8T9FfzJT4p4O1U88NCm/W7RO9QOrjWrel46Uscl69esqSxJv27jtpkEeh +Vc7I9D1ST74Ge06k36WQJ0n08TtSjxNCpnbWNRTauv4tMkTqt8ON8c7lJYWL +FD/3HCKufvETgt9QuFxArP01qffEwCKZ/HYKa2sHzDNIPmj0r+j9MUyhi15k +ogjJDzGDgd0C4xR2N072OQ2TfnHlaSVjmsIiFRvnCpI3b008MncuUDjrflna +nOSRR8nbIxnCLGxurzY0I/llzZffUCJG/KDVPvwTDZsdQtgvpFjYJ8hT94Dk +Hb+4ptSYAgvVb9htFyR5WByS/AENWLjM8YzP5R4ahs2tDn06wcJO2c1nxki+ +Nhes+2fOmYXbA9VEhttoeMTNo8/vycLq1MVL+kgex5SXSWgHsPDjZuW+2mYa +FGXEuqIusdDw0GzukUYaHL91HVApY+FyvQDn/jqST8Z/18NjFrYtCinPJv1D +O/viJstqFh7/q9XFtoYGHmsDsaDXLNRwsuBpJP0n72nG+8YeFpb82rM+5BHp +d3F21t5L5THje8A53btk/8OqDI0V8vjd7ctwJ4eG2R0/vn5dKY9jzPbtfsU0 +LOdOjnCWkMcXfub/5BeQ/x1Qe99unTy2W5YyP+fQEOQgL2y+Tx4f4v5fTf/v +r5tH36rclMcnX1i5jkE03Lr+8PpQjjzOBlS9unOW5MuPC4538uVxciTjz6cA +kqf3pRYYpfJoNHs23dqXBntlczWJ5/IY0CxUsYbMA/fWlMbxjshj5e64CD47 +GkzG/EwGtBWwUUmJ/y3QIKkpHclroIDx7kq/I9ikv3rX1ahsUcA9it23dPVJ +v5pZaeC9UwGLh5avuqpN5pX5ArUFWwVs3vX4vvI6GrxXfBAWj1HANL+6nWVk +HkpXwp5d3QrYoGnR5zRO5kN7Xp/7wYrYsGxhfTyZ375lGj2tuqCIU2VJtnFk +vhvrDFn6T4wi5tZZPIqK58B38x/X+1IUUdFDjts3mgOz+sN1AvmKeLfTZLnm +OQ4sEnmzxvmdIrpyO2kx7DkgXpfwSEpOCWe/NAn/UiPzICW6KKpGCQ2PB1Od +lcUg1CAff29MGXkXusqmWopAMvruHm1tVZz7ze9kcb8Q0lR0Vwo7rkOhgdwU +xfgCeC2xZeNkkhrORcuklxzMBz3JmkT1dnVMa5LZJDWfBwLc2aePhWngB+Pn +q24U3wbpUBkDG3lN3NF298JD3VxYxjpcZvFSEwvUn1QufpMNamzxu35HtHAN ++7fK9oAs8O4RqjXlWo+jfl0JsitvwdhknJVJ2np8GNSiEpSQATvUX6SbrNuA +H4o0gktkr0PlpP6v2cYNyDf7kVmZlgYeqlpdTQ4bcZanoz/a5gqwv51otVmm +jduO7jxduiIVtlFiZvzZ2vjAyURz07JkUAyJ9a/R0cHcizzlgpqJoOygW8Xq +0kHlEr8aCU4cOFQ6Xbh/ahMWuo63dAbFQNWt1hMTq3XR6q+2f0etImEqf2FW +vVwXsztfPZ+KDAd7VtGydDM9HAyyMJ5TCIUJ5RTt0nE99D0SNfvsbhA8zP3V +Nx2tj+EOiiPYEgAHjZioL22ABZ+fPWvx8oW17lEVatUGmPNUgidc3QdWL3cr +MdvPxsXJk+4Y5gW5W4MCx23YGLrV14rPzwu0guK3phxmo/lJ/dQPrl6we/xe +W8cxNv7Nv5c/2coLItunf9i7sZGrTCjPWMkL5rKDDQND2aikNO5al+MJXfop +LXlFbHRbrvDD2dwDnM7k3jCh2XhH9Hn5RT0PmKEfOIzeI+8vkQirYHmAEKNj +VrOMjW+z/mbp/naHnbxSkk+r2agqbb22vsAdnrTmnWhpY2NIy9B+2aXuYCrw +cJ1vBxsVewXOcE26QceOVzNi3WzUSbAzG+1xg6lHI9FH/2Njvdn5tZ/L3GBd +lgZnaJis98s/y8nRDZ50bfGN+8rGM6xWvrx9bmAqsg/Ux9nY+Nl62Ri4wcmo +M02np9loJN1TkCNG1quOTBedY6N++5Ch4BI3CPt51f7RTzYa3lM5FDnhCis3 +FKgemWejP6PgK2+PK2S6P5peWGAj2jlNX3ntCv8DX1G2GQ== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nlcTlsXB/CuSKSiokHj85ynWRNKw2MtCRWJVGQqkuZB0USaNEozEkWD +ND2HupQMlQpxFY0a3LpF0UCl0ZDe/f51Pt8/zv6cffZev7XkjntaOCzi4uLi ++YuL6//PmZ5XddTF3M2Cc5HLA5T0NrdmigVs6QgD123PpnMXRAFXvz0u1pEM +jg9l8zwWFMB3T+F77o5sCHrJFbtrQQdWfRNN/vG+FN7mDBTKLOyA3ie7Pafe +18CtQ7Nz1/7sh+3U8L8T75tBdcZeI/23I/x4r3N5/H0/WLLl5fOn/KB2653c +puxJGNossr6lKRokeysGj6vOQ/YMQ913WzKIuNkWLt3KjZ+Salyk2q5Csub2 +x7uteNEtojqQSsuAzjSN6omV/Oh9Z1t3p2UWXMwNfrtIfBXCuG5SQ18OiKZ+ +jEnJEMbvnV8+DCrlQZSlyebmmdV47bbRIArng49ulu2rMDHUlKz0OTZQAKa3 +BKZ2xolhD3fE68KRAmAsPRfdeFkMtYKvmo1PFMC7VuuSlnwx3LU6s93zTwGo +ea3g7mkUQ3+zo4MoWghf8vzyvkuIo+OCTJKycSEcFtn9de3f4niEsvkidqcQ +jMZ+Bnp8lECNxSMWO22KIMA4VfnZqASWp1blhB4tAjprXZfwjAQKz+qp37cv +AjFLO90K3rU4asac5vcogtGHz2e51dai0Ze2jalhRZASlnj6mv9abOZ3tx4p +LIL+1fIedfyS6FfhkVkzVwSinlVSoqKS6G/S0h48XwS76g80OMtKou0ux626 +i4qhLPCiquB6STyXFvXwFl8xxPaOD9sckMRrgpUChtLFoFXw2HEsm/i+2+5G +w2IINdh7TGKTFN5+icdXxBSD8dHM7zqGUtjaPxBefKkYBEJGwq12SeH6jx1K +xsnFcKM2Ii/RTgo3hnkv8r5eDA9NH43wxEjhe6beQAKnGMYPMH0nO6XQmkfA +depdMRw9Mx375qw09iUfCLcT4QDrqqHkcIQ05u5XUj4lxiH7T+AsTZTG5tE6 +qyBJDgT+VnpnmCuNrase6kdTHLgcfnR1xRtpdOwx2+a0gQNvkl7evC0lg1Xr +/nPau48DevS1++erZLBh5Z4f9Zc4YPS+cf5bvQyWqC8kCCRxYDfX4h22zTLY +pqFptCeVA/YWHp0wIIN8w11L6tM5sP2sXHDIElmc782cjL7DAS+ZmZwtKrL4 +aZVz3p5qDtQ53vxa6yuLx0K/L8x944DJb12hc2dlkatYoLRmggONia3aG0Jk +UWM9KyZ6igOdFctCcmNkUc/r5B3enxz4xndaKOKGLJ6edy7uWkyD2D1jne01 +siiamyL5QpwGt7mJkHp+OQzHN71PkAa9UyfXDArJYePSAmBvpYF3uKuIW0wO +JyUPUxXbaLjdXdu+mSGHVIPe+RxTGnoqL6s+0JbD3ldvQg0taTCP0O3IspVD +7a6d+oUnaZD+w3GvOiGHayIusD460TDqy+D+11kOF2Y+3hB1pSHaiU9N7LQc +KrWZb/TxpKF657/h8dFy2NeWJTntR4OWUKj62RI5/D1dvZ2KpoHr4nRdWpkc +3n6kbLwmloZGbpeDZY/lcHRc5D/uOBpcpy0iJp7LYfmTT21NCTTkdlDdjl1y +qOjHNbLpKg1rbtZHWnIzcPLSoOmG2zR8EmVLevMy8OlAOdd/eTSUJpaUJPAz +MKHDYX9UPtlPWPqH16IMzNuxari+iHyvg5vWFlUG6ihNlIuW0vBDZWXPOisG +1sYeSfn0lIaZDInQ9QfJei6OikZVNEwJsihdWwa2/PUy6WY1Dd8mdV2MnBl4 +Zdjqk0ktDf2P7WcOBjHwsWrsDbd6GnrXeVyzC2PgAxHhL4WvaPhw09/gZBQD +N764zT/wmob28Ethp5IYuEe7ZWhXAw2vd5YLRN9mYPS7oZ/DTTS8fPqs5FIh +A6ddrFV4W2ioU39jmXKXgXTlQ325VhoqhfvSMysYWDp2YmF7O9lv93KFBw0M +zJwpVzjWRUO661Hon2Zg+MhMwbs+Gq7+69T/+ScDZcK3aBf305Bq7hPxdYGB +n97N0+EfaYhfH/3P3DImak0vdZYfoCHsV8l+QWkm5sTprNH/QkOw+5OfIkwm +dqn0Ss4Qn+t9kSGhyERmfeQazhANvrXdH1laTDQuUx0UGCHnd3GJl8F2Jopq +2glkf6XBaV5Q2HAnE2Wex9cZfKPhpKdE2Y49TDz1Lfh0C7HdPvXfFgeZaJYt +8XxqjIYjz3VvHrBl4peg847B4zQc1DEyPHqCib8TxJfyTNBgudYm2tmDiSKV +3luWfqdh7yV7FU8fJorHTPwbSrx7wb3xtD8Tb31WPDtHbPwxTCQkjIkS7jsf +d07SYFBUfOvKFSbKj+11dZumoVu26Oa260xc7cJUekYceKUgc+omE/NiZXyE +ZmgoD827YVHAxOGbsXQhsfVs7vW/aCbWnT2dNUE85ZaTfq+UiX2vzzM3zpL7 +fuBWmsATJl6bHn9fQtzUkHn1aTUT7x/u4Bsh9tqaccXtORM9zXqbZOdoEKy4 +fnntaybq/XmhvI+YVktPfd3IROtNe0XDiM1y01ICWpiYuh/TOMSj4leTFTuY ++N1kP91GHJtwOen9ByZuSbA5+JNYaUlqYmQfE7s38WWs/UFDfWBywsZBJm4Y +0vDTJT45nhj/aZicb0vC0D7iJScTLqWMkfUef51yIc7tvhRnOMXEFTMr088T +b90bd3Fijon3HKo744n7X8TG3ppnIt/52vvXiUMNYmLMF1F4Yku/ym1i2dKo +6D88FDbjABQRVylERnH4KPzn+uUJDvHRjAuRh1dSOLTwZMv//VsoPIJvNYXe ++SzNAuLr0aEXHolTKHs0vTqLWO9PcLizNIV3fQfHrxB3+JwPE2NSGN/aVhNN +7Dd0LvSlAoVJgxt0/IjX2J4N8VWlMPzOu93HiR+0BgSzNCnsz/Bdbkpsaep/ +vnUjhb7dUy5qxJNVvkHhehQunhc/JUicvPHMOS0g36f0QOor+Z+aRT5n+7ZS +2Cp85dRL4ney3oGJxhTunYlzzyTmX+Hp/20vhV8MuY4ZEheHuvtlWFOY3Sxz +UJDYdNbVd9chCi/cvv6ng5x/dL/T6cITFLoaTO06TqxwwNHHxpnCQEf/OTni +Fw0O3rweFArn3LHoIfdrccVxr5N+FI4OHlpjRpyjdsxz9TkK7ePiQhfIfTXM +tfWoC6FQ+lxVJk0cnHDYjRFL4QatmO+LiKWXHHJtiqewuPqtcv4UDU8CbVxC +Uij8T9FfzJT4p4O1U88NCm/W7RO9QOrjWrel46Uscl69esqSxJv27jtpkEeh +Vc7I9D1ST74Ge06k36WQJ0n08TtSjxNCpnbWNRTauv4tMkTqt8ON8c7lJYWL +FD/3HCKufvETgt9QuFxArP01qffEwCKZ/HYKa2sHzDNIPmj0r+j9MUyhi15k +ogjJDzGDgd0C4xR2N072OQ2TfnHlaSVjmsIiFRvnCpI3b008MncuUDjrflna +nOSRR8nbIxnCLGxurzY0I/llzZffUCJG/KDVPvwTDZsdQtgvpFjYJ8hT94Dk +Hb+4ptSYAgvVb9htFyR5WByS/AENWLjM8YzP5R4ahs2tDn06wcJO2c1nxki+ +Nhes+2fOmYXbA9VEhttoeMTNo8/vycLq1MVL+kgex5SXSWgHsPDjZuW+2mYa +FGXEuqIusdDw0GzukUYaHL91HVApY+FyvQDn/jqST8Z/18NjFrYtCinPJv1D +O/viJstqFh7/q9XFtoYGHmsDsaDXLNRwsuBpJP0n72nG+8YeFpb82rM+5BHp +d3F21t5L5THje8A53btk/8OqDI0V8vjd7ctwJ4eG2R0/vn5dKY9jzPbtfsU0 +LOdOjnCWkMcXfub/5BeQ/x1Qe99unTy2W5YyP+fQEOQgL2y+Tx4f4v5fTf/v +r5tH36rclMcnX1i5jkE03Lr+8PpQjjzOBlS9unOW5MuPC4538uVxciTjz6cA +kqf3pRYYpfJoNHs23dqXBntlczWJ5/IY0CxUsYbMA/fWlMbxjshj5e64CD47 +GkzG/EwGtBWwUUmJ/y3QIKkpHclroIDx7kq/I9ikv3rX1ahsUcA9it23dPVJ +v5pZaeC9UwGLh5avuqpN5pX5ArUFWwVs3vX4vvI6GrxXfBAWj1HANL+6nWVk +HkpXwp5d3QrYoGnR5zRO5kN7Xp/7wYrYsGxhfTyZ375lGj2tuqCIU2VJtnFk +vhvrDFn6T4wi5tZZPIqK58B38x/X+1IUUdFDjts3mgOz+sN1AvmKeLfTZLnm +OQ4sEnmzxvmdIrpyO2kx7DkgXpfwSEpOCWe/NAn/UiPzICW6KKpGCQ2PB1Od +lcUg1CAff29MGXkXusqmWopAMvruHm1tVZz7ze9kcb8Q0lR0Vwo7rkOhgdwU +xfgCeC2xZeNkkhrORcuklxzMBz3JmkT1dnVMa5LZJDWfBwLc2aePhWngB+Pn +q24U3wbpUBkDG3lN3NF298JD3VxYxjpcZvFSEwvUn1QufpMNamzxu35HtHAN ++7fK9oAs8O4RqjXlWo+jfl0JsitvwdhknJVJ2np8GNSiEpSQATvUX6SbrNuA +H4o0gktkr0PlpP6v2cYNyDf7kVmZlgYeqlpdTQ4bcZanoz/a5gqwv51otVmm +jduO7jxduiIVtlFiZvzZ2vjAyURz07JkUAyJ9a/R0cHcizzlgpqJoOygW8Xq +0kHlEr8aCU4cOFQ6Xbh/ahMWuo63dAbFQNWt1hMTq3XR6q+2f0etImEqf2FW +vVwXsztfPZ+KDAd7VtGydDM9HAyyMJ5TCIUJ5RTt0nE99D0SNfvsbhA8zP3V +Nx2tj+EOiiPYEgAHjZioL22ABZ+fPWvx8oW17lEVatUGmPNUgidc3QdWL3cr +MdvPxsXJk+4Y5gW5W4MCx23YGLrV14rPzwu0guK3phxmo/lJ/dQPrl6we/xe +W8cxNv7Nv5c/2coLItunf9i7sZGrTCjPWMkL5rKDDQND2aikNO5al+MJXfop +LXlFbHRbrvDD2dwDnM7k3jCh2XhH9Hn5RT0PmKEfOIzeI+8vkQirYHmAEKNj +VrOMjW+z/mbp/naHnbxSkk+r2agqbb22vsAdnrTmnWhpY2NIy9B+2aXuYCrw +cJ1vBxsVewXOcE26QceOVzNi3WzUSbAzG+1xg6lHI9FH/2Njvdn5tZ/L3GBd +lgZnaJis98s/y8nRDZ50bfGN+8rGM6xWvrx9bmAqsg/Ux9nY+Nl62Ri4wcmo +M02np9loJN1TkCNG1quOTBedY6N++5Ch4BI3CPt51f7RTzYa3lM5FDnhCis3 +FKgemWejP6PgK2+PK2S6P5peWGAj2jlNX3ntCv8DX1G2GQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06049865316418098}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06049865316418098}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nlcTlsXB/CuSKSiokHj85ynWRNKw2MtCRWJVGQqkuZB0USaNEozEkWD +ND2HupQMlQpxFY0a3LpF0UCl0ZDe/f51Pt8/zv6cffZev7XkjntaOCzi4uLi ++YuL6//PmZ5XddTF3M2Cc5HLA5T0NrdmigVs6QgD123PpnMXRAFXvz0u1pEM +jg9l8zwWFMB3T+F77o5sCHrJFbtrQQdWfRNN/vG+FN7mDBTKLOyA3ie7Pafe +18CtQ7Nz1/7sh+3U8L8T75tBdcZeI/23I/x4r3N5/H0/WLLl5fOn/KB2653c +puxJGNossr6lKRokeysGj6vOQ/YMQ913WzKIuNkWLt3KjZ+Salyk2q5Csub2 +x7uteNEtojqQSsuAzjSN6omV/Oh9Z1t3p2UWXMwNfrtIfBXCuG5SQ18OiKZ+ +jEnJEMbvnV8+DCrlQZSlyebmmdV47bbRIArng49ulu2rMDHUlKz0OTZQAKa3 +BKZ2xolhD3fE68KRAmAsPRfdeFkMtYKvmo1PFMC7VuuSlnwx3LU6s93zTwGo +ea3g7mkUQ3+zo4MoWghf8vzyvkuIo+OCTJKycSEcFtn9de3f4niEsvkidqcQ +jMZ+Bnp8lECNxSMWO22KIMA4VfnZqASWp1blhB4tAjprXZfwjAQKz+qp37cv +AjFLO90K3rU4asac5vcogtGHz2e51dai0Ze2jalhRZASlnj6mv9abOZ3tx4p +LIL+1fIedfyS6FfhkVkzVwSinlVSoqKS6G/S0h48XwS76g80OMtKou0ux626 +i4qhLPCiquB6STyXFvXwFl8xxPaOD9sckMRrgpUChtLFoFXw2HEsm/i+2+5G +w2IINdh7TGKTFN5+icdXxBSD8dHM7zqGUtjaPxBefKkYBEJGwq12SeH6jx1K +xsnFcKM2Ii/RTgo3hnkv8r5eDA9NH43wxEjhe6beQAKnGMYPMH0nO6XQmkfA +depdMRw9Mx375qw09iUfCLcT4QDrqqHkcIQ05u5XUj4lxiH7T+AsTZTG5tE6 +qyBJDgT+VnpnmCuNrase6kdTHLgcfnR1xRtpdOwx2+a0gQNvkl7evC0lg1Xr +/nPau48DevS1++erZLBh5Z4f9Zc4YPS+cf5bvQyWqC8kCCRxYDfX4h22zTLY +pqFptCeVA/YWHp0wIIN8w11L6tM5sP2sXHDIElmc782cjL7DAS+ZmZwtKrL4 +aZVz3p5qDtQ53vxa6yuLx0K/L8x944DJb12hc2dlkatYoLRmggONia3aG0Jk +UWM9KyZ6igOdFctCcmNkUc/r5B3enxz4xndaKOKGLJ6edy7uWkyD2D1jne01 +siiamyL5QpwGt7mJkHp+OQzHN71PkAa9UyfXDArJYePSAmBvpYF3uKuIW0wO +JyUPUxXbaLjdXdu+mSGHVIPe+RxTGnoqL6s+0JbD3ldvQg0taTCP0O3IspVD +7a6d+oUnaZD+w3GvOiGHayIusD460TDqy+D+11kOF2Y+3hB1pSHaiU9N7LQc +KrWZb/TxpKF657/h8dFy2NeWJTntR4OWUKj62RI5/D1dvZ2KpoHr4nRdWpkc +3n6kbLwmloZGbpeDZY/lcHRc5D/uOBpcpy0iJp7LYfmTT21NCTTkdlDdjl1y +qOjHNbLpKg1rbtZHWnIzcPLSoOmG2zR8EmVLevMy8OlAOdd/eTSUJpaUJPAz +MKHDYX9UPtlPWPqH16IMzNuxari+iHyvg5vWFlUG6ihNlIuW0vBDZWXPOisG +1sYeSfn0lIaZDInQ9QfJei6OikZVNEwJsihdWwa2/PUy6WY1Dd8mdV2MnBl4 +Zdjqk0ktDf2P7WcOBjHwsWrsDbd6GnrXeVyzC2PgAxHhL4WvaPhw09/gZBQD +N764zT/wmob28Ethp5IYuEe7ZWhXAw2vd5YLRN9mYPS7oZ/DTTS8fPqs5FIh +A6ddrFV4W2ioU39jmXKXgXTlQ325VhoqhfvSMysYWDp2YmF7O9lv93KFBw0M +zJwpVzjWRUO661Hon2Zg+MhMwbs+Gq7+69T/+ScDZcK3aBf305Bq7hPxdYGB +n97N0+EfaYhfH/3P3DImak0vdZYfoCHsV8l+QWkm5sTprNH/QkOw+5OfIkwm +dqn0Ss4Qn+t9kSGhyERmfeQazhANvrXdH1laTDQuUx0UGCHnd3GJl8F2Jopq +2glkf6XBaV5Q2HAnE2Wex9cZfKPhpKdE2Y49TDz1Lfh0C7HdPvXfFgeZaJYt +8XxqjIYjz3VvHrBl4peg847B4zQc1DEyPHqCib8TxJfyTNBgudYm2tmDiSKV +3luWfqdh7yV7FU8fJorHTPwbSrx7wb3xtD8Tb31WPDtHbPwxTCQkjIkS7jsf +d07SYFBUfOvKFSbKj+11dZumoVu26Oa260xc7cJUekYceKUgc+omE/NiZXyE +ZmgoD827YVHAxOGbsXQhsfVs7vW/aCbWnT2dNUE85ZaTfq+UiX2vzzM3zpL7 +fuBWmsATJl6bHn9fQtzUkHn1aTUT7x/u4Bsh9tqaccXtORM9zXqbZOdoEKy4 +fnntaybq/XmhvI+YVktPfd3IROtNe0XDiM1y01ICWpiYuh/TOMSj4leTFTuY ++N1kP91GHJtwOen9ByZuSbA5+JNYaUlqYmQfE7s38WWs/UFDfWBywsZBJm4Y +0vDTJT45nhj/aZicb0vC0D7iJScTLqWMkfUef51yIc7tvhRnOMXEFTMr088T +b90bd3Fijon3HKo744n7X8TG3ppnIt/52vvXiUMNYmLMF1F4Yku/ym1i2dKo +6D88FDbjABQRVylERnH4KPzn+uUJDvHRjAuRh1dSOLTwZMv//VsoPIJvNYXe ++SzNAuLr0aEXHolTKHs0vTqLWO9PcLizNIV3fQfHrxB3+JwPE2NSGN/aVhNN +7Dd0LvSlAoVJgxt0/IjX2J4N8VWlMPzOu93HiR+0BgSzNCnsz/Bdbkpsaep/ +vnUjhb7dUy5qxJNVvkHhehQunhc/JUicvPHMOS0g36f0QOor+Z+aRT5n+7ZS +2Cp85dRL4ney3oGJxhTunYlzzyTmX+Hp/20vhV8MuY4ZEheHuvtlWFOY3Sxz +UJDYdNbVd9chCi/cvv6ng5x/dL/T6cITFLoaTO06TqxwwNHHxpnCQEf/OTni +Fw0O3rweFArn3LHoIfdrccVxr5N+FI4OHlpjRpyjdsxz9TkK7ePiQhfIfTXM +tfWoC6FQ+lxVJk0cnHDYjRFL4QatmO+LiKWXHHJtiqewuPqtcv4UDU8CbVxC +Uij8T9FfzJT4p4O1U88NCm/W7RO9QOrjWrel46Uscl69esqSxJv27jtpkEeh +Vc7I9D1ST74Ge06k36WQJ0n08TtSjxNCpnbWNRTauv4tMkTqt8ON8c7lJYWL +FD/3HCKufvETgt9QuFxArP01qffEwCKZ/HYKa2sHzDNIPmj0r+j9MUyhi15k +ogjJDzGDgd0C4xR2N072OQ2TfnHlaSVjmsIiFRvnCpI3b008MncuUDjrflna +nOSRR8nbIxnCLGxurzY0I/llzZffUCJG/KDVPvwTDZsdQtgvpFjYJ8hT94Dk +Hb+4ptSYAgvVb9htFyR5WByS/AENWLjM8YzP5R4ahs2tDn06wcJO2c1nxki+ +Nhes+2fOmYXbA9VEhttoeMTNo8/vycLq1MVL+kgex5SXSWgHsPDjZuW+2mYa +FGXEuqIusdDw0GzukUYaHL91HVApY+FyvQDn/jqST8Z/18NjFrYtCinPJv1D +O/viJstqFh7/q9XFtoYGHmsDsaDXLNRwsuBpJP0n72nG+8YeFpb82rM+5BHp +d3F21t5L5THje8A53btk/8OqDI0V8vjd7ctwJ4eG2R0/vn5dKY9jzPbtfsU0 +LOdOjnCWkMcXfub/5BeQ/x1Qe99unTy2W5YyP+fQEOQgL2y+Tx4f4v5fTf/v +r5tH36rclMcnX1i5jkE03Lr+8PpQjjzOBlS9unOW5MuPC4538uVxciTjz6cA +kqf3pRYYpfJoNHs23dqXBntlczWJ5/IY0CxUsYbMA/fWlMbxjshj5e64CD47 +GkzG/EwGtBWwUUmJ/y3QIKkpHclroIDx7kq/I9ikv3rX1ahsUcA9it23dPVJ +v5pZaeC9UwGLh5avuqpN5pX5ArUFWwVs3vX4vvI6GrxXfBAWj1HANL+6nWVk +HkpXwp5d3QrYoGnR5zRO5kN7Xp/7wYrYsGxhfTyZ375lGj2tuqCIU2VJtnFk +vhvrDFn6T4wi5tZZPIqK58B38x/X+1IUUdFDjts3mgOz+sN1AvmKeLfTZLnm +OQ4sEnmzxvmdIrpyO2kx7DkgXpfwSEpOCWe/NAn/UiPzICW6KKpGCQ2PB1Od +lcUg1CAff29MGXkXusqmWopAMvruHm1tVZz7ze9kcb8Q0lR0Vwo7rkOhgdwU +xfgCeC2xZeNkkhrORcuklxzMBz3JmkT1dnVMa5LZJDWfBwLc2aePhWngB+Pn +q24U3wbpUBkDG3lN3NF298JD3VxYxjpcZvFSEwvUn1QufpMNamzxu35HtHAN ++7fK9oAs8O4RqjXlWo+jfl0JsitvwdhknJVJ2np8GNSiEpSQATvUX6SbrNuA +H4o0gktkr0PlpP6v2cYNyDf7kVmZlgYeqlpdTQ4bcZanoz/a5gqwv51otVmm +jduO7jxduiIVtlFiZvzZ2vjAyURz07JkUAyJ9a/R0cHcizzlgpqJoOygW8Xq +0kHlEr8aCU4cOFQ6Xbh/ahMWuo63dAbFQNWt1hMTq3XR6q+2f0etImEqf2FW +vVwXsztfPZ+KDAd7VtGydDM9HAyyMJ5TCIUJ5RTt0nE99D0SNfvsbhA8zP3V +Nx2tj+EOiiPYEgAHjZioL22ABZ+fPWvx8oW17lEVatUGmPNUgidc3QdWL3cr +MdvPxsXJk+4Y5gW5W4MCx23YGLrV14rPzwu0guK3phxmo/lJ/dQPrl6we/xe +W8cxNv7Nv5c/2coLItunf9i7sZGrTCjPWMkL5rKDDQND2aikNO5al+MJXfop +LXlFbHRbrvDD2dwDnM7k3jCh2XhH9Hn5RT0PmKEfOIzeI+8vkQirYHmAEKNj +VrOMjW+z/mbp/naHnbxSkk+r2agqbb22vsAdnrTmnWhpY2NIy9B+2aXuYCrw +cJ1vBxsVewXOcE26QceOVzNi3WzUSbAzG+1xg6lHI9FH/2Njvdn5tZ/L3GBd +lgZnaJis98s/y8nRDZ50bfGN+8rGM6xWvrx9bmAqsg/Ux9nY+Nl62Ri4wcmo +M02np9loJN1TkCNG1quOTBedY6N++5Ch4BI3CPt51f7RTzYa3lM5FDnhCis3 +FKgemWejP6PgK2+PK2S6P5peWGAj2jlNX3ntCv8DX1G2GQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06049865316418098}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06049865316418098}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993828006411195*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"51bc800c-817f-47c7-a327-bb03759b8252"] +}, Open ]], Cell[CellGroupData[{ @@ -11311,66 +12640,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + "In[131]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 116, 57, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068365192`*^9}, - CellLabel-> - "During evaluation of \ -In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.2363187726580674`*^-171\\\", \ \\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ 116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506846985*^9}, +lost.\"", 2, 131, 61, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.993828006451853*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +In[131]:=",ExpressionUUID->"f9f2568d-7b78-4381-9fce-ab248535fe70"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.456096234151895`*^-175\\\", \ \\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ 2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ \\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 116, 59, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326506856045*^9}, +be lost.\"", 2, 131, 62, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.993828006461232*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +In[131]:=",ExpressionUUID->"66de02d1-fa60-451c-97de-ce2db4d90c26"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.783748099812641`*^-178\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 131, 63, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.993828006470031*^9}, + CellLabel-> + "During evaluation of \ +In[131]:=",ExpressionUUID->"a954e8ac-c961-4163-8499-21c061269cf9"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 116, 60, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265068640423`*^9}, +during this calculation.\"", 2, 131, 64, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265068365192`*^9, 3.993828006478307*^9}, CellLabel-> "During evaluation of \ -In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +In[131]:=",ExpressionUUID->"8534d717-39e3-4d1e-af5b-8b46cb1f5485"], -Cell[BoxData["11.275343508404701`"], "Output", - CellChangeTimes->{3.991326513010317*^9}, +Cell[BoxData["12.866458372343258`"], "Output", + CellChangeTimes->{3.991326513010317*^9, 3.993828051644458*^9}, CellLabel-> - "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] + "Out[131]=",ExpressionUUID->"62e3f952-94a4-4261-bd12-3d5f773787f3"] }, Open ]], Cell[CellGroupData[{ @@ -11437,68 +12770,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998502248*^9, - 3.9917998584727135`*^9}},ExpressionUUID->"df92a918-12ed-ff47-a8a8-\ -122296a3d634"], + CellChangeTimes->{{3.9917998502248*^9, 3.9917998584727135`*^9}}, + CellLabel-> + "In[132]:=",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 117, 61, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130447063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.8314057325572496`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 132, 65, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.9938280516904716`*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +In[132]:=",ExpressionUUID->"9aeb92e4-4d82-43fb-be1b-cca480812bfd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 62, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513053705*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6833535842032898`*^-224\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 132, 66, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993828051698512*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +In[132]:=",ExpressionUUID->"4b7b9469-a3c9-4869-b764-bee719f92274"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 117, - 63, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265130617065`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.865123830016658`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 132, 67, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993828051706056*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +In[132]:=",ExpressionUUID->"43e0e9f9-fc81-466d-99a1-84a8722265ad"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 117, 64, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326513069849*^9}, +during this calculation.\"", 2, 132, 68, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265130447063`*^9, 3.993828051713312*^9}, CellLabel-> "During evaluation of \ -In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +In[132]:=",ExpressionUUID->"051e4a00-abed-49b9-8978-5da82cef2017"], -Cell[BoxData["1.662840304462236`"], "Output", - CellChangeTimes->{3.9913265201819115`*^9}, +Cell[BoxData["0.4112554553294695`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9, 3.993828058447454*^9}, CellLabel-> - "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] + "Out[132]=",ExpressionUUID->"a327e1ff-6f12-4ad1-aaf3-6a3b07258672"] }, Open ]], Cell[CellGroupData[{ @@ -11519,8 +12856,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11565,68 +12901,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9917998626681576`*^9, - 3.991799866004116*^9}},ExpressionUUID->"1990573a-00f1-b54c-9d39-\ -9c68738afe07"], + CellChangeTimes->{{3.9917998626681576`*^9, 3.991799866004116*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 118, 65, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520216116*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.8314057325572496`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 133, 69, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.99382805848188*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +In[133]:=",ExpressionUUID->"ae37e26f-cde6-47d8-b22e-8c580a1736f5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 66, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520226103*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6833535842032898`*^-224\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 133, 70, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993828058488446*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +In[133]:=",ExpressionUUID->"2f04021e-438c-40ae-87e4-2420d36ab5c2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 118, - 67, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265202341022`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.865123830016658`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 133, 71, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993828058495191*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +In[133]:=",ExpressionUUID->"62860a5f-e862-4c41-bd0e-eb8c48d9f600"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 118, 68, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326520242243*^9}, +during this calculation.\"", 2, 133, 72, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326520216116*^9, 3.993828058503748*^9}, CellLabel-> "During evaluation of \ -In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +In[133]:=",ExpressionUUID->"32f2cb68-3d5d-4be7-ba4b-a9297850f810"], -Cell[BoxData["8.698310175000124`"], "Output", - CellChangeTimes->{3.9913265264075394`*^9}, +Cell[BoxData["43.13973487562887`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9, 3.9938280648287477`*^9}, CellLabel-> - "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] + "Out[133]=",ExpressionUUID->"37446545-e465-43c0-8651-f89254b61cb4"] }, Open ]], Cell[CellGroupData[{ @@ -11647,8 +12987,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11693,68 +13032,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799871682028*^9, - 3.9917998792226925`*^9}},ExpressionUUID->"586f2005-dac7-8547-be11-\ -766f96e6af5d"], + CellChangeTimes->{{3.991799871682028*^9, 3.9917998792226925`*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.0477424193919687`*^-193\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 119, 69, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264435444`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.8314057325572496`*^-219\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 134, 73, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.9938280648667*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +In[134]:=",ExpressionUUID->"29f6e2d6-843b-49f2-8ec8-3561963582ef"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.9899737716109268`*^-197\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 70, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264535427`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.6833535842032898`*^-224\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 134, 74, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.9938280648732433`*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +In[134]:=",ExpressionUUID->"69cbb3dc-57c2-4770-9243-b6f52f5a09c8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.299320961805375`*^-201\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 119, - 71, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265264615555`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.865123830016658`*^-230\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 134, 75, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993828064879438*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +In[134]:=",ExpressionUUID->"144d74b8-dcc9-440c-80af-f99e6890e802"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 119, 72, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326526468542*^9}, +during this calculation.\"", 2, 134, 76, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265264435444`*^9, 3.993828064887289*^9}, CellLabel-> "During evaluation of \ -In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +In[134]:=",ExpressionUUID->"77f3ef94-790d-493b-aafa-d6456c98a5cf"], -Cell[BoxData["16.721244215445346`"], "Output", - CellChangeTimes->{3.9913265299431496`*^9}, +Cell[BoxData["7.85047136137996`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9, 3.993828068749642*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] + "Out[134]=",ExpressionUUID->"6f2b0508-d84d-4636-9e48-f8cf3d22d56e"] }, Open ]], Cell[CellGroupData[{ @@ -11763,22 +13106,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9917998836260815`*^9, - 3.991799887334032*^9}},ExpressionUUID->"363f609f-6fd9-cc4c-924f-\ -14ef82ef0962"], - -Cell[BoxData["0.13787921511838797`"], "Output", - CellChangeTimes->{3.991326529975149*^9}, + CellChangeTimes->{{3.9917998836260815`*^9, 3.991799887334032*^9}}, CellLabel-> - "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] + "In[135]:=",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], + +Cell[BoxData["0.02234730051822872`"], "Output", + CellChangeTimes->{3.991326529975149*^9, 3.993828068789549*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"c2166dae-8bee-4ddb-b65c-70893dd09821"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991799895862177*^9, 3.9917998977747803`*^9}, - 3.991924340381132*^9},ExpressionUUID->"32c57f0b-017d-d340-92c6-\ -0f56a212e9c3"], + 3.991924340381132*^9}, + CellLabel-> + "In[136]:=",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ @@ -11801,12 +13145,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + "In[137]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913265300040226`*^9}, +Cell[BoxData["15.119524098317191`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9, 3.993828068804348*^9}, CellLabel-> - "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] + "Out[137]=",ExpressionUUID->"2972fe0d-f12c-4fd9-be94-e7d4ceddb6e9"] }, Open ]], Cell[CellGroupData[{ @@ -11816,12 +13160,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + "In[138]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.991326530052025*^9}, +Cell[BoxData["2.490348587370842`"], "Output", + CellChangeTimes->{3.991326530052025*^9, 3.993828068812463*^9}, CellLabel-> - "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] + "Out[138]=",ExpressionUUID->"0540d8cc-d612-4575-a603-43b4e11ddb80"] }, Open ]], Cell[CellGroupData[{ @@ -11831,12 +13175,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + "In[139]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913265300922585`*^9}, +Cell[BoxData["37.65288547996362`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9, 3.9938280688210506`*^9}, CellLabel-> - "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] + "Out[139]=",ExpressionUUID->"39662ea8-c7a1-4bfc-aeb3-42b3d7658241"] }, Open ]], Cell[CellGroupData[{ @@ -12026,12 +13370,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + "In[140]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[BoxData["0.022635100966331548`"], "Output", - CellChangeTimes->{3.9913265301172295`*^9}, +Cell[BoxData["0.004886525678747835`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9, 3.993828068834875*^9}, CellLabel-> - "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] + "Out[140]=",ExpressionUUID->"f968a21f-5c22-4beb-b92f-1f869da5638a"] }, Open ]], Cell[CellGroupData[{ @@ -12045,12 +13389,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + "In[141]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[BoxData["5.890521190513567`"], "Output", - CellChangeTimes->{3.991326530210228*^9}, +Cell[BoxData["12.677827784268692`"], "Output", + CellChangeTimes->{3.991326530210228*^9, 3.993828068934204*^9}, CellLabel-> - "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] + "Out[141]=",ExpressionUUID->"81cb0045-73c2-4b31-ad0b-a04478766e0b"] }, Open ]], Cell[CellGroupData[{ @@ -12242,12 +13586,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + "In[142]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[BoxData["0.012260254107801566`"], "Output", - CellChangeTimes->{3.9913265302252293`*^9}, +Cell[BoxData["0.02487331052658347`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9, 3.993828068946405*^9}, CellLabel-> - "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] + "Out[142]=",ExpressionUUID->"045dd38e-8e5d-498c-be43-612eb8d28851"] }, Open ]], Cell[CellGroupData[{ @@ -12261,12 +13605,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + "In[143]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[BoxData["8.003781147223087`"], "Output", - CellChangeTimes->{3.9913265303172264`*^9}, +Cell[BoxData["5.619247289884891`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9, 3.993828069044483*^9}, CellLabel-> - "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] + "Out[143]=",ExpressionUUID->"20bc5ffc-f14c-4434-b48c-4693e2320888"] }, Open ]], Cell[CellGroupData[{ @@ -12359,12 +13703,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + "In[144]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.9913265303292294`*^9}, +Cell[BoxData["0.10999833674656989`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9, 3.9938280690558977`*^9}, CellLabel-> - "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] + "Out[144]=",ExpressionUUID->"45f1d622-26bf-44d1-960d-0870456e1ef9"] }, Open ]], Cell[CellGroupData[{ @@ -12454,12 +13798,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + "In[145]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991326530340416*^9}, +Cell[BoxData["0.8900016632534301`"], "Output", + CellChangeTimes->{3.991326530340416*^9, 3.993828069065714*^9}, CellLabel-> - "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] + "Out[145]=",ExpressionUUID->"359bb0ec-1bac-4833-854a-3b5bba27c11f"] }, Open ]], Cell[CellGroupData[{ @@ -12582,12 +13926,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + "In[146]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991326530367384*^9}, +Cell[BoxData["0.0978987026595581`"], "Output", + CellChangeTimes->{3.991326530367384*^9, 3.993828069075581*^9}, CellLabel-> - "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] + "Out[146]=",ExpressionUUID->"9b3c80b3-158d-4d89-b1da-09db32e3cf13"] }, Open ]], Cell[CellGroupData[{ @@ -12649,68 +13993,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799912745739*^9},ExpressionUUID->"c3883d3a-8a99-644a-9175-\ -a97b5c6c44f4"], + CellChangeTimes->{3.991799912745739*^9}, + CellLabel-> + "In[147]:=",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 135, 73, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265303923836`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.0711903264416777`*^-214\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 147, 77, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.993828069087304*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +In[147]:=",ExpressionUUID->"90b1978e-c389-4276-a7b3-dd8b5a660454"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 135, 74, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304013824`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4108777984257422`*^-219\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 147, 78, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9938280690933447`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +In[147]:=",ExpressionUUID->"ddf3be70-c982-41d3-8715-c01008445436"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 135, - 75, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304095325`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.481448397882193`*^-225\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 147, 79, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.9938280690994787`*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +In[147]:=",ExpressionUUID->"5456d2ff-001b-4af2-aa20-b315098423a5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 135, 76, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265304175396`*^9}, +during this calculation.\"", 2, 147, 80, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265303923836`*^9, 3.993828069105318*^9}, CellLabel-> "During evaluation of \ -In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +In[147]:=",ExpressionUUID->"1ad41e45-cce7-49d9-a36a-e2dce1dcdda7"], -Cell[BoxData["5.890521190513565`"], "Output", - CellChangeTimes->{3.9913265339749985`*^9}, +Cell[BoxData["12.677827784268704`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9, 3.993828072759714*^9}, CellLabel-> - "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] + "Out[147]=",ExpressionUUID->"9c5a8a54-1694-45e4-aed9-6b5283b1c02a"] }, Open ]], Cell[CellGroupData[{ @@ -12772,68 +14120,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9917999175346184`*^9},ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-\ -bed1f30b804b"], + CellChangeTimes->{3.9917999175346184`*^9}, + CellLabel-> + "In[148]:=",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 136, 77, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340092525`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.0711903264416777`*^-214\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 148, 81, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.993828072797084*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +In[148]:=",ExpressionUUID->"d7f8d528-17c2-481a-81a8-3409dce3b91d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 136, 78, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340202503`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4108777984257422`*^-219\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 148, 82, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.9938280728034487`*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +In[148]:=",ExpressionUUID->"8865c826-5939-47b9-83d1-1d0d9a7c30f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 136, - 79, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340282536`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.481448397882193`*^-225\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 148, 83, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.993828072809173*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +In[148]:=",ExpressionUUID->"84286ab2-2751-4fa0-ac88-b09fe5899b9e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 136, 80, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913265340354958`*^9}, +during this calculation.\"", 2, 148, 84, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913265340092525`*^9, 3.993828072815062*^9}, CellLabel-> "During evaluation of \ -In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +In[148]:=",ExpressionUUID->"2f3197a0-b880-47fc-b217-8b8dda949953"], -Cell[BoxData["8.00378114722308`"], "Output", - CellChangeTimes->{3.9913265375649567`*^9}, +Cell[BoxData["5.619247289884895`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9, 3.993828076386414*^9}, CellLabel-> - "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] + "Out[148]=",ExpressionUUID->"1bfb2363-eedc-4063-b834-bd6585076bb6"] }, Open ]], Cell[CellGroupData[{ @@ -12891,92 +14243,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9917999220519733`*^9},ExpressionUUID->"d5c5d0e8-862b-f245-8b21-\ -eac61b5b75d3"], + CellChangeTimes->{3.9917999220519733`*^9}, + CellLabel-> + "In[149]:=",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0VV0YB2BzMhQJIcpYl5RcRKr9ZixThgoZ0nXvMWRW0oBKKoUk4itD +GUoyhJKQFJUkhChRxnvN4z0pDb7tj7POetZe512//e5hHXmavy2Di4ODYxg/ +S+/Aps0bnrY07TJptT88EMtCuyaztWlG+WgTx4rYJfdm6CQqGVWhQ77qEoPY +1vQPfELU18hNpmxhycWhEbW8Ro3IVjh3OxM7+s2amoi8j0jKlLuDhf2sJTD9 +j+YnJNH0tnEEe7Sr4czJys8oPZeUG8eWHlJ0+mHYjfZ8i2mcxDafOqMX3Pgd +PT8R+2kGu/rPqGBoXh/6FT6vR2J3nJM8XeY3gLgWG379xJ7kMxplaw4hXh5+ +8b/YfDEBjtR5JiJuF17ljGMhOdG0+sDKYfSqrdqFD9tK5se9ScNxZOixdrUo +NnFHQUKdfxLZDHn9lMCOUN4XdbRxCkmZyevKYn+WbN96LG8GnZJueqeKTT/k +7XUjZhbZldTKaGJPp3LcLfGbQybRiu/0sPkV1EVmNEn0ylFBxww7kV5rKiL+ +A32+/JK0xV5/3zFiy/wPtI72XsQZW3fTxUnfyp+o7so6R39sT53vjaOGf5DO +jg+at7DZocd5BFT+onv6rz/kYJ+tFNxB4f+H5mc31hVjp4DuQ4/GRSSoolXb +sJQvp94oKI8TeCiuApzXWCjvzY3eczJcoOVdfnYl9jTL9cz1GC7YWhlhK4d9 +RpUsfeTHDdusDvLvxE4sklec0uQF6bcbn4djd7WMV//L4oUDQjMr4rHXzz49 +tEKcD9S4N1bdxc7XskpQn+eD5+P9G99g1z07xelTyQ8J6Ia5WDwLkbVt34cN +hYC6VaKsGnuVhZDI6Woh2HVxdWkntka7EQjrCcNwRazMDLb34JM7WzevgCem +s5uVr7NQAFejxk4hEZgcjjucgD2kUDgT9UMU7EyCh88m4P4QDcubqaug38M6 +7Q4210Om/JrAVbCMWvS8Bns9dZ1t3tgqiCqaA64bLHTIML6kqVcM6L9zbK5g +N7sHBUu+F4fSFoXUwkQW+nY/7qobvwSkKtkv/4Q9PpaX9cBYAlTCxPt/Ywsc +G2jTr5EAt2jNDrMkFjK6sF/L7YkkDJz9Vz+BXZGtQ+ZmSEFzPPHFNJmFsocW +QrYfk4UT74XyLG6x0J4Dl74FF8iCDz9NIgx7vE7MpIApCxWcMb0F2FrZm8TX +O8qB8n23OJHbuJ8011LeXetgjZ+cdRf27FTvieHI9TBACfOJSGMhMV+jx6WW +CqDsGCMscpeFmNkCntbeCjDoXattgV3e3SIzcVEB2BZDlZexnS1cIlVqFGAx +bryPKxPnUwux/U9TEdruyiX9xtYavT8dLqkEeVYvU/5ls9B+D0F1sz5lqC6q +lDZ/wEIo5ICm/V9lKBnuTb6OrRqVsY0upQI/nOj+n7E5sqgG4TYqcN4mWt0j +j4UKvjnZl7xUAQ5bd+blh/h8Hsw/J525Ac5dkzLvKcD5jCw7RmkUsMhuZr4r +YaEsu+Sv8+EUmHkRUCxTykJxtL5entsUkBuK6fDFpp89PibXRoFXits1xB6z +kGhVGoedoSocvRIpT3uC9w91UrVSUQ3yCgr+iJSzkIzCtYirg5vgzz/v1JLn +LFR1hU35xaUO4kUNdySrcT/mHNsJeXVIv1K/Mgw7vU6JYuCqDkLbs9X3vmAh +BY+K1p+d6iD6g9OLWYPnmz+kTLzfDC9Oxn3XqmMhWRk5Yr2jBggKD3ySf89C +m3KOCf1GmqD/unz7ji4WotEjSXUrTVhY89GzFDtFMeGbm7MmeF+WYqt+ZSHu +zKJHb0I1oYoTFGS68XlLH92fUKwJ0aH8PYs9+D5NcUujKFLBOKLkQ1cfXt+r +Fpsd+LTg6Omh7I4RFrobpGT9pFEbdPLSQpkLLNQSgrZdyNEDXausZ0ylYSTv ++snKxWcn8NONFT7vH0aMxbJC2ZMAT+Z1RZIuDSPJsfJlkjQDeBXQzr/19TA6 +Rt3RnaBqBKc7rT3GeEYQbeJPvdioMWy8qSG4Y+8IKjAIXpbRbAqXLQ5Jjfw3 +grLZ3i/zE/eCyLJupv3YCPq5e82HughziO5t47ExG0U9HNwzfUcsocVeyn9f +4SjyW+sff05xH3iZbGLFiY6hQq/6mqQoaxDkfEjLjxxDp+ak5tW8bGCyLUNy +E3sMkWYmB98etoUrkUVjIcfGkZ7T9d1DNnagXsx9t+znOGqVSvOuo+4H+dK9 +MZEnJ5D0vciq3I0HYJ29gUGLwCQq71W1sBI+CC83htwIS55Ecu3THiETByFK +k6FWrzyFqEnX87N67cFedFIko24KpfHMbU6odQCvLYdtzDdPo7LdW7qinjmC +qvUhAffz0yhl2xXRP3mHYIbO6eDSMY2av+ZcpMY4QbuSXGW68gx6YpmqFHDW +GQrmhUXUzsygGV87Dj+6CxSnTU5If5hBpAnFc9LQFY6nbtCgrJ1FuRNffgbr +HAanrNz5tYGzyOFujruLkBu8PRJwWuLFLCotMT/MfckNMuS+DqWKziE9mdZf +0b/cwO1xxbyO8xxS7PXo+uh1BHoSuPUiMufQoODRfakDR2DS637g8Ogcaomz +cjc9QIPqvIMXrVXZKDE0Q/B4Cw1OZJ5C7V5sVFW9+Mt9rzt8Xu310CKTjVY6 +wyVqhTuc87i+fOtHNlq/+m3z2ip38K+P9pjC1mi0XMNX7Q4iR0vtClrZyHaH +04PPL93BQFu0Y0M7rr825H3YO3fYVasXIdnJRtI9D1fWf3YHJ7NY475uNlJy +lUxxnneHoPW65bLDbKTnNpkbpUWHK+2f11H/stG9/6aDrXTo0KRDOL3DXt02 +u0tSlw67hl9uOvyPjSaN59tz9emg7RgZH73IxvcXB2ejAR1uZV11/MJJohXz +oo6rbOiQqvyhm85HosFY7eUZvnTIPivOo7aSRHGVZ7zK79HBef/lEb91JPLV +TNYLzaXDwolvJ1nYFg+Kl+vm0cHy57v0w+tJJJDMfPC0gA4pg6vvWcmTKCrI +erTsMR3cSz1zNyiS6AxF6eiTV3So21d49LUKibyT3/uUfKNDhDvFt0idRHtX +MHcE9dJBfiDIR3oziTZGcQhr9tPh8dcV/y5gM4O0C4qHcD7phU6HLSQ6YpUx +8WicDufv1tF/a5DIgTfYr2iBDrEdN9vUtEhkGiwdkC/BgP5EviS97fg/I+Oi +WcIaBqS8LsxKx97ROKsUKs2Ast3fN3Prk0hD+f0XQzkGKE3FVDRgS3WeNvyq +zACHtYI5djtJNLa9R0JAmwEjtkfKLIBE17juPPewY0DTQI/lV2M8/y1CKZYH +GDBqHtCwxYREF5xCg6j22Gn2LyOxQx9bb1g8xIDbvwZlVU1xfoLz+k0aA+62 +oviAPSSiNtDorwMZwK4ItBg0I1HndWVBxXgGTD58XUnsI1EhEvYcvs6ACErO +QA72hQl2XcENBhiciU0axNbcWxeum8yAoAarZDdrvH4c7rOW6QzYxwgWtbMh +kYn/nS+h+Qy4rBzRKW9HIlnZyzq7ChlgPr3ptiM2u8H/BvcjXI/TeDgeO1MF +WcaVMiDsT5zcP+y/PT01WRW4X81XF1r3k+ixhUxuUz0D5EWPexIHSXR1gYs3 +sYEBkfduVd/EpuWOHnFsZMD4+Yy0N9giPBUyg814Pbg2/FCyJ5FPpcO1Xx0M +2CRqI9KNrah6M0RpiAH+PEH9VEcSLXSGtY0wGUDzmXvljN0SxdAoGmbAq+/d +alHY4X1ao3rjDOBvbbzZjt2V0uayb44BXFkeLb6HSJSwTNT4FCcBoec4PkQ7 +kahqtsfpGDcBNrftBYuwWT15QX68BDDbVR+3Ye94bHSHtpyAft4NxjLOeL+5 +hf42EyWg5t099yxsEQvjVcZiBLQGriBrsfW3raIgcQJmFMqnB7DjhfMPUqUI +UGaVqSi44PGK78Uy8gSk1hTEJGMTOfn14ooEHMsI8C/Fjo8/+X2lMgGJhoZV +TdhMQkyYh0JApjBnIrcrHhcz9RzXIECKaaxPYFf8E4tgahJw2nrCNwx7aKQ3 +qVeLgDXipwQSsbfXnKpt1yWAbNQ49wJ70KdQ7jkQ8P1ZEn3lYXzeHU5rPzUg +4GL3yJA8tp7hHotiIwIkGzk+UrHjpPpP5uwhgEPBc/AAdjlPUXyGGQE7DxcL +EdgDU6fv/2dBAEWyKP04tu4b8U+x1gR8W6xYTMCmFfePXbIl4Dd3bdMd7NjU +Iq7z+wnwpgQvK8TuD9qrEeJAAHTVPHmDLewqYRpwiIAkbUe11qV6ewdcvJ0J +WGt7TaBn6ft1YVdd3QjQb3jPO7OUR8As04GG889+kF9YqkdKPLOlExBwnHGf +yw3X6xtotiAIcL0cf1MAW7fxEdPEkwDLs5ZToti0p2F/wZuA9o+3itdgx2aa +rdb3IWCr6IkeOezyWEk1bT+cb7Y3SAm7P3Rw95YAAo7v6QykYAvRix0oQQRM +8zl2qWNv2xfur3iMgKPAyN+6VH+7+UXZEAL2bPjN0sKOUV6TJhlKQKSwdOw2 +7DKRoVLRUwQ8p7+8rYfd97u4QfAMAburp8X0l+qzwvt4wwmYbbhPLlmn1fzn +YgQBLk5M2IH9P2xe8PM= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12990,104 +14344,106 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1nk0VV0YB2BzMhQJIcpYl5RcRKr9ZixThgoZ0nXvMWRW0oBKKoUk4itD +GUoyhJKQFJUkhChRxnvN4z0pDb7tj7POetZe512//e5hHXmavy2Di4ODYxg/ +S+/Aps0bnrY07TJptT88EMtCuyaztWlG+WgTx4rYJfdm6CQqGVWhQ77qEoPY +1vQPfELU18hNpmxhycWhEbW8Ro3IVjh3OxM7+s2amoi8j0jKlLuDhf2sJTD9 +j+YnJNH0tnEEe7Sr4czJys8oPZeUG8eWHlJ0+mHYjfZ8i2mcxDafOqMX3Pgd +PT8R+2kGu/rPqGBoXh/6FT6vR2J3nJM8XeY3gLgWG379xJ7kMxplaw4hXh5+ +8b/YfDEBjtR5JiJuF17ljGMhOdG0+sDKYfSqrdqFD9tK5se9ScNxZOixdrUo +NnFHQUKdfxLZDHn9lMCOUN4XdbRxCkmZyevKYn+WbN96LG8GnZJueqeKTT/k +7XUjZhbZldTKaGJPp3LcLfGbQybRiu/0sPkV1EVmNEn0ylFBxww7kV5rKiL+ +A32+/JK0xV5/3zFiy/wPtI72XsQZW3fTxUnfyp+o7so6R39sT53vjaOGf5DO +jg+at7DZocd5BFT+onv6rz/kYJ+tFNxB4f+H5mc31hVjp4DuQ4/GRSSoolXb +sJQvp94oKI8TeCiuApzXWCjvzY3eczJcoOVdfnYl9jTL9cz1GC7YWhlhK4d9 +RpUsfeTHDdusDvLvxE4sklec0uQF6bcbn4djd7WMV//L4oUDQjMr4rHXzz49 +tEKcD9S4N1bdxc7XskpQn+eD5+P9G99g1z07xelTyQ8J6Ia5WDwLkbVt34cN +hYC6VaKsGnuVhZDI6Woh2HVxdWkntka7EQjrCcNwRazMDLb34JM7WzevgCem +s5uVr7NQAFejxk4hEZgcjjucgD2kUDgT9UMU7EyCh88m4P4QDcubqaug38M6 +7Q4210Om/JrAVbCMWvS8Bns9dZ1t3tgqiCqaA64bLHTIML6kqVcM6L9zbK5g +N7sHBUu+F4fSFoXUwkQW+nY/7qobvwSkKtkv/4Q9PpaX9cBYAlTCxPt/Ywsc +G2jTr5EAt2jNDrMkFjK6sF/L7YkkDJz9Vz+BXZGtQ+ZmSEFzPPHFNJmFsocW +QrYfk4UT74XyLG6x0J4Dl74FF8iCDz9NIgx7vE7MpIApCxWcMb0F2FrZm8TX +O8qB8n23OJHbuJ8011LeXetgjZ+cdRf27FTvieHI9TBACfOJSGMhMV+jx6WW +CqDsGCMscpeFmNkCntbeCjDoXattgV3e3SIzcVEB2BZDlZexnS1cIlVqFGAx +bryPKxPnUwux/U9TEdruyiX9xtYavT8dLqkEeVYvU/5ls9B+D0F1sz5lqC6q +lDZ/wEIo5ICm/V9lKBnuTb6OrRqVsY0upQI/nOj+n7E5sqgG4TYqcN4mWt0j +j4UKvjnZl7xUAQ5bd+blh/h8Hsw/J525Ac5dkzLvKcD5jCw7RmkUsMhuZr4r +YaEsu+Sv8+EUmHkRUCxTykJxtL5entsUkBuK6fDFpp89PibXRoFXits1xB6z +kGhVGoedoSocvRIpT3uC9w91UrVSUQ3yCgr+iJSzkIzCtYirg5vgzz/v1JLn +LFR1hU35xaUO4kUNdySrcT/mHNsJeXVIv1K/Mgw7vU6JYuCqDkLbs9X3vmAh +BY+K1p+d6iD6g9OLWYPnmz+kTLzfDC9Oxn3XqmMhWRk5Yr2jBggKD3ySf89C +m3KOCf1GmqD/unz7ji4WotEjSXUrTVhY89GzFDtFMeGbm7MmeF+WYqt+ZSHu +zKJHb0I1oYoTFGS68XlLH92fUKwJ0aH8PYs9+D5NcUujKFLBOKLkQ1cfXt+r +Fpsd+LTg6Omh7I4RFrobpGT9pFEbdPLSQpkLLNQSgrZdyNEDXausZ0ylYSTv ++snKxWcn8NONFT7vH0aMxbJC2ZMAT+Z1RZIuDSPJsfJlkjQDeBXQzr/19TA6 +Rt3RnaBqBKc7rT3GeEYQbeJPvdioMWy8qSG4Y+8IKjAIXpbRbAqXLQ5Jjfw3 +grLZ3i/zE/eCyLJupv3YCPq5e82HughziO5t47ExG0U9HNwzfUcsocVeyn9f +4SjyW+sff05xH3iZbGLFiY6hQq/6mqQoaxDkfEjLjxxDp+ak5tW8bGCyLUNy +E3sMkWYmB98etoUrkUVjIcfGkZ7T9d1DNnagXsx9t+znOGqVSvOuo+4H+dK9 +MZEnJ5D0vciq3I0HYJ29gUGLwCQq71W1sBI+CC83htwIS55Ecu3THiETByFK +k6FWrzyFqEnX87N67cFedFIko24KpfHMbU6odQCvLYdtzDdPo7LdW7qinjmC +qvUhAffz0yhl2xXRP3mHYIbO6eDSMY2av+ZcpMY4QbuSXGW68gx6YpmqFHDW +GQrmhUXUzsygGV87Dj+6CxSnTU5If5hBpAnFc9LQFY6nbtCgrJ1FuRNffgbr +HAanrNz5tYGzyOFujruLkBu8PRJwWuLFLCotMT/MfckNMuS+DqWKziE9mdZf +0b/cwO1xxbyO8xxS7PXo+uh1BHoSuPUiMufQoODRfakDR2DS637g8Ogcaomz +cjc9QIPqvIMXrVXZKDE0Q/B4Cw1OZJ5C7V5sVFW9+Mt9rzt8Xu310CKTjVY6 +wyVqhTuc87i+fOtHNlq/+m3z2ip38K+P9pjC1mi0XMNX7Q4iR0vtClrZyHaH +04PPL93BQFu0Y0M7rr825H3YO3fYVasXIdnJRtI9D1fWf3YHJ7NY475uNlJy +lUxxnneHoPW65bLDbKTnNpkbpUWHK+2f11H/stG9/6aDrXTo0KRDOL3DXt02 +u0tSlw67hl9uOvyPjSaN59tz9emg7RgZH73IxvcXB2ejAR1uZV11/MJJohXz +oo6rbOiQqvyhm85HosFY7eUZvnTIPivOo7aSRHGVZ7zK79HBef/lEb91JPLV +TNYLzaXDwolvJ1nYFg+Kl+vm0cHy57v0w+tJJJDMfPC0gA4pg6vvWcmTKCrI +erTsMR3cSz1zNyiS6AxF6eiTV3So21d49LUKibyT3/uUfKNDhDvFt0idRHtX +MHcE9dJBfiDIR3oziTZGcQhr9tPh8dcV/y5gM4O0C4qHcD7phU6HLSQ6YpUx +8WicDufv1tF/a5DIgTfYr2iBDrEdN9vUtEhkGiwdkC/BgP5EviS97fg/I+Oi +WcIaBqS8LsxKx97ROKsUKs2Ast3fN3Prk0hD+f0XQzkGKE3FVDRgS3WeNvyq +zACHtYI5djtJNLa9R0JAmwEjtkfKLIBE17juPPewY0DTQI/lV2M8/y1CKZYH +GDBqHtCwxYREF5xCg6j22Gn2LyOxQx9bb1g8xIDbvwZlVU1xfoLz+k0aA+62 +oviAPSSiNtDorwMZwK4ItBg0I1HndWVBxXgGTD58XUnsI1EhEvYcvs6ACErO +QA72hQl2XcENBhiciU0axNbcWxeum8yAoAarZDdrvH4c7rOW6QzYxwgWtbMh +kYn/nS+h+Qy4rBzRKW9HIlnZyzq7ChlgPr3ptiM2u8H/BvcjXI/TeDgeO1MF +WcaVMiDsT5zcP+y/PT01WRW4X81XF1r3k+ixhUxuUz0D5EWPexIHSXR1gYs3 +sYEBkfduVd/EpuWOHnFsZMD4+Yy0N9giPBUyg814Pbg2/FCyJ5FPpcO1Xx0M +2CRqI9KNrah6M0RpiAH+PEH9VEcSLXSGtY0wGUDzmXvljN0SxdAoGmbAq+/d +alHY4X1ao3rjDOBvbbzZjt2V0uayb44BXFkeLb6HSJSwTNT4FCcBoec4PkQ7 +kahqtsfpGDcBNrftBYuwWT15QX68BDDbVR+3Ye94bHSHtpyAft4NxjLOeL+5 +hf42EyWg5t099yxsEQvjVcZiBLQGriBrsfW3raIgcQJmFMqnB7DjhfMPUqUI +UGaVqSi44PGK78Uy8gSk1hTEJGMTOfn14ooEHMsI8C/Fjo8/+X2lMgGJhoZV +TdhMQkyYh0JApjBnIrcrHhcz9RzXIECKaaxPYFf8E4tgahJw2nrCNwx7aKQ3 +qVeLgDXipwQSsbfXnKpt1yWAbNQ49wJ70KdQ7jkQ8P1ZEn3lYXzeHU5rPzUg +4GL3yJA8tp7hHotiIwIkGzk+UrHjpPpP5uwhgEPBc/AAdjlPUXyGGQE7DxcL +EdgDU6fv/2dBAEWyKP04tu4b8U+x1gR8W6xYTMCmFfePXbIl4Dd3bdMd7NjU +Iq7z+wnwpgQvK8TuD9qrEeJAAHTVPHmDLewqYRpwiIAkbUe11qV6ewdcvJ0J +WGt7TaBn6ft1YVdd3QjQb3jPO7OUR8As04GG889+kF9YqkdKPLOlExBwnHGf +yw3X6xtotiAIcL0cf1MAW7fxEdPEkwDLs5ZToti0p2F/wZuA9o+3itdgx2aa +rdb3IWCr6IkeOezyWEk1bT+cb7Y3SAm7P3Rw95YAAo7v6QykYAvRix0oQQRM +8zl2qWNv2xfur3iMgKPAyN+6VH+7+UXZEAL2bPjN0sKOUV6TJhlKQKSwdOw2 +7DKRoVLRUwQ8p7+8rYfd97u4QfAMAburp8X0l+qzwvt4wwmYbbhPLlmn1fzn +YgQBLk5M2IH9P2xe8PM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.7360703336876859, + 1.3359949622296974`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.7360703336876876}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13099,21 +14455,21 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, - 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.7360703336876859, + 1.3359949622296974`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.7360703336876876}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13127,102 +14483,104 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VdsbB3AJUYiEEJmLKJFZ1qvjUEKKMibOOXuThEy5iNzS7SZdStOT -UklJKHPhijQoR4RSfly0OeZ5OkfUb/ljP/v5PO/a3/XutZ69nq3CCD5I8PPx -8f3A1/L95Kdtm8uaPllWXpsxpP/BQ5ZjDw0Z1rnoWRbnuTV2d4ZRmrp1Jfog -/E6Fhu3EahASNXiLvmhevQDYBVHxtYLWbNSR69hngf33uw3V8Tmf0YZknrEJ -9sumk3cX9b+gX7/SzuhjD7V/jP2j4hvSild9tRVbvk/Nc47WgSIaM6fVsPeN -x5qGsbvQjzl5JQXsqsWhNVE5Pei51UVLSeyvCbIxpUEU2mU14yKEPSZkPTSj -34fU2Z6+C1E8JHQpxN1gnoNUf9UyR7GVJO/UnawYQPImel5d2I4Kc4/GaCMo -8r7a9mps8p6qjK7wGPIbKRR5hh2vsT/xOHschUcebk/H/ibbuiM8ZxI5nBo9 -EoHN8gg4dvXSFMrUH5bwwZ5I57tfGDSNhEsly/diC6vqSkzqz6KeaxNjcthp -rFpbCek5xDhaEs2HrfzYPX77/BwSqq9Y7DvFQyY658dOVHDRKo8nVB62v1EX -e4i2iL5pft+1A3smKkJgteYS2jIWHbsW+0zFGgst4V9o08/0gpFIHroJJk/9 -2L/Rgsv535nYrKw669CcFSCxaVFbCDvn3dXuBAV+kN2Tq9QRgfvt945NvcQP -7qk6IgXYsdqzRc+DVsKLpI+vXbHTnqmojesLAtfl3Yeb4TzU3jRS9StTEOZa -UASJrTxV5iEuLQS9UUOyBti5Ox2v6M4LgUyDMO1DGA+9eRm9IrBCGD5Xj+8Y -DOWh2dqWrgGaKNwYOxU/H8JD6+xFJWKqRGGFlRkvH1uv1RrETMVAspKyILAD -ekvu7dgmDmXeNqqfgnkohJ+tt0tUAij9r36pQTzUp5o/mTgnCVXnC6Y7j+P1 -IT+KNBqsA4FmU9k/sfmfclQ2nFwHZ49aCGlgKxtsOpgzvA6Kq1Rs/QJ4yIOW -UvipWwrqjdNdO/15qJEZGiZbLw2Lq2ca/iF46L/Hl5N8hGXAjaZTpow9MpyT -+YQuA9lRn048Z/HQ6nCqxbxaBpjO32lsJg9Zn3PZ6VMiCy5C367P+vJQ+UOj -2ewMObhsqcgV9+ahh30LkWbhiuAtyio7coiH9hz667+wPEWIed+T0OyC899I -2eRxFGEOedNtsHc+1JFWdleChTZOmbYzXk+Gd5Gg5SZwRQ77+514aGq8+9TA -WWWwDVvy327PQ1InrIuLHFSB9abDd9GKhzgPV/s7BahCbFDMTSfsFx1NCqPn -VUG2eEdDJvCQl/2Rs5rVqpCsfGuHLcL9bY08eEtfDSQaHIYTLPD8Q48n4mTV -oZs+YffeiIdc/Nbo2vVoAOPpguhVbR5CkYf0XZc0oOLeVWa9Fg9pJ2YYs+Q0 -YX6LWh0/Nl+mwe64A5pwtXqkImgzD+X95+laWKMJsQ1Zzubq+Ps8nJsg/2Az -+HRahTxWxP1ZO3wdYmgBEfGtgb2WhxRU/4lP6tWBhMbbdLdJLqq8OKPF49cF -doxnI5rgIq9p91ZSRRfyVNvtNce56O4bda3d3rqw3cFFfWKEi1T9ypu5bbog -My3ieGqAi7Rz+zTI+m1QrPOqxbmLixQVlEhldz1Aiinjtmwu0skKF/2J9KH7 -bc/x7ZlcdD9U3amEbQiB+0fOONlzUVMkMj6XZQobuzdFxXXPIxXvL45HAnfB -ibfpwqcC5hHxuzRf8Q+Ai1Inz4pPzyHZ4RerZBm7IWS9fOnmY3Mo3MCi44q2 -NfgkMZfkfswixuhindQQHWLehRaZu8+ivN1hqzIabaFvpkuKVjODHs4E1OSm -7YWOba/1k3fMIK7VhoY38ftA0lRyYP21adTJt3Kyx9cBjtbKla9anEJBG4NT -EtT2AxH2ef590BTKP1ZXfS3RCXwn/xeo9m0SRU/LzW89dgAKhk8I5ThOolk7 -m8Pvjx6EE6rsXPa/E8jUM9Wq74Az+Cf1PbHdOYGa5e4EvDFwAZnHO6/onBxH -8o/OVmZvOQSWox1VmcFj6EW3tr2j2GFQZETVPf57FCm1TvhFjh6GGib5kF44 -ggyupeZmdrvC9KOzN9a3DqM7AtPbrtS6Af9ZR76UtcOo1Gp7e+JLd1grbmzh -ZTOEbhpflFzM8YCafOmy7EuDqPF/WecNLnmC1xvzzV2DA6jEIV095IwXvJ6d -rDljPYAmTzjzBbGOwGf7WLpfcT+atdHyH6N5Q9uh4yNJev0oe/Q7N8zoKBwf -O/P736cc5HY/i3lE1AceXfgqZGbKQUWF+46u/MsHTt1ukBF934dMFZp5f/N8 -YFLwu+YFog+pdfu1fz7mCytmztDMxftQ75rj+9MpXzDWO2N3/UUvarrsyLQ9 -xIBEbm74eEgvSovKWBPRxADfjAK6rE4vqqz6zWPuZcIVCZt0g0kKrfWCvwzK -mZDYrN3ZVUMh5fXvGzdWMqHHwzVNFVuP7bBBqIoJ2zyFWohqCh208HzyrYYJ -Z/prOaNVFErbGFl/+gMT2m49JgUqKSTf+XRt3TcmTNCiX9mVUkjdW/am1zwT -jKRGUy2eUsjUZyw7cScLmlbXFhdep9CjWxNhjkYs6Ahvd1HBXt8yZSlrwoLP -79ceS7lGoTH6fGu2OQu8lF6OBqdR+DzgW8HezYJg0s5v5xUKic9Luq87wALH -mevSLckU6k02FMk4wQKXWd8dfokUOvDeuNUvGNej4/b0nqNQFZ9Zht5JFiwd -HWr2xb4VZmn4OpwFJl9uWHmfpZCju61vXwwLfqKMRK8ECr1Ud3+59SILBFo2 -ZQadptDlithjLx6xYNWn2dWDERQ6oX/DNCqbBb0O4x8ise2fFIiY5LDAzF94 -XgB79Q3Ok7I8FlQ2nrutGk6hxFCnodJiFtzTkRVjhlIoVkv9eMlrFnAETC5z -8X9DwI36wML/WMB/X4YT4U+hveIci9BuFpTEMY5KYm9J5BPT/8GCw1b6Nnl+ -FOKEGuYV9LEgYfc+Lw5JIV/HjNHnIywI6O59coSgkJtgWNCzBZzX2vLOh0Eh -2zD5kFwZAoZa/h584UWh1xnn7a5sICBm/n2+B7YFe0o9Sp6AosuOM4ueeP81 -6r/TlAjI5yrz0bDl2mJo/9MgIN5tv/wXdwoNm3XKrDYkYIaZ7CLpSqF/+O/9 -6+dMgHD9x1eDB/D7bxe96XCIAKPetnO3sc95RoUauBLQ7nHrgwN2VLHT5t8e -BGg/3NJc5IT7J1ekXmcQ4LYg0JW4n0IGHxmstycJaEvX7bVyoFBbqsYatRQC -7o0FJMjtpVA+EvMfSCVgXceIZ9cenD868ybvKgFr6o2zsrD1976JM7lBgOsX -xXMG2Jf5mFMOdwm40NwV6mJLIZvge9+jcgkYVJmTfEqnkKLiBSPLfALMzza0 -ncKe+Rh8deVzAuo6rEXp2A80kcPlIgI0hkVquq0ptNTZWZ1ZTkD/y6fuitjF -9grZn+oI+EI/QH+6m0JJC/yCaR8JcHZZPxOHzcge8nVnE/AgzlnSGVtCoFyh -t5GAid5dNxatKBRY4fYP7ysBBo4Xm1yw1bSvR6r3EXDaxmFeDii00Ha6ZZBD -wOKGvksziEJNiYTeswG8X+7tKY3YcT07h0xHCBDV+0qdx26/2XJk/zQBNbeo -kgVLCl1ZJUmPXkHCndJB4fldFKqc6vQMX0mCzmmRX63Y/Z05oUGCJFy6lxJb -hG1RbH2PIYLrag3Sodgcn6ifdpIk5PV8eDFrgfu3p6+jS5GwtGmc24ZtbrxO -C0mT8Kwt8HU5dopY7mEDORJq2wMmE5br5V0FCiokRAvTXslgk1m5ddJqJGws -XNq7ZI7Hp/zRtVaDhDVzK717sTmklJiAFgm3I0dVipfrUrb+I3okKNLE5Dyw -y39JxXP0SbAMXhq1xu4b7L7WvZMENc9t9nrYZtXRta0mJDDuOjwUxu4NzFf6 -F3A/9b61r8zw+eEWY1i2G+eXGv/Ixzal7bEvsCbBL4l+8S72Zbkff2TtISFc -RTAyHvuFwLOUDDsSdMVLXoZgU+Mxj2/Zk1Blfus8A9vknfSXZCcSdov8rLDF -ZhT8GP7rIAkHpE+pm2Mnpz/j/9OFhMNm6jLbsX+E7tWLdCMhgm/ttQ3YYt4y -tiEeJBg67lMVX87bSx0J8CLBQ7zURGD5+U2nk7x9SJC4uX7FlCnuZ7XdAzcG -CQOOq4oGsX/Myrw8yCKBfVBzrAdbrIdqtCdJuLDtZGE7tgn7OcfGn4T1Ef2/ -W7AZZaeXIIAEn5oLXxuwkx/YrTcPJCGr1MWobjk/WXarYRAJk7/tNtUu50f1 -Wm0PISHZ6XhqFbYoq8BNKxTPxyy5VI5tvD8uWC0c7+fSFsmy5XyzfecVI0no -73+rVIx9SWPDHdkoPH4+qaQAu1Sir0gymoQA4Zgvz7B7fhZ8XBNLwp9LV+Ly -l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx +1:eJwV1nk0VV0YB2BzMhQJIcpYl5RcRKr9ZixThgoZ0nXvMWRW0oBKKoUk4itD +GUoyhJKQFJUkhChRxnvN4z0pDb7tj7POetZe512//e5hHXmavy2Di4ODYxg/ +S+/Aps0bnrY07TJptT88EMtCuyaztWlG+WgTx4rYJfdm6CQqGVWhQ77qEoPY +1vQPfELU18hNpmxhycWhEbW8Ro3IVjh3OxM7+s2amoi8j0jKlLuDhf2sJTD9 +j+YnJNH0tnEEe7Sr4czJys8oPZeUG8eWHlJ0+mHYjfZ8i2mcxDafOqMX3Pgd +PT8R+2kGu/rPqGBoXh/6FT6vR2J3nJM8XeY3gLgWG379xJ7kMxplaw4hXh5+ +8b/YfDEBjtR5JiJuF17ljGMhOdG0+sDKYfSqrdqFD9tK5se9ScNxZOixdrUo +NnFHQUKdfxLZDHn9lMCOUN4XdbRxCkmZyevKYn+WbN96LG8GnZJueqeKTT/k +7XUjZhbZldTKaGJPp3LcLfGbQybRiu/0sPkV1EVmNEn0ylFBxww7kV5rKiL+ +A32+/JK0xV5/3zFiy/wPtI72XsQZW3fTxUnfyp+o7so6R39sT53vjaOGf5DO +jg+at7DZocd5BFT+onv6rz/kYJ+tFNxB4f+H5mc31hVjp4DuQ4/GRSSoolXb +sJQvp94oKI8TeCiuApzXWCjvzY3eczJcoOVdfnYl9jTL9cz1GC7YWhlhK4d9 +RpUsfeTHDdusDvLvxE4sklec0uQF6bcbn4djd7WMV//L4oUDQjMr4rHXzz49 +tEKcD9S4N1bdxc7XskpQn+eD5+P9G99g1z07xelTyQ8J6Ia5WDwLkbVt34cN +hYC6VaKsGnuVhZDI6Woh2HVxdWkntka7EQjrCcNwRazMDLb34JM7WzevgCem +s5uVr7NQAFejxk4hEZgcjjucgD2kUDgT9UMU7EyCh88m4P4QDcubqaug38M6 +7Q4210Om/JrAVbCMWvS8Bns9dZ1t3tgqiCqaA64bLHTIML6kqVcM6L9zbK5g +N7sHBUu+F4fSFoXUwkQW+nY/7qobvwSkKtkv/4Q9PpaX9cBYAlTCxPt/Ywsc +G2jTr5EAt2jNDrMkFjK6sF/L7YkkDJz9Vz+BXZGtQ+ZmSEFzPPHFNJmFsocW +QrYfk4UT74XyLG6x0J4Dl74FF8iCDz9NIgx7vE7MpIApCxWcMb0F2FrZm8TX +O8qB8n23OJHbuJ8011LeXetgjZ+cdRf27FTvieHI9TBACfOJSGMhMV+jx6WW +CqDsGCMscpeFmNkCntbeCjDoXattgV3e3SIzcVEB2BZDlZexnS1cIlVqFGAx +bryPKxPnUwux/U9TEdruyiX9xtYavT8dLqkEeVYvU/5ls9B+D0F1sz5lqC6q +lDZ/wEIo5ICm/V9lKBnuTb6OrRqVsY0upQI/nOj+n7E5sqgG4TYqcN4mWt0j +j4UKvjnZl7xUAQ5bd+blh/h8Hsw/J525Ac5dkzLvKcD5jCw7RmkUsMhuZr4r +YaEsu+Sv8+EUmHkRUCxTykJxtL5entsUkBuK6fDFpp89PibXRoFXits1xB6z +kGhVGoedoSocvRIpT3uC9w91UrVSUQ3yCgr+iJSzkIzCtYirg5vgzz/v1JLn +LFR1hU35xaUO4kUNdySrcT/mHNsJeXVIv1K/Mgw7vU6JYuCqDkLbs9X3vmAh +BY+K1p+d6iD6g9OLWYPnmz+kTLzfDC9Oxn3XqmMhWRk5Yr2jBggKD3ySf89C +m3KOCf1GmqD/unz7ji4WotEjSXUrTVhY89GzFDtFMeGbm7MmeF+WYqt+ZSHu +zKJHb0I1oYoTFGS68XlLH92fUKwJ0aH8PYs9+D5NcUujKFLBOKLkQ1cfXt+r +Fpsd+LTg6Omh7I4RFrobpGT9pFEbdPLSQpkLLNQSgrZdyNEDXausZ0ylYSTv ++snKxWcn8NONFT7vH0aMxbJC2ZMAT+Z1RZIuDSPJsfJlkjQDeBXQzr/19TA6 +Rt3RnaBqBKc7rT3GeEYQbeJPvdioMWy8qSG4Y+8IKjAIXpbRbAqXLQ5Jjfw3 +grLZ3i/zE/eCyLJupv3YCPq5e82HughziO5t47ExG0U9HNwzfUcsocVeyn9f +4SjyW+sff05xH3iZbGLFiY6hQq/6mqQoaxDkfEjLjxxDp+ak5tW8bGCyLUNy +E3sMkWYmB98etoUrkUVjIcfGkZ7T9d1DNnagXsx9t+znOGqVSvOuo+4H+dK9 +MZEnJ5D0vciq3I0HYJ29gUGLwCQq71W1sBI+CC83htwIS55Ecu3THiETByFK +k6FWrzyFqEnX87N67cFedFIko24KpfHMbU6odQCvLYdtzDdPo7LdW7qinjmC +qvUhAffz0yhl2xXRP3mHYIbO6eDSMY2av+ZcpMY4QbuSXGW68gx6YpmqFHDW +GQrmhUXUzsygGV87Dj+6CxSnTU5If5hBpAnFc9LQFY6nbtCgrJ1FuRNffgbr +HAanrNz5tYGzyOFujruLkBu8PRJwWuLFLCotMT/MfckNMuS+DqWKziE9mdZf +0b/cwO1xxbyO8xxS7PXo+uh1BHoSuPUiMufQoODRfakDR2DS637g8Ogcaomz +cjc9QIPqvIMXrVXZKDE0Q/B4Cw1OZJ5C7V5sVFW9+Mt9rzt8Xu310CKTjVY6 +wyVqhTuc87i+fOtHNlq/+m3z2ip38K+P9pjC1mi0XMNX7Q4iR0vtClrZyHaH +04PPL93BQFu0Y0M7rr825H3YO3fYVasXIdnJRtI9D1fWf3YHJ7NY475uNlJy +lUxxnneHoPW65bLDbKTnNpkbpUWHK+2f11H/stG9/6aDrXTo0KRDOL3DXt02 +u0tSlw67hl9uOvyPjSaN59tz9emg7RgZH73IxvcXB2ejAR1uZV11/MJJohXz +oo6rbOiQqvyhm85HosFY7eUZvnTIPivOo7aSRHGVZ7zK79HBef/lEb91JPLV +TNYLzaXDwolvJ1nYFg+Kl+vm0cHy57v0w+tJJJDMfPC0gA4pg6vvWcmTKCrI +erTsMR3cSz1zNyiS6AxF6eiTV3So21d49LUKibyT3/uUfKNDhDvFt0idRHtX +MHcE9dJBfiDIR3oziTZGcQhr9tPh8dcV/y5gM4O0C4qHcD7phU6HLSQ6YpUx +8WicDufv1tF/a5DIgTfYr2iBDrEdN9vUtEhkGiwdkC/BgP5EviS97fg/I+Oi +WcIaBqS8LsxKx97ROKsUKs2Ast3fN3Prk0hD+f0XQzkGKE3FVDRgS3WeNvyq +zACHtYI5djtJNLa9R0JAmwEjtkfKLIBE17juPPewY0DTQI/lV2M8/y1CKZYH +GDBqHtCwxYREF5xCg6j22Gn2LyOxQx9bb1g8xIDbvwZlVU1xfoLz+k0aA+62 +oviAPSSiNtDorwMZwK4ItBg0I1HndWVBxXgGTD58XUnsI1EhEvYcvs6ACErO +QA72hQl2XcENBhiciU0axNbcWxeum8yAoAarZDdrvH4c7rOW6QzYxwgWtbMh +kYn/nS+h+Qy4rBzRKW9HIlnZyzq7ChlgPr3ptiM2u8H/BvcjXI/TeDgeO1MF +WcaVMiDsT5zcP+y/PT01WRW4X81XF1r3k+ixhUxuUz0D5EWPexIHSXR1gYs3 +sYEBkfduVd/EpuWOHnFsZMD4+Yy0N9giPBUyg814Pbg2/FCyJ5FPpcO1Xx0M +2CRqI9KNrah6M0RpiAH+PEH9VEcSLXSGtY0wGUDzmXvljN0SxdAoGmbAq+/d +alHY4X1ao3rjDOBvbbzZjt2V0uayb44BXFkeLb6HSJSwTNT4FCcBoec4PkQ7 +kahqtsfpGDcBNrftBYuwWT15QX68BDDbVR+3Ye94bHSHtpyAft4NxjLOeL+5 +hf42EyWg5t099yxsEQvjVcZiBLQGriBrsfW3raIgcQJmFMqnB7DjhfMPUqUI +UGaVqSi44PGK78Uy8gSk1hTEJGMTOfn14ooEHMsI8C/Fjo8/+X2lMgGJhoZV +TdhMQkyYh0JApjBnIrcrHhcz9RzXIECKaaxPYFf8E4tgahJw2nrCNwx7aKQ3 +qVeLgDXipwQSsbfXnKpt1yWAbNQ49wJ70KdQ7jkQ8P1ZEn3lYXzeHU5rPzUg +4GL3yJA8tp7hHotiIwIkGzk+UrHjpPpP5uwhgEPBc/AAdjlPUXyGGQE7DxcL +EdgDU6fv/2dBAEWyKP04tu4b8U+x1gR8W6xYTMCmFfePXbIl4Dd3bdMd7NjU +Iq7z+wnwpgQvK8TuD9qrEeJAAHTVPHmDLewqYRpwiIAkbUe11qV6ewdcvJ0J +WGt7TaBn6ft1YVdd3QjQb3jPO7OUR8As04GG889+kF9YqkdKPLOlExBwnHGf +yw3X6xtotiAIcL0cf1MAW7fxEdPEkwDLs5ZToti0p2F/wZuA9o+3itdgx2aa +rdb3IWCr6IkeOezyWEk1bT+cb7Y3SAm7P3Rw95YAAo7v6QykYAvRix0oQQRM +8zl2qWNv2xfur3iMgKPAyN+6VH+7+UXZEAL2bPjN0sKOUV6TJhlKQKSwdOw2 +7DKRoVLRUwQ8p7+8rYfd97u4QfAMAburp8X0l+qzwvt4wwmYbbhPLlmn1fzn +YgQBLk5M2IH9P2xe8PM= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "PlotRange" -> {{0, 180}, {0.7360703336876859, 1.3359949622296974`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6007907022525477}, + "AxesOrigin" -> {0, 0.7360703336876876}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13232,7 +14590,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6007907022525477}, + AxesOrigin->{0, 0.7360703336876876}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13260,7 +14619,8 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7360703336876859, 1.3359949622296974`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13268,9 +14628,9 @@ l/P743oE40hoft3yPA/bqHkf93c8CXT7XYHL/j+lP8Cx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913267728125134`*^9}, + CellChangeTimes->{3.9913267728125134`*^9, 3.993828360887929*^9}, CellLabel-> - "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] + "Out[149]=",ExpressionUUID->"8ab8c57b-aa6e-4c8f-8174-841641b9cb85"] }, Open ]], Cell[CellGroupData[{ @@ -13333,154 +14693,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799933259697*^9, - 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ -c179c9adcae7"], + CellChangeTimes->{{3.991799933259697*^9, 3.9917999365172615`*^9}}, + CellLabel-> + "In[150]:=",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.8101336164977476`*^-271\\\", \ \\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 81, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773051552*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 85, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9938283610167522`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +In[150]:=",ExpressionUUID->"96c30f0f-020b-4831-949f-2685d3bad931"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.450949205829742`*^-278\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.848731581509808`*^-283\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 138, - 82, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730605392`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 150, + 86, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.99382836102499*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +In[150]:=",ExpressionUUID->"0e875ead-4152-48c1-8cde-998f32dac73b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4109778485455803`*^-289\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.366220670613949`*^-295\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 138, 83, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913267730685368`*^9}, + 150, 87, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.9938283610326853`*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +In[150]:=",ExpressionUUID->"67379e05-9ef5-42d2-a913-1785546a20eb"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 138, 84, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991326773076536*^9}, +during this calculation.\"", 2, 150, 88, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991326773051552*^9, 3.993828361039598*^9}, CellLabel-> "During evaluation of \ -In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +In[150]:=",ExpressionUUID->"300004e3-900d-4f52-9ad7-9c5461094ae2"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc4le8bAHDRoKIyMjLPeY+RLSlx3HcqmQ0R9S0SMuKYUVJmRlSyMjKT +dZw3qRQJIS1EFBFKk6wGUuT3/v56r891vddzPc9zr0fuqJelMzcXFxfPIi6u +/3+nB542EXEFBnVn2x+OVegadGWLndraEw5LVXyUvySKAoq8OCrWkwgKm+t7 +byYqQMCe0m6ennzQnb8YnJC4CdaMiybOdleA0tXt006JO2GwZpfXr+4GuLWZ +v+fDZRswIkb6v3e/BJb+pqmpSy4w270pZbJ7CD4Ni2w2iwmExm1FBR35P+Hh +1dFJjaMxIDlY9fmoyjy4jg8bLP51GYQ97EuXbePB59zzheoeVyBR0+j+Lmte +PKk8eVRSLAvepGnUf1/NjzvVX9k7rsiDuIKQF9ziazD17dGUxkvXQDT5Q2xS +lhD+42i/N+m4DtFWJgYvp0XQ/o7mHsPKIvDTzbN/Gi6GXLf9/DPPlYBprsAv +s3gxdGDWWg/ElQBtWXBMW4oY/h1aHyqVWALtXftvdhaLIWPjMTIhuwTUvFfy +DLSJ4fk3J4+a3i2Br4WBhT8kxDHocmbN8q8lcEh419i6W+Jomq6wuMaoFLZP +/AlifZDAgxLPFJ/9LoVTxsnrH45KoMwHRaVF/0qBzFPtFZqWwN6WYyHaPGwQ +szqiW8W7DgeDvFUS+Nkweu/RDI/aOtR0CA5bR2NDUniCf/rJdciJUnsXZsqG +IRF5VhO/JOb0ZL6LS2ODqFedlKioJI59eqJokcUG8ye2rW6ykiho/KVueT4b +KoPiVFZtkMSSzj29QWw2nB+cHDlgK4leAz731WrZoFVy32UiXxK7a90EPg2x +IUx/r4PEZins3xEgFadUBsZ22T82GUqhV9pz2KBWBgKh3yKszaWQy0B3SbdW +GVxtPFeYcEQKj3KvPLVGvwzumVZ/WxorhTNPE7ktd5XBpC094OcbKewe6k9Y +5FsGdiemzreclsYdwa0+EpVlwLhiKDlyThpt9576qFNdRp3/EmdZgjQ6Sz2d +3VVbBkFzSu2GBdI4v/zSSt/mMkiJsBOpapHGtPrYrojXZdBy+XHOdSkZdJhk +cb2eKoMtZPrts3UyKBfw8vJGTQ5s726bH38igwKvR5JjtTmwi2vxTvuXMuiy +PK7tzSYOOFqy3sAnGezq4PrMMuCA0Wm5kNAlsth9HkqPm3HAW2b62lZlWXQY +TiBvOHGgySVnrDFAFmMCJBY7JnPAZE5XMPi0LH5KTtpgcIUDbQldOtqhsvhD +anGuSAYH3lTxhRbEyuKB7FaNqhwOjK/wFzx3VRZT7ujrdpZyQKzceJNRgyzG +2Q3J7avngMfv76FP+OVQ79bCocivHNjic2ztZ0E5/HnL6Z3ENw7wjvSyecTk +8N2rAB7OGAeu9zW+NqDJob++y/qmHxwYqE1RuaMjh8VCQry1cxzYfU63J89e +DjVoDe7vVpEg/Y/jWeckhxUtdFlNQRJGA2g8/W5yGJl8P/iMMAkxrivUxPzl +cPfqJFU+cRLqzfojLsbI4ddaDB6VI0FLMEz99E05zKx8ue2DFglccVNNaZVy +mH7Egj2uTUIbj/vByvty+Lg2umFKh4TjU5bnvj+Sw2vBodwzW0go6CH6XHrl +8FJfRs8jQxLW5jyJsuKh4eEJV4eUvSTMKq8eULWmoe+y8E1cHiRMZ0mEbThI +Q8vKlurTniT8WsUgdO1pyOcuofSTRcL4T1337W40HE+zefrKh4Sh+47TB8/Q +kF+hcr17IAnPzO4KxFyn4eqb95a2h5Hw+MHDmxdKaRj/rD92eQQJTeotVkk3 +aJiR+Jx7ayQJtULvM7KraOi4rr0nL4qEir7lCndaaZgjb6W0IY6EjON2MDRF +w6bKu/PJSSRc6Xcd+vKHhsGX7DZcSiYhebffubEFGnLlubmfSyHh4oaY57/5 +6EgbvzHofIWE8L83bVZJ09Gz23BuOoOEEM+aP8J0OtK9zCw7MkkIHmzOklCk +42OlrhtFV0kIaOz7wNCi4z6NiEjjbOo+45Z46xvRcXzZntKDeSS4zq8SMjSj +o1GhuaVIPgnHvCQqd+6hY7GpGG8L5SP71OcsD9LRj29frmoBCVbrDsS4seio +2fQv/WEhCXsvOCp7+dEx4NTax4eKSNi14Nnmf5KOEhvP8v6ibPwhXDg0nI4K +k/HP15aQoM8uy01NpePcjTk3VTYJfbLsnB2Z1PpThWvzKAellmT/yqEjt5Ls +kTVlJNwNK7xqWULH54sNW75Q3j9TkLmIpKO4l8WkBYeKp8e1jPIKOk6Zjt0q +p6xlm5smUEPHCfFKSQ+ShI7W7CsP6um42NaosYmy97asVI9HdJy8qrtS4gYJ +pFpG8rM2Or5bJB1TTdmiIC3pVCcdi74F1Swpp/Jb/EqiYg8dtb0EUy0oKy1J +Toh6T8eW2Ta9TspPghIvbfxMR2Nw4ltzk7q/yYSLH0eo/WYIh5hRXnLs0oWk +CTr6XEjPCqdc0Hch3vAXHf9jcJwrKW/bGx/3/Tcd987z9XymPNR8/nzuPB0D +9Y9PCVWQVD+Njd3NTeBMSnwtk7JsRXTMv6UEcozXaztRrlOIiuasILBPepFN +NGW7rMioQ6sJbPVsUyiiPCcYcW6FCIHpInuKGilnxoRFVosTWBG6/fVbylv+ +hUS4SRNYcM39zg/KPX5nw8XoBDbPhe1YcouEwOHgsMcKBA4mmUYLU15rfzo0 +QIXA17ORp2Up3+k6FcLQJNDK+AdNibKV6cmzXRsJjJGzOqtG+WddwJmILQTW +3vC4qEE5ceOJYC0gUOj6v33qlDXZfqffbyNQUa/1xXrK7bK+QQnGBNZpXeWm +U2alep8CCwJPd6qPiVLmX+l1cnwvgUHfzBP4KJeFeQZm7Sdw+Yt7ozPU/k1n +jgeY/0egta0uzwfKwx7uJ/7aEyjwJbnrGeWYIVf/UicC1x5JdLhBWcHWxe+A +G4GqqrOlCZSbW519eVkEZutfvsmi7LzNyeeuL4FfuegBJpQXVx31PhZI4HHv +wFlZytfUHLxEggkUXmKrP0XFz7DAntUUSuCymovQTDnk0iEP2nkCPYSUzttR +ll7y3/GOiwSCHr2TQbkm6IB7aBKBnkm5g8NUPv1x3u86cJVAvkAbI1fK6X1W +LhfyCDRNVc6nUd68d98x/UIC36281/SGytcA/T1OGTcIPFim7WBA+bug6ZH9 +DQTaWfoJvKfqoceD1u7+mECTT/KhpyjXN/+BkBYCv7k1qAlQTghiyxS/pv5P ++2ikQtWXxtDKwdkRAgVDj4bqlZIgpv9pl8AkgY6d/dN3qPrlSn1QS5sisFOr +qkKF8gsTVrbZAoE/23r+CRRT8br54nCWEAObPfqXFl2n6nVFcetNMQZGuQc0 +81A2cA5lNksxsGJ6Tdchqp/wi2tKTSgw8M4Bsp/nGhXP0MS3qM/AtHz1p4xc +EkZ2W//30YmBMq5LZqvSSXhZovr8txsD+3+vkXqbRkI1z1I9fi8Gyuu/z/1D +9cfYu5USOqeo9e5btKikkqAoI9YbfYGBDVNKL50TSXAZ77VVrmTg4q07MpTP +U/3K+NYTuM9AAz3WNuFYEnTy4zZb1TNQ2PKu3Ww0CUv364udecZAqU/Wk/fO +kVD4IKu7bYCBtsfSc/mpefAx/sh+32XyKF5VxxSg5gVrRIWmsVIeN7j1CLw6 +QcLMztmxsdXy6HLgdneaPwnLeRLPuUnI4y0yx0rUl7rvU423j6jKY51x3dpJ +al6dcZYX2r1PHk1Jy/Q1R6l6Mxh9oZwjj7wPzVPXmZKQm3kvc/iaPM5yF5hH +GFP9aDbSpahYHuPPvJD4akT119tSC7QKeWQs1HKXbCPBcf1uNYlH8rgw1i3F +yyShfG1FPO83eXywedBVX50Ek4lAk086CsjPvbEgcg0JkprSUbz6Clip8uWs +CzXvx32bGpS3KuBom7XoTn5qPk2v1vc1U0Ah6b6oOV4SBuZL1BbsFdB+oT4K +uUjwXflWSDxWAY+zmUy1cQ5kKOGAeZ8C7g0Q3Fj6mHqfHP8s4f1OAYvfDPkq +POIAcOJtkj4p4MK+joy8Bg581HjT/mZCAb9TyRz/gANqm30bjy1WRCdXQQGD +WxxoNCooDlVVROaRh8MC2RwYdeT1ux2iiBN5h8T9fKj3Ufb2B3WRiviz3Lwn +i8WBiTehy57HKmK13cpnj45z4Mfu2cz3SYqYYx1sxn+MAzN6I00CxYr41b16 +NOggB7iFW9a6tSuijY73QIchB8SbLlVLySnhPXObLSfXUO87QpQ7ukEJdxcP ++k8VloFgq/zF8on1mFZzOSKqmQ2SMTf26OioYNdyh0eLKkohTVl3tZCLKu70 +lx7pTCmBZxJbN/68rIYy9HbHvOPFsEWyIUH9tTpeO7Ms5YhoEQjw5Ps7hGvg +0ge+YU/aroN0mIz+AXlNjO8XVAp3LAA+xqFKy8eaeMD3e5bBXD6oMcVvBB7W +wuTrzzriyDzwHRBsNOXagOk7rPPaTXJh4me8tUnaBkxUSbCQ58uGnerNGSaq +2liVornyQXYm1P7U+zvTpo29Jl8mi8TTgaWi1dvhvBFlijaXn+xLBea4U9cB +Ph3UjHZ9LH4xGXYQYhb8+TroZ/atuzYmERRDz59s2LQJ/Ycd7LM4CbDeWbeO +0bsJrb70p6dnXQDnWtfI2z6bMcHzXVKu03moy+1y+i6ii4/aa8vuakTDr+KF +GfW7ukgOZ8a8t4oERwabL8NiC2p71LF1hsPg+/oknYrJLdiwbl/ToEgI3Cv4 ++34qRg+DDm3Ze1n6NBzcTkc9aX1sjW4l/+YFwjrP6Cq1en1snI6zb9/uDyLL +PW5a2DCRLdhSfvisDxRsOxM0eYCJttolxtW+PqB15uK2pENMVBVAcykXH9g1 +Wf6qx4GJVatL4qd3+0DU66lZRw8mhll2lk3J+cDv/BDDoDAmOtXYGxCPvaFX +L6mzkM1E5cNfLTTXeoPriYKrJiQTO0L7L+5f4Q3T5B3n0XImhjjtHg3j8gZB +Ws+MZiUTn8xlfXr1ygvMeKUkH9Qz0aYw/+WKUC+o6Sp06nzFxF6by+zq1yww +FbinGtDDxJSoPlbzQxb07Hw6LdbHxMV6EZIDZSz4Vf0txu4dEy8MWdM1I1ig +mqfBGR5hYrHImv3OGiyo6d0aED/GxP3l5h9erKPWE94H6pPU+SyfbjBaxoJj +0Sc6/KeYKL2Ue8X+AU/4VR+VIfqbiR4V89ETTz0h/M8Vx+o/TAzKqbqdfMcT +VmuXqByeZ+KfVTbxO/I8IduzemphgYnv+mf4uC94wv8AyAJpag== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -13494,113 +14860,115 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV1nc4le8bAHDRoKIyMjLPeY+RLSlx3HcqmQ0R9S0SMuKYUVJmRlSyMjKT +dZw3qRQJIS1EFBFKk6wGUuT3/v56r891vddzPc9zr0fuqJelMzcXFxfPIi6u +/3+nB542EXEFBnVn2x+OVegadGWLndraEw5LVXyUvySKAoq8OCrWkwgKm+t7 +byYqQMCe0m6ennzQnb8YnJC4CdaMiybOdleA0tXt006JO2GwZpfXr+4GuLWZ +v+fDZRswIkb6v3e/BJb+pqmpSy4w270pZbJ7CD4Ni2w2iwmExm1FBR35P+Hh +1dFJjaMxIDlY9fmoyjy4jg8bLP51GYQ97EuXbePB59zzheoeVyBR0+j+Lmte +PKk8eVRSLAvepGnUf1/NjzvVX9k7rsiDuIKQF9ziazD17dGUxkvXQDT5Q2xS +lhD+42i/N+m4DtFWJgYvp0XQ/o7mHsPKIvDTzbN/Gi6GXLf9/DPPlYBprsAv +s3gxdGDWWg/ElQBtWXBMW4oY/h1aHyqVWALtXftvdhaLIWPjMTIhuwTUvFfy +DLSJ4fk3J4+a3i2Br4WBhT8kxDHocmbN8q8lcEh419i6W+Jomq6wuMaoFLZP +/AlifZDAgxLPFJ/9LoVTxsnrH45KoMwHRaVF/0qBzFPtFZqWwN6WYyHaPGwQ +szqiW8W7DgeDvFUS+Nkweu/RDI/aOtR0CA5bR2NDUniCf/rJdciJUnsXZsqG +IRF5VhO/JOb0ZL6LS2ODqFedlKioJI59eqJokcUG8ye2rW6ykiho/KVueT4b +KoPiVFZtkMSSzj29QWw2nB+cHDlgK4leAz731WrZoFVy32UiXxK7a90EPg2x +IUx/r4PEZins3xEgFadUBsZ22T82GUqhV9pz2KBWBgKh3yKszaWQy0B3SbdW +GVxtPFeYcEQKj3KvPLVGvwzumVZ/WxorhTNPE7ktd5XBpC094OcbKewe6k9Y +5FsGdiemzreclsYdwa0+EpVlwLhiKDlyThpt9576qFNdRp3/EmdZgjQ6Sz2d +3VVbBkFzSu2GBdI4v/zSSt/mMkiJsBOpapHGtPrYrojXZdBy+XHOdSkZdJhk +cb2eKoMtZPrts3UyKBfw8vJGTQ5s726bH38igwKvR5JjtTmwi2vxTvuXMuiy +PK7tzSYOOFqy3sAnGezq4PrMMuCA0Wm5kNAlsth9HkqPm3HAW2b62lZlWXQY +TiBvOHGgySVnrDFAFmMCJBY7JnPAZE5XMPi0LH5KTtpgcIUDbQldOtqhsvhD +anGuSAYH3lTxhRbEyuKB7FaNqhwOjK/wFzx3VRZT7ujrdpZyQKzceJNRgyzG +2Q3J7avngMfv76FP+OVQ79bCocivHNjic2ztZ0E5/HnL6Z3ENw7wjvSyecTk +8N2rAB7OGAeu9zW+NqDJob++y/qmHxwYqE1RuaMjh8VCQry1cxzYfU63J89e +DjVoDe7vVpEg/Y/jWeckhxUtdFlNQRJGA2g8/W5yGJl8P/iMMAkxrivUxPzl +cPfqJFU+cRLqzfojLsbI4ddaDB6VI0FLMEz99E05zKx8ue2DFglccVNNaZVy +mH7Egj2uTUIbj/vByvty+Lg2umFKh4TjU5bnvj+Sw2vBodwzW0go6CH6XHrl +8FJfRs8jQxLW5jyJsuKh4eEJV4eUvSTMKq8eULWmoe+y8E1cHiRMZ0mEbThI +Q8vKlurTniT8WsUgdO1pyOcuofSTRcL4T1337W40HE+zefrKh4Sh+47TB8/Q +kF+hcr17IAnPzO4KxFyn4eqb95a2h5Hw+MHDmxdKaRj/rD92eQQJTeotVkk3 +aJiR+Jx7ayQJtULvM7KraOi4rr0nL4qEir7lCndaaZgjb6W0IY6EjON2MDRF +w6bKu/PJSSRc6Xcd+vKHhsGX7DZcSiYhebffubEFGnLlubmfSyHh4oaY57/5 +6EgbvzHofIWE8L83bVZJ09Gz23BuOoOEEM+aP8J0OtK9zCw7MkkIHmzOklCk +42OlrhtFV0kIaOz7wNCi4z6NiEjjbOo+45Z46xvRcXzZntKDeSS4zq8SMjSj +o1GhuaVIPgnHvCQqd+6hY7GpGG8L5SP71OcsD9LRj29frmoBCVbrDsS4seio +2fQv/WEhCXsvOCp7+dEx4NTax4eKSNi14Nnmf5KOEhvP8v6ibPwhXDg0nI4K +k/HP15aQoM8uy01NpePcjTk3VTYJfbLsnB2Z1PpThWvzKAellmT/yqEjt5Ls +kTVlJNwNK7xqWULH54sNW75Q3j9TkLmIpKO4l8WkBYeKp8e1jPIKOk6Zjt0q +p6xlm5smUEPHCfFKSQ+ShI7W7CsP6um42NaosYmy97asVI9HdJy8qrtS4gYJ +pFpG8rM2Or5bJB1TTdmiIC3pVCcdi74F1Swpp/Jb/EqiYg8dtb0EUy0oKy1J +Toh6T8eW2Ta9TspPghIvbfxMR2Nw4ltzk7q/yYSLH0eo/WYIh5hRXnLs0oWk +CTr6XEjPCqdc0Hch3vAXHf9jcJwrKW/bGx/3/Tcd987z9XymPNR8/nzuPB0D +9Y9PCVWQVD+Njd3NTeBMSnwtk7JsRXTMv6UEcozXaztRrlOIiuasILBPepFN +NGW7rMioQ6sJbPVsUyiiPCcYcW6FCIHpInuKGilnxoRFVosTWBG6/fVbylv+ +hUS4SRNYcM39zg/KPX5nw8XoBDbPhe1YcouEwOHgsMcKBA4mmUYLU15rfzo0 +QIXA17ORp2Up3+k6FcLQJNDK+AdNibKV6cmzXRsJjJGzOqtG+WddwJmILQTW +3vC4qEE5ceOJYC0gUOj6v33qlDXZfqffbyNQUa/1xXrK7bK+QQnGBNZpXeWm +U2alep8CCwJPd6qPiVLmX+l1cnwvgUHfzBP4KJeFeQZm7Sdw+Yt7ozPU/k1n +jgeY/0egta0uzwfKwx7uJ/7aEyjwJbnrGeWYIVf/UicC1x5JdLhBWcHWxe+A +G4GqqrOlCZSbW519eVkEZutfvsmi7LzNyeeuL4FfuegBJpQXVx31PhZI4HHv +wFlZytfUHLxEggkUXmKrP0XFz7DAntUUSuCymovQTDnk0iEP2nkCPYSUzttR +ll7y3/GOiwSCHr2TQbkm6IB7aBKBnkm5g8NUPv1x3u86cJVAvkAbI1fK6X1W +LhfyCDRNVc6nUd68d98x/UIC36281/SGytcA/T1OGTcIPFim7WBA+bug6ZH9 +DQTaWfoJvKfqoceD1u7+mECTT/KhpyjXN/+BkBYCv7k1qAlQTghiyxS/pv5P ++2ikQtWXxtDKwdkRAgVDj4bqlZIgpv9pl8AkgY6d/dN3qPrlSn1QS5sisFOr +qkKF8gsTVrbZAoE/23r+CRRT8br54nCWEAObPfqXFl2n6nVFcetNMQZGuQc0 +81A2cA5lNksxsGJ6Tdchqp/wi2tKTSgw8M4Bsp/nGhXP0MS3qM/AtHz1p4xc +EkZ2W//30YmBMq5LZqvSSXhZovr8txsD+3+vkXqbRkI1z1I9fi8Gyuu/z/1D +9cfYu5USOqeo9e5btKikkqAoI9YbfYGBDVNKL50TSXAZ77VVrmTg4q07MpTP +U/3K+NYTuM9AAz3WNuFYEnTy4zZb1TNQ2PKu3Ww0CUv364udecZAqU/Wk/fO +kVD4IKu7bYCBtsfSc/mpefAx/sh+32XyKF5VxxSg5gVrRIWmsVIeN7j1CLw6 +QcLMztmxsdXy6HLgdneaPwnLeRLPuUnI4y0yx0rUl7rvU423j6jKY51x3dpJ +al6dcZYX2r1PHk1Jy/Q1R6l6Mxh9oZwjj7wPzVPXmZKQm3kvc/iaPM5yF5hH +GFP9aDbSpahYHuPPvJD4akT119tSC7QKeWQs1HKXbCPBcf1uNYlH8rgw1i3F +yyShfG1FPO83eXywedBVX50Ek4lAk086CsjPvbEgcg0JkprSUbz6Clip8uWs +CzXvx32bGpS3KuBom7XoTn5qPk2v1vc1U0Ah6b6oOV4SBuZL1BbsFdB+oT4K +uUjwXflWSDxWAY+zmUy1cQ5kKOGAeZ8C7g0Q3Fj6mHqfHP8s4f1OAYvfDPkq +POIAcOJtkj4p4MK+joy8Bg581HjT/mZCAb9TyRz/gANqm30bjy1WRCdXQQGD +WxxoNCooDlVVROaRh8MC2RwYdeT1ux2iiBN5h8T9fKj3Ufb2B3WRiviz3Lwn +i8WBiTehy57HKmK13cpnj45z4Mfu2cz3SYqYYx1sxn+MAzN6I00CxYr41b16 +NOggB7iFW9a6tSuijY73QIchB8SbLlVLySnhPXObLSfXUO87QpQ7ukEJdxcP ++k8VloFgq/zF8on1mFZzOSKqmQ2SMTf26OioYNdyh0eLKkohTVl3tZCLKu70 +lx7pTCmBZxJbN/68rIYy9HbHvOPFsEWyIUH9tTpeO7Ms5YhoEQjw5Ps7hGvg +0ge+YU/aroN0mIz+AXlNjO8XVAp3LAA+xqFKy8eaeMD3e5bBXD6oMcVvBB7W +wuTrzzriyDzwHRBsNOXagOk7rPPaTXJh4me8tUnaBkxUSbCQ58uGnerNGSaq +2liVornyQXYm1P7U+zvTpo29Jl8mi8TTgaWi1dvhvBFlijaXn+xLBea4U9cB +Ph3UjHZ9LH4xGXYQYhb8+TroZ/atuzYmERRDz59s2LQJ/Ycd7LM4CbDeWbeO +0bsJrb70p6dnXQDnWtfI2z6bMcHzXVKu03moy+1y+i6ii4/aa8vuakTDr+KF +GfW7ukgOZ8a8t4oERwabL8NiC2p71LF1hsPg+/oknYrJLdiwbl/ToEgI3Cv4 ++34qRg+DDm3Ze1n6NBzcTkc9aX1sjW4l/+YFwjrP6Cq1en1snI6zb9/uDyLL +PW5a2DCRLdhSfvisDxRsOxM0eYCJttolxtW+PqB15uK2pENMVBVAcykXH9g1 +Wf6qx4GJVatL4qd3+0DU66lZRw8mhll2lk3J+cDv/BDDoDAmOtXYGxCPvaFX +L6mzkM1E5cNfLTTXeoPriYKrJiQTO0L7L+5f4Q3T5B3n0XImhjjtHg3j8gZB +Ws+MZiUTn8xlfXr1ygvMeKUkH9Qz0aYw/+WKUC+o6Sp06nzFxF6by+zq1yww +FbinGtDDxJSoPlbzQxb07Hw6LdbHxMV6EZIDZSz4Vf0txu4dEy8MWdM1I1ig +mqfBGR5hYrHImv3OGiyo6d0aED/GxP3l5h9erKPWE94H6pPU+SyfbjBaxoJj +0Sc6/KeYKL2Ue8X+AU/4VR+VIfqbiR4V89ETTz0h/M8Vx+o/TAzKqbqdfMcT +VmuXqByeZ+KfVTbxO/I8IduzemphgYnv+mf4uC94wv8AyAJpag== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.059960858712968954`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13612,19 +14980,19 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.059960858712968954`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13638,112 +15006,114 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Ff37B3DlCVnPmTkciZQsiUOWlJL7DslSspfKUtkLWQsVkciWUpG0 -SYtSUZYsnTPhKVFEQhSV6mlB+trS5vf5/THXXK9r5vrMfLb3PbNge4ijz0wh -IaE/5Pj/80Tf4wbVtBOmK2Pimy7VrTftOCcfvbo7DKxWS8CldVqAsq3b5bsT -QNQlRcNn3UqIsr/eJdx9HMRFWIqr1tkCe5h7fKqrALqvCLiz1m2B/lq7kLGu -O2Dp/U7JzXYnWKp+ef29qw7UGG3/eqtYmOpadnKkqx2EZlsL7zNNg3rzq4Vt -BQMQe87M3sowHxT7qz5u1x6CWar3LMprC4Gzy/O6qPkozK+gVB4L3YDjepY1 -di4/wCm4YmigqgRe5i5hvrP+wIuXfcUVR+5CWmFc68w5M9Do89Prgy4VwD0x -cCT7rDCWbWzNGX9yD5KdrU3bJ2bh8k0fBpqeV4NCWYvCzBkiKHbYKe9nbzXc -op0n9SREsDojhFZ7Xw2d7R4lx5RFcNmKF9aBY9Wg6hCh4mAlgi/gTnE5pwbq -1p8XeXZaBCMOzY3d4FwDfyzHW56aiKJh87DckdYaCDe+6Pk4QQzDPXrvfyqv -BZsL0mO26WL4IcDA2K62FlRE96W0nBTDhnb7qVt1tfCsw7X0+TUxvOQtb7m9 -tRZ0dksK97WIoduM5llZn2rh05U9V/6nMBsPme95IKpwH7Zy7Ibm3p2NiTeH -U32i74PFt58xwQPieLvz5tnHmnyItjqx+MGgOF5t/Rs1oMOHWxd5PfSEOEqa -3b/zw4AP8s5exlViEmiTKOEga8qHwXv/TgrrSOD1ikE1riMfshOyIk7vlUCu -wSHFVdF8eCerHtwgJYmyct5d7AY+cEMESlyuJMYqRfTkNPJhXeOmpwHzJXEk -M8B0zlM+VMSkacsYSKKJ7HxN6U4+pPaPfHHbJIkeddWpzH980C+q8ftWIIkf -9jmmrhUXwEETh20Ky6VwKseJ7rcVgJXHuf8tM5PCN3qd0+r2ApCO/5rosk4K -jRPk4wKcBZBfn3Qly0sKpasqjPq2CuCeTfVXkSNSWP73atbhIAGMbFoYNfpS -ChvFW9SfZwjAI3I89UmsNGb0DXx0bxKAWo6Z4pckaVzEflj646mA9P/oTdEs -aSxRUZyT2SaAmN+az8wKpVHUic+/1i2Ak4keslVPpDF9nW/o2Y8CeHLs0fnL -SjL4/H5FYJ0QAytunS47IJDB3OLhqKtzGLDoavkz3CiDnsZXRUXmMmAn9M9a -z3YZVGrItdyuyMAOx+CX8EEGB1bIP6OVGbCMXRAXP4uFRdtQfosqA7uVJy6t -1mKhnUtpWYwOA+N3sxqndFlYUORuWabLQIyV1lCpIQv1NSxTvy5hICnUy0jF -lIXWXX2aTgYM5NU3Nc50YCG0tLeKLGegwe/8UH0UC8WkcsankQHr38bUvlgW -9v92e8IxY6Alq8PIMJ6FjYrv3DTMGXhZNTu+8AgLd/Oi8tasYWBYIoJKymdh -cfuyal9rBuRLrJZZ1rHws61i9UoHBs5aDGz5+5CFCls8VLQdGVB5uT++opmF -SatDLRWcGODNvPtY/QULv4t61H9zZsDMWWmr6CcWvvHmn47bxMCuH9/jG6XY -6H/k6CwDTzKeob5yHyk2Xu5V38byYkDsS88NYXk2Ulan5nwlvtxb32mqwsYx -h66C3O0M9PFPapcbsXHw+O+FHT4MFC8Tr2tfycbs0MDwfF8yXiUHNo4gG5ld -kQu3+zEgV+CXoGXLxqwHDlc/+DOwIcm4+6InG4vq2myf7mRg3t+bQQJvNvY9 -arsZv4uBwSgV4dcBbHz83T1CL4iBFH8JHfkINganzdNLC2aAsX2dmJnCRp4g -bo9yKAP61EHd2FI2qk+23WiOZEAobbwht4KNoRc2n3CJIuMtHLi5ooaNa5sa -P78i3jnumPT9XzbOE014PbCHgcJu1V6/HjaKCh5MtkczEOZwendSPxt/XW52 -tYphAJukRC69Z6PGxEKNGuLXNRNL+obZ2DQ5rXQ6lvTvfONhZ2EKVxRZRRjt -Z+A9d5VimBiF3ysKg3KI72SVlh6VopCx7H81TrwhIe9VE5fCk2HmyjcOkP7/ -kg77pEjhE/vc0RlxpP/hiaIiKhRWG6qgK3GKzy791doUGs7Xt5gkdu1788hD -j8Jw7U+/zeMZUN3o4r7PiEJ6rcGSTGLGyjSlEimM1PkmNvcgA1NarD6eC4Us -m8FsuQQGJs4qHDTYTKHsry86dsRjMmqqxp4UbkzI9EokHh41DrQIoFBOZm7q -R+KvPhZSNsEUrvu0JJGTyMCnLruSDeEURpuukUXidzU7Jjbvp9D0XaNIFnE/ -L/i0VwKFqWYBfmXEr87vNfFNpvCwReCOTuKX7MT+nekUBtX5/Bon7kzMSAg9 -RmGu4oQufYiB5+M5antOUahuXDFDh/iZX0HjvjMU5ieSBU789GXxzoQLFGYN -GsRtJW6yrZROuUyh9WdN7d3Ej+4/KM24TmFwOLP3IHGD7hPn7NsU5omd9Mki -fnCxczK3jELq+prRfGI+/TbvXBWFnq92q1wlrkn6uqqQT+HPK+Wjt4jvTY6/ -Kaqn8FP2Xb8y4vIAoUO3Gyn0uy0eV0l8p1dco/wphenJW1bcI769Xrapup3c -r7U2r4K4WKAcxHRRqMcLOX+HuEhvMevhKwrf5UfaFBNfuWR4t/ktha8k/5y5 -RHxJFlzbPpL5OnrtRC7xhWTrqc6vFCqUz12aRnx2yin/1QhZX0d/7o8lztvp -Ae/GKTxw+3NIAHHOa/93//2kcI1KpoQL8YkN4UlD0xSKR2Y4mBIfe7B/0eg/ -NAbeyTBTI840SGn+MZvG9O1L+2cTp10+HvxXmsb7qVqLBsn8pHDPsv/h0Chx -kzvvCXHCr9KNMvOIXcPoJOK4oNqfnIU0xq/X53gQ7+t/eFZhEY3vldMaDImj -6nsH1PRpFEu4bdRL1lP40o+HtZbRyNv8bOo68e6rI5p6JjTanjUM2Uu8M23W -bhNLGmcv2RMuSez/R4Y2s6Xxc/Yt4edkPfuGKFSstacxMrXXKofYy0n3t+Nm -GksSno7JE7v/a3x+kyeN+Zu+be0k+2HzMgszD28ap/yZfceInee6pQQE09j8 -S+ejELFDxg6tkHAaC0V4euVkf9lNB7VE7KVxcssZIz9iq4EETnwCjXyho+EN -ZL+a3Ci+cOoUjf7uro93kP3cO//G+TVnaHRUf+wpSRxzqujc2HkatbesmnF3 -HwOVB6/kOxbRKJwe6feT5IX+pgu50rU07txh1RZK8qTt6bmc+wyNRsn/tYoT -7zY/e2rXvzTOadbou0jy6JZO3ommFhr/dL7VatrLgOasE1mH35Lra4ryhUl+ -NcYcP7r0I43eXrWLMki++Y5kZb7/QmOGm9pjDnFhb0a62RiNyT5u1vNIPs6/ -k5zyV4SDP4ymNyqEk/zyjI2P0uZgUOeYYSXJ1/KO6Dg1PQ5WLNhqp0LsbLP3 -QMdSDirxBUlpJI+PL43cpw8cfOc0Yr+J5LWUZMjeYQcOqlUaBfYGMPBP1fbd -vns4aF9nb5DizcB3ysbLtY6DUvWNh+NJ/enepfIs8BEHBxXLPp3bSPLq4U+I -e8LBWUWBWjWuDGTF3FC+1snB/J9HXIdI/VryTrJ/6gt5v8KezctJ/QsubXU/ -S8ti56hpVwCpj182uGx57y2LFsoHM5DU3/YiXvOPAFk0Fi66rriMgWphkZVS -IbK4UL2lfmIpA0cqKxSMomXxplDGUCGp34uU5XuSM2RxoGzTss+k/vsN92zS -qpDFv8USAZQayfN0L9cwUTlc1NYVOyRDnv9FW2WJpByy1m2LK5BmYHLt1NAQ -Sw5XBS3ocZFiQFz4eFKAghzG0ytyK8XJ+0fXl3nx5HDaPtnWbxYD+33U6Q1O -crjngmzgyJgA5EwHW7XOy+GKBpFLTQ8FYP1tj/UHIy5manT46GwTgKLevMNi -Jlw0D9S5newugOGwhjqt1VwEjZik124CODHBMgmz5WLl1q43BxwF0PenSGfa -k4tCp11Sc80FECb5ip5zhIurbD/5aqoJIE8T+9b1cjGr4JBt6wfyPbpDLLws -Th6d7tp15bvzyf8Ed2Zy3Rz0tblV/WjJfaCeqmeWfFPAib935P83XgOKKbft -jYwUcdv2w8pNCdWQq2XMov2UsHXEbu4vqgqaFFYvHT02D0uWeyfF5FfCCsW6 -LN1OZXRSdmO+/y4HaeGCiG0J8/GFkuODscgymHdQ2cRNfQGaKVVmmj+7A7PV -tlY4PlqAAZ2/yp2NS0Fn1Zzbe9xV8N7qf+c+P3obwvqoehuhhXgtf/HGsrRi -+Daa7mKduxDrUpQUk3uLYK3uwzxrniqO3awattlyFfijK39NtqhixZOG06Yt -hRCsrd/T5qOG9pmm98VOFcCqYe8Ot9nqmHjtwzHu1guwRlV+vVSBOpqkC+3u -+pgPi+JT99Yt00BGX1Z8f/RpWOxjLFDr0UA4vuPYIoVT4MP3P1QWughpHZ05 -Wy2yQXChw/u7rCZ6fZgx2HAoC8auTU/qVmqiyRE1manV6bBD7cbsvPWLcWLL -gwHaPgW+L842ujOyGJtiOAqRGYfgXuGvt+MpWvhcXesRf99B2GyxEFfO08bo -ee1/Lar2w9yg5CodRhtzzPy0nZv3gqz4rtL1G3lodMaoSrYrAgrN98eMuPFw -yWh5fe3DCNDfn2mevZWHUuqWL4IrIsBupORF9zYedqn5ToyejIDDneNTO3bx -0P9YXuZBlwj4URBnFnOQh/t9+yUud4ZDz8rs51du8HA9dC3/8CYM/CML861v -8VDyv3rRd21hMHGr3GewhIdnGu00PteFAaXSPalXwUPdk29Xy10OA1sxJcX7 -DA9NRputvgaEQW3HFe/nL3gYuuHtg9jxULCRvseL6uah4RrraYX/QqF77eMJ -+V4eGiheNGzoDoWx6q8pHm94OFCpF2pYGwq8i0tufv7Cw+V/S3PTEkOhtmd1 -VPoQD0u4/r+jI0l7HCfQHeHhXXcP7TC/UPBNjmyLGOfhTgWX3jhb0h5zOI/7 -g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx -6WkevnFqfy3DCYX/A6WEJbo= +1:eJwV1nc4le8bAHDRoKIyMjLPeY+RLSlx3HcqmQ0R9S0SMuKYUVJmRlSyMjKT +dZw3qRQJIS1EFBFKk6wGUuT3/v56r891vddzPc9zr0fuqJelMzcXFxfPIi6u +/3+nB542EXEFBnVn2x+OVegadGWLndraEw5LVXyUvySKAoq8OCrWkwgKm+t7 +byYqQMCe0m6ennzQnb8YnJC4CdaMiybOdleA0tXt006JO2GwZpfXr+4GuLWZ +v+fDZRswIkb6v3e/BJb+pqmpSy4w270pZbJ7CD4Ni2w2iwmExm1FBR35P+Hh +1dFJjaMxIDlY9fmoyjy4jg8bLP51GYQ97EuXbePB59zzheoeVyBR0+j+Lmte +PKk8eVRSLAvepGnUf1/NjzvVX9k7rsiDuIKQF9ziazD17dGUxkvXQDT5Q2xS +lhD+42i/N+m4DtFWJgYvp0XQ/o7mHsPKIvDTzbN/Gi6GXLf9/DPPlYBprsAv +s3gxdGDWWg/ElQBtWXBMW4oY/h1aHyqVWALtXftvdhaLIWPjMTIhuwTUvFfy +DLSJ4fk3J4+a3i2Br4WBhT8kxDHocmbN8q8lcEh419i6W+Jomq6wuMaoFLZP +/AlifZDAgxLPFJ/9LoVTxsnrH45KoMwHRaVF/0qBzFPtFZqWwN6WYyHaPGwQ +szqiW8W7DgeDvFUS+Nkweu/RDI/aOtR0CA5bR2NDUniCf/rJdciJUnsXZsqG +IRF5VhO/JOb0ZL6LS2ODqFedlKioJI59eqJokcUG8ye2rW6ykiho/KVueT4b +KoPiVFZtkMSSzj29QWw2nB+cHDlgK4leAz731WrZoFVy32UiXxK7a90EPg2x +IUx/r4PEZins3xEgFadUBsZ22T82GUqhV9pz2KBWBgKh3yKszaWQy0B3SbdW +GVxtPFeYcEQKj3KvPLVGvwzumVZ/WxorhTNPE7ktd5XBpC094OcbKewe6k9Y +5FsGdiemzreclsYdwa0+EpVlwLhiKDlyThpt9576qFNdRp3/EmdZgjQ6Sz2d +3VVbBkFzSu2GBdI4v/zSSt/mMkiJsBOpapHGtPrYrojXZdBy+XHOdSkZdJhk +cb2eKoMtZPrts3UyKBfw8vJGTQ5s726bH38igwKvR5JjtTmwi2vxTvuXMuiy +PK7tzSYOOFqy3sAnGezq4PrMMuCA0Wm5kNAlsth9HkqPm3HAW2b62lZlWXQY +TiBvOHGgySVnrDFAFmMCJBY7JnPAZE5XMPi0LH5KTtpgcIUDbQldOtqhsvhD +anGuSAYH3lTxhRbEyuKB7FaNqhwOjK/wFzx3VRZT7ujrdpZyQKzceJNRgyzG +2Q3J7avngMfv76FP+OVQ79bCocivHNjic2ztZ0E5/HnL6Z3ENw7wjvSyecTk +8N2rAB7OGAeu9zW+NqDJob++y/qmHxwYqE1RuaMjh8VCQry1cxzYfU63J89e +DjVoDe7vVpEg/Y/jWeckhxUtdFlNQRJGA2g8/W5yGJl8P/iMMAkxrivUxPzl +cPfqJFU+cRLqzfojLsbI4ddaDB6VI0FLMEz99E05zKx8ue2DFglccVNNaZVy +mH7Egj2uTUIbj/vByvty+Lg2umFKh4TjU5bnvj+Sw2vBodwzW0go6CH6XHrl +8FJfRs8jQxLW5jyJsuKh4eEJV4eUvSTMKq8eULWmoe+y8E1cHiRMZ0mEbThI +Q8vKlurTniT8WsUgdO1pyOcuofSTRcL4T1337W40HE+zefrKh4Sh+47TB8/Q +kF+hcr17IAnPzO4KxFyn4eqb95a2h5Hw+MHDmxdKaRj/rD92eQQJTeotVkk3 +aJiR+Jx7ayQJtULvM7KraOi4rr0nL4qEir7lCndaaZgjb6W0IY6EjON2MDRF +w6bKu/PJSSRc6Xcd+vKHhsGX7DZcSiYhebffubEFGnLlubmfSyHh4oaY57/5 +6EgbvzHofIWE8L83bVZJ09Gz23BuOoOEEM+aP8J0OtK9zCw7MkkIHmzOklCk +42OlrhtFV0kIaOz7wNCi4z6NiEjjbOo+45Z46xvRcXzZntKDeSS4zq8SMjSj +o1GhuaVIPgnHvCQqd+6hY7GpGG8L5SP71OcsD9LRj29frmoBCVbrDsS4seio +2fQv/WEhCXsvOCp7+dEx4NTax4eKSNi14Nnmf5KOEhvP8v6ibPwhXDg0nI4K +k/HP15aQoM8uy01NpePcjTk3VTYJfbLsnB2Z1PpThWvzKAellmT/yqEjt5Ls +kTVlJNwNK7xqWULH54sNW75Q3j9TkLmIpKO4l8WkBYeKp8e1jPIKOk6Zjt0q +p6xlm5smUEPHCfFKSQ+ShI7W7CsP6um42NaosYmy97asVI9HdJy8qrtS4gYJ +pFpG8rM2Or5bJB1TTdmiIC3pVCcdi74F1Swpp/Jb/EqiYg8dtb0EUy0oKy1J +Toh6T8eW2Ta9TspPghIvbfxMR2Nw4ltzk7q/yYSLH0eo/WYIh5hRXnLs0oWk +CTr6XEjPCqdc0Hch3vAXHf9jcJwrKW/bGx/3/Tcd987z9XymPNR8/nzuPB0D +9Y9PCVWQVD+Njd3NTeBMSnwtk7JsRXTMv6UEcozXaztRrlOIiuasILBPepFN +NGW7rMioQ6sJbPVsUyiiPCcYcW6FCIHpInuKGilnxoRFVosTWBG6/fVbylv+ +hUS4SRNYcM39zg/KPX5nw8XoBDbPhe1YcouEwOHgsMcKBA4mmUYLU15rfzo0 +QIXA17ORp2Up3+k6FcLQJNDK+AdNibKV6cmzXRsJjJGzOqtG+WddwJmILQTW +3vC4qEE5ceOJYC0gUOj6v33qlDXZfqffbyNQUa/1xXrK7bK+QQnGBNZpXeWm +U2alep8CCwJPd6qPiVLmX+l1cnwvgUHfzBP4KJeFeQZm7Sdw+Yt7ozPU/k1n +jgeY/0egta0uzwfKwx7uJ/7aEyjwJbnrGeWYIVf/UicC1x5JdLhBWcHWxe+A +G4GqqrOlCZSbW519eVkEZutfvsmi7LzNyeeuL4FfuegBJpQXVx31PhZI4HHv +wFlZytfUHLxEggkUXmKrP0XFz7DAntUUSuCymovQTDnk0iEP2nkCPYSUzttR +ll7y3/GOiwSCHr2TQbkm6IB7aBKBnkm5g8NUPv1x3u86cJVAvkAbI1fK6X1W +LhfyCDRNVc6nUd68d98x/UIC36281/SGytcA/T1OGTcIPFim7WBA+bug6ZH9 +DQTaWfoJvKfqoceD1u7+mECTT/KhpyjXN/+BkBYCv7k1qAlQTghiyxS/pv5P ++2ikQtWXxtDKwdkRAgVDj4bqlZIgpv9pl8AkgY6d/dN3qPrlSn1QS5sisFOr +qkKF8gsTVrbZAoE/23r+CRRT8br54nCWEAObPfqXFl2n6nVFcetNMQZGuQc0 +81A2cA5lNksxsGJ6Tdchqp/wi2tKTSgw8M4Bsp/nGhXP0MS3qM/AtHz1p4xc +EkZ2W//30YmBMq5LZqvSSXhZovr8txsD+3+vkXqbRkI1z1I9fi8Gyuu/z/1D +9cfYu5USOqeo9e5btKikkqAoI9YbfYGBDVNKL50TSXAZ77VVrmTg4q07MpTP +U/3K+NYTuM9AAz3WNuFYEnTy4zZb1TNQ2PKu3Ww0CUv364udecZAqU/Wk/fO +kVD4IKu7bYCBtsfSc/mpefAx/sh+32XyKF5VxxSg5gVrRIWmsVIeN7j1CLw6 +QcLMztmxsdXy6HLgdneaPwnLeRLPuUnI4y0yx0rUl7rvU423j6jKY51x3dpJ +al6dcZYX2r1PHk1Jy/Q1R6l6Mxh9oZwjj7wPzVPXmZKQm3kvc/iaPM5yF5hH +GFP9aDbSpahYHuPPvJD4akT119tSC7QKeWQs1HKXbCPBcf1uNYlH8rgw1i3F +yyShfG1FPO83eXywedBVX50Ek4lAk086CsjPvbEgcg0JkprSUbz6Clip8uWs +CzXvx32bGpS3KuBom7XoTn5qPk2v1vc1U0Ah6b6oOV4SBuZL1BbsFdB+oT4K +uUjwXflWSDxWAY+zmUy1cQ5kKOGAeZ8C7g0Q3Fj6mHqfHP8s4f1OAYvfDPkq +POIAcOJtkj4p4MK+joy8Bg581HjT/mZCAb9TyRz/gANqm30bjy1WRCdXQQGD +WxxoNCooDlVVROaRh8MC2RwYdeT1ux2iiBN5h8T9fKj3Ufb2B3WRiviz3Lwn +i8WBiTehy57HKmK13cpnj45z4Mfu2cz3SYqYYx1sxn+MAzN6I00CxYr41b16 +NOggB7iFW9a6tSuijY73QIchB8SbLlVLySnhPXObLSfXUO87QpQ7ukEJdxcP ++k8VloFgq/zF8on1mFZzOSKqmQ2SMTf26OioYNdyh0eLKkohTVl3tZCLKu70 +lx7pTCmBZxJbN/68rIYy9HbHvOPFsEWyIUH9tTpeO7Ms5YhoEQjw5Ps7hGvg +0ge+YU/aroN0mIz+AXlNjO8XVAp3LAA+xqFKy8eaeMD3e5bBXD6oMcVvBB7W +wuTrzzriyDzwHRBsNOXagOk7rPPaTXJh4me8tUnaBkxUSbCQ58uGnerNGSaq +2liVornyQXYm1P7U+zvTpo29Jl8mi8TTgaWi1dvhvBFlijaXn+xLBea4U9cB +Ph3UjHZ9LH4xGXYQYhb8+TroZ/atuzYmERRDz59s2LQJ/Ycd7LM4CbDeWbeO +0bsJrb70p6dnXQDnWtfI2z6bMcHzXVKu03moy+1y+i6ii4/aa8vuakTDr+KF +GfW7ukgOZ8a8t4oERwabL8NiC2p71LF1hsPg+/oknYrJLdiwbl/ToEgI3Cv4 ++34qRg+DDm3Ze1n6NBzcTkc9aX1sjW4l/+YFwjrP6Cq1en1snI6zb9/uDyLL +PW5a2DCRLdhSfvisDxRsOxM0eYCJttolxtW+PqB15uK2pENMVBVAcykXH9g1 +Wf6qx4GJVatL4qd3+0DU66lZRw8mhll2lk3J+cDv/BDDoDAmOtXYGxCPvaFX +L6mzkM1E5cNfLTTXeoPriYKrJiQTO0L7L+5f4Q3T5B3n0XImhjjtHg3j8gZB +Ws+MZiUTn8xlfXr1ygvMeKUkH9Qz0aYw/+WKUC+o6Sp06nzFxF6by+zq1yww +FbinGtDDxJSoPlbzQxb07Hw6LdbHxMV6EZIDZSz4Vf0txu4dEy8MWdM1I1ig +mqfBGR5hYrHImv3OGiyo6d0aED/GxP3l5h9erKPWE94H6pPU+SyfbjBaxoJj +0Sc6/KeYKL2Ue8X+AU/4VR+VIfqbiR4V89ETTz0h/M8Vx+o/TAzKqbqdfMcT +VmuXqByeZ+KfVTbxO/I8IduzemphgYnv+mf4uC94wv8AyAJpag== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "PlotRange" -> {{0, 30}, {0., 0.059960858712968954`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13754,6 +15124,7 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13781,7 +15152,8 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.059960858712968954`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13789,22 +15161,571 @@ g4c9HQc2nFwVCgk/c3ZU/+ThRouVMWW6ocAyLNJ2/8NDp9iFrq8XhMK5oOrx Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991327033758711*^9}, + CellChangeTimes->{3.991327033758711*^9, 3.993828664203496*^9}, CellLabel-> - "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] + "Out[150]=",ExpressionUUID->"54805415-da40-4d8b-839c-e5926471a425"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, - 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ -ea3fc2b4c4a8"], + 3.9919244033659534`*^9}, + CellLabel-> + "In[151]:=",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.991799951845436*^9, - 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ -85a3484011b6"], + CellChangeTimes->{{3.991799951845436*^9, 3.991799954096182*^9}}, + CellLabel-> + "In[152]:=",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc4le8bAHDRoKIyMjLPeY+RLSlx3HcqmQ0R9S0SMuKYUVJmRlSyMjKT +dZw3qRQJIS1EFBFKk6wGUuT3/v56r891vddzPc9zr0fuqJelMzcXFxfPIi6u +/3+nB542EXEFBnVn2x+OVegadGWLndraEw5LVXyUvySKAoq8OCrWkwgKm+t7 +byYqQMCe0m6ennzQnb8YnJC4CdaMiybOdleA0tXt006JO2GwZpfXr+4GuLWZ +v+fDZRswIkb6v3e/BJb+pqmpSy4w270pZbJ7CD4Ni2w2iwmExm1FBR35P+Hh +1dFJjaMxIDlY9fmoyjy4jg8bLP51GYQ97EuXbePB59zzheoeVyBR0+j+Lmte +PKk8eVRSLAvepGnUf1/NjzvVX9k7rsiDuIKQF9ziazD17dGUxkvXQDT5Q2xS +lhD+42i/N+m4DtFWJgYvp0XQ/o7mHsPKIvDTzbN/Gi6GXLf9/DPPlYBprsAv +s3gxdGDWWg/ElQBtWXBMW4oY/h1aHyqVWALtXftvdhaLIWPjMTIhuwTUvFfy +DLSJ4fk3J4+a3i2Br4WBhT8kxDHocmbN8q8lcEh419i6W+Jomq6wuMaoFLZP +/AlifZDAgxLPFJ/9LoVTxsnrH45KoMwHRaVF/0qBzFPtFZqWwN6WYyHaPGwQ +szqiW8W7DgeDvFUS+Nkweu/RDI/aOtR0CA5bR2NDUniCf/rJdciJUnsXZsqG +IRF5VhO/JOb0ZL6LS2ODqFedlKioJI59eqJokcUG8ye2rW6ykiho/KVueT4b +KoPiVFZtkMSSzj29QWw2nB+cHDlgK4leAz731WrZoFVy32UiXxK7a90EPg2x +IUx/r4PEZins3xEgFadUBsZ22T82GUqhV9pz2KBWBgKh3yKszaWQy0B3SbdW +GVxtPFeYcEQKj3KvPLVGvwzumVZ/WxorhTNPE7ktd5XBpC094OcbKewe6k9Y +5FsGdiemzreclsYdwa0+EpVlwLhiKDlyThpt9576qFNdRp3/EmdZgjQ6Sz2d +3VVbBkFzSu2GBdI4v/zSSt/mMkiJsBOpapHGtPrYrojXZdBy+XHOdSkZdJhk +cb2eKoMtZPrts3UyKBfw8vJGTQ5s726bH38igwKvR5JjtTmwi2vxTvuXMuiy +PK7tzSYOOFqy3sAnGezq4PrMMuCA0Wm5kNAlsth9HkqPm3HAW2b62lZlWXQY +TiBvOHGgySVnrDFAFmMCJBY7JnPAZE5XMPi0LH5KTtpgcIUDbQldOtqhsvhD +anGuSAYH3lTxhRbEyuKB7FaNqhwOjK/wFzx3VRZT7ujrdpZyQKzceJNRgyzG +2Q3J7avngMfv76FP+OVQ79bCocivHNjic2ztZ0E5/HnL6Z3ENw7wjvSyecTk +8N2rAB7OGAeu9zW+NqDJob++y/qmHxwYqE1RuaMjh8VCQry1cxzYfU63J89e +DjVoDe7vVpEg/Y/jWeckhxUtdFlNQRJGA2g8/W5yGJl8P/iMMAkxrivUxPzl +cPfqJFU+cRLqzfojLsbI4ddaDB6VI0FLMEz99E05zKx8ue2DFglccVNNaZVy +mH7Egj2uTUIbj/vByvty+Lg2umFKh4TjU5bnvj+Sw2vBodwzW0go6CH6XHrl +8FJfRs8jQxLW5jyJsuKh4eEJV4eUvSTMKq8eULWmoe+y8E1cHiRMZ0mEbThI +Q8vKlurTniT8WsUgdO1pyOcuofSTRcL4T1337W40HE+zefrKh4Sh+47TB8/Q +kF+hcr17IAnPzO4KxFyn4eqb95a2h5Hw+MHDmxdKaRj/rD92eQQJTeotVkk3 +aJiR+Jx7ayQJtULvM7KraOi4rr0nL4qEir7lCndaaZgjb6W0IY6EjON2MDRF +w6bKu/PJSSRc6Xcd+vKHhsGX7DZcSiYhebffubEFGnLlubmfSyHh4oaY57/5 +6EgbvzHofIWE8L83bVZJ09Gz23BuOoOEEM+aP8J0OtK9zCw7MkkIHmzOklCk +42OlrhtFV0kIaOz7wNCi4z6NiEjjbOo+45Z46xvRcXzZntKDeSS4zq8SMjSj +o1GhuaVIPgnHvCQqd+6hY7GpGG8L5SP71OcsD9LRj29frmoBCVbrDsS4seio +2fQv/WEhCXsvOCp7+dEx4NTax4eKSNi14Nnmf5KOEhvP8v6ibPwhXDg0nI4K +k/HP15aQoM8uy01NpePcjTk3VTYJfbLsnB2Z1PpThWvzKAellmT/yqEjt5Ls +kTVlJNwNK7xqWULH54sNW75Q3j9TkLmIpKO4l8WkBYeKp8e1jPIKOk6Zjt0q +p6xlm5smUEPHCfFKSQ+ShI7W7CsP6um42NaosYmy97asVI9HdJy8qrtS4gYJ +pFpG8rM2Or5bJB1TTdmiIC3pVCcdi74F1Swpp/Jb/EqiYg8dtb0EUy0oKy1J +Toh6T8eW2Ta9TspPghIvbfxMR2Nw4ltzk7q/yYSLH0eo/WYIh5hRXnLs0oWk +CTr6XEjPCqdc0Hch3vAXHf9jcJwrKW/bGx/3/Tcd987z9XymPNR8/nzuPB0D +9Y9PCVWQVD+Njd3NTeBMSnwtk7JsRXTMv6UEcozXaztRrlOIiuasILBPepFN +NGW7rMioQ6sJbPVsUyiiPCcYcW6FCIHpInuKGilnxoRFVosTWBG6/fVbylv+ +hUS4SRNYcM39zg/KPX5nw8XoBDbPhe1YcouEwOHgsMcKBA4mmUYLU15rfzo0 +QIXA17ORp2Up3+k6FcLQJNDK+AdNibKV6cmzXRsJjJGzOqtG+WddwJmILQTW +3vC4qEE5ceOJYC0gUOj6v33qlDXZfqffbyNQUa/1xXrK7bK+QQnGBNZpXeWm +U2alep8CCwJPd6qPiVLmX+l1cnwvgUHfzBP4KJeFeQZm7Sdw+Yt7ozPU/k1n +jgeY/0egta0uzwfKwx7uJ/7aEyjwJbnrGeWYIVf/UicC1x5JdLhBWcHWxe+A +G4GqqrOlCZSbW519eVkEZutfvsmi7LzNyeeuL4FfuegBJpQXVx31PhZI4HHv +wFlZytfUHLxEggkUXmKrP0XFz7DAntUUSuCymovQTDnk0iEP2nkCPYSUzttR +ll7y3/GOiwSCHr2TQbkm6IB7aBKBnkm5g8NUPv1x3u86cJVAvkAbI1fK6X1W +LhfyCDRNVc6nUd68d98x/UIC36281/SGytcA/T1OGTcIPFim7WBA+bug6ZH9 +DQTaWfoJvKfqoceD1u7+mECTT/KhpyjXN/+BkBYCv7k1qAlQTghiyxS/pv5P ++2ikQtWXxtDKwdkRAgVDj4bqlZIgpv9pl8AkgY6d/dN3qPrlSn1QS5sisFOr +qkKF8gsTVrbZAoE/23r+CRRT8br54nCWEAObPfqXFl2n6nVFcetNMQZGuQc0 +81A2cA5lNksxsGJ6Tdchqp/wi2tKTSgw8M4Bsp/nGhXP0MS3qM/AtHz1p4xc +EkZ2W//30YmBMq5LZqvSSXhZovr8txsD+3+vkXqbRkI1z1I9fi8Gyuu/z/1D +9cfYu5USOqeo9e5btKikkqAoI9YbfYGBDVNKL50TSXAZ77VVrmTg4q07MpTP +U/3K+NYTuM9AAz3WNuFYEnTy4zZb1TNQ2PKu3Ww0CUv364udecZAqU/Wk/fO +kVD4IKu7bYCBtsfSc/mpefAx/sh+32XyKF5VxxSg5gVrRIWmsVIeN7j1CLw6 +QcLMztmxsdXy6HLgdneaPwnLeRLPuUnI4y0yx0rUl7rvU423j6jKY51x3dpJ +al6dcZYX2r1PHk1Jy/Q1R6l6Mxh9oZwjj7wPzVPXmZKQm3kvc/iaPM5yF5hH +GFP9aDbSpahYHuPPvJD4akT119tSC7QKeWQs1HKXbCPBcf1uNYlH8rgw1i3F +yyShfG1FPO83eXywedBVX50Ek4lAk086CsjPvbEgcg0JkprSUbz6Clip8uWs +CzXvx32bGpS3KuBom7XoTn5qPk2v1vc1U0Ah6b6oOV4SBuZL1BbsFdB+oT4K +uUjwXflWSDxWAY+zmUy1cQ5kKOGAeZ8C7g0Q3Fj6mHqfHP8s4f1OAYvfDPkq +POIAcOJtkj4p4MK+joy8Bg581HjT/mZCAb9TyRz/gANqm30bjy1WRCdXQQGD +WxxoNCooDlVVROaRh8MC2RwYdeT1ux2iiBN5h8T9fKj3Ufb2B3WRiviz3Lwn +i8WBiTehy57HKmK13cpnj45z4Mfu2cz3SYqYYx1sxn+MAzN6I00CxYr41b16 +NOggB7iFW9a6tSuijY73QIchB8SbLlVLySnhPXObLSfXUO87QpQ7ukEJdxcP ++k8VloFgq/zF8on1mFZzOSKqmQ2SMTf26OioYNdyh0eLKkohTVl3tZCLKu70 +lx7pTCmBZxJbN/68rIYy9HbHvOPFsEWyIUH9tTpeO7Ms5YhoEQjw5Ps7hGvg +0ge+YU/aroN0mIz+AXlNjO8XVAp3LAA+xqFKy8eaeMD3e5bBXD6oMcVvBB7W +wuTrzzriyDzwHRBsNOXagOk7rPPaTXJh4me8tUnaBkxUSbCQ58uGnerNGSaq +2liVornyQXYm1P7U+zvTpo29Jl8mi8TTgaWi1dvhvBFlijaXn+xLBea4U9cB +Ph3UjHZ9LH4xGXYQYhb8+TroZ/atuzYmERRDz59s2LQJ/Ycd7LM4CbDeWbeO +0bsJrb70p6dnXQDnWtfI2z6bMcHzXVKu03moy+1y+i6ii4/aa8vuakTDr+KF +GfW7ukgOZ8a8t4oERwabL8NiC2p71LF1hsPg+/oknYrJLdiwbl/ToEgI3Cv4 ++34qRg+DDm3Ze1n6NBzcTkc9aX1sjW4l/+YFwjrP6Cq1en1snI6zb9/uDyLL +PW5a2DCRLdhSfvisDxRsOxM0eYCJttolxtW+PqB15uK2pENMVBVAcykXH9g1 +Wf6qx4GJVatL4qd3+0DU66lZRw8mhll2lk3J+cDv/BDDoDAmOtXYGxCPvaFX +L6mzkM1E5cNfLTTXeoPriYKrJiQTO0L7L+5f4Q3T5B3n0XImhjjtHg3j8gZB +Ws+MZiUTn8xlfXr1ygvMeKUkH9Qz0aYw/+WKUC+o6Sp06nzFxF6by+zq1yww +FbinGtDDxJSoPlbzQxb07Hw6LdbHxMV6EZIDZSz4Vf0txu4dEy8MWdM1I1ig +mqfBGR5hYrHImv3OGiyo6d0aED/GxP3l5h9erKPWE94H6pPU+SyfbjBaxoJj +0Sc6/KeYKL2Ue8X+AU/4VR+VIfqbiR4V89ETTz0h/M8Vx+o/TAzKqbqdfMcT +VmuXqByeZ+KfVTbxO/I8IduzemphgYnv+mf4uC94wv8AyAJpag== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc4le8bAHDRoKIyMjLPeY+RLSlx3HcqmQ0R9S0SMuKYUVJmRlSyMjKT +dZw3qRQJIS1EFBFKk6wGUuT3/v56r891vddzPc9zr0fuqJelMzcXFxfPIi6u +/3+nB542EXEFBnVn2x+OVegadGWLndraEw5LVXyUvySKAoq8OCrWkwgKm+t7 +byYqQMCe0m6ennzQnb8YnJC4CdaMiybOdleA0tXt006JO2GwZpfXr+4GuLWZ +v+fDZRswIkb6v3e/BJb+pqmpSy4w270pZbJ7CD4Ni2w2iwmExm1FBR35P+Hh +1dFJjaMxIDlY9fmoyjy4jg8bLP51GYQ97EuXbePB59zzheoeVyBR0+j+Lmte +PKk8eVRSLAvepGnUf1/NjzvVX9k7rsiDuIKQF9ziazD17dGUxkvXQDT5Q2xS +lhD+42i/N+m4DtFWJgYvp0XQ/o7mHsPKIvDTzbN/Gi6GXLf9/DPPlYBprsAv +s3gxdGDWWg/ElQBtWXBMW4oY/h1aHyqVWALtXftvdhaLIWPjMTIhuwTUvFfy +DLSJ4fk3J4+a3i2Br4WBhT8kxDHocmbN8q8lcEh419i6W+Jomq6wuMaoFLZP +/AlifZDAgxLPFJ/9LoVTxsnrH45KoMwHRaVF/0qBzFPtFZqWwN6WYyHaPGwQ +szqiW8W7DgeDvFUS+Nkweu/RDI/aOtR0CA5bR2NDUniCf/rJdciJUnsXZsqG +IRF5VhO/JOb0ZL6LS2ODqFedlKioJI59eqJokcUG8ye2rW6ykiho/KVueT4b +KoPiVFZtkMSSzj29QWw2nB+cHDlgK4leAz731WrZoFVy32UiXxK7a90EPg2x +IUx/r4PEZins3xEgFadUBsZ22T82GUqhV9pz2KBWBgKh3yKszaWQy0B3SbdW +GVxtPFeYcEQKj3KvPLVGvwzumVZ/WxorhTNPE7ktd5XBpC094OcbKewe6k9Y +5FsGdiemzreclsYdwa0+EpVlwLhiKDlyThpt9576qFNdRp3/EmdZgjQ6Sz2d +3VVbBkFzSu2GBdI4v/zSSt/mMkiJsBOpapHGtPrYrojXZdBy+XHOdSkZdJhk +cb2eKoMtZPrts3UyKBfw8vJGTQ5s726bH38igwKvR5JjtTmwi2vxTvuXMuiy +PK7tzSYOOFqy3sAnGezq4PrMMuCA0Wm5kNAlsth9HkqPm3HAW2b62lZlWXQY +TiBvOHGgySVnrDFAFmMCJBY7JnPAZE5XMPi0LH5KTtpgcIUDbQldOtqhsvhD +anGuSAYH3lTxhRbEyuKB7FaNqhwOjK/wFzx3VRZT7ujrdpZyQKzceJNRgyzG +2Q3J7avngMfv76FP+OVQ79bCocivHNjic2ztZ0E5/HnL6Z3ENw7wjvSyecTk +8N2rAB7OGAeu9zW+NqDJob++y/qmHxwYqE1RuaMjh8VCQry1cxzYfU63J89e +DjVoDe7vVpEg/Y/jWeckhxUtdFlNQRJGA2g8/W5yGJl8P/iMMAkxrivUxPzl +cPfqJFU+cRLqzfojLsbI4ddaDB6VI0FLMEz99E05zKx8ue2DFglccVNNaZVy +mH7Egj2uTUIbj/vByvty+Lg2umFKh4TjU5bnvj+Sw2vBodwzW0go6CH6XHrl +8FJfRs8jQxLW5jyJsuKh4eEJV4eUvSTMKq8eULWmoe+y8E1cHiRMZ0mEbThI +Q8vKlurTniT8WsUgdO1pyOcuofSTRcL4T1337W40HE+zefrKh4Sh+47TB8/Q +kF+hcr17IAnPzO4KxFyn4eqb95a2h5Hw+MHDmxdKaRj/rD92eQQJTeotVkk3 +aJiR+Jx7ayQJtULvM7KraOi4rr0nL4qEir7lCndaaZgjb6W0IY6EjON2MDRF +w6bKu/PJSSRc6Xcd+vKHhsGX7DZcSiYhebffubEFGnLlubmfSyHh4oaY57/5 +6EgbvzHofIWE8L83bVZJ09Gz23BuOoOEEM+aP8J0OtK9zCw7MkkIHmzOklCk +42OlrhtFV0kIaOz7wNCi4z6NiEjjbOo+45Z46xvRcXzZntKDeSS4zq8SMjSj +o1GhuaVIPgnHvCQqd+6hY7GpGG8L5SP71OcsD9LRj29frmoBCVbrDsS4seio +2fQv/WEhCXsvOCp7+dEx4NTax4eKSNi14Nnmf5KOEhvP8v6ibPwhXDg0nI4K +k/HP15aQoM8uy01NpePcjTk3VTYJfbLsnB2Z1PpThWvzKAellmT/yqEjt5Ls +kTVlJNwNK7xqWULH54sNW75Q3j9TkLmIpKO4l8WkBYeKp8e1jPIKOk6Zjt0q +p6xlm5smUEPHCfFKSQ+ShI7W7CsP6um42NaosYmy97asVI9HdJy8qrtS4gYJ +pFpG8rM2Or5bJB1TTdmiIC3pVCcdi74F1Swpp/Jb/EqiYg8dtb0EUy0oKy1J +Toh6T8eW2Ta9TspPghIvbfxMR2Nw4ltzk7q/yYSLH0eo/WYIh5hRXnLs0oWk +CTr6XEjPCqdc0Hch3vAXHf9jcJwrKW/bGx/3/Tcd987z9XymPNR8/nzuPB0D +9Y9PCVWQVD+Njd3NTeBMSnwtk7JsRXTMv6UEcozXaztRrlOIiuasILBPepFN +NGW7rMioQ6sJbPVsUyiiPCcYcW6FCIHpInuKGilnxoRFVosTWBG6/fVbylv+ +hUS4SRNYcM39zg/KPX5nw8XoBDbPhe1YcouEwOHgsMcKBA4mmUYLU15rfzo0 +QIXA17ORp2Up3+k6FcLQJNDK+AdNibKV6cmzXRsJjJGzOqtG+WddwJmILQTW +3vC4qEE5ceOJYC0gUOj6v33qlDXZfqffbyNQUa/1xXrK7bK+QQnGBNZpXeWm +U2alep8CCwJPd6qPiVLmX+l1cnwvgUHfzBP4KJeFeQZm7Sdw+Yt7ozPU/k1n +jgeY/0egta0uzwfKwx7uJ/7aEyjwJbnrGeWYIVf/UicC1x5JdLhBWcHWxe+A +G4GqqrOlCZSbW519eVkEZutfvsmi7LzNyeeuL4FfuegBJpQXVx31PhZI4HHv +wFlZytfUHLxEggkUXmKrP0XFz7DAntUUSuCymovQTDnk0iEP2nkCPYSUzttR +ll7y3/GOiwSCHr2TQbkm6IB7aBKBnkm5g8NUPv1x3u86cJVAvkAbI1fK6X1W +LhfyCDRNVc6nUd68d98x/UIC36281/SGytcA/T1OGTcIPFim7WBA+bug6ZH9 +DQTaWfoJvKfqoceD1u7+mECTT/KhpyjXN/+BkBYCv7k1qAlQTghiyxS/pv5P ++2ikQtWXxtDKwdkRAgVDj4bqlZIgpv9pl8AkgY6d/dN3qPrlSn1QS5sisFOr +qkKF8gsTVrbZAoE/23r+CRRT8br54nCWEAObPfqXFl2n6nVFcetNMQZGuQc0 +81A2cA5lNksxsGJ6Tdchqp/wi2tKTSgw8M4Bsp/nGhXP0MS3qM/AtHz1p4xc +EkZ2W//30YmBMq5LZqvSSXhZovr8txsD+3+vkXqbRkI1z1I9fi8Gyuu/z/1D +9cfYu5USOqeo9e5btKikkqAoI9YbfYGBDVNKL50TSXAZ77VVrmTg4q07MpTP +U/3K+NYTuM9AAz3WNuFYEnTy4zZb1TNQ2PKu3Ww0CUv364udecZAqU/Wk/fO +kVD4IKu7bYCBtsfSc/mpefAx/sh+32XyKF5VxxSg5gVrRIWmsVIeN7j1CLw6 +QcLMztmxsdXy6HLgdneaPwnLeRLPuUnI4y0yx0rUl7rvU423j6jKY51x3dpJ +al6dcZYX2r1PHk1Jy/Q1R6l6Mxh9oZwjj7wPzVPXmZKQm3kvc/iaPM5yF5hH +GFP9aDbSpahYHuPPvJD4akT119tSC7QKeWQs1HKXbCPBcf1uNYlH8rgw1i3F +yyShfG1FPO83eXywedBVX50Ek4lAk086CsjPvbEgcg0JkprSUbz6Clip8uWs +CzXvx32bGpS3KuBom7XoTn5qPk2v1vc1U0Ah6b6oOV4SBuZL1BbsFdB+oT4K +uUjwXflWSDxWAY+zmUy1cQ5kKOGAeZ8C7g0Q3Fj6mHqfHP8s4f1OAYvfDPkq +POIAcOJtkj4p4MK+joy8Bg581HjT/mZCAb9TyRz/gANqm30bjy1WRCdXQQGD +WxxoNCooDlVVROaRh8MC2RwYdeT1ux2iiBN5h8T9fKj3Ufb2B3WRiviz3Lwn +i8WBiTehy57HKmK13cpnj45z4Mfu2cz3SYqYYx1sxn+MAzN6I00CxYr41b16 +NOggB7iFW9a6tSuijY73QIchB8SbLlVLySnhPXObLSfXUO87QpQ7ukEJdxcP ++k8VloFgq/zF8on1mFZzOSKqmQ2SMTf26OioYNdyh0eLKkohTVl3tZCLKu70 +lx7pTCmBZxJbN/68rIYy9HbHvOPFsEWyIUH9tTpeO7Ms5YhoEQjw5Ps7hGvg +0ge+YU/aroN0mIz+AXlNjO8XVAp3LAA+xqFKy8eaeMD3e5bBXD6oMcVvBB7W +wuTrzzriyDzwHRBsNOXagOk7rPPaTXJh4me8tUnaBkxUSbCQ58uGnerNGSaq +2liVornyQXYm1P7U+zvTpo29Jl8mi8TTgaWi1dvhvBFlijaXn+xLBea4U9cB +Ph3UjHZ9LH4xGXYQYhb8+TroZ/atuzYmERRDz59s2LQJ/Ycd7LM4CbDeWbeO +0bsJrb70p6dnXQDnWtfI2z6bMcHzXVKu03moy+1y+i6ii4/aa8vuakTDr+KF +GfW7ukgOZ8a8t4oERwabL8NiC2p71LF1hsPg+/oknYrJLdiwbl/ToEgI3Cv4 ++34qRg+DDm3Ze1n6NBzcTkc9aX1sjW4l/+YFwjrP6Cq1en1snI6zb9/uDyLL +PW5a2DCRLdhSfvisDxRsOxM0eYCJttolxtW+PqB15uK2pENMVBVAcykXH9g1 +Wf6qx4GJVatL4qd3+0DU66lZRw8mhll2lk3J+cDv/BDDoDAmOtXYGxCPvaFX +L6mzkM1E5cNfLTTXeoPriYKrJiQTO0L7L+5f4Q3T5B3n0XImhjjtHg3j8gZB +Ws+MZiUTn8xlfXr1ygvMeKUkH9Qz0aYw/+WKUC+o6Sp06nzFxF6by+zq1yww +FbinGtDDxJSoPlbzQxb07Hw6LdbHxMV6EZIDZSz4Vf0txu4dEy8MWdM1I1ig +mqfBGR5hYrHImv3OGiyo6d0aED/GxP3l5h9erKPWE94H6pPU+SyfbjBaxoJj +0Sc6/KeYKL2Ue8X+AU/4VR+VIfqbiR4V89ETTz0h/M8Vx+o/TAzKqbqdfMcT +VmuXqByeZ+KfVTbxO/I8IduzemphgYnv+mf4uC94wv8AyAJpag== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.059960858712968954`}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.059960858712968954`}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc4le8bAHDRoKIyMjLPeY+RLSlx3HcqmQ0R9S0SMuKYUVJmRlSyMjKT +dZw3qRQJIS1EFBFKk6wGUuT3/v56r891vddzPc9zr0fuqJelMzcXFxfPIi6u +/3+nB542EXEFBnVn2x+OVegadGWLndraEw5LVXyUvySKAoq8OCrWkwgKm+t7 +byYqQMCe0m6ennzQnb8YnJC4CdaMiybOdleA0tXt006JO2GwZpfXr+4GuLWZ +v+fDZRswIkb6v3e/BJb+pqmpSy4w270pZbJ7CD4Ni2w2iwmExm1FBR35P+Hh +1dFJjaMxIDlY9fmoyjy4jg8bLP51GYQ97EuXbePB59zzheoeVyBR0+j+Lmte +PKk8eVRSLAvepGnUf1/NjzvVX9k7rsiDuIKQF9ziazD17dGUxkvXQDT5Q2xS +lhD+42i/N+m4DtFWJgYvp0XQ/o7mHsPKIvDTzbN/Gi6GXLf9/DPPlYBprsAv +s3gxdGDWWg/ElQBtWXBMW4oY/h1aHyqVWALtXftvdhaLIWPjMTIhuwTUvFfy +DLSJ4fk3J4+a3i2Br4WBhT8kxDHocmbN8q8lcEh419i6W+Jomq6wuMaoFLZP +/AlifZDAgxLPFJ/9LoVTxsnrH45KoMwHRaVF/0qBzFPtFZqWwN6WYyHaPGwQ +szqiW8W7DgeDvFUS+Nkweu/RDI/aOtR0CA5bR2NDUniCf/rJdciJUnsXZsqG +IRF5VhO/JOb0ZL6LS2ODqFedlKioJI59eqJokcUG8ye2rW6ykiho/KVueT4b +KoPiVFZtkMSSzj29QWw2nB+cHDlgK4leAz731WrZoFVy32UiXxK7a90EPg2x +IUx/r4PEZins3xEgFadUBsZ22T82GUqhV9pz2KBWBgKh3yKszaWQy0B3SbdW +GVxtPFeYcEQKj3KvPLVGvwzumVZ/WxorhTNPE7ktd5XBpC094OcbKewe6k9Y +5FsGdiemzreclsYdwa0+EpVlwLhiKDlyThpt9576qFNdRp3/EmdZgjQ6Sz2d +3VVbBkFzSu2GBdI4v/zSSt/mMkiJsBOpapHGtPrYrojXZdBy+XHOdSkZdJhk +cb2eKoMtZPrts3UyKBfw8vJGTQ5s726bH38igwKvR5JjtTmwi2vxTvuXMuiy +PK7tzSYOOFqy3sAnGezq4PrMMuCA0Wm5kNAlsth9HkqPm3HAW2b62lZlWXQY +TiBvOHGgySVnrDFAFmMCJBY7JnPAZE5XMPi0LH5KTtpgcIUDbQldOtqhsvhD +anGuSAYH3lTxhRbEyuKB7FaNqhwOjK/wFzx3VRZT7ujrdpZyQKzceJNRgyzG +2Q3J7avngMfv76FP+OVQ79bCocivHNjic2ztZ0E5/HnL6Z3ENw7wjvSyecTk +8N2rAB7OGAeu9zW+NqDJob++y/qmHxwYqE1RuaMjh8VCQry1cxzYfU63J89e +DjVoDe7vVpEg/Y/jWeckhxUtdFlNQRJGA2g8/W5yGJl8P/iMMAkxrivUxPzl +cPfqJFU+cRLqzfojLsbI4ddaDB6VI0FLMEz99E05zKx8ue2DFglccVNNaZVy +mH7Egj2uTUIbj/vByvty+Lg2umFKh4TjU5bnvj+Sw2vBodwzW0go6CH6XHrl +8FJfRs8jQxLW5jyJsuKh4eEJV4eUvSTMKq8eULWmoe+y8E1cHiRMZ0mEbThI +Q8vKlurTniT8WsUgdO1pyOcuofSTRcL4T1337W40HE+zefrKh4Sh+47TB8/Q +kF+hcr17IAnPzO4KxFyn4eqb95a2h5Hw+MHDmxdKaRj/rD92eQQJTeotVkk3 +aJiR+Jx7ayQJtULvM7KraOi4rr0nL4qEir7lCndaaZgjb6W0IY6EjON2MDRF +w6bKu/PJSSRc6Xcd+vKHhsGX7DZcSiYhebffubEFGnLlubmfSyHh4oaY57/5 +6EgbvzHofIWE8L83bVZJ09Gz23BuOoOEEM+aP8J0OtK9zCw7MkkIHmzOklCk +42OlrhtFV0kIaOz7wNCi4z6NiEjjbOo+45Z46xvRcXzZntKDeSS4zq8SMjSj +o1GhuaVIPgnHvCQqd+6hY7GpGG8L5SP71OcsD9LRj29frmoBCVbrDsS4seio +2fQv/WEhCXsvOCp7+dEx4NTax4eKSNi14Nnmf5KOEhvP8v6ibPwhXDg0nI4K +k/HP15aQoM8uy01NpePcjTk3VTYJfbLsnB2Z1PpThWvzKAellmT/yqEjt5Ls +kTVlJNwNK7xqWULH54sNW75Q3j9TkLmIpKO4l8WkBYeKp8e1jPIKOk6Zjt0q +p6xlm5smUEPHCfFKSQ+ShI7W7CsP6um42NaosYmy97asVI9HdJy8qrtS4gYJ +pFpG8rM2Or5bJB1TTdmiIC3pVCcdi74F1Swpp/Jb/EqiYg8dtb0EUy0oKy1J +Toh6T8eW2Ta9TspPghIvbfxMR2Nw4ltzk7q/yYSLH0eo/WYIh5hRXnLs0oWk +CTr6XEjPCqdc0Hch3vAXHf9jcJwrKW/bGx/3/Tcd987z9XymPNR8/nzuPB0D +9Y9PCVWQVD+Njd3NTeBMSnwtk7JsRXTMv6UEcozXaztRrlOIiuasILBPepFN +NGW7rMioQ6sJbPVsUyiiPCcYcW6FCIHpInuKGilnxoRFVosTWBG6/fVbylv+ +hUS4SRNYcM39zg/KPX5nw8XoBDbPhe1YcouEwOHgsMcKBA4mmUYLU15rfzo0 +QIXA17ORp2Up3+k6FcLQJNDK+AdNibKV6cmzXRsJjJGzOqtG+WddwJmILQTW +3vC4qEE5ceOJYC0gUOj6v33qlDXZfqffbyNQUa/1xXrK7bK+QQnGBNZpXeWm +U2alep8CCwJPd6qPiVLmX+l1cnwvgUHfzBP4KJeFeQZm7Sdw+Yt7ozPU/k1n +jgeY/0egta0uzwfKwx7uJ/7aEyjwJbnrGeWYIVf/UicC1x5JdLhBWcHWxe+A +G4GqqrOlCZSbW519eVkEZutfvsmi7LzNyeeuL4FfuegBJpQXVx31PhZI4HHv +wFlZytfUHLxEggkUXmKrP0XFz7DAntUUSuCymovQTDnk0iEP2nkCPYSUzttR +ll7y3/GOiwSCHr2TQbkm6IB7aBKBnkm5g8NUPv1x3u86cJVAvkAbI1fK6X1W +LhfyCDRNVc6nUd68d98x/UIC36281/SGytcA/T1OGTcIPFim7WBA+bug6ZH9 +DQTaWfoJvKfqoceD1u7+mECTT/KhpyjXN/+BkBYCv7k1qAlQTghiyxS/pv5P ++2ikQtWXxtDKwdkRAgVDj4bqlZIgpv9pl8AkgY6d/dN3qPrlSn1QS5sisFOr +qkKF8gsTVrbZAoE/23r+CRRT8br54nCWEAObPfqXFl2n6nVFcetNMQZGuQc0 +81A2cA5lNksxsGJ6Tdchqp/wi2tKTSgw8M4Bsp/nGhXP0MS3qM/AtHz1p4xc +EkZ2W//30YmBMq5LZqvSSXhZovr8txsD+3+vkXqbRkI1z1I9fi8Gyuu/z/1D +9cfYu5USOqeo9e5btKikkqAoI9YbfYGBDVNKL50TSXAZ77VVrmTg4q07MpTP +U/3K+NYTuM9AAz3WNuFYEnTy4zZb1TNQ2PKu3Ww0CUv364udecZAqU/Wk/fO +kVD4IKu7bYCBtsfSc/mpefAx/sh+32XyKF5VxxSg5gVrRIWmsVIeN7j1CLw6 +QcLMztmxsdXy6HLgdneaPwnLeRLPuUnI4y0yx0rUl7rvU423j6jKY51x3dpJ +al6dcZYX2r1PHk1Jy/Q1R6l6Mxh9oZwjj7wPzVPXmZKQm3kvc/iaPM5yF5hH +GFP9aDbSpahYHuPPvJD4akT119tSC7QKeWQs1HKXbCPBcf1uNYlH8rgw1i3F +yyShfG1FPO83eXywedBVX50Ek4lAk086CsjPvbEgcg0JkprSUbz6Clip8uWs +CzXvx32bGpS3KuBom7XoTn5qPk2v1vc1U0Ah6b6oOV4SBuZL1BbsFdB+oT4K +uUjwXflWSDxWAY+zmUy1cQ5kKOGAeZ8C7g0Q3Fj6mHqfHP8s4f1OAYvfDPkq +POIAcOJtkj4p4MK+joy8Bg581HjT/mZCAb9TyRz/gANqm30bjy1WRCdXQQGD +WxxoNCooDlVVROaRh8MC2RwYdeT1ux2iiBN5h8T9fKj3Ufb2B3WRiviz3Lwn +i8WBiTehy57HKmK13cpnj45z4Mfu2cz3SYqYYx1sxn+MAzN6I00CxYr41b16 +NOggB7iFW9a6tSuijY73QIchB8SbLlVLySnhPXObLSfXUO87QpQ7ukEJdxcP ++k8VloFgq/zF8on1mFZzOSKqmQ2SMTf26OioYNdyh0eLKkohTVl3tZCLKu70 +lx7pTCmBZxJbN/68rIYy9HbHvOPFsEWyIUH9tTpeO7Ms5YhoEQjw5Ps7hGvg +0ge+YU/aroN0mIz+AXlNjO8XVAp3LAA+xqFKy8eaeMD3e5bBXD6oMcVvBB7W +wuTrzzriyDzwHRBsNOXagOk7rPPaTXJh4me8tUnaBkxUSbCQ58uGnerNGSaq +2liVornyQXYm1P7U+zvTpo29Jl8mi8TTgaWi1dvhvBFlijaXn+xLBea4U9cB +Ph3UjHZ9LH4xGXYQYhb8+TroZ/atuzYmERRDz59s2LQJ/Ycd7LM4CbDeWbeO +0bsJrb70p6dnXQDnWtfI2z6bMcHzXVKu03moy+1y+i6ii4/aa8vuakTDr+KF +GfW7ukgOZ8a8t4oERwabL8NiC2p71LF1hsPg+/oknYrJLdiwbl/ToEgI3Cv4 ++34qRg+DDm3Ze1n6NBzcTkc9aX1sjW4l/+YFwjrP6Cq1en1snI6zb9/uDyLL +PW5a2DCRLdhSfvisDxRsOxM0eYCJttolxtW+PqB15uK2pENMVBVAcykXH9g1 +Wf6qx4GJVatL4qd3+0DU66lZRw8mhll2lk3J+cDv/BDDoDAmOtXYGxCPvaFX +L6mzkM1E5cNfLTTXeoPriYKrJiQTO0L7L+5f4Q3T5B3n0XImhjjtHg3j8gZB +Ws+MZiUTn8xlfXr1ygvMeKUkH9Qz0aYw/+WKUC+o6Sp06nzFxF6by+zq1yww +FbinGtDDxJSoPlbzQxb07Hw6LdbHxMV6EZIDZSz4Vf0txu4dEy8MWdM1I1ig +mqfBGR5hYrHImv3OGiyo6d0aED/GxP3l5h9erKPWE94H6pPU+SyfbjBaxoJj +0Sc6/KeYKL2Ue8X+AU/4VR+VIfqbiR4V89ETTz0h/M8Vx+o/TAzKqbqdfMcT +VmuXqByeZ+KfVTbxO/I8IduzemphgYnv+mf4uC94wv8AyAJpag== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.059960858712968954`}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.059960858712968954`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993828664258113*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"ec82d0b8-2f20-43f0-a90a-4d5acfc047c3"] +}, Open ]], Cell[CellGroupData[{ @@ -13856,66 +15777,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + "In[153]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 93, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097599506`*^9}, - CellLabel-> - "During evaluation of \ -In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 142, 94, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909769953*^9}, - CellLabel-> - "During evaluation of \ -In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.9885111917732466`*^-173\\\", \ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 142, 95, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279097784023`*^9}, +\"", 2, 153, 89, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993828664293614*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +In[153]:=",ExpressionUUID->"33160563-3003-4e26-9fa6-e248a504907e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.2284142385397976`*^-176\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 153, 90, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.9938286643016863`*^9}, + CellLabel-> + "During evaluation of \ +In[153]:=",ExpressionUUID->"d31d5e15-140e-4790-87e5-68a04a19a1b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2450334923892123`*^-179\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 153, 91, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993828664309338*^9}, + CellLabel-> + "During evaluation of \ +In[153]:=",ExpressionUUID->"19b1304c-c1f8-4af0-8b84-4caf46d3c9fc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 142, 96, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327909786396*^9}, +during this calculation.\"", 2, 153, 92, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279097599506`*^9, 3.993828664315398*^9}, CellLabel-> "During evaluation of \ -In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +In[153]:=",ExpressionUUID->"d273d561-8853-4fcc-a5a4-44de7d2837d7"], -Cell[BoxData["11.275343508420296`"], "Output", - CellChangeTimes->{3.9913279159698696`*^9}, +Cell[BoxData["12.86704066458168`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9, 3.99382869766094*^9}, CellLabel-> - "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] + "Out[153]=",ExpressionUUID->"4a06a9cb-c439-4dc6-aa08-b9d9b791ff1e"] }, Open ]], Cell[CellGroupData[{ @@ -13982,68 +15907,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99179998339209*^9, - 3.991799988637089*^9}},ExpressionUUID->"a5e0631c-6c6c-a045-8418-\ -22c641e38d86"], + CellChangeTimes->{{3.99179998339209*^9, 3.991799988637089*^9}}, + CellLabel-> + "In[154]:=",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 143, 97, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916008396*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.0711903264416777`*^-214\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 154, 93, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993828697695223*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +In[154]:=",ExpressionUUID->"b8e281d6-464c-4c2d-b3aa-4119e4f8a3fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 143, 98, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916018362*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4108777984257422`*^-219\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 154, 94, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.9938286977014303`*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +In[154]:=",ExpressionUUID->"0574cb3b-fdbb-4c66-a440-4c94192b6ab3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 143, - 99, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279160263577`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.481448397882193`*^-225\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 154, 95, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993828697707492*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +In[154]:=",ExpressionUUID->"8355ce5e-40f0-4eae-bfb8-c7d65dd8858d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 143, 100, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327916034359*^9}, +during this calculation.\"", 2, 154, 96, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327916008396*^9, 3.993828697712965*^9}, CellLabel-> "During evaluation of \ -In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +In[154]:=",ExpressionUUID->"76d0ca2f-6870-4b18-be6c-1b71ae9dfdfe"], -Cell[BoxData["1.0734937398087425`"], "Output", - CellChangeTimes->{3.991327922931429*^9}, +Cell[BoxData["0.6280060584707207`"], "Output", + CellChangeTimes->{3.991327922931429*^9, 3.993828702872905*^9}, CellLabel-> - "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] + "Out[154]=",ExpressionUUID->"41c5c4f7-7cee-45ce-a2c4-bda6bf8486b1"] }, Open ]], Cell[CellGroupData[{ @@ -14064,8 +15993,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14110,68 +16038,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991799991275097*^9, - 3.9917999948700333`*^9}},ExpressionUUID->"4b6c44e4-d946-0c4d-9992-\ -4f0fc7048689"], + CellChangeTimes->{{3.991799991275097*^9, 3.9917999948700333`*^9}}, + CellLabel-> + "In[155]:=",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 144, 101, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229664307`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.0711903264416777`*^-214\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 155, 97, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993828702904929*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +In[155]:=",ExpressionUUID->"7cf5e9e7-860b-4df2-918d-2a2d79475e43"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 144, 102, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327922975607*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4108777984257422`*^-219\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 155, 98, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993828702910317*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +In[155]:=",ExpressionUUID->"012e2d40-a9e9-4efd-848b-783b1be42f70"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 144, - 103, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229836063`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.481448397882193`*^-225\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 155, 99, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993828702915875*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +In[155]:=",ExpressionUUID->"53a889b7-617c-40cb-81f0-9b0d0b9d9722"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 144, 104, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279229916077`*^9}, +during this calculation.\"", 2, 155, 100, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279229664307`*^9, 3.993828702920953*^9}, CellLabel-> "During evaluation of \ -In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +In[155]:=",ExpressionUUID->"ea3c07a6-204f-4876-8ed3-a1cc1c968918"], -Cell[BoxData["9.48093127226425`"], "Output", - CellChangeTimes->{3.9913279288200035`*^9}, +Cell[BoxData["43.917059013090665`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9, 3.993828708007229*^9}, CellLabel-> - "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] + "Out[155]=",ExpressionUUID->"1aa863d0-db6e-4576-b2d8-6dd18b19ae49"] }, Open ]], Cell[CellGroupData[{ @@ -14192,8 +16124,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14238,68 +16169,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918000011431293`*^9, - 3.9918000068677616`*^9}},ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-\ -32244819d42b"], + CellChangeTimes->{{3.9918000011431293`*^9, 3.9918000068677616`*^9}}, + CellLabel-> + "In[156]:=",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.227748797408391`*^-204\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 145, 105, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928854006*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.0711903264416777`*^-214\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 156, 101, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993828708042028*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +In[156]:=",ExpressionUUID->"b14df68f-6c2c-4681-a5b5-2a327e10a04f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5883416585192085`*^-208\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 145, 106, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928864023*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4108777984257422`*^-219\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 156, 102, 31384839246403033844, + "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993828708049654*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +In[156]:=",ExpressionUUID->"7105fd37-866e-4a2b-89e5-c804313f7aad"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.825842483935378`*^-213\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 145, - 107, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928871004*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.481448397882193`*^-225\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 156, 103, + 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993828708056796*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +In[156]:=",ExpressionUUID->"bf2b31be-9393-4740-8702-c01b1c6a5c83"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 145, 108, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327928878006*^9}, +during this calculation.\"", 2, 156, 104, 31384839246403033844, "kernel 1"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327928854006*^9, 3.993828708063601*^9}, CellLabel-> "During evaluation of \ -In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +In[156]:=",ExpressionUUID->"4efe9378-cc57-487c-b5f6-d869ad89f636"], -Cell[BoxData["17.503865312709518`"], "Output", - CellChangeTimes->{3.9913279320131683`*^9}, +Cell[BoxData["8.627795498841813`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9, 3.993828711166286*^9}, CellLabel-> - "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] + "Out[156]=",ExpressionUUID->"1fe7ecbd-88c1-4357-a1d7-ada51780c7cf"] }, Open ]], Cell[CellGroupData[{ @@ -14308,18 +16243,19 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991800029528055*^9, - 3.991800041720209*^9}},ExpressionUUID->"99da2760-e71e-1246-8cc9-\ -f0a7464dc747"], - -Cell[BoxData["0.08333108480569339`"], "Output", - CellChangeTimes->{3.9913279320452003`*^9}, + CellChangeTimes->{{3.991800029528055*^9, 3.991800041720209*^9}}, CellLabel-> - "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] + "In[157]:=",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], + +Cell[BoxData["0.032262445773844434`"], "Output", + CellChangeTimes->{3.9913279320452003`*^9, 3.9938287111949377`*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"467871ae-163b-4880-ade2-6002c7fe0a60"] }, Open ]] }, -WindowSize->{1440, 882}, -WindowMargins->{{0, Automatic}, {0, Automatic}}, +Evaluator->"kernel 1", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {179.25, Automatic}}, CellContext->Notebook, ShowCellTags->True, Magnification:>0.9 Inherited, @@ -14333,680 +16269,690 @@ ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" (*CellTagsOutline CellTagsIndex->{ "evaluate for d"->{ - Cell[241557, 6044, 720, 24, 70, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972", + Cell[242844, 5946, 716, 23, 74, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972", CellTags->"evaluate for d"], - Cell[242280, 6070, 808, 14, 70, "Output",ExpressionUUID->"433805b9-be08-4aa6-8b54-1fe1b555c628", + Cell[243563, 5971, 828, 13, 57, "Output",ExpressionUUID->"aafdff16-b87f-4129-ae6c-7af3a28459de", CellTags->"evaluate for d"]} } *) (*CellTagsIndex CellTagsIndex->{ - {"evaluate for d", 578548, 14334} + {"evaluate for d", 680526, 16270} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 984, 16, 26, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[1563, 40, 711, 11, 30, "Output",ExpressionUUID->"147b6933-c62b-4156-b7a4-aaf0065eb2c3"] +Cell[576, 22, 979, 15, 26, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[1558, 39, 728, 10, 30, "Output",ExpressionUUID->"acb8d615-2d32-45be-90b2-ccadfcb2920d"] }, Open ]], Cell[CellGroupData[{ -Cell[2311, 56, 253, 5, 26, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[2567, 63, 816, 13, 30, "Output",ExpressionUUID->"7ccf4373-6e61-42d7-8b75-d08cb074934f"] +Cell[2323, 54, 248, 4, 26, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[2574, 60, 833, 12, 30, "Output",ExpressionUUID->"11f63d43-d7d3-4af1-a8c3-5802e2ed73fd"] }, Open ]], Cell[CellGroupData[{ -Cell[3420, 81, 233, 5, 26, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[3656, 88, 786, 12, 30, "Output",ExpressionUUID->"05fb1dbb-e208-44fe-bffd-88c4d5dd5146"] +Cell[3444, 77, 228, 4, 26, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[3675, 83, 807, 12, 30, "Output",ExpressionUUID->"dd7952fe-0471-445a-ba61-beecab1af315"] }, Open ]], Cell[CellGroupData[{ -Cell[4479, 105, 180, 4, 26, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[4662, 111, 780, 12, 30, "Output",ExpressionUUID->"f86b44bb-314c-49ec-9c41-05e52497d85d"] +Cell[4519, 100, 175, 3, 26, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[4697, 105, 801, 12, 30, "Output",ExpressionUUID->"29965db2-02ca-4f11-8af3-5712ba3d4e76"] }, Open ]], Cell[CellGroupData[{ -Cell[5479, 128, 262, 8, 39, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[5744, 138, 784, 12, 30, "Output",ExpressionUUID->"8e250f63-677e-41a0-8eca-b4045d96f3b9"] +Cell[5535, 122, 257, 7, 39, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[5795, 131, 805, 12, 30, "Output",ExpressionUUID->"aef1f94e-d0c3-4dc7-bd50-6538744abd69"] }, Open ]], Cell[CellGroupData[{ -Cell[6565, 155, 136, 3, 26, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[6704, 160, 785, 12, 30, "Output",ExpressionUUID->"12d6d264-3c55-44a7-ace3-e7ef0190937a"] +Cell[6637, 148, 131, 2, 26, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[6771, 152, 808, 12, 30, "Output",ExpressionUUID->"5c5e5166-12fb-4064-8050-e351c6399bef"] }, Open ]], Cell[CellGroupData[{ -Cell[7526, 177, 281, 7, 26, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[7810, 186, 799, 12, 30, "Output",ExpressionUUID->"866dacc4-63b8-4232-9d9d-2d7ee3a82d6b"] +Cell[7616, 169, 276, 6, 26, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[7895, 177, 820, 12, 30, "Output",ExpressionUUID->"0ab4e373-b97a-4c98-af12-978d048ecece"] }, Open ]], Cell[CellGroupData[{ -Cell[8646, 203, 262, 8, 26, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[8911, 213, 797, 12, 30, "Output",ExpressionUUID->"8dba1b1c-bcfd-4780-8440-feb83bb8e2de"] +Cell[8752, 194, 257, 7, 26, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[9012, 203, 818, 12, 30, "Output",ExpressionUUID->"00026760-acd6-4467-90e4-a92a2fc2b22e"] }, Open ]], Cell[CellGroupData[{ -Cell[9745, 230, 247, 5, 26, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[9995, 237, 797, 12, 30, "Output",ExpressionUUID->"d60a8c01-f35d-4eb4-8c37-4a76de517a45"] +Cell[9867, 220, 242, 4, 26, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[10112, 226, 818, 12, 30, "Output",ExpressionUUID->"590dc27a-e576-4720-88ab-5f80d7cd78d2"] }, Open ]], Cell[CellGroupData[{ -Cell[10829, 254, 249, 5, 26, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[11081, 261, 805, 12, 30, "Output",ExpressionUUID->"1fcdaa3a-8f1d-4b29-819d-05d48586f5a7"] +Cell[10967, 243, 245, 4, 26, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[11215, 249, 827, 12, 30, "Output",ExpressionUUID->"6bc4e8b5-97ec-4456-955e-11d80fc81846"] }, Open ]], Cell[CellGroupData[{ -Cell[11923, 278, 133, 3, 26, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[12059, 283, 790, 12, 30, "Output",ExpressionUUID->"f226542e-de3b-49a8-8803-336b5dde8f71"] +Cell[12079, 266, 129, 2, 26, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[12211, 270, 812, 12, 30, "Output",ExpressionUUID->"61169ee3-45e4-4b1a-b8fc-06753c39cdb0"] }, Open ]], Cell[CellGroupData[{ -Cell[12886, 300, 133, 3, 26, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[13022, 305, 781, 12, 30, "Output",ExpressionUUID->"56d03cda-7150-4518-b531-2f75deea4b8d"] +Cell[13060, 287, 129, 2, 26, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[13192, 291, 803, 12, 30, "Output",ExpressionUUID->"cb59c3ce-8808-4be4-82ef-04f1f271af26"] }, Open ]], Cell[CellGroupData[{ -Cell[13840, 322, 561, 20, 74, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[14404, 344, 807, 12, 30, "Output",ExpressionUUID->"1c38103b-b289-4cbc-85c9-74f3a52e940d"] +Cell[14032, 308, 557, 19, 74, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[14592, 329, 829, 12, 30, "Output",ExpressionUUID->"47298fc9-5dac-45f5-90d2-398943f2f34f"] }, Open ]], Cell[CellGroupData[{ -Cell[15248, 361, 561, 20, 74, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[15812, 383, 802, 12, 70, "Output",ExpressionUUID->"c1a7b5f5-d927-40f8-b54c-92c6625d4836"] +Cell[15458, 346, 557, 19, 74, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[16018, 367, 824, 12, 30, "Output",ExpressionUUID->"16a54adc-212a-40b3-9f79-806b16bd3631"] }, Open ]], Cell[CellGroupData[{ -Cell[16651, 400, 1496, 49, 70, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[18150, 451, 797, 12, 70, "Output",ExpressionUUID->"ebb0b8e6-1245-4773-b6b7-7e1531d23d62"] +Cell[16879, 384, 1492, 48, 75, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[18374, 434, 819, 12, 30, "Output",ExpressionUUID->"8685d217-f9ad-4aff-ad03-69fba9a39608"] }, Open ]], Cell[CellGroupData[{ -Cell[18984, 468, 1335, 45, 70, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[20322, 515, 812, 13, 70, "Output",ExpressionUUID->"ebe10f5f-d031-4b9c-b183-57ca3342c78c"] +Cell[19230, 451, 1331, 44, 75, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[20564, 497, 834, 13, 30, "Output",ExpressionUUID->"0530d5b9-b067-47c1-8d8f-3efa49f48563"] }, Open ]], Cell[CellGroupData[{ -Cell[21171, 533, 1335, 45, 70, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[22509, 580, 809, 13, 70, "Output",ExpressionUUID->"bcd5a811-4568-4281-8cf1-b16f7d074bc7"] +Cell[21435, 515, 1331, 44, 75, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[22769, 561, 831, 13, 30, "Output",ExpressionUUID->"02041163-1403-4f35-8c6f-e2cd605bb88b"] }, Open ]], Cell[CellGroupData[{ -Cell[23355, 598, 1496, 49, 70, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[24854, 649, 794, 12, 70, "Output",ExpressionUUID->"e71c5077-7203-43ae-b0ff-967382c9d525"] +Cell[23637, 579, 1492, 48, 75, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[25132, 629, 816, 12, 30, "Output",ExpressionUUID->"a32e28e5-96cc-4013-a5e7-baccd4467cb9"] }, Open ]], Cell[CellGroupData[{ -Cell[25685, 666, 135, 3, 70, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[25823, 671, 783, 12, 70, "Output",ExpressionUUID->"d7217afb-669c-406f-af63-3db0e718374f"] +Cell[25985, 646, 131, 2, 26, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[26119, 650, 805, 12, 30, "Output",ExpressionUUID->"5a756a67-0474-4e61-b1cd-086bff401e2a"] }, Open ]], Cell[CellGroupData[{ -Cell[26643, 688, 137, 3, 70, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[26783, 693, 793, 12, 70, "Output",ExpressionUUID->"3d138742-68b9-421b-8fc2-da8e240b45bc"] +Cell[26961, 667, 133, 2, 26, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[27097, 671, 815, 12, 30, "Output",ExpressionUUID->"ccfae6d3-b756-496c-8998-1289fb4c0e5b"] }, Open ]], Cell[CellGroupData[{ -Cell[27613, 710, 138, 3, 70, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[27754, 715, 790, 12, 70, "Output",ExpressionUUID->"0c3d7d0d-c02f-4787-b4dc-c21bd9b79ab5"] +Cell[27949, 688, 134, 2, 26, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[28086, 692, 812, 12, 30, "Output",ExpressionUUID->"1648507c-09c6-45d1-b87b-4e9628519ce8"] }, Open ]], Cell[CellGroupData[{ -Cell[28581, 732, 223, 5, 70, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[28807, 739, 801, 13, 70, "Output",ExpressionUUID->"68305102-390f-444f-864a-7b79898d4194"] +Cell[28935, 709, 219, 4, 26, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[29157, 715, 825, 13, 30, "Output",ExpressionUUID->"87619020-7528-45ff-a9d0-862bbc0ab126"] }, Open ]], Cell[CellGroupData[{ -Cell[29645, 757, 138, 3, 70, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[29786, 762, 785, 12, 70, "Output",ExpressionUUID->"c8bc2dc3-61e6-4bbe-8666-b00624193723"] +Cell[30019, 733, 134, 2, 26, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[30156, 737, 809, 12, 30, "Output",ExpressionUUID->"b0b63fb9-51ed-45d4-8db0-bcfc0c9bb712"] }, Open ]], Cell[CellGroupData[{ -Cell[30608, 779, 331, 6, 70, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[30942, 787, 781, 12, 70, "Output",ExpressionUUID->"508ac096-4167-40f9-a4c6-3c88da5cbde0"] +Cell[31002, 754, 327, 5, 26, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[31332, 761, 803, 12, 30, "Output",ExpressionUUID->"5728bd92-9897-4b41-9201-e82cbc85a06f"] }, Open ]], Cell[CellGroupData[{ -Cell[31760, 804, 302, 6, 70, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[32065, 812, 820, 13, 70, "Output",ExpressionUUID->"02bd96a1-db31-4fc6-8ed1-1d3d3a220fc3"] +Cell[32172, 778, 298, 5, 26, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[32473, 785, 838, 12, 30, "Output",ExpressionUUID->"6958804d-97e1-4015-8d67-eac1719d075b"] }, Open ]], Cell[CellGroupData[{ -Cell[32922, 830, 223, 5, 70, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[33148, 837, 783, 12, 70, "Output",ExpressionUUID->"ca546511-7731-4a8b-ae23-4446401e97fe"] +Cell[33348, 802, 219, 4, 26, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[33570, 808, 807, 12, 30, "Output",ExpressionUUID->"ea3c89b8-c589-4905-8990-d325646cde72"] }, Open ]], Cell[CellGroupData[{ -Cell[33968, 854, 354, 11, 70, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[34325, 867, 804, 12, 70, "Output",ExpressionUUID->"914546d0-35d0-4756-b4ed-40c4f07c1dc7"] +Cell[34414, 825, 350, 10, 39, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[34767, 837, 826, 12, 30, "Output",ExpressionUUID->"0451444f-ccfa-4e1f-a350-912a9b86e287"] }, Open ]], Cell[CellGroupData[{ -Cell[35166, 884, 354, 11, 70, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[35523, 897, 815, 13, 70, "Output",ExpressionUUID->"82ce5494-69b8-4685-b52c-a71ea30cea1b"] +Cell[35630, 854, 350, 10, 39, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[35983, 866, 839, 13, 30, "Output",ExpressionUUID->"ab6ca25b-dec6-4555-9776-892fc531bb9c"] }, Open ]], Cell[CellGroupData[{ -Cell[36375, 915, 998, 27, 70, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[37376, 944, 798, 12, 70, "Output",ExpressionUUID->"27993b68-4225-458c-90ef-a7fb46887d44"] +Cell[36859, 884, 994, 26, 40, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[37856, 912, 820, 12, 30, "Output",ExpressionUUID->"9585d1e9-f88e-45e1-b7d3-b697193820e4"] }, Open ]], Cell[CellGroupData[{ -Cell[38211, 961, 203, 4, 70, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[38417, 967, 787, 12, 70, "Output",ExpressionUUID->"fdd2b3ab-7c09-4672-8668-aab33d42f853"] +Cell[38713, 929, 199, 3, 26, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[38915, 934, 809, 12, 30, "Output",ExpressionUUID->"62aeb77a-0cb8-4829-8580-7fef555d5630"] }, Open ]], Cell[CellGroupData[{ -Cell[39241, 984, 338, 6, 70, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[39582, 992, 786, 12, 70, "Output",ExpressionUUID->"39819aba-1061-454b-8b92-469edb566edd"] +Cell[39761, 951, 334, 5, 26, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[40098, 958, 807, 12, 30, "Output",ExpressionUUID->"98a6d365-3802-483a-bf87-a91e29c41fdb"] }, Open ]], -Cell[40383, 1007, 177, 3, 70, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[40920, 973, 173, 2, 26, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[40585, 1014, 337, 6, 70, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[40925, 1022, 785, 12, 70, "Output",ExpressionUUID->"66f9f528-0194-4252-81ab-13beba4775a0"] +Cell[41118, 979, 333, 5, 26, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[41454, 986, 807, 12, 30, "Output",ExpressionUUID->"f5c9e92c-ada1-4cb4-a6f0-03689b9ff82f"] }, Open ]], -Cell[41725, 1037, 177, 3, 70, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[42276, 1001, 173, 2, 26, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[41927, 1044, 341, 6, 70, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[42271, 1052, 778, 12, 70, "Output",ExpressionUUID->"9e97c194-e123-496f-9e39-bd0f738ac2ec"] +Cell[42474, 1007, 337, 5, 26, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[42814, 1014, 800, 12, 30, "Output",ExpressionUUID->"f9ccb6b8-bcec-45cc-85b5-bb85cd73ab50"] }, Open ]], -Cell[43064, 1067, 177, 3, 70, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[43629, 1029, 173, 2, 26, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[43266, 1074, 364, 6, 70, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[43633, 1082, 786, 12, 70, "Output",ExpressionUUID->"39587092-a017-4305-8154-53db624df562"] +Cell[43827, 1035, 360, 5, 26, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[44190, 1042, 808, 12, 30, "Output",ExpressionUUID->"593b9352-4cd7-4118-87ec-81f6aa3d6167"] }, Open ]], -Cell[44434, 1097, 175, 3, 70, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[45013, 1057, 171, 2, 26, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[44634, 1104, 311, 6, 70, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[44948, 1112, 788, 12, 70, "Output",ExpressionUUID->"c1ecdea4-6bc3-4b2b-9d54-a81692f14dab"] +Cell[45209, 1063, 307, 5, 26, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[45519, 1070, 812, 12, 30, "Output",ExpressionUUID->"f6f24f32-2d65-4f7e-bf15-4c0bc15b1b5d"] }, Open ]], -Cell[45751, 1127, 175, 3, 70, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[46346, 1085, 171, 2, 26, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[45951, 1134, 317, 6, 70, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[46271, 1142, 789, 12, 70, "Output",ExpressionUUID->"bcfa37ac-cfda-485c-abb7-f76b6e0b9b4f"] +Cell[46542, 1091, 313, 5, 26, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[46858, 1098, 811, 12, 30, "Output",ExpressionUUID->"dd6d8be5-17fb-4fbb-8a72-d62d958298cf"] }, Open ]], -Cell[47075, 1157, 177, 3, 70, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[47684, 1113, 173, 2, 26, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[47277, 1164, 318, 6, 70, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[47598, 1172, 784, 12, 70, "Output",ExpressionUUID->"86ff056f-fced-41dd-84a7-c9cafeeb0c09"] +Cell[47882, 1119, 314, 5, 26, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[48199, 1126, 806, 12, 30, "Output",ExpressionUUID->"07ad6615-f699-456e-8d3b-d69664a475c2"] }, Open ]], -Cell[48397, 1187, 176, 3, 70, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[49020, 1141, 172, 2, 26, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[48598, 1194, 287, 5, 70, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[48888, 1201, 782, 12, 70, "Output",ExpressionUUID->"b30b5ce4-9c56-4bdf-adc8-508226b668aa"] +Cell[49217, 1147, 283, 4, 26, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[49503, 1153, 806, 12, 30, "Output",ExpressionUUID->"0954795c-9eb3-4da2-be74-b2334971cfa3"] }, Open ]], -Cell[49685, 1216, 179, 3, 70, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[50324, 1168, 175, 2, 26, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[49889, 1223, 19813, 486, 70, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[69705, 1711, 805, 12, 70, "Output",ExpressionUUID->"49138c02-ab82-49f9-ade2-4564e3467881"] +Cell[50524, 1174, 19809, 485, 839, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[70336, 1661, 827, 12, 30, "Output",ExpressionUUID->"c6037475-0ae3-4e0a-9d06-4ebe817ba224"] }, Open ]], Cell[CellGroupData[{ -Cell[70547, 1728, 19752, 490, 70, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[90302, 2220, 798, 12, 70, "Output",ExpressionUUID->"46fdf130-6aa9-469c-b092-034fd0a0a512"] +Cell[71200, 1678, 19748, 489, 839, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[90951, 2169, 820, 12, 30, "Output",ExpressionUUID->"e71bdfc2-cef3-4070-b80f-d7f1ba3e473a"] }, Open ]], Cell[CellGroupData[{ -Cell[91137, 2237, 19752, 484, 70, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[110892, 2723, 830, 13, 70, "Output",ExpressionUUID->"d205449f-fd13-4b41-9f9b-667e6d1660d0"] +Cell[91808, 2186, 19748, 483, 838, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[111559, 2671, 851, 13, 30, "Output",ExpressionUUID->"5a3457d6-5496-4a8e-bb52-5bbcd5a3c507"] }, Open ]], Cell[CellGroupData[{ -Cell[111759, 2741, 22538, 554, 70, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[134300, 3297, 809, 13, 70, "Output",ExpressionUUID->"840925e6-fbaa-48da-9b7e-f2c3b09d9979"] +Cell[112447, 2689, 22534, 553, 942, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[134984, 3244, 831, 13, 30, "Output",ExpressionUUID->"8aa38237-a49b-41ca-8e4e-4ece19ecf9b9"] }, Open ]], Cell[CellGroupData[{ -Cell[135146, 3315, 22539, 554, 70, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[157688, 3871, 823, 13, 70, "Output",ExpressionUUID->"5636bd0a-14b4-4a4f-8e06-125737d4eaec"] +Cell[135852, 3262, 22535, 553, 942, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[158390, 3817, 845, 13, 30, "Output",ExpressionUUID->"910327df-af2a-4d04-8f38-cb0acfb4e4e2"] }, Open ]], Cell[CellGroupData[{ -Cell[158548, 3889, 25495, 627, 70, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[184046, 4518, 813, 13, 70, "Output",ExpressionUUID->"e581774f-e750-47b3-b5f0-db526daea513"] +Cell[159272, 3835, 25491, 626, 1047, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[184766, 4463, 835, 13, 30, "Output",ExpressionUUID->"08fe4da6-b6f4-46e4-8797-75a9c9697566"] }, Open ]], Cell[CellGroupData[{ -Cell[184896, 4536, 134, 3, 70, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[185033, 4541, 781, 12, 70, "Output",ExpressionUUID->"a478ac51-d8b5-4da2-9512-04c4856f1b73"] +Cell[185638, 4481, 130, 2, 26, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[185771, 4485, 805, 12, 30, "Output",ExpressionUUID->"cb0c6e11-afbb-4239-9f28-d42f9a58e901"] }, Open ]], Cell[CellGroupData[{ -Cell[185851, 4558, 134, 3, 70, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[185988, 4563, 776, 12, 70, "Output",ExpressionUUID->"5b46a4d4-755b-4748-850d-81deb8e8e7c8"] +Cell[186613, 4502, 130, 2, 26, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[186746, 4506, 800, 12, 30, "Output",ExpressionUUID->"b187cd77-f9bf-4a9a-a35f-64bc72883621"] }, Open ]], Cell[CellGroupData[{ -Cell[186801, 4580, 1148, 40, 70, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[187952, 4622, 805, 12, 70, "Output",ExpressionUUID->"6e19cf87-eded-4ac7-b641-76486b14ef2b"] +Cell[187583, 4523, 1144, 39, 52, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[188730, 4564, 829, 12, 30, "Output",ExpressionUUID->"c0383bf5-b279-4cd3-8b58-4862b3ba30a0"] }, Open ]], Cell[CellGroupData[{ -Cell[188794, 4639, 1045, 36, 70, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[189842, 4677, 812, 13, 70, "Output",ExpressionUUID->"823e3edb-51ce-4f43-bd61-1d5ec46bbf5f"] +Cell[189596, 4581, 1041, 35, 52, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[190640, 4618, 834, 13, 30, "Output",ExpressionUUID->"c94099ed-a3cb-41a2-8c90-4d61af29a1a0"] }, Open ]], Cell[CellGroupData[{ -Cell[190691, 4695, 1148, 40, 70, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[191842, 4737, 801, 12, 70, "Output",ExpressionUUID->"8c7e528f-562f-49de-80ad-da2475485808"] +Cell[191511, 4636, 1144, 39, 52, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[192658, 4677, 823, 12, 30, "Output",ExpressionUUID->"adc5a205-8904-4dc4-8231-8a29c59e3333"] }, Open ]], Cell[CellGroupData[{ -Cell[192680, 4754, 112, 2, 70, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[192795, 4758, 801, 12, 70, "Output",ExpressionUUID->"cbadab50-7241-44a2-b601-3ad4ff51079b"] +Cell[193518, 4694, 108, 1, 26, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[193629, 4697, 823, 12, 30, "Output",ExpressionUUID->"6baf363e-15a6-4b80-b38b-e30c61f31cc4"] }, Open ]], Cell[CellGroupData[{ -Cell[193633, 4775, 112, 2, 70, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[193748, 4779, 817, 13, 70, "Output",ExpressionUUID->"9e52f8c3-4739-4b4e-b71f-bb51e4685979"] +Cell[194489, 4714, 108, 1, 26, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[194600, 4717, 841, 13, 30, "Output",ExpressionUUID->"2219bd39-bd5d-4bae-8a48-9517ef1e622c"] }, Open ]], Cell[CellGroupData[{ -Cell[194602, 4797, 112, 2, 70, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[194717, 4801, 814, 13, 70, "Output",ExpressionUUID->"1a3bbb0e-670c-4ebb-a184-ec45f82b1f2b"] +Cell[195478, 4735, 108, 1, 26, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[195589, 4738, 836, 13, 30, "Output",ExpressionUUID->"3cbc47b1-03b4-4a15-b620-3f7b685f1d21"] }, Open ]], Cell[CellGroupData[{ -Cell[195568, 4819, 112, 2, 70, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[195683, 4823, 809, 12, 70, "Output",ExpressionUUID->"3f4f6abc-3396-4956-a56f-af4a22af155e"] +Cell[196462, 4756, 108, 1, 26, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[196573, 4759, 833, 12, 30, "Output",ExpressionUUID->"ae5e375f-aa27-4a63-8a87-53133a6027e4"] }, Open ]], Cell[CellGroupData[{ -Cell[196529, 4840, 111, 2, 70, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[196643, 4844, 800, 12, 70, "Output",ExpressionUUID->"004550b4-646f-42f5-a339-bd131d20111a"] +Cell[197443, 4776, 107, 1, 26, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[197553, 4779, 822, 12, 30, "Output",ExpressionUUID->"8b58da2e-9594-40fa-8561-b83ebbe717b0"] }, Open ]], Cell[CellGroupData[{ -Cell[197480, 4861, 111, 2, 70, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[197594, 4865, 794, 12, 70, "Output",ExpressionUUID->"f241f58a-d4c2-4394-a9de-ccf8334f57ab"] +Cell[198412, 4796, 107, 1, 26, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[198522, 4799, 816, 12, 30, "Output",ExpressionUUID->"d28d43c7-46aa-4659-9e6c-b43d3054c70e"] }, Open ]], Cell[CellGroupData[{ -Cell[198425, 4882, 501, 17, 70, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[198929, 4901, 816, 13, 70, "Output",ExpressionUUID->"94601c55-afa7-441b-bcfc-43cb276f02f9"] +Cell[199375, 4816, 497, 16, 51, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[199875, 4834, 838, 13, 30, "Output",ExpressionUUID->"b094f877-ace6-48cc-9c69-7696f2fcfbfb"] }, Open ]], Cell[CellGroupData[{ -Cell[199782, 4919, 501, 17, 70, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[200286, 4938, 815, 13, 70, "Output",ExpressionUUID->"7d7eb11c-3618-438c-b1e9-9f569b0bb6f3"] +Cell[200750, 4852, 497, 16, 51, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[201250, 4870, 837, 13, 30, "Output",ExpressionUUID->"c4ba0b97-b0d4-4155-9194-1cc9ffc1be73"] }, Open ]], Cell[CellGroupData[{ -Cell[201138, 4956, 1792, 61, 70, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[202933, 5019, 799, 12, 70, "Output",ExpressionUUID->"a5b5be0d-d0c4-441b-b3a5-c336ba2a4dfd"] +Cell[202124, 4888, 1788, 60, 52, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[203915, 4950, 821, 12, 30, "Output",ExpressionUUID->"98949ae3-fac0-431c-a6a2-598f7ed33ca3"] }, Open ]], Cell[CellGroupData[{ -Cell[203769, 5036, 1105, 37, 70, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[204877, 5075, 821, 13, 70, "Output",ExpressionUUID->"bc84ae7a-8dd2-476c-bd49-a2e4bfc08a74"] +Cell[204773, 4967, 1101, 36, 52, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[205877, 5005, 843, 13, 30, "Output",ExpressionUUID->"df281b97-208c-44fe-9600-1c86d7ed57ae"] }, Open ]], Cell[CellGroupData[{ -Cell[205735, 5093, 1822, 62, 70, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[207560, 5157, 792, 12, 70, "Output",ExpressionUUID->"6e46f94b-c380-4f68-bd12-447d0d9c5391"] +Cell[206757, 5023, 1818, 61, 104, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[208578, 5086, 814, 12, 30, "Output",ExpressionUUID->"ed225333-3b69-4687-8ba3-be5166adfd1b"] }, Open ]], Cell[CellGroupData[{ -Cell[208389, 5174, 1635, 54, 70, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[210027, 5230, 804, 12, 70, "Output",ExpressionUUID->"17c06275-6895-4e2a-8b24-1919a77cde29"] +Cell[209429, 5103, 1631, 53, 75, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[211063, 5158, 826, 12, 30, "Output",ExpressionUUID->"7e9071b5-476c-4d53-b3c1-f079846984db"] }, Open ]], Cell[CellGroupData[{ -Cell[210868, 5247, 1635, 54, 70, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[212506, 5303, 795, 12, 70, "Output",ExpressionUUID->"252f66ce-05f9-4243-9b31-8a2fa4824248"] +Cell[211926, 5175, 1631, 53, 75, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[213560, 5230, 817, 12, 30, "Output",ExpressionUUID->"bc7a35b8-572d-40b1-9448-03bf169e950e"] }, Open ]], Cell[CellGroupData[{ -Cell[213338, 5320, 266, 6, 70, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[213607, 5328, 744, 12, 70, "Output",ExpressionUUID->"8e8c6507-ca9d-4fd4-b000-d391ed6653a4"] +Cell[214414, 5247, 262, 5, 26, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[214679, 5254, 764, 11, 30, "Output",ExpressionUUID->"ab7f8cf9-2911-4d66-a86f-464154e65084"] }, Open ]], -Cell[214366, 5343, 176, 3, 70, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], +Cell[215458, 5268, 172, 2, 26, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[214567, 5350, 235, 5, 70, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[214805, 5357, 742, 12, 70, "Output",ExpressionUUID->"b09b3776-57a6-4659-8c56-f390d9e69470"] +Cell[215655, 5274, 231, 4, 26, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[215889, 5280, 760, 11, 30, "Output",ExpressionUUID->"b1df6735-eff6-4379-a0e0-8d573f6421ea"] }, Open ]], -Cell[215562, 5372, 177, 3, 70, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], +Cell[216664, 5294, 173, 2, 26, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[215764, 5379, 1301, 43, 70, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[217068, 5424, 800, 12, 70, "Output",ExpressionUUID->"572b08da-30b1-456e-b2a6-28950bfa94d3"] +Cell[216862, 5300, 1297, 42, 44, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[218162, 5344, 822, 12, 30, "Output",ExpressionUUID->"91494725-f62a-46e4-ab19-0facc06f3a4a"] }, Open ]], Cell[CellGroupData[{ -Cell[217905, 5441, 931, 31, 70, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[218839, 5474, 801, 12, 70, "Output",ExpressionUUID->"39408de4-349a-46f2-bfdf-4c3ac4a76cf1"] +Cell[219021, 5361, 927, 30, 52, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[219951, 5393, 825, 12, 30, "Output",ExpressionUUID->"d0162c8b-55cb-4ee2-93bc-e9d0a5c4e6a0"] }, Open ]], Cell[CellGroupData[{ -Cell[219677, 5491, 907, 30, 70, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[220587, 5523, 800, 12, 70, "Output",ExpressionUUID->"52b897b4-4831-4ad5-ad04-d14e756adbcb"] +Cell[220813, 5410, 903, 29, 52, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[221719, 5441, 822, 12, 30, "Output",ExpressionUUID->"5cd201f0-e6b7-4c39-80db-0d2f9d9718ec"] }, Open ]], Cell[CellGroupData[{ -Cell[221424, 5540, 558, 19, 70, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[221985, 5561, 1201, 18, 70, "Output",ExpressionUUID->"984be6b6-5106-4408-9121-e3e28ae42629"] +Cell[222578, 5458, 554, 18, 47, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[223135, 5478, 1219, 17, 30, "Output",ExpressionUUID->"5c9c4894-0a7d-4eeb-90d6-6e22f4bc685b"] }, Open ]], Cell[CellGroupData[{ -Cell[223223, 5584, 665, 22, 70, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[223891, 5608, 1175, 17, 70, "Output",ExpressionUUID->"a32056e2-f627-4025-bb98-be079a9821bf"] +Cell[224391, 5500, 661, 21, 47, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[225055, 5523, 1197, 17, 30, "Output",ExpressionUUID->"e9bd4141-f6d3-480a-8146-63179c4ca3d1"] }, Open ]], Cell[CellGroupData[{ -Cell[225103, 5630, 170, 5, 70, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[225276, 5637, 1208, 18, 70, "Output",ExpressionUUID->"9214576e-b2b8-4ac3-8512-2f702754bfcd"] +Cell[226289, 5545, 166, 4, 51, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[226458, 5551, 1224, 17, 30, "Output",ExpressionUUID->"a0919432-ce02-4699-b5cb-872c85232eb5"] }, Open ]], Cell[CellGroupData[{ -Cell[226521, 5660, 236, 6, 70, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[226760, 5668, 1140, 17, 70, "Output",ExpressionUUID->"8ce71d4d-4244-4e49-bf8a-a7801a464cda"] +Cell[227719, 5573, 232, 5, 51, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[227954, 5580, 1158, 16, 30, "Output",ExpressionUUID->"cd9bb053-51c5-4215-9685-b336d36bcf4b"] }, Open ]], Cell[CellGroupData[{ -Cell[227937, 5690, 223, 6, 70, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[228163, 5698, 1174, 17, 70, "Output",ExpressionUUID->"91488d10-a8b8-47f7-9907-3c52ac925c36"] +Cell[229149, 5601, 219, 5, 40, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[229371, 5608, 1198, 17, 30, "Output",ExpressionUUID->"2f88e732-a4ab-4f46-aecf-e0e5192b792c"] }, Open ]], Cell[CellGroupData[{ -Cell[229374, 5720, 181, 5, 70, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[229558, 5727, 1191, 18, 70, "Output",ExpressionUUID->"c28189fd-73a8-4bf1-bbcb-969bdc49abd9"] +Cell[230606, 5630, 177, 4, 40, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[230786, 5636, 1208, 17, 30, "Output",ExpressionUUID->"24fe837d-146e-4acd-8b76-e5b79907d06f"] }, Open ]], Cell[CellGroupData[{ -Cell[230786, 5750, 6055, 185, 70, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[236844, 5937, 1175, 17, 70, "Output",ExpressionUUID->"36105ec5-90e1-49a9-b367-2496ad06b46e"] +Cell[232031, 5658, 6051, 184, 177, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[238085, 5844, 1197, 17, 30, "Output",ExpressionUUID->"10d6172c-b1a9-449f-b14b-ab525a31f032"] }, Open ]], Cell[CellGroupData[{ -Cell[238056, 5959, 368, 9, 70, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[238427, 5970, 1218, 19, 70, "Output",ExpressionUUID->"dcbce89b-2223-434e-a59a-1dcb7a1a4b1f"] +Cell[239319, 5866, 364, 8, 38, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[239686, 5876, 1236, 18, 44, "Output",ExpressionUUID->"fec69902-e952-4c61-bbf7-b724285172eb"] }, Open ]], -Cell[239660, 5992, 492, 10, 70, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +Cell[240937, 5897, 488, 9, 26, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[240177, 6006, 558, 19, 70, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[240738, 6027, 782, 12, 70, "Output",ExpressionUUID->"47e36843-3922-4371-9f76-b8dc4e67dc02"] +Cell[241450, 5910, 554, 18, 47, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[242007, 5930, 800, 11, 30, "Output",ExpressionUUID->"681f41ee-453d-4beb-a7d4-37929339457a"] }, Open ]], Cell[CellGroupData[{ -Cell[241557, 6044, 720, 24, 70, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972", +Cell[242844, 5946, 716, 23, 74, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972", CellTags->"evaluate for d"], -Cell[242280, 6070, 808, 14, 70, "Output",ExpressionUUID->"433805b9-be08-4aa6-8b54-1fe1b555c628", +Cell[243563, 5971, 828, 13, 57, "Output",ExpressionUUID->"aafdff16-b87f-4129-ae6c-7af3a28459de", CellTags->"evaluate for d"] }, Open ]], Cell[CellGroupData[{ -Cell[243125, 6089, 170, 5, 70, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[243298, 6096, 416, 7, 70, "Output",ExpressionUUID->"93ea9c75-33a3-4ba5-b6e2-b58e830a80b9"] +Cell[244428, 5989, 166, 4, 51, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[244597, 5995, 434, 6, 30, "Output",ExpressionUUID->"5084d9cc-b000-49e4-95bd-8b96fcde722c"] }, Open ]], Cell[CellGroupData[{ -Cell[243751, 6108, 287, 7, 70, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[244041, 6117, 415, 7, 70, "Output",ExpressionUUID->"28c1668e-6943-4533-8e50-3e9c10178262"] +Cell[245068, 6006, 283, 6, 51, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[245354, 6014, 433, 6, 30, "Output",ExpressionUUID->"49d14398-9a85-49ab-883a-275351144e10"] }, Open ]], Cell[CellGroupData[{ -Cell[244493, 6129, 181, 5, 70, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[244677, 6136, 413, 7, 70, "Output",ExpressionUUID->"79293da6-6b81-4013-9252-8f7b1f3177c0"] +Cell[245824, 6025, 177, 4, 40, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[246004, 6031, 433, 6, 30, "Output",ExpressionUUID->"c8bcc095-ace5-4b32-9fc4-8b3c2cf3ef18"] }, Open ]], Cell[CellGroupData[{ -Cell[245127, 6148, 181, 5, 70, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[245311, 6155, 415, 7, 70, "Output",ExpressionUUID->"575e82a5-e433-46c9-b341-8f707fbfbf95"] +Cell[246474, 6042, 177, 4, 40, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[246654, 6048, 433, 6, 30, "Output",ExpressionUUID->"b2c0fd15-fd81-4a66-aabf-d12851e170f9"] }, Open ]], Cell[CellGroupData[{ -Cell[245763, 6167, 6055, 185, 70, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[251821, 6354, 423, 7, 70, "Output",ExpressionUUID->"8f12cd5c-79d6-4786-b1f8-7e826ae0907b"] +Cell[247124, 6059, 6051, 184, 177, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[253178, 6245, 443, 6, 30, "Output",ExpressionUUID->"fbe88276-43a5-4620-9aba-6a41b5ca4ee8"] }, Open ]], Cell[CellGroupData[{ -Cell[252281, 6366, 410, 10, 70, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[252694, 6378, 500, 9, 70, "Output",ExpressionUUID->"3e98c128-8bdc-4ac8-ab25-62e0a82f6525"] +Cell[253658, 6256, 406, 9, 53, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[254067, 6267, 518, 8, 44, "Output",ExpressionUUID->"8c75b09c-dde1-4275-a5ff-c1709e390500"] }, Open ]], Cell[CellGroupData[{ -Cell[253231, 6392, 6122, 187, 70, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[259356, 6581, 324, 6, 70, "Output",ExpressionUUID->"aba12b73-5a6a-480a-9157-749a58469f5d"] +Cell[254622, 6280, 6118, 186, 177, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[260743, 6468, 342, 5, 30, "Output",ExpressionUUID->"f68f3a3c-5d0b-4798-93aa-d02cc8861ea2"] }, Open ]], Cell[CellGroupData[{ -Cell[259717, 6592, 387, 10, 70, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[260107, 6604, 338, 7, 70, "Output",ExpressionUUID->"b3562db5-2d90-403e-8c9b-2f4fb084237d"] +Cell[261122, 6478, 383, 9, 38, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[261508, 6489, 356, 6, 30, "Output",ExpressionUUID->"9ca47b9a-2d3d-4acf-9650-1fafa34e40f1"] }, Open ]], Cell[CellGroupData[{ -Cell[260482, 6616, 2663, 88, 70, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[263148, 6706, 267, 4, 70, "Output",ExpressionUUID->"c7a36389-df19-4494-8a52-7df38bed173c"] +Cell[261901, 6500, 2659, 87, 104, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[264563, 6589, 288, 4, 30, "Output",ExpressionUUID->"2807222d-61f0-4504-a9d2-b0e5530cc05e"] }, Open ]], Cell[CellGroupData[{ -Cell[263452, 6715, 2603, 85, 70, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[266058, 6802, 263, 4, 70, "Output",ExpressionUUID->"df31e323-a507-44f1-be89-7812c7ec5aea"] +Cell[264888, 6598, 2599, 84, 104, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[267490, 6684, 284, 4, 30, "Output",ExpressionUUID->"650d6d03-9e77-4691-b8f2-9cb418b42ef4"] }, Open ]], Cell[CellGroupData[{ -Cell[266358, 6811, 3712, 118, 70, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[270073, 6931, 266, 4, 70, "Output",ExpressionUUID->"7eaa7d99-e779-4c74-89b1-db243b2effed"] +Cell[267811, 6693, 3708, 117, 155, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[271522, 6812, 287, 4, 30, "Output",ExpressionUUID->"ce612472-6a26-404c-8b47-c609b9cb5c7d"] }, Open ]], -Cell[270354, 6938, 164, 4, 70, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], +Cell[271824, 6819, 164, 4, 26, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[270543, 6946, 2075, 59, 70, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[272621, 7007, 663, 14, 70, "Message",ExpressionUUID->"f1f82686-f0fc-4d7b-88ea-d1896b6e3e06"], -Cell[273287, 7023, 670, 14, 70, "Message",ExpressionUUID->"47c38ad7-316f-4a00-a71a-07c57014b59c"], -Cell[273960, 7039, 671, 14, 70, "Message",ExpressionUUID->"ab649682-d050-441b-8fdf-226b96b32b10"], -Cell[274634, 7055, 565, 12, 70, "Message",ExpressionUUID->"6c749ce2-2f75-4f5a-aebc-ceadab0998ec"], -Cell[275202, 7069, 266, 4, 70, "Output",ExpressionUUID->"f693270e-ad05-428c-94ca-41764e340b83"] +Cell[272013, 6827, 2075, 59, 90, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[274091, 6888, 692, 15, 36, "Message",ExpressionUUID->"7d9e518d-e003-4f78-b423-bff75d578f89"], +Cell[274786, 6905, 696, 15, 36, "Message",ExpressionUUID->"5c23f0a8-b85f-4c93-b012-d904e389f9ba"], +Cell[275485, 6922, 699, 15, 36, "Message",ExpressionUUID->"1a3087ac-03c7-4aef-af7b-f3bd98370d92"], +Cell[276187, 6939, 591, 13, 23, "Message",ExpressionUUID->"dbd1c291-de03-4fa8-a3ce-1211642255a6"], +Cell[276781, 6954, 293, 5, 30, "Output",ExpressionUUID->"a3b4d42d-9bfc-4f76-af76-63e91759da29"] }, Open ]], Cell[CellGroupData[{ -Cell[275505, 7078, 2077, 59, 70, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[277585, 7139, 642, 14, 70, "Message",ExpressionUUID->"117dbaf3-69a5-4982-ac63-00cdb4e62103"], -Cell[278230, 7155, 646, 14, 70, "Message",ExpressionUUID->"0cbbdb60-1ec2-47d2-a951-078870b33e5d"], -Cell[278879, 7171, 649, 14, 70, "Message",ExpressionUUID->"dd6bd31b-100a-4bf8-b964-abceba8621cf"], -Cell[279531, 7187, 541, 12, 70, "Message",ExpressionUUID->"5fcb8407-72eb-4536-8c25-5258681abbca"], -Cell[280075, 7201, 241, 4, 70, "Output",ExpressionUUID->"4ed580b8-8fe6-4ea2-b605-609c224f5a8a"] +Cell[277111, 6964, 2077, 59, 90, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[279191, 7025, 667, 14, 36, "Message",ExpressionUUID->"a2117334-a917-4b62-829e-e34372e89c90"], +Cell[279861, 7041, 671, 14, 36, "Message",ExpressionUUID->"07191a69-e0ff-4cd3-a604-285a6972ee3e"], +Cell[280535, 7057, 674, 14, 36, "Message",ExpressionUUID->"18bfdf92-5709-4cfa-8f6c-d0d4820a99d4"], +Cell[281212, 7073, 568, 12, 23, "Message",ExpressionUUID->"d8ef8d47-c574-4ed4-b2e6-11179b7819a0"], +Cell[281783, 7087, 263, 4, 30, "Output",ExpressionUUID->"3a66de60-7258-4e7d-a32c-526066f71c62"] }, Open ]], Cell[CellGroupData[{ -Cell[280353, 7210, 1961, 53, 70, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[282317, 7265, 233, 4, 70, "Output",ExpressionUUID->"b78413b0-ca2d-4311-8437-ae66c7c5453a"] +Cell[282083, 7096, 1961, 53, 95, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[284047, 7151, 20564, 387, 212, "Output",ExpressionUUID->"f1978f83-fcdf-43bb-975c-4913e1a7bfdc"] }, Open ]], Cell[CellGroupData[{ -Cell[282587, 7274, 2094, 60, 70, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[284684, 7336, 497, 11, 70, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[285184, 7349, 501, 11, 70, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[285688, 7362, 503, 11, 70, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[286194, 7375, 455, 10, 70, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[286652, 7387, 43631, 762, 70, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] -}, Open ]], -Cell[330298, 8152, 232, 6, 70, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[330533, 8160, 209, 5, 70, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], -Cell[CellGroupData[{ -Cell[330767, 8169, 212, 6, 70, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[330982, 8177, 168, 2, 70, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[304648, 7543, 2117, 60, 90, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[306768, 7605, 537, 12, 36, "Message",ExpressionUUID->"d7a14792-f25b-4fb7-ba33-d78ee5fb6336"], +Cell[307308, 7619, 541, 12, 36, "Message",ExpressionUUID->"02b2b4da-3178-4e10-b14f-68fe35f4f611"], +Cell[307852, 7633, 544, 12, 36, "Message",ExpressionUUID->"cc7a056a-9b68-43a3-912f-f5a2ed74ca16"], +Cell[308399, 7647, 493, 11, 23, "Message",ExpressionUUID->"51013170-4a78-40bf-a290-b3282ce97405"], +Cell[308895, 7660, 21516, 399, 209, "Output",ExpressionUUID->"51789872-084a-4434-8313-6375a091b817"] }, Open ]], Cell[CellGroupData[{ -Cell[331187, 8184, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[333004, 8239, 505, 11, 70, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[333512, 8252, 509, 11, 70, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[334024, 8265, 508, 11, 70, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[334535, 8278, 455, 10, 70, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[334993, 8290, 22399, 414, 70, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[330448, 8064, 2478, 70, 139, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[332929, 8136, 9498, 223, 215, "Output",ExpressionUUID->"4a16ab23-3783-4e1c-888a-6afe5ae88fea"] }, Open ]], Cell[CellGroupData[{ -Cell[357429, 8709, 1612, 47, 70, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[359044, 8758, 581, 12, 70, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[359628, 8772, 584, 12, 70, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[360215, 8786, 590, 12, 70, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[360808, 8800, 455, 10, 70, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[361266, 8812, 169, 2, 70, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[342464, 8364, 232, 5, 26, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], +Cell[342699, 8371, 27874, 531, 209, "Output",ExpressionUUID->"dbbf0568-fbf4-47e6-9d29-f09b7977583d"] }, Open ]], Cell[CellGroupData[{ -Cell[361472, 8819, 2249, 64, 70, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[363724, 8885, 557, 12, 70, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[364284, 8899, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[364847, 8913, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[365410, 8927, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[365868, 8939, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[370610, 8907, 237, 7, 44, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[370850, 8916, 195, 3, 30, "Output",ExpressionUUID->"28b5111a-e61a-4197-9f36-9ffd94750a3c"] }, Open ]], Cell[CellGroupData[{ -Cell[366074, 8946, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[368298, 9012, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[368855, 9026, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[369418, 9040, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[369981, 9054, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[370439, 9066, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[371082, 8924, 1837, 53, 123, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[372922, 8979, 546, 12, 36, "Message",ExpressionUUID->"47dd8687-ded9-433e-899a-bfbc2837ce82"], +Cell[373471, 8993, 548, 12, 36, "Message",ExpressionUUID->"7d6a3f67-2edd-4fb5-830a-30b745dd9ea0"], +Cell[374022, 9007, 547, 12, 36, "Message",ExpressionUUID->"dbfff2b6-8f60-49bf-a519-217cc0c586ae"], +Cell[374572, 9021, 495, 11, 23, "Message",ExpressionUUID->"37080254-dda8-4475-8a0f-17a97d06e765"], +Cell[375070, 9034, 22345, 414, 209, "Output",ExpressionUUID->"6b4b0bcb-9e37-44fd-a5c1-072dc46b0e49"] }, Open ]], Cell[CellGroupData[{ -Cell[370645, 9073, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[372871, 9139, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[373429, 9153, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[373990, 9167, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[374553, 9181, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[375009, 9193, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[397452, 9453, 1616, 48, 65, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[399071, 9503, 620, 13, 73, "Message",ExpressionUUID->"395f0b50-b7d5-4886-a473-a5678a90ed95"], +Cell[399694, 9518, 625, 13, 73, "Message",ExpressionUUID->"4469f26e-2559-45f1-8a37-9f7a6deb1fdd"], +Cell[400322, 9533, 628, 13, 73, "Message",ExpressionUUID->"53f40c78-9e84-4538-aba8-d1d27f4d05ca"], +Cell[400953, 9548, 493, 11, 23, "Message",ExpressionUUID->"0df81271-e817-4cd8-a025-aaa3fcab2435"], +Cell[401449, 9561, 195, 3, 30, "Output",ExpressionUUID->"8859b022-a0f8-4b03-bf0f-64ce1e6f9e9d"] }, Open ]], Cell[CellGroupData[{ -Cell[375213, 9200, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[375429, 9208, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] -}, Open ]], -Cell[375613, 9213, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], -Cell[CellGroupData[{ -Cell[375885, 9222, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[376442, 9242, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[401681, 9569, 2272, 64, 198, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[403956, 9635, 596, 13, 75, "Message",ExpressionUUID->"33ca114b-33ab-4c3a-95ca-1454b839b10a"], +Cell[404555, 9650, 599, 13, 59, "Message",ExpressionUUID->"638e8cae-e152-4e99-8501-6ad8063b5bac"], +Cell[405157, 9665, 603, 13, 59, "Message",ExpressionUUID->"89eabdb2-f1b3-4cc5-8dd7-a2284177f499"], +Cell[405763, 9680, 495, 11, 23, "Message",ExpressionUUID->"64f8ebe5-08a6-4815-abfd-ce1db2473eea"], +Cell[406261, 9693, 197, 3, 30, "Output",ExpressionUUID->"9be105b1-c85d-4141-8c76-381ca49a818f"] }, Open ]], Cell[CellGroupData[{ -Cell[376646, 9249, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[376815, 9255, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[406495, 9701, 2233, 63, 140, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[408731, 9766, 593, 13, 75, "Message",ExpressionUUID->"679f513a-a576-4dc3-acc6-6d856702b614"], +Cell[409327, 9781, 596, 13, 59, "Message",ExpressionUUID->"229b7ace-cf5f-418e-9da5-1778a3da5171"], +Cell[409926, 9796, 600, 13, 59, "Message",ExpressionUUID->"0ef86041-8015-452a-98cd-a4cc18bf28d5"], +Cell[410529, 9811, 492, 11, 23, "Message",ExpressionUUID->"f78d7dfa-a918-43d2-82a2-d6a5e5a63d6e"], +Cell[411024, 9824, 194, 3, 30, "Output",ExpressionUUID->"4ed8a400-b10b-45b0-9b73-a01094640f34"] }, Open ]], Cell[CellGroupData[{ -Cell[377021, 9262, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[377205, 9269, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[411255, 9832, 2235, 63, 140, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[413493, 9897, 594, 13, 75, "Message",ExpressionUUID->"8bb30d48-c36d-4623-863c-a7fa80483462"], +Cell[414090, 9912, 600, 13, 59, "Message",ExpressionUUID->"d9e68f7e-5b7e-4297-b4de-4546ce22ec5c"], +Cell[414693, 9927, 603, 13, 59, "Message",ExpressionUUID->"44946a3e-05bd-4802-b3d3-bf4c60dfdc89"], +Cell[415299, 9942, 495, 11, 23, "Message",ExpressionUUID->"758e6155-52da-4973-acc5-cc49ad068da2"], +Cell[415797, 9955, 193, 3, 30, "Output",ExpressionUUID->"3dba417f-1e91-46a8-940c-6d4c7abb9ed6"] }, Open ]], Cell[CellGroupData[{ -Cell[377415, 9277, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[383473, 9464, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[416027, 9963, 236, 6, 43, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[416266, 9971, 194, 3, 30, "Output",ExpressionUUID->"ff67df1a-0a5a-498f-af2f-63fcb7a043f2"] +}, Open ]], +Cell[416475, 9977, 273, 6, 26, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[CellGroupData[{ +Cell[416773, 9987, 558, 19, 47, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[417334, 10008, 193, 3, 30, "Output",ExpressionUUID->"279f3db5-e782-4ef9-bc8c-9c2cf316326b"] }, Open ]], Cell[CellGroupData[{ -Cell[383682, 9472, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[384053, 9483, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[417564, 10016, 170, 5, 51, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[417737, 10023, 197, 3, 30, "Output",ExpressionUUID->"7d4d5c39-9a3e-4d7c-9afd-a8c81a71619d"] }, Open ]], Cell[CellGroupData[{ -Cell[384260, 9491, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[390385, 9680, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[417971, 10031, 181, 5, 40, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[418155, 10038, 197, 3, 30, "Output",ExpressionUUID->"8dc62179-4268-4af6-85b9-2e61345ce5e1"] }, Open ]], Cell[CellGroupData[{ -Cell[390597, 9688, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[390968, 9699, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[418389, 10046, 6055, 185, 458, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[424447, 10233, 195, 3, 30, "Output",ExpressionUUID->"1ab40c9e-ceb1-42ef-8eb0-7be5b65d6d0f"] }, Open ]], Cell[CellGroupData[{ -Cell[391174, 9707, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[393840, 9797, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[424679, 10241, 368, 9, 38, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[425050, 10252, 195, 3, 30, "Output",ExpressionUUID->"3ef47c74-d6f9-4efd-9588-e48261be3a59"] }, Open ]], Cell[CellGroupData[{ -Cell[394050, 9805, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[396656, 9892, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[425282, 10260, 6122, 187, 478, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[431407, 10449, 197, 3, 30, "Output",ExpressionUUID->"f17d93e6-488e-4729-ade3-aa9c0fc24a81"] }, Open ]], Cell[CellGroupData[{ -Cell[396864, 9900, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[400579, 10020, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[431641, 10457, 368, 9, 38, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[432012, 10468, 192, 3, 30, "Output",ExpressionUUID->"46a44e38-d7bf-4a88-9501-ce364a4d0d53"] }, Open ]], Cell[CellGroupData[{ -Cell[400787, 10028, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[402842, 10089, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[403417, 10103, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[403993, 10117, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[404574, 10131, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[405034, 10143, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[432241, 10476, 2663, 88, 155, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[434907, 10566, 196, 3, 30, "Output",ExpressionUUID->"2f9d7d3b-815c-49ce-98a9-505519bab031"] }, Open ]], Cell[CellGroupData[{ -Cell[405243, 10151, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[407300, 10212, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[407875, 10226, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[408453, 10240, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[409032, 10254, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[409492, 10266, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[435140, 10574, 2603, 85, 155, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[437746, 10661, 193, 3, 30, "Output",ExpressionUUID->"13a35c05-5732-485e-822e-0c8a7e5fcbdc"] }, Open ]], Cell[CellGroupData[{ -Cell[409699, 10274, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[411732, 10331, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[437976, 10669, 3712, 118, 228, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[441691, 10789, 193, 3, 30, "Output",ExpressionUUID->"8e0a3f21-ef38-478b-b2ee-487e7779d460"] }, Open ]], Cell[CellGroupData[{ -Cell[432146, 10720, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[434267, 10782, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[434769, 10795, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[435276, 10808, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[435786, 10821, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[436244, 10833, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] -}, Open ]], -Cell[458640, 11251, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[458817, 11256, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], -Cell[CellGroupData[{ -Cell[459051, 11265, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[460670, 11315, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[461267, 11329, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[461864, 11343, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[462465, 11357, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[462925, 11369, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[441921, 10797, 2075, 59, 214, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[443999, 10858, 590, 13, 53, "Message",ExpressionUUID->"5ff6c828-4112-4a8e-92e5-3b11b394b378"], +Cell[444592, 10873, 594, 13, 53, "Message",ExpressionUUID->"9f294a3a-c6a4-4b33-86a5-14eb958fd4e8"], +Cell[445189, 10888, 596, 13, 75, "Message",ExpressionUUID->"2c8d1e00-3cb6-411a-b49f-8193cf8ad5a6"], +Cell[445788, 10903, 495, 11, 23, "Message",ExpressionUUID->"7201ff84-cdd2-44f5-8a32-cae82729aee4"], +Cell[446286, 10916, 195, 3, 30, "Output",ExpressionUUID->"0e0d25fd-f421-4d53-939b-49ff1293602a"] }, Open ]], Cell[CellGroupData[{ -Cell[463133, 11377, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[465383, 11443, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[465958, 11457, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[466534, 11471, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[467115, 11485, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[467573, 11497, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[446518, 10924, 2077, 59, 214, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[448598, 10985, 592, 13, 53, "Message",ExpressionUUID->"fec2ef22-7c6b-436f-a4dd-1c16c9d1c07a"], +Cell[449193, 11000, 594, 13, 53, "Message",ExpressionUUID->"2ea6647d-bfe5-43ab-a5da-a651abbaa2a1"], +Cell[449790, 11015, 596, 13, 75, "Message",ExpressionUUID->"a1893b93-e642-49ff-98bc-4fce17f3f751"], +Cell[450389, 11030, 495, 11, 23, "Message",ExpressionUUID->"2c7a7301-9244-4408-ba0a-fb668038721e"], +Cell[450887, 11043, 192, 3, 30, "Output",ExpressionUUID->"2fe21f48-52d7-4b38-81f2-71ec9193c239"] }, Open ]], Cell[CellGroupData[{ -Cell[467782, 11505, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[470006, 11571, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[470579, 11585, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[471155, 11599, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[471736, 11613, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[472194, 11625, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[451116, 11051, 2053, 55, 76, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[453172, 11108, 20272, 381, 217, "Output",ExpressionUUID->"55e0a170-a158-45ea-a002-c167aec2e635"] }, Open ]], Cell[CellGroupData[{ -Cell[472403, 11633, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[474627, 11699, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[475202, 11713, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[475780, 11727, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[476361, 11741, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[476819, 11753, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[473481, 11494, 2141, 60, 175, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[475625, 11556, 534, 12, 53, "Message",ExpressionUUID->"14cdeb27-3423-4ccc-9d29-349836a8ab11"], +Cell[476162, 11570, 537, 12, 53, "Message",ExpressionUUID->"f7e05102-d738-4fa3-bddb-4d12b5479c52"], +Cell[476702, 11584, 540, 12, 53, "Message",ExpressionUUID->"04ba4eb1-972c-422c-a4a1-f9cb98129bac"], +Cell[477245, 11598, 493, 11, 23, "Message",ExpressionUUID->"6f76f299-8700-42fd-8ede-b63130bfe153"], +Cell[477741, 11611, 22395, 414, 209, "Output",ExpressionUUID->"cbf08135-e0cb-410b-852e-9f86341f7e83"] +}, Open ]], +Cell[500151, 12028, 200, 4, 26, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[CellGroupData[{ +Cell[500376, 12036, 232, 5, 26, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], +Cell[500611, 12043, 28757, 546, 209, "Output",ExpressionUUID->"51bc800c-817f-47c7-a327-bb03759b8252"] }, Open ]], Cell[CellGroupData[{ -Cell[477029, 11761, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[477245, 11769, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] -}, Open ]], -Cell[477432, 11775, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], -Cell[CellGroupData[{ -Cell[477702, 11784, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[478263, 11805, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[529405, 12594, 1616, 48, 65, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[531024, 12644, 635, 13, 73, "Message",ExpressionUUID->"f9f2568d-7b78-4381-9fce-ab248535fe70"], +Cell[531662, 12659, 638, 13, 73, "Message",ExpressionUUID->"66de02d1-fa60-451c-97de-ce2db4d90c26"], +Cell[532303, 12674, 641, 13, 73, "Message",ExpressionUUID->"a954e8ac-c961-4163-8499-21c061269cf9"], +Cell[532947, 12689, 495, 11, 23, "Message",ExpressionUUID->"8534d717-39e3-4d1e-af5b-8b46cb1f5485"], +Cell[533445, 12702, 193, 3, 30, "Output",ExpressionUUID->"62e3f952-94a4-4261-bd12-3d5f773787f3"] }, Open ]], Cell[CellGroupData[{ -Cell[478473, 11813, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[478646, 11820, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[533675, 12710, 2270, 64, 198, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[535948, 12776, 592, 13, 53, "Message",ExpressionUUID->"9aeb92e4-4d82-43fb-be1b-cca480812bfd"], +Cell[536543, 12791, 594, 13, 53, "Message",ExpressionUUID->"4b7b9469-a3c9-4869-b764-bee719f92274"], +Cell[537140, 12806, 596, 13, 75, "Message",ExpressionUUID->"43e0e9f9-fc81-466d-99a1-84a8722265ad"], +Cell[537739, 12821, 495, 11, 23, "Message",ExpressionUUID->"051e4a00-abed-49b9-8978-5da82cef2017"], +Cell[538237, 12834, 195, 3, 30, "Output",ExpressionUUID->"a327e1ff-6f12-4ad1-aaf3-6a3b07258672"] }, Open ]], Cell[CellGroupData[{ -Cell[478854, 11828, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[479038, 11835, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[538469, 12842, 2233, 63, 140, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[540705, 12907, 587, 13, 53, "Message",ExpressionUUID->"ae37e26f-cde6-47d8-b22e-8c580a1736f5"], +Cell[541295, 12922, 592, 13, 53, "Message",ExpressionUUID->"2f04021e-438c-40ae-87e4-2420d36ab5c2"], +Cell[541890, 12937, 594, 13, 75, "Message",ExpressionUUID->"62860a5f-e862-4c41-bd0e-eb8c48d9f600"], +Cell[542487, 12952, 493, 11, 23, "Message",ExpressionUUID->"32f2cb68-3d5d-4be7-ba4b-a9297850f810"], +Cell[542983, 12965, 196, 3, 30, "Output",ExpressionUUID->"37446545-e465-43c0-8651-f89254b61cb4"] }, Open ]], Cell[CellGroupData[{ -Cell[479248, 11843, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[485306, 12030, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[543216, 12973, 2233, 63, 140, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[545452, 13038, 588, 13, 53, "Message",ExpressionUUID->"29f6e2d6-843b-49f2-8ec8-3561963582ef"], +Cell[546043, 13053, 596, 13, 53, "Message",ExpressionUUID->"69cbb3dc-57c2-4770-9243-b6f52f5a09c8"], +Cell[546642, 13068, 596, 13, 75, "Message",ExpressionUUID->"144d74b8-dcc9-440c-80af-f99e6890e802"], +Cell[547241, 13083, 495, 11, 23, "Message",ExpressionUUID->"77f3ef94-790d-493b-aafa-d6456c98a5cf"], +Cell[547739, 13096, 193, 3, 30, "Output",ExpressionUUID->"6f2b0508-d84d-4636-9e48-f8cf3d22d56e"] }, Open ]], Cell[CellGroupData[{ -Cell[485518, 12038, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[485889, 12049, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[547969, 13104, 236, 6, 43, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[548208, 13112, 194, 3, 30, "Output",ExpressionUUID->"c2166dae-8bee-4ddb-b65c-70893dd09821"] +}, Open ]], +Cell[548417, 13118, 271, 6, 26, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[CellGroupData[{ +Cell[548713, 13128, 558, 19, 47, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[549274, 13149, 195, 3, 30, "Output",ExpressionUUID->"2972fe0d-f12c-4fd9-be94-e7d4ceddb6e9"] }, Open ]], Cell[CellGroupData[{ -Cell[486096, 12057, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[492221, 12246, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[549506, 13157, 170, 5, 51, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[549679, 13164, 192, 3, 30, "Output",ExpressionUUID->"0540d8cc-d612-4575-a603-43b4e11ddb80"] }, Open ]], Cell[CellGroupData[{ -Cell[492433, 12254, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[492804, 12265, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[549908, 13172, 181, 5, 40, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[550092, 13179, 196, 3, 30, "Output",ExpressionUUID->"39662ea8-c7a1-4bfc-aeb3-42b3d7658241"] }, Open ]], Cell[CellGroupData[{ -Cell[493013, 12273, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[495679, 12363, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[550325, 13187, 6055, 185, 458, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[556383, 13374, 197, 3, 30, "Output",ExpressionUUID->"f968a21f-5c22-4beb-b92f-1f869da5638a"] }, Open ]], Cell[CellGroupData[{ -Cell[495889, 12371, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[498495, 12458, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[556617, 13382, 368, 9, 38, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[556988, 13393, 193, 3, 30, "Output",ExpressionUUID->"81cb0045-73c2-4b31-ad0b-a04478766e0b"] }, Open ]], Cell[CellGroupData[{ -Cell[498703, 12466, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[502418, 12586, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[557218, 13401, 6122, 187, 478, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[563343, 13590, 196, 3, 30, "Output",ExpressionUUID->"045dd38e-8e5d-498c-be43-612eb8d28851"] }, Open ]], Cell[CellGroupData[{ -Cell[502626, 12594, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[504681, 12655, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[505252, 12669, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[505827, 12683, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[506404, 12697, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[506864, 12709, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[563576, 13598, 368, 9, 38, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[563947, 13609, 194, 3, 30, "Output",ExpressionUUID->"20bc5ffc-f14c-4434-b48c-4693e2320888"] }, Open ]], Cell[CellGroupData[{ -Cell[507073, 12717, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[509130, 12778, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[509701, 12792, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[510276, 12806, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[510853, 12820, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[511313, 12832, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[564178, 13617, 2663, 88, 155, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[566844, 13707, 198, 3, 30, "Output",ExpressionUUID->"45f1d622-26bf-44d1-960d-0870456e1ef9"] }, Open ]], Cell[CellGroupData[{ -Cell[511521, 12840, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[513554, 12897, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[567079, 13715, 2603, 85, 155, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[569685, 13802, 193, 3, 30, "Output",ExpressionUUID->"359bb0ec-1bac-4833-854a-3b5bba27c11f"] }, Open ]], Cell[CellGroupData[{ -Cell[533551, 13277, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[535672, 13339, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[536171, 13352, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[536675, 13365, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[537183, 13378, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[537641, 13390, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] -}, Open ]], -Cell[559377, 13796, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[559561, 13801, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], -Cell[CellGroupData[{ -Cell[559793, 13810, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[561412, 13860, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[562004, 13874, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[562595, 13888, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[563192, 13902, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[563650, 13914, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[569915, 13810, 3712, 118, 228, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[573630, 13930, 193, 3, 30, "Output",ExpressionUUID->"9b3c80b3-158d-4d89-b1da-09db32e3cf13"] }, Open ]], Cell[CellGroupData[{ -Cell[563860, 13922, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[566109, 13988, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[566678, 14002, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[567251, 14016, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[567828, 14030, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[568287, 14042, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[573860, 13938, 2075, 59, 214, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[575938, 13999, 590, 13, 53, "Message",ExpressionUUID->"90b1978e-c389-4276-a7b3-dd8b5a660454"], +Cell[576531, 14014, 596, 13, 53, "Message",ExpressionUUID->"ddf3be70-c982-41d3-8715-c01008445436"], +Cell[577130, 14029, 598, 13, 75, "Message",ExpressionUUID->"5456d2ff-001b-4af2-aa20-b315098423a5"], +Cell[577731, 14044, 495, 11, 23, "Message",ExpressionUUID->"1ad41e45-cce7-49d9-a36a-e2dce1dcdda7"], +Cell[578229, 14057, 195, 3, 30, "Output",ExpressionUUID->"9c5a8a54-1694-45e4-aed9-6b5283b1c02a"] }, Open ]], Cell[CellGroupData[{ -Cell[568495, 14050, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[570719, 14116, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[571291, 14130, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[571865, 14144, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[572443, 14158, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[572904, 14170, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[578461, 14065, 2077, 59, 214, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[580541, 14126, 590, 13, 53, "Message",ExpressionUUID->"d7f8d528-17c2-481a-81a8-3409dce3b91d"], +Cell[581134, 14141, 596, 13, 53, "Message",ExpressionUUID->"8865c826-5939-47b9-83d1-1d0d9a7c30f6"], +Cell[581733, 14156, 596, 13, 75, "Message",ExpressionUUID->"84286ab2-2751-4fa0-ac88-b09fe5899b9e"], +Cell[582332, 14171, 495, 11, 23, "Message",ExpressionUUID->"2f3197a0-b880-47fc-b217-8b8dda949953"], +Cell[582830, 14184, 194, 3, 30, "Output",ExpressionUUID->"1bfb2363-eedc-4063-b834-bd6585076bb6"] }, Open ]], Cell[CellGroupData[{ -Cell[573112, 14178, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[575338, 14244, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[575908, 14258, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[576482, 14272, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[577058, 14286, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[577517, 14298, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[583061, 14192, 2053, 55, 76, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[585117, 14249, 20311, 383, 212, "Output",ExpressionUUID->"8ab8c57b-aa6e-4c8f-8174-841641b9cb85"] }, Open ]], Cell[CellGroupData[{ -Cell[577727, 14306, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[577941, 14314, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +Cell[605465, 14637, 2141, 60, 175, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[607609, 14699, 537, 12, 53, "Message",ExpressionUUID->"96c30f0f-020b-4831-949f-2685d3bad931"], +Cell[608149, 14713, 536, 12, 53, "Message",ExpressionUUID->"0e875ead-4152-48c1-8cde-998f32dac73b"], +Cell[608688, 14727, 542, 12, 53, "Message",ExpressionUUID->"67379e05-9ef5-42d2-a913-1785546a20eb"], +Cell[609233, 14741, 493, 11, 23, "Message",ExpressionUUID->"300004e3-900d-4f52-9ad7-9c5461094ae2"], +Cell[609729, 14754, 22232, 411, 209, "Output",ExpressionUUID->"54805415-da40-4d8b-839c-e5926471a425"] +}, Open ]], +Cell[631976, 15168, 207, 4, 26, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[CellGroupData[{ +Cell[632208, 15176, 230, 5, 26, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], +Cell[632441, 15183, 28594, 543, 209, "Output",ExpressionUUID->"ec82d0b8-2f20-43f0-a90a-4d5acfc047c3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[661072, 15731, 1616, 48, 65, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[662691, 15781, 632, 13, 73, "Message",ExpressionUUID->"33160563-3003-4e26-9fa6-e248a504907e"], +Cell[663326, 15796, 637, 13, 73, "Message",ExpressionUUID->"d31d5e15-140e-4790-87e5-68a04a19a1b7"], +Cell[663966, 15811, 639, 13, 73, "Message",ExpressionUUID->"19b1304c-c1f8-4af0-8b84-4caf46d3c9fc"], +Cell[664608, 15826, 495, 11, 23, "Message",ExpressionUUID->"d273d561-8853-4fcc-a5a4-44de7d2837d7"], +Cell[665106, 15839, 193, 3, 30, "Output",ExpressionUUID->"4a06a9cb-c439-4dc6-aa08-b9d9b791ff1e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[665336, 15847, 2269, 64, 198, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[667608, 15913, 588, 13, 53, "Message",ExpressionUUID->"b8e281d6-464c-4c2d-b3aa-4119e4f8a3fb"], +Cell[668199, 15928, 594, 13, 53, "Message",ExpressionUUID->"0574cb3b-fdbb-4c66-a440-4c94192b6ab3"], +Cell[668796, 15943, 594, 13, 75, "Message",ExpressionUUID->"8355ce5e-40f0-4eae-bfb8-c7d65dd8858d"], +Cell[669393, 15958, 493, 11, 23, "Message",ExpressionUUID->"76d0ca2f-6870-4b18-be6c-1b71ae9dfdfe"], +Cell[669889, 15971, 193, 3, 30, "Output",ExpressionUUID->"41c5c4f7-7cee-45ce-a2c4-bda6bf8486b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[670119, 15979, 2233, 63, 140, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[672355, 16044, 590, 13, 53, "Message",ExpressionUUID->"7cf5e9e7-860b-4df2-918d-2a2d79475e43"], +Cell[672948, 16059, 594, 13, 53, "Message",ExpressionUUID->"012e2d40-a9e9-4efd-848b-783b1be42f70"], +Cell[673545, 16074, 596, 13, 75, "Message",ExpressionUUID->"53a889b7-617c-40cb-81f0-9b0d0b9d9722"], +Cell[674144, 16089, 496, 11, 23, "Message",ExpressionUUID->"ea3c07a6-204f-4876-8ed3-a1cc1c968918"], +Cell[674643, 16102, 195, 3, 30, "Output",ExpressionUUID->"1aa863d0-db6e-4576-b2d8-6dd18b19ae49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[674875, 16110, 2235, 63, 140, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[677113, 16175, 589, 13, 53, "Message",ExpressionUUID->"b14df68f-6c2c-4681-a5b5-2a327e10a04f"], +Cell[677705, 16190, 593, 13, 53, "Message",ExpressionUUID->"7105fd37-866e-4a2b-89e5-c804313f7aad"], +Cell[678301, 16205, 595, 13, 75, "Message",ExpressionUUID->"bf2b31be-9393-4740-8702-c01b1c6a5c83"], +Cell[678899, 16220, 494, 11, 23, "Message",ExpressionUUID->"4efe9378-cc57-487c-b5f6-d869ad89f636"], +Cell[679396, 16233, 194, 3, 30, "Output",ExpressionUUID->"1fe7ecbd-88c1-4357-a1d7-ada51780c7cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[679627, 16241, 234, 6, 43, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[679864, 16249, 199, 3, 30, "Output",ExpressionUUID->"467871ae-163b-4880-ade2-6002c7fe0a60"] }, Open ]] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw2.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw2.nb index a320d64..5d611dd 100755 --- a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw2.nb +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw2.nb @@ -3,42 +3,5155 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 381361, 9130] -NotebookOptionsPosition[ 356610, 8757] -NotebookOutlinePosition[ 357039, 8774] -CellTagsIndexPosition[ 356996, 8771] +NotebookDataLength[ 680688, 16266] +NotebookOptionsPosition[ 640169, 15618] +NotebookOutlinePosition[ 640603, 15636] +CellTagsIndexPosition[ 640560, 15633] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918496921150837`*^9},ExpressionUUID->"ede64bc2-06f7-8743-a0a6-\ -6f058773310c"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918496892276516`*^9, - 3.9918496892324924`*^9}},ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-\ -c82e80965ca9"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "2"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993120093374651*^9, 3.993120098406262*^9}, { + 3.9931205775772543`*^9, 3.9931205930074*^9}, {3.99312068244851*^9, + 3.993120683031312*^9}, {3.993120763928855*^9, 3.993120796207575*^9}, { + 3.993120826638487*^9, 3.99312091050727*^9}, {3.9938200779452133`*^9, + 3.993820078648109*^9}}, + CellLabel->"In[95]:=",ExpressionUUID->"177ab24e-f9bd-4d8c-baca-d03630d41abe"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{{3.99312071481172*^9, 3.993120733996957*^9}, + 3.993120778405978*^9, {3.993120808982645*^9, 3.993120917972237*^9}, + 3.9931263962514753`*^9, 3.993127107949593*^9, 3.9931273269905376`*^9, + 3.993129929766796*^9, 3.993820659117201*^9, 3.9938209219867153`*^9, + 3.9938213248523483`*^9, 3.9938260737485447`*^9, 3.9938262846038103`*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"2d6d63d8-4caa-4c18-b9b5-c173504b5838"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9921791748924236`*^9, 3.992179175479521*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"9b1d3ba0-a7e9-47ea-8fd5-75ac5a8fc368"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ -7dc8ec78e5b4"], + 3.9913196497381973`*^9, 3.992179197984804*^9, 3.992572214097535*^9, + 3.992572317060832*^9, 3.993119177905259*^9, 3.993120125010063*^9, + 3.9931206200212383`*^9, 3.993120734031558*^9, 3.993120778440694*^9, { + 3.9931208090163393`*^9, 3.993120918005108*^9}, 3.993126396590149*^9, + 3.99312710802812*^9, 3.993127327031427*^9, 3.993129929806696*^9, + 3.993820922243906*^9, 3.993821325040292*^9, 3.9938260738003387`*^9, + 3.993826284734693*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"b23385bb-61f9-4e85-ad80-8e585e598a8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "174"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.992179210458246*^9, 3.9921792125496464`*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"d718c2a4-960c-4258-9b7d-7bd9a1ac912d"], + +Cell[BoxData["174"], "Output", + CellChangeTimes->{ + 3.992179213346216*^9, 3.992572214121804*^9, 3.992572317082644*^9, + 3.9931191779262667`*^9, 3.993120125034624*^9, 3.993120620044674*^9, + 3.993120734050745*^9, 3.993120778464333*^9, {3.9931208090398912`*^9, + 3.993120918033216*^9}, 3.9931263966177673`*^9, 3.993127108045971*^9, + 3.993127327055435*^9, 3.99312992983158*^9, 3.993820922264188*^9, + 3.993821325060758*^9, 3.993826073809742*^9, 3.9938262847670507`*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"be83c019-cbba-4d8f-a147-59612fd3b461"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"1bd97304-a3e5-476f-8c56-6d3b6e215c9d"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.992572214146598*^9, 3.992572317086834*^9, + 3.993119177946436*^9, 3.993120125058119*^9, 3.993120620068224*^9, + 3.993120734070492*^9, 3.993120778487204*^9, {3.993120809063224*^9, + 3.993120918037675*^9}, 3.9931263966592207`*^9, 3.993127108062867*^9, + 3.9931273270590353`*^9, 3.993129929855886*^9, 3.9938209222814407`*^9, + 3.993821325081142*^9, 3.993826073818021*^9, 3.993826284796866*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"652a6a7c-b897-4125-b347-c34251e260e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[99]:=",ExpressionUUID->"13d3d7d0-e080-4901-aab1-8133cf7edd85"], + +Cell[BoxData["0.54325`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.992572214170871*^9, 3.992572317111895*^9, + 3.993119177966724*^9, 3.993120125061846*^9, 3.993120620073361*^9, + 3.993120734074827*^9, 3.993120778491198*^9, {3.993120809067272*^9, + 3.993120918063335*^9}, 3.9931263966877337`*^9, 3.993127108066464*^9, + 3.993127327083083*^9, 3.99312992986033*^9, 3.99382092229881*^9, + 3.993821325101738*^9, 3.993826073825717*^9, 3.993826284828404*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"9f3369fa-730d-44d6-a7ef-754e7a39613e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[100]:=",ExpressionUUID->"db9cfa90-8571-45c8-9aca-45e746c10951"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.992572214197208*^9, 3.992572317132773*^9, + 3.993119177986623*^9, 3.993120125088593*^9, 3.993120620099668*^9, + 3.993120734095941*^9, 3.99312077851781*^9, {3.993120809095289*^9, + 3.993120918090218*^9}, 3.993126396714637*^9, 3.993127108084917*^9, + 3.993127327106142*^9, 3.993129929903006*^9, 3.9938209223161383`*^9, + 3.9938213251220818`*^9, 3.99382607383274*^9, 3.993826284859934*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"23eafb80-ca5f-4a7c-bf44-5df00638e792"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"d9fd530a-ce79-4676-9d6b-30c0e3289308"], + +Cell[BoxData["6.4760133991237705`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.992572214222725*^9, 3.992572317154562*^9, + 3.99311917800653*^9, 3.9931201251119223`*^9, 3.993120620121489*^9, + 3.993120734114851*^9, 3.993120778540956*^9, {3.993120809118425*^9, + 3.9931209181194077`*^9}, 3.993126396741642*^9, 3.993127108102049*^9, + 3.993127327128428*^9, 3.993129929926125*^9, 3.993820922333848*^9, + 3.993821325144353*^9, 3.993826073844342*^9, 3.9938262848975*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"3f0d3e3b-58a5-44b9-8075-14f8d2006c63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"ccde1a30-204b-437a-95ab-36731255415f"], + +Cell[BoxData["4.6878384239217405`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992572214247353*^9, 3.9925723171758833`*^9, + 3.993119178026596*^9, 3.993120125135309*^9, 3.9931206201430807`*^9, + 3.9931207341331453`*^9, 3.993120778564814*^9, {3.993120809140911*^9, + 3.993120918144981*^9}, 3.993126396766501*^9, 3.9931271081205463`*^9, + 3.99312732715136*^9, 3.993129929948636*^9, 3.993820922349847*^9, + 3.9938213251706743`*^9, 3.993826073856008*^9, 3.993826284923669*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"e80db211-5ece-43b0-87da-36f284426547"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", " ", "0.787635594208527"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.992179227142147*^9, 3.9921792274418793`*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"71d21002-107a-4788-ada0-2f87c6621089"], + +Cell[BoxData["0.787635594208527`"], "Output", + CellChangeTimes->{ + 3.9921792420000687`*^9, 3.992572214271277*^9, 3.992572317197154*^9, + 3.993119178046308*^9, 3.993120125158621*^9, 3.993120620165731*^9, + 3.993120734151725*^9, 3.993120778587878*^9, {3.993120809163859*^9, + 3.993120918172269*^9}, 3.9931263967899513`*^9, 3.9931271081375427`*^9, + 3.993127327173975*^9, 3.9931299299716787`*^9, 3.993820922366026*^9, + 3.99382132519131*^9, 3.99382607386794*^9, 3.9938262849309883`*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1fa0fafc-fa52-478f-b31d-a918f42c192a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", " ", "0.446333511300556"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.9921792384900284`*^9, 3.9921792388312874`*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"48588aa2-fc19-4693-ad42-12f1d5e06337"], + +Cell[BoxData["0.446333511300556`"], "Output", + CellChangeTimes->{ + 3.9921792398346214`*^9, 3.992572214295*^9, 3.992572317218054*^9, + 3.9931191780661097`*^9, 3.9931201251823397`*^9, 3.9931206201876802`*^9, + 3.993120734170333*^9, 3.993120778610222*^9, {3.993120809186323*^9, + 3.99312091819843*^9}, 3.993126396813437*^9, 3.993127108161908*^9, + 3.993127327196413*^9, 3.993129929995016*^9, 3.993820922383264*^9, + 3.993821325212247*^9, 3.993826073879183*^9, 3.993826284958119*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"f7e4ec56-4dbd-448b-93fa-cd5c9d27dd2e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"d8f038d3-16cb-49c8-97e3-8b44cbff5c1e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992572214318672*^9, 3.992572317239251*^9, + 3.99311917808567*^9, 3.9931201252072067`*^9, 3.993120620211128*^9, + 3.9931207341889687`*^9, 3.99312077863275*^9, {3.9931208092095003`*^9, + 3.993120918224504*^9}, 3.993126396838297*^9, 3.993127108181823*^9, + 3.993127327218768*^9, 3.993129930018751*^9, 3.993820922401799*^9, + 3.993821325232583*^9, 3.993826073885977*^9, 3.993826285029181*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"b951ad06-e416-4b67-b073-2318e75f310b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"0ec98dc4-9705-46eb-8334-d25269aeb9bc"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.992572214341442*^9, 3.99257231726003*^9, + 3.9931191781051207`*^9, 3.993120125230564*^9, 3.9931206202335043`*^9, + 3.99312073420716*^9, 3.993120778655138*^9, {3.993120809232238*^9, + 3.993120918250256*^9}, 3.9931263968628597`*^9, 3.9931271081993628`*^9, + 3.9931273272409983`*^9, 3.993129930042575*^9, 3.9938209224218187`*^9, + 3.993821325253791*^9, 3.993826073892729*^9, 3.993826285065898*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"701e9ad3-e5b0-4603-9826-fd70d34474a7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"5151bacb-b83d-45f2-b415-e4163544944d"], + +Cell[BoxData["2.061265729478835`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9925722143657017`*^9, 3.992572317280959*^9, + 3.993119178124851*^9, 3.993120125254407*^9, 3.993120620254471*^9, + 3.993120734225675*^9, 3.9931207786779127`*^9, {3.993120809254608*^9, + 3.993120918276112*^9}, 3.9931263968879843`*^9, 3.993127108217485*^9, + 3.993127327263125*^9, 3.993129930068864*^9, 3.993820922442368*^9, + 3.993821325274584*^9, 3.993826073906251*^9, 3.9938262851022053`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"fc1cb8d9-ca90-4c5c-9996-2348d0985710"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"89ec5500-5986-4f55-85a1-5a4a3b951636"], + +Cell[BoxData["1.500736140386642`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992572214389948*^9, 3.992572317303102*^9, + 3.993119178144163*^9, 3.9931201252777433`*^9, 3.9931206202755957`*^9, + 3.993120734243594*^9, 3.9931207787003393`*^9, {3.993120809276908*^9, + 3.99312091830203*^9}, 3.993126396911474*^9, 3.993127108235187*^9, + 3.993127327285036*^9, 3.993129930093583*^9, 3.993820922464366*^9, + 3.993821325296948*^9, 3.9938260739199266`*^9, 3.993826285145441*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"e0894099-67a9-45d8-bdb2-acefefa80056"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"14dd1e95-4f45-4fc1-b9df-fb22cc8358eb"], + +Cell[BoxData["0.4819667641075124`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992572214413184*^9, 3.99257231732421*^9, + 3.993119178164648*^9, 3.993120125301038*^9, 3.9931206202958717`*^9, + 3.993120734262151*^9, 3.993120778723154*^9, {3.993120809300878*^9, + 3.99312091832813*^9}, 3.993126396937214*^9, 3.9931271082526913`*^9, + 3.993127327307868*^9, 3.9931299301179867`*^9, 3.993820922485868*^9, + 3.993821325318647*^9, 3.9938260739250307`*^9, 3.993826285180832*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"07a06b53-faef-4c83-b075-f47e3a29e88d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"558d194a-360e-4033-81c0-2aa4a485052a"], + +Cell[BoxData[ + RowBox[{"-", "0.11350137337476086`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992572214437451*^9, 3.9925723173458*^9, + 3.993119178185848*^9, 3.993120125324417*^9, 3.9931206203183327`*^9, + 3.993120734281169*^9, 3.9931207787467546`*^9, {3.9931208093296213`*^9, + 3.99312091835464*^9}, 3.993126396963295*^9, 3.993127108270629*^9, + 3.993127327330381*^9, 3.9931299301418533`*^9, 3.99382092250697*^9, + 3.993821325323758*^9, 3.993826073940836*^9, 3.9938262852104387`*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"e7cbe88c-3895-4dc6-952f-1357b5c1e53d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"feabec84-8c1c-488d-9ca1-217c0629ead0"], + +Cell[BoxData[ + RowBox[{"-", "0.4652269449262844`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992572214463674*^9, 3.992572317369649*^9, + 3.9931191782082033`*^9, 3.99312012534838*^9, 3.993120620340795*^9, + 3.993120734300748*^9, 3.993120778771158*^9, {3.993120809354206*^9, + 3.993120918381035*^9}, 3.993126396990156*^9, 3.9931271082880383`*^9, + 3.993127327353141*^9, 3.993129930165496*^9, 3.993820922527863*^9, + 3.9938213253592663`*^9, 3.993826073949595*^9, 3.9938262852503223`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"665e2250-7376-4709-8a23-c896a2dc01fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"a3117e74-ede2-4a9c-bd8c-fe27eb95a59e"], + +Cell[BoxData["0.6581300944010081`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.992572214489163*^9, 3.992572317393075*^9, + 3.993119178231051*^9, 3.9931201253721113`*^9, 3.99312062036334*^9, + 3.993120734321094*^9, 3.993120778795766*^9, {3.993120809378998*^9, + 3.993120918385751*^9}, 3.9931263970193033`*^9, 3.993127108305181*^9, + 3.9931273273757467`*^9, 3.993129930188332*^9, 3.9938209225487947`*^9, + 3.993821325380507*^9, 3.9938260739604883`*^9, 3.993826285282361*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"d8018943-5f52-47ef-959b-9913492c122c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"e173b9d9-645f-47bc-ae7c-22e163aa863f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.992572214515427*^9, 3.99257231741498*^9, + 3.993119178253972*^9, 3.993120125375824*^9, 3.993120620387291*^9, + 3.993120734341495*^9, 3.993120778819956*^9, {3.9931208093832693`*^9, + 3.9931209184116087`*^9}, 3.99312639704468*^9, 3.993127108308776*^9, + 3.993127327398494*^9, 3.9931299302114077`*^9, 3.993820922569104*^9, + 3.993821325402446*^9, 3.9938260739707603`*^9, 3.993826285321311*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"b87f82be-2bee-47c9-9d3c-40c20aaa358a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"396a6b08-4bd2-468f-b4ac-4358246de23b"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9925722145429707`*^9, 3.992572317437202*^9, + 3.993119178277193*^9, 3.9931201254011793`*^9, 3.993120620412382*^9, + 3.9931207343622217`*^9, 3.9931207788442707`*^9, {3.99312080941044*^9, + 3.9931209184381313`*^9}, 3.993126397071262*^9, 3.99312710832703*^9, + 3.9931273274216337`*^9, 3.993129930233728*^9, 3.993820922588461*^9, + 3.993821325422915*^9, 3.993826073979835*^9, 3.993826285356642*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"c4fc0e18-99ee-4e42-b1e8-facc77e84b4d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"1323f847-bbe1-4e78-b5b5-3b3c2687def4"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992572214574439*^9, 3.992572317459443*^9, + 3.993119178300417*^9, 3.9931201254244537`*^9, 3.9931206204363203`*^9, + 3.993120734383583*^9, 3.9931207788686132`*^9, {3.9931208094353867`*^9, + 3.9931209184643908`*^9}, 3.993126397099202*^9, 3.993127108343864*^9, + 3.993127327445428*^9, 3.9931299302566557`*^9, 3.9938209226073112`*^9, + 3.993821325443508*^9, 3.9938260739878674`*^9, 3.99382628536648*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"cd8b9bf3-af39-4359-bf83-1b67970aa0d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[116]:=",ExpressionUUID->"d524a185-6901-46e3-ba40-14055e5ca37f"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992572214602646*^9, 3.9925723174828*^9, + 3.993119178323925*^9, 3.993120125448517*^9, 3.993120620460043*^9, + 3.993120734387587*^9, 3.993120778893586*^9, {3.99312080946041*^9, + 3.993120918489931*^9}, 3.993126397126109*^9, 3.993127108360798*^9, + 3.9931273274692783`*^9, 3.993129930279661*^9, 3.993820922626377*^9, + 3.993821325463908*^9, 3.993826073995213*^9, 3.993826285439049*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"44d3eeb1-758c-4dd1-9116-ac2c8351edf1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[117]:=",ExpressionUUID->"0d7742b5-3a68-4879-8924-14b37e708874"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992572214629313*^9, 3.992572317507607*^9, + 3.9931191783485727`*^9, 3.993120125472217*^9, 3.993120620483555*^9, + 3.9931207344112377`*^9, 3.993120778917965*^9, {3.9931208094855137`*^9, + 3.993120918515835*^9}, 3.9931263971541853`*^9, 3.9931271083779078`*^9, + 3.99312732750038*^9, 3.9931299303028812`*^9, 3.993820922647743*^9, + 3.993821325485675*^9, 3.9938260740027018`*^9, 3.993826285463381*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"aa4dbc8d-29fc-4897-afda-d566aa4891c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", " ", "64"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.992179334842106*^9, 3.992179335687786*^9}}, + CellLabel-> + "In[118]:=",ExpressionUUID->"acdd66d1-2a38-4e76-a744-91fd3beeef9c"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.992179336847067*^9, 3.9925722146573257`*^9, 3.992572317531928*^9, + 3.9931191783727818`*^9, 3.99312012549559*^9, 3.993120620507852*^9, + 3.99312073443309*^9, 3.9931207789437017`*^9, {3.993120809511362*^9, + 3.993120918541663*^9}, 3.993126397182165*^9, 3.9931271083947906`*^9, + 3.993127327526623*^9, 3.993129930307193*^9, 3.993820922668882*^9, + 3.993821325506364*^9, 3.993826074011517*^9, 3.993826285477331*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"89d6f6a5-f63a-44bb-a34c-203e1c4bd74b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9921793256443367`*^9, 3.992179330522312*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"261c5343-4536-479b-9bf7-2e4224e465b8"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9921793318030663`*^9, 3.9925722146853657`*^9, + 3.9925723175551643`*^9, 3.993119178397065*^9, 3.9931201255193787`*^9, + 3.993120620532507*^9, 3.993120734454447*^9, 3.9931207789693117`*^9, { + 3.993120809536613*^9, 3.9931209185672503`*^9}, 3.993126397209779*^9, + 3.993127108411848*^9, 3.993127327550788*^9, 3.993129930331666*^9, + 3.993820922690579*^9, 3.993821325527898*^9, 3.993826074019018*^9, + 3.993826285488523*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"89aee5de-0b6b-4187-9858-f3c7df0231b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"8764ba96-9ebc-460e-a39c-b286223dfb6a"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992572214711643*^9, 3.9925723175775127`*^9, + 3.993119178422393*^9, 3.993120125544594*^9, 3.9931206205571127`*^9, + 3.993120734475452*^9, 3.993120778995337*^9, {3.993120809563072*^9, + 3.993120918592782*^9}, 3.993126397236918*^9, 3.9931271084302473`*^9, + 3.9931273275743093`*^9, 3.9931299303548107`*^9, 3.9938209227139177`*^9, + 3.993821325548872*^9, 3.9938260740268583`*^9, 3.993826285504211*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"6c4334ac-e8bd-403f-9fd9-f101d01d010e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"faaacf5c-c665-4bb4-84f0-4fdaf6bb064a"], + +Cell[BoxData["0.10009404388714734`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9925722147384853`*^9, 3.9925723175992517`*^9, + 3.993119178447468*^9, 3.9931201255690928`*^9, 3.99312062058057*^9, + 3.993120734496913*^9, 3.9931207790217533`*^9, {3.993120809589333*^9, + 3.993120918618535*^9}, 3.993126397265643*^9, 3.993127108447774*^9, + 3.993127327597167*^9, 3.993129930377665*^9, 3.993820922736074*^9, + 3.993821325571004*^9, 3.993826074034831*^9, 3.993826285517962*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"8360f847-69ee-4467-b9dc-3fce504685c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"39b65560-7802-4006-a20b-abe53f5dc4a4"], + +Cell[BoxData[ + RowBox[{"-", "2.5770219435736674`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9925722147662983`*^9, 3.992572317620441*^9, + 3.99311917847161*^9, 3.9931201255928173`*^9, 3.993120620603883*^9, + 3.99312073451705*^9, 3.993120779047393*^9, {3.993120809616363*^9, + 3.99312091864408*^9}, 3.993126397321745*^9, 3.9931271084650297`*^9, + 3.993127327619956*^9, 3.9931299304007187`*^9, 3.9938209227580633`*^9, + 3.993821325594208*^9, 3.9938260740442944`*^9, 3.993826285531495*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"aa9c4a94-1d5c-4a42-8896-b2319948f4e0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"850ad284-34d0-439d-9b9b-546cb3a16024"], + +Cell[BoxData["17.307103859214784`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9925722147917547`*^9, 3.992572317642908*^9, + 3.9931191784953337`*^9, 3.9931201256157637`*^9, 3.993120620627388*^9, + 3.993120734537298*^9, 3.993120779073007*^9, {3.993120809642799*^9, + 3.99312091866967*^9}, 3.993126397349163*^9, 3.993127108482143*^9, + 3.993127327644107*^9, 3.993129930424616*^9, 3.9938209227870483`*^9, + 3.993821325616982*^9, 3.993826074052443*^9, 3.993826285543271*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"da3a2c0a-f9f1-4c6c-9583-f0c8d2915043"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"114ce8a5-1146-41e8-8890-0f79677c7e1c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992572214844244*^9, 3.992572317663885*^9, + 3.993119178519957*^9, 3.9931201256394*^9, 3.993120620650062*^9, + 3.9931207345574923`*^9, 3.9931207790984907`*^9, {3.99312080966818*^9, + 3.993120918694831*^9}, 3.9931263973740883`*^9, 3.99312710849828*^9, + 3.993127327666795*^9, 3.993129930447353*^9, 3.993820922809124*^9, + 3.99382132563982*^9, 3.99382607406073*^9, 3.993826285556054*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"1bd40327-6969-427d-a2b6-2ce28f0eda1d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", " ", "1.7300"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.99217938935705*^9, 3.9921793928277493`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"296b2b8e-676c-46fb-bf6d-d3394f80fc50"], + +Cell[BoxData["1.73`"], "Output", + CellChangeTimes->{ + 3.992179393619543*^9, 3.99257221486978*^9, 3.9925723176844263`*^9, + 3.993119178543579*^9, 3.993120125662697*^9, 3.993120620672945*^9, + 3.993120734577505*^9, 3.99312077912435*^9, {3.993120809694366*^9, + 3.9931209187201843`*^9}, 3.993126397400276*^9, 3.993127108513898*^9, + 3.9931273276905518`*^9, 3.993129930470989*^9, 3.993820922835219*^9, + 3.993821325664843*^9, 3.993826074068*^9, 3.9938262855711813`*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"302ff92c-a821-4a69-a5d6-e0e11ed8bf22"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849693382303*^9, - 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ -623392314869"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"a20f43f2-fe23-4cfd-a0e0-9dbafb0c220c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", " ", "0.7600"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.992179397583227*^9, 3.992179400444868*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"a4f4bbf4-5c3c-4880-bb67-df2400801a6d"], + +Cell[BoxData["0.76`"], "Output", + CellChangeTimes->{ + 3.992179401201977*^9, 3.992572214909528*^9, 3.992572317717004*^9, + 3.993119178580999*^9, 3.993120125699438*^9, 3.993120620708702*^9, + 3.993120734611329*^9, 3.993120779164959*^9, {3.9931208097375097`*^9, + 3.993120918756428*^9}, 3.993126397434441*^9, 3.99312710854491*^9, + 3.993127327734688*^9, 3.993129930499295*^9, 3.993820922907363*^9, + 3.993821325729994*^9, 3.9938260740789547`*^9, 3.993826285590293*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"995a7c65-cd1f-478d-9ebf-a0f93065bd99"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[128]:=",ExpressionUUID->"984776c5-6f74-41c2-9cd8-a2dbdf48d94c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", " ", "2.400"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9921794031483917`*^9, 3.9921794061884384`*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"a084f63f-0e27-42a2-b26b-814e0d3035eb"], + +Cell[BoxData["2.4`"], "Output", + CellChangeTimes->{ + 3.992179407540327*^9, 3.992572214945683*^9, 3.9925723177561007`*^9, + 3.993119178617138*^9, 3.993120125731515*^9, 3.993120620741789*^9, + 3.99312073464296*^9, 3.993120779203336*^9, {3.993120809773469*^9, + 3.993120918792803*^9}, 3.993126397467867*^9, 3.993127108575645*^9, + 3.993127327780107*^9, 3.993129930527397*^9, 3.99382092297139*^9, + 3.993821325794901*^9, 3.993826074090535*^9, 3.99382628560843*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"43cf4422-062b-492d-9bcc-74c3a4c98390"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"ac54d051-d7ae-49e9-a562-68374030c103"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", " ", "1.1050"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.992179410033045*^9, 3.9921794153030643`*^9}}, + CellLabel-> + "In[131]:=",ExpressionUUID->"fd0a71f0-e9cc-4850-b91a-1bc6580ee436"], + +Cell[BoxData["1.105`"], "Output", + CellChangeTimes->{ + 3.992179415754301*^9, 3.992572214981649*^9, 3.992572317797142*^9, + 3.9931191786546717`*^9, 3.993120125772245*^9, 3.993120620774741*^9, + 3.993120734674015*^9, 3.993120779246025*^9, {3.9931208098102417`*^9, + 3.993120918832294*^9}, 3.9931263974996033`*^9, 3.9931271086069736`*^9, + 3.993127327858879*^9, 3.9931299305553226`*^9, 3.993820923074497*^9, + 3.993821325903837*^9, 3.9938260741039953`*^9, 3.993826285646982*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"765e9e71-fee6-4b14-ba2d-c52f3e795bd2"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[132]:=",ExpressionUUID->"f8960f99-5cbe-4046-8e5a-8d7fc0ca5594"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", " ", "1.4012"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9921794177283573`*^9, + 3.992179423583313*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"071e32e2-cd1b-4586-93b0-5d5509a5549d"], + +Cell[BoxData["1.4012`"], "Output", + CellChangeTimes->{ + 3.9921794257836323`*^9, 3.992572215020274*^9, 3.9925723178372593`*^9, + 3.993119178721389*^9, 3.9931201258041277`*^9, 3.993120620807364*^9, + 3.9931207347045813`*^9, 3.99312077928405*^9, {3.993120809849883*^9, + 3.993120918882786*^9}, 3.9931263975308533`*^9, 3.993127108637912*^9, + 3.9931273279852*^9, 3.993129930582982*^9, 3.993820923150923*^9, + 3.993821326101439*^9, 3.993826074116455*^9, 3.9938262856714983`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"0747b9f0-a535-4647-ab26-4029d45e014f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"6eb3cc10-33be-477b-9b4b-ed5d5ca3c036"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", " ", "0.5547"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9921794277801266`*^9, + 3.9921794329809513`*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"f209b35f-0335-4b65-b7b0-8b6880f38337"], + +Cell[BoxData["0.5547`"], "Output", + CellChangeTimes->{ + 3.9921794363325005`*^9, 3.992572215056624*^9, 3.992572317866984*^9, + 3.9931191787561502`*^9, 3.993120125890787*^9, 3.9931206208406067`*^9, + 3.993120734738842*^9, 3.993120779339178*^9, {3.993120809889782*^9, + 3.993120918919759*^9}, 3.993126397559119*^9, 3.993127108670261*^9, + 3.993127328084579*^9, 3.993129930610573*^9, 3.993820923263421*^9, + 3.993821326258257*^9, 3.993826074126669*^9, 3.9938262856975737`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"cc0c626a-deca-41c6-bf2e-a65f045eee2b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"60a77585-f82d-4166-bb52-e266042b9816"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", " ", "1.1338"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9921794404678802`*^9, + 3.992179445208559*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"730aeb51-20ef-4f85-ba92-f9fc55ca1f1a"], + +Cell[BoxData["1.1338`"], "Output", + CellChangeTimes->{ + 3.99217944657938*^9, 3.992572215093463*^9, 3.992572317906247*^9, + 3.99311917879039*^9, 3.9931201260449333`*^9, 3.993120620873763*^9, + 3.993120734773638*^9, 3.993120779536425*^9, {3.993120809930094*^9, + 3.993120918956725*^9}, 3.993126397589849*^9, 3.9931271087029333`*^9, + 3.993127328126643*^9, 3.9931299306393948`*^9, 3.993820923352148*^9, + 3.993821326352581*^9, 3.9938260741353827`*^9, 3.993826285722302*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"41bd0de1-7aa6-4597-86ba-9ddefa7a2058"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"90b82dfd-ec22-4adc-968c-26bbaf5fa77a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", " ", "0.8500"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.9921794486072216`*^9, 3.992179451994211*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"c98089cf-4ac3-4f43-87d7-88d0f37d9226"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{ + 3.992179452410452*^9, 3.9925722151320877`*^9, 3.99257231794547*^9, + 3.9931191788237534`*^9, 3.993120126088036*^9, 3.993120620906579*^9, + 3.993120734815996*^9, 3.99312077958954*^9, {3.993120809970735*^9, + 3.993120919005844*^9}, 3.9931263976232653`*^9, 3.993127108734625*^9, + 3.9931273281682453`*^9, 3.9931299306665077`*^9, 3.993820923454094*^9, + 3.993821326423518*^9, 3.993826074145012*^9, 3.9938262857459373`*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"70927965-c915-429f-8798-68599c34b6a1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"70f46a4e-61b6-48a6-aa38-4ce5cb6599f4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel-> + "In[141]:=",ExpressionUUID->"b4613cec-2418-43a3-aeb9-ffb22ea26681"], + +Cell[BoxData["0.20251257452349652`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9925722152487392`*^9, 3.99257231801375*^9, + 3.993119178932695*^9, 3.9931201261547956`*^9, 3.993120621085143*^9, + 3.993120734882799*^9, 3.993120779663743*^9, {3.9931208100453367`*^9, + 3.993120919069702*^9}, 3.993126397737794*^9, 3.993127108801776*^9, + 3.993127328244122*^9, 3.99312993079362*^9, 3.993820923644393*^9, + 3.993821326570694*^9, 3.99382607421982*^9, 3.993826285820023*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"b82a26c2-e4de-4227-87ef-24bbbfd97543"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"372cd8de-6473-4409-892b-8b4c8aeae3fe"], + +Cell[BoxData["5.409861784548971`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.992572215281089*^9, 3.992572318073772*^9, + 3.993119178961668*^9, 3.9931201261913633`*^9, 3.9931206212251253`*^9, + 3.993120734908091*^9, 3.993120779691341*^9, {3.993120810074683*^9, + 3.9931209190984907`*^9}, 3.993126397786759*^9, 3.9931271088494673`*^9, + 3.993127328284951*^9, 3.9931299308716*^9, 3.993820923677984*^9, + 3.993821326623522*^9, 3.9938260742574873`*^9, 3.993826285872761*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"b717fb4a-3be0-484f-a4f2-2e6a3c668104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"d2e12971-933f-47c3-b06e-7c8dc2854984"], + +Cell[BoxData[ + RowBox[{"-", "26.71933695492077`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.992572215310524*^9, 3.9925723181046333`*^9, + 3.9931191789891367`*^9, 3.993120126228422*^9, 3.9931206213349524`*^9, + 3.993120734934422*^9, 3.993120779718647*^9, {3.993120810103335*^9, + 3.9931209191268253`*^9}, 3.993126397844788*^9, 3.993127108888278*^9, + 3.993127328322741*^9, 3.993129930913966*^9, 3.993820923711501*^9, + 3.993821326675551*^9, 3.9938260742994823`*^9, 3.9938262859293623`*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"89e5fa14-1c55-47b7-8d41-13ee10f18dd0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[144]:=",ExpressionUUID->"61716dfb-3dbe-4ed6-8795-8877fe54acde"], + +Cell[BoxData[ + RowBox[{"-", "33.90805078336294`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9925722153471212`*^9, 3.992572318139402*^9, + 3.993119179022643*^9, 3.993120126260621*^9, 3.99312062146356*^9, + 3.993120734966599*^9, 3.993120779750485*^9, {3.9931208101344213`*^9, + 3.993120919158321*^9}, 3.993126397903695*^9, 3.993127108944912*^9, + 3.993127328366109*^9, 3.993129930961933*^9, 3.993820923754127*^9, + 3.9938213267356653`*^9, 3.993826074350189*^9, 3.993826285995687*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"ec4ca6cc-26f9-4f08-9802-53ce4454e1f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[145]:=",ExpressionUUID->"c09eb290-4481-41ae-9220-8d87df7201a0"], + +Cell[BoxData[ + RowBox[{"-", "80.51800540734116`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992572215384285*^9, 3.992572318174841*^9, + 3.9931191790553703`*^9, 3.993120126295026*^9, 3.993120621602091*^9, + 3.993120734997818*^9, 3.9931207797928047`*^9, {3.993120810164044*^9, + 3.993120919189701*^9}, 3.9931263979617987`*^9, 3.993127109001227*^9, + 3.993127328408454*^9, 3.993129931011693*^9, 3.9938209237970457`*^9, + 3.993821326789933*^9, 3.993826074395377*^9, 3.9938262860624437`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"a823880f-77f3-4750-97cb-22e18304d394"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[146]:=",ExpressionUUID->"3bcfccca-203d-4ea6-86c7-01d7c304b58b"], + +Cell[BoxData[ + RowBox[{"-", "205.49185741459576`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.992572215426282*^9, 3.992572318215456*^9, + 3.993119179092291*^9, 3.9931201263315697`*^9, 3.9931206217665358`*^9, + 3.993120735034762*^9, 3.993120779834642*^9, {3.993120810200284*^9, + 3.993120919227768*^9}, 3.993126398030951*^9, 3.99312710912798*^9, + 3.993127328460342*^9, 3.993129931077551*^9, 3.993820923848447*^9, + 3.993821326859296*^9, 3.993826074447216*^9, 3.9938262861352654`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"3096e552-509e-4f83-8ac9-ff69751818cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"d3b252d7-3c15-43b3-86e8-802f5a07133e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9925722154529037`*^9, 3.9925723182371407`*^9, + 3.993119179114964*^9, 3.993120126352831*^9, 3.993120621792342*^9, + 3.99312073505088*^9, 3.9931207798622704`*^9, {3.993120810226747*^9, + 3.9931209192549257`*^9}, 3.9931263980390377`*^9, 3.9931271092133408`*^9, + 3.9931273284825706`*^9, 3.9931299311037893`*^9, 3.993820923874393*^9, + 3.993821326886731*^9, 3.993826074457117*^9, 3.99382628614917*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"815848d1-3c71-4b81-abba-3c15c4c060c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[148]:=",ExpressionUUID->"b32ae4fd-3c72-48b5-8dd4-7f5d05e809d1"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.992572215478106*^9, 3.992572318257779*^9, + 3.9931191791375523`*^9, 3.993120126374206*^9, 3.993120621815301*^9, + 3.993120735073701*^9, 3.993120779889783*^9, {3.993120810252183*^9, + 3.993120919282319*^9}, 3.9931263980458927`*^9, 3.993127109244834*^9, + 3.993127328504586*^9, 3.993129931127369*^9, 3.993820923899918*^9, + 3.9938213269126997`*^9, 3.993826074463942*^9, 3.993826286160736*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"c499a532-5d38-46a4-bdc1-153c40684c22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[149]:=",ExpressionUUID->"9df76d62-23b6-42eb-ae8b-00dde4ac9cb6"], + +Cell[BoxData["157.0651890700479`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.992572215502891*^9, 3.9925723182776947`*^9, + 3.9931191791602383`*^9, 3.9931201263788633`*^9, 3.993120622314225*^9, + 3.9931207350960493`*^9, 3.993120779914585*^9, {3.9931208102780457`*^9, + 3.9931209193092546`*^9}, 3.993126398052409*^9, 3.993127109275919*^9, + 3.993127328527534*^9, 3.9931299311534243`*^9, 3.993820923927566*^9, + 3.993821327021174*^9, 3.9938260744726877`*^9, 3.9938262861715727`*^9}, + CellLabel-> + "Out[149]=",ExpressionUUID->"265846a7-ad20-4621-9d6d-13b191815670"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[150]:=",ExpressionUUID->"e525382f-5dbb-4a49-80bc-6a26bf63f705"], + +Cell[BoxData[ + RowBox[{"-", "123.3235530299229`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.992572215526945*^9, 3.992572318297956*^9, + 3.993119179182555*^9, 3.993120126400342*^9, 3.99312062277221*^9, + 3.9931207351051397`*^9, 3.993120779938876*^9, {3.9931208103040047`*^9, + 3.9931209193366623`*^9}, 3.99312639805881*^9, 3.993127109307798*^9, + 3.993127328549741*^9, 3.9931299311778517`*^9, 3.993820923953031*^9, + 3.9938213270470047`*^9, 3.993826074480298*^9, 3.993826286182352*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"8f253246-cba2-48a1-adad-e85231f6dbe0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[151]:=",ExpressionUUID->"2664b2e1-2420-4750-b4c1-7db9f5cfcba6"], + +Cell[BoxData["151.17585622424423`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9925722155553827`*^9, 3.9925723183190947`*^9, + 3.9931191792047863`*^9, 3.993120126422503*^9, 3.99312062328085*^9, + 3.993120735114328*^9, 3.993120779966241*^9, {3.993120810329393*^9, + 3.993120919363965*^9}, 3.99312639806597*^9, 3.993127109343749*^9, + 3.9931273285713377`*^9, 3.993129931200837*^9, 3.993820923983398*^9, + 3.993821327073053*^9, 3.9938260744889717`*^9, 3.993826286193596*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"4c8e8c12-4828-41a5-9ef8-dba0e4a02492"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[152]:=",ExpressionUUID->"12a1093a-c794-4187-9975-38d434340949"], + +Cell[BoxData["0.4819667641075124`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.992572215581643*^9, 3.9925723183400307`*^9, + 3.9931191792269573`*^9, 3.993120126444304*^9, 3.993120623323575*^9, + 3.993120735122086*^9, 3.993120779991181*^9, {3.993120810354744*^9, + 3.993120919368601*^9}, 3.9931263980726233`*^9, 3.993127109381337*^9, + 3.993127328593055*^9, 3.99312993122449*^9, 3.9938209240090227`*^9, + 3.993821327098587*^9, 3.993826074495941*^9, 3.99382628620428*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"6dae2c1c-eb57-4cdf-a769-adfc4b35f83d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"15056237-2ac7-49e4-9e5b-5d5e9bfbf6ac"], + +Cell[BoxData[ + RowBox[{"-", "0.11350137337476086`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9925722156071453`*^9, 3.9925723183603783`*^9, + 3.9931191792492533`*^9, 3.993120126466148*^9, 3.993120623346512*^9, + 3.9931207351443777`*^9, 3.993120780015463*^9, {3.9931208103803673`*^9, + 3.993120919396596*^9}, 3.993126398079549*^9, 3.9931271094149017`*^9, + 3.9931273286142263`*^9, 3.993129931247855*^9, 3.99382092403294*^9, + 3.9938213271263742`*^9, 3.993826074504074*^9, 3.993826286214923*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"fa8eaf3d-b31c-4ed4-8cc4-f18768785041"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"dba5545a-3565-4613-ab93-9e42a2ad1416"], + +Cell[BoxData[ + RowBox[{"-", "0.4652269449262844`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992572215632304*^9, 3.992572318380674*^9, + 3.993119179271516*^9, 3.993120126487928*^9, 3.9931206233692617`*^9, + 3.993120735165653*^9, 3.993120780040511*^9, {3.993120810385436*^9, + 3.993120919423568*^9}, 3.993126398086187*^9, 3.993127109447815*^9, + 3.9931273286352787`*^9, 3.993129931271668*^9, 3.99382092412751*^9, + 3.993821327151004*^9, 3.9938260745127497`*^9, 3.993826286225959*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"448ea5d3-58df-4c6d-8de0-449e3189041e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"a585d0d9-2ecc-4031-b0de-fa6bc3cf2fd5"], + +Cell[BoxData["0.6581300944010081`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992572215657671*^9, 3.9925723183847733`*^9, + 3.993119179293789*^9, 3.9931201265097437`*^9, 3.9931206233734407`*^9, + 3.99312073518717*^9, 3.9931207800652113`*^9, {3.993120810412512*^9, + 3.993120919451396*^9}, 3.993126398093424*^9, 3.993127109479258*^9, + 3.9931273286560917`*^9, 3.993129931295282*^9, 3.993820924152907*^9, + 3.9938213271773853`*^9, 3.993826074520711*^9, 3.993826286236885*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"7ec15662-b902-480e-8e25-eea2090d8030"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"49e60dbf-df63-4d80-8eda-e44589f766b5"], + +Cell[BoxData["2.061265729478835`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9925722156840057`*^9, 3.992572318405039*^9, + 3.993119179315935*^9, 3.993120126531769*^9, 3.993120623396599*^9, + 3.9931207352098637`*^9, 3.993120780089756*^9, {3.9931208104374*^9, + 3.9931209194800158`*^9}, 3.9931263980999727`*^9, 3.993127109512844*^9, + 3.9931273286772337`*^9, 3.9931299313180227`*^9, 3.9938209241778717`*^9, + 3.993821327204084*^9, 3.9938260745291023`*^9, 3.993826286247835*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"029d02a7-e55c-4d73-b177-33c0f88a303f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3a7f5bd8-c64e-4139-a261-1a4fa67c654b"], + +Cell[BoxData["1.500736140386642`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.992572215708795*^9, 3.992572318425254*^9, + 3.993119179337996*^9, 3.9931201265538*^9, 3.993120623423506*^9, + 3.993120735231386*^9, 3.993120780114184*^9, {3.993120810463977*^9, + 3.993120919508306*^9}, 3.993126398108006*^9, 3.993127109545864*^9, + 3.993127328698331*^9, 3.99312993132206*^9, 3.993820924201363*^9, + 3.9938213272346487`*^9, 3.993826074535499*^9, 3.993826286262718*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"4f65ce97-035d-4748-a7f5-176a50c5961a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"9075ac97-a0b4-4754-9086-ee2c15ae3f30"], + +Cell[BoxData[ + RowBox[{"-", "31.35994404137113`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.992572215734977*^9, 3.992572318447076*^9, + 3.993119179360752*^9, 3.9931201265765343`*^9, 3.993120623446788*^9, + 3.993120735251999*^9, 3.9931207801392517`*^9, {3.993120810491658*^9, + 3.993120919536584*^9}, 3.993126398115017*^9, 3.993127109578094*^9, + 3.993127328719265*^9, 3.993129931348179*^9, 3.9938209242262497`*^9, + 3.9938213272683496`*^9, 3.993826074543664*^9, 3.993826286273275*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"97fb6257-8451-4ee5-8be1-65c349de585f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"1aad061e-af0a-47da-adcc-2ffd6c2404c7"], + +Cell[BoxData[ + RowBox[{"-", "7.850554518705422`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.9925722157597923`*^9, 3.992572318468158*^9, + 3.993119179384171*^9, 3.9931201265982*^9, 3.99312062346908*^9, + 3.9931207352722187`*^9, 3.993120780163753*^9, {3.993120810569303*^9, + 3.9931209195640697`*^9}, 3.9931263981223907`*^9, 3.99312710961084*^9, + 3.993127328741523*^9, 3.993129931371181*^9, 3.9938209242502613`*^9, + 3.993821327301214*^9, 3.993826074550983*^9, 3.993826286285828*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"61e4269d-007e-41fe-b37f-ae291f8cf4fd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"fe9ab109-89dd-4672-be34-13a5fa79f684"], + +Cell[BoxData["125.70524502867676`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.992572215787087*^9, 3.992572318490714*^9, + 3.993119179407145*^9, 3.993120126619657*^9, 3.993120624387237*^9, + 3.993120735294096*^9, 3.993120780189163*^9, {3.9931208106477613`*^9, + 3.9931209195925417`*^9}, 3.99312639812998*^9, 3.9931271096448097`*^9, + 3.993127328762958*^9, 3.993129931395224*^9, 3.993820924278158*^9, + 3.9938213273338842`*^9, 3.993826074557642*^9, 3.993826286299116*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"9f6e30dc-2d63-4741-bb8c-2dacee9e525a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"f357d9fd-feb5-462a-a835-e24f41508bc8"], + +Cell[BoxData[ + RowBox[{"-", "123.3235530299229`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.992572215791572*^9, 3.992572318513729*^9, + 3.993119179431038*^9, 3.993120126641369*^9, 3.9931206250374393`*^9, + 3.993120735303513*^9, 3.993120780214625*^9, {3.993120810674247*^9, + 3.993120919619622*^9}, 3.993126398136746*^9, 3.9931271096761827`*^9, + 3.993127328784665*^9, 3.993129931420856*^9, 3.993820924299933*^9, + 3.993821327339868*^9, 3.993826074565773*^9, 3.993826286311311*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"1a5cbe2a-51be-4a58-b5c9-4f3d6c259803"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"e8f6442b-b82e-45f9-b22c-2b610658989a"], + +Cell[BoxData["143.3253017055388`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.992572215816564*^9, 3.992572318536264*^9, + 3.993119179456161*^9, 3.99312012666339*^9, 3.993120625976398*^9, + 3.993120735311919*^9, 3.993120780234991*^9, {3.993120810701437*^9, + 3.993120919646469*^9}, 3.993126398145216*^9, 3.9931271097094097`*^9, + 3.993127328806025*^9, 3.9931299314504623`*^9, 3.993820924322805*^9, + 3.993821327391417*^9, 3.99382607756767*^9, 3.993826286327121*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"8e4f8591-d184-4ff7-8134-157b364754c8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2426a8f9-a1cb-47ca-a4b3-2064355108c5"], + +Cell[BoxData["93.76881016546349`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992572215864458*^9, 3.992572318557802*^9, + 3.993119179480179*^9, 3.993120126684946*^9, 3.9931206278422623`*^9, + 3.993120735320333*^9, 3.993120780256549*^9, {3.993120810728241*^9, + 3.993120919673271*^9}, 3.993126398152495*^9, 3.9931271097434998`*^9, + 3.993127328827194*^9, 3.993129931478958*^9, 3.993820924328*^9, + 3.993821327419663*^9, 3.9938260777818117`*^9, 3.993826286338634*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"6f5c286e-026b-4dee-a5fc-ad19d65af972"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"61aefdfa-82fd-4dc5-bd45-426b85f0592c"], + +Cell[BoxData["873.0988230281508`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9925722158897552`*^9, 3.99257231857898*^9, + 3.9931191795053587`*^9, 3.9931201267064877`*^9, 3.993120629931678*^9, + 3.9931207353284397`*^9, 3.993120780277225*^9, {3.993120810753913*^9, + 3.993120919701824*^9}, 3.993126398158984*^9, 3.993127109775078*^9, + 3.993127328849209*^9, 3.993129931506402*^9, 3.9938209243670683`*^9, + 3.9938213274445333`*^9, 3.993826077788661*^9, 3.993826286350582*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"e1c6efba-794c-473d-ae62-7ca6b885ff6e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.83335"}]], "Input", + CellChangeTimes->{ + 3.9918496921150837`*^9, {3.993821565385889*^9, 3.993821572592497*^9}}, + CellLabel-> + "In[165]:=",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], + +Cell[BoxData["0.83335`"], "Output", + CellChangeTimes->{3.993826077793818*^9, 3.9938262863637657`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"76d2827f-2a72-4732-814a-5a92d1eca2ef"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918496892276516`*^9, 3.9918496892324924`*^9}}, + CellLabel-> + "In[166]:=",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.61066"}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9, {3.993821575427187*^9, 3.993821583058275*^9}}, + CellLabel-> + "In[167]:=",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], + +Cell[BoxData["0.61066`"], "Output", + CellChangeTimes->{3.993826077802726*^9, 3.993826286383498*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"8e135005-e8e9-497a-af85-6c7f46bf4f65"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, 3.991849693386299*^9}}, + CellLabel-> + "In[168]:=",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ @@ -85,12 +5198,13 @@ Cell[BoxData[ RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> - "In[316]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], + "In[169]:=",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.991339230528511*^9}, +Cell[BoxData["1.4406889235574582`*^-53"], "Output", + CellChangeTimes->{3.991339230528511*^9, 3.993826077812096*^9, + 3.99382628640406*^9}, CellLabel-> - "Out[316]=",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] + "Out[169]=",ExpressionUUID->"46868311-b18e-4cc3-a66c-82ff58780e91"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +5238,15 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ -67189aa511ad"], - -Cell[BoxData["2.192147584896785`*^-54"], "Output", - CellChangeTimes->{3.991339230554512*^9}, + CellChangeTimes->{3.991557615205345*^9}, CellLabel-> - "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] + "In[170]:=",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], + +Cell[BoxData["1.1230464574583202`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9, 3.99382607781744*^9, + 3.9938262864152813`*^9}, + CellLabel-> + "Out[170]=",ExpressionUUID->"fd091822-e480-4a48-9966-a353afc89b0f"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +5279,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557618917984*^9, - 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ -5f01117db38b"], - -Cell[BoxData["3.508823705223133`*^-54"], "Output", - CellChangeTimes->{3.9913392305796223`*^9}, + CellChangeTimes->{{3.991557618917984*^9, 3.9915576208320503`*^9}}, CellLabel-> - "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] + "In[171]:=",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], + +Cell[BoxData["3.513538137741241`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9, 3.993826077823838*^9, + 3.9938262864269447`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"a0128e99-b805-410d-9856-e4f3c340efeb"] }, Open ]], Cell[CellGroupData[{ @@ -195,12 +5311,13 @@ Cell[BoxData[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + "In[172]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[BoxData["44.37747929594205`"], "Output", - CellChangeTimes->{3.9913392305906105`*^9}, +Cell[BoxData["40.99283089579811`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9, 3.993826077830824*^9, + 3.9938262864379883`*^9}, CellLabel-> - "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] + "Out[172]=",ExpressionUUID->"071c3e8e-3b55-462f-b427-9e16e7eb006f"] }, Open ]], Cell[CellGroupData[{ @@ -227,12 +5344,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", CellLabel-> - "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + "In[173]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[BoxData["102.55835649176893`"], "Output", - CellChangeTimes->{3.99133923061561*^9}, +Cell[BoxData["88.94376899244025`"], "Output", + CellChangeTimes->{3.99133923061561*^9, 3.9938260778375673`*^9, + 3.99382628644853*^9}, CellLabel-> - "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] + "Out[173]=",ExpressionUUID->"ab6ee166-7263-448a-bf4d-912ec6454363"] }, Open ]], Cell[CellGroupData[{ @@ -242,12 +5360,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> - "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + "In[174]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[BoxData["0.5630879721742558`"], "Output", - CellChangeTimes->{3.9913392306426105`*^9}, +Cell[BoxData["1.5124298741312034`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9, 3.9938260778442717`*^9, + 3.9938262864568357`*^9}, CellLabel-> - "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] + "Out[174]=",ExpressionUUID->"3ec7e542-a8f6-41c5-b14b-1b57eb473c4d"] }, Open ]], Cell[CellGroupData[{ @@ -257,12 +5376,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> - "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + "In[175]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[BoxData["1.956498159343112`"], "Output", - CellChangeTimes->{3.99133923065361*^9}, +Cell[BoxData["3.133097694501873`"], "Output", + CellChangeTimes->{3.99133923065361*^9, 3.993826077850896*^9, + 3.99382628647598*^9}, CellLabel-> - "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] + "Out[175]=",ExpressionUUID->"464faa9d-683a-494c-87b9-ff58ca445cc9"] }, Open ]], Cell[CellGroupData[{ @@ -272,12 +5392,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> - "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + "In[176]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[BoxData["200.65523570140064`"], "Output", - CellChangeTimes->{3.9913392306776104`*^9}, +Cell[BoxData["278.66951757052175`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9, 3.993826077855858*^9, + 3.993826286495118*^9}, CellLabel-> - "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] + "Out[176]=",ExpressionUUID->"0b362af9-e69e-4284-ba28-56ac4b507c00"] }, Open ]], Cell[CellGroupData[{ @@ -287,12 +5408,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + "In[177]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[BoxData["24.98842482695703`"], "Output", - CellChangeTimes->{3.991339230703802*^9}, +Cell[BoxData["61.99878207201364`"], "Output", + CellChangeTimes->{3.991339230703802*^9, 3.993826077862658*^9, + 3.9938262865041656`*^9}, CellLabel-> - "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] + "Out[177]=",ExpressionUUID->"3a8a2245-1c52-49c9-970c-49f79d21d627"] }, Open ]], Cell[CellGroupData[{ @@ -482,12 +5604,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + "In[178]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[BoxData["0.01829601703069907`"], "Output", - CellChangeTimes->{3.9913392307297993`*^9}, +Cell[BoxData["0.003536897536613871`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9, 3.993826077871067*^9, + 3.993826286525502*^9}, CellLabel-> - "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] + "Out[178]=",ExpressionUUID->"c256cf71-ddd3-4e39-b3ff-c4d2314e6b98"] }, Open ]], Cell[CellGroupData[{ @@ -501,12 +5624,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + "In[179]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.991339230837267*^9}, +Cell[BoxData["14.901627444629591`"], "Output", + CellChangeTimes->{3.991339230837267*^9, 3.993826078036481*^9, + 3.99382628661788*^9}, CellLabel-> - "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] + "Out[179]=",ExpressionUUID->"6710ad7c-72f4-4d16-b361-b310c6cd5de2"] }, Open ]], Cell[CellGroupData[{ @@ -698,12 +5822,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + "In[180]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[BoxData["0.00990105610750653`"], "Output", - CellChangeTimes->{3.9913392308522797`*^9}, +Cell[BoxData["0.015297399109568977`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9, 3.993826078059154*^9, + 3.993826286651249*^9}, CellLabel-> - "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] + "Out[180]=",ExpressionUUID->"383dc6d0-231e-4d1d-b5d9-a1b82b91c8c8"] }, Open ]], Cell[CellGroupData[{ @@ -717,12 +5842,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + "In[181]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[BoxData["8.906440683949702`"], "Output", - CellChangeTimes->{3.991339230966341*^9}, +Cell[BoxData["7.165329096158231`"], "Output", + CellChangeTimes->{3.991339230966341*^9, 3.99382607811276*^9, + 3.993826286738208*^9}, CellLabel-> - "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] + "Out[181]=",ExpressionUUID->"85812e4c-c2a1-4857-a1b4-566ce4d5d9df"] }, Open ]], Cell[CellGroupData[{ @@ -815,12 +5941,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + "In[182]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991339230988348*^9}, +Cell[BoxData["0.10999847360764459`"], "Output", + CellChangeTimes->{3.991339230988348*^9, 3.993826078138476*^9, + 3.993826286752294*^9}, CellLabel-> - "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] + "Out[182]=",ExpressionUUID->"cc45f852-aa4e-4025-a978-d9d48dbd950b"] }, Open ]], Cell[CellGroupData[{ @@ -910,12 +6037,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + "In[183]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991339231030445*^9}, +Cell[BoxData["0.8900015263923553`"], "Output", + CellChangeTimes->{3.991339231030445*^9, 3.993826078167816*^9, + 3.993826286766694*^9}, CellLabel-> - "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] + "Out[183]=",ExpressionUUID->"6442c946-470c-4668-bf47-5c0c62368545"] }, Open ]], Cell[CellGroupData[{ @@ -1038,18 +6166,20 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + "In[184]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.991339231060343*^9}, +Cell[BoxData["0.09789880941163293`"], "Output", + CellChangeTimes->{3.991339231060343*^9, 3.9938260781982203`*^9, + 3.993826286779977*^9}, CellLabel-> - "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] + "Out[184]=",ExpressionUUID->"414bc658-1e73-4c99-b25c-e8e82590f6f8"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ -e24d-bdc4-544ea2d2fbd9"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], Cell[CellGroupData[{ @@ -1110,68 +6240,77 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918497046469917`*^9},ExpressionUUID->"574b810b-aa4a-d545-b080-\ -c44fbe83a713"], + CellChangeTimes->{3.9918497046469917`*^9}, + CellLabel-> + "In[186]:=",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 332, 325, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310873375`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7617067010132063`*^-216\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 186, 9, 31384839462689005113, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.993826078284243*^9, + 3.993826286807316*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], +In[186]:=",ExpressionUUID->"ebdfdc61-d567-4b2b-b124-36f7320167ea"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 332, 326, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392310973415`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.113477242117996`*^-222\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 186, 10, 31384839462689005113, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.993826078284243*^9, + 3.9938262868151608`*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], +In[186]:=",ExpressionUUID->"5a1fefb5-69e7-458c-8d8c-e14d2b08b34a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 332, 327, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339231105339*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.872303229875228`*^-227\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 186, 11, + 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.993826078284243*^9, + 3.9938262868220463`*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], +In[186]:=",ExpressionUUID->"afece3e2-8e36-49b2-81f3-a8fcab9ff3d1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 332, 328, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392311143417`*^9}, +during this calculation.\"", 2, 186, 12, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913392310873375`*^9, 3.993826078284243*^9, + 3.993826286828145*^9}, CellLabel-> "During evaluation of \ -In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], +In[186]:=",ExpressionUUID->"c6356240-22a8-414b-aa57-0cffaa36095d"], -Cell[BoxData["6.551890985609901`"], "Output", - CellChangeTimes->{3.9913392346332226`*^9}, +Cell[BoxData["14.901627444629595`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9, 3.993826079779027*^9, + 3.993826289991748*^9}, CellLabel-> - "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] + "Out[186]=",ExpressionUUID->"37c1eed6-f384-4c21-8525-a67abeb79e37"] }, Open ]], Cell[CellGroupData[{ @@ -1233,68 +6372,77 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849710877041*^9},ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-\ -656c90598e75"], + CellChangeTimes->{3.991849710877041*^9}, + CellLabel-> + "In[187]:=",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 333, 329, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234667631*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7617067010132063`*^-216\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 187, 13, 31384839462689005113, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.993826079847438*^9, + 3.993826290026618*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], +In[187]:=",ExpressionUUID->"1a3baae4-63ba-4f08-91aa-5d8c12aba38f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 333, 330, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234676628*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.113477242117996`*^-222\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 187, 14, 31384839462689005113, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.993826079847438*^9, + 3.993826290034082*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], +In[187]:=",ExpressionUUID->"2e1bf9f3-2741-42b9-b320-4c49fa49986b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 333, 331, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339234685627*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.872303229875228`*^-227\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 187, 15, + 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.993826079847438*^9, + 3.9938262900414953`*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], +In[187]:=",ExpressionUUID->"20a239a0-13e2-4c81-9ae9-d38afcc589cc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 333, 332, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133923469363*^9}, +during this calculation.\"", 2, 187, 16, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339234667631*^9, 3.993826079847438*^9, + 3.993826290049374*^9}, CellLabel-> "During evaluation of \ -In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], +In[187]:=",ExpressionUUID->"ad80d77a-5d03-49b0-8874-48cbd063f262"], -Cell[BoxData["8.906440683949707`"], "Output", - CellChangeTimes->{3.99133923819088*^9}, +Cell[BoxData["7.165329096158231`"], "Output", + CellChangeTimes->{3.99133923819088*^9, 3.9938260813149757`*^9, + 3.9938262933283863`*^9}, CellLabel-> - "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] + "Out[187]=",ExpressionUUID->"141eeed4-d8d2-4781-8d3d-f8e7a8d56df5"] }, Open ]], Cell[CellGroupData[{ @@ -1350,92 +6498,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849713921898*^9},ExpressionUUID->"9c540ba7-8bb4-ef46-919c-\ -62296271f174"], + CellChangeTimes->{3.991849713921898*^9}, + CellLabel-> + "In[188]:=",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk0VV8UB3AzCYUyJDLmpyK9h0g5OxQyJ1IonvcuSeYkRBPNQop+JTIl +GSIylVQqv1KURhnr3UfPPL1LGn7HH3ed9Vlnre/a+5y9zlVjBG9nCfDx8Q3g +b34NfaOnXd32xmzmyYrLs/1sZDaSZ8iwLEarP4f/N+/eLKM0TcsH6N3pQOIn +thPztYgE/Rny7FgQOIddHhX/VNiyBZ3+YNvxC/vMc4XG+KK3qC+RVv4Hu7Yt +9MYv2gcU8OfhGN8AG3E7XsYerv+Msh1HMgSxl5EaHjyLTlSZ8vS2CLbtaKxJ +eEsPMu/ZpCGO3fCLuzCqqA9luHkJS2F/PCYfcz/oOwpUVHeSwR4RseRO0Ugk +a39eUB5b5HzILjrFQceXXV+xHFtFOrM5tH4ASZc656lhOyjxCkYshlDYYGm/ +LjaRrS6nKzaCyL9uBQbY8VqOCftbRtH3svzXptif5d+viygaR+Pd691ssZm7 +A/ZdOj+BdMmYahfsset8NyuCJhHtst8xT2wxdd3F47Rp9EV7vWMwdhrzqdXi +pTwkVarkchhb9dau+LUUDxlo3X50Att4TeLIgfoZ5LCj8d1VbH+jnhauxS8U +dJTb+xJ7KuqgkPjK38gJqa36jH20fuFGHbE/qENbqJPEzgDjO34tf9Ff17bD +Aj9wffnNlmFF/GAokZwJ2EXPL/UeUxKAEdJwjTP2WP+e2JTzAhAgfF6DgR27 +avre3SBBCPWztUvATitT0xilCYN0rXZiG3ZH21DDn1xh4Cvy3s3GVp2o3i21 +VATW9jqkz2AXGzik6lIisKTH3lady0ZNtdH8gfVicN+Cey0ae/ppe8+AhQQQ +uja9ZoNsJGMnsTimQQJC93FiPbD131uCpIkknODlpEVhB7CrstfpScHsnTjD +SuwQgRb9TRKLwZj+beO6ITYi1UvHE3jSoKx/yNd8GJ8P8XJBK10GMr2yKghs +gTscNYVQGbhdNRd7DluVvmJ70aAMRD53O/ERe7dFcsWbXllwym90Cxtho1bf +sHD5V0th4p9nio9H2aj7VtI5bzE5MDnCXT6MPTRYlHt7ixxcuO91TXGMjcQj +vrebNsrBuXED8Qhsy5M7DLyr5MHS+kuZ3jgb1eUZTRdmKUIXkbW8foKN8sif +kRsilEHolONZfR4bWbue6g4vUQa/U80i/thDTbJbSzjKcPbT3EgWtkHemqWq +u1RAROuqgDSFz5Ox556w2Qq4cZA0msGeGO09NHBCFc5Mnv7QMctGsgcsK+/Z +q0PSoa+zY7/ZiJMn7u8UoA6Jebnjhn/YqKazTWk4UR0kxPe7xmB72nmdWNmo +DrxF/D6if3F9qyO3X6VpQMzLC6c1+UhkwL01FievCcqUi1K4AIl2+C3U3dan +BQPd2T4+oiRCka60nb+1QODHhFkF9qqErPVMxZXw3JpxUlCMRHy5dPM455WQ +8ijX6hZ2SbfHzorHK+EH/C6bXEAiEbfiY8tytMFVKVw8W4JENZb2H7kMHRg7 +6PFzqwyJcl3Sv1JxOjD7/XlvHnYSo69X6JoOiOTeWSsoSyLm0YODKu06YBM8 +LPIYW/pBJp+LxSq4GHH72ualJAqgj6yq11gNVPwLbzcFEimpX4w/x14Drlb+ +IW9USPTg7JTOrIAu1NzxOG6+gkSek7veE2q64KFbt6ga+0aTpo75Hl3Q9H55 +/aYqidT96t7NfNKF/5hVR2PVcb/FpBbxSg+Cwu+F26wkkbKSCqG6Sx+GpDW0 +QY9Ea/IjJOYQDYK7Hny+iUjEYJ6Y1nWgQVTQF7nVQKIMjdRub08aSH8/+7gS +WzCn7O7zKBqwYxo8/9tMoo4b3B2p5TRo2NxfRFmQ6EyGd6aOBh1aLKDI35pE +nHN2eu4iBhD78JHrdWcS3QzTdKpqMQTV57XBtiwStUWi9SfzTaCzKzW28zKJ +1PZ8cPAK3ASDcaItR16TiPX3fqnyYYB/L51ouCLGQfKDNaLyDHPYS/3bUujE +QRH0jZ2pqyzh0HMmkXKNgxjDv5pluVvAvHNPytYhDioxDxfNarWCWMXFN9Xs ++lHeVMDj4jQbEAskr8eW9KOZzQqvm+Jtga/297VXKwZQF5/geJ+PPfjz3t4U +vzqAgpYHJx/TcIT4PNlsW5kfqHRfc+PlBCfgn96X/unGDxQ9qUit3ucMhS41 +rldWcdH0tq1uL/Zuh2vie1OIV1xk4pGymXR2AQj8te512CB6p5gZ0ETfAQEc +zfFg+SG0rODEg8J/XEH/eJW3TPsQquldZecg6QZt452qpWeHkcr7Mb/IYTfY +dvSikcfWEUS/nFKc27sT3tDYcobLRlGm0KRe6lN3eL9iZaBp/yi6v3ltR0Lt +LhDJiqQFEGMoY/1Z6V9FuyGabeMQ0zGGWr/mJ9LPe0BoI2v9TptxVGV/XTPk +qCcUlE587H2K/xsHXPiCmF7QtHcup2/9BJrequM/YrEH+M6J+Z4smkCFw19m +wo32gkxP2w097UnkfjPf10vCGzqfPjGf+XcS3auw3St4yhsSmotFJ+WmkInS +u9kzs95whLIiHU5PIY1ev463+3zgp5FU5IapKcReuN/x+ncfEH408y6FOY3a +khx8rVwZ0HT4FDXwYhqlRWUtPNjGgEN/9t5yXcNDDxr+zvra+ML15vYkViIP +LfKEU/Q6X1CuNmp9+JaHVJe8aF3+wBd8SqwfjL3jIf0WewWRBl9QqTf7qf6e +h7Zv9Lj9+bEvjOxv8Ev4yENpyyNfHfnPF1h3WfzmX3loWdedRc2ffeHZyWMT +V9k8pLlHPsOT8oXRs5mDT3g8ZOI9UphgwITZGUY2V4FCBVfHwh2MmNB1zt+n +W5FCS9onzOSNmaDn6B3zdhmFRrZQ7wtNmZAt5VVbtZzC7xcff4s5E0S3LnaP +VKWQFCW9S8aZCbXUt6lP2hRiXzBckHWACbKFgW5KRhRKqo/dV1PABI24mqAM +JwodoKWbRBUyIVzCRNDLmUJ2t8sXGBcxwUlgdlB1O4XE0zm3q0uYkN5xpbbA +hUIJYU7c+5VMEFsyCkVuFIrV0dxf9YQJiarZXcmeFApIfxVY0c0Ee/GF5l/9 +KGQjxdkY1ssEkVV6smf9KfRPAp8k7RvuL/gV3XgfhThhhiXlJBNm3NmM1AAK ++ThkDd8dYkIcURBhdoBC7sLhQWU/mRAWlWx1MIxCVuHLQorlWHDeWLveM5ZC +T7ISt6UqsEBhUlRT4AiFNrZMaEYtY0HgmFJNAba+1qsvFiosKPxg6jMcRyHF +TzEWX7VYoM0/WxFyjEKDG7rkxA1Z8IQ2u84xkUIXBbIf+rmwwMLoS1rARdz/ +WokMe1ecv85fcRr7pEdUGH0nC24MRTfFJVMoqtJJ++9uFnQvyL1wMQXXT/Cn +XGGwQHLSbqDgEoXoLxnMZ6Es2LRudU5xOoU+pWgt1EhmwaQ1z1Y2i0KlSNJ/ +IIUFsfFtc9HYJ4enmkouseCMxjC3D5tm0xRnnM4CP9W0xJJsfH98vhP2N1hA +fdYrN82h0Nbg7C9RxSw4fuJ1Iz2fQsrKp43MSlnwxjpv90XsqZfBlwTvsiCx +dR+Ni52zEtkn3WNBQFfotcwCCv3u6mrMrWNBz4YdznO3KFRpp1T4phn3P9Zp +mlpEoXM/BYTTXrLgGb34Th82o5Drs6uFBXeWgrv+HQotFqpTYreywGwgxO8V +dmC9+8XZjyxwDlTxnCmmkMaqK5GaJAsYH0OSdcso9PPTkfYfHBZUJr1tCsFu +S2Dplw2wQKWXZ3APO67PgGsyxIIKJddmw7sU6sho93KcZEH7j7e168oplCoq +vSWan4CFnwfqhe5R6MFEl0eEIAH2m6x+bcbu7yoKCxImwNVNxioOe2OlZTZj +AQHRL4rnJrE53lFz26QJ+GVh0NNeieu32yKzRZaAcmnj0AVVFDJdL6ODlhLQ +cmu1pBl2smSxG12RgLbyQkbe/H5dT7mSGgG2KZHHWfcpROQXNy/VIKBUNZxx +CTs5+XDPIi0C7NwmbRuxOYSspJAOAWU59qby1Xhf1sp/SJ+Ak6JqZ2ux6/7I +xnNoBKQbj1X2YJM/ei/3GhDAedE/IFRDoQ2N0U/fGxMAPtqBdtjswFKVh0AA +fbijuxVbyj3GsNqcgC35Xc4j2CYW1nbllgQoeTa8XliL50Xx2+F8awKEbsz2 +WGDXCJUlZ20joKjBMnIP9vfRmFtX7QiwXuC4NArb+PnSDxecCHCnJRwoxGaU +fxs8tZ2A+Ge5Kx9hX7heJnB8BwFaQ8TAe+xvYTb6ke4EdFk/TfiNLblHzipk +NwE7XJx9FtfhPJvvXgGeBKj/e2CLOvaFFUfO7fEmoD50k7YFdo34thx3BgFS +VL/mduxv03K125kEfLgptdobW7Lve6sdQUDglRKTA/N5LXc5W/0JcNv02Okw +NqP6yG8IIGCZxdaQk/P5OduWmAYS4JJhkpE0n39BfrVhEAFNoRnN6fP5UezN +a0MIMLH25s/GlmCWu+uEEZD3Ocn8FvZ6x7hgjQg8X5rq50vm8zfYJipHEpAV +rNBdgX1eSyFTPgrbMsS4Gvv+YvKedDSer5B/rtVh982Vv1wYS0CNEIg8nM/v +j+sTjiNgzu3+4QZso3e2M3/jCVDgPzc97/8B/cEbOA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1449,104 +6599,106 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV1Xk0VV8UB3AzCYUyJDLmpyK9h0g5OxQyJ1IonvcuSeYkRBPNQop+JTIl +GSIylVQqv1KURhnr3UfPPL1LGn7HH3ed9Vlnre/a+5y9zlVjBG9nCfDx8Q3g +b34NfaOnXd32xmzmyYrLs/1sZDaSZ8iwLEarP4f/N+/eLKM0TcsH6N3pQOIn +thPztYgE/Rny7FgQOIddHhX/VNiyBZ3+YNvxC/vMc4XG+KK3qC+RVv4Hu7Yt +9MYv2gcU8OfhGN8AG3E7XsYerv+Msh1HMgSxl5EaHjyLTlSZ8vS2CLbtaKxJ +eEsPMu/ZpCGO3fCLuzCqqA9luHkJS2F/PCYfcz/oOwpUVHeSwR4RseRO0Ugk +a39eUB5b5HzILjrFQceXXV+xHFtFOrM5tH4ASZc656lhOyjxCkYshlDYYGm/ +LjaRrS6nKzaCyL9uBQbY8VqOCftbRtH3svzXptif5d+viygaR+Pd691ssZm7 +A/ZdOj+BdMmYahfsset8NyuCJhHtst8xT2wxdd3F47Rp9EV7vWMwdhrzqdXi +pTwkVarkchhb9dau+LUUDxlo3X50Att4TeLIgfoZ5LCj8d1VbH+jnhauxS8U +dJTb+xJ7KuqgkPjK38gJqa36jH20fuFGHbE/qENbqJPEzgDjO34tf9Ff17bD +Aj9wffnNlmFF/GAokZwJ2EXPL/UeUxKAEdJwjTP2WP+e2JTzAhAgfF6DgR27 +avre3SBBCPWztUvATitT0xilCYN0rXZiG3ZH21DDn1xh4Cvy3s3GVp2o3i21 +VATW9jqkz2AXGzik6lIisKTH3lady0ZNtdH8gfVicN+Cey0ae/ppe8+AhQQQ +uja9ZoNsJGMnsTimQQJC93FiPbD131uCpIkknODlpEVhB7CrstfpScHsnTjD +SuwQgRb9TRKLwZj+beO6ITYi1UvHE3jSoKx/yNd8GJ8P8XJBK10GMr2yKghs +gTscNYVQGbhdNRd7DluVvmJ70aAMRD53O/ERe7dFcsWbXllwym90Cxtho1bf +sHD5V0th4p9nio9H2aj7VtI5bzE5MDnCXT6MPTRYlHt7ixxcuO91TXGMjcQj +vrebNsrBuXED8Qhsy5M7DLyr5MHS+kuZ3jgb1eUZTRdmKUIXkbW8foKN8sif +kRsilEHolONZfR4bWbue6g4vUQa/U80i/thDTbJbSzjKcPbT3EgWtkHemqWq +u1RAROuqgDSFz5Ox556w2Qq4cZA0msGeGO09NHBCFc5Mnv7QMctGsgcsK+/Z +q0PSoa+zY7/ZiJMn7u8UoA6Jebnjhn/YqKazTWk4UR0kxPe7xmB72nmdWNmo +DrxF/D6if3F9qyO3X6VpQMzLC6c1+UhkwL01FievCcqUi1K4AIl2+C3U3dan +BQPd2T4+oiRCka60nb+1QODHhFkF9qqErPVMxZXw3JpxUlCMRHy5dPM455WQ +8ijX6hZ2SbfHzorHK+EH/C6bXEAiEbfiY8tytMFVKVw8W4JENZb2H7kMHRg7 +6PFzqwyJcl3Sv1JxOjD7/XlvHnYSo69X6JoOiOTeWSsoSyLm0YODKu06YBM8 +LPIYW/pBJp+LxSq4GHH72ualJAqgj6yq11gNVPwLbzcFEimpX4w/x14Drlb+ +IW9USPTg7JTOrIAu1NzxOG6+gkSek7veE2q64KFbt6ga+0aTpo75Hl3Q9H55 +/aYqidT96t7NfNKF/5hVR2PVcb/FpBbxSg+Cwu+F26wkkbKSCqG6Sx+GpDW0 +QY9Ea/IjJOYQDYK7Hny+iUjEYJ6Y1nWgQVTQF7nVQKIMjdRub08aSH8/+7gS +WzCn7O7zKBqwYxo8/9tMoo4b3B2p5TRo2NxfRFmQ6EyGd6aOBh1aLKDI35pE +nHN2eu4iBhD78JHrdWcS3QzTdKpqMQTV57XBtiwStUWi9SfzTaCzKzW28zKJ +1PZ8cPAK3ASDcaItR16TiPX3fqnyYYB/L51ouCLGQfKDNaLyDHPYS/3bUujE +QRH0jZ2pqyzh0HMmkXKNgxjDv5pluVvAvHNPytYhDioxDxfNarWCWMXFN9Xs ++lHeVMDj4jQbEAskr8eW9KOZzQqvm+Jtga/297VXKwZQF5/geJ+PPfjz3t4U +vzqAgpYHJx/TcIT4PNlsW5kfqHRfc+PlBCfgn96X/unGDxQ9qUit3ucMhS41 +rldWcdH0tq1uL/Zuh2vie1OIV1xk4pGymXR2AQj8te512CB6p5gZ0ETfAQEc +zfFg+SG0rODEg8J/XEH/eJW3TPsQquldZecg6QZt452qpWeHkcr7Mb/IYTfY +dvSikcfWEUS/nFKc27sT3tDYcobLRlGm0KRe6lN3eL9iZaBp/yi6v3ltR0Lt +LhDJiqQFEGMoY/1Z6V9FuyGabeMQ0zGGWr/mJ9LPe0BoI2v9TptxVGV/XTPk +qCcUlE587H2K/xsHXPiCmF7QtHcup2/9BJrequM/YrEH+M6J+Z4smkCFw19m +wo32gkxP2w097UnkfjPf10vCGzqfPjGf+XcS3auw3St4yhsSmotFJ+WmkInS +u9kzs95whLIiHU5PIY1ev463+3zgp5FU5IapKcReuN/x+ncfEH408y6FOY3a +khx8rVwZ0HT4FDXwYhqlRWUtPNjGgEN/9t5yXcNDDxr+zvra+ML15vYkViIP +LfKEU/Q6X1CuNmp9+JaHVJe8aF3+wBd8SqwfjL3jIf0WewWRBl9QqTf7qf6e +h7Zv9Lj9+bEvjOxv8Ev4yENpyyNfHfnPF1h3WfzmX3loWdedRc2ffeHZyWMT +V9k8pLlHPsOT8oXRs5mDT3g8ZOI9UphgwITZGUY2V4FCBVfHwh2MmNB1zt+n +W5FCS9onzOSNmaDn6B3zdhmFRrZQ7wtNmZAt5VVbtZzC7xcff4s5E0S3LnaP +VKWQFCW9S8aZCbXUt6lP2hRiXzBckHWACbKFgW5KRhRKqo/dV1PABI24mqAM +JwodoKWbRBUyIVzCRNDLmUJ2t8sXGBcxwUlgdlB1O4XE0zm3q0uYkN5xpbbA +hUIJYU7c+5VMEFsyCkVuFIrV0dxf9YQJiarZXcmeFApIfxVY0c0Ee/GF5l/9 +KGQjxdkY1ssEkVV6smf9KfRPAp8k7RvuL/gV3XgfhThhhiXlJBNm3NmM1AAK ++ThkDd8dYkIcURBhdoBC7sLhQWU/mRAWlWx1MIxCVuHLQorlWHDeWLveM5ZC +T7ISt6UqsEBhUlRT4AiFNrZMaEYtY0HgmFJNAba+1qsvFiosKPxg6jMcRyHF +TzEWX7VYoM0/WxFyjEKDG7rkxA1Z8IQ2u84xkUIXBbIf+rmwwMLoS1rARdz/ +WokMe1ecv85fcRr7pEdUGH0nC24MRTfFJVMoqtJJ++9uFnQvyL1wMQXXT/Cn +XGGwQHLSbqDgEoXoLxnMZ6Es2LRudU5xOoU+pWgt1EhmwaQ1z1Y2i0KlSNJ/ +IIUFsfFtc9HYJ4enmkouseCMxjC3D5tm0xRnnM4CP9W0xJJsfH98vhP2N1hA +fdYrN82h0Nbg7C9RxSw4fuJ1Iz2fQsrKp43MSlnwxjpv90XsqZfBlwTvsiCx +dR+Ni52zEtkn3WNBQFfotcwCCv3u6mrMrWNBz4YdznO3KFRpp1T4phn3P9Zp +mlpEoXM/BYTTXrLgGb34Th82o5Drs6uFBXeWgrv+HQotFqpTYreywGwgxO8V +dmC9+8XZjyxwDlTxnCmmkMaqK5GaJAsYH0OSdcso9PPTkfYfHBZUJr1tCsFu +S2Dplw2wQKWXZ3APO67PgGsyxIIKJddmw7sU6sho93KcZEH7j7e168oplCoq +vSWan4CFnwfqhe5R6MFEl0eEIAH2m6x+bcbu7yoKCxImwNVNxioOe2OlZTZj +AQHRL4rnJrE53lFz26QJ+GVh0NNeieu32yKzRZaAcmnj0AVVFDJdL6ODlhLQ +cmu1pBl2smSxG12RgLbyQkbe/H5dT7mSGgG2KZHHWfcpROQXNy/VIKBUNZxx +CTs5+XDPIi0C7NwmbRuxOYSspJAOAWU59qby1Xhf1sp/SJ+Ak6JqZ2ux6/7I +xnNoBKQbj1X2YJM/ei/3GhDAedE/IFRDoQ2N0U/fGxMAPtqBdtjswFKVh0AA +fbijuxVbyj3GsNqcgC35Xc4j2CYW1nbllgQoeTa8XliL50Xx2+F8awKEbsz2 +WGDXCJUlZ20joKjBMnIP9vfRmFtX7QiwXuC4NArb+PnSDxecCHCnJRwoxGaU +fxs8tZ2A+Ge5Kx9hX7heJnB8BwFaQ8TAe+xvYTb6ke4EdFk/TfiNLblHzipk +NwE7XJx9FtfhPJvvXgGeBKj/e2CLOvaFFUfO7fEmoD50k7YFdo34thx3BgFS +VL/mduxv03K125kEfLgptdobW7Lve6sdQUDglRKTA/N5LXc5W/0JcNv02Okw +NqP6yG8IIGCZxdaQk/P5OduWmAYS4JJhkpE0n39BfrVhEAFNoRnN6fP5UezN +a0MIMLH25s/GlmCWu+uEEZD3Ocn8FvZ6x7hgjQg8X5rq50vm8zfYJipHEpAV +rNBdgX1eSyFTPgrbMsS4Gvv+YvKedDSer5B/rtVh982Vv1wYS0CNEIg8nM/v +j+sTjiNgzu3+4QZso3e2M3/jCVDgPzc97/8B/cEbOA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.6533172524051158, + 1.4830922690890187`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.6533172524051173}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1558,130 +6710,132 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, - 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.6533172524051158, + 1.4830922690890187`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.6533172524051173}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{115.12306105754327`, - 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hc8V2scB3CzslqyR1mFUrJXvt+QvcnM/v0OSXauSkkZDZWk0iQJyUhK -Vm7DvakUUXTJyEEys/2a9/HHeZ3X+/W8ns/5PM9zzpHxD3NkcrCxsfWRa/Ee -8XbzhkfNbw3F+g5WN6SywHA8V9PfpAisL7eqL7o3SytD3qQW6pf3Z/1LbM94 -s4Rf/R+wLir+/Zy4LDb+ObdJI2jLbrV/QnziX9En8YXvwDswLKOGuKo54sZP -tQ8gV7X79UPi4Y5XcftrPgJ1VWa2hFh8QM5zzvgTXPqYuSqf2GoiTjeqsQey -E96tu0Fc93OYL7bwM4yMvZHNIG5LEDlYEUpDZE2ayAni8SUmwzNqA5D9VvJP -HPGS1HB39flB8HTc918YsfSq6w0RNUOwvPJ6nh+xrcRc3rjxKHjb7RUzIqay -ZYVVlo2DeL3k36rE8Qp2SXsaJ2DlzSJXaeKPIu+3RhdOwrt1CX5zp1jA8Aje -fT51CnT0mlt6ib9dY7t5P3Qa+O+s0X5FvExWZeWk2ixkHrjw8TJxBuO52Uqh -OWBL6RY6Qrwu3z1+y/wcbDbQMmUS62xKHt9bswA/WCpHNhEHafU0Dhv/hM3n -13iUnGTBTOw+Lt71v8D8ZZ5qKvGRGj4DpWW/wf1Qyvcg4kzUuRvY+AdWHHEP -WkvMuN1gElnIjiabnIrjT7Cg8N/zvQkSHMh2K3jtTuJvX7zjzqVy4Lt5mSQl -4jjl2fJ7oZz4l/SNjU3HSd9SGbkJNW6U7ZEcFCDuaB6t+32LG593Jsx1pJD+ -U488lgstwR0Xvn7PIy7SsE1XmV+CTZ/me/SJ66sOsIfULMPdNtcl3ZNZMPu8 -tWfImB83H9y11y+RBaut+VcerOPHbdFNS0WJVd+boICuAK4diwh6c4wFwf0P -s7duXo7K5jfjNIjDORpVt/GvxJ6B7dPTCSwYkC2ZTJpbheJKSVt04sn+UK94 -mtRXo1DpAZ3OwyzguDsoIxqxGjlj9XgOEa9TX+tYOLIa5WJTOR4fYoGHcdr9 -t72CuN+p0nVzHAuaAiKjRF4L4UC3c35bLAu688+c8l0mjDrZhvoU8ehI4a07 -O4Qx7cVI5sxfLOCNplv1nwhjkqvEfQFik0RnDd+HIlihWeazdR8LqnO1Zguy -xFBCc/aFYQQLcge+x+hFS2El68bnyCAWmO9M6Y4qlkKDL7Xsg4Ekv17QtHhQ -Cv2O/y3iRqyRu0lonbs0ekryrNelyH76e5dzG65FH7q9aTyABVMTvX8NHVuH -N70yDij6sEBwr8mDchtZXNnRYNXmzILBXN4g+2BZ9DDVilEkrvzULDGWLIsv -mquu7ndiwS5rr2Prn8iie2n1R1FH0m9jjONlNTms/OfhWis78vzh/G+HReTR -gWuON96CBc6BfCqWnxVQNexdicI2FkDMTjXXXwrYHzSS52nAAuWkLG2G2Ho0 -99IoTNNnAdstdaPDDusxvlKqdV6XBcXdnq73n67HWPH+8mot8n26FCWI52zA -+m153atVST8Tm7ZhfyW80HvCbrksCyRkz8af6t+E5Z1HOA05WVB7ckaJxaGC -ulcajWQ5SP9p9/eUjAoe0+mN5GZnwY16eSUjbxXc15mb1/B7AWQDq1sW2lVQ -7c0VptH3BVAuGlCgXm/G83KvT3BOLoCUhDS1zl0V+9glHtd1LcCm29H8P0AN -v07dUd70YAFuRsrbP2zUxAMn5I7b7lqA5hjQTrytizL3I66YTsyDjPcHW6+Q -bdhzVWZ4+q95YP6pKJHaj/jsyKlmkz9zIDJSuVTE3wgH3mZlTUTNQbS6wad0 -ZROUz0r0SB6ZBf+xnw2Cwzuwis3M0clvFoqNopZmNZlh8csS9vEXM5A7E/y0 -KMMCA565ZI5qzcDCdtE39fFW+EquWEf88jR0sXFOfvazQUWTltKXv6cgVDIs -LUHODg/9ODETEj4FJbsbnlxIskduY/6uvI+TcGBabH7jbgfM7/ljp2Y7CbOW -pi4vfBxR2t+e5V77DXQ9z20fcHDCNme7d9Nbv0GL2PXgenVnTO/Sn+DeMwHi -ecdqCxR3It/x0CGuoHGo7FW2thVwwT/Hl55tPDIG0u+/BcaMueDeZR08TgWj -oH7hXNGtXleU6LktIfhyBK5zTW9Of+6GY8uknxZzjkDF9i0dSVXuyLU6Zm+O -7jBkap9c9bPQAxuNohU1479CU+ftZPVUTxT6rWfV2jkED22uyYcf2YXO6mlu -/ZpDMLnXiS2U4YUckoVOO29/gVlTpaBxY2+8l/zBS0jmCxSM/bcQpeWDw9Gf -OoeuDoLbzdsBXvy+KJfu1iyqNAjl9618OFN8Md/utHRuxQDoSrSwTrB8sWk4 -8u0X5wGQ6w3seLfbDzPemNza86sf+vn22F2j/TC9j1fvan4/NJ+xDTDb6Y9a -z6ttWnz6ISM2i29fsz+u5X9t1yneD7V1f1gBFgHoE1PW3N1Dw4pdmKJeHYD8 -P3llYu/RsG7NiybJ2gAUVXE4U11Kg2qjjeiSugDMNPI69quEBkcDzzsfnwbg -g/IbXEnFNGRIxrw+9DIAO22K/a8U0iDedXdFw8cAXLbdJLE7lwZ5b5HMXfMB -KC20QqzxMg26vuMFSRoMtKhri9NLoiHv8rcoWy0GpvJWDxYk0rCmdcpQRIeM -y0zUixCP75h/X6DPQDZz9e65ozT5H7CxNxoxsLyFcaz6CA3L51e5r3ZgoHHx -8XTXOBr6T2vyZO1lYInz8wtDUTQ4vNB+HxjGQPl/fsYxievY9LJUIxjoUlvR -3hdJw+UoQ81n0Qz0iz7/pTuCBlt3M7+Bgwx0zTcO/xRGQ5W8e9XGkwwM26Ky -bmwPDWdq4nZX5jHwrs+dZgaDhr1ql3RjCxj4LSyNmgqgwfpOGY9OIQML2eqD -jxDzXhq886iYgZzPfjy+7k9DUqT9cMUDBn65I3m2y5eGOCX5PQ+fMZBpcrc9 -wouG4EuvQ+53M1BIRKtn1IUGi+WDBpG9DBzFUY3jxIpJbAJqfQx8qeqwIEc8 -GKlZXDbAwKjpNQ27dtLgZ5s1dm+UgeEruE61OtHgxh0VWvqdgcFi5658sKfB -LEo8vEiYiRcvjD7daEXDs6xky3RRJl5LMqbeWNJg0DglHyvOxI/2gqfCiFUV -Xv9nLM3EPBEel4cWNIi1HzTuVGCih/6Tb6bmNIzodQnzajLxxU8ezaM7aDjL -kf040ImJ9/Z8andDsv4t/Jk2O5nYwD6ZwEuc6Bkbqe7KxIXYobu1QEPsA/sN -fzzIfJGweFliP4r93EV/JvJNMeVnttGg/sqf8U8EE/tSAv1L9WloP6fAJ5fG -xDnLs+eTtGkoAYGgoXNMfNur52FFnDg2U198nomqt9rOriJWs6g/rHOJiRvu -t5plaZHzYwuYsrlBbJg5/LcmDaZh2f/FFjHxWNDvBSENGqSkjmsZljBRRTG0 -uE+dhplXYec57zERk3ObS4lz1oPNmXImVkZ4BlgR/+rqenKrmonmMaVVKWo0 -PLCWKHjbwMSCydENQltpOPWdgzvjFRMtzEtfDKnS4F8w7OfeyESTMcG2WuKV -XNUS/U1MHPunxpAiDqlxO8tqY6KWgzXUbaFBTvlijPwAE3m4H/04upmG7+2H -Wr8OMjHbuiTRi7g5ialaOsTEjS2KcTrEhz9rDOuOMvHNyeyKCRUaOjJbveym -mTh8NNg9gDh96aodB9gpDHdYcPbZREPtVJdnNCeF6ldyDLcRf+kqjAzlplBy -vq9MgtjggUm2Pw+FwSwpzY6N5H3zjf1huYrCIUOzEi/ildY7Vu8QpFBqeUg/ -EOtrr1YCIQoVu0VyZYnTBIpc1MUodEn/9fdXZTJe3VMmIUNh+tmW3YeJqdtF -DUJyFLaFs40yiNPS9vesUKDwpGXBvBXxICUowKVEofFvn7sSi+OCZkGjqhSu -bTFLfKpEQ/VvwfhBNQrLC6Qci4gHvvZe6NWg0O6A/51LxHpPDjx/r0MhY6PG -TBhxf0iJ9GOkcJNr+/f1xMvdDmo+MqLQ1IdrjTCxrrG5dZkJhbbhlyq4ic+I -9e2/bU6hb9PIpUFFGiq5StOyLCnkMr7b1k5MTxzMv2xNYQ3vmxsviXX+Ffpw -2p7CBH2N1yXE/mV9IymOFF7ni92SQ3z6WinHUWcK63+JS10k7ou0UI1xo9A7 -/GBGPLGAt7BZuAeFBpe1pfct5lnQXsG7KJTWtN+6Z3H+2kOnvH0pzAjPmHZb -7MNrmePmTyH/97oc+8W8WeEqRwaF+Mq403wx7zPdZE1ReDpY9vr2xbzGe4Om -QRQmh3gM6S32e3ToFwZT2LF7pFZjMT/Hco1+CIUXuT6Ib1nMPy2yUTOUwieD -whzKi/mx/du3hJP1PLsXqUDMzyhzU4qk8L5jTogMsbbd4TC5aAqz3UcmpBbz -9aySpWIoVM059VOcOFVB9LpILIWhf46mixJXrBwoX3WAwhTrd2XCxJ9/lL3i -i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== +1:eJwV1Xk0VV8UB3AzCYUyJDLmpyK9h0g5OxQyJ1IonvcuSeYkRBPNQop+JTIl +GSIylVQqv1KURhnr3UfPPL1LGn7HH3ed9Vlnre/a+5y9zlVjBG9nCfDx8Q3g +b34NfaOnXd32xmzmyYrLs/1sZDaSZ8iwLEarP4f/N+/eLKM0TcsH6N3pQOIn +thPztYgE/Rny7FgQOIddHhX/VNiyBZ3+YNvxC/vMc4XG+KK3qC+RVv4Hu7Yt +9MYv2gcU8OfhGN8AG3E7XsYerv+Msh1HMgSxl5EaHjyLTlSZ8vS2CLbtaKxJ +eEsPMu/ZpCGO3fCLuzCqqA9luHkJS2F/PCYfcz/oOwpUVHeSwR4RseRO0Ugk +a39eUB5b5HzILjrFQceXXV+xHFtFOrM5tH4ASZc656lhOyjxCkYshlDYYGm/ +LjaRrS6nKzaCyL9uBQbY8VqOCftbRtH3svzXptif5d+viygaR+Pd691ssZm7 +A/ZdOj+BdMmYahfsset8NyuCJhHtst8xT2wxdd3F47Rp9EV7vWMwdhrzqdXi +pTwkVarkchhb9dau+LUUDxlo3X50Att4TeLIgfoZ5LCj8d1VbH+jnhauxS8U +dJTb+xJ7KuqgkPjK38gJqa36jH20fuFGHbE/qENbqJPEzgDjO34tf9Ff17bD +Aj9wffnNlmFF/GAokZwJ2EXPL/UeUxKAEdJwjTP2WP+e2JTzAhAgfF6DgR27 +avre3SBBCPWztUvATitT0xilCYN0rXZiG3ZH21DDn1xh4Cvy3s3GVp2o3i21 +VATW9jqkz2AXGzik6lIisKTH3lady0ZNtdH8gfVicN+Cey0ae/ppe8+AhQQQ +uja9ZoNsJGMnsTimQQJC93FiPbD131uCpIkknODlpEVhB7CrstfpScHsnTjD +SuwQgRb9TRKLwZj+beO6ITYi1UvHE3jSoKx/yNd8GJ8P8XJBK10GMr2yKghs +gTscNYVQGbhdNRd7DluVvmJ70aAMRD53O/ERe7dFcsWbXllwym90Cxtho1bf +sHD5V0th4p9nio9H2aj7VtI5bzE5MDnCXT6MPTRYlHt7ixxcuO91TXGMjcQj +vrebNsrBuXED8Qhsy5M7DLyr5MHS+kuZ3jgb1eUZTRdmKUIXkbW8foKN8sif +kRsilEHolONZfR4bWbue6g4vUQa/U80i/thDTbJbSzjKcPbT3EgWtkHemqWq +u1RAROuqgDSFz5Ox556w2Qq4cZA0msGeGO09NHBCFc5Mnv7QMctGsgcsK+/Z +q0PSoa+zY7/ZiJMn7u8UoA6Jebnjhn/YqKazTWk4UR0kxPe7xmB72nmdWNmo +DrxF/D6if3F9qyO3X6VpQMzLC6c1+UhkwL01FievCcqUi1K4AIl2+C3U3dan +BQPd2T4+oiRCka60nb+1QODHhFkF9qqErPVMxZXw3JpxUlCMRHy5dPM455WQ +8ijX6hZ2SbfHzorHK+EH/C6bXEAiEbfiY8tytMFVKVw8W4JENZb2H7kMHRg7 +6PFzqwyJcl3Sv1JxOjD7/XlvHnYSo69X6JoOiOTeWSsoSyLm0YODKu06YBM8 +LPIYW/pBJp+LxSq4GHH72ualJAqgj6yq11gNVPwLbzcFEimpX4w/x14Drlb+ +IW9USPTg7JTOrIAu1NzxOG6+gkSek7veE2q64KFbt6ga+0aTpo75Hl3Q9H55 +/aYqidT96t7NfNKF/5hVR2PVcb/FpBbxSg+Cwu+F26wkkbKSCqG6Sx+GpDW0 +QY9Ea/IjJOYQDYK7Hny+iUjEYJ6Y1nWgQVTQF7nVQKIMjdRub08aSH8/+7gS +WzCn7O7zKBqwYxo8/9tMoo4b3B2p5TRo2NxfRFmQ6EyGd6aOBh1aLKDI35pE +nHN2eu4iBhD78JHrdWcS3QzTdKpqMQTV57XBtiwStUWi9SfzTaCzKzW28zKJ +1PZ8cPAK3ASDcaItR16TiPX3fqnyYYB/L51ouCLGQfKDNaLyDHPYS/3bUujE +QRH0jZ2pqyzh0HMmkXKNgxjDv5pluVvAvHNPytYhDioxDxfNarWCWMXFN9Xs ++lHeVMDj4jQbEAskr8eW9KOZzQqvm+Jtga/297VXKwZQF5/geJ+PPfjz3t4U +vzqAgpYHJx/TcIT4PNlsW5kfqHRfc+PlBCfgn96X/unGDxQ9qUit3ucMhS41 +rldWcdH0tq1uL/Zuh2vie1OIV1xk4pGymXR2AQj8te512CB6p5gZ0ETfAQEc +zfFg+SG0rODEg8J/XEH/eJW3TPsQquldZecg6QZt452qpWeHkcr7Mb/IYTfY +dvSikcfWEUS/nFKc27sT3tDYcobLRlGm0KRe6lN3eL9iZaBp/yi6v3ltR0Lt +LhDJiqQFEGMoY/1Z6V9FuyGabeMQ0zGGWr/mJ9LPe0BoI2v9TptxVGV/XTPk +qCcUlE587H2K/xsHXPiCmF7QtHcup2/9BJrequM/YrEH+M6J+Z4smkCFw19m +wo32gkxP2w097UnkfjPf10vCGzqfPjGf+XcS3auw3St4yhsSmotFJ+WmkInS +u9kzs95whLIiHU5PIY1ev463+3zgp5FU5IapKcReuN/x+ncfEH408y6FOY3a +khx8rVwZ0HT4FDXwYhqlRWUtPNjGgEN/9t5yXcNDDxr+zvra+ML15vYkViIP +LfKEU/Q6X1CuNmp9+JaHVJe8aF3+wBd8SqwfjL3jIf0WewWRBl9QqTf7qf6e +h7Zv9Lj9+bEvjOxv8Ev4yENpyyNfHfnPF1h3WfzmX3loWdedRc2ffeHZyWMT +V9k8pLlHPsOT8oXRs5mDT3g8ZOI9UphgwITZGUY2V4FCBVfHwh2MmNB1zt+n +W5FCS9onzOSNmaDn6B3zdhmFRrZQ7wtNmZAt5VVbtZzC7xcff4s5E0S3LnaP +VKWQFCW9S8aZCbXUt6lP2hRiXzBckHWACbKFgW5KRhRKqo/dV1PABI24mqAM +JwodoKWbRBUyIVzCRNDLmUJ2t8sXGBcxwUlgdlB1O4XE0zm3q0uYkN5xpbbA +hUIJYU7c+5VMEFsyCkVuFIrV0dxf9YQJiarZXcmeFApIfxVY0c0Ee/GF5l/9 +KGQjxdkY1ssEkVV6smf9KfRPAp8k7RvuL/gV3XgfhThhhiXlJBNm3NmM1AAK ++ThkDd8dYkIcURBhdoBC7sLhQWU/mRAWlWx1MIxCVuHLQorlWHDeWLveM5ZC +T7ISt6UqsEBhUlRT4AiFNrZMaEYtY0HgmFJNAba+1qsvFiosKPxg6jMcRyHF +TzEWX7VYoM0/WxFyjEKDG7rkxA1Z8IQ2u84xkUIXBbIf+rmwwMLoS1rARdz/ +WokMe1ecv85fcRr7pEdUGH0nC24MRTfFJVMoqtJJ++9uFnQvyL1wMQXXT/Cn +XGGwQHLSbqDgEoXoLxnMZ6Es2LRudU5xOoU+pWgt1EhmwaQ1z1Y2i0KlSNJ/ +IIUFsfFtc9HYJ4enmkouseCMxjC3D5tm0xRnnM4CP9W0xJJsfH98vhP2N1hA +fdYrN82h0Nbg7C9RxSw4fuJ1Iz2fQsrKp43MSlnwxjpv90XsqZfBlwTvsiCx +dR+Ni52zEtkn3WNBQFfotcwCCv3u6mrMrWNBz4YdznO3KFRpp1T4phn3P9Zp +mlpEoXM/BYTTXrLgGb34Th82o5Drs6uFBXeWgrv+HQotFqpTYreywGwgxO8V +dmC9+8XZjyxwDlTxnCmmkMaqK5GaJAsYH0OSdcso9PPTkfYfHBZUJr1tCsFu +S2Dplw2wQKWXZ3APO67PgGsyxIIKJddmw7sU6sho93KcZEH7j7e168oplCoq +vSWan4CFnwfqhe5R6MFEl0eEIAH2m6x+bcbu7yoKCxImwNVNxioOe2OlZTZj +AQHRL4rnJrE53lFz26QJ+GVh0NNeieu32yKzRZaAcmnj0AVVFDJdL6ODlhLQ +cmu1pBl2smSxG12RgLbyQkbe/H5dT7mSGgG2KZHHWfcpROQXNy/VIKBUNZxx +CTs5+XDPIi0C7NwmbRuxOYSspJAOAWU59qby1Xhf1sp/SJ+Ak6JqZ2ux6/7I +xnNoBKQbj1X2YJM/ei/3GhDAedE/IFRDoQ2N0U/fGxMAPtqBdtjswFKVh0AA +fbijuxVbyj3GsNqcgC35Xc4j2CYW1nbllgQoeTa8XliL50Xx2+F8awKEbsz2 +WGDXCJUlZ20joKjBMnIP9vfRmFtX7QiwXuC4NArb+PnSDxecCHCnJRwoxGaU +fxs8tZ2A+Ge5Kx9hX7heJnB8BwFaQ8TAe+xvYTb6ke4EdFk/TfiNLblHzipk +NwE7XJx9FtfhPJvvXgGeBKj/e2CLOvaFFUfO7fEmoD50k7YFdo34thx3BgFS +VL/mduxv03K125kEfLgptdobW7Lve6sdQUDglRKTA/N5LXc5W/0JcNv02Okw +NqP6yG8IIGCZxdaQk/P5OduWmAYS4JJhkpE0n39BfrVhEAFNoRnN6fP5UezN +a0MIMLH25s/GlmCWu+uEEZD3Ocn8FvZ6x7hgjQg8X5rq50vm8zfYJipHEpAV +rNBdgX1eSyFTPgrbMsS4Gvv+YvKedDSer5B/rtVh982Vv1wYS0CNEIg8nM/v +j+sTjiNgzu3+4QZso3e2M3/jCVDgPzc97/8B/cEbOA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + "PlotRange" -> {{0, 180}, {0.6533172524051158, 1.4830922690890187`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5986424829233548}, + "AxesOrigin" -> {0, 0.6533172524051173}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1691,7 +6845,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5986424829233548}, + AxesOrigin->{0, 0.6533172524051173}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1719,7 +6874,8 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5986424829233534, 1.5968711170700145`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.6533172524051158, 1.4830922690890187`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1727,9 +6883,10 @@ i6OwPSTGQ2gx/8vhz9yHKRy3ikxdQ6zVYrXwJ57076o3W/T/ejWvbA== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991339493274267*^9}, + CellChangeTimes->{3.991339493274267*^9, 3.99382612357626*^9, + 3.993826552515019*^9}, CellLabel-> - "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] + "Out[188]=",ExpressionUUID->"90904496-08ed-46a6-a855-8d3341711298"] }, Open ]], Cell[CellGroupData[{ @@ -1792,262 +6949,160 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849724783457*^9},ExpressionUUID->"6e33cb28-ef1e-1547-b52d-\ -2171e7786920"], + CellChangeTimes->{3.991849724783457*^9}, + CellLabel-> + "In[189]:=",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2261575897868585`*^-267\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 335, - 333, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493498577*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.4452315154572805`*^-272\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 189, + 17, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.9938265528612413`*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], +In[189]:=",ExpressionUUID->"f0bafe33-bf5a-4a7a-88e4-b2b510a86311"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.273330099721687`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.191816883391791`*^-284\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 189, + 18, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993826552868989*^9}, + CellLabel-> + "During evaluation of \ +In[189]:=",ExpressionUUID->"ecdb36ab-9410-4e92-9433-16f23dac93c6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3240772837708747`*^-296\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 335, 334, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493508564*^9}, + 189, 19, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993826552875278*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.013344112917215`*^-290\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 335, 335, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493517563*^9}, - CellLabel-> - "During evaluation of \ -In[335]:=",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], +In[189]:=",ExpressionUUID->"e81f1639-62fd-4936-834b-1f8fa691a40a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 335, 336, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339493525564*^9}, +during this calculation.\"", 2, 189, 20, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991339493498577*^9, 3.993826552881701*^9}, CellLabel-> "During evaluation of \ -In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], +In[189]:=",ExpressionUUID->"13d66bf6-c8c8-446e-b38d-3478ed7f4da5"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VN0fAHCh0luWiJClGWbujJ0ihvH9KinK0mLrlcqWVCpJpMIkJKKU +pBSaMnfaKK82SmlBZYky8aaN3lL2CCW/8/vjPvN8nmfu955znvNdGAHbVgZL +S0lJSU8iD/kdbq95pH9YaP+l4XR6+ykL++az6jEOEgEc+y54pKE0E1C1PkBd +cgx8UvMzBhUZEOUhbpGRFMIVnlX/v4rmMLNn9rHRluvw6rPFsSpFB3hX7rbt +R8tDCNjNEu5XXAFO+l1v+1tegpaem12swgYYbVlwoq/lI6iaqPtE/bUDqhYV +CRsLByHmQOiB1dcSQOvd7c8BRuOwc4dUhuGcVJi1ZZ146iIZvJvvRxuoHYVj +5k533Tzl0Fbp26bbK0/Amxyzyn4leQwYpG9M0zkFh4Vx9dIaM/HeIunpS6fk +wezjnw5l5algUmnG9Kke+ZC82tn+5bAqajkYco3eF8BOm4J1NQJ1/HFUUtYZ +fh4ce8f2hH/SxNjv8YVSlUJIsFuxQdNaG39XdOqP/XcBeFdPle6/r4vnhA/M +DCYVgWNL3XhPtS6O2JeIBmWLwE1Kdsm6l7rY2/27/o5cEQSuDH8Dnbq4M0LT +aKFSETjFMuLiJ8/Fts/5apa6RbBdd/i8g+FcLD1y4+QluyJ4tPFcd1XUXOxc +XRnZuqsItoz0x1fLM3BZ0AMz3oci4O0IUfuszMDF8wq33ugoArmu1ksy6gxU +y+V9434pggttVa/tmQxcauorUugtgvZ7J4z+sWKgQ1gb5+bvInA/aCMpWMdA +dT1Vm8TZIrBQTjCNLWHgN35wgMIyEUgdHnqUU8ZAy2FvoambCOpkwtaU3WXg +bLRku60QweahlQf7HzNwOnXrq8BbBEKJftvGVgb6S1lvfxYoArVz1UmrZZhY +oZsRJ4kVwaihUruxJxOXa6V3fqRFMJynmTBvDRPDy+8bn7ssgh+KLH2bdUyc +JMlo8Lkmgp5BmzDHTUwM2uLKflQqgo93A4fX7GNirgNvVux9EdQuu6mQcoGJ +1a7208OaRZC72R8+DjHRerbCNNffIjj5NvTjf2NM9JwzVlf6RwTH3Xce7J5g +Yoxq6oDGJBqOzEt5NjJND0Xqqqv+nUyD4FeJt6KOHlIlYfscFGnYfHjydjsn +PUyPZJ9IZ9Bgd+lyfna2Hlob1kiMHWlom3vp3OLTepjzO0Ci7UTDnmz67I9z +elggJTw6fSkNNxMunllJk/+nFJu/X0aDhU9+jkK5Hm70VDcKX0UDd/LxzKQP +eji8zM9IO4AGtXWx8VFG+qhSf3pf9T4a/mmOiWOZ6+PryFCp7XE0rHaJ3t9s +qY8HjjIXqibQcMxy114L0Mfdmdoyvok0yM/YFt2zQh8z5uyKf5xKg+ztgO0h +u/WxJfRLlsVJGvqVXdZ7PdTHoH6vFP+rNEi2MBvCnupjZ0vqYNs1GiqfjEHc +c30URJy771VCQ+aeS7qi1/qo9Ccz1rGUBrOPM96Ndukjo+pWqtQdGsJL6tfm +qbCw3Dln6a9HNHhNF70oUWehNM+i0+0JDfbB8fwn2iyMLo3679xTsj4Nc+1e +ioX2wajDq6Xhcvyxf9GOhQoV/6x1r6ehy93z744gFj5fErtlXELDS9r42cgm +Ft7z4qVSrTTckZliK7+NhW18ibJ7Gw2HbpZpWsWwkPtrekj2Wxo4uuqtyeks +7C/+qj3lIw0be1p9DMtYuOlaIiOsiwa3pTeq4S4L19pUqG3+RoNV4WHr1ZUs +lPRu37vpOw1TvOzU99WyUH3wXq5/Dw0XK/Ja6tpZOKvL3thggIaOtPVeEVPZ +6HcxeNxplOy/y4hpNoON3o9tmpXGaPi5ZLS7W4mNDtKmuyTEf8kcO7hJk42V +QZVqG36T84upKl1vzMZ25dAP3hM07Atmq7ivYuOKvGlv22TFMKVqoH2GDxvD +iyP3CiaLIXPufXGtH3m/0ewbe4oYhG3eC51C2BjtMbBg01Qx1K44tIMfw8bU +K7I5TdPEoGb/vd7wHBuNIkT3QEEM+advnf56no15/zbEVhFzRxM3FonYWBNR +Jb9YUQx2pdoTzOskvu22EgclMQQauJtoPmbjn5iaSQxlMXxPnjPWUsPGwync +bVnEUZ3/PT5Rx8ZOyrBURkUMqfnxa2dK2Bg1NfHJW+Jitetpct/Y+ED3ulq0 +qhh4kft9nvSy8WbewmVviKsaXfQTf7DxbcHaNdZqYnid9unuxDgbY95fntZH +/Fta9duwEoXJNco3F6uLIWn9h7JSVQr7WT61J4gV710RRGhSuNuNefcTMTPG +SbNHj8Imu6dWMRpicO7d7dxpRaH9eH9+qqYYtMx1kuTsKOTdU26pI+6JePTQ +0IHCF7ZGGUpzxHB8WMkuYhmFJyohOY04xPpm9AkPCp9KLKufENvsWfvPLU8K +59Rrpf8hbh+nTSbWkfVtuS0M0SL7BY/NzGAK38mEj2QTH0gYLlocRuFB35kv +HxF7VZ3pCN1GYXONnkUfMWfyIkZaJIX6M9gaGtpiGHP6uvZaDIXpFqeSgfhF +Skbuy/0UFtN/9gUSR8z4V0XjEIW7pESyQmJHN4GH3RGy/719JyqJZ2dy0tdl +UXg2YX5JK3FXY12NIIfCCPufXgPE5Sq7plzMo/AHrzx5qo4YjnjOWVRTSOFK +n6mOmsQbTj6I+15E4e0GvzQD4vlvNpYrXqHQfIHDBmviKXMURi2uU7hmt03V +ImKJX6ml100KHV7VXl9OfOnsmoiYcgpNu/eYrSLe/17q2pkHFO65UW/nTezB +LPp2/wmFrpHuEh9iZpAr59MzCsOb4mX+76ELg0FTGinUe951bzVx9X+nCriv +KewqnjXdnTiXi+3L28j7hklfnIi3bP6suf09hWW2T73tiOFKmndWJ4Xzbdb7 +mhIr91ocL+ui0LnxTbcucYfZm4Y3vRRWTq1QVSAui4iTH/9Bvm+V1ThKzudQ +Kctl7hiF8vKfGZ+I/YafJS2aoHA4E6bWEptYR1SFyHJQTttAcJVYao+6VOo0 +Dv69wSwrk7jp7j27KwocnBv4lred+OJ4UEyDCgc37i2PcSWOhullg+oc/PS3 +rweHeFlCyYCaDgfrZfG+FLFOlbcpT4+DBXW/n7wm96PKSSiKN+bg6BPD87HE +2SkunectODhp6a1oF+LQ2j7G0wUcPHzE/asasYIb/7T8Qg7uu/g6T0Tu5/uM +Ty1mSziYEfTp41biG42HZq1ezkHFB/MfmxH7eL5Oz/XioPXdj4HXSD4YnNxb +W/E3Bx3f+DM2E49LmFM/rOegTrb/fn3iQr9t8dRmDhZvN9TIJPn1PVBuZ2kc +B08ptH9wIfnXc9ax4n4iBzuZuGRothh638RPfXaIgwxebEge8YD76OkPWRxs +2E43fyb5/dO265GCiINvDMzj/Ek9GIliK2pe4eDeaOHD4VkkH0oCfFnXOWjp +tPJRGvFvqq3btpyD1ZlZstdJfZGe9VxtUwMHa6ZYp3yYKQZZd7kNka84OBwj +92Ij8eRUx0txrRzcxExu/kbqmZxUBWR3kPU71Bl3k3qn8P1KaNUIBzuSXDVe +yYtB41HGHW0GF+uOL17FI/VTc+KZLJfNxZ43A1Py5Ej94Mm5zzfkYtbnsKRx +Um91iuM/uVhy0X9w+rebpB7rn9kxI9qZi9aynn8rk/ptFrnK/+UOLnp6j67x +/0P6/bUM0dsoLg7xV8w8O07DvK5nA19iueguaT7TRvqB1XrH5ImDXNTYUWnp +8YsG2+WWxUbk0j8Neh+nO0KTeXm2dPJDLi75UP/Lq5+GrwFLRLZPuZh96nDW +gT4a0gp2u/U94+L4zAceV3tpaNKR5Pq+4uL8x8f5f7ppWK9xap7RFy6WyNb2 +JJP+F6MwJ7hR3gCfla/RXfSJ9N8Rneo5vgZYUdrh4NdEg/sC9/CGtQY4yURJ +4PaShoFdcbMOBhig5eYvP+0babAZfLe+Z7MB1uqWJGmSfv2kO3+0cr8BNqIB +lJN+/u4j0zBEaIBXH8dmih/QoPyCfaS4l8QTKwVakXnjT6/ZhdofBig/z665 ++TLp98q25R2jBtiZdtB+xyUaHvq4d6nLGuLLEZNJQhENOzt2OyWoG+KQmurK +/kIamn9V/1nhYIhRD06XG5J55qTB5m2DxwxxcKXfMf39NGilXPOwsjJCf/ut +z13JPCa+eqVqlGeEKcK26gwyr1m/umRVAUb4/lwYp2EhmaeYIi1HZyM8mu2i +shzIeZbnf1nhZ4TL6+6IzKxp+NV3NH6rwAhjVSa8r3BpaPWNLBbWGWETV/pX +9HQacgxtlFQ2GmPFX6UOsbVkHtV0sBw8aoLPjOxe+PJEwNN6mGn62hRHc9xu +uyQXgYJMYeQGgRlm35h39uCLi6CToGvnyzZH01APtRcDF2Aay69s5VNz/PPa +5GuU/AUw4Wtc273WAndmH9PSMhZCRLtylYvUPKwR3DdmmZ+H3sE0T+eceUh5 +Jr6zwkJYYvok19l4PqaMt4/UehTAvUHbXz/r5qPJ4hBRzrJ8CDeyaG0MtsSX +IW2D0iVngd8T1Ow7zQovGJrG2RWdgcX66q7yhVZ4t8B5gFedC5z41OiHCxag +4/fv2rLjOWAQbHOf1boA11eJQw01TkLwvdDE0h3WmBC2rUA5+ATcz28O6le1 +wevh5anu57Lgh2jip+lNGzzrxWrfOnwUAlmXpuW68rDJ56Buxr5M6DfIsrre +x8MF027KDw6lwy3hrw9DKbbY6F0Zs8ftMKxx1ENbHTscHmw8sOvfFJizNfm2 +SaUdBqx5el4zIAlU/9pS4urNR8OlAuUG20QQLtq3p8+Xj8cDZamjFolgse/I +oiw/PvIXPnf15CaCW1/xK8kGPq6o72z4rJYISa+HRgO38DH+6zyhycABGCmM +W7gngY8Ot6MsV9AHoNU2q+niJT7auueefadxAEJ3Cc84X+Wj5UkXT+mZB2D4 +6j/B34v5OPDeRoUjdwCUmZKf5mV8tCn0Pb93WADL5LS1Kir5aGHD+sulSQDl +zReDml7x8fK1jjO70gXgonDLOErCxx1ZlrnViQKQLKkZVm/j45IcOkdnrwB+ +3PmW4v+ej2MtISebwgRgXGB25WsXH+sWzzq6YSmJ1+oQldbNx7gO/7TnQOLN +WgWmfXxcdzv3IG+BAEKSdzVGDvHRmem0XZdN4lUm5c4e4WPf24712doCEIyd +DLwzxsdc3SZXJVUBKM2njdaO8/HWiSKr9BkCOLv1ztDEBB8FWSOa8rIC+B9n +NC2r "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2061,221 +7116,115 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV1nk4VN0fAHCh0luWiJClGWbujJ0ihvH9KinK0mLrlcqWVCpJpMIkJKKU +pBSaMnfaKK82SmlBZYky8aaN3lL2CCW/8/vjPvN8nmfu955znvNdGAHbVgZL +S0lJSU8iD/kdbq95pH9YaP+l4XR6+ykL++az6jEOEgEc+y54pKE0E1C1PkBd +cgx8UvMzBhUZEOUhbpGRFMIVnlX/v4rmMLNn9rHRluvw6rPFsSpFB3hX7rbt +R8tDCNjNEu5XXAFO+l1v+1tegpaem12swgYYbVlwoq/lI6iaqPtE/bUDqhYV +CRsLByHmQOiB1dcSQOvd7c8BRuOwc4dUhuGcVJi1ZZ146iIZvJvvRxuoHYVj +5k533Tzl0Fbp26bbK0/Amxyzyn4leQwYpG9M0zkFh4Vx9dIaM/HeIunpS6fk +wezjnw5l5algUmnG9Kke+ZC82tn+5bAqajkYco3eF8BOm4J1NQJ1/HFUUtYZ +fh4ce8f2hH/SxNjv8YVSlUJIsFuxQdNaG39XdOqP/XcBeFdPle6/r4vnhA/M +DCYVgWNL3XhPtS6O2JeIBmWLwE1Kdsm6l7rY2/27/o5cEQSuDH8Dnbq4M0LT +aKFSETjFMuLiJ8/Fts/5apa6RbBdd/i8g+FcLD1y4+QluyJ4tPFcd1XUXOxc +XRnZuqsItoz0x1fLM3BZ0AMz3oci4O0IUfuszMDF8wq33ugoArmu1ksy6gxU +y+V9434pggttVa/tmQxcauorUugtgvZ7J4z+sWKgQ1gb5+bvInA/aCMpWMdA +dT1Vm8TZIrBQTjCNLWHgN35wgMIyEUgdHnqUU8ZAy2FvoambCOpkwtaU3WXg +bLRku60QweahlQf7HzNwOnXrq8BbBEKJftvGVgb6S1lvfxYoArVz1UmrZZhY +oZsRJ4kVwaihUruxJxOXa6V3fqRFMJynmTBvDRPDy+8bn7ssgh+KLH2bdUyc +JMlo8Lkmgp5BmzDHTUwM2uLKflQqgo93A4fX7GNirgNvVux9EdQuu6mQcoGJ +1a7208OaRZC72R8+DjHRerbCNNffIjj5NvTjf2NM9JwzVlf6RwTH3Xce7J5g +Yoxq6oDGJBqOzEt5NjJND0Xqqqv+nUyD4FeJt6KOHlIlYfscFGnYfHjydjsn +PUyPZJ9IZ9Bgd+lyfna2Hlob1kiMHWlom3vp3OLTepjzO0Ci7UTDnmz67I9z +elggJTw6fSkNNxMunllJk/+nFJu/X0aDhU9+jkK5Hm70VDcKX0UDd/LxzKQP +eji8zM9IO4AGtXWx8VFG+qhSf3pf9T4a/mmOiWOZ6+PryFCp7XE0rHaJ3t9s +qY8HjjIXqibQcMxy114L0Mfdmdoyvok0yM/YFt2zQh8z5uyKf5xKg+ztgO0h +u/WxJfRLlsVJGvqVXdZ7PdTHoH6vFP+rNEi2MBvCnupjZ0vqYNs1GiqfjEHc +c30URJy771VCQ+aeS7qi1/qo9Ccz1rGUBrOPM96Ndukjo+pWqtQdGsJL6tfm +qbCw3Dln6a9HNHhNF70oUWehNM+i0+0JDfbB8fwn2iyMLo3679xTsj4Nc+1e +ioX2wajDq6Xhcvyxf9GOhQoV/6x1r6ehy93z744gFj5fErtlXELDS9r42cgm +Ft7z4qVSrTTckZliK7+NhW18ibJ7Gw2HbpZpWsWwkPtrekj2Wxo4uuqtyeks +7C/+qj3lIw0be1p9DMtYuOlaIiOsiwa3pTeq4S4L19pUqG3+RoNV4WHr1ZUs +lPRu37vpOw1TvOzU99WyUH3wXq5/Dw0XK/Ja6tpZOKvL3thggIaOtPVeEVPZ +6HcxeNxplOy/y4hpNoON3o9tmpXGaPi5ZLS7W4mNDtKmuyTEf8kcO7hJk42V +QZVqG36T84upKl1vzMZ25dAP3hM07Atmq7ivYuOKvGlv22TFMKVqoH2GDxvD +iyP3CiaLIXPufXGtH3m/0ewbe4oYhG3eC51C2BjtMbBg01Qx1K44tIMfw8bU +K7I5TdPEoGb/vd7wHBuNIkT3QEEM+advnf56no15/zbEVhFzRxM3FonYWBNR +Jb9YUQx2pdoTzOskvu22EgclMQQauJtoPmbjn5iaSQxlMXxPnjPWUsPGwync +bVnEUZ3/PT5Rx8ZOyrBURkUMqfnxa2dK2Bg1NfHJW+Jitetpct/Y+ED3ulq0 +qhh4kft9nvSy8WbewmVviKsaXfQTf7DxbcHaNdZqYnid9unuxDgbY95fntZH +/Fta9duwEoXJNco3F6uLIWn9h7JSVQr7WT61J4gV710RRGhSuNuNefcTMTPG +SbNHj8Imu6dWMRpicO7d7dxpRaH9eH9+qqYYtMx1kuTsKOTdU26pI+6JePTQ +0IHCF7ZGGUpzxHB8WMkuYhmFJyohOY04xPpm9AkPCp9KLKufENvsWfvPLU8K +59Rrpf8hbh+nTSbWkfVtuS0M0SL7BY/NzGAK38mEj2QTH0gYLlocRuFB35kv +HxF7VZ3pCN1GYXONnkUfMWfyIkZaJIX6M9gaGtpiGHP6uvZaDIXpFqeSgfhF +Skbuy/0UFtN/9gUSR8z4V0XjEIW7pESyQmJHN4GH3RGy/719JyqJZ2dy0tdl +UXg2YX5JK3FXY12NIIfCCPufXgPE5Sq7plzMo/AHrzx5qo4YjnjOWVRTSOFK +n6mOmsQbTj6I+15E4e0GvzQD4vlvNpYrXqHQfIHDBmviKXMURi2uU7hmt03V +ImKJX6ml100KHV7VXl9OfOnsmoiYcgpNu/eYrSLe/17q2pkHFO65UW/nTezB +LPp2/wmFrpHuEh9iZpAr59MzCsOb4mX+76ELg0FTGinUe951bzVx9X+nCriv +KewqnjXdnTiXi+3L28j7hklfnIi3bP6suf09hWW2T73tiOFKmndWJ4Xzbdb7 +mhIr91ocL+ui0LnxTbcucYfZm4Y3vRRWTq1QVSAui4iTH/9Bvm+V1ThKzudQ +Kctl7hiF8vKfGZ+I/YafJS2aoHA4E6bWEptYR1SFyHJQTttAcJVYao+6VOo0 +Dv69wSwrk7jp7j27KwocnBv4lred+OJ4UEyDCgc37i2PcSWOhullg+oc/PS3 +rweHeFlCyYCaDgfrZfG+FLFOlbcpT4+DBXW/n7wm96PKSSiKN+bg6BPD87HE +2SkunectODhp6a1oF+LQ2j7G0wUcPHzE/asasYIb/7T8Qg7uu/g6T0Tu5/uM +Ty1mSziYEfTp41biG42HZq1ezkHFB/MfmxH7eL5Oz/XioPXdj4HXSD4YnNxb +W/E3Bx3f+DM2E49LmFM/rOegTrb/fn3iQr9t8dRmDhZvN9TIJPn1PVBuZ2kc +B08ptH9wIfnXc9ax4n4iBzuZuGRothh638RPfXaIgwxebEge8YD76OkPWRxs +2E43fyb5/dO265GCiINvDMzj/Ek9GIliK2pe4eDeaOHD4VkkH0oCfFnXOWjp +tPJRGvFvqq3btpyD1ZlZstdJfZGe9VxtUwMHa6ZYp3yYKQZZd7kNka84OBwj +92Ij8eRUx0txrRzcxExu/kbqmZxUBWR3kPU71Bl3k3qn8P1KaNUIBzuSXDVe +yYtB41HGHW0GF+uOL17FI/VTc+KZLJfNxZ43A1Py5Ej94Mm5zzfkYtbnsKRx +Um91iuM/uVhy0X9w+rebpB7rn9kxI9qZi9aynn8rk/ptFrnK/+UOLnp6j67x +/0P6/bUM0dsoLg7xV8w8O07DvK5nA19iueguaT7TRvqB1XrH5ImDXNTYUWnp +8YsG2+WWxUbk0j8Neh+nO0KTeXm2dPJDLi75UP/Lq5+GrwFLRLZPuZh96nDW +gT4a0gp2u/U94+L4zAceV3tpaNKR5Pq+4uL8x8f5f7ppWK9xap7RFy6WyNb2 +JJP+F6MwJ7hR3gCfla/RXfSJ9N8Rneo5vgZYUdrh4NdEg/sC9/CGtQY4yURJ +4PaShoFdcbMOBhig5eYvP+0babAZfLe+Z7MB1uqWJGmSfv2kO3+0cr8BNqIB +lJN+/u4j0zBEaIBXH8dmih/QoPyCfaS4l8QTKwVakXnjT6/ZhdofBig/z665 ++TLp98q25R2jBtiZdtB+xyUaHvq4d6nLGuLLEZNJQhENOzt2OyWoG+KQmurK +/kIamn9V/1nhYIhRD06XG5J55qTB5m2DxwxxcKXfMf39NGilXPOwsjJCf/ut +z13JPCa+eqVqlGeEKcK26gwyr1m/umRVAUb4/lwYp2EhmaeYIi1HZyM8mu2i +shzIeZbnf1nhZ4TL6+6IzKxp+NV3NH6rwAhjVSa8r3BpaPWNLBbWGWETV/pX +9HQacgxtlFQ2GmPFX6UOsbVkHtV0sBw8aoLPjOxe+PJEwNN6mGn62hRHc9xu +uyQXgYJMYeQGgRlm35h39uCLi6CToGvnyzZH01APtRcDF2Aay69s5VNz/PPa +5GuU/AUw4Wtc273WAndmH9PSMhZCRLtylYvUPKwR3DdmmZ+H3sE0T+eceUh5 +Jr6zwkJYYvok19l4PqaMt4/UehTAvUHbXz/r5qPJ4hBRzrJ8CDeyaG0MtsSX +IW2D0iVngd8T1Ow7zQovGJrG2RWdgcX66q7yhVZ4t8B5gFedC5z41OiHCxag +4/fv2rLjOWAQbHOf1boA11eJQw01TkLwvdDE0h3WmBC2rUA5+ATcz28O6le1 +wevh5anu57Lgh2jip+lNGzzrxWrfOnwUAlmXpuW68rDJ56Buxr5M6DfIsrre +x8MF027KDw6lwy3hrw9DKbbY6F0Zs8ftMKxx1ENbHTscHmw8sOvfFJizNfm2 +SaUdBqx5el4zIAlU/9pS4urNR8OlAuUG20QQLtq3p8+Xj8cDZamjFolgse/I +oiw/PvIXPnf15CaCW1/xK8kGPq6o72z4rJYISa+HRgO38DH+6zyhycABGCmM +W7gngY8Ot6MsV9AHoNU2q+niJT7auueefadxAEJ3Cc84X+Wj5UkXT+mZB2D4 +6j/B34v5OPDeRoUjdwCUmZKf5mV8tCn0Pb93WADL5LS1Kir5aGHD+sulSQDl +zReDml7x8fK1jjO70gXgonDLOErCxx1ZlrnViQKQLKkZVm/j45IcOkdnrwB+ +3PmW4v+ej2MtISebwgRgXGB25WsXH+sWzzq6YSmJ1+oQldbNx7gO/7TnQOLN +WgWmfXxcdzv3IG+BAEKSdzVGDvHRmem0XZdN4lUm5c4e4WPf24712doCEIyd +DLwzxsdc3SZXJVUBKM2njdaO8/HWiSKr9BkCOLv1ztDEBB8FWSOa8rIC+B9n +NC2r "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.051012779622148764`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2287,19 +7236,19 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.051012779622148764`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2313,220 +7262,114 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVlnk8lN8Xxy2FKFlmxi5blH0dZsY894hkiaQICSlSIrssZZciSYsl2b5S -UUj2MYgoJUsoIbuiZMmSJfrN75/neb1f97nPOedzlnslnS9ZurAwMTFpMR7/ -f68Mtb6Wic/DWPAdogrcNlhPpmCQXl8kEgjo2DHLQ0SA73AW7EtGI4uYViWP -IQqwKPjM2peLbjQHGUbzWCPeWYHktc+lSPpaVd1OHlc0XGt+aelzIyqiD32w -4Q5AhjI/vi58/ojYYMAxiz0WrX3Wvjf/eQwZX7NK65u5h5r0H+d15S6iqTaF -SBmHfCQ6XP3NWXET9Y/NhobxlSCmRe/U1qObqHatYfddmRI0wSZvohq4iXxC -tGyziCXouXL6881Xm+hEWMaPNLsShF0N9ks9sYWGwgNZxXNLkKMYhaU98h8S -r2rgslN5gbqUhhIzZpjg5HS++ZkDpQh30bGAXZ8VhsYc2qaMypA8+38tFidY -IXX35K8K2zIEud/G0txZgdPTuSrwQhm62OchoniXFRz3s+/tii9Drw1CEywm -WUHqfdz5sQ9lyE8szTPt2jbg0RXSDDxSjrrbP6ortG0H9oGEMDWjCjR1nnDE -b2Q7PJocazY4UYG2ttm505e2g7bG3Upj1wokTxn974gYG4ywGEbsi65AkY/n -cH6ebKD+amZWp74CqYfv/FPLww4+Wp0eWeqVKFnNkGZuxQHNjRKrJ7irkMqA -7SGqGweYcSSXlgpXobZoj26FEA7I3ylrwiRXhdj67v7kyOEANacLTH6oCoVc -HRdpmuGApvYpIfqlKnT2fXiodvQO6C/vLfz4oQoRXWhUiZecYLVDBrcYVo26 -uTtauVs4ofdRmGfujWrkVTVmtdnHCTzf9MkG96pRARenZ/8WJ7yzKhRxLKhG -e0ptMu+acMHXu7wNC93ViOPf8hbHGBc4S23FxsnUoC+pqg0LPLvAP0tKx5NW -g9K7C3cH7N0FjcXRlnLNNciOW85xnbQLXtGnSJ3tNWgwSmyL5cwu+KTBe2Fh -tAaNeHLq4sp3we3aYQVvdhqaMpioJNpyQ4TUsLHLERp6GubITvPgBlX5vc+E -bWjoQk2/NYrkBoFGQlu9Ew3NqHQtHyrkBofXx/S/eNPQvHCdhu0mN6SFcLIb -36Gh1fmU4pCc3eCJcnpFummoWoH/37/y3aBGPcv8oZ+Ggl0TzaPf7YaYNtOf -HmM09Hcg+lfC4m749/PNxtUFGgofr8J3SPEAm2ii1BB3LYpuf3RsxI8H3opf -sLxtWIvi88I6WIR44Xx4dnHP01pkonmeDy/NCwd+K0a7FNcijteWVnJKvOC8 -fr7/Wxlj//jeAVM9XoAPCnhafS0KlWr7dvc8L8Rs02Ev6KlFntmCW7I1vKA1 -4C2Tt1GLFFVZ9EiveeHUr3V9jImOftT/jDJt54Ufa3w8rdvo6Nxw3Q6vMV5Q -bfOpKdlFR07iLvhqTj5IDbMufStOR0czXiianuSDWtcGBXGMjngUH1w65cIH -czd35r/Wo6N2WnTppUt8MEiv3mZ/kI5MBk7o3I3igzDR8aunDtPRAeEt/a+F -fDBf3fup0JaOmAq+x86V80GMnPbEF3s6qiN1tTI38EH9n1srq450RLHNOyLb -wwd2NFsKpysdaaaanLz0lw906kwagrzp6LecZmYEGz9M+e/2UvWjo5JKsdE7 -PPxwZMzFqC+AjpQ+z7tWyfDDObp/zEYIHckSUnyYzfhh8MaliqQYOpp4FF7O -f4IfTofSVbqu0VGu1oXVvaf54Waj7CrLDToSt6JeNfHnB/WECzfIiXQkcHf8 -+p2H/DBez2Wwfo+OBBXKo1fz+UFI5tuJxyl0JNwYG3aqhB/MYoTeHEpj7J/f -7y/XxA+y3VtvnTPoSOLaxqWENn6odQg7+/UhHUmJf7iw0MsPpviVi6ZZdLT3 -sJcTbYof2Kh1n5hzGf6O652U+M0PtCMSeib/0dG+YH7rmA1+ONOQJh+bR0eK -TypMj3DjgDnV7GZfPh0pozjDMgEcDGR/2T33mI5UP9nqCUniQJwiIbP2hI40 -tm0SxzVwYJneh5sqYOj5oF3NiIoD3N+B9bZCOiKqZys+N8SBiyA95tEzOtJp -9Zbjs8CBYLBNjfdzOiI76UsF2uJgMSL5oVoRHen+wYkNOuMg1OGE5iSDscRv -AnoXceDK+iAqoZiOYG8VX74/DuwlbZPkSuhIr/b6Lq4wHASJ3XOsYPCBYyc5 -vOJwMMlht6Lzgo4Mfiiy9t7GwanUGttiBhtGbG2SHuCgTqQrUaiUjowEO1cz -83Dg4V+fHshgk+KcRdYiHLDwFUe2Mviwoe+sWyUOQoY7TXe/pCPzrwbTHxpw -sGRwasOIwUf8CBPq73DQKXT3fgCDLbimhlK6cXDoYa1UKoMtc6u//B3EAd1j -76PnDD5Oiu85/Q0HfOEy0pUMtu6072iZw8EuAYHcMgbbnFN+p7CGg/s1p+Xy -GWy39e91Egse+FW8quIZbH+vq36ZCw/5F8vtXBh8SvG/Gjs8HvzvF/JrMNih -ya+8XhwPUwvdU0sM/53sDEtk9uGh/2vFcAGDnRcECq+r4WGgdXzzOIPPxk0/ -miXjwVZpwWiRoY/rHlr2MQM8vL4a2hLDYLeKhAdVZniok5cP3cngC2YO98VO -4MEo/tGlawy93SdUbkc6Mb4fys5fYeTnYghzwvfzeFBAvbJ2DPbk64497IsH -vjSWlReMfPpAQCghFg8m3edTMUb+/T4fCgy5hYcI24OBvoz6CPAU8hlJxQMT -/6naDEb9BGXUnisoxEPquw9JbU/pKFgj0Xl3OR6YH24qdDPqL/Sd4ym/OjxY -kgQOtjPqM3yV5RjWhQcDk02O3Ed0dO24MfZxBQ8dN1+GN2Qz+qmsXZiFmQC5 -O55eMmf0RxH/8T9qXASwiCHzdDD659NHh5LbewhgxN8c8ySdjmSO+kkdNSLA -OYlTkvQ7dFRVsrYVbkkAt5z+kNHbjPrgCRsosSdAv/fKm9VbdOTbcf0ujzcB -POIeWzEl0FGjWRZbZxoB3vlzKPlFMfL9XGb8338E2NZ5Yl01gjEvdxbUqxQR -4OgZy42Rq3TE21Z2+VYjAViaJ6qFgxn5M3n3w/wnAZjFLxBWLtHRpuFy+wdd -ASiIetV2jDHvkvKDCzcNBYBn82rPIWuGv2xMcUpHBUDY40WayjGGf82cejdd -BOBe7khYP2NeputLvDycKAD7aV1lmYjRj2Ca8n5YAMIz2nOmpOioLavTd2Na -AHTdxMpF9zDs/7OyUFgSgMHnUYSDIgw965x2xHMIwoha2pQPP0Mv3YAQEzVB -SNDXa9dnZcRPynFsjRSEfI7vPY0jjPMmm3vJNEEQroSzU28O1iIp9tC49nuC -EPXo3opZXy3q7LF+0f1EEIoC1a+UdtQiZa+drEPtgoCmm19y1NWiqfzA/N/C -QvC6jO35fGotsseZ/xJ5KQRwZEfVt0O1SCOEFpFZKwSpoerFNw7UIs6xfQTJ -FiHgd92+updai6qLWZHsFyFItr+cdUC9FhFMq5NU/wnBT5sOBbwow36EjOZB -U2HIM2Xyk52lIYO59WDPcWEok7zFrJlAQ0FGd+VfzQiDYSL4/Y6hoaIcpX7+ -FWGQLtS/9TSMhgSPO5GqOURgQR43xOzLOO+rmv+wKouAzL4V+klbGroTmeSX -dlkEzvYQomgyNDSGl/V8vUsU3v6x0zxTUYMidI+eFtYRA+ef22zxb6qRkUPm -b+0DYpAol7sjua4acYf/jLI6LAYnFGd9OCqqUUZTTH6SkxhodIeljuVVoyqT -mp9s18XgYnGLmVlkNZq3kQ5Y/CIGz1PSzbfrViMH/+UbbSHiwLes0GJYWIXI -RWllV+v3wA2Fziq9kEp0cXUh/O0uSVjzfgj54uVoTYFnSMlKCq5vFztz0r8U -6RY+y75/Xxrey2oVTFQXowU+EyfrRhnAi95zLCAUookEJ2sfdlkY27M15+2e -j4znAo0niXKwp+RM4/3QXDRzhsO3LGwfhFiULPCHPGTc1wVYrjXuB9nyOu0b -6ilo2vnQE8qb/ZBa9n47XiwFJeQEms+/3w/lH09hRewpqFu8L922dz+8P8s3 -zvX1PnISStNQnNoPru2Leb5x91EQt4hL1y55GDbI0fs9eg89WxV/K2IrDzTC -rY07WXcR3wfZxJI5eZjwod9INkhGW3Oqj94tyYODF3VWUC0Z/eCj1E6syQNn -uL14sVgyarQ58kNwmwIMXvFs4/xzG/lOBBpGCCrA/BhLxdWC26hn4+3WUT0F -cDh91uYY7jZKkXe/tJisAByXH0eyfb+FROOKLYhERTCrq1LhpMejgqLnTWtk -RbhywrmmMCse6fQWEhmnLNxXkhh2iYxHx6WeiBoYK0JO26sWaaN4lFCbPXXU -XhHcRVprX/fcQBvzt8M9IhWBLYs5L+n3ddRv61eS164InJ8PnFlHcShVgcTD -f04JJkRpAzZ7YpCV6YekOnclyLbcN6zFEYP43E/zXvBSgmdP6mLkFqJRfMF1 -vldBSqDK9iveqCkaXd3fj7uUoATP99L3hbtFo7NyIULvXyjBRqfzNlpFFFKT -pktF/VWCsjAzaU7nSDR74Oh/yszKsOFBYz5rFokKnCel+7crQ6sK2urUiUQy -ubv2qu1WhvcmgxITuyORoKSD3LCkMsj97Kr8VReBtsT/KVAOKcPokcrrURIR -6J2wntbibWVw2umZ1zoWhjrFi2W3pSjDh8kV0npNGPokJSaIz1AGr1pu3eN3 -wtCo/No6MV8Zblxk5oo2CEOr5BcNwTWM/y1mXe54chXJnpQ8zDKuDO1Z3q3r -l6+gyAfMZ3g1VcDndLxyOzEExWVdOi5FUoEah0wioyBR4n9fD2pgKiC0S2WY -tBCM0gqr91kZqYCvsGg65VkwKqF5z6baqwB+RdV3UzoYDQ2MBknEqMDcumuR -k3AQIos2Jql8UgGVA9tZPksGojFpmaHpfhWYvq1kFbI9EF1XiFXIG1aB854Z -FOp0AOojm7QITqtACLn/rNCLABRo+3GD+a8K9Dr4ZageCEB2pt4aP3hUYVDO -wKblvD+6H8cYb0RV8JpziJn94IsuJKg3C5FUYbj5UYZguS/CksZ/BlBUQfTz -hPupDF80mXKQpAaqkP6H+oXo7os0H+/oeWSsCteceSJlOX3Rx+bbO27Zq4L/ -y7OvJg/7IG7WXL/TkaqwXIzPM530Qmxr9ccWolUhVyE06+MHL7Q1+1U94poq -XBmPafOv8EJz/UIL2Qmq4CAea8ET54U6S297jNxXhZM7gwl3FL1QsnOEq2Oh -KmTeklv1WvZEhEYnm1M9qpBcZpuQZnURcVdd1f71SRWIz8g+5koXEVtRBuHK -F0Y843P6Wtsvoj9pfT0ZQ6qQc6BzPKXcHfV5WxwdnFKFp90rBYWC7ihdEkxO -bqpC58HPbmPfzyPxiD26trJqkKrOnUJ5eg4V+XJIfd2nBvPXPI95XTuHMNcF -9tMKaiC98NKtw+UcOmXa1O2mqgZNq67zXNLnUAb+nPtlshrcea1cG5TlioQK -itJTzNVg4ZfIBEu2C8J1U9d6A9Tg3oP2kPy6MyivWXbYNkgNIv1U/XtyziCN -qt3NX0PUIPzXrTtyMWeQ5cPRpMlwNThKj8vWPXwG3T4Xs2/5hhoMrmYVMC62 -iPtv2wlclhrszKbYpbE4ox177Sss36hB+udYjovnndAFIWRS2Mrwp57TOtXS -Cb3bJTXE2qYGFjXETyMUJ5Sw8n17eacacPHfX2vmdkLcb32tBPrVgCRgQ6W5 -OzL6PX5pYEYNxOvXAy35HJDoixp1Fz51kKz9ju+PPYlCHz1soePUwaRkx+Eu -x5Poa1q4HUFAHfSNH/5c0zmJMiMNI9+IqEP/4Z/JQz/tkMTxj13796qDwUv1 -urljdmjvn2mvWW11SMpGi6xKtkiZKlQceEod9kfs+3KL+QR6KX1+g8VJHXbM -EpqivlojHc7qQ4nO6oz7aqF1QbU1OvDZZiTvnDqMzv+OTfSxRtbeqbwfvdVh -7nesx7NvVijskYCfYqw6tPVyCHD2HUeduwik0SJ1sM8YOVnx1RJZLbnEXHyh -Du+CG0Nv1lui/v7yrj8v1cHpmSNfUo4lmnhsdYG7Wh1+HTnXRHC1RKt69x5Q -mtTB423UKZmFo0gyALd177M63OIJ28u3+yjyGeJrMmHSAN3IrqTsLnP0tsWe -XsCiAQtiGUcrc82ReHF+Jed2DVDRel7J7WeO3oWRn73boQGjYmrUqwLmSErS -+Z4JvwZMh217deK0Geo68+KciawGSIf3kUqZDiPV6SM7TQ5rQJwVlwvTRWMU -25XGVmCuAQ9bXo2kGxijwepxJs6jGvDf+tcvF8WMUdyNwOVWKw3oZ9tQq+gw -QiMKWUPGjhrgTOrh+Ew0QkmesyXGPhpwubKkgLD7EJpbTLAyTtWAd20Rri2T -BmiwL8f6YboGPEjQ9gxoNkDv6BUnFjI0QCzSd8fxRwYo79qIbVqOBgj0ugmk -uBggOxFNh+kCDYieiXUjTumj5gMDrtfpjHjGhG2eLh9AD27vv9w6pgEUot3k -dxU9FBeABYlNakCF8ffMEZweCjh5LNj7uwaYmakC0zogi71XQoVmNGBH/rrP -y9eA2Ko7w88va4DFAlVz4iQg75HA6zs4NMGB473ldSmEDqm0pBsraQJX5lk9 -LyVdZMNmdLxTRROeHVmUSvpLQRe+tu46oa4JO+MoQ5vvKSgx/kP4WW1N8H+4 -IfvKnYI+fe9xDdPTBK0HScwDRWR0NntcvdxKE0653r+1eYCEInmZ30tc1YT1 -rj06stlEdHcqMvpxuCZwEn3OaF4movz6bZhylCbM/nf0WpQFEb3z4HhBidOE -AltZ6jgzEfG+251inawJTo/UhDPPaaHsSPEzCfmaEH7v4XgJponqFikbf9o1 -QYeX6/qgoDrKaat0PtalCR1uqdTYdTUU/UjjXVG3Jjie2b7gMKiGjE8opLn0 -aULZUIlZRrYa6qkR1u4e1QQNqmADUlBDPyLWfIqWNGHlmk/agpEqIvBU/jgr -rAX+6kENuUZKaG1K3bJBVAtiJ1YbGglKaPBVUbXIHi1QdfIPVJtURDm++XEf -pbXg8EdOg7VIRaT4+Z4sKGlBZ97KftlGBXQg089ZBLRgD/2P8z1zeeSpqN7f -5aIFf8efSX/PkEP+f4TXHd204Bvx3ECOlxwKbWQVnr2gBT6+p4ufGsiheJte -W04vLTA9p9mU+UsWPYm+/OVAsBbcyPc5zasvi8YG6/peJmrBb+tLfSUbMsj6 -punne5VasMw7o0LPlkKnbDT/SNdoQUqbRD/5ihQ6Ky0mUFqrBfVKprf/2Eoh -3+pZ6/ZXjHhO2txUxEmhpMnbn9jatOBsivOzoHhJ9I7a1xs4ogU7b46OGsdI -IOrs2R7bHUSwsDxdd8xQDBFoh3JruYiwc5Y3yJZXDM1ek/faw00EUXvL6qpB -UZQpOc81yUeEOtz1rAg/UbR1PETfS5QIIfjZf0pPRFA97XZprAoR2HvzXUL2 -CCO963VJL62IEMlkTThtIoCErXMcCDZESFJ+fil1jwD6LRWtGGRHhCh5Syuh -ZQLKrTV+izkSgaIlu7ScTUAs8z3/Wt2IIN/l/2PXXzxqsv7pORJChJ/Z26St -63HooIyg2a5cIhC9pC4cC+RDZb+aJc/mEWFL8sFwshUfkqn0XanJJwJzhq3K -Tk0+tM2kI8utkBGPUNxcwQIvarwU+7upjAjOEXY7b13iRRhtKSX4DRF+t7Ar -5PnzIKJl19j3GSLUiPpYOhzdhfJFwiqxOYZ/a3IfWEV2IfykYsK9BSJQj95Z -YZ/ciZYC47T0VxhM+Px7f/BOVPoQxWX+I4JUyRz36ydcSGX6uZIVnzZsY953 -t4PAifaF37jcqK0NURNRLi7q7KiW8mj7YbI2+Fg4NwmzsiOLP/XJvbraILb3 -wYR8Dxu67Ln8bEpPG06KeP2wCWRDb+2dRrkPa8PCT3Ji/6vtyI1ENDnppA0a -+b2ffrpuQ3+XLD5POGvDTPjfKlbqNpRU4n7W00UbnGMWKi/yb0NVcjlXIy4w -7Gv891rlFSviIOx8+dhPGwLEWW0uSLCip79HRZbitCFzp74T8Rczwor+PrkS -rw37m1OTxd4yo4/nBYjsiYx43lKVzP5jRusjhy2E72hDoqTDzSg7ZmTSURkN -D7UhcNvOFqyNCf0ovPkr4YU2cE72hjMF/cPkXUj1e/u1YYspabw5bQO7JWW+ -HjWoDQf/46h/emYDWxp21hob0oYQ2YpPC0obWJ1dQmHmuDbkv3y+/VnTOmZp -MZwi8EsbOLx3F5YvrmFBlBivHUw6YJWU1Rnvsoq95e2S/LVXB65P4oe+xS9j -Sh2T9qb7dKCpr0mCcHoZS05YT3kqrwPc2XLT94jLmD27DLerig7EPL7bEz22 -hM39DVgf0tGBM28a3vFgSxhhSrS701QH3EgxtedZFzGXOrfoMm/Guo9jWFLT -PDbr8SPwoJ8O3FnNMdjKnMcui110/xSgA9KvZwoqg+exG6GXLFdDdOCf80ke -Lo15rIQcIKEbqwMtgy4jRuZz2N+KqNqmdB3YRdGvOEz6hcW6bi85/pBhzzRE -TmBtBttNuPbfZJYObJtI9zpXPYNJ+d+4wf5IB64yZfveo8xghzRu25gW68Cz -8CesXIY/seTizKWPTTowcdTPN9xnGhN1lJg606ID7C/2B6qRp7FH3LkDS291 -wJ5P6a0NyzRW5fGokdCuA4f8PZ6x3Z3Cvio8S7Lr0wFW04PHWmq/Y/ueVCuO -zehAyt2BPbzS37D67J6zC3gSyM4VibBTx7GRw5KOAYIkEBUZN8vjG8eY1jxs -N4RJkHbY3Sx9agw7cJTdfLsECbYui6zevDeGtTCTtYXkSTDHdkckYnEUa3PO -2qGHkcDVOeQha/0I9ot7hrUFSMAvrrdnKG0E46bpbJnokyBhOImT3X8Es+D/ -+Pu4EQn808WK9BRHsO6mbYNuliQ4JWJalqw7jPXLXChKciUB1z7PAUziK7bR -WfEEf54EHbwngzSGBzHRK6z/pbuTIHgwwb00cxA71ZuRkudFgvkR9T8mewax -kZiO8KpgEpSnbDS/lR3Avn/TPDaSSIIJP6G73OZfsKUn//6oVJIAb/JMe3Sl -F/tmbZh9vZoE6qsPv11924v1bbtpNE4jQVVG2mZQei9GcxJOu99AAiGLyYwY -1ItFCmqRN1tJ8PXj8YDhmz0YT9yF0HeDJBhQ1tTmoHRjLMQXMjLDJLAs9chU -4OvGlsb/tF0ZJcG2DfxQzvRH7DOKEVP7RoK11Mvu0Wkfscw/WXUpcwz7ZfKZ -PJtdmOK5XiYXFjKIqNN/13/sxMTxok/rtpFhrHL85duiToynyfmoIDsZJl8d -HxKO78QWxedz3nOR4WLpb+00g06s5hOnvjqeDF26Tm5f/TswI0OI+SdHhunY -RS+u8x+wM3sLd6SbkaGxhU2+urgVC252uCBrQQbJCfekIN9WLMmF732pJRma -X7bufKXditU+Ckp4f4IMVRSP9yOv3mI4WaPdm6fJIDdlFmQw+AZrkZ3EOQWQ -IWuy4tqzfS3YYEuq/8xlMgxr7bewX2rGfrse/nQ5hAx1blfIkQ3N2J7HL1Nu -h5PhXPBouKJdM3ZZLlK46QYZ3hu6pQ4nv8bk9+2RkM0iA87PznNGsAmDtx/D -S3PIoDR7tTX+ZyNm7RY7iuUx7CWPWSfXNWJRT37lnnhKhp+cQTe7XBqxwX21 -e6+/JIN03D4vpupXWOJ+W4WZN2RYT+mYcPFuwBbk7xBL58kgHvny4lPjWqyv -DQ7yLzL+99o7A89ZizV4zh7zW2asL9lVcr6nYYmlxt7EdTL40cPN4s1pmDyZ -6VkNKwWqT+5ofXOyBnM29pBsIlBgTjpCTT+xCjP+KawqI0QBQhDhb511FaZ6 -8y0WI0IBp/qLIi/3VGFbndL2hyQo0DW3Fsj0shJ7YNN///1+ChQ128zhhiuw -nnOHdvboUoBFWULA6nA5RtuxLKyFKHBCTrRyUqQcyy3M3X9fjwLhWyNbwz/L -MK+5TUMbQwp8uQOC3DfLsF2BZRGDRyjw5NCLLp2el5hhrOSfCWcKvIioovH4 -l2JVeRujy3EUcO96ala/UowR9f3+mMRTwLH7cOSjomKsfHRmZ/ZNCnCfJo3I -nSvGSsWHtE2SKVAnGsz990sR9iy14WbmAwrgH86F1Lc8x7ITYkiHihh62LuW -59EKMXGFLfOMEgoYKEk400ILsYetAWcXSilwLCZK7iRWiKWzud16UEmB86op -cWpNBdjdcJPJuQYKCEdkLQl3P8Wu++2+ndpNgdf2GX8XOJ9gHPxx+b96KfDy -la2gUM9jLPYFU+2BPgosd7T7VT18jEXPLnybGaRAjmwks736Y+yqW4+u3jcK -eAv7Woqczsd87NOmplcpULmkbfmkOw+zM5AGirgukGXeyrxhy8U2ezi4myR0 -ocL3+PLzLzlYtsvsgIm0LhzhTbZgfp6DfYutDrTbpwvj9zcapo/nYD6tR4qD -1HWBdNG1PP9pNnbDPFS8ylAXyuwICixtmZjS8OkZZKwL976md4ZdzcQ6Lx2q -eWOqCy962HSq1TIxwm0+688WurBbtCbCJv0hltv95OaKnS40Vx47KOyXgdXY -9P7VvKQLxvlHM8EoHTs1XfOu1lsXjE6MKlVsT8eYgrNTDfx0IStf8c+HpjTM -8IG75vEgXfgrzWQ+pJeGffzKfNE3ShfsymbP2h5MxX44Kw+8SNEF1VU+j6tu -9zERj2vVyg26MMH31PMw4Q6W+M9VK75RF+axvkNPppIxlmTDF99f68JaVeJR -D1oy9qNi+9PsVl0we89ireKcjNUwRafydetC1Mx/+4PLbmN2d8MDVyZ1gecK -06Hz7klYu6zTouWULhj07dOa00/CDlSjS8U/dOE2T/vjTtEkTH5oy9VtThde -JXENHMy6ha3JXbHuX9UFH6sC8pBPIpZKC9Kq46KCersi6xopAdtpbvtCmJsK -7fWkF/TleCx8REcpkIcKetT0IMnSeMxt+6qMKp4KzNj3dw2K8Zj2kQBcrjgV -dj2SUtXZfwP7NOazGKNGhRxaYOgoNQ7Dc158YXaCCvfNhj+d/xCN5elfCZ63 -pYIT1+PzZXejMfUrifp37KnwlDtL9659NGY+X9Lbd5oKWeVj9btmo7DYT8tr -Zy5S4b2R/vt6gShsNTfsQHAEFZh+P6n5Hh2BxQ4mcYlFU+EyeaV/8HgEhiPk -9tTHUqFW7Ajl6N4ITPX6a9ftCVSI3q5aVPomHDt/aUd80n0qzLIH5WvxhWP9 -lDvd+YVUeLMZN+4YfAVz88/LMC6iQuXQ/UO791/BVorKXWZKqBAqfO5CSl8o -xifV90etggptahp6+8mhmCmHmCi9gaEXZe25AHsIVtuTf7a7lwpNS20ax1su -YybcVUoBfVSY97FWuh9xmZH11hXBASqk289eT6JexpZqfsY5jFAh1TznX35l -IKaUo/p8+gcVVpHQhFxZAFbbrxeQ8IsKho8NB9f8AjAT3DGkMk8F6tusbn9i -AOZ6zb/Lb5kKjYGpo2dp/thSQ2y6wCoV9sq8utNz1R+LXE85U7NOBVoaf+j3 -A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== +1:eJwV1nk4VN0fAHCh0luWiJClGWbujJ0ihvH9KinK0mLrlcqWVCpJpMIkJKKU +pBSaMnfaKK82SmlBZYky8aaN3lL2CCW/8/vjPvN8nmfu955znvNdGAHbVgZL +S0lJSU8iD/kdbq95pH9YaP+l4XR6+ykL++az6jEOEgEc+y54pKE0E1C1PkBd +cgx8UvMzBhUZEOUhbpGRFMIVnlX/v4rmMLNn9rHRluvw6rPFsSpFB3hX7rbt +R8tDCNjNEu5XXAFO+l1v+1tegpaem12swgYYbVlwoq/lI6iaqPtE/bUDqhYV +CRsLByHmQOiB1dcSQOvd7c8BRuOwc4dUhuGcVJi1ZZ146iIZvJvvRxuoHYVj +5k533Tzl0Fbp26bbK0/Amxyzyn4leQwYpG9M0zkFh4Vx9dIaM/HeIunpS6fk +wezjnw5l5algUmnG9Kke+ZC82tn+5bAqajkYco3eF8BOm4J1NQJ1/HFUUtYZ +fh4ce8f2hH/SxNjv8YVSlUJIsFuxQdNaG39XdOqP/XcBeFdPle6/r4vnhA/M +DCYVgWNL3XhPtS6O2JeIBmWLwE1Kdsm6l7rY2/27/o5cEQSuDH8Dnbq4M0LT +aKFSETjFMuLiJ8/Fts/5apa6RbBdd/i8g+FcLD1y4+QluyJ4tPFcd1XUXOxc +XRnZuqsItoz0x1fLM3BZ0AMz3oci4O0IUfuszMDF8wq33ugoArmu1ksy6gxU +y+V9434pggttVa/tmQxcauorUugtgvZ7J4z+sWKgQ1gb5+bvInA/aCMpWMdA +dT1Vm8TZIrBQTjCNLWHgN35wgMIyEUgdHnqUU8ZAy2FvoambCOpkwtaU3WXg +bLRku60QweahlQf7HzNwOnXrq8BbBEKJftvGVgb6S1lvfxYoArVz1UmrZZhY +oZsRJ4kVwaihUruxJxOXa6V3fqRFMJynmTBvDRPDy+8bn7ssgh+KLH2bdUyc +JMlo8Lkmgp5BmzDHTUwM2uLKflQqgo93A4fX7GNirgNvVux9EdQuu6mQcoGJ +1a7208OaRZC72R8+DjHRerbCNNffIjj5NvTjf2NM9JwzVlf6RwTH3Xce7J5g +Yoxq6oDGJBqOzEt5NjJND0Xqqqv+nUyD4FeJt6KOHlIlYfscFGnYfHjydjsn +PUyPZJ9IZ9Bgd+lyfna2Hlob1kiMHWlom3vp3OLTepjzO0Ci7UTDnmz67I9z +elggJTw6fSkNNxMunllJk/+nFJu/X0aDhU9+jkK5Hm70VDcKX0UDd/LxzKQP +eji8zM9IO4AGtXWx8VFG+qhSf3pf9T4a/mmOiWOZ6+PryFCp7XE0rHaJ3t9s +qY8HjjIXqibQcMxy114L0Mfdmdoyvok0yM/YFt2zQh8z5uyKf5xKg+ztgO0h +u/WxJfRLlsVJGvqVXdZ7PdTHoH6vFP+rNEi2MBvCnupjZ0vqYNs1GiqfjEHc +c30URJy771VCQ+aeS7qi1/qo9Ccz1rGUBrOPM96Ndukjo+pWqtQdGsJL6tfm +qbCw3Dln6a9HNHhNF70oUWehNM+i0+0JDfbB8fwn2iyMLo3679xTsj4Nc+1e +ioX2wajDq6Xhcvyxf9GOhQoV/6x1r6ehy93z744gFj5fErtlXELDS9r42cgm +Ft7z4qVSrTTckZliK7+NhW18ibJ7Gw2HbpZpWsWwkPtrekj2Wxo4uuqtyeks +7C/+qj3lIw0be1p9DMtYuOlaIiOsiwa3pTeq4S4L19pUqG3+RoNV4WHr1ZUs +lPRu37vpOw1TvOzU99WyUH3wXq5/Dw0XK/Ja6tpZOKvL3thggIaOtPVeEVPZ +6HcxeNxplOy/y4hpNoON3o9tmpXGaPi5ZLS7W4mNDtKmuyTEf8kcO7hJk42V +QZVqG36T84upKl1vzMZ25dAP3hM07Atmq7ivYuOKvGlv22TFMKVqoH2GDxvD +iyP3CiaLIXPufXGtH3m/0ewbe4oYhG3eC51C2BjtMbBg01Qx1K44tIMfw8bU +K7I5TdPEoGb/vd7wHBuNIkT3QEEM+advnf56no15/zbEVhFzRxM3FonYWBNR +Jb9YUQx2pdoTzOskvu22EgclMQQauJtoPmbjn5iaSQxlMXxPnjPWUsPGwync +bVnEUZ3/PT5Rx8ZOyrBURkUMqfnxa2dK2Bg1NfHJW+Jitetpct/Y+ED3ulq0 +qhh4kft9nvSy8WbewmVviKsaXfQTf7DxbcHaNdZqYnid9unuxDgbY95fntZH +/Fta9duwEoXJNco3F6uLIWn9h7JSVQr7WT61J4gV710RRGhSuNuNefcTMTPG +SbNHj8Imu6dWMRpicO7d7dxpRaH9eH9+qqYYtMx1kuTsKOTdU26pI+6JePTQ +0IHCF7ZGGUpzxHB8WMkuYhmFJyohOY04xPpm9AkPCp9KLKufENvsWfvPLU8K +59Rrpf8hbh+nTSbWkfVtuS0M0SL7BY/NzGAK38mEj2QTH0gYLlocRuFB35kv +HxF7VZ3pCN1GYXONnkUfMWfyIkZaJIX6M9gaGtpiGHP6uvZaDIXpFqeSgfhF +Skbuy/0UFtN/9gUSR8z4V0XjEIW7pESyQmJHN4GH3RGy/719JyqJZ2dy0tdl +UXg2YX5JK3FXY12NIIfCCPufXgPE5Sq7plzMo/AHrzx5qo4YjnjOWVRTSOFK +n6mOmsQbTj6I+15E4e0GvzQD4vlvNpYrXqHQfIHDBmviKXMURi2uU7hmt03V +ImKJX6ml100KHV7VXl9OfOnsmoiYcgpNu/eYrSLe/17q2pkHFO65UW/nTezB +LPp2/wmFrpHuEh9iZpAr59MzCsOb4mX+76ELg0FTGinUe951bzVx9X+nCriv +KewqnjXdnTiXi+3L28j7hklfnIi3bP6suf09hWW2T73tiOFKmndWJ4Xzbdb7 +mhIr91ocL+ui0LnxTbcucYfZm4Y3vRRWTq1QVSAui4iTH/9Bvm+V1ThKzudQ +Kctl7hiF8vKfGZ+I/YafJS2aoHA4E6bWEptYR1SFyHJQTttAcJVYao+6VOo0 +Dv69wSwrk7jp7j27KwocnBv4lred+OJ4UEyDCgc37i2PcSWOhullg+oc/PS3 +rweHeFlCyYCaDgfrZfG+FLFOlbcpT4+DBXW/n7wm96PKSSiKN+bg6BPD87HE +2SkunectODhp6a1oF+LQ2j7G0wUcPHzE/asasYIb/7T8Qg7uu/g6T0Tu5/uM +Ty1mSziYEfTp41biG42HZq1ezkHFB/MfmxH7eL5Oz/XioPXdj4HXSD4YnNxb +W/E3Bx3f+DM2E49LmFM/rOegTrb/fn3iQr9t8dRmDhZvN9TIJPn1PVBuZ2kc +B08ptH9wIfnXc9ax4n4iBzuZuGRothh638RPfXaIgwxebEge8YD76OkPWRxs +2E43fyb5/dO265GCiINvDMzj/Ek9GIliK2pe4eDeaOHD4VkkH0oCfFnXOWjp +tPJRGvFvqq3btpyD1ZlZstdJfZGe9VxtUwMHa6ZYp3yYKQZZd7kNka84OBwj +92Ij8eRUx0txrRzcxExu/kbqmZxUBWR3kPU71Bl3k3qn8P1KaNUIBzuSXDVe +yYtB41HGHW0GF+uOL17FI/VTc+KZLJfNxZ43A1Py5Ej94Mm5zzfkYtbnsKRx +Um91iuM/uVhy0X9w+rebpB7rn9kxI9qZi9aynn8rk/ptFrnK/+UOLnp6j67x +/0P6/bUM0dsoLg7xV8w8O07DvK5nA19iueguaT7TRvqB1XrH5ImDXNTYUWnp +8YsG2+WWxUbk0j8Neh+nO0KTeXm2dPJDLi75UP/Lq5+GrwFLRLZPuZh96nDW +gT4a0gp2u/U94+L4zAceV3tpaNKR5Pq+4uL8x8f5f7ppWK9xap7RFy6WyNb2 +JJP+F6MwJ7hR3gCfla/RXfSJ9N8Rneo5vgZYUdrh4NdEg/sC9/CGtQY4yURJ +4PaShoFdcbMOBhig5eYvP+0babAZfLe+Z7MB1uqWJGmSfv2kO3+0cr8BNqIB +lJN+/u4j0zBEaIBXH8dmih/QoPyCfaS4l8QTKwVakXnjT6/ZhdofBig/z665 ++TLp98q25R2jBtiZdtB+xyUaHvq4d6nLGuLLEZNJQhENOzt2OyWoG+KQmurK +/kIamn9V/1nhYIhRD06XG5J55qTB5m2DxwxxcKXfMf39NGilXPOwsjJCf/ut +z13JPCa+eqVqlGeEKcK26gwyr1m/umRVAUb4/lwYp2EhmaeYIi1HZyM8mu2i +shzIeZbnf1nhZ4TL6+6IzKxp+NV3NH6rwAhjVSa8r3BpaPWNLBbWGWETV/pX +9HQacgxtlFQ2GmPFX6UOsbVkHtV0sBw8aoLPjOxe+PJEwNN6mGn62hRHc9xu +uyQXgYJMYeQGgRlm35h39uCLi6CToGvnyzZH01APtRcDF2Aay69s5VNz/PPa +5GuU/AUw4Wtc273WAndmH9PSMhZCRLtylYvUPKwR3DdmmZ+H3sE0T+eceUh5 +Jr6zwkJYYvok19l4PqaMt4/UehTAvUHbXz/r5qPJ4hBRzrJ8CDeyaG0MtsSX +IW2D0iVngd8T1Ow7zQovGJrG2RWdgcX66q7yhVZ4t8B5gFedC5z41OiHCxag +4/fv2rLjOWAQbHOf1boA11eJQw01TkLwvdDE0h3WmBC2rUA5+ATcz28O6le1 +wevh5anu57Lgh2jip+lNGzzrxWrfOnwUAlmXpuW68rDJ56Buxr5M6DfIsrre +x8MF027KDw6lwy3hrw9DKbbY6F0Zs8ftMKxx1ENbHTscHmw8sOvfFJizNfm2 +SaUdBqx5el4zIAlU/9pS4urNR8OlAuUG20QQLtq3p8+Xj8cDZamjFolgse/I +oiw/PvIXPnf15CaCW1/xK8kGPq6o72z4rJYISa+HRgO38DH+6zyhycABGCmM +W7gngY8Ot6MsV9AHoNU2q+niJT7auueefadxAEJ3Cc84X+Wj5UkXT+mZB2D4 +6j/B34v5OPDeRoUjdwCUmZKf5mV8tCn0Pb93WADL5LS1Kir5aGHD+sulSQDl +zReDml7x8fK1jjO70gXgonDLOErCxx1ZlrnViQKQLKkZVm/j45IcOkdnrwB+ +3PmW4v+ej2MtISebwgRgXGB25WsXH+sWzzq6YSmJ1+oQldbNx7gO/7TnQOLN +WgWmfXxcdzv3IG+BAEKSdzVGDvHRmem0XZdN4lUm5c4e4WPf24712doCEIyd +DLwzxsdc3SZXJVUBKM2njdaO8/HWiSKr9BkCOLv1ztDEBB8FWSOa8rIC+B9n +NC2r "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "PlotRange" -> {{0, 30}, {0., 0.051012779622148764`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2537,6 +7380,7 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2564,7 +7408,8 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.051012779622148764`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2572,25 +7417,866 @@ A/4Yj+ZTxVObVPB/2v77Abs/lulRs/zvHxUuqFscn2/zw/4Hhp/tww== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991340117671425*^9}, + CellChangeTimes->{3.991340117671425*^9, 3.9938268672594023`*^9}, CellLabel-> - "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] + "Out[189]=",ExpressionUUID->"4a3ff87b-cc26-460a-9993-e7e081d8893d"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ -2bd9764114a1"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.004388"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.013039"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.021317"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.028996"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.035881"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.041813"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.046685"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.050429"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.053035"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.054525"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.054971"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.054465"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.053131"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.051096"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.045494"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.042194"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.038723"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.03519"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.031681"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.028272"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.025018"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.021962"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.019131"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.016543"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.014202"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.01211"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.010256"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.00863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.007216"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.005996"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9938218097787867`*^9}, + Background->RGBColor[0.4, 0.6, 1, 0.33], + CellLabel-> + "In[190]:=",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.054971}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993826867420971*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"f9315370-cfc3-4fe0-9c52-454b30c065af"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ -0ac982b58a3a"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[191]:=",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk4VN0fAHCh0luWiJClGWbujJ0ihvH9KinK0mLrlcqWVCpJpMIkJKKU +pBSaMnfaKK82SmlBZYky8aaN3lL2CCW/8/vjPvN8nmfu955znvNdGAHbVgZL +S0lJSU8iD/kdbq95pH9YaP+l4XR6+ykL++az6jEOEgEc+y54pKE0E1C1PkBd +cgx8UvMzBhUZEOUhbpGRFMIVnlX/v4rmMLNn9rHRluvw6rPFsSpFB3hX7rbt +R8tDCNjNEu5XXAFO+l1v+1tegpaem12swgYYbVlwoq/lI6iaqPtE/bUDqhYV +CRsLByHmQOiB1dcSQOvd7c8BRuOwc4dUhuGcVJi1ZZ146iIZvJvvRxuoHYVj +5k533Tzl0Fbp26bbK0/Amxyzyn4leQwYpG9M0zkFh4Vx9dIaM/HeIunpS6fk +wezjnw5l5algUmnG9Kke+ZC82tn+5bAqajkYco3eF8BOm4J1NQJ1/HFUUtYZ +fh4ce8f2hH/SxNjv8YVSlUJIsFuxQdNaG39XdOqP/XcBeFdPle6/r4vnhA/M +DCYVgWNL3XhPtS6O2JeIBmWLwE1Kdsm6l7rY2/27/o5cEQSuDH8Dnbq4M0LT +aKFSETjFMuLiJ8/Fts/5apa6RbBdd/i8g+FcLD1y4+QluyJ4tPFcd1XUXOxc +XRnZuqsItoz0x1fLM3BZ0AMz3oci4O0IUfuszMDF8wq33ugoArmu1ksy6gxU +y+V9434pggttVa/tmQxcauorUugtgvZ7J4z+sWKgQ1gb5+bvInA/aCMpWMdA +dT1Vm8TZIrBQTjCNLWHgN35wgMIyEUgdHnqUU8ZAy2FvoambCOpkwtaU3WXg +bLRku60QweahlQf7HzNwOnXrq8BbBEKJftvGVgb6S1lvfxYoArVz1UmrZZhY +oZsRJ4kVwaihUruxJxOXa6V3fqRFMJynmTBvDRPDy+8bn7ssgh+KLH2bdUyc +JMlo8Lkmgp5BmzDHTUwM2uLKflQqgo93A4fX7GNirgNvVux9EdQuu6mQcoGJ +1a7208OaRZC72R8+DjHRerbCNNffIjj5NvTjf2NM9JwzVlf6RwTH3Xce7J5g +Yoxq6oDGJBqOzEt5NjJND0Xqqqv+nUyD4FeJt6KOHlIlYfscFGnYfHjydjsn +PUyPZJ9IZ9Bgd+lyfna2Hlob1kiMHWlom3vp3OLTepjzO0Ci7UTDnmz67I9z +elggJTw6fSkNNxMunllJk/+nFJu/X0aDhU9+jkK5Hm70VDcKX0UDd/LxzKQP +eji8zM9IO4AGtXWx8VFG+qhSf3pf9T4a/mmOiWOZ6+PryFCp7XE0rHaJ3t9s +qY8HjjIXqibQcMxy114L0Mfdmdoyvok0yM/YFt2zQh8z5uyKf5xKg+ztgO0h +u/WxJfRLlsVJGvqVXdZ7PdTHoH6vFP+rNEi2MBvCnupjZ0vqYNs1GiqfjEHc +c30URJy771VCQ+aeS7qi1/qo9Ccz1rGUBrOPM96Ndukjo+pWqtQdGsJL6tfm +qbCw3Dln6a9HNHhNF70oUWehNM+i0+0JDfbB8fwn2iyMLo3679xTsj4Nc+1e +ioX2wajDq6Xhcvyxf9GOhQoV/6x1r6ehy93z744gFj5fErtlXELDS9r42cgm +Ft7z4qVSrTTckZliK7+NhW18ibJ7Gw2HbpZpWsWwkPtrekj2Wxo4uuqtyeks +7C/+qj3lIw0be1p9DMtYuOlaIiOsiwa3pTeq4S4L19pUqG3+RoNV4WHr1ZUs +lPRu37vpOw1TvOzU99WyUH3wXq5/Dw0XK/Ja6tpZOKvL3thggIaOtPVeEVPZ +6HcxeNxplOy/y4hpNoON3o9tmpXGaPi5ZLS7W4mNDtKmuyTEf8kcO7hJk42V +QZVqG36T84upKl1vzMZ25dAP3hM07Atmq7ivYuOKvGlv22TFMKVqoH2GDxvD +iyP3CiaLIXPufXGtH3m/0ewbe4oYhG3eC51C2BjtMbBg01Qx1K44tIMfw8bU +K7I5TdPEoGb/vd7wHBuNIkT3QEEM+advnf56no15/zbEVhFzRxM3FonYWBNR +Jb9YUQx2pdoTzOskvu22EgclMQQauJtoPmbjn5iaSQxlMXxPnjPWUsPGwync +bVnEUZ3/PT5Rx8ZOyrBURkUMqfnxa2dK2Bg1NfHJW+Jitetpct/Y+ED3ulq0 +qhh4kft9nvSy8WbewmVviKsaXfQTf7DxbcHaNdZqYnid9unuxDgbY95fntZH +/Fta9duwEoXJNco3F6uLIWn9h7JSVQr7WT61J4gV710RRGhSuNuNefcTMTPG +SbNHj8Imu6dWMRpicO7d7dxpRaH9eH9+qqYYtMx1kuTsKOTdU26pI+6JePTQ +0IHCF7ZGGUpzxHB8WMkuYhmFJyohOY04xPpm9AkPCp9KLKufENvsWfvPLU8K +59Rrpf8hbh+nTSbWkfVtuS0M0SL7BY/NzGAK38mEj2QTH0gYLlocRuFB35kv +HxF7VZ3pCN1GYXONnkUfMWfyIkZaJIX6M9gaGtpiGHP6uvZaDIXpFqeSgfhF +Skbuy/0UFtN/9gUSR8z4V0XjEIW7pESyQmJHN4GH3RGy/719JyqJZ2dy0tdl +UXg2YX5JK3FXY12NIIfCCPufXgPE5Sq7plzMo/AHrzx5qo4YjnjOWVRTSOFK +n6mOmsQbTj6I+15E4e0GvzQD4vlvNpYrXqHQfIHDBmviKXMURi2uU7hmt03V +ImKJX6ml100KHV7VXl9OfOnsmoiYcgpNu/eYrSLe/17q2pkHFO65UW/nTezB +LPp2/wmFrpHuEh9iZpAr59MzCsOb4mX+76ELg0FTGinUe951bzVx9X+nCriv +KewqnjXdnTiXi+3L28j7hklfnIi3bP6suf09hWW2T73tiOFKmndWJ4Xzbdb7 +mhIr91ocL+ui0LnxTbcucYfZm4Y3vRRWTq1QVSAui4iTH/9Bvm+V1ThKzudQ +Kctl7hiF8vKfGZ+I/YafJS2aoHA4E6bWEptYR1SFyHJQTttAcJVYao+6VOo0 +Dv69wSwrk7jp7j27KwocnBv4lred+OJ4UEyDCgc37i2PcSWOhullg+oc/PS3 +rweHeFlCyYCaDgfrZfG+FLFOlbcpT4+DBXW/n7wm96PKSSiKN+bg6BPD87HE +2SkunectODhp6a1oF+LQ2j7G0wUcPHzE/asasYIb/7T8Qg7uu/g6T0Tu5/uM +Ty1mSziYEfTp41biG42HZq1ezkHFB/MfmxH7eL5Oz/XioPXdj4HXSD4YnNxb +W/E3Bx3f+DM2E49LmFM/rOegTrb/fn3iQr9t8dRmDhZvN9TIJPn1PVBuZ2kc +B08ptH9wIfnXc9ax4n4iBzuZuGRothh638RPfXaIgwxebEge8YD76OkPWRxs +2E43fyb5/dO265GCiINvDMzj/Ek9GIliK2pe4eDeaOHD4VkkH0oCfFnXOWjp +tPJRGvFvqq3btpyD1ZlZstdJfZGe9VxtUwMHa6ZYp3yYKQZZd7kNka84OBwj +92Ij8eRUx0txrRzcxExu/kbqmZxUBWR3kPU71Bl3k3qn8P1KaNUIBzuSXDVe +yYtB41HGHW0GF+uOL17FI/VTc+KZLJfNxZ43A1Py5Ej94Mm5zzfkYtbnsKRx +Um91iuM/uVhy0X9w+rebpB7rn9kxI9qZi9aynn8rk/ptFrnK/+UOLnp6j67x +/0P6/bUM0dsoLg7xV8w8O07DvK5nA19iueguaT7TRvqB1XrH5ImDXNTYUWnp +8YsG2+WWxUbk0j8Neh+nO0KTeXm2dPJDLi75UP/Lq5+GrwFLRLZPuZh96nDW +gT4a0gp2u/U94+L4zAceV3tpaNKR5Pq+4uL8x8f5f7ppWK9xap7RFy6WyNb2 +JJP+F6MwJ7hR3gCfla/RXfSJ9N8Rneo5vgZYUdrh4NdEg/sC9/CGtQY4yURJ +4PaShoFdcbMOBhig5eYvP+0babAZfLe+Z7MB1uqWJGmSfv2kO3+0cr8BNqIB +lJN+/u4j0zBEaIBXH8dmih/QoPyCfaS4l8QTKwVakXnjT6/ZhdofBig/z665 ++TLp98q25R2jBtiZdtB+xyUaHvq4d6nLGuLLEZNJQhENOzt2OyWoG+KQmurK +/kIamn9V/1nhYIhRD06XG5J55qTB5m2DxwxxcKXfMf39NGilXPOwsjJCf/ut +z13JPCa+eqVqlGeEKcK26gwyr1m/umRVAUb4/lwYp2EhmaeYIi1HZyM8mu2i +shzIeZbnf1nhZ4TL6+6IzKxp+NV3NH6rwAhjVSa8r3BpaPWNLBbWGWETV/pX +9HQacgxtlFQ2GmPFX6UOsbVkHtV0sBw8aoLPjOxe+PJEwNN6mGn62hRHc9xu +uyQXgYJMYeQGgRlm35h39uCLi6CToGvnyzZH01APtRcDF2Aay69s5VNz/PPa +5GuU/AUw4Wtc273WAndmH9PSMhZCRLtylYvUPKwR3DdmmZ+H3sE0T+eceUh5 +Jr6zwkJYYvok19l4PqaMt4/UehTAvUHbXz/r5qPJ4hBRzrJ8CDeyaG0MtsSX +IW2D0iVngd8T1Ow7zQovGJrG2RWdgcX66q7yhVZ4t8B5gFedC5z41OiHCxag +4/fv2rLjOWAQbHOf1boA11eJQw01TkLwvdDE0h3WmBC2rUA5+ATcz28O6le1 +wevh5anu57Lgh2jip+lNGzzrxWrfOnwUAlmXpuW68rDJ56Buxr5M6DfIsrre +x8MF027KDw6lwy3hrw9DKbbY6F0Zs8ftMKxx1ENbHTscHmw8sOvfFJizNfm2 +SaUdBqx5el4zIAlU/9pS4urNR8OlAuUG20QQLtq3p8+Xj8cDZamjFolgse/I +oiw/PvIXPnf15CaCW1/xK8kGPq6o72z4rJYISa+HRgO38DH+6zyhycABGCmM +W7gngY8Ot6MsV9AHoNU2q+niJT7auueefadxAEJ3Cc84X+Wj5UkXT+mZB2D4 +6j/B34v5OPDeRoUjdwCUmZKf5mV8tCn0Pb93WADL5LS1Kir5aGHD+sulSQDl +zReDml7x8fK1jjO70gXgonDLOErCxx1ZlrnViQKQLKkZVm/j45IcOkdnrwB+ +3PmW4v+ej2MtISebwgRgXGB25WsXH+sWzzq6YSmJ1+oQldbNx7gO/7TnQOLN +WgWmfXxcdzv3IG+BAEKSdzVGDvHRmem0XZdN4lUm5c4e4WPf24712doCEIyd +DLwzxsdc3SZXJVUBKM2njdaO8/HWiSKr9BkCOLv1ztDEBB8FWSOa8rIC+B9n +NC2r + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VN0fAHCh0luWiJClGWbujJ0ihvH9KinK0mLrlcqWVCpJpMIkJKKU +pBSaMnfaKK82SmlBZYky8aaN3lL2CCW/8/vjPvN8nmfu955znvNdGAHbVgZL +S0lJSU8iD/kdbq95pH9YaP+l4XR6+ykL++az6jEOEgEc+y54pKE0E1C1PkBd +cgx8UvMzBhUZEOUhbpGRFMIVnlX/v4rmMLNn9rHRluvw6rPFsSpFB3hX7rbt +R8tDCNjNEu5XXAFO+l1v+1tegpaem12swgYYbVlwoq/lI6iaqPtE/bUDqhYV +CRsLByHmQOiB1dcSQOvd7c8BRuOwc4dUhuGcVJi1ZZ146iIZvJvvRxuoHYVj +5k533Tzl0Fbp26bbK0/Amxyzyn4leQwYpG9M0zkFh4Vx9dIaM/HeIunpS6fk +wezjnw5l5algUmnG9Kke+ZC82tn+5bAqajkYco3eF8BOm4J1NQJ1/HFUUtYZ +fh4ce8f2hH/SxNjv8YVSlUJIsFuxQdNaG39XdOqP/XcBeFdPle6/r4vnhA/M +DCYVgWNL3XhPtS6O2JeIBmWLwE1Kdsm6l7rY2/27/o5cEQSuDH8Dnbq4M0LT +aKFSETjFMuLiJ8/Fts/5apa6RbBdd/i8g+FcLD1y4+QluyJ4tPFcd1XUXOxc +XRnZuqsItoz0x1fLM3BZ0AMz3oci4O0IUfuszMDF8wq33ugoArmu1ksy6gxU +y+V9434pggttVa/tmQxcauorUugtgvZ7J4z+sWKgQ1gb5+bvInA/aCMpWMdA +dT1Vm8TZIrBQTjCNLWHgN35wgMIyEUgdHnqUU8ZAy2FvoambCOpkwtaU3WXg +bLRku60QweahlQf7HzNwOnXrq8BbBEKJftvGVgb6S1lvfxYoArVz1UmrZZhY +oZsRJ4kVwaihUruxJxOXa6V3fqRFMJynmTBvDRPDy+8bn7ssgh+KLH2bdUyc +JMlo8Lkmgp5BmzDHTUwM2uLKflQqgo93A4fX7GNirgNvVux9EdQuu6mQcoGJ +1a7208OaRZC72R8+DjHRerbCNNffIjj5NvTjf2NM9JwzVlf6RwTH3Xce7J5g +Yoxq6oDGJBqOzEt5NjJND0Xqqqv+nUyD4FeJt6KOHlIlYfscFGnYfHjydjsn +PUyPZJ9IZ9Bgd+lyfna2Hlob1kiMHWlom3vp3OLTepjzO0Ci7UTDnmz67I9z +elggJTw6fSkNNxMunllJk/+nFJu/X0aDhU9+jkK5Hm70VDcKX0UDd/LxzKQP +eji8zM9IO4AGtXWx8VFG+qhSf3pf9T4a/mmOiWOZ6+PryFCp7XE0rHaJ3t9s +qY8HjjIXqibQcMxy114L0Mfdmdoyvok0yM/YFt2zQh8z5uyKf5xKg+ztgO0h +u/WxJfRLlsVJGvqVXdZ7PdTHoH6vFP+rNEi2MBvCnupjZ0vqYNs1GiqfjEHc +c30URJy771VCQ+aeS7qi1/qo9Ccz1rGUBrOPM96Ndukjo+pWqtQdGsJL6tfm +qbCw3Dln6a9HNHhNF70oUWehNM+i0+0JDfbB8fwn2iyMLo3679xTsj4Nc+1e +ioX2wajDq6Xhcvyxf9GOhQoV/6x1r6ehy93z744gFj5fErtlXELDS9r42cgm +Ft7z4qVSrTTckZliK7+NhW18ibJ7Gw2HbpZpWsWwkPtrekj2Wxo4uuqtyeks +7C/+qj3lIw0be1p9DMtYuOlaIiOsiwa3pTeq4S4L19pUqG3+RoNV4WHr1ZUs +lPRu37vpOw1TvOzU99WyUH3wXq5/Dw0XK/Ja6tpZOKvL3thggIaOtPVeEVPZ +6HcxeNxplOy/y4hpNoON3o9tmpXGaPi5ZLS7W4mNDtKmuyTEf8kcO7hJk42V +QZVqG36T84upKl1vzMZ25dAP3hM07Atmq7ivYuOKvGlv22TFMKVqoH2GDxvD +iyP3CiaLIXPufXGtH3m/0ewbe4oYhG3eC51C2BjtMbBg01Qx1K44tIMfw8bU +K7I5TdPEoGb/vd7wHBuNIkT3QEEM+advnf56no15/zbEVhFzRxM3FonYWBNR +Jb9YUQx2pdoTzOskvu22EgclMQQauJtoPmbjn5iaSQxlMXxPnjPWUsPGwync +bVnEUZ3/PT5Rx8ZOyrBURkUMqfnxa2dK2Bg1NfHJW+Jitetpct/Y+ED3ulq0 +qhh4kft9nvSy8WbewmVviKsaXfQTf7DxbcHaNdZqYnid9unuxDgbY95fntZH +/Fta9duwEoXJNco3F6uLIWn9h7JSVQr7WT61J4gV710RRGhSuNuNefcTMTPG +SbNHj8Imu6dWMRpicO7d7dxpRaH9eH9+qqYYtMx1kuTsKOTdU26pI+6JePTQ +0IHCF7ZGGUpzxHB8WMkuYhmFJyohOY04xPpm9AkPCp9KLKufENvsWfvPLU8K +59Rrpf8hbh+nTSbWkfVtuS0M0SL7BY/NzGAK38mEj2QTH0gYLlocRuFB35kv +HxF7VZ3pCN1GYXONnkUfMWfyIkZaJIX6M9gaGtpiGHP6uvZaDIXpFqeSgfhF +Skbuy/0UFtN/9gUSR8z4V0XjEIW7pESyQmJHN4GH3RGy/719JyqJZ2dy0tdl +UXg2YX5JK3FXY12NIIfCCPufXgPE5Sq7plzMo/AHrzx5qo4YjnjOWVRTSOFK +n6mOmsQbTj6I+15E4e0GvzQD4vlvNpYrXqHQfIHDBmviKXMURi2uU7hmt03V +ImKJX6ml100KHV7VXl9OfOnsmoiYcgpNu/eYrSLe/17q2pkHFO65UW/nTezB +LPp2/wmFrpHuEh9iZpAr59MzCsOb4mX+76ELg0FTGinUe951bzVx9X+nCriv +KewqnjXdnTiXi+3L28j7hklfnIi3bP6suf09hWW2T73tiOFKmndWJ4Xzbdb7 +mhIr91ocL+ui0LnxTbcucYfZm4Y3vRRWTq1QVSAui4iTH/9Bvm+V1ThKzudQ +Kctl7hiF8vKfGZ+I/YafJS2aoHA4E6bWEptYR1SFyHJQTttAcJVYao+6VOo0 +Dv69wSwrk7jp7j27KwocnBv4lred+OJ4UEyDCgc37i2PcSWOhullg+oc/PS3 +rweHeFlCyYCaDgfrZfG+FLFOlbcpT4+DBXW/n7wm96PKSSiKN+bg6BPD87HE +2SkunectODhp6a1oF+LQ2j7G0wUcPHzE/asasYIb/7T8Qg7uu/g6T0Tu5/uM +Ty1mSziYEfTp41biG42HZq1ezkHFB/MfmxH7eL5Oz/XioPXdj4HXSD4YnNxb +W/E3Bx3f+DM2E49LmFM/rOegTrb/fn3iQr9t8dRmDhZvN9TIJPn1PVBuZ2kc +B08ptH9wIfnXc9ax4n4iBzuZuGRothh638RPfXaIgwxebEge8YD76OkPWRxs +2E43fyb5/dO265GCiINvDMzj/Ek9GIliK2pe4eDeaOHD4VkkH0oCfFnXOWjp +tPJRGvFvqq3btpyD1ZlZstdJfZGe9VxtUwMHa6ZYp3yYKQZZd7kNka84OBwj +92Ij8eRUx0txrRzcxExu/kbqmZxUBWR3kPU71Bl3k3qn8P1KaNUIBzuSXDVe +yYtB41HGHW0GF+uOL17FI/VTc+KZLJfNxZ43A1Py5Ej94Mm5zzfkYtbnsKRx +Um91iuM/uVhy0X9w+rebpB7rn9kxI9qZi9aynn8rk/ptFrnK/+UOLnp6j67x +/0P6/bUM0dsoLg7xV8w8O07DvK5nA19iueguaT7TRvqB1XrH5ImDXNTYUWnp +8YsG2+WWxUbk0j8Neh+nO0KTeXm2dPJDLi75UP/Lq5+GrwFLRLZPuZh96nDW +gT4a0gp2u/U94+L4zAceV3tpaNKR5Pq+4uL8x8f5f7ppWK9xap7RFy6WyNb2 +JJP+F6MwJ7hR3gCfla/RXfSJ9N8Rneo5vgZYUdrh4NdEg/sC9/CGtQY4yURJ +4PaShoFdcbMOBhig5eYvP+0babAZfLe+Z7MB1uqWJGmSfv2kO3+0cr8BNqIB +lJN+/u4j0zBEaIBXH8dmih/QoPyCfaS4l8QTKwVakXnjT6/ZhdofBig/z665 ++TLp98q25R2jBtiZdtB+xyUaHvq4d6nLGuLLEZNJQhENOzt2OyWoG+KQmurK +/kIamn9V/1nhYIhRD06XG5J55qTB5m2DxwxxcKXfMf39NGilXPOwsjJCf/ut +z13JPCa+eqVqlGeEKcK26gwyr1m/umRVAUb4/lwYp2EhmaeYIi1HZyM8mu2i +shzIeZbnf1nhZ4TL6+6IzKxp+NV3NH6rwAhjVSa8r3BpaPWNLBbWGWETV/pX +9HQacgxtlFQ2GmPFX6UOsbVkHtV0sBw8aoLPjOxe+PJEwNN6mGn62hRHc9xu +uyQXgYJMYeQGgRlm35h39uCLi6CToGvnyzZH01APtRcDF2Aay69s5VNz/PPa +5GuU/AUw4Wtc273WAndmH9PSMhZCRLtylYvUPKwR3DdmmZ+H3sE0T+eceUh5 +Jr6zwkJYYvok19l4PqaMt4/UehTAvUHbXz/r5qPJ4hBRzrJ8CDeyaG0MtsSX +IW2D0iVngd8T1Ow7zQovGJrG2RWdgcX66q7yhVZ4t8B5gFedC5z41OiHCxag +4/fv2rLjOWAQbHOf1boA11eJQw01TkLwvdDE0h3WmBC2rUA5+ATcz28O6le1 +wevh5anu57Lgh2jip+lNGzzrxWrfOnwUAlmXpuW68rDJ56Buxr5M6DfIsrre +x8MF027KDw6lwy3hrw9DKbbY6F0Zs8ftMKxx1ENbHTscHmw8sOvfFJizNfm2 +SaUdBqx5el4zIAlU/9pS4urNR8OlAuUG20QQLtq3p8+Xj8cDZamjFolgse/I +oiw/PvIXPnf15CaCW1/xK8kGPq6o72z4rJYISa+HRgO38DH+6zyhycABGCmM +W7gngY8Ot6MsV9AHoNU2q+niJT7auueefadxAEJ3Cc84X+Wj5UkXT+mZB2D4 +6j/B34v5OPDeRoUjdwCUmZKf5mV8tCn0Pb93WADL5LS1Kir5aGHD+sulSQDl +zReDml7x8fK1jjO70gXgonDLOErCxx1ZlrnViQKQLKkZVm/j45IcOkdnrwB+ +3PmW4v+ej2MtISebwgRgXGB25WsXH+sWzzq6YSmJ1+oQldbNx7gO/7TnQOLN +WgWmfXxcdzv3IG+BAEKSdzVGDvHRmem0XZdN4lUm5c4e4WPf24712doCEIyd +DLwzxsdc3SZXJVUBKM2njdaO8/HWiSKr9BkCOLv1ztDEBB8FWSOa8rIC+B9n +NC2r + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.051012779622148764`}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.051012779622148764`}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk4VN0fAHCh0luWiJClGWbujJ0ihvH9KinK0mLrlcqWVCpJpMIkJKKU +pBSaMnfaKK82SmlBZYky8aaN3lL2CCW/8/vjPvN8nmfu955znvNdGAHbVgZL +S0lJSU8iD/kdbq95pH9YaP+l4XR6+ykL++az6jEOEgEc+y54pKE0E1C1PkBd +cgx8UvMzBhUZEOUhbpGRFMIVnlX/v4rmMLNn9rHRluvw6rPFsSpFB3hX7rbt +R8tDCNjNEu5XXAFO+l1v+1tegpaem12swgYYbVlwoq/lI6iaqPtE/bUDqhYV +CRsLByHmQOiB1dcSQOvd7c8BRuOwc4dUhuGcVJi1ZZ146iIZvJvvRxuoHYVj +5k533Tzl0Fbp26bbK0/Amxyzyn4leQwYpG9M0zkFh4Vx9dIaM/HeIunpS6fk +wezjnw5l5algUmnG9Kke+ZC82tn+5bAqajkYco3eF8BOm4J1NQJ1/HFUUtYZ +fh4ce8f2hH/SxNjv8YVSlUJIsFuxQdNaG39XdOqP/XcBeFdPle6/r4vnhA/M +DCYVgWNL3XhPtS6O2JeIBmWLwE1Kdsm6l7rY2/27/o5cEQSuDH8Dnbq4M0LT +aKFSETjFMuLiJ8/Fts/5apa6RbBdd/i8g+FcLD1y4+QluyJ4tPFcd1XUXOxc +XRnZuqsItoz0x1fLM3BZ0AMz3oci4O0IUfuszMDF8wq33ugoArmu1ksy6gxU +y+V9434pggttVa/tmQxcauorUugtgvZ7J4z+sWKgQ1gb5+bvInA/aCMpWMdA +dT1Vm8TZIrBQTjCNLWHgN35wgMIyEUgdHnqUU8ZAy2FvoambCOpkwtaU3WXg +bLRku60QweahlQf7HzNwOnXrq8BbBEKJftvGVgb6S1lvfxYoArVz1UmrZZhY +oZsRJ4kVwaihUruxJxOXa6V3fqRFMJynmTBvDRPDy+8bn7ssgh+KLH2bdUyc +JMlo8Lkmgp5BmzDHTUwM2uLKflQqgo93A4fX7GNirgNvVux9EdQuu6mQcoGJ +1a7208OaRZC72R8+DjHRerbCNNffIjj5NvTjf2NM9JwzVlf6RwTH3Xce7J5g +Yoxq6oDGJBqOzEt5NjJND0Xqqqv+nUyD4FeJt6KOHlIlYfscFGnYfHjydjsn +PUyPZJ9IZ9Bgd+lyfna2Hlob1kiMHWlom3vp3OLTepjzO0Ci7UTDnmz67I9z +elggJTw6fSkNNxMunllJk/+nFJu/X0aDhU9+jkK5Hm70VDcKX0UDd/LxzKQP +eji8zM9IO4AGtXWx8VFG+qhSf3pf9T4a/mmOiWOZ6+PryFCp7XE0rHaJ3t9s +qY8HjjIXqibQcMxy114L0Mfdmdoyvok0yM/YFt2zQh8z5uyKf5xKg+ztgO0h +u/WxJfRLlsVJGvqVXdZ7PdTHoH6vFP+rNEi2MBvCnupjZ0vqYNs1GiqfjEHc +c30URJy771VCQ+aeS7qi1/qo9Ccz1rGUBrOPM96Ndukjo+pWqtQdGsJL6tfm +qbCw3Dln6a9HNHhNF70oUWehNM+i0+0JDfbB8fwn2iyMLo3679xTsj4Nc+1e +ioX2wajDq6Xhcvyxf9GOhQoV/6x1r6ehy93z744gFj5fErtlXELDS9r42cgm +Ft7z4qVSrTTckZliK7+NhW18ibJ7Gw2HbpZpWsWwkPtrekj2Wxo4uuqtyeks +7C/+qj3lIw0be1p9DMtYuOlaIiOsiwa3pTeq4S4L19pUqG3+RoNV4WHr1ZUs +lPRu37vpOw1TvOzU99WyUH3wXq5/Dw0XK/Ja6tpZOKvL3thggIaOtPVeEVPZ +6HcxeNxplOy/y4hpNoON3o9tmpXGaPi5ZLS7W4mNDtKmuyTEf8kcO7hJk42V +QZVqG36T84upKl1vzMZ25dAP3hM07Atmq7ivYuOKvGlv22TFMKVqoH2GDxvD +iyP3CiaLIXPufXGtH3m/0ewbe4oYhG3eC51C2BjtMbBg01Qx1K44tIMfw8bU +K7I5TdPEoGb/vd7wHBuNIkT3QEEM+advnf56no15/zbEVhFzRxM3FonYWBNR +Jb9YUQx2pdoTzOskvu22EgclMQQauJtoPmbjn5iaSQxlMXxPnjPWUsPGwync +bVnEUZ3/PT5Rx8ZOyrBURkUMqfnxa2dK2Bg1NfHJW+Jitetpct/Y+ED3ulq0 +qhh4kft9nvSy8WbewmVviKsaXfQTf7DxbcHaNdZqYnid9unuxDgbY95fntZH +/Fta9duwEoXJNco3F6uLIWn9h7JSVQr7WT61J4gV710RRGhSuNuNefcTMTPG +SbNHj8Imu6dWMRpicO7d7dxpRaH9eH9+qqYYtMx1kuTsKOTdU26pI+6JePTQ +0IHCF7ZGGUpzxHB8WMkuYhmFJyohOY04xPpm9AkPCp9KLKufENvsWfvPLU8K +59Rrpf8hbh+nTSbWkfVtuS0M0SL7BY/NzGAK38mEj2QTH0gYLlocRuFB35kv +HxF7VZ3pCN1GYXONnkUfMWfyIkZaJIX6M9gaGtpiGHP6uvZaDIXpFqeSgfhF +Skbuy/0UFtN/9gUSR8z4V0XjEIW7pESyQmJHN4GH3RGy/719JyqJZ2dy0tdl +UXg2YX5JK3FXY12NIIfCCPufXgPE5Sq7plzMo/AHrzx5qo4YjnjOWVRTSOFK +n6mOmsQbTj6I+15E4e0GvzQD4vlvNpYrXqHQfIHDBmviKXMURi2uU7hmt03V +ImKJX6ml100KHV7VXl9OfOnsmoiYcgpNu/eYrSLe/17q2pkHFO65UW/nTezB +LPp2/wmFrpHuEh9iZpAr59MzCsOb4mX+76ELg0FTGinUe951bzVx9X+nCriv +KewqnjXdnTiXi+3L28j7hklfnIi3bP6suf09hWW2T73tiOFKmndWJ4Xzbdb7 +mhIr91ocL+ui0LnxTbcucYfZm4Y3vRRWTq1QVSAui4iTH/9Bvm+V1ThKzudQ +Kctl7hiF8vKfGZ+I/YafJS2aoHA4E6bWEptYR1SFyHJQTttAcJVYao+6VOo0 +Dv69wSwrk7jp7j27KwocnBv4lred+OJ4UEyDCgc37i2PcSWOhullg+oc/PS3 +rweHeFlCyYCaDgfrZfG+FLFOlbcpT4+DBXW/n7wm96PKSSiKN+bg6BPD87HE +2SkunectODhp6a1oF+LQ2j7G0wUcPHzE/asasYIb/7T8Qg7uu/g6T0Tu5/uM +Ty1mSziYEfTp41biG42HZq1ezkHFB/MfmxH7eL5Oz/XioPXdj4HXSD4YnNxb +W/E3Bx3f+DM2E49LmFM/rOegTrb/fn3iQr9t8dRmDhZvN9TIJPn1PVBuZ2kc +B08ptH9wIfnXc9ax4n4iBzuZuGRothh638RPfXaIgwxebEge8YD76OkPWRxs +2E43fyb5/dO265GCiINvDMzj/Ek9GIliK2pe4eDeaOHD4VkkH0oCfFnXOWjp +tPJRGvFvqq3btpyD1ZlZstdJfZGe9VxtUwMHa6ZYp3yYKQZZd7kNka84OBwj +92Ij8eRUx0txrRzcxExu/kbqmZxUBWR3kPU71Bl3k3qn8P1KaNUIBzuSXDVe +yYtB41HGHW0GF+uOL17FI/VTc+KZLJfNxZ43A1Py5Ej94Mm5zzfkYtbnsKRx +Um91iuM/uVhy0X9w+rebpB7rn9kxI9qZi9aynn8rk/ptFrnK/+UOLnp6j67x +/0P6/bUM0dsoLg7xV8w8O07DvK5nA19iueguaT7TRvqB1XrH5ImDXNTYUWnp +8YsG2+WWxUbk0j8Neh+nO0KTeXm2dPJDLi75UP/Lq5+GrwFLRLZPuZh96nDW +gT4a0gp2u/U94+L4zAceV3tpaNKR5Pq+4uL8x8f5f7ppWK9xap7RFy6WyNb2 +JJP+F6MwJ7hR3gCfla/RXfSJ9N8Rneo5vgZYUdrh4NdEg/sC9/CGtQY4yURJ +4PaShoFdcbMOBhig5eYvP+0babAZfLe+Z7MB1uqWJGmSfv2kO3+0cr8BNqIB +lJN+/u4j0zBEaIBXH8dmih/QoPyCfaS4l8QTKwVakXnjT6/ZhdofBig/z665 ++TLp98q25R2jBtiZdtB+xyUaHvq4d6nLGuLLEZNJQhENOzt2OyWoG+KQmurK +/kIamn9V/1nhYIhRD06XG5J55qTB5m2DxwxxcKXfMf39NGilXPOwsjJCf/ut +z13JPCa+eqVqlGeEKcK26gwyr1m/umRVAUb4/lwYp2EhmaeYIi1HZyM8mu2i +shzIeZbnf1nhZ4TL6+6IzKxp+NV3NH6rwAhjVSa8r3BpaPWNLBbWGWETV/pX +9HQacgxtlFQ2GmPFX6UOsbVkHtV0sBw8aoLPjOxe+PJEwNN6mGn62hRHc9xu +uyQXgYJMYeQGgRlm35h39uCLi6CToGvnyzZH01APtRcDF2Aay69s5VNz/PPa +5GuU/AUw4Wtc273WAndmH9PSMhZCRLtylYvUPKwR3DdmmZ+H3sE0T+eceUh5 +Jr6zwkJYYvok19l4PqaMt4/UehTAvUHbXz/r5qPJ4hBRzrJ8CDeyaG0MtsSX +IW2D0iVngd8T1Ow7zQovGJrG2RWdgcX66q7yhVZ4t8B5gFedC5z41OiHCxag +4/fv2rLjOWAQbHOf1boA11eJQw01TkLwvdDE0h3WmBC2rUA5+ATcz28O6le1 +wevh5anu57Lgh2jip+lNGzzrxWrfOnwUAlmXpuW68rDJ56Buxr5M6DfIsrre +x8MF027KDw6lwy3hrw9DKbbY6F0Zs8ftMKxx1ENbHTscHmw8sOvfFJizNfm2 +SaUdBqx5el4zIAlU/9pS4urNR8OlAuUG20QQLtq3p8+Xj8cDZamjFolgse/I +oiw/PvIXPnf15CaCW1/xK8kGPq6o72z4rJYISa+HRgO38DH+6zyhycABGCmM +W7gngY8Ot6MsV9AHoNU2q+niJT7auueefadxAEJ3Cc84X+Wj5UkXT+mZB2D4 +6j/B34v5OPDeRoUjdwCUmZKf5mV8tCn0Pb93WADL5LS1Kir5aGHD+sulSQDl +zReDml7x8fK1jjO70gXgonDLOErCxx1ZlrnViQKQLKkZVm/j45IcOkdnrwB+ +3PmW4v+ej2MtISebwgRgXGB25WsXH+sWzzq6YSmJ1+oQldbNx7gO/7TnQOLN +WgWmfXxcdzv3IG+BAEKSdzVGDvHRmem0XZdN4lUm5c4e4WPf24712doCEIyd +DLwzxsdc3SZXJVUBKM2njdaO8/HWiSKr9BkCOLv1ztDEBB8FWSOa8rIC+B9n +NC2r + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.051012779622148764`}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.051012779622148764`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938268674474573`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"ee48472e-d28c-412a-b03f-dc1abf2b5351"] +}, Open ]], Cell[CellGroupData[{ @@ -2599,14 +8285,14 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ -52adca93b0cf"], - -Cell[BoxData["12.55365498952246`"], "Output", - CellChangeTimes->{3.991340544411957*^9}, + CellChangeTimes->{3.9918497405884743`*^9}, CellLabel-> - "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] + "In[192]:=",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], + +Cell[BoxData["14.794138274828336`"], "Output", + CellChangeTimes->{3.991340544411957*^9, 3.993826867483712*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"a99606a4-65de-4aba-a51e-30a03b6d9e3e"] }, Open ]], Cell[CellGroupData[{ @@ -2662,157 +8348,159 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ -d2b12a49fd20"], + CellChangeTimes->{3.991849742961588*^9}, + CellLabel-> + "In[193]:=",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.279605113336891`*^-263\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 341, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544611845*^9}, + 2, 193, 21, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.993826867562645*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], +In[193]:=",ExpressionUUID->"20f460c5-3227-42e5-84f7-e91d3e23ef56"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"9.903977793288662`*^-274\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 338, 342, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913405446218624`*^9}, + 2, 193, 22, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.993826867567965*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], +In[193]:=",ExpressionUUID->"6bba7c83-e2f0-490a-b780-09744b4d4a31"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.665550497384605`*^-284\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 338, 343, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544630844*^9}, +\"", 2, 193, 23, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.993826867574545*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], +In[193]:=",ExpressionUUID->"ef78032c-8e75-4a2a-a2b9-52edd270a378"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 338, 344, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340544639845*^9}, +during this calculation.\"", 2, 193, 24, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340544611845*^9, 3.9938268675820303`*^9}, CellLabel-> "During evaluation of \ -In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], +In[193]:=",ExpressionUUID->"80ea763f-e1a1-450c-9949-85938196e6df"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VO0bB3Ch4g1JtiRlzMwZg2xRlnHfRUSFlJLy2ktRsiS02CoqRZSk +hWSZMxKVUBHRIhVFMSm8lRLZeu2p1+/5zT9zfa5zzXPOuZ77/j73qHsFOvmK +ipDPDBGR/3+PdTx/zDyVY9Ff9Zq5odPA4u1V5YiVwliIuJ+6rMFhHqBCo5ey +MAUM/7LYk++gDmGOglYxYTbs6uf4Jzvow7wBpZTJ1ttw0TdxX5jDSuissA8c +aa2BG3sFp3UdNoA1s7f9Z2sTBDXeTmLae8Jk6/LzQ62fYfeEcvgMuyCotczP +eZM9DFKwS0nkZwyodt775qX9BxiKcyoiDp4E+QB3wWxLMbzpxJmXvekspOhb +P7B3lsBMs3lrbmWeh/fpetU/ZaWR+nj5mvuBi3AqJ6pRdME8XP5M3+qU/xVQ +OvflROqV+SjsK6ksjM+C+E22Fk1jChjcqGl3e2E2hJhcc38eq4zmQbquRYXX +wWrwV+TeLyooef6eZL9ILsSYb/BUWbEI9xuul1vCzQPTmxdLjlQtxpyqaK0C +y3ywam34M1C3GKfu5cqG2uSDvYi4jXvTYrRdZn3BdG0+eDvtfQ9fF6OmTVBC +tVM+WB9Uj4qeuQSdA1+MFXnmw77FY9dXai3Bou/l3apR+fB4Z2Z/bdgS3Dx2 +1HFpeT4ETPyMrpNWxzl5aiZcDT6YBu1Q/Canjmkh0oxMNh8ketsKxJTV8Thv +yGwelw+5H2pbLBjqWOngI9qvx4eOh+e17xqr47jSN2GsBR8cjpkIr7mrY9g+ +6VxqKx8M5GJ0D95Sx+6pe5ecE/kgcmr0cXqpOraf17uwL4kPDWK7XUsfkPvV +GtQmpPDBf9Tp2M8n6rhDe+hGcTofcoTMDzvb1FG6TqKuI4cPipl1xzeJMXBP +yzJmSQUfJrVkO3ScGSif0v3CspcPY1dUYgxdGdhcJjt3oo8PI3NZTBN3BgIr +/Co9yIeBYZPdVrsYmEc7Z4uP8uHzA+8x18MMnCgpxoxpPtSvLZNJyGXg3HuZ +fZbyNGT4/w2fRxm47F531VkzGi60+33u/sXA7SMeFYM8Gs45hBzrnybrqVyR +WIs0nDFMeDEhqYFxEgPJk1Y0xE7d2jJXTQOTd075GNvT4H9q5j5zaw1UFU0y +1/WgwbzgRlZamgZq3ZtoVIul4cOSgszVlzSwpnRcWfwoDZFp9NWRTA1U586U +7T5GQ1lM3mUnWgNHYVAi7wQNBi5Z6TIVGrj9wWmuxFkaNGeeSz7+SQOT2g86 +uWXSoOh+MDpMm4mOyiPB6+7TcPdtRBRLn4k/ZEKaux/QsMku/MhbIyYeiqzp +jq6kIcVo/yEDYCKTeU37RjUN0lKB4QMbmChuoqDT/ZQG8Xte+3YcYGLNo9zl +g000/JSz89hcw8QA5qtfa3poEAYwXu9+xsRWE8fasl4aqp/+gqiXTNwq5P2j +0UdDcmTBYn4LEzsazimPDNCg91mqc7KXiTeaBk6FjtCw91aj25X5LFyZxn88 ++h8Nm+fwX91SZuHG9CeTJiICsPCN5j1dxMInjYEJB2cIQHqB/qJBioXSKbV3 +xsQEcCM65SOas9BC9dvaVxIC6HVw3tblw8KHSX6NU/ME0ETrvJjYxcIZ0dFP +FeYL4L7YLDPpQBYqRN9V1ZEXwImyUhXjCBambOrp3qgoAM5i5bb40yz8KHtb +LFZFADsH2ly0SlmY2Dx03YMhAPs1d+rgAQtvA/Oeo4YAjLNPrdhUzULUDjS0 +YApg1mZz5cP1LPQIFbrMYwsgr/JKa0MHCyu+9wSlawqgK9Fjc/BsNn6888WI +qyeAvb3aDD0pNlYs3JH7hXjcZrK/X5aNm1YFvcvQF8BfYinHdqmwUco0IlzU +UAB6EbUlHjps1LvwuLnUiLxPS1K0mgEbS69MO/5tLADLZdvXfTRmI0s08qzY +cgFsHhz5sgXZ6Pn+tJvNCgEc9mXPd9jIxrGJ71olpuR5a//tkHJhY7Lc25e2 +ZgJIXlIlqN/OxuaFdYbtxDkftqyy3sFGcRcj5z/mAqjfcCKIF8FGy5WLhhgg +AEWLvkatTDae2faxRcxSAFmXyi/1XGdjXOUOsTBizcmjO/P5bNw4+8nUV2Lz +kkXTjNtsfKYUuaHKSgDeXIelKk/Y+D0ALm2xFkBf/MJfrc/ZOOnwj145cdjX +7ifnG9i4+D/n84o2AjiZFe02T8jGN0dXv3xJXKx4O1HiBxt3b+v/rWYrANPQ +Iy5PB9moWd07fy9x7Rs75tERNrpXNf6+T9yS+OXB9B82xq7oXG1vJwCP3qL4 +SlEKGeVv8s4R99gc2nhwNoWh7WYfhMS/RRV+jMlS+JHzV7XrWgEc9/hUWqJA +YfSxFUHpxHMfFsYGq1D4dCR4vJmYEWGtMqBBYUXY9aNW60h9tsh9K+BQmNnn +mxhBbLys89YuHQqtzV7tvkFsO3jA9qsxhSXq7MI56wWgqq92XMKcQiHeuWlG +PBD8uEZrJYWBhhGcXcSPSnZP21tTaLDqt8o54nNjsubBaynUkH90vIJ4x4qy +8POOFJreXBfwmdgk0u1uuTOFNiHMlzPtBdDxh1467U6hd3vjbyviYnD0Z/hS +uGVhcYMHcVzMWP7q3RSm3x1VjSTeXHu5yy+QQqlP1PdkYs5MS/XEUHI/3Qa9 +XOJf1j1uRREUlp3eN15K/CohKaPpCIXN1hfMnxJn1Ru1jsZRGC/yQqSZOFjq +4/wFJyi8UnHOqp3Yyj7W0fwMuS48LPGVWCmZc9o9lUJJadn1vcS9bxqex6ZT +KLf3nVw/ccX8/bPyrlCYstvF9f8+47zQ8nk2hWYvNZg/iD0vPIrqy6dwZVnN +vm/Ey97vrJhbSKGVoBo7iWctlJk0uE3h78P0uXfEwu0lRpvLKFTwldzznLjg +qmtwRAWFUz8C6u8TH/lHpOjyIwpTJzwKaWJHRv6PqqcU6tQHK6YRM3zWc768 +oFBxUndWNPFo7rDPrDcUXg1jH95JXNd98ZpmC4WliV0H1xFnaGLHug8UtrRP +iOoSB/h/U9n3D4W3fP6Vm0sMhYlbUr+S9UM9bvSR/evSe//6/SDZb933h7OI +S4OjpP+MUNhlLF4WRnyihGW35BeFYlFdB+2Il64Irt0hzsE4G8mCXlJfIpHK +IiclOWj7cZ9iGXHzg4fmhTIcfPW+eW4McTjMKR1W5qBn/7ub0sS11jn8aB0O +0vafCyVJPacl2H29bsBBhxzTizWkH/zqh9SfLeegbiNXKYJYxp53SXoVB001 +qVcdpL9cnFtOZ2zmIAz/1D+9RgDcC4fqK7dxMD7Pr8aA+I+QMfuTBwdlKji9 +70j/Zm8PjKb8OXhYtGuGAnGft0RISRQHRe789ApbTer/qlVl1VEOGq76XPMX +8eD76NkvTnDw1o6Rt5dJfvzrMHnpUyoH/0Q8mXef5Mu4We9jGT4HIyI0/hOu +FMBEGHuuSiEHizZQ067Ev255bWXd5mCIf1dpG5L+pj70m1WQ3z/4sK6Z5Jmo +/EvFXa85eNBWQoPmCUDcQcIz9B0HS7MW9SoTzzxpVRDVxsEUl7SA4yQPJUQq +Ia2Lg9NuUnmuJC9l+gr9aic42JGZOtVN8nbB46T7i9Q1cfgilKaR/FaZfiGu +ydbEMovyyM8GpN9NJRyWaWlimrWauDaxWnH0FzsjTfRPUfMrJ+cB83KQVLit +Jp67NnysVIfkf+jGv5uCNLFosvfaGkpA5mEl0fgaTVzqnVFcp0zyy8uGb/ZM +E49ve8LoVBJA4rUD9kMvNLHVVe/uMDnfmtWEGVvfaeKiEKG5kgLJvwUXDbW/ +a+LbyMmvNuS8jJBZ6PtGmovemdvkHSVJfk2o1S3cysXhoN6z0+M0OCx32Pva +jYtKlSayH8Zo+Hd/lPwxLy7uTymuKhmlwWS402PAn4v6PrwSr2EanvZnTVYf +4eLrGxOiNDn/Oz8ztHbkcHGjLr+4s4sGuVfsM8WDXLTXGGJMNtLw36Bebv0I +F8uc4zcfaaChV86somuSi07UoyMzXtFQ4+LQqyyuhVblY0Uz6mkI6TpgHaOs +haKh/nRPLQ1vp+r+27BSC590Gl50KSPzG9c/cDhFC5N2OR8qu0yDakKRo7Gx +NpZ9vL0n25MGwc3C2klTbfQrMxV96U7DincFxpWgjfMfnhgfdiPzEoOvamWr +jV8vj8wCVxoSK7K+b9iujd8om/pHTjRMDZ2N3hOrjcNzTu6JtKShbWtocU6D +Nv5QSY6p0KAhXctEdv5OHexbPSaV30nmTZWVRsNnl6LTVp37AbZk/latSdZt +0cXtikfjnyXlg4xYdqhnrB66X7rRNNGYB2oxi823svVxzarmgJ6BXJBkbS91 +eqaP3ZGltdliubCUt6DogJsByhuprZFRy4HgDrlaOxFD/Nvcvr1J9ToMDic6 +26Yb4p3aO8d9qGyw0X2aYauzDNXXVJtNGV6Dh8NmU+MNy/CIl2XzMDcL9mob +tL3xNSL1vro4YddV4A34vN0qaYwCti+oul6G1Uzl9dLZxvh1b3ZRU1gGcKJP +htcsX45LvFUXbeSnA9fXpIrVthwDLJlR3Y/SwPeh39GSoBUYoH/TxU7qPFRl +vfX5qWCCU+UmdvWrU2GEPz2uW2aCY53hRhJXzoI3q0AyY70p9kTXlYwzk+En +N9X49pApTl8669ZucxrKc6Y+jSaY4ZuHbEO/nJPgaqWBZmrm6JNUlWC2PAEW +7om/t7TaHD3XURHTNcdA4a+AW+u38DByyWNZxetxkGN5OHJoKw/9DlR+GbkY +BwaHz1imbufhnVRWc0tyHNgPFb8TevIwOuHVzJwjcXC8ZXTSO4CH8jOMir1d +42AiO2pVZAwPi4+9fHJALg7azFKb8wp4eH6r7qqho7Hgtz/nsu1NHno9efNN +/1AsjN2869tXzMOmK+GXwkJiQY4hHNcv5aGqhLahpFcsrJVYpFpZzcPd76Jk +N0IsVLzN82l+x8OMO07MiF8xYCdTrhMm5GGhd3PaD/J/VmjzfEz5Aw8VqSQ5 +z54YGLn/I+Hvf3i4/emEhrMwBnSu6RX29PJQ4pB1tmdpDFS0rQxL7OdhiNcm +p75Csp78RtAd4iHvvYJEZG4M7Ijf/yZ0lIfZYj2xV8+R9aqPZyhN8FD/qryN +UWIMxP664H3/Fw9rL1BzG+NiQHYZre32h4dhs262+R+Mgat77o9OT/NwKd+Q +nhMSA/8D0CQ9rQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2826,116 +8514,114 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV13k4VO0bB3Ch4g1JtiRlzMwZg2xRlnHfRUSFlJLy2ktRsiS02CoqRZSk +hWSZMxKVUBHRIhVFMSm8lRLZeu2p1+/5zT9zfa5zzXPOuZ77/j73qHsFOvmK +ipDPDBGR/3+PdTx/zDyVY9Ff9Zq5odPA4u1V5YiVwliIuJ+6rMFhHqBCo5ey +MAUM/7LYk++gDmGOglYxYTbs6uf4Jzvow7wBpZTJ1ttw0TdxX5jDSuissA8c +aa2BG3sFp3UdNoA1s7f9Z2sTBDXeTmLae8Jk6/LzQ62fYfeEcvgMuyCotczP +eZM9DFKwS0nkZwyodt775qX9BxiKcyoiDp4E+QB3wWxLMbzpxJmXvekspOhb +P7B3lsBMs3lrbmWeh/fpetU/ZaWR+nj5mvuBi3AqJ6pRdME8XP5M3+qU/xVQ +OvflROqV+SjsK6ksjM+C+E22Fk1jChjcqGl3e2E2hJhcc38eq4zmQbquRYXX +wWrwV+TeLyooef6eZL9ILsSYb/BUWbEI9xuul1vCzQPTmxdLjlQtxpyqaK0C +y3ywam34M1C3GKfu5cqG2uSDvYi4jXvTYrRdZn3BdG0+eDvtfQ9fF6OmTVBC +tVM+WB9Uj4qeuQSdA1+MFXnmw77FY9dXai3Bou/l3apR+fB4Z2Z/bdgS3Dx2 +1HFpeT4ETPyMrpNWxzl5aiZcDT6YBu1Q/Canjmkh0oxMNh8ketsKxJTV8Thv +yGwelw+5H2pbLBjqWOngI9qvx4eOh+e17xqr47jSN2GsBR8cjpkIr7mrY9g+ +6VxqKx8M5GJ0D95Sx+6pe5ecE/kgcmr0cXqpOraf17uwL4kPDWK7XUsfkPvV +GtQmpPDBf9Tp2M8n6rhDe+hGcTofcoTMDzvb1FG6TqKuI4cPipl1xzeJMXBP +yzJmSQUfJrVkO3ScGSif0v3CspcPY1dUYgxdGdhcJjt3oo8PI3NZTBN3BgIr +/Co9yIeBYZPdVrsYmEc7Z4uP8uHzA+8x18MMnCgpxoxpPtSvLZNJyGXg3HuZ +fZbyNGT4/w2fRxm47F531VkzGi60+33u/sXA7SMeFYM8Gs45hBzrnybrqVyR +WIs0nDFMeDEhqYFxEgPJk1Y0xE7d2jJXTQOTd075GNvT4H9q5j5zaw1UFU0y +1/WgwbzgRlZamgZq3ZtoVIul4cOSgszVlzSwpnRcWfwoDZFp9NWRTA1U586U +7T5GQ1lM3mUnWgNHYVAi7wQNBi5Z6TIVGrj9wWmuxFkaNGeeSz7+SQOT2g86 +uWXSoOh+MDpMm4mOyiPB6+7TcPdtRBRLn4k/ZEKaux/QsMku/MhbIyYeiqzp +jq6kIcVo/yEDYCKTeU37RjUN0lKB4QMbmChuoqDT/ZQG8Xte+3YcYGLNo9zl +g000/JSz89hcw8QA5qtfa3poEAYwXu9+xsRWE8fasl4aqp/+gqiXTNwq5P2j +0UdDcmTBYn4LEzsazimPDNCg91mqc7KXiTeaBk6FjtCw91aj25X5LFyZxn88 ++h8Nm+fwX91SZuHG9CeTJiICsPCN5j1dxMInjYEJB2cIQHqB/qJBioXSKbV3 +xsQEcCM65SOas9BC9dvaVxIC6HVw3tblw8KHSX6NU/ME0ETrvJjYxcIZ0dFP +FeYL4L7YLDPpQBYqRN9V1ZEXwImyUhXjCBambOrp3qgoAM5i5bb40yz8KHtb +LFZFADsH2ly0SlmY2Dx03YMhAPs1d+rgAQtvA/Oeo4YAjLNPrdhUzULUDjS0 +YApg1mZz5cP1LPQIFbrMYwsgr/JKa0MHCyu+9wSlawqgK9Fjc/BsNn6888WI +qyeAvb3aDD0pNlYs3JH7hXjcZrK/X5aNm1YFvcvQF8BfYinHdqmwUco0IlzU +UAB6EbUlHjps1LvwuLnUiLxPS1K0mgEbS69MO/5tLADLZdvXfTRmI0s08qzY +cgFsHhz5sgXZ6Pn+tJvNCgEc9mXPd9jIxrGJ71olpuR5a//tkHJhY7Lc25e2 +ZgJIXlIlqN/OxuaFdYbtxDkftqyy3sFGcRcj5z/mAqjfcCKIF8FGy5WLhhgg +AEWLvkatTDae2faxRcxSAFmXyi/1XGdjXOUOsTBizcmjO/P5bNw4+8nUV2Lz +kkXTjNtsfKYUuaHKSgDeXIelKk/Y+D0ALm2xFkBf/MJfrc/ZOOnwj145cdjX +7ifnG9i4+D/n84o2AjiZFe02T8jGN0dXv3xJXKx4O1HiBxt3b+v/rWYrANPQ +Iy5PB9moWd07fy9x7Rs75tERNrpXNf6+T9yS+OXB9B82xq7oXG1vJwCP3qL4 +SlEKGeVv8s4R99gc2nhwNoWh7WYfhMS/RRV+jMlS+JHzV7XrWgEc9/hUWqJA +YfSxFUHpxHMfFsYGq1D4dCR4vJmYEWGtMqBBYUXY9aNW60h9tsh9K+BQmNnn +mxhBbLys89YuHQqtzV7tvkFsO3jA9qsxhSXq7MI56wWgqq92XMKcQiHeuWlG +PBD8uEZrJYWBhhGcXcSPSnZP21tTaLDqt8o54nNjsubBaynUkH90vIJ4x4qy +8POOFJreXBfwmdgk0u1uuTOFNiHMlzPtBdDxh1467U6hd3vjbyviYnD0Z/hS +uGVhcYMHcVzMWP7q3RSm3x1VjSTeXHu5yy+QQqlP1PdkYs5MS/XEUHI/3Qa9 +XOJf1j1uRREUlp3eN15K/CohKaPpCIXN1hfMnxJn1Ru1jsZRGC/yQqSZOFjq +4/wFJyi8UnHOqp3Yyj7W0fwMuS48LPGVWCmZc9o9lUJJadn1vcS9bxqex6ZT +KLf3nVw/ccX8/bPyrlCYstvF9f8+47zQ8nk2hWYvNZg/iD0vPIrqy6dwZVnN +vm/Ey97vrJhbSKGVoBo7iWctlJk0uE3h78P0uXfEwu0lRpvLKFTwldzznLjg +qmtwRAWFUz8C6u8TH/lHpOjyIwpTJzwKaWJHRv6PqqcU6tQHK6YRM3zWc768 +oFBxUndWNPFo7rDPrDcUXg1jH95JXNd98ZpmC4WliV0H1xFnaGLHug8UtrRP +iOoSB/h/U9n3D4W3fP6Vm0sMhYlbUr+S9UM9bvSR/evSe//6/SDZb933h7OI +S4OjpP+MUNhlLF4WRnyihGW35BeFYlFdB+2Il64Irt0hzsE4G8mCXlJfIpHK +IiclOWj7cZ9iGXHzg4fmhTIcfPW+eW4McTjMKR1W5qBn/7ub0sS11jn8aB0O +0vafCyVJPacl2H29bsBBhxzTizWkH/zqh9SfLeegbiNXKYJYxp53SXoVB001 +qVcdpL9cnFtOZ2zmIAz/1D+9RgDcC4fqK7dxMD7Pr8aA+I+QMfuTBwdlKji9 +70j/Zm8PjKb8OXhYtGuGAnGft0RISRQHRe789ApbTer/qlVl1VEOGq76XPMX +8eD76NkvTnDw1o6Rt5dJfvzrMHnpUyoH/0Q8mXef5Mu4We9jGT4HIyI0/hOu +FMBEGHuuSiEHizZQ067Ev255bWXd5mCIf1dpG5L+pj70m1WQ3z/4sK6Z5Jmo +/EvFXa85eNBWQoPmCUDcQcIz9B0HS7MW9SoTzzxpVRDVxsEUl7SA4yQPJUQq +Ia2Lg9NuUnmuJC9l+gr9aic42JGZOtVN8nbB46T7i9Q1cfgilKaR/FaZfiGu +ydbEMovyyM8GpN9NJRyWaWlimrWauDaxWnH0FzsjTfRPUfMrJ+cB83KQVLit +Jp67NnysVIfkf+jGv5uCNLFosvfaGkpA5mEl0fgaTVzqnVFcp0zyy8uGb/ZM +E49ve8LoVBJA4rUD9kMvNLHVVe/uMDnfmtWEGVvfaeKiEKG5kgLJvwUXDbW/ +a+LbyMmvNuS8jJBZ6PtGmovemdvkHSVJfk2o1S3cysXhoN6z0+M0OCx32Pva +jYtKlSayH8Zo+Hd/lPwxLy7uTymuKhmlwWS402PAn4v6PrwSr2EanvZnTVYf +4eLrGxOiNDn/Oz8ztHbkcHGjLr+4s4sGuVfsM8WDXLTXGGJMNtLw36Bebv0I +F8uc4zcfaaChV86somuSi07UoyMzXtFQ4+LQqyyuhVblY0Uz6mkI6TpgHaOs +haKh/nRPLQ1vp+r+27BSC590Gl50KSPzG9c/cDhFC5N2OR8qu0yDakKRo7Gx +NpZ9vL0n25MGwc3C2klTbfQrMxV96U7DincFxpWgjfMfnhgfdiPzEoOvamWr +jV8vj8wCVxoSK7K+b9iujd8om/pHTjRMDZ2N3hOrjcNzTu6JtKShbWtocU6D +Nv5QSY6p0KAhXctEdv5OHexbPSaV30nmTZWVRsNnl6LTVp37AbZk/latSdZt +0cXtikfjnyXlg4xYdqhnrB66X7rRNNGYB2oxi823svVxzarmgJ6BXJBkbS91 +eqaP3ZGltdliubCUt6DogJsByhuprZFRy4HgDrlaOxFD/Nvcvr1J9ToMDic6 +26Yb4p3aO8d9qGyw0X2aYauzDNXXVJtNGV6Dh8NmU+MNy/CIl2XzMDcL9mob +tL3xNSL1vro4YddV4A34vN0qaYwCti+oul6G1Uzl9dLZxvh1b3ZRU1gGcKJP +htcsX45LvFUXbeSnA9fXpIrVthwDLJlR3Y/SwPeh39GSoBUYoH/TxU7qPFRl +vfX5qWCCU+UmdvWrU2GEPz2uW2aCY53hRhJXzoI3q0AyY70p9kTXlYwzk+En +N9X49pApTl8669ZucxrKc6Y+jSaY4ZuHbEO/nJPgaqWBZmrm6JNUlWC2PAEW +7om/t7TaHD3XURHTNcdA4a+AW+u38DByyWNZxetxkGN5OHJoKw/9DlR+GbkY +BwaHz1imbufhnVRWc0tyHNgPFb8TevIwOuHVzJwjcXC8ZXTSO4CH8jOMir1d +42AiO2pVZAwPi4+9fHJALg7azFKb8wp4eH6r7qqho7Hgtz/nsu1NHno9efNN +/1AsjN2869tXzMOmK+GXwkJiQY4hHNcv5aGqhLahpFcsrJVYpFpZzcPd76Jk +N0IsVLzN82l+x8OMO07MiF8xYCdTrhMm5GGhd3PaD/J/VmjzfEz5Aw8VqSQ5 +z54YGLn/I+Hvf3i4/emEhrMwBnSu6RX29PJQ4pB1tmdpDFS0rQxL7OdhiNcm +p75Csp78RtAd4iHvvYJEZG4M7Ijf/yZ0lIfZYj2xV8+R9aqPZyhN8FD/qryN +UWIMxP664H3/Fw9rL1BzG+NiQHYZre32h4dhs262+R+Mgat77o9OT/NwKd+Q +nhMSA/8D0CQ9rQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05138341644142942}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2947,19 +8633,19 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05138341644142942}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2973,115 +8659,113 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk8VV0XB3DxZCrykFwz956LypAGwr2thSaKSpSoKENkDClDGTIPGZNk -DpnuiRJpQFFpkoqI8ChNZpmi5D3vX+fz/ePsc/Zee6/fVjzuYebAzcXFxbuE -i+v/z5neZ01EbMEW27f5d+9s0t3Slk3z0+8MhctpKYf6BWmA4q+P0zqTYdv3 -tLFSQRXw3VvawdOZDwEWTfVRgpvh31GJ5LmOm6De+eC+teBO6Ltv6jHV8QhM -NVIT2wUsYTsx2DPR8RayYsZ/vONzgrkO7UvjHZ+g8Z6cR9fiGWg0vF7wJn8S -RuqCS617okCmr/brcdUFSOkR7egzSYaVrjalfIY8aL9b2may7zIka26/Z2rB -j0eW6fMcLsyCD+nrGiZEhPA/6X/Pux/Og9iCoNfckv+iRrJBuuHgNZBI/Ryd -kiWG1R2GC/wbiiDS3GjL2xlxPNkgPdomUwzeOnk2z0JpuNS2KZo1VgLGucJT -u+JoWGt4JyRiugTofIFRLZdoKHBqLv/l7xJobTtQ+a6YhgHjx21M+EtB3XM5 -T28LDS34uG8qKJbC96IzRT+lJLF2nGu/sFkpHF5pOiJ9SxKtJh4f4q4sha1j -8/7un6VwR1y3nrZdGfjtTF3zcFgKW0QPeLo5lQGZp9YlNiOFgSKFH3PcyoBm -bqtTyy+N10bqrOfOlMHwncezPOrSuL6Ib+R8XBmkhCb6XDkrjWG8P5Tbqsrg -k7iSe5OQDGpGVscWcpeDhEe9rISEDD6d1TQ9zlcOu5stXzkryKDuLgkD6eXl -UO0fq7pigwxutI19ECJeDjF944OHLGWwha63qKBSDutL7p0Yy5dBEamEpOLd -5RDC2ndMarMssuZ52d3J5bDzaPZPbQNZdEh3CfK/XA7CwUMXLHbLYjBr1EA8 -sxwyG8OLEm1lsdxbyoRdWA53jO8O8UbLova+H64Ha8ph3JLhO/lBFjeK/227 -1VUOR09Px7wMkEOxc4SlkBwHmJcNZAbD5ZBnQfeeDJ1DzT+Bw5coh7bKvLnK -Shzw/7O61aBADrfESI5pqHPg0oWj4rUv5XA/r1CR4BYOvEx6mlMoK4+HnTOS -vh/mgC55pep8vTxKiCW57bjMga0dLQujzfK4JvdZQGwGB0y5/tlh81YeuzzH -Cl5kccDOzP0DfJHHIb3GnVjAge0BikHBSxWwxvtP93wFBzzlZ67pr1XAgx9+ -Hr39jANNJ3JGGn0VcMJ+1Fv/FweM/uiIBgYo4DO16N0CvznQktimtTFYAbuL -C3a8WuDAh1qB4IJoBdwbHFFkxEPC6DIf0fBMBQQxXLFSmARaxU7t7Y8UkJYf -8GaMToLrr4ngZiFFXK6z5uRjIxJ0Tzmu+iqqiPr9L3wMd5PAP9hVxkNTRKu6 -oCUPTEko7G58v4WuiNc/0q7l7yeht+6S6m0tRfwRoiy++QgJe8J1OvNsFPHT -7QGVOA8S5P5y3OrtFdHehZ386BQJw750nh5nRWzuEYqY8iYhymmZOs1HETuW -mK/YdZaEhl09Fy5GKeL2mGN3HgWTsF40RCOgUhG1nm779jGRBK7Y6ab0akW8 -6hDKfplMQgvPSavqe4poeaRIuSaVBJdps/CJx4p4doFxNyidhIJOovtEFzXe -8vIf3TkkrMppjjDnoWPAoSGehxwSBiTYMl78dDR/ef2L8w0SbiZWViYI0dE3 -us5BuJKaT2jGx+cSdHzsdNfQuIr6XwfX9fqqdOR1sImJv0vC3FqRXjULOoY9 -0eg3eELCTJZUyAYrOo5BWVTOUxKmVjAJHRs6pq9U4f7VTNVjUufkVmc60kTm -3TJfkPDpnt2M1Tk6TpT8Zd1qJaFPzf2KbSgdE6TPR42+IeFjzlmWYyQdLx6v -K2O+I+H9hfjQU0l0jOk/FRjZTsLzXTXCUYV05CQ4WUt2kfD0wcPK+FI6RviU -+23oJqFJ46V5yg06frxRfNroIwl1Yv0Z2bV09Dz8XsC5l5pvt6Dy7Vd03LMY -e8f3EwkZLkfh0zQdS60se1/+IOFyj9Onb/N0bETzTYWDJKTu8Q4fWaSjg1im -r98QCRc3RL34JcDA03377omPkBD6u/LgCjkGjuta2MuOkxDkdn9+JYOBg+9K -iHbKgX1PsqRUGPilYKA9aoIE38buz8z1DJypdRYe+EnVL3apJ2s7Aw0mnMac -p0lwWlghZrCLgQ+f55oumSHB0UOqesdeBtIz4wtTKdvu1/hjZsXAN1/+sG/M -knDksU6OpQ0DfepZIVq/SLDS3mpw1J6B183K62spm0sfinJ2Z6D3+mzNqjkS -9sXbrfXwZuARgwHHtfMkmC66tficZWBKErVOlHd+Dl0ZHMrAr6uTuf1+k8Aq -K89NS2Og7sz3Hwt/SOhWKMvZdpWBW4L9XfcskOCfVpI9lcPAV4OhflmUa0KK -Ms1KGHjMfHyTxl8SDswWXF1CMtCk8e1XL8pTrtcyKm4ysH9CiXmL8nrL3HTh -+wzsbmearF4k4c2r7MsPGhi4N99ssw1lT8OsNNfH1PjW07eSKK+ovXpJ+jkD -LYJaGxook+oZqc9bGMiQvW4zTNmkID3F7x0DD3ayklZy3YBhycvJKp0MDPlq -cUCHckzCpaSOjwx0WlFzw4ry6qWpiRH9DCwsZ2afpdzsn5yw6Sv1fskJegpl -x/HEiwODDCwNMWSXUl7qmBCfMsbAWwbBYw8oF3THxxlMMfBb9BedFsqG++Ji -J35R6xemJ9tN+dOTmJjcBQYKTRhnDFAOYUVH7+EmkC7dUzlIWeFmZNRfXgKX -9d2zH6FcrxwRyVlGoPX1ylvDlI9mhUUcFiGQ5had853yH9EL4cvECdSvEV7d -T/lqVEjYXUkCkzKE9r2nrPs36IKzHIEytWa0Zsqd3udDaQwCB/XLgqopn/kR -GPJUmcCq8YHIPMqrbAKCfVUJDBFq0YymfLvNL4ipSaCB66bzbpTNjc+eb9tE -YLTroJsp5cl633MXdAlUmru/RJVy8qbTgeuBwPbIc7q8lDXLvAP6DQnsoC3Q -eqh6tCp4+SfuJPCallB2BWWh5R5nR/cR6D2pnGNCuTzE7UzWAQL1DnbKSFA2 -nnXx3W1NIKfVfmsPtT+iPjn5lNoTGOhml2pDWdnyhPchZwKVrwTVSVN+8srB -i9+dQLfBF5faqP33T+1xT8czBG7oNd3DonxN/ZiHeCCBOg83bBii9q9BgY17 -UzCB2saFT9MoByUcdqXHEGiVkLh0gNrvckutXd5cJPDrnfsV4ZTv+x86GZxC -4PnjXSsIyvMOB5x6MwlUfWg+coA6L1e6zU/E5xGouNTJbYg6X5v37XdkFVH+ -+qEgkLIva699xg0Ch9i72Zeo8zghamx74BFVn+FS1RzqPHe60ltPPiXQsc9d -UJhyw5N5CHpJ4KrUJDE/qh8k+pfJF78nMC/YvdxwioR1n5b3zQ0SaHdpGa2M -6ic01hdT4XECP3zf5vmb6jdcaQ/q6NMETm7/9mcH5ddG7tm7FgnkUhuvaR8l -wb3y9ZEsMSZaOmm3N1L97MCy4leVNCauk300Pk31uy0OwewnskyMM/5mRFAW -ktSUHVNm4t+D12tPf6fqFZz8EVlMbH5B3hgaIGFwj4X1gD0TZYXOLxA9JLwt -UXvxy5mJ4cvCgqSp/nuXh1dPyIOJnif5zYSp/hxdUy2l5Ud938V65HsnCSry -tK7IeCZ+4J6V82oj4cRol+XaaiZqGZ083/6c6k87bzXDPWp8if4rSc9I0MqP -3WzewMQ/MYckjal84T3Aop17zkS20jajisckFD3I6mjpZWKE4n8J+xqovIuz -PeDFp4TnFlpbv1N55j6oSl+3XAlDTt/XD79FwuyOuZERESUcjpfLkbtJgiBP -crizlBJWBbsydlL5uM6vscpWTQlzBvZ4+JaQcM5BSWzPfiUMHUn6i1lUvm4Z -fr02RwnTl/5jdymUhNyrd67+uKaE1k7PXN9Qeb56LuzE9WIl9C/8FSYYRPXT -KtlF+k0llP82POAdQILdmj3qUo+VkJVaGsLwIaFi1c04/iElrLfKYMzak2A0 -dsboi5YyHq2+33RmKwkymnIR/CxlrPm2i7nGgMpXr6ZHa/WVUfBPg+4HoPJq -RoTltUsZ5YelY9T0qPvKQon6oo0yPqJ9+0RqkuC1/KOYZLQy6i950SAuR+Xf -auzd3a2MJ49r2Z2fou6HdvzeVUEqODG7cZ1wOgdGs7c+qA9TQUlFnzq+SxwY -+xDM9yJaBaW3xQb8TeLAzz1zV/tTVJAeJRD1OZYDs3qDTcLFKtgj9Uo0LogD -3CtfrnJuVcG/x0M3WjpyQLIp4a6s4mr8HbGy96smdR8kJLgjH63G4iOhause -loPoK6WLFWNr8KPNcRft9jKQibqxV0tLFXOzzop4VpVC+lodEbETakgPkM+G -+BJ4LqW/aTJJHQU3rj7bblkMujKPEjXea2D1LztBk/kiEObJ9zkWug5zzQcu -LhQXglyIPOuQkibqKWUqm28qAAHm4Wqzp5q4f3X9f3NP8kGdLXnjzJH16Da/ -KqXWOw+8ekUbjbk2IMcs05IhmAtjk3EWRukb0MiF7/BAaBbs0HiSYaS2ESMv -7jYvF7sKdZN6v2dbNqJHWovU6dh0cFdd3/XGYRNuFOvrWrs7Ddij9m2HBLSw -ksNdcHIxBbYRNBOhfC3kFTD+V+VPEqgEx5x9pK2N/fMNZ/YTibDGQaee2aWN -RRpbOhJS48Chzims6tRmzJJzTT3oGA31uW32E+I6WC9rIktCBEwVL85q1Ohg -k4e2wAqvC2DHLBPIMNHFDx5h7fYrQ2BiTYrWzXFdnJgUL4yLPQd3Cn73T0fp -oUUptLRW+oHVVgbqybHwdpF/rLiZL0i7RdaqN7DwRz1HOU/MG8QFXStNDrKx -8Zha708nTygwPOc/foiNVbRAoWdHPGH9uYuGKYfZmNP6NqnQzBNMxyvaO4+x -UV3IIuEUyxMi3k/P2bmy8T+lz+IWIp7wKz/IwD+EjZlpW5UTvTygSy/lXVEZ -GxcHlny9LO8OTqcLMo1INk4F9We/FnSHGfK2w3AFG8060o6KzbiBKL1zVrOa -jeec9XvrXrrBLn5ZmQcNbGwWHt9b6O8G99uK7N+1s/EdLTe9rNMVjIXvqPl2 -svHt9kjbvCZX6NzxbIbWzcZX89G9+RWuMHV3KOrof2zcO/n8e3OUK6jlreP8 -GGSj6JWHJbk6rnC/S983boSN9sm8aZNMaryV+0FjnI3ikbtEzERdwTHy9Buf -aTZ+PtieoTnkAlMNERkSv9gYzyeTd7PDBULnL9vdnWdjj7WjIjS5gMjGEtUj -C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== +1:eJwV13k4VO0bB3Ch4g1JtiRlzMwZg2xRlnHfRUSFlJLy2ktRsiS02CoqRZSk +hWSZMxKVUBHRIhVFMSm8lRLZeu2p1+/5zT9zfa5zzXPOuZ77/j73qHsFOvmK +ipDPDBGR/3+PdTx/zDyVY9Ff9Zq5odPA4u1V5YiVwliIuJ+6rMFhHqBCo5ey +MAUM/7LYk++gDmGOglYxYTbs6uf4Jzvow7wBpZTJ1ttw0TdxX5jDSuissA8c +aa2BG3sFp3UdNoA1s7f9Z2sTBDXeTmLae8Jk6/LzQ62fYfeEcvgMuyCotczP +eZM9DFKwS0nkZwyodt775qX9BxiKcyoiDp4E+QB3wWxLMbzpxJmXvekspOhb +P7B3lsBMs3lrbmWeh/fpetU/ZaWR+nj5mvuBi3AqJ6pRdME8XP5M3+qU/xVQ +OvflROqV+SjsK6ksjM+C+E22Fk1jChjcqGl3e2E2hJhcc38eq4zmQbquRYXX +wWrwV+TeLyooef6eZL9ILsSYb/BUWbEI9xuul1vCzQPTmxdLjlQtxpyqaK0C +y3ywam34M1C3GKfu5cqG2uSDvYi4jXvTYrRdZn3BdG0+eDvtfQ9fF6OmTVBC +tVM+WB9Uj4qeuQSdA1+MFXnmw77FY9dXai3Bou/l3apR+fB4Z2Z/bdgS3Dx2 +1HFpeT4ETPyMrpNWxzl5aiZcDT6YBu1Q/Canjmkh0oxMNh8ketsKxJTV8Thv +yGwelw+5H2pbLBjqWOngI9qvx4eOh+e17xqr47jSN2GsBR8cjpkIr7mrY9g+ +6VxqKx8M5GJ0D95Sx+6pe5ecE/kgcmr0cXqpOraf17uwL4kPDWK7XUsfkPvV +GtQmpPDBf9Tp2M8n6rhDe+hGcTofcoTMDzvb1FG6TqKuI4cPipl1xzeJMXBP +yzJmSQUfJrVkO3ScGSif0v3CspcPY1dUYgxdGdhcJjt3oo8PI3NZTBN3BgIr +/Co9yIeBYZPdVrsYmEc7Z4uP8uHzA+8x18MMnCgpxoxpPtSvLZNJyGXg3HuZ +fZbyNGT4/w2fRxm47F531VkzGi60+33u/sXA7SMeFYM8Gs45hBzrnybrqVyR +WIs0nDFMeDEhqYFxEgPJk1Y0xE7d2jJXTQOTd075GNvT4H9q5j5zaw1UFU0y +1/WgwbzgRlZamgZq3ZtoVIul4cOSgszVlzSwpnRcWfwoDZFp9NWRTA1U586U +7T5GQ1lM3mUnWgNHYVAi7wQNBi5Z6TIVGrj9wWmuxFkaNGeeSz7+SQOT2g86 +uWXSoOh+MDpMm4mOyiPB6+7TcPdtRBRLn4k/ZEKaux/QsMku/MhbIyYeiqzp +jq6kIcVo/yEDYCKTeU37RjUN0lKB4QMbmChuoqDT/ZQG8Xte+3YcYGLNo9zl +g000/JSz89hcw8QA5qtfa3poEAYwXu9+xsRWE8fasl4aqp/+gqiXTNwq5P2j +0UdDcmTBYn4LEzsazimPDNCg91mqc7KXiTeaBk6FjtCw91aj25X5LFyZxn88 ++h8Nm+fwX91SZuHG9CeTJiICsPCN5j1dxMInjYEJB2cIQHqB/qJBioXSKbV3 +xsQEcCM65SOas9BC9dvaVxIC6HVw3tblw8KHSX6NU/ME0ETrvJjYxcIZ0dFP +FeYL4L7YLDPpQBYqRN9V1ZEXwImyUhXjCBambOrp3qgoAM5i5bb40yz8KHtb +LFZFADsH2ly0SlmY2Dx03YMhAPs1d+rgAQtvA/Oeo4YAjLNPrdhUzULUDjS0 +YApg1mZz5cP1LPQIFbrMYwsgr/JKa0MHCyu+9wSlawqgK9Fjc/BsNn6888WI +qyeAvb3aDD0pNlYs3JH7hXjcZrK/X5aNm1YFvcvQF8BfYinHdqmwUco0IlzU +UAB6EbUlHjps1LvwuLnUiLxPS1K0mgEbS69MO/5tLADLZdvXfTRmI0s08qzY +cgFsHhz5sgXZ6Pn+tJvNCgEc9mXPd9jIxrGJ71olpuR5a//tkHJhY7Lc25e2 +ZgJIXlIlqN/OxuaFdYbtxDkftqyy3sFGcRcj5z/mAqjfcCKIF8FGy5WLhhgg +AEWLvkatTDae2faxRcxSAFmXyi/1XGdjXOUOsTBizcmjO/P5bNw4+8nUV2Lz +kkXTjNtsfKYUuaHKSgDeXIelKk/Y+D0ALm2xFkBf/MJfrc/ZOOnwj145cdjX +7ifnG9i4+D/n84o2AjiZFe02T8jGN0dXv3xJXKx4O1HiBxt3b+v/rWYrANPQ +Iy5PB9moWd07fy9x7Rs75tERNrpXNf6+T9yS+OXB9B82xq7oXG1vJwCP3qL4 +SlEKGeVv8s4R99gc2nhwNoWh7WYfhMS/RRV+jMlS+JHzV7XrWgEc9/hUWqJA +YfSxFUHpxHMfFsYGq1D4dCR4vJmYEWGtMqBBYUXY9aNW60h9tsh9K+BQmNnn +mxhBbLys89YuHQqtzV7tvkFsO3jA9qsxhSXq7MI56wWgqq92XMKcQiHeuWlG +PBD8uEZrJYWBhhGcXcSPSnZP21tTaLDqt8o54nNjsubBaynUkH90vIJ4x4qy +8POOFJreXBfwmdgk0u1uuTOFNiHMlzPtBdDxh1467U6hd3vjbyviYnD0Z/hS +uGVhcYMHcVzMWP7q3RSm3x1VjSTeXHu5yy+QQqlP1PdkYs5MS/XEUHI/3Qa9 +XOJf1j1uRREUlp3eN15K/CohKaPpCIXN1hfMnxJn1Ru1jsZRGC/yQqSZOFjq +4/wFJyi8UnHOqp3Yyj7W0fwMuS48LPGVWCmZc9o9lUJJadn1vcS9bxqex6ZT +KLf3nVw/ccX8/bPyrlCYstvF9f8+47zQ8nk2hWYvNZg/iD0vPIrqy6dwZVnN +vm/Ey97vrJhbSKGVoBo7iWctlJk0uE3h78P0uXfEwu0lRpvLKFTwldzznLjg +qmtwRAWFUz8C6u8TH/lHpOjyIwpTJzwKaWJHRv6PqqcU6tQHK6YRM3zWc768 +oFBxUndWNPFo7rDPrDcUXg1jH95JXNd98ZpmC4WliV0H1xFnaGLHug8UtrRP +iOoSB/h/U9n3D4W3fP6Vm0sMhYlbUr+S9UM9bvSR/evSe//6/SDZb933h7OI +S4OjpP+MUNhlLF4WRnyihGW35BeFYlFdB+2Il64Irt0hzsE4G8mCXlJfIpHK +IiclOWj7cZ9iGXHzg4fmhTIcfPW+eW4McTjMKR1W5qBn/7ub0sS11jn8aB0O +0vafCyVJPacl2H29bsBBhxzTizWkH/zqh9SfLeegbiNXKYJYxp53SXoVB001 +qVcdpL9cnFtOZ2zmIAz/1D+9RgDcC4fqK7dxMD7Pr8aA+I+QMfuTBwdlKji9 +70j/Zm8PjKb8OXhYtGuGAnGft0RISRQHRe789ApbTer/qlVl1VEOGq76XPMX +8eD76NkvTnDw1o6Rt5dJfvzrMHnpUyoH/0Q8mXef5Mu4We9jGT4HIyI0/hOu +FMBEGHuuSiEHizZQ067Ev255bWXd5mCIf1dpG5L+pj70m1WQ3z/4sK6Z5Jmo +/EvFXa85eNBWQoPmCUDcQcIz9B0HS7MW9SoTzzxpVRDVxsEUl7SA4yQPJUQq +Ia2Lg9NuUnmuJC9l+gr9aic42JGZOtVN8nbB46T7i9Q1cfgilKaR/FaZfiGu +ydbEMovyyM8GpN9NJRyWaWlimrWauDaxWnH0FzsjTfRPUfMrJ+cB83KQVLit +Jp67NnysVIfkf+jGv5uCNLFosvfaGkpA5mEl0fgaTVzqnVFcp0zyy8uGb/ZM +E49ve8LoVBJA4rUD9kMvNLHVVe/uMDnfmtWEGVvfaeKiEKG5kgLJvwUXDbW/ +a+LbyMmvNuS8jJBZ6PtGmovemdvkHSVJfk2o1S3cysXhoN6z0+M0OCx32Pva +jYtKlSayH8Zo+Hd/lPwxLy7uTymuKhmlwWS402PAn4v6PrwSr2EanvZnTVYf +4eLrGxOiNDn/Oz8ztHbkcHGjLr+4s4sGuVfsM8WDXLTXGGJMNtLw36Bebv0I +F8uc4zcfaaChV86somuSi07UoyMzXtFQ4+LQqyyuhVblY0Uz6mkI6TpgHaOs +haKh/nRPLQ1vp+r+27BSC590Gl50KSPzG9c/cDhFC5N2OR8qu0yDakKRo7Gx +NpZ9vL0n25MGwc3C2klTbfQrMxV96U7DincFxpWgjfMfnhgfdiPzEoOvamWr +jV8vj8wCVxoSK7K+b9iujd8om/pHTjRMDZ2N3hOrjcNzTu6JtKShbWtocU6D +Nv5QSY6p0KAhXctEdv5OHexbPSaV30nmTZWVRsNnl6LTVp37AbZk/latSdZt +0cXtikfjnyXlg4xYdqhnrB66X7rRNNGYB2oxi823svVxzarmgJ6BXJBkbS91 +eqaP3ZGltdliubCUt6DogJsByhuprZFRy4HgDrlaOxFD/Nvcvr1J9ToMDic6 +26Yb4p3aO8d9qGyw0X2aYauzDNXXVJtNGV6Dh8NmU+MNy/CIl2XzMDcL9mob +tL3xNSL1vro4YddV4A34vN0qaYwCti+oul6G1Uzl9dLZxvh1b3ZRU1gGcKJP +htcsX45LvFUXbeSnA9fXpIrVthwDLJlR3Y/SwPeh39GSoBUYoH/TxU7qPFRl +vfX5qWCCU+UmdvWrU2GEPz2uW2aCY53hRhJXzoI3q0AyY70p9kTXlYwzk+En +N9X49pApTl8669ZucxrKc6Y+jSaY4ZuHbEO/nJPgaqWBZmrm6JNUlWC2PAEW +7om/t7TaHD3XURHTNcdA4a+AW+u38DByyWNZxetxkGN5OHJoKw/9DlR+GbkY +BwaHz1imbufhnVRWc0tyHNgPFb8TevIwOuHVzJwjcXC8ZXTSO4CH8jOMir1d +42AiO2pVZAwPi4+9fHJALg7azFKb8wp4eH6r7qqho7Hgtz/nsu1NHno9efNN +/1AsjN2869tXzMOmK+GXwkJiQY4hHNcv5aGqhLahpFcsrJVYpFpZzcPd76Jk +N0IsVLzN82l+x8OMO07MiF8xYCdTrhMm5GGhd3PaD/J/VmjzfEz5Aw8VqSQ5 +z54YGLn/I+Hvf3i4/emEhrMwBnSu6RX29PJQ4pB1tmdpDFS0rQxL7OdhiNcm +p75Csp78RtAd4iHvvYJEZG4M7Ijf/yZ0lIfZYj2xV8+R9aqPZyhN8FD/qryN +UWIMxP664H3/Fw9rL1BzG+NiQHYZre32h4dhs262+R+Mgat77o9OT/NwKd+Q +nhMSA/8D0CQ9rQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "PlotRange" -> {{0, 30}, {0., 0.05138341644142942}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3092,6 +8776,7 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3119,7 +8804,8 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.05138341644142942}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3127,9 +8813,9 @@ C2xMl6lZ1VHhAtlud6cXF9kY/vbfQP8sF/gfJ46Kpg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913408819317417`*^9}, + CellChangeTimes->{3.9913408819317417`*^9, 3.993827268560245*^9}, CellLabel-> - "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] + "Out[193]=",ExpressionUUID->"047ee7e9-80cd-4358-96d2-dfae3a589719"] }, Open ]], Cell[CellGroupData[{ @@ -3182,66 +8868,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[339]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], + "In[194]:=",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.2264340105931995`*^-182\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.020642922321445`*^-185\\\", \ \\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ 7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 339, 345, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881982744*^9}, + 194, 25, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.993827268682713*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], +In[194]:=",ExpressionUUID->"3fc051f0-c3bd-45c1-8246-971f5698a2de"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.0346048770632832`*^-188\\\", \ \\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ 35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 346, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340881991743*^9}, + 2, 194, 26, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9938272686898518`*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], +In[194]:=",ExpressionUUID->"59314799-9691-47c1-b45c-f1da93d05e35"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.1320123103839387`*^-192\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 339, 347, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882000746*^9}, + 2, 194, 27, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.993827268698694*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], +In[194]:=",ExpressionUUID->"d1531bcb-3688-4f3b-9424-fb2c27f64750"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 339, 348, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340882008745*^9}, +during this calculation.\"", 2, 194, 28, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340881982744*^9, 3.9938272687067757`*^9}, CellLabel-> "During evaluation of \ -In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], +In[194]:=",ExpressionUUID->"c36aa9f2-a37a-455b-9bb5-89e66154aa00"], -Cell[BoxData["12.553654989521348`"], "Output", - CellChangeTimes->{3.9913408882266617`*^9}, +Cell[BoxData["14.793947136360675`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9, 3.993827310086138*^9}, CellLabel-> - "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] + "Out[194]=",ExpressionUUID->"9368db2f-bcd9-4eb4-af1e-aa959597af06"] }, Open ]], Cell[CellGroupData[{ @@ -3309,68 +8999,72 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", CellChangeTimes->{ - 3.9918497473740044`*^9, {3.99184977815234*^9, - 3.991849780845421*^9}},ExpressionUUID->"1d118f77-7d68-dd41-b0af-\ -09454f88e7f1"], + 3.9918497473740044`*^9, {3.99184977815234*^9, 3.991849780845421*^9}}, + CellLabel-> + "In[195]:=",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 340, 349, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882626343`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7617067010132063`*^-216\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 195, 29, 31384839462689005113, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9938273102994757`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], +In[195]:=",ExpressionUUID->"4f1e100b-8b20-45bd-974f-66a025c5a8a2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 340, 350, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882726326`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.113477242117996`*^-222\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 195, 30, 31384839462689005113, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.9938273103062267`*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], +In[195]:=",ExpressionUUID->"9f23f365-45ad-47e3-b245-d30fb9061be1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 340, 351, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882816315`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.872303229875228`*^-227\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 195, 31, + 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993827310314234*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], +In[195]:=",ExpressionUUID->"3f3be738-1e5a-4a9d-a28d-8b3f42cba35f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 340, 352, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913408882906322`*^9}, +during this calculation.\"", 2, 195, 32, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913408882626343`*^9, 3.993827310321043*^9}, CellLabel-> "During evaluation of \ -In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], +In[195]:=",ExpressionUUID->"a0810225-3718-4fc6-9080-02ce046e31b4"], -Cell[BoxData["1.3456729512531673`"], "Output", - CellChangeTimes->{3.991340895263792*^9}, +Cell[BoxData["1.7479923029588627`"], "Output", + CellChangeTimes->{3.991340895263792*^9, 3.993827317906126*^9}, CellLabel-> - "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] + "Out[195]=",ExpressionUUID->"8758d30b-fad9-4384-8ac6-207e646337c5"] }, Open ]], Cell[CellGroupData[{ @@ -3391,8 +9085,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3437,68 +9130,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497892022038`*^9, - 3.991849792285101*^9}},ExpressionUUID->"c8039063-5f4d-134a-b6ba-\ -e19335f7a9f6"], + CellChangeTimes->{{3.9918497892022038`*^9, 3.991849792285101*^9}}, + CellLabel-> + "In[196]:=",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 341, 353, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895297941*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7617067010132063`*^-216\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 196, 33, 31384839462689005113, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.993827317954933*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], +In[196]:=",ExpressionUUID->"d80150fa-3663-4982-8720-3a26a931d7b9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 341, 354, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895308939*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.113477242117996`*^-222\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 196, 34, 31384839462689005113, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.99382731796247*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], +In[196]:=",ExpressionUUID->"20977f8b-cbe8-490b-a9b0-2d4f8f694969"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 341, 355, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895316965*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.872303229875228`*^-227\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 196, 35, + 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.993827317969427*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], +In[196]:=",ExpressionUUID->"198ae508-cb8a-47c4-8d24-a47e60d9c386"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 341, 356, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340895324953*^9}, +during this calculation.\"", 2, 196, 36, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340895297941*^9, 3.993827317976467*^9}, CellLabel-> "During evaluation of \ -In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], +In[196]:=",ExpressionUUID->"ed981ef3-7d6a-4d17-a2c4-a84f44943f11"], -Cell[BoxData["11.729429210875175`"], "Output", - CellChangeTimes->{3.9913409010488796`*^9}, +Cell[BoxData["60.67516358079315`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9, 3.99382732482332*^9}, CellLabel-> - "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] + "Out[196]=",ExpressionUUID->"948433c1-25ca-4a85-a7fa-ba4f11a9c055"] }, Open ]], Cell[CellGroupData[{ @@ -3519,8 +9216,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3565,68 +9261,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918497964884186`*^9, - 3.9918497998504505`*^9}},ExpressionUUID->"a474307a-af78-3040-90ec-\ -fb8d284b16bb"], + CellChangeTimes->{{3.9918497964884186`*^9, 3.9918497998504505`*^9}}, + CellLabel-> + "In[197]:=",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3698490023224742`*^-207\\\", \ -\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ -32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 342, 357, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010848827`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.7617067010132063`*^-216\\\", \ +\\\"66571774943749718920876976437469564842640151840666386203218566173970628240\ +9984000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 197, 37, 31384839462689005113, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.9938273248613977`*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], +In[197]:=",ExpressionUUID->"f7a8ea7a-e916-4761-9410-3014ad65ff11"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.771902919888384`*^-212\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 342, 358, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409010938797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.113477242117996`*^-222\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 197, 38, 31384839462689005113, + "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.99382732487062*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], +In[197]:=",ExpressionUUID->"947bef50-0d8e-4c7b-b811-2d1eefc818b1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 342, 359, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340901101883*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.872303229875228`*^-227\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 197, 39, + 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993827324880835*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], +In[197]:=",ExpressionUUID->"93eb4014-1242-4842-a80f-ecca43e4602c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 342, 360, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409011098804`*^9}, +during this calculation.\"", 2, 197, 40, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913409010848827`*^9, 3.993827324888063*^9}, CellLabel-> "During evaluation of \ -In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], +In[197]:=",ExpressionUUID->"1203d9c4-d2e2-44ff-9d9f-d3664a2a369c"], -Cell[BoxData["21.67464099510054`"], "Output", - CellChangeTimes->{3.991340904517517*^9}, +Cell[BoxData["14.028648600029827`"], "Output", + CellChangeTimes->{3.991340904517517*^9, 3.9938273289926977`*^9}, CellLabel-> - "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] + "Out[197]=",ExpressionUUID->"39c3c38d-c6fc-4ba1-ae06-2e5ccaed87b9"] }, Open ]], Cell[CellGroupData[{ @@ -3635,22 +9335,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849803549658*^9, - 3.9918498086143265`*^9}},ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-\ -f67bfdbd9bc7"], - -Cell[BoxData["0.0843966342510027`"], "Output", - CellChangeTimes->{3.991340904549515*^9}, + CellChangeTimes->{{3.991849803549658*^9, 3.9918498086143265`*^9}}, CellLabel-> - "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] + "In[198]:=",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], + +Cell[BoxData["0.05991369711826058`"], "Output", + CellChangeTimes->{3.991340904549515*^9, 3.993827329024218*^9}, + CellLabel-> + "Out[198]=",ExpressionUUID->"804286b3-4d3f-44c1-94a9-8e1144df4293"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918501018852215`*^9, 3.991850105557743*^9}, - 3.99192470649716*^9},ExpressionUUID->"d104d373-080a-854b-92ff-\ -e87abbd4c41c"], + 3.99192470649716*^9}, + CellLabel-> + "In[199]:=",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], Cell[CellGroupData[{ @@ -3673,12 +9374,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + "In[200]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[BoxData["19.580504093356314`"], "Output", - CellChangeTimes->{3.9913409045775146`*^9}, +Cell[BoxData["12.350529881119712`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9, 3.993827329043976*^9}, CellLabel-> - "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] + "Out[200]=",ExpressionUUID->"38a7cb63-305d-45eb-a062-4f0dd0b567f2"] }, Open ]], Cell[CellGroupData[{ @@ -3688,12 +9389,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + "In[201]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[BoxData["0.8477067309358528`"], "Output", - CellChangeTimes->{3.991340904625164*^9}, +Cell[BoxData["2.755411123194036`"], "Output", + CellChangeTimes->{3.991340904625164*^9, 3.993827329058813*^9}, CellLabel-> - "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] + "Out[201]=",ExpressionUUID->"4f5ed984-af2a-4933-b440-64ee8e9ce5b8"] }, Open ]], Cell[CellGroupData[{ @@ -3703,12 +9404,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + "In[202]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[BoxData["16.598525115055164`"], "Output", - CellChangeTimes->{3.9913409046880226`*^9}, +Cell[BoxData["34.03078741177757`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9, 3.99382732907397*^9}, CellLabel-> - "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] + "Out[202]=",ExpressionUUID->"302f2cc2-4658-4465-be98-262b792122b5"] }, Open ]], Cell[CellGroupData[{ @@ -3898,12 +9599,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + "In[203]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[BoxData["0.021613768236132463`"], "Output", - CellChangeTimes->{3.9913409047132187`*^9}, +Cell[BoxData["0.003925175641914996`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9, 3.993827329098359*^9}, CellLabel-> - "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] + "Out[203]=",ExpressionUUID->"03ebb836-65b7-4af3-809a-06f6defd7e62"] }, Open ]], Cell[CellGroupData[{ @@ -3917,12 +9618,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + "In[204]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[BoxData["6.028089553291302`"], "Output", - CellChangeTimes->{3.9913409048112164`*^9}, +Cell[BoxData["14.145405220723767`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9, 3.993827329211276*^9}, CellLabel-> - "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] + "Out[204]=",ExpressionUUID->"24afbf22-e41a-4615-8bdf-2f4959e587d9"] }, Open ]], Cell[CellGroupData[{ @@ -4114,12 +9815,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + "In[205]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[BoxData["0.010798036798660033`"], "Output", - CellChangeTimes->{3.991340904825058*^9}, +Cell[BoxData["0.026736112831361812`"], "Output", + CellChangeTimes->{3.991340904825058*^9, 3.993827329225655*^9}, CellLabel-> - "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] + "Out[205]=",ExpressionUUID->"23aeeae9-3203-4e5c-8a2a-dd85888c74cb"] }, Open ]], Cell[CellGroupData[{ @@ -4133,12 +9834,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + "In[206]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[BoxData["8.5284977476633`"], "Output", - CellChangeTimes->{3.9913409049303207`*^9}, +Cell[BoxData["5.4199565880358`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9, 3.993827329333708*^9}, CellLabel-> - "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] + "Out[206]=",ExpressionUUID->"2db87b00-223e-4ffd-9624-8df0405273f1"] }, Open ]], Cell[CellGroupData[{ @@ -4231,12 +9932,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + "In[207]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991340904948307*^9}, +Cell[BoxData["0.10999847360764459`"], "Output", + CellChangeTimes->{3.991340904948307*^9, 3.993827329348713*^9}, CellLabel-> - "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] + "Out[207]=",ExpressionUUID->"06899622-5878-4ba5-9734-4c364e55c7ef"] }, Open ]], Cell[CellGroupData[{ @@ -4326,12 +10027,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + "In[208]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.991340904981308*^9}, +Cell[BoxData["0.8900015263923553`"], "Output", + CellChangeTimes->{3.991340904981308*^9, 3.993827329364509*^9}, CellLabel-> - "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] + "Out[208]=",ExpressionUUID->"fa8c7061-f0b7-431e-8b4e-31e997fd2f1d"] }, Open ]], Cell[CellGroupData[{ @@ -4454,12 +10155,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + "In[209]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.99134090500931*^9}, +Cell[BoxData["0.09789880941163293`"], "Output", + CellChangeTimes->{3.99134090500931*^9, 3.993827329377454*^9}, CellLabel-> - "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] + "Out[209]=",ExpressionUUID->"ff78b39c-1181-481d-afa3-5b1264d6f6aa"] }, Open ]], Cell[CellGroupData[{ @@ -4521,68 +10222,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849824909197*^9},ExpressionUUID->"486d514f-ec65-1e4e-b780-\ -7e9487f745c3"], + CellChangeTimes->{3.991849824909197*^9}, + CellLabel-> + "In[210]:=",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 361, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905038307*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.321365431130348`*^-227\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 210, 41, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993827329390513*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], +In[210]:=",ExpressionUUID->"62d63354-dc3f-4471-818a-c2cc369abc5c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 362, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905047306*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1758380214900788`*^-233\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 210, 42, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.993827329398294*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], +In[210]:=",ExpressionUUID->"82550c94-6a93-4fbb-aa1a-047208729588"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 358, - 363, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905056307*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.955956068960984`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 210, 43, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.9938273294050922`*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], +In[210]:=",ExpressionUUID->"2ddf66bc-6b76-47d0-b2d7-25604098286b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 358, 364, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340905064308*^9}, +during this calculation.\"", 2, 210, 44, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340905038307*^9, 3.9938273294121857`*^9}, CellLabel-> "During evaluation of \ -In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], +In[210]:=",ExpressionUUID->"8d24e0d5-3d5e-4163-8889-3f63512d33e9"], -Cell[BoxData["6.028089553291301`"], "Output", - CellChangeTimes->{3.991340908920454*^9}, +Cell[BoxData["14.145405220723758`"], "Output", + CellChangeTimes->{3.991340908920454*^9, 3.993827333110083*^9}, CellLabel-> - "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] + "Out[210]=",ExpressionUUID->"bba2296a-62b9-4bf6-a083-d9ebbfe89f97"] }, Open ]], Cell[CellGroupData[{ @@ -4644,68 +10346,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918498299076843`*^9},ExpressionUUID->"c7144ce5-8356-d548-8854-\ -18c538c3321c"], + CellChangeTimes->{3.9918498299076843`*^9}, + CellLabel-> + "In[211]:=",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 365, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908954941*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.321365431130348`*^-227\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 211, 45, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.9938273331555357`*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], +In[211]:=",ExpressionUUID->"49fc0435-02cf-48e9-bd02-edf536a62d1c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 366, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908964924*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1758380214900788`*^-233\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 211, 46, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.99382733316327*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], +In[211]:=",ExpressionUUID->"9208f0cd-bfab-485d-9c20-089926974bd5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 359, - 367, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913409089739246`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.955956068960984`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 211, 47, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993827333171233*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], +In[211]:=",ExpressionUUID->"b17e7d45-57b9-4574-8773-65eeffb800d8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 359, 368, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991340908981924*^9}, +during this calculation.\"", 2, 211, 48, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991340908954941*^9, 3.993827333179316*^9}, CellLabel-> "During evaluation of \ -In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], +In[211]:=",ExpressionUUID->"8f61772a-aa32-4d13-9f88-19020ed868da"], -Cell[BoxData["8.528497747663296`"], "Output", - CellChangeTimes->{3.991340912767397*^9}, +Cell[BoxData["5.419956588035802`"], "Output", + CellChangeTimes->{3.991340912767397*^9, 3.993827336593113*^9}, CellLabel-> - "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] + "Out[211]=",ExpressionUUID->"59756729-dd1a-4557-8ba5-73f6d05ffd3a"] }, Open ]], Cell[CellGroupData[{ @@ -4763,95 +10466,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849833066021*^9},ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-\ -a45df2eabf0c"], + CellChangeTimes->{3.991849833066021*^9}, + CellLabel-> + "In[212]:=",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nc8Vf8fB3AJlZURkuyRkZJbisrnbSUyk0KI695jhMq4SaKBhpIV+pbI +yA4ZZWYl4RdJfUPJ1pdrnKy0/D73j/M4j+fjc87rvN/n8zlDlnrmKJ2djY1t +Gm+s/bm3O7Y973qrK9xb9PpMPhPpzmTuoRoWoN0MjwGWB1O1EhQMa1BSfYzc +WWwr2v+4eCmvkEaFcgLLJUFhTZyGHSjARoNyDvtmy+b6sLx36G589irLlV3n +Hv3W/IBEzkav+GFP9rWFXKj+hMKGRmUCsLeMyZ9cMviM4gfyAgOxj8yGaPt3 +fEXTjoPLDOy635M8QXlDqMQqIjsI++MVsYsVviPofMH98GDsGS7DyQXNMdTg +Knk3BJvr9ll7yvI4cnMReB2KLSWY0nqu+hsaSfTbfgXbQmLpyYwBE8U7h4dF +YhNpcqLq62fQ6CuKz03sMEXLiNMds8hC8OiN29ifxHp2BeSRqHmu71A8Ns3B +yzP+9nf03tJoMhF77iHb42e+86hAWar6H+z1cuoCpOYi2vV2y1g6dgKtyVhA +ZAldd9DVzcaWybYP27m8hMQGO5vzsfdtj5zxqf6Beg4dcCjH9tD62jFp8BtV +GGo9acNeCArk4Fb6gwKJV15d2JereQ6orP+L2A42OH7EToZ9+e4dq0jA7G/r +MKu+rFZDv7w1kBp8o/EPdl5L/OAVCXbo/XD+O0cBrnfCOST2NjuIH+625MUO +UV0sLfZdC+duvI6TwE4okpWf1eSE4ZYC7QPYfV3Mur8ZnBBLmekxxJb5/tyB +X4QLPr9MTjHHLthtEae+zAW6ssrPT2E3Vwav8a5eD05blXkisReb3n/9ZsAL +/3F5avVjC5nxClys4wX+wuS0CWyNHkPg0+YDtlBZWMD2Gi1P27WDHx62HZDm +L2Sis+wdGgd5BSC29baTIfaY3FMyYkkQTrTJ9lVhLxBtGzopQiCyIfd+GzZ7 +/rjs5nNCsKJ9JboPW4YifTRvSgiuycht/oXtYBDz7O2gMGy3FcnXfcpEnW5+ +/mLtImCXsaezE3sgOzrKZb0oJFKvjgxjM6fyMnKNRMF1UkR9CZs7YOT9/npR +cI/gd5EsYiLD8GO7XcrFwOzjLiNf7KpMrcWcVHHQY97n2VLMRJljPxk6AZLQ +3GB97X4JEx22vT7gXygJr6D5Rgk2s1n4UOG4JBRzxde8wd6duV1Exl4Kqm30 +i35iN1OdSzl1pSFTpLve+RkTfZ8dPP/tmgx0nmZP2FnKRMI+hmWl5nLQHV+5 +MF/GROOZ3B5WXnKgtl+iWbCciV587pKYjpSD66W1DTuxHc2crinVy8FawwZj +b+xMNcbR+5ryMN2WHTqBvXsyey5UTAEMyjcljVcw0TF3HnXTIUW4Krjr9LpK +JkIMW80TfxSh1zbeXBVbNSJ1L01cCYxNTR3NsdkyKPqh1krAmC/5G49dOHDy +xLMGJQh4ZXJCvgo/n8cLrmxJ3wYTb9KPm1bj+gzNP05SVUApcSqispaJMmyS ++pdDVcDD/9ncEHY0dWiQ44EKlHXlXOeuw+v7cuCU1HsVyOSS1nHEFqxJYbMx +UIVDJF/Jmpd4/VBmVKvl1WAq48PYsXomkpC7GxY1uh0qV+pdtzYxUc2tBZUV +dnXY8PK2lgW247x9DyGrDnY7FNBl7EfNCir6zuqQW/l0ahRbzr2q+8e/6nC/ +729JcTPut2BMkWjfAS8uTZDWLUwkKSFFyNhrgLOrza7qN0y0PSuA9xfSBJHA +tv3K75iISru2qG6hCWJ5tY1U7GT5uAEXR02wsXNgpGCvTS8qbgnShLCoG27C +3fh5ezR5LK5EE+RHrtqueY/fp8kuKSryFMid1U0c68HzG2W2w45rN4Q7roZ0 +fmKix34KVuUdewCEuk8rDzFRFwPtDc/SBjWfpfyHi0wk6/zBwsn7IIhFuK/t +4J1G9NWKp5IXAJpOeicoKk4jsakX68So+sDXF5oVqD+NAigHPsepGoKMj2fX +JZdpRJ3+3So8aQQc1o8NnC5Po0J9/3WpncZgGez18l7WNMpc8GooSDABLp9q +0bK2afRDb/P/msOOwM5jShvPLE6jL2xrySFXc5i/uER7IzuDfLeeibkibwnD +UscH1c1n0FPP1vp7EVaQ4jkgYx06g4LnxZfVPK0h4Y09/CmcQYumh46/PnUU +PvL7D/iNzCDtk7F6Y9Y2QEkrLYwXn0Xd4ilezZRjEBP2tdfJfBZteXKtJkfZ +FlR3RktWRc6iF4OqZhZ8x4FI4B7eVzuLpHrm3BnTx+G3YXyL7fwsotyLLcgY +PAG3JooyTMXmUArH/I64JjvI1zGo3USZQxV6O/siKu0BbW0z0LGeQ8l7bwn+ +znOASZOZy89951Bnf1Yk5fZJODwy+IDt1hwqN3+ocPayI7grqQ1pZc8h0seG +zZfmBGbKv8tXG+bQ4iEVjxkDZ9i5zW+osH8O5Uz3/vDXOgWktNR849Icsnuc +5ebE6wJXHrv5q24kUemzI6fWXneB2KPDejeVSaQt0b1yc8UFXtYONQsjEskP +uve983QFs7eN0r9sSDTKc9ry4YgrtB+uSdDwJFFXtIWbsS0VvAoYaaEXSZQQ +lMoT2EWFNwt9RxLvkKimbnXFzcQN5LgKOC6kkGijI1ynVLlBXhz7mkj83ZPZ +9Lpza40bnNeZrqzC1ugw38xV5wYGvYbWs9hHD5zM/dTgBi2mChJ2+Th/K6P9 +0hs3GBzilFAuINGWL/kbWz+5wQcZ35aGQhIpOIslOy67QcyfE1n9xbgfl5mc +iN00eLkiejKngkRP7s/5W2jRIFVHKOkd9qb333XF9tGAzTWr7Cf2jNFyT85+ +Gtypu5Zg9pzE7y+2NR36NDi1Ujo+g82/LGgvZE2DMFrEO/VKfD/u7NmQ6kOD +xKZ7TxKqSWT9em+P+xkaMGo1+Kuw69h0UjXO0eDX1NTxr9j3/XX3NAbQgKOw +LEqlhkQW9sauYxdpkPt6+9Ua7EoF+0q1WzQ4+Csn9XMtiaKrQzxfPKFBhfNC +OGc9iXw0k7SDcmiQcPmaqxK2WW7Jhn15NChi/JU2xuZOGs99XkgD2e58/RvY +EX5WkxVlNIgJjZHa0ECiEBWF0+WNNLA0ZapzNpLIK6nd+9kADfpLuxLHm0hk +wj9+wG+QBlyjWvlrm0mkHMHGpzlMg4Es9ccy2ON+ewpLxmgwvL1xlwO2q0Xq +dDGTBl+4Do61Y9tx+vsW/aSB3n8a8bmvSGTsv+VsgSgdnkc5rJi/JlFjaqRp +3GY6HInLdvbEPtDxXSFoCx1WQhtTw7E1FNt7DaTowK16vLwKW/zfiwb9inTQ +CUlXV2wl0ZTOF1HuPXRQCTOxmse+y55W625Dh1++50wD2nD/O3mTzW3pcEqA +QyEKO/xkkB/lBB3kOfh6H2MHlVltW3Wgg8/y+Q9vsV2JNbGJVDp0B/uIbWsn +EaWNSnt1Dp9/6mVtF/a/sYo88jF0uOYgFL7+fyR6ivg8vsXSIceXGiOOHT69 +0FwYTweh1IwQVWxNk+bQfUl0qBr6vnAEO5rN7bv5Izq0+ifT7mAfOpPWG1RA +BxsyS5f7LYkkJW9o6T6lQ9JDMxNx7IW2M/Fri+mgtdJOUcZOV0Lm0aV0YIha +5hhh//nypT6jig4j1WhjGHaZmUTO21Y6dMQ+eD+FHfWTnTOhjQ7ruFT6f2BT +cyZd7TvocOjthUbOThIJcFRJjHbSodbXRUMa27va7u7KRzo8U5K5aYUtr5rI +UBijg4QeXb0Q++e/l97/N06HrCf/aLzA7oqgaxR9owPadEW4CTt0aPekNpMO +zoOOQZ+w+5LfO1nO0/H/IKVuTReJ4tYJGgWvIcBcNlLbArvm+5eTAWsJkHGZ +BTvsiS95fr6cBOgMsMtQsQ+UGaZRNxAQOCFPD8Qedwn6ZSpIwB36Dp5/sAXM +jISMhAnwLXvTmY69f6+QChIhgOnE5Z2PHcNXcJwiTkBx7im1GtZ41dcSCVkC +0mIYr/qxiayCVhF5Aqb/shmPsI6PufB1oyIBw6KKaZOs6xHCfBwqBLxo0er9 +wRoXNvZgahCQ1+pBCL8jUdVf4bBxTQI2cOZmimOP/Td4b3A3AXq+IVXS2Dr1 +wU09+whwH+31VsMe9X4qVQsElGk7MgGb3+7inuf6BJjck5swwtY2OGxWYoj7 ++cCoNMWOFh++kHWYgKGqllEb7BccRTGppgRwHG44aIc9Mnsx+74ZAXY3jX0d +sfe1iHy4Y0WAjfqiLQ2bWjI8df0oAZ6PJPg8sO88LGK/eoyAmMH2B6exh/1M +NBh2uH7VVuSHzecsanzWgQBvQtg2kJVnMuLk5UjA6pdxvSDW+dKXopxdCGCX +Uky/xKqH2zTdjornT/+uyGVW3qJo5VEaAX12l12usvKGRjrNCAK2bv1xNZyV +11E8fsiDgFzTpZBIVn3PL/0BLwLEc4ItbrDy00037fcm4OPv8OWbrPw7Ymp7 +fAnYJioSFMXKDxrV23mWAOkW1a7b2Ly0EjsVP5w38mr1DvZey9Az8gEERJqO +c91l5esciZRkEGDZHzXG8m3FzSliQbi/ixUPYrArBMZKBYNx/SKESiz20K+S +Np4QAsKS/olmmXcidIgzlAD/JZt2lrW6j/xYDSOgTjXuK8v/B0PjTx4= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -4865,106 +10567,106 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwV1nc8Vf8fB3AJlZURkuyRkZJbisrnbSUyk0KI695jhMq4SaKBhpIV+pbI +yA4ZZWYl4RdJfUPJ1pdrnKy0/D73j/M4j+fjc87rvN/n8zlDlnrmKJ2djY1t +Gm+s/bm3O7Y973qrK9xb9PpMPhPpzmTuoRoWoN0MjwGWB1O1EhQMa1BSfYzc +WWwr2v+4eCmvkEaFcgLLJUFhTZyGHSjARoNyDvtmy+b6sLx36G589irLlV3n +Hv3W/IBEzkav+GFP9rWFXKj+hMKGRmUCsLeMyZ9cMviM4gfyAgOxj8yGaPt3 +fEXTjoPLDOy635M8QXlDqMQqIjsI++MVsYsVviPofMH98GDsGS7DyQXNMdTg +Knk3BJvr9ll7yvI4cnMReB2KLSWY0nqu+hsaSfTbfgXbQmLpyYwBE8U7h4dF +YhNpcqLq62fQ6CuKz03sMEXLiNMds8hC8OiN29ifxHp2BeSRqHmu71A8Ns3B +yzP+9nf03tJoMhF77iHb42e+86hAWar6H+z1cuoCpOYi2vV2y1g6dgKtyVhA +ZAldd9DVzcaWybYP27m8hMQGO5vzsfdtj5zxqf6Beg4dcCjH9tD62jFp8BtV +GGo9acNeCArk4Fb6gwKJV15d2JereQ6orP+L2A42OH7EToZ9+e4dq0jA7G/r +MKu+rFZDv7w1kBp8o/EPdl5L/OAVCXbo/XD+O0cBrnfCOST2NjuIH+625MUO +UV0sLfZdC+duvI6TwE4okpWf1eSE4ZYC7QPYfV3Mur8ZnBBLmekxxJb5/tyB +X4QLPr9MTjHHLthtEae+zAW6ssrPT2E3Vwav8a5eD05blXkisReb3n/9ZsAL +/3F5avVjC5nxClys4wX+wuS0CWyNHkPg0+YDtlBZWMD2Gi1P27WDHx62HZDm +L2Sis+wdGgd5BSC29baTIfaY3FMyYkkQTrTJ9lVhLxBtGzopQiCyIfd+GzZ7 +/rjs5nNCsKJ9JboPW4YifTRvSgiuycht/oXtYBDz7O2gMGy3FcnXfcpEnW5+ +/mLtImCXsaezE3sgOzrKZb0oJFKvjgxjM6fyMnKNRMF1UkR9CZs7YOT9/npR +cI/gd5EsYiLD8GO7XcrFwOzjLiNf7KpMrcWcVHHQY97n2VLMRJljPxk6AZLQ +3GB97X4JEx22vT7gXygJr6D5Rgk2s1n4UOG4JBRzxde8wd6duV1Exl4Kqm30 +i35iN1OdSzl1pSFTpLve+RkTfZ8dPP/tmgx0nmZP2FnKRMI+hmWl5nLQHV+5 +MF/GROOZ3B5WXnKgtl+iWbCciV587pKYjpSD66W1DTuxHc2crinVy8FawwZj +b+xMNcbR+5ryMN2WHTqBvXsyey5UTAEMyjcljVcw0TF3HnXTIUW4Krjr9LpK +JkIMW80TfxSh1zbeXBVbNSJ1L01cCYxNTR3NsdkyKPqh1krAmC/5G49dOHDy +xLMGJQh4ZXJCvgo/n8cLrmxJ3wYTb9KPm1bj+gzNP05SVUApcSqispaJMmyS ++pdDVcDD/9ncEHY0dWiQ44EKlHXlXOeuw+v7cuCU1HsVyOSS1nHEFqxJYbMx +UIVDJF/Jmpd4/VBmVKvl1WAq48PYsXomkpC7GxY1uh0qV+pdtzYxUc2tBZUV +dnXY8PK2lgW247x9DyGrDnY7FNBl7EfNCir6zuqQW/l0ahRbzr2q+8e/6nC/ +729JcTPut2BMkWjfAS8uTZDWLUwkKSFFyNhrgLOrza7qN0y0PSuA9xfSBJHA +tv3K75iISru2qG6hCWJ5tY1U7GT5uAEXR02wsXNgpGCvTS8qbgnShLCoG27C +3fh5ezR5LK5EE+RHrtqueY/fp8kuKSryFMid1U0c68HzG2W2w45rN4Q7roZ0 +fmKix34KVuUdewCEuk8rDzFRFwPtDc/SBjWfpfyHi0wk6/zBwsn7IIhFuK/t +4J1G9NWKp5IXAJpOeicoKk4jsakX68So+sDXF5oVqD+NAigHPsepGoKMj2fX +JZdpRJ3+3So8aQQc1o8NnC5Po0J9/3WpncZgGez18l7WNMpc8GooSDABLp9q +0bK2afRDb/P/msOOwM5jShvPLE6jL2xrySFXc5i/uER7IzuDfLeeibkibwnD +UscH1c1n0FPP1vp7EVaQ4jkgYx06g4LnxZfVPK0h4Y09/CmcQYumh46/PnUU +PvL7D/iNzCDtk7F6Y9Y2QEkrLYwXn0Xd4ilezZRjEBP2tdfJfBZteXKtJkfZ +FlR3RktWRc6iF4OqZhZ8x4FI4B7eVzuLpHrm3BnTx+G3YXyL7fwsotyLLcgY +PAG3JooyTMXmUArH/I64JjvI1zGo3USZQxV6O/siKu0BbW0z0LGeQ8l7bwn+ +znOASZOZy89951Bnf1Yk5fZJODwy+IDt1hwqN3+ocPayI7grqQ1pZc8h0seG +zZfmBGbKv8tXG+bQ4iEVjxkDZ9i5zW+osH8O5Uz3/vDXOgWktNR849Icsnuc +5ebE6wJXHrv5q24kUemzI6fWXneB2KPDejeVSaQt0b1yc8UFXtYONQsjEskP +uve983QFs7eN0r9sSDTKc9ry4YgrtB+uSdDwJFFXtIWbsS0VvAoYaaEXSZQQ +lMoT2EWFNwt9RxLvkKimbnXFzcQN5LgKOC6kkGijI1ynVLlBXhz7mkj83ZPZ +9Lpza40bnNeZrqzC1ugw38xV5wYGvYbWs9hHD5zM/dTgBi2mChJ2+Th/K6P9 +0hs3GBzilFAuINGWL/kbWz+5wQcZ35aGQhIpOIslOy67QcyfE1n9xbgfl5mc +iN00eLkiejKngkRP7s/5W2jRIFVHKOkd9qb333XF9tGAzTWr7Cf2jNFyT85+ +Gtypu5Zg9pzE7y+2NR36NDi1Ujo+g82/LGgvZE2DMFrEO/VKfD/u7NmQ6kOD +xKZ7TxKqSWT9em+P+xkaMGo1+Kuw69h0UjXO0eDX1NTxr9j3/XX3NAbQgKOw +LEqlhkQW9sauYxdpkPt6+9Ua7EoF+0q1WzQ4+Csn9XMtiaKrQzxfPKFBhfNC +OGc9iXw0k7SDcmiQcPmaqxK2WW7Jhn15NChi/JU2xuZOGs99XkgD2e58/RvY +EX5WkxVlNIgJjZHa0ECiEBWF0+WNNLA0ZapzNpLIK6nd+9kADfpLuxLHm0hk +wj9+wG+QBlyjWvlrm0mkHMHGpzlMg4Es9ccy2ON+ewpLxmgwvL1xlwO2q0Xq +dDGTBl+4Do61Y9tx+vsW/aSB3n8a8bmvSGTsv+VsgSgdnkc5rJi/JlFjaqRp +3GY6HInLdvbEPtDxXSFoCx1WQhtTw7E1FNt7DaTowK16vLwKW/zfiwb9inTQ +CUlXV2wl0ZTOF1HuPXRQCTOxmse+y55W625Dh1++50wD2nD/O3mTzW3pcEqA +QyEKO/xkkB/lBB3kOfh6H2MHlVltW3Wgg8/y+Q9vsV2JNbGJVDp0B/uIbWsn +EaWNSnt1Dp9/6mVtF/a/sYo88jF0uOYgFL7+fyR6ivg8vsXSIceXGiOOHT69 +0FwYTweh1IwQVWxNk+bQfUl0qBr6vnAEO5rN7bv5Izq0+ifT7mAfOpPWG1RA +BxsyS5f7LYkkJW9o6T6lQ9JDMxNx7IW2M/Fri+mgtdJOUcZOV0Lm0aV0YIha +5hhh//nypT6jig4j1WhjGHaZmUTO21Y6dMQ+eD+FHfWTnTOhjQ7ruFT6f2BT +cyZd7TvocOjthUbOThIJcFRJjHbSodbXRUMa27va7u7KRzo8U5K5aYUtr5rI +UBijg4QeXb0Q++e/l97/N06HrCf/aLzA7oqgaxR9owPadEW4CTt0aPekNpMO +zoOOQZ+w+5LfO1nO0/H/IKVuTReJ4tYJGgWvIcBcNlLbArvm+5eTAWsJkHGZ +BTvsiS95fr6cBOgMsMtQsQ+UGaZRNxAQOCFPD8Qedwn6ZSpIwB36Dp5/sAXM +jISMhAnwLXvTmY69f6+QChIhgOnE5Z2PHcNXcJwiTkBx7im1GtZ41dcSCVkC +0mIYr/qxiayCVhF5Aqb/shmPsI6PufB1oyIBw6KKaZOs6xHCfBwqBLxo0er9 +wRoXNvZgahCQ1+pBCL8jUdVf4bBxTQI2cOZmimOP/Td4b3A3AXq+IVXS2Dr1 +wU09+whwH+31VsMe9X4qVQsElGk7MgGb3+7inuf6BJjck5swwtY2OGxWYoj7 ++cCoNMWOFh++kHWYgKGqllEb7BccRTGppgRwHG44aIc9Mnsx+74ZAXY3jX0d +sfe1iHy4Y0WAjfqiLQ2bWjI8df0oAZ6PJPg8sO88LGK/eoyAmMH2B6exh/1M +NBh2uH7VVuSHzecsanzWgQBvQtg2kJVnMuLk5UjA6pdxvSDW+dKXopxdCGCX +Uky/xKqH2zTdjornT/+uyGVW3qJo5VEaAX12l12usvKGRjrNCAK2bv1xNZyV +11E8fsiDgFzTpZBIVn3PL/0BLwLEc4ItbrDy00037fcm4OPv8OWbrPw7Ymp7 +fAnYJioSFMXKDxrV23mWAOkW1a7b2Ly0EjsVP5w38mr1DvZey9Az8gEERJqO +c91l5esciZRkEGDZHzXG8m3FzSliQbi/ixUPYrArBMZKBYNx/SKESiz20K+S +Np4QAsKS/olmmXcidIgzlAD/JZt2lrW6j/xYDSOgTjXuK8v/B0PjTx4= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "PlotRange" -> {{0, 180}, {0.8959273243079074, + 1.1136645062676247`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.8959273243079094}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -4976,20 +10678,21 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.8959273243079074, + 1.1136645062676247`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.8959273243079094}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5003,105 +10706,104 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1XdcT98fB/ArSpOGlgZaRJGWCp23hqSpr3Zan8+9KZWWNGVlfBGpfqFo -kIY2aaAtSd+KsrqftEN7KVH6HX/cx308H+dx3ud13ueOTe7HrUg2giC+4evv -3b9l++bSthbdDTd5I+M7CNAdf6DhbpCLJs8mvYrD7knRjJczeI4+r7bOjMW2 -ZP7Hwav2EoXK6EjGYBeFRNWxGzQj89OmCpexLzeIVUflvEVRYTEvz2KXt/nf -W1R9j2aEV/4Kwx7ubIoIffYJua7Mr/PHXj8o6zinz0ISKXEyHtgmExHagc3d -SG+qTMQRu3JxmCckpxfF5smmmmF/OCMa/tS3H/mpdVbqYo9zGAzPqg6igWv9 -AduxOa762avND6GEQKPnktjSAncb/Z99Qw/3r0niwjaXmHs4rj+KLBO/i3W3 -E0Clyogoc46jUlXBslfYUfIW0ceaJ9D6+Zej+difRDt2BuVMocS4PyKh2EwH -L8+4q9Po0EAyrxP2ZDKRVuw7g6QtFhL3YnPKKPNPqf5A7FUKfovvCIhn1hnx -C8+hygSRF5+xN2baR+2Yn0PFimypJdhaShfGfZ79ROfOC2zxxD6q2d08rL+I -QveI61e9JWA25MQqboUltHBheF8s9ulnPHsUOf8g9Nnqoxv2LdB65NG8jJq7 -9Rr+tOF8GY0GATkrQKpgb+lm7JyGuJ4zEmww/9rFZ7wV5/3qHBF7lQ1Sa79U -PMaO2PrjcaHvSvBpcZfUwY4v2CQ7ocoOHO+fLGq0ENDZNlr55z47sNcM+039 -h/NPlzqsEeaARyU+kY+wc9XNbyrPc8D7Q90uEtj15WErvJ9xgoaBpvnwGwJ+ -1LV3f9PnheG9xJTBawIETXn5wyt5wVB3TL+vkQCVDgPg0+aDixcHpyOxvQZK -UnduXwNVsR/IwlcE+LE1q+zl5QdUw/ZwRQMBgzL5U9FzArAYUlBvXYv7QzVx -taoJQt9t3dlPNQSwPRraJOYvCItkxTkH7I1qG6xyRgRBROl6nV01AQ76N4pb -eoSAdfJ0y75KAloZAYGib4RhrHXaqqGcgC+ZMVdcOUXgJU/b/R3YoyM597MN -ReDEJkf7xDICuIP623dXi8BNldczbqUEGJw/rO5aIgoqhXYT/U8IqHig+SMr -RRzi9DPNkwoIeDD4K1gnSArKL5QZdN4n4ID1xS+BeVLwcVRFTxp7tF5of96Q -FGzlON/vmk6A+gMl4Y320vCsdoNQXyrup7vzY3bdDeC0vE6l4y4B0xM9J7+d -2wi8zgrFJxMJEPIxePLYTAaMeQWiKi8TMPSA+6illwwoI5nCj5cIKGO1SYxd -kAGNMZvYiYsEOJkeOadQLQMF7z+TEhdwvm3BVrdVZcF153YG4yxefzhz8pSo -HGw/tJ6/JIyAwx48ygd75aHFeL2tuxcBKNha1XZJHpLH1KptPQnYGp2yiymu -AFUW1KzJUQKI+2p6pw4pgNiW4SoVioC8L462xTUKEH/QfnLEDb+fNrln1qdv -Bp3Q+xsU7XE+A7MPw+6KoK8vKFy7nwAJmetRVwaUQMnkY/K/0gQ8/3dWcYFN -GbYXBbaIS+H8M/Yd1CZlSNvwvSJTgoB79XKKes7KcHhG41WVGAEyHhXvfn5U -BslOy5oeQZwvd1CeerMddhQ3sYY4CJCSkKY22qvAJGNtugBrGSllBPH+Rqog -f5X7e5L/MkoLkLMsadaAnI57XDbxf1BbMNp1PkMbaklO54xLS2iT83vzI957 -YWbWOknBexGRy0/zpUIBchnHW8StfyPRkbLVou56UJGVXE9J/UJBantYN7ca -gMq4SHbx3E/kPrbYKDRsCBOeSXWGH+ZRnl7g6pRWI9gaVZeclDaHHsx61eTG -G8MXeU2z8Es/0M99Yv/VR5lAiXjw3ia3WdRFrJzqdTMDiwsJu66ZziBfyeM3 -zshawKU/+0rmrKdRvmdjdUK0JTiF1HQz7aZQ2Iz4/DbPQ/icbs4ohE6iHwf3 -27xysYI7Db95uZUmkLZj7L7BQ/+Asf0uzswrY+id+F2verXDkCJ6+tqaTaNo -/cNzz7O2WENfi/b1nY+HUVnPVlNzPhv44VF/RCn4O5LumPQIHrOBt5HsrbbW -35BaQmzu/R5byJyweGet9hXdXTWz/WadHaxRUEwntYfQ0307OqPL7UHxnv75 -cjSIbu36V2AxxwEUAvhiqpwHUCudcUHtqiNwjbTHVt/tRyVmyXJ+p50gXK/2 -SGZXH5ry+YfwZR6BstZTf4K0+9CP/YpHx/Wd4f6SoEpDRi/KGvv8M1DTBcou -N4iHCPUiu7QMxhFeV3DonBKDxB70uNjEZeVFV2BVcg5ukepB2hLvFi4vuEJH -oQHPJe9uJNvj0fnW0w0OOMMx36df0ADPMYvkfjdYDnIRLWf/gtpizBlG1u4Q -u/ripF1gF4oPSeE50eYOUJt1deYrCz2vXF5gGDNAyVHlTK4/C+2sUdfabMKA -22ENy+v8WOhhnWfwsCkDpI4UBZ7yZaHYxvZpP0sGhHDP6hw+xkLUu8yRSFsG -DO7W0uchWUhgyKIrkWRAZJCzRKYdHudLrX5zhgE9kZUz8cBCa53goloFAwq0 -sz7vE2KhjetetUo+Z4BXgKz7awEWUmk2E+OoZEBTgcIKK34WstrjmP2phgHV -dZvPUnwsFC8Z/CbyNQNEbzdfSV7NQuu7Hq1t/MQAAd76pD2LNJJzFr3lNM+A -+fTLGSZDNNJ2Hc+KVmcCoSgXevcFjR7engw012TCtmKukcjnNFrXPq0rqsUE -x4FvRi7PaDRuON+RtZsJIqXbauXKafRgG7GiWY8JKfMjJRVPaLRmXsBe8BAT -ZNoHzgnm0vg/rsGV4sOE1vex3P5JNDr0aleHx3EmpGWn5PjeoVEloZOi4s8E -2/+uqPrcptHtQF2N2iAmhKunLXgn0sjc3shtMJwJH8PV3U/G0ahczr58279M -OHup71LpFRrFPIvwLHvIhNzKvusDETTyUU3UDsliwhXJn6dXYptmF3Fp5TCh -sVPHXDacRtyJQ9mleUy4yvUrggylUXSA5fDTJ0wo9tJVnD1BowhFuWMltXg/ -CWK5Osdp5JX4xrv4CxOO5LV/OuZOI+M1Q3sCepgwwcm+7aEbjbZEE3yqfUzQ -2yxs2+tKo6EAjbyiQSYweq/ucXChkZt5yljhKBO2Ti/q2DjRyI490LfgF+5f -pNp8sA2NjALX++WKkCA5eu63gwmNalMuHLwpRsLraIu5tIM02tM8LReyngTf -/J0T341ppCL/5rO+NAmF3OOdEQdoJP4xXJ+WJ8FYd/etfEMajeh0iXBrkPCI -Z+OdfUCj62ypLzz+IUFYTB3kNfH+d/DeMrMmoThTir6iQaPzjiEBarYkeNyc -9p9Rp1HIE8vNyw4kuA9uiHuphvNTK2L/507CdZlPaSd20kityZ350p8EVZnY -/lXKNPoYK88jewPn5+aI75ajUT7iO/otloT5s0uFPtjnx2br8+JIMNv4KnNR -lkaqxvWntBJJWPDIkpHCjiEY02b3SGhuump6dBON9h9P/RySi+v1eB7dLE0j -KalLmrr5JFQXTErVSdFotul43MpCEtzmC3NdsNMVkFnMYxLO+VRYJ0nSaKmr -q/p+BQkP8hY7JCVo9MRUIqulkYQVvKzTB8RodOUXG3t8E+7PyYWXU6I0cs8a -drNvJmG//Jv+JGz+VRUSA60knE71zp4WoZH3M7vrCx9ISGt+75gjTCPZrf8L -lhsk4bvhuI2eEI1+fYxs/z5EwvKFHtkFQRq1RZMqBd9IsN0t/LoQ+1Sv+rD2 -KAkFKkrJMtidt9qPWMyQ4PTNhckvQKObqwUMw1ZQsJZ15+S6tTR6Pt3lGLSS -gkeX4vverqHR166cAF92CnYejne4gb3niUGqOxcFeTsv+/NjD7mG/D4oQIH+ -77M6Unw4v6mhoKEQBSY1X3n7eWm0e5egIhKmgBEtMZqNfYMv10ZNnIKxwg9t -On/HK7qLJDZREFkzqerJQyMqI7dRWJaC/nebju3CvnEjtHutPAUCaLqAA3uI -EuJbpUhBTYyjSxY3HhcyOjqqQgGbV9Xhn1w0qvgjFDWkSsGKL/ZTLdiD33sS -etQpUIw+duchtk51WF2HFgXesX0C9tgD3vnSL4CCbqXshCZO/P2wC9co1aPg -2kx0Qja2tv4B0yIDvD6Up13GjhHvC804gPtlKtxtil22quBGykG8vtEufhXs -/onwzNumFNzVTTdbh63VIPz+miUFL/r3j3Wvxudd1Ddy0YqC0mdhFq+wryUX -sJ09TEHY4MiLAuy+AGOVYDsKRt+EV53D5nMWMfJzoMAgPcHqOLaWcf8RLycK -Qpb6phz/zt8QecXZlQKPyrXWWthl3AfT7dwpiFcaEdvyt94PkXIrJgWtKtPf -xP7W6+1vNaUoWBKXfcn9t15z4dD+oxTMHY7IW+LA+Uojl8CLAtJ7MW0K+1r6 -wXW7vSno4UxPH8Iuuya6TcOXgpbJYwUs7L6QgX07/Cjw57RvbMfmZRbZKQZQ -IGl1dOwN9i6LU8dlgyhIG7sl/fJvfR2TC1LBFPwRG3aswr4qL3ZXNISCiR2O -GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia -70x+Lkfh53XZ2uCv/w8uxqIW +1:eJwV1nc8Vf8fB3AJlZURkuyRkZJbisrnbSUyk0KI695jhMq4SaKBhpIV+pbI +yA4ZZWYl4RdJfUPJ1pdrnKy0/D73j/M4j+fjc87rvN/n8zlDlnrmKJ2djY1t +Gm+s/bm3O7Y973qrK9xb9PpMPhPpzmTuoRoWoN0MjwGWB1O1EhQMa1BSfYzc +WWwr2v+4eCmvkEaFcgLLJUFhTZyGHSjARoNyDvtmy+b6sLx36G589irLlV3n +Hv3W/IBEzkav+GFP9rWFXKj+hMKGRmUCsLeMyZ9cMviM4gfyAgOxj8yGaPt3 +fEXTjoPLDOy635M8QXlDqMQqIjsI++MVsYsVviPofMH98GDsGS7DyQXNMdTg +Knk3BJvr9ll7yvI4cnMReB2KLSWY0nqu+hsaSfTbfgXbQmLpyYwBE8U7h4dF +YhNpcqLq62fQ6CuKz03sMEXLiNMds8hC8OiN29ifxHp2BeSRqHmu71A8Ns3B +yzP+9nf03tJoMhF77iHb42e+86hAWar6H+z1cuoCpOYi2vV2y1g6dgKtyVhA +ZAldd9DVzcaWybYP27m8hMQGO5vzsfdtj5zxqf6Beg4dcCjH9tD62jFp8BtV +GGo9acNeCArk4Fb6gwKJV15d2JereQ6orP+L2A42OH7EToZ9+e4dq0jA7G/r +MKu+rFZDv7w1kBp8o/EPdl5L/OAVCXbo/XD+O0cBrnfCOST2NjuIH+625MUO +UV0sLfZdC+duvI6TwE4okpWf1eSE4ZYC7QPYfV3Mur8ZnBBLmekxxJb5/tyB +X4QLPr9MTjHHLthtEae+zAW6ssrPT2E3Vwav8a5eD05blXkisReb3n/9ZsAL +/3F5avVjC5nxClys4wX+wuS0CWyNHkPg0+YDtlBZWMD2Gi1P27WDHx62HZDm +L2Sis+wdGgd5BSC29baTIfaY3FMyYkkQTrTJ9lVhLxBtGzopQiCyIfd+GzZ7 +/rjs5nNCsKJ9JboPW4YifTRvSgiuycht/oXtYBDz7O2gMGy3FcnXfcpEnW5+ +/mLtImCXsaezE3sgOzrKZb0oJFKvjgxjM6fyMnKNRMF1UkR9CZs7YOT9/npR +cI/gd5EsYiLD8GO7XcrFwOzjLiNf7KpMrcWcVHHQY97n2VLMRJljPxk6AZLQ +3GB97X4JEx22vT7gXygJr6D5Rgk2s1n4UOG4JBRzxde8wd6duV1Exl4Kqm30 +i35iN1OdSzl1pSFTpLve+RkTfZ8dPP/tmgx0nmZP2FnKRMI+hmWl5nLQHV+5 +MF/GROOZ3B5WXnKgtl+iWbCciV587pKYjpSD66W1DTuxHc2crinVy8FawwZj +b+xMNcbR+5ryMN2WHTqBvXsyey5UTAEMyjcljVcw0TF3HnXTIUW4Krjr9LpK +JkIMW80TfxSh1zbeXBVbNSJ1L01cCYxNTR3NsdkyKPqh1krAmC/5G49dOHDy +xLMGJQh4ZXJCvgo/n8cLrmxJ3wYTb9KPm1bj+gzNP05SVUApcSqispaJMmyS ++pdDVcDD/9ncEHY0dWiQ44EKlHXlXOeuw+v7cuCU1HsVyOSS1nHEFqxJYbMx +UIVDJF/Jmpd4/VBmVKvl1WAq48PYsXomkpC7GxY1uh0qV+pdtzYxUc2tBZUV +dnXY8PK2lgW247x9DyGrDnY7FNBl7EfNCir6zuqQW/l0ahRbzr2q+8e/6nC/ +729JcTPut2BMkWjfAS8uTZDWLUwkKSFFyNhrgLOrza7qN0y0PSuA9xfSBJHA +tv3K75iISru2qG6hCWJ5tY1U7GT5uAEXR02wsXNgpGCvTS8qbgnShLCoG27C +3fh5ezR5LK5EE+RHrtqueY/fp8kuKSryFMid1U0c68HzG2W2w45rN4Q7roZ0 +fmKix34KVuUdewCEuk8rDzFRFwPtDc/SBjWfpfyHi0wk6/zBwsn7IIhFuK/t +4J1G9NWKp5IXAJpOeicoKk4jsakX68So+sDXF5oVqD+NAigHPsepGoKMj2fX +JZdpRJ3+3So8aQQc1o8NnC5Po0J9/3WpncZgGez18l7WNMpc8GooSDABLp9q +0bK2afRDb/P/msOOwM5jShvPLE6jL2xrySFXc5i/uER7IzuDfLeeibkibwnD +UscH1c1n0FPP1vp7EVaQ4jkgYx06g4LnxZfVPK0h4Y09/CmcQYumh46/PnUU +PvL7D/iNzCDtk7F6Y9Y2QEkrLYwXn0Xd4ilezZRjEBP2tdfJfBZteXKtJkfZ +FlR3RktWRc6iF4OqZhZ8x4FI4B7eVzuLpHrm3BnTx+G3YXyL7fwsotyLLcgY +PAG3JooyTMXmUArH/I64JjvI1zGo3USZQxV6O/siKu0BbW0z0LGeQ8l7bwn+ +znOASZOZy89951Bnf1Yk5fZJODwy+IDt1hwqN3+ocPayI7grqQ1pZc8h0seG +zZfmBGbKv8tXG+bQ4iEVjxkDZ9i5zW+osH8O5Uz3/vDXOgWktNR849Icsnuc +5ebE6wJXHrv5q24kUemzI6fWXneB2KPDejeVSaQt0b1yc8UFXtYONQsjEskP +uve983QFs7eN0r9sSDTKc9ry4YgrtB+uSdDwJFFXtIWbsS0VvAoYaaEXSZQQ +lMoT2EWFNwt9RxLvkKimbnXFzcQN5LgKOC6kkGijI1ynVLlBXhz7mkj83ZPZ +9Lpza40bnNeZrqzC1ugw38xV5wYGvYbWs9hHD5zM/dTgBi2mChJ2+Th/K6P9 +0hs3GBzilFAuINGWL/kbWz+5wQcZ35aGQhIpOIslOy67QcyfE1n9xbgfl5mc +iN00eLkiejKngkRP7s/5W2jRIFVHKOkd9qb333XF9tGAzTWr7Cf2jNFyT85+ +Gtypu5Zg9pzE7y+2NR36NDi1Ujo+g82/LGgvZE2DMFrEO/VKfD/u7NmQ6kOD +xKZ7TxKqSWT9em+P+xkaMGo1+Kuw69h0UjXO0eDX1NTxr9j3/XX3NAbQgKOw +LEqlhkQW9sauYxdpkPt6+9Ua7EoF+0q1WzQ4+Csn9XMtiaKrQzxfPKFBhfNC +OGc9iXw0k7SDcmiQcPmaqxK2WW7Jhn15NChi/JU2xuZOGs99XkgD2e58/RvY +EX5WkxVlNIgJjZHa0ECiEBWF0+WNNLA0ZapzNpLIK6nd+9kADfpLuxLHm0hk +wj9+wG+QBlyjWvlrm0mkHMHGpzlMg4Es9ccy2ON+ewpLxmgwvL1xlwO2q0Xq +dDGTBl+4Do61Y9tx+vsW/aSB3n8a8bmvSGTsv+VsgSgdnkc5rJi/JlFjaqRp +3GY6HInLdvbEPtDxXSFoCx1WQhtTw7E1FNt7DaTowK16vLwKW/zfiwb9inTQ +CUlXV2wl0ZTOF1HuPXRQCTOxmse+y55W625Dh1++50wD2nD/O3mTzW3pcEqA +QyEKO/xkkB/lBB3kOfh6H2MHlVltW3Wgg8/y+Q9vsV2JNbGJVDp0B/uIbWsn +EaWNSnt1Dp9/6mVtF/a/sYo88jF0uOYgFL7+fyR6ivg8vsXSIceXGiOOHT69 +0FwYTweh1IwQVWxNk+bQfUl0qBr6vnAEO5rN7bv5Izq0+ifT7mAfOpPWG1RA +BxsyS5f7LYkkJW9o6T6lQ9JDMxNx7IW2M/Fri+mgtdJOUcZOV0Lm0aV0YIha +5hhh//nypT6jig4j1WhjGHaZmUTO21Y6dMQ+eD+FHfWTnTOhjQ7ruFT6f2BT +cyZd7TvocOjthUbOThIJcFRJjHbSodbXRUMa27va7u7KRzo8U5K5aYUtr5rI +UBijg4QeXb0Q++e/l97/N06HrCf/aLzA7oqgaxR9owPadEW4CTt0aPekNpMO +zoOOQZ+w+5LfO1nO0/H/IKVuTReJ4tYJGgWvIcBcNlLbArvm+5eTAWsJkHGZ +BTvsiS95fr6cBOgMsMtQsQ+UGaZRNxAQOCFPD8Qedwn6ZSpIwB36Dp5/sAXM +jISMhAnwLXvTmY69f6+QChIhgOnE5Z2PHcNXcJwiTkBx7im1GtZ41dcSCVkC +0mIYr/qxiayCVhF5Aqb/shmPsI6PufB1oyIBw6KKaZOs6xHCfBwqBLxo0er9 +wRoXNvZgahCQ1+pBCL8jUdVf4bBxTQI2cOZmimOP/Td4b3A3AXq+IVXS2Dr1 +wU09+whwH+31VsMe9X4qVQsElGk7MgGb3+7inuf6BJjck5swwtY2OGxWYoj7 ++cCoNMWOFh++kHWYgKGqllEb7BccRTGppgRwHG44aIc9Mnsx+74ZAXY3jX0d +sfe1iHy4Y0WAjfqiLQ2bWjI8df0oAZ6PJPg8sO88LGK/eoyAmMH2B6exh/1M +NBh2uH7VVuSHzecsanzWgQBvQtg2kJVnMuLk5UjA6pdxvSDW+dKXopxdCGCX +Uky/xKqH2zTdjornT/+uyGVW3qJo5VEaAX12l12usvKGRjrNCAK2bv1xNZyV +11E8fsiDgFzTpZBIVn3PL/0BLwLEc4ItbrDy00037fcm4OPv8OWbrPw7Ymp7 +fAnYJioSFMXKDxrV23mWAOkW1a7b2Ly0EjsVP5w38mr1DvZey9Az8gEERJqO +c91l5esciZRkEGDZHzXG8m3FzSliQbi/ixUPYrArBMZKBYNx/SKESiz20K+S +Np4QAsKS/olmmXcidIgzlAD/JZt2lrW6j/xYDSOgTjXuK8v/B0PjTx4= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.4222837130873766, 2.103798844286089}}, + "PlotRange" -> {{0, 180}, {0.8959273243079074, 1.1136645062676247`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.42228371308737755`}, + "AxesOrigin" -> {0, 0.8959273243079094}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5111,7 +10813,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.42228371308737755`}, + AxesOrigin->{0, 0.8959273243079094}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5139,7 +10842,8 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.4222837130873766, 2.103798844286089}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8959273243079074, 1.1136645062676247`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5147,9 +10851,9 @@ GRXYT/kHHwuEUSCUO/LrKXbv76Imngh8PnJJTk/+1v96qpf9FAUFFp5Nxdia Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913411752988663`*^9}, + CellChangeTimes->{3.9913411752988663`*^9, 3.9938276319119787`*^9}, CellLabel-> - "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] + "Out[212]=",ExpressionUUID->"543a050b-cfb5-4e2d-a6db-24344b05bdff"] }, Open ]], Cell[CellGroupData[{ @@ -5212,157 +10916,161 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918498397477245`*^9, - 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ -70a15768b745"], + CellChangeTimes->{{3.9918498397477245`*^9, 3.9918498435341415`*^9}}, + CellLabel-> + "In[213]:=",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.3966731935235128`*^-280\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 213, + 49, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993827632052464*^9}, + CellLabel-> + "During evaluation of \ +In[213]:=",ExpressionUUID->"aa96b99c-236e-474d-a713-e2b91ce7aec7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6571574455096116`*^-293\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 213, + 50, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993827632059811*^9}, + CellLabel-> + "During evaluation of \ +In[213]:=",ExpressionUUID->"308be073-6585-4596-b00a-63c7ed37fb19"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.055216727124997`*^-306\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 361, - 369, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755393047`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 213, + 51, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993827632068246*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 361, 370, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755492897`*^9}, - CellLabel-> - "During evaluation of \ -In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 361, 371, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991341175557289*^9}, - CellLabel-> - "During evaluation of \ -In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], +In[213]:=",ExpressionUUID->"56307149-a4f8-4406-bcf9-80e9fb6c0656"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 361, 372, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913411755664787`*^9}, +during this calculation.\"", 2, 213, 52, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913411755393047`*^9, 3.993827632076264*^9}, CellLabel-> "During evaluation of \ -In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], +In[213]:=",ExpressionUUID->"50c0111e-00d9-4454-8b6c-11a5f3a74f4f"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Vd0XB3A/JPVGUjKU+d5zzSJD4lqLDJFooFGIVESGypDpIkORV2gy +ROZ7T0UqRSqhEkUiU6UkKpWhEE1++/3rPp/nPuecffbe67vXUXT32+TJz8fH +J/Q/Pr7/fqf6HjcwkgpN2YFv7+QW6pl2XJAKNeuOgea72gV5o+KAEq3uUt1p +4G1hIhs0qgRBG3hdAt358IPRHec8qguLRiTTZroqQMb8/H7TUXN4U2PvN9FV +Byfty5YMj2wCK8bw6/Gu52DovfUd76s7zHQZnh7regdPG/zGbn4MhPo1JYVt ++d9Btrxo596cWFj+pmrIXeMPrNR1LbIaTYYlPq68uWsEcP8j1+8Bn9MgTcfq +tr2TME5v6bhqlnEWes6tqB0XE0FYte+T/+0sSCqMauWXXoQPaZ+wK79yQTJj +4Hh6zmLUF9+X5Dl6ERIcbUyfT0ng39MRrQezCuCQ0UXXxzFSqHA6plvBrAgs +Rn8ePTggg0MzPzE3rxiiTTbullkli5K/it7MtpbAWpcL3wzNZTH/sWxFY0cJ +iHI+xzrZyeK3f1wPpvSUQHZ9XHGqmyyuG1EtEBsogVu21Z+FjsuijPLRqdHJ +Ehjbphz0vUcWbfZMzpdZVgouRyZPPAmTw+owL0sZj1JYfeX89ch78mhkfuPH +vU+lYNHV8mekUR6vtV2fDf9aCvZ8gtauz+VxzyaV9YbjpeCx6WAPDMpjdpH4 +rYLpUrAKU4zizFHADwGFzTvncsFffqrATF0BQ6w7u9cyuNCwL/drfZACukV2 +yy515oLNbyPx8DAF7NAprwhz5UJLaoeBHkcBrW8wk/rcudBTNY9TeFwBRT60 +CmV7cWHkn8PicdkK+HHhMZWpIC5Ila81tKoj93OREmed4oLP9DinUUQRxXfG +hIfVc2F1wN6lQ+KKmHhzbH7zQy4ID/fSAlKKuM4x2V2yiQtFL+s7TZUUMV0i +xLf4GRf67p7WuGGgiN8uRX3Pec0Fhzij7ouuiui2a/fTb1Nc0BWP1g67qohF +qn/N9Vg84EuabDhXqYjZunOlZdV40CLgvaPytiK2Vbyp5tfkwYHJTXHjDxQx +0D3SvUGXB4XdjJf7ehVxzpJFloqmPFia2xjvKKCET6MzgswceTCjLtan6aSE +Zi+8CpdH8mAqRyZ65Q4ljJ9LxaVzeDCxkMkwclXCTMY+x7mxPBj5buRt4aWE +m7eb3BtM4MG72x5TOyKU8Pq68uaIUzxoWndTNLFICQPkTnyVKeRB5gEXeDep +hAfd5PrnP+LB2df73334qYRr9eC3/GMeZDgcivs6q4RNrGUius08SFmZ2Dw9 +Txmjr4stWt/Kg5hfV7culFPGRON9XJcu8n5Jc/xNrJQx+5jB9rEhHpjQl/LO +nFHGwdriO60CNLxUoHMts5RxneXaJ3vn0HD0DPfCRK4yzpPXNv0lRMPN6OLs +TVxlXBPRZ7d8Pg262/LOidYoYxX/FlkQo0F1TkZqfL8yToQlNs5dTkPj0bR/ +9YeUcQfDU+OILA17x1JT3g8rY6f47x9v5GgofHky2XyCXP8y9tFlRRoUKhIS +/woxcN4T0w1qLBqWuoZxgjQYGPL90boSHRpudIRGMXUY6LyL6fBZlwZH25DI +Dn0GDtcuvaehR0Oa/pFwXWCg16GZwRIDGkQW+IWMbGSg7q+ybVHGNAhWufvv +DWZgt/0VmWsWNIyL27ptqWOgf+yqAyucaOj2UXrm/YiBW70a5xhuoaH24U+I +esLAAuaBotVbaUg9SsuXdjLQgNUwuWo7DSveLXgzM8zAutbXHxbtouHg1dZd +OYuZmHBOKVx/Dw1b/il9elWKie23Tuct8KTB1JPDfijLxBKZura3xCLSOrKj +LCbevWTmzNlHwyVO2is0YeKi1x3y2d40DDs47Xy/h4lm7y89t/Kn4TlXs3na +i4nH3irNjhBXCwgZi/gx0f5bEGYE0HD8ZqWMQSgTz4W2C3QG0qAiL9WbcJKJ +YU3a2QZHaBALHbPJTmPilcd7Ih8RTz9vrCo/y8T7CbdCnYLIesWHnu+5yMRD +Zwbv7A+mYd9I7zb1SibOck8l+YTSYL/2WiPcZuLw7wnLIWKD/KRVjrVMFP3y +QnbXURqEtphIRTQx8ezwWhXzMBpGypYknmplouba6Z3lxJ3zvv4o6mDih9eu +ZcvCaSi+k9PV0sdE6d1nb34iTpEMsh4YYKKRXaKvXQQNQQH2N398ZOJ670OW +l4gtmbNnFL6T55tH7fKIpOF9stuWwLkUpswEm5ZFkfkf1lBasYDCs3yxslPE +P6xnvn4VozByq2j0ag4N8wXS4rxkKJTLT+q6TZzh5rKRJU+hhFVA8zSx7F01 +2UFlCoUz71qujCbrG1p/3U2TQj2fsNY84urOfzlyuhQGOvS/aSdeo+ds98qA +wp2XskIEY2h4ckpFKtOYwuRkKlOXeMvoxMBWpHCDw18LF+K3dvfLJCwpjOXm +hiYQe/NOhrXbUOhRlLDqCnGEJ7XYYTOFdx0Vt04QC9V/61uwjcJPD1puLo4l ++0/hHq/JmcKazdWFK4hlIpOCEndTeL7cXW5d7H/1tNXcai8Z74AV04NYy4gh +KniAwl1WQ1UhxDfPjPXc96OwI7H2VRIxTtQURR2mUO2yU0o2cdPG4wHsUAoP +zaNaecSOZU7sXxEUGltX5FYSv16gNK8qhkJLjzC+WuK93iMdQQkUul7m//aQ +eOxRdZ5eMoWGjY8PNxMfZSb4fEulUIe76fhTYoHYzavKT1O44pz8iv+c/FZe +8GAmhb7a17yaiJeafmlVz6XQZmeqwQPivKxbWZ8KKJTfsfrsHWLVmWP7SkrJ +etXoJV8jrtiycaXnZTI/7gJLS4hNrsvOKlVQ+CxaTf8c8cNFw01vK8l4crSG +44k3+FWeuXCbwuITGfqHiHufxLg711IY5d8vuYvYQ81BS+YBhX0PMk9ZEH9J +WPaz6zGFnpusClSJgwY/PDjdQqGIlvf6BcR8a66f2txO4UxtcuoXsl4n8ji7 +FnWT8dfr+TYRL/lrp9r6isJ+k08DRcQ5O6Unk/spXB+nMxlJXL60Iln4M4VX +fLM/qRKvPhy57eEohUo2rU9/kf1V32bLODZB4W+vSvtm4s7kgduzfygccHqg +4kHsNlyWcIefhYLPZ2PUiT9Zh28Om8vCzZOLw8fJfv7NL/F5SoyFZ0bG7YKI +4936K69LkP8HnzH1iRfevRwTKMPCkIZrueOkXpRCrWRGlFno8KwixIPYZjTY +ZtCAhfd/D7aokXpbriMXL2zCwos5B3NaST2OBDbUqZuxcAcvojSAOGNKzCRw +HQtZD/mCL5N67vvD1Zp1ZaHflO88QVL/5bDhgJInCw8L/2xNI3kRGz1VYunN +wuSE6m45YpU5axSTD7PQ5uDNa1okXwIXvFosfZyFrZynBZokjyzsYzaYpJDx +tVGpxSSvJFNVTrqms7BNJrxhOXHN4iNCxTksfN8xR/h/JN+ElonO6Faw8Kql +zEIuycNMVeyze8lCX43LdcG+NPgcGJLxf8vCJBflhAc+NMDl5K3pgyyU4vfL +FSN+v6LnWc8oC70NTrRcIHmstSqwfq+gCrriX+Msktf1VoWlHE0VbHfn/F2y +m4YzibaDBboqWBMcvnOVGw37m8YUHxmq4IneeKntrjSI2rOzRMxVUNK5/0Ya +OS+2OXWezNyiQs678PQhcp588RA+dD1KBf+6jBxftInM7wWLO/eOqeBzI0Fx +sY00jPZw5jYfV0Evdqzcgg00fHOYyepPV8GSx/cf/V5P8s54uEG0VAXTuUf8 +a21o4F/yZKnXMxWU8Hd70IY0SDf8Wy2rqIr6fBveKWqS/JhtFlSlVFFU7Pah +5+pkfVcLO+ipq2IPzzafo0aDXDlnwFZfFZtc+XtfkPOYkR2wIMRGFaf2LWzy +UCL5eHizy/MAVTyw2cNVVJIm/bskf0KdKrprLxco/MuDT+7WpcaPVFHwQp0r +8w8Pki8G2481k/tVGt0r/MWDdrnuzO0vVPHQfuvjOdM8cJM+v1Ljoyo6Xec6 +B3/jQajoMs82ETXUz/E++2SQB5em5RqXbVdDjrmJLD/pd8SfUinlo2poWPX5 +571/efB3dEVR04QaDtxyfZl9kgfD4sY172fUcI+b1fngJB7UbXMYlhJUxy7n ++Vcp0n8deh9sFS2ljm0lLV4HSP/W8avx70YzdZz4Pd78rw/pt9QO+H1PU0ep +JucqW2seLE8s22BgoIHhW77N1JD+knflcv3Mag1sHnb1sJzgwqoXtMEd0MBa +rTHlJ+NccFQqXW5ho4Hb4pMud3zhQnJN3seNzhqo1a0/3faOC7/GTnF8YzTw +/JshycgWLvRuP1xe2EKuzz/96WIhF86pG4kt3qeJG3s/7Fxjx4UmGTP976e0 +sDMyKHxDCun/l9elandqY2Tw72F1Hvm+EMg/vDtmBTqWCQ89qS8GuWh5k+2U +Dp4Ybzctqy6CeUznyk2PdPD+rXMZjrxC0GJLlwXv0sV1Y4z+E4UFENgnXm/L +txKP3bndsD42H0a/JzvZnFuJ54eCsmYCL4K19sNMG009TBLvNKT258Hd78a/ +frTo4UtP3jqLtAtwUEO3t81TH9dYhyzZHZsN7JE9HdvnGaBVqHZxjlMmWDKk +1ovkG6Csm3L7MedzoMI5EVJnaIhF9fE1SZFnQM3T6B6z1xBvayUtKziZAZ53 +9x+7HrAKT/uINTe2p8G9vI494xJG2G5tftdS9BRMlM7+0L5phAuEpflXd6WA +B5Oel7l+NVbkZbaX/EyCcbV0g4qx1aRfKovLkjgOtwp/9U8mGqOtW7xrSno8 +7LBQRmM5E5RZZigtZXcMlvkmVGnVmqCIQt9CuzkxIDHf5+r6rWz8Jy8zSHox +BwrXRBwd287G7Dz/bU3zOaAbkbIm3ZmNUwa6cZH8HLAfK3/RvZuNQnOfhvYP +REF85+SMhw8bS/v+oWYuRsF0fpT50Wg2/i/Z5pS7fBT0Gqe3F9NsbJewOLpE +PhL2HynMtrnCRk3HJj+rhZEwdeWG55dyNjYfePUscjYCxJW6f+hUsnFNv+4z +/rcRsE5YdvmdWjZ+PO+fs/ViBNR0FO9pf8HGkPwc05XMCLAVvaUZ1M3G/V1H +1jZLREC39eMpqZds/Dr3RYmXUARMVH9OdHnLxgfeGburPoSD5sUVlz8Ns9Go +auR8IS8canrNgpK/snH6R4+KX1Y42C7ZDNpjbKyYWcqPyeGwN+FI2+FJNr4S +eXdywjccJmrjMyWn2Vj9MJvd7RIOMT/PelT/ZGNnKr9unUM4iOlxNXb9YaNw +XKlXBYbDBd/qydlZNpaA8kCpTjj8HxJjgR0= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5376,116 +11084,116 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV13k4Vd0XB3A/JPVGUjKU+d5zzSJD4lqLDJFooFGIVESGypDpIkORV2gy +ROZ7T0UqRSqhEkUiU6UkKpWhEE1++/3rPp/nPuecffbe67vXUXT32+TJz8fH +J/Q/Pr7/fqf6HjcwkgpN2YFv7+QW6pl2XJAKNeuOgea72gV5o+KAEq3uUt1p +4G1hIhs0qgRBG3hdAt358IPRHec8qguLRiTTZroqQMb8/H7TUXN4U2PvN9FV +Byfty5YMj2wCK8bw6/Gu52DovfUd76s7zHQZnh7regdPG/zGbn4MhPo1JYVt ++d9Btrxo596cWFj+pmrIXeMPrNR1LbIaTYYlPq68uWsEcP8j1+8Bn9MgTcfq +tr2TME5v6bhqlnEWes6tqB0XE0FYte+T/+0sSCqMauWXXoQPaZ+wK79yQTJj +4Hh6zmLUF9+X5Dl6ERIcbUyfT0ng39MRrQezCuCQ0UXXxzFSqHA6plvBrAgs +Rn8ePTggg0MzPzE3rxiiTTbullkli5K/it7MtpbAWpcL3wzNZTH/sWxFY0cJ +iHI+xzrZyeK3f1wPpvSUQHZ9XHGqmyyuG1EtEBsogVu21Z+FjsuijPLRqdHJ +Ehjbphz0vUcWbfZMzpdZVgouRyZPPAmTw+owL0sZj1JYfeX89ch78mhkfuPH +vU+lYNHV8mekUR6vtV2fDf9aCvZ8gtauz+VxzyaV9YbjpeCx6WAPDMpjdpH4 +rYLpUrAKU4zizFHADwGFzTvncsFffqrATF0BQ6w7u9cyuNCwL/drfZACukV2 +yy515oLNbyPx8DAF7NAprwhz5UJLaoeBHkcBrW8wk/rcudBTNY9TeFwBRT60 +CmV7cWHkn8PicdkK+HHhMZWpIC5Ila81tKoj93OREmed4oLP9DinUUQRxXfG +hIfVc2F1wN6lQ+KKmHhzbH7zQy4ID/fSAlKKuM4x2V2yiQtFL+s7TZUUMV0i +xLf4GRf67p7WuGGgiN8uRX3Pec0Fhzij7ouuiui2a/fTb1Nc0BWP1g67qohF +qn/N9Vg84EuabDhXqYjZunOlZdV40CLgvaPytiK2Vbyp5tfkwYHJTXHjDxQx +0D3SvUGXB4XdjJf7ehVxzpJFloqmPFia2xjvKKCET6MzgswceTCjLtan6aSE +Zi+8CpdH8mAqRyZ65Q4ljJ9LxaVzeDCxkMkwclXCTMY+x7mxPBj5buRt4aWE +m7eb3BtM4MG72x5TOyKU8Pq68uaIUzxoWndTNLFICQPkTnyVKeRB5gEXeDep +hAfd5PrnP+LB2df73334qYRr9eC3/GMeZDgcivs6q4RNrGUius08SFmZ2Dw9 +Txmjr4stWt/Kg5hfV7culFPGRON9XJcu8n5Jc/xNrJQx+5jB9rEhHpjQl/LO +nFHGwdriO60CNLxUoHMts5RxneXaJ3vn0HD0DPfCRK4yzpPXNv0lRMPN6OLs +TVxlXBPRZ7d8Pg262/LOidYoYxX/FlkQo0F1TkZqfL8yToQlNs5dTkPj0bR/ +9YeUcQfDU+OILA17x1JT3g8rY6f47x9v5GgofHky2XyCXP8y9tFlRRoUKhIS +/woxcN4T0w1qLBqWuoZxgjQYGPL90boSHRpudIRGMXUY6LyL6fBZlwZH25DI +Dn0GDtcuvaehR0Oa/pFwXWCg16GZwRIDGkQW+IWMbGSg7q+ybVHGNAhWufvv +DWZgt/0VmWsWNIyL27ptqWOgf+yqAyucaOj2UXrm/YiBW70a5xhuoaH24U+I +esLAAuaBotVbaUg9SsuXdjLQgNUwuWo7DSveLXgzM8zAutbXHxbtouHg1dZd +OYuZmHBOKVx/Dw1b/il9elWKie23Tuct8KTB1JPDfijLxBKZura3xCLSOrKj +LCbevWTmzNlHwyVO2is0YeKi1x3y2d40DDs47Xy/h4lm7y89t/Kn4TlXs3na +i4nH3irNjhBXCwgZi/gx0f5bEGYE0HD8ZqWMQSgTz4W2C3QG0qAiL9WbcJKJ +YU3a2QZHaBALHbPJTmPilcd7Ih8RTz9vrCo/y8T7CbdCnYLIesWHnu+5yMRD +Zwbv7A+mYd9I7zb1SibOck8l+YTSYL/2WiPcZuLw7wnLIWKD/KRVjrVMFP3y +QnbXURqEtphIRTQx8ezwWhXzMBpGypYknmplouba6Z3lxJ3zvv4o6mDih9eu +ZcvCaSi+k9PV0sdE6d1nb34iTpEMsh4YYKKRXaKvXQQNQQH2N398ZOJ670OW +l4gtmbNnFL6T55tH7fKIpOF9stuWwLkUpswEm5ZFkfkf1lBasYDCs3yxslPE +P6xnvn4VozByq2j0ag4N8wXS4rxkKJTLT+q6TZzh5rKRJU+hhFVA8zSx7F01 +2UFlCoUz71qujCbrG1p/3U2TQj2fsNY84urOfzlyuhQGOvS/aSdeo+ds98qA +wp2XskIEY2h4ckpFKtOYwuRkKlOXeMvoxMBWpHCDw18LF+K3dvfLJCwpjOXm +hiYQe/NOhrXbUOhRlLDqCnGEJ7XYYTOFdx0Vt04QC9V/61uwjcJPD1puLo4l ++0/hHq/JmcKazdWFK4hlIpOCEndTeL7cXW5d7H/1tNXcai8Z74AV04NYy4gh +KniAwl1WQ1UhxDfPjPXc96OwI7H2VRIxTtQURR2mUO2yU0o2cdPG4wHsUAoP +zaNaecSOZU7sXxEUGltX5FYSv16gNK8qhkJLjzC+WuK93iMdQQkUul7m//aQ +eOxRdZ5eMoWGjY8PNxMfZSb4fEulUIe76fhTYoHYzavKT1O44pz8iv+c/FZe +8GAmhb7a17yaiJeafmlVz6XQZmeqwQPivKxbWZ8KKJTfsfrsHWLVmWP7SkrJ +etXoJV8jrtiycaXnZTI/7gJLS4hNrsvOKlVQ+CxaTf8c8cNFw01vK8l4crSG +44k3+FWeuXCbwuITGfqHiHufxLg711IY5d8vuYvYQ81BS+YBhX0PMk9ZEH9J +WPaz6zGFnpusClSJgwY/PDjdQqGIlvf6BcR8a66f2txO4UxtcuoXsl4n8ji7 +FnWT8dfr+TYRL/lrp9r6isJ+k08DRcQ5O6Unk/spXB+nMxlJXL60Iln4M4VX +fLM/qRKvPhy57eEohUo2rU9/kf1V32bLODZB4W+vSvtm4s7kgduzfygccHqg +4kHsNlyWcIefhYLPZ2PUiT9Zh28Om8vCzZOLw8fJfv7NL/F5SoyFZ0bG7YKI +4936K69LkP8HnzH1iRfevRwTKMPCkIZrueOkXpRCrWRGlFno8KwixIPYZjTY +ZtCAhfd/D7aokXpbriMXL2zCwos5B3NaST2OBDbUqZuxcAcvojSAOGNKzCRw +HQtZD/mCL5N67vvD1Zp1ZaHflO88QVL/5bDhgJInCw8L/2xNI3kRGz1VYunN +wuSE6m45YpU5axSTD7PQ5uDNa1okXwIXvFosfZyFrZynBZokjyzsYzaYpJDx +tVGpxSSvJFNVTrqms7BNJrxhOXHN4iNCxTksfN8xR/h/JN+ElonO6Faw8Kql +zEIuycNMVeyze8lCX43LdcG+NPgcGJLxf8vCJBflhAc+NMDl5K3pgyyU4vfL +FSN+v6LnWc8oC70NTrRcIHmstSqwfq+gCrriX+Msktf1VoWlHE0VbHfn/F2y +m4YzibaDBboqWBMcvnOVGw37m8YUHxmq4IneeKntrjSI2rOzRMxVUNK5/0Ya +OS+2OXWezNyiQs678PQhcp588RA+dD1KBf+6jBxftInM7wWLO/eOqeBzI0Fx +sY00jPZw5jYfV0Evdqzcgg00fHOYyepPV8GSx/cf/V5P8s54uEG0VAXTuUf8 +a21o4F/yZKnXMxWU8Hd70IY0SDf8Wy2rqIr6fBveKWqS/JhtFlSlVFFU7Pah +5+pkfVcLO+ipq2IPzzafo0aDXDlnwFZfFZtc+XtfkPOYkR2wIMRGFaf2LWzy +UCL5eHizy/MAVTyw2cNVVJIm/bskf0KdKrprLxco/MuDT+7WpcaPVFHwQp0r +8w8Pki8G2481k/tVGt0r/MWDdrnuzO0vVPHQfuvjOdM8cJM+v1Ljoyo6Xec6 +B3/jQajoMs82ETXUz/E++2SQB5em5RqXbVdDjrmJLD/pd8SfUinlo2poWPX5 +571/efB3dEVR04QaDtxyfZl9kgfD4sY172fUcI+b1fngJB7UbXMYlhJUxy7n ++Vcp0n8deh9sFS2ljm0lLV4HSP/W8avx70YzdZz4Pd78rw/pt9QO+H1PU0ep +JucqW2seLE8s22BgoIHhW77N1JD+knflcv3Mag1sHnb1sJzgwqoXtMEd0MBa +rTHlJ+NccFQqXW5ho4Hb4pMud3zhQnJN3seNzhqo1a0/3faOC7/GTnF8YzTw +/JshycgWLvRuP1xe2EKuzz/96WIhF86pG4kt3qeJG3s/7Fxjx4UmGTP976e0 +sDMyKHxDCun/l9elandqY2Tw72F1Hvm+EMg/vDtmBTqWCQ89qS8GuWh5k+2U +Dp4Ybzctqy6CeUznyk2PdPD+rXMZjrxC0GJLlwXv0sV1Y4z+E4UFENgnXm/L +txKP3bndsD42H0a/JzvZnFuJ54eCsmYCL4K19sNMG009TBLvNKT258Hd78a/ +frTo4UtP3jqLtAtwUEO3t81TH9dYhyzZHZsN7JE9HdvnGaBVqHZxjlMmWDKk +1ovkG6Csm3L7MedzoMI5EVJnaIhF9fE1SZFnQM3T6B6z1xBvayUtKziZAZ53 +9x+7HrAKT/uINTe2p8G9vI494xJG2G5tftdS9BRMlM7+0L5phAuEpflXd6WA +B5Oel7l+NVbkZbaX/EyCcbV0g4qx1aRfKovLkjgOtwp/9U8mGqOtW7xrSno8 +7LBQRmM5E5RZZigtZXcMlvkmVGnVmqCIQt9CuzkxIDHf5+r6rWz8Jy8zSHox +BwrXRBwd287G7Dz/bU3zOaAbkbIm3ZmNUwa6cZH8HLAfK3/RvZuNQnOfhvYP +REF85+SMhw8bS/v+oWYuRsF0fpT50Wg2/i/Z5pS7fBT0Gqe3F9NsbJewOLpE +PhL2HynMtrnCRk3HJj+rhZEwdeWG55dyNjYfePUscjYCxJW6f+hUsnFNv+4z +/rcRsE5YdvmdWjZ+PO+fs/ViBNR0FO9pf8HGkPwc05XMCLAVvaUZ1M3G/V1H +1jZLREC39eMpqZds/Dr3RYmXUARMVH9OdHnLxgfeGburPoSD5sUVlz8Ns9Go +auR8IS8canrNgpK/snH6R4+KX1Y42C7ZDNpjbKyYWcqPyeGwN+FI2+FJNr4S +eXdywjccJmrjMyWn2Vj9MJvd7RIOMT/PelT/ZGNnKr9unUM4iOlxNXb9YaNw +XKlXBYbDBd/qydlZNpaA8kCpTjj8HxJjgR0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.053739951146172145`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5497,19 +11205,19 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.053739951146172145`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5523,115 +11231,115 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4Fe0bB3BLZHfOmXOOpWSX4ljatOC+lRJCSqUSlZCSSki0IKIkokUK -FVleJeQl25mTpZCUJaGy11uUlKW0+T2/v+b6XHPNXPPM9Xy/c4/67oMbPESE -hITEhYWE/n+c7K6v0Yq5ZB7C8Wvr2bfOvC1V8ZhFhx94DayLX8ecD8h5vlux -IxyWBuzazWQuh8D1/7wS7UiAOKWPV4YZNsAcUUiYenUbagt39ZQwtkFPhf3B -8VeFsMq2lK/M2AdrtIbefn1VBQt1p1bQssEw9crk8uirFnhpa1fhNuMcVK/K -ymi+PQCmfzRLtb4mw+ye0ve79T/DvlDDB8ea04Ht4/bPzFVjYOGlWn6nJQcS -jNeU22/6Abaf4ku3ieRDZ5KR4CvjDyjc9DOZ+7AQYjJOPRdREsYah4rfRw78 -CwqXBs4mpoiirEhhb0trCUQ5WZu3TIqhuXP/P1delIJyUZOyiLA4hiQ8Tczs -KIU8yum7sbQ4dgxJ3ynoLYX2Ftf8i6ri2LCGNi0dLQUtR38Nx7XiuFApXOcC -owyq7NLEX1wTx7yuMba9Qxn8WTPR9Mx0Js53i1yqVl8GR5bdcqsPl8DH1+55 -9t0rB5ubcuO25yVQPmbZWywqB42Zx6ObLktgxOWdo9fLyuFF2+aC1mwJjLuV -MmT5pBwMDsmIdjdJ4LFTA+q7e8vhQ+bRzG/KkmhzpNeknlkBLmz7z7MeSKL3 -h0ZVq8MVYPnlZ7DvgBQulBiIG9GohGNrL81/9EkKY/KKSxR0KyHvFq+LmpTC -Mt2IRFNeJSg67VxWKiGN1Glnz2MmlfDpYe13UQNpLHZb5E/bVkJieLz/tSBp -9FM9L3fiSCX0c3R8a2RlcPFE0u5KuhIUDtIqCgoy2Mz4WetSUwnr6pyfeavJ -oFD+3c7vdZVQHByjL79QBu+tbmeqt1TCuZ7Roa3OMigToVEDg5WwIKfc68tt -GWz4ulAvbyYfwkwddykvlcWHqhxZB1s+rHVN/WayUhYfta1Sr3Tgg1zo8OlN -62TRzzlHQ8eJDzeqIzPjd8pinkTY5w8ufHhoUzYsflYWdcXPZRr78mHUWTNw -rFMW6xP41c/j+OAaMHGuMUQO37T59MJzPmhfXTl7KFIOPS72/Cfdyifrj7s3 -M14Oo6c8+1va+RD8e96LlRlyqLe2ocCxmw+XT7tyShvlUFjr6SPWZz40XnyS -dkdFHn28tgzdlqRhed61opO0PFo7zhH8MafB8lXTn5E6eWyqrb/7zYIGe6EZ -Vm4t8vgsMcpswJIG9w2+nfBOHjXuZ6wrsaFhTYj6qVAxBlK5EXp6m2k4pDqZ -bqHHwHErKVzpQ0ONV9rn6kAGNlhCktFlGqx/L2MdD2FgUa9sffJVGpri25Ys -CmUgS14pVyiZhs5SydCMsww0Um+IoFNpGJH2Z0XeYGCcj9wNyWwaFPPXmqyp -YiBD40Pd81IafH58Da2TZaKpfELV3C6ynsOe3PcsJm76xF1v/IYGiaGuXFFF -Jgpvb+5b3E3DndfV7eYaTHQNeM826qehm39Z/98lTFTTa2368JEGh8hlHbfc -mHg7pJbcm4Y5f+8doPcwcXpc5YDOTxo+BWqIvvVmYmqJSe7rXzRE75U2UPRn -Iu3028VkmgaB7dvTF6KZaFDEftUpIoAFrDDDkAImPjk7tbtXQgBCMRM1ScVM -PLfj8IIrkgJoEt23rbiciTmi8y5aSwlg/8SGyK+1THTkav3NlhZARofWa68u -4r7p2zZyAvBzvHYosoeJiY90pz4RY4OsePogEzVZy/rPywvgbfmkUfcIEy1K -R3xrGQLgptWdcRJlYfTw4CklSgCDCmaz/SRYKFA8HpxNXBhfUBAny8LVvY+l -F7MF4BCe/KZBgYWFUnvH13AEEO3hs8BCn4XqhbHDdgoC2Nzd+8TVmIXnMv1y -6om1tmzacXwJC4/Z/RJepSgAwVrz6BJkIWX1M8JASQBTeoxu3iYW6pf09H5Q -FsBkinLYwm0sNPtdkeIwSwDj8tpay9xYGGriLl9EPDK2bJ+lNwuf9gtTgbMF -0F/uPrntBAvnOnvldKsIoIfne21nODnP2qu8cI4A3qQFmXpGsXB6D88ykrj9 -dGz44YssPCkvW6OhKoAG2xK56DssdH7ke3qlmgCeVD4qiP2HhfFiPXURxDWG -jU6J91kkv4ZPa4j5VF9yaikLbxdHSpirC6A8ctgsg8/C4Y4ky6PED79P9OZU -s/DSrDuQR1z4Wmruv89Y+ODKE3+OhgDu23EaylpYeM125P5q4ru06gHBKxbq -KhnePUKcmb7owdM+Fu5bqD1UR5zOgc3N71lYVz+iP0p8M8p6qn2Yhaelfy3g -aAogeb8r9E+w0GmjZIwz8dW3e/v/+8nCWE/N7kDiSw5HIj9Pk/dhnj+ZQHzx -0QndsRkUWsiavbxLfGFh9NMfkhRKBG8JriGOuZPg+1eOwtb02PedxNEKKcwZ -bAqTVH2VPxNHns0qklSi0PZHFPcvcfivgi3ycyiMztv3WkZLAKcOVPxka1K4 -emmmtxLx8Z7HKcq6FJ4RevpIk/iYYzOq8SiU+s97UI84sPr1gPYCCn8Cu8WY -+Mji92f0TCi80bo9ZjHxoazRecamFIp1tzBMiH2VfjUusaCwRk7GfQnx/hix -Q6ZrKLwSnRy+kHjvH3lqpS2F7D7mIQNiz4PKxVbrKdylJq4/l9i9T2ur3SYK -ewXSJSrEOzca/t6wjcI3eSVMFvGO2mVpzm4UrlibZjqDeJuJ5UrXPRQauDgv -HSfr3ZJj/87dm8K++cfE+omdZm2N9valUNMjKeMZsWOsu97BIxSq6ttxS4jt -pw80+QdRKMk03J5KbHs46HDwCQofsduPnCZeOxDODg2nMDGra6cn8epNsSWR -URS+zX6pYUW88snVbTHnKSz13FmmTWyae/fmlSsURgSd93lD9sNrtdy01dcp -/Og6Zl1CHHwlJ3U8jcKuL4ZW8cQlYZk3NuRQuDVVI92UePP3jOvCeRRSL16K -MIjHfdKT8wspXNPmHNFH9usC55tJchUUxgs1jpwkbn6WerVSQKFzQ3mHDfGh -VSlXfGopPJUT/J5NnGeQfKmhidhj78F0ko95Ypfiz/RRuOCy7up/SL7qghPi -Fr8nz5f4YLsXsedo/IXBIQpzLWcl/z9/Ga9jz68cp3Duodj4RJJPtcKo6L/i -bHQQ8/JzI3mm556JuifNxuBQaJcldk2JOOPCYCPO5HqWkfxfjw6LKFNi44ys -Vmk5Yq5bSGigPhu3T5ufTCN98m/bsVPaxmwUOfdgPRA72QSdbFvMxu+CbRvf -kv5JWBxwfAGwMU1z1zBFLCtzMGjEkY1CWWYB+0l/zSjdfcjzKBtzf2TtrSF9 -mG6w6yDnOBtl5NNOWhGvzHDzrQllY4bsvmd1LLL/41x8NM6xcZ1wnsJjpgB+ -emze232DjRv+uvjmkv79yrLZubmKjdKdJTfVSX93+Gi82PeEjfsTe06EkH4X -PP4JpxrZKByrYt9K+j8+OFc1u508/wTdcJx8H4z6ZXqmhth4d+zT2hIxkoeC -5ztSKA4mfpGfuky+L5uls58VKHLwebVorcRfGsw9Qs0eq3Cw9e2lC0d/0yCr -ZKzyZS4Hg1JPq1lP0XA3NOENmnKw++Y+74pvNAw5bNo+uIeD+p72vYODNLTk -8J7+8ObgU6f5yxUHaCgTFV8he5CDgY41OVZ9NJwtKVZecoyDaqmOL5Lf0qCr -qtgVFcvB2eufe7DaafAa6XLWK+Ygo9tJZu1jGgbP79zsN5OL4kbhJh3pNPgO -6WsYyXDRs7AUHt6i4bvV1OfPDC56u7hJXU6jQUo0IdJbmYvvlvM+WV6nwehY -ddFOHhezPvqJn0yg4YSHDuWwkYtiV36Vbw6lgWv+6bleGhdFIkL8crfScPP6 -w+sf07nYvXX5Fp0tNMybivDKyuZi2NmPuqlONJgWqUxrFHKxbmd4UoQDmV/m -Oxgo13LR9VRik/5qGvK5heclhrl41F74ybAhmU++HLV+t0QBw6f/C+WJ0jDb -eM4ZCVMFvOq/KUVKiMwjfjVVehYKePiFi+Pgbz5cmmSY+tkqoNXu9VGxk3zo -/pNjMO2mgKKc0y4lH/ngJ/OGUjqrgBevzVqxj8xvyfOwe91rBWxNjnDamkTm -N3eJI0WnFFFsu753lRofRlItK+kIRWw72znxbjYfvnSGznx6VhGVXgbkiCvx -4ZvD1PW+REXcYBNyHph8+L5iqEYuWxF/r37kFyfMBxF2I9f7hSLqVDCtc/oq -QakmrkxFXQlnbfXyaU6rJP83CiJRVUqYvGvHyc3sSmA907mQ/0UZ269H35ya -LIfZ0ffXL1kyG59OVlU43C6DJL1lDMpLhdzvd4qSXSk0KFssHrs4B/9sYWhF -jZTA8tlV8Ybtqqh4Mcx8iWcxyIne9t8VroZ9j6Ufcb4VwZwwVdOtOuo4Gjxm -m7LjAUhquxRveKKOy5UMnVa1FYCBmdL9ozs0MNvssF+cTz74dbOqbYQ0MVS8 -d13rwD34MnZ+k3WSJg7JB2QNrcgFK8PHydY8LUw/bHRyhJ8N/LEVv743aaGX -WRc70CgTfPUXdDV7aGNWc558w7d0MBvZ07ZVUgdvatucnHn/FqzWUrSTva2D -0SLbgkz800A39FxQlclc/LF0/zetoesw32MZrd01Fz1S/lRc9EoCD/7eiKLD -uljZxh9g+l4G+mbbnq+ceSjcaXHheWQCjGdPfzcsmYf1O5pz5n6LA3ftXMlk -u/loZbFBO/FBDHydn7ikcHQ+dju0Cn1JjYKHGb/6JqL1cGi7fMyLVRGwzVIT -V8zRx6S6NVW3doTBrANRpQYCfbzkl2+va3YCOFI+BXZbeOh27kpafUMQZKw6 -ETy6lYcWDRFijg+DYMGJC6sSXXh43/Wx+uCdILAfzX/ZsYuHHgNlnrywIDjT -PjHl7sPDdpfRCNulQfDj9qmVwWE8tB6tnl+QfRS6ViS2ZuaS6x1kVH9dDIS9 -ARk3rPN4aFx79PhIaCBM5v3r8Smfh4vTHbo/HQwElkbHd+NiHu5p2nFNyj4Q -bCVUZlcKeJjQM7KxXioQKtoy97S+5OG3E5oKDmcCwEbuIS+wg4edtDxvNCAA -OqzqJxVf83CNiffodY8AGC8bjnbt5WHA/VZvanUA8G4Z3fs4xMMZNQPxYTMC -oKLLIvD8Zx7qy8WGHB33Bxv2RjAc5aHl6awPRwf9wTMqoNl/gocTIY2Lkmr8 -YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL -/pB6oGxiepqHr5IOTG+K9If/AYSbTVQ= +1:eJwV13k4Vd0XB3A/JPVGUjKU+d5zzSJD4lqLDJFooFGIVESGypDpIkORV2gy +ROZ7T0UqRSqhEkUiU6UkKpWhEE1++/3rPp/nPuecffbe67vXUXT32+TJz8fH +J/Q/Pr7/fqf6HjcwkgpN2YFv7+QW6pl2XJAKNeuOgea72gV5o+KAEq3uUt1p +4G1hIhs0qgRBG3hdAt358IPRHec8qguLRiTTZroqQMb8/H7TUXN4U2PvN9FV +Byfty5YMj2wCK8bw6/Gu52DovfUd76s7zHQZnh7regdPG/zGbn4MhPo1JYVt ++d9Btrxo596cWFj+pmrIXeMPrNR1LbIaTYYlPq68uWsEcP8j1+8Bn9MgTcfq +tr2TME5v6bhqlnEWes6tqB0XE0FYte+T/+0sSCqMauWXXoQPaZ+wK79yQTJj +4Hh6zmLUF9+X5Dl6ERIcbUyfT0ng39MRrQezCuCQ0UXXxzFSqHA6plvBrAgs +Rn8ePTggg0MzPzE3rxiiTTbullkli5K/it7MtpbAWpcL3wzNZTH/sWxFY0cJ +iHI+xzrZyeK3f1wPpvSUQHZ9XHGqmyyuG1EtEBsogVu21Z+FjsuijPLRqdHJ +Ehjbphz0vUcWbfZMzpdZVgouRyZPPAmTw+owL0sZj1JYfeX89ch78mhkfuPH +vU+lYNHV8mekUR6vtV2fDf9aCvZ8gtauz+VxzyaV9YbjpeCx6WAPDMpjdpH4 +rYLpUrAKU4zizFHADwGFzTvncsFffqrATF0BQ6w7u9cyuNCwL/drfZACukV2 +yy515oLNbyPx8DAF7NAprwhz5UJLaoeBHkcBrW8wk/rcudBTNY9TeFwBRT60 +CmV7cWHkn8PicdkK+HHhMZWpIC5Ila81tKoj93OREmed4oLP9DinUUQRxXfG +hIfVc2F1wN6lQ+KKmHhzbH7zQy4ID/fSAlKKuM4x2V2yiQtFL+s7TZUUMV0i +xLf4GRf67p7WuGGgiN8uRX3Pec0Fhzij7ouuiui2a/fTb1Nc0BWP1g67qohF +qn/N9Vg84EuabDhXqYjZunOlZdV40CLgvaPytiK2Vbyp5tfkwYHJTXHjDxQx +0D3SvUGXB4XdjJf7ehVxzpJFloqmPFia2xjvKKCET6MzgswceTCjLtan6aSE +Zi+8CpdH8mAqRyZ65Q4ljJ9LxaVzeDCxkMkwclXCTMY+x7mxPBj5buRt4aWE +m7eb3BtM4MG72x5TOyKU8Pq68uaIUzxoWndTNLFICQPkTnyVKeRB5gEXeDep +hAfd5PrnP+LB2df73334qYRr9eC3/GMeZDgcivs6q4RNrGUius08SFmZ2Dw9 +Txmjr4stWt/Kg5hfV7culFPGRON9XJcu8n5Jc/xNrJQx+5jB9rEhHpjQl/LO +nFHGwdriO60CNLxUoHMts5RxneXaJ3vn0HD0DPfCRK4yzpPXNv0lRMPN6OLs +TVxlXBPRZ7d8Pg262/LOidYoYxX/FlkQo0F1TkZqfL8yToQlNs5dTkPj0bR/ +9YeUcQfDU+OILA17x1JT3g8rY6f47x9v5GgofHky2XyCXP8y9tFlRRoUKhIS +/woxcN4T0w1qLBqWuoZxgjQYGPL90boSHRpudIRGMXUY6LyL6fBZlwZH25DI +Dn0GDtcuvaehR0Oa/pFwXWCg16GZwRIDGkQW+IWMbGSg7q+ybVHGNAhWufvv +DWZgt/0VmWsWNIyL27ptqWOgf+yqAyucaOj2UXrm/YiBW70a5xhuoaH24U+I +esLAAuaBotVbaUg9SsuXdjLQgNUwuWo7DSveLXgzM8zAutbXHxbtouHg1dZd +OYuZmHBOKVx/Dw1b/il9elWKie23Tuct8KTB1JPDfijLxBKZura3xCLSOrKj +LCbevWTmzNlHwyVO2is0YeKi1x3y2d40DDs47Xy/h4lm7y89t/Kn4TlXs3na +i4nH3irNjhBXCwgZi/gx0f5bEGYE0HD8ZqWMQSgTz4W2C3QG0qAiL9WbcJKJ +YU3a2QZHaBALHbPJTmPilcd7Ih8RTz9vrCo/y8T7CbdCnYLIesWHnu+5yMRD +Zwbv7A+mYd9I7zb1SibOck8l+YTSYL/2WiPcZuLw7wnLIWKD/KRVjrVMFP3y +QnbXURqEtphIRTQx8ezwWhXzMBpGypYknmplouba6Z3lxJ3zvv4o6mDih9eu +ZcvCaSi+k9PV0sdE6d1nb34iTpEMsh4YYKKRXaKvXQQNQQH2N398ZOJ670OW +l4gtmbNnFL6T55tH7fKIpOF9stuWwLkUpswEm5ZFkfkf1lBasYDCs3yxslPE +P6xnvn4VozByq2j0ag4N8wXS4rxkKJTLT+q6TZzh5rKRJU+hhFVA8zSx7F01 +2UFlCoUz71qujCbrG1p/3U2TQj2fsNY84urOfzlyuhQGOvS/aSdeo+ds98qA +wp2XskIEY2h4ckpFKtOYwuRkKlOXeMvoxMBWpHCDw18LF+K3dvfLJCwpjOXm +hiYQe/NOhrXbUOhRlLDqCnGEJ7XYYTOFdx0Vt04QC9V/61uwjcJPD1puLo4l ++0/hHq/JmcKazdWFK4hlIpOCEndTeL7cXW5d7H/1tNXcai8Z74AV04NYy4gh +KniAwl1WQ1UhxDfPjPXc96OwI7H2VRIxTtQURR2mUO2yU0o2cdPG4wHsUAoP +zaNaecSOZU7sXxEUGltX5FYSv16gNK8qhkJLjzC+WuK93iMdQQkUul7m//aQ +eOxRdZ5eMoWGjY8PNxMfZSb4fEulUIe76fhTYoHYzavKT1O44pz8iv+c/FZe +8GAmhb7a17yaiJeafmlVz6XQZmeqwQPivKxbWZ8KKJTfsfrsHWLVmWP7SkrJ +etXoJV8jrtiycaXnZTI/7gJLS4hNrsvOKlVQ+CxaTf8c8cNFw01vK8l4crSG +44k3+FWeuXCbwuITGfqHiHufxLg711IY5d8vuYvYQ81BS+YBhX0PMk9ZEH9J +WPaz6zGFnpusClSJgwY/PDjdQqGIlvf6BcR8a66f2txO4UxtcuoXsl4n8ji7 +FnWT8dfr+TYRL/lrp9r6isJ+k08DRcQ5O6Unk/spXB+nMxlJXL60Iln4M4VX +fLM/qRKvPhy57eEohUo2rU9/kf1V32bLODZB4W+vSvtm4s7kgduzfygccHqg +4kHsNlyWcIefhYLPZ2PUiT9Zh28Om8vCzZOLw8fJfv7NL/F5SoyFZ0bG7YKI +4936K69LkP8HnzH1iRfevRwTKMPCkIZrueOkXpRCrWRGlFno8KwixIPYZjTY +ZtCAhfd/D7aokXpbriMXL2zCwos5B3NaST2OBDbUqZuxcAcvojSAOGNKzCRw +HQtZD/mCL5N67vvD1Zp1ZaHflO88QVL/5bDhgJInCw8L/2xNI3kRGz1VYunN +wuSE6m45YpU5axSTD7PQ5uDNa1okXwIXvFosfZyFrZynBZokjyzsYzaYpJDx +tVGpxSSvJFNVTrqms7BNJrxhOXHN4iNCxTksfN8xR/h/JN+ElonO6Faw8Kql +zEIuycNMVeyze8lCX43LdcG+NPgcGJLxf8vCJBflhAc+NMDl5K3pgyyU4vfL +FSN+v6LnWc8oC70NTrRcIHmstSqwfq+gCrriX+Msktf1VoWlHE0VbHfn/F2y +m4YzibaDBboqWBMcvnOVGw37m8YUHxmq4IneeKntrjSI2rOzRMxVUNK5/0Ya +OS+2OXWezNyiQs678PQhcp588RA+dD1KBf+6jBxftInM7wWLO/eOqeBzI0Fx +sY00jPZw5jYfV0Evdqzcgg00fHOYyepPV8GSx/cf/V5P8s54uEG0VAXTuUf8 +a21o4F/yZKnXMxWU8Hd70IY0SDf8Wy2rqIr6fBveKWqS/JhtFlSlVFFU7Pah +5+pkfVcLO+ipq2IPzzafo0aDXDlnwFZfFZtc+XtfkPOYkR2wIMRGFaf2LWzy +UCL5eHizy/MAVTyw2cNVVJIm/bskf0KdKrprLxco/MuDT+7WpcaPVFHwQp0r +8w8Pki8G2481k/tVGt0r/MWDdrnuzO0vVPHQfuvjOdM8cJM+v1Ljoyo6Xec6 +B3/jQajoMs82ETXUz/E++2SQB5em5RqXbVdDjrmJLD/pd8SfUinlo2poWPX5 +571/efB3dEVR04QaDtxyfZl9kgfD4sY172fUcI+b1fngJB7UbXMYlhJUxy7n ++Vcp0n8deh9sFS2ljm0lLV4HSP/W8avx70YzdZz4Pd78rw/pt9QO+H1PU0ep +JucqW2seLE8s22BgoIHhW77N1JD+knflcv3Mag1sHnb1sJzgwqoXtMEd0MBa +rTHlJ+NccFQqXW5ho4Hb4pMud3zhQnJN3seNzhqo1a0/3faOC7/GTnF8YzTw +/JshycgWLvRuP1xe2EKuzz/96WIhF86pG4kt3qeJG3s/7Fxjx4UmGTP976e0 +sDMyKHxDCun/l9elandqY2Tw72F1Hvm+EMg/vDtmBTqWCQ89qS8GuWh5k+2U +Dp4Ybzctqy6CeUznyk2PdPD+rXMZjrxC0GJLlwXv0sV1Y4z+E4UFENgnXm/L +txKP3bndsD42H0a/JzvZnFuJ54eCsmYCL4K19sNMG009TBLvNKT258Hd78a/ +frTo4UtP3jqLtAtwUEO3t81TH9dYhyzZHZsN7JE9HdvnGaBVqHZxjlMmWDKk +1ovkG6Csm3L7MedzoMI5EVJnaIhF9fE1SZFnQM3T6B6z1xBvayUtKziZAZ53 +9x+7HrAKT/uINTe2p8G9vI494xJG2G5tftdS9BRMlM7+0L5phAuEpflXd6WA +B5Oel7l+NVbkZbaX/EyCcbV0g4qx1aRfKovLkjgOtwp/9U8mGqOtW7xrSno8 +7LBQRmM5E5RZZigtZXcMlvkmVGnVmqCIQt9CuzkxIDHf5+r6rWz8Jy8zSHox +BwrXRBwd287G7Dz/bU3zOaAbkbIm3ZmNUwa6cZH8HLAfK3/RvZuNQnOfhvYP +REF85+SMhw8bS/v+oWYuRsF0fpT50Wg2/i/Z5pS7fBT0Gqe3F9NsbJewOLpE +PhL2HynMtrnCRk3HJj+rhZEwdeWG55dyNjYfePUscjYCxJW6f+hUsnFNv+4z +/rcRsE5YdvmdWjZ+PO+fs/ViBNR0FO9pf8HGkPwc05XMCLAVvaUZ1M3G/V1H +1jZLREC39eMpqZds/Dr3RYmXUARMVH9OdHnLxgfeGburPoSD5sUVlz8Ns9Go +auR8IS8canrNgpK/snH6R4+KX1Y42C7ZDNpjbKyYWcqPyeGwN+FI2+FJNr4S +eXdywjccJmrjMyWn2Vj9MJvd7RIOMT/PelT/ZGNnKr9unUM4iOlxNXb9YaNw +XKlXBYbDBd/qydlZNpaA8kCpTjj8HxJjgR0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "PlotRange" -> {{0, 30}, {0., 0.053739951146172145`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5642,6 +11350,7 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5669,7 +11378,8 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.053739951146172145`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5677,17 +11387,568 @@ YVxwJlnhBw/fNepKPizyh/CfV93LfvJwdPCaTX+GPzAW5ejv+MPDukWNY9zL Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913414579436264`*^9}, + CellChangeTimes->{3.9913414579436264`*^9, 3.993827924628656*^9}, CellLabel-> - "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] + "Out[213]=",ExpressionUUID->"ead8ed05-d8c9-4957-b7c0-f245bd72ae57"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ -8e8787fb2589"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[214]:=",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4Vd0XB3A/JPVGUjKU+d5zzSJD4lqLDJFooFGIVESGypDpIkORV2gy +ROZ7T0UqRSqhEkUiU6UkKpWhEE1++/3rPp/nPuecffbe67vXUXT32+TJz8fH +J/Q/Pr7/fqf6HjcwkgpN2YFv7+QW6pl2XJAKNeuOgea72gV5o+KAEq3uUt1p +4G1hIhs0qgRBG3hdAt358IPRHec8qguLRiTTZroqQMb8/H7TUXN4U2PvN9FV +Byfty5YMj2wCK8bw6/Gu52DovfUd76s7zHQZnh7regdPG/zGbn4MhPo1JYVt ++d9Btrxo596cWFj+pmrIXeMPrNR1LbIaTYYlPq68uWsEcP8j1+8Bn9MgTcfq +tr2TME5v6bhqlnEWes6tqB0XE0FYte+T/+0sSCqMauWXXoQPaZ+wK79yQTJj +4Hh6zmLUF9+X5Dl6ERIcbUyfT0ng39MRrQezCuCQ0UXXxzFSqHA6plvBrAgs +Rn8ePTggg0MzPzE3rxiiTTbullkli5K/it7MtpbAWpcL3wzNZTH/sWxFY0cJ +iHI+xzrZyeK3f1wPpvSUQHZ9XHGqmyyuG1EtEBsogVu21Z+FjsuijPLRqdHJ +Ehjbphz0vUcWbfZMzpdZVgouRyZPPAmTw+owL0sZj1JYfeX89ch78mhkfuPH +vU+lYNHV8mekUR6vtV2fDf9aCvZ8gtauz+VxzyaV9YbjpeCx6WAPDMpjdpH4 +rYLpUrAKU4zizFHADwGFzTvncsFffqrATF0BQ6w7u9cyuNCwL/drfZACukV2 +yy515oLNbyPx8DAF7NAprwhz5UJLaoeBHkcBrW8wk/rcudBTNY9TeFwBRT60 +CmV7cWHkn8PicdkK+HHhMZWpIC5Ila81tKoj93OREmed4oLP9DinUUQRxXfG +hIfVc2F1wN6lQ+KKmHhzbH7zQy4ID/fSAlKKuM4x2V2yiQtFL+s7TZUUMV0i +xLf4GRf67p7WuGGgiN8uRX3Pec0Fhzij7ouuiui2a/fTb1Nc0BWP1g67qohF +qn/N9Vg84EuabDhXqYjZunOlZdV40CLgvaPytiK2Vbyp5tfkwYHJTXHjDxQx +0D3SvUGXB4XdjJf7ehVxzpJFloqmPFia2xjvKKCET6MzgswceTCjLtan6aSE +Zi+8CpdH8mAqRyZ65Q4ljJ9LxaVzeDCxkMkwclXCTMY+x7mxPBj5buRt4aWE +m7eb3BtM4MG72x5TOyKU8Pq68uaIUzxoWndTNLFICQPkTnyVKeRB5gEXeDep +hAfd5PrnP+LB2df73334qYRr9eC3/GMeZDgcivs6q4RNrGUius08SFmZ2Dw9 +Txmjr4stWt/Kg5hfV7culFPGRON9XJcu8n5Jc/xNrJQx+5jB9rEhHpjQl/LO +nFHGwdriO60CNLxUoHMts5RxneXaJ3vn0HD0DPfCRK4yzpPXNv0lRMPN6OLs +TVxlXBPRZ7d8Pg262/LOidYoYxX/FlkQo0F1TkZqfL8yToQlNs5dTkPj0bR/ +9YeUcQfDU+OILA17x1JT3g8rY6f47x9v5GgofHky2XyCXP8y9tFlRRoUKhIS +/woxcN4T0w1qLBqWuoZxgjQYGPL90boSHRpudIRGMXUY6LyL6fBZlwZH25DI +Dn0GDtcuvaehR0Oa/pFwXWCg16GZwRIDGkQW+IWMbGSg7q+ybVHGNAhWufvv +DWZgt/0VmWsWNIyL27ptqWOgf+yqAyucaOj2UXrm/YiBW70a5xhuoaH24U+I +esLAAuaBotVbaUg9SsuXdjLQgNUwuWo7DSveLXgzM8zAutbXHxbtouHg1dZd +OYuZmHBOKVx/Dw1b/il9elWKie23Tuct8KTB1JPDfijLxBKZura3xCLSOrKj +LCbevWTmzNlHwyVO2is0YeKi1x3y2d40DDs47Xy/h4lm7y89t/Kn4TlXs3na +i4nH3irNjhBXCwgZi/gx0f5bEGYE0HD8ZqWMQSgTz4W2C3QG0qAiL9WbcJKJ +YU3a2QZHaBALHbPJTmPilcd7Ih8RTz9vrCo/y8T7CbdCnYLIesWHnu+5yMRD +Zwbv7A+mYd9I7zb1SibOck8l+YTSYL/2WiPcZuLw7wnLIWKD/KRVjrVMFP3y +QnbXURqEtphIRTQx8ezwWhXzMBpGypYknmplouba6Z3lxJ3zvv4o6mDih9eu +ZcvCaSi+k9PV0sdE6d1nb34iTpEMsh4YYKKRXaKvXQQNQQH2N398ZOJ670OW +l4gtmbNnFL6T55tH7fKIpOF9stuWwLkUpswEm5ZFkfkf1lBasYDCs3yxslPE +P6xnvn4VozByq2j0ag4N8wXS4rxkKJTLT+q6TZzh5rKRJU+hhFVA8zSx7F01 +2UFlCoUz71qujCbrG1p/3U2TQj2fsNY84urOfzlyuhQGOvS/aSdeo+ds98qA +wp2XskIEY2h4ckpFKtOYwuRkKlOXeMvoxMBWpHCDw18LF+K3dvfLJCwpjOXm +hiYQe/NOhrXbUOhRlLDqCnGEJ7XYYTOFdx0Vt04QC9V/61uwjcJPD1puLo4l ++0/hHq/JmcKazdWFK4hlIpOCEndTeL7cXW5d7H/1tNXcai8Z74AV04NYy4gh +KniAwl1WQ1UhxDfPjPXc96OwI7H2VRIxTtQURR2mUO2yU0o2cdPG4wHsUAoP +zaNaecSOZU7sXxEUGltX5FYSv16gNK8qhkJLjzC+WuK93iMdQQkUul7m//aQ +eOxRdZ5eMoWGjY8PNxMfZSb4fEulUIe76fhTYoHYzavKT1O44pz8iv+c/FZe +8GAmhb7a17yaiJeafmlVz6XQZmeqwQPivKxbWZ8KKJTfsfrsHWLVmWP7SkrJ +etXoJV8jrtiycaXnZTI/7gJLS4hNrsvOKlVQ+CxaTf8c8cNFw01vK8l4crSG +44k3+FWeuXCbwuITGfqHiHufxLg711IY5d8vuYvYQ81BS+YBhX0PMk9ZEH9J +WPaz6zGFnpusClSJgwY/PDjdQqGIlvf6BcR8a66f2txO4UxtcuoXsl4n8ji7 +FnWT8dfr+TYRL/lrp9r6isJ+k08DRcQ5O6Unk/spXB+nMxlJXL60Iln4M4VX +fLM/qRKvPhy57eEohUo2rU9/kf1V32bLODZB4W+vSvtm4s7kgduzfygccHqg +4kHsNlyWcIefhYLPZ2PUiT9Zh28Om8vCzZOLw8fJfv7NL/F5SoyFZ0bG7YKI +4936K69LkP8HnzH1iRfevRwTKMPCkIZrueOkXpRCrWRGlFno8KwixIPYZjTY +ZtCAhfd/D7aokXpbriMXL2zCwos5B3NaST2OBDbUqZuxcAcvojSAOGNKzCRw +HQtZD/mCL5N67vvD1Zp1ZaHflO88QVL/5bDhgJInCw8L/2xNI3kRGz1VYunN +wuSE6m45YpU5axSTD7PQ5uDNa1okXwIXvFosfZyFrZynBZokjyzsYzaYpJDx +tVGpxSSvJFNVTrqms7BNJrxhOXHN4iNCxTksfN8xR/h/JN+ElonO6Faw8Kql +zEIuycNMVeyze8lCX43LdcG+NPgcGJLxf8vCJBflhAc+NMDl5K3pgyyU4vfL +FSN+v6LnWc8oC70NTrRcIHmstSqwfq+gCrriX+Msktf1VoWlHE0VbHfn/F2y +m4YzibaDBboqWBMcvnOVGw37m8YUHxmq4IneeKntrjSI2rOzRMxVUNK5/0Ya +OS+2OXWezNyiQs678PQhcp588RA+dD1KBf+6jBxftInM7wWLO/eOqeBzI0Fx +sY00jPZw5jYfV0Evdqzcgg00fHOYyepPV8GSx/cf/V5P8s54uEG0VAXTuUf8 +a21o4F/yZKnXMxWU8Hd70IY0SDf8Wy2rqIr6fBveKWqS/JhtFlSlVFFU7Pah +5+pkfVcLO+ipq2IPzzafo0aDXDlnwFZfFZtc+XtfkPOYkR2wIMRGFaf2LWzy +UCL5eHizy/MAVTyw2cNVVJIm/bskf0KdKrprLxco/MuDT+7WpcaPVFHwQp0r +8w8Pki8G2481k/tVGt0r/MWDdrnuzO0vVPHQfuvjOdM8cJM+v1Ljoyo6Xec6 +B3/jQajoMs82ETXUz/E++2SQB5em5RqXbVdDjrmJLD/pd8SfUinlo2poWPX5 +571/efB3dEVR04QaDtxyfZl9kgfD4sY172fUcI+b1fngJB7UbXMYlhJUxy7n ++Vcp0n8deh9sFS2ljm0lLV4HSP/W8avx70YzdZz4Pd78rw/pt9QO+H1PU0ep +JucqW2seLE8s22BgoIHhW77N1JD+knflcv3Mag1sHnb1sJzgwqoXtMEd0MBa +rTHlJ+NccFQqXW5ho4Hb4pMud3zhQnJN3seNzhqo1a0/3faOC7/GTnF8YzTw +/JshycgWLvRuP1xe2EKuzz/96WIhF86pG4kt3qeJG3s/7Fxjx4UmGTP976e0 +sDMyKHxDCun/l9elandqY2Tw72F1Hvm+EMg/vDtmBTqWCQ89qS8GuWh5k+2U +Dp4Ybzctqy6CeUznyk2PdPD+rXMZjrxC0GJLlwXv0sV1Y4z+E4UFENgnXm/L +txKP3bndsD42H0a/JzvZnFuJ54eCsmYCL4K19sNMG009TBLvNKT258Hd78a/ +frTo4UtP3jqLtAtwUEO3t81TH9dYhyzZHZsN7JE9HdvnGaBVqHZxjlMmWDKk +1ovkG6Csm3L7MedzoMI5EVJnaIhF9fE1SZFnQM3T6B6z1xBvayUtKziZAZ53 +9x+7HrAKT/uINTe2p8G9vI494xJG2G5tftdS9BRMlM7+0L5phAuEpflXd6WA +B5Oel7l+NVbkZbaX/EyCcbV0g4qx1aRfKovLkjgOtwp/9U8mGqOtW7xrSno8 +7LBQRmM5E5RZZigtZXcMlvkmVGnVmqCIQt9CuzkxIDHf5+r6rWz8Jy8zSHox +BwrXRBwd287G7Dz/bU3zOaAbkbIm3ZmNUwa6cZH8HLAfK3/RvZuNQnOfhvYP +REF85+SMhw8bS/v+oWYuRsF0fpT50Wg2/i/Z5pS7fBT0Gqe3F9NsbJewOLpE +PhL2HynMtrnCRk3HJj+rhZEwdeWG55dyNjYfePUscjYCxJW6f+hUsnFNv+4z +/rcRsE5YdvmdWjZ+PO+fs/ViBNR0FO9pf8HGkPwc05XMCLAVvaUZ1M3G/V1H +1jZLREC39eMpqZds/Dr3RYmXUARMVH9OdHnLxgfeGburPoSD5sUVlz8Ns9Go +auR8IS8canrNgpK/snH6R4+KX1Y42C7ZDNpjbKyYWcqPyeGwN+FI2+FJNr4S +eXdywjccJmrjMyWn2Vj9MJvd7RIOMT/PelT/ZGNnKr9unUM4iOlxNXb9YaNw +XKlXBYbDBd/qydlZNpaA8kCpTjj8HxJjgR0= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Vd0XB3A/JPVGUjKU+d5zzSJD4lqLDJFooFGIVESGypDpIkORV2gy +ROZ7T0UqRSqhEkUiU6UkKpWhEE1++/3rPp/nPuecffbe67vXUXT32+TJz8fH +J/Q/Pr7/fqf6HjcwkgpN2YFv7+QW6pl2XJAKNeuOgea72gV5o+KAEq3uUt1p +4G1hIhs0qgRBG3hdAt358IPRHec8qguLRiTTZroqQMb8/H7TUXN4U2PvN9FV +Byfty5YMj2wCK8bw6/Gu52DovfUd76s7zHQZnh7regdPG/zGbn4MhPo1JYVt ++d9Btrxo596cWFj+pmrIXeMPrNR1LbIaTYYlPq68uWsEcP8j1+8Bn9MgTcfq +tr2TME5v6bhqlnEWes6tqB0XE0FYte+T/+0sSCqMauWXXoQPaZ+wK79yQTJj +4Hh6zmLUF9+X5Dl6ERIcbUyfT0ng39MRrQezCuCQ0UXXxzFSqHA6plvBrAgs +Rn8ePTggg0MzPzE3rxiiTTbullkli5K/it7MtpbAWpcL3wzNZTH/sWxFY0cJ +iHI+xzrZyeK3f1wPpvSUQHZ9XHGqmyyuG1EtEBsogVu21Z+FjsuijPLRqdHJ +Ehjbphz0vUcWbfZMzpdZVgouRyZPPAmTw+owL0sZj1JYfeX89ch78mhkfuPH +vU+lYNHV8mekUR6vtV2fDf9aCvZ8gtauz+VxzyaV9YbjpeCx6WAPDMpjdpH4 +rYLpUrAKU4zizFHADwGFzTvncsFffqrATF0BQ6w7u9cyuNCwL/drfZACukV2 +yy515oLNbyPx8DAF7NAprwhz5UJLaoeBHkcBrW8wk/rcudBTNY9TeFwBRT60 +CmV7cWHkn8PicdkK+HHhMZWpIC5Ila81tKoj93OREmed4oLP9DinUUQRxXfG +hIfVc2F1wN6lQ+KKmHhzbH7zQy4ID/fSAlKKuM4x2V2yiQtFL+s7TZUUMV0i +xLf4GRf67p7WuGGgiN8uRX3Pec0Fhzij7ouuiui2a/fTb1Nc0BWP1g67qohF +qn/N9Vg84EuabDhXqYjZunOlZdV40CLgvaPytiK2Vbyp5tfkwYHJTXHjDxQx +0D3SvUGXB4XdjJf7ehVxzpJFloqmPFia2xjvKKCET6MzgswceTCjLtan6aSE +Zi+8CpdH8mAqRyZ65Q4ljJ9LxaVzeDCxkMkwclXCTMY+x7mxPBj5buRt4aWE +m7eb3BtM4MG72x5TOyKU8Pq68uaIUzxoWndTNLFICQPkTnyVKeRB5gEXeDep +hAfd5PrnP+LB2df73334qYRr9eC3/GMeZDgcivs6q4RNrGUius08SFmZ2Dw9 +Txmjr4stWt/Kg5hfV7culFPGRON9XJcu8n5Jc/xNrJQx+5jB9rEhHpjQl/LO +nFHGwdriO60CNLxUoHMts5RxneXaJ3vn0HD0DPfCRK4yzpPXNv0lRMPN6OLs +TVxlXBPRZ7d8Pg262/LOidYoYxX/FlkQo0F1TkZqfL8yToQlNs5dTkPj0bR/ +9YeUcQfDU+OILA17x1JT3g8rY6f47x9v5GgofHky2XyCXP8y9tFlRRoUKhIS +/woxcN4T0w1qLBqWuoZxgjQYGPL90boSHRpudIRGMXUY6LyL6fBZlwZH25DI +Dn0GDtcuvaehR0Oa/pFwXWCg16GZwRIDGkQW+IWMbGSg7q+ybVHGNAhWufvv +DWZgt/0VmWsWNIyL27ptqWOgf+yqAyucaOj2UXrm/YiBW70a5xhuoaH24U+I +esLAAuaBotVbaUg9SsuXdjLQgNUwuWo7DSveLXgzM8zAutbXHxbtouHg1dZd +OYuZmHBOKVx/Dw1b/il9elWKie23Tuct8KTB1JPDfijLxBKZura3xCLSOrKj +LCbevWTmzNlHwyVO2is0YeKi1x3y2d40DDs47Xy/h4lm7y89t/Kn4TlXs3na +i4nH3irNjhBXCwgZi/gx0f5bEGYE0HD8ZqWMQSgTz4W2C3QG0qAiL9WbcJKJ +YU3a2QZHaBALHbPJTmPilcd7Ih8RTz9vrCo/y8T7CbdCnYLIesWHnu+5yMRD +Zwbv7A+mYd9I7zb1SibOck8l+YTSYL/2WiPcZuLw7wnLIWKD/KRVjrVMFP3y +QnbXURqEtphIRTQx8ezwWhXzMBpGypYknmplouba6Z3lxJ3zvv4o6mDih9eu +ZcvCaSi+k9PV0sdE6d1nb34iTpEMsh4YYKKRXaKvXQQNQQH2N398ZOJ670OW +l4gtmbNnFL6T55tH7fKIpOF9stuWwLkUpswEm5ZFkfkf1lBasYDCs3yxslPE +P6xnvn4VozByq2j0ag4N8wXS4rxkKJTLT+q6TZzh5rKRJU+hhFVA8zSx7F01 +2UFlCoUz71qujCbrG1p/3U2TQj2fsNY84urOfzlyuhQGOvS/aSdeo+ds98qA +wp2XskIEY2h4ckpFKtOYwuRkKlOXeMvoxMBWpHCDw18LF+K3dvfLJCwpjOXm +hiYQe/NOhrXbUOhRlLDqCnGEJ7XYYTOFdx0Vt04QC9V/61uwjcJPD1puLo4l ++0/hHq/JmcKazdWFK4hlIpOCEndTeL7cXW5d7H/1tNXcai8Z74AV04NYy4gh +KniAwl1WQ1UhxDfPjPXc96OwI7H2VRIxTtQURR2mUO2yU0o2cdPG4wHsUAoP +zaNaecSOZU7sXxEUGltX5FYSv16gNK8qhkJLjzC+WuK93iMdQQkUul7m//aQ +eOxRdZ5eMoWGjY8PNxMfZSb4fEulUIe76fhTYoHYzavKT1O44pz8iv+c/FZe +8GAmhb7a17yaiJeafmlVz6XQZmeqwQPivKxbWZ8KKJTfsfrsHWLVmWP7SkrJ +etXoJV8jrtiycaXnZTI/7gJLS4hNrsvOKlVQ+CxaTf8c8cNFw01vK8l4crSG +44k3+FWeuXCbwuITGfqHiHufxLg711IY5d8vuYvYQ81BS+YBhX0PMk9ZEH9J +WPaz6zGFnpusClSJgwY/PDjdQqGIlvf6BcR8a66f2txO4UxtcuoXsl4n8ji7 +FnWT8dfr+TYRL/lrp9r6isJ+k08DRcQ5O6Unk/spXB+nMxlJXL60Iln4M4VX +fLM/qRKvPhy57eEohUo2rU9/kf1V32bLODZB4W+vSvtm4s7kgduzfygccHqg +4kHsNlyWcIefhYLPZ2PUiT9Zh28Om8vCzZOLw8fJfv7NL/F5SoyFZ0bG7YKI +4936K69LkP8HnzH1iRfevRwTKMPCkIZrueOkXpRCrWRGlFno8KwixIPYZjTY +ZtCAhfd/D7aokXpbriMXL2zCwos5B3NaST2OBDbUqZuxcAcvojSAOGNKzCRw +HQtZD/mCL5N67vvD1Zp1ZaHflO88QVL/5bDhgJInCw8L/2xNI3kRGz1VYunN +wuSE6m45YpU5axSTD7PQ5uDNa1okXwIXvFosfZyFrZynBZokjyzsYzaYpJDx +tVGpxSSvJFNVTrqms7BNJrxhOXHN4iNCxTksfN8xR/h/JN+ElonO6Faw8Kql +zEIuycNMVeyze8lCX43LdcG+NPgcGJLxf8vCJBflhAc+NMDl5K3pgyyU4vfL +FSN+v6LnWc8oC70NTrRcIHmstSqwfq+gCrriX+Msktf1VoWlHE0VbHfn/F2y +m4YzibaDBboqWBMcvnOVGw37m8YUHxmq4IneeKntrjSI2rOzRMxVUNK5/0Ya +OS+2OXWezNyiQs678PQhcp588RA+dD1KBf+6jBxftInM7wWLO/eOqeBzI0Fx +sY00jPZw5jYfV0Evdqzcgg00fHOYyepPV8GSx/cf/V5P8s54uEG0VAXTuUf8 +a21o4F/yZKnXMxWU8Hd70IY0SDf8Wy2rqIr6fBveKWqS/JhtFlSlVFFU7Pah +5+pkfVcLO+ipq2IPzzafo0aDXDlnwFZfFZtc+XtfkPOYkR2wIMRGFaf2LWzy +UCL5eHizy/MAVTyw2cNVVJIm/bskf0KdKrprLxco/MuDT+7WpcaPVFHwQp0r +8w8Pki8G2481k/tVGt0r/MWDdrnuzO0vVPHQfuvjOdM8cJM+v1Ljoyo6Xec6 +B3/jQajoMs82ETXUz/E++2SQB5em5RqXbVdDjrmJLD/pd8SfUinlo2poWPX5 +571/efB3dEVR04QaDtxyfZl9kgfD4sY172fUcI+b1fngJB7UbXMYlhJUxy7n ++Vcp0n8deh9sFS2ljm0lLV4HSP/W8avx70YzdZz4Pd78rw/pt9QO+H1PU0ep +JucqW2seLE8s22BgoIHhW77N1JD+knflcv3Mag1sHnb1sJzgwqoXtMEd0MBa +rTHlJ+NccFQqXW5ho4Hb4pMud3zhQnJN3seNzhqo1a0/3faOC7/GTnF8YzTw +/JshycgWLvRuP1xe2EKuzz/96WIhF86pG4kt3qeJG3s/7Fxjx4UmGTP976e0 +sDMyKHxDCun/l9elandqY2Tw72F1Hvm+EMg/vDtmBTqWCQ89qS8GuWh5k+2U +Dp4Ybzctqy6CeUznyk2PdPD+rXMZjrxC0GJLlwXv0sV1Y4z+E4UFENgnXm/L +txKP3bndsD42H0a/JzvZnFuJ54eCsmYCL4K19sNMG009TBLvNKT258Hd78a/ +frTo4UtP3jqLtAtwUEO3t81TH9dYhyzZHZsN7JE9HdvnGaBVqHZxjlMmWDKk +1ovkG6Csm3L7MedzoMI5EVJnaIhF9fE1SZFnQM3T6B6z1xBvayUtKziZAZ53 +9x+7HrAKT/uINTe2p8G9vI494xJG2G5tftdS9BRMlM7+0L5phAuEpflXd6WA +B5Oel7l+NVbkZbaX/EyCcbV0g4qx1aRfKovLkjgOtwp/9U8mGqOtW7xrSno8 +7LBQRmM5E5RZZigtZXcMlvkmVGnVmqCIQt9CuzkxIDHf5+r6rWz8Jy8zSHox +BwrXRBwd287G7Dz/bU3zOaAbkbIm3ZmNUwa6cZH8HLAfK3/RvZuNQnOfhvYP +REF85+SMhw8bS/v+oWYuRsF0fpT50Wg2/i/Z5pS7fBT0Gqe3F9NsbJewOLpE +PhL2HynMtrnCRk3HJj+rhZEwdeWG55dyNjYfePUscjYCxJW6f+hUsnFNv+4z +/rcRsE5YdvmdWjZ+PO+fs/ViBNR0FO9pf8HGkPwc05XMCLAVvaUZ1M3G/V1H +1jZLREC39eMpqZds/Dr3RYmXUARMVH9OdHnLxgfeGburPoSD5sUVlz8Ns9Go +auR8IS8canrNgpK/snH6R4+KX1Y42C7ZDNpjbKyYWcqPyeGwN+FI2+FJNr4S +eXdywjccJmrjMyWn2Vj9MJvd7RIOMT/PelT/ZGNnKr9unUM4iOlxNXb9YaNw +XKlXBYbDBd/qydlZNpaA8kCpTjj8HxJjgR0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.053739951146172145`}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.053739951146172145`}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Vd0XB3A/JPVGUjKU+d5zzSJD4lqLDJFooFGIVESGypDpIkORV2gy +ROZ7T0UqRSqhEkUiU6UkKpWhEE1++/3rPp/nPuecffbe67vXUXT32+TJz8fH +J/Q/Pr7/fqf6HjcwkgpN2YFv7+QW6pl2XJAKNeuOgea72gV5o+KAEq3uUt1p +4G1hIhs0qgRBG3hdAt358IPRHec8qguLRiTTZroqQMb8/H7TUXN4U2PvN9FV +Byfty5YMj2wCK8bw6/Gu52DovfUd76s7zHQZnh7regdPG/zGbn4MhPo1JYVt ++d9Btrxo596cWFj+pmrIXeMPrNR1LbIaTYYlPq68uWsEcP8j1+8Bn9MgTcfq +tr2TME5v6bhqlnEWes6tqB0XE0FYte+T/+0sSCqMauWXXoQPaZ+wK79yQTJj +4Hh6zmLUF9+X5Dl6ERIcbUyfT0ng39MRrQezCuCQ0UXXxzFSqHA6plvBrAgs +Rn8ePTggg0MzPzE3rxiiTTbullkli5K/it7MtpbAWpcL3wzNZTH/sWxFY0cJ +iHI+xzrZyeK3f1wPpvSUQHZ9XHGqmyyuG1EtEBsogVu21Z+FjsuijPLRqdHJ +Ehjbphz0vUcWbfZMzpdZVgouRyZPPAmTw+owL0sZj1JYfeX89ch78mhkfuPH +vU+lYNHV8mekUR6vtV2fDf9aCvZ8gtauz+VxzyaV9YbjpeCx6WAPDMpjdpH4 +rYLpUrAKU4zizFHADwGFzTvncsFffqrATF0BQ6w7u9cyuNCwL/drfZACukV2 +yy515oLNbyPx8DAF7NAprwhz5UJLaoeBHkcBrW8wk/rcudBTNY9TeFwBRT60 +CmV7cWHkn8PicdkK+HHhMZWpIC5Ila81tKoj93OREmed4oLP9DinUUQRxXfG +hIfVc2F1wN6lQ+KKmHhzbH7zQy4ID/fSAlKKuM4x2V2yiQtFL+s7TZUUMV0i +xLf4GRf67p7WuGGgiN8uRX3Pec0Fhzij7ouuiui2a/fTb1Nc0BWP1g67qohF +qn/N9Vg84EuabDhXqYjZunOlZdV40CLgvaPytiK2Vbyp5tfkwYHJTXHjDxQx +0D3SvUGXB4XdjJf7ehVxzpJFloqmPFia2xjvKKCET6MzgswceTCjLtan6aSE +Zi+8CpdH8mAqRyZ65Q4ljJ9LxaVzeDCxkMkwclXCTMY+x7mxPBj5buRt4aWE +m7eb3BtM4MG72x5TOyKU8Pq68uaIUzxoWndTNLFICQPkTnyVKeRB5gEXeDep +hAfd5PrnP+LB2df73334qYRr9eC3/GMeZDgcivs6q4RNrGUius08SFmZ2Dw9 +Txmjr4stWt/Kg5hfV7culFPGRON9XJcu8n5Jc/xNrJQx+5jB9rEhHpjQl/LO +nFHGwdriO60CNLxUoHMts5RxneXaJ3vn0HD0DPfCRK4yzpPXNv0lRMPN6OLs +TVxlXBPRZ7d8Pg262/LOidYoYxX/FlkQo0F1TkZqfL8yToQlNs5dTkPj0bR/ +9YeUcQfDU+OILA17x1JT3g8rY6f47x9v5GgofHky2XyCXP8y9tFlRRoUKhIS +/woxcN4T0w1qLBqWuoZxgjQYGPL90boSHRpudIRGMXUY6LyL6fBZlwZH25DI +Dn0GDtcuvaehR0Oa/pFwXWCg16GZwRIDGkQW+IWMbGSg7q+ybVHGNAhWufvv +DWZgt/0VmWsWNIyL27ptqWOgf+yqAyucaOj2UXrm/YiBW70a5xhuoaH24U+I +esLAAuaBotVbaUg9SsuXdjLQgNUwuWo7DSveLXgzM8zAutbXHxbtouHg1dZd +OYuZmHBOKVx/Dw1b/il9elWKie23Tuct8KTB1JPDfijLxBKZura3xCLSOrKj +LCbevWTmzNlHwyVO2is0YeKi1x3y2d40DDs47Xy/h4lm7y89t/Kn4TlXs3na +i4nH3irNjhBXCwgZi/gx0f5bEGYE0HD8ZqWMQSgTz4W2C3QG0qAiL9WbcJKJ +YU3a2QZHaBALHbPJTmPilcd7Ih8RTz9vrCo/y8T7CbdCnYLIesWHnu+5yMRD +Zwbv7A+mYd9I7zb1SibOck8l+YTSYL/2WiPcZuLw7wnLIWKD/KRVjrVMFP3y +QnbXURqEtphIRTQx8ezwWhXzMBpGypYknmplouba6Z3lxJ3zvv4o6mDih9eu +ZcvCaSi+k9PV0sdE6d1nb34iTpEMsh4YYKKRXaKvXQQNQQH2N398ZOJ670OW +l4gtmbNnFL6T55tH7fKIpOF9stuWwLkUpswEm5ZFkfkf1lBasYDCs3yxslPE +P6xnvn4VozByq2j0ag4N8wXS4rxkKJTLT+q6TZzh5rKRJU+hhFVA8zSx7F01 +2UFlCoUz71qujCbrG1p/3U2TQj2fsNY84urOfzlyuhQGOvS/aSdeo+ds98qA +wp2XskIEY2h4ckpFKtOYwuRkKlOXeMvoxMBWpHCDw18LF+K3dvfLJCwpjOXm +hiYQe/NOhrXbUOhRlLDqCnGEJ7XYYTOFdx0Vt04QC9V/61uwjcJPD1puLo4l ++0/hHq/JmcKazdWFK4hlIpOCEndTeL7cXW5d7H/1tNXcai8Z74AV04NYy4gh +KniAwl1WQ1UhxDfPjPXc96OwI7H2VRIxTtQURR2mUO2yU0o2cdPG4wHsUAoP +zaNaecSOZU7sXxEUGltX5FYSv16gNK8qhkJLjzC+WuK93iMdQQkUul7m//aQ +eOxRdZ5eMoWGjY8PNxMfZSb4fEulUIe76fhTYoHYzavKT1O44pz8iv+c/FZe +8GAmhb7a17yaiJeafmlVz6XQZmeqwQPivKxbWZ8KKJTfsfrsHWLVmWP7SkrJ +etXoJV8jrtiycaXnZTI/7gJLS4hNrsvOKlVQ+CxaTf8c8cNFw01vK8l4crSG +44k3+FWeuXCbwuITGfqHiHufxLg711IY5d8vuYvYQ81BS+YBhX0PMk9ZEH9J +WPaz6zGFnpusClSJgwY/PDjdQqGIlvf6BcR8a66f2txO4UxtcuoXsl4n8ji7 +FnWT8dfr+TYRL/lrp9r6isJ+k08DRcQ5O6Unk/spXB+nMxlJXL60Iln4M4VX +fLM/qRKvPhy57eEohUo2rU9/kf1V32bLODZB4W+vSvtm4s7kgduzfygccHqg +4kHsNlyWcIefhYLPZ2PUiT9Zh28Om8vCzZOLw8fJfv7NL/F5SoyFZ0bG7YKI +4936K69LkP8HnzH1iRfevRwTKMPCkIZrueOkXpRCrWRGlFno8KwixIPYZjTY +ZtCAhfd/D7aokXpbriMXL2zCwos5B3NaST2OBDbUqZuxcAcvojSAOGNKzCRw +HQtZD/mCL5N67vvD1Zp1ZaHflO88QVL/5bDhgJInCw8L/2xNI3kRGz1VYunN +wuSE6m45YpU5axSTD7PQ5uDNa1okXwIXvFosfZyFrZynBZokjyzsYzaYpJDx +tVGpxSSvJFNVTrqms7BNJrxhOXHN4iNCxTksfN8xR/h/JN+ElonO6Faw8Kql +zEIuycNMVeyze8lCX43LdcG+NPgcGJLxf8vCJBflhAc+NMDl5K3pgyyU4vfL +FSN+v6LnWc8oC70NTrRcIHmstSqwfq+gCrriX+Msktf1VoWlHE0VbHfn/F2y +m4YzibaDBboqWBMcvnOVGw37m8YUHxmq4IneeKntrjSI2rOzRMxVUNK5/0Ya +OS+2OXWezNyiQs678PQhcp588RA+dD1KBf+6jBxftInM7wWLO/eOqeBzI0Fx +sY00jPZw5jYfV0Evdqzcgg00fHOYyepPV8GSx/cf/V5P8s54uEG0VAXTuUf8 +a21o4F/yZKnXMxWU8Hd70IY0SDf8Wy2rqIr6fBveKWqS/JhtFlSlVFFU7Pah +5+pkfVcLO+ipq2IPzzafo0aDXDlnwFZfFZtc+XtfkPOYkR2wIMRGFaf2LWzy +UCL5eHizy/MAVTyw2cNVVJIm/bskf0KdKrprLxco/MuDT+7WpcaPVFHwQp0r +8w8Pki8G2481k/tVGt0r/MWDdrnuzO0vVPHQfuvjOdM8cJM+v1Ljoyo6Xec6 +B3/jQajoMs82ETXUz/E++2SQB5em5RqXbVdDjrmJLD/pd8SfUinlo2poWPX5 +571/efB3dEVR04QaDtxyfZl9kgfD4sY172fUcI+b1fngJB7UbXMYlhJUxy7n ++Vcp0n8deh9sFS2ljm0lLV4HSP/W8avx70YzdZz4Pd78rw/pt9QO+H1PU0ep +JucqW2seLE8s22BgoIHhW77N1JD+knflcv3Mag1sHnb1sJzgwqoXtMEd0MBa +rTHlJ+NccFQqXW5ho4Hb4pMud3zhQnJN3seNzhqo1a0/3faOC7/GTnF8YzTw +/JshycgWLvRuP1xe2EKuzz/96WIhF86pG4kt3qeJG3s/7Fxjx4UmGTP976e0 +sDMyKHxDCun/l9elandqY2Tw72F1Hvm+EMg/vDtmBTqWCQ89qS8GuWh5k+2U +Dp4Ybzctqy6CeUznyk2PdPD+rXMZjrxC0GJLlwXv0sV1Y4z+E4UFENgnXm/L +txKP3bndsD42H0a/JzvZnFuJ54eCsmYCL4K19sNMG009TBLvNKT258Hd78a/ +frTo4UtP3jqLtAtwUEO3t81TH9dYhyzZHZsN7JE9HdvnGaBVqHZxjlMmWDKk +1ovkG6Csm3L7MedzoMI5EVJnaIhF9fE1SZFnQM3T6B6z1xBvayUtKziZAZ53 +9x+7HrAKT/uINTe2p8G9vI494xJG2G5tftdS9BRMlM7+0L5phAuEpflXd6WA +B5Oel7l+NVbkZbaX/EyCcbV0g4qx1aRfKovLkjgOtwp/9U8mGqOtW7xrSno8 +7LBQRmM5E5RZZigtZXcMlvkmVGnVmqCIQt9CuzkxIDHf5+r6rWz8Jy8zSHox +BwrXRBwd287G7Dz/bU3zOaAbkbIm3ZmNUwa6cZH8HLAfK3/RvZuNQnOfhvYP +REF85+SMhw8bS/v+oWYuRsF0fpT50Wg2/i/Z5pS7fBT0Gqe3F9NsbJewOLpE +PhL2HynMtrnCRk3HJj+rhZEwdeWG55dyNjYfePUscjYCxJW6f+hUsnFNv+4z +/rcRsE5YdvmdWjZ+PO+fs/ViBNR0FO9pf8HGkPwc05XMCLAVvaUZ1M3G/V1H +1jZLREC39eMpqZds/Dr3RYmXUARMVH9OdHnLxgfeGburPoSD5sUVlz8Ns9Go +auR8IS8canrNgpK/snH6R4+KX1Y42C7ZDNpjbKyYWcqPyeGwN+FI2+FJNr4S +eXdywjccJmrjMyWn2Vj9MJvd7RIOMT/PelT/ZGNnKr9unUM4iOlxNXb9YaNw +XKlXBYbDBd/qydlZNpaA8kCpTjj8HxJjgR0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.053739951146172145`}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.053739951146172145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99382792468791*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"3b69077c-b4f2-4085-a5c1-0bb12ed669b3"] +}, Open ]], Cell[CellGroupData[{ @@ -5739,66 +12000,74 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + "In[215]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 365, 381, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423358439445`*^9}, - CellLabel-> - "During evaluation of \ -In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.236019648164132`*^-171\\\", \ \\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ 116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335853943*^9}, +lost.\"", 2, 215, 53, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993827924728818*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], +In[215]:=",ExpressionUUID->"e1f4be0f-f41b-4964-a411-cb6a24ec8fe3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335861944*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.454012418064316`*^-175\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 215, 54, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.9938279247380733`*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], +In[215]:=",ExpressionUUID->"3ec9705d-1926-4cab-9e01-ea2699a81f0d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.782296913397843`*^-178\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 215, 55, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993827924745407*^9}, + CellLabel-> + "During evaluation of \ +In[215]:=",ExpressionUUID->"44f51b56-80ac-440f-a6c8-9d44bf3c85f8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 365, 384, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342335870945*^9}, +during this calculation.\"", 2, 215, 56, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423358439445`*^9, 3.993827924752037*^9}, CellLabel-> "During evaluation of \ -In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], +In[215]:=",ExpressionUUID->"42153273-4ab6-403d-bfcb-053ac6bd73eb"], -Cell[BoxData["12.5536549879565`"], "Output", - CellChangeTimes->{3.9913423425170345`*^9}, +Cell[BoxData["14.776067983034388`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9, 3.9938279684225903`*^9}, CellLabel-> - "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] + "Out[215]=",ExpressionUUID->"08cd31b7-1cab-4f23-932f-58f7e9e37581"] }, Open ]], Cell[CellGroupData[{ @@ -5865,68 +12134,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99184987967128*^9, - 3.9918498857615337`*^9}},ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-\ -30286a178ca1"], + CellChangeTimes->{{3.99184987967128*^9, 3.9918498857615337`*^9}}, + CellLabel-> + "In[216]:=",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 385, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425545177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.321365431130348`*^-227\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 216, 57, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993827968462625*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], +In[216]:=",ExpressionUUID->"8a51b425-2b28-41a3-ba33-5d7190ca2b6e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 386, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342342564516*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1758380214900788`*^-233\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 216, 58, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993827968469054*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], +In[216]:=",ExpressionUUID->"65e6ebb7-8edc-4fbc-afd0-b20da0acb848"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 366, - 387, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425725136`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.955956068960984`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 216, 59, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993827968476903*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], +In[216]:=",ExpressionUUID->"df564e90-7f4f-494c-97c8-d404d9252aea"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 366, 388, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423425815163`*^9}, +during this calculation.\"", 2, 216, 60, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423425545177`*^9, 3.993827968485424*^9}, CellLabel-> "During evaluation of \ -In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], +In[216]:=",ExpressionUUID->"51ccf308-d030-469f-b0d5-62a3656b1bdd"], -Cell[BoxData["2.904399821349581`"], "Output", - CellChangeTimes->{3.9913423499055786`*^9}, +Cell[BoxData["0.09165694600883574`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9, 3.993827974995035*^9}, CellLabel-> - "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] + "Out[216]=",ExpressionUUID->"77f5466c-6a4d-4158-8aab-11e8757ea254"] }, Open ]], Cell[CellGroupData[{ @@ -5947,8 +12217,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -5993,67 +12262,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849890499424*^9, - 3.9918498944226*^9}},ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], + CellChangeTimes->{{3.991849890499424*^9, 3.9918498944226*^9}}, + CellLabel-> + "In[217]:=",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 389, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499435787`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.321365431130348`*^-227\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 217, 61, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993827975034237*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], +In[217]:=",ExpressionUUID->"378392af-b751-4264-81b2-ed78a6277a42"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 390, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342349953579*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1758380214900788`*^-233\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 217, 62, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.9938279750420523`*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], +In[217]:=",ExpressionUUID->"7dd1f84c-1b59-4da7-9c9a-88387bdf3b7f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 367, - 391, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499625797`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.955956068960984`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 217, 63, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.9938279750480013`*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], +In[217]:=",ExpressionUUID->"6cefbf2e-d20e-4ce7-957b-0054628824e5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 367, 392, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423499715805`*^9}, +during this calculation.\"", 2, 217, 64, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913423499435787`*^9, 3.993827975054015*^9}, CellLabel-> "During evaluation of \ -In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], +In[217]:=",ExpressionUUID->"ee1856ff-ffcc-4ac9-a86c-503f78fd7b6b"], -Cell[BoxData["9.928941323789857`"], "Output", - CellChangeTimes->{3.991342356382967*^9}, +Cell[BoxData["54.67318056061641`"], "Output", + CellChangeTimes->{3.991342356382967*^9, 3.9938279808782*^9}, CellLabel-> - "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] + "Out[217]=",ExpressionUUID->"78256842-e220-4e25-a351-425f7c2a7617"] }, Open ]], Cell[CellGroupData[{ @@ -6074,8 +12345,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6120,68 +12390,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499002266407`*^9, - 3.9918499040814323`*^9}},ExpressionUUID->"935796a8-6280-564a-b4d0-\ -fc6fb6cd41f8"], + CellChangeTimes->{{3.9918499002266407`*^9, 3.9918499040814323`*^9}}, + CellLabel-> + "In[218]:=",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.420646512054882`*^-192\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 393, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356420965*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.321365431130348`*^-227\\\", \ +\\\"13837903517621823881868475992501522797012013156236308470069045755904000000\ +0000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 218, 65, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993827980924286*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], +In[218]:=",ExpressionUUID->"ee05e14e-f31d-4bf4-90b8-e96863322500"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.243146251073813`*^-196\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 394, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356431965*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1758380214900788`*^-233\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 218, 66, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993827980933062*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], +In[218]:=",ExpressionUUID->"3ea30b0e-7f48-4dd2-9e8b-7840f3082aa3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.230301621061892`*^-200\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 368, - 395, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356441965*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.955956068960984`*^-240\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 218, 67, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993827980940124*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], +In[218]:=",ExpressionUUID->"b5763151-68fe-4576-a3c5-39a40c91e0c1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 368, 396, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342356450968*^9}, +during this calculation.\"", 2, 218, 68, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342356420965*^9, 3.993827980946835*^9}, CellLabel-> "During evaluation of \ -In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], +In[218]:=",ExpressionUUID->"ec6a675a-f8d3-4400-9f8c-c6c3466e9299"], -Cell[BoxData["19.874153108015193`"], "Output", - CellChangeTimes->{3.9913423600715523`*^9}, +Cell[BoxData["8.02666557985279`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9, 3.9938279846306877`*^9}, CellLabel-> - "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] + "Out[218]=",ExpressionUUID->"f9f0c1f3-5fe2-43f1-bf91-cac7b24a4977"] }, Open ]], Cell[CellGroupData[{ @@ -6190,22 +12461,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991849908545643*^9, - 3.9918499133398113`*^9}},ExpressionUUID->"ee52036b-90c5-e14a-aed9-\ -684ff23ed035"], - -Cell[BoxData["0.2067571864462191`"], "Output", - CellChangeTimes->{3.9913423601046352`*^9}, + CellChangeTimes->{{3.991849908545643*^9, 3.9918499133398113`*^9}}, CellLabel-> - "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] + "In[219]:=",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], + +Cell[BoxData["0.004375328126422557`"], "Output", + CellChangeTimes->{3.9913423601046352`*^9, 3.99382798466637*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"789970cb-036f-48f6-8046-16a66e97797c"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991849916273302*^9, 3.9918499185334816`*^9}, - 3.9919247506818066`*^9},ExpressionUUID->"c6d4a146-4cca-7e4e-b483-\ -85227a6e6b51"], + 3.9919247506818066`*^9}, + CellLabel-> + "In[220]:=",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], Cell[CellGroupData[{ @@ -6228,12 +12500,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + "In[221]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[BoxData["29.129739599983825`"], "Output", - CellChangeTimes->{3.9913423601345863`*^9}, +Cell[BoxData["15.119577887196954`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9, 3.993827984681498*^9}, CellLabel-> - "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] + "Out[221]=",ExpressionUUID->"ff24afe0-be5a-4cf9-ba57-8eac40903693"] }, Open ]], Cell[CellGroupData[{ @@ -6243,12 +12515,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + "In[222]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[BoxData["0.6950071373045505`"], "Output", - CellChangeTimes->{3.9913423601709976`*^9}, +Cell[BoxData["2.4903441575785266`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9, 3.993827984691637*^9}, CellLabel-> - "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] + "Out[222]=",ExpressionUUID->"f90e09c3-7613-492b-aa1e-94e4d2135777"] }, Open ]], Cell[CellGroupData[{ @@ -6258,12 +12530,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + "In[223]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[BoxData["20.245376929811762`"], "Output", - CellChangeTimes->{3.9913423602320137`*^9}, +Cell[BoxData["37.65295245643441`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9, 3.9938279847009706`*^9}, CellLabel-> - "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] + "Out[223]=",ExpressionUUID->"48172cdc-44c3-41af-845c-d16e8e57ba42"] }, Open ]], Cell[CellGroupData[{ @@ -6453,12 +12725,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + "In[224]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[BoxData["0.02003459702393596`"], "Output", - CellChangeTimes->{3.991342360260002*^9}, +Cell[BoxData["0.0038701512479306977`"], "Output", + CellChangeTimes->{3.991342360260002*^9, 3.993827984715271*^9}, CellLabel-> - "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] + "Out[224]=",ExpressionUUID->"1a17d775-0177-44a6-9f51-1efd2234da2c"] }, Open ]], Cell[CellGroupData[{ @@ -6472,12 +12744,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + "In[225]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[BoxData["6.261157591052328`"], "Output", - CellChangeTimes->{3.9913423603598785`*^9}, +Cell[BoxData["14.245607415342985`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9, 3.993827984815734*^9}, CellLabel-> - "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] + "Out[225]=",ExpressionUUID->"6ba037e7-9e90-4cc5-a5cc-e5eb775a0917"] }, Open ]], Cell[CellGroupData[{ @@ -6669,12 +12941,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + "In[226]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[BoxData["0.010388932679900494`"], "Output", - CellChangeTimes->{3.991342360375868*^9}, +Cell[BoxData["0.024375523440182467`"], "Output", + CellChangeTimes->{3.991342360375868*^9, 3.993827984830626*^9}, CellLabel-> - "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] + "Out[226]=",ExpressionUUID->"5b20da38-ad3b-4942-ba39-50d69020a9aa"] }, Open ]], Cell[CellGroupData[{ @@ -6688,12 +12960,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + "In[227]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[BoxData["8.694797556550151`"], "Output", - CellChangeTimes->{3.991342360471882*^9}, +Cell[BoxData["5.676334309198907`"], "Output", + CellChangeTimes->{3.991342360471882*^9, 3.993827984930298*^9}, CellLabel-> - "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] + "Out[227]=",ExpressionUUID->"d75e616a-4724-48d1-b19a-222d7f5977c9"] }, Open ]], Cell[CellGroupData[{ @@ -6786,12 +13058,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + "In[228]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[BoxData["0.6154782275967796`"], "Output", - CellChangeTimes->{3.991342360486868*^9}, +Cell[BoxData["0.10999847360764459`"], "Output", + CellChangeTimes->{3.991342360486868*^9, 3.993827984940386*^9}, CellLabel-> - "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] + "Out[228]=",ExpressionUUID->"d8e1a6b5-9197-4fa0-9650-111437481c34"] }, Open ]], Cell[CellGroupData[{ @@ -6881,12 +13153,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + "In[229]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[BoxData["0.3845217724032204`"], "Output", - CellChangeTimes->{3.9913423605138645`*^9}, +Cell[BoxData["0.8900015263923553`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9, 3.99382798495015*^9}, CellLabel-> - "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] + "Out[229]=",ExpressionUUID->"db763180-a255-4ab6-83c2-b8500677f599"] }, Open ]], Cell[CellGroupData[{ @@ -7009,12 +13281,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + "In[230]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[BoxData["0.2366647789511063`"], "Output", - CellChangeTimes->{3.9913423605448647`*^9}, +Cell[BoxData["0.09789880941163293`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9, 3.9938279849609003`*^9}, CellLabel-> - "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] + "Out[230]=",ExpressionUUID->"4d118066-b7d1-4e14-9603-4d52f6d38612"] }, Open ]], Cell[CellGroupData[{ @@ -7076,68 +13348,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849936863495*^9},ExpressionUUID->"6b25ec99-ae49-ec4d-9652-\ -65328572e509"], + CellChangeTimes->{3.991849936863495*^9}, + CellLabel-> + "In[231]:=",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 384, 397, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342360571863*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.232981560467124`*^-223\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 231, 69, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.9938279849748297`*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], +In[231]:=",ExpressionUUID->"605a3153-9071-4e7e-bb3f-e5172bb765c8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 384, 398, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605818653`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1357639009703715`*^-229\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 231, 70, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993827984981266*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], +In[231]:=",ExpressionUUID->"5ff78df0-947b-4164-b2eb-43e56847998b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 384, - 399, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605898647`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.040779011256101`*^-235\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 231, 71, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993827984987792*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], +In[231]:=",ExpressionUUID->"852d6ba1-7cf6-4b47-9c8a-88fe37a56b5e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 384, 400, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423605988636`*^9}, +during this calculation.\"", 2, 231, 72, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342360571863*^9, 3.993827984995528*^9}, CellLabel-> "During evaluation of \ -In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], +In[231]:=",ExpressionUUID->"1290857f-924a-4818-bfa4-6a65e26cbada"], -Cell[BoxData["6.261157591052324`"], "Output", - CellChangeTimes->{3.9913423642473736`*^9}, +Cell[BoxData["14.245607415342977`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9, 3.993827988449441*^9}, CellLabel-> - "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] + "Out[231]=",ExpressionUUID->"11134532-0086-4169-911a-6d5a27c94d42"] }, Open ]], Cell[CellGroupData[{ @@ -7199,68 +13472,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849940282545*^9},ExpressionUUID->"3e2baf62-fab9-eb41-8de7-\ -aa229443ac14"], + CellChangeTimes->{3.991849940282545*^9}, + CellLabel-> + "In[232]:=",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 385, 401, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364284378*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.232981560467124`*^-223\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 232, 73, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.9938279884942427`*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], +In[232]:=",ExpressionUUID->"b9a2a78c-eb00-4ac2-a8d1-a5ef71a1b5b3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 385, 402, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423642935734`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1357639009703715`*^-229\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 232, 74, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.993827988502684*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], +In[232]:=",ExpressionUUID->"c3145f23-d998-4d64-861c-e4c605e4e351"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 385, - 403, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342364302574*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.040779011256101`*^-235\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 232, 75, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.993827988511312*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], +In[232]:=",ExpressionUUID->"784c5f1a-68c9-4a19-b967-160a699433cc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 385, 404, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913423643105717`*^9}, +during this calculation.\"", 2, 232, 76, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991342364284378*^9, 3.99382798851862*^9}, CellLabel-> "During evaluation of \ -In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], +In[232]:=",ExpressionUUID->"b7b01b5c-cb44-41c0-8dba-b0c3dd547c74"], -Cell[BoxData["8.694797556550144`"], "Output", - CellChangeTimes->{3.9913423679416714`*^9}, +Cell[BoxData["5.676334309198908`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9, 3.993827991893984*^9}, CellLabel-> - "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] + "Out[232]=",ExpressionUUID->"591398d3-aa04-4b0d-b013-b71c33830d49"] }, Open ]], Cell[CellGroupData[{ @@ -7318,95 +13592,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849946138607*^9},ExpressionUUID->"725c3011-bda9-4c42-96ce-\ -9a77a5dc787c"], + CellChangeTimes->{3.991849946138607*^9}, + CellLabel-> + "In[233]:=",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xk0VlsfB3DzFDKEcEmmGxKZCftnLDOhTMnwnGMos9zHEG+ZkpJooBQV +JSEioq6rKCUhQ2mSufIYDyIN3u2Ps876rH3Od3332mfvs9UvbC/BwsTENI2v +9XtE546/67s7jf9S9Xv7ypCBjGeKtf3My1HA2MLSuocKdc7Jmz9CyYs3nTqx +HWmvOHg1n6Iez/jJdVfTk1rYzTtQrFhEcxd2xrPNzUllr1Gx3InebuyG7oir +vzT6kXp8s1wP9uT79oTYhwNIerNEdS+2xLic53ezj4hn4Vx8P7bNbIJ+VMdn +1Mi6M/ktdtOvyQ30smGUBjNt77DfHBOLrwsdRcyFHVYfsWc4zCcXNcaRvXAH +12dsjlPh7prLE6g6e4ptBFta8MrziIdfkTL3DuNxbHvJ7zdnzKYQe6Vw4BQ2 +WSQrqso1g1Ye1LvNYScpOKQe6phFbAkJaYvYA2J9O6PL5pHlh4D839g0j+Cg +3FMUErfLSmQxYqC5AqZr90IXkJxsfxEnNpesqsC8xhLacb6lQAj7HK1lt4DI +d1S3FhyzGVvmlnuS2vJ39I3UOC2Nrbc9bSbk4QrieyATqYIdqPO5Y9LsFzJh +oYvvwV6kH2HjUfyNmL5LfnTA/t/DDYZKXH+Q5ejgh/3YeaB3J6BjDb0QfpwT +iE0reW4eWcYMmaHUp1PYZc9yh45JssCNgYyMC+t9v3gnnD3FAvfnjSOLsBOU +l2qqQlmBM4b5Z+1637tb5WY12OFN6Mi3Iez33VNNf26wQ8qab+LUen+q3oNf +hAPay387rGCXa9nnqC5zwEziiTIBYwZqbYhjPvyQCxwrxg3NsZdaej9/NeMF +tdH0N3XYQra8AvFNvBAWz5fZhq3eZw58+nxQs+STPoAdPHa/aOcOfgjfHL7/ +J3Y4S4e6Ea8A6NLlXc0RA43LVs6nfhcE7zOZz0axF8l27i5NITBlbl5ewWa5 +M7F1c4QQ1Dc/DOcH3Fdzy94yhhC02HIaGGB7mGXf6xwShho0rHQeu8s/Mkrs +pQjMX1FPdDNhoMFbWZk+XKJwnHFVJRJ7ilF247aFKLD5dcicwuaJHu3d1SwK +BzP8RpqxzVNctHzui8Fq6aEnqqYM1Fiss1RaKA4+moeWNpkxUPH4aoxBtBQE +lRTIilsw0B7X9MGoCiloK3tD18eeahW2rJiQgrGJTD4PbK3i7SIy7tLwbwZB +XcZu9fOuYTfeAmNDLbdlLRmImh3652uyDEjxF3Tu2s1AwiHmtTV2srBveIFR +YMVAE8U8gY7BshB221rgKfaDj92S02mycCSFI2oa28v2QLJisyzwepUtGFvj +fioxe/M15KC77NTwGLbW5K25RDF54IvlCjO0ZSCXgA2q1sMKEN7GZCPhwEAo +xlVj/28F8LwoZGWFrZxaqEsTV4RfMyzJdGymG5qmiU6KcKY2vuwtdsWg5/57 +jxWhvKe2Lc8R78995cckrv8NqtbxBop7cT9zuzeTfkoQm9C+GuLKQDecL35Y +TlQCw2tjkcXYWX7DQ2yXleAdx3+KH7Bp/zvCkO5VgmfxVSZW+xhI8NEVJmcz +ZWCTDDLfth9/P5ozyg/lVKDkjkXCvBsDScqeScoc2w5FMgKVVV4M9OjkotIP +FlVImCgYXMD2WnDvI7eqwun9Dq66Bxjoaqu8kqm3KrDobRH5D1s2oLFn5a0q +DMTC4GtvPN/ycQXy5Q64fV7tPJsvA0lJSpMy7upQkJ9/8irBQNtLonl/Ig04 ++rZIqziMgfxoyUuq9hrQxTqot4CdJ5cz6OOlAUsH+mJNwxmI9frdqmd0Dfhq +OVE9jP3+6qRLTrUG8FtHrspG4vM0z+eKkpwmZBx6zKiKxuubabvDjUMLtvsW +m63GMtC1SHnH+x3aUMLDGWCaykDdMUg3pUQftl6XbZgrYqCt3v32Bw4bQZ3W +Zx3fZgYi1uoqpWIB3LZznKAPM5AY4wGnmJ8prEF/WgD3FIrWNPyYo2wO/R9H +ukM0ppDf9K/nwpMWQF8oPibmPYUqTKM4C7t2g6u045LR2SlUvBj8uPycFZw0 +2jV7uHUKrZhsftWaZAPHHpfwZK9NoU9MrPPDvnaw3DRaoG40jUL/Css+JucA +PBN/khtip1Fl0PPm86mO8KU3Liq7aRrFLYgvqwQ5ge7kcFwJ8wxasrbc13Zw +LzSETyro2c0gfc+zJuNOztB/6Qi31KUZ1CN+JbhV0wUMpnXSeMZmkMTN5Eel +21yhZ9aJx0VnFj0YUra159sHfFxBbl9SZpF031xAzPQ+aK9Nc3fsnUWa58+W +3xjaD0v/FQ282jSHrrAt7MhpcYPfCU8KjxrNoToTtfepDe7A+WBbxMegOZSn +e1LwV5kHaHgf6U86P4e6PpSkaZ7yBInV5sciTXPovl2BfPj/vEDkj4vLk29z +aD7EmSmUdgBEZIxmmIXm0ZKlUuCMmTfMgl9Pm948Kp1+txKlcxC0k3xrPvnO +I7drJf4HeH1g+yXJFxvT51HNPZuDrOk+UCWa8c+XinmkL9nzI+OHDzi9E8vL +7p5HckMB718H+UJEWGVu/9w8GttwyKFg1BeWD8eI1ghSqDvL3n+3qx+8lj2R +q7yDQufohRuOdPtB42VPfcKaQo+a1n74W/nDgnrMFxN/Cm30gnTNRn9gy+eP +ePQPhWQ2tXX99cgfqlb0LTbSKaTeYbeZo8kf3nuEjfti7zX0vD3w2B+0Ujoz +OGJx/l8xL4++8AdFc0NfuzgKSXy6s/H5gD+o3X9r8jqBQvLeYnley/5Qf9sj +ufoYhfR9ZkpTtWiQ0Pxn/PVJCt3Mn4uy16FBcdjfPUKZFNrUSxmL6dHgZhgj +yxl7xmK5r3QXDeJPbIvrwy5WYWLuMKXBFaNK0T78X+ZfFnQXcqLBl5Uq3/Ys +Co2d1uYuDKFB+cdR/twcCjm16fYFhNHghfwHpk7sJiaDQvUIGmyMyn7ClUuh +/Chj7SfRNLB5KXH/KLa9+27f8XgaHFJediXOUahB3r1B5SQNnI8rHFO5QKGs +hwlBD27SgJvY4pSbT6EQjYv69FIavM4ckW/Dtr1dza1XRoPh1uQXq9g8Fydu +11fQwFLAOtX3EoVSIx0n62ppsJJl/Wz7ZQolKMkfuv+EBrsOOgQ1FlAo+OLL +w/cGaZAty8d/r5BCVvwThpFDuL+JxMJn7G2pTHwaIzTInfUs5Sui0ESkdkX1 +OA2sNwUlB2L72hdOV03RYCxY5qfkNQq5sUeF3l2lgZlcy1TsdQrtjpIILxcl +QG1huF6whEJPCtOsczYT8K7P46chtmEHJU+XIEBqcYg9EFtd4eU7M2kCIl7+ +CfsXW/xtvNkHBQLUs75cJG5SiGHwSZRHm4Cu6Madd25R6AxL0b8BzgQYl+0J +2lCG56/Gm2fnSoBgnn6KGnaKJz1Scz8BTUnnCGdseq3j32seBFxuPBJ/CduX +ZD57wY+A5W/EgsIdCmm2+9GeRhAwXiAioFFOobdnFTbIZePnTVcGpSspVIn4 +Ar+eJeBYg1GPPnbK9GJrRS4B7iGTOS7YGlatiXoXCfBICknIwM5i8qfsrhLg +vLNtdg7bMqzoHb2cgMIUU9e6uxSSkjqhY1xJADf3ValO7MX2sFzWKgKmtmnW +jGNfV0R2WTUEeOavWWyqotDvT5+abzQSoLpxgDsMu9ZWsrTzOQHfcx25JKsp +lLnKwn6unQCVm0I31LD9Sid93TsIWPSd4DHHFmBrlBzrIqDiWoPJYezDD93O +/HhDQJhQt00jtpzyhRj5cQLi+d502d6j0Orbo73fJggQCykz8MbuTiXU734l +QMAoNDIMO3FYa1J/ioChwEd7zmK/z+s94LBAgNkro+we7BxOQYs4ZhI6Lxtn +2NTg84D65BnNSkKZtg3pif3lU1lkKDsJUhtyWA9hG9aaF/lxk3D62tPEDOwJ +H/pPa0ESSpgy/mnBFrC1ELIQJuH4I5V9r7F36QopIRESlvlXFgexs/nK92mK +kzDexR71Y3288XO15FYSNOWehKvUUogsKX8uIkeCad1RR13s7OzYzxsVSHCO +c5kzxZ4ghfnYlEio4rMLd18fF94dOKVOQt8N44hk7MY/wkkTGiToPrnldBp7 +/NvQ+SEtEiKntlAXsA2a41r69EhQ+K0bdRt77HCl9L9AAofO6JGX2Pxu8dr1 +piTEXSra14utb7bHttqchGFF/+X32FniI7Ele0gwiligf8N+wHY3u9CaxPvz +P/c57NHZ+Fv5tiTcHMlc/Y6t90yk/7QjCYbv5BNY7+P1rh5hpO8lIchm1osb ++3TBXZbjLiTUm9X/5sceibRSj3HDfa8ZJolj83mL7g73IGHw5MpBaWw9q9ED +wV4kBLLcZZJbf3/L0UxvHxL2cHIfV8F+wGN93c2PhB8+d/zU1vOWRBv20kig +D1uwaq7nDY922ZIknGEf8NdZz+uomrAMJEHY2TdFf71f/dHfEEzCmNswzXA9 +/7r1pl2HSZiv3M+O1vNPi6loh5Kg872FMFnPp4+ZqIWTUDegkGaGzUurdlOK +JCGd+yhpga3rkBgmF03CU/MXHLvX8w1s0qRiSLjmwBOwB/uUwuYrYnQSnFZQ +uhV2ncB4jWAcCX+JBgdYYw//rG7fkIDHM05w2qznf0kcZk8kwWXX5YB16/TY +rKwlkXBW+nr6uv8PcRAcMg== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7420,107 +13694,107 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwV1Xk0VlsfB3DzFDKEcEmmGxKZCftnLDOhTMnwnGMos9zHEG+ZkpJooBQV +JSEioq6rKCUhQ2mSufIYDyIN3u2Ps876rH3Od3332mfvs9UvbC/BwsTENI2v +9XtE546/67s7jf9S9Xv7ypCBjGeKtf3My1HA2MLSuocKdc7Jmz9CyYs3nTqx +HWmvOHg1n6Iez/jJdVfTk1rYzTtQrFhEcxd2xrPNzUllr1Gx3InebuyG7oir +vzT6kXp8s1wP9uT79oTYhwNIerNEdS+2xLic53ezj4hn4Vx8P7bNbIJ+VMdn +1Mi6M/ktdtOvyQ30smGUBjNt77DfHBOLrwsdRcyFHVYfsWc4zCcXNcaRvXAH +12dsjlPh7prLE6g6e4ptBFta8MrziIdfkTL3DuNxbHvJ7zdnzKYQe6Vw4BQ2 +WSQrqso1g1Ye1LvNYScpOKQe6phFbAkJaYvYA2J9O6PL5pHlh4D839g0j+Cg +3FMUErfLSmQxYqC5AqZr90IXkJxsfxEnNpesqsC8xhLacb6lQAj7HK1lt4DI +d1S3FhyzGVvmlnuS2vJ39I3UOC2Nrbc9bSbk4QrieyATqYIdqPO5Y9LsFzJh +oYvvwV6kH2HjUfyNmL5LfnTA/t/DDYZKXH+Q5ejgh/3YeaB3J6BjDb0QfpwT +iE0reW4eWcYMmaHUp1PYZc9yh45JssCNgYyMC+t9v3gnnD3FAvfnjSOLsBOU +l2qqQlmBM4b5Z+1637tb5WY12OFN6Mi3Iez33VNNf26wQ8qab+LUen+q3oNf +hAPay387rGCXa9nnqC5zwEziiTIBYwZqbYhjPvyQCxwrxg3NsZdaej9/NeMF +tdH0N3XYQra8AvFNvBAWz5fZhq3eZw58+nxQs+STPoAdPHa/aOcOfgjfHL7/ +J3Y4S4e6Ea8A6NLlXc0RA43LVs6nfhcE7zOZz0axF8l27i5NITBlbl5ewWa5 +M7F1c4QQ1Dc/DOcH3Fdzy94yhhC02HIaGGB7mGXf6xwShho0rHQeu8s/Mkrs +pQjMX1FPdDNhoMFbWZk+XKJwnHFVJRJ7ilF247aFKLD5dcicwuaJHu3d1SwK +BzP8RpqxzVNctHzui8Fq6aEnqqYM1Fiss1RaKA4+moeWNpkxUPH4aoxBtBQE +lRTIilsw0B7X9MGoCiloK3tD18eeahW2rJiQgrGJTD4PbK3i7SIy7tLwbwZB +XcZu9fOuYTfeAmNDLbdlLRmImh3652uyDEjxF3Tu2s1AwiHmtTV2srBveIFR +YMVAE8U8gY7BshB221rgKfaDj92S02mycCSFI2oa28v2QLJisyzwepUtGFvj +fioxe/M15KC77NTwGLbW5K25RDF54IvlCjO0ZSCXgA2q1sMKEN7GZCPhwEAo +xlVj/28F8LwoZGWFrZxaqEsTV4RfMyzJdGymG5qmiU6KcKY2vuwtdsWg5/57 +jxWhvKe2Lc8R78995cckrv8NqtbxBop7cT9zuzeTfkoQm9C+GuLKQDecL35Y +TlQCw2tjkcXYWX7DQ2yXleAdx3+KH7Bp/zvCkO5VgmfxVSZW+xhI8NEVJmcz +ZWCTDDLfth9/P5ozyg/lVKDkjkXCvBsDScqeScoc2w5FMgKVVV4M9OjkotIP +FlVImCgYXMD2WnDvI7eqwun9Dq66Bxjoaqu8kqm3KrDobRH5D1s2oLFn5a0q +DMTC4GtvPN/ycQXy5Q64fV7tPJsvA0lJSpMy7upQkJ9/8irBQNtLonl/Ig04 ++rZIqziMgfxoyUuq9hrQxTqot4CdJ5cz6OOlAUsH+mJNwxmI9frdqmd0Dfhq +OVE9jP3+6qRLTrUG8FtHrspG4vM0z+eKkpwmZBx6zKiKxuubabvDjUMLtvsW +m63GMtC1SHnH+x3aUMLDGWCaykDdMUg3pUQftl6XbZgrYqCt3v32Bw4bQZ3W +Zx3fZgYi1uoqpWIB3LZznKAPM5AY4wGnmJ8prEF/WgD3FIrWNPyYo2wO/R9H +ukM0ppDf9K/nwpMWQF8oPibmPYUqTKM4C7t2g6u045LR2SlUvBj8uPycFZw0 +2jV7uHUKrZhsftWaZAPHHpfwZK9NoU9MrPPDvnaw3DRaoG40jUL/Css+JucA +PBN/khtip1Fl0PPm86mO8KU3Liq7aRrFLYgvqwQ5ge7kcFwJ8wxasrbc13Zw +LzSETyro2c0gfc+zJuNOztB/6Qi31KUZ1CN+JbhV0wUMpnXSeMZmkMTN5Eel +21yhZ9aJx0VnFj0YUra159sHfFxBbl9SZpF031xAzPQ+aK9Nc3fsnUWa58+W +3xjaD0v/FQ282jSHrrAt7MhpcYPfCU8KjxrNoToTtfepDe7A+WBbxMegOZSn +e1LwV5kHaHgf6U86P4e6PpSkaZ7yBInV5sciTXPovl2BfPj/vEDkj4vLk29z +aD7EmSmUdgBEZIxmmIXm0ZKlUuCMmTfMgl9Pm948Kp1+txKlcxC0k3xrPvnO +I7drJf4HeH1g+yXJFxvT51HNPZuDrOk+UCWa8c+XinmkL9nzI+OHDzi9E8vL +7p5HckMB718H+UJEWGVu/9w8GttwyKFg1BeWD8eI1ghSqDvL3n+3qx+8lj2R +q7yDQufohRuOdPtB42VPfcKaQo+a1n74W/nDgnrMFxN/Cm30gnTNRn9gy+eP +ePQPhWQ2tXX99cgfqlb0LTbSKaTeYbeZo8kf3nuEjfti7zX0vD3w2B+0Ujoz +OGJx/l8xL4++8AdFc0NfuzgKSXy6s/H5gD+o3X9r8jqBQvLeYnley/5Qf9sj +ufoYhfR9ZkpTtWiQ0Pxn/PVJCt3Mn4uy16FBcdjfPUKZFNrUSxmL6dHgZhgj +yxl7xmK5r3QXDeJPbIvrwy5WYWLuMKXBFaNK0T78X+ZfFnQXcqLBl5Uq3/Ys +Co2d1uYuDKFB+cdR/twcCjm16fYFhNHghfwHpk7sJiaDQvUIGmyMyn7ClUuh +/Chj7SfRNLB5KXH/KLa9+27f8XgaHFJediXOUahB3r1B5SQNnI8rHFO5QKGs +hwlBD27SgJvY4pSbT6EQjYv69FIavM4ckW/Dtr1dza1XRoPh1uQXq9g8Fydu +11fQwFLAOtX3EoVSIx0n62ppsJJl/Wz7ZQolKMkfuv+EBrsOOgQ1FlAo+OLL +w/cGaZAty8d/r5BCVvwThpFDuL+JxMJn7G2pTHwaIzTInfUs5Sui0ESkdkX1 +OA2sNwUlB2L72hdOV03RYCxY5qfkNQq5sUeF3l2lgZlcy1TsdQrtjpIILxcl +QG1huF6whEJPCtOsczYT8K7P46chtmEHJU+XIEBqcYg9EFtd4eU7M2kCIl7+ +CfsXW/xtvNkHBQLUs75cJG5SiGHwSZRHm4Cu6Madd25R6AxL0b8BzgQYl+0J +2lCG56/Gm2fnSoBgnn6KGnaKJz1Scz8BTUnnCGdseq3j32seBFxuPBJ/CduX +ZD57wY+A5W/EgsIdCmm2+9GeRhAwXiAioFFOobdnFTbIZePnTVcGpSspVIn4 +Ar+eJeBYg1GPPnbK9GJrRS4B7iGTOS7YGlatiXoXCfBICknIwM5i8qfsrhLg +vLNtdg7bMqzoHb2cgMIUU9e6uxSSkjqhY1xJADf3ValO7MX2sFzWKgKmtmnW +jGNfV0R2WTUEeOavWWyqotDvT5+abzQSoLpxgDsMu9ZWsrTzOQHfcx25JKsp +lLnKwn6unQCVm0I31LD9Sid93TsIWPSd4DHHFmBrlBzrIqDiWoPJYezDD93O +/HhDQJhQt00jtpzyhRj5cQLi+d502d6j0Orbo73fJggQCykz8MbuTiXU734l +QMAoNDIMO3FYa1J/ioChwEd7zmK/z+s94LBAgNkro+we7BxOQYs4ZhI6Lxtn +2NTg84D65BnNSkKZtg3pif3lU1lkKDsJUhtyWA9hG9aaF/lxk3D62tPEDOwJ +H/pPa0ESSpgy/mnBFrC1ELIQJuH4I5V9r7F36QopIRESlvlXFgexs/nK92mK +kzDexR71Y3288XO15FYSNOWehKvUUogsKX8uIkeCad1RR13s7OzYzxsVSHCO +c5kzxZ4ghfnYlEio4rMLd18fF94dOKVOQt8N44hk7MY/wkkTGiToPrnldBp7 +/NvQ+SEtEiKntlAXsA2a41r69EhQ+K0bdRt77HCl9L9AAofO6JGX2Pxu8dr1 +piTEXSra14utb7bHttqchGFF/+X32FniI7Ele0gwiligf8N+wHY3u9CaxPvz +P/c57NHZ+Fv5tiTcHMlc/Y6t90yk/7QjCYbv5BNY7+P1rh5hpO8lIchm1osb ++3TBXZbjLiTUm9X/5sceibRSj3HDfa8ZJolj83mL7g73IGHw5MpBaWw9q9ED +wV4kBLLcZZJbf3/L0UxvHxL2cHIfV8F+wGN93c2PhB8+d/zU1vOWRBv20kig +D1uwaq7nDY922ZIknGEf8NdZz+uomrAMJEHY2TdFf71f/dHfEEzCmNswzXA9 +/7r1pl2HSZiv3M+O1vNPi6loh5Kg872FMFnPp4+ZqIWTUDegkGaGzUurdlOK +JCGd+yhpga3rkBgmF03CU/MXHLvX8w1s0qRiSLjmwBOwB/uUwuYrYnQSnFZQ +uhV2ncB4jWAcCX+JBgdYYw//rG7fkIDHM05w2qznf0kcZk8kwWXX5YB16/TY +rKwlkXBW+nr6uv8PcRAcMg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.8511723715504647, + 1.1692614839720685`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.8511723715504665}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7532,21 +13806,21 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, - 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.8511723715504647, + 1.1692614839720685`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.8511723715504665}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7560,105 +13834,105 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1HlUTesbB/BEaaSBRkMaqGjQaZaep5lmaSJSp3N2A5JK0ihUxiRR7k9C -qaRQKpRLKXQr6iIRsRulSRqVc26/tz/22uuz3rW/7/d591rvGuYBFzYvDw9P -P3nm3wffaK572PLG9GV4T75BAhdMR3L1mJZFYB5ZU61PTGfrpytbPgHzSwHC -usTOrNf8IowXcOJFe7IWcUlkfC2fZRPo35bVVyM+9VKmOr7wX5BKXie1hvhx -y8FrHJ1WMLFfrCpNPNDeEHOk6iNYnX2yV5hYrlfJa8riC5gl2HVyj3LB7meM -UVjTNygXfnxyhPgpZ0A4srATDpcKMTuIPyRIR1cEd8PHm9b7G4hH+C0HJnR6 -4eT9sMJyYv6zITsY030Q73ZFNpt4lXhW/cGqflAqfVaZROwoP5U3YjEEutt1 -LjoTU9cVpTQERuCldFqDDnG8ilPi3qafoJAuqytJ/FH6/cbwwl8Q8vF11pt4 -LrB2BgVePDsGXdskr90mHr3Kc6M0eBz+9Ja0HCMWUNQQ+6UzCdHdOq+1iNNZ -tTZiy6cgXJORsZBYIX9HvNb0FMh41F9sjeOC4Yakkf1Vv+Ef5QnlcOIA/W9N -AxYceKpme/t/sVyYiDy0SGgtFxKdewV9iY9WCZuoCfwHwSN3spSJM9Hwjn/T -HIgoS+7JiyH9btVbhhYuwPSCt3bp0VwofHmRTpDnRQ1dxy12xKPfvWMunOVF -K+XySB7iGPXJB/eDF6I9u+QQO4r0vbdG6acOH5a+iemWPcKF9pahp//l8GGj -T8Cx55Gk/9jDnUuW82NWiKp7IHGRrmOaxjQ/VtTlXS05zIW6x1EL9lUJ4GIt -q9sbIrgwWfvuW7+FCJamB9BNoVyQsBcRi34qgq3SAvxOxNrvLVHUSBTp1+US -zQe5ENRTfn2j5hL8aLisqz6ECyG8TdqbRcSw8P5v75xgLvQq3v2VOCWOXtPS -fBOB5HyoBsFmhgTSP2srXIl57/StkTkogSeTLLc/CCB9GatdCgclUCbwnUOQ -Pxd2WqSWvqElsW3xK+dnLC40+4WGSTcux+H9ja/59nDha37KGR8BKeRXYTpa -eXNhaLAw57aVFK4dOPD02G4uCIV3v9tULYXWvfrB015csDzhqutTLo1ml84t -r/fkQmWu/mRBtiyqnBh/w+/Chdze2Qjj8JX4UbMmnGPOhS1uyV/Dilei6uGB -R8LEQ3WS1sV9K5FX5bixrBkXdHM3LFfYsQqPhvhOawI5T6b3Az7T1cj8dNrX -ahMXxn7Sh/uPK+BLQRebVQwuSO63LHvgoIj97+jJY2u40JcrFOAcpIh7g9dk -7VTgwqMvLfLDSYr4bPGPc9qrubDLfvfxtdWKOCjy0KFtBem3PsLlio4SHv4i -4SImQ/YfyB+Nk1ZGM62619pLuODqL6xh26mCXWc/F2vOcAAi3HQ8uCpYEDpr -1jbNAfXEbAOW7FqcosNM46Y4wJPDMI/btha91beGvhrnQPFXL4/SmrWoJLbr -rfUIB/jdixLkbq5DMeX8LzNdHHhk6fBhgKmGAaH7InQbOSCveD7+TM8GjHGd -lpfJ4MCT0xNqM7wa+PVz3nqjSxzYNb7jPbVGA9c7bjzmeZED1+qU1cy9NVBc -8DF/2nkOKPpXvv3dpoFrZeiE0WTSr6hXhWrURI3h3B6vSA6slF9FKezQxmJd -VsYvDw5suBUu8gd0cPb0khWWEhy4EarsXN6kh6tMHPLXHf0DLRFgcOKWEZpX -lXXxvp6FNd6tjrv3bUbz3YmX7wjPAnuu4u7KI4gKsksTf9vOgPTgo8XSTHMc -2qLpvyDkN4QzTL6kqVti/k/PZKOsaWAOc+olB6yQecmkEBunoNg8bHF2sw0K -BSlEufdNQu5EUE1R+lZM6q+t6BGfhN9mMq/r4u3w1L0Et2nNCejgWfir09cB -GSnH8z3cxiF4xYHUBCUnlE9I4zdLHYO7gfXVlxKdUaEsq2265hdEjctOrw/c -hlOSm89pCf6CSVtr91d7XDA2VCyXx3YUjLwumPVu244CV6NP52r9hLeyWUF1 -DFfMagmMPTMxDHJ5x58UqLrhs3+Oig+VDMEjWt3eUdQd4Uym4N7Lg7Dq/ah/ -xLA7fpc89645dQAYly4U5dAe+DTZMP1T0g/IWjSumVbriYOR8h191/qhwkyr -PfHxDrxhbSOUUfYdMg1Oi3MKd2KDHNqu/dYHzZ9vJTHOemH1bHaa2do+KHe4 -qhxydBd+eyshfHJfL/zav50nmLUbpbS+Lghs6oFJa7WAEQtvVCqM2LB1Uw8U -DH/6Haa/BwdHDTQPFXaD541bfrtFfNBVW1M2T7MbHpTa7VmY7IMxfxnnaJd1 -gZH825lTMz6op34lyde+C5Ro//Z/A30xNfaZg+hoJ/QI73W62u2Lf/WrMhdf -7oSWFEc/GzcmhjiqHle064T0yGzhQy1MLJXbI3dqYSc8eTo347fVDz8s/dR6 -4SUNG2t0DdfZ+SE9qXLw2Qsa8moDIwbs/TDOuPbkcB0NF+rfjYU4+6F3aNkG -u1oaqLf5g7Eefmh7uN1KpJoG8T6njgy2H/qsz7h/6zFZF71e3Zjgh4OsrEV6 -xTQs3YXJjEo/pA5eLHh+iQaFZa+aVzzxQ57O/Pq5dBq0mxxk+J/6oelgT8Rm -YhcTr9sfa/zwzUxmbGUaDekrIhpj//HDgLwNOlXnaZDruLO0/iPZf9xSve0U -Dcre0pm7pv0QRfIGIuNoMPIZKUjUZWGeQE+4TyCZ58pomKM+C42GXmJjAA3L -3o2ZShuycLCMnahPPGI1/b5gEwtLTIoil/jT5L7hWdBkzsLZSQZ/HYuGJdPi -OyS2sZB9k6fMyoeGnnN6gtn7WRg81y2R40HDtlcG7/0PsLCdxehaQfyUxzhb -+yALU7VnVDPcabgSZqr3PJyFxkk1K8650eC4w8a3N5qF461GV+O20/BYecfj -9adZKGBzeuywEw0pVTGBj/JYWCwf+qTWhob9OhlGkQUsbOmZeOZIbH+7RNCw -kIWmCVp67dY0CGX03X5YzMKUqTvhY1Y0JIY6D1SUsXB1W6e1qiUNMWrKe8uf -sxA3em28jTQEZTTuK/3KwqLEwf45Ixq2LukzCaVZqKLgvewKsWoij6hOFwvz -oy/d1yHuC9UrLullYfcK/U3+hjT4OmYP3x9iIccuKrNVnwZPvrDge7MszBpb -sP8VgwabMLmQIik2SsiYO81p0PA8O8k2TYaNCX4nebKJTZrGlCPl2LhfP00P -iLVVGj9ZrGKjgMG/6gkbaJBti7b4rMLGFE9lM+H1NAwad0gJ6bHRtTteylCV -hvO81//2385GvhiLjROKZH4tkUwHNzZOvc6xzyU+4RUZyvBg40b1rgFX4sgy -53VzO9kotfLbvYdrSH9qwYXLTNJvwTqv4wo0MBqYrBcH2RizM2ojYxUNbRdU -hJVS2Vj0qvLBhCwNd0E0oP8CGyMDErweE58YnqgrvsjG7TWZ4XHEOlvr4gwz -2Kj+rWBWkDiFx2/M4RobM/d9diN3PFgfuP4psoiNlw0FrcKlaFi58qS+6V02 -ViyYmgPiiYYDFxfeZ+MSo4n1IsQ314JDygM2WhtJtd1aTgO3o6M6p5L00Tlz -5OsyGsrs5Qve1LPx5bTqEEuShjOzvHzpDWxsuHS8woCYWTDgu6OJzOP76JcQ -sdiiSvmeZjamN+RUlkrQsK/K8/zMBza23lS/vJhYSf1yhHIvGwcqPA++FKNh -ti323Y8+0m/7D5vrxC2JbO17/WS9W/l8FHFcp+6A0RAb81XTDmgTt2e+2+00 -TuYT4hy+sZSGtMXiVlELKDQp78jNXELDk7EOr/CFFK4PSxk+RPy9ozA0mI/C -zMmw59uJTcosrzMFKdTW/VdMnLjPJ/KPrTiF9+uOQZoo6W9vJWElSeHpmOQf -YcSbDCTUYDmF1ssKV7sTp4oWuTNkKdyy21R7xfx65bcS+TUUejB3dd0VIffR -raL65UoUGjQLDKcTp6Ye+bZUhcJ7Ls+ORxP3UZKii9Qo1Lhl5mY7vy5pEzCk -TeFdvz0nR4RpqPxPMr5Ph8I7cgrjH4l7f9CXaF0KNxi3/6glNq6Oqn1vSOEZ -G0b0/4h79t1d9TdS+J5to7GNeIlntN5Dcwrz3t2YBmIjiy32JZYUFkr1O2gR -p8h2Hbm1hULKVOfaUuJHi+6lZtuSebYzMnmIu39G51+xp/BqltyqMSEaDF8u -bz3nTM6v6vLrD8TMkq7BZBcKSxXVpv8hPnf1Hu8xVwo1+64W/U3cFbpVO8KT -wg8blavyiEW9pWxCdlL4/L7esqvzeVu7dwftovDaEeWZC/Pfr4494+1Dof6e -y1Q88SMh25ueTAonWqV/RsznTUo9dmFR+MI2bOGB+bzO7mZ7isJKwYIc//m8 -pvt91gEU4t7yZp/5fg9juRhE/u/7v5J3zufftF22aR+FHeUeja7z+eek1+sF -U7goZfAvp/n8yB4zrRAKi/rcpmyJRVglnmqhFO53v9xhTWzgFHdAKZyc/9Ei -Z4v5fGO7pJURFBpKZjoh8VkVmSzpSAqZjZ7tm4krxHofiEdR+DRkZHQTceef -kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= - +1:eJwV1Xk0VlsfB3DzFDKEcEmmGxKZCftnLDOhTMnwnGMos9zHEG+ZkpJooBQV +JSEioq6rKCUhQ2mSufIYDyIN3u2Ps876rH3Od3332mfvs9UvbC/BwsTENI2v +9XtE546/67s7jf9S9Xv7ypCBjGeKtf3My1HA2MLSuocKdc7Jmz9CyYs3nTqx +HWmvOHg1n6Iez/jJdVfTk1rYzTtQrFhEcxd2xrPNzUllr1Gx3InebuyG7oir +vzT6kXp8s1wP9uT79oTYhwNIerNEdS+2xLic53ezj4hn4Vx8P7bNbIJ+VMdn +1Mi6M/ktdtOvyQ30smGUBjNt77DfHBOLrwsdRcyFHVYfsWc4zCcXNcaRvXAH +12dsjlPh7prLE6g6e4ptBFta8MrziIdfkTL3DuNxbHvJ7zdnzKYQe6Vw4BQ2 +WSQrqso1g1Ye1LvNYScpOKQe6phFbAkJaYvYA2J9O6PL5pHlh4D839g0j+Cg +3FMUErfLSmQxYqC5AqZr90IXkJxsfxEnNpesqsC8xhLacb6lQAj7HK1lt4DI +d1S3FhyzGVvmlnuS2vJ39I3UOC2Nrbc9bSbk4QrieyATqYIdqPO5Y9LsFzJh +oYvvwV6kH2HjUfyNmL5LfnTA/t/DDYZKXH+Q5ejgh/3YeaB3J6BjDb0QfpwT +iE0reW4eWcYMmaHUp1PYZc9yh45JssCNgYyMC+t9v3gnnD3FAvfnjSOLsBOU +l2qqQlmBM4b5Z+1637tb5WY12OFN6Mi3Iez33VNNf26wQ8qab+LUen+q3oNf +hAPay387rGCXa9nnqC5zwEziiTIBYwZqbYhjPvyQCxwrxg3NsZdaej9/NeMF +tdH0N3XYQra8AvFNvBAWz5fZhq3eZw58+nxQs+STPoAdPHa/aOcOfgjfHL7/ +J3Y4S4e6Ea8A6NLlXc0RA43LVs6nfhcE7zOZz0axF8l27i5NITBlbl5ewWa5 +M7F1c4QQ1Dc/DOcH3Fdzy94yhhC02HIaGGB7mGXf6xwShho0rHQeu8s/Mkrs +pQjMX1FPdDNhoMFbWZk+XKJwnHFVJRJ7ilF247aFKLD5dcicwuaJHu3d1SwK +BzP8RpqxzVNctHzui8Fq6aEnqqYM1Fiss1RaKA4+moeWNpkxUPH4aoxBtBQE +lRTIilsw0B7X9MGoCiloK3tD18eeahW2rJiQgrGJTD4PbK3i7SIy7tLwbwZB +XcZu9fOuYTfeAmNDLbdlLRmImh3652uyDEjxF3Tu2s1AwiHmtTV2srBveIFR +YMVAE8U8gY7BshB221rgKfaDj92S02mycCSFI2oa28v2QLJisyzwepUtGFvj +fioxe/M15KC77NTwGLbW5K25RDF54IvlCjO0ZSCXgA2q1sMKEN7GZCPhwEAo +xlVj/28F8LwoZGWFrZxaqEsTV4RfMyzJdGymG5qmiU6KcKY2vuwtdsWg5/57 +jxWhvKe2Lc8R78995cckrv8NqtbxBop7cT9zuzeTfkoQm9C+GuLKQDecL35Y +TlQCw2tjkcXYWX7DQ2yXleAdx3+KH7Bp/zvCkO5VgmfxVSZW+xhI8NEVJmcz +ZWCTDDLfth9/P5ozyg/lVKDkjkXCvBsDScqeScoc2w5FMgKVVV4M9OjkotIP +FlVImCgYXMD2WnDvI7eqwun9Dq66Bxjoaqu8kqm3KrDobRH5D1s2oLFn5a0q +DMTC4GtvPN/ycQXy5Q64fV7tPJsvA0lJSpMy7upQkJ9/8irBQNtLonl/Ig04 ++rZIqziMgfxoyUuq9hrQxTqot4CdJ5cz6OOlAUsH+mJNwxmI9frdqmd0Dfhq +OVE9jP3+6qRLTrUG8FtHrspG4vM0z+eKkpwmZBx6zKiKxuubabvDjUMLtvsW +m63GMtC1SHnH+x3aUMLDGWCaykDdMUg3pUQftl6XbZgrYqCt3v32Bw4bQZ3W +Zx3fZgYi1uoqpWIB3LZznKAPM5AY4wGnmJ8prEF/WgD3FIrWNPyYo2wO/R9H +ukM0ppDf9K/nwpMWQF8oPibmPYUqTKM4C7t2g6u045LR2SlUvBj8uPycFZw0 +2jV7uHUKrZhsftWaZAPHHpfwZK9NoU9MrPPDvnaw3DRaoG40jUL/Css+JucA +PBN/khtip1Fl0PPm86mO8KU3Liq7aRrFLYgvqwQ5ge7kcFwJ8wxasrbc13Zw +LzSETyro2c0gfc+zJuNOztB/6Qi31KUZ1CN+JbhV0wUMpnXSeMZmkMTN5Eel +21yhZ9aJx0VnFj0YUra159sHfFxBbl9SZpF031xAzPQ+aK9Nc3fsnUWa58+W +3xjaD0v/FQ282jSHrrAt7MhpcYPfCU8KjxrNoToTtfepDe7A+WBbxMegOZSn +e1LwV5kHaHgf6U86P4e6PpSkaZ7yBInV5sciTXPovl2BfPj/vEDkj4vLk29z +aD7EmSmUdgBEZIxmmIXm0ZKlUuCMmTfMgl9Pm948Kp1+txKlcxC0k3xrPvnO +I7drJf4HeH1g+yXJFxvT51HNPZuDrOk+UCWa8c+XinmkL9nzI+OHDzi9E8vL +7p5HckMB718H+UJEWGVu/9w8GttwyKFg1BeWD8eI1ghSqDvL3n+3qx+8lj2R +q7yDQufohRuOdPtB42VPfcKaQo+a1n74W/nDgnrMFxN/Cm30gnTNRn9gy+eP +ePQPhWQ2tXX99cgfqlb0LTbSKaTeYbeZo8kf3nuEjfti7zX0vD3w2B+0Ujoz +OGJx/l8xL4++8AdFc0NfuzgKSXy6s/H5gD+o3X9r8jqBQvLeYnley/5Qf9sj +ufoYhfR9ZkpTtWiQ0Pxn/PVJCt3Mn4uy16FBcdjfPUKZFNrUSxmL6dHgZhgj +yxl7xmK5r3QXDeJPbIvrwy5WYWLuMKXBFaNK0T78X+ZfFnQXcqLBl5Uq3/Ys +Co2d1uYuDKFB+cdR/twcCjm16fYFhNHghfwHpk7sJiaDQvUIGmyMyn7ClUuh +/Chj7SfRNLB5KXH/KLa9+27f8XgaHFJediXOUahB3r1B5SQNnI8rHFO5QKGs +hwlBD27SgJvY4pSbT6EQjYv69FIavM4ckW/Dtr1dza1XRoPh1uQXq9g8Fydu +11fQwFLAOtX3EoVSIx0n62ppsJJl/Wz7ZQolKMkfuv+EBrsOOgQ1FlAo+OLL +w/cGaZAty8d/r5BCVvwThpFDuL+JxMJn7G2pTHwaIzTInfUs5Sui0ESkdkX1 +OA2sNwUlB2L72hdOV03RYCxY5qfkNQq5sUeF3l2lgZlcy1TsdQrtjpIILxcl +QG1huF6whEJPCtOsczYT8K7P46chtmEHJU+XIEBqcYg9EFtd4eU7M2kCIl7+ +CfsXW/xtvNkHBQLUs75cJG5SiGHwSZRHm4Cu6Madd25R6AxL0b8BzgQYl+0J +2lCG56/Gm2fnSoBgnn6KGnaKJz1Scz8BTUnnCGdseq3j32seBFxuPBJ/CduX +ZD57wY+A5W/EgsIdCmm2+9GeRhAwXiAioFFOobdnFTbIZePnTVcGpSspVIn4 +Ar+eJeBYg1GPPnbK9GJrRS4B7iGTOS7YGlatiXoXCfBICknIwM5i8qfsrhLg +vLNtdg7bMqzoHb2cgMIUU9e6uxSSkjqhY1xJADf3ValO7MX2sFzWKgKmtmnW +jGNfV0R2WTUEeOavWWyqotDvT5+abzQSoLpxgDsMu9ZWsrTzOQHfcx25JKsp +lLnKwn6unQCVm0I31LD9Sid93TsIWPSd4DHHFmBrlBzrIqDiWoPJYezDD93O +/HhDQJhQt00jtpzyhRj5cQLi+d502d6j0Orbo73fJggQCykz8MbuTiXU734l +QMAoNDIMO3FYa1J/ioChwEd7zmK/z+s94LBAgNkro+we7BxOQYs4ZhI6Lxtn +2NTg84D65BnNSkKZtg3pif3lU1lkKDsJUhtyWA9hG9aaF/lxk3D62tPEDOwJ +H/pPa0ESSpgy/mnBFrC1ELIQJuH4I5V9r7F36QopIRESlvlXFgexs/nK92mK +kzDexR71Y3288XO15FYSNOWehKvUUogsKX8uIkeCad1RR13s7OzYzxsVSHCO +c5kzxZ4ghfnYlEio4rMLd18fF94dOKVOQt8N44hk7MY/wkkTGiToPrnldBp7 +/NvQ+SEtEiKntlAXsA2a41r69EhQ+K0bdRt77HCl9L9AAofO6JGX2Pxu8dr1 +piTEXSra14utb7bHttqchGFF/+X32FniI7Ele0gwiligf8N+wHY3u9CaxPvz +P/c57NHZ+Fv5tiTcHMlc/Y6t90yk/7QjCYbv5BNY7+P1rh5hpO8lIchm1osb ++3TBXZbjLiTUm9X/5sceibRSj3HDfa8ZJolj83mL7g73IGHw5MpBaWw9q9ED +wV4kBLLcZZJbf3/L0UxvHxL2cHIfV8F+wGN93c2PhB8+d/zU1vOWRBv20kig +D1uwaq7nDY922ZIknGEf8NdZz+uomrAMJEHY2TdFf71f/dHfEEzCmNswzXA9 +/7r1pl2HSZiv3M+O1vNPi6loh5Kg872FMFnPp4+ZqIWTUDegkGaGzUurdlOK +JCGd+yhpga3rkBgmF03CU/MXHLvX8w1s0qRiSLjmwBOwB/uUwuYrYnQSnFZQ +uhV2ncB4jWAcCX+JBgdYYw//rG7fkIDHM05w2qznf0kcZk8kwWXX5YB16/TY +rKwlkXBW+nr6uv8PcRAcMg== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + "PlotRange" -> {{0, 180}, {0.8511723715504647, 1.1692614839720685`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5012481131960849}, + "AxesOrigin" -> {0, 0.8511723715504665}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7668,7 +13942,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5012481131960849}, + AxesOrigin->{0, 0.8511723715504665}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7696,7 +13971,8 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5012481131960838, 1.8440472181603567`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.8511723715504647, 1.1692614839720685`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7704,9 +13980,9 @@ kgbhGApH2zwvGs/nf4/r5IujsKczo8aIWP+t3e+5eAr/i74TPe//A96dwq8= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991342629715925*^9}, + CellChangeTimes->{3.991342629715925*^9, 3.993828287444335*^9}, CellLabel-> - "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] + "Out[233]=",ExpressionUUID->"6539f510-e815-4783-91a9-41d399ce3e3b"] }, Open ]], Cell[CellGroupData[{ @@ -7769,156 +14045,164 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991849950722357*^9, - 3.9918499540026855`*^9}},ExpressionUUID->"1ea503b1-33a1-2744-a92d-\ -2e1269faf5ed"], + CellChangeTimes->{{3.991849950722357*^9, 3.9918499540026855`*^9}}, + CellLabel-> + "In[234]:=",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.03396961278019`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.6412715238909923`*^-274\\\", \ +\\\"1263377636044591724886240423994982400000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 234, + 77, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993828287577403*^9}, + CellLabel-> + "During evaluation of \ +In[234]:=",ExpressionUUID->"91340e37-f708-40cd-af2f-ef90634293ed"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.692613941112965`*^-287\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 234, + 78, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.9938282875856667`*^9}, + CellLabel-> + "During evaluation of \ +In[234]:=",ExpressionUUID->"c50169e1-411e-4ed7-b08a-172cf7225ff1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.556876457482103`*^-299\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 387, - 405, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299467087`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 234, + 79, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.993828287591469*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 387, 406, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629956772*^9}, - CellLabel-> - "During evaluation of \ -In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 387, 407, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991342629966284*^9}, - CellLabel-> - "During evaluation of \ -In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], +In[234]:=",ExpressionUUID->"b80fbc03-db4a-4d85-be27-6929d20a5171"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 387, 408, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913426299753895`*^9}, +during this calculation.\"", 2, 234, 80, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913426299467087`*^9, 3.9938282875985394`*^9}, CellLabel-> "During evaluation of \ -In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], +In[234]:=",ExpressionUUID->"fd564080-48b5-4d32-82fe-2aef53ca1f77"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8Fe0XAHAtpEISWbK7d+6172S5nVOobFmi5E0LkdCiUJIsZaubUKmQ +pYQ7k1S/pEiJSBQqWUukvIUs2euV3/TXfL6feeb5PHPmnPPMo+R50Nl7Ph8f +n+g8Pr6/18mul88ZZ3PXrBJW6jzjbrCmOVMqdG1bNPh41PHdosQAJRo9pdpS +YPG7N5LRlDKEOJKtC9quw0h/zQ9fSg+WD0mmzLTegzcF16NtqXXw6fGmg+Ot +lcDtDQqeIZ1hPaP/42jrW2iuL5Kt4nnCTKvxpZHWz2BWI+Y7lnsYqizyc99c +H4MKMx7Tf+spkP30qM9TYxaMC7OtauK5IB6wk1xksQCp12XuYrwUSNFdX7bJ +VRBHhKqQWncZ2q/oVIyKCmO106zdPI90OJsb0ThfejkGCRcQAslZIHmxN+HC +tRU4Ai+mBYpzIM7Fes3bSQn0GtVytfa4AUdMcna+jJbCQ1KNbT/ncsFy+Nfx +A70y2CotsvqGRx5EmTvtllkth8bh8lnG3HzYuCPzp/E6OfzY90tqLikfRCIH +TrnayWFgUVpi1aV8yKiKyUvaJYfTRUsCLLLy4aFN6YBAghwWu8l+k7+XDyNu +KiFj7XLYbZhBWrbmw47giTOvwuTxVKpcvrVCAZjevnr/5FMFVGlQWqCVVwCW +rQ2zQ7UKeCisdvAHrwA28S3csPOtAroni6tThQXg5XygHb4q4C03s5tyxQWw +PkwpIpJfESUT9M59riqAQwqTN9aqK+L3xAapwe4CeL4360dViCIGzyvPmpXi +gfV/JmInwhSx16B4aq8sDxqSmo0MIhXxlpbG9UYFHrQ/WhyZm6CIu6UCh1IJ +HgwtDRKLyVDE6zv8vfgNeCB1Z6Px+kpFdJ6zf7R7Ew8Cpkcja4WV0O7O+T+S +UTwwDfRZ2SemhC4Dq4oPnOaBYH8HtUBKCa2KP1lVxvHgZmdVyxplJTTUUZvc +mciDrieXNIqNlNCp6n8pwek8cIgxacvZqYRdLmPPFxfzQE8sSjvsrhLm3B0I +bfnKA76zE8+vPFDCNSdnkmq/0etf4Of+oEwJPxGbT5cM8MB/wjlmtFoJrzlu +4eOO8iC3jdG5t0MJE/bfd1w2y4OVWbWxLguUkZt8eX/EChJm1EW7NF2V8eJe +50SBNSRMXpOJ0ndXxpBEpah4JGF8GZNhslMZG0bKAxdZkDA0ZuJnuU8ZXYJE +7P/bQMLnMq9J93BlvDQ0O/LMiYQ62xKR+JvKqNjqJVm+h4Q0/x3weUIZf5ak +WwXFk3D5o+/nf38p46HqGqfUMyRcdDgS82NOGc0JO89iLgmJ+vH104tVcGT2 +n+T+JBKif9/dukxeBb26fLV0r5Lgf5b/kPl6FdyV9jRDm0eCOXUrOzVVBR1F +YtTGakjoVKSyrNJV8Fb1xfHLtSQcT+Vljmep4EzYPC3TOhJKovIynHkquE92 +ZDjkNQl6btlXRB6rYN059ZI370hQ5b+YFNujghHihVyhbhJqj6ecN+xTwX8v +M/3je0jwGUlK/NKvgs3LlMrn9ZKQ23mOu25cBae7Sh4PfiVB8V5c/B8BBjqF +rNLLHSBh5c6wyBANBubk3ja4OklCcXNoBFOXgfW9bwMGp0hwsTl2stmQgbft +58txZkhIMQw+oQcM/Dlwt6/lNwnCQgePDTkxsGDLfdYgHwULH3ke8jnKwGSf +iNxrSygYFbPZtaWSgeVf9jyRl6WgLUC5ye8FA7cfCHI3lqOgouYXRLxi4FGm +raC9PAVJxymFghYGvlsvnH5QkQKdz0KfZvoZeMLIlJfMoODA3UaPayuYqK9/ +6pW1BgVblha8vivFxO/PAkv1NSlY4x3JqZFjoriOxzMZLQqEpXXlhln0eMZi +2W5tCm5FpnxAcyZa/e/r8o36FPQ7uP7zZQ8Tayqr/c6ZUPCWp1k/vY+JZ5JS +lKxNKShdIGAmfJCJ0WnCM/PMKEgoeSBjFMpEa/ulQv7mFLAVpDrizjFxaY1q +kwxQIBo6Yp2RwsS4yn1pT2lPv619dOcyE6+NeiTsRgpqY0OvtucwUaj4QGvG +Wgr2DnW4qT9g4iXTzHWjFhRs2vi/WihjouvUN4ywpMDo+tnVLhVMLApa6rvE +igKBLeZS4XVMlGP/1JNaT0Fe+bXWhi56fknpuuUbKUiUDNnQ28vEKPtRuQTa +IYGbSqa+MTFsoidzlrYVcy5VcYyJsVGGal3WFHzh7tpyeBGBHm8+BIfb0vHt +11DWESIwS17iayvtqQ0zP36IEhivaP1Z246CJQtSYvbJEHjUNDC+jfbFXTuc +WAoEquTa6anaUyD3RE3uqwqBh71/+h+lrRNadX+XJoEJpgeThDbR8Ww5Hymv +R+CijTonNtO2MNhu98GIQIvs8zOXaW8ZHu/digRaVfNR0g4UdNs9K5KwIjBC +a+7TFtp+5Lmwd9YEzskEFyTTDvcmVjhsJnCjY+7EHG2Bqp9dQm4E9ry1C9N3 +pPNJ8SlZt53ApXa2qXto53ZuXbfeh8AmlkbiU9paJgyRhf4Emm7nC/hOuyR1 +pP3ZQQKD1ER6RJ0oqHNKCOSEEphbWZ7iRtulyJXzO5zAXyObm47R/iikvPhR +NIGno4TyU2n7+A01h8QR2HvYU/Ie7ZEXpdkGXAINJN4o1dM+zowL+JlEYNfi +5poe2gtObV595xKB/hb/CkzS5nYrLDyQRqAbf9znRc4UrFwz2KieReBIr7a7 +JO3s9Ifp328QKPN8xwEGbdWZ03vzCwjU7UxS0KZ9b4uTvnchgW23LQ4Y0za/ +LzenfI/AavEJdw7tmuX9dd0PCMzTU+lD2o4HH6RmlhHYF24nuo52x6toz+0V +9PcuG27/e99LzUFLpprAmbmzFn+fH4xb9av1JR3f29n2f+cP+fpv9aUGAvnC +Cqe1aPNZ3E/e/I4e761n9Xd9Z7IjPZa30flRUaT/d/3if+xUGz8Q6MfOe/73 +/a79Iz3B7SFQgps6PUG/P/Hoa4VNH4E5xPymv/G5s/IeV3CAwAtRfrZ/42ca +dNKtZpj+3kFO/n/jW/XGhnF6nMBXKiY6l2nbaUuOrJ0h8N783LRQ2i3c3rK5 +WToeTeLUNtq7+oviyuez0DFdxNOY9vcNJzaHLWKh4mPxCjHa/82XGJgUZWH5 +N5cjlXQ+xO7qeXBfgoUjrMsvU2kve1IYfViGhYMqk7W+tJVD18sMqbDQb06u +mp/2rRaxPorNQo0jo5VNdD4aGXy6u0+Tha31k/5XaVsPH7X+asRC0QtFz1Ro +y+rKxwqaszDwBkuhm87/ocPPK9XXslDc3q/yKu2Lk6Lmh21Z+Gwx38eFtH1W +lxy75MhC6YBbrg/o+jI57lH80JWFpfwtK71pd83ytOZ2spDo3hpcStfnHXD0 +V/Zm4Y4sIfHdtE9FTeZb+bFwdcrU7ELabH4LJW4QC8t8NB9Y0vV+WOjDCukE +FlYJbK+/QfcHy03RjuaJLDTpnN9qQFsyiX1u5wUWNt/bo19F95PHK4IF8q7R +8dRV6WndQNffKpEZvXssTLdnMnrofpWmil12nSysd7XrO0L3uwD/PplD3Sxs +2Cfm3EH3Qyjkbr3wlYX26X3Sa2h/0Wlvah9moZteesXsGro+Vx+u8lnIxr0P +Q0560P22an1uQaQmm94/DHZmGVGQGm/z9YYeG0/9Fu/tNKTAt25E6YUxG1MU +ixskaIts4qQLr2NjpbBmdxTd791cW86lbWGjlMBHPjMdOp+9BI/cj2BjIhnQ +o6tKxz/TsvzpaTY2nliUZM2mYLg9clF9AhsfXfj5cgeLgp8OM+k9F9ioaZf5 +OYpJ90ez/uciBWz87Z5ZRipRMF/81cp9TWzMx/dFcdL0fugguDvoPRsD27/4 +HZOigP+MJRXRwcaIJb8f+0hSIMhXDqlf2Ehu0Fc1l6DXO1joWzXNRmGJW0Z1 +ohRIPz9fKqekimcuh74+sogCmbn6haqEKvIaM53XCND5YyroYKCuitWHXx0X +4KdA/k5kr42hKnI9bEvOz6eAkREodMxaFUPm6UzGzJKgE7R5x9tAVSz0NDee +P0bS5wHJ+XGVqrhAulAXPpDw3XNDgdkLVWT4WHu3d5DAzTm6aaReFff+HM8K +bCfhnXxb2rb3quj7Q0gzo4WEXdJX9TW+qWJwi+PD9iYSQkVWeb8RVsMTr60Y +U89JuDUtX7tqmxqKtBl8eUqR4GDscKDJQw2LGvzMZUkSfgZHiMd4qmFjevad +kAISTMY+7RryV0NP2+Jh5k0San5kz1ScVENzOe3O/ZkkfPqsrO6Tq4aZfnaz +N+j/L7HXROKdYTWcfJbNvH2EhD/DOjfrxtXwQ9CK3rxAEvrFzB5/mVHDo2mC +UdcOklDp5tAvtVAd2d1Tu0/7k3Dky9H1UVLqOJ2+p2m1FwnNv2v/OK1Vx9dP +vqlwnOn/QTX/g2Mp6tjJ3/D2kRYJsvFFjkZGGqjY1bixuIcH5O3CqhlTDdRY +1Kjj9okHq99TRuWggY8nWw7NfOCBi3KBrKW1BnbM+/XbqI0H3MfZ35y2a2CZ +xK7NmQ08+D2SHLk/WgNFfS4VypfxoGNb0J3cBg00ibxmO5DCgyvqJqIr9mqi +1d2NTl0cHtTJrDUcS9bCPoZHq2csfT6RrUzSbtHGncd388nx6PPPgutBu6N1 +0I/ryz9UmwfyUQrm2whd/E/I0ken5iYsZm5/4PxCF1+qV+bcLssFLY500VEP +Pdz6uvrYYOkNONwlVmXDp4+9g6rR2ZnXYXiM62p9RR9j4rMSvVNyYIN2TZq1 +pgF6fPxVKXE2G56Mmf2eajDAFdN+JzO6MuGAhl7HG29DNLiZH1DYnAGcoT3N +2xYbYW+MeY8clQZWDCl74etGKB2iYdtz/wqwI88cqzQ2Rvcd9/88a0sFNW+T +p8wOY5RM/Ye/49tF8H7ie/p+4Gr8frPWcJn2BXia3bxnVMIEp6R9bz7xTYbx +grkp7RITVD0WWs+fcB68mNTiNHtTPKE7pLexgAujaheM7o2Y4pP99QOJ5Qnw +MPd3z0S8GXY6SOrbGcaBu6UKmsmb47cz80qF/z0Nq/bHPdKqMMeOti4nmyvR +ILEk4K79Vg5eaWoU4mRGQq5F+PGRbRz00hNj1V2KBL3wRIsL2zkoltkf634u +EjaN3HnftpuDe6enxWNOREJsy8SMVwAHTawebpv3TyRMX49YdzyKg54yi/9c +koqEDrML7/IoDuZIPaveohEBvsG5Gda36fGv781D2QiYvF3sPXiHg2kpljna +QhEgptw2pfuAg7uTNQSUB0+CraCcbHkFB9WeqVlsvnUSHjfn7Xn3noOdnPe+ +fZonwUbkoWZIGwcpQQdLQ/mT0Lbh5aRUJwdthooPnBE5CeOlA/E7ujlYbbuE +2jAcDpo5OoXf+zk4RHzPEL4bDo871oZwf3CQwx2oS8wJBxvxzaA9wsFsS1vO +ypRw8IkLfhM0wcHYsKbvxkfCYbwiNk1ymoN2Z22V3nqFQ/Svy16lvzgoKNZ4 ++bBLOIga8DQ8ZjnoErvQTtoqHDL3l07MzXHwdttF8xrDcPg/SHGuAw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7932,115 +14216,119 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV13k8Fe0XAHAtpEISWbK7d+6172S5nVOobFmi5E0LkdCiUJIsZaubUKmQ +pYQ7k1S/pEiJSBQqWUukvIUs2euV3/TXfL6feeb5PHPmnPPMo+R50Nl7Ph8f +n+g8Pr6/18mul88ZZ3PXrBJW6jzjbrCmOVMqdG1bNPh41PHdosQAJRo9pdpS +YPG7N5LRlDKEOJKtC9quw0h/zQ9fSg+WD0mmzLTegzcF16NtqXXw6fGmg+Ot +lcDtDQqeIZ1hPaP/42jrW2iuL5Kt4nnCTKvxpZHWz2BWI+Y7lnsYqizyc99c +H4MKMx7Tf+spkP30qM9TYxaMC7OtauK5IB6wk1xksQCp12XuYrwUSNFdX7bJ +VRBHhKqQWncZ2q/oVIyKCmO106zdPI90OJsb0ThfejkGCRcQAslZIHmxN+HC +tRU4Ai+mBYpzIM7Fes3bSQn0GtVytfa4AUdMcna+jJbCQ1KNbT/ncsFy+Nfx +A70y2CotsvqGRx5EmTvtllkth8bh8lnG3HzYuCPzp/E6OfzY90tqLikfRCIH +TrnayWFgUVpi1aV8yKiKyUvaJYfTRUsCLLLy4aFN6YBAghwWu8l+k7+XDyNu +KiFj7XLYbZhBWrbmw47giTOvwuTxVKpcvrVCAZjevnr/5FMFVGlQWqCVVwCW +rQ2zQ7UKeCisdvAHrwA28S3csPOtAroni6tThQXg5XygHb4q4C03s5tyxQWw +PkwpIpJfESUT9M59riqAQwqTN9aqK+L3xAapwe4CeL4360dViCIGzyvPmpXi +gfV/JmInwhSx16B4aq8sDxqSmo0MIhXxlpbG9UYFHrQ/WhyZm6CIu6UCh1IJ +HgwtDRKLyVDE6zv8vfgNeCB1Z6Px+kpFdJ6zf7R7Ew8Cpkcja4WV0O7O+T+S +UTwwDfRZ2SemhC4Dq4oPnOaBYH8HtUBKCa2KP1lVxvHgZmdVyxplJTTUUZvc +mciDrieXNIqNlNCp6n8pwek8cIgxacvZqYRdLmPPFxfzQE8sSjvsrhLm3B0I +bfnKA76zE8+vPFDCNSdnkmq/0etf4Of+oEwJPxGbT5cM8MB/wjlmtFoJrzlu +4eOO8iC3jdG5t0MJE/bfd1w2y4OVWbWxLguUkZt8eX/EChJm1EW7NF2V8eJe +50SBNSRMXpOJ0ndXxpBEpah4JGF8GZNhslMZG0bKAxdZkDA0ZuJnuU8ZXYJE +7P/bQMLnMq9J93BlvDQ0O/LMiYQ62xKR+JvKqNjqJVm+h4Q0/x3weUIZf5ak +WwXFk3D5o+/nf38p46HqGqfUMyRcdDgS82NOGc0JO89iLgmJ+vH104tVcGT2 +n+T+JBKif9/dukxeBb26fLV0r5Lgf5b/kPl6FdyV9jRDm0eCOXUrOzVVBR1F +YtTGakjoVKSyrNJV8Fb1xfHLtSQcT+Vljmep4EzYPC3TOhJKovIynHkquE92 +ZDjkNQl6btlXRB6rYN059ZI370hQ5b+YFNujghHihVyhbhJqj6ecN+xTwX8v +M/3je0jwGUlK/NKvgs3LlMrn9ZKQ23mOu25cBae7Sh4PfiVB8V5c/B8BBjqF +rNLLHSBh5c6wyBANBubk3ja4OklCcXNoBFOXgfW9bwMGp0hwsTl2stmQgbft +58txZkhIMQw+oQcM/Dlwt6/lNwnCQgePDTkxsGDLfdYgHwULH3ke8jnKwGSf +iNxrSygYFbPZtaWSgeVf9jyRl6WgLUC5ye8FA7cfCHI3lqOgouYXRLxi4FGm +raC9PAVJxymFghYGvlsvnH5QkQKdz0KfZvoZeMLIlJfMoODA3UaPayuYqK9/ +6pW1BgVblha8vivFxO/PAkv1NSlY4x3JqZFjoriOxzMZLQqEpXXlhln0eMZi +2W5tCm5FpnxAcyZa/e/r8o36FPQ7uP7zZQ8Tayqr/c6ZUPCWp1k/vY+JZ5JS +lKxNKShdIGAmfJCJ0WnCM/PMKEgoeSBjFMpEa/ulQv7mFLAVpDrizjFxaY1q +kwxQIBo6Yp2RwsS4yn1pT2lPv619dOcyE6+NeiTsRgpqY0OvtucwUaj4QGvG +Wgr2DnW4qT9g4iXTzHWjFhRs2vi/WihjouvUN4ywpMDo+tnVLhVMLApa6rvE +igKBLeZS4XVMlGP/1JNaT0Fe+bXWhi56fknpuuUbKUiUDNnQ28vEKPtRuQTa +IYGbSqa+MTFsoidzlrYVcy5VcYyJsVGGal3WFHzh7tpyeBGBHm8+BIfb0vHt +11DWESIwS17iayvtqQ0zP36IEhivaP1Z246CJQtSYvbJEHjUNDC+jfbFXTuc +WAoEquTa6anaUyD3RE3uqwqBh71/+h+lrRNadX+XJoEJpgeThDbR8Ww5Hymv +R+CijTonNtO2MNhu98GIQIvs8zOXaW8ZHu/digRaVfNR0g4UdNs9K5KwIjBC +a+7TFtp+5Lmwd9YEzskEFyTTDvcmVjhsJnCjY+7EHG2Bqp9dQm4E9ry1C9N3 +pPNJ8SlZt53ApXa2qXto53ZuXbfeh8AmlkbiU9paJgyRhf4Emm7nC/hOuyR1 +pP3ZQQKD1ER6RJ0oqHNKCOSEEphbWZ7iRtulyJXzO5zAXyObm47R/iikvPhR +NIGno4TyU2n7+A01h8QR2HvYU/Ie7ZEXpdkGXAINJN4o1dM+zowL+JlEYNfi +5poe2gtObV595xKB/hb/CkzS5nYrLDyQRqAbf9znRc4UrFwz2KieReBIr7a7 +JO3s9Ifp328QKPN8xwEGbdWZ03vzCwjU7UxS0KZ9b4uTvnchgW23LQ4Y0za/ +LzenfI/AavEJdw7tmuX9dd0PCMzTU+lD2o4HH6RmlhHYF24nuo52x6toz+0V +9PcuG27/e99LzUFLpprAmbmzFn+fH4xb9av1JR3f29n2f+cP+fpv9aUGAvnC +Cqe1aPNZ3E/e/I4e761n9Xd9Z7IjPZa30flRUaT/d/3if+xUGz8Q6MfOe/73 +/a79Iz3B7SFQgps6PUG/P/Hoa4VNH4E5xPymv/G5s/IeV3CAwAtRfrZ/42ca +dNKtZpj+3kFO/n/jW/XGhnF6nMBXKiY6l2nbaUuOrJ0h8N783LRQ2i3c3rK5 +WToeTeLUNtq7+oviyuez0DFdxNOY9vcNJzaHLWKh4mPxCjHa/82XGJgUZWH5 +N5cjlXQ+xO7qeXBfgoUjrMsvU2kve1IYfViGhYMqk7W+tJVD18sMqbDQb06u +mp/2rRaxPorNQo0jo5VNdD4aGXy6u0+Tha31k/5XaVsPH7X+asRC0QtFz1Ro +y+rKxwqaszDwBkuhm87/ocPPK9XXslDc3q/yKu2Lk6Lmh21Z+Gwx38eFtH1W +lxy75MhC6YBbrg/o+jI57lH80JWFpfwtK71pd83ytOZ2spDo3hpcStfnHXD0 +V/Zm4Y4sIfHdtE9FTeZb+bFwdcrU7ELabH4LJW4QC8t8NB9Y0vV+WOjDCukE +FlYJbK+/QfcHy03RjuaJLDTpnN9qQFsyiX1u5wUWNt/bo19F95PHK4IF8q7R +8dRV6WndQNffKpEZvXssTLdnMnrofpWmil12nSysd7XrO0L3uwD/PplD3Sxs +2Cfm3EH3Qyjkbr3wlYX26X3Sa2h/0Wlvah9moZteesXsGro+Vx+u8lnIxr0P +Q0560P22an1uQaQmm94/DHZmGVGQGm/z9YYeG0/9Fu/tNKTAt25E6YUxG1MU +ixskaIts4qQLr2NjpbBmdxTd791cW86lbWGjlMBHPjMdOp+9BI/cj2BjIhnQ +o6tKxz/TsvzpaTY2nliUZM2mYLg9clF9AhsfXfj5cgeLgp8OM+k9F9ioaZf5 +OYpJ90ez/uciBWz87Z5ZRipRMF/81cp9TWzMx/dFcdL0fugguDvoPRsD27/4 +HZOigP+MJRXRwcaIJb8f+0hSIMhXDqlf2Ehu0Fc1l6DXO1joWzXNRmGJW0Z1 +ohRIPz9fKqekimcuh74+sogCmbn6haqEKvIaM53XCND5YyroYKCuitWHXx0X +4KdA/k5kr42hKnI9bEvOz6eAkREodMxaFUPm6UzGzJKgE7R5x9tAVSz0NDee +P0bS5wHJ+XGVqrhAulAXPpDw3XNDgdkLVWT4WHu3d5DAzTm6aaReFff+HM8K +bCfhnXxb2rb3quj7Q0gzo4WEXdJX9TW+qWJwi+PD9iYSQkVWeb8RVsMTr60Y +U89JuDUtX7tqmxqKtBl8eUqR4GDscKDJQw2LGvzMZUkSfgZHiMd4qmFjevad +kAISTMY+7RryV0NP2+Jh5k0San5kz1ScVENzOe3O/ZkkfPqsrO6Tq4aZfnaz +N+j/L7HXROKdYTWcfJbNvH2EhD/DOjfrxtXwQ9CK3rxAEvrFzB5/mVHDo2mC +UdcOklDp5tAvtVAd2d1Tu0/7k3Dky9H1UVLqOJ2+p2m1FwnNv2v/OK1Vx9dP +vqlwnOn/QTX/g2Mp6tjJ3/D2kRYJsvFFjkZGGqjY1bixuIcH5O3CqhlTDdRY +1Kjj9okHq99TRuWggY8nWw7NfOCBi3KBrKW1BnbM+/XbqI0H3MfZ35y2a2CZ +xK7NmQ08+D2SHLk/WgNFfS4VypfxoGNb0J3cBg00ibxmO5DCgyvqJqIr9mqi +1d2NTl0cHtTJrDUcS9bCPoZHq2csfT6RrUzSbtHGncd388nx6PPPgutBu6N1 +0I/ryz9UmwfyUQrm2whd/E/I0ken5iYsZm5/4PxCF1+qV+bcLssFLY500VEP +Pdz6uvrYYOkNONwlVmXDp4+9g6rR2ZnXYXiM62p9RR9j4rMSvVNyYIN2TZq1 +pgF6fPxVKXE2G56Mmf2eajDAFdN+JzO6MuGAhl7HG29DNLiZH1DYnAGcoT3N +2xYbYW+MeY8clQZWDCl74etGKB2iYdtz/wqwI88cqzQ2Rvcd9/88a0sFNW+T +p8wOY5RM/Ye/49tF8H7ie/p+4Gr8frPWcJn2BXia3bxnVMIEp6R9bz7xTYbx +grkp7RITVD0WWs+fcB68mNTiNHtTPKE7pLexgAujaheM7o2Y4pP99QOJ5Qnw +MPd3z0S8GXY6SOrbGcaBu6UKmsmb47cz80qF/z0Nq/bHPdKqMMeOti4nmyvR +ILEk4K79Vg5eaWoU4mRGQq5F+PGRbRz00hNj1V2KBL3wRIsL2zkoltkf634u +EjaN3HnftpuDe6enxWNOREJsy8SMVwAHTawebpv3TyRMX49YdzyKg54yi/9c +koqEDrML7/IoDuZIPaveohEBvsG5Gda36fGv781D2QiYvF3sPXiHg2kpljna +QhEgptw2pfuAg7uTNQSUB0+CraCcbHkFB9WeqVlsvnUSHjfn7Xn3noOdnPe+ +fZonwUbkoWZIGwcpQQdLQ/mT0Lbh5aRUJwdthooPnBE5CeOlA/E7ujlYbbuE +2jAcDpo5OoXf+zk4RHzPEL4bDo871oZwf3CQwx2oS8wJBxvxzaA9wsFsS1vO +ypRw8IkLfhM0wcHYsKbvxkfCYbwiNk1ymoN2Z22V3nqFQ/Svy16lvzgoKNZ4 ++bBLOIga8DQ8ZjnoErvQTtoqHDL3l07MzXHwdttF8xrDcPg/SHGuAw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.053361954202269676`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8052,19 +14340,19 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.053361954202269676`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8078,114 +14366,118 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VP0XAHBSIgwzdwYJyZplVCpS6hyUskRKUm/RYi1LUcSQLWtIiexL -FCWhV9aZO4oiKS0qUmlf7GVXXr/7++s+n+fe57n3fM/3nPO9yw777HSZJyAg -ICQoIPD/68T7h82q5y5tWlBabbp3j8WmzlzZQOMuX/hxWEq4XnM5IKvjsGxX -BARur9wVqbkO/HfceC3UdRE+SdUNHtTcBvQhmYvTr6+ASMKTmNWaDtDLtfYZ -e30bHj4eW3RzuTuYqfa9+/X6HqSKu8BV9dMw/dogdeT1cyjYImB2WTEWmkyL -i55d+QyN5y1a5s+mg3xv3bfDOoPQsvtF+aTzFWB6Ot1YaDoKwuauVpWzxXBx -lVmD9e4pcIswnCp4WAbd6Ssbf0nNQkBKce2GE5Vwrii0Y95iQdRWe7QqSLAK -ZC59jkvJEUKtP+F20lbVEGNnvun5xAK0iLlJX2xQC36GBU4PI0TQinfUxXhR -PVjk08YsE0QwZSKFlihVD8oLg2OfpIog62RHV6d0PTzttK98USKCnYUhTxxU -6kH3uLjQ+yci2PZ5aKWeUT38uBZw7becKGodF3LT8qqH/UzrwSX/iuIildbj -7PZ62Dw8E+T9eRHmGR5973amAQK3XdK6O7AI3afMGnIiG+BWAfsNMbEI13zQ -b+2IbQBZu4OGdSJiyA7ZeWJ5SgMM1N6fFNIVww3P6qZLixsgJSL5ZMZpMTT5 -uLziT0cDfGKpezdLiGNu9d+tXAUuyPjwFWRkxNGhmMcNUOaCVavDYw8lcQzr -tPhnhQYXqoPO6UiuFsfutvWslJVciO8d6dvrII57z9Sc1jHlgt71BrfhK+JY -sFD98zU3LoQb2R6SWyeBUVm1mXVlXNjmmPvbwEQCd7xV87K/zQVaWH/kbisJ -FBEaqRmq5kJ2U9S15IMSGC90vJreyIVai/p+4TgJlDdabb/sORdGHFT8R7sl -UDPYSMFtnAuOp8bj2zk0THIe+Jmwjgdql03k+6JoaOYo8zDdiEfFf75sYTIN -L2wJWZaPPAj6q/nUpIiGkeWHNxVs40FqpCOrrp2GKwMrtb0ceNB+oSXvqoIk -3hJY8Es7gAfrb2VUneFLogz/j5lZJQ82v34yO9QqiQ6Xd7Ciq3hgLTB/q9Nz -SXRNCZq8W8ODIzu9u+GrJP49IzPFJnlgxlkWGrZACj0a1EdetfHg+NKJQmNt -KRTf/qXf8zMPmt3yBpv8pTCp5ib/Bp0E87+GjGCOFCZ8mAr0YpLwJLlTf00Y -9fz8PzY6MiR014mGFcVJ4Rqw25ErT8KQ2ElGVLYU6gwM3NilQYJsxTYDs3tS -GPxyiDbfiATPqV9hrRJ0nLz3czzkMAnrT7hKf2PQMfrsu8RxZxJE+t6UCsnS -cZPT9nx3NxKu9jS92qRMx9pjN/SNPUl4T6bq3NGno+3qlwbcUyTYRBl2FTjR -kfi8VehNDAmK/5V58Z3p+NHbJEI0noQBf2Whdx50NO52OLsmgYRYdzFd2ZN0 -tFmnzgxJJqHR8l1kUiwdG9ak+3alk6DHCF/BqaRjZVV/RW0JCQLnxpvTq+n4 -SvdpSf4NKn6ho/uqG+gY+TSYffYmCcfGd0b9uk/Hb6W83o0VJBR1qfa4vaFj -Ro3ADKeGBOm81mg7IQY+qZvIULlPwheZjfK+IgxMWr2xrPkBCbeTKyvPSzDw -KHd2z6FWKp6IzLdtMgxsOMf1T3xEfa+Lp56xDgMzYlmDFc9ImNaWes/ezcDx -jSlOau9ImMiRC1+9j4FbFSRHA9+TMCappmroxECDi1o723qpfIwaHt3swcBB -dVV/x08kfGo4MrEvhIFrnc572H0noZftnXEwgoGEsI93zA8S3uadNnKNYaA6 -PN5c/ZOEV5GJEScuMNCIu8Bj4QAJbZY1tNirDBT0yCwKGCGhhXe3MvEGAycm -syzifpHQvKLdLqWcgZVJq1vTfpNAEh8zc+sYOKlkvP3qGBVvzyKNO48ZuMet -/VLyFAmZxxzh0zgDw+9rtufPkXD5nfun7zMMNJO4anFcgA+XbPyiBucY2L70 -XNkGQT4krY59NCVKoHh8n8qDeXyI+FO5R1KRQP8Ej77rC/gQ6sWdYaoQ+Mqx -pNBBmA/BvQ9y5JYTOOEvsU1oIR/8m3o+q+kRaDZVs9tKhA/Hzi04bmRGoEpT -fXbZIj64z0oSJpYEzgXvbNkgxgdXH7nqrTsIXNQu8OU+5YO7VvzduY/ATe3L -Jx+L8+HAfcM8BycCv+9yH7aU4MM+g80mjs4E3pe3eHefst2SvbEe3gTmT8Xm -lNH4YJt4RNvHj3q/ze0TSyT5YD3n9eTkaQKDvKQhivK2zxHMsAgC91qtfGgl -xYctuxNromIIDLlVG3ODsknL5X3nEgg0kFtmOp/OB6PSm/lpaQReEcCqUso9 -SqV5W7IIbPJaZTNGOSjteu5YHoF69b98DBl8kBUvySksIlBqg4kMh3JN+LXs -ndcJdHr7ZUsdZfvJoizBWwQWK2X/HaU85lmYWXGbwAIlbSNtgg96DvnpNC6B -Bwp7Hc5TfvY49zKvkUAX0yQDLuXjpjlpnvcJHOtSv/KVsmRdVuqSNgJDXX0y -xJh8uKWbeantCYF5EbqKupS3F6WnBL4gsHSP9qrtlAcWX764vItAj0L2C3fK -8edTL7x+S+Ct6tn54ZQ1F1xKjv5I4IJTzi2plFuDLp5f+41ARzvtJcWUXUeS -k770EVi+X17wDuUFrucTU4YJTNGYF8SnXNSTmGAyRuW3tzj6AWVT24Rzv6YI -fG/crdFG+dOD+Pj8WQLrMw47/t/hRnFxNvOY6Nwspd1CWel2TOx/wkxM161M -aqTM14iOKRNjYnYnPb6asmPO2ej9Ukz8YyyoeJ3yX0ZklBiLiRIXrC3TKWfF -hp+tX8zEhqMPGWcpr/8vNNJDkYkiwianPCl3+Z2JkFVhYqtGnJ8t5YCfweEt -GkzcpnyctpqytBMnzF+HiR87W83olO90BoaqrWJiZamLwgC13nYWp890rmXi -mrzFKU2UR/n+IZHrmTi0urbkMuWLa08F6wEThYNYTu6UV5X6cT6aMnFOXLhm -LeWnSr5ByduYaEY4Vc5R+ZcQ9zk9ZMtE1daC5DjKN8O9AnLsmagZsC7AnLLF -5DF/q3+YmJtxQUiYcuwn95M3nKl4lvVLnaL2n4aDm99eDybWdGSnaFB+8NjF -V8SbiSln/fivqP08v+7wcdcAJjYem2JpUy7UPeTDCmbiRbX9Jk+pejApcvJu -DmPim1GbJb6UQ8/v91SOZ2JAkcOrUqqeZlzs3d9nM3H26LK4SaoeM3rs3BIL -mLhzxVq9CMrrbHe5Gl1j4tv1rUmilP2NdjhnllM+P+hCo+r5F8PioP09Jirl -9xSNUP2gy1P56dEWJhqraN+xo9z4YAZC26n10fIeqKL6R3JQ6dKSV0zUf7m/ -04PqLys/ifdO9zExPvnr9atCVH0ZfbWmjTDxgd1Lej/VnwTSeKTyOHU/7dt1 -Hcod5t65lnNUfiLoPkVUf/Ou7DiQQ7BQbJWWt+ssCfZiJY8rZVnI2XMvIPEv -CZtcwjY+UGBhkNnL+oo/JEgsXqUwrMHC0/dUf/dPk3Az7OJbNGKhQ2Oe2doJ -Evpsdv/zxZmF62ueX2QOkfD8OvvRlAcL1TvUmuao/l0vJLxBwoeFdi0q+L2f -hLiaajn9QBZGpM9TK6X6/fKlsm9iEllob5DLFf5KgtvQGwftahYas74Y0Hqo -+ZVw0N53oTQahb5UdmsmwbtPR3mluDSeaszMmLpHwuTW6cFBKWlM/iE8E32X -hEVCF6M85CgHiwZnkiSsDGyqOsiWxonxLVeya0kIcVEnbHZJY8YqdxcaNU+l -Nw10aOdJo5pvu3k5NZ/zs2qzfhZKo8xl2sIPSSRoTp91Ky6RxpN+7k8lEkkw -qlKYU74tjZ83Pjp3MI6EI1o2unL3pVFHxLD5UzgJFdK3E0T6pbF71nTNP77U -eWY4wPyrvgw6Dk1+V7ElQX6VYrSIkQwKTo/efWhNzUvf5nvaxjLI7S239rQi -4dKElJGvpQyWbFofXbyVOn/MXtedc5LB337+aRMbSfAVf0ssjpPBsN6eyClN -ap5p4nurHhm0sXftS52jzntHRPyqQmXRiabzPb6AB0O5m3n8s7I4Jri7NSCX -B8PdYQsfxckif77v60NZPPhtM531MUUWa04djmKn8mByQ18zrUQW7+5XMS+M -5cE8Zru0x1NZtBTRrRP14cHi5vP1CssW45Kd+5PbDanznarMvJh7lPtuBoS0 -cIHxWD2pYlgOOYq9vkldDSAfW75DX18ef24rTy6sqod0bUMpwk0Bq7Ikcgrj -66BNznjt6AVF/Dc841HerlpYL38vecWrpch+rj/B+V0NNKErJw9FKKGlgmr3 -VO4dUAxfarRXfRlOJ8hVrdasAlG1/dU7W5Zhe9ruGaLuNuhuXFwecEAZ69US -FPycK8H3PaPJQkAFlTvsvfeMlsPwaMJu83QVTHOkPTE/WAZbVzzINGerYpvh -kqTh4RtAjm74M/lEFU+IcjIXuJWAt47em2cuanhSL1UjQeMabBxy7twrqo78 -2B3fxHoKYYuq7HaJK+r4znX4nVtXASwPiz99z0ADfwRs8T0jmA9aLoZ8tTca -+FDCcBnHNhtcSPezVSeWo83zpiAl9Qzg53c6/2JpYuCfKonxeWkwVjI3uaJG -E7NFjO0lDFPgiFqpaOZ2Lbxx5ZmdcG8y/NJK0b89ooXnHvgNfVueCLVFfz6O -x2rjtXHFH/ft42DfZhXcoKiD9Gew2/u/KFjiFVOn26iDU5vaejpaIoC1yLNy -+x42/lhhvXelahgUmYYEjexlY29G6mG1xWGgF5JkmrKfjYHsm/VKtDCwHql4 -2XWIjVbEhwy7kVCIfjU+fcSTjXpp847QM0Jh6kqoSVA4G8vWGfh+GDgDbzak -vLhWysYDZ6qjK3JCwP1UUbb5LTbO/Fm7SzUuBCZu3XEZqGBjjOWEbNHJEGAo -d02uqmbj6+xXnBbLELAUUZDnNbJRwDZWKmcmGLid15xfvGSj6b+RQqH7gsGC -Vsv272Kj693vghVmwdC19eGEbA8be4ptSwb0gmGsvj/W8QMb6ywFu2PFgoFd -sLLsZx8b5/eHG1nxOMB9Y+yfMMjGxkt3B7uvc8CCuQtWjLBRenO5ol8aB1xj -Tj07OU7FYxvQ3+LDgbHG6EzqTwZLfm8OidzPgYiZy0fqZ9j4Tak4yMKcA1Jr -ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== +1:eJwV13k8Fe0XAHAtpEISWbK7d+6172S5nVOobFmi5E0LkdCiUJIsZaubUKmQ +pYQ7k1S/pEiJSBQqWUukvIUs2euV3/TXfL6feeb5PHPmnPPMo+R50Nl7Ph8f +n+g8Pr6/18mul88ZZ3PXrBJW6jzjbrCmOVMqdG1bNPh41PHdosQAJRo9pdpS +YPG7N5LRlDKEOJKtC9quw0h/zQ9fSg+WD0mmzLTegzcF16NtqXXw6fGmg+Ot +lcDtDQqeIZ1hPaP/42jrW2iuL5Kt4nnCTKvxpZHWz2BWI+Y7lnsYqizyc99c +H4MKMx7Tf+spkP30qM9TYxaMC7OtauK5IB6wk1xksQCp12XuYrwUSNFdX7bJ +VRBHhKqQWncZ2q/oVIyKCmO106zdPI90OJsb0ThfejkGCRcQAslZIHmxN+HC +tRU4Ai+mBYpzIM7Fes3bSQn0GtVytfa4AUdMcna+jJbCQ1KNbT/ncsFy+Nfx +A70y2CotsvqGRx5EmTvtllkth8bh8lnG3HzYuCPzp/E6OfzY90tqLikfRCIH +TrnayWFgUVpi1aV8yKiKyUvaJYfTRUsCLLLy4aFN6YBAghwWu8l+k7+XDyNu +KiFj7XLYbZhBWrbmw47giTOvwuTxVKpcvrVCAZjevnr/5FMFVGlQWqCVVwCW +rQ2zQ7UKeCisdvAHrwA28S3csPOtAroni6tThQXg5XygHb4q4C03s5tyxQWw +PkwpIpJfESUT9M59riqAQwqTN9aqK+L3xAapwe4CeL4360dViCIGzyvPmpXi +gfV/JmInwhSx16B4aq8sDxqSmo0MIhXxlpbG9UYFHrQ/WhyZm6CIu6UCh1IJ +HgwtDRKLyVDE6zv8vfgNeCB1Z6Px+kpFdJ6zf7R7Ew8Cpkcja4WV0O7O+T+S +UTwwDfRZ2SemhC4Dq4oPnOaBYH8HtUBKCa2KP1lVxvHgZmdVyxplJTTUUZvc +mciDrieXNIqNlNCp6n8pwek8cIgxacvZqYRdLmPPFxfzQE8sSjvsrhLm3B0I +bfnKA76zE8+vPFDCNSdnkmq/0etf4Of+oEwJPxGbT5cM8MB/wjlmtFoJrzlu +4eOO8iC3jdG5t0MJE/bfd1w2y4OVWbWxLguUkZt8eX/EChJm1EW7NF2V8eJe +50SBNSRMXpOJ0ndXxpBEpah4JGF8GZNhslMZG0bKAxdZkDA0ZuJnuU8ZXYJE +7P/bQMLnMq9J93BlvDQ0O/LMiYQ62xKR+JvKqNjqJVm+h4Q0/x3weUIZf5ak +WwXFk3D5o+/nf38p46HqGqfUMyRcdDgS82NOGc0JO89iLgmJ+vH104tVcGT2 +n+T+JBKif9/dukxeBb26fLV0r5Lgf5b/kPl6FdyV9jRDm0eCOXUrOzVVBR1F +YtTGakjoVKSyrNJV8Fb1xfHLtSQcT+Vljmep4EzYPC3TOhJKovIynHkquE92 +ZDjkNQl6btlXRB6rYN059ZI370hQ5b+YFNujghHihVyhbhJqj6ecN+xTwX8v +M/3je0jwGUlK/NKvgs3LlMrn9ZKQ23mOu25cBae7Sh4PfiVB8V5c/B8BBjqF +rNLLHSBh5c6wyBANBubk3ja4OklCcXNoBFOXgfW9bwMGp0hwsTl2stmQgbft +58txZkhIMQw+oQcM/Dlwt6/lNwnCQgePDTkxsGDLfdYgHwULH3ke8jnKwGSf +iNxrSygYFbPZtaWSgeVf9jyRl6WgLUC5ye8FA7cfCHI3lqOgouYXRLxi4FGm +raC9PAVJxymFghYGvlsvnH5QkQKdz0KfZvoZeMLIlJfMoODA3UaPayuYqK9/ +6pW1BgVblha8vivFxO/PAkv1NSlY4x3JqZFjoriOxzMZLQqEpXXlhln0eMZi +2W5tCm5FpnxAcyZa/e/r8o36FPQ7uP7zZQ8Tayqr/c6ZUPCWp1k/vY+JZ5JS +lKxNKShdIGAmfJCJ0WnCM/PMKEgoeSBjFMpEa/ulQv7mFLAVpDrizjFxaY1q +kwxQIBo6Yp2RwsS4yn1pT2lPv619dOcyE6+NeiTsRgpqY0OvtucwUaj4QGvG +Wgr2DnW4qT9g4iXTzHWjFhRs2vi/WihjouvUN4ywpMDo+tnVLhVMLApa6rvE +igKBLeZS4XVMlGP/1JNaT0Fe+bXWhi56fknpuuUbKUiUDNnQ28vEKPtRuQTa +IYGbSqa+MTFsoidzlrYVcy5VcYyJsVGGal3WFHzh7tpyeBGBHm8+BIfb0vHt +11DWESIwS17iayvtqQ0zP36IEhivaP1Z246CJQtSYvbJEHjUNDC+jfbFXTuc +WAoEquTa6anaUyD3RE3uqwqBh71/+h+lrRNadX+XJoEJpgeThDbR8Ww5Hymv +R+CijTonNtO2MNhu98GIQIvs8zOXaW8ZHu/digRaVfNR0g4UdNs9K5KwIjBC +a+7TFtp+5Lmwd9YEzskEFyTTDvcmVjhsJnCjY+7EHG2Bqp9dQm4E9ry1C9N3 +pPNJ8SlZt53ApXa2qXto53ZuXbfeh8AmlkbiU9paJgyRhf4Emm7nC/hOuyR1 +pP3ZQQKD1ER6RJ0oqHNKCOSEEphbWZ7iRtulyJXzO5zAXyObm47R/iikvPhR +NIGno4TyU2n7+A01h8QR2HvYU/Ie7ZEXpdkGXAINJN4o1dM+zowL+JlEYNfi +5poe2gtObV595xKB/hb/CkzS5nYrLDyQRqAbf9znRc4UrFwz2KieReBIr7a7 +JO3s9Ifp328QKPN8xwEGbdWZ03vzCwjU7UxS0KZ9b4uTvnchgW23LQ4Y0za/ +LzenfI/AavEJdw7tmuX9dd0PCMzTU+lD2o4HH6RmlhHYF24nuo52x6toz+0V +9PcuG27/e99LzUFLpprAmbmzFn+fH4xb9av1JR3f29n2f+cP+fpv9aUGAvnC +Cqe1aPNZ3E/e/I4e761n9Xd9Z7IjPZa30flRUaT/d/3if+xUGz8Q6MfOe/73 +/a79Iz3B7SFQgps6PUG/P/Hoa4VNH4E5xPymv/G5s/IeV3CAwAtRfrZ/42ca +dNKtZpj+3kFO/n/jW/XGhnF6nMBXKiY6l2nbaUuOrJ0h8N783LRQ2i3c3rK5 +WToeTeLUNtq7+oviyuez0DFdxNOY9vcNJzaHLWKh4mPxCjHa/82XGJgUZWH5 +N5cjlXQ+xO7qeXBfgoUjrMsvU2kve1IYfViGhYMqk7W+tJVD18sMqbDQb06u +mp/2rRaxPorNQo0jo5VNdD4aGXy6u0+Tha31k/5XaVsPH7X+asRC0QtFz1Ro +y+rKxwqaszDwBkuhm87/ocPPK9XXslDc3q/yKu2Lk6Lmh21Z+Gwx38eFtH1W +lxy75MhC6YBbrg/o+jI57lH80JWFpfwtK71pd83ytOZ2spDo3hpcStfnHXD0 +V/Zm4Y4sIfHdtE9FTeZb+bFwdcrU7ELabH4LJW4QC8t8NB9Y0vV+WOjDCukE +FlYJbK+/QfcHy03RjuaJLDTpnN9qQFsyiX1u5wUWNt/bo19F95PHK4IF8q7R +8dRV6WndQNffKpEZvXssTLdnMnrofpWmil12nSysd7XrO0L3uwD/PplD3Sxs +2Cfm3EH3Qyjkbr3wlYX26X3Sa2h/0Wlvah9moZteesXsGro+Vx+u8lnIxr0P +Q0560P22an1uQaQmm94/DHZmGVGQGm/z9YYeG0/9Fu/tNKTAt25E6YUxG1MU +ixskaIts4qQLr2NjpbBmdxTd791cW86lbWGjlMBHPjMdOp+9BI/cj2BjIhnQ +o6tKxz/TsvzpaTY2nliUZM2mYLg9clF9AhsfXfj5cgeLgp8OM+k9F9ioaZf5 +OYpJ90ez/uciBWz87Z5ZRipRMF/81cp9TWzMx/dFcdL0fugguDvoPRsD27/4 +HZOigP+MJRXRwcaIJb8f+0hSIMhXDqlf2Ehu0Fc1l6DXO1joWzXNRmGJW0Z1 +ohRIPz9fKqekimcuh74+sogCmbn6haqEKvIaM53XCND5YyroYKCuitWHXx0X +4KdA/k5kr42hKnI9bEvOz6eAkREodMxaFUPm6UzGzJKgE7R5x9tAVSz0NDee +P0bS5wHJ+XGVqrhAulAXPpDw3XNDgdkLVWT4WHu3d5DAzTm6aaReFff+HM8K +bCfhnXxb2rb3quj7Q0gzo4WEXdJX9TW+qWJwi+PD9iYSQkVWeb8RVsMTr60Y +U89JuDUtX7tqmxqKtBl8eUqR4GDscKDJQw2LGvzMZUkSfgZHiMd4qmFjevad +kAISTMY+7RryV0NP2+Jh5k0San5kz1ScVENzOe3O/ZkkfPqsrO6Tq4aZfnaz +N+j/L7HXROKdYTWcfJbNvH2EhD/DOjfrxtXwQ9CK3rxAEvrFzB5/mVHDo2mC +UdcOklDp5tAvtVAd2d1Tu0/7k3Dky9H1UVLqOJ2+p2m1FwnNv2v/OK1Vx9dP +vqlwnOn/QTX/g2Mp6tjJ3/D2kRYJsvFFjkZGGqjY1bixuIcH5O3CqhlTDdRY +1Kjj9okHq99TRuWggY8nWw7NfOCBi3KBrKW1BnbM+/XbqI0H3MfZ35y2a2CZ +xK7NmQ08+D2SHLk/WgNFfS4VypfxoGNb0J3cBg00ibxmO5DCgyvqJqIr9mqi +1d2NTl0cHtTJrDUcS9bCPoZHq2csfT6RrUzSbtHGncd388nx6PPPgutBu6N1 +0I/ryz9UmwfyUQrm2whd/E/I0ken5iYsZm5/4PxCF1+qV+bcLssFLY500VEP +Pdz6uvrYYOkNONwlVmXDp4+9g6rR2ZnXYXiM62p9RR9j4rMSvVNyYIN2TZq1 +pgF6fPxVKXE2G56Mmf2eajDAFdN+JzO6MuGAhl7HG29DNLiZH1DYnAGcoT3N +2xYbYW+MeY8clQZWDCl74etGKB2iYdtz/wqwI88cqzQ2Rvcd9/88a0sFNW+T +p8wOY5RM/Ye/49tF8H7ie/p+4Gr8frPWcJn2BXia3bxnVMIEp6R9bz7xTYbx +grkp7RITVD0WWs+fcB68mNTiNHtTPKE7pLexgAujaheM7o2Y4pP99QOJ5Qnw +MPd3z0S8GXY6SOrbGcaBu6UKmsmb47cz80qF/z0Nq/bHPdKqMMeOti4nmyvR +ILEk4K79Vg5eaWoU4mRGQq5F+PGRbRz00hNj1V2KBL3wRIsL2zkoltkf634u +EjaN3HnftpuDe6enxWNOREJsy8SMVwAHTawebpv3TyRMX49YdzyKg54yi/9c +koqEDrML7/IoDuZIPaveohEBvsG5Gda36fGv781D2QiYvF3sPXiHg2kpljna +QhEgptw2pfuAg7uTNQSUB0+CraCcbHkFB9WeqVlsvnUSHjfn7Xn3noOdnPe+ +fZonwUbkoWZIGwcpQQdLQ/mT0Lbh5aRUJwdthooPnBE5CeOlA/E7ujlYbbuE +2jAcDpo5OoXf+zk4RHzPEL4bDo871oZwf3CQwx2oS8wJBxvxzaA9wsFsS1vO +ypRw8IkLfhM0wcHYsKbvxkfCYbwiNk1ymoN2Z22V3nqFQ/Svy16lvzgoKNZ4 ++bBLOIga8DQ8ZjnoErvQTtoqHDL3l07MzXHwdttF8xrDcPg/SHGuAw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "PlotRange" -> {{0, 30}, {0., 0.053361954202269676`}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8196,6 +14488,7 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8223,7 +14516,8 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.053361954202269676`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8231,17 +14525,577 @@ ruscmGUjxz/jvbw+B3K96sfn5thosVe2aEaZA/8DYWA86w== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913429049348164`*^9}, + CellChangeTimes->{3.9913429049348164`*^9, 3.993828588088232*^9}, CellLabel-> - "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] + "Out[234]=",ExpressionUUID->"e04b2f99-d731-4bb4-a1af-02cf97dd2881"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ -25a7a01bdd8f"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[235]:=",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8Fe0XAHAtpEISWbK7d+6172S5nVOobFmi5E0LkdCiUJIsZaubUKmQ +pYQ7k1S/pEiJSBQqWUukvIUs2euV3/TXfL6feeb5PHPmnPPMo+R50Nl7Ph8f +n+g8Pr6/18mul88ZZ3PXrBJW6jzjbrCmOVMqdG1bNPh41PHdosQAJRo9pdpS +YPG7N5LRlDKEOJKtC9quw0h/zQ9fSg+WD0mmzLTegzcF16NtqXXw6fGmg+Ot +lcDtDQqeIZ1hPaP/42jrW2iuL5Kt4nnCTKvxpZHWz2BWI+Y7lnsYqizyc99c +H4MKMx7Tf+spkP30qM9TYxaMC7OtauK5IB6wk1xksQCp12XuYrwUSNFdX7bJ +VRBHhKqQWncZ2q/oVIyKCmO106zdPI90OJsb0ThfejkGCRcQAslZIHmxN+HC +tRU4Ai+mBYpzIM7Fes3bSQn0GtVytfa4AUdMcna+jJbCQ1KNbT/ncsFy+Nfx +A70y2CotsvqGRx5EmTvtllkth8bh8lnG3HzYuCPzp/E6OfzY90tqLikfRCIH +TrnayWFgUVpi1aV8yKiKyUvaJYfTRUsCLLLy4aFN6YBAghwWu8l+k7+XDyNu +KiFj7XLYbZhBWrbmw47giTOvwuTxVKpcvrVCAZjevnr/5FMFVGlQWqCVVwCW +rQ2zQ7UKeCisdvAHrwA28S3csPOtAroni6tThQXg5XygHb4q4C03s5tyxQWw +PkwpIpJfESUT9M59riqAQwqTN9aqK+L3xAapwe4CeL4360dViCIGzyvPmpXi +gfV/JmInwhSx16B4aq8sDxqSmo0MIhXxlpbG9UYFHrQ/WhyZm6CIu6UCh1IJ +HgwtDRKLyVDE6zv8vfgNeCB1Z6Px+kpFdJ6zf7R7Ew8Cpkcja4WV0O7O+T+S +UTwwDfRZ2SemhC4Dq4oPnOaBYH8HtUBKCa2KP1lVxvHgZmdVyxplJTTUUZvc +mciDrieXNIqNlNCp6n8pwek8cIgxacvZqYRdLmPPFxfzQE8sSjvsrhLm3B0I +bfnKA76zE8+vPFDCNSdnkmq/0etf4Of+oEwJPxGbT5cM8MB/wjlmtFoJrzlu +4eOO8iC3jdG5t0MJE/bfd1w2y4OVWbWxLguUkZt8eX/EChJm1EW7NF2V8eJe +50SBNSRMXpOJ0ndXxpBEpah4JGF8GZNhslMZG0bKAxdZkDA0ZuJnuU8ZXYJE +7P/bQMLnMq9J93BlvDQ0O/LMiYQ62xKR+JvKqNjqJVm+h4Q0/x3weUIZf5ak +WwXFk3D5o+/nf38p46HqGqfUMyRcdDgS82NOGc0JO89iLgmJ+vH104tVcGT2 +n+T+JBKif9/dukxeBb26fLV0r5Lgf5b/kPl6FdyV9jRDm0eCOXUrOzVVBR1F +YtTGakjoVKSyrNJV8Fb1xfHLtSQcT+Vljmep4EzYPC3TOhJKovIynHkquE92 +ZDjkNQl6btlXRB6rYN059ZI370hQ5b+YFNujghHihVyhbhJqj6ecN+xTwX8v +M/3je0jwGUlK/NKvgs3LlMrn9ZKQ23mOu25cBae7Sh4PfiVB8V5c/B8BBjqF +rNLLHSBh5c6wyBANBubk3ja4OklCcXNoBFOXgfW9bwMGp0hwsTl2stmQgbft +58txZkhIMQw+oQcM/Dlwt6/lNwnCQgePDTkxsGDLfdYgHwULH3ke8jnKwGSf +iNxrSygYFbPZtaWSgeVf9jyRl6WgLUC5ye8FA7cfCHI3lqOgouYXRLxi4FGm +raC9PAVJxymFghYGvlsvnH5QkQKdz0KfZvoZeMLIlJfMoODA3UaPayuYqK9/ +6pW1BgVblha8vivFxO/PAkv1NSlY4x3JqZFjoriOxzMZLQqEpXXlhln0eMZi +2W5tCm5FpnxAcyZa/e/r8o36FPQ7uP7zZQ8Tayqr/c6ZUPCWp1k/vY+JZ5JS +lKxNKShdIGAmfJCJ0WnCM/PMKEgoeSBjFMpEa/ulQv7mFLAVpDrizjFxaY1q +kwxQIBo6Yp2RwsS4yn1pT2lPv619dOcyE6+NeiTsRgpqY0OvtucwUaj4QGvG +Wgr2DnW4qT9g4iXTzHWjFhRs2vi/WihjouvUN4ywpMDo+tnVLhVMLApa6rvE +igKBLeZS4XVMlGP/1JNaT0Fe+bXWhi56fknpuuUbKUiUDNnQ28vEKPtRuQTa +IYGbSqa+MTFsoidzlrYVcy5VcYyJsVGGal3WFHzh7tpyeBGBHm8+BIfb0vHt +11DWESIwS17iayvtqQ0zP36IEhivaP1Z246CJQtSYvbJEHjUNDC+jfbFXTuc +WAoEquTa6anaUyD3RE3uqwqBh71/+h+lrRNadX+XJoEJpgeThDbR8Ww5Hymv +R+CijTonNtO2MNhu98GIQIvs8zOXaW8ZHu/digRaVfNR0g4UdNs9K5KwIjBC +a+7TFtp+5Lmwd9YEzskEFyTTDvcmVjhsJnCjY+7EHG2Bqp9dQm4E9ry1C9N3 +pPNJ8SlZt53ApXa2qXto53ZuXbfeh8AmlkbiU9paJgyRhf4Emm7nC/hOuyR1 +pP3ZQQKD1ER6RJ0oqHNKCOSEEphbWZ7iRtulyJXzO5zAXyObm47R/iikvPhR +NIGno4TyU2n7+A01h8QR2HvYU/Ie7ZEXpdkGXAINJN4o1dM+zowL+JlEYNfi +5poe2gtObV595xKB/hb/CkzS5nYrLDyQRqAbf9znRc4UrFwz2KieReBIr7a7 +JO3s9Ifp328QKPN8xwEGbdWZ03vzCwjU7UxS0KZ9b4uTvnchgW23LQ4Y0za/ +LzenfI/AavEJdw7tmuX9dd0PCMzTU+lD2o4HH6RmlhHYF24nuo52x6toz+0V +9PcuG27/e99LzUFLpprAmbmzFn+fH4xb9av1JR3f29n2f+cP+fpv9aUGAvnC +Cqe1aPNZ3E/e/I4e761n9Xd9Z7IjPZa30flRUaT/d/3if+xUGz8Q6MfOe/73 +/a79Iz3B7SFQgps6PUG/P/Hoa4VNH4E5xPymv/G5s/IeV3CAwAtRfrZ/42ca +dNKtZpj+3kFO/n/jW/XGhnF6nMBXKiY6l2nbaUuOrJ0h8N783LRQ2i3c3rK5 +WToeTeLUNtq7+oviyuez0DFdxNOY9vcNJzaHLWKh4mPxCjHa/82XGJgUZWH5 +N5cjlXQ+xO7qeXBfgoUjrMsvU2kve1IYfViGhYMqk7W+tJVD18sMqbDQb06u +mp/2rRaxPorNQo0jo5VNdD4aGXy6u0+Tha31k/5XaVsPH7X+asRC0QtFz1Ro +y+rKxwqaszDwBkuhm87/ocPPK9XXslDc3q/yKu2Lk6Lmh21Z+Gwx38eFtH1W +lxy75MhC6YBbrg/o+jI57lH80JWFpfwtK71pd83ytOZ2spDo3hpcStfnHXD0 +V/Zm4Y4sIfHdtE9FTeZb+bFwdcrU7ELabH4LJW4QC8t8NB9Y0vV+WOjDCukE +FlYJbK+/QfcHy03RjuaJLDTpnN9qQFsyiX1u5wUWNt/bo19F95PHK4IF8q7R +8dRV6WndQNffKpEZvXssTLdnMnrofpWmil12nSysd7XrO0L3uwD/PplD3Sxs +2Cfm3EH3Qyjkbr3wlYX26X3Sa2h/0Wlvah9moZteesXsGro+Vx+u8lnIxr0P +Q0560P22an1uQaQmm94/DHZmGVGQGm/z9YYeG0/9Fu/tNKTAt25E6YUxG1MU +ixskaIts4qQLr2NjpbBmdxTd791cW86lbWGjlMBHPjMdOp+9BI/cj2BjIhnQ +o6tKxz/TsvzpaTY2nliUZM2mYLg9clF9AhsfXfj5cgeLgp8OM+k9F9ioaZf5 +OYpJ90ez/uciBWz87Z5ZRipRMF/81cp9TWzMx/dFcdL0fugguDvoPRsD27/4 +HZOigP+MJRXRwcaIJb8f+0hSIMhXDqlf2Ehu0Fc1l6DXO1joWzXNRmGJW0Z1 +ohRIPz9fKqekimcuh74+sogCmbn6haqEKvIaM53XCND5YyroYKCuitWHXx0X +4KdA/k5kr42hKnI9bEvOz6eAkREodMxaFUPm6UzGzJKgE7R5x9tAVSz0NDee +P0bS5wHJ+XGVqrhAulAXPpDw3XNDgdkLVWT4WHu3d5DAzTm6aaReFff+HM8K +bCfhnXxb2rb3quj7Q0gzo4WEXdJX9TW+qWJwi+PD9iYSQkVWeb8RVsMTr60Y +U89JuDUtX7tqmxqKtBl8eUqR4GDscKDJQw2LGvzMZUkSfgZHiMd4qmFjevad +kAISTMY+7RryV0NP2+Jh5k0San5kz1ScVENzOe3O/ZkkfPqsrO6Tq4aZfnaz +N+j/L7HXROKdYTWcfJbNvH2EhD/DOjfrxtXwQ9CK3rxAEvrFzB5/mVHDo2mC +UdcOklDp5tAvtVAd2d1Tu0/7k3Dky9H1UVLqOJ2+p2m1FwnNv2v/OK1Vx9dP +vqlwnOn/QTX/g2Mp6tjJ3/D2kRYJsvFFjkZGGqjY1bixuIcH5O3CqhlTDdRY +1Kjj9okHq99TRuWggY8nWw7NfOCBi3KBrKW1BnbM+/XbqI0H3MfZ35y2a2CZ +xK7NmQ08+D2SHLk/WgNFfS4VypfxoGNb0J3cBg00ibxmO5DCgyvqJqIr9mqi +1d2NTl0cHtTJrDUcS9bCPoZHq2csfT6RrUzSbtHGncd388nx6PPPgutBu6N1 +0I/ryz9UmwfyUQrm2whd/E/I0ken5iYsZm5/4PxCF1+qV+bcLssFLY500VEP +Pdz6uvrYYOkNONwlVmXDp4+9g6rR2ZnXYXiM62p9RR9j4rMSvVNyYIN2TZq1 +pgF6fPxVKXE2G56Mmf2eajDAFdN+JzO6MuGAhl7HG29DNLiZH1DYnAGcoT3N +2xYbYW+MeY8clQZWDCl74etGKB2iYdtz/wqwI88cqzQ2Rvcd9/88a0sFNW+T +p8wOY5RM/Ye/49tF8H7ie/p+4Gr8frPWcJn2BXia3bxnVMIEp6R9bz7xTYbx +grkp7RITVD0WWs+fcB68mNTiNHtTPKE7pLexgAujaheM7o2Y4pP99QOJ5Qnw +MPd3z0S8GXY6SOrbGcaBu6UKmsmb47cz80qF/z0Nq/bHPdKqMMeOti4nmyvR +ILEk4K79Vg5eaWoU4mRGQq5F+PGRbRz00hNj1V2KBL3wRIsL2zkoltkf634u +EjaN3HnftpuDe6enxWNOREJsy8SMVwAHTawebpv3TyRMX49YdzyKg54yi/9c +koqEDrML7/IoDuZIPaveohEBvsG5Gda36fGv781D2QiYvF3sPXiHg2kpljna +QhEgptw2pfuAg7uTNQSUB0+CraCcbHkFB9WeqVlsvnUSHjfn7Xn3noOdnPe+ +fZonwUbkoWZIGwcpQQdLQ/mT0Lbh5aRUJwdthooPnBE5CeOlA/E7ujlYbbuE +2jAcDpo5OoXf+zk4RHzPEL4bDo871oZwf3CQwx2oS8wJBxvxzaA9wsFsS1vO +ypRw8IkLfhM0wcHYsKbvxkfCYbwiNk1ymoN2Z22V3nqFQ/Svy16lvzgoKNZ4 ++bBLOIga8DQ8ZjnoErvQTtoqHDL3l07MzXHwdttF8xrDcPg/SHGuAw== + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8Fe0XAHAtpEISWbK7d+6172S5nVOobFmi5E0LkdCiUJIsZaubUKmQ +pYQ7k1S/pEiJSBQqWUukvIUs2euV3/TXfL6feeb5PHPmnPPMo+R50Nl7Ph8f +n+g8Pr6/18mul88ZZ3PXrBJW6jzjbrCmOVMqdG1bNPh41PHdosQAJRo9pdpS +YPG7N5LRlDKEOJKtC9quw0h/zQ9fSg+WD0mmzLTegzcF16NtqXXw6fGmg+Ot +lcDtDQqeIZ1hPaP/42jrW2iuL5Kt4nnCTKvxpZHWz2BWI+Y7lnsYqizyc99c +H4MKMx7Tf+spkP30qM9TYxaMC7OtauK5IB6wk1xksQCp12XuYrwUSNFdX7bJ +VRBHhKqQWncZ2q/oVIyKCmO106zdPI90OJsb0ThfejkGCRcQAslZIHmxN+HC +tRU4Ai+mBYpzIM7Fes3bSQn0GtVytfa4AUdMcna+jJbCQ1KNbT/ncsFy+Nfx +A70y2CotsvqGRx5EmTvtllkth8bh8lnG3HzYuCPzp/E6OfzY90tqLikfRCIH +TrnayWFgUVpi1aV8yKiKyUvaJYfTRUsCLLLy4aFN6YBAghwWu8l+k7+XDyNu +KiFj7XLYbZhBWrbmw47giTOvwuTxVKpcvrVCAZjevnr/5FMFVGlQWqCVVwCW +rQ2zQ7UKeCisdvAHrwA28S3csPOtAroni6tThQXg5XygHb4q4C03s5tyxQWw +PkwpIpJfESUT9M59riqAQwqTN9aqK+L3xAapwe4CeL4360dViCIGzyvPmpXi +gfV/JmInwhSx16B4aq8sDxqSmo0MIhXxlpbG9UYFHrQ/WhyZm6CIu6UCh1IJ +HgwtDRKLyVDE6zv8vfgNeCB1Z6Px+kpFdJ6zf7R7Ew8Cpkcja4WV0O7O+T+S +UTwwDfRZ2SemhC4Dq4oPnOaBYH8HtUBKCa2KP1lVxvHgZmdVyxplJTTUUZvc +mciDrieXNIqNlNCp6n8pwek8cIgxacvZqYRdLmPPFxfzQE8sSjvsrhLm3B0I +bfnKA76zE8+vPFDCNSdnkmq/0etf4Of+oEwJPxGbT5cM8MB/wjlmtFoJrzlu +4eOO8iC3jdG5t0MJE/bfd1w2y4OVWbWxLguUkZt8eX/EChJm1EW7NF2V8eJe +50SBNSRMXpOJ0ndXxpBEpah4JGF8GZNhslMZG0bKAxdZkDA0ZuJnuU8ZXYJE +7P/bQMLnMq9J93BlvDQ0O/LMiYQ62xKR+JvKqNjqJVm+h4Q0/x3weUIZf5ak +WwXFk3D5o+/nf38p46HqGqfUMyRcdDgS82NOGc0JO89iLgmJ+vH104tVcGT2 +n+T+JBKif9/dukxeBb26fLV0r5Lgf5b/kPl6FdyV9jRDm0eCOXUrOzVVBR1F +YtTGakjoVKSyrNJV8Fb1xfHLtSQcT+Vljmep4EzYPC3TOhJKovIynHkquE92 +ZDjkNQl6btlXRB6rYN059ZI370hQ5b+YFNujghHihVyhbhJqj6ecN+xTwX8v +M/3je0jwGUlK/NKvgs3LlMrn9ZKQ23mOu25cBae7Sh4PfiVB8V5c/B8BBjqF +rNLLHSBh5c6wyBANBubk3ja4OklCcXNoBFOXgfW9bwMGp0hwsTl2stmQgbft +58txZkhIMQw+oQcM/Dlwt6/lNwnCQgePDTkxsGDLfdYgHwULH3ke8jnKwGSf +iNxrSygYFbPZtaWSgeVf9jyRl6WgLUC5ye8FA7cfCHI3lqOgouYXRLxi4FGm +raC9PAVJxymFghYGvlsvnH5QkQKdz0KfZvoZeMLIlJfMoODA3UaPayuYqK9/ +6pW1BgVblha8vivFxO/PAkv1NSlY4x3JqZFjoriOxzMZLQqEpXXlhln0eMZi +2W5tCm5FpnxAcyZa/e/r8o36FPQ7uP7zZQ8Tayqr/c6ZUPCWp1k/vY+JZ5JS +lKxNKShdIGAmfJCJ0WnCM/PMKEgoeSBjFMpEa/ulQv7mFLAVpDrizjFxaY1q +kwxQIBo6Yp2RwsS4yn1pT2lPv619dOcyE6+NeiTsRgpqY0OvtucwUaj4QGvG +Wgr2DnW4qT9g4iXTzHWjFhRs2vi/WihjouvUN4ywpMDo+tnVLhVMLApa6rvE +igKBLeZS4XVMlGP/1JNaT0Fe+bXWhi56fknpuuUbKUiUDNnQ28vEKPtRuQTa +IYGbSqa+MTFsoidzlrYVcy5VcYyJsVGGal3WFHzh7tpyeBGBHm8+BIfb0vHt +11DWESIwS17iayvtqQ0zP36IEhivaP1Z246CJQtSYvbJEHjUNDC+jfbFXTuc +WAoEquTa6anaUyD3RE3uqwqBh71/+h+lrRNadX+XJoEJpgeThDbR8Ww5Hymv +R+CijTonNtO2MNhu98GIQIvs8zOXaW8ZHu/digRaVfNR0g4UdNs9K5KwIjBC +a+7TFtp+5Lmwd9YEzskEFyTTDvcmVjhsJnCjY+7EHG2Bqp9dQm4E9ry1C9N3 +pPNJ8SlZt53ApXa2qXto53ZuXbfeh8AmlkbiU9paJgyRhf4Emm7nC/hOuyR1 +pP3ZQQKD1ER6RJ0oqHNKCOSEEphbWZ7iRtulyJXzO5zAXyObm47R/iikvPhR +NIGno4TyU2n7+A01h8QR2HvYU/Ie7ZEXpdkGXAINJN4o1dM+zowL+JlEYNfi +5poe2gtObV595xKB/hb/CkzS5nYrLDyQRqAbf9znRc4UrFwz2KieReBIr7a7 +JO3s9Ifp328QKPN8xwEGbdWZ03vzCwjU7UxS0KZ9b4uTvnchgW23LQ4Y0za/ +LzenfI/AavEJdw7tmuX9dd0PCMzTU+lD2o4HH6RmlhHYF24nuo52x6toz+0V +9PcuG27/e99LzUFLpprAmbmzFn+fH4xb9av1JR3f29n2f+cP+fpv9aUGAvnC +Cqe1aPNZ3E/e/I4e761n9Xd9Z7IjPZa30flRUaT/d/3if+xUGz8Q6MfOe/73 +/a79Iz3B7SFQgps6PUG/P/Hoa4VNH4E5xPymv/G5s/IeV3CAwAtRfrZ/42ca +dNKtZpj+3kFO/n/jW/XGhnF6nMBXKiY6l2nbaUuOrJ0h8N783LRQ2i3c3rK5 +WToeTeLUNtq7+oviyuez0DFdxNOY9vcNJzaHLWKh4mPxCjHa/82XGJgUZWH5 +N5cjlXQ+xO7qeXBfgoUjrMsvU2kve1IYfViGhYMqk7W+tJVD18sMqbDQb06u +mp/2rRaxPorNQo0jo5VNdD4aGXy6u0+Tha31k/5XaVsPH7X+asRC0QtFz1Ro +y+rKxwqaszDwBkuhm87/ocPPK9XXslDc3q/yKu2Lk6Lmh21Z+Gwx38eFtH1W +lxy75MhC6YBbrg/o+jI57lH80JWFpfwtK71pd83ytOZ2spDo3hpcStfnHXD0 +V/Zm4Y4sIfHdtE9FTeZb+bFwdcrU7ELabH4LJW4QC8t8NB9Y0vV+WOjDCukE +FlYJbK+/QfcHy03RjuaJLDTpnN9qQFsyiX1u5wUWNt/bo19F95PHK4IF8q7R +8dRV6WndQNffKpEZvXssTLdnMnrofpWmil12nSysd7XrO0L3uwD/PplD3Sxs +2Cfm3EH3Qyjkbr3wlYX26X3Sa2h/0Wlvah9moZteesXsGro+Vx+u8lnIxr0P +Q0560P22an1uQaQmm94/DHZmGVGQGm/z9YYeG0/9Fu/tNKTAt25E6YUxG1MU +ixskaIts4qQLr2NjpbBmdxTd791cW86lbWGjlMBHPjMdOp+9BI/cj2BjIhnQ +o6tKxz/TsvzpaTY2nliUZM2mYLg9clF9AhsfXfj5cgeLgp8OM+k9F9ioaZf5 +OYpJ90ez/uciBWz87Z5ZRipRMF/81cp9TWzMx/dFcdL0fugguDvoPRsD27/4 +HZOigP+MJRXRwcaIJb8f+0hSIMhXDqlf2Ehu0Fc1l6DXO1joWzXNRmGJW0Z1 +ohRIPz9fKqekimcuh74+sogCmbn6haqEKvIaM53XCND5YyroYKCuitWHXx0X +4KdA/k5kr42hKnI9bEvOz6eAkREodMxaFUPm6UzGzJKgE7R5x9tAVSz0NDee +P0bS5wHJ+XGVqrhAulAXPpDw3XNDgdkLVWT4WHu3d5DAzTm6aaReFff+HM8K +bCfhnXxb2rb3quj7Q0gzo4WEXdJX9TW+qWJwi+PD9iYSQkVWeb8RVsMTr60Y +U89JuDUtX7tqmxqKtBl8eUqR4GDscKDJQw2LGvzMZUkSfgZHiMd4qmFjevad +kAISTMY+7RryV0NP2+Jh5k0San5kz1ScVENzOe3O/ZkkfPqsrO6Tq4aZfnaz +N+j/L7HXROKdYTWcfJbNvH2EhD/DOjfrxtXwQ9CK3rxAEvrFzB5/mVHDo2mC +UdcOklDp5tAvtVAd2d1Tu0/7k3Dky9H1UVLqOJ2+p2m1FwnNv2v/OK1Vx9dP +vqlwnOn/QTX/g2Mp6tjJ3/D2kRYJsvFFjkZGGqjY1bixuIcH5O3CqhlTDdRY +1Kjj9okHq99TRuWggY8nWw7NfOCBi3KBrKW1BnbM+/XbqI0H3MfZ35y2a2CZ +xK7NmQ08+D2SHLk/WgNFfS4VypfxoGNb0J3cBg00ibxmO5DCgyvqJqIr9mqi +1d2NTl0cHtTJrDUcS9bCPoZHq2csfT6RrUzSbtHGncd388nx6PPPgutBu6N1 +0I/ryz9UmwfyUQrm2whd/E/I0ken5iYsZm5/4PxCF1+qV+bcLssFLY500VEP +Pdz6uvrYYOkNONwlVmXDp4+9g6rR2ZnXYXiM62p9RR9j4rMSvVNyYIN2TZq1 +pgF6fPxVKXE2G56Mmf2eajDAFdN+JzO6MuGAhl7HG29DNLiZH1DYnAGcoT3N +2xYbYW+MeY8clQZWDCl74etGKB2iYdtz/wqwI88cqzQ2Rvcd9/88a0sFNW+T +p8wOY5RM/Ye/49tF8H7ie/p+4Gr8frPWcJn2BXia3bxnVMIEp6R9bz7xTYbx +grkp7RITVD0WWs+fcB68mNTiNHtTPKE7pLexgAujaheM7o2Y4pP99QOJ5Qnw +MPd3z0S8GXY6SOrbGcaBu6UKmsmb47cz80qF/z0Nq/bHPdKqMMeOti4nmyvR +ILEk4K79Vg5eaWoU4mRGQq5F+PGRbRz00hNj1V2KBL3wRIsL2zkoltkf634u +EjaN3HnftpuDe6enxWNOREJsy8SMVwAHTawebpv3TyRMX49YdzyKg54yi/9c +koqEDrML7/IoDuZIPaveohEBvsG5Gda36fGv781D2QiYvF3sPXiHg2kpljna +QhEgptw2pfuAg7uTNQSUB0+CraCcbHkFB9WeqVlsvnUSHjfn7Xn3noOdnPe+ +fZonwUbkoWZIGwcpQQdLQ/mT0Lbh5aRUJwdthooPnBE5CeOlA/E7ujlYbbuE +2jAcDpo5OoXf+zk4RHzPEL4bDo871oZwf3CQwx2oS8wJBxvxzaA9wsFsS1vO +ypRw8IkLfhM0wcHYsKbvxkfCYbwiNk1ymoN2Z22V3nqFQ/Svy16lvzgoKNZ4 ++bBLOIga8DQ8ZjnoErvQTtoqHDL3l07MzXHwdttF8xrDcPg/SHGuAw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.053361954202269676`}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.053361954202269676`}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8Fe0XAHAtpEISWbK7d+6172S5nVOobFmi5E0LkdCiUJIsZaubUKmQ +pYQ7k1S/pEiJSBQqWUukvIUs2euV3/TXfL6feeb5PHPmnPPMo+R50Nl7Ph8f +n+g8Pr6/18mul88ZZ3PXrBJW6jzjbrCmOVMqdG1bNPh41PHdosQAJRo9pdpS +YPG7N5LRlDKEOJKtC9quw0h/zQ9fSg+WD0mmzLTegzcF16NtqXXw6fGmg+Ot +lcDtDQqeIZ1hPaP/42jrW2iuL5Kt4nnCTKvxpZHWz2BWI+Y7lnsYqizyc99c +H4MKMx7Tf+spkP30qM9TYxaMC7OtauK5IB6wk1xksQCp12XuYrwUSNFdX7bJ +VRBHhKqQWncZ2q/oVIyKCmO106zdPI90OJsb0ThfejkGCRcQAslZIHmxN+HC +tRU4Ai+mBYpzIM7Fes3bSQn0GtVytfa4AUdMcna+jJbCQ1KNbT/ncsFy+Nfx +A70y2CotsvqGRx5EmTvtllkth8bh8lnG3HzYuCPzp/E6OfzY90tqLikfRCIH +TrnayWFgUVpi1aV8yKiKyUvaJYfTRUsCLLLy4aFN6YBAghwWu8l+k7+XDyNu +KiFj7XLYbZhBWrbmw47giTOvwuTxVKpcvrVCAZjevnr/5FMFVGlQWqCVVwCW +rQ2zQ7UKeCisdvAHrwA28S3csPOtAroni6tThQXg5XygHb4q4C03s5tyxQWw +PkwpIpJfESUT9M59riqAQwqTN9aqK+L3xAapwe4CeL4360dViCIGzyvPmpXi +gfV/JmInwhSx16B4aq8sDxqSmo0MIhXxlpbG9UYFHrQ/WhyZm6CIu6UCh1IJ +HgwtDRKLyVDE6zv8vfgNeCB1Z6Px+kpFdJ6zf7R7Ew8Cpkcja4WV0O7O+T+S +UTwwDfRZ2SemhC4Dq4oPnOaBYH8HtUBKCa2KP1lVxvHgZmdVyxplJTTUUZvc +mciDrieXNIqNlNCp6n8pwek8cIgxacvZqYRdLmPPFxfzQE8sSjvsrhLm3B0I +bfnKA76zE8+vPFDCNSdnkmq/0etf4Of+oEwJPxGbT5cM8MB/wjlmtFoJrzlu +4eOO8iC3jdG5t0MJE/bfd1w2y4OVWbWxLguUkZt8eX/EChJm1EW7NF2V8eJe +50SBNSRMXpOJ0ndXxpBEpah4JGF8GZNhslMZG0bKAxdZkDA0ZuJnuU8ZXYJE +7P/bQMLnMq9J93BlvDQ0O/LMiYQ62xKR+JvKqNjqJVm+h4Q0/x3weUIZf5ak +WwXFk3D5o+/nf38p46HqGqfUMyRcdDgS82NOGc0JO89iLgmJ+vH104tVcGT2 +n+T+JBKif9/dukxeBb26fLV0r5Lgf5b/kPl6FdyV9jRDm0eCOXUrOzVVBR1F +YtTGakjoVKSyrNJV8Fb1xfHLtSQcT+Vljmep4EzYPC3TOhJKovIynHkquE92 +ZDjkNQl6btlXRB6rYN059ZI370hQ5b+YFNujghHihVyhbhJqj6ecN+xTwX8v +M/3je0jwGUlK/NKvgs3LlMrn9ZKQ23mOu25cBae7Sh4PfiVB8V5c/B8BBjqF +rNLLHSBh5c6wyBANBubk3ja4OklCcXNoBFOXgfW9bwMGp0hwsTl2stmQgbft +58txZkhIMQw+oQcM/Dlwt6/lNwnCQgePDTkxsGDLfdYgHwULH3ke8jnKwGSf +iNxrSygYFbPZtaWSgeVf9jyRl6WgLUC5ye8FA7cfCHI3lqOgouYXRLxi4FGm +raC9PAVJxymFghYGvlsvnH5QkQKdz0KfZvoZeMLIlJfMoODA3UaPayuYqK9/ +6pW1BgVblha8vivFxO/PAkv1NSlY4x3JqZFjoriOxzMZLQqEpXXlhln0eMZi +2W5tCm5FpnxAcyZa/e/r8o36FPQ7uP7zZQ8Tayqr/c6ZUPCWp1k/vY+JZ5JS +lKxNKShdIGAmfJCJ0WnCM/PMKEgoeSBjFMpEa/ulQv7mFLAVpDrizjFxaY1q +kwxQIBo6Yp2RwsS4yn1pT2lPv619dOcyE6+NeiTsRgpqY0OvtucwUaj4QGvG +Wgr2DnW4qT9g4iXTzHWjFhRs2vi/WihjouvUN4ywpMDo+tnVLhVMLApa6rvE +igKBLeZS4XVMlGP/1JNaT0Fe+bXWhi56fknpuuUbKUiUDNnQ28vEKPtRuQTa +IYGbSqa+MTFsoidzlrYVcy5VcYyJsVGGal3WFHzh7tpyeBGBHm8+BIfb0vHt +11DWESIwS17iayvtqQ0zP36IEhivaP1Z246CJQtSYvbJEHjUNDC+jfbFXTuc +WAoEquTa6anaUyD3RE3uqwqBh71/+h+lrRNadX+XJoEJpgeThDbR8Ww5Hymv +R+CijTonNtO2MNhu98GIQIvs8zOXaW8ZHu/digRaVfNR0g4UdNs9K5KwIjBC +a+7TFtp+5Lmwd9YEzskEFyTTDvcmVjhsJnCjY+7EHG2Bqp9dQm4E9ry1C9N3 +pPNJ8SlZt53ApXa2qXto53ZuXbfeh8AmlkbiU9paJgyRhf4Emm7nC/hOuyR1 +pP3ZQQKD1ER6RJ0oqHNKCOSEEphbWZ7iRtulyJXzO5zAXyObm47R/iikvPhR +NIGno4TyU2n7+A01h8QR2HvYU/Ie7ZEXpdkGXAINJN4o1dM+zowL+JlEYNfi +5poe2gtObV595xKB/hb/CkzS5nYrLDyQRqAbf9znRc4UrFwz2KieReBIr7a7 +JO3s9Ifp328QKPN8xwEGbdWZ03vzCwjU7UxS0KZ9b4uTvnchgW23LQ4Y0za/ +LzenfI/AavEJdw7tmuX9dd0PCMzTU+lD2o4HH6RmlhHYF24nuo52x6toz+0V +9PcuG27/e99LzUFLpprAmbmzFn+fH4xb9av1JR3f29n2f+cP+fpv9aUGAvnC +Cqe1aPNZ3E/e/I4e761n9Xd9Z7IjPZa30flRUaT/d/3if+xUGz8Q6MfOe/73 +/a79Iz3B7SFQgps6PUG/P/Hoa4VNH4E5xPymv/G5s/IeV3CAwAtRfrZ/42ca +dNKtZpj+3kFO/n/jW/XGhnF6nMBXKiY6l2nbaUuOrJ0h8N783LRQ2i3c3rK5 +WToeTeLUNtq7+oviyuez0DFdxNOY9vcNJzaHLWKh4mPxCjHa/82XGJgUZWH5 +N5cjlXQ+xO7qeXBfgoUjrMsvU2kve1IYfViGhYMqk7W+tJVD18sMqbDQb06u +mp/2rRaxPorNQo0jo5VNdD4aGXy6u0+Tha31k/5XaVsPH7X+asRC0QtFz1Ro +y+rKxwqaszDwBkuhm87/ocPPK9XXslDc3q/yKu2Lk6Lmh21Z+Gwx38eFtH1W +lxy75MhC6YBbrg/o+jI57lH80JWFpfwtK71pd83ytOZ2spDo3hpcStfnHXD0 +V/Zm4Y4sIfHdtE9FTeZb+bFwdcrU7ELabH4LJW4QC8t8NB9Y0vV+WOjDCukE +FlYJbK+/QfcHy03RjuaJLDTpnN9qQFsyiX1u5wUWNt/bo19F95PHK4IF8q7R +8dRV6WndQNffKpEZvXssTLdnMnrofpWmil12nSysd7XrO0L3uwD/PplD3Sxs +2Cfm3EH3Qyjkbr3wlYX26X3Sa2h/0Wlvah9moZteesXsGro+Vx+u8lnIxr0P +Q0560P22an1uQaQmm94/DHZmGVGQGm/z9YYeG0/9Fu/tNKTAt25E6YUxG1MU +ixskaIts4qQLr2NjpbBmdxTd791cW86lbWGjlMBHPjMdOp+9BI/cj2BjIhnQ +o6tKxz/TsvzpaTY2nliUZM2mYLg9clF9AhsfXfj5cgeLgp8OM+k9F9ioaZf5 +OYpJ90ez/uciBWz87Z5ZRipRMF/81cp9TWzMx/dFcdL0fugguDvoPRsD27/4 +HZOigP+MJRXRwcaIJb8f+0hSIMhXDqlf2Ehu0Fc1l6DXO1joWzXNRmGJW0Z1 +ohRIPz9fKqekimcuh74+sogCmbn6haqEKvIaM53XCND5YyroYKCuitWHXx0X +4KdA/k5kr42hKnI9bEvOz6eAkREodMxaFUPm6UzGzJKgE7R5x9tAVSz0NDee +P0bS5wHJ+XGVqrhAulAXPpDw3XNDgdkLVWT4WHu3d5DAzTm6aaReFff+HM8K +bCfhnXxb2rb3quj7Q0gzo4WEXdJX9TW+qWJwi+PD9iYSQkVWeb8RVsMTr60Y +U89JuDUtX7tqmxqKtBl8eUqR4GDscKDJQw2LGvzMZUkSfgZHiMd4qmFjevad +kAISTMY+7RryV0NP2+Jh5k0San5kz1ScVENzOe3O/ZkkfPqsrO6Tq4aZfnaz +N+j/L7HXROKdYTWcfJbNvH2EhD/DOjfrxtXwQ9CK3rxAEvrFzB5/mVHDo2mC +UdcOklDp5tAvtVAd2d1Tu0/7k3Dky9H1UVLqOJ2+p2m1FwnNv2v/OK1Vx9dP +vqlwnOn/QTX/g2Mp6tjJ3/D2kRYJsvFFjkZGGqjY1bixuIcH5O3CqhlTDdRY +1Kjj9okHq99TRuWggY8nWw7NfOCBi3KBrKW1BnbM+/XbqI0H3MfZ35y2a2CZ +xK7NmQ08+D2SHLk/WgNFfS4VypfxoGNb0J3cBg00ibxmO5DCgyvqJqIr9mqi +1d2NTl0cHtTJrDUcS9bCPoZHq2csfT6RrUzSbtHGncd388nx6PPPgutBu6N1 +0I/ryz9UmwfyUQrm2whd/E/I0ken5iYsZm5/4PxCF1+qV+bcLssFLY500VEP +Pdz6uvrYYOkNONwlVmXDp4+9g6rR2ZnXYXiM62p9RR9j4rMSvVNyYIN2TZq1 +pgF6fPxVKXE2G56Mmf2eajDAFdN+JzO6MuGAhl7HG29DNLiZH1DYnAGcoT3N +2xYbYW+MeY8clQZWDCl74etGKB2iYdtz/wqwI88cqzQ2Rvcd9/88a0sFNW+T +p8wOY5RM/Ye/49tF8H7ie/p+4Gr8frPWcJn2BXia3bxnVMIEp6R9bz7xTYbx +grkp7RITVD0WWs+fcB68mNTiNHtTPKE7pLexgAujaheM7o2Y4pP99QOJ5Qnw +MPd3z0S8GXY6SOrbGcaBu6UKmsmb47cz80qF/z0Nq/bHPdKqMMeOti4nmyvR +ILEk4K79Vg5eaWoU4mRGQq5F+PGRbRz00hNj1V2KBL3wRIsL2zkoltkf634u +EjaN3HnftpuDe6enxWNOREJsy8SMVwAHTawebpv3TyRMX49YdzyKg54yi/9c +koqEDrML7/IoDuZIPaveohEBvsG5Gda36fGv781D2QiYvF3sPXiHg2kpljna +QhEgptw2pfuAg7uTNQSUB0+CraCcbHkFB9WeqVlsvnUSHjfn7Xn3noOdnPe+ +fZonwUbkoWZIGwcpQQdLQ/mT0Lbh5aRUJwdthooPnBE5CeOlA/E7ujlYbbuE +2jAcDpo5OoXf+zk4RHzPEL4bDo871oZwf3CQwx2oS8wJBxvxzaA9wsFsS1vO +ypRw8IkLfhM0wcHYsKbvxkfCYbwiNk1ymoN2Z22V3nqFQ/Svy16lvzgoKNZ4 ++bBLOIga8DQ8ZjnoErvQTtoqHDL3l07MzXHwdttF8xrDcPg/SHGuAw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.053361954202269676`}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.053361954202269676`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938285881482763`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"0120efe0-c1b0-4965-895f-670a1d916e7f"] +}, Open ]], Cell[CellGroupData[{ @@ -8293,66 +15147,72 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + "In[236]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 417, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437636167164`*^9}, - CellLabel-> - "During evaluation of \ -In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ -\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ -54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 391, 418, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763625717*^9}, - CellLabel-> - "During evaluation of \ -In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.9876942227380255`*^-173\\\", \ \\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ 734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 391, 419, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763634718*^9}, +\"", 2, 236, 81, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993828588187284*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], +In[236]:=",ExpressionUUID->"1b9d8aea-5cf5-4d46-b517-f096de1fbb2b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.227949179857358`*^-176\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 236, 82, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993828588197102*^9}, + CellLabel-> + "During evaluation of \ +In[236]:=",ExpressionUUID->"fc1d8941-d5c5-45e5-a653-338529e32447"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2447688490565514`*^-179\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 236, 83, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.993828588207095*^9}, + CellLabel-> + "During evaluation of \ +In[236]:=",ExpressionUUID->"27d2c78d-3b40-4849-b597-5becbac96c62"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 391, 420, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343763643717*^9}, +during this calculation.\"", 2, 236, 84, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437636167164`*^9, 3.9938285882160254`*^9}, CellLabel-> "During evaluation of \ -In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], +In[236]:=",ExpressionUUID->"638e6f46-b17d-4ae7-950e-aa9d54241aed"], -Cell[BoxData["12.55365498945131`"], "Output", - CellChangeTimes->{3.991343769962549*^9}, +Cell[BoxData["14.785486276418178`"], "Output", + CellChangeTimes->{3.991343769962549*^9, 3.993828632195978*^9}, CellLabel-> - "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] + "Out[236]=",ExpressionUUID->"5baf40f4-3541-49f7-b390-2765df10b59d"] }, Open ]], Cell[CellGroupData[{ @@ -8419,68 +15279,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499777649403`*^9, - 3.9918499820026073`*^9}},ExpressionUUID->"97b28b29-5d04-5c42-a0e8-\ -93b70f20e7f6"], + CellChangeTimes->{{3.9918499777649403`*^9, 3.9918499820026073`*^9}}, + CellLabel-> + "In[237]:=",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 392, 421, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343769999645*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.232981560467124`*^-223\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 237, 85, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9938286322365303`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], +In[237]:=",ExpressionUUID->"c4ad1a89-757f-44f2-9040-6aa5810c9249"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 392, 422, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700095463`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1357639009703715`*^-229\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 237, 86, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9938286322461987`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], +In[237]:=",ExpressionUUID->"08ecc891-5cf8-4d58-a39e-8f96d40fdf8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 392, - 423, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343770018547*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.040779011256101`*^-235\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 237, 87, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.993828632253983*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], +In[237]:=",ExpressionUUID->"f859b32b-6608-47c0-9986-1725e23d7a4f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 392, 424, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437700265465`*^9}, +during this calculation.\"", 2, 237, 88, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991343769999645*^9, 3.9938286322627993`*^9}, CellLabel-> "During evaluation of \ -In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], +In[237]:=",ExpressionUUID->"e23e788d-c5eb-4978-88ea-111f4b92c864"], -Cell[BoxData["2.1234790234082306`"], "Output", - CellChangeTimes->{3.9913437771602173`*^9}, +Cell[BoxData["0.20527367448788286`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9, 3.993828638652781*^9}, CellLabel-> - "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] + "Out[237]=",ExpressionUUID->"73e68f4a-6b20-4897-ad25-5114febeb3c4"] }, Open ]], Cell[CellGroupData[{ @@ -8501,8 +15362,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8547,68 +15407,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918499862910366`*^9, - 3.991849989300226*^9}},ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-\ -cdce838d9efe"], + CellChangeTimes->{{3.9918499862910366`*^9, 3.991849989300226*^9}}, + CellLabel-> + "In[238]:=",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 393, 425, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437771982174`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.232981560467124`*^-223\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 238, 89, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993828638687834*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], +In[238]:=",ExpressionUUID->"cfb22723-7994-45f2-bbbd-7c62f99ea090"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 393, 426, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772082157`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1357639009703715`*^-229\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 238, 90, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.9938286386946373`*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], +In[238]:=",ExpressionUUID->"a9a80d15-ff15-4692-a706-f7c972974dfd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 393, - 427, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134377721661*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.040779011256101`*^-235\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 238, 91, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993828638703142*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], +In[238]:=",ExpressionUUID->"6b71bc4e-52d1-4d15-8a02-d8039c93e9de"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 393, 428, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437772256165`*^9}, +during this calculation.\"", 2, 238, 92, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437771982174`*^9, 3.993828638713006*^9}, CellLabel-> "During evaluation of \ -In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], +In[238]:=",ExpressionUUID->"48d81b73-0911-4f58-9944-c875683ca987"], -Cell[BoxData["10.711562421053975`"], "Output", - CellChangeTimes->{3.991343783589731*^9}, +Cell[BoxData["55.45050383167734`"], "Output", + CellChangeTimes->{3.991343783589731*^9, 3.9938286446182327`*^9}, CellLabel-> - "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] + "Out[238]=",ExpressionUUID->"9086e86d-d46d-41e6-b59d-ef67409123ab"] }, Open ]], Cell[CellGroupData[{ @@ -8629,8 +15490,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8675,68 +15535,69 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849992549782*^9, - 3.9918499952553864`*^9}},ExpressionUUID->"0794d062-69d5-0a45-936e-\ -533b19d33de6"], + CellChangeTimes->{{3.991849992549782*^9, 3.9918499952553864`*^9}}, + CellLabel-> + "In[239]:=",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4130648498526387`*^-196\\\", \ -\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ -445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ -a normalized machine number; precision may be lost.\"", 2, 394, 429, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836316223`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.232981560467124`*^-223\\\", \ +\\\"18944089915624276894277943633734584709109446010887506295524523639832576000\ +0000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 239, 93, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993828644657563*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], +In[239]:=",ExpressionUUID->"15cd4e47-9756-42d2-8bbf-947e17ebd446"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0852129587892268`*^-200\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 394, 430, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836416245`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1357639009703715`*^-229\\\", \ +\\\"27355265838161455835337350607112740319954040039721559090737412135918239744\ +0000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 239, 94, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.99382864466735*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], +In[239]:=",ExpressionUUID->"c6aba85f-6a8c-4c7e-93fd-edf955223aa6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.8804621475298835`*^-205\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 394, - 431, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343783649622*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.040779011256101`*^-235\\\", \ +\\\"41607359339843574325548110273418478026650094900416491377011603858731642650\ +6240000000000000000\\\"]\\) is too small to represent as a normalized machine \ +number; precision may be lost.\"", 2, 239, 95, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993828644674999*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], +In[239]:=",ExpressionUUID->"dc3e9157-7aa8-4536-8f1f-ee7ae2711029"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 394, 432, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437836576347`*^9}, +during this calculation.\"", 2, 239, 96, 31384839462689005113, "6"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437836316223`*^9, 3.993828644683597*^9}, CellLabel-> "During evaluation of \ -In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], +In[239]:=",ExpressionUUID->"7ac6e140-4b0d-4990-9614-d090f32b524f"], -Cell[BoxData["20.656774205279326`"], "Output", - CellChangeTimes->{3.9913437870822353`*^9}, +Cell[BoxData["8.803988850913697`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9, 3.9938286483474083`*^9}, CellLabel-> - "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] + "Out[239]=",ExpressionUUID->"c3b58d4e-4e32-41d6-8d63-77dde0292859"] }, Open ]], Cell[CellGroupData[{ @@ -8745,20 +15606,21 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918500011025047`*^9, - 3.9918500053803673`*^9}},ExpressionUUID->"95c56266-e4d3-624e-89c1-\ -cedeeeb0247a"], - -Cell[BoxData["0.14275466609450368`"], "Output", - CellChangeTimes->{3.991343787117275*^9}, + CellChangeTimes->{{3.9918500011025047`*^9, 3.9918500053803673`*^9}}, CellLabel-> - "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] + "In[240]:=",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], + +Cell[BoxData["0.009290535907753968`"], "Output", + CellChangeTimes->{3.991343787117275*^9, 3.993828648384753*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"0664e42e-ef6f-4ba5-832a-784f7bd3200f"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +Evaluator->"6", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {356.25, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" ] @@ -8773,364 +15635,638 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], -Cell[706, 26, 156, 3, 28, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], -Cell[865, 31, 147, 4, 28, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], -Cell[1015, 37, 152, 3, 28, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], Cell[CellGroupData[{ -Cell[1192, 44, 1301, 43, 113, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], -Cell[2496, 89, 176, 3, 32, "Output",ExpressionUUID->"b2b0fbe6-496d-0b4b-a132-3f215e541d44"] +Cell[576, 22, 543, 9, 29, "Input",ExpressionUUID->"177ab24e-f9bd-4d8c-baca-d03630d41abe"], +Cell[1122, 33, 466, 6, 33, "Output",ExpressionUUID->"2d6d63d8-4caa-4c18-b9b5-c173504b5838"] }, Open ]], Cell[CellGroupData[{ -Cell[2709, 97, 908, 31, 56, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], -Cell[3620, 130, 175, 3, 32, "Output",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +Cell[1625, 44, 249, 4, 29, "Input",ExpressionUUID->"9b1d3ba0-a7e9-47ea-8fd5-75ac5a8fc368"], +Cell[1877, 50, 583, 9, 33, "Output",ExpressionUUID->"b23385bb-61f9-4e85-ad80-8e585e598a8d"] }, Open ]], Cell[CellGroupData[{ -Cell[3832, 138, 887, 30, 56, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], -Cell[4722, 170, 177, 3, 32, "Output",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +Cell[2497, 64, 229, 4, 29, "Input",ExpressionUUID->"d718c2a4-960c-4258-9b7d-7bd9a1ac912d"], +Cell[2729, 70, 557, 8, 33, "Output",ExpressionUUID->"be83c019-cbba-4d8f-a147-59612fd3b461"] }, Open ]], Cell[CellGroupData[{ -Cell[4936, 178, 558, 19, 52, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], -Cell[5497, 199, 172, 3, 32, "Output",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +Cell[3323, 83, 176, 3, 29, "Input",ExpressionUUID->"1bd97304-a3e5-476f-8c56-6d3b6e215c9d"], +Cell[3502, 88, 558, 8, 33, "Output",ExpressionUUID->"652a6a7c-b897-4125-b347-c34251e260e3"] }, Open ]], Cell[CellGroupData[{ -Cell[5706, 207, 651, 22, 52, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], -Cell[6360, 231, 170, 3, 32, "Output",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +Cell[4097, 101, 258, 7, 42, "Input",ExpressionUUID->"13d3d7d0-e080-4901-aab1-8133cf7edd85"], +Cell[4358, 110, 557, 8, 33, "Output",ExpressionUUID->"9f3369fa-730d-44d6-a7ef-754e7a39613e"] }, Open ]], Cell[CellGroupData[{ -Cell[6567, 239, 170, 5, 56, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], -Cell[6740, 246, 173, 3, 32, "Output",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +Cell[4952, 123, 136, 3, 29, "Input",ExpressionUUID->"db9cfa90-8571-45c8-9aca-45e746c10951"], +Cell[5091, 128, 560, 9, 33, "Output",ExpressionUUID->"23eafb80-ca5f-4a7c-bf44-5df00638e792"] }, Open ]], Cell[CellGroupData[{ -Cell[6950, 254, 170, 5, 55, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], -Cell[7123, 261, 169, 3, 70, "Output",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +Cell[5688, 142, 281, 7, 29, "Input",ExpressionUUID->"d9fd530a-ce79-4676-9d6b-30c0e3289308"], +Cell[5972, 151, 573, 9, 33, "Output",ExpressionUUID->"3f0d3e3b-58a5-44b9-8075-14f8d2006c63"] }, Open ]], Cell[CellGroupData[{ -Cell[7329, 269, 181, 5, 70, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], -Cell[7513, 276, 173, 3, 70, "Output",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +Cell[6582, 165, 262, 8, 29, "Input",ExpressionUUID->"ccde1a30-204b-437a-95ab-36731255415f"], +Cell[6847, 175, 581, 9, 33, "Output",ExpressionUUID->"e80db211-5ece-43b0-87da-36f284426547"] }, Open ]], Cell[CellGroupData[{ -Cell[7723, 284, 181, 5, 70, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], -Cell[7907, 291, 170, 3, 70, "Output",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +Cell[7465, 189, 247, 5, 29, "Input",ExpressionUUID->"71d21002-107a-4788-ada0-2f87c6621089"], +Cell[7715, 196, 577, 9, 33, "Output",ExpressionUUID->"1fa0fafc-fa52-478f-b31d-a918f42c192a"] }, Open ]], Cell[CellGroupData[{ -Cell[8114, 299, 6055, 185, 70, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], -Cell[14172, 486, 174, 3, 70, "Output",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +Cell[8329, 210, 249, 5, 29, "Input",ExpressionUUID->"48588aa2-fc19-4693-ad42-12f1d5e06337"], +Cell[8581, 217, 573, 9, 33, "Output",ExpressionUUID->"f7e4ec56-4dbd-448b-93fa-cd5c9d27dd2e"] }, Open ]], Cell[CellGroupData[{ -Cell[14383, 494, 368, 9, 70, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], -Cell[14754, 505, 170, 3, 70, "Output",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +Cell[9191, 231, 133, 3, 29, "Input",ExpressionUUID->"d8f038d3-16cb-49c8-97e3-8b44cbff5c1e"], +Cell[9327, 236, 558, 9, 33, "Output",ExpressionUUID->"b951ad06-e416-4b67-b073-2318e75f310b"] }, Open ]], Cell[CellGroupData[{ -Cell[14961, 513, 6122, 187, 70, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], -Cell[21086, 702, 174, 3, 70, "Output",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +Cell[9922, 250, 133, 3, 29, "Input",ExpressionUUID->"0ec98dc4-9705-46eb-8334-d25269aeb9bc"], +Cell[10058, 255, 564, 9, 33, "Output",ExpressionUUID->"701e9ad3-e5b0-4603-9826-fd70d34474a7"] }, Open ]], Cell[CellGroupData[{ -Cell[21297, 710, 368, 9, 70, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], -Cell[21668, 721, 170, 3, 70, "Output",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +Cell[10659, 269, 561, 20, 79, "Input",ExpressionUUID->"5151bacb-b83d-45f2-b415-e4163544944d"], +Cell[11223, 291, 579, 9, 33, "Output",ExpressionUUID->"fc1cb8d9-ca90-4c5c-9996-2348d0985710"] }, Open ]], Cell[CellGroupData[{ -Cell[21875, 729, 2663, 88, 70, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], -Cell[24541, 819, 171, 3, 70, "Output",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +Cell[11839, 305, 561, 20, 79, "Input",ExpressionUUID->"89ec5500-5986-4f55-85a1-5a4a3b951636"], +Cell[12403, 327, 578, 9, 33, "Output",ExpressionUUID->"e0894099-67a9-45d8-bdb2-acefefa80056"] }, Open ]], Cell[CellGroupData[{ -Cell[24749, 827, 2603, 85, 70, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], -Cell[27355, 914, 171, 3, 70, "Output",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +Cell[13018, 341, 1496, 49, 79, "Input",ExpressionUUID->"14dd1e95-4f45-4fc1-b9df-fb22cc8358eb"], +Cell[14517, 392, 576, 9, 33, "Output",ExpressionUUID->"07a06b53-faef-4c83-b075-f47e3a29e88d"] }, Open ]], Cell[CellGroupData[{ -Cell[27563, 922, 3712, 118, 70, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], -Cell[31278, 1042, 171, 3, 70, "Output",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] -}, Open ]], -Cell[31464, 1048, 138, 3, 70, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], -Cell[CellGroupData[{ -Cell[31627, 1055, 2054, 59, 70, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], -Cell[33684, 1116, 566, 12, 70, "Message",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], -Cell[34253, 1130, 569, 12, 70, "Message",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], -Cell[34825, 1144, 570, 12, 70, "Message",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], -Cell[35398, 1158, 458, 10, 70, "Message",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], -Cell[35859, 1170, 172, 3, 70, "Output",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +Cell[15130, 406, 1335, 45, 79, "Input",ExpressionUUID->"558d194a-360e-4033-81c0-2aa4a485052a"], +Cell[16468, 453, 594, 10, 33, "Output",ExpressionUUID->"e7cbe88c-3895-4dc6-952f-1357b5c1e53d"] }, Open ]], Cell[CellGroupData[{ -Cell[36068, 1178, 2052, 59, 70, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], -Cell[38123, 1239, 564, 12, 70, "Message",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], -Cell[38690, 1253, 567, 12, 70, "Message",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], -Cell[39260, 1267, 570, 12, 70, "Message",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], -Cell[39833, 1281, 455, 10, 70, "Message",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], -Cell[40291, 1293, 169, 3, 70, "Output",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +Cell[17099, 468, 1335, 45, 79, "Input",ExpressionUUID->"feabec84-8c1c-488d-9ca1-217c0629ead0"], +Cell[18437, 515, 596, 10, 33, "Output",ExpressionUUID->"665e2250-7376-4709-8a23-c896a2dc01fc"] }, Open ]], Cell[CellGroupData[{ -Cell[40497, 1301, 1936, 53, 70, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], -Cell[42436, 1356, 19983, 375, 70, "Output",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +Cell[19070, 530, 1496, 49, 79, "Input",ExpressionUUID->"a3117e74-ede2-4a9c-bd8c-fe27eb95a59e"], +Cell[20569, 581, 577, 9, 33, "Output",ExpressionUUID->"d8018943-5f52-47ef-959b-9913492c122c"] }, Open ]], Cell[CellGroupData[{ -Cell[62456, 1736, 2092, 60, 70, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], -Cell[64551, 1798, 501, 11, 70, "Message",ExpressionUUID->"53d31480-3c5e-ef4a-987b-a232cf0b03f3"], -Cell[65055, 1811, 503, 11, 70, "Message",ExpressionUUID->"b7d94271-16f1-6346-b579-21279019eafb"], -Cell[65561, 1824, 506, 11, 70, "Message",ExpressionUUID->"bfaea4b0-a812-1847-9911-9291b70d2c8f"], -Cell[66070, 1837, 456, 10, 70, "Message",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], -Cell[66529, 1849, 41581, 727, 70, "Output",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] -}, Open ]], -Cell[108125, 2579, 232, 6, 70, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], -Cell[108360, 2587, 209, 5, 70, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], -Cell[CellGroupData[{ -Cell[108594, 2596, 217, 7, 70, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], -Cell[108814, 2605, 170, 3, 70, "Output",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +Cell[21183, 595, 135, 3, 29, "Input",ExpressionUUID->"e173b9d9-645f-47bc-ae7c-22e163aa863f"], +Cell[21321, 600, 560, 9, 33, "Output",ExpressionUUID->"b87f82be-2bee-47c9-9d3c-40c20aaa358a"] }, Open ]], Cell[CellGroupData[{ -Cell[109021, 2613, 1814, 53, 70, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], -Cell[110838, 2668, 506, 11, 70, "Message",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], -Cell[111347, 2681, 512, 11, 70, "Message",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], -Cell[111862, 2694, 509, 11, 70, "Message",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], -Cell[112374, 2707, 456, 10, 70, "Message",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], -Cell[112833, 2719, 22336, 412, 70, "Output",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +Cell[21918, 614, 137, 3, 29, "Input",ExpressionUUID->"396a6b08-4bd2-468f-b4ac-4358246de23b"], +Cell[22058, 619, 566, 9, 33, "Output",ExpressionUUID->"c4fc0e18-99ee-4e42-b1e8-facc77e84b4d"] }, Open ]], Cell[CellGroupData[{ -Cell[135206, 3136, 1616, 48, 70, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], -Cell[136825, 3186, 584, 12, 70, "Message",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], -Cell[137412, 3200, 588, 12, 70, "Message",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], -Cell[138003, 3214, 591, 12, 70, "Message",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], -Cell[138597, 3228, 456, 10, 70, "Message",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], -Cell[139056, 3240, 173, 3, 70, "Output",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +Cell[22661, 633, 138, 3, 29, "Input",ExpressionUUID->"1323f847-bbe1-4e78-b5b5-3b3c2687def4"], +Cell[22802, 638, 573, 9, 33, "Output",ExpressionUUID->"cd8b9bf3-af39-4359-bf83-1b67970aa0d1"] }, Open ]], Cell[CellGroupData[{ -Cell[139266, 3248, 2274, 65, 70, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], -Cell[141543, 3315, 566, 12, 70, "Message",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], -Cell[142112, 3329, 569, 12, 70, "Message",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], -Cell[142684, 3343, 572, 12, 70, "Message",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], -Cell[143259, 3357, 458, 10, 70, "Message",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], -Cell[143720, 3369, 171, 3, 70, "Output",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +Cell[23412, 652, 223, 5, 29, "Input",ExpressionUUID->"d524a185-6901-46e3-ba40-14055e5ca37f"], +Cell[23638, 659, 570, 10, 33, "Output",ExpressionUUID->"44d3eeb1-758c-4dd1-9116-ac2c8351edf1"] }, Open ]], Cell[CellGroupData[{ -Cell[143928, 3377, 2221, 64, 70, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], -Cell[146152, 3443, 564, 12, 70, "Message",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], -Cell[146719, 3457, 567, 12, 70, "Message",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], -Cell[147289, 3471, 570, 12, 70, "Message",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], -Cell[147862, 3485, 456, 10, 70, "Message",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], -Cell[148321, 3497, 173, 3, 70, "Output",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +Cell[24245, 674, 138, 3, 29, "Input",ExpressionUUID->"0d7742b5-3a68-4879-8924-14b37e708874"], +Cell[24386, 679, 571, 9, 33, "Output",ExpressionUUID->"aa4dbc8d-29fc-4897-afda-d566aa4891c4"] }, Open ]], Cell[CellGroupData[{ -Cell[148531, 3505, 2223, 64, 70, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], -Cell[150757, 3571, 566, 12, 70, "Message",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], -Cell[151326, 3585, 569, 12, 70, "Message",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], -Cell[151898, 3599, 570, 12, 70, "Message",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], -Cell[152471, 3613, 458, 10, 70, "Message",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], -Cell[152932, 3625, 170, 3, 70, "Output",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +Cell[24994, 693, 331, 6, 29, "Input",ExpressionUUID->"acdd66d1-2a38-4e76-a744-91fd3beeef9c"], +Cell[25328, 701, 559, 9, 33, "Output",ExpressionUUID->"89d6f6a5-f63a-44bb-a34c-203e1c4bd74b"] }, Open ]], Cell[CellGroupData[{ -Cell[153139, 3633, 213, 6, 70, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], -Cell[153355, 3641, 171, 3, 70, "Output",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] -}, Open ]], -Cell[153541, 3647, 244, 5, 70, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], -Cell[CellGroupData[{ -Cell[153810, 3656, 558, 19, 70, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], -Cell[154371, 3677, 173, 3, 70, "Output",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +Cell[25924, 715, 302, 6, 29, "Input",ExpressionUUID->"261c5343-4536-479b-9bf7-2e4224e465b8"], +Cell[26229, 723, 593, 10, 33, "Output",ExpressionUUID->"89aee5de-0b6b-4187-9858-f3c7df0231b7"] }, Open ]], Cell[CellGroupData[{ -Cell[154581, 3685, 170, 5, 70, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], -Cell[154754, 3692, 171, 3, 70, "Output",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +Cell[26859, 738, 223, 5, 29, "Input",ExpressionUUID->"8764ba96-9ebc-460e-a39c-b286223dfb6a"], +Cell[27085, 745, 567, 9, 33, "Output",ExpressionUUID->"6c4334ac-e8bd-403f-9fd9-f101d01d010e"] }, Open ]], Cell[CellGroupData[{ -Cell[154962, 3700, 181, 5, 70, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], -Cell[155146, 3707, 173, 3, 70, "Output",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +Cell[27689, 759, 354, 11, 42, "Input",ExpressionUUID->"faaacf5c-c665-4bb4-84f0-4fdaf6bb064a"], +Cell[28046, 772, 580, 9, 33, "Output",ExpressionUUID->"8360f847-69ee-4467-b9dc-3fce504685c5"] }, Open ]], Cell[CellGroupData[{ -Cell[155356, 3715, 6055, 185, 70, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], -Cell[161414, 3902, 175, 3, 70, "Output",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +Cell[28663, 786, 354, 11, 42, "Input",ExpressionUUID->"39b65560-7802-4006-a20b-abe53f5dc4a4"], +Cell[29020, 799, 598, 10, 33, "Output",ExpressionUUID->"aa9c4a94-1d5c-4a42-8896-b2319948f4e0"] }, Open ]], Cell[CellGroupData[{ -Cell[161626, 3910, 368, 9, 70, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], -Cell[161997, 3921, 172, 3, 70, "Output",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +Cell[29655, 814, 998, 27, 81, "Input",ExpressionUUID->"850ad284-34d0-439d-9b9b-546cb3a16024"], +Cell[30656, 843, 579, 9, 33, "Output",ExpressionUUID->"da3a2c0a-f9f1-4c6c-9583-f0c8d2915043"] }, Open ]], Cell[CellGroupData[{ -Cell[162206, 3929, 6122, 187, 70, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], -Cell[168331, 4118, 173, 3, 70, "Output",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +Cell[31272, 857, 203, 4, 29, "Input",ExpressionUUID->"114ce8a5-1146-41e8-8890-0f79677c7e1c"], +Cell[31478, 863, 554, 9, 33, "Output",ExpressionUUID->"1bd40327-6969-427d-a2b6-2ce28f0eda1d"] }, Open ]], Cell[CellGroupData[{ -Cell[168541, 4126, 368, 9, 70, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], -Cell[168912, 4137, 170, 3, 70, "Output",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +Cell[32069, 877, 338, 6, 29, "Input",ExpressionUUID->"296b2b8e-676c-46fb-bf6d-d3394f80fc50"], +Cell[32410, 885, 559, 9, 33, "Output",ExpressionUUID->"302ff92c-a821-4a69-a5d6-e0e11ed8bf22"] +}, Open ]], +Cell[32984, 897, 177, 3, 29, "Input",ExpressionUUID->"a20f43f2-fe23-4cfd-a0e0-9dbafb0c220c"], +Cell[CellGroupData[{ +Cell[33186, 904, 337, 6, 29, "Input",ExpressionUUID->"a4f4bbf4-5c3c-4880-bb67-df2400801a6d"], +Cell[33526, 912, 559, 9, 33, "Output",ExpressionUUID->"995a7c65-cd1f-478d-9ebf-a0f93065bd99"] +}, Open ]], +Cell[34100, 924, 177, 3, 29, "Input",ExpressionUUID->"984776c5-6f74-41c2-9cd8-a2dbdf48d94c"], +Cell[CellGroupData[{ +Cell[34302, 931, 341, 6, 29, "Input",ExpressionUUID->"a084f63f-0e27-42a2-b26b-814e0d3035eb"], +Cell[34646, 939, 554, 9, 33, "Output",ExpressionUUID->"43cf4422-062b-492d-9bcc-74c3a4c98390"] +}, Open ]], +Cell[35215, 951, 177, 3, 29, "Input",ExpressionUUID->"ac54d051-d7ae-49e9-a562-68374030c103"], +Cell[CellGroupData[{ +Cell[35417, 958, 364, 6, 29, "Input",ExpressionUUID->"fd0a71f0-e9cc-4850-b91a-1bc6580ee436"], +Cell[35784, 966, 569, 9, 33, "Output",ExpressionUUID->"765e9e71-fee6-4b14-ba2d-c52f3e795bd2"] +}, Open ]], +Cell[36368, 978, 175, 3, 29, "Input",ExpressionUUID->"f8960f99-5cbe-4046-8e5a-8d7fc0ca5594"], +Cell[CellGroupData[{ +Cell[36568, 985, 311, 6, 29, "Input",ExpressionUUID->"071e32e2-cd1b-4586-93b0-5d5509a5549d"], +Cell[36882, 993, 567, 9, 33, "Output",ExpressionUUID->"0747b9f0-a535-4647-ab26-4029d45e014f"] +}, Open ]], +Cell[37464, 1005, 175, 3, 29, "Input",ExpressionUUID->"6eb3cc10-33be-477b-9b4b-ed5d5ca3c036"], +Cell[CellGroupData[{ +Cell[37664, 1012, 317, 6, 29, "Input",ExpressionUUID->"f209b35f-0335-4b65-b7b0-8b6880f38337"], +Cell[37984, 1020, 566, 9, 33, "Output",ExpressionUUID->"cc0c626a-deca-41c6-bf2e-a65f045eee2b"] +}, Open ]], +Cell[38565, 1032, 177, 3, 29, "Input",ExpressionUUID->"60a77585-f82d-4166-bb52-e266042b9816"], +Cell[CellGroupData[{ +Cell[38767, 1039, 318, 6, 29, "Input",ExpressionUUID->"730aeb51-20ef-4f85-ba92-f9fc55ca1f1a"], +Cell[39088, 1047, 564, 9, 33, "Output",ExpressionUUID->"41bd0de1-7aa6-4597-86ba-9ddefa7a2058"] +}, Open ]], +Cell[39667, 1059, 176, 3, 29, "Input",ExpressionUUID->"90b82dfd-ec22-4adc-968c-26bbaf5fa77a"], +Cell[CellGroupData[{ +Cell[39868, 1066, 287, 5, 29, "Input",ExpressionUUID->"c98089cf-4ac3-4f43-87d7-88d0f37d9226"], +Cell[40158, 1073, 566, 9, 33, "Output",ExpressionUUID->"70927965-c915-429f-8798-68599c34b6a1"] +}, Open ]], +Cell[40739, 1085, 179, 3, 29, "Input",ExpressionUUID->"70f46a4e-61b6-48a6-aa38-4ce5cb6599f4"], +Cell[CellGroupData[{ +Cell[40943, 1092, 19813, 486, 1844, "Input",ExpressionUUID->"b4613cec-2418-43a3-aeb9-ffb22ea26681"], +Cell[60759, 1580, 574, 9, 33, "Output",ExpressionUUID->"b82a26c2-e4de-4227-87ef-24bbbfd97543"] }, Open ]], Cell[CellGroupData[{ -Cell[169119, 4145, 2663, 88, 70, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], -Cell[171785, 4235, 171, 3, 70, "Output",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +Cell[61370, 1594, 19752, 490, 1981, "Input",ExpressionUUID->"372cd8de-6473-4409-892b-8b4c8aeae3fe"], +Cell[81125, 2086, 577, 9, 33, "Output",ExpressionUUID->"b717fb4a-3be0-484f-a4f2-2e6a3c668104"] }, Open ]], Cell[CellGroupData[{ -Cell[171993, 4243, 2603, 85, 70, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], -Cell[174599, 4330, 171, 3, 70, "Output",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +Cell[81739, 2100, 19752, 484, 1970, "Input",ExpressionUUID->"d2e12971-933f-47c3-b06e-7c8dc2854984"], +Cell[101494, 2586, 598, 10, 33, "Output",ExpressionUUID->"89e5fa14-1c55-47b7-8d41-13ee10f18dd0"] }, Open ]], Cell[CellGroupData[{ -Cell[174807, 4338, 3712, 118, 70, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], -Cell[178522, 4458, 170, 3, 70, "Output",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +Cell[102129, 2601, 22538, 554, 2217, "Input",ExpressionUUID->"61716dfb-3dbe-4ed6-8795-8877fe54acde"], +Cell[124670, 3157, 591, 10, 33, "Output",ExpressionUUID->"ec4ca6cc-26f9-4f08-9802-53ce4454e1f2"] }, Open ]], Cell[CellGroupData[{ -Cell[178729, 4466, 2052, 59, 70, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], -Cell[180784, 4527, 573, 12, 70, "Message",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], -Cell[181360, 4541, 577, 12, 70, "Message",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], -Cell[181940, 4555, 580, 12, 70, "Message",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], -Cell[182523, 4569, 456, 10, 70, "Message",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], -Cell[182982, 4581, 170, 3, 70, "Output",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +Cell[125298, 3172, 22539, 554, 2254, "Input",ExpressionUUID->"c09eb290-4481-41ae-9220-8d87df7201a0"], +Cell[147840, 3728, 598, 10, 33, "Output",ExpressionUUID->"a823880f-77f3-4750-97cb-22e18304d394"] }, Open ]], Cell[CellGroupData[{ -Cell[183189, 4589, 2054, 59, 70, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], -Cell[185246, 4650, 573, 12, 70, "Message",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], -Cell[185822, 4664, 577, 12, 70, "Message",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], -Cell[186402, 4678, 582, 12, 70, "Message",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], -Cell[186987, 4692, 456, 10, 70, "Message",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], -Cell[187446, 4704, 170, 3, 70, "Output",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +Cell[148475, 3743, 25495, 627, 2501, "Input",ExpressionUUID->"3bcfccca-203d-4ea6-86c7-01d7c304b58b"], +Cell[173973, 4372, 592, 10, 33, "Output",ExpressionUUID->"3096e552-509e-4f83-8ac9-ff69751818cc"] }, Open ]], Cell[CellGroupData[{ -Cell[187653, 4712, 2028, 55, 70, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], -Cell[189684, 4769, 20422, 382, 70, "Output",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +Cell[174602, 4387, 134, 3, 29, "Input",ExpressionUUID->"d3b252d7-3c15-43b3-86e8-802f5a07133e"], +Cell[174739, 4392, 568, 9, 33, "Output",ExpressionUUID->"815848d1-3c71-4b81-abba-3c15c4c060c8"] }, Open ]], Cell[CellGroupData[{ -Cell[210143, 5156, 2120, 60, 70, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], -Cell[212266, 5218, 502, 11, 70, "Message",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], -Cell[212771, 5231, 506, 11, 70, "Message",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], -Cell[213280, 5244, 505, 11, 70, "Message",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], -Cell[213788, 5257, 458, 10, 70, "Message",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], -Cell[214249, 5269, 22288, 412, 70, "Output",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] -}, Open ]], -Cell[236552, 5684, 209, 5, 70, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], -Cell[CellGroupData[{ -Cell[236786, 5693, 1616, 48, 70, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], -Cell[238405, 5743, 595, 12, 70, "Message",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], -Cell[239003, 5757, 595, 12, 70, "Message",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], -Cell[239601, 5771, 599, 12, 70, "Message",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], -Cell[240203, 5785, 456, 10, 70, "Message",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], -Cell[240662, 5797, 171, 3, 70, "Output",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +Cell[175344, 4406, 134, 3, 29, "Input",ExpressionUUID->"b32ae4fd-3c72-48b5-8dd4-7f5d05e809d1"], +Cell[175481, 4411, 560, 9, 33, "Output",ExpressionUUID->"c499a532-5d38-46a4-bdc1-153c40684c22"] }, Open ]], Cell[CellGroupData[{ -Cell[240870, 5805, 2248, 64, 70, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], -Cell[243121, 5871, 575, 12, 70, "Message",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], -Cell[243699, 5885, 577, 12, 70, "Message",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], -Cell[244279, 5899, 582, 12, 70, "Message",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], -Cell[244864, 5913, 458, 10, 70, "Message",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], -Cell[245325, 5925, 172, 3, 70, "Output",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +Cell[176078, 4425, 1148, 40, 107, "Input",ExpressionUUID->"9df76d62-23b6-42eb-ae8b-00dde4ac9cb6"], +Cell[177229, 4467, 587, 9, 33, "Output",ExpressionUUID->"265846a7-ad20-4621-9d6d-13b191815670"] }, Open ]], Cell[CellGroupData[{ -Cell[245534, 5933, 2215, 63, 70, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], -Cell[247752, 5998, 575, 12, 70, "Message",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], -Cell[248330, 6012, 577, 12, 70, "Message",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], -Cell[248910, 6026, 582, 12, 70, "Message",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], -Cell[249495, 6040, 458, 10, 70, "Message",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], -Cell[249956, 6052, 170, 3, 70, "Output",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +Cell[177853, 4481, 1045, 36, 107, "Input",ExpressionUUID->"e525382f-5dbb-4a49-80bc-6a26bf63f705"], +Cell[178901, 4519, 594, 10, 33, "Output",ExpressionUUID->"8f253246-cba2-48a1-adad-e85231f6dbe0"] }, Open ]], Cell[CellGroupData[{ -Cell[250163, 6060, 2223, 64, 70, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], -Cell[252389, 6126, 573, 12, 70, "Message",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], -Cell[252965, 6140, 577, 12, 70, "Message",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], -Cell[253545, 6154, 580, 12, 70, "Message",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], -Cell[254128, 6168, 456, 10, 70, "Message",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], -Cell[254587, 6180, 173, 3, 70, "Output",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +Cell[179532, 4534, 1148, 40, 107, "Input",ExpressionUUID->"2664b2e1-2420-4750-b4c1-7db9f5cfcba6"], +Cell[180683, 4576, 580, 9, 33, "Output",ExpressionUUID->"4c8e8c12-4828-41a5-9ef8-dba0e4a02492"] }, Open ]], Cell[CellGroupData[{ -Cell[254797, 6188, 213, 6, 70, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], -Cell[255013, 6196, 173, 3, 70, "Output",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] -}, Open ]], -Cell[255201, 6202, 247, 5, 70, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], -Cell[CellGroupData[{ -Cell[255473, 6211, 558, 19, 70, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], -Cell[256034, 6232, 173, 3, 70, "Output",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +Cell[181300, 4590, 112, 2, 29, "Input",ExpressionUUID->"12a1093a-c794-4187-9975-38d434340949"], +Cell[181415, 4594, 578, 9, 33, "Output",ExpressionUUID->"6dae2c1c-eb57-4cdf-a769-adfc4b35f83d"] }, Open ]], Cell[CellGroupData[{ -Cell[256244, 6240, 170, 5, 70, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], -Cell[256417, 6247, 173, 3, 70, "Output",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +Cell[182030, 4608, 112, 2, 29, "Input",ExpressionUUID->"15056237-2ac7-49e4-9e5b-5d5e9bfbf6ac"], +Cell[182145, 4612, 605, 10, 33, "Output",ExpressionUUID->"fa8eaf3d-b31c-4ed4-8cc4-f18768785041"] }, Open ]], Cell[CellGroupData[{ -Cell[256627, 6255, 181, 5, 70, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], -Cell[256811, 6262, 173, 3, 70, "Output",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +Cell[182787, 4627, 112, 2, 29, "Input",ExpressionUUID->"dba5545a-3565-4613-ab93-9e42a2ad1416"], +Cell[182902, 4631, 592, 10, 33, "Output",ExpressionUUID->"448ea5d3-58df-4c6d-8de0-449e3189041e"] }, Open ]], Cell[CellGroupData[{ -Cell[257021, 6270, 6055, 185, 70, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], -Cell[263079, 6457, 172, 3, 70, "Output",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +Cell[183531, 4646, 112, 2, 29, "Input",ExpressionUUID->"a585d0d9-2ecc-4031-b0de-fa6bc3cf2fd5"], +Cell[183646, 4650, 581, 9, 33, "Output",ExpressionUUID->"7ec15662-b902-480e-8e25-eea2090d8030"] }, Open ]], Cell[CellGroupData[{ -Cell[263288, 6465, 368, 9, 70, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], -Cell[263659, 6476, 172, 3, 70, "Output",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +Cell[184264, 4664, 111, 2, 29, "Input",ExpressionUUID->"49e60dbf-df63-4d80-8eda-e44589f766b5"], +Cell[184378, 4668, 585, 9, 33, "Output",ExpressionUUID->"029d02a7-e55c-4d73-b177-33c0f88a303f"] }, Open ]], Cell[CellGroupData[{ -Cell[263868, 6484, 6122, 187, 70, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], -Cell[269993, 6673, 173, 3, 70, "Output",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +Cell[185000, 4682, 111, 2, 29, "Input",ExpressionUUID->"3a7f5bd8-c64e-4139-a261-1a4fa67c654b"], +Cell[185114, 4686, 570, 9, 33, "Output",ExpressionUUID->"4f65ce97-035d-4748-a7f5-176a50c5961a"] }, Open ]], Cell[CellGroupData[{ -Cell[270203, 6681, 368, 9, 70, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], -Cell[270574, 6692, 170, 3, 70, "Output",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +Cell[185721, 4700, 501, 17, 55, "Input",ExpressionUUID->"9075ac97-a0b4-4754-9086-ee2c15ae3f30"], +Cell[186225, 4719, 596, 10, 33, "Output",ExpressionUUID->"97fb6257-8451-4ee5-8be1-65c349de585f"] }, Open ]], Cell[CellGroupData[{ -Cell[270781, 6700, 2663, 88, 70, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], -Cell[273447, 6790, 171, 3, 70, "Output",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +Cell[186858, 4734, 501, 17, 55, "Input",ExpressionUUID->"1aad061e-af0a-47da-adcc-2ffd6c2404c7"], +Cell[187362, 4753, 592, 10, 33, "Output",ExpressionUUID->"61e4269d-007e-41fe-b37f-ae291f8cf4fd"] }, Open ]], Cell[CellGroupData[{ -Cell[273655, 6798, 2603, 85, 70, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], -Cell[276261, 6885, 173, 3, 70, "Output",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +Cell[187991, 4768, 1792, 61, 183, "Input",ExpressionUUID->"fe9ab109-89dd-4672-be34-13a5fa79f684"], +Cell[189786, 4831, 579, 9, 33, "Output",ExpressionUUID->"9f6e30dc-2d63-4741-bb8c-2dacee9e525a"] }, Open ]], Cell[CellGroupData[{ -Cell[276471, 6893, 3712, 118, 70, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], -Cell[280186, 7013, 173, 3, 70, "Output",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +Cell[190402, 4845, 1105, 37, 131, "Input",ExpressionUUID->"f357d9fd-feb5-462a-a835-e24f41508bc8"], +Cell[191510, 4884, 592, 10, 33, "Output",ExpressionUUID->"1a5cbe2a-51be-4a58-b5c9-4f3d6c259803"] }, Open ]], Cell[CellGroupData[{ -Cell[280396, 7021, 2052, 59, 70, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], -Cell[282451, 7082, 568, 12, 70, "Message",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], -Cell[283022, 7096, 573, 12, 70, "Message",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], -Cell[283598, 7110, 576, 12, 70, "Message",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], -Cell[284177, 7124, 458, 10, 70, "Message",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], -Cell[284638, 7136, 172, 3, 70, "Output",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +Cell[192139, 4899, 1822, 62, 160, "Input",ExpressionUUID->"e8f6442b-b82e-45f9-b22c-2b610658989a"], +Cell[193964, 4963, 571, 9, 33, "Output",ExpressionUUID->"8e4f8591-d184-4ff7-8134-157b364754c8"] }, Open ]], Cell[CellGroupData[{ -Cell[284847, 7144, 2052, 59, 70, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], -Cell[286902, 7205, 568, 12, 70, "Message",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], -Cell[287473, 7219, 573, 12, 70, "Message",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], -Cell[288049, 7233, 574, 12, 70, "Message",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], -Cell[288626, 7247, 458, 10, 70, "Message",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], -Cell[289087, 7259, 172, 3, 70, "Output",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +Cell[194572, 4977, 1635, 54, 162, "Input",ExpressionUUID->"2426a8f9-a1cb-47ca-a4b3-2064355108c5"], +Cell[196210, 5033, 574, 9, 33, "Output",ExpressionUUID->"6f5c286e-026b-4dee-a5fc-ad19d65af972"] }, Open ]], Cell[CellGroupData[{ -Cell[289296, 7267, 2028, 55, 70, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], -Cell[291327, 7324, 20375, 384, 70, "Output",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +Cell[196821, 5047, 1635, 54, 162, "Input",ExpressionUUID->"61aefdfa-82fd-4dc5-bd45-426b85f0592c"], +Cell[198459, 5103, 580, 9, 33, "Output",ExpressionUUID->"e1c6efba-794c-473d-ae62-7ca6b885ff6e"] }, Open ]], Cell[CellGroupData[{ -Cell[311739, 7713, 2118, 60, 70, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], -Cell[313860, 7775, 501, 11, 70, "Message",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], -Cell[314364, 7788, 503, 11, 70, "Message",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], -Cell[314870, 7801, 506, 11, 70, "Message",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], -Cell[315379, 7814, 458, 10, 70, "Message",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], -Cell[315840, 7826, 22161, 409, 70, "Output",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +Cell[199076, 5117, 232, 5, 29, "Input",ExpressionUUID->"ede64bc2-06f7-8743-a0a6-6f058773310c"], +Cell[199311, 5124, 184, 3, 33, "Output",ExpressionUUID->"76d2827f-2a72-4732-814a-5a92d1eca2ef"] }, Open ]], -Cell[338016, 8238, 209, 5, 70, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[199510, 5130, 179, 3, 70, "Input",ExpressionUUID->"9eb3c45a-b33b-a74e-8fe0-c82e80965ca9"], Cell[CellGroupData[{ -Cell[338250, 8247, 1616, 48, 70, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], -Cell[339869, 8297, 590, 12, 70, "Message",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], -Cell[340462, 8311, 589, 12, 70, "Message",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], -Cell[341054, 8325, 593, 12, 70, "Message",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], -Cell[341650, 8339, 456, 10, 70, "Message",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], -Cell[342109, 8351, 170, 3, 70, "Output",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +Cell[199714, 5137, 230, 5, 29, "Input",ExpressionUUID->"328429c4-9130-334e-ba7f-7dc8ec78e5b4"], +Cell[199947, 5144, 182, 3, 33, "Output",ExpressionUUID->"8e135005-e8e9-497a-af85-6c7f46bf4f65"] +}, Open ]], +Cell[200144, 5150, 175, 3, 70, "Input",ExpressionUUID->"b3364ab6-86a4-7a46-ae33-623392314869"], +Cell[CellGroupData[{ +Cell[200344, 5157, 1301, 43, 111, "Input",ExpressionUUID->"789c64dd-6722-a64c-864a-7fd89b074ad2"], +Cell[201648, 5202, 222, 4, 33, "Output",ExpressionUUID->"46868311-b18e-4cc3-a66c-82ff58780e91"] }, Open ]], Cell[CellGroupData[{ -Cell[342316, 8359, 2251, 64, 70, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], -Cell[344570, 8425, 568, 12, 70, "Message",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], -Cell[345141, 8439, 573, 12, 70, "Message",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], -Cell[345717, 8453, 574, 12, 70, "Message",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], -Cell[346294, 8467, 458, 10, 70, "Message",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], -Cell[346755, 8479, 173, 3, 70, "Output",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +Cell[201907, 5211, 931, 31, 96, "Input",ExpressionUUID->"35e76fc7-2f05-694a-b379-67189aa511ad"], +Cell[202841, 5244, 224, 4, 33, "Output",ExpressionUUID->"fd091822-e480-4a48-9966-a353afc89b0f"] }, Open ]], Cell[CellGroupData[{ -Cell[346965, 8487, 2221, 64, 70, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], -Cell[349189, 8553, 570, 12, 70, "Message",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], -Cell[349762, 8567, 573, 12, 70, "Message",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], -Cell[350338, 8581, 573, 12, 70, "Message",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], -Cell[350914, 8595, 458, 10, 70, "Message",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], -Cell[351375, 8607, 171, 3, 70, "Output",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +Cell[203102, 5253, 910, 30, 55, "Input",ExpressionUUID->"a10e19cd-f567-6b4d-a841-5f01117db38b"], +Cell[204015, 5285, 226, 4, 33, "Output",ExpressionUUID->"a0128e99-b805-410d-9856-e4f3c340efeb"] }, Open ]], Cell[CellGroupData[{ -Cell[351583, 8615, 2221, 64, 70, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], -Cell[353807, 8681, 570, 12, 70, "Message",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], -Cell[354380, 8695, 573, 12, 70, "Message",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], -Cell[354956, 8709, 574, 12, 70, "Message",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], -Cell[355533, 8723, 458, 10, 70, "Message",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], -Cell[355994, 8735, 173, 3, 70, "Output",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +Cell[204278, 5294, 558, 19, 51, "Input",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], +Cell[204839, 5315, 221, 4, 33, "Output",ExpressionUUID->"071c3e8e-3b55-462f-b427-9e16e7eb006f"] }, Open ]], Cell[CellGroupData[{ -Cell[356204, 8743, 215, 6, 70, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], -Cell[356422, 8751, 172, 3, 70, "Output",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +Cell[205097, 5324, 651, 22, 51, "Input",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], +Cell[205751, 5348, 217, 4, 33, "Output",ExpressionUUID->"ab6ee166-7263-448a-bf4d-912ec6454363"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206005, 5357, 170, 5, 55, "Input",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], +Cell[206178, 5364, 224, 4, 33, "Output",ExpressionUUID->"3ec7e542-a8f6-41c5-b14b-1b57eb473c4d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206439, 5373, 170, 5, 54, "Input",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], +Cell[206612, 5380, 215, 4, 33, "Output",ExpressionUUID->"464faa9d-683a-494c-87b9-ff58ca445cc9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206864, 5389, 181, 5, 43, "Input",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], +Cell[207048, 5396, 220, 4, 33, "Output",ExpressionUUID->"0b362af9-e69e-4284-ba28-56ac4b507c00"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207305, 5405, 181, 5, 43, "Input",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], +Cell[207489, 5412, 219, 4, 33, "Output",ExpressionUUID->"3a8a2245-1c52-49c9-970c-49f79d21d627"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207745, 5421, 6055, 185, 474, "Input",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], +Cell[213803, 5608, 222, 4, 33, "Output",ExpressionUUID->"c256cf71-ddd3-4e39-b3ff-c4d2314e6b98"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214062, 5617, 368, 9, 41, "Input",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], +Cell[214433, 5628, 217, 4, 33, "Output",ExpressionUUID->"6710ad7c-72f4-4d16-b361-b310c6cd5de2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214687, 5637, 6122, 187, 474, "Input",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], +Cell[220812, 5826, 222, 4, 33, "Output",ExpressionUUID->"383dc6d0-231e-4d1d-b5d9-a1b82b91c8c8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221071, 5835, 368, 9, 41, "Input",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], +Cell[221442, 5846, 216, 4, 33, "Output",ExpressionUUID->"85812e4c-c2a1-4857-a1b4-566ce4d5d9df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221695, 5855, 2663, 88, 285, "Input",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], +Cell[224361, 5945, 219, 4, 33, "Output",ExpressionUUID->"cc45f852-aa4e-4025-a978-d9d48dbd950b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224617, 5954, 2603, 85, 211, "Input",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], +Cell[227223, 6041, 218, 4, 33, "Output",ExpressionUUID->"6442c946-470c-4668-bf47-5c0c62368545"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227478, 6050, 3712, 118, 327, "Input",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], +Cell[231193, 6170, 221, 4, 33, "Output",ExpressionUUID->"414bc658-1e73-4c99-b25c-e8e82590f6f8"] +}, Open ]], +Cell[231429, 6177, 164, 4, 70, "Input",ExpressionUUID->"0055f95b-c532-e24d-bdc4-544ea2d2fbd9"], +Cell[CellGroupData[{ +Cell[231618, 6185, 2077, 59, 99, "Input",ExpressionUUID->"574b810b-aa4a-d545-b080-c44fbe83a713"], +Cell[233698, 6246, 607, 14, 26, "Message",ExpressionUUID->"ebdfdc61-d567-4b2b-b124-36f7320167ea"], +Cell[234308, 6262, 613, 14, 26, "Message",ExpressionUUID->"5a1fefb5-69e7-458c-8d8c-e14d2b08b34a"], +Cell[234924, 6278, 616, 14, 26, "Message",ExpressionUUID->"afece3e2-8e36-49b2-81f3-a8fcab9ff3d1"], +Cell[235543, 6294, 513, 12, 26, "Message",ExpressionUUID->"c6356240-22a8-414b-aa57-0cffaa36095d"], +Cell[236059, 6308, 220, 4, 33, "Output",ExpressionUUID->"37c1eed6-f384-4c21-8525-a67abeb79e37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[236316, 6317, 2075, 59, 99, "Input",ExpressionUUID->"3d7dd6a2-2692-2b4d-8922-656c90598e75"], +Cell[238394, 6378, 606, 14, 26, "Message",ExpressionUUID->"1a3baae4-63ba-4f08-91aa-5d8c12aba38f"], +Cell[239003, 6394, 609, 14, 26, "Message",ExpressionUUID->"2e1bf9f3-2741-42b9-b320-4c49fa49986b"], +Cell[239615, 6410, 614, 14, 26, "Message",ExpressionUUID->"20a239a0-13e2-4c81-9ae9-d38afcc589cc"], +Cell[240232, 6426, 511, 12, 26, "Message",ExpressionUUID->"ad80d77a-5d03-49b0-8874-48cbd063f262"], +Cell[240746, 6440, 220, 4, 33, "Output",ExpressionUUID->"141eeed4-d8d2-4781-8d3d-f8e7a8d56df5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241003, 6449, 1959, 53, 70, "Input",ExpressionUUID->"9c540ba7-8bb4-ef46-919c-62296271f174"], +Cell[242965, 6504, 20405, 384, 236, "Output",ExpressionUUID->"90904496-08ed-46a6-a855-8d3341711298"] +}, Open ]], +Cell[CellGroupData[{ +Cell[263407, 6893, 2115, 60, 99, "Input",ExpressionUUID->"6e33cb28-ef1e-1547-b52d-2171e7786920"], +Cell[265525, 6955, 530, 12, 40, "Message",ExpressionUUID->"f0bafe33-bf5a-4a7a-88e4-b2b510a86311"], +Cell[266058, 6969, 530, 12, 40, "Message",ExpressionUUID->"ecdb36ab-9410-4e92-9433-16f23dac93c6"], +Cell[266591, 6983, 534, 12, 40, "Message",ExpressionUUID->"e81f1639-62fd-4936-834b-1f8fa691a40a"], +Cell[267128, 6997, 486, 11, 26, "Message",ExpressionUUID->"13d66bf6-c8c8-446e-b38d-3478ed7f4da5"], +Cell[267617, 7010, 22090, 411, 232, "Output",ExpressionUUID->"4a3ff87b-cc26-460a-9993-e7e081d8893d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[289744, 7426, 2523, 71, 105, "Input",ExpressionUUID->"2d5a8299-5376-9747-8056-2bd9764114a1"], +Cell[292270, 7499, 9496, 223, 239, "Output",ExpressionUUID->"f9315370-cfc3-4fe0-9c52-454b30c065af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[301803, 7727, 232, 5, 29, "Input",ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-0ac982b58a3a"], +Cell[302038, 7734, 28452, 543, 232, "Output",ExpressionUUID->"ee48472e-d28c-412a-b03f-dc1abf2b5351"] +}, Open ]], +Cell[CellGroupData[{ +Cell[330527, 8282, 240, 7, 47, "Input",ExpressionUUID->"650e43f8-1352-de46-8137-52adca93b0cf"], +Cell[330770, 8291, 193, 3, 33, "Output",ExpressionUUID->"a99606a4-65de-4aba-a51e-30a03b6d9e3e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[331000, 8299, 1837, 53, 99, "Input",ExpressionUUID->"9ad75b45-8f6d-114b-80bd-d2b12a49fd20"], +Cell[332840, 8354, 536, 12, 40, "Message",ExpressionUUID->"20f460c5-3227-42e5-84f7-e91d3e23ef56"], +Cell[333379, 8368, 539, 12, 40, "Message",ExpressionUUID->"6bba7c83-e2f0-490a-b780-09744b4d4a31"], +Cell[333921, 8382, 539, 12, 40, "Message",ExpressionUUID->"ef78032c-8e75-4a2a-a2b9-52edd270a378"], +Cell[334463, 8396, 488, 11, 26, "Message",ExpressionUUID->"80ea763f-e1a1-450c-9949-85938196e6df"], +Cell[334954, 8409, 21935, 408, 232, "Output",ExpressionUUID->"047ee7e9-80cd-4358-96d2-dfae3a589719"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356926, 8822, 1616, 48, 71, "Input",ExpressionUUID->"94eefac7-0bb7-7249-8430-0b2ddd6df117"], +Cell[358545, 8872, 613, 13, 43, "Message",ExpressionUUID->"3fc051f0-c3bd-45c1-8246-971f5698a2de"], +Cell[359161, 8887, 620, 13, 80, "Message",ExpressionUUID->"59314799-9691-47c1-b45c-f1da93d05e35"], +Cell[359784, 8902, 621, 13, 80, "Message",ExpressionUUID->"d1531bcb-3688-4f3b-9424-fb2c27f64750"], +Cell[360408, 8917, 488, 11, 26, "Message",ExpressionUUID->"c36aa9f2-a37a-455b-9bb5-89e66154aa00"], +Cell[360899, 8930, 195, 3, 33, "Output",ExpressionUUID->"9368db2f-bcd9-4eb4-af1e-aa959597af06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361131, 8938, 2296, 65, 212, "Input",ExpressionUUID->"1d118f77-7d68-dd41-b0af-09454f88e7f1"], +Cell[363430, 9005, 585, 13, 40, "Message",ExpressionUUID->"4f1e100b-8b20-45bd-974f-66a025c5a8a2"], +Cell[364018, 9020, 588, 13, 40, "Message",ExpressionUUID->"9f23f365-45ad-47e3-b245-d30fb9061be1"], +Cell[364609, 9035, 589, 13, 40, "Message",ExpressionUUID->"3f3be738-1e5a-4a9d-a28d-8b3f42cba35f"], +Cell[365201, 9050, 488, 11, 26, "Message",ExpressionUUID->"a0810225-3718-4fc6-9080-02ce046e31b4"], +Cell[365692, 9063, 193, 3, 33, "Output",ExpressionUUID->"8758d30b-fad9-4384-8ac6-207e646337c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[365922, 9071, 2233, 63, 212, "Input",ExpressionUUID->"c8039063-5f4d-134a-b6ba-e19335f7a9f6"], +Cell[368158, 9136, 581, 13, 80, "Message",ExpressionUUID->"d80150fa-3663-4982-8720-3a26a931d7b9"], +Cell[368742, 9151, 583, 13, 80, "Message",ExpressionUUID->"20977f8b-cbe8-490b-a9b0-2d4f8f694969"], +Cell[369328, 9166, 587, 13, 80, "Message",ExpressionUUID->"198ae508-cb8a-47c4-8d24-a47e60d9c386"], +Cell[369918, 9181, 486, 11, 26, "Message",ExpressionUUID->"ed981ef3-7d6a-4d17-a2c4-a84f44943f11"], +Cell[370407, 9194, 193, 3, 33, "Output",ExpressionUUID->"948433c1-25ca-4a85-a7fa-ba4f11a9c055"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370637, 9202, 2235, 63, 212, "Input",ExpressionUUID->"a474307a-af78-3040-90ec-fb8d284b16bb"], +Cell[372875, 9267, 585, 13, 80, "Message",ExpressionUUID->"f7a8ea7a-e916-4761-9410-3014ad65ff11"], +Cell[373463, 9282, 585, 13, 80, "Message",ExpressionUUID->"947bef50-0d8e-4c7b-b811-2d1eefc818b1"], +Cell[374051, 9297, 589, 13, 80, "Message",ExpressionUUID->"93eb4014-1242-4842-a80f-ecca43e4602c"], +Cell[374643, 9312, 488, 11, 26, "Message",ExpressionUUID->"1203d9c4-d2e2-44ff-9d9f-d3664a2a369c"], +Cell[375134, 9325, 195, 3, 33, "Output",ExpressionUUID->"39c3c38d-c6fc-4ba1-ae06-2e5ccaed87b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375366, 9333, 236, 6, 46, "Input",ExpressionUUID->"ce14ed0e-a62a-1e46-b7cf-f67bfdbd9bc7"], +Cell[375605, 9341, 194, 3, 33, "Output",ExpressionUUID->"804286b3-4d3f-44c1-94a9-8e1144df4293"] +}, Open ]], +Cell[375814, 9347, 270, 6, 29, "Input",ExpressionUUID->"d104d373-080a-854b-92ff-e87abbd4c41c"], +Cell[CellGroupData[{ +Cell[376109, 9357, 558, 19, 51, "Input",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], +Cell[376670, 9378, 195, 3, 33, "Output",ExpressionUUID->"38a7cb63-305d-45eb-a062-4f0dd0b567f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376902, 9386, 170, 5, 55, "Input",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], +Cell[377075, 9393, 192, 3, 33, "Output",ExpressionUUID->"4f5ed984-af2a-4933-b440-64ee8e9ce5b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377304, 9401, 181, 5, 43, "Input",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], +Cell[377488, 9408, 193, 3, 33, "Output",ExpressionUUID->"302f2cc2-4658-4465-be98-262b792122b5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377718, 9416, 6055, 185, 474, "Input",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], +Cell[383776, 9603, 197, 3, 33, "Output",ExpressionUUID->"03ebb836-65b7-4af3-809a-06f6defd7e62"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384010, 9611, 368, 9, 41, "Input",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], +Cell[384381, 9622, 195, 3, 33, "Output",ExpressionUUID->"24afbf22-e41a-4615-8bdf-2f4959e587d9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384613, 9630, 6122, 187, 474, "Input",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], +Cell[390738, 9819, 195, 3, 33, "Output",ExpressionUUID->"23aeeae9-3203-4e5c-8a2a-dd85888c74cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[390970, 9827, 368, 9, 41, "Input",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], +Cell[391341, 9838, 192, 3, 33, "Output",ExpressionUUID->"2db87b00-223e-4ffd-9624-8df0405273f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391570, 9846, 2663, 88, 285, "Input",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], +Cell[394236, 9936, 194, 3, 33, "Output",ExpressionUUID->"06899622-5878-4ba5-9734-4c364e55c7ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[394467, 9944, 2603, 85, 211, "Input",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], +Cell[397073, 10031, 193, 3, 33, "Output",ExpressionUUID->"fa8c7061-f0b7-431e-8b4e-31e997fd2f1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[397303, 10039, 3712, 118, 327, "Input",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], +Cell[401018, 10159, 193, 3, 33, "Output",ExpressionUUID->"ff78b39c-1181-481d-afa3-5b1264d6f6aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[401248, 10167, 2075, 59, 234, "Input",ExpressionUUID->"486d514f-ec65-1e4e-b780-7e9487f745c3"], +Cell[403326, 10228, 564, 12, 59, "Message",ExpressionUUID->"62d63354-dc3f-4471-818a-c2cc369abc5c"], +Cell[403893, 10242, 568, 12, 83, "Message",ExpressionUUID->"82550c94-6a93-4fbb-aa1a-047208729588"], +Cell[404464, 10256, 572, 12, 63, "Message",ExpressionUUID->"2ddf66bc-6b76-47d0-b2d7-25604098286b"], +Cell[405039, 10270, 488, 11, 26, "Message",ExpressionUUID->"8d24e0d5-3d5e-4163-8889-3f63512d33e9"], +Cell[405530, 10283, 193, 3, 33, "Output",ExpressionUUID->"bba2296a-62b9-4bf6-a083-d9ebbfe89f97"] +}, Open ]], +Cell[CellGroupData[{ +Cell[405760, 10291, 2077, 59, 234, "Input",ExpressionUUID->"c7144ce5-8356-d548-8854-18c538c3321c"], +Cell[407840, 10352, 566, 12, 59, "Message",ExpressionUUID->"49fc0435-02cf-48e9-bd02-edf536a62d1c"], +Cell[408409, 10366, 567, 12, 83, "Message",ExpressionUUID->"9208f0cd-bfab-485d-9c20-089926974bd5"], +Cell[408979, 10380, 570, 12, 63, "Message",ExpressionUUID->"b17e7d45-57b9-4574-8773-65eeffb800d8"], +Cell[409552, 10394, 486, 11, 26, "Message",ExpressionUUID->"8f61772a-aa32-4d13-9f88-19020ed868da"], +Cell[410041, 10407, 192, 3, 33, "Output",ExpressionUUID->"59756729-dd1a-4557-8ba5-73f6d05ffd3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[410270, 10415, 2051, 55, 151, "Input",ExpressionUUID->"b2db949b-a7b9-8f4b-afbd-a45df2eabf0c"], +Cell[412324, 10472, 20421, 383, 232, "Output",ExpressionUUID->"543a050b-cfb5-4e2d-a6db-24344b05bdff"] +}, Open ]], +Cell[CellGroupData[{ +Cell[432782, 10860, 2143, 60, 261, "Input",ExpressionUUID->"92d458c4-bfde-c447-a06c-70a15768b745"], +Cell[434928, 10922, 528, 12, 59, "Message",ExpressionUUID->"aa96b99c-236e-474d-a713-e2b91ce7aec7"], +Cell[435459, 10936, 530, 12, 59, "Message",ExpressionUUID->"308be073-6585-4596-b00a-63c7ed37fb19"], +Cell[435992, 10950, 532, 12, 59, "Message",ExpressionUUID->"56307149-a4f8-4406-bcf9-80e9fb6c0656"], +Cell[436527, 10964, 488, 11, 26, "Message",ExpressionUUID->"50c0111e-00d9-4454-8b6c-11a5f3a74f4f"], +Cell[437018, 10977, 22369, 414, 232, "Output",ExpressionUUID->"ead8ed05-d8c9-4957-b7c0-f245bd72ae57"] +}, Open ]], +Cell[CellGroupData[{ +Cell[459424, 11396, 232, 5, 29, "Input",ExpressionUUID->"e1c8585a-8b57-f841-82e1-8e8787fb2589"], +Cell[459659, 11403, 28728, 546, 232, "Output",ExpressionUUID->"3b69077c-b4f2-4085-a5c1-0bb12ed669b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488424, 11954, 1616, 48, 104, "Input",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], +Cell[490043, 12004, 627, 13, 80, "Message",ExpressionUUID->"e1f4be0f-f41b-4964-a411-cb6a24ec8fe3"], +Cell[490673, 12019, 721, 15, 80, "Message",ExpressionUUID->"3ec9705d-1926-4cab-9e01-ea2699a81f0d"], +Cell[491397, 12036, 720, 15, 80, "Message",ExpressionUUID->"44f51b56-80ac-440f-a6c8-9d44bf3c85f8"], +Cell[492120, 12053, 488, 11, 26, "Message",ExpressionUUID->"42153273-4ab6-403d-bfcb-053ac6bd73eb"], +Cell[492611, 12066, 197, 3, 33, "Output",ExpressionUUID->"08cd31b7-1cab-4f23-932f-58f7e9e37581"] +}, Open ]], +Cell[CellGroupData[{ +Cell[492845, 12074, 2271, 64, 212, "Input",ExpressionUUID->"e0ae6f48-c6a6-a24c-812a-30286a178ca1"], +Cell[495119, 12140, 566, 12, 59, "Message",ExpressionUUID->"8a51b425-2b28-41a3-ba33-5d7190ca2b6e"], +Cell[495688, 12154, 570, 12, 83, "Message",ExpressionUUID->"65e6ebb7-8edc-4fbc-afd0-b20da0acb848"], +Cell[496261, 12168, 572, 12, 63, "Message",ExpressionUUID->"df564e90-7f4f-494c-97c8-d404d9252aea"], +Cell[496836, 12182, 488, 11, 26, "Message",ExpressionUUID->"51ccf308-d030-469f-b0d5-62a3656b1bdd"], +Cell[497327, 12195, 196, 3, 33, "Output",ExpressionUUID->"77f5466c-6a4d-4158-8aab-11e8757ea254"] +}, Open ]], +Cell[CellGroupData[{ +Cell[497560, 12203, 2229, 63, 212, "Input",ExpressionUUID->"bce0eb71-ca49-364f-a3be-8e8c3542c5fb"], +Cell[499792, 12268, 566, 12, 59, "Message",ExpressionUUID->"378392af-b751-4264-81b2-ed78a6277a42"], +Cell[500361, 12282, 572, 12, 83, "Message",ExpressionUUID->"7dd1f84c-1b59-4da7-9c9a-88387bdf3b7f"], +Cell[500936, 12296, 574, 12, 63, "Message",ExpressionUUID->"6cefbf2e-d20e-4ce7-957b-0054628824e5"], +Cell[501513, 12310, 488, 11, 26, "Message",ExpressionUUID->"ee1856ff-ffcc-4ac9-a86c-503f78fd7b6b"], +Cell[502004, 12323, 190, 3, 33, "Output",ExpressionUUID->"78256842-e220-4e25-a351-425f7c2a7617"] +}, Open ]], +Cell[CellGroupData[{ +Cell[502231, 12331, 2235, 63, 212, "Input",ExpressionUUID->"935796a8-6280-564a-b4d0-fc6fb6cd41f8"], +Cell[504469, 12396, 564, 12, 59, "Message",ExpressionUUID->"ee05e14e-f31d-4bf4-90b8-e96863322500"], +Cell[505036, 12410, 568, 12, 83, "Message",ExpressionUUID->"3ea30b0e-7f48-4dd2-9e8b-7840f3082aa3"], +Cell[505607, 12424, 570, 12, 63, "Message",ExpressionUUID->"b5763151-68fe-4576-a3c5-39a40c91e0c1"], +Cell[506180, 12438, 486, 11, 26, "Message",ExpressionUUID->"ec6a675a-f8d3-4400-9f8c-c6c3466e9299"], +Cell[506669, 12451, 195, 3, 33, "Output",ExpressionUUID->"f9f0c1f3-5fe2-43f1-bf91-cac7b24a4977"] +}, Open ]], +Cell[CellGroupData[{ +Cell[506901, 12459, 236, 6, 46, "Input",ExpressionUUID->"ee52036b-90c5-e14a-aed9-684ff23ed035"], +Cell[507140, 12467, 196, 3, 33, "Output",ExpressionUUID->"789970cb-036f-48f6-8046-16a66e97797c"] +}, Open ]], +Cell[507351, 12473, 273, 6, 70, "Input",ExpressionUUID->"c6d4a146-4cca-7e4e-b483-85227a6e6b51"], +Cell[CellGroupData[{ +Cell[507649, 12483, 558, 19, 51, "Input",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], +Cell[508210, 12504, 195, 3, 33, "Output",ExpressionUUID->"ff24afe0-be5a-4cf9-ba57-8eac40903693"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508442, 12512, 170, 5, 55, "Input",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], +Cell[508615, 12519, 195, 3, 33, "Output",ExpressionUUID->"f90e09c3-7613-492b-aa1e-94e4d2135777"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508847, 12527, 181, 5, 43, "Input",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], +Cell[509031, 12534, 196, 3, 33, "Output",ExpressionUUID->"48172cdc-44c3-41af-845c-d16e8e57ba42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509264, 12542, 6055, 185, 474, "Input",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], +Cell[515322, 12729, 196, 3, 33, "Output",ExpressionUUID->"1a17d775-0177-44a6-9f51-1efd2234da2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[515555, 12737, 368, 9, 41, "Input",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], +Cell[515926, 12748, 195, 3, 33, "Output",ExpressionUUID->"6ba037e7-9e90-4cc5-a5cc-e5eb775a0917"] +}, Open ]], +Cell[CellGroupData[{ +Cell[516158, 12756, 6122, 187, 474, "Input",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], +Cell[522283, 12945, 195, 3, 33, "Output",ExpressionUUID->"5b20da38-ad3b-4942-ba39-50d69020a9aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[522515, 12953, 368, 9, 41, "Input",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], +Cell[522886, 12964, 192, 3, 33, "Output",ExpressionUUID->"d75e616a-4724-48d1-b19a-222d7f5977c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[523115, 12972, 2663, 88, 285, "Input",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], +Cell[525781, 13062, 194, 3, 33, "Output",ExpressionUUID->"d8e1a6b5-9197-4fa0-9650-111437481c34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526012, 13070, 2603, 85, 211, "Input",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], +Cell[528618, 13157, 194, 3, 33, "Output",ExpressionUUID->"db763180-a255-4ab6-83c2-b8500677f599"] +}, Open ]], +Cell[CellGroupData[{ +Cell[528849, 13165, 3712, 118, 327, "Input",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], +Cell[532564, 13285, 198, 3, 33, "Output",ExpressionUUID->"4d118066-b7d1-4e14-9603-4d52f6d38612"] +}, Open ]], +Cell[CellGroupData[{ +Cell[532799, 13293, 2075, 59, 234, "Input",ExpressionUUID->"6b25ec99-ae49-ec4d-9652-65328572e509"], +Cell[534877, 13354, 569, 12, 83, "Message",ExpressionUUID->"605a3153-9071-4e7e-bb3f-e5172bb765c8"], +Cell[535449, 13368, 571, 12, 63, "Message",ExpressionUUID->"5ff78df0-947b-4164-b2eb-43e56847998b"], +Cell[536023, 13382, 573, 12, 63, "Message",ExpressionUUID->"852d6ba1-7cf6-4b47-9c8a-88fe37a56b5e"], +Cell[536599, 13396, 486, 11, 26, "Message",ExpressionUUID->"1290857f-924a-4818-bfa4-6a65e26cbada"], +Cell[537088, 13409, 195, 3, 33, "Output",ExpressionUUID->"11134532-0086-4169-911a-6d5a27c94d42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[537320, 13417, 2075, 59, 234, "Input",ExpressionUUID->"3e2baf62-fab9-eb41-8de7-aa229443ac14"], +Cell[539398, 13478, 569, 12, 83, "Message",ExpressionUUID->"b9a2a78c-eb00-4ac2-a8d1-a5ef71a1b5b3"], +Cell[539970, 13492, 571, 12, 63, "Message",ExpressionUUID->"c3145f23-d998-4d64-861c-e4c605e4e351"], +Cell[540544, 13506, 573, 12, 63, "Message",ExpressionUUID->"784c5f1a-68c9-4a19-b967-160a699433cc"], +Cell[541120, 13520, 485, 11, 26, "Message",ExpressionUUID->"b7b01b5c-cb44-41c0-8dba-b0c3dd547c74"], +Cell[541608, 13533, 194, 3, 33, "Output",ExpressionUUID->"591398d3-aa04-4b0d-b013-b71c33830d49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[541839, 13541, 2051, 55, 151, "Input",ExpressionUUID->"725c3011-bda9-4c42-96ce-9a77a5dc787c"], +Cell[543893, 13598, 20504, 386, 232, "Output",ExpressionUUID->"6539f510-e815-4783-91a9-41d399ce3e3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[564434, 13989, 2141, 60, 261, "Input",ExpressionUUID->"1ea503b1-33a1-2744-a92d-2e1269faf5ed"], +Cell[566578, 14051, 528, 12, 59, "Message",ExpressionUUID->"91340e37-f708-40cd-af2f-ef90634293ed"], +Cell[567109, 14065, 531, 12, 59, "Message",ExpressionUUID->"c50169e1-411e-4ed7-b08a-172cf7225ff1"], +Cell[567643, 14079, 532, 12, 59, "Message",ExpressionUUID->"b80fbc03-db4a-4d85-be27-6929d20a5171"], +Cell[568178, 14093, 490, 11, 26, "Message",ExpressionUUID->"fd564080-48b5-4d32-82fe-2aef53ca1f77"], +Cell[568671, 14106, 22978, 423, 232, "Output",ExpressionUUID->"e04b2f99-d731-4bb4-a1af-02cf97dd2881"] +}, Open ]], +Cell[CellGroupData[{ +Cell[591686, 14534, 232, 5, 29, "Input",ExpressionUUID->"b530b35f-2a32-0145-82a7-25a7a01bdd8f"], +Cell[591921, 14541, 29340, 555, 232, "Output",ExpressionUUID->"0120efe0-c1b0-4965-895f-670a1d916e7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[621298, 15101, 1616, 48, 104, "Input",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], +Cell[622917, 15151, 625, 13, 80, "Message",ExpressionUUID->"1b9d8aea-5cf5-4d46-b517-f096de1fbb2b"], +Cell[623545, 15166, 627, 13, 80, "Message",ExpressionUUID->"fc1d8941-d5c5-45e5-a653-338529e32447"], +Cell[624175, 15181, 720, 15, 80, "Message",ExpressionUUID->"27d2c78d-3b40-4849-b597-5becbac96c62"], +Cell[624898, 15198, 490, 11, 26, "Message",ExpressionUUID->"638e6f46-b17d-4ae7-950e-aa9d54241aed"], +Cell[625391, 15211, 193, 3, 33, "Output",ExpressionUUID->"5baf40f4-3541-49f7-b390-2765df10b59d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[625621, 15219, 2274, 64, 212, "Input",ExpressionUUID->"97b28b29-5d04-5c42-a0e8-93b70f20e7f6"], +Cell[627898, 15285, 569, 12, 83, "Message",ExpressionUUID->"c4ad1a89-757f-44f2-9040-6aa5810c9249"], +Cell[628470, 15299, 573, 12, 63, "Message",ExpressionUUID->"08ecc891-5cf8-4d58-a39e-8f96d40fdf8f"], +Cell[629046, 15313, 573, 12, 63, "Message",ExpressionUUID->"f859b32b-6608-47c0-9986-1725e23d7a4f"], +Cell[629622, 15327, 488, 11, 26, "Message",ExpressionUUID->"e23e788d-c5eb-4978-88ea-111f4b92c864"], +Cell[630113, 15340, 196, 3, 33, "Output",ExpressionUUID->"73e68f4a-6b20-4897-ad25-5114febeb3c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[630346, 15348, 2233, 63, 212, "Input",ExpressionUUID->"f9d1ad25-05cb-d544-8ab6-cdce838d9efe"], +Cell[632582, 15413, 569, 12, 83, "Message",ExpressionUUID->"cfb22723-7994-45f2-bbbd-7c62f99ea090"], +Cell[633154, 15427, 575, 12, 63, "Message",ExpressionUUID->"a9a80d15-ff15-4692-a706-f7c972974dfd"], +Cell[633732, 15441, 575, 12, 63, "Message",ExpressionUUID->"6b71bc4e-52d1-4d15-8a02-d8039c93e9de"], +Cell[634310, 15455, 488, 11, 26, "Message",ExpressionUUID->"48d81b73-0911-4f58-9944-c875683ca987"], +Cell[634801, 15468, 194, 3, 33, "Output",ExpressionUUID->"9086e86d-d46d-41e6-b59d-ef67409123ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[635032, 15476, 2233, 63, 212, "Input",ExpressionUUID->"0794d062-69d5-0a45-936e-533b19d33de6"], +Cell[637268, 15541, 569, 12, 83, "Message",ExpressionUUID->"15cd4e47-9756-42d2-8bbf-947e17ebd446"], +Cell[637840, 15555, 572, 12, 63, "Message",ExpressionUUID->"c6aba85f-6a8c-4c7e-93fd-edf955223aa6"], +Cell[638415, 15569, 575, 12, 63, "Message",ExpressionUUID->"dc3e9157-7aa8-4536-8f1f-ee7ae2711029"], +Cell[638993, 15583, 488, 11, 26, "Message",ExpressionUUID->"7ac6e140-4b0d-4990-9614-d090f32b524f"], +Cell[639484, 15596, 196, 3, 33, "Output",ExpressionUUID->"c3b58d4e-4e32-41d6-8d63-77dde0292859"] +}, Open ]], +Cell[CellGroupData[{ +Cell[639717, 15604, 238, 6, 46, "Input",ExpressionUUID->"95c56266-e4d3-624e-89c1-cedeeeb0247a"], +Cell[639958, 15612, 195, 3, 33, "Output",ExpressionUUID->"0664e42e-ef6f-4ba5-832a-784f7bd3200f"] }, Open ]] } ] diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw1.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw1.nb index 7552e37..7ab0ee9 100755 --- a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 622766, 15030] -NotebookOptionsPosition[ 583345, 14402] -NotebookOutlinePosition[ 583779, 14420] -CellTagsIndexPosition[ 583736, 14417] +NotebookDataLength[ 770747, 18525] +NotebookOptionsPosition[ 730397, 17878] +NotebookOutlinePosition[ 730868, 17897] +CellTagsIndexPosition[ 730825, 17894] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -28,14 +28,14 @@ Cell[BoxData[ 3.9931205775772543`*^9, 3.9931205930074*^9}, {3.99312068244851*^9, 3.993120683031312*^9}, {3.993120763928855*^9, 3.993120796207575*^9}, { 3.993120826638487*^9, 3.99312091050727*^9}, {3.993820073004545*^9, - 3.993820073841275*^9}},ExpressionUUID->"dd9dcfd4-9683-421f-bda5-\ -b31da0d323d6"], + 3.993820073841275*^9}}, + CellLabel->"In[93]:=",ExpressionUUID->"dd9dcfd4-9683-421f-bda5-b31da0d323d6"], -Cell[BoxData["1.8`"], "Output", +Cell[BoxData["2"], "Output", CellChangeTimes->{{3.99312071481172*^9, 3.993120733996957*^9}, - 3.993120778405978*^9, {3.993120808982645*^9, 3.993120917972237*^9}}, - CellLabel-> - "Out[791]=",ExpressionUUID->"71f089d7-0dcf-4f9c-8aa5-523fa7ebebca"] + 3.993120778405978*^9, {3.993120808982645*^9, 3.993120917972237*^9}, + 3.993826067827434*^9, 3.993826262268524*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"6dab1c2b-78c0-4ea0-b1eb-28eda5dd9401"] }, Open ]], Cell[CellGroupData[{ @@ -44,17 +44,16 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.9921791748924236`*^9, 3.992179175479521*^9}}, - CellLabel-> - "In[792]:=",ExpressionUUID->"7dcc824c-c714-473c-855d-4595e82aca01"], + CellLabel->"In[94]:=",ExpressionUUID->"7dcc824c-c714-473c-855d-4595e82aca01"], Cell[BoxData["240"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.992179197984804*^9, 3.992572214097535*^9, 3.992572317060832*^9, 3.993119177905259*^9, 3.993120125010063*^9, 3.9931206200212383`*^9, 3.993120734031558*^9, 3.993120778440694*^9, { - 3.9931208090163393`*^9, 3.993120918005108*^9}}, - CellLabel-> - "Out[792]=",ExpressionUUID->"fd1bccfd-34c1-4e94-8d81-78ac9daa80da"] + 3.9931208090163393`*^9, 3.993120918005108*^9}, 3.993826067880659*^9, + 3.993826262409775*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"2a37717b-cdf5-42d4-9241-af7ee8abbba8"] }, Open ]], Cell[CellGroupData[{ @@ -63,17 +62,15 @@ Cell[BoxData[ RowBox[{"A1", "=", " ", "174"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.992179210458246*^9, 3.9921792125496464`*^9}}, - CellLabel-> - "In[793]:=",ExpressionUUID->"584dc846-b443-4e78-9de7-8414a101f8a2"], + CellLabel->"In[95]:=",ExpressionUUID->"584dc846-b443-4e78-9de7-8414a101f8a2"], Cell[BoxData["174"], "Output", CellChangeTimes->{ 3.992179213346216*^9, 3.992572214121804*^9, 3.992572317082644*^9, 3.9931191779262667`*^9, 3.993120125034624*^9, 3.993120620044674*^9, 3.993120734050745*^9, 3.993120778464333*^9, {3.9931208090398912`*^9, - 3.993120918033216*^9}}, - CellLabel-> - "Out[793]=",ExpressionUUID->"b7546eb2-a7dd-432b-b569-c556729c4981"] + 3.993120918033216*^9}, 3.993826067887217*^9, 3.99382626244092*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"b016a604-ec75-421e-b6b2-c31c69ab8095"] }, Open ]], Cell[CellGroupData[{ @@ -81,17 +78,15 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel-> - "In[794]:=",ExpressionUUID->"5b808487-9536-4677-81b9-b32effd22817"], + CellLabel->"In[96]:=",ExpressionUUID->"5b808487-9536-4677-81b9-b32effd22817"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{ 3.991319649777508*^9, 3.992572214146598*^9, 3.992572317086834*^9, 3.993119177946436*^9, 3.993120125058119*^9, 3.993120620068224*^9, 3.993120734070492*^9, 3.993120778487204*^9, {3.993120809063224*^9, - 3.993120918037675*^9}}, - CellLabel-> - "Out[794]=",ExpressionUUID->"c004b49d-d6d2-4205-9f7f-dc9bf2c42278"] + 3.993120918037675*^9}, 3.9938260678945427`*^9, 3.993826262475215*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"3b27b0ba-d11a-414c-a080-c301c36a6964"] }, Open ]], Cell[CellGroupData[{ @@ -103,34 +98,30 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel-> - "In[795]:=",ExpressionUUID->"28f4a07e-cc9f-47d8-bbfe-99b8a159e621"], + CellLabel->"In[97]:=",ExpressionUUID->"28f4a07e-cc9f-47d8-bbfe-99b8a159e621"], Cell[BoxData["0.54325`"], "Output", CellChangeTimes->{ 3.9913196497965145`*^9, 3.992572214170871*^9, 3.992572317111895*^9, 3.993119177966724*^9, 3.993120125061846*^9, 3.993120620073361*^9, 3.993120734074827*^9, 3.993120778491198*^9, {3.993120809067272*^9, - 3.993120918063335*^9}}, - CellLabel-> - "Out[795]=",ExpressionUUID->"8143efd7-4f40-4f21-b8af-9c2f3a2aec4b"] + 3.993120918063335*^9}, 3.993826067901589*^9, 3.993826262510144*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"09f6ad6b-d171-491c-9461-f71631408d95"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel-> - "In[796]:=",ExpressionUUID->"7b5372cd-097f-410a-9dde-ee8d7b47efcb"], + CellLabel->"In[98]:=",ExpressionUUID->"7b5372cd-097f-410a-9dde-ee8d7b47efcb"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{ 3.9913196498144608`*^9, 3.992572214197208*^9, 3.992572317132773*^9, 3.993119177986623*^9, 3.993120125088593*^9, 3.993120620099668*^9, 3.993120734095941*^9, 3.99312077851781*^9, {3.993120809095289*^9, - 3.993120918090218*^9}}, - CellLabel-> - "Out[796]=",ExpressionUUID->"3c21fed9-9378-4c6a-a321-bd30670a207e"] + 3.993120918090218*^9}, 3.9938260679081497`*^9, 3.9938262625398607`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"235f8e4e-5b3d-4de7-8140-9da6313745c6"] }, Open ]], Cell[CellGroupData[{ @@ -141,17 +132,15 @@ Cell[BoxData[ SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, - CellLabel-> - "In[797]:=",ExpressionUUID->"790ed917-dfad-4a40-8347-e877a413e7b7"], + CellLabel->"In[99]:=",ExpressionUUID->"790ed917-dfad-4a40-8347-e877a413e7b7"], Cell[BoxData["6.4760133991237705`"], "Output", CellChangeTimes->{ 3.9913196498225155`*^9, 3.992572214222725*^9, 3.992572317154562*^9, 3.99311917800653*^9, 3.9931201251119223`*^9, 3.993120620121489*^9, 3.993120734114851*^9, 3.993120778540956*^9, {3.993120809118425*^9, - 3.9931209181194077`*^9}}, - CellLabel-> - "Out[797]=",ExpressionUUID->"b21841a9-d4b5-4e08-b7b5-53a7b1796a54"] + 3.9931209181194077`*^9}, 3.993826067915409*^9, 3.993826262571999*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"0b9c52de-65e3-400c-b07e-389a7e0050a4"] }, Open ]], Cell[CellGroupData[{ @@ -164,16 +153,16 @@ Cell[BoxData[ RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", CellLabel-> - "In[798]:=",ExpressionUUID->"001b5f74-5cee-4774-98c8-fb175cefbb28"], + "In[100]:=",ExpressionUUID->"001b5f74-5cee-4774-98c8-fb175cefbb28"], Cell[BoxData["4.6878384239217405`"], "Output", CellChangeTimes->{ 3.9913196498425236`*^9, 3.992572214247353*^9, 3.9925723171758833`*^9, 3.993119178026596*^9, 3.993120125135309*^9, 3.9931206201430807`*^9, 3.9931207341331453`*^9, 3.993120778564814*^9, {3.993120809140911*^9, - 3.993120918144981*^9}}, + 3.993120918144981*^9}, 3.993826067919409*^9, 3.993826262604603*^9}, CellLabel-> - "Out[798]=",ExpressionUUID->"2b9b6d38-fe87-4971-96da-c998142b4518"] + "Out[100]=",ExpressionUUID->"25a255d8-5849-4c78-a4ea-d6bfcca57042"] }, Open ]], Cell[CellGroupData[{ @@ -183,16 +172,16 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799283179735*^9, {3.992179227142147*^9, 3.9921792274418793`*^9}}, CellLabel-> - "In[799]:=",ExpressionUUID->"d71ecc94-8318-4cd7-af7d-f1b9397248d9"], + "In[101]:=",ExpressionUUID->"d71ecc94-8318-4cd7-af7d-f1b9397248d9"], Cell[BoxData["0.787635594208527`"], "Output", CellChangeTimes->{ 3.9921792420000687`*^9, 3.992572214271277*^9, 3.992572317197154*^9, 3.993119178046308*^9, 3.993120125158621*^9, 3.993120620165731*^9, 3.993120734151725*^9, 3.993120778587878*^9, {3.993120809163859*^9, - 3.993120918172269*^9}}, + 3.993120918172269*^9}, 3.9938260679276667`*^9, 3.993826262633778*^9}, CellLabel-> - "Out[799]=",ExpressionUUID->"b636a8ff-d23e-489c-ac30-7ceba04fb959"] + "Out[101]=",ExpressionUUID->"a40daf56-488f-4473-94a6-d72486c0ce41"] }, Open ]], Cell[CellGroupData[{ @@ -202,16 +191,16 @@ Cell[BoxData[ CellChangeTimes->{ 3.991799280663351*^9, {3.9921792384900284`*^9, 3.9921792388312874`*^9}}, CellLabel-> - "In[800]:=",ExpressionUUID->"1bea7163-2ebf-4d7c-ab40-26fa692583b8"], + "In[102]:=",ExpressionUUID->"1bea7163-2ebf-4d7c-ab40-26fa692583b8"], Cell[BoxData["0.446333511300556`"], "Output", CellChangeTimes->{ 3.9921792398346214`*^9, 3.992572214295*^9, 3.992572317218054*^9, 3.9931191780661097`*^9, 3.9931201251823397`*^9, 3.9931206201876802`*^9, 3.993120734170333*^9, 3.993120778610222*^9, {3.993120809186323*^9, - 3.99312091819843*^9}}, + 3.99312091819843*^9}, 3.99382606793633*^9, 3.9938262626701727`*^9}, CellLabel-> - "Out[800]=",ExpressionUUID->"fb26e70a-aff0-4c8d-9f31-8849a625c144"] + "Out[102]=",ExpressionUUID->"83d91518-23a4-46d9-ad80-e0eb54bbdf66"] }, Open ]], Cell[CellGroupData[{ @@ -219,16 +208,16 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", CellLabel-> - "In[801]:=",ExpressionUUID->"a3e3cd1f-cbf4-4e81-8bfc-93c03c56f907"], + "In[103]:=",ExpressionUUID->"a3e3cd1f-cbf4-4e81-8bfc-93c03c56f907"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498927155`*^9, 3.992572214318672*^9, 3.992572317239251*^9, 3.99311917808567*^9, 3.9931201252072067`*^9, 3.993120620211128*^9, 3.9931207341889687`*^9, 3.99312077863275*^9, {3.9931208092095003`*^9, - 3.993120918224504*^9}}, + 3.993120918224504*^9}, 3.993826067943604*^9, 3.993826262700675*^9}, CellLabel-> - "Out[801]=",ExpressionUUID->"eb16effe-7bc1-46f1-b5da-bb2febd45703"] + "Out[103]=",ExpressionUUID->"44089de1-0f97-4e28-9c6e-b4dce264d246"] }, Open ]], Cell[CellGroupData[{ @@ -236,16 +225,16 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", CellLabel-> - "In[802]:=",ExpressionUUID->"c286758a-dd5f-4276-977f-87bcd04f953e"], + "In[104]:=",ExpressionUUID->"c286758a-dd5f-4276-977f-87bcd04f953e"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913196498996067`*^9, 3.992572214341442*^9, 3.99257231726003*^9, 3.9931191781051207`*^9, 3.993120125230564*^9, 3.9931206202335043`*^9, 3.99312073420716*^9, 3.993120778655138*^9, {3.993120809232238*^9, - 3.993120918250256*^9}}, + 3.993120918250256*^9}, 3.9938260679505043`*^9, 3.993826262740157*^9}, CellLabel-> - "Out[802]=",ExpressionUUID->"397bad2c-5f0c-4cd4-9cea-c2e772ff5a8d"] + "Out[104]=",ExpressionUUID->"f0a0c5ee-3faf-4b48-a3d0-1abe22648075"] }, Open ]], Cell[CellGroupData[{ @@ -270,16 +259,16 @@ Cell[BoxData[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", CellLabel-> - "In[803]:=",ExpressionUUID->"1736b587-9844-4225-9978-48310d664cf7"], + "In[105]:=",ExpressionUUID->"1736b587-9844-4225-9978-48310d664cf7"], Cell[BoxData["2.061265729478835`"], "Output", CellChangeTimes->{ 3.9913197863028755`*^9, 3.9925722143657017`*^9, 3.992572317280959*^9, 3.993119178124851*^9, 3.993120125254407*^9, 3.993120620254471*^9, 3.993120734225675*^9, 3.9931207786779127`*^9, {3.993120809254608*^9, - 3.993120918276112*^9}}, + 3.993120918276112*^9}, 3.993826067957738*^9, 3.993826262776732*^9}, CellLabel-> - "Out[803]=",ExpressionUUID->"133b4f2a-ff50-4808-a266-e16ae8426cb3"] + "Out[105]=",ExpressionUUID->"c5fd47ab-4912-465b-9837-3608e47c1200"] }, Open ]], Cell[CellGroupData[{ @@ -304,16 +293,16 @@ Cell[BoxData[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", CellLabel-> - "In[804]:=",ExpressionUUID->"156a2269-70bf-4726-8b57-80df2441dde8"], + "In[106]:=",ExpressionUUID->"156a2269-70bf-4726-8b57-80df2441dde8"], Cell[BoxData["1.500736140386642`"], "Output", CellChangeTimes->{ 3.9913197864610195`*^9, 3.992572214389948*^9, 3.992572317303102*^9, 3.993119178144163*^9, 3.9931201252777433`*^9, 3.9931206202755957`*^9, 3.993120734243594*^9, 3.9931207787003393`*^9, {3.993120809276908*^9, - 3.99312091830203*^9}}, + 3.99312091830203*^9}, 3.9938260679644947`*^9, 3.9938262628082457`*^9}, CellLabel-> - "Out[804]=",ExpressionUUID->"1146507e-0090-406e-a243-4f77cf2f31b8"] + "Out[106]=",ExpressionUUID->"a4314f09-1a0b-488e-b6ad-831ec7f00c33"] }, Open ]], Cell[CellGroupData[{ @@ -367,16 +356,16 @@ Cell[BoxData[ SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", CellLabel-> - "In[805]:=",ExpressionUUID->"13e44969-f264-4100-9ae0-ffcdb8a6ee14"], + "In[107]:=",ExpressionUUID->"13e44969-f264-4100-9ae0-ffcdb8a6ee14"], -Cell[BoxData["0.4893939523240862`"], "Output", +Cell[BoxData["0.4819667641075124`"], "Output", CellChangeTimes->{ 3.991319786533783*^9, 3.992572214413184*^9, 3.99257231732421*^9, 3.993119178164648*^9, 3.993120125301038*^9, 3.9931206202958717`*^9, 3.993120734262151*^9, 3.993120778723154*^9, {3.993120809300878*^9, - 3.99312091832813*^9}}, + 3.99312091832813*^9}, 3.993826067971408*^9, 3.993826262839364*^9}, CellLabel-> - "Out[805]=",ExpressionUUID->"ca7106b1-8cd7-4d77-b856-40214148d0d6"] + "Out[107]=",ExpressionUUID->"432339d8-e0ee-4a5c-847e-45fd98ef30f0"] }, Open ]], Cell[CellGroupData[{ @@ -426,17 +415,17 @@ Cell[BoxData[ SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", CellLabel-> - "In[806]:=",ExpressionUUID->"7d647c9c-fb30-46f9-ad54-2bca6c3ea417"], + "In[108]:=",ExpressionUUID->"7d647c9c-fb30-46f9-ad54-2bca6c3ea417"], Cell[BoxData[ - RowBox[{"-", "0.11691975046471094`"}]], "Output", + RowBox[{"-", "0.11350137337476086`"}]], "Output", CellChangeTimes->{ 3.991319786540777*^9, 3.992572214437451*^9, 3.9925723173458*^9, 3.993119178185848*^9, 3.993120125324417*^9, 3.9931206203183327`*^9, 3.993120734281169*^9, 3.9931207787467546`*^9, {3.9931208093296213`*^9, - 3.99312091835464*^9}}, + 3.99312091835464*^9}, 3.9938260679792547`*^9, 3.993826262876649*^9}, CellLabel-> - "Out[806]=",ExpressionUUID->"8eb5526c-ca9b-454d-9e72-3b94bb4239cf"] + "Out[108]=",ExpressionUUID->"d9c3fdfc-aac1-48e3-9ebb-b0ffbe816db5"] }, Open ]], Cell[CellGroupData[{ @@ -486,17 +475,17 @@ Cell[BoxData[ SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", CellLabel-> - "In[807]:=",ExpressionUUID->"27a549f5-e1cc-4650-b38b-1ad808b9d74d"], + "In[109]:=",ExpressionUUID->"27a549f5-e1cc-4650-b38b-1ad808b9d74d"], Cell[BoxData[ - RowBox[{"-", "0.47923841529777084`"}]], "Output", + RowBox[{"-", "0.4652269449262844`"}]], "Output", CellChangeTimes->{ 3.9913197865777817`*^9, 3.992572214463674*^9, 3.992572317369649*^9, 3.9931191782082033`*^9, 3.99312012534838*^9, 3.993120620340795*^9, 3.993120734300748*^9, 3.993120778771158*^9, {3.993120809354206*^9, - 3.993120918381035*^9}}, + 3.993120918381035*^9}, 3.99382606798698*^9, 3.993826262914558*^9}, CellLabel-> - "Out[807]=",ExpressionUUID->"64903f7c-c056-4432-b67a-5fa35c8c85bc"] + "Out[109]=",ExpressionUUID->"141c9fdb-4c01-4498-a5f9-bab261fe66dd"] }, Open ]], Cell[CellGroupData[{ @@ -550,16 +539,16 @@ Cell[BoxData[ SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", CellLabel-> - "In[808]:=",ExpressionUUID->"5e91c74f-1789-45c9-a214-2244c72ade7d"], + "In[110]:=",ExpressionUUID->"5e91c74f-1789-45c9-a214-2244c72ade7d"], -Cell[BoxData["0.6645788995097195`"], "Output", +Cell[BoxData["0.6581300944010081`"], "Output", CellChangeTimes->{ 3.9913197866129*^9, 3.992572214489163*^9, 3.992572317393075*^9, 3.993119178231051*^9, 3.9931201253721113`*^9, 3.99312062036334*^9, 3.993120734321094*^9, 3.993120778795766*^9, {3.993120809378998*^9, - 3.993120918385751*^9}}, + 3.993120918385751*^9}, 3.993826067996015*^9, 3.9938262629240227`*^9}, CellLabel-> - "Out[808]=",ExpressionUUID->"31f182a9-76a8-47b9-8f55-c48f52b240d7"] + "Out[110]=",ExpressionUUID->"9b70f539-b322-447a-a772-2190140554cf"] }, Open ]], Cell[CellGroupData[{ @@ -567,16 +556,16 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellLabel-> - "In[809]:=",ExpressionUUID->"7a482116-c539-43ca-85e3-f73fb60f240c"], + "In[111]:=",ExpressionUUID->"7a482116-c539-43ca-85e3-f73fb60f240c"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786620775*^9, 3.992572214515427*^9, 3.99257231741498*^9, 3.993119178253972*^9, 3.993120125375824*^9, 3.993120620387291*^9, 3.993120734341495*^9, 3.993120778819956*^9, {3.9931208093832693`*^9, - 3.9931209184116087`*^9}}, + 3.9931209184116087`*^9}, 3.993826068007461*^9, 3.993826262980954*^9}, CellLabel-> - "Out[809]=",ExpressionUUID->"e64b6eb2-75dd-486e-8ee1-d800f1edbab4"] + "Out[111]=",ExpressionUUID->"6dd89711-7689-4878-8c98-fe2983f460ec"] }, Open ]], Cell[CellGroupData[{ @@ -584,16 +573,16 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", CellLabel-> - "In[810]:=",ExpressionUUID->"ea634259-306f-4340-9a17-572370411175"], + "In[112]:=",ExpressionUUID->"ea634259-306f-4340-9a17-572370411175"], Cell[BoxData["0.09`"], "Output", CellChangeTimes->{ 3.991319786657793*^9, 3.9925722145429707`*^9, 3.992572317437202*^9, 3.993119178277193*^9, 3.9931201254011793`*^9, 3.993120620412382*^9, 3.9931207343622217`*^9, 3.9931207788442707`*^9, {3.99312080941044*^9, - 3.9931209184381313`*^9}}, + 3.9931209184381313`*^9}, 3.993826068014967*^9, 3.993826263014255*^9}, CellLabel-> - "Out[810]=",ExpressionUUID->"5a9d1eaf-bc28-4a92-a9bd-717db8ce16da"] + "Out[112]=",ExpressionUUID->"a44566e0-bd2b-4010-a5f2-4c70e3c3b21d"] }, Open ]], Cell[CellGroupData[{ @@ -601,16 +590,16 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", CellLabel-> - "In[811]:=",ExpressionUUID->"f54223b7-3ea2-47c0-86bb-064a003a0c65"], + "In[113]:=",ExpressionUUID->"f54223b7-3ea2-47c0-86bb-064a003a0c65"], Cell[BoxData["0.42`"], "Output", CellChangeTimes->{ 3.9913197866657925`*^9, 3.992572214574439*^9, 3.992572317459443*^9, 3.993119178300417*^9, 3.9931201254244537`*^9, 3.9931206204363203`*^9, 3.993120734383583*^9, 3.9931207788686132`*^9, {3.9931208094353867`*^9, - 3.9931209184643908`*^9}}, + 3.9931209184643908`*^9}, 3.9938260680220423`*^9, 3.993826263044652*^9}, CellLabel-> - "Out[811]=",ExpressionUUID->"2760ec95-9401-42cb-8266-78f21b99cbf3"] + "Out[113]=",ExpressionUUID->"7f88315d-c557-4744-b4b5-2e4df78b9d63"] }, Open ]], Cell[CellGroupData[{ @@ -620,7 +609,7 @@ Cell[BoxData[ RowBox[{"-", "2.59"}]}]], "Input", CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, CellLabel-> - "In[812]:=",ExpressionUUID->"0541a946-202c-4b2c-83f8-ebb523379191"], + "In[114]:=",ExpressionUUID->"0541a946-202c-4b2c-83f8-ebb523379191"], Cell[BoxData[ RowBox[{"-", "2.59`"}]], "Output", @@ -628,9 +617,9 @@ Cell[BoxData[ 3.9913197866996*^9, 3.992572214602646*^9, 3.9925723174828*^9, 3.993119178323925*^9, 3.993120125448517*^9, 3.993120620460043*^9, 3.993120734387587*^9, 3.993120778893586*^9, {3.99312080946041*^9, - 3.993120918489931*^9}}, + 3.993120918489931*^9}, 3.9938260680291452`*^9, 3.9938262630744953`*^9}, CellLabel-> - "Out[812]=",ExpressionUUID->"4c02c8a0-a1df-4c84-a94e-5fcbaab897df"] + "Out[114]=",ExpressionUUID->"10c181c9-1933-4313-8003-9ff8d241ef03"] }, Open ]], Cell[CellGroupData[{ @@ -638,16 +627,16 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", CellLabel-> - "In[813]:=",ExpressionUUID->"e87a0bbb-4305-42aa-bd42-1c6fa342cfc8"], + "In[115]:=",ExpressionUUID->"e87a0bbb-4305-42aa-bd42-1c6fa342cfc8"], Cell[BoxData["0.54`"], "Output", CellChangeTimes->{ 3.9913197867406044`*^9, 3.992572214629313*^9, 3.992572317507607*^9, 3.9931191783485727`*^9, 3.993120125472217*^9, 3.993120620483555*^9, 3.9931207344112377`*^9, 3.993120778917965*^9, {3.9931208094855137`*^9, - 3.993120918515835*^9}}, + 3.993120918515835*^9}, 3.993826068036478*^9, 3.993826263119163*^9}, CellLabel-> - "Out[813]=",ExpressionUUID->"d95a15bc-2ec7-4a91-ae7c-98832b6c97d7"] + "Out[115]=",ExpressionUUID->"d867ac92-e81c-456a-8dc9-ee294e359fc6"] }, Open ]], Cell[CellGroupData[{ @@ -658,16 +647,16 @@ Cell[BoxData[ 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.992179334842106*^9, 3.992179335687786*^9}}, CellLabel-> - "In[814]:=",ExpressionUUID->"7c0eb7f0-9d06-45cd-b294-8a4c83a9759a"], + "In[116]:=",ExpressionUUID->"7c0eb7f0-9d06-45cd-b294-8a4c83a9759a"], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.992179336847067*^9, 3.9925722146573257`*^9, 3.992572317531928*^9, 3.9931191783727818`*^9, 3.99312012549559*^9, 3.993120620507852*^9, 3.99312073443309*^9, 3.9931207789437017`*^9, {3.993120809511362*^9, - 3.993120918541663*^9}}, + 3.993120918541663*^9}, 3.993826068043448*^9, 3.993826263156348*^9}, CellLabel-> - "Out[814]=",ExpressionUUID->"255991d9-42a7-403f-a2a3-44f6ef5a8dd8"] + "Out[116]=",ExpressionUUID->"0d278ec9-2f3d-46fe-8e6d-bee550f96eb0"] }, Open ]], Cell[CellGroupData[{ @@ -678,16 +667,17 @@ Cell[BoxData[ CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9921793256443367`*^9, 3.992179330522312*^9}}, CellLabel-> - "In[815]:=",ExpressionUUID->"8b2b0bd6-e999-4d3a-8603-6ef666baf6b8"], + "In[117]:=",ExpressionUUID->"8b2b0bd6-e999-4d3a-8603-6ef666baf6b8"], Cell[BoxData["30"], "Output", CellChangeTimes->{ 3.9913197867928696`*^9, 3.9921793318030663`*^9, 3.9925722146853657`*^9, 3.9925723175551643`*^9, 3.993119178397065*^9, 3.9931201255193787`*^9, 3.993120620532507*^9, 3.993120734454447*^9, 3.9931207789693117`*^9, { - 3.993120809536613*^9, 3.9931209185672503`*^9}}, + 3.993120809536613*^9, 3.9931209185672503`*^9}, 3.993826068050412*^9, + 3.99382626319352*^9}, CellLabel-> - "Out[815]=",ExpressionUUID->"cbb76a17-a13f-4118-a7e4-03f53fb74bda"] + "Out[117]=",ExpressionUUID->"ebfbc936-d040-45a4-b9df-a8d9409524a9"] }, Open ]], Cell[CellGroupData[{ @@ -697,16 +687,16 @@ Cell[BoxData[ RowBox[{"A", "-", "A1"}]}]], "Input", CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, CellLabel-> - "In[816]:=",ExpressionUUID->"161e6521-bc56-4dfd-a046-9fc45d73a999"], + "In[118]:=",ExpressionUUID->"161e6521-bc56-4dfd-a046-9fc45d73a999"], Cell[BoxData["66"], "Output", CellChangeTimes->{ 3.991319786827894*^9, 3.992572214711643*^9, 3.9925723175775127`*^9, 3.993119178422393*^9, 3.993120125544594*^9, 3.9931206205571127`*^9, 3.993120734475452*^9, 3.993120778995337*^9, {3.993120809563072*^9, - 3.993120918592782*^9}}, + 3.993120918592782*^9}, 3.993826068058442*^9, 3.9938262632288523`*^9}, CellLabel-> - "Out[816]=",ExpressionUUID->"67c9d1fd-5617-49c5-8946-d54d59d8cc4b"] + "Out[118]=",ExpressionUUID->"7d769a82-1c5f-47d2-aa48-19c411f2b8c0"] }, Open ]], Cell[CellGroupData[{ @@ -722,16 +712,16 @@ Cell[BoxData[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", CellLabel-> - "In[817]:=",ExpressionUUID->"e2ee5596-377d-47e9-ba0e-ba4715189ab1"], + "In[119]:=",ExpressionUUID->"e2ee5596-377d-47e9-ba0e-ba4715189ab1"], Cell[BoxData["0.10009404388714734`"], "Output", CellChangeTimes->{ 3.9913197868648605`*^9, 3.9925722147384853`*^9, 3.9925723175992517`*^9, 3.993119178447468*^9, 3.9931201255690928`*^9, 3.99312062058057*^9, 3.993120734496913*^9, 3.9931207790217533`*^9, {3.993120809589333*^9, - 3.993120918618535*^9}}, + 3.993120918618535*^9}, 3.9938260680684357`*^9, 3.993826263263302*^9}, CellLabel-> - "Out[817]=",ExpressionUUID->"6d065012-6ae0-4a15-ab7e-23c0758da6b5"] + "Out[119]=",ExpressionUUID->"0e6396c6-aecd-4bf8-bc55-9cf99047021c"] }, Open ]], Cell[CellGroupData[{ @@ -747,7 +737,7 @@ Cell[BoxData[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", CellLabel-> - "In[818]:=",ExpressionUUID->"83eb4ed2-6dfc-4ba7-ac7e-dc009b382bed"], + "In[120]:=",ExpressionUUID->"83eb4ed2-6dfc-4ba7-ac7e-dc009b382bed"], Cell[BoxData[ RowBox[{"-", "2.5770219435736674`"}]], "Output", @@ -755,9 +745,9 @@ Cell[BoxData[ 3.9913197868718567`*^9, 3.9925722147662983`*^9, 3.992572317620441*^9, 3.99311917847161*^9, 3.9931201255928173`*^9, 3.993120620603883*^9, 3.99312073451705*^9, 3.993120779047393*^9, {3.993120809616363*^9, - 3.99312091864408*^9}}, + 3.99312091864408*^9}, 3.9938260680753937`*^9, 3.9938262632966022`*^9}, CellLabel-> - "Out[818]=",ExpressionUUID->"9075a821-a828-4d8d-a659-e129e1cf260d"] + "Out[120]=",ExpressionUUID->"37c53f07-6bfa-4cd1-b82b-b869df98f58f"] }, Open ]], Cell[CellGroupData[{ @@ -789,16 +779,16 @@ Cell[BoxData[ 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, CellLabel-> - "In[819]:=",ExpressionUUID->"8072c677-ed25-44a8-9254-3d3d9447cfe4"], + "In[121]:=",ExpressionUUID->"8072c677-ed25-44a8-9254-3d3d9447cfe4"], -Cell[BoxData["17.107103859214785`"], "Output", +Cell[BoxData["17.307103859214784`"], "Output", CellChangeTimes->{ 3.9913197869068584`*^9, 3.9925722147917547`*^9, 3.992572317642908*^9, 3.9931191784953337`*^9, 3.9931201256157637`*^9, 3.993120620627388*^9, 3.993120734537298*^9, 3.993120779073007*^9, {3.993120809642799*^9, - 3.99312091866967*^9}}, + 3.99312091866967*^9}, 3.9938260680834007`*^9, 3.993826263369833*^9}, CellLabel-> - "Out[819]=",ExpressionUUID->"2d8ed23b-c09e-4b8c-8dd6-af975a869850"] + "Out[121]=",ExpressionUUID->"5c5f4e50-8118-4501-a2c5-38774eb5ce2b"] }, Open ]], Cell[CellGroupData[{ @@ -807,16 +797,16 @@ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, CellLabel-> - "In[820]:=",ExpressionUUID->"036b3ae2-630a-4a38-a182-65b537997030"], + "In[122]:=",ExpressionUUID->"036b3ae2-630a-4a38-a182-65b537997030"], Cell[BoxData["300"], "Output", CellChangeTimes->{ 3.991319786940857*^9, 3.992572214844244*^9, 3.992572317663885*^9, 3.993119178519957*^9, 3.9931201256394*^9, 3.993120620650062*^9, 3.9931207345574923`*^9, 3.9931207790984907`*^9, {3.99312080966818*^9, - 3.993120918694831*^9}}, + 3.993120918694831*^9}, 3.993826068090602*^9, 3.993826263400247*^9}, CellLabel-> - "Out[820]=",ExpressionUUID->"7227e8b9-5a37-40fd-979a-c27b8d806e04"] + "Out[122]=",ExpressionUUID->"8a966946-e3e9-43aa-bcc8-6be658dd6c5a"] }, Open ]], Cell[CellGroupData[{ @@ -827,22 +817,22 @@ Cell[BoxData[ 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.99217938935705*^9, 3.9921793928277493`*^9}}, CellLabel-> - "In[821]:=",ExpressionUUID->"9edaecee-d32e-4be8-bd42-1e687186fb4d"], + "In[123]:=",ExpressionUUID->"9edaecee-d32e-4be8-bd42-1e687186fb4d"], Cell[BoxData["1.73`"], "Output", CellChangeTimes->{ 3.992179393619543*^9, 3.99257221486978*^9, 3.9925723176844263`*^9, 3.993119178543579*^9, 3.993120125662697*^9, 3.993120620672945*^9, 3.993120734577505*^9, 3.99312077912435*^9, {3.993120809694366*^9, - 3.9931209187201843`*^9}}, + 3.9931209187201843`*^9}, 3.9938260680973577`*^9, 3.993826263446189*^9}, CellLabel-> - "Out[821]=",ExpressionUUID->"7979909c-af2f-44c7-a643-1a5e2374f69b"] + "Out[123]=",ExpressionUUID->"6fee1a2c-6c08-4575-bb03-742c6b64e22e"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, CellLabel-> - "In[822]:=",ExpressionUUID->"c32c1952-2063-4bc0-b522-543f9ed15363"], + "In[124]:=",ExpressionUUID->"c32c1952-2063-4bc0-b522-543f9ed15363"], Cell[CellGroupData[{ @@ -852,22 +842,22 @@ Cell[BoxData[ 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.992179397583227*^9, 3.992179400444868*^9}}, CellLabel-> - "In[823]:=",ExpressionUUID->"7a216ff1-d300-4bf0-ab92-54cca1e0ad89"], + "In[125]:=",ExpressionUUID->"7a216ff1-d300-4bf0-ab92-54cca1e0ad89"], Cell[BoxData["0.76`"], "Output", CellChangeTimes->{ 3.992179401201977*^9, 3.992572214909528*^9, 3.992572317717004*^9, 3.993119178580999*^9, 3.993120125699438*^9, 3.993120620708702*^9, 3.993120734611329*^9, 3.993120779164959*^9, {3.9931208097375097`*^9, - 3.993120918756428*^9}}, + 3.993120918756428*^9}, 3.993826068107296*^9, 3.99382626356695*^9}, CellLabel-> - "Out[823]=",ExpressionUUID->"628cf8a4-9553-489c-bada-ca3dbd35ff46"] + "Out[125]=",ExpressionUUID->"f936c534-6bf4-4db9-a1e7-72c6685e2933"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, CellLabel-> - "In[824]:=",ExpressionUUID->"4c5193ce-02f4-44a7-843f-31cc0aca3d1c"], + "In[126]:=",ExpressionUUID->"4c5193ce-02f4-44a7-843f-31cc0aca3d1c"], Cell[CellGroupData[{ @@ -877,22 +867,22 @@ Cell[BoxData[ 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.9921794031483917`*^9, 3.9921794061884384`*^9}}, CellLabel-> - "In[825]:=",ExpressionUUID->"fd838566-0558-4d1c-b173-75f88e252bd8"], + "In[127]:=",ExpressionUUID->"fd838566-0558-4d1c-b173-75f88e252bd8"], Cell[BoxData["2.4`"], "Output", CellChangeTimes->{ 3.992179407540327*^9, 3.992572214945683*^9, 3.9925723177561007`*^9, 3.993119178617138*^9, 3.993120125731515*^9, 3.993120620741789*^9, 3.99312073464296*^9, 3.993120779203336*^9, {3.993120809773469*^9, - 3.993120918792803*^9}}, + 3.993120918792803*^9}, 3.993826068116214*^9, 3.993826263679204*^9}, CellLabel-> - "Out[825]=",ExpressionUUID->"16118013-5872-490c-ae47-4576fc7e80ad"] + "Out[127]=",ExpressionUUID->"217aa148-1a6e-4845-86a0-6755725c8ef4"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, CellLabel-> - "In[826]:=",ExpressionUUID->"7e3dccb6-c958-4c9c-8079-58ceb9f9b614"], + "In[128]:=",ExpressionUUID->"7e3dccb6-c958-4c9c-8079-58ceb9f9b614"], Cell[CellGroupData[{ @@ -902,22 +892,22 @@ Cell[BoxData[ 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.992179410033045*^9, 3.9921794153030643`*^9}}, CellLabel-> - "In[827]:=",ExpressionUUID->"2c752b9c-11a9-43dc-81e0-db5582a71605"], + "In[129]:=",ExpressionUUID->"2c752b9c-11a9-43dc-81e0-db5582a71605"], Cell[BoxData["1.105`"], "Output", CellChangeTimes->{ 3.992179415754301*^9, 3.992572214981649*^9, 3.992572317797142*^9, 3.9931191786546717`*^9, 3.993120125772245*^9, 3.993120620774741*^9, 3.993120734674015*^9, 3.993120779246025*^9, {3.9931208098102417`*^9, - 3.993120918832294*^9}}, + 3.993120918832294*^9}, 3.993826068125029*^9, 3.993826263790113*^9}, CellLabel-> - "Out[827]=",ExpressionUUID->"48133414-a63b-4332-8ded-06be5ec919ca"] + "Out[129]=",ExpressionUUID->"c9d6d796-2762-417a-8a66-9d4afe41f637"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, CellLabel-> - "In[828]:=",ExpressionUUID->"69ed9a70-1acf-4787-9df1-c8a58e37f569"], + "In[130]:=",ExpressionUUID->"69ed9a70-1acf-4787-9df1-c8a58e37f569"], Cell[CellGroupData[{ @@ -927,22 +917,22 @@ Cell[BoxData[ 3.991718016467348*^9, 3.991799361414671*^9, {3.9921794177283573`*^9, 3.992179423583313*^9}}, CellLabel-> - "In[829]:=",ExpressionUUID->"09cfcfa5-64e4-4620-a2b5-9f922df7b73e"], + "In[131]:=",ExpressionUUID->"09cfcfa5-64e4-4620-a2b5-9f922df7b73e"], Cell[BoxData["1.4012`"], "Output", CellChangeTimes->{ 3.9921794257836323`*^9, 3.992572215020274*^9, 3.9925723178372593`*^9, 3.993119178721389*^9, 3.9931201258041277`*^9, 3.993120620807364*^9, 3.9931207347045813`*^9, 3.99312077928405*^9, {3.993120809849883*^9, - 3.993120918882786*^9}}, + 3.993120918882786*^9}, 3.993826068133563*^9, 3.993826263911735*^9}, CellLabel-> - "Out[829]=",ExpressionUUID->"521cd720-75cf-4bd3-a410-28c6dc19a6cd"] + "Out[131]=",ExpressionUUID->"b222b702-2a98-446b-acfb-a43cb3853f28"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, CellLabel-> - "In[830]:=",ExpressionUUID->"25db9763-73a6-4053-b9be-e24a242afa4d"], + "In[132]:=",ExpressionUUID->"25db9763-73a6-4053-b9be-e24a242afa4d"], Cell[CellGroupData[{ @@ -952,22 +942,22 @@ Cell[BoxData[ 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9921794277801266`*^9, 3.9921794329809513`*^9}}, CellLabel-> - "In[831]:=",ExpressionUUID->"01b83192-9964-4116-8b42-c27efb527d64"], + "In[133]:=",ExpressionUUID->"01b83192-9964-4116-8b42-c27efb527d64"], Cell[BoxData["0.5547`"], "Output", CellChangeTimes->{ 3.9921794363325005`*^9, 3.992572215056624*^9, 3.992572317866984*^9, 3.9931191787561502`*^9, 3.993120125890787*^9, 3.9931206208406067`*^9, 3.993120734738842*^9, 3.993120779339178*^9, {3.993120809889782*^9, - 3.993120918919759*^9}}, + 3.993120918919759*^9}, 3.993826068142332*^9, 3.993826264021447*^9}, CellLabel-> - "Out[831]=",ExpressionUUID->"53b9f562-b01a-4ae9-9fc6-1427d6a7f17e"] + "Out[133]=",ExpressionUUID->"38c0e727-70e3-4990-b0bb-8e6dc2e3e309"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, CellLabel-> - "In[832]:=",ExpressionUUID->"dea1f43e-f5ed-4242-9424-7ddadd695b03"], + "In[134]:=",ExpressionUUID->"dea1f43e-f5ed-4242-9424-7ddadd695b03"], Cell[CellGroupData[{ @@ -977,22 +967,22 @@ Cell[BoxData[ 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9921794404678802`*^9, 3.992179445208559*^9}}, CellLabel-> - "In[833]:=",ExpressionUUID->"5ba9f01f-8d54-4308-9dc0-7c727f65b81e"], + "In[135]:=",ExpressionUUID->"5ba9f01f-8d54-4308-9dc0-7c727f65b81e"], Cell[BoxData["1.1338`"], "Output", CellChangeTimes->{ 3.99217944657938*^9, 3.992572215093463*^9, 3.992572317906247*^9, 3.99311917879039*^9, 3.9931201260449333`*^9, 3.993120620873763*^9, 3.993120734773638*^9, 3.993120779536425*^9, {3.993120809930094*^9, - 3.993120918956725*^9}}, + 3.993120918956725*^9}, 3.993826068151202*^9, 3.993826264140924*^9}, CellLabel-> - "Out[833]=",ExpressionUUID->"bf11a96c-813f-4ce0-b5f0-b5dd54a2cf5d"] + "Out[135]=",ExpressionUUID->"0724c9fb-5ff8-414d-8cd5-d5e0bd3cf9ca"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, CellLabel-> - "In[834]:=",ExpressionUUID->"4e9612f9-2502-4606-82ad-ba1f87b9a20b"], + "In[136]:=",ExpressionUUID->"4e9612f9-2502-4606-82ad-ba1f87b9a20b"], Cell[CellGroupData[{ @@ -1001,22 +991,22 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.9921794486072216`*^9, 3.992179451994211*^9}}, CellLabel-> - "In[835]:=",ExpressionUUID->"3a93e438-690f-47c1-ab87-c06a1606afb2"], + "In[137]:=",ExpressionUUID->"3a93e438-690f-47c1-ab87-c06a1606afb2"], Cell[BoxData["0.85`"], "Output", CellChangeTimes->{ 3.992179452410452*^9, 3.9925722151320877`*^9, 3.99257231794547*^9, 3.9931191788237534`*^9, 3.993120126088036*^9, 3.993120620906579*^9, 3.993120734815996*^9, 3.99312077958954*^9, {3.993120809970735*^9, - 3.993120919005844*^9}}, + 3.993120919005844*^9}, 3.993826068160324*^9, 3.9938262642826014`*^9}, CellLabel-> - "Out[835]=",ExpressionUUID->"67f3903b-d44b-4c15-8094-a672822f61f9"] + "Out[137]=",ExpressionUUID->"c153c0ba-e611-4f5b-b6a6-f12f45cda33b"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, CellLabel-> - "In[836]:=",ExpressionUUID->"cf32dc23-38f4-4d48-856d-1c607860a5be"], + "In[138]:=",ExpressionUUID->"cf32dc23-38f4-4d48-856d-1c607860a5be"], Cell[CellGroupData[{ @@ -1506,16 +1496,16 @@ Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], CellLabel-> - "In[837]:=",ExpressionUUID->"c84fcfb9-22dc-4660-af0b-21454e0f8a37"], + "In[139]:=",ExpressionUUID->"c84fcfb9-22dc-4660-af0b-21454e0f8a37"], -Cell[BoxData["0.2740681472438999`"], "Output", +Cell[BoxData["0.20251257452349652`"], "Output", CellChangeTimes->{ 3.991319787430073*^9, 3.9925722152487392`*^9, 3.99257231801375*^9, 3.993119178932695*^9, 3.9931201261547956`*^9, 3.993120621085143*^9, 3.993120734882799*^9, 3.993120779663743*^9, {3.9931208100453367`*^9, - 3.993120919069702*^9}}, + 3.993120919069702*^9}, 3.993826068236418*^9, 3.993826264560258*^9}, CellLabel-> - "Out[837]=",ExpressionUUID->"114a1667-2b83-49f8-b7c0-66c011bbd0f0"] + "Out[139]=",ExpressionUUID->"b3048947-9644-4934-8f95-53caf717cd05"] }, Open ]], Cell[CellGroupData[{ @@ -2010,16 +2000,16 @@ Cell[BoxData[ 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, CellLabel-> - "In[838]:=",ExpressionUUID->"a1a7567b-6fc3-473f-b830-2b8940637361"], + "In[140]:=",ExpressionUUID->"a1a7567b-6fc3-473f-b830-2b8940637361"], -Cell[BoxData["6.729727276682354`"], "Output", +Cell[BoxData["5.409861784548971`"], "Output", CellChangeTimes->{ 3.991319787574972*^9, 3.992572215281089*^9, 3.992572318073772*^9, 3.993119178961668*^9, 3.9931201261913633`*^9, 3.9931206212251253`*^9, 3.993120734908091*^9, 3.993120779691341*^9, {3.993120810074683*^9, - 3.9931209190984907`*^9}}, + 3.9931209190984907`*^9}, 3.993826068269435*^9, 3.993826264610528*^9}, CellLabel-> - "Out[838]=",ExpressionUUID->"07516dd9-4b91-4cd5-8adf-7d2da56e5428"] + "Out[140]=",ExpressionUUID->"adca192e-8ba6-459c-b9a2-05ff8559e87d"] }, Open ]], Cell[CellGroupData[{ @@ -2508,17 +2498,17 @@ Cell[BoxData[ 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, 3.943439550065191*^9}}, CellLabel-> - "In[839]:=",ExpressionUUID->"df0b8849-90eb-4cb8-ad0d-a1d1f6f6f223"], + "In[141]:=",ExpressionUUID->"df0b8849-90eb-4cb8-ad0d-a1d1f6f6f223"], Cell[BoxData[ - RowBox[{"-", "33.539435872430126`"}]], "Output", + RowBox[{"-", "26.71933695492077`"}]], "Output", CellChangeTimes->{ 3.991319787641424*^9, 3.992572215310524*^9, 3.9925723181046333`*^9, 3.9931191789891367`*^9, 3.993120126228422*^9, 3.9931206213349524`*^9, 3.993120734934422*^9, 3.993120779718647*^9, {3.993120810103335*^9, - 3.9931209191268253`*^9}}, + 3.9931209191268253`*^9}, 3.993826068303822*^9, 3.9938262646967297`*^9}, CellLabel-> - "Out[839]=",ExpressionUUID->"f2969697-38d7-4b5e-a602-995bd4a2b9ac"] + "Out[141]=",ExpressionUUID->"858995fc-d57c-41d4-a2a8-15091a39088f"] }, Open ]], Cell[CellGroupData[{ @@ -3077,17 +3067,17 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[840]:=",ExpressionUUID->"72284c56-eacd-4f84-b01f-494c6d688fa2"], + "In[142]:=",ExpressionUUID->"72284c56-eacd-4f84-b01f-494c6d688fa2"], Cell[BoxData[ - RowBox[{"-", "42.596524206199966`"}]], "Output", + RowBox[{"-", "33.90805078336294`"}]], "Output", CellChangeTimes->{ 3.991319787711939*^9, 3.9925722153471212`*^9, 3.992572318139402*^9, 3.993119179022643*^9, 3.993120126260621*^9, 3.99312062146356*^9, 3.993120734966599*^9, 3.993120779750485*^9, {3.9931208101344213`*^9, - 3.993120919158321*^9}}, + 3.993120919158321*^9}, 3.9938260683438673`*^9, 3.993826264786984*^9}, CellLabel-> - "Out[840]=",ExpressionUUID->"9ec9f91b-f7c8-4956-9238-5d1a587e8942"] + "Out[142]=",ExpressionUUID->"dec7171f-0ef8-4707-9133-1ca992cc4757"] }, Open ]], Cell[CellGroupData[{ @@ -3646,17 +3636,17 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[841]:=",ExpressionUUID->"f81a9a41-66ce-4d2c-99fa-c101ce857f23"], + "In[143]:=",ExpressionUUID->"f81a9a41-66ce-4d2c-99fa-c101ce857f23"], Cell[BoxData[ - RowBox[{"-", "101.06737781470315`"}]], "Output", + RowBox[{"-", "80.51800540734116`"}]], "Output", CellChangeTimes->{ 3.9913197877723045`*^9, 3.992572215384285*^9, 3.992572318174841*^9, 3.9931191790553703`*^9, 3.993120126295026*^9, 3.993120621602091*^9, 3.993120734997818*^9, 3.9931207797928047`*^9, {3.993120810164044*^9, - 3.993120919189701*^9}}, + 3.993120919189701*^9}, 3.993826068381908*^9, 3.9938262648511*^9}, CellLabel-> - "Out[841]=",ExpressionUUID->"d15f00e4-8213-4cd4-b563-8d82b14f767e"] + "Out[143]=",ExpressionUUID->"a00cd805-1d31-429a-9fbb-51b1e84dbe4b"] }, Open ]], Cell[CellGroupData[{ @@ -4288,17 +4278,17 @@ Cell[BoxData[ RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[842]:=",ExpressionUUID->"01330e52-1b01-4121-b0ab-9a097302a897"], + "In[144]:=",ExpressionUUID->"01330e52-1b01-4121-b0ab-9a097302a897"], Cell[BoxData[ - RowBox[{"-", "257.9635659781649`"}]], "Output", + RowBox[{"-", "205.49185741459576`"}]], "Output", CellChangeTimes->{ 3.991319787833355*^9, 3.992572215426282*^9, 3.992572318215456*^9, 3.993119179092291*^9, 3.9931201263315697`*^9, 3.9931206217665358`*^9, 3.993120735034762*^9, 3.993120779834642*^9, {3.993120810200284*^9, - 3.993120919227768*^9}}, + 3.993120919227768*^9}, 3.99382606842833*^9, 3.993826264955463*^9}, CellLabel-> - "Out[842]=",ExpressionUUID->"e872e107-4343-4ced-bd96-e52b610cf337"] + "Out[144]=",ExpressionUUID->"1801d65f-e4e6-4889-9c36-fe96c9be16da"] }, Open ]], Cell[CellGroupData[{ @@ -4306,16 +4296,16 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", CellLabel-> - "In[843]:=",ExpressionUUID->"35c1d571-a4e1-477e-a672-feec6bc36d4f"], + "In[145]:=",ExpressionUUID->"35c1d571-a4e1-477e-a672-feec6bc36d4f"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210013676`*^9, 3.9925722154529037`*^9, 3.9925723182371407`*^9, 3.993119179114964*^9, 3.993120126352831*^9, 3.993120621792342*^9, 3.99312073505088*^9, 3.9931207798622704`*^9, {3.993120810226747*^9, - 3.9931209192549257`*^9}}, + 3.9931209192549257`*^9}, 3.993826068438217*^9, 3.993826265013506*^9}, CellLabel-> - "Out[843]=",ExpressionUUID->"2e6a4d1b-4aa7-4ce9-afa4-e480a6345597"] + "Out[145]=",ExpressionUUID->"87897e4c-f1d6-4a40-836f-102251f49722"] }, Open ]], Cell[CellGroupData[{ @@ -4323,16 +4313,16 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", CellLabel-> - "In[844]:=",ExpressionUUID->"2d268bd9-e47a-4c6d-95cd-4931d98e4399"], + "In[146]:=",ExpressionUUID->"2d268bd9-e47a-4c6d-95cd-4931d98e4399"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.9913204210355663`*^9, 3.992572215478106*^9, 3.992572318257779*^9, 3.9931191791375523`*^9, 3.993120126374206*^9, 3.993120621815301*^9, 3.993120735073701*^9, 3.993120779889783*^9, {3.993120810252183*^9, - 3.993120919282319*^9}}, + 3.993120919282319*^9}, 3.9938260684451637`*^9, 3.9938262650635433`*^9}, CellLabel-> - "Out[844]=",ExpressionUUID->"8e802030-bb7a-4462-a9f9-1d4a00388d8e"] + "Out[146]=",ExpressionUUID->"97a10d97-6e55-44da-a43d-d537ce57de7b"] }, Open ]], Cell[CellGroupData[{ @@ -4377,16 +4367,16 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[845]:=",ExpressionUUID->"ca3cfab3-2c47-4dea-9621-fa411f5e2ebc"], + "In[147]:=",ExpressionUUID->"ca3cfab3-2c47-4dea-9621-fa411f5e2ebc"], -Cell[BoxData["206.09321333582264`"], "Output", +Cell[BoxData["157.0651890700479`"], "Output", CellChangeTimes->{ 3.991320421068556*^9, 3.992572215502891*^9, 3.9925723182776947`*^9, 3.9931191791602383`*^9, 3.9931201263788633`*^9, 3.993120622314225*^9, 3.9931207350960493`*^9, 3.993120779914585*^9, {3.9931208102780457`*^9, - 3.9931209193092546`*^9}}, + 3.9931209193092546`*^9}, 3.9938260684520283`*^9, 3.993826265101633*^9}, CellLabel-> - "Out[845]=",ExpressionUUID->"b05149ea-1120-455a-9015-342decbea921"] + "Out[147]=",ExpressionUUID->"7edec750-2ace-4d1b-b309-15e7d8c4c1a7"] }, Open ]], Cell[CellGroupData[{ @@ -4427,17 +4417,17 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[846]:=",ExpressionUUID->"e59a6dab-0305-421b-9296-daf3f80919b9"], + "In[148]:=",ExpressionUUID->"e59a6dab-0305-421b-9296-daf3f80919b9"], Cell[BoxData[ - RowBox[{"-", "161.1868287134346`"}]], "Output", + RowBox[{"-", "123.3235530299229`"}]], "Output", CellChangeTimes->{ 3.991320421098543*^9, 3.992572215526945*^9, 3.992572318297956*^9, 3.993119179182555*^9, 3.993120126400342*^9, 3.99312062277221*^9, 3.9931207351051397`*^9, 3.993120779938876*^9, {3.9931208103040047`*^9, - 3.9931209193366623`*^9}}, + 3.9931209193366623`*^9}, 3.99382606845893*^9, 3.993826265132605*^9}, CellLabel-> - "Out[846]=",ExpressionUUID->"934c6fc8-c57e-4df9-a299-86994d7fae3b"] + "Out[148]=",ExpressionUUID->"13fc42d6-20ab-4306-89d8-97176e1e35a9"] }, Open ]], Cell[CellGroupData[{ @@ -4482,114 +4472,114 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", CellLabel-> - "In[847]:=",ExpressionUUID->"c0c5ca8d-a300-440f-ad98-865ded0193ae"], + "In[149]:=",ExpressionUUID->"c0c5ca8d-a300-440f-ad98-865ded0193ae"], -Cell[BoxData["193.7537427380251`"], "Output", +Cell[BoxData["151.17585622424423`"], "Output", CellChangeTimes->{ 3.9913204211275444`*^9, 3.9925722155553827`*^9, 3.9925723183190947`*^9, 3.9931191792047863`*^9, 3.993120126422503*^9, 3.99312062328085*^9, 3.993120735114328*^9, 3.993120779966241*^9, {3.993120810329393*^9, - 3.993120919363965*^9}}, + 3.993120919363965*^9}, 3.993826068466112*^9, 3.9938262651759167`*^9}, CellLabel-> - "Out[847]=",ExpressionUUID->"a4f77743-298d-4a5f-8dbb-ca91f5f39574"] + "Out[149]=",ExpressionUUID->"780c6dc4-1686-43a2-8dd5-0dc42b02989a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", CellLabel-> - "In[848]:=",ExpressionUUID->"29a5b397-974e-47ea-8824-1e801b3a44a5"], + "In[150]:=",ExpressionUUID->"29a5b397-974e-47ea-8824-1e801b3a44a5"], -Cell[BoxData["0.4893939523240862`"], "Output", +Cell[BoxData["0.4819667641075124`"], "Output", CellChangeTimes->{ 3.9913204211385536`*^9, 3.992572215581643*^9, 3.9925723183400307`*^9, 3.9931191792269573`*^9, 3.993120126444304*^9, 3.993120623323575*^9, 3.993120735122086*^9, 3.993120779991181*^9, {3.993120810354744*^9, - 3.993120919368601*^9}}, + 3.993120919368601*^9}, 3.9938260684735823`*^9, 3.993826265211979*^9}, CellLabel-> - "Out[848]=",ExpressionUUID->"824460f3-98ea-48c5-ad5f-4be654d6275f"] + "Out[150]=",ExpressionUUID->"9d5fcd0a-f694-4500-bcaa-6ac1655b7a36"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", CellLabel-> - "In[849]:=",ExpressionUUID->"fba754b3-7eb8-497a-b262-d0ce093891f1"], + "In[151]:=",ExpressionUUID->"fba754b3-7eb8-497a-b262-d0ce093891f1"], Cell[BoxData[ - RowBox[{"-", "0.11691975046471094`"}]], "Output", + RowBox[{"-", "0.11350137337476086`"}]], "Output", CellChangeTimes->{ 3.9913204211683464`*^9, 3.9925722156071453`*^9, 3.9925723183603783`*^9, 3.9931191792492533`*^9, 3.993120126466148*^9, 3.993120623346512*^9, 3.9931207351443777`*^9, 3.993120780015463*^9, {3.9931208103803673`*^9, - 3.993120919396596*^9}}, + 3.993120919396596*^9}, 3.9938260684815693`*^9, 3.993826265253467*^9}, CellLabel-> - "Out[849]=",ExpressionUUID->"b1d23822-c584-4f1b-a096-41c59b471983"] + "Out[151]=",ExpressionUUID->"a5ed5406-5ba8-4acb-a95c-68445a4eafba"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", CellLabel-> - "In[850]:=",ExpressionUUID->"750ce752-e783-4b8c-902f-582ac825ed23"], + "In[152]:=",ExpressionUUID->"750ce752-e783-4b8c-902f-582ac825ed23"], Cell[BoxData[ - RowBox[{"-", "0.47923841529777084`"}]], "Output", + RowBox[{"-", "0.4652269449262844`"}]], "Output", CellChangeTimes->{ 3.991320421199068*^9, 3.992572215632304*^9, 3.992572318380674*^9, 3.993119179271516*^9, 3.993120126487928*^9, 3.9931206233692617`*^9, 3.993120735165653*^9, 3.993120780040511*^9, {3.993120810385436*^9, - 3.993120919423568*^9}}, + 3.993120919423568*^9}, 3.9938260684920053`*^9, 3.993826265289703*^9}, CellLabel-> - "Out[850]=",ExpressionUUID->"159734b8-c452-460f-83d7-64f3c8bc8f9d"] + "Out[152]=",ExpressionUUID->"d98d1dee-30ea-4708-b3a1-70bf8041c11a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", CellLabel-> - "In[851]:=",ExpressionUUID->"4010c96c-bca7-4165-a9ee-ad8db7f6d72e"], + "In[153]:=",ExpressionUUID->"4010c96c-bca7-4165-a9ee-ad8db7f6d72e"], -Cell[BoxData["0.6645788995097195`"], "Output", +Cell[BoxData["0.6581300944010081`"], "Output", CellChangeTimes->{ 3.991320421228037*^9, 3.992572215657671*^9, 3.9925723183847733`*^9, 3.993119179293789*^9, 3.9931201265097437`*^9, 3.9931206233734407`*^9, 3.99312073518717*^9, 3.9931207800652113`*^9, {3.993120810412512*^9, - 3.993120919451396*^9}}, + 3.993120919451396*^9}, 3.993826068499872*^9, 3.993826265325574*^9}, CellLabel-> - "Out[851]=",ExpressionUUID->"889bd42e-09b5-42eb-b259-8e9fd2664314"] + "Out[153]=",ExpressionUUID->"0cdc7224-780c-4dda-9feb-129b2e78caff"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", CellLabel-> - "In[852]:=",ExpressionUUID->"2ccfdabb-8537-46fb-9837-0014f37e987d"], + "In[154]:=",ExpressionUUID->"2ccfdabb-8537-46fb-9837-0014f37e987d"], Cell[BoxData["2.061265729478835`"], "Output", CellChangeTimes->{ 3.9913204212585373`*^9, 3.9925722156840057`*^9, 3.992572318405039*^9, 3.993119179315935*^9, 3.993120126531769*^9, 3.993120623396599*^9, 3.9931207352098637`*^9, 3.993120780089756*^9, {3.9931208104374*^9, - 3.9931209194800158`*^9}}, + 3.9931209194800158`*^9}, 3.9938260685069923`*^9, 3.993826265361238*^9}, CellLabel-> - "Out[852]=",ExpressionUUID->"a532443c-84d3-48a1-ad08-b7d0d988b586"] + "Out[154]=",ExpressionUUID->"68a26815-e7e1-47ab-bbb1-bf907c81b38a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", CellLabel-> - "In[853]:=",ExpressionUUID->"4532734e-4ca1-422e-84dc-7e8221a67683"], + "In[155]:=",ExpressionUUID->"4532734e-4ca1-422e-84dc-7e8221a67683"], Cell[BoxData["1.500736140386642`"], "Output", CellChangeTimes->{ 3.9913204212884274`*^9, 3.992572215708795*^9, 3.992572318425254*^9, 3.993119179337996*^9, 3.9931201265538*^9, 3.993120623423506*^9, 3.993120735231386*^9, 3.993120780114184*^9, {3.993120810463977*^9, - 3.993120919508306*^9}}, + 3.993120919508306*^9}, 3.993826068514022*^9, 3.993826265401225*^9}, CellLabel-> - "Out[853]=",ExpressionUUID->"31e55ff0-6852-463f-85a0-7a0d0b3206f5"] + "Out[155]=",ExpressionUUID->"8f91e0d6-1394-41f0-99d1-0ea02cdbbff5"] }, Open ]], Cell[CellGroupData[{ @@ -4611,17 +4601,17 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", CellLabel-> - "In[854]:=",ExpressionUUID->"bd5beb09-b31e-4641-94f9-67c76dd7b420"], + "In[156]:=",ExpressionUUID->"bd5beb09-b31e-4641-94f9-67c76dd7b420"], Cell[BoxData[ - RowBox[{"-", "32.4727450296612`"}]], "Output", + RowBox[{"-", "31.35994404137113`"}]], "Output", CellChangeTimes->{ 3.9913204213185234`*^9, 3.992572215734977*^9, 3.992572318447076*^9, 3.993119179360752*^9, 3.9931201265765343`*^9, 3.993120623446788*^9, 3.993120735251999*^9, 3.9931207801392517`*^9, {3.993120810491658*^9, - 3.993120919536584*^9}}, + 3.993120919536584*^9}, 3.9938260685214643`*^9, 3.9938262654515038`*^9}, CellLabel-> - "Out[854]=",ExpressionUUID->"67c58a42-07ab-4190-b8d4-5016b24fa348"] + "Out[156]=",ExpressionUUID->"b77d1650-ac6e-48ba-b7a0-ba4816ef31fe"] }, Open ]], Cell[CellGroupData[{ @@ -4643,17 +4633,17 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", CellLabel-> - "In[855]:=",ExpressionUUID->"1d3f24a2-16c1-475f-a3ac-bad84977b0e7"], + "In[157]:=",ExpressionUUID->"1d3f24a2-16c1-475f-a3ac-bad84977b0e7"], Cell[BoxData[ - RowBox[{"-", "8.129129787064175`"}]], "Output", + RowBox[{"-", "7.850554518705422`"}]], "Output", CellChangeTimes->{ 3.991320421349531*^9, 3.9925722157597923`*^9, 3.992572318468158*^9, 3.993119179384171*^9, 3.9931201265982*^9, 3.99312062346908*^9, 3.9931207352722187`*^9, 3.993120780163753*^9, {3.993120810569303*^9, - 3.9931209195640697`*^9}}, + 3.9931209195640697`*^9}, 3.993826068529614*^9, 3.993826265490443*^9}, CellLabel-> - "Out[855]=",ExpressionUUID->"930fd323-676c-4c5c-afc2-d2fa5d9e40cc"] + "Out[157]=",ExpressionUUID->"2c04327d-5059-44a3-8f37-913b93347070"] }, Open ]], Cell[CellGroupData[{ @@ -4719,16 +4709,16 @@ Cell[BoxData[ RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[856]:=",ExpressionUUID->"4fcdc36a-6c50-402a-8ffe-fab13953e5a4"], + "In[158]:=",ExpressionUUID->"4fcdc36a-6c50-402a-8ffe-fab13953e5a4"], -Cell[BoxData["173.62046830616146`"], "Output", +Cell[BoxData["125.70524502867676`"], "Output", CellChangeTimes->{ 3.9913204213784294`*^9, 3.992572215787087*^9, 3.992572318490714*^9, 3.993119179407145*^9, 3.993120126619657*^9, 3.993120624387237*^9, 3.993120735294096*^9, 3.993120780189163*^9, {3.9931208106477613`*^9, - 3.9931209195925417`*^9}}, + 3.9931209195925417`*^9}, 3.993826068538702*^9, 3.993826265561158*^9}, CellLabel-> - "Out[856]=",ExpressionUUID->"d47ed223-aa54-4e1e-9ea4-375cee3d528e"] + "Out[158]=",ExpressionUUID->"687832f2-f0b0-4163-825c-9a8e5f052b70"] }, Open ]], Cell[CellGroupData[{ @@ -4770,17 +4760,17 @@ Cell[BoxData[ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", CellLabel-> - "In[857]:=",ExpressionUUID->"ba79bb94-1e2b-40c7-ae0f-fe5dcec327f5"], + "In[159]:=",ExpressionUUID->"ba79bb94-1e2b-40c7-ae0f-fe5dcec327f5"], Cell[BoxData[ - RowBox[{"-", "161.1868287134346`"}]], "Output", + RowBox[{"-", "123.3235530299229`"}]], "Output", CellChangeTimes->{ 3.9913204213904285`*^9, 3.992572215791572*^9, 3.992572318513729*^9, 3.993119179431038*^9, 3.993120126641369*^9, 3.9931206250374393`*^9, 3.993120735303513*^9, 3.993120780214625*^9, {3.993120810674247*^9, - 3.993120919619622*^9}}, + 3.993120919619622*^9}, 3.99382606854606*^9, 3.993826265598441*^9}, CellLabel-> - "Out[857]=",ExpressionUUID->"893a3ca9-ece0-491e-886a-7b04de4eda67"] + "Out[159]=",ExpressionUUID->"310abe47-86cf-4f07-9a05-ede2782c7d0b"] }, Open ]], Cell[CellGroupData[{ @@ -4847,16 +4837,16 @@ Cell[BoxData[ RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", CellLabel-> - "In[858]:=",ExpressionUUID->"eb50d845-140a-41e5-8bbb-9de6966cc8f9"], + "In[160]:=",ExpressionUUID->"eb50d845-140a-41e5-8bbb-9de6966cc8f9"], -Cell[BoxData["185.6246129509609`"], "Output", +Cell[BoxData["143.3253017055388`"], "Output", CellChangeTimes->{ 3.991320421419428*^9, 3.992572215816564*^9, 3.992572318536264*^9, 3.993119179456161*^9, 3.99312012666339*^9, 3.993120625976398*^9, 3.993120735311919*^9, 3.993120780234991*^9, {3.993120810701437*^9, - 3.993120919646469*^9}}, + 3.993120919646469*^9}, 3.9938260685539007`*^9, 3.9938262656329203`*^9}, CellLabel-> - "Out[858]=",ExpressionUUID->"fed59031-982d-48a9-8ed7-844afee9b57c"] + "Out[160]=",ExpressionUUID->"ccee2a35-84b4-4d45-b2bd-821905b607c5"] }, Open ]], Cell[CellGroupData[{ @@ -4915,16 +4905,16 @@ Cell[BoxData[ "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", CellLabel-> - "In[859]:=",ExpressionUUID->"07faf75c-5f38-434a-9155-1b51811623d6"], + "In[161]:=",ExpressionUUID->"07faf75c-5f38-434a-9155-1b51811623d6"], -Cell[BoxData["127.62329334000697`"], "Output", +Cell[BoxData["93.76881016546349`"], "Output", CellChangeTimes->{ 3.9913204214494324`*^9, 3.992572215864458*^9, 3.992572318557802*^9, 3.993119179480179*^9, 3.993120126684946*^9, 3.9931206278422623`*^9, 3.993120735320333*^9, 3.993120780256549*^9, {3.993120810728241*^9, - 3.993120919673271*^9}}, + 3.993120919673271*^9}, 3.993826068561998*^9, 3.993826265677946*^9}, CellLabel-> - "Out[859]=",ExpressionUUID->"fc151155-763a-415a-86e2-52f104fa59d9"] + "Out[161]=",ExpressionUUID->"9597c110-e785-404d-b61f-2554df065bd8"] }, Open ]], Cell[CellGroupData[{ @@ -4983,33 +4973,51 @@ Cell[BoxData[ "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", CellLabel-> - "In[860]:=",ExpressionUUID->"70a8d671-1691-435f-82f5-f7cec68fb11e"], + "In[162]:=",ExpressionUUID->"70a8d671-1691-435f-82f5-f7cec68fb11e"], -Cell[BoxData["1146.2262301533601`"], "Output", +Cell[BoxData["873.0988230281508`"], "Output", CellChangeTimes->{ 3.991320421481529*^9, 3.9925722158897552`*^9, 3.99257231857898*^9, 3.9931191795053587`*^9, 3.9931201267064877`*^9, 3.993120629931678*^9, 3.9931207353284397`*^9, 3.993120780277225*^9, {3.993120810753913*^9, - 3.993120919701824*^9}}, + 3.993120919701824*^9}, 3.993826068574684*^9, 3.993826265712163*^9}, CellLabel-> - "Out[860]=",ExpressionUUID->"340c398b-9922-411f-9349-39861ac23af3"] + "Out[162]=",ExpressionUUID->"c178ceed-4c88-4f07-b580-9cf3208add59"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"f1", "=", "0.4360626729"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{ 3.9918488488187084`*^9, {3.993124958314062*^9, 3.9931249693378973`*^9}}, - Background->RGBColor[ - 0.87, 0.94, 1],ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], + Background->RGBColor[0.87, 0.94, 1], + CellLabel-> + "In[163]:=",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], + +Cell[BoxData["0.4360626729`"], "Output", + CellChangeTimes->{3.9938260685812473`*^9, 3.993826265750258*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"affb1129-6db3-4a2a-b0c9-454ab359ff39"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"f2", "=", "0.2390208968"}]], "Input", CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{ 3.9918488509977226`*^9, {3.993124964146654*^9, 3.993124966265024*^9}}, - Background->RGBColor[ - 0.87, 0.94, 1],ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], + Background->RGBColor[0.87, 0.94, 1], + CellLabel-> + "In[164]:=",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], + +Cell[BoxData["0.2390208968`"], "Output", + CellChangeTimes->{3.993826068594009*^9, 3.993826265787369*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"2a03dd5a-5160-44c6-a98b-970a5bbcbb35"] +}, Open ]], Cell[CellGroupData[{ @@ -5056,12 +5064,13 @@ Cell[BoxData[ RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> - "In[150]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], + "In[165]:=",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913279321052856`*^9}, +Cell[BoxData["1.4406889235574582`*^-53"], "Output", + CellChangeTimes->{3.9913279321052856`*^9, 3.993826068607255*^9, + 3.993826265827916*^9}, CellLabel-> - "Out[150]=",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] + "Out[165]=",ExpressionUUID->"b17df779-6923-4364-96dd-1cc7e6920338"] }, Open ]], Cell[CellGroupData[{ @@ -5095,14 +5104,15 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ -7221ff813b6d"], - -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.991327932129387*^9}, + CellChangeTimes->{3.9915575644922657`*^9}, CellLabel-> - "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] + "In[166]:=",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], + +Cell[BoxData["5.876506150238809`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9, 3.9938260686131973`*^9, + 3.993826265864193*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"845ef36c-b67d-4c29-a409-83f76c93cd57"] }, Open ]], Cell[CellGroupData[{ @@ -5135,14 +5145,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915575683388195`*^9, - 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ -fa370a62ac27"], - -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.991327932138338*^9}, + CellChangeTimes->{{3.9915575683388195`*^9, 3.991557570173399*^9}}, CellLabel-> - "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] + "In[167]:=",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], + +Cell[BoxData["1.375248152202393`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9, 3.993826068625341*^9, + 3.993826265902028*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"be6d1c35-f33d-4d87-8878-8d954e18ef07"] }, Open ]], Cell[CellGroupData[{ @@ -5166,12 +5177,13 @@ Cell[BoxData[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + "In[168]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913279321616154`*^9}, +Cell[BoxData["18.219097169239745`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9, 3.993826068633072*^9, + 3.993826265943*^9}, CellLabel-> - "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] + "Out[168]=",ExpressionUUID->"605f9f67-8da8-4c52-b74c-295992b14bb6"] }, Open ]], Cell[CellGroupData[{ @@ -5197,12 +5209,13 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellLabel-> - "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + "In[169]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[BoxData["37.77192070584817`"], "Output", - CellChangeTimes->{3.9913279321696014`*^9}, +Cell[BoxData["25.070699352880723`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9, 3.993826068640785*^9, + 3.9938262659525013`*^9}, CellLabel-> - "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] + "Out[169]=",ExpressionUUID->"510d5ffa-8aae-4cce-8f7d-d97a4b39c03b"] }, Open ]], Cell[CellGroupData[{ @@ -5212,12 +5225,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> - "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + "In[170]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913279321926613`*^9}, +Cell[BoxData["2.2686409999085977`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9, 3.993826068648238*^9, + 3.99382626601152*^9}, CellLabel-> - "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] + "Out[170]=",ExpressionUUID->"78ce4ae7-9da2-4702-b393-0d00872efbf2"] }, Open ]], Cell[CellGroupData[{ @@ -5227,12 +5241,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> - "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + "In[171]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[BoxData["3.2238916343938024`"], "Output", - CellChangeTimes->{3.991327932200657*^9}, +Cell[BoxData["5.901310651098273`"], "Output", + CellChangeTimes->{3.991327932200657*^9, 3.9938260686555758`*^9, + 3.993826266043592*^9}, CellLabel-> - "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] + "Out[171]=",ExpressionUUID->"3af3f851-2fe9-4dca-b456-8c4c4d65c4c9"] }, Open ]], Cell[CellGroupData[{ @@ -5242,12 +5257,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> - "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + "In[172]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[BoxData["121.77257917856996`"], "Output", - CellChangeTimes->{3.99132793222501*^9}, +Cell[BoxData["147.94998512163758`"], "Output", + CellChangeTimes->{3.99132793222501*^9, 3.99382607133899*^9, + 3.9938262660810413`*^9}, CellLabel-> - "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] + "Out[172]=",ExpressionUUID->"a0ba6bcd-93d5-4adc-977d-7ae6db0ae85d"] }, Open ]], Cell[CellGroupData[{ @@ -5257,12 +5273,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + "In[173]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913279322642612`*^9}, +Cell[BoxData["41.33259081945596`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9, 3.993826071524955*^9, + 3.993826266112344*^9}, CellLabel-> - "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] + "Out[173]=",ExpressionUUID->"2bbfa0e4-173f-40ef-bd6b-17c3f7301710"] }, Open ]], Cell[CellGroupData[{ @@ -5452,12 +5469,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + "In[174]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[BoxData["0.032550594324745`"], "Output", - CellChangeTimes->{3.9913279322906475`*^9}, +Cell[BoxData["0.006049569168451625`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9, 3.993826071535606*^9, + 3.993826266148427*^9}, CellLabel-> - "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] + "Out[174]=",ExpressionUUID->"a8087a38-7860-4156-b5d6-a5045d6b92aa"] }, Open ]], Cell[CellGroupData[{ @@ -5471,12 +5489,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + "In[175]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[BoxData["4.91208054446651`"], "Output", - CellChangeTimes->{3.9913279323826447`*^9}, +Cell[BoxData["11.394170591757087`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9, 3.993826071663321*^9, + 3.993826266246119*^9}, CellLabel-> - "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] + "Out[175]=",ExpressionUUID->"dd463a63-8881-44d6-af47-840e5b3aa581"] }, Open ]], Cell[CellGroupData[{ @@ -5668,12 +5687,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + "In[176]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[BoxData["0.012685641417856707`"], "Output", - CellChangeTimes->{3.991327932394655*^9}, +Cell[BoxData["0.023589262735185253`"], "Output", + CellChangeTimes->{3.991327932394655*^9, 3.993826071675164*^9, + 3.993826266283731*^9}, CellLabel-> - "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] + "Out[176]=",ExpressionUUID->"54d7455a-b84d-49a4-b4d7-8e7fc9477d55"] }, Open ]], Cell[CellGroupData[{ @@ -5687,12 +5707,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + "In[177]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.991327932491659*^9}, +Cell[BoxData["5.770158685888615`"], "Output", + CellChangeTimes->{3.991327932491659*^9, 3.9938260717195377`*^9, + 3.993826266382242*^9}, CellLabel-> - "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] + "Out[177]=",ExpressionUUID->"0d70c461-e5bf-4f86-8a1e-375d4faf2793"] }, Open ]], Cell[CellGroupData[{ @@ -5785,12 +5806,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + "In[178]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991327932509678*^9}, +Cell[BoxData["0.08462699738242267`"], "Output", + CellChangeTimes->{3.991327932509678*^9, 3.993826071730322*^9, + 3.993826266423274*^9}, CellLabel-> - "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] + "Out[178]=",ExpressionUUID->"a21749f0-0458-47d2-a29a-04e3e0a6ee0b"] }, Open ]], Cell[CellGroupData[{ @@ -5880,12 +5902,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + "In[179]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913279325457134`*^9}, +Cell[BoxData["0.9153730026175773`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9, 3.9938260717421417`*^9, + 3.993826266498674*^9}, CellLabel-> - "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] + "Out[179]=",ExpressionUUID->"0b0e774b-6313-46cf-a2e8-2ae3e77a6188"] }, Open ]], Cell[CellGroupData[{ @@ -6008,18 +6031,20 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + "In[180]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913279325697117`*^9}, +Cell[BoxData["0.0774652686964581`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9, 3.993826071753098*^9, + 3.993826266542802*^9}, CellLabel-> - "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] + "Out[180]=",ExpressionUUID->"cbfabe10-d564-4067-bf00-9dd8d99c177f"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ -eb45-a9e1-7a2f5d020eb1"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ @@ -6080,68 +6105,77 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ -c0135e32eaf8"], + CellChangeTimes->{3.9918488620812244`*^9}, + CellLabel-> + "In[182]:=",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279325947113`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1580422087538144`*^-204\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 182, 9, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993826071778331*^9, + 3.993826266650778*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +In[182]:=",ExpressionUUID->"47e1dacc-ca43-439a-a716-f14f0a55208d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 110, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326047096`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.9218101768682`*^-209\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 182, 10, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993826071778331*^9, + 3.993826266657095*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +In[182]:=",ExpressionUUID->"6405ea4a-59d6-4653-b9fc-d2b520510c59"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 166, 111, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327932612709*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.367516062693098`*^-213\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 182, 11, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993826071778331*^9, + 3.993826266662532*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +In[182]:=",ExpressionUUID->"e5e1359d-8203-4aed-8e3d-85193c8bb7b2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 166, 112, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279326207104`*^9}, +during this calculation.\"", 2, 182, 12, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913279325947113`*^9, 3.993826071778331*^9, + 3.993826266669388*^9}, CellLabel-> "During evaluation of \ -In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +In[182]:=",ExpressionUUID->"932eca95-e97b-4409-9be9-ab6bcab0f116"], -Cell[BoxData["4.912080544466506`"], "Output", - CellChangeTimes->{3.9913279359974174`*^9}, +Cell[BoxData["11.39417059175709`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9, 3.993826073233438*^9, + 3.993826270028552*^9}, CellLabel-> - "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] + "Out[182]=",ExpressionUUID->"db5d1c68-e394-4b24-9e8f-8261425ec76e"] }, Open ]], Cell[CellGroupData[{ @@ -6203,68 +6237,77 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ -b0ab3cd09ac2"], + CellChangeTimes->{3.991848865140564*^9}, + CellLabel-> + "In[183]:=",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936033827*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1580422087538144`*^-204\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 183, 13, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.99382607330392*^9, + 3.9938262701045837`*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +In[183]:=",ExpressionUUID->"6d2a352e-e3d9-4b2d-a244-26c82b2fe360"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 114, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360428295`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.9218101768682`*^-209\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 183, 14, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.99382607330392*^9, + 3.9938262701101933`*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +In[183]:=",ExpressionUUID->"21cb22e6-4ccb-40b8-8828-b4bc1c475ac9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 167, 115, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991327936050829*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.367516062693098`*^-213\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 183, 15, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.99382607330392*^9, + 3.993826270115591*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +In[183]:=",ExpressionUUID->"ba093bec-a775-46c0-9208-8d0961b25010"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 167, 116, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913279360588284`*^9}, +during this calculation.\"", 2, 183, 16, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991327936033827*^9, 3.99382607330392*^9, + 3.993826270121481*^9}, CellLabel-> "During evaluation of \ -In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +In[183]:=",ExpressionUUID->"a5e43227-a79b-41fb-9fab-55ae46d5898f"], -Cell[BoxData["7.868441587445692`"], "Output", - CellChangeTimes->{3.9913279393385086`*^9}, +Cell[BoxData["5.770158685888622`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9, 3.993826074794812*^9, + 3.993826273164412*^9}, CellLabel-> - "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] + "Out[183]=",ExpressionUUID->"894f694c-7e44-46a3-89ed-2ce0cc0aebe5"] }, Open ]], Cell[CellGroupData[{ @@ -6320,95 +6363,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848869193308*^9},ExpressionUUID->"124cd7db-c537-8943-bef2-\ -1a154ab4a709"], + CellChangeTimes->{3.991848869193308*^9}, + CellLabel-> + "In[184]:=",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk4VVsUAHBDJENkluFlLDKUa072CpExkjLHde8RlUxJxlTSpERFPaKM +yVhEqCdUQnhRvSYcUzKTKYe83R/nO9/v2+estfawtiz9+D4mGwsLyzB+/rwD +29Q3V3a0GTX/rozyMCaR0US2Nt20EGWplFT8cW+Gzg0F01qUQCa6H8K2Y7zl +5KW9RH1q7ic8scvCYho4TFsRl6zwihf2xVfidTEF/6LNnRWz3thPOwLvLmu+ +R6Hexm4E9sjn5shTNf8h1sWnNF/sjYPyrvMmX9G3Z1IRR7GtJiP1g1t70Piw +n2YA9vPlEZ6wAvxdebZzCPaHWLGIJ/79SM6reSoMe4LTdGRWcxB90fu6EIXN +eSXAmbYwhJouffY/iy2zIb0psGYYJRe9dLyIbSs5nzthMoZu93kH38ImMuVE +1bgmUFqjWEE6dozi3rgjrZOIXazaLgf7P7Gu7SEF06h+sWW8Apvh4uebfGUG +2V8zHHiOPZXGcu+R/0+UkZ1u2YTNJacmMK05h8RyaT5fsW8wGswFRObRcIev +9HfsTXnOMRoL8+j+QpLJDLae6vmJYzWLKIrtRc86ExId1ulpHTFZRv2C9w4a +Yc+GnVjDrbSCkmfOJlhjn67hMVTm+o02iHjSXLFTQe+hT+sqevhmbfspbEZO +k2lQAStoc24zq8UueJXcGyvJBvvJBeot9tR3j8jrV9gghPWFbC92pMrc41J/ +drhw0/UZhymut0RWflKTAz5v79Q6gP25Y+z57ywOyFZ+5XcEe9NMpct6EU7g +VGgUiMUu1LJNUlvghKkzQ4VF2I1Pw1mP1nCBqcyYIu9uEs01dPYMm/BCm5qV +VDe2oDWvQMRzXtjkbF+1jL2tyxT49PlgaF7+P0kzEvkNVGRuV18PBzJ1s1yx +A9hat+3kFYAmTxcfEntQrng6bn4DKDyqfsCxB68P0byunSYIwRGFZ1Wx2R4O +yYoHCgLb4WTSAXsT7a99BaOCoK5krZyN7WKS+KitVwhyimuGLS1I1O4dFCzW +IgIuEmYqZZYk6s67etmTSxRuecyb9mKPjRZkPdgtCi48bf38ViTiDunv3FEn +ChMRrMUB2Kbn9mt5VogB6+yXED1rElVn68zlZ0gAPT61vdeGRNmDS6EGIdKQ +nzLddcOeRHsc47uDi6RhJnEddGCPNQqZFQ1JgxJ/swzvPhJpZauKbHKWAbM3 +Drpx2I10j8ccRn+BjOh8V6QDiWYme08On90ELLzjL2MdSSR0zLT8sY0ctIl8 ++bvPmURD2dyH7fzkoFtn+KyqC4mqvnZIjp+XAxlDxd5QbDdr97NKdXKw/HrX +HK8rrm9r6L7bmvIwa3spycgN5x/Jm4oWU4CdbmnplR4k2u/Do2ZJKkJfv7sE +K4NEKNRR8+CKInR8L+48iK0Sl6HLkFACe1/L38XYLFk042h7JagWCs32YJKo +qNv14KMXSlD3Ulu7gcD9eaAwduP9zSD8auOxe764PlObDyN0ZQgVWXV/dJxE +WQ4pXxailcFl3EtVLIBEV+lk75q/lSEy5eWRSGzG6ROjMp3KUD+dt3NPIIk2 +1KazOJioQI3CefXBIHx+aBMqNfJbQXVI2VIrlESSctdiLg+owg6uqFubo0hU +e2lW+RebGhDi/o7Z2G4/nbsIWTVQq7G9IxtNoruNCsrGHmpw7DDbE+kYEsn5 +VL9b/KgGT4w0dKRi8XwLBxWJFnX4fC7NSzOORNKSMsQm522wRT8jtyGBRKo5 +IbwU0oR6u27RyEwS0Rln59RsNcGo35JD4B7uV/mkbk83TVjTf80vG5v9fknp +qzBNSGx+fbvtPu63uyP7k8o0wUBl+vKWHHyfpnqmK8vTwEnc/vXMA7y/l63V +nTi14Hz8z6+9j0l0L0jBrqJVG4wS75QqviHRo+66y+JfteHS4NqEIex6S/fX +EaPa4C26vJDXTKIBuVtGxtw6MFpfekq1lURKnWvV2s11IOFkp5phO+5n2ui6 +H/U6cEHOkxn6Hu/PbFmD1FNdWMdeEHqgj0QdoUj3XI4+3HP44de0QiJZj/e2 +7kd3ArdLsJSLQR9irj4plj4FMFgV/4Yjog+JjVatFaMbQ0zF/lyn5j4UQjP8 +mqRiCqohqh8cpPsRfXy5SWhkN7SAoaLTyX5UZBy8NqPdHEo2XswV6e9H2bN+ +LwpvWECYlXnScfsBtLhL/G1jjBWElwn70boG0DcW9mnSywa+DY+aOHgOIn+p +44mx8nshs9xdfXJ8EBX7NtXdjLODljxa8WTyEAr/KbGw1dcebOIzrFcMvqM5 +S7MDrw/tA601sZGVK9+Rvuv1XYP2DnBHQ8rcvGUYvZNI92uk7YdlOf4E+9Qf +aGPu2dr8LY4QSNd0PRc3gqp6Vaxt+Q6A7e6LEVaBo0ima8ondPwAvJ45YytO +jCHazeuFWb0HIYD71+jGmHGUvuanelKDE7BvEXj5KXkCPdml8TnuqTMU88sV +BLZPolTdSxuWC1zAsZ484nZpCrV/yTlPu+IKqnus9jzYMo0qbNIUAk67QZVw +tjv/l2k0fcyBxZ/hDr7tF+7Zxc+gOTPlwxMmHhBWY731X62fKH/802KwziGg +rY99bjL3Ezndy/F25/WEiQ/qibcezqLHj6wOscd7gky2yFJ50BzSl3z36+Iv +T5ij0ehuqvNIvtfn87++XmB05rmwa+88GuA5sjet3wtq2U6XK2UsoI6rtt7m +jnTQkdvs22W5iG6EZfCc6KBDo5/11C5qEdU+X/3lbeENKnvOVSz9/Qvxu0E8 +rdobjj54Hm6usIT0PSfy47QYQJRYKN3OXUK5t6eCbXUYkFWhIOWSv4SEO2eM +xPQYgPYbT0kULKGJ3Qtd+TsY8CN21/ZbRUv4/mJhbTVmQPnoLq7Y8iW0fmGD +s6A9AzYL5N35q34JDSRor8s4xoCe/MHeyK9L6GpNpG9VLgOiCrT3pvNR6Jhm +in5YPgMecu5+ws1PIesHZev0ChhQbPTpR6gAhbhThh5UFjHARGus3EqIQnFB +diNPyhlwmsOufUicQpHKCkcq6hmgRc+q7pOnkF9Ky9FH3QyQ9nmTN6FHIYv1 +Q4ZBvQzITkv+pGVAoS1xLHyafQy4892h5dQOCg0FaReVDTIgPE1/fHUnhbxs +M8ZLxxggcRNtWjGmkBNHsH/JEgOeVYZOV1tTyDx4Y0ChKBNER8Ybdh2iUH3G +ecskcSZoaRkEn/SkkGHrjELYRiasG4tKe+hFoW2KLZ9MZJjgO77DlZ9BIYmP +ESZfFJngeaQnqvEwhUYNvolyazNhrvkNNRBIoWtsmc98HJgQwBUjvHwGz1+D +N9XGkQnhH2YMWM5R6JxrWBDtIBPUUGcbWxyFwsrtNq+6MKHohd9O9nhcP8F6 +/RadCa1SXKrTlyhEa6YzXgYygcHpyBqbRKGP1xV55BOZ8PcamR3+mRQqRnyH +h68zQeCh08nt93D88dnGomQmhO2Zs/qJrWnRGK2XwgTmNvqzoCwKXWXxnrG5 +y4Qt/WeqPXMpZHY881NYIROib3OOLj6kkLT0BR2jYiawHey5nlNIodnm48ns +pUwwTTzz1q6IQveVkM3Vx0wwSLNnyyqm0Mq3b3VZ1UzY5GfpplNGoXJryfy2 +Jhx/+EO2+BMKXV5i47jRzITTpgKni7Hp+SNezq1MuGgwOmZcSSGBNdWSA+24 +fuGWcJ8qCh2tcbr26wMTKFkNekY1heRVboUqDDKB40afXvNzCi19jOr8McQE +s30GEhb/UKgjjrmtZJgJxsURF15hR5NaI/pjeH37pISe1VHoc2qn+96fTAj9 +lt6VWk+hpLUbdoezEhC/3WCY+xWFame+uYawE2D3kv9uNPb3bwVB/hwEvE+S +iZvCNiw3zaSvI8DfQ2uo7TU+b55hlOUGAl4vx0yeeIPrt94tuFuIgMZSZ5Uv +2Dt0BZWRCAFXRcRvGjVTKJGv8ABNggAb9dxfq9g7qnvKJGUJ+EEbWjraSiEi +p7BJRJ4Adp5/ShuwExNP9fArEpB6x/Gm+FucjxDiW6NMgP6K9kgtdqKQ+eGx +bQRUFBn/M9lGoerfQjFDmgQUy5/9rttOocEfvTd7tQgwUb+wMxrboC68oUsP +/y8WGMTRQaGBo8Uyz4AAJ5Xu5RXs9U4R2pXGBHCreyTq/kshfZM91mWmBBiX +frQ7jn1Vou9Uzh4C3rkecvqEXbWmJDHDkoAiX5MMnncU6p+MyLttTYDmP62C +hth6r0TeJ9jh8dUzMSnY9LK+0fh9BOjcvhxWj52QVsJ2Zj8Bbz5OpY9i9wVZ +bAt1IuDG7cRjep0U4vMQNQ9wISAtpVDMDVvPot/dz43A53d4PAo74a+oyx6e +BJTIXZSpxa7itrzvRCdgvvF92H/YfXOiT/cxCMhKFlid+ROP7G+3JghoY9co +4+nC8VpLh8wOE5BouvmaHDa9MmoF/AhYNppK1cVOuG8pvOMoARq3YtsssasS +xLZq+xPgmNep4YbdFzawSyMA57/YU3sEm5dR5qQcREDO+owTp7B190Yflw8h +4NELXpe4P/ENrM5LhxJwflje7xr2FUXxdLEwAn6d6c1JwX4iMPh4QzgBwlaI +7y42SZU180QSIFGxM/P+n/jfo0mOaAKOTX7yyMHWeWe1uBpDQF2foEUu9v8G +IvY1 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -6422,106 +6465,106 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Hk4VVsUAHBDJENkluFlLDKUa072CpExkjLHde8RlUxJxlTSpERFPaKM +yVhEqCdUQnhRvSYcUzKTKYe83R/nO9/v2+estfawtiz9+D4mGwsLyzB+/rwD +29Q3V3a0GTX/rozyMCaR0US2Nt20EGWplFT8cW+Gzg0F01qUQCa6H8K2Y7zl +5KW9RH1q7ic8scvCYho4TFsRl6zwihf2xVfidTEF/6LNnRWz3thPOwLvLmu+ +R6Hexm4E9sjn5shTNf8h1sWnNF/sjYPyrvMmX9G3Z1IRR7GtJiP1g1t70Piw +n2YA9vPlEZ6wAvxdebZzCPaHWLGIJ/79SM6reSoMe4LTdGRWcxB90fu6EIXN +eSXAmbYwhJouffY/iy2zIb0psGYYJRe9dLyIbSs5nzthMoZu93kH38ImMuVE +1bgmUFqjWEE6dozi3rgjrZOIXazaLgf7P7Gu7SEF06h+sWW8Apvh4uebfGUG +2V8zHHiOPZXGcu+R/0+UkZ1u2YTNJacmMK05h8RyaT5fsW8wGswFRObRcIev +9HfsTXnOMRoL8+j+QpLJDLae6vmJYzWLKIrtRc86ExId1ulpHTFZRv2C9w4a +Yc+GnVjDrbSCkmfOJlhjn67hMVTm+o02iHjSXLFTQe+hT+sqevhmbfspbEZO +k2lQAStoc24zq8UueJXcGyvJBvvJBeot9tR3j8jrV9gghPWFbC92pMrc41J/ +drhw0/UZhymut0RWflKTAz5v79Q6gP25Y+z57ywOyFZ+5XcEe9NMpct6EU7g +VGgUiMUu1LJNUlvghKkzQ4VF2I1Pw1mP1nCBqcyYIu9uEs01dPYMm/BCm5qV +VDe2oDWvQMRzXtjkbF+1jL2tyxT49PlgaF7+P0kzEvkNVGRuV18PBzJ1s1yx +A9hat+3kFYAmTxcfEntQrng6bn4DKDyqfsCxB68P0byunSYIwRGFZ1Wx2R4O +yYoHCgLb4WTSAXsT7a99BaOCoK5krZyN7WKS+KitVwhyimuGLS1I1O4dFCzW +IgIuEmYqZZYk6s67etmTSxRuecyb9mKPjRZkPdgtCi48bf38ViTiDunv3FEn +ChMRrMUB2Kbn9mt5VogB6+yXED1rElVn68zlZ0gAPT61vdeGRNmDS6EGIdKQ +nzLddcOeRHsc47uDi6RhJnEddGCPNQqZFQ1JgxJ/swzvPhJpZauKbHKWAbM3 +Drpx2I10j8ccRn+BjOh8V6QDiWYme08On90ELLzjL2MdSSR0zLT8sY0ctIl8 ++bvPmURD2dyH7fzkoFtn+KyqC4mqvnZIjp+XAxlDxd5QbDdr97NKdXKw/HrX +HK8rrm9r6L7bmvIwa3spycgN5x/Jm4oWU4CdbmnplR4k2u/Do2ZJKkJfv7sE +K4NEKNRR8+CKInR8L+48iK0Sl6HLkFACe1/L38XYLFk042h7JagWCs32YJKo +qNv14KMXSlD3Ulu7gcD9eaAwduP9zSD8auOxe764PlObDyN0ZQgVWXV/dJxE +WQ4pXxailcFl3EtVLIBEV+lk75q/lSEy5eWRSGzG6ROjMp3KUD+dt3NPIIk2 +1KazOJioQI3CefXBIHx+aBMqNfJbQXVI2VIrlESSctdiLg+owg6uqFubo0hU +e2lW+RebGhDi/o7Z2G4/nbsIWTVQq7G9IxtNoruNCsrGHmpw7DDbE+kYEsn5 +VL9b/KgGT4w0dKRi8XwLBxWJFnX4fC7NSzOORNKSMsQm522wRT8jtyGBRKo5 +IbwU0oR6u27RyEwS0Rln59RsNcGo35JD4B7uV/mkbk83TVjTf80vG5v9fknp +qzBNSGx+fbvtPu63uyP7k8o0wUBl+vKWHHyfpnqmK8vTwEnc/vXMA7y/l63V +nTi14Hz8z6+9j0l0L0jBrqJVG4wS75QqviHRo+66y+JfteHS4NqEIex6S/fX +EaPa4C26vJDXTKIBuVtGxtw6MFpfekq1lURKnWvV2s11IOFkp5phO+5n2ui6 +H/U6cEHOkxn6Hu/PbFmD1FNdWMdeEHqgj0QdoUj3XI4+3HP44de0QiJZj/e2 +7kd3ArdLsJSLQR9irj4plj4FMFgV/4Yjog+JjVatFaMbQ0zF/lyn5j4UQjP8 +mqRiCqohqh8cpPsRfXy5SWhkN7SAoaLTyX5UZBy8NqPdHEo2XswV6e9H2bN+ +LwpvWECYlXnScfsBtLhL/G1jjBWElwn70boG0DcW9mnSywa+DY+aOHgOIn+p +44mx8nshs9xdfXJ8EBX7NtXdjLODljxa8WTyEAr/KbGw1dcebOIzrFcMvqM5 +S7MDrw/tA601sZGVK9+Rvuv1XYP2DnBHQ8rcvGUYvZNI92uk7YdlOf4E+9Qf +aGPu2dr8LY4QSNd0PRc3gqp6Vaxt+Q6A7e6LEVaBo0ima8ondPwAvJ45YytO +jCHazeuFWb0HIYD71+jGmHGUvuanelKDE7BvEXj5KXkCPdml8TnuqTMU88sV +BLZPolTdSxuWC1zAsZ484nZpCrV/yTlPu+IKqnus9jzYMo0qbNIUAk67QZVw +tjv/l2k0fcyBxZ/hDr7tF+7Zxc+gOTPlwxMmHhBWY731X62fKH/802KwziGg +rY99bjL3Ezndy/F25/WEiQ/qibcezqLHj6wOscd7gky2yFJ50BzSl3z36+Iv +T5ij0ehuqvNIvtfn87++XmB05rmwa+88GuA5sjet3wtq2U6XK2UsoI6rtt7m +jnTQkdvs22W5iG6EZfCc6KBDo5/11C5qEdU+X/3lbeENKnvOVSz9/Qvxu0E8 +rdobjj54Hm6usIT0PSfy47QYQJRYKN3OXUK5t6eCbXUYkFWhIOWSv4SEO2eM +xPQYgPYbT0kULKGJ3Qtd+TsY8CN21/ZbRUv4/mJhbTVmQPnoLq7Y8iW0fmGD +s6A9AzYL5N35q34JDSRor8s4xoCe/MHeyK9L6GpNpG9VLgOiCrT3pvNR6Jhm +in5YPgMecu5+ws1PIesHZev0ChhQbPTpR6gAhbhThh5UFjHARGus3EqIQnFB +diNPyhlwmsOufUicQpHKCkcq6hmgRc+q7pOnkF9Ky9FH3QyQ9nmTN6FHIYv1 +Q4ZBvQzITkv+pGVAoS1xLHyafQy4892h5dQOCg0FaReVDTIgPE1/fHUnhbxs +M8ZLxxggcRNtWjGmkBNHsH/JEgOeVYZOV1tTyDx4Y0ChKBNER8Ybdh2iUH3G +ecskcSZoaRkEn/SkkGHrjELYRiasG4tKe+hFoW2KLZ9MZJjgO77DlZ9BIYmP +ESZfFJngeaQnqvEwhUYNvolyazNhrvkNNRBIoWtsmc98HJgQwBUjvHwGz1+D +N9XGkQnhH2YMWM5R6JxrWBDtIBPUUGcbWxyFwsrtNq+6MKHohd9O9nhcP8F6 +/RadCa1SXKrTlyhEa6YzXgYygcHpyBqbRKGP1xV55BOZ8PcamR3+mRQqRnyH +h68zQeCh08nt93D88dnGomQmhO2Zs/qJrWnRGK2XwgTmNvqzoCwKXWXxnrG5 +y4Qt/WeqPXMpZHY881NYIROib3OOLj6kkLT0BR2jYiawHey5nlNIodnm48ns +pUwwTTzz1q6IQveVkM3Vx0wwSLNnyyqm0Mq3b3VZ1UzY5GfpplNGoXJryfy2 +Jhx/+EO2+BMKXV5i47jRzITTpgKni7Hp+SNezq1MuGgwOmZcSSGBNdWSA+24 +fuGWcJ8qCh2tcbr26wMTKFkNekY1heRVboUqDDKB40afXvNzCi19jOr8McQE +s30GEhb/UKgjjrmtZJgJxsURF15hR5NaI/pjeH37pISe1VHoc2qn+96fTAj9 +lt6VWk+hpLUbdoezEhC/3WCY+xWFame+uYawE2D3kv9uNPb3bwVB/hwEvE+S +iZvCNiw3zaSvI8DfQ2uo7TU+b55hlOUGAl4vx0yeeIPrt94tuFuIgMZSZ5Uv +2Dt0BZWRCAFXRcRvGjVTKJGv8ABNggAb9dxfq9g7qnvKJGUJ+EEbWjraSiEi +p7BJRJ4Adp5/ShuwExNP9fArEpB6x/Gm+FucjxDiW6NMgP6K9kgtdqKQ+eGx +bQRUFBn/M9lGoerfQjFDmgQUy5/9rttOocEfvTd7tQgwUb+wMxrboC68oUsP +/y8WGMTRQaGBo8Uyz4AAJ5Xu5RXs9U4R2pXGBHCreyTq/kshfZM91mWmBBiX +frQ7jn1Vou9Uzh4C3rkecvqEXbWmJDHDkoAiX5MMnncU6p+MyLttTYDmP62C +hth6r0TeJ9jh8dUzMSnY9LK+0fh9BOjcvhxWj52QVsJ2Zj8Bbz5OpY9i9wVZ +bAt1IuDG7cRjep0U4vMQNQ9wISAtpVDMDVvPot/dz43A53d4PAo74a+oyx6e +BJTIXZSpxa7itrzvRCdgvvF92H/YfXOiT/cxCMhKFlid+ROP7G+3JghoY9co +4+nC8VpLh8wOE5BouvmaHDa9MmoF/AhYNppK1cVOuG8pvOMoARq3YtsssasS +xLZq+xPgmNep4YbdFzawSyMA57/YU3sEm5dR5qQcREDO+owTp7B190Yflw8h +4NELXpe4P/ENrM5LhxJwflje7xr2FUXxdLEwAn6d6c1JwX4iMPh4QzgBwlaI +7y42SZU180QSIFGxM/P+n/jfo0mOaAKOTX7yyMHWeWe1uBpDQF2foEUu9v8G +IvY1 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.5393516974872565, 1.739416394657539}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.5393516974872578}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -6533,132 +6576,132 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.5393516974872565, 1.739416394657539}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.5393516974872578}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{84.68028467793367, - 211.87669874043365`}, {-13.456694925159734`, 4.540961324840264}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4Fl0fB3AJSZQlJJFsoUj2tfMLZV+zb3G7Z6zJHhL1WnqKZEuryJIl -kqWypYVKKJXK8yhSoRq7myxJ77n/mGuuz3VmvvM9M3PODtpRO4KVhYVlAh/M -c+grpZ33X7/al1Z3TZGVYKB9k8XqNKNK9GCfADfTQ/kaOdJGLShBMaZ0DbYN -/SUHt+pTdCbt1V8W7JrohDZ2o24kHiogyPSZZ1seJVS8QXOLxt9X6QzU+Dr0 -+orKe2RkFhT1B5vq74yLaf4XPck++eQ39tYRKbdfhp9QKXdy1xK2+VScdnj3 -Z5Q/F5O5gN26Qm2IrviCPmcf3jyP/eGU8PF7wd8Qv66G/Sz2JIcRNacygkjD -VZspbI60EBfVhVGUuLGBaxxbnC+vI7T5B8rgoJ/6gW0l+uvmpOE4OmOTUzKE -TRZICilyTiLNGyKHPmEnyFgnB3ZPIYdt2Q/6sP8Vfrc3omIGdYzTX7zEprsG -+GenzaLnSa0BHdjT11hu1AYzUHL3xhdPsDklFXlnVObRjGVuyz3sHHqbMa/g -LySzscf2DrZEqUvCnoVfSD11TXE5ttbulMkjzYtIXdYp4Sq2n8bnbspwBR0r -GuSLw56LjmTjkv2Dit+upodjn2zeoCfPuYq+HpV4EYB9CbRu+Xb/RVbBQRHO -zH4lHUZhFWtgTblJqTJ2xbPsoVOirFCme4Fbltn3u2dcZhorrGyYUBLFjlOY -r7sTvBYsJ9sq2Jh9q3dITamww0YbzYR3PgzU/3q8dbWIHQx3cbx8ji0xe991 -oyAH+O0d72vCrlSzylJc4IBXDmwyBdjtjbFrgpo5Qeh3zjVf7Pm23s8/DLlh -xLyXlaIxEL8FN+/xVm4IjP1ffR+28jsj4NHmge9PaoSfYgcM3y3Yq7QRXj64 -OnsdO4S1W1mfmxeqKyaWrbBHJG/PJP/iA/1fe50LvPH7ITvX96jyw5yIidQZ -bNZbozu2hPJDMRdvQSi2hOp2u4oxfrBxaLu9H9vVMKP21ZAAbJbbtmPQi4F6 -fMLChbsEgdP/izsn9mBpeqoXpxDwpb82Gj/MQONjFUXlB4TgZfvtwR5srohv -vbqPhOCFualcLrZRkr2a111hiDx1VGA7dlOxxnxZvgjI6QZZSnoyUPHIcpRO -hBiYl38KnXRjIBOH04PhVWKQqlom3YU93i5wsGpUDEqMx7NLsdWKdwtKuIhD -1JHp0sPY7TTPOvZ922FROfBmtysDzU4NHfuRKAEbH7quueLCQAJHjOrrLCVB -4bCPHasTA40Wc/nZBEhCtXZH3gdHBmr49Fp0IkUSuoZNblZgu1t4JMo+koQW -y/pJW+ziXVF2l1WkwKus1yPPAT+fKp2OF5aGT79sm3baM5C97wZFsy8y4Co/ -lctly0AoykHF6Y8MlLTtv9hnw0AKyfmadBFZ4M7lcC7GZilSNYi3lYXf21lE -9bGrBt2cah/LgsNWojTQGq9Px8pTWwt3Qitb4ecWS9zPyPIDRZOHVYWXK3vM -GKjo0MWPC/HysJSrtGXelIHSaV+G2K7Kw7qo/rlGbPrJyDHxXnnIOq00a4DN -15LHcshQAbiCcv7YmuD/R3VSoVlqF4RSbz3oBxlIVPJ8QurwbohhORbjasBA -LWfn5JdYFWE6Zo8UP7Y7w+UduUMRtO6ipBf7Geh6u7S8gaciTAlkBmliS/o2 -vV3sUwRPbrG+TYDnWzkiQ3Ypwfy4rFidPgOJiYqTEi7K0HHWv7FNi4F2l0Rw -/0YqIFBgeXeTEgPR6InzilYqkCITlt2siNerVNagl7sKTDHeqvliry2svvMs -WgUEp8IeP9iN19t1yj6rRgUkI23W+u3C++klrzx5KVVQbm1QqZHD3zfVQsmZ -Qw0cY51ShaQY6EaYtM3dbnUImNLL2iPMQK+jkGZSiTY84OLUtl6eRTs831t5 -BOmD26uu07z9s4j4e++2WAzA91vrQ1obZpHwWMM6YZoB0IXGAl0zZ1GEqt6n -LAUjcH/onN7pP4toEysdAtQBGNJfd70MZlGVQfi6/B5j2Gx3bks93ywqngt4 -XJljCrs/cHL+/TaDFvdvedmeYA7fOZXt7t2ZQQMsa2e+eFuCa5bAj8m4GRS8 -7WjGKSlryPEovHzTfAbd9u94dCHZBjhHT6kFCs6gWIbIwi5/W/DN0HJz/DqN -5s0OOj4/bAdLDRbfnlZMI223zP0jtofg2HKdvknENHorkhfQrmoPXOcuZrfs -n0Zbbya2lMk5QJ7v0+m4DdOoYUjBworHEXaGPb62vW4Kib+b9o2acIRBkwXO -GbsppHohs7JoyAmIzsg/n8cnUR4bQymrzRkkQu7O8WdMonv79/QnN7rAA7aI -llilSXRJ8yzfSoUr+CZ2WS+9mUA9H0tSVNPcINO/ZP1Q/AS6a3lNOuSkO1ys -jOWMkJtAM0cOsQTTPaAhPVUu+OM4mj8o7zdp6AmDyQH98dnjqGziv8VwjcMw -frfs/QXTceR8o8THg9sLzi+Z8xdxjqO6WvPDa097wW6rHp2GZ2NIW/Tt0pkl -L3homKgee24MSQ359r/x94aBFOmiaJcxNLwh0PraN2/Ic1zVbJEZQ6/TrXyM -HWjw4Ni958NLFMqJzt8Q+ZoG9bUPi4x7KNTS+nfJx9QHRMmV+JAKCm1yh9Oq -TT6g6STulplGIYnNz3u2tfjAdNI1UgRbudtyC0erD8isKrTfSKWQnZ5b+b+P -feBNREJk3Vmcvy2q68QLH0hPUavp/4dCWwduber41wfk8nTStZIpJO0pfMl9 -wQfOCTz8uTeeQtpek2XJanRYzfkZIxpKoZuXp8OtNOjwse9qZWsIhTb3zu4T -1qIDbUp2Jw178sDCuzJdOth0djHKj1J4/2JZ021AB3HNI2N6wRTauMDnwm9L -h5gmhn1IIIWGz6mvzz9Ch4ykv8I8JIVsn2u+8z1Khyn2h8aNBIVaWXTylUPp -cK836iGBfTl8n/qTCDpY/n2b8pBOISsXY++R43So5nGKjPKhUKO0S+Ous3Q4 -luj4dsaLQunNcf4NN+mw0mWYJe5OoSMqF7Wjy+ggFnpe570bhSzKa9ZrVdCB -LVFCLg2b6+Jo+f0qPN8Jwd5lVwolh9lQ9+rpcKGR5vfRhUJx8tKBd5/QwWK7 -XGa5E4UCLnYF1Q7S4UaVw1DMIQqZbhzVCxuiw0h8nYo2tlwyC4/KV3z9riOd -i3YUGg1Tr6oZoUP9rV8vorG9rfIn7ozT4YROxPo4Wwo5s4cHVy/Toc7v5tnz -1hQyDt8aUilEgNGq1BXKnEJP8lPMsrYQYNB1sr8KW697Vjp6KwFtby4FhWIr -y3T9ZyhOQKHTn+QlMwqJ9B03/ChDwOCNW+d4sMd0BoS41AnQyVSbMTKh0HnW -gge+hwiQXD7OM2OE57+H+5KlAwHaIqdTWrGT3KLDVJ0IUPvgbZuGHV1vs/Ov -KwHzIf98ksP2Jtdk5tII2PG9vIMwpJBqJ43+NJQA9tCGxcn9FOrLlNkglUFA -WlZx8z5EoduIx+9HJgFweVFcBDtpYq69KpuA2D+5Lxj7KKRi2h6vdZGAw3b1 -c+XY6Sw+s5bXCZhTOl4ogn3waMF/0ZUE7HI97c6hTyExsX809t0moMD4ltqI -HoXmOo9mr71DgBzPdvt27EJZZJleR0AxseCXiP1nYOBRURMBnzkjKDbsegvR -slcdBEQWDlkI6lIodZmVPaeTANNa2SuLOhSilVHeLt0ESLg/VvqEzcvWJDrc -QwDfhXnFYuygZufzSx8IuC7inaSJLaWQGyU9QgD32vjMQG0KLfed6P05SoDg -n932h7BfJxPK1T8I0M1T89TFjv+iRmmPE+DfZGXCjd1/qdfDmkHAcHl9RI0W -hbLW8R2IXUNCrdQxpfXYLbMDbhFrSaiOSBJnaFLo+0BFWDA7CTPs8b4D2Hr1 -RgW09SRYT2uw1WGPekX/NuMjQWHgmR8Nm9fiAP8BARLk9+hLWGPravLLI0ES -bOpvKOthZ/BUOqqKkKCnr+EuzBxv+lwjuoOEQdvswTcaFCJLKjsEpUj4ZHHK -4zF2RkbM500yJFyTP6xegz1KCvCwyZNgZT42lckcFzD2G1cmwcXULMMJu2lV -IGFUhYSg8JYPptgjP4cuDKmRcP3n9ig9bJ1HsW3vtEgYcWt+KIk9HHRb/AGQ -kJZoEs9Qx/uH83H1+wYkbDc0TfuBrW1oYlFjRMKJSD3GAHa6yNeYEhPcv3a5 -6wV2A1t1Rr4Zzl96qv8I+9vU8dLLFiS8VEzivI+t9Uzw/TkbEgy7/isrwabV -fB07bUfCWv/Q+Dzsc9eqWf9nT8JH95XKC9hfw0yVo5xJmC8a33wam8dTyDjE -lQRCys7qJDPP9JtHgDsJEra3hmKY928/kerpRQIvmzZvMLMPl1mhM42E6coj -VX7MvHmhRjs6CefNc4t8mHlfvvVYkCSITdXOejLzuu+MHvQjob6k7Yors9/9 -E38ggIRLcR1XHZn5hWabdYNI6E14PG/HzD8nvEs9mASvpttl1sz86OH9e0JI -2KORUW+BzU2vcZYPI8F4hRAxw9a0jj8qFUHCyc3KfcbMfB3zFLEoEq4kT04c -wE6T2ZInHE1ChMMNDyPse7wjdXyxJDT/YyJriP3ld03nhjgStkkNGxsw87/H -f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a +1:eJwV1Hk4VVsUAHBDJENkluFlLDKUa072CpExkjLHde8RlUxJxlTSpERFPaKM +yVhEqCdUQnhRvSYcUzKTKYe83R/nO9/v2+estfawtiz9+D4mGwsLyzB+/rwD +29Q3V3a0GTX/rozyMCaR0US2Nt20EGWplFT8cW+Gzg0F01qUQCa6H8K2Y7zl +5KW9RH1q7ic8scvCYho4TFsRl6zwihf2xVfidTEF/6LNnRWz3thPOwLvLmu+ +R6Hexm4E9sjn5shTNf8h1sWnNF/sjYPyrvMmX9G3Z1IRR7GtJiP1g1t70Piw +n2YA9vPlEZ6wAvxdebZzCPaHWLGIJ/79SM6reSoMe4LTdGRWcxB90fu6EIXN +eSXAmbYwhJouffY/iy2zIb0psGYYJRe9dLyIbSs5nzthMoZu93kH38ImMuVE +1bgmUFqjWEE6dozi3rgjrZOIXazaLgf7P7Gu7SEF06h+sWW8Apvh4uebfGUG +2V8zHHiOPZXGcu+R/0+UkZ1u2YTNJacmMK05h8RyaT5fsW8wGswFRObRcIev +9HfsTXnOMRoL8+j+QpLJDLae6vmJYzWLKIrtRc86ExId1ulpHTFZRv2C9w4a +Yc+GnVjDrbSCkmfOJlhjn67hMVTm+o02iHjSXLFTQe+hT+sqevhmbfspbEZO +k2lQAStoc24zq8UueJXcGyvJBvvJBeot9tR3j8jrV9gghPWFbC92pMrc41J/ +drhw0/UZhymut0RWflKTAz5v79Q6gP25Y+z57ywOyFZ+5XcEe9NMpct6EU7g +VGgUiMUu1LJNUlvghKkzQ4VF2I1Pw1mP1nCBqcyYIu9uEs01dPYMm/BCm5qV +VDe2oDWvQMRzXtjkbF+1jL2tyxT49PlgaF7+P0kzEvkNVGRuV18PBzJ1s1yx +A9hat+3kFYAmTxcfEntQrng6bn4DKDyqfsCxB68P0byunSYIwRGFZ1Wx2R4O +yYoHCgLb4WTSAXsT7a99BaOCoK5krZyN7WKS+KitVwhyimuGLS1I1O4dFCzW +IgIuEmYqZZYk6s67etmTSxRuecyb9mKPjRZkPdgtCi48bf38ViTiDunv3FEn +ChMRrMUB2Kbn9mt5VogB6+yXED1rElVn68zlZ0gAPT61vdeGRNmDS6EGIdKQ +nzLddcOeRHsc47uDi6RhJnEddGCPNQqZFQ1JgxJ/swzvPhJpZauKbHKWAbM3 +Drpx2I10j8ccRn+BjOh8V6QDiWYme08On90ELLzjL2MdSSR0zLT8sY0ctIl8 ++bvPmURD2dyH7fzkoFtn+KyqC4mqvnZIjp+XAxlDxd5QbDdr97NKdXKw/HrX +HK8rrm9r6L7bmvIwa3spycgN5x/Jm4oWU4CdbmnplR4k2u/Do2ZJKkJfv7sE +K4NEKNRR8+CKInR8L+48iK0Sl6HLkFACe1/L38XYLFk042h7JagWCs32YJKo +qNv14KMXSlD3Ulu7gcD9eaAwduP9zSD8auOxe764PlObDyN0ZQgVWXV/dJxE +WQ4pXxailcFl3EtVLIBEV+lk75q/lSEy5eWRSGzG6ROjMp3KUD+dt3NPIIk2 +1KazOJioQI3CefXBIHx+aBMqNfJbQXVI2VIrlESSctdiLg+owg6uqFubo0hU +e2lW+RebGhDi/o7Z2G4/nbsIWTVQq7G9IxtNoruNCsrGHmpw7DDbE+kYEsn5 +VL9b/KgGT4w0dKRi8XwLBxWJFnX4fC7NSzOORNKSMsQm522wRT8jtyGBRKo5 +IbwU0oR6u27RyEwS0Rln59RsNcGo35JD4B7uV/mkbk83TVjTf80vG5v9fknp +qzBNSGx+fbvtPu63uyP7k8o0wUBl+vKWHHyfpnqmK8vTwEnc/vXMA7y/l63V +nTi14Hz8z6+9j0l0L0jBrqJVG4wS75QqviHRo+66y+JfteHS4NqEIex6S/fX +EaPa4C26vJDXTKIBuVtGxtw6MFpfekq1lURKnWvV2s11IOFkp5phO+5n2ui6 +H/U6cEHOkxn6Hu/PbFmD1FNdWMdeEHqgj0QdoUj3XI4+3HP44de0QiJZj/e2 +7kd3ArdLsJSLQR9irj4plj4FMFgV/4Yjog+JjVatFaMbQ0zF/lyn5j4UQjP8 +mqRiCqohqh8cpPsRfXy5SWhkN7SAoaLTyX5UZBy8NqPdHEo2XswV6e9H2bN+ +LwpvWECYlXnScfsBtLhL/G1jjBWElwn70boG0DcW9mnSywa+DY+aOHgOIn+p +44mx8nshs9xdfXJ8EBX7NtXdjLODljxa8WTyEAr/KbGw1dcebOIzrFcMvqM5 +S7MDrw/tA601sZGVK9+Rvuv1XYP2DnBHQ8rcvGUYvZNI92uk7YdlOf4E+9Qf +aGPu2dr8LY4QSNd0PRc3gqp6Vaxt+Q6A7e6LEVaBo0ima8ondPwAvJ45YytO +jCHazeuFWb0HIYD71+jGmHGUvuanelKDE7BvEXj5KXkCPdml8TnuqTMU88sV +BLZPolTdSxuWC1zAsZ484nZpCrV/yTlPu+IKqnus9jzYMo0qbNIUAk67QZVw +tjv/l2k0fcyBxZ/hDr7tF+7Zxc+gOTPlwxMmHhBWY731X62fKH/802KwziGg +rY99bjL3Ezndy/F25/WEiQ/qibcezqLHj6wOscd7gky2yFJ50BzSl3z36+Iv +T5ij0ehuqvNIvtfn87++XmB05rmwa+88GuA5sjet3wtq2U6XK2UsoI6rtt7m +jnTQkdvs22W5iG6EZfCc6KBDo5/11C5qEdU+X/3lbeENKnvOVSz9/Qvxu0E8 +rdobjj54Hm6usIT0PSfy47QYQJRYKN3OXUK5t6eCbXUYkFWhIOWSv4SEO2eM +xPQYgPYbT0kULKGJ3Qtd+TsY8CN21/ZbRUv4/mJhbTVmQPnoLq7Y8iW0fmGD +s6A9AzYL5N35q34JDSRor8s4xoCe/MHeyK9L6GpNpG9VLgOiCrT3pvNR6Jhm +in5YPgMecu5+ws1PIesHZev0ChhQbPTpR6gAhbhThh5UFjHARGus3EqIQnFB +diNPyhlwmsOufUicQpHKCkcq6hmgRc+q7pOnkF9Ky9FH3QyQ9nmTN6FHIYv1 +Q4ZBvQzITkv+pGVAoS1xLHyafQy4892h5dQOCg0FaReVDTIgPE1/fHUnhbxs +M8ZLxxggcRNtWjGmkBNHsH/JEgOeVYZOV1tTyDx4Y0ChKBNER8Ybdh2iUH3G +ecskcSZoaRkEn/SkkGHrjELYRiasG4tKe+hFoW2KLZ9MZJjgO77DlZ9BIYmP +ESZfFJngeaQnqvEwhUYNvolyazNhrvkNNRBIoWtsmc98HJgQwBUjvHwGz1+D +N9XGkQnhH2YMWM5R6JxrWBDtIBPUUGcbWxyFwsrtNq+6MKHohd9O9nhcP8F6 +/RadCa1SXKrTlyhEa6YzXgYygcHpyBqbRKGP1xV55BOZ8PcamR3+mRQqRnyH +h68zQeCh08nt93D88dnGomQmhO2Zs/qJrWnRGK2XwgTmNvqzoCwKXWXxnrG5 +y4Qt/WeqPXMpZHY881NYIROib3OOLj6kkLT0BR2jYiawHey5nlNIodnm48ns +pUwwTTzz1q6IQveVkM3Vx0wwSLNnyyqm0Mq3b3VZ1UzY5GfpplNGoXJryfy2 +Jhx/+EO2+BMKXV5i47jRzITTpgKni7Hp+SNezq1MuGgwOmZcSSGBNdWSA+24 +fuGWcJ8qCh2tcbr26wMTKFkNekY1heRVboUqDDKB40afXvNzCi19jOr8McQE +s30GEhb/UKgjjrmtZJgJxsURF15hR5NaI/pjeH37pISe1VHoc2qn+96fTAj9 +lt6VWk+hpLUbdoezEhC/3WCY+xWFame+uYawE2D3kv9uNPb3bwVB/hwEvE+S +iZvCNiw3zaSvI8DfQ2uo7TU+b55hlOUGAl4vx0yeeIPrt94tuFuIgMZSZ5Uv +2Dt0BZWRCAFXRcRvGjVTKJGv8ABNggAb9dxfq9g7qnvKJGUJ+EEbWjraSiEi +p7BJRJ4Adp5/ShuwExNP9fArEpB6x/Gm+FucjxDiW6NMgP6K9kgtdqKQ+eGx +bQRUFBn/M9lGoerfQjFDmgQUy5/9rttOocEfvTd7tQgwUb+wMxrboC68oUsP +/y8WGMTRQaGBo8Uyz4AAJ5Xu5RXs9U4R2pXGBHCreyTq/kshfZM91mWmBBiX +frQ7jn1Vou9Uzh4C3rkecvqEXbWmJDHDkoAiX5MMnncU6p+MyLttTYDmP62C +hth6r0TeJ9jh8dUzMSnY9LK+0fh9BOjcvhxWj52QVsJ2Zj8Bbz5OpY9i9wVZ +bAt1IuDG7cRjep0U4vMQNQ9wISAtpVDMDVvPot/dz43A53d4PAo74a+oyx6e +BJTIXZSpxa7itrzvRCdgvvF92H/YfXOiT/cxCMhKFlid+ROP7G+3JghoY9co +4+nC8VpLh8wOE5BouvmaHDa9MmoF/AhYNppK1cVOuG8pvOMoARq3YtsssasS +xLZq+xPgmNep4YbdFzawSyMA57/YU3sEm5dR5qQcREDO+owTp7B190Yflw8h +4NELXpe4P/ENrM5LhxJwflje7xr2FUXxdLEwAn6d6c1JwX4iMPh4QzgBwlaI +7y42SZU180QSIFGxM/P+n/jfo0mOaAKOTX7yyMHWeWe1uBpDQF2foEUu9v8G +IvY1 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.8190010003206292, 1.212160280392001}}, + "PlotRange" -> {{0, 180}, {0.5393516974872565, 1.739416394657539}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.819001000320631}, + "AxesOrigin" -> {0, 0.5393516974872578}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6668,7 +6711,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.819001000320631}, + AxesOrigin->{0, 0.5393516974872578}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6696,7 +6740,8 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.8190010003206292, 1.212160280392001}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5393516974872565, 1.739416394657539}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6704,9 +6749,10 @@ f2GPJ0F3Z8ST/dgab80X/yaQUJi7eIHp/wOga/9a Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913281932019863`*^9}, + CellChangeTimes->{3.9913281932019863`*^9, 3.993826125877858*^9, + 3.993826523672978*^9}, CellLabel-> - "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] + "Out[184]=",ExpressionUUID->"b07a2498-89eb-4b98-81e7-79fb63dc6a4e"] }, Open ]], Cell[CellGroupData[{ @@ -6769,348 +6815,159 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ -bade8ae5c530"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ -\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 117, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934227676`*^9}, + CellChangeTimes->{3.9918488717861137`*^9}, CellLabel-> - "During evaluation of \ -In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + "In[185]:=",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.212612357065565`*^-266\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 169, - 118, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934317894`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 185, + 17, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993826524091613*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +In[185]:=",ExpressionUUID->"1a1ecfd5-d0e8-4003-9ec3-f0b4a139087a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.464175163346952`*^-277\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 169, 119, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913281934409904`*^9}, + 185, 18, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993826524102323*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +In[185]:=",ExpressionUUID->"5a837af1-23ef-4f59-8e6e-71f8fa0f4b63"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.7934016794203486`*^-288\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 185, 19, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993826524111135*^9}, + CellLabel-> + "During evaluation of \ +In[185]:=",ExpressionUUID->"0887ad22-8e2c-4940-bc13-36b97d5938ad"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 169, 120, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132819344899*^9}, +during this calculation.\"", 2, 185, 20, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913281934227676`*^9, 3.993826524118788*^9}, CellLabel-> "During evaluation of \ -In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +In[185]:=",ExpressionUUID->"e5b164b9-2078-4641-9845-4b96249e61c0"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8FV8UAHAhpEhkzfbmPZI9WRLPOUllKS2UNVRos0RabIVS2iSU7IUW +JW9eStFCVNYkKYWQ/Er2XVT63f6Yz3y+n8+dO/eemXPODGOH/2YvXh4enr/k ++HeeaKt6wTqbY+bDz5aurAezxgyZ4JUfo+BaT3HIah0FQMk3O2Q+xoPc5S/d +vDpacGjj7Sa+j1kwGbbAoUmbDQsGpOOnmu7BYd6hvVe010P7E1v/saYyUFRn +7WvU2gZrWD2fh5sa4KXky8AOdV+YajK6NNTUCbfCJwMZSuFQvupmztusUfAO +TNV1p2JBvr3o2w7NP/A0oFd7nHkZFvq43xZcxYclcQ8MDr5Og/ilax7bbhFC +qwX+iRJvr8GnK7qlw2IiWHLHfGFGRQ6czTn2hld2ASYJGYhvfHATpBO/nk5I +l8A9f+wb+lfdhlP2VmYNE5I4EuyVK+GYB3L36+R4Z0lh2aGxHXs98iBfwn5y +6VwpnEybA49358GHBjf6opIUmk0MONsE5wFrUxC1yVIKxeT0BFVS8qBsfaZA +fbIUaqXFeT5tzoM/a8brXptK48DonWVhDnfhgPE196ooGdQcDHsmBPlgfVV0 +zOacDNYz5kT4rs4HSjAspu6SDIpoyv+ptcmH+sat3He3ZNDZe6tamGM+aO+f +x9dWJ4PCuv3LUwPyofvG4RsjcrLYa09NtGTlg+tC2/5FBbJ4z9avxmsWB5aF +Po7MeCKLXz3nejAEOSDcqSbFeCWLl/qFbjbN40ARhw9UP8midLanjb4MB6Rs +iuJ0/8rihta87rvaHKiPZOmvtpHDJtc3m7OcOWAxOB3i91UOrz/ZqnAhnwPB +lonqz/vkUFL1ufmpAg7kX9NqlpiQQ+Vy53UhjzggY+9hXCS0CPktpOdtKuNA +36OXk3zai3DaopP9/D0HEqLigpKPLMJrR8/tz/vFgU5JVb8XIvIYfm/NqiYG +DdL+JQrS0vI4RzoyZxaLhnWVjq/3KMuj+WzB4CWqNBSGnNWcv0wexcAyLECd +hjPtQz1OjvJYwys00KlHg17u412DWfIY0taWYLOKhkjTTdvllitgjujUA/0d +NFi6ZYwYmSvgi4WsWgNPGkQjeo9vWaeAJUz/b8u8aUgrj74R56GADvXL1Rbv +peGRdXGvwGkF/JyS8O1HAA1DjsxDo58UMM1eJLIjgga3g+NnakMVsViRO5iQ +RoNKkrl8T7Qi7n7I5THMoMn+L9wVjFNE7XULFd9n0hDye0m9eY4i2r/BY8LZ +NFw67iZZVKuI7DGdrk25NNRerMi8rqCEvzf8iLJ7QMOK/OT7R0uU0DMWElg1 +NFg01f0ZqFTC1Z68aFdLgy0P/1r3BiUsTPzteew1DTs3+32C/5Rw16xhmfo3 +NKwJZRyLmK2MPE8D9OwaadivNJG9UkMZ3Z/EhHS00jBeEFc5paOM3v5nG799 +Juuz1Ojn6itjCu+BvJ42GqIDPAwpM2W8MrW/qaeDhpTy6kreTcpY61HNet1F +w4tdmf3lh5TR8PzgqGwfDVa/jcXDQpXx1Uio80/iurhGQ/0IZdS4vXR1Yz8N +n4rmROScVsbjXs9unRikYWBukHh0mjKKevPerxihQYa2NFpTpowlDSYrmn7S +kG7x1WXmlTJ+yO6RjJ2igfoUHlFYo4xzPyeHmU/ToMVbUKX6XhkVB8r6sn/R +YG6v4CrYrYzz7To8rWZo8Pk5HFEpwsAfWvKLlPi4sCLAW+qbOAO7GC7viomF +eprv8MkwsCJyLdeOnwvXW8o/mFEMlJ9M7QibzYW2Z5c0Hxgy8KxutOJdQS7k +GQmXNZgwMKEiVFJPiAsh9FGHIWRgVqOs0X1iqaxdURo2ZH5202/OHC5siDb+ +eM2dgdbb1uVEz+WC4sxd3xJPBn654sc7Rtx3iOL7vIdcP+AR5z6PCzG752rL +BDGwrs3BTFuEC1u/HCs3CGZgpQnH/SIxy3nM0e4oA5lGYQXDxKU2n4/HxjBw +hyNrPFeUC7EvNsnmnWdgd7dD16z5XHBlv8qvimfgkj6ukAPxlDbnE386Azd8 +uDj6k1hPPFInlMtAHSF9r0ULuMBzdvzFlUIGzkhUiW0jruPb61z4mIEHCwUn +U4n3jW+OHn7JwNS9Gw8tECfx9KuQm1/DQJ5T5WKWxELfTWjNegaesb3XHUqc +85HVsquZgUm+rXYtxIGbkvdHtzOwxvRkt4AEF7BaRCC7i4GXr8c81SEWXRWV +WvqDgTLxae+2EH9+PKHbNsDA8qRQjWDiPP19r36Nkusn2l8mE4fcbXeRnWJg +afKJ7IfElqr2w4YzDBSUVHnZQCyVWXnSno9CnxvhGr3EXdJs+UAhCrP1bZp4 +FnLhXhyXe0GEwgpbmyoJ4og5qmvvilM4omHKyyLeEJXSWi1NIX27NWopseIv +0cBueQrjNvbZmBL3HTguKEBReNNKw82CuLhvMo25mMKFu52LrYhjvHz0VmpS +GMM02b6OeGtbR4XbUnK/Kxfs/pnlsGVbmCGFWqfl4v+NH3lTNZJsQqGxc6bC +v/lKLc1iHiKFIpKdEybEsc/vKbxfTeGQ103Ff+txXbG4YMSawsbU+5eYxOoF +qZZiGyn8fPON67/9TGmItWltobBTviTo334n0uUilzlTuCA5wupfPMbmq7CM +3SlUXB1y+h3xcKROhZknhf0v9xgUEQ+MGu+12ENhvb2IbRpxr5eFiLUfhcIl +zMYw4u4mW3rDAQo9vXwqnYk7H++ccA6n0L8ycUaUuF3LL9kjikIT1sTK/8jz +b808Yup9isKgqXMTj4g/HD8fFXCRxPOCZ6Ej8bvxJJXDlyksC9YoZxHX78qq +DEulUEZH32KAvH/VNg9FY65TaBqqcCOYuOLpc+752yR+D2NiTIhf6NTaJ3Ao +zBC06ZwW48IziS8pGUUUNlkNzQQQP47uZec8o1DJdkf5EuJHk+MdueUU8p+1 +4m0n+XCvRXjxg9cUrviUOrKSmLNesrq4gcIfLinXB0l+5ZUo+ZY2kfFT+h9S +iG9k6xfUfKGwauu+gh8kH1P2uUHnOIWJvvpBe0g+J33e3fl9mkJWxS51PuLE +DQei+/+S9ZZneKaQ/I9dFlPzcw4T4wK37H4uzIWoX1yH+YpMFLtQUD5M6skx +3yfTC5lMnKtVRx8mDmt/lS6nxkS18wfVfpF6dKi85auKHhMDfjwqnhYg+Xl2 +9n7TNUxk1W6OaiX1bPef+RLmNkzkzRRrsSX29pcrXLuRiX9m+F8+I/XPw07n +92ZnJirWDG5I4uWC/SKnmD1+THz4PdxJg4cLpnfyrl6+zEQX/6TpdlJvW5Tv +ZK5OZWJ9UAD/cuKQy7kZY5lMLOcN/X2e1OeHkTfSNucyseLXUNEyUr/1HK9e +EX3CxLZWq6Pe4zQsmZ0Yd/ILE2MU2mr3kPpfGRJ/weAbE79zLOdfG6DBeygu +tquHicoDLjYfSL/IaTl/znyMiX5x3gUrSD9RvncqZkaAhUIN0Q693TRIuYdG +HNJkYXdDZWLfFxoeNAYfU1nKwpPqLVV8xPbWR442GrAw382TX5b0r3iDg2F6 +wEIPgeZzbNLfROb5HxnYxMJCcObxb6aBv2jHfu/DLNTz6ZcLaqBhWNzaY2sZ +C+uorsPzntPw0Yeq31vBwr95xm9rS2gofTUNx2pZuEQtffTMMxriQu4o3frA +Iu/ThSSeJzTods5rn+phoXPDyiNvC2nw477Zli6hgrNp4WPCeTT0bNji0uWp +gg/bJ152JNLQkKtV83OPCt55e3K5awINxXwCJiL+Kqhg0Jr4/iINpx8WyhkG +E1vwzy+LpUFNSab51HkVfGF0STUqhoZdA82OGoUq6HFEvC4zlIaucx5bAwVV +sezzit2OHuT+PZqU7jxVfHPh+HauGw2Ta6f6+8VUUfj9fzeEttEgzBcfvUdO +FbNbj8jecyLrDy6/76GlisfD/QuHNtMQ7qUqscFOFd00exIVVpP4m/W90chU +RfVrbtKmaqT/Dx62+s9wMY4M7kwJe8cB+aWKJ4VMF6Pe3dxi4TccGAh8Uaax +cjGOdSjvuFTNgcQJMdNAm8WowNu34epzDrT9ydX+674YD66a+X6Ow4HAea0S +sqcXo067lkT5GQ6kLMG2dS2LkbfE93aBGfm+3Cl04P4xNVzTOiK1JD2f/G9I +854qW4JaTsJ62+AuiL9WjaUH1fGOZddA6sc7IB/D2WhoqIkCF+Q3c5bfhisa +xmISu7TQnXedQEjWLaiWW2kwelEbJYyfVYoI34QV8mVxOh90MLMzKH6L9XUQ +5csK2h6li8t957n+yM0GxUglUyfVpdj76t22+v5rMEfFtXBzxVLc+NaUkltz +FbTZspzD2/Twv4bRNayEdAhsEy+35lmGIQ2mA3YRKTA4em6L1ZVluN0l3PtG +dRKs1XmVYqWljzf3s7pmr7sEz0ZNfk3W6eMJI7ogvyIe/DT1mt96GaB+xolS +TI8D9oBno9McQxSAK5J1A+dgNUtmvUiWId4OHwmotT4NahFnjpQZGWH3doe4 +U/NPgrqXcYlKsxE6NB/QE+2NAq9nu0/cD1iOU2YzjO+2EVBytdFzWNIY1T99 +i/PICIWxW38ndR4aY9xIuLKj/WHYqXJnTsr6FTi9+/KSi+8PwLB6guG9oRWo +cFP/6LOz++FRzq8v4zEmOKvGocPu9T5wtmCiiaIp8gucST5vvwsW+Z4q0i41 +xcGFUtVHdXeCpLAPd70DG2ecDMING90hZ1V4yJAT8afkarsid9ALj12V4MpG +I+OZrycy3MF2iH7/cTsbk69X2lB73OHkh/GpnT5sbCz1vmn51w1+Zh0zD4lk +o9wWvW3GOm7QbJLw7sYdNuq/oOWd011h98GcNKt8NvrXvQpuPuEKE/kPvPpo +NrpdsVrm6+MK4tTHyaWFbFxYVR1bZeIKNkIK8k9L2fizdwnHtcUFnjTe8Hz3 +no3xL73aOxVcwFr0kdahj2zsXfe09riAC3xcWzUh08LGfCkXL8NBZxgr7o1x +62Djp8bHPvWlzqB1Tffujx42erWvy/7g6QxPmlceOtfPxhbFkSI+W2ewXmgH +OkNsTE+aYJkbOYP3qYNvg8bZePDmTO3IHDJf6ckU6Z9stFA7OuY56gRR00k7 +i6fZ6FRov7q71QnE9HM1t/1hI3Wk5n7YKyfI8C0e//uXjamiussp2gn+Bxl5 +Ju0= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7124,307 +6981,114 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwV13k8FV8UAHAhpEhkzfbmPZI9WRLPOUllKS2UNVRos0RabIVS2iSU7IUW +JW9eStFCVNYkKYWQ/Er2XVT63f6Yz3y+n8+dO/eemXPODGOH/2YvXh4enr/k ++HeeaKt6wTqbY+bDz5aurAezxgyZ4JUfo+BaT3HIah0FQMk3O2Q+xoPc5S/d +vDpacGjj7Sa+j1kwGbbAoUmbDQsGpOOnmu7BYd6hvVe010P7E1v/saYyUFRn +7WvU2gZrWD2fh5sa4KXky8AOdV+YajK6NNTUCbfCJwMZSuFQvupmztusUfAO +TNV1p2JBvr3o2w7NP/A0oFd7nHkZFvq43xZcxYclcQ8MDr5Og/ilax7bbhFC +qwX+iRJvr8GnK7qlw2IiWHLHfGFGRQ6czTn2hld2ASYJGYhvfHATpBO/nk5I +l8A9f+wb+lfdhlP2VmYNE5I4EuyVK+GYB3L36+R4Z0lh2aGxHXs98iBfwn5y +6VwpnEybA49358GHBjf6opIUmk0MONsE5wFrUxC1yVIKxeT0BFVS8qBsfaZA +fbIUaqXFeT5tzoM/a8brXptK48DonWVhDnfhgPE196ooGdQcDHsmBPlgfVV0 +zOacDNYz5kT4rs4HSjAspu6SDIpoyv+ptcmH+sat3He3ZNDZe6tamGM+aO+f +x9dWJ4PCuv3LUwPyofvG4RsjcrLYa09NtGTlg+tC2/5FBbJ4z9avxmsWB5aF +Po7MeCKLXz3nejAEOSDcqSbFeCWLl/qFbjbN40ARhw9UP8midLanjb4MB6Rs +iuJ0/8rihta87rvaHKiPZOmvtpHDJtc3m7OcOWAxOB3i91UOrz/ZqnAhnwPB +lonqz/vkUFL1ufmpAg7kX9NqlpiQQ+Vy53UhjzggY+9hXCS0CPktpOdtKuNA +36OXk3zai3DaopP9/D0HEqLigpKPLMJrR8/tz/vFgU5JVb8XIvIYfm/NqiYG +DdL+JQrS0vI4RzoyZxaLhnWVjq/3KMuj+WzB4CWqNBSGnNWcv0wexcAyLECd +hjPtQz1OjvJYwys00KlHg17u412DWfIY0taWYLOKhkjTTdvllitgjujUA/0d +NFi6ZYwYmSvgi4WsWgNPGkQjeo9vWaeAJUz/b8u8aUgrj74R56GADvXL1Rbv +peGRdXGvwGkF/JyS8O1HAA1DjsxDo58UMM1eJLIjgga3g+NnakMVsViRO5iQ +RoNKkrl8T7Qi7n7I5THMoMn+L9wVjFNE7XULFd9n0hDye0m9eY4i2r/BY8LZ +NFw67iZZVKuI7DGdrk25NNRerMi8rqCEvzf8iLJ7QMOK/OT7R0uU0DMWElg1 +NFg01f0ZqFTC1Z68aFdLgy0P/1r3BiUsTPzteew1DTs3+32C/5Rw16xhmfo3 +NKwJZRyLmK2MPE8D9OwaadivNJG9UkMZ3Z/EhHS00jBeEFc5paOM3v5nG799 +Juuz1Ojn6itjCu+BvJ42GqIDPAwpM2W8MrW/qaeDhpTy6kreTcpY61HNet1F +w4tdmf3lh5TR8PzgqGwfDVa/jcXDQpXx1Uio80/iurhGQ/0IZdS4vXR1Yz8N +n4rmROScVsbjXs9unRikYWBukHh0mjKKevPerxihQYa2NFpTpowlDSYrmn7S +kG7x1WXmlTJ+yO6RjJ2igfoUHlFYo4xzPyeHmU/ToMVbUKX6XhkVB8r6sn/R +YG6v4CrYrYzz7To8rWZo8Pk5HFEpwsAfWvKLlPi4sCLAW+qbOAO7GC7viomF +eprv8MkwsCJyLdeOnwvXW8o/mFEMlJ9M7QibzYW2Z5c0Hxgy8KxutOJdQS7k +GQmXNZgwMKEiVFJPiAsh9FGHIWRgVqOs0X1iqaxdURo2ZH5202/OHC5siDb+ +eM2dgdbb1uVEz+WC4sxd3xJPBn654sc7Rtx3iOL7vIdcP+AR5z6PCzG752rL +BDGwrs3BTFuEC1u/HCs3CGZgpQnH/SIxy3nM0e4oA5lGYQXDxKU2n4/HxjBw +hyNrPFeUC7EvNsnmnWdgd7dD16z5XHBlv8qvimfgkj6ukAPxlDbnE386Azd8 +uDj6k1hPPFInlMtAHSF9r0ULuMBzdvzFlUIGzkhUiW0jruPb61z4mIEHCwUn +U4n3jW+OHn7JwNS9Gw8tECfx9KuQm1/DQJ5T5WKWxELfTWjNegaesb3XHUqc +85HVsquZgUm+rXYtxIGbkvdHtzOwxvRkt4AEF7BaRCC7i4GXr8c81SEWXRWV +WvqDgTLxae+2EH9+PKHbNsDA8qRQjWDiPP19r36Nkusn2l8mE4fcbXeRnWJg +afKJ7IfElqr2w4YzDBSUVHnZQCyVWXnSno9CnxvhGr3EXdJs+UAhCrP1bZp4 +FnLhXhyXe0GEwgpbmyoJ4og5qmvvilM4omHKyyLeEJXSWi1NIX27NWopseIv +0cBueQrjNvbZmBL3HTguKEBReNNKw82CuLhvMo25mMKFu52LrYhjvHz0VmpS +GMM02b6OeGtbR4XbUnK/Kxfs/pnlsGVbmCGFWqfl4v+NH3lTNZJsQqGxc6bC +v/lKLc1iHiKFIpKdEybEsc/vKbxfTeGQ103Ff+txXbG4YMSawsbU+5eYxOoF +qZZiGyn8fPON67/9TGmItWltobBTviTo334n0uUilzlTuCA5wupfPMbmq7CM +3SlUXB1y+h3xcKROhZknhf0v9xgUEQ+MGu+12ENhvb2IbRpxr5eFiLUfhcIl +zMYw4u4mW3rDAQo9vXwqnYk7H++ccA6n0L8ycUaUuF3LL9kjikIT1sTK/8jz +b808Yup9isKgqXMTj4g/HD8fFXCRxPOCZ6Ej8bvxJJXDlyksC9YoZxHX78qq +DEulUEZH32KAvH/VNg9FY65TaBqqcCOYuOLpc+752yR+D2NiTIhf6NTaJ3Ao +zBC06ZwW48IziS8pGUUUNlkNzQQQP47uZec8o1DJdkf5EuJHk+MdueUU8p+1 +4m0n+XCvRXjxg9cUrviUOrKSmLNesrq4gcIfLinXB0l+5ZUo+ZY2kfFT+h9S +iG9k6xfUfKGwauu+gh8kH1P2uUHnOIWJvvpBe0g+J33e3fl9mkJWxS51PuLE +DQei+/+S9ZZneKaQ/I9dFlPzcw4T4wK37H4uzIWoX1yH+YpMFLtQUD5M6skx +3yfTC5lMnKtVRx8mDmt/lS6nxkS18wfVfpF6dKi85auKHhMDfjwqnhYg+Xl2 +9n7TNUxk1W6OaiX1bPef+RLmNkzkzRRrsSX29pcrXLuRiX9m+F8+I/XPw07n +92ZnJirWDG5I4uWC/SKnmD1+THz4PdxJg4cLpnfyrl6+zEQX/6TpdlJvW5Tv +ZK5OZWJ9UAD/cuKQy7kZY5lMLOcN/X2e1OeHkTfSNucyseLXUNEyUr/1HK9e +EX3CxLZWq6Pe4zQsmZ0Yd/ILE2MU2mr3kPpfGRJ/weAbE79zLOdfG6DBeygu +tquHicoDLjYfSL/IaTl/znyMiX5x3gUrSD9RvncqZkaAhUIN0Q693TRIuYdG +HNJkYXdDZWLfFxoeNAYfU1nKwpPqLVV8xPbWR442GrAw382TX5b0r3iDg2F6 +wEIPgeZzbNLfROb5HxnYxMJCcObxb6aBv2jHfu/DLNTz6ZcLaqBhWNzaY2sZ +C+uorsPzntPw0Yeq31vBwr95xm9rS2gofTUNx2pZuEQtffTMMxriQu4o3frA +Iu/ThSSeJzTods5rn+phoXPDyiNvC2nw477Zli6hgrNp4WPCeTT0bNji0uWp +gg/bJ152JNLQkKtV83OPCt55e3K5awINxXwCJiL+Kqhg0Jr4/iINpx8WyhkG +E1vwzy+LpUFNSab51HkVfGF0STUqhoZdA82OGoUq6HFEvC4zlIaucx5bAwVV +sezzit2OHuT+PZqU7jxVfHPh+HauGw2Ta6f6+8VUUfj9fzeEttEgzBcfvUdO +FbNbj8jecyLrDy6/76GlisfD/QuHNtMQ7qUqscFOFd00exIVVpP4m/W90chU +RfVrbtKmaqT/Dx62+s9wMY4M7kwJe8cB+aWKJ4VMF6Pe3dxi4TccGAh8Uaax +cjGOdSjvuFTNgcQJMdNAm8WowNu34epzDrT9ydX+674YD66a+X6Ow4HAea0S +sqcXo067lkT5GQ6kLMG2dS2LkbfE93aBGfm+3Cl04P4xNVzTOiK1JD2f/G9I +854qW4JaTsJ62+AuiL9WjaUH1fGOZddA6sc7IB/D2WhoqIkCF+Q3c5bfhisa +xmISu7TQnXedQEjWLaiWW2kwelEbJYyfVYoI34QV8mVxOh90MLMzKH6L9XUQ +5csK2h6li8t957n+yM0GxUglUyfVpdj76t22+v5rMEfFtXBzxVLc+NaUkltz +FbTZspzD2/Twv4bRNayEdAhsEy+35lmGIQ2mA3YRKTA4em6L1ZVluN0l3PtG +dRKs1XmVYqWljzf3s7pmr7sEz0ZNfk3W6eMJI7ogvyIe/DT1mt96GaB+xolS +TI8D9oBno9McQxSAK5J1A+dgNUtmvUiWId4OHwmotT4NahFnjpQZGWH3doe4 +U/NPgrqXcYlKsxE6NB/QE+2NAq9nu0/cD1iOU2YzjO+2EVBytdFzWNIY1T99 +i/PICIWxW38ndR4aY9xIuLKj/WHYqXJnTsr6FTi9+/KSi+8PwLB6guG9oRWo +cFP/6LOz++FRzq8v4zEmOKvGocPu9T5wtmCiiaIp8gucST5vvwsW+Z4q0i41 +xcGFUtVHdXeCpLAPd70DG2ecDMING90hZ1V4yJAT8afkarsid9ALj12V4MpG +I+OZrycy3MF2iH7/cTsbk69X2lB73OHkh/GpnT5sbCz1vmn51w1+Zh0zD4lk +o9wWvW3GOm7QbJLw7sYdNuq/oOWd011h98GcNKt8NvrXvQpuPuEKE/kPvPpo +NrpdsVrm6+MK4tTHyaWFbFxYVR1bZeIKNkIK8k9L2fizdwnHtcUFnjTe8Hz3 +no3xL73aOxVcwFr0kdahj2zsXfe09riAC3xcWzUh08LGfCkXL8NBZxgr7o1x +62Djp8bHPvWlzqB1Tffujx42erWvy/7g6QxPmlceOtfPxhbFkSI+W2ewXmgH +OkNsTE+aYJkbOYP3qYNvg8bZePDmTO3IHDJf6ckU6Z9stFA7OuY56gRR00k7 +i6fZ6FRov7q71QnE9HM1t/1hI3Wk5n7YKyfI8C0e//uXjamiussp2gn+Bxl5 +Ju0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.06671597837261178}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7436,19 +7100,19 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.06671597837261178}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7462,306 +7126,113 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVV3c81t8XtzKSPbOys/d8nudz71EiNFAKJbKTIiurkiREWZVkr4xvQiUr -4SmzIiQkoZSUVWaF3/P7677er3Pu677POe977rlSzj7Wbgx0dHRqjHR0/1+X -RzteyF4vQBdkTsozu7uh/izhEKPBSJw6vad7S+5uDALdzsKDyfjvgTannpxD -OMiy9D3jYB7OMrtxLjHHBfPMCiWvva/CJmu8WR+y/fGnhgM+i+9b8NrX+nXV -zCvYRHb648L7Xry+Q+9tQnIKXnuvf2v+/QQ+ldb+7qBnPqbuvl/wNu83XmKn -l74a8ghr3Hj4faX9Nw4O+fQ7/d4jnDX4VE1i7jcOzThUe+/ZIxx8pr3Gi7yI -1Wxd0xzoH2O1O99fMfYv4uW3B+g/XXuM06eVl3S3LOPOG1lv6hOfYN+kij3p -HquYbODCQZf0FI9+qIlrSljFIQl/WfQqnmIL+ebur49WseJkGMeh7qdYvv6t -nTbdGvbI3d5mxFGDP3z5deZV2hrmV6z6NHutBpsY6N7e6PiDjR7TJfoE12Kx -T7VfnVXWcaFpTNKhPfWY7ve5tA6rdcyRpKhZ5lSPvzArmWucX8eapqZ138Lq -8QO19AfrzesYpPS1uarqMboYGpB2dAOzsZ45JyDegB3FyQxvIjdx3GENPDPT -gN+qjt7I+EkHug4DIcahjfiFft23g5t0cPrWdyG+5EZcbXQbGHnpQdjGZO+L -kkacbnPg1yl9evh4UkjqzWAjdr7QaKMfSQ9cIfTMF3Wf41+vssR6hRhA7TrR -bfT9Oeb3dixl2c0ID7c7HtnIaMJKLPmtlkcZQak9aHjofhOGvK8Td08zAp+R -rWh+VRP2HjwjqpLKCHk379dttDXhF8bh8ZaTjJASu94+tNCEA8Tvnr17jQmS -HpAcRHY147iakbiJe0ygqTzN1m3RjHMOSd5XrmACngKRHedsmvGr2Pufng0y -gYavj98Fz2Ysu/zEckJxCxiHa1hWJzTjvje9WsqvtoCEyfJMYX8znjoleDBg -bAvUF00Gqn9sxhtM9qefLW6BufJFraLJZqxEHs8/KM4MFDEu42PLzTjy/hx/ -wFlmYOBNu/FZsAVrRWxbaeBmgcjPb5NOH27Be0Ut+ZjlWOCb91pV27EWfKI6 -Rf2gIQu837l/mdulBcf9FPEcP8kCexhFPnuda8ETtopDWx6xwJzDbTtKQgtO -1jSpP2DDClTxU7uPNLdg9Q92poQnKzzzGXsq2taCX0Wd6VMOY4Xlr+ntPa9a -MPNg6g/WXFYgTPtesA224LCLn0WpP1nhRYfe0aczLdi1KyJcP4oNLHnIRQyC -VEwfmMoqf4cNKqzam1tEqDhLojiVv5QNxrdM3PPbQcWD57r/W+hmg5AfLndy -Fah4v7DExzLRrTB0QJSBIFGxnls9IfloKzCF6uV521NxH2d3B2frVjDOnNNU -OkHFvjUTNuuDW+Hx/vaa9yepuJR969nhja3AFzDXwHCKindU2WalmrPDDztr -0btBVNxwzFvpigM7VLlUfBoIoWL7LRHV53zZIaviwnOmC1Scanv/zYHb7CD7 -WHhS4woVs24ubbBOsIPvqf+OdN2g4sJitusri+xwqeZgVFwSFe+yFhf6yrIN -FASHlg1TqTi80FidqroN3PcNNp26S8XzFimOF0K2wY7rQTEc+VScsFT043T8 -NnjQXBZ+sJCKlbLrzttnbwMpN8qXy/ep2PXX+E39l9tAkVdcvqaMiofSNJoW -uDkgc7FN7vQjKk7vK+MKkuOA6HM1dUee0Phz7nT8Y8gBzEdDzDSeUvHIFfEN -BhcOeBT+JehBHRVnNqbtv3aeA15e3brTqoGKT6zxZbLHc8Az49XfE8+oeOzs -Vgr/Ew4Qm9NnfdtExbklV6+ndXCA1/M3J1VbqNj5C90HsVEOiOuo/neeSsUy -O8KVcn9xwLKR5UTFCyr+YrcSIsfCCXVv+cQGX9Lyk+rXUSLKCb/8kh/NtFKx -e/eMsJoGJ0jsD6xaaKPiKeMvT/XsOOH8kSiOlx1UXHLJkaX+DCcUB4ReSO2k -Yq+64SM4khPCT3qGW3dRsfKSTRH1NidYsZ/l36Thn+pvl0zLOKH3ccvB9FdU -/MBr355XzznBqOexgexrKj5b2JZq2c8J2cMlQxk0rD6260v/FCc81ZMgmN7Q -6iHSqG23zglLLIVn7Gm40sbwykceLtDimArMpmG/xMe9J+W5wDzsvlMfDWt3 -qUt/JXFBxvtag2UaXtxSds7rIBe49rKzsXZT8ROQb5514YJVyZyR/+OgsFxu -/2Au+HT0ZuMqzV+/WsxpJZ4L3rxgqXtPw6vzdx6G5XJBzN79w4U0XKvMt7n5 -hAvuatQqudBwqPuNA1GdXLDCXVfNRcPkXLYs1k80/8y+2DJaPP8+RM3E/+aC -qCtZD/Vo+AR7RBYrEzc07WrXrqTl43kx0WrOyQ2TzHzSojQsafJ3Jl6YG4Ij -bKIDaPmL+Fwj0C3NDf3PQr2f0fI9FhFE8KhygyBT5NgSrR5GEjpuh/S54c39 -i7PiNJxXvxB/y4gbGibv5Om2UzGD3cPH7y24waGelY2g1dN52Xtk+xFusHu+ -Q02HVm9qihLTcSduYP6DJERpeoh6U3hoLIAbHC9eTKqh6enLaZcw6UvcsFja -ourTTMV72KTyXWO5QSfqSJsATX/Mxhm/pjK54eDpK3LaNH26j9uJKBdzQ+6D -d4yl9VTcdlFo15kqbmB78p2Xh6bvmNrkpIVWbuj7l7jysJqmryOWtdpvafzr -z3z79piKzRY5xgM/cIPAzywKN+3+bFWP1fgzxw1litb7tB5S8fWCS90M23lA -MYs+9FkRFZvrnOIVkOGBNx48zVEFtPv/wtpmpyoPyBxgdyfyaPF8lvtgYcQD -Ic8UNyIzafdd+tXX1FM88HyWGHJKoWJS1RPF+/48sC/05OXHibR6G2V7117g -gTiz5oW1BCoOPOn362MSD/xWOn3SPoam1xzhDfk6Hohd6/3jF07FKhoMRoYv -eEBwYdz5CK0/TT//ccXiDQ+8YPhNp0LrXx6fGtl8J3ig23pRsNyHip0k3ARq -t/JCtCy/DpczFVtlVKpYHOOFO5JVRVbGVMytcs/HwY0XNpv4+ByBit/UR1X5 -+PDCPaye7kihxfvhqEHqFV64/cBIm6RD62ciG7s/lvGCc2WL6lEZKtZJMz/m -848X9i68NCc2W7BQ6ufYlEw+8GXVFpUtb8HCyk+iVov4wOv2ZTrukhYs0hJ9 -yaGCD55YaBz6ld+CJeYVA3dS+SACB/qn323Bcvt8neqn+ICXYZ4xNKoFazOt -633W5oebwydTLtu24IMBgl+0Ovmh1r75yrY/zfjaYTPUuywAjh7H46fkmrHI -4zciDPSCkG1md5Ai0YzL+Q6vaLILwmrg5ZwYwWY80HuiImmHILjKeKqzs9De -Y6sAaau9giD18crr2m9NuGV/NnPPXUFwljb27aLNB+smS29eU4TAPlzigZZM -E/Y3zHXsiBQGZjnfLlmBRmw89yf07GcR+GXqz5bUUIsvU6xOihiIw56Qy1G6 -Pk8wqfzu44vPd0C5jc/N70yV2Ht1IaKdQwror3aKiRWXYtI5d8GvvFLwpP9r -lUVcKWadHi5jFJYCSz1p+pvepbjwA3UASUsBN3vgjKVmKR5tvKXyRE8KXMVy -uaj1JfjgVcPBXEcpcHz3R8Ozvxhr8V5WD6uUgp4D0jDNfx+vKXOPqtpIg0rb -tMtEXz5ezhS5rG0vDfevDgkV1ufjRS45WUNHaeCeK50My8/Hs78NvYxPSYNT -ocprN/98PFHvsmx/gba/Vb5GiT8fd1o85YwplIYAtet/ztvl4fTTJ/DEkjSQ -8sPHeH7n4DsfPSe+/ZGG4H33/zv8MQenHvS/OrMpDZce5piXteXgG9oxXats -MsD1986PlIwcHPm38iiXhAy4vxIyszbNwaevb/GlmNDsvenVG5CNKWX/5dy+ -LQONfNnO0y0Z+INkWfaeezJw6l5F1vesDBx6uyRrMVsGTpMFpLaGZeCnl4sy -rEtkQHYpuqtcOwNr2eakcTbIgLEg2f9q0T2suCU1MXpcBtp/z9xwSE7Hgo5h -EUEqsrDPicfCMTINP+kPuSSnKQsPrG7t8nFOw4fNgy/268qCW2ndWNauNJys -GxiuhWXBT8J24DhjGubY5hM8ayULBY8YWa2j72CmWmdf9/Oy4NqQY8qffBsv -8Jo7HWmRBTnBQZW4plQ86C3d49UmC2FdbR948lJxU+sffOmVLDwtsfBtuJKK -E0PLdhQPyEKwMvl3iGkq1pjY9mltWhYuxB/7l9KTgs9Wdjtk8snBtzsvn2p8 -T8bTB22OfXGVA1HSGNtZ7STcW6LatXpKDi4uKK7Jb0/CdYzMZA4fOWjL2LG0 -uZGIY59Wi+iFyAHLLO9jnq5ErLBDePhaghxEfmqoqnRNxB6zw7bK1XJQFvvl -dCb5Jv4S73TEj0UerEol9Yv2x+Oz0yrSGtvk4d4NhsVamXi8Yro2M8MtD6nt -Q0Z0f67jrYzJV0+JyEMGeWhO5v51rBFCfeykKg+rDwU0qIzX8QU3eb6Dh+Sh -dOkHO2qNxYLoZ7dytjxEq2fxsPtcwzn3au59z5cHxg40I21xDSuuRXncL5YH -E59NS8+d1zDlsfimdJU8BD1c5wobi8YuSgfVRF7Kg75TLnPD4WhcIVgVz/pD -HsysLjXE7LmKzebOm03q7YQbUtPduqZXsJimRDQrZSfA1JCQvPwVPOv3okXZ -aCdkNE+s7tlyBacuc1P8LHbCe+eLjXwvIvHoeonapuNOeFTJNTm+OxL7bRvh -2x67E6ghgSC+7zJOV4TRfR92gkIQK7vf34vY+/RXEd+xnaB+O+JvyIuLGD+I -P5oyuROaY72m+hMu4i8aQz1DczuBrXeBHCl1EasZ+FHdmRSgLuaTX8W+C5hq -UlAcoaoABz8mb2WrCsM/XVj9H19SAJ1H5Ney1cF4Nsv42fMoBdhYyC0ojQ3G -c0MRLF2xCmBsluUV6BCMfx1cuzeeogCPYm0CBrcE4xXy9AvOYgVwJWd4dtmd -xwz8rwRP9ShAyVjAkBhnEN7+4maduJQiFAc9LzYs8scim11MivKKcOmR3YPn -l/2xGIn1oI6yIjiV+WVEOPhjiYqIz+a6isCzsMJaJeCPZTPObQs2UwRHdd+e -zhg/rBFw6ETvOUVQUaOLSw45R/sfCzFca1GE5/33MpaYffB3Z9NicpsiTG/L -Gb/VfRbH554/MN+lCLqqarPxaWdxn8Rgut07ReiTOJ9zQfksdtp+V1tlShG0 -6K5YOticwSGcom5vOZTAr0D+QHXNafzfqkS7qJ0SGFM8hybrPPFB/YNnexyU -4Ncqnf2NBE/8K/AS/1VnJbj5p9M7wskTG/7+5DR7Wglk2PfWYxZP3DqTs9Z0 -UQlqStg1JW098KcJaWX3AiU4+ee8Ex+LO+Z9LX+jYk4JPEWmdFXvuOCNOY3C -zkUl6BF+eEzPxwVP85Ibvqwpge/cBZUYUxfcYntwWphJGUJDrnIzrTlj/y/n -TS4LK8PLBes2S0dn3P+3fcPKSBkyKnlrRg1O4jtKp31+JyuDpYW5+pDhCRy1 -PzCaI00ZLqFm4eA/DtjX91Lmzkxl8D6wYX6j3gHvrU7pOnZfGZZVT8SIYwfa -/NCw80W9Mqi7bE2qsjiO7e04xlK/KIN46UF9vlB7LBbz0FJPTwUqHDhLm+WP -4tLyB9Q1kgrYb8mi11o9gg3elek9wypwNmrh53LHEXxYuljM2EwFUtRZvcLP -HsHxDTlTVsdVQM74dKJHvQ3+O58UcSZSBVgjvuH9rofxsF1ARcEbFXgQ82r9 -56wV9ozwk/HsUwGP9vHWtQ4rvFzke1t5UAXiJ82qLAqtMO+id3jVuAos36JT -fnbcCpvfcNvbtKgCVR9vnux8Y4lrW46MfRBRBTqObf7HLh7EacqG3HweqpAU -pXrlVIYFtrF4ndh4WhVs0r6bHnCxwLynT/J4+apCsLHquywlC3y9NJa3OUQV -YoMuhEbUmeOLisP8PvGqENO0eVHrkxl23Rm2vatSFUb+WbDXkvdiKVOu9KBq -mj/FVISVbS8edc8Xka5XhUm1W3I1A6b4aFGXaMgLVXjW+CPLwN8Um8uJSex8 -rwozEfMHSypMsKbMM+kr/1Th9UIyuZGyB8/usspXo1cDoFztesu1B5c6T8oM -b1GD4h7+85TPxlg2j0NOk0sNznwubOO/boyFpU7s/CSlBiytBduaR3fjDYlN -ZbKpGsTya36IubULd4oY6f5OUoNHaevWzATgHomH8kx31KDgWovJL0HAA9Li -wgIZanAvkGPIaQLjcaW1P3pFarDgPp1vtB/jVVJlU2idGjxgza+6rISw/DGp -fQyf1aBe41HhHD0FqzjeJPim1OA/4cEf4c/JWMtlXU12Rg0Y9JSy710gY+L0 -EI/Jihpw2h3uj/lLwofDkt7HsquD8oOeFMYNQxx5j96FR0cdDKYsHGLFDHBM -ts9haUN1yIuq21k2oY9v5H/co43UgTm33Xp/iT6+W1arYLNXHS519LdyGujj -ivpzs2nHaVgl39vrmB4e/TAeInlVHXRJv8P+q9HBJLGWRPUBdYgwfvFlvlUT -T8jIjn4fVgfbuKkR7SxNHKscrVzwSR3+vFj0fx2oiQdJ5q3C39WBZ25+nF5e -E5+36/1L/08ddphFVzrEaWB7i3Pa09waYJQ6n1X8Qg2rHZS2N+XTgFglDjWv -C2qY4VBfRIGABmyeOsb1Uk8Nl9jrvjkhogFN9FpCu8pU8eqpNc8+GQ14K5/a -Z3BPBd+OuZzVoKcBnwMf7hK7rYS94rVebjfUgLDDK/unjyphlPj5RxBZAxS+ -1nZhESU8eWePoSZowGk/uunwHEWsc5+tv9BMA1YNjIqlHyng3pdJbDePa4Bs -eHS/4bw85mTMCzgZqQHre3O4x1pkMPPa80MLURogdaHS4OVNGbwx+1Hr8jUN -4LvD/FrOQQbPDW9fyInXAC2bc0uH16RxT1XSmbHbGmBiO/t+v740Tna+7O5Y -pgHewxzEy3ZJHGebvWfugQYM51Ufn8yQxJEHnsleqtCAXW/qW3zPSWJ/0tpE -1hMNKFpvyXwpKokP855zHH2uAUertEn3piWwYIuTrUO/BnyIn7soEiSGOWsu -6s8M0Px9Ppl9VxLDzOUZgheGNIBcVaviNyaKV+4O9meMaoCkdfDdsv2iePCc -pdXIlAacz5T0vKkhgtOlwPzYugY8T1mNqhEUxhKXd1Ds5DVh7crYuKw9Py73 -Z5X+qKAJHwfuBRCy/Bi5L7CcVNYEp/FXCiOzfNjBgtrnqaEJ1nQvpO9f5cMZ -Ah6ng0maYGe5IWddy4u3l5an3zmgCZvc35790efBxRl3IkStNIG926f7OxsP -NrgZ4Z59SBO8xG/07hvhxrYB1lr3bWn2uV5/r0hufBstd1Q7a8KSmqHQm/tc -mL+PWHsXpAmzVE9mVkEOXPBS/pNdiCb8Fkv56dO2DWvXcL38GKYJNnR+Y9kh -27B15njiZIQmrF/Wu2E5xo6TPK4qLMVpQjflllJL9VbM+e/VUf5sTTBO/uN6 -PJoVs8kdr7Zu0wSBYy7inwqYsNd2bF7WoQmPRyOPdfkw4U4O6VHGV5oQSz8c -ZEBmwvHL37Y86dGEKbcdTxP7GDFnu7+N0LAmTLslbW7fykjrl9cXP/yk5SMi -0jwjgR77OZ6N0ZnTBNkr1y7zOtHjvkNWYgkLmtCp5uuxqkWPUylCxmhZE/4U -XzLiGqbDQpz5KTmbmvBg51L5flU6LFZZp+XGqwXBD/da+75ZR+GFma3P+LXA -VGfL5dMR6+jj3Qh7QSGa/VLbr53a6ygr0iSyTVQLOqqf5n5M/4ckD/e+VZTT -gumaVVrH/4vkVr77zuprQRRK56Tbs4bUiO0PzztowR4pD0Zr1yX0SObUXwYn -LbDh+2QUL7+EDLbWmt5w1oK8gdJSn++LaNd727ECDy2gdrzUUj63iI6cS+Pp -PacF2YfSIk1ifqNLhUIBKtFa4JEzsKOobwExxXs0PY3Rgh0ffEsfZi+gOL+n -23Zf14J/HNF0Zt4LKBUfLbRL1AKeqwGGciwLqHjo9kB0uhZw/GntPLZ7HvVw -CBqOl2vB/e6JVaGSGWSz6HbVu1IL2B/+zui3mkHDw0/erjzSgpuSa5Srf3+i -L/dtvDhrteAczwPvGqufaNXo1j0yVQsuPElvkWL7gaSC+DduvdeC2WLl0Jnc -KVR03NVcapjmv1+zrsN2Cqnsfnz7vxEtOEDsSQrgnkJ63IfVqeNaELpO8VWN -/IbMS1Oc5n9ogX8FhX3h7FfkN8pLNafThpC1GZe1019Qe+vxZ6UM2iB17fp0 -v9YXJPGw6OnWLdpwu/rew71/PqPOS6T/Otm0oamU8u9X3Gfa19P5ljmfNry5 -1Jeq+GgCvXWp9DCX14a5WNHEcfFxJL/v78lSBW3w1f7+NXVmDIXr7Dm+VVkb -eAY8JTufjSGFLUOWneracONDsMATxzEUUURHMjfUBjERUcs+609I4/vBbeb7 -tGFQVHt/cNEIin57l7n0gDYUsnI1/jo8gkZqP9NttdIGga/Ix5xpBMXEnV/q -sNEG5x/K1TFuH9CYcvaomaM2/BgcXWHUGkaJZ2crzPy0IXVnG96x8B7N/Y63 -MUvThn7S9JjBnz40Mph7JDNdG7Y2N2xPau5Dnc+qjy5kaMPDmrN9kbF9qODa -mN3dXG34FjaepyLah+xFdU58L9WGArmnfj57etHLXR/cY59pg1l4Ue7pxz2o -aue8x8fn2qCbbjVaGtWDcrZtOaXZog2OwwXZ3jY9KHRA7fRQqzaUa7b1fJnv -RhpekT6KPdpwRYE582XMG3QvSTG4Y0Ibal+kclyc7EIxQShEfJJmz55C4re6 -UNCxQ6HnvmnDoWYhtvQ9XchS7kL49p/akBuebS9T0omYa3siTi1pwyabfZde -aAc6N3Y+lo1VBzSNsk5c3tWGTryMj3PYqgNKFcGdSxutaF9p7vXKbTqwdnCK -Rb6hFckHdCXY8ejAkHKeQZVBKxph2ZFcIqIDBL+4iTHpJTJVb003U9WBlPf+ -jE8cqMiWee/hHnUdaG37E0mRpCKvjx0cR7V0YFtj/d+Ln1vQjeuvI1z1deCA -LqunincLGvjW737JSAfi32UembvajFxzPms9sdEBxckWnaqq5yjovNtPsq0O -VFf28hD7n6OYA98KW+x1wEK0zX5zqhH9929auMdRB1YHR/+Jyjai37a/NqZP -6UBRYyr5cHEDiuSh75K8qAMJ8lxn303WotSpyKj7ETpw6sXjJ5Bci4qeMyG1 -Kzow0KEwUo5rUecZ1kpyjA5MTdoMXcusQTydXHeOJOtA0M2guWHXpygnUsIl -vkgHMt3aypJ3PEFVdjlifCU6sHAkYmZg+DF6oSE9cLdMB8b8HdcWbj9GU6Ny -ZvcrdOBNlbZfHs9jpE5WVW+p0wEb7agrxdyPUONv8t+VNzowMyK7m6JdiXJf -PXU+9FYHZJnL7yVtVKCoQu3O8j4dWK+Vnb3cWYHMjirfdRvUgXLK3ScqrhWo -v05Ev29ch/Y/ZApepTxE05fX/MoXdeAYYdxmeOw/9No+cJhthVYf0317Gxn/ -QxXaC0ZuazoQTi63MnlQhgInp7jFNnQgsexRpA1jGaIzGyyPZdGFxvbrFVL1 -JUiQ++m0q4gu5AbvwPxH76O1KS3rJjFduOvs6xXDeR+NNJfXiu7QBbutXgnv -WotQrn9RTK+MLhyVrmNfMCxCKu9vyYOqLrAVsCdPKxaiXVkBzqKgC+21D/q+ -q+UjufPzHUG7dOHvsiQx+CsPsVp6a/Ya60Jcfllj2NM89JrelS7WTBdY7/F8 -HtqVh2zdDmUtW+tCjC7bYN3JXHRWRWv4rZsupN5//uBFeDYKXBH54+ipC1EC -lcflebJReAujyKyXLiyq97hPF2Wh67bv7Lb66oLMI0GJmIFMVBwVPLQrVBdK -THt/5O3JQBMjjYOPbujCw6WMNy8d76Lv9++vGiXpwtcizaDjrHfRvF+icE+K -LiCLN24CVWlok9XZ9meaLiQPRz36xJqGxHS3DMrm64JVDSXan3obHUmweH/r -qS4Mc4zYFp1KRQ62OisydboQrKvD3CadilxlxIWqGnQh8oYYx7uRFORfO3vk -TbMuTN9k3/3gUApKnEwaYH6lC/MVeVvXLZJRJzH47vyYLqR0i17/zzURvWVt -XtryWReGBgRNLZUT0WBfiUDqpC6U9Zw+d3ryJvp2KsymYloXNF7/mzjPchMx -3ZZ4N7WoC0o/Z7MmjycgYta1345NDw5uC7wqYBaHBOtN8xrY9cCblXHu0q9Y -NHtNyXcHpx7YFQpS1zNiUZbUPPskrx5E7mCPk1+KQRuHw3b7iumBrU4Ctbfy -Gnpen1QVra4H09L7MibtrqK0mICI75p6YPLtHxc331Xka3P0wD4dPdjVtz1R -/HUUkpwTm+Yx1IMzU5tdA7ujUIR0sVTmLpqdnvnmefIVZBTbmPjIRg8sVopD -9KwuI5EjuScEbfVgtDDHz17oMvolHaUSYq8H9zo0LAxHI1Beg1k7ctSDeK/J -eImzEYhhvn+zw1MPNA5se5WscglRj/w4OxamB/vOlofEbwtHGTJvKLsv6gHl -lxGzSnkYCpiv2FoUoQchn45VbliGIdm4oKLTV2n2JB1ntfRQFPWMfnT5hh6c -to9NtySFoD2ywvs58vQgtKJF82Z5EHo881LKtUAPJGrJh3RcgpDsU//luiI9 -mAj1q+oSDkJM5t3ZnmV6MDwUev5ldCBq8Yn+RX2sB63938RunQlAqH7xTmib -HjxxfKUBrn6oPCrP+22HHjA8yy6ol/dD4gcsjRRe6YFDaYLFxvdz6N9Y2fS7 -Hj240/slotvvHKpjdiE0h/VA6E0mOCb4Ij3rtxPffurB668795xrP4OKRC89 -RXN68A/tW5RzPYMEJlXiby3Q8vFqpFGK/gxaPB+ju3tZD9ofad4bRd6oKhPH -ZG3qwRTn7peb7V5I/fsDVRtefXAv0ryXxu+JsqqOMfzHrw+/P7MuLbV4IM5w -tvcMQvrQyNN43tHPA81yukVUiOrDldSZarN+d/Sfjlgfu5w+3BFijZEscEMK -EXHBLfr6YP3APE76nAtqIBdu2Uei4dh/l3UUXZDlyvPkdxR9aDhQE7B3whkF -n136b8pIHxIWPU54HnVG7cedxjn36UPGfM8+xf0nkaehnvkxJ31gqnjlUNN2 -Av1btHz/xVkfzqUkuzHbnECJFaddz7rpw6To+9lfnx1Qzc7ci5e99EHTWGEl -kdkBsQpue3Q/QB/2mOwQMD1xDJX8GhddjNEHl1c/wlgP2SJU/q/4wnV9qNp1 -+f7zlaOo95SQHssNfchxTzekZh5Ff8b2WYqk0PDK6uHMmSPIvPtpFGTqw4bC -XTGpDBs0XZYwE1+pD/7hh8YeaxxCFz2KQwUf60OgfKiy2pQ14pWhsuRU0/Zf -+xlXmWONSOmrUo/q9WF1Z2d3G781iotxOTL0Uh+8ZeaU37BaISU3w+dyw/pw -5M901g3SAXRT+sCfKyP6MM6Jv0h170eLn5x1J0b1obhh/9edbvtRo318WdZn -fUhtWO4LvrUPWVt+uiM0Q6uPRG1GKbMFCiFf9WWjMwBXn+uvnXbuRaOrd8s8 -GAyAfHvt698eU7SruvzrSyYDMHVM1aeGmaJtmoPHI9kMYO0mZ1NrvwnKkVc2 -+8trAHJDvnR6qXtQO89bqRk5A3A3cH13ec9upNo9edxCwQBcvnCmStHtRsnx -f+6UKBlA2qwXx+P6Xeg4iyynu7oBOOyddSjQ3YXm/gX9GTUwgBeldOv2OkZI -cEqsr8fCAEKXFS9ufYJQWKEmp/oBAygkN4x27EFozNnELMHSAMaqxWR4BglU -+tHnuZmNAXhGPrwgTU8g1NdS1nLCACJuCu9qcSUjt0bPqMfnDGD9wV3uujMG -aPbM9Pk9AQagpzwouZvDAAWLe58eCDIAFbO4R6hcH8WF+1ivhhmAx/XOsfOL -eqiCFCRJiTaAiURbbqckXUSaXuF7HUOLb2XHiWmyLqLeDWE5cd0AMtQOiTR+ -00EDq+GzlxIN4Gjbuwdqu3XQv+orDdR02nmK/VWVrNoo2n1LxeFMA0AiFp5M -z7QQl+C1/MlsAzB+Ovg5zE8LSQfGxbEUGoDg7wXO9jFNZKqdZGvx0ADM/YOf -O3VqoOSHWYu9VAOgOy7hCxmqSMxRcsqllcbPUUmvVk4VFXLmfVhsN4AfIWYD -mxUqqOZMYYvgGwOIXts8++GVMvqo/F+i/SCN79mWOd7tSsj9g2rUj2EDCPrJ -3AQVimg+7uH58I+08833BLGaKSKG6aoTWRO0fFvKHd1/SQEpFNeqTPw0ALPA -61ysG/Ko6ihZ0n/OADhr36c45sojMsszPqZfBgAFzU+lTeTRAfemP3IrBjAu -+HzvQIocCpBtaz9FbwisHkHtjlgWPc/pd10QMITftbcX8nul0Ng+KccgYUOY -b1HSKrguhejWztj9FTGEurIfK0/3SKFdViwHtkgawsjwwBe2Z5KolZ6kv13J -EG7dbfTq9dmBvj2I1sxSMQR3d08LtV8SiNW+T1lG3RCuFRuf9g+SQGZV3pKq -OoZwwu5ackaUOHrlnM1mhAyB8i/HsahaFM1w/mRsBUOYu+Rw7JqpKOKsN9gw -320IfaE+MSLDIsiSr/fX4b2G8FLBp41gEkF9VKYRT2tDKL98VK3jtDAalvUq -T3Q3hCaBuM62SAH0t6e6WOCUIeC8HwarygJI7AJjfvppQzhZGqV6cYAfObzL -uFPgawjXFRUsg9T50djV7oiaUEOY+P5MKmGeF9FriYURFwxhQ559bDSfF0mP -ega2XDKE9I/nLR1teZGrHoPXqyhDaB1RURt+wYO+fdU5NHbDEC5egbeUMm7E -mnJ5v1uSIWSfZLgX48GNFPAb0+kUQ7jj9v3GmCw38rrjQVlMMwRxR/l6sz1c -aNY0XY413xDW2CQ8ZA5zoMXizRX1p4ZAJDq0XepkQ1+PmOTE1hrCsafP9EU8 -2dAgU8Lez/WGcPVq+6A0CxuqdxK5e7vJEAb61Ji8zFhRpLAuab3DEGRENQ7t -HmVG3DFe4Z0jhoBub9lcNGZCDHqVsrKfDEE680Sn0gojWvy88urCuCEoHSz8 -cqWUEb3HV8U1vxrC+wyhsJv8jChrJbvxzpwh1MPYzXtL9EjF4x2dGwMJAtOl -5hx7NgkJAbGSRiYS3M8RZrhps0lwU52thFlIUEdX/CF+ZIP4LTGf28VOgiNs -bD7Dc+tE3cDW3VoCJND5ar+VTfkf8V+U1Y/rQiTQW7xwb+3ZXyJLKy1lcjsJ -pLZpOkdb/yUu35D7kiZBAl0l8ZnjEX+IvSZwdXMnCY7lzQk5zK4SpMVoVTsl -Ehgd/vohIWGVUMl7/a5KhQR7LlrcV1VbJbg27OXdNUkw5MmpX+i/Qgw8CWx7 -RSKB9FB6zBfOZcJFrowtfT8JUm/cdTwZ+ZsIfXnCS96SBB9mLR51q/8mEt14 -u6qsSeDRST6cMvqLaCgMie86SgJbKRuBLfCL4Jffy7V+kgSkvYK76XkXCKXW -vz6xriRwqS0RiumYJ8D9YY+ABwkO5E+FkiPniTNFgslq3jQ+actMSrNzRKv8 -JL9TEAkEypGT3MgMMdKaFvgzmAQiQ4dF/xyfIX657xsIDiNBQnzv4qdPP4kd -9x/dSYogQeaPT3ee/fhBBO+MFKHGkcBRM77vo8g0oaSwQ1I+mwRaZY1D9D1f -CWjvjajKpZ2X1CKEz34ljnhGj6MCEgiHPGwS4PxKXCmeyTtaQoIevMM80HqS -GFFokIt9RAKGC5q39s18Jn61+0QLVNPind/WkX/nM8F6SuZbbg0JYtdff3be -/ZnQLYkrrntGgs9vGd7TZ08QNxTtlH+2kWBNL2ZK3n2cKOjYFh/cSYI3xlwT -kqLjRN2ppp9Mr0mQnZsjdPTtGPGtZGe5eC8JJF0frrgYjRGgtKxxcIQEBtzI -8+eJUWJBKUWvap4EYu/PSo5fHCYGX8Eevt8kmNgX+ySCb5hoOjt7KGCJRJsX -Uzs7SoaIG1Vm5/T+kKBWLbEffRgklEh0/9UxkmEtMWEXs9V7gmfkQZ0oMxne -xRkx7v41QKxeONYRzkoGcdftHqupA0Rrc/VXxEGGi489j1aPviOczc5IUQXJ -EB8wSvkS2U+Y/RDRkN1OBqPAso/m6v2ERkI7uipKhpsSdk0bI33ERo/McVNJ -MgQb2W4nUfqIe7bDt7sUySBDd3Q8kK2X6Pcw3dZPIUPxz4fdX590E/VsSyK6 -mAzR8dj1p3Y3kVeWp3jbiAxPw8Y0/j56Q/jOrZvYmpAhR062lL/uNcFx/vHl -kYNkWEpL0HH82EUsCjsnEtY0Pj92t77z6iJG6riysw6TQbjiwKbwn06idMOr -wcmODD1KXqTv4p2ESbTUyhdnMgzsIp1bCGknVBW6t5i4keH1Ey4hDoF2gr8z -nP++Bxko/20+fl7ZRkxwDGqe8ibD3iX98Z65VuLSrRveM4FkyIvIcl278JKo -Kfg7vhRDhv7N2zVOH1sIvd0BK+bXyaCtta/hcWIL8WT857acBDKQyMNUwz0t -RJXEqL55MhlmOQjPF5XNxH9pTQlZ98jAzuOUeiKtiVDSN8z/nUmGOw/zWxsO -NxEl7ypr9uaQwaXLoEuBt4ko4s3//KuADE19I33aks+JnPirhqblNH4ZCu4T -6s8ICeWNAxkVZDi0tzoko6aByOwIcl2oIoNkdVuT9u4GIp3Z8+a9p2QIurXl -w4hDPZEaYT4510SGE2GaHw4V1xKxAVxJaX00fhVxvZvXqwlWvpiimXe0eNxL -TI6rVxPRlXQNuwbJUFgoHaLa/4SIml34+nOExkcv2lhI+glx0bOfYvSVDH8L -7F3OvHlE/GPeb317igwPxORE+sMfEWGFLz1+TJPBNfAWd5TKIyJ4ojr51hwZ -RJzvRJbdrCL8jt+d+r5KBqWrbeI3XSuJ+T88G+gvGZDEnW9PxCoJn7txfKnr -ZJAuUvbafFdBeA+EIcRAAcEJ84opiwrC3fJEajI7BV71nCfrxpYT9sYyQJag -gOkRCbqOrlJivZ+VkypJgX/ypSaSh0qJHLfZD+YyFGDgKf10faSE+Bpde95e -gQK3Rkmm4UvFhF/HwYchWhSgJKu2dqP7hIC97gV6XQqIQqnnwLsiomZaxCJW -nwL0zz8kPjhbRGywf/2aRqHAlvcH5coLC4m4A+ESNSYUeP0Dn5ZVKCBUP538 -ic0okEgvazv8Kp/o8TGta7OgwG71Yn85/3xCMIn3yHtLCjyr1O9zfJFH5PUV -JyzbU2DgsO3LsuBcos723T8dHwrcWKBbOG6SRTh8r+tsOEeBck/TusCGTIIu -NCfNOIACq3PMu5d1MgmTe6d1DodQINnZrpJJNYPo/Ujv7X+FAhezEi+TDdKJ -wLPfDP9epUDRy4DIwKa7hPDmK5YrMRRouJL7rc38LnFCMi0/OYECjLJsJklu -acS0s9qHyjsU2MWXmN1YdZtI+M1XYphOAUmTll8t5rcJjai1oOYMCrhN+tik -f7lFBBW+4H2bSwHHbnXrPPFbBMOUvfl8GQU2wO0dKkghRM9cq1Vrotl/vhK1 -Wk8kbmy6615voUBWeN0s+XEiwZBsUvntBQWa3My4jnknEtPVW0pyOigglufZ -Zdx0k6iji0rj7aPA82mnb5mlCYRaigu/zzsKHBTSdShVSiDy5HYndr2n5av0 -CV//f/FEnDlDTNQIBbh4C+2PP71O2KdGnF+epECJKnvWoS+xxBt5p9/WUzQ9 -ff3rfjwglthVi30eTtP0YvxAHJhjCaXRDXfPOQrwlU1lhKjHEGs7LxwZXqXA -lUnr7C+3o4m0+hDdRnYC3lEPrQQ/ukJsO2BXKcJJQN8Nl/J+hytExJiB6nlu -AoJuBBVlsl0hPLesymoIEHCg9dUdR7dIQv9gEH+eBAEcufT+DKqXidJxm8QN -SQK6Lm4Nkp+IICQCdLcdkyFA4H7Ovbi0CIL57iIjvwIB1ilD3husEcTAhN/v -q5oElBeYkTnmLxC0R81nQpsAiUkrSfKZC0Qji9YPpEeAMklq/e7PcKJIZWFi -hURArXbNz5cLYURQkE/vKWMCfNwP/v7IH0oIbPWu3H+UgMJ5ochn1UFEwe4L -ofN2BKT+bRMLNQ0itC7c2J1ynAB74siD/cOBxIH5ineDJwnQFZEN4mUOJKIH -ltZcvAmICd7xni3Qn+DnZqEy+xDwelSbNUDAn8gzE44vOUdA8faHqmVP/Yjn -DSSJuSAC6O32nD1B70es5l3aFXqZgNINp+nfxb5E9Egiu3gUAXdjC19+OuJL -8Avm9T+PJkCmXznXltmX0Ih94b4lngBzzCxe3HeWOOXDdj3xNgFzHbelbaO8 -iWFySl9RGQG83JzX9dw8Cc/AggyzcgKupjjwHvnpQSyXP3H7WUHAEdXJhuZA -D4JXenBFs5oATsdrvVY33QkLVnGxZ00EfAjb7qY24koMG6lNOlIJgMChlegA -V8IzDJcztNLq0ZB5YojTldYfT8LeLlo88HN9j5kL0dBf5Nr3jgCmE6Wu0H+S -MOesUQ0aJOBcqbq+Z9hJYtC0Y1n4AwG9Fi6fdsmeJBbrfsScoI0FZQy39OZD -nQjVXI0H36cJkO9O6c4OOkE0DBsFxc8QkKT71M911IEw5z+E1Wlj10PDelt+ -MwfC/Vrg24AlAmxerS6syx8nFpui04VWCbh5Fe0TSz9GRP6541L3hwAtZnHd -Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== +1:eJwV13k8FV8UAHAhpEhkzfbmPZI9WRLPOUllKS2UNVRos0RabIVS2iSU7IUW +JW9eStFCVNYkKYWQ/Er2XVT63f6Yz3y+n8+dO/eemXPODGOH/2YvXh4enr/k ++HeeaKt6wTqbY+bDz5aurAezxgyZ4JUfo+BaT3HIah0FQMk3O2Q+xoPc5S/d +vDpacGjj7Sa+j1kwGbbAoUmbDQsGpOOnmu7BYd6hvVe010P7E1v/saYyUFRn +7WvU2gZrWD2fh5sa4KXky8AOdV+YajK6NNTUCbfCJwMZSuFQvupmztusUfAO +TNV1p2JBvr3o2w7NP/A0oFd7nHkZFvq43xZcxYclcQ8MDr5Og/ilax7bbhFC +qwX+iRJvr8GnK7qlw2IiWHLHfGFGRQ6czTn2hld2ASYJGYhvfHATpBO/nk5I +l8A9f+wb+lfdhlP2VmYNE5I4EuyVK+GYB3L36+R4Z0lh2aGxHXs98iBfwn5y +6VwpnEybA49358GHBjf6opIUmk0MONsE5wFrUxC1yVIKxeT0BFVS8qBsfaZA +fbIUaqXFeT5tzoM/a8brXptK48DonWVhDnfhgPE196ooGdQcDHsmBPlgfVV0 +zOacDNYz5kT4rs4HSjAspu6SDIpoyv+ptcmH+sat3He3ZNDZe6tamGM+aO+f +x9dWJ4PCuv3LUwPyofvG4RsjcrLYa09NtGTlg+tC2/5FBbJ4z9avxmsWB5aF +Po7MeCKLXz3nejAEOSDcqSbFeCWLl/qFbjbN40ARhw9UP8midLanjb4MB6Rs +iuJ0/8rihta87rvaHKiPZOmvtpHDJtc3m7OcOWAxOB3i91UOrz/ZqnAhnwPB +lonqz/vkUFL1ufmpAg7kX9NqlpiQQ+Vy53UhjzggY+9hXCS0CPktpOdtKuNA +36OXk3zai3DaopP9/D0HEqLigpKPLMJrR8/tz/vFgU5JVb8XIvIYfm/NqiYG +DdL+JQrS0vI4RzoyZxaLhnWVjq/3KMuj+WzB4CWqNBSGnNWcv0wexcAyLECd +hjPtQz1OjvJYwys00KlHg17u412DWfIY0taWYLOKhkjTTdvllitgjujUA/0d +NFi6ZYwYmSvgi4WsWgNPGkQjeo9vWaeAJUz/b8u8aUgrj74R56GADvXL1Rbv +peGRdXGvwGkF/JyS8O1HAA1DjsxDo58UMM1eJLIjgga3g+NnakMVsViRO5iQ +RoNKkrl8T7Qi7n7I5THMoMn+L9wVjFNE7XULFd9n0hDye0m9eY4i2r/BY8LZ +NFw67iZZVKuI7DGdrk25NNRerMi8rqCEvzf8iLJ7QMOK/OT7R0uU0DMWElg1 +NFg01f0ZqFTC1Z68aFdLgy0P/1r3BiUsTPzteew1DTs3+32C/5Rw16xhmfo3 +NKwJZRyLmK2MPE8D9OwaadivNJG9UkMZ3Z/EhHS00jBeEFc5paOM3v5nG799 +Juuz1Ojn6itjCu+BvJ42GqIDPAwpM2W8MrW/qaeDhpTy6kreTcpY61HNet1F +w4tdmf3lh5TR8PzgqGwfDVa/jcXDQpXx1Uio80/iurhGQ/0IZdS4vXR1Yz8N +n4rmROScVsbjXs9unRikYWBukHh0mjKKevPerxihQYa2NFpTpowlDSYrmn7S +kG7x1WXmlTJ+yO6RjJ2igfoUHlFYo4xzPyeHmU/ToMVbUKX6XhkVB8r6sn/R +YG6v4CrYrYzz7To8rWZo8Pk5HFEpwsAfWvKLlPi4sCLAW+qbOAO7GC7viomF +eprv8MkwsCJyLdeOnwvXW8o/mFEMlJ9M7QibzYW2Z5c0Hxgy8KxutOJdQS7k +GQmXNZgwMKEiVFJPiAsh9FGHIWRgVqOs0X1iqaxdURo2ZH5202/OHC5siDb+ +eM2dgdbb1uVEz+WC4sxd3xJPBn654sc7Rtx3iOL7vIdcP+AR5z6PCzG752rL +BDGwrs3BTFuEC1u/HCs3CGZgpQnH/SIxy3nM0e4oA5lGYQXDxKU2n4/HxjBw +hyNrPFeUC7EvNsnmnWdgd7dD16z5XHBlv8qvimfgkj6ukAPxlDbnE386Azd8 +uDj6k1hPPFInlMtAHSF9r0ULuMBzdvzFlUIGzkhUiW0jruPb61z4mIEHCwUn +U4n3jW+OHn7JwNS9Gw8tECfx9KuQm1/DQJ5T5WKWxELfTWjNegaesb3XHUqc +85HVsquZgUm+rXYtxIGbkvdHtzOwxvRkt4AEF7BaRCC7i4GXr8c81SEWXRWV +WvqDgTLxae+2EH9+PKHbNsDA8qRQjWDiPP19r36Nkusn2l8mE4fcbXeRnWJg +afKJ7IfElqr2w4YzDBSUVHnZQCyVWXnSno9CnxvhGr3EXdJs+UAhCrP1bZp4 +FnLhXhyXe0GEwgpbmyoJ4og5qmvvilM4omHKyyLeEJXSWi1NIX27NWopseIv +0cBueQrjNvbZmBL3HTguKEBReNNKw82CuLhvMo25mMKFu52LrYhjvHz0VmpS +GMM02b6OeGtbR4XbUnK/Kxfs/pnlsGVbmCGFWqfl4v+NH3lTNZJsQqGxc6bC +v/lKLc1iHiKFIpKdEybEsc/vKbxfTeGQ103Ff+txXbG4YMSawsbU+5eYxOoF +qZZiGyn8fPON67/9TGmItWltobBTviTo334n0uUilzlTuCA5wupfPMbmq7CM +3SlUXB1y+h3xcKROhZknhf0v9xgUEQ+MGu+12ENhvb2IbRpxr5eFiLUfhcIl +zMYw4u4mW3rDAQo9vXwqnYk7H++ccA6n0L8ycUaUuF3LL9kjikIT1sTK/8jz +b808Yup9isKgqXMTj4g/HD8fFXCRxPOCZ6Ej8bvxJJXDlyksC9YoZxHX78qq +DEulUEZH32KAvH/VNg9FY65TaBqqcCOYuOLpc+752yR+D2NiTIhf6NTaJ3Ao +zBC06ZwW48IziS8pGUUUNlkNzQQQP47uZec8o1DJdkf5EuJHk+MdueUU8p+1 +4m0n+XCvRXjxg9cUrviUOrKSmLNesrq4gcIfLinXB0l+5ZUo+ZY2kfFT+h9S +iG9k6xfUfKGwauu+gh8kH1P2uUHnOIWJvvpBe0g+J33e3fl9mkJWxS51PuLE +DQei+/+S9ZZneKaQ/I9dFlPzcw4T4wK37H4uzIWoX1yH+YpMFLtQUD5M6skx +3yfTC5lMnKtVRx8mDmt/lS6nxkS18wfVfpF6dKi85auKHhMDfjwqnhYg+Xl2 +9n7TNUxk1W6OaiX1bPef+RLmNkzkzRRrsSX29pcrXLuRiX9m+F8+I/XPw07n +92ZnJirWDG5I4uWC/SKnmD1+THz4PdxJg4cLpnfyrl6+zEQX/6TpdlJvW5Tv +ZK5OZWJ9UAD/cuKQy7kZY5lMLOcN/X2e1OeHkTfSNucyseLXUNEyUr/1HK9e +EX3CxLZWq6Pe4zQsmZ0Yd/ILE2MU2mr3kPpfGRJ/weAbE79zLOdfG6DBeygu +tquHicoDLjYfSL/IaTl/znyMiX5x3gUrSD9RvncqZkaAhUIN0Q693TRIuYdG +HNJkYXdDZWLfFxoeNAYfU1nKwpPqLVV8xPbWR442GrAw382TX5b0r3iDg2F6 +wEIPgeZzbNLfROb5HxnYxMJCcObxb6aBv2jHfu/DLNTz6ZcLaqBhWNzaY2sZ +C+uorsPzntPw0Yeq31vBwr95xm9rS2gofTUNx2pZuEQtffTMMxriQu4o3frA +Iu/ThSSeJzTods5rn+phoXPDyiNvC2nw477Zli6hgrNp4WPCeTT0bNji0uWp +gg/bJ152JNLQkKtV83OPCt55e3K5awINxXwCJiL+Kqhg0Jr4/iINpx8WyhkG +E1vwzy+LpUFNSab51HkVfGF0STUqhoZdA82OGoUq6HFEvC4zlIaucx5bAwVV +sezzit2OHuT+PZqU7jxVfHPh+HauGw2Ta6f6+8VUUfj9fzeEttEgzBcfvUdO +FbNbj8jecyLrDy6/76GlisfD/QuHNtMQ7qUqscFOFd00exIVVpP4m/W90chU +RfVrbtKmaqT/Dx62+s9wMY4M7kwJe8cB+aWKJ4VMF6Pe3dxi4TccGAh8Uaax +cjGOdSjvuFTNgcQJMdNAm8WowNu34epzDrT9ydX+674YD66a+X6Ow4HAea0S +sqcXo067lkT5GQ6kLMG2dS2LkbfE93aBGfm+3Cl04P4xNVzTOiK1JD2f/G9I +854qW4JaTsJ62+AuiL9WjaUH1fGOZddA6sc7IB/D2WhoqIkCF+Q3c5bfhisa +xmISu7TQnXedQEjWLaiWW2kwelEbJYyfVYoI34QV8mVxOh90MLMzKH6L9XUQ +5csK2h6li8t957n+yM0GxUglUyfVpdj76t22+v5rMEfFtXBzxVLc+NaUkltz +FbTZspzD2/Twv4bRNayEdAhsEy+35lmGIQ2mA3YRKTA4em6L1ZVluN0l3PtG +dRKs1XmVYqWljzf3s7pmr7sEz0ZNfk3W6eMJI7ogvyIe/DT1mt96GaB+xolS +TI8D9oBno9McQxSAK5J1A+dgNUtmvUiWId4OHwmotT4NahFnjpQZGWH3doe4 +U/NPgrqXcYlKsxE6NB/QE+2NAq9nu0/cD1iOU2YzjO+2EVBytdFzWNIY1T99 +i/PICIWxW38ndR4aY9xIuLKj/WHYqXJnTsr6FTi9+/KSi+8PwLB6guG9oRWo +cFP/6LOz++FRzq8v4zEmOKvGocPu9T5wtmCiiaIp8gucST5vvwsW+Z4q0i41 +xcGFUtVHdXeCpLAPd70DG2ecDMING90hZ1V4yJAT8afkarsid9ALj12V4MpG +I+OZrycy3MF2iH7/cTsbk69X2lB73OHkh/GpnT5sbCz1vmn51w1+Zh0zD4lk +o9wWvW3GOm7QbJLw7sYdNuq/oOWd011h98GcNKt8NvrXvQpuPuEKE/kPvPpo +NrpdsVrm6+MK4tTHyaWFbFxYVR1bZeIKNkIK8k9L2fizdwnHtcUFnjTe8Hz3 +no3xL73aOxVcwFr0kdahj2zsXfe09riAC3xcWzUh08LGfCkXL8NBZxgr7o1x +62Djp8bHPvWlzqB1Tffujx42erWvy/7g6QxPmlceOtfPxhbFkSI+W2ewXmgH +OkNsTE+aYJkbOYP3qYNvg8bZePDmTO3IHDJf6ckU6Z9stFA7OuY56gRR00k7 +i6fZ6FRov7q71QnE9HM1t/1hI3Wk5n7YKyfI8C0e//uXjamiussp2gn+Bxl5 +Ju0= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "PlotRange" -> {{0, 30}, {0., 0.06671597837261178}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7772,6 +7243,7 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -7799,7 +7271,8 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06671597837261178}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -7807,11 +7280,13 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913290128289948`*^9}, + CellChangeTimes->{3.9913290128289948`*^9, 3.9938268735096073`*^9}, CellLabel-> - "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] + "Out[185]=",ExpressionUUID->"9977c342-4154-408e-b4f7-a21b4f31ef1f"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", @@ -7863,15 +7338,1964 @@ Cell[BoxData[ CellFrame->{{0, 0}, {0, 0}}, CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, 3.9931248862809143`*^9}, - Background->RGBColor[ - 0.87, 0.94, 1],ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], + Background->RGBColor[0.87, 0.94, 1], + CellLabel-> + "In[186]:=",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[{ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 0.}, {2., 0.}, {3., 4388.}}]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + TagBox[ + {RGBColor[0.95, 0.627, 0.1425], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 1.}, {2., 0.}, {3., 13039.}}]}, + Annotation[#, "Charting`Private`Tag#2"]& ], + TagBox[ + {RGBColor[0.455, 0.7, 0.21], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 2.}, {2., 0.}, {3., 21317.}}]}, + Annotation[#, "Charting`Private`Tag#3"]& ], + TagBox[ + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 3.}, {2., 0.}, {3., 28996.}}]}, + Annotation[#, "Charting`Private`Tag#4"]& ], + TagBox[ + {RGBColor[0.578, 0.51, 0.85], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 4.}, {2., 0.}, {3., 35881.}}]}, + Annotation[#, "Charting`Private`Tag#5"]& ], + TagBox[ + {RGBColor[0.772079, 0.431554, 0.102387], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 5.}, {2., 0.}, {3., 41813.}}]}, + Annotation[#, "Charting`Private`Tag#6"]& ], + TagBox[ + {RGBColor[0., 0.6, 0.6], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 6.}, {2., 0.}, {3., 46685.}}]}, + Annotation[#, "Charting`Private`Tag#7"]& ], + TagBox[ + {RGBColor[0.9, 0.36, 0.684], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 7.}, {2., 0.}, {3., 50429.}}]}, + Annotation[#, "Charting`Private`Tag#8"]& ], + TagBox[ + {RGBColor[0.56, 0.7, 0.], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 8.}, {2., 0.}, {3., 53035.}}]}, + Annotation[#, "Charting`Private`Tag#9"]& ], + TagBox[ + {RGBColor[0.9, 0.54, 0.], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 9.}, {2., 0.}, {3., 54525.}}]}, + Annotation[#, "Charting`Private`Tag#10"]& ], + TagBox[ + {RGBColor[0.585, 0.5976, 0.9], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 10.}, {2., 0.}, {3., 54971.}}]}, + Annotation[#, "Charting`Private`Tag#11"]& ], + TagBox[ + {RGBColor[0.9, 0.45, 0.45], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 11.}, {2., 0.}, {3., 54465.}}]}, + Annotation[#, "Charting`Private`Tag#12"]& ], + TagBox[ + {RGBColor[0.7632186717367253, 0.8174402144034898, 0.], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 12.}, {2., 0.}, {3., 53131.}}]}, + Annotation[#, "Charting`Private`Tag#13"]& ], + TagBox[ + {RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + PointSize[0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 13.}, {2., 0.}, {3., 51096.}}]}, + Annotation[#, "Charting`Private`Tag#14"]& ], + TagBox[ + {RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + PointSize[0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 14.}, {2., 0.}, {3., 48507.}}]}, + Annotation[#, "Charting`Private`Tag#15"]& ], + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 15.}, {2., 0.}, {3., 45494.}}]}, + Annotation[#, "Charting`Private`Tag#16"]& ], + TagBox[ + {RGBColor[0.95, 0.627, 0.1425], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 16.}, {2., 0.}, {3., 42194.}}]}, + Annotation[#, "Charting`Private`Tag#17"]& ], + TagBox[ + {RGBColor[0.455, 0.7, 0.21], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 17.}, {2., 0.}, {3., 38723.}}]}, + Annotation[#, "Charting`Private`Tag#18"]& ], + TagBox[ + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 18.}, {2., 0.}, {3., 3519.}}]}, + Annotation[#, "Charting`Private`Tag#19"]& ], + TagBox[ + {RGBColor[0.578, 0.51, 0.85], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 19.}, {2., 0.}, {3., 31681.}}]}, + Annotation[#, "Charting`Private`Tag#20"]& ], + TagBox[ + {RGBColor[0.772079, 0.431554, 0.102387], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 20.}, {2., 0.}, {3., 28272.}}]}, + Annotation[#, "Charting`Private`Tag#21"]& ]}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 0.}, {2., 0.}, {3., 4388.}}]}, + "Charting`Private`Tag#1"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 1.}, {2., 0.}, {3., 13039.}}]}, + "Charting`Private`Tag#2"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 2.}, {2., 0.}, {3., 21317.}}]}, + "Charting`Private`Tag#3"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 3.}, {2., 0.}, {3., 28996.}}]}, + "Charting`Private`Tag#4"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 4.}, {2., 0.}, {3., 35881.}}]}, + "Charting`Private`Tag#5"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 5.}, {2., 0.}, {3., 41813.}}]}, + "Charting`Private`Tag#6"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Point[{{1., 6.}, {2., 0.}, {3., 46685.}}]}, + "Charting`Private`Tag#7"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Point[{{1., 7.}, {2., 0.}, {3., 50429.}}]}, + "Charting`Private`Tag#8"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Point[{{1., 8.}, {2., 0.}, {3., 53035.}}]}, + "Charting`Private`Tag#9"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Point[{{1., 9.}, {2., 0.}, {3., 54525.}}]}, + "Charting`Private`Tag#10"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Point[{{1., 10.}, {2., 0.}, {3., 54971.}}]}, + "Charting`Private`Tag#11"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Point[{{1., 11.}, {2., 0.}, {3., 54465.}}]}, + "Charting`Private`Tag#12"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Point[{{1., 12.}, {2., 0.}, {3., 53131.}}]}, + "Charting`Private`Tag#13"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Point[{{1., 13.}, {2., 0.}, {3., 51096.}}]}, + "Charting`Private`Tag#14"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Point[{{1., 14.}, {2., 0.}, {3., 48507.}}]}, + "Charting`Private`Tag#15"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 15.}, {2., 0.}, {3., 45494.}}]}, + "Charting`Private`Tag#16"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 16.}, {2., 0.}, {3., 42194.}}]}, + "Charting`Private`Tag#17"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 17.}, {2., 0.}, {3., 38723.}}]}, + "Charting`Private`Tag#18"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 18.}, {2., 0.}, {3., 3519.}}]}, + "Charting`Private`Tag#19"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 19.}, {2., 0.}, {3., 31681.}}]}, + "Charting`Private`Tag#20"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 20.}, {2., 0.}, {3., 28272.}}]}, + "Charting`Private`Tag#21"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 3.}, {0, 54971.}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0., 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 3.}, {0, 54971.}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0., 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity} + }|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 0.}, {2., 0.}, {3., 4388.}}]}, "Charting`Private`Tag#1"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 1.}, {2., 0.}, {3., 13039.}}]}, + "Charting`Private`Tag#2"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 2.}, {2., 0.}, {3., 21317.}}]}, + "Charting`Private`Tag#3"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 3.}, {2., 0.}, {3., 28996.}}]}, + "Charting`Private`Tag#4"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 4.}, {2., 0.}, {3., 35881.}}]}, + "Charting`Private`Tag#5"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 5.}, {2., 0.}, {3., 41813.}}]}, + "Charting`Private`Tag#6"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Point[{{1., 6.}, {2., 0.}, {3., 46685.}}]}, + "Charting`Private`Tag#7"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Point[{{1., 7.}, {2., 0.}, {3., 50429.}}]}, + "Charting`Private`Tag#8"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Point[{{1., 8.}, {2., 0.}, {3., 53035.}}]}, + "Charting`Private`Tag#9"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Point[{{1., 9.}, {2., 0.}, {3., 54525.}}]}, + "Charting`Private`Tag#10"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Point[{{1., 10.}, {2., 0.}, {3., 54971.}}]}, + "Charting`Private`Tag#11"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Point[{{1., 11.}, {2., 0.}, {3., 54465.}}]}, + "Charting`Private`Tag#12"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Point[{{1., 12.}, {2., 0.}, {3., 53131.}}]}, + "Charting`Private`Tag#13"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Point[{{1., 13.}, {2., 0.}, {3., 51096.}}]}, + "Charting`Private`Tag#14"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Point[{{1., 14.}, {2., 0.}, {3., 48507.}}]}, + "Charting`Private`Tag#15"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 15.}, {2., 0.}, {3., 45494.}}]}, + "Charting`Private`Tag#16"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 16.}, {2., 0.}, {3., 42194.}}]}, + "Charting`Private`Tag#17"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 17.}, {2., 0.}, {3., 38723.}}]}, + "Charting`Private`Tag#18"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 18.}, {2., 0.}, {3., 3519.}}]}, + "Charting`Private`Tag#19"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 19.}, {2., 0.}, {3., 31681.}}]}, + "Charting`Private`Tag#20"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 20.}, {2., 0.}, {3., 28272.}}]}, + "Charting`Private`Tag#21"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 3.}, {0, 54971.}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0., 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0., 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0., 3.}, {0, 54971.}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993826873683332*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"1c6febd9-9c90-4760-a583-0cc2e2e08abd"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ -89d3982ba28f"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[187]:=",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8FV8UAHAhpEhkzfbmPZI9WRLPOUllKS2UNVRos0RabIVS2iSU7IUW +JW9eStFCVNYkKYWQ/Er2XVT63f6Yz3y+n8+dO/eemXPODGOH/2YvXh4enr/k ++HeeaKt6wTqbY+bDz5aurAezxgyZ4JUfo+BaT3HIah0FQMk3O2Q+xoPc5S/d +vDpacGjj7Sa+j1kwGbbAoUmbDQsGpOOnmu7BYd6hvVe010P7E1v/saYyUFRn +7WvU2gZrWD2fh5sa4KXky8AOdV+YajK6NNTUCbfCJwMZSuFQvupmztusUfAO +TNV1p2JBvr3o2w7NP/A0oFd7nHkZFvq43xZcxYclcQ8MDr5Og/ilax7bbhFC +qwX+iRJvr8GnK7qlw2IiWHLHfGFGRQ6czTn2hld2ASYJGYhvfHATpBO/nk5I +l8A9f+wb+lfdhlP2VmYNE5I4EuyVK+GYB3L36+R4Z0lh2aGxHXs98iBfwn5y +6VwpnEybA49358GHBjf6opIUmk0MONsE5wFrUxC1yVIKxeT0BFVS8qBsfaZA +fbIUaqXFeT5tzoM/a8brXptK48DonWVhDnfhgPE196ooGdQcDHsmBPlgfVV0 +zOacDNYz5kT4rs4HSjAspu6SDIpoyv+ptcmH+sat3He3ZNDZe6tamGM+aO+f +x9dWJ4PCuv3LUwPyofvG4RsjcrLYa09NtGTlg+tC2/5FBbJ4z9avxmsWB5aF +Po7MeCKLXz3nejAEOSDcqSbFeCWLl/qFbjbN40ARhw9UP8midLanjb4MB6Rs +iuJ0/8rihta87rvaHKiPZOmvtpHDJtc3m7OcOWAxOB3i91UOrz/ZqnAhnwPB +lonqz/vkUFL1ufmpAg7kX9NqlpiQQ+Vy53UhjzggY+9hXCS0CPktpOdtKuNA +36OXk3zai3DaopP9/D0HEqLigpKPLMJrR8/tz/vFgU5JVb8XIvIYfm/NqiYG +DdL+JQrS0vI4RzoyZxaLhnWVjq/3KMuj+WzB4CWqNBSGnNWcv0wexcAyLECd +hjPtQz1OjvJYwys00KlHg17u412DWfIY0taWYLOKhkjTTdvllitgjujUA/0d +NFi6ZYwYmSvgi4WsWgNPGkQjeo9vWaeAJUz/b8u8aUgrj74R56GADvXL1Rbv +peGRdXGvwGkF/JyS8O1HAA1DjsxDo58UMM1eJLIjgga3g+NnakMVsViRO5iQ +RoNKkrl8T7Qi7n7I5THMoMn+L9wVjFNE7XULFd9n0hDye0m9eY4i2r/BY8LZ +NFw67iZZVKuI7DGdrk25NNRerMi8rqCEvzf8iLJ7QMOK/OT7R0uU0DMWElg1 +NFg01f0ZqFTC1Z68aFdLgy0P/1r3BiUsTPzteew1DTs3+32C/5Rw16xhmfo3 +NKwJZRyLmK2MPE8D9OwaadivNJG9UkMZ3Z/EhHS00jBeEFc5paOM3v5nG799 +Juuz1Ojn6itjCu+BvJ42GqIDPAwpM2W8MrW/qaeDhpTy6kreTcpY61HNet1F +w4tdmf3lh5TR8PzgqGwfDVa/jcXDQpXx1Uio80/iurhGQ/0IZdS4vXR1Yz8N +n4rmROScVsbjXs9unRikYWBukHh0mjKKevPerxihQYa2NFpTpowlDSYrmn7S +kG7x1WXmlTJ+yO6RjJ2igfoUHlFYo4xzPyeHmU/ToMVbUKX6XhkVB8r6sn/R +YG6v4CrYrYzz7To8rWZo8Pk5HFEpwsAfWvKLlPi4sCLAW+qbOAO7GC7viomF +eprv8MkwsCJyLdeOnwvXW8o/mFEMlJ9M7QibzYW2Z5c0Hxgy8KxutOJdQS7k +GQmXNZgwMKEiVFJPiAsh9FGHIWRgVqOs0X1iqaxdURo2ZH5202/OHC5siDb+ +eM2dgdbb1uVEz+WC4sxd3xJPBn654sc7Rtx3iOL7vIdcP+AR5z6PCzG752rL +BDGwrs3BTFuEC1u/HCs3CGZgpQnH/SIxy3nM0e4oA5lGYQXDxKU2n4/HxjBw +hyNrPFeUC7EvNsnmnWdgd7dD16z5XHBlv8qvimfgkj6ukAPxlDbnE386Azd8 +uDj6k1hPPFInlMtAHSF9r0ULuMBzdvzFlUIGzkhUiW0jruPb61z4mIEHCwUn +U4n3jW+OHn7JwNS9Gw8tECfx9KuQm1/DQJ5T5WKWxELfTWjNegaesb3XHUqc +85HVsquZgUm+rXYtxIGbkvdHtzOwxvRkt4AEF7BaRCC7i4GXr8c81SEWXRWV +WvqDgTLxae+2EH9+PKHbNsDA8qRQjWDiPP19r36Nkusn2l8mE4fcbXeRnWJg +afKJ7IfElqr2w4YzDBSUVHnZQCyVWXnSno9CnxvhGr3EXdJs+UAhCrP1bZp4 +FnLhXhyXe0GEwgpbmyoJ4og5qmvvilM4omHKyyLeEJXSWi1NIX27NWopseIv +0cBueQrjNvbZmBL3HTguKEBReNNKw82CuLhvMo25mMKFu52LrYhjvHz0VmpS +GMM02b6OeGtbR4XbUnK/Kxfs/pnlsGVbmCGFWqfl4v+NH3lTNZJsQqGxc6bC +v/lKLc1iHiKFIpKdEybEsc/vKbxfTeGQ103Ff+txXbG4YMSawsbU+5eYxOoF +qZZiGyn8fPON67/9TGmItWltobBTviTo334n0uUilzlTuCA5wupfPMbmq7CM +3SlUXB1y+h3xcKROhZknhf0v9xgUEQ+MGu+12ENhvb2IbRpxr5eFiLUfhcIl +zMYw4u4mW3rDAQo9vXwqnYk7H++ccA6n0L8ycUaUuF3LL9kjikIT1sTK/8jz +b808Yup9isKgqXMTj4g/HD8fFXCRxPOCZ6Ej8bvxJJXDlyksC9YoZxHX78qq +DEulUEZH32KAvH/VNg9FY65TaBqqcCOYuOLpc+752yR+D2NiTIhf6NTaJ3Ao +zBC06ZwW48IziS8pGUUUNlkNzQQQP47uZec8o1DJdkf5EuJHk+MdueUU8p+1 +4m0n+XCvRXjxg9cUrviUOrKSmLNesrq4gcIfLinXB0l+5ZUo+ZY2kfFT+h9S +iG9k6xfUfKGwauu+gh8kH1P2uUHnOIWJvvpBe0g+J33e3fl9mkJWxS51PuLE +DQei+/+S9ZZneKaQ/I9dFlPzcw4T4wK37H4uzIWoX1yH+YpMFLtQUD5M6skx +3yfTC5lMnKtVRx8mDmt/lS6nxkS18wfVfpF6dKi85auKHhMDfjwqnhYg+Xl2 +9n7TNUxk1W6OaiX1bPef+RLmNkzkzRRrsSX29pcrXLuRiX9m+F8+I/XPw07n +92ZnJirWDG5I4uWC/SKnmD1+THz4PdxJg4cLpnfyrl6+zEQX/6TpdlJvW5Tv +ZK5OZWJ9UAD/cuKQy7kZY5lMLOcN/X2e1OeHkTfSNucyseLXUNEyUr/1HK9e +EX3CxLZWq6Pe4zQsmZ0Yd/ILE2MU2mr3kPpfGRJ/weAbE79zLOdfG6DBeygu +tquHicoDLjYfSL/IaTl/znyMiX5x3gUrSD9RvncqZkaAhUIN0Q693TRIuYdG +HNJkYXdDZWLfFxoeNAYfU1nKwpPqLVV8xPbWR442GrAw382TX5b0r3iDg2F6 +wEIPgeZzbNLfROb5HxnYxMJCcObxb6aBv2jHfu/DLNTz6ZcLaqBhWNzaY2sZ +C+uorsPzntPw0Yeq31vBwr95xm9rS2gofTUNx2pZuEQtffTMMxriQu4o3frA +Iu/ThSSeJzTods5rn+phoXPDyiNvC2nw477Zli6hgrNp4WPCeTT0bNji0uWp +gg/bJ152JNLQkKtV83OPCt55e3K5awINxXwCJiL+Kqhg0Jr4/iINpx8WyhkG +E1vwzy+LpUFNSab51HkVfGF0STUqhoZdA82OGoUq6HFEvC4zlIaucx5bAwVV +sezzit2OHuT+PZqU7jxVfHPh+HauGw2Ta6f6+8VUUfj9fzeEttEgzBcfvUdO +FbNbj8jecyLrDy6/76GlisfD/QuHNtMQ7qUqscFOFd00exIVVpP4m/W90chU +RfVrbtKmaqT/Dx62+s9wMY4M7kwJe8cB+aWKJ4VMF6Pe3dxi4TccGAh8Uaax +cjGOdSjvuFTNgcQJMdNAm8WowNu34epzDrT9ydX+674YD66a+X6Ow4HAea0S +sqcXo067lkT5GQ6kLMG2dS2LkbfE93aBGfm+3Cl04P4xNVzTOiK1JD2f/G9I +854qW4JaTsJ62+AuiL9WjaUH1fGOZddA6sc7IB/D2WhoqIkCF+Q3c5bfhisa +xmISu7TQnXedQEjWLaiWW2kwelEbJYyfVYoI34QV8mVxOh90MLMzKH6L9XUQ +5csK2h6li8t957n+yM0GxUglUyfVpdj76t22+v5rMEfFtXBzxVLc+NaUkltz +FbTZspzD2/Twv4bRNayEdAhsEy+35lmGIQ2mA3YRKTA4em6L1ZVluN0l3PtG +dRKs1XmVYqWljzf3s7pmr7sEz0ZNfk3W6eMJI7ogvyIe/DT1mt96GaB+xolS +TI8D9oBno9McQxSAK5J1A+dgNUtmvUiWId4OHwmotT4NahFnjpQZGWH3doe4 +U/NPgrqXcYlKsxE6NB/QE+2NAq9nu0/cD1iOU2YzjO+2EVBytdFzWNIY1T99 +i/PICIWxW38ndR4aY9xIuLKj/WHYqXJnTsr6FTi9+/KSi+8PwLB6guG9oRWo +cFP/6LOz++FRzq8v4zEmOKvGocPu9T5wtmCiiaIp8gucST5vvwsW+Z4q0i41 +xcGFUtVHdXeCpLAPd70DG2ecDMING90hZ1V4yJAT8afkarsid9ALj12V4MpG +I+OZrycy3MF2iH7/cTsbk69X2lB73OHkh/GpnT5sbCz1vmn51w1+Zh0zD4lk +o9wWvW3GOm7QbJLw7sYdNuq/oOWd011h98GcNKt8NvrXvQpuPuEKE/kPvPpo +NrpdsVrm6+MK4tTHyaWFbFxYVR1bZeIKNkIK8k9L2fizdwnHtcUFnjTe8Hz3 +no3xL73aOxVcwFr0kdahj2zsXfe09riAC3xcWzUh08LGfCkXL8NBZxgr7o1x +62Djp8bHPvWlzqB1Tffujx42erWvy/7g6QxPmlceOtfPxhbFkSI+W2ewXmgH +OkNsTE+aYJkbOYP3qYNvg8bZePDmTO3IHDJf6ckU6Z9stFA7OuY56gRR00k7 +i6fZ6FRov7q71QnE9HM1t/1hI3Wk5n7YKyfI8C0e//uXjamiussp2gn+Bxl5 +Ju0= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8FV8UAHAhpEhkzfbmPZI9WRLPOUllKS2UNVRos0RabIVS2iSU7IUW +JW9eStFCVNYkKYWQ/Er2XVT63f6Yz3y+n8+dO/eemXPODGOH/2YvXh4enr/k ++HeeaKt6wTqbY+bDz5aurAezxgyZ4JUfo+BaT3HIah0FQMk3O2Q+xoPc5S/d +vDpacGjj7Sa+j1kwGbbAoUmbDQsGpOOnmu7BYd6hvVe010P7E1v/saYyUFRn +7WvU2gZrWD2fh5sa4KXky8AOdV+YajK6NNTUCbfCJwMZSuFQvupmztusUfAO +TNV1p2JBvr3o2w7NP/A0oFd7nHkZFvq43xZcxYclcQ8MDr5Og/ilax7bbhFC +qwX+iRJvr8GnK7qlw2IiWHLHfGFGRQ6czTn2hld2ASYJGYhvfHATpBO/nk5I +l8A9f+wb+lfdhlP2VmYNE5I4EuyVK+GYB3L36+R4Z0lh2aGxHXs98iBfwn5y +6VwpnEybA49358GHBjf6opIUmk0MONsE5wFrUxC1yVIKxeT0BFVS8qBsfaZA +fbIUaqXFeT5tzoM/a8brXptK48DonWVhDnfhgPE196ooGdQcDHsmBPlgfVV0 +zOacDNYz5kT4rs4HSjAspu6SDIpoyv+ptcmH+sat3He3ZNDZe6tamGM+aO+f +x9dWJ4PCuv3LUwPyofvG4RsjcrLYa09NtGTlg+tC2/5FBbJ4z9avxmsWB5aF +Po7MeCKLXz3nejAEOSDcqSbFeCWLl/qFbjbN40ARhw9UP8midLanjb4MB6Rs +iuJ0/8rihta87rvaHKiPZOmvtpHDJtc3m7OcOWAxOB3i91UOrz/ZqnAhnwPB +lonqz/vkUFL1ufmpAg7kX9NqlpiQQ+Vy53UhjzggY+9hXCS0CPktpOdtKuNA +36OXk3zai3DaopP9/D0HEqLigpKPLMJrR8/tz/vFgU5JVb8XIvIYfm/NqiYG +DdL+JQrS0vI4RzoyZxaLhnWVjq/3KMuj+WzB4CWqNBSGnNWcv0wexcAyLECd +hjPtQz1OjvJYwys00KlHg17u412DWfIY0taWYLOKhkjTTdvllitgjujUA/0d +NFi6ZYwYmSvgi4WsWgNPGkQjeo9vWaeAJUz/b8u8aUgrj74R56GADvXL1Rbv +peGRdXGvwGkF/JyS8O1HAA1DjsxDo58UMM1eJLIjgga3g+NnakMVsViRO5iQ +RoNKkrl8T7Qi7n7I5THMoMn+L9wVjFNE7XULFd9n0hDye0m9eY4i2r/BY8LZ +NFw67iZZVKuI7DGdrk25NNRerMi8rqCEvzf8iLJ7QMOK/OT7R0uU0DMWElg1 +NFg01f0ZqFTC1Z68aFdLgy0P/1r3BiUsTPzteew1DTs3+32C/5Rw16xhmfo3 +NKwJZRyLmK2MPE8D9OwaadivNJG9UkMZ3Z/EhHS00jBeEFc5paOM3v5nG799 +Juuz1Ojn6itjCu+BvJ42GqIDPAwpM2W8MrW/qaeDhpTy6kreTcpY61HNet1F +w4tdmf3lh5TR8PzgqGwfDVa/jcXDQpXx1Uio80/iurhGQ/0IZdS4vXR1Yz8N +n4rmROScVsbjXs9unRikYWBukHh0mjKKevPerxihQYa2NFpTpowlDSYrmn7S +kG7x1WXmlTJ+yO6RjJ2igfoUHlFYo4xzPyeHmU/ToMVbUKX6XhkVB8r6sn/R +YG6v4CrYrYzz7To8rWZo8Pk5HFEpwsAfWvKLlPi4sCLAW+qbOAO7GC7viomF +eprv8MkwsCJyLdeOnwvXW8o/mFEMlJ9M7QibzYW2Z5c0Hxgy8KxutOJdQS7k +GQmXNZgwMKEiVFJPiAsh9FGHIWRgVqOs0X1iqaxdURo2ZH5202/OHC5siDb+ +eM2dgdbb1uVEz+WC4sxd3xJPBn654sc7Rtx3iOL7vIdcP+AR5z6PCzG752rL +BDGwrs3BTFuEC1u/HCs3CGZgpQnH/SIxy3nM0e4oA5lGYQXDxKU2n4/HxjBw +hyNrPFeUC7EvNsnmnWdgd7dD16z5XHBlv8qvimfgkj6ukAPxlDbnE386Azd8 +uDj6k1hPPFInlMtAHSF9r0ULuMBzdvzFlUIGzkhUiW0jruPb61z4mIEHCwUn +U4n3jW+OHn7JwNS9Gw8tECfx9KuQm1/DQJ5T5WKWxELfTWjNegaesb3XHUqc +85HVsquZgUm+rXYtxIGbkvdHtzOwxvRkt4AEF7BaRCC7i4GXr8c81SEWXRWV +WvqDgTLxae+2EH9+PKHbNsDA8qRQjWDiPP19r36Nkusn2l8mE4fcbXeRnWJg +afKJ7IfElqr2w4YzDBSUVHnZQCyVWXnSno9CnxvhGr3EXdJs+UAhCrP1bZp4 +FnLhXhyXe0GEwgpbmyoJ4og5qmvvilM4omHKyyLeEJXSWi1NIX27NWopseIv +0cBueQrjNvbZmBL3HTguKEBReNNKw82CuLhvMo25mMKFu52LrYhjvHz0VmpS +GMM02b6OeGtbR4XbUnK/Kxfs/pnlsGVbmCGFWqfl4v+NH3lTNZJsQqGxc6bC +v/lKLc1iHiKFIpKdEybEsc/vKbxfTeGQ103Ff+txXbG4YMSawsbU+5eYxOoF +qZZiGyn8fPON67/9TGmItWltobBTviTo334n0uUilzlTuCA5wupfPMbmq7CM +3SlUXB1y+h3xcKROhZknhf0v9xgUEQ+MGu+12ENhvb2IbRpxr5eFiLUfhcIl +zMYw4u4mW3rDAQo9vXwqnYk7H++ccA6n0L8ycUaUuF3LL9kjikIT1sTK/8jz +b808Yup9isKgqXMTj4g/HD8fFXCRxPOCZ6Ej8bvxJJXDlyksC9YoZxHX78qq +DEulUEZH32KAvH/VNg9FY65TaBqqcCOYuOLpc+752yR+D2NiTIhf6NTaJ3Ao +zBC06ZwW48IziS8pGUUUNlkNzQQQP47uZec8o1DJdkf5EuJHk+MdueUU8p+1 +4m0n+XCvRXjxg9cUrviUOrKSmLNesrq4gcIfLinXB0l+5ZUo+ZY2kfFT+h9S +iG9k6xfUfKGwauu+gh8kH1P2uUHnOIWJvvpBe0g+J33e3fl9mkJWxS51PuLE +DQei+/+S9ZZneKaQ/I9dFlPzcw4T4wK37H4uzIWoX1yH+YpMFLtQUD5M6skx +3yfTC5lMnKtVRx8mDmt/lS6nxkS18wfVfpF6dKi85auKHhMDfjwqnhYg+Xl2 +9n7TNUxk1W6OaiX1bPef+RLmNkzkzRRrsSX29pcrXLuRiX9m+F8+I/XPw07n +92ZnJirWDG5I4uWC/SKnmD1+THz4PdxJg4cLpnfyrl6+zEQX/6TpdlJvW5Tv +ZK5OZWJ9UAD/cuKQy7kZY5lMLOcN/X2e1OeHkTfSNucyseLXUNEyUr/1HK9e +EX3CxLZWq6Pe4zQsmZ0Yd/ILE2MU2mr3kPpfGRJ/weAbE79zLOdfG6DBeygu +tquHicoDLjYfSL/IaTl/znyMiX5x3gUrSD9RvncqZkaAhUIN0Q693TRIuYdG +HNJkYXdDZWLfFxoeNAYfU1nKwpPqLVV8xPbWR442GrAw382TX5b0r3iDg2F6 +wEIPgeZzbNLfROb5HxnYxMJCcObxb6aBv2jHfu/DLNTz6ZcLaqBhWNzaY2sZ +C+uorsPzntPw0Yeq31vBwr95xm9rS2gofTUNx2pZuEQtffTMMxriQu4o3frA +Iu/ThSSeJzTods5rn+phoXPDyiNvC2nw477Zli6hgrNp4WPCeTT0bNji0uWp +gg/bJ152JNLQkKtV83OPCt55e3K5awINxXwCJiL+Kqhg0Jr4/iINpx8WyhkG +E1vwzy+LpUFNSab51HkVfGF0STUqhoZdA82OGoUq6HFEvC4zlIaucx5bAwVV +sezzit2OHuT+PZqU7jxVfHPh+HauGw2Ta6f6+8VUUfj9fzeEttEgzBcfvUdO +FbNbj8jecyLrDy6/76GlisfD/QuHNtMQ7qUqscFOFd00exIVVpP4m/W90chU +RfVrbtKmaqT/Dx62+s9wMY4M7kwJe8cB+aWKJ4VMF6Pe3dxi4TccGAh8Uaax +cjGOdSjvuFTNgcQJMdNAm8WowNu34epzDrT9ydX+674YD66a+X6Ow4HAea0S +sqcXo067lkT5GQ6kLMG2dS2LkbfE93aBGfm+3Cl04P4xNVzTOiK1JD2f/G9I +854qW4JaTsJ62+AuiL9WjaUH1fGOZddA6sc7IB/D2WhoqIkCF+Q3c5bfhisa +xmISu7TQnXedQEjWLaiWW2kwelEbJYyfVYoI34QV8mVxOh90MLMzKH6L9XUQ +5csK2h6li8t957n+yM0GxUglUyfVpdj76t22+v5rMEfFtXBzxVLc+NaUkltz +FbTZspzD2/Twv4bRNayEdAhsEy+35lmGIQ2mA3YRKTA4em6L1ZVluN0l3PtG +dRKs1XmVYqWljzf3s7pmr7sEz0ZNfk3W6eMJI7ogvyIe/DT1mt96GaB+xolS +TI8D9oBno9McQxSAK5J1A+dgNUtmvUiWId4OHwmotT4NahFnjpQZGWH3doe4 +U/NPgrqXcYlKsxE6NB/QE+2NAq9nu0/cD1iOU2YzjO+2EVBytdFzWNIY1T99 +i/PICIWxW38ndR4aY9xIuLKj/WHYqXJnTsr6FTi9+/KSi+8PwLB6guG9oRWo +cFP/6LOz++FRzq8v4zEmOKvGocPu9T5wtmCiiaIp8gucST5vvwsW+Z4q0i41 +xcGFUtVHdXeCpLAPd70DG2ecDMING90hZ1V4yJAT8afkarsid9ALj12V4MpG +I+OZrycy3MF2iH7/cTsbk69X2lB73OHkh/GpnT5sbCz1vmn51w1+Zh0zD4lk +o9wWvW3GOm7QbJLw7sYdNuq/oOWd011h98GcNKt8NvrXvQpuPuEKE/kPvPpo +NrpdsVrm6+MK4tTHyaWFbFxYVR1bZeIKNkIK8k9L2fizdwnHtcUFnjTe8Hz3 +no3xL73aOxVcwFr0kdahj2zsXfe09riAC3xcWzUh08LGfCkXL8NBZxgr7o1x +62Djp8bHPvWlzqB1Tffujx42erWvy/7g6QxPmlceOtfPxhbFkSI+W2ewXmgH +OkNsTE+aYJkbOYP3qYNvg8bZePDmTO3IHDJf6ckU6Z9stFA7OuY56gRR00k7 +i6fZ6FRov7q71QnE9HM1t/1hI3Wk5n7YKyfI8C0e//uXjamiussp2gn+Bxl5 +Ju0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06671597837261178}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06671597837261178}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8FV8UAHAhpEhkzfbmPZI9WRLPOUllKS2UNVRos0RabIVS2iSU7IUW +JW9eStFCVNYkKYWQ/Er2XVT63f6Yz3y+n8+dO/eemXPODGOH/2YvXh4enr/k ++HeeaKt6wTqbY+bDz5aurAezxgyZ4JUfo+BaT3HIah0FQMk3O2Q+xoPc5S/d +vDpacGjj7Sa+j1kwGbbAoUmbDQsGpOOnmu7BYd6hvVe010P7E1v/saYyUFRn +7WvU2gZrWD2fh5sa4KXky8AOdV+YajK6NNTUCbfCJwMZSuFQvupmztusUfAO +TNV1p2JBvr3o2w7NP/A0oFd7nHkZFvq43xZcxYclcQ8MDr5Og/ilax7bbhFC +qwX+iRJvr8GnK7qlw2IiWHLHfGFGRQ6czTn2hld2ASYJGYhvfHATpBO/nk5I +l8A9f+wb+lfdhlP2VmYNE5I4EuyVK+GYB3L36+R4Z0lh2aGxHXs98iBfwn5y +6VwpnEybA49358GHBjf6opIUmk0MONsE5wFrUxC1yVIKxeT0BFVS8qBsfaZA +fbIUaqXFeT5tzoM/a8brXptK48DonWVhDnfhgPE196ooGdQcDHsmBPlgfVV0 +zOacDNYz5kT4rs4HSjAspu6SDIpoyv+ptcmH+sat3He3ZNDZe6tamGM+aO+f +x9dWJ4PCuv3LUwPyofvG4RsjcrLYa09NtGTlg+tC2/5FBbJ4z9avxmsWB5aF +Po7MeCKLXz3nejAEOSDcqSbFeCWLl/qFbjbN40ARhw9UP8midLanjb4MB6Rs +iuJ0/8rihta87rvaHKiPZOmvtpHDJtc3m7OcOWAxOB3i91UOrz/ZqnAhnwPB +lonqz/vkUFL1ufmpAg7kX9NqlpiQQ+Vy53UhjzggY+9hXCS0CPktpOdtKuNA +36OXk3zai3DaopP9/D0HEqLigpKPLMJrR8/tz/vFgU5JVb8XIvIYfm/NqiYG +DdL+JQrS0vI4RzoyZxaLhnWVjq/3KMuj+WzB4CWqNBSGnNWcv0wexcAyLECd +hjPtQz1OjvJYwys00KlHg17u412DWfIY0taWYLOKhkjTTdvllitgjujUA/0d +NFi6ZYwYmSvgi4WsWgNPGkQjeo9vWaeAJUz/b8u8aUgrj74R56GADvXL1Rbv +peGRdXGvwGkF/JyS8O1HAA1DjsxDo58UMM1eJLIjgga3g+NnakMVsViRO5iQ +RoNKkrl8T7Qi7n7I5THMoMn+L9wVjFNE7XULFd9n0hDye0m9eY4i2r/BY8LZ +NFw67iZZVKuI7DGdrk25NNRerMi8rqCEvzf8iLJ7QMOK/OT7R0uU0DMWElg1 +NFg01f0ZqFTC1Z68aFdLgy0P/1r3BiUsTPzteew1DTs3+32C/5Rw16xhmfo3 +NKwJZRyLmK2MPE8D9OwaadivNJG9UkMZ3Z/EhHS00jBeEFc5paOM3v5nG799 +Juuz1Ojn6itjCu+BvJ42GqIDPAwpM2W8MrW/qaeDhpTy6kreTcpY61HNet1F +w4tdmf3lh5TR8PzgqGwfDVa/jcXDQpXx1Uio80/iurhGQ/0IZdS4vXR1Yz8N +n4rmROScVsbjXs9unRikYWBukHh0mjKKevPerxihQYa2NFpTpowlDSYrmn7S +kG7x1WXmlTJ+yO6RjJ2igfoUHlFYo4xzPyeHmU/ToMVbUKX6XhkVB8r6sn/R +YG6v4CrYrYzz7To8rWZo8Pk5HFEpwsAfWvKLlPi4sCLAW+qbOAO7GC7viomF +eprv8MkwsCJyLdeOnwvXW8o/mFEMlJ9M7QibzYW2Z5c0Hxgy8KxutOJdQS7k +GQmXNZgwMKEiVFJPiAsh9FGHIWRgVqOs0X1iqaxdURo2ZH5202/OHC5siDb+ +eM2dgdbb1uVEz+WC4sxd3xJPBn654sc7Rtx3iOL7vIdcP+AR5z6PCzG752rL +BDGwrs3BTFuEC1u/HCs3CGZgpQnH/SIxy3nM0e4oA5lGYQXDxKU2n4/HxjBw +hyNrPFeUC7EvNsnmnWdgd7dD16z5XHBlv8qvimfgkj6ukAPxlDbnE386Azd8 +uDj6k1hPPFInlMtAHSF9r0ULuMBzdvzFlUIGzkhUiW0jruPb61z4mIEHCwUn +U4n3jW+OHn7JwNS9Gw8tECfx9KuQm1/DQJ5T5WKWxELfTWjNegaesb3XHUqc +85HVsquZgUm+rXYtxIGbkvdHtzOwxvRkt4AEF7BaRCC7i4GXr8c81SEWXRWV +WvqDgTLxae+2EH9+PKHbNsDA8qRQjWDiPP19r36Nkusn2l8mE4fcbXeRnWJg +afKJ7IfElqr2w4YzDBSUVHnZQCyVWXnSno9CnxvhGr3EXdJs+UAhCrP1bZp4 +FnLhXhyXe0GEwgpbmyoJ4og5qmvvilM4omHKyyLeEJXSWi1NIX27NWopseIv +0cBueQrjNvbZmBL3HTguKEBReNNKw82CuLhvMo25mMKFu52LrYhjvHz0VmpS +GMM02b6OeGtbR4XbUnK/Kxfs/pnlsGVbmCGFWqfl4v+NH3lTNZJsQqGxc6bC +v/lKLc1iHiKFIpKdEybEsc/vKbxfTeGQ103Ff+txXbG4YMSawsbU+5eYxOoF +qZZiGyn8fPON67/9TGmItWltobBTviTo334n0uUilzlTuCA5wupfPMbmq7CM +3SlUXB1y+h3xcKROhZknhf0v9xgUEQ+MGu+12ENhvb2IbRpxr5eFiLUfhcIl +zMYw4u4mW3rDAQo9vXwqnYk7H++ccA6n0L8ycUaUuF3LL9kjikIT1sTK/8jz +b808Yup9isKgqXMTj4g/HD8fFXCRxPOCZ6Ej8bvxJJXDlyksC9YoZxHX78qq +DEulUEZH32KAvH/VNg9FY65TaBqqcCOYuOLpc+752yR+D2NiTIhf6NTaJ3Ao +zBC06ZwW48IziS8pGUUUNlkNzQQQP47uZec8o1DJdkf5EuJHk+MdueUU8p+1 +4m0n+XCvRXjxg9cUrviUOrKSmLNesrq4gcIfLinXB0l+5ZUo+ZY2kfFT+h9S +iG9k6xfUfKGwauu+gh8kH1P2uUHnOIWJvvpBe0g+J33e3fl9mkJWxS51PuLE +DQei+/+S9ZZneKaQ/I9dFlPzcw4T4wK37H4uzIWoX1yH+YpMFLtQUD5M6skx +3yfTC5lMnKtVRx8mDmt/lS6nxkS18wfVfpF6dKi85auKHhMDfjwqnhYg+Xl2 +9n7TNUxk1W6OaiX1bPef+RLmNkzkzRRrsSX29pcrXLuRiX9m+F8+I/XPw07n +92ZnJirWDG5I4uWC/SKnmD1+THz4PdxJg4cLpnfyrl6+zEQX/6TpdlJvW5Tv +ZK5OZWJ9UAD/cuKQy7kZY5lMLOcN/X2e1OeHkTfSNucyseLXUNEyUr/1HK9e +EX3CxLZWq6Pe4zQsmZ0Yd/ILE2MU2mr3kPpfGRJ/weAbE79zLOdfG6DBeygu +tquHicoDLjYfSL/IaTl/znyMiX5x3gUrSD9RvncqZkaAhUIN0Q693TRIuYdG +HNJkYXdDZWLfFxoeNAYfU1nKwpPqLVV8xPbWR442GrAw382TX5b0r3iDg2F6 +wEIPgeZzbNLfROb5HxnYxMJCcObxb6aBv2jHfu/DLNTz6ZcLaqBhWNzaY2sZ +C+uorsPzntPw0Yeq31vBwr95xm9rS2gofTUNx2pZuEQtffTMMxriQu4o3frA +Iu/ThSSeJzTods5rn+phoXPDyiNvC2nw477Zli6hgrNp4WPCeTT0bNji0uWp +gg/bJ152JNLQkKtV83OPCt55e3K5awINxXwCJiL+Kqhg0Jr4/iINpx8WyhkG +E1vwzy+LpUFNSab51HkVfGF0STUqhoZdA82OGoUq6HFEvC4zlIaucx5bAwVV +sezzit2OHuT+PZqU7jxVfHPh+HauGw2Ta6f6+8VUUfj9fzeEttEgzBcfvUdO +FbNbj8jecyLrDy6/76GlisfD/QuHNtMQ7qUqscFOFd00exIVVpP4m/W90chU +RfVrbtKmaqT/Dx62+s9wMY4M7kwJe8cB+aWKJ4VMF6Pe3dxi4TccGAh8Uaax +cjGOdSjvuFTNgcQJMdNAm8WowNu34epzDrT9ydX+674YD66a+X6Ow4HAea0S +sqcXo067lkT5GQ6kLMG2dS2LkbfE93aBGfm+3Cl04P4xNVzTOiK1JD2f/G9I +854qW4JaTsJ62+AuiL9WjaUH1fGOZddA6sc7IB/D2WhoqIkCF+Q3c5bfhisa +xmISu7TQnXedQEjWLaiWW2kwelEbJYyfVYoI34QV8mVxOh90MLMzKH6L9XUQ +5csK2h6li8t957n+yM0GxUglUyfVpdj76t22+v5rMEfFtXBzxVLc+NaUkltz +FbTZspzD2/Twv4bRNayEdAhsEy+35lmGIQ2mA3YRKTA4em6L1ZVluN0l3PtG +dRKs1XmVYqWljzf3s7pmr7sEz0ZNfk3W6eMJI7ogvyIe/DT1mt96GaB+xolS +TI8D9oBno9McQxSAK5J1A+dgNUtmvUiWId4OHwmotT4NahFnjpQZGWH3doe4 +U/NPgrqXcYlKsxE6NB/QE+2NAq9nu0/cD1iOU2YzjO+2EVBytdFzWNIY1T99 +i/PICIWxW38ndR4aY9xIuLKj/WHYqXJnTsr6FTi9+/KSi+8PwLB6guG9oRWo +cFP/6LOz++FRzq8v4zEmOKvGocPu9T5wtmCiiaIp8gucST5vvwsW+Z4q0i41 +xcGFUtVHdXeCpLAPd70DG2ecDMING90hZ1V4yJAT8afkarsid9ALj12V4MpG +I+OZrycy3MF2iH7/cTsbk69X2lB73OHkh/GpnT5sbCz1vmn51w1+Zh0zD4lk +o9wWvW3GOm7QbJLw7sYdNuq/oOWd011h98GcNKt8NvrXvQpuPuEKE/kPvPpo +NrpdsVrm6+MK4tTHyaWFbFxYVR1bZeIKNkIK8k9L2fizdwnHtcUFnjTe8Hz3 +no3xL73aOxVcwFr0kdahj2zsXfe09riAC3xcWzUh08LGfCkXL8NBZxgr7o1x +62Djp8bHPvWlzqB1Tffujx42erWvy/7g6QxPmlceOtfPxhbFkSI+W2ewXmgH +OkNsTE+aYJkbOYP3qYNvg8bZePDmTO3IHDJf6ckU6Z9stFA7OuY56gRR00k7 +i6fZ6FRov7q71QnE9HM1t/1hI3Wk5n7YKyfI8C0e//uXjamiussp2gn+Bxl5 +Ju0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06671597837261178}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[{ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 0.}, {2., 0.}, {3., 4388.}}]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + TagBox[ + {RGBColor[0.95, 0.627, 0.1425], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 1.}, {2., 0.}, {3., 13039.}}]}, + Annotation[#, "Charting`Private`Tag#2"]& ], + TagBox[ + {RGBColor[0.455, 0.7, 0.21], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 2.}, {2., 0.}, {3., 21317.}}]}, + Annotation[#, "Charting`Private`Tag#3"]& ], + TagBox[ + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 3.}, {2., 0.}, {3., 28996.}}]}, + Annotation[#, "Charting`Private`Tag#4"]& ], + TagBox[ + {RGBColor[0.578, 0.51, 0.85], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 4.}, {2., 0.}, {3., 35881.}}]}, + Annotation[#, "Charting`Private`Tag#5"]& ], + TagBox[ + {RGBColor[0.772079, 0.431554, 0.102387], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 5.}, {2., 0.}, {3., 41813.}}]}, + Annotation[#, "Charting`Private`Tag#6"]& ], + TagBox[ + {RGBColor[0., 0.6, 0.6], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 6.}, {2., 0.}, {3., 46685.}}]}, + Annotation[#, "Charting`Private`Tag#7"]& ], + TagBox[ + {RGBColor[0.9, 0.36, 0.684], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 7.}, {2., 0.}, {3., 50429.}}]}, + Annotation[#, "Charting`Private`Tag#8"]& ], + TagBox[ + {RGBColor[0.56, 0.7, 0.], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 8.}, {2., 0.}, {3., 53035.}}]}, + Annotation[#, "Charting`Private`Tag#9"]& ], + TagBox[ + {RGBColor[0.9, 0.54, 0.], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 9.}, {2., 0.}, {3., 54525.}}]}, + Annotation[#, "Charting`Private`Tag#10"]& ], + TagBox[ + {RGBColor[0.585, 0.5976, 0.9], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 10.}, {2., 0.}, {3., 54971.}}]}, + Annotation[#, "Charting`Private`Tag#11"]& ], + TagBox[ + {RGBColor[0.9, 0.45, 0.45], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 11.}, {2., 0.}, {3., 54465.}}]}, + Annotation[#, "Charting`Private`Tag#12"]& ], + TagBox[ + {RGBColor[0.7632186717367253, 0.8174402144034898, 0.], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 12.}, {2., 0.}, {3., 53131.}}]}, + Annotation[#, "Charting`Private`Tag#13"]& ], + TagBox[ + {RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + PointSize[0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 13.}, {2., 0.}, {3., 51096.}}]}, + Annotation[#, "Charting`Private`Tag#14"]& ], + TagBox[ + {RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + PointSize[0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 14.}, {2., 0.}, {3., 48507.}}]}, + Annotation[#, "Charting`Private`Tag#15"]& ], + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 15.}, {2., 0.}, {3., 45494.}}]}, + Annotation[#, "Charting`Private`Tag#16"]& ], + TagBox[ + {RGBColor[0.95, 0.627, 0.1425], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 16.}, {2., 0.}, {3., 42194.}}]}, + Annotation[#, "Charting`Private`Tag#17"]& ], + TagBox[ + {RGBColor[0.455, 0.7, 0.21], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 17.}, {2., 0.}, {3., 38723.}}]}, + Annotation[#, "Charting`Private`Tag#18"]& ], + TagBox[ + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 18.}, {2., 0.}, {3., 3519.}}]}, + Annotation[#, "Charting`Private`Tag#19"]& ], + TagBox[ + {RGBColor[0.578, 0.51, 0.85], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 19.}, {2., 0.}, {3., 31681.}}]}, + Annotation[#, "Charting`Private`Tag#20"]& ], + TagBox[ + {RGBColor[0.772079, 0.431554, 0.102387], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 20.}, {2., 0.}, {3., 28272.}}]}, + Annotation[#, "Charting`Private`Tag#21"]& ]}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 0.}, {2., 0.}, {3., 4388.}}]}, + "Charting`Private`Tag#1"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 1.}, {2., 0.}, {3., 13039.}}]}, + "Charting`Private`Tag#2"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 2.}, {2., 0.}, {3., 21317.}}]}, + "Charting`Private`Tag#3"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 3.}, {2., 0.}, {3., 28996.}}]}, + "Charting`Private`Tag#4"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 4.}, {2., 0.}, {3., 35881.}}]}, + "Charting`Private`Tag#5"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 5.}, {2., 0.}, {3., 41813.}}]}, + "Charting`Private`Tag#6"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Point[{{1., 6.}, {2., 0.}, {3., 46685.}}]}, + "Charting`Private`Tag#7"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Point[{{1., 7.}, {2., 0.}, {3., 50429.}}]}, + "Charting`Private`Tag#8"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Point[{{1., 8.}, {2., 0.}, {3., 53035.}}]}, + "Charting`Private`Tag#9"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Point[{{1., 9.}, {2., 0.}, {3., 54525.}}]}, + "Charting`Private`Tag#10"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Point[{{1., 10.}, {2., 0.}, {3., 54971.}}]}, + "Charting`Private`Tag#11"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Point[{{1., 11.}, {2., 0.}, {3., 54465.}}]}, + "Charting`Private`Tag#12"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Point[{{1., 12.}, {2., 0.}, {3., 53131.}}]}, + "Charting`Private`Tag#13"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Point[{{1., 13.}, {2., 0.}, {3., 51096.}}]}, + "Charting`Private`Tag#14"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Point[{{1., 14.}, {2., 0.}, {3., 48507.}}]}, + "Charting`Private`Tag#15"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 15.}, {2., 0.}, {3., 45494.}}]}, + "Charting`Private`Tag#16"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 16.}, {2., 0.}, {3., 42194.}}]}, + "Charting`Private`Tag#17"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 17.}, {2., 0.}, {3., 38723.}}]}, + "Charting`Private`Tag#18"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 18.}, {2., 0.}, {3., 3519.}}]}, + "Charting`Private`Tag#19"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 19.}, {2., 0.}, {3., 31681.}}]}, + "Charting`Private`Tag#20"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 20.}, {2., 0.}, {3., 28272.}}]}, + "Charting`Private`Tag#21"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 3.}, {0, 54971.}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0., 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 3.}, {0, 54971.}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0., 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 0.}, {2., 0.}, {3., 4388.}}]}, + "Charting`Private`Tag#1"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 1.}, {2., 0.}, {3., 13039.}}]}, + "Charting`Private`Tag#2"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 2.}, {2., 0.}, {3., 21317.}}]}, + "Charting`Private`Tag#3"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 3.}, {2., 0.}, {3., 28996.}}]}, + "Charting`Private`Tag#4"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 4.}, {2., 0.}, {3., 35881.}}]}, + "Charting`Private`Tag#5"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 5.}, {2., 0.}, {3., 41813.}}]}, + "Charting`Private`Tag#6"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Point[{{1., 6.}, {2., 0.}, {3., 46685.}}]}, + "Charting`Private`Tag#7"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Point[{{1., 7.}, {2., 0.}, {3., 50429.}}]}, + "Charting`Private`Tag#8"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Point[{{1., 8.}, {2., 0.}, {3., 53035.}}]}, + "Charting`Private`Tag#9"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Point[{{1., 9.}, {2., 0.}, {3., 54525.}}]}, + "Charting`Private`Tag#10"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Point[{{1., 10.}, {2., 0.}, {3., 54971.}}]}, + "Charting`Private`Tag#11"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Point[{{1., 11.}, {2., 0.}, {3., 54465.}}]}, + "Charting`Private`Tag#12"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Point[{{1., 12.}, {2., 0.}, {3., 53131.}}]}, + "Charting`Private`Tag#13"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Point[{{1., 13.}, {2., 0.}, {3., 51096.}}]}, + "Charting`Private`Tag#14"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Point[{{1., 14.}, {2., 0.}, {3., 48507.}}]}, + "Charting`Private`Tag#15"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 15.}, {2., 0.}, {3., 45494.}}]}, + "Charting`Private`Tag#16"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 16.}, {2., 0.}, {3., 42194.}}]}, + "Charting`Private`Tag#17"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 17.}, {2., 0.}, {3., 38723.}}]}, + "Charting`Private`Tag#18"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 18.}, {2., 0.}, {3., 3519.}}]}, + "Charting`Private`Tag#19"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 19.}, {2., 0.}, {3., 31681.}}]}, + "Charting`Private`Tag#20"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 20.}, {2., 0.}, {3., 28272.}}]}, + "Charting`Private`Tag#21"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 3.}, {0, 54971.}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0., 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06671597837261178}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938268737241898`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"7b93792f-ee7b-485a-bc76-c2c2d474cbc1"] +}, Open ]], Cell[CellGroupData[{ @@ -7880,14 +9304,14 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ -3438788b15d6"], - -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913294794877434`*^9}, + CellChangeTimes->{3.9918488983507824`*^9}, CellLabel-> - "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] + "In[188]:=",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], + +Cell[BoxData["10.7795939899986`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9, 3.993826873768586*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"b40f5da8-1468-43c2-b482-6785be062d3f"] }, Open ]], Cell[CellGroupData[{ @@ -7943,177 +9367,164 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ -0e75880d5d98"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 125, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294796838703`*^9}, + CellChangeTimes->{3.9918488997875195`*^9}, CellLabel-> - "During evaluation of \ -In[172]:=",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], + "In[189]:=",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.458461740868163`*^-263\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 172, 126, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479692892*^9}, + 2, 189, 21, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993826873857585*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +In[189]:=",ExpressionUUID->"384bca45-37d3-41d5-aa3a-9fccb8f3fcd4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.686732859693902`*^-273\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 172, 127, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913294797011433`*^9}, +\"", 2, 189, 22, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.9938268738670273`*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +In[189]:=",ExpressionUUID->"2910e3f5-4e8c-4782-9525-acd1f246a078"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.949415714574777`*^-283\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 189, 23, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993826873874556*^9}, + CellLabel-> + "During evaluation of \ +In[189]:=",ExpressionUUID->"b0cecb8b-4748-40e4-b53d-1241dc56104d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 172, 128, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329479709572*^9}, +during this calculation.\"", 2, 189, 24, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913294796838703`*^9, 3.993826873882152*^9}, CellLabel-> "During evaluation of \ -In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +In[189]:=",ExpressionUUID->"f55297f9-6c0b-448c-b6cb-0baf38a16e85"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV12k4VW0XB3AhQ5llns4+pso8J+e0FooicyJJhqRSqERpQGUIlWgwlISU +TGefpNDgMRQpJIUylFRes8dcyrufT/v6fdn7vta91v++N+Eb7OzPycHBIbyM +g+O/52xvY51KYt6G9w8/hi7Wm29oz5I+Yd55Fn7d76t7akcDlGjxle5Mgdfy +nn437HQhzPFBB1dnDtC1rK3P2CGIjkmlLHSwIYVvtYC7nSP0PbUPnu6ogfb9 +xxi9W73BSmWoZ7KjDXLa9hXx2IbAQofJtYmOfnjSc8qSbRkFtZb38t7lTIG+ +ad3DidZkkO+r+OGr+QeKmnpu/VOcBqsO7n7Aa8mFE165Fro82ZCiZ1Vl78qH +1jsFX+e9zIWuNN3qSRFBDHTat3kVxz1IzIts4ZQRRQ2zs051qg9A6uq3C6m3 +xFEicSB1b1cRSGs8Oj+fL47l6afGy/uLQLYmNnIXSxxfqbfHLxspAsWJNcfU +a8VR2E8gJOZvEahuDfGuGhRHTifJCWvlYjDg/mP8zWAVto+FPykPLAaHUMkB +/der8PXdjz0G88UQt23LhrZZCTxvdm1n2FIJyJY1y3Iuk8ShTAutOd5SKBHf +Nqe3UhIn7T3+DREphY9tXqwrSpJYKWzq4kCUgopTKN1psyTyZHq4PbYohRq7 +2zyt6ZI4oi9QanC+FP5YzTS/ZUhhU+6LtSMcLEjOjyj8YyWFE8a7eKq4WaDC +wxGv5SSFmbemHWL5WLC1foX5RX8pnI+a1BATYUGGJe3h1ktSeI52ZemvIgvW +oe2Npj4p7Psr36PJYMFR0zu7G89KY1Rr8FTHURbYZAtN2yZJo6VDt8jvMBbQ +eU/FN1+TRuF3fAJyESxobd9Ovr8vjWW1GzKdoligHSLA1dssjTw7b8umJ7Fg +MD88/19ZGdzsdSjpSh4LPFfZj8o9lEEi//egehsLDE5WRWc9lUHTprrsH+0s +WNG/WpJ4KYPC14WMcjpYUFHKBWpdMjhUypgS7mGBpG1Fsu6SDHp4Drys/0l9 +P1rFcJOtLHrvS/yQsciCjeO/IoK+yeKPdavFh5VJOLH56tp/RmTxf4zWfFM1 +EkruaH0Sn5XF0oVn62JWkyC9zdu0gk8OeYSm3MS1SBh5Uj/HpS2HZudK4lYa +k5B6Njk0/bgc7rBJag60JqFfQi2oTlAeXy3amowGkCAV/EJBSkoe49rrvn/e +T8LWBve3+2nyOLnZL+1VIAnlEYmawgbyqDXOvfJ6MAkJfRNDO9zl0TS5TFM4 +nAT9gqqA8Rx5TOuFzCMxJEQznHxk1ymgS+RpOY5sEjZ7Zf1rYqGAsj2DheQd +EoSihs+5blXAmJUjtbtzSbhZG5Of7K2AiS+OJZH5JDyxqRzmuaCAj2pmEzWK +SZhwVw6b6lJA/LGh8EQFCY8jQnhFBxRQefDA8FQlCWduPkvTHlNAyebMygNP +SRD44la1n1MRi4QF+exfkKAekMTxZa0i1qwPOjRcR4LXsZmENycVcYdGfkd0 +CwmqNyzkh2IUUal7r1V963/1u1zMm6yIstcKti5vIyFicU2rRZ4iDnTNEyfb +Sbh2zkui4o0itjq3LTG7SHhz5dXtuwpKqPczQIDop+r9cJVerboShs5uN9X+ +RoLHB5+aL3pKeHSjHe+6ARIGpRcH5KyUsNy0Pd78Bwlc2bprU4KUMCte2VBz +iIT1JellZ14o4beo+mfekyRs7Gj+M9aghHs0BOfW/EuCPQe39e42JbwsJ2cz +QdnPOagLvivhdvEGCJ0mweokERm1nIaeEpYndsyR0CT8NHfdChomRV1NXjlP +gmPe9oYJIRoy7pi9rKS8822iqI80DX8c/XJJ5BcJIUqzueYaNGTGceanL5Iw +8zC5YUGHhqefRlQb/qHqsVljlDSk4Qppnr9vKMcc9jamb6Dhu2M1A9N/Scio +fd3A6UTD6NSxw/RlbFBy9x+tdKWhV7NUeT7lvJEl0aMe1PrebaCv5mRDqYTR +zm9+1Pqe8R2jc7GhLuD2aG0YDX+xN0rOcLNhy6Kp2KmTNPzyQbjIdzkbmpPb +jQ2jaBhWPR70lnJXBX9U3gUa9u+PPZPBwwYv+7w8z0s0XCuT+GaR8kD/hsZV +qTSUD0EbT142jK0MFYu5ScPDPt4dYnxsOJotZMK8Q8N0B8XB/ZTnDQt2ztyl +IS3JQOM5ZS6v3jz/UhoWTojaevGzQZq12cSqhoYbU2K4T69gw62N33b+fUnD +b8FfKp9RpnedjipvotbfsnT/N2UtzoeNah9oCFoOOsEr2cC+bjfW20XDRdf+ +hjzK6zQGxW700tDdjeNWB2WLbQqevIM0HPB4MGcowIZXg4+jXozQsKYsK3I3 +5a2nne+GT9Kw+drYxjjKbaKjjTqzNNSvc9hcRNktP27s5y8aBhYcT2im3L2e +Lp69RMNuJ5rAGGXflqcm7twEuh38+3aFIBt++rl5ivATSG5palWhfHB+MqpB +kEDnbpBgUF5/eK/kDzECfZ/7GzlT5hv6VMglTeBlfwlFf8offR3MCQUCw/sY +raGU736u/biBTqCmZNPWaMqh29Yd9FQnMKel9GoCZYu3RcsiNAkcKfp8P5my +iBVx44YegQ/WYEIq5d7n1zQfGRNoltli+p+LTFbUtJkRqK17+sllyhGsM24T +SGDmOIP3AuXNa6ZGBK0ItH3CpR5JWTIn4KyGLYEb8ZX0EcoDst1SWxwJnBI/ +0+NDmZ3qWLzXlcCUa0ph9pSjBOotznsQGLaY+82EskOMaeed3QTu3satrkhZ +8W/xoRd7COw6td58GeWRMDpXz34CD602N/hK1bNy/HraryACpbrF/z6jHL9v +pbZ0KIFnx0pyblDe/jWy1ugEgfvjhOlBlFU8pt1dzhD4PsvgtDnlatuec5fi +CeQwqXndS+3/pTonmaKLBB5+qPniPmVP5suSxhQCHfM8Uv/rnwXt0i7uWwSm +FvP3TVH91XBPOZieQ+DE6ivuJOXrtDRuvEegXc/go0DK+mLROidJAqMDFWkd +VP9yJM7UpZVT+7fApxNPuZnrgEd5FYH31XtUjSkHzjjHTNYTeNJ3T0s81f95 +nSqfAz4RKJzGq8NPzc8Rp/SQmD4CDaecM+5Q84WvBXlyB6h6/ds3Y0y5p2pW +t3eMwOZdC9Hu1HxK3m6I3cZFxx2xoyvDqfkekGLKH+GjY6odt9QcNf/sZJK8 +LEhHHd3vsqGUHc5mdL+WomPcDTdRfyov4v0P6ptr0jFmIaCDvkTCgoZIr5Yr +HUvrup8JUXk1e0s22sCDjp4nRiV9F0iYFlZVMd1Nx1P/vr/GpvJtbMr0wMb9 +dDz+1Y/flsrD/iq/WY/TdNSnR37fQeXla9vHQvF36Sh8QNtvYpSEV8/+IS8+ +oGPKXGaGJOU6nTfbUkvpKPhEm3/9CAnPxb9mZFVQ7yO0ko9Tec3+vEL90Vs6 +tssm72mn8jwj0Av6Z+j4dWGcxtdHwo2eff0/f9FxuSU6cvaScNXhaMzoEh1N +BrMaFrpJuGQQ3zTPr4zaqRLpXz6RcPY36SasqIy0uOHOix9JCExcHsKwUsZy +KYWPAW9JYBQWZV+/roxNPqcmCeo8/EwrvL0pUxkDz9DHex9T+Xy9IGv6tjL2 +PvnMSi+nzsvo/JvOBcoY8TPoPF8ZdV67Z6cJPVXGw9WRcU0lJKxZfjU59qsy +4taSrp/UeSy5+2RUmKYKOtnRcqOSSHjUfiJSVU8FleeeCc4nkLDN5viZdiMV +THZx8Dx0gYQUo2On9EEFJ257FTjFkiAoEHx8zEkF9RIrlZZFkcBd4RuyN1wF +/f3LfBePkDApZuO9vUYF15XVRwS6kdB5kN564JUK7lO+Eh/hSkL1y18Q+UYF +OxclLOJcSEiOKFS6/1EFc7kKnqU7kKDbL9C3MKSCMr4piznUfSaIbNl1S1wV +1x4KfmVtQsKQg+vOgT2q+FBVXXRgFQkDSd7bj/CqoUL2LdeyRhYEDWnSdQXU +MKIz/ojfKxbMWS+MjoqoYe3DC+0i9dT9jSslZr+sGtIHdx7cW80C3RO1Zd5a +amiy0njln3IWnPZXE3dwUcPxW8+Xd+VS97kNIy0at9UwkytgyuUUC7aMh2/5 +bqyO4gnTCtdXs2DEj+9oWeRqlI8RuMNTXUL9T0hxxtWswZJtGaKZAsUg9lbt +Emt8La5pyCj+7FEI8vGljsbGmlhmY9F/NqQA0jRMRcQDtLDRtXpi38178FrW +3GjqijYOpm+q0m25C+vla5J1Purg8HnTosS+XBDiygn1OauLkd7bjfzkckAx +WomxQ00PldIN8mwtsoFf1bPc+ZUeqmffz9gkfAu0mTKl4bv00Rovsns4M+BI +r1itDYcB5j2SS5Yavg7jU0muW9IMMEJZa8R8w1Ww1nmZsUXLEH8dXFvr+P4K +PJ8y+z3XbIh04SM5l3suQZCm/qd3/kaIeaKrVrUnAHNsT/sOfmN01yN8b/+M +hU0q0naCOcZoeuzN5pa752B1VMLxGhMTfFryP98zrVGw1t/0heonE7Ry3SA/ +bHYK/J/vO192eB1acBVHZ3eFw4vs9j2TEqa401Kr/t3zozB9f2lO57Ephq0P +Gpm1CwE/1UL+DLv1+HX89u8lWiBMrk01Zk+sR7HW+S/NUnvhSd7vrzPxZlib +UAAvlH3B2DJ0zibRDKv45KcvSvjCo68jAtkXzfBLTr39Xl5fYCv2mtikmCGn +e/VXg2EfKEqrvpiVaYZNhbXD5g99IDspxtS6xAyDVXWXqW7ygQuhwlfS3psh +ORwl+S3YGzw2KqOZIgMDvtuVWFfvgj/tfEK1NAZ2dT939snfBdn+Y59tlBmY +X7L+8aWkXfAjtiLcYzUDv+4zu6yyYxccaXQoPaHPQI0t7SpmU56QYH9K8YkV +AwfDdlvwa3hCpfuHRcNgBtbvPaL14b4HyB2Kq9CuZqDRiqzgzE9ucGlpr1Fi +DQMLdudqlr10A84UK/JnHQPtdwymfGa7wVD58oLsRgYG7/Q22Z7oBpUc59PE +3jNwvE39xwLDDTyuRoXPfmfgoleS9FTOdkirOmH0fCUTa2mi54NPuILEioOk +nRsTg7t6otn2LpBneTpiYgcTRWLX9FoxXED/9CXLVE8mVtwnuobWuID9BOtD +pw8Tj7ITzvgsd4HYjzMLfgeZqNZW6Mj3zBnmcyItIqKZKHQyOkRfxxk+maW+ +zy9k4r010S+KFJ1g37G8m1tKmKjqZPJaScgJZkse+Y+wmNgsoSN7548jiNE7 +5/TKmfhJz8i7udsRbPkU5J9VM/E4Q8K3LdMRnrbn73n/gYlZw6fNwuUdwUbo +iVZYJxPbZdJqGwUcodO6cVb6MxP5s692ufxygOnK4XivL0xsfew7rfrUAbTu +6Bb/b4iJK5orWgXNHeDpJ/OwpFEmdf9+WZ1AdwCbVS6gM8HEISVhFzq3A+yN +O/YudIaJhi/1hO+8sofp6tgMqXkm9my6KhpfYA9nf93wq/zFpPJ0U8CFRHsQ +MSzQ3PWHiZG0u4t5h+wh61DlzNISE79NKj7/5GAP/we3O5Py "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8127,136 +9538,119 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK +1:eJwV12k4VW0XB3AhQ5llns4+pso8J+e0FooicyJJhqRSqERpQGUIlWgwlISU +TGefpNDgMRQpJIUylFRes8dcyrufT/v6fdn7vta91v++N+Eb7OzPycHBIbyM +g+O/52xvY51KYt6G9w8/hi7Wm29oz5I+Yd55Fn7d76t7akcDlGjxle5Mgdfy +nn437HQhzPFBB1dnDtC1rK3P2CGIjkmlLHSwIYVvtYC7nSP0PbUPnu6ogfb9 +xxi9W73BSmWoZ7KjDXLa9hXx2IbAQofJtYmOfnjSc8qSbRkFtZb38t7lTIG+ +ad3DidZkkO+r+OGr+QeKmnpu/VOcBqsO7n7Aa8mFE165Fro82ZCiZ1Vl78qH +1jsFX+e9zIWuNN3qSRFBDHTat3kVxz1IzIts4ZQRRQ2zs051qg9A6uq3C6m3 +xFEicSB1b1cRSGs8Oj+fL47l6afGy/uLQLYmNnIXSxxfqbfHLxspAsWJNcfU +a8VR2E8gJOZvEahuDfGuGhRHTifJCWvlYjDg/mP8zWAVto+FPykPLAaHUMkB +/der8PXdjz0G88UQt23LhrZZCTxvdm1n2FIJyJY1y3Iuk8ShTAutOd5SKBHf +Nqe3UhIn7T3+DREphY9tXqwrSpJYKWzq4kCUgopTKN1psyTyZHq4PbYohRq7 +2zyt6ZI4oi9QanC+FP5YzTS/ZUhhU+6LtSMcLEjOjyj8YyWFE8a7eKq4WaDC +wxGv5SSFmbemHWL5WLC1foX5RX8pnI+a1BATYUGGJe3h1ktSeI52ZemvIgvW +oe2Npj4p7Psr36PJYMFR0zu7G89KY1Rr8FTHURbYZAtN2yZJo6VDt8jvMBbQ +eU/FN1+TRuF3fAJyESxobd9Ovr8vjWW1GzKdoligHSLA1dssjTw7b8umJ7Fg +MD88/19ZGdzsdSjpSh4LPFfZj8o9lEEi//egehsLDE5WRWc9lUHTprrsH+0s +WNG/WpJ4KYPC14WMcjpYUFHKBWpdMjhUypgS7mGBpG1Fsu6SDHp4Drys/0l9 +P1rFcJOtLHrvS/yQsciCjeO/IoK+yeKPdavFh5VJOLH56tp/RmTxf4zWfFM1 +EkruaH0Sn5XF0oVn62JWkyC9zdu0gk8OeYSm3MS1SBh5Uj/HpS2HZudK4lYa +k5B6Njk0/bgc7rBJag60JqFfQi2oTlAeXy3amowGkCAV/EJBSkoe49rrvn/e +T8LWBve3+2nyOLnZL+1VIAnlEYmawgbyqDXOvfJ6MAkJfRNDO9zl0TS5TFM4 +nAT9gqqA8Rx5TOuFzCMxJEQznHxk1ymgS+RpOY5sEjZ7Zf1rYqGAsj2DheQd +EoSihs+5blXAmJUjtbtzSbhZG5Of7K2AiS+OJZH5JDyxqRzmuaCAj2pmEzWK +SZhwVw6b6lJA/LGh8EQFCY8jQnhFBxRQefDA8FQlCWduPkvTHlNAyebMygNP +SRD44la1n1MRi4QF+exfkKAekMTxZa0i1qwPOjRcR4LXsZmENycVcYdGfkd0 +CwmqNyzkh2IUUal7r1V963/1u1zMm6yIstcKti5vIyFicU2rRZ4iDnTNEyfb +Sbh2zkui4o0itjq3LTG7SHhz5dXtuwpKqPczQIDop+r9cJVerboShs5uN9X+ +RoLHB5+aL3pKeHSjHe+6ARIGpRcH5KyUsNy0Pd78Bwlc2bprU4KUMCte2VBz +iIT1JellZ14o4beo+mfekyRs7Gj+M9aghHs0BOfW/EuCPQe39e42JbwsJ2cz +QdnPOagLvivhdvEGCJ0mweokERm1nIaeEpYndsyR0CT8NHfdChomRV1NXjlP +gmPe9oYJIRoy7pi9rKS8822iqI80DX8c/XJJ5BcJIUqzueYaNGTGceanL5Iw +8zC5YUGHhqefRlQb/qHqsVljlDSk4Qppnr9vKMcc9jamb6Dhu2M1A9N/Scio +fd3A6UTD6NSxw/RlbFBy9x+tdKWhV7NUeT7lvJEl0aMe1PrebaCv5mRDqYTR +zm9+1Pqe8R2jc7GhLuD2aG0YDX+xN0rOcLNhy6Kp2KmTNPzyQbjIdzkbmpPb +jQ2jaBhWPR70lnJXBX9U3gUa9u+PPZPBwwYv+7w8z0s0XCuT+GaR8kD/hsZV +qTSUD0EbT142jK0MFYu5ScPDPt4dYnxsOJotZMK8Q8N0B8XB/ZTnDQt2ztyl +IS3JQOM5ZS6v3jz/UhoWTojaevGzQZq12cSqhoYbU2K4T69gw62N33b+fUnD +b8FfKp9RpnedjipvotbfsnT/N2UtzoeNah9oCFoOOsEr2cC+bjfW20XDRdf+ +hjzK6zQGxW700tDdjeNWB2WLbQqevIM0HPB4MGcowIZXg4+jXozQsKYsK3I3 +5a2nne+GT9Kw+drYxjjKbaKjjTqzNNSvc9hcRNktP27s5y8aBhYcT2im3L2e +Lp69RMNuJ5rAGGXflqcm7twEuh38+3aFIBt++rl5ivATSG5palWhfHB+MqpB +kEDnbpBgUF5/eK/kDzECfZ/7GzlT5hv6VMglTeBlfwlFf8offR3MCQUCw/sY +raGU736u/biBTqCmZNPWaMqh29Yd9FQnMKel9GoCZYu3RcsiNAkcKfp8P5my +iBVx44YegQ/WYEIq5d7n1zQfGRNoltli+p+LTFbUtJkRqK17+sllyhGsM24T +SGDmOIP3AuXNa6ZGBK0ItH3CpR5JWTIn4KyGLYEb8ZX0EcoDst1SWxwJnBI/ +0+NDmZ3qWLzXlcCUa0ph9pSjBOotznsQGLaY+82EskOMaeed3QTu3satrkhZ +8W/xoRd7COw6td58GeWRMDpXz34CD602N/hK1bNy/HraryACpbrF/z6jHL9v +pbZ0KIFnx0pyblDe/jWy1ugEgfvjhOlBlFU8pt1dzhD4PsvgtDnlatuec5fi +CeQwqXndS+3/pTonmaKLBB5+qPniPmVP5suSxhQCHfM8Uv/rnwXt0i7uWwSm +FvP3TVH91XBPOZieQ+DE6ivuJOXrtDRuvEegXc/go0DK+mLROidJAqMDFWkd +VP9yJM7UpZVT+7fApxNPuZnrgEd5FYH31XtUjSkHzjjHTNYTeNJ3T0s81f95 +nSqfAz4RKJzGq8NPzc8Rp/SQmD4CDaecM+5Q84WvBXlyB6h6/ds3Y0y5p2pW +t3eMwOZdC9Hu1HxK3m6I3cZFxx2xoyvDqfkekGLKH+GjY6odt9QcNf/sZJK8 +LEhHHd3vsqGUHc5mdL+WomPcDTdRfyov4v0P6ptr0jFmIaCDvkTCgoZIr5Yr +HUvrup8JUXk1e0s22sCDjp4nRiV9F0iYFlZVMd1Nx1P/vr/GpvJtbMr0wMb9 +dDz+1Y/flsrD/iq/WY/TdNSnR37fQeXla9vHQvF36Sh8QNtvYpSEV8/+IS8+ +oGPKXGaGJOU6nTfbUkvpKPhEm3/9CAnPxb9mZFVQ7yO0ko9Tec3+vEL90Vs6 +tssm72mn8jwj0Av6Z+j4dWGcxtdHwo2eff0/f9FxuSU6cvaScNXhaMzoEh1N +BrMaFrpJuGQQ3zTPr4zaqRLpXz6RcPY36SasqIy0uOHOix9JCExcHsKwUsZy +KYWPAW9JYBQWZV+/roxNPqcmCeo8/EwrvL0pUxkDz9DHex9T+Xy9IGv6tjL2 +PvnMSi+nzsvo/JvOBcoY8TPoPF8ZdV67Z6cJPVXGw9WRcU0lJKxZfjU59qsy +4taSrp/UeSy5+2RUmKYKOtnRcqOSSHjUfiJSVU8FleeeCc4nkLDN5viZdiMV +THZx8Dx0gYQUo2On9EEFJ257FTjFkiAoEHx8zEkF9RIrlZZFkcBd4RuyN1wF +/f3LfBePkDApZuO9vUYF15XVRwS6kdB5kN564JUK7lO+Eh/hSkL1y18Q+UYF +OxclLOJcSEiOKFS6/1EFc7kKnqU7kKDbL9C3MKSCMr4piznUfSaIbNl1S1wV +1x4KfmVtQsKQg+vOgT2q+FBVXXRgFQkDSd7bj/CqoUL2LdeyRhYEDWnSdQXU +MKIz/ojfKxbMWS+MjoqoYe3DC+0i9dT9jSslZr+sGtIHdx7cW80C3RO1Zd5a +amiy0njln3IWnPZXE3dwUcPxW8+Xd+VS97kNIy0at9UwkytgyuUUC7aMh2/5 +bqyO4gnTCtdXs2DEj+9oWeRqlI8RuMNTXUL9T0hxxtWswZJtGaKZAsUg9lbt +Emt8La5pyCj+7FEI8vGljsbGmlhmY9F/NqQA0jRMRcQDtLDRtXpi38178FrW +3GjqijYOpm+q0m25C+vla5J1Purg8HnTosS+XBDiygn1OauLkd7bjfzkckAx +WomxQ00PldIN8mwtsoFf1bPc+ZUeqmffz9gkfAu0mTKl4bv00Rovsns4M+BI +r1itDYcB5j2SS5Yavg7jU0muW9IMMEJZa8R8w1Ww1nmZsUXLEH8dXFvr+P4K +PJ8y+z3XbIh04SM5l3suQZCm/qd3/kaIeaKrVrUnAHNsT/sOfmN01yN8b/+M +hU0q0naCOcZoeuzN5pa752B1VMLxGhMTfFryP98zrVGw1t/0heonE7Ry3SA/ +bHYK/J/vO192eB1acBVHZ3eFw4vs9j2TEqa401Kr/t3zozB9f2lO57Ephq0P +Gpm1CwE/1UL+DLv1+HX89u8lWiBMrk01Zk+sR7HW+S/NUnvhSd7vrzPxZlib +UAAvlH3B2DJ0zibRDKv45KcvSvjCo68jAtkXzfBLTr39Xl5fYCv2mtikmCGn +e/VXg2EfKEqrvpiVaYZNhbXD5g99IDspxtS6xAyDVXWXqW7ygQuhwlfS3psh +ORwl+S3YGzw2KqOZIgMDvtuVWFfvgj/tfEK1NAZ2dT939snfBdn+Y59tlBmY +X7L+8aWkXfAjtiLcYzUDv+4zu6yyYxccaXQoPaHPQI0t7SpmU56QYH9K8YkV +AwfDdlvwa3hCpfuHRcNgBtbvPaL14b4HyB2Kq9CuZqDRiqzgzE9ucGlpr1Fi +DQMLdudqlr10A84UK/JnHQPtdwymfGa7wVD58oLsRgYG7/Q22Z7oBpUc59PE +3jNwvE39xwLDDTyuRoXPfmfgoleS9FTOdkirOmH0fCUTa2mi54NPuILEioOk +nRsTg7t6otn2LpBneTpiYgcTRWLX9FoxXED/9CXLVE8mVtwnuobWuID9BOtD +pw8Tj7ITzvgsd4HYjzMLfgeZqNZW6Mj3zBnmcyItIqKZKHQyOkRfxxk+maW+ +zy9k4r010S+KFJ1g37G8m1tKmKjqZPJaScgJZkse+Y+wmNgsoSN7548jiNE7 +5/TKmfhJz8i7udsRbPkU5J9VM/E4Q8K3LdMRnrbn73n/gYlZw6fNwuUdwUbo +iVZYJxPbZdJqGwUcodO6cVb6MxP5s692ufxygOnK4XivL0xsfew7rfrUAbTu +6Bb/b4iJK5orWgXNHeDpJ/OwpFEmdf9+WZ1AdwCbVS6gM8HEISVhFzq3A+yN +O/YudIaJhi/1hO+8sofp6tgMqXkm9my6KhpfYA9nf93wq/zFpPJ0U8CFRHsQ +MSzQ3PWHiZG0u4t5h+wh61DlzNISE79NKj7/5GAP/we3O5Py "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.07051965832957899}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8268,19 +9662,19 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.07051965832957899}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8294,135 +9688,118 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nc8Vv0bB3CRaMne7mFVHiPz5h6uy8wOFbIyMkqEJCNlRCqJNCSiQnmU -cZ+SVURDy9OQlRXVg5Cyqkf5nd9f9+v9et3ne87rXNfnug7db59zAC8PDw8u -4+H5/+/8wNOHyieLjVPP/econWth3HFZOtakOxlMPGLK5tuVACX+8ZPuPgPf -U9QetrXrQrTj31183Veh/lat6412MxCZkjrzs4sLvQNVzMj2rTDY6LBvtqsF -PEZenm166Q+WyuP937reQFqEOUXw+X742cU4N901DMuHzfcwmlOg1ex68eur -M/CmjIcy7XcW5AfrPvup/wYFf9FTHzsLQHzvzr8FzPjQ7xfjFtPhGpzRtmxw -2C6I310e1ry9fR16cjc1fxNei8WmtUFTu8vhZPGRf3hlRDBo2bHBsq8VYKO3 -W1RCSQStXXorAxcrQPCh8/b1GiKYUBrwXHZlJRwdUXlvayKCx+UO9gYrVsIh -xRefz+4WQYOZmxL52yohrEj6j2q9CH4+9XPe824lOOVXq9t6iCKf7MRBeVYV -SJ0dOZ5TIIZzl0WaD0xUgfRfd47+KBXDrnHbjR7fqkC2Je2IV5UYzhfE5bDn -q4AyvfHA+lYxzFgID55ZqgIVu3CfhlEx3Pacya8tVg26y38bjOiK4z61DTlf -DKthS5TkR51n4riatf6ie1I1OK4eHbjwVhyNVrNVmlKrwflqXc9inzgu2yVz -jXqiGlxeef7z+Ks4dq2uiuw4Uw1e6tfq3SUkMNdAz3VtcTWEfNTKTvaRwLVF -g2MNj6rh2DZr4zfzEpi5tWXDqhVckL3dLsu7TBK3Corw4CouVIhtW9BeLYla -wbyCEUJc6HzjXZVNlcRC4eEbDyW5oOwUpehkJYnxS/kbdNZzocW+cMWri5Jo -vEhfUNnMhd+Wc+0v2VLYeH9+fl8KF7JK48p/W0qh5FNm7upj5PUreNI1nKQw -aawl8OoJLtg9WmVyKkAKQe3+yQfZXMgzoxF2mVIYvevv+UeFXDBE2wvPB6VQ -Zs7V9996Luw3urLzabI0JjXYHjo1yQWbIqFZ2wxpnDcBHs9pLigKHEpvPyeN -Nt+ttqnOcOFVh0v12xvSWHgzPbTiBxc0w9fwDbRLY9ruyJAMPgJGSw+WfpeV -weG1l/45Ik2Ap7jDpBwhgzrJTp6WQIBufEPS5UYZ7Ff2CT9tQsCq4Q2S9Mcy -KCBR6t1hRkBdJR+o9shgVFPCcycrAiRt67I2Lcngp1v632WdCHiVpKxnYSuL -typMuj77EmD+9Vdc2IgsDmxvDghOJCDW6qzagwlZTC+yf6KcTEDFFY1esXlZ -HJqsYPWnECC9zceoTlAOGyqUdpoeI2Ci9tECn6Ycnhk9X9R/ioCc5KyoizFy -qFb46LRbHgFt7zcqTyTJ4fXlSf6dlwhY1Gt9a3xSDuuSYrc6FhAQ+O+czscC -ORxnXT9hWEQA087jm2arHBZzhoJ6SwgYllANe7hWHv3/k4jYVUWA1L4mBSkp -ebR98tSluJoAuza3l7tp8tjZ5ek/xCWgJu6k+jpdeRzTnpmxu0PAicHp8R1u -8lj2ZGTFjzoCmgxP5N30lceRwAyGTAMBs9lKNkt75PFRXddZg0YCvM1dyooT -5HFXqEN3wH0CdMoagr5elcf+wocXzrcQEMS7Xcr0pjyWm6eYXmwlIN9j6vHZ -O/JYcO47NfchASuE6KrMNnlsEuaJPvGYgN7ItI9HJ+Vxm+BQsckzApLYTr6y -hgpoWlvz4NcrAqy8L39nmCrg5Ufs4tevCRBK/JKy3U4Bxz5ayxe/Ic9vTS3N -8lFA1o0tr1kdBNTa1H9ZcVwBKQn1oQZdBBzZK5CgnKOAkgVUuXHSlpnbhEwL -FJD5cjDwYjcBHa+nNiVUK6Dl1EL/eA8B025K0TM9CnjYP33Pjj4C7saFC4h8 -VMB3NY1q46QP59/L1Zwiz3tw5Ex0PwFrhlwbdvNSMPp+kFfyAAFvl5XYHVtD -QVvGl5ZlgwTkKX3vL5ak4Pbw+o5DpNcHZfAMqVEwXnYlb+AQAVPpPdm/9Sio -X/Sd2kH69t+qSnJAQcO1i1OcDwSYTjVbuGylYF2yc8nyYQJWCgt17feioNQa -idO+pF9pewRnB1HQ7NCwZj1p7wNzJ17EU1C3MPec9wgBKhdM5cdTKUiX5935 -98j/+/H0LYEsCs6JxIx8I0309hmr5FFw1N9YWf8jAXGLG1+ZFlPwuVueYhRp -E8pBX58KCi7LezNYQVoQH35PqKWgn46W1yfS7b4iRy+1UFDs1M9LUp8IOJfi -LVH3goKRUYcKLEh7lpSXdnZScEF4uf8+0opPfjBmhygoNNo/eZb02KjFU5Ev -FBR47wY1pKtW5bhrzVHwq8ojt7ekD6oPfbFbomCwdxRrgrSxg0bCnpVUPBtZ -N8rzmQD+8DihdDEqLlwf9RUh/SL7SWGJAhXt81xvKJDOIcS1W9dTMZDpdU+F -tPs735YhbSqKvHS6upE0faFi6x8WFSfHMt3+71HpxY9yllR0jNv3QZl0JdM6 -2siRivK1W4zlSUd7nhdwdadinvqp8HWk2YdHcqN2UXFnZVrsH/L5+Io2qZ0J -o6JSQL77GOlnDxIaKmOomHlfS+IV6ayRZ3Yvk6moefDa31zSrvzSA+MZVGSe -9ZDPJk1ZH7BP8AIV9/rfCwkh/cmKy6N6hYpfY7XyTEjf3LOUbVZORTohUyZG -mllx8fbhJiri1sXQcrIe5l3tv6faqMi4+6/GAdIOPMs373xDxQT/Sg8WaX/n -sB74RMX9v2L575H1D4u/plg1RUXvqDcpMaRjirtDaD+oGL6VG7WJtGU8/Ugi -Pw1Tq+9xz5H99Xxd4zXDVTRcybHkNSPtWOzSNi1EQ1EL4acTZL96vDwp4itN -QysRjQf6pMOp89dM/qJhz4BsQgHZ/3NEVttPLRrWSTJvaJKOs/prslqPhqsl -WNsayfykRvgYKBrTkFrbqvuSzFde67M2XicaBjfa6D56TwDVLWCyfjsNZ/+8 -OMYkXTyxJLLfnYbpjauCbvaS9ZLQ9xjxp2Ggds2zVDLPD4MKJ1ujaZipPGG9 -jsy/9aKR6KF4Ghqa+Uvt7iT7N6vDQC+Rhrr212Ob3hHQU7cysfg4DflWVi7z -I+fJ1Ooo0dR8Gu50zjM7TM6f/UVCDM4VGg4KOb5vJOfTD70yj7kS8v1skhX9 -8Q9Zf++B4oBKGjqvofrtaif3QZUVw7KFhpb7EqvEnxNQYD7i8ecxDf8MBAcY -kvNOsSchseY5Db8nfWh1e0qABi/xVPUd+f/IV8mnn5D536bgKTBKQ4b7hMY7 -cp7u/fEtsW0tHZ83DAW0kPOZGREo+VmUjqpPZjGvnszneG85nzQdtZ5mWIeR -87zkfWunsSIdTbibx1fdJWDg/jn1OwZ0jIiXvSRJ7oMtqUbdV3bS0b3qj2Xs -dbL//twKbdpFxwOSZu3ipeS8iFbk699Nx/vfYgtvFhOQHrxaUzqKjhacRdXX -Vwhotu1PyUynI3+A7u9Jcn/piCZpxVfTcWdjsE/MaQJ4Ts49zK2hYzf9o28P -uf/a+fa41zTQccfzymcGGQSEzDmnfntERw/xip7P6WQ9u5XfB/XSMfGfKro8 -uV8lC9vStvEp4teNXUt9+wn4+ZfwgMZ2RWzwu+DwaBsB8wWySbruirj6WGZm -szO5r9apKBvtVMS7+evP1DqS9Zsx2mO+WxF1Csq/XLYj92WD/7x7giKGMkXl -LczJfNreFUovUURlJ2mJnzpkv4V4w/CcIrZM381fI0Tmu/xm0fnzSrhV85ef -fQMX3tPKCy0uKaHFmK13bS0X4s6XXZ4tVMK04ZkZWg0X7iaV5juXKaHUparZ -8Sou6LgV5Qo1KiH30usYv1IubOQ/m5X2QQlz9tFnh7K4ILkzPjFaXRlFpNRW -rN/FhW+iNj4uLcq4U2ipXGc5Fz5m+LhECqiiFXv5L65MNVh/PWj9yWA97tQQ -5bVVroIJf8H9t49swNAOEZ+GVRXk97wU77GWjRhx1s/rd0M5iL5Uzaz6qoZ8 -nlR3nuNlIJ9e6WhgoI7/Zgubj6lch9y/jITFgjQwVLXpyoXZYngma6I/k62J -H7Yke7UPXAWmfEuWVqcWJmQXbfO6UwRCfFejfJM34V8WvSF++QVASaKyd6hq -4+trH8r+eXgRVqp41jg/0UYMvVEm7nAeNDkylQe9dNDw30WeNZ45EDkg2mrD -o0t+H5yzOhaXBV9nMrZb5+oijiyu1N2QAZu1HudZa+ihZdfhgR0/j8H9GdZ/ -C+16+CI6Qz3wdwqEqev0vg7Qx5J168p1WxKBM7WrY8dKA5wQSn9JBhsslKXt -1141QBeZ5RddKqJhQ+KJmBYGAwUj6X3q5ZHQyCrht2My0EUU2tUvRYLjQtOZ -d2wGCl/ebmV4MhJiwuZujpowUKdLuDEiJBLaPH0+CNkx0PpsxEKoeiQEGxnY -ePgwULVqLCytKgLKvn+Qm01nYPP1Z0prH4SDWoBRk0ovA+95JB7YvDwMTis6 -/ErpY2B3RXVU5JdQmB300x8eYGBmYcJsxZtQuO+eUX55hIExqR6OnldCwdlx -8ILUJAP/OjoeeQxCIZaVGr6SxxB/4UNDqSN7oU3kNX1SxRA3rxmder8qBALu -Bx+9HWGIR3uLnf5zDoap0PGDFlGGqJb65nQyOxhiFPaGdEYbYqTdWKWcajCc -OLTP+Ue8Ie4eN92d8jMIqpjRNHaaId5szjy+/koQLNakNLbmGWKskFlH7Uwg -nKm8PPum1RDpQhM/uSUB0FTUseubhBGG9Y3dusX0hyE7+s5oaSN8IVl09NYG -f+D5GbrjP1kj3GLotaJR0h9MnQQc+GlG+FYm7ePyGT94vIzJkFEzwrKUoiXz -m37wwq9wpYmxEbZprPeOpvtBr/KeiqxAI3z1cuq7h6QvzN5YWtC6a4R/+jYZ -+Tl6w2cXy6LjdUa4SvKErJy+N3QvP2U10mCEpwV0M8ZkvKHBR/bi+WYjPOea -Nvp4xAuSpfWZv58aYfXMiqWkGC8QTt9z6FkfeX6cQNpkiSeoB73jCeBlYvl9 -B0emsAf4q5SvzLNnYs7PucgHVDeIe+S9R9WRiYphfaU5Am6QFSD6nOvMRGvG -pS3xX12hsSQ247krE4epss0nmlxBXNVq3W9fJr58xvK74eMKj1U/iftEM1Ft -R9DXV6UuoLaBSlMtZOLatY78Iabb4ZtajgF3mryfNmdFAuEM3S/QQmyGiTu+ -//s2/oozNIdNbY2aY6J9vqf0idPOkMm1jjD4xcQCoaLujhBnUGPy3KznY+EL -fLFIV3EGP+tQeqskC83jCmWy85ygI2jzmg42C+WJm6LRWY5QW/zfh7l0Fsoa -H2WI29mDgVnUgs1JFn5YSJ69rWUPdz5MrCk6xULlW/xeYWL2wKUMMGzOsHCj -1fxntfd2cDO3+dTlSyyUdo3obwuxg6KMVKPNFSysEZgIS8+2heNR67Jz37Jw -8IOR/MUpaxAUSy+dfMfCGfexQPV31pBWzdNo2s3C2/3yyp0N1nB06tvniT7y -PP7r1XuPW8Ph4A62yWcWrnYvYRerWEOk58XRsR8sFEvOd9D0swJ3cyVkUdi4 -OkrLlfnFEn53CAq10th4j3/j4Kk3llAUMPXeRomND05b7fpZZwmf0+oOum9g -41v9VRLSxy0h8umWylgdNmrrLe+P2GAJJxwOUWot2XjjVMr51BALqHd7t6i3 -j42GufilmNccvMbqnzVGsHHa9/WH1xNmwBNXlGsexcYQs1NB4l1mYHkpRG9b -LBsJqmFnT7kZvOlftnd/Chv7FgRZu1zMYNxP8331BTbyV9AUgypNQS70WJ1m -MxtzZgsWr4ebQOZSoP7JFjby/afNf8vbBHjPWFb/+5CNgzETIy12JjBew19W -9JSN2UoZE7SNJlDPczRX9C0b3wkcKSseRnA/m3hw/hMbxcSuj953Q8htiNW/ -v5qDyz9XyrZcMYY1DjuqZYU46Np/OvFlkjEkDhlqHBTmoNCzT7jgawzB/D+U -N0lw0LQ/IKRE0RgYW6LFr1I42BL9d/HuEg50DkfOpGpz8Paj8bb4KjZIrNpb -be/KwbWdN/zl+phQbJYQN72Dg+GXK6cPNjJBJyHTLMeTg382tybN5zPBYbrq -XbcvByfC72ju8GZCWufcT/+9HLT37dGqHjaCH1ePmMYlcfCjFz9f1jdD6GXl -vC0t52Dt28AKrfUMCD5QnG9dwcHuVdnTp1czYL7iTsBEFQcf993wEJo2AFHF -7gXtGg62OxQzAuoMwFZQQf5eMwf7+8R6DtobQGNH6a637zhoY3/1ilS8PtgI -1WpEd3Pw1fvFSTtffeje/HRe+j0HM3/z5F3erA+z9V/SvYc4uMXp45Xz4vqg -cWXTrbFxDjb5a+3trNSDxl6T6IxJDtrJ2ld9Oa8HNuJbQWuag58OK8XIH9aD -wGMHXkfNcfBIUrXqKzs9mG1Oy5P6wcGtAgldznp6kPzrgn/9Lw6e+LqhaFpO -D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK +1:eJwV12k4VW0XB3AhQ5llns4+pso8J+e0FooicyJJhqRSqERpQGUIlWgwlISU +TGefpNDgMRQpJIUylFRes8dcyrufT/v6fdn7vta91v++N+Eb7OzPycHBIbyM +g+O/52xvY51KYt6G9w8/hi7Wm29oz5I+Yd55Fn7d76t7akcDlGjxle5Mgdfy +nn437HQhzPFBB1dnDtC1rK3P2CGIjkmlLHSwIYVvtYC7nSP0PbUPnu6ogfb9 +xxi9W73BSmWoZ7KjDXLa9hXx2IbAQofJtYmOfnjSc8qSbRkFtZb38t7lTIG+ +ad3DidZkkO+r+OGr+QeKmnpu/VOcBqsO7n7Aa8mFE165Fro82ZCiZ1Vl78qH +1jsFX+e9zIWuNN3qSRFBDHTat3kVxz1IzIts4ZQRRQ2zs051qg9A6uq3C6m3 +xFEicSB1b1cRSGs8Oj+fL47l6afGy/uLQLYmNnIXSxxfqbfHLxspAsWJNcfU +a8VR2E8gJOZvEahuDfGuGhRHTifJCWvlYjDg/mP8zWAVto+FPykPLAaHUMkB +/der8PXdjz0G88UQt23LhrZZCTxvdm1n2FIJyJY1y3Iuk8ShTAutOd5SKBHf +Nqe3UhIn7T3+DREphY9tXqwrSpJYKWzq4kCUgopTKN1psyTyZHq4PbYohRq7 +2zyt6ZI4oi9QanC+FP5YzTS/ZUhhU+6LtSMcLEjOjyj8YyWFE8a7eKq4WaDC +wxGv5SSFmbemHWL5WLC1foX5RX8pnI+a1BATYUGGJe3h1ktSeI52ZemvIgvW +oe2Npj4p7Psr36PJYMFR0zu7G89KY1Rr8FTHURbYZAtN2yZJo6VDt8jvMBbQ +eU/FN1+TRuF3fAJyESxobd9Ovr8vjWW1GzKdoligHSLA1dssjTw7b8umJ7Fg +MD88/19ZGdzsdSjpSh4LPFfZj8o9lEEi//egehsLDE5WRWc9lUHTprrsH+0s +WNG/WpJ4KYPC14WMcjpYUFHKBWpdMjhUypgS7mGBpG1Fsu6SDHp4Drys/0l9 +P1rFcJOtLHrvS/yQsciCjeO/IoK+yeKPdavFh5VJOLH56tp/RmTxf4zWfFM1 +EkruaH0Sn5XF0oVn62JWkyC9zdu0gk8OeYSm3MS1SBh5Uj/HpS2HZudK4lYa +k5B6Njk0/bgc7rBJag60JqFfQi2oTlAeXy3amowGkCAV/EJBSkoe49rrvn/e +T8LWBve3+2nyOLnZL+1VIAnlEYmawgbyqDXOvfJ6MAkJfRNDO9zl0TS5TFM4 +nAT9gqqA8Rx5TOuFzCMxJEQznHxk1ymgS+RpOY5sEjZ7Zf1rYqGAsj2DheQd +EoSihs+5blXAmJUjtbtzSbhZG5Of7K2AiS+OJZH5JDyxqRzmuaCAj2pmEzWK +SZhwVw6b6lJA/LGh8EQFCY8jQnhFBxRQefDA8FQlCWduPkvTHlNAyebMygNP +SRD44la1n1MRi4QF+exfkKAekMTxZa0i1qwPOjRcR4LXsZmENycVcYdGfkd0 +CwmqNyzkh2IUUal7r1V963/1u1zMm6yIstcKti5vIyFicU2rRZ4iDnTNEyfb +Sbh2zkui4o0itjq3LTG7SHhz5dXtuwpKqPczQIDop+r9cJVerboShs5uN9X+ +RoLHB5+aL3pKeHSjHe+6ARIGpRcH5KyUsNy0Pd78Bwlc2bprU4KUMCte2VBz +iIT1JellZ14o4beo+mfekyRs7Gj+M9aghHs0BOfW/EuCPQe39e42JbwsJ2cz +QdnPOagLvivhdvEGCJ0mweokERm1nIaeEpYndsyR0CT8NHfdChomRV1NXjlP +gmPe9oYJIRoy7pi9rKS8822iqI80DX8c/XJJ5BcJIUqzueYaNGTGceanL5Iw +8zC5YUGHhqefRlQb/qHqsVljlDSk4Qppnr9vKMcc9jamb6Dhu2M1A9N/Scio +fd3A6UTD6NSxw/RlbFBy9x+tdKWhV7NUeT7lvJEl0aMe1PrebaCv5mRDqYTR +zm9+1Pqe8R2jc7GhLuD2aG0YDX+xN0rOcLNhy6Kp2KmTNPzyQbjIdzkbmpPb +jQ2jaBhWPR70lnJXBX9U3gUa9u+PPZPBwwYv+7w8z0s0XCuT+GaR8kD/hsZV +qTSUD0EbT142jK0MFYu5ScPDPt4dYnxsOJotZMK8Q8N0B8XB/ZTnDQt2ztyl +IS3JQOM5ZS6v3jz/UhoWTojaevGzQZq12cSqhoYbU2K4T69gw62N33b+fUnD +b8FfKp9RpnedjipvotbfsnT/N2UtzoeNah9oCFoOOsEr2cC+bjfW20XDRdf+ +hjzK6zQGxW700tDdjeNWB2WLbQqevIM0HPB4MGcowIZXg4+jXozQsKYsK3I3 +5a2nne+GT9Kw+drYxjjKbaKjjTqzNNSvc9hcRNktP27s5y8aBhYcT2im3L2e +Lp69RMNuJ5rAGGXflqcm7twEuh38+3aFIBt++rl5ivATSG5palWhfHB+MqpB +kEDnbpBgUF5/eK/kDzECfZ/7GzlT5hv6VMglTeBlfwlFf8offR3MCQUCw/sY +raGU736u/biBTqCmZNPWaMqh29Yd9FQnMKel9GoCZYu3RcsiNAkcKfp8P5my +iBVx44YegQ/WYEIq5d7n1zQfGRNoltli+p+LTFbUtJkRqK17+sllyhGsM24T +SGDmOIP3AuXNa6ZGBK0ItH3CpR5JWTIn4KyGLYEb8ZX0EcoDst1SWxwJnBI/ +0+NDmZ3qWLzXlcCUa0ph9pSjBOotznsQGLaY+82EskOMaeed3QTu3satrkhZ +8W/xoRd7COw6td58GeWRMDpXz34CD602N/hK1bNy/HraryACpbrF/z6jHL9v +pbZ0KIFnx0pyblDe/jWy1ugEgfvjhOlBlFU8pt1dzhD4PsvgtDnlatuec5fi +CeQwqXndS+3/pTonmaKLBB5+qPniPmVP5suSxhQCHfM8Uv/rnwXt0i7uWwSm +FvP3TVH91XBPOZieQ+DE6ivuJOXrtDRuvEegXc/go0DK+mLROidJAqMDFWkd +VP9yJM7UpZVT+7fApxNPuZnrgEd5FYH31XtUjSkHzjjHTNYTeNJ3T0s81f95 +nSqfAz4RKJzGq8NPzc8Rp/SQmD4CDaecM+5Q84WvBXlyB6h6/ds3Y0y5p2pW +t3eMwOZdC9Hu1HxK3m6I3cZFxx2xoyvDqfkekGLKH+GjY6odt9QcNf/sZJK8 +LEhHHd3vsqGUHc5mdL+WomPcDTdRfyov4v0P6ptr0jFmIaCDvkTCgoZIr5Yr +HUvrup8JUXk1e0s22sCDjp4nRiV9F0iYFlZVMd1Nx1P/vr/GpvJtbMr0wMb9 +dDz+1Y/flsrD/iq/WY/TdNSnR37fQeXla9vHQvF36Sh8QNtvYpSEV8/+IS8+ +oGPKXGaGJOU6nTfbUkvpKPhEm3/9CAnPxb9mZFVQ7yO0ko9Tec3+vEL90Vs6 +tssm72mn8jwj0Av6Z+j4dWGcxtdHwo2eff0/f9FxuSU6cvaScNXhaMzoEh1N +BrMaFrpJuGQQ3zTPr4zaqRLpXz6RcPY36SasqIy0uOHOix9JCExcHsKwUsZy +KYWPAW9JYBQWZV+/roxNPqcmCeo8/EwrvL0pUxkDz9DHex9T+Xy9IGv6tjL2 +PvnMSi+nzsvo/JvOBcoY8TPoPF8ZdV67Z6cJPVXGw9WRcU0lJKxZfjU59qsy +4taSrp/UeSy5+2RUmKYKOtnRcqOSSHjUfiJSVU8FleeeCc4nkLDN5viZdiMV +THZx8Dx0gYQUo2On9EEFJ257FTjFkiAoEHx8zEkF9RIrlZZFkcBd4RuyN1wF +/f3LfBePkDApZuO9vUYF15XVRwS6kdB5kN564JUK7lO+Eh/hSkL1y18Q+UYF +OxclLOJcSEiOKFS6/1EFc7kKnqU7kKDbL9C3MKSCMr4piznUfSaIbNl1S1wV +1x4KfmVtQsKQg+vOgT2q+FBVXXRgFQkDSd7bj/CqoUL2LdeyRhYEDWnSdQXU +MKIz/ojfKxbMWS+MjoqoYe3DC+0i9dT9jSslZr+sGtIHdx7cW80C3RO1Zd5a +amiy0njln3IWnPZXE3dwUcPxW8+Xd+VS97kNIy0at9UwkytgyuUUC7aMh2/5 +bqyO4gnTCtdXs2DEj+9oWeRqlI8RuMNTXUL9T0hxxtWswZJtGaKZAsUg9lbt +Emt8La5pyCj+7FEI8vGljsbGmlhmY9F/NqQA0jRMRcQDtLDRtXpi38178FrW +3GjqijYOpm+q0m25C+vla5J1Purg8HnTosS+XBDiygn1OauLkd7bjfzkckAx +WomxQ00PldIN8mwtsoFf1bPc+ZUeqmffz9gkfAu0mTKl4bv00Rovsns4M+BI +r1itDYcB5j2SS5Yavg7jU0muW9IMMEJZa8R8w1Ww1nmZsUXLEH8dXFvr+P4K +PJ8y+z3XbIh04SM5l3suQZCm/qd3/kaIeaKrVrUnAHNsT/sOfmN01yN8b/+M +hU0q0naCOcZoeuzN5pa752B1VMLxGhMTfFryP98zrVGw1t/0heonE7Ry3SA/ +bHYK/J/vO192eB1acBVHZ3eFw4vs9j2TEqa401Kr/t3zozB9f2lO57Ephq0P +Gpm1CwE/1UL+DLv1+HX89u8lWiBMrk01Zk+sR7HW+S/NUnvhSd7vrzPxZlib +UAAvlH3B2DJ0zibRDKv45KcvSvjCo68jAtkXzfBLTr39Xl5fYCv2mtikmCGn +e/VXg2EfKEqrvpiVaYZNhbXD5g99IDspxtS6xAyDVXWXqW7ygQuhwlfS3psh +ORwl+S3YGzw2KqOZIgMDvtuVWFfvgj/tfEK1NAZ2dT939snfBdn+Y59tlBmY +X7L+8aWkXfAjtiLcYzUDv+4zu6yyYxccaXQoPaHPQI0t7SpmU56QYH9K8YkV +AwfDdlvwa3hCpfuHRcNgBtbvPaL14b4HyB2Kq9CuZqDRiqzgzE9ucGlpr1Fi +DQMLdudqlr10A84UK/JnHQPtdwymfGa7wVD58oLsRgYG7/Q22Z7oBpUc59PE +3jNwvE39xwLDDTyuRoXPfmfgoleS9FTOdkirOmH0fCUTa2mi54NPuILEioOk +nRsTg7t6otn2LpBneTpiYgcTRWLX9FoxXED/9CXLVE8mVtwnuobWuID9BOtD +pw8Tj7ITzvgsd4HYjzMLfgeZqNZW6Mj3zBnmcyItIqKZKHQyOkRfxxk+maW+ +zy9k4r010S+KFJ1g37G8m1tKmKjqZPJaScgJZkse+Y+wmNgsoSN7548jiNE7 +5/TKmfhJz8i7udsRbPkU5J9VM/E4Q8K3LdMRnrbn73n/gYlZw6fNwuUdwUbo +iVZYJxPbZdJqGwUcodO6cVb6MxP5s692ufxygOnK4XivL0xsfew7rfrUAbTu +6Bb/b4iJK5orWgXNHeDpJ/OwpFEmdf9+WZ1AdwCbVS6gM8HEISVhFzq3A+yN +O/YudIaJhi/1hO+8sofp6tgMqXkm9my6KhpfYA9nf93wq/zFpPJ0U8CFRHsQ +MSzQ3PWHiZG0u4t5h+wh61DlzNISE79NKj7/5GAP/we3O5Py "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "PlotRange" -> {{0, 30}, {0., 0.07051965832957899}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8433,6 +9810,7 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8460,7 +9838,8 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07051965832957899}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8468,9 +9847,9 @@ D4T1ytS9fnMwGhcCyvj04HJo/dzSEnn/7SiU8EUX/gdnQxLK Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913298974454536`*^9}, + CellChangeTimes->{3.9913298974454536`*^9, 3.99382732689974*^9}, CellLabel-> - "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] + "Out[189]=",ExpressionUUID->"9f6a0028-43b8-4b0d-92e3-6016cab73ca0"] }, Open ]], Cell[CellGroupData[{ @@ -8523,66 +9902,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + "In[190]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 173, 129, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298974999084`*^9}, - CellLabel-> - "During evaluation of \ -In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 130, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897510906*^9}, - CellLabel-> - "During evaluation of \ -In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.161480818850185`*^-173\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 173, 131, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913298975189075`*^9}, + 2, 190, 25, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993827327016013*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +In[190]:=",ExpressionUUID->"07dfabd0-cf6f-4137-906c-7bd122266333"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.0029476076388825`*^-176\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 190, 26, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.99382732702326*^9}, + CellLabel-> + "During evaluation of \ +In[190]:=",ExpressionUUID->"808ec0f6-065b-4de8-829d-30b3eb14073e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9633189007187195`*^-179\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 190, 27, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.993827327030365*^9}, + CellLabel-> + "During evaluation of \ +In[190]:=",ExpressionUUID->"d1e82a15-7347-41d0-b5c3-77bda23610c1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 173, 132, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329897526905*^9}, +during this calculation.\"", 2, 190, 28, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913298974999084`*^9, 3.9938273270390463`*^9}, CellLabel-> "During evaluation of \ -In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +In[190]:=",ExpressionUUID->"a17a55a0-4b8f-41a9-97eb-081e4fbbf16d"], -Cell[BoxData["9.77956849963325`"], "Output", - CellChangeTimes->{3.991329904262455*^9}, +Cell[BoxData["10.779585737660842`"], "Output", + CellChangeTimes->{3.991329904262455*^9, 3.993827371039193*^9}, CellLabel-> - "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] + "Out[190]=",ExpressionUUID->"26ac9d15-d1ff-4164-bf5a-ae79eabe0c1e"] }, Open ]], Cell[CellGroupData[{ @@ -8649,68 +10032,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489049186344`*^9, - 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ -a57fd4094f56"], + CellChangeTimes->{{3.9918489049186344`*^9, 3.991848908595253*^9}}, + CellLabel-> + "In[191]:=",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904300501*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1580422087538144`*^-204\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 191, 29, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993827371102604*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +In[191]:=",ExpressionUUID->"efc1e53c-964e-40ce-9dc7-8412509e09da"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 134, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329904310505*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.9218101768682`*^-209\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 191, 30, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993827371109627*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +In[191]:=",ExpressionUUID->"53bd2abc-0edc-4771-9dcc-5c1247d60c7c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 174, 135, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043185062`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.367516062693098`*^-213\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 191, 31, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993827371117188*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +In[191]:=",ExpressionUUID->"e5e455f6-d350-4ed8-a8ed-8f954e73778e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 174, 136, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299043256874`*^9}, +during this calculation.\"", 2, 191, 32, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329904300501*^9, 3.993827371125145*^9}, CellLabel-> "During evaluation of \ -In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +In[191]:=",ExpressionUUID->"cc96ea40-2b3e-4a87-8131-d9d093a095a7"], -Cell[BoxData["0.1491428555515254`"], "Output", - CellChangeTimes->{3.9913299110465336`*^9}, +Cell[BoxData["2.110202133435897`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9, 3.993827378776545*^9}, CellLabel-> - "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] + "Out[191]=",ExpressionUUID->"6a488a60-ca41-4e33-8247-7931f565002c"] }, Open ]], Cell[CellGroupData[{ @@ -8731,8 +10118,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8777,68 +10163,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489121661835`*^9, - 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ -47c1a485c608"], + CellChangeTimes->{{3.9918489121661835`*^9, 3.9918489145264854`*^9}}, + CellLabel-> + "In[192]:=",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911081766*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1580422087538144`*^-204\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 192, 33, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993827378824325*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +In[192]:=",ExpressionUUID->"73996f42-f01c-4d7d-9005-d180a8e7d8d4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 138, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911090769*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.9218101768682`*^-209\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 192, 34, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993827378832013*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +In[192]:=",ExpressionUUID->"9af64e6c-a429-439e-bf4e-9f3cfca0b466"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 175, 139, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329911098768*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.367516062693098`*^-213\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 192, 35, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.9938273788401527`*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +In[192]:=",ExpressionUUID->"858b4e69-c9bd-4157-8a54-1c5f33ff131f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 175, 140, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299111067944`*^9}, +during this calculation.\"", 2, 192, 36, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329911081766*^9, 3.993827378846498*^9}, CellLabel-> "During evaluation of \ -In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +In[192]:=",ExpressionUUID->"ba8cb8df-f159-4dff-84d1-9f964208dfaf"], -Cell[BoxData["6.5928699937564845`"], "Output", - CellChangeTimes->{3.9913299163114815`*^9}, +Cell[BoxData["35.47390411232857`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9, 3.993827386476589*^9}, CellLabel-> - "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] + "Out[192]=",ExpressionUUID->"64e2caf6-bd38-4e61-bd57-7b1dc27b0bdb"] }, Open ]], Cell[CellGroupData[{ @@ -8859,8 +10249,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -8905,68 +10294,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918489192162857`*^9, - 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ -0d79e6ed8953"], + CellChangeTimes->{{3.9918489192162857`*^9, 3.991848922582632*^9}}, + CellLabel-> + "In[193]:=",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ -\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ -31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ -machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, - "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163444805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.1580422087538144`*^-204\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 193, 37, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.9938273865441113`*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +In[193]:=",ExpressionUUID->"edd70a84-0ad5-40cb-ad4c-0efeac947b8f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 142, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916354479*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.9218101768682`*^-209\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 193, 38, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993827386551177*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +In[193]:=",ExpressionUUID->"4ce6946a-71ba-4475-94e0-c78db756c16c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ -\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ -66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 176, 143, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299163634796`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.367516062693098`*^-213\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 193, 39, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.993827386558621*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +In[193]:=",ExpressionUUID->"83ab7e22-44b0-4e1e-b0a4-9575e6b060d3"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 176, 144, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329916371479*^9}, +during this calculation.\"", 2, 193, 40, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299163444805`*^9, 3.9938273865657578`*^9}, CellLabel-> "During evaluation of \ -In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +In[193]:=",ExpressionUUID->"d62bb707-5dda-4fed-8493-2b354e4613bf"], -Cell[BoxData["16.916908616104454`"], "Output", - CellChangeTimes->{3.9913299193276234`*^9}, +Cell[BoxData["9.097437211653748`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9, 3.993827391084876*^9}, CellLabel-> - "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] + "Out[193]=",ExpressionUUID->"8e54fd43-5bac-4e39-bc75-c1b1828142ab"] }, Open ]], Cell[CellGroupData[{ @@ -8975,22 +10368,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991848926103155*^9, - 3.9918489295815735`*^9}},ExpressionUUID->"8c5df121-e0b9-a146-bc34-\ -b231aa8028b9"], - -Cell[BoxData["0.01412227604937243`"], "Output", - CellChangeTimes->{3.99132991935894*^9}, + CellChangeTimes->{{3.991848926103155*^9, 3.9918489295815735`*^9}}, CellLabel-> - "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] + "In[194]:=",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], + +Cell[BoxData["0.11746541853972925`"], "Output", + CellChangeTimes->{3.99132991935894*^9, 3.9938273911181593`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"fa290582-800c-4f9a-8b74-7c31895fcfa5"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918489327910748`*^9, 3.991848934830887*^9}, - 3.991924914130762*^9},ExpressionUUID->"831a27fc-89ff-e041-97f1-\ -0ec5d19a7879"], + 3.991924914130762*^9}, + CellLabel-> + "In[195]:=",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ @@ -9013,12 +10407,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + "In[196]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.9913299193849545`*^9}, +Cell[BoxData["5.97508031589805`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9, 3.9938273911304893`*^9}, CellLabel-> - "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] + "Out[196]=",ExpressionUUID->"79fd8c7d-321c-4ef6-b6af-c9ca1f32711a"] }, Open ]], Cell[CellGroupData[{ @@ -9028,12 +10422,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + "In[197]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913299194207077`*^9}, +Cell[BoxData["3.9614787345760076`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9, 3.9938273911384583`*^9}, CellLabel-> - "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] + "Out[197]=",ExpressionUUID->"1b04d67e-cb83-462f-a475-91252a3df0d3"] }, Open ]], Cell[CellGroupData[{ @@ -9043,12 +10437,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + "In[198]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.9913299194738407`*^9}, +Cell[BoxData["23.67015360881382`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9, 3.993827391146521*^9}, CellLabel-> - "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] + "Out[198]=",ExpressionUUID->"2c67126f-dbd8-421c-b7d5-b55956c66266"] }, Open ]], Cell[CellGroupData[{ @@ -9238,12 +10632,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + "In[199]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[BoxData["0.04472011299838893`"], "Output", - CellChangeTimes->{3.991329919501911*^9}, +Cell[BoxData["0.0067732968558894`"], "Output", + CellChangeTimes->{3.991329919501911*^9, 3.9938273911588*^9}, CellLabel-> - "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] + "Out[199]=",ExpressionUUID->"01f8bf70-7000-4f70-913d-713e01dc7910"] }, Open ]], Cell[CellGroupData[{ @@ -9257,12 +10651,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + "In[200]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329919596855*^9}, +Cell[BoxData["10.768243948188617`"], "Output", + CellChangeTimes->{3.991329919596855*^9, 3.993827391265225*^9}, CellLabel-> - "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] + "Out[200]=",ExpressionUUID->"6639c018-a8ad-4232-bffc-57959963140c"] }, Open ]], Cell[CellGroupData[{ @@ -9454,12 +10848,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + "In[201]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[BoxData["0.014190600885170185`"], "Output", - CellChangeTimes->{3.9913299196126003`*^9}, +Cell[BoxData["0.04043715596549963`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9, 3.993827391281415*^9}, CellLabel-> - "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] + "Out[201]=",ExpressionUUID->"7d15d705-e3e3-41dd-b07c-fab410a9c711"] }, Open ]], Cell[CellGroupData[{ @@ -9473,12 +10867,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + "In[202]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[BoxData["7.439513700547701`"], "Output", - CellChangeTimes->{3.9913299197036095`*^9}, +Cell[BoxData["4.407117597021296`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9, 3.993827391403001*^9}, CellLabel-> - "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] + "Out[202]=",ExpressionUUID->"b04428ac-8e90-4325-afbc-18e791982a80"] }, Open ]], Cell[CellGroupData[{ @@ -9571,12 +10965,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + "In[203]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913299197165985`*^9}, +Cell[BoxData["0.08462699738242267`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9, 3.993827391416535*^9}, CellLabel-> - "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] + "Out[203]=",ExpressionUUID->"af8d1c16-9ea0-424d-a437-54abd89c2e2e"] }, Open ]], Cell[CellGroupData[{ @@ -9666,12 +11060,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + "In[204]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991329919739599*^9}, +Cell[BoxData["0.9153730026175773`"], "Output", + CellChangeTimes->{3.991329919739599*^9, 3.9938273914293413`*^9}, CellLabel-> - "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] + "Out[204]=",ExpressionUUID->"850ea06f-e1f0-487f-a397-478beb0297a8"] }, Open ]], Cell[CellGroupData[{ @@ -9794,12 +11188,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + "In[205]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913299197646008`*^9}, +Cell[BoxData["0.0774652686964581`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9, 3.9938273914408903`*^9}, CellLabel-> - "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] + "Out[205]=",ExpressionUUID->"6022b839-98c2-4588-a174-9e0403435008"] }, Open ]], Cell[CellGroupData[{ @@ -9861,68 +11255,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991848964116934*^9},ExpressionUUID->"220bdeed-2e17-e94c-a7b0-\ -3e066daf15d7"], + CellChangeTimes->{3.991848964116934*^9}, + CellLabel-> + "In[206]:=",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 145, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919788595*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.623151114533721`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 206, 41, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.9938273914546413`*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +In[206]:=",ExpressionUUID->"ed735fa1-e447-40bb-ba8a-16c816eb819f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 192, - 146, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299197985992`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.4037900057451676`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 206, 42, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.99382739146102*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +In[206]:=",ExpressionUUID->"7916eecc-e832-40e4-93d8-d8836004eba5"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 192, 147, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299198065968`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.352624221746502`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 206, 43, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993827391468754*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +In[206]:=",ExpressionUUID->"eb7ce229-f2b8-4a9f-aa8d-5c84d9894bbe"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 192, 148, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329919814598*^9}, +during this calculation.\"", 2, 206, 44, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991329919788595*^9, 3.993827391474831*^9}, CellLabel-> "During evaluation of \ -In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +In[206]:=",ExpressionUUID->"392662cb-8648-498e-ab42-82a1b5fc7c23"], -Cell[BoxData["4.190766798679958`"], "Output", - CellChangeTimes->{3.991329923627493*^9}, +Cell[BoxData["10.768243948188628`"], "Output", + CellChangeTimes->{3.991329923627493*^9, 3.9938273954970093`*^9}, CellLabel-> - "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] + "Out[206]=",ExpressionUUID->"9c93f62b-0233-4075-90b9-26ec8a5e7a0e"] }, Open ]], Cell[CellGroupData[{ @@ -9984,68 +11382,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918489685110855`*^9},ExpressionUUID->"b8791a07-33fe-8c4f-9c59-\ -dd23af9a4471"], + CellChangeTimes->{3.9918489685110855`*^9}, + CellLabel-> + "In[207]:=",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 149, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236609*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.623151114533721`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 207, 45, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9938273955394287`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +In[207]:=",ExpressionUUID->"ab78d46a-7858-4b46-9016-a51141c4151e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 193, - 150, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991329923669897*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.4037900057451676`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 207, 46, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.993827395547195*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +In[207]:=",ExpressionUUID->"b0a8043d-0a1c-4c09-b005-19636e831e22"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 193, 151, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236779003`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.352624221746502`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 207, 47, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.993827395553907*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +In[207]:=",ExpressionUUID->"e02ead5b-67d2-4268-a393-3913a7fb61ba"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 193, 152, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913299236858997`*^9}, +during this calculation.\"", 2, 207, 48, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913299236609*^9, 3.9938273955610933`*^9}, CellLabel-> "During evaluation of \ -In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +In[207]:=",ExpressionUUID->"e974c46c-5d33-4abf-8259-eb51b3e51a94"], -Cell[BoxData["7.439513700547696`"], "Output", - CellChangeTimes->{3.9913299274564743`*^9}, +Cell[BoxData["4.407117597021297`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9, 3.99382739950885*^9}, CellLabel-> - "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] + "Out[207]=",ExpressionUUID->"11e0433c-cf9d-400a-928a-f3b1ff64ee84"] }, Open ]], Cell[CellGroupData[{ @@ -10103,93 +11505,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991848973885317*^9},ExpressionUUID->"3fe6e7f1-b44a-234f-af77-\ -3cf1fdaf28d9"], + CellChangeTimes->{3.991848973885317*^9}, + CellLabel-> + "In[208]:=",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk0VV8bB3CZQsg8RmYZ0zWEsB+zzIkyZLruPaSMlSTRpElJkjSIMkuk +JKF+iuLNGIpIqLgyTycp8m5/nHXWZz1rf/fz7LPOlqWGudCZmZiYRvGz9o5o +1VR+3t5qkmTnfpZjaQSZTOXoUi2K0f67rU/XPJipl6pgUYOUXTXNOLGdaS3s +3NpvkcSRo1u5sMui4+vYLJrReZai4xuwL74Tq40v+oBM2d4p8WC/aI+4t0z5 +iLJPNWltxB7rfR97rLoHdZ+qusWPLTEs7/XL/Asq4bvuL4RtNx1rcKh5AF02 +dLsgiv1qeWxDdNEQusSzjlcS+9Mp0eMVod9R5K20OWnsKXaLsQXKMLo9Lawn +j81+OdxDexHnysf3KGNL82c0RlSPogqbjs/q2I6Sv/KmzCdQ4Fu9pe3YRJac +iAbHFNJytBE1wY5XdEo40DyNzqtbpFpg94h2bTtcNIsu+v4tcsGmeQbvv355 +DhnNV1h4Ys/cZbr/JHQeRXp6G1OxOeQ0+GYpJMrSPmB3CDuVVmfNJ/wL9c52 ++MViy+R7xG9d/IWUNil9TMDWVz83FVL9G+31vdp7CztIb6B5zHwZqRdEur/D +Xog+wsqltIK83xjSO7BPVm8wUuH4h343Trd/xU4H/YeBzatI8bjs299r/eU2 +WkQWrYO3E4Uy2/6MoKJ31wdPSTLDo54BBcCeYfjEXrvMDIZ3WC84Yceqkk8f +h7JAWqXkgTDs1FJZ+WkKGzTAhZyn2L3tE6/+ZbPB9GujrLfYMnPPPXmF2SEn +5NufbuxiHccUjUV26L3C3LKCXf8iZt3Bag5wcMz84fB3BJF1nQOj5txgJX1n +aBVbwJ6b7/grbmAWHe0UXx5BWl0WwGPAAwP/PujqYAf/eJa1TZMXnryLswnG +Dmdu1jLm5oMtQ3aFfdjDciWzCb/44eU/fY/OFXw+xHvONm0BSLxz23IBm/nh +iKxYhAC09Ty4L/wP96u92aVoXAAmpgsLPLA9zZOftA4KgpFG3twIdltA5CHR +JmFASn+jRJgY6Gt+UqIfhwiU+kv5mGBPjBdlF1qKQKvmXDmBzXX4e+eOWhF4 +2lhRVoltcdZVx++ZKPiermP4r2Ogqhw9siBTHCSulVj9j5mBcob/RBkeloL9 +iV6fxtkYyMbt/NdDj6RgW4+WjDQ7zq8XtHo0IgX9HGeanLF1ctSFZTykYbzg +vtVz7Hqqz1M2k81gYzXUemE9A81NDx4dPSMDSocMt5hwMpBgiEX5Uwc5EG7X +ZJvjZqCRHK4g52A5MP4Vc1KLh4Eqv7RLTp6TA6HqAO8w7H323meUauUgLGGj +0RR2jlqUyy2KPFD1pi/P8OL9x/Jn4kQVYJdky4n1/AzkGrhBw3ZIEdpsrHPi +hBkIRblR9q4ogvS0X38DtmpC5naauBLckI84zC/CQEzZ2mZxu5TAXTymJhf7 +0VevvU9eK8GJGufyDlEGYt9TfErigTLYl6pYmEjg/iwcPo1RVcDI8c6k12YG +yt59s28xTgXQ0VXGY+wk6tAg6x0VCFo6A+wyDEQ7eWRculMFgrPmNzzB5q/J +YNptrgp8P1O5eeUYKFh7SrVaXg0uBmyu6FZgIEm5q/GJP9ThEtwpL1NloJpL +CypLzBowqJr8SEINn8e8RxchqwH1vPHCZ7Hv1SuomPng+hsXirs6A8kFVnX8 +7taAXFOuLDZNPG/xsCLRpAnceacdjmxjIClJaULGQwuEWkxW8/UZSD33MPdf +RIFyhdf6XjYMRKWdITUcKWBqICHbjZ0un/LVbx8FrIVuBu/eyUAsD0ofv4um +wLF/LLIOtgzUe2/MNaWMAnVc3yQt7RnoYrpfhoq8NnCIhtpZO+Pvm2iv6c6u +A5MifzNT3RnofqSC87NmXfDR00vdHcxA7VFo+9lcA9j+OyaDI42BZH0+Onof +NAaxHcWRvxoYiL5aUSJ1DEBpsqqvZ5mBRMcr14tSzeBfZ1/TZuNRdFjb6EuK +qgUcSO55UxI/iqiTy42CY5bwgkM9fVPDKHpkdmh9Zps1KNhGmKdI/kQ5C8Gv +i1N3wqsg14sz4T/Rb1Oxlvp4OzDMyNyV1/UT9TOxzA75O0DavRL9FuMxFLop +LPmUvBOw3nh+YW/eGCrZ31h7I8EZhgYqBV5Lj6OYefFFtf27IEmfeFByYxyR +tlZ7GnxdIPyEQ12K1AQy8LpmOrxrN5ifLm6YL5xAHeIZwfXarlAuFJZPUiaR +RN6ZmoItbnCwVaisr2USVQ6q2jvy7AHPnZxLarQpJN01Exg1uQdOCxkfuLI8 +hbRvXCvOHtwLR4z7tm/Mn0YZrPOaKXXucCOwwMhOcQZVmG7tTXjhAW6iP4uZ +T86g9O2X+JeLPOGurczYp94Z1NaXe077shdYGncz3mnNomcOdxXCT+6DQbUO +3y9Js2g2ZDdTKM0bvj0R/crPmEWklUrQlLkPxGwVZQ83nkMFk59/H9LzBelb +AjIxt+eQ+/3cAG9uP+h6WOsvPDOHnj6x82U57wdiCukKDNt5ZCDZsXRxyQ8k +P+fXbcuYR/KDgb0f9vuDN5/mpu9j8+jHhgNOd7/7Q/b4xmnxHQuoPckxwNqN +Cg1umazHTy2g1OjMDUfaqSAr2Ga0qXEB1bxaXQrYGQAy0rG6rOtJtHEfnNeu +CgA/wZeVrjtIJCPU0LapJgAMdTKQihGJtJodxNhfBcCPqFs2K9guRl6FPa8D +YLzWYjDbhESpm6KaTvwPr9dalR03JZFE/8ONjT0BsIWfs9nfhkQKPqLp+xYD +4OiO/LwpVxIZ+E0VJOjQoDJmXCLuIInybs0cctSjgefpfk6lEBIJdc6ZiOrT +wMmg63QL9pTlYlfBDhpsMvUWkAwj8f3FtK7ZjAbSvrU5jyNIxLvI7yGwiwYK +X8Tj3kaR6McVXc7MEBp8O2ZkeuMkiZKqY/dX5tEgYdddvYYUEoVQbhpEF9Dg +3ccwKcfrJLIvLOPUL6LBbOnFy13YXDdHCp8/okGyph7LYCqJEiKdxyrKaTD9 ++Z/TbBqJYlUUDjx7QwPliendK7dJFHyz6eCTrzR8f24LrXpAop28I0aRgzQ4 +2RqrTckm0ZYEJh7KNxoUdPjFFWKPROo+KhumQS7X/Zy0HBL5O2ZOPp6ggZb8 +B60DeSRyZzsUWvqHBs7u+XorhSSyPiQRXixCBzu/2Yj6xyR6k3nONkWMDusc +T93RLSORUfOcQrQEHf67oUHJw9ZSbPpsLk2HoqaTeQlPSCTefdy8T5EOmQqZ +BcblJBo37Bfh0qVD/N/Tq9eek+gqc9bLwN100PFbDmh6ieffyp3u4EaH5Y3E +etVXJDrrFR2pvZcOnNudhC9gR5c7K6960kFuYHe42X+4f2LdtTQqHSZKxGQf +15JI+z2V9jaCDuszTnmH1ZGo+5riBvlkOlysC22IbSRRCeIJGr1Gh/T42Ut1 +2GcnF+ofXafD77zA95z/IxFlZ32c/k065MQu16RiJzEFzDnco0OzWkRYznsS +WYVlfY4upsMoTXy1qJlEUlIX9ExK6KCVqBn7E3vhfdh1lsd00MuKOazcQqIH +Ssgh6SkdxrISP93HXunvr82uosMDL6pvciuJyu0lC1ob8TxyVTGu7SRK/MPM +lvqeDhXZ1nmXsKkFY/4ezXRobyHsa7H5WKskf7TRgXVFm0P1A4kOVrtfXfpE +h04hVuNFbHnVtCiFYTr86b19PbqTRH+6T3T+HKGDMsdyQB52ewJdq3SUDu83 ++pd0YscN6YwZTNBh/ohImXoXiXrTO72d5umQbOYS0oOdsp7fMmYdAaKL0VUi +n0hUM9fvdZiFgLQO3mOAzegvigxlI+DNDonk/dhG5RZZVE4C/rMKaXiBPeIX +/deWn4AvtjyeLt24f3tLAUtBApbu7O2Lwt6xXUAFCRNwxLej/DZ2Mk/xHm1x +AhwjDcIH1+pVA2WSsgQU+yyup/WQiMgtbhSWJ+DEx8mdZ7CTk48NbFQkgHO2 +5/t97BFCkIdVhQCjhYjN/Wt1QeugCS0CYoOWyu0+k6jqn2D8CIUAV+Ovz+jY +wz8HbwzqEBBoksAbj21YG1PXpY/3c2JpKMX+cbBE+iUQoFKo6srZi/939+O6 +z80IsO26JCCNbWBuY19mQcBt3rNbKNhJ4t+O5doQcG5sq5c7diVraXKmLQGd +7L1Hg7G/Tx/Pv2VPQJUy98RxbP13wh+vOOP1nEu9d7GpZd/Gz7sQcD+i2K0Y ++8rdUubTrgR4q39Wrsb+FrlTK8qdAPuEax2fsHl8RKzDPQmQWRR5+H0tb+d3 +7+B9BExROfum19ZvPpHo40eAaYiqKXsf7ofL9oE7lQAKt+tRPuxvpMgLFxoB +47mDrBLYPEPf2+wJAkrFWn/KYes3Px6xCiLAJUhCSQ2b+vzECgQT4Paq7gUF ++8oDW6EdB/F8+xtzDNbyr4iq6Ybi+QeUGGgtP/qH6dZwAjpe9J+0xOamlbmr +RBJQWTkeYYu93SkuTP4wAb2vnaoc1/IN7c5JRRGQOMjh6YJ9WVEsQzSagOeW +IrvcsCv4hp/yxxBAWh/N3Is99Lfs/YZYAo4FqFl6rOUz4obY4ghQN6SYeWLr +ddj9Xo0n4Or1xLQ1/x/iXQS1 "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10203,105 +11606,106 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - +1:eJwV1Hk0VV8bB3CZQsg8RmYZ0zWEsB+zzIkyZLruPaSMlSTRpElJkjSIMkuk +JKF+iuLNGIpIqLgyTycp8m5/nHXWZz1rf/fz7LPOlqWGudCZmZiYRvGz9o5o +1VR+3t5qkmTnfpZjaQSZTOXoUi2K0f67rU/XPJipl6pgUYOUXTXNOLGdaS3s +3NpvkcSRo1u5sMui4+vYLJrReZai4xuwL74Tq40v+oBM2d4p8WC/aI+4t0z5 +iLJPNWltxB7rfR97rLoHdZ+qusWPLTEs7/XL/Asq4bvuL4RtNx1rcKh5AF02 +dLsgiv1qeWxDdNEQusSzjlcS+9Mp0eMVod9R5K20OWnsKXaLsQXKMLo9Lawn +j81+OdxDexHnysf3KGNL82c0RlSPogqbjs/q2I6Sv/KmzCdQ4Fu9pe3YRJac +iAbHFNJytBE1wY5XdEo40DyNzqtbpFpg94h2bTtcNIsu+v4tcsGmeQbvv355 +DhnNV1h4Ys/cZbr/JHQeRXp6G1OxOeQ0+GYpJMrSPmB3CDuVVmfNJ/wL9c52 ++MViy+R7xG9d/IWUNil9TMDWVz83FVL9G+31vdp7CztIb6B5zHwZqRdEur/D +Xog+wsqltIK83xjSO7BPVm8wUuH4h343Trd/xU4H/YeBzatI8bjs299r/eU2 +WkQWrYO3E4Uy2/6MoKJ31wdPSTLDo54BBcCeYfjEXrvMDIZ3WC84Yceqkk8f +h7JAWqXkgTDs1FJZ+WkKGzTAhZyn2L3tE6/+ZbPB9GujrLfYMnPPPXmF2SEn +5NufbuxiHccUjUV26L3C3LKCXf8iZt3Bag5wcMz84fB3BJF1nQOj5txgJX1n +aBVbwJ6b7/grbmAWHe0UXx5BWl0WwGPAAwP/PujqYAf/eJa1TZMXnryLswnG +Dmdu1jLm5oMtQ3aFfdjDciWzCb/44eU/fY/OFXw+xHvONm0BSLxz23IBm/nh +iKxYhAC09Ty4L/wP96u92aVoXAAmpgsLPLA9zZOftA4KgpFG3twIdltA5CHR +JmFASn+jRJgY6Gt+UqIfhwiU+kv5mGBPjBdlF1qKQKvmXDmBzXX4e+eOWhF4 +2lhRVoltcdZVx++ZKPiermP4r2Ogqhw9siBTHCSulVj9j5mBcob/RBkeloL9 +iV6fxtkYyMbt/NdDj6RgW4+WjDQ7zq8XtHo0IgX9HGeanLF1ctSFZTykYbzg +vtVz7Hqqz1M2k81gYzXUemE9A81NDx4dPSMDSocMt5hwMpBgiEX5Uwc5EG7X +ZJvjZqCRHK4g52A5MP4Vc1KLh4Eqv7RLTp6TA6HqAO8w7H323meUauUgLGGj +0RR2jlqUyy2KPFD1pi/P8OL9x/Jn4kQVYJdky4n1/AzkGrhBw3ZIEdpsrHPi +hBkIRblR9q4ogvS0X38DtmpC5naauBLckI84zC/CQEzZ2mZxu5TAXTymJhf7 +0VevvU9eK8GJGufyDlEGYt9TfErigTLYl6pYmEjg/iwcPo1RVcDI8c6k12YG +yt59s28xTgXQ0VXGY+wk6tAg6x0VCFo6A+wyDEQ7eWRculMFgrPmNzzB5q/J +YNptrgp8P1O5eeUYKFh7SrVaXg0uBmyu6FZgIEm5q/GJP9ThEtwpL1NloJpL +CypLzBowqJr8SEINn8e8RxchqwH1vPHCZ7Hv1SuomPng+hsXirs6A8kFVnX8 +7taAXFOuLDZNPG/xsCLRpAnceacdjmxjIClJaULGQwuEWkxW8/UZSD33MPdf +RIFyhdf6XjYMRKWdITUcKWBqICHbjZ0un/LVbx8FrIVuBu/eyUAsD0ofv4um +wLF/LLIOtgzUe2/MNaWMAnVc3yQt7RnoYrpfhoq8NnCIhtpZO+Pvm2iv6c6u +A5MifzNT3RnofqSC87NmXfDR00vdHcxA7VFo+9lcA9j+OyaDI42BZH0+Onof +NAaxHcWRvxoYiL5aUSJ1DEBpsqqvZ5mBRMcr14tSzeBfZ1/TZuNRdFjb6EuK +qgUcSO55UxI/iqiTy42CY5bwgkM9fVPDKHpkdmh9Zps1KNhGmKdI/kQ5C8Gv +i1N3wqsg14sz4T/Rb1Oxlvp4OzDMyNyV1/UT9TOxzA75O0DavRL9FuMxFLop +LPmUvBOw3nh+YW/eGCrZ31h7I8EZhgYqBV5Lj6OYefFFtf27IEmfeFByYxyR +tlZ7GnxdIPyEQ12K1AQy8LpmOrxrN5ifLm6YL5xAHeIZwfXarlAuFJZPUiaR +RN6ZmoItbnCwVaisr2USVQ6q2jvy7AHPnZxLarQpJN01Exg1uQdOCxkfuLI8 +hbRvXCvOHtwLR4z7tm/Mn0YZrPOaKXXucCOwwMhOcQZVmG7tTXjhAW6iP4uZ +T86g9O2X+JeLPOGurczYp94Z1NaXe077shdYGncz3mnNomcOdxXCT+6DQbUO +3y9Js2g2ZDdTKM0bvj0R/crPmEWklUrQlLkPxGwVZQ83nkMFk59/H9LzBelb +AjIxt+eQ+/3cAG9uP+h6WOsvPDOHnj6x82U57wdiCukKDNt5ZCDZsXRxyQ8k +P+fXbcuYR/KDgb0f9vuDN5/mpu9j8+jHhgNOd7/7Q/b4xmnxHQuoPckxwNqN +Cg1umazHTy2g1OjMDUfaqSAr2Ga0qXEB1bxaXQrYGQAy0rG6rOtJtHEfnNeu +CgA/wZeVrjtIJCPU0LapJgAMdTKQihGJtJodxNhfBcCPqFs2K9guRl6FPa8D +YLzWYjDbhESpm6KaTvwPr9dalR03JZFE/8ONjT0BsIWfs9nfhkQKPqLp+xYD +4OiO/LwpVxIZ+E0VJOjQoDJmXCLuIInybs0cctSjgefpfk6lEBIJdc6ZiOrT +wMmg63QL9pTlYlfBDhpsMvUWkAwj8f3FtK7ZjAbSvrU5jyNIxLvI7yGwiwYK +X8Tj3kaR6McVXc7MEBp8O2ZkeuMkiZKqY/dX5tEgYdddvYYUEoVQbhpEF9Dg +3ccwKcfrJLIvLOPUL6LBbOnFy13YXDdHCp8/okGyph7LYCqJEiKdxyrKaTD9 ++Z/TbBqJYlUUDjx7QwPliendK7dJFHyz6eCTrzR8f24LrXpAop28I0aRgzQ4 +2RqrTckm0ZYEJh7KNxoUdPjFFWKPROo+KhumQS7X/Zy0HBL5O2ZOPp6ggZb8 +B60DeSRyZzsUWvqHBs7u+XorhSSyPiQRXixCBzu/2Yj6xyR6k3nONkWMDusc +T93RLSORUfOcQrQEHf67oUHJw9ZSbPpsLk2HoqaTeQlPSCTefdy8T5EOmQqZ +BcblJBo37Bfh0qVD/N/Tq9eek+gqc9bLwN100PFbDmh6ieffyp3u4EaH5Y3E +etVXJDrrFR2pvZcOnNudhC9gR5c7K6960kFuYHe42X+4f2LdtTQqHSZKxGQf +15JI+z2V9jaCDuszTnmH1ZGo+5riBvlkOlysC22IbSRRCeIJGr1Gh/T42Ut1 +2GcnF+ofXafD77zA95z/IxFlZ32c/k065MQu16RiJzEFzDnco0OzWkRYznsS +WYVlfY4upsMoTXy1qJlEUlIX9ExK6KCVqBn7E3vhfdh1lsd00MuKOazcQqIH +Ssgh6SkdxrISP93HXunvr82uosMDL6pvciuJyu0lC1ob8TxyVTGu7SRK/MPM +lvqeDhXZ1nmXsKkFY/4ezXRobyHsa7H5WKskf7TRgXVFm0P1A4kOVrtfXfpE +h04hVuNFbHnVtCiFYTr86b19PbqTRH+6T3T+HKGDMsdyQB52ewJdq3SUDu83 ++pd0YscN6YwZTNBh/ohImXoXiXrTO72d5umQbOYS0oOdsp7fMmYdAaKL0VUi +n0hUM9fvdZiFgLQO3mOAzegvigxlI+DNDonk/dhG5RZZVE4C/rMKaXiBPeIX +/deWn4AvtjyeLt24f3tLAUtBApbu7O2Lwt6xXUAFCRNwxLej/DZ2Mk/xHm1x +AhwjDcIH1+pVA2WSsgQU+yyup/WQiMgtbhSWJ+DEx8mdZ7CTk48NbFQkgHO2 +5/t97BFCkIdVhQCjhYjN/Wt1QeugCS0CYoOWyu0+k6jqn2D8CIUAV+Ovz+jY +wz8HbwzqEBBoksAbj21YG1PXpY/3c2JpKMX+cbBE+iUQoFKo6srZi/939+O6 +z80IsO26JCCNbWBuY19mQcBt3rNbKNhJ4t+O5doQcG5sq5c7diVraXKmLQGd +7L1Hg7G/Tx/Pv2VPQJUy98RxbP13wh+vOOP1nEu9d7GpZd/Gz7sQcD+i2K0Y ++8rdUubTrgR4q39Wrsb+FrlTK8qdAPuEax2fsHl8RKzDPQmQWRR5+H0tb+d3 +7+B9BExROfum19ZvPpHo40eAaYiqKXsf7ofL9oE7lQAKt+tRPuxvpMgLFxoB +47mDrBLYPEPf2+wJAkrFWn/KYes3Px6xCiLAJUhCSQ2b+vzECgQT4Paq7gUF ++8oDW6EdB/F8+xtzDNbyr4iq6Ybi+QeUGGgtP/qH6dZwAjpe9J+0xOamlbmr +RBJQWTkeYYu93SkuTP4wAb2vnaoc1/IN7c5JRRGQOMjh6YJ9WVEsQzSagOeW +IrvcsCv4hp/yxxBAWh/N3Is99Lfs/YZYAo4FqFl6rOUz4obY4ghQN6SYeWLr +ddj9Xo0n4Or1xLQ1/x/iXQS1 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.717899569021357, + 1.3660531883881253`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.7178995690213585}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10313,21 +11717,20 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, - 1.7610246145622632`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "PlotRange" -> {{0, 180}, {0.717899569021357, 1.3660531883881253`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7178995690213585}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10341,103 +11744,104 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Hk4VdsbB3CReSoyJWUeEslUot5XKDO5kXk4zt5FQsiVhAb6NUlyS13R -gCQpVKauuqUSiqLhKrJN6WQoGTun+i1/7Gc/n2ft9V3vu9Z+lhoryoPi5+Pj -6yXP3HvXC0OdqrYX693HorR0DXiwfrTAjGVbCmpfykN0iHvyzbM1be/B9rg0 -eS1id/ZzIQmTx3DZ8YuNGnF5QsojQdsWkLjR/1mZ+MgTxQcpJS9hl2+siBxx -TduuPJ7xa/A7dS5fgpjT2ZS0p+4djEn73uQnXjyg4Tdl8wFmZKtXT6/ggdNY -kkVsy0cY8q1awyGu53HEE0oYaFLzr3hP/Ga/wt67kX3gq3W9oJl4VMiWM2E8 -AE8uXZOuJRY6Hu1jMj0IMx4B34uIly680Lirbgi2xrW4ZRG7Kk8VjdoMw3jM -TAybmL6oLm8gMgoltg0WTsQpWm5pO1rGYE9U2B4j4ncKHaviSr5Bkklo6JQ+ -D9i+4WGnj4/D23tNkm+Jv+byXaqI/A7xKatW3SUWUTdY8M14El6J6vZFEWez -H21aIDcFUfde7HIkVr3qk7JyegpEky/v0SBesyJ9dGfdDOzeO3+ybTkPtpt/ -bOHY8GDYySxXiXgiYfd8Me2foDv0aPKTHg9S68St9ER+ga7898bbxDm45vq2 -lt9g4xn/wYGYXdhoG1MyDzm+/LUhujwoeXK6Z78yPwqJHOrVIP76KTDp1HF+ -rE+1SOvX4UHS8snKW5ECGPQmyyKEOPummsaYsSBO/xMUbK/Ng8624fpfVwSx -4ucH/19apP7xKl8pOSGc6MKOCuJSU9csg2khzLJbZqpA3FCTOC+iTgRzzwnW -PdfgweSj9o9DNhKYG37s5zdVHsg4SyzYWy+Bzlf5gw4TG3XYoqSFJMYN4Oxi -4vD+OxdXGUqhdUr1O6tlPIjmbzFaJ7EAjSJs7Xeo8GBAvexb2tRCPOd+cGGs -Etkfukm01UQGn+2yXTSsyAP+64NqirtkUPVohUcosarJMo+SLzJ4hqYPOivw -wNcms+JFjyx+thSuFZXjQWtoTKxCsxwmPdS7sXIBD7qvZhwLFpHH6RcZh45L -k3P4UnLlmp08PrE0+vuTFA/E4vraLR/Io8i4+uEcSR7YHtpiGnxHAa+ufxo8 -IMaD2gLzyeJ8JaQGND31BXlQMPAjfm2cCj5/fcY0fIYL9p6Hu2NvqGD2kRjB -vGkuDDfIbrwxSFw87NU2xQXTghVyqj5LUUWrKclokgsNrMBKwfXLsNq26H33 -Ny6Mj/X8OXRQFYu8nDUmOFyQ3Wl7u9JFHX+Zveri/8CFwQKx7e7h6rg6eb6r -8HsuVH9oUx5JV0dtR217sU4u+DsHHNR+oI7s7tT34u+4UKAf73HOWAMPPCs8 -/LOdrM+5+jVZQRNFw/+Bv5u5sGWbuIEjo4WZkc5nHtZwAeI9jbf+1MI8eeEn -edVcWJ6Wv5qtpI3+Lz/m7KniAt8Vkw3Jm7Vxf8QWPf07XLjR7be14l9t7Otb -93vfLS4IeZXuX3xZB32Wclp7i0h9ti5vOCw9ZC19knc9iwvK6idTjvWvQMPG -o6NuNBfuHZ3Qm+U3QA/hDzNVbFL/d58OWs0Ac2zS05eGciGvQVNvQ6ABijVo -GH4K4oL6ttpXM28NUGirSz3tQ+orHdCimw2RubiQtcyZCyrKS2lVHyN8OVXV -lGjEhRWFcRJcMEbrv9v5eRM/4FKMpvudFjOU0zi5qO/PH9AWD6sPFVpgw8he -nZ6uWVALfO0aELEOpYfqD3SZzwL1+26Zyh5EMxuj2NMnZ0DhS7WwAmsDeo7X -vYprm4Y4E6sPWcttkW+rCL1TYRpYI7xGWY4dmq0+wZIOnIIbG2KF81s3YXJQ -ePGDrEkomAj/tzTbAf+M9ov43DEBM9aKzxtSnNBNKuRkl8gEdPEJfGNCXPDN -G97giM13iFwSlblfww1L6CfH9mWOQ1lY44O/0tyxNCD16rH2b5D4XWlaP2wz -Nmfa2jjqfYNJx41eT4M80OOudu6ShK9g4XfKemDzH/jKPN1SvGAMXildCG8w -2YIuIjZO95NGYXHRwXvFup6oqNAW0O48AtU9y51dJb2wuTHw7zAchqUdX7fF -j3jh1nL7wbObvoDJX6dKr/RsxUvCNwX3OXDgwvzvhlmPvLHGfeDZl/DPcNd6 -ZWdajQ9uLLvWqXtkCHJWH13IK/HF/Lii62W1n6D1fWG6yXE//J+21foVwp/g -jkuuZnSqP2ZGD+xZ5zEI33b+wRfJDkBmqfWy+3cGYHKj3vZRm0Dsnipem6oz -AMUj/83Emgfhr13WHO1z/eB9qTA0QCIYe0zPp2ot64fKCqcggcPBKD9R5WNY -1AcWyq9mj8wG4+BR9brt0AcaPds6X4aFoOKgyeSrvl7oF9/hltsXgolqGv3+ -R3uhLcM1dJMnCxX5Or+0Qi9kJ+SL725j4dOMZo+oGQbu1f+eDXUIxcfKCo6n -6xiQ9sfDJrWh6JVw+nnzUQZUFz1tXXIvFGvevxgXITZqcVEUqg/FwSK6cOMR -Bjys/K69+zcUY8JiKh4dZiB7SXzzvmeh2JC6M7zhEAOLu65LN74LRemOa3Y9 -yQxoBirk+E+HYmqtkMP+WAYsgkeL00zZmGS/+zIVyEDRua+xruZsRDF9t7YA -Bha1j69XWMPGzi6IsyQetZvuKLZkY094sI6sP0PuA755LRvYWJ0TY9Tow4DU -9EIfmc1sDJrKf2zvyUD/CTPR/J3Ea1/WXXFmYPPT1R3botgYfiGMpUJcz7c2 -32gXG7v51qWedWLgXOx6s4dxbHyJMWonHBlw9dkUMrCXjUdPa8/us2egRtOn -Rv8oG/trXad22zKQUZcUVl3Expo6zki9FQM7jc9aJBSzUapFuMGB2Plaueia -EjY+EHwg/tqSAbGzg9eqbrAxbqZ/bHgtA2kx7py7t9l4JGG1mLoFA0l6mjvu -PGQjL7cp9ZIZA+FnmyMqutn4RjXObtKQAQepQauYHpLnFmWdQaybxidp3MvG -W/z6ZTrEgzFmN8oHSD/RTf/5GTAQ4po/cmuYjY1+MwnP9BnwFoyNvPmDjbHZ -eS9rdBnYFLs4ulSeQvHub/+OqjPwMD/dMUuRwojzWZhBbNUyrpmwmMLyJjEb -Q2Ijreb/bJZS+DWUao9SY0Dp7V6b91oUZl7gU5tdxsCXtV3yYmYUaje+DdNU -YeAk/8V/tv1BYaSM3aEuBdL/SokcF08KFROHok8QH/JLiDHZSuH4weyedcQJ -t911fvtSmKs1Zn9RntRPzzt1hkWhkqvkuh1yDJg0sdiPd1G4XIC/TEmWgben -tMQ1Mik0LQ078U6KgTKQ3D50isJ0kwvSF4gPjUw03DhNId+fXgIsYmOHhuQ1 -Zyk8oOQEI5Lk/PhCx13yKJys7BARJd4YdfG/hFIKuyzxo6c4Ayoq/zNfX0Zh -fY5SghrxRFPUaYFbFBqdgQMjYgxc1gaXjEoKrfTYnHTin11dD67UUshvc1v0 -vigDt52Vi180Usg5X7rfVoSBYz/4BbObKLwa1GagQMwq5oT4tFDIGpRy4ggz -sGB+rXJ/K4VX7re9O0UcUed9cvYNhfZditaDQgxoLD8TrzlAoQTLf0OBIAM/ -3u5r/zxI4Ymh3l/7iNvSKKObQxRGZ/is8CZOZkw5FsMUXj4u2SlJ3JnTHuD2 -ncI4c9fU5PkMZAkvtEucR2PeIoupOAFyH4x3+cUJ0Fh666W2B/GnrpKYSEEa -b4n+6FtJbHXb9iJLlMZ4sTGBEX7yvwUncB0Xkvks1c6dxAuc7WTsZGkMrxyO -dCO2XC2jB3I01iwyzVxFnClZ6mWiRGPD4eUJ0/PIeO3HcmU1GuOWxHcdIaYL -SxvlNGhMPdn5Ooo4M3PPR2ktGs+bFvt6EQ/SspLz9Wis/xEvqjU3Lrtp+7AR -jSKmpdxGPgZqf8mmDBrTOFuosbWSeOBzz189pjTaWkyuzyNe+yDxUccaGqsX -XKzcTdwfUbb0H6SRJz1kpE8s5b3XrGoDjRHNAmNKxBY29s7ltjRaUjstRIkz -lHr3FNrTmP5JM/bz7x6onn8zM9+Rxjd20axO4r6xvVfPOdO4JHJ+dzPxmidy -r0+4k+8P8ifeImaV93457EGjBoafv0J8Ivcm/4EtZD8o+U1niXtjHIzivWlc -IbTGLpVYMlB+U7QvjUYl18/snstz6AsI96fxuGhw3I65+cv2HQsMppHz9HCH -91w9Yo6XvVk0Nl6b9XKfy5uUr/Fg0/jE+RplP5fH9LU60zRaS53hs57La7k1 -uHE7jRNe93XWztVXte8nhtN4+7zme5O5/MuOiywjaLzo/Xix4Vz+CQV9s0ga -BZQvDerO5Sf0W6+MpjH4z6r1msQS7HJvvRiyf1IiGqrEq92SozTiaJQ5nnV6 -yVz+Wqd0lXgaE696ZSoRH9dSvKCQQOMv9S1KCsR3FwxULkwk/bccNZQjZrjl -TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== - +1:eJwV1Hk0VV8bB3CZQsg8RmYZ0zWEsB+zzIkyZLruPaSMlSTRpElJkjSIMkuk +JKF+iuLNGIpIqLgyTycp8m5/nHXWZz1rf/fz7LPOlqWGudCZmZiYRvGz9o5o +1VR+3t5qkmTnfpZjaQSZTOXoUi2K0f67rU/XPJipl6pgUYOUXTXNOLGdaS3s +3NpvkcSRo1u5sMui4+vYLJrReZai4xuwL74Tq40v+oBM2d4p8WC/aI+4t0z5 +iLJPNWltxB7rfR97rLoHdZ+qusWPLTEs7/XL/Asq4bvuL4RtNx1rcKh5AF02 +dLsgiv1qeWxDdNEQusSzjlcS+9Mp0eMVod9R5K20OWnsKXaLsQXKMLo9Lawn +j81+OdxDexHnysf3KGNL82c0RlSPogqbjs/q2I6Sv/KmzCdQ4Fu9pe3YRJac +iAbHFNJytBE1wY5XdEo40DyNzqtbpFpg94h2bTtcNIsu+v4tcsGmeQbvv355 +DhnNV1h4Ys/cZbr/JHQeRXp6G1OxOeQ0+GYpJMrSPmB3CDuVVmfNJ/wL9c52 ++MViy+R7xG9d/IWUNil9TMDWVz83FVL9G+31vdp7CztIb6B5zHwZqRdEur/D +Xog+wsqltIK83xjSO7BPVm8wUuH4h343Trd/xU4H/YeBzatI8bjs299r/eU2 +WkQWrYO3E4Uy2/6MoKJ31wdPSTLDo54BBcCeYfjEXrvMDIZ3WC84Yceqkk8f +h7JAWqXkgTDs1FJZ+WkKGzTAhZyn2L3tE6/+ZbPB9GujrLfYMnPPPXmF2SEn +5NufbuxiHccUjUV26L3C3LKCXf8iZt3Bag5wcMz84fB3BJF1nQOj5txgJX1n +aBVbwJ6b7/grbmAWHe0UXx5BWl0WwGPAAwP/PujqYAf/eJa1TZMXnryLswnG +Dmdu1jLm5oMtQ3aFfdjDciWzCb/44eU/fY/OFXw+xHvONm0BSLxz23IBm/nh +iKxYhAC09Ty4L/wP96u92aVoXAAmpgsLPLA9zZOftA4KgpFG3twIdltA5CHR +JmFASn+jRJgY6Gt+UqIfhwiU+kv5mGBPjBdlF1qKQKvmXDmBzXX4e+eOWhF4 +2lhRVoltcdZVx++ZKPiermP4r2Ogqhw9siBTHCSulVj9j5mBcob/RBkeloL9 +iV6fxtkYyMbt/NdDj6RgW4+WjDQ7zq8XtHo0IgX9HGeanLF1ctSFZTykYbzg +vtVz7Hqqz1M2k81gYzXUemE9A81NDx4dPSMDSocMt5hwMpBgiEX5Uwc5EG7X +ZJvjZqCRHK4g52A5MP4Vc1KLh4Eqv7RLTp6TA6HqAO8w7H323meUauUgLGGj +0RR2jlqUyy2KPFD1pi/P8OL9x/Jn4kQVYJdky4n1/AzkGrhBw3ZIEdpsrHPi +hBkIRblR9q4ogvS0X38DtmpC5naauBLckI84zC/CQEzZ2mZxu5TAXTymJhf7 +0VevvU9eK8GJGufyDlEGYt9TfErigTLYl6pYmEjg/iwcPo1RVcDI8c6k12YG +yt59s28xTgXQ0VXGY+wk6tAg6x0VCFo6A+wyDEQ7eWRculMFgrPmNzzB5q/J +YNptrgp8P1O5eeUYKFh7SrVaXg0uBmyu6FZgIEm5q/GJP9ThEtwpL1NloJpL +CypLzBowqJr8SEINn8e8RxchqwH1vPHCZ7Hv1SuomPng+hsXirs6A8kFVnX8 +7taAXFOuLDZNPG/xsCLRpAnceacdjmxjIClJaULGQwuEWkxW8/UZSD33MPdf +RIFyhdf6XjYMRKWdITUcKWBqICHbjZ0un/LVbx8FrIVuBu/eyUAsD0ofv4um +wLF/LLIOtgzUe2/MNaWMAnVc3yQt7RnoYrpfhoq8NnCIhtpZO+Pvm2iv6c6u +A5MifzNT3RnofqSC87NmXfDR00vdHcxA7VFo+9lcA9j+OyaDI42BZH0+Onof +NAaxHcWRvxoYiL5aUSJ1DEBpsqqvZ5mBRMcr14tSzeBfZ1/TZuNRdFjb6EuK +qgUcSO55UxI/iqiTy42CY5bwgkM9fVPDKHpkdmh9Zps1KNhGmKdI/kQ5C8Gv +i1N3wqsg14sz4T/Rb1Oxlvp4OzDMyNyV1/UT9TOxzA75O0DavRL9FuMxFLop +LPmUvBOw3nh+YW/eGCrZ31h7I8EZhgYqBV5Lj6OYefFFtf27IEmfeFByYxyR +tlZ7GnxdIPyEQ12K1AQy8LpmOrxrN5ifLm6YL5xAHeIZwfXarlAuFJZPUiaR +RN6ZmoItbnCwVaisr2USVQ6q2jvy7AHPnZxLarQpJN01Exg1uQdOCxkfuLI8 +hbRvXCvOHtwLR4z7tm/Mn0YZrPOaKXXucCOwwMhOcQZVmG7tTXjhAW6iP4uZ +T86g9O2X+JeLPOGurczYp94Z1NaXe077shdYGncz3mnNomcOdxXCT+6DQbUO +3y9Js2g2ZDdTKM0bvj0R/crPmEWklUrQlLkPxGwVZQ83nkMFk59/H9LzBelb +AjIxt+eQ+/3cAG9uP+h6WOsvPDOHnj6x82U57wdiCukKDNt5ZCDZsXRxyQ8k +P+fXbcuYR/KDgb0f9vuDN5/mpu9j8+jHhgNOd7/7Q/b4xmnxHQuoPckxwNqN +Cg1umazHTy2g1OjMDUfaqSAr2Ga0qXEB1bxaXQrYGQAy0rG6rOtJtHEfnNeu +CgA/wZeVrjtIJCPU0LapJgAMdTKQihGJtJodxNhfBcCPqFs2K9guRl6FPa8D +YLzWYjDbhESpm6KaTvwPr9dalR03JZFE/8ONjT0BsIWfs9nfhkQKPqLp+xYD +4OiO/LwpVxIZ+E0VJOjQoDJmXCLuIInybs0cctSjgefpfk6lEBIJdc6ZiOrT +wMmg63QL9pTlYlfBDhpsMvUWkAwj8f3FtK7ZjAbSvrU5jyNIxLvI7yGwiwYK +X8Tj3kaR6McVXc7MEBp8O2ZkeuMkiZKqY/dX5tEgYdddvYYUEoVQbhpEF9Dg +3ccwKcfrJLIvLOPUL6LBbOnFy13YXDdHCp8/okGyph7LYCqJEiKdxyrKaTD9 ++Z/TbBqJYlUUDjx7QwPliendK7dJFHyz6eCTrzR8f24LrXpAop28I0aRgzQ4 +2RqrTckm0ZYEJh7KNxoUdPjFFWKPROo+KhumQS7X/Zy0HBL5O2ZOPp6ggZb8 +B60DeSRyZzsUWvqHBs7u+XorhSSyPiQRXixCBzu/2Yj6xyR6k3nONkWMDusc +T93RLSORUfOcQrQEHf67oUHJw9ZSbPpsLk2HoqaTeQlPSCTefdy8T5EOmQqZ +BcblJBo37Bfh0qVD/N/Tq9eek+gqc9bLwN100PFbDmh6ieffyp3u4EaH5Y3E +etVXJDrrFR2pvZcOnNudhC9gR5c7K6960kFuYHe42X+4f2LdtTQqHSZKxGQf +15JI+z2V9jaCDuszTnmH1ZGo+5riBvlkOlysC22IbSRRCeIJGr1Gh/T42Ut1 +2GcnF+ofXafD77zA95z/IxFlZ32c/k065MQu16RiJzEFzDnco0OzWkRYznsS +WYVlfY4upsMoTXy1qJlEUlIX9ExK6KCVqBn7E3vhfdh1lsd00MuKOazcQqIH +Ssgh6SkdxrISP93HXunvr82uosMDL6pvciuJyu0lC1ob8TxyVTGu7SRK/MPM +lvqeDhXZ1nmXsKkFY/4ezXRobyHsa7H5WKskf7TRgXVFm0P1A4kOVrtfXfpE +h04hVuNFbHnVtCiFYTr86b19PbqTRH+6T3T+HKGDMsdyQB52ewJdq3SUDu83 ++pd0YscN6YwZTNBh/ohImXoXiXrTO72d5umQbOYS0oOdsp7fMmYdAaKL0VUi +n0hUM9fvdZiFgLQO3mOAzegvigxlI+DNDonk/dhG5RZZVE4C/rMKaXiBPeIX +/deWn4AvtjyeLt24f3tLAUtBApbu7O2Lwt6xXUAFCRNwxLej/DZ2Mk/xHm1x +AhwjDcIH1+pVA2WSsgQU+yyup/WQiMgtbhSWJ+DEx8mdZ7CTk48NbFQkgHO2 +5/t97BFCkIdVhQCjhYjN/Wt1QeugCS0CYoOWyu0+k6jqn2D8CIUAV+Ovz+jY +wz8HbwzqEBBoksAbj21YG1PXpY/3c2JpKMX+cbBE+iUQoFKo6srZi/939+O6 +z80IsO26JCCNbWBuY19mQcBt3rNbKNhJ4t+O5doQcG5sq5c7diVraXKmLQGd +7L1Hg7G/Tx/Pv2VPQJUy98RxbP13wh+vOOP1nEu9d7GpZd/Gz7sQcD+i2K0Y ++8rdUubTrgR4q39Wrsb+FrlTK8qdAPuEax2fsHl8RKzDPQmQWRR5+H0tb+d3 +7+B9BExROfum19ZvPpHo40eAaYiqKXsf7ofL9oE7lQAKt+tRPuxvpMgLFxoB +47mDrBLYPEPf2+wJAkrFWn/KYes3Px6xCiLAJUhCSQ2b+vzECgQT4Paq7gUF ++8oDW6EdB/F8+xtzDNbyr4iq6Ybi+QeUGGgtP/qH6dZwAjpe9J+0xOamlbmr +RBJQWTkeYYu93SkuTP4wAb2vnaoc1/IN7c5JRRGQOMjh6YJ9WVEsQzSagOeW +IrvcsCv4hp/yxxBAWh/N3Is99Lfs/YZYAo4FqFl6rOUz4obY4ghQN6SYeWLr +ddj9Xo0n4Or1xLQ1/x/iXQS1 "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "PlotRange" -> {{0, 180}, {0.717899569021357, 1.3660531883881253`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5311368545847414}, + "AxesOrigin" -> {0, 0.7178995690213585}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10447,7 +11851,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5311368545847414}, + AxesOrigin->{0, 0.7178995690213585}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -10475,7 +11880,8 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.717899569021357, 1.3660531883881253`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -10483,9 +11889,9 @@ TeJJND7c+6NVdi7/UzIjmEz6k7vyU4bY/JXTzO8UGn2PHKqa8/8BHmugaQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913301734961166`*^9}, + CellChangeTimes->{3.9913301734961166`*^9, 3.9938276853630447`*^9}, CellLabel-> - "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] + "Out[208]=",ExpressionUUID->"f63921dc-8cc4-4543-8f3f-eb41e11ab54d"] }, Open ]], Cell[CellGroupData[{ @@ -10548,213 +11954,165 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.991848978152012*^9, - 3.99184898469532*^9}},ExpressionUUID->"ab29778f-f183-804b-b871-\ -4070462057d7"], + CellChangeTimes->{{3.991848978152012*^9, 3.99184898469532*^9}}, + CellLabel-> + "In[209]:=",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.47138536392029`*^-264\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.7144089460529465`*^-273\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 195, - 153, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913301737143345`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 209, + 49, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993827685513523*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +In[209]:=",ExpressionUUID->"5337b516-8cc7-41db-9829-4db85bbf56db"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.656148098260251`*^-275\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.065253850182408`*^-284\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 195, 154, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173723337*^9}, + 209, 50, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993827685521336*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +In[209]:=",ExpressionUUID->"202b787a-39be-4105-b2fd-d9d8a9dc09cb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.85074473590452`*^-286\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.3993459798991497`*^-295\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 195, 155, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173731432*^9}, + 2, 209, 51, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.993827685528273*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +In[209]:=",ExpressionUUID->"13ac9f04-a3db-4500-91e8-eb66ee189680"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 195, 156, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991330173739336*^9}, +during this calculation.\"", 2, 209, 52, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913301737143345`*^9, 3.9938276855349894`*^9}, CellLabel-> "During evaluation of \ -In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +In[209]:=",ExpressionUUID->"2416c600-9937-4ba5-b796-9f06a4bba24f"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VN8bAHBfWpAtZMsyM4YWspZ1xvtKCdnDZKeiTUjK0mIJKZIoSQtp +oqLMnUqWpJCoLBXZypakyPJLtpLf7a/7fJ7nPPe89z3nvO+51B1Bjn68PDw8 +ov/x8Px7TnXX19CT2Cab757ccLHJ1KTlukyEaXssvPC463nGhQK4ommHTHsa +mJfMDu5y0YIj9nfb+Npz4eEzz9KtLgjLR6XTZtu4sDSs1FXFxR56ntgGTbZV +wTnd5/wFzj5gTv/+aaLtHVAbDY+93RYMs236F8fb+kG5ZnT1YetoqDbLZ7/N +/Qlx+1cH/uhIBfme0sEd6vMwFjAtUleWCZIB3neXmvHhQ55K02iRHEjTNi+3 +debHsOF0sfzmm9CRqfVsQkwYB4Q8rXcuy4ckdlQTr+xyrK3Z7KuscxekL3w+ +nX5NAtXcHHuDBwtBRu1R3EyeBFqCO2/1WCHIVSVEeXIk0Ku9wUN0thAUx9cc +XlUtgVq8RsUZy+6BinWwT/mQBK7wud7prXUPdBfN633WlUR7b9/hzvB7YBcq +NaDzShIjaW+zAxbfh1NOlibvplYgO8zfqE6oCOQeNsrx/ieFei0xCZYriuC+ +hNO09jIpDNN7XVmtUAQf3nlxzitJ4adat6lcjSKgO4TSHCykkNlPdxeyL4Iq +m+wlzZel8Jp2u+WZ80Uwb/6rsYEhjZMVehUZSzmQmhdZMG8ujdSbMyF+yzhA +X8KTuM5BGv37c9O1RDlg/ULQ9KyfNDaIp0s+keJAlhnlgXWKNBo5egnfVuGA +AW699LpHGm0fN+W+38iBQ4Y3vOtjZdBUzO5zWCQHrHJEJrcmy2CXSFds1nEO +0JYeS2y8KIOVPknzpdEcaG5xId7flsHHG2ZOjiVwQCNYiK+7UQaHpC68W5/O +gaG8sLz/ycmieVaG/+oCDnhI2v5Y+UAWBQt5Vz5o54Du0fKY609kMdmqgPdg +FwcE+1dLUWtl0eqeTY1aNwdKi/hAtUMWNxhdab30mQNSW0tTtRZkMT3ITttq +lJw/hr5+81Y5fBYx2ibNR8CmsbnIwM9yaLQ9dB9rLQERFhfWPh+Rw9RBqwG2 +OgH3b6zrlJiSQ7Gu5W5jGgTIOPkYlvKvxJ78P4ZHdQkYKXkxzaexEkfub2kK +ZBCQHpsaejl8JV5WTw15YUNA/wrVwBpheSxt9ezRDiRAOqhSQVpaHuV9eNSU +ggmwrtvesJcij5mC58IFQggojkxSF9WVxwfee+RaDxNwpmf8u+t2efTP+xtl +cZwAnTvlu8dy5fHbWgHhnCQCYhgOvnIGCnjuXK+aZB4BFl7X/6e/UQFZL/+M +VecTIBI9fNLZWgGnwvUNg+8QcLU6Pi/VRwFbIus9nhYSUGJVNrzktAK2Jn6Z +1HpAwPh25SM/OxQwJbu8OaiSgMeRwUuXDyhgiQFbYegZASeuVmRqjCrgFmGN +aY8qAoR6WeV7eRXxS5WaI+MFAat2J/P0rlXEj776xW9fEeB1+NeZN0cVkWqx +5R6rlQCVSxvlv8croj9Fl+/yh3/5O3dvaaoiKos7jX5oIyDyz5rmjWxFfNRw +IsGik4CLJ71WlL5RxE6Dh428PQS8Of8y+5aCEhb79Jq1fCXz/UBSu3qVEupq +ftTtGSLArdW3qldbCbX+u1s1+I2AIZk/AyvNlXDS1bxyeJgAvhyttWmBSmgf +EGfeMEaA0f3LD09UKqGE9n7K2BS5H9oa50frlLCjp4tWPE2ALc+iLd7vlDBO +kMGMnCFgp2NgB3xRwkXaIk9mZwkwP0qNil5MwW9GcxOtfwh4LfrkpoEgBaNX +9lfHzxNgz3apGxehYIfKNq7OXwLcG5KW+8pQcMU2ta8nFwgIVpq6aapGwZKT +Ls/5eLnw60Fq3awmBenSKolXSUdaqP0g1lPw7J1NwTp8XIg/6KNHM6EgMoby +nBdxIav6VR2vAwX17/FWRizhgtJ2vx9lzhScfX/xxm/S7JGF5YfcKHibHnQ3 +cikXilZscP+8k4J5lGPawfxcqNmd/aP6CAVV7D6pGgpywfKPofixoxRU4kTa +sEk3prborY8mxw9GZQst40JHqUA0+zQFcwjvuhbSXrZstkcKBRu+nslZL8SF +gX6Tesl0CsrrVeadJz26LFQ8/ioF3zUNg5kwFw7liOgzb1CQRTdquUR6Zv0d +91+3KOiXy7z8jTSfVzfbr4iMN0m6JE6ECzIcC33zKgoe30v3uCzKhWubPrv/ +raVgShH9dBtpWsfx6OLXFBRExxFxMS6s431Qr9pKQc/WeVYMaW6GzWh3BwXT +avt8H5I2UBsSv9RNQeHOp+wB0hudFDyWDlFwi59+O2M5F14OPY6uHKGg5izz +1S7S1scdb4VNUPDZoMTMadLvlv+o15yiYAQreEchaVbeqdGvcxRMl1km+Ib0 +RyOaRM4CBXOzro4Nkd7R9ER/+yIqSk58kuAT58LXnSwPMQEqvnybGCZHOmBm +IrpOmIoXLrBWapI2OugvNShOxY+1t302kub/3lnAJ0PF6KOVAY6kP+ywM6Uq +UHHx6ST0Jn2rq/qDCY2Kc7nzH/eQDnUyCPBYRUVH16VmQaQ3NhT+F6lOxTLp +K4dCSIuZUy9d0qbiAL0w6J+7n15Uf6RHxb4bGgb/xhfqC1a9M6Zi0Gnpxn/v +i+ScYI0jFVlFHjr/5rNY83NE2JyKBZWTfv/ikcrdHau2lYpqJm17/8U7IPdR +2tKeimnxf0z+fQ833f6evzOV7FeegzKko4VebIxzo2Ih/y+fBTI/dvGG7Te8 +qZiiWlHUT1rx770DlbuoaNlMvK8iPXKExvdpLxV1Tjc1ZJMuG8vInAukYmK+ +RHYE6cQ9yzRkQqnI2XbMwp60S19U9YYIcv5T/K+VSdPdJrdvO0HFz8IlqybJ +9X629dPJlEQqXrGOO5REOqXGQbbwLBW33mbvciTtway9X59GxYwrY7pSpGc1 +ijoWXaOi7e4VBy+Q+60uXzmIlkvFLpu5XlvSGZTMRZhPxZ5BBd0lpHXEYzSP +ElSsXGwSu5/cvzxJv2oyi6noOmoVI0u6kW+fW3E5FY/aPPavIff7/l+O8RMv +qLizqW1IjDS7nd61u5OKO77GfY0jz1eIw+Xg+B4qxoq06smRxlfCS24OUHHV +8eHQQvJ8fiqf0uoepWKY0r3nLwXI9ciuS3Dio2HtqqPlHeR5H5Bmyofw0zBi +cOy6C2luKkGcE6bhny1VEc1kfbCLzfr4SpqGFeUdsuWLyXz6BeiYqtNw9nUw +LYCsN7NqYt3rnGkYLXXa2oSsX1PX5GJ03WjIUIWwFLK+TYqq0A29aZielVjb +Rda/0Z+G+zbtpaFzrGLbgd9k/yvfOeV2nIauxWHdQWT9fLX1sUjiLRp+cvod +PjJBwMuK58TZuzQMyHkaKEq6RvONU3oRDV95xGRpjhPwVKIv63opDYfYhzN3 +jxLA7RJc9aiBhg4MW5vi7wRk7feC/l80FN63LaOpn4BLn/b0f52joUR/aEht +HwEX7A7F/1igoePjKxllvQSk6Ca+nhFQxoXZlPKsbgJifxMsUUVl/BhgmmlE +9pv9SYuDGebKyB62zpltJoBRUJiTkaGMsTmxtONPCOiiFGRvvqKMZSll3/XK +yX6Vcef6ZLYy5mk4HBktJftlTN5VxzvKWF9+qsvlMdmvt+dkijxRRtO4u7NC +XALWLL6QmtCnjHtyg3eIkv1Zyvto9BF1Om7aJ/Hl0DkCHrVERKlo09E4IXHJ +0FkCnKzCT7RsoGP9if3L3JIJSNtw+JgO0JFlnVatf5oAYaGg8FEHOs72SQl2 +xhKwqHRHsH8YHZWtkz+UkfeHCXErH5cqOu6XdeBMuhLQHkBr3veSji0j+Yo8 +2wl4VjsHUW/o+Pm3vYGACwGpkQVKtz/Q0VX1b4ikIwFa/UI9s9/peCv8opqo +FQGBRJPnNQkVFLC16sgwJOC7nbP7wC4VpPPoP5iRImAg2cclZKkqeimH39r2 +mgOB39VpWkKqmBxV47xQx4HpLbM/foipYt+0xtY7teT9jS8tfq+cKva6/xSY +ec4BrYjqhz7rVDHYx2k6uoQDx/1UJey2qeJk/u0001vkfc5kpEktWxXXWezu +jCfvl5ZjYZZf9FbhjuYSP/c1HBjZyX/oYdRqVHx3oPtF5X3yf0Ka91TVGnRS +9BsrErwH4g2qKZyxtUi4sCGGVQDyiUX2enrqGHPhwMeq/XcgU81QTGL3Orxd +Yb8pISMfXsmZbvh5XgM1jrVUetTdAiP5qlTND5q4N6s2YqDtJojw5Yb6xmrh +xf+NRKhK5IJijBLDVVUbbz8sM882zAEBFY9ix5faODc9oREyfxU0mLJFYZ46 +WCbWpfp1/DKEdItXW/Ho4omlK3dYdGTA2M9kZ8tMXfxw8/HgB/ULsEWzNsty +3XoUnHutEll1Hp7+NP493bgedXf1SkZXpECguk7nW78NSKh2WtQ/OgPM0V0t +rgJ6OMnvX3rodQJspsvYCOfq4a3xlrCnSSdhdfSZ8Cp9fdxZw9OVXBINa/0M +K1U69fGkq+O1fLFj4Pd0T9zDgwYYf+VI8hVuGFTmtOyaWGGI4WcPsplXD8Hk +7YVpzceGGLJldFe8ZjDsVCkQyLIxwkxP1wzW8D6YWJuuxx03wmHpJbV+3/yg +hP2771eiMU6G+3FO/vYFPbPQaaskY7w8fzls7w9feNQ3IpRz1hgH96z4uL3H +F7iK3fpWacYonty/26naFwozn529fsUY6dyNMxVJvpCTHG+45b4xRr0zOuCi +6AunQ0XPZ743xt939c+GW/mA2yZlNFZk4FpBb5OGSE+Yb+EXqaYw8F3FcnlJ +X0/I8RvtslJmoJXdKDtwiycMJpSGua1m4NscyVNekp4QUm9XFKHDQBuDJ3qr +izzgjO0xxRJzBna9Ur2xfcgdyra3/lkfxEA6HzOzY48brDxwqlTjGQMzK6ds +3mSzIGXBf0NSFQNFJswOCiazgDfNnPhaw8Ab6wzUWeEs+F68+E5OPQPNjttv +lndgQRlPXKb4ewaeqyAEnfhY4HYhOmzqCwP7VG1pIftcILM8YsPTZUycKTe2 +VTNzhhWCAYQNi4l/1Tp8H8pvA7bZ8chxVya2uepzDghuA53jKWbpHkzUzPRL +1JtxBNtxTmu7LxOf+5ffmXrvCAkffs3uDGBi33WHSM1kR5jJjdoYGcPESUv3 +4ogFB+g0Tn+fV8BEFre+nz5hD3sOs69a3mfiTmLEtqzXHqbuP/Ib4TDRbKP6 +iGezPYjT2qe1i5koN7kvtanIHrbyK8hXPGOi8WcBL/cge3jSkrfrfSsZz6vF +yjL9dmAlUrLuSDsTvzStDVuosoP2LfVTMl1MfHZs7st/bDuYLBtO9Opl4jIZ +02qWvx2su6F179t3JqZlhlhvHrGFJ52mR5J/MPGs963NfI22YCW5DTTHmbj6 ++WRpV5Et+J86/Db0Fxnvw6markO2MPksIUt6holeb7eu53Oxhdi5SzvL5ph4 +Mou3eZOBLYitv6PuOU9+Pz0xLkfOFq4fKPu1sMDEyhwnE6l5G/g/i8uizw== + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -10768,172 +12126,120 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwV13k4VN8bAHBfWpAtZMsyM4YWspZ1xvtKCdnDZKeiTUjK0mIJKZIoSQtp +oqLMnUqWpJCoLBXZypakyPJLtpLf7a/7fJ7nPPe89z3nvO+51B1Bjn68PDw8 +ov/x8Px7TnXX19CT2Cab757ccLHJ1KTlukyEaXssvPC463nGhQK4ommHTHsa +mJfMDu5y0YIj9nfb+Npz4eEzz9KtLgjLR6XTZtu4sDSs1FXFxR56ntgGTbZV +wTnd5/wFzj5gTv/+aaLtHVAbDY+93RYMs236F8fb+kG5ZnT1YetoqDbLZ7/N +/Qlx+1cH/uhIBfme0sEd6vMwFjAtUleWCZIB3neXmvHhQ55K02iRHEjTNi+3 +debHsOF0sfzmm9CRqfVsQkwYB4Q8rXcuy4ckdlQTr+xyrK3Z7KuscxekL3w+ +nX5NAtXcHHuDBwtBRu1R3EyeBFqCO2/1WCHIVSVEeXIk0Ku9wUN0thAUx9cc +XlUtgVq8RsUZy+6BinWwT/mQBK7wud7prXUPdBfN633WlUR7b9/hzvB7YBcq +NaDzShIjaW+zAxbfh1NOlibvplYgO8zfqE6oCOQeNsrx/ieFei0xCZYriuC+ +hNO09jIpDNN7XVmtUAQf3nlxzitJ4adat6lcjSKgO4TSHCykkNlPdxeyL4Iq +m+wlzZel8Jp2u+WZ80Uwb/6rsYEhjZMVehUZSzmQmhdZMG8ujdSbMyF+yzhA +X8KTuM5BGv37c9O1RDlg/ULQ9KyfNDaIp0s+keJAlhnlgXWKNBo5egnfVuGA +AW699LpHGm0fN+W+38iBQ4Y3vOtjZdBUzO5zWCQHrHJEJrcmy2CXSFds1nEO +0JYeS2y8KIOVPknzpdEcaG5xId7flsHHG2ZOjiVwQCNYiK+7UQaHpC68W5/O +gaG8sLz/ycmieVaG/+oCDnhI2v5Y+UAWBQt5Vz5o54Du0fKY609kMdmqgPdg +FwcE+1dLUWtl0eqeTY1aNwdKi/hAtUMWNxhdab30mQNSW0tTtRZkMT3ITttq +lJw/hr5+81Y5fBYx2ibNR8CmsbnIwM9yaLQ9dB9rLQERFhfWPh+Rw9RBqwG2 +OgH3b6zrlJiSQ7Gu5W5jGgTIOPkYlvKvxJ78P4ZHdQkYKXkxzaexEkfub2kK +ZBCQHpsaejl8JV5WTw15YUNA/wrVwBpheSxt9ezRDiRAOqhSQVpaHuV9eNSU +ggmwrtvesJcij5mC58IFQggojkxSF9WVxwfee+RaDxNwpmf8u+t2efTP+xtl +cZwAnTvlu8dy5fHbWgHhnCQCYhgOvnIGCnjuXK+aZB4BFl7X/6e/UQFZL/+M +VecTIBI9fNLZWgGnwvUNg+8QcLU6Pi/VRwFbIus9nhYSUGJVNrzktAK2Jn6Z +1HpAwPh25SM/OxQwJbu8OaiSgMeRwUuXDyhgiQFbYegZASeuVmRqjCrgFmGN +aY8qAoR6WeV7eRXxS5WaI+MFAat2J/P0rlXEj776xW9fEeB1+NeZN0cVkWqx +5R6rlQCVSxvlv8croj9Fl+/yh3/5O3dvaaoiKos7jX5oIyDyz5rmjWxFfNRw +IsGik4CLJ71WlL5RxE6Dh428PQS8Of8y+5aCEhb79Jq1fCXz/UBSu3qVEupq +ftTtGSLArdW3qldbCbX+u1s1+I2AIZk/AyvNlXDS1bxyeJgAvhyttWmBSmgf +EGfeMEaA0f3LD09UKqGE9n7K2BS5H9oa50frlLCjp4tWPE2ALc+iLd7vlDBO +kMGMnCFgp2NgB3xRwkXaIk9mZwkwP0qNil5MwW9GcxOtfwh4LfrkpoEgBaNX +9lfHzxNgz3apGxehYIfKNq7OXwLcG5KW+8pQcMU2ta8nFwgIVpq6aapGwZKT +Ls/5eLnw60Fq3awmBenSKolXSUdaqP0g1lPw7J1NwTp8XIg/6KNHM6EgMoby +nBdxIav6VR2vAwX17/FWRizhgtJ2vx9lzhScfX/xxm/S7JGF5YfcKHibHnQ3 +cikXilZscP+8k4J5lGPawfxcqNmd/aP6CAVV7D6pGgpywfKPofixoxRU4kTa +sEk3prborY8mxw9GZQst40JHqUA0+zQFcwjvuhbSXrZstkcKBRu+nslZL8SF +gX6Tesl0CsrrVeadJz26LFQ8/ioF3zUNg5kwFw7liOgzb1CQRTdquUR6Zv0d +91+3KOiXy7z8jTSfVzfbr4iMN0m6JE6ECzIcC33zKgoe30v3uCzKhWubPrv/ +raVgShH9dBtpWsfx6OLXFBRExxFxMS6s431Qr9pKQc/WeVYMaW6GzWh3BwXT +avt8H5I2UBsSv9RNQeHOp+wB0hudFDyWDlFwi59+O2M5F14OPY6uHKGg5izz +1S7S1scdb4VNUPDZoMTMadLvlv+o15yiYAQreEchaVbeqdGvcxRMl1km+Ib0 +RyOaRM4CBXOzro4Nkd7R9ER/+yIqSk58kuAT58LXnSwPMQEqvnybGCZHOmBm +IrpOmIoXLrBWapI2OugvNShOxY+1t302kub/3lnAJ0PF6KOVAY6kP+ywM6Uq +UHHx6ST0Jn2rq/qDCY2Kc7nzH/eQDnUyCPBYRUVH16VmQaQ3NhT+F6lOxTLp +K4dCSIuZUy9d0qbiAL0w6J+7n15Uf6RHxb4bGgb/xhfqC1a9M6Zi0Gnpxn/v +i+ScYI0jFVlFHjr/5rNY83NE2JyKBZWTfv/ikcrdHau2lYpqJm17/8U7IPdR +2tKeimnxf0z+fQ833f6evzOV7FeegzKko4VebIxzo2Ih/y+fBTI/dvGG7Te8 +qZiiWlHUT1rx770DlbuoaNlMvK8iPXKExvdpLxV1Tjc1ZJMuG8vInAukYmK+ +RHYE6cQ9yzRkQqnI2XbMwp60S19U9YYIcv5T/K+VSdPdJrdvO0HFz8IlqybJ +9X629dPJlEQqXrGOO5REOqXGQbbwLBW33mbvciTtway9X59GxYwrY7pSpGc1 +ijoWXaOi7e4VBy+Q+60uXzmIlkvFLpu5XlvSGZTMRZhPxZ5BBd0lpHXEYzSP +ElSsXGwSu5/cvzxJv2oyi6noOmoVI0u6kW+fW3E5FY/aPPavIff7/l+O8RMv +qLizqW1IjDS7nd61u5OKO77GfY0jz1eIw+Xg+B4qxoq06smRxlfCS24OUHHV +8eHQQvJ8fiqf0uoepWKY0r3nLwXI9ciuS3Dio2HtqqPlHeR5H5Bmyofw0zBi +cOy6C2luKkGcE6bhny1VEc1kfbCLzfr4SpqGFeUdsuWLyXz6BeiYqtNw9nUw +LYCsN7NqYt3rnGkYLXXa2oSsX1PX5GJ03WjIUIWwFLK+TYqq0A29aZielVjb +Rda/0Z+G+zbtpaFzrGLbgd9k/yvfOeV2nIauxWHdQWT9fLX1sUjiLRp+cvod +PjJBwMuK58TZuzQMyHkaKEq6RvONU3oRDV95xGRpjhPwVKIv63opDYfYhzN3 +jxLA7RJc9aiBhg4MW5vi7wRk7feC/l80FN63LaOpn4BLn/b0f52joUR/aEht +HwEX7A7F/1igoePjKxllvQSk6Ca+nhFQxoXZlPKsbgJifxMsUUVl/BhgmmlE +9pv9SYuDGebKyB62zpltJoBRUJiTkaGMsTmxtONPCOiiFGRvvqKMZSll3/XK +yX6Vcef6ZLYy5mk4HBktJftlTN5VxzvKWF9+qsvlMdmvt+dkijxRRtO4u7NC +XALWLL6QmtCnjHtyg3eIkv1Zyvto9BF1Om7aJ/Hl0DkCHrVERKlo09E4IXHJ +0FkCnKzCT7RsoGP9if3L3JIJSNtw+JgO0JFlnVatf5oAYaGg8FEHOs72SQl2 +xhKwqHRHsH8YHZWtkz+UkfeHCXErH5cqOu6XdeBMuhLQHkBr3veSji0j+Yo8 +2wl4VjsHUW/o+Pm3vYGACwGpkQVKtz/Q0VX1b4ikIwFa/UI9s9/peCv8opqo +FQGBRJPnNQkVFLC16sgwJOC7nbP7wC4VpPPoP5iRImAg2cclZKkqeimH39r2 +mgOB39VpWkKqmBxV47xQx4HpLbM/foipYt+0xtY7teT9jS8tfq+cKva6/xSY +ec4BrYjqhz7rVDHYx2k6uoQDx/1UJey2qeJk/u0001vkfc5kpEktWxXXWezu +jCfvl5ZjYZZf9FbhjuYSP/c1HBjZyX/oYdRqVHx3oPtF5X3yf0Ka91TVGnRS +9BsrErwH4g2qKZyxtUi4sCGGVQDyiUX2enrqGHPhwMeq/XcgU81QTGL3Orxd +Yb8pISMfXsmZbvh5XgM1jrVUetTdAiP5qlTND5q4N6s2YqDtJojw5Yb6xmrh +xf+NRKhK5IJijBLDVVUbbz8sM882zAEBFY9ix5faODc9oREyfxU0mLJFYZ46 +WCbWpfp1/DKEdItXW/Ho4omlK3dYdGTA2M9kZ8tMXfxw8/HgB/ULsEWzNsty +3XoUnHutEll1Hp7+NP493bgedXf1SkZXpECguk7nW78NSKh2WtQ/OgPM0V0t +rgJ6OMnvX3rodQJspsvYCOfq4a3xlrCnSSdhdfSZ8Cp9fdxZw9OVXBINa/0M +K1U69fGkq+O1fLFj4Pd0T9zDgwYYf+VI8hVuGFTmtOyaWGGI4WcPsplXD8Hk +7YVpzceGGLJldFe8ZjDsVCkQyLIxwkxP1wzW8D6YWJuuxx03wmHpJbV+3/yg +hP2771eiMU6G+3FO/vYFPbPQaaskY7w8fzls7w9feNQ3IpRz1hgH96z4uL3H +F7iK3fpWacYonty/26naFwozn529fsUY6dyNMxVJvpCTHG+45b4xRr0zOuCi +6AunQ0XPZ743xt939c+GW/mA2yZlNFZk4FpBb5OGSE+Yb+EXqaYw8F3FcnlJ +X0/I8RvtslJmoJXdKDtwiycMJpSGua1m4NscyVNekp4QUm9XFKHDQBuDJ3qr +izzgjO0xxRJzBna9Ur2xfcgdyra3/lkfxEA6HzOzY48brDxwqlTjGQMzK6ds +3mSzIGXBf0NSFQNFJswOCiazgDfNnPhaw8Ab6wzUWeEs+F68+E5OPQPNjttv +lndgQRlPXKb4ewaeqyAEnfhY4HYhOmzqCwP7VG1pIftcILM8YsPTZUycKTe2 +VTNzhhWCAYQNi4l/1Tp8H8pvA7bZ8chxVya2uepzDghuA53jKWbpHkzUzPRL +1JtxBNtxTmu7LxOf+5ffmXrvCAkffs3uDGBi33WHSM1kR5jJjdoYGcPESUv3 +4ogFB+g0Tn+fV8BEFre+nz5hD3sOs69a3mfiTmLEtqzXHqbuP/Ib4TDRbKP6 +iGezPYjT2qe1i5koN7kvtanIHrbyK8hXPGOi8WcBL/cge3jSkrfrfSsZz6vF +yjL9dmAlUrLuSDsTvzStDVuosoP2LfVTMl1MfHZs7st/bDuYLBtO9Opl4jIZ +02qWvx2su6F179t3JqZlhlhvHrGFJ52mR5J/MPGs963NfI22YCW5DTTHmbj6 ++WRpV5Et+J86/Db0Fxnvw6markO2MPksIUt6holeb7eu53Oxhdi5SzvL5ph4 +Mou3eZOBLYitv6PuOU9+Pz0xLkfOFq4fKPu1sMDEyhwnE6l5G/g/i8uizw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.07059398004920939}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -10945,19 +12251,19 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.07059398004920939}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -10971,171 +12277,119 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8bAHAr4xohK5R9L3dQyEo9j5EyMqPISqFSRtlSRMgKFVpCKAmR -klHKuFfli6KiJCuVsmciv/v767zer3PO5zzn+Tyf53OOnIefrScbCwvLPVYW -lv8fF/pfNSsmXdnplnzPWdDLZWd3jkSYQc8p8F972fBkUQ9QtMNDouc8hEUv -TgQvmkGw9f2P7D0ZkEYNCt616ARCE+IZfz7mw19CRvjownH4Wm/pN/exEqLc -73LlzIeDieLYl+mPjWDmtZaUOZUIfz5qX536+A6Uo6U6UvuuQ5PR3YK3+cPw -RjRqPDyvBKS/1ox6UMchdOvU/rfSVSBywu0+l9EsGA/W1j54XwMZW03qLO2X -gHHfxiTAqwHUPjvu3nF0CeJ9NKTawhqgLfZkFyViCTiLBSelUhqAs+fKL+68 -Jfja2B95/VEDRJwdlmr6vQSZJ/iseVhewJE3UWe0Y/+AN8OWFGT+ArQ863bI -PlqGtxLkRzz9L6A3e8uLacFVEFupcMqbfgnXu0rWByutgvlc9Nak5ZfgJEBy -W9ZdhfN/Lg+dZG+EvphN/9gOr0JrfeerTaKNMOBL0Bd5vApnvBePkXQa4Yfx -SLWW4z9wI3SMfT3TCEtTWeUReWvQGurx5ANLE9RQNqytPV6DwtyfZz9yN0G4 -V6pl7Os1UE6y+dIp2AQrn2PHk2fXYOxB8L5S2SaIGn4q2iHPgrMErmU+bILY -9kK7gUAW5JIOz/OMbIKkgnMdbBtZUXCI7hAw0wRmmseERRVY0T7avMn9TxNw -N9vak2is2Piv49MelmaIHVb6bG7AigI8GpzsAs1wRr5t9MoxVvTe3KUqo9IM -vrkS/4i1rBj5MLN33qUZbG5WUM0PsiEr8ZCAWGMzCFJv+Ll4sqFxrPuERGsz -tNfFVvr5saH9aL6zSHszmH3er3Mlhg1lDaIG53qbwVDyn9GXEjYc0Tp3xnm6 -GTSzzQ76rbDhd8Z0bMvmFhC/Mnzx8i12LOJlU1s53QISlMexS0XsqCvy9PPT -0BaQbIw75/KQHW91RnD4RbbA5imVIFITO0qFTr9ixLWAkoW/e90Pdqy9V6pA -udYCGhyrWsMaHPjoWLVoTX0LWAWKjai/5kDzo7QnM/9awJr3R39WFwd++3SF -4ysbHWzza3pX+jhwn4tpVzMnHRw6nTvokxw4PzI3c0aADi7UO7VOouvwwN6Y -Xbc30cFnRC39vPs65JwQuPxAjw7x+0x3vltYhwW/Tuwd96ODZFW7JBsrJ06a -eEbuPU2Hsg37FrfycqLM4AfpomA6fHjn+jBdhhO5jLtKMZIOijaB8jZ7OFGl -p0tdKpEOjXtvc3Ze48TbxzxKvPKZ8ZQqDq/d4cSyxTJTy0I6jPHdb1Ar48SN -TqxHVe/RQaitKvRSIycuWHur9JTSwd3s9ZjlL06UfjY88PYpHVZN5tv/0+fC -SJYRfbf/6JBWFF6yasKFnVMW/h0dzOdzsiTQbLhwl6yhjs47Oli0EAxSPLlw -e3l40uwHOlw3kn1kkcqFG+/d9BYaoIPqncJLZ7K50K6+2dtkiBkvG+XEg3wu -HONU4w4cocPPl9uU+Kq58K/yuFrNDzrooHnWm69ceGjgvcmvKTq03e48/fcn -Fx4Lqwv8NsOMd83emjLHhSSjRKueOWY+n7vzJHFzo92xSOF7S8x86QdHmG3l -RpncZyuTa3Q4rZvn9uo8N/q8rBqV52eAWa7AnHkyNybrPWG/JMAAea4zCe1X -udGi/+uHufUM6Ox2qOi6x40ugi2FpcIMUPXnY+9v58Y/KZuFusUZsO5jWJZ7 -DzcOzF4lCGxkQN+O75ThQW50SimlG0gyIIm3cd+POW70z6CkZEoz4EdRSNGM -JA/23VuKmpdlQAP/N70gRR40W5urX5VjQGagbccijQeXCyta1+QZsMuQtrSC -PBjESXOYVmRA/pchUy5vHjT8zRaWqMyAMGPr/ov+PJiQRfc4pMIA65Jnp/jC -eVBsUYCsTmbAWmj2DaEUHmybhQMvKQxwFrEcl3rEgya7aZ6ZqgzQiKiLzqnn -wZ1u60/qqzGAMKQsJkfnwYz5T+59TNeUswOxlwc/t1zaQNjKgDSxgK57QzyY -XKz2IYvpo5H93pTfPChwkJgso84AMfOatC1rPBguktsrrcGA8Qqi0iNuAmqK -jAdmMN0scaVmmzAB7f5T5GXTZMDNc6yWT6UIOK+hnuPD9OlR3yE9JQIO3GDb -0sG02d6+4GeqBDzx5EIjdRtzfqpMeVGHgGfTSvfHMt0Zrai5y5yA2wMb0uW0 -GHD3R3orYx8Blyyv6XkzfdZqzdnMlYBG8YvjRUw7PDkx3eZNwJnuj6UDTNM2 -fbpgFUBAHtA7I6LNAI7Y3ZLvwgn4cKPcQUOm+8aqyvbFElCSI93iONOPbOSN -PqYQMGg0zTaZ6cSnlz46ZhGwbVLF7x7Th2RWffpyCbh42bvgOdM6ccdZ3O4T -MOHi/rl2pgXHP14ZfETAAgbPoV6mv9vtUjnyjBlvTNrvL0w/r618Nkon4LUt -LNf6mM6Uk7U91knA0TC/o++ZPpmQMvqrl4AnjRedW5k2nlwO9x0mYOf9ytDH -TIftuUJ++ZuA09ce7rnFdFke7dOGBQKGaeidPcf08DL9otcaAStibaScmZbY -565bw82LC7eW5TSY3lv65wevMC82pm2/wsH0ec7L2a5SvPjipHRgJzNf1W7U -PRWKvDhieLcpk+nfT1sW2VV58eTGH7H7mZYTdrvroM2L/2Z/1wj/P98+Sw7F -yItFbS1HWpnzldSczrnCnMLljNj4UKZfbKI8sbTjRR7yDkUFpueDmz3znHkx -3mvdjlbm/JM7XUTnPHmxmm++y5vpy+fTAq+F8mKL6aPYTGY9tX5WUfwdzYsP -19XlKzG9otnUtTOJF6MDnHeXM+vR6/u8+sgt5nhps9RKZr3ewEtDWnd5kZa1 -9RSF6c5ryhkXHzLjm7pmcnsLA/QsDk6rNvHitd7UwmBm/fsVzuVGt/Ficckp -zU/M9VLwL8W6+z0vltmoHdRhWqDiRXnYD16U6J8PHaEyYEiU6NvMz4d/jQM0 -VpjrUdyvYZO4OB8+k2p9rsm0ReuB/47J8qGm14NZb+b6fRKeRF2vwYf8xRsP -Pycy6+nr1JjjAT6MvdqRRVFg9gedxOsPDvGhhEF7mS6zH8ylK5itHedDnYio -aENmv3A1diguiORD/zCNw8YyDFAvrvOezOfDsoxbB3ikGODNZi9u+IAP+3IX -UsaZ/enmwQn6lcd8SHudmd4mwQBOATmiXisfdnaK8keIMeDTqbiR2HE+dHpo -Ln5diAHR+jaHJHX4cWip8dIQJwP2uObMaBvyY5tN+Wn7dcz3j/oVY2/Bjw0p -ud6N7Mzxmy4Upbnzo+X2jcmJLAx4alb7i/MiP3KWJ8t0/6HD1AGF4NlefixP -DtGx+kWH6nB/LqERfvx55132kZ90OHvzWbbqBD/Wp+jrB36nA9/A/rpjbAKo -pWrseH6YDiTvZJYBsgDynWrY7fSZDq5B84ltEQLo1OfY+/cVHZSyDKXHLgjg -5Zx9808YdGZ9XirlShNAhWzriyda6BC+otJpWCCAJa10IuMFHa7GuIrWtAlg -2MsjmXrVzP0lnXG7cNN6zI69YrTpDh30yq5VnW1Yj4cXq1jHmPuv8cf21YnW -9Sjm6r2VFkgHSxaO3W7v1mNPa+qUTwAdDtv69sK39ajI1qbc50MHkwi5c1Hr -BDEkVP5dvDsd/GUW7hhQBPF6fdAVAVM6NHvfHm8KFsQ9Tk1HJ8ToYLqiK3wm -QhDrmgnqxRvo0J7WraUZJYi9Kn9/uAnSobeGJ6rgoiC2vO2ivOShwwRvoPCF -m4K40BTsaLfC/P55uEfbpFEQ1d9aLz4daIETS9NRrfxCOHWJHphT1AJ6AV5i -o8JCmHjDbyQpvwW4xz6VsEsIob5By2pgTgsUfm76sFNeCE/dkNyhl9kC/c+v -Uh9rCeEAjd85/QLze+iCbk+emxDG9/+8GHS4BdSFo9UiKoRwA//Stq3SLfCH -IthPsxdGu1eaAXbnm0G/5EFuZuYGfOtQYflLtQmmhc3cHRpFMGq/7qeKzpcw -kuzucIpLDJtKf8417HgBppMhpt+0xJFDrOC5XMgz+H2Y+3TVOQns/+6w316j -lvm/IM4W37gRlyfb3Eo3VIPwf8TUh5OSaMy/jqPKrAqkE8qttbSksfl6nVlO -UAVkU3QFN3hvwsGJs76dhDJ4LWmwbTZ9M353pErNlhWDnnRjmtoHGbwn03l1 -w6lCEGDPDzx0XhZ5O57pts/mweZoGX1HohzenTSKU7O6BTxKzk9sGXKYvpRI -bGrOAtUdG8tDXOTx8UOLmG1ul+GRwrG/bO7yyPf41tvSvZdBh1CzO9VDHhnc -A+/V9S+D4ccDAwXe8lj+K+inx8bL4BCQLfQuQB7tZ0xuOXVnwLlC8UBqnDwa -l+tp3bHIgE5+Md3BMnnMNev+5m+SDqf6hZvMWBQwcn31UkBdKrTSnZ/dZ1PA -2etFT6xzU2FzeVE1YZ0CJoC/iNGFVHh9Tu/Bax4F3HvR9qKHVSrIy3lcNdug -gP9NJlskjaTA28MV3mZEBUx3N/gUIZwCW35a8ZlZKGBrip5M5pkkmJxNtjfN -VkAH+6Wq7PgE6OvJc7h1XQFnqgtTLwQkwOtnT/ZP31RAiyBcPn8wAQriBxyv -5Sng1f6Sw+VqCeAkpen6874Cdo1lxf3XEw8thp+9Lj5TwP293mbiqvFwI10l -9NWQAua9LlvMH7kAu9Xo101pimiy+QNrxbkYOMC5Z1+nmiIadzvoT/vEwPEv -r/j3qyti2GMDb8MDMZCa9F/UEW1F3CDR7yG+NQY+fO/2OmegiPkaF14mDp+H -I7nD6o/tFTHqm9+9FPPzcF6I9Y3sWUX8TSkQrSFFw/PZ7X8X2xUx8e/yxEPp -s5DXVu1h91YRF3oGb8quRUJsocbrsi5F7Eue1ikejATT/ZRrnj2K6Bqovsxx -NxK6ayW1uwYVMXmGvXdEPRLGov+cKptTRPWghz3aVmdATLB67IikElYbbr5c -ey0cfKnqn956KuENbqWBplMhELQouex2VAnf3ZwKnTkQAmca2SUnjishMfxc -iy6EQNKB944EfyU898JcVZgvBO7FhvYahiuh5y5TtR9FwTDU97znUaoSti2z -pUsMBoFDivnHq9VKmDca95jHOxBcDmguKtQqoe1n6XaydSAcUdgkXlmvhEoz -oZYeuoFwumbCof2lEuocPggifIGQ9i39A2ebEt4cuz8dXXkaXu/oeR8yoIQv -HuK2IPbTsGPiSLcjDxELzXxXDB4HgFjd7vx6XiJWrIzIH8kPgIl4sr+MABFd -Ui1msi4FQI7cFO83YSLWK1Taax4PgH/7Ioz8pYmYN/i0aqdsADTUpVfGqRHR -/Gf5xtRL/mBw8XnaI3siGl09ph887wuSDnmuYgeISCbZGE13+cKMfCw1zImI -LCf+2SZX+kJ+vWnrTjciCharkeT9fYFtqnvt1VEibn2X//XV75PQ5PDLdyCC -eb7FqmD21wnYpSixlz+fiJ4bJefZWX2garxF7kgBERdoq/Ujw8dBsfr0Qm0R -EX3eLDkP0o8Dh1nH7aMlRHyUQmyjpRyHRr+4maYqIpZq5y8LSh2HnXVzWeEM -IppWEp3Htx8DLdu3Q99/E/Eo0WLcK90biqTOVe+cZL6vbUZMdog3iH6jJl+d -JuLcuqsGwy7eMBeSsM1ogYgcn4WHmsjeUHkLEnLWiCj3ODqwvMUL1H6WMtsp -CdNePuXYzOIFylGJoY3aJIw4/TCpLe4I1G8vXGehR8IwmwQzAd8jYL3YkPFe -n4SWrYcqjtsfgVDf+Qc/DEjYKOMvelrxCLQ6uw8KWJDw6X3uSw1Nh+GorpbZ -QXcStls8AXWuw1A8Myg1l0BCM6ue5725h2Bn2cq9yCQSSt744WOYdAjeHRPX -4kolofPfsK7GoEOwPGBhLXmZhAZ9z0MJ5ofArKM6Fm+R8F5bVWnlgjuMlaSM -J1eQkCHudsHO1h3InroNSp9I6Hcp4G6Upitckrdcjukjod2Ee9UJIVeY++qx -baifhGeKSgIiJ1zguVNySc4wCdeTP4XyFbuArfXXLPFxEsp7+cp8kXGBsO0X -/HlYlPHM28I9VBFnaBV6KzeupIwXhsfz88WcgNbxzdlcWRlnImN3jy46Qkby -clYxWRnVZ+gFZr2O4MylKOClpoys1nsFg246wuRK8HK/jjK6Fmw9tFfREcR+ -SHd1miujRvndwWndA+D5/GhsVYAyPvrgmbXzjANMnBwL2RWojHdNU1Tl3Rwg -dNMJnw/Bylg3YzxFMnSAxDN+tksRyhg7aup9jdsBHuoFy+rHKeOJ/0zsBbPs -YeVJTH3TdWWsVEuT3lK7DzLKc+beNSnjQAwpyULCDqTdZH8cpivjPopHlcaa -LRQK5H+ea1VGzM/9ojNqC09PFjaKtTPv3yBXebPKFr5QHqQ59TDP/x1doNva -gvK9GurQb2U8HXT5W+IVG2jI7T4yLaqCPgOeYatUaxiwkHMLllDBJ76urO3i -1sDy56TjX0kV1Prr01vNZg2GNlyW62RVMJTWvqmswgrorHraG8kqKJ3cbB3N -ZwVtHrd5DHaq4MC7UDu7N3vhk+LxsjQvFew8Ox2AJ8zhb+eTe6LHVFA70dDz -7W5zkI5kv3PdRwXPBnPnpyqYg8v7m1kF/szrV+g6KZ/NYOBCR9TTcBVMV7W+ -f3WvGXwf1bQbSFVBwz67gvu6pjB3b21RrVoFHSvb3xZu2Q2jDia5F2tU0OBa -wKWzG3ZDD0fKnuE6FUyr8PkdumACde6S1zJfqGBDHN/y23oTOC+xTW/1lQom -XFHOFzI3AcGE42de96ngJxu+sOKTu4Dq/Z7Fk42M3lT1YbvXRrBZVLr4OQcZ -e7fZPpWpMALBJg8bCS4y8qeIC/NkG8Hs5qm8N7xkNA6u+ajhZQS1HwhG6qJk -XAqJtBxlN4I9JnhhjURG0npzlwJjQzisVMJzfS8Z911ZU3zyCSG8xfU40ZqM -TuVWVxSbENI8hd9U2pJx9yCfZ0UJQn1hWPKb/WS07V6+pRSJIELcs371EBkD -i+NvBMoh0InfRNyDyVjRumix6etOICvLyBJvk/Fr/xuODAN9wNZ3UZV5ZLy9 -LeJbzEZ9cDgaN7izgIyCS/077k9vh5h74/n7i8lodqfI5XL+duhTrle6+IiM -kYXWOZ2c2yFVxZHym0FGBantUo09ujBNvqxVOUXG1NmiQ99ytaGnDXdtmCVj -qOa/ferR2vDCd8IucJ6MwspCJUWHtCG10jRAa5mMEYvi7RwK2kDWY3lQy05B -uYhJmYy7WuBhelKuSYzpfg+2N9XboNt7N1+3PgVPdOaPpc5qQB3PvOQ2oODF -nQ9Dgno0IL8kXyXTgILDf1JpZ59pgP/kqskBEwq6EHRC5uM1gD+kKrrPioI2 -dzYahWzWAJM4ucURDwpmevwwKrJRh6cFfwfnEyj42L1/trRjC2gZBS6aJVHQ -kUvzAUfNFng8+JsvN4WCFkSetpD8LVC5uV/bLIOCo7tcX1QGbYEH2S9Scm5Q -8BOfyELIpi2Qm3xBd3cZBd1lRgp3j6jCxcD16dldFAzR1o20c6UC94aEovH3 -FFy5ntOUp02FuAqWesMeCpbEDmnKCVEhdmJ69HcfBXnmUh5VNlPg7NFufYNR -CgpNESY3qlLglPO1Hz+XKOjzziWxlYcMTsYKuH0zFSv91h2iDJNgtZtboEmW -io/3WT0+1kCCXM+Jz2YKVDwXZbzae4MEo3E1IU7KVHT3tjlqZU+CU6+sysPU -qVj69W1d3GsiJFqe2fzUhIpOp3+/mXqmBLUH3q9o+lFxdAMth4+hAC4/a1/X -B1DxnXtYjXCxArCE52YbB1LRfq3fyihJAUxu+GjuC6Pis9jrggrWCvDuC+uJ -0zFUrGDxG/rwWR7GPFQ/V2RRMVMl/dbAshxInYyvUX1BxbEvOcPrHWQhdc1r -W1IjFcO+sXbc3ykLbBkmFd+bqRjxrUfKkyQLY0/WFee+oqL0Qa9I3xkZqGWJ -zRbuoqJifNCP6/oy4HQlKmThGxXrZ2c5Dfo2QXZd2LbnvDQ8H7SB8dJECvgs -HSskBWj44WfkZ5CRgqgBHVqIIA0hsi5ndlESjq5bUtwiSkN3kFX8WywJ2lbB -IvmbaTi5x6HvvKAkfBg6NXthKw03CSsmbP8uAaKEExV799Pwxf5Jkas1YlBg -FBk+5UjDmsqAn35XxEA9MtXosjMN9+vmvY7xEwPLqYfvew7R0OfDRV97ohjE -fZj/c/gEDVfUfp3OyhSFpfxzhuHRNJxgmJ63iRaBT9svdxWV0PC/2AdFiZHC -cDSo4KZpGQ0lNtR4TLsKw0LZY8/fD2m4XvIjPR6FQVi+Z3HrExqqH284bcgh -DObcm6SfvaDhrvP2v76nCEF9d9GRrvc0XPdnpf1psSCYCTylBffQ0NQrMWI5 -RRB6dr9akPhMQ4tYx/vepwRhrvZXgusADf8Ok9KbtgsCLW9L6c8xGnZ2VO2d -z10P9Z8MgpPHabh9dYxP4cR6MBOxA7UpGvIOWv+6o70evOKD3gbO09BZabfM -rQ4BmHsRd118iYbTDdtjRG4KwPnlrMO1yzTM5CApfDkqAIKaxVSXVWb+d7TH -L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== +1:eJwV13k4VN8bAHBfWpAtZMsyM4YWspZ1xvtKCdnDZKeiTUjK0mIJKZIoSQtp +oqLMnUqWpJCoLBXZypakyPJLtpLf7a/7fJ7nPPe89z3nvO+51B1Bjn68PDw8 +ov/x8Px7TnXX19CT2Cab757ccLHJ1KTlukyEaXssvPC463nGhQK4ommHTHsa +mJfMDu5y0YIj9nfb+Npz4eEzz9KtLgjLR6XTZtu4sDSs1FXFxR56ntgGTbZV +wTnd5/wFzj5gTv/+aaLtHVAbDY+93RYMs236F8fb+kG5ZnT1YetoqDbLZ7/N +/Qlx+1cH/uhIBfme0sEd6vMwFjAtUleWCZIB3neXmvHhQ55K02iRHEjTNi+3 +debHsOF0sfzmm9CRqfVsQkwYB4Q8rXcuy4ckdlQTr+xyrK3Z7KuscxekL3w+ +nX5NAtXcHHuDBwtBRu1R3EyeBFqCO2/1WCHIVSVEeXIk0Ku9wUN0thAUx9cc +XlUtgVq8RsUZy+6BinWwT/mQBK7wud7prXUPdBfN633WlUR7b9/hzvB7YBcq +NaDzShIjaW+zAxbfh1NOlibvplYgO8zfqE6oCOQeNsrx/ieFei0xCZYriuC+ +hNO09jIpDNN7XVmtUAQf3nlxzitJ4adat6lcjSKgO4TSHCykkNlPdxeyL4Iq +m+wlzZel8Jp2u+WZ80Uwb/6rsYEhjZMVehUZSzmQmhdZMG8ujdSbMyF+yzhA +X8KTuM5BGv37c9O1RDlg/ULQ9KyfNDaIp0s+keJAlhnlgXWKNBo5egnfVuGA +AW699LpHGm0fN+W+38iBQ4Y3vOtjZdBUzO5zWCQHrHJEJrcmy2CXSFds1nEO +0JYeS2y8KIOVPknzpdEcaG5xId7flsHHG2ZOjiVwQCNYiK+7UQaHpC68W5/O +gaG8sLz/ycmieVaG/+oCDnhI2v5Y+UAWBQt5Vz5o54Du0fKY609kMdmqgPdg +FwcE+1dLUWtl0eqeTY1aNwdKi/hAtUMWNxhdab30mQNSW0tTtRZkMT3ITttq +lJw/hr5+81Y5fBYx2ibNR8CmsbnIwM9yaLQ9dB9rLQERFhfWPh+Rw9RBqwG2 +OgH3b6zrlJiSQ7Gu5W5jGgTIOPkYlvKvxJ78P4ZHdQkYKXkxzaexEkfub2kK +ZBCQHpsaejl8JV5WTw15YUNA/wrVwBpheSxt9ezRDiRAOqhSQVpaHuV9eNSU +ggmwrtvesJcij5mC58IFQggojkxSF9WVxwfee+RaDxNwpmf8u+t2efTP+xtl +cZwAnTvlu8dy5fHbWgHhnCQCYhgOvnIGCnjuXK+aZB4BFl7X/6e/UQFZL/+M +VecTIBI9fNLZWgGnwvUNg+8QcLU6Pi/VRwFbIus9nhYSUGJVNrzktAK2Jn6Z +1HpAwPh25SM/OxQwJbu8OaiSgMeRwUuXDyhgiQFbYegZASeuVmRqjCrgFmGN +aY8qAoR6WeV7eRXxS5WaI+MFAat2J/P0rlXEj776xW9fEeB1+NeZN0cVkWqx +5R6rlQCVSxvlv8croj9Fl+/yh3/5O3dvaaoiKos7jX5oIyDyz5rmjWxFfNRw +IsGik4CLJ71WlL5RxE6Dh428PQS8Of8y+5aCEhb79Jq1fCXz/UBSu3qVEupq +ftTtGSLArdW3qldbCbX+u1s1+I2AIZk/AyvNlXDS1bxyeJgAvhyttWmBSmgf +EGfeMEaA0f3LD09UKqGE9n7K2BS5H9oa50frlLCjp4tWPE2ALc+iLd7vlDBO +kMGMnCFgp2NgB3xRwkXaIk9mZwkwP0qNil5MwW9GcxOtfwh4LfrkpoEgBaNX +9lfHzxNgz3apGxehYIfKNq7OXwLcG5KW+8pQcMU2ta8nFwgIVpq6aapGwZKT +Ls/5eLnw60Fq3awmBenSKolXSUdaqP0g1lPw7J1NwTp8XIg/6KNHM6EgMoby +nBdxIav6VR2vAwX17/FWRizhgtJ2vx9lzhScfX/xxm/S7JGF5YfcKHibHnQ3 +cikXilZscP+8k4J5lGPawfxcqNmd/aP6CAVV7D6pGgpywfKPofixoxRU4kTa +sEk3prborY8mxw9GZQst40JHqUA0+zQFcwjvuhbSXrZstkcKBRu+nslZL8SF +gX6Tesl0CsrrVeadJz26LFQ8/ioF3zUNg5kwFw7liOgzb1CQRTdquUR6Zv0d +91+3KOiXy7z8jTSfVzfbr4iMN0m6JE6ECzIcC33zKgoe30v3uCzKhWubPrv/ +raVgShH9dBtpWsfx6OLXFBRExxFxMS6s431Qr9pKQc/WeVYMaW6GzWh3BwXT +avt8H5I2UBsSv9RNQeHOp+wB0hudFDyWDlFwi59+O2M5F14OPY6uHKGg5izz +1S7S1scdb4VNUPDZoMTMadLvlv+o15yiYAQreEchaVbeqdGvcxRMl1km+Ib0 +RyOaRM4CBXOzro4Nkd7R9ER/+yIqSk58kuAT58LXnSwPMQEqvnybGCZHOmBm +IrpOmIoXLrBWapI2OugvNShOxY+1t302kub/3lnAJ0PF6KOVAY6kP+ywM6Uq +UHHx6ST0Jn2rq/qDCY2Kc7nzH/eQDnUyCPBYRUVH16VmQaQ3NhT+F6lOxTLp +K4dCSIuZUy9d0qbiAL0w6J+7n15Uf6RHxb4bGgb/xhfqC1a9M6Zi0Gnpxn/v +i+ScYI0jFVlFHjr/5rNY83NE2JyKBZWTfv/ikcrdHau2lYpqJm17/8U7IPdR +2tKeimnxf0z+fQ833f6evzOV7FeegzKko4VebIxzo2Ih/y+fBTI/dvGG7Te8 +qZiiWlHUT1rx770DlbuoaNlMvK8iPXKExvdpLxV1Tjc1ZJMuG8vInAukYmK+ +RHYE6cQ9yzRkQqnI2XbMwp60S19U9YYIcv5T/K+VSdPdJrdvO0HFz8IlqybJ +9X629dPJlEQqXrGOO5REOqXGQbbwLBW33mbvciTtway9X59GxYwrY7pSpGc1 +ijoWXaOi7e4VBy+Q+60uXzmIlkvFLpu5XlvSGZTMRZhPxZ5BBd0lpHXEYzSP +ElSsXGwSu5/cvzxJv2oyi6noOmoVI0u6kW+fW3E5FY/aPPavIff7/l+O8RMv +qLizqW1IjDS7nd61u5OKO77GfY0jz1eIw+Xg+B4qxoq06smRxlfCS24OUHHV +8eHQQvJ8fiqf0uoepWKY0r3nLwXI9ciuS3Dio2HtqqPlHeR5H5Bmyofw0zBi +cOy6C2luKkGcE6bhny1VEc1kfbCLzfr4SpqGFeUdsuWLyXz6BeiYqtNw9nUw +LYCsN7NqYt3rnGkYLXXa2oSsX1PX5GJ03WjIUIWwFLK+TYqq0A29aZielVjb +Rda/0Z+G+zbtpaFzrGLbgd9k/yvfOeV2nIauxWHdQWT9fLX1sUjiLRp+cvod +PjJBwMuK58TZuzQMyHkaKEq6RvONU3oRDV95xGRpjhPwVKIv63opDYfYhzN3 +jxLA7RJc9aiBhg4MW5vi7wRk7feC/l80FN63LaOpn4BLn/b0f52joUR/aEht +HwEX7A7F/1igoePjKxllvQSk6Ca+nhFQxoXZlPKsbgJifxMsUUVl/BhgmmlE +9pv9SYuDGebKyB62zpltJoBRUJiTkaGMsTmxtONPCOiiFGRvvqKMZSll3/XK +yX6Vcef6ZLYy5mk4HBktJftlTN5VxzvKWF9+qsvlMdmvt+dkijxRRtO4u7NC +XALWLL6QmtCnjHtyg3eIkv1Zyvto9BF1Om7aJ/Hl0DkCHrVERKlo09E4IXHJ +0FkCnKzCT7RsoGP9if3L3JIJSNtw+JgO0JFlnVatf5oAYaGg8FEHOs72SQl2 +xhKwqHRHsH8YHZWtkz+UkfeHCXErH5cqOu6XdeBMuhLQHkBr3veSji0j+Yo8 +2wl4VjsHUW/o+Pm3vYGACwGpkQVKtz/Q0VX1b4ikIwFa/UI9s9/peCv8opqo +FQGBRJPnNQkVFLC16sgwJOC7nbP7wC4VpPPoP5iRImAg2cclZKkqeimH39r2 +mgOB39VpWkKqmBxV47xQx4HpLbM/foipYt+0xtY7teT9jS8tfq+cKva6/xSY +ec4BrYjqhz7rVDHYx2k6uoQDx/1UJey2qeJk/u0001vkfc5kpEktWxXXWezu +jCfvl5ZjYZZf9FbhjuYSP/c1HBjZyX/oYdRqVHx3oPtF5X3yf0Ka91TVGnRS +9BsrErwH4g2qKZyxtUi4sCGGVQDyiUX2enrqGHPhwMeq/XcgU81QTGL3Orxd +Yb8pISMfXsmZbvh5XgM1jrVUetTdAiP5qlTND5q4N6s2YqDtJojw5Yb6xmrh +xf+NRKhK5IJijBLDVVUbbz8sM882zAEBFY9ix5faODc9oREyfxU0mLJFYZ46 +WCbWpfp1/DKEdItXW/Ho4omlK3dYdGTA2M9kZ8tMXfxw8/HgB/ULsEWzNsty +3XoUnHutEll1Hp7+NP493bgedXf1SkZXpECguk7nW78NSKh2WtQ/OgPM0V0t +rgJ6OMnvX3rodQJspsvYCOfq4a3xlrCnSSdhdfSZ8Cp9fdxZw9OVXBINa/0M +K1U69fGkq+O1fLFj4Pd0T9zDgwYYf+VI8hVuGFTmtOyaWGGI4WcPsplXD8Hk +7YVpzceGGLJldFe8ZjDsVCkQyLIxwkxP1wzW8D6YWJuuxx03wmHpJbV+3/yg +hP2771eiMU6G+3FO/vYFPbPQaaskY7w8fzls7w9feNQ3IpRz1hgH96z4uL3H +F7iK3fpWacYonty/26naFwozn529fsUY6dyNMxVJvpCTHG+45b4xRr0zOuCi +6AunQ0XPZ743xt939c+GW/mA2yZlNFZk4FpBb5OGSE+Yb+EXqaYw8F3FcnlJ +X0/I8RvtslJmoJXdKDtwiycMJpSGua1m4NscyVNekp4QUm9XFKHDQBuDJ3qr +izzgjO0xxRJzBna9Ur2xfcgdyra3/lkfxEA6HzOzY48brDxwqlTjGQMzK6ds +3mSzIGXBf0NSFQNFJswOCiazgDfNnPhaw8Ab6wzUWeEs+F68+E5OPQPNjttv +lndgQRlPXKb4ewaeqyAEnfhY4HYhOmzqCwP7VG1pIftcILM8YsPTZUycKTe2 +VTNzhhWCAYQNi4l/1Tp8H8pvA7bZ8chxVya2uepzDghuA53jKWbpHkzUzPRL +1JtxBNtxTmu7LxOf+5ffmXrvCAkffs3uDGBi33WHSM1kR5jJjdoYGcPESUv3 +4ogFB+g0Tn+fV8BEFre+nz5hD3sOs69a3mfiTmLEtqzXHqbuP/Ib4TDRbKP6 +iGezPYjT2qe1i5koN7kvtanIHrbyK8hXPGOi8WcBL/cge3jSkrfrfSsZz6vF +yjL9dmAlUrLuSDsTvzStDVuosoP2LfVTMl1MfHZs7st/bDuYLBtO9Opl4jIZ +02qWvx2su6F179t3JqZlhlhvHrGFJ52mR5J/MPGs963NfI22YCW5DTTHmbj6 ++WRpV5Et+J86/Db0Fxnvw6markO2MPksIUt6holeb7eu53Oxhdi5SzvL5ph4 +Mou3eZOBLYitv6PuOU9+Pz0xLkfOFq4fKPu1sMDEyhwnE6l5G/g/i8uizw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "PlotRange" -> {{0, 30}, {0., 0.07059398004920939}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -11146,6 +12400,7 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -11173,7 +12428,8 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07059398004920939}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -11181,17 +12437,1169 @@ L2wTgJyTtfNrazQsycvUc2cXgP8BZB7toQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913306567510605`*^9}, + CellChangeTimes->{3.9913306567510605`*^9, 3.993828048909766*^9}, CellLabel-> - "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] + "Out[209]=",ExpressionUUID->"8ab2eb4d-fb5d-44eb-999e-9087f012c855"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ -6bd251746ea6"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[210]:=",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VN8bAHBfWpAtZMsyM4YWspZ1xvtKCdnDZKeiTUjK0mIJKZIoSQtp +oqLMnUqWpJCoLBXZypakyPJLtpLf7a/7fJ7nPPe89z3nvO+51B1Bjn68PDw8 +ov/x8Px7TnXX19CT2Cab757ccLHJ1KTlukyEaXssvPC463nGhQK4ommHTHsa +mJfMDu5y0YIj9nfb+Npz4eEzz9KtLgjLR6XTZtu4sDSs1FXFxR56ntgGTbZV +wTnd5/wFzj5gTv/+aaLtHVAbDY+93RYMs236F8fb+kG5ZnT1YetoqDbLZ7/N +/Qlx+1cH/uhIBfme0sEd6vMwFjAtUleWCZIB3neXmvHhQ55K02iRHEjTNi+3 +debHsOF0sfzmm9CRqfVsQkwYB4Q8rXcuy4ckdlQTr+xyrK3Z7KuscxekL3w+ +nX5NAtXcHHuDBwtBRu1R3EyeBFqCO2/1WCHIVSVEeXIk0Ku9wUN0thAUx9cc +XlUtgVq8RsUZy+6BinWwT/mQBK7wud7prXUPdBfN633WlUR7b9/hzvB7YBcq +NaDzShIjaW+zAxbfh1NOlibvplYgO8zfqE6oCOQeNsrx/ieFei0xCZYriuC+ +hNO09jIpDNN7XVmtUAQf3nlxzitJ4adat6lcjSKgO4TSHCykkNlPdxeyL4Iq +m+wlzZel8Jp2u+WZ80Uwb/6rsYEhjZMVehUZSzmQmhdZMG8ujdSbMyF+yzhA +X8KTuM5BGv37c9O1RDlg/ULQ9KyfNDaIp0s+keJAlhnlgXWKNBo5egnfVuGA +AW699LpHGm0fN+W+38iBQ4Y3vOtjZdBUzO5zWCQHrHJEJrcmy2CXSFds1nEO +0JYeS2y8KIOVPknzpdEcaG5xId7flsHHG2ZOjiVwQCNYiK+7UQaHpC68W5/O +gaG8sLz/ycmieVaG/+oCDnhI2v5Y+UAWBQt5Vz5o54Du0fKY609kMdmqgPdg +FwcE+1dLUWtl0eqeTY1aNwdKi/hAtUMWNxhdab30mQNSW0tTtRZkMT3ITttq +lJw/hr5+81Y5fBYx2ibNR8CmsbnIwM9yaLQ9dB9rLQERFhfWPh+Rw9RBqwG2 +OgH3b6zrlJiSQ7Gu5W5jGgTIOPkYlvKvxJ78P4ZHdQkYKXkxzaexEkfub2kK +ZBCQHpsaejl8JV5WTw15YUNA/wrVwBpheSxt9ezRDiRAOqhSQVpaHuV9eNSU +ggmwrtvesJcij5mC58IFQggojkxSF9WVxwfee+RaDxNwpmf8u+t2efTP+xtl +cZwAnTvlu8dy5fHbWgHhnCQCYhgOvnIGCnjuXK+aZB4BFl7X/6e/UQFZL/+M +VecTIBI9fNLZWgGnwvUNg+8QcLU6Pi/VRwFbIus9nhYSUGJVNrzktAK2Jn6Z +1HpAwPh25SM/OxQwJbu8OaiSgMeRwUuXDyhgiQFbYegZASeuVmRqjCrgFmGN +aY8qAoR6WeV7eRXxS5WaI+MFAat2J/P0rlXEj776xW9fEeB1+NeZN0cVkWqx +5R6rlQCVSxvlv8croj9Fl+/yh3/5O3dvaaoiKos7jX5oIyDyz5rmjWxFfNRw +IsGik4CLJ71WlL5RxE6Dh428PQS8Of8y+5aCEhb79Jq1fCXz/UBSu3qVEupq +ftTtGSLArdW3qldbCbX+u1s1+I2AIZk/AyvNlXDS1bxyeJgAvhyttWmBSmgf +EGfeMEaA0f3LD09UKqGE9n7K2BS5H9oa50frlLCjp4tWPE2ALc+iLd7vlDBO +kMGMnCFgp2NgB3xRwkXaIk9mZwkwP0qNil5MwW9GcxOtfwh4LfrkpoEgBaNX +9lfHzxNgz3apGxehYIfKNq7OXwLcG5KW+8pQcMU2ta8nFwgIVpq6aapGwZKT +Ls/5eLnw60Fq3awmBenSKolXSUdaqP0g1lPw7J1NwTp8XIg/6KNHM6EgMoby +nBdxIav6VR2vAwX17/FWRizhgtJ2vx9lzhScfX/xxm/S7JGF5YfcKHibHnQ3 +cikXilZscP+8k4J5lGPawfxcqNmd/aP6CAVV7D6pGgpywfKPofixoxRU4kTa +sEk3prborY8mxw9GZQst40JHqUA0+zQFcwjvuhbSXrZstkcKBRu+nslZL8SF +gX6Tesl0CsrrVeadJz26LFQ8/ioF3zUNg5kwFw7liOgzb1CQRTdquUR6Zv0d +91+3KOiXy7z8jTSfVzfbr4iMN0m6JE6ECzIcC33zKgoe30v3uCzKhWubPrv/ +raVgShH9dBtpWsfx6OLXFBRExxFxMS6s431Qr9pKQc/WeVYMaW6GzWh3BwXT +avt8H5I2UBsSv9RNQeHOp+wB0hudFDyWDlFwi59+O2M5F14OPY6uHKGg5izz +1S7S1scdb4VNUPDZoMTMadLvlv+o15yiYAQreEchaVbeqdGvcxRMl1km+Ib0 +RyOaRM4CBXOzro4Nkd7R9ER/+yIqSk58kuAT58LXnSwPMQEqvnybGCZHOmBm +IrpOmIoXLrBWapI2OugvNShOxY+1t302kub/3lnAJ0PF6KOVAY6kP+ywM6Uq +UHHx6ST0Jn2rq/qDCY2Kc7nzH/eQDnUyCPBYRUVH16VmQaQ3NhT+F6lOxTLp +K4dCSIuZUy9d0qbiAL0w6J+7n15Uf6RHxb4bGgb/xhfqC1a9M6Zi0Gnpxn/v +i+ScYI0jFVlFHjr/5rNY83NE2JyKBZWTfv/ikcrdHau2lYpqJm17/8U7IPdR +2tKeimnxf0z+fQ833f6evzOV7FeegzKko4VebIxzo2Ih/y+fBTI/dvGG7Te8 +qZiiWlHUT1rx770DlbuoaNlMvK8iPXKExvdpLxV1Tjc1ZJMuG8vInAukYmK+ +RHYE6cQ9yzRkQqnI2XbMwp60S19U9YYIcv5T/K+VSdPdJrdvO0HFz8IlqybJ +9X629dPJlEQqXrGOO5REOqXGQbbwLBW33mbvciTtway9X59GxYwrY7pSpGc1 +ijoWXaOi7e4VBy+Q+60uXzmIlkvFLpu5XlvSGZTMRZhPxZ5BBd0lpHXEYzSP +ElSsXGwSu5/cvzxJv2oyi6noOmoVI0u6kW+fW3E5FY/aPPavIff7/l+O8RMv +qLizqW1IjDS7nd61u5OKO77GfY0jz1eIw+Xg+B4qxoq06smRxlfCS24OUHHV +8eHQQvJ8fiqf0uoepWKY0r3nLwXI9ciuS3Dio2HtqqPlHeR5H5Bmyofw0zBi +cOy6C2luKkGcE6bhny1VEc1kfbCLzfr4SpqGFeUdsuWLyXz6BeiYqtNw9nUw +LYCsN7NqYt3rnGkYLXXa2oSsX1PX5GJ03WjIUIWwFLK+TYqq0A29aZielVjb +Rda/0Z+G+zbtpaFzrGLbgd9k/yvfOeV2nIauxWHdQWT9fLX1sUjiLRp+cvod +PjJBwMuK58TZuzQMyHkaKEq6RvONU3oRDV95xGRpjhPwVKIv63opDYfYhzN3 +jxLA7RJc9aiBhg4MW5vi7wRk7feC/l80FN63LaOpn4BLn/b0f52joUR/aEht +HwEX7A7F/1igoePjKxllvQSk6Ca+nhFQxoXZlPKsbgJifxMsUUVl/BhgmmlE +9pv9SYuDGebKyB62zpltJoBRUJiTkaGMsTmxtONPCOiiFGRvvqKMZSll3/XK +yX6Vcef6ZLYy5mk4HBktJftlTN5VxzvKWF9+qsvlMdmvt+dkijxRRtO4u7NC +XALWLL6QmtCnjHtyg3eIkv1Zyvto9BF1Om7aJ/Hl0DkCHrVERKlo09E4IXHJ +0FkCnKzCT7RsoGP9if3L3JIJSNtw+JgO0JFlnVatf5oAYaGg8FEHOs72SQl2 +xhKwqHRHsH8YHZWtkz+UkfeHCXErH5cqOu6XdeBMuhLQHkBr3veSji0j+Yo8 +2wl4VjsHUW/o+Pm3vYGACwGpkQVKtz/Q0VX1b4ikIwFa/UI9s9/peCv8opqo +FQGBRJPnNQkVFLC16sgwJOC7nbP7wC4VpPPoP5iRImAg2cclZKkqeimH39r2 +mgOB39VpWkKqmBxV47xQx4HpLbM/foipYt+0xtY7teT9jS8tfq+cKva6/xSY +ec4BrYjqhz7rVDHYx2k6uoQDx/1UJey2qeJk/u0001vkfc5kpEktWxXXWezu +jCfvl5ZjYZZf9FbhjuYSP/c1HBjZyX/oYdRqVHx3oPtF5X3yf0Ka91TVGnRS +9BsrErwH4g2qKZyxtUi4sCGGVQDyiUX2enrqGHPhwMeq/XcgU81QTGL3Orxd +Yb8pISMfXsmZbvh5XgM1jrVUetTdAiP5qlTND5q4N6s2YqDtJojw5Yb6xmrh +xf+NRKhK5IJijBLDVVUbbz8sM882zAEBFY9ix5faODc9oREyfxU0mLJFYZ46 +WCbWpfp1/DKEdItXW/Ho4omlK3dYdGTA2M9kZ8tMXfxw8/HgB/ULsEWzNsty +3XoUnHutEll1Hp7+NP493bgedXf1SkZXpECguk7nW78NSKh2WtQ/OgPM0V0t +rgJ6OMnvX3rodQJspsvYCOfq4a3xlrCnSSdhdfSZ8Cp9fdxZw9OVXBINa/0M +K1U69fGkq+O1fLFj4Pd0T9zDgwYYf+VI8hVuGFTmtOyaWGGI4WcPsplXD8Hk +7YVpzceGGLJldFe8ZjDsVCkQyLIxwkxP1wzW8D6YWJuuxx03wmHpJbV+3/yg +hP2771eiMU6G+3FO/vYFPbPQaaskY7w8fzls7w9feNQ3IpRz1hgH96z4uL3H +F7iK3fpWacYonty/26naFwozn529fsUY6dyNMxVJvpCTHG+45b4xRr0zOuCi +6AunQ0XPZ743xt939c+GW/mA2yZlNFZk4FpBb5OGSE+Yb+EXqaYw8F3FcnlJ +X0/I8RvtslJmoJXdKDtwiycMJpSGua1m4NscyVNekp4QUm9XFKHDQBuDJ3qr +izzgjO0xxRJzBna9Ur2xfcgdyra3/lkfxEA6HzOzY48brDxwqlTjGQMzK6ds +3mSzIGXBf0NSFQNFJswOCiazgDfNnPhaw8Ab6wzUWeEs+F68+E5OPQPNjttv +lndgQRlPXKb4ewaeqyAEnfhY4HYhOmzqCwP7VG1pIftcILM8YsPTZUycKTe2 +VTNzhhWCAYQNi4l/1Tp8H8pvA7bZ8chxVya2uepzDghuA53jKWbpHkzUzPRL +1JtxBNtxTmu7LxOf+5ffmXrvCAkffs3uDGBi33WHSM1kR5jJjdoYGcPESUv3 +4ogFB+g0Tn+fV8BEFre+nz5hD3sOs69a3mfiTmLEtqzXHqbuP/Ib4TDRbKP6 +iGezPYjT2qe1i5koN7kvtanIHrbyK8hXPGOi8WcBL/cge3jSkrfrfSsZz6vF +yjL9dmAlUrLuSDsTvzStDVuosoP2LfVTMl1MfHZs7st/bDuYLBtO9Opl4jIZ +02qWvx2su6F179t3JqZlhlhvHrGFJ52mR5J/MPGs963NfI22YCW5DTTHmbj6 ++WRpV5Et+J86/Db0Fxnvw6markO2MPksIUt6holeb7eu53Oxhdi5SzvL5ph4 +Mou3eZOBLYitv6PuOU9+Pz0xLkfOFq4fKPu1sMDEyhwnE6l5G/g/i8uizw== + + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VN8bAHBfWpAtZMsyM4YWspZ1xvtKCdnDZKeiTUjK0mIJKZIoSQtp +oqLMnUqWpJCoLBXZypakyPJLtpLf7a/7fJ7nPPe89z3nvO+51B1Bjn68PDw8 +ov/x8Px7TnXX19CT2Cab757ccLHJ1KTlukyEaXssvPC463nGhQK4ommHTHsa +mJfMDu5y0YIj9nfb+Npz4eEzz9KtLgjLR6XTZtu4sDSs1FXFxR56ntgGTbZV +wTnd5/wFzj5gTv/+aaLtHVAbDY+93RYMs236F8fb+kG5ZnT1YetoqDbLZ7/N +/Qlx+1cH/uhIBfme0sEd6vMwFjAtUleWCZIB3neXmvHhQ55K02iRHEjTNi+3 +debHsOF0sfzmm9CRqfVsQkwYB4Q8rXcuy4ckdlQTr+xyrK3Z7KuscxekL3w+ +nX5NAtXcHHuDBwtBRu1R3EyeBFqCO2/1WCHIVSVEeXIk0Ku9wUN0thAUx9cc +XlUtgVq8RsUZy+6BinWwT/mQBK7wud7prXUPdBfN633WlUR7b9/hzvB7YBcq +NaDzShIjaW+zAxbfh1NOlibvplYgO8zfqE6oCOQeNsrx/ieFei0xCZYriuC+ +hNO09jIpDNN7XVmtUAQf3nlxzitJ4adat6lcjSKgO4TSHCykkNlPdxeyL4Iq +m+wlzZel8Jp2u+WZ80Uwb/6rsYEhjZMVehUZSzmQmhdZMG8ujdSbMyF+yzhA +X8KTuM5BGv37c9O1RDlg/ULQ9KyfNDaIp0s+keJAlhnlgXWKNBo5egnfVuGA +AW699LpHGm0fN+W+38iBQ4Y3vOtjZdBUzO5zWCQHrHJEJrcmy2CXSFds1nEO +0JYeS2y8KIOVPknzpdEcaG5xId7flsHHG2ZOjiVwQCNYiK+7UQaHpC68W5/O +gaG8sLz/ycmieVaG/+oCDnhI2v5Y+UAWBQt5Vz5o54Du0fKY609kMdmqgPdg +FwcE+1dLUWtl0eqeTY1aNwdKi/hAtUMWNxhdab30mQNSW0tTtRZkMT3ITttq +lJw/hr5+81Y5fBYx2ibNR8CmsbnIwM9yaLQ9dB9rLQERFhfWPh+Rw9RBqwG2 +OgH3b6zrlJiSQ7Gu5W5jGgTIOPkYlvKvxJ78P4ZHdQkYKXkxzaexEkfub2kK +ZBCQHpsaejl8JV5WTw15YUNA/wrVwBpheSxt9ezRDiRAOqhSQVpaHuV9eNSU +ggmwrtvesJcij5mC58IFQggojkxSF9WVxwfee+RaDxNwpmf8u+t2efTP+xtl +cZwAnTvlu8dy5fHbWgHhnCQCYhgOvnIGCnjuXK+aZB4BFl7X/6e/UQFZL/+M +VecTIBI9fNLZWgGnwvUNg+8QcLU6Pi/VRwFbIus9nhYSUGJVNrzktAK2Jn6Z +1HpAwPh25SM/OxQwJbu8OaiSgMeRwUuXDyhgiQFbYegZASeuVmRqjCrgFmGN +aY8qAoR6WeV7eRXxS5WaI+MFAat2J/P0rlXEj776xW9fEeB1+NeZN0cVkWqx +5R6rlQCVSxvlv8croj9Fl+/yh3/5O3dvaaoiKos7jX5oIyDyz5rmjWxFfNRw +IsGik4CLJ71WlL5RxE6Dh428PQS8Of8y+5aCEhb79Jq1fCXz/UBSu3qVEupq +ftTtGSLArdW3qldbCbX+u1s1+I2AIZk/AyvNlXDS1bxyeJgAvhyttWmBSmgf +EGfeMEaA0f3LD09UKqGE9n7K2BS5H9oa50frlLCjp4tWPE2ALc+iLd7vlDBO +kMGMnCFgp2NgB3xRwkXaIk9mZwkwP0qNil5MwW9GcxOtfwh4LfrkpoEgBaNX +9lfHzxNgz3apGxehYIfKNq7OXwLcG5KW+8pQcMU2ta8nFwgIVpq6aapGwZKT +Ls/5eLnw60Fq3awmBenSKolXSUdaqP0g1lPw7J1NwTp8XIg/6KNHM6EgMoby +nBdxIav6VR2vAwX17/FWRizhgtJ2vx9lzhScfX/xxm/S7JGF5YfcKHibHnQ3 +cikXilZscP+8k4J5lGPawfxcqNmd/aP6CAVV7D6pGgpywfKPofixoxRU4kTa +sEk3prborY8mxw9GZQst40JHqUA0+zQFcwjvuhbSXrZstkcKBRu+nslZL8SF +gX6Tesl0CsrrVeadJz26LFQ8/ioF3zUNg5kwFw7liOgzb1CQRTdquUR6Zv0d +91+3KOiXy7z8jTSfVzfbr4iMN0m6JE6ECzIcC33zKgoe30v3uCzKhWubPrv/ +raVgShH9dBtpWsfx6OLXFBRExxFxMS6s431Qr9pKQc/WeVYMaW6GzWh3BwXT +avt8H5I2UBsSv9RNQeHOp+wB0hudFDyWDlFwi59+O2M5F14OPY6uHKGg5izz +1S7S1scdb4VNUPDZoMTMadLvlv+o15yiYAQreEchaVbeqdGvcxRMl1km+Ib0 +RyOaRM4CBXOzro4Nkd7R9ER/+yIqSk58kuAT58LXnSwPMQEqvnybGCZHOmBm +IrpOmIoXLrBWapI2OugvNShOxY+1t302kub/3lnAJ0PF6KOVAY6kP+ywM6Uq +UHHx6ST0Jn2rq/qDCY2Kc7nzH/eQDnUyCPBYRUVH16VmQaQ3NhT+F6lOxTLp +K4dCSIuZUy9d0qbiAL0w6J+7n15Uf6RHxb4bGgb/xhfqC1a9M6Zi0Gnpxn/v +i+ScYI0jFVlFHjr/5rNY83NE2JyKBZWTfv/ikcrdHau2lYpqJm17/8U7IPdR +2tKeimnxf0z+fQ833f6evzOV7FeegzKko4VebIxzo2Ih/y+fBTI/dvGG7Te8 +qZiiWlHUT1rx770DlbuoaNlMvK8iPXKExvdpLxV1Tjc1ZJMuG8vInAukYmK+ +RHYE6cQ9yzRkQqnI2XbMwp60S19U9YYIcv5T/K+VSdPdJrdvO0HFz8IlqybJ +9X629dPJlEQqXrGOO5REOqXGQbbwLBW33mbvciTtway9X59GxYwrY7pSpGc1 +ijoWXaOi7e4VBy+Q+60uXzmIlkvFLpu5XlvSGZTMRZhPxZ5BBd0lpHXEYzSP +ElSsXGwSu5/cvzxJv2oyi6noOmoVI0u6kW+fW3E5FY/aPPavIff7/l+O8RMv +qLizqW1IjDS7nd61u5OKO77GfY0jz1eIw+Xg+B4qxoq06smRxlfCS24OUHHV +8eHQQvJ8fiqf0uoepWKY0r3nLwXI9ciuS3Dio2HtqqPlHeR5H5Bmyofw0zBi +cOy6C2luKkGcE6bhny1VEc1kfbCLzfr4SpqGFeUdsuWLyXz6BeiYqtNw9nUw +LYCsN7NqYt3rnGkYLXXa2oSsX1PX5GJ03WjIUIWwFLK+TYqq0A29aZielVjb +Rda/0Z+G+zbtpaFzrGLbgd9k/yvfOeV2nIauxWHdQWT9fLX1sUjiLRp+cvod +PjJBwMuK58TZuzQMyHkaKEq6RvONU3oRDV95xGRpjhPwVKIv63opDYfYhzN3 +jxLA7RJc9aiBhg4MW5vi7wRk7feC/l80FN63LaOpn4BLn/b0f52joUR/aEht +HwEX7A7F/1igoePjKxllvQSk6Ca+nhFQxoXZlPKsbgJifxMsUUVl/BhgmmlE +9pv9SYuDGebKyB62zpltJoBRUJiTkaGMsTmxtONPCOiiFGRvvqKMZSll3/XK +yX6Vcef6ZLYy5mk4HBktJftlTN5VxzvKWF9+qsvlMdmvt+dkijxRRtO4u7NC +XALWLL6QmtCnjHtyg3eIkv1Zyvto9BF1Om7aJ/Hl0DkCHrVERKlo09E4IXHJ +0FkCnKzCT7RsoGP9if3L3JIJSNtw+JgO0JFlnVatf5oAYaGg8FEHOs72SQl2 +xhKwqHRHsH8YHZWtkz+UkfeHCXErH5cqOu6XdeBMuhLQHkBr3veSji0j+Yo8 +2wl4VjsHUW/o+Pm3vYGACwGpkQVKtz/Q0VX1b4ikIwFa/UI9s9/peCv8opqo +FQGBRJPnNQkVFLC16sgwJOC7nbP7wC4VpPPoP5iRImAg2cclZKkqeimH39r2 +mgOB39VpWkKqmBxV47xQx4HpLbM/foipYt+0xtY7teT9jS8tfq+cKva6/xSY +ec4BrYjqhz7rVDHYx2k6uoQDx/1UJey2qeJk/u0001vkfc5kpEktWxXXWezu +jCfvl5ZjYZZf9FbhjuYSP/c1HBjZyX/oYdRqVHx3oPtF5X3yf0Ka91TVGnRS +9BsrErwH4g2qKZyxtUi4sCGGVQDyiUX2enrqGHPhwMeq/XcgU81QTGL3Orxd +Yb8pISMfXsmZbvh5XgM1jrVUetTdAiP5qlTND5q4N6s2YqDtJojw5Yb6xmrh +xf+NRKhK5IJijBLDVVUbbz8sM882zAEBFY9ix5faODc9oREyfxU0mLJFYZ46 +WCbWpfp1/DKEdItXW/Ho4omlK3dYdGTA2M9kZ8tMXfxw8/HgB/ULsEWzNsty +3XoUnHutEll1Hp7+NP493bgedXf1SkZXpECguk7nW78NSKh2WtQ/OgPM0V0t +rgJ6OMnvX3rodQJspsvYCOfq4a3xlrCnSSdhdfSZ8Cp9fdxZw9OVXBINa/0M +K1U69fGkq+O1fLFj4Pd0T9zDgwYYf+VI8hVuGFTmtOyaWGGI4WcPsplXD8Hk +7YVpzceGGLJldFe8ZjDsVCkQyLIxwkxP1wzW8D6YWJuuxx03wmHpJbV+3/yg +hP2771eiMU6G+3FO/vYFPbPQaaskY7w8fzls7w9feNQ3IpRz1hgH96z4uL3H +F7iK3fpWacYonty/26naFwozn529fsUY6dyNMxVJvpCTHG+45b4xRr0zOuCi +6AunQ0XPZ743xt939c+GW/mA2yZlNFZk4FpBb5OGSE+Yb+EXqaYw8F3FcnlJ +X0/I8RvtslJmoJXdKDtwiycMJpSGua1m4NscyVNekp4QUm9XFKHDQBuDJ3qr +izzgjO0xxRJzBna9Ur2xfcgdyra3/lkfxEA6HzOzY48brDxwqlTjGQMzK6ds +3mSzIGXBf0NSFQNFJswOCiazgDfNnPhaw8Ab6wzUWeEs+F68+E5OPQPNjttv +lndgQRlPXKb4ewaeqyAEnfhY4HYhOmzqCwP7VG1pIftcILM8YsPTZUycKTe2 +VTNzhhWCAYQNi4l/1Tp8H8pvA7bZ8chxVya2uepzDghuA53jKWbpHkzUzPRL +1JtxBNtxTmu7LxOf+5ffmXrvCAkffs3uDGBi33WHSM1kR5jJjdoYGcPESUv3 +4ogFB+g0Tn+fV8BEFre+nz5hD3sOs69a3mfiTmLEtqzXHqbuP/Ib4TDRbKP6 +iGezPYjT2qe1i5koN7kvtanIHrbyK8hXPGOi8WcBL/cge3jSkrfrfSsZz6vF +yjL9dmAlUrLuSDsTvzStDVuosoP2LfVTMl1MfHZs7st/bDuYLBtO9Opl4jIZ +02qWvx2su6F179t3JqZlhlhvHrGFJ52mR5J/MPGs963NfI22YCW5DTTHmbj6 ++WRpV5Et+J86/Db0Fxnvw6markO2MPksIUt6holeb7eu53Oxhdi5SzvL5ph4 +Mou3eZOBLYitv6PuOU9+Pz0xLkfOFq4fKPu1sMDEyhwnE6l5G/g/i8uizw== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07059398004920939}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.07059398004920939}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VN8bAHBfWpAtZMsyM4YWspZ1xvtKCdnDZKeiTUjK0mIJKZIoSQtp +oqLMnUqWpJCoLBXZypakyPJLtpLf7a/7fJ7nPPe89z3nvO+51B1Bjn68PDw8 +ov/x8Px7TnXX19CT2Cab757ccLHJ1KTlukyEaXssvPC463nGhQK4ommHTHsa +mJfMDu5y0YIj9nfb+Npz4eEzz9KtLgjLR6XTZtu4sDSs1FXFxR56ntgGTbZV +wTnd5/wFzj5gTv/+aaLtHVAbDY+93RYMs236F8fb+kG5ZnT1YetoqDbLZ7/N +/Qlx+1cH/uhIBfme0sEd6vMwFjAtUleWCZIB3neXmvHhQ55K02iRHEjTNi+3 +debHsOF0sfzmm9CRqfVsQkwYB4Q8rXcuy4ckdlQTr+xyrK3Z7KuscxekL3w+ +nX5NAtXcHHuDBwtBRu1R3EyeBFqCO2/1WCHIVSVEeXIk0Ku9wUN0thAUx9cc +XlUtgVq8RsUZy+6BinWwT/mQBK7wud7prXUPdBfN633WlUR7b9/hzvB7YBcq +NaDzShIjaW+zAxbfh1NOlibvplYgO8zfqE6oCOQeNsrx/ieFei0xCZYriuC+ +hNO09jIpDNN7XVmtUAQf3nlxzitJ4adat6lcjSKgO4TSHCykkNlPdxeyL4Iq +m+wlzZel8Jp2u+WZ80Uwb/6rsYEhjZMVehUZSzmQmhdZMG8ujdSbMyF+yzhA +X8KTuM5BGv37c9O1RDlg/ULQ9KyfNDaIp0s+keJAlhnlgXWKNBo5egnfVuGA +AW699LpHGm0fN+W+38iBQ4Y3vOtjZdBUzO5zWCQHrHJEJrcmy2CXSFds1nEO +0JYeS2y8KIOVPknzpdEcaG5xId7flsHHG2ZOjiVwQCNYiK+7UQaHpC68W5/O +gaG8sLz/ycmieVaG/+oCDnhI2v5Y+UAWBQt5Vz5o54Du0fKY609kMdmqgPdg +FwcE+1dLUWtl0eqeTY1aNwdKi/hAtUMWNxhdab30mQNSW0tTtRZkMT3ITttq +lJw/hr5+81Y5fBYx2ibNR8CmsbnIwM9yaLQ9dB9rLQERFhfWPh+Rw9RBqwG2 +OgH3b6zrlJiSQ7Gu5W5jGgTIOPkYlvKvxJ78P4ZHdQkYKXkxzaexEkfub2kK +ZBCQHpsaejl8JV5WTw15YUNA/wrVwBpheSxt9ezRDiRAOqhSQVpaHuV9eNSU +ggmwrtvesJcij5mC58IFQggojkxSF9WVxwfee+RaDxNwpmf8u+t2efTP+xtl +cZwAnTvlu8dy5fHbWgHhnCQCYhgOvnIGCnjuXK+aZB4BFl7X/6e/UQFZL/+M +VecTIBI9fNLZWgGnwvUNg+8QcLU6Pi/VRwFbIus9nhYSUGJVNrzktAK2Jn6Z +1HpAwPh25SM/OxQwJbu8OaiSgMeRwUuXDyhgiQFbYegZASeuVmRqjCrgFmGN +aY8qAoR6WeV7eRXxS5WaI+MFAat2J/P0rlXEj776xW9fEeB1+NeZN0cVkWqx +5R6rlQCVSxvlv8croj9Fl+/yh3/5O3dvaaoiKos7jX5oIyDyz5rmjWxFfNRw +IsGik4CLJ71WlL5RxE6Dh428PQS8Of8y+5aCEhb79Jq1fCXz/UBSu3qVEupq +ftTtGSLArdW3qldbCbX+u1s1+I2AIZk/AyvNlXDS1bxyeJgAvhyttWmBSmgf +EGfeMEaA0f3LD09UKqGE9n7K2BS5H9oa50frlLCjp4tWPE2ALc+iLd7vlDBO +kMGMnCFgp2NgB3xRwkXaIk9mZwkwP0qNil5MwW9GcxOtfwh4LfrkpoEgBaNX +9lfHzxNgz3apGxehYIfKNq7OXwLcG5KW+8pQcMU2ta8nFwgIVpq6aapGwZKT +Ls/5eLnw60Fq3awmBenSKolXSUdaqP0g1lPw7J1NwTp8XIg/6KNHM6EgMoby +nBdxIav6VR2vAwX17/FWRizhgtJ2vx9lzhScfX/xxm/S7JGF5YfcKHibHnQ3 +cikXilZscP+8k4J5lGPawfxcqNmd/aP6CAVV7D6pGgpywfKPofixoxRU4kTa +sEk3prborY8mxw9GZQst40JHqUA0+zQFcwjvuhbSXrZstkcKBRu+nslZL8SF +gX6Tesl0CsrrVeadJz26LFQ8/ioF3zUNg5kwFw7liOgzb1CQRTdquUR6Zv0d +91+3KOiXy7z8jTSfVzfbr4iMN0m6JE6ECzIcC33zKgoe30v3uCzKhWubPrv/ +raVgShH9dBtpWsfx6OLXFBRExxFxMS6s431Qr9pKQc/WeVYMaW6GzWh3BwXT +avt8H5I2UBsSv9RNQeHOp+wB0hudFDyWDlFwi59+O2M5F14OPY6uHKGg5izz +1S7S1scdb4VNUPDZoMTMadLvlv+o15yiYAQreEchaVbeqdGvcxRMl1km+Ib0 +RyOaRM4CBXOzro4Nkd7R9ER/+yIqSk58kuAT58LXnSwPMQEqvnybGCZHOmBm +IrpOmIoXLrBWapI2OugvNShOxY+1t302kub/3lnAJ0PF6KOVAY6kP+ywM6Uq +UHHx6ST0Jn2rq/qDCY2Kc7nzH/eQDnUyCPBYRUVH16VmQaQ3NhT+F6lOxTLp +K4dCSIuZUy9d0qbiAL0w6J+7n15Uf6RHxb4bGgb/xhfqC1a9M6Zi0Gnpxn/v +i+ScYI0jFVlFHjr/5rNY83NE2JyKBZWTfv/ikcrdHau2lYpqJm17/8U7IPdR +2tKeimnxf0z+fQ833f6evzOV7FeegzKko4VebIxzo2Ih/y+fBTI/dvGG7Te8 +qZiiWlHUT1rx770DlbuoaNlMvK8iPXKExvdpLxV1Tjc1ZJMuG8vInAukYmK+ +RHYE6cQ9yzRkQqnI2XbMwp60S19U9YYIcv5T/K+VSdPdJrdvO0HFz8IlqybJ +9X629dPJlEQqXrGOO5REOqXGQbbwLBW33mbvciTtway9X59GxYwrY7pSpGc1 +ijoWXaOi7e4VBy+Q+60uXzmIlkvFLpu5XlvSGZTMRZhPxZ5BBd0lpHXEYzSP +ElSsXGwSu5/cvzxJv2oyi6noOmoVI0u6kW+fW3E5FY/aPPavIff7/l+O8RMv +qLizqW1IjDS7nd61u5OKO77GfY0jz1eIw+Xg+B4qxoq06smRxlfCS24OUHHV +8eHQQvJ8fiqf0uoepWKY0r3nLwXI9ciuS3Dio2HtqqPlHeR5H5Bmyofw0zBi +cOy6C2luKkGcE6bhny1VEc1kfbCLzfr4SpqGFeUdsuWLyXz6BeiYqtNw9nUw +LYCsN7NqYt3rnGkYLXXa2oSsX1PX5GJ03WjIUIWwFLK+TYqq0A29aZielVjb +Rda/0Z+G+zbtpaFzrGLbgd9k/yvfOeV2nIauxWHdQWT9fLX1sUjiLRp+cvod +PjJBwMuK58TZuzQMyHkaKEq6RvONU3oRDV95xGRpjhPwVKIv63opDYfYhzN3 +jxLA7RJc9aiBhg4MW5vi7wRk7feC/l80FN63LaOpn4BLn/b0f52joUR/aEht +HwEX7A7F/1igoePjKxllvQSk6Ca+nhFQxoXZlPKsbgJifxMsUUVl/BhgmmlE +9pv9SYuDGebKyB62zpltJoBRUJiTkaGMsTmxtONPCOiiFGRvvqKMZSll3/XK +yX6Vcef6ZLYy5mk4HBktJftlTN5VxzvKWF9+qsvlMdmvt+dkijxRRtO4u7NC +XALWLL6QmtCnjHtyg3eIkv1Zyvto9BF1Om7aJ/Hl0DkCHrVERKlo09E4IXHJ +0FkCnKzCT7RsoGP9if3L3JIJSNtw+JgO0JFlnVatf5oAYaGg8FEHOs72SQl2 +xhKwqHRHsH8YHZWtkz+UkfeHCXErH5cqOu6XdeBMuhLQHkBr3veSji0j+Yo8 +2wl4VjsHUW/o+Pm3vYGACwGpkQVKtz/Q0VX1b4ikIwFa/UI9s9/peCv8opqo +FQGBRJPnNQkVFLC16sgwJOC7nbP7wC4VpPPoP5iRImAg2cclZKkqeimH39r2 +mgOB39VpWkKqmBxV47xQx4HpLbM/foipYt+0xtY7teT9jS8tfq+cKva6/xSY +ec4BrYjqhz7rVDHYx2k6uoQDx/1UJey2qeJk/u0001vkfc5kpEktWxXXWezu +jCfvl5ZjYZZf9FbhjuYSP/c1HBjZyX/oYdRqVHx3oPtF5X3yf0Ka91TVGnRS +9BsrErwH4g2qKZyxtUi4sCGGVQDyiUX2enrqGHPhwMeq/XcgU81QTGL3Orxd +Yb8pISMfXsmZbvh5XgM1jrVUetTdAiP5qlTND5q4N6s2YqDtJojw5Yb6xmrh +xf+NRKhK5IJijBLDVVUbbz8sM882zAEBFY9ix5faODc9oREyfxU0mLJFYZ46 +WCbWpfp1/DKEdItXW/Ho4omlK3dYdGTA2M9kZ8tMXfxw8/HgB/ULsEWzNsty +3XoUnHutEll1Hp7+NP493bgedXf1SkZXpECguk7nW78NSKh2WtQ/OgPM0V0t +rgJ6OMnvX3rodQJspsvYCOfq4a3xlrCnSSdhdfSZ8Cp9fdxZw9OVXBINa/0M +K1U69fGkq+O1fLFj4Pd0T9zDgwYYf+VI8hVuGFTmtOyaWGGI4WcPsplXD8Hk +7YVpzceGGLJldFe8ZjDsVCkQyLIxwkxP1wzW8D6YWJuuxx03wmHpJbV+3/yg +hP2771eiMU6G+3FO/vYFPbPQaaskY7w8fzls7w9feNQ3IpRz1hgH96z4uL3H +F7iK3fpWacYonty/26naFwozn529fsUY6dyNMxVJvpCTHG+45b4xRr0zOuCi +6AunQ0XPZ743xt939c+GW/mA2yZlNFZk4FpBb5OGSE+Yb+EXqaYw8F3FcnlJ +X0/I8RvtslJmoJXdKDtwiycMJpSGua1m4NscyVNekp4QUm9XFKHDQBuDJ3qr +izzgjO0xxRJzBna9Ur2xfcgdyra3/lkfxEA6HzOzY48brDxwqlTjGQMzK6ds +3mSzIGXBf0NSFQNFJswOCiazgDfNnPhaw8Ab6wzUWeEs+F68+E5OPQPNjttv +lndgQRlPXKb4ewaeqyAEnfhY4HYhOmzqCwP7VG1pIftcILM8YsPTZUycKTe2 +VTNzhhWCAYQNi4l/1Tp8H8pvA7bZ8chxVya2uepzDghuA53jKWbpHkzUzPRL +1JtxBNtxTmu7LxOf+5ffmXrvCAkffs3uDGBi33WHSM1kR5jJjdoYGcPESUv3 +4ogFB+g0Tn+fV8BEFre+nz5hD3sOs69a3mfiTmLEtqzXHqbuP/Ib4TDRbKP6 +iGezPYjT2qe1i5koN7kvtanIHrbyK8hXPGOi8WcBL/cge3jSkrfrfSsZz6vF +yjL9dmAlUrLuSDsTvzStDVuosoP2LfVTMl1MfHZs7st/bDuYLBtO9Opl4jIZ +02qWvx2su6F179t3JqZlhlhvHrGFJ52mR5J/MPGs963NfI22YCW5DTTHmbj6 ++WRpV5Et+J86/Db0Fxnvw6markO2MPksIUt6holeb7eu53Oxhdi5SzvL5ph4 +Mou3eZOBLYitv6PuOU9+Pz0xLkfOFq4fKPu1sMDEyhwnE6l5G/g/i8uizw== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07059398004920939}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[{ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 0.}, {2., 0.}, {3., 4388.}}]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + TagBox[ + {RGBColor[0.95, 0.627, 0.1425], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 1.}, {2., 0.}, {3., 13039.}}]}, + Annotation[#, "Charting`Private`Tag#2"]& ], + TagBox[ + {RGBColor[0.455, 0.7, 0.21], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 2.}, {2., 0.}, {3., 21317.}}]}, + Annotation[#, "Charting`Private`Tag#3"]& ], + TagBox[ + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 3.}, {2., 0.}, {3., 28996.}}]}, + Annotation[#, "Charting`Private`Tag#4"]& ], + TagBox[ + {RGBColor[0.578, 0.51, 0.85], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 4.}, {2., 0.}, {3., 35881.}}]}, + Annotation[#, "Charting`Private`Tag#5"]& ], + TagBox[ + {RGBColor[0.772079, 0.431554, 0.102387], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 5.}, {2., 0.}, {3., 41813.}}]}, + Annotation[#, "Charting`Private`Tag#6"]& ], + TagBox[ + {RGBColor[0., 0.6, 0.6], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 6.}, {2., 0.}, {3., 46685.}}]}, + Annotation[#, "Charting`Private`Tag#7"]& ], + TagBox[ + {RGBColor[0.9, 0.36, 0.684], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 7.}, {2., 0.}, {3., 50429.}}]}, + Annotation[#, "Charting`Private`Tag#8"]& ], + TagBox[ + {RGBColor[0.56, 0.7, 0.], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 8.}, {2., 0.}, {3., 53035.}}]}, + Annotation[#, "Charting`Private`Tag#9"]& ], + TagBox[ + {RGBColor[0.9, 0.54, 0.], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 9.}, {2., 0.}, {3., 54525.}}]}, + Annotation[#, "Charting`Private`Tag#10"]& ], + TagBox[ + {RGBColor[0.585, 0.5976, 0.9], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 10.}, {2., 0.}, {3., 54971.}}]}, + Annotation[#, "Charting`Private`Tag#11"]& ], + TagBox[ + {RGBColor[0.9, 0.45, 0.45], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 11.}, {2., 0.}, {3., 54465.}}]}, + Annotation[#, "Charting`Private`Tag#12"]& ], + TagBox[ + {RGBColor[0.7632186717367253, 0.8174402144034898, 0.], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 12.}, {2., 0.}, {3., 53131.}}]}, + Annotation[#, "Charting`Private`Tag#13"]& ], + TagBox[ + {RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + PointSize[0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 13.}, {2., 0.}, {3., 51096.}}]}, + Annotation[#, "Charting`Private`Tag#14"]& ], + TagBox[ + {RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + PointSize[0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 14.}, {2., 0.}, {3., 48507.}}]}, + Annotation[#, "Charting`Private`Tag#15"]& ], + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 15.}, {2., 0.}, {3., 45494.}}]}, + Annotation[#, "Charting`Private`Tag#16"]& ], + TagBox[ + {RGBColor[0.95, 0.627, 0.1425], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 16.}, {2., 0.}, {3., 42194.}}]}, + Annotation[#, "Charting`Private`Tag#17"]& ], + TagBox[ + {RGBColor[0.455, 0.7, 0.21], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 17.}, {2., 0.}, {3., 38723.}}]}, + Annotation[#, "Charting`Private`Tag#18"]& ], + TagBox[ + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 18.}, {2., 0.}, {3., 3519.}}]}, + Annotation[#, "Charting`Private`Tag#19"]& ], + TagBox[ + {RGBColor[0.578, 0.51, 0.85], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 19.}, {2., 0.}, {3., 31681.}}]}, + Annotation[#, "Charting`Private`Tag#20"]& ], + TagBox[ + {RGBColor[0.772079, 0.431554, 0.102387], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 20.}, {2., 0.}, {3., 28272.}}]}, + Annotation[#, "Charting`Private`Tag#21"]& ]}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 0.}, {2., 0.}, {3., 4388.}}]}, + "Charting`Private`Tag#1"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 1.}, {2., 0.}, {3., 13039.}}]}, + "Charting`Private`Tag#2"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 2.}, {2., 0.}, {3., 21317.}}]}, + "Charting`Private`Tag#3"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 3.}, {2., 0.}, {3., 28996.}}]}, + "Charting`Private`Tag#4"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 4.}, {2., 0.}, {3., 35881.}}]}, + "Charting`Private`Tag#5"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 5.}, {2., 0.}, {3., 41813.}}]}, + "Charting`Private`Tag#6"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Point[{{1., 6.}, {2., 0.}, {3., 46685.}}]}, + "Charting`Private`Tag#7"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Point[{{1., 7.}, {2., 0.}, {3., 50429.}}]}, + "Charting`Private`Tag#8"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Point[{{1., 8.}, {2., 0.}, {3., 53035.}}]}, + "Charting`Private`Tag#9"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Point[{{1., 9.}, {2., 0.}, {3., 54525.}}]}, + "Charting`Private`Tag#10"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Point[{{1., 10.}, {2., 0.}, {3., 54971.}}]}, + "Charting`Private`Tag#11"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Point[{{1., 11.}, {2., 0.}, {3., 54465.}}]}, + "Charting`Private`Tag#12"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Point[{{1., 12.}, {2., 0.}, {3., 53131.}}]}, + "Charting`Private`Tag#13"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Point[{{1., 13.}, {2., 0.}, {3., 51096.}}]}, + "Charting`Private`Tag#14"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Point[{{1., 14.}, {2., 0.}, {3., 48507.}}]}, + "Charting`Private`Tag#15"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 15.}, {2., 0.}, {3., 45494.}}]}, + "Charting`Private`Tag#16"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 16.}, {2., 0.}, {3., 42194.}}]}, + "Charting`Private`Tag#17"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 17.}, {2., 0.}, {3., 38723.}}]}, + "Charting`Private`Tag#18"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 18.}, {2., 0.}, {3., 3519.}}]}, + "Charting`Private`Tag#19"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 19.}, {2., 0.}, {3., 31681.}}]}, + "Charting`Private`Tag#20"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 20.}, {2., 0.}, {3., 28272.}}]}, + "Charting`Private`Tag#21"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 3.}, {0, 54971.}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0., 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 3.}, {0, 54971.}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0., 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 0.}, {2., 0.}, {3., 4388.}}]}, + "Charting`Private`Tag#1"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 1.}, {2., 0.}, {3., 13039.}}]}, + "Charting`Private`Tag#2"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 2.}, {2., 0.}, {3., 21317.}}]}, + "Charting`Private`Tag#3"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 3.}, {2., 0.}, {3., 28996.}}]}, + "Charting`Private`Tag#4"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 4.}, {2., 0.}, {3., 35881.}}]}, + "Charting`Private`Tag#5"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 5.}, {2., 0.}, {3., 41813.}}]}, + "Charting`Private`Tag#6"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Point[{{1., 6.}, {2., 0.}, {3., 46685.}}]}, + "Charting`Private`Tag#7"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Point[{{1., 7.}, {2., 0.}, {3., 50429.}}]}, + "Charting`Private`Tag#8"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Point[{{1., 8.}, {2., 0.}, {3., 53035.}}]}, + "Charting`Private`Tag#9"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Point[{{1., 9.}, {2., 0.}, {3., 54525.}}]}, + "Charting`Private`Tag#10"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Point[{{1., 10.}, {2., 0.}, {3., 54971.}}]}, + "Charting`Private`Tag#11"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Point[{{1., 11.}, {2., 0.}, {3., 54465.}}]}, + "Charting`Private`Tag#12"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Point[{{1., 12.}, {2., 0.}, {3., 53131.}}]}, + "Charting`Private`Tag#13"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Point[{{1., 13.}, {2., 0.}, {3., 51096.}}]}, + "Charting`Private`Tag#14"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Point[{{1., 14.}, {2., 0.}, {3., 48507.}}]}, + "Charting`Private`Tag#15"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 15.}, {2., 0.}, {3., 45494.}}]}, + "Charting`Private`Tag#16"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 16.}, {2., 0.}, {3., 42194.}}]}, + "Charting`Private`Tag#17"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 17.}, {2., 0.}, {3., 38723.}}]}, + "Charting`Private`Tag#18"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 18.}, {2., 0.}, {3., 3519.}}]}, + "Charting`Private`Tag#19"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 19.}, {2., 0.}, {3., 31681.}}]}, + "Charting`Private`Tag#20"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 20.}, {2., 0.}, {3., 28272.}}]}, + "Charting`Private`Tag#21"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 3.}, {0, 54971.}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0., 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.07059398004920939}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993828048977372*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"c2b55e33-3f6a-44e2-a336-1d17738efb44"] +}, Open ]], Cell[CellGroupData[{ @@ -11243,66 +13651,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + "In[211]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752212366*^9}, - CellLabel-> - "During evaluation of \ -In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133175222237*^9}, - CellLabel-> - "During evaluation of \ -In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ + "\"\\!\\(\\*FractionBox[\\\"6.144217715289435`*^-159\\\", \ \\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ 2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ \"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317522303677`*^9}, +may be lost.\"", 2, 211, 53, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993828049026445*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +In[211]:=",ExpressionUUID->"81b84b81-5630-45fc-a4fe-5bf9cda41a01"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.188839006664221`*^-162\\\", \ +\\\"16424312045547973917068250855478962797836184904556443340043143969743430318\ +444318157938322185531163516963194464925547245426704384000000000000000000000000\ +00\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 211, 54, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993828049034802*^9}, + CellLabel-> + "During evaluation of \ +In[211]:=",ExpressionUUID->"27c7c386-179b-469d-ad79-2af1de1d67aa"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3742150132519594`*^-164\\\", \ +\\\"55251385721223384257017595877831230851920926018927875395905136314216899591\ +246686283304515832126834071064186180009540933615433547776000000000000000000000\ +00000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 211, 55, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993828049042185*^9}, + CellLabel-> + "During evaluation of \ +In[211]:=",ExpressionUUID->"c9bb5d68-114b-4be0-96dc-2484ea28c041"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 199, 168, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331752237467*^9}, +during this calculation.\"", 2, 211, 56, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331752212366*^9, 3.993828049049511*^9}, CellLabel-> "During evaluation of \ -In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +In[211]:=",ExpressionUUID->"b8e92820-a16a-45c3-abde-d142ce3e89f2"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.991331759108553*^9}, +Cell[BoxData["10.778462859057448`"], "Output", + CellChangeTimes->{3.991331759108553*^9, 3.993828095542678*^9}, CellLabel-> - "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] + "Out[211]=",ExpressionUUID->"6728ea41-b88a-4b61-90ff-55dbb8c6a8cb"] }, Open ]], Cell[CellGroupData[{ @@ -11369,68 +13781,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849016830597*^9, - 3.991849020984995*^9}},ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-\ -7a397847208f"], + CellChangeTimes->{{3.991849016830597*^9, 3.991849020984995*^9}}, + CellLabel-> + "In[212]:=",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 169, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591425533`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.623151114533721`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 212, 57, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.993828095587717*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +In[212]:=",ExpressionUUID->"381b2cc2-5589-46dd-a557-758a8a142d23"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 200, - 170, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591525517`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.4037900057451676`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 212, 58, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.9938280955946913`*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +In[212]:=",ExpressionUUID->"0c99b9cb-8903-4892-a21f-e8630da13a9b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 200, 171, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331759160553*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.352624221746502`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 212, 59, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.9938280956029043`*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +In[212]:=",ExpressionUUID->"4729217a-e47e-46a8-82b8-4f08525187ec"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 200, 172, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317591685543`*^9}, +during this calculation.\"", 2, 212, 60, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317591425533`*^9, 3.993828095610564*^9}, CellLabel-> "During evaluation of \ -In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +In[212]:=",ExpressionUUID->"c42f22fa-2302-4dbd-93c6-245c05f9a2dc"], -Cell[BoxData["1.044718879268698`"], "Output", - CellChangeTimes->{3.991331766558941*^9}, +Cell[BoxData["0.4856357574157728`"], "Output", + CellChangeTimes->{3.991331766558941*^9, 3.993828102785554*^9}, CellLabel-> - "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] + "Out[212]=",ExpressionUUID->"a30d3e61-0c0e-4020-b8d7-329df9300f33"] }, Open ]], Cell[CellGroupData[{ @@ -11451,8 +13867,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11497,68 +13912,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849024657757*^9, - 3.991849027138817*^9}},ExpressionUUID->"22b50200-0b82-dc47-9932-\ -f1f0210d6caf"], + CellChangeTimes->{{3.991849024657757*^9, 3.991849027138817*^9}}, + CellLabel-> + "In[213]:=",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 173, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317665951805`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.623151114533721`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 213, 61, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.9938281028235617`*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +In[213]:=",ExpressionUUID->"536dce05-65a7-4697-8d28-56f5a66bcf47"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 201, - 174, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666041794`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.4037900057451676`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 213, 62, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.993828102833034*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +In[213]:=",ExpressionUUID->"a8e6cbdd-cf31-4534-b546-28f37bf29172"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 201, 175, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666131783`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.352624221746502`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 213, 63, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.9938281028419847`*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +In[213]:=",ExpressionUUID->"bac5d99e-84de-4ae0-aa45-e632ef042a16"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 201, 176, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317666211815`*^9}, +during this calculation.\"", 2, 213, 64, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317665951805`*^9, 3.993828102850976*^9}, CellLabel-> "During evaluation of \ -In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +In[213]:=",ExpressionUUID->"505d8825-7644-420f-a27e-872ecfeb00fc"], -Cell[BoxData["4.7987767072565894`"], "Output", - CellChangeTimes->{3.991331773590704*^9}, +Cell[BoxData["31.683512648047436`"], "Output", + CellChangeTimes->{3.991331773590704*^9, 3.993828109476653*^9}, CellLabel-> - "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] + "Out[213]=",ExpressionUUID->"bf492fb0-3981-4613-a7aa-b827ea962b09"] }, Open ]], Cell[CellGroupData[{ @@ -11579,8 +13998,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -11625,68 +14043,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849031047804*^9, - 3.9918490341764317`*^9}},ExpressionUUID->"8a5105db-666c-444e-9451-\ -d3e8d1574bcd"], + CellChangeTimes->{{3.991849031047804*^9, 3.9918490341764317`*^9}}, + CellLabel-> + "In[214]:=",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.4739848254513645`*^-190\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 177, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736257057`*^9}, + "\"\\!\\(\\*FractionBox[\\\"3.623151114533721`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 214, 65, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.99382810951504*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +In[214]:=",ExpressionUUID->"d8d2baf5-b5d3-45dd-9874-c7f2bc6efe91"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.7749775224318996`*^-194\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 202, - 178, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317736361847`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.4037900057451676`*^-212\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 214, 66, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993828109524037*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +In[214]:=",ExpressionUUID->"ebb6e6ad-8e97-4686-a2b5-47a16f8150b4"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.1125899281121783`*^-198\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 202, 179, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773644182*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.352624221746502`*^-217\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 214, 67, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993828109532249*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +In[214]:=",ExpressionUUID->"3939b7d1-8296-4a95-bbc0-3c7d9387cc62"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 202, 180, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331773653183*^9}, +during this calculation.\"", 2, 214, 68, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317736257057`*^9, 3.993828109540702*^9}, CellLabel-> "During evaluation of \ -In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +In[214]:=",ExpressionUUID->"8008afe4-d244-4e1b-9811-0c960848d5d6"], -Cell[BoxData["15.12281532960454`"], "Output", - CellChangeTimes->{3.991331777337887*^9}, +Cell[BoxData["5.307045747372726`"], "Output", + CellChangeTimes->{3.991331777337887*^9, 3.9938281135382757`*^9}, CellLabel-> - "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] + "Out[214]=",ExpressionUUID->"be5b02fa-cd39-45a9-9a70-b0e44a50a666"] }, Open ]], Cell[CellGroupData[{ @@ -11695,22 +14117,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918490375675926`*^9, - 3.991849040901537*^9}},ExpressionUUID->"d0efa798-230b-fa46-b413-\ -76bfd8e40ccb"], - -Cell[BoxData["0.12263596348954131`"], "Output", - CellChangeTimes->{3.9913317773679104`*^9}, + CellChangeTimes->{{3.9918490375675926`*^9, 3.991849040901537*^9}}, CellLabel-> - "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] + "In[215]:=",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], + +Cell[BoxData["0.037451358736252306`"], "Output", + CellChangeTimes->{3.9913317773679104`*^9, 3.993828113576586*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"1631a213-3ca2-40e7-b4a2-8df58ad6a077"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918490438339844`*^9, 3.991849046673996*^9}, - 3.9919249287922287`*^9},ExpressionUUID->"f842f74e-f562-934a-9011-\ -6604b8708636"], + 3.9919249287922287`*^9}, + CellLabel-> + "In[216]:=",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ @@ -11733,12 +14156,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + "In[217]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.9913317774008274`*^9}, +Cell[BoxData["8.194031968077368`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9, 3.9938281135975*^9}, CellLabel-> - "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] + "Out[217]=",ExpressionUUID->"c24d8116-23ec-4012-91d4-1ebb3b5c4c10"] }, Open ]], Cell[CellGroupData[{ @@ -11748,12 +14171,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + "In[218]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.9913317774358253`*^9}, +Cell[BoxData["3.3828315754054703`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9, 3.993828113607657*^9}, CellLabel-> - "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] + "Out[218]=",ExpressionUUID->"3ce66e9f-dc7f-4aae-a9a0-15b4c1da33bb"] }, Open ]], Cell[CellGroupData[{ @@ -11763,12 +14186,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + "In[219]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.991331777510603*^9}, +Cell[BoxData["27.71903007149395`"], "Output", + CellChangeTimes->{3.991331777510603*^9, 3.993828113618361*^9}, CellLabel-> - "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] + "Out[219]=",ExpressionUUID->"c6321879-2ffc-49d2-bfb0-9525c009a5da"] }, Open ]], Cell[CellGroupData[{ @@ -11958,12 +14381,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + "In[220]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[BoxData["0.041096786108657246`"], "Output", - CellChangeTimes->{3.991331777537592*^9}, +Cell[BoxData["0.006592502471315972`"], "Output", + CellChangeTimes->{3.991331777537592*^9, 3.993828113632235*^9}, CellLabel-> - "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] + "Out[220]=",ExpressionUUID->"2d49b0c5-db55-4479-8710-30829b6f2b1b"] }, Open ]], Cell[CellGroupData[{ @@ -11977,12 +14400,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + "In[221]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[BoxData["4.371605972693579`"], "Output", - CellChangeTimes->{3.9913317776362495`*^9}, +Cell[BoxData["10.91490072631507`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9, 3.99382811374032*^9}, CellLabel-> - "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] + "Out[221]=",ExpressionUUID->"98ee78be-58e9-4cef-87e0-4c0cdba70698"] }, Open ]], Cell[CellGroupData[{ @@ -12174,12 +14597,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + "In[222]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[BoxData["0.013804398425195999`"], "Output", - CellChangeTimes->{3.9913317776511555`*^9}, +Cell[BoxData["0.03474803262164374`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9, 3.993828113753821*^9}, CellLabel-> - "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] + "Out[222]=",ExpressionUUID->"e83713cb-94aa-4a82-b029-1b06f60ef263"] }, Open ]], Cell[CellGroupData[{ @@ -12193,12 +14616,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + "In[223]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[BoxData["7.5428626210616345`"], "Output", - CellChangeTimes->{3.991331777742655*^9}, +Cell[BoxData["4.754226083348044`"], "Output", + CellChangeTimes->{3.991331777742655*^9, 3.993828113862822*^9}, CellLabel-> - "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] + "Out[223]=",ExpressionUUID->"19c9df2a-149d-4819-826a-1f86c3cb9031"] }, Open ]], Cell[CellGroupData[{ @@ -12291,12 +14714,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + "In[224]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913317777546787`*^9}, +Cell[BoxData["0.08462699738242267`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9, 3.99382811387342*^9}, CellLabel-> - "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] + "Out[224]=",ExpressionUUID->"2f752953-25eb-4683-8177-cc71907c3243"] }, Open ]], Cell[CellGroupData[{ @@ -12386,12 +14809,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + "In[225]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991331777779663*^9}, +Cell[BoxData["0.9153730026175773`"], "Output", + CellChangeTimes->{3.991331777779663*^9, 3.993828113884987*^9}, CellLabel-> - "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] + "Out[225]=",ExpressionUUID->"c1fdbdd5-1cc0-4daf-8897-047bc8c88c24"] }, Open ]], Cell[CellGroupData[{ @@ -12514,12 +14937,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + "In[226]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913317778036633`*^9}, +Cell[BoxData["0.0774652686964581`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9, 3.993828113902038*^9}, CellLabel-> - "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] + "Out[226]=",ExpressionUUID->"76c04170-514b-412c-8a15-a0954f2ceed7"] }, Open ]], Cell[CellGroupData[{ @@ -12581,68 +15004,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918490946810665`*^9},ExpressionUUID->"1dec41a6-6752-2041-9d38-\ -804123b5ccd0"], + CellChangeTimes->{3.9918490946810665`*^9}, + CellLabel-> + "In[227]:=",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 218, 181, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778296604`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7738362542778367`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 227, 69, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993828113917369*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +In[227]:=",ExpressionUUID->"93536f90-efc8-4292-aaf0-16a19ba36bf3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 182, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777838663*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.3594483529002043`*^-212\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 227, 70, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993828113925825*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +In[227]:=",ExpressionUUID->"8a811d3d-2341-43c8-b30c-aabca1c69189"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 218, - 183, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317778466587`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.8514462280514725`*^-217\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 227, 71, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993828113934513*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +In[227]:=",ExpressionUUID->"46c38c07-b039-4787-93a0-c3b4a5e06d0f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 218, 184, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331777854885*^9}, +during this calculation.\"", 2, 227, 72, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913317778296604`*^9, 3.993828113941675*^9}, CellLabel-> "During evaluation of \ -In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +In[227]:=",ExpressionUUID->"997dbadf-966d-482a-a8fa-3cf199ec0bbb"], -Cell[BoxData["4.37160597269358`"], "Output", - CellChangeTimes->{3.991331781456501*^9}, +Cell[BoxData["10.914900726315068`"], "Output", + CellChangeTimes->{3.991331781456501*^9, 3.993828117945323*^9}, CellLabel-> - "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] + "Out[227]=",ExpressionUUID->"7ea8f129-a43b-4b9f-8a60-dd502bf35dc0"] }, Open ]], Cell[CellGroupData[{ @@ -12704,67 +15131,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99184909912471*^9},ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], + CellChangeTimes->{3.99184909912471*^9}, + CellLabel-> + "In[228]:=",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 219, 185, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991331781491499*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7738362542778367`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 228, 73, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993828117993607*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +In[228]:=",ExpressionUUID->"6696f714-e7cd-48ef-92aa-0900c0c53186"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 186, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815004997`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.3594483529002043`*^-212\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 228, 74, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993828118001153*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +In[228]:=",ExpressionUUID->"e2b30a07-dc60-4012-a1a6-11651347cda7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 219, - 187, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815094967`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.8514462280514725`*^-217\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 228, 75, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.9938281180092573`*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +In[228]:=",ExpressionUUID->"bcd94259-ee88-4263-ac32-b4ed7d1939d4"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 219, 188, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913317815164986`*^9}, +during this calculation.\"", 2, 228, 76, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991331781491499*^9, 3.993828118017015*^9}, CellLabel-> "During evaluation of \ -In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +In[228]:=",ExpressionUUID->"67b10169-5845-4e1f-8cfb-7b6c544f94e0"], -Cell[BoxData["7.54286262106163`"], "Output", - CellChangeTimes->{3.9913317851500416`*^9}, +Cell[BoxData["4.754226083348045`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9, 3.993828121985235*^9}, CellLabel-> - "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] + "Out[228]=",ExpressionUUID->"a7e1917e-8374-4c3c-bdf6-e5950cb61d30"] }, Open ]], Cell[CellGroupData[{ @@ -12822,93 +15254,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918491043389053`*^9},ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-\ -b799ae260294"], + CellChangeTimes->{3.9918491043389053`*^9}, + CellLabel-> + "In[229]:=",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Xc8V98fB3AZJSsjK5FdlMbHiIrzzsxe2ZvPvdnKihQtDZUilYa0lJlQ +KbTx9cvni9ASZd0P2fNzq6/4HX/cx308H+fc132fc885Vykwyong5uLiGsTX +4n1f08a1lS1NRkv//pzUMaaQ0dg93UDTYmTmel5NF7s7Vy9L1bQGNX9Per1o +B+a/S4W069CB66Vv9bDLElLe8ZmyUFSW5gZ97NP1Mq9TCj+g5vaROQPs5y37 +bs4xPiL9MI7ODuyhjvcHE6u/IOsQi3Yj7FWUihfHpBOt7P/RsRPbevygQQzr +ByqafrXLDPvl3JBgQmEPOlQxIG+J/emIdNLTyD4kaezmaYs9ttR0aIZBoeg3 +IvOO2EvP7vXQptkozlVkuRu2glhOw77qQXRWwzXJG9tOjnN/zGQEjWx7dSkY +m7ylLKXFP4aGv3YbRmGnqNmnhrHGkVmCtW089hfp9i2xhZOIdWXudio20zM0 +5OLZKRR30WTgHPbEDa7b5ZHTyOJY+8XL2PzKWqKTjFkk7v5RuQA7i/nOQlSS +gww/mPFVYCs+8EjZRHPQL3KJ/Qts/Q0nxiKqf6EAHS+ZNuxgvR+sIZM5VCJ/ +9yiPCYVmEuJ4BdT/og8b4nNFsQ9XC+7Q4J9HtMkVFQXsbNAv2sNaQO6GdQHb +sJl5DabRhUugcKbzyX7swvqL3UfkuIG/foPwKeyJAd+DGWe5ocO9qTEb+6Dm +bMWjSB4o7eRPqcbOKlVSGWfwQVdd6As+Uwp1tIy8nL/LB4xZN3tZbMWpSk8R +yaWgF3F9lxZ2sY5dpha9FGYq1+5zxa59fmBJeDU/uE/uuVaCPfuu7cegiRAk +m6jYRZlRSNxGSDTppRD8rV9IO4O9ud0UhA2E4Vypz8587ND+J7e2bBQBrcHb +q/qw93KzNhsKiYJfUmiKrzmFKOWHk6kcMSBY8+LhFnh+yPfLm7XFYSAkcfA8 +NncRW0lmnzh8sT+19TG2ovYap8JhcUjdFWw8j+1pcqG8qVsCvmi5CWbvolBz +UHSMdKMk/DTZEtZrSaHvD9LP+PNLgZ3r1Q5hKwqNDBfeLTCTApmF4ncG2AKx +fW3bX0vBrSNd3BexTY/v1vF/Ig1ukKFrbU2hqnt6s/m5svDg1ZuIVhsK3aP+ +xG+LlYcJSl5vhwOFdrmc/B5TIg+ueafoaOyRWgnzErY8lGRuVynE1rm3QVLR +QwHyfh9+LuuI5zPQt4LPaA0ova3u+Ys9Nd69f/CYIqwj05Q7nCkkEWH6uMJW +GUJiuWN63SjEvicQ7BCqDE4HpI6ou1PoWWeL3OgJZVATLPsdiu1t43NM/bUy +xMYd1ZzFvrc+3ukqQwVcqtrSRDzx+4ceTCRLq8La9Wq7XLwptHuPoJZVjxoo +fvxcxwigEIp3Ybj9VYNXjnvPH8XWTM3dypRVh9yox69asbnuahsnO6pDuZHl +7thACpV893Irf6MO2jd+2tYE4f3pWnxk1Z21wL7PSPUjcX2mtp+GAjVAXGBE +cjqMQnedr3yjkzXAtajnuX04hdIDe7p5r2uAjcin2mJs5uG4YYU2DThuXL8i +OIJCYjU5XM4mmuCqIXGgLxKvH+0xzWqV9bCm6Pud0X0UklM+n3KmfwPID7d6 +2CdQqCZtRuM3txYsrRr9+gbbe9qjnVTSgmTNwjadRArdrFXVMPbVggIBGZ3V +ByikvKeq9ddnLVjlZ1AwkYTHW0ypkY0bQVRoQ/CjFArJyymQih6boS41wvXM +SQptyIsV+g8xYEsW31hpNoUCmcdmtewYYHpt2nzrVbxfVTK/+3szQPwmS+AV +Ns+d0kf1CQwQ/Wzf1nwN77ebQ7szyxjQrycczLmBz9Ns/xwNFW04rTd/1+02 +/r5nbDa6L9WB3grFY6GFFLodrerwhKUL+S6Vra0vKNQSj7YezzMA6enOtLJR +Cin5frTzCTeEjBi5LYdV2YhYePpQPhFgb2MZu8yXjaSHny2TDjSGKKItNzeP +jWK1d3RmapqCY/76EJtxNgocnWuQGDKDpkbNF7lGA6jEOGZZbrMFFOxX8629 +MYDuzYS+Kc6yBOGd3n9t5wbQr50y/9amWEPvsgGOf/gg6uLimewJsIWTjXOG +Kn2DKHJ11IUjKvbgbHq6pcHjJ3oY0vD6UqoD8Pm90dTo+4kOTMvS60McoXvE +4nN22BCatTJ3/cfPCaZUPzuE8A8jA6+MnZSjMxTyOStFFQ2jVtmc0Frt3aA0 +YWF/znoErbp/rCZ/nQuErSssb1gyip51a9rYCbuCy825b18qRpFC+8Se+FFX ++HMmdvZKyBjSvpRRfLfbDcTshH9G6Y2jHN7pjZnv3EHEt6DDZ24cPd25qSP1 +uQeQ/LJi7eETKHtrmthcoSfkpDVMHu6cQM3f8k5on/WCtDrNg3/NJ9ET2xuq +ew97w0OrLTnJNZNoMsKZK5LpA6i1riBt/RSaNdcIHjPxBc+gJj/Zq1Mof/Tr +rxg9Pwjfb2ooIDqN3G/nBfkI+YO0saiRc/I0qii39uM56Q/vN05GbZ2ZRgZy +rb9P//YH57LerR/9ZpBK956ODyEBILmHt0ipfgb1C4bZ3+gLAAOpUq/4zbOo +Jd0uyMIlEFRJqtwzfRZlJeQKxrUEgqB6BJ/a6CyqebnwO8gyCFTSj80IGnPQ +Cm84qV0VBEcjX9ovnOIgxZX/NK+uCYK39uZbFNM4aDPLVmbpyyC4fvVjOJzh +IKcdXgVf3gSBpanAZPI5DspaHd946H9BMPhfi/pMBget6ipa0fAlCLrF3ERf +XeMgVV/pbG8a9zfQUftYxEEG/mP5qTpMOGbzv2WzjRx0/+pEjJ0eE3h+ZRp2 +sDhoZduUkbQ+E7a3nv348l8OGjOj2/O3M2FZvcf6E80cfH5xLWEZM+GVq1eI +cBsHidBiHuKO2F0hy+a/clD/Od3luRFMmJEqzCIHOCi9+mDIs/tMcOhIuGLN +RaMIxhWDhHwmfPGRsuddQiObgrLl+oVMqDzyhVmDLXCFXVBZwoSjSwwKNXlo +lBrtMPT0MROeno3LXuCj0UEN1bAnb3H7xoy+NEEahV5pDC//zoTO87+RuhSN +LEXYO6K7mVA+827/e+x1qVzCjF6cn+WzPFKaRuxo3ZIyigldj5IMKmRoFGCX +O/pohAleBp/+pytHI3e+mMjSP0w4Xcd1Xk6RRhYxq/YWSxGwPT3mQ7AGjd7m +nrDKlCHAgY5cx6tJox2sKdWEVQSYpRtW3sTerNb41USBgPHAN0kf1tNI9nOS +yTc1Aq6bhdzQ2kij4W1dUgK6BJAr/lv9mkGj89y3XuxxJmD1vjRN2+14/JuE +sm1dCDDXWKPfjH3cKyFa240A3W7zRIcdNEp47LB2wZMAZbLtkoMhrp9cknE5 +kIAp9kkdC0Qj7feBzLp9BFzrYYwJm9Doc4aaoMoFAjZpz6dxWdHoIRIOHswg +4OaRFz8CsI+PztSWXCQgoTEy5S02w7I2Wf8KARUKrrlHrGmUzhU0ZXuTAOax +ZX60DY3Mo259TSgmQKV6lPXankby8qf0jB4SkMh9+R8pBxrNvI+6yPOIgH5i +TjAc+446sk2vIKCjsHrfSkca/e3qen23igDhS5Kl3k40emwjl9/UQEB4pFHv ++900OvOHmy/rPQHez4v2SrrQKDB/KMCDRcCW6QYLP2xR3iq5/mYCYjvbmyew +w6vdz//+RIDA0RNmgm40UtG8HK9KEbCiM7JK3oNGfz4favvJJiBuRyfLG7sl +ldhcOkjAoUyxtdexk3t0hgxGCHAmcsslPWnUkd3mYz9NAM/SH6rcXjTKXCZm +dmAJCQqh68KeedOoZqrLK5aHhObLF9iT2ANdhdGRfCTIj8Ynafrg9fDY9Fbg +chK6wo9OZmOz/RP+sxIjQdOTSzjMF9dvYyZuJkHCBOudUw729q3iGkiSBF7I +KmvCviBc7KotS4Kh5LqqjX64vepHmZwSCe8ca2b7sMm84gZJFRL/b05wr/DH +/S8k/lihRsLx23NrDbDZpIQwrwYJuytqatIW2yUsgkc2k+A7RAipBNCoal4i +hc0gIeaUT5c5NvWz+1K3Dgl6qSX1IdjbXh94165PwnDTlt5i7P7whwovgASJ +xM/b1wXSSMQ9SbfSmIRVejeaTLENTHbZlJmS0DATl+iPnS7bm5i3i4SVbtbS +l7Cf8ZZeyLUiwYbXQOAhdt940oOrNiRE1q+RrMfWr5f8eM6BhNU7X0VPYweW +9Q6fdMLjHw+r4w+i0bkbpdxHd5NwMuf3Jnns3mjLzfHuJHxNu2Njgi3sK2Wx +15OEgaKK+d3Y+pZ9PqHeJOzKyGggFp9fc+iMrz8JF8Tv3D2O/UzA6o57IAne +h1iPMxfzZqWeOzFJQFYVXbmLeT19zTYkCS//OCkUL+axHrHNg0kQtMuPr8QO +rDz0F0JJoOER+81i/h2rldvDSeAXCY5sXMw/J71eN5KECK1/hdsX8xP6d27a +SwK3S1ftN2whZpm7RjQJjgmXL/Zib7VPjlKJJSGrgZM4uJi/zfqEfDwJ1Y/n +9o9in1WTyZFOIMHv5/1zk9hPRakKsQMkdDrMVM1g9/xX9l7wIAnaEv0LnMX8 +geQevmQ8n5fjvH9h67Va/1pIIUH0UH7Lov8PoC7YoA== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -12922,105 +15355,106 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV1Xc8V98fB3AZJSsjK5FdlMbHiIrzzsxe2ZvPvdnKihQtDZUilYa0lJlQ +KbTx9cvni9ASZd0P2fNzq6/4HX/cx308H+fc132fc885Vykwyong5uLiGsTX +4n1f08a1lS1NRkv//pzUMaaQ0dg93UDTYmTmel5NF7s7Vy9L1bQGNX9Per1o +B+a/S4W069CB66Vv9bDLElLe8ZmyUFSW5gZ97NP1Mq9TCj+g5vaROQPs5y37 +bs4xPiL9MI7ODuyhjvcHE6u/IOsQi3Yj7FWUihfHpBOt7P/RsRPbevygQQzr +ByqafrXLDPvl3JBgQmEPOlQxIG+J/emIdNLTyD4kaezmaYs9ttR0aIZBoeg3 +IvOO2EvP7vXQptkozlVkuRu2glhOw77qQXRWwzXJG9tOjnN/zGQEjWx7dSkY +m7ylLKXFP4aGv3YbRmGnqNmnhrHGkVmCtW089hfp9i2xhZOIdWXudio20zM0 +5OLZKRR30WTgHPbEDa7b5ZHTyOJY+8XL2PzKWqKTjFkk7v5RuQA7i/nOQlSS +gww/mPFVYCs+8EjZRHPQL3KJ/Qts/Q0nxiKqf6EAHS+ZNuxgvR+sIZM5VCJ/ +9yiPCYVmEuJ4BdT/og8b4nNFsQ9XC+7Q4J9HtMkVFQXsbNAv2sNaQO6GdQHb +sJl5DabRhUugcKbzyX7swvqL3UfkuIG/foPwKeyJAd+DGWe5ocO9qTEb+6Dm +bMWjSB4o7eRPqcbOKlVSGWfwQVdd6As+Uwp1tIy8nL/LB4xZN3tZbMWpSk8R +yaWgF3F9lxZ2sY5dpha9FGYq1+5zxa59fmBJeDU/uE/uuVaCPfuu7cegiRAk +m6jYRZlRSNxGSDTppRD8rV9IO4O9ud0UhA2E4Vypz8587ND+J7e2bBQBrcHb +q/qw93KzNhsKiYJfUmiKrzmFKOWHk6kcMSBY8+LhFnh+yPfLm7XFYSAkcfA8 +NncRW0lmnzh8sT+19TG2ovYap8JhcUjdFWw8j+1pcqG8qVsCvmi5CWbvolBz +UHSMdKMk/DTZEtZrSaHvD9LP+PNLgZ3r1Q5hKwqNDBfeLTCTApmF4ncG2AKx +fW3bX0vBrSNd3BexTY/v1vF/Ig1ukKFrbU2hqnt6s/m5svDg1ZuIVhsK3aP+ +xG+LlYcJSl5vhwOFdrmc/B5TIg+ueafoaOyRWgnzErY8lGRuVynE1rm3QVLR +QwHyfh9+LuuI5zPQt4LPaA0ova3u+Ys9Nd69f/CYIqwj05Q7nCkkEWH6uMJW +GUJiuWN63SjEvicQ7BCqDE4HpI6ou1PoWWeL3OgJZVATLPsdiu1t43NM/bUy +xMYd1ZzFvrc+3ukqQwVcqtrSRDzx+4ceTCRLq8La9Wq7XLwptHuPoJZVjxoo +fvxcxwigEIp3Ybj9VYNXjnvPH8XWTM3dypRVh9yox69asbnuahsnO6pDuZHl +7thACpV893Irf6MO2jd+2tYE4f3pWnxk1Z21wL7PSPUjcX2mtp+GAjVAXGBE +cjqMQnedr3yjkzXAtajnuX04hdIDe7p5r2uAjcin2mJs5uG4YYU2DThuXL8i +OIJCYjU5XM4mmuCqIXGgLxKvH+0xzWqV9bCm6Pud0X0UklM+n3KmfwPID7d6 +2CdQqCZtRuM3txYsrRr9+gbbe9qjnVTSgmTNwjadRArdrFXVMPbVggIBGZ3V +ByikvKeq9ddnLVjlZ1AwkYTHW0ypkY0bQVRoQ/CjFArJyymQih6boS41wvXM +SQptyIsV+g8xYEsW31hpNoUCmcdmtewYYHpt2nzrVbxfVTK/+3szQPwmS+AV +Ns+d0kf1CQwQ/Wzf1nwN77ebQ7szyxjQrycczLmBz9Ns/xwNFW04rTd/1+02 +/r5nbDa6L9WB3grFY6GFFLodrerwhKUL+S6Vra0vKNQSj7YezzMA6enOtLJR +Cin5frTzCTeEjBi5LYdV2YhYePpQPhFgb2MZu8yXjaSHny2TDjSGKKItNzeP +jWK1d3RmapqCY/76EJtxNgocnWuQGDKDpkbNF7lGA6jEOGZZbrMFFOxX8629 +MYDuzYS+Kc6yBOGd3n9t5wbQr50y/9amWEPvsgGOf/gg6uLimewJsIWTjXOG +Kn2DKHJ11IUjKvbgbHq6pcHjJ3oY0vD6UqoD8Pm90dTo+4kOTMvS60McoXvE +4nN22BCatTJ3/cfPCaZUPzuE8A8jA6+MnZSjMxTyOStFFQ2jVtmc0Frt3aA0 +YWF/znoErbp/rCZ/nQuErSssb1gyip51a9rYCbuCy825b18qRpFC+8Se+FFX ++HMmdvZKyBjSvpRRfLfbDcTshH9G6Y2jHN7pjZnv3EHEt6DDZ24cPd25qSP1 +uQeQ/LJi7eETKHtrmthcoSfkpDVMHu6cQM3f8k5on/WCtDrNg3/NJ9ET2xuq +ew97w0OrLTnJNZNoMsKZK5LpA6i1riBt/RSaNdcIHjPxBc+gJj/Zq1Mof/Tr +rxg9Pwjfb2ooIDqN3G/nBfkI+YO0saiRc/I0qii39uM56Q/vN05GbZ2ZRgZy +rb9P//YH57LerR/9ZpBK956ODyEBILmHt0ipfgb1C4bZ3+gLAAOpUq/4zbOo +Jd0uyMIlEFRJqtwzfRZlJeQKxrUEgqB6BJ/a6CyqebnwO8gyCFTSj80IGnPQ +Cm84qV0VBEcjX9ovnOIgxZX/NK+uCYK39uZbFNM4aDPLVmbpyyC4fvVjOJzh +IKcdXgVf3gSBpanAZPI5DspaHd946H9BMPhfi/pMBget6ipa0fAlCLrF3ERf +XeMgVV/pbG8a9zfQUftYxEEG/mP5qTpMOGbzv2WzjRx0/+pEjJ0eE3h+ZRp2 +sDhoZduUkbQ+E7a3nv348l8OGjOj2/O3M2FZvcf6E80cfH5xLWEZM+GVq1eI +cBsHidBiHuKO2F0hy+a/clD/Od3luRFMmJEqzCIHOCi9+mDIs/tMcOhIuGLN +RaMIxhWDhHwmfPGRsuddQiObgrLl+oVMqDzyhVmDLXCFXVBZwoSjSwwKNXlo +lBrtMPT0MROeno3LXuCj0UEN1bAnb3H7xoy+NEEahV5pDC//zoTO87+RuhSN +LEXYO6K7mVA+827/e+x1qVzCjF6cn+WzPFKaRuxo3ZIyigldj5IMKmRoFGCX +O/pohAleBp/+pytHI3e+mMjSP0w4Xcd1Xk6RRhYxq/YWSxGwPT3mQ7AGjd7m +nrDKlCHAgY5cx6tJox2sKdWEVQSYpRtW3sTerNb41USBgPHAN0kf1tNI9nOS +yTc1Aq6bhdzQ2kij4W1dUgK6BJAr/lv9mkGj89y3XuxxJmD1vjRN2+14/JuE +sm1dCDDXWKPfjH3cKyFa240A3W7zRIcdNEp47LB2wZMAZbLtkoMhrp9cknE5 +kIAp9kkdC0Qj7feBzLp9BFzrYYwJm9Doc4aaoMoFAjZpz6dxWdHoIRIOHswg +4OaRFz8CsI+PztSWXCQgoTEy5S02w7I2Wf8KARUKrrlHrGmUzhU0ZXuTAOax +ZX60DY3Mo259TSgmQKV6lPXankby8qf0jB4SkMh9+R8pBxrNvI+6yPOIgH5i +TjAc+446sk2vIKCjsHrfSkca/e3qen23igDhS5Kl3k40emwjl9/UQEB4pFHv ++900OvOHmy/rPQHez4v2SrrQKDB/KMCDRcCW6QYLP2xR3iq5/mYCYjvbmyew +w6vdz//+RIDA0RNmgm40UtG8HK9KEbCiM7JK3oNGfz4favvJJiBuRyfLG7sl +ldhcOkjAoUyxtdexk3t0hgxGCHAmcsslPWnUkd3mYz9NAM/SH6rcXjTKXCZm +dmAJCQqh68KeedOoZqrLK5aHhObLF9iT2ANdhdGRfCTIj8Ynafrg9fDY9Fbg +chK6wo9OZmOz/RP+sxIjQdOTSzjMF9dvYyZuJkHCBOudUw729q3iGkiSBF7I +KmvCviBc7KotS4Kh5LqqjX64vepHmZwSCe8ca2b7sMm84gZJFRL/b05wr/DH +/S8k/lihRsLx23NrDbDZpIQwrwYJuytqatIW2yUsgkc2k+A7RAipBNCoal4i +hc0gIeaUT5c5NvWz+1K3Dgl6qSX1IdjbXh94165PwnDTlt5i7P7whwovgASJ +xM/b1wXSSMQ9SbfSmIRVejeaTLENTHbZlJmS0DATl+iPnS7bm5i3i4SVbtbS +l7Cf8ZZeyLUiwYbXQOAhdt940oOrNiRE1q+RrMfWr5f8eM6BhNU7X0VPYweW +9Q6fdMLjHw+r4w+i0bkbpdxHd5NwMuf3Jnns3mjLzfHuJHxNu2Njgi3sK2Wx +15OEgaKK+d3Y+pZ9PqHeJOzKyGggFp9fc+iMrz8JF8Tv3D2O/UzA6o57IAne +h1iPMxfzZqWeOzFJQFYVXbmLeT19zTYkCS//OCkUL+axHrHNg0kQtMuPr8QO +rDz0F0JJoOER+81i/h2rldvDSeAXCY5sXMw/J71eN5KECK1/hdsX8xP6d27a +SwK3S1ftN2whZpm7RjQJjgmXL/Zib7VPjlKJJSGrgZM4uJi/zfqEfDwJ1Y/n +9o9in1WTyZFOIMHv5/1zk9hPRakKsQMkdDrMVM1g9/xX9l7wIAnaEv0LnMX8 +geQevmQ8n5fjvH9h67Va/1pIIUH0UH7Lov8PoC7YoA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.664331886757197, + 1.4619072104176816`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.6643318867571985}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13032,21 +15466,20 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, - 1.5841467887057727`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "PlotRange" -> {{0, 180}, {0.664331886757197, 1.4619072104176816`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6643318867571985}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13060,103 +15493,104 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk4VVsfB/CDlEyROIYoY1FKZCq1fjgls0RmcZyzRWbSCXG7GW43GaJS -N5GIJJEhTa6ikk4RirwRtqHM83G6yrv8sZ/9fJ71rO/67rWevZ+tSA+2Z/JS -KJR+fK3cQz/s2PKo5cN+hd4s62JnLto/ka9Lp5UgadB5dxe7N0cvU4X2DLX5 -CNGKsO0Y71cL67xCXx8o1hRgl7Pi6vlpbPT5XeSWPOzzr6Xr4oo/Irc8oUvZ -2I9bQm8uaX9Cat59nKvYI11NMaefdqIRFtc5HVt2UNltwfQr8st2rDqPbTkZ -YxjO/oYYrzjCZ7Frl0aEWMV9qEyj/9gp7M9nqdHVQSSSt6CWBmBPrKaNzGkP -oljyGscLe3VyiIsOZwjlcQOMHLAVxLMbQ59+R/6tGTEHsW3kFu5MmI4hKe3R -iS3YRK6SlKbABErOUFakYsep2iacYE+iDwH/2vBjd1Lbd0UUTyP3jbtv9Dhx -EcPV3y8jeQYNDUg9e4s9dYNy62HQLMpaG9pRgS2gpCk2rT2PxLbnURKwMxn1 -ZmKSC8hGJ0E0AHtzoUvcTs4CKrzLodpjG2xPnAh8uoi2fC6Ql8M+rveNPWK6 -hPYEzszlHuWiOdbJVYJqv5CZs2xvHPYfT4WM1AV+oy1eom88sLPA4J4vexkF -i8f+JYXNKGikhRXzADv7bFe0IxcVv87oPSvHCyVItMAee2rYMyY9mReYLpUn -tmLHaMxXlAXxgUAGa7zFAfd9oKg8qc0PFhTFBknsrpax2t+3+cEu5FHIwBHc -f+aRq6jkalBzfCXzELtkt80lTc5q+Hg82tsCu+FxFE/AUwHoKmxqDLLnovn6 -tm/fTYXBSPwmX5IdF623EhaLrhUGN8rNSYSt1U4DEUMRuCPy4B7Hlov8B6py -d+0QBcUBt0wf7BBettY+YTGI43XW0LThokGl0umEBXEwkvn3TJIl3h+iaW2z -znp43f72pCY2770hRenQ9WCuE4BaLXBfnU32xaPr4RZ70Ewa29U07eGHXglw -qHyhdeUQFzX7hIVT30nCH3Wj0S4HuKinMOWCl4AU6HgJ/zNG46Kx0eLbdw9I -gflo/sVYbMEIsm1vnRSMLb0Yv2nKRbR4h91eVVQQnXHP/mjMRU/y9eaLcmRA -TKS28/c+Lsof/Bm5J0IeklNd3pzW5aJDjkk94fflgf20y2F6N85vkDh4f0ge -wlvjen2xd+dvl9zsogDMGw0zh3XwftI9K/j3bwJo27FGdhcXzUz2nvp+bjPo -+AuKRW3nIolAWmWFtRL8MJKuiFLioqF8weN2/kpgOcxn26rIRTVfW+TGE5Vg -Ys2qia3Y7lYe59TqlODDjindtk2437ZI+2vaypCoZDkjJ4/XHymciqWqQKNL -IC2WykUOvkKaFn2q8MSr/3KSEBehSEdtp1+qsEmP0VUvyEUaCTn6DBk1aOk+ -vWt5LRdRbuuYxB5WAzsPRelwAS663+Pm9PCFGuycLGfb8uP382jJWdm8LdCj -ve7319+LqIZm/XmErg6lJYZDZtOLSE4pNe7CwHbgxLzOOtG2iJ79PafO5dWE -7udaWc6ti8h91qWdUNQEOy+zNNrHRXSzQUXdxFMTAqhlJ2SaF5GS75PWxQ5N -UAridlQ3LSKNkkFV4t0OaH6a/K7uxSKSl1MgNrtowZ9HYh0kHiyi7QURwv8h -bdD/3+NjrxIX0a0wFbsqti5sDfC0ubhrEbVEIv34AkP4fc7gv+dvOEjR85ON -R8A+UA5yWNd9hIOYy9Wl8qcBBMLN8zJ6FhB1tGYNlW4Cags1KaJOCyhCx+jr -JQ0a3BsOumPaOo/o40uNEiMHwKL3+aFsy3l03yR8TU6zGShR0vn4q+dQ/pz/ -i5JMc3B3nS9mbZ1Di8bS7xviLGF1vFStScos6qbwTfd5WwN/jOIZe84MCtoY -nHZW2RZS3CVHJ0/MoFK/xrrLCXZAU8+u0eqYRlGzMpxtfoeB/mPDv+6202je -4uDRN8fsYfmmMY9q3RQydEs3Hjx8BEpuHMmRNZhCrTLZ/g06DtDUrKnnFD2J -ZO+ce1a01RH+XdMZfShmAtX0aljZiByFIv/WIHrWOFJon/KNHD8KfLmtVp0v -x5DO5fSS271O8II6djJ0aBRlr5rdcaneGYy7N6X4KY+iauOdXQmPXYDFLvC8 -7TaCsvT/Fl8qdgWZyLt2227/QM3/K0jUSXaD2G2s1wyeH6jK+oZKyB/ucPKX -RuaS+3c0HXiEEsTwAO0k3sx774fR/EH14xOmnmAl0rsxxmIYFY1/WQzXOwYy -e2vX2L0eQs63Cnw8hL3gA6cj3MZhCFU8tDzGl+QFdPpl3uv9g8hQrpV7nusF -G8pzRU6dHUTKvb5dH/28IZjnW0G0xiAaEDphe4P0Bn41SqnipwHUkmLjY+ZI -h/jD1z5WXRxAmawcoZMtdJhIOyYoYT6AntUuc33MfcBv18tzrqIDaJ07JOk8 -8YHspurHW76RaPOGN80bn/lAkci1af8eEmmxraVX1/pA08HzZaXdJLI3crvb -+cIHyooD6vW/kihzY+S7M299YPsaLSO7LySS7b63rrHTB7pO0UKvt5FIxZOa -5c7xASK5uTCjkUSGXhNFCbsZUEsft6JWkujOtalwGz0GrJa4YplYQaINbTP7 -qQYMGHvMWzv/kEQTBzjtRXsZEBkj8vtTOYm/BxQetgkDzAa0Rv55QCJRjrjL -+sMM8JGjBO67R6KBi7prcwIZwHxiPfU5j0SH3+i3+wYzwJ7D7+aAXUvZk6MV -ivP21Ri03iLRtfD9ui8jGLBjccaqOZdENi5m3oPRDOB7Jdv54SaJHqu4PN72 -NwP89MUjyOskSnka41dzhwGZ9SnX6RkkCtS+asgqYsCEh8WtqUsksrpbvtag -mAEhsR2ScdiCV4fuPrrPgOqt9oey00mUEGY3Ul3JgJK1+1p7UkkUo65youol -A4iiqycjk0nkf/VdwMMeBlRx2Z2cBBKZiw4ZhfUy4I6rTVoG9tYEioh2PwPO -zApU7cQeCtO9Xz7IAIdl6kG/eBJ52+SMl40xQGRUMbHvTxI584cHPfjJALGf -1KihOBKZhcuGlEgxocRMfoNJFIle5iRaXJJmQmfr9/UDp0lkxJ5RYckyoc+3 -KD0RW0v13RdTBSYYL0+KvmeRSKYj2vR/qkywOict4HWKRKN7uqUEdZkwk3pr -KjuCRKm8uc99jzCBciY+6nQwfv6dwlnWjkz4+rYhaBt2vBsrTMeJCfF7jvd3 -4/8kVqXdlmVXJtxSazSjYXsTPOlX6EwwXIwSpAaSSKeJzngVitevNwho9ydR -R7qqkHIaE5o2tyeWEiQqRSLHv6czQWyHeHwEdvz4XMP9DLzey9bJPdja5g2x -BleZMDzYuf4tE58fxWfG+iYTIvsKE0cYJDoYnPuFVcIExwaqsokP/m+T/0tv -fykTdF391qzDnmsKzuArYwKPDdX1K51EeWrIOqWCCWcWYi1Y2L+6u+tuP2HC -nXkjpypvElVayRV9aGRCUsFZBZoXiS785OXPbGJCs/KFYSo2vWjE24XNBM7Q -e4WxYyQSW/VEbqCZCbxbOB2XsQOeOqdyPzPhJ/VWxIQniZQ1rkSqDDKhvqLQ -sdKDRD87zrT9GGLCSIoHTyp2SwJT68F3JvAV7ZDzx47t2z1iOMYEhQa5a4rY -XVltHrazTBhbN/v8sjuJLq0RPxDFQ8BOinbxJTcSPZvpdovgI0DqIqMiBHu4 -uzgsiJ+AwrslB2yxjSppufS1BKT2neQXxR7yYv1nIU7AtF7NdLor7m91YP0B -CQKuzdJNI7D36q9XR5IEaN/foOCEnSZSclRHhoAsn8QghZXxJ9/K5RQJsC07 -GV3hQiKioKRRUpmAhEkNyevYaWmnv61TJQAudemfxR4iJERWqRNQZaksfXhl -XMLs+JgWAeUWu2kcZxI9+S0RN6RNgOi2K6r92IM/ei/37iZAqXk49T32nrqo -+nYDAr4XOS4XYA8ElCo8B9z/kJG5B7aoc7TuIxMC6NVLoVbYhqaHrMppBBQb -5ysbYafI9J8uOETAvbl8RXnsmlUP0nIsCHh9eClQFJucjC68ZkWAr76+KQXb -4LXkp4t2BNR5OPw16ITPu7x/NMmeAHEJ3cVO7Is3HvD+6UDApj0LU2zs/jBz -rUhnAkLlqWeqsUU8pcxCXAnIuHhSrATbwJz08HcnQK2jfHveyvxNZy54ehGw -q+rFcip2jaBFnjOdgBdGmdVJK3nzUo/tGQT8OmeyELeS10c2WxF4vjS7lrWS -xy4bOnicgMwULbGwlX6PzvwCfwIc4oNHTqzk51ls2BtAQNTNv6yJlfyL1G26 -QQQsnY829F7JZw0Y7wwhoPI/s1J3bGFGubN6GN6/svF7ztj6trHByhEEfAgI -0HZcyd9jmSgfSUD8r3pje+xkVelsKouAWb25L7bY1WKDFeJRBOTOL/20xu77 -r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= - +1:eJwV1Xc8V98fB3AZJSsjK5FdlMbHiIrzzsxe2ZvPvdnKihQtDZUilYa0lJlQ +KbTx9cvni9ASZd0P2fNzq6/4HX/cx308H+fc132fc885Vykwyong5uLiGsTX +4n1f08a1lS1NRkv//pzUMaaQ0dg93UDTYmTmel5NF7s7Vy9L1bQGNX9Per1o +B+a/S4W069CB66Vv9bDLElLe8ZmyUFSW5gZ97NP1Mq9TCj+g5vaROQPs5y37 +bs4xPiL9MI7ODuyhjvcHE6u/IOsQi3Yj7FWUihfHpBOt7P/RsRPbevygQQzr +ByqafrXLDPvl3JBgQmEPOlQxIG+J/emIdNLTyD4kaezmaYs9ttR0aIZBoeg3 +IvOO2EvP7vXQptkozlVkuRu2glhOw77qQXRWwzXJG9tOjnN/zGQEjWx7dSkY +m7ylLKXFP4aGv3YbRmGnqNmnhrHGkVmCtW089hfp9i2xhZOIdWXudio20zM0 +5OLZKRR30WTgHPbEDa7b5ZHTyOJY+8XL2PzKWqKTjFkk7v5RuQA7i/nOQlSS +gww/mPFVYCs+8EjZRHPQL3KJ/Qts/Q0nxiKqf6EAHS+ZNuxgvR+sIZM5VCJ/ +9yiPCYVmEuJ4BdT/og8b4nNFsQ9XC+7Q4J9HtMkVFQXsbNAv2sNaQO6GdQHb +sJl5DabRhUugcKbzyX7swvqL3UfkuIG/foPwKeyJAd+DGWe5ocO9qTEb+6Dm +bMWjSB4o7eRPqcbOKlVSGWfwQVdd6As+Uwp1tIy8nL/LB4xZN3tZbMWpSk8R +yaWgF3F9lxZ2sY5dpha9FGYq1+5zxa59fmBJeDU/uE/uuVaCPfuu7cegiRAk +m6jYRZlRSNxGSDTppRD8rV9IO4O9ud0UhA2E4Vypz8587ND+J7e2bBQBrcHb +q/qw93KzNhsKiYJfUmiKrzmFKOWHk6kcMSBY8+LhFnh+yPfLm7XFYSAkcfA8 +NncRW0lmnzh8sT+19TG2ovYap8JhcUjdFWw8j+1pcqG8qVsCvmi5CWbvolBz +UHSMdKMk/DTZEtZrSaHvD9LP+PNLgZ3r1Q5hKwqNDBfeLTCTApmF4ncG2AKx +fW3bX0vBrSNd3BexTY/v1vF/Ig1ukKFrbU2hqnt6s/m5svDg1ZuIVhsK3aP+ +xG+LlYcJSl5vhwOFdrmc/B5TIg+ueafoaOyRWgnzErY8lGRuVynE1rm3QVLR +QwHyfh9+LuuI5zPQt4LPaA0ova3u+Ys9Nd69f/CYIqwj05Q7nCkkEWH6uMJW +GUJiuWN63SjEvicQ7BCqDE4HpI6ou1PoWWeL3OgJZVATLPsdiu1t43NM/bUy +xMYd1ZzFvrc+3ukqQwVcqtrSRDzx+4ceTCRLq8La9Wq7XLwptHuPoJZVjxoo +fvxcxwigEIp3Ybj9VYNXjnvPH8XWTM3dypRVh9yox69asbnuahsnO6pDuZHl +7thACpV893Irf6MO2jd+2tYE4f3pWnxk1Z21wL7PSPUjcX2mtp+GAjVAXGBE +cjqMQnedr3yjkzXAtajnuX04hdIDe7p5r2uAjcin2mJs5uG4YYU2DThuXL8i +OIJCYjU5XM4mmuCqIXGgLxKvH+0xzWqV9bCm6Pud0X0UklM+n3KmfwPID7d6 +2CdQqCZtRuM3txYsrRr9+gbbe9qjnVTSgmTNwjadRArdrFXVMPbVggIBGZ3V +ByikvKeq9ddnLVjlZ1AwkYTHW0ypkY0bQVRoQ/CjFArJyymQih6boS41wvXM +SQptyIsV+g8xYEsW31hpNoUCmcdmtewYYHpt2nzrVbxfVTK/+3szQPwmS+AV +Ns+d0kf1CQwQ/Wzf1nwN77ebQ7szyxjQrycczLmBz9Ns/xwNFW04rTd/1+02 +/r5nbDa6L9WB3grFY6GFFLodrerwhKUL+S6Vra0vKNQSj7YezzMA6enOtLJR +Cin5frTzCTeEjBi5LYdV2YhYePpQPhFgb2MZu8yXjaSHny2TDjSGKKItNzeP +jWK1d3RmapqCY/76EJtxNgocnWuQGDKDpkbNF7lGA6jEOGZZbrMFFOxX8629 +MYDuzYS+Kc6yBOGd3n9t5wbQr50y/9amWEPvsgGOf/gg6uLimewJsIWTjXOG +Kn2DKHJ11IUjKvbgbHq6pcHjJ3oY0vD6UqoD8Pm90dTo+4kOTMvS60McoXvE +4nN22BCatTJ3/cfPCaZUPzuE8A8jA6+MnZSjMxTyOStFFQ2jVtmc0Frt3aA0 +YWF/znoErbp/rCZ/nQuErSssb1gyip51a9rYCbuCy825b18qRpFC+8Se+FFX ++HMmdvZKyBjSvpRRfLfbDcTshH9G6Y2jHN7pjZnv3EHEt6DDZ24cPd25qSP1 +uQeQ/LJi7eETKHtrmthcoSfkpDVMHu6cQM3f8k5on/WCtDrNg3/NJ9ET2xuq +ew97w0OrLTnJNZNoMsKZK5LpA6i1riBt/RSaNdcIHjPxBc+gJj/Zq1Mof/Tr +rxg9Pwjfb2ooIDqN3G/nBfkI+YO0saiRc/I0qii39uM56Q/vN05GbZ2ZRgZy +rb9P//YH57LerR/9ZpBK956ODyEBILmHt0ipfgb1C4bZ3+gLAAOpUq/4zbOo +Jd0uyMIlEFRJqtwzfRZlJeQKxrUEgqB6BJ/a6CyqebnwO8gyCFTSj80IGnPQ +Cm84qV0VBEcjX9ovnOIgxZX/NK+uCYK39uZbFNM4aDPLVmbpyyC4fvVjOJzh +IKcdXgVf3gSBpanAZPI5DspaHd946H9BMPhfi/pMBget6ipa0fAlCLrF3ERf +XeMgVV/pbG8a9zfQUftYxEEG/mP5qTpMOGbzv2WzjRx0/+pEjJ0eE3h+ZRp2 +sDhoZduUkbQ+E7a3nv348l8OGjOj2/O3M2FZvcf6E80cfH5xLWEZM+GVq1eI +cBsHidBiHuKO2F0hy+a/clD/Od3luRFMmJEqzCIHOCi9+mDIs/tMcOhIuGLN +RaMIxhWDhHwmfPGRsuddQiObgrLl+oVMqDzyhVmDLXCFXVBZwoSjSwwKNXlo +lBrtMPT0MROeno3LXuCj0UEN1bAnb3H7xoy+NEEahV5pDC//zoTO87+RuhSN +LEXYO6K7mVA+827/e+x1qVzCjF6cn+WzPFKaRuxo3ZIyigldj5IMKmRoFGCX +O/pohAleBp/+pytHI3e+mMjSP0w4Xcd1Xk6RRhYxq/YWSxGwPT3mQ7AGjd7m +nrDKlCHAgY5cx6tJox2sKdWEVQSYpRtW3sTerNb41USBgPHAN0kf1tNI9nOS +yTc1Aq6bhdzQ2kij4W1dUgK6BJAr/lv9mkGj89y3XuxxJmD1vjRN2+14/JuE +sm1dCDDXWKPfjH3cKyFa240A3W7zRIcdNEp47LB2wZMAZbLtkoMhrp9cknE5 +kIAp9kkdC0Qj7feBzLp9BFzrYYwJm9Doc4aaoMoFAjZpz6dxWdHoIRIOHswg +4OaRFz8CsI+PztSWXCQgoTEy5S02w7I2Wf8KARUKrrlHrGmUzhU0ZXuTAOax +ZX60DY3Mo259TSgmQKV6lPXankby8qf0jB4SkMh9+R8pBxrNvI+6yPOIgH5i +TjAc+446sk2vIKCjsHrfSkca/e3qen23igDhS5Kl3k40emwjl9/UQEB4pFHv ++900OvOHmy/rPQHez4v2SrrQKDB/KMCDRcCW6QYLP2xR3iq5/mYCYjvbmyew +w6vdz//+RIDA0RNmgm40UtG8HK9KEbCiM7JK3oNGfz4favvJJiBuRyfLG7sl +ldhcOkjAoUyxtdexk3t0hgxGCHAmcsslPWnUkd3mYz9NAM/SH6rcXjTKXCZm +dmAJCQqh68KeedOoZqrLK5aHhObLF9iT2ANdhdGRfCTIj8Ynafrg9fDY9Fbg +chK6wo9OZmOz/RP+sxIjQdOTSzjMF9dvYyZuJkHCBOudUw729q3iGkiSBF7I +KmvCviBc7KotS4Kh5LqqjX64vepHmZwSCe8ca2b7sMm84gZJFRL/b05wr/DH +/S8k/lihRsLx23NrDbDZpIQwrwYJuytqatIW2yUsgkc2k+A7RAipBNCoal4i +hc0gIeaUT5c5NvWz+1K3Dgl6qSX1IdjbXh94165PwnDTlt5i7P7whwovgASJ +xM/b1wXSSMQ9SbfSmIRVejeaTLENTHbZlJmS0DATl+iPnS7bm5i3i4SVbtbS +l7Cf8ZZeyLUiwYbXQOAhdt940oOrNiRE1q+RrMfWr5f8eM6BhNU7X0VPYweW +9Q6fdMLjHw+r4w+i0bkbpdxHd5NwMuf3Jnns3mjLzfHuJHxNu2Njgi3sK2Wx +15OEgaKK+d3Y+pZ9PqHeJOzKyGggFp9fc+iMrz8JF8Tv3D2O/UzA6o57IAne +h1iPMxfzZqWeOzFJQFYVXbmLeT19zTYkCS//OCkUL+axHrHNg0kQtMuPr8QO +rDz0F0JJoOER+81i/h2rldvDSeAXCY5sXMw/J71eN5KECK1/hdsX8xP6d27a +SwK3S1ftN2whZpm7RjQJjgmXL/Zib7VPjlKJJSGrgZM4uJi/zfqEfDwJ1Y/n +9o9in1WTyZFOIMHv5/1zk9hPRakKsQMkdDrMVM1g9/xX9l7wIAnaEv0LnMX8 +geQevmQ8n5fjvH9h67Va/1pIIUH0UH7Lov8PoC7YoA== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "PlotRange" -> {{0, 180}, {0.664331886757197, 1.4619072104176816`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6044061540843444}, + "AxesOrigin" -> {0, 0.6643318867571985}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13166,7 +15600,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6044061540843444}, + AxesOrigin->{0, 0.6643318867571985}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13194,7 +15629,8 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.664331886757197, 1.4619072104176816`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13202,9 +15638,9 @@ r7xJKIYAtnxPvtVK/nBsH38sAfn/XO2wxNZrtVxcjiMgwkc9Y8X/B7CHsQY= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913320330871353`*^9}, + CellChangeTimes->{3.9913320330871353`*^9, 3.993828404305081*^9}, CellLabel-> - "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] + "Out[229]=",ExpressionUUID->"b1501074-c969-4bed-88b0-3d26fa4ff2dc"] }, Open ]], Cell[CellGroupData[{ @@ -13267,205 +15703,165 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918491076725483`*^9, - 3.9918491120260525`*^9}},ExpressionUUID->"cbec275e-4d01-7747-9ece-\ -7fa9a2a651b1"], + CellChangeTimes->{{3.9918491076725483`*^9, 3.9918491120260525`*^9}}, + CellLabel-> + "In[230]:=",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2976471457269651`*^-270\\\", \ + "\"\\!\\(\\*FractionBox[\\\"3.203769821222811`*^-270\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 221, - 189, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033325203*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 230, + 77, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993828404451315*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +In[230]:=",ExpressionUUID->"154fed1b-1c23-4a6e-a962-d8a29161b2cf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.891169813812422`*^-281\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 221, 190, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913320333342056`*^9}, + 230, 78, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993828404460629*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +In[230]:=",ExpressionUUID->"45e7428d-cb7a-4b2e-bd5c-3b5db313be99"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.1163483846383908`*^-292\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 221, 191, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033342205*^9}, + 2, 230, 79, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.993828404467679*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +In[230]:=",ExpressionUUID->"bfa3fdef-b7fd-4618-87d7-ba72786c06d0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 221, 192, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991332033351204*^9}, +during this calculation.\"", 2, 230, 80, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991332033325203*^9, 3.9938284044746943`*^9}, CellLabel-> "During evaluation of \ -In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +In[230]:=",ExpressionUUID->"0fc021c0-debb-4745-be5b-7c39f9e72fc4"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VO0bB3AvFS1KZA0zZ2wlKkuWmO7bkhBZQpItS/QmSVKRyBJZJxQt +siQp2xxFWZLXml1FobJWJIlspcXv/P6a63NdM+c85z7f+36eIVxOWLpzcnBw +8P/DwfH/z/n+pjrpmOxdOptrbg9a6+zqui1yTqcnFA62NHi0ttEABTtcRHoS +gXtmJDGsbRv4mz94w9WTBRNhtdOWbQDrJ4UTf74phhU6gw0r28xgoHLfidk3 +NRBgqNJKtDqBgfT4++k3L+Fswq/TGc9PwM836len3gyDTrebRGF5MNTq3ct+ +kTUD/3zr2D7hwQLxgbJPLgp/oNbWeSxEMBU2eDk94NbjwrVcO5/MGqVDopJB +xT5rHhS42X0q3OIO9KZur57m48VqwnzoTmAOxGQHd3CKrkcTkiu1Ivk+CCeP +XE5KE8CUoY/8NpgPIltKwn/kCGD5feGXLKN8EKu5FOzAFsCIF6NrGizzQXJq +82m5WgE0OvNkiuaeDzImPs4VYwIYHvvK/MrlfFBZ9kdtRGUDLvWx/I++yAcz +P6EPys0b8CuPyKtR+wKItDLa9XJeEDkF06I/uRSC2KN2Mc5/hNA3uv2x87FC +KBSwWlBaLYSmrHf0rlOF8PqlI/sKTQiFl33KygkvBGkLP4aFoRCezk03Xbxb +CDWm6Ss6rwshLck+6NBoIfwxmGtv0xbG5voH9UtuRcDKCcj7YyCM2663vEn3 +KgLpFRxRihbCGLNch1fTrwhM6lfpxLkL4/LjVQM2YUVwQ4/+0CReGM+/v82P +mUWggXtTWgaEcVfqR9Xnb4vglGamU1OoCN6y+7HytQwbjDPWzu6NFcF9Opcd +/25iA4P7fFT7VRGMv7OzSEqBDZ1dNuSrXBG8zBmq767Mhq0+a7j620Vw7aCX +Vt0uNozlnMn5LiaKddnL9adt2GC/Yd/XjQ9F8arR/E7uCDaoBFZcvF0pin32 +/mPtkWxYNbxJiGgQxWn/bwlJ0WwoK+IC2V5R/NJc1yrAYoPQ3jLW9iVRlKqf +//PtBnX/i9Kqu/eKYbunro4wmw363xYDvEfEsGahiUX0sOGcYbL8fxNi+ENv +8Oz5PjYUZir2CcyLIVs/KKDrHRtErJw1y3g2oqRqUXPgEBsmntQvcG3diMPd +fZn3xtmQFMryu352I5K+6rv9frNhWFDWu45XHGPDLQ8OS5AgfOKZhLCwOGrs +ayYHaSSYPLdtO0oXR4fH3pveESSUBsQorFMRxwk97pPNMiRED0yNH7QVR671 +m06HK5KgfL/C41uWOHr81T7nrU3CRW2Lw2IaEtjZ+VlU3JYEQ8fb39V1JZBW +J7Zx+CAJa0O+hFmbSOC12pHq7EMk3KqNyGE5S2DMf09/0ZxIeGJc/mXFZQls +7DXWnHQnYcpWyn+mVwK3Wc8rjPuS8DjAh3v9Bwm8OdyYE+BHwoVbT1O3Tkpg +QnpuC7c/CWsGD1Qc5ZTEGTwoInKOBDmPWI5BeUnEhcUmvmASHE/PRbcGSqLW +8vw5l2gSZFJ0xccjJLHbU+1AVQxJ1S+hgJsliWdmjY8JxZEQ8Htzp262JN4V +21BQmUDC1TBHwbJWSczu8rw7lExC65XG9LsSNFQtdemPu01C0sMNSrVyNJym +NeQ8SifBrvtwzaASDUfNtsj3ZJAwJvL7w0YDGtY/3ekmeIcErozt8one1O9t +D5d43iNhZ+H1Rxee0VAhP2LfqSIS9N+0/5l8TkMXFu+YNZuEfRzL9ji9pOE/ +gtzkDpIEV0vvXvhIeff+VxPFJBgEEsEhy+kYZnXVQ7OUhJZ1lXc0VtFRxHU8 +evljEsyzbZ5PraXjl5qWoXbKh9pi1h8WoaP8kqnCwTISfGjzd3S20JH74XY9 +k0oS5h6ynv/cRkffitr1nE+pehhu+Uqq0rGfQ16khHLESWc1xi46HiYz2vmf +kXCjtvk5pwUdOa4WTef/R0KdR/rXWn86+uw2i7dvIMHotyb/+UA6uvTKSXyi +3M7qUlMNoWMac2TCq5GE3rKVIdmX6bgi0cHC9zkJk6v9+CNu0dGjjBPsm0k4 +lbFWnZlJR53whI8dlH+o3j80d5eO5voNL7CFqqdjf7Z7ER2vhGYGibWSIMI2 +VDeooePRKR3VgjYS0vRHDv1toKNqr4no6nYSGL1BIaUtdNzA/93wCGVFzodN +st10FC9OiN7QQULxNdPJ/l46yrW0pHlQ1tgyxp/ST0eDlM1/H1PWtZKw5x6j +YxGrJ9e8k4TGscchzybo2OXjO5tK2STI8u6ZaTr+9XyW0E/5QE7k5OgiHQt7 +Vz05/IKEdzsZAhlL1PV+2hikU3bpqFS3XUag2oVp2T7KXj+mQ57zErip8eHQ +npdUPk4eEfrETyBjte7IBco84315XCIE9r4wqymm/NrFTIeQIHC4sjR4hPLd +t7WvdzEITNezEF//igQ/Kw0vezkC44oXU7Uo67bl/xOgQGCxfMK8C2U+AyIl +RYlA7swvOyIp91ddVShRI7Dp/dcDuZTz1VfVvNQicDLQz6GBcgD7woEpJDBy +zHHPEGXDzTMTvAYE8rvECf2kLJTlEbplL/X9hcEW3i4SPoi9EzYyJ7DkspYn +jXJxknnBEWsCsxuCJxQph6yp1w23I/C7wpWDmpTNIjR7Mp0I1F5pxdahLPm3 +4PgzNwJHTxdMG1Ce8GdwvT9KoI9dmKQR5fJv11IXvQkc+bdS3ZBylOfqrSJ+ +BKrI4S59yjZDwbU7zhGY2DevzKQsbTdru/8Cge9vNAmpUP7+0nPSJ4zA+T1Z +4zKUq/e+D4uPIlA65liRIOX4OgvR/DgCT7/mO8JJ2Z7ZUNiUSKC424V1E9Tz +ypfu1B9NIbB1R2b+S8o/txb1LksjUGKDx65Sys/vSZ1gZBE4FldVf43yNXrq +MrxHPf/CNT0/ysr8F7cFktT16mNkZSlzxMzVpZZS68+Njluk3mc71792pRUE +5p7tmGyhfGzOMmK6nsBO+HHH/f/58G4UW9dCoF9T3U/F/+djVIut0EnlxT3X +dIbKU3aP9FuPPgIHteJn/Cj7Wlz3iRggkLYyeI8SZWzmXXHnA4EBq93Sxqm8 +vq+Y394/SaDwr2+WVpSF0p9fsuJioEp5EMcyKv8fhJnivjwMTFM+F5xL9U8x +iyQTeBl4NMiAx5iyWeiNd83CDKyT3K8VTvVflLuXso4CA9dl6et1U/1q0z/Y +6KjEQFuyV8GFsvQBa4fzagws1DLZNEH1d7XhrqjHyEDaz3e2C01UPbfw9Sta +M1AiwO7pODUv5tPELqrYMfDDU8aQC+XZdTLSmk4MpDf1a/ZQ82VyRvNf/aMM +5Joj4svrSRiucJ23C2Kg86eI9w61JAwoel93DmXgA63rdc9qqH5MP6t9JJKB +BitZY5KUX4fFhZ68wkC7tC1fuqpJaN77eG3UXQaWJ1sv0Kqofn/6Hxn3gIF/ +9lYMHaPmYd22VqukIgZmmW9cX0LNzyqBoRu3yxi4jWdIFyqo+rxdJVfSxsDO +SL11Kk+oeXnMEYbnGCi4uE/lOjXPU957Do8uMrDfQPNzGTXvk81ORXxdYuCA +ROXsG2o/iFeJavmxUgrvNTXwrSkkIfQXeWCdpBRWBxQGWD2g8hCz3EfbQAr1 +7l1c7pFFgnZefsa1a1KYWF3KusEi4S09L333TSl8Nlfaep7azwKu3b89my6F +cfEnu+3jqf31Ys4ty/tSWPGhzFwolsqjbUbq2kopfMghx3MikoTNy5NZl4ak +cKJT1PBJEJUHp8AQfwVp3N8ZFcP2JKGk61ywjJI0Rh7q2LTPgwQr47MXunZI +42PuFPZnaj9P3HH6vDJIo5rJ2TAxVxJ415w4O2khjTbamhauDiQsK3PxOXJG +GsP13VwTLUiY5jd2tqmRRt2Oz7LHNUjo8WJ0/tsojZVX97jmqFH5aFiE4FZp +jD2SYf5elQRWQB4t97U0XhAy0dNXImH78JqBn+PSWOX1Pm9+MwneZIdDmoAM +No/G350UI2HczPrQBzcZVKiib1b9xYYPsc42vtyy2Bgx8sKhhA3e4wqM7Wtk +sfd61TfVh2xY2PPz61c+Wcyaa7NcRVLnPa7EiKNishiY2zNRlM+G7edqHzkr +yuLNRx3xn+6wIchdVsBsvyxqR+mc50ykzn+7Jjq2pMuiyKrQpN9ebDD6dsbo +o5ocPtAwLVeTpM5vrjynHgVvwtqG+i+21YXU/w9hzsiazRikskRLoBcAf5ts +PPubPD49fsG8JTgPxKOKzNXUFFBt2PzLupz7kLpFk0/AQxGVvF9ejhm4B81i +OjtmrmzFHZNuE4USObBTvIa17fU21N2L/gIa2bCWK8vvcOh2/J68gYsemAWS +F2naB2WVUOHATG30vQxYKWNfatmohMEsHSu5wTTYyhQtOuOgjJpDmztXv74B +vv38tcYcKvhi9POI/NMU+DYTa22UqoIDf2dpNmuuwp5tDTeMFFWxju98zcab +iVA1o/VroV0VP84vW5OoyAJvBeW+F+47MFlLoDuTGQvMSbeugyvVMG2kIG9Y +Iwp2S4uY8mapoeGtse66/nDYFBJ9tkZdHUOGiD1NUxdB3l3zmUyfOsoU8cuf +MrgA7lWe4Y9OaqBTcBSfQfE5eJbR5TYtqInEXG7RMtfTMJu7tLDtsSaWHvA5 +JPLfSXCVyVt5w3QnRohttBYnj8O0fJJa8dROnEvkCVOy8IQn2b+G5qK0cOmN ++9lP/G6gpue3YByjhQ8rVZzTudygZGhiTUacFiYk3LZ2mXWFYsl+deNELXRu +PGy14rUr5KdWx92+qYW7+5PXNVx3hYzYCM09hVroSLswTZNyhct+666kvtJC +0QEXe1GmC9jpS6GWpDb6W+NL7jhn+NPFs7aWro2fefscuIKdIcN98q2xlDa2 +f96qt/KkM3y6VHbGbpM2xp1x41S1dgbfJrOic8raOHP+R84ySWeI3nde8omB +Ns4pMp3FXJ2g3Lb7t+oJbWQOyX0lqh1g4/HIsq3V2ug2yaes9NAO4peO7Iip +0Ub+DbKi4Wl2wJloQI7WaeO9BqmznyLtYLx0+f2MJmp9e6+e67W3g3KO8FT+ +V9ookkQtgdsO7JJDzsx/1Ea913NisU4HIbXi3I6q1UwU5Ht3t0fMFgRXeZGm +B5g4NrU0LlppDdl6QQFTB5nId2YOJu5Zg3JQvF6SPRMdrojLdyRZw74pdnfP +YSaOdsWwGo5Zw6XXcz9dvZgo4bHoGSBuDT+ygnUDLjIxJTbZdyLECvq0kl7l +5DGxxrPfId96P3iezr5lVMjEBw0KTwP19sN8YYn7BJuJ/7ITzO2U9gM/o2dB +qZSJBT/6x/R598NeHgnxp9VMbPAYLWmvt4TKrhy3V91M1Ji4GZGnaQnGa58o ++vcwscP60PajmyyhZ0/TvMhbJnrldR/ZIWwJs+VfohwHmWgWmWX6c9YCFDO3 +F3wep+zjNKxIWkBln45/7FcmMhoTmx0zLMB4w37YNsVEBTX7ibQECzgSefqF +3xwTlc2XPzLwtoDZ6ks3hH8wMdPt1m62gwWELqa4li8y0dxFY0zO1AL4VO8r +OPxhYtLRmisF2hZw+3j53NISE7csbNLQUbCA/wEqL+Ur "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -13479,164 +15875,120 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV13k4VO0bB3AvFS1KZA0zZ2wlKkuWmO7bkhBZQpItS/QmSVKRyBJZJxQt +siQp2xxFWZLXml1FobJWJIlspcXv/P6a63NdM+c85z7f+36eIVxOWLpzcnBw +8P/DwfH/z/n+pjrpmOxdOptrbg9a6+zqui1yTqcnFA62NHi0ttEABTtcRHoS +gXtmJDGsbRv4mz94w9WTBRNhtdOWbQDrJ4UTf74phhU6gw0r28xgoHLfidk3 +NRBgqNJKtDqBgfT4++k3L+Fswq/TGc9PwM836len3gyDTrebRGF5MNTq3ct+ +kTUD/3zr2D7hwQLxgbJPLgp/oNbWeSxEMBU2eDk94NbjwrVcO5/MGqVDopJB +xT5rHhS42X0q3OIO9KZur57m48VqwnzoTmAOxGQHd3CKrkcTkiu1Ivk+CCeP +XE5KE8CUoY/8NpgPIltKwn/kCGD5feGXLKN8EKu5FOzAFsCIF6NrGizzQXJq +82m5WgE0OvNkiuaeDzImPs4VYwIYHvvK/MrlfFBZ9kdtRGUDLvWx/I++yAcz +P6EPys0b8CuPyKtR+wKItDLa9XJeEDkF06I/uRSC2KN2Mc5/hNA3uv2x87FC +KBSwWlBaLYSmrHf0rlOF8PqlI/sKTQiFl33KygkvBGkLP4aFoRCezk03Xbxb +CDWm6Ss6rwshLck+6NBoIfwxmGtv0xbG5voH9UtuRcDKCcj7YyCM2663vEn3 +KgLpFRxRihbCGLNch1fTrwhM6lfpxLkL4/LjVQM2YUVwQ4/+0CReGM+/v82P +mUWggXtTWgaEcVfqR9Xnb4vglGamU1OoCN6y+7HytQwbjDPWzu6NFcF9Opcd +/25iA4P7fFT7VRGMv7OzSEqBDZ1dNuSrXBG8zBmq767Mhq0+a7j620Vw7aCX +Vt0uNozlnMn5LiaKddnL9adt2GC/Yd/XjQ9F8arR/E7uCDaoBFZcvF0pin32 +/mPtkWxYNbxJiGgQxWn/bwlJ0WwoK+IC2V5R/NJc1yrAYoPQ3jLW9iVRlKqf +//PtBnX/i9Kqu/eKYbunro4wmw363xYDvEfEsGahiUX0sOGcYbL8fxNi+ENv +8Oz5PjYUZir2CcyLIVs/KKDrHRtErJw1y3g2oqRqUXPgEBsmntQvcG3diMPd +fZn3xtmQFMryu352I5K+6rv9frNhWFDWu45XHGPDLQ8OS5AgfOKZhLCwOGrs +ayYHaSSYPLdtO0oXR4fH3pveESSUBsQorFMRxwk97pPNMiRED0yNH7QVR671 +m06HK5KgfL/C41uWOHr81T7nrU3CRW2Lw2IaEtjZ+VlU3JYEQ8fb39V1JZBW +J7Zx+CAJa0O+hFmbSOC12pHq7EMk3KqNyGE5S2DMf09/0ZxIeGJc/mXFZQls +7DXWnHQnYcpWyn+mVwK3Wc8rjPuS8DjAh3v9Bwm8OdyYE+BHwoVbT1O3Tkpg +QnpuC7c/CWsGD1Qc5ZTEGTwoInKOBDmPWI5BeUnEhcUmvmASHE/PRbcGSqLW +8vw5l2gSZFJ0xccjJLHbU+1AVQxJ1S+hgJsliWdmjY8JxZEQ8Htzp262JN4V +21BQmUDC1TBHwbJWSczu8rw7lExC65XG9LsSNFQtdemPu01C0sMNSrVyNJym +NeQ8SifBrvtwzaASDUfNtsj3ZJAwJvL7w0YDGtY/3ekmeIcErozt8one1O9t +D5d43iNhZ+H1Rxee0VAhP2LfqSIS9N+0/5l8TkMXFu+YNZuEfRzL9ji9pOE/ +gtzkDpIEV0vvXvhIeff+VxPFJBgEEsEhy+kYZnXVQ7OUhJZ1lXc0VtFRxHU8 +evljEsyzbZ5PraXjl5qWoXbKh9pi1h8WoaP8kqnCwTISfGjzd3S20JH74XY9 +k0oS5h6ynv/cRkffitr1nE+pehhu+Uqq0rGfQ16khHLESWc1xi46HiYz2vmf +kXCjtvk5pwUdOa4WTef/R0KdR/rXWn86+uw2i7dvIMHotyb/+UA6uvTKSXyi +3M7qUlMNoWMac2TCq5GE3rKVIdmX6bgi0cHC9zkJk6v9+CNu0dGjjBPsm0k4 +lbFWnZlJR53whI8dlH+o3j80d5eO5voNL7CFqqdjf7Z7ER2vhGYGibWSIMI2 +VDeooePRKR3VgjYS0vRHDv1toKNqr4no6nYSGL1BIaUtdNzA/93wCGVFzodN +st10FC9OiN7QQULxNdPJ/l46yrW0pHlQ1tgyxp/ST0eDlM1/H1PWtZKw5x6j +YxGrJ9e8k4TGscchzybo2OXjO5tK2STI8u6ZaTr+9XyW0E/5QE7k5OgiHQt7 +Vz05/IKEdzsZAhlL1PV+2hikU3bpqFS3XUag2oVp2T7KXj+mQ57zErip8eHQ +npdUPk4eEfrETyBjte7IBco84315XCIE9r4wqymm/NrFTIeQIHC4sjR4hPLd +t7WvdzEITNezEF//igQ/Kw0vezkC44oXU7Uo67bl/xOgQGCxfMK8C2U+AyIl +RYlA7swvOyIp91ddVShRI7Dp/dcDuZTz1VfVvNQicDLQz6GBcgD7woEpJDBy +zHHPEGXDzTMTvAYE8rvECf2kLJTlEbplL/X9hcEW3i4SPoi9EzYyJ7DkspYn +jXJxknnBEWsCsxuCJxQph6yp1w23I/C7wpWDmpTNIjR7Mp0I1F5pxdahLPm3 +4PgzNwJHTxdMG1Ce8GdwvT9KoI9dmKQR5fJv11IXvQkc+bdS3ZBylOfqrSJ+ +BKrI4S59yjZDwbU7zhGY2DevzKQsbTdru/8Cge9vNAmpUP7+0nPSJ4zA+T1Z +4zKUq/e+D4uPIlA65liRIOX4OgvR/DgCT7/mO8JJ2Z7ZUNiUSKC424V1E9Tz +ypfu1B9NIbB1R2b+S8o/txb1LksjUGKDx65Sys/vSZ1gZBE4FldVf43yNXrq +MrxHPf/CNT0/ysr8F7cFktT16mNkZSlzxMzVpZZS68+Njluk3mc71792pRUE +5p7tmGyhfGzOMmK6nsBO+HHH/f/58G4UW9dCoF9T3U/F/+djVIut0EnlxT3X +dIbKU3aP9FuPPgIHteJn/Cj7Wlz3iRggkLYyeI8SZWzmXXHnA4EBq93Sxqm8 +vq+Y394/SaDwr2+WVpSF0p9fsuJioEp5EMcyKv8fhJnivjwMTFM+F5xL9U8x +iyQTeBl4NMiAx5iyWeiNd83CDKyT3K8VTvVflLuXso4CA9dl6et1U/1q0z/Y +6KjEQFuyV8GFsvQBa4fzagws1DLZNEH1d7XhrqjHyEDaz3e2C01UPbfw9Sta +M1AiwO7pODUv5tPELqrYMfDDU8aQC+XZdTLSmk4MpDf1a/ZQ82VyRvNf/aMM +5Joj4svrSRiucJ23C2Kg86eI9w61JAwoel93DmXgA63rdc9qqH5MP6t9JJKB +BitZY5KUX4fFhZ68wkC7tC1fuqpJaN77eG3UXQaWJ1sv0Kqofn/6Hxn3gIF/ +9lYMHaPmYd22VqukIgZmmW9cX0LNzyqBoRu3yxi4jWdIFyqo+rxdJVfSxsDO +SL11Kk+oeXnMEYbnGCi4uE/lOjXPU957Do8uMrDfQPNzGTXvk81ORXxdYuCA +ROXsG2o/iFeJavmxUgrvNTXwrSkkIfQXeWCdpBRWBxQGWD2g8hCz3EfbQAr1 +7l1c7pFFgnZefsa1a1KYWF3KusEi4S09L333TSl8Nlfaep7azwKu3b89my6F +cfEnu+3jqf31Ys4ty/tSWPGhzFwolsqjbUbq2kopfMghx3MikoTNy5NZl4ak +cKJT1PBJEJUHp8AQfwVp3N8ZFcP2JKGk61ywjJI0Rh7q2LTPgwQr47MXunZI +42PuFPZnaj9P3HH6vDJIo5rJ2TAxVxJ415w4O2khjTbamhauDiQsK3PxOXJG +GsP13VwTLUiY5jd2tqmRRt2Oz7LHNUjo8WJ0/tsojZVX97jmqFH5aFiE4FZp +jD2SYf5elQRWQB4t97U0XhAy0dNXImH78JqBn+PSWOX1Pm9+MwneZIdDmoAM +No/G350UI2HczPrQBzcZVKiib1b9xYYPsc42vtyy2Bgx8sKhhA3e4wqM7Wtk +sfd61TfVh2xY2PPz61c+Wcyaa7NcRVLnPa7EiKNishiY2zNRlM+G7edqHzkr +yuLNRx3xn+6wIchdVsBsvyxqR+mc50ykzn+7Jjq2pMuiyKrQpN9ebDD6dsbo +o5ocPtAwLVeTpM5vrjynHgVvwtqG+i+21YXU/w9hzsiazRikskRLoBcAf5ts +PPubPD49fsG8JTgPxKOKzNXUFFBt2PzLupz7kLpFk0/AQxGVvF9ejhm4B81i +OjtmrmzFHZNuE4USObBTvIa17fU21N2L/gIa2bCWK8vvcOh2/J68gYsemAWS +F2naB2WVUOHATG30vQxYKWNfatmohMEsHSu5wTTYyhQtOuOgjJpDmztXv74B +vv38tcYcKvhi9POI/NMU+DYTa22UqoIDf2dpNmuuwp5tDTeMFFWxju98zcab +iVA1o/VroV0VP84vW5OoyAJvBeW+F+47MFlLoDuTGQvMSbeugyvVMG2kIG9Y +Iwp2S4uY8mapoeGtse66/nDYFBJ9tkZdHUOGiD1NUxdB3l3zmUyfOsoU8cuf +MrgA7lWe4Y9OaqBTcBSfQfE5eJbR5TYtqInEXG7RMtfTMJu7tLDtsSaWHvA5 +JPLfSXCVyVt5w3QnRohttBYnj8O0fJJa8dROnEvkCVOy8IQn2b+G5qK0cOmN ++9lP/G6gpue3YByjhQ8rVZzTudygZGhiTUacFiYk3LZ2mXWFYsl+deNELXRu +PGy14rUr5KdWx92+qYW7+5PXNVx3hYzYCM09hVroSLswTZNyhct+666kvtJC +0QEXe1GmC9jpS6GWpDb6W+NL7jhn+NPFs7aWro2fefscuIKdIcN98q2xlDa2 +f96qt/KkM3y6VHbGbpM2xp1x41S1dgbfJrOic8raOHP+R84ySWeI3nde8omB +Ns4pMp3FXJ2g3Lb7t+oJbWQOyX0lqh1g4/HIsq3V2ug2yaes9NAO4peO7Iip +0Ub+DbKi4Wl2wJloQI7WaeO9BqmznyLtYLx0+f2MJmp9e6+e67W3g3KO8FT+ +V9ookkQtgdsO7JJDzsx/1Ea913NisU4HIbXi3I6q1UwU5Ht3t0fMFgRXeZGm +B5g4NrU0LlppDdl6QQFTB5nId2YOJu5Zg3JQvF6SPRMdrojLdyRZw74pdnfP +YSaOdsWwGo5Zw6XXcz9dvZgo4bHoGSBuDT+ygnUDLjIxJTbZdyLECvq0kl7l +5DGxxrPfId96P3iezr5lVMjEBw0KTwP19sN8YYn7BJuJ/7ITzO2U9gM/o2dB +qZSJBT/6x/R598NeHgnxp9VMbPAYLWmvt4TKrhy3V91M1Ji4GZGnaQnGa58o ++vcwscP60PajmyyhZ0/TvMhbJnrldR/ZIWwJs+VfohwHmWgWmWX6c9YCFDO3 +F3wep+zjNKxIWkBln45/7FcmMhoTmx0zLMB4w37YNsVEBTX7ibQECzgSefqF +3xwTlc2XPzLwtoDZ6ks3hH8wMdPt1m62gwWELqa4li8y0dxFY0zO1AL4VO8r +OPxhYtLRmisF2hZw+3j53NISE7csbNLQUbCA/wEqL+Ur "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.06964547152470302}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -13648,19 +16000,19 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.06964547152470302}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13674,163 +16026,119 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3CRea+RKInMyx1uJITk/RYJyaqEZGRGSZFQMkLJiJB2RlrK -SsPIvjfJt2yKJCHZIS3jd35/ncfzn3PO5/N5v1/vc+QOHbPx4OTg4EhewcHx -/+t835t6xfg0fZaN+ajJygP67bclQgy6T4DOkjafY4M2oPj7QxLdUcCXU1Yr -12ACQVaPuri6L8PJtrHGn6/tYNXk2st/urLhxv2jp+++9obPFRbH5rqKIfXI -64QkdjAYK45++tFVC92Wi6MWtRfgT9eW9OmuVojfvTvQregq1Bnev9uS/RUs -Czle6R99CFKfS4cPqUzAdDq381hcMYgdcX7EazgLYxrSbS2fXsDlTcblFvt+ -g0BFAM163Sv4cFWt+ofIIhxXdrulU1gN19vyhIMoi2D+fZna9LIaHISUnf/q -LML55eqLdjXV0HtOeonTbRECpNJfO7VWQ7+fgJ7Ys0VYNL3xTXauGkaMBl9o -2S/BaaZ+Z4hWDfyezig4nbUMw5vi+449r4FSxurl5WfLMEQ3F9SprIFQzySL -6MZlmK292vyPVQMLPdETCbPL4K6ZLejXUQMRX1+Kv5fnwAs3x1S552og+l3u -nv5ADhwvyUtfUK2F+Lvh7znXrcBLKXufrsypBTONw6LiCivwamBUXe/DWuCr -t9mnzFyBOhEYkF9YC9FfKT27DFZgiOfxx/qVtXBGvmk47fAKvOCX5Cb6oRb8 -MiWWlMpWYJsi+3OMYB1Y3yxS2XWAE8dNs3PTj9eBiMqNYwc9ONG+eyLyzqk6 -eFceXXzsGCdWKjb0ZofVgVnPfu20c5wo5fNH4EpcHWyXXDL8lMeJr7UbN2/M -qgONq2YHji1wYoB4xRrK+zpYm/Y1LvUWF7YHlH6gKtWDBONZ9O97XOheW5jD -y6gHydrY8IOFXHhQ0KqkX7UeNkzTTirXcSEed3kQqVMPFHN/l/IRLtzmZdN+ -1rweNq9c1Pq6eSVWUiP5PI/Xg2XgmkH1xpX4X/PP9uHn9WBFGunLaFuJ2nYh -a4XK68Emu/TDQu9KXKMWdlO1qh5smx3fs6dW4t/dan6ur+vhoEpOmYM4N8bk -LG2K6KoH30HVlCgXbsz6HmP9aL4ezu811W+d58Y+ljitWI0FkiXvJDlX8OAz -5855Xw0W5K/e+2sTiQdnpwTIMtos6Gx1KkyR4UGn4PtCx4EFitaB8tYmPCh4 -bU9U/W4W1O6+w9N8jQdr6r7coB1mge0Txa/LOTxYe2ibTPARFoySH1Wp5vPg -PsnfM1XHWLCqqST4Ui0PSnvrJW0NYoGLWeOoxRgPpsRm3B+IYsGi8c93/+nx -ot5vQ8Ef11mQfC80b9GYF5/zmE+23yKez8NxgWnNi1d2LDCKM1lgzhIwSPTg -RatNPdV291hw3VD2qXkSL3p7zxy2LWKBNu7KePuZF2dHKZfE2CxoutMc8O87 -Lw6tXpeX1EA8f3mfFWOOF1/sN9zM+ZYF5ytd+OP5+DB3OTmh4z2xfr2g02ab -+LDYghzF/MCCAJ0s5zdRfMhd/yA0Z5QFZplCc7sS+FC2nT2SMs4Ced4zF96l -8yHDuyAvdJIFze22RW0P+PC3MY/G1hkWbPQnc/W948O8h/uPBP9hwci9U/dm -JPmR2RpybJCHDVWCQ7onFflRzCgsL5iPDVcCbd7/YvLj3LrJ3bwCbNixnfl7 -Afnx0YrmxtWCbMj+NGDK68WPLGlJ9ndRNjiKWUysf8qPIgWanRel2bD5dHnk -7Qp+fJqoTWJvYIPAAHWNHJsf6T5xZf9k2FBawAVKH/gxKc0+0VaeDWt2lSar -LfNj87QArVGJDRNFSpSnfAK4ZoC174MyG+ol0ko1RQUw2/QS71cqGwKG/QZ0 -KQK4m7NzeYjOhuZIRY0duwTQScPd59FGNtwfSWl4vVcASyjPhhNV2XDWctnR -zEkALWYOzPqqsYEp/THG8rgAftIJqlurzoaV0TslW0MF0N2jPW6IcO9oSf7e -aAG0azw4/GQzGy6+vNRlnyGAQhJ9Xhs12eAqs+jbmymArOX3l4YJa8f6cDg/ -EsC367/uuabFhm97dtDcXwmgjHzI88ktbDCa+hvq91UA2UM0EXtdNoSYpNFr -xgWwaOZH3FfC+VnMj6vnBbBhyPOL91Y2SOx10SnlI2HAyx2q7nps2P3kzwhJ -lLBuHvUj4Sie1KtO60mYOljCvWsbG8Zfsn5xbSThfHmVv7Q+G+REne/bbiFh -7VDjinDCtr6/bR8iCb8zk870EI6vT+FZMCXhSa7UAXVgQ7U047nFHhImXXPX -jCH8M6jeI8uRhILDl4JaCdObD4rPeZCQKzPnviSyITUqOfBaMAl3zr/+fINw -Qw9NcTyShBxlS9/bCS9o1LXpx5NQaovPKJ8BGzYlOZ5LSSPhto6sgS2EPb/9 -VB+8RcLEEv12V8I38NKA1n0S2jzuqY4l3HyNejmukIRHTMUf3SPMPVtj0FtK -wommuJQawrrmB35srCPhZfqH4C7Cx3LnMiObSGjHm+s6QvjuUqJVewcJ/71I -3j1H+MN+ZQ7lzyQMBwP9f4SFiqoLQkZIWLb7oOYiYUMBB+emHyR8vy1R4y/h -YLdZIZl/JKwSO71thvCTioTK4yvJ+CW81XqI8IC4kl+9IBmD2zCgjfDaY1XS -a9eSUZr/ZE4FYfMGu/8Oy5LRulJmMJNwpNzMmQoaGRfVZ7UiCD8PjVcR3kzG -+Z05txwIj7Up9rrqkfFE2NA6NcKyzMr4kh1kTP7h/4SD8L7Y/Vt5LcnY57Rk -30Ts78XP06P2dmRkSZrIpRKu0r54/bErGdeKCXDvIzyXomC27EPGxJYVvKKE -aWMVf6wDyajjP0ltJM7Tycj24d0wMgpkJx8JI5x6a8ruVywZdzx+1MYg3DB/ -gc8smYzcnhwuHUS9qD8s95rKJuNZsaCpdYS9OPet3f6YjO1RlPkSov5uHphk -pz0j47dkVdr/65FHSE5Jt4FYT+i59YeJet3qVdaR0EJGutzhvmmivv2r98R8 -/kjGVf/62wMIfzwROxg9QcYjV967+RL9INwkk9Y1T8bnhpPLn3WI/qGUGtI5 -BLH692SnJeH8rrHs96KCGMma15PTJvZXz9pVUlsQ33aJSccT/WjidHtmy3ZB -DChQD2nUIM47YuzcPnNBVDgfYbqS8M26mHvJLoJIIe2z8iL6/aVZ2RhPnCBm -Uid1x4j8CD/CG6aYKoh9Ty+eWWKywThpr9D2W4LISendQSbc3jKpFlYkiJKU -mJC1DDZM2ykEzX4QxJPu+Y/Gifx6EerPu2pQEJ855BxrpxD5c/PV1Y2Tgjjg -srv5uSIbyP37yw9zCqGL4aCfL5F/yl4JHP10IWzJCPNOI/LT6eTPi02nhXBa -elfSNyJfKRnbpUZjhPCI6tntoav+3++XnvAmC+ETP1Y5rwgbQhdozdvvCmGp -F4Xv//mcfs5JvLRJCGNlb9qMEfnelPL6Tq60MPZpEh1C5H/qU7FNdcrCmOlR -vHvoFwscOlxr+zcJI8eNzdGy88R8kFgYXG8sjLH595vOE/ODK1ONftlPGMsO -p0lIjrFAN/9aydkqYdRYcCRZ9bDAqOvd4mSDMLrqskTdiXllwbFyp3OrMPKe -zekO6GKBm43fBxgSRq+Gvw9i21hgfFouPIJbBP+b7rkZQsw/f5n5HAOGCE7Y -c/ZcKWNBvdedibogEcy4s3dTVToLTBd0RM+cFsG6K6MplqkseJfcrqURIYJS -5FsLPcks+FDKH3E3TgQVAvn/jsSzYJIUKBpzUwS5+8gf2iJZIFFossW4VgSD -ct6aTRHfB0d+/4hoEFyFHrfGt1kgsZ7jnmuGRVdhif/cJ8o2FvCNfszjkliF -aplvN//RYUFuT12nvvwqPEcrFUzdzIK+ynSVZ1qr8IF0cHuqEgssY3S6s5xX -oeWyX3gTiQXqopGqp4tWoVitNeemtnr4wxDpY+4TxRIpofiztvUwf0sycrOD -KMY/zX3ob1MPc8IURR1nUfQwO+jvbFEPk7M6PkaHRVHIvJVzs3E9DJS7zTuE -ieL+fO+0Ys16aNz1QuhCrigqf05WXSNWD9d9nWDgpyjWh0eeinlXB3p5jzOv -XFmNUseeLDzTrYMfomYutrViqOnCMG8h18JggovtCd41KDZSxPPyQTWYTp0y -HdJaiy/44v5UZFTCuBtfQEm4BIKGI90kvZz4v1jLeb52HXIXejzcl/sSRP9T -SiqcksRi+yphm7/PQOpCgZWWlhQ+seczean1FK4ydERWe0kj09u1RrCxEBol -DTRnUzYgr9uXcDv6E9CVqk1W7ZTBJNVinsXGByDElR3oGiWLlut8N6psyIUN -kTJ69kpyWMpBt5ZLywJ+iuNzm9dyyPNG3SNM/BZs3Lau4NRBeXQXFlb8QrsK -J/pE68w4FHAydcPnc+mpMDWbsM/0qgJeOcTwVBu7BL3dWba3rivgi/tHNkq0 -XILGV8/3/7ipgKbJatarXlyCu+f77a9lKeCO1D/nt5y7BA7rNZy+P1LA3qHw -YRupS8Da3uMZ90oBKw+sYVVaJ8GNFFrwmwEF1LIf+Kz5JgF2qrKvmzIVMTwl -49qvkTiw4zHZ26yqiGHjQZ3rW+LA59Mbwf3qishhVGlkUxoHSfH/RbhvUcTi -hZqkn3Fx0Pmt3TPcQBF5546+EVOJA/fMr+rP9ilir5r+oScBFyBq1Yq3smcV -sWLD+itcIuehcnbrv1/vFNFQer8V43Q0ZDW9OLSnRRGTm5eGP3tHQ3Tu5sb8 -NkW0XzcB2bbRYLqfcc2jWxHzj9ElrdSjob1MckvbF0UMfWNzw3L0HIxG/jmR -P6eIJUEnN3Y5noM1Ii9G3SUp6LPc0t22Kwr8VNQ/tnhQcO7L6oIBywg4+Uvy -r7M3BQXX6zdfgAg4U8slOelDQc4i70k91QiIt+uwF/CnYFQ2ffGdUAQ8iA7+ -sD2UgioT/W/Ub4XDQG9l99MkClIbr3eezToLtom7utJfULDD7FGJfOUZ2Dbp -3m7Pr4Qq17o+vTIMgTXlO7MrSErYvfi4VJsRApPn6f4yQkq41ypLuUE0BG7L -TZOGRJXQNsTtnOJAMCztPW3oL6WEOm87X7VEBkNVeUpxrKoS7iS98J2pPwUG -cZXJT/cpIZw7qzxlHwQ7FCV2C2YrITpWBPwrD4CSCZac+10lrLW8OZX+IAAU -XwTMl91TwopVnaIG6QGw0uz9He88JXRezyv3xi8Aao/FztSVKGF6lOW6O/IB -oF8+lxH6WglDvT4dt0s8AVo2LQPfxpXwdRUlvcjvOFAjLgbXblFGzt1pEfRX -flCxNZfbXFcZwefeatcbfmD1q+pyh54y/orOcH8Z4gfBfj8fjxgo47d3ql0N -Wn7Q4OjyRchcGb0zViv6FR8Fbx0tswMuymi5gfPp04Ij8HDmy/q5C8rI611j -GVzjA/r5Cw/C4pXxe4Vef1qOD7QeXqvFm6SMDzVmON/H+MDffnMryVRl9Lp8 -8NYNMx8we/8iGm8p442PV8NSOw7DaF7iREKRMkbZ/NcxMu0NdA+dKspHZey+ -lECJ1vOCS/IWf8/1KmMRPUNlWMEL5j4f0hzoU8a5QaqnM8kLKh0S8m5/VUZr -MVDO+OgJNlafM9ZOKKO97fr+daGeELI1xp+fg4papWxjx1ce0LCqRW6CQsWC -ziff9u91B+b7IcddVCp+tZd0CtN3h8sJfzMe0qmoe3zbuxdUd3DkVRTyVKXi -z/uW+30X3WBqIehvnzYVX8bGqr297wZrRqTamndRcVTiBDpzuIFHpXd0yXEq -frAsWnKvdoXJo6OndgRSMem3WapvnisESx/x7Qyi4pm3cPDCFVe4eOaYze/T -VGRdaceVR12hUDdIVi+WijVZ39dwrXeFhefnKuquU3EpcnM+6bQLXC64Pdda -R0W/P/5PItOdQMpZdsSNTUXN5po9zf5OkCuU3TPXQMVwp9bLxuZO8PJobu2a -d1Q87Es2ecjlBJ8Yj5MduqkYCk+SDAMPAvVBqcrAOBUTOWe+5Dk6QlVmu/sP -cRpqipzN32PqAP3mcs5BEjRUI1OVh2gOwPHnqP0/SRqOF95NuCrgANuteS24 -ZWk4M6V0x73JHtgrdLeso9Pwhve4X5K1PTQdusNvoE/DZWEdX8FDdvBR0Sc/ -2ZOGdgobKV+v28K/5ucPxA/TsE/aPDAo3BakwrhyrvvS0MdidlDZ3RYOdtzM -uOtPQ0lH7xeDTFvoj3kf8TKUhj3Pry7W1u6Db8Mae/qTaOjxjHvbnx97Ye7B -8i/VFzR0zUoJuOixB4ZtjTPjSmmYmv4Ldljuge6ViSZfy2lIVbhmvFZnD5S7 -SF67Uk3D3rUZTzgE90CUhKbu4hsa1k4zU4ef2YDIBZ8zjb00VA+YPDlOsgEV -rw4OD046bhRtTrVusIIN4lIPK1fS0e0H4/7bEisQqTtkLcFLx7/ShT4OWVYw -u2E66y2Jjos7xkuehVpBWaeAobo4Hb3Wpei5brQCE2OMWVam4+2+b7/m1S3B -jZLHf303Hd3jzjw4uWAOoSwnHyUrOs7EFOYd7TKHZA/Rt8U2dAy6WT+YXGwO -FbkhCW/30/HVJi5ju8PmIKZkIrzoSifm0emxoe5dwFYaEnMJoiP349DAzioz -oFNlZJXu0DGjwrnuS54JYENrRHEWHdlH97aOx5uArXfsF/27dKS9Pt0ofcQE -zj2YyN7/kI7dT1w7p1VMoJdaQYl7Skf7h6Yr9xfuhCSaPWP8NR1Dndf7rKg0 -hh/0VK3iaTqm6VznqZs1gu4m3LF6lo57xVk/RD8aQbXf5J7An3TknCI3hFcb -QVKx6XGtv3S8dfR2TUGiEdB1OR6XcTGwWehrlQfNCA6ZHpWrW8PAAI1bMyKe -htDutZPcrsfA9NawU1mzBlDO/1NSExg4Ag907T4ZQHZeNu2KAQPlXscFUl8b -gP/UorGdMQO5ClcPit0wAMFTJZG9lgzc9iO/V9LIAIxj5X4NHmLg4am2lvrr -CC/v/vvy8wID/5Vy36x/qg9ahoG/zOIZ6Gy7+HYqUR+efRknZyYy8Glbzr8d -3vpQvKFvi9llBibz8z06Ia0Pj69WJ96+wcCm87OnG+K2QWZCjM7OfAb69z3V -Rh89iAsUTrnaxkAbo84/Oqa6wLf6wr2JDgbydfSXnKDqQmwRR8X2bga2jQtr -t/DqQvTkj+HxXgZmOF74s8TWgbPe7XoGwwy898lZYd1OHTjheG3k+28GfgoS -d1Cy0AYHIwXcukEFtzl/vHcrSAsW2/mE6mRVMPr89GTffi3I9JjsMVNQwYKZ -TrWdOlowHFt6yoGqgjq/OKfiFzThxBvLghB1Few3YoZ8idaEixZnNrw0VsHb -EVohV25qQJldx4LGMRXMEv9QujSsDge/lzVWHFfB9z0clW+b1IEjNPOqUaAK -Do5HBZUVq4PxDV+NvSEquPxt3HPhrDq0flpxJOCcCmbQUpcE16nD6KGNPUUZ -KvjR383WeM8mWH/0fOnGahX8LjyuS65UhaRlT834WhVcOh0MIWmqwHnZuOhb -vQpaBzd/k/BVhdHn3A8z36igg/zw9ikJVSjjiL4q2qaC3OR3vDNBG8EhLeLU -/JAK1vQOPpDRY8LV8hDNShITW+r+KeZ+pwPZwr5IUoiJd69Z5C6y6BDRr808 -JcLECrlcZeIbA7y5fyuqiTPRQ6vQV8iRDlssg8SyNzCxYN4tcWMLDToHTszG -bGLiBvpI6aE6KogLHCnavZ+J1yRmCqzYSnDXMCx02p6JW+VrarbfVQL1sCTD -VEcmtiZvcHCPUgKL6cKOblcm+q/azdAEJYjt/PnH7QgTG4akX/KUU+B3dvj2 -0Egm7roXkKVZrggft6a23ctjYrgD/fqmXnnwPnn3pmk+E/VjhJ/kVMnDfP4z -j/FCJlr1HlPRz5EHUfnuX5ueM1HwpfrtMR952MUnLfWqmrh/wobr8gtyUNF+ -z72tg9iP8A3S7RQ5MBN6yQzqZqJUo0tTCUkOune+mZfoYeKf0MrSsh+yMFc2 -dsGpn4mGS6bxmpWywMxSe/J9lIlN7o9efbGThYqPBkEJE0z8KKAj8g1kwUxs -D6hOM/FkQaGMiLIseJ4/2RL4k4lDBRPHr43JwFx17PW1v5nYJajfWFUmA1F/ -M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ -3z9DIQ== +1:eJwV13k4VO0bB3AvFS1KZA0zZ2wlKkuWmO7bkhBZQpItS/QmSVKRyBJZJxQt +siQp2xxFWZLXml1FobJWJIlspcXv/P6a63NdM+c85z7f+36eIVxOWLpzcnBw +8P/DwfH/z/n+pjrpmOxdOptrbg9a6+zqui1yTqcnFA62NHi0ttEABTtcRHoS +gXtmJDGsbRv4mz94w9WTBRNhtdOWbQDrJ4UTf74phhU6gw0r28xgoHLfidk3 +NRBgqNJKtDqBgfT4++k3L+Fswq/TGc9PwM836len3gyDTrebRGF5MNTq3ct+ +kTUD/3zr2D7hwQLxgbJPLgp/oNbWeSxEMBU2eDk94NbjwrVcO5/MGqVDopJB +xT5rHhS42X0q3OIO9KZur57m48VqwnzoTmAOxGQHd3CKrkcTkiu1Ivk+CCeP +XE5KE8CUoY/8NpgPIltKwn/kCGD5feGXLKN8EKu5FOzAFsCIF6NrGizzQXJq +82m5WgE0OvNkiuaeDzImPs4VYwIYHvvK/MrlfFBZ9kdtRGUDLvWx/I++yAcz +P6EPys0b8CuPyKtR+wKItDLa9XJeEDkF06I/uRSC2KN2Mc5/hNA3uv2x87FC +KBSwWlBaLYSmrHf0rlOF8PqlI/sKTQiFl33KygkvBGkLP4aFoRCezk03Xbxb +CDWm6Ss6rwshLck+6NBoIfwxmGtv0xbG5voH9UtuRcDKCcj7YyCM2663vEn3 +KgLpFRxRihbCGLNch1fTrwhM6lfpxLkL4/LjVQM2YUVwQ4/+0CReGM+/v82P +mUWggXtTWgaEcVfqR9Xnb4vglGamU1OoCN6y+7HytQwbjDPWzu6NFcF9Opcd +/25iA4P7fFT7VRGMv7OzSEqBDZ1dNuSrXBG8zBmq767Mhq0+a7j620Vw7aCX +Vt0uNozlnMn5LiaKddnL9adt2GC/Yd/XjQ9F8arR/E7uCDaoBFZcvF0pin32 +/mPtkWxYNbxJiGgQxWn/bwlJ0WwoK+IC2V5R/NJc1yrAYoPQ3jLW9iVRlKqf +//PtBnX/i9Kqu/eKYbunro4wmw363xYDvEfEsGahiUX0sOGcYbL8fxNi+ENv +8Oz5PjYUZir2CcyLIVs/KKDrHRtErJw1y3g2oqRqUXPgEBsmntQvcG3diMPd +fZn3xtmQFMryu352I5K+6rv9frNhWFDWu45XHGPDLQ8OS5AgfOKZhLCwOGrs +ayYHaSSYPLdtO0oXR4fH3pveESSUBsQorFMRxwk97pPNMiRED0yNH7QVR671 +m06HK5KgfL/C41uWOHr81T7nrU3CRW2Lw2IaEtjZ+VlU3JYEQ8fb39V1JZBW +J7Zx+CAJa0O+hFmbSOC12pHq7EMk3KqNyGE5S2DMf09/0ZxIeGJc/mXFZQls +7DXWnHQnYcpWyn+mVwK3Wc8rjPuS8DjAh3v9Bwm8OdyYE+BHwoVbT1O3Tkpg +QnpuC7c/CWsGD1Qc5ZTEGTwoInKOBDmPWI5BeUnEhcUmvmASHE/PRbcGSqLW +8vw5l2gSZFJ0xccjJLHbU+1AVQxJ1S+hgJsliWdmjY8JxZEQ8Htzp262JN4V +21BQmUDC1TBHwbJWSczu8rw7lExC65XG9LsSNFQtdemPu01C0sMNSrVyNJym +NeQ8SifBrvtwzaASDUfNtsj3ZJAwJvL7w0YDGtY/3ekmeIcErozt8one1O9t +D5d43iNhZ+H1Rxee0VAhP2LfqSIS9N+0/5l8TkMXFu+YNZuEfRzL9ji9pOE/ +gtzkDpIEV0vvXvhIeff+VxPFJBgEEsEhy+kYZnXVQ7OUhJZ1lXc0VtFRxHU8 +evljEsyzbZ5PraXjl5qWoXbKh9pi1h8WoaP8kqnCwTISfGjzd3S20JH74XY9 +k0oS5h6ynv/cRkffitr1nE+pehhu+Uqq0rGfQ16khHLESWc1xi46HiYz2vmf +kXCjtvk5pwUdOa4WTef/R0KdR/rXWn86+uw2i7dvIMHotyb/+UA6uvTKSXyi +3M7qUlMNoWMac2TCq5GE3rKVIdmX6bgi0cHC9zkJk6v9+CNu0dGjjBPsm0k4 +lbFWnZlJR53whI8dlH+o3j80d5eO5voNL7CFqqdjf7Z7ER2vhGYGibWSIMI2 +VDeooePRKR3VgjYS0vRHDv1toKNqr4no6nYSGL1BIaUtdNzA/93wCGVFzodN +st10FC9OiN7QQULxNdPJ/l46yrW0pHlQ1tgyxp/ST0eDlM1/H1PWtZKw5x6j +YxGrJ9e8k4TGscchzybo2OXjO5tK2STI8u6ZaTr+9XyW0E/5QE7k5OgiHQt7 +Vz05/IKEdzsZAhlL1PV+2hikU3bpqFS3XUag2oVp2T7KXj+mQ57zErip8eHQ +npdUPk4eEfrETyBjte7IBco84315XCIE9r4wqymm/NrFTIeQIHC4sjR4hPLd +t7WvdzEITNezEF//igQ/Kw0vezkC44oXU7Uo67bl/xOgQGCxfMK8C2U+AyIl +RYlA7swvOyIp91ddVShRI7Dp/dcDuZTz1VfVvNQicDLQz6GBcgD7woEpJDBy +zHHPEGXDzTMTvAYE8rvECf2kLJTlEbplL/X9hcEW3i4SPoi9EzYyJ7DkspYn +jXJxknnBEWsCsxuCJxQph6yp1w23I/C7wpWDmpTNIjR7Mp0I1F5pxdahLPm3 +4PgzNwJHTxdMG1Ce8GdwvT9KoI9dmKQR5fJv11IXvQkc+bdS3ZBylOfqrSJ+ +BKrI4S59yjZDwbU7zhGY2DevzKQsbTdru/8Cge9vNAmpUP7+0nPSJ4zA+T1Z +4zKUq/e+D4uPIlA65liRIOX4OgvR/DgCT7/mO8JJ2Z7ZUNiUSKC424V1E9Tz +ypfu1B9NIbB1R2b+S8o/txb1LksjUGKDx65Sys/vSZ1gZBE4FldVf43yNXrq +MrxHPf/CNT0/ysr8F7cFktT16mNkZSlzxMzVpZZS68+Njluk3mc71792pRUE +5p7tmGyhfGzOMmK6nsBO+HHH/f/58G4UW9dCoF9T3U/F/+djVIut0EnlxT3X +dIbKU3aP9FuPPgIHteJn/Cj7Wlz3iRggkLYyeI8SZWzmXXHnA4EBq93Sxqm8 +vq+Y394/SaDwr2+WVpSF0p9fsuJioEp5EMcyKv8fhJnivjwMTFM+F5xL9U8x +iyQTeBl4NMiAx5iyWeiNd83CDKyT3K8VTvVflLuXso4CA9dl6et1U/1q0z/Y +6KjEQFuyV8GFsvQBa4fzagws1DLZNEH1d7XhrqjHyEDaz3e2C01UPbfw9Sta +M1AiwO7pODUv5tPELqrYMfDDU8aQC+XZdTLSmk4MpDf1a/ZQ82VyRvNf/aMM +5Joj4svrSRiucJ23C2Kg86eI9w61JAwoel93DmXgA63rdc9qqH5MP6t9JJKB +BitZY5KUX4fFhZ68wkC7tC1fuqpJaN77eG3UXQaWJ1sv0Kqofn/6Hxn3gIF/ +9lYMHaPmYd22VqukIgZmmW9cX0LNzyqBoRu3yxi4jWdIFyqo+rxdJVfSxsDO +SL11Kk+oeXnMEYbnGCi4uE/lOjXPU957Do8uMrDfQPNzGTXvk81ORXxdYuCA +ROXsG2o/iFeJavmxUgrvNTXwrSkkIfQXeWCdpBRWBxQGWD2g8hCz3EfbQAr1 +7l1c7pFFgnZefsa1a1KYWF3KusEi4S09L333TSl8Nlfaep7azwKu3b89my6F +cfEnu+3jqf31Ys4ty/tSWPGhzFwolsqjbUbq2kopfMghx3MikoTNy5NZl4ak +cKJT1PBJEJUHp8AQfwVp3N8ZFcP2JKGk61ywjJI0Rh7q2LTPgwQr47MXunZI +42PuFPZnaj9P3HH6vDJIo5rJ2TAxVxJ415w4O2khjTbamhauDiQsK3PxOXJG +GsP13VwTLUiY5jd2tqmRRt2Oz7LHNUjo8WJ0/tsojZVX97jmqFH5aFiE4FZp +jD2SYf5elQRWQB4t97U0XhAy0dNXImH78JqBn+PSWOX1Pm9+MwneZIdDmoAM +No/G350UI2HczPrQBzcZVKiib1b9xYYPsc42vtyy2Bgx8sKhhA3e4wqM7Wtk +sfd61TfVh2xY2PPz61c+Wcyaa7NcRVLnPa7EiKNishiY2zNRlM+G7edqHzkr +yuLNRx3xn+6wIchdVsBsvyxqR+mc50ykzn+7Jjq2pMuiyKrQpN9ebDD6dsbo +o5ocPtAwLVeTpM5vrjynHgVvwtqG+i+21YXU/w9hzsiazRikskRLoBcAf5ts +PPubPD49fsG8JTgPxKOKzNXUFFBt2PzLupz7kLpFk0/AQxGVvF9ejhm4B81i +OjtmrmzFHZNuE4USObBTvIa17fU21N2L/gIa2bCWK8vvcOh2/J68gYsemAWS +F2naB2WVUOHATG30vQxYKWNfatmohMEsHSu5wTTYyhQtOuOgjJpDmztXv74B +vv38tcYcKvhi9POI/NMU+DYTa22UqoIDf2dpNmuuwp5tDTeMFFWxju98zcab +iVA1o/VroV0VP84vW5OoyAJvBeW+F+47MFlLoDuTGQvMSbeugyvVMG2kIG9Y +Iwp2S4uY8mapoeGtse66/nDYFBJ9tkZdHUOGiD1NUxdB3l3zmUyfOsoU8cuf +MrgA7lWe4Y9OaqBTcBSfQfE5eJbR5TYtqInEXG7RMtfTMJu7tLDtsSaWHvA5 +JPLfSXCVyVt5w3QnRohttBYnj8O0fJJa8dROnEvkCVOy8IQn2b+G5qK0cOmN ++9lP/G6gpue3YByjhQ8rVZzTudygZGhiTUacFiYk3LZ2mXWFYsl+deNELXRu +PGy14rUr5KdWx92+qYW7+5PXNVx3hYzYCM09hVroSLswTZNyhct+666kvtJC +0QEXe1GmC9jpS6GWpDb6W+NL7jhn+NPFs7aWro2fefscuIKdIcN98q2xlDa2 +f96qt/KkM3y6VHbGbpM2xp1x41S1dgbfJrOic8raOHP+R84ySWeI3nde8omB +Ns4pMp3FXJ2g3Lb7t+oJbWQOyX0lqh1g4/HIsq3V2ug2yaes9NAO4peO7Iip +0Ub+DbKi4Wl2wJloQI7WaeO9BqmznyLtYLx0+f2MJmp9e6+e67W3g3KO8FT+ +V9ookkQtgdsO7JJDzsx/1Ea913NisU4HIbXi3I6q1UwU5Ht3t0fMFgRXeZGm +B5g4NrU0LlppDdl6QQFTB5nId2YOJu5Zg3JQvF6SPRMdrojLdyRZw74pdnfP +YSaOdsWwGo5Zw6XXcz9dvZgo4bHoGSBuDT+ygnUDLjIxJTbZdyLECvq0kl7l +5DGxxrPfId96P3iezr5lVMjEBw0KTwP19sN8YYn7BJuJ/7ITzO2U9gM/o2dB +qZSJBT/6x/R598NeHgnxp9VMbPAYLWmvt4TKrhy3V91M1Ji4GZGnaQnGa58o ++vcwscP60PajmyyhZ0/TvMhbJnrldR/ZIWwJs+VfohwHmWgWmWX6c9YCFDO3 +F3wep+zjNKxIWkBln45/7FcmMhoTmx0zLMB4w37YNsVEBTX7ibQECzgSefqF +3xwTlc2XPzLwtoDZ6ks3hH8wMdPt1m62gwWELqa4li8y0dxFY0zO1AL4VO8r +OPxhYtLRmisF2hZw+3j53NISE7csbNLQUbCA/wEqL+Ur "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "PlotRange" -> {{0, 30}, {0., 0.06964547152470302}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -13841,6 +16149,7 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -13868,7 +16177,8 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06964547152470302}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -13876,17 +16186,1169 @@ M9zK/hLvv4lNUbkoAyIaD1UOLhL7s+Wncp+9DNw+WvZzeZmJJb4PAjtoMvA/ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913324679337597`*^9}, + CellChangeTimes->{3.9913324679337597`*^9, 3.9938287337055197`*^9}, CellLabel-> - "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] + "Out[230]=",ExpressionUUID->"ce6224e8-11fd-449a-9b7f-8831c7954880"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ -b989835aa113"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[231]:=",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VO0bB3AvFS1KZA0zZ2wlKkuWmO7bkhBZQpItS/QmSVKRyBJZJxQt +siQp2xxFWZLXml1FobJWJIlspcXv/P6a63NdM+c85z7f+36eIVxOWLpzcnBw +8P/DwfH/z/n+pjrpmOxdOptrbg9a6+zqui1yTqcnFA62NHi0ttEABTtcRHoS +gXtmJDGsbRv4mz94w9WTBRNhtdOWbQDrJ4UTf74phhU6gw0r28xgoHLfidk3 +NRBgqNJKtDqBgfT4++k3L+Fswq/TGc9PwM836len3gyDTrebRGF5MNTq3ct+ +kTUD/3zr2D7hwQLxgbJPLgp/oNbWeSxEMBU2eDk94NbjwrVcO5/MGqVDopJB +xT5rHhS42X0q3OIO9KZur57m48VqwnzoTmAOxGQHd3CKrkcTkiu1Ivk+CCeP +XE5KE8CUoY/8NpgPIltKwn/kCGD5feGXLKN8EKu5FOzAFsCIF6NrGizzQXJq +82m5WgE0OvNkiuaeDzImPs4VYwIYHvvK/MrlfFBZ9kdtRGUDLvWx/I++yAcz +P6EPys0b8CuPyKtR+wKItDLa9XJeEDkF06I/uRSC2KN2Mc5/hNA3uv2x87FC +KBSwWlBaLYSmrHf0rlOF8PqlI/sKTQiFl33KygkvBGkLP4aFoRCezk03Xbxb +CDWm6Ss6rwshLck+6NBoIfwxmGtv0xbG5voH9UtuRcDKCcj7YyCM2663vEn3 +KgLpFRxRihbCGLNch1fTrwhM6lfpxLkL4/LjVQM2YUVwQ4/+0CReGM+/v82P +mUWggXtTWgaEcVfqR9Xnb4vglGamU1OoCN6y+7HytQwbjDPWzu6NFcF9Opcd +/25iA4P7fFT7VRGMv7OzSEqBDZ1dNuSrXBG8zBmq767Mhq0+a7j620Vw7aCX +Vt0uNozlnMn5LiaKddnL9adt2GC/Yd/XjQ9F8arR/E7uCDaoBFZcvF0pin32 +/mPtkWxYNbxJiGgQxWn/bwlJ0WwoK+IC2V5R/NJc1yrAYoPQ3jLW9iVRlKqf +//PtBnX/i9Kqu/eKYbunro4wmw363xYDvEfEsGahiUX0sOGcYbL8fxNi+ENv +8Oz5PjYUZir2CcyLIVs/KKDrHRtErJw1y3g2oqRqUXPgEBsmntQvcG3diMPd +fZn3xtmQFMryu352I5K+6rv9frNhWFDWu45XHGPDLQ8OS5AgfOKZhLCwOGrs +ayYHaSSYPLdtO0oXR4fH3pveESSUBsQorFMRxwk97pPNMiRED0yNH7QVR671 +m06HK5KgfL/C41uWOHr81T7nrU3CRW2Lw2IaEtjZ+VlU3JYEQ8fb39V1JZBW +J7Zx+CAJa0O+hFmbSOC12pHq7EMk3KqNyGE5S2DMf09/0ZxIeGJc/mXFZQls +7DXWnHQnYcpWyn+mVwK3Wc8rjPuS8DjAh3v9Bwm8OdyYE+BHwoVbT1O3Tkpg +QnpuC7c/CWsGD1Qc5ZTEGTwoInKOBDmPWI5BeUnEhcUmvmASHE/PRbcGSqLW +8vw5l2gSZFJ0xccjJLHbU+1AVQxJ1S+hgJsliWdmjY8JxZEQ8Htzp262JN4V +21BQmUDC1TBHwbJWSczu8rw7lExC65XG9LsSNFQtdemPu01C0sMNSrVyNJym +NeQ8SifBrvtwzaASDUfNtsj3ZJAwJvL7w0YDGtY/3ekmeIcErozt8one1O9t +D5d43iNhZ+H1Rxee0VAhP2LfqSIS9N+0/5l8TkMXFu+YNZuEfRzL9ji9pOE/ +gtzkDpIEV0vvXvhIeff+VxPFJBgEEsEhy+kYZnXVQ7OUhJZ1lXc0VtFRxHU8 +evljEsyzbZ5PraXjl5qWoXbKh9pi1h8WoaP8kqnCwTISfGjzd3S20JH74XY9 +k0oS5h6ynv/cRkffitr1nE+pehhu+Uqq0rGfQ16khHLESWc1xi46HiYz2vmf +kXCjtvk5pwUdOa4WTef/R0KdR/rXWn86+uw2i7dvIMHotyb/+UA6uvTKSXyi +3M7qUlMNoWMac2TCq5GE3rKVIdmX6bgi0cHC9zkJk6v9+CNu0dGjjBPsm0k4 +lbFWnZlJR53whI8dlH+o3j80d5eO5voNL7CFqqdjf7Z7ER2vhGYGibWSIMI2 +VDeooePRKR3VgjYS0vRHDv1toKNqr4no6nYSGL1BIaUtdNzA/93wCGVFzodN +st10FC9OiN7QQULxNdPJ/l46yrW0pHlQ1tgyxp/ST0eDlM1/H1PWtZKw5x6j +YxGrJ9e8k4TGscchzybo2OXjO5tK2STI8u6ZaTr+9XyW0E/5QE7k5OgiHQt7 +Vz05/IKEdzsZAhlL1PV+2hikU3bpqFS3XUag2oVp2T7KXj+mQ57zErip8eHQ +npdUPk4eEfrETyBjte7IBco84315XCIE9r4wqymm/NrFTIeQIHC4sjR4hPLd +t7WvdzEITNezEF//igQ/Kw0vezkC44oXU7Uo67bl/xOgQGCxfMK8C2U+AyIl +RYlA7swvOyIp91ddVShRI7Dp/dcDuZTz1VfVvNQicDLQz6GBcgD7woEpJDBy +zHHPEGXDzTMTvAYE8rvECf2kLJTlEbplL/X9hcEW3i4SPoi9EzYyJ7DkspYn +jXJxknnBEWsCsxuCJxQph6yp1w23I/C7wpWDmpTNIjR7Mp0I1F5pxdahLPm3 +4PgzNwJHTxdMG1Ce8GdwvT9KoI9dmKQR5fJv11IXvQkc+bdS3ZBylOfqrSJ+ +BKrI4S59yjZDwbU7zhGY2DevzKQsbTdru/8Cge9vNAmpUP7+0nPSJ4zA+T1Z +4zKUq/e+D4uPIlA65liRIOX4OgvR/DgCT7/mO8JJ2Z7ZUNiUSKC424V1E9Tz +ypfu1B9NIbB1R2b+S8o/txb1LksjUGKDx65Sys/vSZ1gZBE4FldVf43yNXrq +MrxHPf/CNT0/ysr8F7cFktT16mNkZSlzxMzVpZZS68+Njluk3mc71792pRUE +5p7tmGyhfGzOMmK6nsBO+HHH/f/58G4UW9dCoF9T3U/F/+djVIut0EnlxT3X +dIbKU3aP9FuPPgIHteJn/Cj7Wlz3iRggkLYyeI8SZWzmXXHnA4EBq93Sxqm8 +vq+Y394/SaDwr2+WVpSF0p9fsuJioEp5EMcyKv8fhJnivjwMTFM+F5xL9U8x +iyQTeBl4NMiAx5iyWeiNd83CDKyT3K8VTvVflLuXso4CA9dl6et1U/1q0z/Y +6KjEQFuyV8GFsvQBa4fzagws1DLZNEH1d7XhrqjHyEDaz3e2C01UPbfw9Sta +M1AiwO7pODUv5tPELqrYMfDDU8aQC+XZdTLSmk4MpDf1a/ZQ82VyRvNf/aMM +5Joj4svrSRiucJ23C2Kg86eI9w61JAwoel93DmXgA63rdc9qqH5MP6t9JJKB +BitZY5KUX4fFhZ68wkC7tC1fuqpJaN77eG3UXQaWJ1sv0Kqofn/6Hxn3gIF/ +9lYMHaPmYd22VqukIgZmmW9cX0LNzyqBoRu3yxi4jWdIFyqo+rxdJVfSxsDO +SL11Kk+oeXnMEYbnGCi4uE/lOjXPU957Do8uMrDfQPNzGTXvk81ORXxdYuCA +ROXsG2o/iFeJavmxUgrvNTXwrSkkIfQXeWCdpBRWBxQGWD2g8hCz3EfbQAr1 +7l1c7pFFgnZefsa1a1KYWF3KusEi4S09L333TSl8Nlfaep7azwKu3b89my6F +cfEnu+3jqf31Ys4ty/tSWPGhzFwolsqjbUbq2kopfMghx3MikoTNy5NZl4ak +cKJT1PBJEJUHp8AQfwVp3N8ZFcP2JKGk61ywjJI0Rh7q2LTPgwQr47MXunZI +42PuFPZnaj9P3HH6vDJIo5rJ2TAxVxJ415w4O2khjTbamhauDiQsK3PxOXJG +GsP13VwTLUiY5jd2tqmRRt2Oz7LHNUjo8WJ0/tsojZVX97jmqFH5aFiE4FZp +jD2SYf5elQRWQB4t97U0XhAy0dNXImH78JqBn+PSWOX1Pm9+MwneZIdDmoAM +No/G350UI2HczPrQBzcZVKiib1b9xYYPsc42vtyy2Bgx8sKhhA3e4wqM7Wtk +sfd61TfVh2xY2PPz61c+Wcyaa7NcRVLnPa7EiKNishiY2zNRlM+G7edqHzkr +yuLNRx3xn+6wIchdVsBsvyxqR+mc50ykzn+7Jjq2pMuiyKrQpN9ebDD6dsbo +o5ocPtAwLVeTpM5vrjynHgVvwtqG+i+21YXU/w9hzsiazRikskRLoBcAf5ts +PPubPD49fsG8JTgPxKOKzNXUFFBt2PzLupz7kLpFk0/AQxGVvF9ejhm4B81i +OjtmrmzFHZNuE4USObBTvIa17fU21N2L/gIa2bCWK8vvcOh2/J68gYsemAWS +F2naB2WVUOHATG30vQxYKWNfatmohMEsHSu5wTTYyhQtOuOgjJpDmztXv74B +vv38tcYcKvhi9POI/NMU+DYTa22UqoIDf2dpNmuuwp5tDTeMFFWxju98zcab +iVA1o/VroV0VP84vW5OoyAJvBeW+F+47MFlLoDuTGQvMSbeugyvVMG2kIG9Y +Iwp2S4uY8mapoeGtse66/nDYFBJ9tkZdHUOGiD1NUxdB3l3zmUyfOsoU8cuf +MrgA7lWe4Y9OaqBTcBSfQfE5eJbR5TYtqInEXG7RMtfTMJu7tLDtsSaWHvA5 +JPLfSXCVyVt5w3QnRohttBYnj8O0fJJa8dROnEvkCVOy8IQn2b+G5qK0cOmN ++9lP/G6gpue3YByjhQ8rVZzTudygZGhiTUacFiYk3LZ2mXWFYsl+deNELXRu +PGy14rUr5KdWx92+qYW7+5PXNVx3hYzYCM09hVroSLswTZNyhct+666kvtJC +0QEXe1GmC9jpS6GWpDb6W+NL7jhn+NPFs7aWro2fefscuIKdIcN98q2xlDa2 +f96qt/KkM3y6VHbGbpM2xp1x41S1dgbfJrOic8raOHP+R84ySWeI3nde8omB +Ns4pMp3FXJ2g3Lb7t+oJbWQOyX0lqh1g4/HIsq3V2ug2yaes9NAO4peO7Iip +0Ub+DbKi4Wl2wJloQI7WaeO9BqmznyLtYLx0+f2MJmp9e6+e67W3g3KO8FT+ +V9ookkQtgdsO7JJDzsx/1Ea913NisU4HIbXi3I6q1UwU5Ht3t0fMFgRXeZGm +B5g4NrU0LlppDdl6QQFTB5nId2YOJu5Zg3JQvF6SPRMdrojLdyRZw74pdnfP +YSaOdsWwGo5Zw6XXcz9dvZgo4bHoGSBuDT+ygnUDLjIxJTbZdyLECvq0kl7l +5DGxxrPfId96P3iezr5lVMjEBw0KTwP19sN8YYn7BJuJ/7ITzO2U9gM/o2dB +qZSJBT/6x/R598NeHgnxp9VMbPAYLWmvt4TKrhy3V91M1Ji4GZGnaQnGa58o ++vcwscP60PajmyyhZ0/TvMhbJnrldR/ZIWwJs+VfohwHmWgWmWX6c9YCFDO3 +F3wep+zjNKxIWkBln45/7FcmMhoTmx0zLMB4w37YNsVEBTX7ibQECzgSefqF +3xwTlc2XPzLwtoDZ6ks3hH8wMdPt1m62gwWELqa4li8y0dxFY0zO1AL4VO8r +OPxhYtLRmisF2hZw+3j53NISE7csbNLQUbCA/wEqL+Ur + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO0bB3AvFS1KZA0zZ2wlKkuWmO7bkhBZQpItS/QmSVKRyBJZJxQt +siQp2xxFWZLXml1FobJWJIlspcXv/P6a63NdM+c85z7f+36eIVxOWLpzcnBw +8P/DwfH/z/n+pjrpmOxdOptrbg9a6+zqui1yTqcnFA62NHi0ttEABTtcRHoS +gXtmJDGsbRv4mz94w9WTBRNhtdOWbQDrJ4UTf74phhU6gw0r28xgoHLfidk3 +NRBgqNJKtDqBgfT4++k3L+Fswq/TGc9PwM836len3gyDTrebRGF5MNTq3ct+ +kTUD/3zr2D7hwQLxgbJPLgp/oNbWeSxEMBU2eDk94NbjwrVcO5/MGqVDopJB +xT5rHhS42X0q3OIO9KZur57m48VqwnzoTmAOxGQHd3CKrkcTkiu1Ivk+CCeP +XE5KE8CUoY/8NpgPIltKwn/kCGD5feGXLKN8EKu5FOzAFsCIF6NrGizzQXJq +82m5WgE0OvNkiuaeDzImPs4VYwIYHvvK/MrlfFBZ9kdtRGUDLvWx/I++yAcz +P6EPys0b8CuPyKtR+wKItDLa9XJeEDkF06I/uRSC2KN2Mc5/hNA3uv2x87FC +KBSwWlBaLYSmrHf0rlOF8PqlI/sKTQiFl33KygkvBGkLP4aFoRCezk03Xbxb +CDWm6Ss6rwshLck+6NBoIfwxmGtv0xbG5voH9UtuRcDKCcj7YyCM2663vEn3 +KgLpFRxRihbCGLNch1fTrwhM6lfpxLkL4/LjVQM2YUVwQ4/+0CReGM+/v82P +mUWggXtTWgaEcVfqR9Xnb4vglGamU1OoCN6y+7HytQwbjDPWzu6NFcF9Opcd +/25iA4P7fFT7VRGMv7OzSEqBDZ1dNuSrXBG8zBmq767Mhq0+a7j620Vw7aCX +Vt0uNozlnMn5LiaKddnL9adt2GC/Yd/XjQ9F8arR/E7uCDaoBFZcvF0pin32 +/mPtkWxYNbxJiGgQxWn/bwlJ0WwoK+IC2V5R/NJc1yrAYoPQ3jLW9iVRlKqf +//PtBnX/i9Kqu/eKYbunro4wmw363xYDvEfEsGahiUX0sOGcYbL8fxNi+ENv +8Oz5PjYUZir2CcyLIVs/KKDrHRtErJw1y3g2oqRqUXPgEBsmntQvcG3diMPd +fZn3xtmQFMryu352I5K+6rv9frNhWFDWu45XHGPDLQ8OS5AgfOKZhLCwOGrs +ayYHaSSYPLdtO0oXR4fH3pveESSUBsQorFMRxwk97pPNMiRED0yNH7QVR671 +m06HK5KgfL/C41uWOHr81T7nrU3CRW2Lw2IaEtjZ+VlU3JYEQ8fb39V1JZBW +J7Zx+CAJa0O+hFmbSOC12pHq7EMk3KqNyGE5S2DMf09/0ZxIeGJc/mXFZQls +7DXWnHQnYcpWyn+mVwK3Wc8rjPuS8DjAh3v9Bwm8OdyYE+BHwoVbT1O3Tkpg +QnpuC7c/CWsGD1Qc5ZTEGTwoInKOBDmPWI5BeUnEhcUmvmASHE/PRbcGSqLW +8vw5l2gSZFJ0xccjJLHbU+1AVQxJ1S+hgJsliWdmjY8JxZEQ8Htzp262JN4V +21BQmUDC1TBHwbJWSczu8rw7lExC65XG9LsSNFQtdemPu01C0sMNSrVyNJym +NeQ8SifBrvtwzaASDUfNtsj3ZJAwJvL7w0YDGtY/3ekmeIcErozt8one1O9t +D5d43iNhZ+H1Rxee0VAhP2LfqSIS9N+0/5l8TkMXFu+YNZuEfRzL9ji9pOE/ +gtzkDpIEV0vvXvhIeff+VxPFJBgEEsEhy+kYZnXVQ7OUhJZ1lXc0VtFRxHU8 +evljEsyzbZ5PraXjl5qWoXbKh9pi1h8WoaP8kqnCwTISfGjzd3S20JH74XY9 +k0oS5h6ynv/cRkffitr1nE+pehhu+Uqq0rGfQ16khHLESWc1xi46HiYz2vmf +kXCjtvk5pwUdOa4WTef/R0KdR/rXWn86+uw2i7dvIMHotyb/+UA6uvTKSXyi +3M7qUlMNoWMac2TCq5GE3rKVIdmX6bgi0cHC9zkJk6v9+CNu0dGjjBPsm0k4 +lbFWnZlJR53whI8dlH+o3j80d5eO5voNL7CFqqdjf7Z7ER2vhGYGibWSIMI2 +VDeooePRKR3VgjYS0vRHDv1toKNqr4no6nYSGL1BIaUtdNzA/93wCGVFzodN +st10FC9OiN7QQULxNdPJ/l46yrW0pHlQ1tgyxp/ST0eDlM1/H1PWtZKw5x6j +YxGrJ9e8k4TGscchzybo2OXjO5tK2STI8u6ZaTr+9XyW0E/5QE7k5OgiHQt7 +Vz05/IKEdzsZAhlL1PV+2hikU3bpqFS3XUag2oVp2T7KXj+mQ57zErip8eHQ +npdUPk4eEfrETyBjte7IBco84315XCIE9r4wqymm/NrFTIeQIHC4sjR4hPLd +t7WvdzEITNezEF//igQ/Kw0vezkC44oXU7Uo67bl/xOgQGCxfMK8C2U+AyIl +RYlA7swvOyIp91ddVShRI7Dp/dcDuZTz1VfVvNQicDLQz6GBcgD7woEpJDBy +zHHPEGXDzTMTvAYE8rvECf2kLJTlEbplL/X9hcEW3i4SPoi9EzYyJ7DkspYn +jXJxknnBEWsCsxuCJxQph6yp1w23I/C7wpWDmpTNIjR7Mp0I1F5pxdahLPm3 +4PgzNwJHTxdMG1Ce8GdwvT9KoI9dmKQR5fJv11IXvQkc+bdS3ZBylOfqrSJ+ +BKrI4S59yjZDwbU7zhGY2DevzKQsbTdru/8Cge9vNAmpUP7+0nPSJ4zA+T1Z +4zKUq/e+D4uPIlA65liRIOX4OgvR/DgCT7/mO8JJ2Z7ZUNiUSKC424V1E9Tz +ypfu1B9NIbB1R2b+S8o/txb1LksjUGKDx65Sys/vSZ1gZBE4FldVf43yNXrq +MrxHPf/CNT0/ysr8F7cFktT16mNkZSlzxMzVpZZS68+Njluk3mc71792pRUE +5p7tmGyhfGzOMmK6nsBO+HHH/f/58G4UW9dCoF9T3U/F/+djVIut0EnlxT3X +dIbKU3aP9FuPPgIHteJn/Cj7Wlz3iRggkLYyeI8SZWzmXXHnA4EBq93Sxqm8 +vq+Y394/SaDwr2+WVpSF0p9fsuJioEp5EMcyKv8fhJnivjwMTFM+F5xL9U8x +iyQTeBl4NMiAx5iyWeiNd83CDKyT3K8VTvVflLuXso4CA9dl6et1U/1q0z/Y +6KjEQFuyV8GFsvQBa4fzagws1DLZNEH1d7XhrqjHyEDaz3e2C01UPbfw9Sta +M1AiwO7pODUv5tPELqrYMfDDU8aQC+XZdTLSmk4MpDf1a/ZQ82VyRvNf/aMM +5Joj4svrSRiucJ23C2Kg86eI9w61JAwoel93DmXgA63rdc9qqH5MP6t9JJKB +BitZY5KUX4fFhZ68wkC7tC1fuqpJaN77eG3UXQaWJ1sv0Kqofn/6Hxn3gIF/ +9lYMHaPmYd22VqukIgZmmW9cX0LNzyqBoRu3yxi4jWdIFyqo+rxdJVfSxsDO +SL11Kk+oeXnMEYbnGCi4uE/lOjXPU957Do8uMrDfQPNzGTXvk81ORXxdYuCA +ROXsG2o/iFeJavmxUgrvNTXwrSkkIfQXeWCdpBRWBxQGWD2g8hCz3EfbQAr1 +7l1c7pFFgnZefsa1a1KYWF3KusEi4S09L333TSl8Nlfaep7azwKu3b89my6F +cfEnu+3jqf31Ys4ty/tSWPGhzFwolsqjbUbq2kopfMghx3MikoTNy5NZl4ak +cKJT1PBJEJUHp8AQfwVp3N8ZFcP2JKGk61ywjJI0Rh7q2LTPgwQr47MXunZI +42PuFPZnaj9P3HH6vDJIo5rJ2TAxVxJ415w4O2khjTbamhauDiQsK3PxOXJG +GsP13VwTLUiY5jd2tqmRRt2Oz7LHNUjo8WJ0/tsojZVX97jmqFH5aFiE4FZp +jD2SYf5elQRWQB4t97U0XhAy0dNXImH78JqBn+PSWOX1Pm9+MwneZIdDmoAM +No/G350UI2HczPrQBzcZVKiib1b9xYYPsc42vtyy2Bgx8sKhhA3e4wqM7Wtk +sfd61TfVh2xY2PPz61c+Wcyaa7NcRVLnPa7EiKNishiY2zNRlM+G7edqHzkr +yuLNRx3xn+6wIchdVsBsvyxqR+mc50ykzn+7Jjq2pMuiyKrQpN9ebDD6dsbo +o5ocPtAwLVeTpM5vrjynHgVvwtqG+i+21YXU/w9hzsiazRikskRLoBcAf5ts +PPubPD49fsG8JTgPxKOKzNXUFFBt2PzLupz7kLpFk0/AQxGVvF9ejhm4B81i +OjtmrmzFHZNuE4USObBTvIa17fU21N2L/gIa2bCWK8vvcOh2/J68gYsemAWS +F2naB2WVUOHATG30vQxYKWNfatmohMEsHSu5wTTYyhQtOuOgjJpDmztXv74B +vv38tcYcKvhi9POI/NMU+DYTa22UqoIDf2dpNmuuwp5tDTeMFFWxju98zcab +iVA1o/VroV0VP84vW5OoyAJvBeW+F+47MFlLoDuTGQvMSbeugyvVMG2kIG9Y +Iwp2S4uY8mapoeGtse66/nDYFBJ9tkZdHUOGiD1NUxdB3l3zmUyfOsoU8cuf +MrgA7lWe4Y9OaqBTcBSfQfE5eJbR5TYtqInEXG7RMtfTMJu7tLDtsSaWHvA5 +JPLfSXCVyVt5w3QnRohttBYnj8O0fJJa8dROnEvkCVOy8IQn2b+G5qK0cOmN ++9lP/G6gpue3YByjhQ8rVZzTudygZGhiTUacFiYk3LZ2mXWFYsl+deNELXRu +PGy14rUr5KdWx92+qYW7+5PXNVx3hYzYCM09hVroSLswTZNyhct+666kvtJC +0QEXe1GmC9jpS6GWpDb6W+NL7jhn+NPFs7aWro2fefscuIKdIcN98q2xlDa2 +f96qt/KkM3y6VHbGbpM2xp1x41S1dgbfJrOic8raOHP+R84ySWeI3nde8omB +Ns4pMp3FXJ2g3Lb7t+oJbWQOyX0lqh1g4/HIsq3V2ug2yaes9NAO4peO7Iip +0Ub+DbKi4Wl2wJloQI7WaeO9BqmznyLtYLx0+f2MJmp9e6+e67W3g3KO8FT+ +V9ookkQtgdsO7JJDzsx/1Ea913NisU4HIbXi3I6q1UwU5Ht3t0fMFgRXeZGm +B5g4NrU0LlppDdl6QQFTB5nId2YOJu5Zg3JQvF6SPRMdrojLdyRZw74pdnfP +YSaOdsWwGo5Zw6XXcz9dvZgo4bHoGSBuDT+ygnUDLjIxJTbZdyLECvq0kl7l +5DGxxrPfId96P3iezr5lVMjEBw0KTwP19sN8YYn7BJuJ/7ITzO2U9gM/o2dB +qZSJBT/6x/R598NeHgnxp9VMbPAYLWmvt4TKrhy3V91M1Ji4GZGnaQnGa58o ++vcwscP60PajmyyhZ0/TvMhbJnrldR/ZIWwJs+VfohwHmWgWmWX6c9YCFDO3 +F3wep+zjNKxIWkBln45/7FcmMhoTmx0zLMB4w37YNsVEBTX7ibQECzgSefqF +3xwTlc2XPzLwtoDZ6ks3hH8wMdPt1m62gwWELqa4li8y0dxFY0zO1AL4VO8r +OPxhYtLRmisF2hZw+3j53NISE7csbNLQUbCA/wEqL+Ur + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06964547152470302}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06964547152470302}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VO0bB3AvFS1KZA0zZ2wlKkuWmO7bkhBZQpItS/QmSVKRyBJZJxQt +siQp2xxFWZLXml1FobJWJIlspcXv/P6a63NdM+c85z7f+36eIVxOWLpzcnBw +8P/DwfH/z/n+pjrpmOxdOptrbg9a6+zqui1yTqcnFA62NHi0ttEABTtcRHoS +gXtmJDGsbRv4mz94w9WTBRNhtdOWbQDrJ4UTf74phhU6gw0r28xgoHLfidk3 +NRBgqNJKtDqBgfT4++k3L+Fswq/TGc9PwM836len3gyDTrebRGF5MNTq3ct+ +kTUD/3zr2D7hwQLxgbJPLgp/oNbWeSxEMBU2eDk94NbjwrVcO5/MGqVDopJB +xT5rHhS42X0q3OIO9KZur57m48VqwnzoTmAOxGQHd3CKrkcTkiu1Ivk+CCeP +XE5KE8CUoY/8NpgPIltKwn/kCGD5feGXLKN8EKu5FOzAFsCIF6NrGizzQXJq +82m5WgE0OvNkiuaeDzImPs4VYwIYHvvK/MrlfFBZ9kdtRGUDLvWx/I++yAcz +P6EPys0b8CuPyKtR+wKItDLa9XJeEDkF06I/uRSC2KN2Mc5/hNA3uv2x87FC +KBSwWlBaLYSmrHf0rlOF8PqlI/sKTQiFl33KygkvBGkLP4aFoRCezk03Xbxb +CDWm6Ss6rwshLck+6NBoIfwxmGtv0xbG5voH9UtuRcDKCcj7YyCM2663vEn3 +KgLpFRxRihbCGLNch1fTrwhM6lfpxLkL4/LjVQM2YUVwQ4/+0CReGM+/v82P +mUWggXtTWgaEcVfqR9Xnb4vglGamU1OoCN6y+7HytQwbjDPWzu6NFcF9Opcd +/25iA4P7fFT7VRGMv7OzSEqBDZ1dNuSrXBG8zBmq767Mhq0+a7j620Vw7aCX +Vt0uNozlnMn5LiaKddnL9adt2GC/Yd/XjQ9F8arR/E7uCDaoBFZcvF0pin32 +/mPtkWxYNbxJiGgQxWn/bwlJ0WwoK+IC2V5R/NJc1yrAYoPQ3jLW9iVRlKqf +//PtBnX/i9Kqu/eKYbunro4wmw363xYDvEfEsGahiUX0sOGcYbL8fxNi+ENv +8Oz5PjYUZir2CcyLIVs/KKDrHRtErJw1y3g2oqRqUXPgEBsmntQvcG3diMPd +fZn3xtmQFMryu352I5K+6rv9frNhWFDWu45XHGPDLQ8OS5AgfOKZhLCwOGrs +ayYHaSSYPLdtO0oXR4fH3pveESSUBsQorFMRxwk97pPNMiRED0yNH7QVR671 +m06HK5KgfL/C41uWOHr81T7nrU3CRW2Lw2IaEtjZ+VlU3JYEQ8fb39V1JZBW +J7Zx+CAJa0O+hFmbSOC12pHq7EMk3KqNyGE5S2DMf09/0ZxIeGJc/mXFZQls +7DXWnHQnYcpWyn+mVwK3Wc8rjPuS8DjAh3v9Bwm8OdyYE+BHwoVbT1O3Tkpg +QnpuC7c/CWsGD1Qc5ZTEGTwoInKOBDmPWI5BeUnEhcUmvmASHE/PRbcGSqLW +8vw5l2gSZFJ0xccjJLHbU+1AVQxJ1S+hgJsliWdmjY8JxZEQ8Htzp262JN4V +21BQmUDC1TBHwbJWSczu8rw7lExC65XG9LsSNFQtdemPu01C0sMNSrVyNJym +NeQ8SifBrvtwzaASDUfNtsj3ZJAwJvL7w0YDGtY/3ekmeIcErozt8one1O9t +D5d43iNhZ+H1Rxee0VAhP2LfqSIS9N+0/5l8TkMXFu+YNZuEfRzL9ji9pOE/ +gtzkDpIEV0vvXvhIeff+VxPFJBgEEsEhy+kYZnXVQ7OUhJZ1lXc0VtFRxHU8 +evljEsyzbZ5PraXjl5qWoXbKh9pi1h8WoaP8kqnCwTISfGjzd3S20JH74XY9 +k0oS5h6ynv/cRkffitr1nE+pehhu+Uqq0rGfQ16khHLESWc1xi46HiYz2vmf +kXCjtvk5pwUdOa4WTef/R0KdR/rXWn86+uw2i7dvIMHotyb/+UA6uvTKSXyi +3M7qUlMNoWMac2TCq5GE3rKVIdmX6bgi0cHC9zkJk6v9+CNu0dGjjBPsm0k4 +lbFWnZlJR53whI8dlH+o3j80d5eO5voNL7CFqqdjf7Z7ER2vhGYGibWSIMI2 +VDeooePRKR3VgjYS0vRHDv1toKNqr4no6nYSGL1BIaUtdNzA/93wCGVFzodN +st10FC9OiN7QQULxNdPJ/l46yrW0pHlQ1tgyxp/ST0eDlM1/H1PWtZKw5x6j +YxGrJ9e8k4TGscchzybo2OXjO5tK2STI8u6ZaTr+9XyW0E/5QE7k5OgiHQt7 +Vz05/IKEdzsZAhlL1PV+2hikU3bpqFS3XUag2oVp2T7KXj+mQ57zErip8eHQ +npdUPk4eEfrETyBjte7IBco84315XCIE9r4wqymm/NrFTIeQIHC4sjR4hPLd +t7WvdzEITNezEF//igQ/Kw0vezkC44oXU7Uo67bl/xOgQGCxfMK8C2U+AyIl +RYlA7swvOyIp91ddVShRI7Dp/dcDuZTz1VfVvNQicDLQz6GBcgD7woEpJDBy +zHHPEGXDzTMTvAYE8rvECf2kLJTlEbplL/X9hcEW3i4SPoi9EzYyJ7DkspYn +jXJxknnBEWsCsxuCJxQph6yp1w23I/C7wpWDmpTNIjR7Mp0I1F5pxdahLPm3 +4PgzNwJHTxdMG1Ce8GdwvT9KoI9dmKQR5fJv11IXvQkc+bdS3ZBylOfqrSJ+ +BKrI4S59yjZDwbU7zhGY2DevzKQsbTdru/8Cge9vNAmpUP7+0nPSJ4zA+T1Z +4zKUq/e+D4uPIlA65liRIOX4OgvR/DgCT7/mO8JJ2Z7ZUNiUSKC424V1E9Tz +ypfu1B9NIbB1R2b+S8o/txb1LksjUGKDx65Sys/vSZ1gZBE4FldVf43yNXrq +MrxHPf/CNT0/ysr8F7cFktT16mNkZSlzxMzVpZZS68+Njluk3mc71792pRUE +5p7tmGyhfGzOMmK6nsBO+HHH/f/58G4UW9dCoF9T3U/F/+djVIut0EnlxT3X +dIbKU3aP9FuPPgIHteJn/Cj7Wlz3iRggkLYyeI8SZWzmXXHnA4EBq93Sxqm8 +vq+Y394/SaDwr2+WVpSF0p9fsuJioEp5EMcyKv8fhJnivjwMTFM+F5xL9U8x +iyQTeBl4NMiAx5iyWeiNd83CDKyT3K8VTvVflLuXso4CA9dl6et1U/1q0z/Y +6KjEQFuyV8GFsvQBa4fzagws1DLZNEH1d7XhrqjHyEDaz3e2C01UPbfw9Sta +M1AiwO7pODUv5tPELqrYMfDDU8aQC+XZdTLSmk4MpDf1a/ZQ82VyRvNf/aMM +5Joj4svrSRiucJ23C2Kg86eI9w61JAwoel93DmXgA63rdc9qqH5MP6t9JJKB +BitZY5KUX4fFhZ68wkC7tC1fuqpJaN77eG3UXQaWJ1sv0Kqofn/6Hxn3gIF/ +9lYMHaPmYd22VqukIgZmmW9cX0LNzyqBoRu3yxi4jWdIFyqo+rxdJVfSxsDO +SL11Kk+oeXnMEYbnGCi4uE/lOjXPU957Do8uMrDfQPNzGTXvk81ORXxdYuCA +ROXsG2o/iFeJavmxUgrvNTXwrSkkIfQXeWCdpBRWBxQGWD2g8hCz3EfbQAr1 +7l1c7pFFgnZefsa1a1KYWF3KusEi4S09L333TSl8Nlfaep7azwKu3b89my6F +cfEnu+3jqf31Ys4ty/tSWPGhzFwolsqjbUbq2kopfMghx3MikoTNy5NZl4ak +cKJT1PBJEJUHp8AQfwVp3N8ZFcP2JKGk61ywjJI0Rh7q2LTPgwQr47MXunZI +42PuFPZnaj9P3HH6vDJIo5rJ2TAxVxJ415w4O2khjTbamhauDiQsK3PxOXJG +GsP13VwTLUiY5jd2tqmRRt2Oz7LHNUjo8WJ0/tsojZVX97jmqFH5aFiE4FZp +jD2SYf5elQRWQB4t97U0XhAy0dNXImH78JqBn+PSWOX1Pm9+MwneZIdDmoAM +No/G350UI2HczPrQBzcZVKiib1b9xYYPsc42vtyy2Bgx8sKhhA3e4wqM7Wtk +sfd61TfVh2xY2PPz61c+Wcyaa7NcRVLnPa7EiKNishiY2zNRlM+G7edqHzkr +yuLNRx3xn+6wIchdVsBsvyxqR+mc50ykzn+7Jjq2pMuiyKrQpN9ebDD6dsbo +o5ocPtAwLVeTpM5vrjynHgVvwtqG+i+21YXU/w9hzsiazRikskRLoBcAf5ts +PPubPD49fsG8JTgPxKOKzNXUFFBt2PzLupz7kLpFk0/AQxGVvF9ejhm4B81i +OjtmrmzFHZNuE4USObBTvIa17fU21N2L/gIa2bCWK8vvcOh2/J68gYsemAWS +F2naB2WVUOHATG30vQxYKWNfatmohMEsHSu5wTTYyhQtOuOgjJpDmztXv74B +vv38tcYcKvhi9POI/NMU+DYTa22UqoIDf2dpNmuuwp5tDTeMFFWxju98zcab +iVA1o/VroV0VP84vW5OoyAJvBeW+F+47MFlLoDuTGQvMSbeugyvVMG2kIG9Y +Iwp2S4uY8mapoeGtse66/nDYFBJ9tkZdHUOGiD1NUxdB3l3zmUyfOsoU8cuf +MrgA7lWe4Y9OaqBTcBSfQfE5eJbR5TYtqInEXG7RMtfTMJu7tLDtsSaWHvA5 +JPLfSXCVyVt5w3QnRohttBYnj8O0fJJa8dROnEvkCVOy8IQn2b+G5qK0cOmN ++9lP/G6gpue3YByjhQ8rVZzTudygZGhiTUacFiYk3LZ2mXWFYsl+deNELXRu +PGy14rUr5KdWx92+qYW7+5PXNVx3hYzYCM09hVroSLswTZNyhct+666kvtJC +0QEXe1GmC9jpS6GWpDb6W+NL7jhn+NPFs7aWro2fefscuIKdIcN98q2xlDa2 +f96qt/KkM3y6VHbGbpM2xp1x41S1dgbfJrOic8raOHP+R84ySWeI3nde8omB +Ns4pMp3FXJ2g3Lb7t+oJbWQOyX0lqh1g4/HIsq3V2ug2yaes9NAO4peO7Iip +0Ub+DbKi4Wl2wJloQI7WaeO9BqmznyLtYLx0+f2MJmp9e6+e67W3g3KO8FT+ +V9ookkQtgdsO7JJDzsx/1Ea913NisU4HIbXi3I6q1UwU5Ht3t0fMFgRXeZGm +B5g4NrU0LlppDdl6QQFTB5nId2YOJu5Zg3JQvF6SPRMdrojLdyRZw74pdnfP +YSaOdsWwGo5Zw6XXcz9dvZgo4bHoGSBuDT+ygnUDLjIxJTbZdyLECvq0kl7l +5DGxxrPfId96P3iezr5lVMjEBw0KTwP19sN8YYn7BJuJ/7ITzO2U9gM/o2dB +qZSJBT/6x/R598NeHgnxp9VMbPAYLWmvt4TKrhy3V91M1Ji4GZGnaQnGa58o ++vcwscP60PajmyyhZ0/TvMhbJnrldR/ZIWwJs+VfohwHmWgWmWX6c9YCFDO3 +F3wep+zjNKxIWkBln45/7FcmMhoTmx0zLMB4w37YNsVEBTX7ibQECzgSefqF +3xwTlc2XPzLwtoDZ6ks3hH8wMdPt1m62gwWELqa4li8y0dxFY0zO1AL4VO8r +OPxhYtLRmisF2hZw+3j53NISE7csbNLQUbCA/wEqL+Ur + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06964547152470302}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[{ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 0.}, {2., 0.}, {3., 4388.}}]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + TagBox[ + {RGBColor[0.95, 0.627, 0.1425], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 1.}, {2., 0.}, {3., 13039.}}]}, + Annotation[#, "Charting`Private`Tag#2"]& ], + TagBox[ + {RGBColor[0.455, 0.7, 0.21], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 2.}, {2., 0.}, {3., 21317.}}]}, + Annotation[#, "Charting`Private`Tag#3"]& ], + TagBox[ + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 3.}, {2., 0.}, {3., 28996.}}]}, + Annotation[#, "Charting`Private`Tag#4"]& ], + TagBox[ + {RGBColor[0.578, 0.51, 0.85], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 4.}, {2., 0.}, {3., 35881.}}]}, + Annotation[#, "Charting`Private`Tag#5"]& ], + TagBox[ + {RGBColor[0.772079, 0.431554, 0.102387], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 5.}, {2., 0.}, {3., 41813.}}]}, + Annotation[#, "Charting`Private`Tag#6"]& ], + TagBox[ + {RGBColor[0., 0.6, 0.6], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 6.}, {2., 0.}, {3., 46685.}}]}, + Annotation[#, "Charting`Private`Tag#7"]& ], + TagBox[ + {RGBColor[0.9, 0.36, 0.684], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 7.}, {2., 0.}, {3., 50429.}}]}, + Annotation[#, "Charting`Private`Tag#8"]& ], + TagBox[ + {RGBColor[0.56, 0.7, 0.], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 8.}, {2., 0.}, {3., 53035.}}]}, + Annotation[#, "Charting`Private`Tag#9"]& ], + TagBox[ + {RGBColor[0.9, 0.54, 0.], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 9.}, {2., 0.}, {3., 54525.}}]}, + Annotation[#, "Charting`Private`Tag#10"]& ], + TagBox[ + {RGBColor[0.585, 0.5976, 0.9], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 10.}, {2., 0.}, {3., 54971.}}]}, + Annotation[#, "Charting`Private`Tag#11"]& ], + TagBox[ + {RGBColor[0.9, 0.45, 0.45], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 11.}, {2., 0.}, {3., 54465.}}]}, + Annotation[#, "Charting`Private`Tag#12"]& ], + TagBox[ + {RGBColor[0.7632186717367253, 0.8174402144034898, 0.], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 12.}, {2., 0.}, {3., 53131.}}]}, + Annotation[#, "Charting`Private`Tag#13"]& ], + TagBox[ + {RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + PointSize[0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 13.}, {2., 0.}, {3., 51096.}}]}, + Annotation[#, "Charting`Private`Tag#14"]& ], + TagBox[ + {RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + PointSize[0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 14.}, {2., 0.}, {3., 48507.}}]}, + Annotation[#, "Charting`Private`Tag#15"]& ], + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 15.}, {2., 0.}, {3., 45494.}}]}, + Annotation[#, "Charting`Private`Tag#16"]& ], + TagBox[ + {RGBColor[0.95, 0.627, 0.1425], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 16.}, {2., 0.}, {3., 42194.}}]}, + Annotation[#, "Charting`Private`Tag#17"]& ], + TagBox[ + {RGBColor[0.455, 0.7, 0.21], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 17.}, {2., 0.}, {3., 38723.}}]}, + Annotation[#, "Charting`Private`Tag#18"]& ], + TagBox[ + {RGBColor[0.922526, 0.385626, 0.209179], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 18.}, {2., 0.}, {3., 3519.}}]}, + Annotation[#, "Charting`Private`Tag#19"]& ], + TagBox[ + {RGBColor[0.578, 0.51, 0.85], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[{{1., 19.}, {2., 0.}, {3., 31681.}}]}, + Annotation[#, "Charting`Private`Tag#20"]& ], + TagBox[ + {RGBColor[0.772079, 0.431554, 0.102387], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[{{1., 20.}, {2., 0.}, {3., 28272.}}]}, + Annotation[#, "Charting`Private`Tag#21"]& ]}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 0.}, {2., 0.}, {3., 4388.}}]}, + "Charting`Private`Tag#1"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 1.}, {2., 0.}, {3., 13039.}}]}, + "Charting`Private`Tag#2"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 2.}, {2., 0.}, {3., 21317.}}]}, + "Charting`Private`Tag#3"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 3.}, {2., 0.}, {3., 28996.}}]}, + "Charting`Private`Tag#4"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 4.}, {2., 0.}, {3., 35881.}}]}, + "Charting`Private`Tag#5"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 5.}, {2., 0.}, {3., 41813.}}]}, + "Charting`Private`Tag#6"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Point[{{1., 6.}, {2., 0.}, {3., 46685.}}]}, + "Charting`Private`Tag#7"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Point[{{1., 7.}, {2., 0.}, {3., 50429.}}]}, + "Charting`Private`Tag#8"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Point[{{1., 8.}, {2., 0.}, {3., 53035.}}]}, + "Charting`Private`Tag#9"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Point[{{1., 9.}, {2., 0.}, {3., 54525.}}]}, + "Charting`Private`Tag#10"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Point[{{1., 10.}, {2., 0.}, {3., 54971.}}]}, + "Charting`Private`Tag#11"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Point[{{1., 11.}, {2., 0.}, {3., 54465.}}]}, + "Charting`Private`Tag#12"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Point[{{1., 12.}, {2., 0.}, {3., 53131.}}]}, + "Charting`Private`Tag#13"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Point[{{1., 13.}, {2., 0.}, {3., 51096.}}]}, + "Charting`Private`Tag#14"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Point[{{1., 14.}, {2., 0.}, {3., 48507.}}]}, + "Charting`Private`Tag#15"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 15.}, {2., 0.}, {3., 45494.}}]}, + "Charting`Private`Tag#16"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 16.}, {2., 0.}, {3., 42194.}}]}, + "Charting`Private`Tag#17"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 17.}, {2., 0.}, {3., 38723.}}]}, + "Charting`Private`Tag#18"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 18.}, {2., 0.}, {3., 3519.}}]}, + "Charting`Private`Tag#19"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 19.}, {2., 0.}, {3., 31681.}}]}, + "Charting`Private`Tag#20"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 20.}, {2., 0.}, {3., 28272.}}]}, + "Charting`Private`Tag#21"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 3.}, {0, 54971.}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0., 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 3.}, {0, 54971.}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0., 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 0.}, {2., 0.}, {3., 4388.}}]}, + "Charting`Private`Tag#1"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 1.}, {2., 0.}, {3., 13039.}}]}, + "Charting`Private`Tag#2"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 2.}, {2., 0.}, {3., 21317.}}]}, + "Charting`Private`Tag#3"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 3.}, {2., 0.}, {3., 28996.}}]}, + "Charting`Private`Tag#4"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 4.}, {2., 0.}, {3., 35881.}}]}, + "Charting`Private`Tag#5"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 5.}, {2., 0.}, {3., 41813.}}]}, + "Charting`Private`Tag#6"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Point[{{1., 6.}, {2., 0.}, {3., 46685.}}]}, + "Charting`Private`Tag#7"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Point[{{1., 7.}, {2., 0.}, {3., 50429.}}]}, + "Charting`Private`Tag#8"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Point[{{1., 8.}, {2., 0.}, {3., 53035.}}]}, + "Charting`Private`Tag#9"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Point[{{1., 9.}, {2., 0.}, {3., 54525.}}]}, + "Charting`Private`Tag#10"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Point[{{1., 10.}, {2., 0.}, {3., 54971.}}]}, + "Charting`Private`Tag#11"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Point[{{1., 11.}, {2., 0.}, {3., 54465.}}]}, + "Charting`Private`Tag#12"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Point[{{1., 12.}, {2., 0.}, {3., 53131.}}]}, + "Charting`Private`Tag#13"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Point[{{1., 13.}, {2., 0.}, {3., 51096.}}]}, + "Charting`Private`Tag#14"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Point[{{1., 14.}, {2., 0.}, {3., 48507.}}]}, + "Charting`Private`Tag#15"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[{{1., 15.}, {2., 0.}, {3., 45494.}}]}, + "Charting`Private`Tag#16"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Point[{{1., 16.}, {2., 0.}, {3., 42194.}}]}, + "Charting`Private`Tag#17"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Point[{{1., 17.}, {2., 0.}, {3., 38723.}}]}, + "Charting`Private`Tag#18"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Point[{{1., 18.}, {2., 0.}, {3., 3519.}}]}, + "Charting`Private`Tag#19"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Point[{{1., 19.}, {2., 0.}, {3., 31681.}}]}, + "Charting`Private`Tag#20"], + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Point[{{1., 20.}, {2., 0.}, {3., 28272.}}]}, + "Charting`Private`Tag#21"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 3.}, {0, 54971.}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0., 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[ + 0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06964547152470302}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993828733758184*^9}, + CellLabel-> + "Out[231]=",ExpressionUUID->"5ab087a8-c616-4408-af60-fceed1871356"] +}, Open ]], Cell[CellGroupData[{ @@ -13938,66 +17400,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + "In[232]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ -\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ -734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ -too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 225, 201, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512859148*^9}, - CellLabel-> - "During evaluation of \ -In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512868147*^9}, - CellLabel-> - "During evaluation of \ -In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.1754595436988559`*^-163\\\", \ \\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ 2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ \\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335128761463`*^9}, +be lost.\"", 2, 232, 81, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.9938287337942533`*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +In[232]:=",ExpressionUUID->"a656f2b9-9e06-4b6f-9953-65a80357b41e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2818813414582095`*^-166\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 232, 82, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.9938287338005667`*^9}, + CellLabel-> + "During evaluation of \ +In[232]:=",ExpressionUUID->"7a73e394-cdc8-4a77-99dc-ba853bcfb1b0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3979381786360164`*^-169\\\", \ +\\\"16424312045547973917068250855478962797836184904556443340043143969743430318\ +444318157938322185531163516963194464925547245426704384000000000000000000000000\ +00\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 232, 83, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993828733805706*^9}, + CellLabel-> + "During evaluation of \ +In[232]:=",ExpressionUUID->"f358453b-ce09-4443-844b-a08d508d1deb"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 225, 204, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333512885145*^9}, +during this calculation.\"", 2, 232, 84, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991333512859148*^9, 3.993828733811989*^9}, CellLabel-> "During evaluation of \ -In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +In[232]:=",ExpressionUUID->"909c2adc-fce1-43d4-8fdb-f67fbf315e1a"], -Cell[BoxData["9.779568499633264`"], "Output", - CellChangeTimes->{3.9913335200445786`*^9}, +Cell[BoxData["10.779179773443264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9, 3.993828765322654*^9}, CellLabel-> - "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] + "Out[232]=",ExpressionUUID->"7c33c904-507c-45d9-bd55-215bed3ed919"] }, Open ]], Cell[CellGroupData[{ @@ -14064,68 +17530,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491385551624`*^9, - 3.991849142620474*^9}},ExpressionUUID->"f2835c98-560f-8e47-bdab-\ -0d2700971836"], + CellChangeTimes->{{3.9918491385551624`*^9, 3.991849142620474*^9}}, + CellLabel-> + "In[233]:=",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 226, 205, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200775414`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7738362542778367`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 233, 85, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.993828765355618*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +In[233]:=",ExpressionUUID->"81a1bae3-5847-4d98-b47c-dee66abcec1f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 206, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200875454`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.3594483529002043`*^-212\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 233, 86, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.9938287653617373`*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +In[233]:=",ExpressionUUID->"cb0caa2f-9d48-4749-a847-8dce2da06547"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 226, - 207, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335200945435`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.8514462280514725`*^-217\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 233, 87, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.993828765366778*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +In[233]:=",ExpressionUUID->"f2891cf9-a797-43e1-a539-4233c6240e8f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 226, 208, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335201035423`*^9}, +during this calculation.\"", 2, 233, 88, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335200775414`*^9, 3.993828765371396*^9}, CellLabel-> "During evaluation of \ -In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +In[233]:=",ExpressionUUID->"92cb942b-d510-4071-8fa9-602f6eb3cd05"], -Cell[BoxData["0.7348275136088338`"], "Output", - CellChangeTimes->{3.9913335271231823`*^9}, +Cell[BoxData["0.7885379692326892`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9, 3.993828770156513*^9}, CellLabel-> - "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] + "Out[233]=",ExpressionUUID->"158c2972-dde8-4a0c-97f6-85277ec80fa6"] }, Open ]], Cell[CellGroupData[{ @@ -14146,8 +17616,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14192,68 +17661,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849146408966*^9, - 3.9918491485488663`*^9}},ExpressionUUID->"ca837916-250f-4d4e-8368-\ -5a08f479e656"], + CellChangeTimes->{{3.991849146408966*^9, 3.9918491485488663`*^9}}, + CellLabel-> + "In[234]:=",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 227, 209, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271591835`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7738362542778367`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 234, 89, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.9938287701883717`*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +In[234]:=",ExpressionUUID->"a688cab5-e77b-4bb5-86ef-90995a86af0c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 210, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335271681843`*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.3594483529002043`*^-212\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 234, 90, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.993828770193397*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +In[234]:=",ExpressionUUID->"9cbaa64b-825d-4d15-9565-2e14028843c0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 227, - 211, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527176182*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.8514462280514725`*^-217\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 234, 91, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.9938287701992292`*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +In[234]:=",ExpressionUUID->"845265f8-1e1b-48c1-bcd8-7a6be55a9593"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 227, 212, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333527184183*^9}, +during this calculation.\"", 2, 234, 92, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335271591835`*^9, 3.993828770204216*^9}, CellLabel-> "During evaluation of \ -In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +In[234]:=",ExpressionUUID->"f80c4250-4350-4818-9fe5-2782f75e6d78"], -Cell[BoxData["5.221864211842707`"], "Output", - CellChangeTimes->{3.9913335331581306`*^9}, +Cell[BoxData["32.5524089731154`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9, 3.9938287750249166`*^9}, CellLabel-> - "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] + "Out[234]=",ExpressionUUID->"79eab173-910f-4628-a43c-36b9931f459b"] }, Open ]], Cell[CellGroupData[{ @@ -14274,8 +17747,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -14320,68 +17792,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918491518098984`*^9, - 3.9918491543107758`*^9}},ExpressionUUID->"b579991f-985b-234a-94aa-\ -ed18c097f8c0"], + CellChangeTimes->{{3.9918491518098984`*^9, 3.9918491543107758`*^9}}, + CellLabel-> + "In[235]:=",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.431742058031866`*^-195\\\", \ -\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ -098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 228, 213, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335331923027`*^9}, + "\"\\!\\(\\*FractionBox[\\\"2.7738362542778367`*^-207\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 235, 93, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.993828775057705*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +In[235]:=",ExpressionUUID->"0cdd9246-b0ef-4ca7-a199-faa114e36d0f"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.710159783996166`*^-199\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 214, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533202278*^9}, + "\"\\!\\(\\*FractionBox[\\\"4.3594483529002043`*^-212\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 235, 94, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9938287750630217`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +In[235]:=",ExpressionUUID->"024c4f92-46ec-46e9-9eb9-01d7f40906f8"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.457041610992806`*^-203\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 228, - 215, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335332102795`*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.8514462280514725`*^-217\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 235, 95, + 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9938287750689697`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +In[235]:=",ExpressionUUID->"07b4c87e-4969-44e6-979f-b138a5e379db"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 228, 216, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333533218281*^9}, +during this calculation.\"", 2, 235, 96, 31384839423362359874, "kernel 2"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913335331923027`*^9, 3.9938287750752163`*^9}, CellLabel-> "During evaluation of \ -In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +In[235]:=",ExpressionUUID->"5f139707-dec0-46a6-b593-2d755e9b5613"], -Cell[BoxData["15.545902834190647`"], "Output", - CellChangeTimes->{3.9913335366055527`*^9}, +Cell[BoxData["6.175942072440718`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9, 3.9938287780947847`*^9}, CellLabel-> - "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] + "Out[235]=",ExpressionUUID->"c69788c6-842b-44de-970a-51b4b51feaa6"] }, Open ]], Cell[CellGroupData[{ @@ -14390,18 +17866,19 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918491594691143`*^9, - 3.9918491632611027`*^9}},ExpressionUUID->"afb7855c-8700-d444-926c-\ -6d96abe14e67"], - -Cell[BoxData["0.08155763943441016`"], "Output", - CellChangeTimes->{3.9913335366395893`*^9}, + CellChangeTimes->{{3.9918491594691143`*^9, 3.9918491632611027`*^9}}, CellLabel-> - "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] + "In[236]:=",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], + +Cell[BoxData["0.05561339865527393`"], "Output", + CellChangeTimes->{3.9913335366395893`*^9, 3.993828778122473*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"1451bc38-e99e-4769-8a71-9053d3580a5f"] }, Open ]] }, -WindowSize->{1440, 882}, -WindowMargins->{{0, Automatic}, {0, 18}}, +Evaluator->"kernel 2", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {Automatic, 191.25}}, CellContext->Notebook, Magnification:>0.8 Inherited, FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", @@ -14420,619 +17897,639 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 519, 9, 23, "Input",ExpressionUUID->"dd9dcfd4-9683-421f-bda5-b31da0d323d6"], -Cell[1098, 33, 251, 4, 26, "Output",ExpressionUUID->"71f089d7-0dcf-4f9c-8aa5-523fa7ebebca"] +Cell[576, 22, 541, 9, 23, "Input",ExpressionUUID->"dd9dcfd4-9683-421f-bda5-b31da0d323d6"], +Cell[1120, 33, 292, 4, 26, "Output",ExpressionUUID->"6dab1c2b-78c0-4ea0-b1eb-28eda5dd9401"] }, Open ]], Cell[CellGroupData[{ -Cell[1386, 42, 253, 5, 23, "Input",ExpressionUUID->"7dcc824c-c714-473c-855d-4595e82aca01"], -Cell[1642, 49, 398, 7, 26, "Output",ExpressionUUID->"fd1bccfd-34c1-4e94-8d81-78ac9daa80da"] +Cell[1449, 42, 249, 4, 23, "Input",ExpressionUUID->"7dcc824c-c714-473c-855d-4595e82aca01"], +Cell[1701, 48, 442, 7, 26, "Output",ExpressionUUID->"2a37717b-cdf5-42d4-9241-af7ee8abbba8"] }, Open ]], Cell[CellGroupData[{ -Cell[2077, 61, 233, 5, 23, "Input",ExpressionUUID->"584dc846-b443-4e78-9de7-8414a101f8a2"], -Cell[2313, 68, 374, 7, 26, "Output",ExpressionUUID->"b7546eb2-a7dd-432b-b569-c556729c4981"] +Cell[2180, 60, 229, 4, 23, "Input",ExpressionUUID->"584dc846-b443-4e78-9de7-8414a101f8a2"], +Cell[2412, 66, 413, 6, 26, "Output",ExpressionUUID->"b016a604-ec75-421e-b6b2-c31c69ab8095"] }, Open ]], Cell[CellGroupData[{ -Cell[2724, 80, 180, 4, 23, "Input",ExpressionUUID->"5b808487-9536-4677-81b9-b32effd22817"], -Cell[2907, 86, 372, 7, 26, "Output",ExpressionUUID->"c004b49d-d6d2-4205-9f7f-dc9bf2c42278"] +Cell[2862, 77, 176, 3, 23, "Input",ExpressionUUID->"5b808487-9536-4677-81b9-b32effd22817"], +Cell[3041, 82, 414, 6, 26, "Output",ExpressionUUID->"3b27b0ba-d11a-414c-a080-c301c36a6964"] }, Open ]], Cell[CellGroupData[{ -Cell[3316, 98, 262, 8, 35, "Input",ExpressionUUID->"28f4a07e-cc9f-47d8-bbfe-99b8a159e621"], -Cell[3581, 108, 377, 7, 26, "Output",ExpressionUUID->"8143efd7-4f40-4f21-b8af-9c2f3a2aec4b"] +Cell[3492, 93, 258, 7, 35, "Input",ExpressionUUID->"28f4a07e-cc9f-47d8-bbfe-99b8a159e621"], +Cell[3753, 102, 417, 6, 26, "Output",ExpressionUUID->"09f6ad6b-d171-491c-9461-f71631408d95"] }, Open ]], Cell[CellGroupData[{ -Cell[3995, 120, 136, 3, 23, "Input",ExpressionUUID->"7b5372cd-097f-410a-9dde-ee8d7b47efcb"], -Cell[4134, 125, 373, 7, 26, "Output",ExpressionUUID->"3c21fed9-9378-4c6a-a321-bd30670a207e"] +Cell[4207, 113, 132, 2, 23, "Input",ExpressionUUID->"7b5372cd-097f-410a-9dde-ee8d7b47efcb"], +Cell[4342, 117, 417, 6, 26, "Output",ExpressionUUID->"235f8e4e-5b3d-4de7-8140-9da6313745c6"] }, Open ]], Cell[CellGroupData[{ -Cell[4544, 137, 281, 7, 23, "Input",ExpressionUUID->"790ed917-dfad-4a40-8347-e877a413e7b7"], -Cell[4828, 146, 391, 7, 26, "Output",ExpressionUUID->"b21841a9-d4b5-4e08-b7b5-53a7b1796a54"] +Cell[4796, 128, 277, 6, 23, "Input",ExpressionUUID->"790ed917-dfad-4a40-8347-e877a413e7b7"], +Cell[5076, 136, 431, 6, 26, "Output",ExpressionUUID->"0b9c52de-65e3-400c-b07e-389a7e0050a4"] }, Open ]], Cell[CellGroupData[{ -Cell[5256, 158, 262, 8, 23, "Input",ExpressionUUID->"001b5f74-5cee-4774-98c8-fb175cefbb28"], -Cell[5521, 168, 394, 7, 26, "Output",ExpressionUUID->"2b9b6d38-fe87-4971-96da-c998142b4518"] +Cell[5544, 147, 262, 8, 23, "Input",ExpressionUUID->"001b5f74-5cee-4774-98c8-fb175cefbb28"], +Cell[5809, 157, 438, 7, 38, "Output",ExpressionUUID->"25a255d8-5849-4c78-a4ea-d6bfcca57042"] }, Open ]], Cell[CellGroupData[{ -Cell[5952, 180, 247, 5, 23, "Input",ExpressionUUID->"d71ecc94-8318-4cd7-af7d-f1b9397248d9"], -Cell[6202, 187, 387, 7, 26, "Output",ExpressionUUID->"b636a8ff-d23e-489c-ac30-7ceba04fb959"] +Cell[6284, 169, 247, 5, 23, "Input",ExpressionUUID->"d71ecc94-8318-4cd7-af7d-f1b9397248d9"], +Cell[6534, 176, 433, 7, 38, "Output",ExpressionUUID->"a40daf56-488f-4473-94a6-d72486c0ce41"] }, Open ]], Cell[CellGroupData[{ -Cell[6626, 199, 249, 5, 23, "Input",ExpressionUUID->"1bea7163-2ebf-4d7c-ab40-26fa692583b8"], -Cell[6878, 206, 389, 7, 26, "Output",ExpressionUUID->"fb26e70a-aff0-4c8d-9f31-8849a625c144"] +Cell[7004, 188, 249, 5, 23, "Input",ExpressionUUID->"1bea7163-2ebf-4d7c-ab40-26fa692583b8"], +Cell[7256, 195, 434, 7, 38, "Output",ExpressionUUID->"83d91518-23a4-46d9-ad80-e0eb54bbdf66"] }, Open ]], Cell[CellGroupData[{ -Cell[7304, 218, 133, 3, 23, "Input",ExpressionUUID->"a3e3cd1f-cbf4-4e81-8bfc-93c03c56f907"], -Cell[7440, 223, 374, 7, 26, "Output",ExpressionUUID->"eb16effe-7bc1-46f1-b5da-bb2febd45703"] +Cell[7727, 207, 133, 3, 23, "Input",ExpressionUUID->"a3e3cd1f-cbf4-4e81-8bfc-93c03c56f907"], +Cell[7863, 212, 418, 7, 38, "Output",ExpressionUUID->"44089de1-0f97-4e28-9c6e-b4dce264d246"] }, Open ]], Cell[CellGroupData[{ -Cell[7851, 235, 133, 3, 23, "Input",ExpressionUUID->"c286758a-dd5f-4276-977f-87bcd04f953e"], -Cell[7987, 240, 372, 7, 26, "Output",ExpressionUUID->"397bad2c-5f0c-4cd4-9cea-c2e772ff5a8d"] +Cell[8318, 224, 133, 3, 23, "Input",ExpressionUUID->"c286758a-dd5f-4276-977f-87bcd04f953e"], +Cell[8454, 229, 418, 7, 38, "Output",ExpressionUUID->"f0a0c5ee-3faf-4b48-a3d0-1abe22648075"] }, Open ]], Cell[CellGroupData[{ -Cell[8396, 252, 561, 20, 67, "Input",ExpressionUUID->"1736b587-9844-4225-9978-48310d664cf7"], -Cell[8960, 274, 391, 7, 26, "Output",ExpressionUUID->"133b4f2a-ff50-4808-a266-e16ae8426cb3"] +Cell[8909, 241, 561, 20, 67, "Input",ExpressionUUID->"1736b587-9844-4225-9978-48310d664cf7"], +Cell[9473, 263, 435, 7, 38, "Output",ExpressionUUID->"c5fd47ab-4912-465b-9837-3608e47c1200"] }, Open ]], Cell[CellGroupData[{ -Cell[9388, 286, 561, 20, 67, "Input",ExpressionUUID->"156a2269-70bf-4726-8b57-80df2441dde8"], -Cell[9952, 308, 392, 7, 26, "Output",ExpressionUUID->"1146507e-0090-406e-a243-4f77cf2f31b8"] +Cell[9945, 275, 561, 20, 67, "Input",ExpressionUUID->"156a2269-70bf-4726-8b57-80df2441dde8"], +Cell[10509, 297, 440, 7, 38, "Output",ExpressionUUID->"a4314f09-1a0b-488e-b6ad-831ec7f00c33"] }, Open ]], Cell[CellGroupData[{ -Cell[10381, 320, 1496, 49, 67, "Input",ExpressionUUID->"13e44969-f264-4100-9ae0-ffcdb8a6ee14"], -Cell[11880, 371, 386, 7, 70, "Output",ExpressionUUID->"ca7106b1-8cd7-4d77-b856-40214148d0d6"] +Cell[10986, 309, 1496, 49, 67, "Input",ExpressionUUID->"13e44969-f264-4100-9ae0-ffcdb8a6ee14"], +Cell[12485, 360, 430, 7, 38, "Output",ExpressionUUID->"432339d8-e0ee-4a5c-847e-45fd98ef30f0"] }, Open ]], Cell[CellGroupData[{ -Cell[12303, 383, 1335, 45, 70, "Input",ExpressionUUID->"7d647c9c-fb30-46f9-ad54-2bca6c3ea417"], -Cell[13641, 430, 407, 8, 70, "Output",ExpressionUUID->"8eb5526c-ca9b-454d-9e72-3b94bb4239cf"] +Cell[12952, 372, 1335, 45, 67, "Input",ExpressionUUID->"7d647c9c-fb30-46f9-ad54-2bca6c3ea417"], +Cell[14290, 419, 453, 8, 38, "Output",ExpressionUUID->"d9c3fdfc-aac1-48e3-9ebb-b0ffbe816db5"] }, Open ]], Cell[CellGroupData[{ -Cell[14085, 443, 1335, 45, 70, "Input",ExpressionUUID->"27a549f5-e1cc-4650-b38b-1ad808b9d74d"], -Cell[15423, 490, 407, 8, 70, "Output",ExpressionUUID->"64903f7c-c056-4432-b67a-5fa35c8c85bc"] +Cell[14780, 432, 1335, 45, 67, "Input",ExpressionUUID->"27a549f5-e1cc-4650-b38b-1ad808b9d74d"], +Cell[16118, 479, 449, 8, 38, "Output",ExpressionUUID->"141c9fdb-4c01-4498-a5f9-bab261fe66dd"] }, Open ]], Cell[CellGroupData[{ -Cell[15867, 503, 1496, 49, 70, "Input",ExpressionUUID->"5e91c74f-1789-45c9-a214-2244c72ade7d"], -Cell[17366, 554, 385, 7, 70, "Output",ExpressionUUID->"31f182a9-76a8-47b9-8f55-c48f52b240d7"] +Cell[16604, 492, 1496, 49, 67, "Input",ExpressionUUID->"5e91c74f-1789-45c9-a214-2244c72ade7d"], +Cell[18103, 543, 431, 7, 38, "Output",ExpressionUUID->"9b70f539-b322-447a-a772-2190140554cf"] }, Open ]], Cell[CellGroupData[{ -Cell[17788, 566, 135, 3, 70, "Input",ExpressionUUID->"7a482116-c539-43ca-85e3-f73fb60f240c"], -Cell[17926, 571, 373, 7, 70, "Output",ExpressionUUID->"e64b6eb2-75dd-486e-8ee1-d800f1edbab4"] +Cell[18571, 555, 135, 3, 23, "Input",ExpressionUUID->"7a482116-c539-43ca-85e3-f73fb60f240c"], +Cell[18709, 560, 417, 7, 38, "Output",ExpressionUUID->"6dd89711-7689-4878-8c98-fe2983f460ec"] }, Open ]], Cell[CellGroupData[{ -Cell[18336, 583, 137, 3, 70, "Input",ExpressionUUID->"ea634259-306f-4340-9a17-572370411175"], -Cell[18476, 588, 381, 7, 70, "Output",ExpressionUUID->"5a9d1eaf-bc28-4a92-a9bd-717db8ce16da"] +Cell[19163, 572, 137, 3, 23, "Input",ExpressionUUID->"ea634259-306f-4340-9a17-572370411175"], +Cell[19303, 577, 425, 7, 38, "Output",ExpressionUUID->"a44566e0-bd2b-4010-a5f2-4c70e3c3b21d"] }, Open ]], Cell[CellGroupData[{ -Cell[18894, 600, 138, 3, 70, "Input",ExpressionUUID->"f54223b7-3ea2-47c0-86bb-064a003a0c65"], -Cell[19035, 605, 384, 7, 70, "Output",ExpressionUUID->"2760ec95-9401-42cb-8266-78f21b99cbf3"] +Cell[19765, 589, 138, 3, 23, "Input",ExpressionUUID->"f54223b7-3ea2-47c0-86bb-064a003a0c65"], +Cell[19906, 594, 430, 7, 38, "Output",ExpressionUUID->"7f88315d-c557-4744-b4b5-2e4df78b9d63"] }, Open ]], Cell[CellGroupData[{ -Cell[19456, 617, 223, 5, 70, "Input",ExpressionUUID->"0541a946-202c-4b2c-83f8-ebb523379191"], -Cell[19682, 624, 384, 8, 70, "Output",ExpressionUUID->"4c02c8a0-a1df-4c84-a94e-5fcbaab897df"] +Cell[20373, 606, 223, 5, 23, "Input",ExpressionUUID->"0541a946-202c-4b2c-83f8-ebb523379191"], +Cell[20599, 613, 432, 8, 38, "Output",ExpressionUUID->"10c181c9-1933-4313-8003-9ff8d241ef03"] }, Open ]], Cell[CellGroupData[{ -Cell[20103, 637, 138, 3, 70, "Input",ExpressionUUID->"e87a0bbb-4305-42aa-bd42-1c6fa342cfc8"], -Cell[20244, 642, 380, 7, 70, "Output",ExpressionUUID->"d95a15bc-2ec7-4a91-ae7c-98832b6c97d7"] +Cell[21068, 626, 138, 3, 23, "Input",ExpressionUUID->"e87a0bbb-4305-42aa-bd42-1c6fa342cfc8"], +Cell[21209, 631, 424, 7, 38, "Output",ExpressionUUID->"d867ac92-e81c-456a-8dc9-ee294e359fc6"] }, Open ]], Cell[CellGroupData[{ -Cell[20661, 654, 331, 6, 70, "Input",ExpressionUUID->"7c0eb7f0-9d06-45cd-b294-8a4c83a9759a"], -Cell[20995, 662, 373, 7, 70, "Output",ExpressionUUID->"255991d9-42a7-403f-a2a3-44f6ef5a8dd8"] +Cell[21670, 643, 331, 6, 23, "Input",ExpressionUUID->"7c0eb7f0-9d06-45cd-b294-8a4c83a9759a"], +Cell[22004, 651, 417, 7, 38, "Output",ExpressionUUID->"0d278ec9-2f3d-46fe-8e6d-bee550f96eb0"] }, Open ]], Cell[CellGroupData[{ -Cell[21405, 674, 302, 6, 70, "Input",ExpressionUUID->"8b2b0bd6-e999-4d3a-8603-6ef666baf6b8"], -Cell[21710, 682, 405, 7, 70, "Output",ExpressionUUID->"cbb76a17-a13f-4118-a7e4-03f53fb74bda"] +Cell[22458, 663, 302, 6, 23, "Input",ExpressionUUID->"8b2b0bd6-e999-4d3a-8603-6ef666baf6b8"], +Cell[22763, 671, 452, 8, 38, "Output",ExpressionUUID->"ebfbc936-d040-45a4-b9df-a8d9409524a9"] }, Open ]], Cell[CellGroupData[{ -Cell[22152, 694, 223, 5, 70, "Input",ExpressionUUID->"161e6521-bc56-4dfd-a046-9fc45d73a999"], -Cell[22378, 701, 373, 7, 70, "Output",ExpressionUUID->"67c9d1fd-5617-49c5-8946-d54d59d8cc4b"] +Cell[23252, 684, 223, 5, 23, "Input",ExpressionUUID->"161e6521-bc56-4dfd-a046-9fc45d73a999"], +Cell[23478, 691, 419, 7, 38, "Output",ExpressionUUID->"7d769a82-1c5f-47d2-aa48-19c411f2b8c0"] }, Open ]], Cell[CellGroupData[{ -Cell[22788, 713, 354, 11, 70, "Input",ExpressionUUID->"e2ee5596-377d-47e9-ba0e-ba4715189ab1"], -Cell[23145, 726, 396, 7, 70, "Output",ExpressionUUID->"6d065012-6ae0-4a15-ab7e-23c0758da6b5"] +Cell[23934, 703, 354, 11, 35, "Input",ExpressionUUID->"e2ee5596-377d-47e9-ba0e-ba4715189ab1"], +Cell[24291, 716, 442, 7, 38, "Output",ExpressionUUID->"0e6396c6-aecd-4bf8-bc55-9cf99047021c"] }, Open ]], Cell[CellGroupData[{ -Cell[23578, 738, 354, 11, 70, "Input",ExpressionUUID->"83eb4ed2-6dfc-4ba7-ac7e-dc009b382bed"], -Cell[23935, 751, 406, 8, 70, "Output",ExpressionUUID->"9075a821-a828-4d8d-a659-e129e1cf260d"] +Cell[24770, 728, 354, 11, 35, "Input",ExpressionUUID->"83eb4ed2-6dfc-4ba7-ac7e-dc009b382bed"], +Cell[25127, 741, 454, 8, 38, "Output",ExpressionUUID->"37c53f07-6bfa-4cd1-b82b-b869df98f58f"] }, Open ]], Cell[CellGroupData[{ -Cell[24378, 764, 998, 27, 70, "Input",ExpressionUUID->"8072c677-ed25-44a8-9254-3d3d9447cfe4"], -Cell[25379, 793, 393, 7, 70, "Output",ExpressionUUID->"2d8ed23b-c09e-4b8c-8dd6-af975a869850"] +Cell[25618, 754, 998, 27, 38, "Input",ExpressionUUID->"8072c677-ed25-44a8-9254-3d3d9447cfe4"], +Cell[26619, 783, 439, 7, 38, "Output",ExpressionUUID->"5c5f4e50-8118-4501-a2c5-38774eb5ce2b"] }, Open ]], Cell[CellGroupData[{ -Cell[25809, 805, 203, 4, 70, "Input",ExpressionUUID->"036b3ae2-630a-4a38-a182-65b537997030"], -Cell[26015, 811, 371, 7, 70, "Output",ExpressionUUID->"7227e8b9-5a37-40fd-979a-c27b8d806e04"] +Cell[27095, 795, 203, 4, 23, "Input",ExpressionUUID->"036b3ae2-630a-4a38-a182-65b537997030"], +Cell[27301, 801, 415, 7, 38, "Output",ExpressionUUID->"8a966946-e3e9-43aa-bcc8-6be658dd6c5a"] }, Open ]], Cell[CellGroupData[{ -Cell[26423, 823, 338, 6, 70, "Input",ExpressionUUID->"9edaecee-d32e-4be8-bd42-1e687186fb4d"], -Cell[26764, 831, 374, 7, 70, "Output",ExpressionUUID->"7979909c-af2f-44c7-a643-1a5e2374f69b"] +Cell[27753, 813, 338, 6, 23, "Input",ExpressionUUID->"9edaecee-d32e-4be8-bd42-1e687186fb4d"], +Cell[28094, 821, 420, 7, 38, "Output",ExpressionUUID->"6fee1a2c-6c08-4575-bb03-742c6b64e22e"] }, Open ]], -Cell[27153, 841, 177, 3, 70, "Input",ExpressionUUID->"c32c1952-2063-4bc0-b522-543f9ed15363"], +Cell[28529, 831, 177, 3, 23, "Input",ExpressionUUID->"c32c1952-2063-4bc0-b522-543f9ed15363"], Cell[CellGroupData[{ -Cell[27355, 848, 337, 6, 70, "Input",ExpressionUUID->"7a216ff1-d300-4bf0-ab92-54cca1e0ad89"], -Cell[27695, 856, 374, 7, 70, "Output",ExpressionUUID->"628cf8a4-9553-489c-bada-ca3dbd35ff46"] +Cell[28731, 838, 337, 6, 23, "Input",ExpressionUUID->"7a216ff1-d300-4bf0-ab92-54cca1e0ad89"], +Cell[29071, 846, 417, 7, 38, "Output",ExpressionUUID->"f936c534-6bf4-4db9-a1e7-72c6685e2933"] }, Open ]], -Cell[28084, 866, 177, 3, 70, "Input",ExpressionUUID->"4c5193ce-02f4-44a7-843f-31cc0aca3d1c"], +Cell[29503, 856, 177, 3, 23, "Input",ExpressionUUID->"4c5193ce-02f4-44a7-843f-31cc0aca3d1c"], Cell[CellGroupData[{ -Cell[28286, 873, 341, 6, 70, "Input",ExpressionUUID->"fd838566-0558-4d1c-b173-75f88e252bd8"], -Cell[28630, 881, 372, 7, 70, "Output",ExpressionUUID->"16118013-5872-490c-ae47-4576fc7e80ad"] +Cell[29705, 863, 341, 6, 23, "Input",ExpressionUUID->"fd838566-0558-4d1c-b173-75f88e252bd8"], +Cell[30049, 871, 416, 7, 38, "Output",ExpressionUUID->"217aa148-1a6e-4845-86a0-6755725c8ef4"] }, Open ]], -Cell[29017, 891, 177, 3, 70, "Input",ExpressionUUID->"7e3dccb6-c958-4c9c-8079-58ceb9f9b614"], +Cell[30480, 881, 177, 3, 23, "Input",ExpressionUUID->"7e3dccb6-c958-4c9c-8079-58ceb9f9b614"], Cell[CellGroupData[{ -Cell[29219, 898, 364, 6, 70, "Input",ExpressionUUID->"2c752b9c-11a9-43dc-81e0-db5582a71605"], -Cell[29586, 906, 377, 7, 70, "Output",ExpressionUUID->"48133414-a63b-4332-8ded-06be5ec919ca"] +Cell[30682, 888, 364, 6, 23, "Input",ExpressionUUID->"2c752b9c-11a9-43dc-81e0-db5582a71605"], +Cell[31049, 896, 421, 7, 38, "Output",ExpressionUUID->"c9d6d796-2762-417a-8a66-9d4afe41f637"] }, Open ]], -Cell[29978, 916, 175, 3, 70, "Input",ExpressionUUID->"69ed9a70-1acf-4787-9df1-c8a58e37f569"], +Cell[31485, 906, 175, 3, 23, "Input",ExpressionUUID->"69ed9a70-1acf-4787-9df1-c8a58e37f569"], Cell[CellGroupData[{ -Cell[30178, 923, 311, 6, 70, "Input",ExpressionUUID->"09cfcfa5-64e4-4620-a2b5-9f922df7b73e"], -Cell[30492, 931, 381, 7, 70, "Output",ExpressionUUID->"521cd720-75cf-4bd3-a410-28c6dc19a6cd"] +Cell[31685, 913, 311, 6, 23, "Input",ExpressionUUID->"09cfcfa5-64e4-4620-a2b5-9f922df7b73e"], +Cell[31999, 921, 425, 7, 38, "Output",ExpressionUUID->"b222b702-2a98-446b-acfb-a43cb3853f28"] }, Open ]], -Cell[30888, 941, 175, 3, 70, "Input",ExpressionUUID->"25db9763-73a6-4053-b9be-e24a242afa4d"], +Cell[32439, 931, 175, 3, 23, "Input",ExpressionUUID->"25db9763-73a6-4053-b9be-e24a242afa4d"], Cell[CellGroupData[{ -Cell[31088, 948, 317, 6, 70, "Input",ExpressionUUID->"01b83192-9964-4116-8b42-c27efb527d64"], -Cell[31408, 956, 380, 7, 70, "Output",ExpressionUUID->"53b9f562-b01a-4ae9-9fc6-1427d6a7f17e"] +Cell[32639, 938, 317, 6, 23, "Input",ExpressionUUID->"01b83192-9964-4116-8b42-c27efb527d64"], +Cell[32959, 946, 424, 7, 38, "Output",ExpressionUUID->"38c0e727-70e3-4990-b0bb-8e6dc2e3e309"] }, Open ]], -Cell[31803, 966, 177, 3, 70, "Input",ExpressionUUID->"dea1f43e-f5ed-4242-9424-7ddadd695b03"], +Cell[33398, 956, 177, 3, 23, "Input",ExpressionUUID->"dea1f43e-f5ed-4242-9424-7ddadd695b03"], Cell[CellGroupData[{ -Cell[32005, 973, 318, 6, 70, "Input",ExpressionUUID->"5ba9f01f-8d54-4308-9dc0-7c727f65b81e"], -Cell[32326, 981, 374, 7, 70, "Output",ExpressionUUID->"bf11a96c-813f-4ce0-b5f0-b5dd54a2cf5d"] +Cell[33600, 963, 318, 6, 23, "Input",ExpressionUUID->"5ba9f01f-8d54-4308-9dc0-7c727f65b81e"], +Cell[33921, 971, 418, 7, 38, "Output",ExpressionUUID->"0724c9fb-5ff8-414d-8cd5-d5e0bd3cf9ca"] }, Open ]], -Cell[32715, 991, 176, 3, 70, "Input",ExpressionUUID->"4e9612f9-2502-4606-82ad-ba1f87b9a20b"], +Cell[34354, 981, 176, 3, 23, "Input",ExpressionUUID->"4e9612f9-2502-4606-82ad-ba1f87b9a20b"], Cell[CellGroupData[{ -Cell[32916, 998, 287, 5, 70, "Input",ExpressionUUID->"3a93e438-690f-47c1-ab87-c06a1606afb2"], -Cell[33206, 1005, 374, 7, 70, "Output",ExpressionUUID->"67f3903b-d44b-4c15-8094-a672822f61f9"] +Cell[34555, 988, 287, 5, 23, "Input",ExpressionUUID->"3a93e438-690f-47c1-ab87-c06a1606afb2"], +Cell[34845, 995, 420, 7, 38, "Output",ExpressionUUID->"c153c0ba-e611-4f5b-b6a6-f12f45cda33b"] }, Open ]], -Cell[33595, 1015, 179, 3, 70, "Input",ExpressionUUID->"cf32dc23-38f4-4d48-856d-1c607860a5be"], +Cell[35280, 1005, 179, 3, 23, "Input",ExpressionUUID->"cf32dc23-38f4-4d48-856d-1c607860a5be"], Cell[CellGroupData[{ -Cell[33799, 1022, 19813, 486, 70, "Input",ExpressionUUID->"c84fcfb9-22dc-4660-af0b-21454e0f8a37"], -Cell[53615, 1510, 391, 7, 70, "Output",ExpressionUUID->"114a1667-2b83-49f8-b7c0-66c011bbd0f0"] +Cell[35484, 1012, 19813, 486, 680, "Input",ExpressionUUID->"c84fcfb9-22dc-4660-af0b-21454e0f8a37"], +Cell[55300, 1500, 436, 7, 38, "Output",ExpressionUUID->"b3048947-9644-4934-8f95-53caf717cd05"] }, Open ]], Cell[CellGroupData[{ -Cell[54043, 1522, 19752, 490, 70, "Input",ExpressionUUID->"a1a7567b-6fc3-473f-b830-2b8940637361"], -Cell[73798, 2014, 391, 7, 70, "Output",ExpressionUUID->"07516dd9-4b91-4cd5-8adf-7d2da56e5428"] +Cell[55773, 1512, 19752, 490, 690, "Input",ExpressionUUID->"a1a7567b-6fc3-473f-b830-2b8940637361"], +Cell[75528, 2004, 435, 7, 38, "Output",ExpressionUUID->"adca192e-8ba6-459c-b9a2-05ff8559e87d"] }, Open ]], Cell[CellGroupData[{ -Cell[74226, 2026, 19752, 484, 70, "Input",ExpressionUUID->"df0b8849-90eb-4cb8-ad0d-a1d1f6f6f223"], -Cell[93981, 2512, 411, 8, 70, "Output",ExpressionUUID->"f2969697-38d7-4b5e-a602-995bd4a2b9ac"] +Cell[76000, 2016, 19752, 484, 689, "Input",ExpressionUUID->"df0b8849-90eb-4cb8-ad0d-a1d1f6f6f223"], +Cell[95755, 2502, 456, 8, 38, "Output",ExpressionUUID->"858995fc-d57c-41d4-a2a8-15091a39088f"] }, Open ]], Cell[CellGroupData[{ -Cell[94429, 2525, 22538, 554, 70, "Input",ExpressionUUID->"72284c56-eacd-4f84-b01f-494c6d688fa2"], -Cell[116970, 3081, 406, 8, 70, "Output",ExpressionUUID->"9ec9f91b-f7c8-4956-9238-5d1a587e8942"] +Cell[96248, 2515, 22538, 554, 761, "Input",ExpressionUUID->"72284c56-eacd-4f84-b01f-494c6d688fa2"], +Cell[118789, 3071, 451, 8, 38, "Output",ExpressionUUID->"dec7171f-0ef8-4707-9133-1ca992cc4757"] }, Open ]], Cell[CellGroupData[{ -Cell[117413, 3094, 22539, 554, 70, "Input",ExpressionUUID->"f81a9a41-66ce-4d2c-99fa-c101ce857f23"], -Cell[139955, 3650, 409, 8, 70, "Output",ExpressionUUID->"d15f00e4-8213-4cd4-b563-8d82b14f767e"] +Cell[119277, 3084, 22539, 554, 761, "Input",ExpressionUUID->"f81a9a41-66ce-4d2c-99fa-c101ce857f23"], +Cell[141819, 3640, 450, 8, 38, "Output",ExpressionUUID->"a00cd805-1d31-429a-9fbb-51b1e84dbe4b"] }, Open ]], Cell[CellGroupData[{ -Cell[140401, 3663, 25495, 627, 70, "Input",ExpressionUUID->"01330e52-1b01-4121-b0ab-9a097302a897"], -Cell[165899, 4292, 406, 8, 70, "Output",ExpressionUUID->"e872e107-4343-4ced-bd96-e52b610cf337"] +Cell[142306, 3653, 25495, 627, 833, "Input",ExpressionUUID->"01330e52-1b01-4121-b0ab-9a097302a897"], +Cell[167804, 4282, 450, 8, 38, "Output",ExpressionUUID->"1801d65f-e4e6-4889-9c36-fe96c9be16da"] }, Open ]], Cell[CellGroupData[{ -Cell[166342, 4305, 134, 3, 70, "Input",ExpressionUUID->"35c1d571-a4e1-477e-a672-feec6bc36d4f"], -Cell[166479, 4310, 377, 7, 70, "Output",ExpressionUUID->"2e6a4d1b-4aa7-4ce9-afa4-e480a6345597"] +Cell[168291, 4295, 134, 3, 23, "Input",ExpressionUUID->"35c1d571-a4e1-477e-a672-feec6bc36d4f"], +Cell[168428, 4300, 421, 7, 38, "Output",ExpressionUUID->"87897e4c-f1d6-4a40-836f-102251f49722"] }, Open ]], Cell[CellGroupData[{ -Cell[166893, 4322, 134, 3, 70, "Input",ExpressionUUID->"2d268bd9-e47a-4c6d-95cd-4931d98e4399"], -Cell[167030, 4327, 372, 7, 70, "Output",ExpressionUUID->"8e802030-bb7a-4462-a9f9-1d4a00388d8e"] +Cell[168886, 4312, 134, 3, 23, "Input",ExpressionUUID->"2d268bd9-e47a-4c6d-95cd-4931d98e4399"], +Cell[169023, 4317, 420, 7, 38, "Output",ExpressionUUID->"97a10d97-6e55-44da-a43d-d537ce57de7b"] }, Open ]], Cell[CellGroupData[{ -Cell[167439, 4339, 1148, 40, 70, "Input",ExpressionUUID->"ca3cfab3-2c47-4dea-9621-fa411f5e2ebc"], -Cell[168590, 4381, 398, 7, 70, "Output",ExpressionUUID->"b05149ea-1120-455a-9015-342decbea921"] +Cell[169480, 4329, 1148, 40, 48, "Input",ExpressionUUID->"ca3cfab3-2c47-4dea-9621-fa411f5e2ebc"], +Cell[170631, 4371, 443, 7, 38, "Output",ExpressionUUID->"7edec750-2ace-4d1b-b309-15e7d8c4c1a7"] }, Open ]], Cell[CellGroupData[{ -Cell[169025, 4393, 1045, 36, 70, "Input",ExpressionUUID->"e59a6dab-0305-421b-9296-daf3f80919b9"], -Cell[170073, 4431, 407, 8, 70, "Output",ExpressionUUID->"934c6fc8-c57e-4df9-a299-86994d7fae3b"] +Cell[171111, 4383, 1045, 36, 48, "Input",ExpressionUUID->"e59a6dab-0305-421b-9296-daf3f80919b9"], +Cell[172159, 4421, 450, 8, 38, "Output",ExpressionUUID->"13fc42d6-20ab-4306-89d8-97176e1e35a9"] }, Open ]], Cell[CellGroupData[{ -Cell[170517, 4444, 1148, 40, 70, "Input",ExpressionUUID->"c0c5ca8d-a300-440f-ad98-865ded0193ae"], -Cell[171668, 4486, 392, 7, 70, "Output",ExpressionUUID->"a4f77743-298d-4a5f-8dbb-ca91f5f39574"] +Cell[172646, 4434, 1148, 40, 48, "Input",ExpressionUUID->"c0c5ca8d-a300-440f-ad98-865ded0193ae"], +Cell[173797, 4476, 439, 7, 38, "Output",ExpressionUUID->"780c6dc4-1686-43a2-8dd5-0dc42b02989a"] }, Open ]], Cell[CellGroupData[{ -Cell[172097, 4498, 112, 2, 70, "Input",ExpressionUUID->"29a5b397-974e-47ea-8824-1e801b3a44a5"], -Cell[172212, 4502, 392, 7, 70, "Output",ExpressionUUID->"824460f3-98ea-48c5-ad5f-4be654d6275f"] +Cell[174273, 4488, 112, 2, 23, "Input",ExpressionUUID->"29a5b397-974e-47ea-8824-1e801b3a44a5"], +Cell[174388, 4492, 438, 7, 38, "Output",ExpressionUUID->"9d5fcd0a-f694-4500-bcaa-6ac1655b7a36"] }, Open ]], Cell[CellGroupData[{ -Cell[172641, 4514, 112, 2, 70, "Input",ExpressionUUID->"fba754b3-7eb8-497a-b262-d0ce093891f1"], -Cell[172756, 4518, 416, 8, 70, "Output",ExpressionUUID->"b1d23822-c584-4f1b-a096-41c59b471983"] +Cell[174863, 4504, 112, 2, 23, "Input",ExpressionUUID->"fba754b3-7eb8-497a-b262-d0ce093891f1"], +Cell[174978, 4508, 462, 8, 38, "Output",ExpressionUUID->"a5ed5406-5ba8-4acb-a95c-68445a4eafba"] }, Open ]], Cell[CellGroupData[{ -Cell[173209, 4531, 112, 2, 70, "Input",ExpressionUUID->"750ce752-e783-4b8c-902f-582ac825ed23"], -Cell[173324, 4535, 406, 8, 70, "Output",ExpressionUUID->"159734b8-c452-460f-83d7-64f3c8bc8f9d"] +Cell[175477, 4521, 112, 2, 23, "Input",ExpressionUUID->"750ce752-e783-4b8c-902f-582ac825ed23"], +Cell[175592, 4525, 451, 8, 38, "Output",ExpressionUUID->"d98d1dee-30ea-4708-b3a1-70bf8041c11a"] }, Open ]], Cell[CellGroupData[{ -Cell[173767, 4548, 112, 2, 70, "Input",ExpressionUUID->"4010c96c-bca7-4165-a9ee-ad8db7f6d72e"], -Cell[173882, 4552, 393, 7, 70, "Output",ExpressionUUID->"889bd42e-09b5-42eb-b259-8e9fd2664314"] +Cell[176080, 4538, 112, 2, 23, "Input",ExpressionUUID->"4010c96c-bca7-4165-a9ee-ad8db7f6d72e"], +Cell[176195, 4542, 437, 7, 38, "Output",ExpressionUUID->"0cdc7224-780c-4dda-9feb-129b2e78caff"] }, Open ]], Cell[CellGroupData[{ -Cell[174312, 4564, 111, 2, 70, "Input",ExpressionUUID->"2ccfdabb-8537-46fb-9837-0014f37e987d"], -Cell[174426, 4568, 391, 7, 70, "Output",ExpressionUUID->"a532443c-84d3-48a1-ad08-b7d0d988b586"] +Cell[176669, 4554, 111, 2, 23, "Input",ExpressionUUID->"2ccfdabb-8537-46fb-9837-0014f37e987d"], +Cell[176783, 4558, 437, 7, 38, "Output",ExpressionUUID->"68a26815-e7e1-47ab-bbb1-bf907c81b38a"] }, Open ]], Cell[CellGroupData[{ -Cell[174854, 4580, 111, 2, 70, "Input",ExpressionUUID->"4532734e-4ca1-422e-84dc-7e8221a67683"], -Cell[174968, 4584, 385, 7, 70, "Output",ExpressionUUID->"31e55ff0-6852-463f-85a0-7a0d0b3206f5"] +Cell[177257, 4570, 111, 2, 23, "Input",ExpressionUUID->"4532734e-4ca1-422e-84dc-7e8221a67683"], +Cell[177371, 4574, 429, 7, 38, "Output",ExpressionUUID->"8f91e0d6-1394-41f0-99d1-0ea02cdbbff5"] }, Open ]], Cell[CellGroupData[{ -Cell[175390, 4596, 501, 17, 70, "Input",ExpressionUUID->"bd5beb09-b31e-4641-94f9-67c76dd7b420"], -Cell[175894, 4615, 407, 8, 70, "Output",ExpressionUUID->"67c58a42-07ab-4190-b8d4-5016b24fa348"] +Cell[177837, 4586, 501, 17, 46, "Input",ExpressionUUID->"bd5beb09-b31e-4641-94f9-67c76dd7b420"], +Cell[178341, 4605, 456, 8, 38, "Output",ExpressionUUID->"b77d1650-ac6e-48ba-b7a0-ba4816ef31fe"] }, Open ]], Cell[CellGroupData[{ -Cell[176338, 4628, 501, 17, 70, "Input",ExpressionUUID->"1d3f24a2-16c1-475f-a3ac-bad84977b0e7"], -Cell[176842, 4647, 405, 8, 70, "Output",ExpressionUUID->"930fd323-676c-4c5c-afc2-d2fa5d9e40cc"] +Cell[178834, 4618, 501, 17, 46, "Input",ExpressionUUID->"1d3f24a2-16c1-475f-a3ac-bad84977b0e7"], +Cell[179338, 4637, 449, 8, 38, "Output",ExpressionUUID->"2c04327d-5059-44a3-8f37-913b93347070"] }, Open ]], Cell[CellGroupData[{ -Cell[177284, 4660, 1792, 61, 70, "Input",ExpressionUUID->"4fcdc36a-6c50-402a-8ffe-fab13953e5a4"], -Cell[179079, 4723, 392, 7, 70, "Output",ExpressionUUID->"d47ed223-aa54-4e1e-9ea4-375cee3d528e"] +Cell[179824, 4650, 1792, 61, 48, "Input",ExpressionUUID->"4fcdc36a-6c50-402a-8ffe-fab13953e5a4"], +Cell[181619, 4713, 436, 7, 38, "Output",ExpressionUUID->"687832f2-f0b0-4163-825c-9a8e5f052b70"] }, Open ]], Cell[CellGroupData[{ -Cell[179508, 4735, 1105, 37, 70, "Input",ExpressionUUID->"ba79bb94-1e2b-40c7-ae0f-fe5dcec327f5"], -Cell[180616, 4774, 406, 8, 70, "Output",ExpressionUUID->"893a3ca9-ece0-491e-886a-7b04de4eda67"] +Cell[182092, 4725, 1105, 37, 48, "Input",ExpressionUUID->"ba79bb94-1e2b-40c7-ae0f-fe5dcec327f5"], +Cell[183200, 4764, 449, 8, 38, "Output",ExpressionUUID->"310abe47-86cf-4f07-9a05-ede2782c7d0b"] }, Open ]], Cell[CellGroupData[{ -Cell[181059, 4787, 1822, 62, 70, "Input",ExpressionUUID->"eb50d845-140a-41e5-8bbb-9de6966cc8f9"], -Cell[182884, 4851, 384, 7, 70, "Output",ExpressionUUID->"fed59031-982d-48a9-8ed7-844afee9b57c"] +Cell[183686, 4777, 1822, 62, 95, "Input",ExpressionUUID->"eb50d845-140a-41e5-8bbb-9de6966cc8f9"], +Cell[185511, 4841, 432, 7, 38, "Output",ExpressionUUID->"ccee2a35-84b4-4d45-b2bd-821905b607c5"] }, Open ]], Cell[CellGroupData[{ -Cell[183305, 4863, 1635, 54, 70, "Input",ExpressionUUID->"07faf75c-5f38-434a-9155-1b51811623d6"], -Cell[184943, 4919, 390, 7, 70, "Output",ExpressionUUID->"fc151155-763a-415a-86e2-52f104fa59d9"] +Cell[185980, 4853, 1635, 54, 67, "Input",ExpressionUUID->"07faf75c-5f38-434a-9155-1b51811623d6"], +Cell[187618, 4909, 433, 7, 38, "Output",ExpressionUUID->"9597c110-e785-404d-b61f-2554df065bd8"] }, Open ]], Cell[CellGroupData[{ -Cell[185370, 4931, 1635, 54, 70, "Input",ExpressionUUID->"70a8d671-1691-435f-82f5-f7cec68fb11e"], -Cell[187008, 4987, 393, 7, 70, "Output",ExpressionUUID->"340c398b-9922-411f-9349-39861ac23af3"] +Cell[188088, 4921, 1635, 54, 67, "Input",ExpressionUUID->"70a8d671-1691-435f-82f5-f7cec68fb11e"], +Cell[189726, 4977, 436, 7, 38, "Output",ExpressionUUID->"c178ceed-4c88-4f07-b580-9cf3208add59"] }, Open ]], -Cell[187416, 4997, 282, 6, 70, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], -Cell[187701, 5005, 280, 6, 70, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], Cell[CellGroupData[{ -Cell[188006, 5015, 1301, 43, 70, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], -Cell[189310, 5060, 178, 3, 70, "Output",ExpressionUUID->"1658422d-0016-324a-9843-942f5453a9c7"] +Cell[190199, 4989, 307, 7, 36, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[190509, 4998, 189, 3, 38, "Output",ExpressionUUID->"affb1129-6db3-4a2a-b0c9-454ab359ff39"] }, Open ]], Cell[CellGroupData[{ -Cell[189525, 5068, 910, 31, 70, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], -Cell[190438, 5101, 175, 3, 70, "Output",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +Cell[190735, 5006, 305, 7, 36, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[191043, 5015, 187, 3, 38, "Output",ExpressionUUID->"2a03dd5a-5160-44c6-a98b-970a5bbcbb35"] }, Open ]], Cell[CellGroupData[{ -Cell[190650, 5109, 887, 30, 70, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], -Cell[191540, 5141, 176, 3, 70, "Output",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +Cell[191267, 5023, 1301, 43, 40, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[192571, 5068, 225, 4, 38, "Output",ExpressionUUID->"b17df779-6923-4364-96dd-1cc7e6920338"] }, Open ]], Cell[CellGroupData[{ -Cell[191753, 5149, 558, 19, 70, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], -Cell[192314, 5170, 172, 3, 70, "Output",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +Cell[192833, 5077, 933, 31, 48, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[193769, 5110, 224, 4, 38, "Output",ExpressionUUID->"845ef36c-b67d-4c29-a409-83f76c93cd57"] }, Open ]], Cell[CellGroupData[{ -Cell[192523, 5178, 623, 21, 70, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], -Cell[193149, 5201, 172, 3, 70, "Output",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +Cell[194030, 5119, 910, 30, 48, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[194943, 5151, 222, 4, 38, "Output",ExpressionUUID->"be6d1c35-f33d-4d87-8878-8d954e18ef07"] }, Open ]], Cell[CellGroupData[{ -Cell[193358, 5209, 170, 5, 70, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], -Cell[193531, 5216, 172, 3, 70, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +Cell[195202, 5160, 558, 19, 43, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[195763, 5181, 217, 4, 38, "Output",ExpressionUUID->"605f9f67-8da8-4c52-b74c-295992b14bb6"] }, Open ]], Cell[CellGroupData[{ -Cell[193740, 5224, 170, 5, 70, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], -Cell[193913, 5231, 171, 3, 70, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +Cell[196017, 5190, 623, 21, 43, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[196643, 5213, 222, 4, 38, "Output",ExpressionUUID->"510d5ffa-8aae-4cce-8f7d-d97a4b39c03b"] }, Open ]], Cell[CellGroupData[{ -Cell[194121, 5239, 181, 5, 70, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], -Cell[194305, 5246, 170, 3, 70, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +Cell[196902, 5222, 170, 5, 47, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[197075, 5229, 219, 4, 38, "Output",ExpressionUUID->"78ce4ae7-9da2-4702-b393-0d00872efbf2"] }, Open ]], Cell[CellGroupData[{ -Cell[194512, 5254, 181, 5, 70, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], -Cell[194696, 5261, 172, 3, 70, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +Cell[197331, 5238, 170, 5, 46, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[197504, 5245, 219, 4, 38, "Output",ExpressionUUID->"3af3f851-2fe9-4dca-b456-8c4c4d65c4c9"] }, Open ]], Cell[CellGroupData[{ -Cell[194905, 5269, 6055, 185, 70, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], -Cell[200963, 5456, 172, 3, 70, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +Cell[197760, 5254, 181, 5, 36, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[197944, 5261, 218, 4, 38, "Output",ExpressionUUID->"a0ba6bcd-93d5-4adc-977d-7ae6db0ae85d"] }, Open ]], Cell[CellGroupData[{ -Cell[201172, 5464, 368, 9, 70, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], -Cell[201543, 5475, 171, 3, 70, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +Cell[198199, 5270, 181, 5, 36, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[198383, 5277, 219, 4, 38, "Output",ExpressionUUID->"2bbfa0e4-173f-40ef-bd6b-17c3f7301710"] }, Open ]], Cell[CellGroupData[{ -Cell[201751, 5483, 6122, 187, 70, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], -Cell[207876, 5672, 173, 3, 70, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +Cell[198639, 5286, 6055, 185, 161, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[204697, 5473, 222, 4, 38, "Output",ExpressionUUID->"a8087a38-7860-4156-b5d6-a5045d6b92aa"] }, Open ]], Cell[CellGroupData[{ -Cell[208086, 5680, 368, 9, 70, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], -Cell[208457, 5691, 170, 3, 70, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +Cell[204956, 5482, 368, 9, 33, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[205327, 5493, 220, 4, 38, "Output",ExpressionUUID->"dd463a63-8881-44d6-af47-840e5b3aa581"] }, Open ]], Cell[CellGroupData[{ -Cell[208664, 5699, 2663, 88, 70, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], -Cell[211330, 5789, 171, 3, 70, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +Cell[205584, 5502, 6122, 187, 161, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[211709, 5691, 220, 4, 38, "Output",ExpressionUUID->"54d7455a-b84d-49a4-b4d7-8e7fc9477d55"] }, Open ]], Cell[CellGroupData[{ -Cell[211538, 5797, 2603, 85, 70, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], -Cell[214144, 5884, 173, 3, 70, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +Cell[211966, 5700, 368, 9, 33, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[212337, 5711, 219, 4, 38, "Output",ExpressionUUID->"0d70c461-e5bf-4f86-8a1e-375d4faf2793"] }, Open ]], Cell[CellGroupData[{ -Cell[214354, 5892, 3712, 118, 70, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], -Cell[218069, 6012, 174, 3, 70, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +Cell[212593, 5720, 2663, 88, 95, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[215259, 5810, 219, 4, 38, "Output",ExpressionUUID->"a21749f0-0458-47d2-a29a-04e3e0a6ee0b"] }, Open ]], -Cell[218258, 6018, 138, 3, 70, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ -Cell[218421, 6025, 2054, 59, 70, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], -Cell[220478, 6086, 557, 12, 70, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], -Cell[221038, 6100, 559, 12, 70, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], -Cell[221600, 6114, 561, 12, 70, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], -Cell[222164, 6128, 458, 10, 70, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], -Cell[222625, 6140, 172, 3, 70, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +Cell[215515, 5819, 2603, 85, 95, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[218121, 5906, 222, 4, 38, "Output",ExpressionUUID->"0b0e774b-6313-46cf-a2e8-2ae3e77a6188"] }, Open ]], Cell[CellGroupData[{ -Cell[222834, 6148, 2052, 59, 70, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], -Cell[224889, 6209, 555, 12, 70, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], -Cell[225447, 6223, 559, 12, 70, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], -Cell[226009, 6237, 561, 12, 70, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], -Cell[226573, 6251, 458, 10, 70, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], -Cell[227034, 6263, 172, 3, 70, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +Cell[218380, 5915, 3712, 118, 142, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[222095, 6035, 220, 4, 38, "Output",ExpressionUUID->"cbfabe10-d564-4067-bf00-9dd8d99c177f"] }, Open ]], +Cell[222330, 6042, 164, 4, 23, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], Cell[CellGroupData[{ -Cell[227243, 6271, 1936, 53, 70, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], -Cell[229182, 6326, 20445, 382, 70, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +Cell[222519, 6050, 2077, 59, 83, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[224599, 6111, 627, 14, 34, "Message",ExpressionUUID->"47e1dacc-ca43-439a-a716-f14f0a55208d"], +Cell[225229, 6127, 629, 14, 34, "Message",ExpressionUUID->"6405ea4a-59d6-4653-b9fc-d2b520510c59"], +Cell[225861, 6143, 634, 14, 34, "Message",ExpressionUUID->"e5e1359d-8203-4aed-8e3d-85193c8bb7b2"], +Cell[226498, 6159, 520, 12, 20, "Message",ExpressionUUID->"932eca95-e97b-4409-9be9-ab6bcab0f116"], +Cell[227021, 6173, 219, 4, 38, "Output",ExpressionUUID->"db5d1c68-e394-4b24-9e8f-8261425ec76e"] }, Open ]], Cell[CellGroupData[{ -Cell[249664, 6713, 2094, 60, 70, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], -Cell[251761, 6775, 500, 11, 70, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], -Cell[252264, 6788, 503, 11, 70, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], -Cell[252770, 6801, 506, 11, 70, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], -Cell[253279, 6814, 455, 10, 70, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], -Cell[253737, 6826, 57321, 985, 70, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +Cell[227277, 6182, 2075, 59, 83, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[229355, 6243, 627, 14, 34, "Message",ExpressionUUID->"6d2a352e-e3d9-4b2d-a244-26c82b2fe360"], +Cell[229985, 6259, 628, 14, 34, "Message",ExpressionUUID->"21cb22e6-4ccb-40b8-8828-b4bc1c475ac9"], +Cell[230616, 6275, 631, 14, 34, "Message",ExpressionUUID->"ba093bec-a775-46c0-9208-8d0961b25010"], +Cell[231250, 6291, 517, 12, 20, "Message",ExpressionUUID->"a5e43227-a79b-41fb-9fab-55ae46d5898f"], +Cell[231770, 6305, 219, 4, 38, "Output",ExpressionUUID->"894f694c-7e44-46a3-89ed-2ce0cc0aebe5"] }, Open ]], -Cell[311073, 7814, 1988, 52, 70, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], -Cell[313064, 7868, 209, 5, 70, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], Cell[CellGroupData[{ -Cell[313298, 7877, 217, 7, 70, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], -Cell[313518, 7886, 172, 3, 70, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +Cell[232026, 6314, 1959, 53, 61, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[233988, 6369, 20436, 385, 193, "Output",ExpressionUUID->"b07a2498-89eb-4b98-81e7-79fb63dc6a4e"] }, Open ]], Cell[CellGroupData[{ -Cell[313727, 7894, 1816, 53, 70, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], -Cell[315546, 7949, 508, 11, 70, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], -Cell[316057, 7962, 508, 11, 70, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], -Cell[316568, 7975, 511, 11, 70, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], -Cell[317082, 7988, 456, 10, 70, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], -Cell[317541, 8000, 26000, 472, 70, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +Cell[254461, 6759, 2117, 60, 112, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[256581, 6821, 539, 12, 49, "Message",ExpressionUUID->"1a1ecfd5-d0e8-4003-9ec3-f0b4a139087a"], +Cell[257123, 6835, 542, 12, 49, "Message",ExpressionUUID->"5a837af1-23ef-4f59-8e6e-71f8fa0f4b63"], +Cell[257668, 6849, 546, 12, 49, "Message",ExpressionUUID->"0887ad22-8e2c-4940-bc13-36b97d5938ad"], +Cell[258217, 6863, 495, 11, 20, "Message",ExpressionUUID->"e5b164b9-2078-4641-9845-4b96249e61c0"], +Cell[258715, 6876, 21901, 408, 201, "Output",ExpressionUUID->"9977c342-4154-408e-b4f7-a21b4f31ef1f"] }, Open ]], Cell[CellGroupData[{ -Cell[343578, 8477, 1616, 48, 70, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], -Cell[345197, 8527, 584, 12, 70, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], -Cell[345784, 8541, 588, 12, 70, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], -Cell[346375, 8555, 592, 12, 70, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], -Cell[346970, 8569, 456, 10, 70, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], -Cell[347429, 8581, 169, 3, 70, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +Cell[280653, 7289, 2013, 53, 103, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[282669, 7344, 33172, 811, 185, "Output",ExpressionUUID->"1c6febd9-9c90-4760-a583-0cc2e2e08abd"] }, Open ]], Cell[CellGroupData[{ -Cell[347635, 8589, 2249, 64, 70, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], -Cell[349887, 8655, 555, 12, 70, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], -Cell[350445, 8669, 557, 12, 70, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], -Cell[351005, 8683, 563, 12, 70, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], -Cell[351571, 8697, 458, 10, 70, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], -Cell[352032, 8709, 173, 3, 70, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +Cell[315878, 8160, 232, 5, 23, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[316113, 8167, 52563, 1129, 189, "Output",ExpressionUUID->"7b93792f-ee7b-485a-bc76-c2c2d474cbc1"] }, Open ]], Cell[CellGroupData[{ -Cell[352242, 8717, 2223, 64, 70, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], -Cell[354468, 8783, 555, 12, 70, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], -Cell[355026, 8797, 557, 12, 70, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], -Cell[355586, 8811, 561, 12, 70, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], -Cell[356150, 8825, 458, 10, 70, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], -Cell[356611, 8837, 173, 3, 70, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +Cell[368713, 9301, 240, 7, 40, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[368956, 9310, 193, 3, 38, "Output",ExpressionUUID->"b40f5da8-1468-43c2-b482-6785be062d3f"] }, Open ]], Cell[CellGroupData[{ -Cell[356821, 8845, 2221, 64, 70, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], -Cell[359045, 8911, 557, 12, 70, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], -Cell[359605, 8925, 557, 12, 70, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], -Cell[360165, 8939, 563, 12, 70, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], -Cell[360731, 8953, 456, 10, 70, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], -Cell[361190, 8965, 173, 3, 70, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +Cell[369186, 9318, 1839, 53, 83, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[371028, 9373, 548, 12, 49, "Message",ExpressionUUID->"384bca45-37d3-41d5-aa3a-9fccb8f3fcd4"], +Cell[371579, 9387, 550, 12, 49, "Message",ExpressionUUID->"2910e3f5-4e8c-4782-9525-acd1f246a078"], +Cell[372132, 9401, 551, 12, 49, "Message",ExpressionUUID->"b0cecb8b-4748-40e4-b53d-1241dc56104d"], +Cell[372686, 9415, 495, 11, 20, "Message",ExpressionUUID->"f55297f9-6c0b-448c-b6cb-0baf38a16e85"], +Cell[373184, 9428, 22945, 423, 186, "Output",ExpressionUUID->"9f6a0028-43b8-4b0d-92e3-6016cab73ca0"] }, Open ]], Cell[CellGroupData[{ -Cell[361400, 8973, 213, 6, 70, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], -Cell[361616, 8981, 171, 3, 70, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +Cell[396166, 9856, 1616, 48, 60, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[397785, 9906, 629, 13, 51, "Message",ExpressionUUID->"07dfabd0-cf6f-4137-906c-7bd122266333"], +Cell[398417, 9921, 631, 13, 51, "Message",ExpressionUUID->"808ec0f6-065b-4de8-829d-30b3eb14073e"], +Cell[399051, 9936, 635, 13, 51, "Message",ExpressionUUID->"d1e82a15-7347-41d0-b5c3-77bda23610c1"], +Cell[399689, 9951, 497, 11, 20, "Message",ExpressionUUID->"a17a55a0-4b8f-41a9-97eb-081e4fbbf16d"], +Cell[400189, 9964, 193, 3, 26, "Output",ExpressionUUID->"26ac9d15-d1ff-4164-bf5a-ae79eabe0c1e"] }, Open ]], -Cell[361802, 8987, 245, 5, 70, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ -Cell[362072, 8996, 558, 19, 70, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], -Cell[362633, 9017, 172, 3, 70, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +Cell[400419, 9972, 2272, 64, 128, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[402694, 10038, 601, 13, 49, "Message",ExpressionUUID->"efc1e53c-964e-40ce-9dc7-8412509e09da"], +Cell[403298, 10053, 602, 13, 69, "Message",ExpressionUUID->"53bd2abc-0edc-4771-9dcc-5c1247d60c7c"], +Cell[403903, 10068, 607, 13, 51, "Message",ExpressionUUID->"e5e455f6-d350-4ed8-a8ed-8f954e73778e"], +Cell[404513, 10083, 493, 11, 20, "Message",ExpressionUUID->"cc96ea40-2b3e-4a87-8131-d9d093a095a7"], +Cell[405009, 10096, 194, 3, 26, "Output",ExpressionUUID->"6a488a60-ca41-4e33-8247-7931f565002c"] }, Open ]], Cell[CellGroupData[{ -Cell[362842, 9025, 170, 5, 70, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], -Cell[363015, 9032, 173, 3, 70, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +Cell[405240, 10104, 2235, 63, 128, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[407478, 10169, 601, 13, 49, "Message",ExpressionUUID->"73996f42-f01c-4d7d-9005-d180a8e7d8d4"], +Cell[408082, 10184, 602, 13, 69, "Message",ExpressionUUID->"9af64e6c-a429-439e-bf4e-9f3cfca0b466"], +Cell[408687, 10199, 609, 13, 51, "Message",ExpressionUUID->"858b4e69-c9bd-4157-8a54-1c5f33ff131f"], +Cell[409299, 10214, 493, 11, 20, "Message",ExpressionUUID->"ba8cb8df-f159-4dff-84d1-9f964208dfaf"], +Cell[409795, 10227, 194, 3, 26, "Output",ExpressionUUID->"64e2caf6-bd38-4e61-bd57-7b1dc27b0bdb"] }, Open ]], Cell[CellGroupData[{ -Cell[363225, 9040, 181, 5, 70, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], -Cell[363409, 9047, 173, 3, 70, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +Cell[410026, 10235, 2233, 63, 128, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[412262, 10300, 605, 13, 49, "Message",ExpressionUUID->"edd70a84-0ad5-40cb-ad4c-0efeac947b8f"], +Cell[412870, 10315, 604, 13, 69, "Message",ExpressionUUID->"4ce6946a-71ba-4475-94e0-c78db756c16c"], +Cell[413477, 10330, 609, 13, 51, "Message",ExpressionUUID->"83ab7e22-44b0-4e1e-b0a4-9575e6b060d3"], +Cell[414089, 10345, 497, 11, 20, "Message",ExpressionUUID->"d62bb707-5dda-4fed-8493-2b354e4613bf"], +Cell[414589, 10358, 194, 3, 26, "Output",ExpressionUUID->"8e54fd43-5bac-4e39-bc75-c1b1828142ab"] }, Open ]], Cell[CellGroupData[{ -Cell[363619, 9055, 6055, 185, 70, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], -Cell[369677, 9242, 172, 3, 70, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +Cell[414820, 10366, 236, 6, 39, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[415059, 10374, 195, 3, 38, "Output",ExpressionUUID->"fa290582-800c-4f9a-8b74-7c31895fcfa5"] }, Open ]], +Cell[415269, 10380, 271, 6, 23, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], Cell[CellGroupData[{ -Cell[369886, 9250, 368, 9, 70, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], -Cell[370257, 9261, 170, 3, 70, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +Cell[415565, 10390, 558, 19, 43, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[416126, 10411, 195, 3, 38, "Output",ExpressionUUID->"79fd8c7d-321c-4ef6-b6af-c9ca1f32711a"] }, Open ]], Cell[CellGroupData[{ -Cell[370464, 9269, 6122, 187, 70, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], -Cell[376589, 9458, 175, 3, 70, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +Cell[416358, 10419, 170, 5, 47, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[416531, 10426, 197, 3, 38, "Output",ExpressionUUID->"1b04d67e-cb83-462f-a475-91252a3df0d3"] }, Open ]], Cell[CellGroupData[{ -Cell[376801, 9466, 368, 9, 70, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], -Cell[377172, 9477, 172, 3, 70, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +Cell[416765, 10434, 181, 5, 36, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[416949, 10441, 194, 3, 38, "Output",ExpressionUUID->"2c67126f-dbd8-421c-b7d5-b55956c66266"] }, Open ]], Cell[CellGroupData[{ -Cell[377381, 9485, 2663, 88, 70, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], -Cell[380047, 9575, 173, 3, 70, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +Cell[417180, 10449, 6055, 185, 413, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[423238, 10636, 191, 3, 38, "Output",ExpressionUUID->"01f8bf70-7000-4f70-913d-713e01dc7910"] }, Open ]], Cell[CellGroupData[{ -Cell[380257, 9583, 2603, 85, 70, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], -Cell[382863, 9670, 171, 3, 70, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +Cell[423466, 10644, 368, 9, 33, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[423837, 10655, 193, 3, 38, "Output",ExpressionUUID->"6639c018-a8ad-4232-bffc-57959963140c"] }, Open ]], Cell[CellGroupData[{ -Cell[383071, 9678, 3712, 118, 70, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], -Cell[386786, 9798, 174, 3, 70, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +Cell[424067, 10663, 6122, 187, 413, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[430192, 10852, 196, 3, 38, "Output",ExpressionUUID->"7d15d705-e3e3-41dd-b07c-fab410a9c711"] }, Open ]], Cell[CellGroupData[{ -Cell[386997, 9806, 2052, 59, 70, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], -Cell[389052, 9867, 578, 12, 70, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], -Cell[389633, 9881, 583, 12, 70, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], -Cell[390219, 9895, 586, 12, 70, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], -Cell[390808, 9909, 456, 10, 70, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], -Cell[391267, 9921, 170, 3, 70, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +Cell[430425, 10860, 368, 9, 33, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[430796, 10871, 194, 3, 38, "Output",ExpressionUUID->"b04428ac-8e90-4325-afbc-18e791982a80"] }, Open ]], Cell[CellGroupData[{ -Cell[391474, 9929, 2054, 59, 70, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], -Cell[393531, 9990, 576, 12, 70, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], -Cell[394110, 10004, 581, 12, 70, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], -Cell[394694, 10018, 586, 12, 70, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], -Cell[395283, 10032, 458, 10, 70, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], -Cell[395744, 10044, 172, 3, 70, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +Cell[431027, 10879, 2663, 88, 142, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[433693, 10969, 196, 3, 38, "Output",ExpressionUUID->"af8d1c16-9ea0-424d-a437-54abd89c2e2e"] }, Open ]], Cell[CellGroupData[{ -Cell[395953, 10052, 2028, 55, 70, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], -Cell[397984, 10109, 20011, 378, 70, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +Cell[433926, 10977, 2603, 85, 142, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[436532, 11064, 195, 3, 38, "Output",ExpressionUUID->"850ea06f-e1f0-487f-a397-478beb0297a8"] }, Open ]], Cell[CellGroupData[{ -Cell[418032, 10492, 2115, 60, 70, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], -Cell[420150, 10554, 501, 11, 70, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], -Cell[420654, 10567, 503, 11, 70, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], -Cell[421160, 10580, 505, 11, 70, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], -Cell[421668, 10593, 456, 10, 70, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], -Cell[422127, 10605, 32548, 580, 70, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +Cell[436764, 11072, 3712, 118, 208, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[440479, 11192, 197, 3, 38, "Output",ExpressionUUID->"6022b839-98c2-4588-a174-9e0403435008"] }, Open ]], -Cell[454690, 11188, 209, 5, 70, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], Cell[CellGroupData[{ -Cell[454924, 11197, 1616, 48, 70, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], -Cell[456543, 11247, 596, 12, 70, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], -Cell[457142, 11261, 599, 12, 70, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], -Cell[457744, 11275, 605, 12, 70, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], -Cell[458352, 11289, 456, 10, 70, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], -Cell[458811, 11301, 170, 3, 70, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +Cell[440713, 11200, 2075, 59, 83, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[442791, 11261, 596, 13, 49, "Message",ExpressionUUID->"ed735fa1-e447-40bb-ba8a-16c816eb819f"], +Cell[443390, 11276, 597, 13, 49, "Message",ExpressionUUID->"7916eecc-e832-40e4-93d8-d8836004eba5"], +Cell[443990, 11291, 600, 13, 49, "Message",ExpressionUUID->"eb7ce229-f2b8-4a9f-aa8d-5c84d9894bbe"], +Cell[444593, 11306, 493, 11, 20, "Message",ExpressionUUID->"392662cb-8648-498e-ab42-82a1b5fc7c23"], +Cell[445089, 11319, 195, 3, 26, "Output",ExpressionUUID->"9c93f62b-0233-4075-90b9-26ec8a5e7a0e"] }, Open ]], Cell[CellGroupData[{ -Cell[459018, 11309, 2247, 64, 70, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], -Cell[461268, 11375, 580, 12, 70, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], -Cell[461851, 11389, 583, 12, 70, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], -Cell[462437, 11403, 584, 12, 70, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], -Cell[463024, 11417, 458, 10, 70, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], -Cell[463485, 11429, 170, 3, 70, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +Cell[445321, 11327, 2077, 59, 83, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[447401, 11388, 594, 13, 49, "Message",ExpressionUUID->"ab78d46a-7858-4b46-9016-a51141c4151e"], +Cell[447998, 11403, 596, 13, 49, "Message",ExpressionUUID->"b0a8043d-0a1c-4c09-b005-19636e831e22"], +Cell[448597, 11418, 598, 13, 49, "Message",ExpressionUUID->"e02ead5b-67d2-4268-a393-3913a7fb61ba"], +Cell[449198, 11433, 493, 11, 20, "Message",ExpressionUUID->"e974c46c-5d33-4abf-8259-eb51b3e51a94"], +Cell[449694, 11446, 193, 3, 26, "Output",ExpressionUUID->"11e0433c-cf9d-400a-928a-f3b1ff64ee84"] }, Open ]], Cell[CellGroupData[{ -Cell[463692, 11437, 2219, 64, 70, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], -Cell[465914, 11503, 580, 12, 70, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], -Cell[466497, 11517, 583, 12, 70, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], -Cell[467083, 11531, 586, 12, 70, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], -Cell[467672, 11545, 458, 10, 70, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], -Cell[468133, 11557, 171, 3, 70, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +Cell[449924, 11454, 2051, 55, 69, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[451978, 11511, 20308, 382, 193, "Output",ExpressionUUID->"f63921dc-8cc4-4543-8f3f-eb41e11ab54d"] }, Open ]], Cell[CellGroupData[{ -Cell[468341, 11565, 2221, 64, 70, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], -Cell[470565, 11631, 580, 12, 70, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], -Cell[471148, 11645, 583, 12, 70, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], -Cell[471734, 11659, 584, 12, 70, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], -Cell[472321, 11673, 456, 10, 70, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], -Cell[472780, 11685, 170, 3, 70, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +Cell[472323, 11898, 2138, 60, 112, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[474464, 11960, 540, 12, 49, "Message",ExpressionUUID->"5337b516-8cc7-41db-9829-4db85bbf56db"], +Cell[475007, 11974, 542, 12, 49, "Message",ExpressionUUID->"202b787a-39be-4105-b2fd-d9d8a9dc09cb"], +Cell[475552, 11988, 546, 12, 49, "Message",ExpressionUUID->"13ac9f04-a3db-4500-91e8-eb66ee189680"], +Cell[476101, 12002, 497, 11, 20, "Message",ExpressionUUID->"2416c600-9937-4ba5-b796-9f06a4bba24f"], +Cell[476601, 12015, 22985, 426, 186, "Output",ExpressionUUID->"8ab2eb4d-fb5d-44eb-999e-9087f012c855"] }, Open ]], Cell[CellGroupData[{ -Cell[472987, 11693, 213, 6, 70, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], -Cell[473203, 11701, 174, 3, 70, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +Cell[499623, 12446, 232, 5, 23, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[499858, 12453, 53647, 1147, 186, "Output",ExpressionUUID->"c2b55e33-3f6a-44e2-a336-1d17738efb44"] }, Open ]], -Cell[473392, 11707, 247, 5, 70, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ -Cell[473664, 11716, 558, 19, 70, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], -Cell[474225, 11737, 173, 3, 70, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +Cell[553542, 13605, 1616, 48, 60, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[555161, 13655, 639, 13, 64, "Message",ExpressionUUID->"81b84b81-5630-45fc-a4fe-5bf9cda41a01"], +Cell[555803, 13670, 643, 13, 64, "Message",ExpressionUUID->"27c7c386-179b-469d-ad79-2af1de1d67aa"], +Cell[556449, 13685, 647, 13, 64, "Message",ExpressionUUID->"c9bb5d68-114b-4be0-96dc-2484ea28c041"], +Cell[557099, 13700, 493, 11, 20, "Message",ExpressionUUID->"b8e92820-a16a-45c3-abde-d142ce3e89f2"], +Cell[557595, 13713, 193, 3, 26, "Output",ExpressionUUID->"6728ea41-b88a-4b61-90ff-55dbb8c6a8cb"] }, Open ]], Cell[CellGroupData[{ -Cell[474435, 11745, 170, 5, 70, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], -Cell[474608, 11752, 173, 3, 70, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +Cell[557825, 13721, 2270, 64, 128, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[560098, 13787, 596, 13, 49, "Message",ExpressionUUID->"381b2cc2-5589-46dd-a557-758a8a142d23"], +Cell[560697, 13802, 602, 13, 49, "Message",ExpressionUUID->"0c99b9cb-8903-4892-a21f-e8630da13a9b"], +Cell[561302, 13817, 604, 13, 49, "Message",ExpressionUUID->"4729217a-e47e-46a8-82b8-4f08525187ec"], +Cell[561909, 13832, 495, 11, 20, "Message",ExpressionUUID->"c42f22fa-2302-4dbd-93c6-245c05f9a2dc"], +Cell[562407, 13845, 193, 3, 26, "Output",ExpressionUUID->"a30d3e61-0c0e-4020-b8d7-329df9300f33"] }, Open ]], Cell[CellGroupData[{ -Cell[474818, 11760, 181, 5, 70, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], -Cell[475002, 11767, 171, 3, 70, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +Cell[562637, 13853, 2231, 63, 128, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[564871, 13918, 598, 13, 49, "Message",ExpressionUUID->"536dce05-65a7-4697-8d28-56f5a66bcf47"], +Cell[565472, 13933, 600, 13, 49, "Message",ExpressionUUID->"a8e6cbdd-cf31-4534-b546-28f37bf29172"], +Cell[566075, 13948, 604, 13, 49, "Message",ExpressionUUID->"bac5d99e-84de-4ae0-aa45-e632ef042a16"], +Cell[566682, 13963, 495, 11, 20, "Message",ExpressionUUID->"505d8825-7644-420f-a27e-872ecfeb00fc"], +Cell[567180, 13976, 193, 3, 26, "Output",ExpressionUUID->"bf492fb0-3981-4613-a7aa-b827ea962b09"] }, Open ]], Cell[CellGroupData[{ -Cell[475210, 11775, 6055, 185, 70, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], -Cell[481268, 11962, 173, 3, 70, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +Cell[567410, 13984, 2233, 63, 128, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[569646, 14049, 595, 13, 49, "Message",ExpressionUUID->"d8d2baf5-b5d3-45dd-9874-c7f2bc6efe91"], +Cell[570244, 14064, 600, 13, 49, "Message",ExpressionUUID->"ebb6e6ad-8e97-4686-a2b5-47a16f8150b4"], +Cell[570847, 14079, 602, 13, 49, "Message",ExpressionUUID->"3939b7d1-8296-4a95-bbc0-3c7d9387cc62"], +Cell[571452, 14094, 495, 11, 20, "Message",ExpressionUUID->"8008afe4-d244-4e1b-9811-0c960848d5d6"], +Cell[571950, 14107, 194, 3, 26, "Output",ExpressionUUID->"be5b02fa-cd39-45a9-9a70-b0e44a50a666"] }, Open ]], Cell[CellGroupData[{ -Cell[481478, 11970, 368, 9, 70, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], -Cell[481849, 11981, 172, 3, 70, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +Cell[572181, 14115, 236, 6, 39, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[572420, 14123, 197, 3, 38, "Output",ExpressionUUID->"1631a213-3ca2-40e7-b4a2-8df58ad6a077"] }, Open ]], +Cell[572632, 14129, 273, 6, 70, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], Cell[CellGroupData[{ -Cell[482058, 11989, 6122, 187, 70, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], -Cell[488183, 12178, 175, 3, 70, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +Cell[572930, 14139, 558, 19, 43, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[573491, 14160, 192, 3, 38, "Output",ExpressionUUID->"c24d8116-23ec-4012-91d4-1ebb3b5c4c10"] }, Open ]], Cell[CellGroupData[{ -Cell[488395, 12186, 368, 9, 70, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], -Cell[488766, 12197, 171, 3, 70, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +Cell[573720, 14168, 170, 5, 47, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[573893, 14175, 195, 3, 38, "Output",ExpressionUUID->"3ce66e9f-dc7f-4aae-a9a0-15b4c1da33bb"] }, Open ]], Cell[CellGroupData[{ -Cell[488974, 12205, 2663, 88, 70, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], -Cell[491640, 12295, 173, 3, 70, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +Cell[574125, 14183, 181, 5, 36, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[574309, 14190, 192, 3, 38, "Output",ExpressionUUID->"c6321879-2ffc-49d2-bfb0-9525c009a5da"] }, Open ]], Cell[CellGroupData[{ -Cell[491850, 12303, 2603, 85, 70, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], -Cell[494456, 12390, 171, 3, 70, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +Cell[574538, 14198, 6055, 185, 413, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[580596, 14385, 195, 3, 38, "Output",ExpressionUUID->"2d49b0c5-db55-4479-8710-30829b6f2b1b"] }, Open ]], Cell[CellGroupData[{ -Cell[494664, 12398, 3712, 118, 70, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], -Cell[498379, 12518, 174, 3, 70, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +Cell[580828, 14393, 368, 9, 33, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[581199, 14404, 193, 3, 38, "Output",ExpressionUUID->"98ee78be-58e9-4cef-87e0-4c0cdba70698"] }, Open ]], Cell[CellGroupData[{ -Cell[498590, 12526, 2054, 59, 70, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], -Cell[500647, 12587, 572, 12, 70, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], -Cell[501222, 12601, 573, 12, 70, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], -Cell[501798, 12615, 579, 12, 70, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], -Cell[502380, 12629, 456, 10, 70, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], -Cell[502839, 12641, 169, 3, 70, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +Cell[581429, 14412, 6122, 187, 413, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[587554, 14601, 196, 3, 38, "Output",ExpressionUUID->"e83713cb-94aa-4a82-b029-1b06f60ef263"] }, Open ]], Cell[CellGroupData[{ -Cell[503045, 12649, 2049, 58, 70, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], -Cell[505097, 12709, 570, 12, 70, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], -Cell[505670, 12723, 575, 12, 70, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], -Cell[506248, 12737, 579, 12, 70, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], -Cell[506830, 12751, 458, 10, 70, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], -Cell[507291, 12763, 171, 3, 70, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +Cell[587787, 14609, 368, 9, 33, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[588158, 14620, 192, 3, 38, "Output",ExpressionUUID->"19c9df2a-149d-4819-826a-1f86c3cb9031"] }, Open ]], Cell[CellGroupData[{ -Cell[507499, 12771, 2030, 55, 70, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], -Cell[509532, 12828, 20011, 378, 70, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +Cell[588387, 14628, 2663, 88, 142, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[591053, 14718, 195, 3, 38, "Output",ExpressionUUID->"2f752953-25eb-4683-8177-cc71907c3243"] }, Open ]], Cell[CellGroupData[{ -Cell[529580, 13211, 2120, 60, 70, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], -Cell[531703, 13273, 501, 11, 70, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], -Cell[532207, 13286, 505, 11, 70, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], -Cell[532715, 13299, 506, 11, 70, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], -Cell[533224, 13312, 456, 10, 70, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], -Cell[533683, 13324, 31008, 556, 70, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +Cell[591285, 14726, 2603, 85, 142, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[593891, 14813, 193, 3, 38, "Output",ExpressionUUID->"c1fdbdd5-1cc0-4daf-8897-047bc8c88c24"] }, Open ]], -Cell[564706, 13883, 209, 5, 70, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], Cell[CellGroupData[{ -Cell[564940, 13892, 1616, 48, 70, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], -Cell[566559, 13942, 593, 12, 70, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], -Cell[567155, 13956, 595, 12, 70, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], -Cell[567753, 13970, 602, 12, 70, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], -Cell[568358, 13984, 456, 10, 70, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], -Cell[568817, 13996, 172, 3, 70, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +Cell[594121, 14821, 3712, 118, 208, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[597836, 14941, 195, 3, 38, "Output",ExpressionUUID->"76c04170-514b-412c-8a15-a0954f2ceed7"] }, Open ]], Cell[CellGroupData[{ -Cell[569026, 14004, 2249, 64, 70, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], -Cell[571278, 14070, 572, 12, 70, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], -Cell[571853, 14084, 575, 12, 70, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], -Cell[572431, 14098, 579, 12, 70, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], -Cell[573013, 14112, 458, 10, 70, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], -Cell[573474, 14124, 173, 3, 70, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +Cell[598068, 14949, 2077, 59, 83, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[600148, 15010, 600, 13, 49, "Message",ExpressionUUID->"93536f90-efc8-4292-aaf0-16a19ba36bf3"], +Cell[600751, 15025, 603, 13, 49, "Message",ExpressionUUID->"8a811d3d-2341-43c8-b30c-aabca1c69189"], +Cell[601357, 15040, 607, 13, 69, "Message",ExpressionUUID->"46c38c07-b039-4787-93a0-c3b4a5e06d0f"], +Cell[601967, 15055, 495, 11, 20, "Message",ExpressionUUID->"997dbadf-966d-482a-a8fa-3cf199ec0bbb"], +Cell[602465, 15068, 193, 3, 26, "Output",ExpressionUUID->"7ea8f129-a43b-4b9f-8a60-dd502bf35dc0"] }, Open ]], Cell[CellGroupData[{ -Cell[573684, 14132, 2221, 64, 70, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], -Cell[575908, 14198, 572, 12, 70, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], -Cell[576483, 14212, 575, 12, 70, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], -Cell[577061, 14226, 577, 12, 70, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], -Cell[577641, 14240, 456, 10, 70, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], -Cell[578100, 14252, 172, 3, 70, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +Cell[602695, 15076, 2074, 59, 83, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[604772, 15137, 598, 13, 49, "Message",ExpressionUUID->"6696f714-e7cd-48ef-92aa-0900c0c53186"], +Cell[605373, 15152, 601, 13, 49, "Message",ExpressionUUID->"e2b30a07-dc60-4012-a1a6-11651347cda7"], +Cell[605977, 15167, 607, 13, 69, "Message",ExpressionUUID->"bcd94259-ee88-4263-ac32-b4ed7d1939d4"], +Cell[606587, 15182, 493, 11, 20, "Message",ExpressionUUID->"67b10169-5845-4e1f-8cfb-7b6c544f94e0"], +Cell[607083, 15195, 194, 3, 26, "Output",ExpressionUUID->"a7e1917e-8374-4c3c-bdf6-e5950cb61d30"] }, Open ]], Cell[CellGroupData[{ -Cell[578309, 14260, 2223, 64, 70, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], -Cell[580535, 14326, 572, 12, 70, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], -Cell[581110, 14340, 573, 12, 70, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], -Cell[581686, 14354, 579, 12, 70, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], -Cell[582268, 14368, 456, 10, 70, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], -Cell[582727, 14380, 173, 3, 70, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +Cell[607314, 15203, 2053, 55, 69, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[609370, 15260, 20366, 382, 189, "Output",ExpressionUUID->"b1501074-c969-4bed-88b0-3d26fa4ff2dc"] }, Open ]], Cell[CellGroupData[{ -Cell[582937, 14388, 215, 6, 70, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], -Cell[583155, 14396, 174, 3, 70, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +Cell[629773, 15647, 2143, 60, 112, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[631919, 15709, 537, 12, 49, "Message",ExpressionUUID->"154fed1b-1c23-4a6e-a962-d8a29161b2cf"], +Cell[632459, 15723, 540, 12, 49, "Message",ExpressionUUID->"45e7428d-cb7a-4b2e-bd5c-3b5db313be99"], +Cell[633002, 15737, 544, 12, 49, "Message",ExpressionUUID->"bfa3fdef-b7fd-4618-87d7-ba72786c06d0"], +Cell[633549, 15751, 495, 11, 20, "Message",ExpressionUUID->"0fc021c0-debb-4745-be5b-7c39f9e72fc4"], +Cell[634047, 15764, 23119, 426, 186, "Output",ExpressionUUID->"ce6224e8-11fd-449a-9b7f-8831c7954880"] +}, Open ]], +Cell[CellGroupData[{ +Cell[657203, 16195, 232, 5, 23, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[657438, 16202, 53779, 1147, 186, "Output",ExpressionUUID->"5ab087a8-c616-4408-af60-fceed1871356"] +}, Open ]], +Cell[CellGroupData[{ +Cell[711254, 17354, 1616, 48, 60, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[712873, 17404, 639, 13, 51, "Message",ExpressionUUID->"a656f2b9-9e06-4b6f-9953-65a80357b41e"], +Cell[713515, 17419, 642, 13, 64, "Message",ExpressionUUID->"7a73e394-cdc8-4a77-99dc-ba853bcfb1b0"], +Cell[714160, 17434, 644, 13, 64, "Message",ExpressionUUID->"f358453b-ce09-4443-844b-a08d508d1deb"], +Cell[714807, 17449, 493, 11, 20, "Message",ExpressionUUID->"909c2adc-fce1-43d4-8fdb-f67fbf315e1a"], +Cell[715303, 17462, 195, 3, 26, "Output",ExpressionUUID->"7c33c904-507c-45d9-bd55-215bed3ed919"] +}, Open ]], +Cell[CellGroupData[{ +Cell[715535, 17470, 2272, 64, 128, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[717810, 17536, 600, 13, 49, "Message",ExpressionUUID->"81a1bae3-5847-4d98-b47c-dee66abcec1f"], +Cell[718413, 17551, 605, 13, 49, "Message",ExpressionUUID->"cb0caa2f-9d48-4749-a847-8dce2da06547"], +Cell[719021, 17566, 607, 13, 69, "Message",ExpressionUUID->"f2891cf9-a797-43e1-a539-4233c6240e8f"], +Cell[719631, 17581, 495, 11, 20, "Message",ExpressionUUID->"92cb942b-d510-4071-8fa9-602f6eb3cd05"], +Cell[720129, 17594, 195, 3, 26, "Output",ExpressionUUID->"158c2972-dde8-4a0c-97f6-85277ec80fa6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[720361, 17602, 2233, 63, 128, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[722597, 17667, 602, 13, 49, "Message",ExpressionUUID->"a688cab5-e77b-4bb5-86ef-90995a86af0c"], +Cell[723202, 17682, 603, 13, 49, "Message",ExpressionUUID->"9cbaa64b-825d-4d15-9565-2e14028843c0"], +Cell[723808, 17697, 609, 13, 69, "Message",ExpressionUUID->"845265f8-1e1b-48c1-bcd8-7a6be55a9593"], +Cell[724420, 17712, 495, 11, 20, "Message",ExpressionUUID->"f80c4250-4350-4818-9fe5-2782f75e6d78"], +Cell[724918, 17725, 195, 3, 26, "Output",ExpressionUUID->"79eab173-910f-4628-a43c-36b9931f459b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[725150, 17733, 2235, 63, 128, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[727388, 17798, 600, 13, 49, "Message",ExpressionUUID->"0cdd9246-b0ef-4ca7-a199-faa114e36d0f"], +Cell[727991, 17813, 605, 13, 49, "Message",ExpressionUUID->"024c4f92-46ec-46e9-9eb9-01d7f40906f8"], +Cell[728599, 17828, 609, 13, 69, "Message",ExpressionUUID->"07b4c87e-4969-44e6-979f-b138a5e379db"], +Cell[729211, 17843, 497, 11, 20, "Message",ExpressionUUID->"5f139707-dec0-46a6-b593-2d755e9b5613"], +Cell[729711, 17856, 196, 3, 26, "Output",ExpressionUUID->"c69788c6-842b-44de-970a-51b4b51feaa6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[729944, 17864, 238, 6, 39, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[730185, 17872, 196, 3, 38, "Output",ExpressionUUID->"1451bc38-e99e-4769-8a71-9053d3580a5f"] }, Open ]] } ] *) +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw2.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw2.nb index 1226680..37972ba 100755 --- a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw2.nb +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw2.nb @@ -3,42 +3,5155 @@ (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) -(* CreatedBy='Wolfram 14.1' *) +(* CreatedBy='Wolfram 15.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 407368, 9500] -NotebookOptionsPosition[ 383518, 9136] -NotebookOutlinePosition[ 383944, 9153] -CellTagsIndexPosition[ 383901, 9150] +NotebookDataLength[ 679990, 16274] +NotebookOptionsPosition[ 639472, 15626] +NotebookOutlinePosition[ 639909, 15644] +CellTagsIndexPosition[ 639866, 15641] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ -Cell[BoxData[ - RowBox[{"f1", "="}]], "Input", - CellChangeTimes->{ - 3.9918501413985214`*^9},ExpressionUUID->"5894836c-9594-0940-b94c-\ -299085c765cc"], -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501359768734`*^9, - 3.991850137465685*^9}},ExpressionUUID->"5965eb10-01f8-5545-9b6f-\ -8fab318cd4b7"], +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "2"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993120093374651*^9, 3.993120098406262*^9}, { + 3.9931205775772543`*^9, 3.9931205930074*^9}, {3.99312068244851*^9, + 3.993120683031312*^9}, {3.993120763928855*^9, 3.993120796207575*^9}, { + 3.993120826638487*^9, 3.99312091050727*^9}, {3.9938200779452133`*^9, + 3.993820078648109*^9}}, + CellLabel->"In[95]:=",ExpressionUUID->"f4614a95-84ae-4ec8-87f4-63654961f7e1"], + +Cell[BoxData["2"], "Output", + CellChangeTimes->{{3.99312071481172*^9, 3.993120733996957*^9}, + 3.993120778405978*^9, {3.993120808982645*^9, 3.993120917972237*^9}, + 3.9931263962514753`*^9, 3.993127107949593*^9, 3.9931273269905376`*^9, + 3.993129929766796*^9, 3.993820659117201*^9, 3.9938209219867153`*^9, + 3.9938213248523483`*^9, 3.993826061148011*^9, 3.993826235461638*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"d6f68e95-b00b-4b13-b44f-57521894f8fe"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9921791748924236`*^9, 3.992179175479521*^9}}, + CellLabel->"In[96]:=",ExpressionUUID->"6df7c2e3-0930-42f4-86b0-051b015d582e"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ -092c5143dcf0"], + 3.9913196497381973`*^9, 3.992179197984804*^9, 3.992572214097535*^9, + 3.992572317060832*^9, 3.993119177905259*^9, 3.993120125010063*^9, + 3.9931206200212383`*^9, 3.993120734031558*^9, 3.993120778440694*^9, { + 3.9931208090163393`*^9, 3.993120918005108*^9}, 3.993126396590149*^9, + 3.99312710802812*^9, 3.993127327031427*^9, 3.993129929806696*^9, + 3.993820922243906*^9, 3.993821325040292*^9, 3.993826061200549*^9, + 3.993826235537283*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"c0d44716-88d3-482e-9dd4-8e0ce522cd4d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "174"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.992179210458246*^9, 3.9921792125496464`*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"90aa21e7-5e1a-4d70-804c-953ad950ff15"], + +Cell[BoxData["174"], "Output", + CellChangeTimes->{ + 3.992179213346216*^9, 3.992572214121804*^9, 3.992572317082644*^9, + 3.9931191779262667`*^9, 3.993120125034624*^9, 3.993120620044674*^9, + 3.993120734050745*^9, 3.993120778464333*^9, {3.9931208090398912`*^9, + 3.993120918033216*^9}, 3.9931263966177673`*^9, 3.993127108045971*^9, + 3.993127327055435*^9, 3.99312992983158*^9, 3.993820922264188*^9, + 3.993821325060758*^9, 3.99382606120652*^9, 3.993826235553937*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"b0c15ba5-7da1-42f3-ab23-e758c93c5765"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[98]:=",ExpressionUUID->"53fe9e21-bd75-45fe-ba31-f8a22a9ad541"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.992572214146598*^9, 3.992572317086834*^9, + 3.993119177946436*^9, 3.993120125058119*^9, 3.993120620068224*^9, + 3.993120734070492*^9, 3.993120778487204*^9, {3.993120809063224*^9, + 3.993120918037675*^9}, 3.9931263966592207`*^9, 3.993127108062867*^9, + 3.9931273270590353`*^9, 3.993129929855886*^9, 3.9938209222814407`*^9, + 3.993821325081142*^9, 3.993826061212113*^9, 3.993826235570812*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"cf8dd45b-cba6-41ca-8215-ad929ac57fe7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[99]:=",ExpressionUUID->"f26a36c2-4312-4e16-9f91-f6234fb74014"], + +Cell[BoxData["0.54325`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.992572214170871*^9, 3.992572317111895*^9, + 3.993119177966724*^9, 3.993120125061846*^9, 3.993120620073361*^9, + 3.993120734074827*^9, 3.993120778491198*^9, {3.993120809067272*^9, + 3.993120918063335*^9}, 3.9931263966877337`*^9, 3.993127108066464*^9, + 3.993127327083083*^9, 3.99312992986033*^9, 3.99382092229881*^9, + 3.993821325101738*^9, 3.993826061217783*^9, 3.9938262355755997`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"c15ab5e5-9353-45fe-9df9-59f7bb7a995f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[100]:=",ExpressionUUID->"1dabf38a-6896-424c-9ff7-bbe419818d60"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.992572214197208*^9, 3.992572317132773*^9, + 3.993119177986623*^9, 3.993120125088593*^9, 3.993120620099668*^9, + 3.993120734095941*^9, 3.99312077851781*^9, {3.993120809095289*^9, + 3.993120918090218*^9}, 3.993126396714637*^9, 3.993127108084917*^9, + 3.993127327106142*^9, 3.993129929903006*^9, 3.9938209223161383`*^9, + 3.9938213251220818`*^9, 3.993826061223954*^9, 3.9938262355931387`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"ccb3dff7-d141-40bb-b73e-672dcc83dc41"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"6496472b-1ad5-4ca8-b4b2-92421bb9c5c3"], + +Cell[BoxData["6.4760133991237705`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.992572214222725*^9, 3.992572317154562*^9, + 3.99311917800653*^9, 3.9931201251119223`*^9, 3.993120620121489*^9, + 3.993120734114851*^9, 3.993120778540956*^9, {3.993120809118425*^9, + 3.9931209181194077`*^9}, 3.993126396741642*^9, 3.993127108102049*^9, + 3.993127327128428*^9, 3.993129929926125*^9, 3.993820922333848*^9, + 3.993821325144353*^9, 3.993826061230063*^9, 3.993826235622911*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"6edadc2a-5547-4ad5-bfce-837d5b6a2650"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"109f0109-b3d1-46c9-aaf4-cfdcd2aff02c"], + +Cell[BoxData["4.6878384239217405`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992572214247353*^9, 3.9925723171758833`*^9, + 3.993119178026596*^9, 3.993120125135309*^9, 3.9931206201430807`*^9, + 3.9931207341331453`*^9, 3.993120778564814*^9, {3.993120809140911*^9, + 3.993120918144981*^9}, 3.993126396766501*^9, 3.9931271081205463`*^9, + 3.99312732715136*^9, 3.993129929948636*^9, 3.993820922349847*^9, + 3.9938213251706743`*^9, 3.993826061235899*^9, 3.99382623564113*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"f25dd58e-441d-4850-b395-e13e3ddeada5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", " ", "0.787635594208527"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.992179227142147*^9, 3.9921792274418793`*^9}}, + CellLabel-> + "In[103]:=",ExpressionUUID->"0edbf74a-3d54-40cc-9804-2293364813af"], + +Cell[BoxData["0.787635594208527`"], "Output", + CellChangeTimes->{ + 3.9921792420000687`*^9, 3.992572214271277*^9, 3.992572317197154*^9, + 3.993119178046308*^9, 3.993120125158621*^9, 3.993120620165731*^9, + 3.993120734151725*^9, 3.993120778587878*^9, {3.993120809163859*^9, + 3.993120918172269*^9}, 3.9931263967899513`*^9, 3.9931271081375427`*^9, + 3.993127327173975*^9, 3.9931299299716787`*^9, 3.993820922366026*^9, + 3.99382132519131*^9, 3.993826061242024*^9, 3.993826235660111*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"80995920-457f-40c9-b8bf-cee763e71868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", " ", "0.446333511300556"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.9921792384900284`*^9, 3.9921792388312874`*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"4f46449f-e261-4aa4-a52c-ffd216fd30f1"], + +Cell[BoxData["0.446333511300556`"], "Output", + CellChangeTimes->{ + 3.9921792398346214`*^9, 3.992572214295*^9, 3.992572317218054*^9, + 3.9931191780661097`*^9, 3.9931201251823397`*^9, 3.9931206201876802`*^9, + 3.993120734170333*^9, 3.993120778610222*^9, {3.993120809186323*^9, + 3.99312091819843*^9}, 3.993126396813437*^9, 3.993127108161908*^9, + 3.993127327196413*^9, 3.993129929995016*^9, 3.993820922383264*^9, + 3.993821325212247*^9, 3.99382606124806*^9, 3.993826235676867*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"0027bee8-0e96-4a8f-8176-4c615722ca7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"adf931c9-d7dc-42f6-9895-b946a9aad87b"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992572214318672*^9, 3.992572317239251*^9, + 3.99311917808567*^9, 3.9931201252072067`*^9, 3.993120620211128*^9, + 3.9931207341889687`*^9, 3.99312077863275*^9, {3.9931208092095003`*^9, + 3.993120918224504*^9}, 3.993126396838297*^9, 3.993127108181823*^9, + 3.993127327218768*^9, 3.993129930018751*^9, 3.993820922401799*^9, + 3.993821325232583*^9, 3.9938260612536488`*^9, 3.993826235693671*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"120ac216-8a12-4c1f-bca2-3e75f7b58fe0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"3e9ac25e-568c-4eca-acfa-3d2db348cdd0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.992572214341442*^9, 3.99257231726003*^9, + 3.9931191781051207`*^9, 3.993120125230564*^9, 3.9931206202335043`*^9, + 3.99312073420716*^9, 3.993120778655138*^9, {3.993120809232238*^9, + 3.993120918250256*^9}, 3.9931263968628597`*^9, 3.9931271081993628`*^9, + 3.9931273272409983`*^9, 3.993129930042575*^9, 3.9938209224218187`*^9, + 3.993821325253791*^9, 3.9938260612590237`*^9, 3.993826235711255*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"b4162d3b-0475-485c-b388-d29749251b3b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w1", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"3cfd11c0-60d9-4d65-8812-f2282fda1faa"], + +Cell[BoxData["2.061265729478835`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9925722143657017`*^9, 3.992572317280959*^9, + 3.993119178124851*^9, 3.993120125254407*^9, 3.993120620254471*^9, + 3.993120734225675*^9, 3.9931207786779127`*^9, {3.993120809254608*^9, + 3.993120918276112*^9}, 3.9931263968879843`*^9, 3.993127108217485*^9, + 3.993127327263125*^9, 3.993129930068864*^9, 3.993820922442368*^9, + 3.993821325274584*^9, 3.993826061264597*^9, 3.993826235727771*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"266860ad-fdc6-4c32-b52c-76d036e465ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"w2", "=", + FractionBox[ + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "-", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"3448b374-c204-48d3-97c3-65d375d46419"], + +Cell[BoxData["1.500736140386642`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992572214389948*^9, 3.992572317303102*^9, + 3.993119178144163*^9, 3.9931201252777433`*^9, 3.9931206202755957`*^9, + 3.993120734243594*^9, 3.9931207787003393`*^9, {3.993120809276908*^9, + 3.99312091830203*^9}, 3.993126396911474*^9, 3.993127108235187*^9, + 3.993127327285036*^9, 3.993129930093583*^9, 3.993820922464366*^9, + 3.993821325296948*^9, 3.9938260612702*^9, 3.993826235745035*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"ca5c3020-5763-465d-a74e-4ff679ffb684"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[109]:=",ExpressionUUID->"96a4b4d5-82ad-4694-b62f-878d08a439cb"], + +Cell[BoxData["0.4819667641075124`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992572214413184*^9, 3.99257231732421*^9, + 3.993119178164648*^9, 3.993120125301038*^9, 3.9931206202958717`*^9, + 3.993120734262151*^9, 3.993120778723154*^9, {3.993120809300878*^9, + 3.99312091832813*^9}, 3.993126396937214*^9, 3.9931271082526913`*^9, + 3.993127327307868*^9, 3.9931299301179867`*^9, 3.993820922485868*^9, + 3.993821325318647*^9, 3.993826061276554*^9, 3.993826235762134*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"debb8911-a3dc-46bf-99fd-e9212df1b02d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"a9f7e6f1-b3a8-4362-9e3c-a163dd345af4"], + +Cell[BoxData[ + RowBox[{"-", "0.11350137337476086`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992572214437451*^9, 3.9925723173458*^9, + 3.993119178185848*^9, 3.993120125324417*^9, 3.9931206203183327`*^9, + 3.993120734281169*^9, 3.9931207787467546`*^9, {3.9931208093296213`*^9, + 3.99312091835464*^9}, 3.993126396963295*^9, 3.993127108270629*^9, + 3.993127327330381*^9, 3.9931299301418533`*^9, 3.99382092250697*^9, + 3.993821325323758*^9, 3.993826061283802*^9, 3.993826235781333*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"a4fce8e2-d219-4349-ab66-2080b63f5a6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c21", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w1", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[111]:=",ExpressionUUID->"cb81da58-2be7-438f-ab37-946e951efceb"], + +Cell[BoxData[ + RowBox[{"-", "0.4652269449262844`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992572214463674*^9, 3.992572317369649*^9, + 3.9931191782082033`*^9, 3.99312012534838*^9, 3.993120620340795*^9, + 3.993120734300748*^9, 3.993120778771158*^9, {3.993120809354206*^9, + 3.993120918381035*^9}, 3.993126396990156*^9, 3.9931271082880383`*^9, + 3.993127327353141*^9, 3.993129930165496*^9, 3.993820922527863*^9, + 3.9938213253592663`*^9, 3.993826061291197*^9, 3.993826235799756*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"7b476180-d54c-4418-a204-e4ccf0c1a762"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c22", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w1", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w2", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[112]:=",ExpressionUUID->"32f3b525-a2e4-46c3-ba06-f4c267b28e73"], + +Cell[BoxData["0.6581300944010081`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.992572214489163*^9, 3.992572317393075*^9, + 3.993119178231051*^9, 3.9931201253721113`*^9, 3.99312062036334*^9, + 3.993120734321094*^9, 3.993120778795766*^9, {3.993120809378998*^9, + 3.993120918385751*^9}, 3.9931263970193033`*^9, 3.993127108305181*^9, + 3.9931273273757467`*^9, 3.993129930188332*^9, 3.9938209225487947`*^9, + 3.993821325380507*^9, 3.993826061297839*^9, 3.993826235822646*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"a8d518c3-a9bb-4d17-a7ac-a028acb91c6f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[113]:=",ExpressionUUID->"a0d0cd70-a1eb-44f3-a837-5cc85b06969b"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.992572214515427*^9, 3.99257231741498*^9, + 3.993119178253972*^9, 3.993120125375824*^9, 3.993120620387291*^9, + 3.993120734341495*^9, 3.993120778819956*^9, {3.9931208093832693`*^9, + 3.9931209184116087`*^9}, 3.99312639704468*^9, 3.993127108308776*^9, + 3.993127327398494*^9, 3.9931299302114077`*^9, 3.993820922569104*^9, + 3.993821325402446*^9, 3.993826061304533*^9, 3.9938262358396177`*^9}, + CellLabel-> + "Out[113]=",ExpressionUUID->"d92bd304-d593-4598-92c7-38a8341d7cd2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[114]:=",ExpressionUUID->"ad80b2cb-04e1-4e5f-a5b0-356f016178c4"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9925722145429707`*^9, 3.992572317437202*^9, + 3.993119178277193*^9, 3.9931201254011793`*^9, 3.993120620412382*^9, + 3.9931207343622217`*^9, 3.9931207788442707`*^9, {3.99312080941044*^9, + 3.9931209184381313`*^9}, 3.993126397071262*^9, 3.99312710832703*^9, + 3.9931273274216337`*^9, 3.993129930233728*^9, 3.993820922588461*^9, + 3.993821325422915*^9, 3.993826061310576*^9, 3.993826235855927*^9}, + CellLabel-> + "Out[114]=",ExpressionUUID->"0c4d38f3-9301-46a0-9c24-8297754a5557"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[115]:=",ExpressionUUID->"dde3114e-1452-413e-9738-a085eaf79a1d"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992572214574439*^9, 3.992572317459443*^9, + 3.993119178300417*^9, 3.9931201254244537`*^9, 3.9931206204363203`*^9, + 3.993120734383583*^9, 3.9931207788686132`*^9, {3.9931208094353867`*^9, + 3.9931209184643908`*^9}, 3.993126397099202*^9, 3.993127108343864*^9, + 3.993127327445428*^9, 3.9931299302566557`*^9, 3.9938209226073112`*^9, + 3.993821325443508*^9, 3.993826061316635*^9, 3.9938262358752813`*^9}, + CellLabel-> + "Out[115]=",ExpressionUUID->"a6d2d32c-0db3-41cf-ba64-10ac6bc25947"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[116]:=",ExpressionUUID->"2be19550-489d-4156-84cc-8ca0424642f7"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992572214602646*^9, 3.9925723174828*^9, + 3.993119178323925*^9, 3.993120125448517*^9, 3.993120620460043*^9, + 3.993120734387587*^9, 3.993120778893586*^9, {3.99312080946041*^9, + 3.993120918489931*^9}, 3.993126397126109*^9, 3.993127108360798*^9, + 3.9931273274692783`*^9, 3.993129930279661*^9, 3.993820922626377*^9, + 3.993821325463908*^9, 3.993826061322694*^9, 3.993826235892658*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"b9fdbd96-df42-4357-af3a-e135062d3287"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[117]:=",ExpressionUUID->"21a43080-a45f-48e9-be48-c88c5c0abe48"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992572214629313*^9, 3.992572317507607*^9, + 3.9931191783485727`*^9, 3.993120125472217*^9, 3.993120620483555*^9, + 3.9931207344112377`*^9, 3.993120778917965*^9, {3.9931208094855137`*^9, + 3.993120918515835*^9}, 3.9931263971541853`*^9, 3.9931271083779078`*^9, + 3.99312732750038*^9, 3.9931299303028812`*^9, 3.993820922647743*^9, + 3.993821325485675*^9, 3.993826061328664*^9, 3.993826235913389*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"cff7d88b-b97b-470b-acd4-35a3df5c2b58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", " ", "64"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.992179334842106*^9, 3.992179335687786*^9}}, + CellLabel-> + "In[118]:=",ExpressionUUID->"f19d605c-459c-47c0-945b-8f15f34ae3f0"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.992179336847067*^9, 3.9925722146573257`*^9, 3.992572317531928*^9, + 3.9931191783727818`*^9, 3.99312012549559*^9, 3.993120620507852*^9, + 3.99312073443309*^9, 3.9931207789437017`*^9, {3.993120809511362*^9, + 3.993120918541663*^9}, 3.993126397182165*^9, 3.9931271083947906`*^9, + 3.993127327526623*^9, 3.993129930307193*^9, 3.993820922668882*^9, + 3.993821325506364*^9, 3.993826061334708*^9, 3.993826235918172*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"3a2adf69-5e46-41c8-8322-59d16c86e33b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9921793256443367`*^9, 3.992179330522312*^9}}, + CellLabel-> + "In[119]:=",ExpressionUUID->"c3bc61ec-3fda-4589-b10f-4fb084fbc354"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9921793318030663`*^9, 3.9925722146853657`*^9, + 3.9925723175551643`*^9, 3.993119178397065*^9, 3.9931201255193787`*^9, + 3.993120620532507*^9, 3.993120734454447*^9, 3.9931207789693117`*^9, { + 3.993120809536613*^9, 3.9931209185672503`*^9}, 3.993126397209779*^9, + 3.993127108411848*^9, 3.993127327550788*^9, 3.993129930331666*^9, + 3.993820922690579*^9, 3.993821325527898*^9, 3.9938260613417807`*^9, + 3.993826235946435*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"88610429-3341-4584-9c46-6a72e4d15f35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"06751aac-1ecf-4994-8398-9a86c6a8efce"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992572214711643*^9, 3.9925723175775127`*^9, + 3.993119178422393*^9, 3.993120125544594*^9, 3.9931206205571127`*^9, + 3.993120734475452*^9, 3.993120778995337*^9, {3.993120809563072*^9, + 3.993120918592782*^9}, 3.993126397236918*^9, 3.9931271084302473`*^9, + 3.9931273275743093`*^9, 3.9931299303548107`*^9, 3.9938209227139177`*^9, + 3.993821325548872*^9, 3.993826061348962*^9, 3.993826235965947*^9}, + CellLabel-> + "Out[120]=",ExpressionUUID->"bd377395-1b20-427c-bb02-9c18f7ef54c2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Din", "=", + RowBox[{"fin", "+", + RowBox[{"ffin", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[121]:=",ExpressionUUID->"4c9fe01a-057f-42d0-bdfa-6fb5832fbee3"], + +Cell[BoxData["0.10009404388714734`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9925722147384853`*^9, 3.9925723175992517`*^9, + 3.993119178447468*^9, 3.9931201255690928`*^9, 3.99312062058057*^9, + 3.993120734496913*^9, 3.9931207790217533`*^9, {3.993120809589333*^9, + 3.993120918618535*^9}, 3.993126397265643*^9, 3.993127108447774*^9, + 3.993127327597167*^9, 3.993129930377665*^9, 3.993820922736074*^9, + 3.993821325571004*^9, 3.9938260613561087`*^9, 3.993826235986519*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"d8064d8b-ec8d-4cb6-8c5e-8e6bb03ea001"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Dex", "=", + RowBox[{"fex", "+", + RowBox[{"ffex", "*", + FractionBox[ + RowBox[{"A1", "-", + RowBox[{"2", "*", "Z1"}]}], "A1"], "*", + FractionBox[ + RowBox[{"A2", "-", + RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"bbecb7a8-a495-469d-a692-7241b3cbad24"], + +Cell[BoxData[ + RowBox[{"-", "2.5770219435736674`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9925722147662983`*^9, 3.992572317620441*^9, + 3.99311917847161*^9, 3.9931201255928173`*^9, 3.993120620603883*^9, + 3.99312073451705*^9, 3.993120779047393*^9, {3.993120809616363*^9, + 3.99312091864408*^9}, 3.993126397321745*^9, 3.9931271084650297`*^9, + 3.993127327619956*^9, 3.9931299304007187`*^9, 3.9938209227580633`*^9, + 3.993821325594208*^9, 3.993826061363269*^9, 3.9938262360037613`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"d4b62705-30cc-47b3-8a88-c9ae9de43558"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R00", "=", + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], + "+", "d"}]}]], "Input", + CellChangeTimes->{{3.94341290952442*^9, 3.943412910242494*^9}, { + 3.9434143596934533`*^9, 3.9434143624992285`*^9}, {3.9434184316043854`*^9, + 3.943418448948422*^9}, {3.9919752185010967`*^9, 3.9919752200326233`*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"4beb8ff7-52a8-4b4a-8aa3-e2564cf400ba"], + +Cell[BoxData["17.307103859214784`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9925722147917547`*^9, 3.992572317642908*^9, + 3.9931191784953337`*^9, 3.9931201256157637`*^9, 3.993120620627388*^9, + 3.993120734537298*^9, 3.993120779073007*^9, {3.993120809642799*^9, + 3.99312091866967*^9}, 3.993126397349163*^9, 3.993127108482143*^9, + 3.993127327644107*^9, 3.993129930424616*^9, 3.9938209227870483`*^9, + 3.993821325616982*^9, 3.9938260613715*^9, 3.993826236021562*^9}, + CellLabel-> + "Out[123]=",ExpressionUUID->"171f3bf7-0f04-4843-87c1-25c16503f0f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"935d1346-8c60-4b0b-bc13-7ecc335a63a9"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992572214844244*^9, 3.992572317663885*^9, + 3.993119178519957*^9, 3.9931201256394*^9, 3.993120620650062*^9, + 3.9931207345574923`*^9, 3.9931207790984907`*^9, {3.99312080966818*^9, + 3.993120918694831*^9}, 3.9931263973740883`*^9, 3.99312710849828*^9, + 3.993127327666795*^9, 3.993129930447353*^9, 3.993820922809124*^9, + 3.99382132563982*^9, 3.9938260613795233`*^9, 3.993826236038542*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"8c839fd2-2370-4d15-afcc-26586e849b85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", " ", "1.7300"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.99217938935705*^9, 3.9921793928277493`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"99febca1-fee4-45d9-8643-6dda69371d29"], + +Cell[BoxData["1.73`"], "Output", + CellChangeTimes->{ + 3.992179393619543*^9, 3.99257221486978*^9, 3.9925723176844263`*^9, + 3.993119178543579*^9, 3.993120125662697*^9, 3.993120620672945*^9, + 3.993120734577505*^9, 3.99312077912435*^9, {3.993120809694366*^9, + 3.9931209187201843`*^9}, 3.993126397400276*^9, 3.993127108513898*^9, + 3.9931273276905518`*^9, 3.993129930470989*^9, 3.993820922835219*^9, + 3.993821325664843*^9, 3.9938260613864*^9, 3.993826236055571*^9}, + CellLabel-> + "Out[125]=",ExpressionUUID->"374495ef-0332-4c17-918e-f7a0643c3599"] +}, Open ]], Cell[BoxData[""], "Input", - CellChangeTimes->{{3.9918501388085117`*^9, - 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ -a3c857e6ae57"], + CellChangeTimes->{{3.9918486394740562`*^9, 3.991848639478634*^9}}, + CellLabel-> + "In[126]:=",ExpressionUUID->"a5580b80-b6b1-46f5-9965-897b2f884f80"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", " ", "0.7600"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.992179397583227*^9, 3.992179400444868*^9}}, + CellLabel-> + "In[127]:=",ExpressionUUID->"ece592cb-b90f-4471-8072-946c76d0f2f5"], + +Cell[BoxData["0.76`"], "Output", + CellChangeTimes->{ + 3.992179401201977*^9, 3.992572214909528*^9, 3.992572317717004*^9, + 3.993119178580999*^9, 3.993120125699438*^9, 3.993120620708702*^9, + 3.993120734611329*^9, 3.993120779164959*^9, {3.9931208097375097`*^9, + 3.993120918756428*^9}, 3.993126397434441*^9, 3.99312710854491*^9, + 3.993127327734688*^9, 3.993129930499295*^9, 3.993820922907363*^9, + 3.993821325729994*^9, 3.9938260613964157`*^9, 3.993826236089164*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"d8ad4c9a-a8bd-4c43-9ab6-c216d625471f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[128]:=",ExpressionUUID->"5e69ded1-600f-44c3-9641-bfe2cf6a05fb"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", " ", "2.400"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9921794031483917`*^9, 3.9921794061884384`*^9}}, + CellLabel-> + "In[129]:=",ExpressionUUID->"3430b01f-4e29-43d7-8f32-926c221d9a97"], + +Cell[BoxData["2.4`"], "Output", + CellChangeTimes->{ + 3.992179407540327*^9, 3.992572214945683*^9, 3.9925723177561007`*^9, + 3.993119178617138*^9, 3.993120125731515*^9, 3.993120620741789*^9, + 3.99312073464296*^9, 3.993120779203336*^9, {3.993120809773469*^9, + 3.993120918792803*^9}, 3.993126397467867*^9, 3.993127108575645*^9, + 3.993127327780107*^9, 3.993129930527397*^9, 3.99382092297139*^9, + 3.993821325794901*^9, 3.993826061406231*^9, 3.993826236125414*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"8ea7d8d9-b26f-4f6d-b50d-c35d0a7a4c2d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[130]:=",ExpressionUUID->"7f65d661-f738-4eaf-b4bf-15f969db9e29"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", " ", "1.1050"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.992179410033045*^9, 3.9921794153030643`*^9}}, + CellLabel-> + "In[131]:=",ExpressionUUID->"d43cf12a-15f3-40d8-ad6d-a178113f8ccc"], + +Cell[BoxData["1.105`"], "Output", + CellChangeTimes->{ + 3.992179415754301*^9, 3.992572214981649*^9, 3.992572317797142*^9, + 3.9931191786546717`*^9, 3.993120125772245*^9, 3.993120620774741*^9, + 3.993120734674015*^9, 3.993120779246025*^9, {3.9931208098102417`*^9, + 3.993120918832294*^9}, 3.9931263974996033`*^9, 3.9931271086069736`*^9, + 3.993127327858879*^9, 3.9931299305553226`*^9, 3.993820923074497*^9, + 3.993821325903837*^9, 3.9938260614150753`*^9, 3.993826236159252*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"da8ed0ac-3861-4e3c-bdb8-53c6cde51fd5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[132]:=",ExpressionUUID->"49a9cff1-4406-4924-a813-7cae6d495507"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", " ", "1.4012"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9921794177283573`*^9, + 3.992179423583313*^9}}, + CellLabel-> + "In[133]:=",ExpressionUUID->"22faf60d-df7c-4d1e-82fd-e0eedb2379c3"], + +Cell[BoxData["1.4012`"], "Output", + CellChangeTimes->{ + 3.9921794257836323`*^9, 3.992572215020274*^9, 3.9925723178372593`*^9, + 3.993119178721389*^9, 3.9931201258041277`*^9, 3.993120620807364*^9, + 3.9931207347045813`*^9, 3.99312077928405*^9, {3.993120809849883*^9, + 3.993120918882786*^9}, 3.9931263975308533`*^9, 3.993127108637912*^9, + 3.9931273279852*^9, 3.993129930582982*^9, 3.993820923150923*^9, + 3.993821326101439*^9, 3.993826061423254*^9, 3.993826236193234*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"d950bcfd-fe68-4916-b6b5-c5f81d644071"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[134]:=",ExpressionUUID->"65950901-7e68-4b12-bee7-c1aa49ce1558"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", " ", "0.5547"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9921794277801266`*^9, + 3.9921794329809513`*^9}}, + CellLabel-> + "In[135]:=",ExpressionUUID->"2f642c27-27b0-411e-a754-b69005cecdd8"], + +Cell[BoxData["0.5547`"], "Output", + CellChangeTimes->{ + 3.9921794363325005`*^9, 3.992572215056624*^9, 3.992572317866984*^9, + 3.9931191787561502`*^9, 3.993120125890787*^9, 3.9931206208406067`*^9, + 3.993120734738842*^9, 3.993120779339178*^9, {3.993120809889782*^9, + 3.993120918919759*^9}, 3.993126397559119*^9, 3.993127108670261*^9, + 3.993127328084579*^9, 3.993129930610573*^9, 3.993820923263421*^9, + 3.993821326258257*^9, 3.993826061432432*^9, 3.993826236227951*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"f8e366fb-4be7-4a7f-8e64-bc45242e8c4f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[136]:=",ExpressionUUID->"6e6d05f3-541d-46bd-a397-8386e8f29f5f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", " ", "1.1338"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9921794404678802`*^9, + 3.992179445208559*^9}}, + CellLabel-> + "In[137]:=",ExpressionUUID->"c3d2ea79-909e-4959-aeb0-02a06cadbe5e"], + +Cell[BoxData["1.1338`"], "Output", + CellChangeTimes->{ + 3.99217944657938*^9, 3.992572215093463*^9, 3.992572317906247*^9, + 3.99311917879039*^9, 3.9931201260449333`*^9, 3.993120620873763*^9, + 3.993120734773638*^9, 3.993120779536425*^9, {3.993120809930094*^9, + 3.993120918956725*^9}, 3.993126397589849*^9, 3.9931271087029333`*^9, + 3.993127328126643*^9, 3.9931299306393948`*^9, 3.993820923352148*^9, + 3.993821326352581*^9, 3.9938260614404907`*^9, 3.9938262362623262`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"67f2ec67-043b-423d-b0c3-752ffbf245d7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[138]:=",ExpressionUUID->"38ecbd8f-d607-44c4-8124-ea40ed3d6951"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", " ", "0.8500"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.9921794486072216`*^9, 3.992179451994211*^9}}, + CellLabel-> + "In[139]:=",ExpressionUUID->"c702a8e1-00a4-43e0-b90a-ed9845a7b257"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{ + 3.992179452410452*^9, 3.9925722151320877`*^9, 3.99257231794547*^9, + 3.9931191788237534`*^9, 3.993120126088036*^9, 3.993120620906579*^9, + 3.993120734815996*^9, 3.99312077958954*^9, {3.993120809970735*^9, + 3.993120919005844*^9}, 3.9931263976232653`*^9, 3.993127108734625*^9, + 3.9931273281682453`*^9, 3.9931299306665077`*^9, 3.993820923454094*^9, + 3.993821326423518*^9, 3.99382606144846*^9, 3.993826236299427*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"93f3ec1b-f822-494b-84be-0294f73ace67"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[140]:=",ExpressionUUID->"9b823831-b206-41f5-8764-485cd284cafe"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U31", "=", + RowBox[{"C0", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", "R1"}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "a1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "nn2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "nn2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"Dex", "*", "v2", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQBmIQ/aR7S2Zj4lvHP7Jp2SD6t2ddPojOapZrBdETK9in +g+jbL87PBNEGxc+WgOhrG/jXgWi9vpDNIFrqcOcWEL1ki/glEK3Wwn0ZRDdb +HLoOonX+9D8E0abp/OxNQDq+aD4niN52MlAbRD/heKsDovPud4WB6HnRPNEg +uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt +Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr +ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== + "], + CellLabel-> + "In[141]:=",ExpressionUUID->"f64c90bd-fe64-4478-8108-4587a2cfc947"], + +Cell[BoxData["0.20251257452349652`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9925722152487392`*^9, 3.99257231801375*^9, + 3.993119178932695*^9, 3.9931201261547956`*^9, 3.993120621085143*^9, + 3.993120734882799*^9, 3.993120779663743*^9, {3.9931208100453367`*^9, + 3.993120919069702*^9}, 3.993126397737794*^9, 3.993127108801776*^9, + 3.993127328244122*^9, 3.99312993079362*^9, 3.993820923644393*^9, + 3.993821326570694*^9, 3.993826061525117*^9, 3.993826236353497*^9}, + CellLabel-> + "Out[141]=",ExpressionUUID->"95bdc258-988f-4e1d-bd40-c83e53fe7aaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U33", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", + FractionBox[ + RowBox[{"R01", "*", "R01"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "-", + RowBox[{"2", "*", "vv1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "a2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}], + ")"}]}], "-", + RowBox[{"v1", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "a2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], "]"}]}], + "+", + RowBox[{"Dex", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "a2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "a2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "a2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + StyleBox[ + RowBox[{"Method", "\[Rule]", " ", "Trapezoidal"}], "MR"]}], + "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[142]:=",ExpressionUUID->"adc7a0e0-4a9e-4996-b03c-24259b6a1a97"], + +Cell[BoxData["5.409861784548971`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.992572215281089*^9, 3.992572318073772*^9, + 3.993119178961668*^9, 3.9931201261913633`*^9, 3.9931206212251253`*^9, + 3.993120734908091*^9, 3.993120779691341*^9, {3.993120810074683*^9, + 3.9931209190984907`*^9}, 3.993126397786759*^9, 3.9931271088494673`*^9, + 3.993127328284951*^9, 3.9931299308716*^9, 3.993820923677984*^9, + 3.993821326623522*^9, 3.9938260615562468`*^9, 3.9938262363820133`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"b468dd2d-d8ea-4cb3-a7c1-a901793276e8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U32", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02"}], "1"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellChangeTimes->{{3.9434391057402463`*^9, 3.9434392313213944`*^9}, { + 3.9434392645024543`*^9, 3.943439303213528*^9}, {3.943439335601962*^9, + 3.943439550065191*^9}}, + CellLabel-> + "In[143]:=",ExpressionUUID->"fc219ad0-c8d0-4709-8e97-680fd6aa3975"], + +Cell[BoxData[ + RowBox[{"-", "26.71933695492077`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.992572215310524*^9, 3.9925723181046333`*^9, + 3.9931191789891367`*^9, 3.993120126228422*^9, 3.9931206213349524`*^9, + 3.993120734934422*^9, 3.993120779718647*^9, {3.993120810103335*^9, + 3.9931209191268253`*^9}, 3.993126397844788*^9, 3.993127108888278*^9, + 3.993127328322741*^9, 3.993129930913966*^9, 3.993820923711501*^9, + 3.993821326675551*^9, 3.99382606158707*^9, 3.9938262364171047`*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"be3c7fff-6b84-4e51-a7c6-5ab31169a15d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U41", "=", + RowBox[{"C0", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[144]:=",ExpressionUUID->"fad7e3f3-e91b-4348-8e21-a41fd99b6d64"], + +Cell[BoxData[ + RowBox[{"-", "33.90805078336294`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9925722153471212`*^9, 3.992572318139402*^9, + 3.993119179022643*^9, 3.993120126260621*^9, 3.99312062146356*^9, + 3.993120734966599*^9, 3.993120779750485*^9, {3.9931208101344213`*^9, + 3.993120919158321*^9}, 3.993126397903695*^9, 3.993127108944912*^9, + 3.993127328366109*^9, 3.993129930961933*^9, 3.993820923754127*^9, + 3.9938213267356653`*^9, 3.993826061623837*^9, 3.993826236481307*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"7cfed3eb-23db-467a-8d2c-91af203e95d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U42", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[145]:=",ExpressionUUID->"1d746f7c-a610-411d-ae9c-43be6452ce7a"], + +Cell[BoxData[ + RowBox[{"-", "80.51800540734116`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992572215384285*^9, 3.992572318174841*^9, + 3.9931191790553703`*^9, 3.993120126295026*^9, 3.993120621602091*^9, + 3.993120734997818*^9, 3.9931207797928047`*^9, {3.993120810164044*^9, + 3.993120919189701*^9}, 3.9931263979617987`*^9, 3.993127109001227*^9, + 3.993127328408454*^9, 3.993129931011693*^9, 3.9938209237970457`*^9, + 3.993821326789933*^9, 3.9938260616611147`*^9, 3.993826236583125*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"0912bd84-ec60-4cd9-b436-6fea50e4d3f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U51", "=", + RowBox[{"C0", "*", "b1", "*", "b1", "*", "b2", "*", "b2", "*", + FractionBox[ + RowBox[{"R01", "*", "R01", "*", "R02", "*", "R02"}], "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "nn1", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R01", "nn1"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"vv1", "*", "v2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R1", "nn1"], "]"}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", "n2", ")"}], "*", + RowBox[{"(", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", + "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "3"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}], ")"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"Coth", "[", + FractionBox["R02", "n2"], "]"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"2", "*", "v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "-", + RowBox[{"v1", "*", "vv2", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "Din"}], "+", "Dex"}], ")"}], "*", + RowBox[{"(", + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{"Coth", "[", + FractionBox["R2", "n2"], "]"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ")"}], "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "nn2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "nn2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "nn2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "0"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}], "+", + RowBox[{"v2", "*", "v1", "*", + RowBox[{"NIntegrate", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"D", "[", + RowBox[{ + RowBox[{ + RowBox[{"-", "4"}], "\[Pi]", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n1", "*", "R1", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n1"}], "R1"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R1"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n1", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R1"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{ + SqrtBox[ + RowBox[{"2", "\[Pi]"}]], "*", "n2", "*", "R2", "*", "p0"}], + RowBox[{"r", "*", + RowBox[{"Sinh", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}]], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{"\[Pi]", "*", "n2"}], "R2"], "*", + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R2"}], "]"}], "*", + RowBox[{"Coth", "[", + RowBox[{"\[Pi]", "*", "n2", "*", "r"}], "]"}]}], "-", + RowBox[{"Cos", "[", + RowBox[{"r", "*", "R2"}], "]"}]}], ")"}], "*", + FractionBox[ + RowBox[{"Sin", "[", + RowBox[{"r", "*", "R00"}], "]"}], + RowBox[{"r", "*", "R00"}]], "*", "r", "*", "r"}], ",", + RowBox[{"{", + RowBox[{"R2", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "->", "R02"}]}], ",", + RowBox[{"{", + RowBox[{"R1", ",", "2"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "->", "R01"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", + RowBox[{"Method", "\[Rule]", + StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[146]:=",ExpressionUUID->"a2d9159c-1f7c-4958-a10d-7b9d06824cbf"], + +Cell[BoxData[ + RowBox[{"-", "205.49185741459576`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.992572215426282*^9, 3.992572318215456*^9, + 3.993119179092291*^9, 3.9931201263315697`*^9, 3.9931206217665358`*^9, + 3.993120735034762*^9, 3.993120779834642*^9, {3.993120810200284*^9, + 3.993120919227768*^9}, 3.993126398030951*^9, 3.99312710912798*^9, + 3.993127328460342*^9, 3.993129931077551*^9, 3.993820923848447*^9, + 3.993821326859296*^9, 3.993826061707528*^9, 3.9938262366420937`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"c680e407-a102-4500-ae06-d9bc244fbcad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[147]:=",ExpressionUUID->"cd9026ea-ff7e-4176-a882-dbdd5741df57"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9925722154529037`*^9, 3.9925723182371407`*^9, + 3.993119179114964*^9, 3.993120126352831*^9, 3.993120621792342*^9, + 3.99312073505088*^9, 3.9931207798622704`*^9, {3.993120810226747*^9, + 3.9931209192549257`*^9}, 3.9931263980390377`*^9, 3.9931271092133408`*^9, + 3.9931273284825706`*^9, 3.9931299311037893`*^9, 3.993820923874393*^9, + 3.993821326886731*^9, 3.993826061716148*^9, 3.99382623670525*^9}, + CellLabel-> + "Out[147]=",ExpressionUUID->"deb9d2dc-fb30-4e33-9fc8-5063a092a79e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[148]:=",ExpressionUUID->"6909c9da-c3b7-42f4-a4b9-0439b42654b6"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.992572215478106*^9, 3.992572318257779*^9, + 3.9931191791375523`*^9, 3.993120126374206*^9, 3.993120621815301*^9, + 3.993120735073701*^9, 3.993120779889783*^9, {3.993120810252183*^9, + 3.993120919282319*^9}, 3.9931263980458927`*^9, 3.993127109244834*^9, + 3.993127328504586*^9, 3.993129931127369*^9, 3.993820923899918*^9, + 3.9938213269126997`*^9, 3.9938260617215767`*^9, 3.993826236726506*^9}, + CellLabel-> + "Out[148]=",ExpressionUUID->"d3358578-66fb-4b4f-a165-d592ed5cd132"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[149]:=",ExpressionUUID->"9d60a6a5-ac04-4825-9670-97db86121061"], + +Cell[BoxData["157.0651890700479`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.992572215502891*^9, 3.9925723182776947`*^9, + 3.9931191791602383`*^9, 3.9931201263788633`*^9, 3.993120622314225*^9, + 3.9931207350960493`*^9, 3.993120779914585*^9, {3.9931208102780457`*^9, + 3.9931209193092546`*^9}, 3.993126398052409*^9, 3.993127109275919*^9, + 3.993127328527534*^9, 3.9931299311534243`*^9, 3.993820923927566*^9, + 3.993821327021174*^9, 3.993826061727194*^9, 3.993826236744606*^9}, + CellLabel-> + "Out[149]=",ExpressionUUID->"6fc1359f-bd8f-413c-94f9-0a33015f92b6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[150]:=",ExpressionUUID->"7cb4afc7-0de5-4d2d-a67a-92e6eb3b2c4a"], + +Cell[BoxData[ + RowBox[{"-", "123.3235530299229`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.992572215526945*^9, 3.992572318297956*^9, + 3.993119179182555*^9, 3.993120126400342*^9, 3.99312062277221*^9, + 3.9931207351051397`*^9, 3.993120779938876*^9, {3.9931208103040047`*^9, + 3.9931209193366623`*^9}, 3.99312639805881*^9, 3.993127109307798*^9, + 3.993127328549741*^9, 3.9931299311778517`*^9, 3.993820923953031*^9, + 3.9938213270470047`*^9, 3.99382606173273*^9, 3.993826236773776*^9}, + CellLabel-> + "Out[150]=",ExpressionUUID->"33d12acd-76e0-47c7-8515-79858d7f4456"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", + CellLabel-> + "In[151]:=",ExpressionUUID->"29789b93-e545-42fc-8614-eb6fd4ffa23a"], + +Cell[BoxData["151.17585622424423`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9925722155553827`*^9, 3.9925723183190947`*^9, + 3.9931191792047863`*^9, 3.993120126422503*^9, 3.99312062328085*^9, + 3.993120735114328*^9, 3.993120779966241*^9, {3.993120810329393*^9, + 3.993120919363965*^9}, 3.99312639806597*^9, 3.993127109343749*^9, + 3.9931273285713377`*^9, 3.993129931200837*^9, 3.993820923983398*^9, + 3.993821327073053*^9, 3.993826061738953*^9, 3.993826236793627*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"e89ce51e-a539-4417-9180-c560800f09f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[152]:=",ExpressionUUID->"6e20fef6-22f8-4f4c-81da-53d81ddc5cc9"], + +Cell[BoxData["0.4819667641075124`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.992572215581643*^9, 3.9925723183400307`*^9, + 3.9931191792269573`*^9, 3.993120126444304*^9, 3.993120623323575*^9, + 3.993120735122086*^9, 3.993120779991181*^9, {3.993120810354744*^9, + 3.993120919368601*^9}, 3.9931263980726233`*^9, 3.993127109381337*^9, + 3.993127328593055*^9, 3.99312993122449*^9, 3.9938209240090227`*^9, + 3.993821327098587*^9, 3.993826061745358*^9, 3.993826236814423*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"d76c35f0-e7ee-4efc-9399-f4212e34faf7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"47187de4-631f-455f-a8f0-96177bbe8e81"], + +Cell[BoxData[ + RowBox[{"-", "0.11350137337476086`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9925722156071453`*^9, 3.9925723183603783`*^9, + 3.9931191792492533`*^9, 3.993120126466148*^9, 3.993120623346512*^9, + 3.9931207351443777`*^9, 3.993120780015463*^9, {3.9931208103803673`*^9, + 3.993120919396596*^9}, 3.993126398079549*^9, 3.9931271094149017`*^9, + 3.9931273286142263`*^9, 3.993129931247855*^9, 3.99382092403294*^9, + 3.9938213271263742`*^9, 3.9938260617525263`*^9, 3.993826236835414*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"881872b7-f89e-42e6-a5c3-0899c0fa7d31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"9349fcd5-4c68-42cd-a166-bd48a1318f98"], + +Cell[BoxData[ + RowBox[{"-", "0.4652269449262844`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992572215632304*^9, 3.992572318380674*^9, + 3.993119179271516*^9, 3.993120126487928*^9, 3.9931206233692617`*^9, + 3.993120735165653*^9, 3.993120780040511*^9, {3.993120810385436*^9, + 3.993120919423568*^9}, 3.993126398086187*^9, 3.993127109447815*^9, + 3.9931273286352787`*^9, 3.993129931271668*^9, 3.99382092412751*^9, + 3.993821327151004*^9, 3.993826061759053*^9, 3.993826236856572*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"37f9f716-847a-41da-bd62-be822de297fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"a32ccc36-d797-429e-a20e-fe5f3acf3728"], + +Cell[BoxData["0.6581300944010081`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992572215657671*^9, 3.9925723183847733`*^9, + 3.993119179293789*^9, 3.9931201265097437`*^9, 3.9931206233734407`*^9, + 3.99312073518717*^9, 3.9931207800652113`*^9, {3.993120810412512*^9, + 3.993120919451396*^9}, 3.993126398093424*^9, 3.993127109479258*^9, + 3.9931273286560917`*^9, 3.993129931295282*^9, 3.993820924152907*^9, + 3.9938213271773853`*^9, 3.993826061765341*^9, 3.993826236880252*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"a04852c3-9cd3-4d2f-bd4e-29877a40e78f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"af5d2721-2ac8-43f4-9a16-42ead265b15b"], + +Cell[BoxData["2.061265729478835`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9925722156840057`*^9, 3.992572318405039*^9, + 3.993119179315935*^9, 3.993120126531769*^9, 3.993120623396599*^9, + 3.9931207352098637`*^9, 3.993120780089756*^9, {3.9931208104374*^9, + 3.9931209194800158`*^9}, 3.9931263980999727`*^9, 3.993127109512844*^9, + 3.9931273286772337`*^9, 3.9931299313180227`*^9, 3.9938209241778717`*^9, + 3.993821327204084*^9, 3.993826061771537*^9, 3.9938262369000807`*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"4bc053f4-866e-4d58-a3bb-82e7b30a2e6f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"9a152b19-0b18-4492-a011-23d7f4e3aea8"], + +Cell[BoxData["1.500736140386642`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.992572215708795*^9, 3.992572318425254*^9, + 3.993119179337996*^9, 3.9931201265538*^9, 3.993120623423506*^9, + 3.993120735231386*^9, 3.993120780114184*^9, {3.993120810463977*^9, + 3.993120919508306*^9}, 3.993126398108006*^9, 3.993127109545864*^9, + 3.993127328698331*^9, 3.99312993132206*^9, 3.993820924201363*^9, + 3.9938213272346487`*^9, 3.993826061777048*^9, 3.993826236921372*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"3ad1316f-c07a-451c-a600-5d4a145633f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"43f7a914-5d92-4929-9e88-6b39bf7b4095"], + +Cell[BoxData[ + RowBox[{"-", "31.35994404137113`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.992572215734977*^9, 3.992572318447076*^9, + 3.993119179360752*^9, 3.9931201265765343`*^9, 3.993120623446788*^9, + 3.993120735251999*^9, 3.9931207801392517`*^9, {3.993120810491658*^9, + 3.993120919536584*^9}, 3.993126398115017*^9, 3.993127109578094*^9, + 3.993127328719265*^9, 3.993129931348179*^9, 3.9938209242262497`*^9, + 3.9938213272683496`*^9, 3.993826061783931*^9, 3.993826236928417*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"48086ddb-6301-4291-a223-36400fd1aeb4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"-", "3"}], + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"03f63c25-b611-443a-bc6f-c6c7d6e1b9a0"], + +Cell[BoxData[ + RowBox[{"-", "7.850554518705422`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.9925722157597923`*^9, 3.992572318468158*^9, + 3.993119179384171*^9, 3.9931201265982*^9, 3.99312062346908*^9, + 3.9931207352722187`*^9, 3.993120780163753*^9, {3.993120810569303*^9, + 3.9931209195640697`*^9}, 3.9931263981223907`*^9, 3.99312710961084*^9, + 3.993127328741523*^9, 3.993129931371181*^9, 3.9938209242502613`*^9, + 3.993821327301214*^9, 3.9938260617905416`*^9, 3.993826236965952*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"9d2499a6-6bd7-4e18-a3e4-da9a3ae9c63c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB11", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U22"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c11", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c21", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R01", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b1"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"aeb91932-feab-4911-a03e-869eedd659dd"], + +Cell[BoxData["125.70524502867676`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.992572215787087*^9, 3.992572318490714*^9, + 3.993119179407145*^9, 3.993120126619657*^9, 3.993120624387237*^9, + 3.993120735294096*^9, 3.993120780189163*^9, {3.9931208106477613`*^9, + 3.9931209195925417`*^9}, 3.99312639812998*^9, 3.9931271096448097`*^9, + 3.993127328762958*^9, 3.993129931395224*^9, 3.993820924278158*^9, + 3.9938213273338842`*^9, 3.993826061796728*^9, 3.993826236986061*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"3cc4855f-7cbf-4ef2-aecc-df6fd9114f99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB12", "=", + RowBox[{ + RowBox[{"-", + FractionBox["15", + RowBox[{"4", "\[Pi]"}]]}], + RowBox[{"(", + RowBox[{ + RowBox[{"c11", "*", "c12", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + RowBox[{"c21", "*", "c22", + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"77df964a-2ce0-438d-a179-4db9162b50bf"], + +Cell[BoxData[ + RowBox[{"-", "123.3235530299229`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.992572215791572*^9, 3.992572318513729*^9, + 3.993119179431038*^9, 3.993120126641369*^9, 3.9931206250374393`*^9, + 3.993120735303513*^9, 3.993120780214625*^9, {3.993120810674247*^9, + 3.993120919619622*^9}, 3.993126398136746*^9, 3.9931271096761827`*^9, + 3.993127328784665*^9, 3.993129931420856*^9, 3.993820924299933*^9, + 3.993821327339868*^9, 3.9938260618029633`*^9, 3.993826237009053*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"2b0b5fbd-48d4-4630-932a-3044ba2ba705"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"BBB22", "=", + RowBox[{ + RowBox[{ + RowBox[{"-", "3"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "U21"}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c22", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U31"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U41"}], "+", "U42"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]], "*", + SuperscriptBox["c12", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U33"}], "+", "U32", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], + RowBox[{"(", + RowBox[{ + RowBox[{"2", "U42"}], "+", "U41"}], ")"}]}], "+", + RowBox[{ + FractionBox["5", + RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}], "-", + RowBox[{"3", + FractionBox[ + RowBox[{"Z1", "*", "Z2", "*", "1.44"}], + SuperscriptBox["R00", "3"]], + SuperscriptBox["R02", "2"], "*", + RowBox[{"(", + RowBox[{ + RowBox[{ + SqrtBox[ + FractionBox["9", + RowBox[{"20", "\[Pi]"}]]], "*", "b2"}], "+", + RowBox[{ + FractionBox["6", + RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], + ")"}]}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"cd7d015c-8434-42d0-b128-49ecd349164b"], + +Cell[BoxData["143.3253017055388`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.992572215816564*^9, 3.992572318536264*^9, + 3.993119179456161*^9, 3.99312012666339*^9, 3.993120625976398*^9, + 3.993120735311919*^9, 3.993120780234991*^9, {3.993120810701437*^9, + 3.993120919646469*^9}, 3.993126398145216*^9, 3.9931271097094097`*^9, + 3.993127328806025*^9, 3.9931299314504623`*^9, 3.993820924322805*^9, + 3.993821327391417*^9, 3.9938260618103333`*^9, 3.993826237038884*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"abd1f5ba-e48b-4c5c-b20e-402f5865f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kb", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "+", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"aa875aaf-d9d7-4704-bf53-3d6b8146fdc6"], + +Cell[BoxData["93.76881016546349`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992572215864458*^9, 3.992572318557802*^9, + 3.993119179480179*^9, 3.993120126684946*^9, 3.9931206278422623`*^9, + 3.993120735320333*^9, 3.993120780256549*^9, {3.993120810728241*^9, + 3.993120919673271*^9}, 3.993126398152495*^9, 3.9931271097434998`*^9, + 3.993127328827194*^9, 3.993129931478958*^9, 3.993820924328*^9, + 3.993821327419663*^9, 3.993826061816176*^9, 3.993826237060875*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"f6293e12-1e23-406f-a604-5b510cd299c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Kw", "=", + RowBox[{ + RowBox[{"(", "BBB11", ")"}], "-", + RowBox[{"2", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], "*", + RowBox[{"(", "BBB12", ")"}]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b1"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "*", "b2"}], "-", + RowBox[{ + FractionBox["1", + RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], + "2"], "*", + RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"31275304-830c-43f2-80e4-10e652fd90ea"], + +Cell[BoxData["873.0988230281508`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9925722158897552`*^9, 3.99257231857898*^9, + 3.9931191795053587`*^9, 3.9931201267064877`*^9, 3.993120629931678*^9, + 3.9931207353284397`*^9, 3.993120780277225*^9, {3.993120810753913*^9, + 3.993120919701824*^9}, 3.993126398158984*^9, 3.993127109775078*^9, + 3.993127328849209*^9, 3.993129931506402*^9, 3.9938209243670683`*^9, + 3.9938213274445333`*^9, 3.993826061822015*^9, 3.993826237086769*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"3304bedb-1072-4332-9ce6-514248ddec52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", "0.43607"}]], "Input", + CellChangeTimes->{ + 3.9918501413985214`*^9, {3.993821593887602*^9, 3.993821599433764*^9}}, + CellLabel-> + "In[165]:=",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], + +Cell[BoxData["0.43607`"], "Output", + CellChangeTimes->{3.9938260618275023`*^9, 3.993826237108583*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"1ddb0114-414c-425c-9919-85b082ca493a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501359768734`*^9, 3.991850137465685*^9}}, + CellLabel-> + "In[166]:=",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.23902"}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9, {3.993821601185343*^9, 3.993821608144888*^9}}, + CellLabel-> + "In[167]:=",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], + +Cell[BoxData["0.23902`"], "Output", + CellChangeTimes->{3.9938260618376617`*^9, 3.993826237146778*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"5a68c90f-0289-453f-a8a0-2dfe720d1825"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, 3.991850138811516*^9}}, + CellLabel-> + "In[168]:=",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ @@ -85,12 +5198,13 @@ Cell[BoxData[ RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> - "In[399]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], + "In[169]:=",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913437871842365`*^9}, +Cell[BoxData["1.4406889235574582`*^-53"], "Output", + CellChangeTimes->{3.9913437871842365`*^9, 3.993826061848097*^9, + 3.993826237185523*^9}, CellLabel-> - "Out[399]=",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] + "Out[169]=",ExpressionUUID->"72db6736-7eb2-4406-af4d-cb0bcb7e6589"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +5238,15 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ -301cf9f22a61"], - -Cell[BoxData["8.839304777809617`*^-55"], "Output", - CellChangeTimes->{3.9913437872132397`*^9}, + CellChangeTimes->{3.991557655438551*^9}, CellLabel-> - "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] + "In[170]:=",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], + +Cell[BoxData["5.876604892348349`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9, 3.9938260618542013`*^9, + 3.99382623720723*^9}, + CellLabel-> + "Out[170]=",ExpressionUUID->"484b2588-0bca-4e0d-ac12-9b2bedff9b10"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +5279,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.9915576595317745`*^9, - 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ -fda42549e334"], - -Cell[BoxData["2.0384594858915346`*^-54"], "Output", - CellChangeTimes->{3.9913437872412376`*^9}, + CellChangeTimes->{{3.9915576595317745`*^9, 3.9915576617156334`*^9}}, CellLabel-> - "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] + "In[171]:=",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], + +Cell[BoxData["1.3752429923081776`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9, 3.9938260618598557`*^9, + 3.993826237230379*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"1b4141e2-e034-4857-ada1-04e8600a2dfb"] }, Open ]], Cell[CellGroupData[{ @@ -195,12 +5311,13 @@ Cell[BoxData[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + "In[172]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[BoxData["27.24865368249903`"], "Output", - CellChangeTimes->{3.9913437872672386`*^9}, +Cell[BoxData["18.219034768301512`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9, 3.9938260618654747`*^9, + 3.993826237249683*^9}, CellLabel-> - "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] + "Out[172]=",ExpressionUUID->"2da0675b-b7b4-4033-9e2f-d511285bb4ab"] }, Open ]], Cell[CellGroupData[{ @@ -227,12 +5344,13 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", CellLabel-> - "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + "In[173]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[BoxData["47.62007062351`"], "Output", - CellChangeTimes->{3.991343787279253*^9}, +Cell[BoxData["32.36780826339539`"], "Output", + CellChangeTimes->{3.991343787279253*^9, 3.993826061871079*^9, + 3.993826237271492*^9}, CellLabel-> - "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] + "Out[173]=",ExpressionUUID->"d5a2124a-65f0-40eb-b021-4d720818ff0a"] }, Open ]], Cell[CellGroupData[{ @@ -242,12 +5360,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> - "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + "In[174]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[BoxData["0.718596406513947`"], "Output", - CellChangeTimes->{3.9913437873062572`*^9}, +Cell[BoxData["2.2686448849993144`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9, 3.993826061876553*^9, + 3.99382623729399*^9}, CellLabel-> - "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] + "Out[174]=",ExpressionUUID->"5e51a5f9-f616-40b2-9d6e-95ce3b48be2b"] }, Open ]], Cell[CellGroupData[{ @@ -257,12 +5376,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> - "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + "In[175]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[BoxData["2.8712430196956706`"], "Output", - CellChangeTimes->{3.9913437873353844`*^9}, +Cell[BoxData["5.19367841185301`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9, 3.9938260618849373`*^9, + 3.993826237314528*^9}, CellLabel-> - "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] + "Out[175]=",ExpressionUUID->"418d383f-983c-4bfc-abf9-2b7645c5c2da"] }, Open ]], Cell[CellGroupData[{ @@ -272,12 +5392,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> - "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + "In[176]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[BoxData["136.72879537516795`"], "Output", - CellChangeTimes->{3.991343787361582*^9}, +Cell[BoxData["168.10798701659408`"], "Output", + CellChangeTimes->{3.991343787361582*^9, 3.993826061891419*^9, + 3.993826237337883*^9}, CellLabel-> - "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] + "Out[176]=",ExpressionUUID->"8ff2be83-4ccd-4e75-b4e2-2acf32ffac30"] }, Open ]], Cell[CellGroupData[{ @@ -287,12 +5408,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + "In[177]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[BoxData["19.58078461858683`"], "Output", - CellChangeTimes->{3.9913437873734856`*^9}, +Cell[BoxData["41.33252003673189`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9, 3.993826061897258*^9, + 3.993826237362479*^9}, CellLabel-> - "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] + "Out[177]=",ExpressionUUID->"202d9cd2-7ca4-4534-8bcb-dbd1840037d9"] }, Open ]], Cell[CellGroupData[{ @@ -482,12 +5604,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + "In[178]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[BoxData["0.03116264120310575`"], "Output", - CellChangeTimes->{3.9913437874002857`*^9}, +Cell[BoxData["0.005488715426540203`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9, 3.993826061903863*^9, + 3.993826237389803*^9}, CellLabel-> - "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] + "Out[178]=",ExpressionUUID->"b6a0b285-80a0-4fb6-968c-ecf6fa994741"] }, Open ]], Cell[CellGroupData[{ @@ -501,12 +5624,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + "In[179]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[BoxData["5.020278507983894`"], "Output", - CellChangeTimes->{3.9913437875033875`*^9}, +Cell[BoxData["11.962159350217606`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9, 3.9938260620325813`*^9, + 3.99382623745555*^9}, CellLabel-> - "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] + "Out[179]=",ExpressionUUID->"0ba09576-0bed-41fa-8764-792bc0164ca3"] }, Open ]], Cell[CellGroupData[{ @@ -698,12 +5822,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + "In[180]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[BoxData["0.011613560908040731`"], "Output", - CellChangeTimes->{3.9913437875342865`*^9}, +Cell[BoxData["0.02350926652178645`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9, 3.993826062039814*^9, + 3.993826237481187*^9}, CellLabel-> - "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] + "Out[180]=",ExpressionUUID->"d2b8fb25-aeff-4942-835c-ef9f6bd2f756"] }, Open ]], Cell[CellGroupData[{ @@ -717,12 +5842,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + "In[181]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[BoxData["8.223604958038852`"], "Output", - CellChangeTimes->{3.9913437876352882`*^9}, +Cell[BoxData["5.779967559380576`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9, 3.9938260620792923`*^9, + 3.993826237566805*^9}, CellLabel-> - "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] + "Out[181]=",ExpressionUUID->"91431d26-1b7f-40df-82b6-7c3bd83582c5"] }, Open ]], Cell[CellGroupData[{ @@ -815,12 +5941,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + "In[182]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991343787650694*^9}, +Cell[BoxData["0.08462540512073816`"], "Output", + CellChangeTimes->{3.991343787650694*^9, 3.99382606208599*^9, + 3.9938262376460667`*^9}, CellLabel-> - "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] + "Out[182]=",ExpressionUUID->"d194483d-cb50-455b-8432-aae4257c9010"] }, Open ]], Cell[CellGroupData[{ @@ -910,12 +6037,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + "In[183]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913437876776943`*^9}, +Cell[BoxData["0.9153745948792619`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9, 3.993826062092269*^9, + 3.9938262376755447`*^9}, CellLabel-> - "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] + "Out[183]=",ExpressionUUID->"c0524fcd-4123-4870-9a9d-8afe6bde1a26"] }, Open ]], Cell[CellGroupData[{ @@ -1038,18 +6166,20 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + "In[184]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913437877049465`*^9}, +Cell[BoxData["0.07746394592888911`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9, 3.993826062098998*^9, + 3.993826237703483*^9}, CellLabel-> - "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] + "Out[184]=",ExpressionUUID->"ba414975-23b6-4c2e-b034-5bae994e344f"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ -ad40-9440-412e77bed40d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], Cell[CellGroupData[{ @@ -1110,68 +6240,77 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ -1f4f66f53217"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 433, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437877189426`*^9}, + CellChangeTimes->{3.9918501532204666`*^9}, CellLabel-> - "During evaluation of \ -In[415]:=",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], + "In[186]:=",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.920172228261966`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 434, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343787730139*^9}, +normalized machine number; precision may be lost.\"", 2, 186, 9, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.99382606211736*^9, + 3.9938262377781267`*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], +In[186]:=",ExpressionUUID->"9e368740-56dd-499d-86b2-157e2db6c448"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.847683357036612`*^-211\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 415, 435, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437877381363`*^9}, +normalized machine number; precision may be lost.\"", 2, 186, 10, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.99382606211736*^9, + 3.9938262377832813`*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], +In[186]:=",ExpressionUUID->"14a2823c-a1c6-462d-ac43-ba718b70da23"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.047482166514732`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 186, 11, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.99382606211736*^9, + 3.993826237787656*^9}, + CellLabel-> + "During evaluation of \ +In[186]:=",ExpressionUUID->"db2de09e-f43c-44af-b36d-fe501d1d72cc"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 415, 436, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991343787747137*^9}, +during this calculation.\"", 2, 186, 12, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437877189426`*^9, 3.99382606211736*^9, + 3.99382623779202*^9}, CellLabel-> "During evaluation of \ -In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], +In[186]:=",ExpressionUUID->"2cccb1d7-df9b-48c2-bf66-be8dcdf3aa22"], -Cell[BoxData["5.020278507983898`"], "Output", - CellChangeTimes->{3.991343791131052*^9}, +Cell[BoxData["11.962159350217615`"], "Output", + CellChangeTimes->{3.991343791131052*^9, 3.993826063472556*^9, + 3.9938262407465563`*^9}, CellLabel-> - "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] + "Out[186]=",ExpressionUUID->"831faa7e-e447-4f2d-ba2f-bdaecce660d4"] }, Open ]], Cell[CellGroupData[{ @@ -1233,68 +6372,77 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ -b62dad3009d2"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 437, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911686516`*^9}, + CellChangeTimes->{3.9918501579408264`*^9}, CellLabel-> - "During evaluation of \ -In[416]:=",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], + "In[187]:=",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.920172228261966`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 438, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134379117865*^9}, +normalized machine number; precision may be lost.\"", 2, 187, 13, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9938260635431547`*^9, + 3.993826240810293*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], +In[187]:=",ExpressionUUID->"6afe6b30-7ae1-4621-8165-a2e744a3896e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.847683357036612`*^-211\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 416, 439, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911866493`*^9}, +normalized machine number; precision may be lost.\"", 2, 187, 14, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9938260635431547`*^9, + 3.9938262408162127`*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], +In[187]:=",ExpressionUUID->"1da60b2f-9ad2-4b13-b5f4-5f6390e176dc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.047482166514732`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 187, 15, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9938260635431547`*^9, + 3.993826240821862*^9}, + CellLabel-> + "During evaluation of \ +In[187]:=",ExpressionUUID->"60867e15-dfe6-4f02-a922-f5238215238c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 416, 440, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913437911946507`*^9}, +during this calculation.\"", 2, 187, 16, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913437911686516`*^9, 3.9938260635431547`*^9, + 3.9938262408268023`*^9}, CellLabel-> "During evaluation of \ -In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], +In[187]:=",ExpressionUUID->"987785c9-f0ac-43d3-a99b-04b71cb9932a"], -Cell[BoxData["8.223604958038848`"], "Output", - CellChangeTimes->{3.991343794599764*^9}, +Cell[BoxData["5.779967559380578`"], "Output", + CellChangeTimes->{3.991343794599764*^9, 3.993826064859181*^9, + 3.993826243519527*^9}, CellLabel-> - "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] + "Out[187]=",ExpressionUUID->"925b713c-4c09-4957-99d1-f148b1809f0d"] }, Open ]], Cell[CellGroupData[{ @@ -1350,94 +6498,95 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918501631488323`*^9},ExpressionUUID->"46451e4d-f5ef-b246-91c6-\ -4265c9fafb97"], + CellChangeTimes->{3.9918501631488323`*^9}, + CellLabel-> + "In[188]:=",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hk8VdsXAPAboYRQpkTmopQhU2StjCVTk1BK170nSRKSJFLRe0gI6UWa +ZHhkLqFeg8qvFEWKBpxrChkz3NP02/1xPufz/exz1l5777W2KvvgZq4Ai8Xq +J8+f96FXK5feaXpl+WibwK6LETRYDt8wYtsUQsPWg2l/3JltnKphUwuqiWXm +/xC7cl4Kixk+gTjRBtdLxKVhUY+FbBog6X1NSybx30/lH0QVvIYisZPPLhPf +bTp0+YfBW1j2UFn7KvFA+/OIozXvQVY2hX+deFGP+o4p648QqP/RNJd440iE +WXBDB0xa/uwtIL7/Y2BeWEEX2AVOChYTt0bLHbsdwIPOH3XnyomHhW0Gvhn0 +wA9V/7gqYuGEQA/D6V5oVRucuEesLJVVf6imH5zXWzU8JnZWnLo5bD0Erlbh +/2sipq6oyerOGYZvT3YMvyOO0nSJ2d8wAqcbZE92EL+Xa9EPKRiDBpbi1Agx +x9Nv3/mEcfAS47bOEI9msq6WBUzAKbc4TYHjNMxR05UcM5gE+2u+krLEqZzH +9pIyU3CwRK1QhVgl1yNq1fQUGMtW315ObLoidvhAzQzUrzslb03sa9zRMGD9 +A+41JUkcIf4Wdni2qNZPCNCxV40hPlEzz0J7zi/4odl57TxxBpr+u7fhN9TK +3hsvJebk1NsEFczC9FKzJxPEBU/Pd0YrCuC2OkUXoUiSb9+uiOQEAaww7bOX +I47QmSwvCRBEcxnLWAvi1GJV9REDIfwnXsQ4gbi9aej+r+tC+DvQ1eQqscr4 +HU8JGWHkfI3LvU1cuNo5RXdaGJNWt7XQxHV3w2f518xBlvAPNkbRMPm4uaPf +WgwVtEKdJU/QIO0oJnnsvhiK3116eSWxXosNipuJ4wmuW6ATsV935RX9lRL4 +qswgM4E4UKBBb62YJN4/piwtFU1Dj9qtsZgpKeTIZ4QZnCT7Qz2f22gojRY5 +UmPuxAL/9qrKH5LGOyk6Q1HEKoZLNhcMSqOnuY1fI7GndVLZq84FWGK6Mzbk +FA2NPkHBci9kMPI7B9+dpuFzbmK89xxZfL9bpFsohoahwYLr+bayKBseLGpE +LBrCazZ/IItboyo6UoltTm9d7V0ph2UeuoWesTRU3zCezMtWwKNKpY2/ztBw +o4cJXROihMptXu758TSs33bmc3CREo4mH9DpJh6qW2BX1KuE7Sq8gCUJNKy+ +sUJGxUMZ558Rc7lAXMfeVS5kuQSfm5T7J5ylYXyk80j/KRXMcFijknCOhgUH +bCrKndSw/PODE13naei9Ierr6qeGSo0rb+qk0lD1sUnxa6waNvuHWIYQ73T0 +OqX1QA2nT6U/m5NG8lseuvmigToOrLtpYZJO5h/IHY2U08CXQn9X5mfQsHXv +PF2HLk3sFbRh9WTRAKHbDLb/1MQbcfJNay7ToBOTbcJR0EKHgGaJZGLWdUOr +yE1aGLpQos0ym4aizzu2lz3UwrTkhVezr5D+dCuMXnRtKY5QlGDodZKfjVPr +AFsbVxjaGoTm03B9y4UP05HaKBc91NdGnMju6px9SRufqi8Qtywg9X3i8KBy +szbG/hrPEfmXBqnaLNYWax0s4yRKXykk9WM4rFOjvhyj9F9/6CmmQVHtXFR8 +9wo0eZa+9cltGmrjvmnzBXSRrgwvxDtkPyY8WihVXXx9yvuvWuLLdRraVrt0 +8XKmS0NlFQ1qe6vfzLzTReP4xJhb1WS9hT2a1IuVGD0H6qru06CkqEypeOhh +6+Hj+XrPaFiREyL2HQww9fvWnuI2GticU5O6zgZYkccTsmon/aqe8tl7pwFy +AvFSC7HgteKSp2EGeLD1pMb3D6TfLg9sTSk1QHpiVpnTZ3KfZnhnaasbYphR +xX9zeOR84x1XuguvxvPLD35qHaLhapCGa2WDEeIiv7GWWTwo+/wgXv6jEa66 +/HDteQEePHLwenZs0Ag/edfIbBbkQbdauqWVqDGGtz32fT2bB1rNIrqN9sYY +8eZAZqsIDwoNB+d+eWSMdpn7bL6L86DqW+njxXdN8EB6zUDRIh40hYLJ6Rwz +zBz2XF9jxAPVXW+dvfzXoj17f8fOQzzg/r59S+koosD+vJahEh7IDVaJyLGt +sMrVxe/eLx6EGFp8TNGxwXbh00+mXbqB/fVH/YIBW4y3SZjoyu2GIqtgkexG +e9S86/7zrWQP3Pjm97AwdQPGvTmRKxLRAzPr5F/WRW1Ed7/c4HymBz6xBMe6 +9jjhc0eeX3d0LwQsPpgUre6CV8y770uL9sGtffUP0mJc8Y307KJF+X0QPqEw +vXzfJmQ7WkceX98Pkw52bs92b0a3S459R2Z9AbMdyet6Nm3BMaoi49XjL/BG +IcuvznArSjv8FXfn9AAsunmqNm/ZNrSnFdfcYw9CVaeOo7O4G9Z3SbistRwC +5ZbRvaFf3TCmtlGuX+UrGKYlF17v3I4vxMY60tSHIWv2xMqUx+5o+0Ov7H8q +I3B73ar2mLse2HWz3LxtyShkmMRJ/SjwxJTJZwEVZaPQ+CEn1jBhB25JMysv +wTGodMrUCDyxE129x5f80zEGYwe2sAI4Xtgtt7xw8sg4TNpp+w5b70Jt5uj4 +LskJyPvaNhNsvBtVorOOm1ZNgPvVHB8vMW8s2N+xQcHtG5SXbdwteMYbWSO1 +b+xnTYKZ4hv+33xvXFdlIPNf9iSod+5tf71vD7Zbvr/maToF3fP2u2Ty9qCs +4AmfuW1T0JTo7GO/jY3xi8uri32nITUse97hJjbqx65Q9f0+DbX3f/N9Nvhg +/cntO9efmIH5O/GMYbUP+r9ODeKMzoCZ93BezGoOsgt+n5HfwYebF0eDnY05 +qMccdTmzkw8Lm8ct5Uw5qHarTGPSiw/DttMteeYc/Pdrz9RLbz65v1izGqw4 +yBkU0wuh+CAxLeUhvYmDfdV111MO8aH7rNHc7AMcLCnZKCFzhg+JNRH7qm4S +512LXVzMhwMGF8zC8jj4UlpVwK6ED475pXNNCzgoWpgXFVDKB9ELvfl3iji4 +68m1qNpyPsQEuQ7cruCgshUT51jFhwhtjf2VjzhYp1901uIhH/wuvPAv+8zB +5Ls5Vp5v+LBBotciqJODlfnDB32a+bAshiVuQHOQpa2dvr+FD71BRkWlPRyc +5bO7IayVD3ucs7+WDHHws6jb+9h2PrgLBQcUMxwU6/U2PETzwT54UWChLBff +PTmgc3yMD4+yYx1S5Lnol2p6MWycDxYN4xphi7i4PelRfdAEH/Q0X7RZK3NR +T+STr88kHxTeHbP+oMnFTVX3bxjx+TC45pOsqBEXGUmmPovFwDmBK/f2buHi +JdObdeESDIiuEstw2sbFHO+/a5zmM3B6R1iQ4XYu2mVo+i2RZCCswnXpb08u +RoVFf70vxcAealZyOpuLaWY3Y4YXMmD4nM15coiLVTOdj+crMvAuWXOeehIX +SzRCXrlrMXALxH37k7mYPHGEP0V8+uu3uqLzXNQXU2GlLmXAYENdpOkFLtZF +FWc/X8ZAIstn3OkyF+9sU1LXWc6A3cErbWGFXLwl+FS2bBUDSkp/GVve4qLW +pHv/Wj0Gvj0/eF6whIshgT9T6omvaYFTYjkXpZZ3BbXrM/Dz06cH16u5SJuN +uo8aMlDhqJj3qp7k5yZ/uduEgXhGQCj1ORdne7NHvEwZYOcN7PFo4KLzSLhc +K7Hk7GrF7kYuCg4kDz4yY8C/xv0cv5WLmRoPsxPNGVDXSQ/V6OGi/YqoxcOW +DDDvjjd/6eWi69LiF1uBgaYYrl5xPxeHmmtcqokju1YPmA1x8bcQ8zYaGWjP +aPZymeCigIXgewErBlJEpGzDZ1G4Uk3jUoMNA7Xjn3aECFLo2KlgrmPLQN+n +gqAAIQp7l1pzYoktKmyusOdSuFCyZNMaOwZ6vcO+O0hRqP/2bFqSPcnf0Vba +dgGF/O7bx2hicxNpbZChUG65yoDBegaSxAvdDBUoDNthvbuR2Ly6o1RRlcJH +fe9zpzYwQOUU1suoU5hVIfbSwoF8n3S0Y74mhR9Zt45GE/dSC8Rna1P4K7jN +V3gjGV9g7zukR+EDgS2Zv4irfy2I6jWg0C84gDF1ZKDnS2da52oKOcG2HYeI +1zwIf9xiSmH4UKtFB3G3/y3le0hhp2a4bZ4TAxLux4zuWFGY1u79rpXYzHq9 +Y6kNhZEKQSOCzqReFOijOesprIl6W+pBXDW7OCnbgcLo9Lk7TxLzRo7lXnQk +8WVXJOQTmz6VeXvWlcLFnUKRE8TsUnrwzGYKO8yvg6wLA2cziwVObqVQWPN7 +rAkxHbRBL9SdwvaQwpuHicV3ydoHelIYLzUamUJsuoHn5beTwtrcRx+L/vy/ +5Hj8Lm8K2R3DyzqJq0QdrrmzyXl9MJab/hNvUvbuZg6FSn8NxIm5knhdvEZH +ikIvL4HTKsSmDSW9dr4UPvU4ImBIzL5z/Cf6UWjMsha2IT57zWGhuT+F/u67 +z20hrjort9wogMLh4adZe4jpsO51qwIpVH8boh9ALMYpddcOotDuKsfhKLGJ +S+RB9RAKYwJS+k/+ib9mY6xSKFnfR2ZePHGCpnyWXBiZT+pSRTLxbcmecqlw +Cg9VBtLpxF3fS5/Pi6DQeuZo2j9/4vdFdglFUuhxtvJlJrHxm40zv6ModCtS +i88i/j+C0PVe "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1451,105 +6600,107 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX +1:eJwV1Hk8VdsXAPAboYRQpkTmopQhU2StjCVTk1BK170nSRKSJFLRe0gI6UWa +ZHhkLqFeg8qvFEWKBpxrChkz3NP02/1xPufz/exz1l5777W2KvvgZq4Ai8Xq +J8+f96FXK5feaXpl+WibwK6LETRYDt8wYtsUQsPWg2l/3JltnKphUwuqiWXm +/xC7cl4Kixk+gTjRBtdLxKVhUY+FbBog6X1NSybx30/lH0QVvIYisZPPLhPf +bTp0+YfBW1j2UFn7KvFA+/OIozXvQVY2hX+deFGP+o4p648QqP/RNJd440iE +WXBDB0xa/uwtIL7/Y2BeWEEX2AVOChYTt0bLHbsdwIPOH3XnyomHhW0Gvhn0 +wA9V/7gqYuGEQA/D6V5oVRucuEesLJVVf6imH5zXWzU8JnZWnLo5bD0Erlbh +/2sipq6oyerOGYZvT3YMvyOO0nSJ2d8wAqcbZE92EL+Xa9EPKRiDBpbi1Agx +x9Nv3/mEcfAS47bOEI9msq6WBUzAKbc4TYHjNMxR05UcM5gE+2u+krLEqZzH +9pIyU3CwRK1QhVgl1yNq1fQUGMtW315ObLoidvhAzQzUrzslb03sa9zRMGD9 +A+41JUkcIf4Wdni2qNZPCNCxV40hPlEzz0J7zi/4odl57TxxBpr+u7fhN9TK +3hsvJebk1NsEFczC9FKzJxPEBU/Pd0YrCuC2OkUXoUiSb9+uiOQEAaww7bOX +I47QmSwvCRBEcxnLWAvi1GJV9REDIfwnXsQ4gbi9aej+r+tC+DvQ1eQqscr4 +HU8JGWHkfI3LvU1cuNo5RXdaGJNWt7XQxHV3w2f518xBlvAPNkbRMPm4uaPf +WgwVtEKdJU/QIO0oJnnsvhiK3116eSWxXosNipuJ4wmuW6ATsV935RX9lRL4 +qswgM4E4UKBBb62YJN4/piwtFU1Dj9qtsZgpKeTIZ4QZnCT7Qz2f22gojRY5 +UmPuxAL/9qrKH5LGOyk6Q1HEKoZLNhcMSqOnuY1fI7GndVLZq84FWGK6Mzbk +FA2NPkHBci9kMPI7B9+dpuFzbmK89xxZfL9bpFsohoahwYLr+bayKBseLGpE +LBrCazZ/IItboyo6UoltTm9d7V0ph2UeuoWesTRU3zCezMtWwKNKpY2/ztBw +o4cJXROihMptXu758TSs33bmc3CREo4mH9DpJh6qW2BX1KuE7Sq8gCUJNKy+ +sUJGxUMZ558Rc7lAXMfeVS5kuQSfm5T7J5ylYXyk80j/KRXMcFijknCOhgUH +bCrKndSw/PODE13naei9Ierr6qeGSo0rb+qk0lD1sUnxa6waNvuHWIYQ73T0 +OqX1QA2nT6U/m5NG8lseuvmigToOrLtpYZJO5h/IHY2U08CXQn9X5mfQsHXv +PF2HLk3sFbRh9WTRAKHbDLb/1MQbcfJNay7ToBOTbcJR0EKHgGaJZGLWdUOr +yE1aGLpQos0ym4aizzu2lz3UwrTkhVezr5D+dCuMXnRtKY5QlGDodZKfjVPr +AFsbVxjaGoTm03B9y4UP05HaKBc91NdGnMju6px9SRufqi8Qtywg9X3i8KBy +szbG/hrPEfmXBqnaLNYWax0s4yRKXykk9WM4rFOjvhyj9F9/6CmmQVHtXFR8 +9wo0eZa+9cltGmrjvmnzBXSRrgwvxDtkPyY8WihVXXx9yvuvWuLLdRraVrt0 +8XKmS0NlFQ1qe6vfzLzTReP4xJhb1WS9hT2a1IuVGD0H6qru06CkqEypeOhh +6+Hj+XrPaFiREyL2HQww9fvWnuI2GticU5O6zgZYkccTsmon/aqe8tl7pwFy +AvFSC7HgteKSp2EGeLD1pMb3D6TfLg9sTSk1QHpiVpnTZ3KfZnhnaasbYphR +xX9zeOR84x1XuguvxvPLD35qHaLhapCGa2WDEeIiv7GWWTwo+/wgXv6jEa66 +/HDteQEePHLwenZs0Ag/edfIbBbkQbdauqWVqDGGtz32fT2bB1rNIrqN9sYY +8eZAZqsIDwoNB+d+eWSMdpn7bL6L86DqW+njxXdN8EB6zUDRIh40hYLJ6Rwz +zBz2XF9jxAPVXW+dvfzXoj17f8fOQzzg/r59S+koosD+vJahEh7IDVaJyLGt +sMrVxe/eLx6EGFp8TNGxwXbh00+mXbqB/fVH/YIBW4y3SZjoyu2GIqtgkexG +e9S86/7zrWQP3Pjm97AwdQPGvTmRKxLRAzPr5F/WRW1Ed7/c4HymBz6xBMe6 +9jjhc0eeX3d0LwQsPpgUre6CV8y770uL9sGtffUP0mJc8Y307KJF+X0QPqEw +vXzfJmQ7WkceX98Pkw52bs92b0a3S459R2Z9AbMdyet6Nm3BMaoi49XjL/BG +IcuvznArSjv8FXfn9AAsunmqNm/ZNrSnFdfcYw9CVaeOo7O4G9Z3SbistRwC +5ZbRvaFf3TCmtlGuX+UrGKYlF17v3I4vxMY60tSHIWv2xMqUx+5o+0Ov7H8q +I3B73ar2mLse2HWz3LxtyShkmMRJ/SjwxJTJZwEVZaPQ+CEn1jBhB25JMysv +wTGodMrUCDyxE129x5f80zEGYwe2sAI4Xtgtt7xw8sg4TNpp+w5b70Jt5uj4 +LskJyPvaNhNsvBtVorOOm1ZNgPvVHB8vMW8s2N+xQcHtG5SXbdwteMYbWSO1 +b+xnTYKZ4hv+33xvXFdlIPNf9iSod+5tf71vD7Zbvr/maToF3fP2u2Ty9qCs +4AmfuW1T0JTo7GO/jY3xi8uri32nITUse97hJjbqx65Q9f0+DbX3f/N9Nvhg +/cntO9efmIH5O/GMYbUP+r9ODeKMzoCZ93BezGoOsgt+n5HfwYebF0eDnY05 +qMccdTmzkw8Lm8ct5Uw5qHarTGPSiw/DttMteeYc/Pdrz9RLbz65v1izGqw4 +yBkU0wuh+CAxLeUhvYmDfdV111MO8aH7rNHc7AMcLCnZKCFzhg+JNRH7qm4S +512LXVzMhwMGF8zC8jj4UlpVwK6ED475pXNNCzgoWpgXFVDKB9ELvfl3iji4 +68m1qNpyPsQEuQ7cruCgshUT51jFhwhtjf2VjzhYp1901uIhH/wuvPAv+8zB +5Ls5Vp5v+LBBotciqJODlfnDB32a+bAshiVuQHOQpa2dvr+FD71BRkWlPRyc +5bO7IayVD3ucs7+WDHHws6jb+9h2PrgLBQcUMxwU6/U2PETzwT54UWChLBff +PTmgc3yMD4+yYx1S5Lnol2p6MWycDxYN4xphi7i4PelRfdAEH/Q0X7RZK3NR +T+STr88kHxTeHbP+oMnFTVX3bxjx+TC45pOsqBEXGUmmPovFwDmBK/f2buHi +JdObdeESDIiuEstw2sbFHO+/a5zmM3B6R1iQ4XYu2mVo+i2RZCCswnXpb08u +RoVFf70vxcAealZyOpuLaWY3Y4YXMmD4nM15coiLVTOdj+crMvAuWXOeehIX +SzRCXrlrMXALxH37k7mYPHGEP0V8+uu3uqLzXNQXU2GlLmXAYENdpOkFLtZF +FWc/X8ZAIstn3OkyF+9sU1LXWc6A3cErbWGFXLwl+FS2bBUDSkp/GVve4qLW +pHv/Wj0Gvj0/eF6whIshgT9T6omvaYFTYjkXpZZ3BbXrM/Dz06cH16u5SJuN +uo8aMlDhqJj3qp7k5yZ/uduEgXhGQCj1ORdne7NHvEwZYOcN7PFo4KLzSLhc +K7Hk7GrF7kYuCg4kDz4yY8C/xv0cv5WLmRoPsxPNGVDXSQ/V6OGi/YqoxcOW +DDDvjjd/6eWi69LiF1uBgaYYrl5xPxeHmmtcqokju1YPmA1x8bcQ8zYaGWjP +aPZymeCigIXgewErBlJEpGzDZ1G4Uk3jUoMNA7Xjn3aECFLo2KlgrmPLQN+n +gqAAIQp7l1pzYoktKmyusOdSuFCyZNMaOwZ6vcO+O0hRqP/2bFqSPcnf0Vba +dgGF/O7bx2hicxNpbZChUG65yoDBegaSxAvdDBUoDNthvbuR2Ly6o1RRlcJH +fe9zpzYwQOUU1suoU5hVIfbSwoF8n3S0Y74mhR9Zt45GE/dSC8Rna1P4K7jN +V3gjGV9g7zukR+EDgS2Zv4irfy2I6jWg0C84gDF1ZKDnS2da52oKOcG2HYeI +1zwIf9xiSmH4UKtFB3G3/y3le0hhp2a4bZ4TAxLux4zuWFGY1u79rpXYzHq9 +Y6kNhZEKQSOCzqReFOijOesprIl6W+pBXDW7OCnbgcLo9Lk7TxLzRo7lXnQk +8WVXJOQTmz6VeXvWlcLFnUKRE8TsUnrwzGYKO8yvg6wLA2cziwVObqVQWPN7 +rAkxHbRBL9SdwvaQwpuHicV3ydoHelIYLzUamUJsuoHn5beTwtrcRx+L/vy/ +5Hj8Lm8K2R3DyzqJq0QdrrmzyXl9MJab/hNvUvbuZg6FSn8NxIm5knhdvEZH +ikIvL4HTKsSmDSW9dr4UPvU4ImBIzL5z/Cf6UWjMsha2IT57zWGhuT+F/u67 +z20hrjort9wogMLh4adZe4jpsO51qwIpVH8boh9ALMYpddcOotDuKsfhKLGJ +S+RB9RAKYwJS+k/+ib9mY6xSKFnfR2ZePHGCpnyWXBiZT+pSRTLxbcmecqlw +Cg9VBtLpxF3fS5/Pi6DQeuZo2j9/4vdFdglFUuhxtvJlJrHxm40zv6ModCtS +i88i/j+C0PVe "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "PlotRange" -> {{0, 180}, {0.5777098499408384, + 1.6446814951876454`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5777098499408397}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -1561,131 +6712,133 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.5777098499408384, + 1.6446814951876454`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.5777098499408397}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{115.12306105754324`, - 253.30690491292427`}, {-15.402138689748767`, 5.769736310251233}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VesbB3CzMhUyZJ51KoVjDu8jJJIkisycsw2ZySXidotuRbek8VbK -kCFkLEO3n1CpVMrQaMrQdszHliHye/2x116ftff+vt9nvWu9W9kv3InJxcHB -QeJr9R75dpvmo7a35vFF/hvMuWaR+USuvp9VMWoUyu42w+7LMshUs3qMiDkf -41U7Mt7wCdGfoYpTdzRNscvjkpt4rVrR0T6fAhPsM8+lG5KL3iPR3dn1Rti1 -bZG3l3Q7kYcA09cAm/XlVWJ8/Sf08nThdTq2zJCq+0/Lb8hSN4Khjb1nMtE4 -urUXWaXXPt2K/WSJJRhX1I+atVLLN2F3nZBKeBg2gJzquuhq2BN8VixKdwiR -rPu7FbH50iLc6HPDSPMM39RGbAXRWy2R9SSSifhB24DtIPvz3oTlGJL/hlz4 -sYk7KpJaayYQFVa7iwM7WX1fypHWSSRM/PdqnnMWfZLq0Ikpmka7PYPOktiM -w8FBl9LYaN+c+PNe7KmbHHcrwmYQg+aQ2YW9RkVr/bTuLFK3+4NsxM5kNNms -l/iJWryCwmqwlfLdkrfP/UQBh6ZTS7CNtqZOhNbPI37OV+FXsAMNeltZlkuo -waddyR+bijvKI6CxjDKsC3e4YP9ZL2hKW/MbCU2ojezCvgZG9wNaVxDXc8ml -Tav98lqsooo44doaGhfJMYuKnl/qOyHLBVN8kRVd2FM/vBIvpnGBBn/0bDN2 -4ubZyrIwbuCMK6Pfwc58oKw6qcsL7R8ZF/djf2kbe/I7hxc8NNs+mmIrsR8d -FpHgg/+Ji5RrYhfrOWRozfHBbfd1cksrFGquPcYZUr8G/s4+25GFPdvU3kta -CkERu+rDh98UErMXWp/wRAhk85anq7C1O6xA2FgYQkfNL17BDh6svqOzTQQE -5Rr3uWJHcLVqmwmth8XsiDedyxQaUimdTvkpChtcR9pqlihEEa/WvqOLgdiv -f9kZ2Fz3h5WlI8UgLq8kMwRbia7oVDQqBsaTAocVsA9bXqh42ycOtVmJrIRf -FHrnHxUt9VoC3p3hoSkuUqgn//w5nzWScP6TifP0AoXGRotyCq0lgSvAgaMJ -WyBmoH1HgyTYCGl/ZWBbnXLW86mWgu8KXTez5ylUl2swW5C1EfjL/neIb45C -uUOLsSYx8jBuEzAdNkOh3S6ne6JL5IH2+w5DH3usWXxXybA8uP4lG/yLTSG9 -3K0SSm4KYFA3vyUVu9nPq5LXXBEaVXzSrkxTiD3Z9wd5Ugkqpo63ZE9SSDzU -qqpyrwr4j3jGBo1SaDhXINAxWAX6eqytVbBrvrXJjqeqQPbIf/lfWBTysPc8 -qdGgAu8L0jTtsHO3xDpd11WFkpBxcbURvD4rfypJSg0elhgVNQ1TyDlAUMuu -Xx0OpzuqVfRTCMW66B5aVoceXWlNb+zNKVmGjI0a4PSV1iSIzZFD35m0XwOa -Or1e+PdRqKTH/VDFUw2opSVyruulEN/B4hMy2Zpw9pXsbqdvuJ/V3i6WHw3k -IhqS0rooJKvyT/K5wa3wrLu54cNLCj0+S9EWuLTgq4K0sye2x4xbB6GsBev8 -hqJ+tFDodrMabaeXFiyl7Tyw+IJCKgF1H+Y/agGby+OuzHPcr3hInXi9DSbZ -EynWjRSSl1UglNy0oT75qqB1HYW25sUI/UK6oB8urDBVQCE/xslZLQddMJW+ -yxmIfU01o8fHQxeUuNtO9eZTiDv7QdnzOF0YMDkQ/OYehb7cZjlnlOvCVocd -Vbm5FDpzzecWTZUO5XLyBy3u4P04Z7/NlU8PXL7KBNGvUuhulJpjdas+FDqr -F6+cpFBbLDI8lWcMM6LcXRddKKTs1engGWIGJrPmr5eUKcRceVgqHw+gYSIa -vTA2g6RGa/il/HZCTo97TmnpDIqhm37L2GwFegX5MacjZpDf+FKLOMsaMp8U -HT2kPYNKdkbzZ72zgaR54dwbP9golwp+WpxpC9Pcu8H1LhvNW0i/aU7eAxJL -W4Q0DrBRNwf3dL/vXujcKjzYy8NGYXLhF06o7gPFrKOOHPXTqDSopeFyiiPs -nqA6AoOn0bGZjXNbgvYD3TH27GbFaTRrt+vgC28nINy1zITeTiFj94sWQ/sP -wP3IMBeT5Cn0YeOt4Ga6M9wLVW98ajCFZO6dfFywyQXqNg167W+fRDV9m+0d -hA+CcqVARt6uSaTQMRUQO34QOv/gX9nZMIHoly8W5/QdgjdS98o+6k6gWzwz -2zKaXMGZf6bLsXIcPbTY/iWl1g0yaqQ5bbaNo2uGZ0WXig5DEkHyaJePoXdf -81Lpae7wcHhg5J7FGKree1Mt4k8PONtpv5j4dhRNhx7gCGN4gpOHU+A/gaNo -dhctcMLSC5ZYV4vn1o6igvHP89EG3vDePYrmW8hCrnfz/D2FfMCIk72T04WF -Kiv2eHOf9oEAaX7XzysjyFj2w8KZBR9gC7wfsX04glT7Ar68D/KFUEHaeHP0 -CBoUPLLv5oAv6PBGXhrQGUFt5x38bVz84Mumvh12iyTKjMsSPNrmB7vvGjVF -NZPo8ZOVBX9bfyhOcHFdd4VE6zzgNL3OH3gShAbTI0iktOHFO7nH/tAu9zN+ -LpxE2q17pfme+APKdorzxXYydS/89NQfUoe9Sw3CcL5c7OvjL7EtileGjuD/ -ZPf9dS2f/OG7ygYD1wASqXlJXfOY8wcZlSDWWS8SGftMFKToMSDvkLEezYFE -965PRTsYMMBCMk+uei+JNrSzzaWMGMC9tcfbAnvCeq6jYAcDri9W/TxsT+Lz -hoOzdScDelK7mRl2JBKZE3UT28+AgktetmI2JBpM11+bFcqAEBsXxYNAov0v -DDsCwhmgtPLWexyR6AmHSZZ2JAMiin8tnsK+Hm2u3xjDgCfVwRbV5iRycLPx -HUpgQLz5GREZMxLVqrnVbjnLgBthUoWUMYnO1ycG1dxjwBgIfBmnkyhU96px -XAEDFiayrTKw7QvL1xoVMWBk2IHPEFvg6nDhoxIGDI90nz+hS6KUKEfWwyo8 -z9vmKhkdEiXS1I5UNzIghy53wHMbiYKvvg6p6GHAN0vTTlUaiWxFhk2j+hjg -fGBcqX0TiTalcAjrfmcA0/Zm01/Yw1H6JeVDDDDznhYe0CSRr0PWeNkYA46e -IR7ma5DIlTc67MEiA157T7tYqJHIJlomoliSCe0Rdq+rFUnUmJVqlyHNhG9m -fQLB2KatbLU4GSYcD39WpoCtrf76s6UCE7QVE7afUSDRxo8Jll/VmWBalTzv -J0+iUZNuSQF9JpAXHGtosiT6h+vOfwEHmHD1iDOLWwrPv13o2l4XJjD+OMFu -liTRKfe4KPohJjjHkz6p2HFVjporh5nwYdQ3QgDbl+C8eMWPCYmXp92kJEhE -f+XHeBbJBE9YOWglTqKPF9UFVS8wgUerh2KtI1EpEg4kLzJBKmaX7GPsU+NU -c8klJqxIZN9Ix9a1bU4yusqEva06uTrY5zn82XtvM8Hlc/734yIk2hV+53Nc -MRNOp18V0hQmkbz83wbmpXi+ZL7GZSESUa/CL3GXMcGuwK+tAztbA+09X8kE -M53+uZPYy93dDTl1TGCbjUcOC5Koyl624G0LEypKKdHHAiQ6t8jFm/mKCSLX -hQ9ew/YrYPm6tTLhjLPITAz2ep462cF3TIhYeWa4HTuk3vWfhS4mpGXyjuWv -JZHq5iuxakNMMKw8uVK4hkSLH4+3jwzjvK7Z9+ew21KY2g9IJvSq7VkOxU7q -12MZjzGBy+i2Fx37y7V2z30zTNiz0LOnkZ9EGfyi1sc4CTh141LbFB8+D9jd -7jHcBPByv3DrxP7RXRQVxktAg2ft/jps0yqrO35rCQh49Dk9BXvYJ+6XnSgB -qt0chsrY6+2txazFCZgqUzVYi73DUIyGJAjw1OHOneYl0QXh4oP0jQTYb517 -3YS9o663XFaZgJdL9+1DsYm84hYJVQJUFEueuq6+fyG+d506AW4/A/OssIcJ -cWEeGgHVPetq5Vefi9sEjmkTIPnvBtFOHhLV/RZPHtYloMl76FcT9tBI3+U+ -PQLebg93qcQ2aTjW1GGErVfifAl7MKRU4T8gwHbkzUlXbBHXBP1HOwnokvIb -tMM2ttxtX25FwOTPkkoz7PMbv8fn7cb9dEJuq2HX8Dy4kGVHgLNVT6009sBk -Qv51ewKc4vithLGNnkt0pjsSkNOQlDvHjfe7/PvoaScCxq+0HhvHTr/5gOsv -ZwI2iL3/3wD29yhb7VhXArz+Xr78HlvYS9Im4jABQfvUNV9iG9kOeAZ74HkP -cGs+Xf1e8fg5Lx8C0qv7oyqwawTssl39CECs/if3V/NmJWudGLgv/7X4vNW8 -/oF39gQBJovcOVmrea1lw7sCCXhQob7jxmq/R8eXIZgAJeVli8ur+dl2G3aE -EGBqePbRhdX8dKkt+mEETPxo/TdtNT9u0GJ7BAHBms8m/sYWYpS70qII0B+N -KkvBNtyXFK4aQ0A3ravvr9V8kz2p8rEERHydSP4TO01d+pZUHAEiC4/Tk7Af -rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS -8X7ZCUqv+v+2j8xX +1:eJwV1Hk8VdsXAPAboYRQpkTmopQhU2StjCVTk1BK170nSRKSJFLRe0gI6UWa +ZHhkLqFeg8qvFEWKBpxrChkz3NP02/1xPufz/exz1l5777W2KvvgZq4Ai8Xq +J8+f96FXK5feaXpl+WibwK6LETRYDt8wYtsUQsPWg2l/3JltnKphUwuqiWXm +/xC7cl4Kixk+gTjRBtdLxKVhUY+FbBog6X1NSybx30/lH0QVvIYisZPPLhPf +bTp0+YfBW1j2UFn7KvFA+/OIozXvQVY2hX+deFGP+o4p648QqP/RNJd440iE +WXBDB0xa/uwtIL7/Y2BeWEEX2AVOChYTt0bLHbsdwIPOH3XnyomHhW0Gvhn0 +wA9V/7gqYuGEQA/D6V5oVRucuEesLJVVf6imH5zXWzU8JnZWnLo5bD0Erlbh +/2sipq6oyerOGYZvT3YMvyOO0nSJ2d8wAqcbZE92EL+Xa9EPKRiDBpbi1Agx +x9Nv3/mEcfAS47bOEI9msq6WBUzAKbc4TYHjNMxR05UcM5gE+2u+krLEqZzH +9pIyU3CwRK1QhVgl1yNq1fQUGMtW315ObLoidvhAzQzUrzslb03sa9zRMGD9 +A+41JUkcIf4Wdni2qNZPCNCxV40hPlEzz0J7zi/4odl57TxxBpr+u7fhN9TK +3hsvJebk1NsEFczC9FKzJxPEBU/Pd0YrCuC2OkUXoUiSb9+uiOQEAaww7bOX +I47QmSwvCRBEcxnLWAvi1GJV9REDIfwnXsQ4gbi9aej+r+tC+DvQ1eQqscr4 +HU8JGWHkfI3LvU1cuNo5RXdaGJNWt7XQxHV3w2f518xBlvAPNkbRMPm4uaPf +WgwVtEKdJU/QIO0oJnnsvhiK3116eSWxXosNipuJ4wmuW6ATsV935RX9lRL4 +qswgM4E4UKBBb62YJN4/piwtFU1Dj9qtsZgpKeTIZ4QZnCT7Qz2f22gojRY5 +UmPuxAL/9qrKH5LGOyk6Q1HEKoZLNhcMSqOnuY1fI7GndVLZq84FWGK6Mzbk +FA2NPkHBci9kMPI7B9+dpuFzbmK89xxZfL9bpFsohoahwYLr+bayKBseLGpE +LBrCazZ/IItboyo6UoltTm9d7V0ph2UeuoWesTRU3zCezMtWwKNKpY2/ztBw +o4cJXROihMptXu758TSs33bmc3CREo4mH9DpJh6qW2BX1KuE7Sq8gCUJNKy+ +sUJGxUMZ558Rc7lAXMfeVS5kuQSfm5T7J5ylYXyk80j/KRXMcFijknCOhgUH +bCrKndSw/PODE13naei9Ierr6qeGSo0rb+qk0lD1sUnxa6waNvuHWIYQ73T0 +OqX1QA2nT6U/m5NG8lseuvmigToOrLtpYZJO5h/IHY2U08CXQn9X5mfQsHXv +PF2HLk3sFbRh9WTRAKHbDLb/1MQbcfJNay7ToBOTbcJR0EKHgGaJZGLWdUOr +yE1aGLpQos0ym4aizzu2lz3UwrTkhVezr5D+dCuMXnRtKY5QlGDodZKfjVPr +AFsbVxjaGoTm03B9y4UP05HaKBc91NdGnMju6px9SRufqi8Qtywg9X3i8KBy +szbG/hrPEfmXBqnaLNYWax0s4yRKXykk9WM4rFOjvhyj9F9/6CmmQVHtXFR8 +9wo0eZa+9cltGmrjvmnzBXSRrgwvxDtkPyY8WihVXXx9yvuvWuLLdRraVrt0 +8XKmS0NlFQ1qe6vfzLzTReP4xJhb1WS9hT2a1IuVGD0H6qru06CkqEypeOhh +6+Hj+XrPaFiREyL2HQww9fvWnuI2GticU5O6zgZYkccTsmon/aqe8tl7pwFy +AvFSC7HgteKSp2EGeLD1pMb3D6TfLg9sTSk1QHpiVpnTZ3KfZnhnaasbYphR +xX9zeOR84x1XuguvxvPLD35qHaLhapCGa2WDEeIiv7GWWTwo+/wgXv6jEa66 +/HDteQEePHLwenZs0Ag/edfIbBbkQbdauqWVqDGGtz32fT2bB1rNIrqN9sYY +8eZAZqsIDwoNB+d+eWSMdpn7bL6L86DqW+njxXdN8EB6zUDRIh40hYLJ6Rwz +zBz2XF9jxAPVXW+dvfzXoj17f8fOQzzg/r59S+koosD+vJahEh7IDVaJyLGt +sMrVxe/eLx6EGFp8TNGxwXbh00+mXbqB/fVH/YIBW4y3SZjoyu2GIqtgkexG +e9S86/7zrWQP3Pjm97AwdQPGvTmRKxLRAzPr5F/WRW1Ed7/c4HymBz6xBMe6 +9jjhc0eeX3d0LwQsPpgUre6CV8y770uL9sGtffUP0mJc8Y307KJF+X0QPqEw +vXzfJmQ7WkceX98Pkw52bs92b0a3S459R2Z9AbMdyet6Nm3BMaoi49XjL/BG +IcuvznArSjv8FXfn9AAsunmqNm/ZNrSnFdfcYw9CVaeOo7O4G9Z3SbistRwC +5ZbRvaFf3TCmtlGuX+UrGKYlF17v3I4vxMY60tSHIWv2xMqUx+5o+0Ov7H8q +I3B73ar2mLse2HWz3LxtyShkmMRJ/SjwxJTJZwEVZaPQ+CEn1jBhB25JMysv +wTGodMrUCDyxE129x5f80zEGYwe2sAI4Xtgtt7xw8sg4TNpp+w5b70Jt5uj4 +LskJyPvaNhNsvBtVorOOm1ZNgPvVHB8vMW8s2N+xQcHtG5SXbdwteMYbWSO1 +b+xnTYKZ4hv+33xvXFdlIPNf9iSod+5tf71vD7Zbvr/maToF3fP2u2Ty9qCs +4AmfuW1T0JTo7GO/jY3xi8uri32nITUse97hJjbqx65Q9f0+DbX3f/N9Nvhg +/cntO9efmIH5O/GMYbUP+r9ODeKMzoCZ93BezGoOsgt+n5HfwYebF0eDnY05 +qMccdTmzkw8Lm8ct5Uw5qHarTGPSiw/DttMteeYc/Pdrz9RLbz65v1izGqw4 +yBkU0wuh+CAxLeUhvYmDfdV111MO8aH7rNHc7AMcLCnZKCFzhg+JNRH7qm4S +512LXVzMhwMGF8zC8jj4UlpVwK6ED475pXNNCzgoWpgXFVDKB9ELvfl3iji4 +68m1qNpyPsQEuQ7cruCgshUT51jFhwhtjf2VjzhYp1901uIhH/wuvPAv+8zB +5Ls5Vp5v+LBBotciqJODlfnDB32a+bAshiVuQHOQpa2dvr+FD71BRkWlPRyc +5bO7IayVD3ucs7+WDHHws6jb+9h2PrgLBQcUMxwU6/U2PETzwT54UWChLBff +PTmgc3yMD4+yYx1S5Lnol2p6MWycDxYN4xphi7i4PelRfdAEH/Q0X7RZK3NR +T+STr88kHxTeHbP+oMnFTVX3bxjx+TC45pOsqBEXGUmmPovFwDmBK/f2buHi +JdObdeESDIiuEstw2sbFHO+/a5zmM3B6R1iQ4XYu2mVo+i2RZCCswnXpb08u +RoVFf70vxcAealZyOpuLaWY3Y4YXMmD4nM15coiLVTOdj+crMvAuWXOeehIX +SzRCXrlrMXALxH37k7mYPHGEP0V8+uu3uqLzXNQXU2GlLmXAYENdpOkFLtZF +FWc/X8ZAIstn3OkyF+9sU1LXWc6A3cErbWGFXLwl+FS2bBUDSkp/GVve4qLW +pHv/Wj0Gvj0/eF6whIshgT9T6omvaYFTYjkXpZZ3BbXrM/Dz06cH16u5SJuN +uo8aMlDhqJj3qp7k5yZ/uduEgXhGQCj1ORdne7NHvEwZYOcN7PFo4KLzSLhc +K7Hk7GrF7kYuCg4kDz4yY8C/xv0cv5WLmRoPsxPNGVDXSQ/V6OGi/YqoxcOW +DDDvjjd/6eWi69LiF1uBgaYYrl5xPxeHmmtcqokju1YPmA1x8bcQ8zYaGWjP +aPZymeCigIXgewErBlJEpGzDZ1G4Uk3jUoMNA7Xjn3aECFLo2KlgrmPLQN+n +gqAAIQp7l1pzYoktKmyusOdSuFCyZNMaOwZ6vcO+O0hRqP/2bFqSPcnf0Vba +dgGF/O7bx2hicxNpbZChUG65yoDBegaSxAvdDBUoDNthvbuR2Ly6o1RRlcJH +fe9zpzYwQOUU1suoU5hVIfbSwoF8n3S0Y74mhR9Zt45GE/dSC8Rna1P4K7jN +V3gjGV9g7zukR+EDgS2Zv4irfy2I6jWg0C84gDF1ZKDnS2da52oKOcG2HYeI +1zwIf9xiSmH4UKtFB3G3/y3le0hhp2a4bZ4TAxLux4zuWFGY1u79rpXYzHq9 +Y6kNhZEKQSOCzqReFOijOesprIl6W+pBXDW7OCnbgcLo9Lk7TxLzRo7lXnQk +8WVXJOQTmz6VeXvWlcLFnUKRE8TsUnrwzGYKO8yvg6wLA2cziwVObqVQWPN7 +rAkxHbRBL9SdwvaQwpuHicV3ydoHelIYLzUamUJsuoHn5beTwtrcRx+L/vy/ +5Hj8Lm8K2R3DyzqJq0QdrrmzyXl9MJab/hNvUvbuZg6FSn8NxIm5knhdvEZH +ikIvL4HTKsSmDSW9dr4UPvU4ImBIzL5z/Cf6UWjMsha2IT57zWGhuT+F/u67 +z20hrjort9wogMLh4adZe4jpsO51qwIpVH8boh9ALMYpddcOotDuKsfhKLGJ +S+RB9RAKYwJS+k/+ib9mY6xSKFnfR2ZePHGCpnyWXBiZT+pSRTLxbcmecqlw +Cg9VBtLpxF3fS5/Pi6DQeuZo2j9/4vdFdglFUuhxtvJlJrHxm40zv6ModCtS +i88i/j+C0PVe "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.7504249066936051, 1.313047485013753}}, + "PlotRange" -> {{0, 180}, {0.5777098499408384, 1.6446814951876454`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.7504249066936067}, + "AxesOrigin" -> {0, 0.5777098499408397}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -1695,7 +6848,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.7504249066936067}, + AxesOrigin->{0, 0.5777098499408397}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1723,7 +6877,8 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.7504249066936051, 1.313047485013753}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.5777098499408384, 1.6446814951876454`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1731,9 +6886,10 @@ rh+qFD1GgNZxEDiO3f+r/JVgIgGO/vGzCav5P5L6eZMISCsI2Ldqgw975leS Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913440619685707`*^9}, + CellChangeTimes->{3.9913440619685707`*^9, 3.993826129307275*^9, + 3.993826476731759*^9}, CellLabel-> - "Out[417]=",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] + "Out[188]=",ExpressionUUID->"274b449a-7d94-4652-ac83-57558caee24b"] }, Open ]], Cell[CellGroupData[{ @@ -1796,340 +6952,162 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ -e1a61565f71e"], + CellChangeTimes->{3.9918501659425144`*^9}, + CellLabel-> + "In[189]:=",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.1919630233572722`*^-269\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 418, - 441, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913440621885586`*^9}, +represent as a normalized machine number; precision may be lost.\"", 2, 189, + 17, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.9938264770749893`*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], +In[189]:=",ExpressionUUID->"cae47270-e596-43ad-b393-0d9c86b23955"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ + "\"\\!\\(\\*FractionBox[\\\"7.432023354422986`*^-281\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 418, 442, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913440621975574`*^9}, + 189, 18, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.993826477084749*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], +In[189]:=",ExpressionUUID->"fef72b6d-ee4f-4609-86ef-a35a8a0335f9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.599262146182568`*^-296\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.6339500520003045`*^-292\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 418, 443, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991344062205559*^9}, + 2, 189, 19, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.993826477093459*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], +In[189]:=",ExpressionUUID->"a57829b3-b8e2-45b6-877d-04461a905d23"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 418, 444, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134406221356*^9}, +during this calculation.\"", 2, 189, 20, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913440621885586`*^9, 3.993826477102193*^9}, CellLabel-> "During evaluation of \ -In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], +In[189]:=",ExpressionUUID->"47135cd0-888f-4926-aaf2-cbe7c495b1d6"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VdsbB3DRgKIyk+Gcfc4xJESGDMf7KpUppSj5ZcgxJEJCUplKSElU +RIZMRZyzqSQSN4qLVHIRpWi6yVgoCb99/9rP51nPs/Z+1/Bda9PdA3Z58vPx +8Qkt4uP77znd/3cjM7HA1COn2o/71sS0M1vmuFlPDCSl8z+9Hi4HKPncXaYn +BSp3uue4ha+F0J0l3QI9efA1rFbCKNwIVo9Kp8x0V0A34fR9cbgVvHtoGzDZ +/RheSVuMuR93gq3MobcT3R3Qee23xWToIZjpNrgy3j0IAQY2cRaHw6Fh882C +l3k/wO8FOSHlnAjy7x58dl83B/axqYUStMsg4edasmyzAO5UaTK7aZABKdpb +a2wdBHF8uy+vDnLhdfr6+olVImgYrpCzfT4PEgsin/PLrsZBIdkbjjWFIH35 +Q0JqljgWKb/q9FC5BXH2lqYd05LYnHqwtEClBOTutsvxL5LC9xFkY51WCXDF +7X9qL5fCVSfyPvxjUAJdHS7kJSUphN4y7R/bSoBpF0zYWUhhrGXvjwnvEni8 +PWfpi2tSGFLub7ZQVAJzW6fan5lIY/CJpX276LfhqOEN179jZND9TeFs+dJS +sMoVnbQ+L4PQOSIkIVIKxLKT8e1XZLD70K20I+Kl8KJzT/mrWzJY535dS4lW +CpqBKwT622Ww6lGHublhKfxbdKzou5wsaqbP5t07VAr7JWxH1tyRxcCABjed +llIwH/sd7v9BDnfJ6jtFnyiD4xaX1/41LIc+db58RVFlwL2h0Ss+LYcs2zB4 +GlsGMvZuhg8E16CjaUjczMUyGK568lNAcw0+5HQaqReUQWpMcvC1sDXokOSy +uqa1DAYllf0bReSRf3NaU6I0F6QD6hSkpeXxovqCLUOeCzbNjs98aPLoddXM +r5LGhcrwxHUrN8jjZDX74HM1Lpx7Nz60z1Eet7wv8Gwz5oJOcY33WJ482i3X +Dv3uwoVoE7sDchsVUCDHlzV2gwsWLtnfDTYpYD7zk4pdERdEo76ddrBRwIg3 +HjNlJVy43hBblOymgG+vCAg73uFClVX1t6UJChi64sunw41cGHdkhP54rYDJ +nzdycz9xwSVk6lzbCUV02Tb0m8HkASttk/xQrCJajiix36vwqPovli1LVsSC +ZcEOaeo8CP+j9mJTgSJm+FYJTevw4MppF8kHbYp4WfBJQogZD9ouNeUUKihh +l5Ow3ilnHhhxr92NqFPCP/OD/5Zf4oF5d/vcaLMS7vY91nH5Mg9s+RZvc+1Q +QnqAksXRNB5wdvm/hk9Ue7DxayKLB1tP0COjltAwzLYzy+YWDwKVpvPN1Gmo +W7xPpLWWB1N3kptntGjoeBG+etVT32ehPlKuS8M5oe975x/zIPaImz5hSsPG +pxfGlJp5kNHQ0sxvR0OLtiQJzQ4eNHrnjDSE0vAP4Z4b+okHln8MxU6eoOHb +h+kDrV940J7cqa8bRcNP9+1q5Yd48PqBUFRBAg3lbZy2lo/yYHR5sFjsdRpG +aR8sK/zJAxnSwmDrYxpyRrsYLotJ8Ps1EdUsQseaKr2dHeIkGB3xkvosRsfV +luOmLRIkCA713haQoSOdY5xfJ0lCYV9DlylBx0tqtPY8aRL6H11Zd0+fjpai +KVVWa0jYEWvYc8OVjq97r7LpBAmK82WH6zzomP16+f1xysOhhMBbHzqGjjwr +rWWQEH9wuaZMMB2VteZFd7JIqLd+ezopno4ZbqnVe1RJ0BGL1jpRTseo5nKJ +YQ0S+BKnGtMr6Vh7zyYhVZOEdoFDTpU1dJzOTYreqEWC79Su2IkndMyf+j4f +vp6Egh5mn3cvHXmez40GdUgIsrsWGPuOjh8+aPWGbCABW0SW5n+kY3STwqJl +uiS8rZle3z9KxzqF3C90PRKkcprP2gsQ6GdizzIyIOGjNFs+SJBAn0XaK6sp +VySXl18UIbBq8c0zBhup+mMy3rRIE6heGiChbkjV5+mnY7aOwNkOoa5JIxL2 +9L9vctEmsLprk/oBYxKYex2cT+oT6FCzZVUr5XoL0/j7SGAwtCWmmZAwo76q +X8OBwPW7J/aKm5IwnSUXvcGJwNxbi3MPUZ5cyWIauhKoWlCSUkd59IfhIXMf +AncJPDnuDiR88zQXsfInUHBoSwBJ+d9uW3LHUQJdTgat/kN5sIYz7XSKQKtt +I87nkYR3Gv7X3GIIzJGyEXpJ+U1OmIlXHIFBj45xxM1I6Dp9IebIJQKj7Pcr +X6L8aiqNdewqgYof1JLbKL/wzms+mUng/nMjJUs2kdBifV80vpBAiU+xU4GU +m2r/Kr9QQmD0xqPK+ZQbtdrsU3kENn2IE35F+ZH4QEb2A2q8p5xH1TeTUBP7 +jV3wiECFCeMxe8pVP6feFzcQyPUPLzxBuaJPWOXeMwLJyL26jynztku2VHcQ +WJgqJTpIubRO6XB9N4FdasdyFigXa69d9fQNVc8D4a9y5iQU5eveaR0gMECP +820D5XxJ2PPyM4HsFeI3rSjnxlnOdH0j8IhKmbwr5ayZ3dffjFPz863R5gjl +DF8XGJwiUMVg1CCactrbg4NfflPjx6ntT6J8ecfR2JEFqr7NTWYZlC/9dUr1 +x2IGLmfeOJBPOWlDfOsvIQaubnlvWkI5sTDFf16UgfuC5Xu5lOOls1YvlmDg +8OuhDeWUYxNu3hWSZaDY2g82/zlmtnzvSkWqfXkWi0c58vDD3xIMBupkk4/+ +6+/ku6dZcqoM7AitlCmgfNzuJdI0GHgzb5tuJuXQhr4PLB0GShfOrU6mfFTv +81l1Awa+OBZUEUM58Oa4mrYJA13PodRRyv6ys236Zgwc/Yvf9ABl38QlgSZb +GfgxzH7tdsoH51aKb7JmYFrEyz59yl4BcpXbdjJwREpqtyJlzgBz33YHBkr8 +fpQsQNltt9afXU4MVLX3ufKZmh/nJ4Y5jq4MfNVYcaCJspOB+SYXDwYKuxpO +F1K2X7Mv3sefgZoZYeH7Kdtd4KgHHGXgluwAX13KtguH24PDqPdfoqkIU7b4 +ECMRFcNAkXHtRTxqfW1xuHA/No4af+tOWgTlTU1pTonnGbgj+K6INWWT26W5 +V68y0OtzpV0/tZ77aLdztmQyMCDRK/sW5fCrxdmTOQx82NcqcITy/eii67uK +Gbh1bavcH2q/6Djmpos+ZODjoxvjZ6n99fJZdlptPQOL5bSKKykHbs666veE +gb/1l38JoMzVzLjc0s7ApM5LNW+o/au25HLy2QEG/p3+sCuHTUJzeMpFvc8M +JHPrR6wpe40nJ30cYqCz9yhrmsqHgr4L5zdNMvD+zrFZc8q0irj4+aVMPPua +3N5G5Y2U64mo0HVMtIuJ44+h8upe5/FIljYT/6qIOLyKsr1VWESnHhMjGjj8 +WfokpOiFnNQBJm6mbyglqfwTWREQNmrHRFpm+srHVF4ufuAe6HWMifXF/Jcv +UHmbr3kgQPIkE3WjAwbmqTzeVODq3xjFRL3TvQf8KUde3O9HnGPiLDEzt43K +79+eew72X2di3dbEO5/WkjAhZuW25zETY+Mjr7ZS+d/jR7w41MTEdcpzTav/ +Ow+e/obINiZe/2Pw2YFJQnL4baVbXUzUbhn+1k2dJ+sHV7ybGWKiwY1M7QYl +an2WP3fOEmeh9aHTdgayVN4uv/WsXIaFfSHBJftlSDD1jGI/VWAhx/nQn0jq +/BKR1VYYU2FhwXxMUj11vpVGpbxBExYO+NhGq4mRMLTD4X8fPVg4dyrXLlOY +hI5ijdZfPizUpileyxUioVpgqbFIAAvlivBzviAJCfcr5fSPs5B/4OblgqUk +qCrJ9MZdYOFI3HHHJH4SvEd7HdUrWTg8LuQuOMmDj+fd9gQtU0aNCM0Hc+08 +8B9aR6xfoYx94o1XK9t48HPbzMjIKmVsbs7R8mvhgbBASqyPnDLGD2WmP3vC +g/XHG+66aSjju/T+wz4PeXDKU1l8x25lXH8823FpMQ+kTIefq+co48bzKm/6 +I3mQm1mV+TVfGT+L+T3TPsUDtZkz3jdvKaOekWVRdDgPTO4qLBAVyiieGCgh +E0Ldd9bu0JR7ooxiB/8I0Q7xgJSqOC/4TRljsv3TsnZT95GxY5af9FVww7+/ +DfZR9zN5bcWzgiYqGDE07C9Mp+4fQY2P1c1UUPmYrWGVAg8uT68yCbJWwcHE +uotC0jzonyvWXHBVwY1XhY+dFuJB0Io34rIJKthTv7j9nxEuZKhhv02fCp7e +Jl+06C4XhjmCR+9GqqLz/b027/S5MJptXlt3RhV1VtRt7tbhwtjrqGWtCarY +etDWvU2TC993zGQOpKoinxZLnqvMhZ/GQ42it1TR/cjJezukuMAv0Sbl80IV +K3yLJUWmykC28WK1Al0NDcxTrU6RZdT/kDR/3GM1dLUzfntNqQzEniknkWNr +sfJsiNOeX7dBPp63U19/HX59ePYr51oJpKsbrhL31sA9Zsr31I2LoUXOTO/H +JU0cWn6/I7jzJhjJP07W6tJCa3tpNx3zIhAVyAs+ELMetSX2j6T8XQCK0Uom ++5S18VeE4h4lrXwQYu2v3NWkjT5PKz4s5N4ATbYs75izDloMfCc69XIhqF+s +wYpvAyYYXRMdDcyCsR/nHSzTN2BH3ImFjicZsE3raYalhi4+J77w79uWDo9+ +GM/+bNfFCunBuImqK+C/Tqf3pacezu30kao/mQrsUY/OfUL6mPYrvmzc+BJs +YcpsF8nTxws9mUUVV5JANepc2GMDA0xMkfJtlUiEtZ6GdaxeA5Te7uyflxUH +no8Onrl7ZCMOJZwW7uCdgbrcTo8JSUOcPmLI+tMZDZO3Fn5q3TfEvWNKnjW3 +I4DDui2Usd0II54ufdR2Nhwm1qbqV4wbYU/KhpDaC6FQVTA7MBVvjM1zl641 +Wh8FJ3MGGiuaYL/xg2rXU4Gw5nDcA816E5x39/nRVuYLksJ+5dv3svGJOM03 +x8sbCjafCh/fx8a9nsvcBuy9QedU0ubU/Wx8ZBDUobnZG2zHyX96DrDR23+J +7LCSN5ztmprh+LHx82zHhbHXXvArL3JTeDQbPSOW0SR3ekGvceqrotts/Gbt +GnnH3BMOhhRct+Sycf7F/g1Oup4wzb3nOUyy8cwrmfLlTE8QI3p+aleykRyp ++JEk4AnWggrytfVUfw9Wzko2eMDDziKPV/+wcUbf3Jxu7gFWolUaoT1spM0b +8wXpekDPtr+nZfrYWDlpoPmM6QGT1d/iXd6zMUoppiVviQdo3Fhf9nWIjUf5 +rvu1NHHgYa9Z6PkRNnJtv9D8qzhgJbEbtMbZaJ7zdY18MQe84kJeBk+xkShN +eHH1HAcm689mSP9io8sRr0jOCQ7E/E7jVP9mo59NmKuRHwdW6Ravc55jY22m +u+8aZw5kH66eWlhg4yHLlqylthz4P0dGawo= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2143,299 +7121,117 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== +1:eJwV13k4VdsbB3DRgKIyk+Gcfc4xJESGDMf7KpUppSj5ZcgxJEJCUplKSElU +RIZMRZyzqSQSN4qLVHIRpWi6yVgoCb99/9rP51nPs/Z+1/Bda9PdA3Z58vPx +8Qkt4uP77znd/3cjM7HA1COn2o/71sS0M1vmuFlPDCSl8z+9Hi4HKPncXaYn +BSp3uue4ha+F0J0l3QI9efA1rFbCKNwIVo9Kp8x0V0A34fR9cbgVvHtoGzDZ +/RheSVuMuR93gq3MobcT3R3Qee23xWToIZjpNrgy3j0IAQY2cRaHw6Fh882C +l3k/wO8FOSHlnAjy7x58dl83B/axqYUStMsg4edasmyzAO5UaTK7aZABKdpb +a2wdBHF8uy+vDnLhdfr6+olVImgYrpCzfT4PEgsin/PLrsZBIdkbjjWFIH35 +Q0JqljgWKb/q9FC5BXH2lqYd05LYnHqwtEClBOTutsvxL5LC9xFkY51WCXDF +7X9qL5fCVSfyPvxjUAJdHS7kJSUphN4y7R/bSoBpF0zYWUhhrGXvjwnvEni8 +PWfpi2tSGFLub7ZQVAJzW6fan5lIY/CJpX276LfhqOEN179jZND9TeFs+dJS +sMoVnbQ+L4PQOSIkIVIKxLKT8e1XZLD70K20I+Kl8KJzT/mrWzJY535dS4lW +CpqBKwT622Ww6lGHublhKfxbdKzou5wsaqbP5t07VAr7JWxH1tyRxcCABjed +llIwH/sd7v9BDnfJ6jtFnyiD4xaX1/41LIc+db58RVFlwL2h0Ss+LYcs2zB4 +GlsGMvZuhg8E16CjaUjczMUyGK568lNAcw0+5HQaqReUQWpMcvC1sDXokOSy +uqa1DAYllf0bReSRf3NaU6I0F6QD6hSkpeXxovqCLUOeCzbNjs98aPLoddXM +r5LGhcrwxHUrN8jjZDX74HM1Lpx7Nz60z1Eet7wv8Gwz5oJOcY33WJ482i3X +Dv3uwoVoE7sDchsVUCDHlzV2gwsWLtnfDTYpYD7zk4pdERdEo76ddrBRwIg3 +HjNlJVy43hBblOymgG+vCAg73uFClVX1t6UJChi64sunw41cGHdkhP54rYDJ +nzdycz9xwSVk6lzbCUV02Tb0m8HkASttk/xQrCJajiix36vwqPovli1LVsSC +ZcEOaeo8CP+j9mJTgSJm+FYJTevw4MppF8kHbYp4WfBJQogZD9ouNeUUKihh +l5Ow3ilnHhhxr92NqFPCP/OD/5Zf4oF5d/vcaLMS7vY91nH5Mg9s+RZvc+1Q +QnqAksXRNB5wdvm/hk9Ue7DxayKLB1tP0COjltAwzLYzy+YWDwKVpvPN1Gmo +W7xPpLWWB1N3kptntGjoeBG+etVT32ehPlKuS8M5oe975x/zIPaImz5hSsPG +pxfGlJp5kNHQ0sxvR0OLtiQJzQ4eNHrnjDSE0vAP4Z4b+okHln8MxU6eoOHb +h+kDrV940J7cqa8bRcNP9+1q5Yd48PqBUFRBAg3lbZy2lo/yYHR5sFjsdRpG +aR8sK/zJAxnSwmDrYxpyRrsYLotJ8Ps1EdUsQseaKr2dHeIkGB3xkvosRsfV +luOmLRIkCA713haQoSOdY5xfJ0lCYV9DlylBx0tqtPY8aRL6H11Zd0+fjpai +KVVWa0jYEWvYc8OVjq97r7LpBAmK82WH6zzomP16+f1xysOhhMBbHzqGjjwr +rWWQEH9wuaZMMB2VteZFd7JIqLd+ezopno4ZbqnVe1RJ0BGL1jpRTseo5nKJ +YQ0S+BKnGtMr6Vh7zyYhVZOEdoFDTpU1dJzOTYreqEWC79Su2IkndMyf+j4f +vp6Egh5mn3cvHXmez40GdUgIsrsWGPuOjh8+aPWGbCABW0SW5n+kY3STwqJl +uiS8rZle3z9KxzqF3C90PRKkcprP2gsQ6GdizzIyIOGjNFs+SJBAn0XaK6sp +VySXl18UIbBq8c0zBhup+mMy3rRIE6heGiChbkjV5+mnY7aOwNkOoa5JIxL2 +9L9vctEmsLprk/oBYxKYex2cT+oT6FCzZVUr5XoL0/j7SGAwtCWmmZAwo76q +X8OBwPW7J/aKm5IwnSUXvcGJwNxbi3MPUZ5cyWIauhKoWlCSUkd59IfhIXMf +AncJPDnuDiR88zQXsfInUHBoSwBJ+d9uW3LHUQJdTgat/kN5sIYz7XSKQKtt +I87nkYR3Gv7X3GIIzJGyEXpJ+U1OmIlXHIFBj45xxM1I6Dp9IebIJQKj7Pcr +X6L8aiqNdewqgYof1JLbKL/wzms+mUng/nMjJUs2kdBifV80vpBAiU+xU4GU +m2r/Kr9QQmD0xqPK+ZQbtdrsU3kENn2IE35F+ZH4QEb2A2q8p5xH1TeTUBP7 +jV3wiECFCeMxe8pVP6feFzcQyPUPLzxBuaJPWOXeMwLJyL26jynztku2VHcQ +WJgqJTpIubRO6XB9N4FdasdyFigXa69d9fQNVc8D4a9y5iQU5eveaR0gMECP +820D5XxJ2PPyM4HsFeI3rSjnxlnOdH0j8IhKmbwr5ayZ3dffjFPz863R5gjl +DF8XGJwiUMVg1CCactrbg4NfflPjx6ntT6J8ecfR2JEFqr7NTWYZlC/9dUr1 +x2IGLmfeOJBPOWlDfOsvIQaubnlvWkI5sTDFf16UgfuC5Xu5lOOls1YvlmDg +8OuhDeWUYxNu3hWSZaDY2g82/zlmtnzvSkWqfXkWi0c58vDD3xIMBupkk4/+ +6+/ku6dZcqoM7AitlCmgfNzuJdI0GHgzb5tuJuXQhr4PLB0GShfOrU6mfFTv +81l1Awa+OBZUEUM58Oa4mrYJA13PodRRyv6ys236Zgwc/Yvf9ABl38QlgSZb +GfgxzH7tdsoH51aKb7JmYFrEyz59yl4BcpXbdjJwREpqtyJlzgBz33YHBkr8 +fpQsQNltt9afXU4MVLX3ufKZmh/nJ4Y5jq4MfNVYcaCJspOB+SYXDwYKuxpO +F1K2X7Mv3sefgZoZYeH7Kdtd4KgHHGXgluwAX13KtguH24PDqPdfoqkIU7b4 +ECMRFcNAkXHtRTxqfW1xuHA/No4af+tOWgTlTU1pTonnGbgj+K6INWWT26W5 +V68y0OtzpV0/tZ77aLdztmQyMCDRK/sW5fCrxdmTOQx82NcqcITy/eii67uK +Gbh1bavcH2q/6Djmpos+ZODjoxvjZ6n99fJZdlptPQOL5bSKKykHbs666veE +gb/1l38JoMzVzLjc0s7ApM5LNW+o/au25HLy2QEG/p3+sCuHTUJzeMpFvc8M +JHPrR6wpe40nJ30cYqCz9yhrmsqHgr4L5zdNMvD+zrFZc8q0irj4+aVMPPua +3N5G5Y2U64mo0HVMtIuJ44+h8upe5/FIljYT/6qIOLyKsr1VWESnHhMjGjj8 +WfokpOiFnNQBJm6mbyglqfwTWREQNmrHRFpm+srHVF4ufuAe6HWMifXF/Jcv +UHmbr3kgQPIkE3WjAwbmqTzeVODq3xjFRL3TvQf8KUde3O9HnGPiLDEzt43K +79+eew72X2di3dbEO5/WkjAhZuW25zETY+Mjr7ZS+d/jR7w41MTEdcpzTav/ +Ow+e/obINiZe/2Pw2YFJQnL4baVbXUzUbhn+1k2dJ+sHV7ybGWKiwY1M7QYl +an2WP3fOEmeh9aHTdgayVN4uv/WsXIaFfSHBJftlSDD1jGI/VWAhx/nQn0jq +/BKR1VYYU2FhwXxMUj11vpVGpbxBExYO+NhGq4mRMLTD4X8fPVg4dyrXLlOY +hI5ijdZfPizUpileyxUioVpgqbFIAAvlivBzviAJCfcr5fSPs5B/4OblgqUk +qCrJ9MZdYOFI3HHHJH4SvEd7HdUrWTg8LuQuOMmDj+fd9gQtU0aNCM0Hc+08 +8B9aR6xfoYx94o1XK9t48HPbzMjIKmVsbs7R8mvhgbBASqyPnDLGD2WmP3vC +g/XHG+66aSjju/T+wz4PeXDKU1l8x25lXH8823FpMQ+kTIefq+co48bzKm/6 +I3mQm1mV+TVfGT+L+T3TPsUDtZkz3jdvKaOekWVRdDgPTO4qLBAVyiieGCgh +E0Ldd9bu0JR7ooxiB/8I0Q7xgJSqOC/4TRljsv3TsnZT95GxY5af9FVww7+/ +DfZR9zN5bcWzgiYqGDE07C9Mp+4fQY2P1c1UUPmYrWGVAg8uT68yCbJWwcHE +uotC0jzonyvWXHBVwY1XhY+dFuJB0Io34rIJKthTv7j9nxEuZKhhv02fCp7e +Jl+06C4XhjmCR+9GqqLz/b027/S5MJptXlt3RhV1VtRt7tbhwtjrqGWtCarY +etDWvU2TC993zGQOpKoinxZLnqvMhZ/GQ42it1TR/cjJezukuMAv0Sbl80IV +K3yLJUWmykC28WK1Al0NDcxTrU6RZdT/kDR/3GM1dLUzfntNqQzEniknkWNr +sfJsiNOeX7dBPp63U19/HX59ePYr51oJpKsbrhL31sA9Zsr31I2LoUXOTO/H +JU0cWn6/I7jzJhjJP07W6tJCa3tpNx3zIhAVyAs+ELMetSX2j6T8XQCK0Uom ++5S18VeE4h4lrXwQYu2v3NWkjT5PKz4s5N4ATbYs75izDloMfCc69XIhqF+s +wYpvAyYYXRMdDcyCsR/nHSzTN2BH3ImFjicZsE3raYalhi4+J77w79uWDo9+ +GM/+bNfFCunBuImqK+C/Tqf3pacezu30kao/mQrsUY/OfUL6mPYrvmzc+BJs +YcpsF8nTxws9mUUVV5JANepc2GMDA0xMkfJtlUiEtZ6GdaxeA5Te7uyflxUH +no8Onrl7ZCMOJZwW7uCdgbrcTo8JSUOcPmLI+tMZDZO3Fn5q3TfEvWNKnjW3 +I4DDui2Usd0II54ufdR2Nhwm1qbqV4wbYU/KhpDaC6FQVTA7MBVvjM1zl641 +Wh8FJ3MGGiuaYL/xg2rXU4Gw5nDcA816E5x39/nRVuYLksJ+5dv3svGJOM03 +x8sbCjafCh/fx8a9nsvcBuy9QedU0ubU/Wx8ZBDUobnZG2zHyX96DrDR23+J +7LCSN5ztmprh+LHx82zHhbHXXvArL3JTeDQbPSOW0SR3ekGvceqrotts/Gbt +GnnH3BMOhhRct+Sycf7F/g1Oup4wzb3nOUyy8cwrmfLlTE8QI3p+aleykRyp ++JEk4AnWggrytfVUfw9Wzko2eMDDziKPV/+wcUbf3Jxu7gFWolUaoT1spM0b +8wXpekDPtr+nZfrYWDlpoPmM6QGT1d/iXd6zMUoppiVviQdo3Fhf9nWIjUf5 +rvu1NHHgYa9Z6PkRNnJtv9D8qzhgJbEbtMbZaJ7zdY18MQe84kJeBk+xkShN +eHH1HAcm689mSP9io8sRr0jOCQ7E/E7jVP9mo59NmKuRHwdW6Ravc55jY22m +u+8aZw5kH66eWlhg4yHLlqylthz4P0dGawo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06354816558010892}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -2447,19 +7243,19 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06354816558010892}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2473,298 +7269,116 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwVl3c81d8fx2Ure2eVvfe89/qc8+ZbKoQGWS1ZqYiMhgpJSKJkJwmRkijZ -494ioyKFrOwks2Qlfvf31+fxfJz3Oe/xep/zOUfaxWe/GyMDA4MwEwPD/7+L -A01v5G5mI20e4a2+wa7oc4boBZPuMPxAja2xvtkUg9BHF9HuO9izfJL7dvN+ -HGjzpIupOwsHqIomHmh2wXwzIndWuopxYJqa17MmP/ytyspnoYuK3wnJvDNq -DMNmcpP9812fsNIn90OXqu/glS7De3Ndw/jW9MvBusQsTPvvcXZ71m8cKHBQ -bLqwGGvFPv+x9O43LlviSm38WIwzul9rSM3+xg+XHatj54rx+TPvyrwoCzhn -5q3vsHYJ1kj60cr0eQGv+/RrpJeU4NRJ1T/6LIv4xFGl/ajkJT4bX7Qz1WMZ -Nx41pfhkleKB3rLoulvLGPw9iey6UmyhUP9xvGQZu45sxtSBUqxQ2e6gy7CC -H2X9+VIm9hr3jv4605q8ghk0THxuxb/GZkb6ietNq/hEqGZZ9cUyLPGtfNxF -7R9uGu9ViyVXYIbfvslN+/7hDnLhbhXbCjzKqmKuFfQPbyTlH37mU4GfaaQ+ -+1f/Dz+er5X2zK7A6MpF/+RD6zhZKX3oGWclPipJYfwQtoEHV2aNT3ZX4nb1 -gdj0KQbI71xK3uZcjd8YVny33mCAGYVbXoHnqnGpSSIw8W+CiOgHSy+iq3Gq -rdWvk4abQC5rP1tXWTV2uVxjaxi2CVoCaU5dAjX4V2uGxCcRRnjqkuWQ/aYG -C54++oTtPyZgTTunFc1eh1XYHjXYHGKCd5Gz8eYCdRiyxodTTjHBftPa5RXJ -Ony6+4y4WgITnDASr5bXrcNvdgTH2Iwxwct70YFFznXYXzLFO+UGM0zGtVXe -elqHo8v6oofTmGETe0oFpbQOZx7Y/li1iBk6/VU9umvrcGvU42/V3cwQFfT1 -df+nOiy3+MpmWJkFXgkz1oss1+GOD590VFtZoDrgxXYzXI8nTgpb+w+ygEmJ -vUz/rnq8zux4qnqBBbKedSW52NRjFcrQI2tJVrj8aqzD6Hg9Dns8K+jvzQqB -B9z28ofVY50QzqUqXjY4V/coNqiuHt/RNqu0smWHlpnqYCYtKtbsddhFeLLD -TJ7OtRV9Km4NP9Oheokdkp25lAYpVMzanfCT/SE77N7CaXN1FxVfujIiTpti -B+/+M7osR6jYtSUk2DCcA6p2eh7RiqTiTQEJ7ApJHPBj9nCH1i0qzpDKSxB8 -wgHxw7Fr0neouNv349P5jxxQd3HyXGcaFe8VleovEN8M6s5zepGFVGzgVkls -L9kMt03D9fnaqbiD+2MTd8NmeNTvzCv1hYrPlg3b/uveDA2KBU3iX6n4yZbN -3j3rm6HIaGr0xyAVbyu2z0gw3wJNV4S3tc9ScZXTaZVrh7eA3ytlK7ffVOzI -ElLqe3YL3PqheX5ykYoT7B9/sErcAtXTta2N/6iYfePPOvvwFkj8VvHjw2Ya -zsnjuLm0sAVu9j09/pOLhk33S4qMs3HCzSNtf5Z5aTg4Z4cmTZ0TPA8/C/8u -TMNzFnePXr7ACcePvK/hl6HhW39yf56K4QT/7K6UMjkaVnlQEeT4gBOMb8+X -WivSsOuvoduGbzlBRiGtZZ8aDX9N1qqb5+WCmbaUuRx9Gk7tKOAJlOeC5dLF -ImYjGnbkVjy6SuKCzE7LA/vJNNx3TXKd8QQX9KvdcqxANHy/JnnvjSAugC1s -Hz4DDR9ZEbi/JYYLECkFBkxpeNB7s7HgKy4QX1QyqTGj4Yf5128mN3GBP7ff -QMJuGnYZZeiVGOCC81ZeKY7mNDzqsHRBno0bZnz+3SjZS69Hgl9Tvjg3BHKn -t5hZ07D7x2lRDS1uqOGft2yyoeGJHaOvDRy4wbSsRjn9AA3nXz3KVnmGG4oi -Z+9NHaRhr4oeOxzGDcvfzI6r2dGw6h/bXFoiN8ztsE9wOkTDU5rtf3YVcIOV -7nvDi/Y0/MzLcmdrLTeErbkejHSgYe+cxgSbz9wQnrfw67ojvd5iNboO/7ih -Kr3yq7UzDb+wJV3r5+MBHS92PYnDNOwX9/LTcQUeCB8L0uums26Lpsw4mQde -vt8zeu0IDS+wFPh6WfPAxtdPltuO0vArUKifOcEDFSnBQU/oHHjpIe+58zzA -dPDtGfljNGxYKnFsKYYHDn/HpDg6L88lPb/0kAcM8u+OTNK5XFVgY+MVD5B2 -BgfqH6fhi+6xVuHNPJCc3vTXh86UhxwZ7N94QC3n6OVUOq/1hk/H/OaBsN0G -LK/ofGRLSAY7My/Umjrcr6VzbR7RYM7NC+c2TVhX0Hm72d/pGFFeOBgmpJhD -55CRMqGPMrzQoq2kHkLnwZBAgk+dF643XThtQWcTKT23A4a80KQRNMtK56zK -+Zh7JnR7m8y6Ynq8jA7PX3ZZ8MIwa+SkFZ1dFk/3bbXjheSZjqBeev60uyrM -zsd4gbrH+Jw9neW0J1QzvHhhX9/N72/p9Qv/kHNg0J8X9JoffJOl8+ipE5dk -rvKCWICHux+93js5pB+5RvECu+NoxAu6Prm5A825d3lhbUbZcsiJhll3pP+a -uM8LDiGH6zfR2X3IQUw1jxdsuUvn+en6Nl4RMT1TzAsWKsETgnT9I8vvxM83 -8EKMXbPdT3r/TNjZlOu28wKjAnms1paG9yxwDQX08sLXynGP6/R+26wZpbU6 -ywu3vULOj+yj4ZvZVz8ybuWDLTbbeKctaNhc7yS/kCwfaEXy7t1P73f2N/tt -FdX5gGtHvGs+fT+Ej8j3WpjwwQkm/X3qO+n7XaZ1POEkH8zkdrrdImiYXPxK -+fE5Pjhz8VllGIXeDyYPTpdf5oOtwt57vEg0HHDc71d/PB+8ILkY89L3s3em -6LpCBR/UfFxtK1OlYTUtRhPSGz7wlMg2MFGm4cnan9csPvDBWMiqXpUCDXt8 -q+E4O8wHgnIs6tHSNHxMyk2ofDM/fM545H6Dft7sS3+hZuHED4+l6tj416mY -Vy3N57AbP3SKWH5tWqXiD5XhxT4+/GDXjbgDlqjYvPeQUcI1fmhqvdWZM0fF -pmLr//UX8MPrwnAbv2Eq1ks2d/JZ44dBzXc3qDQq/qWolxHKKgCPopOopbVU -XPRacugurwB8V+E1eFBJxepdc+5lcgJgUXzzn2UJFSsIJ/lt2isAT9acYiWz -qFgkYSTq7n0B2Kvu9SHjMhWLqr4KX84VgNOBHUaaF6hYjBpx9XCRAHz9VChb -6k/FUnPKAYo0AdAyvZz3+BQVy1uePVY5IQAc6e+eizlQsS7zP4MRXUE4vfn3 -e3MdKrb2Fx7VaRaEXm+lbrmBemyzZWIgqUMQBKJaG9O66/H+rPKva310e5Ud -zzZ31GO7NuePDbOC0P9LIqqtsR4fVntU4SgkBKmDo23/iurxqVHN+LBjQvBg -7SrHj9B6fOPgHvRpUQgUn2ul20rVY7GXH8QYNwlDWL5nrZ1IPS4UOLikvUUY -jP84a9nw1uPOT0eK4rcJw7FZRyM1xnost89fZt9uYbixeic6eqwOU/c+YG1L -EYbdB93Dpp/U4X9mfz68NxaBl902WaVadfgc6eHRpjBR2HJAIFbnUA3eMbt6 -0XtEDKJ/nZIco1TgUON9x8WMJGEkfP0+79ZSTC5MeXmldhuMPsw1N333Ap9e -ng95xyUNtVG73brITzHZ1114nF8aLk5bXViWeIrZJ3sKmESlISLrD1l1owDn -9NI6kYw0NLE4L7+lFeCBmntqrwykoThC5kn73gJsfZ3U/fAoff7BzGYLtydY -hz9U89ILaaCFcGzwZuXhFVXeAXVbGfhytF7z+sEcvHhfLFTXUQZSBNOk3lNy -8AKPvBzpqAyUzez4qCibg2d+k7x2nJQB4tLeK0K/svFw5YlFx8syMB7MaPYp -Lhs3W7zmjsyRgW3tXk8+tT/CqaeO4OE/MtB+nmVu/ngWNi54mpmYKAvTTmvd -Lf4PcO/2ggc702ThjnHcxknrB/hiYn7GwgNZuNBbKqek8gC/Ds1N358vC3MM -VpbMgxlYxz4zmbtKFo7rhelR9mZgZZaEuIghWbCVL9yWrn4fCx+9FBKoJgcW -w179P1jS8KvPF67Ka8vBq+bCD4Gjqfig+fkrn/XlwD5aMl6Glorv6AcE62A5 -uMh32bkzJBVzcfqcn9knB9q7m1uf/UvBzOUuZ92D5ID46VDL9y8Zz/ObH7Oj -yoFw+NsoO/4k3H1aps2rUQ78rPKOy/1KxHUNq/hqqxyc36p5X/BTIo67WLAt -r1MO8lUfLTndScRaw5zfViblYLvPLA4XTMTeLz4evi8gDwEUvTWVbffwpLWt -06irPJxNzvK12HsXf8pXb1k+KQ8SZYmHTbTv4gomVgqXjzzc4a/feUjoLo56 -XSpmcEEeQrnzy4b772ClbaI9N27Jg8vxD+MBZ+9gj5kee9VSeZAWs5C5lBaP -R2OO2fmxKUDiexvd0+xx2HtSTUaLUwGuv651yh+5jZd2rUxP8ypAOy3L81np -bbyZ6c71k2IK8PixJtnq8G2sdYH28pi6ApTUTbfOPI3Fl90UBKwPKEBwwgWe -GNtbWBhNfVR9QF/fnYfVqCUaZ6aVpf14pABZazsfy2dHY+WVcI/HeQrAmxnb -bnI5Ghu/lNyQKVYA6s0P6ixa0fiEirWG2FsFcHd69rckKQoXCRfHsP9UAFIl -X1q8TyTeMxu0Z8xAEYjuEmQOEVhCWyqC3VgRxOJEx/6IR+AZvzdUVRNFeLZq -Vvdp6TpOWOQ19rNQBMHyNodtRdfxwL98jY2jinDTmbq2LnMd+3H2CWyNUgSb -Zl7953zhOFUZBix7FUFZ6jnzbb4wfPrUuNjZQUUQXutHbL9DMX4Wc+jumCK8 -q88Yf/I5FI9qfW37OqsIG6O46VxyKNYw8qO5MysBp9+x76wyoZhmlp0Xoq4E -97jbtm8hQvDUCfZzL68qgU5Po3CezGU8k7GjujZcCUoEg/hL5oLx7NcQtpYo -JWiQ5hRjqw3Gv6xX0obuKgFV/gBblHMwXqJMvuHOU4LEvd7BP1MvYUbBVuGT -bUoQk/2f96jcRbz1ze0KSWllOH6XEhZ8KgiLbbQwKysoA5JXDeU2DcISZHZr -PVVl+FKu8vKbaBCWKgoZMddXBh/bqhuoMRDLpftynt+jDI4izfljCoFYy//A -kU++yrCRkJWdPO9Pfx+LMN6gKoO3wZT7nWI//MNlVx6lURm+7xj7Trvjh2Me -BlnNtdDH32lHyZ3zwx1S3akOX5ShqmKnpZ+eHz62NUVXbUIZfppPlZPKffEF -bnG3di4VMB5zmdjVchY/XZZ6J+6gAk7WjM8/bvPG1obW3m2HVeC9VHaA4s8z -+FfAVcHrLipQ869HsK30DCb9/nZs5pQKCMmSzfitz+CG6cyVuisq8Ka908P6 -2mn8bVhG1T1bBW63BNnbrnph/vcKsUWzKjDqUSP0fZsnXp/VymleUIEZVnPG -lTkPPMlPqRpdoa/XZlLtRPXAVHvrSVFmVWDo6/7A5+6Bz40GmYWKqgI5WOa9 -7gt3/Pnvu/V9JqpwJX1RfMrWDSepnPL5fUcV4rfFaKh3uuDwvQERXMmq4B2U -sBFS5ILPnr16X/G+Kqxkcm0SvemCd5febXF6rAraWZ83uExc6PePKsU3laqw -pV9hlrvoOHZ04BpMGFWFD41l4typx7BE5HMbAwM1sMXrRU0Gh/GTwme0FbIa -vb/cGarXnbHRlwKDaqwG0q5JPbyNzvigTJ7Ejj1qsFAv/qfL3hnHVGVO7HNW -g89OKVafQ5zw37n4kDNhaqAerMXMOeyAexz8i7I/qMHJfS73W8bssGeIn6xn -hxqUhkkPN5bZ4cXcs4mq3Wpg1SvEIxhjh/kXTgcXD6kBFffpp+raYfNYt911 -C2qwduuUm02ELS6n2g32iqnD5ldE/l/SQZysSuIV8FCH9ZK92Qpd+7Ctxfu4 -mlPq8PimetRcyT7Mf+o4n9dZdbgn8fjaStw+fPNJFH/9BXW4K/FGvdFiH76i -3CPoE6MOnXXVmWZvbLCr4qWtLS/U4dKUThdTqDXWlq2WubamDr9mzMfeNFjg -GdN9jzQ2aQBHxEvmF7EW+InLmGwPiwZYMv3nwXzIAstlcclr82gAr851u4EJ -cywqfUTxm7QG/L7O9NKSzxyvS22oUnZpQMyT0NVw/924WcxE/3e8BqwxScxI -hOzEbVLPFZiTNKDqfnzwmvVO3CkjKSqUrgEs4kw1aPtOPKSysmqQqwEdkR1R -E/U78DL5Rd3FCg14oX22vZpjB1ZwkrZkHNEAsYXXDF1PTLHa0duEwIQGyLyQ -T7gdYop1TvzTkJvWABiIF8q0M8XEqa98ZksaUDt30raByRQfvBTfFbVFE5Kv -+isIu5jgsLRNJ/j0NCHRc86QpAE48oHPQRmSJpQAv54CB+DYR/07dZEmWG49 -VU59h3FKQbmS7W5N8Hmf2nTVEOOiSt+ZZGdNoIZsVIhLIDzQO3Rh+3VNsAuq -LR9iMMZkCWqcZqcm1J8S20HWNsLDsnIDP3o0Qcxum5rFmiGOUo1Qzf6mCYfu -2Is2NhribrJ5g+gPTTC/Mjq3dtQQBzl8+rtpjT7eKBdrcc8AO1r46k7yasHY -hYXyj/z6WMNaxnGXgBbY5dNGDEf1MOOBjpBsIS24n/bYc+OVHs531P9wREwL -bhc+rM931MPLJ1c8O2S1YPw9OdM+TxcnRoZmVBloQWpAqVz0QR3sFaPzditJ -Czb4m28kqepgFDfyM5CiBXHJ4lUrjDp4LGknSRvo/vq2ilcUa2O9xxyfc/Zo -wcis9pWtwtr409t4jtvOWnAwbZolpUsTczNl+R8P0wLSQcNvbBmqmHWl9sB8 -uBZYPLMT++Sgitdn+nVCb2hBOkcYH0lYFc/2bJ3PjNGCes1W/u44FdxWHH9m -MFELpjTT/hncUsZ3XELdjxZoQc3Im2XXh4o42v7BztlnWrDngPR3N3dFHGZV -LXe1SAtM58K2zqkq4nPkleGMV1qwdPVjRVqZAj7I73t0oFYLfhvgS1rd8liY -esz+8Gf6/Lx+spOmHOYuu2I43akFEiwzK6fWZDFrYbrw5a9a4GzrVrzQJIuX -Uro/pw9owRbOn0xe7rK429dmX9+EFmhntu94ly2DU6XB3OmfFgAIOFw0kMZS -oduMHRS0YduSqWOalSQuPMcu06+kDcTa89IAZkmM3OfZjqtqw2/y67KNCgl8 -2ILW4amlDW95Sl5IqEjgdCGPU+fJ2hDRImK0j1ccb31SmJpkpQ1RVgxMrn9F -cV56Uoj4Pm3QzGdQvVkpio1uh7g/OKANiyOiBy2CRbG9/36dx/baMDv98Vj8 -hghORItNpS7aUDi4a5WHSwQLdhArXwK14XHa871VpkI4+63CN4cL2iAzoujU -s0UI65bxvO2/pA2rod98Ln8RxPvvD8WNhWjDzhZ2NisvQRzvcV3pT7Q2OH3k -7l5OEcDca62HBB9ow0lz51+XePkxh7xz6f5Gbfhvc/bdhhxu7LUVmxc0aUNe -ZbLJFUdu3MwlM8DUqg05rsasozzcOGbxO8urNm2wrLv1rySYC3O/O2cr0kP3 -H3n3JHGEk37e3VzondKGp/ph16rxZux31DtSb1Yb9F3tDjxb58AdB/ZJ3JrX -BrFEL1n9Gg6cYCyyAy1qQ4LCnnQ2zIFFuB/dzdzQhvMrnh4Ju9ixxIsKHTd+ -HYgemjYjnWPFwTn3G6oFdcCE8UuqAIUV96eEOAqL6EDz/n/efkysOCPMLKxR -XAeS17q3lN9jwdsPfmpXltcBafm5evM6Ziy/9OPsjKEOfDEZpMaoMWENYuvz -oMM6kFlgs/eYIwMukT35l/GYDnjLo2RQZ8BGm8t3xbrowAfHA48SGRiwaZf9 -YLaHDvzevu0f2reB7HyT+T756kD6euzPzWv/0NUcEX+1CB04a2md7nHxL2KO -8ah7HakD+7c0BfWr/0XRfq85/7upA6ZVZDXJ4VWUgA/lOMTpQE8f2eGX5SrK -+5rYGZGqA1/D18xrVFdQG5cwaahQB9T7OgYR5xKyXXC7fvqFDl2v4799WxZR -T8+r9qUSHdj2vbBk381FNPrY1ou7XAfMrnCG8XItomWTe2kUmg60CHBzHxb9 -g6QDBdfvdemArZIjc6vlb+Q3wE8zZ9AFPOeSGiszh941OFc/YdSFp1a7Cttn -ZpHU89zXm1l0IU9Qav/xlFnUfJX8tJlDF+zEhqY55mfoTzWXe+YCurDcUbdz -95Np1H7ihYe5gi6UPupyaTD9iRQs/x5/oqQLT0wZs0xWJlGw3k7nzaq64JuC -nC4UTSIllq82zZq68OjyXRkR6UkUkstANifpQi6Lq3bv5h9I64c1p7mlLlAf -TLpu2RhHEe0prE+sdMHU741jaN046isfYdi8TxeW/O7LpoSNo8jooD9NtrqQ -MhPCksc+jgZVHwzsOaoL31fvPheVGENx3jNFe/x0IeKDzdS/IyNo9neM7Z5k -Xfr/afPsfxaDqK/7od39VF3oc0j+K7ptEDVXlx6aT9eFSRW9PXXj31D2jUGH -lIe68B/yGw8hf0OO4npHfjzRhfGwWmw31Y/emva6R1XrQkVTP/O1oF5UrDjn -0V+rC8P6KaMBar0ok5PlpDZVF9ad9rmoDfegi50ap7426MLFP6QXfdY9SMsr -zEe5TRe0NmKHhPW+orR45fNNw/TxsyMhx6W6UGQguiA5Rmdl9v9eDXSiQKcD -F32/6wIHseFd9KAT2chfDt46pQujLVevJcp2ItbytpCTf3Sh8o3o1ILOF+Q7 -GBTFwa4Hw4ONBg+9O9AuzYbUPep6kOT5tCrLug3Zs+4+2KapB7szmP3lpNqQ -V38T1yEdPTgZYHnjVM9HFHvzfYiroR6otAIjo9hH1Pn9s/tVEz3YJem9b1vu -e+SaOaLzylYPzFQUu2/PNqPAILcpir0eiKFTLnL3m1Gk1fccqqMe6Eu/gCcW -zejp2qRo21E98N6xFnK1oAn9tv+1PnlSD2qU/HewB75DYXybWrZf0YPjrl+V -vPQaUMJEWPjjED34RiXlfp99i3JrmZHGNT2wkzGN13z6FjWfYX9BidSDr3f2 -twspvkV8zTxJdnf04O1qr+KG/BuUGSZ1IiZXD/Yo7zHyNaOiYodMCYF8Pej7 -uw+SuKjojZZMZ0oBPT6PC43uX+rRxID8nsdFejB48NGnVfd6pElR16RW6IFx -5IuztPg6VPOb8nfpgx5s31X7KJG9Bj1sfe1yoF0PtCUPcRYUVaPwHN3mwg49 -uGxYZFHqUI32HFJNcevWgwARacbHhVXoc4WYYceQHryMYXr45EQlmgxd8Stc -0IN593/fti6XofeOAT0cS3qwMBX49VxhGSrSnTdxW9GDLyxDlhluZShgbIJX -Yl0PxneE9zh1vkYMe7oLo9j0oWyvtj1RX4qEeV9Puorpw5nHiV1NFS/RyoTO -/joJfWDrqHHXvPwS9dUXlotv04fRjkXaDniJHp7Ljfwkqw/EUOHZoHclSK3r -ngKo64Ob73/2TYPFyDTD30Uc9OEE1693CZovkHzQXFOgqT68MVIe2L5WhNht -Tmt/2qEPIuMsq9BUhN5vcmWI2qMPiwF3pg3cipC924GMxf36sN/xTVj6rufI -W02np91NH1bZJwxf+z9FAUtiq0c99cE95l5dmchTFExlEpvx0oeAqYdhA5UF -6Kb9F4fNZ/WhpiGfMYqtAOWFn/9qelEf/pv1hbWCfDTcV9NdEqsPFKkLP2IU -HqMfjx8vm8Trw++jRkvmPblozi9OtO2uPtgmjZauxuaiDXYX+6lkfbgffW5A -9m8OktBn6ZZ7pA9hTTUpVgPZyO6WRde91/qw1z+Ep/B9Fjpsr7ckW6EP/T7e -E3A7C7nKSooUV+kDKqFZpu3LQufKZ+w+1OuD0O9m7fvdD1HcWHwna6s+NJ1V -M0uYzUTNRPeXoEF9iEwvOF12JQO1s9f/YRnRh8/bNJefi2ag7o58oYQxffgb -IOc1V3IffT95ybZoUh+u5BuoGM+kI+ZEqS8TC/rg7cBUf8c3DREzrp8dOAxg -7WaN0vrzZCRcuSuraosBnDB7LUlxSUYzN1TObuM2gDB+PU1XoWSUIT23ZYzf -AHbIK836XElC6wcv/XdWwgAGTisHyDklotrK+OIITQPY1rUz971xAkqO9A/5 -oW0A06pixSlrd9FZ20NWlnoGkFQA2irVd9H2WYlJPpIB7OGmRd+GuyhEJk/6 -vqkB0Fg4+TVs7iCTqJq4ElsDeB+YemsoLg6J2T08ImxvAAeuzyX/dopDv2TC -1S44GsCFosXOPMU4lFW15x06agC/jBzfTIbeRoxznzeaPA1ATaUbNfy5hWh2 -P70HLxnAKs7J3ix0E6XLfjD+7wo9XrUgx/HqaOQ/V7Q5N8QAblg/b27ziEZy -0YG5p64bgOUlSXhbE4XCqzcNLMYawCuhDkrn+Ui0U050L1eWAXjW9ZYwikeg -l9NvpV2z6euLfrVq/Hwdyb0+t1iRawBX3gcGnbh9HTGbf3zgWWAAM5vNI0TZ -riOqT8Qv2ksD4KmYKtJmCEeociHpYqMBMB3+sUlEJAwVhmedbm8ygA/zvrNG -/aFI0srGRKmVHg/Dvzdc2aFobbBg8kubAdiod/Y26oaiCtYThHaPAWS2Bv3c -4RSCDPa3D3+fMgAroyNxh+Mvo1zxq6/RLL1eC1aEnM5lJDSmFnNv3gCyAz38 -BT4Ho4WgSP3/Func7ZN9WDwYFd/HkRkb9HwGjqubvr6INH88U7flNwTlN1st -/KXPo4xiJ8angoaw2V77pWFHEOIO5uhiFDGEDyLpYXPXg9AMt1tIkTidtRjq -DGYC0VM9iY4t8oZAkCazGpoCkFJI9HmqoSGwzmxLvPfkHKqi5LBYkg0h5Xnp -13XXc8hmqfbOF2NDYMlRP2e3/Rw67/3n6YSJIUx3q7q+SfFD75yPDXFbGkKj -mGforiRf5EkyMHc6ZgiHwsPPdPr7oLUFm65RF0PYevjN4wpmHxRXdMrV280Q -JkaEWqUTvVGZ4sMroV6G4JrFWudafQaxC3OWPPY3hM6uq5Z6kqdR/q8h8YVI -Q7hnuG1tRPIkQoVreZdv0v292pJXRfNEn06KGLDFGsI7T1rXBy9PtDpoaSN2 -1xAO8F9wvl3lgcw/vg6H+4bQbavAw+ftjiYLbk3HvDCEEdNzSvUsruiKR95F -4ZeGwPPo0+Vj1ScQvyyNLbPUEB5s6j79L+AEIqcuS5dUGkLGf5fLZCZdUHTk -Cbuvbw2hUu1gY23/caTiRqqV7zGEmGsSFSLfjqLbMlar1/oMwfCsXAnV7yha -+OaiPzxgCMcKFmo+sR1FNY4xBRkjhhDx2d2W1+AI2m/zLUlk2hCuSf44HJnl -jC5Qrp/lYDCC9U1Z4e9fO6CB5ZQCD0Yj6KIwCbQfdUCmpYXjb5mNQO2P3+Nl -dgfEqd3tHMZhBHtb2XfnHLFHmQqqe/7yG8Ejxu8PeUUOoXd87dLT8kZwc2PX -jF75QaT+cczZQskIbqWPWn31PYjuxKwm5asYQWRnu8Jp1YPImU2O213TCHr3 -25L2PTyAZtcCVweMjECL8cfXhqT9SHhCoqPNwggKt5+fmHpqgy7laHNrWhkB -dWT/FtlzNmjQxWzPLRsjMD6SlSFOtkFP+n1q99gaweGT2b4JCdYIdVALqEeM -4PwWt+KS8b3IrcYz/KWvEUze+LZxtdUczZyZDNrpbwS5itPdOz3M0XnJ06c6 -A40grLdB9CqTOYoO9tm/fMkITkxWIkPYg4rIgduNI+j2Qy/5dZp3obXSa1W0 -VCNYVpqxVpLYiSLcWYoO3jeCNb3W1YGWHYhH+MajsQdGYL7T/nBN8A4kExAd -zZZjBAE3eqvGh/5Du3Tj7S2eG8H8D1nFM+Wm6M7zjIVPNCMwsis7uJQCSOLo -9okTDUZA7iL7uTkCyuHO6l14ZwSnfsXp1IkDKjuTQxX+YATP8ufvO5ti1K/6 -NM6x2wgUF2Lq5c4QSCmvXG14ygisHtpU3OEjo+JDlO3nZo1gz99RT4FnJERh -qxZg/mUEZkEq3zjNScjKvW5VfskIGLhtWg9GGiF/ucZ3JzeRgPZT0/mxkCGq -zfzsOi9Eghvp845sPnpo0FL6aKAoCTxV7i0pSeshhpUzDn/FSPAhLNvs1Gdd -ZLqPzYplOwk62Hk+miBd1LCJbLhVhQTKsfJO76R0UKvLAw4TRIJD66sf//Bo -oWnuKaYGIIGLWM6t4mxNxF1ptG7+Hwm+anRc2amqiWwEPv06uJsEjlOj/q8I -DdRBY+7z3E+Cs18TvnEGqaEeOa/COHe6/9AGKUcDZfS3rTRP6CTd/sTpe0xf -lJDEZaZHqadIEHbXeVosQAkd/pKelH2WBOIhv85dKVdEg9c/hpRdJEFvVgHl -5n4FtElH4hJxmQS7l94nCa3JI5kBzwDqVRJY8elyjefKI1cDRq/WcBJIRJzL -M2OQR9/H9Q4MxpIg8IfVnxv1soj9buhet3gSfA9fX6b5yyIl/GHX5F0SVDUs -h8ooyyKvJA/jhWQScL8ZCzG4J4NmdqXKsz8igZS4/sLui9JoIW9jSfM1PR6j -1KqgH1Jo3M4sM6qcBI/J6jI556VQN/Ot3SOVJJDGO8pOcEihymNiKYl1JPhv -U3HfFU1JFCaqT/7XRAL1tPD6lFviiDfSK7i5jwRFzC/3MdwSRYwGL+TkvpFg -75pQc5+OKFoYWWq9PESC2adurX+/iqAufF1Se5wEhiWbFmZVRVDG0oOapFkS -kOIGckgDQkjN4wuDGyMZzj/Yvq/xvACSEpLIr2Emw3a5Rsd+LQHES3PZJ8pG -hkSVI/sXf/Cj31JzD1u2kIHL+tRPmaP8qKJz8386QmQ440m6ymrLh3abwfUN -RTI8/EIZ0uvmRuSFCHUHFTKYfPOZz3DjRmpZ778Uq5FhoCxFOm+BC/GsOyq4 -a5MheHulcKgIF+p8FdDYSibDmORdhmKfLeiEfAFH6l4yWOScY/NzY0cX3x7x -UrAhg9ZDyb95jOwozo2/pXg/GS5wzMm7P2RDVTkXYloO0f0v8b9xGmFFggq7 -ef4dJ8Pks1ibe+dZkErDX58oVzJojhjGHpFmQeD+vE3IgwxLKu6+oS3M6Eyu -8B2N02Qw+71xolaWGTUojAkeCyQDR2L6p9gRRtTXkBwwdZ4MP0j2kUmJjOiX -u2Xn+UtkOIaf7fpkzoi2PS5Jig8hw+H5Yp+W0k3ovGKYGC2aDEKBjBtW6QxI -RWnbdoUHZBBVuXe9RfcfAe8+hRQ/JNP1dm7jqVoj7DwjhlA2GSJ+ih/QNVsj -ruVNZx3KJ8OGIfeP1aN/iT6lKvmoEjKkc8o9achbIX6984kQKiVDFNsyILxC -sJ+U/f6wjAz7p0JTD3ctE/r50XkV1WRQ5L7x9gLnMhGr7KA61UiGCbaA1PNR -i0R2E2fM+WYyzG+v0LuitkhUnKybYn5PBhnve0dW2/4Q3/MVCyU/kaHymHww -lvpDgMqilnUfXX9j8qHjTb+JeZW7BsVzZNAwSOI5dXie6G6FnQK/yVAxX2ou -LDZP1HnPHPD/Q4YyU7frdV1zRGzxHl+DVTKwXttpw2Q3R6iQGZ5WMFEgwnn2 -Z1XlDMHX96xCnJUCaTaLvJQdM8TyZaemYHYK2D9pUr36YZpoqC8dR1wUeHvE -QBBPTBEue85I04QpkGr67vpPzZ/Enp9iWnJbKfCPmh8+/naS0Lr1Dl0Xp8AK -74RvwOFJYr1N1nnXdgrIHWkqM4z/QaTZ9yS2KFMghy19oXDzBPHZYxfnZ2MK -nDw78PoFjBGVHH/E9DEFrob+OGk/PUpkFWQpJ5pQABP2t1HaKHF29p+ZvRkF -xo7sSytdHSG4gl6G9llTIGDhrk5X4zCxIOoSR+ynQOCbqyGrl4eJvgqeBxkH -KeAoF1RF0h8mnqx7VR1zoAD7gbKTf3OHCLMI6aVRFwqkWEl+FEsaJNSVPrKY -uVHgo3qt7VPbQUKwOVjwsQcFnr+w2k4WGiSGubq1T56mAPpu5B+k8Y24ei/2 -9HQABbab266OWvYTZdl/h/5EUmDvooKXZ/9XwuA//yXzmxQ4vVXxWMf5r8Sr -oSnOzFsUqL94r7lK6CtRLDVgaH6HAtAtN7xwoJt4mlx3KyONno9h06sTQ52E -iiHp0e/7FEg0+2CvGtlJ5H95UbY7kwKPNU7o79LqJHL5H438yqaAh/3BYY/w -L0RmzHXSrkIKuJfc72ugfCakVNet0osocJD1aHr+VAdxvynQdb6YAk3mm39U -ZHQQqayet9NeU4C7sif+EGsHkRBiPjZbRwHV2oaATSPtRJQ/T3xyBz3foQ+t -Ivc/EuwCkbnTXygw1J43+WH7RyLiBUOVaTcFLHx72V1zPxDhM/PjU30U8FcW -38f5+j1xxfOzsck4BbJn8r8nTrcQa6x79ydO0POV01O4erWFuJTz1uPnJAXs -grmZeAVaiPPDpXfuzVLgqPlaIT9uJvycUyZ+LFOg7Xuf+6/8d8TcKt86+kuB -TYWTUQG73xE+KdECCf/o+jyHat+JRuJ05yWEGI3hVFmwfK1aI+FucyThzhZj -yJ1SkBJpeEs47pClv12NwfvBWaMdhjTi32d2btp2Yyi/Fhp4fpRKZLrN9JrL -GsMby80jHHepxHhEeZCjkjHYaiwPqi/UE35N1s8v6BjDZQXf0OG3dYSQo/7l -TfrGEGJ57qHH5TqibFLMIsrQGCgcr5y2GdQR61vGx5ONjeHT96BGebtaItoq -WKrMzBimnUOH2XdWE+rfjk/hPcZQ1aPPotVQRbT57KpotDAG4+4JZ989VYRw -PL9dl40x1GR4TW2zqySyOvJuLTrS1yuvm4Eb5USF/Zc1PR9jGN70VTPLpJQ4 -/KOiucrXGDYO8WY9GHxFMFzMTN7hT8+nSEeVEvqKMEs7pXfwgjFsuX03Tbvx -JfGpf9Ppc9eMYd478a6bWwkR4P2d9Pe6MeymRN5L5y0hRDda2a5FGkP2W+l7 -qLqYOLI9+dGdW8YQx35/rECsmJh00eh9kWQMXnMhZ2+OFRG3fgvkk1KNYZOl -p+2FtCJCK3wlsD7dGNIO8Vnk7C8iAnPe8Lc/NIadMEzZGfWcYJxwNJ8roOvx -N2bc4swzQvzMjXKNOmMYsJI4ceB+PhG74a5/k2oMa9Vzb0d08wnGO2Yvvr8x -hknSwWOSrXnEZClLfmaTMZBbnSX9NuURFQzhyfwdxqBU3G87dyWX0Lh7QtDn -izHYyOc5i8rkElny/8W1dBkD9/SrntcNOUS0OWNkeJ8xbH8aKW4mmEM4JoQE -LY4ZQzPv3wzGukfEB4Vjv/dPGMMOFYNnu70fEabl2Of5pDHMfR6X75F8RKgM -rLt7zhpDC59Zf3NIFrGieNmuZ9kYgl93H7a3fUgkV17Qr9lCwKnu0+18XhkE -p5XDCzFuAl72JsKtn/eJkEEj9SBeAuqvt9/i9LlPeLIsy2kJEeA/4vRq8VI6 -YWgdKJglRcAdwxuZD56mEk+GbOPWtxOQOzh7/SiRSkj563M6yRIwsHZl5/jH -FII1ZYFJUImAm3fH/qquJhOdw36/r2sToMBnOtLlkkSYB+z3GdYlQOximzfX -piSihk3nJzIggOUi60hHZiKRqzY/vEQmoJp07/zq6D0iMNDn08kdBARM1lsz -X00ghDaffrH3EAGXFPTOsf6JJ7L/u3xxzoEAEx/Kg+7MeELncux/d50JqNX4 -+VbdKp6wmiv60n2cAC7DC993PosjIjr/rJw4TUDS1gG7qeVYQpCXjcbqQ0BO -phu7jUcskbVHNCbfl4ChsZhtB7pvEbVVZKnZQALunX5vw06NIZazrppeDCVg -9kV57WxxNBHRF7dFMpwA6uNoOW79aEJQOOtzbQQBQpKpJX7lUYRW1Bt3lhgC -ejWVdo29iyRO+nDcjEskYPLawBfHTTeIHsrdjtwCAiTeq5Z7tF0jPAOy0/cU -ErAKGr/9/K4Ri4Wv3KaKCFg/c8BcV/gawS/TvaRdSkBE9V7rly5hhAW7pER1 -HQEcLcaK49yhRI+JxthRGgFI+yS1sTqE8LyECxkbCBg9MPVN1juEfj4eh90t -BMyYO3oez71KVH3Ode34QkA4f03Ee6fLhDl3mXpgN71eOyy1Wj4GE927mhZF -ewnI90kQtDcLJhYqfkYeGSTAU5+5ZY58iVB/qPXsxyQBDku0P0NwgajqMQmM -mSagL1BzXfzdecJc8ADWnCNARIVzPGbfecL9RkC7P/1acczRqm7SK4hYqItI -FVkmQFSksYe2GkiErSadqFgl4MBNM9mnMYEEr16+2mH6tel+gZVE6vZAIuNM -xZ+NDXq9HfXOhZcGEP8DWaJNdQ== +1:eJwV13k4VdsbB3DRgKIyk+Gcfc4xJESGDMf7KpUppSj5ZcgxJEJCUplKSElU +RIZMRZyzqSQSN4qLVHIRpWi6yVgoCb99/9rP51nPs/Z+1/Bda9PdA3Z58vPx +8Qkt4uP77znd/3cjM7HA1COn2o/71sS0M1vmuFlPDCSl8z+9Hi4HKPncXaYn +BSp3uue4ha+F0J0l3QI9efA1rFbCKNwIVo9Kp8x0V0A34fR9cbgVvHtoGzDZ +/RheSVuMuR93gq3MobcT3R3Qee23xWToIZjpNrgy3j0IAQY2cRaHw6Fh882C +l3k/wO8FOSHlnAjy7x58dl83B/axqYUStMsg4edasmyzAO5UaTK7aZABKdpb +a2wdBHF8uy+vDnLhdfr6+olVImgYrpCzfT4PEgsin/PLrsZBIdkbjjWFIH35 +Q0JqljgWKb/q9FC5BXH2lqYd05LYnHqwtEClBOTutsvxL5LC9xFkY51WCXDF +7X9qL5fCVSfyPvxjUAJdHS7kJSUphN4y7R/bSoBpF0zYWUhhrGXvjwnvEni8 +PWfpi2tSGFLub7ZQVAJzW6fan5lIY/CJpX276LfhqOEN179jZND9TeFs+dJS +sMoVnbQ+L4PQOSIkIVIKxLKT8e1XZLD70K20I+Kl8KJzT/mrWzJY535dS4lW +CpqBKwT622Ww6lGHublhKfxbdKzou5wsaqbP5t07VAr7JWxH1tyRxcCABjed +llIwH/sd7v9BDnfJ6jtFnyiD4xaX1/41LIc+db58RVFlwL2h0Ss+LYcs2zB4 +GlsGMvZuhg8E16CjaUjczMUyGK568lNAcw0+5HQaqReUQWpMcvC1sDXokOSy +uqa1DAYllf0bReSRf3NaU6I0F6QD6hSkpeXxovqCLUOeCzbNjs98aPLoddXM +r5LGhcrwxHUrN8jjZDX74HM1Lpx7Nz60z1Eet7wv8Gwz5oJOcY33WJ482i3X +Dv3uwoVoE7sDchsVUCDHlzV2gwsWLtnfDTYpYD7zk4pdERdEo76ddrBRwIg3 +HjNlJVy43hBblOymgG+vCAg73uFClVX1t6UJChi64sunw41cGHdkhP54rYDJ +nzdycz9xwSVk6lzbCUV02Tb0m8HkASttk/xQrCJajiix36vwqPovli1LVsSC +ZcEOaeo8CP+j9mJTgSJm+FYJTevw4MppF8kHbYp4WfBJQogZD9ouNeUUKihh +l5Ow3ilnHhhxr92NqFPCP/OD/5Zf4oF5d/vcaLMS7vY91nH5Mg9s+RZvc+1Q +QnqAksXRNB5wdvm/hk9Ue7DxayKLB1tP0COjltAwzLYzy+YWDwKVpvPN1Gmo +W7xPpLWWB1N3kptntGjoeBG+etVT32ehPlKuS8M5oe975x/zIPaImz5hSsPG +pxfGlJp5kNHQ0sxvR0OLtiQJzQ4eNHrnjDSE0vAP4Z4b+okHln8MxU6eoOHb +h+kDrV940J7cqa8bRcNP9+1q5Yd48PqBUFRBAg3lbZy2lo/yYHR5sFjsdRpG +aR8sK/zJAxnSwmDrYxpyRrsYLotJ8Ps1EdUsQseaKr2dHeIkGB3xkvosRsfV +luOmLRIkCA713haQoSOdY5xfJ0lCYV9DlylBx0tqtPY8aRL6H11Zd0+fjpai +KVVWa0jYEWvYc8OVjq97r7LpBAmK82WH6zzomP16+f1xysOhhMBbHzqGjjwr +rWWQEH9wuaZMMB2VteZFd7JIqLd+ezopno4ZbqnVe1RJ0BGL1jpRTseo5nKJ +YQ0S+BKnGtMr6Vh7zyYhVZOEdoFDTpU1dJzOTYreqEWC79Su2IkndMyf+j4f +vp6Egh5mn3cvHXmez40GdUgIsrsWGPuOjh8+aPWGbCABW0SW5n+kY3STwqJl +uiS8rZle3z9KxzqF3C90PRKkcprP2gsQ6GdizzIyIOGjNFs+SJBAn0XaK6sp +VySXl18UIbBq8c0zBhup+mMy3rRIE6heGiChbkjV5+mnY7aOwNkOoa5JIxL2 +9L9vctEmsLprk/oBYxKYex2cT+oT6FCzZVUr5XoL0/j7SGAwtCWmmZAwo76q +X8OBwPW7J/aKm5IwnSUXvcGJwNxbi3MPUZ5cyWIauhKoWlCSUkd59IfhIXMf +AncJPDnuDiR88zQXsfInUHBoSwBJ+d9uW3LHUQJdTgat/kN5sIYz7XSKQKtt +I87nkYR3Gv7X3GIIzJGyEXpJ+U1OmIlXHIFBj45xxM1I6Dp9IebIJQKj7Pcr +X6L8aiqNdewqgYof1JLbKL/wzms+mUng/nMjJUs2kdBifV80vpBAiU+xU4GU +m2r/Kr9QQmD0xqPK+ZQbtdrsU3kENn2IE35F+ZH4QEb2A2q8p5xH1TeTUBP7 +jV3wiECFCeMxe8pVP6feFzcQyPUPLzxBuaJPWOXeMwLJyL26jynztku2VHcQ +WJgqJTpIubRO6XB9N4FdasdyFigXa69d9fQNVc8D4a9y5iQU5eveaR0gMECP +820D5XxJ2PPyM4HsFeI3rSjnxlnOdH0j8IhKmbwr5ayZ3dffjFPz863R5gjl +DF8XGJwiUMVg1CCactrbg4NfflPjx6ntT6J8ecfR2JEFqr7NTWYZlC/9dUr1 +x2IGLmfeOJBPOWlDfOsvIQaubnlvWkI5sTDFf16UgfuC5Xu5lOOls1YvlmDg +8OuhDeWUYxNu3hWSZaDY2g82/zlmtnzvSkWqfXkWi0c58vDD3xIMBupkk4/+ +6+/ku6dZcqoM7AitlCmgfNzuJdI0GHgzb5tuJuXQhr4PLB0GShfOrU6mfFTv +81l1Awa+OBZUEUM58Oa4mrYJA13PodRRyv6ys236Zgwc/Yvf9ABl38QlgSZb +GfgxzH7tdsoH51aKb7JmYFrEyz59yl4BcpXbdjJwREpqtyJlzgBz33YHBkr8 +fpQsQNltt9afXU4MVLX3ufKZmh/nJ4Y5jq4MfNVYcaCJspOB+SYXDwYKuxpO +F1K2X7Mv3sefgZoZYeH7Kdtd4KgHHGXgluwAX13KtguH24PDqPdfoqkIU7b4 +ECMRFcNAkXHtRTxqfW1xuHA/No4af+tOWgTlTU1pTonnGbgj+K6INWWT26W5 +V68y0OtzpV0/tZ77aLdztmQyMCDRK/sW5fCrxdmTOQx82NcqcITy/eii67uK +Gbh1bavcH2q/6Djmpos+ZODjoxvjZ6n99fJZdlptPQOL5bSKKykHbs666veE +gb/1l38JoMzVzLjc0s7ApM5LNW+o/au25HLy2QEG/p3+sCuHTUJzeMpFvc8M +JHPrR6wpe40nJ30cYqCz9yhrmsqHgr4L5zdNMvD+zrFZc8q0irj4+aVMPPua +3N5G5Y2U64mo0HVMtIuJ44+h8upe5/FIljYT/6qIOLyKsr1VWESnHhMjGjj8 +WfokpOiFnNQBJm6mbyglqfwTWREQNmrHRFpm+srHVF4ufuAe6HWMifXF/Jcv +UHmbr3kgQPIkE3WjAwbmqTzeVODq3xjFRL3TvQf8KUde3O9HnGPiLDEzt43K +79+eew72X2di3dbEO5/WkjAhZuW25zETY+Mjr7ZS+d/jR7w41MTEdcpzTav/ +Ow+e/obINiZe/2Pw2YFJQnL4baVbXUzUbhn+1k2dJ+sHV7ybGWKiwY1M7QYl +an2WP3fOEmeh9aHTdgayVN4uv/WsXIaFfSHBJftlSDD1jGI/VWAhx/nQn0jq +/BKR1VYYU2FhwXxMUj11vpVGpbxBExYO+NhGq4mRMLTD4X8fPVg4dyrXLlOY +hI5ijdZfPizUpileyxUioVpgqbFIAAvlivBzviAJCfcr5fSPs5B/4OblgqUk +qCrJ9MZdYOFI3HHHJH4SvEd7HdUrWTg8LuQuOMmDj+fd9gQtU0aNCM0Hc+08 +8B9aR6xfoYx94o1XK9t48HPbzMjIKmVsbs7R8mvhgbBASqyPnDLGD2WmP3vC +g/XHG+66aSjju/T+wz4PeXDKU1l8x25lXH8823FpMQ+kTIefq+co48bzKm/6 +I3mQm1mV+TVfGT+L+T3TPsUDtZkz3jdvKaOekWVRdDgPTO4qLBAVyiieGCgh +E0Ldd9bu0JR7ooxiB/8I0Q7xgJSqOC/4TRljsv3TsnZT95GxY5af9FVww7+/ +DfZR9zN5bcWzgiYqGDE07C9Mp+4fQY2P1c1UUPmYrWGVAg8uT68yCbJWwcHE +uotC0jzonyvWXHBVwY1XhY+dFuJB0Io34rIJKthTv7j9nxEuZKhhv02fCp7e +Jl+06C4XhjmCR+9GqqLz/b027/S5MJptXlt3RhV1VtRt7tbhwtjrqGWtCarY +etDWvU2TC993zGQOpKoinxZLnqvMhZ/GQ42it1TR/cjJezukuMAv0Sbl80IV +K3yLJUWmykC28WK1Al0NDcxTrU6RZdT/kDR/3GM1dLUzfntNqQzEniknkWNr +sfJsiNOeX7dBPp63U19/HX59ePYr51oJpKsbrhL31sA9Zsr31I2LoUXOTO/H +JU0cWn6/I7jzJhjJP07W6tJCa3tpNx3zIhAVyAs+ELMetSX2j6T8XQCK0Uom ++5S18VeE4h4lrXwQYu2v3NWkjT5PKz4s5N4ATbYs75izDloMfCc69XIhqF+s +wYpvAyYYXRMdDcyCsR/nHSzTN2BH3ImFjicZsE3raYalhi4+J77w79uWDo9+ +GM/+bNfFCunBuImqK+C/Tqf3pacezu30kao/mQrsUY/OfUL6mPYrvmzc+BJs +YcpsF8nTxws9mUUVV5JANepc2GMDA0xMkfJtlUiEtZ6GdaxeA5Te7uyflxUH +no8Onrl7ZCMOJZwW7uCdgbrcTo8JSUOcPmLI+tMZDZO3Fn5q3TfEvWNKnjW3 +I4DDui2Usd0II54ufdR2Nhwm1qbqV4wbYU/KhpDaC6FQVTA7MBVvjM1zl641 +Wh8FJ3MGGiuaYL/xg2rXU4Gw5nDcA816E5x39/nRVuYLksJ+5dv3svGJOM03 +x8sbCjafCh/fx8a9nsvcBuy9QedU0ubU/Wx8ZBDUobnZG2zHyX96DrDR23+J +7LCSN5ztmprh+LHx82zHhbHXXvArL3JTeDQbPSOW0SR3ekGvceqrotts/Gbt +GnnH3BMOhhRct+Sycf7F/g1Oup4wzb3nOUyy8cwrmfLlTE8QI3p+aleykRyp ++JEk4AnWggrytfVUfw9Wzko2eMDDziKPV/+wcUbf3Jxu7gFWolUaoT1spM0b +8wXpekDPtr+nZfrYWDlpoPmM6QGT1d/iXd6zMUoppiVviQdo3Fhf9nWIjUf5 +rvu1NHHgYa9Z6PkRNnJtv9D8qzhgJbEbtMbZaJ7zdY18MQe84kJeBk+xkShN +eHH1HAcm689mSP9io8sRr0jOCQ7E/E7jVP9mo59NmKuRHwdW6Ravc55jY22m +u+8aZw5kH66eWlhg4yHLlqylthz4P0dGawo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "PlotRange" -> {{0, 30}, {0., 0.06354816558010892}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -2775,6 +7389,7 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2802,7 +7417,8 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06354816558010892}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2810,25 +7426,872 @@ xZ+NDXq9HfXOhZcGEP8DWaJNdQ== Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.99134491550045*^9}, + CellChangeTimes->{3.99134491550045*^9, 3.99382682530472*^9}, CellLabel-> - "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] + "Out[189]=",ExpressionUUID->"1d09ca9f-fd43-47ce-b6f0-11d2ded7ab3b"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", - RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ -b938908ab9a4"], + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "0.004388"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.013039"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.021317"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.028996"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.035881"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.041813"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.046685"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.050429"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.053035"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.054525"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.054971"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.054465"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.053131"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.051096"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.045494"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.042194"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.038723"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.03519"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.031681"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.028272"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.025018"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.021962"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.019131"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.016543"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.014202"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.01211"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.010256"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.00863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.007216"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.005996"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.993821762931333*^9}, + Background->RGBColor[0.4, 0.6, 1, 0.33], + CellLabel-> + "In[190]:=",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]], + Method->{ + "AxisPadding" -> Scaled[0.02], "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], "DefaultPlotStyle" -> { + Directive[ + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.95, 0.627, 0.1425], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.455, 0.7, 0.21], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.578, 0.51, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0., 0.6, 0.6], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.36, 0.684], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.56, 0.7, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.54, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.585, 0.5976, 0.9], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9, 0.45, 0.45], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.7632186717367253, 0.8174402144034898, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.8554632469481959, 0.24885384718327969`, 0.833405387394855], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.032972823413648836`, 0.7396719749139476, 0.534700104525218], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> Automatic, + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "IncludeHighlighting" -> "CurrentPoint", "HighlightStyle" -> Automatic, + "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30.}, {0, 0.054971}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938268255262213`*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"203e14b0-2e91-4fbb-b3cc-a98f983ed470"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ -b6e82cb2e939"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[191]:=",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k4VdsbB3DRgKIyk+Gcfc4xJESGDMf7KpUppSj5ZcgxJEJCUplKSElU +RIZMRZyzqSQSN4qLVHIRpWi6yVgoCb99/9rP51nPs/Z+1/Bda9PdA3Z58vPx +8Qkt4uP77znd/3cjM7HA1COn2o/71sS0M1vmuFlPDCSl8z+9Hi4HKPncXaYn +BSp3uue4ha+F0J0l3QI9efA1rFbCKNwIVo9Kp8x0V0A34fR9cbgVvHtoGzDZ +/RheSVuMuR93gq3MobcT3R3Qee23xWToIZjpNrgy3j0IAQY2cRaHw6Fh882C +l3k/wO8FOSHlnAjy7x58dl83B/axqYUStMsg4edasmyzAO5UaTK7aZABKdpb +a2wdBHF8uy+vDnLhdfr6+olVImgYrpCzfT4PEgsin/PLrsZBIdkbjjWFIH35 +Q0JqljgWKb/q9FC5BXH2lqYd05LYnHqwtEClBOTutsvxL5LC9xFkY51WCXDF +7X9qL5fCVSfyPvxjUAJdHS7kJSUphN4y7R/bSoBpF0zYWUhhrGXvjwnvEni8 +PWfpi2tSGFLub7ZQVAJzW6fan5lIY/CJpX276LfhqOEN179jZND9TeFs+dJS +sMoVnbQ+L4PQOSIkIVIKxLKT8e1XZLD70K20I+Kl8KJzT/mrWzJY535dS4lW +CpqBKwT622Ww6lGHublhKfxbdKzou5wsaqbP5t07VAr7JWxH1tyRxcCABjed +llIwH/sd7v9BDnfJ6jtFnyiD4xaX1/41LIc+db58RVFlwL2h0Ss+LYcs2zB4 +GlsGMvZuhg8E16CjaUjczMUyGK568lNAcw0+5HQaqReUQWpMcvC1sDXokOSy +uqa1DAYllf0bReSRf3NaU6I0F6QD6hSkpeXxovqCLUOeCzbNjs98aPLoddXM +r5LGhcrwxHUrN8jjZDX74HM1Lpx7Nz60z1Eet7wv8Gwz5oJOcY33WJ482i3X +Dv3uwoVoE7sDchsVUCDHlzV2gwsWLtnfDTYpYD7zk4pdERdEo76ddrBRwIg3 +HjNlJVy43hBblOymgG+vCAg73uFClVX1t6UJChi64sunw41cGHdkhP54rYDJ +nzdycz9xwSVk6lzbCUV02Tb0m8HkASttk/xQrCJajiix36vwqPovli1LVsSC +ZcEOaeo8CP+j9mJTgSJm+FYJTevw4MppF8kHbYp4WfBJQogZD9ouNeUUKihh +l5Ow3ilnHhhxr92NqFPCP/OD/5Zf4oF5d/vcaLMS7vY91nH5Mg9s+RZvc+1Q +QnqAksXRNB5wdvm/hk9Ue7DxayKLB1tP0COjltAwzLYzy+YWDwKVpvPN1Gmo +W7xPpLWWB1N3kptntGjoeBG+etVT32ehPlKuS8M5oe975x/zIPaImz5hSsPG +pxfGlJp5kNHQ0sxvR0OLtiQJzQ4eNHrnjDSE0vAP4Z4b+okHln8MxU6eoOHb +h+kDrV940J7cqa8bRcNP9+1q5Yd48PqBUFRBAg3lbZy2lo/yYHR5sFjsdRpG +aR8sK/zJAxnSwmDrYxpyRrsYLotJ8Ps1EdUsQseaKr2dHeIkGB3xkvosRsfV +luOmLRIkCA713haQoSOdY5xfJ0lCYV9DlylBx0tqtPY8aRL6H11Zd0+fjpai +KVVWa0jYEWvYc8OVjq97r7LpBAmK82WH6zzomP16+f1xysOhhMBbHzqGjjwr +rWWQEH9wuaZMMB2VteZFd7JIqLd+ezopno4ZbqnVe1RJ0BGL1jpRTseo5nKJ +YQ0S+BKnGtMr6Vh7zyYhVZOEdoFDTpU1dJzOTYreqEWC79Su2IkndMyf+j4f +vp6Egh5mn3cvHXmez40GdUgIsrsWGPuOjh8+aPWGbCABW0SW5n+kY3STwqJl +uiS8rZle3z9KxzqF3C90PRKkcprP2gsQ6GdizzIyIOGjNFs+SJBAn0XaK6sp +VySXl18UIbBq8c0zBhup+mMy3rRIE6heGiChbkjV5+mnY7aOwNkOoa5JIxL2 +9L9vctEmsLprk/oBYxKYex2cT+oT6FCzZVUr5XoL0/j7SGAwtCWmmZAwo76q +X8OBwPW7J/aKm5IwnSUXvcGJwNxbi3MPUZ5cyWIauhKoWlCSUkd59IfhIXMf +AncJPDnuDiR88zQXsfInUHBoSwBJ+d9uW3LHUQJdTgat/kN5sIYz7XSKQKtt +I87nkYR3Gv7X3GIIzJGyEXpJ+U1OmIlXHIFBj45xxM1I6Dp9IebIJQKj7Pcr +X6L8aiqNdewqgYof1JLbKL/wzms+mUng/nMjJUs2kdBifV80vpBAiU+xU4GU +m2r/Kr9QQmD0xqPK+ZQbtdrsU3kENn2IE35F+ZH4QEb2A2q8p5xH1TeTUBP7 +jV3wiECFCeMxe8pVP6feFzcQyPUPLzxBuaJPWOXeMwLJyL26jynztku2VHcQ +WJgqJTpIubRO6XB9N4FdasdyFigXa69d9fQNVc8D4a9y5iQU5eveaR0gMECP +820D5XxJ2PPyM4HsFeI3rSjnxlnOdH0j8IhKmbwr5ayZ3dffjFPz863R5gjl +DF8XGJwiUMVg1CCactrbg4NfflPjx6ntT6J8ecfR2JEFqr7NTWYZlC/9dUr1 +x2IGLmfeOJBPOWlDfOsvIQaubnlvWkI5sTDFf16UgfuC5Xu5lOOls1YvlmDg +8OuhDeWUYxNu3hWSZaDY2g82/zlmtnzvSkWqfXkWi0c58vDD3xIMBupkk4/+ +6+/ku6dZcqoM7AitlCmgfNzuJdI0GHgzb5tuJuXQhr4PLB0GShfOrU6mfFTv +81l1Awa+OBZUEUM58Oa4mrYJA13PodRRyv6ys236Zgwc/Yvf9ABl38QlgSZb +GfgxzH7tdsoH51aKb7JmYFrEyz59yl4BcpXbdjJwREpqtyJlzgBz33YHBkr8 +fpQsQNltt9afXU4MVLX3ufKZmh/nJ4Y5jq4MfNVYcaCJspOB+SYXDwYKuxpO +F1K2X7Mv3sefgZoZYeH7Kdtd4KgHHGXgluwAX13KtguH24PDqPdfoqkIU7b4 +ECMRFcNAkXHtRTxqfW1xuHA/No4af+tOWgTlTU1pTonnGbgj+K6INWWT26W5 +V68y0OtzpV0/tZ77aLdztmQyMCDRK/sW5fCrxdmTOQx82NcqcITy/eii67uK +Gbh1bavcH2q/6Djmpos+ZODjoxvjZ6n99fJZdlptPQOL5bSKKykHbs666veE +gb/1l38JoMzVzLjc0s7ApM5LNW+o/au25HLy2QEG/p3+sCuHTUJzeMpFvc8M +JHPrR6wpe40nJ30cYqCz9yhrmsqHgr4L5zdNMvD+zrFZc8q0irj4+aVMPPua +3N5G5Y2U64mo0HVMtIuJ44+h8upe5/FIljYT/6qIOLyKsr1VWESnHhMjGjj8 +WfokpOiFnNQBJm6mbyglqfwTWREQNmrHRFpm+srHVF4ufuAe6HWMifXF/Jcv +UHmbr3kgQPIkE3WjAwbmqTzeVODq3xjFRL3TvQf8KUde3O9HnGPiLDEzt43K +79+eew72X2di3dbEO5/WkjAhZuW25zETY+Mjr7ZS+d/jR7w41MTEdcpzTav/ +Ow+e/obINiZe/2Pw2YFJQnL4baVbXUzUbhn+1k2dJ+sHV7ybGWKiwY1M7QYl +an2WP3fOEmeh9aHTdgayVN4uv/WsXIaFfSHBJftlSDD1jGI/VWAhx/nQn0jq +/BKR1VYYU2FhwXxMUj11vpVGpbxBExYO+NhGq4mRMLTD4X8fPVg4dyrXLlOY +hI5ijdZfPizUpileyxUioVpgqbFIAAvlivBzviAJCfcr5fSPs5B/4OblgqUk +qCrJ9MZdYOFI3HHHJH4SvEd7HdUrWTg8LuQuOMmDj+fd9gQtU0aNCM0Hc+08 +8B9aR6xfoYx94o1XK9t48HPbzMjIKmVsbs7R8mvhgbBASqyPnDLGD2WmP3vC +g/XHG+66aSjju/T+wz4PeXDKU1l8x25lXH8823FpMQ+kTIefq+co48bzKm/6 +I3mQm1mV+TVfGT+L+T3TPsUDtZkz3jdvKaOekWVRdDgPTO4qLBAVyiieGCgh +E0Ldd9bu0JR7ooxiB/8I0Q7xgJSqOC/4TRljsv3TsnZT95GxY5af9FVww7+/ +DfZR9zN5bcWzgiYqGDE07C9Mp+4fQY2P1c1UUPmYrWGVAg8uT68yCbJWwcHE +uotC0jzonyvWXHBVwY1XhY+dFuJB0Io34rIJKthTv7j9nxEuZKhhv02fCp7e +Jl+06C4XhjmCR+9GqqLz/b027/S5MJptXlt3RhV1VtRt7tbhwtjrqGWtCarY +etDWvU2TC993zGQOpKoinxZLnqvMhZ/GQ42it1TR/cjJezukuMAv0Sbl80IV +K3yLJUWmykC28WK1Al0NDcxTrU6RZdT/kDR/3GM1dLUzfntNqQzEniknkWNr +sfJsiNOeX7dBPp63U19/HX59ePYr51oJpKsbrhL31sA9Zsr31I2LoUXOTO/H +JU0cWn6/I7jzJhjJP07W6tJCa3tpNx3zIhAVyAs+ELMetSX2j6T8XQCK0Uom ++5S18VeE4h4lrXwQYu2v3NWkjT5PKz4s5N4ATbYs75izDloMfCc69XIhqF+s +wYpvAyYYXRMdDcyCsR/nHSzTN2BH3ImFjicZsE3raYalhi4+J77w79uWDo9+ +GM/+bNfFCunBuImqK+C/Tqf3pacezu30kao/mQrsUY/OfUL6mPYrvmzc+BJs +YcpsF8nTxws9mUUVV5JANepc2GMDA0xMkfJtlUiEtZ6GdaxeA5Te7uyflxUH +no8Onrl7ZCMOJZwW7uCdgbrcTo8JSUOcPmLI+tMZDZO3Fn5q3TfEvWNKnjW3 +I4DDui2Usd0II54ufdR2Nhwm1qbqV4wbYU/KhpDaC6FQVTA7MBVvjM1zl641 +Wh8FJ3MGGiuaYL/xg2rXU4Gw5nDcA816E5x39/nRVuYLksJ+5dv3svGJOM03 +x8sbCjafCh/fx8a9nsvcBuy9QedU0ubU/Wx8ZBDUobnZG2zHyX96DrDR23+J +7LCSN5ztmprh+LHx82zHhbHXXvArL3JTeDQbPSOW0SR3ekGvceqrotts/Gbt +GnnH3BMOhhRct+Sycf7F/g1Oup4wzb3nOUyy8cwrmfLlTE8QI3p+aleykRyp ++JEk4AnWggrytfVUfw9Wzko2eMDDziKPV/+wcUbf3Jxu7gFWolUaoT1spM0b +8wXpekDPtr+nZfrYWDlpoPmM6QGT1d/iXd6zMUoppiVviQdo3Fhf9nWIjUf5 +rvu1NHHgYa9Z6PkRNnJtv9D8qzhgJbEbtMbZaJ7zdY18MQe84kJeBk+xkShN +eHH1HAcm689mSP9io8sRr0jOCQ7E/E7jVP9mo59NmKuRHwdW6Ravc55jY22m +u+8aZw5kH66eWlhg4yHLlqylthz4P0dGawo= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3DRgKIyk+Gcfc4xJESGDMf7KpUppSj5ZcgxJEJCUplKSElU +RIZMRZyzqSQSN4qLVHIRpWi6yVgoCb99/9rP51nPs/Z+1/Bda9PdA3Z58vPx +8Qkt4uP77znd/3cjM7HA1COn2o/71sS0M1vmuFlPDCSl8z+9Hi4HKPncXaYn +BSp3uue4ha+F0J0l3QI9efA1rFbCKNwIVo9Kp8x0V0A34fR9cbgVvHtoGzDZ +/RheSVuMuR93gq3MobcT3R3Qee23xWToIZjpNrgy3j0IAQY2cRaHw6Fh882C +l3k/wO8FOSHlnAjy7x58dl83B/axqYUStMsg4edasmyzAO5UaTK7aZABKdpb +a2wdBHF8uy+vDnLhdfr6+olVImgYrpCzfT4PEgsin/PLrsZBIdkbjjWFIH35 +Q0JqljgWKb/q9FC5BXH2lqYd05LYnHqwtEClBOTutsvxL5LC9xFkY51WCXDF +7X9qL5fCVSfyPvxjUAJdHS7kJSUphN4y7R/bSoBpF0zYWUhhrGXvjwnvEni8 +PWfpi2tSGFLub7ZQVAJzW6fan5lIY/CJpX276LfhqOEN179jZND9TeFs+dJS +sMoVnbQ+L4PQOSIkIVIKxLKT8e1XZLD70K20I+Kl8KJzT/mrWzJY535dS4lW +CpqBKwT622Ww6lGHublhKfxbdKzou5wsaqbP5t07VAr7JWxH1tyRxcCABjed +llIwH/sd7v9BDnfJ6jtFnyiD4xaX1/41LIc+db58RVFlwL2h0Ss+LYcs2zB4 +GlsGMvZuhg8E16CjaUjczMUyGK568lNAcw0+5HQaqReUQWpMcvC1sDXokOSy +uqa1DAYllf0bReSRf3NaU6I0F6QD6hSkpeXxovqCLUOeCzbNjs98aPLoddXM +r5LGhcrwxHUrN8jjZDX74HM1Lpx7Nz60z1Eet7wv8Gwz5oJOcY33WJ482i3X +Dv3uwoVoE7sDchsVUCDHlzV2gwsWLtnfDTYpYD7zk4pdERdEo76ddrBRwIg3 +HjNlJVy43hBblOymgG+vCAg73uFClVX1t6UJChi64sunw41cGHdkhP54rYDJ +nzdycz9xwSVk6lzbCUV02Tb0m8HkASttk/xQrCJajiix36vwqPovli1LVsSC +ZcEOaeo8CP+j9mJTgSJm+FYJTevw4MppF8kHbYp4WfBJQogZD9ouNeUUKihh +l5Ow3ilnHhhxr92NqFPCP/OD/5Zf4oF5d/vcaLMS7vY91nH5Mg9s+RZvc+1Q +QnqAksXRNB5wdvm/hk9Ue7DxayKLB1tP0COjltAwzLYzy+YWDwKVpvPN1Gmo +W7xPpLWWB1N3kptntGjoeBG+etVT32ehPlKuS8M5oe975x/zIPaImz5hSsPG +pxfGlJp5kNHQ0sxvR0OLtiQJzQ4eNHrnjDSE0vAP4Z4b+okHln8MxU6eoOHb +h+kDrV940J7cqa8bRcNP9+1q5Yd48PqBUFRBAg3lbZy2lo/yYHR5sFjsdRpG +aR8sK/zJAxnSwmDrYxpyRrsYLotJ8Ps1EdUsQseaKr2dHeIkGB3xkvosRsfV +luOmLRIkCA713haQoSOdY5xfJ0lCYV9DlylBx0tqtPY8aRL6H11Zd0+fjpai +KVVWa0jYEWvYc8OVjq97r7LpBAmK82WH6zzomP16+f1xysOhhMBbHzqGjjwr +rWWQEH9wuaZMMB2VteZFd7JIqLd+ezopno4ZbqnVe1RJ0BGL1jpRTseo5nKJ +YQ0S+BKnGtMr6Vh7zyYhVZOEdoFDTpU1dJzOTYreqEWC79Su2IkndMyf+j4f +vp6Egh5mn3cvHXmez40GdUgIsrsWGPuOjh8+aPWGbCABW0SW5n+kY3STwqJl +uiS8rZle3z9KxzqF3C90PRKkcprP2gsQ6GdizzIyIOGjNFs+SJBAn0XaK6sp +VySXl18UIbBq8c0zBhup+mMy3rRIE6heGiChbkjV5+mnY7aOwNkOoa5JIxL2 +9L9vctEmsLprk/oBYxKYex2cT+oT6FCzZVUr5XoL0/j7SGAwtCWmmZAwo76q +X8OBwPW7J/aKm5IwnSUXvcGJwNxbi3MPUZ5cyWIauhKoWlCSUkd59IfhIXMf +AncJPDnuDiR88zQXsfInUHBoSwBJ+d9uW3LHUQJdTgat/kN5sIYz7XSKQKtt +I87nkYR3Gv7X3GIIzJGyEXpJ+U1OmIlXHIFBj45xxM1I6Dp9IebIJQKj7Pcr +X6L8aiqNdewqgYof1JLbKL/wzms+mUng/nMjJUs2kdBifV80vpBAiU+xU4GU +m2r/Kr9QQmD0xqPK+ZQbtdrsU3kENn2IE35F+ZH4QEb2A2q8p5xH1TeTUBP7 +jV3wiECFCeMxe8pVP6feFzcQyPUPLzxBuaJPWOXeMwLJyL26jynztku2VHcQ +WJgqJTpIubRO6XB9N4FdasdyFigXa69d9fQNVc8D4a9y5iQU5eveaR0gMECP +820D5XxJ2PPyM4HsFeI3rSjnxlnOdH0j8IhKmbwr5ayZ3dffjFPz863R5gjl +DF8XGJwiUMVg1CCactrbg4NfflPjx6ntT6J8ecfR2JEFqr7NTWYZlC/9dUr1 +x2IGLmfeOJBPOWlDfOsvIQaubnlvWkI5sTDFf16UgfuC5Xu5lOOls1YvlmDg +8OuhDeWUYxNu3hWSZaDY2g82/zlmtnzvSkWqfXkWi0c58vDD3xIMBupkk4/+ +6+/ku6dZcqoM7AitlCmgfNzuJdI0GHgzb5tuJuXQhr4PLB0GShfOrU6mfFTv +81l1Awa+OBZUEUM58Oa4mrYJA13PodRRyv6ys236Zgwc/Yvf9ABl38QlgSZb +GfgxzH7tdsoH51aKb7JmYFrEyz59yl4BcpXbdjJwREpqtyJlzgBz33YHBkr8 +fpQsQNltt9afXU4MVLX3ufKZmh/nJ4Y5jq4MfNVYcaCJspOB+SYXDwYKuxpO +F1K2X7Mv3sefgZoZYeH7Kdtd4KgHHGXgluwAX13KtguH24PDqPdfoqkIU7b4 +ECMRFcNAkXHtRTxqfW1xuHA/No4af+tOWgTlTU1pTonnGbgj+K6INWWT26W5 +V68y0OtzpV0/tZ77aLdztmQyMCDRK/sW5fCrxdmTOQx82NcqcITy/eii67uK +Gbh1bavcH2q/6Djmpos+ZODjoxvjZ6n99fJZdlptPQOL5bSKKykHbs666veE +gb/1l38JoMzVzLjc0s7ApM5LNW+o/au25HLy2QEG/p3+sCuHTUJzeMpFvc8M +JHPrR6wpe40nJ30cYqCz9yhrmsqHgr4L5zdNMvD+zrFZc8q0irj4+aVMPPua +3N5G5Y2U64mo0HVMtIuJ44+h8upe5/FIljYT/6qIOLyKsr1VWESnHhMjGjj8 +WfokpOiFnNQBJm6mbyglqfwTWREQNmrHRFpm+srHVF4ufuAe6HWMifXF/Jcv +UHmbr3kgQPIkE3WjAwbmqTzeVODq3xjFRL3TvQf8KUde3O9HnGPiLDEzt43K +79+eew72X2di3dbEO5/WkjAhZuW25zETY+Mjr7ZS+d/jR7w41MTEdcpzTav/ +Ow+e/obINiZe/2Pw2YFJQnL4baVbXUzUbhn+1k2dJ+sHV7ybGWKiwY1M7QYl +an2WP3fOEmeh9aHTdgayVN4uv/WsXIaFfSHBJftlSDD1jGI/VWAhx/nQn0jq +/BKR1VYYU2FhwXxMUj11vpVGpbxBExYO+NhGq4mRMLTD4X8fPVg4dyrXLlOY +hI5ijdZfPizUpileyxUioVpgqbFIAAvlivBzviAJCfcr5fSPs5B/4OblgqUk +qCrJ9MZdYOFI3HHHJH4SvEd7HdUrWTg8LuQuOMmDj+fd9gQtU0aNCM0Hc+08 +8B9aR6xfoYx94o1XK9t48HPbzMjIKmVsbs7R8mvhgbBASqyPnDLGD2WmP3vC +g/XHG+66aSjju/T+wz4PeXDKU1l8x25lXH8823FpMQ+kTIefq+co48bzKm/6 +I3mQm1mV+TVfGT+L+T3TPsUDtZkz3jdvKaOekWVRdDgPTO4qLBAVyiieGCgh +E0Ldd9bu0JR7ooxiB/8I0Q7xgJSqOC/4TRljsv3TsnZT95GxY5af9FVww7+/ +DfZR9zN5bcWzgiYqGDE07C9Mp+4fQY2P1c1UUPmYrWGVAg8uT68yCbJWwcHE +uotC0jzonyvWXHBVwY1XhY+dFuJB0Io34rIJKthTv7j9nxEuZKhhv02fCp7e +Jl+06C4XhjmCR+9GqqLz/b027/S5MJptXlt3RhV1VtRt7tbhwtjrqGWtCarY +etDWvU2TC993zGQOpKoinxZLnqvMhZ/GQ42it1TR/cjJezukuMAv0Sbl80IV +K3yLJUWmykC28WK1Al0NDcxTrU6RZdT/kDR/3GM1dLUzfntNqQzEniknkWNr +sfJsiNOeX7dBPp63U19/HX59ePYr51oJpKsbrhL31sA9Zsr31I2LoUXOTO/H +JU0cWn6/I7jzJhjJP07W6tJCa3tpNx3zIhAVyAs+ELMetSX2j6T8XQCK0Uom ++5S18VeE4h4lrXwQYu2v3NWkjT5PKz4s5N4ATbYs75izDloMfCc69XIhqF+s +wYpvAyYYXRMdDcyCsR/nHSzTN2BH3ImFjicZsE3raYalhi4+J77w79uWDo9+ +GM/+bNfFCunBuImqK+C/Tqf3pacezu30kao/mQrsUY/OfUL6mPYrvmzc+BJs +YcpsF8nTxws9mUUVV5JANepc2GMDA0xMkfJtlUiEtZ6GdaxeA5Te7uyflxUH +no8Onrl7ZCMOJZwW7uCdgbrcTo8JSUOcPmLI+tMZDZO3Fn5q3TfEvWNKnjW3 +I4DDui2Usd0II54ufdR2Nhwm1qbqV4wbYU/KhpDaC6FQVTA7MBVvjM1zl641 +Wh8FJ3MGGiuaYL/xg2rXU4Gw5nDcA816E5x39/nRVuYLksJ+5dv3svGJOM03 +x8sbCjafCh/fx8a9nsvcBuy9QedU0ubU/Wx8ZBDUobnZG2zHyX96DrDR23+J +7LCSN5ztmprh+LHx82zHhbHXXvArL3JTeDQbPSOW0SR3ekGvceqrotts/Gbt +GnnH3BMOhhRct+Sycf7F/g1Oup4wzb3nOUyy8cwrmfLlTE8QI3p+aleykRyp ++JEk4AnWggrytfVUfw9Wzko2eMDDziKPV/+wcUbf3Jxu7gFWolUaoT1spM0b +8wXpekDPtr+nZfrYWDlpoPmM6QGT1d/iXd6zMUoppiVviQdo3Fhf9nWIjUf5 +rvu1NHHgYa9Z6PkRNnJtv9D8qzhgJbEbtMbZaJ7zdY18MQe84kJeBk+xkShN +eHH1HAcm689mSP9io8sRr0jOCQ7E/E7jVP9mo59NmKuRHwdW6Ravc55jY22m +u+8aZw5kH66eWlhg4yHLlqylthz4P0dGawo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06354816558010892}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06354816558010892}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3DRgKIyk+Gcfc4xJESGDMf7KpUppSj5ZcgxJEJCUplKSElU +RIZMRZyzqSQSN4qLVHIRpWi6yVgoCb99/9rP51nPs/Z+1/Bda9PdA3Z58vPx +8Qkt4uP77znd/3cjM7HA1COn2o/71sS0M1vmuFlPDCSl8z+9Hi4HKPncXaYn +BSp3uue4ha+F0J0l3QI9efA1rFbCKNwIVo9Kp8x0V0A34fR9cbgVvHtoGzDZ +/RheSVuMuR93gq3MobcT3R3Qee23xWToIZjpNrgy3j0IAQY2cRaHw6Fh882C +l3k/wO8FOSHlnAjy7x58dl83B/axqYUStMsg4edasmyzAO5UaTK7aZABKdpb +a2wdBHF8uy+vDnLhdfr6+olVImgYrpCzfT4PEgsin/PLrsZBIdkbjjWFIH35 +Q0JqljgWKb/q9FC5BXH2lqYd05LYnHqwtEClBOTutsvxL5LC9xFkY51WCXDF +7X9qL5fCVSfyPvxjUAJdHS7kJSUphN4y7R/bSoBpF0zYWUhhrGXvjwnvEni8 +PWfpi2tSGFLub7ZQVAJzW6fan5lIY/CJpX276LfhqOEN179jZND9TeFs+dJS +sMoVnbQ+L4PQOSIkIVIKxLKT8e1XZLD70K20I+Kl8KJzT/mrWzJY535dS4lW +CpqBKwT622Ww6lGHublhKfxbdKzou5wsaqbP5t07VAr7JWxH1tyRxcCABjed +llIwH/sd7v9BDnfJ6jtFnyiD4xaX1/41LIc+db58RVFlwL2h0Ss+LYcs2zB4 +GlsGMvZuhg8E16CjaUjczMUyGK568lNAcw0+5HQaqReUQWpMcvC1sDXokOSy +uqa1DAYllf0bReSRf3NaU6I0F6QD6hSkpeXxovqCLUOeCzbNjs98aPLoddXM +r5LGhcrwxHUrN8jjZDX74HM1Lpx7Nz60z1Eet7wv8Gwz5oJOcY33WJ482i3X +Dv3uwoVoE7sDchsVUCDHlzV2gwsWLtnfDTYpYD7zk4pdERdEo76ddrBRwIg3 +HjNlJVy43hBblOymgG+vCAg73uFClVX1t6UJChi64sunw41cGHdkhP54rYDJ +nzdycz9xwSVk6lzbCUV02Tb0m8HkASttk/xQrCJajiix36vwqPovli1LVsSC +ZcEOaeo8CP+j9mJTgSJm+FYJTevw4MppF8kHbYp4WfBJQogZD9ouNeUUKihh +l5Ow3ilnHhhxr92NqFPCP/OD/5Zf4oF5d/vcaLMS7vY91nH5Mg9s+RZvc+1Q +QnqAksXRNB5wdvm/hk9Ue7DxayKLB1tP0COjltAwzLYzy+YWDwKVpvPN1Gmo +W7xPpLWWB1N3kptntGjoeBG+etVT32ehPlKuS8M5oe975x/zIPaImz5hSsPG +pxfGlJp5kNHQ0sxvR0OLtiQJzQ4eNHrnjDSE0vAP4Z4b+okHln8MxU6eoOHb +h+kDrV940J7cqa8bRcNP9+1q5Yd48PqBUFRBAg3lbZy2lo/yYHR5sFjsdRpG +aR8sK/zJAxnSwmDrYxpyRrsYLotJ8Ps1EdUsQseaKr2dHeIkGB3xkvosRsfV +luOmLRIkCA713haQoSOdY5xfJ0lCYV9DlylBx0tqtPY8aRL6H11Zd0+fjpai +KVVWa0jYEWvYc8OVjq97r7LpBAmK82WH6zzomP16+f1xysOhhMBbHzqGjjwr +rWWQEH9wuaZMMB2VteZFd7JIqLd+ezopno4ZbqnVe1RJ0BGL1jpRTseo5nKJ +YQ0S+BKnGtMr6Vh7zyYhVZOEdoFDTpU1dJzOTYreqEWC79Su2IkndMyf+j4f +vp6Egh5mn3cvHXmez40GdUgIsrsWGPuOjh8+aPWGbCABW0SW5n+kY3STwqJl +uiS8rZle3z9KxzqF3C90PRKkcprP2gsQ6GdizzIyIOGjNFs+SJBAn0XaK6sp +VySXl18UIbBq8c0zBhup+mMy3rRIE6heGiChbkjV5+mnY7aOwNkOoa5JIxL2 +9L9vctEmsLprk/oBYxKYex2cT+oT6FCzZVUr5XoL0/j7SGAwtCWmmZAwo76q +X8OBwPW7J/aKm5IwnSUXvcGJwNxbi3MPUZ5cyWIauhKoWlCSUkd59IfhIXMf +AncJPDnuDiR88zQXsfInUHBoSwBJ+d9uW3LHUQJdTgat/kN5sIYz7XSKQKtt +I87nkYR3Gv7X3GIIzJGyEXpJ+U1OmIlXHIFBj45xxM1I6Dp9IebIJQKj7Pcr +X6L8aiqNdewqgYof1JLbKL/wzms+mUng/nMjJUs2kdBifV80vpBAiU+xU4GU +m2r/Kr9QQmD0xqPK+ZQbtdrsU3kENn2IE35F+ZH4QEb2A2q8p5xH1TeTUBP7 +jV3wiECFCeMxe8pVP6feFzcQyPUPLzxBuaJPWOXeMwLJyL26jynztku2VHcQ +WJgqJTpIubRO6XB9N4FdasdyFigXa69d9fQNVc8D4a9y5iQU5eveaR0gMECP +820D5XxJ2PPyM4HsFeI3rSjnxlnOdH0j8IhKmbwr5ayZ3dffjFPz863R5gjl +DF8XGJwiUMVg1CCactrbg4NfflPjx6ntT6J8ecfR2JEFqr7NTWYZlC/9dUr1 +x2IGLmfeOJBPOWlDfOsvIQaubnlvWkI5sTDFf16UgfuC5Xu5lOOls1YvlmDg +8OuhDeWUYxNu3hWSZaDY2g82/zlmtnzvSkWqfXkWi0c58vDD3xIMBupkk4/+ +6+/ku6dZcqoM7AitlCmgfNzuJdI0GHgzb5tuJuXQhr4PLB0GShfOrU6mfFTv +81l1Awa+OBZUEUM58Oa4mrYJA13PodRRyv6ys236Zgwc/Yvf9ABl38QlgSZb +GfgxzH7tdsoH51aKb7JmYFrEyz59yl4BcpXbdjJwREpqtyJlzgBz33YHBkr8 +fpQsQNltt9afXU4MVLX3ufKZmh/nJ4Y5jq4MfNVYcaCJspOB+SYXDwYKuxpO +F1K2X7Mv3sefgZoZYeH7Kdtd4KgHHGXgluwAX13KtguH24PDqPdfoqkIU7b4 +ECMRFcNAkXHtRTxqfW1xuHA/No4af+tOWgTlTU1pTonnGbgj+K6INWWT26W5 +V68y0OtzpV0/tZ77aLdztmQyMCDRK/sW5fCrxdmTOQx82NcqcITy/eii67uK +Gbh1bavcH2q/6Djmpos+ZODjoxvjZ6n99fJZdlptPQOL5bSKKykHbs666veE +gb/1l38JoMzVzLjc0s7ApM5LNW+o/au25HLy2QEG/p3+sCuHTUJzeMpFvc8M +JHPrR6wpe40nJ30cYqCz9yhrmsqHgr4L5zdNMvD+zrFZc8q0irj4+aVMPPua +3N5G5Y2U64mo0HVMtIuJ44+h8upe5/FIljYT/6qIOLyKsr1VWESnHhMjGjj8 +WfokpOiFnNQBJm6mbyglqfwTWREQNmrHRFpm+srHVF4ufuAe6HWMifXF/Jcv +UHmbr3kgQPIkE3WjAwbmqTzeVODq3xjFRL3TvQf8KUde3O9HnGPiLDEzt43K +79+eew72X2di3dbEO5/WkjAhZuW25zETY+Mjr7ZS+d/jR7w41MTEdcpzTav/ +Ow+e/obINiZe/2Pw2YFJQnL4baVbXUzUbhn+1k2dJ+sHV7ybGWKiwY1M7QYl +an2WP3fOEmeh9aHTdgayVN4uv/WsXIaFfSHBJftlSDD1jGI/VWAhx/nQn0jq +/BKR1VYYU2FhwXxMUj11vpVGpbxBExYO+NhGq4mRMLTD4X8fPVg4dyrXLlOY +hI5ijdZfPizUpileyxUioVpgqbFIAAvlivBzviAJCfcr5fSPs5B/4OblgqUk +qCrJ9MZdYOFI3HHHJH4SvEd7HdUrWTg8LuQuOMmDj+fd9gQtU0aNCM0Hc+08 +8B9aR6xfoYx94o1XK9t48HPbzMjIKmVsbs7R8mvhgbBASqyPnDLGD2WmP3vC +g/XHG+66aSjju/T+wz4PeXDKU1l8x25lXH8823FpMQ+kTIefq+co48bzKm/6 +I3mQm1mV+TVfGT+L+T3TPsUDtZkz3jdvKaOekWVRdDgPTO4qLBAVyiieGCgh +E0Ldd9bu0JR7ooxiB/8I0Q7xgJSqOC/4TRljsv3TsnZT95GxY5af9FVww7+/ +DfZR9zN5bcWzgiYqGDE07C9Mp+4fQY2P1c1UUPmYrWGVAg8uT68yCbJWwcHE +uotC0jzonyvWXHBVwY1XhY+dFuJB0Io34rIJKthTv7j9nxEuZKhhv02fCp7e +Jl+06C4XhjmCR+9GqqLz/b027/S5MJptXlt3RhV1VtRt7tbhwtjrqGWtCarY +etDWvU2TC993zGQOpKoinxZLnqvMhZ/GQ42it1TR/cjJezukuMAv0Sbl80IV +K3yLJUWmykC28WK1Al0NDcxTrU6RZdT/kDR/3GM1dLUzfntNqQzEniknkWNr +sfJsiNOeX7dBPp63U19/HX59ePYr51oJpKsbrhL31sA9Zsr31I2LoUXOTO/H +JU0cWn6/I7jzJhjJP07W6tJCa3tpNx3zIhAVyAs+ELMetSX2j6T8XQCK0Uom ++5S18VeE4h4lrXwQYu2v3NWkjT5PKz4s5N4ATbYs75izDloMfCc69XIhqF+s +wYpvAyYYXRMdDcyCsR/nHSzTN2BH3ImFjicZsE3raYalhi4+J77w79uWDo9+ +GM/+bNfFCunBuImqK+C/Tqf3pacezu30kao/mQrsUY/OfUL6mPYrvmzc+BJs +YcpsF8nTxws9mUUVV5JANepc2GMDA0xMkfJtlUiEtZ6GdaxeA5Te7uyflxUH +no8Onrl7ZCMOJZwW7uCdgbrcTo8JSUOcPmLI+tMZDZO3Fn5q3TfEvWNKnjW3 +I4DDui2Usd0II54ufdR2Nhwm1qbqV4wbYU/KhpDaC6FQVTA7MBVvjM1zl641 +Wh8FJ3MGGiuaYL/xg2rXU4Gw5nDcA816E5x39/nRVuYLksJ+5dv3svGJOM03 +x8sbCjafCh/fx8a9nsvcBuy9QedU0ubU/Wx8ZBDUobnZG2zHyX96DrDR23+J +7LCSN5ztmprh+LHx82zHhbHXXvArL3JTeDQbPSOW0SR3ekGvceqrotts/Gbt +GnnH3BMOhhRct+Sycf7F/g1Oup4wzb3nOUyy8cwrmfLlTE8QI3p+aleykRyp ++JEk4AnWggrytfVUfw9Wzko2eMDDziKPV/+wcUbf3Jxu7gFWolUaoT1spM0b +8wXpekDPtr+nZfrYWDlpoPmM6QGT1d/iXd6zMUoppiVviQdo3Fhf9nWIjUf5 +rvu1NHHgYa9Z6PkRNnJtv9D8qzhgJbEbtMbZaJ7zdY18MQe84kJeBk+xkShN +eHH1HAcm689mSP9io8sRr0jOCQ7E/E7jVP9mo59NmKuRHwdW6Ravc55jY22m +u+8aZw5kH66eWlhg4yHLlqylthz4P0dGawo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06354816558010892}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06354816558010892}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99382682555385*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"0b99dc6a-ac33-4c1f-959e-d6517e76b55e"] +}, Open ]], Cell[CellGroupData[{ @@ -2837,14 +8300,14 @@ Cell[BoxData[ FractionBox[ SqrtBox[ RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", - CellChangeTimes->{ - 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ -ac86e3a0e3fd"], - -Cell[BoxData["10.362747935330784`"], "Output", - CellChangeTimes->{3.9913453868532257`*^9}, + CellChangeTimes->{3.9918501819649506`*^9}, CellLabel-> - "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] + "In[192]:=",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], + +Cell[BoxData["11.490504960848112`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9, 3.9938268255827923`*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"383b77cc-2973-4283-a759-3fa5b996a3df"] }, Open ]], Cell[CellGroupData[{ @@ -2900,171 +8363,158 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ -da901e49f6f1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 421, 449, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387062414*^9}, + CellChangeTimes->{3.991850184857586*^9}, CellLabel-> - "During evaluation of \ -In[421]:=",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], + "In[193]:=",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.19148428074309`*^-272\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.4587336338519429`*^-263\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 421, 450, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387076412*^9}, + 2, 193, 21, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.9938268256630573`*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], +In[193]:=",ExpressionUUID->"8764e025-2821-4d27-8733-beb5500a0e41"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.652750330712858`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.6872522851300227`*^-273\\\", \ \\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ too small to represent as a normalized machine number; precision may be lost.\ -\"", 2, 421, 451, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345387088339*^9}, +\"", 2, 193, 22, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.993826825670837*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], +In[193]:=",ExpressionUUID->"b4aa6c6d-d87f-4ff4-8e73-5f2b253bcbfc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.950406761286399`*^-283\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 193, 23, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.993826825678376*^9}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"84764da2-69f9-42d7-9215-a759b7970513"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 421, 452, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913453870973415`*^9}, +during this calculation.\"", 2, 193, 24, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345387062414*^9, 3.993826825686264*^9}, CellLabel-> "During evaluation of \ -In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], +In[193]:=",ExpressionUUID->"bab93eb8-54a0-4e08-a9d7-eb3aceabdb69"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c4lf8bB/C+lDREZB+c8xwjuxAZx323rZDGtyI0rIoyQsj8koaRJCQy +S8Z5ZJQRooyUJGUVDS1FJKvl9/n9ca5zva7nup7PfT7P537fz2EdOGbjxDNv +3rw/5PP/76mB1vvy53KMFbxf87WagHFXusTJdT3h0J85vS/yFgNQ9MkBiZ4E +WCfIN7nhlhr4Wt/s5u3JgprzfZaSt4xg+ah4wmz3LegpMFvzssQCBmssj/3o +bgBN5fQLsiV2sFl++NV4dyc45e6P31B8FGa79S6Ndb+FnjmLpZ+ygqBxw/Wc +p1kTUFm+8sDtrBhgDFZ+OKD2B+Q2H0xc1XwJVhx1uLlwAy/SkllOSbvSIGH1 +5mrLnfz4uUc5nXEmE3qTV9WPCwlg8U/xf5pO5MC5nJAnPJLLUXeF7fu/e6+D +eOK7MxeviuDp4S11Ne/y4fQOU+POKVFUjP3zuvhHAUiVtUvx/COGFXWHMn7/ +LoBikR3Tq5eIYaLU2psbFxTCi057+oKcGPYcN8lsFC0E+W0+1DYTcp0T8jNI +txAatmbwdaSIocyE0LmXvoXwZ/Nk+2MjcdQYF5YwnSgEb/1Mh9ZwCSzoPf6w +qK8IzK4t+2F+XgJL6udeirwpAmphUHT7JQkM1Olv9/lYBB1du0qe3ZBAsbvv +LJV+FIHG8aW8A+0S2G0cWm4pUAyf8vzyvktJopHk47Y842KwW2E5Il0qiZyB +nMGTV4tBO7A6LL1GEj8Y2mobZhfD4rcrxVhNkrhvQbDd9I1iqOTygmKvJFYL +q2s4lhWDmHll/Ko5SVx6Ibh14mExdITJ62wyl8ImL/7b1HQxbPz2M8DjnRQG +PxD3TDfnwkmTRJV7X6XwVsjgiWvWXCjOVO8TmSLXr6aGXN3JBYkdjvqV/NL4 +M6wpM9qBC1/vPJjm1ZBG/zYOk+3NhYvh8T4p/tKYtVR9vlsKF96KKnrcF2Dg +jb64jLVvuSB+rE5GXJyBz/WdTK984IJFy+7HbkwGXqWDZmeGuVARcE5NUJuB +twXHj+ZOcOHs4Njwnt0MfKG622Y/Dw1a+dUu37IYKH2q22ihCA1hRtv2S62V +QUa4YZSvFg0m9unf9dbL4Pwssw1hOjQsC/0SsdNCBgfSbcXO6NKQ1hiZF+8o +g4IBBnNxBjTcMav6wndGBhVYsm8C1tMwtpvtO9Erg84nupY/2EaD/YnJs48C +ZbEnLaNczYMGhcvrGcORsmhdFXOl7xhNfn9c0cJ4WVSHjvRITxoCfit3rM+R +RRdxn7+dPjRcirAXrXwki1/TrFTMA2l4dKE5I1dGDjdtv+dXcpoGg+KUsuA6 +Ofw8NKqxO52Gjd3tf0Zb5HDtsoyOixk0WM6bv8WhUw531TnMPLpGw0Ebj154 +L4ceBtb9etk0bA5khYQuYGLYp5rpb9dpOC43lb1OlYkFisrPPtM0TJbGt8xq +MpFPxuL3nxJSn4nqSIkOEwfZlbRgKQ2Rno66lDETlaaf1aiW05Da+LCFZxsT +n5YOHNlcScN9l4yRRl8m8qqWn+C7R4Ppb33hoEAm1uRpB08Qt8d36eqEMrF5 +Q4v4QAMNvZWLQnPOMFEwtmqu4D4No0t8hCPTmLhL9UKRSgsNErSJ3uYGJmop +b+wtbafh6sZ3tn+bmGjDXU4FPKGB6j0VWtHGROnvVjzGHTSo85S2Kj5n4t2j +LWdrn9KwfoeM3cJPTPyQfKQ5q4uGozPjoS0CLNTws7Ka6SX76eks9kGYhcVx +gYm5fTTwD/cV8EqwcGiZrYB1Pw25/Y0vjCkWdusGp6W9pGGg9pJauS4LDbUi +cMUgDYV6ixs6DVko7e2tXUAcQAf/O4YsNKXv2sNrGsSyXMJVzVloNlvv6PCG +BqtI/Z5MBxZ2Wlmzg9/RIPu3yL3uEAs9/+n9/Jf4qy/F+8qNhYzbcSNBQzRE +uy7RkPBh4Yewv8XH39NQb/4qIjaahQVl5qp6H2mIvb9NsjCGrN+Q/zWT2I7T +VNyawEJXX92xRZ9omNXg9s6/ysImbbf6p8RawmGagSUsdKzWu4zDNMw7N3k/ +uYKF1iOLgi4Rt/Me3ltRzUI3Zb0bH4mPTNpEjj9g4Vjtpt6IL2S/PJqlBNtY +KLchYPAxMf9HQ1qtg4XiirSm6Fcacnrk+136WFhX+Ji+Quy1LeV45CALz7QK +vOsjxocCfNlDLPTWnXdAfISGV9VTqwZGWbhVo8wkmrhQ50jTrwkWJnk9K6kh +DigatJWcZeETf8fDo8RiGS1RO3gp5DpFPTIdpWFInMPw4qewQi/cz5v4VnxJ +SZwAhYmZJT6pxKGLFLcUCVO4oLz5fi2xVXjqy4fiFD5T8nd9TSz7a5nXJwaF +ttv9HOeIv3pHLOSjKBTVCSiS/kZD1dfpNLYShSpuutZriKOdjmqtU6Pwh/YB +UwviXQOvm+1XU5jmV5biSCz/7859QboUJtwZWudF/P1J6/cUQwo1GAXrw4jr +TYyjbyOFTNf6tBji2Hu3ZJ5vopDNM2B9mdjOQKn0uxmFjt/uOqQTq5ReMRGy +pnB5l9TDLOJZVaEB9Z0U8k9w43OIp65KhWnvpTBf16o2m/iHoIK8vgNZT2PJ +gWvE42GazcaHKOy+lxSUSjw6oX94oxuFUUdylyUQf3HaKGDmQeEu3S8Sp4k/ +dVvSVt6knlpG2kni96Z7tu/0J/Vqfkt2I35bfXBq7ykKQzdJCP1LPKjukeIY +TuEHC0ue9cQvM/yNnE9TyGKaHFch7l0eMXjkPIXZK+/uFSJ+ERET7nmBQhl7 +p4YJst/PJi8r+CVRKLZ59noXcYdLVkvQFQoDJ1YvLSV+aH57WXQuhQ9u+m93 +JW6+e68k5iaF1Sm/9ID4vuajHRe5FDqLC6SLENeKvElNr6RwfnTbeBk5L9WR +Xzg5tRRC1fjrMOI705Ov8xspHJ1J3mFBfKt/sVL5Ywrt+A4+6iXnk7tV9GFV +J3m+jrydacSFdXLu9d0UtgzIOewjzsvWKW17Q6HimnbhbnL+U4/Yw9tJCh2O +yE8Wkn65/Mr17cefFHpsbDK3I0608o4cmaPwfNuE5iLiWO3otplFbMyN5c2x +/UxD+K+SfwVl2bh7d6z1O9K/Ie41P1ew2ah+nFIOIQ4abLoqtZKNC/q8LkkQ ++zb2v1PQYuPr5MNqGz+Q/jy34LjRZjYeOlnnFkzywvWPoMh6czYObzWa4iN2 +PiZVscWajVE2TYwYki+O2zV/2+xl4+1qbcOEtzTskN4T7ebBxq6ZL89CSF4Z +FRReS0piY5Wzgspnkn/9zIKMTVfYeIDh47KLOCApP/1HBhsvWyxMvUfy8nZY +XppNPhvvjt98c4Hkqdbua8nLatjISWwVkOqmQXlBYnzUGzbebErybCV53BKQ +ELfmAxsPxgfvECN2HouPHRom9Qxd0NtP8junP+b8+h9s1Cyd9884yXvmrdPR +f/nkMfSTX9lMG+l/h8BQXzV55A/JMch/QEN518kQhdXyuDxDzOcFmR87zPyD +u9bIY/vTb3f+IU5YcyJIC+TRd3+Jiw2ZNwJLj/mPbpPHTTz+7i9raZhfeeC4 +s588CgiaVl+8TfpF2MxxV4M8ehquOplI5mPPUarjcLM8/o1s8XDPI/3b9BNC +Hsmjq5OQ9sZcGuIDCuRuvJDHoaww1S9ZNKx6u3RwdpjUu6RhSpbMZ4+SJ/uu +iihgdmJBu2wiDcNWO22HDilg5VlqV1QwDZ356m0zbgpoQEXwSJ8iecPLZyhw +TAGZhs/Tisj8P3O7Qkr3pALyHLPIeORPw0o5ib7TMQrIvRYzPe5Fg8to327V +CgUca4l70edM8vC84y6vhYqoNhDhoraVrD+sRq1aqoj8+b+2XzWnYXrL7MiI +kCJeqxuNXWpGw2LehEg3KUXU9MieeL+Z1H+yscxRXRG/V/XG/Yc0nHJSFLHa +rogydGGHpzbZf+OvT1QzFHGnQbOzsASZ79/8TN/rKqGl8bX5ayu5wFgtG8Vv +pIR3b2yq+lnGhVGv+w2q65Rw8YzDdCXNhcQpISMvcyVslH4rpHGDCwN/8jXm +HJTI/C+b+5rEBa+lL0Ukzyhh4EfDhmbyfpiqjAMW/Uroscjv0jxV8v54kN+7 +LGQl3jxXP/0nrpj8nxDnOd2gjM9X6MfdMy4C4ceKsfQ3FWxOiCrQelcAjGiu +ta6uGp6aWJBxxfImJKvqC4m4qOMCE8bZJQ034KHUujUTFzRwqIztuFzrOhgw +GuI1X2iixb1u080BubCMN8tnf/gqFBRNs134Ohtkw+SM9iiuxjSdXINNylmw +SMGuwqZ5NcafcbfyjLwGGhxJrt8+LdTinrOpEksHrwHhRrN52vjOONCoi+8K +fJs4v9M0WRuFG3NE2rYlwxbNplRTdR1c/urg68Wdl6B2wvDXdLsOZgSzjjSY +XQQPNa2+p05rcEF1yAYdxgXgjB7q2rNIF0dShfPN3sTAJnmJrQJZuigl2LCt +bdVZWBl61r9BTw87LNmL5n2KAhUn/TqFPj3MVmo1eFMaAU61rv+Vea7Fx7/G +PyXzh0Hdta5D46L6mPRfbXnKWBD8uDE3rXlbH1dLVCzcGuUPBxUKFqVuNcBz +0irJq4Z9YFzlou6tMQNUqX718HmYJ9zJ+fVmMtoQQ47NPYyMcIe9G9loKGuE +dFJFomivK0i7n67UqDfCu5GH3WQiDoHo4qMlW//l4CPO3LKlwvshZ8OpgLE9 +HHQUGHw0xLsftE7Fbrhox8FevZGa5klHsByjn/fs5+DWZFFGYa8jRL2YnD14 +lIOM0Tit0UxHmMkKWR8QxkE5bkmejY4j9BlefJZXwMEDD7yTP9Xbg+uJnDTT +Yg568gSrCF23h6nicqevNAefK3fSZjH2IEz1TK+u4KB7/1H3mT32YM4vw7hb +z8E7SR+PrvmxD2q68g49e07q3ZLVpKq2D8yW3VH37eFgK8P9wCmRfdCzpXVK +op+DUmJ38c1PO/hR9SXa/jUHizQEUwZb7UA9c1XR52EOhqTYRZW72kFN3zrf +8yMcVD8nMj/Z2g7MVmwHzTEOdhzjdT+/1g6cT5946jPJwZ7Ktc9v8pP71Uel +is9wMEh8oLZrzBbCf14+WPWTgyl7glyFem1BSCdfbd8fDmqzLZv33bOFdPeq +ybk5DgrvTeioybeF/wH9f13y "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3078,130 +8528,113 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= +1:eJwV13c4lf8bB/C+lDREZB+c8xwjuxAZx323rZDGtyI0rIoyQsj8koaRJCQy +S8Z5ZJQRooyUJGUVDS1FJKvl9/n9ca5zva7nup7PfT7P537fz2EdOGbjxDNv +3rw/5PP/76mB1vvy53KMFbxf87WagHFXusTJdT3h0J85vS/yFgNQ9MkBiZ4E +WCfIN7nhlhr4Wt/s5u3JgprzfZaSt4xg+ah4wmz3LegpMFvzssQCBmssj/3o +bgBN5fQLsiV2sFl++NV4dyc45e6P31B8FGa79S6Ndb+FnjmLpZ+ygqBxw/Wc +p1kTUFm+8sDtrBhgDFZ+OKD2B+Q2H0xc1XwJVhx1uLlwAy/SkllOSbvSIGH1 +5mrLnfz4uUc5nXEmE3qTV9WPCwlg8U/xf5pO5MC5nJAnPJLLUXeF7fu/e6+D +eOK7MxeviuDp4S11Ne/y4fQOU+POKVFUjP3zuvhHAUiVtUvx/COGFXWHMn7/ +LoBikR3Tq5eIYaLU2psbFxTCi057+oKcGPYcN8lsFC0E+W0+1DYTcp0T8jNI +txAatmbwdaSIocyE0LmXvoXwZ/Nk+2MjcdQYF5YwnSgEb/1Mh9ZwCSzoPf6w +qK8IzK4t+2F+XgJL6udeirwpAmphUHT7JQkM1Olv9/lYBB1du0qe3ZBAsbvv +LJV+FIHG8aW8A+0S2G0cWm4pUAyf8vzyvktJopHk47Y842KwW2E5Il0qiZyB +nMGTV4tBO7A6LL1GEj8Y2mobZhfD4rcrxVhNkrhvQbDd9I1iqOTygmKvJFYL +q2s4lhWDmHll/Ko5SVx6Ibh14mExdITJ62wyl8ImL/7b1HQxbPz2M8DjnRQG +PxD3TDfnwkmTRJV7X6XwVsjgiWvWXCjOVO8TmSLXr6aGXN3JBYkdjvqV/NL4 +M6wpM9qBC1/vPJjm1ZBG/zYOk+3NhYvh8T4p/tKYtVR9vlsKF96KKnrcF2Dg +jb64jLVvuSB+rE5GXJyBz/WdTK984IJFy+7HbkwGXqWDZmeGuVARcE5NUJuB +twXHj+ZOcOHs4Njwnt0MfKG622Y/Dw1a+dUu37IYKH2q22ihCA1hRtv2S62V +QUa4YZSvFg0m9unf9dbL4Pwssw1hOjQsC/0SsdNCBgfSbcXO6NKQ1hiZF+8o +g4IBBnNxBjTcMav6wndGBhVYsm8C1tMwtpvtO9Erg84nupY/2EaD/YnJs48C +ZbEnLaNczYMGhcvrGcORsmhdFXOl7xhNfn9c0cJ4WVSHjvRITxoCfit3rM+R +RRdxn7+dPjRcirAXrXwki1/TrFTMA2l4dKE5I1dGDjdtv+dXcpoGg+KUsuA6 +Ofw8NKqxO52Gjd3tf0Zb5HDtsoyOixk0WM6bv8WhUw531TnMPLpGw0Ebj154 +L4ceBtb9etk0bA5khYQuYGLYp5rpb9dpOC43lb1OlYkFisrPPtM0TJbGt8xq +MpFPxuL3nxJSn4nqSIkOEwfZlbRgKQ2Rno66lDETlaaf1aiW05Da+LCFZxsT +n5YOHNlcScN9l4yRRl8m8qqWn+C7R4Ppb33hoEAm1uRpB08Qt8d36eqEMrF5 +Q4v4QAMNvZWLQnPOMFEwtmqu4D4No0t8hCPTmLhL9UKRSgsNErSJ3uYGJmop +b+wtbafh6sZ3tn+bmGjDXU4FPKGB6j0VWtHGROnvVjzGHTSo85S2Kj5n4t2j +LWdrn9KwfoeM3cJPTPyQfKQ5q4uGozPjoS0CLNTws7Ka6SX76eks9kGYhcVx +gYm5fTTwD/cV8EqwcGiZrYB1Pw25/Y0vjCkWdusGp6W9pGGg9pJauS4LDbUi +cMUgDYV6ixs6DVko7e2tXUAcQAf/O4YsNKXv2sNrGsSyXMJVzVloNlvv6PCG +BqtI/Z5MBxZ2Wlmzg9/RIPu3yL3uEAs9/+n9/Jf4qy/F+8qNhYzbcSNBQzRE +uy7RkPBh4Yewv8XH39NQb/4qIjaahQVl5qp6H2mIvb9NsjCGrN+Q/zWT2I7T +VNyawEJXX92xRZ9omNXg9s6/ysImbbf6p8RawmGagSUsdKzWu4zDNMw7N3k/ +uYKF1iOLgi4Rt/Me3ltRzUI3Zb0bH4mPTNpEjj9g4Vjtpt6IL2S/PJqlBNtY +KLchYPAxMf9HQ1qtg4XiirSm6Fcacnrk+136WFhX+Ji+Quy1LeV45CALz7QK +vOsjxocCfNlDLPTWnXdAfISGV9VTqwZGWbhVo8wkmrhQ50jTrwkWJnk9K6kh +DigatJWcZeETf8fDo8RiGS1RO3gp5DpFPTIdpWFInMPw4qewQi/cz5v4VnxJ +SZwAhYmZJT6pxKGLFLcUCVO4oLz5fi2xVXjqy4fiFD5T8nd9TSz7a5nXJwaF +ttv9HOeIv3pHLOSjKBTVCSiS/kZD1dfpNLYShSpuutZriKOdjmqtU6Pwh/YB +UwviXQOvm+1XU5jmV5biSCz/7859QboUJtwZWudF/P1J6/cUQwo1GAXrw4jr +TYyjbyOFTNf6tBji2Hu3ZJ5vopDNM2B9mdjOQKn0uxmFjt/uOqQTq5ReMRGy +pnB5l9TDLOJZVaEB9Z0U8k9w43OIp65KhWnvpTBf16o2m/iHoIK8vgNZT2PJ +gWvE42GazcaHKOy+lxSUSjw6oX94oxuFUUdylyUQf3HaKGDmQeEu3S8Sp4k/ +dVvSVt6knlpG2kni96Z7tu/0J/Vqfkt2I35bfXBq7ykKQzdJCP1LPKjukeIY +TuEHC0ue9cQvM/yNnE9TyGKaHFch7l0eMXjkPIXZK+/uFSJ+ERET7nmBQhl7 +p4YJst/PJi8r+CVRKLZ59noXcYdLVkvQFQoDJ1YvLSV+aH57WXQuhQ9u+m93 +JW6+e68k5iaF1Sm/9ID4vuajHRe5FDqLC6SLENeKvElNr6RwfnTbeBk5L9WR +Xzg5tRRC1fjrMOI705Ov8xspHJ1J3mFBfKt/sVL5Ywrt+A4+6iXnk7tV9GFV +J3m+jrydacSFdXLu9d0UtgzIOewjzsvWKW17Q6HimnbhbnL+U4/Yw9tJCh2O +yE8Wkn65/Mr17cefFHpsbDK3I0608o4cmaPwfNuE5iLiWO3otplFbMyN5c2x +/UxD+K+SfwVl2bh7d6z1O9K/Ie41P1ew2ah+nFIOIQ4abLoqtZKNC/q8LkkQ ++zb2v1PQYuPr5MNqGz+Q/jy34LjRZjYeOlnnFkzywvWPoMh6czYObzWa4iN2 +PiZVscWajVE2TYwYki+O2zV/2+xl4+1qbcOEtzTskN4T7ebBxq6ZL89CSF4Z +FRReS0piY5Wzgspnkn/9zIKMTVfYeIDh47KLOCApP/1HBhsvWyxMvUfy8nZY +XppNPhvvjt98c4Hkqdbua8nLatjISWwVkOqmQXlBYnzUGzbebErybCV53BKQ +ELfmAxsPxgfvECN2HouPHRom9Qxd0NtP8junP+b8+h9s1Cyd9884yXvmrdPR +f/nkMfSTX9lMG+l/h8BQXzV55A/JMch/QEN518kQhdXyuDxDzOcFmR87zPyD +u9bIY/vTb3f+IU5YcyJIC+TRd3+Jiw2ZNwJLj/mPbpPHTTz+7i9raZhfeeC4 +s588CgiaVl+8TfpF2MxxV4M8ehquOplI5mPPUarjcLM8/o1s8XDPI/3b9BNC +Hsmjq5OQ9sZcGuIDCuRuvJDHoaww1S9ZNKx6u3RwdpjUu6RhSpbMZ4+SJ/uu +iihgdmJBu2wiDcNWO22HDilg5VlqV1QwDZ356m0zbgpoQEXwSJ8iecPLZyhw +TAGZhs/Tisj8P3O7Qkr3pALyHLPIeORPw0o5ib7TMQrIvRYzPe5Fg8to327V +CgUca4l70edM8vC84y6vhYqoNhDhoraVrD+sRq1aqoj8+b+2XzWnYXrL7MiI +kCJeqxuNXWpGw2LehEg3KUXU9MieeL+Z1H+yscxRXRG/V/XG/Yc0nHJSFLHa +rogydGGHpzbZf+OvT1QzFHGnQbOzsASZ79/8TN/rKqGl8bX5ayu5wFgtG8Vv +pIR3b2yq+lnGhVGv+w2q65Rw8YzDdCXNhcQpISMvcyVslH4rpHGDCwN/8jXm +HJTI/C+b+5rEBa+lL0Ukzyhh4EfDhmbyfpiqjAMW/Uroscjv0jxV8v54kN+7 +LGQl3jxXP/0nrpj8nxDnOd2gjM9X6MfdMy4C4ceKsfQ3FWxOiCrQelcAjGiu +ta6uGp6aWJBxxfImJKvqC4m4qOMCE8bZJQ034KHUujUTFzRwqIztuFzrOhgw +GuI1X2iixb1u080BubCMN8tnf/gqFBRNs134Ohtkw+SM9iiuxjSdXINNylmw +SMGuwqZ5NcafcbfyjLwGGhxJrt8+LdTinrOpEksHrwHhRrN52vjOONCoi+8K +fJs4v9M0WRuFG3NE2rYlwxbNplRTdR1c/urg68Wdl6B2wvDXdLsOZgSzjjSY +XQQPNa2+p05rcEF1yAYdxgXgjB7q2rNIF0dShfPN3sTAJnmJrQJZuigl2LCt +bdVZWBl61r9BTw87LNmL5n2KAhUn/TqFPj3MVmo1eFMaAU61rv+Vea7Fx7/G +PyXzh0Hdta5D46L6mPRfbXnKWBD8uDE3rXlbH1dLVCzcGuUPBxUKFqVuNcBz +0irJq4Z9YFzlou6tMQNUqX718HmYJ9zJ+fVmMtoQQ47NPYyMcIe9G9loKGuE +dFJFomivK0i7n67UqDfCu5GH3WQiDoHo4qMlW//l4CPO3LKlwvshZ8OpgLE9 +HHQUGHw0xLsftE7Fbrhox8FevZGa5klHsByjn/fs5+DWZFFGYa8jRL2YnD14 +lIOM0Tit0UxHmMkKWR8QxkE5bkmejY4j9BlefJZXwMEDD7yTP9Xbg+uJnDTT +Yg568gSrCF23h6nicqevNAefK3fSZjH2IEz1TK+u4KB7/1H3mT32YM4vw7hb +z8E7SR+PrvmxD2q68g49e07q3ZLVpKq2D8yW3VH37eFgK8P9wCmRfdCzpXVK +op+DUmJ38c1PO/hR9SXa/jUHizQEUwZb7UA9c1XR52EOhqTYRZW72kFN3zrf +8yMcVD8nMj/Z2g7MVmwHzTEOdhzjdT+/1g6cT5946jPJwZ7Ktc9v8pP71Uel +is9wMEh8oLZrzBbCf14+WPWTgyl7glyFem1BSCdfbd8fDmqzLZv33bOFdPeq +ybk5DgrvTeioybeF/wH9f13y "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06615665943531834}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -3213,19 +8646,19 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06615665943531834}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3239,129 +8672,112 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Ve8fAHBRKYrsa13HNbMahHu5Ph/ZI0XKKCuJhEqoNIwixVcikbIy -GsS9R8P6ZoWUtMgqiZRvITKa8ju/v87r/Tp/PM/zWc85irv2O/nx8vDw6Czi -4fn/c26g7aFyYqHJmvxDknuMzEw6c2hHTXtiYbntjhMWhYqAEs920XpSwUai -bVCucB1EbLnVzddzDXYaeAstKjQFkQmp1J/dJPC5TIl3FTjCu1qH/TPdjVCa -uqrPssAHLJU/v53qfgnVwuNj9PyD8LPbIH2yewjsyv/CucwYaDK7Xvji2jSk -vzeWd9dJBbl3VR93ac3DgXeeAtevZ4F4kNctfjM+jDRZGXvZOh9S11nWOGxb -hhU50eckbYugN3Nt/dSqlRh/2e3Pyzs3ILEw6hmvtAiOlxXtF+ctBVu9vaIS -SiIYI6BTqCZUCsseOm1T0xbBksyYf3VlSuH0sEq/nakIFmcXpOuvL4XjjPaP -F/eKoCFNK+ejTymE5NH+qlaLoEbTmNZEXSk4XuVq2e0QxUlTg4dJEbdB6uLw -2bRsMZT1cxzJfloGNM27p38Ui2Fc/cpmje4ykGmMj/LgiGGEVJEQd7AM6JOr -w9WaxLCAdq3v5nQZqNgf8K4ZFUOHg0s22EuXg+7ief1hXXE08b404+RbDpvD -JD+sfyyOSmk+DJ9v5bBFcHQg45U4jgkayUr/Lgena1W9f96Io/YzFZ2RRRzY -/nzns5av4nhxoNYtSYADHloF1e4SEiggwHUgZTmw78OaC7HeEugQ+mHLTjYH -zjjbmLyck8CQaWJe5SQHZO50yPAuksTKsXvJgbEcKBNz/r5OUBIPFg/SS+I5 -8PqlJ+eCgiTuUvBlEuc5oOwYxnC0lsRnIjfs+3I50Lgpd+nzy5K45Edy9j/1 -HJi3nO14aiyFHgnurRN/OZBSHFkybymFcVlXz5K8XFBeypOg7SiF6p+kTUOX -csG+WcD0Hz8pzLRdcn5kJReyzIgK+2Qp7Jfk5l+R44Ih2mU8eSeFS9+KRlsw -uXCIme/VFkvDf5Navc/v54JtntCMXRINhfcms7NCucDgP57QkU7Ddp2+C/nh -XHjeuZ376gYNb9OW5Bcd44LOgRV8Ax00zFYRcD91hgujxYeLv8lI41c6h52e -w4Wd4g7jshXS+Om2LIg95oLusZqYnFpprMBi5dvtXBAYUpdUbJHGK+bCp82e -caGqnA9Ue6XxWJw416+TC5J2VSlrF6TxRazTo6gBav0YZT0LOxm0CD8lKviN -C+Zff0WGDMvgdPitM1GSJBy1vqjRMCaDcu/GtXJoJJTla/eJzcmg9NSz8CoZ -EmjO3syqZbK4nj9ueoROwlhl83c+HVl8Nn+iWFKNhLTYlLDLR2QxRMhOq1uf -hEf9q5XHYmRx5gyPTr0hCX/0ml6ZJMqiTJBcTxGLhD2fZtd/yJbFgzJvVP1N -SGDZ75jSaZJFySzeygYLEoYkVEMerpTDj7keP15vJUFqf528lJQcLvtv361z -20iwf+T6dC8hh50nCwWMXEi4F5moJawrh3hQrfuCOwnn3k1+dnOVQz7LshIp -HxLW36zx/3pNDucOlueeDiYhxtjRR8ZQHrsWJbd/PEWCtWfON4ON8nhSbP3S -TXEkCEV/ObXNXh7HpzwDyuNJuNoUV5ziLY+szV9vBJwlodK2+svSs/I4eDpC -+3YyCZOuShHTvfIYnJTx5mQmCfcjD/CLfJDH6FVlX69fJuHk1X8zdSbkUe2b -g/7TLBJWDLrU7OWlo/BOWZ8V2SSo+SfxDGrQsakyzdQjnwTP8Nlz7cfoqFWW -221zkwSVjI1yn+PoeMv+8An9W/+P//nb/Cl0DLQS81UoISHyz+rnGwvpuOn4 -88mRUhLST3lKVLXTcaBUQ9uSQ8LOopLi16/pWFvx6ZM4lwRG6w+DmUE6inV8 -H31HmSOQ5r5mlo6aN0IaAitIaL/Qmlskr4DhRnHDW+9R+a0QX9ekpoD9K/JH -F98nwb3Lp3FwnQJ2pI2ySMqjtD8fZC0VMOfO8ceLqqi5nLdWIzVEAXvm4srC -akh43HCipvyIAh4weLhhWS0JKcOP7Z/GKmCNxWaRTMp0Nb/9yzIU8EzC1KPS -f6l6KLt852Qd5Swt51t1JJh3d8xPPFJAB4fHj2n1JDjwLLbyeqmAPrTrEqcp -+zqF9MKIAnYlrdV0bCAh5FgBgzOhgJWpAd9JykcKe/YRPxTwze65LJFGEiyP -KUZFLyEwja67r5nyE+HaAkMBAodHDl2WaSJhS+H2R5NCBL4x0LkWRHnH00QR -HxqBv+WMLfkfkjDoo6ovLU/gfV714c2U98zVu79QJFBT6oFHOuUDCnMFppoE -Chsxvko2kzBbkfLo5xoC9/5N5t9KOdJac5yrR6COyzBPEmWet80igUwCt1+e -7G+gHHfQW59hQqDZUMLlGcoCS3+7920kUIMWxVJuoeKXlR6VakVgxn/FdVso -ZzU9fsTrSKDpwtujeZQVXP3Gq7cRuCIuk9NEuXBsQeSQO4Eu6v0dw5Q1YrL0 -Nb0I7DhyoounlYRyiQ07hn0JXPXEpVmGst6tZ1FXAghUMTTLXUe52iSwcGsw -ge+uSu+2oAyvFrcJhhLoffmu+HbKD/1zx5siCAxP+cb1pWzzhyl6/BiBEtdL -jUMod6R06utFE9jcVH83nLKzyv4dY6cJFEpeQY+k3Fu1PLrwLIH/BYdEHKPs -6VBYuDOZik9ic91Ryh+GTNrE0wjkfTr1K4zy3sO94+0ZBNr1vlIPpjwhGCYa -d5VAMfFNtrsoH8oTMmDnE8iTC97OlH/o3dwxW0RgtWvyPjPKJ9vMom/fItDn -jVzwGsp8ngOFfuUEzkQ/86NRTvh2pE3+DoE1ronb/1LxEjojNtFVSWD9Wn18 -TzlNtkw0+V8CtVLuKTVQpnGsDSwbCXx4f3pRDuVs8+Edf1sItMjv6j9MmdF7 -IvreEwLf/zUnHSjfCKYVhTwn8ApLM55BWZu3ok21i1ovPNR1mso3eWnTxEAv -gayEJRr/rwdDzVHRjAEq/zzPfydS3ugsv5N/lMC64doCGuXW0fvRdWMEvpqp -OtZH1Z/9Caeiw1NUPu8WuFym7FJ8ZuLTLwLVLH7RhSgH/ZiKfrRSES8ULFna -SdU/6+AeyY+iipiyaP2DCMrLPveV8NEUMXEoeV6CclF/02sThiLaFVdJ2lL9 -NPAgXeuuviKqP1PqSqD6s9RAoPGlkSIuM6P/J0w5knPSZRIVcdKVSE57QILk -Nf9YTTtFXHXEMCWF6u/NccyefC9F1Mt5neFDzQf639vBdbsV8fRLFZen1dR8 -i2Dwvd2riLcMkrkbKCcECOrQwhRR3Omh8Z9KEurt3p5KTlDEXKWS597UfFov -GrPmGJda32HPqrPUvONJnH2YeU8RrW9Ky9WVU/XHF+h+r0YRdY5yu6fKSNg3 -6xQ31ayIbkMDvptuU/3Ro9zv36eIZe0XZt9Q81Yy91G8Mx8Dw1cv0/K6RtWf -FFsudBkDvyG925uaz2QKl3t+JQNX6lVaeeVR54nNevNYioEqSr9POuVQ+/UL -Wm+qxcAI7eggUWre/9RcNaC9jYFBRVLHf6aQMJctE6PrzsAOmGp8ep6EGWEV -ZaYXA5PTn/PmUvfJxDQz0HwvA79mLz5kmETdhzW+c+4nKIsqG1mdoeap3X2h -hCIGcmtCrnQdp/p/nycMzTKwaMcxyzo/EjLeBgx9+sVAo5MXtm/YTcLFzYfi -xhcY2ODEk3RjFwnJuglPfixXwmn+rKB4LxJif3NdhOlK6KhXrUW4UfFJXHLA -2FIJr5W6fG63I8G4pDTv0iUlLB27ckpiDQn9REmuxRUl/OOtXbhVm8r3pZs5 -M7lKOPDm+sHzmtT9F1N81emmEuqGatB41Kn8uOZlCtUqUedh3W0mSFi95GJK -/HslzB4AGBah4u11LDpCSxmTBbQUD1DfJ1Oitt7bG5VxnxRGSd7mQk8Q43lg -qzJy0vZmZ9ziQn3LL4hqV8a7sjQPyRtcSIksUbjxWpm6H2NbVxRwYe3Qinc/ -PyujcJNgxNtMLoRwn3lki6mgxUhbsfBpLnzevG3Hh90quPPQ/bZGVy58SPLe -HsqvirrsHJv63xyw+XrYZkRfDf2/lXyuY3JgzHfZoTtR6rgwdNjkSXYZ9X8h -xXumcTVGXb07frSkFESfqiZzvmpgtsxeR6OHt0AuoXyLvr4WKtyv+ZhafAMy -NZmrxPy1UX2qc0n8zWJ4LGO6YfqCDla9KN4tVFMILLnGlDWv1+BWEBbcUH4N -hPiuhfnErsVt8cff8vXkAT1GwdhNdR2O1Nl7tA9nw3KVnfecWteh6pVt2izf -LNBhS5cf9liP3hs3GY+4ZEDogGiTLY8uHj0wKeNlfxG+Tidts8nUxe9Sh6z6 -Ki6A1ZqWLBttPUxI521wb02GB9NGv7936CH/Te03YebnIERrfd8Lvw1Y8uXQ -497T8cCe2N3ptlwfKyovl6VOxIKFMm3Tymv66Pu2VnA3TzSoR5870mhggDdE -zsd3/44EDT9mnUqfAfbF6uQHWEeA34OA03cOGuLQ2n7BvvhQmAj+fNgizBDf -Xkpd9+JwKByRD9r3OsIQy9JbUl4GhMK54/udfhwzxK5HEZ+mbUOBw4ogjOMN -kXF6MIAjHAp/7p2qbcoyxFdBMdtWXDkIqeU5My+bDHHt85InWlUHoC6vc/eU -BBMfGY9azCqFwKC9olcEjYlhWl4X1QRDgOdnsNtvGSYakDSDfd+CYaMjv8MS -gokeat3Oqg3B0LKIZSCtwcSvBUnfAr2CoX1X7nJTEya6t4w3q+QGQZ9yYFnK -Hib2tz6rYGjug5kbC9/X3GfiXalANetDAfBxu2Xe2SomijlZ2I17BUDP4n+s -h2uY6Pr4/aVc+wCo8Za5fKmeiU+PZp7VVA2AWNoG1nwbEztj52UGe/1hVULg -8cdvmKjiPzt818wftPy7ePx4WdjcKqD2gdgDvioly7M2sVBKtLz25YIvRDZ7 -BqpuYeHy30M3tSd8IcVP9AnpRL3vKJe49MYXaouOJj1xYeHrfLQ+X+UL4qrW -wvM+LFx6SUaPEeYLLaoj4t4RLDwywOJv+rILNNQVCNVcFh6ovWpU+cEHpjTS -9MlJFhbVPYjf/90LetrRQmyahZl30he2vvGC+pCJrWGzLJw7Ql60b/CCZNLm -oP4vFloPmAwfTfQCDRZPaTWfEcq93VDXRHjBLptgxSZJI0y/UTOxfLMndPpb -reg0NsKMLfZLV1bvhMrC3+9nE4wwZcfQud2tbqBvFvbdNtEIfRhrPXdz3eDu -+7EVef8Y4VTHhbqwK25A0gcMbFONcMuoB1/rfjcozaz/J+eKER6WLd2/VtoN -8pLimFZlRrgQyJxYud8VzoYJX8h8ZYRPjB7y3VZ1AXdzJTSiG2PYo6+C25uc -Yb5zmVATYYz97xKy88qdIc9vot9WyRidx44/+X3FGT7GVx12VzfGxVZHng6H -OUNo2+byo+uN8UynPOOomjOcczhOr7Q0xhT1Lx/Kzm+FateuP3r7jfGgr27D -3D4nkA0+U6VTb4zxFXm95xy3QPLCng2JjcboWBeXXLFxC/CmWnI/PTTG8Uvh -zqO6W+DzvSU389qo/SiJfAuX3ALVPKczRV8ZY2x6j6Rp5WZwvxh9eG7EGH+l -sOZdXjlAZs3RDQ8E2TiQWy3aIrMJJASCuJtc2LjQMJC57osNFJqdiJx0Y6PO -hZbF+NwG1p9INkvbyUaLv6L5/ndtwGGS09Xjw8aKIy3SvNE2EP969qdvEBvP -8fa+9pG0gR/XojZGxrDRSsuYr8bKGvqM0l4Vl7DxHpnSaVtrCQHhhVdtyth4 -vKBj1rXQEubK7vqNcdhI92x9fSLJEkQZPd/X3WNj1laRfwQ9LMFumbzcv/Vs -zKtta9BbsIDazuLdr7rY+L4sb3WZlQXYClVqR/SwMUpkR5bCOgvosWqbo/Wz -0a1lrLBYxgJmqr8keA6ykT+rAWbHzUE7f+3t/z6z0aD5V0ZqujnU9plGJI1T -7/+ODJVFmYOt+FZYM0md/6cuc3CvOew5E/4ibJaNvZE5DTEm5jBTH58l9YON -EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ -8VF94vJg1Az+B+ielp4= +1:eJwV13c4lf8bB/C+lDREZB+c8xwjuxAZx323rZDGtyI0rIoyQsj8koaRJCQy +S8Z5ZJQRooyUJGUVDS1FJKvl9/n9ca5zva7nup7PfT7P537fz2EdOGbjxDNv +3rw/5PP/76mB1vvy53KMFbxf87WagHFXusTJdT3h0J85vS/yFgNQ9MkBiZ4E +WCfIN7nhlhr4Wt/s5u3JgprzfZaSt4xg+ah4wmz3LegpMFvzssQCBmssj/3o +bgBN5fQLsiV2sFl++NV4dyc45e6P31B8FGa79S6Ndb+FnjmLpZ+ygqBxw/Wc +p1kTUFm+8sDtrBhgDFZ+OKD2B+Q2H0xc1XwJVhx1uLlwAy/SkllOSbvSIGH1 +5mrLnfz4uUc5nXEmE3qTV9WPCwlg8U/xf5pO5MC5nJAnPJLLUXeF7fu/e6+D +eOK7MxeviuDp4S11Ne/y4fQOU+POKVFUjP3zuvhHAUiVtUvx/COGFXWHMn7/ +LoBikR3Tq5eIYaLU2psbFxTCi057+oKcGPYcN8lsFC0E+W0+1DYTcp0T8jNI +txAatmbwdaSIocyE0LmXvoXwZ/Nk+2MjcdQYF5YwnSgEb/1Mh9ZwCSzoPf6w +qK8IzK4t+2F+XgJL6udeirwpAmphUHT7JQkM1Olv9/lYBB1du0qe3ZBAsbvv +LJV+FIHG8aW8A+0S2G0cWm4pUAyf8vzyvktJopHk47Y842KwW2E5Il0qiZyB +nMGTV4tBO7A6LL1GEj8Y2mobZhfD4rcrxVhNkrhvQbDd9I1iqOTygmKvJFYL +q2s4lhWDmHll/Ko5SVx6Ibh14mExdITJ62wyl8ImL/7b1HQxbPz2M8DjnRQG +PxD3TDfnwkmTRJV7X6XwVsjgiWvWXCjOVO8TmSLXr6aGXN3JBYkdjvqV/NL4 +M6wpM9qBC1/vPJjm1ZBG/zYOk+3NhYvh8T4p/tKYtVR9vlsKF96KKnrcF2Dg +jb64jLVvuSB+rE5GXJyBz/WdTK984IJFy+7HbkwGXqWDZmeGuVARcE5NUJuB +twXHj+ZOcOHs4Njwnt0MfKG622Y/Dw1a+dUu37IYKH2q22ihCA1hRtv2S62V +QUa4YZSvFg0m9unf9dbL4Pwssw1hOjQsC/0SsdNCBgfSbcXO6NKQ1hiZF+8o +g4IBBnNxBjTcMav6wndGBhVYsm8C1tMwtpvtO9Erg84nupY/2EaD/YnJs48C +ZbEnLaNczYMGhcvrGcORsmhdFXOl7xhNfn9c0cJ4WVSHjvRITxoCfit3rM+R +RRdxn7+dPjRcirAXrXwki1/TrFTMA2l4dKE5I1dGDjdtv+dXcpoGg+KUsuA6 +Ofw8NKqxO52Gjd3tf0Zb5HDtsoyOixk0WM6bv8WhUw531TnMPLpGw0Ebj154 +L4ceBtb9etk0bA5khYQuYGLYp5rpb9dpOC43lb1OlYkFisrPPtM0TJbGt8xq +MpFPxuL3nxJSn4nqSIkOEwfZlbRgKQ2Rno66lDETlaaf1aiW05Da+LCFZxsT +n5YOHNlcScN9l4yRRl8m8qqWn+C7R4Ppb33hoEAm1uRpB08Qt8d36eqEMrF5 +Q4v4QAMNvZWLQnPOMFEwtmqu4D4No0t8hCPTmLhL9UKRSgsNErSJ3uYGJmop +b+wtbafh6sZ3tn+bmGjDXU4FPKGB6j0VWtHGROnvVjzGHTSo85S2Kj5n4t2j +LWdrn9KwfoeM3cJPTPyQfKQ5q4uGozPjoS0CLNTws7Ka6SX76eks9kGYhcVx +gYm5fTTwD/cV8EqwcGiZrYB1Pw25/Y0vjCkWdusGp6W9pGGg9pJauS4LDbUi +cMUgDYV6ixs6DVko7e2tXUAcQAf/O4YsNKXv2sNrGsSyXMJVzVloNlvv6PCG +BqtI/Z5MBxZ2Wlmzg9/RIPu3yL3uEAs9/+n9/Jf4qy/F+8qNhYzbcSNBQzRE +uy7RkPBh4Yewv8XH39NQb/4qIjaahQVl5qp6H2mIvb9NsjCGrN+Q/zWT2I7T +VNyawEJXX92xRZ9omNXg9s6/ysImbbf6p8RawmGagSUsdKzWu4zDNMw7N3k/ +uYKF1iOLgi4Rt/Me3ltRzUI3Zb0bH4mPTNpEjj9g4Vjtpt6IL2S/PJqlBNtY +KLchYPAxMf9HQ1qtg4XiirSm6Fcacnrk+136WFhX+Ji+Quy1LeV45CALz7QK +vOsjxocCfNlDLPTWnXdAfISGV9VTqwZGWbhVo8wkmrhQ50jTrwkWJnk9K6kh +DigatJWcZeETf8fDo8RiGS1RO3gp5DpFPTIdpWFInMPw4qewQi/cz5v4VnxJ +SZwAhYmZJT6pxKGLFLcUCVO4oLz5fi2xVXjqy4fiFD5T8nd9TSz7a5nXJwaF +ttv9HOeIv3pHLOSjKBTVCSiS/kZD1dfpNLYShSpuutZriKOdjmqtU6Pwh/YB +UwviXQOvm+1XU5jmV5biSCz/7859QboUJtwZWudF/P1J6/cUQwo1GAXrw4jr +TYyjbyOFTNf6tBji2Hu3ZJ5vopDNM2B9mdjOQKn0uxmFjt/uOqQTq5ReMRGy +pnB5l9TDLOJZVaEB9Z0U8k9w43OIp65KhWnvpTBf16o2m/iHoIK8vgNZT2PJ +gWvE42GazcaHKOy+lxSUSjw6oX94oxuFUUdylyUQf3HaKGDmQeEu3S8Sp4k/ +dVvSVt6knlpG2kni96Z7tu/0J/Vqfkt2I35bfXBq7ykKQzdJCP1LPKjukeIY +TuEHC0ue9cQvM/yNnE9TyGKaHFch7l0eMXjkPIXZK+/uFSJ+ERET7nmBQhl7 +p4YJst/PJi8r+CVRKLZ59noXcYdLVkvQFQoDJ1YvLSV+aH57WXQuhQ9u+m93 +JW6+e68k5iaF1Sm/9ID4vuajHRe5FDqLC6SLENeKvElNr6RwfnTbeBk5L9WR +Xzg5tRRC1fjrMOI705Ov8xspHJ1J3mFBfKt/sVL5Ywrt+A4+6iXnk7tV9GFV +J3m+jrydacSFdXLu9d0UtgzIOewjzsvWKW17Q6HimnbhbnL+U4/Yw9tJCh2O +yE8Wkn65/Mr17cefFHpsbDK3I0608o4cmaPwfNuE5iLiWO3otplFbMyN5c2x +/UxD+K+SfwVl2bh7d6z1O9K/Ie41P1ew2ah+nFIOIQ4abLoqtZKNC/q8LkkQ ++zb2v1PQYuPr5MNqGz+Q/jy34LjRZjYeOlnnFkzywvWPoMh6czYObzWa4iN2 +PiZVscWajVE2TYwYki+O2zV/2+xl4+1qbcOEtzTskN4T7ebBxq6ZL89CSF4Z +FRReS0piY5Wzgspnkn/9zIKMTVfYeIDh47KLOCApP/1HBhsvWyxMvUfy8nZY +XppNPhvvjt98c4Hkqdbua8nLatjISWwVkOqmQXlBYnzUGzbebErybCV53BKQ +ELfmAxsPxgfvECN2HouPHRom9Qxd0NtP8junP+b8+h9s1Cyd9884yXvmrdPR +f/nkMfSTX9lMG+l/h8BQXzV55A/JMch/QEN518kQhdXyuDxDzOcFmR87zPyD +u9bIY/vTb3f+IU5YcyJIC+TRd3+Jiw2ZNwJLj/mPbpPHTTz+7i9raZhfeeC4 +s588CgiaVl+8TfpF2MxxV4M8ehquOplI5mPPUarjcLM8/o1s8XDPI/3b9BNC +Hsmjq5OQ9sZcGuIDCuRuvJDHoaww1S9ZNKx6u3RwdpjUu6RhSpbMZ4+SJ/uu +iihgdmJBu2wiDcNWO22HDilg5VlqV1QwDZ356m0zbgpoQEXwSJ8iecPLZyhw +TAGZhs/Tisj8P3O7Qkr3pALyHLPIeORPw0o5ib7TMQrIvRYzPe5Fg8to327V +CgUca4l70edM8vC84y6vhYqoNhDhoraVrD+sRq1aqoj8+b+2XzWnYXrL7MiI +kCJeqxuNXWpGw2LehEg3KUXU9MieeL+Z1H+yscxRXRG/V/XG/Yc0nHJSFLHa +rogydGGHpzbZf+OvT1QzFHGnQbOzsASZ79/8TN/rKqGl8bX5ayu5wFgtG8Vv +pIR3b2yq+lnGhVGv+w2q65Rw8YzDdCXNhcQpISMvcyVslH4rpHGDCwN/8jXm +HJTI/C+b+5rEBa+lL0Ukzyhh4EfDhmbyfpiqjAMW/Uroscjv0jxV8v54kN+7 +LGQl3jxXP/0nrpj8nxDnOd2gjM9X6MfdMy4C4ceKsfQ3FWxOiCrQelcAjGiu +ta6uGp6aWJBxxfImJKvqC4m4qOMCE8bZJQ034KHUujUTFzRwqIztuFzrOhgw +GuI1X2iixb1u080BubCMN8tnf/gqFBRNs134Ohtkw+SM9iiuxjSdXINNylmw +SMGuwqZ5NcafcbfyjLwGGhxJrt8+LdTinrOpEksHrwHhRrN52vjOONCoi+8K +fJs4v9M0WRuFG3NE2rYlwxbNplRTdR1c/urg68Wdl6B2wvDXdLsOZgSzjjSY +XQQPNa2+p05rcEF1yAYdxgXgjB7q2rNIF0dShfPN3sTAJnmJrQJZuigl2LCt +bdVZWBl61r9BTw87LNmL5n2KAhUn/TqFPj3MVmo1eFMaAU61rv+Vea7Fx7/G +PyXzh0Hdta5D46L6mPRfbXnKWBD8uDE3rXlbH1dLVCzcGuUPBxUKFqVuNcBz +0irJq4Z9YFzlou6tMQNUqX718HmYJ9zJ+fVmMtoQQ47NPYyMcIe9G9loKGuE +dFJFomivK0i7n67UqDfCu5GH3WQiDoHo4qMlW//l4CPO3LKlwvshZ8OpgLE9 +HHQUGHw0xLsftE7Fbrhox8FevZGa5klHsByjn/fs5+DWZFFGYa8jRL2YnD14 +lIOM0Tit0UxHmMkKWR8QxkE5bkmejY4j9BlefJZXwMEDD7yTP9Xbg+uJnDTT +Yg568gSrCF23h6nicqevNAefK3fSZjH2IEz1TK+u4KB7/1H3mT32YM4vw7hb +z8E7SR+PrvmxD2q68g49e07q3ZLVpKq2D8yW3VH37eFgK8P9wCmRfdCzpXVK +op+DUmJ38c1PO/hR9SXa/jUHizQEUwZb7UA9c1XR52EOhqTYRZW72kFN3zrf +8yMcVD8nMj/Z2g7MVmwHzTEOdhzjdT+/1g6cT5946jPJwZ7Ktc9v8pP71Uel +is9wMEh8oLZrzBbCf14+WPWTgyl7glyFem1BSCdfbd8fDmqzLZv33bOFdPeq +ybk5DgrvTeioybeF/wH9f13y "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "PlotRange" -> {{0, 30}, {0., 0.06615665943531834}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -3372,6 +8788,7 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -3399,7 +8816,8 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06615665943531834}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3407,9 +8825,9 @@ EvElz6fUzSH2V4Zv9S82Nm/9UxghZg6r9G5qecxT+zukqr3qrxnkBFfPLixQ Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913457856953163`*^9}, + CellChangeTimes->{3.9913457856953163`*^9, 3.9938272399027843`*^9}, CellLabel-> - "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] + "Out[193]=",ExpressionUUID->"a46526c3-0652-4265-9238-a999c4e8ebb6"] }, Open ]], Cell[CellGroupData[{ @@ -3462,66 +8880,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + "In[194]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 422, 453, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785749161*^9}, - CellLabel-> - "During evaluation of \ -In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ -\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ -35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 422, 454, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785759161*^9}, - CellLabel-> - "During evaluation of \ -In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ + "\"\\!\\(\\*FractionBox[\\\"8.164411367831786`*^-173\\\", \ \\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ 54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 422, 455, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345785767502*^9}, + 2, 194, 25, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.993827240050514*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], +In[194]:=",ExpressionUUID->"14531bb8-adba-443b-b8fe-750207ae8d47"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.00441259524818`*^-176\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 194, 26, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.99382724005659*^9}, + CellLabel-> + "During evaluation of \ +In[194]:=",ExpressionUUID->"239acf39-c9ec-4b92-bd24-ca3a012054b4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9640509903950066`*^-179\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 194, 27, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.9938272400654182`*^9}, + CellLabel-> + "During evaluation of \ +In[194]:=",ExpressionUUID->"cf9ce9d8-42df-4aee-8432-273cc40f82d0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 422, 456, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457857765007`*^9}, +during this calculation.\"", 2, 194, 28, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345785749161*^9, 3.9938272400737057`*^9}, CellLabel-> "During evaluation of \ -In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], +In[194]:=",ExpressionUUID->"1d6863bd-8543-41ad-ae50-5577913a5433"], -Cell[BoxData["10.362747935330768`"], "Output", - CellChangeTimes->{3.991345792196575*^9}, +Cell[BoxData["11.490461447703995`"], "Output", + CellChangeTimes->{3.991345792196575*^9, 3.993827282337373*^9}, CellLabel-> - "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] + "Out[194]=",ExpressionUUID->"f40b7849-10a4-4f32-a083-57a5e1b45b1b"] }, Open ]], Cell[CellGroupData[{ @@ -3588,68 +9010,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918501903071613`*^9, - 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ -96e59dd43e6a"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 457, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345792232563*^9}, + CellChangeTimes->{{3.9918501903071613`*^9, 3.9918501951272774`*^9}}, CellLabel-> - "During evaluation of \ -In[423]:=",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], + "In[195]:=",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.920172228261966`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 458, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345792242544*^9}, +normalized machine number; precision may be lost.\"", 2, 195, 29, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.993827282394247*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], +In[195]:=",ExpressionUUID->"304ea854-86fc-4e0d-82cb-8c3e594225a6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.847683357036612`*^-211\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 423, 459, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457922505417`*^9}, +normalized machine number; precision may be lost.\"", 2, 195, 30, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.9938272824016333`*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], +In[195]:=",ExpressionUUID->"39424672-ee29-4899-b001-e27c3fe4e736"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.047482166514732`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 195, 31, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.993827282409684*^9}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"3c4283be-ef07-4c97-8bbd-0209180aff6a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 423, 460, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457922595577`*^9}, +during this calculation.\"", 2, 195, 32, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345792232563*^9, 3.993827282415532*^9}, CellLabel-> "During evaluation of \ -In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], +In[195]:=",ExpressionUUID->"f02bf4ac-6390-4584-908f-b4a978db2cbe"], -Cell[BoxData["0.32136877427435395`"], "Output", - CellChangeTimes->{3.991345799137081*^9}, +Cell[BoxData["1.7994686612177269`"], "Output", + CellChangeTimes->{3.991345799137081*^9, 3.99382728953758*^9}, CellLabel-> - "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] + "Out[195]=",ExpressionUUID->"537b5c91-1ba7-4fbf-a788-59e9a1c3bdd5"] }, Open ]], Cell[CellGroupData[{ @@ -3670,8 +9096,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3716,68 +9141,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.99185020477277*^9, - 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ -d2e0cc5d1484"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 461, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457991730843`*^9}, + CellChangeTimes->{{3.99185020477277*^9, 3.991850207864538*^9}}, CellLabel-> - "During evaluation of \ -In[424]:=",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], + "In[196]:=",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.920172228261966`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 462, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457991830807`*^9}, +normalized machine number; precision may be lost.\"", 2, 196, 33, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.993827289579897*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], +In[196]:=",ExpressionUUID->"8953a491-ae94-4b5d-957d-70ab591e76d3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.847683357036612`*^-211\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 424, 463, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345799191578*^9}, +normalized machine number; precision may be lost.\"", 2, 196, 34, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.993827289586429*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], +In[196]:=",ExpressionUUID->"fe6d440e-e6da-4659-94c6-493856b040ab"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.047482166514732`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 196, 35, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.99382728959309*^9}, + CellLabel-> + "During evaluation of \ +In[196]:=",ExpressionUUID->"93c87f09-b7ed-4c33-a999-afe7f1041232"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 424, 464, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913457992005787`*^9}, +during this calculation.\"", 2, 196, 36, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913457991730843`*^9, 3.993827289599029*^9}, CellLabel-> "During evaluation of \ -In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], +In[196]:=",ExpressionUUID->"bfddd313-f393-4854-bc6c-dacfa840d8f1"], -Cell[BoxData["6.886509882261309`"], "Output", - CellChangeTimes->{3.991345804559931*^9}, +Cell[BoxData["39.09873621154841`"], "Output", + CellChangeTimes->{3.991345804559931*^9, 3.99382729631072*^9}, CellLabel-> - "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] + "Out[196]=",ExpressionUUID->"0be16216-fbb3-4f2a-99f9-7ba1253a98d1"] }, Open ]], Cell[CellGroupData[{ @@ -3798,8 +9227,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -3844,68 +9272,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918502122939777`*^9, - 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ -ca10003188eb"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ -\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ -29806995456000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 465, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046014442`*^9}, + CellChangeTimes->{{3.9918502122939777`*^9, 3.991850217343153*^9}}, CellLabel-> - "During evaluation of \ -In[425]:=",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], + "In[197]:=",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.361092863541043`*^-212\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.920172228261966`*^-206\\\", \ \\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ 66213134598144000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 466, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046114445`*^9}, +normalized machine number; precision may be lost.\"", 2, 197, 37, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.99382729634453*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], +In[197]:=",ExpressionUUID->"4e62b094-28af-4b4b-960c-a38b6a24e809"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.828508957998132`*^-217\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.847683357036612`*^-211\\\", \ \\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ 32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ -normalized machine number; precision may be lost.\"", 2, 425, 467, - 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345804619444*^9}, +normalized machine number; precision may be lost.\"", 2, 197, 38, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.9938272963520412`*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], +In[197]:=",ExpressionUUID->"f0ffeff5-1912-4ef5-a7c5-e91a63ad44c8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.047482166514732`*^-216\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 197, 39, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.9938272963596478`*^9}, + CellLabel-> + "During evaluation of \ +In[197]:=",ExpressionUUID->"0d98cc95-cf50-4cdc-9bf9-8d9cec3cef3f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 425, 468, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458046274433`*^9}, +during this calculation.\"", 2, 197, 40, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458046014442`*^9, 3.99382729636823*^9}, CellLabel-> "During evaluation of \ -In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], +In[197]:=",ExpressionUUID->"d5c2e5fe-8492-4e7a-8fea-b156486a1b91"], -Cell[BoxData["18.478556086442907`"], "Output", - CellChangeTimes->{3.991345807954506*^9}, +Cell[BoxData["9.128393538083238`"], "Output", + CellChangeTimes->{3.991345807954506*^9, 3.9938273008292027`*^9}, CellLabel-> - "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] + "Out[197]=",ExpressionUUID->"e2357edc-0b8d-4c65-a153-14baa473f00d"] }, Open ]], Cell[CellGroupData[{ @@ -3914,22 +9346,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.991850221900238*^9, - 3.9918502257325497`*^9}},ExpressionUUID->"350334c7-7c47-c24c-8adc-\ -781173809e57"], - -Cell[BoxData["0.028488532115740543`"], "Output", - CellChangeTimes->{3.991345807987507*^9}, + CellChangeTimes->{{3.991850221900238*^9, 3.9918502257325497`*^9}}, CellLabel-> - "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] + "In[198]:=",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], + +Cell[BoxData["0.09525016796142022`"], "Output", + CellChangeTimes->{3.991345807987507*^9, 3.9938273008601723`*^9}, + CellLabel-> + "Out[198]=",ExpressionUUID->"2bcd0273-3bd2-4d43-abb3-1caf5573883b"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.991850228782873*^9, 3.991850231287325*^9}, - 3.9919246253575134`*^9},ExpressionUUID->"597921e5-69d3-564d-a8fa-\ -092e912c15e0"], + 3.9919246253575134`*^9}, + CellLabel-> + "In[199]:=",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], Cell[CellGroupData[{ @@ -3952,12 +9385,12 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + "In[200]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[BoxData["8.947947137013426`"], "Output", - CellChangeTimes->{3.991345808020666*^9}, +Cell[BoxData["5.975143945045034`"], "Output", + CellChangeTimes->{3.991345808020666*^9, 3.993827300875433*^9}, CellLabel-> - "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] + "Out[200]=",ExpressionUUID->"444cd7ac-51f4-4cf6-bfed-db6dcaae4e64"] }, Open ]], Cell[CellGroupData[{ @@ -3967,12 +9400,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + "In[201]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[BoxData["1.2539951617800844`"], "Output", - CellChangeTimes->{3.9913458080616665`*^9}, +Cell[BoxData["3.9614576416796643`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9, 3.993827300886159*^9}, CellLabel-> - "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] + "Out[201]=",ExpressionUUID->"aee4e45e-d45e-42b2-b380-d3464e76e574"] }, Open ]], Cell[CellGroupData[{ @@ -3982,12 +9415,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + "In[202]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[BoxData["11.220682417678793`"], "Output", - CellChangeTimes->{3.991345808188246*^9}, +Cell[BoxData["23.67027964123463`"], "Output", + CellChangeTimes->{3.991345808188246*^9, 3.993827300895295*^9}, CellLabel-> - "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] + "Out[202]=",ExpressionUUID->"c5f320b2-6deb-4c1c-827b-087fef5e01a3"] }, Open ]], Cell[CellGroupData[{ @@ -4177,12 +9610,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + "In[203]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[BoxData["0.04214145338799881`"], "Output", - CellChangeTimes->{3.991345808220566*^9}, +Cell[BoxData["0.006077928076941968`"], "Output", + CellChangeTimes->{3.991345808220566*^9, 3.9938273009100647`*^9}, CellLabel-> - "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] + "Out[203]=",ExpressionUUID->"ae5af28a-9af4-4fd1-816f-2605d6adc12c"] }, Open ]], Cell[CellGroupData[{ @@ -4196,12 +9629,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + "In[204]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[BoxData["4.317080886816563`"], "Output", - CellChangeTimes->{3.9913458083195686`*^9}, +Cell[BoxData["11.367557571962896`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9, 3.9938273010217037`*^9}, CellLabel-> - "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] + "Out[204]=",ExpressionUUID->"64bf8ef1-3ed6-45a3-826f-8caa42182fe6"] }, Open ]], Cell[CellGroupData[{ @@ -4393,12 +9826,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + "In[205]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[BoxData["0.012862376162526763`"], "Output", - CellChangeTimes->{3.991345808334568*^9}, +Cell[BoxData["0.04020233331009236`"], "Output", + CellChangeTimes->{3.991345808334568*^9, 3.993827301035178*^9}, CellLabel-> - "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] + "Out[205]=",ExpressionUUID->"885fda84-05e0-4cda-b937-fb2a0a9f9faf"] }, Open ]], Cell[CellGroupData[{ @@ -4412,12 +9845,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + "In[206]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[BoxData["7.814196669618258`"], "Output", - CellChangeTimes->{3.991345808432392*^9}, +Cell[BoxData["4.419969888968037`"], "Output", + CellChangeTimes->{3.991345808432392*^9, 3.9938273011510563`*^9}, CellLabel-> - "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] + "Out[206]=",ExpressionUUID->"d024f1db-2982-4fce-ac6b-9be45201522b"] }, Open ]], Cell[CellGroupData[{ @@ -4510,12 +9943,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + "In[207]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.991345808448488*^9}, +Cell[BoxData["0.08462540512073816`"], "Output", + CellChangeTimes->{3.991345808448488*^9, 3.9938273011610727`*^9}, CellLabel-> - "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] + "Out[207]=",ExpressionUUID->"cb3834e6-9a86-4401-b2c9-7ed0ec35ac1d"] }, Open ]], Cell[CellGroupData[{ @@ -4605,12 +10038,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + "In[208]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.9913458084773808`*^9}, +Cell[BoxData["0.9153745948792619`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9, 3.993827301172818*^9}, CellLabel-> - "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] + "Out[208]=",ExpressionUUID->"31ce7b36-6fe9-4d0b-83e1-4dac66f583d3"] }, Open ]], Cell[CellGroupData[{ @@ -4733,12 +10166,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + "In[209]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913458085134735`*^9}, +Cell[BoxData["0.07746394592888911`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9, 3.9938273011831427`*^9}, CellLabel-> - "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] + "Out[209]=",ExpressionUUID->"2aa5efa7-32c8-4961-b688-839dfac38c59"] }, Open ]], Cell[CellGroupData[{ @@ -4800,67 +10233,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.99185025346871*^9},ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], + CellChangeTimes->{3.99185025346871*^9}, + CellLabel-> + "In[210]:=",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 441, - 469, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085463753`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1296975501954707`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 210, 41, 31384839377481460541, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.993827301197838*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], +In[210]:=",ExpressionUUID->"8e2935ad-3b74-49e1-97a2-086fdaba4950"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 441, - 470, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085563755`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.089328726256627`*^-217\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 210, 42, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.993827301205881*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], +In[210]:=",ExpressionUUID->"f820674d-d95d-4d16-b834-b4ba86f42947"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 441, 471, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345808564377*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.792456505736259`*^-222\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 210, 43, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.993827301214388*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], +In[210]:=",ExpressionUUID->"e4a4b2a3-3ee6-439c-a5c9-6fd796c17f54"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 441, 472, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913458085733776`*^9}, +during this calculation.\"", 2, 210, 44, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913458085463753`*^9, 3.993827301222548*^9}, CellLabel-> "During evaluation of \ -In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], +In[210]:=",ExpressionUUID->"a20353dc-c0b6-467a-9c76-00af4ac2a898"], -Cell[BoxData["4.317080886816564`"], "Output", - CellChangeTimes->{3.9913458125059433`*^9}, +Cell[BoxData["11.367557571962902`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9, 3.9938273052143908`*^9}, CellLabel-> - "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] + "Out[210]=",ExpressionUUID->"787ce728-5d7b-442d-b357-17aeed635e85"] }, Open ]], Cell[CellGroupData[{ @@ -4922,68 +10360,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918502579298553`*^9},ExpressionUUID->"baacd3f7-96e4-2949-b9f9-\ -9afb90e551d9"], + CellChangeTimes->{3.9918502579298553`*^9}, + CellLabel-> + "In[211]:=",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 442, - 473, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812542961*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1296975501954707`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 211, 45, 31384839377481460541, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.993827305250977*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], +In[211]:=",ExpressionUUID->"c499bb23-ca6e-4937-ba08-01ccaf84a030"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 442, - 474, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812552984*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.089328726256627`*^-217\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 211, 46, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.9938273052598257`*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], +In[211]:=",ExpressionUUID->"bd34870b-f719-4b2b-a39c-5e0213c7310c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 442, 475, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134581256196*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.792456505736259`*^-222\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 211, 47, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.9938273052689133`*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], +In[211]:=",ExpressionUUID->"3a060f98-bc22-4209-ae43-28e8111199d1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 442, 476, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991345812570959*^9}, +during this calculation.\"", 2, 211, 48, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991345812542961*^9, 3.993827305276082*^9}, CellLabel-> "During evaluation of \ -In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], +In[211]:=",ExpressionUUID->"c4c683a1-5adf-4b6a-8d83-3d12268f9b21"], -Cell[BoxData["7.8141966696182585`"], "Output", - CellChangeTimes->{3.991345816415531*^9}, +Cell[BoxData["4.419969888968037`"], "Output", + CellChangeTimes->{3.991345816415531*^9, 3.993827309471838*^9}, CellLabel-> - "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] + "Out[211]=",ExpressionUUID->"46ee9b61-e814-4a38-b0de-438faaf80f15"] }, Open ]], Cell[CellGroupData[{ @@ -5041,95 +10483,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918502605597496`*^9},ExpressionUUID->"ea08a5a9-d446-9147-ba82-\ -e3924f732df2"], + CellChangeTimes->{3.9918502605597496`*^9}, + CellLabel-> + "In[212]:=",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1Hc4Vm0cB3AUlVEoKy+vmSijx1Zv9y8jmUkqMtLjeQ4JCUlmZSTJSqUy +MsrIpmEkRYWsppZsHXsdodB7++Nc5/pc93W+53f/7iFJP2XJZGNhYSHxs/I+ +3aok97i9dXedefQzyZMk2j2epU7Xz0dKDkeGV9ydppEoo1+N9mQ8dJXCtmC0 +cHCrvkT5otkgjV3iF1LHrt+Mit5sc5PBvvxKuDYk7y1iK9cbk8WuaD+dukj7 +iEo/jdfJYQ9/bQo8V/UZBWkoTspjbx6Qtv2l9x25f1o+vR3bZCJQ27u5CylX +OhkpY9csDnP55fWg1gFbXxr2pwtCAY88+tBP+5/z6tjjHPrDFG0AHZfjeKuN +zRHtaaM6N4iGDJ8s/4ctzpfScLqKRC4vly7oYpuL/ro/rjeKGqZ0L5tiE3el +BBXXjqNVRbo8ltghsvvDTzZPIM7Bj4NHsD8LfdjhkzeFfPoe3WZgM466nrgW +PY02VK8+cxJ7MpklvdRjBs3QBrO8sNdKKfJO0WaRlCyD/SJ2IqPOkFfgF/J6 +xKIRhS2RbROiPPcLyfDvqE7A1toeMe5eNY86bMwas7BdNLqah/UWEX/amcFm +bMrvzGrOLUuIkyqp68A+X8W1S37tMnK/ePFXL3YSaD1wbv6LNKO77X6v1Hev +Qd8rjxXKaAnbFd1IlPfqWvcFUTboVfJ6pIM9+dMhMD6aDTZMD17fhx2oMFtW +7LEKrMRiDzGxE4skpSdo7KBm8b0jA/tr+2jNciY7aDYx1pdhS0w/PrpegAPE +H1+8XYedr2aeoDjHAbb7QsoGsOsr/FndqtaCwp8gUtGdRLN177tIPW5Iq8lx +aMXmN+XmDajhhrgPjS8GsFU+6AOPNg9s3RF6ZQnbtf/h3R1K68HO/pmxkgeJ +PNmaVf7j5oVoFvr5ROwBqcKp8F984Bfg2+B9CveHaFrXpsoPObPKvvHYbA8G +JYVP88OvwLDIImwJ1X8t80b4gfL/+3UU+6heXGlr90aIbNbVdPMkUZuTl7fQ +GwHITVBsCTpNoh/ZMVcc1wpCbkxxfTr26EheZq6BIFgsv5V4hc3p0/d+Z60g +HJWb4uD1IpF+mJWa40MhYDXNjsrBrszSmM1JE4Etygqeo94kyhr47avjIwZ9 +I04Pn/mSaN+hSz+8C8TgrHY4xxj2aP3GvQWDYsCR6Vy0+SyJ1LK2C0jYiMON +Rs+1Z7Hr6Q5l7Lv/hadn7nSo+pFoeqL7LBkqAXI60cNPz5Foo7t+eZmZFLy6 +XNu/MYhEg1mcLhauUsDdFKlkiv3ke7voWIQUFJCb28Ow7UztQ7fUSkHZTMrm +Oeysbb6Wt2jSMF4p19IVjP8/nD0ZLCQDCkKxOc/Pk8jKmUvRuEcWbl8kdV6H +kQj5HqIdWZIFSXly27pwEimEp2kyRLZAVKjlaRNslkxV3eADW2D9XZeFduyC +H7ZHSp9vAf/UzOWuCHw+D+df2JwhB0o/Ujt5LuP69M0+DdPlIZXknMy5SqLM +gze/zQXLQ6/fmlOz2DH0nu7Vd+RhIe+crm4M3t/nz4yIv5cHA0bt4HdsvuoU +loN6CvDSsEdGMA7vH9VxhSrpbYCCX5xNSiCRqFRsyJX+7fBjTbL/95skqo6i +5BfYFKFR4dOYThLux4zNB0JSEaIjztffwk6tl5HXdVCE/h65ZOtbJJJyrnw3 +36EIbext1NfbeL75A7LEGyXgfzZuMp1CIjFRcULCRgW6XJcST2aRaPs9H+4/ +iAablLWKIktJRGeEziqa02DM/+Paeewk6YQfjnY0aPfYVuFcRqJVGUXFr/xo +oLZmlfi+cnzeUoetEkpoQLG7z3M/wvdpkmOKvLQqBN+Onrxfgdf3iqmSNYca +5BkvToo+J1G6l4zFw2Z1WE1dMOZ8S6J2X6QZdk8bnpZs3a8zTyJJh4/m9m7/ +gdIWRQdSZggx/z4qFDsHIJSxa07SaggJjTxZI0TXhZoox37G1SHko7rre4KC +Pnx8E9l+qWEI0ccWGzYOG4CKs4Dl2zXDqEDXe01amyHw7osMdrUcRlmU6/P8 +RCOg7NWfxKYMo/k9wi31ISZwe3cwnW12GHWyrJrqOW4Gg6yuBd8sRpDHP6fi +Lkjvh4eBPh7ND0ZQ4YmG2uvhFlBrXtEvuGkU+c+IzG07cQAiFma6Uv1H0azx +3sOvj1lCk+uFP2oTo0jbNn7PwIGD4DnC/3qV8xh6J5LiWq9qBaVSnx0OfxtD +m++HVudsPQQHJeaQtMM4etKtYGrOcxhMyLepR7+PI/EPk86+Y4fhxAGq/Jbt +BFK9Hp+f2X0EGr3C3OWGJlDK6hmlhDpraJ3aYcCjNYke7VH+Gl5hA3Im9opn +Lk6iJM0ovsW8o6Diu+Ad0DyJ2r7di1CNtoWljpo9QvxT6KFZsozneTswK7lU +/t5+Ck25H2TxYNgD66b0N4ysKTS7V95lXM8BxDX/Nm0amkI5Y1/mvTWOgUP+ +/uJ02jSyTr/nZM/tCNZbns7+PDONykpNjq265Ah3tm0y66yeRtqi7xYuLzhC +6MSx/c2L00i62/nr2xPHwVoCqM9aM6if6+T+5L7j4Gs4YRzpO4PaY8ydDA/R +wZFlvRIzfwYl+qVxnWmnw22vx3HqvTOouubvgpOREygk/eCZ5KPQBju4pFrp +BAtKeS8CtSkksel12z/VTjD4apOCmA6FVJrNhDlqnCAo3UHlKbblLtvcz8+d +wMlbVmRxJ4US//F9E9ToBHfbb1qf2U2hzZ0PNjR8xnmOy2cP6VFIxkEoyW7O +CdZ2SYa+MaWQtuN4TrgaAwrlZE0vO1Do/q1Jb3MNBtza/SJnzTEKbXo/vVtI +iwGj7UYPwrHHDeY+5OxkwIOzLennHSl8f7GwNusygPqSbOlFp9D6OT4b/gMM +aGpULdMnKNR/VX1dmjsD5jtCprLcKRRTFXjiyX0GBEsduL4/gELutJvafjkM +eLm18Us5tmluyTqtPAY0RETViQRSiPPmYO7jAgYcSCyM6MUO97IYflTOgKSi +vsZTwRQKlJc5+fAFA7TNXDTPXaCQ6803bqU/GKDhk2JqeIlCRusHd3l1M2B4 +R5V4OvbWcBYeWi8DZI8zEn9jD3qpF5QMMICZLeOaH0mh4+ZpY8WjDAjLnXzK +FUUha3Zvj6LfDPiYGPLnSTSFDL03e+YLMoEvwO1sSzyFXqRFGCcIMyHinICu +VAKFdjVPy/htZoKylXCqL7aK7JsveuJMkOedWid+jUIiHQF632SZoN5iXeSc +SKERnU5BTnUmHLoTKzN4g0KxbHefOh9kwv21vdaxd/D8lbmTzA4xgbOlUfUT +dpitn5fqESYcST2a+k8yhfzKLeT+HmWCGuyVysE+TrDG36AzQTB5qq8ihUKq +TXTGy9NMiInQ0m9Io1BHvCyXdBwTQn/6y8dlUqgQ8biQ8UxIEbwm+hI7bIyq +L7jGhHPGWXkL2DSj+mCtm0yYzYlPO56F14/FadoslQmpXZV92+9RaO+pu1/8 +8pnwSv5qa/F9ComJRWrsLmQCsyU+ugubajp1bVUxEww7BX7yZFMoYwsyiynD ++WTI6RPYS52dtZmVTKiIEP4mmkOhclPRnNYGPK7h88c9l0JXfrOxJzYxYebY +ruAb2PSc4eM2zUw46CySUoPNu7pStL8Nr0fwQiFPHoXcqqxjFz4x4YtUrlQ2 +trTCDV+ZASbY/CrVf/2AQr87gt4PDTJBy21NxBB2ezhTpYhkQuwxASeufAoF +96gNa48y4e3ivkkz7K9J7+33zzChQ/zC4VbshDV8Bv6sBMxVzZlVF1CoerrT +1mcVAfayfKHfsH925nl5sBNg7f1J5zf2rnL9u/R1BCwamNE0CvF+c/T7Y8xH +AM9zU8jB5jU14DfYSMDLDNmoOuydmvzySICAG0NBh39gx/HkH1YVIWCHUpIv +fxEer+wqEZUkIPzy0HsfbOJefoOANAF2vbQd0dhxcee6NsgSICzxkTcTe5DY +yLNanoC+d/xH2lbGNxq6jKoQUCOwvCxZTKHK5Y0hgzQCAsaSPNSxB4a6r3er +EWCm6Oa4D1un1r/ugxYBYZ4FTW7Y/W6F4k+BAGPRnRVF2OutA9Qf6xLAmq6l +8wxbW2+faYk+AZXCVv+1YseI9J67t4+ALvcvjcPYT1YXxaUZExDU9t/Beey+ +iYDsW6YEXNn20IG9hEJarwQ+XrUgQGHg3R8xbHpJ78glSwJMIn2uymNfTS5i +u2hFAFX8b7oadq+XkYqvNf7/1ihzI2weB0FDz6MEEEEGpOVKnlGfvasdAXSC +bbXdyvf/Bl1xcMT1c/k/d8N+wmmcYU0noCV2h5PPSt6sYIUlA/dPuz8iYCWv +p6/NlCBgKTtu+8WVvObiwb0uBPhfV7eKXKnvcdASuBLw7t3bpasr+RnGm3a6 +EeBtxJC/tpJ/VWibugde7z8jn26u5Pv171H2xP1mdeFIxuZmlFjLexHwNabj +cRq25v7gU9I+uD9j2iMZK/k6JhFivgSMhsTcvYcdLSucIuRHwFjth45s7Ee8 +A2V8/gT46XHH52L3/Clp4gokoKlUrTlvJf9ncA97MAGm78wuP8DWeGcy/zeE +gPygIw0r/h8JeREk "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5143,107 +10584,106 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= +1:eJwV1Hc4Vm0cB3AUlVEoKy+vmSijx1Zv9y8jmUkqMtLjeQ4JCUlmZSTJSqUy +MsrIpmEkRYWsppZsHXsdodB7++Nc5/pc93W+53f/7iFJP2XJZGNhYSHxs/I+ +3aok97i9dXedefQzyZMk2j2epU7Xz0dKDkeGV9ydppEoo1+N9mQ8dJXCtmC0 +cHCrvkT5otkgjV3iF1LHrt+Mit5sc5PBvvxKuDYk7y1iK9cbk8WuaD+dukj7 +iEo/jdfJYQ9/bQo8V/UZBWkoTspjbx6Qtv2l9x25f1o+vR3bZCJQ27u5CylX +OhkpY9csDnP55fWg1gFbXxr2pwtCAY88+tBP+5/z6tjjHPrDFG0AHZfjeKuN +zRHtaaM6N4iGDJ8s/4ctzpfScLqKRC4vly7oYpuL/ro/rjeKGqZ0L5tiE3el +BBXXjqNVRbo8ltghsvvDTzZPIM7Bj4NHsD8LfdjhkzeFfPoe3WZgM466nrgW +PY02VK8+cxJ7MpklvdRjBs3QBrO8sNdKKfJO0WaRlCyD/SJ2IqPOkFfgF/J6 +xKIRhS2RbROiPPcLyfDvqE7A1toeMe5eNY86bMwas7BdNLqah/UWEX/amcFm +bMrvzGrOLUuIkyqp68A+X8W1S37tMnK/ePFXL3YSaD1wbv6LNKO77X6v1Hev +Qd8rjxXKaAnbFd1IlPfqWvcFUTboVfJ6pIM9+dMhMD6aDTZMD17fhx2oMFtW +7LEKrMRiDzGxE4skpSdo7KBm8b0jA/tr+2jNciY7aDYx1pdhS0w/PrpegAPE +H1+8XYedr2aeoDjHAbb7QsoGsOsr/FndqtaCwp8gUtGdRLN177tIPW5Iq8lx +aMXmN+XmDajhhrgPjS8GsFU+6AOPNg9s3RF6ZQnbtf/h3R1K68HO/pmxkgeJ +PNmaVf7j5oVoFvr5ROwBqcKp8F984Bfg2+B9CveHaFrXpsoPObPKvvHYbA8G +JYVP88OvwLDIImwJ1X8t80b4gfL/+3UU+6heXGlr90aIbNbVdPMkUZuTl7fQ +GwHITVBsCTpNoh/ZMVcc1wpCbkxxfTr26EheZq6BIFgsv5V4hc3p0/d+Z60g +HJWb4uD1IpF+mJWa40MhYDXNjsrBrszSmM1JE4Etygqeo94kyhr47avjIwZ9 +I04Pn/mSaN+hSz+8C8TgrHY4xxj2aP3GvQWDYsCR6Vy0+SyJ1LK2C0jYiMON +Rs+1Z7Hr6Q5l7Lv/hadn7nSo+pFoeqL7LBkqAXI60cNPz5Foo7t+eZmZFLy6 +XNu/MYhEg1mcLhauUsDdFKlkiv3ke7voWIQUFJCb28Ow7UztQ7fUSkHZTMrm +Oeysbb6Wt2jSMF4p19IVjP8/nD0ZLCQDCkKxOc/Pk8jKmUvRuEcWbl8kdV6H +kQj5HqIdWZIFSXly27pwEimEp2kyRLZAVKjlaRNslkxV3eADW2D9XZeFduyC +H7ZHSp9vAf/UzOWuCHw+D+df2JwhB0o/Ujt5LuP69M0+DdPlIZXknMy5SqLM +gze/zQXLQ6/fmlOz2DH0nu7Vd+RhIe+crm4M3t/nz4yIv5cHA0bt4HdsvuoU +loN6CvDSsEdGMA7vH9VxhSrpbYCCX5xNSiCRqFRsyJX+7fBjTbL/95skqo6i +5BfYFKFR4dOYThLux4zNB0JSEaIjztffwk6tl5HXdVCE/h65ZOtbJJJyrnw3 +36EIbext1NfbeL75A7LEGyXgfzZuMp1CIjFRcULCRgW6XJcST2aRaPs9H+4/ +iAablLWKIktJRGeEziqa02DM/+Paeewk6YQfjnY0aPfYVuFcRqJVGUXFr/xo +oLZmlfi+cnzeUoetEkpoQLG7z3M/wvdpkmOKvLQqBN+Onrxfgdf3iqmSNYca +5BkvToo+J1G6l4zFw2Z1WE1dMOZ8S6J2X6QZdk8bnpZs3a8zTyJJh4/m9m7/ +gdIWRQdSZggx/z4qFDsHIJSxa07SaggJjTxZI0TXhZoox37G1SHko7rre4KC +Pnx8E9l+qWEI0ccWGzYOG4CKs4Dl2zXDqEDXe01amyHw7osMdrUcRlmU6/P8 +RCOg7NWfxKYMo/k9wi31ISZwe3cwnW12GHWyrJrqOW4Gg6yuBd8sRpDHP6fi +Lkjvh4eBPh7ND0ZQ4YmG2uvhFlBrXtEvuGkU+c+IzG07cQAiFma6Uv1H0azx +3sOvj1lCk+uFP2oTo0jbNn7PwIGD4DnC/3qV8xh6J5LiWq9qBaVSnx0OfxtD +m++HVudsPQQHJeaQtMM4etKtYGrOcxhMyLepR7+PI/EPk86+Y4fhxAGq/Jbt +BFK9Hp+f2X0EGr3C3OWGJlDK6hmlhDpraJ3aYcCjNYke7VH+Gl5hA3Im9opn +Lk6iJM0ovsW8o6Diu+Ad0DyJ2r7di1CNtoWljpo9QvxT6KFZsozneTswK7lU +/t5+Ck25H2TxYNgD66b0N4ysKTS7V95lXM8BxDX/Nm0amkI5Y1/mvTWOgUP+ +/uJ02jSyTr/nZM/tCNZbns7+PDONykpNjq265Ah3tm0y66yeRtqi7xYuLzhC +6MSx/c2L00i62/nr2xPHwVoCqM9aM6if6+T+5L7j4Gs4YRzpO4PaY8ydDA/R +wZFlvRIzfwYl+qVxnWmnw22vx3HqvTOouubvgpOREygk/eCZ5KPQBju4pFrp +BAtKeS8CtSkksel12z/VTjD4apOCmA6FVJrNhDlqnCAo3UHlKbblLtvcz8+d +wMlbVmRxJ4US//F9E9ToBHfbb1qf2U2hzZ0PNjR8xnmOy2cP6VFIxkEoyW7O +CdZ2SYa+MaWQtuN4TrgaAwrlZE0vO1Do/q1Jb3MNBtza/SJnzTEKbXo/vVtI +iwGj7UYPwrHHDeY+5OxkwIOzLennHSl8f7GwNusygPqSbOlFp9D6OT4b/gMM +aGpULdMnKNR/VX1dmjsD5jtCprLcKRRTFXjiyX0GBEsduL4/gELutJvafjkM +eLm18Us5tmluyTqtPAY0RETViQRSiPPmYO7jAgYcSCyM6MUO97IYflTOgKSi +vsZTwRQKlJc5+fAFA7TNXDTPXaCQ6803bqU/GKDhk2JqeIlCRusHd3l1M2B4 +R5V4OvbWcBYeWi8DZI8zEn9jD3qpF5QMMICZLeOaH0mh4+ZpY8WjDAjLnXzK +FUUha3Zvj6LfDPiYGPLnSTSFDL03e+YLMoEvwO1sSzyFXqRFGCcIMyHinICu +VAKFdjVPy/htZoKylXCqL7aK7JsveuJMkOedWid+jUIiHQF632SZoN5iXeSc +SKERnU5BTnUmHLoTKzN4g0KxbHefOh9kwv21vdaxd/D8lbmTzA4xgbOlUfUT +dpitn5fqESYcST2a+k8yhfzKLeT+HmWCGuyVysE+TrDG36AzQTB5qq8ihUKq +TXTGy9NMiInQ0m9Io1BHvCyXdBwTQn/6y8dlUqgQ8biQ8UxIEbwm+hI7bIyq +L7jGhHPGWXkL2DSj+mCtm0yYzYlPO56F14/FadoslQmpXZV92+9RaO+pu1/8 +8pnwSv5qa/F9ComJRWrsLmQCsyU+ugubajp1bVUxEww7BX7yZFMoYwsyiynD ++WTI6RPYS52dtZmVTKiIEP4mmkOhclPRnNYGPK7h88c9l0JXfrOxJzYxYebY +ruAb2PSc4eM2zUw46CySUoPNu7pStL8Nr0fwQiFPHoXcqqxjFz4x4YtUrlQ2 +trTCDV+ZASbY/CrVf/2AQr87gt4PDTJBy21NxBB2ezhTpYhkQuwxASeufAoF +96gNa48y4e3ivkkz7K9J7+33zzChQ/zC4VbshDV8Bv6sBMxVzZlVF1CoerrT +1mcVAfayfKHfsH925nl5sBNg7f1J5zf2rnL9u/R1BCwamNE0CvF+c/T7Y8xH +AM9zU8jB5jU14DfYSMDLDNmoOuydmvzySICAG0NBh39gx/HkH1YVIWCHUpIv +fxEer+wqEZUkIPzy0HsfbOJefoOANAF2vbQd0dhxcee6NsgSICzxkTcTe5DY +yLNanoC+d/xH2lbGNxq6jKoQUCOwvCxZTKHK5Y0hgzQCAsaSPNSxB4a6r3er +EWCm6Oa4D1un1r/ugxYBYZ4FTW7Y/W6F4k+BAGPRnRVF2OutA9Qf6xLAmq6l +8wxbW2+faYk+AZXCVv+1YseI9J67t4+ALvcvjcPYT1YXxaUZExDU9t/Beey+ +iYDsW6YEXNn20IG9hEJarwQ+XrUgQGHg3R8xbHpJ78glSwJMIn2uymNfTS5i +u2hFAFX8b7oadq+XkYqvNf7/1ihzI2weB0FDz6MEEEEGpOVKnlGfvasdAXSC +bbXdyvf/Bl1xcMT1c/k/d8N+wmmcYU0noCV2h5PPSt6sYIUlA/dPuz8iYCWv +p6/NlCBgKTtu+8WVvObiwb0uBPhfV7eKXKnvcdASuBLw7t3bpasr+RnGm3a6 +EeBtxJC/tpJ/VWibugde7z8jn26u5Pv171H2xP1mdeFIxuZmlFjLexHwNabj +cRq25v7gU9I+uD9j2iMZK/k6JhFivgSMhsTcvYcdLSucIuRHwFjth45s7Ee8 +A2V8/gT46XHH52L3/Clp4gokoKlUrTlvJf9ncA97MAGm78wuP8DWeGcy/zeE +gPygIw0r/h8JeREk "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.7630776158498168, + 1.2933767152643254`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.7630776158498185}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5255,21 +10695,21 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, - 1.8971786059380225`}}, + "PlotRange" -> {{0, 180}, {0.7630776158498168, + 1.2933767152643254`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "AxesOrigin" -> {0, 0.7630776158498185}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5283,105 +10723,104 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1Xk0VW8XB3AUlSEkcyRTJHUzRcnexsxTZU7c4ZDKnJ8i8ormpJEmKkoi -CYVUKk1SVEqjc80lhMiQe71Pf5x11mft53zP3s9Z6zmLmBGeHCEBAYHv5Pp3 -j3q9bPGdptcWCS8NRlr8+GAxkGfMtCkCmY+1Ix+IuTkmJzRtaqDpaeKfd8Tu -7Fci4oZPoK4mZOI1cWl88mNhmwZIuJTKe0a8/6lCbXLhG3ih8U7oAXFVU9SF -KYP38LPEd045ce/n+sQddz/C7h3K0leJlbo0/P9Yf4WoOBWlLGKnX4lmMQ00 -zA3iaO4lvj/VKxZf2AbttyaWxxJ/SJFPuB3eAS032sw3EQ+I2PSOGHSBoLeW -kz2xyKFIX8OxbqiNeuW3nFhV+vzzqLvf4fy+ji3ziV2V/1wZsO6DF7mpxz76 -8oHKVZfTnz0APXs0C+4QJ2u5pW1p+AXXlwQ/OEH8Ub55RWzhEBi0dwzbE7P9 -wjYfPzQMDQN2kmrEg+cELt4K/w3Ft5L1R334MFtdX2rIYBQsKsojsolPsB+v -lZL9Awzh5uOhxGpXfZOXj/0B7jLJamNi06XpA9vujkPBkcUS9d58CDWhG3qt -p2AyhdH02YsPI/HbZ4pq84DptmPWGeLdd8XMdWfz4VbpEUtv4iw0vR7SMA2t -k2n3X24g/eU/t4kuFMQHW3Jbz63nQ+HT49wUZSHUCbRa7kw82BOYmHlICF0X -HEudWMeHxCWjZTfDZ2D6UNVKV+ITJYs0fhkI44G+V29oDz58buq7z78sjLnc -BOtkYrXhO35zZUWwU+1H1QLiIiPXY/pjIsjIyKrwcOdDXdVOwa13Z6NX8Km+ -y658GH38jv5uLY7spV93/XDkwzxncamE++JYWJ8SEUjMaLZBCTMJjF6gJ/XG -gQ9hnRW5K5bNxQs30jeV2PMhUqiBsUZcCoWyDq5xt+NDl/qNobQ/0rjpUKyh -hiXZH6p+TqPhPJTKYhjHIB+ErncvUoiah9x7G3trgfRruNCz8Oc8tF3gGLnB -gg9+1kdvvebK4Jk7fr+Zq/nQyIqOkX8pi98zFi6SMuZD69UjB4Nmy+HbJL+U -1UZ86PtZePmarRw+Cd9+hm3IB9HYjnera+Uwo+bFeMkKPtjsWW8UVCGPwf2n -I/WW8aE6z2S0IEcRFfM35ldo8yGvazJuVawKLntGKynJ8cF+w97WmGIV3Plq -h6eULMmvk7Er7lbB6t1F2TPn88Eob6msmq8qJp2I8+mRJvvJDCwTtliIk+zp -Sycl+DD8i/vf91Q1DEu1eHFyJh9kttmUl7moY9CO1M2Lh3jQnSca6h6mji1+ -ZqHcXzyo/Nqk3J+ujiFDxXtOD/AgwHljqnatOuLiJwoCfTzI04vzzDbQQI/a -bXeru3lg1Ht1MEleEx03fvL78IUH60PE9B3btNDJYHl+YR0PIG6DgTdPC10f -hA0tf8yDJWk5K9mK2ngw2SKp7CEPBC4bWiV5aGPj8Ub/ivs8KG719771UBsj -3pw3zqvkgYhXUYrSpcXouabz27Ii0p+Ny4depi5elhXr/5vJA2X1jOSDnUtx -5/fB+ad8eFBzYER3Qkgf6y/pPU/3Iv3/9m2mFunjT8aH7O3reXChTlPXKlAf -t8i+P+vizgP1kOq34y36OL9ExqBnLemvqEuLerkMr3t5UA9NeKCirEqp+TLw -pUuloIIMD5bmx4r/BQM8FVvJ2v10Ci5Ga7pXNBijnvDMA0u1p6ApDlbuyTfD -6QBTSTXmX1gU+N5149Y16KoXMG9FxiRwpm/fUNmB2PJBs/zSvQmQ/1k5S55p -ha8+qhzxbhqHWEPzr8eW2ODrQc+h2r4xYPZPPZfptUXGYZj6IjoGxVYxs3Ia -12JDg2xDOjkn8kbCHhadcECzV35z7pJzZNxS4VVdshO+lU5w2Wo5At8EZgy1 -Bbvg5y/ljoN+vyF8QcTRFA03zA49qDx9YBhubH5eezLNHct6+vYvuTUEO38r -jult9sDCrUfCrw4OwqijndezTZ5Y2BS5VUd3EMz8My27PNahXEDtknp6AN4q -ng+rM1yPzrek2yG7H5SupNYU6GxAWsOQPeHUB5XcJc6uEl5Y6iR7UVDnJ6g2 -D4bE9Xuhw2VWvrdyLxiezCy6zPVGRih7xojoDzg/8/eyY4998F3P/gPCqt/h -tuXyz2lVvmiVlKliu7wHslYekJ4q9MPDwS7Rbl7d0PglP93wkD+G9zn2Pz3T -BRUu5zQjdwfgzdy51i9aO2Fo2zqBcPZGnOlpyxBZ0wmjdrqhA9aBePNsvUth -YQcU9H8ajzHZhFe09938qNABPhfzWRvFgzB1e/kC5rl2KLvltGnG3iBs/ntT -NHZRO5gpv53YPxGEnau7ZzGr2kCDG/L5zeZgtOiJqOkPaINOsS1u5zqCkUya -0SbUBk1HXFlrNzDxx4kPoaKVXDgRnyO2vYmJ0ZKn7I5EcqHm/vQEy4GFHWqv -o2oMubDioZHpYicWluskXOo14MKVx5vjep1ZmPzfNTdF4szn74Yj3VlY1+a0 -MJ7BBert1Z+7vFk4WTiWuVqfC9Ldbt9Oc1ho8iT9zidtUpfIrX2ZwsIc71Vn -opW4IBmAew2rWdi9Y2mmzAwuqM1/1righoWPzU19PYS4wGhwURC5z0IVqdCS -DEEueJr7X/v4kKy3GxSeK0D6XxD3ctcLFg5GZpWpT9Kg9O265POPLDz+y34B -Z4AGzUD5rIAxFo7vag6/10KDWdBAQZoRG+dWlzhUFNNwJXswxtWEjerTY2KH -imiY/27YQt6UjZ3GHg9Y12kYsB1rLljNxi2qX8dlr9HkvBEQbLBioyCLLk/L -I//5MWnfeR5s5D4xXHPsLA2dh43n5Gxjo8jTjLHAAzR4PFvZHBLBxtnlB0rX -7afhvsCqHEYUGwdju30d9tGQHWNh/CiWjTf0IravTKfB1XdtcFcCG1+mHX2v -+j8aqjR9q/QOsLFD6KqO0k4ajtxN3Fx5hY1z1P879iiMhm0Gp83iC9jo/Ubj -3KfNNDhfK51jWsjGjIVn9g2F0iB6uvvanWI2CqTmzNEMoSEt2r33djmZP8yo -8DiLhkRdzS0Vj9hYbDLqdT6AhrDTL7feamWjcUthv68bDQ5zu82juWzkWL5g -HHalQSdNQMKgnY248Ob6hy40dEcbF5d2sdGRedZiqTMNwa45/Tf72Lj7jX22 -uAMNPsIx4SWTZL+KVm8cs6JhbYxSZJEcBz8pPKqJXUnDo5x0x2MKHHyf82pG -hQkN5g3DmvFKHOyKDPb4Y0wDQ+vlJ2tVDmbP5U4nGNGg2JJg/UWLg7zJyILj -K2j4ueqbnKgxBx0HfyiO6NGQIZR7L2QdB7U+qcjsWETmXy6e5bKBPM8YEf+s -RsMe//hoQ28O0u/DxcyJ48vdF0/7cXBztJLcjIWkf0ow8xSTg8V33gSdX0CD -YT2T/SSKgwu3Ya2QAg0tmVpiGkc5OB+r3Y5K0nADJEK/Z3JQp2WfoRLxnv6R -uuLjHKyv+D2eN5cGA4e6JNPTHPQTTtC5J0G+nwBr2OUCqdcFKI6L0WAXkfsp -voiDD1eIrc6aTYOKyj4TixscbNuUY8QgHqmPOD7jJgf9Yx0lX8yi4ZI2uBwp -4yDX4WkIT4QG3rdvtZerOQj6yXmRwjSUOysXvH7OwaTcFLsUIRoOTgoJn6jn -YMvuma6LiZkFvcG+DRwU+axr8lqQBqmZ1cqdjRxcvNSyQJV4612fjIkPHBT8 -r3de/XQraCw5FafZxcHdrNwpR14rTLbsevejm4MB0o5i01Ot0JTGYZR852DW -bYPJMuKkNqNesz4OMr0K49WIP2e92+j2m4NCBVljM/62wrFZ0rY7BSl06vgw -PjLeCjXD3/xjZ1D4d2RLRwlxz7fC6HBhCqFqTtcWYvNym1zmHArbe2z1e8Za -oTso/q+jNIWqSfPf9P5pBSln23m2MhRaSljF3CBevXKeLshSODHffmkM8VGJ -Ii9DRQqFWc/ap0dJvZouVV5E4VQqL0ibmMovei6rQWHRdZ+q4RGy/ugOWlKL -QokLTJ1a4m5KRmKmLoUWvAjHwH91mbWhfQwKf8gPn7/6uxWq+TLJ3Qak7m5z -PZG46wf3JNeIwr0M9UZP4lW1Ox83m1IYaB/lJ0TcufWG6j2kEPVHk8KHW2Gu -T4LxHSsKm23M0ZnYzNreudSGwp4tw/J6xEcU23fk21OYcDhHtG+oFSpnlhzN -caSw5OxRrdfEHb8SrmY7U/id2+lVSmz6VPb9YXcKK72LpnYSM0vbf+71JO8L -V4oKJj58rkTof+sprE1r+2tP3B7twIjzoVD/YtR6ZWKJQLm1kX4U2vqbqIv8 -y3Po2BgWQGHG/5xEhgfJ8wt3HQwMovBc3ibpV8SVoo6XfJgUFmv7m9YQt4/K -VXmyyfyauduLiCXaOhqdKQrlNPRfnCc2bbjZbRdK4cmHAoZHiZl3dvEwjEKb -KsWy1H/5lxznr95KYey3OIf4f/mH5fWMwyl8oiz/Z9u//PhOy+WRFAomTlSy -icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F -8/LxFKYkzL7sSHxbqqtMeieFXw4seW9H3Pa3tF4skUIdyYMqNv/ye5LahJMo -5D/VTbQiNnnrND6dTKHyQZEhS+L/A+Tj8Ok= +1:eJwV1Hc4Vm0cB3AUlVEoKy+vmSijx1Zv9y8jmUkqMtLjeQ4JCUlmZSTJSqUy +MsrIpmEkRYWsppZsHXsdodB7++Nc5/pc93W+53f/7iFJP2XJZGNhYSHxs/I+ +3aok97i9dXedefQzyZMk2j2epU7Xz0dKDkeGV9ydppEoo1+N9mQ8dJXCtmC0 +cHCrvkT5otkgjV3iF1LHrt+Mit5sc5PBvvxKuDYk7y1iK9cbk8WuaD+dukj7 +iEo/jdfJYQ9/bQo8V/UZBWkoTspjbx6Qtv2l9x25f1o+vR3bZCJQ27u5CylX +OhkpY9csDnP55fWg1gFbXxr2pwtCAY88+tBP+5/z6tjjHPrDFG0AHZfjeKuN +zRHtaaM6N4iGDJ8s/4ctzpfScLqKRC4vly7oYpuL/ro/rjeKGqZ0L5tiE3el +BBXXjqNVRbo8ltghsvvDTzZPIM7Bj4NHsD8LfdjhkzeFfPoe3WZgM466nrgW +PY02VK8+cxJ7MpklvdRjBs3QBrO8sNdKKfJO0WaRlCyD/SJ2IqPOkFfgF/J6 +xKIRhS2RbROiPPcLyfDvqE7A1toeMe5eNY86bMwas7BdNLqah/UWEX/amcFm +bMrvzGrOLUuIkyqp68A+X8W1S37tMnK/ePFXL3YSaD1wbv6LNKO77X6v1Hev +Qd8rjxXKaAnbFd1IlPfqWvcFUTboVfJ6pIM9+dMhMD6aDTZMD17fhx2oMFtW +7LEKrMRiDzGxE4skpSdo7KBm8b0jA/tr+2jNciY7aDYx1pdhS0w/PrpegAPE +H1+8XYedr2aeoDjHAbb7QsoGsOsr/FndqtaCwp8gUtGdRLN177tIPW5Iq8lx +aMXmN+XmDajhhrgPjS8GsFU+6AOPNg9s3RF6ZQnbtf/h3R1K68HO/pmxkgeJ +PNmaVf7j5oVoFvr5ROwBqcKp8F984Bfg2+B9CveHaFrXpsoPObPKvvHYbA8G +JYVP88OvwLDIImwJ1X8t80b4gfL/+3UU+6heXGlr90aIbNbVdPMkUZuTl7fQ +GwHITVBsCTpNoh/ZMVcc1wpCbkxxfTr26EheZq6BIFgsv5V4hc3p0/d+Z60g +HJWb4uD1IpF+mJWa40MhYDXNjsrBrszSmM1JE4Etygqeo94kyhr47avjIwZ9 +I04Pn/mSaN+hSz+8C8TgrHY4xxj2aP3GvQWDYsCR6Vy0+SyJ1LK2C0jYiMON +Rs+1Z7Hr6Q5l7Lv/hadn7nSo+pFoeqL7LBkqAXI60cNPz5Foo7t+eZmZFLy6 +XNu/MYhEg1mcLhauUsDdFKlkiv3ke7voWIQUFJCb28Ow7UztQ7fUSkHZTMrm +Oeysbb6Wt2jSMF4p19IVjP8/nD0ZLCQDCkKxOc/Pk8jKmUvRuEcWbl8kdV6H +kQj5HqIdWZIFSXly27pwEimEp2kyRLZAVKjlaRNslkxV3eADW2D9XZeFduyC +H7ZHSp9vAf/UzOWuCHw+D+df2JwhB0o/Ujt5LuP69M0+DdPlIZXknMy5SqLM +gze/zQXLQ6/fmlOz2DH0nu7Vd+RhIe+crm4M3t/nz4yIv5cHA0bt4HdsvuoU +loN6CvDSsEdGMA7vH9VxhSrpbYCCX5xNSiCRqFRsyJX+7fBjTbL/95skqo6i +5BfYFKFR4dOYThLux4zNB0JSEaIjztffwk6tl5HXdVCE/h65ZOtbJJJyrnw3 +36EIbext1NfbeL75A7LEGyXgfzZuMp1CIjFRcULCRgW6XJcST2aRaPs9H+4/ +iAablLWKIktJRGeEziqa02DM/+Paeewk6YQfjnY0aPfYVuFcRqJVGUXFr/xo +oLZmlfi+cnzeUoetEkpoQLG7z3M/wvdpkmOKvLQqBN+Onrxfgdf3iqmSNYca +5BkvToo+J1G6l4zFw2Z1WE1dMOZ8S6J2X6QZdk8bnpZs3a8zTyJJh4/m9m7/ +gdIWRQdSZggx/z4qFDsHIJSxa07SaggJjTxZI0TXhZoox37G1SHko7rre4KC +Pnx8E9l+qWEI0ccWGzYOG4CKs4Dl2zXDqEDXe01amyHw7osMdrUcRlmU6/P8 +RCOg7NWfxKYMo/k9wi31ISZwe3cwnW12GHWyrJrqOW4Gg6yuBd8sRpDHP6fi +Lkjvh4eBPh7ND0ZQ4YmG2uvhFlBrXtEvuGkU+c+IzG07cQAiFma6Uv1H0azx +3sOvj1lCk+uFP2oTo0jbNn7PwIGD4DnC/3qV8xh6J5LiWq9qBaVSnx0OfxtD +m++HVudsPQQHJeaQtMM4etKtYGrOcxhMyLepR7+PI/EPk86+Y4fhxAGq/Jbt +BFK9Hp+f2X0EGr3C3OWGJlDK6hmlhDpraJ3aYcCjNYke7VH+Gl5hA3Im9opn +Lk6iJM0ovsW8o6Diu+Ad0DyJ2r7di1CNtoWljpo9QvxT6KFZsozneTswK7lU +/t5+Ck25H2TxYNgD66b0N4ysKTS7V95lXM8BxDX/Nm0amkI5Y1/mvTWOgUP+ +/uJ02jSyTr/nZM/tCNZbns7+PDONykpNjq265Ah3tm0y66yeRtqi7xYuLzhC +6MSx/c2L00i62/nr2xPHwVoCqM9aM6if6+T+5L7j4Gs4YRzpO4PaY8ydDA/R +wZFlvRIzfwYl+qVxnWmnw22vx3HqvTOouubvgpOREygk/eCZ5KPQBju4pFrp +BAtKeS8CtSkksel12z/VTjD4apOCmA6FVJrNhDlqnCAo3UHlKbblLtvcz8+d +wMlbVmRxJ4US//F9E9ToBHfbb1qf2U2hzZ0PNjR8xnmOy2cP6VFIxkEoyW7O +CdZ2SYa+MaWQtuN4TrgaAwrlZE0vO1Do/q1Jb3MNBtza/SJnzTEKbXo/vVtI +iwGj7UYPwrHHDeY+5OxkwIOzLennHSl8f7GwNusygPqSbOlFp9D6OT4b/gMM +aGpULdMnKNR/VX1dmjsD5jtCprLcKRRTFXjiyX0GBEsduL4/gELutJvafjkM +eLm18Us5tmluyTqtPAY0RETViQRSiPPmYO7jAgYcSCyM6MUO97IYflTOgKSi +vsZTwRQKlJc5+fAFA7TNXDTPXaCQ6803bqU/GKDhk2JqeIlCRusHd3l1M2B4 +R5V4OvbWcBYeWi8DZI8zEn9jD3qpF5QMMICZLeOaH0mh4+ZpY8WjDAjLnXzK +FUUha3Zvj6LfDPiYGPLnSTSFDL03e+YLMoEvwO1sSzyFXqRFGCcIMyHinICu +VAKFdjVPy/htZoKylXCqL7aK7JsveuJMkOedWid+jUIiHQF632SZoN5iXeSc +SKERnU5BTnUmHLoTKzN4g0KxbHefOh9kwv21vdaxd/D8lbmTzA4xgbOlUfUT +dpitn5fqESYcST2a+k8yhfzKLeT+HmWCGuyVysE+TrDG36AzQTB5qq8ihUKq +TXTGy9NMiInQ0m9Io1BHvCyXdBwTQn/6y8dlUqgQ8biQ8UxIEbwm+hI7bIyq +L7jGhHPGWXkL2DSj+mCtm0yYzYlPO56F14/FadoslQmpXZV92+9RaO+pu1/8 +8pnwSv5qa/F9ComJRWrsLmQCsyU+ugubajp1bVUxEww7BX7yZFMoYwsyiynD ++WTI6RPYS52dtZmVTKiIEP4mmkOhclPRnNYGPK7h88c9l0JXfrOxJzYxYebY +ruAb2PSc4eM2zUw46CySUoPNu7pStL8Nr0fwQiFPHoXcqqxjFz4x4YtUrlQ2 +trTCDV+ZASbY/CrVf/2AQr87gt4PDTJBy21NxBB2ezhTpYhkQuwxASeufAoF +96gNa48y4e3ivkkz7K9J7+33zzChQ/zC4VbshDV8Bv6sBMxVzZlVF1CoerrT +1mcVAfayfKHfsH925nl5sBNg7f1J5zf2rnL9u/R1BCwamNE0CvF+c/T7Y8xH +AM9zU8jB5jU14DfYSMDLDNmoOuydmvzySICAG0NBh39gx/HkH1YVIWCHUpIv +fxEer+wqEZUkIPzy0HsfbOJefoOANAF2vbQd0dhxcee6NsgSICzxkTcTe5DY +yLNanoC+d/xH2lbGNxq6jKoQUCOwvCxZTKHK5Y0hgzQCAsaSPNSxB4a6r3er +EWCm6Oa4D1un1r/ugxYBYZ4FTW7Y/W6F4k+BAGPRnRVF2OutA9Qf6xLAmq6l +8wxbW2+faYk+AZXCVv+1YseI9J67t4+ALvcvjcPYT1YXxaUZExDU9t/Beey+ +iYDsW6YEXNn20IG9hEJarwQ+XrUgQGHg3R8xbHpJ78glSwJMIn2uymNfTS5i +u2hFAFX8b7oadq+XkYqvNf7/1ihzI2weB0FDz6MEEEEGpOVKnlGfvasdAXSC +bbXdyvf/Bl1xcMT1c/k/d8N+wmmcYU0noCV2h5PPSt6sYIUlA/dPuz8iYCWv +p6/NlCBgKTtu+8WVvObiwb0uBPhfV7eKXKnvcdASuBLw7t3bpasr+RnGm3a6 +EeBtxJC/tpJ/VWibugde7z8jn26u5Pv171H2xP1mdeFIxuZmlFjLexHwNabj +cRq25v7gU9I+uD9j2iMZK/k6JhFivgSMhsTcvYcdLSucIuRHwFjth45s7Ee8 +A2V8/gT46XHH52L3/Clp4gokoKlUrTlvJf9ncA97MAGm78wuP8DWeGcy/zeE +gPygIw0r/h8JeREk "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.4834141591801878}, + "PlotRange" -> {{0, 180}, {0.7630776158498168, 1.2933767152643254`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7630776158498185}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5391,7 +10830,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.4834141591801878}, + AxesOrigin->{0, 0.7630776158498185}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5419,7 +10859,8 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.48341415918018676`, 1.8971786059380225`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.7630776158498168, 1.2933767152643254`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5427,9 +10868,9 @@ icXZpT660RQ2LlQ5FkC80i0pQiOWwlXWKSkb/uWvckpXiaPQ01xrrxvxIS2F Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913460797739086`*^9}, + CellChangeTimes->{3.9913460797739086`*^9, 3.993827597179472*^9}, CellLabel-> - "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] + "Out[212]=",ExpressionUUID->"dd7f41b6-7740-4fd3-964a-ed5ad7c922e9"] }, Open ]], Cell[CellGroupData[{ @@ -5492,207 +10933,161 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.9918502644064465`*^9, - 3.9918502684162617`*^9}},ExpressionUUID->"42ddbf41-0bd8-b749-bead-\ -56c89a9b7467"], + CellChangeTimes->{{3.9918502644064465`*^9, 3.9918502684162617`*^9}}, + CellLabel-> + "In[213]:=",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7282513679946418`*^-262\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 444, - 477, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080016945*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.62750386593798`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 213, + 49, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993827597319569*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], +In[213]:=",ExpressionUUID->"ffdd2f82-73d3-41d0-a448-e11a5cd5210c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.051404188998911`*^-278\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 213, + 50, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993827597326605*^9}, + CellLabel-> + "During evaluation of \ +In[213]:=",ExpressionUUID->"6a3a654e-f2d1-4812-8233-f13138033ac6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.517216668266839`*^-290\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 444, 478, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080026985*^9}, + 213, 51, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993827597333839*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 444, 479, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913460800358925`*^9}, - CellLabel-> - "During evaluation of \ -In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], +In[213]:=",ExpressionUUID->"ed6abf2c-ac95-447c-9cfe-acd12900646b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 444, 480, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991346080043894*^9}, +during this calculation.\"", 2, 213, 52, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991346080016945*^9, 3.993827597341304*^9}, CellLabel-> "During evaluation of \ -In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], +In[213]:=",ExpressionUUID->"500927b2-08ee-4fb9-9ed6-2b365f7642f3"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c4Vv0bAHA/EkJE9nzO8xhlRcYrHvdNkfGikEJGRBNFWZVVopJkZBRl +pGE850EKJS9etBQqIyMaSmZWGvzO+9e5Ptd1zvX9fu9zj3No3oEOvpwcHBzc +/+Pg+O86P/CkiXGh0OT1hLr7/DyYvM6VDDftjoVSs45TNg5ygGIvvSW7UyDq +8vlMXgcNCNl2t4urOx9uG5g39W1nwpoJiZTFrnK49WbaMWe7LQw+tAuc7WqA +j1xGZ7u2uYMFY7R/uqsDfPLNw/ps/WGxyyB9qmsY7ljFM/9ndgoaN98qbM+f +AUb5CR1diySQHaz+7K3+B8KGrIv/MK/A2sOed3k2c+H7HgmJtolrkKJtUWu3 +gxc9zhv4m37Kg57MDfXTwoIYsM9+4OJAIVwojHrJKbUGHzjp8VxtuwUSaR/O +peaI4q8R7sUuj7sQ72Rl0jEvhpszlpz7gktAurJNmvN/4pjntjZY72QJlIk6 +LWjzi+OZ+P6bCWdK4G2HB3lZQRxFRyps5NJLgLH9GLHdUhy7ZXgil++VQIPt +9ZWvssTRLjyfLJovgT8Wc20vjCXwo5WAY0RwKQQb5nk+iZXEzxz+HoJuZWB9 +Y/WsTaIkPrpVkXN0TxkQPCcT2tIl8ecW/6RX+8rg1WtndudtSZxor4uNPFYG +mkcEuAbaJPFl+tuS7Itl8KUotOi7tBRu1iyv7awrg91r7cZlKqQwbSa9xkKO +BRtP1MbkPpTC2bGUixx0FqwaVhWnNUuhjIQo3z1VFlSzuEC5Rwr/Nvj4Q1CX +BeI21ckblqUwwVz4fpQ1C17FMHTNbaTx8oeyRO8QFmyZ/BkR8EEaJ3N3fWQ8 +ZUG4Zdr6f8akUZPJUpB+yYKyPI1e0Xlp3H1qSW/VaxZIOnkZVvPKoP3ohZne +fhaMPfh3gUtTBndeby83mWZBamzysawwGTS2WCyM5ydhWEw5oElQFuO/WZAH +tUiQCHwsJyEhiyWtwfyp2iT83brrxQFFWZwoDX/zYCMJVREX1IU2ymJ4//6q +3wYknB+cGnXZJYvTgz5lvkiCzp3afZP5smif53/x4TYSYoy375H+Sw4dTDQH +IwNJsPTI/W5gJoei/BVqp46SsDr62+kdf8thVZljaFgwCdca44qSveRweHWT +gF8oCQ+sa76tPCeHSo2p+nJRJEztoofM9MhhrsK+ml8XSfA4Pnf++Ql57BEO +dzpxhwSlDDPZ0Th5dDq3d1mqmKTOf6mUJ1kem1u+s++VkBDxe90rs0J5jCPM +tD6ySEg/7SFW/VweQ2I/pcpVkfD8csv1m3IKWJ7/bDtnAwmbyrIqIx8roOgn +2HCli4QtXW1/JloVkD+oXeWfbhLsOFZs9exQwIc8talfe0jwcQjogU8KmB/y +44lOHwkWJ2hR0dyK+Cd7vLroPQlHFOYLTNUUkcdr64+1X0mYq0huXdRSxMhC +GS+JUWp/lmrjbF1F7KoXN5P4RkLcUS99wkQRA7RWhQiNk5Dd+LSVc7siEp2N +t4emSGjad328MUQR13l6pQj+IMHqt6HIyROK2Ckz+GyEclvya33daEUUKPoW +93iRhJ5qvujCc4r415bdp/b9ImGC/5hI3DVFPNkUGZe1RIIkaWlg0aCInyf/ +cTu7gg05Wz64LTUr4v86Ktv/4mYD0XMquuqZIhqabnj5hbIGZ8UT5TeKmMdM +9TblYYOZk9xuni+K+Jw+uvCajw2Hf0xHtwrSsCicND+7mg2bjvqJfxahYXXf +uSVZITbwjvYWc0nS0OKtag9J+ea7xrcmBA2d+/XnXwqzYaAuXf2ePg3lxP4a ++ibChhKDVQ0dRjS80dJffUiUDRFk5M4ppOGxn67VXyiL5++LVbOh4d23QVq9 +a9lgH2fYnedJQ9Pfe1ZdFWeD/FKp/+O91HoKvOorJNgwFkJw9R+gYURmc/hB +ygn7+TUlj9Hwd8Wma5qSbHAeimrUC6chp65VUCJlhuvsLsdIGrY00UJHKNfb +9J9OSqChV/GoULoUG5KatkuVXKThyWTDmyOUdzOby56k0HC+QOiwgTQbFjVZ +PStyaBhpIH65jXLrLXogkU/D6K93p8Rk2HBFMXMF3qJhh/qlM66UdURitE6w +aZgXLv73O8ocF+aaMqtoWGtJj5GQZUMb10HXqloaBm10HN9G+dCcQ9z0vzRM +jF7wr6W8KaBFWugZDVU13p0eo8w7YkSqv6JhT0J9p7QcGwq7Ge/29dIw1y+E +EUg5aHvWkbhBGjrerlVOp4xPBVcWfKTOJzHm+4Dy6s2xV+u/0vB4U+NwN+X+ +2vkNAxM0PHt4OWeeconuoeZfMzTcGbY7c4089X5KB92kFmnI/TuzYx1lS2Wn +af0lKt5VwbZAWfx661knLgJ51pTwOVD+KMGUDeIlsFuek9ebcnkym31JkMCo +a/pWgZSj+ZS3looQeHxyVVs4ZfvY7L6nEgQWKZlmxFCW/7U66IssgZ9nr948 +S3ks+DTPSoLAyJqBxQTKNWML1+gqBD6IeJH2nxN8D+uYqhNo/V49NI6y88D7 +Fg9tAqeNGvKiKDN27nA/qU/gp9OOYqGUv7988j3LiEBPx1sdhyjXW5ok3EcC +6aNnet0pJ/1TLvfGnMA5tUoNW8q7N6lUfLcmUOXGn+eGlNdXXLUU3kbgmqPr +q+mUF9WEBzR2EHjt0IqZVZTnc6RjNrpS++2V4pyi4jkrpMQw9CQwr8gnvIPy +dIxWi8leAt+eyXcppzwxY3hwywECRR5nFFyi/M13i6B1AIF8uty7DlL+0mVH +2gcTeNe5NNSM8nCtz7zrKQINHGt+jVL5MKgRkOUVS6DebNGe//Kl73qYsV88 +gWtf9eudo/z29MXYo5cJzBJCdTnKnXMZSqFXCFR9umD/gcrHV/vyW09eJfD0 +YZFPRZSf2txfnXCTQAebS37KlFse/cO+eJfAr56xTsNUvjdpPXdKZRF4k/9n +1VXKdaJD2bnVBMYv5vatpFz+bpXKvRcE9nfO1tdR9cWyFXta00GghKfJAT/K +JY8V/Ou7CHxz9GAiP+WiAt2KZ0MEvootsLCj6jf7kAcMzxHIbLLMuyfGhoz+ +/cMjPwkM1HIwsKKcZh8cN75MoGRNnd1//SFpY8KzH3x0nLnEzz1H9Y/YX+yd +QvJ0jNmUXSRA9Zso/4c/19LpmDY64JG4hg0nB5tzpFXpaMu/7jof5ZDGdx+U +dOi45Ypq7W+qfx26wH3E2IKO/SIBYf8KsmH/HyFRMxvq/sngBG3KfoHSVVu3 +0bHS2UzlqgAbvBy1fju40vF7b8HaffxscJJxSTgQQMekqdjmIV42GBeX3Lhy +hY5rhtIsfbjY8E6x+Lr5VTpeFdjheI+Tqq8rd3Jnr9NxqtvRmpvy/Ziiaw53 +6Hhz5ttyLgfVP3bdyFz9kI4+RmRO9R8S1nGnJZ8douPS7G/zxAUSWiNSLul9 +pqOwd8ihR/Mk+E0lJ30cpaO6VHvC2BwJhe8uJprN0nFkQr5syywJiuXxCUsr +GTgbMnC/j5o/4p4nokPUGZhRJBxYQs2ze6/Do5S0GdggOHvo0RcSnKzDIl/r +MfBMJnn4+QgJKXrHT+oAA5O16k5+/ESCoEBg2MR2Br6yPTn2e4iEFdXeR/xC +GejvzV/1kpqn0yLWXs4NDKwM3eTO2UpC92Hi1cEWBgpZcfxb20xCffNPiHpO +PV9jPxv0LwnJEcUKt98ycGhPdmkvNb83DAsMLo4y8EOM261Lj0gIYL90zxFV +wl1u+deSy0kYtd/h9nGvEmYp/PVkLpuEjjsaz34cUKL6tZTiwSwSarhWGgkG +KuELWpFnXwYJ5+5XSeuHK2Eq4+e1mjQSVBUke+MvKqHggp6mRxIJ+yZ6d6lV +KeHtnRuzzGJI+Jjo5RzEo4wMyeE1Cb7U+qPqxAYBZRReUWnb60PCwtbF8XFh +Zaxbt+LNem8SVnGlxB2QVsZE3+InzR7U/sMbK700lLHz+pzP6E4STvkqi9o7 +KiNPjyBjyIqKv8nYS7XrynjW/IlEqjo1/ydDrT7pq+AzMeZUSC8LZLXlz/Ia +q6DabSnb+TcsmAhqalAzVcGKASPtoHYWpM0LGwfZqOBgY3mmZysLBv7c0Vz2 +VMHziXTlNVUsCBLoE5U6p4K6t25atSezIHsdDvz9TgWLzxpvfLuZ+r704Q2u +jFLFXXakfOiNMup/Q4IzvmEd7na25VOFUhB5oZxETq7HMhfnoK1vikE2gbVN +X18d+5Q79HR17kKmmqGw6D4N3OHOM+mQdRueSpvqzVzWxMCXatopS0WwSbYh +WeutFpoYZy2WGN+E1Vz5x/bEbkBnkXOxl7MLQD5GwdhFWRuXzhNrefrzgE9p +d5VDizZWZix83qp7AzSZUqxQdx1M2yHkaxiQA0EDIo3WHBsx2r6krtw1GyZn +EndYZW5ESaHbfROFGbBVqznbSkMXv2t3R1Uqp0PdjNGvhTZd7LZr329ekAIB +6jq97b56qCy75ZxwRDIwJ/a+duHTR3tWXv3j4kQwZ0jaCubr41j8ZPQO/nOg +Gn0+rMHAAJtEf1mOdcbBel/Dx0q9Blgi7rt1uCIWfOv2n6k8+hdGYLr7skw0 +PL7xeu+0mCFySbTge9MTMHt7eUHrviG+3OTX3McRCj5KxXzZtptw4IGTsen5 +YJhen6pfPrUJH18aGRmxPAIPCn8NzSUY4f6Dwt/SnQ+B6xY6Gskb4/GZ70sx +3/xAxj++WrPeGGVAy1z9jTckLfvpXWgwxk8ejrI6Ld7AmWLBHmkyxrWzX8ex +2htGq7jv3HhijOsSVALCc7yhhuNMpkinMRZ8NPHZ4ecNrmnRofOfjLH1haLK +vcU9kFkbrlfHz8RtxaoZs8p7QGzVYbbtTiaq75lxWND1hMLNpyKmXJiYfKFZ +N0zaE3ROJW1O3c3E8+dy7wtweILdFPmmew8TvUt9jh555gFn384t+hxmYnXY +AX+ajwf8yI8yi4hhomC0+k6FK+7Qa5TaWVTMRCHmkMumVbth//HCa1ZlTGyz +y5iU/O4G82X3fMdIJn43Xnmfr9cNRIjuBe0qJtqGbC+j3XUDG1452Uf1TPyl +4b9yvY0bPHxdtLfzDRPp1dx3U5JdwXr1A42QbiYubgtWvhTuCt1bn8xLvmPi +iA1Jz/F2hdmabwke75kYb/T72LiuK2jkbSj9OsrElZvTzDx6XeBhr2lI4jgT +tyaIpX9qdAHrtY6gNcXEvMsFayJLXcAv/nj7sTkm7qnudR+OdoHZ+rPZEj+Y +yJnCJ1l20AVif2b41PxkYmHBtvbzTi4grHtH3f0PE9cTS5FhJi6Q618zt7zM +xKane8VDVV3g/zoLWwY= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5706,166 +11101,116 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb +1:eJwV13c4Vv0bAHA/EkJE9nzO8xhlRcYrHvdNkfGikEJGRBNFWZVVopJkZBRl +pGE850EKJS9etBQqIyMaSmZWGvzO+9e5Ptd1zvX9fu9zj3No3oEOvpwcHBzc +/+Pg+O86P/CkiXGh0OT1hLr7/DyYvM6VDDftjoVSs45TNg5ygGIvvSW7UyDq +8vlMXgcNCNl2t4urOx9uG5g39W1nwpoJiZTFrnK49WbaMWe7LQw+tAuc7WqA +j1xGZ7u2uYMFY7R/uqsDfPLNw/ps/WGxyyB9qmsY7ljFM/9ndgoaN98qbM+f +AUb5CR1diySQHaz+7K3+B8KGrIv/MK/A2sOed3k2c+H7HgmJtolrkKJtUWu3 +gxc9zhv4m37Kg57MDfXTwoIYsM9+4OJAIVwojHrJKbUGHzjp8VxtuwUSaR/O +peaI4q8R7sUuj7sQ72Rl0jEvhpszlpz7gktAurJNmvN/4pjntjZY72QJlIk6 +LWjzi+OZ+P6bCWdK4G2HB3lZQRxFRyps5NJLgLH9GLHdUhy7ZXgil++VQIPt +9ZWvssTRLjyfLJovgT8Wc20vjCXwo5WAY0RwKQQb5nk+iZXEzxz+HoJuZWB9 +Y/WsTaIkPrpVkXN0TxkQPCcT2tIl8ecW/6RX+8rg1WtndudtSZxor4uNPFYG +mkcEuAbaJPFl+tuS7Itl8KUotOi7tBRu1iyv7awrg91r7cZlKqQwbSa9xkKO +BRtP1MbkPpTC2bGUixx0FqwaVhWnNUuhjIQo3z1VFlSzuEC5Rwr/Nvj4Q1CX +BeI21ckblqUwwVz4fpQ1C17FMHTNbaTx8oeyRO8QFmyZ/BkR8EEaJ3N3fWQ8 +ZUG4Zdr6f8akUZPJUpB+yYKyPI1e0Xlp3H1qSW/VaxZIOnkZVvPKoP3ohZne +fhaMPfh3gUtTBndeby83mWZBamzysawwGTS2WCyM5ydhWEw5oElQFuO/WZAH +tUiQCHwsJyEhiyWtwfyp2iT83brrxQFFWZwoDX/zYCMJVREX1IU2ymJ4//6q +3wYknB+cGnXZJYvTgz5lvkiCzp3afZP5smif53/x4TYSYoy375H+Sw4dTDQH +IwNJsPTI/W5gJoei/BVqp46SsDr62+kdf8thVZljaFgwCdca44qSveRweHWT +gF8oCQ+sa76tPCeHSo2p+nJRJEztoofM9MhhrsK+ml8XSfA4Pnf++Ql57BEO +dzpxhwSlDDPZ0Th5dDq3d1mqmKTOf6mUJ1kem1u+s++VkBDxe90rs0J5jCPM +tD6ySEg/7SFW/VweQ2I/pcpVkfD8csv1m3IKWJ7/bDtnAwmbyrIqIx8roOgn +2HCli4QtXW1/JloVkD+oXeWfbhLsOFZs9exQwIc8talfe0jwcQjogU8KmB/y +44lOHwkWJ2hR0dyK+Cd7vLroPQlHFOYLTNUUkcdr64+1X0mYq0huXdRSxMhC +GS+JUWp/lmrjbF1F7KoXN5P4RkLcUS99wkQRA7RWhQiNk5Dd+LSVc7siEp2N +t4emSGjad328MUQR13l6pQj+IMHqt6HIyROK2Ckz+GyEclvya33daEUUKPoW +93iRhJ5qvujCc4r415bdp/b9ImGC/5hI3DVFPNkUGZe1RIIkaWlg0aCInyf/ +cTu7gg05Wz64LTUr4v86Ktv/4mYD0XMquuqZIhqabnj5hbIGZ8UT5TeKmMdM +9TblYYOZk9xuni+K+Jw+uvCajw2Hf0xHtwrSsCicND+7mg2bjvqJfxahYXXf +uSVZITbwjvYWc0nS0OKtag9J+ea7xrcmBA2d+/XnXwqzYaAuXf2ePg3lxP4a ++ibChhKDVQ0dRjS80dJffUiUDRFk5M4ppOGxn67VXyiL5++LVbOh4d23QVq9 +a9lgH2fYnedJQ9Pfe1ZdFWeD/FKp/+O91HoKvOorJNgwFkJw9R+gYURmc/hB +ygn7+TUlj9Hwd8Wma5qSbHAeimrUC6chp65VUCJlhuvsLsdIGrY00UJHKNfb +9J9OSqChV/GoULoUG5KatkuVXKThyWTDmyOUdzOby56k0HC+QOiwgTQbFjVZ +PStyaBhpIH65jXLrLXogkU/D6K93p8Rk2HBFMXMF3qJhh/qlM66UdURitE6w +aZgXLv73O8ocF+aaMqtoWGtJj5GQZUMb10HXqloaBm10HN9G+dCcQ9z0vzRM +jF7wr6W8KaBFWugZDVU13p0eo8w7YkSqv6JhT0J9p7QcGwq7Ge/29dIw1y+E +EUg5aHvWkbhBGjrerlVOp4xPBVcWfKTOJzHm+4Dy6s2xV+u/0vB4U+NwN+X+ +2vkNAxM0PHt4OWeeconuoeZfMzTcGbY7c4089X5KB92kFmnI/TuzYx1lS2Wn +af0lKt5VwbZAWfx661knLgJ51pTwOVD+KMGUDeIlsFuek9ebcnkym31JkMCo +a/pWgZSj+ZS3looQeHxyVVs4ZfvY7L6nEgQWKZlmxFCW/7U66IssgZ9nr948 +S3ks+DTPSoLAyJqBxQTKNWML1+gqBD6IeJH2nxN8D+uYqhNo/V49NI6y88D7 +Fg9tAqeNGvKiKDN27nA/qU/gp9OOYqGUv7988j3LiEBPx1sdhyjXW5ok3EcC +6aNnet0pJ/1TLvfGnMA5tUoNW8q7N6lUfLcmUOXGn+eGlNdXXLUU3kbgmqPr +q+mUF9WEBzR2EHjt0IqZVZTnc6RjNrpS++2V4pyi4jkrpMQw9CQwr8gnvIPy +dIxWi8leAt+eyXcppzwxY3hwywECRR5nFFyi/M13i6B1AIF8uty7DlL+0mVH +2gcTeNe5NNSM8nCtz7zrKQINHGt+jVL5MKgRkOUVS6DebNGe//Kl73qYsV88 +gWtf9eudo/z29MXYo5cJzBJCdTnKnXMZSqFXCFR9umD/gcrHV/vyW09eJfD0 +YZFPRZSf2txfnXCTQAebS37KlFse/cO+eJfAr56xTsNUvjdpPXdKZRF4k/9n +1VXKdaJD2bnVBMYv5vatpFz+bpXKvRcE9nfO1tdR9cWyFXta00GghKfJAT/K +JY8V/Ou7CHxz9GAiP+WiAt2KZ0MEvootsLCj6jf7kAcMzxHIbLLMuyfGhoz+ +/cMjPwkM1HIwsKKcZh8cN75MoGRNnd1//SFpY8KzH3x0nLnEzz1H9Y/YX+yd +QvJ0jNmUXSRA9Zso/4c/19LpmDY64JG4hg0nB5tzpFXpaMu/7jof5ZDGdx+U +dOi45Ypq7W+qfx26wH3E2IKO/SIBYf8KsmH/HyFRMxvq/sngBG3KfoHSVVu3 +0bHS2UzlqgAbvBy1fju40vF7b8HaffxscJJxSTgQQMekqdjmIV42GBeX3Lhy +hY5rhtIsfbjY8E6x+Lr5VTpeFdjheI+Tqq8rd3Jnr9NxqtvRmpvy/Ziiaw53 +6Hhz5ttyLgfVP3bdyFz9kI4+RmRO9R8S1nGnJZ8douPS7G/zxAUSWiNSLul9 +pqOwd8ihR/Mk+E0lJ30cpaO6VHvC2BwJhe8uJprN0nFkQr5syywJiuXxCUsr +GTgbMnC/j5o/4p4nokPUGZhRJBxYQs2ze6/Do5S0GdggOHvo0RcSnKzDIl/r +MfBMJnn4+QgJKXrHT+oAA5O16k5+/ESCoEBg2MR2Br6yPTn2e4iEFdXeR/xC +GejvzV/1kpqn0yLWXs4NDKwM3eTO2UpC92Hi1cEWBgpZcfxb20xCffNPiHpO +PV9jPxv0LwnJEcUKt98ycGhPdmkvNb83DAsMLo4y8EOM261Lj0gIYL90zxFV +wl1u+deSy0kYtd/h9nGvEmYp/PVkLpuEjjsaz34cUKL6tZTiwSwSarhWGgkG +KuELWpFnXwYJ5+5XSeuHK2Eq4+e1mjQSVBUke+MvKqHggp6mRxIJ+yZ6d6lV +KeHtnRuzzGJI+Jjo5RzEo4wMyeE1Cb7U+qPqxAYBZRReUWnb60PCwtbF8XFh +Zaxbt+LNem8SVnGlxB2QVsZE3+InzR7U/sMbK700lLHz+pzP6E4STvkqi9o7 +KiNPjyBjyIqKv8nYS7XrynjW/IlEqjo1/ydDrT7pq+AzMeZUSC8LZLXlz/Ia +q6DabSnb+TcsmAhqalAzVcGKASPtoHYWpM0LGwfZqOBgY3mmZysLBv7c0Vz2 +VMHziXTlNVUsCBLoE5U6p4K6t25atSezIHsdDvz9TgWLzxpvfLuZ+r704Q2u +jFLFXXakfOiNMup/Q4IzvmEd7na25VOFUhB5oZxETq7HMhfnoK1vikE2gbVN +X18d+5Q79HR17kKmmqGw6D4N3OHOM+mQdRueSpvqzVzWxMCXatopS0WwSbYh +WeutFpoYZy2WGN+E1Vz5x/bEbkBnkXOxl7MLQD5GwdhFWRuXzhNrefrzgE9p +d5VDizZWZix83qp7AzSZUqxQdx1M2yHkaxiQA0EDIo3WHBsx2r6krtw1GyZn +EndYZW5ESaHbfROFGbBVqznbSkMXv2t3R1Uqp0PdjNGvhTZd7LZr329ekAIB +6jq97b56qCy75ZxwRDIwJ/a+duHTR3tWXv3j4kQwZ0jaCubr41j8ZPQO/nOg +Gn0+rMHAAJtEf1mOdcbBel/Dx0q9Blgi7rt1uCIWfOv2n6k8+hdGYLr7skw0 +PL7xeu+0mCFySbTge9MTMHt7eUHrviG+3OTX3McRCj5KxXzZtptw4IGTsen5 +YJhen6pfPrUJH18aGRmxPAIPCn8NzSUY4f6Dwt/SnQ+B6xY6Gskb4/GZ70sx +3/xAxj++WrPeGGVAy1z9jTckLfvpXWgwxk8ejrI6Ld7AmWLBHmkyxrWzX8ex +2htGq7jv3HhijOsSVALCc7yhhuNMpkinMRZ8NPHZ4ecNrmnRofOfjLH1haLK +vcU9kFkbrlfHz8RtxaoZs8p7QGzVYbbtTiaq75lxWND1hMLNpyKmXJiYfKFZ +N0zaE3ROJW1O3c3E8+dy7wtweILdFPmmew8TvUt9jh555gFn384t+hxmYnXY +AX+ajwf8yI8yi4hhomC0+k6FK+7Qa5TaWVTMRCHmkMumVbth//HCa1ZlTGyz +y5iU/O4G82X3fMdIJn43Xnmfr9cNRIjuBe0qJtqGbC+j3XUDG1452Uf1TPyl +4b9yvY0bPHxdtLfzDRPp1dx3U5JdwXr1A42QbiYubgtWvhTuCt1bn8xLvmPi +iA1Jz/F2hdmabwke75kYb/T72LiuK2jkbSj9OsrElZvTzDx6XeBhr2lI4jgT +tyaIpX9qdAHrtY6gNcXEvMsFayJLXcAv/nj7sTkm7qnudR+OdoHZ+rPZEj+Y +yJnCJ1l20AVif2b41PxkYmHBtvbzTi4grHtH3f0PE9cTS5FhJi6Q618zt7zM +xKane8VDVV3g/zoLWwY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.0668721780809651}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -5877,19 +11222,19 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.0668721780809651}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -5903,165 +11248,115 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13k4VV0XAHCZuUhEomS47uhSMqSwFqIMScYMmTJmLkmkkDFDJaE0IGlW -QjIk4d5UQiKUVGSoSF6Sinzn++s8v2fvfc5+1llr7XMUvUJtfLi5uLjylnFx -/f86N/ishZyeY2DKNNORqXQx6L4kc9iwbz882zSSXBSgCyjV4SXTlwCNNyZu -+ASYQaT1zV6evmz4dXFIaVOAE6z4vir7d28xXPjevzjkHwAf6q1CZ3vvg7j8 -jskGv8NgSv76frq3CZbdee+7bW8a/O7VOfujtwvclYO3xO46B83G10peFQ9D -y70+kBK/CWs+1Ix6qU6C57GYMft/92FlkPtNAeMZeFBnVlwa+hCyN5jWWdnP -Q9aowbh+yyNQf+e0Td9/HjKVUubev3kEbYnBr5kx88AbGqQS8eUR8PflfBMs -mgeXwaedCWINEHN0WK55Yh5sO/lf0XY3gPeLuCM6ib/h8epm5TNfGkDbp05f -oeIPiFdefO7O3Qj9+esbp8UXQemEk/Rj0Sdw/vWt5ZEqi9DD3ugcJP0EnMWo -7n90F8HhxJiq5LonMHB87T/uvYsw+PL0wR3rn8DHEGG9lVWLkLe+3TbC5gmM -b/1cre30DzR/r7ROO/sE5n/k3Y0pWoLAkKKjT6SboIYpubRUtQQjt2L3XZBv -gmjfLKvE50sQeaq4OIzSBAvvEiczZpagajHpB692E8QNP5TqUOJCFYvezgG7 -Jkhsv2r7MYIL9ZsMlbafboL0kmMd3KuX4eHSgJ5lfM1grhkgIaW8DLO/ZYYN -kZpBsMXGnspahnutbvrUSzRD4rDKOwtDYjzz025XhWY4otQ2mhOwDB8m1hla -bmmGkEKZf5TaZVi2RX/tt9Bm2HWhXNXChRs9Vx5mr+1uBnHVgtA9Ptwo96Qi -mfq2GdrrEu+HhnJj7s3heMZH4vnvHDflHOfGTaVKymsmmsFI9p/x+1vcuMXk -+8IdnhbQzDd3CV3gRj32w6j0DS2wKmc47cxFHhy9XnCXntoCMsyqxPlSHqy+ -8zGGK7MFZJuSj+25x4OP/BvtXp1uAfkf9IPUZh6M8vdleha0gIplmEfdOA9q -mab46pa1wEbeRe3hjbxYWaw69aKrBXZGSH/WeM6LkbI+VVGr2GBNGh/Me82L -nlw9fafk2GBTXNO/MMCLIDLOf2UdGxw6XTs4U7z4Q3v/8SoqG/aoXql1luLD -F4HC3Gd02BD4Wf10ggcf2iv16a93YEOKnZlB1xwfio07J/zMYoNsZbss9zJ+ -HJMtTsjLZkOZpN2vDSR+bL0/k66Ry4Y3XW73Tq/jR9oL4Xrbi2wg74pQ2rWd -H9e/IF8xusWGph2X+TvP8aOtSqPiazaxnzvk4aUr/Di1JMXF/4wNX0VuPlYv -40c73cD/NrSxYUVbZdTJJn6sFrKSPtjFBg/z51+tvvFjdLrN/uuDbFg0/dn+ -Uk8Af0SzDVt+suFUafStRVMBlP3NaE2dJ57Pz5XK2iWAPx2Wh5v+ZYMlW9gw -00cALX4Hq93h4sB5Y4UKyywB/BY2E0EjcWATWuS9+CCAdhdfUHvlOdB2ufPA -3y8CuLhaabeaIgc8luytmbMCqOw3Wn9UmQMpDR5C6YKCKHDzBo1E48AbvcgY -8w2CuPJI0O2u9Rw4oFvk/ixBEM2LtU6sNeSAeaHYrEWGIE4MnFs/bsQBJYEj -qe1nBZGu7bJ4eysHOrsdyl9fF0TGVLGYynYOqIWJ8Ay2C+JcTuaGDisO8PUe -zvPoE8SyV+KqgdYcGNAfYw5/EkSOTrrDMhsOpJOa7MZnBVFEzAPX2HNgvPRQ -6X+yQlhROH5CxIUDj0VHNh8kC6E78wAt2pUDuRE2Hb9YQjgQS+Ua2sMBEyPW -/AIKYX+o7d5CDw4Uvx8yE/ATQp0osnyfDwdcV1pNylUI4WhnQb5mKAc2xtTF -X6oXwkiHhhjTMA4ID9GkFTlCeD+DddcmnAM1d3mA0i+ERjrPRZwPcEDaoubU -+iUhTI32aiMf4sBkOUWlQlAYE56gi1AUB1pkcmq0JIRx20t703HCB0ZDhjar -CGOPnLHO2WgiPvFkTRMLYTT4eOTurVgOXBs/3frUThjPb7Kz2HuUA0d3Lrma -uwljYnbfTqljHGCtfZu0M1wYfawtz/nHcYA3cZtsV7Qw0oQPfBKKJ+L3tbLM -LlEY64Kr8q8SPvHwZK9TnjDepUq6tCVwwHPdYuBAoTBS6iIDHI8T+ZG8j8v9 -pjAahyZPDhAeszWhez8i1lfs2tObyIGG2vuPRjnC2Kfha2mZRMRXUcEmoFMY -W273VdcR3jr1JzpkWBidyIXCJ5I5cHh7DuPJhDBWx4yTxwiXFbHeSs4Jo8Nt -yd8GKRwY/sNJ810SxoiRJ6mnCcvYeejWCJLwitbZnkHCO+78HidJkNAgbcMn -SioHEvjP5LvJkfDddb07AYSr3VW3l5NJWK/jtuUa4YmH7F88aiTcch8yPxBW -lHC/5qBDQqOgjBKJNA44BM473EASlp2cTkDC6S2n+RfMSNgkK88IINy4lvnA -ypaElwabCjII/4xs8SlyJWFObHb/TcKMzj1Ssz4kvBFgONJM2I3+q8U0lIR/ -hpIaewmfSTgVcS6KhGvmVgWPEm59RydPxJMwN7p8Yorwgmbza4N0EhquEDOc -Jbwhy/X46RwSFil9C5wh7Dv2U+PzRRJGvBcInSRcgCeHtK+R8JumiuUQ4c5z -tOy0eyTU+MDH10WYb+aJ4UANCZttQwrqCW+2dJlWayZhzzPyimLCoVdnC+Pb -SFiuPe2XQLjkX6Z1dw8JWZYXi/YQ7nekclE/kPB35OzjjYTFyhvvHh4noeD7 -5hZewsbCzu5t0yScd3lb3knEM2rvjNi6vyQMThFMyyM8JEUJaREVwY4HcwtS -hFeFPl67apUIxnl6XHxJvD/L1t0vAxRE8B+3lnoc4QfR6arLN4qg0EKi2hsi -H769Jg946omgV0D15cOEFVgN6ZUmIjj0s0lIhvCJDz++Ou0WwW+vRzpMiPx6 -vOnE+dueIvjh4BP1HiIfZ08rmy/tE8Hg7n8n3Qm7bXW4URIrgnUuuk4+RP5q -3KjzmyoWQfsVRlu1iPz347ZfZXRbBDOuVg5cIOrlgst3Tk6VCG77Opa4RNQT -v5giZXOrCM5puok8IOrt7f7kz4mTIliiFK82HsOB5W3rcnrnRDA7eiSGRnir -So0xg0sUn9u0j+8l6res91txh4QoZl1RpbcR9R2vt8tTdpModursO+J1kAPb -3S79p2MkiiP/jrL8I4h4x307bm8pii2HBTT9if5xoTmp9JSHKC4/OG7hSPSX -h+a13/jTRLH3c+aP6SAOHAsSiCWfEcUVu3tynwdywDTLTszooijmxJRdu7iP -A92vvq+PLRfF1UHPJTf6c+DHbuXImX5RhEt8nnJ7iXqJDhNY8VkUP0TRrz31 -JPrJhUf5at9FUWxbdHAI0Q9FPjrWBXCLIWd/TtItol9S/TK4PjLEEP4rW//Z -kYjvwZ8n2mLEMBzzP+6y4IBKntGar0li+DnyxsFrZv+vv5N3BE6JYZJNfPWv -bRyIXqB3GpWI4R/5L5apRP8/e9xNqqZNDLf8qBTbp0+cP6efXr66djleXTwZ -oaFG5G/Zucqjj5cj345nO78R59XW3vbF763LsW7d495mIQ5YcfFuc+9ajpzB -K2L5AhzYaxPSDyPL8a+E3JmNPEQ8YhSPxfGJY/hvBT2dP2wIWzd3xZApjrpq -w3oHxtjQ4nd5sjlSHH2l313qaGCD2YKuxJEYcXxg5/BRqZ4N7ae6tTXjxPFK -UJHi/ho29NcIxZWkieO5lUt3eCvZ8J0UIZF0QRz9GoO0/1xng8y97TqmTeLI -V2uyg058LwTNT8e1iq7AYCv9mRuebNgc7is9KrECeSXdjA3c2CD49e0tHpkV -6F6gb9zuzIar75rfGCitwLcNve6fbNkw2HBWtUp7BXbJLgR2m7BhZ5JuX5H7 -CjwvUNj+g8YGDYl49ZjyFWhmkfJGdqIFfjPFB1n2Ehj96/qZOd8WmLsoG7/R -WQK36itdKfVqgdnlKmRddwmsVK33sHVrge8zuvu2BkggPfHaTLF9CwzV7Z1z -jpVAi6s1PbJbW+C5RbVY6lUJdCOJRIYptMD5QDcY+imBvFXtx5+/aQa9W7cL -c3MlceRdyvHZzc0wLWHu4dC0EtUmeYs7/z2BzxkeDvsFpLH9Q3JlfUYjmE0d -MhvRXoVRG9ZRaWYNMLFX8EDlMRm8IGmvlKhRR/x/rOJOaVqN3OSBYz4bH4LE -S0rWvSlZ9InWCPI9WgVrUu9aa2uvwZcCIo8cK+9DPlNXXNJvLQauvqsYbHIP -nssaas2clsenDnd6/lO6DZvXNJ1Sf7MOq03S206+uAZiPMURngkKKO/QaFLJ -KAH5+HV6ThRF3D29eqdDeSEIqbg+sHmqiFbGKr9fHSwANf3Vdw/tUUIT01oT -s3u5sH9QotmcSxlzZQOkXEyzYWomw94sXxmnLwttDCvIhIG+IoeL55Wxa9G7 -PCUhE54/euA4fUEZzbJXud0LyISSlI9O54qU0XosXklrUyY4y2m6fbmpjCJ2 -nodIbzKAbfTON+2RMlqOtVp/XpkBBafpUc+GlHFUsaVR7PIJ2KbOOW/GIuOV -7T4+KcMpsJt/u12nOhnfUkR6RtpSYN/7Z6KOGmSUsP2o4vAgBbLSX8Z565Cx -yqrcKCgtBd6MdfseMyTjXyy2Cl6fAt6FwxpV9mQ8DCc+1cQnQ8KKZS8UjpKR -17GzXXtDEjTMbPn7q52Mm404W3KeJEBRW7WX7Ssysfrczd33EiDx6sbnZa/J -2LYr9jjjcgKYOTLP+fSRUTNA3W7uSAJ018rqvP5ERv/SklyWbgJ8jf+9v2yW -jBu+67ySrIwHafHqr96yKjhw2kI0rSIOQlQ13r7yUcElzZqy/rJYOPhL9o+7 -vwqmmG+MxFOxcKSJR/b7PhXsV6FYN4XHQvruHifhMBUMUKJOS2vFwvXEqH6j -aBWs0Hn/cdmjIzA00NBXkaWCVavWOLa/igGHTIves9Uq6KjWuKxJLBr0v3t3 -OwlRkCPGNlHrigTpum3F9SQKrpTl8fGvi4TvKYywdWIUPDlZbPSgJBIuKf4g -jUhQ8HGbOXfmoUj4ZxdjHLaGgulG1lIq8pHwuO70/WR1CtKNHtyZCTkIhmkN -pyrsKfi+i3f2tnwEmJBldogWU1BoIjysqiIcKifZit4lFNQKPBnaVRQO5OoD -c7WlFBwTlrdYOhkOvOYdl/1vUdClNykgNSgcmkKT/2uupODm0ihuR0o4GNTN -5kU/pWCr/2TZuwthoG3zamhsgoIGJXZt/oxQKJU7Vm0wRcHgPHOFEOFQkBpR -zTg7TUGVmVbPU19DYPZQqpbxHHG/7vcOzFshcP8ipF5aoqBthXXZQ1YIqH+5 -Q7QTKkqWMNzkNwUDLe5EVJMOFUWXhfsneAZC/ZarfJabqXhoqWDlGaNAsP71 -OLtHj4qN14ruNykHQlTIz9vjhlQ89n7O9ejoPmh19fgkZklF826dAu/gfeCv -q23u4kGMZ9ceeBMXADf++yQ3m0rF1YVJXoWP/MCgbOF6bDoVhY0Tvd2K/aAr -YJW2QBYVhar1t2xK8YM/Hy2tZc9Q8eVdTQHY5QfmHdWJeJGKTw9zjuaO+sLX -W5mTGeVUvGRtY75b2hcYPrqPVd5SUfBb/a6kNG84qWT15/gAFft1eMdpB7xh -9oOX1tAgFR2fP9ky5OoNDc4Zty4NU3FO6f3rs+u9wcb6Q96qSSpyVtzr+te3 -Fw5vSQoT4qLhN4XZk62svdC64pXipAoNfScmDjwZ9QRWx4irBY2GTBL56Z8u -T8jO+JN3g0FDo7qqsm2PPcFVgCzmq07DwT2X5uXyPWFqIfLP4CYanm/qvnHb -3BOkx9e87rSgoVV9iI5HhQf4NPgnVobTsKC97z6ouMP34K+HTCJoqBt9uC9k -yQ2i1gYFvomk4fcKH7On/W5w4kiozXwMDZtPD4XPZLnBvc2RCnrJNJTm/69E -8+8eWHhwvL75PA2vxbuo6r5zhey7l2a7mmmY37Nmm8lDZ1jjrjC+l0PMz2yt -tstzhqtixe9mW2koGajXkRrpDA+DrzZJt9OQc0vJx03LGd4zb59y7qPhkoOr -fV2lE9Cu16gOTdDQ+I3h8Nra3fC4sNt7WoqOYpI9fPmDDvDRUtE9UoaOZV97 -RI41OQDX72Cnv7J0XCVKd0wqdQCjXQJWfAp0PFNxQG8qxAE4yzbrrGbQMSI6 -ZVFzmQO0eV0WMjSgo/2YtWkI0x7ekveVnfKl4/VGmbVtZ23hb+eD61IBdLzS -FJzoFWsLa2J5rpwPpGOA44dTK31sYU/PhbySMDpOXNnOfKFpCx+TOuIeRtPx -jpT3vmM9NjA2qmn7MYuONayGmAk5G5i9vvRLvZqO+i69FQr11jDqYFqYVkPH -k5YiOnuvW0Mfb+b24To6fvndMV2bYw11HrLnchuJ/R7Pf3Qj2BoSZLQ2Lz6j -I2us/GiCgjWIp+478nyAjnVNz+vlV+4EVb8eLh9uBnaSs3/I91mCvNSaGw28 -DKy10dYvrbIE8WavXTICDLwoKcOyPWMJM/I/il6QGPgld8F77U5LqH0jbKwh -xcChrJMY2moB200xaYnKQN/Bux5fnpjDXpVbQud3MFDazWveqGM7RLPd9lGs -GVjyufFqRdl2OOUj8eK+DQPd26mHLLK2Q/3VwxkvHBko97JocGrHdlhJ2b58 -0ZOBOxLSNAU6tgGHMrLSI5KB170GZSz7TIFBW6dAuczAxvHhjav4TQBbu+Lu -FzHwn342n/zXreDgn/zJoISBV57z8W9r3wrHr08WO95g4JTs9OK/3K0wQKtX -SatgoLalSz03Yytk0Z2YE0+J+e/Vo3QdjGGacUb7/g8GKvs2LOzjGEJfG5pI -zjDQ7TMrQvCeITSGfLeN+MnAE09ffXh8zhCy7puFa/9h4AfPKuqRYENgbOa6 -XcvDRKv/VNKp0obgZRas2CzNxKcUdpRGEEK33zaRbj0mHnWe/9dqZwB1Qj9l -tYCJF/w1e+XUDKD4VjE915CJtqtNN1wQMICwqUXT3abEeK7ATXKdPogeqowf -2MlEN7WI8J1kfTBNVvz12YuJmnf6uYf/bYGHJX8//UxlopIxn33ja13QNo74 -ZZ7ORI+DV3PEK3Sh6tOESGEmE3+rS0qlZOvCfflBHfNsJjbcT9Ae3aULt/Mb -My8VMNFVgSfPv2sTFGYk6W4rY2Kg34iiy1sdSItYfjr/NRMXFn55f+HVBkHJ -1NLJHiYmRx0XeTCuBcnlXPVGfUwkZ2xilrRpQeL36dGJASa+m19t8DlHC476 -d+sZjjKx6eafzimKFux3PTf+ZZ6JGZW6r6V2aYLzVmXcIq+Kyi8zzO7Ua8Bi -t6BYs4IqHumMfu9QrAGFPt/fmSurolDpnk6lVA0YTa455ExTxR63fnVFOw3Y -/2zn3cMaqlh6951/xeQGOGF1RP6hqSqW894dFaZugNrdPQuaoaq4bmbUeMpL -HfZ8qX1eH66K+S4eBkba6sAVXZi/NUIVqW3Rnp1C6mBaEKhpd1gV79jU8Vws -V4Ou98uCDhxXRZEDWvNTPGrw1UvtXXmeKlIM+3OhQhXkglNq1BpVsTZa4Mjt -zQzIWvLVSm9SxVjvrHU+qxjAnW1aPtaiihy6+KLZLB2+PuC7UfhMFR9RZQvy -yuhQy5WYL/FaFeO/qQ3pqdDBOSfu0NyIKtbX2m5JlKVBft1hrQYSC+dnpu2r -lCkgYuVULivGwuPK/Tdz+SgQ93ET65A4C9/IzxheGlMBf7558nopFo6wgxLX -3VYBnZ2RK4vlWUhVc0wc0VaBN0P7Z5I2sJDeHGrvZEsGKeGg8h2OLLS8JFXw -sFQJSoxjo384sdCZWr1D6oQSaMRmGZ9xZeEJ5zCFgmAlsPpxr6fPk4U9hyYs -FbWUIPnNz997g1i4PSvowwqOIswXHzOKjmdhW2L9VfspBXi75czr0lsstIj4 -lchbLw/+B0sumJWxUDHbtE4vQx7myqp8Ju4R8++yTtS6yoOEUt+vDQ9YyHVw -OCbp31qwEFy75lEjC6+IH8uyMlkL9d2l3q97WJhl+urtng9yYC72kBXZx8JP -3m/LWyrkoG/bszmZd8T4S9cjgalyMFv7LdXtIwt/bPA5fUhDDlhF6+98+crC -kpsvnOLSZKH+rWFkxiQL3RV++713lwXzlbag/oOFDsHHHh/SlgXflIOvIn6y -MDEPFr0+r4bZxuTzq+ZZGLCjXb+ibjUk/MnbW/uHhcLlbkfgzGoQ17yhumeR -heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb +1:eJwV13c4Vv0bAHA/EkJE9nzO8xhlRcYrHvdNkfGikEJGRBNFWZVVopJkZBRl +pGE850EKJS9etBQqIyMaSmZWGvzO+9e5Ptd1zvX9fu9zj3No3oEOvpwcHBzc +/+Pg+O86P/CkiXGh0OT1hLr7/DyYvM6VDDftjoVSs45TNg5ygGIvvSW7UyDq +8vlMXgcNCNl2t4urOx9uG5g39W1nwpoJiZTFrnK49WbaMWe7LQw+tAuc7WqA +j1xGZ7u2uYMFY7R/uqsDfPLNw/ps/WGxyyB9qmsY7ljFM/9ndgoaN98qbM+f +AUb5CR1diySQHaz+7K3+B8KGrIv/MK/A2sOed3k2c+H7HgmJtolrkKJtUWu3 +gxc9zhv4m37Kg57MDfXTwoIYsM9+4OJAIVwojHrJKbUGHzjp8VxtuwUSaR/O +peaI4q8R7sUuj7sQ72Rl0jEvhpszlpz7gktAurJNmvN/4pjntjZY72QJlIk6 +LWjzi+OZ+P6bCWdK4G2HB3lZQRxFRyps5NJLgLH9GLHdUhy7ZXgil++VQIPt +9ZWvssTRLjyfLJovgT8Wc20vjCXwo5WAY0RwKQQb5nk+iZXEzxz+HoJuZWB9 +Y/WsTaIkPrpVkXN0TxkQPCcT2tIl8ecW/6RX+8rg1WtndudtSZxor4uNPFYG +mkcEuAbaJPFl+tuS7Itl8KUotOi7tBRu1iyv7awrg91r7cZlKqQwbSa9xkKO +BRtP1MbkPpTC2bGUixx0FqwaVhWnNUuhjIQo3z1VFlSzuEC5Rwr/Nvj4Q1CX +BeI21ckblqUwwVz4fpQ1C17FMHTNbaTx8oeyRO8QFmyZ/BkR8EEaJ3N3fWQ8 +ZUG4Zdr6f8akUZPJUpB+yYKyPI1e0Xlp3H1qSW/VaxZIOnkZVvPKoP3ohZne +fhaMPfh3gUtTBndeby83mWZBamzysawwGTS2WCyM5ydhWEw5oElQFuO/WZAH +tUiQCHwsJyEhiyWtwfyp2iT83brrxQFFWZwoDX/zYCMJVREX1IU2ymJ4//6q +3wYknB+cGnXZJYvTgz5lvkiCzp3afZP5smif53/x4TYSYoy375H+Sw4dTDQH +IwNJsPTI/W5gJoei/BVqp46SsDr62+kdf8thVZljaFgwCdca44qSveRweHWT +gF8oCQ+sa76tPCeHSo2p+nJRJEztoofM9MhhrsK+ml8XSfA4Pnf++Ql57BEO +dzpxhwSlDDPZ0Th5dDq3d1mqmKTOf6mUJ1kem1u+s++VkBDxe90rs0J5jCPM +tD6ySEg/7SFW/VweQ2I/pcpVkfD8csv1m3IKWJ7/bDtnAwmbyrIqIx8roOgn +2HCli4QtXW1/JloVkD+oXeWfbhLsOFZs9exQwIc8talfe0jwcQjogU8KmB/y +44lOHwkWJ2hR0dyK+Cd7vLroPQlHFOYLTNUUkcdr64+1X0mYq0huXdRSxMhC +GS+JUWp/lmrjbF1F7KoXN5P4RkLcUS99wkQRA7RWhQiNk5Dd+LSVc7siEp2N +t4emSGjad328MUQR13l6pQj+IMHqt6HIyROK2Ckz+GyEclvya33daEUUKPoW +93iRhJ5qvujCc4r415bdp/b9ImGC/5hI3DVFPNkUGZe1RIIkaWlg0aCInyf/ +cTu7gg05Wz64LTUr4v86Ktv/4mYD0XMquuqZIhqabnj5hbIGZ8UT5TeKmMdM +9TblYYOZk9xuni+K+Jw+uvCajw2Hf0xHtwrSsCicND+7mg2bjvqJfxahYXXf +uSVZITbwjvYWc0nS0OKtag9J+ea7xrcmBA2d+/XnXwqzYaAuXf2ePg3lxP4a ++ibChhKDVQ0dRjS80dJffUiUDRFk5M4ppOGxn67VXyiL5++LVbOh4d23QVq9 +a9lgH2fYnedJQ9Pfe1ZdFWeD/FKp/+O91HoKvOorJNgwFkJw9R+gYURmc/hB +ygn7+TUlj9Hwd8Wma5qSbHAeimrUC6chp65VUCJlhuvsLsdIGrY00UJHKNfb +9J9OSqChV/GoULoUG5KatkuVXKThyWTDmyOUdzOby56k0HC+QOiwgTQbFjVZ +PStyaBhpIH65jXLrLXogkU/D6K93p8Rk2HBFMXMF3qJhh/qlM66UdURitE6w +aZgXLv73O8ocF+aaMqtoWGtJj5GQZUMb10HXqloaBm10HN9G+dCcQ9z0vzRM +jF7wr6W8KaBFWugZDVU13p0eo8w7YkSqv6JhT0J9p7QcGwq7Ge/29dIw1y+E +EUg5aHvWkbhBGjrerlVOp4xPBVcWfKTOJzHm+4Dy6s2xV+u/0vB4U+NwN+X+ +2vkNAxM0PHt4OWeeconuoeZfMzTcGbY7c4089X5KB92kFmnI/TuzYx1lS2Wn +af0lKt5VwbZAWfx661knLgJ51pTwOVD+KMGUDeIlsFuek9ebcnkym31JkMCo +a/pWgZSj+ZS3looQeHxyVVs4ZfvY7L6nEgQWKZlmxFCW/7U66IssgZ9nr948 +S3ks+DTPSoLAyJqBxQTKNWML1+gqBD6IeJH2nxN8D+uYqhNo/V49NI6y88D7 +Fg9tAqeNGvKiKDN27nA/qU/gp9OOYqGUv7988j3LiEBPx1sdhyjXW5ok3EcC +6aNnet0pJ/1TLvfGnMA5tUoNW8q7N6lUfLcmUOXGn+eGlNdXXLUU3kbgmqPr +q+mUF9WEBzR2EHjt0IqZVZTnc6RjNrpS++2V4pyi4jkrpMQw9CQwr8gnvIPy +dIxWi8leAt+eyXcppzwxY3hwywECRR5nFFyi/M13i6B1AIF8uty7DlL+0mVH +2gcTeNe5NNSM8nCtz7zrKQINHGt+jVL5MKgRkOUVS6DebNGe//Kl73qYsV88 +gWtf9eudo/z29MXYo5cJzBJCdTnKnXMZSqFXCFR9umD/gcrHV/vyW09eJfD0 +YZFPRZSf2txfnXCTQAebS37KlFse/cO+eJfAr56xTsNUvjdpPXdKZRF4k/9n +1VXKdaJD2bnVBMYv5vatpFz+bpXKvRcE9nfO1tdR9cWyFXta00GghKfJAT/K +JY8V/Ou7CHxz9GAiP+WiAt2KZ0MEvootsLCj6jf7kAcMzxHIbLLMuyfGhoz+ +/cMjPwkM1HIwsKKcZh8cN75MoGRNnd1//SFpY8KzH3x0nLnEzz1H9Y/YX+yd +QvJ0jNmUXSRA9Zso/4c/19LpmDY64JG4hg0nB5tzpFXpaMu/7jof5ZDGdx+U +dOi45Ypq7W+qfx26wH3E2IKO/SIBYf8KsmH/HyFRMxvq/sngBG3KfoHSVVu3 +0bHS2UzlqgAbvBy1fju40vF7b8HaffxscJJxSTgQQMekqdjmIV42GBeX3Lhy +hY5rhtIsfbjY8E6x+Lr5VTpeFdjheI+Tqq8rd3Jnr9NxqtvRmpvy/Ziiaw53 +6Hhz5ttyLgfVP3bdyFz9kI4+RmRO9R8S1nGnJZ8douPS7G/zxAUSWiNSLul9 +pqOwd8ihR/Mk+E0lJ30cpaO6VHvC2BwJhe8uJprN0nFkQr5syywJiuXxCUsr +GTgbMnC/j5o/4p4nokPUGZhRJBxYQs2ze6/Do5S0GdggOHvo0RcSnKzDIl/r +MfBMJnn4+QgJKXrHT+oAA5O16k5+/ESCoEBg2MR2Br6yPTn2e4iEFdXeR/xC +GejvzV/1kpqn0yLWXs4NDKwM3eTO2UpC92Hi1cEWBgpZcfxb20xCffNPiHpO +PV9jPxv0LwnJEcUKt98ycGhPdmkvNb83DAsMLo4y8EOM261Lj0gIYL90zxFV +wl1u+deSy0kYtd/h9nGvEmYp/PVkLpuEjjsaz34cUKL6tZTiwSwSarhWGgkG +KuELWpFnXwYJ5+5XSeuHK2Eq4+e1mjQSVBUke+MvKqHggp6mRxIJ+yZ6d6lV +KeHtnRuzzGJI+Jjo5RzEo4wMyeE1Cb7U+qPqxAYBZRReUWnb60PCwtbF8XFh +Zaxbt+LNem8SVnGlxB2QVsZE3+InzR7U/sMbK700lLHz+pzP6E4STvkqi9o7 +KiNPjyBjyIqKv8nYS7XrynjW/IlEqjo1/ydDrT7pq+AzMeZUSC8LZLXlz/Ia +q6DabSnb+TcsmAhqalAzVcGKASPtoHYWpM0LGwfZqOBgY3mmZysLBv7c0Vz2 +VMHziXTlNVUsCBLoE5U6p4K6t25atSezIHsdDvz9TgWLzxpvfLuZ+r704Q2u +jFLFXXakfOiNMup/Q4IzvmEd7na25VOFUhB5oZxETq7HMhfnoK1vikE2gbVN +X18d+5Q79HR17kKmmqGw6D4N3OHOM+mQdRueSpvqzVzWxMCXatopS0WwSbYh +WeutFpoYZy2WGN+E1Vz5x/bEbkBnkXOxl7MLQD5GwdhFWRuXzhNrefrzgE9p +d5VDizZWZix83qp7AzSZUqxQdx1M2yHkaxiQA0EDIo3WHBsx2r6krtw1GyZn +EndYZW5ESaHbfROFGbBVqznbSkMXv2t3R1Uqp0PdjNGvhTZd7LZr329ekAIB +6jq97b56qCy75ZxwRDIwJ/a+duHTR3tWXv3j4kQwZ0jaCubr41j8ZPQO/nOg +Gn0+rMHAAJtEf1mOdcbBel/Dx0q9Blgi7rt1uCIWfOv2n6k8+hdGYLr7skw0 +PL7xeu+0mCFySbTge9MTMHt7eUHrviG+3OTX3McRCj5KxXzZtptw4IGTsen5 +YJhen6pfPrUJH18aGRmxPAIPCn8NzSUY4f6Dwt/SnQ+B6xY6Gskb4/GZ70sx +3/xAxj++WrPeGGVAy1z9jTckLfvpXWgwxk8ejrI6Ld7AmWLBHmkyxrWzX8ex +2htGq7jv3HhijOsSVALCc7yhhuNMpkinMRZ8NPHZ4ecNrmnRofOfjLH1haLK +vcU9kFkbrlfHz8RtxaoZs8p7QGzVYbbtTiaq75lxWND1hMLNpyKmXJiYfKFZ +N0zaE3ROJW1O3c3E8+dy7wtweILdFPmmew8TvUt9jh555gFn384t+hxmYnXY +AX+ajwf8yI8yi4hhomC0+k6FK+7Qa5TaWVTMRCHmkMumVbth//HCa1ZlTGyz +y5iU/O4G82X3fMdIJn43Xnmfr9cNRIjuBe0qJtqGbC+j3XUDG1452Uf1TPyl +4b9yvY0bPHxdtLfzDRPp1dx3U5JdwXr1A42QbiYubgtWvhTuCt1bn8xLvmPi +iA1Jz/F2hdmabwke75kYb/T72LiuK2jkbSj9OsrElZvTzDx6XeBhr2lI4jgT +tyaIpX9qdAHrtY6gNcXEvMsFayJLXcAv/nj7sTkm7qnudR+OdoHZ+rPZEj+Y +yJnCJ1l20AVif2b41PxkYmHBtvbzTi4grHtH3f0PE9cTS5FhJi6Q618zt7zM +xKane8VDVV3g/zoLWwY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "PlotRange" -> {{0, 30}, {0., 0.0668721780809651}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -6072,6 +11367,7 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -6099,7 +11395,8 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0668721780809651}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -6107,17 +11404,568 @@ heq5q/0EAlfDpeDan0tLLEzvyLgtbLwa/gfhb2qb Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913465524249306`*^9}, + CellChangeTimes->{3.9913465524249306`*^9, 3.993827919298809*^9}, CellLabel-> - "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] + "Out[213]=",ExpressionUUID->"0065e0d0-7825-4467-9627-edab9a8a9d1b"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ -ae60c73e9e82"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[214]:=",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13c4Vv0bAHA/EkJE9nzO8xhlRcYrHvdNkfGikEJGRBNFWZVVopJkZBRl +pGE850EKJS9etBQqIyMaSmZWGvzO+9e5Ptd1zvX9fu9zj3No3oEOvpwcHBzc +/+Pg+O86P/CkiXGh0OT1hLr7/DyYvM6VDDftjoVSs45TNg5ygGIvvSW7UyDq +8vlMXgcNCNl2t4urOx9uG5g39W1nwpoJiZTFrnK49WbaMWe7LQw+tAuc7WqA +j1xGZ7u2uYMFY7R/uqsDfPLNw/ps/WGxyyB9qmsY7ljFM/9ndgoaN98qbM+f +AUb5CR1diySQHaz+7K3+B8KGrIv/MK/A2sOed3k2c+H7HgmJtolrkKJtUWu3 +gxc9zhv4m37Kg57MDfXTwoIYsM9+4OJAIVwojHrJKbUGHzjp8VxtuwUSaR/O +peaI4q8R7sUuj7sQ72Rl0jEvhpszlpz7gktAurJNmvN/4pjntjZY72QJlIk6 +LWjzi+OZ+P6bCWdK4G2HB3lZQRxFRyps5NJLgLH9GLHdUhy7ZXgil++VQIPt +9ZWvssTRLjyfLJovgT8Wc20vjCXwo5WAY0RwKQQb5nk+iZXEzxz+HoJuZWB9 +Y/WsTaIkPrpVkXN0TxkQPCcT2tIl8ecW/6RX+8rg1WtndudtSZxor4uNPFYG +mkcEuAbaJPFl+tuS7Itl8KUotOi7tBRu1iyv7awrg91r7cZlKqQwbSa9xkKO +BRtP1MbkPpTC2bGUixx0FqwaVhWnNUuhjIQo3z1VFlSzuEC5Rwr/Nvj4Q1CX +BeI21ckblqUwwVz4fpQ1C17FMHTNbaTx8oeyRO8QFmyZ/BkR8EEaJ3N3fWQ8 +ZUG4Zdr6f8akUZPJUpB+yYKyPI1e0Xlp3H1qSW/VaxZIOnkZVvPKoP3ohZne +fhaMPfh3gUtTBndeby83mWZBamzysawwGTS2WCyM5ydhWEw5oElQFuO/WZAH +tUiQCHwsJyEhiyWtwfyp2iT83brrxQFFWZwoDX/zYCMJVREX1IU2ymJ4//6q +3wYknB+cGnXZJYvTgz5lvkiCzp3afZP5smif53/x4TYSYoy375H+Sw4dTDQH +IwNJsPTI/W5gJoei/BVqp46SsDr62+kdf8thVZljaFgwCdca44qSveRweHWT +gF8oCQ+sa76tPCeHSo2p+nJRJEztoofM9MhhrsK+ml8XSfA4Pnf++Ql57BEO +dzpxhwSlDDPZ0Th5dDq3d1mqmKTOf6mUJ1kem1u+s++VkBDxe90rs0J5jCPM +tD6ySEg/7SFW/VweQ2I/pcpVkfD8csv1m3IKWJ7/bDtnAwmbyrIqIx8roOgn +2HCli4QtXW1/JloVkD+oXeWfbhLsOFZs9exQwIc8talfe0jwcQjogU8KmB/y +44lOHwkWJ2hR0dyK+Cd7vLroPQlHFOYLTNUUkcdr64+1X0mYq0huXdRSxMhC +GS+JUWp/lmrjbF1F7KoXN5P4RkLcUS99wkQRA7RWhQiNk5Dd+LSVc7siEp2N +t4emSGjad328MUQR13l6pQj+IMHqt6HIyROK2Ckz+GyEclvya33daEUUKPoW +93iRhJ5qvujCc4r415bdp/b9ImGC/5hI3DVFPNkUGZe1RIIkaWlg0aCInyf/ +cTu7gg05Wz64LTUr4v86Ktv/4mYD0XMquuqZIhqabnj5hbIGZ8UT5TeKmMdM +9TblYYOZk9xuni+K+Jw+uvCajw2Hf0xHtwrSsCicND+7mg2bjvqJfxahYXXf +uSVZITbwjvYWc0nS0OKtag9J+ea7xrcmBA2d+/XnXwqzYaAuXf2ePg3lxP4a ++ibChhKDVQ0dRjS80dJffUiUDRFk5M4ppOGxn67VXyiL5++LVbOh4d23QVq9 +a9lgH2fYnedJQ9Pfe1ZdFWeD/FKp/+O91HoKvOorJNgwFkJw9R+gYURmc/hB +ygn7+TUlj9Hwd8Wma5qSbHAeimrUC6chp65VUCJlhuvsLsdIGrY00UJHKNfb +9J9OSqChV/GoULoUG5KatkuVXKThyWTDmyOUdzOby56k0HC+QOiwgTQbFjVZ +PStyaBhpIH65jXLrLXogkU/D6K93p8Rk2HBFMXMF3qJhh/qlM66UdURitE6w +aZgXLv73O8ocF+aaMqtoWGtJj5GQZUMb10HXqloaBm10HN9G+dCcQ9z0vzRM +jF7wr6W8KaBFWugZDVU13p0eo8w7YkSqv6JhT0J9p7QcGwq7Ge/29dIw1y+E +EUg5aHvWkbhBGjrerlVOp4xPBVcWfKTOJzHm+4Dy6s2xV+u/0vB4U+NwN+X+ +2vkNAxM0PHt4OWeeconuoeZfMzTcGbY7c4089X5KB92kFmnI/TuzYx1lS2Wn +af0lKt5VwbZAWfx661knLgJ51pTwOVD+KMGUDeIlsFuek9ebcnkym31JkMCo +a/pWgZSj+ZS3looQeHxyVVs4ZfvY7L6nEgQWKZlmxFCW/7U66IssgZ9nr948 +S3ks+DTPSoLAyJqBxQTKNWML1+gqBD6IeJH2nxN8D+uYqhNo/V49NI6y88D7 +Fg9tAqeNGvKiKDN27nA/qU/gp9OOYqGUv7988j3LiEBPx1sdhyjXW5ok3EcC +6aNnet0pJ/1TLvfGnMA5tUoNW8q7N6lUfLcmUOXGn+eGlNdXXLUU3kbgmqPr +q+mUF9WEBzR2EHjt0IqZVZTnc6RjNrpS++2V4pyi4jkrpMQw9CQwr8gnvIPy +dIxWi8leAt+eyXcppzwxY3hwywECRR5nFFyi/M13i6B1AIF8uty7DlL+0mVH +2gcTeNe5NNSM8nCtz7zrKQINHGt+jVL5MKgRkOUVS6DebNGe//Kl73qYsV88 +gWtf9eudo/z29MXYo5cJzBJCdTnKnXMZSqFXCFR9umD/gcrHV/vyW09eJfD0 +YZFPRZSf2txfnXCTQAebS37KlFse/cO+eJfAr56xTsNUvjdpPXdKZRF4k/9n +1VXKdaJD2bnVBMYv5vatpFz+bpXKvRcE9nfO1tdR9cWyFXta00GghKfJAT/K +JY8V/Ou7CHxz9GAiP+WiAt2KZ0MEvootsLCj6jf7kAcMzxHIbLLMuyfGhoz+ +/cMjPwkM1HIwsKKcZh8cN75MoGRNnd1//SFpY8KzH3x0nLnEzz1H9Y/YX+yd +QvJ0jNmUXSRA9Zso/4c/19LpmDY64JG4hg0nB5tzpFXpaMu/7jof5ZDGdx+U +dOi45Ypq7W+qfx26wH3E2IKO/SIBYf8KsmH/HyFRMxvq/sngBG3KfoHSVVu3 +0bHS2UzlqgAbvBy1fju40vF7b8HaffxscJJxSTgQQMekqdjmIV42GBeX3Lhy +hY5rhtIsfbjY8E6x+Lr5VTpeFdjheI+Tqq8rd3Jnr9NxqtvRmpvy/Ziiaw53 +6Hhz5ttyLgfVP3bdyFz9kI4+RmRO9R8S1nGnJZ8douPS7G/zxAUSWiNSLul9 +pqOwd8ihR/Mk+E0lJ30cpaO6VHvC2BwJhe8uJprN0nFkQr5syywJiuXxCUsr +GTgbMnC/j5o/4p4nokPUGZhRJBxYQs2ze6/Do5S0GdggOHvo0RcSnKzDIl/r +MfBMJnn4+QgJKXrHT+oAA5O16k5+/ESCoEBg2MR2Br6yPTn2e4iEFdXeR/xC +GejvzV/1kpqn0yLWXs4NDKwM3eTO2UpC92Hi1cEWBgpZcfxb20xCffNPiHpO +PV9jPxv0LwnJEcUKt98ycGhPdmkvNb83DAsMLo4y8EOM261Lj0gIYL90zxFV +wl1u+deSy0kYtd/h9nGvEmYp/PVkLpuEjjsaz34cUKL6tZTiwSwSarhWGgkG +KuELWpFnXwYJ5+5XSeuHK2Eq4+e1mjQSVBUke+MvKqHggp6mRxIJ+yZ6d6lV +KeHtnRuzzGJI+Jjo5RzEo4wMyeE1Cb7U+qPqxAYBZRReUWnb60PCwtbF8XFh +Zaxbt+LNem8SVnGlxB2QVsZE3+InzR7U/sMbK700lLHz+pzP6E4STvkqi9o7 +KiNPjyBjyIqKv8nYS7XrynjW/IlEqjo1/ydDrT7pq+AzMeZUSC8LZLXlz/Ia +q6DabSnb+TcsmAhqalAzVcGKASPtoHYWpM0LGwfZqOBgY3mmZysLBv7c0Vz2 +VMHziXTlNVUsCBLoE5U6p4K6t25atSezIHsdDvz9TgWLzxpvfLuZ+r704Q2u +jFLFXXakfOiNMup/Q4IzvmEd7na25VOFUhB5oZxETq7HMhfnoK1vikE2gbVN +X18d+5Q79HR17kKmmqGw6D4N3OHOM+mQdRueSpvqzVzWxMCXatopS0WwSbYh +WeutFpoYZy2WGN+E1Vz5x/bEbkBnkXOxl7MLQD5GwdhFWRuXzhNrefrzgE9p +d5VDizZWZix83qp7AzSZUqxQdx1M2yHkaxiQA0EDIo3WHBsx2r6krtw1GyZn +EndYZW5ESaHbfROFGbBVqznbSkMXv2t3R1Uqp0PdjNGvhTZd7LZr329ekAIB +6jq97b56qCy75ZxwRDIwJ/a+duHTR3tWXv3j4kQwZ0jaCubr41j8ZPQO/nOg +Gn0+rMHAAJtEf1mOdcbBel/Dx0q9Blgi7rt1uCIWfOv2n6k8+hdGYLr7skw0 +PL7xeu+0mCFySbTge9MTMHt7eUHrviG+3OTX3McRCj5KxXzZtptw4IGTsen5 +YJhen6pfPrUJH18aGRmxPAIPCn8NzSUY4f6Dwt/SnQ+B6xY6Gskb4/GZ70sx +3/xAxj++WrPeGGVAy1z9jTckLfvpXWgwxk8ejrI6Ld7AmWLBHmkyxrWzX8ex +2htGq7jv3HhijOsSVALCc7yhhuNMpkinMRZ8NPHZ4ecNrmnRofOfjLH1haLK +vcU9kFkbrlfHz8RtxaoZs8p7QGzVYbbtTiaq75lxWND1hMLNpyKmXJiYfKFZ +N0zaE3ROJW1O3c3E8+dy7wtweILdFPmmew8TvUt9jh555gFn384t+hxmYnXY +AX+ajwf8yI8yi4hhomC0+k6FK+7Qa5TaWVTMRCHmkMumVbth//HCa1ZlTGyz +y5iU/O4G82X3fMdIJn43Xnmfr9cNRIjuBe0qJtqGbC+j3XUDG1452Uf1TPyl +4b9yvY0bPHxdtLfzDRPp1dx3U5JdwXr1A42QbiYubgtWvhTuCt1bn8xLvmPi +iA1Jz/F2hdmabwke75kYb/T72LiuK2jkbSj9OsrElZvTzDx6XeBhr2lI4jgT +tyaIpX9qdAHrtY6gNcXEvMsFayJLXcAv/nj7sTkm7qnudR+OdoHZ+rPZEj+Y +yJnCJ1l20AVif2b41PxkYmHBtvbzTi4grHtH3f0PE9cTS5FhJi6Q618zt7zM +xKane8VDVV3g/zoLWwY= + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4Vv0bAHA/EkJE9nzO8xhlRcYrHvdNkfGikEJGRBNFWZVVopJkZBRl +pGE850EKJS9etBQqIyMaSmZWGvzO+9e5Ptd1zvX9fu9zj3No3oEOvpwcHBzc +/+Pg+O86P/CkiXGh0OT1hLr7/DyYvM6VDDftjoVSs45TNg5ygGIvvSW7UyDq +8vlMXgcNCNl2t4urOx9uG5g39W1nwpoJiZTFrnK49WbaMWe7LQw+tAuc7WqA +j1xGZ7u2uYMFY7R/uqsDfPLNw/ps/WGxyyB9qmsY7ljFM/9ndgoaN98qbM+f +AUb5CR1diySQHaz+7K3+B8KGrIv/MK/A2sOed3k2c+H7HgmJtolrkKJtUWu3 +gxc9zhv4m37Kg57MDfXTwoIYsM9+4OJAIVwojHrJKbUGHzjp8VxtuwUSaR/O +peaI4q8R7sUuj7sQ72Rl0jEvhpszlpz7gktAurJNmvN/4pjntjZY72QJlIk6 +LWjzi+OZ+P6bCWdK4G2HB3lZQRxFRyps5NJLgLH9GLHdUhy7ZXgil++VQIPt +9ZWvssTRLjyfLJovgT8Wc20vjCXwo5WAY0RwKQQb5nk+iZXEzxz+HoJuZWB9 +Y/WsTaIkPrpVkXN0TxkQPCcT2tIl8ecW/6RX+8rg1WtndudtSZxor4uNPFYG +mkcEuAbaJPFl+tuS7Itl8KUotOi7tBRu1iyv7awrg91r7cZlKqQwbSa9xkKO +BRtP1MbkPpTC2bGUixx0FqwaVhWnNUuhjIQo3z1VFlSzuEC5Rwr/Nvj4Q1CX +BeI21ckblqUwwVz4fpQ1C17FMHTNbaTx8oeyRO8QFmyZ/BkR8EEaJ3N3fWQ8 +ZUG4Zdr6f8akUZPJUpB+yYKyPI1e0Xlp3H1qSW/VaxZIOnkZVvPKoP3ohZne +fhaMPfh3gUtTBndeby83mWZBamzysawwGTS2WCyM5ydhWEw5oElQFuO/WZAH +tUiQCHwsJyEhiyWtwfyp2iT83brrxQFFWZwoDX/zYCMJVREX1IU2ymJ4//6q +3wYknB+cGnXZJYvTgz5lvkiCzp3afZP5smif53/x4TYSYoy375H+Sw4dTDQH +IwNJsPTI/W5gJoei/BVqp46SsDr62+kdf8thVZljaFgwCdca44qSveRweHWT +gF8oCQ+sa76tPCeHSo2p+nJRJEztoofM9MhhrsK+ml8XSfA4Pnf++Ql57BEO +dzpxhwSlDDPZ0Th5dDq3d1mqmKTOf6mUJ1kem1u+s++VkBDxe90rs0J5jCPM +tD6ySEg/7SFW/VweQ2I/pcpVkfD8csv1m3IKWJ7/bDtnAwmbyrIqIx8roOgn +2HCli4QtXW1/JloVkD+oXeWfbhLsOFZs9exQwIc8talfe0jwcQjogU8KmB/y +44lOHwkWJ2hR0dyK+Cd7vLroPQlHFOYLTNUUkcdr64+1X0mYq0huXdRSxMhC +GS+JUWp/lmrjbF1F7KoXN5P4RkLcUS99wkQRA7RWhQiNk5Dd+LSVc7siEp2N +t4emSGjad328MUQR13l6pQj+IMHqt6HIyROK2Ckz+GyEclvya33daEUUKPoW +93iRhJ5qvujCc4r415bdp/b9ImGC/5hI3DVFPNkUGZe1RIIkaWlg0aCInyf/ +cTu7gg05Wz64LTUr4v86Ktv/4mYD0XMquuqZIhqabnj5hbIGZ8UT5TeKmMdM +9TblYYOZk9xuni+K+Jw+uvCajw2Hf0xHtwrSsCicND+7mg2bjvqJfxahYXXf +uSVZITbwjvYWc0nS0OKtag9J+ea7xrcmBA2d+/XnXwqzYaAuXf2ePg3lxP4a ++ibChhKDVQ0dRjS80dJffUiUDRFk5M4ppOGxn67VXyiL5++LVbOh4d23QVq9 +a9lgH2fYnedJQ9Pfe1ZdFWeD/FKp/+O91HoKvOorJNgwFkJw9R+gYURmc/hB +ygn7+TUlj9Hwd8Wma5qSbHAeimrUC6chp65VUCJlhuvsLsdIGrY00UJHKNfb +9J9OSqChV/GoULoUG5KatkuVXKThyWTDmyOUdzOby56k0HC+QOiwgTQbFjVZ +PStyaBhpIH65jXLrLXogkU/D6K93p8Rk2HBFMXMF3qJhh/qlM66UdURitE6w +aZgXLv73O8ocF+aaMqtoWGtJj5GQZUMb10HXqloaBm10HN9G+dCcQ9z0vzRM +jF7wr6W8KaBFWugZDVU13p0eo8w7YkSqv6JhT0J9p7QcGwq7Ge/29dIw1y+E +EUg5aHvWkbhBGjrerlVOp4xPBVcWfKTOJzHm+4Dy6s2xV+u/0vB4U+NwN+X+ +2vkNAxM0PHt4OWeeconuoeZfMzTcGbY7c4089X5KB92kFmnI/TuzYx1lS2Wn +af0lKt5VwbZAWfx661knLgJ51pTwOVD+KMGUDeIlsFuek9ebcnkym31JkMCo +a/pWgZSj+ZS3looQeHxyVVs4ZfvY7L6nEgQWKZlmxFCW/7U66IssgZ9nr948 +S3ks+DTPSoLAyJqBxQTKNWML1+gqBD6IeJH2nxN8D+uYqhNo/V49NI6y88D7 +Fg9tAqeNGvKiKDN27nA/qU/gp9OOYqGUv7988j3LiEBPx1sdhyjXW5ok3EcC +6aNnet0pJ/1TLvfGnMA5tUoNW8q7N6lUfLcmUOXGn+eGlNdXXLUU3kbgmqPr +q+mUF9WEBzR2EHjt0IqZVZTnc6RjNrpS++2V4pyi4jkrpMQw9CQwr8gnvIPy +dIxWi8leAt+eyXcppzwxY3hwywECRR5nFFyi/M13i6B1AIF8uty7DlL+0mVH +2gcTeNe5NNSM8nCtz7zrKQINHGt+jVL5MKgRkOUVS6DebNGe//Kl73qYsV88 +gWtf9eudo/z29MXYo5cJzBJCdTnKnXMZSqFXCFR9umD/gcrHV/vyW09eJfD0 +YZFPRZSf2txfnXCTQAebS37KlFse/cO+eJfAr56xTsNUvjdpPXdKZRF4k/9n +1VXKdaJD2bnVBMYv5vatpFz+bpXKvRcE9nfO1tdR9cWyFXta00GghKfJAT/K +JY8V/Ou7CHxz9GAiP+WiAt2KZ0MEvootsLCj6jf7kAcMzxHIbLLMuyfGhoz+ +/cMjPwkM1HIwsKKcZh8cN75MoGRNnd1//SFpY8KzH3x0nLnEzz1H9Y/YX+yd +QvJ0jNmUXSRA9Zso/4c/19LpmDY64JG4hg0nB5tzpFXpaMu/7jof5ZDGdx+U +dOi45Ypq7W+qfx26wH3E2IKO/SIBYf8KsmH/HyFRMxvq/sngBG3KfoHSVVu3 +0bHS2UzlqgAbvBy1fju40vF7b8HaffxscJJxSTgQQMekqdjmIV42GBeX3Lhy +hY5rhtIsfbjY8E6x+Lr5VTpeFdjheI+Tqq8rd3Jnr9NxqtvRmpvy/Ziiaw53 +6Hhz5ttyLgfVP3bdyFz9kI4+RmRO9R8S1nGnJZ8douPS7G/zxAUSWiNSLul9 +pqOwd8ihR/Mk+E0lJ30cpaO6VHvC2BwJhe8uJprN0nFkQr5syywJiuXxCUsr +GTgbMnC/j5o/4p4nokPUGZhRJBxYQs2ze6/Do5S0GdggOHvo0RcSnKzDIl/r +MfBMJnn4+QgJKXrHT+oAA5O16k5+/ESCoEBg2MR2Br6yPTn2e4iEFdXeR/xC +GejvzV/1kpqn0yLWXs4NDKwM3eTO2UpC92Hi1cEWBgpZcfxb20xCffNPiHpO +PV9jPxv0LwnJEcUKt98ycGhPdmkvNb83DAsMLo4y8EOM261Lj0gIYL90zxFV +wl1u+deSy0kYtd/h9nGvEmYp/PVkLpuEjjsaz34cUKL6tZTiwSwSarhWGgkG +KuELWpFnXwYJ5+5XSeuHK2Eq4+e1mjQSVBUke+MvKqHggp6mRxIJ+yZ6d6lV +KeHtnRuzzGJI+Jjo5RzEo4wMyeE1Cb7U+qPqxAYBZRReUWnb60PCwtbF8XFh +Zaxbt+LNem8SVnGlxB2QVsZE3+InzR7U/sMbK700lLHz+pzP6E4STvkqi9o7 +KiNPjyBjyIqKv8nYS7XrynjW/IlEqjo1/ydDrT7pq+AzMeZUSC8LZLXlz/Ia +q6DabSnb+TcsmAhqalAzVcGKASPtoHYWpM0LGwfZqOBgY3mmZysLBv7c0Vz2 +VMHziXTlNVUsCBLoE5U6p4K6t25atSezIHsdDvz9TgWLzxpvfLuZ+r704Q2u +jFLFXXakfOiNMup/Q4IzvmEd7na25VOFUhB5oZxETq7HMhfnoK1vikE2gbVN +X18d+5Q79HR17kKmmqGw6D4N3OHOM+mQdRueSpvqzVzWxMCXatopS0WwSbYh +WeutFpoYZy2WGN+E1Vz5x/bEbkBnkXOxl7MLQD5GwdhFWRuXzhNrefrzgE9p +d5VDizZWZix83qp7AzSZUqxQdx1M2yHkaxiQA0EDIo3WHBsx2r6krtw1GyZn +EndYZW5ESaHbfROFGbBVqznbSkMXv2t3R1Uqp0PdjNGvhTZd7LZr329ekAIB +6jq97b56qCy75ZxwRDIwJ/a+duHTR3tWXv3j4kQwZ0jaCubr41j8ZPQO/nOg +Gn0+rMHAAJtEf1mOdcbBel/Dx0q9Blgi7rt1uCIWfOv2n6k8+hdGYLr7skw0 +PL7xeu+0mCFySbTge9MTMHt7eUHrviG+3OTX3McRCj5KxXzZtptw4IGTsen5 +YJhen6pfPrUJH18aGRmxPAIPCn8NzSUY4f6Dwt/SnQ+B6xY6Gskb4/GZ70sx +3/xAxj++WrPeGGVAy1z9jTckLfvpXWgwxk8ejrI6Ld7AmWLBHmkyxrWzX8ex +2htGq7jv3HhijOsSVALCc7yhhuNMpkinMRZ8NPHZ4ecNrmnRofOfjLH1haLK +vcU9kFkbrlfHz8RtxaoZs8p7QGzVYbbtTiaq75lxWND1hMLNpyKmXJiYfKFZ +N0zaE3ROJW1O3c3E8+dy7wtweILdFPmmew8TvUt9jh555gFn384t+hxmYnXY +AX+ajwf8yI8yi4hhomC0+k6FK+7Qa5TaWVTMRCHmkMumVbth//HCa1ZlTGyz +y5iU/O4G82X3fMdIJn43Xnmfr9cNRIjuBe0qJtqGbC+j3XUDG1452Uf1TPyl +4b9yvY0bPHxdtLfzDRPp1dx3U5JdwXr1A42QbiYubgtWvhTuCt1bn8xLvmPi +iA1Jz/F2hdmabwke75kYb/T72LiuK2jkbSj9OsrElZvTzDx6XeBhr2lI4jgT +tyaIpX9qdAHrtY6gNcXEvMsFayJLXcAv/nj7sTkm7qnudR+OdoHZ+rPZEj+Y +yJnCJ1l20AVif2b41PxkYmHBtvbzTi4grHtH3f0PE9cTS5FhJi6Q618zt7zM +xKane8VDVV3g/zoLWwY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0668721780809651}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.0668721780809651}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c4Vv0bAHA/EkJE9nzO8xhlRcYrHvdNkfGikEJGRBNFWZVVopJkZBRl +pGE850EKJS9etBQqIyMaSmZWGvzO+9e5Ptd1zvX9fu9zj3No3oEOvpwcHBzc +/+Pg+O86P/CkiXGh0OT1hLr7/DyYvM6VDDftjoVSs45TNg5ygGIvvSW7UyDq +8vlMXgcNCNl2t4urOx9uG5g39W1nwpoJiZTFrnK49WbaMWe7LQw+tAuc7WqA +j1xGZ7u2uYMFY7R/uqsDfPLNw/ps/WGxyyB9qmsY7ljFM/9ndgoaN98qbM+f +AUb5CR1diySQHaz+7K3+B8KGrIv/MK/A2sOed3k2c+H7HgmJtolrkKJtUWu3 +gxc9zhv4m37Kg57MDfXTwoIYsM9+4OJAIVwojHrJKbUGHzjp8VxtuwUSaR/O +peaI4q8R7sUuj7sQ72Rl0jEvhpszlpz7gktAurJNmvN/4pjntjZY72QJlIk6 +LWjzi+OZ+P6bCWdK4G2HB3lZQRxFRyps5NJLgLH9GLHdUhy7ZXgil++VQIPt +9ZWvssTRLjyfLJovgT8Wc20vjCXwo5WAY0RwKQQb5nk+iZXEzxz+HoJuZWB9 +Y/WsTaIkPrpVkXN0TxkQPCcT2tIl8ecW/6RX+8rg1WtndudtSZxor4uNPFYG +mkcEuAbaJPFl+tuS7Itl8KUotOi7tBRu1iyv7awrg91r7cZlKqQwbSa9xkKO +BRtP1MbkPpTC2bGUixx0FqwaVhWnNUuhjIQo3z1VFlSzuEC5Rwr/Nvj4Q1CX +BeI21ckblqUwwVz4fpQ1C17FMHTNbaTx8oeyRO8QFmyZ/BkR8EEaJ3N3fWQ8 +ZUG4Zdr6f8akUZPJUpB+yYKyPI1e0Xlp3H1qSW/VaxZIOnkZVvPKoP3ohZne +fhaMPfh3gUtTBndeby83mWZBamzysawwGTS2WCyM5ydhWEw5oElQFuO/WZAH +tUiQCHwsJyEhiyWtwfyp2iT83brrxQFFWZwoDX/zYCMJVREX1IU2ymJ4//6q +3wYknB+cGnXZJYvTgz5lvkiCzp3afZP5smif53/x4TYSYoy375H+Sw4dTDQH +IwNJsPTI/W5gJoei/BVqp46SsDr62+kdf8thVZljaFgwCdca44qSveRweHWT +gF8oCQ+sa76tPCeHSo2p+nJRJEztoofM9MhhrsK+ml8XSfA4Pnf++Ql57BEO +dzpxhwSlDDPZ0Th5dDq3d1mqmKTOf6mUJ1kem1u+s++VkBDxe90rs0J5jCPM +tD6ySEg/7SFW/VweQ2I/pcpVkfD8csv1m3IKWJ7/bDtnAwmbyrIqIx8roOgn +2HCli4QtXW1/JloVkD+oXeWfbhLsOFZs9exQwIc8talfe0jwcQjogU8KmB/y +44lOHwkWJ2hR0dyK+Cd7vLroPQlHFOYLTNUUkcdr64+1X0mYq0huXdRSxMhC +GS+JUWp/lmrjbF1F7KoXN5P4RkLcUS99wkQRA7RWhQiNk5Dd+LSVc7siEp2N +t4emSGjad328MUQR13l6pQj+IMHqt6HIyROK2Ckz+GyEclvya33daEUUKPoW +93iRhJ5qvujCc4r415bdp/b9ImGC/5hI3DVFPNkUGZe1RIIkaWlg0aCInyf/ +cTu7gg05Wz64LTUr4v86Ktv/4mYD0XMquuqZIhqabnj5hbIGZ8UT5TeKmMdM +9TblYYOZk9xuni+K+Jw+uvCajw2Hf0xHtwrSsCicND+7mg2bjvqJfxahYXXf +uSVZITbwjvYWc0nS0OKtag9J+ea7xrcmBA2d+/XnXwqzYaAuXf2ePg3lxP4a ++ibChhKDVQ0dRjS80dJffUiUDRFk5M4ppOGxn67VXyiL5++LVbOh4d23QVq9 +a9lgH2fYnedJQ9Pfe1ZdFWeD/FKp/+O91HoKvOorJNgwFkJw9R+gYURmc/hB +ygn7+TUlj9Hwd8Wma5qSbHAeimrUC6chp65VUCJlhuvsLsdIGrY00UJHKNfb +9J9OSqChV/GoULoUG5KatkuVXKThyWTDmyOUdzOby56k0HC+QOiwgTQbFjVZ +PStyaBhpIH65jXLrLXogkU/D6K93p8Rk2HBFMXMF3qJhh/qlM66UdURitE6w +aZgXLv73O8ocF+aaMqtoWGtJj5GQZUMb10HXqloaBm10HN9G+dCcQ9z0vzRM +jF7wr6W8KaBFWugZDVU13p0eo8w7YkSqv6JhT0J9p7QcGwq7Ge/29dIw1y+E +EUg5aHvWkbhBGjrerlVOp4xPBVcWfKTOJzHm+4Dy6s2xV+u/0vB4U+NwN+X+ +2vkNAxM0PHt4OWeeconuoeZfMzTcGbY7c4089X5KB92kFmnI/TuzYx1lS2Wn +af0lKt5VwbZAWfx661knLgJ51pTwOVD+KMGUDeIlsFuek9ebcnkym31JkMCo +a/pWgZSj+ZS3looQeHxyVVs4ZfvY7L6nEgQWKZlmxFCW/7U66IssgZ9nr948 +S3ks+DTPSoLAyJqBxQTKNWML1+gqBD6IeJH2nxN8D+uYqhNo/V49NI6y88D7 +Fg9tAqeNGvKiKDN27nA/qU/gp9OOYqGUv7988j3LiEBPx1sdhyjXW5ok3EcC +6aNnet0pJ/1TLvfGnMA5tUoNW8q7N6lUfLcmUOXGn+eGlNdXXLUU3kbgmqPr +q+mUF9WEBzR2EHjt0IqZVZTnc6RjNrpS++2V4pyi4jkrpMQw9CQwr8gnvIPy +dIxWi8leAt+eyXcppzwxY3hwywECRR5nFFyi/M13i6B1AIF8uty7DlL+0mVH +2gcTeNe5NNSM8nCtz7zrKQINHGt+jVL5MKgRkOUVS6DebNGe//Kl73qYsV88 +gWtf9eudo/z29MXYo5cJzBJCdTnKnXMZSqFXCFR9umD/gcrHV/vyW09eJfD0 +YZFPRZSf2txfnXCTQAebS37KlFse/cO+eJfAr56xTsNUvjdpPXdKZRF4k/9n +1VXKdaJD2bnVBMYv5vatpFz+bpXKvRcE9nfO1tdR9cWyFXta00GghKfJAT/K +JY8V/Ou7CHxz9GAiP+WiAt2KZ0MEvootsLCj6jf7kAcMzxHIbLLMuyfGhoz+ +/cMjPwkM1HIwsKKcZh8cN75MoGRNnd1//SFpY8KzH3x0nLnEzz1H9Y/YX+yd +QvJ0jNmUXSRA9Zso/4c/19LpmDY64JG4hg0nB5tzpFXpaMu/7jof5ZDGdx+U +dOi45Ypq7W+qfx26wH3E2IKO/SIBYf8KsmH/HyFRMxvq/sngBG3KfoHSVVu3 +0bHS2UzlqgAbvBy1fju40vF7b8HaffxscJJxSTgQQMekqdjmIV42GBeX3Lhy +hY5rhtIsfbjY8E6x+Lr5VTpeFdjheI+Tqq8rd3Jnr9NxqtvRmpvy/Ziiaw53 +6Hhz5ttyLgfVP3bdyFz9kI4+RmRO9R8S1nGnJZ8douPS7G/zxAUSWiNSLul9 +pqOwd8ihR/Mk+E0lJ30cpaO6VHvC2BwJhe8uJprN0nFkQr5syywJiuXxCUsr +GTgbMnC/j5o/4p4nokPUGZhRJBxYQs2ze6/Do5S0GdggOHvo0RcSnKzDIl/r +MfBMJnn4+QgJKXrHT+oAA5O16k5+/ESCoEBg2MR2Br6yPTn2e4iEFdXeR/xC +GejvzV/1kpqn0yLWXs4NDKwM3eTO2UpC92Hi1cEWBgpZcfxb20xCffNPiHpO +PV9jPxv0LwnJEcUKt98ycGhPdmkvNb83DAsMLo4y8EOM261Lj0gIYL90zxFV +wl1u+deSy0kYtd/h9nGvEmYp/PVkLpuEjjsaz34cUKL6tZTiwSwSarhWGgkG +KuELWpFnXwYJ5+5XSeuHK2Eq4+e1mjQSVBUke+MvKqHggp6mRxIJ+yZ6d6lV +KeHtnRuzzGJI+Jjo5RzEo4wMyeE1Cb7U+qPqxAYBZRReUWnb60PCwtbF8XFh +Zaxbt+LNem8SVnGlxB2QVsZE3+InzR7U/sMbK700lLHz+pzP6E4STvkqi9o7 +KiNPjyBjyIqKv8nYS7XrynjW/IlEqjo1/ydDrT7pq+AzMeZUSC8LZLXlz/Ia +q6DabSnb+TcsmAhqalAzVcGKASPtoHYWpM0LGwfZqOBgY3mmZysLBv7c0Vz2 +VMHziXTlNVUsCBLoE5U6p4K6t25atSezIHsdDvz9TgWLzxpvfLuZ+r704Q2u +jFLFXXakfOiNMup/Q4IzvmEd7na25VOFUhB5oZxETq7HMhfnoK1vikE2gbVN +X18d+5Q79HR17kKmmqGw6D4N3OHOM+mQdRueSpvqzVzWxMCXatopS0WwSbYh +WeutFpoYZy2WGN+E1Vz5x/bEbkBnkXOxl7MLQD5GwdhFWRuXzhNrefrzgE9p +d5VDizZWZix83qp7AzSZUqxQdx1M2yHkaxiQA0EDIo3WHBsx2r6krtw1GyZn +EndYZW5ESaHbfROFGbBVqznbSkMXv2t3R1Uqp0PdjNGvhTZd7LZr329ekAIB +6jq97b56qCy75ZxwRDIwJ/a+duHTR3tWXv3j4kQwZ0jaCubr41j8ZPQO/nOg +Gn0+rMHAAJtEf1mOdcbBel/Dx0q9Blgi7rt1uCIWfOv2n6k8+hdGYLr7skw0 +PL7xeu+0mCFySbTge9MTMHt7eUHrviG+3OTX3McRCj5KxXzZtptw4IGTsen5 +YJhen6pfPrUJH18aGRmxPAIPCn8NzSUY4f6Dwt/SnQ+B6xY6Gskb4/GZ70sx +3/xAxj++WrPeGGVAy1z9jTckLfvpXWgwxk8ejrI6Ld7AmWLBHmkyxrWzX8ex +2htGq7jv3HhijOsSVALCc7yhhuNMpkinMRZ8NPHZ4ecNrmnRofOfjLH1haLK +vcU9kFkbrlfHz8RtxaoZs8p7QGzVYbbtTiaq75lxWND1hMLNpyKmXJiYfKFZ +N0zaE3ROJW1O3c3E8+dy7wtweILdFPmmew8TvUt9jh555gFn384t+hxmYnXY +AX+ajwf8yI8yi4hhomC0+k6FK+7Qa5TaWVTMRCHmkMumVbth//HCa1ZlTGyz +y5iU/O4G82X3fMdIJn43Xnmfr9cNRIjuBe0qJtqGbC+j3XUDG1452Uf1TPyl +4b9yvY0bPHxdtLfzDRPp1dx3U5JdwXr1A42QbiYubgtWvhTuCt1bn8xLvmPi +iA1Jz/F2hdmabwke75kYb/T72LiuK2jkbSj9OsrElZvTzDx6XeBhr2lI4jgT +tyaIpX9qdAHrtY6gNcXEvMsFayJLXcAv/nj7sTkm7qnudR+OdoHZ+rPZEj+Y +yJnCJ1l20AVif2b41PxkYmHBtvbzTi4grHtH3f0PE9cTS5FhJi6Q618zt7zM +xKane8VDVV3g/zoLWwY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.0668721780809651}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.0668721780809651}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993827919364205*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"b4d5c8ed-da88-482d-b3d2-0ffd4268a163"] +}, Open ]], Cell[CellGroupData[{ @@ -6169,66 +12017,76 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[448]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], + "In[215]:=",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ -\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ -116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ -is too small to represent as a normalized machine number; precision may be \ -lost.\"", 2, 448, 489, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347571140808*^9}, + "\"\\!\\(\\*FractionBox[\\\"6.141751150641248`*^-159\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 215, 53, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.993827919404014*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], +In[215]:=",ExpressionUUID->"6f791906-4b29-4039-9b20-2778d406066a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ -\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ -2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ -\\) is too small to represent as a normalized machine number; precision may \ -be lost.\"", 2, 448, 490, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711508217`*^9}, + "\"\\!\\(\\*FractionBox[\\\"9.185084336247085`*^-162\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 215, 54, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.993827919412559*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], +In[215]:=",ExpressionUUID->"a4014501-07fa-4bd2-8250-3f3cbb1bf4fb"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ -\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ -2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ -\"]\\) is too small to represent as a normalized machine number; precision \ -may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711592274`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.3736436432329741`*^-164\\\", \ +RowBox[{\\\"\ +552513857212233842570175958778312308519209260189278753959051363142168\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"1583212683407106418618000954093361543354777600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 215, 55, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.993827919422119*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], +In[215]:=",ExpressionUUID->"8dd4190e-1a3f-4757-96e4-d4e62131a6d1"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 448, 492, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475711683846`*^9}, +during this calculation.\"", 2, 215, 56, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347571140808*^9, 3.993827919428344*^9}, CellLabel-> "During evaluation of \ -In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], +In[215]:=",ExpressionUUID->"108362c8-afa7-4ffb-a538-b142542e3a50"], -Cell[BoxData["10.362747935330763`"], "Output", - CellChangeTimes->{3.991347578228073*^9}, +Cell[BoxData["11.486983815243342`"], "Output", + CellChangeTimes->{3.991347578228073*^9, 3.993827965383978*^9}, CellLabel-> - "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] + "Out[215]=",ExpressionUUID->"f89c4ace-69ca-482f-a4d9-1f1b3f07e87d"] }, Open ]], Cell[CellGroupData[{ @@ -6295,68 +12153,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918503106317043`*^9, - 3.9918503148567924`*^9}},ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-\ -2a98ba29b602"], + CellChangeTimes->{{3.9918503106317043`*^9, 3.9918503148567924`*^9}}, + CellLabel-> + "In[216]:=",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 449, - 493, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347578265545*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1296975501954707`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 216, 57, 31384839377481460541, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.993827965422915*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], +In[216]:=",ExpressionUUID->"d6f8eb18-eaf4-4ec8-8df9-e05c73a09efa"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 449, - 494, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347578275551*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.089328726256627`*^-217\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 216, 58, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.993827965431529*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], +In[216]:=",ExpressionUUID->"2a88a361-27e8-43bd-bc98-b2ea907bf378"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 449, 495, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475782835484`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.792456505736259`*^-222\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 216, 59, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.9938279654380503`*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], +In[216]:=",ExpressionUUID->"78342cbc-710c-4f9f-914a-617ebc29e775"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 449, 496, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475782930756`*^9}, +during this calculation.\"", 2, 216, 60, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347578265545*^9, 3.9938279654450293`*^9}, CellLabel-> "During evaluation of \ -In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], +In[216]:=",ExpressionUUID->"91533dd2-6251-4c0c-8ceb-ce6f209ea669"], -Cell[BoxData["1.4359199941844076`"], "Output", - CellChangeTimes->{3.9913475858902473`*^9}, +Cell[BoxData["0.3485970054537124`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9, 3.993827972310001*^9}, CellLabel-> - "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] + "Out[216]=",ExpressionUUID->"336ab23b-1360-4b45-ac0c-cd7e956cfc9c"] }, Open ]], Cell[CellGroupData[{ @@ -6377,8 +12239,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6423,68 +12284,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850318596199*^9, - 3.991850321359722*^9}},ExpressionUUID->"edfdd675-c60b-304e-9e16-\ -68452b971319"], + CellChangeTimes->{{3.991850318596199*^9, 3.991850321359722*^9}}, + CellLabel-> + "In[217]:=",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 450, - 497, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859272156`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1296975501954707`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 217, 61, 31384839377481460541, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993827972345385*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], +In[217]:=",ExpressionUUID->"ca808d2c-de7e-4bf1-8486-e579be2ca69a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 450, - 498, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347585937319*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.089328726256627`*^-217\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 217, 62, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.9938279723527184`*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], +In[217]:=",ExpressionUUID->"6336346b-0f3a-4900-bb5d-86333a22a951"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 450, 499, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859463177`*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.792456505736259`*^-222\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 217, 63, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993827972359671*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], +In[217]:=",ExpressionUUID->"39fc9570-415a-46c3-9c44-fa9c4265d75c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 450, 500, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475859543304`*^9}, +during this calculation.\"", 2, 217, 64, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913475859272156`*^9, 3.993827972368223*^9}, CellLabel-> "During evaluation of \ -In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], +In[217]:=",ExpressionUUID->"3d41730d-85cc-4a5a-a208-e275b639670a"], -Cell[BoxData["5.09241659576143`"], "Output", - CellChangeTimes->{3.9913475931276417`*^9}, +Cell[BoxData["35.30838698415881`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9, 3.993827978728002*^9}, CellLabel-> - "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] + "Out[217]=",ExpressionUUID->"44040114-d215-48cf-b436-284bf829ce37"] }, Open ]], Cell[CellGroupData[{ @@ -6505,8 +12370,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -6551,68 +12415,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850325611994*^9, - 3.991850328926569*^9}},ExpressionUUID->"d0469d46-2e74-494a-be85-\ -b41cb2f3fa92"], + CellChangeTimes->{{3.991850325611994*^9, 3.991850328926569*^9}}, + CellLabel-> + "In[218]:=",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"6.132043033902215`*^-187\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 451, - 501, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134759316485*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.1296975501954707`*^-211\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 218, 65, 31384839377481460541, + "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.99382797875791*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], +In[218]:=",ExpressionUUID->"13591f7f-6270-4cf4-8486-88a0efe51334"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.094318741532472`*^-191\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 451, - 502, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347593173849*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.089328726256627`*^-217\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 218, 66, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.9938279787660723`*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], +In[218]:=",ExpressionUUID->"b711c182-137d-43f8-b3d2-f37190ee6b20"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.0684529695452981`*^-194\\\", \ -\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ -7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 451, 503, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347593182852*^9}, + "\"\\!\\(\\*FractionBox[\\\"5.792456505736259`*^-222\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 218, 67, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.993827978774*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], +In[218]:=",ExpressionUUID->"a3d00148-07fb-4269-943a-ed12943db969"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 451, 504, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475931908703`*^9}, +during this calculation.\"", 2, 218, 68, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99134759316485*^9, 3.9938279787835493`*^9}, CellLabel-> "During evaluation of \ -In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], +In[218]:=",ExpressionUUID->"45aed098-b5e7-4334-9b26-1729624e9e4d"], -Cell[BoxData["16.684462799943017`"], "Output", - CellChangeTimes->{3.9913475973006153`*^9}, +Cell[BoxData["5.338044310693739`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9, 3.9938279828592873`*^9}, CellLabel-> - "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] + "Out[218]=",ExpressionUUID->"d7a26196-762f-4d45-8ba1-817e33258b54"] }, Open ]], Cell[CellGroupData[{ @@ -6621,22 +12489,23 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.99185033265069*^9, - 3.9918503366548977`*^9}},ExpressionUUID->"58b5e243-0972-1946-bd17-\ -aca0f3e8a35b"], - -Cell[BoxData["0.15578016747845222`"], "Output", - CellChangeTimes->{3.991347597341627*^9}, + CellChangeTimes->{{3.99185033265069*^9, 3.9918503366548977`*^9}}, CellLabel-> - "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] + "In[219]:=",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], + +Cell[BoxData["0.02539180802244742`"], "Output", + CellChangeTimes->{3.991347597341627*^9, 3.993827982893139*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"50eca8a7-1678-429d-ba92-e380db065a4a"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", CellChangeTimes->{{3.9918503408077297`*^9, 3.99185034363356*^9}, - 3.991924645514969*^9},ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-\ -a3711ba632a4"], + 3.991924645514969*^9}, + CellLabel-> + "In[220]:=",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], Cell[CellGroupData[{ @@ -6659,12 +12528,12 @@ Cell[BoxData[ RowBox[{"Ir", "*", "Il"}], RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + "In[221]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[BoxData["12.368532070745184`"], "Output", - CellChangeTimes->{3.991347597372614*^9}, +Cell[BoxData["8.194164255223901`"], "Output", + CellChangeTimes->{3.991347597372614*^9, 3.9938279829061537`*^9}, CellLabel-> - "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] + "Out[221]=",ExpressionUUID->"12d50cf7-8b99-49e0-b83a-0b181ff0e160"] }, Open ]], Cell[CellGroupData[{ @@ -6674,12 +12543,12 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb1"]]}]], "Input", CellLabel-> - "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + "In[222]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[BoxData["1.0665924029125342`"], "Output", - CellChangeTimes->{3.991347597428034*^9}, +Cell[BoxData["3.3828042689634388`"], "Output", + CellChangeTimes->{3.991347597428034*^9, 3.993827982914506*^9}, CellLabel-> - "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] + "Out[222]=",ExpressionUUID->"fded5ca2-e6e5-4335-b6b1-2ed543c6c11b"] }, Open ]], Cell[CellGroupData[{ @@ -6689,12 +12558,12 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + "In[223]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[BoxData["13.192182341836848`"], "Output", - CellChangeTimes->{3.9913475974971066`*^9}, +Cell[BoxData["27.71925382315903`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9, 3.9938279829250727`*^9}, CellLabel-> - "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] + "Out[223]=",ExpressionUUID->"1e132eeb-0183-42ee-84e2-b3562311c3d5"] }, Open ]], Cell[CellGroupData[{ @@ -6884,12 +12753,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + "In[224]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[BoxData["0.038908834568544604`"], "Output", - CellChangeTimes->{3.991347597528105*^9}, +Cell[BoxData["0.00593194658567887`"], "Output", + CellChangeTimes->{3.991347597528105*^9, 3.993827982938513*^9}, CellLabel-> - "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] + "Out[224]=",ExpressionUUID->"eab062fa-f302-452d-acc6-5e0434daf7ec"] }, Open ]], Cell[CellGroupData[{ @@ -6903,12 +12772,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + "In[225]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[BoxData["4.492838724335521`"], "Output", - CellChangeTimes->{3.9913475976441536`*^9}, +Cell[BoxData["11.506581683454835`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9, 3.9938279830497932`*^9}, CellLabel-> - "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] + "Out[225]=",ExpressionUUID->"2c6f2f7d-ea4f-4fe1-9428-a3f8309f819d"] }, Open ]], Cell[CellGroupData[{ @@ -7100,12 +12969,12 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + "In[226]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[BoxData["0.012544276227890849`"], "Output", - CellChangeTimes->{3.991347597671173*^9}, +Cell[BoxData["0.03457437796588408`"], "Output", + CellChangeTimes->{3.991347597671173*^9, 3.9938279830628757`*^9}, CellLabel-> - "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] + "Out[226]=",ExpressionUUID->"c72c8d81-0963-4add-b5ab-3555eec04736"] }, Open ]], Cell[CellGroupData[{ @@ -7119,12 +12988,12 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + "In[227]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[BoxData["7.912653285153153`"], "Output", - CellChangeTimes->{3.9913475977705975`*^9}, +Cell[BoxData["4.7661505122594745`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9, 3.9938279831672688`*^9}, CellLabel-> - "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] + "Out[227]=",ExpressionUUID->"38eada1c-032a-48e4-95fb-f9c5eff94cd7"] }, Open ]], Cell[CellGroupData[{ @@ -7217,12 +13086,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + "In[228]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[BoxData["0.6975316474635891`"], "Output", - CellChangeTimes->{3.9913475977856007`*^9}, +Cell[BoxData["0.08462540512073816`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9, 3.993827983176363*^9}, CellLabel-> - "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] + "Out[228]=",ExpressionUUID->"75822800-d919-4523-b76b-c7e8a2cec5aa"] }, Open ]], Cell[CellGroupData[{ @@ -7312,12 +13181,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + "In[229]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[BoxData["0.3024683525364109`"], "Output", - CellChangeTimes->{3.991347597813669*^9}, +Cell[BoxData["0.9153745948792619`"], "Output", + CellChangeTimes->{3.991347597813669*^9, 3.993827983184856*^9}, CellLabel-> - "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] + "Out[229]=",ExpressionUUID->"7451e4a7-264c-4414-b8cd-1056df1139de"] }, Open ]], Cell[CellGroupData[{ @@ -7440,12 +13309,12 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + "In[230]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[BoxData["0.21098124825032033`"], "Output", - CellChangeTimes->{3.9913475978426323`*^9}, +Cell[BoxData["0.07746394592888911`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9, 3.9938279831950817`*^9}, CellLabel-> - "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] + "Out[230]=",ExpressionUUID->"bd72e6c2-8d93-4861-892b-f6ee71314594"] }, Open ]], Cell[CellGroupData[{ @@ -7507,68 +13376,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918503626529236`*^9},ExpressionUUID->"ba508068-6b78-254c-87d6-\ -cf1adc0753dd"], + CellChangeTimes->{3.9918503626529236`*^9}, + CellLabel-> + "In[231]:=",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 505, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597872814*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.016884258050598`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 231, 69, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.993827983209608*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], +In[231]:=",ExpressionUUID->"061aa652-b103-465c-9d4c-83004525d3cf"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 506, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913475978828144`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.974804274667499`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 231, 70, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.993827983217767*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], +In[231]:=",ExpressionUUID->"13c3722d-8fb4-4193-8fe7-0928bbbce54d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 467, - 507, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597891815*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.93294516574691`*^-221\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 231, 71, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.993827983227192*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], +In[231]:=",ExpressionUUID->"a249190b-fadc-4440-ac08-30403ffbac0e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 467, 508, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347597900812*^9}, +during this calculation.\"", 2, 231, 72, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.991347597872814*^9, 3.993827983236411*^9}, CellLabel-> "During evaluation of \ -In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], +In[231]:=",ExpressionUUID->"5e6262f8-1e9a-483a-9cf3-77092cdcd7b0"], -Cell[BoxData["4.492838724335523`"], "Output", - CellChangeTimes->{3.9913476018505497`*^9}, +Cell[BoxData["11.506581683454813`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9, 3.993827986958806*^9}, CellLabel-> - "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] + "Out[231]=",ExpressionUUID->"4801e81f-1a9c-428d-9b2e-e88f5b70dfcd"] }, Open ]], Cell[CellGroupData[{ @@ -7630,68 +13503,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.9918503657638073`*^9},ExpressionUUID->"842e33e4-ae06-f746-ab8b-\ -97489285cc9c"], + CellChangeTimes->{3.9918503657638073`*^9}, + CellLabel-> + "In[232]:=",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.6476402424150632`*^-194\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 509, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476018885117`*^9}, + "\"\\!\\(\\*FractionBox[\\\"8.016884258050598`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 232, 73, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.993827986991909*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], +In[232]:=",ExpressionUUID->"b8578ccc-9d8a-4ec3-9a7c-54804db4acf1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.2411289608803614`*^-198\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 510, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99134760189851*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.974804274667499`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 232, 74, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.993827986998831*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], +In[232]:=",ExpressionUUID->"e24818eb-73ad-494b-8a61-929d44dbe46a"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"9.349134949982097`*^-203\\\", \ -\\\"37000682611300316760538828929435347293979472296876079508245570840752422828\ -6944173776953285256179286120857600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 468, - 511, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476019065113`*^9}, + "\"\\!\\(\\*FractionBox[\\\"7.93294516574691`*^-221\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 232, 75, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.9938279870054502`*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], +In[232]:=",ExpressionUUID->"810dd08c-ac8b-4901-9235-e54996cb32a6"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 468, 512, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913476019158936`*^9}, +during this calculation.\"", 2, 232, 76, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913476018885117`*^9, 3.9938279870114803`*^9}, CellLabel-> "During evaluation of \ -In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], +In[232]:=",ExpressionUUID->"5b232530-8afc-4649-94f7-7504ef81ac08"], -Cell[BoxData["7.912653285153152`"], "Output", - CellChangeTimes->{3.9913476058912296`*^9}, +Cell[BoxData["4.76615051225947`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9, 3.993827990668932*^9}, CellLabel-> - "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] + "Out[232]=",ExpressionUUID->"95f83520-31d6-4aab-a008-5784f86b8615"] }, Open ]], Cell[CellGroupData[{ @@ -7749,93 +13626,94 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991850369070572*^9},ExpressionUUID->"b2e314f8-a6f0-6942-a94c-\ -5ac1cacd7190"], + CellChangeTimes->{3.991850369070572*^9}, + CellLabel-> + "In[233]:=",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV1nk0Vd0bB3CZEpfMMxmrq5RcKSr7KWQISRGSdN17lKmiJGMDqjdJZapX +KJQ5Uwj5qbwNKJonMh+zTOeS8bf9cdZZn7XX+e5nn/PsvY4q84Qdm5uLi6sP +X0v3U+83rClvfm806yJtdCOdREYjGZuZJnko1yPId8ntqfpxGibVKHt7+uKS +bVnv+GmM/9DM79ixWOyiwPCXfCaNiLnf2OQW9tVXsrXhOR/Qp7TKqdvYT5tP +pczpfkGzTRyhBOyBn/Uh56q+o/zBqfNJ2PI96oc4xi0okqvG4V/sPX9CDPwb +2xBDyeJ6CnbN3IBQYE4Hsre7o/EA++sFmeAy3y7kW1yg+BB7hN9kYFK3B43v +u3omB5s/+qQTY4pEPmb0jY+xlcXuvTlV1Yc25MZYlGLbKHAejhgPobG1OWn/ +wybS1KS1BUZQbKhb63/Y4Zp7I70a/6D4Jy1BjdjfZT5vOp0zhtyc13z/ic1y +9jx+O3ocHRTjJHZijyZz3S/2nUCScK1iAFtATVt0TJdCYQUrFOew41gvzUSl +OGjMbMKVL4NEKo+cwjdOcVAhLYN7JfbW9VEjPlXTqLv9kLc69jH9tsYB4zlk +n6b11hZ7MvAMr+DqeaTrt1/8MPb5KqHtdIEF1McwrT6OnQRbcz0aF5FFTIRu +BDYr842JX84y4EVBWc+wc17dbr+gwA3+auNTjdijva4hN6O5YU5/c1YLdogW +VVLoywPyBsrr5rHjHquq/9Hlg67JiMpdmST62TxUs5DOB5mPjojaY6uMlzuL +SPGDloXAaw/sPD2bW9pT/JDUUucQg133NGiZd5UA/LuHs9iGTb381NZnTINV +7Unn4h+SSNyKJhpcQwO6sPDIY2ydzyYgbCAM0zV7P9dje3Y/Sdu0QQQSjIw5 +yx6R6CR3o84OmigYqlE3zmD3qBWMRXLEQOe3ioJfFn4/RP2KJoY45J9uyruN +zZ1LqsqeEgfv2YOFT7BVGKvscgbFYVxshjaL7WwcW/y+XQKawu8oXssmUZO7 +n79MgxSsneJPqM0h0e9HMdfcBKShPK3StB97aDAnPdtUGnhsHDzEc0kkeLrr +07ZaaTgTb8FFYJtEHNBzeyIDb+K2XRXPI1Flhj6VlSoHrA7G9Pl8EmX0zAQY +nlYC52cMu5JCEpnbX/7tn68EI/VX7pDYQ3USu/NJJWgOszKRLyKRXsZ6KRUn +ZagU06i7iF3HdC3hM1oFF39u8nEsJtH4n/azfZdUgEuxhi1dSiIJH5PSEms1 +YNCKplvKSURmCB6z9VQDc36hQsUKElW0NCsMR6lBssrfehdsF6vDl1bXqsEo +mbDuN3bGugC7O7rqQAubT+x5iucfeDQaJqMBDYbpysurSXTAQ0jbskMTCpVk +h+NqSYQC7HUPzmuCyR21u23YWpGpW1hyq+Gdpcgjreck4kpn7Arbtxr+kb3R +/hw7//ehg8XPV8OjHUc+Tr7A+9Mh74L8gzUwYRZV7P0frs/E+usAkw6/X+ef +yKgnUfr+xF9TYXSQym5UmMWOYXa08/5Lh2jzhTV2Dbi/z58ZVP5Eh2RWmtuy +RhKJVd/j2m+sBfUtIvtZ73D/MEa0qtTXQXeKqNH2ZhIpqN0Iv9a9HmrtW7bq +fSVR9T+T9L/c2sD4GG2Viu0y4fSZUNWGd4bRHwS/kSilToO+y1UbNh64sLEL +W82j8uP0N20Yr7687c4PvN68Hk2iYQPImmsmyLeSSElBmVBx0gHaNUkPv24S +rc88TZtFujD901Lw7CSJmKxLlLaNLnhGpZ+lsJPUb/12c9EFWhEyP02RiOfB +48JXgbrwYHyPhD8H77eUgQO3inSh4TzH9sw0Pk+T3O7R1Rmg7pPrHT2Hv+81 +qw2O/HoQxZ2iz8fXi+77adg+adwMdgVx91VlelFzANoSkWkAy6qfrqs17kWq +rl9sDnvvAGOBI2E1Ab2IvVhWoHQOgO7frfMmrxfJDFYsl2HuAi8Bix3hI73o +NGN7yy0tEzi6RporQbcPMYfn3kgMmMLC3yLz0uA+lL/Lf3lqkxlE+kYgg499 +KGPS83lenAUodlguPKP3o+mdsu/qwvfAbXrKIC22H7Vy8Yx1HLUG+lUzMaG5 +fuSreCL2gvpeaL3vfOWixwAqOP6mNj7SFnQci5S8ugZQ0ITc1Lrj+8BURGTf +yOFBRFnudnh9xA70lH3zJQYGkcGhmzt79u2HJOrlzuXBQ+ij3D3POsYBiFHc +1pArMIzkH16qzlprD5UEesOTPYwq2rWsbIQdQIZUjv1gMoKUP496BAw7wP3g +qMzpzhHEiL+Zl95+EExN4qM3xP1B93gnNtx66QihvI11OqtGUdnOjT8jnzqB +s7VRU03oKEra8o/YXI4zHF3seH+jZRQ1/cqMYkQfgq/elT4e+mPoiXWyxsnz +LsAc+d7clzSGxnz2c/myDkP+r+F5ghpD1G76sRFjV9jdxcctazuOsoZ/TPvr +H4G7XAs9I0XjyPF+pvthmhvcNeycl6JNoJLiPUd4LrtBsv+0bKvXBDJQ+Pj3 +6l83sHBDV+peTCD1do+fH44fhW1ZNQcHJSdRt5DX3uSuo7Bfy6n82/FJ1Bxj +425mzwSeOXepU6WTKC4wVehMMxN+yHX84744iaprFv+6W7hDzHJGxuZdFFrp +ApcZle7wMD0VPp+jkIrk6ybFandILoqwKguikE6jtSx/jTt4TsKnxGAK2W0/ +lP39uTtI91y3dQqlUJxiQEPoW3dwvZrJ9/U8heRbc1e++e4O1m9PMsouU0jD +VSbJZcodzrn/9RWNp5CB20hWpB4LckWDDNULKPTwzqi/jT4LqlO+znzBlvw0 +biSzlQVXuSWNrjym0Ijp1OesbSxwvlliNVhI4fOLa1njLha8/C13ObeEQiJT +Yk7i+1hwLZtpL/mUQt3XN69I9WFBsVXrxaiXFIqpCjle8ZAFRfztleRXCvno +JhoEZrFgrm3BI+Abhayyi1ZszWHBdXMynu87hQQTyezyfBbsu5zrr/aDQpF+ +tgNlpdjuh/UcflEohK7h9eQFC7yOiDzJbKOQZ2KDd/FvFnjQHYW7eylkIUJu +92tnwZDKVIZ7H4XWRnIJ63ayQL/cq7ITm/TbnF/Uw4KD30Nc2/opdNQmdbhw +CNePvlz5OEghRz5/38czLFDxObg/7Q+FzPzlT+ZJswHlfln3g0OhF6lRlrdk +2XDuYOf/9k1RaHvjuEagPBteM9LK32LraDb8MFZmQ0l/w4fyaQrJfQs2/qXJ +hj8rNhVEz1Bo0LBVWnAzzlvgG5ddoNAN7rRnHvvZ0B1EclfxcpDgRlqStT0b +njmva1vFx0ERhwL9GAfZcDkCFCOwA0tt1yw6s4Gn/3KFJT8HHSWW3UxgsqHh +mNnZ5uUcxKhnsv47xYa9It9mnwly0LebmkLqsWwI3eJwV0WUgwqQ8LG+m2zw +eskr4I0dMTxZl3+bDaXLl/eXYeta1IVtTWSDI9nEu0eMg2K43MetU9hQVDN9 +31ucg3afSPsRmMeGzwprPeIlOUhJ6Yq+UQEbKrt/8HzHnqw/cZunkA3FiSsl +5PF/2IPVyDqmBNv465Vk7PnW1tr0SjbM8l5qvivNQaVWClnv37AhYRhehchy +0LUZbr64ejZ4HqmILMNmZg0cdWpkQ0jofNkfbFHeSoXuJjbQnrzydZPjIO8q +xxt/v7KhM0hPd5s8B6lrJQRo9LDh4/t3i18UOGjmW+infpINR1KPfeNX5KDm +SLbO4z42SFXqqWzBDuvQGzAYYsOAyQ6+BOyfSZ8O751gw88sRUVrJQ66tVzM +NGgZAckuH8+kKXNQ9XjrodM8BFhMGUw1Yve25vj58hHQ5LXi1TT29lKTNOYK +ArYUle+xWcVBpFvgrKUYAWUWOzmj2KJWpuKmEgTwb/raIaPCQdu2iNORFAE3 +KqLkjbBjhfMcGHIEeCXI+F9ZGq9sK1JQxfPRaLWSqhxEZOa9kVInQMc+VkIf +Ozb2XNtKTQImdo+UOGCThIQwL52AGX25X/FL4xJmx4Z0CMh6y3whpMZBlQsS +4aQuAX+fDgSvwe7pb49v1yMg5aHkxV3YhrVBLz9vJeBMwebTAdjd3gXKz4CA +REmBP1+wRRyDN5fvIqCdOUMbwjYwNrcqMiFg0e7o2WXquF/kOs9lmhOgHXpu +kxZ2Be/j2FRLXJ+t6oUd2F1/gh/dscLz/9VSssXe+krqy3VbArJf2Rn6YzOL +Ogcv2xFg13Ss6hL29eTH3BcPEGB+tvnKbexOPwudAEcChvSjBIqwhV2lzU46 +E7Ap/F1lzVKeRddhTxcC+l87Pm1Yen5V6DVXNwLEIzb+27VUj6DlA0cmAd3+ +Z8JGlvIo6ad2LAJGXSbzp5fyOrqarAgCVHuy6dwaOK+xkNx9jICuX7fHBLGZ +5aHz4EmAmmEhnwT29QeWktu8CdirNs+Wx664LrNusy8Bbu2B4qrYnYHdOzee +JKCxX1VoDTaNVeRI9yMgrpWzdz32lr1hJ9RP436J4LTrLOUb7olSCiCgtmlV +jR52tKbsPZlA7F+nerdgl4n2lIgFEeA0POhiiN0xW1QvFEKAgv915e1L+b1h +HXxhBJjwOazfga3/cc/0YjgBZ9mmUUv+P+VE+jQ= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7849,105 +13727,106 @@ wTw= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= +1:eJwV1nk0Vd0bB3CZEpfMMxmrq5RcKSr7KWQISRGSdN17lKmiJGMDqjdJZapX +KJQ5Uwj5qbwNKJonMh+zTOeS8bf9cdZZn7XX+e5nn/PsvY4q84Qdm5uLi6sP +X0v3U+83rClvfm806yJtdCOdREYjGZuZJnko1yPId8ntqfpxGibVKHt7+uKS +bVnv+GmM/9DM79ixWOyiwPCXfCaNiLnf2OQW9tVXsrXhOR/Qp7TKqdvYT5tP +pczpfkGzTRyhBOyBn/Uh56q+o/zBqfNJ2PI96oc4xi0okqvG4V/sPX9CDPwb +2xBDyeJ6CnbN3IBQYE4Hsre7o/EA++sFmeAy3y7kW1yg+BB7hN9kYFK3B43v +u3omB5s/+qQTY4pEPmb0jY+xlcXuvTlV1Yc25MZYlGLbKHAejhgPobG1OWn/ +wybS1KS1BUZQbKhb63/Y4Zp7I70a/6D4Jy1BjdjfZT5vOp0zhtyc13z/ic1y +9jx+O3ocHRTjJHZijyZz3S/2nUCScK1iAFtATVt0TJdCYQUrFOew41gvzUSl +OGjMbMKVL4NEKo+cwjdOcVAhLYN7JfbW9VEjPlXTqLv9kLc69jH9tsYB4zlk +n6b11hZ7MvAMr+DqeaTrt1/8MPb5KqHtdIEF1McwrT6OnQRbcz0aF5FFTIRu +BDYr842JX84y4EVBWc+wc17dbr+gwA3+auNTjdijva4hN6O5YU5/c1YLdogW +VVLoywPyBsrr5rHjHquq/9Hlg67JiMpdmST62TxUs5DOB5mPjojaY6uMlzuL +SPGDloXAaw/sPD2bW9pT/JDUUucQg133NGiZd5UA/LuHs9iGTb381NZnTINV +7Unn4h+SSNyKJhpcQwO6sPDIY2ydzyYgbCAM0zV7P9dje3Y/Sdu0QQQSjIw5 +yx6R6CR3o84OmigYqlE3zmD3qBWMRXLEQOe3ioJfFn4/RP2KJoY45J9uyruN +zZ1LqsqeEgfv2YOFT7BVGKvscgbFYVxshjaL7WwcW/y+XQKawu8oXssmUZO7 +n79MgxSsneJPqM0h0e9HMdfcBKShPK3StB97aDAnPdtUGnhsHDzEc0kkeLrr +07ZaaTgTb8FFYJtEHNBzeyIDb+K2XRXPI1Flhj6VlSoHrA7G9Pl8EmX0zAQY +nlYC52cMu5JCEpnbX/7tn68EI/VX7pDYQ3USu/NJJWgOszKRLyKRXsZ6KRUn +ZagU06i7iF3HdC3hM1oFF39u8nEsJtH4n/azfZdUgEuxhi1dSiIJH5PSEms1 +YNCKplvKSURmCB6z9VQDc36hQsUKElW0NCsMR6lBssrfehdsF6vDl1bXqsEo +mbDuN3bGugC7O7rqQAubT+x5iucfeDQaJqMBDYbpysurSXTAQ0jbskMTCpVk +h+NqSYQC7HUPzmuCyR21u23YWpGpW1hyq+Gdpcgjreck4kpn7Arbtxr+kb3R +/hw7//ehg8XPV8OjHUc+Tr7A+9Mh74L8gzUwYRZV7P0frs/E+usAkw6/X+ef +yKgnUfr+xF9TYXSQym5UmMWOYXa08/5Lh2jzhTV2Dbi/z58ZVP5Eh2RWmtuy +RhKJVd/j2m+sBfUtIvtZ73D/MEa0qtTXQXeKqNH2ZhIpqN0Iv9a9HmrtW7bq +fSVR9T+T9L/c2sD4GG2Viu0y4fSZUNWGd4bRHwS/kSilToO+y1UbNh64sLEL +W82j8uP0N20Yr7687c4PvN68Hk2iYQPImmsmyLeSSElBmVBx0gHaNUkPv24S +rc88TZtFujD901Lw7CSJmKxLlLaNLnhGpZ+lsJPUb/12c9EFWhEyP02RiOfB +48JXgbrwYHyPhD8H77eUgQO3inSh4TzH9sw0Pk+T3O7R1Rmg7pPrHT2Hv+81 +qw2O/HoQxZ2iz8fXi+77adg+adwMdgVx91VlelFzANoSkWkAy6qfrqs17kWq +rl9sDnvvAGOBI2E1Ab2IvVhWoHQOgO7frfMmrxfJDFYsl2HuAi8Bix3hI73o +NGN7yy0tEzi6RporQbcPMYfn3kgMmMLC3yLz0uA+lL/Lf3lqkxlE+kYgg499 +KGPS83lenAUodlguPKP3o+mdsu/qwvfAbXrKIC22H7Vy8Yx1HLUG+lUzMaG5 +fuSreCL2gvpeaL3vfOWixwAqOP6mNj7SFnQci5S8ugZQ0ITc1Lrj+8BURGTf +yOFBRFnudnh9xA70lH3zJQYGkcGhmzt79u2HJOrlzuXBQ+ij3D3POsYBiFHc +1pArMIzkH16qzlprD5UEesOTPYwq2rWsbIQdQIZUjv1gMoKUP496BAw7wP3g +qMzpzhHEiL+Zl95+EExN4qM3xP1B93gnNtx66QihvI11OqtGUdnOjT8jnzqB +s7VRU03oKEra8o/YXI4zHF3seH+jZRQ1/cqMYkQfgq/elT4e+mPoiXWyxsnz +LsAc+d7clzSGxnz2c/myDkP+r+F5ghpD1G76sRFjV9jdxcctazuOsoZ/TPvr +H4G7XAs9I0XjyPF+pvthmhvcNeycl6JNoJLiPUd4LrtBsv+0bKvXBDJQ+Pj3 +6l83sHBDV+peTCD1do+fH44fhW1ZNQcHJSdRt5DX3uSuo7Bfy6n82/FJ1Bxj +425mzwSeOXepU6WTKC4wVehMMxN+yHX84744iaprFv+6W7hDzHJGxuZdFFrp +ApcZle7wMD0VPp+jkIrk6ybFandILoqwKguikE6jtSx/jTt4TsKnxGAK2W0/ +lP39uTtI91y3dQqlUJxiQEPoW3dwvZrJ9/U8heRbc1e++e4O1m9PMsouU0jD +VSbJZcodzrn/9RWNp5CB20hWpB4LckWDDNULKPTwzqi/jT4LqlO+znzBlvw0 +biSzlQVXuSWNrjym0Ijp1OesbSxwvlliNVhI4fOLa1njLha8/C13ObeEQiJT +Yk7i+1hwLZtpL/mUQt3XN69I9WFBsVXrxaiXFIqpCjle8ZAFRfztleRXCvno +JhoEZrFgrm3BI+Abhayyi1ZszWHBdXMynu87hQQTyezyfBbsu5zrr/aDQpF+ +tgNlpdjuh/UcflEohK7h9eQFC7yOiDzJbKOQZ2KDd/FvFnjQHYW7eylkIUJu +92tnwZDKVIZ7H4XWRnIJ63ayQL/cq7ITm/TbnF/Uw4KD30Nc2/opdNQmdbhw +CNePvlz5OEghRz5/38czLFDxObg/7Q+FzPzlT+ZJswHlfln3g0OhF6lRlrdk +2XDuYOf/9k1RaHvjuEagPBteM9LK32LraDb8MFZmQ0l/w4fyaQrJfQs2/qXJ +hj8rNhVEz1Bo0LBVWnAzzlvgG5ddoNAN7rRnHvvZ0B1EclfxcpDgRlqStT0b +njmva1vFx0ERhwL9GAfZcDkCFCOwA0tt1yw6s4Gn/3KFJT8HHSWW3UxgsqHh +mNnZ5uUcxKhnsv47xYa9It9mnwly0LebmkLqsWwI3eJwV0WUgwqQ8LG+m2zw +eskr4I0dMTxZl3+bDaXLl/eXYeta1IVtTWSDI9nEu0eMg2K43MetU9hQVDN9 +31ucg3afSPsRmMeGzwprPeIlOUhJ6Yq+UQEbKrt/8HzHnqw/cZunkA3FiSsl +5PF/2IPVyDqmBNv465Vk7PnW1tr0SjbM8l5qvivNQaVWClnv37AhYRhehchy +0LUZbr64ejZ4HqmILMNmZg0cdWpkQ0jofNkfbFHeSoXuJjbQnrzydZPjIO8q +xxt/v7KhM0hPd5s8B6lrJQRo9LDh4/t3i18UOGjmW+infpINR1KPfeNX5KDm +SLbO4z42SFXqqWzBDuvQGzAYYsOAyQ6+BOyfSZ8O751gw88sRUVrJQ66tVzM +NGgZAckuH8+kKXNQ9XjrodM8BFhMGUw1Yve25vj58hHQ5LXi1TT29lKTNOYK +ArYUle+xWcVBpFvgrKUYAWUWOzmj2KJWpuKmEgTwb/raIaPCQdu2iNORFAE3 +KqLkjbBjhfMcGHIEeCXI+F9ZGq9sK1JQxfPRaLWSqhxEZOa9kVInQMc+VkIf +Ozb2XNtKTQImdo+UOGCThIQwL52AGX25X/FL4xJmx4Z0CMh6y3whpMZBlQsS +4aQuAX+fDgSvwe7pb49v1yMg5aHkxV3YhrVBLz9vJeBMwebTAdjd3gXKz4CA +REmBP1+wRRyDN5fvIqCdOUMbwjYwNrcqMiFg0e7o2WXquF/kOs9lmhOgHXpu +kxZ2Be/j2FRLXJ+t6oUd2F1/gh/dscLz/9VSssXe+krqy3VbArJf2Rn6YzOL +Ogcv2xFg13Ss6hL29eTH3BcPEGB+tvnKbexOPwudAEcChvSjBIqwhV2lzU46 +E7Ap/F1lzVKeRddhTxcC+l87Pm1Yen5V6DVXNwLEIzb+27VUj6DlA0cmAd3+ +Z8JGlvIo6ad2LAJGXSbzp5fyOrqarAgCVHuy6dwaOK+xkNx9jICuX7fHBLGZ +5aHz4EmAmmEhnwT29QeWktu8CdirNs+Wx664LrNusy8Bbu2B4qrYnYHdOzee +JKCxX1VoDTaNVeRI9yMgrpWzdz32lr1hJ9RP436J4LTrLOUb7olSCiCgtmlV +jR52tKbsPZlA7F+nerdgl4n2lIgFEeA0POhiiN0xW1QvFEKAgv915e1L+b1h +HXxhBJjwOazfga3/cc/0YjgBZ9mmUUv+P+VE+jQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.707465764297836, + 1.3838477368320505`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.7074657642978376}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -7959,21 +13838,20 @@ wTw= "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, - 1.7091854080147844`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "PlotRange" -> {{0, 180}, {0.707465764297836, 1.3838477368320505`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.7074657642978376}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -7987,103 +13865,104 @@ wTw= Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV1nk0Ff0fB3CEJFt2yb6EKI99y/eTtYSkFGV3Z0iWQh5RyRNalFJK9VTK -niVLKVt+pOiRIqmoLHO5N9nX5N7i9/XHnDmvM/N9z3s+c873jJJ/uCvBxcHB -QcfHyvnou80bn3W8s9S4HtDW6c5GlhM5hv42xajETFduxQOZRumqNnXIzyVL -uAPbhfaWV0D/FeqKrsluwy6PiW/isWlDl6qP97Rgn2+WbogvfI/kLlNljdjV -HUfv/db7iHh6ZjVrsEe+tJ44XtuN+gYrbMqx1zNUDv60/oY2Bipx5mPvnDxh -GtnWj8KSrHz+xa7/PbI2ppBCJm0yPqnYnxKk4p6GDaI5/SKO09gTvDYjc3oM -JKbItj6CzXvxiIf+AhP99hbS9MGWX3f39dHaYTSqOVLqiO0s+zNvwnoMlfuI -Zqtgk/eVJXX4JlD+nsPCgtjxaruSDrdNon5Grtz8fjbqlur6K6pwGhWl9io0 -YtMOBB+6dnEGbUgaEcvFnrrD8aAibBad7vn18Cw2n7KOyLTePHKf2Vq3HTud -1mQvIvET1Y2dNdmIrZjvEb9l4Sf6Wra4jxvbRDt5IrT2F7qdER9bs4+Ngoz6 -20asf6MEEw8vSey5mGPc/Op/UPmk8tgPNzY6XbvWQpNvCYXbHpOrw74JJkWB -bcvoP7mxQE9sWu5rm4hCTtBiN929uJeNCpuvDSTIcoGk8VErN+yp794n0i5y -waVTyhc2YJ/Qmn9cFrYKbFs+ceXvwX1LlVQm9XggMzXx3yJXNvrSMVa/lM0D -6y87HTiErTjz7ICQBC/4XyirU8MuNnC+qrPACzutMkJu72ajl9WxnCG1fBCX -YBUX6cJG800f+oetBeCmIgQNObGRqKOASFy9AKy+8XQuEVu3ywYETQUhryzy -hwp28FDl/b82CwFLyUnAy5GNjnC16W4VEIHGW4fN6xzYiKH8aDrp5zq4x5nj -u9kez4dsXdOuLwr/NHCeqbRjI64ippL0UVHwjRMXMcdW1FdwLRwVhVR+vsPb -bNnogPWVincDYrC1VETT3JqN2gMiIqXeSMDgUuME3ZKN+vJTU3z5JCHob9lO -F+yx0cLsh7aScL5QXeX5Vjbijxr8YN4gCU8eqQqnWbCRTeJeA99KKTCvvyeu -bsZGNTlG8wWZMvD5/S5eHkM2ymGwos2i5OB8keTGm5pstN3tbF9kiRw48Uaa -Uho4/6WYXQlTDgTeFc1qYBvkaEsoeshDevR13yfqeJ7+3o95LBWgR+qacq0K -G81MDvw9fEYRuqffx56TYyOxUJsnj52UQVevUEdVhI2YOfxBLsHK4CbdU2Yl -zEZV3zpkx5OVgcu9etBHiI08Hb3OqDcoQ6RGlscNAdxvU7TrLT0V4B18dmmW -Dz9/JH/qlJQqXHtl5RbOyUZ7A9fqOFBqsESkB4ZNsxCKdtPb/0cNpkpSSoKm -WEgrKdOYJqMOM73m1X6TLMSRrW91arc6VHIsKLuMs1BJ38H9FY3q8LjAbLv8 -Dxbi3VecsD5rI4z2ScqfHmChKhunTyP+miDgmqfh+Y6FZJUvx6cMaYPTru22 -5/JYqO7CnOYilw44/O/tB5lcFvKc9egilXSAe2vNmsJsFrr3UlXTylsHjOtK -Qpvvs5ByYE3nr8868JXXQ2XyNu5XzFAj32yGjgvN5RyXWUhOVp5U9NCF0nez -bzdGs5B2bhSegh6EyPypygIWehCh6lLZZgjc987sH2lfRB3RyDgx1xRK+TYd -bbVZREreH529QrZCz2yaaFzJL0QsP30kdxxgLbNiY6TELyQ1WrVayt8K9n0x -1d8cuICi9C2+XdWygYUKXv/e5z+R//jv12IjtqDi7+OZLfYTlVhFrs5st4dl -qzUp5u7zKGcuuLE4fQfI//fC80rBHPq1Tfrty/idYMXNv5prdBb1cqyapvyc -oKTjhI+L/iwK2xB+JUFlF9jEjMw4pMygR4deN1xPcoEvpN35sp5pFDsrs7Dp -0G64lPjQba3pNJp3sNvX4uMKzscFi7emTSHTg2nbGLv3wLFmxvYK5iTqlLkb -/FJ/L5S/NMhYaptA6/PO1BVouAENpURLFI6jqgEtR2fBfaAXwJe7u2AMyXdN -BUaP74PmDoXxvKpRpH89rTh7YD/Qv3DNajWNoLvcs5uvNrnDbfmrbedHf6Cn -27Z8Sar2gD6zKH0TkR/opvGFdb8LD4CyhanAevth1P41N1n/4kFo+a9joCvj -O6p0uqN65LQnCCT8bfiKyUTToXs4wmheYCeuWbnTiYnm7TSDJqy9Qf1jQnxy -IwMVjPf8ijTygbSngsM0QwZyf5Ab4CXgCxuCua6JPx9Cjyt2+qw66wvabxxO -3rIdQqaynYvnF32hgrejZbJ/EKkMBH55f8gPWrtlzpkkDaKhtYd33Rn0A3E+ -+ud47UHUkeocYO/mDxc/8wXE0ekoPSZz7bEOf3je/8wg5V86qqtfXgzYEQCC -DfvbOHzoSNgTzurXBEBp0VXTo5vpSFG8pX1DXQAU9I5pl+rQkW6bkzRvfQDE -1iQXj2vTkavFwYfdjQFw2MDWJWQTzt8Q/ebkfwHA75egcUSDjtb3Fgm/7g4A -rslKkavKdKTqLXXTcyEAisWHAi2l6MjUd6IgyYAGt6ZvXDLioqO8W1ORzkY0 -yBNNaXjASUfiH2YspUxocGqv8mFB7Anbha4CcxoECUhtZC5TeD/g4GyzosHN -C6qmd/9QSGhhnYfobhq8NoF6pUUKDV0yXJMZSoNU4cB1iVMU2t1i3BUYTgOy -yUhjaZJC9RxmmbpHabBl293KGOxbkZaGL6JocOybkEH4BIWcPez9GHE0GOnP -r/cbo1C1qkf1pgs00JGnr/IaplBq7YlDVXk4vzZIpniAQqF6GaYxBTSIHSlz -MMZ2fFi+xqSQBjH5/OMv+inEn8F8+KyEBicVuxO/9lEoKcJl5OkTGqQ3KnGI -9lLohKbq4coXNEg2rFFI76FQcMabkIo+GtjoP/g01kmhHUJMi4gBGkwpFcgl -Y2skcQjq0WnA7bvQpYDNjDAsKWfQIMFxf/re9xTyc84cLxujgWT3cbemdgq5 -80SGlbJo8FDR7ltlG4XsI9cfKZYkQGOX9seJZgq9yEx2uCpNwK2Mkeup2BZt -M6ox6wko+5f7y2ZsXbU3PdbyBPT/+GvsyCsKyXyOs/6qRkCnSL0xu4lCo2a9 -kvyGBEwvbyA1Gil0mev+88A9BCzZtcwP1eL33yJw08mNgNWp4pLXsRMPxkTo -7yfAanqpyhY75onLxuUDBEwmXU8uqMH9Sc60G/4ESGsZQlQ1hfRb/WmvjhIg -sLNSQ/UZhT6nqa1VuUJAqrdlMaOCQo+QYNBwGgHBnUOuhdiJ43MvS64R8L+W -+uBwbL0dL0+ZZBAQt2N5nFWOvx9HwIzTPQJys1ytpLDtwu/3xBQToOTurkCU -UkhO7pyR5SMCQplZn3Wx51rDr60qI0DRfozjzyMKZakjp9THBLhuDc+7gf2n -t7chu4aAv7Moi/YSCj1xlC1495oA2YOj6W7FFEphcfGktxJQLN14UAPbv2DE -z6ONAGZO4DV2EYVEuGtkh9oJmEvb4JaNHVLrfnnxEwEGwr1Kv/B/pYrWjWhV -BgH3/5zre/qQQqzPJz/8YBLQXWFefgW7I4nQLR0mQKcvYy4Y+xRlMGI6RoBH -ofVbRewvNz947ZoloERcuzmtgEJXV6+zjeUkIXgqtOtcPoXqZnoPRq0iQUt4 -TJrE/t5bGBHGQwLfjtwf1tgWT2zu+68hYeZ3/RZObKZvDNthHQkM3Z3O/+Th -/o62orZiJNwp8poLwDY3FtVEEiSYad9Ut8O+Ili8T1+GxPv5iS0CK9dr+stl -lUgY3tDSeS+XQmRu8WsJFRJq3ft6ErGvXDneL6xGwiNZwdDD2ExSTJBbk4QH -dQ+NzVaui9kHjemSwHQt8erLoVDNklg8Uw/fH+T86jU248fA9QEDEmhyi1WP -sc0aYpu6TEiQNCBsUrCHQh7JPwcStIXCRwFbyD3O8JkVCSat+o+3YJtab3cs -t8HrP/zkVcBOlaEfz91OQvlwhOtyNoWquEuvZDqQkHxH02EKe3AyLv+WIwmz -Yz1vKWyTZomPl1xIaFVVOd6M7V9OHz3rSkIDb839auxLd0q5/tmL5xFrt7cE -mx6xQzfanQTLkxY+N7AFvSXtjxwgYdQj52nKSt6OQa9gTzwv/6VbCSvrFU6m -ePuSYMSbzB2+0offIcvdn4RMqEghV/LmJatdadjf397zXsmjBtsdSRJEie6t -+1fy2sqYdkH4+Trvg1xW+j07+QeC8Tzrnyk4rORnOYibh5DQm5Xib7OSf0lq -k2EYCedCHP9CK/kxQ9u2HCHhRvViihm2AK3cXTOCBGm9axFG2Ma7ToWrRJHg -c06aobeSb7YzWS4az/v4+cEt2BfVpO9KxZBw7w0jVAf7qQjj8bpYEiR26yRu -wqbY5a1rT5DgyfBR11rJ/36K4jlFwtWwk3s1sY06d/5ajidBrzdJaMX/B1qX -wTw= +1:eJwV1nk0Vd0bB3CZEpfMMxmrq5RcKSr7KWQISRGSdN17lKmiJGMDqjdJZapX +KJQ5Uwj5qbwNKJonMh+zTOeS8bf9cdZZn7XX+e5nn/PsvY4q84Qdm5uLi6sP +X0v3U+83rClvfm806yJtdCOdREYjGZuZJnko1yPId8ntqfpxGibVKHt7+uKS +bVnv+GmM/9DM79ixWOyiwPCXfCaNiLnf2OQW9tVXsrXhOR/Qp7TKqdvYT5tP +pczpfkGzTRyhBOyBn/Uh56q+o/zBqfNJ2PI96oc4xi0okqvG4V/sPX9CDPwb +2xBDyeJ6CnbN3IBQYE4Hsre7o/EA++sFmeAy3y7kW1yg+BB7hN9kYFK3B43v +u3omB5s/+qQTY4pEPmb0jY+xlcXuvTlV1Yc25MZYlGLbKHAejhgPobG1OWn/ +wybS1KS1BUZQbKhb63/Y4Zp7I70a/6D4Jy1BjdjfZT5vOp0zhtyc13z/ic1y +9jx+O3ocHRTjJHZijyZz3S/2nUCScK1iAFtATVt0TJdCYQUrFOew41gvzUSl +OGjMbMKVL4NEKo+cwjdOcVAhLYN7JfbW9VEjPlXTqLv9kLc69jH9tsYB4zlk +n6b11hZ7MvAMr+DqeaTrt1/8MPb5KqHtdIEF1McwrT6OnQRbcz0aF5FFTIRu +BDYr842JX84y4EVBWc+wc17dbr+gwA3+auNTjdijva4hN6O5YU5/c1YLdogW +VVLoywPyBsrr5rHjHquq/9Hlg67JiMpdmST62TxUs5DOB5mPjojaY6uMlzuL +SPGDloXAaw/sPD2bW9pT/JDUUucQg133NGiZd5UA/LuHs9iGTb381NZnTINV +7Unn4h+SSNyKJhpcQwO6sPDIY2ydzyYgbCAM0zV7P9dje3Y/Sdu0QQQSjIw5 +yx6R6CR3o84OmigYqlE3zmD3qBWMRXLEQOe3ioJfFn4/RP2KJoY45J9uyruN +zZ1LqsqeEgfv2YOFT7BVGKvscgbFYVxshjaL7WwcW/y+XQKawu8oXssmUZO7 +n79MgxSsneJPqM0h0e9HMdfcBKShPK3StB97aDAnPdtUGnhsHDzEc0kkeLrr +07ZaaTgTb8FFYJtEHNBzeyIDb+K2XRXPI1Flhj6VlSoHrA7G9Pl8EmX0zAQY +nlYC52cMu5JCEpnbX/7tn68EI/VX7pDYQ3USu/NJJWgOszKRLyKRXsZ6KRUn +ZagU06i7iF3HdC3hM1oFF39u8nEsJtH4n/azfZdUgEuxhi1dSiIJH5PSEms1 +YNCKplvKSURmCB6z9VQDc36hQsUKElW0NCsMR6lBssrfehdsF6vDl1bXqsEo +mbDuN3bGugC7O7rqQAubT+x5iucfeDQaJqMBDYbpysurSXTAQ0jbskMTCpVk +h+NqSYQC7HUPzmuCyR21u23YWpGpW1hyq+Gdpcgjreck4kpn7Arbtxr+kb3R +/hw7//ehg8XPV8OjHUc+Tr7A+9Mh74L8gzUwYRZV7P0frs/E+usAkw6/X+ef +yKgnUfr+xF9TYXSQym5UmMWOYXa08/5Lh2jzhTV2Dbi/z58ZVP5Eh2RWmtuy +RhKJVd/j2m+sBfUtIvtZ73D/MEa0qtTXQXeKqNH2ZhIpqN0Iv9a9HmrtW7bq +fSVR9T+T9L/c2sD4GG2Viu0y4fSZUNWGd4bRHwS/kSilToO+y1UbNh64sLEL +W82j8uP0N20Yr7687c4PvN68Hk2iYQPImmsmyLeSSElBmVBx0gHaNUkPv24S +rc88TZtFujD901Lw7CSJmKxLlLaNLnhGpZ+lsJPUb/12c9EFWhEyP02RiOfB +48JXgbrwYHyPhD8H77eUgQO3inSh4TzH9sw0Pk+T3O7R1Rmg7pPrHT2Hv+81 +qw2O/HoQxZ2iz8fXi+77adg+adwMdgVx91VlelFzANoSkWkAy6qfrqs17kWq +rl9sDnvvAGOBI2E1Ab2IvVhWoHQOgO7frfMmrxfJDFYsl2HuAi8Bix3hI73o +NGN7yy0tEzi6RporQbcPMYfn3kgMmMLC3yLz0uA+lL/Lf3lqkxlE+kYgg499 +KGPS83lenAUodlguPKP3o+mdsu/qwvfAbXrKIC22H7Vy8Yx1HLUG+lUzMaG5 +fuSreCL2gvpeaL3vfOWixwAqOP6mNj7SFnQci5S8ugZQ0ITc1Lrj+8BURGTf +yOFBRFnudnh9xA70lH3zJQYGkcGhmzt79u2HJOrlzuXBQ+ij3D3POsYBiFHc +1pArMIzkH16qzlprD5UEesOTPYwq2rWsbIQdQIZUjv1gMoKUP496BAw7wP3g +qMzpzhHEiL+Zl95+EExN4qM3xP1B93gnNtx66QihvI11OqtGUdnOjT8jnzqB +s7VRU03oKEra8o/YXI4zHF3seH+jZRQ1/cqMYkQfgq/elT4e+mPoiXWyxsnz +LsAc+d7clzSGxnz2c/myDkP+r+F5ghpD1G76sRFjV9jdxcctazuOsoZ/TPvr +H4G7XAs9I0XjyPF+pvthmhvcNeycl6JNoJLiPUd4LrtBsv+0bKvXBDJQ+Pj3 +6l83sHBDV+peTCD1do+fH44fhW1ZNQcHJSdRt5DX3uSuo7Bfy6n82/FJ1Bxj +425mzwSeOXepU6WTKC4wVehMMxN+yHX84744iaprFv+6W7hDzHJGxuZdFFrp +ApcZle7wMD0VPp+jkIrk6ybFandILoqwKguikE6jtSx/jTt4TsKnxGAK2W0/ +lP39uTtI91y3dQqlUJxiQEPoW3dwvZrJ9/U8heRbc1e++e4O1m9PMsouU0jD +VSbJZcodzrn/9RWNp5CB20hWpB4LckWDDNULKPTwzqi/jT4LqlO+znzBlvw0 +biSzlQVXuSWNrjym0Ijp1OesbSxwvlliNVhI4fOLa1njLha8/C13ObeEQiJT +Yk7i+1hwLZtpL/mUQt3XN69I9WFBsVXrxaiXFIqpCjle8ZAFRfztleRXCvno +JhoEZrFgrm3BI+Abhayyi1ZszWHBdXMynu87hQQTyezyfBbsu5zrr/aDQpF+ +tgNlpdjuh/UcflEohK7h9eQFC7yOiDzJbKOQZ2KDd/FvFnjQHYW7eylkIUJu +92tnwZDKVIZ7H4XWRnIJ63ayQL/cq7ITm/TbnF/Uw4KD30Nc2/opdNQmdbhw +CNePvlz5OEghRz5/38czLFDxObg/7Q+FzPzlT+ZJswHlfln3g0OhF6lRlrdk +2XDuYOf/9k1RaHvjuEagPBteM9LK32LraDb8MFZmQ0l/w4fyaQrJfQs2/qXJ +hj8rNhVEz1Bo0LBVWnAzzlvgG5ddoNAN7rRnHvvZ0B1EclfxcpDgRlqStT0b +njmva1vFx0ERhwL9GAfZcDkCFCOwA0tt1yw6s4Gn/3KFJT8HHSWW3UxgsqHh +mNnZ5uUcxKhnsv47xYa9It9mnwly0LebmkLqsWwI3eJwV0WUgwqQ8LG+m2zw +eskr4I0dMTxZl3+bDaXLl/eXYeta1IVtTWSDI9nEu0eMg2K43MetU9hQVDN9 +31ucg3afSPsRmMeGzwprPeIlOUhJ6Yq+UQEbKrt/8HzHnqw/cZunkA3FiSsl +5PF/2IPVyDqmBNv465Vk7PnW1tr0SjbM8l5qvivNQaVWClnv37AhYRhehchy +0LUZbr64ejZ4HqmILMNmZg0cdWpkQ0jofNkfbFHeSoXuJjbQnrzydZPjIO8q +xxt/v7KhM0hPd5s8B6lrJQRo9LDh4/t3i18UOGjmW+infpINR1KPfeNX5KDm +SLbO4z42SFXqqWzBDuvQGzAYYsOAyQ6+BOyfSZ8O751gw88sRUVrJQ66tVzM +NGgZAckuH8+kKXNQ9XjrodM8BFhMGUw1Yve25vj58hHQ5LXi1TT29lKTNOYK +ArYUle+xWcVBpFvgrKUYAWUWOzmj2KJWpuKmEgTwb/raIaPCQdu2iNORFAE3 +KqLkjbBjhfMcGHIEeCXI+F9ZGq9sK1JQxfPRaLWSqhxEZOa9kVInQMc+VkIf +Ozb2XNtKTQImdo+UOGCThIQwL52AGX25X/FL4xJmx4Z0CMh6y3whpMZBlQsS +4aQuAX+fDgSvwe7pb49v1yMg5aHkxV3YhrVBLz9vJeBMwebTAdjd3gXKz4CA +REmBP1+wRRyDN5fvIqCdOUMbwjYwNrcqMiFg0e7o2WXquF/kOs9lmhOgHXpu +kxZ2Be/j2FRLXJ+t6oUd2F1/gh/dscLz/9VSssXe+krqy3VbArJf2Rn6YzOL +Ogcv2xFg13Ss6hL29eTH3BcPEGB+tvnKbexOPwudAEcChvSjBIqwhV2lzU46 +E7Ap/F1lzVKeRddhTxcC+l87Pm1Yen5V6DVXNwLEIzb+27VUj6DlA0cmAd3+ +Z8JGlvIo6ad2LAJGXSbzp5fyOrqarAgCVHuy6dwaOK+xkNx9jICuX7fHBLGZ +5aHz4EmAmmEhnwT29QeWktu8CdirNs+Wx664LrNusy8Bbu2B4qrYnYHdOzee +JKCxX1VoDTaNVeRI9yMgrpWzdz32lr1hJ9RP436J4LTrLOUb7olSCiCgtmlV +jR52tKbsPZlA7F+nerdgl4n2lIgFEeA0POhiiN0xW1QvFEKAgv915e1L+b1h +HXxhBJjwOazfga3/cc/0YjgBZ9mmUUv+P+VE+jQ= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "PlotRange" -> {{0, 180}, {0.707465764297836, 1.3838477368320505`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.5511670383120088}, + "AxesOrigin" -> {0, 0.7074657642978376}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8093,7 +13972,8 @@ wTw= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.5511670383120088}, + AxesOrigin->{0, 0.7074657642978376}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8121,7 +14001,8 @@ wTw= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + PlotInteractivity:>True, + PlotRange->{{0, 180}, {0.707465764297836, 1.3838477368320505`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8129,9 +14010,9 @@ wTw= Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991347865018469*^9}, + CellChangeTimes->{3.991347865018469*^9, 3.9938282708599653`*^9}, CellLabel-> - "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] + "Out[233]=",ExpressionUUID->"eb76a336-4766-47fb-bf2b-0fc8147bf66d"] }, Open ]], Cell[CellGroupData[{ @@ -8195,199 +14076,158 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ - 3.9918503718899097`*^9, {3.991850469268881*^9, - 3.9918504694651966`*^9}},ExpressionUUID->"497f9779-a3e4-c84e-a207-\ -0aac70483e3c"], + 3.9918503718899097`*^9, {3.991850469268881*^9, 3.9918504694651966`*^9}}, + CellLabel-> + "In[234]:=",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.458740908982352`*^-268\\\", \ -\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 470, - 513, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652482224`*^9}, + "\"\\!\\(\\*FractionBox[\\\"1.465403570555412`*^-263\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 234, + 77, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.993828270997409*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], +In[234]:=",ExpressionUUID->"d55b68ce-e534-4e30-b410-a1ce00b7c449"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.7391049816418008`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"5.47507621522411`*^-275\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 234, + 78, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.9938282710044603`*^9}, + CellLabel-> + "During evaluation of \ +In[234]:=",ExpressionUUID->"76c7218b-55dd-44ef-a463-0ad3a9678b27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.0456111998656572`*^-286\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 470, 514, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652572174`*^9}, + 234, 79, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.993828271011094*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.230095503809359`*^-290\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 470, 515, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913478652662163`*^9}, - CellLabel-> - "During evaluation of \ -In[470]:=",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], +In[234]:=",ExpressionUUID->"055d15d3-9ad2-43b2-abc6-87f8ccb505b8"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 470, 516, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991347865275215*^9}, +during this calculation.\"", 2, 234, 80, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9913478652482224`*^9, 3.9938282710193167`*^9}, CellLabel-> "During evaluation of \ -In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], +In[234]:=",ExpressionUUID->"651d1af1-30b4-457e-acdd-b3b34f2e9031"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8lFsYB/BuSlQorm1sM++MrSyRyDI9D0qWIkVlyRLCzVIqRWS7lgpX +2pCItAgzr4ps7SLJkuyFm1RSSdnSonvuH/OZz/czn/fMeZ/3PL9zXtbO4M0+ +c+fMmfOLfP7/nupvqOUcL1hjoUS9360La9pzZMJMu2PB/IhUyR858oCSLTtl +utOhN+/T/nvnNSB007Uuge58CJvdPnn6vAksHZVOn+m6DiKL+lWdzm+AgRrb +4ImuB1BX4ZKSne0KFpyRvi9dbaCh1pH9KDMAZroMTo91DQJveaNNeGoEPDS/ +UvAsfxz+UqreU5GSAvIDlW93avwC58nmqk+3TsOfAe7XFpgL4IahhlpB82xI +17GotnUUwpYD8nzzyDzoyVhx78sSEfQPif5p7VcAxwuiWubKLkXvS2JS8huu +gPSp10dPnpdA4VnrV/3PCyHRwWpN25QkltpfULEYKgLGzWbG3D+k8FgZbk// +WAQ8CYdpnUVSuLpGra97ogg629zoE0pS+C1w4qXD/GLg2O+n7C2l0GDn20wh +lWJ4sDFXsDVTCn17uozcdhXDL4vJ5iYTabSZb7mwZrAY9hnmuTfEyuDDsm0l +0k9KwPqC6IRNsgya6xoNRbaWALUgIqn5tAzW21nMGegsgdb2raXPr8qg8Na1 +b0+8LgGtPYsF+ptlMHyPoHvVzxIYvnzw8leGLPrFtJZKavHA9U/bT3I3ZLFb +QTVzPJkHKw9Xx+TUyKKlq1pjWToPFg6qSbHqZDF5wLE7JIMHlXwBUOmRxbF8 +x7i+izyQsqlMW/FbFrdLSUsdqOJBawxHb50NA7lWd+eVvOXB2s/fw4NeM7Cp +pPgPMOZDmOWpZfc/MlD8SHi6GfKBl6fZKzHFwCnB85qm6/gg4+BhWCkkh8F5 +5bHadnz4WPFoWkBLDv2SPK607uTDydi0/ZmH5BCzh7s4R/kwKKkSVCsij3IO +ZwUk2/ggHXxXQVpaHkMrfwyGdfJhw+PtTf5MeXS53tnU08uH8vDjGmIr5ZHl +71937DUfjg2MjThtl0dXt7MWpRN80C2s9v2cL48Fpp/shRbREGNi78lYrYCS +P3mLU5bRYOmW89XATAG7mU6OmRo0iEZ/iHPcoIAZXlPl+Vo0ZD+Mv5zmoYA/ +hG8/KtalocK66oPgUQVc75MilWNEw9h2duh4jwK2pabSk1Y0uB2YPPb0sCJe +ZezYEL6LBuWzZvIj8Yr46FC97DI/mtz/PyUL0hSRt9R+QZc/DeE/1VvNChTx +WXC/uVogDafj3CQrnyrixpBO66v7aHh6oj73koISJiyKa1OMpsGIl3nzyF0l +tCzrmDd8hoa1Xc2/Rh8rocsGmzvKGTTYzpm33r1NCZVDGHM8M2nw2hzUA2+U +kOM4q9B6jgaLw6yo6PlMlEs83ph2gYY9SlMXTZczceM4Y1V2IQ2TN9Iez2gz +0f2cUNb1a2R+lss/leoxsfFaaHJdEQ3xez30qTVM/NykI/euhIash08ez7Vn +osap9vcLr9NQ65v76WEoE1VH1M/1VdJg9dNQPOIwE1361s9tqqKhOa1dXy+a +id4DOT8rq2noqRSOLjjKxHMNYcXJt2kYXbRfPD6bieIGqQKS92mQoS0NLB4w +MY239W1pPQ3n1752ma1jYsgtV374Yxqonsjo8kYmXt0yuNS0gQbNuTcaVDqY +ODS85FLdExrMHBRcFwyT+5mTJVbWREPAty/Rj0VYmGIq5qD0nNRz7y6pt+Is +bJ9xDGkhFhrpLRKQYZG8yK+LaKfh0ouHnWsoFtZJn5Bo6aCh/85pjTJ9Fp7e +et92czcNxQYLH7QZs1D8qI7mR+Jw+si2MWThcD1axPXQIJXvG7vchoW+B88s +K+ylwS7esDvPnYVVnjVPn7+kQXG2JPCuN7n+0e20bX1kfYRSAn3+LOxJ5Zzq +Jk7yW6Qls5+FErXpLm39NNyz6YtLTWJhlP/y2YJ/aUittZctTiHz70huFn9F +gyu3jteQzsJXQRavI4lntPg9886z8MJxy5c2gzToisdoHy5loRvLRbH+NQ1z +jk/WZpSzsKHPhq00RJ6PwF/O5dUsVGPd2LufePfk5vgvj0g9lsV8knpD6hVU +zxBrZOGjNAN5b2Khd8a0RisLze4InOURF3RzXvj2stBuOm6f8VsaQuwz98QP +sDDnY3JnJDE+ERG8OMTCvMOOSbeJ+6qnVvSPsrApqLNX7x2pp97uuh/jLByf +Ho4IIA4vGXCRnWHhqFfwnjxiqdzHCQ4CFObanbQVGKZhSJorHyJEYQIrzWgF +8fW00tJ/RChsDLsb7kwcLayyvkScQsXsNrFYYrvYrJdPpCm8FHz4+2VixR+i +IcPyFMYeCTBuIP64L26BIEWh1+T258PEVR+ns9mqFEpenHgw/z15Hj4BuqYa +FC78Nr6QSby1/996Nx0KP8xfXGxAzNnmuCNCn0LlqK+XNxB/bWn4mmlMYUj5 +jp9uxPcs1yTdQuKceSVBxKn3ryt0rKNQvSGn8jCxq5Hqja/WFKb5DlEJxMtu +nLNcsolCTavU9ynEM8uX9Gs6UpjywlH0JPHUeUbMSmcKk0cMk08TT4gpcwzd +KSxauCj2f3+J0a5f401h7a7wsXTi0XHDv9b6U9hcZdj9/3gffNaKWAeR+m35 +Yfj//w132dJ2+yj8KhIiFUH8xsppi+MhCudssw8KJh6s9ppyjqRQaflGMw/i +Ac2gTI9YCp9IMk7aEr/MPWSyK5FCSifQ04i4Z2ncwO5kCo8q/yxhE3fGpcTu +PUGhhnpk2ELi55NnlQ+eofDC78u1o6Terb75jyPOUbh3ZkVaK/ETm1uiSZco +vL9tXVEycf3t+6Up10j9GKY/dxHXaj91OMmnUKwmqnUN8R2JV1k5lRTO28Kb +/46sl+r4D9yCOxTG/JLwu0VcMT35b+FDCv3HrmyKJ77+YqFqWROFhX9suCVL +zN8o+aSqjcIMxU79f8n6LL6rFHivi8I10bFQQHz5ot6NxlcUig4Zf+YQZ+12 +g8FJCoM82X1CZP2f7fMbfPedQlcmr6qa9M8pu33xn35TuMzPVTWAOHVlUuM3 +YTbKSmiVPiL9F/ujdJuYIhvfiyzOdiH9GRVY8/1PNhtZxZJCP0j/RgzUnWeo +sbGM4SOcQRz68MVrZV02DqmPNT8h/b/7+Pw9JhZs1LRMPSwxQIPfLzEJMxs2 +dslmXcklebErmFG+fhMbX6hrBasTe2zR/rnZmY1rz8q2ryL54iDnlOQfxMZH +HWaLdF/QYFJUfOHMGTZ67D03WNFJwwtmUe66c2z0bF99Rp04/ExhzkQuGxfo +2WAGycNbMZezNxeysbTtUHgwyUvd7RcyRGvYaOhEZ85vo0F9/qm0hFdsfP08 +lPHsKQ2Pw9P/WfWWjaZ/CySwiHeNpaUOjbCxIrb9a3AjyY8XKclmE2yc/TH3 +uSDJb+b1xKRZQQ7aar+6J0/yX8r9cHSoBgdr4jVG39+joaw9LEpZh4MBM/L3 +GcQO1oeOtK/i4DG/Axes7tKQvupAhC5w8I2ObmIe2V9EFgcfGrXn4Pb9FUJG +ZD+aV7lzz66DHPQt6j8seoP0i7i1x9YHHFyXaqdjfZGG7gCq9a96DmafldJS +zSf9W/cdop6S33/Gfv8jj4a08CKlq50cjJiUEizNoWHF4OKBmREONms1z50k ++29QacuO8xLKKHXirp9kGg0jdo4uQ97K2L/UuehOOA1thZqN3/yVcZP4l7Bt +YSRvBASNRYKVMT5E12D0IA1Hb5Uz9MOUkWdcFCN5gAY1JZnexBRlVCu2CLEJ +psF3tHf78nJlFBa7nufoRfIw2WNryAIV/C3MWDdCziNBIxrUisUqyI/creRu +ScP0+plPn5aoYN+HAss2CxoWCqTH+zNU8J25yvEb5mT+YQ9vemiqoJZr4ztP +Lg2RPioSdltU0Fc4qjpoBan/mo8ty3NV8EN+/01bSbK/fz5o9UZfFbkdNvv4 +N/kgr6OYIGSiikZ7FJrDaT6MhtQ+WG6qilsG42izYj6cmlpiEmKjii9DP//5 ++CIf+n8Vav12V8WVAvuyCtP5ELL4pYTsUVVscb50rCGYD1nq2L/hhSrOfpPI +S1Yl50cvoX03o9QwSnyu1/kUHnmfkJ6b+EAd7y95mrxvTQmIN6mk0p+XoelU +UNsdcp6XT+Jv0tfXQDmt2wzhzdcgY7nhEglfTRyX+P1Vov4qPGGYrho/oYVf +uadfx66+AkbyD9K0O7XxrAttsDj2EogK5O/3jF2BPs/WSXcPXwTFGCUTJxUd +jOMd857VzQdhZdfyzfU6+MomK7vjnwugxZXlH9yhiwVdg+HuGjkQ0i/+0HrO +SuzvLWiZq3AOPo8nO1plrER4W3GK5ZcB67Xrsqw09XAeZXuTO3wa7owb/5hu +1kNPN69Lf3uchCAN3d5nPqvQr1Pirb3OCeCOerc7CetjItP8bplwKqzjyGwU +ydfHwBbtq3rbjoFa9LFDDwwMsNG/rnv14kRY5mN4V7nXAK0mKumUjjjwueP3 +9829q3GyNiewUTUG7l5o9/4iaYgRu1r1jqtHwsTV39PatwyxoP1HyofKQ+Cl +XCSctdEIa5u+tI/LHIAvy07qXx8zwr8XXO1LKNoLFQU/Xk0mGeONto6k902B +4LyWjcaKJmhoc9tbU84f5AITK7XumeCM+JZ73TXeILkwoHTjNi66twgvzV7r +CQXmkeFjTlwUrbq4aqu+J+hGppqfdOXiRMCrDIaaJ9iO0R3dnlzU93ki8GCR +JyR0Ts54BXAx7+CW+mPPPeBbfpRZeAwXo2K/fJj19oBe45PPLxeR8ZwlMtIV +3cHvQEG2FY9L3p+sJaPnucMUr8znI81FvX03c6NH3ECc6p7WKediWsFKflW5 +G9gIKcjfvsdFmDGNWrrJDWraL3s/7yDX5wRxMGEHWItWaIZ2c1F5U5KhU+AO +6F7fMCXzgovde38X/u2wAyaqPiS5/UvGY7L3irN3gGbeipL3I1zUdZ72Ebrv +CjW9pqHJn7iotu0M+8ZVV7D+cwtoj3Fxs5PRm+A0V9iVeODZ/kku/gOrrJQ8 +XGHiXkKW9DcummYOdyy1dIXY72e9qr5zcf+Qk7HUCldYoleoseMXFx+N3A/S +kHGFnMCqyd+/uVjN3+HjMMcV/gMsX08A "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -8401,158 +14241,113 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Annotation[{ Directive[ Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= +1:eJwV13k8lFsYB/BuSlQorm1sM++MrSyRyDI9D0qWIkVlyRLCzVIqRWS7lgpX +2pCItAgzr4ps7SLJkuyFm1RSSdnSonvuH/OZz/czn/fMeZ/3PL9zXtbO4M0+ +c+fMmfOLfP7/nupvqOUcL1hjoUS9360La9pzZMJMu2PB/IhUyR858oCSLTtl +utOhN+/T/nvnNSB007Uuge58CJvdPnn6vAksHZVOn+m6DiKL+lWdzm+AgRrb +4ImuB1BX4ZKSne0KFpyRvi9dbaCh1pH9KDMAZroMTo91DQJveaNNeGoEPDS/ +UvAsfxz+UqreU5GSAvIDlW93avwC58nmqk+3TsOfAe7XFpgL4IahhlpB82xI +17GotnUUwpYD8nzzyDzoyVhx78sSEfQPif5p7VcAxwuiWubKLkXvS2JS8huu +gPSp10dPnpdA4VnrV/3PCyHRwWpN25QkltpfULEYKgLGzWbG3D+k8FgZbk// +WAQ8CYdpnUVSuLpGra97ogg629zoE0pS+C1w4qXD/GLg2O+n7C2l0GDn20wh +lWJ4sDFXsDVTCn17uozcdhXDL4vJ5iYTabSZb7mwZrAY9hnmuTfEyuDDsm0l +0k9KwPqC6IRNsgya6xoNRbaWALUgIqn5tAzW21nMGegsgdb2raXPr8qg8Na1 +b0+8LgGtPYsF+ptlMHyPoHvVzxIYvnzw8leGLPrFtJZKavHA9U/bT3I3ZLFb +QTVzPJkHKw9Xx+TUyKKlq1pjWToPFg6qSbHqZDF5wLE7JIMHlXwBUOmRxbF8 +x7i+izyQsqlMW/FbFrdLSUsdqOJBawxHb50NA7lWd+eVvOXB2s/fw4NeM7Cp +pPgPMOZDmOWpZfc/MlD8SHi6GfKBl6fZKzHFwCnB85qm6/gg4+BhWCkkh8F5 +5bHadnz4WPFoWkBLDv2SPK607uTDydi0/ZmH5BCzh7s4R/kwKKkSVCsij3IO +ZwUk2/ggHXxXQVpaHkMrfwyGdfJhw+PtTf5MeXS53tnU08uH8vDjGmIr5ZHl +71937DUfjg2MjThtl0dXt7MWpRN80C2s9v2cL48Fpp/shRbREGNi78lYrYCS +P3mLU5bRYOmW89XATAG7mU6OmRo0iEZ/iHPcoIAZXlPl+Vo0ZD+Mv5zmoYA/ +hG8/KtalocK66oPgUQVc75MilWNEw9h2duh4jwK2pabSk1Y0uB2YPPb0sCJe +ZezYEL6LBuWzZvIj8Yr46FC97DI/mtz/PyUL0hSRt9R+QZc/DeE/1VvNChTx +WXC/uVogDafj3CQrnyrixpBO66v7aHh6oj73koISJiyKa1OMpsGIl3nzyF0l +tCzrmDd8hoa1Xc2/Rh8rocsGmzvKGTTYzpm33r1NCZVDGHM8M2nw2hzUA2+U +kOM4q9B6jgaLw6yo6PlMlEs83ph2gYY9SlMXTZczceM4Y1V2IQ2TN9Iez2gz +0f2cUNb1a2R+lss/leoxsfFaaHJdEQ3xez30qTVM/NykI/euhIash08ez7Vn +osap9vcLr9NQ65v76WEoE1VH1M/1VdJg9dNQPOIwE1361s9tqqKhOa1dXy+a +id4DOT8rq2noqRSOLjjKxHMNYcXJt2kYXbRfPD6bieIGqQKS92mQoS0NLB4w +MY239W1pPQ3n1752ma1jYsgtV374Yxqonsjo8kYmXt0yuNS0gQbNuTcaVDqY +ODS85FLdExrMHBRcFwyT+5mTJVbWREPAty/Rj0VYmGIq5qD0nNRz7y6pt+Is +bJ9xDGkhFhrpLRKQYZG8yK+LaKfh0ouHnWsoFtZJn5Bo6aCh/85pjTJ9Fp7e +et92czcNxQYLH7QZs1D8qI7mR+Jw+si2MWThcD1axPXQIJXvG7vchoW+B88s +K+ylwS7esDvPnYVVnjVPn7+kQXG2JPCuN7n+0e20bX1kfYRSAn3+LOxJ5Zzq +Jk7yW6Qls5+FErXpLm39NNyz6YtLTWJhlP/y2YJ/aUittZctTiHz70huFn9F +gyu3jteQzsJXQRavI4lntPg9886z8MJxy5c2gzToisdoHy5loRvLRbH+NQ1z +jk/WZpSzsKHPhq00RJ6PwF/O5dUsVGPd2LufePfk5vgvj0g9lsV8knpD6hVU +zxBrZOGjNAN5b2Khd8a0RisLze4InOURF3RzXvj2stBuOm6f8VsaQuwz98QP +sDDnY3JnJDE+ERG8OMTCvMOOSbeJ+6qnVvSPsrApqLNX7x2pp97uuh/jLByf +Ho4IIA4vGXCRnWHhqFfwnjxiqdzHCQ4CFObanbQVGKZhSJorHyJEYQIrzWgF +8fW00tJ/RChsDLsb7kwcLayyvkScQsXsNrFYYrvYrJdPpCm8FHz4+2VixR+i +IcPyFMYeCTBuIP64L26BIEWh1+T258PEVR+ns9mqFEpenHgw/z15Hj4BuqYa +FC78Nr6QSby1/996Nx0KP8xfXGxAzNnmuCNCn0LlqK+XNxB/bWn4mmlMYUj5 +jp9uxPcs1yTdQuKceSVBxKn3ryt0rKNQvSGn8jCxq5Hqja/WFKb5DlEJxMtu +nLNcsolCTavU9ynEM8uX9Gs6UpjywlH0JPHUeUbMSmcKk0cMk08TT4gpcwzd +KSxauCj2f3+J0a5f401h7a7wsXTi0XHDv9b6U9hcZdj9/3gffNaKWAeR+m35 +Yfj//w132dJ2+yj8KhIiFUH8xsppi+MhCudssw8KJh6s9ppyjqRQaflGMw/i +Ac2gTI9YCp9IMk7aEr/MPWSyK5FCSifQ04i4Z2ncwO5kCo8q/yxhE3fGpcTu +PUGhhnpk2ELi55NnlQ+eofDC78u1o6Terb75jyPOUbh3ZkVaK/ETm1uiSZco +vL9tXVEycf3t+6Up10j9GKY/dxHXaj91OMmnUKwmqnUN8R2JV1k5lRTO28Kb +/46sl+r4D9yCOxTG/JLwu0VcMT35b+FDCv3HrmyKJ77+YqFqWROFhX9suCVL +zN8o+aSqjcIMxU79f8n6LL6rFHivi8I10bFQQHz5ot6NxlcUig4Zf+YQZ+12 +g8FJCoM82X1CZP2f7fMbfPedQlcmr6qa9M8pu33xn35TuMzPVTWAOHVlUuM3 +YTbKSmiVPiL9F/ujdJuYIhvfiyzOdiH9GRVY8/1PNhtZxZJCP0j/RgzUnWeo +sbGM4SOcQRz68MVrZV02DqmPNT8h/b/7+Pw9JhZs1LRMPSwxQIPfLzEJMxs2 +dslmXcklebErmFG+fhMbX6hrBasTe2zR/rnZmY1rz8q2ryL54iDnlOQfxMZH +HWaLdF/QYFJUfOHMGTZ67D03WNFJwwtmUe66c2z0bF99Rp04/ExhzkQuGxfo +2WAGycNbMZezNxeysbTtUHgwyUvd7RcyRGvYaOhEZ85vo0F9/qm0hFdsfP08 +lPHsKQ2Pw9P/WfWWjaZ/CySwiHeNpaUOjbCxIrb9a3AjyY8XKclmE2yc/TH3 +uSDJb+b1xKRZQQ7aar+6J0/yX8r9cHSoBgdr4jVG39+joaw9LEpZh4MBM/L3 +GcQO1oeOtK/i4DG/Axes7tKQvupAhC5w8I2ObmIe2V9EFgcfGrXn4Pb9FUJG +ZD+aV7lzz66DHPQt6j8seoP0i7i1x9YHHFyXaqdjfZGG7gCq9a96DmafldJS +zSf9W/cdop6S33/Gfv8jj4a08CKlq50cjJiUEizNoWHF4OKBmREONms1z50k ++29QacuO8xLKKHXirp9kGg0jdo4uQ97K2L/UuehOOA1thZqN3/yVcZP4l7Bt +YSRvBASNRYKVMT5E12D0IA1Hb5Uz9MOUkWdcFCN5gAY1JZnexBRlVCu2CLEJ +psF3tHf78nJlFBa7nufoRfIw2WNryAIV/C3MWDdCziNBIxrUisUqyI/creRu +ScP0+plPn5aoYN+HAss2CxoWCqTH+zNU8J25yvEb5mT+YQ9vemiqoJZr4ztP +Lg2RPioSdltU0Fc4qjpoBan/mo8ty3NV8EN+/01bSbK/fz5o9UZfFbkdNvv4 +N/kgr6OYIGSiikZ7FJrDaT6MhtQ+WG6qilsG42izYj6cmlpiEmKjii9DP//5 ++CIf+n8Vav12V8WVAvuyCtP5ELL4pYTsUVVscb50rCGYD1nq2L/hhSrOfpPI +S1Yl50cvoX03o9QwSnyu1/kUHnmfkJ6b+EAd7y95mrxvTQmIN6mk0p+XoelU +UNsdcp6XT+Jv0tfXQDmt2wzhzdcgY7nhEglfTRyX+P1Vov4qPGGYrho/oYVf +uadfx66+AkbyD9K0O7XxrAttsDj2EogK5O/3jF2BPs/WSXcPXwTFGCUTJxUd +jOMd857VzQdhZdfyzfU6+MomK7vjnwugxZXlH9yhiwVdg+HuGjkQ0i/+0HrO +SuzvLWiZq3AOPo8nO1plrER4W3GK5ZcB67Xrsqw09XAeZXuTO3wa7owb/5hu +1kNPN69Lf3uchCAN3d5nPqvQr1Pirb3OCeCOerc7CetjItP8bplwKqzjyGwU +ydfHwBbtq3rbjoFa9LFDDwwMsNG/rnv14kRY5mN4V7nXAK0mKumUjjjwueP3 +9829q3GyNiewUTUG7l5o9/4iaYgRu1r1jqtHwsTV39PatwyxoP1HyofKQ+Cl +XCSctdEIa5u+tI/LHIAvy07qXx8zwr8XXO1LKNoLFQU/Xk0mGeONto6k902B +4LyWjcaKJmhoc9tbU84f5AITK7XumeCM+JZ73TXeILkwoHTjNi66twgvzV7r +CQXmkeFjTlwUrbq4aqu+J+hGppqfdOXiRMCrDIaaJ9iO0R3dnlzU93ki8GCR +JyR0Ts54BXAx7+CW+mPPPeBbfpRZeAwXo2K/fJj19oBe45PPLxeR8ZwlMtIV +3cHvQEG2FY9L3p+sJaPnucMUr8znI81FvX03c6NH3ECc6p7WKediWsFKflW5 +G9gIKcjfvsdFmDGNWrrJDWraL3s/7yDX5wRxMGEHWItWaIZ2c1F5U5KhU+AO +6F7fMCXzgovde38X/u2wAyaqPiS5/UvGY7L3irN3gGbeipL3I1zUdZ72Ebrv +CjW9pqHJn7iotu0M+8ZVV7D+cwtoj3Fxs5PRm+A0V9iVeODZ/kku/gOrrJQ8 +XGHiXkKW9DcummYOdyy1dIXY72e9qr5zcf+Qk7HUCldYoleoseMXFx+N3A/S +kHGFnMCqyd+/uVjN3+HjMMcV/gMsX08A "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06606421159259862}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> @@ -8564,183 +14359,138 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06606421159259862}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{117.9605728938093, - 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + 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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]], Line[CompressedData[" -1:eJwV13c8Vf8fB3Ah85pFqGS7MzNCeb8jMjKTInumVJSVFomEhBRJZaf0lRUZ -Re69pRINyUqiJJllFvU7v7/O4/k453HOuZ/36/N+nyvvdcTel5ODgyNqBQfH -/49z/c9ZSonphrH8V6+LpTsZdtyUOr6t6yjIduWWZITpAkq0e0l1nYUJae4a -j7AdEGZ79wNXVxoM3FGb1g3bA2ITa9IWP+SBv2aTx0SoP3xqsD4y86EC1g+/ -HJkJCQdTpdGP0x+aoa1t8pVy8HlY/KB7ZerDWwgf8Kn97ZkBTOPbBW/yhuD1 -PWf7Z2uKYd2n2mEv+jjE/8vnO3ylHFYHut/lNf4Fa3qKlb/frYY0DdN6690L -sLbxG3d0WT10Z6o3TYsug+bawLf0jkbIelciEqa8DP+MT1Z0f2kEZ2FV9996 -y7A1WdbrxGwj9MWs/8vpvQwaXW6XrAWbYOCwwJbVD5ZBL774BZ3eBCPbv9To -OP2FK8O2ft2BTbAwlXH/RO4/IE8pan793gSJBWfaOaVXYMiGeU6vt0/AQjtA -XEJxBf5xsrFV7H4CfCz73aqMFahu6tDa/+kJnBtS7rXctgLTnzpYbh9/AicV -WofTA1ZgDDXE6DlvMxzOkfqrUrcCsSaDv86gGeyyy+mW+zjRqumusdqtZhCl -Xz/i6suJA9NHNmoXEutYf67iyBFOrMz1UtYqaQaL3j2b02M4UfSzvfaGmmYw -kvlr/LGEE7/I3np8v60ZtDMt9h1Z4kT1TxvflC81w5r0oQuXb3Dh1tboGW0H -JkjRHpxbKOLCk3FfQjc4MUGmOe6MaxkXStfYVnO7MUF2ihKqyuTC6wsVRxv9 -maC8M8ijfoQLVa7Ktc9GMkGLe1lnSIsb3yo4vfDNYYJNiOQXzRfcePul3aDt -NybYCo70Z7zjxs35HKVpP5hgn1fbvdTHjW1Xrqi3TzLB8bVL+9NJbiyx5XPe -vMAEV3p+nbPESrzBf9/gJR8LDn5RSz3rsRId+YI2/iKz4LyDueHbuZW4qBk+ -ZunLApmqNhnOFTyoMN68oBHAgtJVDvMagjzIf3l7u9ghFnS+dStL3cCDqfHv -ex+HsEDJLkTBzowH98paRbbFsKDZ6hbP62s8GK+SIsLKYYHjf0pD//J58E+B -1mfTAhaMku42qpXyYHC67FnmbRaItVZFXGrmQVnGca27pSzwsHgxav2DB0lS -pR6MBhYsm862vdrCi0uV5vaCnSxIKYosWTblxb4ybjtaN/F8Ho54hh0v1rNk -VE36WLCTLbDtoi8vCtxh7fMbZEGWsVzlzmRezE26u+A2wYLNaJnx8hMv9jKU -Mygr2XBML9f9+Vk+jInQLadsZINFjvCMZRIf0qICed3U2aDAezK+7QofbnJj -SFzUZMPrDsfyd8V8KGtzzLlXhw0bg0hc/W18mK9/IG8zsGGkKLzopww/rrQs -+TxnzYZGoa/6oUr8+HyGKf7Blg1XQ+zb5xn8OB/dx1dhzwYTI8bCEvJjl03F -jr2ObMj7OGjO68+PVVlfKX6ubHBZbT2+tpIfU6pKHeMPsEHrRH30zQbi+lAL -c4lANggMkiXln/Jjzn1v0RuH2FB7nwtUuvmxOFlL7kYQGyQta1PU//FjcFWt -t3sYG8bLVZQr+QTwnnLBGmY4G1hS6bWbxAWwsTe+WP44sR7Dhwf1lQVQzbXA -t/0E8XujlbRNLAUww8g0cDyKDbdHUlueOQjgxt41quSzbDht88/Fwk0Aj0r3 -PXONYQNjfU+sTbAAnh7qa6yNZUPCw0sfnDIEUOxh4l3tBDZsn/wdeXhIAKlp -cuG6aWw4bpZOfTImgC+Phl5ed5kNpbmMnlVzArhSQ6N3ibCUg4deLZ8gNpwr -ni69woaxh+x5ro2CqF1x1qU7kw3y4u63HXUF8ePnidmMa2xwPLjgeAcFseNe -DMsuiw1N62nV1rsEkcdBlafmOhsun00JuRYhiOoiVYZmN9nQ0ktRGosWRHZd -dcEA4SVt5jvDREHc206yCLnFBr9vs5pfbgiipPm3PRdz2HAdLw3q3BZE0Yf8 -TPFcYn2ukdMulAmiWW790cuE9Xfum97IFMSE4LWFcXlsOFI4kxPdKoiMVSHU -RcIFfy/adrwXxK+55Yt++WwQLm+6f3xEEMONjE5oF7DBWMDZvXVaEO2v7VRP -Jxzh/Ut4wx9BfO9zV3uS8KCEymGWEAk9Zj+pZxSyYc2RxvVr1pBQzPsE7Qvh -nS17XwXIkdA5fTqSXsSGaPmfJxsoJJzSLJYLIlwdmUgX0SJ8mEf2PuEf75T6 -PLeQMGM5JOQ7YTnG48QqExLyS7kpb7jNht1xewx4bUgoEcnQtCWc8Glq1Gkv -Cf942GafJNy4OSHrnicJ6QmbfAsIz6QqWvw7QEJxTavkZ4QpPxoW7UJI+Fac -X3qYsNt2xzsFp0go4N3Hw1FM1OPG5N75OBJe7jBwkiDcMhfPZ5FCQqPLN8RU -CC/bKDzMvkbCKuPjGpqENe/U+0/mkXBmhVmdHmF/zt1rjO6RcLfHuf+2EM7e -N/E0/QEJFf3ukgwIv6k6H/btMQm9knW7tQnzCMur6LeQMOnp3dVUwgb+de+T -3pDQ4dC5JhnCQU27Yj/1kNDdzrSfh3Ch9Li25hcSzt8/dmSCeP+eo3Ffzo2T -sFsrNfQNYZHWDekf5kg4+Evp533C25VrjakcQvgquHr4AuHjp+1/neQXwl+Z -bQ7uhEs//MhrFxfCvw3zW9UJD6nH2iusE8KCzEf5S8T6SyXIcoYqC6Hbzv/O -s/5fvy12njKbhVC70uS1KWEzt5s/dY2EkPksX+oPUW/hqB8xu3cK4cJLDZm7 -hLOZsUUpHkJY/2TKdoHIi/fXt7qlB4Qwd0ktIYMwlVfu+csQIeSsrj+nQfih -Rd0PngtC+LD7O3s3kcczgbynlC4L4YXYO6IDRF5Nkx2EjW4IYf/GKSVfwh1v -JtRPlQuhqIVnhTuR96m9imG/uoUw7YLHdUliv9REBvGKfRHCBKnuwHBiP53O -fpS5cUIINc8USr27wQbSwJ76AE5hNHNv5j2RzQZV/ySOAaowBnLQoi4S+3ci -vjt1WVsYszwcPNjE/q66q6K4FoRxm40ofSGDDUYTTSaOu4SRrcRxyfoqkafQ -2YTWE8KYLebZ9JjoJ8oZRutGY4UxX6tKvy31//3i0n+8KcJofdq0oiuFDZFL -lNdGBcIoki2b15/MhisxbhK1rcJIUqxklhL9yaWwpKizUxglxAT8r14g+v+z -Bd2ZAWF0ya+WPh7PhjKBy85qs8IYG61frRbHhtbUZ7cK14sgLgaQvKKJPFeu -1mCqiqD4vU8HFIh+6fzes3lAQwSTHFV/fDxNzAeppS9rTUXwr2S8s+lJNnDl -qFPTDovg2hQfnY9Ef9YvvVZ1ulEEgwxXzykdJPL0oW15okUETX++0asMYIM1 -B/cO97ciOCeY7bl1P1Ff+8Pd8FUErV7p+5r4EvU6IX8maqUoKn1UCFFyJ/K8 -YS5/G41wGWeQHDFvZitTWhbVRPHW66ShQ8Q8ijSjjZdri6KbuPq+GmJexQZ7 -6CgYimK+xIiboSUbspgvWjjtRHFFmtv0uu3EvPC/Nc4ME8WFTWdEZDexwXxJ -T/zkCVG8l8BbT9diQ1tKh452lCj6KJQm6mqwobuWP6rggiiuWl9TsI1B1Fcw -RDw2WxRffL40papM5L3MTNe0WRRfjQ+2GK5mQ+DCdFSLkBgWBM8fLZhkgX6w -n+SwuBhaPhH6yTvOAr7RnhIuKTGUfeqh7z/KgsJeZqehghg+EPquIf2VBf2P -r9Af6IjhLd0xAcseFtjE6nXluovhL0PB3hEmCzTFo9VOlIuhYPqhd3LpLFik -ifYzdoujoOSrW4oUFszdkInWchbHm3t8a3KUWTAjoqyk5y6OiUFewTIKLJj4 -pXdge4A4GvU0f+Bay4LBeu8551PiuLG8pqGUxIIXljXC8YXiqDAV6upPfI9l -HXSDwVlx/N3bUBdewYQtJfdyrl5dhQE6ZnmVakyYFrfwcGxejRymMQdd5Zrh -S5KH41FeSdy75sSryp4mMJ8MN/+qswYpfM/TuxmNMObNd6zqjBTq9PukqTs1 -EP8H1nCeb5bGrm7H3LdJtSD+SiW5bFIG5Qel6vx/V8O6+Pu2Ojrr0LyOy9bK -rAoyaXqiq/zX4+7eJ+sHh8rhhcy2Tb9SZdH153e1cI/7oL+uOUWtcwPu60w8 -GzR3F4S58kI8z8rhpVPdH7duug2y0Ru2OKnIY/vC4yD1pHzgV3aptn8mjzJu -OzcwXXNg41bp++GuCiinM71jTcx1ONovzrTgUMSLpKwPM1evwuSvpN3mmYpo -lMOnKFaQBjvUnmaZM5TwtrheLKMoGfbymDm8VlPCzLGk6uLEZDjw8bnQHk0l -HLCiZOoEJ0Ny4qsoH10lfCp+zjxhSzJ0fuvwO7NNCV0yrgWLdlwEn5whzQe7 -lTDbf9OWFJ6LcFZsxUu500oY5rLlldzxRHj8y+DPfJsSnuPYsHQjLR5yW2u8 -dr1RQvWWP/v/nIqHc4VaL0rfKWFay14d/4B4MN9Du+bbRZxPDegMwHjoqJPR -ffdZCT+N9PvJTJ6H0ejFo6UzSviuvTFPweY8SIrWjPrIKOP0dFPoTek4OEzX -7Hnjq4zrc2bzHnXGQOi8zG/3/cqYY54QzM+KgZPNXDITB5RxdKe+jE95DCTu -fe8kEKSMEYLqH0ySYqD4XES3UaQy/v1xj1RnFAODfY+7KpOVcUH28nvXirPg -eNHyw5UaZWw3G3/kmB0NWyd8Opz4VTAoiLHCX/MMSNbvyGsQVMHOEbmG7xJn -YOI8NWiDsApGnLIqO7t4Gm7KTwl+FVfB8wNaIvNNp+GvwwnjoHUq+ChfR3vE -9jQ01qdWxKmp4Ir5O5cGQk7BtguPUyp3q+BPlcXlV60nwERJykooTwU1blLS -WmsjoGqcLe9ToII7GqcDx/IiQKnm2FxdkQrezipIlU2KAG6L9lv7S1TwuFR+ -Qq1bBDQfifvJrFJBudTOhRbuCDCsn8mIfKaC1lz2zcYO4aBj/2bw25gKHjt7 -85kTRxiQoxIimnVVcdhAJfl6wjFoMChcuVNfFbeu+SroFXYMbOcb095vUcWV -icfa9b2OQcTh2Xsj21Sx7Of1nwr6x6DFxeOz8E5VzG5/pN06ehT26+lY7PNQ -xaKD5dLhNkfhzs/Pa2fiVZHLYMfmd8rBQPXVa1TuUUWz7Hp2I+9huKRg/Tum -j7h/P+toy/dDMPPJa9Ngvype2RF44sfLQ/DYOank5pAqPn45ax+VcgjsbT9l -rBlXxSPz/3EPyRyC4waxQfwcZCwUX/h0QjsQWsTeyI8rk9E561NnROQBYLR/ -dbEkkzH9peGlYvcDkJb0O+MOlYznrp+2ndp+AFx4lYT91MhoVNhS+EzkAEwu -hf3u30zG5dyaostFASA5su7da0syruxtjkzt2g++j/efqwomo4zOW8W7Vv4w -cWg03CSEjPtwWLhWyx8i1gce7Awjo84x1YLP0v6QcPKI/cIJMroHvQk/M+wH -ZfphclviyPh3YiHoR5QfLFXHNDCzyNg8nGl4tM4X0u7fnHnLJCPrYsuFu+AD -69zlRryfktHadOeup2QfKBTO651pISOt5KT2opgPPDxU2CzZRsafqt8n8r94 -w0favRTnLjK2dvasF0z0BnJxLX1wjIx//MtcRPq8oDGnw2dagoKTE5kVAcme -MLBT3j1MioK7d2X/zIn0BI7FQ05/ZCjYoihEG/PzBCM7XuuVchTce8kJH4Mn -PF2hrytNpaByCv96m58e0Op1i3+bIQUz/BjPVu/zgB6lA6UpfhRkR6X0hoW6 -wZ/X1cUSARR8zr0qIM/eDdad4srPOkhB8QFr1rSaG7i+z84oCKLgmbw9vn9G -XWEgtj3qYSQFq99qDlR7ucK3Ye1dA8kUdKi0Cqnc6wIzxf/m1Woo2EFT3zPu -6gzDjqY5F2opyF0U1O69zRm6uC+aDdVTsID/pOKckjPUe8hcu9pEwf6WlxyH -x5zgrNQm/eXnFPRee4ej+KQTiMYfOPmij4IjjtEv1fP2At3/PYcvJxVDVIsD -5zj2gKzEujuPuanY5K/4vf6bI4gyveykeKmovr3uUFabI/ySncp9KUhFsd7m -zXnZjlDXKWCsKUFF+eStJ3v0HMHMFGP/qVLx2u2b0r0Ru8FbuYQ/y4qKGXnJ -tQl8DhDJdjugYktFn/gQyYCpXZDiK/6ywp6K8zLq7zy7dkFD4fGkl3uoGO1u -wptXvAtWq5iJLHtS8R5t6bqzxS54qvJ1tUcYFWWOkFquptkDlbxBTuUWFaWe -Sd9K3WQH2PI2qiKXivsbxmOT5OzAcX/cZ8MCKnoWK7+4KWgHMcXjeXvuUHHF -oLsI/6At9JEblC9UUpH20VHs5yVbSKY40caeUfGs4/N87gEbmKZe1qmYouKl -9NEO7mgr6GpFk1W/qBjuofjtm5sVNB2e2BUyS0VGwvz8xBYrSK4wD9b5TcXY -caVL+xd3AlWf414dFw1zrCnjK0N2gpf5IXmmJA2V5MwvtB6xhA7/HaSOLTTU -Cp44fzvKHOr5Z2U2AQ3L+Ga3v/Qyh7ySPMrVbTSsmGz7K2xiDkGTy6Z7TWlo -f9N8cpbfHITCq6L7bGi4rYoZYnjFDEzj5Oe/eNFwpc36sVvlO+BhwZ/Ps/E0 -3O0wuLWLwxR0jEPmLRJpOGH40d/kmwk8+DxGyrlIQ2N5g45Xr0ygQrZf1yKN -hvqfokjq103gXmbTxZvXaTgWGUDV1TWBnKRYvR2lNAy2Vu7WC9kOF0JEUjPf -Edc/kVjrvcIY+FbFF42/p2F5wYch3h9GEFfO0WDURcN11/q6WB1GcG5ienis -j4afG2RH44qN4PT+ji3bhmkIe9iyFDsjOOpybeT7Ag33hRyrfVO0DZy3K6KB -LB1nT+d2SXojLHfwCTPl6NijvMA/YYWQ4zvRa6FIxwmeUr/+zQjDcbXhzmQ6 -eoTd1hEQQTj63Ob+cU06hpclJkgeB0iwPin70JSOU22iCps3G0Ld3vdL2kfo -qF75pe9CtwG4fq970RBMx/5LS2GyDwyAIzInc3sIHQ3uhgt8SjEA0+sHtR2O -03ExUt5tyMwA3n5cEXgsho6hHYOxv+r0YdRrY295Bh11BKM6+W7rwdpD52s3 -NtHxkfP7Yy03dCH5n9+mxGY6ZhmeGs2M0gXONNPybyw6bvHubErw1oXR6pV3 -cp7TUbw4hvMtRRfqOM5lir+jo8niiPSPGh1wTo8Kn/tKx/1iQ38pPZsgs/74 -pseCDOxr9uKZ2aQNJGunchlhBnJJVLbfX6cNUQObGeGiDKwoKf4cz6UN+1cu -KKlLMDD9r51P2hst0LUJW50ny8CtpNCkf4e1oHPw6K9YDQaWeg5wku9rgoRA -YLnVHgaeCpXh/WKsAQXGpyKnnBh4aYq+EEfTAM1TycaXXRgYYBPeZb5KA6yn -yt53eTJwkt+hbeOQOsR1zi56BzLwjq31oeBz6rCQd8YoMpqBR47JdgZfU4Me -g8vvikoYeL/2Q3fxMB32hxZkm5cy8AYfvdLlER3mSh/4jpUx8NvSw4gd6XQQ -V+ia16hmoGc261GTER0s+dave9TEwCQP4xn9PBo0dBT5vHvPQI0mQzmJg1Sw -EH7ICOtioBnveWFpEyp07Xg+J9XLwAeRtH6bDVSYqfsR7zbAwP6SneTdHRRg -5Kr/932UgRudpYpqkAINPdvCksYZKO+Z2Gu5jgIWq3eB2hQDXQ7X8YgtkMHv -fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo -9h266zIDD8cNizwxIcPNQ3Wz//4x8PPaW6tvK5Dhf7nHxxw= +1:eJwV13k8lFsYB/BuSlQorm1sM++MrSyRyDI9D0qWIkVlyRLCzVIqRWS7lgpX +2pCItAgzr4ps7SLJkuyFm1RSSdnSonvuH/OZz/czn/fMeZ/3PL9zXtbO4M0+ +c+fMmfOLfP7/nupvqOUcL1hjoUS9360La9pzZMJMu2PB/IhUyR858oCSLTtl +utOhN+/T/nvnNSB007Uuge58CJvdPnn6vAksHZVOn+m6DiKL+lWdzm+AgRrb +4ImuB1BX4ZKSne0KFpyRvi9dbaCh1pH9KDMAZroMTo91DQJveaNNeGoEPDS/ +UvAsfxz+UqreU5GSAvIDlW93avwC58nmqk+3TsOfAe7XFpgL4IahhlpB82xI +17GotnUUwpYD8nzzyDzoyVhx78sSEfQPif5p7VcAxwuiWubKLkXvS2JS8huu +gPSp10dPnpdA4VnrV/3PCyHRwWpN25QkltpfULEYKgLGzWbG3D+k8FgZbk// +WAQ8CYdpnUVSuLpGra97ogg629zoE0pS+C1w4qXD/GLg2O+n7C2l0GDn20wh +lWJ4sDFXsDVTCn17uozcdhXDL4vJ5iYTabSZb7mwZrAY9hnmuTfEyuDDsm0l +0k9KwPqC6IRNsgya6xoNRbaWALUgIqn5tAzW21nMGegsgdb2raXPr8qg8Na1 +b0+8LgGtPYsF+ptlMHyPoHvVzxIYvnzw8leGLPrFtJZKavHA9U/bT3I3ZLFb +QTVzPJkHKw9Xx+TUyKKlq1pjWToPFg6qSbHqZDF5wLE7JIMHlXwBUOmRxbF8 +x7i+izyQsqlMW/FbFrdLSUsdqOJBawxHb50NA7lWd+eVvOXB2s/fw4NeM7Cp +pPgPMOZDmOWpZfc/MlD8SHi6GfKBl6fZKzHFwCnB85qm6/gg4+BhWCkkh8F5 +5bHadnz4WPFoWkBLDv2SPK607uTDydi0/ZmH5BCzh7s4R/kwKKkSVCsij3IO +ZwUk2/ggHXxXQVpaHkMrfwyGdfJhw+PtTf5MeXS53tnU08uH8vDjGmIr5ZHl +71937DUfjg2MjThtl0dXt7MWpRN80C2s9v2cL48Fpp/shRbREGNi78lYrYCS +P3mLU5bRYOmW89XATAG7mU6OmRo0iEZ/iHPcoIAZXlPl+Vo0ZD+Mv5zmoYA/ +hG8/KtalocK66oPgUQVc75MilWNEw9h2duh4jwK2pabSk1Y0uB2YPPb0sCJe +ZezYEL6LBuWzZvIj8Yr46FC97DI/mtz/PyUL0hSRt9R+QZc/DeE/1VvNChTx +WXC/uVogDafj3CQrnyrixpBO66v7aHh6oj73koISJiyKa1OMpsGIl3nzyF0l +tCzrmDd8hoa1Xc2/Rh8rocsGmzvKGTTYzpm33r1NCZVDGHM8M2nw2hzUA2+U +kOM4q9B6jgaLw6yo6PlMlEs83ph2gYY9SlMXTZczceM4Y1V2IQ2TN9Iez2gz +0f2cUNb1a2R+lss/leoxsfFaaHJdEQ3xez30qTVM/NykI/euhIash08ez7Vn +osap9vcLr9NQ65v76WEoE1VH1M/1VdJg9dNQPOIwE1361s9tqqKhOa1dXy+a +id4DOT8rq2noqRSOLjjKxHMNYcXJt2kYXbRfPD6bieIGqQKS92mQoS0NLB4w +MY239W1pPQ3n1752ma1jYsgtV374Yxqonsjo8kYmXt0yuNS0gQbNuTcaVDqY +ODS85FLdExrMHBRcFwyT+5mTJVbWREPAty/Rj0VYmGIq5qD0nNRz7y6pt+Is +bJ9xDGkhFhrpLRKQYZG8yK+LaKfh0ouHnWsoFtZJn5Bo6aCh/85pjTJ9Fp7e +et92czcNxQYLH7QZs1D8qI7mR+Jw+si2MWThcD1axPXQIJXvG7vchoW+B88s +K+ylwS7esDvPnYVVnjVPn7+kQXG2JPCuN7n+0e20bX1kfYRSAn3+LOxJ5Zzq +Jk7yW6Qls5+FErXpLm39NNyz6YtLTWJhlP/y2YJ/aUittZctTiHz70huFn9F +gyu3jteQzsJXQRavI4lntPg9886z8MJxy5c2gzToisdoHy5loRvLRbH+NQ1z +jk/WZpSzsKHPhq00RJ6PwF/O5dUsVGPd2LufePfk5vgvj0g9lsV8knpD6hVU +zxBrZOGjNAN5b2Khd8a0RisLze4InOURF3RzXvj2stBuOm6f8VsaQuwz98QP +sDDnY3JnJDE+ERG8OMTCvMOOSbeJ+6qnVvSPsrApqLNX7x2pp97uuh/jLByf +Ho4IIA4vGXCRnWHhqFfwnjxiqdzHCQ4CFObanbQVGKZhSJorHyJEYQIrzWgF +8fW00tJ/RChsDLsb7kwcLayyvkScQsXsNrFYYrvYrJdPpCm8FHz4+2VixR+i +IcPyFMYeCTBuIP64L26BIEWh1+T258PEVR+ns9mqFEpenHgw/z15Hj4BuqYa +FC78Nr6QSby1/996Nx0KP8xfXGxAzNnmuCNCn0LlqK+XNxB/bWn4mmlMYUj5 +jp9uxPcs1yTdQuKceSVBxKn3ryt0rKNQvSGn8jCxq5Hqja/WFKb5DlEJxMtu +nLNcsolCTavU9ynEM8uX9Gs6UpjywlH0JPHUeUbMSmcKk0cMk08TT4gpcwzd +KSxauCj2f3+J0a5f401h7a7wsXTi0XHDv9b6U9hcZdj9/3gffNaKWAeR+m35 +Yfj//w132dJ2+yj8KhIiFUH8xsppi+MhCudssw8KJh6s9ppyjqRQaflGMw/i +Ac2gTI9YCp9IMk7aEr/MPWSyK5FCSifQ04i4Z2ncwO5kCo8q/yxhE3fGpcTu +PUGhhnpk2ELi55NnlQ+eofDC78u1o6Terb75jyPOUbh3ZkVaK/ETm1uiSZco +vL9tXVEycf3t+6Up10j9GKY/dxHXaj91OMmnUKwmqnUN8R2JV1k5lRTO28Kb +/46sl+r4D9yCOxTG/JLwu0VcMT35b+FDCv3HrmyKJ77+YqFqWROFhX9suCVL +zN8o+aSqjcIMxU79f8n6LL6rFHivi8I10bFQQHz5ot6NxlcUig4Zf+YQZ+12 +g8FJCoM82X1CZP2f7fMbfPedQlcmr6qa9M8pu33xn35TuMzPVTWAOHVlUuM3 +YTbKSmiVPiL9F/ujdJuYIhvfiyzOdiH9GRVY8/1PNhtZxZJCP0j/RgzUnWeo +sbGM4SOcQRz68MVrZV02DqmPNT8h/b/7+Pw9JhZs1LRMPSwxQIPfLzEJMxs2 +dslmXcklebErmFG+fhMbX6hrBasTe2zR/rnZmY1rz8q2ryL54iDnlOQfxMZH +HWaLdF/QYFJUfOHMGTZ67D03WNFJwwtmUe66c2z0bF99Rp04/ExhzkQuGxfo +2WAGycNbMZezNxeysbTtUHgwyUvd7RcyRGvYaOhEZ85vo0F9/qm0hFdsfP08 +lPHsKQ2Pw9P/WfWWjaZ/CySwiHeNpaUOjbCxIrb9a3AjyY8XKclmE2yc/TH3 +uSDJb+b1xKRZQQ7aar+6J0/yX8r9cHSoBgdr4jVG39+joaw9LEpZh4MBM/L3 +GcQO1oeOtK/i4DG/Axes7tKQvupAhC5w8I2ObmIe2V9EFgcfGrXn4Pb9FUJG +ZD+aV7lzz66DHPQt6j8seoP0i7i1x9YHHFyXaqdjfZGG7gCq9a96DmafldJS +zSf9W/cdop6S33/Gfv8jj4a08CKlq50cjJiUEizNoWHF4OKBmREONms1z50k ++29QacuO8xLKKHXirp9kGg0jdo4uQ97K2L/UuehOOA1thZqN3/yVcZP4l7Bt +YSRvBASNRYKVMT5E12D0IA1Hb5Uz9MOUkWdcFCN5gAY1JZnexBRlVCu2CLEJ +psF3tHf78nJlFBa7nufoRfIw2WNryAIV/C3MWDdCziNBIxrUisUqyI/creRu +ScP0+plPn5aoYN+HAss2CxoWCqTH+zNU8J25yvEb5mT+YQ9vemiqoJZr4ztP +Lg2RPioSdltU0Fc4qjpoBan/mo8ty3NV8EN+/01bSbK/fz5o9UZfFbkdNvv4 +N/kgr6OYIGSiikZ7FJrDaT6MhtQ+WG6qilsG42izYj6cmlpiEmKjii9DP//5 ++CIf+n8Vav12V8WVAvuyCtP5ELL4pYTsUVVscb50rCGYD1nq2L/hhSrOfpPI +S1Yl50cvoX03o9QwSnyu1/kUHnmfkJ6b+EAd7y95mrxvTQmIN6mk0p+XoelU +UNsdcp6XT+Jv0tfXQDmt2wzhzdcgY7nhEglfTRyX+P1Vov4qPGGYrho/oYVf +uadfx66+AkbyD9K0O7XxrAttsDj2EogK5O/3jF2BPs/WSXcPXwTFGCUTJxUd +jOMd857VzQdhZdfyzfU6+MomK7vjnwugxZXlH9yhiwVdg+HuGjkQ0i/+0HrO +SuzvLWiZq3AOPo8nO1plrER4W3GK5ZcB67Xrsqw09XAeZXuTO3wa7owb/5hu +1kNPN69Lf3uchCAN3d5nPqvQr1Pirb3OCeCOerc7CetjItP8bplwKqzjyGwU +ydfHwBbtq3rbjoFa9LFDDwwMsNG/rnv14kRY5mN4V7nXAK0mKumUjjjwueP3 +9829q3GyNiewUTUG7l5o9/4iaYgRu1r1jqtHwsTV39PatwyxoP1HyofKQ+Cl +XCSctdEIa5u+tI/LHIAvy07qXx8zwr8XXO1LKNoLFQU/Xk0mGeONto6k902B +4LyWjcaKJmhoc9tbU84f5AITK7XumeCM+JZ73TXeILkwoHTjNi66twgvzV7r +CQXmkeFjTlwUrbq4aqu+J+hGppqfdOXiRMCrDIaaJ9iO0R3dnlzU93ki8GCR +JyR0Ts54BXAx7+CW+mPPPeBbfpRZeAwXo2K/fJj19oBe45PPLxeR8ZwlMtIV +3cHvQEG2FY9L3p+sJaPnucMUr8znI81FvX03c6NH3ECc6p7WKediWsFKflW5 +G9gIKcjfvsdFmDGNWrrJDWraL3s/7yDX5wRxMGEHWItWaIZ2c1F5U5KhU+AO +6F7fMCXzgovde38X/u2wAyaqPiS5/UvGY7L3irN3gGbeipL3I1zUdZ72Ebrv +CjW9pqHJn7iotu0M+8ZVV7D+cwtoj3Fxs5PRm+A0V9iVeODZ/kku/gOrrJQ8 +XGHiXkKW9DcummYOdyy1dIXY72e9qr5zcf+Qk7HUCldYoleoseMXFx+N3A/S +kHGFnMCqyd+/uVjN3+HjMMcV/gMsX08A "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "PlotRange" -> {{0, 30}, {0., 0.06606421159259862}}, "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], + RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ + (Identity[#]& )[ Part[#, 1]], - Identity[ + (Identity[#]& )[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, @@ -8751,6 +14501,7 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -8778,7 +14529,8 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06606421159259862}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8786,17 +14538,559 @@ fOibkFkGHusIsmKUkWGmKS5rzQIDx0lq0zFJZDj7O8O77jcDv6ZKXhcIIIOo Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913483238131485`*^9}, + CellChangeTimes->{3.9913483238131485`*^9, 3.993828585216654*^9}, CellLabel-> - "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] + "Out[234]=",ExpressionUUID->"302c203b-0b0b-44fc-87d6-10c40cac9685"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ -76427bb63659"], + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "In[235]:=",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], + LineBox[CompressedData[" +1:eJwV13k8lFsYB/BuSlQorm1sM++MrSyRyDI9D0qWIkVlyRLCzVIqRWS7lgpX +2pCItAgzr4ps7SLJkuyFm1RSSdnSonvuH/OZz/czn/fMeZ/3PL9zXtbO4M0+ +c+fMmfOLfP7/nupvqOUcL1hjoUS9360La9pzZMJMu2PB/IhUyR858oCSLTtl +utOhN+/T/nvnNSB007Uuge58CJvdPnn6vAksHZVOn+m6DiKL+lWdzm+AgRrb +4ImuB1BX4ZKSne0KFpyRvi9dbaCh1pH9KDMAZroMTo91DQJveaNNeGoEPDS/ +UvAsfxz+UqreU5GSAvIDlW93avwC58nmqk+3TsOfAe7XFpgL4IahhlpB82xI +17GotnUUwpYD8nzzyDzoyVhx78sSEfQPif5p7VcAxwuiWubKLkXvS2JS8huu +gPSp10dPnpdA4VnrV/3PCyHRwWpN25QkltpfULEYKgLGzWbG3D+k8FgZbk// +WAQ8CYdpnUVSuLpGra97ogg629zoE0pS+C1w4qXD/GLg2O+n7C2l0GDn20wh +lWJ4sDFXsDVTCn17uozcdhXDL4vJ5iYTabSZb7mwZrAY9hnmuTfEyuDDsm0l +0k9KwPqC6IRNsgya6xoNRbaWALUgIqn5tAzW21nMGegsgdb2raXPr8qg8Na1 +b0+8LgGtPYsF+ptlMHyPoHvVzxIYvnzw8leGLPrFtJZKavHA9U/bT3I3ZLFb +QTVzPJkHKw9Xx+TUyKKlq1pjWToPFg6qSbHqZDF5wLE7JIMHlXwBUOmRxbF8 +x7i+izyQsqlMW/FbFrdLSUsdqOJBawxHb50NA7lWd+eVvOXB2s/fw4NeM7Cp +pPgPMOZDmOWpZfc/MlD8SHi6GfKBl6fZKzHFwCnB85qm6/gg4+BhWCkkh8F5 +5bHadnz4WPFoWkBLDv2SPK607uTDydi0/ZmH5BCzh7s4R/kwKKkSVCsij3IO +ZwUk2/ggHXxXQVpaHkMrfwyGdfJhw+PtTf5MeXS53tnU08uH8vDjGmIr5ZHl +71937DUfjg2MjThtl0dXt7MWpRN80C2s9v2cL48Fpp/shRbREGNi78lYrYCS +P3mLU5bRYOmW89XATAG7mU6OmRo0iEZ/iHPcoIAZXlPl+Vo0ZD+Mv5zmoYA/ +hG8/KtalocK66oPgUQVc75MilWNEw9h2duh4jwK2pabSk1Y0uB2YPPb0sCJe +ZezYEL6LBuWzZvIj8Yr46FC97DI/mtz/PyUL0hSRt9R+QZc/DeE/1VvNChTx +WXC/uVogDafj3CQrnyrixpBO66v7aHh6oj73koISJiyKa1OMpsGIl3nzyF0l +tCzrmDd8hoa1Xc2/Rh8rocsGmzvKGTTYzpm33r1NCZVDGHM8M2nw2hzUA2+U +kOM4q9B6jgaLw6yo6PlMlEs83ph2gYY9SlMXTZczceM4Y1V2IQ2TN9Iez2gz +0f2cUNb1a2R+lss/leoxsfFaaHJdEQ3xez30qTVM/NykI/euhIash08ez7Vn +osap9vcLr9NQ65v76WEoE1VH1M/1VdJg9dNQPOIwE1361s9tqqKhOa1dXy+a +id4DOT8rq2noqRSOLjjKxHMNYcXJt2kYXbRfPD6bieIGqQKS92mQoS0NLB4w +MY239W1pPQ3n1752ma1jYsgtV374Yxqonsjo8kYmXt0yuNS0gQbNuTcaVDqY +ODS85FLdExrMHBRcFwyT+5mTJVbWREPAty/Rj0VYmGIq5qD0nNRz7y6pt+Is +bJ9xDGkhFhrpLRKQYZG8yK+LaKfh0ouHnWsoFtZJn5Bo6aCh/85pjTJ9Fp7e +et92czcNxQYLH7QZs1D8qI7mR+Jw+si2MWThcD1axPXQIJXvG7vchoW+B88s +K+ylwS7esDvPnYVVnjVPn7+kQXG2JPCuN7n+0e20bX1kfYRSAn3+LOxJ5Zzq +Jk7yW6Qls5+FErXpLm39NNyz6YtLTWJhlP/y2YJ/aUittZctTiHz70huFn9F +gyu3jteQzsJXQRavI4lntPg9886z8MJxy5c2gzToisdoHy5loRvLRbH+NQ1z +jk/WZpSzsKHPhq00RJ6PwF/O5dUsVGPd2LufePfk5vgvj0g9lsV8knpD6hVU +zxBrZOGjNAN5b2Khd8a0RisLze4InOURF3RzXvj2stBuOm6f8VsaQuwz98QP +sDDnY3JnJDE+ERG8OMTCvMOOSbeJ+6qnVvSPsrApqLNX7x2pp97uuh/jLByf +Ho4IIA4vGXCRnWHhqFfwnjxiqdzHCQ4CFObanbQVGKZhSJorHyJEYQIrzWgF +8fW00tJ/RChsDLsb7kwcLayyvkScQsXsNrFYYrvYrJdPpCm8FHz4+2VixR+i +IcPyFMYeCTBuIP64L26BIEWh1+T258PEVR+ns9mqFEpenHgw/z15Hj4BuqYa +FC78Nr6QSby1/996Nx0KP8xfXGxAzNnmuCNCn0LlqK+XNxB/bWn4mmlMYUj5 +jp9uxPcs1yTdQuKceSVBxKn3ryt0rKNQvSGn8jCxq5Hqja/WFKb5DlEJxMtu +nLNcsolCTavU9ynEM8uX9Gs6UpjywlH0JPHUeUbMSmcKk0cMk08TT4gpcwzd +KSxauCj2f3+J0a5f401h7a7wsXTi0XHDv9b6U9hcZdj9/3gffNaKWAeR+m35 +Yfj//w132dJ2+yj8KhIiFUH8xsppi+MhCudssw8KJh6s9ppyjqRQaflGMw/i +Ac2gTI9YCp9IMk7aEr/MPWSyK5FCSifQ04i4Z2ncwO5kCo8q/yxhE3fGpcTu +PUGhhnpk2ELi55NnlQ+eofDC78u1o6Terb75jyPOUbh3ZkVaK/ETm1uiSZco +vL9tXVEycf3t+6Up10j9GKY/dxHXaj91OMmnUKwmqnUN8R2JV1k5lRTO28Kb +/46sl+r4D9yCOxTG/JLwu0VcMT35b+FDCv3HrmyKJ77+YqFqWROFhX9suCVL +zN8o+aSqjcIMxU79f8n6LL6rFHivi8I10bFQQHz5ot6NxlcUig4Zf+YQZ+12 +g8FJCoM82X1CZP2f7fMbfPedQlcmr6qa9M8pu33xn35TuMzPVTWAOHVlUuM3 +YTbKSmiVPiL9F/ujdJuYIhvfiyzOdiH9GRVY8/1PNhtZxZJCP0j/RgzUnWeo +sbGM4SOcQRz68MVrZV02DqmPNT8h/b/7+Pw9JhZs1LRMPSwxQIPfLzEJMxs2 +dslmXcklebErmFG+fhMbX6hrBasTe2zR/rnZmY1rz8q2ryL54iDnlOQfxMZH +HWaLdF/QYFJUfOHMGTZ67D03WNFJwwtmUe66c2z0bF99Rp04/ExhzkQuGxfo +2WAGycNbMZezNxeysbTtUHgwyUvd7RcyRGvYaOhEZ85vo0F9/qm0hFdsfP08 +lPHsKQ2Pw9P/WfWWjaZ/CySwiHeNpaUOjbCxIrb9a3AjyY8XKclmE2yc/TH3 +uSDJb+b1xKRZQQ7aar+6J0/yX8r9cHSoBgdr4jVG39+joaw9LEpZh4MBM/L3 +GcQO1oeOtK/i4DG/Axes7tKQvupAhC5w8I2ObmIe2V9EFgcfGrXn4Pb9FUJG +ZD+aV7lzz66DHPQt6j8seoP0i7i1x9YHHFyXaqdjfZGG7gCq9a96DmafldJS +zSf9W/cdop6S33/Gfv8jj4a08CKlq50cjJiUEizNoWHF4OKBmREONms1z50k ++29QacuO8xLKKHXirp9kGg0jdo4uQ97K2L/UuehOOA1thZqN3/yVcZP4l7Bt +YSRvBASNRYKVMT5E12D0IA1Hb5Uz9MOUkWdcFCN5gAY1JZnexBRlVCu2CLEJ +psF3tHf78nJlFBa7nufoRfIw2WNryAIV/C3MWDdCziNBIxrUisUqyI/creRu +ScP0+plPn5aoYN+HAss2CxoWCqTH+zNU8J25yvEb5mT+YQ9vemiqoJZr4ztP +Lg2RPioSdltU0Fc4qjpoBan/mo8ty3NV8EN+/01bSbK/fz5o9UZfFbkdNvv4 +N/kgr6OYIGSiikZ7FJrDaT6MhtQ+WG6qilsG42izYj6cmlpiEmKjii9DP//5 ++CIf+n8Vav12V8WVAvuyCtP5ELL4pYTsUVVscb50rCGYD1nq2L/hhSrOfpPI +S1Yl50cvoX03o9QwSnyu1/kUHnmfkJ6b+EAd7y95mrxvTQmIN6mk0p+XoelU +UNsdcp6XT+Jv0tfXQDmt2wzhzdcgY7nhEglfTRyX+P1Vov4qPGGYrho/oYVf +uadfx66+AkbyD9K0O7XxrAttsDj2EogK5O/3jF2BPs/WSXcPXwTFGCUTJxUd +jOMd857VzQdhZdfyzfU6+MomK7vjnwugxZXlH9yhiwVdg+HuGjkQ0i/+0HrO +SuzvLWiZq3AOPo8nO1plrER4W3GK5ZcB67Xrsqw09XAeZXuTO3wa7owb/5hu +1kNPN69Lf3uchCAN3d5nPqvQr1Pirb3OCeCOerc7CetjItP8bplwKqzjyGwU +ydfHwBbtq3rbjoFa9LFDDwwMsNG/rnv14kRY5mN4V7nXAK0mKumUjjjwueP3 +9829q3GyNiewUTUG7l5o9/4iaYgRu1r1jqtHwsTV39PatwyxoP1HyofKQ+Cl +XCSctdEIa5u+tI/LHIAvy07qXx8zwr8XXO1LKNoLFQU/Xk0mGeONto6k902B +4LyWjcaKJmhoc9tbU84f5AITK7XumeCM+JZ73TXeILkwoHTjNi66twgvzV7r +CQXmkeFjTlwUrbq4aqu+J+hGppqfdOXiRMCrDIaaJ9iO0R3dnlzU93ki8GCR +JyR0Ts54BXAx7+CW+mPPPeBbfpRZeAwXo2K/fJj19oBe45PPLxeR8ZwlMtIV +3cHvQEG2FY9L3p+sJaPnucMUr8znI81FvX03c6NH3ECc6p7WKediWsFKflW5 +G9gIKcjfvsdFmDGNWrrJDWraL3s/7yDX5wRxMGEHWItWaIZ2c1F5U5KhU+AO +6F7fMCXzgovde38X/u2wAyaqPiS5/UvGY7L3irN3gGbeipL3I1zUdZ72Ebrv +CjW9pqHJn7iotu0M+8ZVV7D+cwtoj3Fxs5PRm+A0V9iVeODZ/kku/gOrrJQ8 +XGHiXkKW9DcummYOdyy1dIXY72e9qr5zcf+Qk7HUCldYoleoseMXFx+N3A/S +kHGFnMCqyd+/uVjN3+HjMMcV/gMsX08A + "]]}, + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8lFsYB/BuSlQorm1sM++MrSyRyDI9D0qWIkVlyRLCzVIqRWS7lgpX +2pCItAgzr4ps7SLJkuyFm1RSSdnSonvuH/OZz/czn/fMeZ/3PL9zXtbO4M0+ +c+fMmfOLfP7/nupvqOUcL1hjoUS9360La9pzZMJMu2PB/IhUyR858oCSLTtl +utOhN+/T/nvnNSB007Uuge58CJvdPnn6vAksHZVOn+m6DiKL+lWdzm+AgRrb +4ImuB1BX4ZKSne0KFpyRvi9dbaCh1pH9KDMAZroMTo91DQJveaNNeGoEPDS/ +UvAsfxz+UqreU5GSAvIDlW93avwC58nmqk+3TsOfAe7XFpgL4IahhlpB82xI +17GotnUUwpYD8nzzyDzoyVhx78sSEfQPif5p7VcAxwuiWubKLkXvS2JS8huu +gPSp10dPnpdA4VnrV/3PCyHRwWpN25QkltpfULEYKgLGzWbG3D+k8FgZbk// +WAQ8CYdpnUVSuLpGra97ogg629zoE0pS+C1w4qXD/GLg2O+n7C2l0GDn20wh +lWJ4sDFXsDVTCn17uozcdhXDL4vJ5iYTabSZb7mwZrAY9hnmuTfEyuDDsm0l +0k9KwPqC6IRNsgya6xoNRbaWALUgIqn5tAzW21nMGegsgdb2raXPr8qg8Na1 +b0+8LgGtPYsF+ptlMHyPoHvVzxIYvnzw8leGLPrFtJZKavHA9U/bT3I3ZLFb +QTVzPJkHKw9Xx+TUyKKlq1pjWToPFg6qSbHqZDF5wLE7JIMHlXwBUOmRxbF8 +x7i+izyQsqlMW/FbFrdLSUsdqOJBawxHb50NA7lWd+eVvOXB2s/fw4NeM7Cp +pPgPMOZDmOWpZfc/MlD8SHi6GfKBl6fZKzHFwCnB85qm6/gg4+BhWCkkh8F5 +5bHadnz4WPFoWkBLDv2SPK607uTDydi0/ZmH5BCzh7s4R/kwKKkSVCsij3IO +ZwUk2/ggHXxXQVpaHkMrfwyGdfJhw+PtTf5MeXS53tnU08uH8vDjGmIr5ZHl +71937DUfjg2MjThtl0dXt7MWpRN80C2s9v2cL48Fpp/shRbREGNi78lYrYCS +P3mLU5bRYOmW89XATAG7mU6OmRo0iEZ/iHPcoIAZXlPl+Vo0ZD+Mv5zmoYA/ +hG8/KtalocK66oPgUQVc75MilWNEw9h2duh4jwK2pabSk1Y0uB2YPPb0sCJe +ZezYEL6LBuWzZvIj8Yr46FC97DI/mtz/PyUL0hSRt9R+QZc/DeE/1VvNChTx +WXC/uVogDafj3CQrnyrixpBO66v7aHh6oj73koISJiyKa1OMpsGIl3nzyF0l +tCzrmDd8hoa1Xc2/Rh8rocsGmzvKGTTYzpm33r1NCZVDGHM8M2nw2hzUA2+U +kOM4q9B6jgaLw6yo6PlMlEs83ph2gYY9SlMXTZczceM4Y1V2IQ2TN9Iez2gz +0f2cUNb1a2R+lss/leoxsfFaaHJdEQ3xez30qTVM/NykI/euhIash08ez7Vn +osap9vcLr9NQ65v76WEoE1VH1M/1VdJg9dNQPOIwE1361s9tqqKhOa1dXy+a +id4DOT8rq2noqRSOLjjKxHMNYcXJt2kYXbRfPD6bieIGqQKS92mQoS0NLB4w +MY239W1pPQ3n1752ma1jYsgtV374Yxqonsjo8kYmXt0yuNS0gQbNuTcaVDqY +ODS85FLdExrMHBRcFwyT+5mTJVbWREPAty/Rj0VYmGIq5qD0nNRz7y6pt+Is +bJ9xDGkhFhrpLRKQYZG8yK+LaKfh0ouHnWsoFtZJn5Bo6aCh/85pjTJ9Fp7e +et92czcNxQYLH7QZs1D8qI7mR+Jw+si2MWThcD1axPXQIJXvG7vchoW+B88s +K+ylwS7esDvPnYVVnjVPn7+kQXG2JPCuN7n+0e20bX1kfYRSAn3+LOxJ5Zzq +Jk7yW6Qls5+FErXpLm39NNyz6YtLTWJhlP/y2YJ/aUittZctTiHz70huFn9F +gyu3jteQzsJXQRavI4lntPg9886z8MJxy5c2gzToisdoHy5loRvLRbH+NQ1z +jk/WZpSzsKHPhq00RJ6PwF/O5dUsVGPd2LufePfk5vgvj0g9lsV8knpD6hVU +zxBrZOGjNAN5b2Khd8a0RisLze4InOURF3RzXvj2stBuOm6f8VsaQuwz98QP +sDDnY3JnJDE+ERG8OMTCvMOOSbeJ+6qnVvSPsrApqLNX7x2pp97uuh/jLByf +Ho4IIA4vGXCRnWHhqFfwnjxiqdzHCQ4CFObanbQVGKZhSJorHyJEYQIrzWgF +8fW00tJ/RChsDLsb7kwcLayyvkScQsXsNrFYYrvYrJdPpCm8FHz4+2VixR+i +IcPyFMYeCTBuIP64L26BIEWh1+T258PEVR+ns9mqFEpenHgw/z15Hj4BuqYa +FC78Nr6QSby1/996Nx0KP8xfXGxAzNnmuCNCn0LlqK+XNxB/bWn4mmlMYUj5 +jp9uxPcs1yTdQuKceSVBxKn3ryt0rKNQvSGn8jCxq5Hqja/WFKb5DlEJxMtu +nLNcsolCTavU9ynEM8uX9Gs6UpjywlH0JPHUeUbMSmcKk0cMk08TT4gpcwzd +KSxauCj2f3+J0a5f401h7a7wsXTi0XHDv9b6U9hcZdj9/3gffNaKWAeR+m35 +Yfj//w132dJ2+yj8KhIiFUH8xsppi+MhCudssw8KJh6s9ppyjqRQaflGMw/i +Ac2gTI9YCp9IMk7aEr/MPWSyK5FCSifQ04i4Z2ncwO5kCo8q/yxhE3fGpcTu +PUGhhnpk2ELi55NnlQ+eofDC78u1o6Terb75jyPOUbh3ZkVaK/ETm1uiSZco +vL9tXVEycf3t+6Up10j9GKY/dxHXaj91OMmnUKwmqnUN8R2JV1k5lRTO28Kb +/46sl+r4D9yCOxTG/JLwu0VcMT35b+FDCv3HrmyKJ77+YqFqWROFhX9suCVL +zN8o+aSqjcIMxU79f8n6LL6rFHivi8I10bFQQHz5ot6NxlcUig4Zf+YQZ+12 +g8FJCoM82X1CZP2f7fMbfPedQlcmr6qa9M8pu33xn35TuMzPVTWAOHVlUuM3 +YTbKSmiVPiL9F/ujdJuYIhvfiyzOdiH9GRVY8/1PNhtZxZJCP0j/RgzUnWeo +sbGM4SOcQRz68MVrZV02DqmPNT8h/b/7+Pw9JhZs1LRMPSwxQIPfLzEJMxs2 +dslmXcklebErmFG+fhMbX6hrBasTe2zR/rnZmY1rz8q2ryL54iDnlOQfxMZH +HWaLdF/QYFJUfOHMGTZ67D03WNFJwwtmUe66c2z0bF99Rp04/ExhzkQuGxfo +2WAGycNbMZezNxeysbTtUHgwyUvd7RcyRGvYaOhEZ85vo0F9/qm0hFdsfP08 +lPHsKQ2Pw9P/WfWWjaZ/CySwiHeNpaUOjbCxIrb9a3AjyY8XKclmE2yc/TH3 +uSDJb+b1xKRZQQ7aar+6J0/yX8r9cHSoBgdr4jVG39+joaw9LEpZh4MBM/L3 +GcQO1oeOtK/i4DG/Axes7tKQvupAhC5w8I2ObmIe2V9EFgcfGrXn4Pb9FUJG +ZD+aV7lzz66DHPQt6j8seoP0i7i1x9YHHFyXaqdjfZGG7gCq9a96DmafldJS +zSf9W/cdop6S33/Gfv8jj4a08CKlq50cjJiUEizNoWHF4OKBmREONms1z50k ++29QacuO8xLKKHXirp9kGg0jdo4uQ97K2L/UuehOOA1thZqN3/yVcZP4l7Bt +YSRvBASNRYKVMT5E12D0IA1Hb5Uz9MOUkWdcFCN5gAY1JZnexBRlVCu2CLEJ +psF3tHf78nJlFBa7nufoRfIw2WNryAIV/C3MWDdCziNBIxrUisUqyI/creRu +ScP0+plPn5aoYN+HAss2CxoWCqTH+zNU8J25yvEb5mT+YQ9vemiqoJZr4ztP +Lg2RPioSdltU0Fc4qjpoBan/mo8ty3NV8EN+/01bSbK/fz5o9UZfFbkdNvv4 +N/kgr6OYIGSiikZ7FJrDaT6MhtQ+WG6qilsG42izYj6cmlpiEmKjii9DP//5 ++CIf+n8Vav12V8WVAvuyCtP5ELL4pYTsUVVscb50rCGYD1nq2L/hhSrOfpPI +S1Yl50cvoX03o9QwSnyu1/kUHnmfkJ6b+EAd7y95mrxvTQmIN6mk0p+XoelU +UNsdcp6XT+Jv0tfXQDmt2wzhzdcgY7nhEglfTRyX+P1Vov4qPGGYrho/oYVf +uadfx66+AkbyD9K0O7XxrAttsDj2EogK5O/3jF2BPs/WSXcPXwTFGCUTJxUd +jOMd857VzQdhZdfyzfU6+MomK7vjnwugxZXlH9yhiwVdg+HuGjkQ0i/+0HrO +SuzvLWiZq3AOPo8nO1plrER4W3GK5ZcB67Xrsqw09XAeZXuTO3wa7owb/5hu +1kNPN69Lf3uchCAN3d5nPqvQr1Pirb3OCeCOerc7CetjItP8bplwKqzjyGwU +ydfHwBbtq3rbjoFa9LFDDwwMsNG/rnv14kRY5mN4V7nXAK0mKumUjjjwueP3 +9829q3GyNiewUTUG7l5o9/4iaYgRu1r1jqtHwsTV39PatwyxoP1HyofKQ+Cl +XCSctdEIa5u+tI/LHIAvy07qXx8zwr8XXO1LKNoLFQU/Xk0mGeONto6k902B +4LyWjcaKJmhoc9tbU84f5AITK7XumeCM+JZ73TXeILkwoHTjNi66twgvzV7r +CQXmkeFjTlwUrbq4aqu+J+hGppqfdOXiRMCrDIaaJ9iO0R3dnlzU93ki8GCR +JyR0Ts54BXAx7+CW+mPPPeBbfpRZeAwXo2K/fJj19oBe45PPLxeR8ZwlMtIV +3cHvQEG2FY9L3p+sJaPnucMUr8znI81FvX03c6NH3ECc6p7WKediWsFKflW5 +G9gIKcjfvsdFmDGNWrrJDWraL3s/7yDX5wRxMGEHWItWaIZ2c1F5U5KhU+AO +6F7fMCXzgovde38X/u2wAyaqPiS5/UvGY7L3irN3gGbeipL3I1zUdZ72Ebrv +CjW9pqHJn7iotu0M+8ZVV7D+cwtoj3Fxs5PRm+A0V9iVeODZ/kku/gOrrJQ8 +XGHiXkKW9DcummYOdyy1dIXY72e9qr5zcf+Qk7HUCldYoleoseMXFx+N3A/S +kHGFnMCqyd+/uVjN3+HjMMcV/gMsX08A + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06606421159259862}}, + "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.24, 0.6, 0.8], + 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, 30}, {0., 0.06606421159259862}}, + "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.24, 0.6, 0.8], + 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.24, 0.6, 0.8], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k8lFsYB/BuSlQorm1sM++MrSyRyDI9D0qWIkVlyRLCzVIqRWS7lgpX +2pCItAgzr4ps7SLJkuyFm1RSSdnSonvuH/OZz/czn/fMeZ/3PL9zXtbO4M0+ +c+fMmfOLfP7/nupvqOUcL1hjoUS9360La9pzZMJMu2PB/IhUyR858oCSLTtl +utOhN+/T/nvnNSB007Uuge58CJvdPnn6vAksHZVOn+m6DiKL+lWdzm+AgRrb +4ImuB1BX4ZKSne0KFpyRvi9dbaCh1pH9KDMAZroMTo91DQJveaNNeGoEPDS/ +UvAsfxz+UqreU5GSAvIDlW93avwC58nmqk+3TsOfAe7XFpgL4IahhlpB82xI +17GotnUUwpYD8nzzyDzoyVhx78sSEfQPif5p7VcAxwuiWubKLkXvS2JS8huu +gPSp10dPnpdA4VnrV/3PCyHRwWpN25QkltpfULEYKgLGzWbG3D+k8FgZbk// +WAQ8CYdpnUVSuLpGra97ogg629zoE0pS+C1w4qXD/GLg2O+n7C2l0GDn20wh +lWJ4sDFXsDVTCn17uozcdhXDL4vJ5iYTabSZb7mwZrAY9hnmuTfEyuDDsm0l +0k9KwPqC6IRNsgya6xoNRbaWALUgIqn5tAzW21nMGegsgdb2raXPr8qg8Na1 +b0+8LgGtPYsF+ptlMHyPoHvVzxIYvnzw8leGLPrFtJZKavHA9U/bT3I3ZLFb +QTVzPJkHKw9Xx+TUyKKlq1pjWToPFg6qSbHqZDF5wLE7JIMHlXwBUOmRxbF8 +x7i+izyQsqlMW/FbFrdLSUsdqOJBawxHb50NA7lWd+eVvOXB2s/fw4NeM7Cp +pPgPMOZDmOWpZfc/MlD8SHi6GfKBl6fZKzHFwCnB85qm6/gg4+BhWCkkh8F5 +5bHadnz4WPFoWkBLDv2SPK607uTDydi0/ZmH5BCzh7s4R/kwKKkSVCsij3IO +ZwUk2/ggHXxXQVpaHkMrfwyGdfJhw+PtTf5MeXS53tnU08uH8vDjGmIr5ZHl +71937DUfjg2MjThtl0dXt7MWpRN80C2s9v2cL48Fpp/shRbREGNi78lYrYCS +P3mLU5bRYOmW89XATAG7mU6OmRo0iEZ/iHPcoIAZXlPl+Vo0ZD+Mv5zmoYA/ +hG8/KtalocK66oPgUQVc75MilWNEw9h2duh4jwK2pabSk1Y0uB2YPPb0sCJe +ZezYEL6LBuWzZvIj8Yr46FC97DI/mtz/PyUL0hSRt9R+QZc/DeE/1VvNChTx +WXC/uVogDafj3CQrnyrixpBO66v7aHh6oj73koISJiyKa1OMpsGIl3nzyF0l +tCzrmDd8hoa1Xc2/Rh8rocsGmzvKGTTYzpm33r1NCZVDGHM8M2nw2hzUA2+U +kOM4q9B6jgaLw6yo6PlMlEs83ph2gYY9SlMXTZczceM4Y1V2IQ2TN9Iez2gz +0f2cUNb1a2R+lss/leoxsfFaaHJdEQ3xez30qTVM/NykI/euhIash08ez7Vn +osap9vcLr9NQ65v76WEoE1VH1M/1VdJg9dNQPOIwE1361s9tqqKhOa1dXy+a +id4DOT8rq2noqRSOLjjKxHMNYcXJt2kYXbRfPD6bieIGqQKS92mQoS0NLB4w +MY239W1pPQ3n1752ma1jYsgtV374Yxqonsjo8kYmXt0yuNS0gQbNuTcaVDqY +ODS85FLdExrMHBRcFwyT+5mTJVbWREPAty/Rj0VYmGIq5qD0nNRz7y6pt+Is +bJ9xDGkhFhrpLRKQYZG8yK+LaKfh0ouHnWsoFtZJn5Bo6aCh/85pjTJ9Fp7e +et92czcNxQYLH7QZs1D8qI7mR+Jw+si2MWThcD1axPXQIJXvG7vchoW+B88s +K+ylwS7esDvPnYVVnjVPn7+kQXG2JPCuN7n+0e20bX1kfYRSAn3+LOxJ5Zzq +Jk7yW6Qls5+FErXpLm39NNyz6YtLTWJhlP/y2YJ/aUittZctTiHz70huFn9F +gyu3jteQzsJXQRavI4lntPg9886z8MJxy5c2gzToisdoHy5loRvLRbH+NQ1z +jk/WZpSzsKHPhq00RJ6PwF/O5dUsVGPd2LufePfk5vgvj0g9lsV8knpD6hVU +zxBrZOGjNAN5b2Khd8a0RisLze4InOURF3RzXvj2stBuOm6f8VsaQuwz98QP +sDDnY3JnJDE+ERG8OMTCvMOOSbeJ+6qnVvSPsrApqLNX7x2pp97uuh/jLByf +Ho4IIA4vGXCRnWHhqFfwnjxiqdzHCQ4CFObanbQVGKZhSJorHyJEYQIrzWgF +8fW00tJ/RChsDLsb7kwcLayyvkScQsXsNrFYYrvYrJdPpCm8FHz4+2VixR+i +IcPyFMYeCTBuIP64L26BIEWh1+T258PEVR+ns9mqFEpenHgw/z15Hj4BuqYa +FC78Nr6QSby1/996Nx0KP8xfXGxAzNnmuCNCn0LlqK+XNxB/bWn4mmlMYUj5 +jp9uxPcs1yTdQuKceSVBxKn3ryt0rKNQvSGn8jCxq5Hqja/WFKb5DlEJxMtu +nLNcsolCTavU9ynEM8uX9Gs6UpjywlH0JPHUeUbMSmcKk0cMk08TT4gpcwzd +KSxauCj2f3+J0a5f401h7a7wsXTi0XHDv9b6U9hcZdj9/3gffNaKWAeR+m35 +Yfj//w132dJ2+yj8KhIiFUH8xsppi+MhCudssw8KJh6s9ppyjqRQaflGMw/i +Ac2gTI9YCp9IMk7aEr/MPWSyK5FCSifQ04i4Z2ncwO5kCo8q/yxhE3fGpcTu +PUGhhnpk2ELi55NnlQ+eofDC78u1o6Terb75jyPOUbh3ZkVaK/ETm1uiSZco +vL9tXVEycf3t+6Up10j9GKY/dxHXaj91OMmnUKwmqnUN8R2JV1k5lRTO28Kb +/46sl+r4D9yCOxTG/JLwu0VcMT35b+FDCv3HrmyKJ77+YqFqWROFhX9suCVL +zN8o+aSqjcIMxU79f8n6LL6rFHivi8I10bFQQHz5ot6NxlcUig4Zf+YQZ+12 +g8FJCoM82X1CZP2f7fMbfPedQlcmr6qa9M8pu33xn35TuMzPVTWAOHVlUuM3 +YTbKSmiVPiL9F/ujdJuYIhvfiyzOdiH9GRVY8/1PNhtZxZJCP0j/RgzUnWeo +sbGM4SOcQRz68MVrZV02DqmPNT8h/b/7+Pw9JhZs1LRMPSwxQIPfLzEJMxs2 +dslmXcklebErmFG+fhMbX6hrBasTe2zR/rnZmY1rz8q2ryL54iDnlOQfxMZH +HWaLdF/QYFJUfOHMGTZ67D03WNFJwwtmUe66c2z0bF99Rp04/ExhzkQuGxfo +2WAGycNbMZezNxeysbTtUHgwyUvd7RcyRGvYaOhEZ85vo0F9/qm0hFdsfP08 +lPHsKQ2Pw9P/WfWWjaZ/CySwiHeNpaUOjbCxIrb9a3AjyY8XKclmE2yc/TH3 +uSDJb+b1xKRZQQ7aar+6J0/yX8r9cHSoBgdr4jVG39+joaw9LEpZh4MBM/L3 +GcQO1oeOtK/i4DG/Axes7tKQvupAhC5w8I2ObmIe2V9EFgcfGrXn4Pb9FUJG +ZD+aV7lzz66DHPQt6j8seoP0i7i1x9YHHFyXaqdjfZGG7gCq9a96DmafldJS +zSf9W/cdop6S33/Gfv8jj4a08CKlq50cjJiUEizNoWHF4OKBmREONms1z50k ++29QacuO8xLKKHXirp9kGg0jdo4uQ97K2L/UuehOOA1thZqN3/yVcZP4l7Bt +YSRvBASNRYKVMT5E12D0IA1Hb5Uz9MOUkWdcFCN5gAY1JZnexBRlVCu2CLEJ +psF3tHf78nJlFBa7nufoRfIw2WNryAIV/C3MWDdCziNBIxrUisUqyI/creRu +ScP0+plPn5aoYN+HAss2CxoWCqTH+zNU8J25yvEb5mT+YQ9vemiqoJZr4ztP +Lg2RPioSdltU0Fc4qjpoBan/mo8ty3NV8EN+/01bSbK/fz5o9UZfFbkdNvv4 +N/kgr6OYIGSiikZ7FJrDaT6MhtQ+WG6qilsG42izYj6cmlpiEmKjii9DP//5 ++CIf+n8Vav12V8WVAvuyCtP5ELL4pYTsUVVscb50rCGYD1nq2L/hhSrOfpPI +S1Yl50cvoX03o9QwSnyu1/kUHnmfkJ6b+EAd7y95mrxvTQmIN6mk0p+XoelU +UNsdcp6XT+Jv0tfXQDmt2wzhzdcgY7nhEglfTRyX+P1Vov4qPGGYrho/oYVf +uadfx66+AkbyD9K0O7XxrAttsDj2EogK5O/3jF2BPs/WSXcPXwTFGCUTJxUd +jOMd857VzQdhZdfyzfU6+MomK7vjnwugxZXlH9yhiwVdg+HuGjkQ0i/+0HrO +SuzvLWiZq3AOPo8nO1plrER4W3GK5ZcB67Xrsqw09XAeZXuTO3wa7owb/5hu +1kNPN69Lf3uchCAN3d5nPqvQr1Pirb3OCeCOerc7CetjItP8bplwKqzjyGwU +ydfHwBbtq3rbjoFa9LFDDwwMsNG/rnv14kRY5mN4V7nXAK0mKumUjjjwueP3 +9829q3GyNiewUTUG7l5o9/4iaYgRu1r1jqtHwsTV39PatwyxoP1HyofKQ+Cl +XCSctdEIa5u+tI/LHIAvy07qXx8zwr8XXO1LKNoLFQU/Xk0mGeONto6k902B +4LyWjcaKJmhoc9tbU84f5AITK7XumeCM+JZ73TXeILkwoHTjNi66twgvzV7r +CQXmkeFjTlwUrbq4aqu+J+hGppqfdOXiRMCrDIaaJ9iO0R3dnlzU93ki8GCR +JyR0Ts54BXAx7+CW+mPPPeBbfpRZeAwXo2K/fJj19oBe45PPLxeR8ZwlMtIV +3cHvQEG2FY9L3p+sJaPnucMUr8znI81FvX03c6NH3ECc6p7WKediWsFKflW5 +G9gIKcjfvsdFmDGNWrrJDWraL3s/7yDX5wRxMGEHWItWaIZ2c1F5U5KhU+AO +6F7fMCXzgovde38X/u2wAyaqPiS5/UvGY7L3irN3gGbeipL3I1zUdZ72Ebrv +CjW9pqHJn7iotu0M+8ZVV7D+cwtoj3Fxs5PRm+A0V9iVeODZ/kku/gOrrJQ8 +XGHiXkKW9DcummYOdyy1dIXY72e9qr5zcf+Qk7HUCldYoleoseMXFx+N3A/S +kHGFnMCqyd+/uVjN3+HjMMcV/gMsX08A + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06606421159259862}}, + "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.24, 0.6, 0.8], + 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"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.24, 0.6, 0.8], PointSize[0.012833333333333334`], + AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, + "Function" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.24, 0.6, 0.8], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DefaultBaseStyle->{"PlotGraphics", "Graphics"}, + 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]]}& )}}, + PlotInteractivity:>True, + PlotRange->{{0, 30}, {0., 0.06606421159259862}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9938285852688713`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"3bafecf2-6be5-4dc7-8549-07b8342e8257"] +}, Open ]], Cell[CellGroupData[{ @@ -8846,18 +15140,78 @@ Cell[BoxData[ RowBox[{"(", FractionBox["1", "Cb"], ")"}]}]], RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ -UUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.1746410158712014`*^-163\\\", \ +RowBox[{\\\"\ +161198658118785115956678299518758546564525592888043685145303185612679\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"8\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3109099682969421627018644700669916936247705600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 236, 81, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828585308386*^9}, + CellLabel-> + "During evaluation of \ +In[236]:=",ExpressionUUID->"355645d5-dab2-4fc6-8cfd-a518086831fa"], -Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.280972483161432`*^-166\\\", \ +RowBox[{\\\"\ +505518991860510123640143147290826802026352259296904996615670790081361\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"0136605792106222330469781300859512072804761600000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 236, 82, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828585315164*^9}, + CellLabel-> + "During evaluation of \ +In[236]:=",ExpressionUUID->"9a149b10-8cef-49f0-b78a-6b8f8006c18d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.3969293430467845`*^-169\\\", \ +RowBox[{\\\"\ +164243120455479739170682508554789627978361849045564433400431439697434\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"15\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"3832218553116351696319446492554724542670438400000000000000000000000000\\\"\ +}]]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 236, 83, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938285853216753`*^9}, + CellLabel-> + "During evaluation of \ +In[236]:=",ExpressionUUID->"d96768aa-93a1-4538-a23e-c786becd498d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 236, 84, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828585328084*^9}, + CellLabel-> + "During evaluation of \ +In[236]:=",ExpressionUUID->"730810a4-6608-4323-91e6-7c92c10411f4"], + +Cell[BoxData["11.48901722090168`"], "Output", + CellChangeTimes->{3.993828629355548*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"d966e590-3371-48ee-bb03-ee99e9601a8e"] }, Open ]], Cell[CellGroupData[{ @@ -8924,27 +15278,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991850391956293*^9, - 3.9918503966918755`*^9}},ExpressionUUID->"a3e3d205-e3b4-874a-a36c-\ -53cfa72184b4"], + CellChangeTimes->{{3.991850391956293*^9, 3.9918503966918755`*^9}}, + CellLabel-> + "In[237]:=",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.016884258050598`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 237, 85, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828629393331*^9}, + CellLabel-> + "During evaluation of \ +In[237]:=",ExpressionUUID->"e34d0e76-f3ce-4d02-8ee7-fda7453a1a4e"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.974804274667499`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 237, 86, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828629403247*^9}, + CellLabel-> + "During evaluation of \ +In[237]:=",ExpressionUUID->"ba9a4917-dafe-4aa5-b546-6abe0e3cf0d9"], -Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.93294516574691`*^-221\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 237, 87, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938286294130573`*^9}, + CellLabel-> + "During evaluation of \ +In[237]:=",ExpressionUUID->"4df82750-d8f1-436e-b5c6-4d0176ba0534"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 237, 88, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828629423635*^9}, + CellLabel-> + "During evaluation of \ +In[237]:=",ExpressionUUID->"ce04fa04-e523-404f-8dee-fcbe39ae8314"], + +Cell[BoxData["0.6090797928513164`"], "Output", + CellChangeTimes->{3.9938286366259613`*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"485ca52a-d7b2-4585-8f43-dd3a467eaf07"] }, Open ]], Cell[CellGroupData[{ @@ -8965,8 +15364,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9011,27 +15409,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918504007528324`*^9, - 3.991850403970867*^9}},ExpressionUUID->"6977f025-454e-0e4a-b118-\ -07bad9ba3e82"], + CellChangeTimes->{{3.9918504007528324`*^9, 3.991850403970867*^9}}, + CellLabel-> + "In[238]:=",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"566a849f-fc85-4d42-a545-a46d44cf7346"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.016884258050598`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 238, 89, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.99382863666101*^9}, + CellLabel-> + "During evaluation of \ +In[238]:=",ExpressionUUID->"1471fc2a-2fbf-40b3-81fb-e0cb99fd897d"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.974804274667499`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 238, 90, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828636668014*^9}, + CellLabel-> + "During evaluation of \ +In[238]:=",ExpressionUUID->"908a8421-2d3a-4218-a710-db2099afee88"], -Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.93294516574691`*^-221\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 238, 91, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938286366758842`*^9}, + CellLabel-> + "During evaluation of \ +In[238]:=",ExpressionUUID->"dce6801f-d136-4a7f-8bd1-53116cf06de0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 238, 92, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828636682971*^9}, + CellLabel-> + "During evaluation of \ +In[238]:=",ExpressionUUID->"4133daee-795d-453d-bc8c-4d8f1bb0aee8"], + +Cell[BoxData["36.17730427995616`"], "Output", + CellChangeTimes->{3.9938286441181707`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"94bc4975-4f4e-4109-a5d2-a6650fd39029"] }, Open ]], Cell[CellGroupData[{ @@ -9052,8 +15495,7 @@ Cell[BoxData[ RowBox[{"4", "x", "*", SuperscriptBox[ RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", "*", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", @@ -9098,27 +15540,72 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918504078476295`*^9, - 3.9918504110344543`*^9}},ExpressionUUID->"df8ecb01-788a-604d-b773-\ -f29bb610eb30"], + CellChangeTimes->{{3.9918504078476295`*^9, 3.9918504110344543`*^9}}, + CellLabel-> + "In[239]:=",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.016884258050598`*^-211\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 239, 93, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828644174823*^9}, + CellLabel-> + "During evaluation of \ +In[239]:=",ExpressionUUID->"3e66f2c1-877c-4044-a0c9-f807c04c7462"], Cell[BoxData[ - RowBox[{ - RowBox[{"Integrate", "::", "\<\"gener\"\>"}], ":", - " ", "\<\"Unable to check convergence. \\!\\(\\*ButtonBox[\\\"More\ -\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ -ButtonData:>\\\"Integrate::gener\\\"]\\)\"\>"}]], "Message",ExpressionUUID->\ -"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.974804274667499`*^-216\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 239, 94, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938286441819057`*^9}, + CellLabel-> + "During evaluation of \ +In[239]:=",ExpressionUUID->"8108d7a8-9c65-4e36-9fb1-8ae764f17b82"], -Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.93294516574691`*^-221\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 239, 95, + 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.9938286441892977`*^9}, + CellLabel-> + "During evaluation of \ +In[239]:=",ExpressionUUID->"a807e87c-d0c2-4a0a-b2bb-d87a9b98fe49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 239, 96, 31384839377481460541, "kernel 4"}, + "MessageTemplate", + BaseStyle->"MSG"]], "Message", + CellChangeTimes->{3.993828644196282*^9}, + CellLabel-> + "During evaluation of \ +In[239]:=",ExpressionUUID->"8bd7a68a-7099-4161-9291-f2f8ee4b5b32"], + +Cell[BoxData["6.206961606491028`"], "Output", + CellChangeTimes->{3.993828648461761*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"34ee98e7-6970-4167-b923-85f24464dfed"] }, Open ]], Cell[CellGroupData[{ @@ -9127,17 +15614,21 @@ Cell[BoxData[ FractionBox["q", SqrtBox[ RowBox[{"S1", "*", "S2"}]]]], "Input", - CellChangeTimes->{{3.9918504490520267`*^9, - 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ -d2cfa007cfcf"], + CellChangeTimes->{{3.9918504490520267`*^9, 3.991850453720993*^9}}, + CellLabel-> + "In[240]:=",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +Cell[BoxData["0.04064588279520207`"], "Output", + CellChangeTimes->{3.9938286484923277`*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"659dcd61-e362-4ea2-9dbc-0e0a30b055ac"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +Evaluator->"kernel 4", +WindowSize->{714, 170.25}, +WindowMargins->{{Automatic, 3}, {Automatic, 15}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"15.0 for Linux x86 (64-bit) (July 2, 2026)", StyleDefinitions->"Default.nb", ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" ] @@ -9152,355 +15643,638 @@ CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ -Cell[554, 20, 149, 4, 28, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], -Cell[706, 26, 154, 3, 28, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], -Cell[863, 31, 149, 4, 28, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], -Cell[1015, 37, 154, 3, 28, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], Cell[CellGroupData[{ -Cell[1194, 44, 1301, 43, 113, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], -Cell[2498, 89, 178, 3, 32, "Output",ExpressionUUID->"d7904bcf-fc55-b844-b4d2-059d830f1317"] +Cell[576, 22, 543, 9, 29, "Input",ExpressionUUID->"f4614a95-84ae-4ec8-87f4-63654961f7e1"], +Cell[1122, 33, 462, 6, 33, "Output",ExpressionUUID->"d6f68e95-b00b-4b13-b44f-57521894f8fe"] }, Open ]], Cell[CellGroupData[{ -Cell[2713, 97, 908, 31, 56, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], -Cell[3624, 130, 177, 3, 32, "Output",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +Cell[1621, 44, 249, 4, 29, "Input",ExpressionUUID->"6df7c2e3-0930-42f4-86b0-051b015d582e"], +Cell[1873, 50, 581, 9, 33, "Output",ExpressionUUID->"c0d44716-88d3-482e-9dd4-8e0ce522cd4d"] }, Open ]], Cell[CellGroupData[{ -Cell[3838, 138, 889, 30, 56, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], -Cell[4730, 170, 178, 3, 32, "Output",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +Cell[2491, 64, 229, 4, 29, "Input",ExpressionUUID->"90aa21e7-5e1a-4d70-804c-953ad950ff15"], +Cell[2723, 70, 554, 8, 33, "Output",ExpressionUUID->"b0c15ba5-7da1-42f3-ab23-e758c93c5765"] }, Open ]], Cell[CellGroupData[{ -Cell[4945, 178, 558, 19, 52, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], -Cell[5506, 199, 172, 3, 32, "Output",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +Cell[3314, 83, 176, 3, 29, "Input",ExpressionUUID->"53fe9e21-bd75-45fe-ba31-f8a22a9ad541"], +Cell[3493, 88, 558, 8, 33, "Output",ExpressionUUID->"cf8dd45b-cba6-41ca-8215-ad929ac57fe7"] }, Open ]], Cell[CellGroupData[{ -Cell[5715, 207, 651, 22, 52, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], -Cell[6369, 231, 167, 3, 32, "Output",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +Cell[4088, 101, 258, 7, 42, "Input",ExpressionUUID->"f26a36c2-4312-4e16-9f91-f6234fb74014"], +Cell[4349, 110, 559, 8, 33, "Output",ExpressionUUID->"c15ab5e5-9353-45fe-9df9-59f7bb7a995f"] }, Open ]], Cell[CellGroupData[{ -Cell[6573, 239, 170, 5, 56, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], -Cell[6746, 246, 172, 3, 32, "Output",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +Cell[4945, 123, 136, 3, 29, "Input",ExpressionUUID->"1dabf38a-6896-424c-9ff7-bbe419818d60"], +Cell[5084, 128, 563, 9, 33, "Output",ExpressionUUID->"ccb3dff7-d141-40bb-b73e-672dcc83dc41"] }, Open ]], Cell[CellGroupData[{ -Cell[6955, 254, 170, 5, 55, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], -Cell[7128, 261, 173, 3, 70, "Output",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +Cell[5684, 142, 281, 7, 29, "Input",ExpressionUUID->"6496472b-1ad5-4ca8-b4b2-92421bb9c5c3"], +Cell[5968, 151, 575, 9, 33, "Output",ExpressionUUID->"6edadc2a-5547-4ad5-bfce-837d5b6a2650"] }, Open ]], Cell[CellGroupData[{ -Cell[7338, 269, 181, 5, 70, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], -Cell[7522, 276, 171, 3, 70, "Output",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +Cell[6580, 165, 262, 8, 29, "Input",ExpressionUUID->"109f0109-b3d1-46c9-aaf4-cfdcd2aff02c"], +Cell[6845, 175, 580, 9, 33, "Output",ExpressionUUID->"f25dd58e-441d-4850-b395-e13e3ddeada5"] }, Open ]], Cell[CellGroupData[{ -Cell[7730, 284, 181, 5, 70, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], -Cell[7914, 291, 172, 3, 70, "Output",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +Cell[7462, 189, 247, 5, 29, "Input",ExpressionUUID->"0edbf74a-3d54-40cc-9804-2293364813af"], +Cell[7712, 196, 576, 9, 33, "Output",ExpressionUUID->"80995920-457f-40c9-b8bf-cee763e71868"] }, Open ]], Cell[CellGroupData[{ -Cell[8123, 299, 6055, 185, 70, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], -Cell[14181, 486, 174, 3, 70, "Output",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +Cell[8325, 210, 249, 5, 29, "Input",ExpressionUUID->"4f46449f-e261-4aa4-a52c-ffd216fd30f1"], +Cell[8577, 217, 572, 9, 33, "Output",ExpressionUUID->"0027bee8-0e96-4a8f-8176-4c615722ca7a"] }, Open ]], Cell[CellGroupData[{ -Cell[14392, 494, 368, 9, 70, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], -Cell[14763, 505, 172, 3, 70, "Output",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +Cell[9186, 231, 133, 3, 29, "Input",ExpressionUUID->"adf931c9-d7dc-42f6-9895-b946a9aad87b"], +Cell[9322, 236, 560, 9, 33, "Output",ExpressionUUID->"120ac216-8a12-4c1f-bca2-3e75f7b58fe0"] }, Open ]], Cell[CellGroupData[{ -Cell[14972, 513, 6122, 187, 70, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], -Cell[21097, 702, 175, 3, 70, "Output",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +Cell[9919, 250, 133, 3, 29, "Input",ExpressionUUID->"3e9ac25e-568c-4eca-acfa-3d2db348cdd0"], +Cell[10055, 255, 566, 9, 33, "Output",ExpressionUUID->"b4162d3b-0475-485c-b388-d29749251b3b"] }, Open ]], Cell[CellGroupData[{ -Cell[21309, 710, 368, 9, 70, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], -Cell[21680, 721, 172, 3, 70, "Output",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +Cell[10658, 269, 561, 20, 79, "Input",ExpressionUUID->"3cfd11c0-60d9-4d65-8812-f2282fda1faa"], +Cell[11222, 291, 577, 9, 33, "Output",ExpressionUUID->"266860ad-fdc6-4c32-b52c-76d036e465ff"] }, Open ]], Cell[CellGroupData[{ -Cell[21889, 729, 2663, 88, 70, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], -Cell[24555, 819, 171, 3, 70, "Output",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +Cell[11836, 305, 561, 20, 79, "Input",ExpressionUUID->"3448b374-c204-48d3-97c3-65d375d46419"], +Cell[12400, 327, 574, 9, 33, "Output",ExpressionUUID->"ca5c3020-5763-465d-a74e-4ff679ffb684"] }, Open ]], Cell[CellGroupData[{ -Cell[24763, 827, 2603, 85, 70, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], -Cell[27369, 914, 173, 3, 70, "Output",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +Cell[13011, 341, 1496, 49, 79, "Input",ExpressionUUID->"96a4b4d5-82ad-4694-b62f-878d08a439cb"], +Cell[14510, 392, 574, 9, 33, "Output",ExpressionUUID->"debb8911-a3dc-46bf-99fd-e9212df1b02d"] }, Open ]], Cell[CellGroupData[{ -Cell[27579, 922, 3712, 118, 70, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], -Cell[31294, 1042, 174, 3, 70, "Output",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] -}, Open ]], -Cell[31483, 1048, 138, 3, 70, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], -Cell[CellGroupData[{ -Cell[31646, 1055, 2054, 59, 70, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], -Cell[33703, 1116, 559, 12, 70, "Message",ExpressionUUID->"0833bd34-3252-a046-9aa3-94c1d6e5cfe9"], -Cell[34265, 1130, 560, 12, 70, "Message",ExpressionUUID->"f24a3618-ee43-704a-86fe-493dbed35e8d"], -Cell[34828, 1144, 565, 12, 70, "Message",ExpressionUUID->"86271901-aa3c-5542-ab18-fc06d3fd3f32"], -Cell[35396, 1158, 456, 10, 70, "Message",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], -Cell[35855, 1170, 170, 3, 70, "Output",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +Cell[15121, 406, 1335, 45, 79, "Input",ExpressionUUID->"a9f7e6f1-b3a8-4362-9e3c-a163dd345af4"], +Cell[16459, 453, 592, 10, 33, "Output",ExpressionUUID->"a4fce8e2-d219-4349-ab66-2080b63f5a6d"] }, Open ]], Cell[CellGroupData[{ -Cell[36062, 1178, 2054, 59, 70, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], -Cell[38119, 1239, 559, 12, 70, "Message",ExpressionUUID->"44f2ed65-5109-0141-bef6-eebaeda3d61d"], -Cell[38681, 1253, 559, 12, 70, "Message",ExpressionUUID->"ba49f32e-1ff7-b147-9f42-9c90ccc55447"], -Cell[39243, 1267, 565, 12, 70, "Message",ExpressionUUID->"fa95acf1-55b2-c042-9a9f-32e1ebea5c1e"], -Cell[39811, 1281, 458, 10, 70, "Message",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], -Cell[40272, 1293, 170, 3, 70, "Output",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +Cell[17088, 468, 1335, 45, 79, "Input",ExpressionUUID->"cb81da58-2be7-438f-ab37-946e951efceb"], +Cell[18426, 515, 594, 10, 33, "Output",ExpressionUUID->"7b476180-d54c-4418-a204-e4ccf0c1a762"] }, Open ]], Cell[CellGroupData[{ -Cell[40479, 1301, 1938, 53, 70, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], -Cell[42420, 1356, 20196, 379, 70, "Output",ExpressionUUID->"0e6ef056-d4e3-ac4d-9f2a-df071f8decb1"] +Cell[19057, 530, 1496, 49, 79, "Input",ExpressionUUID->"32f3b525-a2e4-46c3-ba06-f4c267b28e73"], +Cell[20556, 581, 575, 9, 33, "Output",ExpressionUUID->"a8d518c3-a9bb-4d17-a7ac-a028acb91c6f"] }, Open ]], Cell[CellGroupData[{ -Cell[62653, 1740, 2094, 60, 70, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], -Cell[64750, 1802, 503, 11, 70, "Message",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], -Cell[65256, 1815, 505, 11, 70, "Message",ExpressionUUID->"637082a9-fe74-7345-8895-dee77343ee6f"], -Cell[65764, 1828, 506, 11, 70, "Message",ExpressionUUID->"b2e7262c-7c6d-d94d-a545-ea4b363e579a"], -Cell[66273, 1841, 455, 10, 70, "Message",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], -Cell[66731, 1853, 55770, 961, 70, "Output",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] -}, Open ]], -Cell[122516, 2817, 232, 6, 70, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], -Cell[122751, 2825, 209, 5, 70, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], -Cell[CellGroupData[{ -Cell[122985, 2834, 217, 7, 70, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], -Cell[123205, 2843, 173, 3, 70, "Output",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +Cell[21168, 595, 135, 3, 29, "Input",ExpressionUUID->"a0d0cd70-a1eb-44f3-a837-5cc85b06969b"], +Cell[21306, 600, 560, 9, 33, "Output",ExpressionUUID->"d92bd304-d593-4598-92c7-38a8341d7cd2"] }, Open ]], Cell[CellGroupData[{ -Cell[123415, 2851, 1814, 53, 70, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], -Cell[125232, 2906, 506, 11, 70, "Message",ExpressionUUID->"08a2126f-e71c-b94d-8844-15e292a8f7d1"], -Cell[125741, 2919, 508, 11, 70, "Message",ExpressionUUID->"1acf7f10-7675-ea41-b478-94e928ef3377"], -Cell[126252, 2932, 509, 11, 70, "Message",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], -Cell[126764, 2945, 458, 10, 70, "Message",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], -Cell[127225, 2957, 24818, 454, 70, "Output",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +Cell[21903, 614, 137, 3, 29, "Input",ExpressionUUID->"ad80b2cb-04e1-4e5f-a5b0-356f016178c4"], +Cell[22043, 619, 566, 9, 33, "Output",ExpressionUUID->"0c4d38f3-9301-46a0-9c24-8297754a5557"] }, Open ]], Cell[CellGroupData[{ -Cell[152080, 3416, 1616, 48, 70, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], -Cell[153699, 3466, 582, 12, 70, "Message",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], -Cell[154284, 3480, 588, 12, 70, "Message",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], -Cell[154875, 3494, 590, 12, 70, "Message",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], -Cell[155468, 3508, 458, 10, 70, "Message",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], -Cell[155929, 3520, 171, 3, 70, "Output",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +Cell[22646, 633, 138, 3, 29, "Input",ExpressionUUID->"dde3114e-1452-413e-9738-a085eaf79a1d"], +Cell[22787, 638, 574, 9, 33, "Output",ExpressionUUID->"a6d2d32c-0db3-41cf-ba64-10ac6bc25947"] }, Open ]], Cell[CellGroupData[{ -Cell[156137, 3528, 2251, 64, 70, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], -Cell[158391, 3594, 557, 12, 70, "Message",ExpressionUUID->"0e308aaf-a4b5-d740-9882-5c338a63d7a7"], -Cell[158951, 3608, 560, 12, 70, "Message",ExpressionUUID->"5e35cc91-e340-c74b-b6dd-42063e8a308b"], -Cell[159514, 3622, 565, 12, 70, "Message",ExpressionUUID->"c3f5c3a9-ece1-e648-aa3a-3f66f2873ea7"], -Cell[160082, 3636, 458, 10, 70, "Message",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], -Cell[160543, 3648, 172, 3, 70, "Output",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +Cell[23398, 652, 223, 5, 29, "Input",ExpressionUUID->"2be19550-489d-4156-84cc-8ca0424642f7"], +Cell[23624, 659, 570, 10, 33, "Output",ExpressionUUID->"b9fdbd96-df42-4357-af3a-e135062d3287"] }, Open ]], Cell[CellGroupData[{ -Cell[160752, 3656, 2218, 64, 70, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], -Cell[162973, 3722, 559, 12, 70, "Message",ExpressionUUID->"2247cd70-3ffa-2245-971e-6c6a2bd1ecfc"], -Cell[163535, 3736, 562, 12, 70, "Message",ExpressionUUID->"d9ae7d5b-4e89-a74f-be53-15700ab2593c"], -Cell[164100, 3750, 563, 12, 70, "Message",ExpressionUUID->"821c7ce3-36cc-9549-9881-1225eb1561cf"], -Cell[164666, 3764, 458, 10, 70, "Message",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], -Cell[165127, 3776, 170, 3, 70, "Output",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +Cell[24231, 674, 138, 3, 29, "Input",ExpressionUUID->"21a43080-a45f-48e9-be48-c88c5c0abe48"], +Cell[24372, 679, 569, 9, 33, "Output",ExpressionUUID->"cff7d88b-b97b-470b-acd4-35a3df5c2b58"] }, Open ]], Cell[CellGroupData[{ -Cell[165334, 3784, 2221, 64, 70, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], -Cell[167558, 3850, 559, 12, 70, "Message",ExpressionUUID->"3701f96f-691c-9040-a8a1-ff3958638338"], -Cell[168120, 3864, 562, 12, 70, "Message",ExpressionUUID->"9e260603-f97f-ac44-8251-869444fbcc24"], -Cell[168685, 3878, 563, 12, 70, "Message",ExpressionUUID->"f34d60ab-6a89-fd45-89b6-5f3b4b17dd22"], -Cell[169251, 3892, 458, 10, 70, "Message",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], -Cell[169712, 3904, 171, 3, 70, "Output",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +Cell[24978, 693, 331, 6, 29, "Input",ExpressionUUID->"f19d605c-459c-47c0-945b-8f15f34ae3f0"], +Cell[25312, 701, 559, 9, 33, "Output",ExpressionUUID->"3a2adf69-5e46-41c8-8322-59d16c86e33b"] }, Open ]], Cell[CellGroupData[{ -Cell[169920, 3912, 213, 6, 70, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], -Cell[170136, 3920, 173, 3, 70, "Output",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] -}, Open ]], -Cell[170324, 3926, 245, 5, 70, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], -Cell[CellGroupData[{ -Cell[170594, 3935, 558, 19, 70, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], -Cell[171155, 3956, 170, 3, 70, "Output",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +Cell[25908, 715, 302, 6, 29, "Input",ExpressionUUID->"c3bc61ec-3fda-4589-b10f-4fb084fbc354"], +Cell[26213, 723, 595, 10, 33, "Output",ExpressionUUID->"88610429-3341-4584-9c46-6a72e4d15f35"] }, Open ]], Cell[CellGroupData[{ -Cell[171362, 3964, 170, 5, 70, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], -Cell[171535, 3971, 173, 3, 70, "Output",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +Cell[26845, 738, 223, 5, 29, "Input",ExpressionUUID->"06751aac-1ecf-4994-8398-9a86c6a8efce"], +Cell[27071, 745, 565, 9, 33, "Output",ExpressionUUID->"bd377395-1b20-427c-bb02-9c18f7ef54c2"] }, Open ]], Cell[CellGroupData[{ -Cell[171745, 3979, 181, 5, 70, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], -Cell[171929, 3986, 171, 3, 70, "Output",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +Cell[27673, 759, 354, 11, 42, "Input",ExpressionUUID->"4c9fe01a-057f-42d0-bdfa-6fb5832fbee3"], +Cell[28030, 772, 582, 9, 33, "Output",ExpressionUUID->"d8064d8b-ec8d-4cb6-8c5e-8e6bb03ea001"] }, Open ]], Cell[CellGroupData[{ -Cell[172137, 3994, 6055, 185, 70, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], -Cell[178195, 4181, 172, 3, 70, "Output",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +Cell[28649, 786, 354, 11, 42, "Input",ExpressionUUID->"bbecb7a8-a495-469d-a692-7241b3cbad24"], +Cell[29006, 799, 598, 10, 33, "Output",ExpressionUUID->"d4b62705-30cc-47b3-8a88-c9ae9de43558"] }, Open ]], Cell[CellGroupData[{ -Cell[178404, 4189, 368, 9, 70, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], -Cell[178775, 4200, 172, 3, 70, "Output",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +Cell[29641, 814, 998, 27, 43, "Input",ExpressionUUID->"4beb8ff7-52a8-4b4a-8aa3-e2564cf400ba"], +Cell[30642, 843, 577, 9, 33, "Output",ExpressionUUID->"171f3bf7-0f04-4843-87c1-25c16503f0f0"] }, Open ]], Cell[CellGroupData[{ -Cell[178984, 4208, 6122, 187, 70, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], -Cell[185109, 4397, 173, 3, 70, "Output",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +Cell[31256, 857, 203, 4, 29, "Input",ExpressionUUID->"935d1346-8c60-4b0b-bc13-7ecc335a63a9"], +Cell[31462, 863, 557, 9, 33, "Output",ExpressionUUID->"8c839fd2-2370-4d15-afcc-26586e849b85"] }, Open ]], Cell[CellGroupData[{ -Cell[185319, 4405, 368, 9, 70, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], -Cell[185690, 4416, 170, 3, 70, "Output",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +Cell[32056, 877, 338, 6, 29, "Input",ExpressionUUID->"99febca1-fee4-45d9-8643-6dda69371d29"], +Cell[32397, 885, 558, 9, 33, "Output",ExpressionUUID->"374495ef-0332-4c17-918e-f7a0643c3599"] +}, Open ]], +Cell[32970, 897, 177, 3, 29, "Input",ExpressionUUID->"a5580b80-b6b1-46f5-9965-897b2f884f80"], +Cell[CellGroupData[{ +Cell[33172, 904, 337, 6, 29, "Input",ExpressionUUID->"ece592cb-b90f-4471-8072-946c76d0f2f5"], +Cell[33512, 912, 559, 9, 33, "Output",ExpressionUUID->"d8ad4c9a-a8bd-4c43-9ab6-c216d625471f"] +}, Open ]], +Cell[34086, 924, 177, 3, 29, "Input",ExpressionUUID->"5e69ded1-600f-44c3-9641-bfe2cf6a05fb"], +Cell[CellGroupData[{ +Cell[34288, 931, 341, 6, 29, "Input",ExpressionUUID->"3430b01f-4e29-43d7-8f32-926c221d9a97"], +Cell[34632, 939, 555, 9, 33, "Output",ExpressionUUID->"8ea7d8d9-b26f-4f6d-b50d-c35d0a7a4c2d"] +}, Open ]], +Cell[35202, 951, 177, 3, 29, "Input",ExpressionUUID->"7f65d661-f738-4eaf-b4bf-15f969db9e29"], +Cell[CellGroupData[{ +Cell[35404, 958, 364, 6, 29, "Input",ExpressionUUID->"d43cf12a-15f3-40d8-ad6d-a178113f8ccc"], +Cell[35771, 966, 569, 9, 33, "Output",ExpressionUUID->"da8ed0ac-3861-4e3c-bdb8-53c6cde51fd5"] +}, Open ]], +Cell[36355, 978, 175, 3, 29, "Input",ExpressionUUID->"49a9cff1-4406-4924-a813-7cae6d495507"], +Cell[CellGroupData[{ +Cell[36555, 985, 311, 6, 29, "Input",ExpressionUUID->"22faf60d-df7c-4d1e-82fd-e0eedb2379c3"], +Cell[36869, 993, 565, 9, 33, "Output",ExpressionUUID->"d950bcfd-fe68-4916-b6b5-c5f81d644071"] +}, Open ]], +Cell[37449, 1005, 175, 3, 29, "Input",ExpressionUUID->"65950901-7e68-4b12-bee7-c1aa49ce1558"], +Cell[CellGroupData[{ +Cell[37649, 1012, 317, 6, 29, "Input",ExpressionUUID->"2f642c27-27b0-411e-a754-b69005cecdd8"], +Cell[37969, 1020, 564, 9, 33, "Output",ExpressionUUID->"f8e366fb-4be7-4a7f-8e64-bc45242e8c4f"] +}, Open ]], +Cell[38548, 1032, 177, 3, 29, "Input",ExpressionUUID->"6e6d05f3-541d-46bd-a397-8386e8f29f5f"], +Cell[CellGroupData[{ +Cell[38750, 1039, 318, 6, 29, "Input",ExpressionUUID->"c3d2ea79-909e-4959-aeb0-02a06cadbe5e"], +Cell[39071, 1047, 566, 9, 33, "Output",ExpressionUUID->"67f2ec67-043b-423d-b0c3-752ffbf245d7"] +}, Open ]], +Cell[39652, 1059, 176, 3, 29, "Input",ExpressionUUID->"38ecbd8f-d607-44c4-8124-ea40ed3d6951"], +Cell[CellGroupData[{ +Cell[39853, 1066, 287, 5, 29, "Input",ExpressionUUID->"c702a8e1-00a4-43e0-b90a-ed9845a7b257"], +Cell[40143, 1073, 563, 9, 33, "Output",ExpressionUUID->"93f3ec1b-f822-494b-84be-0294f73ace67"] +}, Open ]], +Cell[40721, 1085, 179, 3, 29, "Input",ExpressionUUID->"9b823831-b206-41f5-8764-485cd284cafe"], +Cell[CellGroupData[{ +Cell[40925, 1092, 19813, 486, 1100, "Input",ExpressionUUID->"f64c90bd-fe64-4478-8108-4587a2cfc947"], +Cell[60741, 1580, 575, 9, 33, "Output",ExpressionUUID->"95bdc258-988f-4e1d-bd40-c83e53fe7aaf"] }, Open ]], Cell[CellGroupData[{ -Cell[185897, 4424, 2663, 88, 70, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], -Cell[188563, 4514, 171, 3, 70, "Output",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +Cell[61353, 1594, 19752, 490, 1100, "Input",ExpressionUUID->"adc7a0e0-4a9e-4996-b03c-24259b6a1a97"], +Cell[81108, 2086, 579, 9, 33, "Output",ExpressionUUID->"b468dd2d-d8ea-4cb3-a7c1-a901793276e8"] }, Open ]], Cell[CellGroupData[{ -Cell[188771, 4522, 2603, 85, 70, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], -Cell[191377, 4609, 173, 3, 70, "Output",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +Cell[81724, 2100, 19752, 484, 1099, "Input",ExpressionUUID->"fc219ad0-c8d0-4709-8e97-680fd6aa3975"], +Cell[101479, 2586, 595, 10, 33, "Output",ExpressionUUID->"be3c7fff-6b84-4e51-a7c6-5ab31169a15d"] }, Open ]], Cell[CellGroupData[{ -Cell[191587, 4617, 3712, 118, 70, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], -Cell[195302, 4737, 174, 3, 70, "Output",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +Cell[102111, 2601, 22538, 554, 1235, "Input",ExpressionUUID->"fad7e3f3-e91b-4348-8e21-a41fd99b6d64"], +Cell[124652, 3157, 591, 10, 33, "Output",ExpressionUUID->"7cfed3eb-23db-467a-8d2c-91af203e95d3"] }, Open ]], Cell[CellGroupData[{ -Cell[195513, 4745, 2049, 58, 70, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], -Cell[197565, 4805, 579, 12, 70, "Message",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], -Cell[198147, 4819, 582, 12, 70, "Message",ExpressionUUID->"dda5376f-614c-1846-a3e1-09857b4bcae6"], -Cell[198732, 4833, 584, 12, 70, "Message",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], -Cell[199319, 4847, 458, 10, 70, "Message",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], -Cell[199780, 4859, 172, 3, 70, "Output",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +Cell[125280, 3172, 22539, 554, 1235, "Input",ExpressionUUID->"1d746f7c-a610-411d-ae9c-43be6452ce7a"], +Cell[147822, 3728, 598, 10, 33, "Output",ExpressionUUID->"0912bd84-ec60-4cd9-b436-6fea50e4d3f6"] }, Open ]], Cell[CellGroupData[{ -Cell[199989, 4867, 2054, 59, 70, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], -Cell[202046, 4928, 577, 12, 70, "Message",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], -Cell[202626, 4942, 580, 12, 70, "Message",ExpressionUUID->"b91abb11-65b8-3b43-a495-4cb1457edd27"], -Cell[203209, 4956, 583, 12, 70, "Message",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], -Cell[203795, 4970, 456, 10, 70, "Message",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], -Cell[204254, 4982, 171, 3, 70, "Output",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +Cell[148457, 3743, 25495, 627, 1350, "Input",ExpressionUUID->"a2d9159c-1f7c-4958-a10d-7b9d06824cbf"], +Cell[173955, 4372, 592, 10, 33, "Output",ExpressionUUID->"c680e407-a102-4500-ae06-d9bc244fbcad"] }, Open ]], Cell[CellGroupData[{ -Cell[204462, 4990, 2030, 55, 70, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], -Cell[206495, 5047, 20493, 384, 70, "Output",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +Cell[174584, 4387, 134, 3, 29, "Input",ExpressionUUID->"cd9026ea-ff7e-4176-a882-dbdd5741df57"], +Cell[174721, 4392, 568, 9, 33, "Output",ExpressionUUID->"deb9d2dc-fb30-4e33-9fc8-5063a092a79e"] }, Open ]], Cell[CellGroupData[{ -Cell[227025, 5436, 2120, 60, 70, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], -Cell[229148, 5498, 501, 11, 70, "Message",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], -Cell[229652, 5511, 504, 11, 70, "Message",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], -Cell[230159, 5524, 508, 11, 70, "Message",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], -Cell[230670, 5537, 456, 10, 70, "Message",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], -Cell[231129, 5549, 31462, 562, 70, "Output",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] -}, Open ]], -Cell[262606, 6114, 209, 5, 70, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], -Cell[CellGroupData[{ -Cell[262840, 6123, 1616, 48, 70, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], -Cell[264459, 6173, 596, 12, 70, "Message",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], -Cell[265058, 6187, 602, 12, 70, "Message",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], -Cell[265663, 6201, 605, 12, 70, "Message",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], -Cell[266271, 6215, 458, 10, 70, "Message",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], -Cell[266732, 6227, 171, 3, 70, "Output",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +Cell[175326, 4406, 134, 3, 29, "Input",ExpressionUUID->"6909c9da-c3b7-42f4-a4b9-0439b42654b6"], +Cell[175463, 4411, 562, 9, 33, "Output",ExpressionUUID->"d3358578-66fb-4b4f-a165-d592ed5cd132"] }, Open ]], Cell[CellGroupData[{ -Cell[266940, 6235, 2251, 64, 70, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], -Cell[269194, 6301, 577, 12, 70, "Message",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], -Cell[269774, 6315, 580, 12, 70, "Message",ExpressionUUID->"bbc1c804-e094-2b49-bceb-c837038552fa"], -Cell[270357, 6329, 586, 12, 70, "Message",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], -Cell[270946, 6343, 458, 10, 70, "Message",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], -Cell[271407, 6355, 173, 3, 70, "Output",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +Cell[176062, 4425, 1148, 40, 55, "Input",ExpressionUUID->"9d60a6a5-ac04-4825-9670-97db86121061"], +Cell[177213, 4467, 583, 9, 33, "Output",ExpressionUUID->"6fc1359f-bd8f-413c-94f9-0a33015f92b6"] }, Open ]], Cell[CellGroupData[{ -Cell[271617, 6363, 2219, 64, 70, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], -Cell[273839, 6429, 579, 12, 70, "Message",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], -Cell[274421, 6443, 580, 12, 70, "Message",ExpressionUUID->"7911ebc5-127d-5841-a246-fcff3e2e3d7f"], -Cell[275004, 6457, 586, 12, 70, "Message",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], -Cell[275593, 6471, 458, 10, 70, "Message",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], -Cell[276054, 6483, 171, 3, 70, "Output",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +Cell[177833, 4481, 1045, 36, 55, "Input",ExpressionUUID->"7cb4afc7-0de5-4d2d-a67a-92e6eb3b2c4a"], +Cell[178881, 4519, 593, 10, 33, "Output",ExpressionUUID->"33d12acd-76e0-47c7-8515-79858d7f4456"] }, Open ]], Cell[CellGroupData[{ -Cell[276262, 6491, 2219, 64, 70, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], -Cell[278484, 6557, 576, 12, 70, "Message",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], -Cell[279063, 6571, 580, 12, 70, "Message",ExpressionUUID->"05cc4b97-7653-f04b-8664-f56b3128e201"], -Cell[279646, 6585, 584, 12, 70, "Message",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], -Cell[280233, 6599, 458, 10, 70, "Message",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], -Cell[280694, 6611, 173, 3, 70, "Output",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +Cell[179511, 4534, 1148, 40, 55, "Input",ExpressionUUID->"29789b93-e545-42fc-8614-eb6fd4ffa23a"], +Cell[180662, 4576, 578, 9, 33, "Output",ExpressionUUID->"e89ce51e-a539-4417-9180-c560800f09f9"] }, Open ]], Cell[CellGroupData[{ -Cell[280904, 6619, 212, 6, 70, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], -Cell[281119, 6627, 172, 3, 70, "Output",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] -}, Open ]], -Cell[281306, 6633, 244, 5, 70, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], -Cell[CellGroupData[{ -Cell[281575, 6642, 558, 19, 70, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], -Cell[282136, 6663, 171, 3, 70, "Output",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +Cell[181277, 4590, 112, 2, 29, "Input",ExpressionUUID->"6e20fef6-22f8-4f4c-81da-53d81ddc5cc9"], +Cell[181392, 4594, 579, 9, 33, "Output",ExpressionUUID->"d76c35f0-e7ee-4efc-9399-f4212e34faf7"] }, Open ]], Cell[CellGroupData[{ -Cell[282344, 6671, 170, 5, 70, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], -Cell[282517, 6678, 171, 3, 70, "Output",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +Cell[182008, 4608, 112, 2, 29, "Input",ExpressionUUID->"47187de4-631f-455f-a8f0-96177bbe8e81"], +Cell[182123, 4612, 607, 10, 33, "Output",ExpressionUUID->"881872b7-f89e-42e6-a5c3-0899c0fa7d31"] }, Open ]], Cell[CellGroupData[{ -Cell[282725, 6686, 181, 5, 70, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], -Cell[282909, 6693, 173, 3, 70, "Output",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +Cell[182767, 4627, 112, 2, 29, "Input",ExpressionUUID->"9349fcd5-4c68-42cd-a166-bd48a1318f98"], +Cell[182882, 4631, 590, 10, 33, "Output",ExpressionUUID->"37f9f716-847a-41da-bd62-be822de297fc"] }, Open ]], Cell[CellGroupData[{ -Cell[283119, 6701, 6055, 185, 70, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], -Cell[289177, 6888, 173, 3, 70, "Output",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +Cell[183509, 4646, 112, 2, 29, "Input",ExpressionUUID->"a32ccc36-d797-429e-a20e-fe5f3acf3728"], +Cell[183624, 4650, 581, 9, 33, "Output",ExpressionUUID->"a04852c3-9cd3-4d2f-bd4e-29877a40e78f"] }, Open ]], Cell[CellGroupData[{ -Cell[289387, 6896, 368, 9, 70, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], -Cell[289758, 6907, 172, 3, 70, "Output",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +Cell[184242, 4664, 111, 2, 29, "Input",ExpressionUUID->"af5d2721-2ac8-43f4-9a16-42ead265b15b"], +Cell[184356, 4668, 585, 9, 33, "Output",ExpressionUUID->"4bc053f4-866e-4d58-a3bb-82e7b30a2e6f"] }, Open ]], Cell[CellGroupData[{ -Cell[289967, 6915, 6122, 187, 70, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], -Cell[296092, 7104, 173, 3, 70, "Output",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +Cell[184978, 4682, 111, 2, 29, "Input",ExpressionUUID->"9a152b19-0b18-4492-a011-23d7f4e3aea8"], +Cell[185092, 4686, 570, 9, 33, "Output",ExpressionUUID->"3ad1316f-c07a-451c-a600-5d4a145633f0"] }, Open ]], Cell[CellGroupData[{ -Cell[296302, 7112, 368, 9, 70, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], -Cell[296673, 7123, 172, 3, 70, "Output",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +Cell[185699, 4700, 501, 17, 55, "Input",ExpressionUUID->"43f7a914-5d92-4929-9e88-6b39bf7b4095"], +Cell[186203, 4719, 596, 10, 33, "Output",ExpressionUUID->"48086ddb-6301-4291-a223-36400fd1aeb4"] }, Open ]], Cell[CellGroupData[{ -Cell[296882, 7131, 2663, 88, 70, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], -Cell[299548, 7221, 173, 3, 70, "Output",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +Cell[186836, 4734, 501, 17, 55, "Input",ExpressionUUID->"03f63c25-b611-443a-bc6f-c6c7d6e1b9a0"], +Cell[187340, 4753, 594, 10, 33, "Output",ExpressionUUID->"9d2499a6-6bd7-4e18-a3e4-da9a3ae9c63c"] }, Open ]], Cell[CellGroupData[{ -Cell[299758, 7229, 2603, 85, 70, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], -Cell[302364, 7316, 171, 3, 70, "Output",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +Cell[187971, 4768, 1792, 61, 55, "Input",ExpressionUUID->"aeb91932-feab-4911-a03e-869eedd659dd"], +Cell[189766, 4831, 579, 9, 33, "Output",ExpressionUUID->"3cc4855f-7cbf-4ef2-aecc-df6fd9114f99"] }, Open ]], Cell[CellGroupData[{ -Cell[302572, 7324, 3712, 118, 70, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], -Cell[306287, 7444, 174, 3, 70, "Output",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +Cell[190382, 4845, 1105, 37, 55, "Input",ExpressionUUID->"77df964a-2ce0-438d-a179-4db9162b50bf"], +Cell[191490, 4884, 594, 10, 33, "Output",ExpressionUUID->"2b0b5fbd-48d4-4630-932a-3044ba2ba705"] }, Open ]], Cell[CellGroupData[{ -Cell[306498, 7452, 2054, 59, 70, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], -Cell[308555, 7513, 574, 12, 70, "Message",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], -Cell[309132, 7527, 580, 12, 70, "Message",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], -Cell[309715, 7541, 580, 12, 70, "Message",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], -Cell[310298, 7555, 456, 10, 70, "Message",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], -Cell[310757, 7567, 172, 3, 70, "Output",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +Cell[192121, 4899, 1822, 62, 107, "Input",ExpressionUUID->"cd7d015c-8434-42d0-b128-49ecd349164b"], +Cell[193946, 4963, 574, 9, 33, "Output",ExpressionUUID->"abd1f5ba-e48b-4c5c-b20e-402f5865f370"] }, Open ]], Cell[CellGroupData[{ -Cell[310966, 7575, 2054, 59, 70, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], -Cell[313023, 7636, 576, 12, 70, "Message",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], -Cell[313602, 7650, 577, 12, 70, "Message",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], -Cell[314182, 7664, 582, 12, 70, "Message",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], -Cell[314767, 7678, 458, 10, 70, "Message",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], -Cell[315228, 7690, 172, 3, 70, "Output",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +Cell[194557, 4977, 1635, 54, 79, "Input",ExpressionUUID->"aa875aaf-d9d7-4704-bf53-3d6b8146fdc6"], +Cell[196195, 5033, 572, 9, 33, "Output",ExpressionUUID->"f6293e12-1e23-406f-a604-5b510cd299c0"] }, Open ]], Cell[CellGroupData[{ -Cell[315437, 7698, 2028, 55, 70, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], -Cell[317468, 7755, 20021, 378, 70, "Output",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +Cell[196804, 5047, 1635, 54, 79, "Input",ExpressionUUID->"31275304-830c-43f2-80e4-10e652fd90ea"], +Cell[198442, 5103, 580, 9, 33, "Output",ExpressionUUID->"3304bedb-1072-4332-9ce6-514248ddec52"] }, Open ]], Cell[CellGroupData[{ -Cell[337526, 8138, 2146, 61, 70, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], -Cell[339675, 8201, 502, 11, 70, "Message",ExpressionUUID->"56dc07a7-05cc-424a-8fff-08f056385a44"], -Cell[340180, 8214, 506, 11, 70, "Message",ExpressionUUID->"71ae3883-d346-164c-9764-dc57f6863817"], -Cell[340689, 8227, 508, 11, 70, "Message",ExpressionUUID->"16c86d51-9f27-3c48-b312-93c489e538a4"], -Cell[341200, 8240, 456, 10, 70, "Message",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], -Cell[341659, 8252, 30015, 538, 70, "Output",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +Cell[199059, 5117, 232, 5, 29, "Input",ExpressionUUID->"5894836c-9594-0940-b94c-299085c765cc"], +Cell[199294, 5124, 184, 3, 33, "Output",ExpressionUUID->"1ddb0114-414c-425c-9919-85b082ca493a"] }, Open ]], -Cell[371689, 8793, 209, 5, 70, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[199493, 5130, 177, 3, 70, "Input",ExpressionUUID->"5965eb10-01f8-5545-9b6f-8fab318cd4b7"], Cell[CellGroupData[{ -Cell[371923, 8802, 1590, 47, 70, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], -Cell[373516, 8851, 342, 6, 70, "Message",ExpressionUUID->"9e6d6a70-ad75-9b40-8a0b-ca802f09d5a2"], -Cell[373861, 8859, 101, 0, 70, "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +Cell[199695, 5137, 232, 5, 29, "Input",ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-092c5143dcf0"], +Cell[199930, 5144, 184, 3, 33, "Output",ExpressionUUID->"5a68c90f-0289-453f-a8a0-2dfe720d1825"] +}, Open ]], +Cell[200129, 5150, 177, 3, 70, "Input",ExpressionUUID->"6e7c45d7-0298-ce41-ba97-a3c857e6ae57"], +Cell[CellGroupData[{ +Cell[200331, 5157, 1301, 43, 47, "Input",ExpressionUUID->"38bf39c5-cae1-4148-b0af-e362ef4ee2e3"], +Cell[201635, 5202, 225, 4, 33, "Output",ExpressionUUID->"72db6736-7eb2-4406-af4d-cb0bcb7e6589"] }, Open ]], Cell[CellGroupData[{ -Cell[373999, 8864, 2249, 64, 70, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], -Cell[376251, 8930, 342, 6, 70, "Message",ExpressionUUID->"9e9d949e-1d4c-8649-8d0e-b7deecfb3ba4"], -Cell[376596, 8938, 342, 6, 70, "Message",ExpressionUUID->"76f8ef60-aab6-7442-aeca-4cebad23cb0e"], -Cell[376941, 8946, 101, 0, 70, "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +Cell[201897, 5211, 931, 31, 55, "Input",ExpressionUUID->"f2e6289f-a8bc-6d44-a856-301cf9f22a61"], +Cell[202831, 5244, 225, 4, 33, "Output",ExpressionUUID->"484b2588-0bca-4e0d-ac12-9b2bedff9b10"] }, Open ]], Cell[CellGroupData[{ -Cell[377079, 8951, 2221, 64, 70, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], -Cell[379303, 9017, 342, 6, 70, "Message",ExpressionUUID->"566a849f-fc85-4d42-a545-a46d44cf7346"], -Cell[379648, 9025, 342, 6, 70, "Message",ExpressionUUID->"fb1cb4d6-a504-e445-bb52-7946e1bca3c6"], -Cell[379993, 9033, 100, 0, 70, "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +Cell[203093, 5253, 912, 30, 55, "Input",ExpressionUUID->"cdf84d2f-1e96-4c43-9286-fda42549e334"], +Cell[204008, 5285, 227, 4, 33, "Output",ExpressionUUID->"1b4141e2-e034-4857-ada1-04e8600a2dfb"] }, Open ]], Cell[CellGroupData[{ -Cell[380130, 9038, 2223, 64, 70, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], -Cell[382356, 9104, 342, 6, 70, "Message",ExpressionUUID->"f9e34ec5-1462-b340-b2e7-8e875dd33d28"], -Cell[382701, 9112, 342, 6, 70, "Message",ExpressionUUID->"19ffb858-7059-2a48-a3db-e2d0dfcf2131"], -Cell[383046, 9120, 101, 0, 70, "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +Cell[204272, 5294, 558, 19, 51, "Input",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], +Cell[204833, 5315, 222, 4, 33, "Output",ExpressionUUID->"2da0675b-b7b4-4033-9e2f-d511285bb4ab"] }, Open ]], Cell[CellGroupData[{ -Cell[383184, 9125, 213, 6, 70, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], -Cell[383400, 9133, 102, 0, 70, "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +Cell[205092, 5324, 651, 22, 51, "Input",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], +Cell[205746, 5348, 217, 4, 33, "Output",ExpressionUUID->"d5a2124a-65f0-40eb-b021-4d720818ff0a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206000, 5357, 170, 5, 55, "Input",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], +Cell[206173, 5364, 219, 4, 33, "Output",ExpressionUUID->"5e51a5f9-f616-40b2-9d6e-95ce3b48be2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206429, 5373, 170, 5, 54, "Input",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], +Cell[206602, 5380, 220, 4, 33, "Output",ExpressionUUID->"418d383f-983c-4bfc-abf9-2b7645c5c2da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[206859, 5389, 181, 5, 43, "Input",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], +Cell[207043, 5396, 218, 4, 33, "Output",ExpressionUUID->"8ff2be83-4ccd-4e75-b4e2-2acf32ffac30"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207298, 5405, 181, 5, 43, "Input",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], +Cell[207482, 5412, 219, 4, 33, "Output",ExpressionUUID->"202d9cd2-7ca4-4534-8bcb-dbd1840037d9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[207738, 5421, 6055, 185, 183, "Input",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], +Cell[213796, 5608, 222, 4, 33, "Output",ExpressionUUID->"b6a0b285-80a0-4fb6-968c-ecf6fa994741"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214055, 5617, 368, 9, 41, "Input",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], +Cell[214426, 5628, 221, 4, 33, "Output",ExpressionUUID->"0ba09576-0bed-41fa-8764-792bc0164ca3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214684, 5637, 6122, 187, 183, "Input",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], +Cell[220809, 5826, 221, 4, 33, "Output",ExpressionUUID->"d2b8fb25-aeff-4942-835c-ef9f6bd2f756"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221067, 5835, 368, 9, 41, "Input",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], +Cell[221438, 5846, 221, 4, 33, "Output",ExpressionUUID->"91431d26-1b7f-40df-82b6-7c3bd83582c5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[221696, 5855, 2663, 88, 107, "Input",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], +Cell[224362, 5945, 220, 4, 33, "Output",ExpressionUUID->"d194483d-cb50-455b-8432-aae4257c9010"] +}, Open ]], +Cell[CellGroupData[{ +Cell[224619, 5954, 2603, 85, 107, "Input",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], +Cell[227225, 6041, 222, 4, 33, "Output",ExpressionUUID->"c0524fcd-4123-4870-9a9d-8afe6bde1a26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227484, 6050, 3712, 118, 160, "Input",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], +Cell[231199, 6170, 221, 4, 33, "Output",ExpressionUUID->"ba414975-23b6-4c2e-b034-5bae994e344f"] +}, Open ]], +Cell[231435, 6177, 164, 4, 29, "Input",ExpressionUUID->"8111b6bb-cdcb-ad40-9440-412e77bed40d"], +Cell[CellGroupData[{ +Cell[231624, 6185, 2077, 59, 99, "Input",ExpressionUUID->"fc88a60e-e348-d344-96c4-1f4f66f53217"], +Cell[233704, 6246, 624, 14, 40, "Message",ExpressionUUID->"9e368740-56dd-499d-86b2-157e2db6c448"], +Cell[234331, 6262, 628, 14, 40, "Message",ExpressionUUID->"14a2823c-a1c6-462d-ac43-ba718b70da23"], +Cell[234962, 6278, 630, 14, 40, "Message",ExpressionUUID->"db2de09e-f43c-44af-b36d-fe501d1d72cc"], +Cell[235595, 6294, 518, 12, 26, "Message",ExpressionUUID->"2cccb1d7-df9b-48c2-bf66-be8dcdf3aa22"], +Cell[236116, 6308, 220, 4, 33, "Output",ExpressionUUID->"831faa7e-e447-4f2d-ba2f-bdaecce660d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[236373, 6317, 2077, 59, 99, "Input",ExpressionUUID->"dca13eb7-7f94-3e45-81a8-b62dad3009d2"], +Cell[238453, 6378, 626, 14, 80, "Message",ExpressionUUID->"6afe6b30-7ae1-4621-8165-a2e744a3896e"], +Cell[239082, 6394, 631, 14, 80, "Message",ExpressionUUID->"1da60b2f-9ad2-4b13-b5f4-5f6390e176dc"], +Cell[239716, 6410, 633, 14, 80, "Message",ExpressionUUID->"60867e15-dfe6-4f02-a922-f5238215238c"], +Cell[240352, 6426, 524, 12, 26, "Message",ExpressionUUID->"987785c9-f0ac-43d3-a99b-04b71cb9932a"], +Cell[240879, 6440, 217, 4, 33, "Output",ExpressionUUID->"925b713c-4c09-4957-99d1-f148b1809f0d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[241133, 6449, 1961, 53, 102, "Input",ExpressionUUID->"46451e4d-f5ef-b246-91c6-4265c9fafb97"], +Cell[243097, 6504, 20495, 387, 236, "Output",ExpressionUUID->"274b449a-7d94-4652-ac83-57558caee24b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[263629, 6896, 2117, 60, 261, "Input",ExpressionUUID->"06bd0169-a5a6-404c-935d-e1a61565f71e"], +Cell[265749, 6958, 542, 12, 59, "Message",ExpressionUUID->"cae47270-e596-43ad-b393-0d9c86b23955"], +Cell[266294, 6972, 542, 12, 59, "Message",ExpressionUUID->"fef72b6d-ee4f-4609-86ef-a35a8a0335f9"], +Cell[266839, 6986, 546, 12, 59, "Message",ExpressionUUID->"a57829b3-b8e2-45b6-877d-04461a905d23"], +Cell[267388, 7000, 495, 11, 26, "Message",ExpressionUUID->"47135cd0-888f-4926-aaf2-cbe7c495b1d6"], +Cell[267886, 7013, 22540, 417, 232, "Output",ExpressionUUID->"1d09ca9f-fd43-47ce-b6f0-11d2ded7ab3b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[290463, 7435, 2521, 71, 185, "Input",ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-b938908ab9a4"], +Cell[292987, 7508, 9498, 223, 239, "Output",ExpressionUUID->"203e14b0-2e91-4fbb-b3cc-a98f983ed470"] +}, Open ]], +Cell[CellGroupData[{ +Cell[302522, 7736, 232, 5, 29, "Input",ExpressionUUID->"6b0777bb-40fd-b54e-aa03-b6e82cb2e939"], +Cell[302757, 7743, 28903, 549, 232, "Output",ExpressionUUID->"0b99dc6a-ac33-4c1f-959e-d6517e76b55e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[331697, 8297, 240, 7, 47, "Input",ExpressionUUID->"1ec1e156-ca0f-9240-857c-ac86e3a0e3fd"], +Cell[331940, 8306, 197, 3, 33, "Output",ExpressionUUID->"383b77cc-2973-4283-a759-3fa5b996a3df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[332174, 8314, 1837, 53, 190, "Input",ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-da901e49f6f1"], +Cell[334014, 8369, 549, 12, 59, "Message",ExpressionUUID->"8764e025-2821-4d27-8733-beb5500a0e41"], +Cell[334566, 8383, 547, 12, 59, "Message",ExpressionUUID->"b4aa6c6d-d87f-4ff4-8e73-5f2b253bcbfc"], +Cell[335116, 8397, 549, 12, 59, "Message",ExpressionUUID->"84764da2-69f9-42d7-9215-a759b7970513"], +Cell[335668, 8411, 493, 11, 26, "Message",ExpressionUUID->"bab93eb8-54a0-4e08-a9d7-eb3aceabdb69"], +Cell[336164, 8424, 21778, 405, 232, "Output",ExpressionUUID->"a46526c3-0652-4265-9238-a999c4e8ebb6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357979, 8834, 1616, 48, 104, "Input",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], +Cell[359598, 8884, 627, 13, 80, "Message",ExpressionUUID->"14531bb8-adba-443b-b8fe-750207ae8d47"], +Cell[360228, 8899, 627, 13, 80, "Message",ExpressionUUID->"239acf39-c9ec-4b92-bd24-ca3a012054b4"], +Cell[360858, 8914, 635, 13, 80, "Message",ExpressionUUID->"cf9ce9d8-42df-4aee-8432-273cc40f82d0"], +Cell[361496, 8929, 495, 11, 26, "Message",ExpressionUUID->"1d6863bd-8543-41ad-ae50-5577913a5433"], +Cell[361994, 8942, 193, 3, 33, "Output",ExpressionUUID->"f40b7849-10a4-4f32-a083-57a5e1b45b1b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362224, 8950, 2274, 64, 212, "Input",ExpressionUUID->"0b10f52e-4583-2a4b-993d-96e59dd43e6a"], +Cell[364501, 9016, 597, 13, 80, "Message",ExpressionUUID->"304ea854-86fc-4e0d-82cb-8c3e594225a6"], +Cell[365101, 9031, 602, 13, 80, "Message",ExpressionUUID->"39424672-ee29-4899-b001-e27c3fe4e736"], +Cell[365706, 9046, 604, 13, 80, "Message",ExpressionUUID->"3c4283be-ef07-4c97-8bbd-0209180aff6a"], +Cell[366313, 9061, 493, 11, 26, "Message",ExpressionUUID->"f02bf4ac-6390-4584-908f-b4a978db2cbe"], +Cell[366809, 9074, 192, 3, 33, "Output",ExpressionUUID->"537b5c91-1ba7-4fbf-a788-59e9a1c3bdd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[367038, 9082, 2230, 63, 212, "Input",ExpressionUUID->"a58948c9-6d3d-e847-a269-d2e0cc5d1484"], +Cell[369271, 9147, 599, 13, 80, "Message",ExpressionUUID->"8953a491-ae94-4b5d-957d-70ab591e76d3"], +Cell[369873, 9162, 602, 13, 80, "Message",ExpressionUUID->"fe6d440e-e6da-4659-94c6-493856b040ab"], +Cell[370478, 9177, 605, 13, 80, "Message",ExpressionUUID->"93c87f09-b7ed-4c33-a999-afe7f1041232"], +Cell[371086, 9192, 495, 11, 26, "Message",ExpressionUUID->"bfddd313-f393-4854-bc6c-dacfa840d8f1"], +Cell[371584, 9205, 191, 3, 33, "Output",ExpressionUUID->"0be16216-fbb3-4f2a-99f9-7ba1253a98d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[371812, 9213, 2233, 63, 212, "Input",ExpressionUUID->"c817b2d1-7deb-5a45-9938-ca10003188eb"], +Cell[374048, 9278, 598, 13, 80, "Message",ExpressionUUID->"4e62b094-28af-4b4b-960c-a38b6a24e809"], +Cell[374649, 9293, 604, 13, 80, "Message",ExpressionUUID->"f0ffeff5-1912-4ef5-a7c5-e91a63ad44c8"], +Cell[375256, 9308, 608, 13, 80, "Message",ExpressionUUID->"0d98cc95-cf50-4cdc-9bf9-8d9cec3cef3f"], +Cell[375867, 9323, 494, 11, 26, "Message",ExpressionUUID->"d5c2e5fe-8492-4e7a-8fea-b156486a1b91"], +Cell[376364, 9336, 194, 3, 33, "Output",ExpressionUUID->"e2357edc-0b8d-4c65-a153-14baa473f00d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376595, 9344, 236, 6, 46, "Input",ExpressionUUID->"350334c7-7c47-c24c-8adc-781173809e57"], +Cell[376834, 9352, 196, 3, 33, "Output",ExpressionUUID->"2bcd0273-3bd2-4d43-abb3-1caf5573883b"] +}, Open ]], +Cell[377045, 9358, 271, 6, 29, "Input",ExpressionUUID->"597921e5-69d3-564d-a8fa-092e912c15e0"], +Cell[CellGroupData[{ +Cell[377341, 9368, 558, 19, 51, "Input",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], +Cell[377902, 9389, 192, 3, 33, "Output",ExpressionUUID->"444cd7ac-51f4-4cf6-bfed-db6dcaae4e64"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378131, 9397, 170, 5, 55, "Input",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], +Cell[378304, 9404, 195, 3, 33, "Output",ExpressionUUID->"aee4e45e-d45e-42b2-b380-d3464e76e574"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378536, 9412, 181, 5, 43, "Input",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], +Cell[378720, 9419, 192, 3, 33, "Output",ExpressionUUID->"c5f320b2-6deb-4c1c-827b-087fef5e01a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378949, 9427, 6055, 185, 474, "Input",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], +Cell[385007, 9614, 197, 3, 33, "Output",ExpressionUUID->"ae5af28a-9af4-4fd1-816f-2605d6adc12c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385241, 9622, 368, 9, 41, "Input",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], +Cell[385612, 9633, 197, 3, 33, "Output",ExpressionUUID->"64bf8ef1-3ed6-45a3-826f-8caa42182fe6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385846, 9641, 6122, 187, 474, "Input",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], +Cell[391971, 9830, 194, 3, 33, "Output",ExpressionUUID->"885fda84-05e0-4cda-b937-fb2a0a9f9faf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392202, 9838, 368, 9, 41, "Input",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], +Cell[392573, 9849, 194, 3, 33, "Output",ExpressionUUID->"d024f1db-2982-4fce-ac6b-9be45201522b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392804, 9857, 2663, 88, 285, "Input",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], +Cell[395470, 9947, 196, 3, 33, "Output",ExpressionUUID->"cb3834e6-9a86-4401-b2c9-7ed0ec35ac1d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395703, 9955, 2603, 85, 211, "Input",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], +Cell[398309, 10042, 195, 3, 33, "Output",ExpressionUUID->"31ce7b36-6fe9-4d0b-83e1-4dac66f583d3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398541, 10050, 3712, 118, 327, "Input",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], +Cell[402256, 10170, 198, 3, 33, "Output",ExpressionUUID->"2aa5efa7-32c8-4961-b688-839dfac38c59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[402491, 10178, 2074, 59, 234, "Input",ExpressionUUID->"77c444cf-c5b4-4b4b-9808-ff76b28fd32d"], +Cell[404568, 10239, 594, 13, 80, "Message",ExpressionUUID->"8e2935ad-3b74-49e1-97a2-086fdaba4950"], +Cell[405165, 10254, 596, 13, 80, "Message",ExpressionUUID->"f820674d-d95d-4d16-b834-b4ba86f42947"], +Cell[405764, 10269, 599, 13, 80, "Message",ExpressionUUID->"e4a4b2a3-3ee6-439c-a5c9-6fd796c17f54"], +Cell[406366, 10284, 495, 11, 26, "Message",ExpressionUUID->"a20353dc-c0b6-467a-9c76-00af4ac2a898"], +Cell[406864, 10297, 197, 3, 33, "Output",ExpressionUUID->"787ce728-5d7b-442d-b357-17aeed635e85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[407098, 10305, 2077, 59, 234, "Input",ExpressionUUID->"baacd3f7-96e4-2949-b9f9-9afb90e551d9"], +Cell[409178, 10366, 592, 13, 80, "Message",ExpressionUUID->"c499bb23-ca6e-4937-ba08-01ccaf84a030"], +Cell[409773, 10381, 596, 13, 80, "Message",ExpressionUUID->"bd34870b-f719-4b2b-a39c-5e0213c7310c"], +Cell[410372, 10396, 599, 13, 80, "Message",ExpressionUUID->"3a060f98-bc22-4209-ae43-28e8111199d1"], +Cell[410974, 10411, 493, 11, 26, "Message",ExpressionUUID->"c4c683a1-5adf-4b6a-8d83-3d12268f9b21"], +Cell[411470, 10424, 192, 3, 33, "Output",ExpressionUUID->"46ee9b61-e814-4a38-b0de-438faaf80f15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411699, 10432, 2053, 55, 151, "Input",ExpressionUUID->"ea08a5a9-d446-9147-ba82-e3924f732df2"], +Cell[413755, 10489, 20299, 383, 236, "Output",ExpressionUUID->"dd7f41b6-7740-4fd3-964a-ed5ad7c922e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[434091, 10877, 2143, 60, 261, "Input",ExpressionUUID->"42ddbf41-0bd8-b749-bead-56c89a9b7467"], +Cell[436237, 10939, 533, 12, 59, "Message",ExpressionUUID->"ffdd2f82-73d3-41d0-a448-e11a5cd5210c"], +Cell[436773, 10953, 537, 12, 59, "Message",ExpressionUUID->"6a3a654e-f2d1-4812-8233-f13138033ac6"], +Cell[437313, 10967, 540, 12, 59, "Message",ExpressionUUID->"ed6abf2c-ac95-447c-9cfe-acd12900646b"], +Cell[437856, 10981, 493, 11, 26, "Message",ExpressionUUID->"500927b2-08ee-4fb9-9ed6-2b365f7642f3"], +Cell[438352, 10994, 22309, 414, 236, "Output",ExpressionUUID->"0065e0d0-7825-4467-9627-edab9a8a9d1b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[460698, 11413, 232, 5, 29, "Input",ExpressionUUID->"6883477e-2a54-0a45-979a-ae60c73e9e82"], +Cell[460933, 11420, 28669, 546, 236, "Output",ExpressionUUID->"b4d5c8ed-da88-482d-b3d2-0ffd4268a163"] +}, Open ]], +Cell[CellGroupData[{ +Cell[489639, 11971, 1616, 48, 104, "Input",ExpressionUUID->"93c0bac4-7a17-8748-9b2f-588171dbd56e"], +Cell[491258, 12021, 725, 15, 80, "Message",ExpressionUUID->"6f791906-4b29-4039-9b20-2778d406066a"], +Cell[491986, 12038, 725, 15, 80, "Message",ExpressionUUID->"a4014501-07fa-4bd2-8250-3f3cbb1bf4fb"], +Cell[492714, 12055, 726, 15, 80, "Message",ExpressionUUID->"8dd4190e-1a3f-4757-96e4-d4e62131a6d1"], +Cell[493443, 12072, 493, 11, 26, "Message",ExpressionUUID->"108362c8-afa7-4ffb-a538-b142542e3a50"], +Cell[493939, 12085, 193, 3, 33, "Output",ExpressionUUID->"f89c4ace-69ca-482f-a4d9-1f1b3f07e87d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494169, 12093, 2274, 64, 212, "Input",ExpressionUUID->"fcc64ab7-eee0-e44f-9b2d-2a98ba29b602"], +Cell[496446, 12159, 592, 13, 80, "Message",ExpressionUUID->"d6f8eb18-eaf4-4ec8-8df9-e05c73a09efa"], +Cell[497041, 12174, 594, 13, 80, "Message",ExpressionUUID->"2a88a361-27e8-43bd-bc98-b2ea907bf378"], +Cell[497638, 12189, 599, 13, 80, "Message",ExpressionUUID->"78342cbc-710c-4f9f-914a-617ebc29e775"], +Cell[498240, 12204, 495, 11, 26, "Message",ExpressionUUID->"91533dd2-6251-4c0c-8ceb-ce6f209ea669"], +Cell[498738, 12217, 195, 3, 33, "Output",ExpressionUUID->"336ab23b-1360-4b45-ac0c-cd7e956cfc9c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498970, 12225, 2231, 63, 212, "Input",ExpressionUUID->"edfdd675-c60b-304e-9e16-68452b971319"], +Cell[501204, 12290, 594, 13, 80, "Message",ExpressionUUID->"ca808d2c-de7e-4bf1-8486-e579be2ca69a"], +Cell[501801, 12305, 598, 13, 80, "Message",ExpressionUUID->"6336346b-0f3a-4900-bb5d-86333a22a951"], +Cell[502402, 12320, 599, 13, 80, "Message",ExpressionUUID->"39fc9570-415a-46c3-9c44-fa9c4265d75c"], +Cell[503004, 12335, 495, 11, 26, "Message",ExpressionUUID->"3d41730d-85cc-4a5a-a208-e275b639670a"], +Cell[503502, 12348, 194, 3, 33, "Output",ExpressionUUID->"44040114-d215-48cf-b436-284bf829ce37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503733, 12356, 2231, 63, 212, "Input",ExpressionUUID->"d0469d46-2e74-494a-be85-b41cb2f3fa92"], +Cell[505967, 12421, 590, 13, 80, "Message",ExpressionUUID->"13591f7f-6270-4cf4-8486-88a0efe51334"], +Cell[506560, 12436, 595, 13, 80, "Message",ExpressionUUID->"b711c182-137d-43f8-b3d2-f37190ee6b20"], +Cell[507158, 12451, 593, 13, 80, "Message",ExpressionUUID->"a3d00148-07fb-4269-943a-ed12943db969"], +Cell[507754, 12466, 494, 11, 26, "Message",ExpressionUUID->"45aed098-b5e7-4334-9b26-1729624e9e4d"], +Cell[508251, 12479, 196, 3, 33, "Output",ExpressionUUID->"d7a26196-762f-4d45-8ba1-817e33258b54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[508484, 12487, 235, 6, 46, "Input",ExpressionUUID->"58b5e243-0972-1946-bd17-aca0f3e8a35b"], +Cell[508722, 12495, 194, 3, 33, "Output",ExpressionUUID->"50eca8a7-1678-429d-ba92-e380db065a4a"] +}, Open ]], +Cell[508931, 12501, 270, 6, 29, "Input",ExpressionUUID->"8ae59c8e-a0a1-f646-a3f5-a3711ba632a4"], +Cell[CellGroupData[{ +Cell[509226, 12511, 558, 19, 51, "Input",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], +Cell[509787, 12532, 194, 3, 33, "Output",ExpressionUUID->"12d50cf7-8b99-49e0-b83a-0b181ff0e160"] +}, Open ]], +Cell[CellGroupData[{ +Cell[510018, 12540, 170, 5, 55, "Input",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], +Cell[510191, 12547, 193, 3, 33, "Output",ExpressionUUID->"fded5ca2-e6e5-4335-b6b1-2ed543c6c11b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[510421, 12555, 181, 5, 43, "Input",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], +Cell[510605, 12562, 196, 3, 33, "Output",ExpressionUUID->"1e132eeb-0183-42ee-84e2-b3562311c3d5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[510838, 12570, 6055, 185, 474, "Input",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], +Cell[516896, 12757, 194, 3, 33, "Output",ExpressionUUID->"eab062fa-f302-452d-acc6-5e0434daf7ec"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517127, 12765, 368, 9, 41, "Input",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], +Cell[517498, 12776, 197, 3, 33, "Output",ExpressionUUID->"2c6f2f7d-ea4f-4fe1-9428-a3f8309f819d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[517732, 12784, 6122, 187, 474, "Input",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], +Cell[523857, 12973, 196, 3, 33, "Output",ExpressionUUID->"c72c8d81-0963-4add-b5ab-3555eec04736"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524090, 12981, 368, 9, 41, "Input",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], +Cell[524461, 12992, 197, 3, 33, "Output",ExpressionUUID->"38eada1c-032a-48e4-95fb-f9c5eff94cd7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[524695, 13000, 2663, 88, 285, "Input",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], +Cell[527361, 13090, 196, 3, 33, "Output",ExpressionUUID->"75822800-d919-4523-b76b-c7e8a2cec5aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[527594, 13098, 2603, 85, 211, "Input",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], +Cell[530200, 13185, 193, 3, 33, "Output",ExpressionUUID->"7451e4a7-264c-4414-b8cd-1056df1139de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[530430, 13193, 3712, 118, 327, "Input",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], +Cell[534145, 13313, 198, 3, 33, "Output",ExpressionUUID->"bd72e6c2-8d93-4861-892b-f6ee71314594"] +}, Open ]], +Cell[CellGroupData[{ +Cell[534380, 13321, 2077, 59, 234, "Input",ExpressionUUID->"ba508068-6b78-254c-87d6-cf1adc0753dd"], +Cell[536460, 13382, 594, 13, 80, "Message",ExpressionUUID->"061aa652-b103-465c-9d4c-83004525d3cf"], +Cell[537057, 13397, 597, 13, 80, "Message",ExpressionUUID->"13c3722d-8fb4-4193-8fe7-0928bbbce54d"], +Cell[537657, 13412, 599, 13, 80, "Message",ExpressionUUID->"a249190b-fadc-4440-ac08-30403ffbac0e"], +Cell[538259, 13427, 493, 11, 26, "Message",ExpressionUUID->"5e6262f8-1e9a-483a-9cf3-77092cdcd7b0"], +Cell[538755, 13440, 195, 3, 33, "Output",ExpressionUUID->"4801e81f-1a9c-428d-9b2e-e88f5b70dfcd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[538987, 13448, 2077, 59, 234, "Input",ExpressionUUID->"842e33e4-ae06-f746-ab8b-97489285cc9c"], +Cell[541067, 13509, 596, 13, 80, "Message",ExpressionUUID->"b8578ccc-9d8a-4ec3-9a7c-54804db4acf1"], +Cell[541666, 13524, 599, 13, 80, "Message",ExpressionUUID->"e24818eb-73ad-494b-8a61-929d44dbe46a"], +Cell[542268, 13539, 603, 13, 80, "Message",ExpressionUUID->"810dd08c-ac8b-4901-9235-e54996cb32a6"], +Cell[542874, 13554, 497, 11, 26, "Message",ExpressionUUID->"5b232530-8afc-4649-94f7-7504ef81ac08"], +Cell[543374, 13567, 193, 3, 33, "Output",ExpressionUUID->"95f83520-31d6-4aab-a008-5784f86b8615"] +}, Open ]], +Cell[CellGroupData[{ +Cell[543604, 13575, 2051, 55, 151, "Input",ExpressionUUID->"b2e314f8-a6f0-6942-a94c-5ac1cacd7190"], +Cell[545658, 13632, 20354, 382, 236, "Output",ExpressionUUID->"eb76a336-4766-47fb-bf2b-0fc8147bf66d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[566049, 14019, 2168, 61, 261, "Input",ExpressionUUID->"497f9779-a3e4-c84e-a207-0aac70483e3c"], +Cell[568220, 14082, 536, 12, 59, "Message",ExpressionUUID->"d55b68ce-e534-4e30-b410-a1ce00b7c449"], +Cell[568759, 14096, 540, 12, 59, "Message",ExpressionUUID->"76c7218b-55dd-44ef-a463-0ad3a9678b27"], +Cell[569302, 14110, 543, 12, 59, "Message",ExpressionUUID->"055d15d3-9ad2-43b2-abc6-87f8ccb505b8"], +Cell[569848, 14124, 497, 11, 26, "Message",ExpressionUUID->"651d1af1-30b4-457e-acdd-b3b34f2e9031"], +Cell[570348, 14137, 21800, 405, 232, "Output",ExpressionUUID->"302c203b-0b0b-44fc-87d6-10c40cac9685"] +}, Open ]], +Cell[CellGroupData[{ +Cell[592185, 14547, 232, 5, 29, "Input",ExpressionUUID->"54d9c986-d109-3d4c-9ee8-76427bb63659"], +Cell[592420, 14554, 28162, 537, 232, "Output",ExpressionUUID->"3bafecf2-6be5-4dc7-8549-07b8342e8257"] +}, Open ]], +Cell[CellGroupData[{ +Cell[620619, 15096, 1616, 48, 104, "Input",ExpressionUUID->"5dd0afca-0a4f-544d-814d-33e1c649116f"], +Cell[622238, 15146, 703, 15, 80, "Message",ExpressionUUID->"355645d5-dab2-4fc6-8cfd-a518086831fa"], +Cell[622944, 15163, 703, 15, 80, "Message",ExpressionUUID->"9a149b10-8cef-49f0-b78a-6b8f8006c18d"], +Cell[623650, 15180, 706, 15, 80, "Message",ExpressionUUID->"d96768aa-93a1-4538-a23e-c786becd498d"], +Cell[624359, 15197, 471, 11, 26, "Message",ExpressionUUID->"730810a4-6608-4323-91e6-7c92c10411f4"], +Cell[624833, 15210, 170, 3, 33, "Output",ExpressionUUID->"d966e590-3371-48ee-bb03-ee99e9601a8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[625040, 15218, 2272, 64, 212, "Input",ExpressionUUID->"a3e3d205-e3b4-874a-a36c-53cfa72184b4"], +Cell[627315, 15284, 572, 13, 80, "Message",ExpressionUUID->"e34d0e76-f3ce-4d02-8ee7-fda7453a1a4e"], +Cell[627890, 15299, 575, 13, 80, "Message",ExpressionUUID->"ba9a4917-dafe-4aa5-b546-6abe0e3cf0d9"], +Cell[628468, 15314, 579, 13, 80, "Message",ExpressionUUID->"4df82750-d8f1-436e-b5c6-4d0176ba0534"], +Cell[629050, 15329, 471, 11, 26, "Message",ExpressionUUID->"ce04fa04-e523-404f-8dee-fcbe39ae8314"], +Cell[629524, 15342, 173, 3, 33, "Output",ExpressionUUID->"485ca52a-d7b2-4585-8f43-dd3a467eaf07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[629734, 15350, 2233, 63, 212, "Input",ExpressionUUID->"6977f025-454e-0e4a-b118-07bad9ba3e82"], +Cell[631970, 15415, 571, 13, 80, "Message",ExpressionUUID->"1471fc2a-2fbf-40b3-81fb-e0cb99fd897d"], +Cell[632544, 15430, 575, 13, 80, "Message",ExpressionUUID->"908a8421-2d3a-4218-a710-db2099afee88"], +Cell[633122, 15445, 579, 13, 80, "Message",ExpressionUUID->"dce6801f-d136-4a7f-8bd1-53116cf06de0"], +Cell[633704, 15460, 471, 11, 26, "Message",ExpressionUUID->"4133daee-795d-453d-bc8c-4d8f1bb0aee8"], +Cell[634178, 15473, 172, 3, 33, "Output",ExpressionUUID->"94bc4975-4f4e-4109-a5d2-a6650fd39029"] +}, Open ]], +Cell[CellGroupData[{ +Cell[634387, 15481, 2235, 63, 212, "Input",ExpressionUUID->"df8ecb01-788a-604d-b773-f29bb610eb30"], +Cell[636625, 15546, 572, 13, 80, "Message",ExpressionUUID->"3e66f2c1-877c-4044-a0c9-f807c04c7462"], +Cell[637200, 15561, 577, 13, 80, "Message",ExpressionUUID->"8108d7a8-9c65-4e36-9fb1-8ae764f17b82"], +Cell[637780, 15576, 579, 13, 80, "Message",ExpressionUUID->"a807e87c-d0c2-4a0a-b2bb-d87a9b98fe49"], +Cell[638362, 15591, 471, 11, 26, "Message",ExpressionUUID->"8bd7a68a-7099-4161-9291-f2f8ee4b5b32"], +Cell[638836, 15604, 170, 3, 33, "Output",ExpressionUUID->"34ee98e7-6970-4167-b923-85f24464dfed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[639043, 15612, 236, 6, 46, "Input",ExpressionUUID->"54a5e329-20bd-e742-afe8-d2cfa007cfcf"], +Cell[639282, 15620, 174, 3, 33, "Output",ExpressionUUID->"659dcd61-e362-4ea2-9dbc-0e0a30b055ac"] }, Open ]] } ] diff --git a/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt b/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt index d4d5836..22fc2ec 100644 --- a/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt +++ b/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt @@ -45,7 +45,7 @@ vv2 = 1.76 nn2 = 1.075 ----------------------------- 156-84_10-11 -d = 4.98 +d = 6.05 v1 = 1.635 n1 = 0.855 vv1 = 2.405